home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / teseract / source / tsgetpar.asm < prev    next >
Encoding:
Assembly Source File  |  1988-10-02  |  1.9 KB  |  67 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. ;       Copyright (C) 1986, 1987, 1988 Tesseract Development Team
  12. ;       All Rights Reserved 
  13. ;       c/o Chip Rabinowitz
  14. ;       Innovative Data Concepts
  15. ;       2084 Woodlawn Avenue
  16. ;       Glenside, PA 19038
  17. ;       1-215-884-3373
  18. ;
  19. ;-----------------------------------------------------------------------------
  20. ;   This product supports the TesSeRact Standard for Ram-Resident Program 
  21. ;   Communication.  For information about TesSeRact, contact the TesSeRact 
  22. ;   Development Team at:
  23. ;       Compuserve:    70731,20
  24. ;       MCIMAIL:       315-5415
  25. ;   This MCIMAIL Account has been provided to the TesSeRact Development
  26. ;   Team by Borland International, Inc.  The TesSeRact Development Team
  27. ;   is in no way associated with Borland International, Inc.
  28. ;-----------------------------------------------------------------------------
  29.  
  30. INCLUDE TESS.INC
  31. INCLUDE mixed.inc
  32.  
  33. .MODEL small
  34. .CODE
  35.  
  36. ENDIF
  37.  
  38. hProc <TSGETPARMS FAR> TsrIdNum:word
  39.  
  40.         ASSUMENODS
  41.         mov     cx,TsrIdNum
  42.         mov     bx,01h
  43.         mov     ax,5453h                ;multiplex function 01h
  44.         int     2fh
  45.  
  46.         or      ax,ax
  47.         jnz     no_parms
  48.  
  49.         mov     ax,es
  50.         mov     dx,ax                   ;return pointer in DX:AX
  51.  
  52.         mov     ax,bx
  53.         jmp     short parms_out
  54.  
  55. no_parms:
  56.         xor     ax,ax
  57.         mov     dx,ax                   ;return NULL if not available
  58.         
  59. parms_out:
  60.         hRet
  61. hEndp
  62.  
  63. ENDIT
  64.  
  65.