home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l170 / 3.ddi / ABSOLUTE.ASM next >
Encoding:
Assembly Source File  |  1991-01-29  |  4.3 KB  |  119 lines
  1.         TITLE   ABSOLUTE - helper for assembly routines
  2. ;***
  3. ; ABSOLUTE - Helper for calling BASIC interpreter assembly routines
  4. ;
  5. ;       Copyright <C> 1986, Microsoft Corporation
  6. ;
  7. ;Purpose:
  8. ; Allow a BASIC program to call a routine which is located at an
  9. ; absolute memory address in the DEF SEG.
  10. ;
  11. ; The form of the call is:
  12. ;
  13. ;       CALL ABSOLUTE(<param>,...,<loc>)
  14. ;
  15. ; where
  16. ;       <param>,...   -  zero or more parameters for the assembly routine
  17. ;       <loc>         -  an Integer variable that contains the
  18. ;                        location in the DEF SEG of the start of
  19. ;                        the assembly routine
  20. ;
  21. ; The location parameter will be removed, and the routine at DEF SEG:<loc>
  22. ; will be called with the remaining parameters.
  23. ;
  24. ; Notes:
  25. ;       - The parameters are not checked or verified before being passed
  26. ;         to the assembly routine.
  27. ;       - CALL must be used.  CALLS will cause execution to jump to a
  28. ;         random location.
  29. ;       - The DOSSEG, .MODEL, .CODE, and .DATA? directives are part of 
  30. ;         the simplified segment system of MASM 5.0. If you have an
  31. ;         earlier version of MASM, you must modify the source to define 
  32. ;         the segments required by Microsoft high-level languages. These 
  33. ;         segments are discussed in Appendix C of "Learning and Using 
  34. ;         QuickBASIC."
  35. ;
  36. ;******************************************************************************
  37. ;
  38.         DOSSEG                ;requires MASM 5.0 or higher
  39.         .MODEL  medium
  40.  
  41. ;       Define the routine as public.
  42.  
  43.         PUBLIC  ABSOLUTE
  44.  
  45. ;       Define the seg segment
  46.  
  47.         .DATA?
  48.  
  49.         EXTRN  b$seg:WORD     ;seg segment
  50.  
  51. ;***
  52. ; ABSOLUTE - Call absolute address
  53. ;
  54. ;Purpose:
  55. ; Routine which can be directly called from the basic level which in turn
  56. ; calls an absolute address.
  57. ;
  58. ;Entry:
  59. ; The actual number of parameters is variable, and depends on the routine
  60. ; that ABSOLUTE will in turn call. The LAST parameter pushed MUST be the DS
  61. ; offset of an integer variable containing the offset of the routine to be
  62. ; called. The current DEF SEG is used as the segment for the call.
  63. ;
  64. ;Exit:
  65. ; Whatever the called routine elects. We do NOT return here.
  66. ;
  67. ;Uses:
  68. ; This routine follows convention, but does no saving or checking of the code
  69. ; actually called.
  70. ;
  71. ;Notes:
  72. ; The called routine receives control with all parameters passed to ABSOLUTE,
  73. ; except the offset integer, on the stack in Pascal convention. The return
  74. ; address present is back to the BASIC level code which CALLed ABSOLUTE.
  75. ;
  76. ; Stack on call to ABSOLUTE:
  77. ;
  78. ;
  79. ;               \       Variable number of parameters           \
  80. ;               |          to routine to be CALLed              |
  81. ;               +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+
  82. ;               |       Near pointer to I2 var containing       |
  83. ;               |       the offset of the routine to CALL       |
  84. ;               +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+
  85. ;               |CS                                             |
  86. ;               +    Far return address to caller of ABSOLUTE   +
  87. ;       [SP] -> |IP                                             |
  88. ;               +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+
  89. ;
  90. ; Stack on transfer to called routine:
  91. ;
  92. ;               \       Variable number of parameters           \
  93. ;               |          to routine to be CALLed              |
  94. ;               +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+
  95. ;               |CS                                             |
  96. ;               +    Far return address to caller of ABSOLUTE   +
  97. ;       [SP] -> |IP                                             |
  98. ;               +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+
  99. ;
  100. ;******************************************************************************
  101.  
  102.         .CODE
  103.  
  104. ABSOLUTE PROC FAR
  105.  
  106.         POP     AX              ;return offset
  107.         POP     DX              ;return segment
  108.         POP     BX              ;get pointer to routine address
  109.         PUSH    DX              ;restore return address
  110.         PUSH    AX
  111.         PUSH    [b$seg]         ;stack DEF SEG segment
  112.         PUSH    [BX]            ;stack routine offset
  113.  
  114.         RET                     ;jump to ABSOLUTE routine
  115.  
  116. ABSOLUTE ENDP
  117.  
  118.         END
  119.