home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_07 / PURE_P_2.LZH / PURE_P_2.MSA / INTRFACE / SYSTEM.INT < prev    next >
Text File  |  1992-06-17  |  4KB  |  161 lines
  1. unit    system;
  2.  
  3. interface
  4.  
  5. (* -------------------------------------------------------------------- *)
  6. (*        variables                                                        *)
  7. (* -------------------------------------------------------------------- *)
  8.  
  9. type
  10.  
  11.     PDPtr = ^PD;
  12.     PD = record
  13.         p_lowtpa :        Pointer;
  14.         p_hitpa :        Pointer;
  15.         p_tbase :        Pointer;
  16.         p_tlen :        LongInt;
  17.         p_dbase :        Pointer;
  18.         p_dlen :        LongInt;
  19.         p_bbase :        Pointer;
  20.         p_blen :        LongInt;
  21.         p_dta :            Pointer;
  22.         p_parent :        PDPtr;
  23.         p_resrvd0 :        LongInt;
  24.         p_env :            Pointer;
  25.         p_stdfh :        Array[0..5] of Byte;
  26.         p_resrvd1 :        Byte;
  27.         p_curdrv :        Byte;
  28.         p_resrvd2 :        Array[0..17] of LongInt;
  29.         p_cmdlin :        string[128];
  30.     end;
  31.  
  32.  
  33. var
  34.  
  35.     AppFlag : Boolean;            { Application or Accessory                }
  36.     ExitCode  : Integer;        { program result                        }
  37.     ExitProc  : Pointer;        { at last installed halt procedure      }
  38.     TermProc  : Pointer;        { routine to return to operating system    }
  39.     ErrorAddr : Pointer;        { address of a run time error            }
  40.     HeapError : Pointer;        { routine to handle out of memory        }
  41.  
  42.     InOutRes : Integer;            { result of i/o-operations                }
  43.  
  44.     RandSeed : LongInt;            { base for random number generator        }
  45.  
  46.     FileMode : Byte;            { standard mode for opening files        }
  47.  
  48.     Test68881 : Byte;            { test result for a math processor        }
  49.  
  50.  
  51.     StackLimit : Pointer;        { pointer to the stack limit            }
  52.  
  53.     Input  : Text;                { standard input                        }
  54.     Output : Text;                { standard output                        }
  55.  
  56.     Save02Exception : Pointer;    { exception vector: bus error            }
  57.     Save03Exception : Pointer;    { exception vector: address error        }
  58.     Save04Exception : Pointer;    { exception vector: illegal instruction }
  59.     Save05Exception : Pointer;    { exception vector: divison by zero        }
  60.     Save06Exception : Pointer;    { exception vector: chk/chk2             }
  61.     Save07Exception : Pointer;    { exception vector: trapv                }
  62.     Save08Exception : Pointer;    { exception vector: privilege violation    }
  63.  
  64.  
  65.     BasePage    : PDPtr;
  66.  
  67.  
  68. (* -------------------------------------------------------------------- *)
  69. (*        functions & procedures                                            *)
  70. (* -------------------------------------------------------------------- *)
  71.  
  72.     procedure    Append( var f : Text );
  73.     external;
  74.  
  75.     procedure    ChDir( s : string );
  76.     external;
  77.  
  78.     function    Copy( s : string; index, count : Integer ) : string;
  79.     external;
  80.  
  81.     procedure    Delete( s : string; index, count : Integer );
  82.     external;
  83.  
  84.     procedure    Flush( var f : Text );
  85.     external;
  86.  
  87.     procedure    GetDir( d : Byte; var s : string );
  88.     external;
  89.  
  90.     procedure    Insert( source : string; var s : string; index : Integer );
  91.     external;
  92.  
  93.     function    IOResult : Word;
  94.     external;
  95.  
  96.     procedure    MkDir( s : string );
  97.     external;
  98.  
  99.     procedure    Move( var Source, Dest; count : LongInt );
  100.     external;
  101.  
  102.     procedure    Page( var t : Text );
  103.     external;
  104.  
  105.     function    ParamStr( index : Word ) : string;
  106.     external;
  107.  
  108.     function    Pos( substr : string; s : string ) : Byte;
  109.     external;
  110.  
  111.     procedure    Randomize;
  112.     external;
  113.  
  114.     procedure    RmDir( s : string );
  115.     external;
  116.  
  117.     function    UpCase( ch : Char ) : Char;
  118.     external;
  119.  
  120.     function    MaxAvail: LongInt;
  121.     external;
  122.  
  123.     function    MemAvail: LongInt;
  124.     external;
  125.  
  126.     { ----------------------------------------------------- }
  127.     {    functions & procedures to support convenient use    }
  128.     {    of highspeed pascal and maxon pascal                }
  129.     { ----------------------------------------------------- }
  130.  
  131.     function    RunFromMemory : Boolean;
  132.     external;
  133.  
  134.     procedure    ClrEol;
  135.     external;
  136.  
  137.     procedure    ClrEos;
  138.     external;
  139.  
  140.     procedure    ClrScr;
  141.     external;
  142.  
  143.     procedure    Delay( ms : LongInt );
  144.     external;
  145.  
  146.     procedure    DelLine;
  147.     external;
  148.  
  149.     procedure    GotoXY( col, lin : Integer );
  150.     external;
  151.  
  152.     procedure    InsLine;
  153.     external;
  154.  
  155.     function    KeyPressed : Boolean;
  156.     external;
  157.  
  158.     function    ReadKey : Char;
  159.     external;
  160.  
  161.