home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c082_144 / 5.ddi / CLIBSRC2.ZIP / DDVT.ASM < prev    next >
Encoding:
Assembly Source File  |  1992-06-10  |  5.2 KB  |  219 lines
  1. ;[]-----------------------------------------------------------------[]
  2. ;|      DDVT.ASM -- DDVT dispatcher                                  |
  3. ;[]-----------------------------------------------------------------[]
  4.  
  5. ;
  6. ;       C/C++ Run Time Library - Version 5.0
  7. ; 
  8. ;       Copyright (c) 1991, 1992 by Borland International
  9. ;       All Rights Reserved.
  10. ; 
  11.  
  12. ;memory model aliases, for the convenience of building the library
  13.  
  14. IFDEF           __s__
  15. __SMALL__       equ     1
  16. ENDIF
  17.  
  18. IFDEF           __c__
  19. __COMPACT__     equ     1
  20. ENDIF
  21.  
  22. IFDEF           __m__
  23. __MEDIUM__      equ     1
  24. ENDIF
  25.  
  26. IFDEF           __l__
  27. __LARGE__       equ     1
  28. ENDIF
  29.  
  30. IFDEF           __h__
  31. __HUGE__        equ     1
  32. ENDIF
  33.  
  34. IFNDEF __TINY__
  35.     IFNDEF __SMALL__
  36.         IFNDEF __MEDIUM__
  37.             IFNDEF __COMPACT__
  38.                 IFNDEF __LARGE__
  39.                     IFNDEF __HUGE__
  40.                         %OUT  You must supply a model symbol.
  41.                         .ERR
  42.                     ENDIF
  43.                 ENDIF
  44.             ENDIF
  45.         ENDIF
  46.     ENDIF
  47. ENDIF
  48.  
  49.                 extrn   _abort:far
  50.  
  51. ifdef   __SMALL__
  52.                 .model  small
  53. LDATA           equ     0
  54. endif
  55.  
  56. ifdef   __MEDIUM__
  57.                 .model  medium
  58. LDATA           equ     0
  59. endif
  60.  
  61. ifdef   __COMPACT__
  62.                 .model  compact
  63. LDATA           equ     1
  64. endif
  65.  
  66. ifdef   __LARGE__
  67.                 .model  large
  68. LDATA           equ     1
  69. endif
  70.  
  71. ifdef   __HUGE__
  72.                 .model  large
  73. LDATA           equ     1
  74. endif
  75.  
  76. ifdef   FARVTBL
  77. ptrSize         equ     4
  78. else
  79. ptrSize         equ     2
  80. endif
  81.  
  82. if      LDATA
  83. LES_            equ     <les>
  84. ES_             equ     <es:>
  85. else
  86. LES_            equ     <mov>
  87. ES_             equ     <   >
  88. endif
  89.  
  90.                 .code
  91.  
  92. FAIL_addr_NULL  dd      0               ; NULL 'fail' value
  93. FAIL_addr_abort dd      _abort          ; RTL  'fail' value
  94.  
  95. ;==============================================================================
  96. ;
  97. ; NULL dispatcher entry points:
  98. ;
  99.  
  100. ifdef     FARVTBL
  101.  
  102. entryname       equ     <@_DDVTdispatchNULL$qnvi>
  103.                 public  entryname
  104. entryname:      mov     ax, offset FAIL_addr_NULL
  105.                 jmp     SHORT start_dispatch
  106.  
  107. else
  108.  
  109. entryname       equ     <@_DDVTdispatchNULL$qpvi>
  110.                 public  entryname
  111. entryname:      mov     ax, offset FAIL_addr_NULL
  112.                 jmp     SHORT start_dispatch
  113.  
  114. endif
  115.  
  116. ;
  117. ; Compiler 'virtual DDVT call' entry points:
  118. ;
  119.  
  120. ifdef   FARVTBL
  121.  
  122. procname        equ     <@_DDVTdispatch$qnvi>
  123.                 public  procname
  124. procname        proc    vptr:DWORD,id:WORD
  125.  
  126. else
  127.  
  128. procname        equ     <@_DDVTdispatch$qpvi>
  129.                 public  procname
  130. procname        proc    vptr: WORD,id:WORD
  131.  
  132. endif
  133.                 mov     ax, offset FAIL_addr_abort
  134.  
  135. start_dispatch:
  136.  
  137.                 push    bp
  138.                 mov     bp, sp
  139.  
  140.                 push    si
  141.                 push    di
  142.  
  143.                 push    ax                      ; save 'fail' address
  144.  
  145. ifdef   FARVTBL
  146.                 les     bx, vptr
  147. else
  148.                 mov     bx, vptr
  149.                 push    ds
  150.                 pop     es
  151. endif
  152.  
  153.                 std
  154.  
  155. ;
  156. ; This is the loop that searches for a matching ID.
  157. ;
  158. search_loop:    mov     cx, ES_[bx-ptrSize-2]   ; get # of entries
  159.                 jcxz    search_next
  160. ;
  161. ; The table is below the # of entries, 6 bytes per entry; count is in CX.
  162. ;
  163.                 mov     dx, cx                  ; save the count
  164. ;
  165. ; Search this table for a matching ID.
  166. ;
  167.                 mov     ax, id
  168.                 lea     di, [bx-ptrSize-4]      ; point at first ID
  169.                 repne   scasw
  170.                 je      search_match
  171. ;
  172. ; No luck with this class; see if it has a base class.
  173. ;
  174. search_next:
  175.  
  176. ifdef   FARVTBL
  177.                 les     bx, es:[bx-4]           ; get base class link
  178.                 mov     ax, es
  179.                 or      ax, bx
  180. else
  181.                 mov     bx, [bx-2]              ; get base class link
  182.                 or      bx, bx
  183. endif
  184.                 jnz     search_loop             ; continue if non-zero
  185. ;
  186. ; No match; return address of the 'fail' function pointer.
  187. ;
  188.                 pop     ax                      ; pop 'fail' address
  189.                 mov     dx, cs
  190.  
  191.                 jmp     SHORT done
  192. ;
  193. ; Here if we have a match; ES:[DI] points just below the matching ID.
  194. ;
  195. search_match:   shl     dx, 1                   ; DX = 2 * count
  196.                 sub     bx, dx
  197.                 shl     cx, 1                   ; CX = 2 * count remaining
  198.                 sub     dx, cx
  199.                 shl     dx, 1                   ; DX = 4 * index of match
  200.                 add     dx, 2 + ptrSize
  201.                 sub     bx, dx
  202.  
  203.                 pop     ax                      ; throw away 'fail' addr
  204.  
  205.                 mov     ax, bx                  ; return the fn address
  206.                 mov     dx, es
  207.  
  208. done:           cld
  209.                 pop     di
  210.                 pop     si
  211.  
  212.                 pop     bp
  213.                 ret
  214.  
  215. procname        endp
  216.  
  217. ;==============================================================================
  218.                 end
  219.