home *** CD-ROM | disk | FTP | other *** search
- type
- { Registers record used by Intr and MsDos }
- Registers = record
- case Integer of
- 0: (AX,BX,CX,DX,BP,SI,DI,DS,ES,Flags: integer);
- {! 2. Instead use the Registers type from the Turbo 4.0 DOS uni^t.}
- 1: (AL,AH,BL,BH,CL,CH,DL,DH: Byte);
- end;
-