home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / pcmag / vol11n01.zip / INKEY.ZIP / TYPPSP.PAS < prev   
Pascal/Delphi Source File  |  1991-12-10  |  933b  |  32 lines
  1. UNIT TypPsp;
  2. {Program Segment Prefix}
  3. (**) INTERFACE (**)
  4. TYPE
  5.   PspPtr      = ^PspType;
  6.   HanTable    = ARRAY[0..255] OF Byte;
  7.   HanTablePtr = ^HanTable;
  8.   String127   = String[127];
  9.   PspType     = RECORD
  10.     Int20           : Word;
  11.     Unused1         : Word;
  12.     Filler          : Byte;
  13.     Int21CPM        : ARRAY[0..4] OF Byte;
  14.     Int22,
  15.     Int23, Int24    : Pointer;
  16.     ParentalPSP     : Word;
  17.     Handles         : ARRAY[0..19] OF Byte;
  18.     EnvSeg          : Word;
  19.     SavedSSSP       : LongInt;
  20.     NumHandles      : Word;
  21.     HandleTablePtr  : HanTablePtr;
  22.     SharePSP        : Pointer;
  23.     Unused2         : ARRAY[0..$13] OF Byte;
  24.     Int21b          : Word;
  25.     RetF            : Byte;
  26.     Unused3         : ARRAY[0..8] oF Byte;
  27.     FCB1, FCB2      : ARRAY[0..15] OF Byte;
  28.     whoknows        : ARRAY[0..3] OF Byte;
  29.     CommandTail     : String127;
  30.   END;
  31. (**) IMPLEMENTATION (**)
  32. END.