home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / teseract / source / tsstack.asm < prev    next >
Encoding:
Assembly Source File  |  1988-10-02  |  2.6 KB  |  100 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. INCLUDE mixed.inc
  34.  
  35. .MODEL small
  36. .CODE
  37.  
  38. EXTRN TESS_USERPARMS:byte
  39.  
  40. ENDIF
  41.  
  42. IFNDEF ASMCOM
  43.  
  44. hProc <TSSETSTACK FAR> PopStack:dword, BackStack:dword
  45.  
  46. ELSE
  47.  
  48. PUBLIC TSSETSTACK 
  49. TSSETSTACK proc near
  50. ;
  51. ;       in the assembler version, CS=DS=ES, and DI=offset of Popup Stack,
  52. ;       and SI = offset of background stack.
  53. ;
  54.  
  55. ENDIF
  56.  
  57.         ASSUMENODS
  58.  
  59. IFNDEF ASMCOM
  60.         les     bx,PopStack             ;load stack for popup
  61. ELSE
  62.         push    cs
  63.         pop     es
  64.         mov     bx,di
  65. ENDIF
  66.         or      bx,bx                   ;is it NULL?
  67.         jnz     not_default
  68.  
  69.         mov     WPTR [OURSSSP],sp       ;if so, use current SS:SP for
  70.         mov     WPTR [OURSSSP+2],ss     ;  popup stack
  71.         jmp     short get_back_stack
  72.  
  73. not_default:
  74.     and    bx,0fffeh        ;make sure it's even
  75.         mov     WPTR [OURSSSP],bx       ;else use passed pointer
  76.         mov     WPTR [OURSSSP+2],es
  77.  
  78. get_back_stack:
  79. IFNDEF ASMCOM
  80.         les     bx,BackStack            ;load stack pointer for background
  81. ELSE
  82.         mov     bx,si
  83. ENDIF
  84.     and    bx,0fffeh        ;make sure it's even
  85.         mov     WPTR [OUR28SP],bx       ;store it
  86.         mov     WPTR [OUR28SP+2],es
  87.  
  88. IFNDEF ASMCOM
  89.  
  90.         hRet
  91. hEndp
  92.  
  93. ELSE
  94.         ret
  95. TSSETSTACK endp
  96.  
  97. ENDIF
  98.  
  99. ENDIT
  100.