1 ! reconstituted from intexts 2 3 %EXTERNALROUTINE RECODE(%INTEGER S, TO, BASE) 503 @ 4405: LINE 3 "regression-compile-tmp/decode-77.imp" 504 @ 4445: DEF RECODE (_RECODE) p1=V_0081 a/tf=7 b/format=0 c/ostate=23 type=0 () form=7 (routine) special=0 () linkage=3 (external) spec=0 indirect=0 unass=1 505 @ 4463: START ( FORMAL PARAMETERS {lev=1 --> 2, nested=0 --> 1} 506 @ 4464: DEF S p1=V_0082 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 507 @ 4477: DEF TO p1=V_0083 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 508 @ 4491: DEF BASE p1=V_0084 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 509 @ 4507: FINISH ) {lev=1} 4 %CONSTINTEGERARRAY OPCODES(0 : 255) = %C 5 0(4), 6 M'SPM ',M'BALR',M'BCTR',M'BCR ',M'SSK ',M'ISK ',M'SVC ', 0(5), 7 M'LPR ', 8 M'LNR ',M'LTR ',M'LCR ',M'NR ',M'CLR ',M'OR ',M'XR ',M'LR ', 9 M'CR ', 10 M'AR ',M'SR ',M'MR ',M'DR ',M'ALR ',M'SLR ',M'LPDR',M'LNDR', 11 M'LTDR', 12 M'LCDR',M'HDR ',M'LRDR',M'MXR ',M'MXDR',M'LDR ',M'CDR ',M'ADR ',M'SDR ', 13 M'MDR ', 14 M'DDR ',M'AWR ',M'SWR ',M'LPER',M'LNER',M'LTER',M'LCER',M'HER ',M'LRER', 15 M'AXR ', 16 M'SXR ',M'LER ',M'CER ',M'AER ',M'SER ',M'MER ',M'DER ',M'AUR ',M'SUR ', 17 M'STH ', 18 M'LA ',M'STC ',M'IC ',M'EX ',M'BAL ',M'BCT ',M'BC ',M'LH ',M'CH ', 19 M'AH ', 20 M'SH ',M'MH ', 0, 21 M'CVD ', 22 M'CVB ',M'ST ', 0(3),M'N ',M'CL ',M'O ', 23 M'X ', 24 M'L ',M'C ',M'A ',M'S ',M'M ',M'D ',M'AL ',M'SL ',M'STD ', 25 0(6), 26 M'MXD ', 27 M'LD ',M'CD ',M'AD ',M'SD ',M'MD ',M'DD ',M'AW ',M'SW ', 28 M'STE ', 29 0(7), 30 M'LE ', 31 M'CE ',M'AE ',M'SE ',M'ME ',M'DE ',M'AU ',M'SU ', 32 M'SSM', 33 0,M'LPSW',M'DIAG',M'WRD ',M'RDD ',M'BXH ',M'BXLE',M'SRL ',M'SLL ', 34 M'SRA ', 35 M'SLA ',M'SRDL',M'SLDL',M'SRDA',M'SLDA',M'STM ',M'TM ',M'MVI ', 36 M'TS ', 37 M'NI ',M'CLI ',M'OI ',M'XI ',M'LM ', 0(3), 38 M'SIO ', 39 M'TIO ',M'HIO ', 40 M'TCH ', 41 0(49), 42 M'MVN ', 43 M'MVC ',M'MVZ ',M'NC ',M'CLC ',M'OC ',M'XC ', 0(4), 44 M'TR ', 45 M'TRT ',M'ED ',M'EDMK', 0(17),M'MVO ',M'PACK',M'UNPK', 0(4), 46 M'ZAP ', 47 M'CP ',M'AP ',M'SP ',M'MP ',M'DP ', 0, 0 510 @ 4508: LINE 4 "regression-compile-tmp/decode-77.imp" 511 @ 4548: PUSHI #0x00000000 512 @ 4553: PUSHI #0x000000ff 513 @ 4558: BOUNDS 514 @ 4559: DEF OPCODES p1=V_0085 a/tf=1b b/format=1 c/ostate=112 type=1 (integer) form=11 (array) special=0 () linkage=2 (constant) spec=0 indirect=1 unass=0 515 @ 4578: PUSHI #0x00000000 516 @ 4583: INIT 4 517 @ 4586: PUSHI #0x53504d20 518 @ 4591: INIT 1 519 @ 4594: PUSHI #0x42414c52 520 @ 4599: INIT 1 521 @ 4602: PUSHI #0x42435452 522 @ 4607: INIT 1 523 @ 4610: PUSHI #0x42435220 524 @ 4615: INIT 1 525 @ 4618: PUSHI #0x53534b20 526 @ 4623: INIT 1 527 @ 4626: PUSHI #0x49534b20 528 @ 4631: INIT 1 529 @ 4634: PUSHI #0x53564320 530 @ 4639: INIT 1 531 @ 4642: PUSHI #0x00000000 532 @ 4647: INIT 5 533 @ 4650: PUSHI #0x4c505220 534 @ 4655: INIT 1 535 @ 4658: PUSHI #0x4c4e5220 536 @ 4663: INIT 1 537 @ 4666: PUSHI #0x4c545220 538 @ 4671: INIT 1 539 @ 4674: PUSHI #0x4c435220 540 @ 4679: INIT 1 541 @ 4682: PUSHI #0x4e522020 542 @ 4687: INIT 1 543 @ 4690: PUSHI #0x434c5220 544 @ 4695: INIT 1 545 @ 4698: PUSHI #0x4f522020 546 @ 4703: INIT 1 547 @ 4706: PUSHI #0x58522020 548 @ 4711: INIT 1 549 @ 4714: PUSHI #0x4c522020 550 @ 4719: INIT 1 551 @ 4722: PUSHI #0x43522020 552 @ 4727: INIT 1 553 @ 4730: PUSHI #0x41522020 554 @ 4735: INIT 1 555 @ 4738: PUSHI #0x53522020 556 @ 4743: INIT 1 557 @ 4746: PUSHI #0x4d522020 558 @ 4751: INIT 1 559 @ 4754: PUSHI #0x44522020 560 @ 4759: INIT 1 561 @ 4762: PUSHI #0x414c5220 562 @ 4767: INIT 1 563 @ 4770: PUSHI #0x534c5220 564 @ 4775: INIT 1 565 @ 4778: PUSHI #0x4c504452 566 @ 4783: INIT 1 567 @ 4786: PUSHI #0x4c4e4452 568 @ 4791: INIT 1 569 @ 4794: PUSHI #0x4c544452 570 @ 4799: INIT 1 571 @ 4802: PUSHI #0x4c434452 572 @ 4807: INIT 1 573 @ 4810: PUSHI #0x48445220 574 @ 4815: INIT 1 575 @ 4818: PUSHI #0x4c524452 576 @ 4823: INIT 1 577 @ 4826: PUSHI #0x4d585220 578 @ 4831: INIT 1 579 @ 4834: PUSHI #0x4d584452 580 @ 4839: INIT 1 581 @ 4842: PUSHI #0x4c445220 582 @ 4847: INIT 1 583 @ 4850: PUSHI #0x43445220 584 @ 4855: INIT 1 585 @ 4858: PUSHI #0x41445220 586 @ 4863: INIT 1 587 @ 4866: PUSHI #0x53445220 588 @ 4871: INIT 1 589 @ 4874: PUSHI #0x4d445220 590 @ 4879: INIT 1 591 @ 4882: PUSHI #0x44445220 592 @ 4887: INIT 1 593 @ 4890: PUSHI #0x41575220 594 @ 4895: INIT 1 595 @ 4898: PUSHI #0x53575220 596 @ 4903: INIT 1 597 @ 4906: PUSHI #0x4c504552 598 @ 4911: INIT 1 599 @ 4914: PUSHI #0x4c4e4552 600 @ 4919: INIT 1 601 @ 4922: PUSHI #0x4c544552 602 @ 4927: INIT 1 603 @ 4930: PUSHI #0x4c434552 604 @ 4935: INIT 1 605 @ 4938: PUSHI #0x48455220 606 @ 4943: INIT 1 607 @ 4946: PUSHI #0x4c524552 608 @ 4951: INIT 1 609 @ 4954: PUSHI #0x41585220 610 @ 4959: INIT 1 611 @ 4962: PUSHI #0x53585220 612 @ 4967: INIT 1 613 @ 4970: PUSHI #0x4c455220 614 @ 4975: INIT 1 615 @ 4978: PUSHI #0x43455220 616 @ 4983: INIT 1 617 @ 4986: PUSHI #0x41455220 618 @ 4991: INIT 1 619 @ 4994: PUSHI #0x53455220 620 @ 4999: INIT 1 621 @ 5002: PUSHI #0x4d455220 622 @ 5007: INIT 1 623 @ 5010: PUSHI #0x44455220 624 @ 5015: INIT 1 625 @ 5018: PUSHI #0x41555220 626 @ 5023: INIT 1 627 @ 5026: PUSHI #0x53555220 628 @ 5031: INIT 1 629 @ 5034: PUSHI #0x53544820 630 @ 5039: INIT 1 631 @ 5042: PUSHI #0x4c412020 632 @ 5047: INIT 1 633 @ 5050: PUSHI #0x53544320 634 @ 5055: INIT 1 635 @ 5058: PUSHI #0x49432020 636 @ 5063: INIT 1 637 @ 5066: PUSHI #0x45582020 638 @ 5071: INIT 1 639 @ 5074: PUSHI #0x42414c20 640 @ 5079: INIT 1 641 @ 5082: PUSHI #0x42435420 642 @ 5087: INIT 1 643 @ 5090: PUSHI #0x42432020 644 @ 5095: INIT 1 645 @ 5098: PUSHI #0x4c482020 646 @ 5103: INIT 1 647 @ 5106: PUSHI #0x43482020 648 @ 5111: INIT 1 649 @ 5114: PUSHI #0x41482020 650 @ 5119: INIT 1 651 @ 5122: PUSHI #0x53482020 652 @ 5127: INIT 1 653 @ 5130: PUSHI #0x4d482020 654 @ 5135: INIT 1 655 @ 5138: PUSHI #0x00000000 656 @ 5143: INIT 1 657 @ 5146: PUSHI #0x43564420 658 @ 5151: INIT 1 659 @ 5154: PUSHI #0x43564220 660 @ 5159: INIT 1 661 @ 5162: PUSHI #0x53542020 662 @ 5167: INIT 1 663 @ 5170: PUSHI #0x00000000 664 @ 5175: INIT 3 665 @ 5178: PUSHI #0x4e202020 666 @ 5183: INIT 1 667 @ 5186: PUSHI #0x434c2020 668 @ 5191: INIT 1 669 @ 5194: PUSHI #0x4f202020 670 @ 5199: INIT 1 671 @ 5202: PUSHI #0x58202020 672 @ 5207: INIT 1 673 @ 5210: PUSHI #0x4c202020 674 @ 5215: INIT 1 675 @ 5218: PUSHI #0x43202020 676 @ 5223: INIT 1 677 @ 5226: PUSHI #0x41202020 678 @ 5231: INIT 1 679 @ 5234: PUSHI #0x53202020 680 @ 5239: INIT 1 681 @ 5242: PUSHI #0x4d202020 682 @ 5247: INIT 1 683 @ 5250: PUSHI #0x44202020 684 @ 5255: INIT 1 685 @ 5258: PUSHI #0x414c2020 686 @ 5263: INIT 1 687 @ 5266: PUSHI #0x534c2020 688 @ 5271: INIT 1 689 @ 5274: PUSHI #0x53544420 690 @ 5279: INIT 1 691 @ 5282: PUSHI #0x00000000 692 @ 5287: INIT 6 693 @ 5290: PUSHI #0x4d584420 694 @ 5295: INIT 1 695 @ 5298: PUSHI #0x4c442020 696 @ 5303: INIT 1 697 @ 5306: PUSHI #0x43442020 698 @ 5311: INIT 1 699 @ 5314: PUSHI #0x41442020 700 @ 5319: INIT 1 701 @ 5322: PUSHI #0x53442020 702 @ 5327: INIT 1 703 @ 5330: PUSHI #0x4d442020 704 @ 5335: INIT 1 705 @ 5338: PUSHI #0x44442020 706 @ 5343: INIT 1 707 @ 5346: PUSHI #0x41572020 708 @ 5351: INIT 1 709 @ 5354: PUSHI #0x53572020 710 @ 5359: INIT 1 711 @ 5362: PUSHI #0x53544520 712 @ 5367: INIT 1 713 @ 5370: PUSHI #0x00000000 714 @ 5375: INIT 7 715 @ 5378: PUSHI #0x4c452020 716 @ 5383: INIT 1 717 @ 5386: PUSHI #0x43452020 718 @ 5391: INIT 1 719 @ 5394: PUSHI #0x41452020 720 @ 5399: INIT 1 721 @ 5402: PUSHI #0x53452020 722 @ 5407: INIT 1 723 @ 5410: PUSHI #0x4d452020 724 @ 5415: INIT 1 725 @ 5418: PUSHI #0x44452020 726 @ 5423: INIT 1 727 @ 5426: PUSHI #0x41552020 728 @ 5431: INIT 1 729 @ 5434: PUSHI #0x53552020 730 @ 5439: INIT 1 731 @ 5442: PUSHI #0x0053534d 732 @ 5447: INIT 1 733 @ 5450: PUSHI #0x00000000 734 @ 5455: INIT 1 735 @ 5458: PUSHI #0x4c505357 736 @ 5463: INIT 1 737 @ 5466: PUSHI #0x44494147 738 @ 5471: INIT 1 739 @ 5474: PUSHI #0x57524420 740 @ 5479: INIT 1 741 @ 5482: PUSHI #0x52444420 742 @ 5487: INIT 1 743 @ 5490: PUSHI #0x42584820 744 @ 5495: INIT 1 745 @ 5498: PUSHI #0x42584c45 746 @ 5503: INIT 1 747 @ 5506: PUSHI #0x53524c20 748 @ 5511: INIT 1 749 @ 5514: PUSHI #0x534c4c20 750 @ 5519: INIT 1 751 @ 5522: PUSHI #0x53524120 752 @ 5527: INIT 1 753 @ 5530: PUSHI #0x534c4120 754 @ 5535: INIT 1 755 @ 5538: PUSHI #0x5352444c 756 @ 5543: INIT 1 757 @ 5546: PUSHI #0x534c444c 758 @ 5551: INIT 1 759 @ 5554: PUSHI #0x53524441 760 @ 5559: INIT 1 761 @ 5562: PUSHI #0x534c4441 762 @ 5567: INIT 1 763 @ 5570: PUSHI #0x53544d20 764 @ 5575: INIT 1 765 @ 5578: PUSHI #0x544d2020 766 @ 5583: INIT 1 767 @ 5586: PUSHI #0x4d564920 768 @ 5591: INIT 1 769 @ 5594: PUSHI #0x54532020 770 @ 5599: INIT 1 771 @ 5602: PUSHI #0x4e492020 772 @ 5607: INIT 1 773 @ 5610: PUSHI #0x434c4920 774 @ 5615: INIT 1 775 @ 5618: PUSHI #0x4f492020 776 @ 5623: INIT 1 777 @ 5626: PUSHI #0x58492020 778 @ 5631: INIT 1 779 @ 5634: PUSHI #0x4c4d2020 780 @ 5639: INIT 1 781 @ 5642: PUSHI #0x00000000 782 @ 5647: INIT 3 783 @ 5650: PUSHI #0x53494f20 784 @ 5655: INIT 1 785 @ 5658: PUSHI #0x54494f20 786 @ 5663: INIT 1 787 @ 5666: PUSHI #0x48494f20 788 @ 5671: INIT 1 789 @ 5674: PUSHI #0x54434820 790 @ 5679: INIT 1 791 @ 5682: PUSHI #0x00000000 792 @ 5687: INIT 49 793 @ 5690: PUSHI #0x4d564e20 794 @ 5695: INIT 1 795 @ 5698: PUSHI #0x4d564320 796 @ 5703: INIT 1 797 @ 5706: PUSHI #0x4d565a20 798 @ 5711: INIT 1 799 @ 5714: PUSHI #0x4e432020 800 @ 5719: INIT 1 801 @ 5722: PUSHI #0x434c4320 802 @ 5727: INIT 1 803 @ 5730: PUSHI #0x4f432020 804 @ 5735: INIT 1 805 @ 5738: PUSHI #0x58432020 806 @ 5743: INIT 1 807 @ 5746: PUSHI #0x00000000 808 @ 5751: INIT 4 809 @ 5754: PUSHI #0x54522020 810 @ 5759: INIT 1 811 @ 5762: PUSHI #0x54525420 812 @ 5767: INIT 1 813 @ 5770: PUSHI #0x45442020 814 @ 5775: INIT 1 815 @ 5778: PUSHI #0x45444d4b 816 @ 5783: INIT 1 817 @ 5786: PUSHI #0x00000000 818 @ 5791: INIT 17 819 @ 5794: PUSHI #0x4d564f20 820 @ 5799: INIT 1 821 @ 5802: PUSHI #0x5041434b 822 @ 5807: INIT 1 823 @ 5810: PUSHI #0x554e504b 824 @ 5815: INIT 1 825 @ 5818: PUSHI #0x00000000 826 @ 5823: INIT 4 827 @ 5826: PUSHI #0x5a415020 828 @ 5831: INIT 1 829 @ 5834: PUSHI #0x43502020 830 @ 5839: INIT 1 831 @ 5842: PUSHI #0x41502020 832 @ 5847: INIT 1 833 @ 5850: PUSHI #0x53502020 834 @ 5855: INIT 1 835 @ 5858: PUSHI #0x4d502020 836 @ 5863: INIT 1 837 @ 5866: PUSHI #0x44502020 838 @ 5871: INIT 1 839 @ 5874: PUSHI #0x00000000 840 @ 5879: INIT 1 841 @ 5882: PUSHI #0x00000000 842 @ 5887: INIT 1 48 %INTEGER J, K, L, M 843 @ 5890: LINE 48 "regression-compile-tmp/decode-77.imp" 844 @ 5930: DEF J p1=V_0086 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 845 @ 5943: DEF K p1=V_0087 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 846 @ 5956: DEF L p1=V_0088 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 847 @ 5969: DEF M p1=V_0089 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 49 %INTEGER T 848 @ 5982: LINE 49 "regression-compile-tmp/decode-77.imp" 849 @ 6022: DEF T p1=V_008a a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 50 %ROUTINESPEC HEX(%INTEGER N) 850 @ 6035: LINE 50 "regression-compile-tmp/decode-77.imp" 851 @ 6075: DEF HEX (_RECODE_HEX) p1=V_008b a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 852 @ 6090: START ( FORMAL PARAMETERS {lev=1 --> 2, nested=0 --> 1} 853 @ 6091: DEF N p1=V_008c a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 854 @ 6104: FINISH ) {lev=1} 51 %ROUTINESPEC HEX8(%INTEGER N) 855 @ 6105: LINE 51 "regression-compile-tmp/decode-77.imp" 856 @ 6145: DEF HEX8 (_RECODE_HEX8) p1=V_008c a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 857 @ 6161: START ( FORMAL PARAMETERS {lev=1 --> 2, nested=0 --> 1} 858 @ 6162: DEF N p1=V_008d a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 859 @ 6175: FINISH ) {lev=1} 52 %ROUTINESPEC PUT(%INTEGER S, C) 53 54 !printstring("RECODE(X'"); HEX8(S) 55 !printstring("', X'"); HEX8(TO) 56 !printstring("', X'"); HEX8(BASE) 57 !printstring("')".snl) 860 @ 6176: LINE 52 "regression-compile-tmp/decode-77.imp" 861 @ 6216: DEF PUT (_RECODE_PUT) p1=V_008d a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 862 @ 6231: START ( FORMAL PARAMETERS {lev=1 --> 2, nested=0 --> 1} 863 @ 6232: DEF S p1=V_008e a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 864 @ 6245: DEF C p1=V_008f a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 865 @ 6258: FINISH ) {lev=1} 58 S = S&(\1) 866 @ 6259: LINE 58 "regression-compile-tmp/decode-77.imp" 867 @ 6299: PUSH S 868 @ 6302: PUSH S 869 @ 6305: PUSHI #0x00000001 870 @ 6310: NOT 871 @ 6311: AND 872 @ 6312: ASSVAL 59 BASE = BASE-S 873 @ 6313: LINE 59 "regression-compile-tmp/decode-77.imp" 874 @ 6353: PUSH BASE 875 @ 6356: PUSH BASE 876 @ 6359: PUSH S 877 @ 6362: SUB 878 @ 6363: ASSVAL 60 L1: NEWLINE 879 @ 6364: LINE 60 "regression-compile-tmp/decode-77.imp" 880 @ 6404: LABEL L_008e 881 @ 6407: LINE 60 "regression-compile-tmp/decode-77.imp" 882 @ 6447: PUSH NEWLINE 883 @ 6450: CALL 61 NEWLINE %AND %RETURN %IF S >= TO 884 @ 6451: LINE 61 "regression-compile-tmp/decode-77.imp" 885 @ 6491: PUSH S 886 @ 6494: PUSH TO 887 @ 6497: JUMPIF < L_0004 888 @ 6501: PUSH NEWLINE 889 @ 6504: CALL 890 @ 6505: RETURN 891 @ 6506: LOCATE L_0004 62 PRINT STRING("C ") 892 @ 6509: LINE 62 "regression-compile-tmp/decode-77.imp" 893 @ 6549: PUSH PRINTSTRING 894 @ 6552: PUSHS "C " 895 @ 6556: ASSPAR 896 @ 6557: CALL 63 HEX8(BASE+S) 897 @ 6558: LINE 63 "regression-compile-tmp/decode-77.imp" 898 @ 6598: PUSH HEX8 899 @ 6601: PUSH BASE 900 @ 6604: PUSH S 901 @ 6607: ADD 902 @ 6608: ASSPAR 903 @ 6609: CALL 64 SPACES(4) 904 @ 6610: LINE 64 "regression-compile-tmp/decode-77.imp" 905 @ 6650: PUSH SPACES 906 @ 6653: PUSHI #0x00000004 907 @ 6658: ASSPAR 908 @ 6659: CALL 65 J = SHORTINTEGER(S); S = S+2 909 @ 6660: LINE 65 "regression-compile-tmp/decode-77.imp" 910 @ 6700: PUSH J 911 @ 6703: PUSH SHORTINTEGER 912 @ 6706: PUSH S 913 @ 6709: ASSPAR 914 @ 6710: CALL 915 @ 6711: ASSVAL 916 @ 6712: LINE 65 "regression-compile-tmp/decode-77.imp" 917 @ 6752: PUSH S 918 @ 6755: PUSH S 919 @ 6758: PUSHI #0x00000002 920 @ 6763: ADD 921 @ 6764: ASSVAL 66 M = J>>8&255 922 @ 6765: LINE 66 "regression-compile-tmp/decode-77.imp" 923 @ 6805: PUSH M 924 @ 6808: PUSH J 925 @ 6811: PUSHI #0x00000008 926 @ 6816: RSH 927 @ 6817: PUSHI #0x000000ff 928 @ 6822: AND 929 @ 6823: ASSVAL 67 T = OPCODES(M) 930 @ 6824: LINE 67 "regression-compile-tmp/decode-77.imp" 931 @ 6864: PUSH T 932 @ 6867: PUSH OPCODES 933 @ 6870: PUSH M 934 @ 6873: ACCESS 935 @ 6874: ASSVAL 68 HEX(J) 936 @ 6875: LINE 68 "regression-compile-tmp/decode-77.imp" 937 @ 6915: PUSH HEX 938 @ 6918: PUSH J 939 @ 6921: ASSPAR 940 @ 6922: CALL 69 -> L1 %IF T = 0 941 @ 6923: LINE 69 "regression-compile-tmp/decode-77.imp" 942 @ 6963: PUSH T 943 @ 6966: PUSHI #0x00000000 944 @ 6971: JUMPIF # L_0004 945 @ 6975: JUMP L_008e 946 @ 6978: LOCATE L_0004 70 %IF M>>6 = 0 %THEN %START; ! RR 947 @ 6981: LINE 70 "regression-compile-tmp/decode-77.imp" 948 @ 7021: PUSH M 949 @ 7024: PUSHI #0x00000006 950 @ 7029: RSH 951 @ 7030: PUSHI #0x00000000 952 @ 7035: JUMPIF # L_0004 71 PUT(12,T) 953 @ 7039: LINE 71 "regression-compile-tmp/decode-77.imp" 954 @ 7079: PUSH PUT 955 @ 7082: PUSHI #0x0000000c 956 @ 7087: ASSPAR 957 @ 7088: PUSH T 958 @ 7091: ASSPAR 959 @ 7092: CALL 72 WRITE(J>>4&15,4) 960 @ 7093: LINE 72 "regression-compile-tmp/decode-77.imp" 961 @ 7133: PUSH WRITE 962 @ 7136: PUSH J 963 @ 7139: PUSHI #0x00000004 964 @ 7144: RSH 965 @ 7145: PUSHI #0x0000000f 966 @ 7150: AND 967 @ 7151: ASSPAR 968 @ 7152: PUSHI #0x00000004 969 @ 7157: ASSPAR 970 @ 7158: CALL 73 print symbol(',') 971 @ 7159: LINE 73 "regression-compile-tmp/decode-77.imp" 972 @ 7199: PUSH PRINTSYMBOL 973 @ 7202: PUSHI #0x0000002c 974 @ 7207: ASSPAR 975 @ 7208: CALL 74 WRITE(J&15,2) 976 @ 7209: LINE 74 "regression-compile-tmp/decode-77.imp" 977 @ 7249: PUSH WRITE 978 @ 7252: PUSH J 979 @ 7255: PUSHI #0x0000000f 980 @ 7260: AND 981 @ 7261: ASSPAR 982 @ 7262: PUSHI #0x00000002 983 @ 7267: ASSPAR 984 @ 7268: CALL 75 -> L1 985 @ 7269: LINE 75 "regression-compile-tmp/decode-77.imp" 986 @ 7309: JUMP L_008e 76 %FINISH 987 @ 7312: LINE 76 "regression-compile-tmp/decode-77.imp" 988 @ 7352: LOCATE L_0004 77 K = SHORTINTEGER(S); S = S+2 989 @ 7355: LINE 77 "regression-compile-tmp/decode-77.imp" 990 @ 7395: PUSH K 991 @ 7398: PUSH SHORTINTEGER 992 @ 7401: PUSH S 993 @ 7404: ASSPAR 994 @ 7405: CALL 995 @ 7406: ASSVAL 996 @ 7407: LINE 77 "regression-compile-tmp/decode-77.imp" 997 @ 7447: PUSH S 998 @ 7450: PUSH S 999 @ 7453: PUSHI #0x00000002 1000 @ 7458: ADD 1001 @ 7459: ASSVAL 78 HEX(K) 1002 @ 7460: LINE 78 "regression-compile-tmp/decode-77.imp" 1003 @ 7500: PUSH HEX 1004 @ 7503: PUSH K 1005 @ 7506: ASSPAR 1006 @ 7507: CALL 79 %IF M>>6 = 1 %THEN %START; ! RX 1007 @ 7508: LINE 79 "regression-compile-tmp/decode-77.imp" 1008 @ 7548: PUSH M 1009 @ 7551: PUSHI #0x00000006 1010 @ 7556: RSH 1011 @ 7557: PUSHI #0x00000001 1012 @ 7562: JUMPIF # L_0004 80 PUT(8,T) 1013 @ 7566: LINE 80 "regression-compile-tmp/decode-77.imp" 1014 @ 7606: PUSH PUT 1015 @ 7609: PUSHI #0x00000008 1016 @ 7614: ASSPAR 1017 @ 7615: PUSH T 1018 @ 7618: ASSPAR 1019 @ 7619: CALL 81 WRITE(J>>4&15,4); print symbol(',') 1020 @ 7620: LINE 81 "regression-compile-tmp/decode-77.imp" 1021 @ 7660: PUSH WRITE 1022 @ 7663: PUSH J 1023 @ 7666: PUSHI #0x00000004 1024 @ 7671: RSH 1025 @ 7672: PUSHI #0x0000000f 1026 @ 7677: AND 1027 @ 7678: ASSPAR 1028 @ 7679: PUSHI #0x00000004 1029 @ 7684: ASSPAR 1030 @ 7685: CALL 1031 @ 7686: LINE 81 "regression-compile-tmp/decode-77.imp" 1032 @ 7726: PUSH PRINTSYMBOL 1033 @ 7729: PUSHI #0x0000002c 1034 @ 7734: ASSPAR 1035 @ 7735: CALL 82 WRITE(K&X'FFF',4); print symbol('(') 1036 @ 7736: LINE 82 "regression-compile-tmp/decode-77.imp" 1037 @ 7776: PUSH WRITE 1038 @ 7779: PUSH K 1039 @ 7782: PUSHI #0x00000fff 1040 @ 7787: AND 1041 @ 7788: ASSPAR 1042 @ 7789: PUSHI #0x00000004 1043 @ 7794: ASSPAR 1044 @ 7795: CALL 1045 @ 7796: LINE 82 "regression-compile-tmp/decode-77.imp" 1046 @ 7836: PUSH PRINTSYMBOL 1047 @ 7839: PUSHI #0x00000028 1048 @ 7844: ASSPAR 1049 @ 7845: CALL 83 WRITE(J&15,2); print symbol(',') 1050 @ 7846: LINE 83 "regression-compile-tmp/decode-77.imp" 1051 @ 7886: PUSH WRITE 1052 @ 7889: PUSH J 1053 @ 7892: PUSHI #0x0000000f 1054 @ 7897: AND 1055 @ 7898: ASSPAR 1056 @ 7899: PUSHI #0x00000002 1057 @ 7904: ASSPAR 1058 @ 7905: CALL 1059 @ 7906: LINE 83 "regression-compile-tmp/decode-77.imp" 1060 @ 7946: PUSH PRINTSYMBOL 1061 @ 7949: PUSHI #0x0000002c 1062 @ 7954: ASSPAR 1063 @ 7955: CALL 84 L3: WRITE(K>>12&15,2); print symbol(')') 1064 @ 7956: LINE 84 "regression-compile-tmp/decode-77.imp" 1065 @ 7996: LABEL L_008f 1066 @ 7999: LINE 84 "regression-compile-tmp/decode-77.imp" 1067 @ 8039: PUSH WRITE 1068 @ 8042: PUSH K 1069 @ 8045: PUSHI #0x0000000c 1070 @ 8050: RSH 1071 @ 8051: PUSHI #0x0000000f 1072 @ 8056: AND 1073 @ 8057: ASSPAR 1074 @ 8058: PUSHI #0x00000002 1075 @ 8063: ASSPAR 1076 @ 8064: CALL 1077 @ 8065: LINE 84 "regression-compile-tmp/decode-77.imp" 1078 @ 8105: PUSH PRINTSYMBOL 1079 @ 8108: PUSHI #0x00000029 1080 @ 8113: ASSPAR 1081 @ 8114: CALL 85 -> L1 1082 @ 8115: LINE 85 "regression-compile-tmp/decode-77.imp" 1083 @ 8155: JUMP L_008e 86 %FINISH 1084 @ 8158: LINE 86 "regression-compile-tmp/decode-77.imp" 1085 @ 8198: LOCATE L_0004 87 %IF M&X'F8' = X'88' %THEN %START 1086 @ 8201: LINE 87 "regression-compile-tmp/decode-77.imp" 1087 @ 8241: PUSH M 1088 @ 8244: PUSHI #0x000000f8 1089 @ 8249: AND 1090 @ 8250: PUSHI #0x00000088 1091 @ 8255: JUMPIF # L_0004 88 PUT(8,T) 1092 @ 8259: LINE 88 "regression-compile-tmp/decode-77.imp" 1093 @ 8299: PUSH PUT 1094 @ 8302: PUSHI #0x00000008 1095 @ 8307: ASSPAR 1096 @ 8308: PUSH T 1097 @ 8311: ASSPAR 1098 @ 8312: CALL 89 WRITE(J>>4&15,4); print symbol(',') 1099 @ 8313: LINE 89 "regression-compile-tmp/decode-77.imp" 1100 @ 8353: PUSH WRITE 1101 @ 8356: PUSH J 1102 @ 8359: PUSHI #0x00000004 1103 @ 8364: RSH 1104 @ 8365: PUSHI #0x0000000f 1105 @ 8370: AND 1106 @ 8371: ASSPAR 1107 @ 8372: PUSHI #0x00000004 1108 @ 8377: ASSPAR 1109 @ 8378: CALL 1110 @ 8379: LINE 89 "regression-compile-tmp/decode-77.imp" 1111 @ 8419: PUSH PRINTSYMBOL 1112 @ 8422: PUSHI #0x0000002c 1113 @ 8427: ASSPAR 1114 @ 8428: CALL 90 L2: WRITE(K&X'FFF',4); print symbol('(') 1115 @ 8429: LINE 90 "regression-compile-tmp/decode-77.imp" 1116 @ 8469: LABEL L_0090 1117 @ 8472: LINE 90 "regression-compile-tmp/decode-77.imp" 1118 @ 8512: PUSH WRITE 1119 @ 8515: PUSH K 1120 @ 8518: PUSHI #0x00000fff 1121 @ 8523: AND 1122 @ 8524: ASSPAR 1123 @ 8525: PUSHI #0x00000004 1124 @ 8530: ASSPAR 1125 @ 8531: CALL 1126 @ 8532: LINE 90 "regression-compile-tmp/decode-77.imp" 1127 @ 8572: PUSH PRINTSYMBOL 1128 @ 8575: PUSHI #0x00000028 1129 @ 8580: ASSPAR 1130 @ 8581: CALL 91 -> L3 1131 @ 8582: LINE 91 "regression-compile-tmp/decode-77.imp" 1132 @ 8622: JUMP L_008f 92 %FINISH 1133 @ 8625: LINE 92 "regression-compile-tmp/decode-77.imp" 1134 @ 8665: LOCATE L_0004 93 %IF M > 192 %THEN %START 1135 @ 8668: LINE 93 "regression-compile-tmp/decode-77.imp" 1136 @ 8708: PUSH M 1137 @ 8711: PUSHI #0x000000c0 1138 @ 8716: JUMPIF <= L_0004 94 L = SHORTINTEGER(S); S = S+2 1139 @ 8720: LINE 94 "regression-compile-tmp/decode-77.imp" 1140 @ 8760: PUSH L 1141 @ 8763: PUSH SHORTINTEGER 1142 @ 8766: PUSH S 1143 @ 8769: ASSPAR 1144 @ 8770: CALL 1145 @ 8771: ASSVAL 1146 @ 8772: LINE 94 "regression-compile-tmp/decode-77.imp" 1147 @ 8812: PUSH S 1148 @ 8815: PUSH S 1149 @ 8818: PUSHI #0x00000002 1150 @ 8823: ADD 1151 @ 8824: ASSVAL 95 HEX(L) 1152 @ 8825: LINE 95 "regression-compile-tmp/decode-77.imp" 1153 @ 8865: PUSH HEX 1154 @ 8868: PUSH L 1155 @ 8871: ASSPAR 1156 @ 8872: CALL 96 PUT(4,T) 1157 @ 8873: LINE 96 "regression-compile-tmp/decode-77.imp" 1158 @ 8913: PUSH PUT 1159 @ 8916: PUSHI #0x00000004 1160 @ 8921: ASSPAR 1161 @ 8922: PUSH T 1162 @ 8925: ASSPAR 1163 @ 8926: CALL 97 WRITE(K&X'FFF',5); print symbol('(') 1164 @ 8927: LINE 97 "regression-compile-tmp/decode-77.imp" 1165 @ 8967: PUSH WRITE 1166 @ 8970: PUSH K 1167 @ 8973: PUSHI #0x00000fff 1168 @ 8978: AND 1169 @ 8979: ASSPAR 1170 @ 8980: PUSHI #0x00000005 1171 @ 8985: ASSPAR 1172 @ 8986: CALL 1173 @ 8987: LINE 97 "regression-compile-tmp/decode-77.imp" 1174 @ 9027: PUSH PRINTSYMBOL 1175 @ 9030: PUSHI #0x00000028 1176 @ 9035: ASSPAR 1177 @ 9036: CALL 98 %IF M>>4&15 # 15 %THEN WRITE(J&255+1,2) %C 99 %ELSE WRITE(J>>4&15,2) 1178 @ 9037: LINE 98 "regression-compile-tmp/decode-77.imp" 1179 @ 9077: PUSH M 1180 @ 9080: PUSHI #0x00000004 1181 @ 9085: RSH 1182 @ 9086: PUSHI #0x0000000f 1183 @ 9091: AND 1184 @ 9092: PUSHI #0x0000000f 1185 @ 9097: JUMPIF = L_0007 1186 @ 9101: PUSH WRITE 1187 @ 9104: PUSH J 1188 @ 9107: PUSHI #0x000000ff 1189 @ 9112: AND 1190 @ 9113: PUSHI #0x00000001 1191 @ 9118: ADD 1192 @ 9119: ASSPAR 1193 @ 9120: PUSHI #0x00000002 1194 @ 9125: ASSPAR 1195 @ 9126: CALL 1196 @ 9127: GOTO L_0006 1197 @ 9130: LOCATE L_0007 1198 @ 9133: PUSH WRITE 1199 @ 9136: PUSH J 1200 @ 9139: PUSHI #0x00000004 1201 @ 9144: RSH 1202 @ 9145: PUSHI #0x0000000f 1203 @ 9150: AND 1204 @ 9151: ASSPAR 1205 @ 9152: PUSHI #0x00000002 1206 @ 9157: ASSPAR 1207 @ 9158: CALL 1208 @ 9159: LOCATE L_0006 100 print symbol(',') 1209 @ 9162: LINE 100 "regression-compile-tmp/decode-77.imp" 1210 @ 9202: PUSH PRINTSYMBOL 1211 @ 9205: PUSHI #0x0000002c 1212 @ 9210: ASSPAR 1213 @ 9211: CALL 101 WRITE(K>>12&15,2); print symbol(')'); print symbol(',') 1214 @ 9212: LINE 101 "regression-compile-tmp/decode-77.imp" 1215 @ 9252: PUSH WRITE 1216 @ 9255: PUSH K 1217 @ 9258: PUSHI #0x0000000c 1218 @ 9263: RSH 1219 @ 9264: PUSHI #0x0000000f 1220 @ 9269: AND 1221 @ 9270: ASSPAR 1222 @ 9271: PUSHI #0x00000002 1223 @ 9276: ASSPAR 1224 @ 9277: CALL 1225 @ 9278: LINE 101 "regression-compile-tmp/decode-77.imp" 1226 @ 9318: PUSH PRINTSYMBOL 1227 @ 9321: PUSHI #0x00000029 1228 @ 9326: ASSPAR 1229 @ 9327: CALL 1230 @ 9328: LINE 101 "regression-compile-tmp/decode-77.imp" 1231 @ 9368: PUSH PRINTSYMBOL 1232 @ 9371: PUSHI #0x0000002c 1233 @ 9376: ASSPAR 1234 @ 9377: CALL 102 WRITE(L&X'FFF',4); print symbol('(') 1235 @ 9378: LINE 102 "regression-compile-tmp/decode-77.imp" 1236 @ 9418: PUSH WRITE 1237 @ 9421: PUSH L 1238 @ 9424: PUSHI #0x00000fff 1239 @ 9429: AND 1240 @ 9430: ASSPAR 1241 @ 9431: PUSHI #0x00000004 1242 @ 9436: ASSPAR 1243 @ 9437: CALL 1244 @ 9438: LINE 102 "regression-compile-tmp/decode-77.imp" 1245 @ 9478: PUSH PRINTSYMBOL 1246 @ 9481: PUSHI #0x00000028 1247 @ 9486: ASSPAR 1248 @ 9487: CALL 103 %IF M>>4&15 = 15 %THEN %START 1249 @ 9488: LINE 103 "regression-compile-tmp/decode-77.imp" 1250 @ 9528: PUSH M 1251 @ 9531: PUSHI #0x00000004 1252 @ 9536: RSH 1253 @ 9537: PUSHI #0x0000000f 1254 @ 9542: AND 1255 @ 9543: PUSHI #0x0000000f 1256 @ 9548: JUMPIF # L_0007 104 WRITE(J&15,2); print symbol(',') 1257 @ 9552: LINE 104 "regression-compile-tmp/decode-77.imp" 1258 @ 9592: PUSH WRITE 1259 @ 9595: PUSH J 1260 @ 9598: PUSHI #0x0000000f 1261 @ 9603: AND 1262 @ 9604: ASSPAR 1263 @ 9605: PUSHI #0x00000002 1264 @ 9610: ASSPAR 1265 @ 9611: CALL 1266 @ 9612: LINE 104 "regression-compile-tmp/decode-77.imp" 1267 @ 9652: PUSH PRINTSYMBOL 1268 @ 9655: PUSHI #0x0000002c 1269 @ 9660: ASSPAR 1270 @ 9661: CALL 105 %FINISH 1271 @ 9662: LINE 105 "regression-compile-tmp/decode-77.imp" 1272 @ 9702: LOCATE L_0007 106 WRITE(L>>12&15,2); print symbol(')') 1273 @ 9705: LINE 106 "regression-compile-tmp/decode-77.imp" 1274 @ 9745: PUSH WRITE 1275 @ 9748: PUSH L 1276 @ 9751: PUSHI #0x0000000c 1277 @ 9756: RSH 1278 @ 9757: PUSHI #0x0000000f 1279 @ 9762: AND 1280 @ 9763: ASSPAR 1281 @ 9764: PUSHI #0x00000002 1282 @ 9769: ASSPAR 1283 @ 9770: CALL 1284 @ 9771: LINE 106 "regression-compile-tmp/decode-77.imp" 1285 @ 9811: PUSH PRINTSYMBOL 1286 @ 9814: PUSHI #0x00000029 1287 @ 9819: ASSPAR 1288 @ 9820: CALL 107 -> L1 1289 @ 9821: LINE 107 "regression-compile-tmp/decode-77.imp" 1290 @ 9861: JUMP L_008e 108 %FINISH 1291 @ 9864: LINE 108 "regression-compile-tmp/decode-77.imp" 1292 @ 9904: LOCATE L_0004 109 %IF M = 134 %OR M = 135 %OR M = 144 %OR M = 152 %THEN %START 1293 @ 9907: LINE 109 "regression-compile-tmp/decode-77.imp" 1294 @ 9947: PUSH M 1295 @ 9950: PUSHI #0x00000086 1296 @ 9955: JUMPIF = L_0005 1297 @ 9959: PUSH M 1298 @ 9962: PUSHI #0x00000087 1299 @ 9967: JUMPIF = L_0005 1300 @ 9971: PUSH M 1301 @ 9974: PUSHI #0x00000090 1302 @ 9979: JUMPIF = L_0005 1303 @ 9983: PUSH M 1304 @ 9986: PUSHI #0x00000098 1305 @ 9991: JUMPIF # L_0004 1306 @ 9995: LOCATE L_0005 110 PUT(8,T) 1307 @ 9998: LINE 110 "regression-compile-tmp/decode-77.imp" 1308 @ 10038: PUSH PUT 1309 @ 10041: PUSHI #0x00000008 1310 @ 10046: ASSPAR 1311 @ 10047: PUSH T 1312 @ 10050: ASSPAR 1313 @ 10051: CALL 111 WRITE(J>>4&15,4); print symbol(',') 1314 @ 10052: LINE 111 "regression-compile-tmp/decode-77.imp" 1315 @ 10092: PUSH WRITE 1316 @ 10095: PUSH J 1317 @ 10098: PUSHI #0x00000004 1318 @ 10103: RSH 1319 @ 10104: PUSHI #0x0000000f 1320 @ 10109: AND 1321 @ 10110: ASSPAR 1322 @ 10111: PUSHI #0x00000004 1323 @ 10116: ASSPAR 1324 @ 10117: CALL 1325 @ 10118: LINE 111 "regression-compile-tmp/decode-77.imp" 1326 @ 10158: PUSH PRINTSYMBOL 1327 @ 10161: PUSHI #0x0000002c 1328 @ 10166: ASSPAR 1329 @ 10167: CALL 112 WRITE(J&15,2); print symbol(',') 1330 @ 10168: LINE 112 "regression-compile-tmp/decode-77.imp" 1331 @ 10208: PUSH WRITE 1332 @ 10211: PUSH J 1333 @ 10214: PUSHI #0x0000000f 1334 @ 10219: AND 1335 @ 10220: ASSPAR 1336 @ 10221: PUSHI #0x00000002 1337 @ 10226: ASSPAR 1338 @ 10227: CALL 1339 @ 10228: LINE 112 "regression-compile-tmp/decode-77.imp" 1340 @ 10268: PUSH PRINTSYMBOL 1341 @ 10271: PUSHI #0x0000002c 1342 @ 10276: ASSPAR 1343 @ 10277: CALL 113 -> L2 1344 @ 10278: LINE 113 "regression-compile-tmp/decode-77.imp" 1345 @ 10318: JUMP L_0090 114 %FINISH 1346 @ 10321: LINE 114 "regression-compile-tmp/decode-77.imp" 1347 @ 10361: LOCATE L_0004 115 PUT(8,T) 1348 @ 10364: LINE 115 "regression-compile-tmp/decode-77.imp" 1349 @ 10404: PUSH PUT 1350 @ 10407: PUSHI #0x00000008 1351 @ 10412: ASSPAR 1352 @ 10413: PUSH T 1353 @ 10416: ASSPAR 1354 @ 10417: CALL 116 WRITE(K&X'FFF',5); print symbol('(') 1355 @ 10418: LINE 116 "regression-compile-tmp/decode-77.imp" 1356 @ 10458: PUSH WRITE 1357 @ 10461: PUSH K 1358 @ 10464: PUSHI #0x00000fff 1359 @ 10469: AND 1360 @ 10470: ASSPAR 1361 @ 10471: PUSHI #0x00000005 1362 @ 10476: ASSPAR 1363 @ 10477: CALL 1364 @ 10478: LINE 116 "regression-compile-tmp/decode-77.imp" 1365 @ 10518: PUSH PRINTSYMBOL 1366 @ 10521: PUSHI #0x00000028 1367 @ 10526: ASSPAR 1368 @ 10527: CALL 117 WRITE(K>>12&15,2); print symbol(')') 1369 @ 10528: LINE 117 "regression-compile-tmp/decode-77.imp" 1370 @ 10568: PUSH WRITE 1371 @ 10571: PUSH K 1372 @ 10574: PUSHI #0x0000000c 1373 @ 10579: RSH 1374 @ 10580: PUSHI #0x0000000f 1375 @ 10585: AND 1376 @ 10586: ASSPAR 1377 @ 10587: PUSHI #0x00000002 1378 @ 10592: ASSPAR 1379 @ 10593: CALL 1380 @ 10594: LINE 117 "regression-compile-tmp/decode-77.imp" 1381 @ 10634: PUSH PRINTSYMBOL 1382 @ 10637: PUSHI #0x00000029 1383 @ 10642: ASSPAR 1384 @ 10643: CALL 118 print symbol(',') 1385 @ 10644: LINE 118 "regression-compile-tmp/decode-77.imp" 1386 @ 10684: PUSH PRINTSYMBOL 1387 @ 10687: PUSHI #0x0000002c 1388 @ 10692: ASSPAR 1389 @ 10693: CALL 119 WRITE(J&255,2) 1390 @ 10694: LINE 119 "regression-compile-tmp/decode-77.imp" 1391 @ 10734: PUSH WRITE 1392 @ 10737: PUSH J 1393 @ 10740: PUSHI #0x000000ff 1394 @ 10745: AND 1395 @ 10746: ASSPAR 1396 @ 10747: PUSHI #0x00000002 1397 @ 10752: ASSPAR 1398 @ 10753: CALL 120 -> L1 121 1399 @ 10754: LINE 120 "regression-compile-tmp/decode-77.imp" 1400 @ 10794: JUMP L_008e 122 %ROUTINE HEX(%INTEGER N) 1401 @ 10797: LINE 122 "regression-compile-tmp/decode-77.imp" 1402 @ 10837: DEF HEX (_RECODE_HEX) p1=V_008b a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 1403 @ 10852: START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} 1404 @ 10853: DEF N p1=V_0091 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 1405 @ 10866: FINISH ) {lev=2} 123 %CONSTBYTEINTEGERARRAY XSYM(0 : 15) = %C 124 '0', '1', '2', '3', 125 '4', '5', '6', '7', 126 '8', '9', 'A', 'B', 127 'C', 'D', 'E', 'F' 1406 @ 10867: LINE 123 "regression-compile-tmp/decode-77.imp" 1407 @ 10907: PUSHI #0x00000000 1408 @ 10912: PUSHI #0x0000000f 1409 @ 10917: BOUNDS 1410 @ 10918: DEF XSYM p1=V_0092 a/tf=1b b/format=2 c/ostate=112 type=1 (integer) form=11 (array) special=1 (byte-integer) linkage=2 (constant) spec=0 indirect=1 unass=0 1411 @ 10934: PUSHI #0x00000030 1412 @ 10939: INIT 1 1413 @ 10942: PUSHI #0x00000031 1414 @ 10947: INIT 1 1415 @ 10950: PUSHI #0x00000032 1416 @ 10955: INIT 1 1417 @ 10958: PUSHI #0x00000033 1418 @ 10963: INIT 1 1419 @ 10966: PUSHI #0x00000034 1420 @ 10971: INIT 1 1421 @ 10974: PUSHI #0x00000035 1422 @ 10979: INIT 1 1423 @ 10982: PUSHI #0x00000036 1424 @ 10987: INIT 1 1425 @ 10990: PUSHI #0x00000037 1426 @ 10995: INIT 1 1427 @ 10998: PUSHI #0x00000038 1428 @ 11003: INIT 1 1429 @ 11006: PUSHI #0x00000039 1430 @ 11011: INIT 1 1431 @ 11014: PUSHI #0x00000041 1432 @ 11019: INIT 1 1433 @ 11022: PUSHI #0x00000042 1434 @ 11027: INIT 1 1435 @ 11030: PUSHI #0x00000043 1436 @ 11035: INIT 1 1437 @ 11038: PUSHI #0x00000044 1438 @ 11043: INIT 1 1439 @ 11046: PUSHI #0x00000045 1440 @ 11051: INIT 1 1441 @ 11054: PUSHI #0x00000046 1442 @ 11059: INIT 1 128 %INTEGER J, S 1443 @ 11062: LINE 128 "regression-compile-tmp/decode-77.imp" 1444 @ 11102: DEF J p1=V_0093 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 1445 @ 11115: DEF S p1=V_0094 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 129 %CYCLE J = 1,1,4; !8 1446 @ 11128: LINE 129 "regression-compile-tmp/decode-77.imp" 1447 @ 11168: PUSH J 1448 @ 11171: PUSHI #0x00000001 1449 @ 11176: PUSHI #0x00000004 1450 @ 11181: PUSHI #0x00000001 1451 @ 11186: FOR L_0003 130 S = (N>>12)&15; !S = N>>28 1452 @ 11189: LINE 130 "regression-compile-tmp/decode-77.imp" 1453 @ 11229: PUSH S 1454 @ 11232: PUSH N 1455 @ 11235: PUSHI #0x0000000c 1456 @ 11240: RSH 1457 @ 11241: PUSHI #0x0000000f 1458 @ 11246: AND 1459 @ 11247: ASSVAL 131 N = N<<4 1460 @ 11248: LINE 131 "regression-compile-tmp/decode-77.imp" 1461 @ 11288: PUSH N 1462 @ 11291: PUSH N 1463 @ 11294: PUSHI #0x00000004 1464 @ 11299: LSH 1465 @ 11300: ASSVAL 132 PRINTSYMBOL(XSYM(S)) 1466 @ 11301: LINE 132 "regression-compile-tmp/decode-77.imp" 1467 @ 11341: PUSH PRINTSYMBOL 1468 @ 11344: PUSH XSYM 1469 @ 11347: PUSH S 1470 @ 11350: ACCESS 1471 @ 11351: ASSPAR 1472 @ 11352: CALL 133 %REPEAT 1473 @ 11353: LINE 133 "regression-compile-tmp/decode-77.imp" 1474 @ 11393: REPEAT L_0003 1475 @ 11396: LOCATE L_0004 134 %END 135 1476 @ 11399: LINE 134 "regression-compile-tmp/decode-77.imp" 1477 @ 11439: END _RECODE_HEX {lev=2 --> 1} 136 %ROUTINE HEX8(%INTEGER N) 1478 @ 11440: LINE 136 "regression-compile-tmp/decode-77.imp" 1479 @ 11480: DEF HEX8 (_RECODE_HEX8) p1=V_008c a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 1480 @ 11496: START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} 1481 @ 11497: DEF N p1=V_0091 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 1482 @ 11510: FINISH ) {lev=2} 137 %CONSTBYTEINTEGERARRAY XSYM(0 : 15) = %C 138 '0', '1', '2', '3', 139 '4', '5', '6', '7', 140 '8', '9', 'A', 'B', 141 'C', 'D', 'E', 'F' 1483 @ 11511: LINE 137 "regression-compile-tmp/decode-77.imp" 1484 @ 11551: PUSHI #0x00000000 1485 @ 11556: PUSHI #0x0000000f 1486 @ 11561: BOUNDS 1487 @ 11562: DEF XSYM p1=V_0092 a/tf=1b b/format=2 c/ostate=112 type=1 (integer) form=11 (array) special=1 (byte-integer) linkage=2 (constant) spec=0 indirect=1 unass=0 1488 @ 11578: PUSHI #0x00000030 1489 @ 11583: INIT 1 1490 @ 11586: PUSHI #0x00000031 1491 @ 11591: INIT 1 1492 @ 11594: PUSHI #0x00000032 1493 @ 11599: INIT 1 1494 @ 11602: PUSHI #0x00000033 1495 @ 11607: INIT 1 1496 @ 11610: PUSHI #0x00000034 1497 @ 11615: INIT 1 1498 @ 11618: PUSHI #0x00000035 1499 @ 11623: INIT 1 1500 @ 11626: PUSHI #0x00000036 1501 @ 11631: INIT 1 1502 @ 11634: PUSHI #0x00000037 1503 @ 11639: INIT 1 1504 @ 11642: PUSHI #0x00000038 1505 @ 11647: INIT 1 1506 @ 11650: PUSHI #0x00000039 1507 @ 11655: INIT 1 1508 @ 11658: PUSHI #0x00000041 1509 @ 11663: INIT 1 1510 @ 11666: PUSHI #0x00000042 1511 @ 11671: INIT 1 1512 @ 11674: PUSHI #0x00000043 1513 @ 11679: INIT 1 1514 @ 11682: PUSHI #0x00000044 1515 @ 11687: INIT 1 1516 @ 11690: PUSHI #0x00000045 1517 @ 11695: INIT 1 1518 @ 11698: PUSHI #0x00000046 1519 @ 11703: INIT 1 142 %INTEGER J, S 1520 @ 11706: LINE 142 "regression-compile-tmp/decode-77.imp" 1521 @ 11746: DEF J p1=V_0093 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 1522 @ 11759: DEF S p1=V_0094 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 143 %CYCLE J = 1,1,8 1523 @ 11772: LINE 143 "regression-compile-tmp/decode-77.imp" 1524 @ 11812: PUSH J 1525 @ 11815: PUSHI #0x00000001 1526 @ 11820: PUSHI #0x00000008 1527 @ 11825: PUSHI #0x00000001 1528 @ 11830: FOR L_0003 144 S = (N>>28)&15 1529 @ 11833: LINE 144 "regression-compile-tmp/decode-77.imp" 1530 @ 11873: PUSH S 1531 @ 11876: PUSH N 1532 @ 11879: PUSHI #0x0000001c 1533 @ 11884: RSH 1534 @ 11885: PUSHI #0x0000000f 1535 @ 11890: AND 1536 @ 11891: ASSVAL 145 N = N<<4 1537 @ 11892: LINE 145 "regression-compile-tmp/decode-77.imp" 1538 @ 11932: PUSH N 1539 @ 11935: PUSH N 1540 @ 11938: PUSHI #0x00000004 1541 @ 11943: LSH 1542 @ 11944: ASSVAL 146 PRINTSYMBOL(XSYM(S)) 1543 @ 11945: LINE 146 "regression-compile-tmp/decode-77.imp" 1544 @ 11985: PUSH PRINTSYMBOL 1545 @ 11988: PUSH XSYM 1546 @ 11991: PUSH S 1547 @ 11994: ACCESS 1548 @ 11995: ASSPAR 1549 @ 11996: CALL 147 %REPEAT 1550 @ 11997: LINE 147 "regression-compile-tmp/decode-77.imp" 1551 @ 12037: REPEAT L_0003 1552 @ 12040: LOCATE L_0004 148 %END 149 1553 @ 12043: LINE 148 "regression-compile-tmp/decode-77.imp" 1554 @ 12083: END _RECODE_HEX8 {lev=2 --> 1} 150 %ROUTINE PUT(%INTEGER SP, SYMS) 1555 @ 12084: LINE 150 "regression-compile-tmp/decode-77.imp" 1556 @ 12124: DEF PUT (_RECODE_PUT) p1=V_008d a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 1557 @ 12139: START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} 1558 @ 12140: DEF SP p1=V_0091 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 1559 @ 12154: DEF SYMS p1=V_0092 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 1560 @ 12170: FINISH ) {lev=2} 151 %INTEGER I 1561 @ 12171: LINE 151 "regression-compile-tmp/decode-77.imp" 1562 @ 12211: DEF I p1=V_0093 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 152 SPACES(SP) 1563 @ 12224: LINE 152 "regression-compile-tmp/decode-77.imp" 1564 @ 12264: PUSH SPACES 1565 @ 12267: PUSH SP 1566 @ 12270: ASSPAR 1567 @ 12271: CALL 153 %CYCLE I = 1,1,4 1568 @ 12272: LINE 153 "regression-compile-tmp/decode-77.imp" 1569 @ 12312: PUSH I 1570 @ 12315: PUSHI #0x00000001 1571 @ 12320: PUSHI #0x00000004 1572 @ 12325: PUSHI #0x00000001 1573 @ 12330: FOR L_0003 154 PRINT SYMBOL(SYMS>>24&127); SYMS = SYMS << 8 1574 @ 12333: LINE 154 "regression-compile-tmp/decode-77.imp" 1575 @ 12373: PUSH PRINTSYMBOL 1576 @ 12376: PUSH SYMS 1577 @ 12379: PUSHI #0x00000018 1578 @ 12384: RSH 1579 @ 12385: PUSHI #0x0000007f 1580 @ 12390: AND 1581 @ 12391: ASSPAR 1582 @ 12392: CALL 1583 @ 12393: LINE 154 "regression-compile-tmp/decode-77.imp" 1584 @ 12433: PUSH SYMS 1585 @ 12436: PUSH SYMS 1586 @ 12439: PUSHI #0x00000008 1587 @ 12444: LSH 1588 @ 12445: ASSVAL 155 %REPEAT 1589 @ 12446: LINE 155 "regression-compile-tmp/decode-77.imp" 1590 @ 12486: REPEAT L_0003 1591 @ 12489: LOCATE L_0004 156 %END 157 1592 @ 12492: LINE 156 "regression-compile-tmp/decode-77.imp" 1593 @ 12532: END _RECODE_PUT {lev=2 --> 1} 158 %END 159 1594 @ 12533: LINE 158 "regression-compile-tmp/decode-77.imp" 1595 @ 12573: END _RECODE {lev=1 --> 0} 160 %begin 1596 @ 12574: LINE 160 "regression-compile-tmp/decode-77.imp" 1597 @ 12614: BEGIN _lev0id0 {lev=0 --> 1} 161 %end 162 1598 @ 12615: LINE 161 "regression-compile-tmp/decode-77.imp" 1599 @ 12655: END _lev0id0 {lev=1 --> 0} 163 %ENDOFFILE 1600 @ 12656: LINE 163 "regression-compile-tmp/decode-77.imp" 1601 @ 12696: END {lev=0 --> -1} 1602 @ 12697: