home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 02 / hyperkey / beginint.inc next >
Encoding:
Text File  |  1987-11-10  |  1.1 KB  |  20 lines
  1. (* ------------------------------------------------------------------------ *)
  2. (*                                BEGININT.INC                              *)
  3. (*            Inline-Anweisung zum Beginn der Interrupt-Routine             *)
  4. (* ------------------------------------------------------------------------ *)
  5. TYPE
  6.   PgmRegs_= RECORD CASE Integer OF
  7.               1: (PgmDs, PgmEs, PgmSi, PgmDi, PgmDx, PgmCx, PgmBx, PgmAx,
  8.                   PgmSp, PgmBp, PgmIp, PgmCs, PgmFlags            : INTEGER);
  9.               2: (PgmDsAlt, PgmEsAlt, PgmSiAlt, PgmDiAlt          : Integer;
  10.                   PgmDl, PgmDh, PgmCl, PgmCh, PgmBl, PgmBh,
  11.                   PgmAl, PgmAh                                    : Byte);
  12.             END;
  13. VAR
  14.   Dummy   : ARRAY [0..15] OF BYTE;  PgmRegs : PgmRegs_  ABSOLUTE Dummy;
  15. Begin
  16.   Inline ($FB/$83/$C4/$10/$50/$53/$51/$52/$57/
  17.           $56/$06/$1E/$2E/$A1/$A0/$00/$50/$1F);
  18. (* ------------------------------------------------------------------------ *)
  19. (*                          Ende von BEGININT.INC                           *)
  20.