home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / teseract / source / tsint21.asm < prev    next >
Encoding:
Assembly Source File  |  1988-10-02  |  5.5 KB  |  163 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 tsint21.pub     ;public definitions (uses Periscope PUBLIC.COM /E)
  35. ENDIF
  36.  
  37. .MODEL small
  38. .CODE
  39.  
  40. EXTRN TESS_GLOBALS:byte
  41. EXTRN TESS_USERPARMS:byte
  42.  
  43. PUBLIC newint21
  44.  
  45. ENDIF
  46.  
  47. ;
  48. ;
  49. ; ***************************************************************************
  50. ;       This table marks those INT 21 functions which must be passed
  51. ;       without modification. They either never return, fetch parameters
  52. ;       from the stack, or may not be interrupted by a TSR
  53. ;
  54.  
  55. IFNDEF TP4
  56. EVEN
  57. ELSE
  58. IFDEF ASMCOM
  59. EVEN
  60. ENDIF
  61. db 0
  62. ENDIF
  63.  
  64. dos21funcs:
  65.         db      0,      0,      0,      0,      0,      0,      0,      0       ;0-7
  66.         db      0,      0,      0,      0,      0,      0ffh,   0ffh,   0ffh    ;8-f
  67.         db      0ffh,   0ffh,   0ffh,   0ffh,   0ffh,   0ffh,   0ffh,   0ffh    ;10-17
  68.         db      0ffh,   0ffh,   0ffh,   0ffh,   0ffh,   0ffh,   0ffh,   0ffh    ;18-1f
  69.         db      0ffh,   0ffh,   0ffh,   0ffh,   0ffh,   0ffh,   0,      0ffh    ;20-27
  70.         db      0ffh,   0ffh,   0ffh,   0ffh,   0ffh,   0ffh,   0ffh,   0       ;28-2f
  71.         db      0ffh,   0,      0,      0,      0,      0,      0ffh,   0ffh    ;30-37
  72.         db      0ffh,   0ffh,   0ffh,   0ffh,   0ffh,   0ffh,   0ffh,   0ffh    ;38-3f
  73.         db      0ffh,   0ffh,   0ffh,   0ffh,   0ffh,   0ffh,   0ffh,   0ffh    ;40-47
  74.         db      0,      0,      0,      0,      0,      0,      0ffh,   0ffh    ;48-4f **
  75.         db      0,      0,      0,      0,      0ffh,   0,      0ffh,   0ffh    ;50-57
  76.         db      0,      0ffh,   0ffh,   0ffh,   0ffh,   0ffh,   0,      0       ;58-5f
  77.         db      0ffh,   0ffh,   0ffh,   0ffh,   0ffh,   0ffh,   0ffh,   0ffh    ;60-67
  78.  
  79. ;--------------------------------------------------------------;        ;v0.51
  80. ; Interrupt 21 gate: If interrupt function table contains      ;        ;v0.51
  81. ; FFh, then do not allow function to be interrupted by TESS    ;        ;v0.51
  82. ;--------------------------------------------------------------;        ;v0.51
  83. newint21 proc far
  84.         ASSUMENODS
  85.  
  86.         pushf
  87.         cli                             ;don't allow interrupts
  88.  
  89.         test    BPTR [INTFLAGS],ININT21 ;are we already here?
  90.         jz      can_process             ;nope
  91.  
  92.         cmp     ah,0ah                  ;is this the command line?
  93.         jne     notme                   ;nope .. continue
  94.  
  95.         and     BPTR [INTFLAGS],NOT ININT21     ;we broke out of something with
  96.         and     BPTR [SOFTINTFLAGS],NOT ININT08
  97.                                         ;^C, so clear our flag and continue
  98.                                         ;processing
  99. can_process:
  100.         cmp     ah,63h                  ;max number
  101.         ja      notme
  102.         push    ax                      ;some INT21 functions must be left
  103.         push    bx                      ;...alone.  They either never return,
  104.         mov     bx,offset dos21funcs    ;...grab parameters from the stack
  105.         mov     al,ah                   ;...or can be interrupted.
  106.         xlat    BPTR dos21funcs         ;test function against table
  107.         or      al,al                   ;functions marked 0 may be interrupted ;v0.51
  108.         pop     bx                      ;these ,ust be left alone
  109.         pop     ax
  110. ;       jz      notme                   ;jump to original INT21
  111.         jnz     set_21
  112. notme:
  113.     test    WPTR [STATUS], TSRACTIVE
  114.     jz    old_21
  115.  
  116.     cmp    [SAVEDINDOSFLG],1
  117.     jne    old_21
  118.  
  119.     cmp    ah,0ch
  120.     ja    old_21
  121.  
  122.     or    ah,ah
  123.     jz    old_21
  124.  
  125.     push    es
  126.     push    di
  127.     push    ax
  128.  
  129.         les     di,DPTR [DOSCRITERR]
  130.  
  131.     mov    ax,-1
  132.     stosb
  133.  
  134.     pop    ax
  135.     pop    di
  136.     pop    es
  137.  
  138.     jmp    set_21
  139.  
  140. old_21:
  141.         POPFF
  142.         jmp     DPTR [OLDINT21]
  143.  
  144. set_21:
  145.         or      BPTR [INTFLAGS],ININT21 ;say int21 is active
  146.  
  147. no_console:
  148.         POPFF                           ;get original flags back
  149.         pushf                           ;simulate interrupt ...
  150.  
  151.         call    DPTR [OLDINT21] ;now do the original interrupt 21
  152.  
  153.         pushf
  154. end_21:
  155.         and     BPTR [INTFLAGS],NOT ININT21     ;say int21 is not active
  156.         POPFF
  157.         sti                             ;make sure ints are enabled!
  158.         ret     2                       ;return with flags set
  159.  
  160. newint21 endp
  161.  
  162. ENDIT
  163.