home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / WIH.ZIP / SIH_GLOB.INC < prev    next >
Encoding:
Text File  |  1987-02-01  |  896 b   |  17 lines
  1. Type
  2.    RegisterSet=Record Case Integer Of
  3.                   1: (AX,BX,CX,DX,BP,SI,DI,DS,ES,Flags: Integer);
  4.                   2: (AL,AH,BL,BH,CL,CH,DL,DH         : Byte);
  5.                 End;
  6. Var
  7.    Setup                : RegisterSet;
  8.    IntAX,IntBX,IntCX,IntDX,IntBP,IntSI,IntDI,IntDS,IntES,
  9.    IntFlags             : Integer;
  10.    Interupt_Registers   : RegisterSet Absolute IntAX;
  11. {Interupt_Registers must be Global so that they will be in the data segment
  12.  and can be accessed by any interupt handler or user procedure.
  13.  Local variables are in the stack segment which is not preserved.
  14.  Becuase they are global, however, it will be extra dangerous for one interupt
  15.  handler to call another.  To ensure that that will work,it may be necessary
  16.  to declare a second global register set.}
  17.