![[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 / include|
Return to cmacros.inc CVS log | Up to [OS/2 SDKs] / pmsdk / samples / include |
1.1 ! root 1: comment $ ! 2: cmacros - assembly macros for interfacing to hhls ! 3: (C)Copyright Microsoft Corp. 1984-1989 ! 4: $ ! 5: .xcref ! 6: .xcref ??_out ! 7: ??_out macro t ! 8: ifndef ?QUIET ! 9: %out t ! 10: endif ! 11: endm ! 12: outif macro name,defval,onmsg,offmsg ! 13: ifndef name ! 14: ifb <defval> ! 15: name=0 ! 16: else ! 17: name=defval ! 18: endif ! 19: endif ! 20: if name ! 21: name=1 ! 22: ifnb <onmsg> ! 23: ??_out <! onmsg> ! 24: endif ! 25: else ! 26: ifnb <offmsg> ! 27: ??_out <! offmsg> ! 28: endif ! 29: endif ! 30: endm ! 31: .xcref ??error ! 32: ??error macro msg ! 33: %out e r r o r ----- msg ! 34: .err e r r o r ----- msg ! 35: endm ! 36: .xcref ??error2 ! 37: ??error2 macro msg ! 38: if2 ! 39: %out e r r o r ----- msg ! 40: .err e r r o r ----- msg ! 41: endif ! 42: endm ! 43: .xcref ASMpass ! 44: .xcref memS,memM,memL,memC,memH,memMOD,sizec,sized ! 45: if1 ! 46: ASMpass=1 ! 47: ifdef ?SMALL ! 48: memS=1 ! 49: endif ! 50: ifdef ?MEDIUM ! 51: memM=1 ! 52: endif ! 53: ifdef ?COMPACT ! 54: memC=1 ! 55: endif ! 56: ifdef ?LARGE ! 57: memL=1 ! 58: endif ! 59: ifdef ?HUGE ! 60: memH=1 ! 61: endif ! 62: ??_out <cMacros Version 3.06 - 09/23/87> ! 63: ??_out <Copyright (C) Microsoft Corp. 1984-1987. All rights reserved.> ! 64: outif memS,0,<Small Model> ! 65: outif memM,0,<Medium model> ! 66: outif memL,0,<Large Model> ! 67: outif memC,0,<Compact Model> ! 68: outif memH,0,<Huge Model> ! 69: memMOD= memS + memM + memL + memC + memH ! 70: if memMOD ne 1 ! 71: if memMOD eq 0 ! 72: memS = 1 ! 73: outif memS,0,<Small model> ! 74: else ! 75: ??error <must have only 1 memory model selected> ! 76: endif ! 77: endif ! 78: sizec= memM + memL + memH ! 79: sized= memL + memC + (memH*2) ! 80: outif ?DF,0,<No segments or groups will be defined> ! 81: outif ?TF,0,<Epilog sequences assume valid SP> ! 82: outif ?WIN,1,<Windows support> ! 83: outif ?PLM,1,<PL/M calling convention> ! 84: ifndef ?NODATA ! 85: ?nodata1=0 ! 86: else ! 87: ?nodata1=1 ! 88: ??_out <! NODATA module> ! 89: endif ! 90: ifndef ?CHKSTK ! 91: ?chkstk1=0 ! 92: else ! 93: ?chkstk1=1 ! 94: ifdef ?CHKSTKPROC ! 95: ??_out <! Private stack checking enabled> ! 96: else ! 97: ??_out <! Stack checking enabled> ! 98: endif ! 99: endif ! 100: ifndef DOS5 ! 101: ?DOS5=0 ! 102: else ! 103: ?DOS5=1 ! 104: ??_out <! DOS5 module> ! 105: endif ! 106: ifdef ?PROFILE ! 107: ??_out <! Native profiling enabled> ! 108: endif ! 109: ifdef ATTRPROF ! 110: ??_out <! Attributed profiling enabled> ! 111: ?aprof1=1 ! 112: else ! 113: ?aprof1=0 ! 114: endif ! 115: ifndef ?NO_BP ! 116: ?no_bp1=0 ! 117: else ! 118: ?no_bp1=1 ! 119: ??_out <! NO_BP is default> ! 120: endif ! 121: else ! 122: ASMpass=2 ! 123: endif ! 124: .xcref ?n,?ax,?ah,?al,?bx,?bh ! 125: .xcref ?bl,?cx,?ch,?cl,?dx,?dh ! 126: .xcref ?dl,?si,?di,?es,?ds,?bp ! 127: .xcref ?sp,?ss,?cs ! 128: .xcref ?n,?AX,?AH,?AL,?BX,?BH ! 129: .xcref ?BL,?CX,?CH,?CL,?DX,?DH ! 130: .xcref ?DL,?SI,?DI,?ES,?DS,?BP ! 131: .xcref ?SP,?SS,?CS ! 132: .xcref ?rsl,?cpd,?argl,?argc,?ba ! 133: .xcref ?acb,???,?po ! 134: .xcref ?pas,?pc ! 135: .xcref uconcat,mpush,mpop ! 136: .xcref ?ri,?pp,?pp1,?al1 ! 137: .xcref ?ad,?ap,?atal,?dd,?dd1,?dd2 ! 138: .xcref ?pg,?pg1,?aloc,?cs1,?cs2 ! 139: .xcref ?DF,?TF,?ff,?PLM,?WIN,?ia,?pu,?adj ! 140: .xcref ?uf,?rp,?nx,?nd,?nodata1,?chkstk1,?aprof1,?aprof2,?DOS5 ! 141: .xcref ?wfp,arg,cCall,cProc,assumes,?cs3,?cs2,?cs1 ! 142: .xcref defgrp,addseg,createSeg ! 143: .xcref save,outif,errnz,errn$,errnz1 ! 144: .xcref ?PLMPrevParm,?gcc ! 145: .xcref ?cCall1,?pcc,?no_bp1,?no_bp2 ! 146: .xcref ?cbe,?pcbe ! 147: ?rsl = 0 ! 148: ?cpd = 0 ! 149: ?argl = 0 ! 150: ?argc = 0 ! 151: ?ba = 0 ! 152: ?acb = 0 ! 153: ??? = 0 ! 154: ?po = 0 ! 155: ?pas = 0 ! 156: ?pc = 0 ! 157: ?ia = 0 ! 158: ?pu = 0 ! 159: ?adj = 0 ! 160: ?rp = 0 ! 161: ?uf = 0 ! 162: ?nd = 0 ! 163: ?nx = 0 ! 164: ?wfp = 0 ! 165: ?ff = 0 ! 166: ?dd2 = 0 ! 167: ?cCall1 = 0 ! 168: ?pcc = ?PLM ! 169: ?PLMPrevParm = 0 ! 170: ?no_bp2 = ?no_bp1 ! 171: ?cbe = 0 ! 172: ?aprof2 = 0 ! 173: .xcref ?casen ! 174: if1 ! 175: ?casen = 0 ! 176: endif ! 177: ?n = 0000000000000000b ! 178: ?ax = 0000000000000011b ! 179: ?ah = 0000000000000001b ! 180: ?al = 0000000000000010b ! 181: ?bx = 0000000000001100b ! 182: ?bh = 0000000000000100b ! 183: ?bl = 0000000000001000b ! 184: ?cx = 0000000000110000b ! 185: ?ch = 0000000000010000b ! 186: ?cl = 0000000000100000b ! 187: ?dx = 0000000011000000b ! 188: ?dh = 0000000001000000b ! 189: ?dl = 0000000010000000b ! 190: ?si = 0000000100000000b ! 191: ?di = 0000001000000000b ! 192: ?es = 0000010000000000b ! 193: ?ds = 0000100000000000b ! 194: ?bp = 0001000000000000b ! 195: ?sp = 0010000000000000b ! 196: ?ss = 0100000000000000b ! 197: ?cs = 1000000000000000b ! 198: ?AX = 0000000000000011b ! 199: ?AH = 0000000000000001b ! 200: ?AL = 0000000000000010b ! 201: ?BX = 0000000000001100b ! 202: ?BH = 0000000000000100b ! 203: ?BL = 0000000000001000b ! 204: ?CX = 0000000000110000b ! 205: ?CH = 0000000000010000b ! 206: ?CL = 0000000000100000b ! 207: ?DX = 0000000011000000b ! 208: ?DH = 0000000001000000b ! 209: ?DL = 0000000010000000b ! 210: ?SI = 0000000100000000b ! 211: ?DI = 0000001000000000b ! 212: ?ES = 0000010000000000b ! 213: ?DS = 0000100000000000b ! 214: ?BP = 0001000000000000b ! 215: ?SP = 0010000000000000b ! 216: ?SS = 0100000000000000b ! 217: ?CS = 1000000000000000b ! 218: .cref ! 219: uconcat macro a,b,c,d,e,f,g ! 220: a&b c&d e&f&g ! 221: endm ! 222: mpush macro r ! 223: irp x,<ax,bx,cx,dx,si,di,es,ds,bp,sp,ss,cs> ! 224: if (r and ?&&x) ! 225: push x ! 226: endif ! 227: endm ! 228: endm ! 229: mpop macro r ! 230: irp x,<cs,ss,sp,bp,ds,es,di,si,dx,cx,bx,ax> ! 231: if (r and ?&&x) ! 232: pop x ! 233: endif ! 234: endm ! 235: endm ! 236: save macro r ! 237: ?rsl=0 ! 238: ?ri ?rsl,<r> ! 239: endm ! 240: ?ri macro n,r ! 241: irp x,<r> ! 242: ifdef ?&&x ! 243: n=n or ?&&x ! 244: else ! 245: ??error2 <unknown register x> ! 246: .err ! 247: endif ! 248: endm ! 249: endm ! 250: .xcref ! 251: .xcref parmB,parmW,parmD,parmQ,parmT,parmCP,parmDP,parmH ! 252: .cref ! 253: parmB macro n ! 254: ?pp <n>,<byte>,2,1 ! 255: endm ! 256: parmW macro n ! 257: ?pp <n>,<word>,2,2 ! 258: endm ! 259: parmD macro n ! 260: ife ?pcc ! 261: irp x,<n> ! 262: ?pp <&&x>,<dword>,0,4 ! 263: ?pp <off_&&x>,<word>,2,2 ! 264: ?pp <seg_&&x>,<word>,2,2 ! 265: endm ! 266: else ! 267: irp x,<n> ! 268: ?pp <seg_&&x>,<word>,2,2 ! 269: ?pp <off_&&x>,<word>,2,2 ! 270: ?pp <&&x>,<dword>,0,4 ! 271: endm ! 272: endif ! 273: endm ! 274: parmH macro n ! 275: ?pp <n>,<word>,4,2 ! 276: endm ! 277: parmQ macro n ! 278: ?pp <n>,<qword>,8,8 ! 279: endm ! 280: parmT macro n ! 281: ?pp <n>,<tbyte>,10,10 ! 282: endm ! 283: if sizec ! 284: parmCP macro n ! 285: parmD <n> ! 286: endm ! 287: else ! 288: parmCP macro n ! 289: parmW <n> ! 290: endm ! 291: endif ! 292: if sized ! 293: parmDP macro n ! 294: parmD <n> ! 295: endm ! 296: else ! 297: parmDP macro n ! 298: parmW <n> ! 299: endm ! 300: endif ! 301: ?pp macro n,t,l,s ! 302: if ?cpd ! 303: .xcref ! 304: irp x,<n> ! 305: .xcref ?t_&&x ! 306: ?t_&&x=s ! 307: ife ?pcc ! 308: ?pp1 x,<t>,,,%(?po+?adj) ! 309: ?po=?po+l ! 310: else ! 311: ?PLMPrevParm=?PLMPrevParm+1 ! 312: ?po=?po+l ! 313: ?pp1 x,<t>,%?po,%?adj,,%?PLMPrevParm,%(?PLMPrevParm-1) ! 314: endif ! 315: endm ! 316: .cref ! 317: else ! 318: ??error2 <parm(s) "&n" declared outside proc def> ! 319: endif ! 320: endm ! 321: ?pp1 macro n,t,o,a,b,cpc,ppc ! 322: ife ?pcc ! 323: if ?no_bp2 ! 324: n equ (t ptr [+b]) ! 325: else ! 326: n equ (t ptr [bp][+b]) ! 327: endif ! 328: else ! 329: .xcref ! 330: .xcref ?PLMParm&cpc ! 331: .cref ! 332: if ?no_bp2 ! 333: ?PLMParm&cpc ¯o po ! 334: uconcat <n>,,<equ>,,<(t ptr [+>,%(a+po-o),<])> ! 335: ?PLMParm&ppc po ! 336: purge ?PLMParm&cpc ! 337: &endm ! 338: else ! 339: ?PLMParm&cpc ¯o po ! 340: uconcat <n>,,<equ>,,<(t ptr [bp][+>,%(a+po-o),<])> ! 341: ?PLMParm&ppc po ! 342: purge ?PLMParm&cpc ! 343: &endm ! 344: endif ! 345: endif ! 346: endm ! 347: ifndef ?NOPARMR ! 348: .xcref ! 349: .xcref ?pr,parmR ! 350: .cref ! 351: parmR macro n,r,r2 ! 352: ?pr n,r,r2,%?rp,%(?ia+2) ! 353: endm ! 354: ?pr macro n,r,r2,i,o ! 355: .xcref ! 356: ifnb <r2> ! 357: parmR seg_&n,r ! 358: parmR off_&n,r2 ! 359: if ?no_bp2 ! 360: n equ (dword ptr [-o-2]) ! 361: else ! 362: n equ (dword ptr [bp][-o-2]) ! 363: endif ! 364: .xcref ?t_&n ! 365: ?t_&n=4 ! 366: else ! 367: .xcref ?rp&i ! 368: ?rp&i=0 ! 369: ifdef ?&r ! 370: ?rp&i=?&r ! 371: endif ! 372: if ??? or (?cpd eq 0) or (?rp&i eq 0) ! 373: ??error2 <invalid parmR encountered: &n,&r> ! 374: exitm ! 375: endif ! 376: if ?no_bp2 ! 377: n equ (word ptr [-o]) ! 378: else ! 379: n equ (word ptr [bp][-o]) ! 380: endif ! 381: .xcref ?t_&n ! 382: ?t_&n=2 ! 383: irp x,<bh,ch,dh,bl,cl,dl,ah,al> ! 384: if ?&&x eq ?&r ! 385: if ?no_bp2 ! 386: n equ (byte ptr [-o]) ! 387: else ! 388: n equ (byte ptr [bp][-o]) ! 389: endif ! 390: ?t_&n=1 ! 391: exitm ! 392: endif ! 393: endm ! 394: ?ia=?ia+2 ! 395: ?rp=?rp+1 ! 396: endif ! 397: .cref ! 398: endm ! 399: endif ! 400: .xcref ! 401: .xcref localB,localW,localD,localQ,localT,localCP,localDP,localV ! 402: .cref ! 403: localB macro n ! 404: ?aloc <n>,<byte ptr>,1,1,0 ! 405: endm ! 406: localW macro n ! 407: ?aloc <n>,<word ptr>,2,2,1 ! 408: endm ! 409: localD macro n ! 410: irp x,<n> ! 411: ?aloc <seg_&&x>,<word ptr>,2,2,1 ! 412: ?aloc <off_&&x>,<word ptr>,2,2,1 ! 413: ?aloc <&&x>,<dword ptr>,0,4,1 ! 414: endm ! 415: endm ! 416: localQ macro n ! 417: ?aloc <n>,<qword ptr>,8,8,1 ! 418: endm ! 419: localT macro n ! 420: ?aloc <n>,<tbyte ptr>,10,10,1 ! 421: endm ! 422: if sizec ! 423: localCP macro n ! 424: localD <n> ! 425: endm ! 426: else ! 427: localCP macro n ! 428: localW <n> ! 429: endm ! 430: endif ! 431: if sized ! 432: localDP macro n ! 433: localD <n> ! 434: endm ! 435: else ! 436: localDP macro n ! 437: localW <n> ! 438: endm ! 439: endif ! 440: localV macro n,a ! 441: ?aloc <n>,,%(a),0,1 ! 442: endm ! 443: ?aloc macro n,t,l,s,a ! 444: if ?cpd ! 445: .xcref ! 446: irp x,<n> ! 447: ???=???+l ! 448: if a ! 449: ???=((??? + 1) and 0fffeh) ! 450: endif ! 451: ?al1 x,<t>,%(???+?ia) ! 452: .xcref ?t_&&x ! 453: ?t_&&x=s ! 454: endm ! 455: .cref ! 456: else ! 457: ??error2 <locals "&n" declared outside procedure def> ! 458: endif ! 459: endm ! 460: ?al1 macro n,t,o ! 461: if ?no_bp2 ! 462: n equ (t [-o]) ! 463: else ! 464: n equ (t [bp][-o]) ! 465: endif ! 466: endm ! 467: ?gcc macro s,i,cc ! 468: s = i ! 469: ifnb <cc> ! 470: ifidn <cc>,<C> ! 471: s=0 ! 472: endif ! 473: ifidn <cc>,<PLM> ! 474: s=1 ! 475: endif ! 476: ifidn <cc>,<PASCAL> ! 477: s=1 ! 478: endif ! 479: endif ! 480: endm ! 481: ifndef ?NOGLOBAL ! 482: .xcref ! 483: .xcref globalB,globalW,globalD,globalQ,globalT,globalCP,globalDP ! 484: .cref ! 485: globalB macro n,i,s,c ! 486: ?ad <n>,1 ! 487: ?dd n,1,<byte>,<db>,<i>,<s>,<c> ! 488: endm ! 489: globalW macro n,i,s,c ! 490: ?ad <n>,2 ! 491: ?dd n,1,<word>,<dw>,<i>,<s>,<c> ! 492: endm ! 493: globalD macro n,i,s,c ! 494: ?ad <n>,4 ! 495: ?dd n,1,<dword>,<dd>,<i>,<s>,<c> ! 496: off_&n equ word ptr n[0] ! 497: seg_&n equ word ptr n[2] ! 498: endm ! 499: globalQ macro n,i,s,c ! 500: ?ad <n>,8 ! 501: ?dd n,1,<qword>,<dq>,<i>,<s>,<c> ! 502: endm ! 503: globalT macro n,i,s,c ! 504: ?ad <n>,10 ! 505: ?dd n,1,<tbyte>,<dt>,<i>,<s>,<c> ! 506: endm ! 507: if sizec ! 508: globalCP macro n,i,s,c ! 509: globalD n,<i>,<s>,<c> ! 510: endm ! 511: else ! 512: globalCP macro n,i,s,c ! 513: globalW n,<i>,<s>,<c> ! 514: endm ! 515: endif ! 516: if sized ! 517: globalDP macro n,i,s,c ! 518: globalD n,<i>,<s>,<c> ! 519: endm ! 520: else ! 521: globalDP macro n,i,s,c ! 522: globalW n,<i>,<s>,<c> ! 523: endm ! 524: endif ! 525: endif ! 526: ifndef ?NOSTATIC ! 527: .xcref ! 528: .xcref staticB,staticW,staticD,staticQ,staticT,staticCP,staticDP ! 529: .cref ! 530: staticB macro n,i,s ! 531: ?ad <n>,1 ! 532: ?dd n,0,<byte>,<db>,<i>,<s>,<PLM> ! 533: endm ! 534: staticW macro n,i,s ! 535: ?ad <n>,2 ! 536: ?dd n,0,<word>,<dw>,<i>,<s>,<PLM> ! 537: endm ! 538: staticD macro n,i,s ! 539: ?ad <n>,4 ! 540: ?dd n,0,<dword>,<dd>,<i>,<s>,<PLM> ! 541: endm ! 542: staticQ macro n,i,s ! 543: ?ad <n>,8 ! 544: ?dd n,0,<qword>,<dq>,<i>,<s>,<PLM> ! 545: endm ! 546: staticT macro n,i,s ! 547: ?ad <n>,10 ! 548: ?dd n,0,<tbyte>,<dt>,<i>,<s>,<PLM> ! 549: endm ! 550: if sizec ! 551: staticCP macro n,i,s ! 552: staticD n,<i>,<s> ! 553: endm ! 554: else ! 555: staticCP macro n,i,s ! 556: staticW n,<i>,<s> ! 557: endm ! 558: endif ! 559: if sized ! 560: staticDP macro n,i,s ! 561: staticD n,<i>,<s> ! 562: endm ! 563: else ! 564: staticDP macro n,i,s ! 565: staticW n,<i>,<s> ! 566: endm ! 567: endif ! 568: endif ! 569: ?dd macro n,p,t,d,i,s,c ! 570: ?gcc ?dd2,%?PLM,<c> ! 571: ife ?dd2 ! 572: n label t ! 573: ?dd1 _&n,p,<d>,<i>,<s> ! 574: else ! 575: ?dd1 n,p,<d>,<i>,<s> ! 576: endif ! 577: endm ! 578: ?dd1 macro n,p,d,i,s ! 579: if p ! 580: public n ! 581: endif ! 582: ifb <s> ! 583: n d i ! 584: else ! 585: ifb <i> ! 586: n d s dup (?) ! 587: else ! 588: n d s dup (i) ! 589: endif ! 590: endif ! 591: endm ! 592: ifndef ?NOEXTERN ! 593: .xcref ! 594: .xcref ?ex1,?ex2,externB,externW,externD,externQ,externT ! 595: .xcref externNP,externFP,externP,externCP,externDP,externA ! 596: .cref ! 597: ?ex2 = 0 ! 598: externA macro n,c ! 599: ?ex1 <n>,40h,<abs>,<c>,<> ! 600: endm ! 601: externB macro n,c ! 602: ?ex1 <n>,1,<byte>,<c>,<> ! 603: endm ! 604: externW macro n,c ! 605: ?ex1 <n>,2,<word>,<c>,<> ! 606: endm ! 607: externD macro n,c ! 608: ?ex1 <n>,4,<dword>,<c>,<> ! 609: endm ! 610: externQ macro n,c ! 611: ?ex1 <n>,8,<qword>,<c>,<> ! 612: endm ! 613: externT macro n,c ! 614: ?ex1 <n>,10,<tbyte>,<c>,<> ! 615: endm ! 616: externNP macro n,c ! 617: ?ex1 <n>,2,<near>,<c>,<cc> ! 618: endm ! 619: externFP macro n,c ! 620: ?ex1 <n>,4,<far>,<c>,<cc> ! 621: endm ! 622: if sizec ! 623: externP macro n,c ! 624: ?ex1 <n>,4,<far>,<c>,<cc> ! 625: endm ! 626: else ! 627: externP macro n,c ! 628: ?ex1 <n>,2,<near>,<c>,<cc> ! 629: endm ! 630: endif ! 631: if sizec ! 632: externCP macro n,c ! 633: ?ex1 <n>,4,<dword>,<c>,<> ! 634: endm ! 635: else ! 636: externCP macro n,c ! 637: ?ex1 <n>,2,<word>,<c>,<> ! 638: endm ! 639: endif ! 640: if sized ! 641: externDP macro n,c ! 642: ?ex1 <n>,4,<dword>,<c>,<> ! 643: endm ! 644: else ! 645: externDP macro n,c ! 646: ?ex1 <n>,2,<word>,<c>,<> ! 647: endm ! 648: endif ! 649: ?ex1 macro n,s,d,c,scv ! 650: ?gcc ?ex2,%?PLM,<c> ! 651: irp x,<n> ! 652: .xcref ! 653: .xcref ?t_&&x ! 654: .cref ! 655: ?t_&&x=s ! 656: ife ?ex2 ! 657: extrn _&&x:&d ! 658: x equ _&&x ! 659: else ! 660: extrn x:&d ! 661: endif ! 662: ifidn <scv>,<cc> ! 663: .xcref ! 664: .xcref ?CC&&x ! 665: .cref ! 666: ?CC&&x=?ex2 ! 667: endif ! 668: endm ! 669: endm ! 670: endif ! 671: ifndef ?NOLABEL ! 672: .xcref ! 673: .xcref ?lb1,?lblpu,?lb2 ! 674: .xcref labelB,labelW,labelD,labelQ,labelT ! 675: .xcref labelNP,labelFP,labelP,labelCP,labelDP ! 676: .cref ! 677: ?lblpu = 0 ! 678: ?lb2 = 0 ! 679: labelB macro n,c ! 680: ?lb1 <n>,1,<byte>,<c> ! 681: endm ! 682: labelW macro n,c ! 683: ?lb1 <n>,2,<word>,<c> ! 684: endm ! 685: labelD macro n,c ! 686: ?lb1 <n>,4,<dword>,<c> ! 687: endm ! 688: labelQ macro n,c ! 689: ?lb1 <n>,8,<qword>,<c> ! 690: endm ! 691: labelT macro n,c ! 692: ?lb1 <n>,10,<tbyte>,<c> ! 693: endm ! 694: labelNP macro n,c ! 695: ?lb1 <n>,2,<near>,<c> ! 696: endm ! 697: labelFP macro n,c ! 698: ?lb1 <n>,4,<far>,<c> ! 699: endm ! 700: if sizec ! 701: labelP macro n,c ! 702: ?lb1 <n>,4,<far>,<c> ! 703: endm ! 704: else ! 705: labelP macro n,c ! 706: ?lb1 <n>,2,<near>,<c> ! 707: endm ! 708: endif ! 709: if sizec ! 710: labelCP macro n,c ! 711: ?lb1 <n>,4,<dword>,<c> ! 712: endm ! 713: else ! 714: labelCP macro n,c ! 715: ?lb1 <n>,2,<word>,<c> ! 716: endm ! 717: endif ! 718: if sized ! 719: labelDP macro n,c ! 720: ?lb1 <n>,4,<dword>,<c> ! 721: endm ! 722: else ! 723: labelDP macro n,c ! 724: ?lb1 <n>,2,<word>,<c> ! 725: endm ! 726: endif ! 727: ?lb1 macro n,s,d,c ! 728: ?gcc ?lb2,%?PLM,<c> ! 729: ?lblpu=0 ! 730: irp x,<n> ! 731: ifidn <x>,<PUBLIC> ! 732: ?lblpu=1 ! 733: else ! 734: .xcref ! 735: .xcref ?t_&&x ! 736: .cref ! 737: ?t_&&x=s ! 738: ife ?lb2 ! 739: if ?lblpu ! 740: public _&&x ! 741: endif ! 742: _&&x label &d ! 743: x equ _&&x ! 744: else ! 745: if ?lblpu ! 746: public x ! 747: endif ! 748: x label &d ! 749: endif ! 750: endif ! 751: endm ! 752: endm ! 753: endif ! 754: ifndef ?NODEF ! 755: .xcref ! 756: .xcref defB,defW,defD,defQ,defT,defCP,defDP ! 757: .cref ! 758: defB macro n ! 759: ?ad <n>,1 ! 760: endm ! 761: defW macro n ! 762: ?ad <n>,2 ! 763: endm ! 764: defD macro n ! 765: ?ad <n>,4 ! 766: endm ! 767: defQ macro n ! 768: ?ad <n>,8 ! 769: endm ! 770: defT macro n ! 771: ?ad <n>,10 ! 772: endm ! 773: if sizec ! 774: defCP macro n ! 775: defD <n> ! 776: endm ! 777: else ! 778: defCP macro n ! 779: defW <n> ! 780: endm ! 781: endif ! 782: if sized ! 783: defDP macro n ! 784: defD <n> ! 785: endm ! 786: else ! 787: defDP macro n ! 788: defW <n> ! 789: endm ! 790: endif ! 791: endif ! 792: ?ad macro n,s ! 793: irp x,<n> ! 794: .xcref ! 795: .xcref ?t_&&x ! 796: .cref ! 797: ?t_&&x=s ! 798: endm ! 799: endm ! 800: ifndef ?NOPTR ! 801: .xcref ! 802: .xcref regPtr,farPtr ! 803: .cref ! 804: regPtr macro n,s,o ! 805: farPtr n,s,o ! 806: endm ! 807: farPtr macro n,s,o ! 808: .xcref ! 809: .xcref ?t_&n ! 810: .cref ! 811: n ¯o ! 812: push s ! 813: push o ! 814: &endm ! 815: ?t_&n=80h ! 816: endm ! 817: endif ! 818: arg macro a ! 819: irp x,<a> ! 820: ?argc=?argc+1 ! 821: ?atal <x>,%?argc ! 822: endm ! 823: endm ! 824: ?atal macro n,i ! 825: .xcref ! 826: .xcref ?ali&i ! 827: .cref ! 828: ?ali&i ¯o ! 829: ?ap <n> ! 830: &endm ! 831: endm ! 832: ?ap macro n ! 833: ?argl=?argl+2 ! 834: ifdef ?t_&n ! 835: ife ?t_&n-1 ! 836: push word ptr (n) ! 837: exitm ! 838: endif ! 839: ife ?t_&n-2 ! 840: push n ! 841: exitm ! 842: endif ! 843: ife ?t_&n-4 ! 844: push word ptr (n)[2] ! 845: push word ptr (n) ! 846: ?argl=?argl+2 ! 847: exitm ! 848: endif ! 849: ife ?t_&n-8 ! 850: push word ptr (n)[6] ! 851: push word ptr (n)[4] ! 852: push word ptr (n)[2] ! 853: push word ptr (n) ! 854: ?argl=?argl+6 ! 855: exitm ! 856: endif ! 857: if ?t_&n and 80h ! 858: n ! 859: ?argl=?argl+2 ! 860: exitm ! 861: endif ! 862: ife ?t_&n ! 863: push word ptr (n) ! 864: exitm ! 865: endif ! 866: endif ! 867: push n ! 868: endm ! 869: cCall macro n,a,c ! 870: ifnb <a> ! 871: arg <a> ! 872: endif ! 873: mpush %?rsl ! 874: ifdef ?CC&n ! 875: ?cCall1=?CC&n ! 876: else ! 877: ?cCall1=?PLM ! 878: endif ! 879: ifnb <c> ! 880: ?gcc ?cCall1,%?cCall1,<c> ! 881: endif ! 882: ?argl=0 ! 883: ife ?cCall1 ! 884: ?acb=?argc ! 885: else ! 886: ?acb=1 ! 887: endif ! 888: rept ?argc ! 889: uconcat <?ali>,%?acb ! 890: uconcat <purge>,,<?ali>,%?acb ! 891: ife ?cCall1 ! 892: ?acb=?acb-1 ! 893: else ! 894: ?acb=?acb+1 ! 895: endif ! 896: endm ! 897: call n ! 898: if ((?cCall1 eq 0) and (?argl ne 0)) ! 899: add sp,?argl ! 900: endif ! 901: mpop %?rsl ! 902: ?rsl=0 ! 903: ?argc= 0 ! 904: ?argl= 0 ! 905: endm ! 906: cProc macro n,cf,a ! 907: if ?cpd ! 908: ?utpe ! 909: endif ! 910: ?cpd=1 ! 911: ???=0 ! 912: ?argc=0 ! 913: ?ba=0 ! 914: ?po=0 ! 915: ?pu=0 ! 916: ?ia=0 ! 917: ?adj=4 ! 918: ?rp=0 ! 919: ?uf=0 ! 920: ?wfp=?WIN ! 921: ?ff=0 ! 922: ?pas=0 ! 923: ?pcc=?PLM ! 924: ?no_bp2=?no_bp1 ! 925: ?aprof2=?aprof1 ! 926: ifnb <a> ! 927: ?ri ?pas,<a> ! 928: endif ! 929: ?pc=sizec ! 930: ?nd=?nodata1 ! 931: ?nx=0 ! 932: irp x,<cf> ! 933: ifdef ??_cproc_&&x ! 934: ??_cproc_&&x ! 935: else ! 936: ??error2 <e r r o r - unknown keyword x> ! 937: .err ! 938: endif ! 939: endm ! 940: if ?pcc ! 941: ?PLMPrevParm=0 ! 942: .xcref ! 943: .xcref ?PLMParm0 ! 944: .cref ! 945: ?PLMParm0 ¯o ! 946: purge ?PLMParm0 ! 947: &endm ! 948: endif ! 949: .xcref ! 950: .xcref ?CC&n ! 951: .cref ! 952: ?CC&n=?pcc ! 953: if (?nx eq 1) and (?nd eq 0) ! 954: ?nx = 0 ! 955: ??error2 <ATOMIC specified without NODATA - ATOMIC ignored> ! 956: endif ! 957: if ?pc ! 958: if ?wfp ! 959: ife ?nx ! 960: ?ia=2 ! 961: ?pas = ?pas and (not ?ds) ! 962: endif ! 963: endif ! 964: ?adj=?adj+2 ! 965: else ! 966: ?wfp=0 ! 967: endif ! 968: ?pas = ?pas and (not (?sp+?cs+?ss)) ! 969: if ?uf ! 970: ?pas = ?pas and (not (?bp+?si+?di)) ! 971: endif ! 972: ife ?pcc ! 973: ?pg <_&n>,%?pu,%?pc,%?pas,%?wfp,<n>,%?pcc ! 974: else ! 975: ?pg <n>,%?pu,%?pc,%?pas,%?wfp,<n>,%?pcc ! 976: endif ! 977: endm ! 978: ?pg macro n,p,c,a,w,nnu,cc ! 979: .xcref ! 980: if ?uf ! 981: if ?nd ! 982: ??error2 <NODATA encountered in &n - user frame ignored> ! 983: ?uf=0 ! 984: endif ! 985: endif ! 986: .xcref cBegin ! 987: cBegin ¯o g ! 988: .xcref ! 989: if cc ! 990: uconcat <?PLMParm>,%?PLMPrevParm,%?po ! 991: endif ! 992: if ?uf ! 993: if ?rp ! 994: ??error2 <parmR encountered in &n - user frame ignored> ! 995: ?uf=0 ! 996: endif ! 997: endif ! 998: ?pg1 <n>,c,a,%?po,w,%?uf,%?nd,%?rp,cc,<nnu>,%??? ! 999: ?cpd=0 ! 1000: ?argc=0 ! 1001: ?ba=1 ! 1002: ???=(???+1) and 0fffeh ! 1003: if p ! 1004: public n ! 1005: endif ! 1006: ife c ! 1007: n proc near ! 1008: else ! 1009: n proc far ! 1010: endif ! 1011: ife cc ! 1012: nnu equ n ! 1013: endif ! 1014: ?cbe = 0 ! 1015: ifnb <g> ! 1016: ?pcbe <g>,<nnu>,<cBegin> ! 1017: endif ! 1018: if ?cbe eq 1 ! 1019: if ???+a+?rp ! 1020: if2 ! 1021: ??_out <cBegin - possibly invalid use of nogen> ! 1022: endif ! 1023: endif ! 1024: else ! 1025: if ?uf ! 1026: ?mf c,%???,%?po ! 1027: mpush a ! 1028: else ! 1029: ife ?cbe ! 1030: if w ! 1031: ife ?nd ! 1032: ife ?DOS5 ! 1033: mov ax,ds ! 1034: nop ! 1035: else ! 1036: mov ax,DataBASE ! 1037: endif ! 1038: endif ! 1039: if ?aprof2 ! 1040: call AProfCall ! 1041: endif ! 1042: ife ?nx ! 1043: ife ?DOS5 ! 1044: inc bp ! 1045: endif ! 1046: push bp ! 1047: mov bp,sp ! 1048: push ds ! 1049: else ! 1050: if ?ff+???+?po+?rp ! 1051: push bp ! 1052: mov bp,sp ! 1053: endif ! 1054: endif ! 1055: ife ?nd ! 1056: mov ds,ax ! 1057: endif ! 1058: else ! 1059: if ?aprof2 ! 1060: call AProfCall ! 1061: endif ! 1062: if ?ff+???+?po+?rp ! 1063: push bp ! 1064: mov bp,sp ! 1065: endif ! 1066: endif ! 1067: if ?rp ! 1068: ?uf=0 ! 1069: rept ?rp ! 1070: uconcat mpush,,?rp,%?uf ! 1071: ?uf=?uf+1 ! 1072: endm ! 1073: endif ! 1074: if ??? ! 1075: if ?chkstk1 ! 1076: ifdef ?CHKSTKPROC ! 1077: ?CHKSTKPROC %??? ! 1078: else ! 1079: mov ax,??? ! 1080: ife cc ! 1081: call _chkstk ! 1082: else ! 1083: call chkstk ! 1084: endif ! 1085: endif ! 1086: else ! 1087: sub sp,??? ! 1088: endif ! 1089: endif ! 1090: else ! 1091: if ?aprof2 ! 1092: call AProfRet ! 1093: call AProfCall ! 1094: endif ! 1095: if ?rp ! 1096: ??error2 <cBegin - parmRs encountered with partial frame> ! 1097: else ! 1098: if ??? ! 1099: lea sp,[bp][-???-?ia] ! 1100: endif ! 1101: endif ! 1102: endif ! 1103: mpush a ! 1104: endif ! 1105: ifdef ?PROFILE ! 1106: if c ! 1107: call StartNMeas ! 1108: endif ! 1109: endif ! 1110: endif ! 1111: .cref ! 1112: purge cBegin ! 1113: &endm ! 1114: .xcref ?utpe ! 1115: ?utpe ¯o ! 1116: ??error2 <unterminated procedure definition: "&n"> ! 1117: &endm ! 1118: .cref ! 1119: endm ! 1120: ?pg1 macro n,c,a,o,w,f,d,r,cc,nnu,lc ! 1121: .xcref ! 1122: .xcref cEnd ! 1123: parm_bytes_&nnu = o ! 1124: cEnd ¯o g ! 1125: .xcref ! 1126: ?ba=0 ! 1127: ?cbe = 0 ! 1128: ifnb <g> ! 1129: ?pcbe <g>,<nnu>,<cEnd> ! 1130: endif ! 1131: if ?cbe eq 1 ! 1132: if a+r+lc ! 1133: if2 ! 1134: ??_out <cEnd - possibly invalid use of nogen> ! 1135: endif ! 1136: endif ! 1137: else ! 1138: ifdef ?PROFILE ! 1139: if c ! 1140: call StopNMeas ! 1141: endif ! 1142: endif ! 1143: mpop a ! 1144: if f ! 1145: db 0c3h ! 1146: else ! 1147: if w ! 1148: ife ?nx ! 1149: if (?TF eq 0) or (???+r) ! 1150: lea sp,-2[bp] ! 1151: endif ! 1152: pop ds ! 1153: pop bp ! 1154: ife ?DOS5 ! 1155: dec bp ! 1156: endif ! 1157: else ! 1158: if (?TF eq 0) or (???+r) ! 1159: mov sp,bp ! 1160: endif ! 1161: if ???+?po+r ! 1162: pop bp ! 1163: endif ! 1164: endif ! 1165: else ! 1166: if ?ff+???+?po+r ! 1167: if (?TF eq 0) or (???+r) ! 1168: mov sp,bp ! 1169: endif ! 1170: pop bp ! 1171: endif ! 1172: endif ! 1173: if ?aprof2 ! 1174: call AProfRet ! 1175: endif ! 1176: if ?cbe ne 4 ! 1177: ife cc ! 1178: ret ! 1179: else ! 1180: ret o ! 1181: endif ! 1182: endif ! 1183: endif ! 1184: endif ! 1185: if ?cbe ne 4 ! 1186: n endp ! 1187: .cref ! 1188: purge cEnd ! 1189: else ! 1190: .cref ! 1191: endif ! 1192: &endm ! 1193: .cref ! 1194: endm ! 1195: .xcref ! 1196: .xcref cleanframe ! 1197: cleanframe macro ! 1198: cEnd <??cleanframe??> ! 1199: endm ! 1200: .cref ! 1201: .xcref ! 1202: .xcref ??_cproc_FAR,??_cproc_NEAR,??_cproc_PUBLIC,??_cproc_SMALL ! 1203: .xcref ??_cproc_DATA,??_cproc_NODATA,??_cproc_ATOMIC,??_cproc_C ! 1204: .xcref ??_cproc_PLM,??_cproc_PASCAL,??_cproc_WIN,??_cproc_NONWIN ! 1205: .xcref ??_cproc_NO_BP,??_cproc_BP ! 1206: .xcref ??_cproc_NO_ATTRPROF,??_cproc_ATTRPROF ! 1207: .xcref ??_cproc_far,??_cproc_near,??_cproc_public,??_cproc_small ! 1208: .xcref ??_cproc_data,??_cproc_nodata,??_cproc_atomic,??_cproc_c ! 1209: .xcref ??_cproc_plm,??_cproc_pascal,??_cproc_win,??_cproc_nonwin ! 1210: .xcref ??_cproc_no_bp,??_cproc_bp ! 1211: .xcref ??_cproc_no_attrprof,??_cproc_attrprof ! 1212: .cref ! 1213: ??_cproc_FAR macro ! 1214: ?pc=1 ! 1215: endm ! 1216: ??_cproc_NEAR macro ! 1217: ?pc=0 ! 1218: endm ! 1219: ??_cproc_PUBLIC macro ! 1220: ?pu=1 ! 1221: endm ! 1222: ??_cproc_SMALL macro ! 1223: ?uf=1 ! 1224: endm ! 1225: ??_cproc_DATA macro ! 1226: ?nd=0 ! 1227: endm ! 1228: ??_cproc_NODATA macro ! 1229: ?nd=1 ! 1230: endm ! 1231: ??_cproc_ATOMIC macro ! 1232: ?nx=1 ! 1233: endm ! 1234: ??_cproc_C macro ! 1235: ?pcc=0 ! 1236: endm ! 1237: ??_cproc_PLM macro ! 1238: ?pcc=1 ! 1239: endm ! 1240: ??_cproc_PASCAL macro ! 1241: ?pcc=1 ! 1242: endm ! 1243: ??_cproc_WIN macro ! 1244: ?wfp=1 ! 1245: endm ! 1246: ??_cproc_NONWIN macro ! 1247: ?wfp=0 ! 1248: endm ! 1249: ??_cproc_NO_BP macro ! 1250: ?no_bp2=1 ! 1251: endm ! 1252: ??_cproc_BP macro ! 1253: ?no_bp2=0 ! 1254: endm ! 1255: ??_cproc_NO_ATTRPROF macro ! 1256: ?aprof2=0 ! 1257: endm ! 1258: ??_cproc_ATTRPROF macro ! 1259: ?aprof2=1 ! 1260: endm ! 1261: ??_cproc_far macro ! 1262: ?pc=1 ! 1263: endm ! 1264: ??_cproc_near macro ! 1265: ?pc=0 ! 1266: endm ! 1267: ??_cproc_public macro ! 1268: ?pu=1 ! 1269: endm ! 1270: ??_cproc_small macro ! 1271: ?uf=1 ! 1272: endm ! 1273: ??_cproc_data macro ! 1274: ?nd=0 ! 1275: endm ! 1276: ??_cproc_nodata macro ! 1277: ?nd=1 ! 1278: endm ! 1279: ??_cproc_atomic macro ! 1280: ?nx=1 ! 1281: endm ! 1282: ??_cproc_c macro ! 1283: ?pcc=0 ! 1284: endm ! 1285: ??_cproc_plm macro ! 1286: ?pcc=1 ! 1287: endm ! 1288: ??_cproc_pascal macro ! 1289: ?pcc=1 ! 1290: endm ! 1291: ??_cproc_win macro ! 1292: ?wfp=1 ! 1293: endm ! 1294: ??_cproc_nonwin macro ! 1295: ?wfp=0 ! 1296: endm ! 1297: ??_cproc_no_bp macro ! 1298: ?no_bp2=1 ! 1299: endm ! 1300: ??_cproc_bp macro ! 1301: ?no_bp2=0 ! 1302: endm ! 1303: ??_cproc_no_attrprof macro ! 1304: ?aprof2=0 ! 1305: endm ! 1306: ??_cproc_attrprof macro ! 1307: ?aprof2=1 ! 1308: endm ! 1309: ?pcbe macro g,nnu,mt ! 1310: ifidn <g>,<NOGEN> ! 1311: ?cbe = 1 ! 1312: else ! 1313: ifidn <g>,<nogen> ! 1314: ?cbe = 1 ! 1315: else ! 1316: ifidn <mt>,<cBegin> ! 1317: ifidn <g>,<PARTIAL> ! 1318: ?cbe = 2 ! 1319: else ! 1320: ifidn <g>,<partial> ! 1321: ?cbe = 2 ! 1322: else ! 1323: ifdif <g>,<nnu> ! 1324: ??error2 <mt - unknown keyword g> ! 1325: endif ! 1326: endif ! 1327: endif ! 1328: else ! 1329: ifidn <g>,<??cleanframe??> ! 1330: ?cbe = 4 ! 1331: else ! 1332: ifdif <g>,<nnu> ! 1333: ??error2 <mt - unknown keyword g> ! 1334: endif ! 1335: endif ! 1336: endif ! 1337: endif ! 1338: endif ! 1339: endm ! 1340: assumes macro s,ln ! 1341: ifndef ln&_assumes ! 1342: assume s:ln ! 1343: else ! 1344: ln&_assumes s ! 1345: endif ! 1346: endm ! 1347: createSeg macro n,ln,a,co,cl,grp ! 1348: ifnb <cl> ! 1349: n segment a co '&cl' ! 1350: else ! 1351: n segment a co ! 1352: endif ! 1353: n ends ! 1354: ifnb <grp> ! 1355: addseg grp,n ! 1356: else ! 1357: ln&OFFSET equ offset n: ! 1358: ln&BASE equ n ! 1359: ?cs3 <ln>,<n> ! 1360: endif ! 1361: ?cs1 <ln>,<n> ! 1362: endm ! 1363: addseg macro grp,seg ! 1364: .xcref ! 1365: .xcref grp&_def ! 1366: .cref ! 1367: ifndef grp&_def ! 1368: grp&_def=0 ! 1369: endif ! 1370: if grp&_def ne ASMpass ! 1371: .xcref ! 1372: .xcref grp&_add ! 1373: .cref ! 1374: grp&_add ¯o s ! 1375: grp&_in <seg>,s ! 1376: &endm ! 1377: .xcref ! 1378: .xcref grp&_in ! 1379: .cref ! 1380: grp&_in ¯o sl,s ! 1381: ifb <s> ! 1382: grp group sl ! 1383: else ! 1384: grp&_add ¯o ns ! 1385: grp&_in <sl,s>,ns ! 1386: &endm ! 1387: endif ! 1388: &endm ! 1389: grp&_def=ASMpass ! 1390: else ! 1391: grp&_add seg ! 1392: endif ! 1393: endm ! 1394: defgrp macro grp,ln ! 1395: addseg grp ! 1396: ifnb <ln> ! 1397: irp x,<ln> ! 1398: ?cs3 <&x>,<grp> ! 1399: x&&OFFSET equ offset grp: ! 1400: x&&BASE equ grp ! 1401: endm ! 1402: endif ! 1403: endm ! 1404: ?cs1 macro ln,n ! 1405: .xcref ! 1406: .xcref ln&_sbegin ! 1407: .cref ! 1408: ln&_sbegin ¯o ! 1409: .xcref ! 1410: .xcref ?mf ! 1411: .cref ! 1412: ?curseg equ <&ln> ! 1413: ?mf &¯o c,l,p ! 1414: if c ! 1415: extrn n&_FARFRAME:near ! 1416: call n&_FARFRAME ! 1417: else ! 1418: extrn n&_NEARFRAME:near ! 1419: call n&_NEARFRAME ! 1420: endif ! 1421: db l shr 1 ! 1422: db p shr 1 ! 1423: &&endm ! 1424: ?cs2 <ln>,<n> ! 1425: n segment ! 1426: &endm ! 1427: endm ! 1428: ?cs2 macro ln,n ! 1429: .xcref ! 1430: .xcref sEnd ! 1431: .cref ! 1432: sEnd ¯o ! 1433: n ends ! 1434: purge ?mf ! 1435: purge sEnd ! 1436: &endm ! 1437: endm ! 1438: ?cs3 macro ln,n ! 1439: .xcref ! 1440: .xcref ln&_assumes ! 1441: .cref ! 1442: ln&_assumes ¯o s ! 1443: assume s:&n ! 1444: &endm ! 1445: endm ! 1446: .xcref ! 1447: .xcref sBegin ! 1448: .cref ! 1449: sBegin macro ln ! 1450: ln&_sbegin ! 1451: endm ! 1452: ife ?DF ! 1453: createSeg _TEXT,Code,word,public,CODE ! 1454: ife ?nodata1 ! 1455: createSeg _DATA,Data,word,public,DATA,DGROUP ! 1456: defgrp DGROUP,Data ! 1457: endif ! 1458: if ?chkstk1 ! 1459: ifndef ?CHKSTKPROC ! 1460: externp <chkstk> ! 1461: endif ! 1462: endif ! 1463: endif ! 1464: errnz macro x ! 1465: if2 ! 1466: if x ! 1467: errnz1 <x>,%(x) ! 1468: endif ! 1469: endif ! 1470: endm ! 1471: errnz1 macro x1,x2 ! 1472: = *errnz* x1 = x2 ! 1473: .err ! 1474: endm ! 1475: errn$ macro l,x ! 1476: errnz <offset $ - offset l x> ! 1477: endm ! 1478: ifdef ?PROFILE ! 1479: externFP <StartNMeas,StopNMeas> ! 1480: endif ! 1481: if ?aprof1 ! 1482: externFP <AProfCall,AProfRet>,<PLM> ! 1483: endif
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.