home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c082_144 / 7.ddi / EMUSRC.ZIP / EMURULES.ASI < prev    next >
Encoding:
Text File  |  1992-06-10  |  15.6 KB  |  525 lines
  1. ;[]-----------------------------------------------------------------[]
  2. ;|      EMURULES.ASI  --  Rules & Structures for assembler           |
  3. ;[]-----------------------------------------------------------------[]
  4.  
  5. ;
  6. ;       C/C++ Run Time Library - Version 5.0
  7. ; 
  8. ;       Copyright (c) 1987, 1992 by Borland International
  9. ;       All Rights Reserved.
  10. ; 
  11.  
  12.         PAGE
  13.  
  14. ;*** First we begin with a few of the major constants of C.
  15.  
  16. false   equ     0       ; Beware !  For incoming parameters, non-false = true.
  17. true    equ     1       ; For results, we generate the proper numbers.
  18.  
  19. lesser  equ     -1      ; Incoming, lesser < 0
  20. equal   equ      0
  21. greater equ      1      ; Incoming, greater > 0
  22.  
  23. ; Small Code - Small Data
  24.     LPROG           equ     false
  25.     LDATA           equ     false
  26.  
  27.  
  28. ;[]------------------------------------------------------------[]
  29. ;|                                                              |
  30. ;|      C Naming Convention Macros                              |
  31. ;|                                                              |
  32. ;[]------------------------------------------------------------[]
  33.  
  34. UNDERSCORE      EQU     1
  35.  
  36. ExtSym@ MACRO   Sym, sType, sName
  37.         IFNB    <sName>
  38.         IFIDN   <sName>, <__PASCAL__>
  39. NAMING      =       0
  40.         ELSE
  41. NAMING      =       UNDERSCORE
  42.         ENDIF
  43.         ENDIF
  44.         IF      NAMING
  45.         EXTRN   _&Sym : sType
  46. Sym&@   equ     _&Sym
  47.         ELSE
  48.         EXTRN   Sym : sType
  49. Sym&@   equ     Sym
  50.         ENDIF
  51.         ENDM
  52.  
  53. PubSym@ MACRO   Sym, Definition, sName
  54.         IFNB    <sName>
  55.         IFIDN   <sName>, <__PASCAL__>
  56. NAMING      =       0
  57.         ELSE
  58. NAMING      =       UNDERSCORE
  59.         ENDIF
  60.         ENDIF
  61.         IF      NAMING
  62.         PUBLIC  _&Sym
  63. _&Sym   Definition
  64. Sym&@   equ     _&Sym
  65.         ELSE
  66.         PUBLIC  Sym
  67. Sym     Definition
  68. Sym&@   equ     Sym
  69.         ENDIF
  70.         ENDM
  71.  
  72. Static@ MACRO   Sym, Definition, sName
  73.         IFNB    <sName>
  74.         IFIDN   <sName>, <__PASCAL__>
  75. NAMING      =       0
  76.         ELSE
  77. NAMING      =       UNDERSCORE
  78.         ENDIF
  79.         ENDIF
  80.         IF      NAMING
  81. _&Sym   Definition
  82. Sym&@   equ     _&Sym
  83.         ELSE
  84. Sym     Definition
  85. Sym&@   equ     Sym
  86.         ENDIF
  87.         ENDM
  88.         PAGE
  89. ;[]------------------------------------------------------------[]
  90. ;|                                                              |
  91. ;|      Macros which are Data Size Dependent                    |
  92. ;|                                                              |
  93. ;[]------------------------------------------------------------[]
  94.  
  95. IF      LDATA
  96. DPTR_           equ     DWORD PTR
  97. dPtrSize        equ     4
  98. LES_            equ     LES
  99. ES_             equ     ES:
  100. SS_             equ     SS:
  101. LDS_            equ     LDS
  102.  
  103. pushDS_         MACRO
  104.                 PUSH    DS
  105.                 ENDM
  106.  
  107. popDS_          MACRO
  108.                 POP    DS
  109.                 ENDM
  110.  
  111. PushPtr         MACRO   dPtrOff, dPtrSeg
  112.                 PUSH    dPtrSeg
  113.                 PUSH    dPtrOff
  114.                 ENDM
  115.  
  116.  
  117. dPtr@           MACRO   Sym, VALUE, sName       ;; Static Data pointer
  118. Static@         Sym, <DD        VALUE>, sName
  119.                 ENDM
  120.  
  121. dPtrPub@        MACRO   Sym, VALUE, sName       ;; Global Data Pointer
  122. PubSym@         Sym, <DD        VALUE>, sName
  123.                 ENDM
  124.  
  125. dPtrExt@        MACRO   Sym, sName      ;; External Data Pointer
  126. ExtSym@         Sym, DWORD, sName
  127.                 ENDM
  128. ELSE
  129. DPTR_           equ     WORD PTR
  130. dPtrSize        equ     2
  131. LES_            equ     MOV
  132. ES_             equ     DS:
  133. SS_             equ     DS:
  134. LDS_            equ     MOV
  135.  
  136. pushDS_         MACRO
  137.                 ENDM
  138.  
  139. popDS_          MACRO
  140.                 ENDM
  141.  
  142. PushPtr         MACRO   dPtrOff, dPtrSeg
  143.                 PUSH    dPtrOff
  144.                 ENDM
  145.  
  146. dPtr@           MACRO   Sym, VALUE, sName       ;; Static Data pointer
  147. Static@         Sym, <DW        VALUE>, sName
  148.                 ENDM
  149.  
  150. dPtrPub@        MACRO   Sym, VALUE, sName       ;; Global Data Pointer
  151. PubSym@         Sym, <DW        VALUE>, sName
  152.                 ENDM
  153.  
  154. dPtrExt@        MACRO   Sym, sName      ;; External Data Pointer
  155. ExtSym@         Sym, WORD, sName
  156.                 ENDM
  157. ENDIF
  158.         PAGE
  159. ;[]------------------------------------------------------------[]
  160. ;|                                                              |
  161. ;|      Macros which are Code Size Dependent                    |
  162. ;|                                                              |
  163. ;[]------------------------------------------------------------[]
  164.  
  165. IF      LPROG
  166. CPTR_           equ     DWORD PTR
  167. cPtrSize        equ     4
  168.  
  169. Proc@           MACRO   Sym, sName      ;; Open a Static function
  170. Static@         Sym, <PROC      FAR>, sName
  171.                 ENDM
  172.  
  173. PubProc@        MACRO   Sym, sName      ;; Open a Public function
  174. PubSym@         Sym, <PROC      FAR>, sName
  175.                 ENDM
  176.  
  177. ExtProc@        MACRO   Sym, sName      ;; External Function
  178. ExtSym@         Sym, FAR, sName
  179.                 ENDM
  180.  
  181. cPtr@           MACRO   Sym, VALUE, sName       ;; Static Function pointer
  182. Static@         Sym, <DD        VALUE>, sName
  183.                 ENDM
  184.  
  185. cPtrPub@        MACRO   Sym, VALUE, sName;; Global Function Pointer
  186. PubSym@         Sym, <DD        VALUE>, sName
  187.                 ENDM
  188.  
  189. cPtrExt@        MACRO   Sym, sName      ;; External Function Pointer
  190. ExtSym@         Sym, DWORD, sName
  191.                 ENDM
  192. ELSE
  193. CPTR_           equ     WORD PTR
  194. cPtrSize        equ     2
  195.  
  196. Proc@           MACRO   Sym, sName      ;; Open a Static function
  197. Static@         Sym, <PROC      NEAR>, sName
  198.                 ENDM
  199.  
  200. PubProc@        MACRO   Sym, sName      ;; Open a Public function
  201. PubSym@         Sym, <PROC      NEAR>, sName
  202.                 ENDM
  203.  
  204. ExtProc@        MACRO   Sym, sName      ;; External Function
  205. ExtSym@         Sym, NEAR, sName
  206.                 ENDM
  207.  
  208. cPtr@           MACRO   Sym, VALUE, sName       ;; Static Function pointer
  209. Static@         Sym, <DW        VALUE>, sName
  210.                 ENDM
  211.  
  212. cPtrPub@        MACRO   Sym, VALUE, sName       ;; Global Function Pointer
  213. PubSym@         Sym, <DW        VALUE>, sName
  214.                 ENDM
  215.  
  216. cPtrExt@        MACRO   Sym, sName      ;; External Function Pointer
  217. ExtSym@         Sym, WORD, sName
  218.                 ENDM
  219. ENDIF
  220.  
  221. EndProc@        MACRO   Sym, sName      ;; Close a function
  222. Static@         Sym, ENDP, sName
  223.                 ENDM
  224.         PAGE
  225. ;[]------------------------------------------------------------[]
  226. ;|                                                              |
  227. ;|      Miscellaneous Definitions                               |
  228. ;|                                                              |
  229. ;[]------------------------------------------------------------[]
  230.  
  231. ;*** Set up some macros for procedure parameters and export/import
  232.  
  233. nearCall        STRUC
  234. nearBP          dw      ?
  235. nearIP          dw      ?
  236. nearParam       dw      ?
  237. nearCall        ENDS
  238.  
  239. farCall         STRUC
  240. farBP           dw      ?
  241. farCSIP         dd      ?
  242. aParam          dw      ?
  243. farCall         ENDS
  244.  
  245. ;*** Next, we define some convenient structures to access the parts
  246. ;       of larger objects.
  247.  
  248. _twoBytes       STRUC
  249. BY0     db      ?
  250. BY1     db      ?
  251. _twoBytes       ENDS
  252.  
  253. _fourWords      STRUC
  254. W0      dw      ?
  255. W1      dw      ?
  256. W2      dw      ?
  257. W3      dw      ?
  258. _fourWords      ENDS
  259.  
  260. _twoDwords      STRUC
  261. DD0     dd      ?
  262. DD1     dd      ?
  263. _twoDwords      ENDS
  264.  
  265. _aFloat         STRUC
  266. double          dq      ?
  267. _aFloat         ENDS
  268.  
  269. ; How to invoke MSDOS.
  270.  
  271. MSDOS@  MACRO
  272.         int     21h
  273.         ENDM
  274.         PAGE
  275. ;[]------------------------------------------------------------[]
  276. ;|                                                              |
  277. ;|      Emulator Segments and Definitions                       |
  278. ;|                                                              |
  279. ;|      The Emu287 module is in  a separate model from other    |
  280. ;|      code. It uses  the DSeg@ data segment, but  since it    |
  281. ;|      does not actually share data the important aspect of    |
  282. ;|      the Data  is the class  name 'DATA'. It  has its own    |
  283. ;|      stack inside  the data segment. The  code segment is    |
  284. ;|      completely  separate from  other code  segments. The    |
  285. ;|      only contact  between Emu287 and  other code is  via    |
  286. ;|      soft interrupts 34h..3Eh.                               |
  287. ;|                                                              |
  288. ;[]------------------------------------------------------------[]
  289.  
  290. EmuSeg@  MACRO
  291. EMU_PROG SEGMENT  PARA  PUBLIC "CODE"
  292. ASSUME   CS : EMU_PROG
  293.          ENDM
  294.  
  295. EmuSegEnd@ MACRO
  296. EMU_PROG ENDS
  297.          ENDM
  298.  
  299. E87Seg@  MACRO
  300. E87_PROG SEGMENT  PARA  PUBLIC "CODE"
  301. ASSUME   CS : E87_PROG
  302.          ENDM
  303.  
  304. E87SegEnd@ MACRO
  305. E87_PROG ENDS
  306.          ENDM
  307.  
  308.  
  309.  
  310. ; The next section concerns the use of registers.  SI and DI are used
  311. ;       for register variables, and must be conserved.
  312.  
  313. ; Registers AX, BX, CX, DX will not be preserved across function calls.
  314.  
  315. ; Firstly, the registers to be conserved through function calls, including
  316. ;       the setup of local variables.
  317.  
  318. link@   MACRO   _si,_di,_ES,locals
  319.         push    bp
  320.         mov     bp, sp
  321.         IFNB    <locals>
  322.                 lea     sp, locals
  323.         ENDIF
  324.         IFNB    <_si>
  325.                 push    si
  326.         ENDIF
  327.         IFNB    <_di>
  328.                 push    di
  329.         ENDIF
  330. ENDM
  331.  
  332. unLink@ MACRO   _si,_di,_ES,locals
  333.         IFNB    <_di>
  334.                 pop     di
  335.         ENDIF
  336.         IFNB    <_si>
  337.                 pop     si
  338.         ENDIF
  339.         IFNB    <locals>
  340.                 mov     sp, bp
  341.         ENDIF
  342.         pop     bp
  343. ENDM
  344.  
  345. ; Remainder of file only used for language denpendent
  346. ; initialization and trapping.
  347.  
  348.         PAGE
  349. ;[]------------------------------------------------------------[]
  350. ;|                                                              |
  351. ;|      iNDP Status and Control words definitions               |
  352. ;|                                                              |
  353. ;[]------------------------------------------------------------[]
  354.  
  355. ;/* 8087/80287 Status Word format   */
  356.  
  357. SW_INVALID              equ     00001h  ;/* Invalid operation            */
  358. SW_DENORMAL             equ     00002h  ;/* Denormalized operand         */
  359. SW_ZERODIVIDE           equ     00004h  ;/* Zero divide                  */
  360. SW_OVERFLOW             equ     00008h  ;/* Overflow                     */
  361. SW_UNDERFLOW            equ     00010h  ;/* Underflow                    */
  362. SW_INEXACT              equ     00020h  ;/* Precision (Inexact result)   */
  363.  
  364. ;/* 8087/80287 Control Word format */
  365.  
  366. MCW_EM                  equ     0003Fh  ;/* interrupt Exception Masks    */
  367.     EM_INVALID          equ     00001h  ;/*   invalid                    */
  368.     EM_DENORMAL         equ     00002h  ;/*   denormal                   */
  369.     EM_ZERODIVIDE       equ     00004h  ;/*   zero divide                */
  370.     EM_OVERFLOW         equ     00008h  ;/*   overflow                   */
  371.     EM_UNDERFLOW        equ     00010h  ;/*   underflow                  */
  372.     EM_INEXACT          equ     00020h  ;/*   inexact (precision)        */
  373.  
  374. MCW_IC                  equ     01000h  ;/* Infinity Control             */
  375.     IC_AFFINE           equ     01000h  ;/*   affine                     */
  376.     IC_PROJECTIVE       equ     00000h  ;/*   projective                 */
  377.  
  378. MCW_RC                  equ     00C00h  ;/* Rounding Control             */
  379.     RC_CHOP             equ     00C00h  ;/*   chop                       */
  380.     RC_UP               equ     00800h  ;/*   up                         */
  381.     RC_DOWN             equ     00400h  ;/*   down                       */
  382.     RC_NEAR             equ     00000h  ;/*   near                       */
  383.  
  384. MCW_PC                  equ     00300h  ;/* Precision Control            */
  385.     PC_24               equ     00000h  ;/*    24 bits                   */
  386.     PC_53               equ     00200h  ;/*    53 bits                   */
  387.     PC_64               equ     00300h  ;/*    64 bits                   */
  388.  
  389. ;/* 8087/80287 Initial Control Word */
  390. ;/* use affine infinity, mask underflow and precision exceptions */
  391. ;/* should be same as in float.h  */
  392. ; No longer used!
  393. ;CW_DEFAULT     equ     (RC_NEAR+PC_64+IC_AFFINE+EM_UNDERFLOW+EM_INEXACT)
  394.  
  395.  
  396. ;[]------------------------------------------------------------[]
  397. ;|                                                              |
  398. ;|      Segment Declarations Macros                             |
  399. ;|                                                              |
  400. ;[]------------------------------------------------------------[]
  401.  
  402. CSeg@           MACRO           ;; Open a Code Segment
  403. _TEXT   SEGMENT BYTE PUBLIC 'CODE'
  404.         ASSUME  CS:_TEXT
  405.                 ENDM
  406.  
  407. CSegEnd@        MACRO           ;; Close a Code Segment
  408. _TEXT   ENDS
  409.                 ENDM
  410.  
  411. DSeg@           MACRO           ;; Open a Data Segment  (initialized)
  412. _DATA   SEGMENT PARA PUBLIC 'DATA'
  413.                 ENDM
  414.  
  415. DSegEnd@        MACRO           ;; Close a Data Segment (initialized)
  416. _DATA   ENDS
  417.                 ENDM
  418.  
  419. IFDEF __BSS__
  420.     IFNDEF __HUGE__
  421.         BSeg@           MACRO   ;; Open a Data Segment  (un-initialized)
  422.         _BSS    SEGMENT WORD PUBLIC 'BSS'
  423.                 ENDM
  424.  
  425.         BSegEnd@        MACRO   ;; Close a Data Segment (un-initialized)
  426.         _BSS    ENDS
  427.                         ENDM
  428.     ENDIF
  429. ENDIF
  430.  
  431. Header@ MACRO
  432. _TEXT   SEGMENT BYTE PUBLIC 'CODE'
  433. _TEXT   ENDS
  434. _DATA   SEGMENT PARA PUBLIC 'DATA'
  435. _DATA   ENDS
  436. IFDEF __BSS__
  437.     IFNDEF  __HUGE__
  438.         _BSS    SEGMENT WORD PUBLIC 'BSS'
  439.         _BSS    ENDS
  440.     ENDIF
  441. ENDIF
  442.  
  443. IFDEF __BSS__
  444.     IFDEF   __TINY__
  445.         DGROUP  GROUP   _TEXT, _DATA, _BSS
  446.     ELSE
  447.         IFDEF __HUGE__
  448.             DGROUP  GROUP   _DATA
  449.         ELSE
  450.             DGROUP  GROUP   _DATA, _BSS
  451.         ENDIF
  452.     ENDIF
  453. ELSE
  454.     IFDEF   __TINY__
  455.         DGROUP  GROUP   _TEXT, _DATA
  456.     ELSE
  457.         DGROUP  GROUP   _DATA
  458.     ENDIF
  459. ENDIF
  460.         ASSUME  CS:_TEXT, DS:DGROUP
  461.         ENDM
  462.         PAGE
  463. ;[]------------------------------------------------------------[]
  464. ;|                                                              |
  465. ;|      C Naming Convention Macros                              |
  466. ;|                                                              |
  467. ;[]------------------------------------------------------------[]
  468.  
  469. UNDERSCORE      EQU     1
  470.  
  471. ExtSym@ MACRO   Sym, sType, sName
  472.         IFNB    <sName>
  473.         IFIDN   <sName>, <__PASCAL__>
  474. NAMING      =       0
  475.         ELSE
  476. NAMING      =       UNDERSCORE
  477.         ENDIF
  478.         ENDIF
  479.         IF      NAMING
  480.         EXTRN   _&Sym : sType
  481. Sym&@   equ     _&Sym
  482.         ELSE
  483.         EXTRN   Sym : sType
  484. Sym&@   equ     Sym
  485.         ENDIF
  486.         ENDM
  487.  
  488. PubSym@ MACRO   Sym, Definition, sName
  489.         IFNB    <sName>
  490.         IFIDN   <sName>, <__PASCAL__>
  491. NAMING      =       0
  492.         ELSE
  493. NAMING      =       UNDERSCORE
  494.         ENDIF
  495.         ENDIF
  496.         IF      NAMING
  497.         PUBLIC  _&Sym
  498. _&Sym   Definition
  499. Sym&@   equ     _&Sym
  500.         ELSE
  501.         PUBLIC  Sym
  502. Sym     Definition
  503. Sym&@   equ     Sym
  504.         ENDIF
  505.         ENDM
  506.  
  507. Static@ MACRO   Sym, Definition, sName
  508.         IFNB    <sName>
  509.         IFIDN   <sName>, <__PASCAL__>
  510. NAMING      =       0
  511.         ELSE
  512. NAMING      =       UNDERSCORE
  513.         ENDIF
  514.         ENDIF
  515.         IF      NAMING
  516. _&Sym   Definition
  517. Sym&@   equ     _&Sym
  518.         ELSE
  519. Sym     Definition
  520. Sym&@   equ     Sym
  521.         ENDIF
  522.         ENDM
  523.  
  524. .LIST
  525.