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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 多媒体 > DVD > 查看源码
rules.asi
资源名称：tb_i86_wr_1019_1102.　[点击查看]
上传用户：super_houu
上传日期：2008-09-21
资源大小：4099k
文件大小：18k
源码类别：

DVD

开发平台：

Others

rules.asi：源码内容
  1. ;
  2. ;      Paradigm C/C++ Run-Time Library - Version 5.0
  3. ; 
  4. ;      Copyright (c) 1998 Paradigm Systems.  All rights reserved.
  5. ;      Portions Copyright (c) 1996 Borland International.
  6. ;
  7. ;      $Revision:$
  8. ; 
  10. ;*** First we begin with a few of the major constants of C.
  12. false   equ     0       ; Beware !  For incoming parameters, non-false = true.
  13. true    equ     1       ; For results, we generate the proper numbers.
  15. lesser  equ    -1       ; Incoming, lesser < 0
  16. equal   equ     0
  17. greater equ     1       ; Incoming, greater > 0
  19.         PAGE
  20. ;[]------------------------------------------------------------[]
  21. ;|                                                              |
  22. ;|      Conditional Assembly Directives                         |
  23. ;|                                                              |
  24. ;[]------------------------------------------------------------[]
  26. ;memory model aliases, for the convenience of building the library
  28. IFDEF           __t__
  29. IFNDEF __TINY__
  30. __TINY__        equ     1
  31. ENDIF
  32. ENDIF
  34. IFDEF           __s__
  35. IFNDEF __SMALL__
  36. __SMALL__       equ     1
  37. ENDIF
  38. ENDIF
  40. IFDEF           __c__
  41. IFNDEF __COMPACT__
  42. __COMPACT__     equ     1
  43. ENDIF
  44. ENDIF
  46. IFDEF           __m__
  47. IFNDEF __MEDIUM__
  48. __MEDIUM__      equ     1
  49. ENDIF
  50. ENDIF
  52. IFDEF           __l__
  53. IFNDEF __LARGE__
  54. __LARGE__       equ     1
  55. ENDIF
  56. ENDIF
  58. IFDEF           __h__
  59. IFNDEF __HUGE__
  60. __HUGE__        equ     1
  61. ENDIF
  62. ENDIF
  64. IFNDEF __TINY__
  65.     IFNDEF __SMALL__
  66.         IFNDEF __MEDIUM__
  67.             IFNDEF __COMPACT__
  68.                 IFNDEF __LARGE__
  69.                     IFNDEF __HUGE__
  70.                         %OUT  You must supply a model symbol.
  71.                         .ERR
  72.                     ENDIF
  73.                 ENDIF
  74.             ENDIF
  75.         ENDIF
  76.     ENDIF
  77. ENDIF
  79. ;bit masks to extract default pointer types from MMODEL (at run-time)
  80. FCODE           equ     8000h
  81. FDATA           equ     4000h
  83. IFDEF   __TINY__                ; Small Code - Small Data
  84.         LPROG           equ     false
  85.         LDATA           equ     false
  86.         MMODEL          equ     0
  87.         _DSSTACK_       equ     <>
  88. ENDIF
  90. IFDEF   __SMALL__               ; Small Code - Small Data
  91.         LPROG           equ     false
  92.         LDATA           equ     false
  93.         MMODEL          equ     1
  94.         _DSSTACK_       equ     <>
  95. ENDIF
  97. IFDEF   __MEDIUM__              ; Large Code - Small Data
  98.         LPROG           equ     true
  99.         LDATA           equ     false
  100.         MMODEL          equ     FCODE+2
  101.         _DSSTACK_       equ     <>
  102. ENDIF
  104. IFDEF   __COMPACT__             ; Small Code - Large Data
  105.         LPROG           equ     false
  106.         LDATA           equ     true
  107.         MMODEL          equ     FDATA+3
  108. ENDIF
  110. IFDEF   __LARGE__               ; Large Code - Large Data
  111.         LPROG           equ     true
  112.         LDATA           equ     true
  113.         MMODEL          equ     FCODE+FDATA+4
  114. ENDIF
  116. IFDEF   __HUGE__                ; Large Code - Large Data
  117.         LPROG           equ     true
  118.         LDATA           equ     true
  119.         MMODEL          equ     FCODE+FDATA+5
  120. ENDIF
  122. IF      LPROG
  123.         DIST            equ     FAR
  124. ELSE
  125.         DIST            equ     NEAR
  126. ENDIF
  128.         PAGE
  129. ;[]------------------------------------------------------------[]
  130. ;|                                                              |
  131. ;|      Segment Declarations Macros                             |
  132. ;|                                                              |
  133. ;[]------------------------------------------------------------[]
  135. Code_Seg@       MACRO           ;; Open a Code Segment
  136. IFDEF __WINDOWS__
  137. _TEXT   SEGMENT WORD PUBLIC 'CODE'
  138. ELSE
  139. _TEXT   SEGMENT BYTE PUBLIC 'CODE'
  140. ENDIF
  141.         ASSUME  CS:_TEXT
  142.                 ENDM
  144. Code_EndS@      MACRO           ;; Close a Code Segment
  145. _TEXT   ENDS
  146.                 ENDM
  148. Data_Seg@       MACRO           ;; Open a Data Segment  (initialized)
  149. _DATA   SEGMENT WORD PUBLIC 'DATA'
  150.                 ENDM
  152. Data_EndS@      MACRO           ;; Close a Data Segment (initialized)
  153. _DATA   ENDS
  154.                 ENDM
  156. IFNDEF __HUGE__
  157.     BSS_Seg@        MACRO       ;; Open a Data Segment  (un-initialized)
  158.     _BSS    SEGMENT WORD PUBLIC 'BSS'
  159.             ENDM
  161.     BSS_EndS@       MACRO       ;; Close a Data Segment (un-initialized)
  162.     _BSS    ENDS
  163.                     ENDM
  164. ENDIF
  166. FarData_Seg@    MACRO           ;; Open a FAR Data Segment
  167. _FARDATA        SEGMENT PARA PUBLIC 'FAR_DATA'
  168.                 ENDM
  170. FarData_EndS@   MACRO           ;; Close a FAR Data Segment
  171. _FARDATA        ENDS
  172.                 ENDM
  174. FarBSS_Seg@     MACRO           ;; Open a FAR BSS Segment
  175. _FARBSS         SEGMENT PARA PUBLIC 'FAR_BSS'
  176.                 ENDM
  178. FarBSS_EndS@    MACRO           ;; Close a FAR BSS Segment
  179. _FARBSS         ENDS
  180.                 ENDM
  182. Const_Seg@      MACRO           ;; Open a CONST Segment
  183. _CONST  SEGMENT WORD PUBLIC 'CONST'
  184.                 ENDM
  186. Const_EndS@     MACRO           ;; Close a CONST Segment
  187. _CONST  ENDS
  188.                 ENDM
  190. Init_Seg@       MACRO           ;; Open a INIT Segment
  191. _INIT_  SEGMENT WORD PUBLIC 'INITDATA'
  192.                 ENDM
  194. Init_EndS@      MACRO           ;; Close a INIT Segment
  195. _INIT_  ENDS
  196.                 ENDM
  198. Exit_Seg@       MACRO           ;; Open a EXIT Segment
  199. _EXIT_  SEGMENT WORD PUBLIC 'EXITDATA'
  200.                 ENDM
  202. Exit_EndS@      MACRO           ;; Close a EXIT Segment
  203. _EXIT_  ENDS
  204.                 ENDM
  206. CVT_Seg@        MACRO
  207. _CVTSEG SEGMENT WORD PUBLIC 'DATA'
  208.                 ENDM
  210. CVT_EndS@       MACRO
  211. _CVTSEG ENDS
  212.                 ENDM
  214. SCN_Seg@        MACRO
  215. _SCNSEG SEGMENT WORD PUBLIC 'DATA'
  216.                 ENDM
  218. SCN_EndS@       MACRO
  219. _SCNSEG ENDS
  220.                 ENDM
  222. Header@ MACRO
  223. Code_Seg@
  224. Code_EndS@
  225. Data_Seg@
  226. Data_EndS@
  227. BSS_Seg@
  228. BSS_EndS@
  229.         ASSUME  CS:_TEXT, DS:DGROUP
  230.         ENDM
  232. ;[]------------------------------------------------------------[]
  233. ;|                                                              |
  234. ;|      Segment Definitions                                     |
  235. ;|                                                              |
  236. ;[]------------------------------------------------------------[]
  238. IFDEF __C0__
  240. IFDEF __WINDOWS__
  241. _TEXT           SEGMENT WORD PUBLIC 'CODE'
  242.                 ENDS
  243. ELSE
  244. _TEXT           SEGMENT BYTE PUBLIC 'CODE'
  245.                 ENDS
  246. ENDIF
  248. _FARDATA        SEGMENT PARA PUBLIC 'FAR_DATA'
  249.                 ENDS
  251. _FARBSS         SEGMENT PARA PUBLIC 'FAR_BSS'
  252.                 ENDS
  254. IFNDEF __WINDOWS__
  255.   IFNDEF __TINY__
  256.   _OVERLAY_       SEGMENT PARA PUBLIC 'OVRINFO'
  257.                   ENDS
  258.   _1STUB_         SEGMENT PARA PUBLIC 'STUBSEG'
  259.                   ENDS
  260.   ENDIF
  261. ENDIF
  263. IFDEF __WINDOWS__
  264. NULL            SEGMENT PARA PUBLIC 'BEGDATA'
  265.                 ENDS
  266. ENDIF
  268. _DATA           SEGMENT PARA PUBLIC 'DATA'
  269.                 ENDS
  270.                 ENDS
  272. _CONST          SEGMENT WORD PUBLIC 'CONST'
  273.                 ENDS
  275. IFDEF __WINDOWS__
  276. _FPSEG          SEGMENT WORD PUBLIC 'DATA'
  277.                 ENDS
  278. ENDIF
  280. _CVTSEG         SEGMENT WORD PUBLIC 'DATA'
  281.                 ENDS
  283. _SCNSEG         SEGMENT WORD PUBLIC 'DATA'
  284.                 ENDS
  286. _INIT_          SEGMENT WORD PUBLIC 'INITDATA'
  287. InitStart       label byte
  288.                 ENDS
  289. _INITEND_       SEGMENT BYTE PUBLIC 'INITDATA'
  290. InitEnd         label byte
  291.                 ENDS
  293. _EXIT_          SEGMENT WORD PUBLIC 'EXITDATA'
  294. ExitStart       label byte
  295.                 ENDS
  296. _EXITEND_       SEGMENT BYTE PUBLIC 'EXITDATA'
  297. ExitEnd         label byte
  298.                 ENDS
  300. IFNDEF __HUGE__
  301. _BSS          SEGMENT WORD PUBLIC 'BSS'
  302. BeginBSS      label byte
  303.               ENDS
  304. _BSSEND       SEGMENT BYTE PUBLIC 'BSSEND'
  305. EndBSS        label byte
  306.               ENDS
  307. ENDIF
  310. IFDEF __WINDOWS__
  312.   IFDEF  __HUGE__
  313.   DGROUP GROUP NULL,_DATA,_CONST,_FPSEG,_CVTSEG,_SCNSEG,_INIT_,_INITEND_,_EXIT_,_EXITEND_
  314.   ELSE
  315.   DGROUP GROUP NULL,_DATA,_CONST,_FPSEG,_CVTSEG,_SCNSEG,_INIT_,_INITEND_,_EXIT_,_EXITEND_,_BSS,_BSSEND
  316.   ENDIF
  318. ELSE
  320. IFNDEF __NOFLOAT__
  321.   IF LDATA
  322.     IFDEF  __HUGE__
  323.       DGROUP GROUP _DATA,_CONST,_CVTSEG,_SCNSEG,_INIT_,_INITEND_,_EXIT_,_EXITEND_
  324.     ELSE
  325.       DGROUP GROUP _DATA,_CONST,_CVTSEG,_SCNSEG,_INIT_,_INITEND_,_EXIT_,_EXITEND_,_BSS,_BSSEND
  326.     ENDIF
  327.   ELSE
  328.     IFDEF __TINY__
  329.       DGROUP GROUP _TEXT,_DATA,_CONST,_CVTSEG,_SCNSEG,_INIT_,_INITEND_,_EXIT_,_EXITEND_,_BSS,_BSSEND
  330.     ELSE
  331.       DGROUP GROUP _DATA,_CONST,_CVTSEG,_SCNSEG,_INIT_,_INITEND_,_EXIT_,_EXITEND_,_BSS,_BSSEND
  332.     ENDIF
  333.   ENDIF
  334. ELSE
  335.   IF LDATA
  336.     IFDEF __HUGE__
  337.       DGROUP GROUP _DATA,_CONST,_CVTSEG,_SCNSEG,_INIT_,_INITEND_,_EXIT_,_EXITEND_
  338.     ELSE
  339.       DGROUP GROUP _DATA,_CONST,_CVTSEG,_SCNSEG,_BSS,_BSSEND
  340.     ENDIF
  341.   ELSE
  342.     IFDEF __TINY__
  343.       DGROUP GROUP _TEXT,_DATA,_CONST,_CVTSEG,_SCNSEG,_INIT_,_INITEND_,_EXIT_,_EXITEND_,_BSS,_BSSEND
  344.     ELSE
  345.       DGROUP GROUP _DATA,_CONST,_CVTSEG,_SCNSEG,_INIT_,_INITEND_,_EXIT_,_EXITEND_,_BSS,_BSSEND
  346.     ENDIF
  347.   ENDIF
  348. ENDIF ; __NOFLOAT__
  350. ENDIF ; __WINDOWS__
  352. ELSE
  354. Code_Seg@
  355. Code_EndS@
  356. Data_Seg@
  357. Data_EndS@
  358. DGROUP GROUP _DATA
  360. ENDIF ; __C0__
  362.         PAGE
  363. ;[]------------------------------------------------------------[]
  364. ;|                                                              |
  365. ;|      Old Segment Declarations Macros                         |
  366. ;|                                                              |
  367. ;[]------------------------------------------------------------[]
  370. CSeg@           MACRO           ;; Open a Code Segment
  371. IFDEF __WINDOWS__
  372. _TEXT   SEGMENT WORD PUBLIC 'CODE'
  373. ELSE
  374. _TEXT   SEGMENT BYTE PUBLIC 'CODE'
  375. ENDIF
  376.         ASSUME  CS:_TEXT
  377.                 ENDM
  379. CSegEnd@        MACRO           ;; Close a Code Segment
  380. _TEXT   ENDS
  381.                 ENDM
  383. DSeg@           MACRO           ;; Open a Data Segment  (initialized)
  384. _DATA   SEGMENT WORD PUBLIC 'DATA'
  385.                 ENDM
  387. DSegEnd@        MACRO           ;; Close a Data Segment (initialized)
  388. _DATA   ENDS
  389.                 ENDM
  391. IFDEF __BSS__
  392.     IFNDEF __HUGE__
  393.         BSeg@           MACRO           ;; Open a Data Segment  (un-initialized)
  394.         _BSS    SEGMENT WORD PUBLIC 'BSS'
  395.                 ENDM
  397.         BSegEnd@        MACRO           ;; Close a Data Segment (un-initialized)
  398.         _BSS    ENDS
  399.                         ENDM
  400.     ENDIF
  401. ENDIF
  403. Header@ MACRO
  404. IFDEF __WINDOWS__
  405. _TEXT   SEGMENT WORD PUBLIC 'CODE'
  406. ELSE
  407. _TEXT   SEGMENT BYTE PUBLIC 'CODE'
  408. ENDIF
  409. _TEXT   ENDS
  410. _DATA   SEGMENT WORD PUBLIC 'DATA'
  411. _DATA   ENDS
  412. IFDEF __BSS__
  413.     IFNDEF  __HUGE__
  414.         _BSS    SEGMENT WORD PUBLIC 'BSS'
  415.         _BSS    ENDS
  416.     ENDIF
  417. ENDIF
  419.         ASSUME  CS:_TEXT, DS:DGROUP
  420.         ENDM
  422.         PAGE
  423. ;[]------------------------------------------------------------[]
  424. ;|                                                              |
  425. ;|      C Naming Convention Macros                              |
  426. ;|                                                              |
  427. ;[]------------------------------------------------------------[]
  429. UNDERSCORE      EQU     1
  431. ExtSym@ MACRO   Sym, sType, sName
  432.         IFNB    <sName>
  433.         IFIDN   <sName>, <__PASCAL__>
  434. NAMING      =       0
  435.         ELSE
  436. NAMING      =       UNDERSCORE
  437.         ENDIF
  438.         ENDIF
  439.         IF      NAMING
  440.         EXTRN   _&Sym : sType
  441. Sym&@   equ     _&Sym
  442.         ELSE
  443.         EXTRN   Sym : sType
  444. Sym&@   equ     Sym
  445.         ENDIF
  446.         ENDM
  448. PubSym@ MACRO   Sym, Definition, sName
  449.         IFNB    <sName>
  450.         IFIDN   <sName>, <__PASCAL__>
  451. NAMING      =       0
  452.         ELSE
  453. NAMING      =       UNDERSCORE
  454.         ENDIF
  455.         ENDIF
  456.         IF      NAMING
  457.         PUBLIC  _&Sym
  458. _&Sym   Definition
  459. Sym&@   equ     _&Sym
  460.         ELSE
  461.         PUBLIC  Sym
  462. Sym     Definition
  463. Sym&@   equ     Sym
  464.         ENDIF
  465.         ENDM
  467. Static@ MACRO   Sym, Definition, sName
  468.         IFNB    <sName>
  469.         IFIDN   <sName>, <__PASCAL__>
  470. NAMING      =       0
  471.         ELSE
  472. NAMING      =       UNDERSCORE
  473.         ENDIF
  474.         ENDIF
  475.         IF      NAMING
  476. _&Sym   Definition
  477. Sym&@   equ     _&Sym
  478.         ELSE
  479. Sym     Definition
  480. Sym&@   equ     Sym
  481.         ENDIF
  482.         ENDM
  484.         PAGE
  485. ;[]------------------------------------------------------------[]
  486. ;|                                                              |
  487. ;|      Macros which are Data Size Dependent                    |
  488. ;|                                                              |
  489. ;[]------------------------------------------------------------[]
  491. IF      LDATA
  492. DPTR_           equ     DWORD PTR
  493. dPtrSize        equ     4
  494. LES_            equ     LES
  495. ES_             equ     ES:
  496. SS_             equ     SS:
  497. LDS_            equ     LDS
  499. pushDS_         MACRO
  500.                 PUSH    DS
  501.                 ENDM
  503. popDS_          MACRO
  504.                 POP    DS
  505.                 ENDM
  507. PushPtr         MACRO   dPtrOff, dPtrSeg
  508.                 PUSH    dPtrSeg
  509.                 PUSH    dPtrOff
  510.                 ENDM
  513. dPtr@           MACRO   Sym, VALUE, sName       ;; Static Data pointer
  514. Static@         Sym, <DD        VALUE>, sName
  515.                 ENDM
  517. dPtrPub@        MACRO   Sym, VALUE, sName       ;; Global Data Pointer
  518. PubSym@         Sym, <DD        VALUE>, sName
  519.                 ENDM
  521. dPtrExt@        MACRO   Sym, sName      ;; External Data Pointer
  522. ExtSym@         Sym, DWORD, sName
  523.                 ENDM
  524. ELSE
  525. DPTR_           equ     WORD PTR
  526. dPtrSize        equ     2
  527. LES_            equ     MOV
  528. ES_             equ     DS:
  529. SS_             equ     DS:
  530. LDS_            equ     MOV
  532. pushDS_         MACRO
  533.                 ENDM
  535. popDS_          MACRO
  536.                 ENDM
  538. PushPtr         MACRO   dPtrOff, dPtrSeg
  539.                 PUSH    dPtrOff
  540.                 ENDM
  542. dPtr@           MACRO   Sym, VALUE, sName       ;; Static Data pointer
  543. Static@         Sym, <DW        VALUE>, sName
  544.                 ENDM
  546. dPtrPub@        MACRO   Sym, VALUE, sName       ;; Global Data Pointer
  547. PubSym@         Sym, <DW        VALUE>, sName
  548.                 ENDM
  550. dPtrExt@        MACRO   Sym, sName      ;; External Data Pointer
  551. ExtSym@         Sym, WORD, sName
  552.                 ENDM
  553. ENDIF
  554.         PAGE
  555. ;[]------------------------------------------------------------[]
  556. ;|                                                              |
  557. ;|      Macros which are Code Size Dependent                    |
  558. ;|                                                              |
  559. ;[]------------------------------------------------------------[]
  561. IF      LPROG
  562. CPTR_           equ     DWORD PTR
  563. cPtrSize        equ     4
  565. Proc@           MACRO   Sym, sName      ;; Open a Static function
  566. Static@         Sym, <PROC      FAR>, sName
  567.                 ENDM
  569. PubProc@        MACRO   Sym, sName      ;; Open a Public function
  570. PubSym@         Sym, <PROC      FAR>, sName
  571.                 ENDM
  573. ExtProc@        MACRO   Sym, sName      ;; External Function
  574. ExtSym@         Sym, FAR, sName
  575.                 ENDM
  577. cPtr@           MACRO   Sym, VALUE, sName       ;; Static Function pointer
  578. Static@         Sym, <DD        VALUE>, sName
  579.                 ENDM
  581. cPtrPub@        MACRO   Sym, VALUE, sName;; Global Function Pointer
  582. PubSym@         Sym, <DD        VALUE>, sName
  583.                 ENDM
  585. cPtrExt@        MACRO   Sym, sName      ;; External Function Pointer
  586. ExtSym@         Sym, DWORD, sName
  587.                 ENDM
  588. ELSE
  589. CPTR_           equ     WORD PTR
  590. cPtrSize        equ     2
  592. Proc@           MACRO   Sym, sName      ;; Open a Static function
  593. Static@         Sym, <PROC      NEAR>, sName
  594.                 ENDM
  596. PubProc@        MACRO   Sym, sName      ;; Open a Public function
  597. PubSym@         Sym, <PROC      NEAR>, sName
  598.                 ENDM
  600. ExtProc@        MACRO   Sym, sName      ;; External Function
  601. ExtSym@         Sym, NEAR, sName
  602.                 ENDM
  604. cPtr@           MACRO   Sym, VALUE, sName       ;; Static Function pointer
  605. Static@         Sym, <DW        VALUE>, sName
  606.                 ENDM
  608. cPtrPub@        MACRO   Sym, VALUE, sName       ;; Global Function Pointer
  609. PubSym@         Sym, <DW        VALUE>, sName
  610.                 ENDM
  612. cPtrExt@        MACRO   Sym, sName      ;; External Function Pointer
  613. ExtSym@         Sym, WORD, sName
  614.                 ENDM
  615. ENDIF
  617. EndProc@        MACRO   Sym, sName      ;; Close a function
  618. Static@         Sym, ENDP, sName
  619.                 ENDM
  621.         PAGE
  622. ;[]------------------------------------------------------------[]
  623. ;|                                                              |
  624. ;|      Miscellaneous Definitions                               |
  625. ;|                                                              |
  626. ;[]------------------------------------------------------------[]
  628. ;*** Set up some macros for procedure parameters and export/import
  630. nearCall        STRUC
  631. nearBP          dw      ?
  632. nearIP          dw      ?
  633. nearParam       dw      ?
  634. nearCall        ENDS
  636. farCall         STRUC
  637. farBP           dw      ?
  638. farCSIP         dd      ?
  639. aParam          dw      ?
  640. farCall         ENDS
  642. ;*** Next, we define some convenient structures to access the parts
  643. ;       of larger objects.
  645. _twoBytes       STRUC
  646. BY0     db      ?
  647. BY1     db      ?
  648. _twoBytes       ENDS
  650. _fourWords      STRUC
  651. W0      dw      ?
  652. W1      dw      ?
  653. W2      dw      ?
  654. W3      dw      ?
  655. _fourWords      ENDS
  657. _twoDwords      STRUC
  658. DD0     dd      ?
  659. DD1     dd      ?
  660. _twoDwords      ENDS
  662. _aFloat         STRUC
  663. double          dq      ?
  664. _aFloat         ENDS
  666. ; How to invoke MSDOS.
  668. MSDOS@  MACRO
  669.         int     21h
  670.         ENDM
  671.         PAGE
  673. ; The next section concerns the use of registers.  SI and DI are used
  674. ;       for register variables, and must be conserved.
  676. ; Registers AX, BX, CX, DX will not be preserved across function calls.
  678. ; Firstly, the registers to be conserved through function calls, including
  679. ;       the setup of local variables.
  681. link@   MACRO   _si,_di,_ES,locals
  682.         push    bp
  683.         mov     bp, sp
  684.         IFNB    <locals>
  685.                 lea     sp, locals
  686.         ENDIF
  687.         IFNB    <_si>
  688.                 push    si
  689.         ENDIF
  690.         IFNB    <_di>
  691.                 push    di
  692.         ENDIF
  693. ENDM
  695. unLink@ MACRO   _si,_di,_ES,locals
  696.         IFNB    <_di>
  697.                 pop     di
  698.         ENDIF
  699.         IFNB    <_si>
  700.                 pop     si
  701.         ENDIF
  702.         IFNB    <locals>
  703.                 mov     sp, bp
  704.         ENDIF
  705.         pop     bp
  706. ENDM
  708. .LIST