home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / teseract / source / tsint2f.asm < prev    next >
Encoding:
Assembly Source File  |  1988-10-02  |  20.7 KB  |  648 lines
  1. IFNDEF TP4
  2.         PAGE 60,132
  3. ;----------------------------------------------------------------------------
  4. SUBTTL  TesSeRact Revision Level 1
  5. ;-----------------------------------------------------------------------------
  6. ;   TesSeRact(tm) -- A Library of Routines for Creating Ram-Resident (TSR)
  7. ;                    programs for the IBM PC and compatible Personal
  8. ;                    Computers.
  9. ;
  10. ;The software, documentation and source code are: 
  11. ; 
  12. ;       Copyright (C) 1986, 1987, 1988 TesSeRact Development Team
  13. ;       All Rights Reserved 
  14. ; 
  15. ;       c/o Chip Rabinowitz
  16. ;       Innovative Data Concepts
  17. ;       2084 Woodlawn Avenue
  18. ;       Glenside, PA 19038
  19. ;       1-215-884-3373
  20. ;
  21. ;-----------------------------------------------------------------------------
  22. ;   This product supports the TesSeRact Standard for Ram-Resident Program 
  23. ;   Communication.  For information about TesSeRact, contact the TesSeRact 
  24. ;   Development Team at:
  25. ;       Compuserve:    70731,20
  26. ;       MCIMAIL:       315-5415
  27. ;   This MCIMAIL Account has been provided to the TesSeRact Development
  28. ;   Team by Borland International, Inc.  The TesSeRact Development Team
  29. ;   is in no way associated with Borland International, Inc.
  30. ;-----------------------------------------------------------------------------
  31.  
  32. INCLUDE TESS.INC
  33. IFDEF   ALLPUBLIC
  34. INCLUDE tsint2f.pub
  35. ENDIF
  36.  
  37. .MODEL small
  38.  
  39. EXTRN TSRUSERPROC:FAR
  40.  
  41. .CODE
  42.  
  43. ;
  44.  
  45. EXTRN _TESSSTOREKEYS:near
  46. EXTRN newint8:dword
  47. EXTRN newint9:dword
  48. EXTRN newint13:dword
  49. EXTRN newint16:dword
  50. EXTRN newint1C:dword
  51. EXTRN newint21:dword
  52. EXTRN newint28:dword
  53. EXTRN _TESSBACKGROUND:near
  54. ;
  55. ; external declarations for popup interrupt vectors
  56. ;
  57. EXTRN _TESS_INTERRUPTRETURN:near
  58. EXTRN newint24:dword
  59.  
  60.  
  61. PUBLIC TESS_GLOBALS, newint2F, TESS_USERPARMS, _TESS_CPYRT, _TESS_ENDOFDATA
  62. ;PUBLIC oldint8, oldint9, oldint13, oldint16, oldint1C, oldint21, oldint28
  63. ;PUBLIC oldint2F, oldint1B, oldint24
  64.  
  65. ENDIF
  66.  
  67. ;-----------------------------------------------------------------------------
  68.  
  69. stopsnoops      db      1bh,'[2J',1ah,0   ;ANSI Clear Screen
  70.  
  71. TESS_GLOBALS equ this byte
  72.  
  73. RevLvl          db      1       ;revision level of TesSeRact Product
  74.  
  75. SaveIndosPop    db      0       ;Type of Popup in use
  76.  
  77. Was8            db      0       ;Int 8 occurred
  78.  
  79. Was13           db      0       ;Int 13 occurred
  80.  
  81. intflags        db      0       ;which interrupts are active
  82.  
  83. Soft_Int_flags  db      0       ;Soft interrupts are active
  84.  
  85. dosversion      db      0       ;current version of DOS
  86.  
  87. waitcount       db      0       ;wait to activate count
  88.  
  89. InDosflag       dd      0       ;Pointer to INDOS flag
  90.  
  91. DosCritErr      dd      0       ;Pointer to DOS Critical Error Flag
  92.  
  93. UserPSP         dw      0       ;PSP segment of interrupted program
  94.  
  95. User28PSP       dw      0       ;PSP segment of interrupted program
  96.  
  97. UserDTA         dd      0       ;DTA of interrupt program
  98.  
  99. User28DTA       dd      0       ;DTA of interrupt program
  100.  
  101. UserSS          dw      0       ;Interrupted Stack Segment
  102.  
  103. UserSP          dw      0       ;Interrupt Stack Pointer
  104.  
  105. ss28            dw      0       ;interrupt stack segment during INT 28
  106.  
  107. sp28            dw      0       ;interrupt stack pointer during INT 28
  108.  
  109. UserInt24       dd      0       ;location to store pointer to user's INT 24
  110.  
  111. ; ***************************************************************************
  112. ;       It is necessary to temporarily steal the INT 9 vector on popup
  113. ;           to work in the Microsoft QuickBasic and QuickC Programming
  114. ;           environments.
  115. ;
  116.  
  117. ;SavedInt9       dd      0       ;additional interrupt 9 vector
  118. ;
  119. OldExtErr       dw      3 dup (0) ;AX,BX,CX of ext err    ;v0.51
  120.  
  121. OldBreak        db      0       ;Saved Ctrl Break setting               ;v0.51
  122.  
  123. OldVerify       db      0       ;Saved Write Verify setting             ;v0.51
  124.  
  125. InWord4         db      0       ;flag to indicate in Word 4.0!!
  126.  
  127. WasWord4        db      0       ;flag to indicate word 4.0 popup
  128.  
  129. New_kybd_flag   db      0       ; x'10' indicates an enhanced keyboard function
  130.  
  131. Word4Delay      db      0       ;delay counter for second popup during word 4
  132.  
  133. ;
  134. ; ***************************************************************************
  135. ;       These are the bios interrupt vectors
  136. ; ***************************************************************************
  137. ;
  138. ; ***************************************************************************
  139. ;       We take Interrupts 08h, 09h, 13h, 16h, 1Ch, 21h, 28h and 2Fh
  140. ;           when we initialize for the first time.
  141. ;
  142.  
  143. oldint8         dd      0       ;BIOS Hardware Timer Interrupt
  144.                 db      BIOSI8
  145.                 dw      offset newint8  ;replacement vector
  146. oldint9         dd      0       ;BIOS Hardware Keyboard Interrupt
  147.                 db      BIOSI9   
  148.                 dw      offset newint9  ;replacement vector
  149. oldint13        dd      0       ;BIOS Disk Interrupt
  150.                 db      BIOSI13
  151.                 dw      offset newint13 ;replacement vector
  152. oldint16        dd      0       ;BIOS Software Keyboard Interrupt
  153.                 db      BIOSI16
  154.                 dw      offset newint16 ;replacement vector
  155. oldint1C        dd      0       ;BIOS Software Timer interrupt
  156.                 db      BIOSI1C
  157.                 dw      offset newint1C ;replacement vector
  158. oldint21        dd      0       ;DOS Services Interrupt
  159.                 db      DOSI21
  160.                 dw      offset newint21 ;replacement vector
  161. oldint28        dd      0       ;DOS Idle Interrupt
  162.                 db      DOSI28
  163.                 dw      offset newint28 ;replacement vector
  164. oldint2F        dd      0       ;DOS Multiplex Interrupt
  165.                 db      DOSI2F
  166.                 dw      offset newint2F ;replacement vector
  167. ;
  168. ; ***************************************************************************
  169. ;       We take Interrupts 1Bh, 23h, 24h on popup, and restore them on
  170. ;           popdown.
  171. ;
  172.  
  173. oldint1B        dd      0       ;control-C vector
  174.                 db      BIOSI1B
  175.                 dw      offset _TESS_INTERRUPTRETURN   ;replacement vector
  176. oldint23        dd      0       ;control-C vector
  177.                 db      DOSI23
  178.                 dw      offset _TESS_INTERRUPTRETURN   ;replacement vector
  179. oldint24        dd      0       ;critical error vector
  180.                 db      DOSI24
  181.                 dw      offset newint24 ;replacement vector
  182.  
  183. ;
  184. ; ***************************************************************************
  185. ;       These interrupts are taken if the user requests additional
  186. ;           interrupt servicing: 05h, 10h, 14h, 15, 17h
  187. ;
  188.  
  189. ;oldint5        dd      0       ;BIOS PrintScreen Interrupt
  190. ;               db      BIOSI5
  191. ;               dw      offset newint5 ;replacement vector
  192. ;oldint10       dd      0       ;BIOS Video Interrupt
  193. ;               db      BIOSI10
  194. ;               dw      offset newint10 ;replacement vector
  195. ;oldint14       dd      0       ;BIOS Communications Interrupt
  196. ;               db      BIOSI14
  197. ;               dw      offset newint14 ;replacement vector
  198. ;oldint15       dd      0       ;BIOS Cassette and Misc. Interrupt
  199. ;               db      BIOSI15
  200. ;               dw      offset newint15 ;replacement vector
  201. ;oldint17       dd      0       ;BIOS Printer Interrupt
  202. ;               db      BIOSI17
  203. ;               dw      offset newint17 ;replacement vector
  204. ;
  205.  
  206. ;
  207. ;
  208.  
  209. newint2F        proc    far
  210.  
  211.         ASSUMENODS
  212.         jmp     overparms
  213.  
  214. ; ***************************************************************************
  215. ;       The UserParms vector points to structure that contains individual
  216. ;           information about the TSR vectors used by this program.
  217. ;           The format of this structure is as follows:
  218. ;       IDCODE  db      8 dup (0);eight-byte unique ASCII identification code
  219. ;       IDNUM   dw      0       ;internal identification number
  220. ;       FUNCFLG dd      0       ;Bit-map of supported functions
  221. ;       HOTKEY  db      0       ;scan code of TSR Activation Key
  222. ;       SHIFTST db      0       ;shift state of TSR Activation
  223. ;       EXTHOT  dd      0       ;pointer to extra hot keys
  224. ;       STATUS  dw      0       ;TSR Status Flags
  225. ;       OURPSP  dw      0       ;TSR's PSP segment
  226. ;       OURDTA  dd      0       ;TSR's DTA region
  227. ;       DSEG    dw      0       ;Default Data Segment of TSR Program
  228. ;       SSSP    dd      0       ;TsrMain Stack Segment & Pointer
  229. ;       SS28SP  dd      0       ;TsrBackProc Stack Segment & Pointer
  230. ;
  231. ;
  232. ;       The 'FUNCFLG' variable contains a bit map of all supported 
  233. ;           functions using this multiplex interrupt.  This is primarily
  234. ;           designed to be used by TSRs that do not use the TESS library,
  235. ;           but intend to support the standard method of TSR communication
  236. ;           through INT 2fh.  The FUNCFLG variable is mapped as follows:
  237. ;           
  238. ;           Bit 0       Function 0h (check install -- REQUIRED)
  239. ;           Bit 1       Function 1h (return userparms -- REQUIRED)
  240. ;           Bit 2       Function 2h (check hotkey)
  241. ;           Bit 3       Function 3h (replace INT 24h)
  242. ;           Bits 4-7    Undefined -- reserved for future use
  243. ;           Bit 8       Function 10h (enable TSR)
  244. ;           Bit 9       Function 11h (disable TSR)
  245. ;           Bit 10      Function 12h (release TSR from RAM)
  246. ;           Bit 11      Function 13h (restart TSR)
  247. ;           Bit 12      Function 14h (get current status)
  248. ;           Bit 13      Function 15h (set TSR status)
  249. ;           Bit 14      Function 16h (get popup type)
  250. ;           Bit 15      Undefined -- reserved for future use
  251. ;           Bit 16      Function 20h (Call user procedure)
  252. ;           Bit 17      Function 21h (stuff keyboard)
  253. ;           Bits 18-31  Undefined -- reserved for future use
  254. ;
  255. ;       The 'WAS8' and 'WAS13' bytes are for the developer's convenience.
  256. ;           They are set by the TesSeRact Interrupt Handlers, but are never 
  257. ;           cleared.  It is the developer's resposibility to clear these
  258. ;           bytes if they are to be used.
  259. ;
  260. TESS_USERPARMS equ this byte
  261.  
  262. UserParms       db      8 dup (0)
  263.         IdNum   dw      0               ;TSR Identification Number
  264.         FuncFlg dd      0ffffffffh      ;supported functions
  265.         HotKey  db      0               ;Scan code of hotkey to use
  266.         ShiftSt db      0               ;shift state to use for popup
  267.         HotFlag db      0               ;Which hotkey is in use
  268.         ExtCnt  db      0               ;number of extra hotkeys
  269.         ExtHot  dd      0               ;pointer to extra hot keys
  270.         Status  dw      0               ;TSR status flags
  271.         OurPSP  dw      0               ;our PSP segment
  272.         OurDTA  dd      0               ;our DTA region
  273.         DSeg    dw      0               ;User's Default Data Segment
  274.         sssp    dd      0               ;TsrMain Stack Segment & Pointer
  275.         ss28sp  dd      0               ;TsrBackProc Stack Segment & Pointer
  276.  
  277. IFNDEF NOCKSUM
  278.  
  279. _TESS_ENDOFDATA equ this byte
  280.  
  281. cpyrt   db      'TesSeRact(tm) Library, Version ',VER
  282. IFDEF   TP4
  283. IFNDEF  ASMCOM
  284.         db      ' (TP4)'
  285. ELSE
  286.         db      ' (ASM)'
  287. ENDIF
  288. ELSE
  289.         db      ' (LIB)'
  290. ENDIF
  291.         db      0dh,0ah
  292.  
  293. _TESS_CPYRT equ this byte
  294.  
  295. cpyrt1  db      'Copyright (c) 1986, 1987, 1988 TesSeRact Development Team'
  296.         db      0dh,0ah,'All Rights Reserved',0dh,0ah,0
  297. ELSE
  298.  
  299. _TESS_ENDOFDATA equ this byte
  300. _TESS_CPYRT equ this byte
  301.  
  302. ENDIF
  303.  
  304. jmptbl:
  305. ;
  306. ;       Functions 00h through 0fh are initialization & information
  307. ;           routines
  308. ;
  309.         dw      offset check_install    ;fn 00h
  310.         dw      offset return_userparms ;fn 01h
  311.         dw      offset check_hotkey     ;fn 02h
  312.         dw      offset replace_int24    ;fn 03h
  313.         dw      offset return_data      ;fn 04h
  314.         dw      offset setextrahot      ;fn 05h
  315.         dw      offset get_out_2f       ;fn 06h
  316.         dw      offset get_out_2f       ;fn 07h
  317.         dw      offset get_out_2f       ;fn 08h
  318.         dw      offset get_out_2f       ;fn 09h
  319.         dw      offset get_out_2f       ;fn 0ah
  320.         dw      offset get_out_2f       ;fn 0bh
  321.         dw      offset get_out_2f       ;fn 0ch
  322.         dw      offset get_out_2f       ;fn 0dh
  323.         dw      offset get_out_2f       ;fn 0eh
  324.         dw      offset get_out_2f       ;fn 0fh
  325.  
  326.  
  327. ;
  328. ;       Functions 10h through 1fh are TSR manipulation & status routines
  329. ;
  330.         dw      offset enable_tsr       ;fn 10h
  331.         dw      offset disable_tsr      ;fn 11h
  332.         dw      offset release_tsr_mem  ;fn 12h
  333.         dw      offset restart_tsr      ;fn 13h
  334.         dw      offset get_tsr_stat     ;fn 14h
  335.         dw      offset set_tsr_stat     ;fn 15h
  336.         dw      offset get_popup_type   ;fn 16h
  337.         dw      offset get_out_2f       ;fn 17h
  338.         dw      offset get_out_2f       ;fn 18h
  339.         dw      offset get_out_2f       ;fn 19h
  340.         dw      offset get_out_2f       ;fn 1ah
  341.         dw      offset get_out_2f       ;fn 1bh
  342.         dw      offset get_out_2f       ;fn 1ch
  343.         dw      offset get_out_2f       ;fn 1dh
  344.         dw      offset get_out_2f       ;fn 1eh
  345.         dw      offset get_out_2f       ;fn 1fh
  346.  
  347.  
  348. ;
  349. ;       Functions 20h through 2fh are TSR utility routines
  350. ;
  351.         dw      offset call_user_proc   ;fn 20h
  352.         dw      offset stuff_keyboard   ;fn 21h
  353.         dw      offset trigger_pop      ;fn 22h
  354.         dw      offset trigger_back     ;fn 23h
  355.         dw      offset get_out_2f       ;fn 24h
  356.         dw      offset get_out_2f       ;fn 25h
  357.         dw      offset get_out_2f       ;fn 26h
  358.         dw      offset get_out_2f       ;fn 27h
  359.         dw      offset get_out_2f       ;fn 28h
  360.         dw      offset get_out_2f       ;fn 29h
  361.         dw      offset get_out_2f       ;fn 2ah
  362.         dw      offset get_out_2f       ;fn 2bh
  363.         dw      offset get_out_2f       ;fn 2ch
  364.         dw      offset get_out_2f       ;fn 2dh
  365.         dw      offset get_out_2f       ;fn 2eh
  366.         dw      offset get_out_2f       ;fn 2fh
  367.  
  368.  
  369. MAXENT  equ 2fh
  370.  
  371. ;
  372. ;  exit routines
  373. ;
  374. finish_2f:
  375.         add     sp,4                    ;get rid of two words on stack
  376.         xor     ax,ax                   ;clear AX to show we got it
  377. done_2f:
  378.         iret
  379.  
  380. next_one:
  381.         inc     cx                      ;try next higher ID code
  382. get_out_2f:
  383.         pop     bx
  384.         pop     ax
  385.  
  386. not_our_2f:
  387.         jmp     DPTR [oldint2F]
  388.  
  389.  
  390. overparms:
  391.         cmp     ax,5453h                ;ax = 5453h for TesSeRact multiplex
  392.         jne     not_our_2f
  393.  
  394.         cmp     bx,MAXENT
  395.         ja      not_our_2f
  396.  
  397.         push    ax
  398.         push    bx
  399.  
  400.         or      bx,bx                   ;do check for install first,
  401.         jz      check_install           ;so we can check ID number only
  402.                                         ;one time!
  403.  
  404.         cmp     bx,2
  405.         je      check_hotkey            ;also skip ID check for hotkey
  406.  
  407.         cmp     cx,WPTR [IDNUM]         ;if it's not for us, don't
  408.         jne     get_out_2f              ;even bother going through jump
  409.                                         ;table!
  410.  
  411.         shl     bx,1
  412.         add     bx,offset jmptbl
  413.  
  414.         jmp     cs:[bx]
  415.  
  416. check_install:
  417.                                         ;DS:SI points to ID string
  418.                                         ;DI contains hotkey for check
  419.                                         ;CX is current number in chain
  420.                                         ;   must be 0 from caller
  421.         push    cx
  422.  
  423.         push    si                      ;save SI for next one
  424.         
  425.         lea     di,[USERPARMS]
  426.         push    cs
  427.         pop     es
  428.         mov     cx,8
  429.  
  430.         rep     cmpsb
  431.  
  432.         pop     si
  433.  
  434.         pop     cx
  435.         jnz     next_one                ;no match, not us
  436.  
  437.         pop     bx
  438.         pop     ax
  439.  
  440.         mov     cx,es:[di]              ;return ID number in CX
  441.  
  442.         test    WPTR [STATUS],TSRRELEASED
  443.         jz      return_idnum
  444.  
  445.  
  446.         or      cx,0ff00h               ;say we're released!
  447.  
  448. return_idnum:
  449.  
  450.         xor     ax,ax
  451.         dec     ax                      ;AX=-1 means already here
  452.         jmp     short done_2f
  453.  
  454. ;
  455. ; Function 01h
  456. ;
  457. return_userparms:
  458.         lea     bx,[USERPARMS]
  459.         push    cs
  460.         pop     es                      ;ES:BX points to UserParms
  461.         jmp     finish_2f
  462. ;
  463. ; function 02h
  464. ;
  465. check_hotkey:
  466.         cmp     cl,BPTR HOTKEY          ;is it our hotkey?
  467.         jne     get_out_2f              ;nope -- try next one down
  468.         xor     ax,ax
  469.         dec     ax                      ;AX=-1 means key is in use
  470.         add     sp,4                    ;get rid of two words on stack
  471.         jmp     done_2f
  472.  
  473. ;
  474. ; Function 03h
  475. ;
  476. replace_int24:                          ;DS:SI points to user routine
  477.         mov     WPTR [USERINT24],si
  478.         mov     ax,ds
  479.         mov     WPTR [USERINT24+2],ax
  480.         or      WPTR [STATUS],EXTRAINT24        ;turn on the flag
  481.         jmp     finish_2f
  482.  
  483. ;
  484. ; Function 04h
  485. ;
  486. return_data:
  487.         lea     bx,[REVLVL]
  488.         push    cs
  489.         pop     es                      ;ES:BX points to TESS_GLOBALS
  490.         jmp     finish_2f
  491.  
  492. ;
  493. ; Function 05h
  494. ;
  495. setextrahot:                            ;ds:si points to new keys
  496.                                         ;dl contains count of keys
  497.         mov     WPTR [EXTRAHOTK],si
  498.         mov     ax,ds
  499.         mov     WPTR [EXTRAHOTK+2],ax
  500.         mov     BPTR [HOTCOUNT],dl
  501.         or      WPTR [STATUS],EXTRAHOTSET       ;turn on the flag
  502.         jmp     finish_2f
  503.  
  504. ;
  505. ; function 10h
  506. ;
  507. enable_tsr:
  508.         or      WPTR [STATUS],TSRENABLED
  509.         jmp     finish_2f
  510.  
  511. ;
  512. ; function 11h
  513. ;
  514. disable_tsr:
  515.         and     WPTR [STATUS],NOT TSRENABLED
  516.         jmp     finish_2f
  517.  
  518. ;
  519. ; function 12h
  520. ;
  521. release_tsr_mem:
  522.         and     WPTR [STATUS],NOT TSRENABLED
  523.         test    WPTR [STATUS],TSRACTIVE
  524.         jnz     was_active
  525.  
  526.         or      WPTR [STATUS],HOTKEYON+POPUPSET
  527. was_active:
  528.         or      WPTR [STATUS],TSRRELEASED
  529.         jmp     finish_2f
  530.  
  531. ;
  532. ; function 13h
  533. ;
  534. restart_tsr:
  535.         and     WPTR [STATUS],NOT TSRRELEASED+HOTKEYON
  536.         or      WPTR [STATUS],TSRENABLED
  537.         jmp     finish_2f
  538.  
  539. ;
  540. ; function 14h
  541. ;
  542. get_tsr_stat:
  543.         mov     bx,WPTR [STATUS]
  544.         jmp     finish_2f
  545.         
  546. ;
  547. ; function 15h
  548. ;
  549. set_tsr_stat:
  550.         mov     WPTR [STATUS],dx
  551.         jmp     finish_2f
  552. ;
  553. ; function 16h
  554. ;
  555. get_popup_type:
  556.         test    WPTR [STATUS],TSRACTIVE
  557.         jnz     get_type_2
  558.         jmp     get_out_2f
  559.  
  560. get_type_2:
  561.         mov     bl,BPTR [SAVEDINDOSFLG]
  562.         xor     bh,bh
  563.         jmp     finish_2f
  564.  
  565. ;
  566. ; function 20h
  567. ;
  568. call_user_proc:
  569.         test    WPTR [STATUS],USERPROCON
  570.         jnz     skip1
  571.         jmp     get_out_2f
  572. skip1:
  573.         test    WPTR [STATUS],INT28ACTIVE       ;wait until INT28 is finished
  574.         jnz     call_user_proc
  575.  
  576.         or      WPTR [STATUS],INT28ACTIVE       ;say int28 is busy
  577.  
  578.         cli
  579.         mov     WPTR [USER28SS],ss              ;save user's stack segment
  580.         mov     WPTR [USER28SP],sp              ;... and stack pointer
  581.  
  582.         mov     ss,WPTR [OUR28SP+2]     ;load TSR stack segment ...
  583.         mov     sp,WPTR [OUR28SP]       ;... and stack pointer
  584.  
  585.         sti
  586.  
  587.         push    ds
  588.         mov     ax,WPTR [OURDSEG]
  589.         mov     ds,ax
  590.  
  591. IFNDEF ASMCOM
  592.         push    es
  593.         push    di                      ;push user pointer on stack
  594. ENDIF
  595.  
  596. IFDEF   TP4
  597. IFNDEF  ASMCOM
  598.         call    DPTR PUSERPROC  ;call user routine (TP4 version)
  599. ELSE
  600.         call    TSRUSERPROC             ;call user routine
  601. ENDIF
  602.  
  603. ELSE
  604.         call    TSRUSERPROC             ;call user routine
  605. ENDIF
  606.  
  607.         pop     ds
  608.  
  609.         cli
  610.         mov     ss,WPTR [USER28SS]      ;restore user's stack segment
  611.         mov     sp,WPTR [USER28SP]      ;... and stack pointer
  612.         sti                             ;enable interrupts again
  613.  
  614.         and     WPTR [STATUS],NOT INT28ACTIVE   ;say int28 is finished
  615.  
  616.         jmp     finish_2f
  617.  
  618. ;
  619. ; Function 21h
  620. ;
  621. stuff_keyboard:
  622.         call    _TESSSTOREKEYS
  623.  
  624.         add     sp,4                    ;get rid of two words on stack
  625.         jmp     done_2f                 ;return with value from _TESSSTOREKEYS
  626.                                         ; 0 if stuffed, -1 if no room
  627.  
  628. ;
  629. ; function 22h
  630. ;
  631. trigger_pop:
  632.         or      WPTR [STATUS],HOTKEYON + SHIFTSON
  633.         jmp     finish_2f
  634.  
  635. ;
  636. ; function 23h
  637. ;
  638. trigger_back:
  639.     call    _TESSBACKGROUND
  640.         add     sp,4                    ;get rid of two words on stack
  641.         jmp     done_2f                 ;return with value from _TESSBACKGROUND
  642.                                         ; 0 if called, -1 if not safe
  643.  
  644.  
  645. newint2F        endp
  646.  
  647. ENDIT
  648.