home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 2
/
ctrom_ii_b.zip
/
ctrom_ii_b
/
PROGRAM
/
PASCAL
/
30TURUTL
/
GLOBTYPE.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1985-02-18
|
640b
|
21 lines
(* Global Declarations *)
Const
(* 8086/8088 hardware flags *)
Carry_Flag = 1;
Parity_Flag = 4;
Aux_Carry_Flag = 16;
Zero_Flag = 64;
Sign_Flag = 128;
Type
AnyStr = String[255] (* Matches any string for parameter passing *);
Regpack = Record (* 8086/8088 registers *)
Case Integer Of
1: ( Ax, Bx, Cx, Dx, Bp, Si, Di, Ds, Es, Flags : Integer );
2: ( Al, Ah, Bl, Bh, Cl, Ch, Dl, Dh : Byte );
End;