Important Notice

The pages on this site contain documentation for very old MS-DOS software, purely for historical purposes. If you're looking for up-to-date documentation, particularly for programming, you should not rely on the information found here, as it will be woefully out of date.

  ◄Standard Units► ◄Contents► ◄Index►                             ◄Back►
 
  {──────────────────────────────────────────────────────────────────────
 
                           System Unit Interface
 
                   Microsoft QuickPascal Version 1.00
                Copyright (C) 1989, Microsoft Corporation
                           All rights reserved.
 
  ──────────────────────────────────────────────────────────────────────}
 
  UNIT System;
 
  INTERFACE
 
  CONST
      HeapOrg    : POINTER = NIL;    { pointer to heap origin }
      HeapPtr    : POINTER = NIL;    { pointer to top of heap }
      FreePtr    : POINTER = NIL;    { pointer to free list }
      FreeMin    : Word    = 0;      { heap margin }
      HeapError  : POINTER = NIL;    { pointer to heap error function }
 
      StackLimit : Word    = 0;      { stack pointer lower bound }
 
      ExitCode   : Integer = 0;      { program exit code }
      ErrorAddr  : POINTER = NIL;    { pointer to run-time error }
      ExitProc   : POINTER = NIL;    { pointer to exit procedure }
 
      InOutRes   : Integer = 0;      { I/O result }
      FileMode   : Byte    = 2;      { file access mode }
      RandSeed   : LongInt = 0;      { seed for random number generator }
      PrefixSeg  : Word    = 0;      { segment address of PSP }
 
  VAR
      Input, Output : Text;    { standard files }
 
      { saved interrupt handler addresses }
      SaveInt00,    { interrupt $00 }
      SaveInt02,    { interrupt $02 }
      SaveInt1B,    { interrupt $1B }
      SaveInt23,    { interrupt $23 }
      SaveInt24,    { interrupt $24 }
      SaveInt34,    { interrupt $34 }
      SaveInt35,    { interrupt $35 }
      SaveInt36,    { interrupt $36 }
      SaveInt37,    { interrupt $37 }
      SaveInt38,    { interrupt $38 }
      SaveInt39,    { interrupt $39 }
      SaveInt3A,    { interrupt $3A }
      SaveInt3B,    { interrupt $3B }
      SaveInt3C,    { interrupt $3C }
      SaveInt3D,    { interrupt $3D }
      SaveInt3E,    { interrupt $3E }
      SaveInt3F,    { interrupt $3F }
      SaveInt75     { interrupt $75 }
      : POINTER;
 
  {──────────────────────────────────────────────────────────────────
 
                            Predefined Arrays
                            ═════════════════
 
    Mem           MemW          MemL          Port          PortW
 
                     System Procedures and Functions
                     ═══════════════════════════════
 
    Abs*          Eof           Int           Pi            Seg
    Addr          Eoln          IOResult      Pos           SetTextBuf
    Append        Erase         Last*         Pred*         Sin
    ArcTan        Exit          Length*       Ptr*          SizeOf*
    Assign        Exp           Ln            Random        SPtr
    BlockRead     FilePos       Lo*           Randomize     Sqr
    BlockWrite    FileSize      Mark          Read          Sqrt
    ChDir         FillChar      MaxAvail      Readln        SSeg
    Chr*          First*        MemAvail      Release       Str
    Close         Flush         Member        Rename        Succ*
    Concat        Frac          MkDir         Reset         Swap*
    Copy          FreeMem       Move          Rewrite       Trunc*
    Cos           GetDir        New           RmDir         Truncate
    CSeg          GetMem        Odd*          Round*        UpCase
    Dec           Halt          Ofs           RunError      Val
    Delete        Hi*           Ord*          Seek          Write
    Dispose       Inc           ParamCount    SeekEof       Writeln
    DSeg          Insert        ParamStr      SeekEoln
 
    * These functions can be used in constant expressions within
      constant declarations.
 
  ───────────────────────────────────────────────────────────────────}