![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to cmacros.inc CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [OS/2 SDKs] / os2sdk / startup|
Return to cmacros.inc CVS log | Up to [OS/2 SDKs] / os2sdk / startup |
1.1 ! root 1: comment $ ! 2: cmacros - assembly macros for interfacing to HHLs ! 3: (C)Copyright Microsoft Corp. 1984 ! 4: $ ! 5: if1 ! 6: outif MACRO name,defval,onmsg,offmsg ! 7: ifndef name ! 8: ifb <defval> ! 9: name=0 ! 10: else ! 11: name=defval ! 12: endif ! 13: endif ! 14: if name ! 15: name=1 ! 16: ifnb <onmsg> ! 17: %out ! onmsg ! 18: endif ! 19: else ! 20: ifnb <offmsg> ! 21: %out ! offmsg ! 22: endif ! 23: endif ! 24: endm ! 25: error MACRO msg ! 26: bug ! 27: %out E r r o r ----- msg ! 28: ENDM ! 29: %out cMacros Version 1.06+ ! 30: outif memS,0,<Small Model> ! 31: outif memM,0,<Medium Model> ! 32: outif memL,0,<Large Model> ! 33: outif memC,0,<Compact Model> ! 34: outif memH,0,<Huge Model> ! 35: memMOD= memS + memM + memL + memC + memH ! 36: if memMOD ne 1 ! 37: if memMOD eq 0 ! 38: memS= 1 ! 39: outif memS,0,<Small Model> ! 40: else ! 41: error <Must have only 1 memory model selected> ! 42: endif ! 43: endif ! 44: sizeC= memM + memL + memH ! 45: sizeD= memL + memC + (memH*2) ! 46: outif ?DF,0,<No segments or groups will be defined> ! 47: outif ?WIN,1,<Windows Support> ! 48: outif ?PLM,1,<PLM calling convention> ! 49: endif ! 50: .XCREF ! 51: .XCREF ?N,?AX,?AH,?AL,?BX,?BH ! 52: .XCREF ?BL,?CX,?CH,?CL,?DX,?DH ! 53: .XCREF ?DL,?SI,?DI,?ES,?DS,?BP ! 54: .XCREF ?SP,?SS,?CS ! 55: .XCREF ?RSL,?CPD,?argl,?argc,?BA ! 56: .XCREF ?ACB,???,?PO ! 57: .XCREF ?PAS,?PC ! 58: .XCREF Uconcat,mPush,mPop ! 59: .XCREF ?RI,?pp,?pp1,?al1 ! 60: .XCREF ?aD,?AP,?Atal,?pd,?dd,?dd1,?ex1 ! 61: .XCREF ?pg,?pg1,?aloc,?cs1,?cs2 ! 62: .XCREF ?lb1,?lblpu ! 63: .XCREF ?DF,?PLM,?WIN,?IA,?PU,?ADJ ! 64: .CREF ! 65: ?RSL = 0 ! 66: ?CPD = 0 ! 67: ?ArgL = 0 ! 68: ?ArgC = 0 ! 69: ?BA = 0 ! 70: ?ACB = 0 ! 71: ??? = 0 ! 72: ?PO = 0 ! 73: ?PAS = 0 ! 74: ?PC = 0 ! 75: ?IA = 0 ! 76: ?PU = 0 ! 77: ?ADJ = 0 ! 78: ?lblpu = 0 ! 79: ?N = 0000000000000000B ! 80: ?AX = 0000000000000011B ! 81: ?AH = 0000000000000001B ! 82: ?AL = 0000000000000010B ! 83: ?BX = 0000000000001100B ! 84: ?BH = 0000000000000100B ! 85: ?BL = 0000000000001000B ! 86: ?CX = 0000000000110000B ! 87: ?CH = 0000000000010000B ! 88: ?CL = 0000000000100000B ! 89: ?DX = 0000000011000000B ! 90: ?DH = 0000000001000000B ! 91: ?DL = 0000000010000000B ! 92: ?SI = 0000000100000000B ! 93: ?DI = 0000001000000000B ! 94: ?ES = 0000010000000000B ! 95: ?DS = 0000100000000000B ! 96: ?BP = 0001000000000000B ! 97: ?SP = 0010000000000000B ! 98: ?SS = 0100000000000000B ! 99: ?CS = 1000000000000000B ! 100: uconcat macro n1,n2,o1,o2,p1,p2 ! 101: n1&n2 o1&o2 p1&p2 ! 102: endm ! 103: mpush macro rV ! 104: irp x,<ax,bx,cx,dx,si,di,es,ds,bp,sp,ss,cs> ! 105: if rV AND ?&&x ! 106: push x ! 107: endif ! 108: endm ! 109: endm ! 110: mpop macro rV ! 111: irp x,<cs,ss,sp,bp,ds,es,di,si,dx,cx,bx,ax> ! 112: if rV AND ?&&x ! 113: pop x ! 114: endif ! 115: endm ! 116: endm ! 117: SAVE macro rL ! 118: ?RSL = 0 ! 119: ?RI ?RSL,<rL> ! 120: endm ! 121: smashes macro n,rL ! 122: .xcref ! 123: .xcref ?SM&n ! 124: .cref ! 125: ?SM&n = 0 ! 126: ?RI ?SM&n,<rL> ! 127: endm ! 128: ?RI macro n,rL ! 129: irp x,<rL> ! 130: ifdef ?&&x ! 131: n = n or ?&&x ! 132: endif ! 133: endm ! 134: endm ! 135: parmB macro nl ! 136: ?pp <&nL>,<byte>,2,1 ! 137: endm ! 138: parmW macro nl ! 139: ?pp <&nL>,<word>,2,2 ! 140: endm ! 141: parmD macro nl ! 142: ife ?PLM ! 143: irp x,<nL> ! 144: ?pp <&&x>,<DWORD>,0,4 ! 145: ?pp <Off_&&x>,<WORD>,2,2 ! 146: ?pp <Seg_&&x>,<WORD>,2,2 ! 147: endm ! 148: else ! 149: irp x,<nL> ! 150: ?pp <Seg_&&x>,<WORD>,2,2 ! 151: ?pp <Off_&&x>,<WORD>,2,2 ! 152: ?pp <&&x>,<DWORD>,0,4 ! 153: endm ! 154: endif ! 155: endm ! 156: parmQ macro nl ! 157: ?pp <&nL>,<QWORD>,8,8 ! 158: endm ! 159: parmT macro nl ! 160: ?pp <&nL>,<TBYTE>,10,10 ! 161: endm ! 162: if sizeC ! 163: parmCP macro nl ! 164: parmD <nl> ! 165: endm ! 166: else ! 167: parmCP macro nl ! 168: parmW <nl> ! 169: endm ! 170: endif ! 171: if sizeD ! 172: parmDP macro nl ! 173: parmD <nl> ! 174: endm ! 175: else ! 176: parmDP macro nl ! 177: parmW <nl> ! 178: endm ! 179: endif ! 180: ?pp macro nL,t,l,s ! 181: if ?CPD ! 182: .xcref ! 183: ife ?PLM ! 184: irp x,<nL> ! 185: ?pp1 x,<t>,%?PO,%?adj,%(?PO+?adj) ! 186: ?PO = ?PO + l ! 187: .xcref ?T&&x ! 188: ?T&&x = s ! 189: endm ! 190: else ! 191: irp x,<nL> ! 192: ?PO = ?PO + l ! 193: ?pp1 x,<t>,%?PO,%?adj,%(?PO+?adj) ! 194: .xcref ?T&&x ! 195: ?T&&x = s ! 196: endm ! 197: endif ! 198: .cref ! 199: else ! 200: %out Parm(s) "&nl" declared outside proc def. ! 201: endif ! 202: endm ! 203: ?pp1 macro n,t,o,a,b ! 204: ife ?PLM ! 205: n equ t ptr [bp+b] ! 206: else ! 207: n equ t ptr [bp+a+?PO-o] ! 208: endif ! 209: endm ! 210: localB macro nL ! 211: ?aLoc <&nL>,<BYTE ptr>,1,1,0 ! 212: endm ! 213: localW macro nL ! 214: ?aLoc <&nL>,<WORD PTR>,2,2,1 ! 215: endm ! 216: localD macro nL ! 217: irp x,<nL> ! 218: ?aLoc <Seg_&&x>,<WORD PTR>,2,2,1 ! 219: ?aLoc <Off_&&x>,<WORD PTR>,2,2,1 ! 220: ?aLoc <&&x>,<DWORD PTR>,0,4,1 ! 221: endm ! 222: endm ! 223: localQ macro nL ! 224: ?aLoc <&nL>,<QWORD PTR>,8,8,1 ! 225: endm ! 226: localT macro nL ! 227: ?aLoc <&nL>,<TBYTE PTR>,10,10,1 ! 228: endm ! 229: if sizeC ! 230: localCP macro nL ! 231: localD <nL> ! 232: endm ! 233: else ! 234: localCP macro nL ! 235: localW <nL> ! 236: endm ! 237: endif ! 238: if sizeD ! 239: localDP macro nL ! 240: localD <nL> ! 241: endm ! 242: else ! 243: localDP macro nL ! 244: localW <nL> ! 245: endm ! 246: endif ! 247: localV macro n,a ! 248: ?aLoc <&n>,<BYTE PTR>,%(&a),0,1 ! 249: endm ! 250: ?aLoc macro nL,t,l,s,a ! 251: if ?CPD ! 252: .xcref ! 253: ??? = ??? + l ! 254: if a ! 255: ??? = ((??? + 1) AND 0FFFEH) ! 256: endif ! 257: irp x,<nL> ! 258: ?aL1 x,<t>,%??? ! 259: .xcref ?T&&x ! 260: ?T&&x = s ! 261: endm ! 262: .cref ! 263: else ! 264: %out Locals "&nl" declared outside procedure def. ! 265: endif ! 266: endm ! 267: ?aL1 macro n,t,o ! 268: if ?IA ! 269: n equ t [bp-?IA-o] ! 270: else ! 271: n equ t [bp-o] ! 272: endif ! 273: endm ! 274: globalB macro n,i,s ! 275: ?aD <n>,1 ! 276: ?dd n,1,<BYTE>,<DB>,<i>,<s> ! 277: endm ! 278: globalW macro n,i,s ! 279: ?aD <n>,2 ! 280: ?dd n,1,<WORD>,<DW>,<i>,<s> ! 281: endm ! 282: globalD macro n,i,s ! 283: ?aD <n>,4 ! 284: ?dd n,1,<DWORD>,<DD>,<i>,<s> ! 285: endm ! 286: globalQ macro n,i,s ! 287: ?aD <n>,8 ! 288: ?dd n,1,<QWORD>,<DQ>,<i>,<s> ! 289: endm ! 290: globalT macro n,i,s ! 291: ?aD <n>,10 ! 292: ?dd n,1,<TBYTE>,<DT>,<i>,<s> ! 293: endm ! 294: if sizeC ! 295: globalCP macro n,i,s ! 296: globalD n,<i>,<s> ! 297: endm ! 298: else ! 299: globalCP macro n,i,s ! 300: globalW n,<i>,<s> ! 301: endm ! 302: endif ! 303: if sizeD ! 304: globalDP macro n,i,s ! 305: globalD n,<i>,<s> ! 306: endm ! 307: else ! 308: globalDP macro n,i,s ! 309: globalW n,<i>,<s> ! 310: endm ! 311: endif ! 312: staticB macro n,i,s ! 313: ?aD <n>,1 ! 314: ?dd n,0,<BYTE>,<DB>,<i>,<s> ! 315: endm ! 316: staticW macro n,i,s ! 317: ?aD <n>,2 ! 318: ?dd n,0,<WORD>,<DW>,<i>,<s> ! 319: endm ! 320: staticD macro n,i,s ! 321: ?aD <n>,4 ! 322: ?dd n,0,<DWORD>,<DD>,<i>,<s> ! 323: endm ! 324: staticQ macro n,i,s ! 325: ?aD <n>,8 ! 326: ?dd n,0,<QWORD>,<DQ>,<i>,<s> ! 327: endm ! 328: staticT macro n,i,s ! 329: ?aD <n>,10 ! 330: ?dd n,0,<TBYTE>,<DT>,<i>,<s> ! 331: endm ! 332: if sizeC ! 333: staticCP macro n,i,s ! 334: staticD n,<i>,<s> ! 335: endm ! 336: else ! 337: staticCP macro n,i,s ! 338: staticW n,<i>,<s> ! 339: endm ! 340: endif ! 341: if sizeD ! 342: staticDP macro n,i,s ! 343: staticD n,<i>,<s> ! 344: endm ! 345: else ! 346: staticDP macro n,i,s ! 347: staticW n,<i>,<s> ! 348: endm ! 349: endif ! 350: ?dd macro n,p,t,d,i,s ! 351: ife ?PLM ! 352: n label t ! 353: ?dd1 _&n,p,<d>,<i>,<s> ! 354: else ! 355: ?dd1 n,p,<d>,<i>,<s> ! 356: endif ! 357: endm ! 358: ?dd1 macro n,p,d,i,s ! 359: if p ! 360: PUBLIC n ! 361: endif ! 362: ifb <s> ! 363: n d i ! 364: else ! 365: ifb <i> ! 366: n d s DUP (?) ! 367: else ! 368: n d s DUP (i) ! 369: endif ! 370: endif ! 371: endm ! 372: externB macro nL ! 373: ?ex1 <&nL>,1,<BYTE> ! 374: endm ! 375: externW macro nL ! 376: ?ex1 <&nL>,2,<WORD> ! 377: endm ! 378: externD macro nL ! 379: ?ex1 <&nL>,4,<DWORD> ! 380: endm ! 381: externQ macro nL ! 382: ?ex1 <&nL>,8,<QWORD> ! 383: endm ! 384: externT macro nL ! 385: ?ex1 <&nL>,10,<TBYTE> ! 386: endm ! 387: externNP macro nL ! 388: ?ex1 <&nL>,2,<NEAR> ! 389: endm ! 390: externFP macro nL ! 391: ?ex1 <&nL>,4,<FAR> ! 392: endm ! 393: if sizeC ! 394: externP macro nL ! 395: ?ex1 <&nL>,4,<FAR> ! 396: endm ! 397: else ! 398: externP macro nL ! 399: ?ex1 <&nL>,2,<NEAR> ! 400: endm ! 401: endif ! 402: if sizeC ! 403: externCP macro nL ! 404: ?ex1 <&nL>,4,<DWORD> ! 405: endm ! 406: else ! 407: externCP macro nL ! 408: ?ex1 <&nL>,2,<WORD> ! 409: endm ! 410: endif ! 411: if sizeD ! 412: externDP macro nL ! 413: ?ex1 <&nL>,4,<DWORD> ! 414: endm ! 415: else ! 416: externDP macro nL ! 417: ?ex1 <&nL>,2,<WORD> ! 418: endm ! 419: endif ! 420: ?ex1 macro nL,s,d ! 421: irp x,<nL> ! 422: .xcref ! 423: .xcref ?T&&x ! 424: .cref ! 425: ?T&&x = s ! 426: ife ?PLM ! 427: extrn _&&x:&d ! 428: x equ _&&x ! 429: else ! 430: extrn x:&d ! 431: endif ! 432: endm ! 433: endm ! 434: labelB macro nL ! 435: ?lb1 <&nL>,1,<BYTE> ! 436: endm ! 437: labelW macro nL ! 438: ?lb1 <&nL>,2,<WORD> ! 439: endm ! 440: labelD macro nL ! 441: ?lb1 <&nL>,4,<DWORD> ! 442: endm ! 443: labelQ macro nL ! 444: ?lb1 <&nL>,8,<QWORD> ! 445: endm ! 446: labelT macro nL ! 447: ?lb1 <&nL>,10,<TBYTE> ! 448: endm ! 449: labelNP macro nL ! 450: ?lb1 <&nL>,2,<NEAR> ! 451: endm ! 452: labelFP macro nL ! 453: ?lb1 <&nL>,4,<FAR> ! 454: endm ! 455: if sizeC ! 456: labelP macro nL ! 457: ?lb1 <&nL>,4,<FAR> ! 458: endm ! 459: else ! 460: labelP macro nL ! 461: ?lb1 <&nL>,2,<NEAR> ! 462: endm ! 463: endif ! 464: if sizeC ! 465: labelCP macro nL ! 466: ?lb1 <&nL>,4,<DWORD> ! 467: endm ! 468: else ! 469: labelCP macro nL ! 470: ?lb1 <&nL>,2,<WORD> ! 471: endm ! 472: endif ! 473: if sizeD ! 474: labelDP macro nL ! 475: ?lb1 <&nL>,4,<DWORD> ! 476: endm ! 477: else ! 478: labelDP macro nL ! 479: ?lb1 <&nL>,2,<WORD> ! 480: endm ! 481: endif ! 482: ?lb1 macro nL,s,d ! 483: ?lblpu = 0 ! 484: irp x,<nL> ! 485: ifidn <x>,<PUBLIC> ! 486: ?lblpu = 1 ! 487: else ! 488: .xcref ! 489: .xcref ?T&&x ! 490: .cref ! 491: ?T&&x = s ! 492: ife ?PLM ! 493: if ?lblpu ! 494: public _&&x ! 495: endif ! 496: _&&x label &d ! 497: x equ _&&x ! 498: else ! 499: if ?lblpu ! 500: public x ! 501: endif ! 502: x label &d ! 503: endif ! 504: endif ! 505: endm ! 506: endm ! 507: defB macro nL ! 508: ?aD <&nL>,1 ! 509: endm ! 510: defW macro nL ! 511: ?aD <&nL>,2 ! 512: endm ! 513: defD macro nL ! 514: ?aD <&nL>,4 ! 515: endm ! 516: defQ macro nL ! 517: ?aD <&nL>,8 ! 518: endm ! 519: defT macro nL ! 520: ?aD <&nL>,10 ! 521: endm ! 522: if sizeC ! 523: defCP macro nL ! 524: defD <nL> ! 525: endm ! 526: else ! 527: defCP macro nL ! 528: defW <nL> ! 529: endm ! 530: endif ! 531: if sizeD ! 532: defDP macro nL ! 533: defD <nL> ! 534: endm ! 535: else ! 536: defDP macro nL ! 537: defW <nL> ! 538: endm ! 539: endif ! 540: ?aD macro nL,s ! 541: irp x,<nL> ! 542: .xcref ! 543: .xcref ?T&&x ! 544: .cref ! 545: ?T&&x = s ! 546: endm ! 547: endm ! 548: regPtr macro n,S,O ! 549: .xcref ! 550: .xcref ?T&n,?SR&n,?OR&n ! 551: .cref ! 552: ?T&n = 0FFFFH ! 553: ?SR&n = 0 ! 554: ?RI ?SR&n,<&S> ! 555: ?OR&n = 0 ! 556: ?RI ?OR&n,<&O> ! 557: endm ! 558: arg macro aL ! 559: irp x,<aL> ! 560: ?argc = ?argc + 1 ! 561: ?Atal <x>,%?argc ! 562: endm ! 563: endm ! 564: ?Atal macro n,i ! 565: .xcref ! 566: .xcref ?ALI&i ! 567: .cref ! 568: ?ALI&i ¯o ! 569: ?AP n ! 570: &endm ! 571: endm ! 572: ?AP macro n ! 573: ?argl = ?argl + 2 ! 574: ifdef ?T&n ! 575: ife ?T&n-1 ! 576: push word ptr (n) ! 577: exitm ! 578: endif ! 579: ife ?T&n-2 ! 580: push n ! 581: exitm ! 582: endif ! 583: ife ?T&n-4 ! 584: push word ptr (n)+2 ! 585: push word ptr (n) ! 586: ?argl = ?argl + 2 ! 587: exitm ! 588: endif ! 589: ife ?T&n-8 ! 590: push word ptr (n)+6 ! 591: push word ptr (n)+4 ! 592: push word ptr (n)+2 ! 593: push word ptr (n) ! 594: ?argl = ?argl + 6 ! 595: exitm ! 596: endif ! 597: ife ?T&n-0FFFFH ! 598: mpush %(?SR&n),1 ! 599: mpush %(?OR&n),1 ! 600: ?argl = ?argl + 2 ! 601: exitm ! 602: endif ! 603: ife ?T&n ! 604: push word ptr (n) ! 605: exitm ! 606: endif ! 607: endif ! 608: push n ! 609: endm ! 610: ife ?PLM ! 611: ccall macro n,a,sleaze ! 612: ifnb <a> ! 613: Arg <a> ! 614: endif ! 615: ifdef ?SM&n ! 616: ?RSL = ?RSL AND ?SM&n ! 617: endif ! 618: mpush %?RSL ! 619: ?argl = 0 ! 620: ?ACB = ?argc ! 621: rept ?argc ! 622: uconcat <?ALI>,%?ACB ! 623: uconcat <purge>,,<?ALI>,%?ACB ! 624: ?ACB = ?ACB - 1 ! 625: endm ! 626: ife ?PLM ! 627: ifb <sleaze> ! 628: call _&n ! 629: else ! 630: call n ! 631: endif ! 632: else ! 633: call n ! 634: endif ! 635: if ?argl ! 636: add sp,?argl ! 637: endif ! 638: mpop %?RSL ! 639: ?RSL = 0 ! 640: ?argc = 0 ! 641: ?argl = 0 ! 642: endm ! 643: else ! 644: ccall macro n,a ! 645: ifnb <a> ! 646: Arg <a> ! 647: endif ! 648: ifdef ?SM&n ! 649: ?RSL = ?RSL AND ?SM&n ! 650: endif ! 651: mpush %?RSL ! 652: ?argl = 0 ! 653: ?ACB = 1 ! 654: rept ?argc ! 655: uconcat <?ALI>,%?ACB ! 656: uconcat <purge>,,<?ALI>,%?ACB ! 657: ?ACB = ?ACB + 1 ! 658: endm ! 659: ife ?PLM ! 660: call _&n ! 661: else ! 662: call n ! 663: endif ! 664: mpop %?RSL ! 665: ?RSL = 0 ! 666: ?argc = 0 ! 667: ?argl = 0 ! 668: endm ! 669: endif ! 670: cProc macro n,cl,s ! 671: ?pd n,<cl>,<s>,4 ! 672: endm ! 673: ?pd macro n,c,a,i ! 674: if ?CPD ! 675: ?UTPE ! 676: endif ! 677: ?CPD = 1 ! 678: ??? = 0 ! 679: ?argc = 0 ! 680: ?BA = 0 ! 681: ?PO = 0 ! 682: ?PU = 0 ! 683: ?IA = 0 ! 684: ?adj = i ! 685: ?PAS = 0 ! 686: ifnb <a> ! 687: ?RI ?PAS,<a> ! 688: endif ! 689: ?PC = sizeC ! 690: irp x,<c> ! 691: ifidn <x>,<FAR> ! 692: ?PC = 1 ! 693: endif ! 694: ifidn <x>,<NEAR> ! 695: ?PC = 0 ! 696: endif ! 697: ifidn <x>,<PUBLIC> ! 698: ?PU = 1 ! 699: endif ! 700: endm ! 701: if ?PC ! 702: if ?WIN ! 703: ?IA = 2 ! 704: endif ! 705: ?adj = ?adj + 2 ! 706: endif ! 707: ife ?PLM ! 708: ife ?PC ! 709: n label near ! 710: else ! 711: n label far ! 712: endif ! 713: ?pg <_&n>,%?PU,%?PC,%?PAS ! 714: else ! 715: ?pg <n>,%?PU,%?PC,%?PAS ! 716: endif ! 717: endm ! 718: ?pg macro n,p,c,a ! 719: .xcref ! 720: cBegin ¯o g ! 721: .xcref ! 722: ?pg1 <n>,c,a,%?PO ! 723: ?CPD = 0 ! 724: ?argc = 0 ! 725: ?BA = 1 ! 726: ??? = (???+1) AND 0FFFEH ! 727: if p ! 728: PUBLIC n ! 729: endif ! 730: ife c ! 731: n proc NEAR ! 732: else ! 733: n proc FAR ! 734: endif ! 735: ifidn <g>,<nogen> ! 736: if ???+?PO+a ! 737: %out <cBegin - nogen> ! 738: endif ! 739: else ! 740: if ?IA ! 741: mov ax,ds ! 742: nop ! 743: inc bp ! 744: push bp ! 745: mov bp,sp ! 746: push ds ! 747: mov ds,ax ! 748: else ! 749: push bp ! 750: mov bp,sp ! 751: endif ! 752: if ??? ! 753: sub sp,??? ! 754: endif ! 755: mPush a,1 ! 756: endif ! 757: .cref ! 758: purge cBegin ! 759: &endm ! 760: ?UTPE ¯o ! 761: %out Unterminated Procedure Definition: "&n" ! 762: &endm ! 763: endm ! 764: ?pg1 macro n,c,a,o ! 765: .xcref ! 766: cEnd ¯o g ! 767: .xcref ! 768: ?BA = 0 ! 769: ifidn <g>,<nogen> ! 770: if o+a ! 771: %out <cEnd - nogen> ! 772: endif ! 773: else ! 774: mPop a,1 ! 775: if ?IA ! 776: sub bp,2 ! 777: mov sp,bp ! 778: pop ds ! 779: pop bp ! 780: dec bp ! 781: else ! 782: ifdif <g>,<nolocals> ! 783: mov sp,bp ! 784: endif ! 785: pop bp ! 786: endif ! 787: ife ?PLM ! 788: ret ! 789: else ! 790: ret o ! 791: endif ! 792: endif ! 793: n endp ! 794: .cref ! 795: purge cEnd ! 796: &endm ! 797: .cref ! 798: endm ! 799: assumes macro s,g ! 800: local assumed ! 801: assumed = 0 ! 802: ifidn <code>,<g> ! 803: assume s&:_TEXT ! 804: assumed = 1 ! 805: endif ! 806: ifidn <CODE>,<g> ! 807: assume s&:_TEXT ! 808: assumed = 1 ! 809: endif ! 810: ifidn <data>,<g> ! 811: assume s&:dgroup ! 812: assumed = 1 ! 813: endif ! 814: ifidn <DATA>,<g> ! 815: assume s&:dgroup ! 816: assumed = 1 ! 817: endif ! 818: ife assumed ! 819: assume s&:&g ! 820: endif ! 821: endm ! 822: createSeg macro n,ln,a,co,cl,grp ! 823: ifnb <grp> ! 824: addSeg grp,n ! 825: endif ! 826: ifnb <cl> ! 827: n segment a co '&cl' ! 828: else ! 829: n segment a co ! 830: endif ! 831: n ends ! 832: ?cs1 <n>,<ln> ! 833: endm ! 834: if1 ! 835: ASMpass=1 ! 836: else ! 837: ASMpass=2 ! 838: endif ! 839: addSeg macro grp,seg ! 840: ifndef def_&grp ! 841: def_&grp= 0 ! 842: endif ! 843: if def_&grp ne ASMpass ! 844: add_&grp ¯o s ! 845: in_&grp <seg>,s ! 846: &endm ! 847: in_&grp ¯o sl,s ! 848: ifb <s> ! 849: grp group sl ! 850: else ! 851: add_&grp ¯o ns ! 852: in_&grp <sl,s>,ns ! 853: &endm ! 854: endif ! 855: &endm ! 856: def_&grp=ASMpass ! 857: else ! 858: add_&grp seg ! 859: endif ! 860: endm ! 861: defGrp macro nam ! 862: addSeg nam ! 863: endm ! 864: ?cs1 macro n,ln ! 865: begin&ln ¯o ! 866: ?cs2 <n> ! 867: n segment ! 868: &endm ! 869: endm ! 870: ?cs2 macro n ! 871: sEnd ¯o ! 872: n ends ! 873: &endm ! 874: endm ! 875: sBegin macro ln ! 876: begin&ln ! 877: endm ! 878: ife ?DF ! 879: createSeg _TEXT,code,word,public,CODE ! 880: createSeg _DATA,data,word,public,DATA,DGROUP ! 881: defGrp DGROUP ! 882: codeOFFSET equ OFFSET _TEXT: ! 883: dataOFFSET equ OFFSET DGROUP: ! 884: endif ! 885: errnz macro x ! 886: if2 ! 887: if x ! 888: errnz1 <x>,%(x) ! 889: endif ! 890: endif ! 891: endm ! 892: errnz1 macro x1,x2 ! 893: = *ERRNZ* x1 = x2 ! 894: endm ! 895: errn$ macro l,x ! 896: errnz <OFFSET $ - OFFSET l x> ! 897: ENDM
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.