home *** CD-ROM | disk | FTP | other *** search
Modula Definition | 1991-09-23 | 1.6 KB | 56 lines |
- (*========================================================*)
- (* TSR.DEF *)
- (* Terminate-And-Stay-Resident-Bibliothek *)
- (* für Topspeed-Modula-2 V. 2.xx *)
- (* *)
- (* Copyright(C) 1991 P. Engels & DOS-toolbox *)
- (*========================================================*)
-
- DEFINITION MODULE TSR;
-
- FROM SYSTEM IMPORT A1;
-
- (*# save,
- call (near_call => off),
- data (near_ptr => off) *)
-
- TYPE
- InterruptRoutine = PROCEDURE;
- RegisterPtr = POINTER TO RECORD
- CASE : BOOLEAN OF
- | TRUE : ES, DS, DI, SI, BP, SP, BX, DX, CX, AX: CARDINAL;
- RetAdr : LONGCARD;
- Flags : BITSET
- | FALSE: d1, d2, d3, d4, d5, d6 : CARDINAL;
- BL, BH, DL, DH, CL, CH, AL, AH : SHORTCARD
- END
- END;
-
- (*# restore *)
-
- (*# call (inline => on) *)
-
- INLINE PROCEDURE PushF = A1 (09CH);
-
- (*# call (inline => off) *)
-
- PROCEDURE SSeg(): CARDINAL;
-
- PROCEDURE SOfs(): CARDINAL;
-
- PROCEDURE RegisterOfs(): CARDINAL;
-
- PROCEDURE GetInt(nr: SHORTCARD;
- VAR ISR: InterruptRoutine);
-
- PROCEDURE SetInt(nr: SHORTCARD; ISR: InterruptRoutine);
-
- PROCEDURE Keep(ReturnCode: SHORTCARD);
-
- PROCEDURE MakeResident(PopUp: PROC; HotKey: CARDINAL);
-
- END TSR.
-
- (*========================================================*)
- (* Ende von TSR.DEF *)