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