开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 操作系统开发 > 查看源码
exid.asm
资源名称：DOS系统的源代码.rar　[点击查看]
上传用户：xiaoan1112
上传日期：2013-04-11
资源大小：19621k
文件大小：22k
源码类别：

操作系统开发

开发平台：

Visual C++

exid.asm：源码内容
  1. page 49,132
  2. TITLE ExId - SImple Id Executors
  3. ;***
  4. ;exid.asm - executors for simple id references.
  5. ;
  6. ; Copyright <C> 1986, Microsoft Corporation
  7. ;
  8. ;Purpose:
  9. ;
  10. ;   This module contains all exId executors.
  11. ;
  12. ;   Simple variables may also be referenced by exVtRfxx executors.
  13. ;   These are always nops, and are maintained with the nonspeed-
  14. ;   critical nop executors.
  15. ;
  16. ;   In general, these executors are very speed critical.
  17. ;
  18. ;
  19. ;****************************************************************************
  21. .xlist
  22. include  version.inc
  23. IncludeOnce architec
  24. IncludeOnce context
  25. IncludeOnce executor
  26. IncludeOnce exint
  27. IncludeOnce extort
  28. IncludeOnce opaftqb4
  29. IncludeOnce opid
  30. IncludeOnce opstmt
  31. IncludeOnce pcode
  32. IncludeOnce pointers
  33. IncludeOnce qbimsgs
  34. IncludeOnce rtinterp
  35. IncludeOnce scanner
  36. IncludeOnce variable
  37. .list
  39. assumes cs, CODE
  40. assumes es, NOTHING
  41. assumes ss, DATA
  45. RestoreVarTable equ <mov ds,cx>
  48. sBegin CODE
  50. subttl Public Load
  52. ;Added with [15]
  53. ;End of [15]
  55. subttl Static Load
  56. MakeExe exIdISLd2,opIdLd,ET_Imp
  57. LODSWTX  ;Pick up variable address operand
  58. xchg ax,bx ;Move to base register
  59. DbChk oVar,bx
  60. push [pVarBx]
  61. DispMac  ;Dispatch to next executor
  63. MakeExe exIdESLdI2,opIdLd,ET_I2
  64. LODSWTX  ;Pick up variable address operand
  65. xchg ax,bx ;Move to base register
  66. DbChk oVar,bx
  67. push [pVarBx] ;Push the I2
  68. DispMac  ;Dispatch to next executor
  70. MakeExe exIdESLdI4,opIdLd,ET_I4
  71. SkipExHeader
  72. MakeExe exIdISLd4,opIdLd,ET_Imp
  73. LODSWTX
  74. xchg ax,bx ;Move to base register
  75. DbChk oVar,bx
  76. push [pVarBx+2]
  77. push [pVarBx]
  78. DispMac
  81. ;Added with [18]
  82. MakeExe exIdESLdR4,opIdLd,ET_R4
  83. SkipExHeader
  84. MakeExe exIdISLdR4,opIdLd,ET_Imp
  85. LODSWTX
  86. xchg ax,bx ;Move to base register
  87. DbChk oVar,bx
  88. fld dword ptr [pVarBx]
  89. DispMac
  91. MakeExe exIdESLdR8,opIdLd,ET_R8
  92. SkipExHeader
  93. MakeExe exIdISLdR8,opIdLd,ET_Imp 
  94. LODSWTX
  95. xchg ax,bx ;Move to base register
  96. DbChk oVar,bx
  97. fld qword ptr [pVarBx]
  98. DispMac
  99. ;End of [18]
  101. subttl Common Load
  103. MakeExe exIdECLdI2,opIdLd,ET_I2
  104. SkipExHeader
  105. MakeExe exIdICLd2,opIdLd,ET_Imp
  106. LODSWTX  ;Get oVar
  107. xchg ax,bx
  108. DbChk oVar,bx  ; Check for valid oVar
  109. mov ax,[pVarBx].COMREF_oValue ;Offset into common block
  110. mov bx,[pVarBx].COMREF_oCommon ;oCommon
  111. add bx,[grs.GRS_bdtComBlk.BD_pb] ;pCommon
  112. mov bx,[bx].COM_bdValue.BD_pb ;Common block
  113. add bx,ax ;Offset in block
  114. push [bx]
  115. DispMac
  118. MakeExe exIdECLdI4,opIdLd,ET_I4
  119. SkipExHeader
  120. MakeExe exIdICLd4,opIdLd,ET_Imp
  121. LODSWTX ;Get oVar
  122. xchg ax,bx
  123. DbChk oVar,bx  ; Check for valid oVar
  124. mov ax,[pVarBx].COMREF_oValue ;Offset into common block
  125. mov bx,[pVarBx].COMREF_oCommon ;oCommon
  126. add bx,[grs.GRS_bdtComBlk.BD_pb] ;pCommon
  127. mov bx,[bx].COM_bdValue.BD_pb ;Common block
  128. add bx,ax ;Offset in block
  129. push [bx+2]
  130. push [bx]
  131. DispMac
  135. ;Added with [18]
  136. MakeExe exIdECLdR4,opIdLd,ET_R4
  137. SkipExHeader
  138. MakeExe exIdICLdR4,opIdLd,ET_Imp
  139. LODSWTX ;Get oVar
  140. xchg ax,bx
  141. DbChk oVar,bx  ; Check for valid oVar
  142. mov ax,[pVarBx].COMREF_oValue ;Offset into common block
  143. mov bx,[pVarBx].COMREF_oCommon ;oCommon
  144. add bx,[grs.GRS_bdtComBlk.BD_pb] ;pCommon
  145. mov bx,[bx].COM_bdValue.BD_pb ;Common block
  146. add bx,ax ;Offset in block
  147. fld dword ptr [bx]
  148. DispMac
  150. MakeExe exIdECLdR8,opIdLd,ET_R8
  151. SkipExHeader
  152. MakeExe exIdICLdR8,opIdLd,ET_Imp 
  153. LODSWTX ;Get oVar
  154. DbChk oVar,ax  ; Check for valid oVar
  155. xchg bx,ax
  156. mov ax,[pVarBx].COMREF_oValue ;Offset into common block
  157. mov bx,[pVarBx].COMREF_oCommon ;oCommon
  158. add bx,[grs.GRS_bdtComBlk.BD_pb] ;pCommon
  159. mov bx,[bx].COM_bdValue.BD_pb ;Common block
  160. add bx,ax ;Offset in block
  161. fld qword ptr [bx]
  162. DispMac
  163. ;End of [18]
  165. subttl Indirect Load
  166. page
  168. MakeExe exIdEILdI2,opIdLd,ET_I2
  169. SkipExHeader
  170. MakeExe exIdIILd2,opIdLd,ET_Imp
  171. LODSWTX  ;Get oVar
  172. xchg ax,bx ;Move to base register
  173. DbChk oVar,bx  ; Check for valid oVar
  174. GetpFrame ;Get pointer into frame
  175. mov bx,[pFrame] ;Load address of variable
  176. push [bx] ;Push the I2
  177. DispMac
  179. MakeExe exIdEILdI4,opIdLd,ET_I4
  180. SkipExHeader
  181. MakeExe exIdIILd4,opIdLd,ET_Imp
  182. LODSWTX  ;Get oVar
  183. xchg ax,bx ;Move to base register
  184. DbChk oVar,bx  ; Check for valid oVar
  185. GetpFrame ;Get pointer into frame
  186. mov bx,[pFrame] ;Load address of variable
  187. push [bx+2]
  188. push [bx]
  189. DispMac
  192. ;Start of [18]
  194. MakeExe exIdEILdR4,opIdLd,ET_R4
  195. SkipExHeader
  196. MakeExe exIdIILdR4,opIdLd,ET_Imp
  197. LODSWTX  ;Get oVar
  198. xchg ax,bx ;Move to base register
  199. DbChk oVar,bx  ; Check for valid oVar
  200. GetpFrame ;Get pointer into frame
  201. mov bx,[pFrame] ;Load address of variable
  202. fld dword ptr [bx]
  203. DispMac
  206. MakeExe exIdEILdR8,opIdLd,ET_R8
  207. SkipExHeader
  208. MakeExe exIdIILdR8,opIdLd,ET_Imp 
  209. LODSWTX  ;Get oVar
  210. xchg ax,bx ;Move to base register
  211. DbChk oVar,bx  ; Check for valid oVar
  212. GetpFrame ;Get pointer into frame
  213. mov bx,[pFrame] ;Load address of variable
  214. fld qword ptr [bx]
  215. DispMac
  217. ;End of [18]
  219. subttl Frame Load and Indirect Reference
  220. page
  222. ;  The executors for loading two byte and four byte frame variables are
  223. ;  also used for references to indirect variables.  For a load of a frame
  224. ;  variable, the variable table contains the value which is pushed on the
  225. ;  stack.  For a reference to an indirect variable, the variable table
  226. ;  contains the address which is then pushed on the stack.  Since addresses
  227. ;  are either two or four bytes, only these entries serve two purposes.
  229. MakeExe exIdIIRfTyp,opIdLd,ET_Imp
  230. LODSWTX ;Get oVar
  231. xchg ax,bx ;Move to base register
  232. DbChk oVar,bx  ; Check for valid oVar
  233. mov bx,[pVarBx] ;Get oFrame
  234. add bx,bp ;oFrame to pFrame entry
  235. push ds
  236. push [bx]
  237. DispMac
  239. MakeExe exIdEIRfR8,opIdLd,ET_R8
  240. SkipExHeader
  241. MakeExe exIdEIRfSD,opIdLd,ET_SD
  242. SkipExHeader
  243. MakeExe exIdEIRfI4,opIdLd,ET_I4
  244. SkipExHeader
  245. MakeExe exIdEIRfR4,opIdLd,ET_R4
  246. SkipExHeader
  247. MakeExe exIdEFLdI2,opIdLd,ET_I2
  248. SkipExHeader
  249. MakeExe exIdIFLd2,opIdLd,ET_Imp
  250. LODSWTX  ;Get oVar
  251. xchg ax,bx ;Move to base register
  252. DbChk oVar,bx  ; Check for valid oVar
  253. GetpFrame ;Get pointer into frame
  254. push [pFrame] ;Push the I2
  255. DispMac
  258. MakeExe exIdEFLdI4,opIdLd,ET_I4
  259. SkipExHeader
  260. MakeExe exIdIFLd4,opIdLd,ET_Imp
  261. LODSWTX  ;Get oVar
  262. xchg ax,bx ;Move to base register
  263. DbChk oVar,bx  ; Check for valid oVar
  264. GetpFrame ;Get pointer into frame
  265. push [pFrame+2]
  266. push [pFrame]
  267. DispMac
  270. ;Added with [18]
  271. MakeExe exIdEFLdR4,opIdLd,ET_R4
  272. SkipExHeader
  273. MakeExe exIdIFLdR4,opIdLd,ET_Imp
  274. LODSWTX  ;Get oVar
  275. xchg ax,bx ;Move to base register
  276. DbChk oVar,bx  ; Check for valid oVar
  277. GetpFrame ;Get pointer into frame
  278. fld dword ptr [pFrame]
  279. DispMac
  281. MakeExe exIdEFLdR8,opIdLd,ET_R8
  282. SkipExHeader
  283. MakeExe exIdIFLdR8,opIdLd,ET_Imp 
  284. LODSWTX  ;Get oVar
  285. xchg ax,bx ;Move to base register
  286. DbChk oVar,bx  ; Check for valid oVar
  287. GetpFrame ;Get pointer into frame
  288. fld qword ptr [pFrame]
  289. DispMac
  290. ;End of [18]
  292. subttl Public Store
  293. page
  294. ;Added with [15]
  296. ;End of [15]
  300. subttl Static Store
  301. page
  303. MakeExe exIdESStSD,opIdSt,ET_SD
  304. SkipExHeader
  305. MakeExe exIdISStSD,opIdSt,ET_Imp
  306. LODSWTX  ;Get oVar
  307. DbChk oVar,ax  ; Check for valid oVar
  308.     add     ax,di ;ax = pSdStore
  309.     push    ax
  310. CALLRT B$SASS,DispMov
  313. MakeExe exIdISSt2,opIdSt,ET_Imp
  314. LODSWTX  ;Get oVar
  315. xchg ax,bx ;Move to base register
  316. DbChk oVar,bx  ; Check for valid oVar
  317. pop [pVarBx] ;Store stack in value
  318. DispMac
  320. MakeExe exIdESStI2,opIdSt,ET_I2
  321. LODSWTX  ;Get oVar
  322. xchg ax,bx ;Move to base register
  323. DbChk oVar,bx  ; Check for valid oVar
  324. pop [pVarBx] ;Store stack in value
  325. DispMac
  327. MakeExe exIdESStI4,opIdSt,ET_I4
  328. SkipExHeader
  329. MakeExe exIdISSt4,opIdSt,ET_Imp
  330. LODSWTX  ;Get oVar
  331. xchg ax,bx ;Move to base register
  332. DbChk oVar,bx  ; Check for valid oVar
  333. pop [pVarBx] ;Store stack in value
  334. pop [pVarBx+2]
  335. DispMac
  338. ;Added with [18]
  340. MakeExe exIdESStR4,opIdSt,ET_R4
  341. SkipExHeader
  342. MakeExe exIdISStR4,opIdSt,ET_Imp
  343. LODSWTX  ;Get oVar
  344. xchg ax,bx ;Move to base register
  345. DbChk oVar,bx  ; Check for valid oVar
  346. fstp dword ptr [pVarBx]
  347. fwait
  348. DispMac
  350. MakeExe exIdESStR8,opIdSt,ET_R8
  351. SkipExHeader
  352. MakeExe exIdISStR8,opIdSt,ET_Imp 
  353. LODSWTX  ;Get oVar
  354. xchg ax,bx ;Move to base register
  355. DbChk oVar,bx  ; Check for valid oVar
  356. fstp qword ptr [pVarBx]
  357. fwait
  358. DispMac
  360. ;End of [18]
  362. MakeExe exIdISStTyp,opIdSt,ET_Imp
  363. LODSWTX      ;Get oVar
  364. DbChk oVar,ax      ; Check for valid oVar
  365.     add     ax,di     ;oVar --> pVar
  366. xchg di,ax     ;Destination (points to value field)
  367. mov bx,[di-VAR_value].VAR_oTyp  ;Get oTyp
  368.     push    ds
  369. jmp MoveRec
  371. subttl Common Store
  372. page
  375. MakeExe exIdECStI2,opIdSt,ET_I2
  376. SkipExHeader
  377. MakeExe exIdICSt2,opIdSt,ET_Imp
  378. LODSWTX  ;Get oVar
  379. xchg ax,bx
  380. DbChk oVar,bx  ; Check for valid oVar
  381. mov ax,[pVarBx].COMREF_oValue ;Offset into common block
  382. mov bx,[pVarBx].COMREF_oCommon ;oCommon
  383. add bx,[grs.GRS_bdtComBlk.BD_pb] ;pCommon
  384. mov bx,[bx].COM_bdValue.BD_pb ;Common block
  385. add bx,ax ;Offset in block
  386. pop [bx]
  387. DispMac
  390. MakeExe exIdECStI4,opIdSt,ET_I4
  391. SkipExHeader
  392. MakeExe exIdICSt4,opIdSt,ET_Imp
  393. LODSWTX  ;Get oVar
  394. xchg ax,bx
  395. DbChk oVar,bx  ; Check for valid oVar
  396. mov ax,[pVarBx].COMREF_oValue ;Offset into common block
  397. mov bx,[pVarBx].COMREF_oCommon ;oCommon
  398. add bx,[grs.GRS_bdtComBlk.BD_pb] ;pCommon
  399. mov bx,[bx].COM_bdValue.BD_pb ;Common block
  400. add bx,ax ;Offset in block
  401. pop [bx]
  402. pop [bx+2]
  403. DispMac
  406. ;Added with [18]
  407. MakeExe exIdECStR4,opIdSt,ET_R4
  408. SkipExHeader
  409. MakeExe exIdICStR4,opIdSt,ET_Imp
  410. LODSWTX  ;Get oVar
  411. xchg ax,bx
  412. DbChk oVar,bx  ; Check for valid oVar
  413. mov ax,[pVarBx].COMREF_oValue ;Offset into common block
  414. mov bx,[pVarBx].COMREF_oCommon ;oCommon
  415. add bx,[grs.GRS_bdtComBlk.BD_pb] ;pCommon
  416. mov bx,[bx].COM_bdValue.BD_pb ;Common block
  417. add bx,ax ;Offset in block
  418. fstp dword ptr [bx]
  419. fwait
  420. DispMac
  422. MakeExe exIdECStR8,opIdSt,ET_R8
  423. SkipExHeader
  424. MakeExe exIdICStR8,opIdSt,ET_Imp 
  425. LODSWTX  ;Get oVar
  426. xchg ax,bx
  427. DbChk oVar,bx  ; Check for valid oVar
  428. mov ax,[pVarBx].COMREF_oValue ;Offset into common block
  429. mov bx,[pVarBx].COMREF_oCommon ;oCommon
  430. add bx,[grs.GRS_bdtComBlk.BD_pb] ;pCommon
  431. mov bx,[bx].COM_bdValue.BD_pb ;Common block
  432. add bx,ax ;Offset in block
  433. fstp qword ptr [bx]
  434. fwait
  435. DispMac
  436. ;End of [18]
  438. MakeExe exIdECStSD,opIdSt,ET_SD
  439. SkipExHeader
  440. MakeExe exIdICStSD,opIdSt,ET_Imp
  441. LODSWTX ;Get oVar
  442. xchg ax,bx
  443. DbChk oVar,bx  ; Check for valid oVar
  444. mov ax,[pVarBx].COMREF_oValue ;Offset into common block
  445. mov bx,[pVarBx].COMREF_oCommon ;oCommon
  446. add bx,[grs.GRS_bdtComBlk.BD_pb] ;pCommon
  447. mov bx,[bx].COM_bdValue.BD_pb ;Common block
  448. add bx,ax ;Offset in block
  449. push bx ;Push pSD
  450. CALLRT B$SASS,DispMov
  453. MakeExe exIdICStTyp,opIdSt,ET_Imp
  454. LODSWTX ;Get oVar
  455. xchg ax,bx
  456. DbChk oVar,bx  ; Check for valid oVar
  457. mov cx,[pVarBx].COMREF_oValue ;Offset into common block
  458. mov ax,[pVarBx].COMREF_oCommon ;oCommon
  459. mov bx,[pVarBx-VAR_value].VAR_oTyp ;Get oTyp
  460. add ax,[grs.GRS_bdtComBlk.BD_pb] ;pCommon
  461. xchg ax,di
  462. mov di,[di].COM_bdValue.BD_pb ;Common block
  463. add di,cx ;Offset in block
  464. push ds
  465. ;ax = saved di
  466. ;bx = oTyp of record
  467. ;di = offset of destination
  468. ;[sp] = segment of destination
  469. ;[sp+4]:[sp+2] = pointer to source
  470. jmp MoveRec
  473. subttl Frame Store
  474. page
  476. MakeExe exIdEFStI2,opIdSt,ET_I2
  477. SkipExHeader
  478. MakeExe exIdIFSt2,opIdSt,ET_Imp
  479. LODSWTX  ;Get oVar
  480. xchg ax,bx ;Move to base register
  481. DbChk oVar,bx  ; Check for valid oVar
  482. GetpFrame ;Get pointer into frame
  483. pop [pFrame]
  484. DispMac
  486. MakeExe exIdEFStI4,opIdSt,ET_I4
  487. SkipExHeader
  488. MakeExe exIdIFSt4,opIdSt,ET_Imp
  489. LODSWTX  ;Get oVar
  490. xchg ax,bx ;Move to base register
  491. DbChk oVar,bx  ; Check for valid oVar
  492. GetpFrame ;Get pointer into frame
  493. pop [pFrame]
  494. pop [pFrame+2]
  495. DispMac
  498. ;Added with [18]
  499. MakeExe exIdEFStR4,opIdSt,ET_R4
  500. SkipExHeader
  501. MakeExe exIdIFStR4,opIdSt,ET_Imp
  502. LODSWTX  ;Get oVar
  503. xchg ax,bx ;Move to base register
  504. DbChk oVar,bx  ; Check for valid oVar
  505. GetpFrame ;Get pointer into frame
  506. fstp dword ptr [pFrame]
  507. fwait
  508. DispMac
  510. MakeExe exIdEFStR8,opIdSt,ET_R8
  511. SkipExHeader
  512. MakeExe exIdIFStR8,opIdSt,ET_Imp 
  513. LODSWTX  ;Get oVar
  514. xchg ax,bx ;Move to base register
  515. DbChk oVar,bx  ; Check for valid oVar
  516. GetpFrame ;Get pointer into frame
  517. fstp qword ptr [pFrame]
  518. fwait
  519. DispMac
  520. ;End of [18]
  522. MakeExe exIdEFStSD,opIdSt,ET_SD
  523. SkipExHeader
  524. MakeExe exIdIFStSD,opIdSt,ET_Imp
  525. LODSWTX  ;Get oVar
  526. xchg ax,bx ;Move to base register
  527. DbChk oVar,bx  ; Check for valid oVar
  528. mov ax,[pVarBx] ;Get oBP
  529. add ax,bp ;ax = pSD
  530. push ax ;Push pSD
  531. CALLRT B$SASS,DispMov
  533. MakeExe exIdIFStTyp,opIdSt,ET_Imp
  534. LODSWTX      ;Get oVar
  535. DbChk oVar,ax      ; Check for valid oVar
  536.     add     ax,di     ;oVar --> pVar
  537. xchg bx,ax     ;pVar to bx
  538. xchg ax,di     ;Save di in ax
  539. mov di,[bx]      ;Get oBP
  540. add di,bp
  541. mov bx,[bx-VAR_value].VAR_oTyp  ;Get oTyp
  542.     push    ss
  543. jmp MoveRec
  545. subttl Indirect Store
  547. MakeExe exIdEIStI2,opIdSt,ET_I2
  548. SkipExHeader
  549. MakeExe exIdIISt2,opIdSt,ET_Imp
  550. LODSWTX  ;Get oVar
  551. xchg ax,bx ;Move to base register
  552. DbChk oVar,bx  ; Check for valid oVar
  553. GetpFrame ;Get pointer into frame
  554. mov bx,[pFrame]  ;Near address to bx
  555. pop [bx]
  556. DispMac  ;Dispatch to next executor
  558. MakeExe exIdEIStI4,opIdSt,ET_I4
  559. SkipExHeader
  560. MakeExe exIdIISt4,opIdSt,ET_Imp
  561. LODSWTX  ;Get oVar
  562. xchg ax,bx ;Move to base register
  563. DbChk oVar,bx  ; Check for valid oVar
  564. GetpFrame ;Get pointer into frame
  565. mov bx,[pFrame] ;Near address to bx
  566. pop [bx]
  567. pop [bx+2]
  568. DispMac  ;Dispatch to next executor
  571. ;Added with [18]
  572. MakeExe exIdEIStR4,opIdSt,ET_R4
  573. SkipExHeader
  574. MakeExe exIdIIStR4,opIdSt,ET_Imp
  575. LODSWTX  ;Get oVar
  576. xchg ax,bx ;Move to base register
  577. DbChk oVar,bx  ; Check for valid oVar
  578. GetpFrame ;Get pointer into frame
  579. mov bx,[pFrame] ;Near address to bx
  580. fstp dword ptr [bx]
  581. fwait
  582. DispMac  ;Dispatch to next executor
  585. MakeExe exIdEIStR8,opIdSt,ET_R8
  586. SkipExHeader
  587. MakeExe exIdIIStR8,opIdSt,ET_Imp 
  588. LODSWTX  ;Get oVar
  589. xchg ax,bx ;Move to base register
  590. DbChk oVar,bx  ; Check for valid oVar
  591. GetpFrame ;Get pointer into frame
  592. mov bx,[pFrame]  ;Near address to bx
  593. fstp qword ptr [bx]
  594. fwait
  595. DispMac  ;Dispatch to next executor
  596. ;End of [18]
  598. MakeExe exIdEIStSD,opIdSt,ET_SD
  599. SkipExHeader
  600. MakeExe exIdIIStSD,opIdSt,ET_Imp
  601. LODSWTX  ;Get oVar
  602. xchg ax,bx ;Move to base register
  603. DbChk oVar,bx  ; Check for valid oVar
  604. GetpFrame ;Get pointer into frame
  605. push [pFrame] ; Push pSD/handle
  606. CALLRT B$SASS,DispMov
  608. MakeExe exIdIIStTyp,opIdSt,ET_Imp
  609. LODSWTX  ;Get oVar
  610. DbChk oVar,ax  ; Check for valid oVar
  611.     add     ax,di ;oVar --> pVar
  612. xchg bx,ax ;pVar to bx
  613.     xchg    ax,di ;Save di in ax
  614. mov di,[bx]  ;Get oBP
  615. mov bx,[bx-VAR_value].VAR_oTyp ;Get oTyp
  616.     push    ds
  617. mov di,[bp+di] ;Near address to di
  618. jmp MoveRec
  620. subttl Public IdRf Executors
  621. page
  623. ;Added with [15]
  625. ;End of [15]
  627. subttl Static IdRf Executors
  628. page
  630. MakeExe exIdISRfTyp,opIdLd,ET_Imp
  631. LODSWTX  ;Get oVar
  632. DbChk oVar,ax  ; Check for valid oVar
  633. add ax,di ;oVar --> pVar
  634. push ds ;Push far pointer
  635. push ax
  636. DispMac
  638. MakeExe exIdESRfR8,opIdLd,ET_R8
  639. SkipExHeader
  640. MakeExe exIdESRfI4,opIdLd,ET_I4
  641. SkipExHeader
  642. MakeExe exIdESRfSD,opIdLd,ET_SD
  643. SkipExHeader
  644. MakeExe exIdESRfR4,opIdLd,ET_R4
  645. SkipExHeader
  646. MakeExe exIdESRfI2,opIdLd,ET_I2
  647. SkipExHeader
  648. MakeExe exIdISRf,opIdLd,ET_Imp
  649. LODSWTX  ;Get oVar
  650. DbChk oVar,ax  ; Check for valid oVar
  651.     add     ax,di ;oVar --> pVar
  652. push ax
  653. DispMac
  656. SameExe exIdISLdSD,exIdISRf
  657. SameExe exIdESLdSD,exIdESRfSD
  661. subttl Frame IdRf Executors
  662. page
  664. MakeExe exIdIFRfTyp,opIdLd,ET_Imp
  665. LODSWTX  ;Get oVar
  666. DbChk oVar,ax  ; Check for valid oVar
  667. xchg bx,ax ;Move to base register
  668. mov ax,[pVarBx] ;Get oFrame
  669. add ax,bp ;oFrame to pValue
  670. push ds
  671. push ax
  672. DispMac
  674. MakeExe exIdEFRfR8,opIdLd,ET_R8
  675. SkipExHeader
  676. MakeExe exIdEFRfSD,opIdLd,ET_SD
  677. SkipExHeader
  678. MakeExe exIdEFRfI4,opIdLd,ET_I4
  679. SkipExHeader
  680. MakeExe exIdEFRfR4,opIdLd,ET_R4
  681. SkipExHeader
  682. MakeExe exIdEFRfI2,opIdLd,ET_I2
  683. SkipExHeader
  684. MakeExe exIdIFRf,opIdLd,ET_Imp
  685. LODSWTX  ;Get oVar
  686. DbChk oVar,ax  ; Check for valid oVar
  687. xchg bx,ax ;Move to base register
  688. mov ax,[pVarBx] ;Get oFrame
  689. add ax,bp ;oFrame to pValue
  690. push ax
  691. DispMac
  694. SameExe exIdIFLdSD,exIdIFRf
  697. subttl Common IdRf Executors
  698. page
  701. MakeExe exIdICRfTyp,opIdLd,ET_Imp
  702. LODSWTX ;Get oVar
  703. DbChk oVar,ax  ; Check for valid oVar
  704. xchg bx,ax
  705. mov ax,[pVarBx].COMREF_oValue ;Offset into common block
  706. mov bx,[pVarBx].COMREF_oCommon ;oCommon
  707. add bx,[grs.GRS_bdtComBlk.BD_pb] ;pCommon
  708. mov bx,[bx].COM_bdValue.BD_pb ;Common block
  709. add bx,ax ;Offset in block
  710. push ds
  711. push bx
  712. DispMac
  715. MakeExe exIdECRfR8,opIdLd,ET_R8
  716. SkipExHeader
  717. MakeExe exIdECRfSD,opIdLd,ET_SD
  718. SkipExHeader
  719. MakeExe exIdECRfI4,opIdLd,ET_I4
  720. SkipExHeader
  721. MakeExe exIdECRfR4,opIdLd,ET_R4
  722. SkipExHeader
  723. MakeExe exIdECRfI2,opIdLd,ET_I2
  724. SkipExHeader
  725. MakeExe exIdICRf,opIdLd,ET_Imp
  726. LODSWTX ;Get oVar
  727. DbChk oVar,ax  ; Check for valid oVar
  728. xchg bx,ax
  729. mov ax,[pVarBx].COMREF_oValue ;Offset into common block
  730. mov bx,[pVarBx].COMREF_oCommon ;oCommon
  731. add bx,[grs.GRS_bdtComBlk.BD_pb] ;pCommon
  732. mov bx,[bx].COM_bdValue.BD_pb ;Common block
  733. add bx,ax ;Offset in block
  734. push bx
  735. DispMac
  739. SameExe exIdICLdSD,exIdICRf
  740. SameExe exIdECLdSD,exIdECRfSD
  744. subttl FS load/store/ref executors
  745. page
  748. MakeExe exIdESRfFS,opIdLd,ET_SD
  749. SkipExHeader
  750. MakeExe exIdISRfFS,opIdLd,ET_Imp
  751. LODSWTX ;Get oVar
  752. DbChk oVar,ax  ; Check for valid oVar
  753.     add     ax,di ;oVar --> pVar
  754. xchg bx,ax ;pVar to bx
  755.     push    ds
  756. push bx ;Far address to stack
  757. push [bx-VAR_value].VAR_cbFixed ; Push length of FS
  758. DispMac
  760. MakeExe exIdEIRfFS,opIdLd,ET_SD
  761. SkipExHeader
  762. MakeExe exIdIIRfFS,opIdLd,ET_Imp
  763. LODSWTX ;Get oVar
  764. xchg ax,bx ;Move to base register
  765. DbChk oVar,bx  ; Check for valid oVar
  766. mov ax,[pVarBx-VAR_value].VAR_cbFixed   ; Get length
  767. GetpFrame ;Get pointer into frame
  768. push ds
  769. push [pFrame] ;Push offset
  770. push ax ;Push cb in FS
  771. DispMac
  773. MakeExe exIdEFRfFS,opIdLd,ET_SD
  774. SkipExHeader
  775. MakeExe exIdIFRfFS,opIdLd,ET_Imp
  776. LODSWTX ;Get oVar
  777. DbChk oVar,ax  ; Check for valid oVar
  778. xchg bx,ax ;Move to base register
  779. mov ax,[pVarBx-VAR_value].VAR_cbFixed   ; Get length
  780. mov bx,[pVarBx] ;Get oFrame
  781. add bx,bp ;oFrame to pFrame entry
  782.     push    ss
  783. push bx
  784. push ax ;Push cb in FS
  785. DispMac
  788. MakeExe exIdESLdFS,opIdLd,ET_SD
  789. SkipExHeader
  790. MakeExe exIdISLdFS,opIdLd,ET_Imp
  791. LODSWTX ;Get oVar
  792. DbChk oVar,ax  ; Check for valid oVar
  793.     add     ax,di ;oVar --> pVar
  794. xchg bx,ax ;pVar to bx
  795.     push    ds
  796. push bx ;Far address to stack
  797. push [bx-VAR_value].VAR_cbFixed ; Push length of FS
  798. CALLRT B$LDFS,DispMovSd
  800. MakeExe exIdEILdFS,opIdLd,ET_SD
  801. SkipExHeader
  802. MakeExe exIdIILdFS,opIdLd,ET_Imp
  803. LODSWTX ;Get oVar
  804. DbChk oVar,ax  ; Check for valid oVar
  805. xchg bx,ax ;Move to base register
  806. mov ax,[pVarBx-VAR_value].VAR_cbFixed   ; Get length
  807. GetpFrame ;Get pointer into frame
  808. push ds
  809. push [pFrame] ;Push offset
  810. push ax ;Push cb in FS
  811. CALLRT B$LDFS,DispMovSd
  813. MakeExe exIdEFLdFS,opIdLd,ET_SD
  814. SkipExHeader
  815. MakeExe exIdIFLdFS,opIdLd,ET_Imp
  816. LODSWTX ;Get oVar
  817. DbChk oVar,ax  ; Check for valid oVar
  818. xchg bx,ax ;Move to base register
  819. mov ax,[pVarBx-VAR_value].VAR_cbFixed   ; Get length
  820. mov bx,[pVarBx] ;Get oFrame
  821. add bx,bp ;oFrame to pFrame entry
  822. push ss
  823. push bx
  824. push ax ;Push cb in FS
  825. CALLRT B$LDFS,DispMovSd
  829. MakeExe exIdESStFS,opIdSt,ET_SD
  830. SkipExHeader
  831. MakeExe exIdISStFS,opIdSt,ET_Imp
  832. LODSWTX ;Get oVar
  833. DbChk oVar,ax  ; Check for valid oVar
  834.     add     ax,di ;oVar --> pVar
  835. xchg bx,ax ;pVar to bx
  836.     push    ds
  837. push bx ;Far address to stack
  838. push [bx-VAR_value].VAR_cbFixed ; Push length of FS
  839. CALLRT B$LSET,Disp
  841. MakeExe exIdEIStFS,opIdSt,ET_SD
  842. SkipExHeader
  843. MakeExe exIdIIStFS,opIdSt,ET_Imp
  844. LODSWTX ;Get oVar
  845. DbChk oVar,ax  ; Check for valid oVar
  846. xchg bx,ax ;Move to base register
  847. mov ax,[pVarBx-VAR_value].VAR_cbFixed   ; Get length
  848. GetpFrame ;Get pointer into frame
  849. push ds
  850. push [pFrame] ;Push offset
  851. push ax ;Push cb in FS
  852. CALLRT B$LSET,Disp
  854. MakeExe exIdEFStFS,opIdSt,ET_SD
  855. SkipExHeader
  856. MakeExe exIdIFStFS,opIdSt,ET_Imp
  857. LODSWTX ;Get oVar
  858. DbChk oVar,ax  ; Check for valid oVar
  859. xchg bx,ax ;Move to base register
  860. mov ax,[pVarBx-VAR_value].VAR_cbFixed   ; Get length
  861. mov bx,[pVarBx] ;Get oFrame
  862. add bx,bp ;oFrame to pFrame entry
  863. push ss
  864. push bx
  865. push ax ;Push cb in FS
  866. CALLRT B$LSET,Disp
  869. MakeExe exIdICRfFS,opIdLd,ET_Imp
  870. SkipExHeader
  871. MakeExe exIdECRfFS,opIdLd,ET_SD
  872. LODSWTX ;Get oVar
  873. DbChk oVar,ax  ; Check for valid oVar
  874. xchg bx,ax
  875. mov ax,[pVarBx-VAR_value].VAR_cbFixed   ; Get length
  876. mov cx,[pVarBx].COMREF_oValue ;Offset into common block
  877. mov bx,[pVarBx].COMREF_oCommon ;oCommon
  878. add bx,[grs.GRS_bdtComBlk.BD_pb] ;pCommon
  879. mov bx,[bx].COM_bdValue.BD_pb ;Common block
  880. add bx,cx ;Offset in block
  881. push ds
  882. push bx
  883. push ax ;Push cb in FS
  884. DispMac
  887. MakeExe exIdICLdFS,opIdLd,ET_Imp
  888. SkipExHeader
  889. MakeExe exIdECLdFS,opIdLd,ET_SD
  890. LODSWTX ;Get oVar
  891. DbChk oVar,ax  ; Check for valid oVar
  892. xchg bx,ax
  893. mov ax,[pVarBx-VAR_value].VAR_cbFixed   ; Get length
  894. mov cx,[pVarBx].COMREF_oValue ;Offset into common block
  895. mov bx,[pVarBx].COMREF_oCommon ;oCommon
  896. add bx,[grs.GRS_bdtComBlk.BD_pb] ;pCommon
  897. mov bx,[bx].COM_bdValue.BD_pb ;Common block
  898. add bx,cx ;Offset in block
  899. push ds
  900. push bx
  901. push ax ;Push cb in FS
  902. CALLRT B$LDFS,DispMovSd
  905. MakeExe exIdICStFS,opIdSt,ET_Imp
  906. SkipExHeader
  907. MakeExe exIdECStFS,opIdSt,ET_SD
  908. LODSWTX ;Get oVar
  909. DbChk oVar,ax  ; Check for valid oVar
  910. xchg bx,ax
  911. mov ax,[pVarBx-VAR_value].VAR_cbFixed   ; Get length
  912. mov cx,[pVarBx].COMREF_oValue ;Offset into common block
  913. mov bx,[pVarBx].COMREF_oCommon ;oCommon
  914. add bx,[grs.GRS_bdtComBlk.BD_pb] ;pCommon
  915. mov bx,[bx].COM_bdValue.BD_pb ;Common block
  916. add bx,cx ;Offset in block
  917. push ds
  918. push bx
  919. push ax ;Push cb in FS
  920. CALLRT B$LSET,Disp
  925. SameExe exIdIIRf,exIdIFLd2
  926. SameExe exIdEIRfI2,exIdEFLdI2
  928. ;*************************************************************************
  930. MakeExe exStDim,opStDim
  931. inc si
  932. inc si ;Eat the operand
  933. DispMac
  935. sEnd CODE
  936. end