home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / teseract / source / tsint13.asm < prev    next >
Encoding:
Assembly Source File  |  1988-10-02  |  1.9 KB  |  65 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 tsint13.pub
  35. ENDIF
  36.  
  37. .MODEL small
  38.  
  39. .CODE
  40.  
  41. EXTRN TESS_GLOBALS:byte
  42. EXTRN TESS_USERPARMS:byte
  43.  
  44. PUBLIC newint13
  45.  
  46. ENDIF
  47.  
  48. newint13 proc far
  49.         ASSUMENODS
  50.         pushf
  51.         or      BPTR [INTFLAGS],ININT13 ;signal INT 13 busy ....
  52.         mov     BPTR [WASINT13],1
  53.         POPFF
  54.         pushf                           ;simulate interrupt ...
  55.         call    DPTR [OLDINT13]         ;do the original
  56.  
  57.         pushf
  58.         and     BPTR [INTFLAGS],NOT ININT13
  59.         POPFF
  60.         ret     2
  61.  
  62. newint13 endp
  63.  
  64. ENDIT
  65.