?
This commit is contained in:
40
5i24/utils/dos/source/DATAREC.PAS
Executable file
40
5i24/utils/dos/source/DATAREC.PAS
Executable file
@@ -0,0 +1,40 @@
|
||||
type LongIntRec = record
|
||||
LowWord : word;
|
||||
HighWord : word;
|
||||
end;
|
||||
|
||||
type LongIntByteRec = record
|
||||
Byte0 : byte;
|
||||
Byte1 : byte;
|
||||
Byte2 : byte;
|
||||
Byte3 : byte;
|
||||
end;
|
||||
|
||||
type DoubleIntRec = record
|
||||
Word0 : word;
|
||||
Word1 : word;
|
||||
Word2 : word;
|
||||
Word3 : word;
|
||||
end;
|
||||
|
||||
type DoubleByteRec = record
|
||||
Byte0 : byte;
|
||||
Byte1 : byte;
|
||||
Byte2 : byte;
|
||||
Byte3 : byte;
|
||||
Byte4 : byte;
|
||||
Byte5 : byte;
|
||||
Byte6 : byte;
|
||||
Byte7 : byte;
|
||||
end;
|
||||
|
||||
type DoublelongRec = record
|
||||
long0 : longint;
|
||||
long1 : longint;
|
||||
end;
|
||||
|
||||
type WordRec = record
|
||||
LowByte : byte;
|
||||
HighByte : byte;
|
||||
end;
|
||||
|
||||
Reference in New Issue
Block a user