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