home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / teseract / source / tess_tp.asm < prev    next >
Encoding:
Assembly Source File  |  1988-10-02  |  4.9 KB  |  143 lines
  1.         PAGE 60,132
  2.         TITLE   TESS_TP.ASM - Surrounds TP4 version of TesSeRact
  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. .XLIST
  32.  
  33. TP4     EQU     1                       ;say we're using TP4
  34.  
  35. INCLUDE TESS.INC
  36. INCLUDE MIXED.INC
  37.  
  38. .model  small
  39.  
  40. .LIST
  41.  
  42. DATA    SEGMENT WORD PUBLIC             ;TP Data Segment
  43. DATA    ENDS
  44.  
  45. CODE    SEGMENT BYTE PUBLIC             ;TP Code Segment
  46.  
  47.         ASSUME  CS:CODE, DS:CODE, SS:NOTHING, ES:NOTHING
  48.  
  49. ;
  50. ; PUBLIC routines in TESSTP.TPU
  51. ;
  52.         PUBLIC  TSDOINIT, TSSETSTACK, TESSBEEP, TSCHECKRESIDENT
  53.         PUBLIC  TSENABLE, TSDISABLE, TSCALLUSERPROC, TSGETSTAT
  54.         PUBLIC  TSSETSTAT, TSRELEASE, TSGETPOPTYPE, TSSETADRTP4, FARRET
  55.         PUBLIC  TSRESTART, TSCHECKHOTKEY, TSSTUFFKEYBOARD
  56.         PUBLIC  TSTRIGGERPOP, TSTRIGGERBACK
  57. ;
  58. ; TsSetAdrTP4() procedure
  59. ;
  60. TSSETADRTP4 PROC FAR            ;sets user's addresses for unit to use
  61.                                 ;boolean function, true if set OK
  62.         PUSH    BP              ;added for TP4 by jk, 1-31-88
  63.         MOV     BP,SP
  64.         XOR     AX,AX           ;false flag for return
  65.         MOV     BX,[BP+6]       ;get index 0-5
  66.         CMP     BX,5
  67.         JA      badndx
  68.         SHL     BX,1            ;times 4 bytes per dword
  69.         SHL     BX,1
  70.         ADD     BX,OFFSET PTIMERPROC ;farjump table
  71.         MOV     AX,[BP+8]       ;get offset
  72.         MOV     CS:[BX],AX
  73.         MOV     AX,[BP+0Ah]     ;get segment
  74.         MOV     CS:[BX+2],AX
  75.         MOV     AX,1            ;true flag
  76. badndx: POP     BP
  77.         RET     6
  78.  
  79. FARRET  label   far             ;unit init code sets all to here...
  80.     ret
  81.  
  82.  
  83. ;
  84. ; Internal data areas for indirect calling needed
  85. ;
  86. PTIMERPROC      dd      0
  87. PBACKPROC       dd      0
  88. PMAIN           dd      0
  89. PBACKCHECK      dd      0
  90. PUSERPROC       dd      0
  91. PCLEANUP        dd      0
  92.  
  93. TSSETADRTP4 ENDP
  94.  
  95. ;
  96. ; TesSeRact Source code files
  97. ;
  98. INCLUDE TSINT2F.ASM                     ;globals are in here -- needs to be
  99.                                         ; near the top
  100.  
  101. INCLUDE TSINT13.ASM                     ;other interrupt handlers
  102. INCLUDE TSINT16.ASM
  103. INCLUDE TSINT1C.ASM
  104. INCLUDE TSINT21.ASM
  105. INCLUDE TSINT24.ASM
  106. INCLUDE TSINT28.ASM
  107. INCLUDE TSINT8.ASM
  108. INCLUDE TSINT9.ASM
  109.  
  110. INCLUDE TSPOPUP.ASM                     ;utility routines
  111. INCLUDE TSUTIL.ASM
  112. INCLUDE TSHOT.ASM
  113.  
  114. INCLUDE TSCHKRES.ASM                    ;int 2f, fn 00h - user routine
  115. INCLUDE TSGETPAR.ASM                    ;int 2f, fn 01h - user routine
  116. INCLUDE TSCHKHOT.ASM                    ;int 2f, fn 02h - user routine
  117. INCLUDE TSUSER24.ASM                    ;int 2f, fn 03h - user routine
  118. INCLUDE TSGETDAT.ASM                    ;int 2f, fn 04h - user routine
  119. INCLUDE TSSETHOT.ASM                    ;int 2f, fn 05h - user routine
  120.  
  121. INCLUDE TSENATSR.ASM                    ;int 2f, fn 10h - user routine
  122. INCLUDE TSDISTSR.ASM                    ;int 2f, fn 11h - user routine
  123. INCLUDE TSRELTSR.ASM                    ;int 2f, fn 12h - user routine
  124. INCLUDE TSRESTSR.ASM                    ;int 2f, fn 13h - user routine
  125. INCLUDE TSGETSTA.ASM                    ;int 2f, fn 14h - user routine
  126. INCLUDE TSSETSTA.ASM                    ;int 2f, fn 15h - user routine
  127. INCLUDE TSGETPOP.ASM                    ;int 2f, fn 16h - user routine
  128.  
  129. INCLUDE TSCALTSR.ASM                    ;int 2f, fn 20h - user routine
  130. INCLUDE TSSTUKBD.ASM                    ;int 2f, fn 21h - user routine
  131. INCLUDE TSTRIGPO.ASM                    ;int 2f, fn 22h - user routine
  132. INCLUDE TSTRIGBG.ASM                    ;int 2f, fn 23h - user routine
  133.  
  134. INCLUDE TSDOBEEP.ASM                    ;utility routine
  135.  
  136. INCLUDE TSINIT.ASM                      ;init routines should be at end
  137. INCLUDE TSSTACK.ASM
  138.  
  139.  
  140. CODE    ENDS
  141.  
  142.         END
  143.