
     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 (<type:0>) form=7 (routine) special=0 (<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 (<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 (<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 (<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 (<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 (<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 (<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 (<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 (<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 (<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 (<type:0>) form=7 (routine) special=0 (<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 (<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 (<type:0>) form=7 (routine) special=0 (<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 (<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 (<type:0>) form=7 (routine) special=0 (<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 (<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 (<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 (<type:0>) form=7 (routine) special=0 (<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 (<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 (<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 (<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 (<type:0>) form=7 (routine) special=0 (<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 (<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 (<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 (<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 (<type:0>) form=7 (routine) special=0 (<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 (<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 (<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 (<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: 

