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