![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to optable CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / PDP11 / 11c|
Return to optable CVS log | Up to [Research Unix] / researchv10no / cmd / PDP11 / 11c |
1.1 ! root 1: %{ ! 2: /* ! 3: * c code tables-- compile to register ! 4: */ ! 5: ! 6: struct table regtab[] = { ! 7: {106,cr106}, ! 8: {30,cr70}, ! 9: {31,cr70}, ! 10: {32,cr32}, ! 11: {33,cr32}, ! 12: {37,cr37}, ! 13: {38,cr37}, ! 14: {98,cr100}, ! 15: {99,cr100}, ! 16: {80,cr80}, ! 17: {40,cr40}, ! 18: {41,cr40 /* - like + */}, ! 19: {42,cr42}, ! 20: {43,cr43}, ! 21: {14,cr14}, ! 22: {44,cr43}, ! 23: {45,cr45}, ! 24: {46,cr40}, ! 25: {55,cr40}, ! 26: {48,cr40}, ! 27: {49,cr49}, ! 28: {70,cr70}, ! 29: {71,cr70}, ! 30: {72,cr72}, ! 31: {73,cr73}, ! 32: {74,cr74}, ! 33: {75,cr75}, ! 34: {76,cr72}, ! 35: {78,cr70}, ! 36: {85,cr70}, ! 37: {79,cr79}, ! 38: {102,cr102}, ! 39: {51,cr51}, ! 40: {52,cr52}, ! 41: {56,cr56}, ! 42: {57,cr57}, ! 43: {58,cr58}, ! 44: {59,cr59}, ! 45: {91,cr91}, ! 46: {82,cr82}, ! 47: {83,cr82}, ! 48: {84,cr82}, ! 49: {86,cr86}, ! 50: {87,cr86}, ! 51: {88,cr86}, ! 52: {16,cr16}, ! 53: {92,cr92}, ! 54: {17,cr43}, ! 55: {18,cr74}, ! 56: {109,cr109}, ! 57: {117,cr117}, ! 58: {118,cr117}, ! 59: {119,cr119}, ! 60: {120,cr119}, ! 61: {107,cr107}, ! 62: {0} ! 63: }; ! 64: %} ! 65: ! 66: /* goto */ ! 67: cr102: ! 68: %a,n ! 69: jmp A1 ! 70: ! 71: %n*,n ! 72: F* ! 73: jmp #1(R) ! 74: ! 75: /* call */ ! 76: cr100: ! 77: %a,n ! 78: jsr pc,IA1 ! 79: ! 80: %n*,n ! 81: F* ! 82: jsr pc,#1(R) ! 83: ! 84: %n,n ! 85: F ! 86: jsr pc,(R) ! 87: ! 88: /* addressible */ ! 89: cr106: ! 90: %z,n ! 91: clr R ! 92: ! 93: %zf,n ! 94: clrf R ! 95: ! 96: %aub,n ! 97: movb A1,R ! 98: bic $!377,R ! 99: ! 100: %a,n ! 101: %ad,n ! 102: movB1 A1,R ! 103: ! 104: %af,n ! 105: movof A1,R ! 106: ! 107: %nub*,n ! 108: F* ! 109: movb #1(R),R ! 110: bic $!377,R ! 111: ! 112: %n*,n ! 113: %nd*,n ! 114: F* ! 115: movB1 #1(R),R ! 116: ! 117: %nf*,n ! 118: F* ! 119: movof #1(R),R ! 120: ! 121: %al,n ! 122: mov A1+,R+ ! 123: mov A1,R ! 124: ! 125: %nl*,n ! 126: F* ! 127: mov #1+2(R),R+ ! 128: mov #1(R),R ! 129: ! 130: %n,n ! 131: F ! 132: ! 133: /* ++,-- postfix */ ! 134: cr32: ! 135: %a,1 ! 136: movB1 A1',R ! 137: I'B1 A1'' ! 138: ! 139: %aw,n ! 140: mov A1',R ! 141: I A2,A1'' ! 142: ! 143: %aub,n ! 144: clr R ! 145: bisb A1',R ! 146: I'b A1'' ! 147: ! 148: %e*,1 ! 149: F1* ! 150: movB1 #1(R1),R ! 151: I'B1 #1(R1) ! 152: ! 153: %n*,1 ! 154: F* ! 155: movB1 #1(R),-(sp) ! 156: I'B1 #1(R) ! 157: movB1 (sp)+,R ! 158: ! 159: %ew*,n ! 160: F1* ! 161: mov #1(R1),R ! 162: I A2,#1(R1) ! 163: ! 164: %eub*,n ! 165: F1* ! 166: clr R ! 167: bisb #1(R1),R ! 168: I'b #1(R1) ! 169: ! 170: %nw*,n ! 171: F* ! 172: mov #1(R),-(sp) ! 173: I A2,#1(R) ! 174: mov (sp)+,R ! 175: ! 176: %nub*,n ! 177: F* ! 178: movb (R),-(sp) ! 179: I'b (R) ! 180: clr R ! 181: bisb (sp)+,R ! 182: ! 183: %al,1 ! 184: F ! 185: I $1,A1+ ! 186: V A1 ! 187: ! 188: %el*,1 ! 189: F1* ! 190: mov #1+2(R1),R+ ! 191: mov #1(R1),R ! 192: I $1,#1+2(R1) ! 193: V #1(R1) ! 194: ! 195: %nl*,1 ! 196: F* ! 197: mov #1+2(R),-(sp) ! 198: mov #1(R),-(sp) ! 199: I $1,#1+2(R) ! 200: V #1(R) ! 201: mov (sp)+,R ! 202: mov (sp)+,R+ ! 203: ! 204: /* - unary, ~ */ ! 205: cr37: ! 206: %n,n ! 207: %nf,n ! 208: F ! 209: IBF R ! 210: ! 211: %nl,n ! 212: F ! 213: I R ! 214: I R+ ! 215: V R ! 216: ! 217: /* = */ ! 218: cr80: ! 219: %a,n ! 220: %ad,nf ! 221: S ! 222: movB1 R,A1 ! 223: ! 224: %aub,n ! 225: S ! 226: movB1 R,A1 ! 227: bic $!377,R ! 228: ! 229: %af,nf ! 230: S ! 231: movfo R,A1 ! 232: ! 233: %nd*,af ! 234: F* ! 235: S ! 236: movf R,#1(R) ! 237: ! 238: %n*,aw ! 239: F* ! 240: movB1 A2,#1(R) ! 241: movB1 #1(R),R ! 242: ! 243: %nf*,af ! 244: F* ! 245: S ! 246: movfo R,#1(R) ! 247: ! 248: %n*,e ! 249: F* ! 250: S1 ! 251: movB1 R1,#1(R) ! 252: movB1 R1,R ! 253: ! 254: %nub*,e ! 255: F* ! 256: S1 ! 257: movB1 R1,#1(R) ! 258: mov R1,R ! 259: bic $!377,R ! 260: ! 261: %ed*,nf ! 262: S ! 263: F1* ! 264: movf R,#1(R1) ! 265: ! 266: %ef*,nf ! 267: S ! 268: F1* ! 269: movfo R,#1(R1) ! 270: ! 271: %n*,n ! 272: %nd*,nf ! 273: FS* ! 274: S ! 275: movB1 R,*(sp)+ ! 276: ! 277: %nub*,n ! 278: FS* ! 279: S ! 280: movB1 R,*(sp)+ ! 281: bic $!377,R ! 282: ! 283: %nf*,nf ! 284: FS* ! 285: S ! 286: movfo R,*(sp)+ ! 287: ! 288: %al,nl ! 289: S ! 290: mov R+,A1+ ! 291: mov R,A1 ! 292: ! 293: %el*,nl ! 294: S ! 295: F1* ! 296: mov R+,2+#1(R1) ! 297: mov R,#1(R1) ! 298: ! 299: %nl*,nl ! 300: FS* ! 301: S ! 302: mov R,*(sp) ! 303: add $2,(sp) ! 304: mov R+,*(sp)+ ! 305: ! 306: /* field assign, value in reg. */ ! 307: cr16: ! 308: %a,n ! 309: S ! 310: bicB1 Z,A1' ! 311: bisB1 R,A1'' ! 312: ! 313: %e*,n ! 314: % [fas1] ! 315: ! 316: %n*,n ! 317: SS ! 318: F* ! 319: bicB1 Z,#1(R) ! 320: bisB1 (sp),#1(R) ! 321: mov (sp)+,R ! 322: ! 323: /* +, -, |, &~, << */ ! 324: cr40: ! 325: %n,z ! 326: F ! 327: ! 328: %n,1 ! 329: F ! 330: I' R ! 331: ! 332: %[add1:] ! 333: %n,aw ! 334: %nf,ad ! 335: F ! 336: IB2 A2,R ! 337: ! 338: %[add2:] ! 339: %n,ew* ! 340: %nf,ed* ! 341: F ! 342: S1* ! 343: IB2 #2(R1),R ! 344: ! 345: %[add3:] ! 346: %n,e ! 347: %nf,ef ! 348: F ! 349: S1 ! 350: IBF R1,R ! 351: ! 352: %[add4:] ! 353: %n,nw* ! 354: %nf,nd* ! 355: SS* ! 356: F ! 357: IB2 *(sp)+,R ! 358: ! 359: %[add5:] ! 360: %n,n ! 361: %nf,nf ! 362: SS ! 363: F ! 364: IBF (sp)+,R ! 365: ! 366: %nl,c ! 367: %nl,au ! 368: F ! 369: I A2,R+ ! 370: V R ! 371: ! 372: %nl,eu ! 373: F ! 374: S1 ! 375: I R1,R+ ! 376: V R ! 377: ! 378: %nl,al ! 379: F ! 380: I A2,R ! 381: I A2+,R+ ! 382: V R ! 383: ! 384: %[addl1:] ! 385: %nl,el ! 386: F ! 387: S1 ! 388: I R1+,R+ ! 389: V R ! 390: I R1,R ! 391: ! 392: %[addl2:] ! 393: %nl,nl ! 394: SS ! 395: F ! 396: I (sp)+,R ! 397: I (sp)+,R+ ! 398: V R ! 399: ! 400: /* ^ -- xor */ ! 401: cr49: ! 402: %n,e ! 403: % [add3] ! 404: ! 405: %n,n ! 406: FS ! 407: S ! 408: xor R,(sp) ! 409: mov (sp)+,R ! 410: ! 411: %nl,el ! 412: % [addl1] ! 413: ! 414: %nl,nl ! 415: SS ! 416: F ! 417: I R,(sp) ! 418: mov (sp)+,R ! 419: I R+,(sp) ! 420: mov (sp)+,R+ ! 421: ! 422: /* >> (all complicated cases taken care of by << -) */ ! 423: cr45: ! 424: %n,1 ! 425: F ! 426: asr R ! 427: ! 428: /* * -- R must be odd on integers */ ! 429: cr42: ! 430: %n,aw ! 431: %nf,ad ! 432: % [add1] ! 433: ! 434: %n,ew* ! 435: %nf,ed* ! 436: % [add2] ! 437: ! 438: %n,e ! 439: %nf,ef ! 440: % [add3] ! 441: ! 442: %n,n ! 443: %nf,nf ! 444: % [add5] ! 445: ! 446: /* / R must be odd on integers */ ! 447: cr43: ! 448: %n,aw ! 449: F ! 450: T ! 451: I A2,R- ! 452: ! 453: %n,ew* ! 454: F ! 455: T ! 456: S1* ! 457: I #2(R1),R- ! 458: ! 459: %n,e ! 460: F ! 461: T ! 462: S1 ! 463: I R1,R- ! 464: ! 465: %n,n ! 466: SS ! 467: F ! 468: T ! 469: I (sp)+,R- ! 470: ! 471: %nf,ad ! 472: % [add1] ! 473: ! 474: %nf,ed* ! 475: % [add2] ! 476: ! 477: %nf,ef ! 478: % [add3] ! 479: ! 480: %nf,nf ! 481: % [add5] ! 482: ! 483: /* PTOI */ ! 484: cr14: ! 485: %nl,a ! 486: F! ! 487: div A2,R ! 488: ! 489: /* =+, =-, =|, =&~ */ ! 490: cr70: ! 491: %[addq1:] ! 492: %aw,aw ! 493: I A2,A1' ! 494: mov A1'',R ! 495: ! 496: %[addq20:] ! 497: %aub,aw ! 498: clr R ! 499: bisb A1',R ! 500: I A2,R ! 501: movb R,A1'' ! 502: bic $!377,R ! 503: ! 504: %[addq1a:] ! 505: %a,aw ! 506: %ad,ad ! 507: movB1 A1',R ! 508: IBF A2,R ! 509: movB1 R,A1'' ! 510: ! 511: %[addq2:] ! 512: %aw,nw* ! 513: S* ! 514: I #2(R),A1' ! 515: mov A1'',R ! 516: ! 517: %[addq3:] ! 518: %aw,n ! 519: S ! 520: I R,A1' ! 521: mov A1'',R ! 522: ! 523: %[addq21:] ! 524: %aub,n ! 525: SS ! 526: clr R ! 527: bisb A1',R ! 528: I (sp)+,R ! 529: movb R,A1'' ! 530: bic $!377,R ! 531: ! 532: %[addq4:] ! 533: %ew*,nw* ! 534: S* ! 535: F1* ! 536: I #2(R),#1(R1) ! 537: mov #1(R1),R ! 538: ! 539: %[addq4a:] ! 540: %ad,ef ! 541: movf A1',R ! 542: S1 ! 543: IBF R1,R ! 544: movf R,A1'' ! 545: ! 546: %[addq5:] ! 547: %a,n ! 548: %ad,nf ! 549: SS ! 550: movB1 A1',R ! 551: IBF (sp)+,R ! 552: movB1 R,A1'' ! 553: ! 554: %[addq6:] ! 555: %af,nf ! 556: SS ! 557: movof A1',R ! 558: IBF (sp)+,R ! 559: movfo R,A1'' ! 560: ! 561: %[addq7:] ! 562: %ew*,n ! 563: S ! 564: F1* ! 565: I R,#1(R1) ! 566: mov #1(R1),R ! 567: ! 568: %[addq8:] ! 569: %nw*,n ! 570: SS ! 571: F* ! 572: I (sp)+,#1(R) ! 573: mov #1(R),R ! 574: ! 575: %[addq9:] ! 576: %n*,n ! 577: FS* ! 578: SS ! 579: movB1 *2(sp),R ! 580: IBF (sp)+,R ! 581: movB1 R,*(sp)+ ! 582: ! 583: %[addq22:] ! 584: %nub*,n ! 585: FS* ! 586: SS ! 587: clr R ! 588: bisb *2(sp),R ! 589: I (sp)+,R ! 590: movb R,*(sp)+ ! 591: bic $!377,R ! 592: ! 593: %[addq9a:] ! 594: %nd*,nf ! 595: SS ! 596: F* ! 597: movB1 #1(R),R ! 598: IBF (sp)+,R ! 599: movB1 R,#1(R) ! 600: ! 601: %[addq10:] ! 602: %nf*,nf ! 603: SS ! 604: F* ! 605: movof #1(R),R1 ! 606: IBF (sp)+,R1 ! 607: movfo R1,#1(R) ! 608: movf R1,R ! 609: ! 610: %al,c ! 611: I A2,A1+ ! 612: V A1 ! 613: F ! 614: ! 615: %al,al ! 616: I A2+,A1+ ! 617: V A1 ! 618: I A2,A1 ! 619: F ! 620: ! 621: %al,nl ! 622: S ! 623: I R+,A1+ ! 624: V A1 ! 625: I R,A1 ! 626: F ! 627: ! 628: %nl*,c ! 629: F* ! 630: I A2,#1+2(R) ! 631: V #1(R) ! 632: mov #1+2(R),R+ ! 633: mov #1(R),R ! 634: ! 635: %nl*,al ! 636: F* ! 637: I A2+,#1+2(R) ! 638: V #1(R) ! 639: I A2,#1(R) ! 640: mov #1+2(R),R+ ! 641: mov #1(R),R ! 642: ! 643: %nl*,nl ! 644: SS ! 645: F* ! 646: I (sp)+,#1(R) ! 647: I (sp)+,#1+2(R) ! 648: V #1(R) ! 649: mov #1+2(R),R+ ! 650: mov #1(R),R ! 651: ! 652: /* =*, =<< (for integer multiply, R must be odd) */ ! 653: cr72: ! 654: %a,aw ! 655: %ad,ad ! 656: % [addq1a] ! 657: ! 658: %ad,ef ! 659: % [addq4a] ! 660: ! 661: %a,n ! 662: %ad,nf ! 663: % [addq5] ! 664: ! 665: %af,nf ! 666: % [addq6] ! 667: ! 668: %aub,aw ! 669: % [addq20] ! 670: ! 671: %aub,n ! 672: % [addq21] ! 673: ! 674: %n*,n ! 675: % [addq9] ! 676: ! 677: %nub*,n ! 678: % [addq22] ! 679: ! 680: %nd*,nf ! 681: % [addq9a] ! 682: ! 683: %nf*,nf ! 684: % [addq10] ! 685: ! 686: /* =/ ; R must be odd on integers */ ! 687: cr73: ! 688: %a,aw ! 689: movB1 A1',R ! 690: V R- ! 691: IBF A2,R- ! 692: movB1 R-,A1'' ! 693: ! 694: %a,n ! 695: SS ! 696: movB1 A1',R ! 697: V R- ! 698: I (sp)+,R- ! 699: movB1 R-,A1'' ! 700: ! 701: %aub,n ! 702: SS ! 703: clr R ! 704: bisB1 A1',R ! 705: V R- ! 706: I (sp)+,R- ! 707: movB1 R-,A1'' ! 708: bic $!377,R- ! 709: ! 710: %e*,n ! 711: SS ! 712: F1* ! 713: movB1 #1(R1),R ! 714: V R- ! 715: I (sp)+,R- ! 716: movB1 R-,#1(R1) ! 717: ! 718: %n*,n ! 719: FS* ! 720: SS ! 721: movB1 *2(sp),R ! 722: V R- ! 723: I (sp)+,R- ! 724: movB1 R-,*(sp)+ ! 725: ! 726: %nub*,n ! 727: FS* ! 728: SS ! 729: clr R ! 730: bisB1 *2(sp),R ! 731: V R- ! 732: I (sp)+,R- ! 733: movB1 R-,*(sp)+ ! 734: bic $!377,R- ! 735: ! 736: %ad,ad ! 737: % [addq1a] ! 738: ! 739: %ad,ef ! 740: % [addq4a] ! 741: ! 742: %ad,nf ! 743: % [addq5] ! 744: ! 745: %af,nf ! 746: % [addq6] ! 747: ! 748: %nd*,nf ! 749: % [addq9a] ! 750: ! 751: %nf*,nf ! 752: % [addq10] ! 753: ! 754: /* =mod; R must be odd on integers */ ! 755: cr74: ! 756: %a,aw ! 757: movB1 A1',R ! 758: V R- ! 759: I A2,R- ! 760: movB1 R,A1'' ! 761: ! 762: %a,n ! 763: SS ! 764: movB1 A1',R ! 765: V R- ! 766: I (sp)+,R- ! 767: movB1 R,A1'' ! 768: ! 769: %aub,n ! 770: SS ! 771: clr R ! 772: bisB1 A1',R ! 773: V R- ! 774: I (sp)+,R- ! 775: movB1 R,A1'' ! 776: bic $!377,R ! 777: ! 778: %e*,n ! 779: SS ! 780: F1* ! 781: movB1 #1(R1),R ! 782: V R- ! 783: I (sp)+,R- ! 784: movB1 R,#1(R1) ! 785: ! 786: %n*,n ! 787: FS* ! 788: SS ! 789: movB1 *2(sp),R ! 790: V R- ! 791: I (sp)+,R- ! 792: movB1 R,*(sp)+ ! 793: ! 794: %nub*,n ! 795: FS* ! 796: SS ! 797: clr R ! 798: bisB1 *2(sp),R ! 799: V R- ! 800: I (sp)+,R- ! 801: movB1 R,*(sp)+ ! 802: bic $!377,R ! 803: ! 804: /* =^ -- =xor */ ! 805: cr79: ! 806: %aw,n ! 807: % [addq3] ! 808: ! 809: %ab,n ! 810: SS ! 811: movb A1',R ! 812: xor R,(sp) ! 813: mov (sp)+,R ! 814: movb R,A1'' ! 815: ! 816: %aub,n ! 817: SS ! 818: clr R ! 819: bisb A1',R ! 820: xor R,(sp) ! 821: mov (sp)+,R ! 822: movb R,A1'' ! 823: bic $!377,R ! 824: ! 825: %n*,n ! 826: FS* ! 827: movB1 *(sp),-(sp) ! 828: S ! 829: xor R,(sp) ! 830: movB1 (sp)+,R ! 831: movB1 R,*(sp)+ ! 832: ! 833: %nub*,n ! 834: FS* ! 835: clr -(sp) ! 836: bisb *2(sp),(sp) ! 837: S ! 838: xor R,(sp) ! 839: mov (sp)+,R ! 840: movb R,*(sp)+ ! 841: bic $!377,R ! 842: ! 843: /* =>> (all complicated cases done by =<< -) */ ! 844: cr75: ! 845: %a,1 ! 846: asrB1 A1' ! 847: movB1 A1'',R ! 848: ! 849: %n*,1 ! 850: F* ! 851: asrB1 #1(R) ! 852: movB1 #1(R),R ! 853: ! 854: /* << for longs */ ! 855: cr91: ! 856: %nl,aw ! 857: % [add1] ! 858: ! 859: %nl,ew* ! 860: % [add2] ! 861: ! 862: %nl,e ! 863: % [add3] ! 864: ! 865: %nl,nw* ! 866: % [add4] ! 867: ! 868: %nl,n ! 869: % [add5] ! 870: ! 871: /* int -> float */ ! 872: cr51: ! 873: %aw,n ! 874: movif A1,R ! 875: ! 876: %nw*,n ! 877: F* ! 878: movif #1(R),R ! 879: ! 880: %n,n ! 881: F ! 882: movif R,R ! 883: ! 884: /* float, double -> int */ ! 885: cr52: ! 886: %nf,n ! 887: F ! 888: movfi R,R ! 889: ! 890: /* double (float) to long */ ! 891: cr56: ! 892: %nf,n ! 893: F ! 894: setl ! 895: movfi R,-(sp) ! 896: mov (sp)+,R ! 897: mov (sp)+,R+ ! 898: seti ! 899: ! 900: /* long to double */ ! 901: cr57: ! 902: %al,n ! 903: setl ! 904: movif A1,R ! 905: seti ! 906: ! 907: %nl*,n ! 908: F* ! 909: setl ! 910: movif #1(R),R ! 911: seti ! 912: ! 913: %nl,n ! 914: FS ! 915: setl ! 916: movif (sp)+,R ! 917: seti ! 918: ! 919: /* integer to long */ ! 920: cr58: ! 921: %eu,n ! 922: F1! ! 923: clr R ! 924: ! 925: %nu,n ! 926: F ! 927: mov R,R1 ! 928: clr R ! 929: ! 930: %e,n ! 931: F1! ! 932: sxt R ! 933: ! 934: %n,n ! 935: F ! 936: mov R,R1 ! 937: sxt R ! 938: ! 939: /* long to integer */ ! 940: cr59: ! 941: %al,n ! 942: mov A1+,R ! 943: ! 944: %nl*,n ! 945: F* ! 946: mov #1+2(R),R ! 947: ! 948: /* *, /, remainder for longs. */ ! 949: cr82: ! 950: %nl,nl ! 951: SS ! 952: FS ! 953: jsr pc,I ! 954: add $10,sp ! 955: ! 956: /* =*, =/, =rem for longs */ ! 957: /* Operands of the form &x op y, so stack space is known. */ ! 958: cr86: ! 959: %n,nl ! 960: SS ! 961: FS ! 962: jsr pc,I ! 963: add $6,sp ! 964: ! 965: /* convert integer to character (sign extend) */ ! 966: cr109: ! 967: %n,n ! 968: F ! 969: movb R,R ! 970: ! 971: /* divide, remainder for unsigned */ ! 972: cr117: ! 973: %n,e ! 974: F! ! 975: S1! ! 976: jsr pc,I ! 977: ! 978: %n,n ! 979: SS ! 980: F! ! 981: mov (sp)+,R1 ! 982: jsr pc,I ! 983: ! 984: /* /= mod for unsigned */ ! 985: cr119: ! 986: %aw,e ! 987: %ab,e ! 988: movB1 A1',R ! 989: S1! ! 990: jsr pc,I ! 991: movB1 R,A1'' ! 992: ! 993: %aub,e ! 994: clr R ! 995: bisB1 A1',R ! 996: S1! ! 997: jsr pc,I ! 998: movb R,A1'' ! 999: bic $!377,R ! 1000: ! 1001: %aw,n ! 1002: %ab,n ! 1003: SS ! 1004: movB1 A1',R ! 1005: mov (sp)+,R1 ! 1006: jsr pc,I ! 1007: movB1 R,A1'' ! 1008: ! 1009: %nw*,n ! 1010: %nb*,n ! 1011: FS* ! 1012: S! ! 1013: mov R,R1 ! 1014: movB1 *(sp),R ! 1015: jsr pc,I ! 1016: movB1 R,*(sp)+ ! 1017: ! 1018: %aub,n ! 1019: SS ! 1020: clr R ! 1021: bisB1 A1',R ! 1022: mov (sp)+,R1 ! 1023: jsr pc,I ! 1024: movB1 R,A1'' ! 1025: bic $!377,R ! 1026: ! 1027: %nub*,n ! 1028: FS* ! 1029: S! ! 1030: mov R,R1 ! 1031: clr R ! 1032: bisb *(sp),R ! 1033: jsr pc,I ! 1034: movB1 R,*(sp)+ ! 1035: bic $!377,R ! 1036: ! 1037: /* (int *) - (int *) */ ! 1038: cr107: ! 1039: %n,n ! 1040: F? ! 1041: ror R ! 1042: ! 1043: %{ ! 1044: /* ! 1045: * c code tables -- compile for side effects. ! 1046: * Also set condition codes properly (except for ++, --) ! 1047: */ ! 1048: ! 1049: struct table efftab[] = { ! 1050: {30,ci70}, ! 1051: {31,ci70}, ! 1052: {32,ci70}, ! 1053: {33,ci70}, ! 1054: {80,ci80}, ! 1055: {70,ci70}, ! 1056: {71,ci70 /* - like + */}, ! 1057: {78,ci78}, ! 1058: {79,ci79}, ! 1059: {85,ci78}, ! 1060: {75,ci75}, ! 1061: {76,ci76}, ! 1062: {16,ci16}, ! 1063: {116,ci116}, ! 1064: {0} ! 1065: }; ! 1066: %} ! 1067: ! 1068: /* = */ ! 1069: ci80: ! 1070: %[move1:] ! 1071: %a,z ! 1072: %ad,zf ! 1073: %aub,z ! 1074: I'B1 A1 ! 1075: ! 1076: %[move2:] ! 1077: %n*,z ! 1078: %nd*,zf ! 1079: %nub*,z ! 1080: F* ! 1081: I'B1 #1(R) ! 1082: ! 1083: %[move3:] ! 1084: %a,aw ! 1085: %ab,a ! 1086: %aub,a ! 1087: IBE A2,A1 ! 1088: ! 1089: %[move4:] ! 1090: %ab,n* ! 1091: %a,nw* ! 1092: %aub,n* ! 1093: S* ! 1094: IBE #2(R),A1 ! 1095: ! 1096: %[move5:] ! 1097: %a,n ! 1098: %aub,n ! 1099: S ! 1100: IB1 R,A1 ! 1101: ! 1102: %[move6:] ! 1103: %n*,aw ! 1104: %nb*,a ! 1105: %nub*,a ! 1106: F* ! 1107: IBE A2,#1(R) ! 1108: ! 1109: %[move7:] ! 1110: %n*,ew* ! 1111: %nb*,e* ! 1112: %nub*,e* ! 1113: F* ! 1114: S1* ! 1115: IBE #2(R1),#1(R) ! 1116: ! 1117: %[move8:] ! 1118: %n*,e ! 1119: %nub*,e ! 1120: F* ! 1121: S1 ! 1122: IB1 R1,#1(R) ! 1123: ! 1124: %[move9:] ! 1125: %e*,nw* ! 1126: %eb*,n* ! 1127: %eub*,n* ! 1128: S* ! 1129: F1* ! 1130: IBE #2(R),#1(R1) ! 1131: ! 1132: %[move10:] ! 1133: %e*,n ! 1134: %eub*,n ! 1135: S ! 1136: F1* ! 1137: IB1 R,#1(R1) ! 1138: ! 1139: %[move11:] ! 1140: %n*,nw* ! 1141: %nb*,n* ! 1142: %nub*,n* ! 1143: FS* ! 1144: S* ! 1145: IBE #2(R),*(sp)+ ! 1146: ! 1147: %[move12:] ! 1148: %n*,n ! 1149: %nub*,n ! 1150: FS* ! 1151: S ! 1152: IB1 R,*(sp)+ ! 1153: ! 1154: %aw,nf ! 1155: S ! 1156: movfi R,A1 ! 1157: ! 1158: %ew*,nf ! 1159: S ! 1160: F1* ! 1161: movfi R,#1(R1) ! 1162: ! 1163: %al,z ! 1164: clr A1 ! 1165: clr A1+ ! 1166: ! 1167: %nl*,z ! 1168: F* ! 1169: clr #1(R) ! 1170: clr 2+#1(R) ! 1171: ! 1172: %[move13a:] ! 1173: %al,aw ! 1174: I A2,A1+ ! 1175: V A1 ! 1176: ! 1177: %al,nw* ! 1178: S* ! 1179: mov #2(R),A1+ ! 1180: V A1 ! 1181: ! 1182: %al,n ! 1183: S ! 1184: mov R,A1+ ! 1185: V A1 ! 1186: ! 1187: %al,nf ! 1188: S ! 1189: setl ! 1190: movfi R,A1 ! 1191: seti ! 1192: ! 1193: %el*,nf ! 1194: S ! 1195: F1* ! 1196: setl ! 1197: movfi R,#1(R1) ! 1198: seti ! 1199: ! 1200: %[move13:] ! 1201: %al,al ! 1202: I A2,A1 ! 1203: I A2+,A1+ ! 1204: V A1 ! 1205: ! 1206: %[move14:] ! 1207: %al,nl* ! 1208: S* ! 1209: I #2(R),A1 ! 1210: I #2+2(R),A1+ ! 1211: V A1 ! 1212: ! 1213: %[move15:] ! 1214: %al,nl ! 1215: S ! 1216: I R,A1 ! 1217: I R+,A1+ ! 1218: V A1 ! 1219: ! 1220: %[move14a:] ! 1221: %nl*,aw ! 1222: F* ! 1223: I A2,#1+2(R) ! 1224: V #1(R) ! 1225: ! 1226: %[move16a:] ! 1227: %nl*,al ! 1228: F* ! 1229: I A2+,#1+2(R) ! 1230: V #1(R) ! 1231: I A2,#1(R) ! 1232: ! 1233: %[move16:] ! 1234: %el*,nl ! 1235: S ! 1236: F1* ! 1237: I R+,#1+2(R1) ! 1238: V #1(R1) ! 1239: I R,#1(R1) ! 1240: ! 1241: %nl*,n ! 1242: SS ! 1243: F* ! 1244: mov (sp)+,#1+2(R) ! 1245: V #1(R) ! 1246: ! 1247: %[move17:] ! 1248: %nl*,nl ! 1249: SS ! 1250: F* ! 1251: I (sp)+,#1(R) ! 1252: I (sp)+,#1+2(R) ! 1253: V #1(R) ! 1254: ! 1255: /* =| and =& ~ */ ! 1256: ci78: ! 1257: %a,aw ! 1258: %ab,a ! 1259: %aub,ab ! 1260: % [move3] ! 1261: ! 1262: %a,n ! 1263: % [move5] ! 1264: ! 1265: %n*,aw ! 1266: %nb*,a ! 1267: %nub*,a ! 1268: % [move6] ! 1269: ! 1270: %n*,ew* ! 1271: %nb*,e* ! 1272: %nub*,e* ! 1273: % [move7] ! 1274: ! 1275: %n*,e ! 1276: % [move8] ! 1277: ! 1278: %e*,nw* ! 1279: %eb*,n* ! 1280: %eub*,n* ! 1281: % [move9] ! 1282: ! 1283: %e*,n ! 1284: % [move10] ! 1285: ! 1286: %n*,nw* ! 1287: %nb*,n* ! 1288: %nub*,n* ! 1289: % [move11] ! 1290: ! 1291: %n*,n ! 1292: % [move12] ! 1293: ! 1294: %al,c ! 1295: %al,au ! 1296: % [move13a] ! 1297: ! 1298: %al,al ! 1299: % [move13] ! 1300: ! 1301: %al,nl* ! 1302: % [move14] ! 1303: ! 1304: %al,nl ! 1305: % [move15] ! 1306: ! 1307: %nl*,c ! 1308: % [move14a] ! 1309: ! 1310: %nl*,al ! 1311: % [move16a] ! 1312: ! 1313: %el*,nl ! 1314: % [move16] ! 1315: ! 1316: %nl*,nl ! 1317: % [move17] ! 1318: ! 1319: /* =^ */ ! 1320: ci79: ! 1321: %al,nl ! 1322: % [move15] ! 1323: ! 1324: %el*,nl ! 1325: % [move16] ! 1326: ! 1327: %nl*,nl ! 1328: FS* ! 1329: S ! 1330: I R,*(sp) ! 1331: mov (sp)+,R ! 1332: I R+,2(R) ! 1333: ! 1334: /* =+ */ ! 1335: ci70: ! 1336: %n*,z ! 1337: %a,z ! 1338: %aub,1 ! 1339: %a,1 ! 1340: I'B1 A1 ! 1341: ! 1342: %aw,aw ! 1343: % [move3] ! 1344: ! 1345: %aw,nw* ! 1346: % [move4] ! 1347: ! 1348: %aw,n ! 1349: % [move5] ! 1350: ! 1351: %n*,1 ! 1352: %nub*,1 ! 1353: % [move2] ! 1354: ! 1355: %ew*,nw* ! 1356: % [move9] ! 1357: ! 1358: %a,ew* ! 1359: S* ! 1360: movB1 A1',R1 ! 1361: I #2(R),R1 ! 1362: movB1 R1,A1'' ! 1363: ! 1364: %a,n ! 1365: S ! 1366: movB1 A1',R1 ! 1367: I R,R1 ! 1368: movB1 R1,A1'' ! 1369: ! 1370: %aub,n ! 1371: S ! 1372: clr R1 ! 1373: bisB1 A1',R1 ! 1374: I R,R1 ! 1375: movB1 R1,A1'' ! 1376: ! 1377: %ew*,n ! 1378: % [move10] ! 1379: ! 1380: %nw*,n ! 1381: % [move12] ! 1382: ! 1383: %n*,n ! 1384: SS ! 1385: F* ! 1386: movB1 #1(R),R1 ! 1387: I (sp)+,R1 ! 1388: movB1 R1,#1(R) ! 1389: ! 1390: %nub*,n ! 1391: SS ! 1392: F* ! 1393: clr R1 ! 1394: bisB1 #1(R),R1 ! 1395: I (sp)+,R1 ! 1396: movB1 R1,#1(R) ! 1397: ! 1398: %al,c ! 1399: %al,au ! 1400: % [move13a] ! 1401: ! 1402: %al,al ! 1403: % [move13] ! 1404: ! 1405: %al,nl* ! 1406: % [move14] ! 1407: ! 1408: %al,nl ! 1409: % [move15] ! 1410: ! 1411: %nl*,c ! 1412: %nl*,au ! 1413: % [move14a] ! 1414: ! 1415: %nl*,al ! 1416: % [move16a] ! 1417: ! 1418: %el*,nl ! 1419: % [move16] ! 1420: ! 1421: %nl*,nl ! 1422: % [move17] ! 1423: ! 1424: /* =>> (all harder cases handled by =<< -) */ ! 1425: ci75: ! 1426: %a,1 ! 1427: asrB1 A1 ! 1428: ! 1429: %aub,1 ! 1430: clc ! 1431: rorB1 A1 ! 1432: ! 1433: %n*,1 ! 1434: F* ! 1435: asrB1 #1(R) ! 1436: ! 1437: %nub*,1 ! 1438: F* ! 1439: clc ! 1440: rorB1 #1(R) ! 1441: ! 1442: /* =<< */ ! 1443: ci76: ! 1444: %a,1 ! 1445: %aub,1 ! 1446: aslB1 A1 ! 1447: ! 1448: %n*,1 ! 1449: %nub*,1 ! 1450: F* ! 1451: aslB1 #1(R) ! 1452: ! 1453: %r,aw ! 1454: ash A2,A1 ! 1455: ! 1456: %r,nw* ! 1457: S* ! 1458: ash #2(R),A1 ! 1459: ! 1460: %r,n ! 1461: S ! 1462: ash R,A1 ! 1463: ! 1464: /* =<< for longs */ ! 1465: cr92: ! 1466: %al,aw ! 1467: F ! 1468: ashc A2,R ! 1469: mov R,A1 ! 1470: mov R+,A1+ ! 1471: ! 1472: %al,n ! 1473: SS ! 1474: F ! 1475: ashc (sp)+,R ! 1476: mov R,A1 ! 1477: mov R+,A1+ ! 1478: ! 1479: %nl*,n ! 1480: FS* ! 1481: SS ! 1482: mov 2(sp),R ! 1483: mov 2(R),R+ ! 1484: mov (R),R ! 1485: ashc (sp)+,R ! 1486: mov R,*(sp) ! 1487: add $2,(sp) ! 1488: mov R+,*(sp)+ ! 1489: ! 1490: /* field = ... */ ! 1491: ci16: ! 1492: %a,a ! 1493: bicB1 Z,A1' ! 1494: bisB1 A2,A1'' ! 1495: ! 1496: %a,n ! 1497: S ! 1498: bicB1 Z,A1' ! 1499: bisB1 R,A1'' ! 1500: ! 1501: %n*,a ! 1502: F* ! 1503: bicB1 Z,#1(R) ! 1504: bisB1 A2,#1(R) ! 1505: ! 1506: %[fas1:] ! 1507: %e*,n ! 1508: S ! 1509: F1* ! 1510: bicB1 Z,#1(R1) ! 1511: bisB1 R,#1(R1) ! 1512: ! 1513: %n*,e ! 1514: F* ! 1515: S1 ! 1516: bicB1 Z,#1(R) ! 1517: bisB1 R1,#1(R) ! 1518: ! 1519: %n*,n ! 1520: SS ! 1521: F* ! 1522: bicB1 Z,#1(R) ! 1523: bisB1 (sp)+,#1(R) ! 1524: ! 1525: %{ ! 1526: /* ! 1527: * c code tables-- set condition codes ! 1528: */ ! 1529: ! 1530: struct table cctab[] = { ! 1531: {106,cc60}, ! 1532: {28,rest}, ! 1533: {55,rest}, ! 1534: {34,rest}, ! 1535: {35,rest}, ! 1536: {36,rest}, ! 1537: {37,rest}, ! 1538: {40,rest}, ! 1539: {41,rest}, ! 1540: {43,rest}, ! 1541: {81,cc81 /* & as in "if ((a&b)==0)" */}, ! 1542: {48,rest}, ! 1543: {60,cc60}, ! 1544: {61,cc60}, ! 1545: {62,cc60}, ! 1546: {63,cc60}, ! 1547: {64,cc60}, ! 1548: {65,cc60}, ! 1549: {66,cc60}, ! 1550: {67,cc60}, ! 1551: {68,cc60}, ! 1552: {69,cc60}, ! 1553: {72,rest}, ! 1554: {73,rest}, ! 1555: {79,rest}, ! 1556: {0} ! 1557: }; ! 1558: %} ! 1559: ! 1560: /* relationals */ ! 1561: cc60: ! 1562: %a,z ! 1563: %ad,zf ! 1564: % [move1] ! 1565: ! 1566: %aub,z ! 1567: movb A1,R ! 1568: bic $!377,R ! 1569: ! 1570: %af,z ! 1571: movof A1,R ! 1572: ! 1573: %n*,z ! 1574: %nd*,zf ! 1575: % [move2] ! 1576: ! 1577: %nub*,z ! 1578: F* ! 1579: movB1 #1(R),R ! 1580: bic $!377,R ! 1581: ! 1582: %nf*,z ! 1583: F* ! 1584: movof #1(R),R ! 1585: ! 1586: %n,z ! 1587: %nf,zf ! 1588: FC ! 1589: ! 1590: %aw,aw ! 1591: %ab,ab ! 1592: %aub,aub ! 1593: % [move3] ! 1594: ! 1595: %nw*,aw ! 1596: %nb*,ab ! 1597: %nub*,aub ! 1598: % [move6] ! 1599: ! 1600: %n,aw ! 1601: %nf,ad ! 1602: % [add1] ! 1603: ! 1604: %nw*,ew* ! 1605: %nb*,eb* ! 1606: %nub*,eub* ! 1607: % [move7] ! 1608: ! 1609: %nw*,e ! 1610: % [move8] ! 1611: ! 1612: %n,ew* ! 1613: %nf,ed* ! 1614: % [add2] ! 1615: ! 1616: %n,e ! 1617: %nf,ef ! 1618: % [add3] ! 1619: ! 1620: %nw*,nw* ! 1621: %nb*,nb* ! 1622: %nub*,nub* ! 1623: % [move11] ! 1624: ! 1625: %nw*,n ! 1626: % [move12] ! 1627: ! 1628: %n,n ! 1629: %nf,nf ! 1630: % [add5] ! 1631: ! 1632: %al,z ! 1633: tst A1 ! 1634: X0 ! 1635: tst A1+ ! 1636: X1 ! 1637: ! 1638: %al,c ! 1639: %al,au ! 1640: tst A1 ! 1641: X0 ! 1642: cmp A1+,A2 ! 1643: X1 ! 1644: ! 1645: %[lcmp1:] ! 1646: %al,al ! 1647: I A1,A2 ! 1648: X0 ! 1649: I A1+,A2+ ! 1650: X1 ! 1651: ! 1652: %nl*,z ! 1653: F* ! 1654: tst #1(R) ! 1655: X0 ! 1656: tst #1+2(R) ! 1657: X1 ! 1658: ! 1659: %nl*,c ! 1660: %nl*,au ! 1661: F* ! 1662: tst #1(R) ! 1663: X0 ! 1664: cmp #1+2(R),A2 ! 1665: X1 ! 1666: ! 1667: %[lcmp2:] ! 1668: %nl*,al ! 1669: F* ! 1670: I #1(R),A2 ! 1671: X0 ! 1672: I #1+2(R),A2+ ! 1673: X1 ! 1674: ! 1675: %nl,z ! 1676: F ! 1677: tst R ! 1678: X0 ! 1679: tst R+ ! 1680: X1 ! 1681: ! 1682: %nl,c ! 1683: %nl,au ! 1684: F ! 1685: tst R ! 1686: X0 ! 1687: cmp R+,A2 ! 1688: X1 ! 1689: ! 1690: %[lcmp3:] ! 1691: %nl,al ! 1692: F ! 1693: I R,A2 ! 1694: X0 ! 1695: I R+,A2+ ! 1696: X1 ! 1697: ! 1698: %[lcmp4:] ! 1699: %nl*,el* ! 1700: F* ! 1701: S1* ! 1702: I #1(R),#2(R1) ! 1703: X0 ! 1704: I #1+2(R),#2+2(R1) ! 1705: X1 ! 1706: ! 1707: %[lcmp5:] ! 1708: %nl,el* ! 1709: F ! 1710: S1* ! 1711: I R,#2(R1) ! 1712: X0 ! 1713: I R+,#2+2(R1) ! 1714: X1 ! 1715: ! 1716: %[lcmp6:] ! 1717: %nl,nl ! 1718: FS ! 1719: S ! 1720: mov R,-(sp) ! 1721: mov 4(sp),R ! 1722: mov (sp)+,2(sp) ! 1723: I (sp)+,(sp)+ ! 1724: X0 ! 1725: I R,R+ ! 1726: X1 ! 1727: ! 1728: /* & as in "if ((a&b) ==0)" */ ! 1729: cc81: ! 1730: %a,a ! 1731: % [move3] ! 1732: ! 1733: %n*,a ! 1734: % [move6] ! 1735: ! 1736: %n,a ! 1737: % [add1] ! 1738: ! 1739: %n,e ! 1740: % [add3] ! 1741: ! 1742: %n,n ! 1743: % [add5] ! 1744: ! 1745: %al,c ! 1746: %al,au ! 1747: bit A2,A1+ ! 1748: X1 ! 1749: ! 1750: %nl*,c ! 1751: %nl*,au ! 1752: F* ! 1753: bit A2,#2+2(R) ! 1754: X1 ! 1755: ! 1756: %al,al ! 1757: % [lcmp1] ! 1758: ! 1759: %nl*,al ! 1760: % [lcmp2] ! 1761: ! 1762: %nl,al ! 1763: % [lcmp3] ! 1764: ! 1765: %nl*,el* ! 1766: % [lcmp4] ! 1767: ! 1768: %nl,el* ! 1769: % [lcmp5] ! 1770: ! 1771: %nl,nl ! 1772: % [lcmp6] ! 1773: ! 1774: %nl,c ! 1775: %nl,au ! 1776: F ! 1777: bit A2,R+ ! 1778: X1 ! 1779: ! 1780: /* set codes right */ ! 1781: rest: ! 1782: %n,n ! 1783: %nf,nf ! 1784: H ! 1785: ! 1786: %{ ! 1787: /* ! 1788: * c code tables-- expression to -(sp) ! 1789: */ ! 1790: ! 1791: struct table sptab[] = { ! 1792: {106,cs106}, ! 1793: {40,cs40}, ! 1794: {41,cs40}, ! 1795: {55,cs40}, ! 1796: {48,cs40}, ! 1797: {58,cs58}, ! 1798: {56,cs56}, ! 1799: {0} ! 1800: }; ! 1801: %} ! 1802: ! 1803: /* name */ ! 1804: cs106: ! 1805: %z,n ! 1806: %zf,n ! 1807: clrB1 -(sp) ! 1808: ! 1809: %aw,n ! 1810: mov A1,-(sp) ! 1811: ! 1812: %aub,n ! 1813: clr -(sp) ! 1814: bisb A1,(sp) ! 1815: ! 1816: %nw*,n ! 1817: F* ! 1818: mov #1(R),-(sp) ! 1819: ! 1820: %al,n ! 1821: mov A1+,-(sp) ! 1822: mov A1,-(sp) ! 1823: ! 1824: /* +, -, |, &~ */ ! 1825: cs40: ! 1826: %a,1 ! 1827: FS ! 1828: I' (sp) ! 1829: ! 1830: %a,aw ! 1831: FS ! 1832: I A2,(sp) ! 1833: ! 1834: %a,nw* ! 1835: FS ! 1836: S* ! 1837: I #2(R),(sp) ! 1838: ! 1839: %a,n ! 1840: FS ! 1841: S ! 1842: I R,(sp) ! 1843: ! 1844: /* integer to long */ ! 1845: cs58: ! 1846: %nu,n ! 1847: FS ! 1848: clr -(sp) ! 1849: ! 1850: %aw,n ! 1851: mov A1,-(sp) ! 1852: sxt -(sp) ! 1853: ! 1854: /* float to long */ ! 1855: cs56: ! 1856: %nf,n ! 1857: F ! 1858: setl ! 1859: movfi R,-(sp) ! 1860: seti ! 1861: ! 1862: /* setup for structure assign */ ! 1863: ci116: ! 1864: %n,e ! 1865: F! ! 1866: S1! ! 1867: ! 1868: %n,n ! 1869: SS ! 1870: F! ! 1871: mov (sp)+,r1 ! 1872:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.