Programmer 7500/MAX_PROGRAMMERS.iso/PASCAL/REGSET.ZIP/REGSET.PAS

Pascal/Delphi Source File | 1988-07-31 | 444 b | 11 lines

{ The register set type used for procedures Intr (16 bit), MsDos (MS-DOS),
  and BDos (CP/M-86).
  In this form, all the registers can be referred to as whole words, and
  those that are commonly referred to a byte at a time can also be used. }

  Type
    RegisterSet=Record 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;