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