
     1  %const %integer USE MC = 0,
     2                  INCLUDE DELSTART = 0
     3  
503 @ 4405:         LINE   1 "regression-compile-tmp/imp918s.imp"

     4  %BEGIN
     5           {%TRUSTEDPROGRAM}
504 @ 4443:         LINE   4 "regression-compile-tmp/imp918s.imp"
505 @ 4481:         BEGIN  _lev0id0 {lev=0 --> 1}

     6           %INTEGER I,J,K
     7  !%if INCLUDE DELSTART = 1 %start
506 @ 4482:            LINE   6 "regression-compile-tmp/imp918s.imp"
507 @ 4520:            DEF    I p1=V_0081 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 @ 4533:            DEF    J 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
509 @ 4546:            DEF    K 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

     8           %CONSTBYTEINTEGERARRAY OPC(0:120)=0,
     9               8,9,X'10',X'11',X'12',
    10                 X'13',X'20',X'21',X'22',X'23',
    11                 X'30',X'31',X'32',X'33',X'24',
    12                 X'34',0,X'45',X'46',X'47',
    13                 X'54',X'55',X'56',X'57',X'58',X'59',X'5A',X'5B',X'5C',
    14                 X'5D',X'5E',X'5F',X'68',X'69',X'6A',
    15                 X'6B',X'6C',X'6D',X'6E',X'6F',
    16                 X'78',X'79',X'7A',X'7B',X'7C',
    17                 X'7D',X'7E',X'7F',0,X'70',
    18                 X'60',X'50',X'4E',X'4F',X'4C',
    19                 X'4B',X'4A',X'49',X'48',X'44',
    20                 X'43',X'42',X'41',X'40',0,
    21                 X'90',X'98',X'86',X'87',0,
    22                 X'91',X'92',X'94',X'95',X'96',
    23                 X'97',X'9C',X'9E',X'9D',X'9F',
    24                 X'82',X'84',X'85',0,X'88',
    25                 X'89',X'8A',X'8B',X'8C',X'8D',
    26                 X'8E',X'8F',0,X'D0',X'D1',
    27                 X'D2',X'D4',X'D5',X'D6',X'D7',
    28                 X'D8',X'DC',X'DD',X'DE',X'DF',
    29                 X'D3',0,X'F1',X'F2',X'F3',
    30                 X'F8',X'F9',X'FA',X'FB',X'FC',
    31                 X'FD',0,10,4,X'80';
510 @ 4559:            LINE   8 "regression-compile-tmp/imp918s.imp"
511 @ 4597:            PUSHI  #0x00000000
512 @ 4602:            PUSHI  #0x00000078
513 @ 4607:            BOUNDS
514 @ 4608:            DEF    OPC p1=V_0084 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
515 @ 4623:            PUSHI  #0x00000000
516 @ 4628:            INIT   1
517 @ 4631:            PUSHI  #0x00000008
518 @ 4636:            INIT   1
519 @ 4639:            PUSHI  #0x00000009
520 @ 4644:            INIT   1
521 @ 4647:            PUSHI  #0x00000010
522 @ 4652:            INIT   1
523 @ 4655:            PUSHI  #0x00000011
524 @ 4660:            INIT   1
525 @ 4663:            PUSHI  #0x00000012
526 @ 4668:            INIT   1
527 @ 4671:            PUSHI  #0x00000013
528 @ 4676:            INIT   1
529 @ 4679:            PUSHI  #0x00000020
530 @ 4684:            INIT   1
531 @ 4687:            PUSHI  #0x00000021
532 @ 4692:            INIT   1
533 @ 4695:            PUSHI  #0x00000022
534 @ 4700:            INIT   1
535 @ 4703:            PUSHI  #0x00000023
536 @ 4708:            INIT   1
537 @ 4711:            PUSHI  #0x00000030
538 @ 4716:            INIT   1
539 @ 4719:            PUSHI  #0x00000031
540 @ 4724:            INIT   1
541 @ 4727:            PUSHI  #0x00000032
542 @ 4732:            INIT   1
543 @ 4735:            PUSHI  #0x00000033
544 @ 4740:            INIT   1
545 @ 4743:            PUSHI  #0x00000024
546 @ 4748:            INIT   1
547 @ 4751:            PUSHI  #0x00000034
548 @ 4756:            INIT   1
549 @ 4759:            PUSHI  #0x00000000
550 @ 4764:            INIT   1
551 @ 4767:            PUSHI  #0x00000045
552 @ 4772:            INIT   1
553 @ 4775:            PUSHI  #0x00000046
554 @ 4780:            INIT   1
555 @ 4783:            PUSHI  #0x00000047
556 @ 4788:            INIT   1
557 @ 4791:            PUSHI  #0x00000054
558 @ 4796:            INIT   1
559 @ 4799:            PUSHI  #0x00000055
560 @ 4804:            INIT   1
561 @ 4807:            PUSHI  #0x00000056
562 @ 4812:            INIT   1
563 @ 4815:            PUSHI  #0x00000057
564 @ 4820:            INIT   1
565 @ 4823:            PUSHI  #0x00000058
566 @ 4828:            INIT   1
567 @ 4831:            PUSHI  #0x00000059
568 @ 4836:            INIT   1
569 @ 4839:            PUSHI  #0x0000005a
570 @ 4844:            INIT   1
571 @ 4847:            PUSHI  #0x0000005b
572 @ 4852:            INIT   1
573 @ 4855:            PUSHI  #0x0000005c
574 @ 4860:            INIT   1
575 @ 4863:            PUSHI  #0x0000005d
576 @ 4868:            INIT   1
577 @ 4871:            PUSHI  #0x0000005e
578 @ 4876:            INIT   1
579 @ 4879:            PUSHI  #0x0000005f
580 @ 4884:            INIT   1
581 @ 4887:            PUSHI  #0x00000068
582 @ 4892:            INIT   1
583 @ 4895:            PUSHI  #0x00000069
584 @ 4900:            INIT   1
585 @ 4903:            PUSHI  #0x0000006a
586 @ 4908:            INIT   1
587 @ 4911:            PUSHI  #0x0000006b
588 @ 4916:            INIT   1
589 @ 4919:            PUSHI  #0x0000006c
590 @ 4924:            INIT   1
591 @ 4927:            PUSHI  #0x0000006d
592 @ 4932:            INIT   1
593 @ 4935:            PUSHI  #0x0000006e
594 @ 4940:            INIT   1
595 @ 4943:            PUSHI  #0x0000006f
596 @ 4948:            INIT   1
597 @ 4951:            PUSHI  #0x00000078
598 @ 4956:            INIT   1
599 @ 4959:            PUSHI  #0x00000079
600 @ 4964:            INIT   1
601 @ 4967:            PUSHI  #0x0000007a
602 @ 4972:            INIT   1
603 @ 4975:            PUSHI  #0x0000007b
604 @ 4980:            INIT   1
605 @ 4983:            PUSHI  #0x0000007c
606 @ 4988:            INIT   1
607 @ 4991:            PUSHI  #0x0000007d
608 @ 4996:            INIT   1
609 @ 4999:            PUSHI  #0x0000007e
610 @ 5004:            INIT   1
611 @ 5007:            PUSHI  #0x0000007f
612 @ 5012:            INIT   1
613 @ 5015:            PUSHI  #0x00000000
614 @ 5020:            INIT   1
615 @ 5023:            PUSHI  #0x00000070
616 @ 5028:            INIT   1
617 @ 5031:            PUSHI  #0x00000060
618 @ 5036:            INIT   1
619 @ 5039:            PUSHI  #0x00000050
620 @ 5044:            INIT   1
621 @ 5047:            PUSHI  #0x0000004e
622 @ 5052:            INIT   1
623 @ 5055:            PUSHI  #0x0000004f
624 @ 5060:            INIT   1
625 @ 5063:            PUSHI  #0x0000004c
626 @ 5068:            INIT   1
627 @ 5071:            PUSHI  #0x0000004b
628 @ 5076:            INIT   1
629 @ 5079:            PUSHI  #0x0000004a
630 @ 5084:            INIT   1
631 @ 5087:            PUSHI  #0x00000049
632 @ 5092:            INIT   1
633 @ 5095:            PUSHI  #0x00000048
634 @ 5100:            INIT   1
635 @ 5103:            PUSHI  #0x00000044
636 @ 5108:            INIT   1
637 @ 5111:            PUSHI  #0x00000043
638 @ 5116:            INIT   1
639 @ 5119:            PUSHI  #0x00000042
640 @ 5124:            INIT   1
641 @ 5127:            PUSHI  #0x00000041
642 @ 5132:            INIT   1
643 @ 5135:            PUSHI  #0x00000040
644 @ 5140:            INIT   1
645 @ 5143:            PUSHI  #0x00000000
646 @ 5148:            INIT   1
647 @ 5151:            PUSHI  #0x00000090
648 @ 5156:            INIT   1
649 @ 5159:            PUSHI  #0x00000098
650 @ 5164:            INIT   1
651 @ 5167:            PUSHI  #0x00000086
652 @ 5172:            INIT   1
653 @ 5175:            PUSHI  #0x00000087
654 @ 5180:            INIT   1
655 @ 5183:            PUSHI  #0x00000000
656 @ 5188:            INIT   1
657 @ 5191:            PUSHI  #0x00000091
658 @ 5196:            INIT   1
659 @ 5199:            PUSHI  #0x00000092
660 @ 5204:            INIT   1
661 @ 5207:            PUSHI  #0x00000094
662 @ 5212:            INIT   1
663 @ 5215:            PUSHI  #0x00000095
664 @ 5220:            INIT   1
665 @ 5223:            PUSHI  #0x00000096
666 @ 5228:            INIT   1
667 @ 5231:            PUSHI  #0x00000097
668 @ 5236:            INIT   1
669 @ 5239:            PUSHI  #0x0000009c
670 @ 5244:            INIT   1
671 @ 5247:            PUSHI  #0x0000009e
672 @ 5252:            INIT   1
673 @ 5255:            PUSHI  #0x0000009d
674 @ 5260:            INIT   1
675 @ 5263:            PUSHI  #0x0000009f
676 @ 5268:            INIT   1
677 @ 5271:            PUSHI  #0x00000082
678 @ 5276:            INIT   1
679 @ 5279:            PUSHI  #0x00000084
680 @ 5284:            INIT   1
681 @ 5287:            PUSHI  #0x00000085
682 @ 5292:            INIT   1
683 @ 5295:            PUSHI  #0x00000000
684 @ 5300:            INIT   1
685 @ 5303:            PUSHI  #0x00000088
686 @ 5308:            INIT   1
687 @ 5311:            PUSHI  #0x00000089
688 @ 5316:            INIT   1
689 @ 5319:            PUSHI  #0x0000008a
690 @ 5324:            INIT   1
691 @ 5327:            PUSHI  #0x0000008b
692 @ 5332:            INIT   1
693 @ 5335:            PUSHI  #0x0000008c
694 @ 5340:            INIT   1
695 @ 5343:            PUSHI  #0x0000008d
696 @ 5348:            INIT   1
697 @ 5351:            PUSHI  #0x0000008e
698 @ 5356:            INIT   1
699 @ 5359:            PUSHI  #0x0000008f
700 @ 5364:            INIT   1
701 @ 5367:            PUSHI  #0x00000000
702 @ 5372:            INIT   1
703 @ 5375:            PUSHI  #0x000000d0
704 @ 5380:            INIT   1
705 @ 5383:            PUSHI  #0x000000d1
706 @ 5388:            INIT   1
707 @ 5391:            PUSHI  #0x000000d2
708 @ 5396:            INIT   1
709 @ 5399:            PUSHI  #0x000000d4
710 @ 5404:            INIT   1
711 @ 5407:            PUSHI  #0x000000d5
712 @ 5412:            INIT   1
713 @ 5415:            PUSHI  #0x000000d6
714 @ 5420:            INIT   1
715 @ 5423:            PUSHI  #0x000000d7
716 @ 5428:            INIT   1
717 @ 5431:            PUSHI  #0x000000d8
718 @ 5436:            INIT   1
719 @ 5439:            PUSHI  #0x000000dc
720 @ 5444:            INIT   1
721 @ 5447:            PUSHI  #0x000000dd
722 @ 5452:            INIT   1
723 @ 5455:            PUSHI  #0x000000de
724 @ 5460:            INIT   1
725 @ 5463:            PUSHI  #0x000000df
726 @ 5468:            INIT   1
727 @ 5471:            PUSHI  #0x000000d3
728 @ 5476:            INIT   1
729 @ 5479:            PUSHI  #0x00000000
730 @ 5484:            INIT   1
731 @ 5487:            PUSHI  #0x000000f1
732 @ 5492:            INIT   1
733 @ 5495:            PUSHI  #0x000000f2
734 @ 5500:            INIT   1
735 @ 5503:            PUSHI  #0x000000f3
736 @ 5508:            INIT   1
737 @ 5511:            PUSHI  #0x000000f8
738 @ 5516:            INIT   1
739 @ 5519:            PUSHI  #0x000000f9
740 @ 5524:            INIT   1
741 @ 5527:            PUSHI  #0x000000fa
742 @ 5532:            INIT   1
743 @ 5535:            PUSHI  #0x000000fb
744 @ 5540:            INIT   1
745 @ 5543:            PUSHI  #0x000000fc
746 @ 5548:            INIT   1
747 @ 5551:            PUSHI  #0x000000fd
748 @ 5556:            INIT   1
749 @ 5559:            PUSHI  #0x00000000
750 @ 5564:            INIT   1
751 @ 5567:            PUSHI  #0x0000000a
752 @ 5572:            INIT   1
753 @ 5575:            PUSHI  #0x00000004
754 @ 5580:            INIT   1
755 @ 5583:            PUSHI  #0x00000080
756 @ 5588:            INIT   1

    32           %CONSTINTEGERARRAY NEM(0:120)=M'CNOP',
    33                  M'SSK',M'ISK',M'LP',M'LN',M'LT',
    34                 M'LC',M'LPD',M'LND',M'LTD',M'LCD',
    35                 M'LPE',M'LNE',M'LTE',M'LCE',M'HD',
    36                 M'HE',0,M'BAL',M'BCT',M'BC',
    37                 'N',M'CL','O','X','L','C','A','S','M','D',
    38                 M'AL',M'SL',M'LD',M'CD',M'AD',
    39                 M'SD',M'MD',M'DD',M'AW',M'SW',
    40                 M'LE',M'CE',M'AE',M'SE',M'ME',
    41                 M'DE',M'AU',M'SU',0,M'STE',
    42                 M'STD',M'ST',M'CVD',M'CVB',M'MH',
    43                 M'SH',M'AH',M'CH',M'LH',M'EX',
    44                 M'IC',M'STC',M'LA',M'STH',0,
    45                 M'STM',M'LM',M'BXH',M'BXLE',0,
    46                 M'TM',M'MVI',M'NI',M'CLI',M'OI',
    47                 M'XI',M'SDV',M'HDV',M'TDV',M'CKC',
    48                 M'PC',M'WRD',M'RDD',0,M'SRL',
    49                 M'SLL',M'SRA',M'SLA',M'SRDL',M'SLDL',
    50                 M'SRDA',M'SLDA',0,M'SSP',M'MVN',
    51                 M'MVC',M'NC',M'CLC',M'OC',M'XC',
    52                 M'LSP',M'TR',M'TRT',M'ED',M'EDMK',
    53                 M'MVZ',0,M'MVO',M'PACK',M'UNPK',
    54                 M'ZAP',M'CP',M'AP',M'SP',M'MP',
    55                 M'DP',0,M'SVC',M'SPM',M'IDL';
757 @ 5591:            LINE   32 "regression-compile-tmp/imp918s.imp"
758 @ 5629:            PUSHI  #0x00000000
759 @ 5634:            PUSHI  #0x00000078
760 @ 5639:            BOUNDS
761 @ 5640:            DEF    NEM 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
762 @ 5655:            PUSHI  #0x434e4f50
763 @ 5660:            INIT   1
764 @ 5663:            PUSHI  #0x0053534b
765 @ 5668:            INIT   1
766 @ 5671:            PUSHI  #0x0049534b
767 @ 5676:            INIT   1
768 @ 5679:            PUSHI  #0x00004c50
769 @ 5684:            INIT   1
770 @ 5687:            PUSHI  #0x00004c4e
771 @ 5692:            INIT   1
772 @ 5695:            PUSHI  #0x00004c54
773 @ 5700:            INIT   1
774 @ 5703:            PUSHI  #0x00004c43
775 @ 5708:            INIT   1
776 @ 5711:            PUSHI  #0x004c5044
777 @ 5716:            INIT   1
778 @ 5719:            PUSHI  #0x004c4e44
779 @ 5724:            INIT   1
780 @ 5727:            PUSHI  #0x004c5444
781 @ 5732:            INIT   1
782 @ 5735:            PUSHI  #0x004c4344
783 @ 5740:            INIT   1
784 @ 5743:            PUSHI  #0x004c5045
785 @ 5748:            INIT   1
786 @ 5751:            PUSHI  #0x004c4e45
787 @ 5756:            INIT   1
788 @ 5759:            PUSHI  #0x004c5445
789 @ 5764:            INIT   1
790 @ 5767:            PUSHI  #0x004c4345
791 @ 5772:            INIT   1
792 @ 5775:            PUSHI  #0x00004844
793 @ 5780:            INIT   1
794 @ 5783:            PUSHI  #0x00004845
795 @ 5788:            INIT   1
796 @ 5791:            PUSHI  #0x00000000
797 @ 5796:            INIT   1
798 @ 5799:            PUSHI  #0x0042414c
799 @ 5804:            INIT   1
800 @ 5807:            PUSHI  #0x00424354
801 @ 5812:            INIT   1
802 @ 5815:            PUSHI  #0x00004243
803 @ 5820:            INIT   1
804 @ 5823:            PUSHI  #0x0000004e
805 @ 5828:            INIT   1
806 @ 5831:            PUSHI  #0x0000434c
807 @ 5836:            INIT   1
808 @ 5839:            PUSHI  #0x0000004f
809 @ 5844:            INIT   1
810 @ 5847:            PUSHI  #0x00000058
811 @ 5852:            INIT   1
812 @ 5855:            PUSHI  #0x0000004c
813 @ 5860:            INIT   1
814 @ 5863:            PUSHI  #0x00000043
815 @ 5868:            INIT   1
816 @ 5871:            PUSHI  #0x00000041
817 @ 5876:            INIT   1
818 @ 5879:            PUSHI  #0x00000053
819 @ 5884:            INIT   1
820 @ 5887:            PUSHI  #0x0000004d
821 @ 5892:            INIT   1
822 @ 5895:            PUSHI  #0x00000044
823 @ 5900:            INIT   1
824 @ 5903:            PUSHI  #0x0000414c
825 @ 5908:            INIT   1
826 @ 5911:            PUSHI  #0x0000534c
827 @ 5916:            INIT   1
828 @ 5919:            PUSHI  #0x00004c44
829 @ 5924:            INIT   1
830 @ 5927:            PUSHI  #0x00004344
831 @ 5932:            INIT   1
832 @ 5935:            PUSHI  #0x00004144
833 @ 5940:            INIT   1
834 @ 5943:            PUSHI  #0x00005344
835 @ 5948:            INIT   1
836 @ 5951:            PUSHI  #0x00004d44
837 @ 5956:            INIT   1
838 @ 5959:            PUSHI  #0x00004444
839 @ 5964:            INIT   1
840 @ 5967:            PUSHI  #0x00004157
841 @ 5972:            INIT   1
842 @ 5975:            PUSHI  #0x00005357
843 @ 5980:            INIT   1
844 @ 5983:            PUSHI  #0x00004c45
845 @ 5988:            INIT   1
846 @ 5991:            PUSHI  #0x00004345
847 @ 5996:            INIT   1
848 @ 5999:            PUSHI  #0x00004145
849 @ 6004:            INIT   1
850 @ 6007:            PUSHI  #0x00005345
851 @ 6012:            INIT   1
852 @ 6015:            PUSHI  #0x00004d45
853 @ 6020:            INIT   1
854 @ 6023:            PUSHI  #0x00004445
855 @ 6028:            INIT   1
856 @ 6031:            PUSHI  #0x00004155
857 @ 6036:            INIT   1
858 @ 6039:            PUSHI  #0x00005355
859 @ 6044:            INIT   1
860 @ 6047:            PUSHI  #0x00000000
861 @ 6052:            INIT   1
862 @ 6055:            PUSHI  #0x00535445
863 @ 6060:            INIT   1
864 @ 6063:            PUSHI  #0x00535444
865 @ 6068:            INIT   1
866 @ 6071:            PUSHI  #0x00005354
867 @ 6076:            INIT   1
868 @ 6079:            PUSHI  #0x00435644
869 @ 6084:            INIT   1
870 @ 6087:            PUSHI  #0x00435642
871 @ 6092:            INIT   1
872 @ 6095:            PUSHI  #0x00004d48
873 @ 6100:            INIT   1
874 @ 6103:            PUSHI  #0x00005348
875 @ 6108:            INIT   1
876 @ 6111:            PUSHI  #0x00004148
877 @ 6116:            INIT   1
878 @ 6119:            PUSHI  #0x00004348
879 @ 6124:            INIT   1
880 @ 6127:            PUSHI  #0x00004c48
881 @ 6132:            INIT   1
882 @ 6135:            PUSHI  #0x00004558
883 @ 6140:            INIT   1
884 @ 6143:            PUSHI  #0x00004943
885 @ 6148:            INIT   1
886 @ 6151:            PUSHI  #0x00535443
887 @ 6156:            INIT   1
888 @ 6159:            PUSHI  #0x00004c41
889 @ 6164:            INIT   1
890 @ 6167:            PUSHI  #0x00535448
891 @ 6172:            INIT   1
892 @ 6175:            PUSHI  #0x00000000
893 @ 6180:            INIT   1
894 @ 6183:            PUSHI  #0x0053544d
895 @ 6188:            INIT   1
896 @ 6191:            PUSHI  #0x00004c4d
897 @ 6196:            INIT   1
898 @ 6199:            PUSHI  #0x00425848
899 @ 6204:            INIT   1
900 @ 6207:            PUSHI  #0x42584c45
901 @ 6212:            INIT   1
902 @ 6215:            PUSHI  #0x00000000
903 @ 6220:            INIT   1
904 @ 6223:            PUSHI  #0x0000544d
905 @ 6228:            INIT   1
906 @ 6231:            PUSHI  #0x004d5649
907 @ 6236:            INIT   1
908 @ 6239:            PUSHI  #0x00004e49
909 @ 6244:            INIT   1
910 @ 6247:            PUSHI  #0x00434c49
911 @ 6252:            INIT   1
912 @ 6255:            PUSHI  #0x00004f49
913 @ 6260:            INIT   1
914 @ 6263:            PUSHI  #0x00005849
915 @ 6268:            INIT   1
916 @ 6271:            PUSHI  #0x00534456
917 @ 6276:            INIT   1
918 @ 6279:            PUSHI  #0x00484456
919 @ 6284:            INIT   1
920 @ 6287:            PUSHI  #0x00544456
921 @ 6292:            INIT   1
922 @ 6295:            PUSHI  #0x00434b43
923 @ 6300:            INIT   1
924 @ 6303:            PUSHI  #0x00005043
925 @ 6308:            INIT   1
926 @ 6311:            PUSHI  #0x00575244
927 @ 6316:            INIT   1
928 @ 6319:            PUSHI  #0x00524444
929 @ 6324:            INIT   1
930 @ 6327:            PUSHI  #0x00000000
931 @ 6332:            INIT   1
932 @ 6335:            PUSHI  #0x0053524c
933 @ 6340:            INIT   1
934 @ 6343:            PUSHI  #0x00534c4c
935 @ 6348:            INIT   1
936 @ 6351:            PUSHI  #0x00535241
937 @ 6356:            INIT   1
938 @ 6359:            PUSHI  #0x00534c41
939 @ 6364:            INIT   1
940 @ 6367:            PUSHI  #0x5352444c
941 @ 6372:            INIT   1
942 @ 6375:            PUSHI  #0x534c444c
943 @ 6380:            INIT   1
944 @ 6383:            PUSHI  #0x53524441
945 @ 6388:            INIT   1
946 @ 6391:            PUSHI  #0x534c4441
947 @ 6396:            INIT   1
948 @ 6399:            PUSHI  #0x00000000
949 @ 6404:            INIT   1
950 @ 6407:            PUSHI  #0x00535350
951 @ 6412:            INIT   1
952 @ 6415:            PUSHI  #0x004d564e
953 @ 6420:            INIT   1
954 @ 6423:            PUSHI  #0x004d5643
955 @ 6428:            INIT   1
956 @ 6431:            PUSHI  #0x00004e43
957 @ 6436:            INIT   1
958 @ 6439:            PUSHI  #0x00434c43
959 @ 6444:            INIT   1
960 @ 6447:            PUSHI  #0x00004f43
961 @ 6452:            INIT   1
962 @ 6455:            PUSHI  #0x00005843
963 @ 6460:            INIT   1
964 @ 6463:            PUSHI  #0x004c5350
965 @ 6468:            INIT   1
966 @ 6471:            PUSHI  #0x00005452
967 @ 6476:            INIT   1
968 @ 6479:            PUSHI  #0x00545254
969 @ 6484:            INIT   1
970 @ 6487:            PUSHI  #0x00004544
971 @ 6492:            INIT   1
972 @ 6495:            PUSHI  #0x45444d4b
973 @ 6500:            INIT   1
974 @ 6503:            PUSHI  #0x004d565a
975 @ 6508:            INIT   1
976 @ 6511:            PUSHI  #0x00000000
977 @ 6516:            INIT   1
978 @ 6519:            PUSHI  #0x004d564f
979 @ 6524:            INIT   1
980 @ 6527:            PUSHI  #0x5041434b
981 @ 6532:            INIT   1
982 @ 6535:            PUSHI  #0x554e504b
983 @ 6540:            INIT   1
984 @ 6543:            PUSHI  #0x005a4150
985 @ 6548:            INIT   1
986 @ 6551:            PUSHI  #0x00004350
987 @ 6556:            INIT   1
988 @ 6559:            PUSHI  #0x00004150
989 @ 6564:            INIT   1
990 @ 6567:            PUSHI  #0x00005350
991 @ 6572:            INIT   1
992 @ 6575:            PUSHI  #0x00004d50
993 @ 6580:            INIT   1
994 @ 6583:            PUSHI  #0x00004450
995 @ 6588:            INIT   1
996 @ 6591:            PUSHI  #0x00000000
997 @ 6596:            INIT   1
998 @ 6599:            PUSHI  #0x00535643
999 @ 6604:            INIT   1
1000 @ 6607:            PUSHI  #0x0053504d
1001 @ 6612:            INIT   1
1002 @ 6615:            PUSHI  #0x0049444c
1003 @ 6620:            INIT   1

    56           %CONSTBYTEINTEGERARRAY HASHALT(0:218)=20(33),6,
    57           20(11),1,20(2),4(10),20(7),1(26),20(102),
    58           20,7,2,9,1,13,20,20,5,20,20,7,1,20,17,1(4),20,5,20,6,20(3);
    59  !%finish
1004 @ 6623:            LINE   56 "regression-compile-tmp/imp918s.imp"
1005 @ 6661:            PUSHI  #0x00000000
1006 @ 6666:            PUSHI  #0x000000da
1007 @ 6671:            BOUNDS
1008 @ 6672:            DEF    HASHALT p1=V_0086 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
1009 @ 6691:            PUSHI  #0x00000014
1010 @ 6696:            INIT   33
1011 @ 6699:            PUSHI  #0x00000006
1012 @ 6704:            INIT   1
1013 @ 6707:            PUSHI  #0x00000014
1014 @ 6712:            INIT   11
1015 @ 6715:            PUSHI  #0x00000001
1016 @ 6720:            INIT   1
1017 @ 6723:            PUSHI  #0x00000014
1018 @ 6728:            INIT   2
1019 @ 6731:            PUSHI  #0x00000004
1020 @ 6736:            INIT   10
1021 @ 6739:            PUSHI  #0x00000014
1022 @ 6744:            INIT   7
1023 @ 6747:            PUSHI  #0x00000001
1024 @ 6752:            INIT   26
1025 @ 6755:            PUSHI  #0x00000014
1026 @ 6760:            INIT   102
1027 @ 6763:            PUSHI  #0x00000014
1028 @ 6768:            INIT   1
1029 @ 6771:            PUSHI  #0x00000007
1030 @ 6776:            INIT   1
1031 @ 6779:            PUSHI  #0x00000002
1032 @ 6784:            INIT   1
1033 @ 6787:            PUSHI  #0x00000009
1034 @ 6792:            INIT   1
1035 @ 6795:            PUSHI  #0x00000001
1036 @ 6800:            INIT   1
1037 @ 6803:            PUSHI  #0x0000000d
1038 @ 6808:            INIT   1
1039 @ 6811:            PUSHI  #0x00000014
1040 @ 6816:            INIT   1
1041 @ 6819:            PUSHI  #0x00000014
1042 @ 6824:            INIT   1
1043 @ 6827:            PUSHI  #0x00000005
1044 @ 6832:            INIT   1
1045 @ 6835:            PUSHI  #0x00000014
1046 @ 6840:            INIT   1
1047 @ 6843:            PUSHI  #0x00000014
1048 @ 6848:            INIT   1
1049 @ 6851:            PUSHI  #0x00000007
1050 @ 6856:            INIT   1
1051 @ 6859:            PUSHI  #0x00000001
1052 @ 6864:            INIT   1
1053 @ 6867:            PUSHI  #0x00000014
1054 @ 6872:            INIT   1
1055 @ 6875:            PUSHI  #0x00000011
1056 @ 6880:            INIT   1
1057 @ 6883:            PUSHI  #0x00000001
1058 @ 6888:            INIT   4
1059 @ 6891:            PUSHI  #0x00000014
1060 @ 6896:            INIT   1
1061 @ 6899:            PUSHI  #0x00000005
1062 @ 6904:            INIT   1
1063 @ 6907:            PUSHI  #0x00000014
1064 @ 6912:            INIT   1
1065 @ 6915:            PUSHI  #0x00000006
1066 @ 6920:            INIT   1
1067 @ 6923:            PUSHI  #0x00000014
1068 @ 6928:            INIT   3

    60           %OWNINTEGERARRAY FIXED GLA(0:28)=0,
    61                 X'30000000',0(2),-1,0,255,0(5),
    62                X'41100000',0,X'80000000',X'FFFFFF',0(2),
    63           X'4E000000',0,-4,-8,0(4),X'80000000',X'6492350',M'ERMA';
1069 @ 6931:            LINE   60 "regression-compile-tmp/imp918s.imp"
1070 @ 6969:            PUSHI  #0x00000000
1071 @ 6974:            PUSHI  #0x0000001c
1072 @ 6979:            BOUNDS
1073 @ 6980:            DEF    FIXEDGLA p1=V_0087 a/tf=1b b/format=1 c/ostate=121  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
1074 @ 7000:            PUSHI  #0x00000000
1075 @ 7005:            INIT   1
1076 @ 7008:            PUSHI  #0x30000000
1077 @ 7013:            INIT   1
1078 @ 7016:            PUSHI  #0x00000000
1079 @ 7021:            INIT   2
1080 @ 7024:            PUSHI  #0xffffffff
1081 @ 7029:            INIT   1
1082 @ 7032:            PUSHI  #0x00000000
1083 @ 7037:            INIT   1
1084 @ 7040:            PUSHI  #0x000000ff
1085 @ 7045:            INIT   1
1086 @ 7048:            PUSHI  #0x00000000
1087 @ 7053:            INIT   5
1088 @ 7056:            PUSHI  #0x41100000
1089 @ 7061:            INIT   1
1090 @ 7064:            PUSHI  #0x00000000
1091 @ 7069:            INIT   1
1092 @ 7072:            PUSHI  #0x80000000
1093 @ 7077:            INIT   1
1094 @ 7080:            PUSHI  #0x00ffffff
1095 @ 7085:            INIT   1
1096 @ 7088:            PUSHI  #0x00000000
1097 @ 7093:            INIT   2
1098 @ 7096:            PUSHI  #0x4e000000
1099 @ 7101:            INIT   1
1100 @ 7104:            PUSHI  #0x00000000
1101 @ 7109:            INIT   1
1102 @ 7112:            PUSHI  #0xfffffffc
1103 @ 7117:            INIT   1
1104 @ 7120:            PUSHI  #0xfffffff8
1105 @ 7125:            INIT   1
1106 @ 7128:            PUSHI  #0x00000000
1107 @ 7133:            INIT   4
1108 @ 7136:            PUSHI  #0x80000000
1109 @ 7141:            INIT   1
1110 @ 7144:            PUSHI  #0x06492350
1111 @ 7149:            INIT   1
1112 @ 7152:            PUSHI  #0x45524d41
1113 @ 7157:            INIT   1

    64           %CONSTSHORTINTEGERARRAY TSNAME (0:53)=10000(8),
    65                 10001,10000(5),10001,10032,10001(2),10032,
    66                 10000(2),2,1,32,10032(7),10000,11,21,10032(2),11,10000,
    67                 1,32,10000(2),5,10000,10005,11,5,10005,3,0,10000,1,2,
    68                 10001;
1114 @ 7160:            LINE   64 "regression-compile-tmp/imp918s.imp"
1115 @ 7198:            PUSHI  #0x00000000
1116 @ 7203:            PUSHI  #0x00000035
1117 @ 7208:            BOUNDS
1118 @ 7209:            DEF    TSNAME p1=V_0088 a/tf=1b b/format=3 c/ostate=112  type=1 (integer) form=11 (array) special=2 (short-integer) linkage=2 (constant) spec=0 indirect=1 unass=0
1119 @ 7227:            PUSHI  #0x00002710
1120 @ 7232:            INIT   8
1121 @ 7235:            PUSHI  #0x00002711
1122 @ 7240:            INIT   1
1123 @ 7243:            PUSHI  #0x00002710
1124 @ 7248:            INIT   5
1125 @ 7251:            PUSHI  #0x00002711
1126 @ 7256:            INIT   1
1127 @ 7259:            PUSHI  #0x00002730
1128 @ 7264:            INIT   1
1129 @ 7267:            PUSHI  #0x00002711
1130 @ 7272:            INIT   2
1131 @ 7275:            PUSHI  #0x00002730
1132 @ 7280:            INIT   1
1133 @ 7283:            PUSHI  #0x00002710
1134 @ 7288:            INIT   2
1135 @ 7291:            PUSHI  #0x00000002
1136 @ 7296:            INIT   1
1137 @ 7299:            PUSHI  #0x00000001
1138 @ 7304:            INIT   1
1139 @ 7307:            PUSHI  #0x00000020
1140 @ 7312:            INIT   1
1141 @ 7315:            PUSHI  #0x00002730
1142 @ 7320:            INIT   7
1143 @ 7323:            PUSHI  #0x00002710
1144 @ 7328:            INIT   1
1145 @ 7331:            PUSHI  #0x0000000b
1146 @ 7336:            INIT   1
1147 @ 7339:            PUSHI  #0x00000015
1148 @ 7344:            INIT   1
1149 @ 7347:            PUSHI  #0x00002730
1150 @ 7352:            INIT   2
1151 @ 7355:            PUSHI  #0x0000000b
1152 @ 7360:            INIT   1
1153 @ 7363:            PUSHI  #0x00002710
1154 @ 7368:            INIT   1
1155 @ 7371:            PUSHI  #0x00000001
1156 @ 7376:            INIT   1
1157 @ 7379:            PUSHI  #0x00000020
1158 @ 7384:            INIT   1
1159 @ 7387:            PUSHI  #0x00002710
1160 @ 7392:            INIT   2
1161 @ 7395:            PUSHI  #0x00000005
1162 @ 7400:            INIT   1
1163 @ 7403:            PUSHI  #0x00002710
1164 @ 7408:            INIT   1
1165 @ 7411:            PUSHI  #0x00002715
1166 @ 7416:            INIT   1
1167 @ 7419:            PUSHI  #0x0000000b
1168 @ 7424:            INIT   1
1169 @ 7427:            PUSHI  #0x00000005
1170 @ 7432:            INIT   1
1171 @ 7435:            PUSHI  #0x00002715
1172 @ 7440:            INIT   1
1173 @ 7443:            PUSHI  #0x00000003
1174 @ 7448:            INIT   1
1175 @ 7451:            PUSHI  #0x00000000
1176 @ 7456:            INIT   1
1177 @ 7459:            PUSHI  #0x00002710
1178 @ 7464:            INIT   1
1179 @ 7467:            PUSHI  #0x00000001
1180 @ 7472:            INIT   1
1181 @ 7475:            PUSHI  #0x00000002
1182 @ 7480:            INIT   1
1183 @ 7483:            PUSHI  #0x00002711
1184 @ 7488:            INIT   1

    69           %CONSTBYTEINTEGERARRAY BYTES(0:7)=4,1,2,8,4,1,2,8;
1185 @ 7491:            LINE   69 "regression-compile-tmp/imp918s.imp"
1186 @ 7529:            PUSHI  #0x00000000
1187 @ 7534:            PUSHI  #0x00000007
1188 @ 7539:            BOUNDS
1189 @ 7540:            DEF    BYTES p1=V_0089 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
1190 @ 7557:            PUSHI  #0x00000004
1191 @ 7562:            INIT   1
1192 @ 7565:            PUSHI  #0x00000001
1193 @ 7570:            INIT   1
1194 @ 7573:            PUSHI  #0x00000002
1195 @ 7578:            INIT   1
1196 @ 7581:            PUSHI  #0x00000008
1197 @ 7586:            INIT   1
1198 @ 7589:            PUSHI  #0x00000004
1199 @ 7594:            INIT   1
1200 @ 7597:            PUSHI  #0x00000001
1201 @ 7602:            INIT   1
1202 @ 7605:            PUSHI  #0x00000002
1203 @ 7610:            INIT   1
1204 @ 7613:            PUSHI  #0x00000008
1205 @ 7618:            INIT   1

    70           %CONSTBYTEINTEGERARRAY GRMAP(0:14)=0,1,2,3,15,16,18,20,22,
    71                                         4,5,6,7,8,14;
1206 @ 7621:            LINE   70 "regression-compile-tmp/imp918s.imp"
1207 @ 7659:            PUSHI  #0x00000000
1208 @ 7664:            PUSHI  #0x0000000e
1209 @ 7669:            BOUNDS
1210 @ 7670:            DEF    GRMAP p1=V_008a 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
1211 @ 7687:            PUSHI  #0x00000000
1212 @ 7692:            INIT   1
1213 @ 7695:            PUSHI  #0x00000001
1214 @ 7700:            INIT   1
1215 @ 7703:            PUSHI  #0x00000002
1216 @ 7708:            INIT   1
1217 @ 7711:            PUSHI  #0x00000003
1218 @ 7716:            INIT   1
1219 @ 7719:            PUSHI  #0x0000000f
1220 @ 7724:            INIT   1
1221 @ 7727:            PUSHI  #0x00000010
1222 @ 7732:            INIT   1
1223 @ 7735:            PUSHI  #0x00000012
1224 @ 7740:            INIT   1
1225 @ 7743:            PUSHI  #0x00000014
1226 @ 7748:            INIT   1
1227 @ 7751:            PUSHI  #0x00000016
1228 @ 7756:            INIT   1
1229 @ 7759:            PUSHI  #0x00000004
1230 @ 7764:            INIT   1
1231 @ 7767:            PUSHI  #0x00000005
1232 @ 7772:            INIT   1
1233 @ 7775:            PUSHI  #0x00000006
1234 @ 7780:            INIT   1
1235 @ 7783:            PUSHI  #0x00000007
1236 @ 7788:            INIT   1
1237 @ 7791:            PUSHI  #0x00000008
1238 @ 7796:            INIT   1
1239 @ 7799:            PUSHI  #0x0000000e
1240 @ 7804:            INIT   1

    72         %CONSTBYTEINTEGERARRAY PRECEDENCE (1:12)=0,3,3,3,3,4,4,4,4,5,5,5;
1241 @ 7807:            LINE   72 "regression-compile-tmp/imp918s.imp"
1242 @ 7845:            PUSHI  #0x00000001
1243 @ 7850:            PUSHI  #0x0000000c
1244 @ 7855:            BOUNDS
1245 @ 7856:            DEF    PRECEDENCE p1=V_008b 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
1246 @ 7878:            PUSHI  #0x00000000
1247 @ 7883:            INIT   1
1248 @ 7886:            PUSHI  #0x00000003
1249 @ 7891:            INIT   1
1250 @ 7894:            PUSHI  #0x00000003
1251 @ 7899:            INIT   1
1252 @ 7902:            PUSHI  #0x00000003
1253 @ 7907:            INIT   1
1254 @ 7910:            PUSHI  #0x00000003
1255 @ 7915:            INIT   1
1256 @ 7918:            PUSHI  #0x00000004
1257 @ 7923:            INIT   1
1258 @ 7926:            PUSHI  #0x00000004
1259 @ 7931:            INIT   1
1260 @ 7934:            PUSHI  #0x00000004
1261 @ 7939:            INIT   1
1262 @ 7942:            PUSHI  #0x00000004
1263 @ 7947:            INIT   1
1264 @ 7950:            PUSHI  #0x00000005
1265 @ 7955:            INIT   1
1266 @ 7958:            PUSHI  #0x00000005
1267 @ 7963:            INIT   1
1268 @ 7966:            PUSHI  #0x00000005
1269 @ 7971:            INIT   1

    73           %OWNBYTEINTEGERARRAY TRTABS (0:1283)=128(39),
    74           1,255(8),0(10),255(7),0(26),255(6),255(26),255(133),
    75           28(34),8,28,8,28(2),12,28(6),4,28,0(10),
    76           28(8),24,28(8),32,28,20,28(4),36,28(5),16,28(167),
    77           0(9),1,0(49),2,0(196),
    78           0(10),12,0(21),8,20(4),16,20,4,
    79          20(25),24(26),20(32),0,20,0,28,0,0,
    80          0(10),12,0(21),0,20(4),16,20,4 ,
    81           20(25),24(26),20(32),0,20,0,28,0,0,
    82           128(10),12,128(21),8,20(4),16,20,4,
    83           20(25),0(26),20(32),20,20,20,28,128(2),
    84           128(32),8,0,4,0,0,16,0,4,
    85           0(25),0(26),0(32),0,0,0,28,128,128
    86           %COMMENT TABLE 1 FOR NAMES --2 FOR CONSTS -- 3 FOR TEXT
    87           %COMMENT LAST 129 =TABLE FOR READ LINE KEY AS FOLLOWS.
    88           %COMMENT  0=ILLEGAL,4='''',8=SP,12=NL,16=%,20=NONALPHA,24=ALPHA
1270 @ 7974:            LINE   73 "regression-compile-tmp/imp918s.imp"
1271 @ 8012:            PUSHI  #0x00000000
1272 @ 8017:            PUSHI  #0x00000503
1273 @ 8022:            BOUNDS
1274 @ 8023:            DEF    TRTABS p1=V_008c a/tf=1b b/format=2 c/ostate=121  type=1 (integer) form=11 (array) special=1 (byte-integer) linkage=1 (own) spec=0 indirect=0 unass=1
1275 @ 8041:            PUSHI  #0x00000080
1276 @ 8046:            INIT   39
1277 @ 8049:            PUSHI  #0x00000001
1278 @ 8054:            INIT   1
1279 @ 8057:            PUSHI  #0x000000ff
1280 @ 8062:            INIT   8
1281 @ 8065:            PUSHI  #0x00000000
1282 @ 8070:            INIT   10
1283 @ 8073:            PUSHI  #0x000000ff
1284 @ 8078:            INIT   7
1285 @ 8081:            PUSHI  #0x00000000
1286 @ 8086:            INIT   26
1287 @ 8089:            PUSHI  #0x000000ff
1288 @ 8094:            INIT   6
1289 @ 8097:            PUSHI  #0x000000ff
1290 @ 8102:            INIT   26
1291 @ 8105:            PUSHI  #0x000000ff
1292 @ 8110:            INIT   133
1293 @ 8113:            PUSHI  #0x0000001c
1294 @ 8118:            INIT   34
1295 @ 8121:            PUSHI  #0x00000008
1296 @ 8126:            INIT   1
1297 @ 8129:            PUSHI  #0x0000001c
1298 @ 8134:            INIT   1
1299 @ 8137:            PUSHI  #0x00000008
1300 @ 8142:            INIT   1
1301 @ 8145:            PUSHI  #0x0000001c
1302 @ 8150:            INIT   2
1303 @ 8153:            PUSHI  #0x0000000c
1304 @ 8158:            INIT   1
1305 @ 8161:            PUSHI  #0x0000001c
1306 @ 8166:            INIT   6
1307 @ 8169:            PUSHI  #0x00000004
1308 @ 8174:            INIT   1
1309 @ 8177:            PUSHI  #0x0000001c
1310 @ 8182:            INIT   1
1311 @ 8185:            PUSHI  #0x00000000
1312 @ 8190:            INIT   10
1313 @ 8193:            PUSHI  #0x0000001c
1314 @ 8198:            INIT   8
1315 @ 8201:            PUSHI  #0x00000018
1316 @ 8206:            INIT   1
1317 @ 8209:            PUSHI  #0x0000001c
1318 @ 8214:            INIT   8
1319 @ 8217:            PUSHI  #0x00000020
1320 @ 8222:            INIT   1
1321 @ 8225:            PUSHI  #0x0000001c
1322 @ 8230:            INIT   1
1323 @ 8233:            PUSHI  #0x00000014
1324 @ 8238:            INIT   1
1325 @ 8241:            PUSHI  #0x0000001c
1326 @ 8246:            INIT   4
1327 @ 8249:            PUSHI  #0x00000024
1328 @ 8254:            INIT   1
1329 @ 8257:            PUSHI  #0x0000001c
1330 @ 8262:            INIT   5
1331 @ 8265:            PUSHI  #0x00000010
1332 @ 8270:            INIT   1
1333 @ 8273:            PUSHI  #0x0000001c
1334 @ 8278:            INIT   167
1335 @ 8281:            PUSHI  #0x00000000
1336 @ 8286:            INIT   9
1337 @ 8289:            PUSHI  #0x00000001
1338 @ 8294:            INIT   1
1339 @ 8297:            PUSHI  #0x00000000
1340 @ 8302:            INIT   49
1341 @ 8305:            PUSHI  #0x00000002
1342 @ 8310:            INIT   1
1343 @ 8313:            PUSHI  #0x00000000
1344 @ 8318:            INIT   196
1345 @ 8321:            PUSHI  #0x00000000
1346 @ 8326:            INIT   10
1347 @ 8329:            PUSHI  #0x0000000c
1348 @ 8334:            INIT   1
1349 @ 8337:            PUSHI  #0x00000000
1350 @ 8342:            INIT   21
1351 @ 8345:            PUSHI  #0x00000008
1352 @ 8350:            INIT   1
1353 @ 8353:            PUSHI  #0x00000014
1354 @ 8358:            INIT   4
1355 @ 8361:            PUSHI  #0x00000010
1356 @ 8366:            INIT   1
1357 @ 8369:            PUSHI  #0x00000014
1358 @ 8374:            INIT   1
1359 @ 8377:            PUSHI  #0x00000004
1360 @ 8382:            INIT   1
1361 @ 8385:            PUSHI  #0x00000014
1362 @ 8390:            INIT   25
1363 @ 8393:            PUSHI  #0x00000018
1364 @ 8398:            INIT   26
1365 @ 8401:            PUSHI  #0x00000014
1366 @ 8406:            INIT   32
1367 @ 8409:            PUSHI  #0x00000000
1368 @ 8414:            INIT   1
1369 @ 8417:            PUSHI  #0x00000014
1370 @ 8422:            INIT   1
1371 @ 8425:            PUSHI  #0x00000000
1372 @ 8430:            INIT   1
1373 @ 8433:            PUSHI  #0x0000001c
1374 @ 8438:            INIT   1
1375 @ 8441:            PUSHI  #0x00000000
1376 @ 8446:            INIT   1
1377 @ 8449:            PUSHI  #0x00000000
1378 @ 8454:            INIT   1
1379 @ 8457:            PUSHI  #0x00000000
1380 @ 8462:            INIT   10
1381 @ 8465:            PUSHI  #0x0000000c
1382 @ 8470:            INIT   1
1383 @ 8473:            PUSHI  #0x00000000
1384 @ 8478:            INIT   21
1385 @ 8481:            PUSHI  #0x00000000
1386 @ 8486:            INIT   1
1387 @ 8489:            PUSHI  #0x00000014
1388 @ 8494:            INIT   4
1389 @ 8497:            PUSHI  #0x00000010
1390 @ 8502:            INIT   1
1391 @ 8505:            PUSHI  #0x00000014
1392 @ 8510:            INIT   1
1393 @ 8513:            PUSHI  #0x00000004
1394 @ 8518:            INIT   1
1395 @ 8521:            PUSHI  #0x00000014
1396 @ 8526:            INIT   25
1397 @ 8529:            PUSHI  #0x00000018
1398 @ 8534:            INIT   26
1399 @ 8537:            PUSHI  #0x00000014
1400 @ 8542:            INIT   32
1401 @ 8545:            PUSHI  #0x00000000
1402 @ 8550:            INIT   1
1403 @ 8553:            PUSHI  #0x00000014
1404 @ 8558:            INIT   1
1405 @ 8561:            PUSHI  #0x00000000
1406 @ 8566:            INIT   1
1407 @ 8569:            PUSHI  #0x0000001c
1408 @ 8574:            INIT   1
1409 @ 8577:            PUSHI  #0x00000000
1410 @ 8582:            INIT   1
1411 @ 8585:            PUSHI  #0x00000000
1412 @ 8590:            INIT   1
1413 @ 8593:            PUSHI  #0x00000080
1414 @ 8598:            INIT   10
1415 @ 8601:            PUSHI  #0x0000000c
1416 @ 8606:            INIT   1
1417 @ 8609:            PUSHI  #0x00000080
1418 @ 8614:            INIT   21
1419 @ 8617:            PUSHI  #0x00000008
1420 @ 8622:            INIT   1
1421 @ 8625:            PUSHI  #0x00000014
1422 @ 8630:            INIT   4
1423 @ 8633:            PUSHI  #0x00000010
1424 @ 8638:            INIT   1
1425 @ 8641:            PUSHI  #0x00000014
1426 @ 8646:            INIT   1
1427 @ 8649:            PUSHI  #0x00000004
1428 @ 8654:            INIT   1
1429 @ 8657:            PUSHI  #0x00000014
1430 @ 8662:            INIT   25
1431 @ 8665:            PUSHI  #0x00000000
1432 @ 8670:            INIT   26
1433 @ 8673:            PUSHI  #0x00000014
1434 @ 8678:            INIT   32
1435 @ 8681:            PUSHI  #0x00000014
1436 @ 8686:            INIT   1
1437 @ 8689:            PUSHI  #0x00000014
1438 @ 8694:            INIT   1
1439 @ 8697:            PUSHI  #0x00000014
1440 @ 8702:            INIT   1
1441 @ 8705:            PUSHI  #0x0000001c
1442 @ 8710:            INIT   1
1443 @ 8713:            PUSHI  #0x00000080
1444 @ 8718:            INIT   2
1445 @ 8721:            PUSHI  #0x00000080
1446 @ 8726:            INIT   32
1447 @ 8729:            PUSHI  #0x00000008
1448 @ 8734:            INIT   1
1449 @ 8737:            PUSHI  #0x00000000
1450 @ 8742:            INIT   1
1451 @ 8745:            PUSHI  #0x00000004
1452 @ 8750:            INIT   1
1453 @ 8753:            PUSHI  #0x00000000
1454 @ 8758:            INIT   1
1455 @ 8761:            PUSHI  #0x00000000
1456 @ 8766:            INIT   1
1457 @ 8769:            PUSHI  #0x00000010
1458 @ 8774:            INIT   1
1459 @ 8777:            PUSHI  #0x00000000
1460 @ 8782:            INIT   1
1461 @ 8785:            PUSHI  #0x00000004
1462 @ 8790:            INIT   1
1463 @ 8793:            PUSHI  #0x00000000
1464 @ 8798:            INIT   25
1465 @ 8801:            PUSHI  #0x00000000
1466 @ 8806:            INIT   26
1467 @ 8809:            PUSHI  #0x00000000
1468 @ 8814:            INIT   32
1469 @ 8817:            PUSHI  #0x00000000
1470 @ 8822:            INIT   1
1471 @ 8825:            PUSHI  #0x00000000
1472 @ 8830:            INIT   1
1473 @ 8833:            PUSHI  #0x00000000
1474 @ 8838:            INIT   1
1475 @ 8841:            PUSHI  #0x0000001c
1476 @ 8846:            INIT   1
1477 @ 8849:            PUSHI  #0x00000080
1478 @ 8854:            INIT   1
1479 @ 8857:            PUSHI  #0x00000080
1480 @ 8862:            INIT   1

    89           %OWNBYTEINTEGERARRAY TYPEFLAG(1:6)=1,2,
    90                 B'1001',B'10001',B'11010',5;
1481 @ 8865:            LINE   89 "regression-compile-tmp/imp918s.imp"
1482 @ 8903:            PUSHI  #0x00000001
1483 @ 8908:            PUSHI  #0x00000006
1484 @ 8913:            BOUNDS
1485 @ 8914:            DEF    TYPEFLAG p1=V_008d a/tf=1b b/format=2 c/ostate=121  type=1 (integer) form=11 (array) special=1 (byte-integer) linkage=1 (own) spec=0 indirect=0 unass=1
1486 @ 8934:            PUSHI  #0x00000001
1487 @ 8939:            INIT   1
1488 @ 8942:            PUSHI  #0x00000002
1489 @ 8947:            INIT   1
1490 @ 8950:            PUSHI  #0x00000009
1491 @ 8955:            INIT   1
1492 @ 8958:            PUSHI  #0x00000011
1493 @ 8963:            INIT   1
1494 @ 8966:            PUSHI  #0x0000001a
1495 @ 8971:            INIT   1
1496 @ 8974:            PUSHI  #0x00000005
1497 @ 8979:            INIT   1

    91           %OWNSHORTINTEGERARRAY WARNINGS(0:30)
1498 @ 8982:            LINE   91 "regression-compile-tmp/imp918s.imp"
1499 @ 9020:            PUSHI  #0x00000000
1500 @ 9025:            PUSHI  #0x0000001e
1501 @ 9030:            BOUNDS
1502 @ 9031:            DEF    WARNINGS p1=V_008e a/tf=1b b/format=3 c/ostate=121  type=1 (integer) form=11 (array) special=2 (short-integer) linkage=1 (own) spec=0 indirect=0 unass=1
1503 @ 9051:            INIT   31

    92           %OWNINTEGER MASK1=X'0F0F0F0F'
1504 @ 9054:            LINE   92 "regression-compile-tmp/imp918s.imp"
1505 @ 9092:            PUSHI  #0x0f0f0f0f
1506 @ 9097:            DEF    MASK1 p1=V_008f a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
1507 @ 9114:            INIT   1

    93           %OWNINTEGER MASK2=X'0F0F0F0F'
1508 @ 9117:            LINE   93 "regression-compile-tmp/imp918s.imp"
1509 @ 9155:            PUSHI  #0x0f0f0f0f
1510 @ 9160:            DEF    MASK2 p1=V_0090 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
1511 @ 9177:            INIT   1

    94           %OWNINTEGER PI1=X'413243F6', PI2=X'A8885A31'
1512 @ 9180:            LINE   94 "regression-compile-tmp/imp918s.imp"
1513 @ 9218:            PUSHI  #0x413243f6
1514 @ 9223:            DEF    PI1 p1=V_0091 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
1515 @ 9238:            INIT   1
1516 @ 9241:            PUSHI  #0xa8885a31
1517 @ 9246:            DEF    PI2 p1=V_0092 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
1518 @ 9261:            INIT   1

    95           %CONSTINTEGER RELEASE=9,VERSION=18
1519 @ 9264:            LINE   95 "regression-compile-tmp/imp918s.imp"

    96           %CONSTSHORTINTEGER MAXLEVELS=11
1520 @ 9302:            LINE   96 "regression-compile-tmp/imp918s.imp"

    97           %CONSTSHORTINTEGER PTBASE=256
1521 @ 9340:            LINE   97 "regression-compile-tmp/imp918s.imp"

    98           %CONSTSHORTINTEGER SNPT=10006;        ! SPECIALNAME PTYPE
1522 @ 9378:            LINE   98 "regression-compile-tmp/imp918s.imp"

    99           %CONSTINTEGER CODER=12
1523 @ 9416:            LINE   99 "regression-compile-tmp/imp918s.imp"

   100           %CONSTINTEGER  WSPR =11
1524 @ 9454:            LINE   100 "regression-compile-tmp/imp918s.imp"

   101           %CONSTINTEGER  GLA =13
1525 @ 9492:            LINE   101 "regression-compile-tmp/imp918s.imp"

   102           %OWNINTEGER HH1=X'0047002F',HH2=X'00610035'
   103  !
   104  ! THE FOLLOWING FUNNY WORDS ARE CYCLE CONTROL WORDS FOR SEARCHING THE
   105  ! LIST OF FREE REGISTERS. THE TOP HALF IS INC(SIGNED) AND THE BOTTOM
   106  ! TWO BYTES ARE START AND FINISH RESPECTIVELY
   107  !
1526 @ 9530:            LINE   102 "regression-compile-tmp/imp918s.imp"
1527 @ 9568:            PUSHI  #0x0047002f
1528 @ 9573:            DEF    HH1 p1=V_0093 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
1529 @ 9588:            INIT   1
1530 @ 9591:            PUSHI  #0x00610035
1531 @ 9596:            DEF    HH2 p1=V_0094 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
1532 @ 9611:            INIT   1

   108           %CONSTINTEGER GR0   =X'10F1E';   !   15,1,14
1533 @ 9614:            LINE   108 "regression-compile-tmp/imp918s.imp"

   109           %CONSTINTEGER GR1   =X'1010F';   !   1,1,15
1534 @ 9652:            LINE   109 "regression-compile-tmp/imp918s.imp"

   110           %CONSTINTEGER FR0   =X'FFFE1610';!   6,-2,0
1535 @ 9690:            LINE   110 "regression-compile-tmp/imp918s.imp"

   111           %CONSTINTEGER ADDREG=X'FFFF0E01';!  14,-1,1
1536 @ 9728:            LINE   111 "regression-compile-tmp/imp918s.imp"

   112           %CONSTINTEGER SAFE  =X'FFFF0E04';!  14,-1,4
1537 @ 9766:            LINE   112 "regression-compile-tmp/imp918s.imp"

   113           %CONSTINTEGER CLMABL=X'1050E';   !  5,1,14
1538 @ 9804:            LINE   113 "regression-compile-tmp/imp918s.imp"

   114           %SHORTINTEGER CCSIZE,ARSIZE,DSIZE,DUMMY FORMAT
1539 @ 9842:            LINE   114 "regression-compile-tmp/imp918s.imp"
1540 @ 9880:            DEF    CCSIZE p1=V_0095 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1541 @ 9898:            DEF    ARSIZE p1=V_0096 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1542 @ 9916:            DEF    DSIZE p1=V_0097 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1543 @ 9933:            DEF    DUMMYFORMAT p1=V_0098 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0

   115           %INTEGER ASL,NNAMES,FLAG,GLAFLAG
1544 @ 9956:            LINE   115 "regression-compile-tmp/imp918s.imp"
1545 @ 9994:            DEF    ASL p1=V_0099 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
1546 @ 10009:            DEF    NNAMES p1=V_009a 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
1547 @ 10027:            DEF    FLAG p1=V_009b 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
1548 @ 10043:            DEF    GLAFLAG p1=V_009c 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

   116           %INTEGER CABUF,PPCURR,LCA,OLDLINE,LINE,LENGTH,LENGTHP, %C
   117                 N0,NUM,SNUM,RLEVEL,NMAX,LOPCODE,CONSTPTR, %C
   118                 PLABEL,LEVEL,CA,MARKER1,MARKER2,LABSET,CCSTATE, %C
   119                 CYCLE NUM,CSAVED,CUR CYC VAR,CYC REGS,CYC BITS,CYC ASS
   120  !
1549 @ 10062:            LINE   116 "regression-compile-tmp/imp918s.imp"
1550 @ 10100:            DEF    CABUF p1=V_009d 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
1551 @ 10117:            DEF    PPCURR p1=V_009e 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
1552 @ 10135:            DEF    LCA p1=V_009f 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
1553 @ 10150:            DEF    OLDLINE p1=V_00a0 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
1554 @ 10169:            DEF    LINE p1=V_00a1 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
1555 @ 10185:            DEF    LENGTH p1=V_00a2 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
1556 @ 10203:            DEF    LENGTHP p1=V_00a3 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
1557 @ 10222:            DEF    N0 p1=V_00a4 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
1558 @ 10236:            DEF    NUM p1=V_00a5 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 @ 10251:            DEF    SNUM p1=V_00a6 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 @ 10267:            DEF    RLEVEL p1=V_00a7 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
1561 @ 10285:            DEF    NMAX p1=V_00a8 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
1562 @ 10301:            DEF    LOPCODE p1=V_00a9 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
1563 @ 10320:            DEF    CONSTPTR p1=V_00aa 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
1564 @ 10340:            DEF    PLABEL p1=V_00ab 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
1565 @ 10358:            DEF    LEVEL p1=V_00ac 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
1566 @ 10375:            DEF    CA p1=V_00ad 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
1567 @ 10389:            DEF    MARKER1 p1=V_00ae 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
1568 @ 10408:            DEF    MARKER2 p1=V_00af 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
1569 @ 10427:            DEF    LABSET p1=V_00b0 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
1570 @ 10445:            DEF    CCSTATE p1=V_00b1 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
1571 @ 10464:            DEF    CYCLENUM p1=V_00b2 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
1572 @ 10484:            DEF    CSAVED p1=V_00b3 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
1573 @ 10502:            DEF    CURCYCVAR p1=V_00b4 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
1574 @ 10523:            DEF    CYCREGS p1=V_00b5 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
1575 @ 10542:            DEF    CYCBITS p1=V_00b6 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
1576 @ 10561:            DEF    CYCASS p1=V_00b7 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

   121           %BYTEINTEGER FFLAG,CHECKS,SBFLAG,LAST INST,FAULTY,MONE, %C
   122                 HIT,LET,DIAGS2,LIST,ALLLONG,INHCODE,LINENOS, %C
   123                 DIAGS1,IMPS,CHECKSP,CTYPE,DCOMP,COMPILER,CPRMODE, %C
   124                 UNASS,PRINTMAP,BFFLAG,NMDECS
   125  !
1577 @ 10579:            LINE   121 "regression-compile-tmp/imp918s.imp"
1578 @ 10617:            DEF    FFLAG p1=V_00b8 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1579 @ 10634:            DEF    CHECKS p1=V_00b9 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1580 @ 10652:            DEF    SBFLAG p1=V_00ba a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1581 @ 10670:            DEF    LASTINST p1=V_00bb a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1582 @ 10690:            DEF    FAULTY p1=V_00bc a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1583 @ 10708:            DEF    MONE p1=V_00bd a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1584 @ 10724:            DEF    HIT p1=V_00be a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1585 @ 10739:            DEF    LET p1=V_00bf a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1586 @ 10754:            DEF    DIAGS2 p1=V_00c0 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1587 @ 10772:            DEF    LIST p1=V_00c1 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1588 @ 10788:            DEF    ALLLONG p1=V_00c2 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1589 @ 10807:            DEF    INHCODE p1=V_00c3 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1590 @ 10826:            DEF    LINENOS p1=V_00c4 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1591 @ 10845:            DEF    DIAGS1 p1=V_00c5 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1592 @ 10863:            DEF    IMPS p1=V_00c6 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1593 @ 10879:            DEF    CHECKSP p1=V_00c7 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1594 @ 10898:            DEF    CTYPE p1=V_00c8 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1595 @ 10915:            DEF    DCOMP p1=V_00c9 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1596 @ 10932:            DEF    COMPILER p1=V_00ca a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1597 @ 10952:            DEF    CPRMODE p1=V_00cb a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1598 @ 10971:            DEF    UNASS p1=V_00cc a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1599 @ 10988:            DEF    PRINTMAP p1=V_00cd a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1600 @ 11008:            DEF    BFFLAG p1=V_00ce a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1601 @ 11026:            DEF    NMDECS p1=V_00cf a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0

   126           %LONGREAL CVALUE,IMAX
1602 @ 11044:            LINE   126 "regression-compile-tmp/imp918s.imp"
1603 @ 11082:            DEF    CVALUE p1=V_00d0 a/tf=21 b/format=4 c/ostate=0  type=2 (real) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
1604 @ 11100:            DEF    IMAX p1=V_00d1 a/tf=21 b/format=4 c/ostate=0  type=2 (real) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   127           %INTEGER MASK,RBASE,SFLABEL,NEXT,N,MAX ULAB,GSAVED,CODEBASE, %C
   128                 P,Q,R,S,TTOPUT,U,V,NEST,FNAME,NOT USED,FILEPTR, %C
   129                 FILE END,SSTL,QMAX,STMTS,MAINEP1,MAINEP2,MAINEP3, %C
   130                 GLACA,GLACURR,GLACABUF,CYC BASE,CYC ADDR
   131  !
1605 @ 11116:            LINE   127 "regression-compile-tmp/imp918s.imp"
1606 @ 11154:            DEF    MASK p1=V_00d2 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
1607 @ 11170:            DEF    RBASE p1=V_00d3 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
1608 @ 11187:            DEF    SFLABEL p1=V_00d4 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
1609 @ 11206:            DEF    NEXT p1=V_00d5 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
1610 @ 11222:            DEF    N p1=V_00d6 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
1611 @ 11235:            DEF    MAXULAB p1=V_00d7 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
1612 @ 11254:            DEF    GSAVED p1=V_00d8 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
1613 @ 11272:            DEF    CODEBASE p1=V_00d9 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
1614 @ 11292:            DEF    P p1=V_00da 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
1615 @ 11305:            DEF    Q p1=V_00db 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
1616 @ 11318:            DEF    R p1=V_00dc 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
1617 @ 11331:            DEF    S p1=V_00dd 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
1618 @ 11344:            DEF    TTOPUT p1=V_00de 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
1619 @ 11362:            DEF    U p1=V_00df 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
1620 @ 11375:            DEF    V p1=V_00e0 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
1621 @ 11388:            DEF    NEST p1=V_00e1 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
1622 @ 11404:            DEF    FNAME p1=V_00e2 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
1623 @ 11421:            DEF    NOTUSED p1=V_00e3 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
1624 @ 11440:            DEF    FILEPTR p1=V_00e4 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
1625 @ 11459:            DEF    FILEEND p1=V_00e5 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
1626 @ 11478:            DEF    SSTL p1=V_00e6 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
1627 @ 11494:            DEF    QMAX p1=V_00e7 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
1628 @ 11510:            DEF    STMTS p1=V_00e8 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
1629 @ 11527:            DEF    MAINEP1 p1=V_00e9 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
1630 @ 11546:            DEF    MAINEP2 p1=V_00ea 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
1631 @ 11565:            DEF    MAINEP3 p1=V_00eb 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
1632 @ 11584:            DEF    GLACA p1=V_00ec 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
1633 @ 11601:            DEF    GLACURR p1=V_00ed 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
1634 @ 11620:            DEF    GLACABUF p1=V_00ee 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
1635 @ 11640:            DEF    CYCBASE p1=V_00ef 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
1636 @ 11659:            DEF    CYCADDR p1=V_00f0 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

   132           %SHORTINTEGER RELHEAD,EPLINK,LEVELINF,DVHEAD,GLAHOLES, %C
   133                 CONSTL2,CONSTL4,CONSTL6,CONSTL8,RNEXT
   134  !
   135  ! THIS IS THE LIMIT OF INITIALISATION OF SCALARS TO ZERO
   136  !
1637 @ 11678:            LINE   132 "regression-compile-tmp/imp918s.imp"
1638 @ 11716:            DEF    RELHEAD p1=V_00f1 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1639 @ 11735:            DEF    EPLINK p1=V_00f2 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1640 @ 11753:            DEF    LEVELINF p1=V_00f3 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1641 @ 11773:            DEF    DVHEAD p1=V_00f4 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1642 @ 11791:            DEF    GLAHOLES p1=V_00f5 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1643 @ 11811:            DEF    CONSTL2 p1=V_00f6 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1644 @ 11830:            DEF    CONSTL4 p1=V_00f7 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1645 @ 11849:            DEF    CONSTL6 p1=V_00f8 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1646 @ 11868:            DEF    CONSTL8 p1=V_00f9 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1647 @ 11887:            DEF    RNEXT p1=V_00fa a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0

   137           %INTEGER QUICK,MARGIN,IOCP1,IOCP2,IOCP3,XLABEL,IMPMON1, %C
   138                 IMPMON2,IMPMON3,STMTSHELD,STOPSTM,TOPPTR,PREV3CL,FILEADDR
1648 @ 11904:            LINE   137 "regression-compile-tmp/imp918s.imp"
1649 @ 11942:            DEF    QUICK p1=V_00fb 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
1650 @ 11959:            DEF    MARGIN p1=V_00fc 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
1651 @ 11977:            DEF    IOCP1 p1=V_00fd 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
1652 @ 11994:            DEF    IOCP2 p1=V_00fe 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
1653 @ 12011:            DEF    IOCP3 p1=V_00ff 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
1654 @ 12028:            DEF    XLABEL p1=V_0100 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
1655 @ 12046:            DEF    IMPMON1 p1=V_0101 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
1656 @ 12065:            DEF    IMPMON2 p1=V_0102 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
1657 @ 12084:            DEF    IMPMON3 p1=V_0103 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
1658 @ 12103:            DEF    STMTSHELD p1=V_0104 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
1659 @ 12124:            DEF    STOPSTM p1=V_0105 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
1660 @ 12143:            DEF    TOPPTR p1=V_0106 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
1661 @ 12161:            DEF    PREV3CL p1=V_0107 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
1662 @ 12180:            DEF    FILEADDR p1=V_0108 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

   139           %SHORTINTEGERARRAY STPTRS (1:15)
1663 @ 12200:            LINE   139 "regression-compile-tmp/imp918s.imp"
1664 @ 12238:            DEF    STPTRS p1=V_0109 a/tf=1b b/format=3 c/ostate=100  type=1 (integer) form=11 (array) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1665 @ 12256:            PUSHI  #0x00000001
1666 @ 12261:            PUSHI  #0x0000000f
1667 @ 12266:            DIM    0001 0001

   140           %ROUTINESPEC FETCH AR
1668 @ 12272:            LINE   140 "regression-compile-tmp/imp918s.imp"
1669 @ 12310:            DEF    FETCHAR (_lev0id0_FETCHAR) p1=V_010a 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
1670 @ 12329:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
1671 @ 12330:            FINISH ) {lev=1}

   141           %ROUTINESPEC STORE AR(%INTEGERNAME I)
1672 @ 12331:            LINE   141 "regression-compile-tmp/imp918s.imp"
1673 @ 12369:            DEF    STOREAR (_lev0id0_STOREAR) p1=V_010b 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
1674 @ 12388:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
1675 @ 12389:               DEF    I p1=V_010c a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
1676 @ 12402:            FINISH ) {lev=1}

   142           %INTEGERARRAY REGISTER,GRUSE,GRINF,GRAT(0:22)
1677 @ 12403:            LINE   142 "regression-compile-tmp/imp918s.imp"
1678 @ 12441:            DEF    REGISTER p1=V_010c a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
1679 @ 12461:            DEF    GRUSE p1=V_010d a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
1680 @ 12478:            DEF    GRINF p1=V_010e a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
1681 @ 12495:            DEF    GRAT p1=V_010f a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
1682 @ 12511:            PUSHI  #0x00000000
1683 @ 12516:            PUSHI  #0x00000016
1684 @ 12521:            DIM    0001 0004

   143           %SHORTINTEGERARRAY A(-7:800)
1685 @ 12527:            LINE   143 "regression-compile-tmp/imp918s.imp"
1686 @ 12565:            DEF    A p1=V_0110 a/tf=1b b/format=3 c/ostate=100  type=1 (integer) form=11 (array) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1687 @ 12578:            PUSHI  #0x00000007
1688 @ 12583:            NEGATE
1689 @ 12584:            PUSHI  #0x00000320
1690 @ 12589:            DIM    0001 0001

   144           %INTEGERARRAY SET(0:11)
1691 @ 12595:            LINE   144 "regression-compile-tmp/imp918s.imp"
1692 @ 12633:            DEF    SET p1=V_0111 a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
1693 @ 12648:            PUSHI  #0x00000000
1694 @ 12653:            PUSHI  #0x0000000b
1695 @ 12658:            DIM    0001 0001

   145           %SHORTINTEGERARRAY CYCLE,LABEL,SBR,L,M,NAMES(0:11)
1696 @ 12664:            LINE   145 "regression-compile-tmp/imp918s.imp"
1697 @ 12702:            DEF    CYCLE p1=V_0112 a/tf=1b b/format=3 c/ostate=100  type=1 (integer) form=11 (array) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1698 @ 12719:            DEF    LABEL p1=V_0113 a/tf=1b b/format=3 c/ostate=100  type=1 (integer) form=11 (array) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1699 @ 12736:            DEF    SBR p1=V_0114 a/tf=1b b/format=3 c/ostate=100  type=1 (integer) form=11 (array) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1700 @ 12751:            DEF    L p1=V_0115 a/tf=1b b/format=3 c/ostate=100  type=1 (integer) form=11 (array) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1701 @ 12764:            DEF    M p1=V_0116 a/tf=1b b/format=3 c/ostate=100  type=1 (integer) form=11 (array) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1702 @ 12777:            DEF    NAMES p1=V_0117 a/tf=1b b/format=3 c/ostate=100  type=1 (integer) form=11 (array) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1703 @ 12794:            PUSHI  #0x00000000
1704 @ 12799:            PUSHI  #0x0000000b
1705 @ 12804:            DIM    0001 0006

   146           %SHORTINTEGERARRAY AVLWSP(0:7,0:MAXLEVELS)
1706 @ 12810:            LINE   146 "regression-compile-tmp/imp918s.imp"
1707 @ 12848:            DEF    AVLWSP p1=V_0118 a/tf=1b b/format=3 c/ostate=100  type=1 (integer) form=11 (array) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1708 @ 12866:            PUSHI  #0x00000000
1709 @ 12871:            PUSHI  #0x00000007
1710 @ 12876:            PUSHI  #0x00000000
1711 @ 12881:            PUSHI  #0x0000000b
1712 @ 12886:            DIM    0002 0001

   147           %INTEGERARRAY UVARREG(5:14)
1713 @ 12892:            LINE   147 "regression-compile-tmp/imp918s.imp"
1714 @ 12930:            DEF    UVARREG p1=V_0119 a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
1715 @ 12949:            PUSHI  #0x00000005
1716 @ 12954:            PUSHI  #0x0000000e
1717 @ 12959:            DIM    0001 0001

   148           %RECORDFORMAT OPTFORM(%BYTEINTEGER COUNT,TYPE,%INTEGER BITS,%C
   149                    PTYPE,XTRA)
1718 @ 12965:            LINE   148 "regression-compile-tmp/imp918s.imp"
1719 @ 13003:            DEF    OPTFORM p1=V_011a a/tf=44 b/format=11a c/ostate=0  type=4 (record) form=4 (record-format) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
1720 @ 13022:            START  ( RECORDFORMAT
1721 @ 13023:               DEF    COUNT p1=V_0000 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1722 @ 13040:               DEF    TYPE p1=V_0000 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1723 @ 13056:               DEF    BITS p1=V_0000 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
1724 @ 13072:               DEF    PTYPE p1=V_0000 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
1725 @ 13089:               DEF    XTRA p1=V_0000 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
1726 @ 13105:            FINISH ) 

   150           %RECORD(OPTFORM)%ARRAY OPTINF(0:25)
1727 @ 13106:            LINE   150 "regression-compile-tmp/imp918s.imp"
1728 @ 13144:            DEF    OPTINF p1=V_011b a/tf=4b b/format=11a c/ostate=100  type=4 (record) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
1729 @ 13162:            PUSHI  #0x00000000
1730 @ 13167:            PUSHI  #0x00000019
1731 @ 13172:            DIM    0001 0001

   151           %INTEGER OPTPTR
1732 @ 13178:            LINE   151 "regression-compile-tmp/imp918s.imp"
1733 @ 13216:            DEF    OPTPTR p1=V_011c 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           %BYTEINTEGERARRAY GLABUF,CODE(0:268)
1734 @ 13234:            LINE   152 "regression-compile-tmp/imp918s.imp"
1735 @ 13272:            DEF    GLABUF p1=V_011d a/tf=1b b/format=2 c/ostate=100  type=1 (integer) form=11 (array) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1736 @ 13290:            DEF    CODE p1=V_011e a/tf=1b b/format=2 c/ostate=100  type=1 (integer) form=11 (array) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1737 @ 13306:            PUSHI  #0x00000000
1738 @ 13311:            PUSHI  #0x0000010c
1739 @ 13316:            DIM    0001 0002

   153           %SYSTEMINTEGERMAPSPEC COMREG(%INTEGER N)
   154           !*INSERT
1740 @ 13322:            LINE   153 "regression-compile-tmp/imp918s.imp"
1741 @ 13360:            DEF    COMREG (_lev0id0_COMREG) p1=V_011f a/tf=19 b/format=1 c/ostate=2c  type=1 (integer) form=9 (map) special=0 (<special:0>) linkage=4 (system) spec=1 indirect=0 unass=1
1742 @ 13378:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
1743 @ 13379:               DEF    N p1=V_0120 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
1744 @ 13392:            FINISH ) {lev=1}

   155           %BEGIN
   156           {%SHORTROUTINE}
1745 @ 13393:            LINE   155 "regression-compile-tmp/imp918s.imp"
1746 @ 13431:            BEGIN  _lev0id0_lev1id1 {lev=1 --> 2}

   157           %INTEGER FREE,TOTAL
   158  ! BLOCK TO ALLOCATE AVAILABLE STACK SPACE TO THE MAIN ARRAYS
1747 @ 13432:               LINE   157 "regression-compile-tmp/imp918s.imp"
1748 @ 13470:               DEF    FREE p1=V_0120 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
1749 @ 13486:               DEF    TOTAL p1=V_0121 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

   159           FILE ADDR=COMREG(46)
1750 @ 13503:               LINE   159 "regression-compile-tmp/imp918s.imp"
1751 @ 13541:               PUSH   FILEADDR
1752 @ 13544:               PUSH   COMREG
1753 @ 13547:               PUSHI  #0x0000002e
1754 @ 13552:               ASSPAR
1755 @ 13553:               CALL  
1756 @ 13554:               ASSVAL

   160           %IF FILE ADDR#0 %THEN %START;  ! ON EMAS
1757 @ 13555:               LINE   160 "regression-compile-tmp/imp918s.imp"
1758 @ 13593:               PUSH   FILEADDR
1759 @ 13596:               PUSHI  #0x00000000
1760 @ 13601:               JUMPIF = L_0004

   161              TOTAL=INTEGER(FILEADDR); NNAMES=255
1761 @ 13605:               LINE   161 "regression-compile-tmp/imp918s.imp"
1762 @ 13643:               PUSH   TOTAL
1763 @ 13646:               PUSH   INTEGER
1764 @ 13649:               PUSH   FILEADDR
1765 @ 13652:               ASSPAR
1766 @ 13653:               CALL  
1767 @ 13654:               ASSVAL
1768 @ 13655:               LINE   161 "regression-compile-tmp/imp918s.imp"
1769 @ 13693:               PUSH   NNAMES
1770 @ 13696:               PUSHI  #0x000000ff
1771 @ 13701:               ASSVAL

   162              %IF TOTAL>8000 %THEN NNAMES=511
1772 @ 13702:               LINE   162 "regression-compile-tmp/imp918s.imp"
1773 @ 13740:               PUSH   TOTAL
1774 @ 13743:               PUSHI  #0x00001f40
1775 @ 13748:               JUMPIF <= L_0007
1776 @ 13752:               PUSH   NNAMES
1777 @ 13755:               PUSHI  #0x000001ff
1778 @ 13760:               ASSVAL
1779 @ 13761:               LOCATE L_0007

   163              %IF TOTAL>32000 %THEN NNAMES=1023
1780 @ 13764:               LINE   163 "regression-compile-tmp/imp918s.imp"
1781 @ 13802:               PUSH   TOTAL
1782 @ 13805:               PUSHI  #0x00007d00
1783 @ 13810:               JUMPIF <= L_0007
1784 @ 13814:               PUSH   NNAMES
1785 @ 13817:               PUSHI  #0x000003ff
1786 @ 13822:               ASSVAL
1787 @ 13823:               LOCATE L_0007

   164              %IF TOTAL>409600 %OR COMREG(27)&8#0 %THEN NNAMES=2047
1788 @ 13826:               LINE   164 "regression-compile-tmp/imp918s.imp"
1789 @ 13864:               PUSH   TOTAL
1790 @ 13867:               PUSHI  #0x00064000
1791 @ 13872:               JUMPIF > L_0008
1792 @ 13876:               PUSH   COMREG
1793 @ 13879:               PUSHI  #0x0000001b
1794 @ 13884:               ASSPAR
1795 @ 13885:               CALL  
1796 @ 13886:               PUSHI  #0x00000008
1797 @ 13891:               AND   
1798 @ 13892:               PUSHI  #0x00000000
1799 @ 13897:               JUMPIF = L_0007
1800 @ 13901:               LOCATE L_0008
1801 @ 13904:               PUSH   NNAMES
1802 @ 13907:               PUSHI  #0x000007ff
1803 @ 13912:               ASSVAL
1804 @ 13913:               LOCATE L_0007

   165              DSIZE=7*NNAMES; ASL=DSIZE<<2
1805 @ 13916:               LINE   165 "regression-compile-tmp/imp918s.imp"
1806 @ 13954:               PUSH   DSIZE
1807 @ 13957:               PUSHI  #0x00000007
1808 @ 13962:               PUSH   NNAMES
1809 @ 13965:               MUL   
1810 @ 13966:               ASSVAL
1811 @ 13967:               LINE   165 "regression-compile-tmp/imp918s.imp"
1812 @ 14005:               PUSH   ASL
1813 @ 14008:               PUSH   DSIZE
1814 @ 14011:               PUSHI  #0x00000002
1815 @ 14016:               LSH   
1816 @ 14017:               ASSVAL

   166              CCSIZE=100+NNAMES; ->Label2
1817 @ 14018:               LINE   166 "regression-compile-tmp/imp918s.imp"
1818 @ 14056:               PUSH   CCSIZE
1819 @ 14059:               PUSHI  #0x00000064
1820 @ 14064:               PUSH   NNAMES
1821 @ 14067:               ADD   
1822 @ 14068:               ASSVAL
1823 @ 14069:               LINE   166 "regression-compile-tmp/imp918s.imp"
1824 @ 14107:               JUMP   L_0122

   167           %FINISH
1825 @ 14110:               LINE   167 "regression-compile-tmp/imp918s.imp"
1826 @ 14148:               LOCATE L_0004

   168           FREE=COMREG(1)-ADDR(TOTAL)-6000; ! ON IBM 370
1827 @ 14151:               LINE   168 "regression-compile-tmp/imp918s.imp"
1828 @ 14189:               PUSH   FREE
1829 @ 14192:               PUSH   COMREG
1830 @ 14195:               PUSHI  #0x00000001
1831 @ 14200:               ASSPAR
1832 @ 14201:               CALL  
1833 @ 14202:               PUSH   ADDR
1834 @ 14205:               PUSH   TOTAL
1835 @ 14208:               ASSPAR
1836 @ 14209:               CALL  
1837 @ 14210:               SUB   
1838 @ 14211:               PUSHI  #0x00001770
1839 @ 14216:               SUB   
1840 @ 14217:               ASSVAL

   169           %CYCLE I=2,1,4;   ! ALLOWS 255,511,1023 OR 2047 NAMES
1841 @ 14218:               LINE   169 "regression-compile-tmp/imp918s.imp"
1842 @ 14256:               PUSH   I
1843 @ 14259:               PUSHI  #0x00000001
1844 @ 14264:               PUSHI  #0x00000004
1845 @ 14269:               PUSHI  #0x00000002
1846 @ 14274:               FOR    L_0003

   170              NNAMES=128*2^^I-1
1847 @ 14277:               LINE   170 "regression-compile-tmp/imp918s.imp"
1848 @ 14315:               PUSH   NNAMES
1849 @ 14318:               PUSHI  #0x00000080
1850 @ 14323:               PUSHI  #0x00000002
1851 @ 14328:               PUSH   I
1852 @ 14331:               IEXP  
1853 @ 14332:               MUL   
1854 @ 14333:               PUSHI  #0x00000001
1855 @ 14338:               SUB   
1856 @ 14339:               ASSVAL

   171              DSIZE=7*NNAMES
1857 @ 14340:               LINE   171 "regression-compile-tmp/imp918s.imp"
1858 @ 14378:               PUSH   DSIZE
1859 @ 14381:               PUSHI  #0x00000007
1860 @ 14386:               PUSH   NNAMES
1861 @ 14389:               MUL   
1862 @ 14390:               ASSVAL

   172              ASL=DSIZE<<2
1863 @ 14391:               LINE   172 "regression-compile-tmp/imp918s.imp"
1864 @ 14429:               PUSH   ASL
1865 @ 14432:               PUSH   DSIZE
1866 @ 14435:               PUSHI  #0x00000002
1867 @ 14440:               LSH   
1868 @ 14441:               ASSVAL

   173              CCSIZE=250+100*I
1869 @ 14442:               LINE   173 "regression-compile-tmp/imp918s.imp"
1870 @ 14480:               PUSH   CCSIZE
1871 @ 14483:               PUSHI  #0x000000fa
1872 @ 14488:               PUSHI  #0x00000064
1873 @ 14493:               PUSH   I
1874 @ 14496:               MUL   
1875 @ 14497:               ADD   
1876 @ 14498:               ASSVAL

   174              TOTAL=CCSIZE+ASL+DSIZE<<1
1877 @ 14499:               LINE   174 "regression-compile-tmp/imp918s.imp"
1878 @ 14537:               PUSH   TOTAL
1879 @ 14540:               PUSH   CCSIZE
1880 @ 14543:               PUSH   ASL
1881 @ 14546:               ADD   
1882 @ 14547:               PUSH   DSIZE
1883 @ 14550:               PUSHI  #0x00000001
1884 @ 14555:               LSH   
1885 @ 14556:               ADD   
1886 @ 14557:               ASSVAL

   175              ->Label1 %IF TOTAL>FREE
1887 @ 14558:               LINE   175 "regression-compile-tmp/imp918s.imp"
1888 @ 14596:               PUSH   TOTAL
1889 @ 14599:               PUSH   FREE
1890 @ 14602:               JUMPIF <= L_0007
1891 @ 14606:               JUMP   L_0123
1892 @ 14609:               LOCATE L_0007

   176           %REPEAT
1893 @ 14612:               LINE   176 "regression-compile-tmp/imp918s.imp"
1894 @ 14650:               REPEAT L_0003
1895 @ 14653:               LOCATE L_0004

   177           ->Label2
1896 @ 14656:               LINE   177 "regression-compile-tmp/imp918s.imp"
1897 @ 14694:               JUMP   L_0122

   178  Label1:       CCSIZE=CCSIZE-100
1898 @ 14697:               LINE   178 "regression-compile-tmp/imp918s.imp"
1899 @ 14735:               LABEL  L_0123
1900 @ 14738:               LINE   178 "regression-compile-tmp/imp918s.imp"
1901 @ 14776:               PUSH   CCSIZE
1902 @ 14779:               PUSH   CCSIZE
1903 @ 14782:               PUSHI  #0x00000064
1904 @ 14787:               SUB   
1905 @ 14788:               ASSVAL

   179           NNAMES=NNAMES>>1
1906 @ 14789:               LINE   179 "regression-compile-tmp/imp918s.imp"
1907 @ 14827:               PUSH   NNAMES
1908 @ 14830:               PUSH   NNAMES
1909 @ 14833:               PUSHI  #0x00000001
1910 @ 14838:               RSH   
1911 @ 14839:               ASSVAL

   180           ASL=(ASL>>1+(FREE-CCSIZE-DSIZE))//2;! HALF 'EXTRA' SPACE TO ASL
1912 @ 14840:               LINE   180 "regression-compile-tmp/imp918s.imp"
1913 @ 14878:               PUSH   ASL
1914 @ 14881:               PUSH   ASL
1915 @ 14884:               PUSHI  #0x00000001
1916 @ 14889:               RSH   
1917 @ 14890:               PUSH   FREE
1918 @ 14893:               PUSH   CCSIZE
1919 @ 14896:               SUB   
1920 @ 14897:               PUSH   DSIZE
1921 @ 14900:               SUB   
1922 @ 14901:               ADD   
1923 @ 14902:               PUSHI  #0x00000002
1924 @ 14907:               QUOT  
1925 @ 14908:               ASSVAL

   181           DSIZE=DSIZE>>1
1926 @ 14909:               LINE   181 "regression-compile-tmp/imp918s.imp"
1927 @ 14947:               PUSH   DSIZE
1928 @ 14950:               PUSH   DSIZE
1929 @ 14953:               PUSHI  #0x00000001
1930 @ 14958:               RSH   
1931 @ 14959:               ASSVAL

   182  Label2:       ASL=32760%IF ASL>32760
1932 @ 14960:               LINE   182 "regression-compile-tmp/imp918s.imp"
1933 @ 14998:               LABEL  L_0122
1934 @ 15001:               LINE   182 "regression-compile-tmp/imp918s.imp"
1935 @ 15039:               PUSH   ASL
1936 @ 15042:               PUSHI  #0x00007ff8
1937 @ 15047:               JUMPIF <= L_0004
1938 @ 15051:               PUSH   ASL
1939 @ 15054:               PUSHI  #0x00007ff8
1940 @ 15059:               ASSVAL
1941 @ 15060:               LOCATE L_0004

   183           ASL=ASL&X'FFFFFFF0'
1942 @ 15063:               LINE   183 "regression-compile-tmp/imp918s.imp"
1943 @ 15101:               PUSH   ASL
1944 @ 15104:               PUSH   ASL
1945 @ 15107:               PUSHI  #0xfffffff0
1946 @ 15112:               AND   
1947 @ 15113:               ASSVAL

   184           %END
1948 @ 15114:               LINE   184 "regression-compile-tmp/imp918s.imp"
1949 @ 15152:            END    _lev0id0_lev1id1 {lev=2 --> 1}

   185          %BYTEINTEGERARRAY CC(0:CCSIZE+10), %C
   186              ASLIST(0:ASL+32),LETT(0:DSIZE+20)
1950 @ 15153:            LINE   185 "regression-compile-tmp/imp918s.imp"
1951 @ 15191:            DEF    CC p1=V_0120 a/tf=1b b/format=2 c/ostate=100  type=1 (integer) form=11 (array) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1952 @ 15205:            PUSHI  #0x00000000
1953 @ 15210:            PUSH   CCSIZE
1954 @ 15213:            PUSHI  #0x0000000a
1955 @ 15218:            ADD   
1956 @ 15219:            DIM    0001 0001
1957 @ 15225:            DEF    ASLIST p1=V_0121 a/tf=1b b/format=2 c/ostate=100  type=1 (integer) form=11 (array) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1958 @ 15243:            PUSHI  #0x00000000
1959 @ 15248:            PUSH   ASL
1960 @ 15251:            PUSHI  #0x00000020
1961 @ 15256:            ADD   
1962 @ 15257:            DIM    0001 0001
1963 @ 15263:            DEF    LETT p1=V_0122 a/tf=1b b/format=2 c/ostate=100  type=1 (integer) form=11 (array) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1964 @ 15279:            PUSHI  #0x00000000
1965 @ 15284:            PUSH   DSIZE
1966 @ 15287:            PUSHI  #0x00000014
1967 @ 15292:            ADD   
1968 @ 15293:            DIM    0001 0001

   187           %SHORTINTEGERARRAY WORD,TAGS(0:NNAMES)
1969 @ 15299:            LINE   187 "regression-compile-tmp/imp918s.imp"
1970 @ 15337:            DEF    WORD p1=V_0123 a/tf=1b b/format=3 c/ostate=100  type=1 (integer) form=11 (array) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1971 @ 15353:            DEF    TAGS p1=V_0124 a/tf=1b b/format=3 c/ostate=100  type=1 (integer) form=11 (array) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1972 @ 15369:            PUSHI  #0x00000000
1973 @ 15374:            PUSH   NNAMES
1974 @ 15377:            DIM    0001 0002

   188           %SYSTEMROUTINESPEC IOCP(%INTEGER A,B)
1975 @ 15383:            LINE   188 "regression-compile-tmp/imp918s.imp"
1976 @ 15421:            DEF    IOCP (_lev0id0_IOCP) p1=V_0125 a/tf=7 b/format=0 c/ostate=2c  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=4 (system) spec=1 indirect=0 unass=1
1977 @ 15437:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
1978 @ 15438:               DEF    A p1=V_0126 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
1979 @ 15451:               DEF    B p1=V_0127 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
1980 @ 15464:            FINISH ) {lev=1}

   189           %ROUTINESPEC CODE OUT
1981 @ 15465:            LINE   189 "regression-compile-tmp/imp918s.imp"
1982 @ 15503:            DEF    CODEOUT (_lev0id0_CODEOUT) p1=V_0126 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
1983 @ 15522:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
1984 @ 15523:            FINISH ) {lev=1}

   190           %ROUTINESPEC CNOP(%INTEGER I,J)
1985 @ 15524:            LINE   190 "regression-compile-tmp/imp918s.imp"
1986 @ 15562:            DEF    CNOP (_lev0id0_CNOP) p1=V_0127 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
1987 @ 15578:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
1988 @ 15579:               DEF    I p1=V_0128 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
1989 @ 15592:               DEF    J p1=V_0129 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
1990 @ 15605:            FINISH ) {lev=1}

   191           %ROUTINESPEC PCONST(%INTEGER X)
1991 @ 15606:            LINE   191 "regression-compile-tmp/imp918s.imp"
1992 @ 15644:            DEF    PCONST (_lev0id0_PCONST) p1=V_0128 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
1993 @ 15662:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
1994 @ 15663:               DEF    X p1=V_0129 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
1995 @ 15676:            FINISH ) {lev=1}

   192           %ROUTINESPEC PSI(%INTEGER OPCODE,J,BASE,DISP)
1996 @ 15677:            LINE   192 "regression-compile-tmp/imp918s.imp"
1997 @ 15715:            DEF    PSI (_lev0id0_PSI) p1=V_0129 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
1998 @ 15730:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
1999 @ 15731:               DEF    OPCODE p1=V_012a 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
2000 @ 15749:               DEF    J p1=V_012b 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
2001 @ 15762:               DEF    BASE p1=V_012c 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
2002 @ 15778:               DEF    DISP p1=V_012d 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
2003 @ 15794:            FINISH ) {lev=1}

   193           %ROUTINESPEC PSS(%INTEGER OPCODE,N,BASE,DISP,P,Q)
2004 @ 15795:            LINE   193 "regression-compile-tmp/imp918s.imp"
2005 @ 15833:            DEF    PSS (_lev0id0_PSS) p1=V_012a 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
2006 @ 15848:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
2007 @ 15849:               DEF    OPCODE p1=V_012b 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
2008 @ 15867:               DEF    N p1=V_012c 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
2009 @ 15880:               DEF    BASE p1=V_012d 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
2010 @ 15896:               DEF    DISP p1=V_012e 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
2011 @ 15912:               DEF    P p1=V_012f 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
2012 @ 15925:               DEF    Q p1=V_0130 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
2013 @ 15938:            FINISH ) {lev=1}

   194           %ROUTINESPEC PRX(%INTEGER OPCODE,R1,R2,BASE,DISP)
2014 @ 15939:            LINE   194 "regression-compile-tmp/imp918s.imp"
2015 @ 15977:            DEF    PRX (_lev0id0_PRX) p1=V_012b 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
2016 @ 15992:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
2017 @ 15993:               DEF    OPCODE p1=V_012c 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
2018 @ 16011:               DEF    R1 p1=V_012d 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
2019 @ 16025:               DEF    R2 p1=V_012e 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
2020 @ 16039:               DEF    BASE p1=V_012f 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
2021 @ 16055:               DEF    DISP p1=V_0130 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
2022 @ 16071:            FINISH ) {lev=1}

   195           %ROUTINESPEC PLANT(%INTEGER VALUE)
2023 @ 16072:            LINE   195 "regression-compile-tmp/imp918s.imp"
2024 @ 16110:            DEF    PLANT (_lev0id0_PLANT) p1=V_012c 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
2025 @ 16127:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
2026 @ 16128:               DEF    VALUE p1=V_012d 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
2027 @ 16145:            FINISH ) {lev=1}

   196           %ROUTINESPEC PRR (%INTEGER OPCODE,R1,R2)
2028 @ 16146:            LINE   196 "regression-compile-tmp/imp918s.imp"
2029 @ 16184:            DEF    PRR (_lev0id0_PRR) p1=V_012d 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
2030 @ 16199:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
2031 @ 16200:               DEF    OPCODE p1=V_012e 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
2032 @ 16218:               DEF    R1 p1=V_012f 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
2033 @ 16232:               DEF    R2 p1=V_0130 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
2034 @ 16246:            FINISH ) {lev=1}

   197           %ROUTINESPEC PGLA(%INTEGER I,J,K)
2035 @ 16247:            LINE   197 "regression-compile-tmp/imp918s.imp"
2036 @ 16285:            DEF    PGLA (_lev0id0_PGLA) p1=V_012e 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
2037 @ 16301:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
2038 @ 16302:               DEF    I p1=V_012f 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
2039 @ 16315:               DEF    J p1=V_0130 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
2040 @ 16328:               DEF    K p1=V_0131 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
2041 @ 16341:            FINISH ) {lev=1}

   198           %SYSTEMROUTINESPEC LPUT(%INTEGER A,B,C,D)
2042 @ 16342:            LINE   198 "regression-compile-tmp/imp918s.imp"
2043 @ 16380:            DEF    LPUT (_lev0id0_LPUT) p1=V_012f a/tf=7 b/format=0 c/ostate=2c  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=4 (system) spec=1 indirect=0 unass=1
2044 @ 16396:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
2045 @ 16397:               DEF    A p1=V_0130 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
2046 @ 16410:               DEF    B p1=V_0131 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
2047 @ 16423:               DEF    C p1=V_0132 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
2048 @ 16436:               DEF    D p1=V_0133 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
2049 @ 16449:            FINISH ) {lev=1}

   199           %ROUTINESPEC SET PERMBASE
2050 @ 16450:            LINE   199 "regression-compile-tmp/imp918s.imp"
2051 @ 16488:            DEF    SETPERMBASE (_lev0id0_SETPERMBASE) p1=V_0130 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
2052 @ 16511:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
2053 @ 16512:            FINISH ) {lev=1}

   200           %ROUTINESPEC PLUG(%INTEGER AREA,J,K)
2054 @ 16513:            LINE   200 "regression-compile-tmp/imp918s.imp"
2055 @ 16551:            DEF    PLUG (_lev0id0_PLUG) p1=V_0131 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
2056 @ 16567:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
2057 @ 16568:               DEF    AREA p1=V_0132 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
2058 @ 16584:               DEF    J p1=V_0133 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
2059 @ 16597:               DEF    K p1=V_0134 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
2060 @ 16610:            FINISH ) {lev=1}

   201           %ROUTINESPEC PRHEX(%INTEGER VALUE,PLACES)
2061 @ 16611:            LINE   201 "regression-compile-tmp/imp918s.imp"
2062 @ 16649:            DEF    PRHEX (_lev0id0_PRHEX) p1=V_0132 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
2063 @ 16666:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
2064 @ 16667:               DEF    VALUE p1=V_0133 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
2065 @ 16684:               DEF    PLACES p1=V_0134 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
2066 @ 16702:            FINISH ) {lev=1}

   202           %ROUTINESPEC RESTORE(%SHORTINTEGER HEAD)
2067 @ 16703:            LINE   202 "regression-compile-tmp/imp918s.imp"
2068 @ 16741:            DEF    RESTORE (_lev0id0_RESTORE) p1=V_0133 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
2069 @ 16760:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
2070 @ 16761:               DEF    HEAD p1=V_0134 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
2071 @ 16777:            FINISH ) {lev=1}

   203           %ROUTINESPEC GET ENV(%SHORTINTEGERNAME HEAD)
   204  !         %INTEGERFNSPEC NEWCELL
2072 @ 16778:            LINE   203 "regression-compile-tmp/imp918s.imp"
2073 @ 16816:            DEF    GETENV (_lev0id0_GETENV) p1=V_0134 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
2074 @ 16834:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
2075 @ 16835:               DEF    HEAD p1=V_0135 a/tf=12 b/format=3 c/ostate=0  type=1 (integer) form=2 (name) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
2076 @ 16851:            FINISH ) {lev=1}

   205           %ROUTINESPEC INSERTAFTER(%SHORTINTEGERNAME STAD,%INTEGER S1,S2)
   206  !         %ROUTINESPEC INSERTATEND(%SHORTINTEGERNAME S,%INTEGER A,B)
2077 @ 16852:            LINE   205 "regression-compile-tmp/imp918s.imp"
2078 @ 16890:            DEF    INSERTAFTER (_lev0id0_INSERTAFTER) p1=V_0135 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
2079 @ 16913:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
2080 @ 16914:               DEF    STAD p1=V_0136 a/tf=12 b/format=3 c/ostate=0  type=1 (integer) form=2 (name) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
2081 @ 16930:               DEF    S1 p1=V_0137 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
2082 @ 16944:               DEF    S2 p1=V_0138 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
2083 @ 16958:            FINISH ) {lev=1}

   207           %ROUTINESPEC FROM12(%INTEGER CELL,%INTEGERNAME S1,S2)
2084 @ 16959:            LINE   207 "regression-compile-tmp/imp918s.imp"
2085 @ 16997:            DEF    FROM12 (_lev0id0_FROM12) p1=V_0136 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
2086 @ 17015:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
2087 @ 17016:               DEF    CELL p1=V_0137 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
2088 @ 17032:               DEF    S1 p1=V_0138 a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2089 @ 17046:               DEF    S2 p1=V_0139 a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2090 @ 17060:            FINISH ) {lev=1}

   208           %ROUTINESPEC FROM123(%INTEGER CELL,%INTEGERNAME S1,S2,S3)
2091 @ 17061:            LINE   208 "regression-compile-tmp/imp918s.imp"
2092 @ 17099:            DEF    FROM123 (_lev0id0_FROM123) p1=V_0137 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
2093 @ 17118:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
2094 @ 17119:               DEF    CELL p1=V_0138 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
2095 @ 17135:               DEF    S1 p1=V_0139 a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2096 @ 17149:               DEF    S2 p1=V_013a a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2097 @ 17163:               DEF    S3 p1=V_013b a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2098 @ 17177:            FINISH ) {lev=1}

   209           %ROUTINESPEC POP(%SHORTINTEGERNAME CELL,%INTEGERNAME S1,S2)
2099 @ 17178:            LINE   209 "regression-compile-tmp/imp918s.imp"
2100 @ 17216:            DEF    POP (_lev0id0_POP) p1=V_0138 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
2101 @ 17231:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
2102 @ 17232:               DEF    CELL p1=V_0139 a/tf=12 b/format=3 c/ostate=0  type=1 (integer) form=2 (name) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
2103 @ 17248:               DEF    S1 p1=V_013a a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2104 @ 17262:               DEF    S2 p1=V_013b a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2105 @ 17276:            FINISH ) {lev=1}

   210           %ROUTINESPEC POP123(%SHORTINTEGERNAME C,%INTEGERNAME P,Q,R)
2106 @ 17277:            LINE   210 "regression-compile-tmp/imp918s.imp"
2107 @ 17315:            DEF    POP123 (_lev0id0_POP123) p1=V_0139 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
2108 @ 17333:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
2109 @ 17334:               DEF    C p1=V_013a a/tf=12 b/format=3 c/ostate=0  type=1 (integer) form=2 (name) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
2110 @ 17347:               DEF    P p1=V_013b a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2111 @ 17360:               DEF    Q p1=V_013c a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2112 @ 17373:               DEF    R p1=V_013d a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2113 @ 17386:            FINISH ) {lev=1}

   211           %ROUTINESPEC PUSH(%SHORTINTEGERNAME CELL,%INTEGER S1,S2)
2114 @ 17387:            LINE   211 "regression-compile-tmp/imp918s.imp"
2115 @ 17425:            DEF    PUSH (_lev0id0_PUSH) p1=V_013a 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
2116 @ 17441:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
2117 @ 17442:               DEF    CELL p1=V_013b a/tf=12 b/format=3 c/ostate=0  type=1 (integer) form=2 (name) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
2118 @ 17458:               DEF    S1 p1=V_013c 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
2119 @ 17472:               DEF    S2 p1=V_013d 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
2120 @ 17486:            FINISH ) {lev=1}

   212           %ROUTINESPEC PUSH123(%SHORTINTEGERNAME C,%INTEGER S1,S2,S3)
2121 @ 17487:            LINE   212 "regression-compile-tmp/imp918s.imp"
2122 @ 17525:            DEF    PUSH123 (_lev0id0_PUSH123) p1=V_013b 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
2123 @ 17544:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
2124 @ 17545:               DEF    C p1=V_013c a/tf=12 b/format=3 c/ostate=0  type=1 (integer) form=2 (name) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
2125 @ 17558:               DEF    S1 p1=V_013d 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
2126 @ 17572:               DEF    S2 p1=V_013e 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
2127 @ 17586:               DEF    S3 p1=V_013f 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
2128 @ 17600:            FINISH ) {lev=1}

   213           %INTEGERFNSPEC FIND(%INTEGER LAB,LIST)
2129 @ 17601:            LINE   213 "regression-compile-tmp/imp918s.imp"
2130 @ 17639:            DEF    FIND (_lev0id0_FIND) p1=V_013c a/tf=18 b/format=1 c/ostate=18  type=1 (integer) form=8 (function) special=0 (<special:0>) linkage=0 (auto) spec=1 indirect=1 unass=0
2131 @ 17655:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
2132 @ 17656:               DEF    LAB p1=V_013d 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
2133 @ 17671:               DEF    LIST p1=V_013e 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
2134 @ 17687:            FINISH ) {lev=1}

   214           %INTEGERFNSPEC FIND3(%INTEGER LAB,LIST)
2135 @ 17688:            LINE   214 "regression-compile-tmp/imp918s.imp"
2136 @ 17726:            DEF    FIND3 (_lev0id0_FIND3) p1=V_013d a/tf=18 b/format=1 c/ostate=18  type=1 (integer) form=8 (function) special=0 (<special:0>) linkage=0 (auto) spec=1 indirect=1 unass=0
2137 @ 17743:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
2138 @ 17744:               DEF    LAB p1=V_013e 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
2139 @ 17759:               DEF    LIST p1=V_013f 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
2140 @ 17775:            FINISH ) {lev=1}

   215           %ROUTINESPEC MLINK(%INTEGERNAME CELL)
2141 @ 17776:            LINE   215 "regression-compile-tmp/imp918s.imp"
2142 @ 17814:            DEF    MLINK (_lev0id0_MLINK) p1=V_013e 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
2143 @ 17831:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
2144 @ 17832:               DEF    CELL p1=V_013f a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2145 @ 17848:            FINISH ) {lev=1}

   216           %ROUTINESPEC REPLACE2(%INTEGER CELL,S2)
2146 @ 17849:            LINE   216 "regression-compile-tmp/imp918s.imp"
2147 @ 17887:            DEF    REPLACE2 (_lev0id0_REPLACE2) p1=V_013f 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
2148 @ 17907:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
2149 @ 17908:               DEF    CELL p1=V_0140 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
2150 @ 17924:               DEF    S2 p1=V_0141 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
2151 @ 17938:            FINISH ) {lev=1}

   217           %ROUTINESPEC REPLACE1(%INTEGER CELL,S1)
2152 @ 17939:            LINE   217 "regression-compile-tmp/imp918s.imp"
2153 @ 17977:            DEF    REPLACE1 (_lev0id0_REPLACE1) p1=V_0140 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
2154 @ 17997:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
2155 @ 17998:               DEF    CELL p1=V_0141 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
2156 @ 18014:               DEF    S1 p1=V_0142 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
2157 @ 18028:            FINISH ) {lev=1}

   218           %ROUTINESPEC REPLACE123(%INTEGER CELL,S1,S2,S3)
2158 @ 18029:            LINE   218 "regression-compile-tmp/imp918s.imp"
2159 @ 18067:            DEF    REPLACE123 (_lev0id0_REPLACE123) p1=V_0141 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
2160 @ 18089:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
2161 @ 18090:               DEF    CELL p1=V_0142 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
2162 @ 18106:               DEF    S1 p1=V_0143 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
2163 @ 18120:               DEF    S2 p1=V_0144 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
2164 @ 18134:               DEF    S3 p1=V_0145 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
2165 @ 18148:            FINISH ) {lev=1}

   219           %INTEGERFNSPEC FROM2(%INTEGER CELL)
2166 @ 18149:            LINE   219 "regression-compile-tmp/imp918s.imp"
2167 @ 18187:            DEF    FROM2 (_lev0id0_FROM2) p1=V_0142 a/tf=18 b/format=1 c/ostate=18  type=1 (integer) form=8 (function) special=0 (<special:0>) linkage=0 (auto) spec=1 indirect=1 unass=0
2168 @ 18204:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
2169 @ 18205:               DEF    CELL p1=V_0143 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
2170 @ 18221:            FINISH ) {lev=1}

   220           %INTEGERFNSPEC FROM1(%INTEGER CELL)
2171 @ 18222:            LINE   220 "regression-compile-tmp/imp918s.imp"
2172 @ 18260:            DEF    FROM1 (_lev0id0_FROM1) p1=V_0143 a/tf=18 b/format=1 c/ostate=18  type=1 (integer) form=8 (function) special=0 (<special:0>) linkage=0 (auto) spec=1 indirect=1 unass=0
2173 @ 18277:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
2174 @ 18278:               DEF    CELL p1=V_0144 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
2175 @ 18294:            FINISH ) {lev=1}

   221           %INTEGERFNSPEC FROM3(%INTEGER CELL)
   222  !         %ROUTINESPEC CHECK ASL
   223  !%if INCLUDE DELSTART = 1 %start
2176 @ 18295:            LINE   221 "regression-compile-tmp/imp918s.imp"
2177 @ 18333:            DEF    FROM3 (_lev0id0_FROM3) p1=V_0144 a/tf=18 b/format=1 c/ostate=18  type=1 (integer) form=8 (function) special=0 (<special:0>) linkage=0 (auto) spec=1 indirect=1 unass=0
2178 @ 18350:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
2179 @ 18351:               DEF    CELL p1=V_0145 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
2180 @ 18367:            FINISH ) {lev=1}

   224           %ROUTINESPEC COMPARE
2181 @ 18368:            LINE   224 "regression-compile-tmp/imp918s.imp"
2182 @ 18406:            DEF    COMPARE (_lev0id0_COMPARE) p1=V_0145 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
2183 @ 18425:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
2184 @ 18426:            FINISH ) {lev=1}

   225           %ROUTINESPEC PNAME
2185 @ 18427:            LINE   225 "regression-compile-tmp/imp918s.imp"
2186 @ 18465:            DEF    PNAME (_lev0id0_PNAME) p1=V_0146 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
2187 @ 18482:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
2188 @ 18483:            FINISH ) {lev=1}

   226           %ROUTINESPEC CONST(%INTEGER MODE)
2189 @ 18484:            LINE   226 "regression-compile-tmp/imp918s.imp"
2190 @ 18522:            DEF    CONST (_lev0id0_CONST) p1=V_0147 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
2191 @ 18539:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
2192 @ 18540:               DEF    MODE p1=V_0148 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
2193 @ 18556:            FINISH ) {lev=1}

   227           %ROUTINESPEC CONSTLIST
2194 @ 18557:            LINE   227 "regression-compile-tmp/imp918s.imp"
2195 @ 18595:            DEF    CONSTLIST (_lev0id0_CONSTLIST) p1=V_0148 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
2196 @ 18616:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
2197 @ 18617:            FINISH ) {lev=1}

   228           %ROUTINESPEC TEXTTEXT
2198 @ 18618:            LINE   228 "regression-compile-tmp/imp918s.imp"
2199 @ 18656:            DEF    TEXTTEXT (_lev0id0_TEXTTEXT) p1=V_0149 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
2200 @ 18676:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
2201 @ 18677:            FINISH ) {lev=1}

   229           %ROUTINESPEC READ LINE(%BYTEINTEGER N,CHAR)
   230  !%finish
2202 @ 18678:            LINE   229 "regression-compile-tmp/imp918s.imp"
2203 @ 18716:            DEF    READLINE (_lev0id0_READLINE) p1=V_014a 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
2204 @ 18736:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
2205 @ 18737:               DEF    N p1=V_014b a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
2206 @ 18750:               DEF    CHAR p1=V_014c a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
2207 @ 18766:            FINISH ) {lev=1}

   231           %ROUTINESPEC FROMAR8(%INTEGER PTR,%LONGREALNAME VALUE)
2208 @ 18767:            LINE   231 "regression-compile-tmp/imp918s.imp"
2209 @ 18805:            DEF    FROMAR8 (_lev0id0_FROMAR8) p1=V_014b 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
2210 @ 18824:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
2211 @ 18825:               DEF    PTR p1=V_014c 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
2212 @ 18840:               DEF    VALUE p1=V_014d a/tf=22 b/format=4 c/ostate=0  type=2 (real) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2213 @ 18857:            FINISH ) {lev=1}

   232           %ROUTINESPEC FROMAR4(%INTEGER PTR,%INTEGERNAME VALUE)
2214 @ 18858:            LINE   232 "regression-compile-tmp/imp918s.imp"
2215 @ 18896:            DEF    FROMAR4 (_lev0id0_FROMAR4) p1=V_014c 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
2216 @ 18915:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
2217 @ 18916:               DEF    PTR p1=V_014d 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
2218 @ 18931:               DEF    VALUE p1=V_014e a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2219 @ 18948:            FINISH ) {lev=1}

   233           %ROUTINESPEC TOAR8(%INTEGER PTR,%LONGREAL VALUE)
2220 @ 18949:            LINE   233 "regression-compile-tmp/imp918s.imp"
2221 @ 18987:            DEF    TOAR8 (_lev0id0_TOAR8) p1=V_014d 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
2222 @ 19004:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
2223 @ 19005:               DEF    PTR p1=V_014e 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
2224 @ 19020:               DEF    VALUE p1=V_014f a/tf=21 b/format=4 c/ostate=0  type=2 (real) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2225 @ 19037:            FINISH ) {lev=1}

   234           %ROUTINESPEC TOAR4(%INTEGER PTR,VALUE)
2226 @ 19038:            LINE   234 "regression-compile-tmp/imp918s.imp"
2227 @ 19076:            DEF    TOAR4 (_lev0id0_TOAR4) p1=V_014e 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
2228 @ 19093:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
2229 @ 19094:               DEF    PTR p1=V_014f 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
2230 @ 19109:               DEF    VALUE p1=V_0150 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
2231 @ 19126:            FINISH ) {lev=1}

   235           %ROUTINESPEC CSS(%INTEGER P,MODE)
2232 @ 19127:            LINE   235 "regression-compile-tmp/imp918s.imp"
2233 @ 19165:            DEF    CSS (_lev0id0_CSS) p1=V_014f 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
2234 @ 19180:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
2235 @ 19181:               DEF    P p1=V_0150 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
2236 @ 19194:               DEF    MODE p1=V_0151 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
2237 @ 19210:            FINISH ) {lev=1}

   236           %ROUTINESPEC FAULT(%INTEGER N,FNAME)
2238 @ 19211:            LINE   236 "regression-compile-tmp/imp918s.imp"
2239 @ 19249:            DEF    FAULT (_lev0id0_FAULT) p1=V_0150 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
2240 @ 19266:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
2241 @ 19267:               DEF    N p1=V_0151 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
2242 @ 19280:               DEF    FNAME p1=V_0152 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
2243 @ 19297:            FINISH ) {lev=1}

   237            %ROUTINESPEC ABORT
2244 @ 19298:            LINE   237 "regression-compile-tmp/imp918s.imp"
2245 @ 19336:            DEF    ABORT (_lev0id0_ABORT) p1=V_0151 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
2246 @ 19353:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
2247 @ 19354:            FINISH ) {lev=1}

   238           %ROUTINESPEC PRINT USE
2248 @ 19355:            LINE   238 "regression-compile-tmp/imp918s.imp"
2249 @ 19393:            DEF    PRINTUSE (_lev0id0_PRINTUSE) p1=V_0152 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
2250 @ 19413:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
2251 @ 19414:            FINISH ) {lev=1}

   239           %ROUTINESPEC PRINTNAME (%INTEGER N)
   240  %SYSTEM %C
2252 @ 19415:            LINE   239 "regression-compile-tmp/imp918s.imp"
2253 @ 19453:            DEF    PRINTNAME (_lev0id0_PRINTNAME) p1=V_0153 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
2254 @ 19474:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
2255 @ 19475:               DEF    N p1=V_0154 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
2256 @ 19488:            FINISH ) {lev=1}

   241           %ROUTINESPEC RECODE (%INTEGER START,FINISH,CA)
2257 @ 19489:            LINE   241 "regression-compile-tmp/imp918s.imp"
2258 @ 19527:            DEF    RECODE (_lev0id0_RECODE) p1=V_0154 a/tf=7 b/format=0 c/ostate=2c  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=4 (system) spec=1 indirect=0 unass=1
2259 @ 19545:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
2260 @ 19546:               DEF    START p1=V_0155 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
2261 @ 19563:               DEF    FINISH p1=V_0156 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
2262 @ 19581:               DEF    CA p1=V_0157 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
2263 @ 19595:            FINISH ) {lev=1}

   242           %ROUTINESPEC MESSAGE(%INTEGER N)
   243           {%FAULT 1,2->OFL,9->INEND,18->SUBSCHAR}
2264 @ 19596:            LINE   242 "regression-compile-tmp/imp918s.imp"
2265 @ 19634:            DEF    MESSAGE (_lev0id0_MESSAGE) p1=V_0155 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
2266 @ 19653:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
2267 @ 19654:               DEF    N p1=V_0156 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
2268 @ 19667:            FINISH ) {lev=1}

   244           %on %event 1,2,9{,18} %start
2269 @ 19668:            LINE   244 "regression-compile-tmp/imp918s.imp"
2270 @ 19706:            ON     MASK=0206 L_0004

   245             ->OFL %if event_event = 1
2271 @ 19712:            LINE   245 "regression-compile-tmp/imp918s.imp"
2272 @ 19750:            PUSH   EVENT
2273 @ 19753:            CALL  
2274 @ 19754:            SELECT 1
2275 @ 19757:            PUSHI  #0x00000001
2276 @ 19762:            JUMPIF # L_0007
2277 @ 19766:            JUMP   L_0156
2278 @ 19769:            LOCATE L_0007

   246             ->OFL %if event_event = 2
2279 @ 19772:            LINE   246 "regression-compile-tmp/imp918s.imp"
2280 @ 19810:            PUSH   EVENT
2281 @ 19813:            CALL  
2282 @ 19814:            SELECT 1
2283 @ 19817:            PUSHI  #0x00000002
2284 @ 19822:            JUMPIF # L_0007
2285 @ 19826:            JUMP   L_0156
2286 @ 19829:            LOCATE L_0007

   247             ->INEND %if event_event = 9
   248             {->SUBSCHAR %if event_event = 18}
2287 @ 19832:            LINE   247 "regression-compile-tmp/imp918s.imp"
2288 @ 19870:            PUSH   EVENT
2289 @ 19873:            CALL  
2290 @ 19874:            SELECT 1
2291 @ 19877:            PUSHI  #0x00000009
2292 @ 19882:            JUMPIF # L_0007
2293 @ 19886:            JUMP   L_0157
2294 @ 19889:            LOCATE L_0007

   249           %finish
   250   ! START OF COMPILATION
2295 @ 19892:            LINE   249 "regression-compile-tmp/imp918s.imp"
2296 @ 19930:            LOCATE L_0004

   251           %BEGIN
   252  !***********************************************************************
   253  !*       THIS BLOCK INITIALISE THE COMPILER SCALARS AND ARRAYS         *
   254  !*       WAS ORIGINALLY ROUTINE 'INITIALISE'.                          *
   255  !*       THE INITIALISATION OF THE CONSTANT LISTS WITH THE VALUES      *
   256  !*       IN PERM MAY BE OMITTED IN BATCH OR CUT-DOWN VERSIONS.         *
   257  !***********************************************************************
   258           {%SHORTROUTINE}
   259  !%if INCLUDE DELSTART = 1 %start
2297 @ 19933:            LINE   251 "regression-compile-tmp/imp918s.imp"
2298 @ 19971:            BEGIN  _lev0id0_lev1id2 {lev=1 --> 2}

   260           %CONSTBYTEINTEGERARRAY ILETT(0: 410)= 11,
   261      'S','E','L','E','C','T','I','N','P','U','T', 12,'S','E','L','E',
   262      'C','T','O','U','T','P','U','T',  7,'N','E','W','L','I','N','E',
   263        5,'S','P','A','C','E', 10,'S','K','I','P','S','Y','M','B','O',
   264      'L', 10,'R','E','A','D','S','T','R','I','N','G',  8,'N','E','W',
   265      'L','I','N','E','S',  6,'S','P','A','C','E','S', 10,'N','E','X',
   266      'T','S','Y','M','B','O','L', 11,'P','R','I','N','T','S','Y','M',
   267      'B','O','L', 10,'R','E','A','D','S','Y','M','B','O','L',  4,'R',
   268      'E','A','D',  5,'W','R','I','T','E',  7,'N','E','W','P','A','G',
   269      'E',  4,'A','D','D','R',  6,'A','R','C','S','I','N',  3,'I','N',
   270      'T',  5,'I','N','T','P','T',  6,'F','R','A','C','P','T',  5,'P',
   271      'R','I','N','T',  7,'P','R','I','N','T','F','L',  4,'R','E','A',
   272      'L',  7,'I','N','T','E','G','E','R',  3,'M','O','D',  6,'A','R',
   273      'C','C','O','S',  4,'S','Q','R','T',  3,'L','O','G',  3,'S','I',
   274      'N',  3,'C','O','S',  3,'T','A','N',  3,'E','X','P', 11,'C','L',
   275      'O','S','E','S','T','R','E','A','M', 11,'B','Y','T','E','I','N',
   276      'T','E','G','E','R', 12,'S','H','O','R','T','I','N','T','E','G',
   277      'E','R',  6,'R','A','D','I','U','S',  6,'A','R','C','T','A','N',
   278        6,'L','E','N','G','T','H', 11,'P','R','I','N','T','S','T','R',
   279      'I','N','G',  2,'N','L',  8,'L','O','N','G','R','E','A','L',  7,
   280      'P','R','I','N','T','C','H',  6,'R','E','A','D','C','H',  6,'S',
   281      'T','R','I','N','G',  8,'R','E','A','D','I','T','E','M',  8,'N',
   282      'E','X','T','I','T','E','M',  6,'C','H','A','R','N','O',  8,'T',
   283      'O','S','T','R','I','N','G', 10,'F','R','O','M','S','T','R','I',
   284      'N','G',  6,'R','E','C','O','R','D',  5,'A','R','R','A','Y', 10,
   285      'S','E','T','M','A','R','G','I','N','S',4,'I','M','O','D',
   286       2,'P','I',6,'N','E','X','T','C','H',255;
   287  !%finish
   288  !%if USE MC = 1 %start
   289  !         *XC_CABUF(108),CABUF ;!CLEAR INTEGER
   290  !         *XC_FFLAG(24),FFLAG;          !CLEAR BYTE FLAG VARIABLES
   291  !         *XC_MASK(144),MASK;           ! CLEAR WORK VARIABLES
   292  !%finish
2299 @ 19972:               LINE   260 "regression-compile-tmp/imp918s.imp"
2300 @ 20010:               PUSHI  #0x00000000
2301 @ 20015:               PUSHI  #0x0000019a
2302 @ 20020:               BOUNDS
2303 @ 20021:               DEF    ILETT p1=V_0158 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
2304 @ 20038:               PUSHI  #0x0000000b
2305 @ 20043:               INIT   1
2306 @ 20046:               PUSHI  #0x00000053
2307 @ 20051:               INIT   1
2308 @ 20054:               PUSHI  #0x00000045
2309 @ 20059:               INIT   1
2310 @ 20062:               PUSHI  #0x0000004c
2311 @ 20067:               INIT   1
2312 @ 20070:               PUSHI  #0x00000045
2313 @ 20075:               INIT   1
2314 @ 20078:               PUSHI  #0x00000043
2315 @ 20083:               INIT   1
2316 @ 20086:               PUSHI  #0x00000054
2317 @ 20091:               INIT   1
2318 @ 20094:               PUSHI  #0x00000049
2319 @ 20099:               INIT   1
2320 @ 20102:               PUSHI  #0x0000004e
2321 @ 20107:               INIT   1
2322 @ 20110:               PUSHI  #0x00000050
2323 @ 20115:               INIT   1
2324 @ 20118:               PUSHI  #0x00000055
2325 @ 20123:               INIT   1
2326 @ 20126:               PUSHI  #0x00000054
2327 @ 20131:               INIT   1
2328 @ 20134:               PUSHI  #0x0000000c
2329 @ 20139:               INIT   1
2330 @ 20142:               PUSHI  #0x00000053
2331 @ 20147:               INIT   1
2332 @ 20150:               PUSHI  #0x00000045
2333 @ 20155:               INIT   1
2334 @ 20158:               PUSHI  #0x0000004c
2335 @ 20163:               INIT   1
2336 @ 20166:               PUSHI  #0x00000045
2337 @ 20171:               INIT   1
2338 @ 20174:               PUSHI  #0x00000043
2339 @ 20179:               INIT   1
2340 @ 20182:               PUSHI  #0x00000054
2341 @ 20187:               INIT   1
2342 @ 20190:               PUSHI  #0x0000004f
2343 @ 20195:               INIT   1
2344 @ 20198:               PUSHI  #0x00000055
2345 @ 20203:               INIT   1
2346 @ 20206:               PUSHI  #0x00000054
2347 @ 20211:               INIT   1
2348 @ 20214:               PUSHI  #0x00000050
2349 @ 20219:               INIT   1
2350 @ 20222:               PUSHI  #0x00000055
2351 @ 20227:               INIT   1
2352 @ 20230:               PUSHI  #0x00000054
2353 @ 20235:               INIT   1
2354 @ 20238:               PUSHI  #0x00000007
2355 @ 20243:               INIT   1
2356 @ 20246:               PUSHI  #0x0000004e
2357 @ 20251:               INIT   1
2358 @ 20254:               PUSHI  #0x00000045
2359 @ 20259:               INIT   1
2360 @ 20262:               PUSHI  #0x00000057
2361 @ 20267:               INIT   1
2362 @ 20270:               PUSHI  #0x0000004c
2363 @ 20275:               INIT   1
2364 @ 20278:               PUSHI  #0x00000049
2365 @ 20283:               INIT   1
2366 @ 20286:               PUSHI  #0x0000004e
2367 @ 20291:               INIT   1
2368 @ 20294:               PUSHI  #0x00000045
2369 @ 20299:               INIT   1
2370 @ 20302:               PUSHI  #0x00000005
2371 @ 20307:               INIT   1
2372 @ 20310:               PUSHI  #0x00000053
2373 @ 20315:               INIT   1
2374 @ 20318:               PUSHI  #0x00000050
2375 @ 20323:               INIT   1
2376 @ 20326:               PUSHI  #0x00000041
2377 @ 20331:               INIT   1
2378 @ 20334:               PUSHI  #0x00000043
2379 @ 20339:               INIT   1
2380 @ 20342:               PUSHI  #0x00000045
2381 @ 20347:               INIT   1
2382 @ 20350:               PUSHI  #0x0000000a
2383 @ 20355:               INIT   1
2384 @ 20358:               PUSHI  #0x00000053
2385 @ 20363:               INIT   1
2386 @ 20366:               PUSHI  #0x0000004b
2387 @ 20371:               INIT   1
2388 @ 20374:               PUSHI  #0x00000049
2389 @ 20379:               INIT   1
2390 @ 20382:               PUSHI  #0x00000050
2391 @ 20387:               INIT   1
2392 @ 20390:               PUSHI  #0x00000053
2393 @ 20395:               INIT   1
2394 @ 20398:               PUSHI  #0x00000059
2395 @ 20403:               INIT   1
2396 @ 20406:               PUSHI  #0x0000004d
2397 @ 20411:               INIT   1
2398 @ 20414:               PUSHI  #0x00000042
2399 @ 20419:               INIT   1
2400 @ 20422:               PUSHI  #0x0000004f
2401 @ 20427:               INIT   1
2402 @ 20430:               PUSHI  #0x0000004c
2403 @ 20435:               INIT   1
2404 @ 20438:               PUSHI  #0x0000000a
2405 @ 20443:               INIT   1
2406 @ 20446:               PUSHI  #0x00000052
2407 @ 20451:               INIT   1
2408 @ 20454:               PUSHI  #0x00000045
2409 @ 20459:               INIT   1
2410 @ 20462:               PUSHI  #0x00000041
2411 @ 20467:               INIT   1
2412 @ 20470:               PUSHI  #0x00000044
2413 @ 20475:               INIT   1
2414 @ 20478:               PUSHI  #0x00000053
2415 @ 20483:               INIT   1
2416 @ 20486:               PUSHI  #0x00000054
2417 @ 20491:               INIT   1
2418 @ 20494:               PUSHI  #0x00000052
2419 @ 20499:               INIT   1
2420 @ 20502:               PUSHI  #0x00000049
2421 @ 20507:               INIT   1
2422 @ 20510:               PUSHI  #0x0000004e
2423 @ 20515:               INIT   1
2424 @ 20518:               PUSHI  #0x00000047
2425 @ 20523:               INIT   1
2426 @ 20526:               PUSHI  #0x00000008
2427 @ 20531:               INIT   1
2428 @ 20534:               PUSHI  #0x0000004e
2429 @ 20539:               INIT   1
2430 @ 20542:               PUSHI  #0x00000045
2431 @ 20547:               INIT   1
2432 @ 20550:               PUSHI  #0x00000057
2433 @ 20555:               INIT   1
2434 @ 20558:               PUSHI  #0x0000004c
2435 @ 20563:               INIT   1
2436 @ 20566:               PUSHI  #0x00000049
2437 @ 20571:               INIT   1
2438 @ 20574:               PUSHI  #0x0000004e
2439 @ 20579:               INIT   1
2440 @ 20582:               PUSHI  #0x00000045
2441 @ 20587:               INIT   1
2442 @ 20590:               PUSHI  #0x00000053
2443 @ 20595:               INIT   1
2444 @ 20598:               PUSHI  #0x00000006
2445 @ 20603:               INIT   1
2446 @ 20606:               PUSHI  #0x00000053
2447 @ 20611:               INIT   1
2448 @ 20614:               PUSHI  #0x00000050
2449 @ 20619:               INIT   1
2450 @ 20622:               PUSHI  #0x00000041
2451 @ 20627:               INIT   1
2452 @ 20630:               PUSHI  #0x00000043
2453 @ 20635:               INIT   1
2454 @ 20638:               PUSHI  #0x00000045
2455 @ 20643:               INIT   1
2456 @ 20646:               PUSHI  #0x00000053
2457 @ 20651:               INIT   1
2458 @ 20654:               PUSHI  #0x0000000a
2459 @ 20659:               INIT   1
2460 @ 20662:               PUSHI  #0x0000004e
2461 @ 20667:               INIT   1
2462 @ 20670:               PUSHI  #0x00000045
2463 @ 20675:               INIT   1
2464 @ 20678:               PUSHI  #0x00000058
2465 @ 20683:               INIT   1
2466 @ 20686:               PUSHI  #0x00000054
2467 @ 20691:               INIT   1
2468 @ 20694:               PUSHI  #0x00000053
2469 @ 20699:               INIT   1
2470 @ 20702:               PUSHI  #0x00000059
2471 @ 20707:               INIT   1
2472 @ 20710:               PUSHI  #0x0000004d
2473 @ 20715:               INIT   1
2474 @ 20718:               PUSHI  #0x00000042
2475 @ 20723:               INIT   1
2476 @ 20726:               PUSHI  #0x0000004f
2477 @ 20731:               INIT   1
2478 @ 20734:               PUSHI  #0x0000004c
2479 @ 20739:               INIT   1
2480 @ 20742:               PUSHI  #0x0000000b
2481 @ 20747:               INIT   1
2482 @ 20750:               PUSHI  #0x00000050
2483 @ 20755:               INIT   1
2484 @ 20758:               PUSHI  #0x00000052
2485 @ 20763:               INIT   1
2486 @ 20766:               PUSHI  #0x00000049
2487 @ 20771:               INIT   1
2488 @ 20774:               PUSHI  #0x0000004e
2489 @ 20779:               INIT   1
2490 @ 20782:               PUSHI  #0x00000054
2491 @ 20787:               INIT   1
2492 @ 20790:               PUSHI  #0x00000053
2493 @ 20795:               INIT   1
2494 @ 20798:               PUSHI  #0x00000059
2495 @ 20803:               INIT   1
2496 @ 20806:               PUSHI  #0x0000004d
2497 @ 20811:               INIT   1
2498 @ 20814:               PUSHI  #0x00000042
2499 @ 20819:               INIT   1
2500 @ 20822:               PUSHI  #0x0000004f
2501 @ 20827:               INIT   1
2502 @ 20830:               PUSHI  #0x0000004c
2503 @ 20835:               INIT   1
2504 @ 20838:               PUSHI  #0x0000000a
2505 @ 20843:               INIT   1
2506 @ 20846:               PUSHI  #0x00000052
2507 @ 20851:               INIT   1
2508 @ 20854:               PUSHI  #0x00000045
2509 @ 20859:               INIT   1
2510 @ 20862:               PUSHI  #0x00000041
2511 @ 20867:               INIT   1
2512 @ 20870:               PUSHI  #0x00000044
2513 @ 20875:               INIT   1
2514 @ 20878:               PUSHI  #0x00000053
2515 @ 20883:               INIT   1
2516 @ 20886:               PUSHI  #0x00000059
2517 @ 20891:               INIT   1
2518 @ 20894:               PUSHI  #0x0000004d
2519 @ 20899:               INIT   1
2520 @ 20902:               PUSHI  #0x00000042
2521 @ 20907:               INIT   1
2522 @ 20910:               PUSHI  #0x0000004f
2523 @ 20915:               INIT   1
2524 @ 20918:               PUSHI  #0x0000004c
2525 @ 20923:               INIT   1
2526 @ 20926:               PUSHI  #0x00000004
2527 @ 20931:               INIT   1
2528 @ 20934:               PUSHI  #0x00000052
2529 @ 20939:               INIT   1
2530 @ 20942:               PUSHI  #0x00000045
2531 @ 20947:               INIT   1
2532 @ 20950:               PUSHI  #0x00000041
2533 @ 20955:               INIT   1
2534 @ 20958:               PUSHI  #0x00000044
2535 @ 20963:               INIT   1
2536 @ 20966:               PUSHI  #0x00000005
2537 @ 20971:               INIT   1
2538 @ 20974:               PUSHI  #0x00000057
2539 @ 20979:               INIT   1
2540 @ 20982:               PUSHI  #0x00000052
2541 @ 20987:               INIT   1
2542 @ 20990:               PUSHI  #0x00000049
2543 @ 20995:               INIT   1
2544 @ 20998:               PUSHI  #0x00000054
2545 @ 21003:               INIT   1
2546 @ 21006:               PUSHI  #0x00000045
2547 @ 21011:               INIT   1
2548 @ 21014:               PUSHI  #0x00000007
2549 @ 21019:               INIT   1
2550 @ 21022:               PUSHI  #0x0000004e
2551 @ 21027:               INIT   1
2552 @ 21030:               PUSHI  #0x00000045
2553 @ 21035:               INIT   1
2554 @ 21038:               PUSHI  #0x00000057
2555 @ 21043:               INIT   1
2556 @ 21046:               PUSHI  #0x00000050
2557 @ 21051:               INIT   1
2558 @ 21054:               PUSHI  #0x00000041
2559 @ 21059:               INIT   1
2560 @ 21062:               PUSHI  #0x00000047
2561 @ 21067:               INIT   1
2562 @ 21070:               PUSHI  #0x00000045
2563 @ 21075:               INIT   1
2564 @ 21078:               PUSHI  #0x00000004
2565 @ 21083:               INIT   1
2566 @ 21086:               PUSHI  #0x00000041
2567 @ 21091:               INIT   1
2568 @ 21094:               PUSHI  #0x00000044
2569 @ 21099:               INIT   1
2570 @ 21102:               PUSHI  #0x00000044
2571 @ 21107:               INIT   1
2572 @ 21110:               PUSHI  #0x00000052
2573 @ 21115:               INIT   1
2574 @ 21118:               PUSHI  #0x00000006
2575 @ 21123:               INIT   1
2576 @ 21126:               PUSHI  #0x00000041
2577 @ 21131:               INIT   1
2578 @ 21134:               PUSHI  #0x00000052
2579 @ 21139:               INIT   1
2580 @ 21142:               PUSHI  #0x00000043
2581 @ 21147:               INIT   1
2582 @ 21150:               PUSHI  #0x00000053
2583 @ 21155:               INIT   1
2584 @ 21158:               PUSHI  #0x00000049
2585 @ 21163:               INIT   1
2586 @ 21166:               PUSHI  #0x0000004e
2587 @ 21171:               INIT   1
2588 @ 21174:               PUSHI  #0x00000003
2589 @ 21179:               INIT   1
2590 @ 21182:               PUSHI  #0x00000049
2591 @ 21187:               INIT   1
2592 @ 21190:               PUSHI  #0x0000004e
2593 @ 21195:               INIT   1
2594 @ 21198:               PUSHI  #0x00000054
2595 @ 21203:               INIT   1
2596 @ 21206:               PUSHI  #0x00000005
2597 @ 21211:               INIT   1
2598 @ 21214:               PUSHI  #0x00000049
2599 @ 21219:               INIT   1
2600 @ 21222:               PUSHI  #0x0000004e
2601 @ 21227:               INIT   1
2602 @ 21230:               PUSHI  #0x00000054
2603 @ 21235:               INIT   1
2604 @ 21238:               PUSHI  #0x00000050
2605 @ 21243:               INIT   1
2606 @ 21246:               PUSHI  #0x00000054
2607 @ 21251:               INIT   1
2608 @ 21254:               PUSHI  #0x00000006
2609 @ 21259:               INIT   1
2610 @ 21262:               PUSHI  #0x00000046
2611 @ 21267:               INIT   1
2612 @ 21270:               PUSHI  #0x00000052
2613 @ 21275:               INIT   1
2614 @ 21278:               PUSHI  #0x00000041
2615 @ 21283:               INIT   1
2616 @ 21286:               PUSHI  #0x00000043
2617 @ 21291:               INIT   1
2618 @ 21294:               PUSHI  #0x00000050
2619 @ 21299:               INIT   1
2620 @ 21302:               PUSHI  #0x00000054
2621 @ 21307:               INIT   1
2622 @ 21310:               PUSHI  #0x00000005
2623 @ 21315:               INIT   1
2624 @ 21318:               PUSHI  #0x00000050
2625 @ 21323:               INIT   1
2626 @ 21326:               PUSHI  #0x00000052
2627 @ 21331:               INIT   1
2628 @ 21334:               PUSHI  #0x00000049
2629 @ 21339:               INIT   1
2630 @ 21342:               PUSHI  #0x0000004e
2631 @ 21347:               INIT   1
2632 @ 21350:               PUSHI  #0x00000054
2633 @ 21355:               INIT   1
2634 @ 21358:               PUSHI  #0x00000007
2635 @ 21363:               INIT   1
2636 @ 21366:               PUSHI  #0x00000050
2637 @ 21371:               INIT   1
2638 @ 21374:               PUSHI  #0x00000052
2639 @ 21379:               INIT   1
2640 @ 21382:               PUSHI  #0x00000049
2641 @ 21387:               INIT   1
2642 @ 21390:               PUSHI  #0x0000004e
2643 @ 21395:               INIT   1
2644 @ 21398:               PUSHI  #0x00000054
2645 @ 21403:               INIT   1
2646 @ 21406:               PUSHI  #0x00000046
2647 @ 21411:               INIT   1
2648 @ 21414:               PUSHI  #0x0000004c
2649 @ 21419:               INIT   1
2650 @ 21422:               PUSHI  #0x00000004
2651 @ 21427:               INIT   1
2652 @ 21430:               PUSHI  #0x00000052
2653 @ 21435:               INIT   1
2654 @ 21438:               PUSHI  #0x00000045
2655 @ 21443:               INIT   1
2656 @ 21446:               PUSHI  #0x00000041
2657 @ 21451:               INIT   1
2658 @ 21454:               PUSHI  #0x0000004c
2659 @ 21459:               INIT   1
2660 @ 21462:               PUSHI  #0x00000007
2661 @ 21467:               INIT   1
2662 @ 21470:               PUSHI  #0x00000049
2663 @ 21475:               INIT   1
2664 @ 21478:               PUSHI  #0x0000004e
2665 @ 21483:               INIT   1
2666 @ 21486:               PUSHI  #0x00000054
2667 @ 21491:               INIT   1
2668 @ 21494:               PUSHI  #0x00000045
2669 @ 21499:               INIT   1
2670 @ 21502:               PUSHI  #0x00000047
2671 @ 21507:               INIT   1
2672 @ 21510:               PUSHI  #0x00000045
2673 @ 21515:               INIT   1
2674 @ 21518:               PUSHI  #0x00000052
2675 @ 21523:               INIT   1
2676 @ 21526:               PUSHI  #0x00000003
2677 @ 21531:               INIT   1
2678 @ 21534:               PUSHI  #0x0000004d
2679 @ 21539:               INIT   1
2680 @ 21542:               PUSHI  #0x0000004f
2681 @ 21547:               INIT   1
2682 @ 21550:               PUSHI  #0x00000044
2683 @ 21555:               INIT   1
2684 @ 21558:               PUSHI  #0x00000006
2685 @ 21563:               INIT   1
2686 @ 21566:               PUSHI  #0x00000041
2687 @ 21571:               INIT   1
2688 @ 21574:               PUSHI  #0x00000052
2689 @ 21579:               INIT   1
2690 @ 21582:               PUSHI  #0x00000043
2691 @ 21587:               INIT   1
2692 @ 21590:               PUSHI  #0x00000043
2693 @ 21595:               INIT   1
2694 @ 21598:               PUSHI  #0x0000004f
2695 @ 21603:               INIT   1
2696 @ 21606:               PUSHI  #0x00000053
2697 @ 21611:               INIT   1
2698 @ 21614:               PUSHI  #0x00000004
2699 @ 21619:               INIT   1
2700 @ 21622:               PUSHI  #0x00000053
2701 @ 21627:               INIT   1
2702 @ 21630:               PUSHI  #0x00000051
2703 @ 21635:               INIT   1
2704 @ 21638:               PUSHI  #0x00000052
2705 @ 21643:               INIT   1
2706 @ 21646:               PUSHI  #0x00000054
2707 @ 21651:               INIT   1
2708 @ 21654:               PUSHI  #0x00000003
2709 @ 21659:               INIT   1
2710 @ 21662:               PUSHI  #0x0000004c
2711 @ 21667:               INIT   1
2712 @ 21670:               PUSHI  #0x0000004f
2713 @ 21675:               INIT   1
2714 @ 21678:               PUSHI  #0x00000047
2715 @ 21683:               INIT   1
2716 @ 21686:               PUSHI  #0x00000003
2717 @ 21691:               INIT   1
2718 @ 21694:               PUSHI  #0x00000053
2719 @ 21699:               INIT   1
2720 @ 21702:               PUSHI  #0x00000049
2721 @ 21707:               INIT   1
2722 @ 21710:               PUSHI  #0x0000004e
2723 @ 21715:               INIT   1
2724 @ 21718:               PUSHI  #0x00000003
2725 @ 21723:               INIT   1
2726 @ 21726:               PUSHI  #0x00000043
2727 @ 21731:               INIT   1
2728 @ 21734:               PUSHI  #0x0000004f
2729 @ 21739:               INIT   1
2730 @ 21742:               PUSHI  #0x00000053
2731 @ 21747:               INIT   1
2732 @ 21750:               PUSHI  #0x00000003
2733 @ 21755:               INIT   1
2734 @ 21758:               PUSHI  #0x00000054
2735 @ 21763:               INIT   1
2736 @ 21766:               PUSHI  #0x00000041
2737 @ 21771:               INIT   1
2738 @ 21774:               PUSHI  #0x0000004e
2739 @ 21779:               INIT   1
2740 @ 21782:               PUSHI  #0x00000003
2741 @ 21787:               INIT   1
2742 @ 21790:               PUSHI  #0x00000045
2743 @ 21795:               INIT   1
2744 @ 21798:               PUSHI  #0x00000058
2745 @ 21803:               INIT   1
2746 @ 21806:               PUSHI  #0x00000050
2747 @ 21811:               INIT   1
2748 @ 21814:               PUSHI  #0x0000000b
2749 @ 21819:               INIT   1
2750 @ 21822:               PUSHI  #0x00000043
2751 @ 21827:               INIT   1
2752 @ 21830:               PUSHI  #0x0000004c
2753 @ 21835:               INIT   1
2754 @ 21838:               PUSHI  #0x0000004f
2755 @ 21843:               INIT   1
2756 @ 21846:               PUSHI  #0x00000053
2757 @ 21851:               INIT   1
2758 @ 21854:               PUSHI  #0x00000045
2759 @ 21859:               INIT   1
2760 @ 21862:               PUSHI  #0x00000053
2761 @ 21867:               INIT   1
2762 @ 21870:               PUSHI  #0x00000054
2763 @ 21875:               INIT   1
2764 @ 21878:               PUSHI  #0x00000052
2765 @ 21883:               INIT   1
2766 @ 21886:               PUSHI  #0x00000045
2767 @ 21891:               INIT   1
2768 @ 21894:               PUSHI  #0x00000041
2769 @ 21899:               INIT   1
2770 @ 21902:               PUSHI  #0x0000004d
2771 @ 21907:               INIT   1
2772 @ 21910:               PUSHI  #0x0000000b
2773 @ 21915:               INIT   1
2774 @ 21918:               PUSHI  #0x00000042
2775 @ 21923:               INIT   1
2776 @ 21926:               PUSHI  #0x00000059
2777 @ 21931:               INIT   1
2778 @ 21934:               PUSHI  #0x00000054
2779 @ 21939:               INIT   1
2780 @ 21942:               PUSHI  #0x00000045
2781 @ 21947:               INIT   1
2782 @ 21950:               PUSHI  #0x00000049
2783 @ 21955:               INIT   1
2784 @ 21958:               PUSHI  #0x0000004e
2785 @ 21963:               INIT   1
2786 @ 21966:               PUSHI  #0x00000054
2787 @ 21971:               INIT   1
2788 @ 21974:               PUSHI  #0x00000045
2789 @ 21979:               INIT   1
2790 @ 21982:               PUSHI  #0x00000047
2791 @ 21987:               INIT   1
2792 @ 21990:               PUSHI  #0x00000045
2793 @ 21995:               INIT   1
2794 @ 21998:               PUSHI  #0x00000052
2795 @ 22003:               INIT   1
2796 @ 22006:               PUSHI  #0x0000000c
2797 @ 22011:               INIT   1
2798 @ 22014:               PUSHI  #0x00000053
2799 @ 22019:               INIT   1
2800 @ 22022:               PUSHI  #0x00000048
2801 @ 22027:               INIT   1
2802 @ 22030:               PUSHI  #0x0000004f
2803 @ 22035:               INIT   1
2804 @ 22038:               PUSHI  #0x00000052
2805 @ 22043:               INIT   1
2806 @ 22046:               PUSHI  #0x00000054
2807 @ 22051:               INIT   1
2808 @ 22054:               PUSHI  #0x00000049
2809 @ 22059:               INIT   1
2810 @ 22062:               PUSHI  #0x0000004e
2811 @ 22067:               INIT   1
2812 @ 22070:               PUSHI  #0x00000054
2813 @ 22075:               INIT   1
2814 @ 22078:               PUSHI  #0x00000045
2815 @ 22083:               INIT   1
2816 @ 22086:               PUSHI  #0x00000047
2817 @ 22091:               INIT   1
2818 @ 22094:               PUSHI  #0x00000045
2819 @ 22099:               INIT   1
2820 @ 22102:               PUSHI  #0x00000052
2821 @ 22107:               INIT   1
2822 @ 22110:               PUSHI  #0x00000006
2823 @ 22115:               INIT   1
2824 @ 22118:               PUSHI  #0x00000052
2825 @ 22123:               INIT   1
2826 @ 22126:               PUSHI  #0x00000041
2827 @ 22131:               INIT   1
2828 @ 22134:               PUSHI  #0x00000044
2829 @ 22139:               INIT   1
2830 @ 22142:               PUSHI  #0x00000049
2831 @ 22147:               INIT   1
2832 @ 22150:               PUSHI  #0x00000055
2833 @ 22155:               INIT   1
2834 @ 22158:               PUSHI  #0x00000053
2835 @ 22163:               INIT   1
2836 @ 22166:               PUSHI  #0x00000006
2837 @ 22171:               INIT   1
2838 @ 22174:               PUSHI  #0x00000041
2839 @ 22179:               INIT   1
2840 @ 22182:               PUSHI  #0x00000052
2841 @ 22187:               INIT   1
2842 @ 22190:               PUSHI  #0x00000043
2843 @ 22195:               INIT   1
2844 @ 22198:               PUSHI  #0x00000054
2845 @ 22203:               INIT   1
2846 @ 22206:               PUSHI  #0x00000041
2847 @ 22211:               INIT   1
2848 @ 22214:               PUSHI  #0x0000004e
2849 @ 22219:               INIT   1
2850 @ 22222:               PUSHI  #0x00000006
2851 @ 22227:               INIT   1
2852 @ 22230:               PUSHI  #0x0000004c
2853 @ 22235:               INIT   1
2854 @ 22238:               PUSHI  #0x00000045
2855 @ 22243:               INIT   1
2856 @ 22246:               PUSHI  #0x0000004e
2857 @ 22251:               INIT   1
2858 @ 22254:               PUSHI  #0x00000047
2859 @ 22259:               INIT   1
2860 @ 22262:               PUSHI  #0x00000054
2861 @ 22267:               INIT   1
2862 @ 22270:               PUSHI  #0x00000048
2863 @ 22275:               INIT   1
2864 @ 22278:               PUSHI  #0x0000000b
2865 @ 22283:               INIT   1
2866 @ 22286:               PUSHI  #0x00000050
2867 @ 22291:               INIT   1
2868 @ 22294:               PUSHI  #0x00000052
2869 @ 22299:               INIT   1
2870 @ 22302:               PUSHI  #0x00000049
2871 @ 22307:               INIT   1
2872 @ 22310:               PUSHI  #0x0000004e
2873 @ 22315:               INIT   1
2874 @ 22318:               PUSHI  #0x00000054
2875 @ 22323:               INIT   1
2876 @ 22326:               PUSHI  #0x00000053
2877 @ 22331:               INIT   1
2878 @ 22334:               PUSHI  #0x00000054
2879 @ 22339:               INIT   1
2880 @ 22342:               PUSHI  #0x00000052
2881 @ 22347:               INIT   1
2882 @ 22350:               PUSHI  #0x00000049
2883 @ 22355:               INIT   1
2884 @ 22358:               PUSHI  #0x0000004e
2885 @ 22363:               INIT   1
2886 @ 22366:               PUSHI  #0x00000047
2887 @ 22371:               INIT   1
2888 @ 22374:               PUSHI  #0x00000002
2889 @ 22379:               INIT   1
2890 @ 22382:               PUSHI  #0x0000004e
2891 @ 22387:               INIT   1
2892 @ 22390:               PUSHI  #0x0000004c
2893 @ 22395:               INIT   1
2894 @ 22398:               PUSHI  #0x00000008
2895 @ 22403:               INIT   1
2896 @ 22406:               PUSHI  #0x0000004c
2897 @ 22411:               INIT   1
2898 @ 22414:               PUSHI  #0x0000004f
2899 @ 22419:               INIT   1
2900 @ 22422:               PUSHI  #0x0000004e
2901 @ 22427:               INIT   1
2902 @ 22430:               PUSHI  #0x00000047
2903 @ 22435:               INIT   1
2904 @ 22438:               PUSHI  #0x00000052
2905 @ 22443:               INIT   1
2906 @ 22446:               PUSHI  #0x00000045
2907 @ 22451:               INIT   1
2908 @ 22454:               PUSHI  #0x00000041
2909 @ 22459:               INIT   1
2910 @ 22462:               PUSHI  #0x0000004c
2911 @ 22467:               INIT   1
2912 @ 22470:               PUSHI  #0x00000007
2913 @ 22475:               INIT   1
2914 @ 22478:               PUSHI  #0x00000050
2915 @ 22483:               INIT   1
2916 @ 22486:               PUSHI  #0x00000052
2917 @ 22491:               INIT   1
2918 @ 22494:               PUSHI  #0x00000049
2919 @ 22499:               INIT   1
2920 @ 22502:               PUSHI  #0x0000004e
2921 @ 22507:               INIT   1
2922 @ 22510:               PUSHI  #0x00000054
2923 @ 22515:               INIT   1
2924 @ 22518:               PUSHI  #0x00000043
2925 @ 22523:               INIT   1
2926 @ 22526:               PUSHI  #0x00000048
2927 @ 22531:               INIT   1
2928 @ 22534:               PUSHI  #0x00000006
2929 @ 22539:               INIT   1
2930 @ 22542:               PUSHI  #0x00000052
2931 @ 22547:               INIT   1
2932 @ 22550:               PUSHI  #0x00000045
2933 @ 22555:               INIT   1
2934 @ 22558:               PUSHI  #0x00000041
2935 @ 22563:               INIT   1
2936 @ 22566:               PUSHI  #0x00000044
2937 @ 22571:               INIT   1
2938 @ 22574:               PUSHI  #0x00000043
2939 @ 22579:               INIT   1
2940 @ 22582:               PUSHI  #0x00000048
2941 @ 22587:               INIT   1
2942 @ 22590:               PUSHI  #0x00000006
2943 @ 22595:               INIT   1
2944 @ 22598:               PUSHI  #0x00000053
2945 @ 22603:               INIT   1
2946 @ 22606:               PUSHI  #0x00000054
2947 @ 22611:               INIT   1
2948 @ 22614:               PUSHI  #0x00000052
2949 @ 22619:               INIT   1
2950 @ 22622:               PUSHI  #0x00000049
2951 @ 22627:               INIT   1
2952 @ 22630:               PUSHI  #0x0000004e
2953 @ 22635:               INIT   1
2954 @ 22638:               PUSHI  #0x00000047
2955 @ 22643:               INIT   1
2956 @ 22646:               PUSHI  #0x00000008
2957 @ 22651:               INIT   1
2958 @ 22654:               PUSHI  #0x00000052
2959 @ 22659:               INIT   1
2960 @ 22662:               PUSHI  #0x00000045
2961 @ 22667:               INIT   1
2962 @ 22670:               PUSHI  #0x00000041
2963 @ 22675:               INIT   1
2964 @ 22678:               PUSHI  #0x00000044
2965 @ 22683:               INIT   1
2966 @ 22686:               PUSHI  #0x00000049
2967 @ 22691:               INIT   1
2968 @ 22694:               PUSHI  #0x00000054
2969 @ 22699:               INIT   1
2970 @ 22702:               PUSHI  #0x00000045
2971 @ 22707:               INIT   1
2972 @ 22710:               PUSHI  #0x0000004d
2973 @ 22715:               INIT   1
2974 @ 22718:               PUSHI  #0x00000008
2975 @ 22723:               INIT   1
2976 @ 22726:               PUSHI  #0x0000004e
2977 @ 22731:               INIT   1
2978 @ 22734:               PUSHI  #0x00000045
2979 @ 22739:               INIT   1
2980 @ 22742:               PUSHI  #0x00000058
2981 @ 22747:               INIT   1
2982 @ 22750:               PUSHI  #0x00000054
2983 @ 22755:               INIT   1
2984 @ 22758:               PUSHI  #0x00000049
2985 @ 22763:               INIT   1
2986 @ 22766:               PUSHI  #0x00000054
2987 @ 22771:               INIT   1
2988 @ 22774:               PUSHI  #0x00000045
2989 @ 22779:               INIT   1
2990 @ 22782:               PUSHI  #0x0000004d
2991 @ 22787:               INIT   1
2992 @ 22790:               PUSHI  #0x00000006
2993 @ 22795:               INIT   1
2994 @ 22798:               PUSHI  #0x00000043
2995 @ 22803:               INIT   1
2996 @ 22806:               PUSHI  #0x00000048
2997 @ 22811:               INIT   1
2998 @ 22814:               PUSHI  #0x00000041
2999 @ 22819:               INIT   1
3000 @ 22822:               PUSHI  #0x00000052
3001 @ 22827:               INIT   1
3002 @ 22830:               PUSHI  #0x0000004e
3003 @ 22835:               INIT   1
3004 @ 22838:               PUSHI  #0x0000004f
3005 @ 22843:               INIT   1
3006 @ 22846:               PUSHI  #0x00000008
3007 @ 22851:               INIT   1
3008 @ 22854:               PUSHI  #0x00000054
3009 @ 22859:               INIT   1
3010 @ 22862:               PUSHI  #0x0000004f
3011 @ 22867:               INIT   1
3012 @ 22870:               PUSHI  #0x00000053
3013 @ 22875:               INIT   1
3014 @ 22878:               PUSHI  #0x00000054
3015 @ 22883:               INIT   1
3016 @ 22886:               PUSHI  #0x00000052
3017 @ 22891:               INIT   1
3018 @ 22894:               PUSHI  #0x00000049
3019 @ 22899:               INIT   1
3020 @ 22902:               PUSHI  #0x0000004e
3021 @ 22907:               INIT   1
3022 @ 22910:               PUSHI  #0x00000047
3023 @ 22915:               INIT   1
3024 @ 22918:               PUSHI  #0x0000000a
3025 @ 22923:               INIT   1
3026 @ 22926:               PUSHI  #0x00000046
3027 @ 22931:               INIT   1
3028 @ 22934:               PUSHI  #0x00000052
3029 @ 22939:               INIT   1
3030 @ 22942:               PUSHI  #0x0000004f
3031 @ 22947:               INIT   1
3032 @ 22950:               PUSHI  #0x0000004d
3033 @ 22955:               INIT   1
3034 @ 22958:               PUSHI  #0x00000053
3035 @ 22963:               INIT   1
3036 @ 22966:               PUSHI  #0x00000054
3037 @ 22971:               INIT   1
3038 @ 22974:               PUSHI  #0x00000052
3039 @ 22979:               INIT   1
3040 @ 22982:               PUSHI  #0x00000049
3041 @ 22987:               INIT   1
3042 @ 22990:               PUSHI  #0x0000004e
3043 @ 22995:               INIT   1
3044 @ 22998:               PUSHI  #0x00000047
3045 @ 23003:               INIT   1
3046 @ 23006:               PUSHI  #0x00000006
3047 @ 23011:               INIT   1
3048 @ 23014:               PUSHI  #0x00000052
3049 @ 23019:               INIT   1
3050 @ 23022:               PUSHI  #0x00000045
3051 @ 23027:               INIT   1
3052 @ 23030:               PUSHI  #0x00000043
3053 @ 23035:               INIT   1
3054 @ 23038:               PUSHI  #0x0000004f
3055 @ 23043:               INIT   1
3056 @ 23046:               PUSHI  #0x00000052
3057 @ 23051:               INIT   1
3058 @ 23054:               PUSHI  #0x00000044
3059 @ 23059:               INIT   1
3060 @ 23062:               PUSHI  #0x00000005
3061 @ 23067:               INIT   1
3062 @ 23070:               PUSHI  #0x00000041
3063 @ 23075:               INIT   1
3064 @ 23078:               PUSHI  #0x00000052
3065 @ 23083:               INIT   1
3066 @ 23086:               PUSHI  #0x00000052
3067 @ 23091:               INIT   1
3068 @ 23094:               PUSHI  #0x00000041
3069 @ 23099:               INIT   1
3070 @ 23102:               PUSHI  #0x00000059
3071 @ 23107:               INIT   1
3072 @ 23110:               PUSHI  #0x0000000a
3073 @ 23115:               INIT   1
3074 @ 23118:               PUSHI  #0x00000053
3075 @ 23123:               INIT   1
3076 @ 23126:               PUSHI  #0x00000045
3077 @ 23131:               INIT   1
3078 @ 23134:               PUSHI  #0x00000054
3079 @ 23139:               INIT   1
3080 @ 23142:               PUSHI  #0x0000004d
3081 @ 23147:               INIT   1
3082 @ 23150:               PUSHI  #0x00000041
3083 @ 23155:               INIT   1
3084 @ 23158:               PUSHI  #0x00000052
3085 @ 23163:               INIT   1
3086 @ 23166:               PUSHI  #0x00000047
3087 @ 23171:               INIT   1
3088 @ 23174:               PUSHI  #0x00000049
3089 @ 23179:               INIT   1
3090 @ 23182:               PUSHI  #0x0000004e
3091 @ 23187:               INIT   1
3092 @ 23190:               PUSHI  #0x00000053
3093 @ 23195:               INIT   1
3094 @ 23198:               PUSHI  #0x00000004
3095 @ 23203:               INIT   1
3096 @ 23206:               PUSHI  #0x00000049
3097 @ 23211:               INIT   1
3098 @ 23214:               PUSHI  #0x0000004d
3099 @ 23219:               INIT   1
3100 @ 23222:               PUSHI  #0x0000004f
3101 @ 23227:               INIT   1
3102 @ 23230:               PUSHI  #0x00000044
3103 @ 23235:               INIT   1
3104 @ 23238:               PUSHI  #0x00000002
3105 @ 23243:               INIT   1
3106 @ 23246:               PUSHI  #0x00000050
3107 @ 23251:               INIT   1
3108 @ 23254:               PUSHI  #0x00000049
3109 @ 23259:               INIT   1
3110 @ 23262:               PUSHI  #0x00000006
3111 @ 23267:               INIT   1
3112 @ 23270:               PUSHI  #0x0000004e
3113 @ 23275:               INIT   1
3114 @ 23278:               PUSHI  #0x00000045
3115 @ 23283:               INIT   1
3116 @ 23286:               PUSHI  #0x00000058
3117 @ 23291:               INIT   1
3118 @ 23294:               PUSHI  #0x00000054
3119 @ 23299:               INIT   1
3120 @ 23302:               PUSHI  #0x00000043
3121 @ 23307:               INIT   1
3122 @ 23310:               PUSHI  #0x00000048
3123 @ 23315:               INIT   1
3124 @ 23318:               PUSHI  #0x000000ff
3125 @ 23323:               INIT   1

   293           STMTSHELD=0; TOPPTR=500
3126 @ 23326:               LINE   293 "regression-compile-tmp/imp918s.imp"
3127 @ 23364:               PUSH   STMTSHELD
3128 @ 23367:               PUSHI  #0x00000000
3129 @ 23372:               ASSVAL
3130 @ 23373:               LINE   293 "regression-compile-tmp/imp918s.imp"
3131 @ 23411:               PUSH   TOPPTR
3132 @ 23414:               PUSHI  #0x000001f4
3133 @ 23419:               ASSVAL

   294           IMAX=(-1)>>1;PLABEL=26999
3134 @ 23420:               LINE   294 "regression-compile-tmp/imp918s.imp"
3135 @ 23458:               PUSH   IMAX
3136 @ 23461:               PUSHI  #0x00000001
3137 @ 23466:               NEGATE
3138 @ 23467:               PUSHI  #0x00000001
3139 @ 23472:               RSH   
3140 @ 23473:               ASSVAL
3141 @ 23474:               LINE   294 "regression-compile-tmp/imp918s.imp"
3142 @ 23512:               PUSH   PLABEL
3143 @ 23515:               PUSHI  #0x00006977
3144 @ 23520:               ASSVAL

   295           LABSET=3<<30;LETT(0)=0
3145 @ 23521:               LINE   295 "regression-compile-tmp/imp918s.imp"
3146 @ 23559:               PUSH   LABSET
3147 @ 23562:               PUSHI  #0x00000003
3148 @ 23567:               PUSHI  #0x0000001e
3149 @ 23572:               LSH   
3150 @ 23573:               ASSVAL
3151 @ 23574:               LINE   295 "regression-compile-tmp/imp918s.imp"
3152 @ 23612:               PUSH   LETT
3153 @ 23615:               PUSHI  #0x00000000
3154 @ 23620:               ACCESS
3155 @ 23621:               PUSHI  #0x00000000
3156 @ 23626:               ASSVAL

   296           N0=27; N=12; MARGIN=1024
3157 @ 23627:               LINE   296 "regression-compile-tmp/imp918s.imp"
3158 @ 23665:               PUSH   N0
3159 @ 23668:               PUSHI  #0x0000001b
3160 @ 23673:               ASSVAL
3161 @ 23674:               LINE   296 "regression-compile-tmp/imp918s.imp"
3162 @ 23712:               PUSH   N
3163 @ 23715:               PUSHI  #0x0000000c
3164 @ 23720:               ASSVAL
3165 @ 23721:               LINE   296 "regression-compile-tmp/imp918s.imp"
3166 @ 23759:               PUSH   MARGIN
3167 @ 23762:               PUSHI  #0x00000400
3168 @ 23767:               ASSVAL

   297           MAX ULAB=NNAMES+16384;   ! LARGEST VALID USER LABEL
3169 @ 23768:               LINE   297 "regression-compile-tmp/imp918s.imp"
3170 @ 23806:               PUSH   MAXULAB
3171 @ 23809:               PUSH   NNAMES
3172 @ 23812:               PUSHI  #0x00004000
3173 @ 23817:               ADD   
3174 @ 23818:               ASSVAL

   298           GLACA=N0<<2; GLACABUF=GLACA
3175 @ 23819:               LINE   298 "regression-compile-tmp/imp918s.imp"
3176 @ 23857:               PUSH   GLACA
3177 @ 23860:               PUSH   N0
3178 @ 23863:               PUSHI  #0x00000002
3179 @ 23868:               LSH   
3180 @ 23869:               ASSVAL
3181 @ 23870:               LINE   298 "regression-compile-tmp/imp918s.imp"
3182 @ 23908:               PUSH   GLACABUF
3183 @ 23911:               PUSH   GLACA
3184 @ 23914:               ASSVAL

   299           CHECKSP=1 ;  CHECKS=1
3185 @ 23915:               LINE   299 "regression-compile-tmp/imp918s.imp"
3186 @ 23953:               PUSH   CHECKSP
3187 @ 23956:               PUSHI  #0x00000001
3188 @ 23961:               ASSVAL
3189 @ 23962:               LINE   299 "regression-compile-tmp/imp918s.imp"
3190 @ 24000:               PUSH   CHECKS
3191 @ 24003:               PUSHI  #0x00000001
3192 @ 24008:               ASSVAL

   300           LINENOS=1; DIAGS1=1;  MONE=1
3193 @ 24009:               LINE   300 "regression-compile-tmp/imp918s.imp"
3194 @ 24047:               PUSH   LINENOS
3195 @ 24050:               PUSHI  #0x00000001
3196 @ 24055:               ASSVAL
3197 @ 24056:               LINE   300 "regression-compile-tmp/imp918s.imp"
3198 @ 24094:               PUSH   DIAGS1
3199 @ 24097:               PUSHI  #0x00000001
3200 @ 24102:               ASSVAL
3201 @ 24103:               LINE   300 "regression-compile-tmp/imp918s.imp"
3202 @ 24141:               PUSH   MONE
3203 @ 24144:               PUSHI  #0x00000001
3204 @ 24149:               ASSVAL

   301           LIST=1; SFLABEL=21999; UNASS=1
3205 @ 24150:               LINE   301 "regression-compile-tmp/imp918s.imp"
3206 @ 24188:               PUSH   LIST
3207 @ 24191:               PUSHI  #0x00000001
3208 @ 24196:               ASSVAL
3209 @ 24197:               LINE   301 "regression-compile-tmp/imp918s.imp"
3210 @ 24235:               PUSH   SFLABEL
3211 @ 24238:               PUSHI  #0x000055ef
3212 @ 24243:               ASSVAL
3213 @ 24244:               LINE   301 "regression-compile-tmp/imp918s.imp"
3214 @ 24282:               PUSH   UNASS
3215 @ 24285:               PUSHI  #0x00000001
3216 @ 24290:               ASSVAL

   302           LET=1; XLABEL=19999;      ! FOR EXIT STATEMENTS
3217 @ 24291:               LINE   302 "regression-compile-tmp/imp918s.imp"
3218 @ 24329:               PUSH   LET
3219 @ 24332:               PUSHI  #0x00000001
3220 @ 24337:               ASSVAL
3221 @ 24338:               LINE   302 "regression-compile-tmp/imp918s.imp"
3222 @ 24376:               PUSH   XLABEL
3223 @ 24379:               PUSHI  #0x00004e1f
3224 @ 24384:               ASSVAL

   303           ARSIZE=480
3225 @ 24385:               LINE   303 "regression-compile-tmp/imp918s.imp"
3226 @ 24423:               PUSH   ARSIZE
3227 @ 24426:               PUSHI  #0x000001e0
3228 @ 24431:               ASSVAL

   304            QUICK=11009
3229 @ 24432:               LINE   304 "regression-compile-tmp/imp918s.imp"
3230 @ 24470:               PUSH   QUICK
3231 @ 24473:               PUSHI  #0x00002b01
3232 @ 24478:               ASSVAL

   305           MAINEP1=4; MAINEP2=M'S#GO';  ! DEFAULT ENTRY POINT
3233 @ 24479:               LINE   305 "regression-compile-tmp/imp918s.imp"
3234 @ 24517:               PUSH   MAINEP1
3235 @ 24520:               PUSHI  #0x00000004
3236 @ 24525:               ASSVAL
3237 @ 24526:               LINE   305 "regression-compile-tmp/imp918s.imp"
3238 @ 24564:               PUSH   MAINEP2
3239 @ 24567:               PUSHI  #0x5323474f
3240 @ 24572:               ASSVAL

   306           IOCP1=6; IOCP2=M'S#IO'; IOCP3=M'CPXX'
3241 @ 24573:               LINE   306 "regression-compile-tmp/imp918s.imp"
3242 @ 24611:               PUSH   IOCP1
3243 @ 24614:               PUSHI  #0x00000006
3244 @ 24619:               ASSVAL
3245 @ 24620:               LINE   306 "regression-compile-tmp/imp918s.imp"
3246 @ 24658:               PUSH   IOCP2
3247 @ 24661:               PUSHI  #0x5323494f
3248 @ 24666:               ASSVAL
3249 @ 24667:               LINE   306 "regression-compile-tmp/imp918s.imp"
3250 @ 24705:               PUSH   IOCP3
3251 @ 24708:               PUSHI  #0x43505858
3252 @ 24713:               ASSVAL

   307           IMPMON1=8; IMPMON2=M'S#IM'; IMPMON3=M'PMON'
   308           !*INSERT
3253 @ 24714:               LINE   307 "regression-compile-tmp/imp918s.imp"
3254 @ 24752:               PUSH   IMPMON1
3255 @ 24755:               PUSHI  #0x00000008
3256 @ 24760:               ASSVAL
3257 @ 24761:               LINE   307 "regression-compile-tmp/imp918s.imp"
3258 @ 24799:               PUSH   IMPMON2
3259 @ 24802:               PUSHI  #0x5323494d
3260 @ 24807:               ASSVAL
3261 @ 24808:               LINE   307 "regression-compile-tmp/imp918s.imp"
3262 @ 24846:               PUSH   IMPMON3
3263 @ 24849:               PUSHI  #0x504d4f4e
3264 @ 24854:               ASSVAL

   309           %IF FILE ADDR#0 %THEN %START
3265 @ 24855:               LINE   309 "regression-compile-tmp/imp918s.imp"
3266 @ 24893:               PUSH   FILEADDR
3267 @ 24896:               PUSHI  #0x00000000
3268 @ 24901:               JUMPIF = L_0004

   310             FILE PTR=FILE ADDR+INTEGER(FILE ADDR+4)
3269 @ 24905:               LINE   310 "regression-compile-tmp/imp918s.imp"
3270 @ 24943:               PUSH   FILEPTR
3271 @ 24946:               PUSH   FILEADDR
3272 @ 24949:               PUSH   INTEGER
3273 @ 24952:               PUSH   FILEADDR
3274 @ 24955:               PUSHI  #0x00000004
3275 @ 24960:               ADD   
3276 @ 24961:               ASSPAR
3277 @ 24962:               CALL  
3278 @ 24963:               ADD   
3279 @ 24964:               ASSVAL

   311             FILE END=FILE ADDR+INTEGER(FILE ADDR)
3280 @ 24965:               LINE   311 "regression-compile-tmp/imp918s.imp"
3281 @ 25003:               PUSH   FILEEND
3282 @ 25006:               PUSH   FILEADDR
3283 @ 25009:               PUSH   INTEGER
3284 @ 25012:               PUSH   FILEADDR
3285 @ 25015:               ASSPAR
3286 @ 25016:               CALL  
3287 @ 25017:               ADD   
3288 @ 25018:               ASSVAL

   312           %FINISH
3289 @ 25019:               LINE   312 "regression-compile-tmp/imp918s.imp"
3290 @ 25057:               LOCATE L_0004

   313           I=COMREG(27)
3291 @ 25060:               LINE   313 "regression-compile-tmp/imp918s.imp"
3292 @ 25098:               PUSH   I
3293 @ 25101:               PUSH   COMREG
3294 @ 25104:               PUSHI  #0x0000001b
3295 @ 25109:               ASSPAR
3296 @ 25110:               CALL  
3297 @ 25111:               ASSVAL

   314           %IF I&2=2 %THEN LIST=0
3298 @ 25112:               LINE   314 "regression-compile-tmp/imp918s.imp"
3299 @ 25150:               PUSH   I
3300 @ 25153:               PUSHI  #0x00000002
3301 @ 25158:               AND   
3302 @ 25159:               PUSHI  #0x00000002
3303 @ 25164:               JUMPIF # L_0004
3304 @ 25168:               PUSH   LIST
3305 @ 25171:               PUSHI  #0x00000000
3306 @ 25176:               ASSVAL
3307 @ 25177:               LOCATE L_0004

   315           %IF I&4=4 %THEN LINENOS=0
3308 @ 25180:               LINE   315 "regression-compile-tmp/imp918s.imp"
3309 @ 25218:               PUSH   I
3310 @ 25221:               PUSHI  #0x00000004
3311 @ 25226:               AND   
3312 @ 25227:               PUSHI  #0x00000004
3313 @ 25232:               JUMPIF # L_0004
3314 @ 25236:               PUSH   LINENOS
3315 @ 25239:               PUSHI  #0x00000000
3316 @ 25244:               ASSVAL
3317 @ 25245:               LOCATE L_0004

   316           %IF I&16=16 %THEN UNASS=0
3318 @ 25248:               LINE   316 "regression-compile-tmp/imp918s.imp"
3319 @ 25286:               PUSH   I
3320 @ 25289:               PUSHI  #0x00000010
3321 @ 25294:               AND   
3322 @ 25295:               PUSHI  #0x00000010
3323 @ 25300:               JUMPIF # L_0004
3324 @ 25304:               PUSH   UNASS
3325 @ 25307:               PUSHI  #0x00000000
3326 @ 25312:               ASSVAL
3327 @ 25313:               LOCATE L_0004

   317           %IF I&32=32  %THEN CHECKS=0
3328 @ 25316:               LINE   317 "regression-compile-tmp/imp918s.imp"
3329 @ 25354:               PUSH   I
3330 @ 25357:               PUSHI  #0x00000020
3331 @ 25362:               AND   
3332 @ 25363:               PUSHI  #0x00000020
3333 @ 25368:               JUMPIF # L_0004
3334 @ 25372:               PUSH   CHECKS
3335 @ 25375:               PUSHI  #0x00000000
3336 @ 25380:               ASSVAL
3337 @ 25381:               LOCATE L_0004

   318           %IF I&(128<<8)#0 %THEN PRINTMAP=1
3338 @ 25384:               LINE   318 "regression-compile-tmp/imp918s.imp"
3339 @ 25422:               PUSH   I
3340 @ 25425:               PUSHI  #0x00000080
3341 @ 25430:               PUSHI  #0x00000008
3342 @ 25435:               LSH   
3343 @ 25436:               AND   
3344 @ 25437:               PUSHI  #0x00000000
3345 @ 25442:               JUMPIF = L_0004
3346 @ 25446:               PUSH   PRINTMAP
3347 @ 25449:               PUSHI  #0x00000001
3348 @ 25454:               ASSVAL
3349 @ 25455:               LOCATE L_0004

   319           %IF I&(32<<8)#0 %THEN LET=0
3350 @ 25458:               LINE   319 "regression-compile-tmp/imp918s.imp"
3351 @ 25496:               PUSH   I
3352 @ 25499:               PUSHI  #0x00000020
3353 @ 25504:               PUSHI  #0x00000008
3354 @ 25509:               LSH   
3355 @ 25510:               AND   
3356 @ 25511:               PUSHI  #0x00000000
3357 @ 25516:               JUMPIF = L_0004
3358 @ 25520:               PUSH   LET
3359 @ 25523:               PUSHI  #0x00000000
3360 @ 25528:               ASSVAL
3361 @ 25529:               LOCATE L_0004

   320           %IF I&64=64 %THEN DIAGS1=0
3362 @ 25532:               LINE   320 "regression-compile-tmp/imp918s.imp"
3363 @ 25570:               PUSH   I
3364 @ 25573:               PUSHI  #0x00000040
3365 @ 25578:               AND   
3366 @ 25579:               PUSHI  #0x00000040
3367 @ 25584:               JUMPIF # L_0004
3368 @ 25588:               PUSH   DIAGS1
3369 @ 25591:               PUSHI  #0x00000000
3370 @ 25596:               ASSVAL
3371 @ 25597:               LOCATE L_0004

   321           DIAGS2=I>>18&1
3372 @ 25600:               LINE   321 "regression-compile-tmp/imp918s.imp"
3373 @ 25638:               PUSH   DIAGS2
3374 @ 25641:               PUSH   I
3375 @ 25644:               PUSHI  #0x00000012
3376 @ 25649:               RSH   
3377 @ 25650:               PUSHI  #0x00000001
3378 @ 25655:               AND   
3379 @ 25656:               ASSVAL

   322           TTOPUT=I>>21&1
3380 @ 25657:               LINE   322 "regression-compile-tmp/imp918s.imp"
3381 @ 25695:               PUSH   TTOPUT
3382 @ 25698:               PUSH   I
3383 @ 25701:               PUSHI  #0x00000015
3384 @ 25706:               RSH   
3385 @ 25707:               PUSHI  #0x00000001
3386 @ 25712:               AND   
3387 @ 25713:               ASSVAL

   323           %IF I&(1<<16)#0 %THEN %START
3388 @ 25714:               LINE   323 "regression-compile-tmp/imp918s.imp"
3389 @ 25752:               PUSH   I
3390 @ 25755:               PUSHI  #0x00000001
3391 @ 25760:               PUSHI  #0x00000010
3392 @ 25765:               LSH   
3393 @ 25766:               AND   
3394 @ 25767:               PUSHI  #0x00000000
3395 @ 25772:               JUMPIF = L_0004

   324              CHECKS=0; CHECKSP=0
3396 @ 25776:               LINE   324 "regression-compile-tmp/imp918s.imp"
3397 @ 25814:               PUSH   CHECKS
3398 @ 25817:               PUSHI  #0x00000000
3399 @ 25822:               ASSVAL
3400 @ 25823:               LINE   324 "regression-compile-tmp/imp918s.imp"
3401 @ 25861:               PUSH   CHECKSP
3402 @ 25864:               PUSHI  #0x00000000
3403 @ 25869:               ASSVAL

   325              LINENOS=0; UNASS=0
3404 @ 25870:               LINE   325 "regression-compile-tmp/imp918s.imp"
3405 @ 25908:               PUSH   LINENOS
3406 @ 25911:               PUSHI  #0x00000000
3407 @ 25916:               ASSVAL
3408 @ 25917:               LINE   325 "regression-compile-tmp/imp918s.imp"
3409 @ 25955:               PUSH   UNASS
3410 @ 25958:               PUSHI  #0x00000000
3411 @ 25963:               ASSVAL

   326           %FINISH
3412 @ 25964:               LINE   326 "regression-compile-tmp/imp918s.imp"
3413 @ 26002:               LOCATE L_0004

   327           GLAFLAG=CHECKSP;           ! GLAFLAG SHOULD BE SET TO 0 IF
   328  !                                     IMPS IS COMPILED NON OPTIMISED.
3414 @ 26005:               LINE   327 "regression-compile-tmp/imp918s.imp"
3415 @ 26043:               PUSH   GLAFLAG
3416 @ 26046:               PUSH   CHECKSP
3417 @ 26049:               ASSVAL

   329           WARNINGS(0)=0
3418 @ 26050:               LINE   329 "regression-compile-tmp/imp918s.imp"
3419 @ 26088:               PUSH   WARNINGS
3420 @ 26091:               PUSHI  #0x00000000
3421 @ 26096:               ACCESS
3422 @ 26097:               PUSHI  #0x00000000
3423 @ 26102:               ASSVAL

   330           IMPS=I>>23&1;              ! BIT SET IF IMPS REQUESTED
   331  !
   332  ! OPEN OBJECT FILE HERE BEFORE MORE PAGES OF COMPILER CODE
   333  ! ARE PAGED IN AND SUB-SYSTEM PAGES MOVE OUT
   334  !
3424 @ 26103:               LINE   330 "regression-compile-tmp/imp918s.imp"
3425 @ 26141:               PUSH   IMPS
3426 @ 26144:               PUSH   I
3427 @ 26147:               PUSHI  #0x00000017
3428 @ 26152:               RSH   
3429 @ 26153:               PUSHI  #0x00000001
3430 @ 26158:               AND   
3431 @ 26159:               ASSVAL

   335           LPUT(0,IMPS<<1+1,RELEASE,VERSION)
3432 @ 26160:               LINE   335 "regression-compile-tmp/imp918s.imp"
3433 @ 26198:               PUSH   LPUT
3434 @ 26201:               PUSHI  #0x00000000
3435 @ 26206:               ASSPAR
3436 @ 26207:               PUSH   IMPS
3437 @ 26210:               PUSHI  #0x00000001
3438 @ 26215:               LSH   
3439 @ 26216:               PUSHI  #0x00000001
3440 @ 26221:               ADD   
3441 @ 26222:               ASSPAR
3442 @ 26223:               PUSHI  #0x00000009
3443 @ 26228:               ASSPAR
3444 @ 26229:               PUSHI  #0x00000012
3445 @ 26234:               ASSPAR
3446 @ 26235:               CALL  

   336           NEWLINES(3); SPACES(20)
3447 @ 26236:               LINE   336 "regression-compile-tmp/imp918s.imp"
3448 @ 26274:               PUSH   NEWLINES
3449 @ 26277:               PUSHI  #0x00000003
3450 @ 26282:               ASSPAR
3451 @ 26283:               CALL  
3452 @ 26284:               LINE   336 "regression-compile-tmp/imp918s.imp"
3453 @ 26322:               PUSH   SPACES
3454 @ 26325:               PUSHI  #0x00000014
3455 @ 26330:               ASSPAR
3456 @ 26331:               CALL  

   337           printstring("E.R.C.C. IMP")
3457 @ 26332:               LINE   337 "regression-compile-tmp/imp918s.imp"
3458 @ 26370:               PUSH   PRINTSTRING
3459 @ 26373:               PUSHS  "E.R.C.C. IMP"
3460 @ 26387:               ASSPAR
3461 @ 26388:               CALL  

   338           %IF IMPS#0 %THEN printstring("S")
3462 @ 26389:               LINE   338 "regression-compile-tmp/imp918s.imp"
3463 @ 26427:               PUSH   IMPS
3464 @ 26430:               PUSHI  #0x00000000
3465 @ 26435:               JUMPIF = L_0004
3466 @ 26439:               PUSH   PRINTSTRING
3467 @ 26442:               PUSHS  "S"
3468 @ 26445:               ASSPAR
3469 @ 26446:               CALL  
3470 @ 26447:               LOCATE L_0004

   339           printstring(" COMPILER RELEASE")
3471 @ 26450:               LINE   339 "regression-compile-tmp/imp918s.imp"
3472 @ 26488:               PUSH   PRINTSTRING
3473 @ 26491:               PUSHS  " COMPILER RELEASE"
3474 @ 26510:               ASSPAR
3475 @ 26511:               CALL  

   340           WRITE(RELEASE,1)
3476 @ 26512:               LINE   340 "regression-compile-tmp/imp918s.imp"
3477 @ 26550:               PUSH   WRITE
3478 @ 26553:               PUSHI  #0x00000009
3479 @ 26558:               ASSPAR
3480 @ 26559:               PUSHI  #0x00000001
3481 @ 26564:               ASSPAR
3482 @ 26565:               CALL  

   341           printstring(" VERSION")
3483 @ 26566:               LINE   341 "regression-compile-tmp/imp918s.imp"
3484 @ 26604:               PUSH   PRINTSTRING
3485 @ 26607:               PUSHS  " VERSION"
3486 @ 26617:               ASSPAR
3487 @ 26618:               CALL  

   342           WRITE(VERSION,2)
3488 @ 26619:               LINE   342 "regression-compile-tmp/imp918s.imp"
3489 @ 26657:               PUSH   WRITE
3490 @ 26660:               PUSHI  #0x00000012
3491 @ 26665:               ASSPAR
3492 @ 26666:               PUSHI  #0x00000002
3493 @ 26671:               ASSPAR
3494 @ 26672:               CALL  

   343           NEWLINES(3)
3495 @ 26673:               LINE   343 "regression-compile-tmp/imp918s.imp"
3496 @ 26711:               PUSH   NEWLINES
3497 @ 26714:               PUSHI  #0x00000003
3498 @ 26719:               ASSPAR
3499 @ 26720:               CALL  

   344           WRITE(NNAMES,5); WRITE(ASL,5)
   345  !%if USE MC = 1 %start
   346  !         *L_1,SET; *XC_0(48,1),0(1)
   347  !         *L_1,CYCLE;  *XC_0(24,1),0(1)
   348  !         *L_1,NAMES; *XC_0(24,1),0(1)
   349  !         *L_1,LABEL;  *XC_0(24,1),0(1)
   350  !         *L_1,SBR;    *XC_0(24,1),0(1)
   351  !         *L_1,AVL WSP; *XC_0(192,1),0(1)
   352  !         *L_1,REGISTER;  *XC_0(92,1),0(1)
   353  !         *L_1,GRUSE;     *XC_0(92,1),0(1)
   354  !         *L_1,GRINF;     *XC_0(92,1),0(1)
   355  !         *L_1,GRAT; *XC_0(92,1),0(1)
   356  !%finish
3500 @ 26721:               LINE   344 "regression-compile-tmp/imp918s.imp"
3501 @ 26759:               PUSH   WRITE
3502 @ 26762:               PUSH   NNAMES
3503 @ 26765:               ASSPAR
3504 @ 26766:               PUSHI  #0x00000005
3505 @ 26771:               ASSPAR
3506 @ 26772:               CALL  
3507 @ 26773:               LINE   344 "regression-compile-tmp/imp918s.imp"
3508 @ 26811:               PUSH   WRITE
3509 @ 26814:               PUSH   ASL
3510 @ 26817:               ASSPAR
3511 @ 26818:               PUSHI  #0x00000005
3512 @ 26823:               ASSPAR
3513 @ 26824:               CALL  

   357           REGISTER(10)=-1; GRUSE(10)=12
3514 @ 26825:               LINE   357 "regression-compile-tmp/imp918s.imp"
3515 @ 26863:               PUSH   REGISTER
3516 @ 26866:               PUSHI  #0x0000000a
3517 @ 26871:               ACCESS
3518 @ 26872:               PUSHI  #0x00000001
3519 @ 26877:               NEGATE
3520 @ 26878:               ASSVAL
3521 @ 26879:               LINE   357 "regression-compile-tmp/imp918s.imp"
3522 @ 26917:               PUSH   GRUSE
3523 @ 26920:               PUSHI  #0x0000000a
3524 @ 26925:               ACCESS
3525 @ 26926:               PUSHI  #0x0000000c
3526 @ 26931:               ASSVAL

   358           REGISTER(11)=-1; REGISTER(13)=-1
   359  !%if USE MC = 1 %start
   360  !         *L_1,UVARREG+4; *XC_0(40,1),0(1);!NO USER DEFINED REGS
   361  !%finish
3527 @ 26932:               LINE   358 "regression-compile-tmp/imp918s.imp"
3528 @ 26970:               PUSH   REGISTER
3529 @ 26973:               PUSHI  #0x0000000b
3530 @ 26978:               ACCESS
3531 @ 26979:               PUSHI  #0x00000001
3532 @ 26984:               NEGATE
3533 @ 26985:               ASSVAL
3534 @ 26986:               LINE   358 "regression-compile-tmp/imp918s.imp"
3535 @ 27024:               PUSH   REGISTER
3536 @ 27027:               PUSHI  #0x0000000d
3537 @ 27032:               ACCESS
3538 @ 27033:               PUSHI  #0x00000001
3539 @ 27038:               NEGATE
3540 @ 27039:               ASSVAL

   362           %CYCLE I=0,16,ASL-16
3541 @ 27040:               LINE   362 "regression-compile-tmp/imp918s.imp"
3542 @ 27078:               PUSH   I
3543 @ 27081:               PUSHI  #0x00000010
3544 @ 27086:               PUSH   ASL
3545 @ 27089:               PUSHI  #0x00000010
3546 @ 27094:               SUB   
3547 @ 27095:               PUSHI  #0x00000000
3548 @ 27100:               FOR    L_0003

   363               SHORT INTEGER(ADDR(ASLIST(I))+30)=I
3549 @ 27103:               LINE   363 "regression-compile-tmp/imp918s.imp"
3550 @ 27141:               PUSH   SHORTINTEGER
3551 @ 27144:               PUSH   ADDR
3552 @ 27147:               PUSH   ASLIST
3553 @ 27150:               PUSH   I
3554 @ 27153:               ACCESS
3555 @ 27154:               ASSPAR
3556 @ 27155:               CALL  
3557 @ 27156:               PUSHI  #0x0000001e
3558 @ 27161:               ADD   
3559 @ 27162:               ASSPAR
3560 @ 27163:               CALL  
3561 @ 27164:               PUSH   I
3562 @ 27167:               ASSVAL

   364           %REPEAT
3563 @ 27168:               LINE   364 "regression-compile-tmp/imp918s.imp"
3564 @ 27206:               REPEAT L_0003
3565 @ 27209:               LOCATE L_0004

   365           INTEGER(ADDR(ASLIST(0)))=-1
3566 @ 27212:               LINE   365 "regression-compile-tmp/imp918s.imp"
3567 @ 27250:               PUSH   INTEGER
3568 @ 27253:               PUSH   ADDR
3569 @ 27256:               PUSH   ASLIST
3570 @ 27259:               PUSHI  #0x00000000
3571 @ 27264:               ACCESS
3572 @ 27265:               ASSPAR
3573 @ 27266:               CALL  
3574 @ 27267:               ASSPAR
3575 @ 27268:               CALL  
3576 @ 27269:               PUSHI  #0x00000001
3577 @ 27274:               NEGATE
3578 @ 27275:               ASSVAL

   366           INTEGER(ADDR(ASLIST(4)))=-1
3579 @ 27276:               LINE   366 "regression-compile-tmp/imp918s.imp"
3580 @ 27314:               PUSH   INTEGER
3581 @ 27317:               PUSH   ADDR
3582 @ 27320:               PUSH   ASLIST
3583 @ 27323:               PUSHI  #0x00000004
3584 @ 27328:               ACCESS
3585 @ 27329:               ASSPAR
3586 @ 27330:               CALL  
3587 @ 27331:               ASSPAR
3588 @ 27332:               CALL  
3589 @ 27333:               PUSHI  #0x00000001
3590 @ 27338:               NEGATE
3591 @ 27339:               ASSVAL

   367           INTEGER(ADDR(ASLIST(8)))=-1
3592 @ 27340:               LINE   367 "regression-compile-tmp/imp918s.imp"
3593 @ 27378:               PUSH   INTEGER
3594 @ 27381:               PUSH   ADDR
3595 @ 27384:               PUSH   ASLIST
3596 @ 27387:               PUSHI  #0x00000008
3597 @ 27392:               ACCESS
3598 @ 27393:               ASSPAR
3599 @ 27394:               CALL  
3600 @ 27395:               ASSPAR
3601 @ 27396:               CALL  
3602 @ 27397:               PUSHI  #0x00000001
3603 @ 27402:               NEGATE
3604 @ 27403:               ASSVAL

   368           INTEGER(ADDR(ASLIST(12)))=X'FFFF0000'
3605 @ 27404:               LINE   368 "regression-compile-tmp/imp918s.imp"
3606 @ 27442:               PUSH   INTEGER
3607 @ 27445:               PUSH   ADDR
3608 @ 27448:               PUSH   ASLIST
3609 @ 27451:               PUSHI  #0x0000000c
3610 @ 27456:               ACCESS
3611 @ 27457:               ASSPAR
3612 @ 27458:               CALL  
3613 @ 27459:               ASSPAR
3614 @ 27460:               CALL  
3615 @ 27461:               PUSHI  #0xffff0000
3616 @ 27466:               ASSVAL

   369           SET PERMBASE
3617 @ 27467:               LINE   369 "regression-compile-tmp/imp918s.imp"
3618 @ 27505:               PUSH   SETPERMBASE
3619 @ 27508:               CALL  

   370           PCONST(X'50FB003C');          ! ST 15,60(11)
3620 @ 27509:               LINE   370 "regression-compile-tmp/imp918s.imp"
3621 @ 27547:               PUSH   PCONST
3622 @ 27550:               PUSHI  #0x50fb003c
3623 @ 27555:               ASSPAR
3624 @ 27556:               CALL  

   371           PCONST(X'45FC004C');          ! BAL 15,RTI1
3625 @ 27557:               LINE   371 "regression-compile-tmp/imp918s.imp"
3626 @ 27595:               PUSH   PCONST
3627 @ 27598:               PUSHI  #0x45fc004c
3628 @ 27603:               ASSPAR
3629 @ 27604:               CALL  

   372           %CYCLE I=0,1,NNAMES
3630 @ 27605:               LINE   372 "regression-compile-tmp/imp918s.imp"
3631 @ 27643:               PUSH   I
3632 @ 27646:               PUSHI  #0x00000001
3633 @ 27651:               PUSH   NNAMES
3634 @ 27654:               PUSHI  #0x00000000
3635 @ 27659:               FOR    L_0003

   373               WORD(I)=0; TAGS(I)=0
3636 @ 27662:               LINE   373 "regression-compile-tmp/imp918s.imp"
3637 @ 27700:               PUSH   WORD
3638 @ 27703:               PUSH   I
3639 @ 27706:               ACCESS
3640 @ 27707:               PUSHI  #0x00000000
3641 @ 27712:               ASSVAL
3642 @ 27713:               LINE   373 "regression-compile-tmp/imp918s.imp"
3643 @ 27751:               PUSH   TAGS
3644 @ 27754:               PUSH   I
3645 @ 27757:               ACCESS
3646 @ 27758:               PUSHI  #0x00000000
3647 @ 27763:               ASSVAL

   374           %REPEAT
   375  !
   376  ! NOW DECLARE THE SPECIAL NAMES WHICH ARE IN ARRAY ILETT. A SPECIAL
   377  ! ALTERNATIVE (19) OF PHRASE <SS> IS PROVIDED FOR THIS PURPOSE
   378  !
   379  !%if INCLUDE DELSTART = 1 %start
3648 @ 27764:               LINE   374 "regression-compile-tmp/imp918s.imp"
3649 @ 27802:               REPEAT L_0003
3650 @ 27805:               LOCATE L_0004

   380           A(1)=19; K=0; NEXT=1
3651 @ 27808:               LINE   380 "regression-compile-tmp/imp918s.imp"
3652 @ 27846:               PUSH   A
3653 @ 27849:               PUSHI  #0x00000001
3654 @ 27854:               ACCESS
3655 @ 27855:               PUSHI  #0x00000013
3656 @ 27860:               ASSVAL
3657 @ 27861:               LINE   380 "regression-compile-tmp/imp918s.imp"
3658 @ 27899:               PUSH   K
3659 @ 27902:               PUSHI  #0x00000000
3660 @ 27907:               ASSVAL
3661 @ 27908:               LINE   380 "regression-compile-tmp/imp918s.imp"
3662 @ 27946:               PUSH   NEXT
3663 @ 27949:               PUSHI  #0x00000001
3664 @ 27954:               ASSVAL

   381           I=ILETT(0)
3665 @ 27955:               LINE   381 "regression-compile-tmp/imp918s.imp"
3666 @ 27993:               PUSH   I
3667 @ 27996:               PUSH   ILETT
3668 @ 27999:               PUSHI  #0x00000000
3669 @ 28004:               ACCESS
3670 @ 28005:               ASSVAL

   382           %WHILE I<255 %CYCLE
3671 @ 28006:               LINE   382 "regression-compile-tmp/imp918s.imp"
3672 @ 28044:               LOCATE L_0003
3673 @ 28047:               PUSH   I
3674 @ 28050:               PUSHI  #0x000000ff
3675 @ 28055:               JUMPIF >= L_0004

   383              %CYCLE J=1,1,I
3676 @ 28059:               LINE   383 "regression-compile-tmp/imp918s.imp"
3677 @ 28097:               PUSH   J
3678 @ 28100:               PUSHI  #0x00000001
3679 @ 28105:               PUSH   I
3680 @ 28108:               PUSHI  #0x00000001
3681 @ 28113:               FOR    L_0006

   384                  CC(J)=ILETT(K+J)
3682 @ 28116:               LINE   384 "regression-compile-tmp/imp918s.imp"
3683 @ 28154:               PUSH   CC
3684 @ 28157:               PUSH   J
3685 @ 28160:               ACCESS
3686 @ 28161:               PUSH   ILETT
3687 @ 28164:               PUSH   K
3688 @ 28167:               PUSH   J
3689 @ 28170:               ADD   
3690 @ 28171:               ACCESS
3691 @ 28172:               ASSVAL

   385              %REPEAT; CC(J+1)=';'
3692 @ 28173:               LINE   385 "regression-compile-tmp/imp918s.imp"
3693 @ 28211:               REPEAT L_0006
3694 @ 28214:               LOCATE L_0007
3695 @ 28217:               LINE   385 "regression-compile-tmp/imp918s.imp"
3696 @ 28255:               PUSH   CC
3697 @ 28258:               PUSH   J
3698 @ 28261:               PUSHI  #0x00000001
3699 @ 28266:               ADD   
3700 @ 28267:               ACCESS
3701 @ 28268:               PUSHI  #0x0000003b
3702 @ 28273:               ASSVAL

   386              R=2; Q=ADDR(CC(1)); PNAME
3703 @ 28274:               LINE   386 "regression-compile-tmp/imp918s.imp"
3704 @ 28312:               PUSH   R
3705 @ 28315:               PUSHI  #0x00000002
3706 @ 28320:               ASSVAL
3707 @ 28321:               LINE   386 "regression-compile-tmp/imp918s.imp"
3708 @ 28359:               PUSH   Q
3709 @ 28362:               PUSH   ADDR
3710 @ 28365:               PUSH   CC
3711 @ 28368:               PUSHI  #0x00000001
3712 @ 28373:               ACCESS
3713 @ 28374:               ASSPAR
3714 @ 28375:               CALL  
3715 @ 28376:               ASSVAL
3716 @ 28377:               LINE   386 "regression-compile-tmp/imp918s.imp"
3717 @ 28415:               PUSH   PNAME
3718 @ 28418:               CALL  

   387              CSS(1,1); K=K+I+1; I=ILETT(K)
3719 @ 28419:               LINE   387 "regression-compile-tmp/imp918s.imp"
3720 @ 28457:               PUSH   CSS
3721 @ 28460:               PUSHI  #0x00000001
3722 @ 28465:               ASSPAR
3723 @ 28466:               PUSHI  #0x00000001
3724 @ 28471:               ASSPAR
3725 @ 28472:               CALL  
3726 @ 28473:               LINE   387 "regression-compile-tmp/imp918s.imp"
3727 @ 28511:               PUSH   K
3728 @ 28514:               PUSH   K
3729 @ 28517:               PUSH   I
3730 @ 28520:               ADD   
3731 @ 28521:               PUSHI  #0x00000001
3732 @ 28526:               ADD   
3733 @ 28527:               ASSVAL
3734 @ 28528:               LINE   387 "regression-compile-tmp/imp918s.imp"
3735 @ 28566:               PUSH   I
3736 @ 28569:               PUSH   ILETT
3737 @ 28572:               PUSH   K
3738 @ 28575:               ACCESS
3739 @ 28576:               ASSVAL

   388           %REPEAT
   389  !%finish
   390  !
3740 @ 28577:               LINE   388 "regression-compile-tmp/imp918s.imp"
3741 @ 28615:               REPEAT L_0003
3742 @ 28618:               LOCATE L_0004

   391                    A(-7)=2; TOAR4(-6,PI1); TOAR4(-4,PI2)
3743 @ 28621:               LINE   391 "regression-compile-tmp/imp918s.imp"
3744 @ 28659:               PUSH   A
3745 @ 28662:               PUSHI  #0x00000007
3746 @ 28667:               NEGATE
3747 @ 28668:               ACCESS
3748 @ 28669:               PUSHI  #0x00000002
3749 @ 28674:               ASSVAL
3750 @ 28675:               LINE   391 "regression-compile-tmp/imp918s.imp"
3751 @ 28713:               PUSH   TOAR4
3752 @ 28716:               PUSHI  #0x00000006
3753 @ 28721:               NEGATE
3754 @ 28722:               ASSPAR
3755 @ 28723:               PUSH   PI1
3756 @ 28726:               ASSPAR
3757 @ 28727:               CALL  
3758 @ 28728:               LINE   391 "regression-compile-tmp/imp918s.imp"
3759 @ 28766:               PUSH   TOAR4
3760 @ 28769:               PUSHI  #0x00000004
3761 @ 28774:               NEGATE
3762 @ 28775:               ASSPAR
3763 @ 28776:               PUSH   PI2
3764 @ 28779:               ASSPAR
3765 @ 28780:               CALL  

   392           A(0)=0; A(1)=12; CSS(1,1);      ! COMPILE A BEGIN @ LINE 0
3766 @ 28781:               LINE   392 "regression-compile-tmp/imp918s.imp"
3767 @ 28819:               PUSH   A
3768 @ 28822:               PUSHI  #0x00000000
3769 @ 28827:               ACCESS
3770 @ 28828:               PUSHI  #0x00000000
3771 @ 28833:               ASSVAL
3772 @ 28834:               LINE   392 "regression-compile-tmp/imp918s.imp"
3773 @ 28872:               PUSH   A
3774 @ 28875:               PUSHI  #0x00000001
3775 @ 28880:               ACCESS
3776 @ 28881:               PUSHI  #0x0000000c
3777 @ 28886:               ASSVAL
3778 @ 28887:               LINE   392 "regression-compile-tmp/imp918s.imp"
3779 @ 28925:               PUSH   CSS
3780 @ 28928:               PUSHI  #0x00000001
3781 @ 28933:               ASSPAR
3782 @ 28934:               PUSHI  #0x00000001
3783 @ 28939:               ASSPAR
3784 @ 28940:               CALL  

   393           COMREG(24)=16;                ! RETURN CODE
3785 @ 28941:               LINE   393 "regression-compile-tmp/imp918s.imp"
3786 @ 28979:               PUSH   COMREG
3787 @ 28982:               PUSHI  #0x00000018
3788 @ 28987:               ASSPAR
3789 @ 28988:               CALL  
3790 @ 28989:               PUSHI  #0x00000010
3791 @ 28994:               ASSVAL

   394           %CYCLE I=1,1,3
3792 @ 28995:               LINE   394 "regression-compile-tmp/imp918s.imp"
3793 @ 29033:               PUSH   I
3794 @ 29036:               PUSHI  #0x00000001
3795 @ 29041:               PUSHI  #0x00000003
3796 @ 29046:               PUSHI  #0x00000001
3797 @ 29051:               FOR    L_0003

   395               PUSH123(CONSTL4,I,0,X'800000E0'+I<<2)
3798 @ 29054:               LINE   395 "regression-compile-tmp/imp918s.imp"
3799 @ 29092:               PUSH   PUSH123
3800 @ 29095:               PUSH   CONSTL4
3801 @ 29098:               ASSPAR
3802 @ 29099:               PUSH   I
3803 @ 29102:               ASSPAR
3804 @ 29103:               PUSHI  #0x00000000
3805 @ 29108:               ASSPAR
3806 @ 29109:               PUSHI  #0x800000e0
3807 @ 29114:               PUSH   I
3808 @ 29117:               PUSHI  #0x00000002
3809 @ 29122:               LSH   
3810 @ 29123:               ADD   
3811 @ 29124:               ASSPAR
3812 @ 29125:               CALL  

   396               PUSH123(CONSTL4,I<<12,0,X'80000100'+I<<2)
3813 @ 29126:               LINE   396 "regression-compile-tmp/imp918s.imp"
3814 @ 29164:               PUSH   PUSH123
3815 @ 29167:               PUSH   CONSTL4
3816 @ 29170:               ASSPAR
3817 @ 29171:               PUSH   I
3818 @ 29174:               PUSHI  #0x0000000c
3819 @ 29179:               LSH   
3820 @ 29180:               ASSPAR
3821 @ 29181:               PUSHI  #0x00000000
3822 @ 29186:               ASSPAR
3823 @ 29187:               PUSHI  #0x80000100
3824 @ 29192:               PUSH   I
3825 @ 29195:               PUSHI  #0x00000002
3826 @ 29200:               LSH   
3827 @ 29201:               ADD   
3828 @ 29202:               ASSPAR
3829 @ 29203:               CALL  

   397           %REPEAT
3830 @ 29204:               LINE   397 "regression-compile-tmp/imp918s.imp"
3831 @ 29242:               REPEAT L_0003
3832 @ 29245:               LOCATE L_0004

   398           PUSH123(CONSTL4,-1,0,16)
3833 @ 29248:               LINE   398 "regression-compile-tmp/imp918s.imp"
3834 @ 29286:               PUSH   PUSH123
3835 @ 29289:               PUSH   CONSTL4
3836 @ 29292:               ASSPAR
3837 @ 29293:               PUSHI  #0x00000001
3838 @ 29298:               NEGATE
3839 @ 29299:               ASSPAR
3840 @ 29300:               PUSHI  #0x00000000
3841 @ 29305:               ASSPAR
3842 @ 29306:               PUSHI  #0x00000010
3843 @ 29311:               ASSPAR
3844 @ 29312:               CALL  

   399           PUSH123(CONSTL4,255,0,24)
3845 @ 29313:               LINE   399 "regression-compile-tmp/imp918s.imp"
3846 @ 29351:               PUSH   PUSH123
3847 @ 29354:               PUSH   CONSTL4
3848 @ 29357:               ASSPAR
3849 @ 29358:               PUSHI  #0x000000ff
3850 @ 29363:               ASSPAR
3851 @ 29364:               PUSHI  #0x00000000
3852 @ 29369:               ASSPAR
3853 @ 29370:               PUSHI  #0x00000018
3854 @ 29375:               ASSPAR
3855 @ 29376:               CALL  

   400           PUSH123(CONSTL4,-4,0,X'800000F8')
3856 @ 29377:               LINE   400 "regression-compile-tmp/imp918s.imp"
3857 @ 29415:               PUSH   PUSH123
3858 @ 29418:               PUSH   CONSTL4
3859 @ 29421:               ASSPAR
3860 @ 29422:               PUSHI  #0x00000004
3861 @ 29427:               NEGATE
3862 @ 29428:               ASSPAR
3863 @ 29429:               PUSHI  #0x00000000
3864 @ 29434:               ASSPAR
3865 @ 29435:               PUSHI  #0x800000f8
3866 @ 29440:               ASSPAR
3867 @ 29441:               CALL  

   401           PUSH123(CONSTL4,-8,0,X'800000FC')
3868 @ 29442:               LINE   401 "regression-compile-tmp/imp918s.imp"
3869 @ 29480:               PUSH   PUSH123
3870 @ 29483:               PUSH   CONSTL4
3871 @ 29486:               ASSPAR
3872 @ 29487:               PUSHI  #0x00000008
3873 @ 29492:               NEGATE
3874 @ 29493:               ASSPAR
3875 @ 29494:               PUSHI  #0x00000000
3876 @ 29499:               ASSPAR
3877 @ 29500:               PUSHI  #0x800000fc
3878 @ 29505:               ASSPAR
3879 @ 29506:               CALL  

   402           PUSH123(CONSTL8,X'41100000',0,X'800000C8');! FLOATNG =D'1'
3880 @ 29507:               LINE   402 "regression-compile-tmp/imp918s.imp"
3881 @ 29545:               PUSH   PUSH123
3882 @ 29548:               PUSH   CONSTL8
3883 @ 29551:               ASSPAR
3884 @ 29552:               PUSHI  #0x41100000
3885 @ 29557:               ASSPAR
3886 @ 29558:               PUSHI  #0x00000000
3887 @ 29563:               ASSPAR
3888 @ 29564:               PUSHI  #0x800000c8
3889 @ 29569:               ASSPAR
3890 @ 29570:               CALL  

   403           DUMMY FORMAT=0;        ! DUMMY RECORD FORMAT
3891 @ 29571:               LINE   403 "regression-compile-tmp/imp918s.imp"
3892 @ 29609:               PUSH   DUMMYFORMAT
3893 @ 29612:               PUSHI  #0x00000000
3894 @ 29617:               ASSVAL

   404           PUSH(CONSTL6,0,0)
3895 @ 29618:               LINE   404 "regression-compile-tmp/imp918s.imp"
3896 @ 29656:               PUSH   PUSH
3897 @ 29659:               PUSH   CONSTL6
3898 @ 29662:               ASSPAR
3899 @ 29663:               PUSHI  #0x00000000
3900 @ 29668:               ASSPAR
3901 @ 29669:               PUSHI  #0x00000000
3902 @ 29674:               ASSPAR
3903 @ 29675:               CALL  

   405           PUSH123(DUMMY FORMAT,0,0,CONSTL6); ! FOR BETTER ERROR RECOVERY
3904 @ 29676:               LINE   405 "regression-compile-tmp/imp918s.imp"
3905 @ 29714:               PUSH   PUSH123
3906 @ 29717:               PUSH   DUMMYFORMAT
3907 @ 29720:               ASSPAR
3908 @ 29721:               PUSHI  #0x00000000
3909 @ 29726:               ASSPAR
3910 @ 29727:               PUSHI  #0x00000000
3911 @ 29732:               ASSPAR
3912 @ 29733:               PUSH   CONSTL6
3913 @ 29736:               ASSPAR
3914 @ 29737:               CALL  

   406           CONSTL6=0
3915 @ 29738:               LINE   406 "regression-compile-tmp/imp918s.imp"
3916 @ 29776:               PUSH   CONSTL6
3917 @ 29779:               PUSHI  #0x00000000
3918 @ 29784:               ASSVAL

   407           %END
   408  !
3919 @ 29785:               LINE   407 "regression-compile-tmp/imp918s.imp"
3920 @ 29823:            END    _lev0id0_lev1id2 {lev=2 --> 1}

   409          ->Label8
3921 @ 29824:            LINE   409 "regression-compile-tmp/imp918s.imp"
3922 @ 29862:            JUMP   L_0158

   410           %ROUTINE LOAD DATA
   411           {%SHORTROUTINE}
   412  !***********************************************************************
   413  !*       PASS INFORMATION TO LPUT TO ENABLE IT TO GENERATE THE         *
   414  !*       LOADER DATA AND COMPLETE THE PROGRAM FILE.                    *
   415  !***********************************************************************
3923 @ 29865:            LINE   410 "regression-compile-tmp/imp918s.imp"
3924 @ 29903:            DEF    LOADDATA (_lev0id0_LOADDATA) p1=V_0159 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
3925 @ 29923:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
3926 @ 29924:               FINISH ) {lev=2}

   416           %INTEGER JJ,KK,FLAG,XTRA,ID1,ID2,ID3
3927 @ 29925:               LINE   416 "regression-compile-tmp/imp918s.imp"
3928 @ 29963:               DEF    JJ p1=V_015a 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
3929 @ 29977:               DEF    KK p1=V_015b 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
3930 @ 29991:               DEF    FLAG p1=V_015c 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
3931 @ 30007:               DEF    XTRA p1=V_015d 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
3932 @ 30023:               DEF    ID1 p1=V_015e 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
3933 @ 30038:               DEF    ID2 p1=V_015f 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
3934 @ 30053:               DEF    ID3 p1=V_0160 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

   417           %SHORTINTEGER HEAD
3935 @ 30068:               LINE   417 "regression-compile-tmp/imp918s.imp"
3936 @ 30106:               DEF    HEAD p1=V_0161 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0

   418           GLACA=(GLACA+7)&(-8)
3937 @ 30122:               LINE   418 "regression-compile-tmp/imp918s.imp"
3938 @ 30160:               PUSH   GLACA
3939 @ 30163:               PUSH   GLACA
3940 @ 30166:               PUSHI  #0x00000007
3941 @ 30171:               ADD   
3942 @ 30172:               PUSHI  #0x00000008
3943 @ 30177:               NEGATE
3944 @ 30178:               AND   
3945 @ 30179:               ASSVAL

   419           CONSTPTR=(CONSTPTR+7)&(-8)
   420  !
   421  ! DEFINE ANY DATA EPS FOR DATA IN THE GLA SYMBOL TABLES. THESE CAN NOT
   422  ! BE DEFINED BEFORE THE SIZE OF THE GLA IS KNOWN
   423  !
3946 @ 30180:               LINE   419 "regression-compile-tmp/imp918s.imp"
3947 @ 30218:               PUSH   CONSTPTR
3948 @ 30221:               PUSH   CONSTPTR
3949 @ 30224:               PUSHI  #0x00000007
3950 @ 30229:               ADD   
3951 @ 30230:               PUSHI  #0x00000008
3952 @ 30235:               NEGATE
3953 @ 30236:               AND   
3954 @ 30237:               ASSVAL

   424           %WHILE EPLINK#0 %CYCLE
3955 @ 30238:               LINE   424 "regression-compile-tmp/imp918s.imp"
3956 @ 30276:               LOCATE L_0003
3957 @ 30279:               PUSH   EPLINK
3958 @ 30282:               PUSHI  #0x00000000
3959 @ 30287:               JUMPIF = L_0004

   425              POP123(EPLINK,JJ,XTRA,KK)
3960 @ 30291:               LINE   425 "regression-compile-tmp/imp918s.imp"
3961 @ 30329:               PUSH   POP123
3962 @ 30332:               PUSH   EPLINK
3963 @ 30335:               ASSPAR
3964 @ 30336:               PUSH   JJ
3965 @ 30339:               ASSPAR
3966 @ 30340:               PUSH   XTRA
3967 @ 30343:               ASSPAR
3968 @ 30344:               PUSH   KK
3969 @ 30347:               ASSPAR
3970 @ 30348:               CALL  

   426              HEAD=KK; FLAG=JJ>>24; JJ=JJ&X'FFFFFF'
3971 @ 30349:               LINE   426 "regression-compile-tmp/imp918s.imp"
3972 @ 30387:               PUSH   HEAD
3973 @ 30390:               PUSH   KK
3974 @ 30393:               ASSVAL
3975 @ 30394:               LINE   426 "regression-compile-tmp/imp918s.imp"
3976 @ 30432:               PUSH   FLAG
3977 @ 30435:               PUSH   JJ
3978 @ 30438:               PUSHI  #0x00000018
3979 @ 30443:               RSH   
3980 @ 30444:               ASSVAL
3981 @ 30445:               LINE   426 "regression-compile-tmp/imp918s.imp"
3982 @ 30483:               PUSH   JJ
3983 @ 30486:               PUSH   JJ
3984 @ 30489:               PUSHI  #0x00ffffff
3985 @ 30494:               AND   
3986 @ 30495:               ASSVAL

   427              JJ=JJ+GLACA
3987 @ 30496:               LINE   427 "regression-compile-tmp/imp918s.imp"
3988 @ 30534:               PUSH   JJ
3989 @ 30537:               PUSH   JJ
3990 @ 30540:               PUSH   GLACA
3991 @ 30543:               ADD   
3992 @ 30544:               ASSVAL

   428              POP123(HEAD,ID1,ID2,ID3)
3993 @ 30545:               LINE   428 "regression-compile-tmp/imp918s.imp"
3994 @ 30583:               PUSH   POP123
3995 @ 30586:               PUSH   HEAD
3996 @ 30589:               ASSPAR
3997 @ 30590:               PUSH   ID1
3998 @ 30593:               ASSPAR
3999 @ 30594:               PUSH   ID2
4000 @ 30597:               ASSPAR
4001 @ 30598:               PUSH   ID3
4002 @ 30601:               ASSPAR
4003 @ 30602:               CALL  

   429              ID3=ID3<<16
4004 @ 30603:               LINE   429 "regression-compile-tmp/imp918s.imp"
4005 @ 30641:               PUSH   ID3
4006 @ 30644:               PUSH   ID3
4007 @ 30647:               PUSHI  #0x00000010
4008 @ 30652:               LSH   
4009 @ 30653:               ASSVAL

   430              LPUT(14,XTRA,JJ,ADDR(ID1))
4010 @ 30654:               LINE   430 "regression-compile-tmp/imp918s.imp"
4011 @ 30692:               PUSH   LPUT
4012 @ 30695:               PUSHI  #0x0000000e
4013 @ 30700:               ASSPAR
4014 @ 30701:               PUSH   XTRA
4015 @ 30704:               ASSPAR
4016 @ 30705:               PUSH   JJ
4017 @ 30708:               ASSPAR
4018 @ 30709:               PUSH   ADDR
4019 @ 30712:               PUSH   ID1
4020 @ 30715:               ASSPAR
4021 @ 30716:               CALL  
4022 @ 30717:               ASSPAR
4023 @ 30718:               CALL  

   431           %REPEAT
4024 @ 30719:               LINE   431 "regression-compile-tmp/imp918s.imp"
4025 @ 30757:               REPEAT L_0003
4026 @ 30760:               LOCATE L_0004

   432           CNOP(0,8)
4027 @ 30763:               LINE   432 "regression-compile-tmp/imp918s.imp"
4028 @ 30801:               PUSH   CNOP
4029 @ 30804:               PUSHI  #0x00000000
4030 @ 30809:               ASSPAR
4031 @ 30810:               PUSHI  #0x00000008
4032 @ 30815:               ASSPAR
4033 @ 30816:               CALL  

   433           FIXED GLA(2)=GLACA;        ! GLA SYMTABS FROM HEAD OF GLA
4034 @ 30817:               LINE   433 "regression-compile-tmp/imp918s.imp"
4035 @ 30855:               PUSH   FIXEDGLA
4036 @ 30858:               PUSHI  #0x00000002
4037 @ 30863:               ACCESS
4038 @ 30864:               PUSH   GLACA
4039 @ 30867:               ASSVAL

   434           FIXED GLA(3)=CA;           ! CODE SYMTABS FROM HEAD OF CODE
4040 @ 30868:               LINE   434 "regression-compile-tmp/imp918s.imp"
4041 @ 30906:               PUSH   FIXEDGLA
4042 @ 30909:               PUSHI  #0x00000003
4043 @ 30914:               ACCESS
4044 @ 30915:               PUSH   CA
4045 @ 30918:               ASSVAL

   435           FIXED GLA(0)=CA;           ! WILL BE RELOCATED
4046 @ 30919:               LINE   435 "regression-compile-tmp/imp918s.imp"
4047 @ 30957:               PUSH   FIXEDGLA
4048 @ 30960:               PUSHI  #0x00000000
4049 @ 30965:               ACCESS
4050 @ 30966:               PUSH   CA
4051 @ 30969:               ASSVAL

   436           CODE OUT
4052 @ 30970:               LINE   436 "regression-compile-tmp/imp918s.imp"
4053 @ 31008:               PUSH   CODEOUT
4054 @ 31011:               CALL  

   437           I=GLACA-GLACABUF
4055 @ 31012:               LINE   437 "regression-compile-tmp/imp918s.imp"
4056 @ 31050:               PUSH   I
4057 @ 31053:               PUSH   GLACA
4058 @ 31056:               PUSH   GLACABUF
4059 @ 31059:               SUB   
4060 @ 31060:               ASSVAL

   438           %IF INHCODE=0 %THEN %START
4061 @ 31061:               LINE   438 "regression-compile-tmp/imp918s.imp"
4062 @ 31099:               PUSH   INHCODE
4063 @ 31102:               PUSHI  #0x00000000
4064 @ 31107:               JUMPIF # L_0004

   439              LPUT(2,I,GLACABUF,ADDR(GLABUF(0))) %UNLESS I=0;! BACK OF GLAP
   440  !
   441  ! NOW SET THE LANGUAGE FLAG(BYTE 4 OF GLA) 1=IMP,3=IMPS
   442  !
4065 @ 31111:               LINE   439 "regression-compile-tmp/imp918s.imp"
4066 @ 31149:               PUSH   I
4067 @ 31152:               PUSHI  #0x00000000
4068 @ 31157:               JUMPIF = L_0007
4069 @ 31161:               PUSH   LPUT
4070 @ 31164:               PUSHI  #0x00000002
4071 @ 31169:               ASSPAR
4072 @ 31170:               PUSH   I
4073 @ 31173:               ASSPAR
4074 @ 31174:               PUSH   GLACABUF
4075 @ 31177:               ASSPAR
4076 @ 31178:               PUSH   ADDR
4077 @ 31181:               PUSH   GLABUF
4078 @ 31184:               PUSHI  #0x00000000
4079 @ 31189:               ACCESS
4080 @ 31190:               ASSPAR
4081 @ 31191:               CALL  
4082 @ 31192:               ASSPAR
4083 @ 31193:               CALL  
4084 @ 31194:               LOCATE L_0007

   443              BYTE INTEGER(ADDR(FIXED GLA(1)))=16+IMPS<<5;! LANGUAGE FLAG
4085 @ 31197:               LINE   443 "regression-compile-tmp/imp918s.imp"
4086 @ 31235:               PUSH   BYTEINTEGER
4087 @ 31238:               PUSH   ADDR
4088 @ 31241:               PUSH   FIXEDGLA
4089 @ 31244:               PUSHI  #0x00000001
4090 @ 31249:               ACCESS
4091 @ 31250:               ASSPAR
4092 @ 31251:               CALL  
4093 @ 31252:               ASSPAR
4094 @ 31253:               CALL  
4095 @ 31254:               PUSHI  #0x00000010
4096 @ 31259:               PUSH   IMPS
4097 @ 31262:               PUSHI  #0x00000005
4098 @ 31267:               LSH   
4099 @ 31268:               ADD   
4100 @ 31269:               ASSVAL

   444              LPUT(2,N0<<2,0,ADDR(FIXED GLA(0)));     ! FRONT OF GLAP
4101 @ 31270:               LINE   444 "regression-compile-tmp/imp918s.imp"
4102 @ 31308:               PUSH   LPUT
4103 @ 31311:               PUSHI  #0x00000002
4104 @ 31316:               ASSPAR
4105 @ 31317:               PUSH   N0
4106 @ 31320:               PUSHI  #0x00000002
4107 @ 31325:               LSH   
4108 @ 31326:               ASSPAR
4109 @ 31327:               PUSHI  #0x00000000
4110 @ 31332:               ASSPAR
4111 @ 31333:               PUSH   ADDR
4112 @ 31336:               PUSH   FIXEDGLA
4113 @ 31339:               PUSHI  #0x00000000
4114 @ 31344:               ACCESS
4115 @ 31345:               ASSPAR
4116 @ 31346:               CALL  
4117 @ 31347:               ASSPAR
4118 @ 31348:               CALL  

   445              I=X'E2E2E2E2'
4119 @ 31349:               LINE   445 "regression-compile-tmp/imp918s.imp"
4120 @ 31387:               PUSH   I
4121 @ 31390:               PUSHI  #0xe2e2e2e2
4122 @ 31395:               ASSVAL

   446              LPUT(4,4,SSTL,ADDR(I))
   447  !
   448  ! NOW PLANT ANY RELOCATION INFO THAT HAS BEEN HELD UP AS IT IS RELATIVE
   449  ! TO THE SYMBOL TABLES. LPUT DEALS ONLY IN CODE & GLA SO THE COMPILER
   450  ! HAS TO ADJUST ST REFEFERNCES TO ALLOW FOR FRONT OF CODE OR GLA
   451  !
   452  !            %WHILE RELHEAD#0 %CYCLE
   453  !               POP123(RELHEAD,JJ,KK,XTRA)
   454  !               %IF XTRA=4 %THEN %START;    ! CODE ST
   455  !                  KK=KK+CA
   456  !               %FINISH %ELSE %START;       ! GLA ST
   457  !                  KK=KK+GLACA
   458  !               %FINISH
   459  !               LPUT(2,4,JJ,ADDR(KK));      ! OUTPUT ADJUSTED POINTER
   460  !               LPUT(XTRA+16,0,JJ,0);       ! AND RELOCATION INFO
   461  !            %REPEAT
   462  !
4123 @ 31396:               LINE   446 "regression-compile-tmp/imp918s.imp"
4124 @ 31434:               PUSH   LPUT
4125 @ 31437:               PUSHI  #0x00000004
4126 @ 31442:               ASSPAR
4127 @ 31443:               PUSHI  #0x00000004
4128 @ 31448:               ASSPAR
4129 @ 31449:               PUSH   SSTL
4130 @ 31452:               ASSPAR
4131 @ 31453:               PUSH   ADDR
4132 @ 31456:               PUSH   I
4133 @ 31459:               ASSPAR
4134 @ 31460:               CALL  
4135 @ 31461:               ASSPAR
4136 @ 31462:               CALL  

   463              LPUT(20,0,0,0);                ! RELOCATE POINTER TO CST
4137 @ 31463:               LINE   463 "regression-compile-tmp/imp918s.imp"
4138 @ 31501:               PUSH   LPUT
4139 @ 31504:               PUSHI  #0x00000014
4140 @ 31509:               ASSPAR
4141 @ 31510:               PUSHI  #0x00000000
4142 @ 31515:               ASSPAR
4143 @ 31516:               PUSHI  #0x00000000
4144 @ 31521:               ASSPAR
4145 @ 31522:               PUSHI  #0x00000000
4146 @ 31527:               ASSPAR
4147 @ 31528:               CALL  

   464              LPUT(20,0,28,0);               ! RELOCATE GLA  HDOFCODE WORD
4148 @ 31529:               LINE   464 "regression-compile-tmp/imp918s.imp"
4149 @ 31567:               PUSH   LPUT
4150 @ 31570:               PUSHI  #0x00000014
4151 @ 31575:               ASSPAR
4152 @ 31576:               PUSHI  #0x00000000
4153 @ 31581:               ASSPAR
4154 @ 31582:               PUSHI  #0x0000001c
4155 @ 31587:               ASSPAR
4156 @ 31588:               PUSHI  #0x00000000
4157 @ 31593:               ASSPAR
4158 @ 31594:               CALL  

   465              LPUT(12,0,23<<2,ADDR(FIXEDGLA(27)));! O-P PERM REFERENCE
4159 @ 31595:               LINE   465 "regression-compile-tmp/imp918s.imp"
4160 @ 31633:               PUSH   LPUT
4161 @ 31636:               PUSHI  #0x0000000c
4162 @ 31641:               ASSPAR
4163 @ 31642:               PUSHI  #0x00000000
4164 @ 31647:               ASSPAR
4165 @ 31648:               PUSHI  #0x00000017
4166 @ 31653:               PUSHI  #0x00000002
4167 @ 31658:               LSH   
4168 @ 31659:               ASSPAR
4169 @ 31660:               PUSH   ADDR
4170 @ 31663:               PUSH   FIXEDGLA
4171 @ 31666:               PUSHI  #0x0000001b
4172 @ 31671:               ACCESS
4173 @ 31672:               ASSPAR
4174 @ 31673:               CALL  
4175 @ 31674:               ASSPAR
4176 @ 31675:               CALL  

   466              LPUT(16,0,64,0);               ! DEFINE TOPOFSTORE WORD
4177 @ 31676:               LINE   466 "regression-compile-tmp/imp918s.imp"
4178 @ 31714:               PUSH   LPUT
4179 @ 31717:               PUSHI  #0x00000010
4180 @ 31722:               ASSPAR
4181 @ 31723:               PUSHI  #0x00000000
4182 @ 31728:               ASSPAR
4183 @ 31729:               PUSHI  #0x00000040
4184 @ 31734:               ASSPAR
4185 @ 31735:               PUSHI  #0x00000000
4186 @ 31740:               ASSPAR
4187 @ 31741:               CALL  

   467           %FINISH
4188 @ 31742:               LINE   467 "regression-compile-tmp/imp918s.imp"
4189 @ 31780:               LOCATE L_0004

   468           SSTL=(SSTL+11)&(-8)
4190 @ 31783:               LINE   468 "regression-compile-tmp/imp918s.imp"
4191 @ 31821:               PUSH   SSTL
4192 @ 31824:               PUSH   SSTL
4193 @ 31827:               PUSHI  #0x0000000b
4194 @ 31832:               ADD   
4195 @ 31833:               PUSHI  #0x00000008
4196 @ 31838:               NEGATE
4197 @ 31839:               AND   
4198 @ 31840:               ASSVAL

   469           printstring("
   470  CODE")
4199 @ 31841:               LINE   469 "regression-compile-tmp/imp918s.imp"
4200 @ 31879:               PUSH   PRINTSTRING
4201 @ 31882:               PUSHS  "\nCODE"
4202 @ 31889:               ASSPAR
4203 @ 31890:               CALL  

   471           WRITE(CA,6); PRINTSTRING(" BYTES      GLAP")
4204 @ 31891:               LINE   471 "regression-compile-tmp/imp918s.imp"
4205 @ 31929:               PUSH   WRITE
4206 @ 31932:               PUSH   CA
4207 @ 31935:               ASSPAR
4208 @ 31936:               PUSHI  #0x00000006
4209 @ 31941:               ASSPAR
4210 @ 31942:               CALL  
4211 @ 31943:               LINE   471 "regression-compile-tmp/imp918s.imp"
4212 @ 31981:               PUSH   PRINTSTRING
4213 @ 31984:               PUSHS  " BYTES      GLAP"
4214 @ 32002:               ASSPAR
4215 @ 32003:               CALL  

   472           WRITE(GLACA,3); printstring("+")
4216 @ 32004:               LINE   472 "regression-compile-tmp/imp918s.imp"
4217 @ 32042:               PUSH   WRITE
4218 @ 32045:               PUSH   GLACA
4219 @ 32048:               ASSPAR
4220 @ 32049:               PUSHI  #0x00000003
4221 @ 32054:               ASSPAR
4222 @ 32055:               CALL  
4223 @ 32056:               LINE   472 "regression-compile-tmp/imp918s.imp"
4224 @ 32094:               PUSH   PRINTSTRING
4225 @ 32097:               PUSHS  "+"
4226 @ 32100:               ASSPAR
4227 @ 32101:               CALL  

   473           WRITE(CONSTPTR,1); printstring(" BYTES      DIAG TABLES")
4228 @ 32102:               LINE   473 "regression-compile-tmp/imp918s.imp"
4229 @ 32140:               PUSH   WRITE
4230 @ 32143:               PUSH   CONSTPTR
4231 @ 32146:               ASSPAR
4232 @ 32147:               PUSHI  #0x00000001
4233 @ 32152:               ASSPAR
4234 @ 32153:               CALL  
4235 @ 32154:               LINE   473 "regression-compile-tmp/imp918s.imp"
4236 @ 32192:               PUSH   PRINTSTRING
4237 @ 32195:               PUSHS  " BYTES      DIAG TABLES"
4238 @ 32220:               ASSPAR
4239 @ 32221:               CALL  

   474           WRITE(SSTL,3); printstring(" BYTES
   475  TOTAL")
4240 @ 32222:               LINE   474 "regression-compile-tmp/imp918s.imp"
4241 @ 32260:               PUSH   WRITE
4242 @ 32263:               PUSH   SSTL
4243 @ 32266:               ASSPAR
4244 @ 32267:               PUSHI  #0x00000003
4245 @ 32272:               ASSPAR
4246 @ 32273:               CALL  
4247 @ 32274:               LINE   474 "regression-compile-tmp/imp918s.imp"
4248 @ 32312:               PUSH   PRINTSTRING
4249 @ 32315:               PUSHS  " BYTES\nTOTAL"
4250 @ 32329:               ASSPAR
4251 @ 32330:               CALL  

   476           REGISTER(0)=CA; REGISTER(1)=GLACA
4252 @ 32331:               LINE   476 "regression-compile-tmp/imp918s.imp"
4253 @ 32369:               PUSH   REGISTER
4254 @ 32372:               PUSHI  #0x00000000
4255 @ 32377:               ACCESS
4256 @ 32378:               PUSH   CA
4257 @ 32381:               ASSVAL
4258 @ 32382:               LINE   476 "regression-compile-tmp/imp918s.imp"
4259 @ 32420:               PUSH   REGISTER
4260 @ 32423:               PUSHI  #0x00000001
4261 @ 32428:               ACCESS
4262 @ 32429:               PUSH   GLACA
4263 @ 32432:               ASSVAL

   477           REGISTER(2)=0
4264 @ 32433:               LINE   477 "regression-compile-tmp/imp918s.imp"
4265 @ 32471:               PUSH   REGISTER
4266 @ 32474:               PUSHI  #0x00000002
4267 @ 32479:               ACCESS
4268 @ 32480:               PUSHI  #0x00000000
4269 @ 32485:               ASSVAL

   478           REGISTER(3)=SSTL
4270 @ 32486:               LINE   478 "regression-compile-tmp/imp918s.imp"
4271 @ 32524:               PUSH   REGISTER
4272 @ 32527:               PUSHI  #0x00000003
4273 @ 32532:               ACCESS
4274 @ 32533:               PUSH   SSTL
4275 @ 32536:               ASSVAL

   479           REGISTER(4)=CONSTPTR
4276 @ 32537:               LINE   479 "regression-compile-tmp/imp918s.imp"
4277 @ 32575:               PUSH   REGISTER
4278 @ 32578:               PUSHI  #0x00000004
4279 @ 32583:               ACCESS
4280 @ 32584:               PUSH   CONSTPTR
4281 @ 32587:               ASSVAL

   480           K=CA+GLACA+SSTL+CONSTPTR;REGISTER(5)=K
4282 @ 32588:               LINE   480 "regression-compile-tmp/imp918s.imp"
4283 @ 32626:               PUSH   K
4284 @ 32629:               PUSH   CA
4285 @ 32632:               PUSH   GLACA
4286 @ 32635:               ADD   
4287 @ 32636:               PUSH   SSTL
4288 @ 32639:               ADD   
4289 @ 32640:               PUSH   CONSTPTR
4290 @ 32643:               ADD   
4291 @ 32644:               ASSVAL
4292 @ 32645:               LINE   480 "regression-compile-tmp/imp918s.imp"
4293 @ 32683:               PUSH   REGISTER
4294 @ 32686:               PUSHI  #0x00000005
4295 @ 32691:               ACCESS
4296 @ 32692:               PUSH   K
4297 @ 32695:               ASSVAL

   481           WRITE(K,5); printstring(" BYTES")
4298 @ 32696:               LINE   481 "regression-compile-tmp/imp918s.imp"
4299 @ 32734:               PUSH   WRITE
4300 @ 32737:               PUSH   K
4301 @ 32740:               ASSPAR
4302 @ 32741:               PUSHI  #0x00000005
4303 @ 32746:               ASSPAR
4304 @ 32747:               CALL  
4305 @ 32748:               LINE   481 "regression-compile-tmp/imp918s.imp"
4306 @ 32786:               PUSH   PRINTSTRING
4307 @ 32789:               PUSHS  " BYTES"
4308 @ 32797:               ASSPAR
4309 @ 32798:               CALL  

   482           %IF IMPS=0 %AND WARNINGS(0)>0 %START
4310 @ 32799:               LINE   482 "regression-compile-tmp/imp918s.imp"
4311 @ 32837:               PUSH   IMPS
4312 @ 32840:               PUSHI  #0x00000000
4313 @ 32845:               JUMPIF # L_0004
4314 @ 32849:               PUSH   WARNINGS
4315 @ 32852:               PUSHI  #0x00000000
4316 @ 32857:               ACCESS
4317 @ 32858:               PUSHI  #0x00000000
4318 @ 32863:               JUMPIF <= L_0004

   483              J=WARNINGS(0)
4319 @ 32867:               LINE   483 "regression-compile-tmp/imp918s.imp"
4320 @ 32905:               PUSH   J
4321 @ 32908:               PUSH   WARNINGS
4322 @ 32911:               PUSHI  #0x00000000
4323 @ 32916:               ACCESS
4324 @ 32917:               ASSVAL

   484              PRINTSTRING("
   485  THE FOLLOWING LINES ARE NOT ACCEPTABLE TO 2900 IMP:-")
4325 @ 32918:               LINE   484 "regression-compile-tmp/imp918s.imp"
4326 @ 32956:               PUSH   PRINTSTRING
4327 @ 32959:               PUSHS  "\nTHE FOLLOWING LINES ARE NOT ACCEPTABLE TO 2900 IMP:-"
4328 @ 33014:               ASSPAR
4329 @ 33015:               CALL  

   486              NEWLINE
4330 @ 33016:               LINE   486 "regression-compile-tmp/imp918s.imp"
4331 @ 33054:               PUSH   NEWLINE
4332 @ 33057:               CALL  

   487              %CYCLE I=1,1,J
4333 @ 33058:               LINE   487 "regression-compile-tmp/imp918s.imp"
4334 @ 33096:               PUSH   I
4335 @ 33099:               PUSHI  #0x00000001
4336 @ 33104:               PUSH   J
4337 @ 33107:               PUSHI  #0x00000001
4338 @ 33112:               FOR    L_0006

   488                 WRITE(WARNINGS(I),3)
4339 @ 33115:               LINE   488 "regression-compile-tmp/imp918s.imp"
4340 @ 33153:               PUSH   WRITE
4341 @ 33156:               PUSH   WARNINGS
4342 @ 33159:               PUSH   I
4343 @ 33162:               ACCESS
4344 @ 33163:               ASSPAR
4345 @ 33164:               PUSHI  #0x00000003
4346 @ 33169:               ASSPAR
4347 @ 33170:               CALL  

   489                 %EXIT %IF I>=30
4348 @ 33171:               LINE   489 "regression-compile-tmp/imp918s.imp"
4349 @ 33209:               PUSH   I
4350 @ 33212:               PUSHI  #0x0000001e
4351 @ 33217:               JUMPIF < L_000a
4352 @ 33221:               GOTO   L_0007
4353 @ 33224:               LOCATE L_000a

   490              %REPEAT
4354 @ 33227:               LINE   490 "regression-compile-tmp/imp918s.imp"
4355 @ 33265:               REPEAT L_0006
4356 @ 33268:               LOCATE L_0007

   491              NEWLINE
4357 @ 33271:               LINE   491 "regression-compile-tmp/imp918s.imp"
4358 @ 33309:               PUSH   NEWLINE
4359 @ 33312:               CALL  

   492              %IF J>30 %THEN PRINTSTRING("PLUS ") %AND WRITE(J-30,3) %C
   493                 %AND PRINTSTRING(" MORE
   494  ")
4360 @ 33313:               LINE   492 "regression-compile-tmp/imp918s.imp"
4361 @ 33351:               PUSH   J
4362 @ 33354:               PUSHI  #0x0000001e
4363 @ 33359:               JUMPIF <= L_0007
4364 @ 33363:               PUSH   PRINTSTRING
4365 @ 33366:               PUSHS  "PLUS "
4366 @ 33373:               ASSPAR
4367 @ 33374:               CALL  
4368 @ 33375:               PUSH   WRITE
4369 @ 33378:               PUSH   J
4370 @ 33381:               PUSHI  #0x0000001e
4371 @ 33386:               SUB   
4372 @ 33387:               ASSPAR
4373 @ 33388:               PUSHI  #0x00000003
4374 @ 33393:               ASSPAR
4375 @ 33394:               CALL  
4376 @ 33395:               PUSH   PRINTSTRING
4377 @ 33398:               PUSHS  " MORE\n"
4378 @ 33406:               ASSPAR
4379 @ 33407:               CALL  
4380 @ 33408:               LOCATE L_0007

   495           %FINISH
4381 @ 33411:               LINE   495 "regression-compile-tmp/imp918s.imp"
4382 @ 33449:               LOCATE L_0004

   496           NEWLINE; print symbol(13);    ! MARKER FOR COMP TO PRINT SUMMARY
4383 @ 33452:               LINE   496 "regression-compile-tmp/imp918s.imp"
4384 @ 33490:               PUSH   NEWLINE
4385 @ 33493:               CALL  
4386 @ 33494:               LINE   496 "regression-compile-tmp/imp918s.imp"
4387 @ 33532:               PUSH   PRINTSYMBOL
4388 @ 33535:               PUSHI  #0x0000000d
4389 @ 33540:               ASSPAR
4390 @ 33541:               CALL  

   497           %IF FAULTY=0 %THEN %START
4391 @ 33542:               LINE   497 "regression-compile-tmp/imp918s.imp"
4392 @ 33580:               PUSH   FAULTY
4393 @ 33583:               PUSHI  #0x00000000
4394 @ 33588:               JUMPIF # L_0004

   498              WRITE(STMTS,7); printstring(" STATEMENTS COMPILED")
4395 @ 33592:               LINE   498 "regression-compile-tmp/imp918s.imp"
4396 @ 33630:               PUSH   WRITE
4397 @ 33633:               PUSH   STMTS
4398 @ 33636:               ASSPAR
4399 @ 33637:               PUSHI  #0x00000007
4400 @ 33642:               ASSPAR
4401 @ 33643:               CALL  
4402 @ 33644:               LINE   498 "regression-compile-tmp/imp918s.imp"
4403 @ 33682:               PUSH   PRINTSTRING
4404 @ 33685:               PUSHS  " STATEMENTS COMPILED"
4405 @ 33707:               ASSPAR
4406 @ 33708:               CALL  

   499              %IF GLACA>4096 %THEN printstring("
   500  WARNING:- GLAP ROOT IS GREATER THAN 4096 BYTES!
   501  ********
   502            OBJECT PROGRAM IS LIABLE TO BE VERY INEFFICIENT
   503  ");
4407 @ 33709:               LINE   499 "regression-compile-tmp/imp918s.imp"
4408 @ 33747:               PUSH   GLACA
4409 @ 33750:               PUSHI  #0x00001000
4410 @ 33755:               JUMPIF <= L_0007
4411 @ 33759:               PUSH   PRINTSTRING
4412 @ 33762:               PUSHS  "\nWARNING:- GLAP ROOT IS GREATER THAN 4096 BYTES!\n********\n          OBJECT PROGRAM IS LIABLE TO BE VERY INEFFICIENT\n"
4413 @ 33880:               ASSPAR
4414 @ 33881:               CALL  
4415 @ 33882:               LOCATE L_0007

   504             COMREG(47) = STMTS
4416 @ 33885:               LINE   504 "regression-compile-tmp/imp918s.imp"
4417 @ 33923:               PUSH   COMREG
4418 @ 33926:               PUSHI  #0x0000002f
4419 @ 33931:               ASSPAR
4420 @ 33932:               CALL  
4421 @ 33933:               PUSH   STMTS
4422 @ 33936:               ASSVAL

   505           %FINISH %ELSE %START
4423 @ 33937:               LINE   505 "regression-compile-tmp/imp918s.imp"
4424 @ 33975:               GOTO   L_0003
4425 @ 33978:               LOCATE L_0004

   506              printstring("PROGRAM CONTAINS"); WRITE(FAULTY,2)
4426 @ 33981:               LINE   506 "regression-compile-tmp/imp918s.imp"
4427 @ 34019:               PUSH   PRINTSTRING
4428 @ 34022:               PUSHS  "PROGRAM CONTAINS"
4429 @ 34040:               ASSPAR
4430 @ 34041:               CALL  
4431 @ 34042:               LINE   506 "regression-compile-tmp/imp918s.imp"
4432 @ 34080:               PUSH   WRITE
4433 @ 34083:               PUSH   FAULTY
4434 @ 34086:               ASSPAR
4435 @ 34087:               PUSHI  #0x00000002
4436 @ 34092:               ASSPAR
4437 @ 34093:               CALL  

   507              printstring(" FAULT");  PRINTSYMBOL('S') %IF FAULTY>1
4438 @ 34094:               LINE   507 "regression-compile-tmp/imp918s.imp"
4439 @ 34132:               PUSH   PRINTSTRING
4440 @ 34135:               PUSHS  " FAULT"
4441 @ 34143:               ASSPAR
4442 @ 34144:               CALL  
4443 @ 34145:               LINE   507 "regression-compile-tmp/imp918s.imp"
4444 @ 34183:               PUSH   FAULTY
4445 @ 34186:               PUSHI  #0x00000001
4446 @ 34191:               JUMPIF <= L_0007
4447 @ 34195:               PUSH   PRINTSYMBOL
4448 @ 34198:               PUSHI  #0x00000053
4449 @ 34203:               ASSPAR
4450 @ 34204:               CALL  
4451 @ 34205:               LOCATE L_0007

   508              COMREG(47)=FAULTY;             ! FOR COMPER
4452 @ 34208:               LINE   508 "regression-compile-tmp/imp918s.imp"
4453 @ 34246:               PUSH   COMREG
4454 @ 34249:               PUSHI  #0x0000002f
4455 @ 34254:               ASSPAR
4456 @ 34255:               CALL  
4457 @ 34256:               PUSH   FAULTY
4458 @ 34259:               ASSVAL

   509           %FINISH
4459 @ 34260:               LINE   509 "regression-compile-tmp/imp918s.imp"
4460 @ 34298:               LOCATE L_0003

   510           NEWLINES(2)
4461 @ 34301:               LINE   510 "regression-compile-tmp/imp918s.imp"
4462 @ 34339:               PUSH   NEWLINES
4463 @ 34342:               PUSHI  #0x00000002
4464 @ 34347:               ASSPAR
4465 @ 34348:               CALL  

   511           I=0; I=8 %IF FAULTY#0
4466 @ 34349:               LINE   511 "regression-compile-tmp/imp918s.imp"
4467 @ 34387:               PUSH   I
4468 @ 34390:               PUSHI  #0x00000000
4469 @ 34395:               ASSVAL
4470 @ 34396:               LINE   511 "regression-compile-tmp/imp918s.imp"
4471 @ 34434:               PUSH   FAULTY
4472 @ 34437:               PUSHI  #0x00000000
4473 @ 34442:               JUMPIF = L_0004
4474 @ 34446:               PUSH   I
4475 @ 34449:               PUSHI  #0x00000008
4476 @ 34454:               ASSVAL
4477 @ 34455:               LOCATE L_0004

   512           COMREG(24)=I
4478 @ 34458:               LINE   512 "regression-compile-tmp/imp918s.imp"
4479 @ 34496:               PUSH   COMREG
4480 @ 34499:               PUSHI  #0x00000018
4481 @ 34504:               ASSPAR
4482 @ 34505:               CALL  
4483 @ 34506:               PUSH   I
4484 @ 34509:               ASSVAL

   513           %IF INHCODE=0 %THEN %C
   514           LPUT(7,24,0,ADDR(REGISTER(0)));! SUMMARY INFO..REGISTER AS BUF
4485 @ 34510:               LINE   513 "regression-compile-tmp/imp918s.imp"
4486 @ 34548:               PUSH   INHCODE
4487 @ 34551:               PUSHI  #0x00000000
4488 @ 34556:               JUMPIF # L_0004
4489 @ 34560:               PUSH   LPUT
4490 @ 34563:               PUSHI  #0x00000007
4491 @ 34568:               ASSPAR
4492 @ 34569:               PUSHI  #0x00000018
4493 @ 34574:               ASSPAR
4494 @ 34575:               PUSHI  #0x00000000
4495 @ 34580:               ASSPAR
4496 @ 34581:               PUSH   ADDR
4497 @ 34584:               PUSH   REGISTER
4498 @ 34587:               PUSHI  #0x00000000
4499 @ 34592:               ACCESS
4500 @ 34593:               ASSPAR
4501 @ 34594:               CALL  
4502 @ 34595:               ASSPAR
4503 @ 34596:               CALL  
4504 @ 34597:               LOCATE L_0004

   515           %STOP
4505 @ 34600:               LINE   515 "regression-compile-tmp/imp918s.imp"
4506 @ 34638:               STOP  

   516           %END
4507 @ 34639:               LINE   516 "regression-compile-tmp/imp918s.imp"
4508 @ 34677:            END    _lev0id0_LOADDATA {lev=2 --> 1}

   517           %ROUTINE     FAULT(%INTEGER N,FNAME)
   518           {%SHORTROUTINE}
4509 @ 34678:            LINE   517 "regression-compile-tmp/imp918s.imp"
4510 @ 34716:            DEF    FAULT (_lev0id0_FAULT) p1=V_0150 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
4511 @ 34733:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
4512 @ 34734:                  DEF    N p1=V_015a 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
4513 @ 34747:                  DEF    FNAME p1=V_015b 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
4514 @ 34764:               FINISH ) {lev=2}

   519           %INTEGER I,J,QP,FLINE
4515 @ 34765:               LINE   519 "regression-compile-tmp/imp918s.imp"
4516 @ 34803:               DEF    I p1=V_015c 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
4517 @ 34816:               DEF    J p1=V_015d 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
4518 @ 34829:               DEF    QP p1=V_015e 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
4519 @ 34843:               DEF    FLINE p1=V_015f 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

   520           %IF N=100 %THEN FLINE=LINE %ELSE FLINE=A(STPTRS(1)-1)
4520 @ 34860:               LINE   520 "regression-compile-tmp/imp918s.imp"
4521 @ 34898:               PUSH   N
4522 @ 34901:               PUSHI  #0x00000064
4523 @ 34906:               JUMPIF # L_0004
4524 @ 34910:               PUSH   FLINE
4525 @ 34913:               PUSH   LINE
4526 @ 34916:               ASSVAL
4527 @ 34917:               GOTO   L_0003
4528 @ 34920:               LOCATE L_0004
4529 @ 34923:               PUSH   FLINE
4530 @ 34926:               PUSH   A
4531 @ 34929:               PUSH   STPTRS
4532 @ 34932:               PUSHI  #0x00000001
4533 @ 34937:               ACCESS
4534 @ 34938:               PUSHI  #0x00000001
4535 @ 34943:               SUB   
4536 @ 34944:               ACCESS
4537 @ 34945:               ASSVAL
4538 @ 34946:               LOCATE L_0003

   521           QP=Q
4539 @ 34949:               LINE   521 "regression-compile-tmp/imp918s.imp"
4540 @ 34987:               PUSH   QP
4541 @ 34990:               PUSH   Q
4542 @ 34993:               ASSVAL

   522           printstring("
4543 @ 34994:               LINE   522 "regression-compile-tmp/imp918s.imp"
4544 @ 35032:               PUSH   PRINTSTRING
4545 @ 35035:               PUSHS  "\n*"
4546 @ 35039:               ASSPAR
4547 @ 35040:               CALL  

   523  *");      WRITE(FLINE,4)
4548 @ 35041:               LINE   523 "regression-compile-tmp/imp918s.imp"
4549 @ 35079:               PUSH   WRITE
4550 @ 35082:               PUSH   FLINE
4551 @ 35085:               ASSPAR
4552 @ 35086:               PUSHI  #0x00000004
4553 @ 35091:               ASSPAR
4554 @ 35092:               CALL  

   524           I=3; I=3*LEVEL %IF LIST=0; SPACES(I)
4555 @ 35093:               LINE   524 "regression-compile-tmp/imp918s.imp"
4556 @ 35131:               PUSH   I
4557 @ 35134:               PUSHI  #0x00000003
4558 @ 35139:               ASSVAL
4559 @ 35140:               LINE   524 "regression-compile-tmp/imp918s.imp"
4560 @ 35178:               PUSH   LIST
4561 @ 35181:               PUSHI  #0x00000000
4562 @ 35186:               JUMPIF # L_0004
4563 @ 35190:               PUSH   I
4564 @ 35193:               PUSHI  #0x00000003
4565 @ 35198:               PUSH   LEVEL
4566 @ 35201:               MUL   
4567 @ 35202:               ASSVAL
4568 @ 35203:               LOCATE L_0004
4569 @ 35206:               LINE   524 "regression-compile-tmp/imp918s.imp"
4570 @ 35244:               PUSH   SPACES
4571 @ 35247:               PUSH   I
4572 @ 35250:               ASSPAR
4573 @ 35251:               CALL  

   525           CHECKSP=1; FAULTY=FAULTY+1
4574 @ 35252:               LINE   525 "regression-compile-tmp/imp918s.imp"
4575 @ 35290:               PUSH   CHECKSP
4576 @ 35293:               PUSHI  #0x00000001
4577 @ 35298:               ASSVAL
4578 @ 35299:               LINE   525 "regression-compile-tmp/imp918s.imp"
4579 @ 35337:               PUSH   FAULTY
4580 @ 35340:               PUSH   FAULTY
4581 @ 35343:               PUSHI  #0x00000001
4582 @ 35348:               ADD   
4583 @ 35349:               ASSVAL

   526           INHCODE=1 %UNLESS LET=0;    ! STOP GENERATING CODE
4584 @ 35350:               LINE   526 "regression-compile-tmp/imp918s.imp"
4585 @ 35388:               PUSH   LET
4586 @ 35391:               PUSHI  #0x00000000
4587 @ 35396:               JUMPIF = L_0004
4588 @ 35400:               PUSH   INHCODE
4589 @ 35403:               PUSHI  #0x00000001
4590 @ 35408:               ASSVAL
4591 @ 35409:               LOCATE L_0004

   527           %IF N#100 %THEN %START;     ! ALL EXCEPT SYNTAX
4592 @ 35412:               LINE   527 "regression-compile-tmp/imp918s.imp"
4593 @ 35450:               PUSH   N
4594 @ 35453:               PUSHI  #0x00000064
4595 @ 35458:               JUMPIF = L_0004

   528              printstring("FAULT"); WRITE(N,2)
4596 @ 35462:               LINE   528 "regression-compile-tmp/imp918s.imp"
4597 @ 35500:               PUSH   PRINTSTRING
4598 @ 35503:               PUSHS  "FAULT"
4599 @ 35510:               ASSPAR
4600 @ 35511:               CALL  
4601 @ 35512:               LINE   528 "regression-compile-tmp/imp918s.imp"
4602 @ 35550:               PUSH   WRITE
4603 @ 35553:               PUSH   N
4604 @ 35556:               ASSPAR
4605 @ 35557:               PUSHI  #0x00000002
4606 @ 35562:               ASSPAR
4607 @ 35563:               CALL  

   529              MESSAGE(N)
4608 @ 35564:               LINE   529 "regression-compile-tmp/imp918s.imp"
4609 @ 35602:               PUSH   MESSAGE
4610 @ 35605:               PUSH   N
4611 @ 35608:               ASSPAR
4612 @ 35609:               CALL  

   530              %IF N>100 %THEN %START
4613 @ 35610:               LINE   530 "regression-compile-tmp/imp918s.imp"
4614 @ 35648:               PUSH   N
4615 @ 35651:               PUSHI  #0x00000064
4616 @ 35656:               JUMPIF <= L_0007

   531                 printstring(" DISASTER ")
4617 @ 35660:               LINE   531 "regression-compile-tmp/imp918s.imp"
4618 @ 35698:               PUSH   PRINTSTRING
4619 @ 35701:               PUSHS  " DISASTER "
4620 @ 35713:               ASSPAR
4621 @ 35714:               CALL  

   532                 ABORT %UNLESS N<=108; %STOP
4622 @ 35715:               LINE   532 "regression-compile-tmp/imp918s.imp"
4623 @ 35753:               PUSH   N
4624 @ 35756:               PUSHI  #0x0000006c
4625 @ 35761:               JUMPIF <= L_000a
4626 @ 35765:               PUSH   ABORT
4627 @ 35768:               CALL  
4628 @ 35769:               LOCATE L_000a
4629 @ 35772:               LINE   532 "regression-compile-tmp/imp918s.imp"
4630 @ 35810:               STOP  

   533              %FINISH
4631 @ 35811:               LINE   533 "regression-compile-tmp/imp918s.imp"
4632 @ 35849:               LOCATE L_0007

   534              PRINTNAME(FNAME) %UNLESS FNAME=0
4633 @ 35852:               LINE   534 "regression-compile-tmp/imp918s.imp"
4634 @ 35890:               PUSH   FNAME
4635 @ 35893:               PUSHI  #0x00000000
4636 @ 35898:               JUMPIF = L_0007
4637 @ 35902:               PUSH   PRINTNAME
4638 @ 35905:               PUSH   FNAME
4639 @ 35908:               ASSPAR
4640 @ 35909:               CALL  
4641 @ 35910:               LOCATE L_0007

   535           %FINISH %ELSE %START;       ! SYMTAX FAULTS
4642 @ 35913:               LINE   535 "regression-compile-tmp/imp918s.imp"
4643 @ 35951:               GOTO   L_0003
4644 @ 35954:               LOCATE L_0004

   536              printstring("  SYNTAX   ")
4645 @ 35957:               LINE   536 "regression-compile-tmp/imp918s.imp"
4646 @ 35995:               PUSH   PRINTSTRING
4647 @ 35998:               PUSHS  "  SYNTAX   "
4648 @ 36011:               ASSPAR
4649 @ 36012:               CALL  

   537              %IF LINE#OLDLINE %THEN %START
4650 @ 36013:               LINE   537 "regression-compile-tmp/imp918s.imp"
4651 @ 36051:               PUSH   LINE
4652 @ 36054:               PUSH   OLDLINE
4653 @ 36057:               JUMPIF = L_0007

   538                 printstring("
   539   TEXT MODE FAILURE ")
4654 @ 36061:               LINE   538 "regression-compile-tmp/imp918s.imp"
4655 @ 36099:               PUSH   PRINTSTRING
4656 @ 36102:               PUSHS  "\n TEXT MODE FAILURE "
4657 @ 36124:               ASSPAR
4658 @ 36125:               CALL  

   540                 WRITE(LINE-OLDLINE,1)
4659 @ 36126:               LINE   540 "regression-compile-tmp/imp918s.imp"
4660 @ 36164:               PUSH   WRITE
4661 @ 36167:               PUSH   LINE
4662 @ 36170:               PUSH   OLDLINE
4663 @ 36173:               SUB   
4664 @ 36174:               ASSPAR
4665 @ 36175:               PUSHI  #0x00000001
4666 @ 36180:               ASSPAR
4667 @ 36181:               CALL  

   541                 printstring(" LINES LOST 
   542  ")
4668 @ 36182:               LINE   541 "regression-compile-tmp/imp918s.imp"
4669 @ 36220:               PUSH   PRINTSTRING
4670 @ 36223:               PUSHS  " LINES LOST \n"
4671 @ 36238:               ASSPAR
4672 @ 36239:               CALL  

   543                 Q=QMAX
4673 @ 36240:               LINE   543 "regression-compile-tmp/imp918s.imp"
4674 @ 36278:               PUSH   Q
4675 @ 36281:               PUSH   QMAX
4676 @ 36284:               ASSVAL

   544              %FINISH %ELSE %START
4677 @ 36285:               LINE   544 "regression-compile-tmp/imp918s.imp"
4678 @ 36323:               GOTO   L_0006
4679 @ 36326:               LOCATE L_0007

   545                 %CYCLE
4680 @ 36329:               LINE   545 "regression-compile-tmp/imp918s.imp"
4681 @ 36367:               LOCATE L_0009

   546                    J=BYTE INTEGER(Q)
4682 @ 36370:               LINE   546 "regression-compile-tmp/imp918s.imp"
4683 @ 36408:               PUSH   J
4684 @ 36411:               PUSH   BYTEINTEGER
4685 @ 36414:               PUSH   Q
4686 @ 36417:               ASSPAR
4687 @ 36418:               CALL  
4688 @ 36419:               ASSVAL

   547                    PRINT SYMBOL(J)
4689 @ 36420:               LINE   547 "regression-compile-tmp/imp918s.imp"
4690 @ 36458:               PUSH   PRINTSYMBOL
4691 @ 36461:               PUSH   J
4692 @ 36464:               ASSPAR
4693 @ 36465:               CALL  

   548                    Q=Q+1
4694 @ 36466:               LINE   548 "regression-compile-tmp/imp918s.imp"
4695 @ 36504:               PUSH   Q
4696 @ 36507:               PUSH   Q
4697 @ 36510:               PUSHI  #0x00000001
4698 @ 36515:               ADD   
4699 @ 36516:               ASSVAL

   549                 %REPEAT %UNTIL J=';' %OR Q=LENGTH
4700 @ 36517:               LINE   549 "regression-compile-tmp/imp918s.imp"
4701 @ 36555:               PUSH   J
4702 @ 36558:               PUSHI  #0x0000003b
4703 @ 36563:               JUMPIF = L_000a
4704 @ 36567:               PUSH   Q
4705 @ 36570:               PUSH   LENGTH
4706 @ 36573:               JUMPIF = L_000a
4707 @ 36577:               REPEAT L_0009
4708 @ 36580:               LOCATE L_000a

   550                  %IF I+20+Q-QP<=120 %THEN %START
4709 @ 36583:               LINE   550 "regression-compile-tmp/imp918s.imp"
4710 @ 36621:               PUSH   I
4711 @ 36624:               PUSHI  #0x00000014
4712 @ 36629:               ADD   
4713 @ 36630:               PUSH   Q
4714 @ 36633:               ADD   
4715 @ 36634:               PUSH   QP
4716 @ 36637:               SUB   
4717 @ 36638:               PUSHI  #0x00000078
4718 @ 36643:               JUMPIF > L_000a

   551                    NEWLINE; SPACES(I+QMAX-QP+17)
4719 @ 36647:               LINE   551 "regression-compile-tmp/imp918s.imp"
4720 @ 36685:               PUSH   NEWLINE
4721 @ 36688:               CALL  
4722 @ 36689:               LINE   551 "regression-compile-tmp/imp918s.imp"
4723 @ 36727:               PUSH   SPACES
4724 @ 36730:               PUSH   I
4725 @ 36733:               PUSH   QMAX
4726 @ 36736:               ADD   
4727 @ 36737:               PUSH   QP
4728 @ 36740:               SUB   
4729 @ 36741:               PUSHI  #0x00000011
4730 @ 36746:               ADD   
4731 @ 36747:               ASSPAR
4732 @ 36748:               CALL  

   552                    printstring("!
   553  ")
4733 @ 36749:               LINE   552 "regression-compile-tmp/imp918s.imp"
4734 @ 36787:               PUSH   PRINTSTRING
4735 @ 36790:               PUSHS  "!\n"
4736 @ 36794:               ASSPAR
4737 @ 36795:               CALL  

   554                 %FINISH
4738 @ 36796:               LINE   554 "regression-compile-tmp/imp918s.imp"
4739 @ 36834:               LOCATE L_000a

   555              %FINISH
4740 @ 36837:               LINE   555 "regression-compile-tmp/imp918s.imp"
4741 @ 36875:               LOCATE L_0006

   556           %FINISH
4742 @ 36878:               LINE   556 "regression-compile-tmp/imp918s.imp"
4743 @ 36916:               LOCATE L_0003

   557           %IF TTOPUT#0 %THEN %START
4744 @ 36919:               LINE   557 "regression-compile-tmp/imp918s.imp"
4745 @ 36957:               PUSH   TTOPUT
4746 @ 36960:               PUSHI  #0x00000000
4747 @ 36965:               JUMPIF = L_0004

   558              Q=QP; TTOPUT=0
4748 @ 36969:               LINE   558 "regression-compile-tmp/imp918s.imp"
4749 @ 37007:               PUSH   Q
4750 @ 37010:               PUSH   QP
4751 @ 37013:               ASSVAL
4752 @ 37014:               LINE   558 "regression-compile-tmp/imp918s.imp"
4753 @ 37052:               PUSH   TTOPUT
4754 @ 37055:               PUSHI  #0x00000000
4755 @ 37060:               ASSVAL

   559              SELECT OUTPUT(87)
4756 @ 37061:               LINE   559 "regression-compile-tmp/imp918s.imp"
4757 @ 37099:               PUSH   SELECTOUTPUT
4758 @ 37102:               PUSHI  #0x00000057
4759 @ 37107:               ASSPAR
4760 @ 37108:               CALL  

   560              FAULT(N,FNAME)
4761 @ 37109:               LINE   560 "regression-compile-tmp/imp918s.imp"
4762 @ 37147:               PUSH   FAULT
4763 @ 37150:               PUSH   N
4764 @ 37153:               ASSPAR
4765 @ 37154:               PUSH   FNAME
4766 @ 37157:               ASSPAR
4767 @ 37158:               CALL  

   561              FAULTY=FAULTY-1
4768 @ 37159:               LINE   561 "regression-compile-tmp/imp918s.imp"
4769 @ 37197:               PUSH   FAULTY
4770 @ 37200:               PUSH   FAULTY
4771 @ 37203:               PUSHI  #0x00000001
4772 @ 37208:               SUB   
4773 @ 37209:               ASSVAL

   562              NEWLINE
4774 @ 37210:               LINE   562 "regression-compile-tmp/imp918s.imp"
4775 @ 37248:               PUSH   NEWLINE
4776 @ 37251:               CALL  

   563              SELECT OUTPUT(82)
4777 @ 37252:               LINE   563 "regression-compile-tmp/imp918s.imp"
4778 @ 37290:               PUSH   SELECTOUTPUT
4779 @ 37293:               PUSHI  #0x00000052
4780 @ 37298:               ASSPAR
4781 @ 37299:               CALL  

   564              TTOPUT=1
4782 @ 37300:               LINE   564 "regression-compile-tmp/imp918s.imp"
4783 @ 37338:               PUSH   TTOPUT
4784 @ 37341:               PUSHI  #0x00000001
4785 @ 37346:               ASSVAL

   565           %FINISH
4786 @ 37347:               LINE   565 "regression-compile-tmp/imp918s.imp"
4787 @ 37385:               LOCATE L_0004

   566           %END
   567  
4788 @ 37388:               LINE   566 "regression-compile-tmp/imp918s.imp"
4789 @ 37426:            END    _lev0id0_FAULT {lev=2 --> 1}

   568  %ROUTINE WARN(%INTEGER LINE)
   569  !***********************************************************************
   570  !*       STORE A WARNING IF STMNT NOT 2900 IMP COMPATIBLE              *
   571  !***********************************************************************
4790 @ 37427:            LINE   568 "regression-compile-tmp/imp918s.imp"
4791 @ 37465:            DEF    WARN (_lev0id0_WARN) p1=V_015a 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
4792 @ 37481:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
4793 @ 37482:                  DEF    LINE p1=V_015b 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
4794 @ 37498:               FINISH ) {lev=2}

   572  %INTEGER I,J
4795 @ 37499:               LINE   572 "regression-compile-tmp/imp918s.imp"
4796 @ 37537:               DEF    I p1=V_015c 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
4797 @ 37550:               DEF    J p1=V_015d 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

   573           I=WARNINGS(0); J=I+1
4798 @ 37563:               LINE   573 "regression-compile-tmp/imp918s.imp"
4799 @ 37601:               PUSH   I
4800 @ 37604:               PUSH   WARNINGS
4801 @ 37607:               PUSHI  #0x00000000
4802 @ 37612:               ACCESS
4803 @ 37613:               ASSVAL
4804 @ 37614:               LINE   573 "regression-compile-tmp/imp918s.imp"
4805 @ 37652:               PUSH   J
4806 @ 37655:               PUSH   I
4807 @ 37658:               PUSHI  #0x00000001
4808 @ 37663:               ADD   
4809 @ 37664:               ASSVAL

   574           %IF J>30 %THEN WARNINGS(0)=J %AND %RETURN
4810 @ 37665:               LINE   574 "regression-compile-tmp/imp918s.imp"
4811 @ 37703:               PUSH   J
4812 @ 37706:               PUSHI  #0x0000001e
4813 @ 37711:               JUMPIF <= L_0004
4814 @ 37715:               PUSH   WARNINGS
4815 @ 37718:               PUSHI  #0x00000000
4816 @ 37723:               ACCESS
4817 @ 37724:               PUSH   J
4818 @ 37727:               ASSVAL
4819 @ 37728:               RETURN
4820 @ 37729:               LOCATE L_0004

   575           %IF LINE>WARNINGS(I) %THEN WARNINGS(J)=LINE %AND %C
   576              WARNINGS(0)=J
4821 @ 37732:               LINE   575 "regression-compile-tmp/imp918s.imp"
4822 @ 37770:               PUSH   LINE
4823 @ 37773:               PUSH   WARNINGS
4824 @ 37776:               PUSH   I
4825 @ 37779:               ACCESS
4826 @ 37780:               JUMPIF <= L_0004
4827 @ 37784:               PUSH   WARNINGS
4828 @ 37787:               PUSH   J
4829 @ 37790:               ACCESS
4830 @ 37791:               PUSH   LINE
4831 @ 37794:               ASSVAL
4832 @ 37795:               PUSH   WARNINGS
4833 @ 37798:               PUSHI  #0x00000000
4834 @ 37803:               ACCESS
4835 @ 37804:               PUSH   J
4836 @ 37807:               ASSVAL
4837 @ 37808:               LOCATE L_0004

   577  %END
4838 @ 37811:               LINE   577 "regression-compile-tmp/imp918s.imp"
4839 @ 37849:            END    _lev0id0_WARN {lev=2 --> 1}

   578           %ROUTINE ABORT
4840 @ 37850:            LINE   578 "regression-compile-tmp/imp918s.imp"
4841 @ 37888:            DEF    ABORT (_lev0id0_ABORT) p1=V_0151 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
4842 @ 37905:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
4843 @ 37906:               FINISH ) {lev=2}

   579           printstring("
   580  ****************      ABORT********************    ABORT    *******")
4844 @ 37907:               LINE   579 "regression-compile-tmp/imp918s.imp"
4845 @ 37945:               PUSH   PRINTSTRING
4846 @ 37948:               PUSHS  "\n****************      ABORT********************    ABORT    *******"
4847 @ 38018:               ASSPAR
4848 @ 38019:               CALL  

   581           RECODE(ADDR(CODE(0)),ADDR(CODE(PPCURR)),CABUF) %UNLESS CA=CABUF
4849 @ 38020:               LINE   581 "regression-compile-tmp/imp918s.imp"
4850 @ 38058:               PUSH   CA
4851 @ 38061:               PUSH   CABUF
4852 @ 38064:               JUMPIF = L_0004
4853 @ 38068:               PUSH   RECODE
4854 @ 38071:               PUSH   ADDR
4855 @ 38074:               PUSH   CODE
4856 @ 38077:               PUSHI  #0x00000000
4857 @ 38082:               ACCESS
4858 @ 38083:               ASSPAR
4859 @ 38084:               CALL  
4860 @ 38085:               ASSPAR
4861 @ 38086:               PUSH   ADDR
4862 @ 38089:               PUSH   CODE
4863 @ 38092:               PUSH   PPCURR
4864 @ 38095:               ACCESS
4865 @ 38096:               ASSPAR
4866 @ 38097:               CALL  
4867 @ 38098:               ASSPAR
4868 @ 38099:               PUSH   CABUF
4869 @ 38102:               ASSPAR
4870 @ 38103:               CALL  
4871 @ 38104:               LOCATE L_0004

   582           PRINT USE
4872 @ 38107:               LINE   582 "regression-compile-tmp/imp918s.imp"
4873 @ 38145:               PUSH   PRINTUSE
4874 @ 38148:               CALL  

   583           %MONITOR ; %STOP; %END
4875 @ 38149:               LINE   583 "regression-compile-tmp/imp918s.imp"
4876 @ 38187:               MONITOR
4877 @ 38188:               LINE   583 "regression-compile-tmp/imp918s.imp"
4878 @ 38226:               STOP  
4879 @ 38227:               LINE   583 "regression-compile-tmp/imp918s.imp"
4880 @ 38265:            END    _lev0id0_ABORT {lev=2 --> 1}

   584  %ROUTINE PRINT USE
4881 @ 38266:            LINE   584 "regression-compile-tmp/imp918s.imp"
4882 @ 38304:            DEF    PRINTUSE (_lev0id0_PRINTUSE) p1=V_0152 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
4883 @ 38324:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
4884 @ 38325:               FINISH ) {lev=2}

   585  %INTEGER I, J, K
4885 @ 38326:               LINE   585 "regression-compile-tmp/imp918s.imp"
4886 @ 38364:               DEF    I p1=V_015b 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
4887 @ 38377:               DEF    J p1=V_015c 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
4888 @ 38390:               DEF    K p1=V_015d 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

   586  %ROUTINESPEC USES(%INTEGER I)
4889 @ 38403:               LINE   586 "regression-compile-tmp/imp918s.imp"
4890 @ 38441:               DEF    USES (_lev0id0_PRINTUSE_USES) p1=V_015e 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
4891 @ 38457:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
4892 @ 38458:                  DEF    I p1=V_015f 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
4893 @ 38471:               FINISH ) {lev=2}

   587  %OWNSTRING (10) %ARRAY STATUS(-1:2)="  LOCKED  ",
   588           "   FREE   "," CLAIMED  "," RESERVED "
4894 @ 38472:               LINE   587 "regression-compile-tmp/imp918s.imp"
4895 @ 38510:               PUSHI  #0xffffffff
4896 @ 38515:               PUSHI  #0x00000002
4897 @ 38520:               BOUNDS
4898 @ 38521:               DEF    STATUS p1=V_015f a/tf=3b b/format=a c/ostate=121  type=3 (string) form=11 (array) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
4899 @ 38539:               PUSHS  "  LOCKED  "
4900 @ 38551:               INIT   1
4901 @ 38554:               PUSHS  "   FREE   "
4902 @ 38566:               INIT   1
4903 @ 38569:               PUSHS  " CLAIMED  "
4904 @ 38581:               INIT   1
4905 @ 38584:               PUSHS  " RESERVED "
4906 @ 38596:               INIT   1

   589  %INTEGER NNAMES
   590  !%if USE MC = 1 %start
   591  !         *L_1,TAGS+8;  *MVC_NNAMES(4),8(1)
   592  !%finish
4907 @ 38599:               LINE   589 "regression-compile-tmp/imp918s.imp"
4908 @ 38637:               DEF    NNAMES p1=V_0160 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

   593           NEWLINES(2)
4909 @ 38655:               LINE   593 "regression-compile-tmp/imp918s.imp"
4910 @ 38693:               PUSH   NEWLINES
4911 @ 38696:               PUSHI  #0x00000002
4912 @ 38701:               ASSPAR
4913 @ 38702:               CALL  

   594           %CYCLE I=0, 1, 15
4914 @ 38703:               LINE   594 "regression-compile-tmp/imp918s.imp"
4915 @ 38741:               PUSH   I
4916 @ 38744:               PUSHI  #0x00000001
4917 @ 38749:               PUSHI  #0x0000000f
4918 @ 38754:               PUSHI  #0x00000000
4919 @ 38759:               FOR    L_0003

   595              ->Label9 %IF 10<=I<=13
4920 @ 38762:               LINE   595 "regression-compile-tmp/imp918s.imp"
4921 @ 38800:               PUSHI  #0x0000000a
4922 @ 38805:               PUSH   I
4923 @ 38808:               JUMPIFD > L_0007
4924 @ 38812:               PUSHI  #0x0000000d
4925 @ 38817:               JUMPIF > L_0007
4926 @ 38821:               JUMP   L_0161
4927 @ 38824:               LOCATE L_0007

   596              ->Label9 %IF REGISTER(I)=0 %AND GRUSE(I)=0 %AND (I>6 %C
   597                 %OR (REGISTER(I+16)=0 %AND GRUSE(I+16)=0))
4928 @ 38827:               LINE   596 "regression-compile-tmp/imp918s.imp"
4929 @ 38865:               PUSH   REGISTER
4930 @ 38868:               PUSH   I
4931 @ 38871:               ACCESS
4932 @ 38872:               PUSHI  #0x00000000
4933 @ 38877:               JUMPIF # L_0007
4934 @ 38881:               PUSH   GRUSE
4935 @ 38884:               PUSH   I
4936 @ 38887:               ACCESS
4937 @ 38888:               PUSHI  #0x00000000
4938 @ 38893:               JUMPIF # L_0007
4939 @ 38897:               PUSH   I
4940 @ 38900:               PUSHI  #0x00000006
4941 @ 38905:               JUMPIF > L_0008
4942 @ 38909:               PUSH   REGISTER
4943 @ 38912:               PUSH   I
4944 @ 38915:               PUSHI  #0x00000010
4945 @ 38920:               ADD   
4946 @ 38921:               ACCESS
4947 @ 38922:               PUSHI  #0x00000000
4948 @ 38927:               JUMPIF # L_0007
4949 @ 38931:               PUSH   GRUSE
4950 @ 38934:               PUSH   I
4951 @ 38937:               PUSHI  #0x00000010
4952 @ 38942:               ADD   
4953 @ 38943:               ACCESS
4954 @ 38944:               PUSHI  #0x00000000
4955 @ 38949:               JUMPIF # L_0007
4956 @ 38953:               LOCATE L_0008
4957 @ 38956:               JUMP   L_0161
4958 @ 38959:               LOCATE L_0007

   598              WRITE(I, 2)
4959 @ 38962:               LINE   598 "regression-compile-tmp/imp918s.imp"
4960 @ 39000:               PUSH   WRITE
4961 @ 39003:               PUSH   I
4962 @ 39006:               ASSPAR
4963 @ 39007:               PUSHI  #0x00000002
4964 @ 39012:               ASSPAR
4965 @ 39013:               CALL  

   599              PRINTSTRING(STATUS(REGISTER(I)))
4966 @ 39014:               LINE   599 "regression-compile-tmp/imp918s.imp"
4967 @ 39052:               PUSH   PRINTSTRING
4968 @ 39055:               PUSH   STATUS
4969 @ 39058:               PUSH   REGISTER
4970 @ 39061:               PUSH   I
4971 @ 39064:               ACCESS
4972 @ 39065:               ACCESS
4973 @ 39066:               ASSPAR
4974 @ 39067:               CALL  

   600              USES(I)
4975 @ 39068:               LINE   600 "regression-compile-tmp/imp918s.imp"
4976 @ 39106:               PUSH   USES
4977 @ 39109:               PUSH   I
4978 @ 39112:               ASSPAR
4979 @ 39113:               CALL  

   601              ->Label4 %IF I>6 %OR (REGISTER(I+16)=0=GRUSE(I+16))
4980 @ 39114:               LINE   601 "regression-compile-tmp/imp918s.imp"
4981 @ 39152:               PUSH   I
4982 @ 39155:               PUSHI  #0x00000006
4983 @ 39160:               JUMPIF > L_0008
4984 @ 39164:               PUSH   REGISTER
4985 @ 39167:               PUSH   I
4986 @ 39170:               PUSHI  #0x00000010
4987 @ 39175:               ADD   
4988 @ 39176:               ACCESS
4989 @ 39177:               PUSHI  #0x00000000
4990 @ 39182:               JUMPIFD # L_0007
4991 @ 39186:               PUSH   GRUSE
4992 @ 39189:               PUSH   I
4993 @ 39192:               PUSHI  #0x00000010
4994 @ 39197:               ADD   
4995 @ 39198:               ACCESS
4996 @ 39199:               JUMPIF # L_0007
4997 @ 39203:               LOCATE L_0008
4998 @ 39206:               JUMP   L_0162
4999 @ 39209:               LOCATE L_0007

   602              SPACES(13-K)
5000 @ 39212:               LINE   602 "regression-compile-tmp/imp918s.imp"
5001 @ 39250:               PUSH   SPACES
5002 @ 39253:               PUSHI  #0x0000000d
5003 @ 39258:               PUSH   K
5004 @ 39261:               SUB   
5005 @ 39262:               ASSPAR
5006 @ 39263:               CALL  

   603              PRINTSTRING(STATUS(REGISTER(I+16)))
5007 @ 39264:               LINE   603 "regression-compile-tmp/imp918s.imp"
5008 @ 39302:               PUSH   PRINTSTRING
5009 @ 39305:               PUSH   STATUS
5010 @ 39308:               PUSH   REGISTER
5011 @ 39311:               PUSH   I
5012 @ 39314:               PUSHI  #0x00000010
5013 @ 39319:               ADD   
5014 @ 39320:               ACCESS
5015 @ 39321:               ACCESS
5016 @ 39322:               ASSPAR
5017 @ 39323:               CALL  

   604              USES(I+16)
5018 @ 39324:               LINE   604 "regression-compile-tmp/imp918s.imp"
5019 @ 39362:               PUSH   USES
5020 @ 39365:               PUSH   I
5021 @ 39368:               PUSHI  #0x00000010
5022 @ 39373:               ADD   
5023 @ 39374:               ASSPAR
5024 @ 39375:               CALL  

   605  Label4:          NEWLINE
5025 @ 39376:               LINE   605 "regression-compile-tmp/imp918s.imp"
5026 @ 39414:               LABEL  L_0162
5027 @ 39417:               LINE   605 "regression-compile-tmp/imp918s.imp"
5028 @ 39455:               PUSH   NEWLINE
5029 @ 39458:               CALL  

   606  Label9:       %REPEAT
5030 @ 39459:               LINE   606 "regression-compile-tmp/imp918s.imp"
5031 @ 39497:               LABEL  L_0161
5032 @ 39500:               LINE   606 "regression-compile-tmp/imp918s.imp"
5033 @ 39538:               REPEAT L_0003
5034 @ 39541:               LOCATE L_0004

   607           I=CCSTATE>>16
5035 @ 39544:               LINE   607 "regression-compile-tmp/imp918s.imp"
5036 @ 39582:               PUSH   I
5037 @ 39585:               PUSH   CCSTATE
5038 @ 39588:               PUSHI  #0x00000010
5039 @ 39593:               RSH   
5040 @ 39594:               ASSVAL

   608           %IF 1<=I<=2 %THEN %START
5041 @ 39595:               LINE   608 "regression-compile-tmp/imp918s.imp"
5042 @ 39633:               PUSHI  #0x00000001
5043 @ 39638:               PUSH   I
5044 @ 39641:               JUMPIFD > L_0004
5045 @ 39645:               PUSHI  #0x00000002
5046 @ 39650:               JUMPIF > L_0004

   609              %IF I=1 %THEN PRINTSTRING("ARITHMETIC CC ON REG") %C
   610                 %ELSE PRINTSTRING("LOGICAL CC ON REG")
5047 @ 39654:               LINE   609 "regression-compile-tmp/imp918s.imp"
5048 @ 39692:               PUSH   I
5049 @ 39695:               PUSHI  #0x00000001
5050 @ 39700:               JUMPIF # L_0007
5051 @ 39704:               PUSH   PRINTSTRING
5052 @ 39707:               PUSHS  "ARITHMETIC CC ON REG"
5053 @ 39729:               ASSPAR
5054 @ 39730:               CALL  
5055 @ 39731:               GOTO   L_0006
5056 @ 39734:               LOCATE L_0007
5057 @ 39737:               PUSH   PRINTSTRING
5058 @ 39740:               PUSHS  "LOGICAL CC ON REG"
5059 @ 39759:               ASSPAR
5060 @ 39760:               CALL  
5061 @ 39761:               LOCATE L_0006

   611              WRITE(CCSTATE&255, 5)
5062 @ 39764:               LINE   611 "regression-compile-tmp/imp918s.imp"
5063 @ 39802:               PUSH   WRITE
5064 @ 39805:               PUSH   CCSTATE
5065 @ 39808:               PUSHI  #0x000000ff
5066 @ 39813:               AND   
5067 @ 39814:               ASSPAR
5068 @ 39815:               PUSHI  #0x00000005
5069 @ 39820:               ASSPAR
5070 @ 39821:               CALL  

   612              NEWLINE
5071 @ 39822:               LINE   612 "regression-compile-tmp/imp918s.imp"
5072 @ 39860:               PUSH   NEWLINE
5073 @ 39863:               CALL  

   613           %FINISH
5074 @ 39864:               LINE   613 "regression-compile-tmp/imp918s.imp"
5075 @ 39902:               LOCATE L_0004

   614           %RETURN
5076 @ 39905:               LINE   614 "regression-compile-tmp/imp918s.imp"
5077 @ 39943:               RETURN

   615  %ROUTINE PN(%INTEGER N)
5078 @ 39944:               LINE   615 "regression-compile-tmp/imp918s.imp"
5079 @ 39982:               DEF    PN (_lev0id0_PRINTUSE_PN) p1=V_0163 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
5080 @ 39996:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
5081 @ 39997:                     DEF    N p1=V_0164 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
5082 @ 40010:                  FINISH ) {lev=3}

   616  %INTEGER J, P, Q, R
5083 @ 40011:                  LINE   616 "regression-compile-tmp/imp918s.imp"
5084 @ 40049:                  DEF    J p1=V_0165 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
5085 @ 40062:                  DEF    P p1=V_0166 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
5086 @ 40075:                  DEF    Q p1=V_0167 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
5087 @ 40088:                  DEF    R p1=V_0168 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

   617           %CYCLE J=0, 1, NNAMES
5088 @ 40101:                  LINE   617 "regression-compile-tmp/imp918s.imp"
5089 @ 40139:                  PUSH   J
5090 @ 40142:                  PUSHI  #0x00000001
5091 @ 40147:                  PUSH   NNAMES
5092 @ 40150:                  PUSHI  #0x00000000
5093 @ 40155:                  FOR    L_0003

   618              ->FOUND %IF N=TAGS(J)
5094 @ 40158:                  LINE   618 "regression-compile-tmp/imp918s.imp"
5095 @ 40196:                  PUSH   N
5096 @ 40199:                  PUSH   TAGS
5097 @ 40202:                  PUSH   J
5098 @ 40205:                  ACCESS
5099 @ 40206:                  JUMPIF # L_0007
5100 @ 40210:                  JUMP   L_0169
5101 @ 40213:                  LOCATE L_0007

   619           %REPEAT;  PRINTSTRING(" ??")
5102 @ 40216:                  LINE   619 "regression-compile-tmp/imp918s.imp"
5103 @ 40254:                  REPEAT L_0003
5104 @ 40257:                  LOCATE L_0004
5105 @ 40260:                  LINE   619 "regression-compile-tmp/imp918s.imp"
5106 @ 40298:                  PUSH   PRINTSTRING
5107 @ 40301:                  PUSHS  " ??"
5108 @ 40306:                  ASSPAR
5109 @ 40307:                  CALL  

   620           K=K+3;  ->Label99
5110 @ 40308:                  LINE   620 "regression-compile-tmp/imp918s.imp"
5111 @ 40346:                  PUSH   K
5112 @ 40349:                  PUSH   K
5113 @ 40352:                  PUSHI  #0x00000003
5114 @ 40357:                  ADD   
5115 @ 40358:                  ASSVAL
5116 @ 40359:                  LINE   620 "regression-compile-tmp/imp918s.imp"
5117 @ 40397:                  JUMP   L_016a

   621  FOUND:   P=WORD(J);  R=LETT(P)
5118 @ 40400:                  LINE   621 "regression-compile-tmp/imp918s.imp"
5119 @ 40438:                  LABEL  L_0169
5120 @ 40441:                  LINE   621 "regression-compile-tmp/imp918s.imp"
5121 @ 40479:                  PUSH   P
5122 @ 40482:                  PUSH   WORD
5123 @ 40485:                  PUSH   J
5124 @ 40488:                  ACCESS
5125 @ 40489:                  ASSVAL
5126 @ 40490:                  LINE   621 "regression-compile-tmp/imp918s.imp"
5127 @ 40528:                  PUSH   R
5128 @ 40531:                  PUSH   LETT
5129 @ 40534:                  PUSH   P
5130 @ 40537:                  ACCESS
5131 @ 40538:                  ASSVAL

   622           %IF R#0 %THEN %START
5132 @ 40539:                  LINE   622 "regression-compile-tmp/imp918s.imp"
5133 @ 40577:                  PUSH   R
5134 @ 40580:                  PUSHI  #0x00000000
5135 @ 40585:                  JUMPIF = L_0004

   623              %CYCLE Q=1, 1, R
5136 @ 40589:                  LINE   623 "regression-compile-tmp/imp918s.imp"
5137 @ 40627:                  PUSH   Q
5138 @ 40630:                  PUSHI  #0x00000001
5139 @ 40635:                  PUSH   R
5140 @ 40638:                  PUSHI  #0x00000001
5141 @ 40643:                  FOR    L_0006

   624                 PRINT SYMBOL(LETT(P+Q))
5142 @ 40646:                  LINE   624 "regression-compile-tmp/imp918s.imp"
5143 @ 40684:                  PUSH   PRINTSYMBOL
5144 @ 40687:                  PUSH   LETT
5145 @ 40690:                  PUSH   P
5146 @ 40693:                  PUSH   Q
5147 @ 40696:                  ADD   
5148 @ 40697:                  ACCESS
5149 @ 40698:                  ASSPAR
5150 @ 40699:                  CALL  

   625              %REPEAT
5151 @ 40700:                  LINE   625 "regression-compile-tmp/imp918s.imp"
5152 @ 40738:                  REPEAT L_0006
5153 @ 40741:                  LOCATE L_0007

   626           %FINISH %ELSE PRINTSTRING("?")
5154 @ 40744:                  LINE   626 "regression-compile-tmp/imp918s.imp"
5155 @ 40782:                  GOTO   L_0003
5156 @ 40785:                  LOCATE L_0004
5157 @ 40788:                  PUSH   PRINTSTRING
5158 @ 40791:                  PUSHS  "?"
5159 @ 40794:                  ASSPAR
5160 @ 40795:                  CALL  
5161 @ 40796:                  LOCATE L_0003

   627           K=K+1+R
5162 @ 40799:                  LINE   627 "regression-compile-tmp/imp918s.imp"
5163 @ 40837:                  PUSH   K
5164 @ 40840:                  PUSH   K
5165 @ 40843:                  PUSHI  #0x00000001
5166 @ 40848:                  ADD   
5167 @ 40849:                  PUSH   R
5168 @ 40852:                  ADD   
5169 @ 40853:                  ASSVAL

   628  Label99: %END
5170 @ 40854:                  LINE   628 "regression-compile-tmp/imp918s.imp"
5171 @ 40892:                  LABEL  L_016a
5172 @ 40895:                  LINE   628 "regression-compile-tmp/imp918s.imp"
5173 @ 40933:               END    _lev0id0_PRINTUSE_PN {lev=3 --> 2}

   629  %ROUTINE USES(%INTEGER I)
5174 @ 40934:               LINE   629 "regression-compile-tmp/imp918s.imp"
5175 @ 40972:               DEF    USES (_lev0id0_PRINTUSE_USES) p1=V_015e 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
5176 @ 40988:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
5177 @ 40989:                     DEF    I p1=V_0164 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
5178 @ 41002:                  FINISH ) {lev=3}

   630  %SWITCH SW(0:18)
5179 @ 41003:                  LINE   630 "regression-compile-tmp/imp918s.imp"
5180 @ 41041:                  PUSHI  #0x00000000
5181 @ 41046:                  PUSHI  #0x00000012
5182 @ 41051:                  BOUNDS
5183 @ 41052:                  DEF    SW p1=V_0165 a/tf=6 b/format=0 c/ostate=0  type=0 (<type:0>) form=6 (switch) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   631  %INTEGER INF, J
5184 @ 41066:                  LINE   631 "regression-compile-tmp/imp918s.imp"
5185 @ 41104:                  DEF    INF p1=V_0166 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
5186 @ 41119:                  DEF    J p1=V_0167 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

   632           PRINTSTRING(" USE = ")
5187 @ 41132:                  LINE   632 "regression-compile-tmp/imp918s.imp"
5188 @ 41170:                  PUSH   PRINTSTRING
5189 @ 41173:                  PUSHS  " USE = "
5190 @ 41182:                  ASSPAR
5191 @ 41183:                  CALL  

   633           K=0;  J=GRUSE(I);  INF=GRINF(I)
5192 @ 41184:                  LINE   633 "regression-compile-tmp/imp918s.imp"
5193 @ 41222:                  PUSH   K
5194 @ 41225:                  PUSHI  #0x00000000
5195 @ 41230:                  ASSVAL
5196 @ 41231:                  LINE   633 "regression-compile-tmp/imp918s.imp"
5197 @ 41269:                  PUSH   J
5198 @ 41272:                  PUSH   GRUSE
5199 @ 41275:                  PUSH   I
5200 @ 41278:                  ACCESS
5201 @ 41279:                  ASSVAL
5202 @ 41280:                  LINE   633 "regression-compile-tmp/imp918s.imp"
5203 @ 41318:                  PUSH   INF
5204 @ 41321:                  PUSH   GRINF
5205 @ 41324:                  PUSH   I
5206 @ 41327:                  ACCESS
5207 @ 41328:                  ASSVAL

   634           ->SW(J)
5208 @ 41329:                  LINE   634 "regression-compile-tmp/imp918s.imp"
5209 @ 41367:                  PUSH   J
5210 @ 41370:                  SJUMP  357

   635  SW(0):   PRINTSTRING(" NOT KNOWN");  ->Label99
5211 @ 41373:                  LINE   635 "regression-compile-tmp/imp918s.imp"
5212 @ 41411:                  PUSHI  #0x00000000
5213 @ 41416:                  SLABEL 357
5214 @ 41419:                  LINE   635 "regression-compile-tmp/imp918s.imp"
5215 @ 41457:                  PUSH   PRINTSTRING
5216 @ 41460:                  PUSHS  " NOT KNOWN"
5217 @ 41472:                  ASSPAR
5218 @ 41473:                  CALL  
5219 @ 41474:                  LINE   635 "regression-compile-tmp/imp918s.imp"
5220 @ 41512:                  JUMP   L_0168

   636  SW(1):   PRINTSTRING(" I/RESULT ")
5221 @ 41515:                  LINE   636 "regression-compile-tmp/imp918s.imp"
5222 @ 41553:                  PUSHI  #0x00000001
5223 @ 41558:                  SLABEL 357
5224 @ 41561:                  LINE   636 "regression-compile-tmp/imp918s.imp"
5225 @ 41599:                  PUSH   PRINTSTRING
5226 @ 41602:                  PUSHS  " I/RESULT "
5227 @ 41614:                  ASSPAR
5228 @ 41615:                  CALL  

   637  Label1:       K=7;  WRITE(INF, 6);  ->Label99
5229 @ 41616:                  LINE   637 "regression-compile-tmp/imp918s.imp"
5230 @ 41654:                  LABEL  L_0169
5231 @ 41657:                  LINE   637 "regression-compile-tmp/imp918s.imp"
5232 @ 41695:                  PUSH   K
5233 @ 41698:                  PUSHI  #0x00000007
5234 @ 41703:                  ASSVAL
5235 @ 41704:                  LINE   637 "regression-compile-tmp/imp918s.imp"
5236 @ 41742:                  PUSH   WRITE
5237 @ 41745:                  PUSH   INF
5238 @ 41748:                  ASSPAR
5239 @ 41749:                  PUSHI  #0x00000006
5240 @ 41754:                  ASSPAR
5241 @ 41755:                  CALL  
5242 @ 41756:                  LINE   637 "regression-compile-tmp/imp918s.imp"
5243 @ 41794:                  JUMP   L_0168

   638  SW(2):   PRINTSTRING(" CONST = ");  ->Label1
5244 @ 41797:                  LINE   638 "regression-compile-tmp/imp918s.imp"
5245 @ 41835:                  PUSHI  #0x00000002
5246 @ 41840:                  SLABEL 357
5247 @ 41843:                  LINE   638 "regression-compile-tmp/imp918s.imp"
5248 @ 41881:                  PUSH   PRINTSTRING
5249 @ 41884:                  PUSHS  " CONST = "
5250 @ 41895:                  ASSPAR
5251 @ 41896:                  CALL  
5252 @ 41897:                  LINE   638 "regression-compile-tmp/imp918s.imp"
5253 @ 41935:                  JUMP   L_0169

   639  SW(3):   PRINTSTRING("  LOCAL   ")
5254 @ 41938:                  LINE   639 "regression-compile-tmp/imp918s.imp"
5255 @ 41976:                  PUSHI  #0x00000003
5256 @ 41981:                  SLABEL 357
5257 @ 41984:                  LINE   639 "regression-compile-tmp/imp918s.imp"
5258 @ 42022:                  PUSH   PRINTSTRING
5259 @ 42025:                  PUSHS  "  LOCAL   "
5260 @ 42037:                  ASSPAR
5261 @ 42038:                  CALL  

   640  Label2:       PN(INF);  ->Label99
5262 @ 42039:                  LINE   640 "regression-compile-tmp/imp918s.imp"
5263 @ 42077:                  LABEL  L_016a
5264 @ 42080:                  LINE   640 "regression-compile-tmp/imp918s.imp"
5265 @ 42118:                  PUSH   PN
5266 @ 42121:                  PUSH   INF
5267 @ 42124:                  ASSPAR
5268 @ 42125:                  CALL  
5269 @ 42126:                  LINE   640 "regression-compile-tmp/imp918s.imp"
5270 @ 42164:                  JUMP   L_0168

   641  SW(4):
5271 @ 42167:                  LINE   641 "regression-compile-tmp/imp918s.imp"
5272 @ 42205:                  PUSHI  #0x00000004
5273 @ 42210:                  SLABEL 357

   642  SW(5):
5274 @ 42213:                  LINE   642 "regression-compile-tmp/imp918s.imp"
5275 @ 42251:                  PUSHI  #0x00000005
5276 @ 42256:                  SLABEL 357

   643  SW(6):   PRINTSTRING(" ERROR  ");  ->Label1
5277 @ 42259:                  LINE   643 "regression-compile-tmp/imp918s.imp"
5278 @ 42297:                  PUSHI  #0x00000006
5279 @ 42302:                  SLABEL 357
5280 @ 42305:                  LINE   643 "regression-compile-tmp/imp918s.imp"
5281 @ 42343:                  PUSH   PRINTSTRING
5282 @ 42346:                  PUSHS  " ERROR  "
5283 @ 42356:                  ASSPAR
5284 @ 42357:                  CALL  
5285 @ 42358:                  LINE   643 "regression-compile-tmp/imp918s.imp"
5286 @ 42396:                  JUMP   L_0169

   644  SW(7):   PRINTSTRING(" ADDR OF  ");  ->Label2
5287 @ 42399:                  LINE   644 "regression-compile-tmp/imp918s.imp"
5288 @ 42437:                  PUSHI  #0x00000007
5289 @ 42442:                  SLABEL 357
5290 @ 42445:                  LINE   644 "regression-compile-tmp/imp918s.imp"
5291 @ 42483:                  PUSH   PRINTSTRING
5292 @ 42486:                  PUSHS  " ADDR OF  "
5293 @ 42498:                  ASSPAR
5294 @ 42499:                  CALL  
5295 @ 42500:                  LINE   644 "regression-compile-tmp/imp918s.imp"
5296 @ 42538:                  JUMP   L_016a

   645  SW(8):   PRINTSTRING(" BASE OF  ");  ->Label2
5297 @ 42541:                  LINE   645 "regression-compile-tmp/imp918s.imp"
5298 @ 42579:                  PUSHI  #0x00000008
5299 @ 42584:                  SLABEL 357
5300 @ 42587:                  LINE   645 "regression-compile-tmp/imp918s.imp"
5301 @ 42625:                  PUSH   PRINTSTRING
5302 @ 42628:                  PUSHS  " BASE OF  "
5303 @ 42640:                  ASSPAR
5304 @ 42641:                  CALL  
5305 @ 42642:                  LINE   645 "regression-compile-tmp/imp918s.imp"
5306 @ 42680:                  JUMP   L_016a

   646  SW(9):   PN(INF&X'FFFF')
5307 @ 42683:                  LINE   646 "regression-compile-tmp/imp918s.imp"
5308 @ 42721:                  PUSHI  #0x00000009
5309 @ 42726:                  SLABEL 357
5310 @ 42729:                  LINE   646 "regression-compile-tmp/imp918s.imp"
5311 @ 42767:                  PUSH   PN
5312 @ 42770:                  PUSH   INF
5313 @ 42773:                  PUSHI  #0x0000ffff
5314 @ 42778:                  AND   
5315 @ 42779:                  ASSPAR
5316 @ 42780:                  CALL  

   647           PRINTSTRING(" TIMES ");  WRITE(INF>>24, 2);  ->Label99
5317 @ 42781:                  LINE   647 "regression-compile-tmp/imp918s.imp"
5318 @ 42819:                  PUSH   PRINTSTRING
5319 @ 42822:                  PUSHS  " TIMES "
5320 @ 42831:                  ASSPAR
5321 @ 42832:                  CALL  
5322 @ 42833:                  LINE   647 "regression-compile-tmp/imp918s.imp"
5323 @ 42871:                  PUSH   WRITE
5324 @ 42874:                  PUSH   INF
5325 @ 42877:                  PUSHI  #0x00000018
5326 @ 42882:                  RSH   
5327 @ 42883:                  ASSPAR
5328 @ 42884:                  PUSHI  #0x00000002
5329 @ 42889:                  ASSPAR
5330 @ 42890:                  CALL  
5331 @ 42891:                  LINE   647 "regression-compile-tmp/imp918s.imp"
5332 @ 42929:                  JUMP   L_0168

   648  SW(10):  PRINTSTRING("DOPE V OF ");  ->Label2
5333 @ 42932:                  LINE   648 "regression-compile-tmp/imp918s.imp"
5334 @ 42970:                  PUSHI  #0x0000000a
5335 @ 42975:                  SLABEL 357
5336 @ 42978:                  LINE   648 "regression-compile-tmp/imp918s.imp"
5337 @ 43016:                  PUSH   PRINTSTRING
5338 @ 43019:                  PUSHS  "DOPE V OF "
5339 @ 43031:                  ASSPAR
5340 @ 43032:                  CALL  
5341 @ 43033:                  LINE   648 "regression-compile-tmp/imp918s.imp"
5342 @ 43071:                  JUMP   L_016a

   649  SW(11):  %IF INF>0 %THEN ->Label111
5343 @ 43074:                  LINE   649 "regression-compile-tmp/imp918s.imp"
5344 @ 43112:                  PUSHI  #0x0000000b
5345 @ 43117:                  SLABEL 357
5346 @ 43120:                  LINE   649 "regression-compile-tmp/imp918s.imp"
5347 @ 43158:                  PUSH   INF
5348 @ 43161:                  PUSHI  #0x00000000
5349 @ 43166:                  JUMPIF <= L_0004
5350 @ 43170:                  JUMP   L_016b
5351 @ 43173:                  LOCATE L_0004

   650           PRINTSTRING(" 4K FOR LAB ")
5352 @ 43176:                  LINE   650 "regression-compile-tmp/imp918s.imp"
5353 @ 43214:                  PUSH   PRINTSTRING
5354 @ 43217:                  PUSHS  " 4K FOR LAB "
5355 @ 43231:                  ASSPAR
5356 @ 43232:                  CALL  

   651           K=8;  WRITE(\INF, 6);  ->Label99
5357 @ 43233:                  LINE   651 "regression-compile-tmp/imp918s.imp"
5358 @ 43271:                  PUSH   K
5359 @ 43274:                  PUSHI  #0x00000008
5360 @ 43279:                  ASSVAL
5361 @ 43280:                  LINE   651 "regression-compile-tmp/imp918s.imp"
5362 @ 43318:                  PUSH   WRITE
5363 @ 43321:                  PUSH   INF
5364 @ 43324:                  NOT   
5365 @ 43325:                  ASSPAR
5366 @ 43326:                  PUSHI  #0x00000006
5367 @ 43331:                  ASSPAR
5368 @ 43332:                  CALL  
5369 @ 43333:                  LINE   651 "regression-compile-tmp/imp918s.imp"
5370 @ 43371:                  JUMP   L_0168

   652  Label111:     PRINTSTRING(" 4096 * ");  K=8;  WRITE(INF, 6);  ->Label99
5371 @ 43374:                  LINE   652 "regression-compile-tmp/imp918s.imp"
5372 @ 43412:                  LABEL  L_016b
5373 @ 43415:                  LINE   652 "regression-compile-tmp/imp918s.imp"
5374 @ 43453:                  PUSH   PRINTSTRING
5375 @ 43456:                  PUSHS  " 4096 * "
5376 @ 43466:                  ASSPAR
5377 @ 43467:                  CALL  
5378 @ 43468:                  LINE   652 "regression-compile-tmp/imp918s.imp"
5379 @ 43506:                  PUSH   K
5380 @ 43509:                  PUSHI  #0x00000008
5381 @ 43514:                  ASSVAL
5382 @ 43515:                  LINE   652 "regression-compile-tmp/imp918s.imp"
5383 @ 43553:                  PUSH   WRITE
5384 @ 43556:                  PUSH   INF
5385 @ 43559:                  ASSPAR
5386 @ 43560:                  PUSHI  #0x00000006
5387 @ 43565:                  ASSPAR
5388 @ 43566:                  CALL  
5389 @ 43567:                  LINE   652 "regression-compile-tmp/imp918s.imp"
5390 @ 43605:                  JUMP   L_0168

   653  SW(12):  PRINTSTRING(" BASE AT  ");  ->Label1
5391 @ 43608:                  LINE   653 "regression-compile-tmp/imp918s.imp"
5392 @ 43646:                  PUSHI  #0x0000000c
5393 @ 43651:                  SLABEL 357
5394 @ 43654:                  LINE   653 "regression-compile-tmp/imp918s.imp"
5395 @ 43692:                  PUSH   PRINTSTRING
5396 @ 43695:                  PUSHS  " BASE AT  "
5397 @ 43707:                  ASSPAR
5398 @ 43708:                  CALL  
5399 @ 43709:                  LINE   653 "regression-compile-tmp/imp918s.imp"
5400 @ 43747:                  JUMP   L_0169

   654  SW(13):  PRINTSTRING(" STR LEN  ");  ->Label1
5401 @ 43750:                  LINE   654 "regression-compile-tmp/imp918s.imp"
5402 @ 43788:                  PUSHI  #0x0000000d
5403 @ 43793:                  SLABEL 357
5404 @ 43796:                  LINE   654 "regression-compile-tmp/imp918s.imp"
5405 @ 43834:                  PUSH   PRINTSTRING
5406 @ 43837:                  PUSHS  " STR LEN  "
5407 @ 43849:                  ASSPAR
5408 @ 43850:                  CALL  
5409 @ 43851:                  LINE   654 "regression-compile-tmp/imp918s.imp"
5410 @ 43889:                  JUMP   L_0169

   655  SW(14):  PRINTSTRING(" CYCLE VAR ");  ->Label99
5411 @ 43892:                  LINE   655 "regression-compile-tmp/imp918s.imp"
5412 @ 43930:                  PUSHI  #0x0000000e
5413 @ 43935:                  SLABEL 357
5414 @ 43938:                  LINE   655 "regression-compile-tmp/imp918s.imp"
5415 @ 43976:                  PUSH   PRINTSTRING
5416 @ 43979:                  PUSHS  " CYCLE VAR "
5417 @ 43992:                  ASSPAR
5418 @ 43993:                  CALL  
5419 @ 43994:                  LINE   655 "regression-compile-tmp/imp918s.imp"
5420 @ 44032:                  JUMP   L_0168

   656  SW(15):  PRINTSTRING(" RT PARAM ");  ->Label99
5421 @ 44035:                  LINE   656 "regression-compile-tmp/imp918s.imp"
5422 @ 44073:                  PUSHI  #0x0000000f
5423 @ 44078:                  SLABEL 357
5424 @ 44081:                  LINE   656 "regression-compile-tmp/imp918s.imp"
5425 @ 44119:                  PUSH   PRINTSTRING
5426 @ 44122:                  PUSHS  " RT PARAM "
5427 @ 44134:                  ASSPAR
5428 @ 44135:                  CALL  
5429 @ 44136:                  LINE   656 "regression-compile-tmp/imp918s.imp"
5430 @ 44174:                  JUMP   L_0168

   657  SW(16):  PRINTSTRING(" RSLN PARM ");  ->Label1
5431 @ 44177:                  LINE   657 "regression-compile-tmp/imp918s.imp"
5432 @ 44215:                  PUSHI  #0x00000010
5433 @ 44220:                  SLABEL 357
5434 @ 44223:                  LINE   657 "regression-compile-tmp/imp918s.imp"
5435 @ 44261:                  PUSH   PRINTSTRING
5436 @ 44264:                  PUSHS  " RSLN PARM "
5437 @ 44277:                  ASSPAR
5438 @ 44278:                  CALL  
5439 @ 44279:                  LINE   657 "regression-compile-tmp/imp918s.imp"
5440 @ 44317:                  JUMP   L_0169

   658  SW(17):  PRINTSTRING(" ADDR SST ");  ->Label1
5441 @ 44320:                  LINE   658 "regression-compile-tmp/imp918s.imp"
5442 @ 44358:                  PUSHI  #0x00000011
5443 @ 44363:                  SLABEL 357
5444 @ 44366:                  LINE   658 "regression-compile-tmp/imp918s.imp"
5445 @ 44404:                  PUSH   PRINTSTRING
5446 @ 44407:                  PUSHS  " ADDR SST "
5447 @ 44419:                  ASSPAR
5448 @ 44420:                  CALL  
5449 @ 44421:                  LINE   658 "regression-compile-tmp/imp918s.imp"
5450 @ 44459:                  JUMP   L_0169

   659  SW(18):  PRINTSTRING(" PERMBASE ");  ->Label99
5451 @ 44462:                  LINE   659 "regression-compile-tmp/imp918s.imp"
5452 @ 44500:                  PUSHI  #0x00000012
5453 @ 44505:                  SLABEL 357
5454 @ 44508:                  LINE   659 "regression-compile-tmp/imp918s.imp"
5455 @ 44546:                  PUSH   PRINTSTRING
5456 @ 44549:                  PUSHS  " PERMBASE "
5457 @ 44561:                  ASSPAR
5458 @ 44562:                  CALL  
5459 @ 44563:                  LINE   659 "regression-compile-tmp/imp918s.imp"
5460 @ 44601:                  JUMP   L_0168

   660  Label99: %END
5461 @ 44604:                  LINE   660 "regression-compile-tmp/imp918s.imp"
5462 @ 44642:                  LABEL  L_0168
5463 @ 44645:                  LINE   660 "regression-compile-tmp/imp918s.imp"
5464 @ 44683:               END    _lev0id0_PRINTUSE_USES {lev=3 --> 2}

   661  %END
   662  
   663  
5465 @ 44684:               LINE   661 "regression-compile-tmp/imp918s.imp"
5466 @ 44722:            END    _lev0id0_PRINTUSE {lev=2 --> 1}

   664           %ROUTINE MESSAGE(%INTEGER N)
   665  !***********************************************************************
   666  !*       OUTPUTS AN ERROR MESSAGE STORED IN A COMPRESSED FORMAT        *
   667  !***********************************************************************
5467 @ 44723:            LINE   664 "regression-compile-tmp/imp918s.imp"
5468 @ 44761:            DEF    MESSAGE (_lev0id0_MESSAGE) p1=V_0155 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
5469 @ 44780:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
5470 @ 44781:                  DEF    N p1=V_015b 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
5471 @ 44794:               FINISH ) {lev=2}

   668           %CONSTBYTEINTEGERARRAY WORD(0: 330)=0,%C
   669              1,   1,   2,   3,   0,   2,   4,   5,
   670              7,   8,   4,   9,  10,  11,   7,   5,
   671              9,   4,  12,   0,   6,   9,   4,   7,
   672              8,   7,  10,   7,   8,   0,   8,  13,
   673             14,  11,  16,   9,  13,  14,  11,  16,
   674             10,  13,  14,  11,  16,  11,   4,  11,
   675              7,   0,  13,   1,  18,   0,   0,  14,
   676              2,   3,  20,   0,  15,  18,  20,   0,
   677              0,  16,  10,  11,   7,   0,  17,  11,
   678             21,  10,   0,  18,   9,  23,  12,   0,
   679             19,  24,  25,  26,  14,  20,   9,  10,
   680             27,  28,  22,  30,  14,  11,  16,  23,
   681             21,  10,  27,  28,  24,  31,  27,  32,
   682             28,  25,  34,  35,  11,  32,  26,  37,
   683             38,  24,  39,  28,  21,  40,  18,   0,
   684             29,  41,  11,  42,   0,  30,  44,  45,
   685             26,  46,  31,  48,  45,  26,  46,  34,
   686              2,   3,  49,   0,  35,   2,   3,  21,
   687             49,  36,  50,  37,  25,   0,  39,  31,
   688             52,   0,   0,  40,  23,  53,   0,   0,
   689             42,  55,  35,  27,  28,  43,  56,  57,
   690             45,   0,  44,  50,  58,   0,   0,  45,
   691             24,  25,  26,  58,  47,  50,  59,   0,
   692              0,  48,  60,  61,  27,  38,  51,  62,
   693              2,   3,   0,  52,   1,  18,  63,  62,
   694             53,  62,  18,   0,   0,  54,  64,  45,
   695             26,  46,  57,  65,  18,   0,   0,  62,
   696             11,  66,  10,   0,  64,  67,  18,   0,
   697              0,  65,  67,  11,  27,  66,  66,  50,
   698             69,  70,   0,  67,  11,  69,  10,   0,
   699             69,  67,  45,  26,  46,  70,  50,  55,
   700             23,   0,  71,  35,  27,  55,  28,  72,
   701             50,  55,  72,   0,  73,  74,  45,  26,
   702             46,  74,  74,  24,  66,   0,  81,  50,
   703             76,   0,   0,  82,  41,  11,  78,  10,
   704             83,  80,  76,   0,   0,  84,  50,  69,
   705             70,   0,  85,  81,   0,   0,   0,  98,
   706             84,   0,   0,   0,  99,  84,   0,   0,
   707              0, 103,  87,   2,  88,   0, 104,   2,
   708              3,  87,   0, 106,  55,  58,   2,  88,
   709            108,  89,  61,  27,  38, 127,  90,   0,
   710              0,   0
5472 @ 44795:               LINE   668 "regression-compile-tmp/imp918s.imp"
5473 @ 44833:               PUSHI  #0x00000000
5474 @ 44838:               PUSHI  #0x0000014a
5475 @ 44843:               BOUNDS
5476 @ 44844:               DEF    WORD p1=V_015c 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
5477 @ 44860:               PUSHI  #0x00000000
5478 @ 44865:               INIT   1
5479 @ 44868:               PUSHI  #0x00000001
5480 @ 44873:               INIT   1
5481 @ 44876:               PUSHI  #0x00000001
5482 @ 44881:               INIT   1
5483 @ 44884:               PUSHI  #0x00000002
5484 @ 44889:               INIT   1
5485 @ 44892:               PUSHI  #0x00000003
5486 @ 44897:               INIT   1
5487 @ 44900:               PUSHI  #0x00000000
5488 @ 44905:               INIT   1
5489 @ 44908:               PUSHI  #0x00000002
5490 @ 44913:               INIT   1
5491 @ 44916:               PUSHI  #0x00000004
5492 @ 44921:               INIT   1
5493 @ 44924:               PUSHI  #0x00000005
5494 @ 44929:               INIT   1
5495 @ 44932:               PUSHI  #0x00000007
5496 @ 44937:               INIT   1
5497 @ 44940:               PUSHI  #0x00000008
5498 @ 44945:               INIT   1
5499 @ 44948:               PUSHI  #0x00000004
5500 @ 44953:               INIT   1
5501 @ 44956:               PUSHI  #0x00000009
5502 @ 44961:               INIT   1
5503 @ 44964:               PUSHI  #0x0000000a
5504 @ 44969:               INIT   1
5505 @ 44972:               PUSHI  #0x0000000b
5506 @ 44977:               INIT   1
5507 @ 44980:               PUSHI  #0x00000007
5508 @ 44985:               INIT   1
5509 @ 44988:               PUSHI  #0x00000005
5510 @ 44993:               INIT   1
5511 @ 44996:               PUSHI  #0x00000009
5512 @ 45001:               INIT   1
5513 @ 45004:               PUSHI  #0x00000004
5514 @ 45009:               INIT   1
5515 @ 45012:               PUSHI  #0x0000000c
5516 @ 45017:               INIT   1
5517 @ 45020:               PUSHI  #0x00000000
5518 @ 45025:               INIT   1
5519 @ 45028:               PUSHI  #0x00000006
5520 @ 45033:               INIT   1
5521 @ 45036:               PUSHI  #0x00000009
5522 @ 45041:               INIT   1
5523 @ 45044:               PUSHI  #0x00000004
5524 @ 45049:               INIT   1
5525 @ 45052:               PUSHI  #0x00000007
5526 @ 45057:               INIT   1
5527 @ 45060:               PUSHI  #0x00000008
5528 @ 45065:               INIT   1
5529 @ 45068:               PUSHI  #0x00000007
5530 @ 45073:               INIT   1
5531 @ 45076:               PUSHI  #0x0000000a
5532 @ 45081:               INIT   1
5533 @ 45084:               PUSHI  #0x00000007
5534 @ 45089:               INIT   1
5535 @ 45092:               PUSHI  #0x00000008
5536 @ 45097:               INIT   1
5537 @ 45100:               PUSHI  #0x00000000
5538 @ 45105:               INIT   1
5539 @ 45108:               PUSHI  #0x00000008
5540 @ 45113:               INIT   1
5541 @ 45116:               PUSHI  #0x0000000d
5542 @ 45121:               INIT   1
5543 @ 45124:               PUSHI  #0x0000000e
5544 @ 45129:               INIT   1
5545 @ 45132:               PUSHI  #0x0000000b
5546 @ 45137:               INIT   1
5547 @ 45140:               PUSHI  #0x00000010
5548 @ 45145:               INIT   1
5549 @ 45148:               PUSHI  #0x00000009
5550 @ 45153:               INIT   1
5551 @ 45156:               PUSHI  #0x0000000d
5552 @ 45161:               INIT   1
5553 @ 45164:               PUSHI  #0x0000000e
5554 @ 45169:               INIT   1
5555 @ 45172:               PUSHI  #0x0000000b
5556 @ 45177:               INIT   1
5557 @ 45180:               PUSHI  #0x00000010
5558 @ 45185:               INIT   1
5559 @ 45188:               PUSHI  #0x0000000a
5560 @ 45193:               INIT   1
5561 @ 45196:               PUSHI  #0x0000000d
5562 @ 45201:               INIT   1
5563 @ 45204:               PUSHI  #0x0000000e
5564 @ 45209:               INIT   1
5565 @ 45212:               PUSHI  #0x0000000b
5566 @ 45217:               INIT   1
5567 @ 45220:               PUSHI  #0x00000010
5568 @ 45225:               INIT   1
5569 @ 45228:               PUSHI  #0x0000000b
5570 @ 45233:               INIT   1
5571 @ 45236:               PUSHI  #0x00000004
5572 @ 45241:               INIT   1
5573 @ 45244:               PUSHI  #0x0000000b
5574 @ 45249:               INIT   1
5575 @ 45252:               PUSHI  #0x00000007
5576 @ 45257:               INIT   1
5577 @ 45260:               PUSHI  #0x00000000
5578 @ 45265:               INIT   1
5579 @ 45268:               PUSHI  #0x0000000d
5580 @ 45273:               INIT   1
5581 @ 45276:               PUSHI  #0x00000001
5582 @ 45281:               INIT   1
5583 @ 45284:               PUSHI  #0x00000012
5584 @ 45289:               INIT   1
5585 @ 45292:               PUSHI  #0x00000000
5586 @ 45297:               INIT   1
5587 @ 45300:               PUSHI  #0x00000000
5588 @ 45305:               INIT   1
5589 @ 45308:               PUSHI  #0x0000000e
5590 @ 45313:               INIT   1
5591 @ 45316:               PUSHI  #0x00000002
5592 @ 45321:               INIT   1
5593 @ 45324:               PUSHI  #0x00000003
5594 @ 45329:               INIT   1
5595 @ 45332:               PUSHI  #0x00000014
5596 @ 45337:               INIT   1
5597 @ 45340:               PUSHI  #0x00000000
5598 @ 45345:               INIT   1
5599 @ 45348:               PUSHI  #0x0000000f
5600 @ 45353:               INIT   1
5601 @ 45356:               PUSHI  #0x00000012
5602 @ 45361:               INIT   1
5603 @ 45364:               PUSHI  #0x00000014
5604 @ 45369:               INIT   1
5605 @ 45372:               PUSHI  #0x00000000
5606 @ 45377:               INIT   1
5607 @ 45380:               PUSHI  #0x00000000
5608 @ 45385:               INIT   1
5609 @ 45388:               PUSHI  #0x00000010
5610 @ 45393:               INIT   1
5611 @ 45396:               PUSHI  #0x0000000a
5612 @ 45401:               INIT   1
5613 @ 45404:               PUSHI  #0x0000000b
5614 @ 45409:               INIT   1
5615 @ 45412:               PUSHI  #0x00000007
5616 @ 45417:               INIT   1
5617 @ 45420:               PUSHI  #0x00000000
5618 @ 45425:               INIT   1
5619 @ 45428:               PUSHI  #0x00000011
5620 @ 45433:               INIT   1
5621 @ 45436:               PUSHI  #0x0000000b
5622 @ 45441:               INIT   1
5623 @ 45444:               PUSHI  #0x00000015
5624 @ 45449:               INIT   1
5625 @ 45452:               PUSHI  #0x0000000a
5626 @ 45457:               INIT   1
5627 @ 45460:               PUSHI  #0x00000000
5628 @ 45465:               INIT   1
5629 @ 45468:               PUSHI  #0x00000012
5630 @ 45473:               INIT   1
5631 @ 45476:               PUSHI  #0x00000009
5632 @ 45481:               INIT   1
5633 @ 45484:               PUSHI  #0x00000017
5634 @ 45489:               INIT   1
5635 @ 45492:               PUSHI  #0x0000000c
5636 @ 45497:               INIT   1
5637 @ 45500:               PUSHI  #0x00000000
5638 @ 45505:               INIT   1
5639 @ 45508:               PUSHI  #0x00000013
5640 @ 45513:               INIT   1
5641 @ 45516:               PUSHI  #0x00000018
5642 @ 45521:               INIT   1
5643 @ 45524:               PUSHI  #0x00000019
5644 @ 45529:               INIT   1
5645 @ 45532:               PUSHI  #0x0000001a
5646 @ 45537:               INIT   1
5647 @ 45540:               PUSHI  #0x0000000e
5648 @ 45545:               INIT   1
5649 @ 45548:               PUSHI  #0x00000014
5650 @ 45553:               INIT   1
5651 @ 45556:               PUSHI  #0x00000009
5652 @ 45561:               INIT   1
5653 @ 45564:               PUSHI  #0x0000000a
5654 @ 45569:               INIT   1
5655 @ 45572:               PUSHI  #0x0000001b
5656 @ 45577:               INIT   1
5657 @ 45580:               PUSHI  #0x0000001c
5658 @ 45585:               INIT   1
5659 @ 45588:               PUSHI  #0x00000016
5660 @ 45593:               INIT   1
5661 @ 45596:               PUSHI  #0x0000001e
5662 @ 45601:               INIT   1
5663 @ 45604:               PUSHI  #0x0000000e
5664 @ 45609:               INIT   1
5665 @ 45612:               PUSHI  #0x0000000b
5666 @ 45617:               INIT   1
5667 @ 45620:               PUSHI  #0x00000010
5668 @ 45625:               INIT   1
5669 @ 45628:               PUSHI  #0x00000017
5670 @ 45633:               INIT   1
5671 @ 45636:               PUSHI  #0x00000015
5672 @ 45641:               INIT   1
5673 @ 45644:               PUSHI  #0x0000000a
5674 @ 45649:               INIT   1
5675 @ 45652:               PUSHI  #0x0000001b
5676 @ 45657:               INIT   1
5677 @ 45660:               PUSHI  #0x0000001c
5678 @ 45665:               INIT   1
5679 @ 45668:               PUSHI  #0x00000018
5680 @ 45673:               INIT   1
5681 @ 45676:               PUSHI  #0x0000001f
5682 @ 45681:               INIT   1
5683 @ 45684:               PUSHI  #0x0000001b
5684 @ 45689:               INIT   1
5685 @ 45692:               PUSHI  #0x00000020
5686 @ 45697:               INIT   1
5687 @ 45700:               PUSHI  #0x0000001c
5688 @ 45705:               INIT   1
5689 @ 45708:               PUSHI  #0x00000019
5690 @ 45713:               INIT   1
5691 @ 45716:               PUSHI  #0x00000022
5692 @ 45721:               INIT   1
5693 @ 45724:               PUSHI  #0x00000023
5694 @ 45729:               INIT   1
5695 @ 45732:               PUSHI  #0x0000000b
5696 @ 45737:               INIT   1
5697 @ 45740:               PUSHI  #0x00000020
5698 @ 45745:               INIT   1
5699 @ 45748:               PUSHI  #0x0000001a
5700 @ 45753:               INIT   1
5701 @ 45756:               PUSHI  #0x00000025
5702 @ 45761:               INIT   1
5703 @ 45764:               PUSHI  #0x00000026
5704 @ 45769:               INIT   1
5705 @ 45772:               PUSHI  #0x00000018
5706 @ 45777:               INIT   1
5707 @ 45780:               PUSHI  #0x00000027
5708 @ 45785:               INIT   1
5709 @ 45788:               PUSHI  #0x0000001c
5710 @ 45793:               INIT   1
5711 @ 45796:               PUSHI  #0x00000015
5712 @ 45801:               INIT   1
5713 @ 45804:               PUSHI  #0x00000028
5714 @ 45809:               INIT   1
5715 @ 45812:               PUSHI  #0x00000012
5716 @ 45817:               INIT   1
5717 @ 45820:               PUSHI  #0x00000000
5718 @ 45825:               INIT   1
5719 @ 45828:               PUSHI  #0x0000001d
5720 @ 45833:               INIT   1
5721 @ 45836:               PUSHI  #0x00000029
5722 @ 45841:               INIT   1
5723 @ 45844:               PUSHI  #0x0000000b
5724 @ 45849:               INIT   1
5725 @ 45852:               PUSHI  #0x0000002a
5726 @ 45857:               INIT   1
5727 @ 45860:               PUSHI  #0x00000000
5728 @ 45865:               INIT   1
5729 @ 45868:               PUSHI  #0x0000001e
5730 @ 45873:               INIT   1
5731 @ 45876:               PUSHI  #0x0000002c
5732 @ 45881:               INIT   1
5733 @ 45884:               PUSHI  #0x0000002d
5734 @ 45889:               INIT   1
5735 @ 45892:               PUSHI  #0x0000001a
5736 @ 45897:               INIT   1
5737 @ 45900:               PUSHI  #0x0000002e
5738 @ 45905:               INIT   1
5739 @ 45908:               PUSHI  #0x0000001f
5740 @ 45913:               INIT   1
5741 @ 45916:               PUSHI  #0x00000030
5742 @ 45921:               INIT   1
5743 @ 45924:               PUSHI  #0x0000002d
5744 @ 45929:               INIT   1
5745 @ 45932:               PUSHI  #0x0000001a
5746 @ 45937:               INIT   1
5747 @ 45940:               PUSHI  #0x0000002e
5748 @ 45945:               INIT   1
5749 @ 45948:               PUSHI  #0x00000022
5750 @ 45953:               INIT   1
5751 @ 45956:               PUSHI  #0x00000002
5752 @ 45961:               INIT   1
5753 @ 45964:               PUSHI  #0x00000003
5754 @ 45969:               INIT   1
5755 @ 45972:               PUSHI  #0x00000031
5756 @ 45977:               INIT   1
5757 @ 45980:               PUSHI  #0x00000000
5758 @ 45985:               INIT   1
5759 @ 45988:               PUSHI  #0x00000023
5760 @ 45993:               INIT   1
5761 @ 45996:               PUSHI  #0x00000002
5762 @ 46001:               INIT   1
5763 @ 46004:               PUSHI  #0x00000003
5764 @ 46009:               INIT   1
5765 @ 46012:               PUSHI  #0x00000015
5766 @ 46017:               INIT   1
5767 @ 46020:               PUSHI  #0x00000031
5768 @ 46025:               INIT   1
5769 @ 46028:               PUSHI  #0x00000024
5770 @ 46033:               INIT   1
5771 @ 46036:               PUSHI  #0x00000032
5772 @ 46041:               INIT   1
5773 @ 46044:               PUSHI  #0x00000025
5774 @ 46049:               INIT   1
5775 @ 46052:               PUSHI  #0x00000019
5776 @ 46057:               INIT   1
5777 @ 46060:               PUSHI  #0x00000000
5778 @ 46065:               INIT   1
5779 @ 46068:               PUSHI  #0x00000027
5780 @ 46073:               INIT   1
5781 @ 46076:               PUSHI  #0x0000001f
5782 @ 46081:               INIT   1
5783 @ 46084:               PUSHI  #0x00000034
5784 @ 46089:               INIT   1
5785 @ 46092:               PUSHI  #0x00000000
5786 @ 46097:               INIT   1
5787 @ 46100:               PUSHI  #0x00000000
5788 @ 46105:               INIT   1
5789 @ 46108:               PUSHI  #0x00000028
5790 @ 46113:               INIT   1
5791 @ 46116:               PUSHI  #0x00000017
5792 @ 46121:               INIT   1
5793 @ 46124:               PUSHI  #0x00000035
5794 @ 46129:               INIT   1
5795 @ 46132:               PUSHI  #0x00000000
5796 @ 46137:               INIT   1
5797 @ 46140:               PUSHI  #0x00000000
5798 @ 46145:               INIT   1
5799 @ 46148:               PUSHI  #0x0000002a
5800 @ 46153:               INIT   1
5801 @ 46156:               PUSHI  #0x00000037
5802 @ 46161:               INIT   1
5803 @ 46164:               PUSHI  #0x00000023
5804 @ 46169:               INIT   1
5805 @ 46172:               PUSHI  #0x0000001b
5806 @ 46177:               INIT   1
5807 @ 46180:               PUSHI  #0x0000001c
5808 @ 46185:               INIT   1
5809 @ 46188:               PUSHI  #0x0000002b
5810 @ 46193:               INIT   1
5811 @ 46196:               PUSHI  #0x00000038
5812 @ 46201:               INIT   1
5813 @ 46204:               PUSHI  #0x00000039
5814 @ 46209:               INIT   1
5815 @ 46212:               PUSHI  #0x0000002d
5816 @ 46217:               INIT   1
5817 @ 46220:               PUSHI  #0x00000000
5818 @ 46225:               INIT   1
5819 @ 46228:               PUSHI  #0x0000002c
5820 @ 46233:               INIT   1
5821 @ 46236:               PUSHI  #0x00000032
5822 @ 46241:               INIT   1
5823 @ 46244:               PUSHI  #0x0000003a
5824 @ 46249:               INIT   1
5825 @ 46252:               PUSHI  #0x00000000
5826 @ 46257:               INIT   1
5827 @ 46260:               PUSHI  #0x00000000
5828 @ 46265:               INIT   1
5829 @ 46268:               PUSHI  #0x0000002d
5830 @ 46273:               INIT   1
5831 @ 46276:               PUSHI  #0x00000018
5832 @ 46281:               INIT   1
5833 @ 46284:               PUSHI  #0x00000019
5834 @ 46289:               INIT   1
5835 @ 46292:               PUSHI  #0x0000001a
5836 @ 46297:               INIT   1
5837 @ 46300:               PUSHI  #0x0000003a
5838 @ 46305:               INIT   1
5839 @ 46308:               PUSHI  #0x0000002f
5840 @ 46313:               INIT   1
5841 @ 46316:               PUSHI  #0x00000032
5842 @ 46321:               INIT   1
5843 @ 46324:               PUSHI  #0x0000003b
5844 @ 46329:               INIT   1
5845 @ 46332:               PUSHI  #0x00000000
5846 @ 46337:               INIT   1
5847 @ 46340:               PUSHI  #0x00000000
5848 @ 46345:               INIT   1
5849 @ 46348:               PUSHI  #0x00000030
5850 @ 46353:               INIT   1
5851 @ 46356:               PUSHI  #0x0000003c
5852 @ 46361:               INIT   1
5853 @ 46364:               PUSHI  #0x0000003d
5854 @ 46369:               INIT   1
5855 @ 46372:               PUSHI  #0x0000001b
5856 @ 46377:               INIT   1
5857 @ 46380:               PUSHI  #0x00000026
5858 @ 46385:               INIT   1
5859 @ 46388:               PUSHI  #0x00000033
5860 @ 46393:               INIT   1
5861 @ 46396:               PUSHI  #0x0000003e
5862 @ 46401:               INIT   1
5863 @ 46404:               PUSHI  #0x00000002
5864 @ 46409:               INIT   1
5865 @ 46412:               PUSHI  #0x00000003
5866 @ 46417:               INIT   1
5867 @ 46420:               PUSHI  #0x00000000
5868 @ 46425:               INIT   1
5869 @ 46428:               PUSHI  #0x00000034
5870 @ 46433:               INIT   1
5871 @ 46436:               PUSHI  #0x00000001
5872 @ 46441:               INIT   1
5873 @ 46444:               PUSHI  #0x00000012
5874 @ 46449:               INIT   1
5875 @ 46452:               PUSHI  #0x0000003f
5876 @ 46457:               INIT   1
5877 @ 46460:               PUSHI  #0x0000003e
5878 @ 46465:               INIT   1
5879 @ 46468:               PUSHI  #0x00000035
5880 @ 46473:               INIT   1
5881 @ 46476:               PUSHI  #0x0000003e
5882 @ 46481:               INIT   1
5883 @ 46484:               PUSHI  #0x00000012
5884 @ 46489:               INIT   1
5885 @ 46492:               PUSHI  #0x00000000
5886 @ 46497:               INIT   1
5887 @ 46500:               PUSHI  #0x00000000
5888 @ 46505:               INIT   1
5889 @ 46508:               PUSHI  #0x00000036
5890 @ 46513:               INIT   1
5891 @ 46516:               PUSHI  #0x00000040
5892 @ 46521:               INIT   1
5893 @ 46524:               PUSHI  #0x0000002d
5894 @ 46529:               INIT   1
5895 @ 46532:               PUSHI  #0x0000001a
5896 @ 46537:               INIT   1
5897 @ 46540:               PUSHI  #0x0000002e
5898 @ 46545:               INIT   1
5899 @ 46548:               PUSHI  #0x00000039
5900 @ 46553:               INIT   1
5901 @ 46556:               PUSHI  #0x00000041
5902 @ 46561:               INIT   1
5903 @ 46564:               PUSHI  #0x00000012
5904 @ 46569:               INIT   1
5905 @ 46572:               PUSHI  #0x00000000
5906 @ 46577:               INIT   1
5907 @ 46580:               PUSHI  #0x00000000
5908 @ 46585:               INIT   1
5909 @ 46588:               PUSHI  #0x0000003e
5910 @ 46593:               INIT   1
5911 @ 46596:               PUSHI  #0x0000000b
5912 @ 46601:               INIT   1
5913 @ 46604:               PUSHI  #0x00000042
5914 @ 46609:               INIT   1
5915 @ 46612:               PUSHI  #0x0000000a
5916 @ 46617:               INIT   1
5917 @ 46620:               PUSHI  #0x00000000
5918 @ 46625:               INIT   1
5919 @ 46628:               PUSHI  #0x00000040
5920 @ 46633:               INIT   1
5921 @ 46636:               PUSHI  #0x00000043
5922 @ 46641:               INIT   1
5923 @ 46644:               PUSHI  #0x00000012
5924 @ 46649:               INIT   1
5925 @ 46652:               PUSHI  #0x00000000
5926 @ 46657:               INIT   1
5927 @ 46660:               PUSHI  #0x00000000
5928 @ 46665:               INIT   1
5929 @ 46668:               PUSHI  #0x00000041
5930 @ 46673:               INIT   1
5931 @ 46676:               PUSHI  #0x00000043
5932 @ 46681:               INIT   1
5933 @ 46684:               PUSHI  #0x0000000b
5934 @ 46689:               INIT   1
5935 @ 46692:               PUSHI  #0x0000001b
5936 @ 46697:               INIT   1
5937 @ 46700:               PUSHI  #0x00000042
5938 @ 46705:               INIT   1
5939 @ 46708:               PUSHI  #0x00000042
5940 @ 46713:               INIT   1
5941 @ 46716:               PUSHI  #0x00000032
5942 @ 46721:               INIT   1
5943 @ 46724:               PUSHI  #0x00000045
5944 @ 46729:               INIT   1
5945 @ 46732:               PUSHI  #0x00000046
5946 @ 46737:               INIT   1
5947 @ 46740:               PUSHI  #0x00000000
5948 @ 46745:               INIT   1
5949 @ 46748:               PUSHI  #0x00000043
5950 @ 46753:               INIT   1
5951 @ 46756:               PUSHI  #0x0000000b
5952 @ 46761:               INIT   1
5953 @ 46764:               PUSHI  #0x00000045
5954 @ 46769:               INIT   1
5955 @ 46772:               PUSHI  #0x0000000a
5956 @ 46777:               INIT   1
5957 @ 46780:               PUSHI  #0x00000000
5958 @ 46785:               INIT   1
5959 @ 46788:               PUSHI  #0x00000045
5960 @ 46793:               INIT   1
5961 @ 46796:               PUSHI  #0x00000043
5962 @ 46801:               INIT   1
5963 @ 46804:               PUSHI  #0x0000002d
5964 @ 46809:               INIT   1
5965 @ 46812:               PUSHI  #0x0000001a
5966 @ 46817:               INIT   1
5967 @ 46820:               PUSHI  #0x0000002e
5968 @ 46825:               INIT   1
5969 @ 46828:               PUSHI  #0x00000046
5970 @ 46833:               INIT   1
5971 @ 46836:               PUSHI  #0x00000032
5972 @ 46841:               INIT   1
5973 @ 46844:               PUSHI  #0x00000037
5974 @ 46849:               INIT   1
5975 @ 46852:               PUSHI  #0x00000017
5976 @ 46857:               INIT   1
5977 @ 46860:               PUSHI  #0x00000000
5978 @ 46865:               INIT   1
5979 @ 46868:               PUSHI  #0x00000047
5980 @ 46873:               INIT   1
5981 @ 46876:               PUSHI  #0x00000023
5982 @ 46881:               INIT   1
5983 @ 46884:               PUSHI  #0x0000001b
5984 @ 46889:               INIT   1
5985 @ 46892:               PUSHI  #0x00000037
5986 @ 46897:               INIT   1
5987 @ 46900:               PUSHI  #0x0000001c
5988 @ 46905:               INIT   1
5989 @ 46908:               PUSHI  #0x00000048
5990 @ 46913:               INIT   1
5991 @ 46916:               PUSHI  #0x00000032
5992 @ 46921:               INIT   1
5993 @ 46924:               PUSHI  #0x00000037
5994 @ 46929:               INIT   1
5995 @ 46932:               PUSHI  #0x00000048
5996 @ 46937:               INIT   1
5997 @ 46940:               PUSHI  #0x00000000
5998 @ 46945:               INIT   1
5999 @ 46948:               PUSHI  #0x00000049
6000 @ 46953:               INIT   1
6001 @ 46956:               PUSHI  #0x0000004a
6002 @ 46961:               INIT   1
6003 @ 46964:               PUSHI  #0x0000002d
6004 @ 46969:               INIT   1
6005 @ 46972:               PUSHI  #0x0000001a
6006 @ 46977:               INIT   1
6007 @ 46980:               PUSHI  #0x0000002e
6008 @ 46985:               INIT   1
6009 @ 46988:               PUSHI  #0x0000004a
6010 @ 46993:               INIT   1
6011 @ 46996:               PUSHI  #0x0000004a
6012 @ 47001:               INIT   1
6013 @ 47004:               PUSHI  #0x00000018
6014 @ 47009:               INIT   1
6015 @ 47012:               PUSHI  #0x00000042
6016 @ 47017:               INIT   1
6017 @ 47020:               PUSHI  #0x00000000
6018 @ 47025:               INIT   1
6019 @ 47028:               PUSHI  #0x00000051
6020 @ 47033:               INIT   1
6021 @ 47036:               PUSHI  #0x00000032
6022 @ 47041:               INIT   1
6023 @ 47044:               PUSHI  #0x0000004c
6024 @ 47049:               INIT   1
6025 @ 47052:               PUSHI  #0x00000000
6026 @ 47057:               INIT   1
6027 @ 47060:               PUSHI  #0x00000000
6028 @ 47065:               INIT   1
6029 @ 47068:               PUSHI  #0x00000052
6030 @ 47073:               INIT   1
6031 @ 47076:               PUSHI  #0x00000029
6032 @ 47081:               INIT   1
6033 @ 47084:               PUSHI  #0x0000000b
6034 @ 47089:               INIT   1
6035 @ 47092:               PUSHI  #0x0000004e
6036 @ 47097:               INIT   1
6037 @ 47100:               PUSHI  #0x0000000a
6038 @ 47105:               INIT   1
6039 @ 47108:               PUSHI  #0x00000053
6040 @ 47113:               INIT   1
6041 @ 47116:               PUSHI  #0x00000050
6042 @ 47121:               INIT   1
6043 @ 47124:               PUSHI  #0x0000004c
6044 @ 47129:               INIT   1
6045 @ 47132:               PUSHI  #0x00000000
6046 @ 47137:               INIT   1
6047 @ 47140:               PUSHI  #0x00000000
6048 @ 47145:               INIT   1
6049 @ 47148:               PUSHI  #0x00000054
6050 @ 47153:               INIT   1
6051 @ 47156:               PUSHI  #0x00000032
6052 @ 47161:               INIT   1
6053 @ 47164:               PUSHI  #0x00000045
6054 @ 47169:               INIT   1
6055 @ 47172:               PUSHI  #0x00000046
6056 @ 47177:               INIT   1
6057 @ 47180:               PUSHI  #0x00000000
6058 @ 47185:               INIT   1
6059 @ 47188:               PUSHI  #0x00000055
6060 @ 47193:               INIT   1
6061 @ 47196:               PUSHI  #0x00000051
6062 @ 47201:               INIT   1
6063 @ 47204:               PUSHI  #0x00000000
6064 @ 47209:               INIT   1
6065 @ 47212:               PUSHI  #0x00000000
6066 @ 47217:               INIT   1
6067 @ 47220:               PUSHI  #0x00000000
6068 @ 47225:               INIT   1
6069 @ 47228:               PUSHI  #0x00000062
6070 @ 47233:               INIT   1
6071 @ 47236:               PUSHI  #0x00000054
6072 @ 47241:               INIT   1
6073 @ 47244:               PUSHI  #0x00000000
6074 @ 47249:               INIT   1
6075 @ 47252:               PUSHI  #0x00000000
6076 @ 47257:               INIT   1
6077 @ 47260:               PUSHI  #0x00000000
6078 @ 47265:               INIT   1
6079 @ 47268:               PUSHI  #0x00000063
6080 @ 47273:               INIT   1
6081 @ 47276:               PUSHI  #0x00000054
6082 @ 47281:               INIT   1
6083 @ 47284:               PUSHI  #0x00000000
6084 @ 47289:               INIT   1
6085 @ 47292:               PUSHI  #0x00000000
6086 @ 47297:               INIT   1
6087 @ 47300:               PUSHI  #0x00000000
6088 @ 47305:               INIT   1
6089 @ 47308:               PUSHI  #0x00000067
6090 @ 47313:               INIT   1
6091 @ 47316:               PUSHI  #0x00000057
6092 @ 47321:               INIT   1
6093 @ 47324:               PUSHI  #0x00000002
6094 @ 47329:               INIT   1
6095 @ 47332:               PUSHI  #0x00000058
6096 @ 47337:               INIT   1
6097 @ 47340:               PUSHI  #0x00000000
6098 @ 47345:               INIT   1
6099 @ 47348:               PUSHI  #0x00000068
6100 @ 47353:               INIT   1
6101 @ 47356:               PUSHI  #0x00000002
6102 @ 47361:               INIT   1
6103 @ 47364:               PUSHI  #0x00000003
6104 @ 47369:               INIT   1
6105 @ 47372:               PUSHI  #0x00000057
6106 @ 47377:               INIT   1
6107 @ 47380:               PUSHI  #0x00000000
6108 @ 47385:               INIT   1
6109 @ 47388:               PUSHI  #0x0000006a
6110 @ 47393:               INIT   1
6111 @ 47396:               PUSHI  #0x00000037
6112 @ 47401:               INIT   1
6113 @ 47404:               PUSHI  #0x0000003a
6114 @ 47409:               INIT   1
6115 @ 47412:               PUSHI  #0x00000002
6116 @ 47417:               INIT   1
6117 @ 47420:               PUSHI  #0x00000058
6118 @ 47425:               INIT   1
6119 @ 47428:               PUSHI  #0x0000006c
6120 @ 47433:               INIT   1
6121 @ 47436:               PUSHI  #0x00000059
6122 @ 47441:               INIT   1
6123 @ 47444:               PUSHI  #0x0000003d
6124 @ 47449:               INIT   1
6125 @ 47452:               PUSHI  #0x0000001b
6126 @ 47457:               INIT   1
6127 @ 47460:               PUSHI  #0x00000026
6128 @ 47465:               INIT   1
6129 @ 47468:               PUSHI  #0x0000007f
6130 @ 47473:               INIT   1
6131 @ 47476:               PUSHI  #0x0000005a
6132 @ 47481:               INIT   1
6133 @ 47484:               PUSHI  #0x00000000
6134 @ 47489:               INIT   1
6135 @ 47492:               PUSHI  #0x00000000
6136 @ 47497:               INIT   1
6137 @ 47500:               PUSHI  #0x00000000
6138 @ 47505:               INIT   1

   711            %CONSTINTEGERARRAY LETT(0: 92)=0,%C
   712          X'48B02868',X'51EF0000',X'342EC800',X'30222B00',
   713          X'25D60B13',X'13EF9000',X'4CB40000',X'52E91940',
   714          X'4EE9A0D0',X'382D2800',X'39F40000',X'16527C80',
   715          X'19F26858',X'40320B4B',X'50B29800',X'067F9C0B',
   716          X'0C000000',X'35339A5D',X'1C000000',X'15C49800',
   717          X'49F5A25D',X'14000000',X'10A36380',X'5E4F71C0',
   718          X'39E00000',X'3CC00000',X'25C00000',X'171094E7',
   719          X'38000000',X'0474A858',X'48A16000',X'25D429CB',
   720          X'48000000',X'0F236140',X'58324845',X'30A00000',
   721          X'18356500',X'4E8D7500',X'30B62B00',X'09E4C800',
   722          X'31130000',X'10B3A3A9',X'38000000',X'48B4AC9C',
   723          X'3EB40000',X'0DEEA171',X'50000000',X'48B3AB28',
   724          X'30B62B26',X'258C29C3',X'30000000',X'17107500',
   725          X'35338303',X'0CA40000',X'4E924B8E',X'06520E40',
   726          X'25D3490A',X'0DEE9D00',X'15932800',X'4EA20000',
   727          X'0D019000',X'192E4CD0',X'06800000',X'1709A000',
   728          X'08A74B80',X'19F26868',X'4EA2705B',X'14000000',
   729          X'48A37C88',X'3E059069',X'38000000',X'3E059069',
   730          X'3E400000',X'48B37B2B',X'512F7000',X'16354D83',
   731          X'30AE1940',X'41E9750B',X'48000000',X'39EE0000',
   732          X'112D2BA7',X'25EE0B13',X'53200000',X'04849167',
   733          X'4C224B13',X'53200000',X'382D2CC0',X'31EE3800',
   734          X'15A00000',X'4CA5FA5B',X'43ED0BAB',X'05800000'
   735          
6139 @ 47508:               LINE   711 "regression-compile-tmp/imp918s.imp"
6140 @ 47546:               PUSHI  #0x00000000
6141 @ 47551:               PUSHI  #0x0000005c
6142 @ 47556:               BOUNDS
6143 @ 47557:               DEF    LETT p1=V_015d 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
6144 @ 47573:               PUSHI  #0x00000000
6145 @ 47578:               INIT   1
6146 @ 47581:               PUSHI  #0x48b02868
6147 @ 47586:               INIT   1
6148 @ 47589:               PUSHI  #0x51ef0000
6149 @ 47594:               INIT   1
6150 @ 47597:               PUSHI  #0x342ec800
6151 @ 47602:               INIT   1
6152 @ 47605:               PUSHI  #0x30222b00
6153 @ 47610:               INIT   1
6154 @ 47613:               PUSHI  #0x25d60b13
6155 @ 47618:               INIT   1
6156 @ 47621:               PUSHI  #0x13ef9000
6157 @ 47626:               INIT   1
6158 @ 47629:               PUSHI  #0x4cb40000
6159 @ 47634:               INIT   1
6160 @ 47637:               PUSHI  #0x52e91940
6161 @ 47642:               INIT   1
6162 @ 47645:               PUSHI  #0x4ee9a0d0
6163 @ 47650:               INIT   1
6164 @ 47653:               PUSHI  #0x382d2800
6165 @ 47658:               INIT   1
6166 @ 47661:               PUSHI  #0x39f40000
6167 @ 47666:               INIT   1
6168 @ 47669:               PUSHI  #0x16527c80
6169 @ 47674:               INIT   1
6170 @ 47677:               PUSHI  #0x19f26858
6171 @ 47682:               INIT   1
6172 @ 47685:               PUSHI  #0x40320b4b
6173 @ 47690:               INIT   1
6174 @ 47693:               PUSHI  #0x50b29800
6175 @ 47698:               INIT   1
6176 @ 47701:               PUSHI  #0x067f9c0b
6177 @ 47706:               INIT   1
6178 @ 47709:               PUSHI  #0x0c000000
6179 @ 47714:               INIT   1
6180 @ 47717:               PUSHI  #0x35339a5d
6181 @ 47722:               INIT   1
6182 @ 47725:               PUSHI  #0x1c000000
6183 @ 47730:               INIT   1
6184 @ 47733:               PUSHI  #0x15c49800
6185 @ 47738:               INIT   1
6186 @ 47741:               PUSHI  #0x49f5a25d
6187 @ 47746:               INIT   1
6188 @ 47749:               PUSHI  #0x14000000
6189 @ 47754:               INIT   1
6190 @ 47757:               PUSHI  #0x10a36380
6191 @ 47762:               INIT   1
6192 @ 47765:               PUSHI  #0x5e4f71c0
6193 @ 47770:               INIT   1
6194 @ 47773:               PUSHI  #0x39e00000
6195 @ 47778:               INIT   1
6196 @ 47781:               PUSHI  #0x3cc00000
6197 @ 47786:               INIT   1
6198 @ 47789:               PUSHI  #0x25c00000
6199 @ 47794:               INIT   1
6200 @ 47797:               PUSHI  #0x171094e7
6201 @ 47802:               INIT   1
6202 @ 47805:               PUSHI  #0x38000000
6203 @ 47810:               INIT   1
6204 @ 47813:               PUSHI  #0x0474a858
6205 @ 47818:               INIT   1
6206 @ 47821:               PUSHI  #0x48a16000
6207 @ 47826:               INIT   1
6208 @ 47829:               PUSHI  #0x25d429cb
6209 @ 47834:               INIT   1
6210 @ 47837:               PUSHI  #0x48000000
6211 @ 47842:               INIT   1
6212 @ 47845:               PUSHI  #0x0f236140
6213 @ 47850:               INIT   1
6214 @ 47853:               PUSHI  #0x58324845
6215 @ 47858:               INIT   1
6216 @ 47861:               PUSHI  #0x30a00000
6217 @ 47866:               INIT   1
6218 @ 47869:               PUSHI  #0x18356500
6219 @ 47874:               INIT   1
6220 @ 47877:               PUSHI  #0x4e8d7500
6221 @ 47882:               INIT   1
6222 @ 47885:               PUSHI  #0x30b62b00
6223 @ 47890:               INIT   1
6224 @ 47893:               PUSHI  #0x09e4c800
6225 @ 47898:               INIT   1
6226 @ 47901:               PUSHI  #0x31130000
6227 @ 47906:               INIT   1
6228 @ 47909:               PUSHI  #0x10b3a3a9
6229 @ 47914:               INIT   1
6230 @ 47917:               PUSHI  #0x38000000
6231 @ 47922:               INIT   1
6232 @ 47925:               PUSHI  #0x48b4ac9c
6233 @ 47930:               INIT   1
6234 @ 47933:               PUSHI  #0x3eb40000
6235 @ 47938:               INIT   1
6236 @ 47941:               PUSHI  #0x0deea171
6237 @ 47946:               INIT   1
6238 @ 47949:               PUSHI  #0x50000000
6239 @ 47954:               INIT   1
6240 @ 47957:               PUSHI  #0x48b3ab28
6241 @ 47962:               INIT   1
6242 @ 47965:               PUSHI  #0x30b62b26
6243 @ 47970:               INIT   1
6244 @ 47973:               PUSHI  #0x258c29c3
6245 @ 47978:               INIT   1
6246 @ 47981:               PUSHI  #0x30000000
6247 @ 47986:               INIT   1
6248 @ 47989:               PUSHI  #0x17107500
6249 @ 47994:               INIT   1
6250 @ 47997:               PUSHI  #0x35338303
6251 @ 48002:               INIT   1
6252 @ 48005:               PUSHI  #0x0ca40000
6253 @ 48010:               INIT   1
6254 @ 48013:               PUSHI  #0x4e924b8e
6255 @ 48018:               INIT   1
6256 @ 48021:               PUSHI  #0x06520e40
6257 @ 48026:               INIT   1
6258 @ 48029:               PUSHI  #0x25d3490a
6259 @ 48034:               INIT   1
6260 @ 48037:               PUSHI  #0x0dee9d00
6261 @ 48042:               INIT   1
6262 @ 48045:               PUSHI  #0x15932800
6263 @ 48050:               INIT   1
6264 @ 48053:               PUSHI  #0x4ea20000
6265 @ 48058:               INIT   1
6266 @ 48061:               PUSHI  #0x0d019000
6267 @ 48066:               INIT   1
6268 @ 48069:               PUSHI  #0x192e4cd0
6269 @ 48074:               INIT   1
6270 @ 48077:               PUSHI  #0x06800000
6271 @ 48082:               INIT   1
6272 @ 48085:               PUSHI  #0x1709a000
6273 @ 48090:               INIT   1
6274 @ 48093:               PUSHI  #0x08a74b80
6275 @ 48098:               INIT   1
6276 @ 48101:               PUSHI  #0x19f26868
6277 @ 48106:               INIT   1
6278 @ 48109:               PUSHI  #0x4ea2705b
6279 @ 48114:               INIT   1
6280 @ 48117:               PUSHI  #0x14000000
6281 @ 48122:               INIT   1
6282 @ 48125:               PUSHI  #0x48a37c88
6283 @ 48130:               INIT   1
6284 @ 48133:               PUSHI  #0x3e059069
6285 @ 48138:               INIT   1
6286 @ 48141:               PUSHI  #0x38000000
6287 @ 48146:               INIT   1
6288 @ 48149:               PUSHI  #0x3e059069
6289 @ 48154:               INIT   1
6290 @ 48157:               PUSHI  #0x3e400000
6291 @ 48162:               INIT   1
6292 @ 48165:               PUSHI  #0x48b37b2b
6293 @ 48170:               INIT   1
6294 @ 48173:               PUSHI  #0x512f7000
6295 @ 48178:               INIT   1
6296 @ 48181:               PUSHI  #0x16354d83
6297 @ 48186:               INIT   1
6298 @ 48189:               PUSHI  #0x30ae1940
6299 @ 48194:               INIT   1
6300 @ 48197:               PUSHI  #0x41e9750b
6301 @ 48202:               INIT   1
6302 @ 48205:               PUSHI  #0x48000000
6303 @ 48210:               INIT   1
6304 @ 48213:               PUSHI  #0x39ee0000
6305 @ 48218:               INIT   1
6306 @ 48221:               PUSHI  #0x112d2ba7
6307 @ 48226:               INIT   1
6308 @ 48229:               PUSHI  #0x25ee0b13
6309 @ 48234:               INIT   1
6310 @ 48237:               PUSHI  #0x53200000
6311 @ 48242:               INIT   1
6312 @ 48245:               PUSHI  #0x04849167
6313 @ 48250:               INIT   1
6314 @ 48253:               PUSHI  #0x4c224b13
6315 @ 48258:               INIT   1
6316 @ 48261:               PUSHI  #0x53200000
6317 @ 48266:               INIT   1
6318 @ 48269:               PUSHI  #0x382d2cc0
6319 @ 48274:               INIT   1
6320 @ 48277:               PUSHI  #0x31ee3800
6321 @ 48282:               INIT   1
6322 @ 48285:               PUSHI  #0x15a00000
6323 @ 48290:               INIT   1
6324 @ 48293:               PUSHI  #0x4ca5fa5b
6325 @ 48298:               INIT   1
6326 @ 48301:               PUSHI  #0x43ed0bab
6327 @ 48306:               INIT   1
6328 @ 48309:               PUSHI  #0x05800000
6329 @ 48314:               INIT   1

   736           %INTEGER I,J,K,M,Q,S
6330 @ 48317:               LINE   736 "regression-compile-tmp/imp918s.imp"
6331 @ 48355:               DEF    I p1=V_015e 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
6332 @ 48368:               DEF    J p1=V_015f 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
6333 @ 48381:               DEF    K p1=V_0160 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
6334 @ 48394:               DEF    M p1=V_0161 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
6335 @ 48407:               DEF    Q p1=V_0162 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
6336 @ 48420:               DEF    S p1=V_0163 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

   737           printstring(" (")
6337 @ 48433:               LINE   737 "regression-compile-tmp/imp918s.imp"
6338 @ 48471:               PUSH   PRINTSTRING
6339 @ 48474:               PUSHS  " ("
6340 @ 48478:               ASSPAR
6341 @ 48479:               CALL  

   738           I=-4
6342 @ 48480:               LINE   738 "regression-compile-tmp/imp918s.imp"
6343 @ 48518:               PUSH   I
6344 @ 48521:               PUSHI  #0x00000004
6345 @ 48526:               NEGATE
6346 @ 48527:               ASSVAL

   739           I=I+5 %UNTIL N=WORD(I) %OR I= 326
6347 @ 48528:               LINE   739 "regression-compile-tmp/imp918s.imp"
6348 @ 48566:               LOCATE L_0003
6349 @ 48569:               PUSH   I
6350 @ 48572:               PUSH   I
6351 @ 48575:               PUSHI  #0x00000005
6352 @ 48580:               ADD   
6353 @ 48581:               ASSVAL
6354 @ 48582:               PUSH   N
6355 @ 48585:               PUSH   WORD
6356 @ 48588:               PUSH   I
6357 @ 48591:               ACCESS
6358 @ 48592:               JUMPIF = L_0004
6359 @ 48596:               PUSH   I
6360 @ 48599:               PUSHI  #0x00000146
6361 @ 48604:               JUMPIF = L_0004
6362 @ 48608:               REPEAT L_0003
6363 @ 48611:               LOCATE L_0004

   740           %CYCLE J=1,1,4
6364 @ 48614:               LINE   740 "regression-compile-tmp/imp918s.imp"
6365 @ 48652:               PUSH   J
6366 @ 48655:               PUSHI  #0x00000001
6367 @ 48660:               PUSHI  #0x00000004
6368 @ 48665:               PUSHI  #0x00000001
6369 @ 48670:               FOR    L_0003

   741              K=WORD(I+J)
6370 @ 48673:               LINE   741 "regression-compile-tmp/imp918s.imp"
6371 @ 48711:               PUSH   K
6372 @ 48714:               PUSH   WORD
6373 @ 48717:               PUSH   I
6374 @ 48720:               PUSH   J
6375 @ 48723:               ADD   
6376 @ 48724:               ACCESS
6377 @ 48725:               ASSVAL

   742              %IF K=0 %THEN %EXIT
6378 @ 48726:               LINE   742 "regression-compile-tmp/imp918s.imp"
6379 @ 48764:               PUSH   K
6380 @ 48767:               PUSHI  #0x00000000
6381 @ 48772:               JUMPIF # L_0007
6382 @ 48776:               GOTO   L_0004
6383 @ 48779:               LOCATE L_0007

   743              SPACE %UNLESS J=1
6384 @ 48782:               LINE   743 "regression-compile-tmp/imp918s.imp"
6385 @ 48820:               PUSH   J
6386 @ 48823:               PUSHI  #0x00000001
6387 @ 48828:               JUMPIF = L_0007
6388 @ 48832:               PUSH   SPACE
6389 @ 48835:               CALL  
6390 @ 48836:               LOCATE L_0007

   744              %CYCLE
6391 @ 48839:               LINE   744 "regression-compile-tmp/imp918s.imp"
6392 @ 48877:               LOCATE L_0006

   745                 M=LETT(K); S=26
6393 @ 48880:               LINE   745 "regression-compile-tmp/imp918s.imp"
6394 @ 48918:               PUSH   M
6395 @ 48921:               PUSH   LETT
6396 @ 48924:               PUSH   K
6397 @ 48927:               ACCESS
6398 @ 48928:               ASSVAL
6399 @ 48929:               LINE   745 "regression-compile-tmp/imp918s.imp"
6400 @ 48967:               PUSH   S
6401 @ 48970:               PUSHI  #0x0000001a
6402 @ 48975:               ASSVAL

   746                 %CYCLE
6403 @ 48976:               LINE   746 "regression-compile-tmp/imp918s.imp"
6404 @ 49014:               LOCATE L_0009

   747                    Q=M>>S&31; 
6405 @ 49017:               LINE   747 "regression-compile-tmp/imp918s.imp"
6406 @ 49055:               PUSH   Q
6407 @ 49058:               PUSH   M
6408 @ 49061:               PUSH   S
6409 @ 49064:               RSH   
6410 @ 49065:               PUSHI  #0x0000001f
6411 @ 49070:               AND   
6412 @ 49071:               ASSVAL

   748                    %IF Q=31 %THEN Q=-32
6413 @ 49072:               LINE   748 "regression-compile-tmp/imp918s.imp"
6414 @ 49110:               PUSH   Q
6415 @ 49113:               PUSHI  #0x0000001f
6416 @ 49118:               JUMPIF # L_000d
6417 @ 49122:               PUSH   Q
6418 @ 49125:               PUSHI  #0x00000020
6419 @ 49130:               NEGATE
6420 @ 49131:               ASSVAL
6421 @ 49132:               LOCATE L_000d

   749                    %IF Q\=0 %THEN PRINT SYMBOL(Q+64)
6422 @ 49135:               LINE   749 "regression-compile-tmp/imp918s.imp"
6423 @ 49173:               PUSH   Q
6424 @ 49176:               PUSHI  #0x00000000
6425 @ 49181:               JUMPIF = L_000d
6426 @ 49185:               PUSH   PRINTSYMBOL
6427 @ 49188:               PUSH   Q
6428 @ 49191:               PUSHI  #0x00000040
6429 @ 49196:               ADD   
6430 @ 49197:               ASSPAR
6431 @ 49198:               CALL  
6432 @ 49199:               LOCATE L_000d

   750                    S=S-5
6433 @ 49202:               LINE   750 "regression-compile-tmp/imp918s.imp"
6434 @ 49240:               PUSH   S
6435 @ 49243:               PUSH   S
6436 @ 49246:               PUSHI  #0x00000005
6437 @ 49251:               SUB   
6438 @ 49252:               ASSVAL

   751                 %REPEAT %UNTIL S<0
6439 @ 49253:               LINE   751 "regression-compile-tmp/imp918s.imp"
6440 @ 49291:               PUSH   S
6441 @ 49294:               PUSHI  #0x00000000
6442 @ 49299:               JUMPIF < L_000a
6443 @ 49303:               REPEAT L_0009
6444 @ 49306:               LOCATE L_000a

   752                 K=K+1
6445 @ 49309:               LINE   752 "regression-compile-tmp/imp918s.imp"
6446 @ 49347:               PUSH   K
6447 @ 49350:               PUSH   K
6448 @ 49353:               PUSHI  #0x00000001
6449 @ 49358:               ADD   
6450 @ 49359:               ASSVAL

   753              %REPEAT %UNTIL M&1=0
6451 @ 49360:               LINE   753 "regression-compile-tmp/imp918s.imp"
6452 @ 49398:               PUSH   M
6453 @ 49401:               PUSHI  #0x00000001
6454 @ 49406:               AND   
6455 @ 49407:               PUSHI  #0x00000000
6456 @ 49412:               JUMPIF = L_0007
6457 @ 49416:               REPEAT L_0006
6458 @ 49419:               LOCATE L_0007

   754           %REPEAT
6459 @ 49422:               LINE   754 "regression-compile-tmp/imp918s.imp"
6460 @ 49460:               REPEAT L_0003
6461 @ 49463:               LOCATE L_0004

   755           printstring(") ")
6462 @ 49466:               LINE   755 "regression-compile-tmp/imp918s.imp"
6463 @ 49504:               PUSH   PRINTSTRING
6464 @ 49507:               PUSHS  ") "
6465 @ 49511:               ASSPAR
6466 @ 49512:               CALL  

   756           %END
6467 @ 49513:               LINE   756 "regression-compile-tmp/imp918s.imp"
6468 @ 49551:            END    _lev0id0_MESSAGE {lev=2 --> 1}

   757  INEND:   FAULT(108,0)
6469 @ 49552:            LINE   757 "regression-compile-tmp/imp918s.imp"
6470 @ 49590:            LABEL  L_0157
6471 @ 49593:            LINE   757 "regression-compile-tmp/imp918s.imp"
6472 @ 49631:            PUSH   FAULT
6473 @ 49634:            PUSHI  #0x0000006c
6474 @ 49639:            ASSPAR
6475 @ 49640:            PUSHI  #0x00000000
6476 @ 49645:            ASSPAR
6477 @ 49646:            CALL  

   758  OFL:     FAULT(38,0); ->Label8
6478 @ 49647:            LINE   758 "regression-compile-tmp/imp918s.imp"
6479 @ 49685:            LABEL  L_0156
6480 @ 49688:            LINE   758 "regression-compile-tmp/imp918s.imp"
6481 @ 49726:            PUSH   FAULT
6482 @ 49729:            PUSHI  #0x00000026
6483 @ 49734:            ASSPAR
6484 @ 49735:            PUSHI  #0x00000000
6485 @ 49740:            ASSPAR
6486 @ 49741:            CALL  
6487 @ 49742:            LINE   758 "regression-compile-tmp/imp918s.imp"
6488 @ 49780:            JUMP   L_0158

   759  SUBSCHAR:LINE=LINE+1;FAULT(48,0)
6489 @ 49783:            LINE   759 "regression-compile-tmp/imp918s.imp"
6490 @ 49821:            LABEL  L_015b
6491 @ 49824:            LINE   759 "regression-compile-tmp/imp918s.imp"
6492 @ 49862:            PUSH   LINE
6493 @ 49865:            PUSH   LINE
6494 @ 49868:            PUSHI  #0x00000001
6495 @ 49873:            ADD   
6496 @ 49874:            ASSVAL
6497 @ 49875:            LINE   759 "regression-compile-tmp/imp918s.imp"
6498 @ 49913:            PUSH   FAULT
6499 @ 49916:            PUSHI  #0x00000030
6500 @ 49921:            ASSPAR
6501 @ 49922:            PUSHI  #0x00000000
6502 @ 49927:            ASSPAR
6503 @ 49928:            CALL  

   760           SPACES(5)
6504 @ 49929:            LINE   760 "regression-compile-tmp/imp918s.imp"
6505 @ 49967:            PUSH   SPACES
6506 @ 49970:            PUSHI  #0x00000005
6507 @ 49975:            ASSPAR
6508 @ 49976:            CALL  

   761  Label15:      READSYMBOL(I); ->Label8 %IF I=10
6509 @ 49977:            LINE   761 "regression-compile-tmp/imp918s.imp"
6510 @ 50015:            LABEL  L_015c
6511 @ 50018:            LINE   761 "regression-compile-tmp/imp918s.imp"
6512 @ 50056:            PUSH   READSYMBOL
6513 @ 50059:            PUSH   I
6514 @ 50062:            ASSPAR
6515 @ 50063:            CALL  
6516 @ 50064:            LINE   761 "regression-compile-tmp/imp918s.imp"
6517 @ 50102:            PUSH   I
6518 @ 50105:            PUSHI  #0x0000000a
6519 @ 50110:            JUMPIF # L_0004
6520 @ 50114:            JUMP   L_0158
6521 @ 50117:            LOCATE L_0004

   762           PRINTSYMBOL(I); ->Label15
6522 @ 50120:            LINE   762 "regression-compile-tmp/imp918s.imp"
6523 @ 50158:            PUSH   PRINTSYMBOL
6524 @ 50161:            PUSH   I
6525 @ 50164:            ASSPAR
6526 @ 50165:            CALL  
6527 @ 50166:            LINE   762 "regression-compile-tmp/imp918s.imp"
6528 @ 50204:            JUMP   L_015c

   763           %ROUTINE PRINTNAME (%INTEGER N)
6529 @ 50207:            LINE   763 "regression-compile-tmp/imp918s.imp"
6530 @ 50245:            DEF    PRINTNAME (_lev0id0_PRINTNAME) p1=V_0153 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
6531 @ 50266:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
6532 @ 50267:                  DEF    N p1=V_015d 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
6533 @ 50280:               FINISH ) {lev=2}

   764           %IF N<0 %THEN %START
6534 @ 50281:               LINE   764 "regression-compile-tmp/imp918s.imp"
6535 @ 50319:               PUSH   N
6536 @ 50322:               PUSHI  #0x00000000
6537 @ 50327:               JUMPIF >= L_0004

   765              N=-N
6538 @ 50331:               LINE   765 "regression-compile-tmp/imp918s.imp"
6539 @ 50369:               PUSH   N
6540 @ 50372:               PUSH   N
6541 @ 50375:               NEGATE
6542 @ 50376:               ASSVAL

   766              %IF 16384<=N<=MAX ULAB %THEN N=N-16384 %ELSE %START
6543 @ 50377:               LINE   766 "regression-compile-tmp/imp918s.imp"
6544 @ 50415:               PUSHI  #0x00004000
6545 @ 50420:               PUSH   N
6546 @ 50423:               JUMPIFD > L_0007
6547 @ 50427:               PUSH   MAXULAB
6548 @ 50430:               JUMPIF > L_0007
6549 @ 50434:               PUSH   N
6550 @ 50437:               PUSH   N
6551 @ 50440:               PUSHI  #0x00004000
6552 @ 50445:               SUB   
6553 @ 50446:               ASSVAL
6554 @ 50447:               GOTO   L_0006
6555 @ 50450:               LOCATE L_0007

   767                 WRITE(N,5); ->Label99
6556 @ 50453:               LINE   767 "regression-compile-tmp/imp918s.imp"
6557 @ 50491:               PUSH   WRITE
6558 @ 50494:               PUSH   N
6559 @ 50497:               ASSPAR
6560 @ 50498:               PUSHI  #0x00000005
6561 @ 50503:               ASSPAR
6562 @ 50504:               CALL  
6563 @ 50505:               LINE   767 "regression-compile-tmp/imp918s.imp"
6564 @ 50543:               JUMP   L_015e

   768              %FINISH
6565 @ 50546:               LINE   768 "regression-compile-tmp/imp918s.imp"
6566 @ 50584:               LOCATE L_0006

   769         %FINISH
6567 @ 50587:               LINE   769 "regression-compile-tmp/imp918s.imp"
6568 @ 50625:               LOCATE L_0004

   770           printstring(" ")
   771  !%if USE MC = 1 %start
   772  !         **1,WORD(N)
   773  !         *A_1,LETT; *->P5;             ! USE PRINTSTRING IN PERM
   774  !%finish
6569 @ 50628:               LINE   770 "regression-compile-tmp/imp918s.imp"
6570 @ 50666:               PUSH   PRINTSTRING
6571 @ 50669:               PUSHS  " "
6572 @ 50672:               ASSPAR
6573 @ 50673:               CALL  

   775  Label99:      %END
   776  !
   777  !***********************************************************************
   778  !*       IMP CODE PLANTING ROUTINES                                    *
   779  !*       CODE AND GLAP ARE PUT INTO THE BUFFERS 'CODE,GLABUF(0:268)'   *
   780  !*       BY A NUMBER OF TRIVIAL ROUTINES.LPUT IS CALLED TO ADD THE     *
   781  !*       BUFFER TO THE OUTPUT FILE. THE BUFFERS ARE BASICALLY 0:255    *
   782  !*       WITH A 12-BYTE MARGIN TO MINIMISE THE NUMBER OF TESTS FOR     *
   783  !*       THE BUFFER FULL CONDITION                                     *
   784  !*                                                                     *
   785  !*       PPCURR(GLACURR) IS THE BUFFER POINTER                         *
   786  !*       CA(GLACA)  IS THE RELATIVE ADDRESS OF THE NEXT BYTE           *
   787  !*       CABUF(GLACABUF) IS CA(GLACA) FOR START OF BUFFER              *
   788  !***********************************************************************
6574 @ 50674:               LINE   775 "regression-compile-tmp/imp918s.imp"
6575 @ 50712:               LABEL  L_015e
6576 @ 50715:               LINE   775 "regression-compile-tmp/imp918s.imp"
6577 @ 50753:            END    _lev0id0_PRINTNAME {lev=2 --> 1}

   789           %ROUTINE CODEOUT
6578 @ 50754:            LINE   789 "regression-compile-tmp/imp918s.imp"
6579 @ 50792:            DEF    CODEOUT (_lev0id0_CODEOUT) p1=V_0126 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
6580 @ 50811:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
6581 @ 50812:               FINISH ) {lev=2}

   790           %IF PPCURR>0 %THEN %START
6582 @ 50813:               LINE   790 "regression-compile-tmp/imp918s.imp"
6583 @ 50851:               PUSH   PPCURR
6584 @ 50854:               PUSHI  #0x00000000
6585 @ 50859:               JUMPIF <= L_0004

   791              %IF DCOMP#0 %THEN %C
   792                 RECODE(ADDR(CODE(0)),ADDR(CODE(PPCURR)),CABUF)
6586 @ 50863:               LINE   791 "regression-compile-tmp/imp918s.imp"
6587 @ 50901:               PUSH   DCOMP
6588 @ 50904:               PUSHI  #0x00000000
6589 @ 50909:               JUMPIF = L_0007
6590 @ 50913:               PUSH   RECODE
6591 @ 50916:               PUSH   ADDR
6592 @ 50919:               PUSH   CODE
6593 @ 50922:               PUSHI  #0x00000000
6594 @ 50927:               ACCESS
6595 @ 50928:               ASSPAR
6596 @ 50929:               CALL  
6597 @ 50930:               ASSPAR
6598 @ 50931:               PUSH   ADDR
6599 @ 50934:               PUSH   CODE
6600 @ 50937:               PUSH   PPCURR
6601 @ 50940:               ACCESS
6602 @ 50941:               ASSPAR
6603 @ 50942:               CALL  
6604 @ 50943:               ASSPAR
6605 @ 50944:               PUSH   CABUF
6606 @ 50947:               ASSPAR
6607 @ 50948:               CALL  
6608 @ 50949:               LOCATE L_0007

   793              LPUT(1,PPCURR,CABUF,ADDR(CODE(0))) %IF INHCODE=0
6609 @ 50952:               LINE   793 "regression-compile-tmp/imp918s.imp"
6610 @ 50990:               PUSH   INHCODE
6611 @ 50993:               PUSHI  #0x00000000
6612 @ 50998:               JUMPIF # L_0007
6613 @ 51002:               PUSH   LPUT
6614 @ 51005:               PUSHI  #0x00000001
6615 @ 51010:               ASSPAR
6616 @ 51011:               PUSH   PPCURR
6617 @ 51014:               ASSPAR
6618 @ 51015:               PUSH   CABUF
6619 @ 51018:               ASSPAR
6620 @ 51019:               PUSH   ADDR
6621 @ 51022:               PUSH   CODE
6622 @ 51025:               PUSHI  #0x00000000
6623 @ 51030:               ACCESS
6624 @ 51031:               ASSPAR
6625 @ 51032:               CALL  
6626 @ 51033:               ASSPAR
6627 @ 51034:               CALL  
6628 @ 51035:               LOCATE L_0007

   794              PPCURR=0; CABUF=CA
6629 @ 51038:               LINE   794 "regression-compile-tmp/imp918s.imp"
6630 @ 51076:               PUSH   PPCURR
6631 @ 51079:               PUSHI  #0x00000000
6632 @ 51084:               ASSVAL
6633 @ 51085:               LINE   794 "regression-compile-tmp/imp918s.imp"
6634 @ 51123:               PUSH   CABUF
6635 @ 51126:               PUSH   CA
6636 @ 51129:               ASSVAL

   795           %FINISH
6637 @ 51130:               LINE   795 "regression-compile-tmp/imp918s.imp"
6638 @ 51168:               LOCATE L_0004

   796           %END
6639 @ 51171:               LINE   796 "regression-compile-tmp/imp918s.imp"
6640 @ 51209:            END    _lev0id0_CODEOUT {lev=2 --> 1}

   797           %ROUTINE PLANT(%INTEGER HALFWORD)
   798  !        ADD A HALF WORD OF BINARY TO THE BUFFER
6641 @ 51210:            LINE   797 "regression-compile-tmp/imp918s.imp"
6642 @ 51248:            DEF    PLANT (_lev0id0_PLANT) p1=V_012c 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
6643 @ 51265:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
6644 @ 51266:                  DEF    HALFWORD p1=V_015d 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
6645 @ 51286:               FINISH ) {lev=2}

   799           SHORT INTEGER(ADDR(CODE(PPCURR)))<-HALFWORD
6646 @ 51287:               LINE   799 "regression-compile-tmp/imp918s.imp"
6647 @ 51325:               PUSH   SHORTINTEGER
6648 @ 51328:               PUSH   ADDR
6649 @ 51331:               PUSH   CODE
6650 @ 51334:               PUSH   PPCURR
6651 @ 51337:               ACCESS
6652 @ 51338:               ASSPAR
6653 @ 51339:               CALL  
6654 @ 51340:               ASSPAR
6655 @ 51341:               CALL  
6656 @ 51342:               PUSH   HALFWORD
6657 @ 51345:               JAM   

   800           PPCURR=PPCURR+2
6658 @ 51346:               LINE   800 "regression-compile-tmp/imp918s.imp"
6659 @ 51384:               PUSH   PPCURR
6660 @ 51387:               PUSH   PPCURR
6661 @ 51390:               PUSHI  #0x00000002
6662 @ 51395:               ADD   
6663 @ 51396:               ASSVAL

   801           CA=CA+2
6664 @ 51397:               LINE   801 "regression-compile-tmp/imp918s.imp"
6665 @ 51435:               PUSH   CA
6666 @ 51438:               PUSH   CA
6667 @ 51441:               PUSHI  #0x00000002
6668 @ 51446:               ADD   
6669 @ 51447:               ASSVAL

   802           CODEOUT %IF PPCURR>=256
6670 @ 51448:               LINE   802 "regression-compile-tmp/imp918s.imp"
6671 @ 51486:               PUSH   PPCURR
6672 @ 51489:               PUSHI  #0x00000100
6673 @ 51494:               JUMPIF < L_0004
6674 @ 51498:               PUSH   CODEOUT
6675 @ 51501:               CALL  
6676 @ 51502:               LOCATE L_0004

   803           %END
6677 @ 51505:               LINE   803 "regression-compile-tmp/imp918s.imp"
6678 @ 51543:            END    _lev0id0_PLANT {lev=2 --> 1}

   804           %ROUTINE PCONST(%INTEGER WORD)
   805  !        ADD A WORD OF BINARY TO THE BUFFER
   806  !%if USE MC = 1 %start
   807  !         **1,ADDR(CODE(PPCURR))
   808  !         *MVC_0(4,1),WORD
   809  !%finish
6679 @ 51544:            LINE   804 "regression-compile-tmp/imp918s.imp"
6680 @ 51582:            DEF    PCONST (_lev0id0_PCONST) p1=V_0128 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
6681 @ 51600:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
6682 @ 51601:                  DEF    WORD p1=V_015d 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
6683 @ 51617:               FINISH ) {lev=2}

   810           PPCURR=PPCURR+4
6684 @ 51618:               LINE   810 "regression-compile-tmp/imp918s.imp"
6685 @ 51656:               PUSH   PPCURR
6686 @ 51659:               PUSH   PPCURR
6687 @ 51662:               PUSHI  #0x00000004
6688 @ 51667:               ADD   
6689 @ 51668:               ASSVAL

   811           CA=CA+4
6690 @ 51669:               LINE   811 "regression-compile-tmp/imp918s.imp"
6691 @ 51707:               PUSH   CA
6692 @ 51710:               PUSH   CA
6693 @ 51713:               PUSHI  #0x00000004
6694 @ 51718:               ADD   
6695 @ 51719:               ASSVAL

   812           CODEOUT %IF PPCURR>=256
6696 @ 51720:               LINE   812 "regression-compile-tmp/imp918s.imp"
6697 @ 51758:               PUSH   PPCURR
6698 @ 51761:               PUSHI  #0x00000100
6699 @ 51766:               JUMPIF < L_0004
6700 @ 51770:               PUSH   CODEOUT
6701 @ 51773:               CALL  
6702 @ 51774:               LOCATE L_0004

   813           %END
6703 @ 51777:               LINE   813 "regression-compile-tmp/imp918s.imp"
6704 @ 51815:            END    _lev0id0_PCONST {lev=2 --> 1}

   814           %ROUTINE PRR(%INTEGER OPCODE,R1,R2)
6705 @ 51816:            LINE   814 "regression-compile-tmp/imp918s.imp"
6706 @ 51854:            DEF    PRR (_lev0id0_PRR) p1=V_012d 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
6707 @ 51869:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
6708 @ 51870:                  DEF    OPCODE p1=V_015d 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
6709 @ 51888:                  DEF    R1 p1=V_015e 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
6710 @ 51902:                  DEF    R2 p1=V_015f 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
6711 @ 51916:               FINISH ) {lev=2}

   815           CODE(PPCURR)=OPCODE
6712 @ 51917:               LINE   815 "regression-compile-tmp/imp918s.imp"
6713 @ 51955:               PUSH   CODE
6714 @ 51958:               PUSH   PPCURR
6715 @ 51961:               ACCESS
6716 @ 51962:               PUSH   OPCODE
6717 @ 51965:               ASSVAL

   816           CODE(PPCURR+1)=R1<<4!R2
6718 @ 51966:               LINE   816 "regression-compile-tmp/imp918s.imp"
6719 @ 52004:               PUSH   CODE
6720 @ 52007:               PUSH   PPCURR
6721 @ 52010:               PUSHI  #0x00000001
6722 @ 52015:               ADD   
6723 @ 52016:               ACCESS
6724 @ 52017:               PUSH   R1
6725 @ 52020:               PUSHI  #0x00000004
6726 @ 52025:               LSH   
6727 @ 52026:               PUSH   R2
6728 @ 52029:               OR    
6729 @ 52030:               ASSVAL

   817           PPCURR=PPCURR+2
6730 @ 52031:               LINE   817 "regression-compile-tmp/imp918s.imp"
6731 @ 52069:               PUSH   PPCURR
6732 @ 52072:               PUSH   PPCURR
6733 @ 52075:               PUSHI  #0x00000002
6734 @ 52080:               ADD   
6735 @ 52081:               ASSVAL

   818           CA=CA+2
6736 @ 52082:               LINE   818 "regression-compile-tmp/imp918s.imp"
6737 @ 52120:               PUSH   CA
6738 @ 52123:               PUSH   CA
6739 @ 52126:               PUSHI  #0x00000002
6740 @ 52131:               ADD   
6741 @ 52132:               ASSVAL

   819           CODEOUT %IF PPCURR>=256
6742 @ 52133:               LINE   819 "regression-compile-tmp/imp918s.imp"
6743 @ 52171:               PUSH   PPCURR
6744 @ 52174:               PUSHI  #0x00000100
6745 @ 52179:               JUMPIF < L_0004
6746 @ 52183:               PUSH   CODEOUT
6747 @ 52186:               CALL  
6748 @ 52187:               LOCATE L_0004

   820           %END
6749 @ 52190:               LINE   820 "regression-compile-tmp/imp918s.imp"
6750 @ 52228:            END    _lev0id0_PRR {lev=2 --> 1}

   821           %ROUTINE MOVE BACK PC
6751 @ 52229:            LINE   821 "regression-compile-tmp/imp918s.imp"
6752 @ 52267:            DEF    MOVEBACKPC (_lev0id0_MOVEBACKPC) p1=V_015d 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
6753 @ 52289:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
6754 @ 52290:               FINISH ) {lev=2}

   822           %IF LCA<CABUF %THEN CABUF=LCA %AND PPCURR=0 %ELSE %C
   823              PPCURR=PPCURR-CA+LCA
6755 @ 52291:               LINE   822 "regression-compile-tmp/imp918s.imp"
6756 @ 52329:               PUSH   LCA
6757 @ 52332:               PUSH   CABUF
6758 @ 52335:               JUMPIF >= L_0004
6759 @ 52339:               PUSH   CABUF
6760 @ 52342:               PUSH   LCA
6761 @ 52345:               ASSVAL
6762 @ 52346:               PUSH   PPCURR
6763 @ 52349:               PUSHI  #0x00000000
6764 @ 52354:               ASSVAL
6765 @ 52355:               GOTO   L_0003
6766 @ 52358:               LOCATE L_0004
6767 @ 52361:               PUSH   PPCURR
6768 @ 52364:               PUSH   PPCURR
6769 @ 52367:               PUSH   CA
6770 @ 52370:               SUB   
6771 @ 52371:               PUSH   LCA
6772 @ 52374:               ADD   
6773 @ 52375:               ASSVAL
6774 @ 52376:               LOCATE L_0003

   824           CA=LCA
6775 @ 52379:               LINE   824 "regression-compile-tmp/imp918s.imp"
6776 @ 52417:               PUSH   CA
6777 @ 52420:               PUSH   LCA
6778 @ 52423:               ASSVAL

   825           %END
6779 @ 52424:               LINE   825 "regression-compile-tmp/imp918s.imp"
6780 @ 52462:            END    _lev0id0_MOVEBACKPC {lev=2 --> 1}

   826           %ROUTINE PRX(%INTEGER OPCODE,R1,R2,B,D)
   827           {%SHORTROUTINE}
6781 @ 52463:            LINE   826 "regression-compile-tmp/imp918s.imp"
6782 @ 52501:            DEF    PRX (_lev0id0_PRX) p1=V_012b 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
6783 @ 52516:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
6784 @ 52517:                  DEF    OPCODE p1=V_015e 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
6785 @ 52535:                  DEF    R1 p1=V_015f 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
6786 @ 52549:                  DEF    R2 p1=V_0160 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
6787 @ 52563:                  DEF    B p1=V_0161 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
6788 @ 52576:                  DEF    D p1=V_0162 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
6789 @ 52589:               FINISH ) {lev=2}

   828           %OWNINTEGER LR1,LR2,LB,LD
6790 @ 52590:               LINE   828 "regression-compile-tmp/imp918s.imp"
6791 @ 52628:               DEF    LR1 p1=V_0163 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
6792 @ 52643:               INIT   1
6793 @ 52646:               DEF    LR2 p1=V_0164 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
6794 @ 52661:               INIT   1
6795 @ 52664:               DEF    LB p1=V_0165 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
6796 @ 52678:               INIT   1
6797 @ 52681:               DEF    LD p1=V_0166 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
6798 @ 52695:               INIT   1

   829           %IF CHECKSP=0 %THEN %START
6799 @ 52698:               LINE   829 "regression-compile-tmp/imp918s.imp"
6800 @ 52736:               PUSH   CHECKSP
6801 @ 52739:               PUSHI  #0x00000000
6802 @ 52744:               JUMPIF # L_0004

   830              %IF OPCODE=X'58' %OR OPCODE=X'50' %THEN %START
6803 @ 52748:               LINE   830 "regression-compile-tmp/imp918s.imp"
6804 @ 52786:               PUSH   OPCODE
6805 @ 52789:               PUSHI  #0x00000058
6806 @ 52794:               JUMPIF = L_0008
6807 @ 52798:               PUSH   OPCODE
6808 @ 52801:               PUSHI  #0x00000050
6809 @ 52806:               JUMPIF # L_0007
6810 @ 52810:               LOCATE L_0008

   831                 %IF LCA+4=CA %AND LB=B %AND R2=0 %AND %C
   832                    ((LOPCODE=OPCODE %AND (LR1+1)&15=R1 %AND LR2=0 %AND %C
   833                    D=LD+4) %OR (LOPCODE=OPCODE+X'40' %AND %C
   834                    (LR2+1)&15=R1 %AND D=LD+((R1-LR1)&15)*4)) %START
6811 @ 52813:               LINE   831 "regression-compile-tmp/imp918s.imp"
6812 @ 52851:               PUSH   LCA
6813 @ 52854:               PUSHI  #0x00000004
6814 @ 52859:               ADD   
6815 @ 52860:               PUSH   CA
6816 @ 52863:               JUMPIF # L_000a
6817 @ 52867:               PUSH   LB
6818 @ 52870:               PUSH   B
6819 @ 52873:               JUMPIF # L_000a
6820 @ 52877:               PUSH   R2
6821 @ 52880:               PUSHI  #0x00000000
6822 @ 52885:               JUMPIF # L_000a
6823 @ 52889:               PUSH   LOPCODE
6824 @ 52892:               PUSH   OPCODE
6825 @ 52895:               JUMPIF # L_000c
6826 @ 52899:               PUSH   LR1
6827 @ 52902:               PUSHI  #0x00000001
6828 @ 52907:               ADD   
6829 @ 52908:               PUSHI  #0x0000000f
6830 @ 52913:               AND   
6831 @ 52914:               PUSH   R1
6832 @ 52917:               JUMPIF # L_000c
6833 @ 52921:               PUSH   LR2
6834 @ 52924:               PUSHI  #0x00000000
6835 @ 52929:               JUMPIF # L_000c
6836 @ 52933:               PUSH   D
6837 @ 52936:               PUSH   LD
6838 @ 52939:               PUSHI  #0x00000004
6839 @ 52944:               ADD   
6840 @ 52945:               JUMPIF = L_000b
6841 @ 52949:               LOCATE L_000c
6842 @ 52952:               PUSH   LOPCODE
6843 @ 52955:               PUSH   OPCODE
6844 @ 52958:               PUSHI  #0x00000040
6845 @ 52963:               ADD   
6846 @ 52964:               JUMPIF # L_000a
6847 @ 52968:               PUSH   LR2
6848 @ 52971:               PUSHI  #0x00000001
6849 @ 52976:               ADD   
6850 @ 52977:               PUSHI  #0x0000000f
6851 @ 52982:               AND   
6852 @ 52983:               PUSH   R1
6853 @ 52986:               JUMPIF # L_000a
6854 @ 52990:               PUSH   D
6855 @ 52993:               PUSH   LD
6856 @ 52996:               PUSH   R1
6857 @ 52999:               PUSH   LR1
6858 @ 53002:               SUB   
6859 @ 53003:               PUSHI  #0x0000000f
6860 @ 53008:               AND   
6861 @ 53009:               PUSHI  #0x00000004
6862 @ 53014:               MUL   
6863 @ 53015:               ADD   
6864 @ 53016:               JUMPIF # L_000a
6865 @ 53020:               LOCATE L_000b

   835                    %IF DCOMP#0 %THEN printstring("** LOADS COMBINED **")
6866 @ 53023:               LINE   835 "regression-compile-tmp/imp918s.imp"
6867 @ 53061:               PUSH   DCOMP
6868 @ 53064:               PUSHI  #0x00000000
6869 @ 53069:               JUMPIF = L_000d
6870 @ 53073:               PUSH   PRINTSTRING
6871 @ 53076:               PUSHS  "** LOADS COMBINED **"
6872 @ 53098:               ASSPAR
6873 @ 53099:               CALL  
6874 @ 53100:               LOCATE L_000d

   836                    MOVE BACK PC
6875 @ 53103:               LINE   836 "regression-compile-tmp/imp918s.imp"
6876 @ 53141:               PUSH   MOVEBACKPC
6877 @ 53144:               CALL  

   837                    CSAVED=CSAVED+4
6878 @ 53145:               LINE   837 "regression-compile-tmp/imp918s.imp"
6879 @ 53183:               PUSH   CSAVED
6880 @ 53186:               PUSH   CSAVED
6881 @ 53189:               PUSHI  #0x00000004
6882 @ 53194:               ADD   
6883 @ 53195:               ASSVAL

   838                    PRX(X'90'+OPCODE&15,LR1,R1,LB,LD)
6884 @ 53196:               LINE   838 "regression-compile-tmp/imp918s.imp"
6885 @ 53234:               PUSH   PRX
6886 @ 53237:               PUSHI  #0x00000090
6887 @ 53242:               PUSH   OPCODE
6888 @ 53245:               PUSHI  #0x0000000f
6889 @ 53250:               AND   
6890 @ 53251:               ADD   
6891 @ 53252:               ASSPAR
6892 @ 53253:               PUSH   LR1
6893 @ 53256:               ASSPAR
6894 @ 53257:               PUSH   R1
6895 @ 53260:               ASSPAR
6896 @ 53261:               PUSH   LB
6897 @ 53264:               ASSPAR
6898 @ 53265:               PUSH   LD
6899 @ 53268:               ASSPAR
6900 @ 53269:               CALL  

   839                    %RETURN
6901 @ 53270:               LINE   839 "regression-compile-tmp/imp918s.imp"
6902 @ 53308:               RETURN

   840                 %FINISH
6903 @ 53309:               LINE   840 "regression-compile-tmp/imp918s.imp"
6904 @ 53347:               LOCATE L_000a

   841              %FINISH
6905 @ 53350:               LINE   841 "regression-compile-tmp/imp918s.imp"
6906 @ 53388:               LOCATE L_0007

   842              LCA=CA; LR1=R1; LR2=R2
6907 @ 53391:               LINE   842 "regression-compile-tmp/imp918s.imp"
6908 @ 53429:               PUSH   LCA
6909 @ 53432:               PUSH   CA
6910 @ 53435:               ASSVAL
6911 @ 53436:               LINE   842 "regression-compile-tmp/imp918s.imp"
6912 @ 53474:               PUSH   LR1
6913 @ 53477:               PUSH   R1
6914 @ 53480:               ASSVAL
6915 @ 53481:               LINE   842 "regression-compile-tmp/imp918s.imp"
6916 @ 53519:               PUSH   LR2
6917 @ 53522:               PUSH   R2
6918 @ 53525:               ASSVAL

   843              LB=B; LD=D; LOPCODE=OPCODE
6919 @ 53526:               LINE   843 "regression-compile-tmp/imp918s.imp"
6920 @ 53564:               PUSH   LB
6921 @ 53567:               PUSH   B
6922 @ 53570:               ASSVAL
6923 @ 53571:               LINE   843 "regression-compile-tmp/imp918s.imp"
6924 @ 53609:               PUSH   LD
6925 @ 53612:               PUSH   D
6926 @ 53615:               ASSVAL
6927 @ 53616:               LINE   843 "regression-compile-tmp/imp918s.imp"
6928 @ 53654:               PUSH   LOPCODE
6929 @ 53657:               PUSH   OPCODE
6930 @ 53660:               ASSVAL

   844           %FINISH
6931 @ 53661:               LINE   844 "regression-compile-tmp/imp918s.imp"
6932 @ 53699:               LOCATE L_0004

   845           CODE(PPCURR)=OPCODE
6933 @ 53702:               LINE   845 "regression-compile-tmp/imp918s.imp"
6934 @ 53740:               PUSH   CODE
6935 @ 53743:               PUSH   PPCURR
6936 @ 53746:               ACCESS
6937 @ 53747:               PUSH   OPCODE
6938 @ 53750:               ASSVAL

   846           CODE(PPCURR+1)=R1<<4!R2
6939 @ 53751:               LINE   846 "regression-compile-tmp/imp918s.imp"
6940 @ 53789:               PUSH   CODE
6941 @ 53792:               PUSH   PPCURR
6942 @ 53795:               PUSHI  #0x00000001
6943 @ 53800:               ADD   
6944 @ 53801:               ACCESS
6945 @ 53802:               PUSH   R1
6946 @ 53805:               PUSHI  #0x00000004
6947 @ 53810:               LSH   
6948 @ 53811:               PUSH   R2
6949 @ 53814:               OR    
6950 @ 53815:               ASSVAL

   847           SHORT INTEGER(ADDR(CODE(PPCURR+2)))<- B<<12!D
6951 @ 53816:               LINE   847 "regression-compile-tmp/imp918s.imp"
6952 @ 53854:               PUSH   SHORTINTEGER
6953 @ 53857:               PUSH   ADDR
6954 @ 53860:               PUSH   CODE
6955 @ 53863:               PUSH   PPCURR
6956 @ 53866:               PUSHI  #0x00000002
6957 @ 53871:               ADD   
6958 @ 53872:               ACCESS
6959 @ 53873:               ASSPAR
6960 @ 53874:               CALL  
6961 @ 53875:               ASSPAR
6962 @ 53876:               CALL  
6963 @ 53877:               PUSH   B
6964 @ 53880:               PUSHI  #0x0000000c
6965 @ 53885:               LSH   
6966 @ 53886:               PUSH   D
6967 @ 53889:               OR    
6968 @ 53890:               JAM   

   848           PPCURR=PPCURR+4
6969 @ 53891:               LINE   848 "regression-compile-tmp/imp918s.imp"
6970 @ 53929:               PUSH   PPCURR
6971 @ 53932:               PUSH   PPCURR
6972 @ 53935:               PUSHI  #0x00000004
6973 @ 53940:               ADD   
6974 @ 53941:               ASSVAL

   849           CA=CA+4
6975 @ 53942:               LINE   849 "regression-compile-tmp/imp918s.imp"
6976 @ 53980:               PUSH   CA
6977 @ 53983:               PUSH   CA
6978 @ 53986:               PUSHI  #0x00000004
6979 @ 53991:               ADD   
6980 @ 53992:               ASSVAL

   850           CODEOUT %IF PPCURR>=256
6981 @ 53993:               LINE   850 "regression-compile-tmp/imp918s.imp"
6982 @ 54031:               PUSH   PPCURR
6983 @ 54034:               PUSHI  #0x00000100
6984 @ 54039:               JUMPIF < L_0004
6985 @ 54043:               PUSH   CODEOUT
6986 @ 54046:               CALL  
6987 @ 54047:               LOCATE L_0004

   851           %END
6988 @ 54050:               LINE   851 "regression-compile-tmp/imp918s.imp"
6989 @ 54088:            END    _lev0id0_PRX {lev=2 --> 1}

   852           %ROUTINE PSI(%INTEGER OPCODE,J,B,D)
6990 @ 54089:            LINE   852 "regression-compile-tmp/imp918s.imp"
6991 @ 54127:            DEF    PSI (_lev0id0_PSI) p1=V_0129 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
6992 @ 54142:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
6993 @ 54143:                  DEF    OPCODE p1=V_015e 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
6994 @ 54161:                  DEF    J p1=V_015f 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
6995 @ 54174:                  DEF    B p1=V_0160 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
6996 @ 54187:                  DEF    D p1=V_0161 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
6997 @ 54200:               FINISH ) {lev=2}

   853           CODE(PPCURR)=OPCODE
6998 @ 54201:               LINE   853 "regression-compile-tmp/imp918s.imp"
6999 @ 54239:               PUSH   CODE
7000 @ 54242:               PUSH   PPCURR
7001 @ 54245:               ACCESS
7002 @ 54246:               PUSH   OPCODE
7003 @ 54249:               ASSVAL

   854           CODE(PPCURR+1)=J
7004 @ 54250:               LINE   854 "regression-compile-tmp/imp918s.imp"
7005 @ 54288:               PUSH   CODE
7006 @ 54291:               PUSH   PPCURR
7007 @ 54294:               PUSHI  #0x00000001
7008 @ 54299:               ADD   
7009 @ 54300:               ACCESS
7010 @ 54301:               PUSH   J
7011 @ 54304:               ASSVAL

   855           SHORT INTEGER(ADDR(CODE(PPCURR+2)))<- B<<12!D
7012 @ 54305:               LINE   855 "regression-compile-tmp/imp918s.imp"
7013 @ 54343:               PUSH   SHORTINTEGER
7014 @ 54346:               PUSH   ADDR
7015 @ 54349:               PUSH   CODE
7016 @ 54352:               PUSH   PPCURR
7017 @ 54355:               PUSHI  #0x00000002
7018 @ 54360:               ADD   
7019 @ 54361:               ACCESS
7020 @ 54362:               ASSPAR
7021 @ 54363:               CALL  
7022 @ 54364:               ASSPAR
7023 @ 54365:               CALL  
7024 @ 54366:               PUSH   B
7025 @ 54369:               PUSHI  #0x0000000c
7026 @ 54374:               LSH   
7027 @ 54375:               PUSH   D
7028 @ 54378:               OR    
7029 @ 54379:               JAM   

   856           PPCURR=PPCURR+4
7030 @ 54380:               LINE   856 "regression-compile-tmp/imp918s.imp"
7031 @ 54418:               PUSH   PPCURR
7032 @ 54421:               PUSH   PPCURR
7033 @ 54424:               PUSHI  #0x00000004
7034 @ 54429:               ADD   
7035 @ 54430:               ASSVAL

   857           CA=CA+4
7036 @ 54431:               LINE   857 "regression-compile-tmp/imp918s.imp"
7037 @ 54469:               PUSH   CA
7038 @ 54472:               PUSH   CA
7039 @ 54475:               PUSHI  #0x00000004
7040 @ 54480:               ADD   
7041 @ 54481:               ASSVAL

   858           CODEOUT %IF PPCURR>=256
7042 @ 54482:               LINE   858 "regression-compile-tmp/imp918s.imp"
7043 @ 54520:               PUSH   PPCURR
7044 @ 54523:               PUSHI  #0x00000100
7045 @ 54528:               JUMPIF < L_0004
7046 @ 54532:               PUSH   CODEOUT
7047 @ 54535:               CALL  
7048 @ 54536:               LOCATE L_0004

   859           %END
7049 @ 54539:               LINE   859 "regression-compile-tmp/imp918s.imp"
7050 @ 54577:            END    _lev0id0_PSI {lev=2 --> 1}

   860           %ROUTINE PSS(%INTEGER OPCODE,N,B1,D1,B2,D2)
7051 @ 54578:            LINE   860 "regression-compile-tmp/imp918s.imp"
7052 @ 54616:            DEF    PSS (_lev0id0_PSS) p1=V_012a 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
7053 @ 54631:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
7054 @ 54632:                  DEF    OPCODE p1=V_015e 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
7055 @ 54650:                  DEF    N p1=V_015f 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
7056 @ 54663:                  DEF    B1 p1=V_0160 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
7057 @ 54677:                  DEF    D1 p1=V_0161 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
7058 @ 54691:                  DEF    B2 p1=V_0162 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
7059 @ 54705:                  DEF    D2 p1=V_0163 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
7060 @ 54719:               FINISH ) {lev=2}

   861           CODE(PPCURR)=OPCODE
7061 @ 54720:               LINE   861 "regression-compile-tmp/imp918s.imp"
7062 @ 54758:               PUSH   CODE
7063 @ 54761:               PUSH   PPCURR
7064 @ 54764:               ACCESS
7065 @ 54765:               PUSH   OPCODE
7066 @ 54768:               ASSVAL

   862           N=N-1 %UNLESS N=0
7067 @ 54769:               LINE   862 "regression-compile-tmp/imp918s.imp"
7068 @ 54807:               PUSH   N
7069 @ 54810:               PUSHI  #0x00000000
7070 @ 54815:               JUMPIF = L_0004
7071 @ 54819:               PUSH   N
7072 @ 54822:               PUSH   N
7073 @ 54825:               PUSHI  #0x00000001
7074 @ 54830:               SUB   
7075 @ 54831:               ASSVAL
7076 @ 54832:               LOCATE L_0004

   863           CODE(PPCURR+1)=N
7077 @ 54835:               LINE   863 "regression-compile-tmp/imp918s.imp"
7078 @ 54873:               PUSH   CODE
7079 @ 54876:               PUSH   PPCURR
7080 @ 54879:               PUSHI  #0x00000001
7081 @ 54884:               ADD   
7082 @ 54885:               ACCESS
7083 @ 54886:               PUSH   N
7084 @ 54889:               ASSVAL

   864           SHORT INTEGER(ADDR(CODE(PPCURR+2)))<- B1<<12!D1
7085 @ 54890:               LINE   864 "regression-compile-tmp/imp918s.imp"
7086 @ 54928:               PUSH   SHORTINTEGER
7087 @ 54931:               PUSH   ADDR
7088 @ 54934:               PUSH   CODE
7089 @ 54937:               PUSH   PPCURR
7090 @ 54940:               PUSHI  #0x00000002
7091 @ 54945:               ADD   
7092 @ 54946:               ACCESS
7093 @ 54947:               ASSPAR
7094 @ 54948:               CALL  
7095 @ 54949:               ASSPAR
7096 @ 54950:               CALL  
7097 @ 54951:               PUSH   B1
7098 @ 54954:               PUSHI  #0x0000000c
7099 @ 54959:               LSH   
7100 @ 54960:               PUSH   D1
7101 @ 54963:               OR    
7102 @ 54964:               JAM   

   865           SHORT INTEGER(ADDR(CODE(PPCURR+4)))<- B2<<12!D2
7103 @ 54965:               LINE   865 "regression-compile-tmp/imp918s.imp"
7104 @ 55003:               PUSH   SHORTINTEGER
7105 @ 55006:               PUSH   ADDR
7106 @ 55009:               PUSH   CODE
7107 @ 55012:               PUSH   PPCURR
7108 @ 55015:               PUSHI  #0x00000004
7109 @ 55020:               ADD   
7110 @ 55021:               ACCESS
7111 @ 55022:               ASSPAR
7112 @ 55023:               CALL  
7113 @ 55024:               ASSPAR
7114 @ 55025:               CALL  
7115 @ 55026:               PUSH   B2
7116 @ 55029:               PUSHI  #0x0000000c
7117 @ 55034:               LSH   
7118 @ 55035:               PUSH   D2
7119 @ 55038:               OR    
7120 @ 55039:               JAM   

   866           PPCURR=PPCURR+6
7121 @ 55040:               LINE   866 "regression-compile-tmp/imp918s.imp"
7122 @ 55078:               PUSH   PPCURR
7123 @ 55081:               PUSH   PPCURR
7124 @ 55084:               PUSHI  #0x00000006
7125 @ 55089:               ADD   
7126 @ 55090:               ASSVAL

   867           CA=CA+6
7127 @ 55091:               LINE   867 "regression-compile-tmp/imp918s.imp"
7128 @ 55129:               PUSH   CA
7129 @ 55132:               PUSH   CA
7130 @ 55135:               PUSHI  #0x00000006
7131 @ 55140:               ADD   
7132 @ 55141:               ASSVAL

   868           CODEOUT %IF PPCURR>=256
7133 @ 55142:               LINE   868 "regression-compile-tmp/imp918s.imp"
7134 @ 55180:               PUSH   PPCURR
7135 @ 55183:               PUSHI  #0x00000100
7136 @ 55188:               JUMPIF < L_0004
7137 @ 55192:               PUSH   CODEOUT
7138 @ 55195:               CALL  
7139 @ 55196:               LOCATE L_0004

   869           %END
7140 @ 55199:               LINE   869 "regression-compile-tmp/imp918s.imp"
7141 @ 55237:            END    _lev0id0_PSS {lev=2 --> 1}

   870           %ROUTINE PMVC(%INTEGER L,B1,D1,B2,D2)
   871           {%SHORTROUTINE}
   872  !***********************************************************************
   873  !*         PLANTS AN MVC INSTRN. IN OPTIMISING MODE TRIES TO GLUE IT   *
   874  !*         ON TO THE LAST ONE PLANTED                                  *
   875  !***********************************************************************
7142 @ 55238:            LINE   870 "regression-compile-tmp/imp918s.imp"
7143 @ 55276:            DEF    PMVC (_lev0id0_PMVC) p1=V_015e 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
7144 @ 55292:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
7145 @ 55293:                  DEF    L p1=V_015f 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
7146 @ 55306:                  DEF    B1 p1=V_0160 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
7147 @ 55320:                  DEF    D1 p1=V_0161 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
7148 @ 55334:                  DEF    B2 p1=V_0162 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
7149 @ 55348:                  DEF    D2 p1=V_0163 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
7150 @ 55362:               FINISH ) {lev=2}

   876           %OWNINTEGER LL,LB1,LD1,LB2,LD2
7151 @ 55363:               LINE   876 "regression-compile-tmp/imp918s.imp"
7152 @ 55401:               DEF    LL p1=V_0164 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
7153 @ 55415:               INIT   1
7154 @ 55418:               DEF    LB1 p1=V_0165 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
7155 @ 55433:               INIT   1
7156 @ 55436:               DEF    LD1 p1=V_0166 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
7157 @ 55451:               INIT   1
7158 @ 55454:               DEF    LB2 p1=V_0167 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
7159 @ 55469:               INIT   1
7160 @ 55472:               DEF    LD2 p1=V_0168 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
7161 @ 55487:               INIT   1

   877           %IF CHECKSP#1 %THEN %START
7162 @ 55490:               LINE   877 "regression-compile-tmp/imp918s.imp"
7163 @ 55528:               PUSH   CHECKSP
7164 @ 55531:               PUSHI  #0x00000001
7165 @ 55536:               JUMPIF = L_0004

   878              %IF LCA+6=CA %AND B1=LB1 %AND B2=LB2 %AND LOPCODE=X'D2' %C
   879                  %AND D1=LD1+LL %AND D2=LD2+LL %AND LL+L<=256 %START
7166 @ 55540:               LINE   878 "regression-compile-tmp/imp918s.imp"
7167 @ 55578:               PUSH   LCA
7168 @ 55581:               PUSHI  #0x00000006
7169 @ 55586:               ADD   
7170 @ 55587:               PUSH   CA
7171 @ 55590:               JUMPIF # L_0007
7172 @ 55594:               PUSH   B1
7173 @ 55597:               PUSH   LB1
7174 @ 55600:               JUMPIF # L_0007
7175 @ 55604:               PUSH   B2
7176 @ 55607:               PUSH   LB2
7177 @ 55610:               JUMPIF # L_0007
7178 @ 55614:               PUSH   LOPCODE
7179 @ 55617:               PUSHI  #0x000000d2
7180 @ 55622:               JUMPIF # L_0007
7181 @ 55626:               PUSH   D1
7182 @ 55629:               PUSH   LD1
7183 @ 55632:               PUSH   LL
7184 @ 55635:               ADD   
7185 @ 55636:               JUMPIF # L_0007
7186 @ 55640:               PUSH   D2
7187 @ 55643:               PUSH   LD2
7188 @ 55646:               PUSH   LL
7189 @ 55649:               ADD   
7190 @ 55650:               JUMPIF # L_0007
7191 @ 55654:               PUSH   LL
7192 @ 55657:               PUSH   L
7193 @ 55660:               ADD   
7194 @ 55661:               PUSHI  #0x00000100
7195 @ 55666:               JUMPIF > L_0007

   880                 MOVE BACK PC
7196 @ 55670:               LINE   880 "regression-compile-tmp/imp918s.imp"
7197 @ 55708:               PUSH   MOVEBACKPC
7198 @ 55711:               CALL  

   881                 CA=LCA; L=L+LL
7199 @ 55712:               LINE   881 "regression-compile-tmp/imp918s.imp"
7200 @ 55750:               PUSH   CA
7201 @ 55753:               PUSH   LCA
7202 @ 55756:               ASSVAL
7203 @ 55757:               LINE   881 "regression-compile-tmp/imp918s.imp"
7204 @ 55795:               PUSH   L
7205 @ 55798:               PUSH   L
7206 @ 55801:               PUSH   LL
7207 @ 55804:               ADD   
7208 @ 55805:               ASSVAL

   882                 D1=LD1; D2=LD2
7209 @ 55806:               LINE   882 "regression-compile-tmp/imp918s.imp"
7210 @ 55844:               PUSH   D1
7211 @ 55847:               PUSH   LD1
7212 @ 55850:               ASSVAL
7213 @ 55851:               LINE   882 "regression-compile-tmp/imp918s.imp"
7214 @ 55889:               PUSH   D2
7215 @ 55892:               PUSH   LD2
7216 @ 55895:               ASSVAL

   883              %FINISH
7217 @ 55896:               LINE   883 "regression-compile-tmp/imp918s.imp"
7218 @ 55934:               LOCATE L_0007

   884              LCA=CA; LL=L; LB1=B1; LD1=D1
7219 @ 55937:               LINE   884 "regression-compile-tmp/imp918s.imp"
7220 @ 55975:               PUSH   LCA
7221 @ 55978:               PUSH   CA
7222 @ 55981:               ASSVAL
7223 @ 55982:               LINE   884 "regression-compile-tmp/imp918s.imp"
7224 @ 56020:               PUSH   LL
7225 @ 56023:               PUSH   L
7226 @ 56026:               ASSVAL
7227 @ 56027:               LINE   884 "regression-compile-tmp/imp918s.imp"
7228 @ 56065:               PUSH   LB1
7229 @ 56068:               PUSH   B1
7230 @ 56071:               ASSVAL
7231 @ 56072:               LINE   884 "regression-compile-tmp/imp918s.imp"
7232 @ 56110:               PUSH   LD1
7233 @ 56113:               PUSH   D1
7234 @ 56116:               ASSVAL

   885              LB2=B2; LD2=D2; LOPCODE=X'D2'
7235 @ 56117:               LINE   885 "regression-compile-tmp/imp918s.imp"
7236 @ 56155:               PUSH   LB2
7237 @ 56158:               PUSH   B2
7238 @ 56161:               ASSVAL
7239 @ 56162:               LINE   885 "regression-compile-tmp/imp918s.imp"
7240 @ 56200:               PUSH   LD2
7241 @ 56203:               PUSH   D2
7242 @ 56206:               ASSVAL
7243 @ 56207:               LINE   885 "regression-compile-tmp/imp918s.imp"
7244 @ 56245:               PUSH   LOPCODE
7245 @ 56248:               PUSHI  #0x000000d2
7246 @ 56253:               ASSVAL

   886           %FINISH
7247 @ 56254:               LINE   886 "regression-compile-tmp/imp918s.imp"
7248 @ 56292:               LOCATE L_0004

   887           PSS(X'D2',L,B1,D1,B2,D2)
7249 @ 56295:               LINE   887 "regression-compile-tmp/imp918s.imp"
7250 @ 56333:               PUSH   PSS
7251 @ 56336:               PUSHI  #0x000000d2
7252 @ 56341:               ASSPAR
7253 @ 56342:               PUSH   L
7254 @ 56345:               ASSPAR
7255 @ 56346:               PUSH   B1
7256 @ 56349:               ASSPAR
7257 @ 56350:               PUSH   D1
7258 @ 56353:               ASSPAR
7259 @ 56354:               PUSH   B2
7260 @ 56357:               ASSPAR
7261 @ 56358:               PUSH   D2
7262 @ 56361:               ASSPAR
7263 @ 56362:               CALL  

   888           %END
7264 @ 56363:               LINE   888 "regression-compile-tmp/imp918s.imp"
7265 @ 56401:            END    _lev0id0_PMVC {lev=2 --> 1}

   889           %ROUTINE     CNOP(%INTEGER I,J)
7266 @ 56402:            LINE   889 "regression-compile-tmp/imp918s.imp"
7267 @ 56440:            DEF    CNOP (_lev0id0_CNOP) p1=V_0127 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
7268 @ 56456:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
7269 @ 56457:                  DEF    I p1=V_015f 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
7270 @ 56470:                  DEF    J p1=V_0160 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
7271 @ 56483:               FINISH ) {lev=2}

   890           PLANT(X'0700') %WHILE CA&(J-1)#I
7272 @ 56484:               LINE   890 "regression-compile-tmp/imp918s.imp"
7273 @ 56522:               LOCATE L_0003
7274 @ 56525:               PUSH   CA
7275 @ 56528:               PUSH   J
7276 @ 56531:               PUSHI  #0x00000001
7277 @ 56536:               SUB   
7278 @ 56537:               AND   
7279 @ 56538:               PUSH   I
7280 @ 56541:               JUMPIF = L_0004
7281 @ 56545:               PUSH   PLANT
7282 @ 56548:               PUSHI  #0x00000700
7283 @ 56553:               ASSPAR
7284 @ 56554:               CALL  
7285 @ 56555:               REPEAT L_0003
7286 @ 56558:               LOCATE L_0004

   891           %END
7287 @ 56561:               LINE   891 "regression-compile-tmp/imp918s.imp"
7288 @ 56599:            END    _lev0id0_CNOP {lev=2 --> 1}

   892           %ROUTINE PGLA(%INTEGER BDRY,L,INF ADR)
   893           {%SHORTROUTINE}
7289 @ 56600:            LINE   892 "regression-compile-tmp/imp918s.imp"
7290 @ 56638:            DEF    PGLA (_lev0id0_PGLA) p1=V_012e 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
7291 @ 56654:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
7292 @ 56655:                  DEF    BDRY p1=V_015f 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
7293 @ 56671:                  DEF    L p1=V_0160 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
7294 @ 56684:                  DEF    INFADR p1=V_0161 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
7295 @ 56702:               FINISH ) {lev=2}

   894           %INTEGER I,J
7296 @ 56703:               LINE   894 "regression-compile-tmp/imp918s.imp"
7297 @ 56741:               DEF    I p1=V_0162 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
7298 @ 56754:               DEF    J p1=V_0163 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

   895           J=GLACA; GLACA=(J+BDRY-1)&(-BDRY)
7299 @ 56767:               LINE   895 "regression-compile-tmp/imp918s.imp"
7300 @ 56805:               PUSH   J
7301 @ 56808:               PUSH   GLACA
7302 @ 56811:               ASSVAL
7303 @ 56812:               LINE   895 "regression-compile-tmp/imp918s.imp"
7304 @ 56850:               PUSH   GLACA
7305 @ 56853:               PUSH   J
7306 @ 56856:               PUSH   BDRY
7307 @ 56859:               ADD   
7308 @ 56860:               PUSHI  #0x00000001
7309 @ 56865:               SUB   
7310 @ 56866:               PUSH   BDRY
7311 @ 56869:               NEGATE
7312 @ 56870:               AND   
7313 @ 56871:               ASSVAL

   896           GLACURR=GLACURR+GLACA-J;      ! COMPLETE THE ROUNDING
   897  !
   898  ! RECORD HOLES IN THE GLA FOR FUTURE USE
   899  !
7314 @ 56872:               LINE   896 "regression-compile-tmp/imp918s.imp"
7315 @ 56910:               PUSH   GLACURR
7316 @ 56913:               PUSH   GLACURR
7317 @ 56916:               PUSH   GLACA
7318 @ 56919:               ADD   
7319 @ 56920:               PUSH   J
7320 @ 56923:               SUB   
7321 @ 56924:               ASSVAL

   900           %IF J&1#0 %THEN J=J+1
7322 @ 56925:               LINE   900 "regression-compile-tmp/imp918s.imp"
7323 @ 56963:               PUSH   J
7324 @ 56966:               PUSHI  #0x00000001
7325 @ 56971:               AND   
7326 @ 56972:               PUSHI  #0x00000000
7327 @ 56977:               JUMPIF = L_0004
7328 @ 56981:               PUSH   J
7329 @ 56984:               PUSH   J
7330 @ 56987:               PUSHI  #0x00000001
7331 @ 56992:               ADD   
7332 @ 56993:               ASSVAL
7333 @ 56994:               LOCATE L_0004

   901           %WHILE J+2<=GLACA %CYCLE
7334 @ 56997:               LINE   901 "regression-compile-tmp/imp918s.imp"
7335 @ 57035:               LOCATE L_0003
7336 @ 57038:               PUSH   J
7337 @ 57041:               PUSHI  #0x00000002
7338 @ 57046:               ADD   
7339 @ 57047:               PUSH   GLACA
7340 @ 57050:               JUMPIF > L_0004

   902              PUSH(GLAHOLES,J,0)
7341 @ 57054:               LINE   902 "regression-compile-tmp/imp918s.imp"
7342 @ 57092:               PUSH   PUSH
7343 @ 57095:               PUSH   GLAHOLES
7344 @ 57098:               ASSPAR
7345 @ 57099:               PUSH   J
7346 @ 57102:               ASSPAR
7347 @ 57103:               PUSHI  #0x00000000
7348 @ 57108:               ASSPAR
7349 @ 57109:               CALL  

   903              J=J+2
7350 @ 57110:               LINE   903 "regression-compile-tmp/imp918s.imp"
7351 @ 57148:               PUSH   J
7352 @ 57151:               PUSH   J
7353 @ 57154:               PUSHI  #0x00000002
7354 @ 57159:               ADD   
7355 @ 57160:               ASSVAL

   904           %REPEAT
7356 @ 57161:               LINE   904 "regression-compile-tmp/imp918s.imp"
7357 @ 57199:               REPEAT L_0003
7358 @ 57202:               LOCATE L_0004

   905           %IF L+GLACURR>256 %THEN %START
7359 @ 57205:               LINE   905 "regression-compile-tmp/imp918s.imp"
7360 @ 57243:               PUSH   L
7361 @ 57246:               PUSH   GLACURR
7362 @ 57249:               ADD   
7363 @ 57250:               PUSHI  #0x00000100
7364 @ 57255:               JUMPIF <= L_0004

   906              %IF INHCODE=0 %THEN LPUT(2,GLACURR,GLACABUF,ADDR(GLABUF(0)))
7365 @ 57259:               LINE   906 "regression-compile-tmp/imp918s.imp"
7366 @ 57297:               PUSH   INHCODE
7367 @ 57300:               PUSHI  #0x00000000
7368 @ 57305:               JUMPIF # L_0007
7369 @ 57309:               PUSH   LPUT
7370 @ 57312:               PUSHI  #0x00000002
7371 @ 57317:               ASSPAR
7372 @ 57318:               PUSH   GLACURR
7373 @ 57321:               ASSPAR
7374 @ 57322:               PUSH   GLACABUF
7375 @ 57325:               ASSPAR
7376 @ 57326:               PUSH   ADDR
7377 @ 57329:               PUSH   GLABUF
7378 @ 57332:               PUSHI  #0x00000000
7379 @ 57337:               ACCESS
7380 @ 57338:               ASSPAR
7381 @ 57339:               CALL  
7382 @ 57340:               ASSPAR
7383 @ 57341:               CALL  
7384 @ 57342:               LOCATE L_0007

   907              GLACA=(GLACA+1)&(-2)
7385 @ 57345:               LINE   907 "regression-compile-tmp/imp918s.imp"
7386 @ 57383:               PUSH   GLACA
7387 @ 57386:               PUSH   GLACA
7388 @ 57389:               PUSHI  #0x00000001
7389 @ 57394:               ADD   
7390 @ 57395:               PUSHI  #0x00000002
7391 @ 57400:               NEGATE
7392 @ 57401:               AND   
7393 @ 57402:               ASSVAL

   908              GLACURR=0; GLACABUF=GLACA
7394 @ 57403:               LINE   908 "regression-compile-tmp/imp918s.imp"
7395 @ 57441:               PUSH   GLACURR
7396 @ 57444:               PUSHI  #0x00000000
7397 @ 57449:               ASSVAL
7398 @ 57450:               LINE   908 "regression-compile-tmp/imp918s.imp"
7399 @ 57488:               PUSH   GLACABUF
7400 @ 57491:               PUSH   GLACA
7401 @ 57494:               ASSVAL

   909           %FINISH
   910  !%if USE MC = 1 %start
   911  !         *LM_1,2,L; *L_3,GLABUF
   912  !         *A_3,GLACURR; *BCTR_1,0
   913  !         *EX_1,<MOVE>
   914  !%finish
7402 @ 57495:               LINE   909 "regression-compile-tmp/imp918s.imp"
7403 @ 57533:               LOCATE L_0004

   915           GLACA=GLACA+L; GLACURR=GLACURR+L
7404 @ 57536:               LINE   915 "regression-compile-tmp/imp918s.imp"
7405 @ 57574:               PUSH   GLACA
7406 @ 57577:               PUSH   GLACA
7407 @ 57580:               PUSH   L
7408 @ 57583:               ADD   
7409 @ 57584:               ASSVAL
7410 @ 57585:               LINE   915 "regression-compile-tmp/imp918s.imp"
7411 @ 57623:               PUSH   GLACURR
7412 @ 57626:               PUSH   GLACURR
7413 @ 57629:               PUSH   L
7414 @ 57632:               ADD   
7415 @ 57633:               ASSVAL

   916           %RETURN
   917  !%if USE MC = 1 %start
   918  !MOVE:    *MVC_0(1,3),0(2)
   919  !%finish
7416 @ 57634:               LINE   916 "regression-compile-tmp/imp918s.imp"
7417 @ 57672:               RETURN

   920           %END
7418 @ 57673:               LINE   920 "regression-compile-tmp/imp918s.imp"
7419 @ 57711:            END    _lev0id0_PGLA {lev=2 --> 1}

   921           %ROUTINE     PLUG(%INTEGER AREA,AT,VALUE)
   922           {%SHORTROUTINE}
   923  !***********************************************************************
   924  !*       WRITE ONE HALFWORD INTO OBJECT FILE OUT OF SEQUENCE           *
   925  !***********************************************************************
7420 @ 57712:            LINE   921 "regression-compile-tmp/imp918s.imp"
7421 @ 57750:            DEF    PLUG (_lev0id0_PLUG) p1=V_0131 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
7422 @ 57766:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
7423 @ 57767:                  DEF    AREA p1=V_015f 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
7424 @ 57783:                  DEF    AT p1=V_0160 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
7425 @ 57797:                  DEF    VALUE p1=V_0161 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
7426 @ 57814:               FINISH ) {lev=2}

   926           %INTEGERNAME WCABUF
7427 @ 57815:               LINE   926 "regression-compile-tmp/imp918s.imp"
7428 @ 57853:               DEF    WCABUF p1=V_0162 a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   927           %INTEGER RELAD,BUFAD
7429 @ 57871:               LINE   927 "regression-compile-tmp/imp918s.imp"
7430 @ 57909:               DEF    RELAD p1=V_0163 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
7431 @ 57926:               DEF    BUFAD p1=V_0164 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

   928           WCABUF==CABUF; BUFAD=ADDR(CODE(0))
7432 @ 57943:               LINE   928 "regression-compile-tmp/imp918s.imp"
7433 @ 57981:               PUSH   WCABUF
7434 @ 57984:               PUSH   CABUF
7435 @ 57987:               ASSREF
7436 @ 57988:               LINE   928 "regression-compile-tmp/imp918s.imp"
7437 @ 58026:               PUSH   BUFAD
7438 @ 58029:               PUSH   ADDR
7439 @ 58032:               PUSH   CODE
7440 @ 58035:               PUSHI  #0x00000000
7441 @ 58040:               ACCESS
7442 @ 58041:               ASSPAR
7443 @ 58042:               CALL  
7444 @ 58043:               ASSVAL

   929           %IF AREA=2 %THEN WCABUF==GLACABUF %AND BUFAD=ADDR(GLABUF(0))
7445 @ 58044:               LINE   929 "regression-compile-tmp/imp918s.imp"
7446 @ 58082:               PUSH   AREA
7447 @ 58085:               PUSHI  #0x00000002
7448 @ 58090:               JUMPIF # L_0004
7449 @ 58094:               PUSH   WCABUF
7450 @ 58097:               PUSH   GLACABUF
7451 @ 58100:               ASSREF
7452 @ 58101:               PUSH   BUFAD
7453 @ 58104:               PUSH   ADDR
7454 @ 58107:               PUSH   GLABUF
7455 @ 58110:               PUSHI  #0x00000000
7456 @ 58115:               ACCESS
7457 @ 58116:               ASSPAR
7458 @ 58117:               CALL  
7459 @ 58118:               ASSVAL
7460 @ 58119:               LOCATE L_0004

   930           RELAD=AT-WCABUF
7461 @ 58122:               LINE   930 "regression-compile-tmp/imp918s.imp"
7462 @ 58160:               PUSH   RELAD
7463 @ 58163:               PUSH   AT
7464 @ 58166:               PUSH   WCABUF
7465 @ 58169:               SUB   
7466 @ 58170:               ASSVAL

   931           %IF RELAD>=0 %THEN SHORTINTEGER(RELAD+BUFAD)<-VALUE %ELSESTART
7467 @ 58171:               LINE   931 "regression-compile-tmp/imp918s.imp"
7468 @ 58209:               PUSH   RELAD
7469 @ 58212:               PUSHI  #0x00000000
7470 @ 58217:               JUMPIF < L_0004
7471 @ 58221:               PUSH   SHORTINTEGER
7472 @ 58224:               PUSH   RELAD
7473 @ 58227:               PUSH   BUFAD
7474 @ 58230:               ADD   
7475 @ 58231:               ASSPAR
7476 @ 58232:               CALL  
7477 @ 58233:               PUSH   VALUE
7478 @ 58236:               JAM   
7479 @ 58237:               GOTO   L_0003
7480 @ 58240:               LOCATE L_0004

   932              %IF INHCODE=0 %THEN LPUT(AREA,2,AT,ADDR(VALUE)+2)
7481 @ 58243:               LINE   932 "regression-compile-tmp/imp918s.imp"
7482 @ 58281:               PUSH   INHCODE
7483 @ 58284:               PUSHI  #0x00000000
7484 @ 58289:               JUMPIF # L_0007
7485 @ 58293:               PUSH   LPUT
7486 @ 58296:               PUSH   AREA
7487 @ 58299:               ASSPAR
7488 @ 58300:               PUSHI  #0x00000002
7489 @ 58305:               ASSPAR
7490 @ 58306:               PUSH   AT
7491 @ 58309:               ASSPAR
7492 @ 58310:               PUSH   ADDR
7493 @ 58313:               PUSH   VALUE
7494 @ 58316:               ASSPAR
7495 @ 58317:               CALL  
7496 @ 58318:               PUSHI  #0x00000002
7497 @ 58323:               ADD   
7498 @ 58324:               ASSPAR
7499 @ 58325:               CALL  
7500 @ 58326:               LOCATE L_0007

   933           %FINISH
7501 @ 58329:               LINE   933 "regression-compile-tmp/imp918s.imp"
7502 @ 58367:               LOCATE L_0003

   934           %END
7503 @ 58370:               LINE   934 "regression-compile-tmp/imp918s.imp"
7504 @ 58408:            END    _lev0id0_PLUG {lev=2 --> 1}

   935           %ROUTINE SET PERMBASE
7505 @ 58409:            LINE   935 "regression-compile-tmp/imp918s.imp"
7506 @ 58447:            DEF    SETPERMBASE (_lev0id0_SETPERMBASE) p1=V_0130 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
7507 @ 58470:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
7508 @ 58471:               FINISH ) {lev=2}

   936           PCONST(X'58CD005C')
7509 @ 58472:               LINE   936 "regression-compile-tmp/imp918s.imp"
7510 @ 58510:               PUSH   PCONST
7511 @ 58513:               PUSHI  #0x58cd005c
7512 @ 58518:               ASSPAR
7513 @ 58519:               CALL  

   937           REGISTER(12)=-1
7514 @ 58520:               LINE   937 "regression-compile-tmp/imp918s.imp"
7515 @ 58558:               PUSH   REGISTER
7516 @ 58561:               PUSHI  #0x0000000c
7517 @ 58566:               ACCESS
7518 @ 58567:               PUSHI  #0x00000001
7519 @ 58572:               NEGATE
7520 @ 58573:               ASSVAL

   938           GRUSE(12)=18
7521 @ 58574:               LINE   938 "regression-compile-tmp/imp918s.imp"
7522 @ 58612:               PUSH   GRUSE
7523 @ 58615:               PUSHI  #0x0000000c
7524 @ 58620:               ACCESS
7525 @ 58621:               PUSHI  #0x00000012
7526 @ 58626:               ASSVAL

   939           GRINF(12)=0
7527 @ 58627:               LINE   939 "regression-compile-tmp/imp918s.imp"
7528 @ 58665:               PUSH   GRINF
7529 @ 58668:               PUSHI  #0x0000000c
7530 @ 58673:               ACCESS
7531 @ 58674:               PUSHI  #0x00000000
7532 @ 58679:               ASSVAL

   940           %END
7533 @ 58680:               LINE   940 "regression-compile-tmp/imp918s.imp"
7534 @ 58718:            END    _lev0id0_SETPERMBASE {lev=2 --> 1}

   941           %ROUTINE     PRHEX(%INTEGER VALUE,PLACES)
7535 @ 58719:            LINE   941 "regression-compile-tmp/imp918s.imp"
7536 @ 58757:            DEF    PRHEX (_lev0id0_PRHEX) p1=V_0132 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
7537 @ 58774:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
7538 @ 58775:                  DEF    VALUE p1=V_015f 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
7539 @ 58792:                  DEF    PLACES p1=V_0160 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
7540 @ 58810:               FINISH ) {lev=2}

   942           %OWNINTEGER HT1=M'0123'
7541 @ 58811:               LINE   942 "regression-compile-tmp/imp918s.imp"
7542 @ 58849:               PUSHI  #0x30313233
7543 @ 58854:               DEF    HT1 p1=V_0161 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
7544 @ 58869:               INIT   1

   943           %OWNINTEGER HT2=M'4567'
7545 @ 58872:               LINE   943 "regression-compile-tmp/imp918s.imp"
7546 @ 58910:               PUSHI  #0x34353637
7547 @ 58915:               DEF    HT2 p1=V_0162 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
7548 @ 58930:               INIT   1

   944           %OWNINTEGER HT3=M'89AB'
7549 @ 58933:               LINE   944 "regression-compile-tmp/imp918s.imp"
7550 @ 58971:               PUSHI  #0x38394142
7551 @ 58976:               DEF    HT3 p1=V_0163 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
7552 @ 58991:               INIT   1

   945           %OWNINTEGER HT4=M'CDEF'
7553 @ 58994:               LINE   945 "regression-compile-tmp/imp918s.imp"
7554 @ 59032:               PUSHI  #0x43444546
7555 @ 59037:               DEF    HT4 p1=V_0164 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
7556 @ 59052:               INIT   1

   946           %INTEGER W1,W2,W3
   947  !%if USE MC = 1 %start
   948  !         *UNPK_W1+1(9),VALUE(5)
   949  !         *NC_W1+1(8),MASK1
   950  !         *TR_W1+1(8),HT1
   951  !         *LA_1,W1+8; *S_1,PLACES
   952  !         *MVC_ 0(1,1),PLACES+3
   953  !         *-> P5;                       ! PRINTSTRING IN PERM
   954  !%finish
7557 @ 59055:               LINE   946 "regression-compile-tmp/imp918s.imp"
7558 @ 59093:               DEF    W1 p1=V_0165 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
7559 @ 59107:               DEF    W2 p1=V_0166 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
7560 @ 59121:               DEF    W3 p1=V_0167 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

   955           %END
7561 @ 59135:               LINE   955 "regression-compile-tmp/imp918s.imp"
7562 @ 59173:            END    _lev0id0_PRHEX {lev=2 --> 1}

   956           %ROUTINE GET ENV(%SHORTINTEGERNAME HEAD)
   957           {%SHORTROUTINE}
   958  !***********************************************************************
   959  !*       SAVE A COPY OF THE REGISTER STATE FOR FUTURE REFERENCE        *
   960  !***********************************************************************
7563 @ 59174:            LINE   956 "regression-compile-tmp/imp918s.imp"
7564 @ 59212:            DEF    GETENV (_lev0id0_GETENV) p1=V_0134 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
7565 @ 59230:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
7566 @ 59231:                  DEF    HEAD p1=V_015f a/tf=12 b/format=3 c/ostate=0  type=1 (integer) form=2 (name) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
7567 @ 59247:               FINISH ) {lev=2}

   961           %INTEGER I,J
7568 @ 59248:               LINE   961 "regression-compile-tmp/imp918s.imp"
7569 @ 59286:               DEF    I p1=V_0160 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
7570 @ 59299:               DEF    J p1=V_0161 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

   962           %CYCLE J=0,1,14; I=GRMAP(J)
7571 @ 59312:               LINE   962 "regression-compile-tmp/imp918s.imp"
7572 @ 59350:               PUSH   J
7573 @ 59353:               PUSHI  #0x00000001
7574 @ 59358:               PUSHI  #0x0000000e
7575 @ 59363:               PUSHI  #0x00000000
7576 @ 59368:               FOR    L_0003
7577 @ 59371:               LINE   962 "regression-compile-tmp/imp918s.imp"
7578 @ 59409:               PUSH   I
7579 @ 59412:               PUSH   GRMAP
7580 @ 59415:               PUSH   J
7581 @ 59418:               ACCESS
7582 @ 59419:               ASSVAL

   963              PUSH123(HEAD,GRINF(I),GRAT(I),I<<8!GRUSE(I)) %IF GRUSE(I)>1
7583 @ 59420:               LINE   963 "regression-compile-tmp/imp918s.imp"
7584 @ 59458:               PUSH   GRUSE
7585 @ 59461:               PUSH   I
7586 @ 59464:               ACCESS
7587 @ 59465:               PUSHI  #0x00000001
7588 @ 59470:               JUMPIF <= L_0007
7589 @ 59474:               PUSH   PUSH123
7590 @ 59477:               PUSH   HEAD
7591 @ 59480:               ASSPAR
7592 @ 59481:               PUSH   GRINF
7593 @ 59484:               PUSH   I
7594 @ 59487:               ACCESS
7595 @ 59488:               ASSPAR
7596 @ 59489:               PUSH   GRAT
7597 @ 59492:               PUSH   I
7598 @ 59495:               ACCESS
7599 @ 59496:               ASSPAR
7600 @ 59497:               PUSH   I
7601 @ 59500:               PUSHI  #0x00000008
7602 @ 59505:               LSH   
7603 @ 59506:               PUSH   GRUSE
7604 @ 59509:               PUSH   I
7605 @ 59512:               ACCESS
7606 @ 59513:               OR    
7607 @ 59514:               ASSPAR
7608 @ 59515:               CALL  
7609 @ 59516:               LOCATE L_0007

   964           %REPEAT
7610 @ 59519:               LINE   964 "regression-compile-tmp/imp918s.imp"
7611 @ 59557:               REPEAT L_0003
7612 @ 59560:               LOCATE L_0004

   965           %END
7613 @ 59563:               LINE   965 "regression-compile-tmp/imp918s.imp"
7614 @ 59601:            END    _lev0id0_GETENV {lev=2 --> 1}

   966           %ROUTINE RESTORE(%SHORTINTEGER HEAD)
   967           {%SHORTROUTINE}
   968  !***********************************************************************
   969  !*       RESET THE REGISTERS TO ENVIRONMENT IN LIST HEADED BY 'HEAD'   *
   970  !***********************************************************************
7615 @ 59602:            LINE   966 "regression-compile-tmp/imp918s.imp"
7616 @ 59640:            DEF    RESTORE (_lev0id0_RESTORE) p1=V_0133 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
7617 @ 59659:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
7618 @ 59660:                  DEF    HEAD p1=V_015f a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
7619 @ 59676:               FINISH ) {lev=2}

   971           %INTEGER I,J,R,USE,INF,AT
7620 @ 59677:               LINE   971 "regression-compile-tmp/imp918s.imp"
7621 @ 59715:               DEF    I p1=V_0160 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
7622 @ 59728:               DEF    J p1=V_0161 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
7623 @ 59741:               DEF    R p1=V_0162 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
7624 @ 59754:               DEF    USE p1=V_0163 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
7625 @ 59769:               DEF    INF p1=V_0164 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
7626 @ 59784:               DEF    AT p1=V_0165 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

   972           CCSTATE=-1
7627 @ 59798:               LINE   972 "regression-compile-tmp/imp918s.imp"
7628 @ 59836:               PUSH   CCSTATE
7629 @ 59839:               PUSHI  #0x00000001
7630 @ 59844:               NEGATE
7631 @ 59845:               ASSVAL

   973           %CYCLE J=0,1,14; I=GRMAP(J)
7632 @ 59846:               LINE   973 "regression-compile-tmp/imp918s.imp"
7633 @ 59884:               PUSH   J
7634 @ 59887:               PUSHI  #0x00000001
7635 @ 59892:               PUSHI  #0x0000000e
7636 @ 59897:               PUSHI  #0x00000000
7637 @ 59902:               FOR    L_0003
7638 @ 59905:               LINE   973 "regression-compile-tmp/imp918s.imp"
7639 @ 59943:               PUSH   I
7640 @ 59946:               PUSH   GRMAP
7641 @ 59949:               PUSH   J
7642 @ 59952:               ACCESS
7643 @ 59953:               ASSVAL

   974              %IF REGISTER(I)>=0 %THEN GRUSE(I)=0 %AND GRINF(I)=0
7644 @ 59954:               LINE   974 "regression-compile-tmp/imp918s.imp"
7645 @ 59992:               PUSH   REGISTER
7646 @ 59995:               PUSH   I
7647 @ 59998:               ACCESS
7648 @ 59999:               PUSHI  #0x00000000
7649 @ 60004:               JUMPIF < L_0007
7650 @ 60008:               PUSH   GRUSE
7651 @ 60011:               PUSH   I
7652 @ 60014:               ACCESS
7653 @ 60015:               PUSHI  #0x00000000
7654 @ 60020:               ASSVAL
7655 @ 60021:               PUSH   GRINF
7656 @ 60024:               PUSH   I
7657 @ 60027:               ACCESS
7658 @ 60028:               PUSHI  #0x00000000
7659 @ 60033:               ASSVAL
7660 @ 60034:               LOCATE L_0007

   975           %REPEAT
7661 @ 60037:               LINE   975 "regression-compile-tmp/imp918s.imp"
7662 @ 60075:               REPEAT L_0003
7663 @ 60078:               LOCATE L_0004

   976           %WHILE HEAD#0 %CYCLE
7664 @ 60081:               LINE   976 "regression-compile-tmp/imp918s.imp"
7665 @ 60119:               LOCATE L_0003
7666 @ 60122:               PUSH   HEAD
7667 @ 60125:               PUSHI  #0x00000000
7668 @ 60130:               JUMPIF = L_0004

   977              POP123(HEAD,INF,AT,I)
7669 @ 60134:               LINE   977 "regression-compile-tmp/imp918s.imp"
7670 @ 60172:               PUSH   POP123
7671 @ 60175:               PUSH   HEAD
7672 @ 60178:               ASSPAR
7673 @ 60179:               PUSH   INF
7674 @ 60182:               ASSPAR
7675 @ 60183:               PUSH   AT
7676 @ 60186:               ASSPAR
7677 @ 60187:               PUSH   I
7678 @ 60190:               ASSPAR
7679 @ 60191:               CALL  

   978              R=I>>8
7680 @ 60192:               LINE   978 "regression-compile-tmp/imp918s.imp"
7681 @ 60230:               PUSH   R
7682 @ 60233:               PUSH   I
7683 @ 60236:               PUSHI  #0x00000008
7684 @ 60241:               RSH   
7685 @ 60242:               ASSVAL

   979              %IF REGISTER(R)>=0 %THEN GRUSE(R)=I&255 %AND GRINF(R)=INF
7686 @ 60243:               LINE   979 "regression-compile-tmp/imp918s.imp"
7687 @ 60281:               PUSH   REGISTER
7688 @ 60284:               PUSH   R
7689 @ 60287:               ACCESS
7690 @ 60288:               PUSHI  #0x00000000
7691 @ 60293:               JUMPIF < L_0007
7692 @ 60297:               PUSH   GRUSE
7693 @ 60300:               PUSH   R
7694 @ 60303:               ACCESS
7695 @ 60304:               PUSH   I
7696 @ 60307:               PUSHI  #0x000000ff
7697 @ 60312:               AND   
7698 @ 60313:               ASSVAL
7699 @ 60314:               PUSH   GRINF
7700 @ 60317:               PUSH   R
7701 @ 60320:               ACCESS
7702 @ 60321:               PUSH   INF
7703 @ 60324:               ASSVAL
7704 @ 60325:               LOCATE L_0007

   980              GRAT(R)=AT
7705 @ 60328:               LINE   980 "regression-compile-tmp/imp918s.imp"
7706 @ 60366:               PUSH   GRAT
7707 @ 60369:               PUSH   R
7708 @ 60372:               ACCESS
7709 @ 60373:               PUSH   AT
7710 @ 60376:               ASSVAL

   981           %REPEAT
7711 @ 60377:               LINE   981 "regression-compile-tmp/imp918s.imp"
7712 @ 60415:               REPEAT L_0003
7713 @ 60418:               LOCATE L_0004

   982           %END
   983  !         %ROUTINE PRINT LIST(%INTEGER HEAD)
   984  !         {%SHORTROUTINE}
   985  !         %INTEGER I,J,K
   986  !1:       %IF HEAD=0 %THEN %RETURN
   987  !         FROM123(HEAD,I,J,K)
   988  !         NEWLINE
   989  !         PRHEX(I,8)
   990  !         SPACES(3)
   991  !         PRHEX(J,8)
   992  !         SPACES(3)
   993  !         PRHEX(K,8)
   994  !         NEWLINE
   995  !         MLINK(HEAD)
   996  !         ->Label1
   997  !         %END
   998  !
   999  ! ******* LIST***PROCESSING***ROUTINES
  1000  ! NEW VERSIONS BASED ON A 96BIT(12 BYTE) UNIT
  1001  ! S1=S2=32 BIT STREAM, S3=16 BIT STREAM
  1002  !
  1003  !         %ROUTINE CHECK ASL
  1004  !! CHECK ASL FOR CONSISTENCY AND PRINT OUT FREE CELLS
  1005  !! FOR DEBUGGING OBSCURE LIST PROCESSING FAULTS ONLY
  1006  !         {%SHORTROUTINE}
  1007  !         %INTEGER N,Q
  1008  !         N=0
  1009  !          Q=ASL
  1010  !1:       ->Label2 %IF Q=0
  1011  !         ABORT %UNLESS Q&3=0
  1012  !          MLINK(Q)
  1013  !          N=N+1
  1014  !          ->Label1
  1015  !2:         printstring(" FREE CELLS=")
  1016  !          WRITE(N,3)
  1017  !         NEWLINE
  1018  !           %END
  1019  !
  1020  !         %INTEGERFN NEW CELL
  1021  !         %INTEGER I
  1022  !%if USE MC = 1 %start
  1023  !         *L_1,ASL
  1024  !         *LTR_2,1
  1025  !         *BC_7,<1>
  1026  !%finish
  1027  !         FAULT(107,0)
  1028  !%if USE MC = 1 %start
  1029  !1:       *A_2,ASLIST
  1030  !         *MVC_ASL+2(2),14(2);         !ASL TO NEXT FREE CELL
  1031  !         *XC_0(16,2),0(2);                  ! NEWCELL TO ZERO
  1032  !         *LM_4,15,16(8)
  1033  !         *BCR_15,15
  1034  !%finish
  1035  !         %END
7714 @ 60421:               LINE   982 "regression-compile-tmp/imp918s.imp"
7715 @ 60459:            END    _lev0id0_RESTORE {lev=2 --> 1}

  1036           %ROUTINE PUSH(%SHORTINTEGERNAME CELL,%INTEGER S1,S2)
  1037  !%if USE MC = 1 %start
  1038  !         *L_4,ASL; *LTR_5,4; *BC_7,<1>
  1039  !%finish
7716 @ 60460:            LINE   1036 "regression-compile-tmp/imp918s.imp"
7717 @ 60498:            DEF    PUSH (_lev0id0_PUSH) p1=V_013a 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
7718 @ 60514:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
7719 @ 60515:                  DEF    CELL p1=V_015f a/tf=12 b/format=3 c/ostate=0  type=1 (integer) form=2 (name) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
7720 @ 60531:                  DEF    S1 p1=V_0160 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
7721 @ 60545:                  DEF    S2 p1=V_0161 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
7722 @ 60559:               FINISH ) {lev=2}

  1040           FAULT(107,0)
  1041  !%if USE MC = 1 %start
  1042  !1:       *A_5,ASLIST; *MVC_ASL+2(2),14(5)
  1043  !         *LM_15,1,CELL; *LH_3,0(15); *SR_2,2
  1044  !         *STH_4,0(15); *STM_0,3,0(5)
  1045  !%finish
7723 @ 60560:               LINE   1040 "regression-compile-tmp/imp918s.imp"
7724 @ 60598:               PUSH   FAULT
7725 @ 60601:               PUSHI  #0x0000006b
7726 @ 60606:               ASSPAR
7727 @ 60607:               PUSHI  #0x00000000
7728 @ 60612:               ASSPAR
7729 @ 60613:               CALL  

  1046           %END
7730 @ 60614:               LINE   1046 "regression-compile-tmp/imp918s.imp"
7731 @ 60652:            END    _lev0id0_PUSH {lev=2 --> 1}

  1047           %ROUTINE PUSH123(%SHORTINTEGERNAME CELL,%INTEGER S1,S2,S3)
  1048  !%if USE MC = 1 %start
  1049  !         *L_4,ASL; *LTR_5,4; *BC_7,<1>
  1050  !%finish
7732 @ 60653:            LINE   1047 "regression-compile-tmp/imp918s.imp"
7733 @ 60691:            DEF    PUSH123 (_lev0id0_PUSH123) p1=V_013b 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
7734 @ 60710:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
7735 @ 60711:                  DEF    CELL p1=V_015f a/tf=12 b/format=3 c/ostate=0  type=1 (integer) form=2 (name) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
7736 @ 60727:                  DEF    S1 p1=V_0160 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
7737 @ 60741:                  DEF    S2 p1=V_0161 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
7738 @ 60755:                  DEF    S3 p1=V_0162 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
7739 @ 60769:               FINISH ) {lev=2}

  1051           FAULT(107,0)
  1052  !%if USE MC = 1 %start
  1053  !1:       *A_5,ASLIST; *MVC_ASL+2(2),14(5)
  1054  !         *LM_15,2,CELL; *LH_3,0(15)
  1055  !         *STH_4,0(15); *STM_0,3,0(5)
  1056  !%finish
7740 @ 60770:               LINE   1051 "regression-compile-tmp/imp918s.imp"
7741 @ 60808:               PUSH   FAULT
7742 @ 60811:               PUSHI  #0x0000006b
7743 @ 60816:               ASSPAR
7744 @ 60817:               PUSHI  #0x00000000
7745 @ 60822:               ASSPAR
7746 @ 60823:               CALL  

  1057           %END
7747 @ 60824:               LINE   1057 "regression-compile-tmp/imp918s.imp"
7748 @ 60862:            END    _lev0id0_PUSH123 {lev=2 --> 1}

  1058           %ROUTINE POP(%SHORTINTEGERNAME CELL,%INTEGERNAME S1,S2)
  1059  !%if USE MC = 1 %start
  1060  !         *LM_1,3,CELL; *LH_4,0(1); *L_15,ASLIST
  1061  !         *L_0,0(4,15); *ST_0,0(2);       ! SET S1
  1062  !         *L_0,4(4,15); *ST_0,0(3);       ! SET S2
  1063  !         *LTR_4,4; *BC_8,<1>;             ! HEAD =0 FOR NULL LIST
  1064  !         *LH_0,14(4,15); *STH_0,0(1);    ! HEADCELL TO OLD 2ND CELL
  1065  !         *L_3,ASL; *STH_3,14(4,15); *ST_4,ASL
  1066  !%finish
7749 @ 60863:            LINE   1058 "regression-compile-tmp/imp918s.imp"
7750 @ 60901:            DEF    POP (_lev0id0_POP) p1=V_0138 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
7751 @ 60916:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
7752 @ 60917:                  DEF    CELL p1=V_015f a/tf=12 b/format=3 c/ostate=0  type=1 (integer) form=2 (name) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
7753 @ 60933:                  DEF    S1 p1=V_0160 a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
7754 @ 60947:                  DEF    S2 p1=V_0161 a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
7755 @ 60961:               FINISH ) {lev=2}

  1067  Label1:       %END
7756 @ 60962:               LINE   1067 "regression-compile-tmp/imp918s.imp"
7757 @ 61000:               LABEL  L_0162
7758 @ 61003:               LINE   1067 "regression-compile-tmp/imp918s.imp"
7759 @ 61041:            END    _lev0id0_POP {lev=2 --> 1}

  1068           %ROUTINE POP123(%SHORTINTEGERNAME CELL,%C
  1069           %INTEGERNAME S1,S2,S3)
  1070  
  1071  !%if USE MC = 1 %start
  1072  !         *LM_1,3,CELL; *LH_4,0(1); *L_15,ASLIST
  1073  !         *L_0,0(4,15); *ST_0,0(2);       ! SET S1
  1074  !         *L_0,4(4,15); *ST_0,0(3);       ! SET S2
  1075  !         *L_0,8(4,15); *L_3,S3; *ST_0,0(3); ! SET S3
  1076  !         *LTR_4,4; *BC_8,<1>;             ! HEAD =0 FOR NULL LIST
  1077  !         *LH_0,14(4,15); *STH_0,0(1);    ! HEADCELL TO OLD 2ND CELL
  1078  !         *L_3,ASL; *STH_3,14(4,15); *ST_4,ASL
  1079  !%finish
7760 @ 61042:            LINE   1068 "regression-compile-tmp/imp918s.imp"
7761 @ 61080:            DEF    POP123 (_lev0id0_POP123) p1=V_0139 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
7762 @ 61098:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
7763 @ 61099:                  DEF    CELL p1=V_015f a/tf=12 b/format=3 c/ostate=0  type=1 (integer) form=2 (name) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
7764 @ 61115:                  DEF    S1 p1=V_0160 a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
7765 @ 61129:                  DEF    S2 p1=V_0161 a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
7766 @ 61143:                  DEF    S3 p1=V_0162 a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
7767 @ 61157:               FINISH ) {lev=2}

  1080  Label1:       %END
7768 @ 61158:               LINE   1080 "regression-compile-tmp/imp918s.imp"
7769 @ 61196:               LABEL  L_0163
7770 @ 61199:               LINE   1080 "regression-compile-tmp/imp918s.imp"
7771 @ 61237:            END    _lev0id0_POP123 {lev=2 --> 1}

  1081           %ROUTINE INSERT AFTER(%SHORTINTEGERNAME CELL,%INTEGER S1,S2)
  1082  !%if USE MC = 1 %start
  1083  !         *L_1,ASL; *LTR_2,1; *BC_7,<2>
  1084  !%finish
7772 @ 61238:            LINE   1081 "regression-compile-tmp/imp918s.imp"
7773 @ 61276:            DEF    INSERTAFTER (_lev0id0_INSERTAFTER) p1=V_0135 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
7774 @ 61299:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
7775 @ 61300:                  DEF    CELL p1=V_015f a/tf=12 b/format=3 c/ostate=0  type=1 (integer) form=2 (name) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
7776 @ 61316:                  DEF    S1 p1=V_0160 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
7777 @ 61330:                  DEF    S2 p1=V_0161 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
7778 @ 61344:               FINISH ) {lev=2}

  1085           FAULT(107,0)
  1086  !%if USE MC = 1 %start
  1087  !2:       *A_2,ASLIST; *MVC_ASL+2(2),14(2)
  1088  !         *SR_0,0; *ST_0,12(2); *ST_0,8(2)
  1089  !         *L_2,ASLIST;*LM_3,4,S1;*ST_3,0(1,2);*ST_4,4(1,2)
  1090  !         *L_4,CELL; *LH_3,0(4); *STH_1,0(4)
  1091  !         *LTR_3,3;*BC_8,<1>;*LH_4,14(3,2)
  1092  !         *STH_4,14(1,2); *STH_1,14(3,2)
  1093  !%finish
7779 @ 61345:               LINE   1085 "regression-compile-tmp/imp918s.imp"
7780 @ 61383:               PUSH   FAULT
7781 @ 61386:               PUSHI  #0x0000006b
7782 @ 61391:               ASSPAR
7783 @ 61392:               PUSHI  #0x00000000
7784 @ 61397:               ASSPAR
7785 @ 61398:               CALL  

  1094  Label1:       %END
  1095  
7786 @ 61399:               LINE   1094 "regression-compile-tmp/imp918s.imp"
7787 @ 61437:               LABEL  L_0162
7788 @ 61440:               LINE   1094 "regression-compile-tmp/imp918s.imp"
7789 @ 61478:            END    _lev0id0_INSERTAFTER {lev=2 --> 1}

  1096  %ROUTINE BINSERT(%SHORTINTEGERNAME TOP,BOT,%INTEGER S1,S2,S3)
  1097  !***********************************************************************
  1098  !*       ADD A NEWCELL AT THE BOTTOM OF A LIST                         *
  1099  !***********************************************************************
  1100  !%if USE MC = 1 %start
  1101  !         *LM_14,2,TOP; *L_3,ASL
  1102  !         *LTR_4,3; *BC_7,<1>
  1103  !%finish
7790 @ 61479:            LINE   1096 "regression-compile-tmp/imp918s.imp"
7791 @ 61517:            DEF    BINSERT (_lev0id0_BINSERT) p1=V_015f 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
7792 @ 61536:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
7793 @ 61537:                  DEF    TOP p1=V_0160 a/tf=12 b/format=3 c/ostate=0  type=1 (integer) form=2 (name) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
7794 @ 61552:                  DEF    BOT p1=V_0161 a/tf=12 b/format=3 c/ostate=0  type=1 (integer) form=2 (name) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
7795 @ 61567:                  DEF    S1 p1=V_0162 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
7796 @ 61581:                  DEF    S2 p1=V_0163 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
7797 @ 61595:                  DEF    S3 p1=V_0164 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
7798 @ 61609:               FINISH ) {lev=2}

  1104           FAULT(107,0)
  1105  !%if USE MC = 1 %start
  1106  !1:       *L_5,ASLIST; *LH_6,14(3,5); *ST_6,ASL
  1107  !         *LH_6,0(15); *LTR_6,6; *BC_7,<2>; ! IS BOT 0 ?
  1108  !         *STH_3,0(14); *BC_15,<3>;      ! YES SET TOP =NEWCELL
  1109  !2:       *STH_3,14(6,5);                ! LINK NEWCELL TO PREV BOT
  1110  !3:       *STH_3,0(15);                  ! BOT =NEWCELL
  1111  !         *SR_3,3; *AR_4,5
  1112  !         *STM_0,3,0(4)
  1113  !%finish
7799 @ 61610:               LINE   1104 "regression-compile-tmp/imp918s.imp"
7800 @ 61648:               PUSH   FAULT
7801 @ 61651:               PUSHI  #0x0000006b
7802 @ 61656:               ASSPAR
7803 @ 61657:               PUSHI  #0x00000000
7804 @ 61662:               ASSPAR
7805 @ 61663:               CALL  

  1114  %END
7806 @ 61664:               LINE   1114 "regression-compile-tmp/imp918s.imp"
7807 @ 61702:            END    _lev0id0_BINSERT {lev=2 --> 1}

  1115           %ROUTINE     REPLACE123(%INTEGER CELL,S1,S2,S3)
  1116  !%if USE MC = 1 %start
  1117  !         *LM_15,2,CELL;*A_15,ASLIST
  1118  !         *STM_0,2,0(15)
  1119  !         *LM_8,15,32(8); *BCR_15,15
  1120  !%finish
7808 @ 61703:            LINE   1115 "regression-compile-tmp/imp918s.imp"
7809 @ 61741:            DEF    REPLACE123 (_lev0id0_REPLACE123) p1=V_0141 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
7810 @ 61763:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
7811 @ 61764:                  DEF    CELL p1=V_0160 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
7812 @ 61780:                  DEF    S1 p1=V_0161 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
7813 @ 61794:                  DEF    S2 p1=V_0162 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
7814 @ 61808:                  DEF    S3 p1=V_0163 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
7815 @ 61822:               FINISH ) {lev=2}

  1121           %END
7816 @ 61823:               LINE   1121 "regression-compile-tmp/imp918s.imp"
7817 @ 61861:            END    _lev0id0_REPLACE123 {lev=2 --> 1}

  1122           %ROUTINE     REPLACE1(%INTEGER CELL,S1)
7818 @ 61862:            LINE   1122 "regression-compile-tmp/imp918s.imp"
7819 @ 61900:            DEF    REPLACE1 (_lev0id0_REPLACE1) p1=V_0140 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
7820 @ 61920:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
7821 @ 61921:                  DEF    CELL p1=V_0160 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
7822 @ 61937:                  DEF    S1 p1=V_0161 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
7823 @ 61951:               FINISH ) {lev=2}

  1123           INTEGER(ADDR(ASLIST(CELL)))=S1
7824 @ 61952:               LINE   1123 "regression-compile-tmp/imp918s.imp"
7825 @ 61990:               PUSH   INTEGER
7826 @ 61993:               PUSH   ADDR
7827 @ 61996:               PUSH   ASLIST
7828 @ 61999:               PUSH   CELL
7829 @ 62002:               ACCESS
7830 @ 62003:               ASSPAR
7831 @ 62004:               CALL  
7832 @ 62005:               ASSPAR
7833 @ 62006:               CALL  
7834 @ 62007:               PUSH   S1
7835 @ 62010:               ASSVAL

  1124           %END
7836 @ 62011:               LINE   1124 "regression-compile-tmp/imp918s.imp"
7837 @ 62049:            END    _lev0id0_REPLACE1 {lev=2 --> 1}

  1125           %ROUTINE     REPLACE2(%INTEGER CELL,S2)
7838 @ 62050:            LINE   1125 "regression-compile-tmp/imp918s.imp"
7839 @ 62088:            DEF    REPLACE2 (_lev0id0_REPLACE2) p1=V_013f 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
7840 @ 62108:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
7841 @ 62109:                  DEF    CELL p1=V_0160 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
7842 @ 62125:                  DEF    S2 p1=V_0161 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
7843 @ 62139:               FINISH ) {lev=2}

  1126           INTEGER(ADDR(ASLIST(CELL+4)))=S2
7844 @ 62140:               LINE   1126 "regression-compile-tmp/imp918s.imp"
7845 @ 62178:               PUSH   INTEGER
7846 @ 62181:               PUSH   ADDR
7847 @ 62184:               PUSH   ASLIST
7848 @ 62187:               PUSH   CELL
7849 @ 62190:               PUSHI  #0x00000004
7850 @ 62195:               ADD   
7851 @ 62196:               ACCESS
7852 @ 62197:               ASSPAR
7853 @ 62198:               CALL  
7854 @ 62199:               ASSPAR
7855 @ 62200:               CALL  
7856 @ 62201:               PUSH   S2
7857 @ 62204:               ASSVAL

  1127           %END
7858 @ 62205:               LINE   1127 "regression-compile-tmp/imp918s.imp"
7859 @ 62243:            END    _lev0id0_REPLACE2 {lev=2 --> 1}

  1128           %ROUTINE     REPLACE3(%INTEGER CELL,S3)
7860 @ 62244:            LINE   1128 "regression-compile-tmp/imp918s.imp"
7861 @ 62282:            DEF    REPLACE3 (_lev0id0_REPLACE3) p1=V_0160 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
7862 @ 62302:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
7863 @ 62303:                  DEF    CELL p1=V_0161 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
7864 @ 62319:                  DEF    S3 p1=V_0162 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
7865 @ 62333:               FINISH ) {lev=2}

  1129           INTEGER(ADDR(ASLIST(CELL+8)))=S3
7866 @ 62334:               LINE   1129 "regression-compile-tmp/imp918s.imp"
7867 @ 62372:               PUSH   INTEGER
7868 @ 62375:               PUSH   ADDR
7869 @ 62378:               PUSH   ASLIST
7870 @ 62381:               PUSH   CELL
7871 @ 62384:               PUSHI  #0x00000008
7872 @ 62389:               ADD   
7873 @ 62390:               ACCESS
7874 @ 62391:               ASSPAR
7875 @ 62392:               CALL  
7876 @ 62393:               ASSPAR
7877 @ 62394:               CALL  
7878 @ 62395:               PUSH   S3
7879 @ 62398:               ASSVAL

  1130           %END
7880 @ 62399:               LINE   1130 "regression-compile-tmp/imp918s.imp"
7881 @ 62437:            END    _lev0id0_REPLACE3 {lev=2 --> 1}

  1131           %ROUTINE     MLINK(%INTEGERNAME CELL)
7882 @ 62438:            LINE   1131 "regression-compile-tmp/imp918s.imp"
7883 @ 62476:            DEF    MLINK (_lev0id0_MLINK) p1=V_013e 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
7884 @ 62493:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
7885 @ 62494:                  DEF    CELL p1=V_0161 a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
7886 @ 62510:               FINISH ) {lev=2}

  1132           CELL=SHORTINTEGER(ADDR(ASLIST(CELL+14)))
7887 @ 62511:               LINE   1132 "regression-compile-tmp/imp918s.imp"
7888 @ 62549:               PUSH   CELL
7889 @ 62552:               PUSH   SHORTINTEGER
7890 @ 62555:               PUSH   ADDR
7891 @ 62558:               PUSH   ASLIST
7892 @ 62561:               PUSH   CELL
7893 @ 62564:               PUSHI  #0x0000000e
7894 @ 62569:               ADD   
7895 @ 62570:               ACCESS
7896 @ 62571:               ASSPAR
7897 @ 62572:               CALL  
7898 @ 62573:               ASSPAR
7899 @ 62574:               CALL  
7900 @ 62575:               ASSVAL

  1133           %END
7901 @ 62576:               LINE   1133 "regression-compile-tmp/imp918s.imp"
7902 @ 62614:            END    _lev0id0_MLINK {lev=2 --> 1}

  1134           %INTEGERFN     FIND(%INTEGER LAB,LIST)
  1135  ! THIS FUNCTION SEARCHES LIST 'LIST' FOR LAB IN STREAM2 AND
  1136  ! RETURNS THE CORRESPONDING CELL NO.IT USED FOR MORE THAN
  1137  ! SCANNING LABEL LISTS.
  1138  !%if USE MC = 1 %start
  1139  !         %MCODE
  1140  !         *LM_0,1,LAB; *L_2,ASLIST
  1141  !         *LTR_15,1; *BC_8,<FAIL>
  1142  !AGAIN:   *C_0,4(1,2);
  1143  !         *BC_8,<FOUND>
  1144  !         *LH_1,14(1,2)
  1145  !         *LTR_15,1
  1146  !         *BC_7,<AGAIN>
  1147  !FAIL:    *L_1,0(15,2);                  ! IF FAIL LOADS-1 ELSE RESULT
  1148  !FOUND:   *LM_8,15,32(8); *BCR_15,15
  1149  !         %ENDOFMCODE
  1150  !%finish
7903 @ 62615:            LINE   1134 "regression-compile-tmp/imp918s.imp"
7904 @ 62653:            DEF    FIND (_lev0id0_FIND) p1=V_013c a/tf=18 b/format=1 c/ostate=10  type=1 (integer) form=8 (function) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=1 unass=0
7905 @ 62669:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
7906 @ 62670:                  DEF    LAB p1=V_0161 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
7907 @ 62685:                  DEF    LIST p1=V_0162 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
7908 @ 62701:               FINISH ) {lev=2}

  1151  %result=-1
7909 @ 62702:               LINE   1151 "regression-compile-tmp/imp918s.imp"
7910 @ 62740:               PUSHI  #0x00000001
7911 @ 62745:               NEGATE
7912 @ 62746:               RESULT

  1152           %END
7913 @ 62747:               LINE   1152 "regression-compile-tmp/imp918s.imp"
7914 @ 62785:            END    _lev0id0_FIND {lev=2 --> 1}

  1153           %INTEGERFN FIND3(%INTEGER S3,LIST)
  1154  !***********************************************************************
  1155  !*       SEARCHES LIST FOR S3 IN STREAM 3                              *
  1156  !*       RETURNS CELL NO AS RESULT                                     *
  1157  !***********************************************************************
  1158  !%if USE MC = 1 %start
  1159  !         *LM_0,1,S3; *L_2,ASLIST; *SR_3,3
  1160  !         *LTR_1,1; *BC_8,<FAIL>
  1161  !AGAIN:   *C_0,8(1,2)
  1162  !         *BC_8,<FOUND>
  1163  !         *LR_3,1;                       ! SAVE PREVIOUS CELL
  1164  !         *LH_1,14(1,2)
  1165  !         *LTR_1,1
  1166  !         *BC_7,<AGAIN>
  1167  !FAIL:    *BCTR_1,0
  1168  !FOUND:   *ST_3,PREV3CL;
  1169  !         *LM_8,15,32(8); *BCR_15,15
  1170  !%finish
7915 @ 62786:            LINE   1153 "regression-compile-tmp/imp918s.imp"
7916 @ 62824:            DEF    FIND3 (_lev0id0_FIND3) p1=V_013d a/tf=18 b/format=1 c/ostate=10  type=1 (integer) form=8 (function) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=1 unass=0
7917 @ 62841:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
7918 @ 62842:                  DEF    S3 p1=V_0161 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
7919 @ 62856:                  DEF    LIST p1=V_0162 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
7920 @ 62872:               FINISH ) {lev=2}

  1171  %result=-1
7921 @ 62873:               LINE   1171 "regression-compile-tmp/imp918s.imp"
7922 @ 62911:               PUSHI  #0x00000001
7923 @ 62916:               NEGATE
7924 @ 62917:               RESULT

  1172           %END
7925 @ 62918:               LINE   1172 "regression-compile-tmp/imp918s.imp"
7926 @ 62956:            END    _lev0id0_FIND3 {lev=2 --> 1}

  1173           %ROUTINE FROM123(%INTEGER CELL,%INTEGERNAME S1,S2,S3)
  1174  !%if USE MC = 1 %start
  1175  !        *LM_1,4,CELL; *A_1,ASLIST;
  1176  !         *LM_15,1,0(1); * ST_15,0(2)
  1177  !         *ST_ 0,0(3); *ST_1,0(4)
  1178  !         *LM_8,15,32(8); *BCR_15,15
  1179  !%finish
7927 @ 62957:            LINE   1173 "regression-compile-tmp/imp918s.imp"
7928 @ 62995:            DEF    FROM123 (_lev0id0_FROM123) p1=V_0137 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
7929 @ 63014:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
7930 @ 63015:                  DEF    CELL p1=V_0161 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
7931 @ 63031:                  DEF    S1 p1=V_0162 a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
7932 @ 63045:                  DEF    S2 p1=V_0163 a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
7933 @ 63059:                  DEF    S3 p1=V_0164 a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
7934 @ 63073:               FINISH ) {lev=2}

  1180           %END
7935 @ 63074:               LINE   1180 "regression-compile-tmp/imp918s.imp"
7936 @ 63112:            END    _lev0id0_FROM123 {lev=2 --> 1}

  1181           %ROUTINE FROM12(%INTEGER CELL,%INTEGERNAME S1,S2)
  1182  !%if USE MC = 1 %start
  1183  !         *LM_1,3,CELL ;*A_1,ASLIST ;
  1184  !         *LM_0,1,0(1); *ST_0,0(2); *ST_1,0(3)
  1185  !%finish
7937 @ 63113:            LINE   1181 "regression-compile-tmp/imp918s.imp"
7938 @ 63151:            DEF    FROM12 (_lev0id0_FROM12) p1=V_0136 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
7939 @ 63169:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
7940 @ 63170:                  DEF    CELL p1=V_0161 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
7941 @ 63186:                  DEF    S1 p1=V_0162 a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
7942 @ 63200:                  DEF    S2 p1=V_0163 a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
7943 @ 63214:               FINISH ) {lev=2}

  1186           %END
7944 @ 63215:               LINE   1186 "regression-compile-tmp/imp918s.imp"
7945 @ 63253:            END    _lev0id0_FROM12 {lev=2 --> 1}

  1187           %INTEGERFN     FROM1(%INTEGER CELL)
7946 @ 63254:            LINE   1187 "regression-compile-tmp/imp918s.imp"
7947 @ 63292:            DEF    FROM1 (_lev0id0_FROM1) p1=V_0143 a/tf=18 b/format=1 c/ostate=10  type=1 (integer) form=8 (function) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=1 unass=0
7948 @ 63309:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
7949 @ 63310:                  DEF    CELL p1=V_0161 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
7950 @ 63326:               FINISH ) {lev=2}

  1188           %RESULT=INTEGER(ADDR(ASLIST(CELL)))
7951 @ 63327:               LINE   1188 "regression-compile-tmp/imp918s.imp"
7952 @ 63365:               PUSH   INTEGER
7953 @ 63368:               PUSH   ADDR
7954 @ 63371:               PUSH   ASLIST
7955 @ 63374:               PUSH   CELL
7956 @ 63377:               ACCESS
7957 @ 63378:               ASSPAR
7958 @ 63379:               CALL  
7959 @ 63380:               ASSPAR
7960 @ 63381:               CALL  
7961 @ 63382:               RESULT

  1189           %END
7962 @ 63383:               LINE   1189 "regression-compile-tmp/imp918s.imp"
7963 @ 63421:            END    _lev0id0_FROM1 {lev=2 --> 1}

  1190           %INTEGERFN     FROM2(%INTEGER CELL)
7964 @ 63422:            LINE   1190 "regression-compile-tmp/imp918s.imp"
7965 @ 63460:            DEF    FROM2 (_lev0id0_FROM2) p1=V_0142 a/tf=18 b/format=1 c/ostate=10  type=1 (integer) form=8 (function) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=1 unass=0
7966 @ 63477:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
7967 @ 63478:                  DEF    CELL p1=V_0161 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
7968 @ 63494:               FINISH ) {lev=2}

  1191           %RESULT=INTEGER(ADDR(ASLIST(CELL))+4)
7969 @ 63495:               LINE   1191 "regression-compile-tmp/imp918s.imp"
7970 @ 63533:               PUSH   INTEGER
7971 @ 63536:               PUSH   ADDR
7972 @ 63539:               PUSH   ASLIST
7973 @ 63542:               PUSH   CELL
7974 @ 63545:               ACCESS
7975 @ 63546:               ASSPAR
7976 @ 63547:               CALL  
7977 @ 63548:               PUSHI  #0x00000004
7978 @ 63553:               ADD   
7979 @ 63554:               ASSPAR
7980 @ 63555:               CALL  
7981 @ 63556:               RESULT

  1192           %END
7982 @ 63557:               LINE   1192 "regression-compile-tmp/imp918s.imp"
7983 @ 63595:            END    _lev0id0_FROM2 {lev=2 --> 1}

  1193           %INTEGERFN FROM3(%INTEGER CELL)
7984 @ 63596:            LINE   1193 "regression-compile-tmp/imp918s.imp"
7985 @ 63634:            DEF    FROM3 (_lev0id0_FROM3) p1=V_0144 a/tf=18 b/format=1 c/ostate=10  type=1 (integer) form=8 (function) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=1 unass=0
7986 @ 63651:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
7987 @ 63652:                  DEF    CELL p1=V_0161 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
7988 @ 63668:               FINISH ) {lev=2}

  1194           %RESULT=INTEGER(ADDR(ASLIST(CELL))+8)
7989 @ 63669:               LINE   1194 "regression-compile-tmp/imp918s.imp"
7990 @ 63707:               PUSH   INTEGER
7991 @ 63710:               PUSH   ADDR
7992 @ 63713:               PUSH   ASLIST
7993 @ 63716:               PUSH   CELL
7994 @ 63719:               ACCESS
7995 @ 63720:               ASSPAR
7996 @ 63721:               CALL  
7997 @ 63722:               PUSHI  #0x00000008
7998 @ 63727:               ADD   
7999 @ 63728:               ASSPAR
8000 @ 63729:               CALL  
8001 @ 63730:               RESULT

  1195          %END
8002 @ 63731:               LINE   1195 "regression-compile-tmp/imp918s.imp"
8003 @ 63769:            END    _lev0id0_FROM3 {lev=2 --> 1}

  1196           %ROUTINE CLEAR LIST (%SHORTINTEGERNAME OPHEAD)
  1197  !%if USE MC = 1 %start
  1198  !         **1,OPHEAD; *LTR_1,1; *BC_8,<EMPTY>
  1199  !         *L_2,ASLIST; *L_0,ASL; *ST_1,ASL
  1200  !AGAIN:  *LR_3,1; *LH_1,14(1,2);         ! NEXT LINK
  1201  !         *LTR_1,1; *BC_7,<AGAIN>;       ! IS IT ZERO?
  1202  !         *STH_0,14(3,2);                ! LAST LINK TO OLD VALUE OF ASL
  1203  !%finish
8004 @ 63770:            LINE   1196 "regression-compile-tmp/imp918s.imp"
8005 @ 63808:            DEF    CLEARLIST (_lev0id0_CLEARLIST) p1=V_0161 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
8006 @ 63829:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8007 @ 63830:                  DEF    OPHEAD p1=V_0162 a/tf=12 b/format=3 c/ostate=0  type=1 (integer) form=2 (name) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
8008 @ 63848:               FINISH ) {lev=2}

  1204  EMPTY:   OPHEAD=0;
8009 @ 63849:               LINE   1204 "regression-compile-tmp/imp918s.imp"
8010 @ 63887:               LABEL  L_0163
8011 @ 63890:               LINE   1204 "regression-compile-tmp/imp918s.imp"
8012 @ 63928:               PUSH   OPHEAD
8013 @ 63931:               PUSHI  #0x00000000
8014 @ 63936:               ASSVAL

  1205           %END
  1206  !         %ROUTINE CONCAT(%SHORTINTEGERNAME LIST1,LIST2)
  1207  !         %COMMENT ADDS LIST2 TO BOTTOM OF LIST1
  1208  !%if USE MC = 1 %start
  1209  !         *L_4,LIST1
  1210  !         *L_15,LIST2
  1211  !         *LH_0,0(15)
  1212  !         *L_2,ASLIST
  1213  !         *LH_1,0(4)
  1214  !         *LTR_3,1
  1215  !         *BC_7,<ON>
  1216  !         *STH_0,0(4)
  1217  !         *BC_15,<COMM>
  1218  !ON:      *LR_3,1
  1219  !         *LH_1,14(3,2);                 ! NEXT LINK
  1220  !         *LTR_1,1
  1221  !         *BC_7,<ON>
  1222  !         *STH_0,14(3,2);                ! LAST LINK TO NEW LIST
  1223  !COMM:    *STH_1,0(15);                  ! ZERO HEAD OF LIST2 IN CASE
  1224  !%finish
  1225  !         %END;                          ! AN ERROR PUTS CELL TWICE ONTO
  1226                                         ! FREE LIST - CATASTROPHIC!
  1227  !         %ROUTINE INSERT AT END(%SHORTINTEGERNAME CELL,%INTEGER S1,S2)
  1228  !         {%SHORTROUTINE}
  1229  !!***********************************************************************
  1230  !!*       ADD A CELL TO THE BOTTOM OF THE LIST HEADED BY 'CELL'         *
  1231  !!***********************************************************************
  1232  !%if USE MC = 1 %start
  1233  !         *L_1,ASL
  1234  !         *LTR_2,1
  1235  !         *BC_7,<1>
  1236  !%finish
  1237  !         FAULT(107,0)
  1238  !%if USE MC = 1 %start
  1239  !1:       *A_2,ASLIST
  1240  !         *MVC_ASL+2(2),14(2)
  1241  !         *SR_0,0
  1242  !         *ST_0,12(2)
  1243  !         *L_2,ASLIST
  1244  !         *L_4,CELL
  1245  !         *LH_3,0(4);                 ! GET HEAD CELL
  1246  !         *LTR_3,3
  1247  !         *BC_7,<ON>;                 ! LIST NOT EMPTY
  1248  !         *STH_1,0(4)
  1249  !         *BC_15,<LOAD>;               ! EMPTY LIST -- CELL TO TOP
  1250  !ON:      *LR_4,3
  1251  !         *LH_3,14(2,4);               ! IS NEXT CELL THE BOTTOM??
  1252  !         *LTR_3,3
  1253  !         *BC_7,<ON>
  1254  !         *STH_1,14(2,4)
  1255  !LOAD:    *AR_1,2
  1256  !         *MVC_0(8,1),S1
  1257  !%finish
  1258  !         %END
  1259  ! ************END****OF****LIST****PROCESSING ROUTINES
8015 @ 63937:               LINE   1205 "regression-compile-tmp/imp918s.imp"
8016 @ 63975:            END    _lev0id0_CLEARLIST {lev=2 --> 1}

  1260           %ROUTINE CSS(%INTEGER PIN,CSSMODE)
8017 @ 63976:            LINE   1260 "regression-compile-tmp/imp918s.imp"
8018 @ 64014:            DEF    CSS (_lev0id0_CSS) p1=V_014f 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
8019 @ 64029:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8020 @ 64030:                  DEF    PIN p1=V_0162 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
8021 @ 64045:                  DEF    CSSMODE p1=V_0163 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
8022 @ 64064:               FINISH ) {lev=2}

  1261           %ROUTINESPEC CIOCP(%INTEGER N)
8023 @ 64065:               LINE   1261 "regression-compile-tmp/imp918s.imp"
8024 @ 64103:               DEF    CIOCP (_lev0id0_CSS_CIOCP) p1=V_0164 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
8025 @ 64120:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8026 @ 64121:                  DEF    N p1=V_0165 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
8027 @ 64134:               FINISH ) {lev=2}

  1262           %ROUTINESPEC DEFINE EP(%INTEGER A,B,C,D)
8028 @ 64135:               LINE   1262 "regression-compile-tmp/imp918s.imp"
8029 @ 64173:               DEF    DEFINEEP (_lev0id0_CSS_DEFINEEP) p1=V_0165 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
8030 @ 64193:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8031 @ 64194:                  DEF    A p1=V_0166 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
8032 @ 64207:                  DEF    B p1=V_0167 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
8033 @ 64220:                  DEF    C p1=V_0168 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
8034 @ 64233:                  DEF    D p1=V_0169 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
8035 @ 64246:               FINISH ) {lev=2}

  1263           %ROUTINESPEC LAB LOOK(%INTEGERNAME A,%INTEGER B)
8036 @ 64247:               LINE   1263 "regression-compile-tmp/imp918s.imp"
8037 @ 64285:               DEF    LABLOOK (_lev0id0_CSS_LABLOOK) p1=V_0166 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
8038 @ 64304:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8039 @ 64305:                  DEF    A p1=V_0167 a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8040 @ 64318:                  DEF    B p1=V_0168 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
8041 @ 64331:               FINISH ) {lev=2}

  1264           %ROUTINESPEC SET LOCAL BASE
8042 @ 64332:               LINE   1264 "regression-compile-tmp/imp918s.imp"
8043 @ 64370:               DEF    SETLOCALBASE (_lev0id0_CSS_SETLOCALBASE) p1=V_0167 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
8044 @ 64394:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8045 @ 64395:               FINISH ) {lev=2}

  1265           %ROUTINESPEC STRINGOP(%INTEGER Z,L,BTO,DTO,BFRM,DFRM,BML,DML,X)
8046 @ 64396:               LINE   1265 "regression-compile-tmp/imp918s.imp"
8047 @ 64434:               DEF    STRINGOP (_lev0id0_CSS_STRINGOP) p1=V_0168 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
8048 @ 64454:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8049 @ 64455:                  DEF    Z p1=V_0169 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
8050 @ 64468:                  DEF    L p1=V_016a 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
8051 @ 64481:                  DEF    BTO p1=V_016b 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
8052 @ 64496:                  DEF    DTO p1=V_016c 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
8053 @ 64511:                  DEF    BFRM p1=V_016d 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
8054 @ 64527:                  DEF    DFRM p1=V_016e 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
8055 @ 64543:                  DEF    BML p1=V_016f 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
8056 @ 64558:                  DEF    DML p1=V_0170 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
8057 @ 64573:                  DEF    X p1=V_0171 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
8058 @ 64586:               FINISH ) {lev=2}

  1266           %ROUTINESPEC CEND(%INTEGER KKK)
8059 @ 64587:               LINE   1266 "regression-compile-tmp/imp918s.imp"
8060 @ 64625:               DEF    CEND (_lev0id0_CSS_CEND) p1=V_0169 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
8061 @ 64641:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8062 @ 64642:                  DEF    KKK p1=V_016a 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
8063 @ 64657:               FINISH ) {lev=2}

  1267           %ROUTINESPEC CBPAIR(%INTEGERNAME LB,UB)
8064 @ 64658:               LINE   1267 "regression-compile-tmp/imp918s.imp"
8065 @ 64696:               DEF    CBPAIR (_lev0id0_CSS_CBPAIR) p1=V_016a 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
8066 @ 64714:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8067 @ 64715:                  DEF    LB p1=V_016b a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8068 @ 64729:                  DEF    UB p1=V_016c a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8069 @ 64743:               FINISH ) {lev=2}

  1268           %ROUTINESPEC CCOND(%INTEGER IU,FARLAB)
8070 @ 64744:               LINE   1268 "regression-compile-tmp/imp918s.imp"
8071 @ 64782:               DEF    CCOND (_lev0id0_CSS_CCOND) p1=V_016b 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
8072 @ 64799:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8073 @ 64800:                  DEF    IU p1=V_016c 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
8074 @ 64814:                  DEF    FARLAB p1=V_016d 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
8075 @ 64832:               FINISH ) {lev=2}

  1269           %ROUTINESPEC SET LINE
8076 @ 64833:               LINE   1269 "regression-compile-tmp/imp918s.imp"
8077 @ 64871:               DEF    SETLINE (_lev0id0_CSS_SETLINE) p1=V_016c 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
8078 @ 64890:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8079 @ 64891:               FINISH ) {lev=2}

  1270           %ROUTINESPEC CUI(%INTEGER CODE)
8080 @ 64892:               LINE   1270 "regression-compile-tmp/imp918s.imp"
8081 @ 64930:               DEF    CUI (_lev0id0_CSS_CUI) p1=V_016d 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
8082 @ 64945:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8083 @ 64946:                  DEF    CODE p1=V_016e 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
8084 @ 64962:               FINISH ) {lev=2}

  1271           %ROUTINESPEC CSTART(%INTEGER CODE)
8085 @ 64963:               LINE   1271 "regression-compile-tmp/imp918s.imp"
8086 @ 65001:               DEF    CSTART (_lev0id0_CSS_CSTART) p1=V_016e 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
8087 @ 65019:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8088 @ 65020:                  DEF    CODE p1=V_016f 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
8089 @ 65036:               FINISH ) {lev=2}

  1272           %ROUTINESPEC BULKM(%INTEGER A,B,C,D,E,F)
8090 @ 65037:               LINE   1272 "regression-compile-tmp/imp918s.imp"
8091 @ 65075:               DEF    BULKM (_lev0id0_CSS_BULKM) p1=V_016f 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
8092 @ 65092:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8093 @ 65093:                  DEF    A p1=V_0170 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
8094 @ 65106:                  DEF    B p1=V_0171 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
8095 @ 65119:                  DEF    C p1=V_0172 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
8096 @ 65132:                  DEF    D p1=V_0173 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
8097 @ 65145:                  DEF    E p1=V_0174 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
8098 @ 65158:                  DEF    F p1=V_0175 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
8099 @ 65171:               FINISH ) {lev=2}

  1273           %ROUTINESPEC TORP(%SHORTINTEGERNAME H,B,NOPS,%INTEGER MODE)
8100 @ 65172:               LINE   1273 "regression-compile-tmp/imp918s.imp"
8101 @ 65210:               DEF    TORP (_lev0id0_CSS_TORP) p1=V_0170 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
8102 @ 65226:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8103 @ 65227:                  DEF    H p1=V_0171 a/tf=12 b/format=3 c/ostate=0  type=1 (integer) form=2 (name) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
8104 @ 65240:                  DEF    B p1=V_0172 a/tf=12 b/format=3 c/ostate=0  type=1 (integer) form=2 (name) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
8105 @ 65253:                  DEF    NOPS p1=V_0173 a/tf=12 b/format=3 c/ostate=0  type=1 (integer) form=2 (name) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
8106 @ 65269:                  DEF    MODE p1=V_0174 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
8107 @ 65285:               FINISH ) {lev=2}

  1274           %ROUTINESPEC SET USE(%INTEGER R,U,I)
8108 @ 65286:               LINE   1274 "regression-compile-tmp/imp918s.imp"
8109 @ 65324:               DEF    SETUSE (_lev0id0_CSS_SETUSE) p1=V_0171 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
8110 @ 65342:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8111 @ 65343:                  DEF    R p1=V_0172 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
8112 @ 65356:                  DEF    U p1=V_0173 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
8113 @ 65369:                  DEF    I p1=V_0174 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
8114 @ 65382:               FINISH ) {lev=2}

  1275           %ROUTINESPEC CSEXP(%INTEGER REG,MODE)
8115 @ 65383:               LINE   1275 "regression-compile-tmp/imp918s.imp"
8116 @ 65421:               DEF    CSEXP (_lev0id0_CSS_CSEXP) p1=V_0172 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
8117 @ 65438:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8118 @ 65439:                  DEF    REG p1=V_0173 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
8119 @ 65454:                  DEF    MODE p1=V_0174 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
8120 @ 65470:               FINISH ) {lev=2}

  1276           %ROUTINESPEC DSEXP(%INTEGER REG,MODE)
8121 @ 65471:               LINE   1276 "regression-compile-tmp/imp918s.imp"
8122 @ 65509:               DEF    DSEXP (_lev0id0_CSS_DSEXP) p1=V_0173 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
8123 @ 65526:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8124 @ 65527:                  DEF    REG p1=V_0174 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
8125 @ 65542:                  DEF    MODE p1=V_0175 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
8126 @ 65558:               FINISH ) {lev=2}

  1277           %ROUTINESPEC FREE AND FORGET(%INTEGER REG)
8127 @ 65559:               LINE   1277 "regression-compile-tmp/imp918s.imp"
8128 @ 65597:               DEF    FREEANDFORGET (_lev0id0_CSS_FREEANDFORGET) p1=V_0174 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
8129 @ 65622:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8130 @ 65623:                  DEF    REG p1=V_0175 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
8131 @ 65638:               FINISH ) {lev=2}

  1278           %ROUTINESPEC SAVE IRS(%INTEGER MODE)
8132 @ 65639:               LINE   1278 "regression-compile-tmp/imp918s.imp"
8133 @ 65677:               DEF    SAVEIRS (_lev0id0_CSS_SAVEIRS) p1=V_0175 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
8134 @ 65696:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8135 @ 65697:                  DEF    MODE p1=V_0176 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
8136 @ 65713:               FINISH ) {lev=2}

  1279           %ROUTINESPEC BOOT OUT(%INTEGER MODE)
8137 @ 65714:               LINE   1279 "regression-compile-tmp/imp918s.imp"
8138 @ 65752:               DEF    BOOTOUT (_lev0id0_CSS_BOOTOUT) p1=V_0176 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
8139 @ 65771:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8140 @ 65772:                  DEF    MODE p1=V_0177 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
8141 @ 65788:               FINISH ) {lev=2}

  1280           %ROUTINESPEC EXPOP(%INTEGER A,B,C,D)
8142 @ 65789:               LINE   1280 "regression-compile-tmp/imp918s.imp"
8143 @ 65827:               DEF    EXPOP (_lev0id0_CSS_EXPOP) p1=V_0177 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
8144 @ 65844:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8145 @ 65845:                  DEF    A p1=V_0178 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
8146 @ 65858:                  DEF    B p1=V_0179 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
8147 @ 65871:                  DEF    C p1=V_017a 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
8148 @ 65884:                  DEF    D p1=V_017b 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
8149 @ 65897:               FINISH ) {lev=2}

  1281           %ROUTINESPEC CSTREXP(%INTEGER MODE,REG)
8150 @ 65898:               LINE   1281 "regression-compile-tmp/imp918s.imp"
8151 @ 65936:               DEF    CSTREXP (_lev0id0_CSS_CSTREXP) p1=V_0178 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
8152 @ 65955:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8153 @ 65956:                  DEF    MODE p1=V_0179 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
8154 @ 65972:                  DEF    REG p1=V_017a 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
8155 @ 65987:               FINISH ) {lev=2}

  1282           %ROUTINESPEC ASSIGN (%INTEGER P1,P2)
8156 @ 65988:               LINE   1282 "regression-compile-tmp/imp918s.imp"
8157 @ 66026:               DEF    ASSIGN (_lev0id0_CSS_ASSIGN) p1=V_0179 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
8158 @ 66044:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8159 @ 66045:                  DEF    P1 p1=V_017a 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
8160 @ 66059:                  DEF    P2 p1=V_017b 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
8161 @ 66073:               FINISH ) {lev=2}

  1283           %INTEGERFNSPEC COPY RECORD TAG(%INTEGERNAME SUBS)
8162 @ 66074:               LINE   1283 "regression-compile-tmp/imp918s.imp"
8163 @ 66112:               DEF    COPYRECORDTAG (_lev0id0_CSS_COPYRECORDTAG) p1=V_017a a/tf=18 b/format=1 c/ostate=18  type=1 (integer) form=8 (function) special=0 (<special:0>) linkage=0 (auto) spec=1 indirect=1 unass=0
8164 @ 66137:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8165 @ 66138:                  DEF    SUBS p1=V_017b a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8166 @ 66154:               FINISH ) {lev=2}

  1284           %ROUTINESPEC  TEST APP(%INTEGERNAME NUM)
8167 @ 66155:               LINE   1284 "regression-compile-tmp/imp918s.imp"
8168 @ 66193:               DEF    TESTAPP (_lev0id0_CSS_TESTAPP) p1=V_017b 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
8169 @ 66212:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8170 @ 66213:                  DEF    NUM p1=V_017c a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8171 @ 66228:               FINISH ) {lev=2}

  1285           %INTEGERFNSPEC DISPLACEMENT(%INTEGER LINK)
8172 @ 66229:               LINE   1285 "regression-compile-tmp/imp918s.imp"
8173 @ 66267:               DEF    DISPLACEMENT (_lev0id0_CSS_DISPLACEMENT) p1=V_017c a/tf=18 b/format=1 c/ostate=18  type=1 (integer) form=8 (function) special=0 (<special:0>) linkage=0 (auto) spec=1 indirect=1 unass=0
8174 @ 66291:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8175 @ 66292:                  DEF    LINK p1=V_017d 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
8176 @ 66308:               FINISH ) {lev=2}

  1286            %ROUTINESPEC SKIP APP
8177 @ 66309:               LINE   1286 "regression-compile-tmp/imp918s.imp"
8178 @ 66347:               DEF    SKIPAPP (_lev0id0_CSS_SKIPAPP) p1=V_017d 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
8179 @ 66366:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8180 @ 66367:               FINISH ) {lev=2}

  1287           %ROUTINESPEC CRFORMAT(%SHORTINTEGERNAME HEAD)
8181 @ 66368:               LINE   1287 "regression-compile-tmp/imp918s.imp"
8182 @ 66406:               DEF    CRFORMAT (_lev0id0_CSS_CRFORMAT) p1=V_017e 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
8183 @ 66426:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8184 @ 66427:                  DEF    HEAD p1=V_017f a/tf=12 b/format=3 c/ostate=0  type=1 (integer) form=2 (name) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
8185 @ 66443:               FINISH ) {lev=2}

  1288           %INTEGERFNSPEC DOPE VECTOR(%INTEGER A,B,C)
8186 @ 66444:               LINE   1288 "regression-compile-tmp/imp918s.imp"
8187 @ 66482:               DEF    DOPEVECTOR (_lev0id0_CSS_DOPEVECTOR) p1=V_017f a/tf=18 b/format=1 c/ostate=18  type=1 (integer) form=8 (function) special=0 (<special:0>) linkage=0 (auto) spec=1 indirect=1 unass=0
8188 @ 66504:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8189 @ 66505:                  DEF    A p1=V_0180 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
8190 @ 66518:                  DEF    B p1=V_0181 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
8191 @ 66531:                  DEF    C p1=V_0182 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
8192 @ 66544:               FINISH ) {lev=2}

  1289           %ROUTINESPEC DECLARE ARRAYS(%INTEGER MODE,XTRA)
8193 @ 66545:               LINE   1289 "regression-compile-tmp/imp918s.imp"
8194 @ 66583:               DEF    DECLAREARRAYS (_lev0id0_CSS_DECLAREARRAYS) p1=V_0180 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
8195 @ 66608:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8196 @ 66609:                  DEF    MODE p1=V_0181 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
8197 @ 66625:                  DEF    XTRA p1=V_0182 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
8198 @ 66641:               FINISH ) {lev=2}

  1290           %ROUTINESPEC DECLARE SCALARS(%INTEGER A,B)
8199 @ 66642:               LINE   1290 "regression-compile-tmp/imp918s.imp"
8200 @ 66680:               DEF    DECLARESCALARS (_lev0id0_CSS_DECLARESCALARS) p1=V_0181 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
8201 @ 66706:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8202 @ 66707:                  DEF    A p1=V_0182 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
8203 @ 66720:                  DEF    B p1=V_0183 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
8204 @ 66733:               FINISH ) {lev=2}

  1291           %ROUTINESPEC CQN(%INTEGER P)
8205 @ 66734:               LINE   1291 "regression-compile-tmp/imp918s.imp"
8206 @ 66772:               DEF    CQN (_lev0id0_CSS_CQN) p1=V_0182 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
8207 @ 66787:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8208 @ 66788:                  DEF    P p1=V_0183 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
8209 @ 66801:               FINISH ) {lev=2}

  1292           %ROUTINESPEC CLT
8210 @ 66802:               LINE   1292 "regression-compile-tmp/imp918s.imp"
8211 @ 66840:               DEF    CLT (_lev0id0_CSS_CLT) p1=V_0183 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
8212 @ 66855:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8213 @ 66856:               FINISH ) {lev=2}

  1293           %ROUTINESPEC MOVE R(%INTEGER R,N)
8214 @ 66857:               LINE   1293 "regression-compile-tmp/imp918s.imp"
8215 @ 66895:               DEF    MOVER (_lev0id0_CSS_MOVER) p1=V_0184 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
8216 @ 66912:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8217 @ 66913:                  DEF    R p1=V_0185 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
8218 @ 66926:                  DEF    N p1=V_0186 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
8219 @ 66939:               FINISH ) {lev=2}

  1294           %ROUTINESPEC GET WSP(%INTEGERNAME PLACE,%INTEGER SIZE)
8220 @ 66940:               LINE   1294 "regression-compile-tmp/imp918s.imp"
8221 @ 66978:               DEF    GETWSP (_lev0id0_CSS_GETWSP) p1=V_0185 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
8222 @ 66996:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8223 @ 66997:                  DEF    PLACE p1=V_0186 a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8224 @ 67014:                  DEF    SIZE p1=V_0187 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
8225 @ 67030:               FINISH ) {lev=2}

  1295           %ROUTINESPEC RETURN WSP(%INTEGER PLACE,SIZE)
8226 @ 67031:               LINE   1295 "regression-compile-tmp/imp918s.imp"
8227 @ 67069:               DEF    RETURNWSP (_lev0id0_CSS_RETURNWSP) p1=V_0186 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
8228 @ 67090:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8229 @ 67091:                  DEF    PLACE p1=V_0187 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
8230 @ 67108:                  DEF    SIZE p1=V_0188 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
8231 @ 67124:               FINISH ) {lev=2}

  1296           %ROUTINESPEC CRCALL(%INTEGER A)
8232 @ 67125:               LINE   1296 "regression-compile-tmp/imp918s.imp"
8233 @ 67163:               DEF    CRCALL (_lev0id0_CSS_CRCALL) p1=V_0187 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
8234 @ 67181:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8235 @ 67182:                  DEF    A p1=V_0188 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
8236 @ 67195:               FINISH ) {lev=2}

  1297           %ROUTINESPEC CNAME(%INTEGER Z,REG)
8237 @ 67196:               LINE   1297 "regression-compile-tmp/imp918s.imp"
8238 @ 67234:               DEF    CNAME (_lev0id0_CSS_CNAME) p1=V_0188 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
8239 @ 67251:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8240 @ 67252:                  DEF    Z p1=V_0189 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
8241 @ 67265:                  DEF    REG p1=V_018a 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
8242 @ 67280:               FINISH ) {lev=2}

  1298           %ROUTINESPEC CRNAME(%INTEGER Z,REG,MODE,CLINK,BS,IX,DP)
8243 @ 67281:               LINE   1298 "regression-compile-tmp/imp918s.imp"
8244 @ 67319:               DEF    CRNAME (_lev0id0_CSS_CRNAME) p1=V_0189 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
8245 @ 67337:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8246 @ 67338:                  DEF    Z p1=V_018a 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
8247 @ 67351:                  DEF    REG p1=V_018b 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
8248 @ 67366:                  DEF    MODE p1=V_018c 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
8249 @ 67382:                  DEF    CLINK p1=V_018d 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
8250 @ 67399:                  DEF    BS p1=V_018e 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
8251 @ 67413:                  DEF    IX p1=V_018f 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
8252 @ 67427:                  DEF    DP p1=V_0190 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
8253 @ 67441:               FINISH ) {lev=2}

  1299           %ROUTINESPEC CANAME(%INTEGER Z,BS,DP,LINK)
8254 @ 67442:               LINE   1299 "regression-compile-tmp/imp918s.imp"
8255 @ 67480:               DEF    CANAME (_lev0id0_CSS_CANAME) p1=V_018a 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
8256 @ 67498:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8257 @ 67499:                  DEF    Z p1=V_018b 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
8258 @ 67512:                  DEF    BS p1=V_018c 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
8259 @ 67526:                  DEF    DP p1=V_018d 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
8260 @ 67540:                  DEF    LINK p1=V_018e 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
8261 @ 67556:               FINISH ) {lev=2}

  1300           %ROUTINESPEC ADJUST INDEX(%INTEGER M,%INTEGERNAME I,D)
8262 @ 67557:               LINE   1300 "regression-compile-tmp/imp918s.imp"
8263 @ 67595:               DEF    ADJUSTINDEX (_lev0id0_CSS_ADJUSTINDEX) p1=V_018b 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
8264 @ 67618:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8265 @ 67619:                  DEF    M p1=V_018c 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
8266 @ 67632:                  DEF    I p1=V_018d a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8267 @ 67645:                  DEF    D p1=V_018e a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8268 @ 67658:               FINISH ) {lev=2}

  1301           %ROUTINESPEC CREATE AH(%INTEGER M,R,B,D)
8269 @ 67659:               LINE   1301 "regression-compile-tmp/imp918s.imp"
8270 @ 67697:               DEF    CREATEAH (_lev0id0_CSS_CREATEAH) p1=V_018c 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
8271 @ 67717:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8272 @ 67718:                  DEF    M p1=V_018d 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
8273 @ 67731:                  DEF    R p1=V_018e 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
8274 @ 67744:                  DEF    B p1=V_018f 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
8275 @ 67757:                  DEF    D p1=V_0190 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
8276 @ 67770:               FINISH ) {lev=2}

  1302           %ROUTINESPEC CRES(%INTEGER LAB)
8277 @ 67771:               LINE   1302 "regression-compile-tmp/imp918s.imp"
8278 @ 67809:               DEF    CRES (_lev0id0_CSS_CRES) p1=V_018d 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
8279 @ 67825:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8280 @ 67826:                  DEF    LAB p1=V_018e 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
8281 @ 67841:               FINISH ) {lev=2}

  1303           %ROUTINESPEC CSNAME(%INTEGER Z,REG)
8282 @ 67842:               LINE   1303 "regression-compile-tmp/imp918s.imp"
8283 @ 67880:               DEF    CSNAME (_lev0id0_CSS_CSNAME) p1=V_018e 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
8284 @ 67898:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8285 @ 67899:                  DEF    Z p1=V_018f 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
8286 @ 67912:                  DEF    REG p1=V_0190 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
8287 @ 67927:               FINISH ) {lev=2}

  1304           %ROUTINESPEC COPY TAG(%INTEGER KK)
8288 @ 67928:               LINE   1304 "regression-compile-tmp/imp918s.imp"
8289 @ 67966:               DEF    COPYTAG (_lev0id0_CSS_COPYTAG) p1=V_018f 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
8290 @ 67985:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8291 @ 67986:                  DEF    KK p1=V_0190 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
8292 @ 68000:               FINISH ) {lev=2}

  1305           %ROUTINESPEC REDUCE TAG(%INTEGER MODE)
8293 @ 68001:               LINE   1305 "regression-compile-tmp/imp918s.imp"
8294 @ 68039:               DEF    REDUCETAG (_lev0id0_CSS_REDUCETAG) p1=V_0190 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
8295 @ 68060:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8296 @ 68061:                  DEF    MODE p1=V_0191 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
8297 @ 68077:               FINISH ) {lev=2}

  1306           %ROUTINESPEC REPLACE TAG (%INTEGER KK)
8298 @ 68078:               LINE   1306 "regression-compile-tmp/imp918s.imp"
8299 @ 68116:               DEF    REPLACETAG (_lev0id0_CSS_REPLACETAG) p1=V_0191 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
8300 @ 68138:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8301 @ 68139:                  DEF    KK p1=V_0192 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
8302 @ 68153:               FINISH ) {lev=2}

  1307           %ROUTINESPEC RT EXIT
8303 @ 68154:               LINE   1307 "regression-compile-tmp/imp918s.imp"
8304 @ 68192:               DEF    RTEXIT (_lev0id0_CSS_RTEXIT) p1=V_0192 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
8305 @ 68210:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8306 @ 68211:               FINISH ) {lev=2}

  1308           %ROUTINESPEC RT JUMP(%INTEGER CODE,R1,RT,WKREG)
8307 @ 68212:               LINE   1308 "regression-compile-tmp/imp918s.imp"
8308 @ 68250:               DEF    RTJUMP (_lev0id0_CSS_RTJUMP) p1=V_0193 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
8309 @ 68268:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8310 @ 68269:                  DEF    CODE p1=V_0194 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
8311 @ 68285:                  DEF    R1 p1=V_0195 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
8312 @ 68299:                  DEF    RT p1=V_0196 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
8313 @ 68313:                  DEF    WKREG p1=V_0197 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
8314 @ 68330:               FINISH ) {lev=2}

  1309           %ROUTINESPEC MERGE INFO
8315 @ 68331:               LINE   1309 "regression-compile-tmp/imp918s.imp"
8316 @ 68369:               DEF    MERGEINFO (_lev0id0_CSS_MERGEINFO) p1=V_0194 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
8317 @ 68390:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8318 @ 68391:               FINISH ) {lev=2}

  1310           %ROUTINESPEC REDUCE ENV(%SHORTINTEGERNAME HEAD)
8319 @ 68392:               LINE   1310 "regression-compile-tmp/imp918s.imp"
8320 @ 68430:               DEF    REDUCEENV (_lev0id0_CSS_REDUCEENV) p1=V_0195 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
8321 @ 68451:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8322 @ 68452:                  DEF    HEAD p1=V_0196 a/tf=12 b/format=3 c/ostate=0  type=1 (integer) form=2 (name) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
8323 @ 68468:               FINISH ) {lev=2}

  1311           %ROUTINESPEC RELOCATE(%INTEGER A,B,C)
8324 @ 68469:               LINE   1311 "regression-compile-tmp/imp918s.imp"
8325 @ 68507:               DEF    RELOCATE (_lev0id0_CSS_RELOCATE) p1=V_0196 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
8326 @ 68527:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8327 @ 68528:                  DEF    A p1=V_0197 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
8328 @ 68541:                  DEF    B p1=V_0198 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
8329 @ 68554:                  DEF    C p1=V_0199 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
8330 @ 68567:               FINISH ) {lev=2}

  1312           %ROUTINESPEC GXREF(%INTEGER A,B,C,D)
8331 @ 68568:               LINE   1312 "regression-compile-tmp/imp918s.imp"
8332 @ 68606:               DEF    GXREF (_lev0id0_CSS_GXREF) p1=V_0197 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
8333 @ 68623:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8334 @ 68624:                  DEF    A p1=V_0198 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
8335 @ 68637:                  DEF    B p1=V_0199 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
8336 @ 68650:                  DEF    C p1=V_019a 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
8337 @ 68663:                  DEF    D p1=V_019b 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
8338 @ 68676:               FINISH ) {lev=2}

  1313           %ROUTINESPEC CXREF(%INTEGER A,B,C,%INTEGERNAME D)
8339 @ 68677:               LINE   1313 "regression-compile-tmp/imp918s.imp"
8340 @ 68715:               DEF    CXREF (_lev0id0_CSS_CXREF) p1=V_0198 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
8341 @ 68732:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8342 @ 68733:                  DEF    A p1=V_0199 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
8343 @ 68746:                  DEF    B p1=V_019a 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
8344 @ 68759:                  DEF    C p1=V_019b 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
8345 @ 68772:                  DEF    D p1=V_019c a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8346 @ 68785:               FINISH ) {lev=2}

  1314           %ROUTINESPEC STORE TAG(%INTEGER KK,SLINK)
8347 @ 68786:               LINE   1314 "regression-compile-tmp/imp918s.imp"
8348 @ 68824:               DEF    STORETAG (_lev0id0_CSS_STORETAG) p1=V_0199 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
8349 @ 68844:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8350 @ 68845:                  DEF    KK p1=V_019a 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
8351 @ 68859:                  DEF    SLINK p1=V_019b 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
8352 @ 68876:               FINISH ) {lev=2}

  1315           %ROUTINESPEC TESTNST
8353 @ 68877:               LINE   1315 "regression-compile-tmp/imp918s.imp"
8354 @ 68915:               DEF    TESTNST (_lev0id0_CSS_TESTNST) p1=V_019a 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
8355 @ 68934:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8356 @ 68935:               FINISH ) {lev=2}

  1316           %ROUTINESPEC CUCI
8357 @ 68936:               LINE   1316 "regression-compile-tmp/imp918s.imp"
8358 @ 68974:               DEF    CUCI (_lev0id0_CSS_CUCI) p1=V_019b 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
8359 @ 68990:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8360 @ 68991:               FINISH ) {lev=2}

  1317           %ROUTINESPEC SKIP EXP
8361 @ 68992:               LINE   1317 "regression-compile-tmp/imp918s.imp"
8362 @ 69030:               DEF    SKIPEXP (_lev0id0_CSS_SKIPEXP) p1=V_019c 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
8363 @ 69049:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8364 @ 69050:               FINISH ) {lev=2}

  1318           %ROUTINESPEC UNPACK
8365 @ 69051:               LINE   1318 "regression-compile-tmp/imp918s.imp"
8366 @ 69089:               DEF    UNPACK (_lev0id0_CSS_UNPACK) p1=V_019d 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
8367 @ 69107:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8368 @ 69108:               FINISH ) {lev=2}

  1319           %ROUTINESPEC PACK(%INTEGERNAME PTYPE)
8369 @ 69109:               LINE   1319 "regression-compile-tmp/imp918s.imp"
8370 @ 69147:               DEF    PACK (_lev0id0_CSS_PACK) p1=V_019e 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
8371 @ 69163:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8372 @ 69164:                  DEF    PTYPE p1=V_019f a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8373 @ 69181:               FINISH ) {lev=2}

  1320           %ROUTINESPEC CRSPEC (%INTEGER M)
8374 @ 69182:               LINE   1320 "regression-compile-tmp/imp918s.imp"
8375 @ 69220:               DEF    CRSPEC (_lev0id0_CSS_CRSPEC) p1=V_019f 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
8376 @ 69238:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8377 @ 69239:                  DEF    M p1=V_01a0 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
8378 @ 69252:               FINISH ) {lev=2}

  1321           %ROUTINESPEC LOAD DV(%INTEGERNAME REG,%INTEGER B,D,T)
8379 @ 69253:               LINE   1321 "regression-compile-tmp/imp918s.imp"
8380 @ 69291:               DEF    LOADDV (_lev0id0_CSS_LOADDV) p1=V_01a0 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
8381 @ 69309:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8382 @ 69310:                  DEF    REG p1=V_01a1 a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8383 @ 69325:                  DEF    B p1=V_01a2 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
8384 @ 69338:                  DEF    D p1=V_01a3 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
8385 @ 69351:                  DEF    T p1=V_01a4 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
8386 @ 69364:               FINISH ) {lev=2}

  1322           %ROUTINESPEC DUMP(%INTEGER CODE,REG,DIS,X,LEVEL)
8387 @ 69365:               LINE   1322 "regression-compile-tmp/imp918s.imp"
8388 @ 69403:               DEF    DUMP (_lev0id0_CSS_DUMP) p1=V_01a1 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
8389 @ 69419:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8390 @ 69420:                  DEF    CODE p1=V_01a2 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
8391 @ 69436:                  DEF    REG p1=V_01a3 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
8392 @ 69451:                  DEF    DIS p1=V_01a4 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
8393 @ 69466:                  DEF    X p1=V_01a5 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
8394 @ 69479:                  DEF    LEVEL p1=V_01a6 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
8395 @ 69496:               FINISH ) {lev=2}

  1323           %ROUTINESPEC DUMPM(%INTEGER OPCODE,R1,R2,B,D)
8396 @ 69497:               LINE   1323 "regression-compile-tmp/imp918s.imp"
8397 @ 69535:               DEF    DUMPM (_lev0id0_CSS_DUMPM) p1=V_01a2 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
8398 @ 69552:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8399 @ 69553:                  DEF    OPCODE p1=V_01a3 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
8400 @ 69571:                  DEF    R1 p1=V_01a4 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
8401 @ 69585:                  DEF    R2 p1=V_01a5 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
8402 @ 69599:                  DEF    B p1=V_01a6 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
8403 @ 69612:                  DEF    D p1=V_01a7 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
8404 @ 69625:               FINISH ) {lev=2}

  1324           %ROUTINESPEC DUMPSI(%INTEGER OPCODE,L,B,D)
8405 @ 69626:               LINE   1324 "regression-compile-tmp/imp918s.imp"
8406 @ 69664:               DEF    DUMPSI (_lev0id0_CSS_DUMPSI) p1=V_01a3 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
8407 @ 69682:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8408 @ 69683:                  DEF    OPCODE p1=V_01a4 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
8409 @ 69701:                  DEF    L p1=V_01a5 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
8410 @ 69714:                  DEF    B p1=V_01a6 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
8411 @ 69727:                  DEF    D p1=V_01a7 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
8412 @ 69740:               FINISH ) {lev=2}

  1325           %ROUTINESPEC DUMPSS(%INTEGER OP,L,B1,D1,B2,D2)
8413 @ 69741:               LINE   1325 "regression-compile-tmp/imp918s.imp"
8414 @ 69779:               DEF    DUMPSS (_lev0id0_CSS_DUMPSS) p1=V_01a4 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
8415 @ 69797:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8416 @ 69798:                  DEF    OP p1=V_01a5 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
8417 @ 69812:                  DEF    L p1=V_01a6 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
8418 @ 69825:                  DEF    B1 p1=V_01a7 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
8419 @ 69839:                  DEF    D1 p1=V_01a8 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
8420 @ 69853:                  DEF    B2 p1=V_01a9 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
8421 @ 69867:                  DEF    D2 p1=V_01aa 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
8422 @ 69881:               FINISH ) {lev=2}

  1326           %ROUTINESPEC RHEAD(%INTEGER KK)
8423 @ 69882:               LINE   1326 "regression-compile-tmp/imp918s.imp"
8424 @ 69920:               DEF    RHEAD (_lev0id0_CSS_RHEAD) p1=V_01a5 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
8425 @ 69937:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8426 @ 69938:                  DEF    KK p1=V_01a6 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
8427 @ 69952:               FINISH ) {lev=2}

  1327           %ROUTINESPEC ENTER JUMP(%INTEGER MASK,STAD,FLAG)
8428 @ 69953:               LINE   1327 "regression-compile-tmp/imp918s.imp"
8429 @ 69991:               DEF    ENTERJUMP (_lev0id0_CSS_ENTERJUMP) p1=V_01a6 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
8430 @ 70012:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8431 @ 70013:                  DEF    MASK p1=V_01a7 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
8432 @ 70029:                  DEF    STAD p1=V_01a8 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
8433 @ 70045:                  DEF    FLAG p1=V_01a9 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
8434 @ 70061:               FINISH ) {lev=2}

  1328           %ROUTINESPEC CFPDEL
8435 @ 70062:               LINE   1328 "regression-compile-tmp/imp918s.imp"
8436 @ 70100:               DEF    CFPDEL (_lev0id0_CSS_CFPDEL) p1=V_01a7 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
8437 @ 70118:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8438 @ 70119:               FINISH ) {lev=2}

  1329           %ROUTINESPEC PPJ(%INTEGER N)
8439 @ 70120:               LINE   1329 "regression-compile-tmp/imp918s.imp"
8440 @ 70158:               DEF    PPJ (_lev0id0_CSS_PPJ) p1=V_01a8 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
8441 @ 70173:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8442 @ 70174:                  DEF    N p1=V_01a9 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
8443 @ 70187:               FINISH ) {lev=2}

  1330           %ROUTINESPEC ENTER LAB(%INTEGER M,FLAG)
8444 @ 70188:               LINE   1330 "regression-compile-tmp/imp918s.imp"
8445 @ 70226:               DEF    ENTERLAB (_lev0id0_CSS_ENTERLAB) p1=V_01a9 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
8446 @ 70246:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8447 @ 70247:                  DEF    M p1=V_01aa 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
8448 @ 70260:                  DEF    FLAG p1=V_01ab 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
8449 @ 70276:               FINISH ) {lev=2}

  1331           %ROUTINESPEC CHECK CAPACITY(%INTEGER REG,DIS,X,LEVEL)
8450 @ 70277:               LINE   1331 "regression-compile-tmp/imp918s.imp"
8451 @ 70315:               DEF    CHECKCAPACITY (_lev0id0_CSS_CHECKCAPACITY) p1=V_01aa 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
8452 @ 70340:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8453 @ 70341:                  DEF    REG p1=V_01ab 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
8454 @ 70356:                  DEF    DIS p1=V_01ac 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
8455 @ 70371:                  DEF    X p1=V_01ad 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
8456 @ 70384:                  DEF    LEVEL p1=V_01ae 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
8457 @ 70401:               FINISH ) {lev=2}

  1332           %INTEGERFNSPEC TSEXP(%INTEGERNAME CODE,%INTEGER I)
8458 @ 70402:               LINE   1332 "regression-compile-tmp/imp918s.imp"
8459 @ 70440:               DEF    TSEXP (_lev0id0_CSS_TSEXP) p1=V_01ab a/tf=18 b/format=1 c/ostate=18  type=1 (integer) form=8 (function) special=0 (<special:0>) linkage=0 (auto) spec=1 indirect=1 unass=0
8460 @ 70457:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8461 @ 70458:                  DEF    CODE p1=V_01ac a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8462 @ 70474:                  DEF    I p1=V_01ad 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
8463 @ 70487:               FINISH ) {lev=2}

  1333           %ROUTINESPEC FIND USE(%INTEGERNAME REG,%INTEGER TYPE,USE,INF)
8464 @ 70488:               LINE   1333 "regression-compile-tmp/imp918s.imp"
8465 @ 70526:               DEF    FINDUSE (_lev0id0_CSS_FINDUSE) p1=V_01ac 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
8466 @ 70545:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8467 @ 70546:                  DEF    REG p1=V_01ad a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8468 @ 70561:                  DEF    TYPE p1=V_01ae 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
8469 @ 70577:                  DEF    USE p1=V_01af 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
8470 @ 70592:                  DEF    INF p1=V_01b0 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
8471 @ 70607:               FINISH ) {lev=2}

  1334           %ROUTINESPEC CLAIM THIS REG(%INTEGER A)
8472 @ 70608:               LINE   1334 "regression-compile-tmp/imp918s.imp"
8473 @ 70646:               DEF    CLAIMTHISREG (_lev0id0_CSS_CLAIMTHISREG) p1=V_01ad 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
8474 @ 70670:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8475 @ 70671:                  DEF    A p1=V_01ae 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
8476 @ 70684:               FINISH ) {lev=2}

  1335           %ROUTINESPEC CLAIM(%INTEGER A,%INTEGERNAME REG)
8477 @ 70685:               LINE   1335 "regression-compile-tmp/imp918s.imp"
8478 @ 70723:               DEF    CLAIM (_lev0id0_CSS_CLAIM) p1=V_01ae 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
8479 @ 70740:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8480 @ 70741:                  DEF    A p1=V_01af 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
8481 @ 70754:                  DEF    REG p1=V_01b0 a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8482 @ 70769:               FINISH ) {lev=2}

  1336           %ROUTINESPEC FIND REG (%INTEGER A,%INTEGERNAME REG)
8483 @ 70770:               LINE   1336 "regression-compile-tmp/imp918s.imp"
8484 @ 70808:               DEF    FINDREG (_lev0id0_CSS_FINDREG) p1=V_01af 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
8485 @ 70827:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8486 @ 70828:                  DEF    A p1=V_01b0 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
8487 @ 70841:                  DEF    REG p1=V_01b1 a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8488 @ 70856:               FINISH ) {lev=2}

  1337           %ROUTINESPEC FORGET(%INTEGER REG)
8489 @ 70857:               LINE   1337 "regression-compile-tmp/imp918s.imp"
8490 @ 70895:               DEF    FORGET (_lev0id0_CSS_FORGET) p1=V_01b0 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
8491 @ 70913:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8492 @ 70914:                  DEF    REG p1=V_01b1 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
8493 @ 70929:               FINISH ) {lev=2}

  1338           %ROUTINESPEC FORGETM(%INTEGER UPPER)
8494 @ 70930:               LINE   1338 "regression-compile-tmp/imp918s.imp"
8495 @ 70968:               DEF    FORGETM (_lev0id0_CSS_FORGETM) p1=V_01b1 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
8496 @ 70987:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8497 @ 70988:                  DEF    UPPER p1=V_01b2 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
8498 @ 71005:               FINISH ) {lev=2}

  1339           %ROUTINESPEC FIND SEQ(%INTEGERNAME ONE,TWO)
8499 @ 71006:               LINE   1339 "regression-compile-tmp/imp918s.imp"
8500 @ 71044:               DEF    FINDSEQ (_lev0id0_CSS_FINDSEQ) p1=V_01b2 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
8501 @ 71063:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8502 @ 71064:                  DEF    ONE p1=V_01b3 a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8503 @ 71079:                  DEF    TWO p1=V_01b4 a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8504 @ 71094:               FINISH ) {lev=2}

  1340           %ROUTINESPEC REMEMBER
8505 @ 71095:               LINE   1340 "regression-compile-tmp/imp918s.imp"
8506 @ 71133:               DEF    REMEMBER (_lev0id0_CSS_REMEMBER) p1=V_01b3 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
8507 @ 71153:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8508 @ 71154:               FINISH ) {lev=2}

  1341           %INTEGERFNSPEC CONST FIND (%INTEGER L,AD)
8509 @ 71155:               LINE   1341 "regression-compile-tmp/imp918s.imp"
8510 @ 71193:               DEF    CONSTFIND (_lev0id0_CSS_CONSTFIND) p1=V_01b4 a/tf=18 b/format=1 c/ostate=18  type=1 (integer) form=8 (function) special=0 (<special:0>) linkage=0 (auto) spec=1 indirect=1 unass=0
8511 @ 71214:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8512 @ 71215:                  DEF    L p1=V_01b5 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
8513 @ 71228:                  DEF    AD p1=V_01b6 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
8514 @ 71242:               FINISH ) {lev=2}

  1342           %ROUTINESPEC STORE CONST(%INTEGERNAME B,D,%INTEGER L,AD)
8515 @ 71243:               LINE   1342 "regression-compile-tmp/imp918s.imp"
8516 @ 71281:               DEF    STORECONST (_lev0id0_CSS_STORECONST) p1=V_01b5 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
8517 @ 71303:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8518 @ 71304:                  DEF    B p1=V_01b6 a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8519 @ 71317:                  DEF    D p1=V_01b7 a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8520 @ 71330:                  DEF    L p1=V_01b8 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
8521 @ 71343:                  DEF    AD p1=V_01b9 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
8522 @ 71357:               FINISH ) {lev=2}

  1343           %ROUTINESPEC NOTE ASSMENT(%INTEGER REG,ASSOP,VAR)
8523 @ 71358:               LINE   1343 "regression-compile-tmp/imp918s.imp"
8524 @ 71396:               DEF    NOTEASSMENT (_lev0id0_CSS_NOTEASSMENT) p1=V_01b6 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
8525 @ 71419:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8526 @ 71420:                  DEF    REG p1=V_01b7 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
8527 @ 71435:                  DEF    ASSOP p1=V_01b8 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
8528 @ 71452:                  DEF    VAR p1=V_01b9 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
8529 @ 71467:               FINISH ) {lev=2}

  1344           %ROUTINESPEC TEXTOUT(%INTEGER REG)
8530 @ 71468:               LINE   1344 "regression-compile-tmp/imp918s.imp"
8531 @ 71506:               DEF    TEXTOUT (_lev0id0_CSS_TEXTOUT) p1=V_01b7 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
8532 @ 71525:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8533 @ 71526:                  DEF    REG p1=V_01b8 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
8534 @ 71541:               FINISH ) {lev=2}

  1345           %ROUTINESPEC VALLOC(%INTEGER A,B)
8535 @ 71542:               LINE   1345 "regression-compile-tmp/imp918s.imp"
8536 @ 71580:               DEF    VALLOC (_lev0id0_CSS_VALLOC) p1=V_01b8 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
8537 @ 71598:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8538 @ 71599:                  DEF    A p1=V_01b9 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
8539 @ 71612:                  DEF    B p1=V_01ba 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
8540 @ 71625:               FINISH ) {lev=2}

  1346           %ROUTINESPEC VDALLOC(%INTEGER A,B)
8541 @ 71626:               LINE   1346 "regression-compile-tmp/imp918s.imp"
8542 @ 71664:               DEF    VDALLOC (_lev0id0_CSS_VDALLOC) p1=V_01b9 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
8543 @ 71683:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8544 @ 71684:                  DEF    A p1=V_01ba 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
8545 @ 71697:                  DEF    B p1=V_01bb 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
8546 @ 71710:               FINISH ) {lev=2}

  1347           %ROUTINESPEC CYCOPT(%INTEGERNAME FLAG,%INTEGER WU)
8547 @ 71711:               LINE   1347 "regression-compile-tmp/imp918s.imp"
8548 @ 71749:               DEF    CYCOPT (_lev0id0_CSS_CYCOPT) p1=V_01ba 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
8549 @ 71767:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8550 @ 71768:                  DEF    FLAG p1=V_01bb a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8551 @ 71784:                  DEF    WU p1=V_01bc 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
8552 @ 71798:               FINISH ) {lev=2}

  1348           %ROUTINESPEC EXTRA PASS(%INTEGER I,J,K)
8553 @ 71799:               LINE   1348 "regression-compile-tmp/imp918s.imp"
8554 @ 71837:               DEF    EXTRAPASS (_lev0id0_CSS_EXTRAPASS) p1=V_01bb 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
8555 @ 71858:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8556 @ 71859:                  DEF    I p1=V_01bc 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
8557 @ 71872:                  DEF    J p1=V_01bd 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
8558 @ 71885:                  DEF    K p1=V_01be 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
8559 @ 71898:               FINISH ) {lev=2}

  1349           %ROUTINESPEC CYC RESTORE
8560 @ 71899:               LINE   1349 "regression-compile-tmp/imp918s.imp"
8561 @ 71937:               DEF    CYCRESTORE (_lev0id0_CSS_CYCRESTORE) p1=V_01bc 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
8562 @ 71959:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8563 @ 71960:               FINISH ) {lev=2}

  1350           %SWITCH SW(1:30)
8564 @ 71961:               LINE   1350 "regression-compile-tmp/imp918s.imp"
8565 @ 71999:               PUSHI  #0x00000001
8566 @ 72004:               PUSHI  #0x0000001e
8567 @ 72009:               BOUNDS
8568 @ 72010:               DEF    SW p1=V_01bd a/tf=6 b/format=0 c/ostate=0  type=0 (<type:0>) form=6 (switch) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  1351           %RECORDFORMAT RD(%SHORTINTEGER PTYPE,%BYTEINTEGER XB,FLAG,%C
  1352           %INTEGER D,%SHORTINTEGER XTRA)
8569 @ 72024:               LINE   1351 "regression-compile-tmp/imp918s.imp"
8570 @ 72062:               DEF    RD p1=V_01be a/tf=44 b/format=1be c/ostate=0  type=4 (record) form=4 (record-format) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8571 @ 72076:               START  ( RECORDFORMAT
8572 @ 72077:                  DEF    PTYPE p1=V_0000 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
8573 @ 72094:                  DEF    XB p1=V_0000 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
8574 @ 72108:                  DEF    FLAG p1=V_0000 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
8575 @ 72124:                  DEF    D p1=V_0000 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
8576 @ 72137:                  DEF    XTRA p1=V_0000 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
8577 @ 72153:               FINISH ) 

  1353           %SHORTINTEGER OPHEAD,SFHEAD,TWSPHEAD,DUMHEAD,SNDISP,ACC,K,KFORM
8578 @ 72154:               LINE   1353 "regression-compile-tmp/imp918s.imp"
8579 @ 72192:               DEF    OPHEAD p1=V_01bf a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
8580 @ 72210:               DEF    SFHEAD p1=V_01c0 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
8581 @ 72228:               DEF    TWSPHEAD p1=V_01c1 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
8582 @ 72248:               DEF    DUMHEAD p1=V_01c2 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
8583 @ 72267:               DEF    SNDISP p1=V_01c3 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
8584 @ 72285:               DEF    ACC p1=V_01c4 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
8585 @ 72300:               DEF    K p1=V_01c5 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
8586 @ 72313:               DEF    KFORM p1=V_01c6 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0

  1354           %INTEGER BXLE,TCELL,CURRINST,ADISP,BIMSTR,JJ,JJJ,KK,KKK, %C
  1355                 Q,QQ,EXTRN,STARTCOND,MARKIU,MARKUI,MARKC,MARKE,MARKR, %C
  1356                 BASE,INDEX,DISP,VALUE,BML,DML,LOCAL BASE, LOCAL ADDR, %C
  1357                 PTYPE,I,J,OLDI,USEBITS,SENOPS,SEFOP,PTYPEP,STRINGL,LINE
8587 @ 72330:               LINE   1354 "regression-compile-tmp/imp918s.imp"
8588 @ 72368:               DEF    BXLE p1=V_01c7 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
8589 @ 72384:               DEF    TCELL p1=V_01c8 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
8590 @ 72401:               DEF    CURRINST p1=V_01c9 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
8591 @ 72421:               DEF    ADISP p1=V_01ca 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
8592 @ 72438:               DEF    BIMSTR p1=V_01cb 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
8593 @ 72456:               DEF    JJ p1=V_01cc 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
8594 @ 72470:               DEF    JJJ p1=V_01cd 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
8595 @ 72485:               DEF    KK p1=V_01ce 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
8596 @ 72499:               DEF    KKK p1=V_01cf 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
8597 @ 72514:               DEF    Q p1=V_01d0 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
8598 @ 72527:               DEF    QQ p1=V_01d1 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
8599 @ 72541:               DEF    EXTRN p1=V_01d2 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
8600 @ 72558:               DEF    STARTCOND p1=V_01d3 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
8601 @ 72579:               DEF    MARKIU p1=V_01d4 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
8602 @ 72597:               DEF    MARKUI p1=V_01d5 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
8603 @ 72615:               DEF    MARKC p1=V_01d6 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
8604 @ 72632:               DEF    MARKE p1=V_01d7 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
8605 @ 72649:               DEF    MARKR p1=V_01d8 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
8606 @ 72666:               DEF    BASE p1=V_01d9 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
8607 @ 72682:               DEF    INDEX p1=V_01da 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
8608 @ 72699:               DEF    DISP p1=V_01db 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
8609 @ 72715:               DEF    VALUE p1=V_01dc 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
8610 @ 72732:               DEF    BML p1=V_01dd 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
8611 @ 72747:               DEF    DML p1=V_01de 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
8612 @ 72762:               DEF    LOCALBASE p1=V_01df 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
8613 @ 72783:               DEF    LOCALADDR p1=V_01e0 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
8614 @ 72804:               DEF    PTYPE p1=V_01e1 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
8615 @ 72821:               DEF    I p1=V_01e2 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
8616 @ 72834:               DEF    J p1=V_01e3 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
8617 @ 72847:               DEF    OLDI p1=V_01e4 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
8618 @ 72863:               DEF    USEBITS p1=V_01e5 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
8619 @ 72882:               DEF    SENOPS p1=V_01e6 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
8620 @ 72900:               DEF    SEFOP p1=V_01e7 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
8621 @ 72917:               DEF    PTYPEP p1=V_01e8 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
8622 @ 72935:               DEF    STRINGL p1=V_01e9 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
8623 @ 72954:               DEF    LINE p1=V_01ea 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

  1358           %BYTEINTEGER ROUT,NAM,ARR,PREC,TYPE,REPORTUI
8624 @ 72970:               LINE   1358 "regression-compile-tmp/imp918s.imp"
8625 @ 73008:               DEF    ROUT p1=V_01eb a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
8626 @ 73024:               DEF    NAM p1=V_01ec a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
8627 @ 73039:               DEF    ARR p1=V_01ed a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
8628 @ 73054:               DEF    PREC p1=V_01ee a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
8629 @ 73070:               DEF    TYPE p1=V_01ef a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
8630 @ 73086:               DEF    REPORTUI p1=V_01f0 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0

  1359           {%REGISTER P(14)}%integer P; P=PIN
8631 @ 73106:               LINE   1359 "regression-compile-tmp/imp918s.imp"
8632 @ 73144:               DEF    P p1=V_01f1 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
8633 @ 73157:               LINE   1359 "regression-compile-tmp/imp918s.imp"
8634 @ 73195:               PUSH   P
8635 @ 73198:               PUSH   PIN
8636 @ 73201:               ASSVAL

  1360           %INTEGERARRAY SGRUSE,SGRINF(0:22)
8637 @ 73202:               LINE   1360 "regression-compile-tmp/imp918s.imp"
8638 @ 73240:               DEF    SGRUSE p1=V_01f2 a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8639 @ 73258:               DEF    SGRINF p1=V_01f3 a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8640 @ 73276:               PUSHI  #0x00000000
8641 @ 73281:               PUSHI  #0x00000016
8642 @ 73286:               DIM    0001 0002

  1361           %CONSTINTEGER WSPTRTAB1=X'00010204',WSPTRTAB2= X'04060607'
8643 @ 73292:               LINE   1361 "regression-compile-tmp/imp918s.imp"

  1362           LINE=A(P-1)
8644 @ 73330:               LINE   1362 "regression-compile-tmp/imp918s.imp"
8645 @ 73368:               PUSH   LINE
8646 @ 73371:               PUSH   A
8647 @ 73374:               PUSH   P
8648 @ 73377:               PUSHI  #0x00000001
8649 @ 73382:               SUB   
8650 @ 73383:               ACCESS
8651 @ 73384:               ASSVAL

  1363           LOCAL BASE=0; TWSPHEAD=0
8652 @ 73385:               LINE   1363 "regression-compile-tmp/imp918s.imp"
8653 @ 73423:               PUSH   LOCALBASE
8654 @ 73426:               PUSHI  #0x00000000
8655 @ 73431:               ASSVAL
8656 @ 73432:               LINE   1363 "regression-compile-tmp/imp918s.imp"
8657 @ 73470:               PUSH   TWSPHEAD
8658 @ 73473:               PUSHI  #0x00000000
8659 @ 73478:               ASSVAL

  1364           STARTCOND=0; CURRINST=0
8660 @ 73479:               LINE   1364 "regression-compile-tmp/imp918s.imp"
8661 @ 73517:               PUSH   STARTCOND
8662 @ 73520:               PUSHI  #0x00000000
8663 @ 73525:               ASSVAL
8664 @ 73526:               LINE   1364 "regression-compile-tmp/imp918s.imp"
8665 @ 73564:               PUSH   CURRINST
8666 @ 73567:               PUSHI  #0x00000000
8667 @ 73572:               ASSVAL

  1365           CYC BITS=0; BIMSTR=0
8668 @ 73573:               LINE   1365 "regression-compile-tmp/imp918s.imp"
8669 @ 73611:               PUSH   CYCBITS
8670 @ 73614:               PUSHI  #0x00000000
8671 @ 73619:               ASSVAL
8672 @ 73620:               LINE   1365 "regression-compile-tmp/imp918s.imp"
8673 @ 73658:               PUSH   BIMSTR
8674 @ 73661:               PUSHI  #0x00000000
8675 @ 73666:               ASSVAL

  1366           SENOPS=0; SEFOP=0
  1367  !
  1368  ! CHECK THERE ARE SOME CELLS LEFT ON THE AVAILABLE SPACE LIST
  1369  !
8676 @ 73667:               LINE   1366 "regression-compile-tmp/imp918s.imp"
8677 @ 73705:               PUSH   SENOPS
8678 @ 73708:               PUSHI  #0x00000000
8679 @ 73713:               ASSVAL
8680 @ 73714:               LINE   1366 "regression-compile-tmp/imp918s.imp"
8681 @ 73752:               PUSH   SEFOP
8682 @ 73755:               PUSHI  #0x00000000
8683 @ 73760:               ASSVAL

  1370           %IF ASL<200 %AND CSSMODE#0 %THEN %START;! GARBAGE COLLECT NEEDED
8684 @ 73761:               LINE   1370 "regression-compile-tmp/imp918s.imp"
8685 @ 73799:               PUSH   ASL
8686 @ 73802:               PUSHI  #0x000000c8
8687 @ 73807:               JUMPIF >= L_0004
8688 @ 73811:               PUSH   CSSMODE
8689 @ 73814:               PUSHI  #0x00000000
8690 @ 73819:               JUMPIF = L_0004

  1371              %IF PRINTMAP=1 %THEN printstring("
  1372  ?      LIST SPACE")
8691 @ 73823:               LINE   1371 "regression-compile-tmp/imp918s.imp"
8692 @ 73861:               PUSH   PRINTMAP
8693 @ 73864:               PUSHI  #0x00000001
8694 @ 73869:               JUMPIF # L_0007
8695 @ 73873:               PUSH   PRINTSTRING
8696 @ 73876:               PUSHS  "\n?      LIST SPACE"
8697 @ 73896:               ASSPAR
8698 @ 73897:               CALL  
8699 @ 73898:               LOCATE L_0007

  1373              %IF ASL<200 %THEN %START; ! STILL SHORT OF SPACE
8700 @ 73901:               LINE   1373 "regression-compile-tmp/imp918s.imp"
8701 @ 73939:               PUSH   ASL
8702 @ 73942:               PUSHI  #0x000000c8
8703 @ 73947:               JUMPIF >= L_0007

  1374                 printstring("?")
8704 @ 73951:               LINE   1374 "regression-compile-tmp/imp918s.imp"
8705 @ 73989:               PUSH   PRINTSTRING
8706 @ 73992:               PUSHS  "?"
8707 @ 73995:               ASSPAR
8708 @ 73996:               CALL  

  1375                 CLEAR LIST(DVHEAD);    ! REMOVE LIST OF SHAREABLE D-VS
8709 @ 73997:               LINE   1375 "regression-compile-tmp/imp918s.imp"
8710 @ 74035:               PUSH   CLEARLIST
8711 @ 74038:               PUSH   DVHEAD
8712 @ 74041:               ASSPAR
8713 @ 74042:               CALL  

  1376                 CLEAR LIST(CONSTL8);   ! AND SHAREABLE LONG CONSTANTS
8714 @ 74043:               LINE   1376 "regression-compile-tmp/imp918s.imp"
8715 @ 74081:               PUSH   CLEARLIST
8716 @ 74084:               PUSH   CONSTL8
8717 @ 74087:               ASSPAR
8718 @ 74088:               CALL  

  1377                 CLEAR LIST(CONSTL6)
8719 @ 74089:               LINE   1377 "regression-compile-tmp/imp918s.imp"
8720 @ 74127:               PUSH   CLEARLIST
8721 @ 74130:               PUSH   CONSTL6
8722 @ 74133:               ASSPAR
8723 @ 74134:               CALL  

  1378                 %IF ASL<200 %THEN %START
8724 @ 74135:               LINE   1378 "regression-compile-tmp/imp918s.imp"
8725 @ 74173:               PUSH   ASL
8726 @ 74176:               PUSHI  #0x000000c8
8727 @ 74181:               JUMPIF >= L_000a

  1379                    printstring("?")
8728 @ 74185:               LINE   1379 "regression-compile-tmp/imp918s.imp"
8729 @ 74223:               PUSH   PRINTSTRING
8730 @ 74226:               PUSHS  "?"
8731 @ 74229:               ASSPAR
8732 @ 74230:               CALL  

  1380                    CLEAR LIST(CONSTL4);! & INTEGER CONSTANTS
8733 @ 74231:               LINE   1380 "regression-compile-tmp/imp918s.imp"
8734 @ 74269:               PUSH   CLEARLIST
8735 @ 74272:               PUSH   CONSTL4
8736 @ 74275:               ASSPAR
8737 @ 74276:               CALL  

  1381                    CLEAR LIST(CONSTL2);! & SHORT INT CONSTANTS
8738 @ 74277:               LINE   1381 "regression-compile-tmp/imp918s.imp"
8739 @ 74315:               PUSH   CLEARLIST
8740 @ 74318:               PUSH   CONSTL2
8741 @ 74321:               ASSPAR
8742 @ 74322:               CALL  

  1382                 %FINISH
8743 @ 74323:               LINE   1382 "regression-compile-tmp/imp918s.imp"
8744 @ 74361:               LOCATE L_000a

  1383              %FINISH
8745 @ 74364:               LINE   1383 "regression-compile-tmp/imp918s.imp"
8746 @ 74402:               LOCATE L_0007

  1384           %FINISH
8747 @ 74405:               LINE   1384 "regression-compile-tmp/imp918s.imp"
8748 @ 74443:               LOCATE L_0004

  1385           OLDI=0; ->SW(A(P))
8749 @ 74446:               LINE   1385 "regression-compile-tmp/imp918s.imp"
8750 @ 74484:               PUSH   OLDI
8751 @ 74487:               PUSHI  #0x00000000
8752 @ 74492:               ASSVAL
8753 @ 74493:               LINE   1385 "regression-compile-tmp/imp918s.imp"
8754 @ 74531:               PUSH   A
8755 @ 74534:               PUSH   P
8756 @ 74537:               ACCESS
8757 @ 74538:               SJUMP  445

  1386  SW(23):
8758 @ 74541:               LINE   1386 "regression-compile-tmp/imp918s.imp"
8759 @ 74579:               PUSHI  #0x00000017
8760 @ 74584:               SLABEL 445

  1387           WARN(LINE)
8761 @ 74587:               LINE   1387 "regression-compile-tmp/imp918s.imp"
8762 @ 74625:               PUSH   WARN
8763 @ 74628:               PUSH   LINE
8764 @ 74631:               ASSPAR
8765 @ 74632:               CALL  

  1388           SBFLAG=1 %IF CHECKSP=0;       ! '{%SHORTROUTINE}'
  1389  !
8766 @ 74633:               LINE   1388 "regression-compile-tmp/imp918s.imp"
8767 @ 74671:               PUSH   CHECKSP
8768 @ 74674:               PUSHI  #0x00000000
8769 @ 74679:               JUMPIF # L_0004
8770 @ 74683:               PUSH   SBFLAG
8771 @ 74686:               PUSHI  #0x00000001
8772 @ 74691:               ASSVAL
8773 @ 74692:               LOCATE L_0004

  1390  Label1:       LAST INST=CURR INST
8774 @ 74695:               LINE   1390 "regression-compile-tmp/imp918s.imp"
8775 @ 74733:               LABEL  L_01f4
8776 @ 74736:               LINE   1390 "regression-compile-tmp/imp918s.imp"
8777 @ 74774:               PUSH   LASTINST
8778 @ 74777:               PUSH   CURRINST
8779 @ 74780:               ASSVAL

  1391           %WHILE TWSPHEAD#0 %CYCLE
8780 @ 74781:               LINE   1391 "regression-compile-tmp/imp918s.imp"
8781 @ 74819:               LOCATE L_0003
8782 @ 74822:               PUSH   TWSPHEAD
8783 @ 74825:               PUSHI  #0x00000000
8784 @ 74830:               JUMPIF = L_0004

  1392              POP(TWSPHEAD,JJ,KK)
8785 @ 74834:               LINE   1392 "regression-compile-tmp/imp918s.imp"
8786 @ 74872:               PUSH   POP
8787 @ 74875:               PUSH   TWSPHEAD
8788 @ 74878:               ASSPAR
8789 @ 74879:               PUSH   JJ
8790 @ 74882:               ASSPAR
8791 @ 74883:               PUSH   KK
8792 @ 74886:               ASSPAR
8793 @ 74887:               CALL  

  1393              RETURN WSP(JJ,KK)
8794 @ 74888:               LINE   1393 "regression-compile-tmp/imp918s.imp"
8795 @ 74926:               PUSH   RETURNWSP
8796 @ 74929:               PUSH   JJ
8797 @ 74932:               ASSPAR
8798 @ 74933:               PUSH   KK
8799 @ 74936:               ASSPAR
8800 @ 74937:               CALL  

  1394          %REPEAT
8801 @ 74938:               LINE   1394 "regression-compile-tmp/imp918s.imp"
8802 @ 74976:               REPEAT L_0003
8803 @ 74979:               LOCATE L_0004

  1395  SW(29):                               ! REDUNDANT SEP
8804 @ 74982:               LINE   1395 "regression-compile-tmp/imp918s.imp"
8805 @ 75020:               PUSHI  #0x0000001d
8806 @ 75025:               SLABEL 445

  1396  SW(10):                               ! <CMARK> <COMMENT TEXT>
  1397  !         %CYCLE I=10,1,13
  1398  !              ABORT %UNLESS REGISTER(I)=-1
  1399  !         %REPEAT
8807 @ 75028:               LINE   1396 "regression-compile-tmp/imp918s.imp"
8808 @ 75066:               PUSHI  #0x0000000a
8809 @ 75071:               SLABEL 445

  1400           %RETURN
8810 @ 75074:               LINE   1400 "regression-compile-tmp/imp918s.imp"
8811 @ 75112:               RETURN

  1401  SW(1):   MARKER2=P+1+A(P+1); P=P+2
8812 @ 75113:               LINE   1401 "regression-compile-tmp/imp918s.imp"
8813 @ 75151:               PUSHI  #0x00000001
8814 @ 75156:               SLABEL 445
8815 @ 75159:               LINE   1401 "regression-compile-tmp/imp918s.imp"
8816 @ 75197:               PUSH   MARKER2
8817 @ 75200:               PUSH   P
8818 @ 75203:               PUSHI  #0x00000001
8819 @ 75208:               ADD   
8820 @ 75209:               PUSH   A
8821 @ 75212:               PUSH   P
8822 @ 75215:               PUSHI  #0x00000001
8823 @ 75220:               ADD   
8824 @ 75221:               ACCESS
8825 @ 75222:               ADD   
8826 @ 75223:               ASSVAL
8827 @ 75224:               LINE   1401 "regression-compile-tmp/imp918s.imp"
8828 @ 75262:               PUSH   P
8829 @ 75265:               PUSH   P
8830 @ 75268:               PUSHI  #0x00000002
8831 @ 75273:               ADD   
8832 @ 75274:               ASSVAL

  1402           ->LABFND %IF A(MARKER2)=1
8833 @ 75275:               LINE   1402 "regression-compile-tmp/imp918s.imp"
8834 @ 75313:               PUSH   A
8835 @ 75316:               PUSH   MARKER2
8836 @ 75319:               ACCESS
8837 @ 75320:               PUSHI  #0x00000001
8838 @ 75325:               JUMPIF # L_0004
8839 @ 75329:               JUMP   L_01f5
8840 @ 75332:               LOCATE L_0004

  1403           SET LINE %IF LINENOS#0
8841 @ 75335:               LINE   1403 "regression-compile-tmp/imp918s.imp"
8842 @ 75373:               PUSH   LINENOS
8843 @ 75376:               PUSHI  #0x00000000
8844 @ 75381:               JUMPIF = L_0004
8845 @ 75385:               PUSH   SETLINE
8846 @ 75388:               CALL  
8847 @ 75389:               LOCATE L_0004

  1404           ->Label101 %IF A(MARKER2)<=3
8848 @ 75392:               LINE   1404 "regression-compile-tmp/imp918s.imp"
8849 @ 75430:               PUSH   A
8850 @ 75433:               PUSH   MARKER2
8851 @ 75436:               ACCESS
8852 @ 75437:               PUSHI  #0x00000003
8853 @ 75442:               JUMPIF > L_0004
8854 @ 75446:               JUMP   L_01f6
8855 @ 75449:               LOCATE L_0004

  1405           MASK=15; CUI(0); ->Label1
8856 @ 75452:               LINE   1405 "regression-compile-tmp/imp918s.imp"
8857 @ 75490:               PUSH   MASK
8858 @ 75493:               PUSHI  #0x0000000f
8859 @ 75498:               ASSVAL
8860 @ 75499:               LINE   1405 "regression-compile-tmp/imp918s.imp"
8861 @ 75537:               PUSH   CUI
8862 @ 75540:               PUSHI  #0x00000000
8863 @ 75545:               ASSPAR
8864 @ 75546:               CALL  
8865 @ 75547:               LINE   1405 "regression-compile-tmp/imp918s.imp"
8866 @ 75585:               JUMP   L_01f4

  1406  LABFND:  ->SWITCH %UNLESS A(P)<2 %AND A(P+3)=2;! 1ST ALT UI & NO APP
8867 @ 75588:               LINE   1406 "regression-compile-tmp/imp918s.imp"
8868 @ 75626:               LABEL  L_01f5
8869 @ 75629:               LINE   1406 "regression-compile-tmp/imp918s.imp"
8870 @ 75667:               PUSH   A
8871 @ 75670:               PUSH   P
8872 @ 75673:               ACCESS
8873 @ 75674:               PUSHI  #0x00000002
8874 @ 75679:               JUMPIF >= L_0005
8875 @ 75683:               PUSH   A
8876 @ 75686:               PUSH   P
8877 @ 75689:               PUSHI  #0x00000003
8878 @ 75694:               ADD   
8879 @ 75695:               ACCESS
8880 @ 75696:               PUSHI  #0x00000002
8881 @ 75701:               JUMPIF = L_0004
8882 @ 75705:               LOCATE L_0005
8883 @ 75708:               JUMP   L_01f7
8884 @ 75711:               LOCATE L_0004

  1407           ->SWITCH %UNLESS A(P+4)=2 %AND A(P+5)=2;! NO ENAME OR ASSOP
8885 @ 75714:               LINE   1407 "regression-compile-tmp/imp918s.imp"
8886 @ 75752:               PUSH   A
8887 @ 75755:               PUSH   P
8888 @ 75758:               PUSHI  #0x00000004
8889 @ 75763:               ADD   
8890 @ 75764:               ACCESS
8891 @ 75765:               PUSHI  #0x00000002
8892 @ 75770:               JUMPIF # L_0005
8893 @ 75774:               PUSH   A
8894 @ 75777:               PUSH   P
8895 @ 75780:               PUSHI  #0x00000005
8896 @ 75785:               ADD   
8897 @ 75786:               ACCESS
8898 @ 75787:               PUSHI  #0x00000002
8899 @ 75792:               JUMPIF = L_0004
8900 @ 75796:               LOCATE L_0005
8901 @ 75799:               JUMP   L_01f7
8902 @ 75802:               LOCATE L_0004

  1408           K=16384+A(P+2); ->Label401
8903 @ 75805:               LINE   1408 "regression-compile-tmp/imp918s.imp"
8904 @ 75843:               PUSH   K
8905 @ 75846:               PUSHI  #0x00004000
8906 @ 75851:               PUSH   A
8907 @ 75854:               PUSH   P
8908 @ 75857:               PUSHI  #0x00000002
8909 @ 75862:               ADD   
8910 @ 75863:               ACCESS
8911 @ 75864:               ADD   
8912 @ 75865:               ASSVAL
8913 @ 75866:               LINE   1408 "regression-compile-tmp/imp918s.imp"
8914 @ 75904:               JUMP   L_01f8

  1409  Label101:     MARKE=0; MARKR=0
8915 @ 75907:               LINE   1409 "regression-compile-tmp/imp918s.imp"
8916 @ 75945:               LABEL  L_01f6
8917 @ 75948:               LINE   1409 "regression-compile-tmp/imp918s.imp"
8918 @ 75986:               PUSH   MARKE
8919 @ 75989:               PUSHI  #0x00000000
8920 @ 75994:               ASSVAL
8921 @ 75995:               LINE   1409 "regression-compile-tmp/imp918s.imp"
8922 @ 76033:               PUSH   MARKR
8923 @ 76036:               PUSHI  #0x00000000
8924 @ 76041:               ASSVAL

  1410           MARKUI=P; MARKIU=MARKER2+1;MARKC=MARKIU+1
8925 @ 76042:               LINE   1410 "regression-compile-tmp/imp918s.imp"
8926 @ 76080:               PUSH   MARKUI
8927 @ 76083:               PUSH   P
8928 @ 76086:               ASSVAL
8929 @ 76087:               LINE   1410 "regression-compile-tmp/imp918s.imp"
8930 @ 76125:               PUSH   MARKIU
8931 @ 76128:               PUSH   MARKER2
8932 @ 76131:               PUSHI  #0x00000001
8933 @ 76136:               ADD   
8934 @ 76137:               ASSVAL
8935 @ 76138:               LINE   1410 "regression-compile-tmp/imp918s.imp"
8936 @ 76176:               PUSH   MARKC
8937 @ 76179:               PUSH   MARKIU
8938 @ 76182:               PUSHI  #0x00000001
8939 @ 76187:               ADD   
8940 @ 76188:               ASSVAL

  1411           -> CONEXP %IF A(MARKER2)=2; ->WHILE
  1412  !
8941 @ 76189:               LINE   1411 "regression-compile-tmp/imp918s.imp"
8942 @ 76227:               PUSH   A
8943 @ 76230:               PUSH   MARKER2
8944 @ 76233:               ACCESS
8945 @ 76234:               PUSHI  #0x00000002
8946 @ 76239:               JUMPIF # L_0004
8947 @ 76243:               JUMP   L_01f9
8948 @ 76246:               LOCATE L_0004
8949 @ 76249:               LINE   1411 "regression-compile-tmp/imp918s.imp"
8950 @ 76287:               JUMP   L_01fa

  1413  SW(2):                                 ! %CYCLE
  1414  !***********************************************************************
  1415  !*       THE LAYOUT OF AN ENTRY ON THE CYCLE LIST IS:-                 *
  1416  !*        S1= CNAME<<16!LABEL N0                                       *
  1417  !*        S2= EL<<16!BXLE<<15! CYCLE WORK AREA DISPLACEMENT FROM RBASE *
  1418  !*        S3= BREG    (THE REGISTER USED FOR INCREMENT AND FINAL VALUE)*
  1419  !*        WHERE :-                                                     *
  1420  !*        CNAME= CYCLE CONTROL NAME(IF SIMPLE SCALAR) OR               *
  1421  !*                      X'3000'!CYCLE NUM FOR CHECKED OR COMPLEX CYCLES*
  1422  !*        LABEL= NO OF INTERNAL LABEL FOR REPEAT TO JUMP TO            *
  1423  !*        BXLE=1 IF 'BXLE' CAN BE USED (IE INCREMENT +VE) ,=0 OTHERWISE*
  1424  !*          EL=LABEL NO FOR EXIT STATEMENT (TOP BIT SET WHEN USED)     *
  1425  !***********************************************************************
8951 @ 76290:               LINE   1413 "regression-compile-tmp/imp918s.imp"
8952 @ 76328:               PUSHI  #0x00000002
8953 @ 76333:               SLABEL 445

  1426           %BEGIN
  1427           {%SHORTROUTINE}
8954 @ 76336:               LINE   1426 "regression-compile-tmp/imp918s.imp"
8955 @ 76374:               BEGIN  _lev0id0_CSS_lev2id3 {lev=2 --> 3}

  1428           %INTEGER PP,Q,INC,NAME,TNAME,PASS,WSPL,CFLAG,BREG,OPEN,CREG
8956 @ 76375:                  LINE   1428 "regression-compile-tmp/imp918s.imp"
8957 @ 76413:                  DEF    PP p1=V_01fb 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
8958 @ 76427:                  DEF    Q p1=V_01fc 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
8959 @ 76440:                  DEF    INC p1=V_01fd 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
8960 @ 76455:                  DEF    NAME p1=V_01fe 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
8961 @ 76471:                  DEF    TNAME p1=V_01ff 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
8962 @ 76488:                  DEF    PASS p1=V_0200 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
8963 @ 76504:                  DEF    WSPL p1=V_0201 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
8964 @ 76520:                  DEF    CFLAG p1=V_0202 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
8965 @ 76537:                  DEF    BREG p1=V_0203 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
8966 @ 76553:                  DEF    OPEN p1=V_0204 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
8967 @ 76569:                  DEF    CREG p1=V_0205 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

  1429           SET LINE
8968 @ 76585:                  LINE   1429 "regression-compile-tmp/imp918s.imp"
8969 @ 76623:                  PUSH   SETLINE
8970 @ 76626:                  CALL  

  1430           CUR CYC VAR=0; CYC REGS=0
8971 @ 76627:                  LINE   1430 "regression-compile-tmp/imp918s.imp"
8972 @ 76665:                  PUSH   CURCYCVAR
8973 @ 76668:                  PUSHI  #0x00000000
8974 @ 76673:                  ASSVAL
8975 @ 76674:                  LINE   1430 "regression-compile-tmp/imp918s.imp"
8976 @ 76712:                  PUSH   CYCREGS
8977 @ 76715:                  PUSHI  #0x00000000
8978 @ 76720:                  ASSVAL

  1431           BXLE=0; INC=0; BREG=2; CREG=1;    ! DEFAULTS
8979 @ 76721:                  LINE   1431 "regression-compile-tmp/imp918s.imp"
8980 @ 76759:                  PUSH   BXLE
8981 @ 76762:                  PUSHI  #0x00000000
8982 @ 76767:                  ASSVAL
8983 @ 76768:                  LINE   1431 "regression-compile-tmp/imp918s.imp"
8984 @ 76806:                  PUSH   INC
8985 @ 76809:                  PUSHI  #0x00000000
8986 @ 76814:                  ASSVAL
8987 @ 76815:                  LINE   1431 "regression-compile-tmp/imp918s.imp"
8988 @ 76853:                  PUSH   BREG
8989 @ 76856:                  PUSHI  #0x00000002
8990 @ 76861:                  ASSVAL
8991 @ 76862:                  LINE   1431 "regression-compile-tmp/imp918s.imp"
8992 @ 76900:                  PUSH   CREG
8993 @ 76903:                  PUSHI  #0x00000001
8994 @ 76908:                  ASSVAL

  1432           OPEN=A(P+1)-1; P=P+2; PP=P
8995 @ 76909:                  LINE   1432 "regression-compile-tmp/imp918s.imp"
8996 @ 76947:                  PUSH   OPEN
8997 @ 76950:                  PUSH   A
8998 @ 76953:                  PUSH   P
8999 @ 76956:                  PUSHI  #0x00000001
9000 @ 76961:                  ADD   
9001 @ 76962:                  ACCESS
9002 @ 76963:                  PUSHI  #0x00000001
9003 @ 76968:                  SUB   
9004 @ 76969:                  ASSVAL
9005 @ 76970:                  LINE   1432 "regression-compile-tmp/imp918s.imp"
9006 @ 77008:                  PUSH   P
9007 @ 77011:                  PUSH   P
9008 @ 77014:                  PUSHI  #0x00000002
9009 @ 77019:                  ADD   
9010 @ 77020:                  ASSVAL
9011 @ 77021:                  LINE   1432 "regression-compile-tmp/imp918s.imp"
9012 @ 77059:                  PUSH   PP
9013 @ 77062:                  PUSH   P
9014 @ 77065:                  ASSVAL

  1433           %IF OPEN #0 %THEN %START
9015 @ 77066:                  LINE   1433 "regression-compile-tmp/imp918s.imp"
9016 @ 77104:                  PUSH   OPEN
9017 @ 77107:                  PUSHI  #0x00000000
9018 @ 77112:                  JUMPIF = L_0004

  1434              CYCOPT(CFLAG,2) %IF CHECKSP=0
9019 @ 77116:                  LINE   1434 "regression-compile-tmp/imp918s.imp"
9020 @ 77154:                  PUSH   CHECKSP
9021 @ 77157:                  PUSHI  #0x00000000
9022 @ 77162:                  JUMPIF # L_0007
9023 @ 77166:                  PUSH   CYCOPT
9024 @ 77169:                  PUSH   CFLAG
9025 @ 77172:                  ASSPAR
9026 @ 77173:                  PUSHI  #0x00000002
9027 @ 77178:                  ASSPAR
9028 @ 77179:                  CALL  
9029 @ 77180:                  LOCATE L_0007

  1435              PASS=X'10000000'
9030 @ 77183:                  LINE   1435 "regression-compile-tmp/imp918s.imp"
9031 @ 77221:                  PUSH   PASS
9032 @ 77224:                  PUSHI  #0x10000000
9033 @ 77229:                  ASSVAL

  1436           %FINISH %ELSE %START
9034 @ 77230:                  LINE   1436 "regression-compile-tmp/imp918s.imp"
9035 @ 77268:                  GOTO   L_0003
9036 @ 77271:                  LOCATE L_0004

  1437              NAME=A(P); TNAME = TAGS(NAME)
9037 @ 77274:                  LINE   1437 "regression-compile-tmp/imp918s.imp"
9038 @ 77312:                  PUSH   NAME
9039 @ 77315:                  PUSH   A
9040 @ 77318:                  PUSH   P
9041 @ 77321:                  ACCESS
9042 @ 77322:                  ASSVAL
9043 @ 77323:                  LINE   1437 "regression-compile-tmp/imp918s.imp"
9044 @ 77361:                  PUSH   TNAME
9045 @ 77364:                  PUSH   TAGS
9046 @ 77367:                  PUSH   NAME
9047 @ 77370:                  ACCESS
9048 @ 77371:                  ASSVAL

  1438              COPY TAG (NAME)
9049 @ 77372:                  LINE   1438 "regression-compile-tmp/imp918s.imp"
9050 @ 77410:                  PUSH   COPYTAG
9051 @ 77413:                  PUSH   NAME
9052 @ 77416:                  ASSPAR
9053 @ 77417:                  CALL  

  1439              FAULT(25,NAME) %UNLESS TYPE=1 %AND PREC=0
9054 @ 77418:                  LINE   1439 "regression-compile-tmp/imp918s.imp"
9055 @ 77456:                  PUSH   TYPE
9056 @ 77459:                  PUSHI  #0x00000001
9057 @ 77464:                  JUMPIF # L_0008
9058 @ 77468:                  PUSH   PREC
9059 @ 77471:                  PUSHI  #0x00000000
9060 @ 77476:                  JUMPIF = L_0007
9061 @ 77480:                  LOCATE L_0008
9062 @ 77483:                  PUSH   FAULT
9063 @ 77486:                  PUSHI  #0x00000019
9064 @ 77491:                  ASSPAR
9065 @ 77492:                  PUSH   NAME
9066 @ 77495:                  ASSPAR
9067 @ 77496:                  CALL  
9068 @ 77497:                  LOCATE L_0007

  1440              %IF A(P+1)=2=A(P+2)%AND UNASS=0%AND CHECKSP=0 %AND %C
  1441                   NAM=0 %AND K<4095 %THEN %START;! CONTROL A LOCAL SCALAR
9069 @ 77500:                  LINE   1440 "regression-compile-tmp/imp918s.imp"
9070 @ 77538:                  PUSH   A
9071 @ 77541:                  PUSH   P
9072 @ 77544:                  PUSHI  #0x00000001
9073 @ 77549:                  ADD   
9074 @ 77550:                  ACCESS
9075 @ 77551:                  PUSHI  #0x00000002
9076 @ 77556:                  JUMPIFD # L_0007
9077 @ 77560:                  PUSH   A
9078 @ 77563:                  PUSH   P
9079 @ 77566:                  PUSHI  #0x00000002
9080 @ 77571:                  ADD   
9081 @ 77572:                  ACCESS
9082 @ 77573:                  JUMPIF # L_0007
9083 @ 77577:                  PUSH   UNASS
9084 @ 77580:                  PUSHI  #0x00000000
9085 @ 77585:                  JUMPIF # L_0007
9086 @ 77589:                  PUSH   CHECKSP
9087 @ 77592:                  PUSHI  #0x00000000
9088 @ 77597:                  JUMPIF # L_0007
9089 @ 77601:                  PUSH   NAM
9090 @ 77604:                  PUSHI  #0x00000000
9091 @ 77609:                  JUMPIF # L_0007
9092 @ 77613:                  PUSH   K
9093 @ 77616:                  PUSHI  #0x00000fff
9094 @ 77621:                  JUMPIF >= L_0007

  1442                 WSPL=2; P=P+3; PASS= NAME<<16
9095 @ 77625:                  LINE   1442 "regression-compile-tmp/imp918s.imp"
9096 @ 77663:                  PUSH   WSPL
9097 @ 77666:                  PUSHI  #0x00000002
9098 @ 77671:                  ASSVAL
9099 @ 77672:                  LINE   1442 "regression-compile-tmp/imp918s.imp"
9100 @ 77710:                  PUSH   P
9101 @ 77713:                  PUSH   P
9102 @ 77716:                  PUSHI  #0x00000003
9103 @ 77721:                  ADD   
9104 @ 77722:                  ASSVAL
9105 @ 77723:                  LINE   1442 "regression-compile-tmp/imp918s.imp"
9106 @ 77761:                  PUSH   PASS
9107 @ 77764:                  PUSH   NAME
9108 @ 77767:                  PUSHI  #0x00000010
9109 @ 77772:                  LSH   
9110 @ 77773:                  ASSVAL

  1443                 CUR CYC VAR=NAME
9111 @ 77774:                  LINE   1443 "regression-compile-tmp/imp918s.imp"
9112 @ 77812:                  PUSH   CURCYCVAR
9113 @ 77815:                  PUSH   NAME
9114 @ 77818:                  ASSVAL

  1444                 Q=P; FFLAG=0;
9115 @ 77819:                  LINE   1444 "regression-compile-tmp/imp918s.imp"
9116 @ 77857:                  PUSH   Q
9117 @ 77860:                  PUSH   P
9118 @ 77863:                  ASSVAL
9119 @ 77864:                  LINE   1444 "regression-compile-tmp/imp918s.imp"
9120 @ 77902:                  PUSH   FFLAG
9121 @ 77905:                  PUSHI  #0x00000000
9122 @ 77910:                  ASSVAL

  1445                 SKIP EXP; SKIP EXP; SKIP EXP
9123 @ 77911:                  LINE   1445 "regression-compile-tmp/imp918s.imp"
9124 @ 77949:                  PUSH   SKIPEXP
9125 @ 77952:                  CALL  
9126 @ 77953:                  LINE   1445 "regression-compile-tmp/imp918s.imp"
9127 @ 77991:                  PUSH   SKIPEXP
9128 @ 77994:                  CALL  
9129 @ 77995:                  LINE   1445 "regression-compile-tmp/imp918s.imp"
9130 @ 78033:                  PUSH   SKIPEXP
9131 @ 78036:                  CALL  

  1446                 P=Q;                        ! CHECK FNS IN CNTRL EXPRSNS
9132 @ 78037:                  LINE   1446 "regression-compile-tmp/imp918s.imp"
9133 @ 78075:                  PUSH   P
9134 @ 78078:                  PUSH   Q
9135 @ 78081:                  ASSVAL

  1447                 CYCOPT(CFLAG,0)
9136 @ 78082:                  LINE   1447 "regression-compile-tmp/imp918s.imp"
9137 @ 78120:                  PUSH   CYCOPT
9138 @ 78123:                  PUSH   CFLAG
9139 @ 78126:                  ASSPAR
9140 @ 78127:                  PUSHI  #0x00000000
9141 @ 78132:                  ASSPAR
9142 @ 78133:                  CALL  

  1448                 P=Q
9143 @ 78134:                  LINE   1448 "regression-compile-tmp/imp918s.imp"
9144 @ 78172:                  PUSH   P
9145 @ 78175:                  PUSH   Q
9146 @ 78178:                  ASSVAL

  1449                 %IF CFLAG=0 %THEN CUR CYC VAR=0
9147 @ 78179:                  LINE   1449 "regression-compile-tmp/imp918s.imp"
9148 @ 78217:                  PUSH   CFLAG
9149 @ 78220:                  PUSHI  #0x00000000
9150 @ 78225:                  JUMPIF # L_000a
9151 @ 78229:                  PUSH   CURCYCVAR
9152 @ 78232:                  PUSHI  #0x00000000
9153 @ 78237:                  ASSVAL
9154 @ 78238:                  LOCATE L_000a

  1450                 %IF CFLAG>0 %THEN BREG=CFLAG&15
9155 @ 78241:                  LINE   1450 "regression-compile-tmp/imp918s.imp"
9156 @ 78279:                  PUSH   CFLAG
9157 @ 78282:                  PUSHI  #0x00000000
9158 @ 78287:                  JUMPIF <= L_000a
9159 @ 78291:                  PUSH   BREG
9160 @ 78294:                  PUSH   CFLAG
9161 @ 78297:                  PUSHI  #0x0000000f
9162 @ 78302:                  AND   
9163 @ 78303:                  ASSVAL
9164 @ 78304:                  LOCATE L_000a

  1451                 COPYTAG(NAME)
9165 @ 78307:                  LINE   1451 "regression-compile-tmp/imp918s.imp"
9166 @ 78345:                  PUSH   COPYTAG
9167 @ 78348:                  PUSH   NAME
9168 @ 78351:                  ASSPAR
9169 @ 78352:                  CALL  

  1452                 %IF PTYPE=8 %THEN CREG=K
9170 @ 78353:                  LINE   1452 "regression-compile-tmp/imp918s.imp"
9171 @ 78391:                  PUSH   PTYPE
9172 @ 78394:                  PUSHI  #0x00000008
9173 @ 78399:                  JUMPIF # L_000a
9174 @ 78403:                  PUSH   CREG
9175 @ 78406:                  PUSH   K
9176 @ 78409:                  ASSVAL
9177 @ 78410:                  LOCATE L_000a

  1453              %FINISH %ELSE %START;    ! CONTROL NAMETYPE OR ARRAY ELEMENT
9178 @ 78413:                  LINE   1453 "regression-compile-tmp/imp918s.imp"
9179 @ 78451:                  GOTO   L_0006
9180 @ 78454:                  LOCATE L_0007

  1454                 CYCLE NUM=CYCLE NUM+1
9181 @ 78457:                  LINE   1454 "regression-compile-tmp/imp918s.imp"
9182 @ 78495:                  PUSH   CYCLENUM
9183 @ 78498:                  PUSH   CYCLENUM
9184 @ 78501:                  PUSHI  #0x00000001
9185 @ 78506:                  ADD   
9186 @ 78507:                  ASSVAL

  1455                 PASS=X'30000000'!CYCLE NUM<<16
9187 @ 78508:                  LINE   1455 "regression-compile-tmp/imp918s.imp"
9188 @ 78546:                  PUSH   PASS
9189 @ 78549:                  PUSHI  #0x30000000
9190 @ 78554:                  PUSH   CYCLENUM
9191 @ 78557:                  PUSHI  #0x00000010
9192 @ 78562:                  LSH   
9193 @ 78563:                  OR    
9194 @ 78564:                  ASSVAL

  1456                 WSPL=3; CNAME(3,4)
9195 @ 78565:                  LINE   1456 "regression-compile-tmp/imp918s.imp"
9196 @ 78603:                  PUSH   WSPL
9197 @ 78606:                  PUSHI  #0x00000003
9198 @ 78611:                  ASSVAL
9199 @ 78612:                  LINE   1456 "regression-compile-tmp/imp918s.imp"
9200 @ 78650:                  PUSH   CNAME
9201 @ 78653:                  PUSHI  #0x00000003
9202 @ 78658:                  ASSPAR
9203 @ 78659:                  PUSHI  #0x00000004
9204 @ 78664:                  ASSPAR
9205 @ 78665:                  CALL  

  1457                 REGISTER(4)=1
9206 @ 78666:                  LINE   1457 "regression-compile-tmp/imp918s.imp"
9207 @ 78704:                  PUSH   REGISTER
9208 @ 78707:                  PUSHI  #0x00000004
9209 @ 78712:                  ACCESS
9210 @ 78713:                  PUSHI  #0x00000001
9211 @ 78718:                  ASSVAL

  1458              %FINISH
9212 @ 78719:                  LINE   1458 "regression-compile-tmp/imp918s.imp"
9213 @ 78757:                  LOCATE L_0006

  1459              %IF BREG=2 %THEN %START;    ! REGISTER PAIR NOT AVAILABLE
9214 @ 78760:                  LINE   1459 "regression-compile-tmp/imp918s.imp"
9215 @ 78798:                  PUSH   BREG
9216 @ 78801:                  PUSHI  #0x00000002
9217 @ 78806:                  JUMPIF # L_0007

  1460                 GET WSP(INC,WSPL);       ! WORKAREA TO INC
9218 @ 78810:                  LINE   1460 "regression-compile-tmp/imp918s.imp"
9219 @ 78848:                  PUSH   GETWSP
9220 @ 78851:                  PUSH   INC
9221 @ 78854:                  ASSPAR
9222 @ 78855:                  PUSH   WSPL
9223 @ 78858:                  ASSPAR
9224 @ 78859:                  CALL  

  1461                 POP(TWSPHEAD,JJ,KK);     ! MUST NOT BE FREED BEFORE REPEAT
9225 @ 78860:                  LINE   1461 "regression-compile-tmp/imp918s.imp"
9226 @ 78898:                  PUSH   POP
9227 @ 78901:                  PUSH   TWSPHEAD
9228 @ 78904:                  ASSPAR
9229 @ 78905:                  PUSH   JJ
9230 @ 78908:                  ASSPAR
9231 @ 78909:                  PUSH   KK
9232 @ 78912:                  ASSPAR
9233 @ 78913:                  CALL  

  1462              %FINISH
9234 @ 78914:                  LINE   1462 "regression-compile-tmp/imp918s.imp"
9235 @ 78952:                  LOCATE L_0007

  1463              Q=P; SKIP EXP; JJ=P;        ! Q TO 1ST EXP, JJ TO SECOND
9236 @ 78955:                  LINE   1463 "regression-compile-tmp/imp918s.imp"
9237 @ 78993:                  PUSH   Q
9238 @ 78996:                  PUSH   P
9239 @ 78999:                  ASSVAL
9240 @ 79000:                  LINE   1463 "regression-compile-tmp/imp918s.imp"
9241 @ 79038:                  PUSH   SKIPEXP
9242 @ 79041:                  CALL  
9243 @ 79042:                  LINE   1463 "regression-compile-tmp/imp918s.imp"
9244 @ 79080:                  PUSH   JJ
9245 @ 79083:                  PUSH   P
9246 @ 79086:                  ASSVAL

  1464              BXLE=1 %IF (3900>CA-CODEBASE %OR CYC BASE#0) %C
  1465                          %AND 1<=TSEXP (JJJ,0)<=2 %AND TYPE=1
9247 @ 79087:                  LINE   1464 "regression-compile-tmp/imp918s.imp"
9248 @ 79125:                  PUSHI  #0x00000f3c
9249 @ 79130:                  PUSH   CA
9250 @ 79133:                  PUSH   CODEBASE
9251 @ 79136:                  SUB   
9252 @ 79137:                  JUMPIF > L_0008
9253 @ 79141:                  PUSH   CYCBASE
9254 @ 79144:                  PUSHI  #0x00000000
9255 @ 79149:                  JUMPIF = L_0007
9256 @ 79153:                  LOCATE L_0008
9257 @ 79156:                  PUSHI  #0x00000001
9258 @ 79161:                  PUSH   TSEXP
9259 @ 79164:                  PUSH   JJJ
9260 @ 79167:                  ASSPAR
9261 @ 79168:                  PUSHI  #0x00000000
9262 @ 79173:                  ASSPAR
9263 @ 79174:                  CALL  
9264 @ 79175:                  JUMPIFD > L_0007
9265 @ 79179:                  PUSHI  #0x00000002
9266 @ 79184:                  JUMPIF > L_0007
9267 @ 79188:                  PUSH   TYPE
9268 @ 79191:                  PUSHI  #0x00000001
9269 @ 79196:                  JUMPIF # L_0007
9270 @ 79200:                  PUSH   BXLE
9271 @ 79203:                  PUSHI  #0x00000001
9272 @ 79208:                  ASSVAL
9273 @ 79209:                  LOCATE L_0007

  1466              P=JJ
  1467  !
  1468  ! LOAD INCREMENT AND FINAL TO BREG & BREG+1 UNLESS THIS HAS BEEN
  1469  ! DONE BY THE LOOP OPTIMISING
  1470  !
9274 @ 79212:                  LINE   1466 "regression-compile-tmp/imp918s.imp"
9275 @ 79250:                  PUSH   P
9276 @ 79253:                  PUSH   JJ
9277 @ 79256:                  ASSVAL

  1471              DSEXP(BREG,0) %UNLESS BREG>2 %AND GRUSE(BREG)=14
9278 @ 79257:                  LINE   1471 "regression-compile-tmp/imp918s.imp"
9279 @ 79295:                  PUSH   BREG
9280 @ 79298:                  PUSHI  #0x00000002
9281 @ 79303:                  JUMPIF <= L_0008
9282 @ 79307:                  PUSH   GRUSE
9283 @ 79310:                  PUSH   BREG
9284 @ 79313:                  ACCESS
9285 @ 79314:                  PUSHI  #0x0000000e
9286 @ 79319:                  JUMPIF = L_0007
9287 @ 79323:                  LOCATE L_0008
9288 @ 79326:                  PUSH   DSEXP
9289 @ 79329:                  PUSH   BREG
9290 @ 79332:                  ASSPAR
9291 @ 79333:                  PUSHI  #0x00000000
9292 @ 79338:                  ASSPAR
9293 @ 79339:                  CALL  
9294 @ 79340:                  LOCATE L_0007

  1472              %IF BREG=2 %THEN DUMPM(X'90',2,WSPL+1,RBASE,INC);! STORE PARAMS
9295 @ 79343:                  LINE   1472 "regression-compile-tmp/imp918s.imp"
9296 @ 79381:                  PUSH   BREG
9297 @ 79384:                  PUSHI  #0x00000002
9298 @ 79389:                  JUMPIF # L_0007
9299 @ 79393:                  PUSH   DUMPM
9300 @ 79396:                  PUSHI  #0x00000090
9301 @ 79401:                  ASSPAR
9302 @ 79402:                  PUSHI  #0x00000002
9303 @ 79407:                  ASSPAR
9304 @ 79408:                  PUSH   WSPL
9305 @ 79411:                  PUSHI  #0x00000001
9306 @ 79416:                  ADD   
9307 @ 79417:                  ASSPAR
9308 @ 79418:                  PUSH   RBASE
9309 @ 79421:                  ASSPAR
9310 @ 79422:                  PUSH   INC
9311 @ 79425:                  ASSPAR
9312 @ 79426:                  CALL  
9313 @ 79427:                  LOCATE L_0007

  1473              DUMPSI(X'92',CYCLE NUM&255,RBASE,INC+8) %IF UNASS=1
9314 @ 79430:                  LINE   1473 "regression-compile-tmp/imp918s.imp"
9315 @ 79468:                  PUSH   UNASS
9316 @ 79471:                  PUSHI  #0x00000001
9317 @ 79476:                  JUMPIF # L_0007
9318 @ 79480:                  PUSH   DUMPSI
9319 @ 79483:                  PUSHI  #0x00000092
9320 @ 79488:                  ASSPAR
9321 @ 79489:                  PUSH   CYCLENUM
9322 @ 79492:                  PUSHI  #0x000000ff
9323 @ 79497:                  AND   
9324 @ 79498:                  ASSPAR
9325 @ 79499:                  PUSH   RBASE
9326 @ 79502:                  ASSPAR
9327 @ 79503:                  PUSH   INC
9328 @ 79506:                  PUSHI  #0x00000008
9329 @ 79511:                  ADD   
9330 @ 79512:                  ASSPAR
9331 @ 79513:                  CALL  
9332 @ 79514:                  LOCATE L_0007

  1474              %CYCLE KK=BREG,1,BREG+WSPL-1
9333 @ 79517:                  LINE   1474 "regression-compile-tmp/imp918s.imp"
9334 @ 79555:                  PUSH   KK
9335 @ 79558:                  PUSHI  #0x00000001
9336 @ 79563:                  PUSH   BREG
9337 @ 79566:                  PUSH   WSPL
9338 @ 79569:                  ADD   
9339 @ 79570:                  PUSHI  #0x00000001
9340 @ 79575:                  SUB   
9341 @ 79576:                  PUSH   BREG
9342 @ 79579:                  FOR    L_0006

  1475                  %IF KK<4 %AND REGISTER(KK)>0 %THEN REGISTER(KK)=0
9343 @ 79582:                  LINE   1475 "regression-compile-tmp/imp918s.imp"
9344 @ 79620:                  PUSH   KK
9345 @ 79623:                  PUSHI  #0x00000004
9346 @ 79628:                  JUMPIF >= L_000a
9347 @ 79632:                  PUSH   REGISTER
9348 @ 79635:                  PUSH   KK
9349 @ 79638:                  ACCESS
9350 @ 79639:                  PUSHI  #0x00000000
9351 @ 79644:                  JUMPIF <= L_000a
9352 @ 79648:                  PUSH   REGISTER
9353 @ 79651:                  PUSH   KK
9354 @ 79654:                  ACCESS
9355 @ 79655:                  PUSHI  #0x00000000
9356 @ 79660:                  ASSVAL
9357 @ 79661:                  LOCATE L_000a

  1476                  %IF CFLAG=0 %THEN FORGET(KK) %ELSE SET USE(KK,14,TNAME)
9358 @ 79664:                  LINE   1476 "regression-compile-tmp/imp918s.imp"
9359 @ 79702:                  PUSH   CFLAG
9360 @ 79705:                  PUSHI  #0x00000000
9361 @ 79710:                  JUMPIF # L_000a
9362 @ 79714:                  PUSH   FORGET
9363 @ 79717:                  PUSH   KK
9364 @ 79720:                  ASSPAR
9365 @ 79721:                  CALL  
9366 @ 79722:                  GOTO   L_0009
9367 @ 79725:                  LOCATE L_000a
9368 @ 79728:                  PUSH   SETUSE
9369 @ 79731:                  PUSH   KK
9370 @ 79734:                  ASSPAR
9371 @ 79735:                  PUSHI  #0x0000000e
9372 @ 79740:                  ASSPAR
9373 @ 79741:                  PUSH   TNAME
9374 @ 79744:                  ASSPAR
9375 @ 79745:                  CALL  
9376 @ 79746:                  LOCATE L_0009

  1477              %REPEAT
9377 @ 79749:                  LINE   1477 "regression-compile-tmp/imp918s.imp"
9378 @ 79787:                  REPEAT L_0006
9379 @ 79790:                  LOCATE L_0007

  1478              P=Q; CSEXP(CREG,1)
9380 @ 79793:                  LINE   1478 "regression-compile-tmp/imp918s.imp"
9381 @ 79831:                  PUSH   P
9382 @ 79834:                  PUSH   Q
9383 @ 79837:                  ASSVAL
9384 @ 79838:                  LINE   1478 "regression-compile-tmp/imp918s.imp"
9385 @ 79876:                  PUSH   CSEXP
9386 @ 79879:                  PUSH   CREG
9387 @ 79882:                  ASSPAR
9388 @ 79883:                  PUSHI  #0x00000001
9389 @ 79888:                  ASSPAR
9390 @ 79889:                  CALL  

  1479              FORGET(CREG);                 ! BEFORE PPJ TO AVOID A BOOTOUT
9391 @ 79890:                  LINE   1479 "regression-compile-tmp/imp918s.imp"
9392 @ 79928:                  PUSH   FORGET
9393 @ 79931:                  PUSH   CREG
9394 @ 79934:                  ASSPAR
9395 @ 79935:                  CALL  

  1480              REGISTER(CREG)=1
9396 @ 79936:                  LINE   1480 "regression-compile-tmp/imp918s.imp"
9397 @ 79974:                  PUSH   REGISTER
9398 @ 79977:                  PUSH   CREG
9399 @ 79980:                  ACCESS
9400 @ 79981:                  PUSHI  #0x00000001
9401 @ 79986:                  ASSVAL

  1481              %IF CHECKSP=1 %THEN  DUMP(0,2,INC,0,RBASE);! LA 2, CYCLE PARAMS
9402 @ 79987:                  LINE   1481 "regression-compile-tmp/imp918s.imp"
9403 @ 80025:                  PUSH   CHECKSP
9404 @ 80028:                  PUSHI  #0x00000001
9405 @ 80033:                  JUMPIF # L_0007
9406 @ 80037:                  PUSH   DUMP
9407 @ 80040:                  PUSHI  #0x00000000
9408 @ 80045:                  ASSPAR
9409 @ 80046:                  PUSHI  #0x00000002
9410 @ 80051:                  ASSPAR
9411 @ 80052:                  PUSH   INC
9412 @ 80055:                  ASSPAR
9413 @ 80056:                  PUSHI  #0x00000000
9414 @ 80061:                  ASSPAR
9415 @ 80062:                  PUSH   RBASE
9416 @ 80065:                  ASSPAR
9417 @ 80066:                  CALL  
9418 @ 80067:                  LOCATE L_0007

  1482              REGISTER(CREG)=0; MONE=1
9419 @ 80070:                  LINE   1482 "regression-compile-tmp/imp918s.imp"
9420 @ 80108:                  PUSH   REGISTER
9421 @ 80111:                  PUSH   CREG
9422 @ 80114:                  ACCESS
9423 @ 80115:                  PUSHI  #0x00000000
9424 @ 80120:                  ASSVAL
9425 @ 80121:                  LINE   1482 "regression-compile-tmp/imp918s.imp"
9426 @ 80159:                  PUSH   MONE
9427 @ 80162:                  PUSHI  #0x00000001
9428 @ 80167:                  ASSVAL

  1483              %IF CHECKSP=1 %THEN PPJ(17);! CHECK VALIDITY
9429 @ 80168:                  LINE   1483 "regression-compile-tmp/imp918s.imp"
9430 @ 80206:                  PUSH   CHECKSP
9431 @ 80209:                  PUSHI  #0x00000001
9432 @ 80214:                  JUMPIF # L_0007
9433 @ 80218:                  PUSH   PPJ
9434 @ 80221:                  PUSHI  #0x00000011
9435 @ 80226:                  ASSPAR
9436 @ 80227:                  CALL  
9437 @ 80228:                  LOCATE L_0007

  1484           %FINISH
9438 @ 80231:                  LINE   1484 "regression-compile-tmp/imp918s.imp"
9439 @ 80269:                  LOCATE L_0003

  1485           PLABEL=PLABEL-1; PASS=PASS!PLABEL
9440 @ 80272:                  LINE   1485 "regression-compile-tmp/imp918s.imp"
9441 @ 80310:                  PUSH   PLABEL
9442 @ 80313:                  PUSH   PLABEL
9443 @ 80316:                  PUSHI  #0x00000001
9444 @ 80321:                  SUB   
9445 @ 80322:                  ASSVAL
9446 @ 80323:                  LINE   1485 "regression-compile-tmp/imp918s.imp"
9447 @ 80361:                  PUSH   PASS
9448 @ 80364:                  PUSH   PASS
9449 @ 80367:                  PUSH   PLABEL
9450 @ 80370:                  OR    
9451 @ 80371:                  ASSVAL

  1486           PUSH123(LABEL(LEVEL),CA,0,PLABEL);! STORE LABEL
9452 @ 80372:                  LINE   1486 "regression-compile-tmp/imp918s.imp"
9453 @ 80410:                  PUSH   PUSH123
9454 @ 80413:                  PUSH   LABEL
9455 @ 80416:                  PUSH   LEVEL
9456 @ 80419:                  ACCESS
9457 @ 80420:                  ASSPAR
9458 @ 80421:                  PUSH   CA
9459 @ 80424:                  ASSPAR
9460 @ 80425:                  PUSHI  #0x00000000
9461 @ 80430:                  ASSPAR
9462 @ 80431:                  PUSH   PLABEL
9463 @ 80434:                  ASSPAR
9464 @ 80435:                  CALL  

  1487           CCSTATE=-1; LCA=0
9465 @ 80436:                  LINE   1487 "regression-compile-tmp/imp918s.imp"
9466 @ 80474:                  PUSH   CCSTATE
9467 @ 80477:                  PUSHI  #0x00000001
9468 @ 80482:                  NEGATE
9469 @ 80483:                  ASSVAL
9470 @ 80484:                  LINE   1487 "regression-compile-tmp/imp918s.imp"
9471 @ 80522:                  PUSH   LCA
9472 @ 80525:                  PUSHI  #0x00000000
9473 @ 80530:                  ASSVAL

  1488           %IF OPEN#0 %THEN %START
9474 @ 80531:                  LINE   1488 "regression-compile-tmp/imp918s.imp"
9475 @ 80569:                  PUSH   OPEN
9476 @ 80572:                  PUSHI  #0x00000000
9477 @ 80577:                  JUMPIF = L_0004

  1489              PLABEL=PLABEL-1
9478 @ 80581:                  LINE   1489 "regression-compile-tmp/imp918s.imp"
9479 @ 80619:                  PUSH   PLABEL
9480 @ 80622:                  PUSH   PLABEL
9481 @ 80625:                  PUSHI  #0x00000001
9482 @ 80630:                  SUB   
9483 @ 80631:                  ASSVAL

  1490              FORGETM(14)
9484 @ 80632:                  LINE   1490 "regression-compile-tmp/imp918s.imp"
9485 @ 80670:                  PUSH   FORGETM
9486 @ 80673:                  PUSHI  #0x0000000e
9487 @ 80678:                  ASSPAR
9488 @ 80679:                  CALL  

  1491           %FINISH %ELSE %START
9489 @ 80680:                  LINE   1491 "regression-compile-tmp/imp918s.imp"
9490 @ 80718:                  GOTO   L_0003
9491 @ 80721:                  LOCATE L_0004

  1492              %CYCLE JJ=0,1,22
9492 @ 80724:                  LINE   1492 "regression-compile-tmp/imp918s.imp"
9493 @ 80762:                  PUSH   JJ
9494 @ 80765:                  PUSHI  #0x00000001
9495 @ 80770:                  PUSHI  #0x00000016
9496 @ 80775:                  PUSHI  #0x00000000
9497 @ 80780:                  FOR    L_0006

  1493                 FORGET(JJ) %IF REGISTER(JJ)=0 %AND GRUSE(JJ)#14
9498 @ 80783:                  LINE   1493 "regression-compile-tmp/imp918s.imp"
9499 @ 80821:                  PUSH   REGISTER
9500 @ 80824:                  PUSH   JJ
9501 @ 80827:                  ACCESS
9502 @ 80828:                  PUSHI  #0x00000000
9503 @ 80833:                  JUMPIF # L_000a
9504 @ 80837:                  PUSH   GRUSE
9505 @ 80840:                  PUSH   JJ
9506 @ 80843:                  ACCESS
9507 @ 80844:                  PUSHI  #0x0000000e
9508 @ 80849:                  JUMPIF = L_000a
9509 @ 80853:                  PUSH   FORGET
9510 @ 80856:                  PUSH   JJ
9511 @ 80859:                  ASSPAR
9512 @ 80860:                  CALL  
9513 @ 80861:                  LOCATE L_000a

  1494              %REPEAT
9514 @ 80864:                  LINE   1494 "regression-compile-tmp/imp918s.imp"
9515 @ 80902:                  REPEAT L_0006
9516 @ 80905:                  LOCATE L_0007

  1495              %IF WSPL=3 %THEN %START
9517 @ 80908:                  LINE   1495 "regression-compile-tmp/imp918s.imp"
9518 @ 80946:                  PUSH   WSPL
9519 @ 80949:                  PUSHI  #0x00000003
9520 @ 80954:                  JUMPIF # L_0007

  1496                 DUMP(1,1,0,0,4)
9521 @ 80958:                  LINE   1496 "regression-compile-tmp/imp918s.imp"
9522 @ 80996:                  PUSH   DUMP
9523 @ 80999:                  PUSHI  #0x00000001
9524 @ 81004:                  ASSPAR
9525 @ 81005:                  PUSHI  #0x00000001
9526 @ 81010:                  ASSPAR
9527 @ 81011:                  PUSHI  #0x00000000
9528 @ 81016:                  ASSPAR
9529 @ 81017:                  PUSHI  #0x00000000
9530 @ 81022:                  ASSPAR
9531 @ 81023:                  PUSHI  #0x00000004
9532 @ 81028:                  ASSPAR
9533 @ 81029:                  CALL  

  1497                 REGISTER(4)=0
9534 @ 81030:                  LINE   1497 "regression-compile-tmp/imp918s.imp"
9535 @ 81068:                  PUSH   REGISTER
9536 @ 81071:                  PUSHI  #0x00000004
9537 @ 81076:                  ACCESS
9538 @ 81077:                  PUSHI  #0x00000000
9539 @ 81082:                  ASSVAL

  1498              %FINISH %ELSE %START
9540 @ 81083:                  LINE   1498 "regression-compile-tmp/imp918s.imp"
9541 @ 81121:                  GOTO   L_0006
9542 @ 81124:                  LOCATE L_0007

  1499                 %IF CREG=1 %THEN %START
9543 @ 81127:                  LINE   1499 "regression-compile-tmp/imp918s.imp"
9544 @ 81165:                  PUSH   CREG
9545 @ 81168:                  PUSHI  #0x00000001
9546 @ 81173:                  JUMPIF # L_000a

  1500                    P=PP; CNAME(1,1)
9547 @ 81177:                  LINE   1500 "regression-compile-tmp/imp918s.imp"
9548 @ 81215:                  PUSH   P
9549 @ 81218:                  PUSH   PP
9550 @ 81221:                  ASSVAL
9551 @ 81222:                  LINE   1500 "regression-compile-tmp/imp918s.imp"
9552 @ 81260:                  PUSH   CNAME
9553 @ 81263:                  PUSHI  #0x00000001
9554 @ 81268:                  ASSPAR
9555 @ 81269:                  PUSHI  #0x00000001
9556 @ 81274:                  ASSPAR
9557 @ 81275:                  CALL  

  1501                    DUMP(1,1,DISP,INDEX,BASE)
9558 @ 81276:                  LINE   1501 "regression-compile-tmp/imp918s.imp"
9559 @ 81314:                  PUSH   DUMP
9560 @ 81317:                  PUSHI  #0x00000001
9561 @ 81322:                  ASSPAR
9562 @ 81323:                  PUSHI  #0x00000001
9563 @ 81328:                  ASSPAR
9564 @ 81329:                  PUSH   DISP
9565 @ 81332:                  ASSPAR
9566 @ 81333:                  PUSH   INDEX
9567 @ 81336:                  ASSPAR
9568 @ 81337:                  PUSH   BASE
9569 @ 81340:                  ASSPAR
9570 @ 81341:                  CALL  

  1502                 %FINISH
9571 @ 81342:                  LINE   1502 "regression-compile-tmp/imp918s.imp"
9572 @ 81380:                  LOCATE L_000a

  1503                 NOTE ASSMENT(CREG,2,NAME)
9573 @ 81383:                  LINE   1503 "regression-compile-tmp/imp918s.imp"
9574 @ 81421:                  PUSH   NOTEASSMENT
9575 @ 81424:                  PUSH   CREG
9576 @ 81427:                  ASSPAR
9577 @ 81428:                  PUSHI  #0x00000002
9578 @ 81433:                  ASSPAR
9579 @ 81434:                  PUSH   NAME
9580 @ 81437:                  ASSPAR
9581 @ 81438:                  CALL  

  1504                 %IF CREG#1 %THEN REGISTER(CREG)=-1
9582 @ 81439:                  LINE   1504 "regression-compile-tmp/imp918s.imp"
9583 @ 81477:                  PUSH   CREG
9584 @ 81480:                  PUSHI  #0x00000001
9585 @ 81485:                  JUMPIF = L_000a
9586 @ 81489:                  PUSH   REGISTER
9587 @ 81492:                  PUSH   CREG
9588 @ 81495:                  ACCESS
9589 @ 81496:                  PUSHI  #0x00000001
9590 @ 81501:                  NEGATE
9591 @ 81502:                  ASSVAL
9592 @ 81503:                  LOCATE L_000a

  1505              %FINISH
9593 @ 81506:                  LINE   1505 "regression-compile-tmp/imp918s.imp"
9594 @ 81544:                  LOCATE L_0006

  1506              INC=INC!BXLE<<15
9595 @ 81547:                  LINE   1506 "regression-compile-tmp/imp918s.imp"
9596 @ 81585:                  PUSH   INC
9597 @ 81588:                  PUSH   INC
9598 @ 81591:                  PUSH   BXLE
9599 @ 81594:                  PUSHI  #0x0000000f
9600 @ 81599:                  LSH   
9601 @ 81600:                  OR    
9602 @ 81601:                  ASSVAL

  1507           %FINISH
9603 @ 81602:                  LINE   1507 "regression-compile-tmp/imp918s.imp"
9604 @ 81640:                  LOCATE L_0003

  1508           XLABEL=XLABEL-1
9605 @ 81643:                  LINE   1508 "regression-compile-tmp/imp918s.imp"
9606 @ 81681:                  PUSH   XLABEL
9607 @ 81684:                  PUSH   XLABEL
9608 @ 81687:                  PUSHI  #0x00000001
9609 @ 81692:                  SUB   
9610 @ 81693:                  ASSVAL

  1509           PUSH123(CYCLE(LEVEL),PASS,XLABEL<<16!INC,CREG<<16!BREG)
9611 @ 81694:                  LINE   1509 "regression-compile-tmp/imp918s.imp"
9612 @ 81732:                  PUSH   PUSH123
9613 @ 81735:                  PUSH   CYCLE
9614 @ 81738:                  PUSH   LEVEL
9615 @ 81741:                  ACCESS
9616 @ 81742:                  ASSPAR
9617 @ 81743:                  PUSH   PASS
9618 @ 81746:                  ASSPAR
9619 @ 81747:                  PUSH   XLABEL
9620 @ 81750:                  PUSHI  #0x00000010
9621 @ 81755:                  LSH   
9622 @ 81756:                  PUSH   INC
9623 @ 81759:                  OR    
9624 @ 81760:                  ASSPAR
9625 @ 81761:                  PUSH   CREG
9626 @ 81764:                  PUSHI  #0x00000010
9627 @ 81769:                  LSH   
9628 @ 81770:                  PUSH   BREG
9629 @ 81773:                  OR    
9630 @ 81774:                  ASSPAR
9631 @ 81775:                  CALL  

  1510           %END; ->Label1
  1511  !
9632 @ 81776:                  LINE   1510 "regression-compile-tmp/imp918s.imp"
9633 @ 81814:               END    _lev0id0_CSS_lev2id3 {lev=3 --> 2}
9634 @ 81815:               LINE   1510 "regression-compile-tmp/imp918s.imp"
9635 @ 81853:               JUMP   L_01f4

  1512   SW(3):        !REPEAT
9636 @ 81856:               LINE   1512 "regression-compile-tmp/imp918s.imp"
9637 @ 81894:               PUSHI  #0x00000003
9638 @ 81899:               SLABEL 445

  1513           %BEGIN
  1514           {%SHORTROUTINE}
9639 @ 81902:               LINE   1513 "regression-compile-tmp/imp918s.imp"
9640 @ 81940:               BEGIN  _lev0id0_CSS_lev2id4 {lev=2 --> 3}

  1515  %INTEGER NAME,TOPREG,CNUM,DSP,WSPL,LAB,KK,BREG,ELABEL,EUSED,CREG
9641 @ 81941:                  LINE   1515 "regression-compile-tmp/imp918s.imp"
9642 @ 81979:                  DEF    NAME p1=V_01fb 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
9643 @ 81995:                  DEF    TOPREG p1=V_01fc 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
9644 @ 82013:                  DEF    CNUM p1=V_01fd 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
9645 @ 82029:                  DEF    DSP p1=V_01fe 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
9646 @ 82044:                  DEF    WSPL p1=V_01ff 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
9647 @ 82060:                  DEF    LAB p1=V_0200 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
9648 @ 82075:                  DEF    KK p1=V_0201 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
9649 @ 82089:                  DEF    BREG p1=V_0202 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
9650 @ 82105:                  DEF    ELABEL p1=V_0203 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
9651 @ 82123:                  DEF    EUSED p1=V_0204 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
9652 @ 82140:                  DEF    CREG p1=V_0205 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

  1516  %SHORTINTEGER HEAD
9653 @ 82156:                  LINE   1516 "regression-compile-tmp/imp918s.imp"
9654 @ 82194:                  DEF    HEAD p1=V_0206 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0

  1517  %SWITCH CTYPE(0:3)
9655 @ 82210:                  LINE   1517 "regression-compile-tmp/imp918s.imp"
9656 @ 82248:                  PUSHI  #0x00000000
9657 @ 82253:                  PUSHI  #0x00000003
9658 @ 82258:                  BOUNDS
9659 @ 82259:                  DEF    CTYPE p1=V_0207 a/tf=6 b/format=0 c/ostate=0  type=0 (<type:0>) form=6 (switch) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  1518           SET LINE
9660 @ 82276:                  LINE   1518 "regression-compile-tmp/imp918s.imp"
9661 @ 82314:                  PUSH   SETLINE
9662 @ 82317:                  CALL  

  1519           %IF -1<=FROM1(CYCLE(LEVEL))<=0 %THEN FAULT(1,0) %AND ->Label1
9663 @ 82318:                  LINE   1519 "regression-compile-tmp/imp918s.imp"
9664 @ 82356:                  PUSHI  #0x00000001
9665 @ 82361:                  NEGATE
9666 @ 82362:                  PUSH   FROM1
9667 @ 82365:                  PUSH   CYCLE
9668 @ 82368:                  PUSH   LEVEL
9669 @ 82371:                  ACCESS
9670 @ 82372:                  ASSPAR
9671 @ 82373:                  CALL  
9672 @ 82374:                  JUMPIFD > L_0004
9673 @ 82378:                  PUSHI  #0x00000000
9674 @ 82383:                  JUMPIF > L_0004
9675 @ 82387:                  PUSH   FAULT
9676 @ 82390:                  PUSHI  #0x00000001
9677 @ 82395:                  ASSPAR
9678 @ 82396:                  PUSHI  #0x00000000
9679 @ 82401:                  ASSPAR
9680 @ 82402:                  CALL  
9681 @ 82403:                  JUMP   L_0208
9682 @ 82406:                  LOCATE L_0004

  1520           CUR CYC VAR=0
9683 @ 82409:                  LINE   1520 "regression-compile-tmp/imp918s.imp"
9684 @ 82447:                  PUSH   CURCYCVAR
9685 @ 82450:                  PUSHI  #0x00000000
9686 @ 82455:                  ASSVAL

  1521           POP123(CYCLE(LEVEL),J,DSP,BREG)
9687 @ 82456:                  LINE   1521 "regression-compile-tmp/imp918s.imp"
9688 @ 82494:                  PUSH   POP123
9689 @ 82497:                  PUSH   CYCLE
9690 @ 82500:                  PUSH   LEVEL
9691 @ 82503:                  ACCESS
9692 @ 82504:                  ASSPAR
9693 @ 82505:                  PUSH   J
9694 @ 82508:                  ASSPAR
9695 @ 82509:                  PUSH   DSP
9696 @ 82512:                  ASSPAR
9697 @ 82513:                  PUSH   BREG
9698 @ 82516:                  ASSPAR
9699 @ 82517:                  CALL  

  1522           ELABEL=DSP>>16&X'7FFF'
9700 @ 82518:                  LINE   1522 "regression-compile-tmp/imp918s.imp"
9701 @ 82556:                  PUSH   ELABEL
9702 @ 82559:                  PUSH   DSP
9703 @ 82562:                  PUSHI  #0x00000010
9704 @ 82567:                  RSH   
9705 @ 82568:                  PUSHI  #0x00007fff
9706 @ 82573:                  AND   
9707 @ 82574:                  ASSVAL

  1523           EUSED=DSP>>31
9708 @ 82575:                  LINE   1523 "regression-compile-tmp/imp918s.imp"
9709 @ 82613:                  PUSH   EUSED
9710 @ 82616:                  PUSH   DSP
9711 @ 82619:                  PUSHI  #0x0000001f
9712 @ 82624:                  RSH   
9713 @ 82625:                  ASSVAL

  1524           BXLE=DSP>>15&1; DSP=DSP&X'7FFF'; LAB=J&X'FFFF'
9714 @ 82626:                  LINE   1524 "regression-compile-tmp/imp918s.imp"
9715 @ 82664:                  PUSH   BXLE
9716 @ 82667:                  PUSH   DSP
9717 @ 82670:                  PUSHI  #0x0000000f
9718 @ 82675:                  RSH   
9719 @ 82676:                  PUSHI  #0x00000001
9720 @ 82681:                  AND   
9721 @ 82682:                  ASSVAL
9722 @ 82683:                  LINE   1524 "regression-compile-tmp/imp918s.imp"
9723 @ 82721:                  PUSH   DSP
9724 @ 82724:                  PUSH   DSP
9725 @ 82727:                  PUSHI  #0x00007fff
9726 @ 82732:                  AND   
9727 @ 82733:                  ASSVAL
9728 @ 82734:                  LINE   1524 "regression-compile-tmp/imp918s.imp"
9729 @ 82772:                  PUSH   LAB
9730 @ 82775:                  PUSH   J
9731 @ 82778:                  PUSHI  #0x0000ffff
9732 @ 82783:                  AND   
9733 @ 82784:                  ASSVAL

  1525           CREG=BREG>>16; BREG=BREG&X'FFFF'
9734 @ 82785:                  LINE   1525 "regression-compile-tmp/imp918s.imp"
9735 @ 82823:                  PUSH   CREG
9736 @ 82826:                  PUSH   BREG
9737 @ 82829:                  PUSHI  #0x00000010
9738 @ 82834:                  RSH   
9739 @ 82835:                  ASSVAL
9740 @ 82836:                  LINE   1525 "regression-compile-tmp/imp918s.imp"
9741 @ 82874:                  PUSH   BREG
9742 @ 82877:                  PUSH   BREG
9743 @ 82880:                  PUSHI  #0x0000ffff
9744 @ 82885:                  AND   
9745 @ 82886:                  ASSVAL

  1526           ->CTYPE(J>>28)
9746 @ 82887:                  LINE   1526 "regression-compile-tmp/imp918s.imp"
9747 @ 82925:                  PUSH   J
9748 @ 82928:                  PUSHI  #0x0000001c
9749 @ 82933:                  RSH   
9750 @ 82934:                  SJUMP  519

  1527  CTYPE(3):                              ! STEP CYCLE WITH PTR TO CONTROL
9751 @ 82937:                  LINE   1527 "regression-compile-tmp/imp918s.imp"
9752 @ 82975:                  PUSHI  #0x00000003
9753 @ 82980:                  SLABEL 519

  1528         CNUM=J>>16&255; TOPREG=4; WSPL=3; NAME=-1; ->COM
9754 @ 82983:                  LINE   1528 "regression-compile-tmp/imp918s.imp"
9755 @ 83021:                  PUSH   CNUM
9756 @ 83024:                  PUSH   J
9757 @ 83027:                  PUSHI  #0x00000010
9758 @ 83032:                  RSH   
9759 @ 83033:                  PUSHI  #0x000000ff
9760 @ 83038:                  AND   
9761 @ 83039:                  ASSVAL
9762 @ 83040:                  LINE   1528 "regression-compile-tmp/imp918s.imp"
9763 @ 83078:                  PUSH   TOPREG
9764 @ 83081:                  PUSHI  #0x00000004
9765 @ 83086:                  ASSVAL
9766 @ 83087:                  LINE   1528 "regression-compile-tmp/imp918s.imp"
9767 @ 83125:                  PUSH   WSPL
9768 @ 83128:                  PUSHI  #0x00000003
9769 @ 83133:                  ASSVAL
9770 @ 83134:                  LINE   1528 "regression-compile-tmp/imp918s.imp"
9771 @ 83172:                  PUSH   NAME
9772 @ 83175:                  PUSHI  #0x00000001
9773 @ 83180:                  NEGATE
9774 @ 83181:                  ASSVAL
9775 @ 83182:                  LINE   1528 "regression-compile-tmp/imp918s.imp"
9776 @ 83220:                  JUMP   L_0209

  1529  CTYPE(0):                              ! STEP CYCLE LOCAL SCALAR CONTROL
9777 @ 83223:                  LINE   1529 "regression-compile-tmp/imp918s.imp"
9778 @ 83261:                  PUSHI  #0x00000000
9779 @ 83266:                  SLABEL 519

  1530          TOPREG=3; WSPL=2; NAME=J>>16
9780 @ 83269:                  LINE   1530 "regression-compile-tmp/imp918s.imp"
9781 @ 83307:                  PUSH   TOPREG
9782 @ 83310:                  PUSHI  #0x00000003
9783 @ 83315:                  ASSVAL
9784 @ 83316:                  LINE   1530 "regression-compile-tmp/imp918s.imp"
9785 @ 83354:                  PUSH   WSPL
9786 @ 83357:                  PUSHI  #0x00000002
9787 @ 83362:                  ASSVAL
9788 @ 83363:                  LINE   1530 "regression-compile-tmp/imp918s.imp"
9789 @ 83401:                  PUSH   NAME
9790 @ 83404:                  PUSH   J
9791 @ 83407:                  PUSHI  #0x00000010
9792 @ 83412:                  RSH   
9793 @ 83413:                  ASSVAL

  1531  COM:                                   ! ALL STEPWISE CYCLES
9794 @ 83414:                  LINE   1531 "regression-compile-tmp/imp918s.imp"
9795 @ 83452:                  LABEL  L_0209

  1532           %IF UNASS=1 %THEN %START;     ! CHECK CYCLE ENTERD OK
9796 @ 83455:                  LINE   1532 "regression-compile-tmp/imp918s.imp"
9797 @ 83493:                  PUSH   UNASS
9798 @ 83496:                  PUSHI  #0x00000001
9799 @ 83501:                  JUMPIF # L_0004

  1533              DUMPSI(X'95',CNUM,RBASE,DSP+8);! CLI CYCLE WK AREA,CODE NO
9800 @ 83505:                  LINE   1533 "regression-compile-tmp/imp918s.imp"
9801 @ 83543:                  PUSH   DUMPSI
9802 @ 83546:                  PUSHI  #0x00000095
9803 @ 83551:                  ASSPAR
9804 @ 83552:                  PUSH   CNUM
9805 @ 83555:                  ASSPAR
9806 @ 83556:                  PUSH   RBASE
9807 @ 83559:                  ASSPAR
9808 @ 83560:                  PUSH   DSP
9809 @ 83563:                  PUSHI  #0x00000008
9810 @ 83568:                  ADD   
9811 @ 83569:                  ASSPAR
9812 @ 83570:                  CALL  

  1534              PCONST(X'477C0028');       ! BNE UNASSIGNED VARIABLE USED
9813 @ 83571:                  LINE   1534 "regression-compile-tmp/imp918s.imp"
9814 @ 83609:                  PUSH   PCONST
9815 @ 83612:                  PUSHI  #0x477c0028
9816 @ 83617:                  ASSPAR
9817 @ 83618:                  CALL  

  1535           %FINISH
  1536  !
  1537  ! LOAD UP CYCLE PARAMETERS FROM WKAREA UNLESS THEY ARE LOADED ALREADY
  1538  !
9818 @ 83619:                  LINE   1535 "regression-compile-tmp/imp918s.imp"
9819 @ 83657:                  LOCATE L_0004

  1539           %UNLESS BREG>2 %OR (GRUSE(2)=14=GRUSE(3) %AND %C
  1540                        (GRUSE(4)=14 %OR NAME>=0)) %THEN %START
9820 @ 83660:                  LINE   1539 "regression-compile-tmp/imp918s.imp"
9821 @ 83698:                  PUSH   BREG
9822 @ 83701:                  PUSHI  #0x00000002
9823 @ 83706:                  JUMPIF > L_0004
9824 @ 83710:                  PUSH   GRUSE
9825 @ 83713:                  PUSHI  #0x00000002
9826 @ 83718:                  ACCESS
9827 @ 83719:                  PUSHI  #0x0000000e
9828 @ 83724:                  JUMPIFD # L_0005
9829 @ 83728:                  PUSH   GRUSE
9830 @ 83731:                  PUSHI  #0x00000003
9831 @ 83736:                  ACCESS
9832 @ 83737:                  JUMPIF # L_0005
9833 @ 83741:                  PUSH   GRUSE
9834 @ 83744:                  PUSHI  #0x00000004
9835 @ 83749:                  ACCESS
9836 @ 83750:                  PUSHI  #0x0000000e
9837 @ 83755:                  JUMPIF = L_0004
9838 @ 83759:                  PUSH   NAME
9839 @ 83762:                  PUSHI  #0x00000000
9840 @ 83767:                  JUMPIF >= L_0004
9841 @ 83771:                  LOCATE L_0005

  1541              DUMPM(X'98',2,TOPREG,RBASE,DSP);! LM CYCLE PARAMS
9842 @ 83774:                  LINE   1541 "regression-compile-tmp/imp918s.imp"
9843 @ 83812:                  PUSH   DUMPM
9844 @ 83815:                  PUSHI  #0x00000098
9845 @ 83820:                  ASSPAR
9846 @ 83821:                  PUSHI  #0x00000002
9847 @ 83826:                  ASSPAR
9848 @ 83827:                  PUSH   TOPREG
9849 @ 83830:                  ASSPAR
9850 @ 83831:                  PUSH   RBASE
9851 @ 83834:                  ASSPAR
9852 @ 83835:                  PUSH   DSP
9853 @ 83838:                  ASSPAR
9854 @ 83839:                  CALL  

  1542              %CYCLE I=1,1,TOPREG
9855 @ 83840:                  LINE   1542 "regression-compile-tmp/imp918s.imp"
9856 @ 83878:                  PUSH   I
9857 @ 83881:                  PUSHI  #0x00000001
9858 @ 83886:                  PUSH   TOPREG
9859 @ 83889:                  PUSHI  #0x00000001
9860 @ 83894:                  FOR    L_0006

  1543                 FORGET(I);                   ! FORGET REGISTER USED
9861 @ 83897:                  LINE   1543 "regression-compile-tmp/imp918s.imp"
9862 @ 83935:                  PUSH   FORGET
9863 @ 83938:                  PUSH   I
9864 @ 83941:                  ASSPAR
9865 @ 83942:                  CALL  

  1544              %REPEAT
9866 @ 83943:                  LINE   1544 "regression-compile-tmp/imp918s.imp"
9867 @ 83981:                  REPEAT L_0006
9868 @ 83984:                  LOCATE L_0007

  1545           %FINISH
  1546  !
  1547  ! NOW GET CONTROL TO REG 1 VIA POINTER OR DIRECTLY AS RELEVANT
  1548  !
9869 @ 83987:                  LINE   1545 "regression-compile-tmp/imp918s.imp"
9870 @ 84025:                  LOCATE L_0004

  1549           %IF NAME<0 %THEN %START;     ! VIA POINTER (REGS NOT ALLOCATED)
9871 @ 84028:                  LINE   1549 "regression-compile-tmp/imp918s.imp"
9872 @ 84066:                  PUSH   NAME
9873 @ 84069:                  PUSHI  #0x00000000
9874 @ 84074:                  JUMPIF >= L_0004

  1550              PRX(X'58',1,0,4,0)
9875 @ 84078:                  LINE   1550 "regression-compile-tmp/imp918s.imp"
9876 @ 84116:                  PUSH   PRX
9877 @ 84119:                  PUSHI  #0x00000058
9878 @ 84124:                  ASSPAR
9879 @ 84125:                  PUSHI  #0x00000001
9880 @ 84130:                  ASSPAR
9881 @ 84131:                  PUSHI  #0x00000000
9882 @ 84136:                  ASSPAR
9883 @ 84137:                  PUSHI  #0x00000004
9884 @ 84142:                  ASSPAR
9885 @ 84143:                  PUSHI  #0x00000000
9886 @ 84148:                  ASSPAR
9887 @ 84149:                  CALL  

  1551              REGISTER(4)=1
9888 @ 84150:                  LINE   1551 "regression-compile-tmp/imp918s.imp"
9889 @ 84188:                  PUSH   REGISTER
9890 @ 84191:                  PUSHI  #0x00000004
9891 @ 84196:                  ACCESS
9892 @ 84197:                  PUSHI  #0x00000001
9893 @ 84202:                  ASSVAL

  1552           %FINISH %ELSE %START;        ! LOCAL SCALAR USE CNAME
9894 @ 84203:                  LINE   1552 "regression-compile-tmp/imp918s.imp"
9895 @ 84241:                  GOTO   L_0003
9896 @ 84244:                  LOCATE L_0004

  1553              P=R; A(P)=NAME
9897 @ 84247:                  LINE   1553 "regression-compile-tmp/imp918s.imp"
9898 @ 84285:                  PUSH   P
9899 @ 84288:                  PUSH   R
9900 @ 84291:                  ASSVAL
9901 @ 84292:                  LINE   1553 "regression-compile-tmp/imp918s.imp"
9902 @ 84330:                  PUSH   A
9903 @ 84333:                  PUSH   P
9904 @ 84336:                  ACCESS
9905 @ 84337:                  PUSH   NAME
9906 @ 84340:                  ASSVAL

  1554              A(P+1)=2; A(P+2)=2;       ! SET NO APP OR ENAME
9907 @ 84341:                  LINE   1554 "regression-compile-tmp/imp918s.imp"
9908 @ 84379:                  PUSH   A
9909 @ 84382:                  PUSH   P
9910 @ 84385:                  PUSHI  #0x00000001
9911 @ 84390:                  ADD   
9912 @ 84391:                  ACCESS
9913 @ 84392:                  PUSHI  #0x00000002
9914 @ 84397:                  ASSVAL
9915 @ 84398:                  LINE   1554 "regression-compile-tmp/imp918s.imp"
9916 @ 84436:                  PUSH   A
9917 @ 84439:                  PUSH   P
9918 @ 84442:                  PUSHI  #0x00000002
9919 @ 84447:                  ADD   
9920 @ 84448:                  ACCESS
9921 @ 84449:                  PUSHI  #0x00000002
9922 @ 84454:                  ASSVAL

  1555              CNAME(2,CREG);            ! CONTROL -> R1 OPTIMUM METHOD
9923 @ 84455:                  LINE   1555 "regression-compile-tmp/imp918s.imp"
9924 @ 84493:                  PUSH   CNAME
9925 @ 84496:                  PUSHI  #0x00000002
9926 @ 84501:                  ASSPAR
9927 @ 84502:                  PUSH   CREG
9928 @ 84505:                  ASSPAR
9929 @ 84506:                  CALL  

  1556           %FINISH
  1557  !
  1558  ! NOW PLANT CODE TO DO THE TEST AND BRANCH.AGAIN 2 WAYS POSSIBLE
  1559  !
9930 @ 84507:                  LINE   1556 "regression-compile-tmp/imp918s.imp"
9931 @ 84545:                  LOCATE L_0003

  1560           %IF BXLE=0 %THEN %START;    ! THE TEDIOUS BUT VALID ROUTE
9932 @ 84548:                  LINE   1560 "regression-compile-tmp/imp918s.imp"
9933 @ 84586:                  PUSH   BXLE
9934 @ 84589:                  PUSHI  #0x00000000
9935 @ 84594:                  JUMPIF # L_0004

  1561              PRR(X'18',0,CREG);                 ! LR 0,1
9936 @ 84598:                  LINE   1561 "regression-compile-tmp/imp918s.imp"
9937 @ 84636:                  PUSH   PRR
9938 @ 84639:                  PUSHI  #0x00000018
9939 @ 84644:                  ASSPAR
9940 @ 84645:                  PUSHI  #0x00000000
9941 @ 84650:                  ASSPAR
9942 @ 84651:                  PUSH   CREG
9943 @ 84654:                  ASSPAR
9944 @ 84655:                  CALL  

  1562              PRR(X'1A',CREG,BREG);              ! AR 1,INC
9945 @ 84656:                  LINE   1562 "regression-compile-tmp/imp918s.imp"
9946 @ 84694:                  PUSH   PRR
9947 @ 84697:                  PUSHI  #0x0000001a
9948 @ 84702:                  ASSPAR
9949 @ 84703:                  PUSH   CREG
9950 @ 84706:                  ASSPAR
9951 @ 84707:                  PUSH   BREG
9952 @ 84710:                  ASSPAR
9953 @ 84711:                  CALL  

  1563              PRR(X'19',0,BREG+1);            ! CR 0,FINAL
9954 @ 84712:                  LINE   1563 "regression-compile-tmp/imp918s.imp"
9955 @ 84750:                  PUSH   PRR
9956 @ 84753:                  PUSHI  #0x00000019
9957 @ 84758:                  ASSPAR
9958 @ 84759:                  PUSHI  #0x00000000
9959 @ 84764:                  ASSPAR
9960 @ 84765:                  PUSH   BREG
9961 @ 84768:                  PUSHI  #0x00000001
9962 @ 84773:                  ADD   
9963 @ 84774:                  ASSPAR
9964 @ 84775:                  CALL  

  1564              FORGET(0)
9965 @ 84776:                  LINE   1564 "regression-compile-tmp/imp918s.imp"
9966 @ 84814:                  PUSH   FORGET
9967 @ 84817:                  PUSHI  #0x00000000
9968 @ 84822:                  ASSPAR
9969 @ 84823:                  CALL  

  1565              REGISTER(CREG)=1;          ! JUMP MAY LOAD 4K MULTIPLE
9970 @ 84824:                  LINE   1565 "regression-compile-tmp/imp918s.imp"
9971 @ 84862:                  PUSH   REGISTER
9972 @ 84865:                  PUSH   CREG
9973 @ 84868:                  ACCESS
9974 @ 84869:                  PUSHI  #0x00000001
9975 @ 84874:                  ASSVAL

  1566              REGISTER(BREG)=1;       ! SO PROTECT REGISTER IN USE
9976 @ 84875:                  LINE   1566 "regression-compile-tmp/imp918s.imp"
9977 @ 84913:                  PUSH   REGISTER
9978 @ 84916:                  PUSH   BREG
9979 @ 84919:                  ACCESS
9980 @ 84920:                  PUSHI  #0x00000001
9981 @ 84925:                  ASSVAL

  1567              REGISTER(BREG+1)=1
9982 @ 84926:                  LINE   1567 "regression-compile-tmp/imp918s.imp"
9983 @ 84964:                  PUSH   REGISTER
9984 @ 84967:                  PUSH   BREG
9985 @ 84970:                  PUSHI  #0x00000001
9986 @ 84975:                  ADD   
9987 @ 84976:                  ACCESS
9988 @ 84977:                  PUSHI  #0x00000001
9989 @ 84982:                  ASSVAL

  1568              ENTER JUMP(7,LAB,0);    ! BNE <BEGIN ANOTHER TRAVERSE>
9990 @ 84983:                  LINE   1568 "regression-compile-tmp/imp918s.imp"
9991 @ 85021:                  PUSH   ENTERJUMP
9992 @ 85024:                  PUSHI  #0x00000007
9993 @ 85029:                  ASSPAR
9994 @ 85030:                  PUSH   LAB
9995 @ 85033:                  ASSPAR
9996 @ 85034:                  PUSHI  #0x00000000
9997 @ 85039:                  ASSPAR
9998 @ 85040:                  CALL  

  1569           %FINISH %ELSE %START;      ! THE BXLE INSTRUCTION CAN BE USED
9999 @ 85041:                  LINE   1569 "regression-compile-tmp/imp918s.imp"
10000 @ 85079:                  GOTO   L_0003
10001 @ 85082:                  LOCATE L_0004

  1570              KK=FIND3(LAB,LABEL(LEVEL))
10002 @ 85085:                  LINE   1570 "regression-compile-tmp/imp918s.imp"
10003 @ 85123:                  PUSH   KK
10004 @ 85126:                  PUSH   FIND3
10005 @ 85129:                  PUSH   LAB
10006 @ 85132:                  ASSPAR
10007 @ 85133:                  PUSH   LABEL
10008 @ 85136:                  PUSH   LEVEL
10009 @ 85139:                  ACCESS
10010 @ 85140:                  ASSPAR
10011 @ 85141:                  CALL  
10012 @ 85142:                  ASSVAL

  1571              KK=FROM1(KK);           ! EXTRACT LABEL ADDRESS
10013 @ 85143:                  LINE   1571 "regression-compile-tmp/imp918s.imp"
10014 @ 85181:                  PUSH   KK
10015 @ 85184:                  PUSH   FROM1
10016 @ 85187:                  PUSH   KK
10017 @ 85190:                  ASSPAR
10018 @ 85191:                  CALL  
10019 @ 85192:                  ASSVAL

  1572              %IF CYC BASE=0 %THEN I=10 %AND KK=KK-CODEBASE %ELSE %C
  1573                                   I=CYC BASE %AND KK=KK-CYC ADDR
10020 @ 85193:                  LINE   1572 "regression-compile-tmp/imp918s.imp"
10021 @ 85231:                  PUSH   CYCBASE
10022 @ 85234:                  PUSHI  #0x00000000
10023 @ 85239:                  JUMPIF # L_0007
10024 @ 85243:                  PUSH   I
10025 @ 85246:                  PUSHI  #0x0000000a
10026 @ 85251:                  ASSVAL
10027 @ 85252:                  PUSH   KK
10028 @ 85255:                  PUSH   KK
10029 @ 85258:                  PUSH   CODEBASE
10030 @ 85261:                  SUB   
10031 @ 85262:                  ASSVAL
10032 @ 85263:                  GOTO   L_0006
10033 @ 85266:                  LOCATE L_0007
10034 @ 85269:                  PUSH   I
10035 @ 85272:                  PUSH   CYCBASE
10036 @ 85275:                  ASSVAL
10037 @ 85276:                  PUSH   KK
10038 @ 85279:                  PUSH   KK
10039 @ 85282:                  PUSH   CYCADDR
10040 @ 85285:                  SUB   
10041 @ 85286:                  ASSVAL
10042 @ 85287:                  LOCATE L_0006

  1574              PRX(X'87',CREG,BREG,I,KK); ! BXLE 1,2,<NEXT TRAVERSE>
10043 @ 85290:                  LINE   1574 "regression-compile-tmp/imp918s.imp"
10044 @ 85328:                  PUSH   PRX
10045 @ 85331:                  PUSHI  #0x00000087
10046 @ 85336:                  ASSPAR
10047 @ 85337:                  PUSH   CREG
10048 @ 85340:                  ASSPAR
10049 @ 85341:                  PUSH   BREG
10050 @ 85344:                  ASSPAR
10051 @ 85345:                  PUSH   I
10052 @ 85348:                  ASSPAR
10053 @ 85349:                  PUSH   KK
10054 @ 85352:                  ASSPAR
10055 @ 85353:                  CALL  

  1575           %FINISH
10056 @ 85354:                  LINE   1575 "regression-compile-tmp/imp918s.imp"
10057 @ 85392:                  LOCATE L_0003

  1576           %IF CREG#1 %THEN CYC REGS=CYCREGS!!(1<<CREG)
10058 @ 85395:                  LINE   1576 "regression-compile-tmp/imp918s.imp"
10059 @ 85433:                  PUSH   CREG
10060 @ 85436:                  PUSHI  #0x00000001
10061 @ 85441:                  JUMPIF = L_0004
10062 @ 85445:                  PUSH   CYCREGS
10063 @ 85448:                  PUSH   CYCREGS
10064 @ 85451:                  PUSHI  #0x00000001
10065 @ 85456:                  PUSH   CREG
10066 @ 85459:                  LSH   
10067 @ 85460:                  XOR   
10068 @ 85461:                  ASSVAL
10069 @ 85462:                  LOCATE L_0004

  1577           CYC RESTORE;               ! DEALLOCATE PRELOADED REGISTERS
  1578                                          ! EXCEPT CYCLE CONTROL VARIABLE
10070 @ 85465:                  LINE   1577 "regression-compile-tmp/imp918s.imp"
10071 @ 85503:                  PUSH   CYCRESTORE
10072 @ 85506:                  CALL  

  1579           %CYCLE I=BREG,1,BREG+1
10073 @ 85507:                  LINE   1579 "regression-compile-tmp/imp918s.imp"
10074 @ 85545:                  PUSH   I
10075 @ 85548:                  PUSHI  #0x00000001
10076 @ 85553:                  PUSH   BREG
10077 @ 85556:                  PUSHI  #0x00000001
10078 @ 85561:                  ADD   
10079 @ 85562:                  PUSH   BREG
10080 @ 85565:                  FOR    L_0003

  1580              FREE AND FORGET(I)
10081 @ 85568:                  LINE   1580 "regression-compile-tmp/imp918s.imp"
10082 @ 85606:                  PUSH   FREEANDFORGET
10083 @ 85609:                  PUSH   I
10084 @ 85612:                  ASSPAR
10085 @ 85613:                  CALL  

  1581           %REPEAT
10086 @ 85614:                  LINE   1581 "regression-compile-tmp/imp918s.imp"
10087 @ 85652:                  REPEAT L_0003
10088 @ 85655:                  LOCATE L_0004

  1582           %IF CREG#1 %THEN %START; ! CONTROL ALLOCATED A REG
10089 @ 85658:                  LINE   1582 "regression-compile-tmp/imp918s.imp"
10090 @ 85696:                  PUSH   CREG
10091 @ 85699:                  PUSHI  #0x00000001
10092 @ 85704:                  JUMPIF = L_0004

  1583              VDALLOC(CREG,(BREG+1)*(1-COMPILER))
10093 @ 85708:                  LINE   1583 "regression-compile-tmp/imp918s.imp"
10094 @ 85746:                  PUSH   VDALLOC
10095 @ 85749:                  PUSH   CREG
10096 @ 85752:                  ASSPAR
10097 @ 85753:                  PUSH   BREG
10098 @ 85756:                  PUSHI  #0x00000001
10099 @ 85761:                  ADD   
10100 @ 85762:                  PUSHI  #0x00000001
10101 @ 85767:                  PUSH   COMPILER
10102 @ 85770:                  SUB   
10103 @ 85771:                  MUL   
10104 @ 85772:                  ASSPAR
10105 @ 85773:                  CALL  

  1584              NOTE ASSMENT(BREG+1,2,NAME);! SET CONTROL TO FINAL VALUE
10106 @ 85774:                  LINE   1584 "regression-compile-tmp/imp918s.imp"
10107 @ 85812:                  PUSH   NOTEASSMENT
10108 @ 85815:                  PUSH   BREG
10109 @ 85818:                  PUSHI  #0x00000001
10110 @ 85823:                  ADD   
10111 @ 85824:                  ASSPAR
10112 @ 85825:                  PUSHI  #0x00000002
10113 @ 85830:                  ASSPAR
10114 @ 85831:                  PUSH   NAME
10115 @ 85834:                  ASSPAR
10116 @ 85835:                  CALL  

  1585           %FINISH %ELSE FREE AND FORGET(CREG)
10117 @ 85836:                  LINE   1585 "regression-compile-tmp/imp918s.imp"
10118 @ 85874:                  GOTO   L_0003
10119 @ 85877:                  LOCATE L_0004
10120 @ 85880:                  PUSH   FREEANDFORGET
10121 @ 85883:                  PUSH   CREG
10122 @ 85886:                  ASSPAR
10123 @ 85887:                  CALL  
10124 @ 85888:                  LOCATE L_0003

  1586           %IF NAME<0 %THEN FREE AND FORGET(4)
10125 @ 85891:                  LINE   1586 "regression-compile-tmp/imp918s.imp"
10126 @ 85929:                  PUSH   NAME
10127 @ 85932:                  PUSHI  #0x00000000
10128 @ 85937:                  JUMPIF >= L_0004
10129 @ 85941:                  PUSH   FREEANDFORGET
10130 @ 85944:                  PUSHI  #0x00000004
10131 @ 85949:                  ASSPAR
10132 @ 85950:                  CALL  
10133 @ 85951:                  LOCATE L_0004

  1587           %IF DSP#0 %THEN RETURN WSP(DSP,WSPL);!WORKAREA TO FREE LIST
10134 @ 85954:                  LINE   1587 "regression-compile-tmp/imp918s.imp"
10135 @ 85992:                  PUSH   DSP
10136 @ 85995:                  PUSHI  #0x00000000
10137 @ 86000:                  JUMPIF = L_0004
10138 @ 86004:                  PUSH   RETURNWSP
10139 @ 86007:                  PUSH   DSP
10140 @ 86010:                  ASSPAR
10141 @ 86011:                  PUSH   WSPL
10142 @ 86014:                  ASSPAR
10143 @ 86015:                  CALL  
10144 @ 86016:                  LOCATE L_0004

  1588           %IF UNASS=1 %THEN DUMPSI(X'92',0,RBASE,DSP+8)
10145 @ 86019:                  LINE   1588 "regression-compile-tmp/imp918s.imp"
10146 @ 86057:                  PUSH   UNASS
10147 @ 86060:                  PUSHI  #0x00000001
10148 @ 86065:                  JUMPIF # L_0004
10149 @ 86069:                  PUSH   DUMPSI
10150 @ 86072:                  PUSHI  #0x00000092
10151 @ 86077:                  ASSPAR
10152 @ 86078:                  PUSHI  #0x00000000
10153 @ 86083:                  ASSPAR
10154 @ 86084:                  PUSH   RBASE
10155 @ 86087:                  ASSPAR
10156 @ 86088:                  PUSH   DSP
10157 @ 86091:                  PUSHI  #0x00000008
10158 @ 86096:                  ADD   
10159 @ 86097:                  ASSPAR
10160 @ 86098:                  CALL  
10161 @ 86099:                  LOCATE L_0004

  1589           CYC REGS=0; CYC BASE=0
10162 @ 86102:                  LINE   1589 "regression-compile-tmp/imp918s.imp"
10163 @ 86140:                  PUSH   CYCREGS
10164 @ 86143:                  PUSHI  #0x00000000
10165 @ 86148:                  ASSVAL
10166 @ 86149:                  LINE   1589 "regression-compile-tmp/imp918s.imp"
10167 @ 86187:                  PUSH   CYCBASE
10168 @ 86190:                  PUSHI  #0x00000000
10169 @ 86195:                  ASSVAL

  1590           CCSTATE=-1; ->Label1
10170 @ 86196:                  LINE   1590 "regression-compile-tmp/imp918s.imp"
10171 @ 86234:                  PUSH   CCSTATE
10172 @ 86237:                  PUSHI  #0x00000001
10173 @ 86242:                  NEGATE
10174 @ 86243:                  ASSVAL
10175 @ 86244:                  LINE   1590 "regression-compile-tmp/imp918s.imp"
10176 @ 86282:                  JUMP   L_0208

  1591  CTYPE(1):                               ! '%WHILE' '%CYCLE'
10177 @ 86285:                  LINE   1591 "regression-compile-tmp/imp918s.imp"
10178 @ 86323:                  PUSHI  #0x00000001
10179 @ 86328:                  SLABEL 519

  1592           ENTER JUMP(15,LAB,0);          ! UNCONDITIONALLY TO WHILE CLAUS
10180 @ 86331:                  LINE   1592 "regression-compile-tmp/imp918s.imp"
10181 @ 86369:                  PUSH   ENTERJUMP
10182 @ 86372:                  PUSHI  #0x0000000f
10183 @ 86377:                  ASSPAR
10184 @ 86378:                  PUSH   LAB
10185 @ 86381:                  ASSPAR
10186 @ 86382:                  PUSHI  #0x00000000
10187 @ 86387:                  ASSPAR
10188 @ 86388:                  CALL  

  1593           ENTER LAB(LAB-1,B'111');       ! CONDITIONAL/REPLACE ENV
10189 @ 86389:                  LINE   1593 "regression-compile-tmp/imp918s.imp"
10190 @ 86427:                  PUSH   ENTERLAB
10191 @ 86430:                  PUSH   LAB
10192 @ 86433:                  PUSHI  #0x00000001
10193 @ 86438:                  SUB   
10194 @ 86439:                  ASSPAR
10195 @ 86440:                  PUSHI  #0x00000007
10196 @ 86445:                  ASSPAR
10197 @ 86446:                  CALL  

  1594          ->Label2
10198 @ 86447:                  LINE   1594 "regression-compile-tmp/imp918s.imp"
10199 @ 86485:                  JUMP   L_020a

  1595  CTYPE(2):                               ! '%UNTIL' ... '%CYCLE'
10200 @ 86488:                  LINE   1595 "regression-compile-tmp/imp918s.imp"
10201 @ 86526:                  PUSHI  #0x00000002
10202 @ 86531:                  SLABEL 519

  1596           %IF 500-R>799-TOPPTR %THEN %START
10203 @ 86534:                  LINE   1596 "regression-compile-tmp/imp918s.imp"
10204 @ 86572:                  PUSHI  #0x000001f4
10205 @ 86577:                  PUSH   R
10206 @ 86580:                  SUB   
10207 @ 86581:                  PUSHI  #0x0000031f
10208 @ 86586:                  PUSH   TOPPTR
10209 @ 86589:                  SUB   
10210 @ 86590:                  JUMPIF <= L_0004

  1597              P=R+1; WSPL=499-P
10211 @ 86594:                  LINE   1597 "regression-compile-tmp/imp918s.imp"
10212 @ 86632:                  PUSH   P
10213 @ 86635:                  PUSH   R
10214 @ 86638:                  PUSHI  #0x00000001
10215 @ 86643:                  ADD   
10216 @ 86644:                  ASSVAL
10217 @ 86645:                  LINE   1597 "regression-compile-tmp/imp918s.imp"
10218 @ 86683:                  PUSH   WSPL
10219 @ 86686:                  PUSHI  #0x000001f3
10220 @ 86691:                  PUSH   P
10221 @ 86694:                  SUB   
10222 @ 86695:                  ASSVAL

  1598           %FINISH %ELSE %START
10223 @ 86696:                  LINE   1598 "regression-compile-tmp/imp918s.imp"
10224 @ 86734:                  GOTO   L_0003
10225 @ 86737:                  LOCATE L_0004

  1599              P=TOPPTR+1; WSPL=799-P
10226 @ 86740:                  LINE   1599 "regression-compile-tmp/imp918s.imp"
10227 @ 86778:                  PUSH   P
10228 @ 86781:                  PUSH   TOPPTR
10229 @ 86784:                  PUSHI  #0x00000001
10230 @ 86789:                  ADD   
10231 @ 86790:                  ASSVAL
10232 @ 86791:                  LINE   1599 "regression-compile-tmp/imp918s.imp"
10233 @ 86829:                  PUSH   WSPL
10234 @ 86832:                  PUSHI  #0x0000031f
10235 @ 86837:                  PUSH   P
10236 @ 86840:                  SUB   
10237 @ 86841:                  ASSVAL

  1600           %FINISH
10238 @ 86842:                  LINE   1600 "regression-compile-tmp/imp918s.imp"
10239 @ 86880:                  LOCATE L_0003

  1601           %IF WSPL<DSP %THEN FAULT(102,0);  ! NO ROOM FOR A.R.
10240 @ 86883:                  LINE   1601 "regression-compile-tmp/imp918s.imp"
10241 @ 86921:                  PUSH   WSPL
10242 @ 86924:                  PUSH   DSP
10243 @ 86927:                  JUMPIF >= L_0004
10244 @ 86931:                  PUSH   FAULT
10245 @ 86934:                  PUSHI  #0x00000066
10246 @ 86939:                  ASSPAR
10247 @ 86940:                  PUSHI  #0x00000000
10248 @ 86945:                  ASSPAR
10249 @ 86946:                  CALL  
10250 @ 86947:                  LOCATE L_0004

  1602           WSPL=P; P=P+DSP; HEAD=BREG
10251 @ 86950:                  LINE   1602 "regression-compile-tmp/imp918s.imp"
10252 @ 86988:                  PUSH   WSPL
10253 @ 86991:                  PUSH   P
10254 @ 86994:                  ASSVAL
10255 @ 86995:                  LINE   1602 "regression-compile-tmp/imp918s.imp"
10256 @ 87033:                  PUSH   P
10257 @ 87036:                  PUSH   P
10258 @ 87039:                  PUSH   DSP
10259 @ 87042:                  ADD   
10260 @ 87043:                  ASSVAL
10261 @ 87044:                  LINE   1602 "regression-compile-tmp/imp918s.imp"
10262 @ 87082:                  PUSH   HEAD
10263 @ 87085:                  PUSH   BREG
10264 @ 87088:                  ASSVAL

  1603           %CYCLE;                           ! RETRIEVE AR FROM LIST
10265 @ 87089:                  LINE   1603 "regression-compile-tmp/imp918s.imp"
10266 @ 87127:                  LOCATE L_0003

  1604              POP123(HEAD,JJJ,KKK,KK)
10267 @ 87130:                  LINE   1604 "regression-compile-tmp/imp918s.imp"
10268 @ 87168:                  PUSH   POP123
10269 @ 87171:                  PUSH   HEAD
10270 @ 87174:                  ASSPAR
10271 @ 87175:                  PUSH   JJJ
10272 @ 87178:                  ASSPAR
10273 @ 87179:                  PUSH   KKK
10274 @ 87182:                  ASSPAR
10275 @ 87183:                  PUSH   KK
10276 @ 87186:                  ASSPAR
10277 @ 87187:                  CALL  

  1605              P=P-5
10278 @ 87188:                  LINE   1605 "regression-compile-tmp/imp918s.imp"
10279 @ 87226:                  PUSH   P
10280 @ 87229:                  PUSH   P
10281 @ 87232:                  PUSHI  #0x00000005
10282 @ 87237:                  SUB   
10283 @ 87238:                  ASSVAL

  1606              TOAR4(P,JJJ)
10284 @ 87239:                  LINE   1606 "regression-compile-tmp/imp918s.imp"
10285 @ 87277:                  PUSH   TOAR4
10286 @ 87280:                  PUSH   P
10287 @ 87283:                  ASSPAR
10288 @ 87284:                  PUSH   JJJ
10289 @ 87287:                  ASSPAR
10290 @ 87288:                  CALL  

  1607              TOAR4(P+2,KKK)
10291 @ 87289:                  LINE   1607 "regression-compile-tmp/imp918s.imp"
10292 @ 87327:                  PUSH   TOAR4
10293 @ 87330:                  PUSH   P
10294 @ 87333:                  PUSHI  #0x00000002
10295 @ 87338:                  ADD   
10296 @ 87339:                  ASSPAR
10297 @ 87340:                  PUSH   KKK
10298 @ 87343:                  ASSPAR
10299 @ 87344:                  CALL  

  1608              A(P+4)=KK
10300 @ 87345:                  LINE   1608 "regression-compile-tmp/imp918s.imp"
10301 @ 87383:                  PUSH   A
10302 @ 87386:                  PUSH   P
10303 @ 87389:                  PUSHI  #0x00000004
10304 @ 87394:                  ADD   
10305 @ 87395:                  ACCESS
10306 @ 87396:                  PUSH   KK
10307 @ 87399:                  ASSVAL

  1609           %REPEAT %UNTIL HEAD=0
10308 @ 87400:                  LINE   1609 "regression-compile-tmp/imp918s.imp"
10309 @ 87438:                  PUSH   HEAD
10310 @ 87441:                  PUSHI  #0x00000000
10311 @ 87446:                  JUMPIF = L_0004
10312 @ 87450:                  REPEAT L_0003
10313 @ 87453:                  LOCATE L_0004

  1610           A(PIN-1)=A(P);                  ! SET UP LINE NO OF CONDITION
10314 @ 87456:                  LINE   1610 "regression-compile-tmp/imp918s.imp"
10315 @ 87494:                  PUSH   A
10316 @ 87497:                  PUSH   PIN
10317 @ 87500:                  PUSHI  #0x00000001
10318 @ 87505:                  SUB   
10319 @ 87506:                  ACCESS
10320 @ 87507:                  PUSH   A
10321 @ 87510:                  PUSH   P
10322 @ 87513:                  ACCESS
10323 @ 87514:                  ASSVAL

  1611           P=P+1
10324 @ 87515:                  LINE   1611 "regression-compile-tmp/imp918s.imp"
10325 @ 87553:                  PUSH   P
10326 @ 87556:                  PUSH   P
10327 @ 87559:                  PUSHI  #0x00000001
10328 @ 87564:                  ADD   
10329 @ 87565:                  ASSVAL

  1612           R=R+DSP
10330 @ 87566:                  LINE   1612 "regression-compile-tmp/imp918s.imp"
10331 @ 87604:                  PUSH   R
10332 @ 87607:                  PUSH   R
10333 @ 87610:                  PUSH   DSP
10334 @ 87613:                  ADD   
10335 @ 87614:                  ASSVAL

  1613           CCOND(1,LAB)
10336 @ 87615:                  LINE   1613 "regression-compile-tmp/imp918s.imp"
10337 @ 87653:                  PUSH   CCOND
10338 @ 87656:                  PUSHI  #0x00000001
10339 @ 87661:                  ASSPAR
10340 @ 87662:                  PUSH   LAB
10341 @ 87665:                  ASSPAR
10342 @ 87666:                  CALL  

  1614           R=R-DSP
10343 @ 87667:                  LINE   1614 "regression-compile-tmp/imp918s.imp"
10344 @ 87705:                  PUSH   R
10345 @ 87708:                  PUSH   R
10346 @ 87711:                  PUSH   DSP
10347 @ 87714:                  SUB   
10348 @ 87715:                  ASSVAL

  1615  Label2:       CYC RESTORE
10349 @ 87716:                  LINE   1615 "regression-compile-tmp/imp918s.imp"
10350 @ 87754:                  LABEL  L_020a
10351 @ 87757:                  LINE   1615 "regression-compile-tmp/imp918s.imp"
10352 @ 87795:                  PUSH   CYCRESTORE
10353 @ 87798:                  CALL  

  1616           CYC REGS=0; CYC BASE=0
10354 @ 87799:                  LINE   1616 "regression-compile-tmp/imp918s.imp"
10355 @ 87837:                  PUSH   CYCREGS
10356 @ 87840:                  PUSHI  #0x00000000
10357 @ 87845:                  ASSVAL
10358 @ 87846:                  LINE   1616 "regression-compile-tmp/imp918s.imp"
10359 @ 87884:                  PUSH   CYCBASE
10360 @ 87887:                  PUSHI  #0x00000000
10361 @ 87892:                  ASSVAL

  1617  Label1:       %IF EUSED#0 %THEN ENTER LAB(ELABEL,B'11')
10362 @ 87893:                  LINE   1617 "regression-compile-tmp/imp918s.imp"
10363 @ 87931:                  LABEL  L_0208
10364 @ 87934:                  LINE   1617 "regression-compile-tmp/imp918s.imp"
10365 @ 87972:                  PUSH   EUSED
10366 @ 87975:                  PUSHI  #0x00000000
10367 @ 87980:                  JUMPIF = L_0004
10368 @ 87984:                  PUSH   ENTERLAB
10369 @ 87987:                  PUSH   ELABEL
10370 @ 87990:                  ASSPAR
10371 @ 87991:                  PUSHI  #0x00000003
10372 @ 87996:                  ASSPAR
10373 @ 87997:                  CALL  
10374 @ 87998:                  LOCATE L_0004

  1618           %END; ->Label1
  1619  !
10375 @ 88001:                  LINE   1618 "regression-compile-tmp/imp918s.imp"
10376 @ 88039:               END    _lev0id0_CSS_lev2id4 {lev=3 --> 2}
10377 @ 88040:               LINE   1618 "regression-compile-tmp/imp918s.imp"
10378 @ 88078:               JUMP   L_01f4

  1620  SW(4):                                 ! (LABEL)':'
10379 @ 88081:               LINE   1620 "regression-compile-tmp/imp918s.imp"
10380 @ 88119:               PUSHI  #0x00000004
10381 @ 88124:               SLABEL 445

  1621           K=A(P+1)
10382 @ 88127:               LINE   1621 "regression-compile-tmp/imp918s.imp"
10383 @ 88165:               PUSH   K
10384 @ 88168:               PUSH   A
10385 @ 88171:               PUSH   P
10386 @ 88174:               PUSHI  #0x00000001
10387 @ 88179:               ADD   
10388 @ 88180:               ACCESS
10389 @ 88181:               ASSVAL

  1622           FAULT(2,0) %IF K=0 %OR K>16383
10390 @ 88182:               LINE   1622 "regression-compile-tmp/imp918s.imp"
10391 @ 88220:               PUSH   K
10392 @ 88223:               PUSHI  #0x00000000
10393 @ 88228:               JUMPIF = L_0005
10394 @ 88232:               PUSH   K
10395 @ 88235:               PUSHI  #0x00003fff
10396 @ 88240:               JUMPIF <= L_0004
10397 @ 88244:               LOCATE L_0005
10398 @ 88247:               PUSH   FAULT
10399 @ 88250:               PUSHI  #0x00000002
10400 @ 88255:               ASSPAR
10401 @ 88256:               PUSHI  #0x00000000
10402 @ 88261:               ASSPAR
10403 @ 88262:               CALL  
10404 @ 88263:               LOCATE L_0004

  1623  Label401:     NMDECS=NMDECS!1
10405 @ 88266:               LINE   1623 "regression-compile-tmp/imp918s.imp"
10406 @ 88304:               LABEL  L_01f8
10407 @ 88307:               LINE   1623 "regression-compile-tmp/imp918s.imp"
10408 @ 88345:               PUSH   NMDECS
10409 @ 88348:               PUSH   NMDECS
10410 @ 88351:               PUSHI  #0x00000001
10411 @ 88356:               OR    
10412 @ 88357:               ASSVAL

  1624           ENTER LAB(K,0)
10413 @ 88358:               LINE   1624 "regression-compile-tmp/imp918s.imp"
10414 @ 88396:               PUSH   ENTERLAB
10415 @ 88399:               PUSH   K
10416 @ 88402:               ASSPAR
10417 @ 88403:               PUSHI  #0x00000000
10418 @ 88408:               ASSPAR
10419 @ 88409:               CALL  

  1625           CYC BITS=CYC BITS!1;            ! SET 'LABEL' BIT
10420 @ 88410:               LINE   1625 "regression-compile-tmp/imp918s.imp"
10421 @ 88448:               PUSH   CYCBITS
10422 @ 88451:               PUSH   CYCBITS
10423 @ 88454:               PUSHI  #0x00000001
10424 @ 88459:               OR    
10425 @ 88460:               ASSVAL

  1626           ->Label1
  1627  !
10426 @ 88461:               LINE   1626 "regression-compile-tmp/imp918s.imp"
10427 @ 88499:               JUMP   L_01f4

  1628  SW(5):                                 ! (%IU)(COND)%THEN(UI)(ELSE')
10428 @ 88502:               LINE   1628 "regression-compile-tmp/imp918s.imp"
10429 @ 88540:               PUSHI  #0x00000005
10430 @ 88545:               SLABEL 445

  1629           MARKIU=P+1; MARKC=MARKIU+2
10431 @ 88548:               LINE   1629 "regression-compile-tmp/imp918s.imp"
10432 @ 88586:               PUSH   MARKIU
10433 @ 88589:               PUSH   P
10434 @ 88592:               PUSHI  #0x00000001
10435 @ 88597:               ADD   
10436 @ 88598:               ASSVAL
10437 @ 88599:               LINE   1629 "regression-compile-tmp/imp918s.imp"
10438 @ 88637:               PUSH   MARKC
10439 @ 88640:               PUSH   MARKIU
10440 @ 88643:               PUSHI  #0x00000002
10441 @ 88648:               ADD   
10442 @ 88649:               ASSVAL

  1630           MARKR=P+2+A(P+2); MARKE=0
10443 @ 88650:               LINE   1630 "regression-compile-tmp/imp918s.imp"
10444 @ 88688:               PUSH   MARKR
10445 @ 88691:               PUSH   P
10446 @ 88694:               PUSHI  #0x00000002
10447 @ 88699:               ADD   
10448 @ 88700:               PUSH   A
10449 @ 88703:               PUSH   P
10450 @ 88706:               PUSHI  #0x00000002
10451 @ 88711:               ADD   
10452 @ 88712:               ACCESS
10453 @ 88713:               ADD   
10454 @ 88714:               ASSVAL
10455 @ 88715:               LINE   1630 "regression-compile-tmp/imp918s.imp"
10456 @ 88753:               PUSH   MARKE
10457 @ 88756:               PUSHI  #0x00000000
10458 @ 88761:               ASSVAL

  1631           %IF A(MARKR)=3 %THEN %START
10459 @ 88762:               LINE   1631 "regression-compile-tmp/imp918s.imp"
10460 @ 88800:               PUSH   A
10461 @ 88803:               PUSH   MARKR
10462 @ 88806:               ACCESS
10463 @ 88807:               PUSHI  #0x00000003
10464 @ 88812:               JUMPIF # L_0004

  1632           MARKE=MARKR+1+A(MARKR+1); MARKUI=MARKR+2
10465 @ 88816:               LINE   1632 "regression-compile-tmp/imp918s.imp"
10466 @ 88854:               PUSH   MARKE
10467 @ 88857:               PUSH   MARKR
10468 @ 88860:               PUSHI  #0x00000001
10469 @ 88865:               ADD   
10470 @ 88866:               PUSH   A
10471 @ 88869:               PUSH   MARKR
10472 @ 88872:               PUSHI  #0x00000001
10473 @ 88877:               ADD   
10474 @ 88878:               ACCESS
10475 @ 88879:               ADD   
10476 @ 88880:               ASSVAL
10477 @ 88881:               LINE   1632 "regression-compile-tmp/imp918s.imp"
10478 @ 88919:               PUSH   MARKUI
10479 @ 88922:               PUSH   MARKR
10480 @ 88925:               PUSHI  #0x00000002
10481 @ 88930:               ADD   
10482 @ 88931:               ASSVAL

  1633           %FINISH
10483 @ 88932:               LINE   1633 "regression-compile-tmp/imp918s.imp"
10484 @ 88970:               LOCATE L_0004

  1634           SET LINE %IF LINENOS#0
10485 @ 88973:               LINE   1634 "regression-compile-tmp/imp918s.imp"
10486 @ 89011:               PUSH   LINENOS
10487 @ 89014:               PUSHI  #0x00000000
10488 @ 89019:               JUMPIF = L_0004
10489 @ 89023:               PUSH   SETLINE
10490 @ 89026:               CALL  
10491 @ 89027:               LOCATE L_0004

  1635  CONEXP:  %BEGIN
  1636  !***********************************************************************
  1637  !*       THIS BLOCK COMPILES CONDITIONAL EXPRESSIONS.IT REQUIRES THE   *
  1638  !*       FOLLOWING GLOBAL POINTERS TO BE SET TO THEIR A .R. ENTRY.     *
  1639  !*       MARKIU TO THE ENTRY FOR P(%IU)                                *
  1640  !*       MARKC  TO THE ENTRY FOR P(COND)                               *
  1641  !*       MARKUI TO THE ENTRY FOR (FIRST OCCURRENCE OF)  P(UI)          *
  1642  !*       MARKE  TO THE ENTRY FOR P(ELSE')  - =0 FOR BACKWARDS CONDITION*
  1643  !*       MARKR  TO ENTRY FOR P(RESTOFIU)                               *
  1644  !***********************************************************************
  1645           {%SHORTROUTINE}
10492 @ 89030:               LINE   1635 "regression-compile-tmp/imp918s.imp"
10493 @ 89068:               LABEL  L_01f9
10494 @ 89071:               LINE   1635 "regression-compile-tmp/imp918s.imp"
10495 @ 89109:               BEGIN  _lev0id0_CSS_lev2id5 {lev=2 --> 3}

  1646           MARKIU=A(MARKIU);              ! ALT OF IU 1=%IF,2=%UNLESS
10496 @ 89110:                  LINE   1646 "regression-compile-tmp/imp918s.imp"
10497 @ 89148:                  PUSH   MARKIU
10498 @ 89151:                  PUSH   A
10499 @ 89154:                  PUSH   MARKIU
10500 @ 89157:                  ACCESS
10501 @ 89158:                  ASSVAL

  1647           KKK=-1
10502 @ 89159:                  LINE   1647 "regression-compile-tmp/imp918s.imp"
10503 @ 89197:                  PUSH   KKK
10504 @ 89200:                  PUSHI  #0x00000001
10505 @ 89205:                  NEGATE
10506 @ 89206:                  ASSVAL

  1648           %IF MARKR>0 %AND A(MARKR)<=2 %START;! '%START' OR '%THENSTART'
10507 @ 89207:                  LINE   1648 "regression-compile-tmp/imp918s.imp"
10508 @ 89245:                  PUSH   MARKR
10509 @ 89248:                  PUSHI  #0x00000000
10510 @ 89253:                  JUMPIF <= L_0004
10511 @ 89257:                  PUSH   A
10512 @ 89260:                  PUSH   MARKR
10513 @ 89263:                  ACCESS
10514 @ 89264:                  PUSHI  #0x00000002
10515 @ 89269:                  JUMPIF > L_0004

  1649              KKK=SFLABEL-1
10516 @ 89273:                  LINE   1649 "regression-compile-tmp/imp918s.imp"
10517 @ 89311:                  PUSH   KKK
10518 @ 89314:                  PUSH   SFLABEL
10519 @ 89317:                  PUSHI  #0x00000001
10520 @ 89322:                  SUB   
10521 @ 89323:                  ASSVAL

  1650              P=MARKC; CCOND(MARKIU,KKK)
10522 @ 89324:                  LINE   1650 "regression-compile-tmp/imp918s.imp"
10523 @ 89362:                  PUSH   P
10524 @ 89365:                  PUSH   MARKC
10525 @ 89368:                  ASSVAL
10526 @ 89369:                  LINE   1650 "regression-compile-tmp/imp918s.imp"
10527 @ 89407:                  PUSH   CCOND
10528 @ 89410:                  PUSH   MARKIU
10529 @ 89413:                  ASSPAR
10530 @ 89414:                  PUSH   KKK
10531 @ 89417:                  ASSPAR
10532 @ 89418:                  CALL  

  1651              CSTART(1)
10533 @ 89419:                  LINE   1651 "regression-compile-tmp/imp918s.imp"
10534 @ 89457:                  PUSH   CSTART
10535 @ 89460:                  PUSHI  #0x00000001
10536 @ 89465:                  ASSPAR
10537 @ 89466:                  CALL  

  1652              ->Label1
10538 @ 89467:                  LINE   1652 "regression-compile-tmp/imp918s.imp"
10539 @ 89505:                  JUMP   L_01fb

  1653           %FINISH
10540 @ 89508:                  LINE   1653 "regression-compile-tmp/imp918s.imp"
10541 @ 89546:                  LOCATE L_0004

  1654           %IF A(MARKUI)=2 %AND (A(MARKUI+1)<2 %OR A(MARKUI+3)=2) %THEN %C
  1655              KKK=A(MARKUI+2)+(A(MARKUI+1)-1)<<14;! UI = SIMPLE LABEL
  1656  !
10542 @ 89549:                  LINE   1654 "regression-compile-tmp/imp918s.imp"
10543 @ 89587:                  PUSH   A
10544 @ 89590:                  PUSH   MARKUI
10545 @ 89593:                  ACCESS
10546 @ 89594:                  PUSHI  #0x00000002
10547 @ 89599:                  JUMPIF # L_0004
10548 @ 89603:                  PUSH   A
10549 @ 89606:                  PUSH   MARKUI
10550 @ 89609:                  PUSHI  #0x00000001
10551 @ 89614:                  ADD   
10552 @ 89615:                  ACCESS
10553 @ 89616:                  PUSHI  #0x00000002
10554 @ 89621:                  JUMPIF < L_0005
10555 @ 89625:                  PUSH   A
10556 @ 89628:                  PUSH   MARKUI
10557 @ 89631:                  PUSHI  #0x00000003
10558 @ 89636:                  ADD   
10559 @ 89637:                  ACCESS
10560 @ 89638:                  PUSHI  #0x00000002
10561 @ 89643:                  JUMPIF # L_0004
10562 @ 89647:                  LOCATE L_0005
10563 @ 89650:                  PUSH   KKK
10564 @ 89653:                  PUSH   A
10565 @ 89656:                  PUSH   MARKUI
10566 @ 89659:                  PUSHI  #0x00000002
10567 @ 89664:                  ADD   
10568 @ 89665:                  ACCESS
10569 @ 89666:                  PUSH   A
10570 @ 89669:                  PUSH   MARKUI
10571 @ 89672:                  PUSHI  #0x00000001
10572 @ 89677:                  ADD   
10573 @ 89678:                  ACCESS
10574 @ 89679:                  PUSHI  #0x00000001
10575 @ 89684:                  SUB   
10576 @ 89685:                  PUSHI  #0x0000000e
10577 @ 89690:                  LSH   
10578 @ 89691:                  ADD   
10579 @ 89692:                  ASSVAL
10580 @ 89693:                  LOCATE L_0004

  1657           %IF A(MARKUI)=8 %AND CYCLE(LEVEL)#0 %START; ! VALID EXIT
10581 @ 89696:                  LINE   1657 "regression-compile-tmp/imp918s.imp"
10582 @ 89734:                  PUSH   A
10583 @ 89737:                  PUSH   MARKUI
10584 @ 89740:                  ACCESS
10585 @ 89741:                  PUSHI  #0x00000008
10586 @ 89746:                  JUMPIF # L_0004
10587 @ 89750:                  PUSH   CYCLE
10588 @ 89753:                  PUSH   LEVEL
10589 @ 89756:                  ACCESS
10590 @ 89757:                  PUSHI  #0x00000000
10591 @ 89762:                  JUMPIF = L_0004

  1658              KKK=FROM2(CYCLE(LEVEL))
10592 @ 89766:                  LINE   1658 "regression-compile-tmp/imp918s.imp"
10593 @ 89804:                  PUSH   KKK
10594 @ 89807:                  PUSH   FROM2
10595 @ 89810:                  PUSH   CYCLE
10596 @ 89813:                  PUSH   LEVEL
10597 @ 89816:                  ACCESS
10598 @ 89817:                  ASSPAR
10599 @ 89818:                  CALL  
10600 @ 89819:                  ASSVAL

  1659              REPLACE2(CYCLE(LEVEL),KKK!X'80000000')
10601 @ 89820:                  LINE   1659 "regression-compile-tmp/imp918s.imp"
10602 @ 89858:                  PUSH   REPLACE2
10603 @ 89861:                  PUSH   CYCLE
10604 @ 89864:                  PUSH   LEVEL
10605 @ 89867:                  ACCESS
10606 @ 89868:                  ASSPAR
10607 @ 89869:                  PUSH   KKK
10608 @ 89872:                  PUSHI  #0x80000000
10609 @ 89877:                  OR    
10610 @ 89878:                  ASSPAR
10611 @ 89879:                  CALL  

  1660              KKK=KKK>>16&X'7FFF'
10612 @ 89880:                  LINE   1660 "regression-compile-tmp/imp918s.imp"
10613 @ 89918:                  PUSH   KKK
10614 @ 89921:                  PUSH   KKK
10615 @ 89924:                  PUSHI  #0x00000010
10616 @ 89929:                  RSH   
10617 @ 89930:                  PUSHI  #0x00007fff
10618 @ 89935:                  AND   
10619 @ 89936:                  ASSVAL

  1661           %FINISH
  1662  !
10620 @ 89937:                  LINE   1661 "regression-compile-tmp/imp918s.imp"
10621 @ 89975:                  LOCATE L_0004

  1663           %IF KKK>=0 %THEN %START;  ! FIRST UI IS'->'<LABEL>
10622 @ 89978:                  LINE   1663 "regression-compile-tmp/imp918s.imp"
10623 @ 90016:                  PUSH   KKK
10624 @ 90019:                  PUSHI  #0x00000000
10625 @ 90024:                  JUMPIF < L_0004

  1664              NMDECS=NMDECS!1
10626 @ 90028:                  LINE   1664 "regression-compile-tmp/imp918s.imp"
10627 @ 90066:                  PUSH   NMDECS
10628 @ 90069:                  PUSH   NMDECS
10629 @ 90072:                  PUSHI  #0x00000001
10630 @ 90077:                  OR    
10631 @ 90078:                  ASSVAL

  1665              CYC BITS=CYC BITS!2;        ! SET 'JUMP' BIT
10632 @ 90079:                  LINE   1665 "regression-compile-tmp/imp918s.imp"
10633 @ 90117:                  PUSH   CYCBITS
10634 @ 90120:                  PUSH   CYCBITS
10635 @ 90123:                  PUSHI  #0x00000002
10636 @ 90128:                  OR    
10637 @ 90129:                  ASSVAL

  1666              P=MARKC; CCOND(3-MARKIU,KKK)
10638 @ 90130:                  LINE   1666 "regression-compile-tmp/imp918s.imp"
10639 @ 90168:                  PUSH   P
10640 @ 90171:                  PUSH   MARKC
10641 @ 90174:                  ASSVAL
10642 @ 90175:                  LINE   1666 "regression-compile-tmp/imp918s.imp"
10643 @ 90213:                  PUSH   CCOND
10644 @ 90216:                  PUSHI  #0x00000003
10645 @ 90221:                  PUSH   MARKIU
10646 @ 90224:                  SUB   
10647 @ 90225:                  ASSPAR
10648 @ 90226:                  PUSH   KKK
10649 @ 90229:                  ASSPAR
10650 @ 90230:                  CALL  

  1667              %IF MARKE>0 %AND A(MARKE)<=2 %START; ! THERE IS AN ELSE CLAUSE
10651 @ 90231:                  LINE   1667 "regression-compile-tmp/imp918s.imp"
10652 @ 90269:                  PUSH   MARKE
10653 @ 90272:                  PUSHI  #0x00000000
10654 @ 90277:                  JUMPIF <= L_0007
10655 @ 90281:                  PUSH   A
10656 @ 90284:                  PUSH   MARKE
10657 @ 90287:                  ACCESS
10658 @ 90288:                  PUSHI  #0x00000002
10659 @ 90293:                  JUMPIF > L_0007

  1668                 %IF A(MARKE)=1 %THEN CSTART(0) %ELSE %START
10660 @ 90297:                  LINE   1668 "regression-compile-tmp/imp918s.imp"
10661 @ 90335:                  PUSH   A
10662 @ 90338:                  PUSH   MARKE
10663 @ 90341:                  ACCESS
10664 @ 90342:                  PUSHI  #0x00000001
10665 @ 90347:                  JUMPIF # L_000a
10666 @ 90351:                  PUSH   CSTART
10667 @ 90354:                  PUSHI  #0x00000000
10668 @ 90359:                  ASSPAR
10669 @ 90360:                  CALL  
10670 @ 90361:                  GOTO   L_0009
10671 @ 90364:                  LOCATE L_000a

  1669                    P=MARKE+1; MASK=15
10672 @ 90367:                  LINE   1669 "regression-compile-tmp/imp918s.imp"
10673 @ 90405:                  PUSH   P
10674 @ 90408:                  PUSH   MARKE
10675 @ 90411:                  PUSHI  #0x00000001
10676 @ 90416:                  ADD   
10677 @ 90417:                  ASSVAL
10678 @ 90418:                  LINE   1669 "regression-compile-tmp/imp918s.imp"
10679 @ 90456:                  PUSH   MASK
10680 @ 90459:                  PUSHI  #0x0000000f
10681 @ 90464:                  ASSVAL

  1670                    CUI(0)
10682 @ 90465:                  LINE   1670 "regression-compile-tmp/imp918s.imp"
10683 @ 90503:                  PUSH   CUI
10684 @ 90506:                  PUSHI  #0x00000000
10685 @ 90511:                  ASSPAR
10686 @ 90512:                  CALL  

  1671                 %FINISH
10687 @ 90513:                  LINE   1671 "regression-compile-tmp/imp918s.imp"
10688 @ 90551:                  LOCATE L_0009

  1672              %FINISH
10689 @ 90554:                  LINE   1672 "regression-compile-tmp/imp918s.imp"
10690 @ 90592:                  LOCATE L_0007

  1673              ->Label1
10691 @ 90595:                  LINE   1673 "regression-compile-tmp/imp918s.imp"
10692 @ 90633:                  JUMP   L_01fb

  1674           %FINISH
  1675  !
10693 @ 90636:                  LINE   1674 "regression-compile-tmp/imp918s.imp"
10694 @ 90674:                  LOCATE L_0004

  1676           PLABEL=PLABEL-1; KKK=PLABEL
10695 @ 90677:                  LINE   1676 "regression-compile-tmp/imp918s.imp"
10696 @ 90715:                  PUSH   PLABEL
10697 @ 90718:                  PUSH   PLABEL
10698 @ 90721:                  PUSHI  #0x00000001
10699 @ 90726:                  SUB   
10700 @ 90727:                  ASSVAL
10701 @ 90728:                  LINE   1676 "regression-compile-tmp/imp918s.imp"
10702 @ 90766:                  PUSH   KKK
10703 @ 90769:                  PUSH   PLABEL
10704 @ 90772:                  ASSVAL

  1677           P=MARKC; CCOND(MARKIU,KKK)
10705 @ 90773:                  LINE   1677 "regression-compile-tmp/imp918s.imp"
10706 @ 90811:                  PUSH   P
10707 @ 90814:                  PUSH   MARKC
10708 @ 90817:                  ASSVAL
10709 @ 90818:                  LINE   1677 "regression-compile-tmp/imp918s.imp"
10710 @ 90856:                  PUSH   CCOND
10711 @ 90859:                  PUSH   MARKIU
10712 @ 90862:                  ASSPAR
10713 @ 90863:                  PUSH   KKK
10714 @ 90866:                  ASSPAR
10715 @ 90867:                  CALL  

  1678           P=MARKUI; MASK=15; CUI(1)
10716 @ 90868:                  LINE   1678 "regression-compile-tmp/imp918s.imp"
10717 @ 90906:                  PUSH   P
10718 @ 90909:                  PUSH   MARKUI
10719 @ 90912:                  ASSVAL
10720 @ 90913:                  LINE   1678 "regression-compile-tmp/imp918s.imp"
10721 @ 90951:                  PUSH   MASK
10722 @ 90954:                  PUSHI  #0x0000000f
10723 @ 90959:                  ASSVAL
10724 @ 90960:                  LINE   1678 "regression-compile-tmp/imp918s.imp"
10725 @ 90998:                  PUSH   CUI
10726 @ 91001:                  PUSHI  #0x00000001
10727 @ 91006:                  ASSPAR
10728 @ 91007:                  CALL  

  1679           %UNLESS MARKE>0 %AND A(MARKE)<=2 %START;   ! UNLESS %ELSE FOLLOWS
10729 @ 91008:                  LINE   1679 "regression-compile-tmp/imp918s.imp"
10730 @ 91046:                  PUSH   MARKE
10731 @ 91049:                  PUSHI  #0x00000000
10732 @ 91054:                  JUMPIF <= L_0005
10733 @ 91058:                  PUSH   A
10734 @ 91061:                  PUSH   MARKE
10735 @ 91064:                  ACCESS
10736 @ 91065:                  PUSHI  #0x00000002
10737 @ 91070:                  JUMPIF <= L_0004
10738 @ 91074:                  LOCATE L_0005

  1680              ENTER LAB(KKK,B'11'!REPORTUI<<2); ->Label1;  ! CONDITIONAL&MERGE
10739 @ 91077:                  LINE   1680 "regression-compile-tmp/imp918s.imp"
10740 @ 91115:                  PUSH   ENTERLAB
10741 @ 91118:                  PUSH   KKK
10742 @ 91121:                  ASSPAR
10743 @ 91122:                  PUSHI  #0x00000003
10744 @ 91127:                  PUSH   REPORTUI
10745 @ 91130:                  PUSHI  #0x00000002
10746 @ 91135:                  LSH   
10747 @ 91136:                  OR    
10748 @ 91137:                  ASSPAR
10749 @ 91138:                  CALL  
10750 @ 91139:                  LINE   1680 "regression-compile-tmp/imp918s.imp"
10751 @ 91177:                  JUMP   L_01fb

  1681           %FINISH
  1682  !
10752 @ 91180:                  LINE   1681 "regression-compile-tmp/imp918s.imp"
10753 @ 91218:                  LOCATE L_0004

  1683           %IF A(MARKE)=1 %THEN %START;      ! '%ELSESTART'
10754 @ 91221:                  LINE   1683 "regression-compile-tmp/imp918s.imp"
10755 @ 91259:                  PUSH   A
10756 @ 91262:                  PUSH   MARKE
10757 @ 91265:                  ACCESS
10758 @ 91266:                  PUSHI  #0x00000001
10759 @ 91271:                  JUMPIF # L_0004

  1684              %IF REPORTUI=0 %THEN %C
  1685                 ENTER JUMP(15,SFLABEL-1,B'10');! LONG JUMP BUT SAVE ENV
10760 @ 91275:                  LINE   1684 "regression-compile-tmp/imp918s.imp"
10761 @ 91313:                  PUSH   REPORTUI
10762 @ 91316:                  PUSHI  #0x00000000
10763 @ 91321:                  JUMPIF # L_0007
10764 @ 91325:                  PUSH   ENTERJUMP
10765 @ 91328:                  PUSHI  #0x0000000f
10766 @ 91333:                  ASSPAR
10767 @ 91334:                  PUSH   SFLABEL
10768 @ 91337:                  PUSHI  #0x00000001
10769 @ 91342:                  SUB   
10770 @ 91343:                  ASSPAR
10771 @ 91344:                  PUSHI  #0x00000002
10772 @ 91349:                  ASSPAR
10773 @ 91350:                  CALL  
10774 @ 91351:                  LOCATE L_0007

  1686              CSTART(2)
10775 @ 91354:                  LINE   1686 "regression-compile-tmp/imp918s.imp"
10776 @ 91392:                  PUSH   CSTART
10777 @ 91395:                  PUSHI  #0x00000002
10778 @ 91400:                  ASSPAR
10779 @ 91401:                  CALL  

  1687              ENTER LAB(KKK,B'111');         ! CONDITIONAL & REPLACE ENV
10780 @ 91402:                  LINE   1687 "regression-compile-tmp/imp918s.imp"
10781 @ 91440:                  PUSH   ENTERLAB
10782 @ 91443:                  PUSH   KKK
10783 @ 91446:                  ASSPAR
10784 @ 91447:                  PUSHI  #0x00000007
10785 @ 91452:                  ASSPAR
10786 @ 91453:                  CALL  

  1688           %FINISH %ELSE %START;             ! '%ELSE<UI>'
10787 @ 91454:                  LINE   1688 "regression-compile-tmp/imp918s.imp"
10788 @ 91492:                  GOTO   L_0003
10789 @ 91495:                  LOCATE L_0004

  1689              P=MARKE+1
10790 @ 91498:                  LINE   1689 "regression-compile-tmp/imp918s.imp"
10791 @ 91536:                  PUSH   P
10792 @ 91539:                  PUSH   MARKE
10793 @ 91542:                  PUSHI  #0x00000001
10794 @ 91547:                  ADD   
10795 @ 91548:                  ASSVAL

  1690              PLABEL=PLABEL-1; JJJ=PLABEL
10796 @ 91549:                  LINE   1690 "regression-compile-tmp/imp918s.imp"
10797 @ 91587:                  PUSH   PLABEL
10798 @ 91590:                  PUSH   PLABEL
10799 @ 91593:                  PUSHI  #0x00000001
10800 @ 91598:                  SUB   
10801 @ 91599:                  ASSVAL
10802 @ 91600:                  LINE   1690 "regression-compile-tmp/imp918s.imp"
10803 @ 91638:                  PUSH   JJJ
10804 @ 91641:                  PUSH   PLABEL
10805 @ 91644:                  ASSVAL

  1691              %IF REPORTUI=0 %THEN %C
  1692                 ENTER JUMP(15,JJJ,B'11');   ! SHORT JUMP AND SAVE ENV
10806 @ 91645:                  LINE   1691 "regression-compile-tmp/imp918s.imp"
10807 @ 91683:                  PUSH   REPORTUI
10808 @ 91686:                  PUSHI  #0x00000000
10809 @ 91691:                  JUMPIF # L_0007
10810 @ 91695:                  PUSH   ENTERJUMP
10811 @ 91698:                  PUSHI  #0x0000000f
10812 @ 91703:                  ASSPAR
10813 @ 91704:                  PUSH   JJJ
10814 @ 91707:                  ASSPAR
10815 @ 91708:                  PUSHI  #0x00000003
10816 @ 91713:                  ASSPAR
10817 @ 91714:                  CALL  
10818 @ 91715:                  LOCATE L_0007

  1693              ENTER LAB(KKK,B'111');         ! CONDITIONAL REPLACE ENV
10819 @ 91718:                  LINE   1693 "regression-compile-tmp/imp918s.imp"
10820 @ 91756:                  PUSH   ENTERLAB
10821 @ 91759:                  PUSH   KKK
10822 @ 91762:                  ASSPAR
10823 @ 91763:                  PUSHI  #0x00000007
10824 @ 91768:                  ASSPAR
10825 @ 91769:                  CALL  

  1694              MASK=15; CUI(2)
10826 @ 91770:                  LINE   1694 "regression-compile-tmp/imp918s.imp"
10827 @ 91808:                  PUSH   MASK
10828 @ 91811:                  PUSHI  #0x0000000f
10829 @ 91816:                  ASSVAL
10830 @ 91817:                  LINE   1694 "regression-compile-tmp/imp918s.imp"
10831 @ 91855:                  PUSH   CUI
10832 @ 91858:                  PUSHI  #0x00000002
10833 @ 91863:                  ASSPAR
10834 @ 91864:                  CALL  

  1695              ENTER LAB(JJJ,B'11'!REPORTUI<<2);! CONDITIONAL MERGE
10835 @ 91865:                  LINE   1695 "regression-compile-tmp/imp918s.imp"
10836 @ 91903:                  PUSH   ENTERLAB
10837 @ 91906:                  PUSH   JJJ
10838 @ 91909:                  ASSPAR
10839 @ 91910:                  PUSHI  #0x00000003
10840 @ 91915:                  PUSH   REPORTUI
10841 @ 91918:                  PUSHI  #0x00000002
10842 @ 91923:                  LSH   
10843 @ 91924:                  OR    
10844 @ 91925:                  ASSPAR
10845 @ 91926:                  CALL  

  1696           %FINISH
10846 @ 91927:                  LINE   1696 "regression-compile-tmp/imp918s.imp"
10847 @ 91965:                  LOCATE L_0003

  1697  Label1:       %END; ->Label1
10848 @ 91968:                  LINE   1697 "regression-compile-tmp/imp918s.imp"
10849 @ 92006:                  LABEL  L_01fb
10850 @ 92009:                  LINE   1697 "regression-compile-tmp/imp918s.imp"
10851 @ 92047:               END    _lev0id0_CSS_lev2id5 {lev=3 --> 2}
10852 @ 92048:               LINE   1697 "regression-compile-tmp/imp918s.imp"
10853 @ 92086:               JUMP   L_01f4

  1698  SW(14):
10854 @ 92089:               LINE   1698 "regression-compile-tmp/imp918s.imp"
10855 @ 92127:               PUSHI  #0x0000000e
10856 @ 92132:               SLABEL 445

  1699           %BEGIN;                       ! '%FINISH(ELSE')(S)
  1700           {%SHORTROUTINE}
  1701  
10857 @ 92135:               LINE   1699 "regression-compile-tmp/imp918s.imp"
10858 @ 92173:               BEGIN  _lev0id0_CSS_lev2id6 {lev=2 --> 3}

  1702           %INTEGER J,K,CODE,CYC,FLAB
10859 @ 92174:                  LINE   1702 "regression-compile-tmp/imp918s.imp"
10860 @ 92212:                  DEF    J p1=V_01fb 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
10861 @ 92225:                  DEF    K p1=V_01fc 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
10862 @ 92238:                  DEF    CODE p1=V_01fd 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
10863 @ 92254:                  DEF    CYC p1=V_01fe 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
10864 @ 92269:                  DEF    FLAB p1=V_01ff 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

  1703           POP123(SBR(LEVEL),CODE,FLAB,CYC)
10865 @ 92285:                  LINE   1703 "regression-compile-tmp/imp918s.imp"
10866 @ 92323:                  PUSH   POP123
10867 @ 92326:                  PUSH   SBR
10868 @ 92329:                  PUSH   LEVEL
10869 @ 92332:                  ACCESS
10870 @ 92333:                  ASSPAR
10871 @ 92334:                  PUSH   CODE
10872 @ 92337:                  ASSPAR
10873 @ 92338:                  PUSH   FLAB
10874 @ 92341:                  ASSPAR
10875 @ 92342:                  PUSH   CYC
10876 @ 92345:                  ASSPAR
10877 @ 92346:                  CALL  

  1704           %IF CODE<0 %THEN FAULT(51,0) %AND ->Label1
10878 @ 92347:                  LINE   1704 "regression-compile-tmp/imp918s.imp"
10879 @ 92385:                  PUSH   CODE
10880 @ 92388:                  PUSHI  #0x00000000
10881 @ 92393:                  JUMPIF >= L_0004
10882 @ 92397:                  PUSH   FAULT
10883 @ 92400:                  PUSHI  #0x00000033
10884 @ 92405:                  ASSPAR
10885 @ 92406:                  PUSHI  #0x00000000
10886 @ 92411:                  ASSPAR
10887 @ 92412:                  CALL  
10888 @ 92413:                  JUMP   L_0200
10889 @ 92416:                  LOCATE L_0004

  1705           %IF CYC#CYCLE(LEVEL) %THEN FAULT(52,0)
  1706  !
10890 @ 92419:                  LINE   1705 "regression-compile-tmp/imp918s.imp"
10891 @ 92457:                  PUSH   CYC
10892 @ 92460:                  PUSH   CYCLE
10893 @ 92463:                  PUSH   LEVEL
10894 @ 92466:                  ACCESS
10895 @ 92467:                  JUMPIF = L_0004
10896 @ 92471:                  PUSH   FAULT
10897 @ 92474:                  PUSHI  #0x00000034
10898 @ 92479:                  ASSPAR
10899 @ 92480:                  PUSHI  #0x00000000
10900 @ 92485:                  ASSPAR
10901 @ 92486:                  CALL  
10902 @ 92487:                  LOCATE L_0004

  1707           %IF A(P+1)<=2 %THEN %START;    ! %ELSE CLAUSE PRESENT
10903 @ 92490:                  LINE   1707 "regression-compile-tmp/imp918s.imp"
10904 @ 92528:                  PUSH   A
10905 @ 92531:                  PUSH   P
10906 @ 92534:                  PUSHI  #0x00000001
10907 @ 92539:                  ADD   
10908 @ 92540:                  ACCESS
10909 @ 92541:                  PUSHI  #0x00000002
10910 @ 92546:                  JUMPIF > L_0004

  1708              FAULT(47,0) %UNLESS CODE=1;   ! DANGLING ELSE
10911 @ 92550:                  LINE   1708 "regression-compile-tmp/imp918s.imp"
10912 @ 92588:                  PUSH   CODE
10913 @ 92591:                  PUSHI  #0x00000001
10914 @ 92596:                  JUMPIF = L_0007
10915 @ 92600:                  PUSH   FAULT
10916 @ 92603:                  PUSHI  #0x0000002f
10917 @ 92608:                  ASSPAR
10918 @ 92609:                  PUSHI  #0x00000000
10919 @ 92614:                  ASSPAR
10920 @ 92615:                  CALL  
10921 @ 92616:                  LOCATE L_0007

  1709              %IF A(P+1)=1 %THEN %START;  ! %ELSE %START
  1710  !
  1711  ! PLANT A ROUND NEXT START-FINISH %UNLESS PREVIOUS INSTRUCTION WAS ->
  1712  !
10922 @ 92619:                  LINE   1709 "regression-compile-tmp/imp918s.imp"
10923 @ 92657:                  PUSH   A
10924 @ 92660:                  PUSH   P
10925 @ 92663:                  PUSHI  #0x00000001
10926 @ 92668:                  ADD   
10927 @ 92669:                  ACCESS
10928 @ 92670:                  PUSHI  #0x00000001
10929 @ 92675:                  JUMPIF # L_0007

  1713                 ENTER JUMP(15,SFLABEL-1,B'10') %IF LAST INST=0
10930 @ 92679:                  LINE   1713 "regression-compile-tmp/imp918s.imp"
10931 @ 92717:                  PUSH   LASTINST
10932 @ 92720:                  PUSHI  #0x00000000
10933 @ 92725:                  JUMPIF # L_000a
10934 @ 92729:                  PUSH   ENTERJUMP
10935 @ 92732:                  PUSHI  #0x0000000f
10936 @ 92737:                  ASSPAR
10937 @ 92738:                  PUSH   SFLABEL
10938 @ 92741:                  PUSHI  #0x00000001
10939 @ 92746:                  SUB   
10940 @ 92747:                  ASSPAR
10941 @ 92748:                  PUSHI  #0x00000002
10942 @ 92753:                  ASSPAR
10943 @ 92754:                  CALL  
10944 @ 92755:                  LOCATE L_000a

  1714                 CSTART(2)
10945 @ 92758:                  LINE   1714 "regression-compile-tmp/imp918s.imp"
10946 @ 92796:                  PUSH   CSTART
10947 @ 92799:                  PUSHI  #0x00000002
10948 @ 92804:                  ASSPAR
10949 @ 92805:                  CALL  

  1715              %FINISH %ELSE %START;       ! %ELSE (UI)
10950 @ 92806:                  LINE   1715 "regression-compile-tmp/imp918s.imp"
10951 @ 92844:                  GOTO   L_0006
10952 @ 92847:                  LOCATE L_0007

  1716                 %IF LAST INST=0 %THEN %START
10953 @ 92850:                  LINE   1716 "regression-compile-tmp/imp918s.imp"
10954 @ 92888:                  PUSH   LASTINST
10955 @ 92891:                  PUSHI  #0x00000000
10956 @ 92896:                  JUMPIF # L_000a

  1717                    PLABEL=PLABEL-1; J=PLABEL
10957 @ 92900:                  LINE   1717 "regression-compile-tmp/imp918s.imp"
10958 @ 92938:                  PUSH   PLABEL
10959 @ 92941:                  PUSH   PLABEL
10960 @ 92944:                  PUSHI  #0x00000001
10961 @ 92949:                  SUB   
10962 @ 92950:                  ASSVAL
10963 @ 92951:                  LINE   1717 "regression-compile-tmp/imp918s.imp"
10964 @ 92989:                  PUSH   J
10965 @ 92992:                  PUSH   PLABEL
10966 @ 92995:                  ASSVAL

  1718                    ENTER JUMP(15,J,B'11')
10967 @ 92996:                  LINE   1718 "regression-compile-tmp/imp918s.imp"
10968 @ 93034:                  PUSH   ENTERJUMP
10969 @ 93037:                  PUSHI  #0x0000000f
10970 @ 93042:                  ASSPAR
10971 @ 93043:                  PUSH   J
10972 @ 93046:                  ASSPAR
10973 @ 93047:                  PUSHI  #0x00000003
10974 @ 93052:                  ASSPAR
10975 @ 93053:                  CALL  

  1719                 %FINISH
10976 @ 93054:                  LINE   1719 "regression-compile-tmp/imp918s.imp"
10977 @ 93092:                  LOCATE L_000a

  1720                 P=P+2;! K=A(P);           ! K= ALT OF P(UI)
  1721  !
  1722  ! PLANT THE LABEL FOR THE JUMP ROUND THE START FINISH BLOCK JUST ENDED
  1723  ! THE LABEL IS CONDITIONAL ON THERE HAVING BEEN A JUMP. ENVIRONMENTS ARE
  1724  ! MERGED UNLESS THE PREVIOUS INSTN IS A -> ETC WHEN ENV IS REPLACED
  1725  !
10978 @ 93095:                  LINE   1720 "regression-compile-tmp/imp918s.imp"
10979 @ 93133:                  PUSH   P
10980 @ 93136:                  PUSH   P
10981 @ 93139:                  PUSHI  #0x00000002
10982 @ 93144:                  ADD   
10983 @ 93145:                  ASSVAL

  1726                 ENTER LAB(FLAB,B'011'!LAST INST<<2)
10984 @ 93146:                  LINE   1726 "regression-compile-tmp/imp918s.imp"
10985 @ 93184:                  PUSH   ENTERLAB
10986 @ 93187:                  PUSH   FLAB
10987 @ 93190:                  ASSPAR
10988 @ 93191:                  PUSHI  #0x00000003
10989 @ 93196:                  PUSH   LASTINST
10990 @ 93199:                  PUSHI  #0x00000002
10991 @ 93204:                  LSH   
10992 @ 93205:                  OR    
10993 @ 93206:                  ASSPAR
10994 @ 93207:                  CALL  

  1727                 MONE=1; SET LINE; MASK=15
10995 @ 93208:                  LINE   1727 "regression-compile-tmp/imp918s.imp"
10996 @ 93246:                  PUSH   MONE
10997 @ 93249:                  PUSHI  #0x00000001
10998 @ 93254:                  ASSVAL
10999 @ 93255:                  LINE   1727 "regression-compile-tmp/imp918s.imp"
11000 @ 93293:                  PUSH   SETLINE
11001 @ 93296:                  CALL  
11002 @ 93297:                  LINE   1727 "regression-compile-tmp/imp918s.imp"
11003 @ 93335:                  PUSH   MASK
11004 @ 93338:                  PUSHI  #0x0000000f
11005 @ 93343:                  ASSVAL

  1728                 %IF LAST INST#0 %THEN CUI(0) %AND ->Label1
11006 @ 93344:                  LINE   1728 "regression-compile-tmp/imp918s.imp"
11007 @ 93382:                  PUSH   LASTINST
11008 @ 93385:                  PUSHI  #0x00000000
11009 @ 93390:                  JUMPIF = L_000a
11010 @ 93394:                  PUSH   CUI
11011 @ 93397:                  PUSHI  #0x00000000
11012 @ 93402:                  ASSPAR
11013 @ 93403:                  CALL  
11014 @ 93404:                  JUMP   L_0200
11015 @ 93407:                  LOCATE L_000a

  1729                 CUI(2); FLAB=J
11016 @ 93410:                  LINE   1729 "regression-compile-tmp/imp918s.imp"
11017 @ 93448:                  PUSH   CUI
11018 @ 93451:                  PUSHI  #0x00000002
11019 @ 93456:                  ASSPAR
11020 @ 93457:                  CALL  
11021 @ 93458:                  LINE   1729 "regression-compile-tmp/imp918s.imp"
11022 @ 93496:                  PUSH   FLAB
11023 @ 93499:                  PUSH   J
11024 @ 93502:                  ASSVAL

  1730                 LAST INST=REPORT UI
11025 @ 93503:                  LINE   1730 "regression-compile-tmp/imp918s.imp"
11026 @ 93541:                  PUSH   LASTINST
11027 @ 93544:                  PUSH   REPORTUI
11028 @ 93547:                  ASSVAL

  1731              %FINISH
  1732  !
11029 @ 93548:                  LINE   1731 "regression-compile-tmp/imp918s.imp"
11030 @ 93586:                  LOCATE L_0006

  1733           %FINISH %ELSE %START
11031 @ 93589:                  LINE   1733 "regression-compile-tmp/imp918s.imp"
11032 @ 93627:                  GOTO   L_0003
11033 @ 93630:                  LOCATE L_0004

  1734              ->Label1 %IF CODE=0
11034 @ 93633:                  LINE   1734 "regression-compile-tmp/imp918s.imp"
11035 @ 93671:                  PUSH   CODE
11036 @ 93674:                  PUSHI  #0x00000000
11037 @ 93679:                  JUMPIF # L_0007
11038 @ 93683:                  JUMP   L_0200
11039 @ 93686:                  LOCATE L_0007

  1735           %FINISH
  1736  !
11040 @ 93689:                  LINE   1735 "regression-compile-tmp/imp918s.imp"
11041 @ 93727:                  LOCATE L_0003

  1737           ENTER LAB(FLAB,B'011'!LAST INST<<2)
11042 @ 93730:                  LINE   1737 "regression-compile-tmp/imp918s.imp"
11043 @ 93768:                  PUSH   ENTERLAB
11044 @ 93771:                  PUSH   FLAB
11045 @ 93774:                  ASSPAR
11046 @ 93775:                  PUSHI  #0x00000003
11047 @ 93780:                  PUSH   LASTINST
11048 @ 93783:                  PUSHI  #0x00000002
11049 @ 93788:                  LSH   
11050 @ 93789:                  OR    
11051 @ 93790:                  ASSPAR
11052 @ 93791:                  CALL  

  1738           MONE=1
11053 @ 93792:                  LINE   1738 "regression-compile-tmp/imp918s.imp"
11054 @ 93830:                  PUSH   MONE
11055 @ 93833:                  PUSHI  #0x00000001
11056 @ 93838:                  ASSVAL

  1739  Label1:       %END; ->Label1
11057 @ 93839:                  LINE   1739 "regression-compile-tmp/imp918s.imp"
11058 @ 93877:                  LABEL  L_0200
11059 @ 93880:                  LINE   1739 "regression-compile-tmp/imp918s.imp"
11060 @ 93918:               END    _lev0id0_CSS_lev2id6 {lev=3 --> 2}
11061 @ 93919:               LINE   1739 "regression-compile-tmp/imp918s.imp"
11062 @ 93957:               JUMP   L_01f4

  1740  SWITCH:  %BEGIN;                       ! SWITCH LABEL
  1741           {%SHORTROUTINE}
11063 @ 93960:               LINE   1740 "regression-compile-tmp/imp918s.imp"
11064 @ 93998:               LABEL  L_01f7
11065 @ 94001:               LINE   1740 "regression-compile-tmp/imp918s.imp"
11066 @ 94039:               BEGIN  _lev0id0_CSS_lev2id7 {lev=2 --> 3}

  1742           %INTEGER HEAD,BASEPT,BP,FNAME
11067 @ 94040:                  LINE   1742 "regression-compile-tmp/imp918s.imp"
11068 @ 94078:                  DEF    HEAD p1=V_01fb 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
11069 @ 94094:                  DEF    BASEPT p1=V_01fc 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
11070 @ 94112:                  DEF    BP p1=V_01fd 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
11071 @ 94126:                  DEF    FNAME p1=V_01fe 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

  1743           MONE=1; LCA=0; FORGETM(14)
11072 @ 94143:                  LINE   1743 "regression-compile-tmp/imp918s.imp"
11073 @ 94181:                  PUSH   MONE
11074 @ 94184:                  PUSHI  #0x00000001
11075 @ 94189:                  ASSVAL
11076 @ 94190:                  LINE   1743 "regression-compile-tmp/imp918s.imp"
11077 @ 94228:                  PUSH   LCA
11078 @ 94231:                  PUSHI  #0x00000000
11079 @ 94236:                  ASSVAL
11080 @ 94237:                  LINE   1743 "regression-compile-tmp/imp918s.imp"
11081 @ 94275:                  PUSH   FORGETM
11082 @ 94278:                  PUSHI  #0x0000000e
11083 @ 94283:                  ASSPAR
11084 @ 94284:                  CALL  

  1744           CYC BITS=CYC BITS!1;                  ! SET 'LABEL' BIT
11085 @ 94285:                  LINE   1744 "regression-compile-tmp/imp918s.imp"
11086 @ 94323:                  PUSH   CYCBITS
11087 @ 94326:                  PUSH   CYCBITS
11088 @ 94329:                  PUSHI  #0x00000001
11089 @ 94334:                  OR    
11090 @ 94335:                  ASSVAL

  1745           FNAME=A(P+2)
11091 @ 94336:                  LINE   1745 "regression-compile-tmp/imp918s.imp"
11092 @ 94374:                  PUSH   FNAME
11093 @ 94377:                  PUSH   A
11094 @ 94380:                  PUSH   P
11095 @ 94383:                  PUSHI  #0x00000002
11096 @ 94388:                  ADD   
11097 @ 94389:                  ACCESS
11098 @ 94390:                  ASSVAL

  1746           ->Label1411 %UNLESS A(P)=1 %AND A(P+3)=1;  ! 1ST OF UI + APP
11099 @ 94391:                  LINE   1746 "regression-compile-tmp/imp918s.imp"
11100 @ 94429:                  PUSH   A
11101 @ 94432:                  PUSH   P
11102 @ 94435:                  ACCESS
11103 @ 94436:                  PUSHI  #0x00000001
11104 @ 94441:                  JUMPIF # L_0005
11105 @ 94445:                  PUSH   A
11106 @ 94448:                  PUSH   P
11107 @ 94451:                  PUSHI  #0x00000003
11108 @ 94456:                  ADD   
11109 @ 94457:                  ACCESS
11110 @ 94458:                  PUSHI  #0x00000001
11111 @ 94463:                  JUMPIF = L_0004
11112 @ 94467:                  LOCATE L_0005
11113 @ 94470:                  JUMP   L_01ff
11114 @ 94473:                  LOCATE L_0004

  1747           ->Label1411 %UNLESS A(P+6)#3 %AND A(P+7)=2 %AND A(P+8)&7=1
11115 @ 94476:                  LINE   1747 "regression-compile-tmp/imp918s.imp"
11116 @ 94514:                  PUSH   A
11117 @ 94517:                  PUSH   P
11118 @ 94520:                  PUSHI  #0x00000006
11119 @ 94525:                  ADD   
11120 @ 94526:                  ACCESS
11121 @ 94527:                  PUSHI  #0x00000003
11122 @ 94532:                  JUMPIF = L_0005
11123 @ 94536:                  PUSH   A
11124 @ 94539:                  PUSH   P
11125 @ 94542:                  PUSHI  #0x00000007
11126 @ 94547:                  ADD   
11127 @ 94548:                  ACCESS
11128 @ 94549:                  PUSHI  #0x00000002
11129 @ 94554:                  JUMPIF # L_0005
11130 @ 94558:                  PUSH   A
11131 @ 94561:                  PUSH   P
11132 @ 94564:                  PUSHI  #0x00000008
11133 @ 94569:                  ADD   
11134 @ 94570:                  ACCESS
11135 @ 94571:                  PUSHI  #0x00000007
11136 @ 94576:                  AND   
11137 @ 94577:                  PUSHI  #0x00000001
11138 @ 94582:                  JUMPIF = L_0004
11139 @ 94586:                  LOCATE L_0005
11140 @ 94589:                  JUMP   L_01ff
11141 @ 94592:                  LOCATE L_0004

  1748           ->Label1411 %UNLESS A(P+11)=2=A(P+12);     !NO R.OF.EXP. OR R.OF.APP
11142 @ 94595:                  LINE   1748 "regression-compile-tmp/imp918s.imp"
11143 @ 94633:                  PUSH   A
11144 @ 94636:                  PUSH   P
11145 @ 94639:                  PUSHI  #0x0000000b
11146 @ 94644:                  ADD   
11147 @ 94645:                  ACCESS
11148 @ 94646:                  PUSHI  #0x00000002
11149 @ 94651:                  JUMPIFD # L_0005
11150 @ 94655:                  PUSH   A
11151 @ 94658:                  PUSH   P
11152 @ 94661:                  PUSHI  #0x0000000c
11153 @ 94666:                  ADD   
11154 @ 94667:                  ACCESS
11155 @ 94668:                  JUMPIF = L_0004
11156 @ 94672:                  LOCATE L_0005
11157 @ 94675:                  JUMP   L_01ff
11158 @ 94678:                  LOCATE L_0004

  1749           ->Label1411 %UNLESS A(P+13)=2=A(P+14);     ! NO ENAME OR R.OF.UI
11159 @ 94681:                  LINE   1749 "regression-compile-tmp/imp918s.imp"
11160 @ 94719:                  PUSH   A
11161 @ 94722:                  PUSH   P
11162 @ 94725:                  PUSHI  #0x0000000d
11163 @ 94730:                  ADD   
11164 @ 94731:                  ACCESS
11165 @ 94732:                  PUSHI  #0x00000002
11166 @ 94737:                  JUMPIFD # L_0005
11167 @ 94741:                  PUSH   A
11168 @ 94744:                  PUSH   P
11169 @ 94747:                  PUSHI  #0x0000000e
11170 @ 94752:                  ADD   
11171 @ 94753:                  ACCESS
11172 @ 94754:                  JUMPIF = L_0004
11173 @ 94758:                  LOCATE L_0005
11174 @ 94761:                  JUMP   L_01ff
11175 @ 94764:                  LOCATE L_0004

  1750           COPY TAG(FNAME)
11176 @ 94767:                  LINE   1750 "regression-compile-tmp/imp918s.imp"
11177 @ 94805:                  PUSH   COPYTAG
11178 @ 94808:                  PUSH   FNAME
11179 @ 94811:                  ASSPAR
11180 @ 94812:                  CALL  

  1751           HEAD=K
11181 @ 94813:                  LINE   1751 "regression-compile-tmp/imp918s.imp"
11182 @ 94851:                  PUSH   HEAD
11183 @ 94854:                  PUSH   K
11184 @ 94857:                  ASSVAL

  1752           %IF OLDI#LEVEL %OR TYPE#6 %THEN FAULT(4,FNAME) %AND ->Label1
11185 @ 94858:                  LINE   1752 "regression-compile-tmp/imp918s.imp"
11186 @ 94896:                  PUSH   OLDI
11187 @ 94899:                  PUSH   LEVEL
11188 @ 94902:                  JUMPIF # L_0005
11189 @ 94906:                  PUSH   TYPE
11190 @ 94909:                  PUSHI  #0x00000006
11191 @ 94914:                  JUMPIF = L_0004
11192 @ 94918:                  LOCATE L_0005
11193 @ 94921:                  PUSH   FAULT
11194 @ 94924:                  PUSHI  #0x00000004
11195 @ 94929:                  ASSPAR
11196 @ 94930:                  PUSH   FNAME
11197 @ 94933:                  ASSPAR
11198 @ 94934:                  CALL  
11199 @ 94935:                  JUMP   L_0200
11200 @ 94938:                  LOCATE L_0004

  1753           FROM123(HEAD,BASEPT,KKK,KK);      ! EXTRACT TABLE ADDR,LB & UB
11201 @ 94941:                  LINE   1753 "regression-compile-tmp/imp918s.imp"
11202 @ 94979:                  PUSH   FROM123
11203 @ 94982:                  PUSH   HEAD
11204 @ 94985:                  ASSPAR
11205 @ 94986:                  PUSH   BASEPT
11206 @ 94989:                  ASSPAR
11207 @ 94990:                  PUSH   KKK
11208 @ 94993:                  ASSPAR
11209 @ 94994:                  PUSH   KK
11210 @ 94997:                  ASSPAR
11211 @ 94998:                  CALL  

  1754           MLINK(HEAD);                      ! K POINTS TO BIT LIST
11212 @ 94999:                  LINE   1754 "regression-compile-tmp/imp918s.imp"
11213 @ 95037:                  PUSH   MLINK
11214 @ 95040:                  PUSH   HEAD
11215 @ 95043:                  ASSPAR
11216 @ 95044:                  CALL  

  1755           FROM AR4(P+9,JJ)
11217 @ 95045:                  LINE   1755 "regression-compile-tmp/imp918s.imp"
11218 @ 95083:                  PUSH   FROMAR4
11219 @ 95086:                  PUSH   P
11220 @ 95089:                  PUSHI  #0x00000009
11221 @ 95094:                  ADD   
11222 @ 95095:                  ASSPAR
11223 @ 95096:                  PUSH   JJ
11224 @ 95099:                  ASSPAR
11225 @ 95100:                  CALL  

  1756           JJ=-JJ %IF A(P+6)=2
11226 @ 95101:                  LINE   1756 "regression-compile-tmp/imp918s.imp"
11227 @ 95139:                  PUSH   A
11228 @ 95142:                  PUSH   P
11229 @ 95145:                  PUSHI  #0x00000006
11230 @ 95150:                  ADD   
11231 @ 95151:                  ACCESS
11232 @ 95152:                  PUSHI  #0x00000002
11233 @ 95157:                  JUMPIF # L_0004
11234 @ 95161:                  PUSH   JJ
11235 @ 95164:                  PUSH   JJ
11236 @ 95167:                  NEGATE
11237 @ 95168:                  ASSVAL
11238 @ 95169:                  LOCATE L_0004

  1757           ->Label1402 %IF KKK<=JJ<=KK
11239 @ 95172:                  LINE   1757 "regression-compile-tmp/imp918s.imp"
11240 @ 95210:                  PUSH   KKK
11241 @ 95213:                  PUSH   JJ
11242 @ 95216:                  JUMPIFD > L_0004
11243 @ 95220:                  PUSH   KK
11244 @ 95223:                  JUMPIF > L_0004
11245 @ 95227:                  JUMP   L_0201
11246 @ 95230:                  LOCATE L_0004

  1758  Label1411:    FAULT(5,FNAME); ->Label1
11247 @ 95233:                  LINE   1758 "regression-compile-tmp/imp918s.imp"
11248 @ 95271:                  LABEL  L_01ff
11249 @ 95274:                  LINE   1758 "regression-compile-tmp/imp918s.imp"
11250 @ 95312:                  PUSH   FAULT
11251 @ 95315:                  PUSHI  #0x00000005
11252 @ 95320:                  ASSPAR
11253 @ 95321:                  PUSH   FNAME
11254 @ 95324:                  ASSPAR
11255 @ 95325:                  CALL  
11256 @ 95326:                  LINE   1758 "regression-compile-tmp/imp918s.imp"
11257 @ 95364:                  JUMP   L_0200

  1759  Label1402:    Q=JJ-KKK
11258 @ 95367:                  LINE   1759 "regression-compile-tmp/imp918s.imp"
11259 @ 95405:                  LABEL  L_0201
11260 @ 95408:                  LINE   1759 "regression-compile-tmp/imp918s.imp"
11261 @ 95446:                  PUSH   Q
11262 @ 95449:                  PUSH   JJ
11263 @ 95452:                  PUSH   KKK
11264 @ 95455:                  SUB   
11265 @ 95456:                  ASSVAL

  1760           %WHILE Q>=96 %THEN MLINK(HEAD) %AND Q=Q-96
  1761  !
  1762  ! ASLIST(HEAD) IS THE START OF 96 BIT ENTRY IN THE BIT LIST
  1763  ! CHECK BIT NO Q TO SEE IF LABEL ALREADY SET AND THEN SET BIT Q
  1764  !
11266 @ 95457:                  LINE   1760 "regression-compile-tmp/imp918s.imp"
11267 @ 95495:                  LOCATE L_0003
11268 @ 95498:                  PUSH   Q
11269 @ 95501:                  PUSHI  #0x00000060
11270 @ 95506:                  JUMPIF < L_0004
11271 @ 95510:                  PUSH   MLINK
11272 @ 95513:                  PUSH   HEAD
11273 @ 95516:                  ASSPAR
11274 @ 95517:                  CALL  
11275 @ 95518:                  PUSH   Q
11276 @ 95521:                  PUSH   Q
11277 @ 95524:                  PUSHI  #0x00000060
11278 @ 95529:                  SUB   
11279 @ 95530:                  ASSVAL
11280 @ 95531:                  REPEAT L_0003
11281 @ 95534:                  LOCATE L_0004

  1765           QQ=Q>>3+HEAD;                 ! RIGHT BYTE
11282 @ 95537:                  LINE   1765 "regression-compile-tmp/imp918s.imp"
11283 @ 95575:                  PUSH   QQ
11284 @ 95578:                  PUSH   Q
11285 @ 95581:                  PUSHI  #0x00000003
11286 @ 95586:                  RSH   
11287 @ 95587:                  PUSH   HEAD
11288 @ 95590:                  ADD   
11289 @ 95591:                  ASSVAL

  1766           Q=Q&7; JJJ=1<<Q;              ! BIT IN BYTE
11290 @ 95592:                  LINE   1766 "regression-compile-tmp/imp918s.imp"
11291 @ 95630:                  PUSH   Q
11292 @ 95633:                  PUSH   Q
11293 @ 95636:                  PUSHI  #0x00000007
11294 @ 95641:                  AND   
11295 @ 95642:                  ASSVAL
11296 @ 95643:                  LINE   1766 "regression-compile-tmp/imp918s.imp"
11297 @ 95681:                  PUSH   JJJ
11298 @ 95684:                  PUSHI  #0x00000001
11299 @ 95689:                  PUSH   Q
11300 @ 95692:                  LSH   
11301 @ 95693:                  ASSVAL

  1767           FAULT(6,FNAME) %UNLESS ASLIST(QQ)&JJJ=0
11302 @ 95694:                  LINE   1767 "regression-compile-tmp/imp918s.imp"
11303 @ 95732:                  PUSH   ASLIST
11304 @ 95735:                  PUSH   QQ
11305 @ 95738:                  ACCESS
11306 @ 95739:                  PUSH   JJJ
11307 @ 95742:                  AND   
11308 @ 95743:                  PUSHI  #0x00000000
11309 @ 95748:                  JUMPIF = L_0004
11310 @ 95752:                  PUSH   FAULT
11311 @ 95755:                  PUSHI  #0x00000006
11312 @ 95760:                  ASSPAR
11313 @ 95761:                  PUSH   FNAME
11314 @ 95764:                  ASSPAR
11315 @ 95765:                  CALL  
11316 @ 95766:                  LOCATE L_0004

  1768           ASLIST(QQ)=ASLIST(QQ)!JJJ %UNLESS CSSMODE=0
11317 @ 95769:                  LINE   1768 "regression-compile-tmp/imp918s.imp"
11318 @ 95807:                  PUSH   CSSMODE
11319 @ 95810:                  PUSHI  #0x00000000
11320 @ 95815:                  JUMPIF = L_0004
11321 @ 95819:                  PUSH   ASLIST
11322 @ 95822:                  PUSH   QQ
11323 @ 95825:                  ACCESS
11324 @ 95826:                  PUSH   ASLIST
11325 @ 95829:                  PUSH   QQ
11326 @ 95832:                  ACCESS
11327 @ 95833:                  PUSH   JJJ
11328 @ 95836:                  OR    
11329 @ 95837:                  ASSVAL
11330 @ 95838:                  LOCATE L_0004

  1769           Q=CA-CODEBASE
11331 @ 95841:                  LINE   1769 "regression-compile-tmp/imp918s.imp"
11332 @ 95879:                  PUSH   Q
11333 @ 95882:                  PUSH   CA
11334 @ 95885:                  PUSH   CODEBASE
11335 @ 95888:                  SUB   
11336 @ 95889:                  ASSVAL

  1770           BP=BYTES(PREC)
11337 @ 95890:                  LINE   1770 "regression-compile-tmp/imp918s.imp"
11338 @ 95928:                  PUSH   BP
11339 @ 95931:                  PUSH   BYTES
11340 @ 95934:                  PUSH   PREC
11341 @ 95937:                  ACCESS
11342 @ 95938:                  ASSVAL

  1771           QQ=BASEPT+8+(JJ-KKK)*BP; ! REL POSITION OF LABEL IN SST
11343 @ 95939:                  LINE   1771 "regression-compile-tmp/imp918s.imp"
11344 @ 95977:                  PUSH   QQ
11345 @ 95980:                  PUSH   BASEPT
11346 @ 95983:                  PUSHI  #0x00000008
11347 @ 95988:                  ADD   
11348 @ 95989:                  PUSH   JJ
11349 @ 95992:                  PUSH   KKK
11350 @ 95995:                  SUB   
11351 @ 95996:                  PUSH   BP
11352 @ 95999:                  MUL   
11353 @ 96000:                  ADD   
11354 @ 96001:                  ASSVAL

  1772           %IF INHCODE=0 %THEN LPUT(4,BP,QQ,ADDR(Q)+4-BP)
11355 @ 96002:                  LINE   1772 "regression-compile-tmp/imp918s.imp"
11356 @ 96040:                  PUSH   INHCODE
11357 @ 96043:                  PUSHI  #0x00000000
11358 @ 96048:                  JUMPIF # L_0004
11359 @ 96052:                  PUSH   LPUT
11360 @ 96055:                  PUSHI  #0x00000004
11361 @ 96060:                  ASSPAR
11362 @ 96061:                  PUSH   BP
11363 @ 96064:                  ASSPAR
11364 @ 96065:                  PUSH   QQ
11365 @ 96068:                  ASSPAR
11366 @ 96069:                  PUSH   ADDR
11367 @ 96072:                  PUSH   Q
11368 @ 96075:                  ASSPAR
11369 @ 96076:                  CALL  
11370 @ 96077:                  PUSHI  #0x00000004
11371 @ 96082:                  ADD   
11372 @ 96083:                  PUSH   BP
11373 @ 96086:                  SUB   
11374 @ 96087:                  ASSPAR
11375 @ 96088:                  CALL  
11376 @ 96089:                  LOCATE L_0004

  1773           FAULT(99,0) %IF Q>X'7FFF' %AND PREC#0
11377 @ 96092:                  LINE   1773 "regression-compile-tmp/imp918s.imp"
11378 @ 96130:                  PUSH   Q
11379 @ 96133:                  PUSHI  #0x00007fff
11380 @ 96138:                  JUMPIF <= L_0004
11381 @ 96142:                  PUSH   PREC
11382 @ 96145:                  PUSHI  #0x00000000
11383 @ 96150:                  JUMPIF = L_0004
11384 @ 96154:                  PUSH   FAULT
11385 @ 96157:                  PUSHI  #0x00000063
11386 @ 96162:                  ASSPAR
11387 @ 96163:                  PUSHI  #0x00000000
11388 @ 96168:                  ASSPAR
11389 @ 96169:                  CALL  
11390 @ 96170:                  LOCATE L_0004

  1774  Label1:       %END;   ->Label1
11391 @ 96173:                  LINE   1774 "regression-compile-tmp/imp918s.imp"
11392 @ 96211:                  LABEL  L_0200
11393 @ 96214:                  LINE   1774 "regression-compile-tmp/imp918s.imp"
11394 @ 96252:               END    _lev0id0_CSS_lev2id7 {lev=3 --> 2}
11395 @ 96253:               LINE   1774 "regression-compile-tmp/imp918s.imp"
11396 @ 96291:               JUMP   L_01f4

  1775  SW(6):                                 ! (%WU)(SC)(COND)(RESTOFWU)
11397 @ 96294:               LINE   1775 "regression-compile-tmp/imp918s.imp"
11398 @ 96332:               PUSHI  #0x00000006
11399 @ 96337:               SLABEL 445

  1776           MARKIU=P+1;                   ! TO WHILE/UNTIL
11400 @ 96340:               LINE   1776 "regression-compile-tmp/imp918s.imp"
11401 @ 96378:               PUSH   MARKIU
11402 @ 96381:               PUSH   P
11403 @ 96384:               PUSHI  #0x00000001
11404 @ 96389:               ADD   
11405 @ 96390:               ASSVAL

  1777           MARKC=MARKIU+2;               ! TO (SC)(COND)
11406 @ 96391:               LINE   1777 "regression-compile-tmp/imp918s.imp"
11407 @ 96429:               PUSH   MARKC
11408 @ 96432:               PUSH   MARKIU
11409 @ 96435:               PUSHI  #0x00000002
11410 @ 96440:               ADD   
11411 @ 96441:               ASSVAL

  1778           MARKR=P+2+A(P+2);             ! TO RESTOF WU
11412 @ 96442:               LINE   1778 "regression-compile-tmp/imp918s.imp"
11413 @ 96480:               PUSH   MARKR
11414 @ 96483:               PUSH   P
11415 @ 96486:               PUSHI  #0x00000002
11416 @ 96491:               ADD   
11417 @ 96492:               PUSH   A
11418 @ 96495:               PUSH   P
11419 @ 96498:               PUSHI  #0x00000002
11420 @ 96503:               ADD   
11421 @ 96504:               ACCESS
11422 @ 96505:               ADD   
11423 @ 96506:               ASSVAL

  1779           MARKUI=MARKR+1;               ! TO P(UI) IF ANY
11424 @ 96507:               LINE   1779 "regression-compile-tmp/imp918s.imp"
11425 @ 96545:               PUSH   MARKUI
11426 @ 96548:               PUSH   MARKR
11427 @ 96551:               PUSHI  #0x00000001
11428 @ 96556:               ADD   
11429 @ 96557:               ASSVAL

  1780           SET LINE
11430 @ 96558:               LINE   1780 "regression-compile-tmp/imp918s.imp"
11431 @ 96596:               PUSH   SETLINE
11432 @ 96599:               CALL  

  1781  WHILE:   %BEGIN
  1782           {%SHORTROUTINE}
11433 @ 96600:               LINE   1781 "regression-compile-tmp/imp918s.imp"
11434 @ 96638:               LABEL  L_01fa
11435 @ 96641:               LINE   1781 "regression-compile-tmp/imp918s.imp"
11436 @ 96679:               BEGIN  _lev0id0_CSS_lev2id8 {lev=2 --> 3}

  1783           %INTEGER L1,L2,FLAG,XTRA
11437 @ 96680:                  LINE   1783 "regression-compile-tmp/imp918s.imp"
11438 @ 96718:                  DEF    L1 p1=V_01fb 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
11439 @ 96732:                  DEF    L2 p1=V_01fc 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
11440 @ 96746:                  DEF    FLAG p1=V_01fd 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
11441 @ 96762:                  DEF    XTRA p1=V_01fe 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

  1784           %SHORTINTEGER HEAD
11442 @ 96778:                  LINE   1784 "regression-compile-tmp/imp918s.imp"
11443 @ 96816:                  DEF    HEAD p1=V_01ff a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0

  1785           HEAD=0; XTRA=0
11444 @ 96832:                  LINE   1785 "regression-compile-tmp/imp918s.imp"
11445 @ 96870:                  PUSH   HEAD
11446 @ 96873:                  PUSHI  #0x00000000
11447 @ 96878:                  ASSVAL
11448 @ 96879:                  LINE   1785 "regression-compile-tmp/imp918s.imp"
11449 @ 96917:                  PUSH   XTRA
11450 @ 96920:                  PUSHI  #0x00000000
11451 @ 96925:                  ASSVAL

  1786           MARKIU=A(MARKIU);             ! =1 FOR'WHILE' =2 FOR'UNTIL'
11452 @ 96926:                  LINE   1786 "regression-compile-tmp/imp918s.imp"
11453 @ 96964:                  PUSH   MARKIU
11454 @ 96967:                  PUSH   A
11455 @ 96970:                  PUSH   MARKIU
11456 @ 96973:                  ACCESS
11457 @ 96974:                  ASSVAL

  1787           SFLABEL=SFLABEL-1
11458 @ 96975:                  LINE   1787 "regression-compile-tmp/imp918s.imp"
11459 @ 97013:                  PUSH   SFLABEL
11460 @ 97016:                  PUSH   SFLABEL
11461 @ 97019:                  PUSHI  #0x00000001
11462 @ 97024:                  SUB   
11463 @ 97025:                  ASSVAL

  1788           L1=SFLABEL
11464 @ 97026:                  LINE   1788 "regression-compile-tmp/imp918s.imp"
11465 @ 97064:                  PUSH   L1
11466 @ 97067:                  PUSH   SFLABEL
11467 @ 97070:                  ASSVAL

  1789           PLABEL=PLABEL-1;              ! RESERVE 2 LABELS
11468 @ 97071:                  LINE   1789 "regression-compile-tmp/imp918s.imp"
11469 @ 97109:                  PUSH   PLABEL
11470 @ 97112:                  PUSH   PLABEL
11471 @ 97115:                  PUSHI  #0x00000001
11472 @ 97120:                  SUB   
11473 @ 97121:                  ASSVAL

  1790           L2=PLABEL
11474 @ 97122:                  LINE   1790 "regression-compile-tmp/imp918s.imp"
11475 @ 97160:                  PUSH   L2
11476 @ 97163:                  PUSH   PLABEL
11477 @ 97166:                  ASSVAL

  1791           ->WCYCLE %IF MARKR>0 %AND A(MARKR)<=2
11478 @ 97167:                  LINE   1791 "regression-compile-tmp/imp918s.imp"
11479 @ 97205:                  PUSH   MARKR
11480 @ 97208:                  PUSHI  #0x00000000
11481 @ 97213:                  JUMPIF <= L_0004
11482 @ 97217:                  PUSH   A
11483 @ 97220:                  PUSH   MARKR
11484 @ 97223:                  ACCESS
11485 @ 97224:                  PUSHI  #0x00000002
11486 @ 97229:                  JUMPIF > L_0004
11487 @ 97233:                  JUMP   L_0200
11488 @ 97236:                  LOCATE L_0004

  1792           %IF CSSMODE#0 %AND STMTSHELD>1 %AND CYCREGS=CYCBASE=0 %C
  1793              %THEN EXTRA PASS(1,1,100) %AND XTRA=1
11489 @ 97239:                  LINE   1792 "regression-compile-tmp/imp918s.imp"
11490 @ 97277:                  PUSH   CSSMODE
11491 @ 97280:                  PUSHI  #0x00000000
11492 @ 97285:                  JUMPIF = L_0004
11493 @ 97289:                  PUSH   STMTSHELD
11494 @ 97292:                  PUSHI  #0x00000001
11495 @ 97297:                  JUMPIF <= L_0004
11496 @ 97301:                  PUSH   CYCREGS
11497 @ 97304:                  PUSH   CYCBASE
11498 @ 97307:                  JUMPIFD # L_0004
11499 @ 97311:                  PUSHI  #0x00000000
11500 @ 97316:                  JUMPIF # L_0004
11501 @ 97320:                  PUSH   EXTRAPASS
11502 @ 97323:                  PUSHI  #0x00000001
11503 @ 97328:                  ASSPAR
11504 @ 97329:                  PUSHI  #0x00000001
11505 @ 97334:                  ASSPAR
11506 @ 97335:                  PUSHI  #0x00000064
11507 @ 97340:                  ASSPAR
11508 @ 97341:                  CALL  
11509 @ 97342:                  PUSH   XTRA
11510 @ 97345:                  PUSHI  #0x00000001
11511 @ 97350:                  ASSVAL
11512 @ 97351:                  LOCATE L_0004

  1794           ENTER LAB(L1,0);             ! UNCONDITIONAL LAB FOR REPEAT
11513 @ 97354:                  LINE   1794 "regression-compile-tmp/imp918s.imp"
11514 @ 97392:                  PUSH   ENTERLAB
11515 @ 97395:                  PUSH   L1
11516 @ 97398:                  ASSPAR
11517 @ 97399:                  PUSHI  #0x00000000
11518 @ 97404:                  ASSPAR
11519 @ 97405:                  CALL  

  1795           %IF MARKIU=1 %THEN %START
11520 @ 97406:                  LINE   1795 "regression-compile-tmp/imp918s.imp"
11521 @ 97444:                  PUSH   MARKIU
11522 @ 97447:                  PUSHI  #0x00000001
11523 @ 97452:                  JUMPIF # L_0004

  1796              P=MARKC
11524 @ 97456:                  LINE   1796 "regression-compile-tmp/imp918s.imp"
11525 @ 97494:                  PUSH   P
11526 @ 97497:                  PUSH   MARKC
11527 @ 97500:                  ASSVAL

  1797              CCOND(1,L2)
11528 @ 97501:                  LINE   1797 "regression-compile-tmp/imp918s.imp"
11529 @ 97539:                  PUSH   CCOND
11530 @ 97542:                  PUSHI  #0x00000001
11531 @ 97547:                  ASSPAR
11532 @ 97548:                  PUSH   L2
11533 @ 97551:                  ASSPAR
11534 @ 97552:                  CALL  

  1798           %FINISH
  1799  !
11535 @ 97553:                  LINE   1798 "regression-compile-tmp/imp918s.imp"
11536 @ 97591:                  LOCATE L_0004

  1800           MASK=15; P=MARKUI
11537 @ 97594:                  LINE   1800 "regression-compile-tmp/imp918s.imp"
11538 @ 97632:                  PUSH   MASK
11539 @ 97635:                  PUSHI  #0x0000000f
11540 @ 97640:                  ASSVAL
11541 @ 97641:                  LINE   1800 "regression-compile-tmp/imp918s.imp"
11542 @ 97679:                  PUSH   P
11543 @ 97682:                  PUSH   MARKUI
11544 @ 97685:                  ASSVAL

  1801           CUI(1)
  1802  !
11545 @ 97686:                  LINE   1801 "regression-compile-tmp/imp918s.imp"
11546 @ 97724:                  PUSH   CUI
11547 @ 97727:                  PUSHI  #0x00000001
11548 @ 97732:                  ASSPAR
11549 @ 97733:                  CALL  

  1803           %IF MARKIU=1 %THEN %START
11550 @ 97734:                  LINE   1803 "regression-compile-tmp/imp918s.imp"
11551 @ 97772:                  PUSH   MARKIU
11552 @ 97775:                  PUSHI  #0x00000001
11553 @ 97780:                  JUMPIF # L_0004

  1804              ENTER JUMP(15,L1,0);        ! UNCODITIONALLY TO WHILE COND
11554 @ 97784:                  LINE   1804 "regression-compile-tmp/imp918s.imp"
11555 @ 97822:                  PUSH   ENTERJUMP
11556 @ 97825:                  PUSHI  #0x0000000f
11557 @ 97830:                  ASSPAR
11558 @ 97831:                  PUSH   L1
11559 @ 97834:                  ASSPAR
11560 @ 97835:                  PUSHI  #0x00000000
11561 @ 97840:                  ASSPAR
11562 @ 97841:                  CALL  

  1805              ENTER LAB(L2,B'111')
11563 @ 97842:                  LINE   1805 "regression-compile-tmp/imp918s.imp"
11564 @ 97880:                  PUSH   ENTERLAB
11565 @ 97883:                  PUSH   L2
11566 @ 97886:                  ASSPAR
11567 @ 97887:                  PUSHI  #0x00000007
11568 @ 97892:                  ASSPAR
11569 @ 97893:                  CALL  

  1806           %FINISH %ELSE %START
11570 @ 97894:                  LINE   1806 "regression-compile-tmp/imp918s.imp"
11571 @ 97932:                  GOTO   L_0003
11572 @ 97935:                  LOCATE L_0004

  1807              P=MARKC; CCOND(1,L1);       ! UNTIL CONDITION AT END
11573 @ 97938:                  LINE   1807 "regression-compile-tmp/imp918s.imp"
11574 @ 97976:                  PUSH   P
11575 @ 97979:                  PUSH   MARKC
11576 @ 97982:                  ASSVAL
11577 @ 97983:                  LINE   1807 "regression-compile-tmp/imp918s.imp"
11578 @ 98021:                  PUSH   CCOND
11579 @ 98024:                  PUSHI  #0x00000001
11580 @ 98029:                  ASSPAR
11581 @ 98030:                  PUSH   L1
11582 @ 98033:                  ASSPAR
11583 @ 98034:                  CALL  

  1808           %FINISH
11584 @ 98035:                  LINE   1808 "regression-compile-tmp/imp918s.imp"
11585 @ 98073:                  LOCATE L_0003

  1809           %IF XTRA#0 %THEN CYC RESTORE %AND CYCREGS=0 %AND CYCBASE=0
11586 @ 98076:                  LINE   1809 "regression-compile-tmp/imp918s.imp"
11587 @ 98114:                  PUSH   XTRA
11588 @ 98117:                  PUSHI  #0x00000000
11589 @ 98122:                  JUMPIF = L_0004
11590 @ 98126:                  PUSH   CYCRESTORE
11591 @ 98129:                  CALL  
11592 @ 98130:                  PUSH   CYCREGS
11593 @ 98133:                  PUSHI  #0x00000000
11594 @ 98138:                  ASSVAL
11595 @ 98139:                  PUSH   CYCBASE
11596 @ 98142:                  PUSHI  #0x00000000
11597 @ 98147:                  ASSVAL
11598 @ 98148:                  LOCATE L_0004

  1810           ->Label1
11599 @ 98151:                  LINE   1810 "regression-compile-tmp/imp918s.imp"
11600 @ 98189:                  JUMP   L_0201

  1811  WCYCLE:
  1812  !***********************************************************************
  1813  !*       WHILE CYCLES JUST LIKE %WHILE...%THEN<UI> BUT %UNTIL CYCLES   *
  1814  !*       STORE AWWAY AN A.R. TO BE RESET AND COMPILED TO PUT THE       *
  1815  !*       CONDITION AT THE END. IF IT WAS PUT AT THE BEGINING 2 EXTRA   *
  1816  !*       JUMPS ARE NEEDED TO OBTAIN THE CORRECT EFFECT.                *
  1817  !***********************************************************************
11601 @ 98192:                  LINE   1811 "regression-compile-tmp/imp918s.imp"
11602 @ 98230:                  LABEL  L_0200

  1818           P=MARKC; FLAG=0
11603 @ 98233:                  LINE   1818 "regression-compile-tmp/imp918s.imp"
11604 @ 98271:                  PUSH   P
11605 @ 98274:                  PUSH   MARKC
11606 @ 98277:                  ASSVAL
11607 @ 98278:                  LINE   1818 "regression-compile-tmp/imp918s.imp"
11608 @ 98316:                  PUSH   FLAG
11609 @ 98319:                  PUSHI  #0x00000000
11610 @ 98324:                  ASSVAL

  1819           %IF CSSMODE=0 %THEN CCOND(1,SFLABEL-1) %ELSE %START
11611 @ 98325:                  LINE   1819 "regression-compile-tmp/imp918s.imp"
11612 @ 98363:                  PUSH   CSSMODE
11613 @ 98366:                  PUSHI  #0x00000000
11614 @ 98371:                  JUMPIF # L_0004
11615 @ 98375:                  PUSH   CCOND
11616 @ 98378:                  PUSHI  #0x00000001
11617 @ 98383:                  ASSPAR
11618 @ 98384:                  PUSH   SFLABEL
11619 @ 98387:                  PUSHI  #0x00000001
11620 @ 98392:                  SUB   
11621 @ 98393:                  ASSPAR
11622 @ 98394:                  CALL  
11623 @ 98395:                  GOTO   L_0003
11624 @ 98398:                  LOCATE L_0004

  1820              CUR CYC VAR=-1
11625 @ 98401:                  LINE   1820 "regression-compile-tmp/imp918s.imp"
11626 @ 98439:                  PUSH   CURCYCVAR
11627 @ 98442:                  PUSHI  #0x00000001
11628 @ 98447:                  NEGATE
11629 @ 98448:                  ASSVAL

  1821              CYCOPT(FLAG,1);                  ! NOT A PRELIMINARY LOOK
11630 @ 98449:                  LINE   1821 "regression-compile-tmp/imp918s.imp"
11631 @ 98487:                  PUSH   CYCOPT
11632 @ 98490:                  PUSH   FLAG
11633 @ 98493:                  ASSPAR
11634 @ 98494:                  PUSHI  #0x00000001
11635 @ 98499:                  ASSPAR
11636 @ 98500:                  CALL  

  1822              XLABEL=XLABEL-1
11637 @ 98501:                  LINE   1822 "regression-compile-tmp/imp918s.imp"
11638 @ 98539:                  PUSH   XLABEL
11639 @ 98542:                  PUSH   XLABEL
11640 @ 98545:                  PUSHI  #0x00000001
11641 @ 98550:                  SUB   
11642 @ 98551:                  ASSVAL

  1823              ENTER LAB(L1,0);                 ! UNCONDITIONAL FOR REPEAT
11643 @ 98552:                  LINE   1823 "regression-compile-tmp/imp918s.imp"
11644 @ 98590:                  PUSH   ENTERLAB
11645 @ 98593:                  PUSH   L1
11646 @ 98596:                  ASSPAR
11647 @ 98597:                  PUSHI  #0x00000000
11648 @ 98602:                  ASSPAR
11649 @ 98603:                  CALL  

  1824              %IF MARKIU=2 %THEN %START;       ! '%UNTIL....%CYCLE'
11650 @ 98604:                  LINE   1824 "regression-compile-tmp/imp918s.imp"
11651 @ 98642:                  PUSH   MARKIU
11652 @ 98645:                  PUSHI  #0x00000002
11653 @ 98650:                  JUMPIF # L_0007

  1825                 L2=MARKR-MARKC+6
11654 @ 98654:                  LINE   1825 "regression-compile-tmp/imp918s.imp"
11655 @ 98692:                  PUSH   L2
11656 @ 98695:                  PUSH   MARKR
11657 @ 98698:                  PUSH   MARKC
11658 @ 98701:                  SUB   
11659 @ 98702:                  PUSHI  #0x00000006
11660 @ 98707:                  ADD   
11661 @ 98708:                  ASSVAL

  1826                 P=P-1; A(P)=A(PIN-1);         ! GET LINE NO
11662 @ 98709:                  LINE   1826 "regression-compile-tmp/imp918s.imp"
11663 @ 98747:                  PUSH   P
11664 @ 98750:                  PUSH   P
11665 @ 98753:                  PUSHI  #0x00000001
11666 @ 98758:                  SUB   
11667 @ 98759:                  ASSVAL
11668 @ 98760:                  LINE   1826 "regression-compile-tmp/imp918s.imp"
11669 @ 98798:                  PUSH   A
11670 @ 98801:                  PUSH   P
11671 @ 98804:                  ACCESS
11672 @ 98805:                  PUSH   A
11673 @ 98808:                  PUSH   PIN
11674 @ 98811:                  PUSHI  #0x00000001
11675 @ 98816:                  SUB   
11676 @ 98817:                  ACCESS
11677 @ 98818:                  ASSVAL

  1827                 %CYCLE;                       ! DOWN AR FOR <COND>
11678 @ 98819:                  LINE   1827 "regression-compile-tmp/imp918s.imp"
11679 @ 98857:                  LOCATE L_0009

  1828                   FROMAR4(P,JJJ)
11680 @ 98860:                  LINE   1828 "regression-compile-tmp/imp918s.imp"
11681 @ 98898:                  PUSH   FROMAR4
11682 @ 98901:                  PUSH   P
11683 @ 98904:                  ASSPAR
11684 @ 98905:                  PUSH   JJJ
11685 @ 98908:                  ASSPAR
11686 @ 98909:                  CALL  

  1829                   FROMAR4(P+2,KKK)
11687 @ 98910:                  LINE   1829 "regression-compile-tmp/imp918s.imp"
11688 @ 98948:                  PUSH   FROMAR4
11689 @ 98951:                  PUSH   P
11690 @ 98954:                  PUSHI  #0x00000002
11691 @ 98959:                  ADD   
11692 @ 98960:                  ASSPAR
11693 @ 98961:                  PUSH   KKK
11694 @ 98964:                  ASSPAR
11695 @ 98965:                  CALL  

  1830                   PUSH123(HEAD,JJJ,KKK,A(P+4))
11696 @ 98966:                  LINE   1830 "regression-compile-tmp/imp918s.imp"
11697 @ 99004:                  PUSH   PUSH123
11698 @ 99007:                  PUSH   HEAD
11699 @ 99010:                  ASSPAR
11700 @ 99011:                  PUSH   JJJ
11701 @ 99014:                  ASSPAR
11702 @ 99015:                  PUSH   KKK
11703 @ 99018:                  ASSPAR
11704 @ 99019:                  PUSH   A
11705 @ 99022:                  PUSH   P
11706 @ 99025:                  PUSHI  #0x00000004
11707 @ 99030:                  ADD   
11708 @ 99031:                  ACCESS
11709 @ 99032:                  ASSPAR
11710 @ 99033:                  CALL  

  1831                   P=P+5
11711 @ 99034:                  LINE   1831 "regression-compile-tmp/imp918s.imp"
11712 @ 99072:                  PUSH   P
11713 @ 99075:                  PUSH   P
11714 @ 99078:                  PUSHI  #0x00000005
11715 @ 99083:                  ADD   
11716 @ 99084:                  ASSVAL

  1832                 %REPEAT %UNTIL P>=MARKR
11717 @ 99085:                  LINE   1832 "regression-compile-tmp/imp918s.imp"
11718 @ 99123:                  PUSH   P
11719 @ 99126:                  PUSH   MARKR
11720 @ 99129:                  JUMPIF >= L_000a
11721 @ 99133:                  REPEAT L_0009
11722 @ 99136:                  LOCATE L_000a

  1833              %FINISH %ELSE %START;            ! '%WHILE...%CYCLE
11723 @ 99139:                  LINE   1833 "regression-compile-tmp/imp918s.imp"
11724 @ 99177:                  GOTO   L_0006
11725 @ 99180:                  LOCATE L_0007

  1834                 CCOND(1,L1-1)
11726 @ 99183:                  LINE   1834 "regression-compile-tmp/imp918s.imp"
11727 @ 99221:                  PUSH   CCOND
11728 @ 99224:                  PUSHI  #0x00000001
11729 @ 99229:                  ASSPAR
11730 @ 99230:                  PUSH   L1
11731 @ 99233:                  PUSHI  #0x00000001
11732 @ 99238:                  SUB   
11733 @ 99239:                  ASSPAR
11734 @ 99240:                  CALL  

  1835                 SFLABEL=SFLABEL-1
11735 @ 99241:                  LINE   1835 "regression-compile-tmp/imp918s.imp"
11736 @ 99279:                  PUSH   SFLABEL
11737 @ 99282:                  PUSH   SFLABEL
11738 @ 99285:                  PUSHI  #0x00000001
11739 @ 99290:                  SUB   
11740 @ 99291:                  ASSVAL

  1836              %FINISH
11741 @ 99292:                  LINE   1836 "regression-compile-tmp/imp918s.imp"
11742 @ 99330:                  LOCATE L_0006

  1837              PUSH123(CYCLE(LEVEL),L1!MARKIU<<28,XLABEL<<16!L2,HEAD)
11743 @ 99333:                  LINE   1837 "regression-compile-tmp/imp918s.imp"
11744 @ 99371:                  PUSH   PUSH123
11745 @ 99374:                  PUSH   CYCLE
11746 @ 99377:                  PUSH   LEVEL
11747 @ 99380:                  ACCESS
11748 @ 99381:                  ASSPAR
11749 @ 99382:                  PUSH   L1
11750 @ 99385:                  PUSH   MARKIU
11751 @ 99388:                  PUSHI  #0x0000001c
11752 @ 99393:                  LSH   
11753 @ 99394:                  OR    
11754 @ 99395:                  ASSPAR
11755 @ 99396:                  PUSH   XLABEL
11756 @ 99399:                  PUSHI  #0x00000010
11757 @ 99404:                  LSH   
11758 @ 99405:                  PUSH   L2
11759 @ 99408:                  OR    
11760 @ 99409:                  ASSPAR
11761 @ 99410:                  PUSH   HEAD
11762 @ 99413:                  ASSPAR
11763 @ 99414:                  CALL  

  1838          %FINISH
11764 @ 99415:                  LINE   1838 "regression-compile-tmp/imp918s.imp"
11765 @ 99453:                  LOCATE L_0003

  1839  Label1:         %END; ->Label1
  1840  !
11766 @ 99456:                  LINE   1839 "regression-compile-tmp/imp918s.imp"
11767 @ 99494:                  LABEL  L_0201
11768 @ 99497:                  LINE   1839 "regression-compile-tmp/imp918s.imp"
11769 @ 99535:               END    _lev0id0_CSS_lev2id8 {lev=3 --> 2}
11770 @ 99536:               LINE   1839 "regression-compile-tmp/imp918s.imp"
11771 @ 99574:               JUMP   L_01f4

  1841  SW(7):                                 ! SIMPLE DECLN
11772 @ 99577:               LINE   1841 "regression-compile-tmp/imp918s.imp"
11773 @ 99615:               PUSHI  #0x00000007
11774 @ 99620:               SLABEL 445

  1842           FAULT(57,0) %UNLESS LEVEL>=2
11775 @ 99623:               LINE   1842 "regression-compile-tmp/imp918s.imp"
11776 @ 99661:               PUSH   LEVEL
11777 @ 99664:               PUSHI  #0x00000002
11778 @ 99669:               JUMPIF >= L_0004
11779 @ 99673:               PUSH   FAULT
11780 @ 99676:               PUSHI  #0x00000039
11781 @ 99681:               ASSPAR
11782 @ 99682:               PUSHI  #0x00000000
11783 @ 99687:               ASSPAR
11784 @ 99688:               CALL  
11785 @ 99689:               LOCATE L_0004

  1843           FAULT(40,0) %IF NMDECS&1#0
11786 @ 99692:               LINE   1843 "regression-compile-tmp/imp918s.imp"
11787 @ 99730:               PUSH   NMDECS
11788 @ 99733:               PUSHI  #0x00000001
11789 @ 99738:               AND   
11790 @ 99739:               PUSHI  #0x00000000
11791 @ 99744:               JUMPIF = L_0004
11792 @ 99748:               PUSH   FAULT
11793 @ 99751:               PUSHI  #0x00000028
11794 @ 99756:               ASSPAR
11795 @ 99757:               PUSHI  #0x00000000
11796 @ 99762:               ASSPAR
11797 @ 99763:               CALL  
11798 @ 99764:               LOCATE L_0004

  1844           SET LINE
11799 @ 99767:               LINE   1844 "regression-compile-tmp/imp918s.imp"
11800 @ 99805:               PUSH   SETLINE
11801 @ 99808:               CALL  

  1845           P=P+1;CLT;ROUT=0
11802 @ 99809:               LINE   1845 "regression-compile-tmp/imp918s.imp"
11803 @ 99847:               PUSH   P
11804 @ 99850:               PUSH   P
11805 @ 99853:               PUSHI  #0x00000001
11806 @ 99858:               ADD   
11807 @ 99859:               ASSVAL
11808 @ 99860:               LINE   1845 "regression-compile-tmp/imp918s.imp"
11809 @ 99898:               PUSH   CLT
11810 @ 99901:               CALL  
11811 @ 99902:               LINE   1845 "regression-compile-tmp/imp918s.imp"
11812 @ 99940:               PUSH   ROUT
11813 @ 99943:               PUSHI  #0x00000000
11814 @ 99948:               ASSVAL

  1846           %IF A(P)=1 %THEN %START;      ! SCALAR DECLARATIONS
11815 @ 99949:               LINE   1846 "regression-compile-tmp/imp918s.imp"
11816 @ 99987:               PUSH   A
11817 @ 99990:               PUSH   P
11818 @ 99993:               ACCESS
11819 @ 99994:               PUSHI  #0x00000001
11820 @ 99999:               JUMPIF # L_0004

  1847              CQN(P+1);P=P+2
11821 @ 100003:               LINE   1847 "regression-compile-tmp/imp918s.imp"
11822 @ 100041:               PUSH   CQN
11823 @ 100044:               PUSH   P
11824 @ 100047:               PUSHI  #0x00000001
11825 @ 100052:               ADD   
11826 @ 100053:               ASSPAR
11827 @ 100054:               CALL  
11828 @ 100055:               LINE   1847 "regression-compile-tmp/imp918s.imp"
11829 @ 100093:               PUSH   P
11830 @ 100096:               PUSH   P
11831 @ 100099:               PUSHI  #0x00000002
11832 @ 100104:               ADD   
11833 @ 100105:               ASSVAL

  1848              DECLARE SCALARS(1,0)
11834 @ 100106:               LINE   1848 "regression-compile-tmp/imp918s.imp"
11835 @ 100144:               PUSH   DECLARESCALARS
11836 @ 100147:               PUSHI  #0x00000001
11837 @ 100152:               ASSPAR
11838 @ 100153:               PUSHI  #0x00000000
11839 @ 100158:               ASSPAR
11840 @ 100159:               CALL  

  1849           %FINISH %ELSE %START;         ! ARRAY DECLARATIONS
11841 @ 100160:               LINE   1849 "regression-compile-tmp/imp918s.imp"
11842 @ 100198:               GOTO   L_0003
11843 @ 100201:               LOCATE L_0004

  1850              FAULT(70,0) %IF TYPE=5 %AND ACC=0
11844 @ 100204:               LINE   1850 "regression-compile-tmp/imp918s.imp"
11845 @ 100242:               PUSH   TYPE
11846 @ 100245:               PUSHI  #0x00000005
11847 @ 100250:               JUMPIF # L_0007
11848 @ 100254:               PUSH   ACC
11849 @ 100257:               PUSHI  #0x00000000
11850 @ 100262:               JUMPIF # L_0007
11851 @ 100266:               PUSH   FAULT
11852 @ 100269:               PUSHI  #0x00000046
11853 @ 100274:               ASSPAR
11854 @ 100275:               PUSHI  #0x00000000
11855 @ 100280:               ASSPAR
11856 @ 100281:               CALL  
11857 @ 100282:               LOCATE L_0007

  1851              NAM=0
11858 @ 100285:               LINE   1851 "regression-compile-tmp/imp918s.imp"
11859 @ 100323:               PUSH   NAM
11860 @ 100326:               PUSHI  #0x00000000
11861 @ 100331:               ASSVAL

  1852              QQ=2-A(P+1); P=P+2;        ! QQ=1 FOR ARRAYFORMATS
11862 @ 100332:               LINE   1852 "regression-compile-tmp/imp918s.imp"
11863 @ 100370:               PUSH   QQ
11864 @ 100373:               PUSHI  #0x00000002
11865 @ 100378:               PUSH   A
11866 @ 100381:               PUSH   P
11867 @ 100384:               PUSHI  #0x00000001
11868 @ 100389:               ADD   
11869 @ 100390:               ACCESS
11870 @ 100391:               SUB   
11871 @ 100392:               ASSVAL
11872 @ 100393:               LINE   1852 "regression-compile-tmp/imp918s.imp"
11873 @ 100431:               PUSH   P
11874 @ 100434:               PUSH   P
11875 @ 100437:               PUSHI  #0x00000002
11876 @ 100442:               ADD   
11877 @ 100443:               ASSVAL

  1853              DECLARE ARRAYS(QQ,0)
11878 @ 100444:               LINE   1853 "regression-compile-tmp/imp918s.imp"
11879 @ 100482:               PUSH   DECLAREARRAYS
11880 @ 100485:               PUSH   QQ
11881 @ 100488:               ASSPAR
11882 @ 100489:               PUSHI  #0x00000000
11883 @ 100494:               ASSPAR
11884 @ 100495:               CALL  

  1854             %FINISH
11885 @ 100496:               LINE   1854 "regression-compile-tmp/imp918s.imp"
11886 @ 100534:               LOCATE L_0003

  1855           ->Label1
  1856  !
11887 @ 100537:               LINE   1855 "regression-compile-tmp/imp918s.imp"
11888 @ 100575:               JUMP   L_01f4

  1857           %ROUTINE DECLARE SCALARS(%INTEGER PERMIT,XTRA)
  1858           {%SHORTROUTINE}
  1859  !***********************************************************************
  1860  !*       THIS ROUTINE DECLARES A LIST OF SCALARS FROM INFORMATION      *
  1861  !*       IN THE GLOBAL VARIABLES ROUT,NAM,ARR,PREC,TYPE & ACC.IT WORKS *
  1862  !*       OUT ROUNDING FACTORS FOR ITSELF. IF PERMIT#0 STRINGS AND      *
  1863  !*       RECORDS ARE ALLOCATED AT RUN TIME(ALLOC=1) WHEN SPACE IS      *
  1864  !*       TIGHT. P POINTS TO THE NAMELIST ON ENTRY AND IS UPDATED.      *
  1865  !***********************************************************************
11889 @ 100578:               LINE   1857 "regression-compile-tmp/imp918s.imp"
11890 @ 100616:               DEF    DECLARESCALARS (_lev0id0_CSS_DECLARESCALARS) p1=V_0181 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
11891 @ 100642:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
11892 @ 100643:                     DEF    PERMIT p1=V_01fb 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
11893 @ 100661:                     DEF    XTRA p1=V_01fc 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
11894 @ 100677:                  FINISH ) {lev=3}

  1866           %INTEGER REP,ALLOC,INC,ROUND,Q,SCHAIN,NIN
11895 @ 100678:                  LINE   1866 "regression-compile-tmp/imp918s.imp"
11896 @ 100716:                  DEF    REP p1=V_01fd 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
11897 @ 100731:                  DEF    ALLOC p1=V_01fe 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
11898 @ 100748:                  DEF    INC p1=V_01ff 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
11899 @ 100763:                  DEF    ROUND p1=V_0200 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
11900 @ 100780:                  DEF    Q p1=V_0201 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
11901 @ 100793:                  DEF    SCHAIN p1=V_0202 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
11902 @ 100811:                  DEF    NIN p1=V_0203 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

  1867           %CONSTBYTEINTEGERARRAY RACC (1:32)=               %C
  1868                                  X'44' (2),X'80',0,X'10',0(5),
  1869                                         X'11',0(9),
  1870                                         X'22',0(9),
  1871                                         0,X'88'
11903 @ 100826:                  LINE   1867 "regression-compile-tmp/imp918s.imp"
11904 @ 100864:                  PUSHI  #0x00000001
11905 @ 100869:                  PUSHI  #0x00000020
11906 @ 100874:                  BOUNDS
11907 @ 100875:                  DEF    RACC p1=V_0204 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
11908 @ 100891:                  PUSHI  #0x00000044
11909 @ 100896:                  INIT   2
11910 @ 100899:                  PUSHI  #0x00000080
11911 @ 100904:                  INIT   1
11912 @ 100907:                  PUSHI  #0x00000000
11913 @ 100912:                  INIT   1
11914 @ 100915:                  PUSHI  #0x00000010
11915 @ 100920:                  INIT   1
11916 @ 100923:                  PUSHI  #0x00000000
11917 @ 100928:                  INIT   5
11918 @ 100931:                  PUSHI  #0x00000011
11919 @ 100936:                  INIT   1
11920 @ 100939:                  PUSHI  #0x00000000
11921 @ 100944:                  INIT   9
11922 @ 100947:                  PUSHI  #0x00000022
11923 @ 100952:                  INIT   1
11924 @ 100955:                  PUSHI  #0x00000000
11925 @ 100960:                  INIT   9
11926 @ 100963:                  PUSHI  #0x00000000
11927 @ 100968:                  INIT   1
11928 @ 100971:                  PUSHI  #0x00000088
11929 @ 100976:                  INIT   1

  1872           PACK(PTYPE); J=0; NIN=N
11930 @ 100979:                  LINE   1872 "regression-compile-tmp/imp918s.imp"
11931 @ 101017:                  PUSH   PACK
11932 @ 101020:                  PUSH   PTYPE
11933 @ 101023:                  ASSPAR
11934 @ 101024:                  CALL  
11935 @ 101025:                  LINE   1872 "regression-compile-tmp/imp918s.imp"
11936 @ 101063:                  PUSH   J
11937 @ 101066:                  PUSHI  #0x00000000
11938 @ 101071:                  ASSVAL
11939 @ 101072:                  LINE   1872 "regression-compile-tmp/imp918s.imp"
11940 @ 101110:                  PUSH   NIN
11941 @ 101113:                  PUSH   N
11942 @ 101116:                  ASSVAL

  1873           %IF PTYPE<=32 %THEN ROUND=RACC(PTYPE) %ELSE %START
11943 @ 101117:                  LINE   1873 "regression-compile-tmp/imp918s.imp"
11944 @ 101155:                  PUSH   PTYPE
11945 @ 101158:                  PUSHI  #0x00000020
11946 @ 101163:                  JUMPIF > L_0004
11947 @ 101167:                  PUSH   ROUND
11948 @ 101170:                  PUSH   RACC
11949 @ 101173:                  PUSH   PTYPE
11950 @ 101176:                  ACCESS
11951 @ 101177:                  ASSVAL
11952 @ 101178:                  GOTO   L_0003
11953 @ 101181:                  LOCATE L_0004

  1874               %IF NAM=1 %AND TYPE=0 %AND ROUT=0 %THEN ROUND=X'48' %C
  1875                                                 %ELSE ROUND=X'44'
11954 @ 101184:                  LINE   1874 "regression-compile-tmp/imp918s.imp"
11955 @ 101222:                  PUSH   NAM
11956 @ 101225:                  PUSHI  #0x00000001
11957 @ 101230:                  JUMPIF # L_0007
11958 @ 101234:                  PUSH   TYPE
11959 @ 101237:                  PUSHI  #0x00000000
11960 @ 101242:                  JUMPIF # L_0007
11961 @ 101246:                  PUSH   ROUT
11962 @ 101249:                  PUSHI  #0x00000000
11963 @ 101254:                  JUMPIF # L_0007
11964 @ 101258:                  PUSH   ROUND
11965 @ 101261:                  PUSHI  #0x00000048
11966 @ 101266:                  ASSVAL
11967 @ 101267:                  GOTO   L_0006
11968 @ 101270:                  LOCATE L_0007
11969 @ 101273:                  PUSH   ROUND
11970 @ 101276:                  PUSHI  #0x00000044
11971 @ 101281:                  ASSVAL
11972 @ 101282:                  LOCATE L_0006

  1876           %FINISH
11973 @ 101285:                  LINE   1876 "regression-compile-tmp/imp918s.imp"
11974 @ 101323:                  LOCATE L_0003

  1877           %IF ARR=1 %AND ROUT=0 %THEN INC=16 %ELSE INC=ROUND&15
  1878                                         ! BEWARE MAPS
11975 @ 101326:                  LINE   1877 "regression-compile-tmp/imp918s.imp"
11976 @ 101364:                  PUSH   ARR
11977 @ 101367:                  PUSHI  #0x00000001
11978 @ 101372:                  JUMPIF # L_0004
11979 @ 101376:                  PUSH   ROUT
11980 @ 101379:                  PUSHI  #0x00000000
11981 @ 101384:                  JUMPIF # L_0004
11982 @ 101388:                  PUSH   INC
11983 @ 101391:                  PUSHI  #0x00000010
11984 @ 101396:                  ASSVAL
11985 @ 101397:                  GOTO   L_0003
11986 @ 101400:                  LOCATE L_0004
11987 @ 101403:                  PUSH   INC
11988 @ 101406:                  PUSH   ROUND
11989 @ 101409:                  PUSHI  #0x0000000f
11990 @ 101414:                  AND   
11991 @ 101415:                  ASSVAL
11992 @ 101416:                  LOCATE L_0003

  1879           %IF INC=0 %THEN INC=ACC
11993 @ 101419:                  LINE   1879 "regression-compile-tmp/imp918s.imp"
11994 @ 101457:                  PUSH   INC
11995 @ 101460:                  PUSHI  #0x00000000
11996 @ 101465:                  JUMPIF # L_0004
11997 @ 101469:                  PUSH   INC
11998 @ 101472:                  PUSH   ACC
11999 @ 101475:                  ASSVAL
12000 @ 101476:                  LOCATE L_0004

  1880           ROUND=ROUND>>4;               ! ITEM LENGTH AND BOUNDARY O.K.
12001 @ 101479:                  LINE   1880 "regression-compile-tmp/imp918s.imp"
12002 @ 101517:                  PUSH   ROUND
12003 @ 101520:                  PUSH   ROUND
12004 @ 101523:                  PUSHI  #0x00000004
12005 @ 101528:                  RSH   
12006 @ 101529:                  ASSVAL

  1881           %IF PTYPE=5 %AND ACC=0 %THEN FAULT(70,0)
12007 @ 101530:                  LINE   1881 "regression-compile-tmp/imp918s.imp"
12008 @ 101568:                  PUSH   PTYPE
12009 @ 101571:                  PUSHI  #0x00000005
12010 @ 101576:                  JUMPIF # L_0004
12011 @ 101580:                  PUSH   ACC
12012 @ 101583:                  PUSHI  #0x00000000
12013 @ 101588:                  JUMPIF # L_0004
12014 @ 101592:                  PUSH   FAULT
12015 @ 101595:                  PUSHI  #0x00000046
12016 @ 101600:                  ASSPAR
12017 @ 101601:                  PUSHI  #0x00000000
12018 @ 101606:                  ASSPAR
12019 @ 101607:                  CALL  
12020 @ 101608:                  LOCATE L_0004

  1882           ALLOC=0; REP=A(P)
12021 @ 101611:                  LINE   1882 "regression-compile-tmp/imp918s.imp"
12022 @ 101649:                  PUSH   ALLOC
12023 @ 101652:                  PUSHI  #0x00000000
12024 @ 101657:                  ASSVAL
12025 @ 101658:                  LINE   1882 "regression-compile-tmp/imp918s.imp"
12026 @ 101696:                  PUSH   REP
12027 @ 101699:                  PUSH   A
12028 @ 101702:                  PUSH   P
12029 @ 101705:                  ACCESS
12030 @ 101706:                  ASSVAL

  1883           %IF PERMIT#0 %AND(PTYPE=3 %OR PTYPE=5) %AND %C
  1884              ACC*REP+N>4096-MARGIN %THEN %START
12031 @ 101707:                  LINE   1883 "regression-compile-tmp/imp918s.imp"
12032 @ 101745:                  PUSH   PERMIT
12033 @ 101748:                  PUSHI  #0x00000000
12034 @ 101753:                  JUMPIF = L_0004
12035 @ 101757:                  PUSH   PTYPE
12036 @ 101760:                  PUSHI  #0x00000003
12037 @ 101765:                  JUMPIF = L_0005
12038 @ 101769:                  PUSH   PTYPE
12039 @ 101772:                  PUSHI  #0x00000005
12040 @ 101777:                  JUMPIF # L_0004
12041 @ 101781:                  LOCATE L_0005
12042 @ 101784:                  PUSH   ACC
12043 @ 101787:                  PUSH   REP
12044 @ 101790:                  MUL   
12045 @ 101791:                  PUSH   N
12046 @ 101794:                  ADD   
12047 @ 101795:                  PUSHI  #0x00001000
12048 @ 101800:                  PUSH   MARGIN
12049 @ 101803:                  SUB   
12050 @ 101804:                  JUMPIF <= L_0004

  1885              NAM=1;  PACK(PTYPE)
12051 @ 101808:                  LINE   1885 "regression-compile-tmp/imp918s.imp"
12052 @ 101846:                  PUSH   NAM
12053 @ 101849:                  PUSHI  #0x00000001
12054 @ 101854:                  ASSVAL
12055 @ 101855:                  LINE   1885 "regression-compile-tmp/imp918s.imp"
12056 @ 101893:                  PUSH   PACK
12057 @ 101896:                  PUSH   PTYPE
12058 @ 101899:                  ASSPAR
12059 @ 101900:                  CALL  

  1886              ROUND=4; INC=4
12060 @ 101901:                  LINE   1886 "regression-compile-tmp/imp918s.imp"
12061 @ 101939:                  PUSH   ROUND
12062 @ 101942:                  PUSHI  #0x00000004
12063 @ 101947:                  ASSVAL
12064 @ 101948:                  LINE   1886 "regression-compile-tmp/imp918s.imp"
12065 @ 101986:                  PUSH   INC
12066 @ 101989:                  PUSHI  #0x00000004
12067 @ 101994:                  ASSVAL

  1887              ALLOC=1
12068 @ 101995:                  LINE   1887 "regression-compile-tmp/imp918s.imp"
12069 @ 102033:                  PUSH   ALLOC
12070 @ 102036:                  PUSHI  #0x00000001
12071 @ 102041:                  ASSVAL

  1888           %FINISH
12072 @ 102042:                  LINE   1888 "regression-compile-tmp/imp918s.imp"
12073 @ 102080:                  LOCATE L_0004

  1889           N=(N+ROUND-1)&(-ROUND)
12074 @ 102083:                  LINE   1889 "regression-compile-tmp/imp918s.imp"
12075 @ 102121:                  PUSH   N
12076 @ 102124:                  PUSH   N
12077 @ 102127:                  PUSH   ROUND
12078 @ 102130:                  ADD   
12079 @ 102131:                  PUSHI  #0x00000001
12080 @ 102136:                  SUB   
12081 @ 102137:                  PUSH   ROUND
12082 @ 102140:                  NEGATE
12083 @ 102141:                  AND   
12084 @ 102142:                  ASSVAL

  1890           %CYCLE Q=1,1,REP;         ! DOWN THE NAMELIST
12085 @ 102143:                  LINE   1890 "regression-compile-tmp/imp918s.imp"
12086 @ 102181:                  PUSH   Q
12087 @ 102184:                  PUSHI  #0x00000001
12088 @ 102189:                  PUSH   REP
12089 @ 102192:                  PUSHI  #0x00000001
12090 @ 102197:                  FOR    L_0003

  1891              K=A(P+Q); TEST NST
12091 @ 102200:                  LINE   1891 "regression-compile-tmp/imp918s.imp"
12092 @ 102238:                  PUSH   K
12093 @ 102241:                  PUSH   A
12094 @ 102244:                  PUSH   P
12095 @ 102247:                  PUSH   Q
12096 @ 102250:                  ADD   
12097 @ 102251:                  ACCESS
12098 @ 102252:                  ASSVAL
12099 @ 102253:                  LINE   1891 "regression-compile-tmp/imp918s.imp"
12100 @ 102291:                  PUSH   TESTNST
12101 @ 102294:                  CALL  

  1892              SCHAIN=N
12102 @ 102295:                  LINE   1892 "regression-compile-tmp/imp918s.imp"
12103 @ 102333:                  PUSH   SCHAIN
12104 @ 102336:                  PUSH   N
12105 @ 102339:                  ASSVAL

  1893              %IF ROUT=1 %THEN %START
12106 @ 102340:                  LINE   1893 "regression-compile-tmp/imp918s.imp"
12107 @ 102378:                  PUSH   ROUT
12108 @ 102381:                  PUSHI  #0x00000001
12109 @ 102386:                  JUMPIF # L_0007

  1894                 SCHAIN=0; J=13; SNDISP=N>>2
12110 @ 102390:                  LINE   1894 "regression-compile-tmp/imp918s.imp"
12111 @ 102428:                  PUSH   SCHAIN
12112 @ 102431:                  PUSHI  #0x00000000
12113 @ 102436:                  ASSVAL
12114 @ 102437:                  LINE   1894 "regression-compile-tmp/imp918s.imp"
12115 @ 102475:                  PUSH   J
12116 @ 102478:                  PUSHI  #0x0000000d
12117 @ 102483:                  ASSVAL
12118 @ 102484:                  LINE   1894 "regression-compile-tmp/imp918s.imp"
12119 @ 102522:                  PUSH   SNDISP
12120 @ 102525:                  PUSH   N
12121 @ 102528:                  PUSHI  #0x00000002
12122 @ 102533:                  RSH   
12123 @ 102534:                  ASSVAL

  1895                 KFORM=1000
12124 @ 102535:                  LINE   1895 "regression-compile-tmp/imp918s.imp"
12125 @ 102573:                  PUSH   KFORM
12126 @ 102576:                  PUSHI  #0x000003e8
12127 @ 102581:                  ASSVAL

  1896              %FINISH
12128 @ 102582:                  LINE   1896 "regression-compile-tmp/imp918s.imp"
12129 @ 102620:                  LOCATE L_0007

  1897              %IF TYPE=3 %THEN KFORM=XTRA
12130 @ 102623:                  LINE   1897 "regression-compile-tmp/imp918s.imp"
12131 @ 102661:                  PUSH   TYPE
12132 @ 102664:                  PUSHI  #0x00000003
12133 @ 102669:                  JUMPIF # L_0007
12134 @ 102673:                  PUSH   KFORM
12135 @ 102676:                  PUSH   XTRA
12136 @ 102679:                  ASSVAL
12137 @ 102680:                  LOCATE L_0007

  1898              STORE TAG(K,SCHAIN)
12138 @ 102683:                  LINE   1898 "regression-compile-tmp/imp918s.imp"
12139 @ 102721:                  PUSH   STORETAG
12140 @ 102724:                  PUSH   K
12141 @ 102727:                  ASSPAR
12142 @ 102728:                  PUSH   SCHAIN
12143 @ 102731:                  ASSPAR
12144 @ 102732:                  CALL  

  1899              %IF ALLOC=1 %THEN %START
12145 @ 102733:                  LINE   1899 "regression-compile-tmp/imp918s.imp"
12146 @ 102771:                  PUSH   ALLOC
12147 @ 102774:                  PUSHI  #0x00000001
12148 @ 102779:                  JUMPIF # L_0007

  1900                 %IF UNASS=1 %THEN PSS(X'D2',8,WSPR,0,CODER,216)
12149 @ 102783:                  LINE   1900 "regression-compile-tmp/imp918s.imp"
12150 @ 102821:                  PUSH   UNASS
12151 @ 102824:                  PUSHI  #0x00000001
12152 @ 102829:                  JUMPIF # L_000a
12153 @ 102833:                  PUSH   PSS
12154 @ 102836:                  PUSHI  #0x000000d2
12155 @ 102841:                  ASSPAR
12156 @ 102842:                  PUSHI  #0x00000008
12157 @ 102847:                  ASSPAR
12158 @ 102848:                  PUSHI  #0x0000000b
12159 @ 102853:                  ASSPAR
12160 @ 102854:                  PUSHI  #0x00000000
12161 @ 102859:                  ASSPAR
12162 @ 102860:                  PUSHI  #0x0000000c
12163 @ 102865:                  ASSPAR
12164 @ 102866:                  PUSHI  #0x000000d8
12165 @ 102871:                  ASSPAR
12166 @ 102872:                  CALL  
12167 @ 102873:                  LOCATE L_000a

  1901                 DUMP(X'50',WSPR,N,0,RBASE)
12168 @ 102876:                  LINE   1901 "regression-compile-tmp/imp918s.imp"
12169 @ 102914:                  PUSH   DUMP
12170 @ 102917:                  PUSHI  #0x00000050
12171 @ 102922:                  ASSPAR
12172 @ 102923:                  PUSHI  #0x0000000b
12173 @ 102928:                  ASSPAR
12174 @ 102929:                  PUSH   N
12175 @ 102932:                  ASSPAR
12176 @ 102933:                  PUSHI  #0x00000000
12177 @ 102938:                  ASSPAR
12178 @ 102939:                  PUSH   RBASE
12179 @ 102942:                  ASSPAR
12180 @ 102943:                  CALL  

  1902                 %IF TYPE=5 %THEN DUMPSI(X'92',ACC-1,RBASE,N)
12181 @ 102944:                  LINE   1902 "regression-compile-tmp/imp918s.imp"
12182 @ 102982:                  PUSH   TYPE
12183 @ 102985:                  PUSHI  #0x00000005
12184 @ 102990:                  JUMPIF # L_000a
12185 @ 102994:                  PUSH   DUMPSI
12186 @ 102997:                  PUSHI  #0x00000092
12187 @ 103002:                  ASSPAR
12188 @ 103003:                  PUSH   ACC
12189 @ 103006:                  PUSHI  #0x00000001
12190 @ 103011:                  SUB   
12191 @ 103012:                  ASSPAR
12192 @ 103013:                  PUSH   RBASE
12193 @ 103016:                  ASSPAR
12194 @ 103017:                  PUSH   N
12195 @ 103020:                  ASSPAR
12196 @ 103021:                  CALL  
12197 @ 103022:                  LOCATE L_000a

  1903                 MOVER(WSPR,(ACC+7)&(-8))
12198 @ 103025:                  LINE   1903 "regression-compile-tmp/imp918s.imp"
12199 @ 103063:                  PUSH   MOVER
12200 @ 103066:                  PUSHI  #0x0000000b
12201 @ 103071:                  ASSPAR
12202 @ 103072:                  PUSH   ACC
12203 @ 103075:                  PUSHI  #0x00000007
12204 @ 103080:                  ADD   
12205 @ 103081:                  PUSHI  #0x00000008
12206 @ 103086:                  NEGATE
12207 @ 103087:                  AND   
12208 @ 103088:                  ASSPAR
12209 @ 103089:                  CALL  

  1904              %FINISH
12210 @ 103090:                  LINE   1904 "regression-compile-tmp/imp918s.imp"
12211 @ 103128:                  LOCATE L_0007

  1905              N=N+INC
12212 @ 103131:                  LINE   1905 "regression-compile-tmp/imp918s.imp"
12213 @ 103169:                  PUSH   N
12214 @ 103172:                  PUSH   N
12215 @ 103175:                  PUSH   INC
12216 @ 103178:                  ADD   
12217 @ 103179:                  ASSVAL

  1906           %REPEAT
12218 @ 103180:                  LINE   1906 "regression-compile-tmp/imp918s.imp"
12219 @ 103218:                  REPEAT L_0003
12220 @ 103221:                  LOCATE L_0004

  1907           P=P+REP+1
12221 @ 103224:                  LINE   1907 "regression-compile-tmp/imp918s.imp"
12222 @ 103262:                  PUSH   P
12223 @ 103265:                  PUSH   P
12224 @ 103268:                  PUSH   REP
12225 @ 103271:                  ADD   
12226 @ 103272:                  PUSHI  #0x00000001
12227 @ 103277:                  ADD   
12228 @ 103278:                  ASSVAL

  1908           N=(N+3)&(-4) %IF PERMIT#0;! NO ROUNDING AMONG PARAMS
12229 @ 103279:                  LINE   1908 "regression-compile-tmp/imp918s.imp"
12230 @ 103317:                  PUSH   PERMIT
12231 @ 103320:                  PUSHI  #0x00000000
12232 @ 103325:                  JUMPIF = L_0004
12233 @ 103329:                  PUSH   N
12234 @ 103332:                  PUSH   N
12235 @ 103335:                  PUSHI  #0x00000003
12236 @ 103340:                  ADD   
12237 @ 103341:                  PUSHI  #0x00000004
12238 @ 103346:                  NEGATE
12239 @ 103347:                  AND   
12240 @ 103348:                  ASSVAL
12241 @ 103349:                  LOCATE L_0004

  1909           BULKM(0,N-NIN,RBASE,NIN,0,X'80') %IF UNASS=1 %AND %C
  1910           ALLOC=0 %AND PERMIT\=0
12242 @ 103352:                  LINE   1909 "regression-compile-tmp/imp918s.imp"
12243 @ 103390:                  PUSH   UNASS
12244 @ 103393:                  PUSHI  #0x00000001
12245 @ 103398:                  JUMPIF # L_0004
12246 @ 103402:                  PUSH   ALLOC
12247 @ 103405:                  PUSHI  #0x00000000
12248 @ 103410:                  JUMPIF # L_0004
12249 @ 103414:                  PUSH   PERMIT
12250 @ 103417:                  PUSHI  #0x00000000
12251 @ 103422:                  JUMPIF = L_0004
12252 @ 103426:                  PUSH   BULKM
12253 @ 103429:                  PUSHI  #0x00000000
12254 @ 103434:                  ASSPAR
12255 @ 103435:                  PUSH   N
12256 @ 103438:                  PUSH   NIN
12257 @ 103441:                  SUB   
12258 @ 103442:                  ASSPAR
12259 @ 103443:                  PUSH   RBASE
12260 @ 103446:                  ASSPAR
12261 @ 103447:                  PUSH   NIN
12262 @ 103450:                  ASSPAR
12263 @ 103451:                  PUSHI  #0x00000000
12264 @ 103456:                  ASSPAR
12265 @ 103457:                  PUSHI  #0x00000080
12266 @ 103462:                  ASSPAR
12267 @ 103463:                  CALL  
12268 @ 103464:                  LOCATE L_0004

  1911           %END
12269 @ 103467:                  LINE   1911 "regression-compile-tmp/imp918s.imp"
12270 @ 103505:               END    _lev0id0_CSS_DECLARESCALARS {lev=3 --> 2}

  1912           %ROUTINE DECLARE ARRAYS(%INTEGER FORMAT,FINF)
  1913           {%SHORTROUTINE}
  1914  !***********************************************************************
  1915  !*       FORMAT=1 FOR 'ARRAYFORMAT'   =0 OTHERWISE                     *
  1916  !*       FINF>0 FOR RECORD FORMAT INFORMATION =0 OTHERWISE             *
  1917  !*       P IS AT P<ADECLN>   IN                                        *
  1918  !*                                                                     *
  1919  !*       P<ADECLN>=<NAMELIST> <BPAIR> <RESTOFDECLN>                    *
  1920  !*       P<BPAIR> = <CBPAIR>,'('<EXPR>':'<EXRR><RESTOFBP>*')'          *
  1921  !*                                                                     *
  1922  !*       ARRAYS OF ONE DIMENSION WITH CONSTANT BOUNDS HAVE THEIR       *
  1923  !*       DOPE-VECTOR IN THE CONSTANT AREA AND MAY HAVE THEIR SPACE     *
  1924  !*       ALLOCATED AT COMPILE TIME AMONG THE SCALARS                   *
  1925  !*       ALL OTHER ARRAYS HAVE A DOPE VECTOR AMONG THE LOCALS AND GET  *
  1926  !*       THEIR SPACE OFF THE STACK AT RUN TIME                         *
  1927  !*       BOTH SORTS OF ARRAYS HAVE A FOUR WORD HEAD AND D-V TO EMAS    *
  1928  !*       SYSTEM STANDARDS                                              *
  1929  !***********************************************************************
12271 @ 103506:               LINE   1912 "regression-compile-tmp/imp918s.imp"
12272 @ 103544:               DEF    DECLAREARRAYS (_lev0id0_CSS_DECLAREARRAYS) p1=V_0180 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
12273 @ 103569:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
12274 @ 103570:                     DEF    FORMAT p1=V_01fb 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
12275 @ 103588:                     DEF    FINF p1=V_01fc 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
12276 @ 103604:                  FINISH ) {lev=3}

  1930           %INTEGER DVDISP,PP,DVF,ELSIZE,TOTSIZE,L,U,D1,D0
12277 @ 103605:                  LINE   1930 "regression-compile-tmp/imp918s.imp"
12278 @ 103643:                  DEF    DVDISP p1=V_01fd 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
12279 @ 103661:                  DEF    PP p1=V_01fe 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
12280 @ 103675:                  DEF    DVF p1=V_01ff 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
12281 @ 103690:                  DEF    ELSIZE p1=V_0200 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
12282 @ 103708:                  DEF    TOTSIZE p1=V_0201 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
12283 @ 103727:                  DEF    L p1=V_0202 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
12284 @ 103740:                  DEF    U p1=V_0203 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
12285 @ 103753:                  DEF    D1 p1=V_0204 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
12286 @ 103767:                  DEF    D0 p1=V_0205 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

  1931           %INTEGER PTYPEP,ARRP,NN,ND,II,JJ,QQ,R,CDV
12287 @ 103781:                  LINE   1931 "regression-compile-tmp/imp918s.imp"
12288 @ 103819:                  DEF    PTYPEP p1=V_0206 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
12289 @ 103837:                  DEF    ARRP p1=V_0207 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
12290 @ 103853:                  DEF    NN p1=V_0208 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
12291 @ 103867:                  DEF    ND p1=V_0209 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
12292 @ 103881:                  DEF    II p1=V_020a 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
12293 @ 103895:                  DEF    JJ p1=V_020b 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
12294 @ 103909:                  DEF    QQ p1=V_020c 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
12295 @ 103923:                  DEF    R p1=V_020d 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
12296 @ 103936:                  DEF    CDV p1=V_020e 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

  1932           ARRP=2*FORMAT+1; ARR=ARRP; PACK(PTYPEP)
12297 @ 103951:                  LINE   1932 "regression-compile-tmp/imp918s.imp"
12298 @ 103989:                  PUSH   ARRP
12299 @ 103992:                  PUSHI  #0x00000002
12300 @ 103997:                  PUSH   FORMAT
12301 @ 104000:                  MUL   
12302 @ 104001:                  PUSHI  #0x00000001
12303 @ 104006:                  ADD   
12304 @ 104007:                  ASSVAL
12305 @ 104008:                  LINE   1932 "regression-compile-tmp/imp918s.imp"
12306 @ 104046:                  PUSH   ARR
12307 @ 104049:                  PUSH   ARRP
12308 @ 104052:                  ASSVAL
12309 @ 104053:                  LINE   1932 "regression-compile-tmp/imp918s.imp"
12310 @ 104091:                  PUSH   PACK
12311 @ 104094:                  PUSH   PTYPEP
12312 @ 104097:                  ASSPAR
12313 @ 104098:                  CALL  

  1933           ELSIZE=ACC
12314 @ 104099:                  LINE   1933 "regression-compile-tmp/imp918s.imp"
12315 @ 104137:                  PUSH   ELSIZE
12316 @ 104140:                  PUSH   ACC
12317 @ 104143:                  ASSVAL

  1934  START:   NN=A(P+1);                    ! NO OF NAMES IN NAMELIST
12318 @ 104144:                  LINE   1934 "regression-compile-tmp/imp918s.imp"
12319 @ 104182:                  LABEL  L_020f
12320 @ 104185:                  LINE   1934 "regression-compile-tmp/imp918s.imp"
12321 @ 104223:                  PUSH   NN
12322 @ 104226:                  PUSH   A
12323 @ 104229:                  PUSH   P
12324 @ 104232:                  PUSHI  #0x00000001
12325 @ 104237:                  ADD   
12326 @ 104238:                  ACCESS
12327 @ 104239:                  ASSVAL

  1935           PP=P; CDV=0
12328 @ 104240:                  LINE   1935 "regression-compile-tmp/imp918s.imp"
12329 @ 104278:                  PUSH   PP
12330 @ 104281:                  PUSH   P
12331 @ 104284:                  ASSVAL
12332 @ 104285:                  LINE   1935 "regression-compile-tmp/imp918s.imp"
12333 @ 104323:                  PUSH   CDV
12334 @ 104326:                  PUSHI  #0x00000000
12335 @ 104331:                  ASSVAL

  1936           P=P+2+NN;
12336 @ 104332:                  LINE   1936 "regression-compile-tmp/imp918s.imp"
12337 @ 104370:                  PUSH   P
12338 @ 104373:                  PUSH   P
12339 @ 104376:                  PUSHI  #0x00000002
12340 @ 104381:                  ADD   
12341 @ 104382:                  PUSH   NN
12342 @ 104385:                  ADD   
12343 @ 104386:                  ASSVAL

  1937           %IF A(P)=1 %THEN -> CONSTDV;  ! P<BPAIR> =<CBPAIR>
  1938  !
  1939  ! NORMAL CASE - PLANT CODE TO SET UP DOPE-VECTOR AT RUN TIME
  1940  !
12344 @ 104387:                  LINE   1937 "regression-compile-tmp/imp918s.imp"
12345 @ 104425:                  PUSH   A
12346 @ 104428:                  PUSH   P
12347 @ 104431:                  ACCESS
12348 @ 104432:                  PUSHI  #0x00000001
12349 @ 104437:                  JUMPIF # L_0004
12350 @ 104441:                  JUMP   L_0210
12351 @ 104444:                  LOCATE L_0004

  1941           ND=0; JJ=P; DVF=0;TOTSIZE=X'FFFF'
12352 @ 104447:                  LINE   1941 "regression-compile-tmp/imp918s.imp"
12353 @ 104485:                  PUSH   ND
12354 @ 104488:                  PUSHI  #0x00000000
12355 @ 104493:                  ASSVAL
12356 @ 104494:                  LINE   1941 "regression-compile-tmp/imp918s.imp"
12357 @ 104532:                  PUSH   JJ
12358 @ 104535:                  PUSH   P
12359 @ 104538:                  ASSVAL
12360 @ 104539:                  LINE   1941 "regression-compile-tmp/imp918s.imp"
12361 @ 104577:                  PUSH   DVF
12362 @ 104580:                  PUSHI  #0x00000000
12363 @ 104585:                  ASSVAL
12364 @ 104586:                  LINE   1941 "regression-compile-tmp/imp918s.imp"
12365 @ 104624:                  PUSH   TOTSIZE
12366 @ 104627:                  PUSHI  #0x0000ffff
12367 @ 104632:                  ASSVAL

  1942           %CYCLE;                       ! TILL NO MORE BPAIRS
12368 @ 104633:                  LINE   1942 "regression-compile-tmp/imp918s.imp"
12369 @ 104671:                  LOCATE L_0003

  1943              P=P+1; ND=ND+1;            ! COUNT NO OF DIMENSIONS
12370 @ 104674:                  LINE   1943 "regression-compile-tmp/imp918s.imp"
12371 @ 104712:                  PUSH   P
12372 @ 104715:                  PUSH   P
12373 @ 104718:                  PUSHI  #0x00000001
12374 @ 104723:                  ADD   
12375 @ 104724:                  ASSVAL
12376 @ 104725:                  LINE   1943 "regression-compile-tmp/imp918s.imp"
12377 @ 104763:                  PUSH   ND
12378 @ 104766:                  PUSH   ND
12379 @ 104769:                  PUSHI  #0x00000001
12380 @ 104774:                  ADD   
12381 @ 104775:                  ASSVAL

  1944              SKIP EXP; SKIP EXP
12382 @ 104776:                  LINE   1944 "regression-compile-tmp/imp918s.imp"
12383 @ 104814:                  PUSH   SKIPEXP
12384 @ 104817:                  CALL  
12385 @ 104818:                  LINE   1944 "regression-compile-tmp/imp918s.imp"
12386 @ 104856:                  PUSH   SKIPEXP
12387 @ 104859:                  CALL  

  1945           %REPEAT %UNTIL A(P)=2
12388 @ 104860:                  LINE   1945 "regression-compile-tmp/imp918s.imp"
12389 @ 104898:                  PUSH   A
12390 @ 104901:                  PUSH   P
12391 @ 104904:                  ACCESS
12392 @ 104905:                  PUSHI  #0x00000002
12393 @ 104910:                  JUMPIF = L_0004
12394 @ 104914:                  REPEAT L_0003
12395 @ 104917:                  LOCATE L_0004

  1946           P=JJ; DVDISP=N;               ! DVDISP IS D-V POSITION
12396 @ 104920:                  LINE   1946 "regression-compile-tmp/imp918s.imp"
12397 @ 104958:                  PUSH   P
12398 @ 104961:                  PUSH   JJ
12399 @ 104964:                  ASSVAL
12400 @ 104965:                  LINE   1946 "regression-compile-tmp/imp918s.imp"
12401 @ 105003:                  PUSH   DVDISP
12402 @ 105006:                  PUSH   N
12403 @ 105009:                  ASSVAL

  1947           N=N+12*ND+4;                  ! CLAIM SPACE FOR THE D-V
12404 @ 105010:                  LINE   1947 "regression-compile-tmp/imp918s.imp"
12405 @ 105048:                  PUSH   N
12406 @ 105051:                  PUSH   N
12407 @ 105054:                  PUSHI  #0x0000000c
12408 @ 105059:                  PUSH   ND
12409 @ 105062:                  MUL   
12410 @ 105063:                  ADD   
12411 @ 105064:                  PUSHI  #0x00000004
12412 @ 105069:                  ADD   
12413 @ 105070:                  ASSVAL

  1948           FAULT(37,0) %IF ND>7;           ! TOO MANY DIMENSIONS
  1949  !
12414 @ 105071:                  LINE   1948 "regression-compile-tmp/imp918s.imp"
12415 @ 105109:                  PUSH   ND
12416 @ 105112:                  PUSHI  #0x00000007
12417 @ 105117:                  JUMPIF <= L_0004
12418 @ 105121:                  PUSH   FAULT
12419 @ 105124:                  PUSHI  #0x00000025
12420 @ 105129:                  ASSPAR
12421 @ 105130:                  PUSHI  #0x00000000
12422 @ 105135:                  ASSPAR
12423 @ 105136:                  CALL  
12424 @ 105137:                  LOCATE L_0004

  1950           DUMP(0,-2,ELSIZE,0,0)
12425 @ 105140:                  LINE   1950 "regression-compile-tmp/imp918s.imp"
12426 @ 105178:                  PUSH   DUMP
12427 @ 105181:                  PUSHI  #0x00000000
12428 @ 105186:                  ASSPAR
12429 @ 105187:                  PUSHI  #0x00000002
12430 @ 105192:                  NEGATE
12431 @ 105193:                  ASSPAR
12432 @ 105194:                  PUSH   ELSIZE
12433 @ 105197:                  ASSPAR
12434 @ 105198:                  PUSHI  #0x00000000
12435 @ 105203:                  ASSPAR
12436 @ 105204:                  PUSHI  #0x00000000
12437 @ 105209:                  ASSPAR
12438 @ 105210:                  CALL  

  1951           REGISTER(NEST)=1
12439 @ 105211:                  LINE   1951 "regression-compile-tmp/imp918s.imp"
12440 @ 105249:                  PUSH   REGISTER
12441 @ 105252:                  PUSH   NEST
12442 @ 105255:                  ACCESS
12443 @ 105256:                  PUSHI  #0x00000001
12444 @ 105261:                  ASSVAL

  1952           DUMP(X'50',NEST,DVDISP,0,RBASE)
12445 @ 105262:                  LINE   1952 "regression-compile-tmp/imp918s.imp"
12446 @ 105300:                  PUSH   DUMP
12447 @ 105303:                  PUSHI  #0x00000050
12448 @ 105308:                  ASSPAR
12449 @ 105309:                  PUSH   NEST
12450 @ 105312:                  ASSPAR
12451 @ 105313:                  PUSH   DVDISP
12452 @ 105316:                  ASSPAR
12453 @ 105317:                  PUSHI  #0x00000000
12454 @ 105322:                  ASSPAR
12455 @ 105323:                  PUSH   RBASE
12456 @ 105326:                  ASSPAR
12457 @ 105327:                  CALL  

  1953           FREE AND FORGET(NEST)
12458 @ 105328:                  LINE   1953 "regression-compile-tmp/imp918s.imp"
12459 @ 105366:                  PUSH   FREEANDFORGET
12460 @ 105369:                  PUSH   NEST
12461 @ 105372:                  ASSPAR
12462 @ 105373:                  CALL  

  1954           DUMPSI(X'92',ND,RBASE,DVDISP+1);  ! FIRST ND=ND<<16!ELSIZE
  1955  !
12463 @ 105374:                  LINE   1954 "regression-compile-tmp/imp918s.imp"
12464 @ 105412:                  PUSH   DUMPSI
12465 @ 105415:                  PUSHI  #0x00000092
12466 @ 105420:                  ASSPAR
12467 @ 105421:                  PUSH   ND
12468 @ 105424:                  ASSPAR
12469 @ 105425:                  PUSH   RBASE
12470 @ 105428:                  ASSPAR
12471 @ 105429:                  PUSH   DVDISP
12472 @ 105432:                  PUSHI  #0x00000001
12473 @ 105437:                  ADD   
12474 @ 105438:                  ASSPAR
12475 @ 105439:                  CALL  

  1956           %CYCLE II=0,1,ND-1
12476 @ 105440:                  LINE   1956 "regression-compile-tmp/imp918s.imp"
12477 @ 105478:                  PUSH   II
12478 @ 105481:                  PUSHI  #0x00000001
12479 @ 105486:                  PUSH   ND
12480 @ 105489:                  PUSHI  #0x00000001
12481 @ 105494:                  SUB   
12482 @ 105495:                  PUSHI  #0x00000000
12483 @ 105500:                  FOR    L_0003

  1957              P=P+1
12484 @ 105503:                  LINE   1957 "regression-compile-tmp/imp918s.imp"
12485 @ 105541:                  PUSH   P
12486 @ 105544:                  PUSH   P
12487 @ 105547:                  PUSHI  #0x00000001
12488 @ 105552:                  ADD   
12489 @ 105553:                  ASSVAL

  1958              %CYCLE JJ=0,1,1
12490 @ 105554:                  LINE   1958 "regression-compile-tmp/imp918s.imp"
12491 @ 105592:                  PUSH   JJ
12492 @ 105595:                  PUSHI  #0x00000001
12493 @ 105600:                  PUSHI  #0x00000001
12494 @ 105605:                  PUSHI  #0x00000000
12495 @ 105610:                  FOR    L_0006

  1959                 QQ=12*II+4*JJ+4+DVDISP
12496 @ 105613:                  LINE   1959 "regression-compile-tmp/imp918s.imp"
12497 @ 105651:                  PUSH   QQ
12498 @ 105654:                  PUSHI  #0x0000000c
12499 @ 105659:                  PUSH   II
12500 @ 105662:                  MUL   
12501 @ 105663:                  PUSHI  #0x00000004
12502 @ 105668:                  PUSH   JJ
12503 @ 105671:                  MUL   
12504 @ 105672:                  ADD   
12505 @ 105673:                  PUSHI  #0x00000004
12506 @ 105678:                  ADD   
12507 @ 105679:                  PUSH   DVDISP
12508 @ 105682:                  ADD   
12509 @ 105683:                  ASSVAL

  1960                 TYPE=1; PREC=0; PTYPE=1
12510 @ 105684:                  LINE   1960 "regression-compile-tmp/imp918s.imp"
12511 @ 105722:                  PUSH   TYPE
12512 @ 105725:                  PUSHI  #0x00000001
12513 @ 105730:                  ASSVAL
12514 @ 105731:                  LINE   1960 "regression-compile-tmp/imp918s.imp"
12515 @ 105769:                  PUSH   PREC
12516 @ 105772:                  PUSHI  #0x00000000
12517 @ 105777:                  ASSVAL
12518 @ 105778:                  LINE   1960 "regression-compile-tmp/imp918s.imp"
12519 @ 105816:                  PUSH   PTYPE
12520 @ 105819:                  PUSHI  #0x00000001
12521 @ 105824:                  ASSVAL

  1961                 ASSIGN(2,RBASE<<16!QQ); ! ASSIGN EXPR TO DVITEM
12522 @ 105825:                  LINE   1961 "regression-compile-tmp/imp918s.imp"
12523 @ 105863:                  PUSH   ASSIGN
12524 @ 105866:                  PUSHI  #0x00000002
12525 @ 105871:                  ASSPAR
12526 @ 105872:                  PUSH   RBASE
12527 @ 105875:                  PUSHI  #0x00000010
12528 @ 105880:                  LSH   
12529 @ 105881:                  PUSH   QQ
12530 @ 105884:                  OR    
12531 @ 105885:                  ASSPAR
12532 @ 105886:                  CALL  

  1962              %REPEAT
12533 @ 105887:                  LINE   1962 "regression-compile-tmp/imp918s.imp"
12534 @ 105925:                  REPEAT L_0006
12535 @ 105928:                  LOCATE L_0007

  1963           %REPEAT
12536 @ 105931:                  LINE   1963 "regression-compile-tmp/imp918s.imp"
12537 @ 105969:                  REPEAT L_0003
12538 @ 105972:                  LOCATE L_0004

  1964           P=P+1
12539 @ 105975:                  LINE   1964 "regression-compile-tmp/imp918s.imp"
12540 @ 106013:                  PUSH   P
12541 @ 106016:                  PUSH   P
12542 @ 106019:                  PUSHI  #0x00000001
12543 @ 106024:                  ADD   
12544 @ 106025:                  ASSVAL

  1965           DUMP(0,2,DVDISP,0,RBASE)
12545 @ 106026:                  LINE   1965 "regression-compile-tmp/imp918s.imp"
12546 @ 106064:                  PUSH   DUMP
12547 @ 106067:                  PUSHI  #0x00000000
12548 @ 106072:                  ASSPAR
12549 @ 106073:                  PUSHI  #0x00000002
12550 @ 106078:                  ASSPAR
12551 @ 106079:                  PUSH   DVDISP
12552 @ 106082:                  ASSPAR
12553 @ 106083:                  PUSHI  #0x00000000
12554 @ 106088:                  ASSPAR
12555 @ 106089:                  PUSH   RBASE
12556 @ 106092:                  ASSPAR
12557 @ 106093:                  CALL  

  1966  RUN TIME:                              ! ALLOCATE SPACE AT RUN TIME
  1967                                         ! R2 POINTS TO D-V
12558 @ 106094:                  LINE   1966 "regression-compile-tmp/imp918s.imp"
12559 @ 106132:                  LABEL  L_0211

  1968           DVF=0;                        ! NOT VECTORS
12560 @ 106135:                  LINE   1968 "regression-compile-tmp/imp918s.imp"
12561 @ 106173:                  PUSH   DVF
12562 @ 106176:                  PUSHI  #0x00000000
12563 @ 106181:                  ASSVAL

  1969           PRX(X'50',2,0,GLA,36);        ! PUT POINTER INTO GLA
12564 @ 106182:                  LINE   1969 "regression-compile-tmp/imp918s.imp"
12565 @ 106220:                  PUSH   PRX
12566 @ 106223:                  PUSHI  #0x00000050
12567 @ 106228:                  ASSPAR
12568 @ 106229:                  PUSHI  #0x00000002
12569 @ 106234:                  ASSPAR
12570 @ 106235:                  PUSHI  #0x00000000
12571 @ 106240:                  ASSPAR
12572 @ 106241:                  PUSHI  #0x0000000d
12573 @ 106246:                  ASSPAR
12574 @ 106247:                  PUSHI  #0x00000024
12575 @ 106252:                  ASSPAR
12576 @ 106253:                  CALL  

  1970           JJ=FORMAT<<7!UNASS
12577 @ 106254:                  LINE   1970 "regression-compile-tmp/imp918s.imp"
12578 @ 106292:                  PUSH   JJ
12579 @ 106295:                  PUSH   FORMAT
12580 @ 106298:                  PUSHI  #0x00000007
12581 @ 106303:                  LSH   
12582 @ 106304:                  PUSH   UNASS
12583 @ 106307:                  OR    
12584 @ 106308:                  ASSVAL

  1971           PSI(X'92',JJ,GLA,36) %IF JJ#0;! AND ADD FLAGS
12585 @ 106309:                  LINE   1971 "regression-compile-tmp/imp918s.imp"
12586 @ 106347:                  PUSH   JJ
12587 @ 106350:                  PUSHI  #0x00000000
12588 @ 106355:                  JUMPIF = L_0004
12589 @ 106359:                  PUSH   PSI
12590 @ 106362:                  PUSHI  #0x00000092
12591 @ 106367:                  ASSPAR
12592 @ 106368:                  PUSH   JJ
12593 @ 106371:                  ASSPAR
12594 @ 106372:                  PUSHI  #0x0000000d
12595 @ 106377:                  ASSPAR
12596 @ 106378:                  PUSHI  #0x00000024
12597 @ 106383:                  ASSPAR
12598 @ 106384:                  CALL  
12599 @ 106385:                  LOCATE L_0004

  1972           -> DECL
12600 @ 106388:                  LINE   1972 "regression-compile-tmp/imp918s.imp"
12601 @ 106426:                  JUMP   L_0212

  1973  CONSTDV:                               ! ONE DIMENSION - CONSTANT BOUNDS
12602 @ 106429:                  LINE   1973 "regression-compile-tmp/imp918s.imp"
12603 @ 106467:                  LABEL  L_0210

  1974           DVF=1; ND=1; P=P+1; CDV=1
12604 @ 106470:                  LINE   1974 "regression-compile-tmp/imp918s.imp"
12605 @ 106508:                  PUSH   DVF
12606 @ 106511:                  PUSHI  #0x00000001
12607 @ 106516:                  ASSVAL
12608 @ 106517:                  LINE   1974 "regression-compile-tmp/imp918s.imp"
12609 @ 106555:                  PUSH   ND
12610 @ 106558:                  PUSHI  #0x00000001
12611 @ 106563:                  ASSVAL
12612 @ 106564:                  LINE   1974 "regression-compile-tmp/imp918s.imp"
12613 @ 106602:                  PUSH   P
12614 @ 106605:                  PUSH   P
12615 @ 106608:                  PUSHI  #0x00000001
12616 @ 106613:                  ADD   
12617 @ 106614:                  ASSVAL
12618 @ 106615:                  LINE   1974 "regression-compile-tmp/imp918s.imp"
12619 @ 106653:                  PUSH   CDV
12620 @ 106656:                  PUSHI  #0x00000001
12621 @ 106661:                  ASSVAL

  1975           CBPAIR(L,U);                  ! GET BOUNDS
12622 @ 106662:                  LINE   1975 "regression-compile-tmp/imp918s.imp"
12623 @ 106700:                  PUSH   CBPAIR
12624 @ 106703:                  PUSH   L
12625 @ 106706:                  ASSPAR
12626 @ 106707:                  PUSH   U
12627 @ 106710:                  ASSPAR
12628 @ 106711:                  CALL  

  1976           DVDISP=DOPE VECTOR(ELSIZE,L,U); ! AND GENERATE A D-V
12629 @ 106712:                  LINE   1976 "regression-compile-tmp/imp918s.imp"
12630 @ 106750:                  PUSH   DVDISP
12631 @ 106753:                  PUSH   DOPEVECTOR
12632 @ 106756:                  PUSH   ELSIZE
12633 @ 106759:                  ASSPAR
12634 @ 106760:                  PUSH   L
12635 @ 106763:                  ASSPAR
12636 @ 106764:                  PUSH   U
12637 @ 106767:                  ASSPAR
12638 @ 106768:                  CALL  
12639 @ 106769:                  ASSVAL

  1977           R=U-L+1;                      ! RANGE=SPACES AS ELEMENTS
12640 @ 106770:                  LINE   1977 "regression-compile-tmp/imp918s.imp"
12641 @ 106808:                  PUSH   R
12642 @ 106811:                  PUSH   U
12643 @ 106814:                  PUSH   L
12644 @ 106817:                  SUB   
12645 @ 106818:                  PUSHI  #0x00000001
12646 @ 106823:                  ADD   
12647 @ 106824:                  ASSVAL

  1978           TOTSIZE=R*ELSIZE
  1979  !
12648 @ 106825:                  LINE   1978 "regression-compile-tmp/imp918s.imp"
12649 @ 106863:                  PUSH   TOTSIZE
12650 @ 106866:                  PUSH   R
12651 @ 106869:                  PUSH   ELSIZE
12652 @ 106872:                  MUL   
12653 @ 106873:                  ASSVAL

  1980           II=DVDISP-GRINF(2)
12654 @ 106874:                  LINE   1980 "regression-compile-tmp/imp918s.imp"
12655 @ 106912:                  PUSH   II
12656 @ 106915:                  PUSH   DVDISP
12657 @ 106918:                  PUSH   GRINF
12658 @ 106921:                  PUSHI  #0x00000002
12659 @ 106926:                  ACCESS
12660 @ 106927:                  SUB   
12661 @ 106928:                  ASSVAL

  1981           %UNLESS GRUSE(2)=17 %AND II>=0 %THEN %START
12662 @ 106929:                  LINE   1981 "regression-compile-tmp/imp918s.imp"
12663 @ 106967:                  PUSH   GRUSE
12664 @ 106970:                  PUSHI  #0x00000002
12665 @ 106975:                  ACCESS
12666 @ 106976:                  PUSHI  #0x00000011
12667 @ 106981:                  JUMPIF # L_0005
12668 @ 106985:                  PUSH   II
12669 @ 106988:                  PUSHI  #0x00000000
12670 @ 106993:                  JUMPIF >= L_0004
12671 @ 106997:                  LOCATE L_0005

  1982              PCONST(X'5820D000');       ! LOAD R2,POINTER TO SST
12672 @ 107000:                  LINE   1982 "regression-compile-tmp/imp918s.imp"
12673 @ 107038:                  PUSH   PCONST
12674 @ 107041:                  PUSHI  #0x5820d000
12675 @ 107046:                  ASSPAR
12676 @ 107047:                  CALL  

  1983              FORGET(2)
12677 @ 107048:                  LINE   1983 "regression-compile-tmp/imp918s.imp"
12678 @ 107086:                  PUSH   FORGET
12679 @ 107089:                  PUSHI  #0x00000002
12680 @ 107094:                  ASSPAR
12681 @ 107095:                  CALL  

  1984              II=DVDISP
12682 @ 107096:                  LINE   1984 "regression-compile-tmp/imp918s.imp"
12683 @ 107134:                  PUSH   II
12684 @ 107137:                  PUSH   DVDISP
12685 @ 107140:                  ASSVAL

  1985           %FINISH
  1986  !
12686 @ 107141:                  LINE   1985 "regression-compile-tmp/imp918s.imp"
12687 @ 107179:                  LOCATE L_0004

  1987           REGISTER(2)=1
12688 @ 107182:                  LINE   1987 "regression-compile-tmp/imp918s.imp"
12689 @ 107220:                  PUSH   REGISTER
12690 @ 107223:                  PUSHI  #0x00000002
12691 @ 107228:                  ACCESS
12692 @ 107229:                  PUSHI  #0x00000001
12693 @ 107234:                  ASSVAL

  1988           DUMP(0,2,II,0,2) %UNLESS II=0
12694 @ 107235:                  LINE   1988 "regression-compile-tmp/imp918s.imp"
12695 @ 107273:                  PUSH   II
12696 @ 107276:                  PUSHI  #0x00000000
12697 @ 107281:                  JUMPIF = L_0004
12698 @ 107285:                  PUSH   DUMP
12699 @ 107288:                  PUSHI  #0x00000000
12700 @ 107293:                  ASSPAR
12701 @ 107294:                  PUSHI  #0x00000002
12702 @ 107299:                  ASSPAR
12703 @ 107300:                  PUSH   II
12704 @ 107303:                  ASSPAR
12705 @ 107304:                  PUSHI  #0x00000000
12706 @ 107309:                  ASSPAR
12707 @ 107310:                  PUSHI  #0x00000002
12708 @ 107315:                  ASSPAR
12709 @ 107316:                  CALL  
12710 @ 107317:                  LOCATE L_0004

  1989           REGISTER(2)=0
12711 @ 107320:                  LINE   1989 "regression-compile-tmp/imp918s.imp"
12712 @ 107358:                  PUSH   REGISTER
12713 @ 107361:                  PUSHI  #0x00000002
12714 @ 107366:                  ACCESS
12715 @ 107367:                  PUSHI  #0x00000000
12716 @ 107372:                  ASSVAL

  1990           JJ=4096-N-MARGIN;             ! SPACE AVAILABLE
12717 @ 107373:                  LINE   1990 "regression-compile-tmp/imp918s.imp"
12718 @ 107411:                  PUSH   JJ
12719 @ 107414:                  PUSHI  #0x00001000
12720 @ 107419:                  PUSH   N
12721 @ 107422:                  SUB   
12722 @ 107423:                  PUSH   MARGIN
12723 @ 107426:                  SUB   
12724 @ 107427:                  ASSVAL

  1991           JJ=JJ-MARGIN//2 %IF RBASE=9;  ! LEAVE LARGER MARGIN AT TOP
  1992                                         ! LEVEL SINCE DECLNS THERE ARE
  1993                                         ! ONLY EXECUTED ONCE
12725 @ 107428:                  LINE   1991 "regression-compile-tmp/imp918s.imp"
12726 @ 107466:                  PUSH   RBASE
12727 @ 107469:                  PUSHI  #0x00000009
12728 @ 107474:                  JUMPIF # L_0004
12729 @ 107478:                  PUSH   JJ
12730 @ 107481:                  PUSH   JJ
12731 @ 107484:                  PUSH   MARGIN
12732 @ 107487:                  PUSHI  #0x00000002
12733 @ 107492:                  QUOT  
12734 @ 107493:                  SUB   
12735 @ 107494:                  ASSVAL
12736 @ 107495:                  LOCATE L_0004

  1994           -> RUNTIME %UNLESS FORMAT=0 %AND UNASS=0
12737 @ 107498:                  LINE   1994 "regression-compile-tmp/imp918s.imp"
12738 @ 107536:                  PUSH   FORMAT
12739 @ 107539:                  PUSHI  #0x00000000
12740 @ 107544:                  JUMPIF # L_0005
12741 @ 107548:                  PUSH   UNASS
12742 @ 107551:                  PUSHI  #0x00000000
12743 @ 107556:                  JUMPIF = L_0004
12744 @ 107560:                  LOCATE L_0005
12745 @ 107563:                  JUMP   L_0211
12746 @ 107566:                  LOCATE L_0004

  1995           -> RUNTIME %IF NN*TOTSIZE>JJ %OR L>U
12747 @ 107569:                  LINE   1995 "regression-compile-tmp/imp918s.imp"
12748 @ 107607:                  PUSH   NN
12749 @ 107610:                  PUSH   TOTSIZE
12750 @ 107613:                  MUL   
12751 @ 107614:                  PUSH   JJ
12752 @ 107617:                  JUMPIF > L_0005
12753 @ 107621:                  PUSH   L
12754 @ 107624:                  PUSH   U
12755 @ 107627:                  JUMPIF <= L_0004
12756 @ 107631:                  LOCATE L_0005
12757 @ 107634:                  JUMP   L_0211
12758 @ 107637:                  LOCATE L_0004

  1996           II=N-L*ELSIZE
12759 @ 107640:                  LINE   1996 "regression-compile-tmp/imp918s.imp"
12760 @ 107678:                  PUSH   II
12761 @ 107681:                  PUSH   N
12762 @ 107684:                  PUSH   L
12763 @ 107687:                  PUSH   ELSIZE
12764 @ 107690:                  MUL   
12765 @ 107691:                  SUB   
12766 @ 107692:                  ASSVAL

  1997           -> RUNTIME %UNLESS II>0 %AND II+(NN-1)*(TOTSIZE+16)<4000
  1998  !
  1999  ! CAN ALLOCATE ARRAYS AS STRINGS OF LOCALS. THIS SAVES TIME AT DECLARATION
  2000  ! BUT ALSO ALLOWS THE LEVEL POINTER TO BE USED TO ADDRESS
  2001  ! THE ARRAY SAVING A REGISTER ON EACH ACCESS.
  2002  !
12767 @ 107693:                  LINE   1997 "regression-compile-tmp/imp918s.imp"
12768 @ 107731:                  PUSH   II
12769 @ 107734:                  PUSHI  #0x00000000
12770 @ 107739:                  JUMPIF <= L_0005
12771 @ 107743:                  PUSH   II
12772 @ 107746:                  PUSH   NN
12773 @ 107749:                  PUSHI  #0x00000001
12774 @ 107754:                  SUB   
12775 @ 107755:                  PUSH   TOTSIZE
12776 @ 107758:                  PUSHI  #0x00000010
12777 @ 107763:                  ADD   
12778 @ 107764:                  MUL   
12779 @ 107765:                  ADD   
12780 @ 107766:                  PUSHI  #0x00000fa0
12781 @ 107771:                  JUMPIF < L_0004
12782 @ 107775:                  LOCATE L_0005
12783 @ 107778:                  JUMP   L_0211
12784 @ 107781:                  LOCATE L_0004

  2003           DUMP(0,3,ELSIZE,0,0) %UNLESS COMPILER=1
12785 @ 107784:                  LINE   2003 "regression-compile-tmp/imp918s.imp"
12786 @ 107822:                  PUSH   COMPILER
12787 @ 107825:                  PUSHI  #0x00000001
12788 @ 107830:                  JUMPIF = L_0004
12789 @ 107834:                  PUSH   DUMP
12790 @ 107837:                  PUSHI  #0x00000000
12791 @ 107842:                  ASSPAR
12792 @ 107843:                  PUSHI  #0x00000003
12793 @ 107848:                  ASSPAR
12794 @ 107849:                  PUSH   ELSIZE
12795 @ 107852:                  ASSPAR
12796 @ 107853:                  PUSHI  #0x00000000
12797 @ 107858:                  ASSPAR
12798 @ 107859:                  PUSHI  #0x00000000
12799 @ 107864:                  ASSPAR
12800 @ 107865:                  CALL  
12801 @ 107866:                  LOCATE L_0004

  2004  DECL:                                  ! MAKE DECLN - BOTH WAYS
12802 @ 107869:                  LINE   2004 "regression-compile-tmp/imp918s.imp"
12803 @ 107907:                  LABEL  L_0212

  2005           PTYPE=PTYPEP+100*DVF;         ! ARR=2 FOR VECTORS =3 FOR FORMAT
12804 @ 107910:                  LINE   2005 "regression-compile-tmp/imp918s.imp"
12805 @ 107948:                  PUSH   PTYPE
12806 @ 107951:                  PUSH   PTYPEP
12807 @ 107954:                  PUSHI  #0x00000064
12808 @ 107959:                  PUSH   DVF
12809 @ 107962:                  MUL   
12810 @ 107963:                  ADD   
12811 @ 107964:                  ASSVAL

  2006           J=ND
12812 @ 107965:                  LINE   2006 "regression-compile-tmp/imp918s.imp"
12813 @ 108003:                  PUSH   J
12814 @ 108006:                  PUSH   ND
12815 @ 108009:                  ASSVAL

  2007           %CYCLE JJJ=1,1,A(PP+1);       ! DOWN NAMELIST
12816 @ 108010:                  LINE   2007 "regression-compile-tmp/imp918s.imp"
12817 @ 108048:                  PUSH   JJJ
12818 @ 108051:                  PUSHI  #0x00000001
12819 @ 108056:                  PUSH   A
12820 @ 108059:                  PUSH   PP
12821 @ 108062:                  PUSHI  #0x00000001
12822 @ 108067:                  ADD   
12823 @ 108068:                  ACCESS
12824 @ 108069:                  PUSHI  #0x00000001
12825 @ 108074:                  FOR    L_0003

  2008              %IF DVF#0 %THEN %START;     ! ARRAY IS STRING OF LOCALS
12826 @ 108077:                  LINE   2008 "regression-compile-tmp/imp918s.imp"
12827 @ 108115:                  PUSH   DVF
12828 @ 108118:                  PUSHI  #0x00000000
12829 @ 108123:                  JUMPIF = L_0007

  2009                 N=(N+7)&(-8);           ! ARRAYS START ON D-W BNDARY
12830 @ 108127:                  LINE   2009 "regression-compile-tmp/imp918s.imp"
12831 @ 108165:                  PUSH   N
12832 @ 108168:                  PUSH   N
12833 @ 108171:                  PUSHI  #0x00000007
12834 @ 108176:                  ADD   
12835 @ 108177:                  PUSHI  #0x00000008
12836 @ 108182:                  NEGATE
12837 @ 108183:                  AND   
12838 @ 108184:                  ASSVAL

  2010                 D1=N+16
12839 @ 108185:                  LINE   2010 "regression-compile-tmp/imp918s.imp"
12840 @ 108223:                  PUSH   D1
12841 @ 108226:                  PUSH   N
12842 @ 108229:                  PUSHI  #0x00000010
12843 @ 108234:                  ADD   
12844 @ 108235:                  ASSVAL

  2011                 D0=D1-L*ELSIZE; SNDISP=D0
12845 @ 108236:                  LINE   2011 "regression-compile-tmp/imp918s.imp"
12846 @ 108274:                  PUSH   D0
12847 @ 108277:                  PUSH   D1
12848 @ 108280:                  PUSH   L
12849 @ 108283:                  PUSH   ELSIZE
12850 @ 108286:                  MUL   
12851 @ 108287:                  SUB   
12852 @ 108288:                  ASSVAL
12853 @ 108289:                  LINE   2011 "regression-compile-tmp/imp918s.imp"
12854 @ 108327:                  PUSH   SNDISP
12855 @ 108330:                  PUSH   D0
12856 @ 108333:                  ASSVAL

  2012                 PRX(X'41',0,0,RBASE,D0);! LA 0,ADDR(A(0))
12857 @ 108334:                  LINE   2012 "regression-compile-tmp/imp918s.imp"
12858 @ 108372:                  PUSH   PRX
12859 @ 108375:                  PUSHI  #0x00000041
12860 @ 108380:                  ASSPAR
12861 @ 108381:                  PUSHI  #0x00000000
12862 @ 108386:                  ASSPAR
12863 @ 108387:                  PUSHI  #0x00000000
12864 @ 108392:                  ASSPAR
12865 @ 108393:                  PUSH   RBASE
12866 @ 108396:                  ASSPAR
12867 @ 108397:                  PUSH   D0
12868 @ 108400:                  ASSPAR
12869 @ 108401:                  CALL  

  2013                 PRX(X'41',1,0,RBASE,D1);! LA 1,ADDR(A(L.B))
12870 @ 108402:                  LINE   2013 "regression-compile-tmp/imp918s.imp"
12871 @ 108440:                  PUSH   PRX
12872 @ 108443:                  PUSHI  #0x00000041
12873 @ 108448:                  ASSPAR
12874 @ 108449:                  PUSHI  #0x00000001
12875 @ 108454:                  ASSPAR
12876 @ 108455:                  PUSHI  #0x00000000
12877 @ 108460:                  ASSPAR
12878 @ 108461:                  PUSH   RBASE
12879 @ 108464:                  ASSPAR
12880 @ 108465:                  PUSH   D1
12881 @ 108468:                  ASSPAR
12882 @ 108469:                  CALL  

  2014                 JJ=16+TOTSIZE
12883 @ 108470:                  LINE   2014 "regression-compile-tmp/imp918s.imp"
12884 @ 108508:                  PUSH   JJ
12885 @ 108511:                  PUSHI  #0x00000010
12886 @ 108516:                  PUSH   TOTSIZE
12887 @ 108519:                  ADD   
12888 @ 108520:                  ASSVAL

  2015                 FORGETM(3)
12889 @ 108521:                  LINE   2015 "regression-compile-tmp/imp918s.imp"
12890 @ 108559:                  PUSH   FORGETM
12891 @ 108562:                  PUSHI  #0x00000003
12892 @ 108567:                  ASSPAR
12893 @ 108568:                  CALL  

  2016              %FINISH %ELSE %START;     ! LONGWAY PERM MUST DECLARE
12894 @ 108569:                  LINE   2016 "regression-compile-tmp/imp918s.imp"
12895 @ 108607:                  GOTO   L_0006
12896 @ 108610:                  LOCATE L_0007

  2017                 PPJ(13); FORGET(4)
12897 @ 108613:                  LINE   2017 "regression-compile-tmp/imp918s.imp"
12898 @ 108651:                  PUSH   PPJ
12899 @ 108654:                  PUSHI  #0x0000000d
12900 @ 108659:                  ASSPAR
12901 @ 108660:                  CALL  
12902 @ 108661:                  LINE   2017 "regression-compile-tmp/imp918s.imp"
12903 @ 108699:                  PUSH   FORGET
12904 @ 108702:                  PUSHI  #0x00000004
12905 @ 108707:                  ASSPAR
12906 @ 108708:                  CALL  

  2018                 JJ=16
12907 @ 108709:                  LINE   2018 "regression-compile-tmp/imp918s.imp"
12908 @ 108747:                  PUSH   JJ
12909 @ 108750:                  PUSHI  #0x00000010
12910 @ 108755:                  ASSVAL

  2019                 SNDISP=0
12911 @ 108756:                  LINE   2019 "regression-compile-tmp/imp918s.imp"
12912 @ 108794:                  PUSH   SNDISP
12913 @ 108797:                  PUSHI  #0x00000000
12914 @ 108802:                  ASSVAL

  2020              %FINISH
  2021  !
12915 @ 108803:                  LINE   2020 "regression-compile-tmp/imp918s.imp"
12916 @ 108841:                  LOCATE L_0006

  2022              ACC=ELSIZE;                ! RESET ACC AFTER DV CMPLD
12917 @ 108844:                  LINE   2022 "regression-compile-tmp/imp918s.imp"
12918 @ 108882:                  PUSH   ACC
12919 @ 108885:                  PUSH   ELSIZE
12920 @ 108888:                  ASSVAL

  2023              KFORM=FINF;                 ! FORMAT INFORMATION
12921 @ 108889:                  LINE   2023 "regression-compile-tmp/imp918s.imp"
12922 @ 108927:                  PUSH   KFORM
12923 @ 108930:                  PUSH   FINF
12924 @ 108933:                  ASSVAL

  2024              K=A(JJJ+PP+1); TEST NST
12925 @ 108934:                  LINE   2024 "regression-compile-tmp/imp918s.imp"
12926 @ 108972:                  PUSH   K
12927 @ 108975:                  PUSH   A
12928 @ 108978:                  PUSH   JJJ
12929 @ 108981:                  PUSH   PP
12930 @ 108984:                  ADD   
12931 @ 108985:                  PUSHI  #0x00000001
12932 @ 108990:                  ADD   
12933 @ 108991:                  ACCESS
12934 @ 108992:                  ASSVAL
12935 @ 108993:                  LINE   2024 "regression-compile-tmp/imp918s.imp"
12936 @ 109031:                  PUSH   TESTNST
12937 @ 109034:                  CALL  

  2025              STORE TAG(K,N)
12938 @ 109035:                  LINE   2025 "regression-compile-tmp/imp918s.imp"
12939 @ 109073:                  PUSH   STORETAG
12940 @ 109076:                  PUSH   K
12941 @ 109079:                  ASSPAR
12942 @ 109080:                  PUSH   N
12943 @ 109083:                  ASSPAR
12944 @ 109084:                  CALL  

  2026              REGISTER(1)=1;             ! MUST LOCK REGISTERS CONTAINING
12945 @ 109085:                  LINE   2026 "regression-compile-tmp/imp918s.imp"
12946 @ 109123:                  PUSH   REGISTER
12947 @ 109126:                  PUSHI  #0x00000001
12948 @ 109131:                  ACCESS
12949 @ 109132:                  PUSHI  #0x00000001
12950 @ 109137:                  ASSVAL

  2027              REGISTER(2)=1;             ! ARRAYHEAD IN CASE 4K MULTIPLE
12951 @ 109138:                  LINE   2027 "regression-compile-tmp/imp918s.imp"
12952 @ 109176:                  PUSH   REGISTER
12953 @ 109179:                  PUSHI  #0x00000002
12954 @ 109184:                  ACCESS
12955 @ 109185:                  PUSHI  #0x00000001
12956 @ 109190:                  ASSVAL

  2028              REGISTER(3)=1;             ! NEEDED TO STORE ARRAYHEAD
12957 @ 109191:                  LINE   2028 "regression-compile-tmp/imp918s.imp"
12958 @ 109229:                  PUSH   REGISTER
12959 @ 109232:                  PUSHI  #0x00000003
12960 @ 109237:                  ACCESS
12961 @ 109238:                  PUSHI  #0x00000001
12962 @ 109243:                  ASSVAL

  2029              DUMPM(X'90',0,3,RBASE,N)
12963 @ 109244:                  LINE   2029 "regression-compile-tmp/imp918s.imp"
12964 @ 109282:                  PUSH   DUMPM
12965 @ 109285:                  PUSHI  #0x00000090
12966 @ 109290:                  ASSPAR
12967 @ 109291:                  PUSHI  #0x00000000
12968 @ 109296:                  ASSPAR
12969 @ 109297:                  PUSHI  #0x00000003
12970 @ 109302:                  ASSPAR
12971 @ 109303:                  PUSH   RBASE
12972 @ 109306:                  ASSPAR
12973 @ 109307:                  PUSH   N
12974 @ 109310:                  ASSPAR
12975 @ 109311:                  CALL  

  2030              %CYCLE II=0,1,3
12976 @ 109312:                  LINE   2030 "regression-compile-tmp/imp918s.imp"
12977 @ 109350:                  PUSH   II
12978 @ 109353:                  PUSHI  #0x00000001
12979 @ 109358:                  PUSHI  #0x00000003
12980 @ 109363:                  PUSHI  #0x00000000
12981 @ 109368:                  FOR    L_0006

  2031                 FREE AND FORGET(II);    ! NOW FORGET REGISTERS
12982 @ 109371:                  LINE   2031 "regression-compile-tmp/imp918s.imp"
12983 @ 109409:                  PUSH   FREEANDFORGET
12984 @ 109412:                  PUSH   II
12985 @ 109415:                  ASSPAR
12986 @ 109416:                  CALL  

  2032              %REPEAT
12987 @ 109417:                  LINE   2032 "regression-compile-tmp/imp918s.imp"
12988 @ 109455:                  REPEAT L_0006
12989 @ 109458:                  LOCATE L_0007

  2033              N=N+JJ
12990 @ 109461:                  LINE   2033 "regression-compile-tmp/imp918s.imp"
12991 @ 109499:                  PUSH   N
12992 @ 109502:                  PUSH   N
12993 @ 109505:                  PUSH   JJ
12994 @ 109508:                  ADD   
12995 @ 109509:                  ASSVAL

  2034           %REPEAT
12996 @ 109510:                  LINE   2034 "regression-compile-tmp/imp918s.imp"
12997 @ 109548:                  REPEAT L_0003
12998 @ 109551:                  LOCATE L_0004

  2035           %IF CDV#0 %THEN SET USE(2,17,DVDISP)
12999 @ 109554:                  LINE   2035 "regression-compile-tmp/imp918s.imp"
13000 @ 109592:                  PUSH   CDV
13001 @ 109595:                  PUSHI  #0x00000000
13002 @ 109600:                  JUMPIF = L_0004
13003 @ 109604:                  PUSH   SETUSE
13004 @ 109607:                  PUSHI  #0x00000002
13005 @ 109612:                  ASSPAR
13006 @ 109613:                  PUSHI  #0x00000011
13007 @ 109618:                  ASSPAR
13008 @ 109619:                  PUSH   DVDISP
13009 @ 109622:                  ASSPAR
13010 @ 109623:                  CALL  
13011 @ 109624:                  LOCATE L_0004

  2036           P=P+1;                        ! PAST REST OF ARRAYLIST
13012 @ 109627:                  LINE   2036 "regression-compile-tmp/imp918s.imp"
13013 @ 109665:                  PUSH   P
13014 @ 109668:                  PUSH   P
13015 @ 109671:                  PUSHI  #0x00000001
13016 @ 109676:                  ADD   
13017 @ 109677:                  ASSVAL

  2037           N=(N+3)&(-4)
13018 @ 109678:                  LINE   2037 "regression-compile-tmp/imp918s.imp"
13019 @ 109716:                  PUSH   N
13020 @ 109719:                  PUSH   N
13021 @ 109722:                  PUSHI  #0x00000003
13022 @ 109727:                  ADD   
13023 @ 109728:                  PUSHI  #0x00000004
13024 @ 109733:                  NEGATE
13025 @ 109734:                  AND   
13026 @ 109735:                  ASSVAL

  2038           %IF A(P-1)=1 %THEN -> START
13027 @ 109736:                  LINE   2038 "regression-compile-tmp/imp918s.imp"
13028 @ 109774:                  PUSH   A
13029 @ 109777:                  PUSH   P
13030 @ 109780:                  PUSHI  #0x00000001
13031 @ 109785:                  SUB   
13032 @ 109786:                  ACCESS
13033 @ 109787:                  PUSHI  #0x00000001
13034 @ 109792:                  JUMPIF # L_0004
13035 @ 109796:                  JUMP   L_020f
13036 @ 109799:                  LOCATE L_0004

  2039           %END
13037 @ 109802:                  LINE   2039 "regression-compile-tmp/imp918s.imp"
13038 @ 109840:               END    _lev0id0_CSS_DECLAREARRAYS {lev=3 --> 2}

  2040  SW(8):                                 ! %END
13039 @ 109841:               LINE   2040 "regression-compile-tmp/imp918s.imp"
13040 @ 109879:               PUSHI  #0x00000008
13041 @ 109884:               SLABEL 445

  2041           %BEGIN
  2042           {%SHORTROUTINE}
13042 @ 109887:               LINE   2041 "regression-compile-tmp/imp918s.imp"
13043 @ 109925:               BEGIN  _lev0id0_CSS_lev2id9 {lev=2 --> 3}

  2043           %SWITCH S(1:5)
13044 @ 109926:                  LINE   2043 "regression-compile-tmp/imp918s.imp"
13045 @ 109964:                  PUSHI  #0x00000001
13046 @ 109969:                  PUSHI  #0x00000005
13047 @ 109974:                  BOUNDS
13048 @ 109975:                  DEF    S p1=V_01fb a/tf=6 b/format=0 c/ostate=0  type=0 (<type:0>) form=6 (switch) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  2044           -> S(A(P+1))
13049 @ 109988:                  LINE   2044 "regression-compile-tmp/imp918s.imp"
13050 @ 110026:                  PUSH   A
13051 @ 110029:                  PUSH   P
13052 @ 110032:                  PUSHI  #0x00000001
13053 @ 110037:                  ADD   
13054 @ 110038:                  ACCESS
13055 @ 110039:                  SJUMP  507

  2045  S(1):                                  ! ENDOFPROGRAM
13056 @ 110042:                  LINE   2045 "regression-compile-tmp/imp918s.imp"
13057 @ 110080:                  PUSHI  #0x00000001
13058 @ 110085:                  SLABEL 507

  2046  S(2):                                  ! ENDOFFILE
13059 @ 110088:                  LINE   2046 "regression-compile-tmp/imp918s.imp"
13060 @ 110126:                  PUSHI  #0x00000002
13061 @ 110131:                  SLABEL 507

  2047           %IF CPRMODE=0 %THEN CPRMODE=2
13062 @ 110134:                  LINE   2047 "regression-compile-tmp/imp918s.imp"
13063 @ 110172:                  PUSH   CPRMODE
13064 @ 110175:                  PUSHI  #0x00000000
13065 @ 110180:                  JUMPIF # L_0004
13066 @ 110184:                  PUSH   CPRMODE
13067 @ 110187:                  PUSHI  #0x00000002
13068 @ 110192:                  ASSVAL
13069 @ 110193:                  LOCATE L_0004

  2048           FAULT(15,0) %UNLESS LEVEL+CPRMODE=3
13070 @ 110196:                  LINE   2048 "regression-compile-tmp/imp918s.imp"
13071 @ 110234:                  PUSH   LEVEL
13072 @ 110237:                  PUSH   CPRMODE
13073 @ 110240:                  ADD   
13074 @ 110241:                  PUSHI  #0x00000003
13075 @ 110246:                  JUMPIF = L_0004
13076 @ 110250:                  PUSH   FAULT
13077 @ 110253:                  PUSHI  #0x0000000f
13078 @ 110258:                  ASSPAR
13079 @ 110259:                  PUSHI  #0x00000000
13080 @ 110264:                  ASSPAR
13081 @ 110265:                  CALL  
13082 @ 110266:                  LOCATE L_0004

  2049           FAULT(56,0) %UNLESS A(P+1)=CPRMODE
13083 @ 110269:                  LINE   2049 "regression-compile-tmp/imp918s.imp"
13084 @ 110307:                  PUSH   A
13085 @ 110310:                  PUSH   P
13086 @ 110313:                  PUSHI  #0x00000001
13087 @ 110318:                  ADD   
13088 @ 110319:                  ACCESS
13089 @ 110320:                  PUSH   CPRMODE
13090 @ 110323:                  JUMPIF = L_0004
13091 @ 110327:                  PUSH   FAULT
13092 @ 110330:                  PUSHI  #0x00000038
13093 @ 110335:                  ASSPAR
13094 @ 110336:                  PUSHI  #0x00000000
13095 @ 110341:                  ASSPAR
13096 @ 110342:                  CALL  
13097 @ 110343:                  LOCATE L_0004

  2050           CEND(CPRMODE)
13098 @ 110346:                  LINE   2050 "regression-compile-tmp/imp918s.imp"
13099 @ 110384:                  PUSH   CEND
13100 @ 110387:                  PUSH   CPRMODE
13101 @ 110390:                  ASSPAR
13102 @ 110391:                  CALL  

  2051           LOAD DATA; {%STOP - load data does a %stop!}
13103 @ 110392:                  LINE   2051 "regression-compile-tmp/imp918s.imp"
13104 @ 110430:                  PUSH   LOADDATA
13105 @ 110433:                  CALL  

  2052  S(3):                                  ! ENDOFLIST
13106 @ 110434:                  LINE   2052 "regression-compile-tmp/imp918s.imp"
13107 @ 110472:                  PUSHI  #0x00000003
13108 @ 110477:                  SLABEL 507

  2053           LIST=0;
13109 @ 110480:                  LINE   2053 "regression-compile-tmp/imp918s.imp"
13110 @ 110518:                  PUSH   LIST
13111 @ 110521:                  PUSHI  #0x00000000
13112 @ 110526:                  ASSVAL

  2054  S(4):                                  ! ENDOFMCODE
13113 @ 110527:                  LINE   2054 "regression-compile-tmp/imp918s.imp"
13114 @ 110565:                  PUSHI  #0x00000004
13115 @ 110570:                  SLABEL 507

  2055           ->Label1
13116 @ 110573:                  LINE   2055 "regression-compile-tmp/imp918s.imp"
13117 @ 110611:                  JUMP   L_01fc

  2056  S(5):                                  ! END
13118 @ 110614:                  LINE   2056 "regression-compile-tmp/imp918s.imp"
13119 @ 110652:                  PUSHI  #0x00000005
13120 @ 110657:                  SLABEL 507

  2057           CEND(FLAG)
13121 @ 110660:                  LINE   2057 "regression-compile-tmp/imp918s.imp"
13122 @ 110698:                  PUSH   CEND
13123 @ 110701:                  PUSH   FLAG
13124 @ 110704:                  ASSPAR
13125 @ 110705:                  CALL  

  2058  Label1:       %END; ->Label1
  2059  !
13126 @ 110706:                  LINE   2058 "regression-compile-tmp/imp918s.imp"
13127 @ 110744:                  LABEL  L_01fc
13128 @ 110747:                  LINE   2058 "regression-compile-tmp/imp918s.imp"
13129 @ 110785:               END    _lev0id0_CSS_lev2id9 {lev=3 --> 2}
13130 @ 110786:               LINE   2058 "regression-compile-tmp/imp918s.imp"
13131 @ 110824:               JUMP   L_01f4

  2060  SW(9):   P=P+1; MARKER1=A(P)+P;        ! (SEX)(RT)(SPEC')(NAME)(FPP)
13132 @ 110827:               LINE   2060 "regression-compile-tmp/imp918s.imp"
13133 @ 110865:               PUSHI  #0x00000009
13134 @ 110870:               SLABEL 445
13135 @ 110873:               LINE   2060 "regression-compile-tmp/imp918s.imp"
13136 @ 110911:               PUSH   P
13137 @ 110914:               PUSH   P
13138 @ 110917:               PUSHI  #0x00000001
13139 @ 110922:               ADD   
13140 @ 110923:               ASSVAL
13141 @ 110924:               LINE   2060 "regression-compile-tmp/imp918s.imp"
13142 @ 110962:               PUSH   MARKER1
13143 @ 110965:               PUSH   A
13144 @ 110968:               PUSH   P
13145 @ 110971:               ACCESS
13146 @ 110972:               PUSH   P
13147 @ 110975:               ADD   
13148 @ 110976:               ASSVAL

  2061  Label900:     Q=P; KKK=A(MARKER1+1);        ! KKK ON NAME
13149 @ 110977:               LINE   2061 "regression-compile-tmp/imp918s.imp"
13150 @ 111015:               LABEL  L_01fb
13151 @ 111018:               LINE   2061 "regression-compile-tmp/imp918s.imp"
13152 @ 111056:               PUSH   Q
13153 @ 111059:               PUSH   P
13154 @ 111062:               ASSVAL
13155 @ 111063:               LINE   2061 "regression-compile-tmp/imp918s.imp"
13156 @ 111101:               PUSH   KKK
13157 @ 111104:               PUSH   A
13158 @ 111107:               PUSH   MARKER1
13159 @ 111110:               PUSHI  #0x00000001
13160 @ 111115:               ADD   
13161 @ 111116:               ACCESS
13162 @ 111117:               ASSVAL

  2062           EXTRN=A(P+1)
13163 @ 111118:               LINE   2062 "regression-compile-tmp/imp918s.imp"
13164 @ 111156:               PUSH   EXTRN
13165 @ 111159:               PUSH   A
13166 @ 111162:               PUSH   P
13167 @ 111165:               PUSHI  #0x00000001
13168 @ 111170:               ADD   
13169 @ 111171:               ACCESS
13170 @ 111172:               ASSVAL

  2063           %IF A(MARKER1)=1 %THEN %START;! P<%SPEC'>='%SPEC'
13171 @ 111173:               LINE   2063 "regression-compile-tmp/imp918s.imp"
13172 @ 111211:               PUSH   A
13173 @ 111214:               PUSH   MARKER1
13174 @ 111217:               ACCESS
13175 @ 111218:               PUSHI  #0x00000001
13176 @ 111223:               JUMPIF # L_0004

  2064              P=P+1;  CRSPEC(1-EXTRN>>2);! 0 FOR ROUTINESPEC
  2065                                         ! 1 FOR EXTERNAL (ETC) SPEC
13177 @ 111227:               LINE   2064 "regression-compile-tmp/imp918s.imp"
13178 @ 111265:               PUSH   P
13179 @ 111268:               PUSH   P
13180 @ 111271:               PUSHI  #0x00000001
13181 @ 111276:               ADD   
13182 @ 111277:               ASSVAL
13183 @ 111278:               LINE   2064 "regression-compile-tmp/imp918s.imp"
13184 @ 111316:               PUSH   CRSPEC
13185 @ 111319:               PUSHI  #0x00000001
13186 @ 111324:               PUSH   EXTRN
13187 @ 111327:               PUSHI  #0x00000002
13188 @ 111332:               RSH   
13189 @ 111333:               SUB   
13190 @ 111334:               ASSPAR
13191 @ 111335:               CALL  

  2066              ->Label1
13192 @ 111336:               LINE   2066 "regression-compile-tmp/imp918s.imp"
13193 @ 111374:               JUMP   L_01f4

  2067           %FINISH
13194 @ 111377:               LINE   2067 "regression-compile-tmp/imp918s.imp"
13195 @ 111415:               LOCATE L_0004

  2068           KK=KKK;                       ! ROUTINE HEADING NOT SPEC
13196 @ 111418:               LINE   2068 "regression-compile-tmp/imp918s.imp"
13197 @ 111456:               PUSH   KK
13198 @ 111459:               PUSH   KKK
13199 @ 111462:               ASSVAL

  2069           CNOP(0,4)
13200 @ 111463:               LINE   2069 "regression-compile-tmp/imp918s.imp"
13201 @ 111501:               PUSH   CNOP
13202 @ 111504:               PUSHI  #0x00000000
13203 @ 111509:               ASSPAR
13204 @ 111510:               PUSHI  #0x00000004
13205 @ 111515:               ASSPAR
13206 @ 111516:               CALL  

  2070           COPY TAG(KKK)
13207 @ 111517:               LINE   2070 "regression-compile-tmp/imp918s.imp"
13208 @ 111555:               PUSH   COPYTAG
13209 @ 111558:               PUSH   KKK
13210 @ 111561:               ASSPAR
13211 @ 111562:               CALL  

  2071           ->Label939 %IF OLDI#LEVEL;        ! NAME DECLARED AT OUTER LEVEL
13212 @ 111563:               LINE   2071 "regression-compile-tmp/imp918s.imp"
13213 @ 111601:               PUSH   OLDI
13214 @ 111604:               PUSH   LEVEL
13215 @ 111607:               JUMPIF = L_0004
13216 @ 111611:               JUMP   L_01fc
13217 @ 111614:               LOCATE L_0004

  2072           %IF CPRMODE=0 %THEN %START;  ! NO BEGIN OR ROUTINE STMNT YET?
13218 @ 111617:               LINE   2072 "regression-compile-tmp/imp918s.imp"
13219 @ 111655:               PUSH   CPRMODE
13220 @ 111658:               PUSHI  #0x00000000
13221 @ 111663:               JUMPIF # L_0004

  2073              CA=0; CABUF=0
13222 @ 111667:               LINE   2073 "regression-compile-tmp/imp918s.imp"
13223 @ 111705:               PUSH   CA
13224 @ 111708:               PUSHI  #0x00000000
13225 @ 111713:               ASSVAL
13226 @ 111714:               LINE   2073 "regression-compile-tmp/imp918s.imp"
13227 @ 111752:               PUSH   CABUF
13228 @ 111755:               PUSHI  #0x00000000
13229 @ 111760:               ASSVAL

  2074              PPCURR=0;  CPRMODE=2;     ! FLAG AS FILE OF ROUTINES
13230 @ 111761:               LINE   2074 "regression-compile-tmp/imp918s.imp"
13231 @ 111799:               PUSH   PPCURR
13232 @ 111802:               PUSHI  #0x00000000
13233 @ 111807:               ASSVAL
13234 @ 111808:               LINE   2074 "regression-compile-tmp/imp918s.imp"
13235 @ 111846:               PUSH   CPRMODE
13236 @ 111849:               PUSHI  #0x00000002
13237 @ 111854:               ASSVAL

  2075           %FINISH
  2076  !
13238 @ 111855:               LINE   2075 "regression-compile-tmp/imp918s.imp"
13239 @ 111893:               LOCATE L_0004

  2077           %IF EXTRN#4 %THEN %START;   ! SYSTEM EXTERNAL DYNAMIC
13240 @ 111896:               LINE   2077 "regression-compile-tmp/imp918s.imp"
13241 @ 111934:               PUSH   EXTRN
13242 @ 111937:               PUSHI  #0x00000004
13243 @ 111942:               JUMPIF = L_0004

  2078              %IF (CPRMODE=2 %AND LEVEL=1) %OR COMPILER=1=RLEVEL %START
13244 @ 111946:               LINE   2078 "regression-compile-tmp/imp918s.imp"
13245 @ 111984:               PUSH   CPRMODE
13246 @ 111987:               PUSHI  #0x00000002
13247 @ 111992:               JUMPIF # L_0009
13248 @ 111996:               PUSH   LEVEL
13249 @ 111999:               PUSHI  #0x00000001
13250 @ 112004:               JUMPIF = L_0008
13251 @ 112008:               LOCATE L_0009
13252 @ 112011:               PUSH   COMPILER
13253 @ 112014:               PUSHI  #0x00000001
13254 @ 112019:               JUMPIFD # L_0007
13255 @ 112023:               PUSH   RLEVEL
13256 @ 112026:               JUMPIF # L_0007
13257 @ 112030:               LOCATE L_0008

  2079                 %IF EXTRN=3 %THEN EXTRN=2
13258 @ 112033:               LINE   2079 "regression-compile-tmp/imp918s.imp"
13259 @ 112071:               PUSH   EXTRN
13260 @ 112074:               PUSHI  #0x00000003
13261 @ 112079:               JUMPIF # L_000a
13262 @ 112083:               PUSH   EXTRN
13263 @ 112086:               PUSHI  #0x00000002
13264 @ 112091:               ASSVAL
13265 @ 112092:               LOCATE L_000a

  2080                 DEFINE EP(EXTRN,KKK,CA,0)
13266 @ 112095:               LINE   2080 "regression-compile-tmp/imp918s.imp"
13267 @ 112133:               PUSH   DEFINEEP
13268 @ 112136:               PUSH   EXTRN
13269 @ 112139:               ASSPAR
13270 @ 112140:               PUSH   KKK
13271 @ 112143:               ASSPAR
13272 @ 112144:               PUSH   CA
13273 @ 112147:               ASSPAR
13274 @ 112148:               PUSHI  #0x00000000
13275 @ 112153:               ASSPAR
13276 @ 112154:               CALL  

  2081                 SET PERMBASE
13277 @ 112155:               LINE   2081 "regression-compile-tmp/imp918s.imp"
13278 @ 112193:               PUSH   SETPERMBASE
13279 @ 112196:               CALL  

  2082              %FINISH %ELSE %START;    ! EXTERNALS IN PRGM OR WRNG LEVEL
13280 @ 112197:               LINE   2082 "regression-compile-tmp/imp918s.imp"
13281 @ 112235:               GOTO   L_0006
13282 @ 112238:               LOCATE L_0007

  2083                 FAULT(55,0); EXTRN=4
13283 @ 112241:               LINE   2083 "regression-compile-tmp/imp918s.imp"
13284 @ 112279:               PUSH   FAULT
13285 @ 112282:               PUSHI  #0x00000037
13286 @ 112287:               ASSPAR
13287 @ 112288:               PUSHI  #0x00000000
13288 @ 112293:               ASSPAR
13289 @ 112294:               CALL  
13290 @ 112295:               LINE   2083 "regression-compile-tmp/imp918s.imp"
13291 @ 112333:               PUSH   EXTRN
13292 @ 112336:               PUSHI  #0x00000004
13293 @ 112341:               ASSVAL

  2084              %FINISH
13294 @ 112342:               LINE   2084 "regression-compile-tmp/imp918s.imp"
13295 @ 112380:               LOCATE L_0006

  2085           %FINISH
13296 @ 112383:               LINE   2085 "regression-compile-tmp/imp918s.imp"
13297 @ 112421:               LOCATE L_0004

  2086           %IF A(P+2)=1 %THEN KKK=10000 %ELSE %START
13298 @ 112424:               LINE   2086 "regression-compile-tmp/imp918s.imp"
13299 @ 112462:               PUSH   A
13300 @ 112465:               PUSH   P
13301 @ 112468:               PUSHI  #0x00000002
13302 @ 112473:               ADD   
13303 @ 112474:               ACCESS
13304 @ 112475:               PUSHI  #0x00000001
13305 @ 112480:               JUMPIF # L_0004
13306 @ 112484:               PUSH   KKK
13307 @ 112487:               PUSHI  #0x00002710
13308 @ 112492:               ASSVAL
13309 @ 112493:               GOTO   L_0003
13310 @ 112496:               LOCATE L_0004

  2087              ROUT=1; P=P+3;           ! FIGURE OUT PTYPE FOR FNS&MAPS
13311 @ 112499:               LINE   2087 "regression-compile-tmp/imp918s.imp"
13312 @ 112537:               PUSH   ROUT
13313 @ 112540:               PUSHI  #0x00000001
13314 @ 112545:               ASSVAL
13315 @ 112546:               LINE   2087 "regression-compile-tmp/imp918s.imp"
13316 @ 112584:               PUSH   P
13317 @ 112587:               PUSH   P
13318 @ 112590:               PUSHI  #0x00000003
13319 @ 112595:               ADD   
13320 @ 112596:               ASSVAL

  2088              CLT; ARR=0
13321 @ 112597:               LINE   2088 "regression-compile-tmp/imp918s.imp"
13322 @ 112635:               PUSH   CLT
13323 @ 112638:               CALL  
13324 @ 112639:               LINE   2088 "regression-compile-tmp/imp918s.imp"
13325 @ 112677:               PUSH   ARR
13326 @ 112680:               PUSHI  #0x00000000
13327 @ 112685:               ASSVAL

  2089              NAM=(A(P)-1)<<1;         ! SET NAME ARRAY BIT FOR MAPS
13328 @ 112686:               LINE   2089 "regression-compile-tmp/imp918s.imp"
13329 @ 112724:               PUSH   NAM
13330 @ 112727:               PUSH   A
13331 @ 112730:               PUSH   P
13332 @ 112733:               ACCESS
13333 @ 112734:               PUSHI  #0x00000001
13334 @ 112739:               SUB   
13335 @ 112740:               PUSHI  #0x00000001
13336 @ 112745:               LSH   
13337 @ 112746:               ASSVAL

  2090              PACK(KKK);              ! AND STORE PTYPE IN KKK
13338 @ 112747:               LINE   2090 "regression-compile-tmp/imp918s.imp"
13339 @ 112785:               PUSH   PACK
13340 @ 112788:               PUSH   KKK
13341 @ 112791:               ASSPAR
13342 @ 112792:               CALL  

  2091           %FINISH
13343 @ 112793:               LINE   2091 "regression-compile-tmp/imp918s.imp"
13344 @ 112831:               LOCATE L_0003

  2092           ->Label940 %IF J=15 %AND PTYPE=KKK
13345 @ 112834:               LINE   2092 "regression-compile-tmp/imp918s.imp"
13346 @ 112872:               PUSH   J
13347 @ 112875:               PUSHI  #0x0000000f
13348 @ 112880:               JUMPIF # L_0004
13349 @ 112884:               PUSH   PTYPE
13350 @ 112887:               PUSH   KKK
13351 @ 112890:               JUMPIF # L_0004
13352 @ 112894:               JUMP   L_01fd
13353 @ 112897:               LOCATE L_0004

  2093  Label939:     P=Q+1; CRSPEC(0); P=Q; ->Label900
13354 @ 112900:               LINE   2093 "regression-compile-tmp/imp918s.imp"
13355 @ 112938:               LABEL  L_01fc
13356 @ 112941:               LINE   2093 "regression-compile-tmp/imp918s.imp"
13357 @ 112979:               PUSH   P
13358 @ 112982:               PUSH   Q
13359 @ 112985:               PUSHI  #0x00000001
13360 @ 112990:               ADD   
13361 @ 112991:               ASSVAL
13362 @ 112992:               LINE   2093 "regression-compile-tmp/imp918s.imp"
13363 @ 113030:               PUSH   CRSPEC
13364 @ 113033:               PUSHI  #0x00000000
13365 @ 113038:               ASSPAR
13366 @ 113039:               CALL  
13367 @ 113040:               LINE   2093 "regression-compile-tmp/imp918s.imp"
13368 @ 113078:               PUSH   P
13369 @ 113081:               PUSH   Q
13370 @ 113084:               ASSVAL
13371 @ 113085:               LINE   2093 "regression-compile-tmp/imp918s.imp"
13372 @ 113123:               JUMP   L_01fb

  2094  Label940:     %BEGIN
  2095           {%SHORTROUTINE}
13373 @ 113126:               LINE   2094 "regression-compile-tmp/imp918s.imp"
13374 @ 113164:               LABEL  L_01fd
13375 @ 113167:               LINE   2094 "regression-compile-tmp/imp918s.imp"
13376 @ 113205:               BEGIN  _lev0id0_CSS_lev2id10 {lev=2 --> 3}

  2096           %INTEGER PTR,PTYPEP
13377 @ 113206:                  LINE   2096 "regression-compile-tmp/imp918s.imp"
13378 @ 113244:                  DEF    PTR p1=V_01fe 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
13379 @ 113259:                  DEF    PTYPEP p1=V_01ff 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

  2097           J=0; REPLACE TAG(KK);!  BODY GIVEN SO UPDATE TAGS INFO
13380 @ 113277:                  LINE   2097 "regression-compile-tmp/imp918s.imp"
13381 @ 113315:                  PUSH   J
13382 @ 113318:                  PUSHI  #0x00000000
13383 @ 113323:                  ASSVAL
13384 @ 113324:                  LINE   2097 "regression-compile-tmp/imp918s.imp"
13385 @ 113362:                  PUSH   REPLACETAG
13386 @ 113365:                  PUSH   KK
13387 @ 113368:                  ASSPAR
13388 @ 113369:                  CALL  

  2098           JJ=K; PLABEL=PLABEL-1
13389 @ 113370:                  LINE   2098 "regression-compile-tmp/imp918s.imp"
13390 @ 113408:                  PUSH   JJ
13391 @ 113411:                  PUSH   K
13392 @ 113414:                  ASSVAL
13393 @ 113415:                  LINE   2098 "regression-compile-tmp/imp918s.imp"
13394 @ 113453:                  PUSH   PLABEL
13395 @ 113456:                  PUSH   PLABEL
13396 @ 113459:                  PUSHI  #0x00000001
13397 @ 113464:                  SUB   
13398 @ 113465:                  ASSVAL

  2099           ENTER JUMP(15,PLABEL,0) %UNLESS COMPILER=1 %OR %C
  2100                                  (CPRMODE=2 %AND LEVEL=1)
13399 @ 113466:                  LINE   2099 "regression-compile-tmp/imp918s.imp"
13400 @ 113504:                  PUSH   COMPILER
13401 @ 113507:                  PUSHI  #0x00000001
13402 @ 113512:                  JUMPIF = L_0004
13403 @ 113516:                  PUSH   CPRMODE
13404 @ 113519:                  PUSHI  #0x00000002
13405 @ 113524:                  JUMPIF # L_0005
13406 @ 113528:                  PUSH   LEVEL
13407 @ 113531:                  PUSHI  #0x00000001
13408 @ 113536:                  JUMPIF = L_0004
13409 @ 113540:                  LOCATE L_0005
13410 @ 113543:                  PUSH   ENTERJUMP
13411 @ 113546:                  PUSHI  #0x0000000f
13412 @ 113551:                  ASSPAR
13413 @ 113552:                  PUSH   PLABEL
13414 @ 113555:                  ASSPAR
13415 @ 113556:                  PUSHI  #0x00000000
13416 @ 113561:                  ASSPAR
13417 @ 113562:                  CALL  
13418 @ 113563:                  LOCATE L_0004

  2101           PTYPEP=PTYPE
13419 @ 113566:                  LINE   2101 "regression-compile-tmp/imp918s.imp"
13420 @ 113604:                  PUSH   PTYPEP
13421 @ 113607:                  PUSH   PTYPE
13422 @ 113610:                  ASSVAL

  2102           RHEAD(KK)
13423 @ 113611:                  LINE   2102 "regression-compile-tmp/imp918s.imp"
13424 @ 113649:                  PUSH   RHEAD
13425 @ 113652:                  PUSH   KK
13426 @ 113655:                  ASSPAR
13427 @ 113656:                  CALL  

  2103           FLAG=PTYPEP
13428 @ 113657:                  LINE   2103 "regression-compile-tmp/imp918s.imp"
13429 @ 113695:                  PUSH   FLAG
13430 @ 113698:                  PUSH   PTYPEP
13431 @ 113701:                  ASSVAL

  2104           P=MARKER1+1
13432 @ 113702:                  LINE   2104 "regression-compile-tmp/imp918s.imp"
13433 @ 113740:                  PUSH   P
13434 @ 113743:                  PUSH   MARKER1
13435 @ 113746:                  PUSHI  #0x00000001
13436 @ 113751:                  ADD   
13437 @ 113752:                  ASSVAL

  2105           %IF A(P+1)=1 %THEN %START;   ! FORMAL PARAMETERS TO DEAL WITH
13438 @ 113753:                  LINE   2105 "regression-compile-tmp/imp918s.imp"
13439 @ 113791:                  PUSH   A
13440 @ 113794:                  PUSH   P
13441 @ 113797:                  PUSHI  #0x00000001
13442 @ 113802:                  ADD   
13443 @ 113803:                  ACCESS
13444 @ 113804:                  PUSHI  #0x00000001
13445 @ 113809:                  JUMPIF # L_0004

  2106              %CYCLE;                   ! UNTIL NO MORE FP-PART
13446 @ 113813:                  LINE   2106 "regression-compile-tmp/imp918s.imp"
13447 @ 113851:                  LOCATE L_0006

  2107                 P=P+2
13448 @ 113854:                  LINE   2107 "regression-compile-tmp/imp918s.imp"
13449 @ 113892:                  PUSH   P
13450 @ 113895:                  PUSH   P
13451 @ 113898:                  PUSHI  #0x00000002
13452 @ 113903:                  ADD   
13453 @ 113904:                  ASSVAL

  2108                 CFPDEL
13454 @ 113905:                  LINE   2108 "regression-compile-tmp/imp918s.imp"
13455 @ 113943:                  PUSH   CFPDEL
13456 @ 113946:                  CALL  

  2109                 %CYCLE PTR=1,1,A(P);   ! CYCLE DOWN NAMELIST
13457 @ 113947:                  LINE   2109 "regression-compile-tmp/imp918s.imp"
13458 @ 113985:                  PUSH   PTR
13459 @ 113988:                  PUSHI  #0x00000001
13460 @ 113993:                  PUSH   A
13461 @ 113996:                  PUSH   P
13462 @ 113999:                  ACCESS
13463 @ 114000:                  PUSHI  #0x00000001
13464 @ 114005:                  FOR    L_0009

  2110                    %IF JJ#0 %THEN %START
13465 @ 114008:                  LINE   2110 "regression-compile-tmp/imp918s.imp"
13466 @ 114046:                  PUSH   JJ
13467 @ 114049:                  PUSHI  #0x00000000
13468 @ 114054:                  JUMPIF = L_000d

  2111                       FROM12(JJ,J,JJJ);! EXTRACT PTYPE XTRA INFO
13469 @ 114058:                  LINE   2111 "regression-compile-tmp/imp918s.imp"
13470 @ 114096:                  PUSH   FROM12
13471 @ 114099:                  PUSH   JJ
13472 @ 114102:                  ASSPAR
13473 @ 114103:                  PUSH   J
13474 @ 114106:                  ASSPAR
13475 @ 114107:                  PUSH   JJJ
13476 @ 114110:                  ASSPAR
13477 @ 114111:                  CALL  

  2112                       %UNLESS J=PTYPE %AND (PTYPE#5 %OR JJJ>>16=ACC) %C
  2113                          %THEN FAULT(9,A(P+PTR))
13478 @ 114112:                  LINE   2112 "regression-compile-tmp/imp918s.imp"
13479 @ 114150:                  PUSH   J
13480 @ 114153:                  PUSH   PTYPE
13481 @ 114156:                  JUMPIF # L_0011
13482 @ 114160:                  PUSH   PTYPE
13483 @ 114163:                  PUSHI  #0x00000005
13484 @ 114168:                  JUMPIF # L_0010
13485 @ 114172:                  PUSH   JJJ
13486 @ 114175:                  PUSHI  #0x00000010
13487 @ 114180:                  RSH   
13488 @ 114181:                  PUSH   ACC
13489 @ 114184:                  JUMPIF = L_0010
13490 @ 114188:                  LOCATE L_0011
13491 @ 114191:                  PUSH   FAULT
13492 @ 114194:                  PUSHI  #0x00000009
13493 @ 114199:                  ASSPAR
13494 @ 114200:                  PUSH   A
13495 @ 114203:                  PUSH   P
13496 @ 114206:                  PUSH   PTR
13497 @ 114209:                  ADD   
13498 @ 114210:                  ACCESS
13499 @ 114211:                  ASSPAR
13500 @ 114212:                  CALL  
13501 @ 114213:                  LOCATE L_0010

  2114                    %FINISH %ELSE FAULT(8,0);! MORE FPS THAN IN SPEC
13502 @ 114216:                  LINE   2114 "regression-compile-tmp/imp918s.imp"
13503 @ 114254:                  GOTO   L_000c
13504 @ 114257:                  LOCATE L_000d
13505 @ 114260:                  PUSH   FAULT
13506 @ 114263:                  PUSHI  #0x00000008
13507 @ 114268:                  ASSPAR
13508 @ 114269:                  PUSHI  #0x00000000
13509 @ 114274:                  ASSPAR
13510 @ 114275:                  CALL  
13511 @ 114276:                  LOCATE L_000c

  2115                    MLINK(JJ)
13512 @ 114279:                  LINE   2115 "regression-compile-tmp/imp918s.imp"
13513 @ 114317:                  PUSH   MLINK
13514 @ 114320:                  PUSH   JJ
13515 @ 114323:                  ASSPAR
13516 @ 114324:                  CALL  

  2116                 %REPEAT
13517 @ 114325:                  LINE   2116 "regression-compile-tmp/imp918s.imp"
13518 @ 114363:                  REPEAT L_0009
13519 @ 114366:                  LOCATE L_000a

  2117                 DECLARE SCALARS(0,0)
13520 @ 114369:                  LINE   2117 "regression-compile-tmp/imp918s.imp"
13521 @ 114407:                  PUSH   DECLARESCALARS
13522 @ 114410:                  PUSHI  #0x00000000
13523 @ 114415:                  ASSPAR
13524 @ 114416:                  PUSHI  #0x00000000
13525 @ 114421:                  ASSPAR
13526 @ 114422:                  CALL  

  2118              %REPEAT %UNTIL A(P)=2;! UNTIL NO MORE FP-PART
13527 @ 114423:                  LINE   2118 "regression-compile-tmp/imp918s.imp"
13528 @ 114461:                  PUSH   A
13529 @ 114464:                  PUSH   P
13530 @ 114467:                  ACCESS
13531 @ 114468:                  PUSHI  #0x00000002
13532 @ 114473:                  JUMPIF = L_0007
13533 @ 114477:                  REPEAT L_0006
13534 @ 114480:                  LOCATE L_0007

  2119              N=(N+3)&(-4);         ! TO WORD BOUNDARY AFTER ALL SYSTEM
  2120                                    ! STANDARD PARAMETERS HAVE BEEN DECLARED
13535 @ 114483:                  LINE   2119 "regression-compile-tmp/imp918s.imp"
13536 @ 114521:                  PUSH   N
13537 @ 114524:                  PUSH   N
13538 @ 114527:                  PUSHI  #0x00000003
13539 @ 114532:                  ADD   
13540 @ 114533:                  PUSHI  #0x00000004
13541 @ 114538:                  NEGATE
13542 @ 114539:                  AND   
13543 @ 114540:                  ASSVAL

  2121           %FINISH
13544 @ 114541:                  LINE   2121 "regression-compile-tmp/imp918s.imp"
13545 @ 114579:                  LOCATE L_0004

  2122           FAULT(10,0) %UNLESS JJ=0
13546 @ 114582:                  LINE   2122 "regression-compile-tmp/imp918s.imp"
13547 @ 114620:                  PUSH   JJ
13548 @ 114623:                  PUSHI  #0x00000000
13549 @ 114628:                  JUMPIF = L_0004
13550 @ 114632:                  PUSH   FAULT
13551 @ 114635:                  PUSHI  #0x0000000a
13552 @ 114640:                  ASSPAR
13553 @ 114641:                  PUSHI  #0x00000000
13554 @ 114646:                  ASSPAR
13555 @ 114647:                  CALL  
13556 @ 114648:                  LOCATE L_0004

  2123           %END; ->Label1202
  2124  !
13557 @ 114651:                  LINE   2123 "regression-compile-tmp/imp918s.imp"
13558 @ 114689:               END    _lev0id0_CSS_lev2id10 {lev=3 --> 2}
13559 @ 114690:               LINE   2123 "regression-compile-tmp/imp918s.imp"
13560 @ 114728:               JUMP   L_01fe

  2125  SW(11):                                !REALS(LN)
13561 @ 114731:               LINE   2125 "regression-compile-tmp/imp918s.imp"
13562 @ 114769:               PUSHI  #0x0000000b
13563 @ 114774:               SLABEL 445

  2126           ALL LONG=A(P+1)&1;->Label1
  2127  !
13564 @ 114777:               LINE   2126 "regression-compile-tmp/imp918s.imp"
13565 @ 114815:               PUSH   ALLLONG
13566 @ 114818:               PUSH   A
13567 @ 114821:               PUSH   P
13568 @ 114824:               PUSHI  #0x00000001
13569 @ 114829:               ADD   
13570 @ 114830:               ACCESS
13571 @ 114831:               PUSHI  #0x00000001
13572 @ 114836:               AND   
13573 @ 114837:               ASSVAL
13574 @ 114838:               LINE   2126 "regression-compile-tmp/imp918s.imp"
13575 @ 114876:               JUMP   L_01f4

  2128  SW(12):                                !%BEGIN
13576 @ 114879:               LINE   2128 "regression-compile-tmp/imp918s.imp"
13577 @ 114917:               PUSHI  #0x0000000c
13578 @ 114922:               SLABEL 445

  2129           PTYPE=0; RHEAD(-1)
13579 @ 114925:               LINE   2129 "regression-compile-tmp/imp918s.imp"
13580 @ 114963:               PUSH   PTYPE
13581 @ 114966:               PUSHI  #0x00000000
13582 @ 114971:               ASSVAL
13583 @ 114972:               LINE   2129 "regression-compile-tmp/imp918s.imp"
13584 @ 115010:               PUSH   RHEAD
13585 @ 115013:               PUSHI  #0x00000001
13586 @ 115018:               NEGATE
13587 @ 115019:               ASSPAR
13588 @ 115020:               CALL  

  2130           ->Label1 %IF LEVEL=1=RLEVEL
13589 @ 115021:               LINE   2130 "regression-compile-tmp/imp918s.imp"
13590 @ 115059:               PUSH   LEVEL
13591 @ 115062:               PUSHI  #0x00000001
13592 @ 115067:               JUMPIFD # L_0004
13593 @ 115071:               PUSH   RLEVEL
13594 @ 115074:               JUMPIF # L_0004
13595 @ 115078:               JUMP   L_01f4
13596 @ 115081:               LOCATE L_0004

  2131           ->Label1202 %UNLESS LEVEL=2
13597 @ 115084:               LINE   2131 "regression-compile-tmp/imp918s.imp"
13598 @ 115122:               PUSH   LEVEL
13599 @ 115125:               PUSHI  #0x00000002
13600 @ 115130:               JUMPIF = L_0004
13601 @ 115134:               JUMP   L_01fe
13602 @ 115137:               LOCATE L_0004

  2132           CPRMODE=1 %IF CPRMODE=0
13603 @ 115140:               LINE   2132 "regression-compile-tmp/imp918s.imp"
13604 @ 115178:               PUSH   CPRMODE
13605 @ 115181:               PUSHI  #0x00000000
13606 @ 115186:               JUMPIF # L_0004
13607 @ 115190:               PUSH   CPRMODE
13608 @ 115193:               PUSHI  #0x00000001
13609 @ 115198:               ASSVAL
13610 @ 115199:               LOCATE L_0004

  2133           DEFINE EP(0,0,0,0)
13611 @ 115202:               LINE   2133 "regression-compile-tmp/imp918s.imp"
13612 @ 115240:               PUSH   DEFINEEP
13613 @ 115243:               PUSHI  #0x00000000
13614 @ 115248:               ASSPAR
13615 @ 115249:               PUSHI  #0x00000000
13616 @ 115254:               ASSPAR
13617 @ 115255:               PUSHI  #0x00000000
13618 @ 115260:               ASSPAR
13619 @ 115261:               PUSHI  #0x00000000
13620 @ 115266:               ASSPAR
13621 @ 115267:               CALL  

  2134           FAULT(55,0) %UNLESS CPRMODE=1
13622 @ 115268:               LINE   2134 "regression-compile-tmp/imp918s.imp"
13623 @ 115306:               PUSH   CPRMODE
13624 @ 115309:               PUSHI  #0x00000001
13625 @ 115314:               JUMPIF = L_0004
13626 @ 115318:               PUSH   FAULT
13627 @ 115321:               PUSHI  #0x00000037
13628 @ 115326:               ASSPAR
13629 @ 115327:               PUSHI  #0x00000000
13630 @ 115332:               ASSPAR
13631 @ 115333:               CALL  
13632 @ 115334:               LOCATE L_0004

  2135  Label1202:    %IF SBFLAG=0 %THEN %START
13633 @ 115337:               LINE   2135 "regression-compile-tmp/imp918s.imp"
13634 @ 115375:               LABEL  L_01fe
13635 @ 115378:               LINE   2135 "regression-compile-tmp/imp918s.imp"
13636 @ 115416:               PUSH   SBFLAG
13637 @ 115419:               PUSHI  #0x00000000
13638 @ 115424:               JUMPIF # L_0004

  2136              PLANT(X'05A0'); CODEBASE=CA;
13639 @ 115428:               LINE   2136 "regression-compile-tmp/imp918s.imp"
13640 @ 115466:               PUSH   PLANT
13641 @ 115469:               PUSHI  #0x000005a0
13642 @ 115474:               ASSPAR
13643 @ 115475:               CALL  
13644 @ 115476:               LINE   2136 "regression-compile-tmp/imp918s.imp"
13645 @ 115514:               PUSH   CODEBASE
13646 @ 115517:               PUSH   CA
13647 @ 115520:               ASSVAL

  2137              GRINF(10)=CA; CUR CYC VAR=0
13648 @ 115521:               LINE   2137 "regression-compile-tmp/imp918s.imp"
13649 @ 115559:               PUSH   GRINF
13650 @ 115562:               PUSHI  #0x0000000a
13651 @ 115567:               ACCESS
13652 @ 115568:               PUSH   CA
13653 @ 115571:               ASSVAL
13654 @ 115572:               LINE   2137 "regression-compile-tmp/imp918s.imp"
13655 @ 115610:               PUSH   CURCYCVAR
13656 @ 115613:               PUSHI  #0x00000000
13657 @ 115618:               ASSVAL

  2138           %FINISH
13658 @ 115619:               LINE   2138 "regression-compile-tmp/imp918s.imp"
13659 @ 115657:               LOCATE L_0004

  2139           %IF CHECKSP#0 %THEN %START
13660 @ 115660:               LINE   2139 "regression-compile-tmp/imp918s.imp"
13661 @ 115698:               PUSH   CHECKSP
13662 @ 115701:               PUSHI  #0x00000000
13663 @ 115706:               JUMPIF = L_0004

  2140              PCONST(X'41000004');          ! LA 0,4 --- FAULT 4=EXCESS BLKS
13664 @ 115710:               LINE   2140 "regression-compile-tmp/imp918s.imp"
13665 @ 115748:               PUSH   PCONST
13666 @ 115751:               PUSHI  #0x41000004
13667 @ 115756:               ASSPAR
13668 @ 115757:               CALL  

  2141              PCONST(X'9812D040');          ! LM 1,2 TOPSTREF
13669 @ 115758:               LINE   2141 "regression-compile-tmp/imp918s.imp"
13670 @ 115796:               PUSH   PCONST
13671 @ 115799:               PUSHI  #0x9812d040
13672 @ 115804:               ASSPAR
13673 @ 115805:               CALL  

  2142              PLANT(X'1211');               ! LTR 1,1
13674 @ 115806:               LINE   2142 "regression-compile-tmp/imp918s.imp"
13675 @ 115844:               PUSH   PLANT
13676 @ 115847:               PUSHI  #0x00001211
13677 @ 115852:               ASSPAR
13678 @ 115853:               CALL  

  2143              PRX(X'47',10,0,10,CA-CODEBASE+8);! BHE *+8
13679 @ 115854:               LINE   2143 "regression-compile-tmp/imp918s.imp"
13680 @ 115892:               PUSH   PRX
13681 @ 115895:               PUSHI  #0x00000047
13682 @ 115900:               ASSPAR
13683 @ 115901:               PUSHI  #0x0000000a
13684 @ 115906:               ASSPAR
13685 @ 115907:               PUSHI  #0x00000000
13686 @ 115912:               ASSPAR
13687 @ 115913:               PUSHI  #0x0000000a
13688 @ 115918:               ASSPAR
13689 @ 115919:               PUSH   CA
13690 @ 115922:               PUSH   CODEBASE
13691 @ 115925:               SUB   
13692 @ 115926:               PUSHI  #0x00000008
13693 @ 115931:               ADD   
13694 @ 115932:               ASSPAR
13695 @ 115933:               CALL  

  2144              PCONST(X'58202000');          ! L 2,0(2)
13696 @ 115934:               LINE   2144 "regression-compile-tmp/imp918s.imp"
13697 @ 115972:               PUSH   PCONST
13698 @ 115975:               PUSHI  #0x58202000
13699 @ 115980:               ASSPAR
13700 @ 115981:               CALL  

  2145              PLANT(X'19B2');               ! CR 11,2
13701 @ 115982:               LINE   2145 "regression-compile-tmp/imp918s.imp"
13702 @ 116020:               PUSH   PLANT
13703 @ 116023:               PUSHI  #0x000019b2
13704 @ 116028:               ASSPAR
13705 @ 116029:               CALL  

  2146              PCONST(X'4720C054');          !  BH  RUN TIME FAULT ROUTINE
13706 @ 116030:               LINE   2146 "regression-compile-tmp/imp918s.imp"
13707 @ 116068:               PUSH   PCONST
13708 @ 116071:               PUSHI  #0x4720c054
13709 @ 116076:               ASSPAR
13710 @ 116077:               CALL  

  2147              CCSTATE=-1
13711 @ 116078:               LINE   2147 "regression-compile-tmp/imp918s.imp"
13712 @ 116116:               PUSH   CCSTATE
13713 @ 116119:               PUSHI  #0x00000001
13714 @ 116124:               NEGATE
13715 @ 116125:               ASSVAL

  2148              FORGET(1); FORGET(2)
13716 @ 116126:               LINE   2148 "regression-compile-tmp/imp918s.imp"
13717 @ 116164:               PUSH   FORGET
13718 @ 116167:               PUSHI  #0x00000001
13719 @ 116172:               ASSPAR
13720 @ 116173:               CALL  
13721 @ 116174:               LINE   2148 "regression-compile-tmp/imp918s.imp"
13722 @ 116212:               PUSH   FORGET
13723 @ 116215:               PUSHI  #0x00000002
13724 @ 116220:               ASSPAR
13725 @ 116221:               CALL  

  2149           %FINISH
13726 @ 116222:               LINE   2149 "regression-compile-tmp/imp918s.imp"
13727 @ 116260:               LOCATE L_0004

  2150          ->Label1
  2151  !
13728 @ 116263:               LINE   2150 "regression-compile-tmp/imp918s.imp"
13729 @ 116301:               JUMP   L_01f4

  2152  SW(13):
  2153                                         ! '%FAULT'(FLIST)(S)
13730 @ 116304:               LINE   2152 "regression-compile-tmp/imp918s.imp"
13731 @ 116342:               PUSHI  #0x0000000d
13732 @ 116347:               SLABEL 445

  2154           WARN(LINE)
13733 @ 116350:               LINE   2154 "regression-compile-tmp/imp918s.imp"
13734 @ 116388:               PUSH   WARN
13735 @ 116391:               PUSH   LINE
13736 @ 116394:               ASSPAR
13737 @ 116395:               CALL  

  2155           FAULT(26,0) %UNLESS LEVEL=2 %AND CPRMODE#2
13738 @ 116396:               LINE   2155 "regression-compile-tmp/imp918s.imp"
13739 @ 116434:               PUSH   LEVEL
13740 @ 116437:               PUSHI  #0x00000002
13741 @ 116442:               JUMPIF # L_0005
13742 @ 116446:               PUSH   CPRMODE
13743 @ 116449:               PUSHI  #0x00000002
13744 @ 116454:               JUMPIF # L_0004
13745 @ 116458:               LOCATE L_0005
13746 @ 116461:               PUSH   FAULT
13747 @ 116464:               PUSHI  #0x0000001a
13748 @ 116469:               ASSPAR
13749 @ 116470:               PUSHI  #0x00000000
13750 @ 116475:               ASSPAR
13751 @ 116476:               CALL  
13752 @ 116477:               LOCATE L_0004

  2156           NMDECS=NMDECS!1
13753 @ 116480:               LINE   2156 "regression-compile-tmp/imp918s.imp"
13754 @ 116518:               PUSH   NMDECS
13755 @ 116521:               PUSH   NMDECS
13756 @ 116524:               PUSHI  #0x00000001
13757 @ 116529:               OR    
13758 @ 116530:               ASSVAL

  2157           %CYCLE;         ! UNTIL RESTOFFAULTLIST IS NULL
13759 @ 116531:               LINE   2157 "regression-compile-tmp/imp918s.imp"
13760 @ 116569:               LOCATE L_0003

  2158              P=P+2; Q=P+1
13761 @ 116572:               LINE   2158 "regression-compile-tmp/imp918s.imp"
13762 @ 116610:               PUSH   P
13763 @ 116613:               PUSH   P
13764 @ 116616:               PUSHI  #0x00000002
13765 @ 116621:               ADD   
13766 @ 116622:               ASSVAL
13767 @ 116623:               LINE   2158 "regression-compile-tmp/imp918s.imp"
13768 @ 116661:               PUSH   Q
13769 @ 116664:               PUSH   P
13770 @ 116667:               PUSHI  #0x00000001
13771 @ 116672:               ADD   
13772 @ 116673:               ASSVAL

  2159              Q=Q+2 %WHILE A(Q)#2
13773 @ 116674:               LINE   2159 "regression-compile-tmp/imp918s.imp"
13774 @ 116712:               LOCATE L_0006
13775 @ 116715:               PUSH   A
13776 @ 116718:               PUSH   Q
13777 @ 116721:               ACCESS
13778 @ 116722:               PUSHI  #0x00000002
13779 @ 116727:               JUMPIF = L_0007
13780 @ 116731:               PUSH   Q
13781 @ 116734:               PUSH   Q
13782 @ 116737:               PUSHI  #0x00000002
13783 @ 116742:               ADD   
13784 @ 116743:               ASSVAL
13785 @ 116744:               REPEAT L_0006
13786 @ 116747:               LOCATE L_0007

  2160              %CYCLE;    ! UNTIL RESTOFNLIST IS NULL
13787 @ 116750:               LINE   2160 "regression-compile-tmp/imp918s.imp"
13788 @ 116788:               LOCATE L_0006

  2161                 K=A(Q+2)+(A(Q+1)-1)<<14
13789 @ 116791:               LINE   2161 "regression-compile-tmp/imp918s.imp"
13790 @ 116829:               PUSH   K
13791 @ 116832:               PUSH   A
13792 @ 116835:               PUSH   Q
13793 @ 116838:               PUSHI  #0x00000002
13794 @ 116843:               ADD   
13795 @ 116844:               ACCESS
13796 @ 116845:               PUSH   A
13797 @ 116848:               PUSH   Q
13798 @ 116851:               PUSHI  #0x00000001
13799 @ 116856:               ADD   
13800 @ 116857:               ACCESS
13801 @ 116858:               PUSHI  #0x00000001
13802 @ 116863:               SUB   
13803 @ 116864:               PUSHI  #0x0000000e
13804 @ 116869:               LSH   
13805 @ 116870:               ADD   
13806 @ 116871:               ASSVAL

  2162                 KKK=A(P);PCONST(X'41100000'!KKK)
13807 @ 116872:               LINE   2162 "regression-compile-tmp/imp918s.imp"
13808 @ 116910:               PUSH   KKK
13809 @ 116913:               PUSH   A
13810 @ 116916:               PUSH   P
13811 @ 116919:               ACCESS
13812 @ 116920:               ASSVAL
13813 @ 116921:               LINE   2162 "regression-compile-tmp/imp918s.imp"
13814 @ 116959:               PUSH   PCONST
13815 @ 116962:               PUSHI  #0x41100000
13816 @ 116967:               PUSH   KKK
13817 @ 116970:               OR    
13818 @ 116971:               ASSPAR
13819 @ 116972:               CALL  

  2163                 FAULT(36,0) %IF KKK>32 %OR KKK=0 %OR KKK=29 %OR 11<KKK<14
13820 @ 116973:               LINE   2163 "regression-compile-tmp/imp918s.imp"
13821 @ 117011:               PUSH   KKK
13822 @ 117014:               PUSHI  #0x00000020
13823 @ 117019:               JUMPIF > L_000b
13824 @ 117023:               PUSH   KKK
13825 @ 117026:               PUSHI  #0x00000000
13826 @ 117031:               JUMPIF = L_000b
13827 @ 117035:               PUSH   KKK
13828 @ 117038:               PUSHI  #0x0000001d
13829 @ 117043:               JUMPIF = L_000b
13830 @ 117047:               PUSHI  #0x0000000b
13831 @ 117052:               PUSH   KKK
13832 @ 117055:               JUMPIFD >= L_000a
13833 @ 117059:               PUSHI  #0x0000000e
13834 @ 117064:               JUMPIF >= L_000a
13835 @ 117068:               LOCATE L_000b
13836 @ 117071:               PUSH   FAULT
13837 @ 117074:               PUSHI  #0x00000024
13838 @ 117079:               ASSPAR
13839 @ 117080:               PUSHI  #0x00000000
13840 @ 117085:               ASSPAR
13841 @ 117086:               CALL  
13842 @ 117087:               LOCATE L_000a

  2164                 PPJ(20); QQ=CA
13843 @ 117090:               LINE   2164 "regression-compile-tmp/imp918s.imp"
13844 @ 117128:               PUSH   PPJ
13845 @ 117131:               PUSHI  #0x00000014
13846 @ 117136:               ASSPAR
13847 @ 117137:               CALL  
13848 @ 117138:               LINE   2164 "regression-compile-tmp/imp918s.imp"
13849 @ 117176:               PUSH   QQ
13850 @ 117179:               PUSH   CA
13851 @ 117182:               ASSVAL

  2165                 ENTER JUMP(15,K,0);           ! JUMP TO LABEL
13852 @ 117183:               LINE   2165 "regression-compile-tmp/imp918s.imp"
13853 @ 117221:               PUSH   ENTERJUMP
13854 @ 117224:               PUSHI  #0x0000000f
13855 @ 117229:               ASSPAR
13856 @ 117230:               PUSH   K
13857 @ 117233:               ASSPAR
13858 @ 117234:               PUSHI  #0x00000000
13859 @ 117239:               ASSPAR
13860 @ 117240:               CALL  

  2166                 PCONST(X'07000700') %UNLESS CA=QQ+8;! JUMP MUST BE 8 BYTES
13861 @ 117241:               LINE   2166 "regression-compile-tmp/imp918s.imp"
13862 @ 117279:               PUSH   CA
13863 @ 117282:               PUSH   QQ
13864 @ 117285:               PUSHI  #0x00000008
13865 @ 117290:               ADD   
13866 @ 117291:               JUMPIF = L_000a
13867 @ 117295:               PUSH   PCONST
13868 @ 117298:               PUSHI  #0x07000700
13869 @ 117303:               ASSPAR
13870 @ 117304:               CALL  
13871 @ 117305:               LOCATE L_000a

  2167                 P=P+2
13872 @ 117308:               LINE   2167 "regression-compile-tmp/imp918s.imp"
13873 @ 117346:               PUSH   P
13874 @ 117349:               PUSH   P
13875 @ 117352:               PUSHI  #0x00000002
13876 @ 117357:               ADD   
13877 @ 117358:               ASSVAL

  2168              %REPEAT %UNTIL A(P-1)=2
13878 @ 117359:               LINE   2168 "regression-compile-tmp/imp918s.imp"
13879 @ 117397:               PUSH   A
13880 @ 117400:               PUSH   P
13881 @ 117403:               PUSHI  #0x00000001
13882 @ 117408:               SUB   
13883 @ 117409:               ACCESS
13884 @ 117410:               PUSHI  #0x00000002
13885 @ 117415:               JUMPIF = L_0007
13886 @ 117419:               REPEAT L_0006
13887 @ 117422:               LOCATE L_0007

  2169              P=P+2
13888 @ 117425:               LINE   2169 "regression-compile-tmp/imp918s.imp"
13889 @ 117463:               PUSH   P
13890 @ 117466:               PUSH   P
13891 @ 117469:               PUSHI  #0x00000002
13892 @ 117474:               ADD   
13893 @ 117475:               ASSVAL

  2170           %REPEAT %UNTIL A(P)=2; ->Label1
  2171  !
13894 @ 117476:               LINE   2170 "regression-compile-tmp/imp918s.imp"
13895 @ 117514:               PUSH   A
13896 @ 117517:               PUSH   P
13897 @ 117520:               ACCESS
13898 @ 117521:               PUSHI  #0x00000002
13899 @ 117526:               JUMPIF = L_0004
13900 @ 117530:               REPEAT L_0003
13901 @ 117533:               LOCATE L_0004
13902 @ 117536:               LINE   2170 "regression-compile-tmp/imp918s.imp"
13903 @ 117574:               JUMP   L_01f4

  2172  SW(15):  %BEGIN;                       !SWITCH (SWITCH LIST)
  2173           {%SHORTROUTINE}
13904 @ 117577:               LINE   2172 "regression-compile-tmp/imp918s.imp"
13905 @ 117615:               PUSHI  #0x0000000f
13906 @ 117620:               SLABEL 445
13907 @ 117623:               LINE   2172 "regression-compile-tmp/imp918s.imp"
13908 @ 117661:               BEGIN  _lev0id0_CSS_lev2id11 {lev=2 --> 3}

  2174           %INTEGER Q,RANGE,KKK,KK,LB
13909 @ 117662:                  LINE   2174 "regression-compile-tmp/imp918s.imp"
13910 @ 117700:                  DEF    Q p1=V_01ff 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
13911 @ 117713:                  DEF    RANGE p1=V_0200 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
13912 @ 117730:                  DEF    KKK p1=V_0201 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
13913 @ 117745:                  DEF    KK p1=V_0202 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
13914 @ 117759:                  DEF    LB p1=V_0203 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

  2175           Q=P
13915 @ 117773:                  LINE   2175 "regression-compile-tmp/imp918s.imp"
13916 @ 117811:                  PUSH   Q
13917 @ 117814:                  PUSH   P
13918 @ 117817:                  ASSVAL

  2176           FAULT(56,0) %UNLESS LEVEL>=2
13919 @ 117818:                  LINE   2176 "regression-compile-tmp/imp918s.imp"
13920 @ 117856:                  PUSH   LEVEL
13921 @ 117859:                  PUSHI  #0x00000002
13922 @ 117864:                  JUMPIF >= L_0004
13923 @ 117868:                  PUSH   FAULT
13924 @ 117871:                  PUSHI  #0x00000038
13925 @ 117876:                  ASSPAR
13926 @ 117877:                  PUSHI  #0x00000000
13927 @ 117882:                  ASSPAR
13928 @ 117883:                  CALL  
13929 @ 117884:                  LOCATE L_0004

  2177           %IF SBFLAG=1 %OR COMPILER=1 %THEN PREC=2 %ELSE PREC=0
13930 @ 117887:                  LINE   2177 "regression-compile-tmp/imp918s.imp"
13931 @ 117925:                  PUSH   SBFLAG
13932 @ 117928:                  PUSHI  #0x00000001
13933 @ 117933:                  JUMPIF = L_0005
13934 @ 117937:                  PUSH   COMPILER
13935 @ 117940:                  PUSHI  #0x00000001
13936 @ 117945:                  JUMPIF # L_0004
13937 @ 117949:                  LOCATE L_0005
13938 @ 117952:                  PUSH   PREC
13939 @ 117955:                  PUSHI  #0x00000002
13940 @ 117960:                  ASSVAL
13941 @ 117961:                  GOTO   L_0003
13942 @ 117964:                  LOCATE L_0004
13943 @ 117967:                  PUSH   PREC
13944 @ 117970:                  PUSHI  #0x00000000
13945 @ 117975:                  ASSVAL
13946 @ 117976:                  LOCATE L_0003

  2178           PTYPE=106+10*PREC;            !(SHORT?) LABEL ARRAY
13947 @ 117979:                  LINE   2178 "regression-compile-tmp/imp918s.imp"
13948 @ 118017:                  PUSH   PTYPE
13949 @ 118020:                  PUSHI  #0x0000006a
13950 @ 118025:                  PUSHI  #0x0000000a
13951 @ 118030:                  PUSH   PREC
13952 @ 118033:                  MUL   
13953 @ 118034:                  ADD   
13954 @ 118035:                  ASSVAL

  2179           %CYCLE;         ! UNTIL NO'REST OF SW LIST'
13955 @ 118036:                  LINE   2179 "regression-compile-tmp/imp918s.imp"
13956 @ 118074:                  LOCATE L_0003

  2180              P=A(Q+1)+Q+2;              ! PAST 'NAMELIST' TO 'BPAIR'
13957 @ 118077:                  LINE   2180 "regression-compile-tmp/imp918s.imp"
13958 @ 118115:                  PUSH   P
13959 @ 118118:                  PUSH   A
13960 @ 118121:                  PUSH   Q
13961 @ 118124:                  PUSHI  #0x00000001
13962 @ 118129:                  ADD   
13963 @ 118130:                  ACCESS
13964 @ 118131:                  PUSH   Q
13965 @ 118134:                  ADD   
13966 @ 118135:                  PUSHI  #0x00000002
13967 @ 118140:                  ADD   
13968 @ 118141:                  ASSVAL

  2181              CBPAIR(KKK,KK);            ! LOWER BOUND TO KKK UPPER TO KK
13969 @ 118142:                  LINE   2181 "regression-compile-tmp/imp918s.imp"
13970 @ 118180:                  PUSH   CBPAIR
13971 @ 118183:                  PUSH   KKK
13972 @ 118186:                  ASSPAR
13973 @ 118187:                  PUSH   KK
13974 @ 118190:                  ASSPAR
13975 @ 118191:                  CALL  

  2182              %UNLESS |KKK| <X'7FFF'>|KK| %THEN %START
13976 @ 118192:                  LINE   2182 "regression-compile-tmp/imp918s.imp"
13977 @ 118230:                  PUSH   KKK
13978 @ 118233:                  MOD   
13979 @ 118234:                  PUSHI  #0x00007fff
13980 @ 118239:                  JUMPIFD >= L_0008
13981 @ 118243:                  PUSH   KK
13982 @ 118246:                  MOD   
13983 @ 118247:                  JUMPIF > L_0007
13984 @ 118251:                  LOCATE L_0008

  2183                 FAULT(18,0); KK=0; KKK=0
13985 @ 118254:                  LINE   2183 "regression-compile-tmp/imp918s.imp"
13986 @ 118292:                  PUSH   FAULT
13987 @ 118295:                  PUSHI  #0x00000012
13988 @ 118300:                  ASSPAR
13989 @ 118301:                  PUSHI  #0x00000000
13990 @ 118306:                  ASSPAR
13991 @ 118307:                  CALL  
13992 @ 118308:                  LINE   2183 "regression-compile-tmp/imp918s.imp"
13993 @ 118346:                  PUSH   KK
13994 @ 118349:                  PUSHI  #0x00000000
13995 @ 118354:                  ASSVAL
13996 @ 118355:                  LINE   2183 "regression-compile-tmp/imp918s.imp"
13997 @ 118393:                  PUSH   KKK
13998 @ 118396:                  PUSHI  #0x00000000
13999 @ 118401:                  ASSVAL

  2184              %FINISH
14000 @ 118402:                  LINE   2184 "regression-compile-tmp/imp918s.imp"
14001 @ 118440:                  LOCATE L_0007

  2185              RANGE=(KK-KKK+1)*BYTES(PREC)
14002 @ 118443:                  LINE   2185 "regression-compile-tmp/imp918s.imp"
14003 @ 118481:                  PUSH   RANGE
14004 @ 118484:                  PUSH   KK
14005 @ 118487:                  PUSH   KKK
14006 @ 118490:                  SUB   
14007 @ 118491:                  PUSHI  #0x00000001
14008 @ 118496:                  ADD   
14009 @ 118497:                  PUSH   BYTES
14010 @ 118500:                  PUSH   PREC
14011 @ 118503:                  ACCESS
14012 @ 118504:                  MUL   
14013 @ 118505:                  ASSVAL

  2186              LB=KKK; KKK=KKK&X'FFFFFF'!PREC<<24
14014 @ 118506:                  LINE   2186 "regression-compile-tmp/imp918s.imp"
14015 @ 118544:                  PUSH   LB
14016 @ 118547:                  PUSH   KKK
14017 @ 118550:                  ASSVAL
14018 @ 118551:                  LINE   2186 "regression-compile-tmp/imp918s.imp"
14019 @ 118589:                  PUSH   KKK
14020 @ 118592:                  PUSH   KKK
14021 @ 118595:                  PUSHI  #0x00ffffff
14022 @ 118600:                  AND   
14023 @ 118601:                  PUSH   PREC
14024 @ 118604:                  PUSHI  #0x00000018
14025 @ 118609:                  LSH   
14026 @ 118610:                  OR    
14027 @ 118611:                  ASSVAL

  2187              %CYCLE QQ=1,1,A(Q+1);      !  DOWN NAMELIST
14028 @ 118612:                  LINE   2187 "regression-compile-tmp/imp918s.imp"
14029 @ 118650:                  PUSH   QQ
14030 @ 118653:                  PUSHI  #0x00000001
14031 @ 118658:                  PUSH   A
14032 @ 118661:                  PUSH   Q
14033 @ 118664:                  PUSHI  #0x00000001
14034 @ 118669:                  ADD   
14035 @ 118670:                  ACCESS
14036 @ 118671:                  PUSHI  #0x00000001
14037 @ 118676:                  FOR    L_0006

  2188                 K=A(Q+QQ+1)
14038 @ 118679:                  LINE   2188 "regression-compile-tmp/imp918s.imp"
14039 @ 118717:                  PUSH   K
14040 @ 118720:                  PUSH   A
14041 @ 118723:                  PUSH   Q
14042 @ 118726:                  PUSH   QQ
14043 @ 118729:                  ADD   
14044 @ 118730:                  PUSHI  #0x00000001
14045 @ 118735:                  ADD   
14046 @ 118736:                  ACCESS
14047 @ 118737:                  ASSVAL

  2189                 TEST NST
14048 @ 118738:                  LINE   2189 "regression-compile-tmp/imp918s.imp"
14049 @ 118776:                  PUSH   TESTNST
14050 @ 118779:                  CALL  

  2190                 SSTL=(SSTL+3)&(-4);     !  CONST TABLES TO WORD BNDRY
14051 @ 118780:                  LINE   2190 "regression-compile-tmp/imp918s.imp"
14052 @ 118818:                  PUSH   SSTL
14053 @ 118821:                  PUSH   SSTL
14054 @ 118824:                  PUSHI  #0x00000003
14055 @ 118829:                  ADD   
14056 @ 118830:                  PUSHI  #0x00000004
14057 @ 118835:                  NEGATE
14058 @ 118836:                  AND   
14059 @ 118837:                  ASSVAL

  2191                 OPHEAD=0; R=LB
  2192  !
  2193  ! SET UP A BIT LIST (96 BITS PER CELL) TO CHECK FOR SWITCH LABELS
  2194  ! SET TWICE
  2195  !
14060 @ 118838:                  LINE   2191 "regression-compile-tmp/imp918s.imp"
14061 @ 118876:                  PUSH   OPHEAD
14062 @ 118879:                  PUSHI  #0x00000000
14063 @ 118884:                  ASSVAL
14064 @ 118885:                  LINE   2191 "regression-compile-tmp/imp918s.imp"
14065 @ 118923:                  PUSH   R
14066 @ 118926:                  PUSH   LB
14067 @ 118929:                  ASSVAL

  2196                 %CYCLE
14068 @ 118930:                  LINE   2196 "regression-compile-tmp/imp918s.imp"
14069 @ 118968:                  LOCATE L_0009

  2197                    PUSH123(OPHEAD,0,0,0)
14070 @ 118971:                  LINE   2197 "regression-compile-tmp/imp918s.imp"
14071 @ 119009:                  PUSH   PUSH123
14072 @ 119012:                  PUSH   OPHEAD
14073 @ 119015:                  ASSPAR
14074 @ 119016:                  PUSHI  #0x00000000
14075 @ 119021:                  ASSPAR
14076 @ 119022:                  PUSHI  #0x00000000
14077 @ 119027:                  ASSPAR
14078 @ 119028:                  PUSHI  #0x00000000
14079 @ 119033:                  ASSPAR
14080 @ 119034:                  CALL  

  2198                    R=R+96
14081 @ 119035:                  LINE   2198 "regression-compile-tmp/imp918s.imp"
14082 @ 119073:                  PUSH   R
14083 @ 119076:                  PUSH   R
14084 @ 119079:                  PUSHI  #0x00000060
14085 @ 119084:                  ADD   
14086 @ 119085:                  ASSVAL

  2199                 %REPEAT %UNTIL R>KK
  2200  !
  2201  ! OUTPUT ARRAYBOUNDS (CHECKING MODE) AND CLEAR THE TABLE SPACE
  2202  !
14087 @ 119086:                  LINE   2199 "regression-compile-tmp/imp918s.imp"
14088 @ 119124:                  PUSH   R
14089 @ 119127:                  PUSH   KK
14090 @ 119130:                  JUMPIF > L_000a
14091 @ 119134:                  REPEAT L_0009
14092 @ 119137:                  LOCATE L_000a

  2203                %IF (COMPILER=0 %OR CHECKSP=1) %AND (INHCODE=0)%C
  2204                %THEN %START
14093 @ 119140:                  LINE   2203 "regression-compile-tmp/imp918s.imp"
14094 @ 119178:                  PUSH   COMPILER
14095 @ 119181:                  PUSHI  #0x00000000
14096 @ 119186:                  JUMPIF = L_000b
14097 @ 119190:                  PUSH   CHECKSP
14098 @ 119193:                  PUSHI  #0x00000001
14099 @ 119198:                  JUMPIF # L_000a
14100 @ 119202:                  LOCATE L_000b
14101 @ 119205:                  PUSH   INHCODE
14102 @ 119208:                  PUSHI  #0x00000000
14103 @ 119213:                  JUMPIF # L_000a

  2205                    LPUT(4,8,SSTL,ADDR(KKK))
14104 @ 119217:                  LINE   2205 "regression-compile-tmp/imp918s.imp"
14105 @ 119255:                  PUSH   LPUT
14106 @ 119258:                  PUSHI  #0x00000004
14107 @ 119263:                  ASSPAR
14108 @ 119264:                  PUSHI  #0x00000008
14109 @ 119269:                  ASSPAR
14110 @ 119270:                  PUSH   SSTL
14111 @ 119273:                  ASSPAR
14112 @ 119274:                  PUSH   ADDR
14113 @ 119277:                  PUSH   KKK
14114 @ 119280:                  ASSPAR
14115 @ 119281:                  CALL  
14116 @ 119282:                  ASSPAR
14117 @ 119283:                  CALL  

  2206                    SSTL=SSTL+8
14118 @ 119284:                  LINE   2206 "regression-compile-tmp/imp918s.imp"
14119 @ 119322:                  PUSH   SSTL
14120 @ 119325:                  PUSH   SSTL
14121 @ 119328:                  PUSHI  #0x00000008
14122 @ 119333:                  ADD   
14123 @ 119334:                  ASSVAL

  2207                 %FINISH
14124 @ 119335:                  LINE   2207 "regression-compile-tmp/imp918s.imp"
14125 @ 119373:                  LOCATE L_000a

  2208                 PUSH123(OPHEAD,SSTL-8,LB,KK)
14126 @ 119376:                  LINE   2208 "regression-compile-tmp/imp918s.imp"
14127 @ 119414:                  PUSH   PUSH123
14128 @ 119417:                  PUSH   OPHEAD
14129 @ 119420:                  ASSPAR
14130 @ 119421:                  PUSH   SSTL
14131 @ 119424:                  PUSHI  #0x00000008
14132 @ 119429:                  SUB   
14133 @ 119430:                  ASSPAR
14134 @ 119431:                  PUSH   LB
14135 @ 119434:                  ASSPAR
14136 @ 119435:                  PUSH   KK
14137 @ 119438:                  ASSPAR
14138 @ 119439:                  CALL  

  2209                 J=1; STORE TAG(K,OPHEAD)
14139 @ 119440:                  LINE   2209 "regression-compile-tmp/imp918s.imp"
14140 @ 119478:                  PUSH   J
14141 @ 119481:                  PUSHI  #0x00000001
14142 @ 119486:                  ASSVAL
14143 @ 119487:                  LINE   2209 "regression-compile-tmp/imp918s.imp"
14144 @ 119525:                  PUSH   STORETAG
14145 @ 119528:                  PUSH   K
14146 @ 119531:                  ASSPAR
14147 @ 119532:                  PUSH   OPHEAD
14148 @ 119535:                  ASSPAR
14149 @ 119536:                  CALL  

  2210                 %IF INHCODE=0 %THEN %C
  2211                    LPUT(4,RANGE,SSTL,COMPILER)
14150 @ 119537:                  LINE   2210 "regression-compile-tmp/imp918s.imp"
14151 @ 119575:                  PUSH   INHCODE
14152 @ 119578:                  PUSHI  #0x00000000
14153 @ 119583:                  JUMPIF # L_000a
14154 @ 119587:                  PUSH   LPUT
14155 @ 119590:                  PUSHI  #0x00000004
14156 @ 119595:                  ASSPAR
14157 @ 119596:                  PUSH   RANGE
14158 @ 119599:                  ASSPAR
14159 @ 119600:                  PUSH   SSTL
14160 @ 119603:                  ASSPAR
14161 @ 119604:                  PUSH   COMPILER
14162 @ 119607:                  ASSPAR
14163 @ 119608:                  CALL  
14164 @ 119609:                  LOCATE L_000a

  2212                 SSTL=(SSTL+RANGE+3)&(-4)
14165 @ 119612:                  LINE   2212 "regression-compile-tmp/imp918s.imp"
14166 @ 119650:                  PUSH   SSTL
14167 @ 119653:                  PUSH   SSTL
14168 @ 119656:                  PUSH   RANGE
14169 @ 119659:                  ADD   
14170 @ 119660:                  PUSHI  #0x00000003
14171 @ 119665:                  ADD   
14172 @ 119666:                  PUSHI  #0x00000004
14173 @ 119671:                  NEGATE
14174 @ 119672:                  AND   
14175 @ 119673:                  ASSVAL

  2213              %REPEAT;                   ! FOR ANY MORE NAMES IN NAMELIST
14176 @ 119674:                  LINE   2213 "regression-compile-tmp/imp918s.imp"
14177 @ 119712:                  REPEAT L_0006
14178 @ 119715:                  LOCATE L_0007

  2214              Q=P
14179 @ 119718:                  LINE   2214 "regression-compile-tmp/imp918s.imp"
14180 @ 119756:                  PUSH   Q
14181 @ 119759:                  PUSH   P
14182 @ 119762:                  ASSVAL

  2215           %REPEAT %UNTIL A(Q)=2;                      ! UNTIL A(Q)=2
14183 @ 119763:                  LINE   2215 "regression-compile-tmp/imp918s.imp"
14184 @ 119801:                  PUSH   A
14185 @ 119804:                  PUSH   Q
14186 @ 119807:                  ACCESS
14187 @ 119808:                  PUSHI  #0x00000002
14188 @ 119813:                  JUMPIF = L_0004
14189 @ 119817:                  REPEAT L_0003
14190 @ 119820:                  LOCATE L_0004

  2216           %END;->Label1
  2217  !
14191 @ 119823:                  LINE   2216 "regression-compile-tmp/imp918s.imp"
14192 @ 119861:               END    _lev0id0_CSS_lev2id11 {lev=3 --> 2}
14193 @ 119862:               LINE   2216 "regression-compile-tmp/imp918s.imp"
14194 @ 119900:               JUMP   L_01f4

  2218  SW(16):  LIST=1; ->Label1;                  ! %LIST
  2219  !
  2220  !
14195 @ 119903:               LINE   2218 "regression-compile-tmp/imp918s.imp"
14196 @ 119941:               PUSHI  #0x00000010
14197 @ 119946:               SLABEL 445
14198 @ 119949:               LINE   2218 "regression-compile-tmp/imp918s.imp"
14199 @ 119987:               PUSH   LIST
14200 @ 119990:               PUSHI  #0x00000001
14201 @ 119995:               ASSVAL
14202 @ 119996:               LINE   2218 "regression-compile-tmp/imp918s.imp"
14203 @ 120034:               JUMP   L_01f4

  2221  SW(17):                                ! '%OWN' (TYPE)(OWNDEC)
14204 @ 120037:               LINE   2221 "regression-compile-tmp/imp918s.imp"
14205 @ 120075:               PUSHI  #0x00000011
14206 @ 120080:               SLABEL 445

  2222           %BEGIN
  2223           {%SHORTROUTINE}
  2224  !***********************************************************************
  2225  !*       INITIALISED DECLARATION GO INTO THE GLA OR GLA SYMBOL TABLES  *
  2226  !*       EXCEPT FOR CONST ARRAYS WHICH GO INTO THE CODE SYMBOL TABLES  *
  2227  !*       STRINGS AND ARRAYS HAVE A HEADER IN THE GLA. LPUT ARRANGES    *
  2228  !*       FOR THE LOADER TO RELOCATE THE HEADERS.                       *
  2229  !*      EXTERNALS ARE IDENTICAL WITH OWN BUT ALSO HAVE A DATA EP DEFN  *
  2230  !*       IN THE LOAD DATA SO THEY CAN BE FOUND AT LOAD TIME            *
  2231  !*      EXTRINSICS HAVE A DATA REFERENCE AND A DUMMY HEADER IN THE GLA *
  2232  !*      THE LOADER USES THE FORMER TO RELOCATE THE LATTER.             *
  2233  !***********************************************************************
14207 @ 120083:               LINE   2222 "regression-compile-tmp/imp918s.imp"
14208 @ 120121:               BEGIN  _lev0id0_CSS_lev2id12 {lev=2 --> 3}

  2234           %ROUTINESPEC CLEAR(%INTEGER L)
14209 @ 120122:                  LINE   2234 "regression-compile-tmp/imp918s.imp"
14210 @ 120160:                  DEF    CLEAR (_lev0id0_CSS_lev2id12_CLEAR) p1=V_01ff 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
14211 @ 120177:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
14212 @ 120178:                     DEF    L p1=V_0200 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
14213 @ 120191:                  FINISH ) {lev=3}

  2235           %ROUTINESPEC STAG(%INTEGER J,DATALEN)
14214 @ 120192:                  LINE   2235 "regression-compile-tmp/imp918s.imp"
14215 @ 120230:                  DEF    STAG (_lev0id0_CSS_lev2id12_STAG) p1=V_0200 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
14216 @ 120246:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
14217 @ 120247:                     DEF    J p1=V_0201 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
14218 @ 120260:                     DEF    DATALEN p1=V_0202 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
14219 @ 120279:                  FINISH ) {lev=3}

  2236           %INTEGER LENGTH,BP,PP,SIGN,CBASE,MODE
14220 @ 120280:                  LINE   2236 "regression-compile-tmp/imp918s.imp"
14221 @ 120318:                  DEF    LENGTH p1=V_0201 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
14222 @ 120336:                  DEF    BP p1=V_0202 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
14223 @ 120350:                  DEF    PP p1=V_0203 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
14224 @ 120364:                  DEF    SIGN p1=V_0204 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
14225 @ 120380:                  DEF    CBASE p1=V_0205 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
14226 @ 120397:                  DEF    MODE p1=V_0206 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

  2237           %INTEGER ICONST,CTYPE,TAGDISP,EPTYPE,EPDISP
14227 @ 120413:                  LINE   2237 "regression-compile-tmp/imp918s.imp"
14228 @ 120451:                  DEF    ICONST p1=V_0207 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
14229 @ 120469:                  DEF    CTYPE p1=V_0208 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
14230 @ 120486:                  DEF    TAGDISP p1=V_0209 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
14231 @ 120505:                  DEF    EPTYPE p1=V_020a 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
14232 @ 120523:                  DEF    EPDISP p1=V_020b 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

  2238           %LONGREAL RCONST
14233 @ 120541:                  LINE   2238 "regression-compile-tmp/imp918s.imp"
14234 @ 120579:                  DEF    RCONST p1=V_020c a/tf=21 b/format=4 c/ostate=0  type=2 (real) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  2239           %STRING(255) SCONST
14235 @ 120597:                  LINE   2239 "regression-compile-tmp/imp918s.imp"
14236 @ 120635:                  DEF    SCONST p1=V_020d a/tf=31 b/format=ff c/ostate=0  type=3 (string) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  2240           %INTEGER AH1,AH2,AH3,AH4,AD,FNAM,FINF
14237 @ 120653:                  LINE   2240 "regression-compile-tmp/imp918s.imp"
14238 @ 120691:                  DEF    AH1 p1=V_020e 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
14239 @ 120706:                  DEF    AH2 p1=V_020f 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
14240 @ 120721:                  DEF    AH3 p1=V_0210 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
14241 @ 120736:                  DEF    AH4 p1=V_0211 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
14242 @ 120751:                  DEF    AD p1=V_0212 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
14243 @ 120765:                  DEF    FNAM p1=V_0213 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
14244 @ 120781:                  DEF    FINF p1=V_0214 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

  2241           %INTEGER SPOINT,CONSTSFOUND,EXTRN,NNAMES,MARK,LPUTP
14245 @ 120797:                  LINE   2241 "regression-compile-tmp/imp918s.imp"
14246 @ 120835:                  DEF    SPOINT p1=V_0215 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
14247 @ 120853:                  DEF    CONSTSFOUND p1=V_0216 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
14248 @ 120876:                  DEF    EXTRN p1=V_0217 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
14249 @ 120893:                  DEF    NNAMES p1=V_0218 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
14250 @ 120911:                  DEF    MARK p1=V_0219 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
14251 @ 120927:                  DEF    LPUTP p1=V_021a 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

  2242           %INTEGERNAME STPTR
14252 @ 120944:                  LINE   2242 "regression-compile-tmp/imp918s.imp"
14253 @ 120982:                  DEF    STPTR p1=V_021b a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  2243           LPUTP=5; STPTR==CONSTPTR;     ! NORMAL CASE GLA SYMBOLTABLES
  2244  !         FAULT(40,0) %IF NMDECS&1#0
14254 @ 120999:                  LINE   2243 "regression-compile-tmp/imp918s.imp"
14255 @ 121037:                  PUSH   LPUTP
14256 @ 121040:                  PUSHI  #0x00000005
14257 @ 121045:                  ASSVAL
14258 @ 121046:                  LINE   2243 "regression-compile-tmp/imp918s.imp"
14259 @ 121084:                  PUSH   STPTR
14260 @ 121087:                  PUSH   CONSTPTR
14261 @ 121090:                  ASSREF

  2245           EXTRN=A(P+1)&3
14262 @ 121091:                  LINE   2245 "regression-compile-tmp/imp918s.imp"
14263 @ 121129:                  PUSH   EXTRN
14264 @ 121132:                  PUSH   A
14265 @ 121135:                  PUSH   P
14266 @ 121138:                  PUSHI  #0x00000001
14267 @ 121143:                  ADD   
14268 @ 121144:                  ACCESS
14269 @ 121145:                  PUSHI  #0x00000003
14270 @ 121150:                  AND   
14271 @ 121151:                  ASSVAL

  2246           %IF EXTRN=0 %THEN LPUTP=4 %AND STPTR==SSTL
14272 @ 121152:                  LINE   2246 "regression-compile-tmp/imp918s.imp"
14273 @ 121190:                  PUSH   EXTRN
14274 @ 121193:                  PUSHI  #0x00000000
14275 @ 121198:                  JUMPIF # L_0004
14276 @ 121202:                  PUSH   LPUTP
14277 @ 121205:                  PUSHI  #0x00000004
14278 @ 121210:                  ASSVAL
14279 @ 121211:                  PUSH   STPTR
14280 @ 121214:                  PUSH   SSTL
14281 @ 121217:                  ASSREF
14282 @ 121218:                  LOCATE L_0004

  2247           P=P+3; CBASE=GLA
14283 @ 121221:                  LINE   2247 "regression-compile-tmp/imp918s.imp"
14284 @ 121259:                  PUSH   P
14285 @ 121262:                  PUSH   P
14286 @ 121265:                  PUSHI  #0x00000003
14287 @ 121270:                  ADD   
14288 @ 121271:                  ASSVAL
14289 @ 121272:                  LINE   2247 "regression-compile-tmp/imp918s.imp"
14290 @ 121310:                  PUSH   CBASE
14291 @ 121313:                  PUSHI  #0x0000000d
14292 @ 121318:                  ASSVAL

  2248           MODE=A(P-1);                ! MODE =1 FOR NORMAL OWNS
14293 @ 121319:                  LINE   2248 "regression-compile-tmp/imp918s.imp"
14294 @ 121357:                  PUSH   MODE
14295 @ 121360:                  PUSH   A
14296 @ 121363:                  PUSH   P
14297 @ 121366:                  PUSHI  #0x00000001
14298 @ 121371:                  SUB   
14299 @ 121372:                  ACCESS
14300 @ 121373:                  ASSVAL

  2249           ->RECORD %IF MODE>1;        ! MODE =2 FOR OWN RECORDS
14301 @ 121374:                  LINE   2249 "regression-compile-tmp/imp918s.imp"
14302 @ 121412:                  PUSH   MODE
14303 @ 121415:                  PUSHI  #0x00000001
14304 @ 121420:                  JUMPIF <= L_0004
14305 @ 121424:                  JUMP   L_021c
14306 @ 121427:                  LOCATE L_0004

  2250           CLT;                        ! MODE =3 FOR OWN RECORD ARRAYS
14307 @ 121430:                  LINE   2250 "regression-compile-tmp/imp918s.imp"
14308 @ 121468:                  PUSH   CLT
14309 @ 121471:                  CALL  

  2251           %IF TYPE=5 %AND ACC=0 %THEN FAULT(70,0) %AND ACC=2
14310 @ 121472:                  LINE   2251 "regression-compile-tmp/imp918s.imp"
14311 @ 121510:                  PUSH   TYPE
14312 @ 121513:                  PUSHI  #0x00000005
14313 @ 121518:                  JUMPIF # L_0004
14314 @ 121522:                  PUSH   ACC
14315 @ 121525:                  PUSHI  #0x00000000
14316 @ 121530:                  JUMPIF # L_0004
14317 @ 121534:                  PUSH   FAULT
14318 @ 121537:                  PUSHI  #0x00000046
14319 @ 121542:                  ASSPAR
14320 @ 121543:                  PUSHI  #0x00000000
14321 @ 121548:                  ASSPAR
14322 @ 121549:                  CALL  
14323 @ 121550:                  PUSH   ACC
14324 @ 121553:                  PUSHI  #0x00000002
14325 @ 121558:                  ASSVAL
14326 @ 121559:                  LOCATE L_0004

  2252           %IF EXTRN=0 %THEN PREC=PREC!4
14327 @ 121562:                  LINE   2252 "regression-compile-tmp/imp918s.imp"
14328 @ 121600:                  PUSH   EXTRN
14329 @ 121603:                  PUSHI  #0x00000000
14330 @ 121608:                  JUMPIF # L_0004
14331 @ 121612:                  PUSH   PREC
14332 @ 121615:                  PUSH   PREC
14333 @ 121618:                  PUSHI  #0x00000004
14334 @ 121623:                  OR    
14335 @ 121624:                  ASSVAL
14336 @ 121625:                  LOCATE L_0004

  2253           NAM=TYPE>>2; ROUT=0; ARR=A(P)-1; PACK(PTYPE)
14337 @ 121628:                  LINE   2253 "regression-compile-tmp/imp918s.imp"
14338 @ 121666:                  PUSH   NAM
14339 @ 121669:                  PUSH   TYPE
14340 @ 121672:                  PUSHI  #0x00000002
14341 @ 121677:                  RSH   
14342 @ 121678:                  ASSVAL
14343 @ 121679:                  LINE   2253 "regression-compile-tmp/imp918s.imp"
14344 @ 121717:                  PUSH   ROUT
14345 @ 121720:                  PUSHI  #0x00000000
14346 @ 121725:                  ASSVAL
14347 @ 121726:                  LINE   2253 "regression-compile-tmp/imp918s.imp"
14348 @ 121764:                  PUSH   ARR
14349 @ 121767:                  PUSH   A
14350 @ 121770:                  PUSH   P
14351 @ 121773:                  ACCESS
14352 @ 121774:                  PUSHI  #0x00000001
14353 @ 121779:                  SUB   
14354 @ 121780:                  ASSVAL
14355 @ 121781:                  LINE   2253 "regression-compile-tmp/imp918s.imp"
14356 @ 121819:                  PUSH   PACK
14357 @ 121822:                  PUSH   PTYPE
14358 @ 121825:                  ASSPAR
14359 @ 121826:                  CALL  

  2254           -> NON SCALAR  %UNLESS ARR=0
14360 @ 121827:                  LINE   2254 "regression-compile-tmp/imp918s.imp"
14361 @ 121865:                  PUSH   ARR
14362 @ 121868:                  PUSHI  #0x00000000
14363 @ 121873:                  JUMPIF = L_0004
14364 @ 121877:                  JUMP   L_021d
14365 @ 121880:                  LOCATE L_0004

  2255           %CYCLE;    ! UNTIL <RESTOFOWNDEC> NULL
14366 @ 121883:                  LINE   2255 "regression-compile-tmp/imp918s.imp"
14367 @ 121921:                  LOCATE L_0003

  2256              MARK= P+1+A(P+1); NNAMES=A(P+2)
14368 @ 121924:                  LINE   2256 "regression-compile-tmp/imp918s.imp"
14369 @ 121962:                  PUSH   MARK
14370 @ 121965:                  PUSH   P
14371 @ 121968:                  PUSHI  #0x00000001
14372 @ 121973:                  ADD   
14373 @ 121974:                  PUSH   A
14374 @ 121977:                  PUSH   P
14375 @ 121980:                  PUSHI  #0x00000001
14376 @ 121985:                  ADD   
14377 @ 121986:                  ACCESS
14378 @ 121987:                  ADD   
14379 @ 121988:                  ASSVAL
14380 @ 121989:                  LINE   2256 "regression-compile-tmp/imp918s.imp"
14381 @ 122027:                  PUSH   NNAMES
14382 @ 122030:                  PUSH   A
14383 @ 122033:                  PUSH   P
14384 @ 122036:                  PUSHI  #0x00000002
14385 @ 122041:                  ADD   
14386 @ 122042:                  ACCESS
14387 @ 122043:                  ASSVAL

  2257              PP=P+3; P=PP+NNAMES;        ! P ON CONST'
  2258     !
  2259     ! OBTAIN THE INITIAL CONSTANT,ITS TYPE(CTYPE) AND SIGN(SIGN)
  2260     ! CONVERT TO ALL LEGAL FORMS AND STORE THE INTEGER IN ICONST
  2261     ! THE REAL IN RCONST AND THE STRING IN SCONST.
  2262     ! NB 65 IS A VALID INTEGER OR REAL AND ALSO A STRING ('A')
  2263     !
14388 @ 122044:                  LINE   2257 "regression-compile-tmp/imp918s.imp"
14389 @ 122082:                  PUSH   PP
14390 @ 122085:                  PUSH   P
14391 @ 122088:                  PUSHI  #0x00000003
14392 @ 122093:                  ADD   
14393 @ 122094:                  ASSVAL
14394 @ 122095:                  LINE   2257 "regression-compile-tmp/imp918s.imp"
14395 @ 122133:                  PUSH   P
14396 @ 122136:                  PUSH   PP
14397 @ 122139:                  PUSH   NNAMES
14398 @ 122142:                  ADD   
14399 @ 122143:                  ASSVAL

  2264              ICONST=0; RCONST=0; SCONST=""
14400 @ 122144:                  LINE   2264 "regression-compile-tmp/imp918s.imp"
14401 @ 122182:                  PUSH   ICONST
14402 @ 122185:                  PUSHI  #0x00000000
14403 @ 122190:                  ASSVAL
14404 @ 122191:                  LINE   2264 "regression-compile-tmp/imp918s.imp"
14405 @ 122229:                  PUSH   RCONST
14406 @ 122232:                  PUSHI  #0x00000000
14407 @ 122237:                  ASSVAL
14408 @ 122238:                  LINE   2264 "regression-compile-tmp/imp918s.imp"
14409 @ 122276:                  PUSH   SCONST
14410 @ 122279:                  PUSHS  ""
14411 @ 122281:                  ASSVAL

  2265              SIGN=4; CTYPE=TYPE; CONSTSFOUND=0
  2266     !
14412 @ 122282:                  LINE   2265 "regression-compile-tmp/imp918s.imp"
14413 @ 122320:                  PUSH   SIGN
14414 @ 122323:                  PUSHI  #0x00000004
14415 @ 122328:                  ASSVAL
14416 @ 122329:                  LINE   2265 "regression-compile-tmp/imp918s.imp"
14417 @ 122367:                  PUSH   CTYPE
14418 @ 122370:                  PUSH   TYPE
14419 @ 122373:                  ASSVAL
14420 @ 122374:                  LINE   2265 "regression-compile-tmp/imp918s.imp"
14421 @ 122412:                  PUSH   CONSTSFOUND
14422 @ 122415:                  PUSHI  #0x00000000
14423 @ 122420:                  ASSVAL

  2267              %IF A(P)=1 %THEN %START;     ! CONSTANT GIVEN
14424 @ 122421:                  LINE   2267 "regression-compile-tmp/imp918s.imp"
14425 @ 122459:                  PUSH   A
14426 @ 122462:                  PUSH   P
14427 @ 122465:                  ACCESS
14428 @ 122466:                  PUSHI  #0x00000001
14429 @ 122471:                  JUMPIF # L_0007

  2268                 SIGN=A(P+1); CTYPE=A(P+2)&7
14430 @ 122475:                  LINE   2268 "regression-compile-tmp/imp918s.imp"
14431 @ 122513:                  PUSH   SIGN
14432 @ 122516:                  PUSH   A
14433 @ 122519:                  PUSH   P
14434 @ 122522:                  PUSHI  #0x00000001
14435 @ 122527:                  ADD   
14436 @ 122528:                  ACCESS
14437 @ 122529:                  ASSVAL
14438 @ 122530:                  LINE   2268 "regression-compile-tmp/imp918s.imp"
14439 @ 122568:                  PUSH   CTYPE
14440 @ 122571:                  PUSH   A
14441 @ 122574:                  PUSH   P
14442 @ 122577:                  PUSHI  #0x00000002
14443 @ 122582:                  ADD   
14444 @ 122583:                  ACCESS
14445 @ 122584:                  PUSHI  #0x00000007
14446 @ 122589:                  AND   
14447 @ 122590:                  ASSVAL

  2269                 CONSTSFOUND=1
14448 @ 122591:                  LINE   2269 "regression-compile-tmp/imp918s.imp"
14449 @ 122629:                  PUSH   CONSTSFOUND
14450 @ 122632:                  PUSHI  #0x00000001
14451 @ 122637:                  ASSVAL

  2270                 %IF CTYPE=2 %THEN %START; ! REAL CONSTANT
14452 @ 122638:                  LINE   2270 "regression-compile-tmp/imp918s.imp"
14453 @ 122676:                  PUSH   CTYPE
14454 @ 122679:                  PUSHI  #0x00000002
14455 @ 122684:                  JUMPIF # L_000a

  2271                    FROMAR8(P+3,RCONST)
14456 @ 122688:                  LINE   2271 "regression-compile-tmp/imp918s.imp"
14457 @ 122726:                  PUSH   FROMAR8
14458 @ 122729:                  PUSH   P
14459 @ 122732:                  PUSHI  #0x00000003
14460 @ 122737:                  ADD   
14461 @ 122738:                  ASSPAR
14462 @ 122739:                  PUSH   RCONST
14463 @ 122742:                  ASSPAR
14464 @ 122743:                  CALL  

  2272                    %IF SIGN=2 %THEN RCONST=-RCONST
14465 @ 122744:                  LINE   2272 "regression-compile-tmp/imp918s.imp"
14466 @ 122782:                  PUSH   SIGN
14467 @ 122785:                  PUSHI  #0x00000002
14468 @ 122790:                  JUMPIF # L_000d
14469 @ 122794:                  PUSH   RCONST
14470 @ 122797:                  PUSH   RCONST
14471 @ 122800:                  NEGATE
14472 @ 122801:                  ASSVAL
14473 @ 122802:                  LOCATE L_000d

  2273                 %FINISH
  2274     !
14474 @ 122805:                  LINE   2273 "regression-compile-tmp/imp918s.imp"
14475 @ 122843:                  LOCATE L_000a

  2275                 %IF CTYPE=5 %THEN SCONST=STRING(ADDR(A(P+3))+1)
  2276     !
14476 @ 122846:                  LINE   2275 "regression-compile-tmp/imp918s.imp"
14477 @ 122884:                  PUSH   CTYPE
14478 @ 122887:                  PUSHI  #0x00000005
14479 @ 122892:                  JUMPIF # L_000a
14480 @ 122896:                  PUSH   SCONST
14481 @ 122899:                  PUSH   STRING
14482 @ 122902:                  PUSH   ADDR
14483 @ 122905:                  PUSH   A
14484 @ 122908:                  PUSH   P
14485 @ 122911:                  PUSHI  #0x00000003
14486 @ 122916:                  ADD   
14487 @ 122917:                  ACCESS
14488 @ 122918:                  ASSPAR
14489 @ 122919:                  CALL  
14490 @ 122920:                  PUSHI  #0x00000001
14491 @ 122925:                  ADD   
14492 @ 122926:                  ASSPAR
14493 @ 122927:                  CALL  
14494 @ 122928:                  ASSVAL
14495 @ 122929:                  LOCATE L_000a

  2277                 %IF CTYPE=1 %THEN %START; ! INTEGER CONSTANT
14496 @ 122932:                  LINE   2277 "regression-compile-tmp/imp918s.imp"
14497 @ 122970:                  PUSH   CTYPE
14498 @ 122973:                  PUSHI  #0x00000001
14499 @ 122978:                  JUMPIF # L_000a

  2278                    FROMAR4(P+3,ICONST)
14500 @ 122982:                  LINE   2278 "regression-compile-tmp/imp918s.imp"
14501 @ 123020:                  PUSH   FROMAR4
14502 @ 123023:                  PUSH   P
14503 @ 123026:                  PUSHI  #0x00000003
14504 @ 123031:                  ADD   
14505 @ 123032:                  ASSPAR
14506 @ 123033:                  PUSH   ICONST
14507 @ 123036:                  ASSPAR
14508 @ 123037:                  CALL  

  2279                    %IF SIGN=2 %THEN ICONST=-ICONST
14509 @ 123038:                  LINE   2279 "regression-compile-tmp/imp918s.imp"
14510 @ 123076:                  PUSH   SIGN
14511 @ 123079:                  PUSHI  #0x00000002
14512 @ 123084:                  JUMPIF # L_000d
14513 @ 123088:                  PUSH   ICONST
14514 @ 123091:                  PUSH   ICONST
14515 @ 123094:                  NEGATE
14516 @ 123095:                  ASSVAL
14517 @ 123096:                  LOCATE L_000d

  2280                    %IF SIGN=3 %THEN ICONST=\ICONST
14518 @ 123099:                  LINE   2280 "regression-compile-tmp/imp918s.imp"
14519 @ 123137:                  PUSH   SIGN
14520 @ 123140:                  PUSHI  #0x00000003
14521 @ 123145:                  JUMPIF # L_000d
14522 @ 123149:                  PUSH   ICONST
14523 @ 123152:                  PUSH   ICONST
14524 @ 123155:                  NOT   
14525 @ 123156:                  ASSVAL
14526 @ 123157:                  LOCATE L_000d

  2281                    %IF TYPE=2 %THEN %C
  2282                    RCONST=ICONST;         ! INTEGER A SPECIAL CASE OF REAL
14527 @ 123160:                  LINE   2281 "regression-compile-tmp/imp918s.imp"
14528 @ 123198:                  PUSH   TYPE
14529 @ 123201:                  PUSHI  #0x00000002
14530 @ 123206:                  JUMPIF # L_000d
14531 @ 123210:                  PUSH   RCONST
14532 @ 123213:                  PUSH   ICONST
14533 @ 123216:                  ASSVAL
14534 @ 123217:                  LOCATE L_000d

  2283                    %IF 1<=ICONST<=127 %THEN SCONST=TOSTRING(ICONST)
14535 @ 123220:                  LINE   2283 "regression-compile-tmp/imp918s.imp"
14536 @ 123258:                  PUSHI  #0x00000001
14537 @ 123263:                  PUSH   ICONST
14538 @ 123266:                  JUMPIFD > L_000d
14539 @ 123270:                  PUSHI  #0x0000007f
14540 @ 123275:                  JUMPIF > L_000d
14541 @ 123279:                  PUSH   SCONST
14542 @ 123282:                  PUSH   TOSTRING
14543 @ 123285:                  PUSH   ICONST
14544 @ 123288:                  ASSPAR
14545 @ 123289:                  CALL  
14546 @ 123290:                  ASSVAL
14547 @ 123291:                  LOCATE L_000d

  2284                 %FINISH
14548 @ 123294:                  LINE   2284 "regression-compile-tmp/imp918s.imp"
14549 @ 123332:                  LOCATE L_000a

  2285              %FINISH
14550 @ 123335:                  LINE   2285 "regression-compile-tmp/imp918s.imp"
14551 @ 123373:                  LOCATE L_0007

  2286              LENGTH=BYTEINTEGER(ADDR(SCONST))
  2287     !
  2288     !
  2289     ! FAULT ANY OBVIOUS ERRORS IE:-
  2290     ! CONSTANT FOR EXTRINSIC OR INCOMPATIBLE TYPE OR STRING TOO LONG
  2291     !
14552 @ 123376:                  LINE   2286 "regression-compile-tmp/imp918s.imp"
14553 @ 123414:                  PUSH   LENGTH
14554 @ 123417:                  PUSH   BYTEINTEGER
14555 @ 123420:                  PUSH   ADDR
14556 @ 123423:                  PUSH   SCONST
14557 @ 123426:                  ASSPAR
14558 @ 123427:                  CALL  
14559 @ 123428:                  ASSPAR
14560 @ 123429:                  CALL  
14561 @ 123430:                  ASSVAL

  2292              %IF (EXTRN=3 %AND CONSTSFOUND#0 ) %OR %C
  2293                 (CTYPE=2 %AND TYPE#2) %OR %C
  2294                 (CTYPE=5 %AND (TYPE#5 %OR SIGN#4 %OR LENGTH>=ACC)) %C
  2295                 %OR (SIGN=3 %AND CTYPE#1) %THEN FAULT(44,0)
  2296     !
14562 @ 123431:                  LINE   2292 "regression-compile-tmp/imp918s.imp"
14563 @ 123469:                  PUSH   EXTRN
14564 @ 123472:                  PUSHI  #0x00000003
14565 @ 123477:                  JUMPIF # L_0009
14566 @ 123481:                  PUSH   CONSTSFOUND
14567 @ 123484:                  PUSHI  #0x00000000
14568 @ 123489:                  JUMPIF # L_0008
14569 @ 123493:                  LOCATE L_0009
14570 @ 123496:                  PUSH   CTYPE
14571 @ 123499:                  PUSHI  #0x00000002
14572 @ 123504:                  JUMPIF # L_0009
14573 @ 123508:                  PUSH   TYPE
14574 @ 123511:                  PUSHI  #0x00000002
14575 @ 123516:                  JUMPIF # L_0008
14576 @ 123520:                  LOCATE L_0009
14577 @ 123523:                  PUSH   CTYPE
14578 @ 123526:                  PUSHI  #0x00000005
14579 @ 123531:                  JUMPIF # L_0009
14580 @ 123535:                  PUSH   TYPE
14581 @ 123538:                  PUSHI  #0x00000005
14582 @ 123543:                  JUMPIF # L_0008
14583 @ 123547:                  PUSH   SIGN
14584 @ 123550:                  PUSHI  #0x00000004
14585 @ 123555:                  JUMPIF # L_0008
14586 @ 123559:                  PUSH   LENGTH
14587 @ 123562:                  PUSH   ACC
14588 @ 123565:                  JUMPIF >= L_0008
14589 @ 123569:                  LOCATE L_0009
14590 @ 123572:                  PUSH   SIGN
14591 @ 123575:                  PUSHI  #0x00000003
14592 @ 123580:                  JUMPIF # L_0007
14593 @ 123584:                  PUSH   CTYPE
14594 @ 123587:                  PUSHI  #0x00000001
14595 @ 123592:                  JUMPIF = L_0007
14596 @ 123596:                  LOCATE L_0008
14597 @ 123599:                  PUSH   FAULT
14598 @ 123602:                  PUSHI  #0x0000002c
14599 @ 123607:                  ASSPAR
14600 @ 123608:                  PUSHI  #0x00000000
14601 @ 123613:                  ASSPAR
14602 @ 123614:                  CALL  
14603 @ 123615:                  LOCATE L_0007

  2297              %CYCLE;         ! DOWN <NAMELIST>
14604 @ 123618:                  LINE   2297 "regression-compile-tmp/imp918s.imp"
14605 @ 123656:                  LOCATE L_0006

  2298                 J=0; K=A(PP)
14606 @ 123659:                  LINE   2298 "regression-compile-tmp/imp918s.imp"
14607 @ 123697:                  PUSH   J
14608 @ 123700:                  PUSHI  #0x00000000
14609 @ 123705:                  ASSVAL
14610 @ 123706:                  LINE   2298 "regression-compile-tmp/imp918s.imp"
14611 @ 123744:                  PUSH   K
14612 @ 123747:                  PUSH   A
14613 @ 123750:                  PUSH   PP
14614 @ 123753:                  ACCESS
14615 @ 123754:                  ASSVAL

  2299                 %IF TYPE=5 %THEN %START;         ! STRING
14616 @ 123755:                  LINE   2299 "regression-compile-tmp/imp918s.imp"
14617 @ 123793:                  PUSH   TYPE
14618 @ 123796:                  PUSHI  #0x00000005
14619 @ 123801:                  JUMPIF # L_000a

  2300                    QQ=STPTR; AD=ADDR(SCONST)
14620 @ 123805:                  LINE   2300 "regression-compile-tmp/imp918s.imp"
14621 @ 123843:                  PUSH   QQ
14622 @ 123846:                  PUSH   STPTR
14623 @ 123849:                  ASSVAL
14624 @ 123850:                  LINE   2300 "regression-compile-tmp/imp918s.imp"
14625 @ 123888:                  PUSH   AD
14626 @ 123891:                  PUSH   ADDR
14627 @ 123894:                  PUSH   SCONST
14628 @ 123897:                  ASSPAR
14629 @ 123898:                  CALL  
14630 @ 123899:                  ASSVAL

  2301                    %IF EXTRN<=1 %AND ACC<=8 %THEN %START
14631 @ 123900:                  LINE   2301 "regression-compile-tmp/imp918s.imp"
14632 @ 123938:                  PUSH   EXTRN
14633 @ 123941:                  PUSHI  #0x00000001
14634 @ 123946:                  JUMPIF > L_000d
14635 @ 123950:                  PUSH   ACC
14636 @ 123953:                  PUSHI  #0x00000008
14637 @ 123958:                  JUMPIF > L_000d

  2302                       NAM=0; PACK(PTYPE)
14638 @ 123962:                  LINE   2302 "regression-compile-tmp/imp918s.imp"
14639 @ 124000:                  PUSH   NAM
14640 @ 124003:                  PUSHI  #0x00000000
14641 @ 124008:                  ASSVAL
14642 @ 124009:                  LINE   2302 "regression-compile-tmp/imp918s.imp"
14643 @ 124047:                  PUSH   PACK
14644 @ 124050:                  PUSH   PTYPE
14645 @ 124053:                  ASSPAR
14646 @ 124054:                  CALL  

  2303                       TAGDISP=GLACA;    ! SHORT STRING INTO GLA NO POINTER
14647 @ 124055:                  LINE   2303 "regression-compile-tmp/imp918s.imp"
14648 @ 124093:                  PUSH   TAGDISP
14649 @ 124096:                  PUSH   GLACA
14650 @ 124099:                  ASSVAL

  2304                       PGLA(1,ACC,AD)
14651 @ 124100:                  LINE   2304 "regression-compile-tmp/imp918s.imp"
14652 @ 124138:                  PUSH   PGLA
14653 @ 124141:                  PUSHI  #0x00000001
14654 @ 124146:                  ASSPAR
14655 @ 124147:                  PUSH   ACC
14656 @ 124150:                  ASSPAR
14657 @ 124151:                  PUSH   AD
14658 @ 124154:                  ASSPAR
14659 @ 124155:                  CALL  

  2305                    %FINISH %ELSE %START
14660 @ 124156:                  LINE   2305 "regression-compile-tmp/imp918s.imp"
14661 @ 124194:                  GOTO   L_000c
14662 @ 124197:                  LOCATE L_000d

  2306                       %IF EXTRN=3 %THEN %START;  ! EXTRINSIC STRINGS
14663 @ 124200:                  LINE   2306 "regression-compile-tmp/imp918s.imp"
14664 @ 124238:                  PUSH   EXTRN
14665 @ 124241:                  PUSHI  #0x00000003
14666 @ 124246:                  JUMPIF # L_0010

  2307                          AH3=0;                  ! DUMMY STRING HEADER
14667 @ 124250:                  LINE   2307 "regression-compile-tmp/imp918s.imp"
14668 @ 124288:                  PUSH   AH3
14669 @ 124291:                  PUSHI  #0x00000000
14670 @ 124296:                  ASSVAL

  2308                       %FINISH %ELSE %START
14671 @ 124297:                  LINE   2308 "regression-compile-tmp/imp918s.imp"
14672 @ 124335:                  GOTO   L_000f
14673 @ 124338:                  LOCATE L_0010

  2309                          LPUT(LPUTP,ACC,QQ,AD) %IF INHCODE=0;! O/P STRING
14674 @ 124341:                  LINE   2309 "regression-compile-tmp/imp918s.imp"
14675 @ 124379:                  PUSH   INHCODE
14676 @ 124382:                  PUSHI  #0x00000000
14677 @ 124387:                  JUMPIF # L_0013
14678 @ 124391:                  PUSH   LPUT
14679 @ 124394:                  PUSH   LPUTP
14680 @ 124397:                  ASSPAR
14681 @ 124398:                  PUSH   ACC
14682 @ 124401:                  ASSPAR
14683 @ 124402:                  PUSH   QQ
14684 @ 124405:                  ASSPAR
14685 @ 124406:                  PUSH   AD
14686 @ 124409:                  ASSPAR
14687 @ 124410:                  CALL  
14688 @ 124411:                  LOCATE L_0013

  2310                          STPTR=(STPTR+ACC+3)&(-4)
14689 @ 124414:                  LINE   2310 "regression-compile-tmp/imp918s.imp"
14690 @ 124452:                  PUSH   STPTR
14691 @ 124455:                  PUSH   STPTR
14692 @ 124458:                  PUSH   ACC
14693 @ 124461:                  ADD   
14694 @ 124462:                  PUSHI  #0x00000003
14695 @ 124467:                  ADD   
14696 @ 124468:                  PUSHI  #0x00000004
14697 @ 124473:                  NEGATE
14698 @ 124474:                  AND   
14699 @ 124475:                  ASSVAL

  2311                          AH3=QQ
14700 @ 124476:                  LINE   2311 "regression-compile-tmp/imp918s.imp"
14701 @ 124514:                  PUSH   AH3
14702 @ 124517:                  PUSH   QQ
14703 @ 124520:                  ASSVAL

  2312                       %FINISH
14704 @ 124521:                  LINE   2312 "regression-compile-tmp/imp918s.imp"
14705 @ 124559:                  LOCATE L_000f

  2313                       AH3=AH3!(ACC-1)<<24
14706 @ 124562:                  LINE   2313 "regression-compile-tmp/imp918s.imp"
14707 @ 124600:                  PUSH   AH3
14708 @ 124603:                  PUSH   AH3
14709 @ 124606:                  PUSH   ACC
14710 @ 124609:                  PUSHI  #0x00000001
14711 @ 124614:                  SUB   
14712 @ 124615:                  PUSHI  #0x00000018
14713 @ 124620:                  LSH   
14714 @ 124621:                  OR    
14715 @ 124622:                  ASSVAL

  2314                       PGLA(4,4,ADDR(AH3))
14716 @ 124623:                  LINE   2314 "regression-compile-tmp/imp918s.imp"
14717 @ 124661:                  PUSH   PGLA
14718 @ 124664:                  PUSHI  #0x00000004
14719 @ 124669:                  ASSPAR
14720 @ 124670:                  PUSHI  #0x00000004
14721 @ 124675:                  ASSPAR
14722 @ 124676:                  PUSH   ADDR
14723 @ 124679:                  PUSH   AH3
14724 @ 124682:                  ASSPAR
14725 @ 124683:                  CALL  
14726 @ 124684:                  ASSPAR
14727 @ 124685:                  CALL  

  2315                       TAGDISP=GLACA-4
14728 @ 124686:                  LINE   2315 "regression-compile-tmp/imp918s.imp"
14729 @ 124724:                  PUSH   TAGDISP
14730 @ 124727:                  PUSH   GLACA
14731 @ 124730:                  PUSHI  #0x00000004
14732 @ 124735:                  SUB   
14733 @ 124736:                  ASSVAL

  2316                       %IF EXTRN=3 %THEN GXREF(2,K,ACC,TAGDISP) %C
  2317                          %ELSE RELOCATE(TAGDISP,AH3,LPUTP)
14734 @ 124737:                  LINE   2316 "regression-compile-tmp/imp918s.imp"
14735 @ 124775:                  PUSH   EXTRN
14736 @ 124778:                  PUSHI  #0x00000003
14737 @ 124783:                  JUMPIF # L_0010
14738 @ 124787:                  PUSH   GXREF
14739 @ 124790:                  PUSHI  #0x00000002
14740 @ 124795:                  ASSPAR
14741 @ 124796:                  PUSH   K
14742 @ 124799:                  ASSPAR
14743 @ 124800:                  PUSH   ACC
14744 @ 124803:                  ASSPAR
14745 @ 124804:                  PUSH   TAGDISP
14746 @ 124807:                  ASSPAR
14747 @ 124808:                  CALL  
14748 @ 124809:                  GOTO   L_000f
14749 @ 124812:                  LOCATE L_0010
14750 @ 124815:                  PUSH   RELOCATE
14751 @ 124818:                  PUSH   TAGDISP
14752 @ 124821:                  ASSPAR
14753 @ 124822:                  PUSH   AH3
14754 @ 124825:                  ASSPAR
14755 @ 124826:                  PUSH   LPUTP
14756 @ 124829:                  ASSPAR
14757 @ 124830:                  CALL  
14758 @ 124831:                  LOCATE L_000f

  2318                       EPTYPE=4; EPDISP=QQ;       ! DATA IN GLA SYMBOL TABLES
14759 @ 124834:                  LINE   2318 "regression-compile-tmp/imp918s.imp"
14760 @ 124872:                  PUSH   EPTYPE
14761 @ 124875:                  PUSHI  #0x00000004
14762 @ 124880:                  ASSVAL
14763 @ 124881:                  LINE   2318 "regression-compile-tmp/imp918s.imp"
14764 @ 124919:                  PUSH   EPDISP
14765 @ 124922:                  PUSH   QQ
14766 @ 124925:                  ASSVAL

  2319                    %FINISH
14767 @ 124926:                  LINE   2319 "regression-compile-tmp/imp918s.imp"
14768 @ 124964:                  LOCATE L_000c

  2320                 %FINISH %ELSE %START;           ! INTEGER & REAL
14769 @ 124967:                  LINE   2320 "regression-compile-tmp/imp918s.imp"
14770 @ 125005:                  GOTO   L_0009
14771 @ 125008:                  LOCATE L_000a

  2321                    %IF EXTRN=3 %THEN %START;    ! EXTRINSICS
14772 @ 125011:                  LINE   2321 "regression-compile-tmp/imp918s.imp"
14773 @ 125049:                  PUSH   EXTRN
14774 @ 125052:                  PUSHI  #0x00000003
14775 @ 125057:                  JUMPIF # L_000d

  2322                       NAM=1; PACK(PTYPE);       ! EXTRINSICS VIA PTR
14776 @ 125061:                  LINE   2322 "regression-compile-tmp/imp918s.imp"
14777 @ 125099:                  PUSH   NAM
14778 @ 125102:                  PUSHI  #0x00000001
14779 @ 125107:                  ASSVAL
14780 @ 125108:                  LINE   2322 "regression-compile-tmp/imp918s.imp"
14781 @ 125146:                  PUSH   PACK
14782 @ 125149:                  PUSH   PTYPE
14783 @ 125152:                  ASSPAR
14784 @ 125153:                  CALL  

  2323                       CXREF(2,K,ACC,TAGDISP)
14785 @ 125154:                  LINE   2323 "regression-compile-tmp/imp918s.imp"
14786 @ 125192:                  PUSH   CXREF
14787 @ 125195:                  PUSHI  #0x00000002
14788 @ 125200:                  ASSPAR
14789 @ 125201:                  PUSH   K
14790 @ 125204:                  ASSPAR
14791 @ 125205:                  PUSH   ACC
14792 @ 125208:                  ASSPAR
14793 @ 125209:                  PUSH   TAGDISP
14794 @ 125212:                  ASSPAR
14795 @ 125213:                  CALL  

  2324                    %FINISH %ELSE %START;        ! OWN,EXTERNAL&CONST
14796 @ 125214:                  LINE   2324 "regression-compile-tmp/imp918s.imp"
14797 @ 125252:                  GOTO   L_000c
14798 @ 125255:                  LOCATE L_000d

  2325                       %IF TYPE=2 %THEN %START
14799 @ 125258:                  LINE   2325 "regression-compile-tmp/imp918s.imp"
14800 @ 125296:                  PUSH   TYPE
14801 @ 125299:                  PUSHI  #0x00000002
14802 @ 125304:                  JUMPIF # L_0010

  2326                          AD=ADDR(RCONST)
14803 @ 125308:                  LINE   2326 "regression-compile-tmp/imp918s.imp"
14804 @ 125346:                  PUSH   AD
14805 @ 125349:                  PUSH   ADDR
14806 @ 125352:                  PUSH   RCONST
14807 @ 125355:                  ASSPAR
14808 @ 125356:                  CALL  
14809 @ 125357:                  ASSVAL

  2327                       %FINISH %ELSE %START;     ! INTEGER VARIABLES
14810 @ 125358:                  LINE   2327 "regression-compile-tmp/imp918s.imp"
14811 @ 125396:                  GOTO   L_000f
14812 @ 125399:                  LOCATE L_0010

  2328                          FAULT(44,0) %IF (PREC&3=1 %AND ICONST>255) %C
  2329                                    %OR (PREC&3=2 %AND |ICONST|>>16#0)
14813 @ 125402:                  LINE   2328 "regression-compile-tmp/imp918s.imp"
14814 @ 125440:                  PUSH   PREC
14815 @ 125443:                  PUSHI  #0x00000003
14816 @ 125448:                  AND   
14817 @ 125449:                  PUSHI  #0x00000001
14818 @ 125454:                  JUMPIF # L_0015
14819 @ 125458:                  PUSH   ICONST
14820 @ 125461:                  PUSHI  #0x000000ff
14821 @ 125466:                  JUMPIF > L_0014
14822 @ 125470:                  LOCATE L_0015
14823 @ 125473:                  PUSH   PREC
14824 @ 125476:                  PUSHI  #0x00000003
14825 @ 125481:                  AND   
14826 @ 125482:                  PUSHI  #0x00000002
14827 @ 125487:                  JUMPIF # L_0013
14828 @ 125491:                  PUSH   ICONST
14829 @ 125494:                  MOD   
14830 @ 125495:                  PUSHI  #0x00000010
14831 @ 125500:                  RSH   
14832 @ 125501:                  PUSHI  #0x00000000
14833 @ 125506:                  JUMPIF = L_0013
14834 @ 125510:                  LOCATE L_0014
14835 @ 125513:                  PUSH   FAULT
14836 @ 125516:                  PUSHI  #0x0000002c
14837 @ 125521:                  ASSPAR
14838 @ 125522:                  PUSHI  #0x00000000
14839 @ 125527:                  ASSPAR
14840 @ 125528:                  CALL  
14841 @ 125529:                  LOCATE L_0013

  2330                          AD=ADDR(ICONST)+4-ACC
14842 @ 125532:                  LINE   2330 "regression-compile-tmp/imp918s.imp"
14843 @ 125570:                  PUSH   AD
14844 @ 125573:                  PUSH   ADDR
14845 @ 125576:                  PUSH   ICONST
14846 @ 125579:                  ASSPAR
14847 @ 125580:                  CALL  
14848 @ 125581:                  PUSHI  #0x00000004
14849 @ 125586:                  ADD   
14850 @ 125587:                  PUSH   ACC
14851 @ 125590:                  SUB   
14852 @ 125591:                  ASSVAL

  2331                       %FINISH
14853 @ 125592:                  LINE   2331 "regression-compile-tmp/imp918s.imp"
14854 @ 125630:                  LOCATE L_000f

  2332                       %IF TYPE=1 %AND EXTRN=0 %AND 0<=ICONST<4096 %C
  2333                          %THEN KFORM=ICONST %ELSE KFORM=-1
14855 @ 125633:                  LINE   2332 "regression-compile-tmp/imp918s.imp"
14856 @ 125671:                  PUSH   TYPE
14857 @ 125674:                  PUSHI  #0x00000001
14858 @ 125679:                  JUMPIF # L_0010
14859 @ 125683:                  PUSH   EXTRN
14860 @ 125686:                  PUSHI  #0x00000000
14861 @ 125691:                  JUMPIF # L_0010
14862 @ 125695:                  PUSHI  #0x00000000
14863 @ 125700:                  PUSH   ICONST
14864 @ 125703:                  JUMPIFD > L_0010
14865 @ 125707:                  PUSHI  #0x00001000
14866 @ 125712:                  JUMPIF >= L_0010
14867 @ 125716:                  PUSH   KFORM
14868 @ 125719:                  PUSH   ICONST
14869 @ 125722:                  ASSVAL
14870 @ 125723:                  GOTO   L_000f
14871 @ 125726:                  LOCATE L_0010
14872 @ 125729:                  PUSH   KFORM
14873 @ 125732:                  PUSHI  #0x00000001
14874 @ 125737:                  NEGATE
14875 @ 125738:                  ASSVAL
14876 @ 125739:                  LOCATE L_000f

  2334                       %IF EXTRN=0 %AND ACC>1 %START;  !CONST VAR==CONST SO SHARE IT
14877 @ 125742:                  LINE   2334 "regression-compile-tmp/imp918s.imp"
14878 @ 125780:                  PUSH   EXTRN
14879 @ 125783:                  PUSHI  #0x00000000
14880 @ 125788:                  JUMPIF # L_0010
14881 @ 125792:                  PUSH   ACC
14882 @ 125795:                  PUSHI  #0x00000001
14883 @ 125800:                  JUMPIF <= L_0010

  2335                          STORE CONST(CBASE,TAGDISP,ACC,AD)
14884 @ 125804:                  LINE   2335 "regression-compile-tmp/imp918s.imp"
14885 @ 125842:                  PUSH   STORECONST
14886 @ 125845:                  PUSH   CBASE
14887 @ 125848:                  ASSPAR
14888 @ 125849:                  PUSH   TAGDISP
14889 @ 125852:                  ASSPAR
14890 @ 125853:                  PUSH   ACC
14891 @ 125856:                  ASSPAR
14892 @ 125857:                  PUSH   AD
14893 @ 125860:                  ASSPAR
14894 @ 125861:                  CALL  

  2336                       %FINISH %ELSE %START
14895 @ 125862:                  LINE   2336 "regression-compile-tmp/imp918s.imp"
14896 @ 125900:                  GOTO   L_000f
14897 @ 125903:                  LOCATE L_0010

  2337                          PGLA(ACC,ACC,AD);      ! PUT CONSTANT INTO GLA
14898 @ 125906:                  LINE   2337 "regression-compile-tmp/imp918s.imp"
14899 @ 125944:                  PUSH   PGLA
14900 @ 125947:                  PUSH   ACC
14901 @ 125950:                  ASSPAR
14902 @ 125951:                  PUSH   ACC
14903 @ 125954:                  ASSPAR
14904 @ 125955:                  PUSH   AD
14905 @ 125958:                  ASSPAR
14906 @ 125959:                  CALL  

  2338                          CBASE=GLA
14907 @ 125960:                  LINE   2338 "regression-compile-tmp/imp918s.imp"
14908 @ 125998:                  PUSH   CBASE
14909 @ 126001:                  PUSHI  #0x0000000d
14910 @ 126006:                  ASSVAL

  2339                          TAGDISP=GLACA-ACC;     ! OFFSET OF VAR FOR TAGS
14911 @ 126007:                  LINE   2339 "regression-compile-tmp/imp918s.imp"
14912 @ 126045:                  PUSH   TAGDISP
14913 @ 126048:                  PUSH   GLACA
14914 @ 126051:                  PUSH   ACC
14915 @ 126054:                  SUB   
14916 @ 126055:                  ASSVAL

  2340                          EPDISP=TAGDISP;        ! AND FOR ENTRY DEFN
14917 @ 126056:                  LINE   2340 "regression-compile-tmp/imp918s.imp"
14918 @ 126094:                  PUSH   EPDISP
14919 @ 126097:                  PUSH   TAGDISP
14920 @ 126100:                  ASSVAL

  2341                          EPTYPE=3;              ! DATA IN ADRESSABLE GLA
14921 @ 126101:                  LINE   2341 "regression-compile-tmp/imp918s.imp"
14922 @ 126139:                  PUSH   EPTYPE
14923 @ 126142:                  PUSHI  #0x00000003
14924 @ 126147:                  ASSVAL

  2342                       %FINISH
14925 @ 126148:                  LINE   2342 "regression-compile-tmp/imp918s.imp"
14926 @ 126186:                  LOCATE L_000f

  2343                    %FINISH
14927 @ 126189:                  LINE   2343 "regression-compile-tmp/imp918s.imp"
14928 @ 126227:                  LOCATE L_000c

  2344                 %FINISH
14929 @ 126230:                  LINE   2344 "regression-compile-tmp/imp918s.imp"
14930 @ 126268:                  LOCATE L_0009

  2345                 STAG(TAGDISP,ACC)
14931 @ 126271:                  LINE   2345 "regression-compile-tmp/imp918s.imp"
14932 @ 126309:                  PUSH   STAG
14933 @ 126312:                  PUSH   TAGDISP
14934 @ 126315:                  ASSPAR
14935 @ 126316:                  PUSH   ACC
14936 @ 126319:                  ASSPAR
14937 @ 126320:                  CALL  

  2346                 PP=PP+1
14938 @ 126321:                  LINE   2346 "regression-compile-tmp/imp918s.imp"
14939 @ 126359:                  PUSH   PP
14940 @ 126362:                  PUSH   PP
14941 @ 126365:                  PUSHI  #0x00000001
14942 @ 126370:                  ADD   
14943 @ 126371:                  ASSVAL

  2347              %REPEAT %UNTIL NNAMES=0
14944 @ 126372:                  LINE   2347 "regression-compile-tmp/imp918s.imp"
14945 @ 126410:                  PUSH   NNAMES
14946 @ 126413:                  PUSHI  #0x00000000
14947 @ 126418:                  JUMPIF = L_0007
14948 @ 126422:                  REPEAT L_0006
14949 @ 126425:                  LOCATE L_0007

  2348              P=MARK
14950 @ 126428:                  LINE   2348 "regression-compile-tmp/imp918s.imp"
14951 @ 126466:                  PUSH   P
14952 @ 126469:                  PUSH   MARK
14953 @ 126472:                  ASSVAL

  2349           %REPEAT %UNTIL A(MARK)=2
14954 @ 126473:                  LINE   2349 "regression-compile-tmp/imp918s.imp"
14955 @ 126511:                  PUSH   A
14956 @ 126514:                  PUSH   MARK
14957 @ 126517:                  ACCESS
14958 @ 126518:                  PUSHI  #0x00000002
14959 @ 126523:                  JUMPIF = L_0004
14960 @ 126527:                  REPEAT L_0003
14961 @ 126530:                  LOCATE L_0004

  2350           ->Label99
14962 @ 126533:                  LINE   2350 "regression-compile-tmp/imp918s.imp"
14963 @ 126571:                  JUMP   L_021e

  2351  RECORD:                                ! <XOWN>'%RECORD'<NAMELIST>
  2352  !***********************************************************************
  2353  !*       NO INITIALISATION OF OWN RECORDS ALLOWED SO THEY ARE ALL      *
  2354  !*       CLEARED TO ZERO.                                              *
  2355  !***********************************************************************
14964 @ 126574:                  LINE   2351 "regression-compile-tmp/imp918s.imp"
14965 @ 126612:                  LABEL  L_021c

  2356           MARKER1=P+A(P)+3-MODE;     ! TO FORMAT NAME
14966 @ 126615:                  LINE   2356 "regression-compile-tmp/imp918s.imp"
14967 @ 126653:                  PUSH   MARKER1
14968 @ 126656:                  PUSH   P
14969 @ 126659:                  PUSH   A
14970 @ 126662:                  PUSH   P
14971 @ 126665:                  ACCESS
14972 @ 126666:                  ADD   
14973 @ 126667:                  PUSHI  #0x00000003
14974 @ 126672:                  ADD   
14975 @ 126673:                  PUSH   MODE
14976 @ 126676:                  SUB   
14977 @ 126677:                  ASSVAL

  2357           FNAM=A(MARKER1)
14978 @ 126678:                  LINE   2357 "regression-compile-tmp/imp918s.imp"
14979 @ 126716:                  PUSH   FNAM
14980 @ 126719:                  PUSH   A
14981 @ 126722:                  PUSH   MARKER1
14982 @ 126725:                  ACCESS
14983 @ 126726:                  ASSVAL

  2358           COPYTAG(FNAM)
14984 @ 126727:                  LINE   2358 "regression-compile-tmp/imp918s.imp"
14985 @ 126765:                  PUSH   COPYTAG
14986 @ 126768:                  PUSH   FNAM
14987 @ 126771:                  ASSPAR
14988 @ 126772:                  CALL  

  2359           FINF=TCELL
14989 @ 126773:                  LINE   2359 "regression-compile-tmp/imp918s.imp"
14990 @ 126811:                  PUSH   FINF
14991 @ 126814:                  PUSH   TCELL
14992 @ 126817:                  ASSVAL

  2360           %IF PTYPE#4 %THEN FAULT(62,FNAM) %AND ->Label99
14993 @ 126818:                  LINE   2360 "regression-compile-tmp/imp918s.imp"
14994 @ 126856:                  PUSH   PTYPE
14995 @ 126859:                  PUSHI  #0x00000004
14996 @ 126864:                  JUMPIF = L_0004
14997 @ 126868:                  PUSH   FAULT
14998 @ 126871:                  PUSHI  #0x0000003e
14999 @ 126876:                  ASSPAR
15000 @ 126877:                  PUSH   FNAM
15001 @ 126880:                  ASSPAR
15002 @ 126881:                  CALL  
15003 @ 126882:                  JUMP   L_021e
15004 @ 126885:                  LOCATE L_0004

  2361           %IF EXTRN=0 %THEN PTYPE=143 %ELSE PTYPE=103
15005 @ 126888:                  LINE   2361 "regression-compile-tmp/imp918s.imp"
15006 @ 126926:                  PUSH   EXTRN
15007 @ 126929:                  PUSHI  #0x00000000
15008 @ 126934:                  JUMPIF # L_0004
15009 @ 126938:                  PUSH   PTYPE
15010 @ 126941:                  PUSHI  #0x0000008f
15011 @ 126946:                  ASSVAL
15012 @ 126947:                  GOTO   L_0003
15013 @ 126950:                  LOCATE L_0004
15014 @ 126953:                  PUSH   PTYPE
15015 @ 126956:                  PUSHI  #0x00000067
15016 @ 126961:                  ASSVAL
15017 @ 126962:                  LOCATE L_0003

  2362           KFORM=FINF;! UNPACK
  2363  !%if USE MC = 1 %start
  2364  !            *L_1,PTYPE; *CVD_1,0(11)
  2365  !            *UNPK_ROUT(5),5(3,11)
  2366  !            *NC_ROUT(5),MASK1
  2367  !%finish
15018 @ 126965:                  LINE   2362 "regression-compile-tmp/imp918s.imp"
15019 @ 127003:                  PUSH   KFORM
15020 @ 127006:                  PUSH   FINF
15021 @ 127009:                  ASSVAL

  2368           ->NONSCALAR %IF MODE=3
15022 @ 127010:                  LINE   2368 "regression-compile-tmp/imp918s.imp"
15023 @ 127048:                  PUSH   MODE
15024 @ 127051:                  PUSHI  #0x00000003
15025 @ 127056:                  JUMPIF # L_0004
15026 @ 127060:                  JUMP   L_021d
15027 @ 127063:                  LOCATE L_0004

  2369           NNAMES=A(P); PTYPE=1003; J=0
15028 @ 127066:                  LINE   2369 "regression-compile-tmp/imp918s.imp"
15029 @ 127104:                  PUSH   NNAMES
15030 @ 127107:                  PUSH   A
15031 @ 127110:                  PUSH   P
15032 @ 127113:                  ACCESS
15033 @ 127114:                  ASSVAL
15034 @ 127115:                  LINE   2369 "regression-compile-tmp/imp918s.imp"
15035 @ 127153:                  PUSH   PTYPE
15036 @ 127156:                  PUSHI  #0x000003eb
15037 @ 127161:                  ASSVAL
15038 @ 127162:                  LINE   2369 "regression-compile-tmp/imp918s.imp"
15039 @ 127200:                  PUSH   J
15040 @ 127203:                  PUSHI  #0x00000000
15041 @ 127208:                  ASSVAL

  2370           %CYCLE
15042 @ 127209:                  LINE   2370 "regression-compile-tmp/imp918s.imp"
15043 @ 127247:                  LOCATE L_0003

  2371              P=P+1; K=A(P)
15044 @ 127250:                  LINE   2371 "regression-compile-tmp/imp918s.imp"
15045 @ 127288:                  PUSH   P
15046 @ 127291:                  PUSH   P
15047 @ 127294:                  PUSHI  #0x00000001
15048 @ 127299:                  ADD   
15049 @ 127300:                  ASSVAL
15050 @ 127301:                  LINE   2371 "regression-compile-tmp/imp918s.imp"
15051 @ 127339:                  PUSH   K
15052 @ 127342:                  PUSH   A
15053 @ 127345:                  PUSH   P
15054 @ 127348:                  ACCESS
15055 @ 127349:                  ASSVAL

  2372              %IF EXTRN=3 %THEN %START;     ! EXTRINISIC
15056 @ 127350:                  LINE   2372 "regression-compile-tmp/imp918s.imp"
15057 @ 127388:                  PUSH   EXTRN
15058 @ 127391:                  PUSHI  #0x00000003
15059 @ 127396:                  JUMPIF # L_0007

  2373                 CXREF(2,K,ACC,TAGDISP); ! RELOCATE BY EXTERNAL
15060 @ 127400:                  LINE   2373 "regression-compile-tmp/imp918s.imp"
15061 @ 127438:                  PUSH   CXREF
15062 @ 127441:                  PUSHI  #0x00000002
15063 @ 127446:                  ASSPAR
15064 @ 127447:                  PUSH   K
15065 @ 127450:                  ASSPAR
15066 @ 127451:                  PUSH   ACC
15067 @ 127454:                  ASSPAR
15068 @ 127455:                  PUSH   TAGDISP
15069 @ 127458:                  ASSPAR
15070 @ 127459:                  CALL  

  2374              %FINISH %ELSE %START
15071 @ 127460:                  LINE   2374 "regression-compile-tmp/imp918s.imp"
15072 @ 127498:                  GOTO   L_0006
15073 @ 127501:                  LOCATE L_0007

  2375                 CLEAR(ACC)
15074 @ 127504:                  LINE   2375 "regression-compile-tmp/imp918s.imp"
15075 @ 127542:                  PUSH   CLEAR
15076 @ 127545:                  PUSH   ACC
15077 @ 127548:                  ASSPAR
15078 @ 127549:                  CALL  

  2376                 EPDISP=STPTR-ACC
15079 @ 127550:                  LINE   2376 "regression-compile-tmp/imp918s.imp"
15080 @ 127588:                  PUSH   EPDISP
15081 @ 127591:                  PUSH   STPTR
15082 @ 127594:                  PUSH   ACC
15083 @ 127597:                  SUB   
15084 @ 127598:                  ASSVAL

  2377                 AH3=EPDISP
15085 @ 127599:                  LINE   2377 "regression-compile-tmp/imp918s.imp"
15086 @ 127637:                  PUSH   AH3
15087 @ 127640:                  PUSH   EPDISP
15088 @ 127643:                  ASSVAL

  2378                 RELOCATE(-1,AH3,LPUTP);! PUT DISP INTO GLA
15089 @ 127644:                  LINE   2378 "regression-compile-tmp/imp918s.imp"
15090 @ 127682:                  PUSH   RELOCATE
15091 @ 127685:                  PUSHI  #0x00000001
15092 @ 127690:                  NEGATE
15093 @ 127691:                  ASSPAR
15094 @ 127692:                  PUSH   AH3
15095 @ 127695:                  ASSPAR
15096 @ 127696:                  PUSH   LPUTP
15097 @ 127699:                  ASSPAR
15098 @ 127700:                  CALL  

  2379                 TAGDISP=GLACA-4;        ! AND RELOCATE REL APPROPIATE AREA
15099 @ 127701:                  LINE   2379 "regression-compile-tmp/imp918s.imp"
15100 @ 127739:                  PUSH   TAGDISP
15101 @ 127742:                  PUSH   GLACA
15102 @ 127745:                  PUSHI  #0x00000004
15103 @ 127750:                  SUB   
15104 @ 127751:                  ASSVAL

  2380                 EPTYPE=4;              ! DATA IN GLA SYMBOL TABLES
15105 @ 127752:                  LINE   2380 "regression-compile-tmp/imp918s.imp"
15106 @ 127790:                  PUSH   EPTYPE
15107 @ 127793:                  PUSHI  #0x00000004
15108 @ 127798:                  ASSVAL

  2381              %FINISH
15109 @ 127799:                  LINE   2381 "regression-compile-tmp/imp918s.imp"
15110 @ 127837:                  LOCATE L_0006

  2382              STAG(TAGDISP,ACC)
15111 @ 127840:                  LINE   2382 "regression-compile-tmp/imp918s.imp"
15112 @ 127878:                  PUSH   STAG
15113 @ 127881:                  PUSH   TAGDISP
15114 @ 127884:                  ASSPAR
15115 @ 127885:                  PUSH   ACC
15116 @ 127888:                  ASSPAR
15117 @ 127889:                  CALL  

  2383           %REPEAT %UNTIL NNAMES=0
15118 @ 127890:                  LINE   2383 "regression-compile-tmp/imp918s.imp"
15119 @ 127928:                  PUSH   NNAMES
15120 @ 127931:                  PUSHI  #0x00000000
15121 @ 127936:                  JUMPIF = L_0004
15122 @ 127940:                  REPEAT L_0003
15123 @ 127943:                  LOCATE L_0004

  2384           ->Label99
15124 @ 127946:                  LINE   2384 "regression-compile-tmp/imp918s.imp"
15125 @ 127984:                  JUMP   L_021e

  2385  NONSCALAR:                             ! OWN AND OWNRECORD ARRAYS
  2386  !***********************************************************************
  2387  !*       OWN ARRAYS CAN BE INITIALISED BUT ONLY ONE ARRAY CAN BE       *
  2388  !*       DECLARED IN A STATEMENT.(THANK HEAVENS!)                      *
  2389  !*       OWN RECORD ARRAYS ARE CLEARED TO ZERO                         *
  2390  !***********************************************************************
15126 @ 127987:                  LINE   2385 "regression-compile-tmp/imp918s.imp"
15127 @ 128025:                  LABEL  L_021d

  2391           PP=P+1; P=P+2; J=1; NNAMES=1
15128 @ 128028:                  LINE   2391 "regression-compile-tmp/imp918s.imp"
15129 @ 128066:                  PUSH   PP
15130 @ 128069:                  PUSH   P
15131 @ 128072:                  PUSHI  #0x00000001
15132 @ 128077:                  ADD   
15133 @ 128078:                  ASSVAL
15134 @ 128079:                  LINE   2391 "regression-compile-tmp/imp918s.imp"
15135 @ 128117:                  PUSH   P
15136 @ 128120:                  PUSH   P
15137 @ 128123:                  PUSHI  #0x00000002
15138 @ 128128:                  ADD   
15139 @ 128129:                  ASSVAL
15140 @ 128130:                  LINE   2391 "regression-compile-tmp/imp918s.imp"
15141 @ 128168:                  PUSH   J
15142 @ 128171:                  PUSHI  #0x00000001
15143 @ 128176:                  ASSVAL
15144 @ 128177:                  LINE   2391 "regression-compile-tmp/imp918s.imp"
15145 @ 128215:                  PUSH   NNAMES
15146 @ 128218:                  PUSHI  #0x00000001
15147 @ 128223:                  ASSVAL

  2392           K=A(PP)
15148 @ 128224:                  LINE   2392 "regression-compile-tmp/imp918s.imp"
15149 @ 128262:                  PUSH   K
15150 @ 128265:                  PUSH   A
15151 @ 128268:                  PUSH   PP
15152 @ 128271:                  ACCESS
15153 @ 128272:                  ASSVAL

  2393           CBPAIR(KK,KKK)
15154 @ 128273:                  LINE   2393 "regression-compile-tmp/imp918s.imp"
15155 @ 128311:                  PUSH   CBPAIR
15156 @ 128314:                  PUSH   KK
15157 @ 128317:                  ASSPAR
15158 @ 128318:                  PUSH   KKK
15159 @ 128321:                  ASSPAR
15160 @ 128322:                  CALL  

  2394           %IF TYPE>=3 %THEN BP=ACC %ELSE BP=BYTES(PREC)
15161 @ 128323:                  LINE   2394 "regression-compile-tmp/imp918s.imp"
15162 @ 128361:                  PUSH   TYPE
15163 @ 128364:                  PUSHI  #0x00000003
15164 @ 128369:                  JUMPIF < L_0004
15165 @ 128373:                  PUSH   BP
15166 @ 128376:                  PUSH   ACC
15167 @ 128379:                  ASSVAL
15168 @ 128380:                  GOTO   L_0003
15169 @ 128383:                  LOCATE L_0004
15170 @ 128386:                  PUSH   BP
15171 @ 128389:                  PUSH   BYTES
15172 @ 128392:                  PUSH   PREC
15173 @ 128395:                  ACCESS
15174 @ 128396:                  ASSVAL
15175 @ 128397:                  LOCATE L_0003

  2395           LENGTH=KKK-KK+1; QQ=LENGTH*BP
15176 @ 128400:                  LINE   2395 "regression-compile-tmp/imp918s.imp"
15177 @ 128438:                  PUSH   LENGTH
15178 @ 128441:                  PUSH   KKK
15179 @ 128444:                  PUSH   KK
15180 @ 128447:                  SUB   
15181 @ 128448:                  PUSHI  #0x00000001
15182 @ 128453:                  ADD   
15183 @ 128454:                  ASSVAL
15184 @ 128455:                  LINE   2395 "regression-compile-tmp/imp918s.imp"
15185 @ 128493:                  PUSH   QQ
15186 @ 128496:                  PUSH   LENGTH
15187 @ 128499:                  PUSH   BP
15188 @ 128502:                  MUL   
15189 @ 128503:                  ASSVAL

  2396           CONSTS FOUND=0
15190 @ 128504:                  LINE   2396 "regression-compile-tmp/imp918s.imp"
15191 @ 128542:                  PUSH   CONSTSFOUND
15192 @ 128545:                  PUSHI  #0x00000000
15193 @ 128550:                  ASSVAL

  2397           %IF MODE#3 %THEN %START;   ! NOT A RECORD ARRAY
15194 @ 128551:                  LINE   2397 "regression-compile-tmp/imp918s.imp"
15195 @ 128589:                  PUSH   MODE
15196 @ 128592:                  PUSHI  #0x00000003
15197 @ 128597:                  JUMPIF = L_0004

  2398              FROM AR4(P+1,CONSTS FOUND)
15198 @ 128601:                  LINE   2398 "regression-compile-tmp/imp918s.imp"
15199 @ 128639:                  PUSH   FROMAR4
15200 @ 128642:                  PUSH   P
15201 @ 128645:                  PUSHI  #0x00000001
15202 @ 128650:                  ADD   
15203 @ 128651:                  ASSPAR
15204 @ 128652:                  PUSH   CONSTSFOUND
15205 @ 128655:                  ASSPAR
15206 @ 128656:                  CALL  

  2399              FROM AR4(P+3,SPOINT);    ! DISPLACEMENT OF CONSTANTS
15207 @ 128657:                  LINE   2399 "regression-compile-tmp/imp918s.imp"
15208 @ 128695:                  PUSH   FROMAR4
15209 @ 128698:                  PUSH   P
15210 @ 128701:                  PUSHI  #0x00000003
15211 @ 128706:                  ADD   
15212 @ 128707:                  ASSPAR
15213 @ 128708:                  PUSH   SPOINT
15214 @ 128711:                  ASSPAR
15215 @ 128712:                  CALL  

  2400           %FINISH
  2401           !*INSERT
15216 @ 128713:                  LINE   2400 "regression-compile-tmp/imp918s.imp"
15217 @ 128751:                  LOCATE L_0004

  2402           %IF CONSTS FOUND=0 %THEN %START;! NO CONSTANTS GIVEN
  2403                                           ! SO CLEAR AN AREA TO ZERO
15218 @ 128754:                  LINE   2402 "regression-compile-tmp/imp918s.imp"
15219 @ 128792:                  PUSH   CONSTSFOUND
15220 @ 128795:                  PUSHI  #0x00000000
15221 @ 128800:                  JUMPIF # L_0004

  2404              CONSTS FOUND=LENGTH
15222 @ 128804:                  LINE   2404 "regression-compile-tmp/imp918s.imp"
15223 @ 128842:                  PUSH   CONSTSFOUND
15224 @ 128845:                  PUSH   LENGTH
15225 @ 128848:                  ASSVAL

  2405              CLEAR(QQ) %UNLESS LENGTH<1 %OR EXTRN=3
15226 @ 128849:                  LINE   2405 "regression-compile-tmp/imp918s.imp"
15227 @ 128887:                  PUSH   LENGTH
15228 @ 128890:                  PUSHI  #0x00000001
15229 @ 128895:                  JUMPIF < L_0007
15230 @ 128899:                  PUSH   EXTRN
15231 @ 128902:                  PUSHI  #0x00000003
15232 @ 128907:                  JUMPIF = L_0007
15233 @ 128911:                  PUSH   CLEAR
15234 @ 128914:                  PUSH   QQ
15235 @ 128917:                  ASSPAR
15236 @ 128918:                  CALL  
15237 @ 128919:                  LOCATE L_0007

  2406              SPOINT=STPTR-QQ
15238 @ 128922:                  LINE   2406 "regression-compile-tmp/imp918s.imp"
15239 @ 128960:                  PUSH   SPOINT
15240 @ 128963:                  PUSH   STPTR
15241 @ 128966:                  PUSH   QQ
15242 @ 128969:                  SUB   
15243 @ 128970:                  ASSVAL

  2407           %FINISH %ELSE %START
  2408           !*INSERT
15244 @ 128971:                  LINE   2407 "regression-compile-tmp/imp918s.imp"
15245 @ 129009:                  GOTO   L_0003
15246 @ 129012:                  LOCATE L_0004

  2409              FAULT(46,K) %IF EXTRN=3
15247 @ 129015:                  LINE   2409 "regression-compile-tmp/imp918s.imp"
15248 @ 129053:                  PUSH   EXTRN
15249 @ 129056:                  PUSHI  #0x00000003
15250 @ 129061:                  JUMPIF # L_0007
15251 @ 129065:                  PUSH   FAULT
15252 @ 129068:                  PUSHI  #0x0000002e
15253 @ 129073:                  ASSPAR
15254 @ 129074:                  PUSH   K
15255 @ 129077:                  ASSPAR
15256 @ 129078:                  CALL  
15257 @ 129079:                  LOCATE L_0007

  2410           %FINISH
15258 @ 129082:                  LINE   2410 "regression-compile-tmp/imp918s.imp"
15259 @ 129120:                  LOCATE L_0003

  2411           FAULT(45,K) %UNLESS KKK>=KK %AND LENGTH=CONSTS FOUND
  2412  !
  2413  ! NOW OUTPUT A DOPE VECTOR FOR STRING ARRAYS OR IF CHECKS ARE ON
  2414  !
15260 @ 129123:                  LINE   2411 "regression-compile-tmp/imp918s.imp"
15261 @ 129161:                  PUSH   KKK
15262 @ 129164:                  PUSH   KK
15263 @ 129167:                  JUMPIF < L_0005
15264 @ 129171:                  PUSH   LENGTH
15265 @ 129174:                  PUSH   CONSTSFOUND
15266 @ 129177:                  JUMPIF = L_0004
15267 @ 129181:                  LOCATE L_0005
15268 @ 129184:                  PUSH   FAULT
15269 @ 129187:                  PUSHI  #0x0000002d
15270 @ 129192:                  ASSPAR
15271 @ 129193:                  PUSH   K
15272 @ 129196:                  ASSPAR
15273 @ 129197:                  CALL  
15274 @ 129198:                  LOCATE L_0004

  2415           %UNLESS COMPILER=1 %AND CHECKS=0 %AND TYPE#5 %THEN %START
15275 @ 129201:                  LINE   2415 "regression-compile-tmp/imp918s.imp"
15276 @ 129239:                  PUSH   COMPILER
15277 @ 129242:                  PUSHI  #0x00000001
15278 @ 129247:                  JUMPIF # L_0005
15279 @ 129251:                  PUSH   CHECKS
15280 @ 129254:                  PUSHI  #0x00000000
15281 @ 129259:                  JUMPIF # L_0005
15282 @ 129263:                  PUSH   TYPE
15283 @ 129266:                  PUSHI  #0x00000005
15284 @ 129271:                  JUMPIF # L_0004
15285 @ 129275:                  LOCATE L_0005

  2416              AH3=DOPE VECTOR(BP,KK,KKK)
15286 @ 129278:                  LINE   2416 "regression-compile-tmp/imp918s.imp"
15287 @ 129316:                  PUSH   AH3
15288 @ 129319:                  PUSH   DOPEVECTOR
15289 @ 129322:                  PUSH   BP
15290 @ 129325:                  ASSPAR
15291 @ 129326:                  PUSH   KK
15292 @ 129329:                  ASSPAR
15293 @ 129330:                  PUSH   KKK
15294 @ 129333:                  ASSPAR
15295 @ 129334:                  CALL  
15296 @ 129335:                  ASSVAL

  2417           %FINISH %ELSE AH3=SSTL
15297 @ 129336:                  LINE   2417 "regression-compile-tmp/imp918s.imp"
15298 @ 129374:                  GOTO   L_0003
15299 @ 129377:                  LOCATE L_0004
15300 @ 129380:                  PUSH   AH3
15301 @ 129383:                  PUSH   SSTL
15302 @ 129386:                  ASSVAL
15303 @ 129387:                  LOCATE L_0003

  2418           %IF EXTRN=3 %THEN EPDISP=0 %ELSE EPDISP=SPOINT
  2419  !
  2420  ! OUTPUT AN ARRAYHEAD INTO THE GLA RELATIVE TO THE START OF THE SYMBOL-
  2421  ! TABLES IN WHICH THE ARRAY RESIDES. PERM INITIALISATION WILL RELOCATE
  2422  ! BY ADDING INTO AH1-3 THE VIRTUAL ADDRESS OF THE START OF THE
  2423  ! APPROPIATE AREA.
  2424  !
15304 @ 129390:                  LINE   2418 "regression-compile-tmp/imp918s.imp"
15305 @ 129428:                  PUSH   EXTRN
15306 @ 129431:                  PUSHI  #0x00000003
15307 @ 129436:                  JUMPIF # L_0004
15308 @ 129440:                  PUSH   EPDISP
15309 @ 129443:                  PUSHI  #0x00000000
15310 @ 129448:                  ASSVAL
15311 @ 129449:                  GOTO   L_0003
15312 @ 129452:                  LOCATE L_0004
15313 @ 129455:                  PUSH   EPDISP
15314 @ 129458:                  PUSH   SPOINT
15315 @ 129461:                  ASSVAL
15316 @ 129462:                  LOCATE L_0003

  2425           AH1=EPDISP-KK*BP
15317 @ 129465:                  LINE   2425 "regression-compile-tmp/imp918s.imp"
15318 @ 129503:                  PUSH   AH1
15319 @ 129506:                  PUSH   EPDISP
15320 @ 129509:                  PUSH   KK
15321 @ 129512:                  PUSH   BP
15322 @ 129515:                  MUL   
15323 @ 129516:                  SUB   
15324 @ 129517:                  ASSVAL

  2426           AH2=EPDISP
15325 @ 129518:                  LINE   2426 "regression-compile-tmp/imp918s.imp"
15326 @ 129556:                  PUSH   AH2
15327 @ 129559:                  PUSH   EPDISP
15328 @ 129562:                  ASSVAL

  2427           AH4=BP; JJ=16-COMPILER<<2
15329 @ 129563:                  LINE   2427 "regression-compile-tmp/imp918s.imp"
15330 @ 129601:                  PUSH   AH4
15331 @ 129604:                  PUSH   BP
15332 @ 129607:                  ASSVAL
15333 @ 129608:                  LINE   2427 "regression-compile-tmp/imp918s.imp"
15334 @ 129646:                  PUSH   JJ
15335 @ 129649:                  PUSHI  #0x00000010
15336 @ 129654:                  PUSH   COMPILER
15337 @ 129657:                  PUSHI  #0x00000002
15338 @ 129662:                  LSH   
15339 @ 129663:                  SUB   
15340 @ 129664:                  ASSVAL

  2428           PGLA(4,JJ,ADDR(AH1))
15341 @ 129665:                  LINE   2428 "regression-compile-tmp/imp918s.imp"
15342 @ 129703:                  PUSH   PGLA
15343 @ 129706:                  PUSHI  #0x00000004
15344 @ 129711:                  ASSPAR
15345 @ 129712:                  PUSH   JJ
15346 @ 129715:                  ASSPAR
15347 @ 129716:                  PUSH   ADDR
15348 @ 129719:                  PUSH   AH1
15349 @ 129722:                  ASSPAR
15350 @ 129723:                  CALL  
15351 @ 129724:                  ASSPAR
15352 @ 129725:                  CALL  

  2429           TAGDISP=GLACA-JJ
15353 @ 129726:                  LINE   2429 "regression-compile-tmp/imp918s.imp"
15354 @ 129764:                  PUSH   TAGDISP
15355 @ 129767:                  PUSH   GLACA
15356 @ 129770:                  PUSH   JJ
15357 @ 129773:                  SUB   
15358 @ 129774:                  ASSVAL

  2430           %IF EXTRN=3 %THEN %START;     ! EXTRINSIC ARRAYS
15359 @ 129775:                  LINE   2430 "regression-compile-tmp/imp918s.imp"
15360 @ 129813:                  PUSH   EXTRN
15361 @ 129816:                  PUSHI  #0x00000003
15362 @ 129821:                  JUMPIF # L_0004

  2431              GXREF(2,K,QQ,TAGDISP);     ! RELOCATE ADDR(A(0))
15363 @ 129825:                  LINE   2431 "regression-compile-tmp/imp918s.imp"
15364 @ 129863:                  PUSH   GXREF
15365 @ 129866:                  PUSHI  #0x00000002
15366 @ 129871:                  ASSPAR
15367 @ 129872:                  PUSH   K
15368 @ 129875:                  ASSPAR
15369 @ 129876:                  PUSH   QQ
15370 @ 129879:                  ASSPAR
15371 @ 129880:                  PUSH   TAGDISP
15372 @ 129883:                  ASSPAR
15373 @ 129884:                  CALL  

  2432              GXREF(2,K,QQ,TAGDISP+4);   ! RELOCATE ADDR(A(FIRST))
15374 @ 129885:                  LINE   2432 "regression-compile-tmp/imp918s.imp"
15375 @ 129923:                  PUSH   GXREF
15376 @ 129926:                  PUSHI  #0x00000002
15377 @ 129931:                  ASSPAR
15378 @ 129932:                  PUSH   K
15379 @ 129935:                  ASSPAR
15380 @ 129936:                  PUSH   QQ
15381 @ 129939:                  ASSPAR
15382 @ 129940:                  PUSH   TAGDISP
15383 @ 129943:                  PUSHI  #0x00000004
15384 @ 129948:                  ADD   
15385 @ 129949:                  ASSPAR
15386 @ 129950:                  CALL  

  2433           %FINISH %ELSE %START
15387 @ 129951:                  LINE   2433 "regression-compile-tmp/imp918s.imp"
15388 @ 129989:                  GOTO   L_0003
15389 @ 129992:                  LOCATE L_0004

  2434              RELOCATE(TAGDISP,AH1,LPUTP);! RELOCATE ADDR(A(0))
15390 @ 129995:                  LINE   2434 "regression-compile-tmp/imp918s.imp"
15391 @ 130033:                  PUSH   RELOCATE
15392 @ 130036:                  PUSH   TAGDISP
15393 @ 130039:                  ASSPAR
15394 @ 130040:                  PUSH   AH1
15395 @ 130043:                  ASSPAR
15396 @ 130044:                  PUSH   LPUTP
15397 @ 130047:                  ASSPAR
15398 @ 130048:                  CALL  

  2435              RELOCATE(TAGDISP+4,AH2,LPUTP);! RELOCATE ADDR(A(FIRST))
15399 @ 130049:                  LINE   2435 "regression-compile-tmp/imp918s.imp"
15400 @ 130087:                  PUSH   RELOCATE
15401 @ 130090:                  PUSH   TAGDISP
15402 @ 130093:                  PUSHI  #0x00000004
15403 @ 130098:                  ADD   
15404 @ 130099:                  ASSPAR
15405 @ 130100:                  PUSH   AH2
15406 @ 130103:                  ASSPAR
15407 @ 130104:                  PUSH   LPUTP
15408 @ 130107:                  ASSPAR
15409 @ 130108:                  CALL  

  2436           %FINISH
15410 @ 130109:                  LINE   2436 "regression-compile-tmp/imp918s.imp"
15411 @ 130147:                  LOCATE L_0003

  2437           RELOCATE(TAGDISP+8,AH3,4);    ! RELOCATE DV POINTER
15412 @ 130150:                  LINE   2437 "regression-compile-tmp/imp918s.imp"
15413 @ 130188:                  PUSH   RELOCATE
15414 @ 130191:                  PUSH   TAGDISP
15415 @ 130194:                  PUSHI  #0x00000008
15416 @ 130199:                  ADD   
15417 @ 130200:                  ASSPAR
15418 @ 130201:                  PUSH   AH3
15419 @ 130204:                  ASSPAR
15420 @ 130205:                  PUSHI  #0x00000004
15421 @ 130210:                  ASSPAR
15422 @ 130211:                  CALL  

  2438           EPTYPE=4;                     ! DATA IN GLA SYMBOL TABLES
15423 @ 130212:                  LINE   2438 "regression-compile-tmp/imp918s.imp"
15424 @ 130250:                  PUSH   EPTYPE
15425 @ 130253:                  PUSHI  #0x00000004
15426 @ 130258:                  ASSVAL

  2439           STAG(TAGDISP,QQ)
15427 @ 130259:                  LINE   2439 "regression-compile-tmp/imp918s.imp"
15428 @ 130297:                  PUSH   STAG
15429 @ 130300:                  PUSH   TAGDISP
15430 @ 130303:                  ASSPAR
15431 @ 130304:                  PUSH   QQ
15432 @ 130307:                  ASSPAR
15433 @ 130308:                  CALL  

  2440           ->Label99
15434 @ 130309:                  LINE   2440 "regression-compile-tmp/imp918s.imp"
15435 @ 130347:                  JUMP   L_021e

  2441           %ROUTINE CLEAR(%INTEGER LENGTH)
15436 @ 130350:                  LINE   2441 "regression-compile-tmp/imp918s.imp"
15437 @ 130388:                  DEF    CLEAR (_lev0id0_CSS_lev2id12_CLEAR) p1=V_01ff 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
15438 @ 130405:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
15439 @ 130406:                        DEF    LENGTH p1=V_021f 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
15440 @ 130424:                     FINISH ) {lev=4}

  2442                 STPTR=(STPTR+7)&(-8)
15441 @ 130425:                     LINE   2442 "regression-compile-tmp/imp918s.imp"
15442 @ 130463:                     PUSH   STPTR
15443 @ 130466:                     PUSH   STPTR
15444 @ 130469:                     PUSHI  #0x00000007
15445 @ 130474:                     ADD   
15446 @ 130475:                     PUSHI  #0x00000008
15447 @ 130480:                     NEGATE
15448 @ 130481:                     AND   
15449 @ 130482:                     ASSVAL

  2443           LENGTH=(LENGTH+3)&(-4)
15450 @ 130483:                     LINE   2443 "regression-compile-tmp/imp918s.imp"
15451 @ 130521:                     PUSH   LENGTH
15452 @ 130524:                     PUSH   LENGTH
15453 @ 130527:                     PUSHI  #0x00000003
15454 @ 130532:                     ADD   
15455 @ 130533:                     PUSHI  #0x00000004
15456 @ 130538:                     NEGATE
15457 @ 130539:                     AND   
15458 @ 130540:                     ASSVAL

  2444           LPUT(LPUTP,LENGTH,STPTR,0)%IF INHCODE=0
15459 @ 130541:                     LINE   2444 "regression-compile-tmp/imp918s.imp"
15460 @ 130579:                     PUSH   INHCODE
15461 @ 130582:                     PUSHI  #0x00000000
15462 @ 130587:                     JUMPIF # L_0004
15463 @ 130591:                     PUSH   LPUT
15464 @ 130594:                     PUSH   LPUTP
15465 @ 130597:                     ASSPAR
15466 @ 130598:                     PUSH   LENGTH
15467 @ 130601:                     ASSPAR
15468 @ 130602:                     PUSH   STPTR
15469 @ 130605:                     ASSPAR
15470 @ 130606:                     PUSHI  #0x00000000
15471 @ 130611:                     ASSPAR
15472 @ 130612:                     CALL  
15473 @ 130613:                     LOCATE L_0004

  2445           STPTR=STPTR+LENGTH
15474 @ 130616:                     LINE   2445 "regression-compile-tmp/imp918s.imp"
15475 @ 130654:                     PUSH   STPTR
15476 @ 130657:                     PUSH   STPTR
15477 @ 130660:                     PUSH   LENGTH
15478 @ 130663:                     ADD   
15479 @ 130664:                     ASSVAL

  2446           %END
15480 @ 130665:                     LINE   2446 "regression-compile-tmp/imp918s.imp"
15481 @ 130703:                  END    _lev0id0_CSS_lev2id12_CLEAR {lev=4 --> 3}

  2447           %ROUTINE STAG(%INTEGER J,DATALEN)
15482 @ 130704:                  LINE   2447 "regression-compile-tmp/imp918s.imp"
15483 @ 130742:                  DEF    STAG (_lev0id0_CSS_lev2id12_STAG) p1=V_0200 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
15484 @ 130758:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
15485 @ 130759:                        DEF    J p1=V_021f 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
15486 @ 130772:                        DEF    DATALEN p1=V_0220 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
15487 @ 130791:                     FINISH ) {lev=4}

  2448           TEST NST
15488 @ 130792:                     LINE   2448 "regression-compile-tmp/imp918s.imp"
15489 @ 130830:                     PUSH   TESTNST
15490 @ 130833:                     CALL  

  2449           %IF EXTRN=2 %THEN DEFINE EP(EPTYPE,K,EPDISP,DATALEN)
15491 @ 130834:                     LINE   2449 "regression-compile-tmp/imp918s.imp"
15492 @ 130872:                     PUSH   EXTRN
15493 @ 130875:                     PUSHI  #0x00000002
15494 @ 130880:                     JUMPIF # L_0004
15495 @ 130884:                     PUSH   DEFINEEP
15496 @ 130887:                     PUSH   EPTYPE
15497 @ 130890:                     ASSPAR
15498 @ 130891:                     PUSH   K
15499 @ 130894:                     ASSPAR
15500 @ 130895:                     PUSH   EPDISP
15501 @ 130898:                     ASSPAR
15502 @ 130899:                     PUSH   DATALEN
15503 @ 130902:                     ASSPAR
15504 @ 130903:                     CALL  
15505 @ 130904:                     LOCATE L_0004

  2450           RBASE=CBASE
15506 @ 130907:                     LINE   2450 "regression-compile-tmp/imp918s.imp"
15507 @ 130945:                     PUSH   RBASE
15508 @ 130948:                     PUSH   CBASE
15509 @ 130951:                     ASSVAL

  2451           STORE TAG(K,J)
15510 @ 130952:                     LINE   2451 "regression-compile-tmp/imp918s.imp"
15511 @ 130990:                     PUSH   STORETAG
15512 @ 130993:                     PUSH   K
15513 @ 130996:                     ASSPAR
15514 @ 130997:                     PUSH   J
15515 @ 131000:                     ASSPAR
15516 @ 131001:                     CALL  

  2452           RBASE=10-RLEVEL
15517 @ 131002:                     LINE   2452 "regression-compile-tmp/imp918s.imp"
15518 @ 131040:                     PUSH   RBASE
15519 @ 131043:                     PUSHI  #0x0000000a
15520 @ 131048:                     PUSH   RLEVEL
15521 @ 131051:                     SUB   
15522 @ 131052:                     ASSVAL

  2453           NNAMES=NNAMES-1
15523 @ 131053:                     LINE   2453 "regression-compile-tmp/imp918s.imp"
15524 @ 131091:                     PUSH   NNAMES
15525 @ 131094:                     PUSH   NNAMES
15526 @ 131097:                     PUSHI  #0x00000001
15527 @ 131102:                     SUB   
15528 @ 131103:                     ASSVAL

  2454           %END
15529 @ 131104:                     LINE   2454 "regression-compile-tmp/imp918s.imp"
15530 @ 131142:                  END    _lev0id0_CSS_lev2id12_STAG {lev=4 --> 3}

  2455  Label99:      %END; ->Label1
15531 @ 131143:                  LINE   2455 "regression-compile-tmp/imp918s.imp"
15532 @ 131181:                  LABEL  L_021e
15533 @ 131184:                  LINE   2455 "regression-compile-tmp/imp918s.imp"
15534 @ 131222:               END    _lev0id0_CSS_lev2id12 {lev=3 --> 2}
15535 @ 131223:               LINE   2455 "regression-compile-tmp/imp918s.imp"
15536 @ 131261:               JUMP   L_01f4

  2456  SW(18):
15537 @ 131264:               LINE   2456 "regression-compile-tmp/imp918s.imp"
15538 @ 131302:               PUSHI  #0x00000012
15539 @ 131307:               SLABEL 445

  2457           P=P+1
15540 @ 131310:               LINE   2457 "regression-compile-tmp/imp918s.imp"
15541 @ 131348:               PUSH   P
15542 @ 131351:               PUSH   P
15543 @ 131354:               PUSHI  #0x00000001
15544 @ 131359:               ADD   
15545 @ 131360:               ASSVAL

  2458           CRSPEC(2); ->Label1
15546 @ 131361:               LINE   2458 "regression-compile-tmp/imp918s.imp"
15547 @ 131399:               PUSH   CRSPEC
15548 @ 131402:               PUSHI  #0x00000002
15549 @ 131407:               ASSPAR
15550 @ 131408:               CALL  
15551 @ 131409:               LINE   2458 "regression-compile-tmp/imp918s.imp"
15552 @ 131447:               JUMP   L_01f4

  2459  SW(19):
  2460                                          ! '%NAME' SPECIAL NAME
15553 @ 131450:               LINE   2459 "regression-compile-tmp/imp918s.imp"
15554 @ 131488:               PUSHI  #0x00000013
15555 @ 131493:               SLABEL 445

  2461           PUSH123(TAGS(A(P+1)),SNPT<<16!X'8090',0,SNUM<<16)
15556 @ 131496:               LINE   2461 "regression-compile-tmp/imp918s.imp"
15557 @ 131534:               PUSH   PUSH123
15558 @ 131537:               PUSH   TAGS
15559 @ 131540:               PUSH   A
15560 @ 131543:               PUSH   P
15561 @ 131546:               PUSHI  #0x00000001
15562 @ 131551:               ADD   
15563 @ 131552:               ACCESS
15564 @ 131553:               ACCESS
15565 @ 131554:               ASSPAR
15566 @ 131555:               PUSHI  #0x00002716
15567 @ 131560:               PUSHI  #0x00000010
15568 @ 131565:               LSH   
15569 @ 131566:               PUSHI  #0x00008090
15570 @ 131571:               OR    
15571 @ 131572:               ASSPAR
15572 @ 131573:               PUSHI  #0x00000000
15573 @ 131578:               ASSPAR
15574 @ 131579:               PUSH   SNUM
15575 @ 131582:               PUSHI  #0x00000010
15576 @ 131587:               LSH   
15577 @ 131588:               ASSPAR
15578 @ 131589:               CALL  

  2462           SNUM=SNUM+1;->Label1
15579 @ 131590:               LINE   2462 "regression-compile-tmp/imp918s.imp"
15580 @ 131628:               PUSH   SNUM
15581 @ 131631:               PUSH   SNUM
15582 @ 131634:               PUSHI  #0x00000001
15583 @ 131639:               ADD   
15584 @ 131640:               ASSVAL
15585 @ 131641:               LINE   2462 "regression-compile-tmp/imp918s.imp"
15586 @ 131679:               JUMP   L_01f4

  2463  SW(20):                          ! TRUSTED PROGRAM
  2464  !
  2465  ! TRUSTED PROGRAMS HAVE:-
  2466  !     1) NO JUMPS ROUND ROUTINE BODIES
  2467  !     2) NO ERROR EXITS FROM FNS & MAPS
  2468  !     3) NO CYCLES OF THE FORM I:=1,1,I
  2469  !     4) NO RELIANCE ON THE VALUE OF CYCLE VARIABLES AT TERMINATION
  2470  !
15587 @ 131682:               LINE   2463 "regression-compile-tmp/imp918s.imp"
15588 @ 131720:               PUSHI  #0x00000014
15589 @ 131725:               SLABEL 445

  2471           MARGIN=512
15590 @ 131728:               LINE   2471 "regression-compile-tmp/imp918s.imp"
15591 @ 131766:               PUSH   MARGIN
15592 @ 131769:               PUSHI  #0x00000200
15593 @ 131774:               ASSVAL

  2472           COMPILER=1 %IF CHECKSP=0;     ! ONLY WORKS ON PARM OPT
15594 @ 131775:               LINE   2472 "regression-compile-tmp/imp918s.imp"
15595 @ 131813:               PUSH   CHECKSP
15596 @ 131816:               PUSHI  #0x00000000
15597 @ 131821:               JUMPIF # L_0004
15598 @ 131825:               PUSH   COMPILER
15599 @ 131828:               PUSHI  #0x00000001
15600 @ 131833:               ASSVAL
15601 @ 131834:               LOCATE L_0004

  2473           ->Label1
15602 @ 131837:               LINE   2473 "regression-compile-tmp/imp918s.imp"
15603 @ 131875:               JUMP   L_01f4

  2474  SW(21):
  2475                                         ! '%REGISTER'(NAME)(S)
15604 @ 131878:               LINE   2474 "regression-compile-tmp/imp918s.imp"
15605 @ 131916:               PUSHI  #0x00000015
15606 @ 131921:               SLABEL 445

  2476           WARN(LINE)
15607 @ 131924:               LINE   2476 "regression-compile-tmp/imp918s.imp"
15608 @ 131962:               PUSH   WARN
15609 @ 131965:               PUSH   LINE
15610 @ 131968:               ASSPAR
15611 @ 131969:               CALL  

  2477           %IF A(P+2)=1 %THEN KK=A(P+3) %ELSE FINDREG(CLMABL,KK)
15612 @ 131970:               LINE   2477 "regression-compile-tmp/imp918s.imp"
15613 @ 132008:               PUSH   A
15614 @ 132011:               PUSH   P
15615 @ 132014:               PUSHI  #0x00000002
15616 @ 132019:               ADD   
15617 @ 132020:               ACCESS
15618 @ 132021:               PUSHI  #0x00000001
15619 @ 132026:               JUMPIF # L_0004
15620 @ 132030:               PUSH   KK
15621 @ 132033:               PUSH   A
15622 @ 132036:               PUSH   P
15623 @ 132039:               PUSHI  #0x00000003
15624 @ 132044:               ADD   
15625 @ 132045:               ACCESS
15626 @ 132046:               ASSVAL
15627 @ 132047:               GOTO   L_0003
15628 @ 132050:               LOCATE L_0004
15629 @ 132053:               PUSH   FINDREG
15630 @ 132056:               PUSHI  #0x0001050e
15631 @ 132061:               ASSPAR
15632 @ 132062:               PUSH   KK
15633 @ 132065:               ASSPAR
15634 @ 132066:               CALL  
15635 @ 132067:               LOCATE L_0003

  2478           %IF 4<KK<15 %AND REGISTER(KK)=0 %THEN %START
15636 @ 132070:               LINE   2478 "regression-compile-tmp/imp918s.imp"
15637 @ 132108:               PUSHI  #0x00000004
15638 @ 132113:               PUSH   KK
15639 @ 132116:               JUMPIFD >= L_0004
15640 @ 132120:               PUSHI  #0x0000000f
15641 @ 132125:               JUMPIF >= L_0004
15642 @ 132129:               PUSH   REGISTER
15643 @ 132132:               PUSH   KK
15644 @ 132135:               ACCESS
15645 @ 132136:               PUSHI  #0x00000000
15646 @ 132141:               JUMPIF # L_0004

  2479              UVARREG(KK)=LEVEL
15647 @ 132145:               LINE   2479 "regression-compile-tmp/imp918s.imp"
15648 @ 132183:               PUSH   UVARREG
15649 @ 132186:               PUSH   KK
15650 @ 132189:               ACCESS
15651 @ 132190:               PUSH   LEVEL
15652 @ 132193:               ASSVAL

  2480              PTYPE=8; J=0
15653 @ 132194:               LINE   2480 "regression-compile-tmp/imp918s.imp"
15654 @ 132232:               PUSH   PTYPE
15655 @ 132235:               PUSHI  #0x00000008
15656 @ 132240:               ASSVAL
15657 @ 132241:               LINE   2480 "regression-compile-tmp/imp918s.imp"
15658 @ 132279:               PUSH   J
15659 @ 132282:               PUSHI  #0x00000000
15660 @ 132287:               ASSVAL

  2481              K=A(P+1); TESTNST
15661 @ 132288:               LINE   2481 "regression-compile-tmp/imp918s.imp"
15662 @ 132326:               PUSH   K
15663 @ 132329:               PUSH   A
15664 @ 132332:               PUSH   P
15665 @ 132335:               PUSHI  #0x00000001
15666 @ 132340:               ADD   
15667 @ 132341:               ACCESS
15668 @ 132342:               ASSVAL
15669 @ 132343:               LINE   2481 "regression-compile-tmp/imp918s.imp"
15670 @ 132381:               PUSH   TESTNST
15671 @ 132384:               CALL  

  2482              KFORM=M'RG'
15672 @ 132385:               LINE   2482 "regression-compile-tmp/imp918s.imp"
15673 @ 132423:               PUSH   KFORM
15674 @ 132426:               PUSHI  #0x00005247
15675 @ 132431:               ASSVAL

  2483              STORE TAG(K,KK)
15676 @ 132432:               LINE   2483 "regression-compile-tmp/imp918s.imp"
15677 @ 132470:               PUSH   STORETAG
15678 @ 132473:               PUSH   K
15679 @ 132476:               ASSPAR
15680 @ 132477:               PUSH   KK
15681 @ 132480:               ASSPAR
15682 @ 132481:               CALL  

  2484              SET USE(KK,3,TAGS(K))
15683 @ 132482:               LINE   2484 "regression-compile-tmp/imp918s.imp"
15684 @ 132520:               PUSH   SETUSE
15685 @ 132523:               PUSH   KK
15686 @ 132526:               ASSPAR
15687 @ 132527:               PUSHI  #0x00000003
15688 @ 132532:               ASSPAR
15689 @ 132533:               PUSH   TAGS
15690 @ 132536:               PUSH   K
15691 @ 132539:               ACCESS
15692 @ 132540:               ASSPAR
15693 @ 132541:               CALL  

  2485              REGISTER(KK)=-1
15694 @ 132542:               LINE   2485 "regression-compile-tmp/imp918s.imp"
15695 @ 132580:               PUSH   REGISTER
15696 @ 132583:               PUSH   KK
15697 @ 132586:               ACCESS
15698 @ 132587:               PUSHI  #0x00000001
15699 @ 132592:               NEGATE
15700 @ 132593:               ASSVAL

  2486           %FINISH %ELSE FAULT(58,0)
15701 @ 132594:               LINE   2486 "regression-compile-tmp/imp918s.imp"
15702 @ 132632:               GOTO   L_0003
15703 @ 132635:               LOCATE L_0004
15704 @ 132638:               PUSH   FAULT
15705 @ 132641:               PUSHI  #0x0000003a
15706 @ 132646:               ASSPAR
15707 @ 132647:               PUSHI  #0x00000000
15708 @ 132652:               ASSPAR
15709 @ 132653:               CALL  
15710 @ 132654:               LOCATE L_0003

  2487  SW(22):
15711 @ 132657:               LINE   2487 "regression-compile-tmp/imp918s.imp"
15712 @ 132695:               PUSHI  #0x00000016
15713 @ 132700:               SLABEL 445

  2488           ->Label1;                         ! '%MCODE'
15714 @ 132703:               LINE   2488 "regression-compile-tmp/imp918s.imp"
15715 @ 132741:               JUMP   L_01f4

  2489  SW(24):
15716 @ 132744:               LINE   2489 "regression-compile-tmp/imp918s.imp"
15717 @ 132782:               PUSHI  #0x00000018
15718 @ 132787:               SLABEL 445

  2490           P=P+1; LCA=0; CUCI; ->Label1;            ! '*'(UCI)(S)
15719 @ 132790:               LINE   2490 "regression-compile-tmp/imp918s.imp"
15720 @ 132828:               PUSH   P
15721 @ 132831:               PUSH   P
15722 @ 132834:               PUSHI  #0x00000001
15723 @ 132839:               ADD   
15724 @ 132840:               ASSVAL
15725 @ 132841:               LINE   2490 "regression-compile-tmp/imp918s.imp"
15726 @ 132879:               PUSH   LCA
15727 @ 132882:               PUSHI  #0x00000000
15728 @ 132887:               ASSVAL
15729 @ 132888:               LINE   2490 "regression-compile-tmp/imp918s.imp"
15730 @ 132926:               PUSH   CUCI
15731 @ 132929:               CALL  
15732 @ 132930:               LINE   2490 "regression-compile-tmp/imp918s.imp"
15733 @ 132968:               JUMP   L_01f4

  2491  SW(26):
15734 @ 132971:               LINE   2491 "regression-compile-tmp/imp918s.imp"
15735 @ 133009:               PUSHI  #0x0000001a
15736 @ 133014:               SLABEL 445

  2492           %BEGIN;                       ! %COMMENT %DEFINE (SOMETHING)
  2493           {%SHORTROUTINE}
15737 @ 133017:               LINE   2492 "regression-compile-tmp/imp918s.imp"
15738 @ 133055:               BEGIN  _lev0id0_CSS_lev2id13 {lev=2 --> 3}

  2494           %SWITCH S(1:3)
15739 @ 133056:                  LINE   2494 "regression-compile-tmp/imp918s.imp"
15740 @ 133094:                  PUSHI  #0x00000001
15741 @ 133099:                  PUSHI  #0x00000003
15742 @ 133104:                  BOUNDS
15743 @ 133105:                  DEF    S p1=V_01ff a/tf=6 b/format=0 c/ostate=0  type=0 (<type:0>) form=6 (switch) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  2495           %INTEGER I,J,K
15744 @ 133118:                  LINE   2495 "regression-compile-tmp/imp918s.imp"
15745 @ 133156:                  DEF    I p1=V_0200 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
15746 @ 133169:                  DEF    J p1=V_0201 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
15747 @ 133182:                  DEF    K p1=V_0202 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

  2496           -> S(A(P+1))
15748 @ 133195:                  LINE   2496 "regression-compile-tmp/imp918s.imp"
15749 @ 133233:                  PUSH   A
15750 @ 133236:                  PUSH   P
15751 @ 133239:                  PUSHI  #0x00000001
15752 @ 133244:                  ADD   
15753 @ 133245:                  ACCESS
15754 @ 133246:                  SJUMP  511

  2497  S(1):    I=ADDR(FIXED GLA(27)); ->Label1
15755 @ 133249:                  LINE   2497 "regression-compile-tmp/imp918s.imp"
15756 @ 133287:                  PUSHI  #0x00000001
15757 @ 133292:                  SLABEL 511
15758 @ 133295:                  LINE   2497 "regression-compile-tmp/imp918s.imp"
15759 @ 133333:                  PUSH   I
15760 @ 133336:                  PUSH   ADDR
15761 @ 133339:                  PUSH   FIXEDGLA
15762 @ 133342:                  PUSHI  #0x0000001b
15763 @ 133347:                  ACCESS
15764 @ 133348:                  ASSPAR
15765 @ 133349:                  CALL  
15766 @ 133350:                  ASSVAL
15767 @ 133351:                  LINE   2497 "regression-compile-tmp/imp918s.imp"
15768 @ 133389:                  JUMP   L_0203

  2498  S(2):    I=ADDR(IOCP1)+3; ->Label1
15769 @ 133392:                  LINE   2498 "regression-compile-tmp/imp918s.imp"
15770 @ 133430:                  PUSHI  #0x00000002
15771 @ 133435:                  SLABEL 511
15772 @ 133438:                  LINE   2498 "regression-compile-tmp/imp918s.imp"
15773 @ 133476:                  PUSH   I
15774 @ 133479:                  PUSH   ADDR
15775 @ 133482:                  PUSH   IOCP1
15776 @ 133485:                  ASSPAR
15777 @ 133486:                  CALL  
15778 @ 133487:                  PUSHI  #0x00000003
15779 @ 133492:                  ADD   
15780 @ 133493:                  ASSVAL
15781 @ 133494:                  LINE   2498 "regression-compile-tmp/imp918s.imp"
15782 @ 133532:                  JUMP   L_0203

  2499  S(3):    I=ADDR(MAIN EP1)+3
15783 @ 133535:                  LINE   2499 "regression-compile-tmp/imp918s.imp"
15784 @ 133573:                  PUSHI  #0x00000003
15785 @ 133578:                  SLABEL 511
15786 @ 133581:                  LINE   2499 "regression-compile-tmp/imp918s.imp"
15787 @ 133619:                  PUSH   I
15788 @ 133622:                  PUSH   ADDR
15789 @ 133625:                  PUSH   MAINEP1
15790 @ 133628:                  ASSPAR
15791 @ 133629:                  CALL  
15792 @ 133630:                  PUSHI  #0x00000003
15793 @ 133635:                  ADD   
15794 @ 133636:                  ASSVAL

  2500  Label1:       K=A(P+2)
15795 @ 133637:                  LINE   2500 "regression-compile-tmp/imp918s.imp"
15796 @ 133675:                  LABEL  L_0203
15797 @ 133678:                  LINE   2500 "regression-compile-tmp/imp918s.imp"
15798 @ 133716:                  PUSH   K
15799 @ 133719:                  PUSH   A
15800 @ 133722:                  PUSH   P
15801 @ 133725:                  PUSHI  #0x00000002
15802 @ 133730:                  ADD   
15803 @ 133731:                  ACCESS
15804 @ 133732:                  ASSVAL

  2501           FAULT(50,0) %UNLESS CPRMODE=0 %AND K<=7
15805 @ 133733:                  LINE   2501 "regression-compile-tmp/imp918s.imp"
15806 @ 133771:                  PUSH   CPRMODE
15807 @ 133774:                  PUSHI  #0x00000000
15808 @ 133779:                  JUMPIF # L_0005
15809 @ 133783:                  PUSH   K
15810 @ 133786:                  PUSHI  #0x00000007
15811 @ 133791:                  JUMPIF <= L_0004
15812 @ 133795:                  LOCATE L_0005
15813 @ 133798:                  PUSH   FAULT
15814 @ 133801:                  PUSHI  #0x00000032
15815 @ 133806:                  ASSPAR
15816 @ 133807:                  PUSHI  #0x00000000
15817 @ 133812:                  ASSPAR
15818 @ 133813:                  CALL  
15819 @ 133814:                  LOCATE L_0004

  2502           J=ADDR(A(P+2))+1
  2503  !%if USE MC = 1 %start
  2504  !         *L_1,I;*L_2,J
  2505  !         *MVC_0(8,1),0(2)
  2506  !%finish
15820 @ 133817:                  LINE   2502 "regression-compile-tmp/imp918s.imp"
15821 @ 133855:                  PUSH   J
15822 @ 133858:                  PUSH   ADDR
15823 @ 133861:                  PUSH   A
15824 @ 133864:                  PUSH   P
15825 @ 133867:                  PUSHI  #0x00000002
15826 @ 133872:                  ADD   
15827 @ 133873:                  ACCESS
15828 @ 133874:                  ASSPAR
15829 @ 133875:                  CALL  
15830 @ 133876:                  PUSHI  #0x00000001
15831 @ 133881:                  ADD   
15832 @ 133882:                  ASSVAL

  2507           %END; ->Label1
15833 @ 133883:                  LINE   2507 "regression-compile-tmp/imp918s.imp"
15834 @ 133921:               END    _lev0id0_CSS_lev2id13 {lev=3 --> 2}
15835 @ 133922:               LINE   2507 "regression-compile-tmp/imp918s.imp"
15836 @ 133960:               JUMP   L_01f4

  2508  SW(25):
  2509                                         ! %CONTROL (CONST)
  2510  !         FAULT(33,0) %UNLESS IMPS=1
15837 @ 133963:               LINE   2508 "regression-compile-tmp/imp918s.imp"
15838 @ 134001:               PUSHI  #0x00000019
15839 @ 134006:               SLABEL 445

  2511           FROM AR4(P+2,J)
15840 @ 134009:               LINE   2511 "regression-compile-tmp/imp918s.imp"
15841 @ 134047:               PUSH   FROMAR4
15842 @ 134050:               PUSH   P
15843 @ 134053:               PUSHI  #0x00000002
15844 @ 134058:               ADD   
15845 @ 134059:               ASSPAR
15846 @ 134060:               PUSH   J
15847 @ 134063:               ASSPAR
15848 @ 134064:               CALL  

  2512           K=J&15; LINENOS=K %UNLESS K=15
15849 @ 134065:               LINE   2512 "regression-compile-tmp/imp918s.imp"
15850 @ 134103:               PUSH   K
15851 @ 134106:               PUSH   J
15852 @ 134109:               PUSHI  #0x0000000f
15853 @ 134114:               AND   
15854 @ 134115:               ASSVAL
15855 @ 134116:               LINE   2512 "regression-compile-tmp/imp918s.imp"
15856 @ 134154:               PUSH   K
15857 @ 134157:               PUSHI  #0x0000000f
15858 @ 134162:               JUMPIF = L_0004
15859 @ 134166:               PUSH   LINENOS
15860 @ 134169:               PUSH   K
15861 @ 134172:               ASSVAL
15862 @ 134173:               LOCATE L_0004

  2513           K=J>>4&15; DIAGS1=K&1 %AND DIAGS2=K&2 %UNLESS K=15
15863 @ 134176:               LINE   2513 "regression-compile-tmp/imp918s.imp"
15864 @ 134214:               PUSH   K
15865 @ 134217:               PUSH   J
15866 @ 134220:               PUSHI  #0x00000004
15867 @ 134225:               RSH   
15868 @ 134226:               PUSHI  #0x0000000f
15869 @ 134231:               AND   
15870 @ 134232:               ASSVAL
15871 @ 134233:               LINE   2513 "regression-compile-tmp/imp918s.imp"
15872 @ 134271:               PUSH   K
15873 @ 134274:               PUSHI  #0x0000000f
15874 @ 134279:               JUMPIF = L_0004
15875 @ 134283:               PUSH   DIAGS1
15876 @ 134286:               PUSH   K
15877 @ 134289:               PUSHI  #0x00000001
15878 @ 134294:               AND   
15879 @ 134295:               ASSVAL
15880 @ 134296:               PUSH   DIAGS2
15881 @ 134299:               PUSH   K
15882 @ 134302:               PUSHI  #0x00000002
15883 @ 134307:               AND   
15884 @ 134308:               ASSVAL
15885 @ 134309:               LOCATE L_0004

  2514           K=J>>8&15
15886 @ 134312:               LINE   2514 "regression-compile-tmp/imp918s.imp"
15887 @ 134350:               PUSH   K
15888 @ 134353:               PUSH   J
15889 @ 134356:               PUSHI  #0x00000008
15890 @ 134361:               RSH   
15891 @ 134362:               PUSHI  #0x0000000f
15892 @ 134367:               AND   
15893 @ 134368:               ASSVAL

  2515           CHECKS=K %UNLESS K=15
15894 @ 134369:               LINE   2515 "regression-compile-tmp/imp918s.imp"
15895 @ 134407:               PUSH   K
15896 @ 134410:               PUSHI  #0x0000000f
15897 @ 134415:               JUMPIF = L_0004
15898 @ 134419:               PUSH   CHECKS
15899 @ 134422:               PUSH   K
15900 @ 134425:               ASSVAL
15901 @ 134426:               LOCATE L_0004

  2516           CHECKSP=K&14 %UNLESS K=15
15902 @ 134429:               LINE   2516 "regression-compile-tmp/imp918s.imp"
15903 @ 134467:               PUSH   K
15904 @ 134470:               PUSHI  #0x0000000f
15905 @ 134475:               JUMPIF = L_0004
15906 @ 134479:               PUSH   CHECKSP
15907 @ 134482:               PUSH   K
15908 @ 134485:               PUSHI  #0x0000000e
15909 @ 134490:               AND   
15910 @ 134491:               ASSVAL
15911 @ 134492:               LOCATE L_0004

  2517           GLAFLAG=CHECKSP
15912 @ 134495:               LINE   2517 "regression-compile-tmp/imp918s.imp"
15913 @ 134533:               PUSH   GLAFLAG
15914 @ 134536:               PUSH   CHECKSP
15915 @ 134539:               ASSVAL

  2518           K=J>>12&15
15916 @ 134540:               LINE   2518 "regression-compile-tmp/imp918s.imp"
15917 @ 134578:               PUSH   K
15918 @ 134581:               PUSH   J
15919 @ 134584:               PUSHI  #0x0000000c
15920 @ 134589:               RSH   
15921 @ 134590:               PUSHI  #0x0000000f
15922 @ 134595:               AND   
15923 @ 134596:               ASSVAL

  2519           UNASS=K %UNLESS K=15
15924 @ 134597:               LINE   2519 "regression-compile-tmp/imp918s.imp"
15925 @ 134635:               PUSH   K
15926 @ 134638:               PUSHI  #0x0000000f
15927 @ 134643:               JUMPIF = L_0004
15928 @ 134647:               PUSH   UNASS
15929 @ 134650:               PUSH   K
15930 @ 134653:               ASSVAL
15931 @ 134654:               LOCATE L_0004

  2520           K=J>>24&15
15932 @ 134657:               LINE   2520 "regression-compile-tmp/imp918s.imp"
15933 @ 134695:               PUSH   K
15934 @ 134698:               PUSH   J
15935 @ 134701:               PUSHI  #0x00000018
15936 @ 134706:               RSH   
15937 @ 134707:               PUSHI  #0x0000000f
15938 @ 134712:               AND   
15939 @ 134713:               ASSVAL

  2521           %IF K=1 %THEN %START;         ! PERMIT LOWER CASE NAMES
15940 @ 134714:               LINE   2521 "regression-compile-tmp/imp918s.imp"
15941 @ 134752:               PUSH   K
15942 @ 134755:               PUSHI  #0x00000001
15943 @ 134760:               JUMPIF # L_0004

  2522              %CYCLE I=1,1,26
15944 @ 134764:               LINE   2522 "regression-compile-tmp/imp918s.imp"
15945 @ 134802:               PUSH   I
15946 @ 134805:               PUSHI  #0x00000001
15947 @ 134810:               PUSHI  #0x0000001a
15948 @ 134815:               PUSHI  #0x00000001
15949 @ 134820:               FOR    L_0006

  2523                 TRTABS(I+96)=0
15950 @ 134823:               LINE   2523 "regression-compile-tmp/imp918s.imp"
15951 @ 134861:               PUSH   TRTABS
15952 @ 134864:               PUSH   I
15953 @ 134867:               PUSHI  #0x00000060
15954 @ 134872:               ADD   
15955 @ 134873:               ACCESS
15956 @ 134874:               PUSHI  #0x00000000
15957 @ 134879:               ASSVAL

  2524              %REPEAT
15958 @ 134880:               LINE   2524 "regression-compile-tmp/imp918s.imp"
15959 @ 134918:               REPEAT L_0006
15960 @ 134921:               LOCATE L_0007

  2525           %FINISH
15961 @ 134924:               LINE   2525 "regression-compile-tmp/imp918s.imp"
15962 @ 134962:               LOCATE L_0004

  2526           K=J>>28
15963 @ 134965:               LINE   2526 "regression-compile-tmp/imp918s.imp"
15964 @ 135003:               PUSH   K
15965 @ 135006:               PUSH   J
15966 @ 135009:               PUSHI  #0x0000001c
15967 @ 135014:               RSH   
15968 @ 135015:               ASSVAL

  2527           %IF K=1 %THEN CODEOUT
15969 @ 135016:               LINE   2527 "regression-compile-tmp/imp918s.imp"
15970 @ 135054:               PUSH   K
15971 @ 135057:               PUSHI  #0x00000001
15972 @ 135062:               JUMPIF # L_0004
15973 @ 135066:               PUSH   CODEOUT
15974 @ 135069:               CALL  
15975 @ 135070:               LOCATE L_0004

  2528           DCOMP=K %UNLESS K=15
15976 @ 135073:               LINE   2528 "regression-compile-tmp/imp918s.imp"
15977 @ 135111:               PUSH   K
15978 @ 135114:               PUSHI  #0x0000000f
15979 @ 135119:               JUMPIF = L_0004
15980 @ 135123:               PUSH   DCOMP
15981 @ 135126:               PUSH   K
15982 @ 135129:               ASSVAL
15983 @ 135130:               LOCATE L_0004

  2529           ->Label1
15984 @ 135133:               LINE   2529 "regression-compile-tmp/imp918s.imp"
15985 @ 135171:               JUMP   L_01f4

  2530  SW(27):
15986 @ 135174:               LINE   2530 "regression-compile-tmp/imp918s.imp"
15987 @ 135212:               PUSHI  #0x0000001b
15988 @ 135217:               SLABEL 445

  2531           %BEGIN;                       ! %RECORD (RDECLN)
  2532  !***********************************************************************
  2533  !*       RECORDS ARE ALLOCATED AT COMPILE TIME WHEN POSSIBLE           *
  2534  !*       SEE CRFORMAT FOR ACTION ON RECORD FORMAT DECLARATIONS         *
  2535  !***********************************************************************
  2536           {%SHORTROUTINE}
15989 @ 135220:               LINE   2531 "regression-compile-tmp/imp918s.imp"
15990 @ 135258:               BEGIN  _lev0id0_CSS_lev2id14 {lev=2 --> 3}

  2537           %INTEGER MODE,RECL,ALLOC,FNAM,FINF,NAME
15991 @ 135259:                  LINE   2537 "regression-compile-tmp/imp918s.imp"
15992 @ 135297:                  DEF    MODE p1=V_01ff 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
15993 @ 135313:                  DEF    RECL p1=V_0200 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
15994 @ 135329:                  DEF    ALLOC p1=V_0201 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
15995 @ 135346:                  DEF    FNAM p1=V_0202 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
15996 @ 135362:                  DEF    FINF p1=V_0203 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
15997 @ 135378:                  DEF    NAME p1=V_0204 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

  2538           P=P+1; MODE=A(P)
15998 @ 135394:                  LINE   2538 "regression-compile-tmp/imp918s.imp"
15999 @ 135432:                  PUSH   P
16000 @ 135435:                  PUSH   P
16001 @ 135438:                  PUSHI  #0x00000001
16002 @ 135443:                  ADD   
16003 @ 135444:                  ASSVAL
16004 @ 135445:                  LINE   2538 "regression-compile-tmp/imp918s.imp"
16005 @ 135483:                  PUSH   MODE
16006 @ 135486:                  PUSH   A
16007 @ 135489:                  PUSH   P
16008 @ 135492:                  ACCESS
16009 @ 135493:                  ASSVAL

  2539           %IF MODE=1 %THEN %START;      ! DEAL WITH FORMAT
16010 @ 135494:                  LINE   2539 "regression-compile-tmp/imp918s.imp"
16011 @ 135532:                  PUSH   MODE
16012 @ 135535:                  PUSHI  #0x00000001
16013 @ 135540:                  JUMPIF # L_0004

  2540              NAME=A(P+1); P=P+2
16014 @ 135544:                  LINE   2540 "regression-compile-tmp/imp918s.imp"
16015 @ 135582:                  PUSH   NAME
16016 @ 135585:                  PUSH   A
16017 @ 135588:                  PUSH   P
16018 @ 135591:                  PUSHI  #0x00000001
16019 @ 135596:                  ADD   
16020 @ 135597:                  ACCESS
16021 @ 135598:                  ASSVAL
16022 @ 135599:                  LINE   2540 "regression-compile-tmp/imp918s.imp"
16023 @ 135637:                  PUSH   P
16024 @ 135640:                  PUSH   P
16025 @ 135643:                  PUSHI  #0x00000002
16026 @ 135648:                  ADD   
16027 @ 135649:                  ASSVAL

  2541              CRFORMAT(OPHEAD); K=NAME
16028 @ 135650:                  LINE   2541 "regression-compile-tmp/imp918s.imp"
16029 @ 135688:                  PUSH   CRFORMAT
16030 @ 135691:                  PUSH   OPHEAD
16031 @ 135694:                  ASSPAR
16032 @ 135695:                  CALL  
16033 @ 135696:                  LINE   2541 "regression-compile-tmp/imp918s.imp"
16034 @ 135734:                  PUSH   K
16035 @ 135737:                  PUSH   NAME
16036 @ 135740:                  ASSVAL

  2542              PTYPE=4; J=0
16037 @ 135741:                  LINE   2542 "regression-compile-tmp/imp918s.imp"
16038 @ 135779:                  PUSH   PTYPE
16039 @ 135782:                  PUSHI  #0x00000004
16040 @ 135787:                  ASSVAL
16041 @ 135788:                  LINE   2542 "regression-compile-tmp/imp918s.imp"
16042 @ 135826:                  PUSH   J
16043 @ 135829:                  PUSHI  #0x00000000
16044 @ 135834:                  ASSVAL

  2543              KFORM=OPHEAD
16045 @ 135835:                  LINE   2543 "regression-compile-tmp/imp918s.imp"
16046 @ 135873:                  PUSH   KFORM
16047 @ 135876:                  PUSH   OPHEAD
16048 @ 135879:                  ASSVAL

  2544              TEST NST; STORE TAG(K,OPHEAD)
16049 @ 135880:                  LINE   2544 "regression-compile-tmp/imp918s.imp"
16050 @ 135918:                  PUSH   TESTNST
16051 @ 135921:                  CALL  
16052 @ 135922:                  LINE   2544 "regression-compile-tmp/imp918s.imp"
16053 @ 135960:                  PUSH   STORETAG
16054 @ 135963:                  PUSH   K
16055 @ 135966:                  ASSPAR
16056 @ 135967:                  PUSH   OPHEAD
16057 @ 135970:                  ASSPAR
16058 @ 135971:                  CALL  

  2545              ->Label99
16059 @ 135972:                  LINE   2545 "regression-compile-tmp/imp918s.imp"
16060 @ 136010:                  JUMP   L_0205

  2546           %FINISH
16061 @ 136013:                  LINE   2546 "regression-compile-tmp/imp918s.imp"
16062 @ 136051:                  LOCATE L_0004

  2547           P=P+1; MARKER1=P+A(P)
16063 @ 136054:                  LINE   2547 "regression-compile-tmp/imp918s.imp"
16064 @ 136092:                  PUSH   P
16065 @ 136095:                  PUSH   P
16066 @ 136098:                  PUSHI  #0x00000001
16067 @ 136103:                  ADD   
16068 @ 136104:                  ASSVAL
16069 @ 136105:                  LINE   2547 "regression-compile-tmp/imp918s.imp"
16070 @ 136143:                  PUSH   MARKER1
16071 @ 136146:                  PUSH   P
16072 @ 136149:                  PUSH   A
16073 @ 136152:                  PUSH   P
16074 @ 136155:                  ACCESS
16075 @ 136156:                  ADD   
16076 @ 136157:                  ASSVAL

  2548           FNAM=A(MARKER1);              ! FORMAT NAME
16077 @ 136158:                  LINE   2548 "regression-compile-tmp/imp918s.imp"
16078 @ 136196:                  PUSH   FNAM
16079 @ 136199:                  PUSH   A
16080 @ 136202:                  PUSH   MARKER1
16081 @ 136205:                  ACCESS
16082 @ 136206:                  ASSVAL

  2549           COPY TAG(FNAM)
16083 @ 136207:                  LINE   2549 "regression-compile-tmp/imp918s.imp"
16084 @ 136245:                  PUSH   COPYTAG
16085 @ 136248:                  PUSH   FNAM
16086 @ 136251:                  ASSPAR
16087 @ 136252:                  CALL  

  2550           FINF=TCELL
16088 @ 136253:                  LINE   2550 "regression-compile-tmp/imp918s.imp"
16089 @ 136291:                  PUSH   FINF
16090 @ 136294:                  PUSH   TCELL
16091 @ 136297:                  ASSVAL

  2551           %IF TYPE#4 %THEN %START
16092 @ 136298:                  LINE   2551 "regression-compile-tmp/imp918s.imp"
16093 @ 136336:                  PUSH   TYPE
16094 @ 136339:                  PUSHI  #0x00000004
16095 @ 136344:                  JUMPIF = L_0004

  2552              FINF=DUMMY FORMAT
16096 @ 136348:                  LINE   2552 "regression-compile-tmp/imp918s.imp"
16097 @ 136386:                  PUSH   FINF
16098 @ 136389:                  PUSH   DUMMYFORMAT
16099 @ 136392:                  ASSVAL

  2553              ACC=4; FAULT(62,FNAM)
16100 @ 136393:                  LINE   2553 "regression-compile-tmp/imp918s.imp"
16101 @ 136431:                  PUSH   ACC
16102 @ 136434:                  PUSHI  #0x00000004
16103 @ 136439:                  ASSVAL
16104 @ 136440:                  LINE   2553 "regression-compile-tmp/imp918s.imp"
16105 @ 136478:                  PUSH   FAULT
16106 @ 136481:                  PUSHI  #0x0000003e
16107 @ 136486:                  ASSPAR
16108 @ 136487:                  PUSH   FNAM
16109 @ 136490:                  ASSPAR
16110 @ 136491:                  CALL  

  2554           %FINISH
16111 @ 136492:                  LINE   2554 "regression-compile-tmp/imp918s.imp"
16112 @ 136530:                  LOCATE L_0004

  2555           RECL=ACC
16113 @ 136533:                  LINE   2555 "regression-compile-tmp/imp918s.imp"
16114 @ 136571:                  PUSH   RECL
16115 @ 136574:                  PUSH   ACC
16116 @ 136577:                  ASSVAL

  2556           %IF MODE=2%THEN %START;       ! '%RECORDSPEC'
16117 @ 136578:                  LINE   2556 "regression-compile-tmp/imp918s.imp"
16118 @ 136616:                  PUSH   MODE
16119 @ 136619:                  PUSHI  #0x00000002
16120 @ 136624:                  JUMPIF # L_0004

  2557              COPY TAG(A(P+1))
16121 @ 136628:                  LINE   2557 "regression-compile-tmp/imp918s.imp"
16122 @ 136666:                  PUSH   COPYTAG
16123 @ 136669:                  PUSH   A
16124 @ 136672:                  PUSH   P
16125 @ 136675:                  PUSHI  #0x00000001
16126 @ 136680:                  ADD   
16127 @ 136681:                  ACCESS
16128 @ 136682:                  ASSPAR
16129 @ 136683:                  CALL  

  2558              %IF A(P+2)=1 %AND TYPE=4 %START;! SPEC FOR FORMAT ELEMENT
16130 @ 136684:                  LINE   2558 "regression-compile-tmp/imp918s.imp"
16131 @ 136722:                  PUSH   A
16132 @ 136725:                  PUSH   P
16133 @ 136728:                  PUSHI  #0x00000002
16134 @ 136733:                  ADD   
16135 @ 136734:                  ACCESS
16136 @ 136735:                  PUSHI  #0x00000001
16137 @ 136740:                  JUMPIF # L_0007
16138 @ 136744:                  PUSH   TYPE
16139 @ 136747:                  PUSHI  #0x00000004
16140 @ 136752:                  JUMPIF # L_0007

  2559                 P=P+3
16141 @ 136756:                  LINE   2559 "regression-compile-tmp/imp918s.imp"
16142 @ 136794:                  PUSH   P
16143 @ 136797:                  PUSH   P
16144 @ 136800:                  PUSHI  #0x00000003
16145 @ 136805:                  ADD   
16146 @ 136806:                  ASSVAL

  2560                 Q=DISPLACEMENT(TCELL)
  2561                ! UNPACK
  2562  !%if USE MC = 1 %start
  2563  !            *L_1,PTYPE; *CVD_1,0(11)
  2564  !            *UNPK_ROUT(5),5(3,11)
  2565  !            *NC_ROUT(5),MASK1
  2566  !%finish
16147 @ 136807:                  LINE   2560 "regression-compile-tmp/imp918s.imp"
16148 @ 136845:                  PUSH   Q
16149 @ 136848:                  PUSH   DISPLACEMENT
16150 @ 136851:                  PUSH   TCELL
16151 @ 136854:                  ASSPAR
16152 @ 136855:                  CALL  
16153 @ 136856:                  ASSVAL

  2567              %FINISH
16154 @ 136857:                  LINE   2567 "regression-compile-tmp/imp918s.imp"
16155 @ 136895:                  LOCATE L_0007

  2568              %IF TYPE=3 %AND NAM=1 %AND FROM3(TCELL)&X'FFFF'=0 %START
16156 @ 136898:                  LINE   2568 "regression-compile-tmp/imp918s.imp"
16157 @ 136936:                  PUSH   TYPE
16158 @ 136939:                  PUSHI  #0x00000003
16159 @ 136944:                  JUMPIF # L_0007
16160 @ 136948:                  PUSH   NAM
16161 @ 136951:                  PUSHI  #0x00000001
16162 @ 136956:                  JUMPIF # L_0007
16163 @ 136960:                  PUSH   FROM3
16164 @ 136963:                  PUSH   TCELL
16165 @ 136966:                  ASSPAR
16166 @ 136967:                  CALL  
16167 @ 136968:                  PUSHI  #0x0000ffff
16168 @ 136973:                  AND   
16169 @ 136974:                  PUSHI  #0x00000000
16170 @ 136979:                  JUMPIF # L_0007

  2569                 REPLACE3(TCELL,FINF!K<<16)
16171 @ 136983:                  LINE   2569 "regression-compile-tmp/imp918s.imp"
16172 @ 137021:                  PUSH   REPLACE3
16173 @ 137024:                  PUSH   TCELL
16174 @ 137027:                  ASSPAR
16175 @ 137028:                  PUSH   FINF
16176 @ 137031:                  PUSH   K
16177 @ 137034:                  PUSHI  #0x00000010
16178 @ 137039:                  LSH   
16179 @ 137040:                  OR    
16180 @ 137041:                  ASSPAR
16181 @ 137042:                  CALL  

  2570                 REPLACE2(TCELL,SNDISP<<16!RECL)
16182 @ 137043:                  LINE   2570 "regression-compile-tmp/imp918s.imp"
16183 @ 137081:                  PUSH   REPLACE2
16184 @ 137084:                  PUSH   TCELL
16185 @ 137087:                  ASSPAR
16186 @ 137088:                  PUSH   SNDISP
16187 @ 137091:                  PUSHI  #0x00000010
16188 @ 137096:                  LSH   
16189 @ 137097:                  PUSH   RECL
16190 @ 137100:                  OR    
16191 @ 137101:                  ASSPAR
16192 @ 137102:                  CALL  

  2571              %FINISH %ELSE FAULT(63,0)
16193 @ 137103:                  LINE   2571 "regression-compile-tmp/imp918s.imp"
16194 @ 137141:                  GOTO   L_0006
16195 @ 137144:                  LOCATE L_0007
16196 @ 137147:                  PUSH   FAULT
16197 @ 137150:                  PUSHI  #0x0000003f
16198 @ 137155:                  ASSPAR
16199 @ 137156:                  PUSHI  #0x00000000
16200 @ 137161:                  ASSPAR
16201 @ 137162:                  CALL  
16202 @ 137163:                  LOCATE L_0006

  2572           %FINISH %ELSE %START;         ! RECORD DECLARATION
16203 @ 137166:                  LINE   2572 "regression-compile-tmp/imp918s.imp"
16204 @ 137204:                  GOTO   L_0003
16205 @ 137207:                  LOCATE L_0004

  2573              FAULT(57,0) %UNLESS LEVEL>=2
16206 @ 137210:                  LINE   2573 "regression-compile-tmp/imp918s.imp"
16207 @ 137248:                  PUSH   LEVEL
16208 @ 137251:                  PUSHI  #0x00000002
16209 @ 137256:                  JUMPIF >= L_0007
16210 @ 137260:                  PUSH   FAULT
16211 @ 137263:                  PUSHI  #0x00000039
16212 @ 137268:                  ASSPAR
16213 @ 137269:                  PUSHI  #0x00000000
16214 @ 137274:                  ASSPAR
16215 @ 137275:                  CALL  
16216 @ 137276:                  LOCATE L_0007

  2574              FAULT(40,0) %IF NMDECS&1#0
16217 @ 137279:                  LINE   2574 "regression-compile-tmp/imp918s.imp"
16218 @ 137317:                  PUSH   NMDECS
16219 @ 137320:                  PUSHI  #0x00000001
16220 @ 137325:                  AND   
16221 @ 137326:                  PUSHI  #0x00000000
16222 @ 137331:                  JUMPIF = L_0007
16223 @ 137335:                  PUSH   FAULT
16224 @ 137338:                  PUSHI  #0x00000028
16225 @ 137343:                  ASSPAR
16226 @ 137344:                  PUSHI  #0x00000000
16227 @ 137349:                  ASSPAR
16228 @ 137350:                  CALL  
16229 @ 137351:                  LOCATE L_0007

  2575              TYPE=3; PREC=0; ROUT=0
16230 @ 137354:                  LINE   2575 "regression-compile-tmp/imp918s.imp"
16231 @ 137392:                  PUSH   TYPE
16232 @ 137395:                  PUSHI  #0x00000003
16233 @ 137400:                  ASSVAL
16234 @ 137401:                  LINE   2575 "regression-compile-tmp/imp918s.imp"
16235 @ 137439:                  PUSH   PREC
16236 @ 137442:                  PUSHI  #0x00000000
16237 @ 137447:                  ASSVAL
16238 @ 137448:                  LINE   2575 "regression-compile-tmp/imp918s.imp"
16239 @ 137486:                  PUSH   ROUT
16240 @ 137489:                  PUSHI  #0x00000000
16241 @ 137494:                  ASSVAL

  2576             %IF A(P+1)=1 %THEN %START;  ! SIMPLE RECORD AND RECORDNAMES
16242 @ 137495:                  LINE   2576 "regression-compile-tmp/imp918s.imp"
16243 @ 137533:                  PUSH   A
16244 @ 137536:                  PUSH   P
16245 @ 137539:                  PUSHI  #0x00000001
16246 @ 137544:                  ADD   
16247 @ 137545:                  ACCESS
16248 @ 137546:                  PUSHI  #0x00000001
16249 @ 137551:                  JUMPIF # L_0007

  2577                 ALLOC=ACC; CQN(P+2)
16250 @ 137555:                  LINE   2577 "regression-compile-tmp/imp918s.imp"
16251 @ 137593:                  PUSH   ALLOC
16252 @ 137596:                  PUSH   ACC
16253 @ 137599:                  ASSVAL
16254 @ 137600:                  LINE   2577 "regression-compile-tmp/imp918s.imp"
16255 @ 137638:                  PUSH   CQN
16256 @ 137641:                  PUSH   P
16257 @ 137644:                  PUSHI  #0x00000002
16258 @ 137649:                  ADD   
16259 @ 137650:                  ASSPAR
16260 @ 137651:                  CALL  

  2578                 ACC=ALLOC; P=P+3
16261 @ 137652:                  LINE   2578 "regression-compile-tmp/imp918s.imp"
16262 @ 137690:                  PUSH   ACC
16263 @ 137693:                  PUSH   ALLOC
16264 @ 137696:                  ASSVAL
16265 @ 137697:                  LINE   2578 "regression-compile-tmp/imp918s.imp"
16266 @ 137735:                  PUSH   P
16267 @ 137738:                  PUSH   P
16268 @ 137741:                  PUSHI  #0x00000003
16269 @ 137746:                  ADD   
16270 @ 137747:                  ASSVAL

  2579                 DECLARE SCALARS(1,FINF)
16271 @ 137748:                  LINE   2579 "regression-compile-tmp/imp918s.imp"
16272 @ 137786:                  PUSH   DECLARESCALARS
16273 @ 137789:                  PUSHI  #0x00000001
16274 @ 137794:                  ASSPAR
16275 @ 137795:                  PUSH   FINF
16276 @ 137798:                  ASSPAR
16277 @ 137799:                  CALL  

  2580              %FINISH %ELSE %START;      ! ARRAYS OF RECORDS
16278 @ 137800:                  LINE   2580 "regression-compile-tmp/imp918s.imp"
16279 @ 137838:                  GOTO   L_0006
16280 @ 137841:                  LOCATE L_0007

  2581                 NAM=0
16281 @ 137844:                  LINE   2581 "regression-compile-tmp/imp918s.imp"
16282 @ 137882:                  PUSH   NAM
16283 @ 137885:                  PUSHI  #0x00000000
16284 @ 137890:                  ASSVAL

  2582                 Q=2-A(P+2); P=P+3;      ! Q=1 FOR ARRAY FORMAT
16285 @ 137891:                  LINE   2582 "regression-compile-tmp/imp918s.imp"
16286 @ 137929:                  PUSH   Q
16287 @ 137932:                  PUSHI  #0x00000002
16288 @ 137937:                  PUSH   A
16289 @ 137940:                  PUSH   P
16290 @ 137943:                  PUSHI  #0x00000002
16291 @ 137948:                  ADD   
16292 @ 137949:                  ACCESS
16293 @ 137950:                  SUB   
16294 @ 137951:                  ASSVAL
16295 @ 137952:                  LINE   2582 "regression-compile-tmp/imp918s.imp"
16296 @ 137990:                  PUSH   P
16297 @ 137993:                  PUSH   P
16298 @ 137996:                  PUSHI  #0x00000003
16299 @ 138001:                  ADD   
16300 @ 138002:                  ASSVAL

  2583                 DECLARE ARRAYS(Q,FINF)
16301 @ 138003:                  LINE   2583 "regression-compile-tmp/imp918s.imp"
16302 @ 138041:                  PUSH   DECLAREARRAYS
16303 @ 138044:                  PUSH   Q
16304 @ 138047:                  ASSPAR
16305 @ 138048:                  PUSH   FINF
16306 @ 138051:                  ASSPAR
16307 @ 138052:                  CALL  

  2584              %FINISH
16308 @ 138053:                  LINE   2584 "regression-compile-tmp/imp918s.imp"
16309 @ 138091:                  LOCATE L_0006

  2585           %FINISH
16310 @ 138094:                  LINE   2585 "regression-compile-tmp/imp918s.imp"
16311 @ 138132:                  LOCATE L_0003

  2586  Label99:      %END;->Label1
  2587  !
  2588  
16312 @ 138135:                  LINE   2586 "regression-compile-tmp/imp918s.imp"
16313 @ 138173:                  LABEL  L_0205
16314 @ 138176:                  LINE   2586 "regression-compile-tmp/imp918s.imp"
16315 @ 138214:               END    _lev0id0_CSS_lev2id14 {lev=3 --> 2}
16316 @ 138215:               LINE   2586 "regression-compile-tmp/imp918s.imp"
16317 @ 138253:               JUMP   L_01f4

  2589  SW(28):                                 ! '%ON'(EVENT')(N)(RESTOFNLIST)
16318 @ 138256:               LINE   2589 "regression-compile-tmp/imp918s.imp"
16319 @ 138294:               PUSHI  #0x0000001c
16320 @ 138299:               SLABEL 445

  2590  %BEGIN
  2591  {%SHORTROUTINE}
16321 @ 138302:               LINE   2590 "regression-compile-tmp/imp918s.imp"
16322 @ 138340:               BEGIN  _lev0id0_CSS_lev2id15 {lev=2 --> 3}

  2592  %INTEGER EL,KK,EF
16323 @ 138341:                  LINE   2592 "regression-compile-tmp/imp918s.imp"
16324 @ 138379:                  DEF    EL p1=V_01ff 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
16325 @ 138393:                  DEF    KK p1=V_0200 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
16326 @ 138407:                  DEF    EF p1=V_0201 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

  2593  %CONSTINTEGERARRAY EFMAP(1:14)=X'04E10003',8,X'20000',X'2000',
  2594                    X'08100074',X'A0000000',X'2000000',X'40000000',
  2595                    X'100',X'01000000',X'40000',0(3);
16327 @ 138421:                  LINE   2593 "regression-compile-tmp/imp918s.imp"
16328 @ 138459:                  PUSHI  #0x00000001
16329 @ 138464:                  PUSHI  #0x0000000e
16330 @ 138469:                  BOUNDS
16331 @ 138470:                  DEF    EFMAP p1=V_0202 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
16332 @ 138487:                  PUSHI  #0x04e10003
16333 @ 138492:                  INIT   1
16334 @ 138495:                  PUSHI  #0x00000008
16335 @ 138500:                  INIT   1
16336 @ 138503:                  PUSHI  #0x00020000
16337 @ 138508:                  INIT   1
16338 @ 138511:                  PUSHI  #0x00002000
16339 @ 138516:                  INIT   1
16340 @ 138519:                  PUSHI  #0x08100074
16341 @ 138524:                  INIT   1
16342 @ 138527:                  PUSHI  #0xa0000000
16343 @ 138532:                  INIT   1
16344 @ 138535:                  PUSHI  #0x02000000
16345 @ 138540:                  INIT   1
16346 @ 138543:                  PUSHI  #0x40000000
16347 @ 138548:                  INIT   1
16348 @ 138551:                  PUSHI  #0x00000100
16349 @ 138556:                  INIT   1
16350 @ 138559:                  PUSHI  #0x01000000
16351 @ 138564:                  INIT   1
16352 @ 138567:                  PUSHI  #0x00040000
16353 @ 138572:                  INIT   1
16354 @ 138575:                  PUSHI  #0x00000000
16355 @ 138580:                  INIT   3

  2596        FAULT(40,0) %IF NMDECS&1#0
16356 @ 138583:                  LINE   2596 "regression-compile-tmp/imp918s.imp"
16357 @ 138621:                  PUSH   NMDECS
16358 @ 138624:                  PUSHI  #0x00000001
16359 @ 138629:                  AND   
16360 @ 138630:                  PUSHI  #0x00000000
16361 @ 138635:                  JUMPIF = L_0004
16362 @ 138639:                  PUSH   FAULT
16363 @ 138642:                  PUSHI  #0x00000028
16364 @ 138647:                  ASSPAR
16365 @ 138648:                  PUSHI  #0x00000000
16366 @ 138653:                  ASSPAR
16367 @ 138654:                  CALL  
16368 @ 138655:                  LOCATE L_0004

  2597        NMDECS=NMDECS!1
16369 @ 138658:                  LINE   2597 "regression-compile-tmp/imp918s.imp"
16370 @ 138696:                  PUSH   NMDECS
16371 @ 138699:                  PUSH   NMDECS
16372 @ 138702:                  PUSHI  #0x00000001
16373 @ 138707:                  OR    
16374 @ 138708:                  ASSVAL

  2598        FAULT(26,0) %UNLESS LEVEL=2 %AND CPRMODE#2
16375 @ 138709:                  LINE   2598 "regression-compile-tmp/imp918s.imp"
16376 @ 138747:                  PUSH   LEVEL
16377 @ 138750:                  PUSHI  #0x00000002
16378 @ 138755:                  JUMPIF # L_0005
16379 @ 138759:                  PUSH   CPRMODE
16380 @ 138762:                  PUSHI  #0x00000002
16381 @ 138767:                  JUMPIF # L_0004
16382 @ 138771:                  LOCATE L_0005
16383 @ 138774:                  PUSH   FAULT
16384 @ 138777:                  PUSHI  #0x0000001a
16385 @ 138782:                  ASSPAR
16386 @ 138783:                  PUSHI  #0x00000000
16387 @ 138788:                  ASSPAR
16388 @ 138789:                  CALL  
16389 @ 138790:                  LOCATE L_0004

  2599        P=P+2; SFLABEL=SFLABEL-1; EL=SFLABEL
16390 @ 138793:                  LINE   2599 "regression-compile-tmp/imp918s.imp"
16391 @ 138831:                  PUSH   P
16392 @ 138834:                  PUSH   P
16393 @ 138837:                  PUSHI  #0x00000002
16394 @ 138842:                  ADD   
16395 @ 138843:                  ASSVAL
16396 @ 138844:                  LINE   2599 "regression-compile-tmp/imp918s.imp"
16397 @ 138882:                  PUSH   SFLABEL
16398 @ 138885:                  PUSH   SFLABEL
16399 @ 138888:                  PUSHI  #0x00000001
16400 @ 138893:                  SUB   
16401 @ 138894:                  ASSVAL
16402 @ 138895:                  LINE   2599 "regression-compile-tmp/imp918s.imp"
16403 @ 138933:                  PUSH   EL
16404 @ 138936:                  PUSH   SFLABEL
16405 @ 138939:                  ASSVAL

  2600        %CYCLE;           ! UNTIL NO MORE RESTOFNLIST
16406 @ 138940:                  LINE   2600 "regression-compile-tmp/imp918s.imp"
16407 @ 138978:                  LOCATE L_0003

  2601           KK=A(P)
16408 @ 138981:                  LINE   2601 "regression-compile-tmp/imp918s.imp"
16409 @ 139019:                  PUSH   KK
16410 @ 139022:                  PUSH   A
16411 @ 139025:                  PUSH   P
16412 @ 139028:                  ACCESS
16413 @ 139029:                  ASSVAL

  2602           %IF 1<=KK<=14 %START
16414 @ 139030:                  LINE   2602 "regression-compile-tmp/imp918s.imp"
16415 @ 139068:                  PUSHI  #0x00000001
16416 @ 139073:                  PUSH   KK
16417 @ 139076:                  JUMPIFD > L_0007
16418 @ 139080:                  PUSHI  #0x0000000e
16419 @ 139085:                  JUMPIF > L_0007

  2603              EF=EFMAP(KK)
16420 @ 139089:                  LINE   2603 "regression-compile-tmp/imp918s.imp"
16421 @ 139127:                  PUSH   EF
16422 @ 139130:                  PUSH   EFMAP
16423 @ 139133:                  PUSH   KK
16424 @ 139136:                  ACCESS
16425 @ 139137:                  ASSVAL

  2604              %CYCLE I=0,1,31
16426 @ 139138:                  LINE   2604 "regression-compile-tmp/imp918s.imp"
16427 @ 139176:                  PUSH   I
16428 @ 139179:                  PUSHI  #0x00000001
16429 @ 139184:                  PUSHI  #0x0000001f
16430 @ 139189:                  PUSHI  #0x00000000
16431 @ 139194:                  FOR    L_0009

  2605                 %IF 1<<I&EF#0 %START
16432 @ 139197:                  LINE   2605 "regression-compile-tmp/imp918s.imp"
16433 @ 139235:                  PUSHI  #0x00000001
16434 @ 139240:                  PUSH   I
16435 @ 139243:                  LSH   
16436 @ 139244:                  PUSH   EF
16437 @ 139247:                  AND   
16438 @ 139248:                  PUSHI  #0x00000000
16439 @ 139253:                  JUMPIF = L_000d

  2606                    PCONST(X'41100001'+I)
16440 @ 139257:                  LINE   2606 "regression-compile-tmp/imp918s.imp"
16441 @ 139295:                  PUSH   PCONST
16442 @ 139298:                  PUSHI  #0x41100001
16443 @ 139303:                  PUSH   I
16444 @ 139306:                  ADD   
16445 @ 139307:                  ASSPAR
16446 @ 139308:                  CALL  

  2607                    PPJ(20); QQ=CA
16447 @ 139309:                  LINE   2607 "regression-compile-tmp/imp918s.imp"
16448 @ 139347:                  PUSH   PPJ
16449 @ 139350:                  PUSHI  #0x00000014
16450 @ 139355:                  ASSPAR
16451 @ 139356:                  CALL  
16452 @ 139357:                  LINE   2607 "regression-compile-tmp/imp918s.imp"
16453 @ 139395:                  PUSH   QQ
16454 @ 139398:                  PUSH   CA
16455 @ 139401:                  ASSVAL

  2608                    ENTER JUMP(15,EL,0)
16456 @ 139402:                  LINE   2608 "regression-compile-tmp/imp918s.imp"
16457 @ 139440:                  PUSH   ENTERJUMP
16458 @ 139443:                  PUSHI  #0x0000000f
16459 @ 139448:                  ASSPAR
16460 @ 139449:                  PUSH   EL
16461 @ 139452:                  ASSPAR
16462 @ 139453:                  PUSHI  #0x00000000
16463 @ 139458:                  ASSPAR
16464 @ 139459:                  CALL  

  2609                    PCONST(X'07000700') %UNLESS CA=QQ+8
16465 @ 139460:                  LINE   2609 "regression-compile-tmp/imp918s.imp"
16466 @ 139498:                  PUSH   CA
16467 @ 139501:                  PUSH   QQ
16468 @ 139504:                  PUSHI  #0x00000008
16469 @ 139509:                  ADD   
16470 @ 139510:                  JUMPIF = L_0010
16471 @ 139514:                  PUSH   PCONST
16472 @ 139517:                  PUSHI  #0x07000700
16473 @ 139522:                  ASSPAR
16474 @ 139523:                  CALL  
16475 @ 139524:                  LOCATE L_0010

  2610                 %FINISH
16476 @ 139527:                  LINE   2610 "regression-compile-tmp/imp918s.imp"
16477 @ 139565:                  LOCATE L_000d

  2611              %REPEAT
16478 @ 139568:                  LINE   2611 "regression-compile-tmp/imp918s.imp"
16479 @ 139606:                  REPEAT L_0009
16480 @ 139609:                  LOCATE L_000a

  2612           %FINISH %ELSE FAULT(36,0)
16481 @ 139612:                  LINE   2612 "regression-compile-tmp/imp918s.imp"
16482 @ 139650:                  GOTO   L_0006
16483 @ 139653:                  LOCATE L_0007
16484 @ 139656:                  PUSH   FAULT
16485 @ 139659:                  PUSHI  #0x00000024
16486 @ 139664:                  ASSPAR
16487 @ 139665:                  PUSHI  #0x00000000
16488 @ 139670:                  ASSPAR
16489 @ 139671:                  CALL  
16490 @ 139672:                  LOCATE L_0006

  2613           P=P+2
16491 @ 139675:                  LINE   2613 "regression-compile-tmp/imp918s.imp"
16492 @ 139713:                  PUSH   P
16493 @ 139716:                  PUSH   P
16494 @ 139719:                  PUSHI  #0x00000002
16495 @ 139724:                  ADD   
16496 @ 139725:                  ASSVAL

  2614        %REPEAT %UNTIL A(P-1)=2
16497 @ 139726:                  LINE   2614 "regression-compile-tmp/imp918s.imp"
16498 @ 139764:                  PUSH   A
16499 @ 139767:                  PUSH   P
16500 @ 139770:                  PUSHI  #0x00000001
16501 @ 139775:                  SUB   
16502 @ 139776:                  ACCESS
16503 @ 139777:                  PUSHI  #0x00000002
16504 @ 139782:                  JUMPIF = L_0004
16505 @ 139786:                  REPEAT L_0003
16506 @ 139789:                  LOCATE L_0004

  2615        ENTER JUMP(15,SFLABEL-1,0);       ! ROUND ON START-FINISH
16507 @ 139792:                  LINE   2615 "regression-compile-tmp/imp918s.imp"
16508 @ 139830:                  PUSH   ENTERJUMP
16509 @ 139833:                  PUSHI  #0x0000000f
16510 @ 139838:                  ASSPAR
16511 @ 139839:                  PUSH   SFLABEL
16512 @ 139842:                  PUSHI  #0x00000001
16513 @ 139847:                  SUB   
16514 @ 139848:                  ASSPAR
16515 @ 139849:                  PUSHI  #0x00000000
16516 @ 139854:                  ASSPAR
16517 @ 139855:                  CALL  

  2616        CSTART(2)
16518 @ 139856:                  LINE   2616 "regression-compile-tmp/imp918s.imp"
16519 @ 139894:                  PUSH   CSTART
16520 @ 139897:                  PUSHI  #0x00000002
16521 @ 139902:                  ASSPAR
16522 @ 139903:                  CALL  

  2617        ENTER LAB(EL,0); MONE=1
16523 @ 139904:                  LINE   2617 "regression-compile-tmp/imp918s.imp"
16524 @ 139942:                  PUSH   ENTERLAB
16525 @ 139945:                  PUSH   EL
16526 @ 139948:                  ASSPAR
16527 @ 139949:                  PUSHI  #0x00000000
16528 @ 139954:                  ASSPAR
16529 @ 139955:                  CALL  
16530 @ 139956:                  LINE   2617 "regression-compile-tmp/imp918s.imp"
16531 @ 139994:                  PUSH   MONE
16532 @ 139997:                  PUSHI  #0x00000001
16533 @ 140002:                  ASSVAL

  2618  %END; ->Label1
16534 @ 140003:                  LINE   2618 "regression-compile-tmp/imp918s.imp"
16535 @ 140041:               END    _lev0id0_CSS_lev2id15 {lev=3 --> 2}
16536 @ 140042:               LINE   2618 "regression-compile-tmp/imp918s.imp"
16537 @ 140080:               JUMP   L_01f4

  2619           %ROUTINE CRFORMAT(%SHORTINTEGERNAME OPHEAD)
  2620           {%SHORTROUTINE}
  2621  !***********************************************************************
  2622  !*       CONVERTS A RECORDFORMAT STATEMENT TO A LIST HEADED BY OPHEAD  *
  2623  !*       FORMAT OF AN ENTRY.                                           *
  2624  !*       S1=SUBNAME<<20!PTYPE<<4!J                                     *
  2625  !*       S2,S3=4  16 BIT DISPLACEMENTS  D2,ACC,D1,KFORM                *
  2626  !*       NORMALLY D1=RECORD RELATIVE DISPLACEMENT AND ACC=LMAX(STRINGS)*
  2627  !*       FOR ARRAYS D2=ZERO ELEMENT DISPLACEMENT AND D1=DISPLACEMENT   *
  2628  !*       OF RECORD RELATIVE ARRAYHEAD IN THE GLA                       *
  2629  !*       KFORM IS ONLY USED FOR RECORDS AND POINTS TO THE FORMAT       *
  2630  !*       ON EXIT ACC HAS THE RECORD SIZE ROUNDED UP TO THE BOUNDARY    *
  2631  !*       REQUIRED BY ITS LARGEST COMPONENT                             *
  2632  !***********************************************************************
16538 @ 140083:               LINE   2619 "regression-compile-tmp/imp918s.imp"
16539 @ 140121:               DEF    CRFORMAT (_lev0id0_CSS_CRFORMAT) p1=V_017e 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
16540 @ 140141:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
16541 @ 140142:                     DEF    OPHEAD p1=V_01ff a/tf=12 b/format=3 c/ostate=0  type=1 (integer) form=2 (name) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
16542 @ 140160:                  FINISH ) {lev=3}

  2633           %SHORTINTEGER D1,D2,NLIST,SLIST,FORM
16543 @ 140161:                  LINE   2633 "regression-compile-tmp/imp918s.imp"
16544 @ 140199:                  DEF    D1 p1=V_0200 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
16545 @ 140213:                  DEF    D2 p1=V_0201 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
16546 @ 140227:                  DEF    NLIST p1=V_0202 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
16547 @ 140244:                  DEF    SLIST p1=V_0203 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
16548 @ 140261:                  DEF    FORM p1=V_0204 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0

  2634           %INTEGER RL,MRL;               ! ROUNDING LENGTH & MAX
16549 @ 140277:                  LINE   2634 "regression-compile-tmp/imp918s.imp"
16550 @ 140315:                  DEF    RL p1=V_0205 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
16551 @ 140329:                  DEF    MRL p1=V_0206 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

  2635           %INTEGER REP,INC,Q,LB,UB,R,A0,A1,DV,L,RFD
16552 @ 140344:                  LINE   2635 "regression-compile-tmp/imp918s.imp"
16553 @ 140382:                  DEF    REP p1=V_0207 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
16554 @ 140397:                  DEF    INC p1=V_0208 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
16555 @ 140412:                  DEF    Q p1=V_0209 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
16556 @ 140425:                  DEF    LB p1=V_020a 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
16557 @ 140439:                  DEF    UB p1=V_020b 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
16558 @ 140453:                  DEF    R p1=V_020c 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
16559 @ 140466:                  DEF    A0 p1=V_020d 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
16560 @ 140480:                  DEF    A1 p1=V_020e 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
16561 @ 140494:                  DEF    DV p1=V_020f 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
16562 @ 140508:                  DEF    L p1=V_0210 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
16563 @ 140521:                  DEF    RFD p1=V_0211 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

  2636           %SWITCH RFEL(1:5)
16564 @ 140536:                  LINE   2636 "regression-compile-tmp/imp918s.imp"
16565 @ 140574:                  PUSHI  #0x00000001
16566 @ 140579:                  PUSHI  #0x00000005
16567 @ 140584:                  BOUNDS
16568 @ 140585:                  DEF    RFEL p1=V_0212 a/tf=6 b/format=0 c/ostate=0  type=0 (<type:0>) form=6 (switch) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  2637           %ROUTINESPEC SN(%INTEGER Q)
16569 @ 140601:                  LINE   2637 "regression-compile-tmp/imp918s.imp"
16570 @ 140639:                  DEF    SN (_lev0id0_CSS_CRFORMAT_SN) p1=V_0213 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
16571 @ 140653:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
16572 @ 140654:                     DEF    Q p1=V_0214 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
16573 @ 140667:                  FINISH ) {lev=3}

  2638           %ROUTINESPEC ROUND
16574 @ 140668:                  LINE   2638 "regression-compile-tmp/imp918s.imp"
16575 @ 140706:                  DEF    ROUND (_lev0id0_CSS_CRFORMAT_ROUND) p1=V_0214 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
16576 @ 140723:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
16577 @ 140724:                  FINISH ) {lev=3}

  2639           NLIST=0; OPHEAD=0; FORM=0; ACC=0
16578 @ 140725:                  LINE   2639 "regression-compile-tmp/imp918s.imp"
16579 @ 140763:                  PUSH   NLIST
16580 @ 140766:                  PUSHI  #0x00000000
16581 @ 140771:                  ASSVAL
16582 @ 140772:                  LINE   2639 "regression-compile-tmp/imp918s.imp"
16583 @ 140810:                  PUSH   OPHEAD
16584 @ 140813:                  PUSHI  #0x00000000
16585 @ 140818:                  ASSVAL
16586 @ 140819:                  LINE   2639 "regression-compile-tmp/imp918s.imp"
16587 @ 140857:                  PUSH   FORM
16588 @ 140860:                  PUSHI  #0x00000000
16589 @ 140865:                  ASSVAL
16590 @ 140866:                  LINE   2639 "regression-compile-tmp/imp918s.imp"
16591 @ 140904:                  PUSH   ACC
16592 @ 140907:                  PUSHI  #0x00000000
16593 @ 140912:                  ASSVAL

  2640           MRL=0; INC=0;                 ! INC COUNTS DOWN RECORD
16594 @ 140913:                  LINE   2640 "regression-compile-tmp/imp918s.imp"
16595 @ 140951:                  PUSH   MRL
16596 @ 140954:                  PUSHI  #0x00000000
16597 @ 140959:                  ASSVAL
16598 @ 140960:                  LINE   2640 "regression-compile-tmp/imp918s.imp"
16599 @ 140998:                  PUSH   INC
16600 @ 141001:                  PUSHI  #0x00000000
16601 @ 141006:                  ASSVAL

  2641  NEXT:    ROUT=0; NAM=0; RFD=A(P)
16602 @ 141007:                  LINE   2641 "regression-compile-tmp/imp918s.imp"
16603 @ 141045:                  LABEL  L_0215
16604 @ 141048:                  LINE   2641 "regression-compile-tmp/imp918s.imp"
16605 @ 141086:                  PUSH   ROUT
16606 @ 141089:                  PUSHI  #0x00000000
16607 @ 141094:                  ASSVAL
16608 @ 141095:                  LINE   2641 "regression-compile-tmp/imp918s.imp"
16609 @ 141133:                  PUSH   NAM
16610 @ 141136:                  PUSHI  #0x00000000
16611 @ 141141:                  ASSVAL
16612 @ 141142:                  LINE   2641 "regression-compile-tmp/imp918s.imp"
16613 @ 141180:                  PUSH   RFD
16614 @ 141183:                  PUSH   A
16615 @ 141186:                  PUSH   P
16616 @ 141189:                  ACCESS
16617 @ 141190:                  ASSVAL

  2642           %IF RFD<=2 %THEN P=P+1 %AND CLT
16618 @ 141191:                  LINE   2642 "regression-compile-tmp/imp918s.imp"
16619 @ 141229:                  PUSH   RFD
16620 @ 141232:                  PUSHI  #0x00000002
16621 @ 141237:                  JUMPIF > L_0004
16622 @ 141241:                  PUSH   P
16623 @ 141244:                  PUSH   P
16624 @ 141247:                  PUSHI  #0x00000001
16625 @ 141252:                  ADD   
16626 @ 141253:                  ASSVAL
16627 @ 141254:                  PUSH   CLT
16628 @ 141257:                  CALL  
16629 @ 141258:                  LOCATE L_0004

  2643           ->RFEL(RFD)
16630 @ 141261:                  LINE   2643 "regression-compile-tmp/imp918s.imp"
16631 @ 141299:                  PUSH   RFD
16632 @ 141302:                  SJUMP  530

  2644  RFEL(1):                               ! (TYPE) (QNAME')(NAMELIST)
16633 @ 141305:                  LINE   2644 "regression-compile-tmp/imp918s.imp"
16634 @ 141343:                  PUSHI  #0x00000001
16635 @ 141348:                  SLABEL 530

  2645           CQN(P); P=P+1
16636 @ 141351:                  LINE   2645 "regression-compile-tmp/imp918s.imp"
16637 @ 141389:                  PUSH   CQN
16638 @ 141392:                  PUSH   P
16639 @ 141395:                  ASSPAR
16640 @ 141396:                  CALL  
16641 @ 141397:                  LINE   2645 "regression-compile-tmp/imp918s.imp"
16642 @ 141435:                  PUSH   P
16643 @ 141438:                  PUSH   P
16644 @ 141441:                  PUSHI  #0x00000001
16645 @ 141446:                  ADD   
16646 @ 141447:                  ASSVAL

  2646           PACK(PTYPE); D2=0
16647 @ 141448:                  LINE   2646 "regression-compile-tmp/imp918s.imp"
16648 @ 141486:                  PUSH   PACK
16649 @ 141489:                  PUSH   PTYPE
16650 @ 141492:                  ASSPAR
16651 @ 141493:                  CALL  
16652 @ 141494:                  LINE   2646 "regression-compile-tmp/imp918s.imp"
16653 @ 141532:                  PUSH   D2
16654 @ 141535:                  PUSHI  #0x00000000
16655 @ 141540:                  ASSVAL

  2647           %IF ACC>8 %THEN RL=3 %ELSE RL=ACC-1
16656 @ 141541:                  LINE   2647 "regression-compile-tmp/imp918s.imp"
16657 @ 141579:                  PUSH   ACC
16658 @ 141582:                  PUSHI  #0x00000008
16659 @ 141587:                  JUMPIF <= L_0004
16660 @ 141591:                  PUSH   RL
16661 @ 141594:                  PUSHI  #0x00000003
16662 @ 141599:                  ASSVAL
16663 @ 141600:                  GOTO   L_0003
16664 @ 141603:                  LOCATE L_0004
16665 @ 141606:                  PUSH   RL
16666 @ 141609:                  PUSH   ACC
16667 @ 141612:                  PUSHI  #0x00000001
16668 @ 141617:                  SUB   
16669 @ 141618:                  ASSVAL
16670 @ 141619:                  LOCATE L_0003

  2648           %IF PTYPE=5 %THEN RL=0;       ! STRINGS NOT ALIGNED
16671 @ 141622:                  LINE   2648 "regression-compile-tmp/imp918s.imp"
16672 @ 141660:                  PUSH   PTYPE
16673 @ 141663:                  PUSHI  #0x00000005
16674 @ 141668:                  JUMPIF # L_0004
16675 @ 141672:                  PUSH   RL
16676 @ 141675:                  PUSHI  #0x00000000
16677 @ 141680:                  ASSVAL
16678 @ 141681:                  LOCATE L_0004

  2649  Label1:      ROUND ; J=0
16679 @ 141684:                  LINE   2649 "regression-compile-tmp/imp918s.imp"
16680 @ 141722:                  LABEL  L_0216
16681 @ 141725:                  LINE   2649 "regression-compile-tmp/imp918s.imp"
16682 @ 141763:                  PUSH   ROUND
16683 @ 141766:                  CALL  
16684 @ 141767:                  LINE   2649 "regression-compile-tmp/imp918s.imp"
16685 @ 141805:                  PUSH   J
16686 @ 141808:                  PUSHI  #0x00000000
16687 @ 141813:                  ASSVAL

  2650           %CYCLE REP=1,1,A(P)
16688 @ 141814:                  LINE   2650 "regression-compile-tmp/imp918s.imp"
16689 @ 141852:                  PUSH   REP
16690 @ 141855:                  PUSHI  #0x00000001
16691 @ 141860:                  PUSH   A
16692 @ 141863:                  PUSH   P
16693 @ 141866:                  ACCESS
16694 @ 141867:                  PUSHI  #0x00000001
16695 @ 141872:                  FOR    L_0003

  2651              P=P+1; D1=INC
16696 @ 141875:                  LINE   2651 "regression-compile-tmp/imp918s.imp"
16697 @ 141913:                  PUSH   P
16698 @ 141916:                  PUSH   P
16699 @ 141919:                  PUSHI  #0x00000001
16700 @ 141924:                  ADD   
16701 @ 141925:                  ASSVAL
16702 @ 141926:                  LINE   2651 "regression-compile-tmp/imp918s.imp"
16703 @ 141964:                  PUSH   D1
16704 @ 141967:                  PUSH   INC
16705 @ 141970:                  ASSVAL

  2652              SN(P); INC=INC+ACC
16706 @ 141971:                  LINE   2652 "regression-compile-tmp/imp918s.imp"
16707 @ 142009:                  PUSH   SN
16708 @ 142012:                  PUSH   P
16709 @ 142015:                  ASSPAR
16710 @ 142016:                  CALL  
16711 @ 142017:                  LINE   2652 "regression-compile-tmp/imp918s.imp"
16712 @ 142055:                  PUSH   INC
16713 @ 142058:                  PUSH   INC
16714 @ 142061:                  PUSH   ACC
16715 @ 142064:                  ADD   
16716 @ 142065:                  ASSVAL

  2653           %REPEAT
16717 @ 142066:                  LINE   2653 "regression-compile-tmp/imp918s.imp"
16718 @ 142104:                  REPEAT L_0003
16719 @ 142107:                  LOCATE L_0004

  2654           P=P+1+RFD>>2;       ! EXTRA  ONE FOR RECORDS TO SKIP FORMAT
16720 @ 142110:                  LINE   2654 "regression-compile-tmp/imp918s.imp"
16721 @ 142148:                  PUSH   P
16722 @ 142151:                  PUSH   P
16723 @ 142154:                  PUSHI  #0x00000001
16724 @ 142159:                  ADD   
16725 @ 142160:                  PUSH   RFD
16726 @ 142163:                  PUSHI  #0x00000002
16727 @ 142168:                  RSH   
16728 @ 142169:                  ADD   
16729 @ 142170:                  ASSVAL

  2655  TRY END: -> END %IF A(P)=2
16730 @ 142171:                  LINE   2655 "regression-compile-tmp/imp918s.imp"
16731 @ 142209:                  LABEL  L_0217
16732 @ 142212:                  LINE   2655 "regression-compile-tmp/imp918s.imp"
16733 @ 142250:                  PUSH   A
16734 @ 142253:                  PUSH   P
16735 @ 142256:                  ACCESS
16736 @ 142257:                  PUSHI  #0x00000002
16737 @ 142262:                  JUMPIF # L_0004
16738 @ 142266:                  JUMP   L_0218
16739 @ 142269:                  LOCATE L_0004

  2656           P=P+1; -> NEXT
16740 @ 142272:                  LINE   2656 "regression-compile-tmp/imp918s.imp"
16741 @ 142310:                  PUSH   P
16742 @ 142313:                  PUSH   P
16743 @ 142316:                  PUSHI  #0x00000001
16744 @ 142321:                  ADD   
16745 @ 142322:                  ASSVAL
16746 @ 142323:                  LINE   2656 "regression-compile-tmp/imp918s.imp"
16747 @ 142361:                  JUMP   L_0215

  2657  RFEL(2):Label2:                             ! (TYPE)%ARRAY(NAMELIST)(CBPAIR)
16748 @ 142364:                  LINE   2657 "regression-compile-tmp/imp918s.imp"
16749 @ 142402:                  PUSHI  #0x00000002
16750 @ 142407:                  SLABEL 530
16751 @ 142410:                  LINE   2657 "regression-compile-tmp/imp918s.imp"
16752 @ 142448:                  LABEL  L_0219

  2658           Q=P; ARR=1; PACK(PTYPE)
16753 @ 142451:                  LINE   2658 "regression-compile-tmp/imp918s.imp"
16754 @ 142489:                  PUSH   Q
16755 @ 142492:                  PUSH   P
16756 @ 142495:                  ASSVAL
16757 @ 142496:                  LINE   2658 "regression-compile-tmp/imp918s.imp"
16758 @ 142534:                  PUSH   ARR
16759 @ 142537:                  PUSHI  #0x00000001
16760 @ 142542:                  ASSVAL
16761 @ 142543:                  LINE   2658 "regression-compile-tmp/imp918s.imp"
16762 @ 142581:                  PUSH   PACK
16763 @ 142584:                  PUSH   PTYPE
16764 @ 142587:                  ASSPAR
16765 @ 142588:                  CALL  

  2659           %CYCLE;       ! UNTIL <RESTOFARRAYLIST> NULL
16766 @ 142589:                  LINE   2659 "regression-compile-tmp/imp918s.imp"
16767 @ 142627:                  LOCATE L_0003

  2660              P=A(P)+P+1; CBPAIR(LB,UB)
16768 @ 142630:                  LINE   2660 "regression-compile-tmp/imp918s.imp"
16769 @ 142668:                  PUSH   P
16770 @ 142671:                  PUSH   A
16771 @ 142674:                  PUSH   P
16772 @ 142677:                  ACCESS
16773 @ 142678:                  PUSH   P
16774 @ 142681:                  ADD   
16775 @ 142682:                  PUSHI  #0x00000001
16776 @ 142687:                  ADD   
16777 @ 142688:                  ASSVAL
16778 @ 142689:                  LINE   2660 "regression-compile-tmp/imp918s.imp"
16779 @ 142727:                  PUSH   CBPAIR
16780 @ 142730:                  PUSH   LB
16781 @ 142733:                  ASSPAR
16782 @ 142734:                  PUSH   UB
16783 @ 142737:                  ASSPAR
16784 @ 142738:                  CALL  

  2661              R=UB-LB+1
16785 @ 142739:                  LINE   2661 "regression-compile-tmp/imp918s.imp"
16786 @ 142777:                  PUSH   R
16787 @ 142780:                  PUSH   UB
16788 @ 142783:                  PUSH   LB
16789 @ 142786:                  SUB   
16790 @ 142787:                  PUSHI  #0x00000001
16791 @ 142792:                  ADD   
16792 @ 142793:                  ASSVAL

  2662              DV=DOPE VECTOR(ACC,LB,UB); ! DOPE VECTOR INTO SHAREABLE S.T.
16793 @ 142794:                  LINE   2662 "regression-compile-tmp/imp918s.imp"
16794 @ 142832:                  PUSH   DV
16795 @ 142835:                  PUSH   DOPEVECTOR
16796 @ 142838:                  PUSH   ACC
16797 @ 142841:                  ASSPAR
16798 @ 142842:                  PUSH   LB
16799 @ 142845:                  ASSPAR
16800 @ 142846:                  PUSH   UB
16801 @ 142849:                  ASSPAR
16802 @ 142850:                  CALL  
16803 @ 142851:                  ASSVAL

  2663              %IF TYPE=5 %THEN RL=0 %ELSE RL=ACC-1
16804 @ 142852:                  LINE   2663 "regression-compile-tmp/imp918s.imp"
16805 @ 142890:                  PUSH   TYPE
16806 @ 142893:                  PUSHI  #0x00000005
16807 @ 142898:                  JUMPIF # L_0007
16808 @ 142902:                  PUSH   RL
16809 @ 142905:                  PUSHI  #0x00000000
16810 @ 142910:                  ASSVAL
16811 @ 142911:                  GOTO   L_0006
16812 @ 142914:                  LOCATE L_0007
16813 @ 142917:                  PUSH   RL
16814 @ 142920:                  PUSH   ACC
16815 @ 142923:                  PUSHI  #0x00000001
16816 @ 142928:                  SUB   
16817 @ 142929:                  ASSVAL
16818 @ 142930:                  LOCATE L_0006

  2664              %IF TYPE=3 %THEN RL=7
16819 @ 142933:                  LINE   2664 "regression-compile-tmp/imp918s.imp"
16820 @ 142971:                  PUSH   TYPE
16821 @ 142974:                  PUSHI  #0x00000003
16822 @ 142979:                  JUMPIF # L_0007
16823 @ 142983:                  PUSH   RL
16824 @ 142986:                  PUSHI  #0x00000007
16825 @ 142991:                  ASSVAL
16826 @ 142992:                  LOCATE L_0007

  2665              ROUND; J=1
16827 @ 142995:                  LINE   2665 "regression-compile-tmp/imp918s.imp"
16828 @ 143033:                  PUSH   ROUND
16829 @ 143036:                  CALL  
16830 @ 143037:                  LINE   2665 "regression-compile-tmp/imp918s.imp"
16831 @ 143075:                  PUSH   J
16832 @ 143078:                  PUSHI  #0x00000001
16833 @ 143083:                  ASSVAL

  2666              %CYCLE REP=1,1,A(Q);       ! ARRAYHEAD  INTO GLA FOR EACH AR
16834 @ 143084:                  LINE   2666 "regression-compile-tmp/imp918s.imp"
16835 @ 143122:                  PUSH   REP
16836 @ 143125:                  PUSHI  #0x00000001
16837 @ 143130:                  PUSH   A
16838 @ 143133:                  PUSH   Q
16839 @ 143136:                  ACCESS
16840 @ 143137:                  PUSHI  #0x00000001
16841 @ 143142:                  FOR    L_0006

  2667                 A1=INC; A0=A1-ACC*LB
16842 @ 143145:                  LINE   2667 "regression-compile-tmp/imp918s.imp"
16843 @ 143183:                  PUSH   A1
16844 @ 143186:                  PUSH   INC
16845 @ 143189:                  ASSVAL
16846 @ 143190:                  LINE   2667 "regression-compile-tmp/imp918s.imp"
16847 @ 143228:                  PUSH   A0
16848 @ 143231:                  PUSH   A1
16849 @ 143234:                  PUSH   ACC
16850 @ 143237:                  PUSH   LB
16851 @ 143240:                  MUL   
16852 @ 143241:                  SUB   
16853 @ 143242:                  ASSVAL

  2668                 L=ACC
16854 @ 143243:                  LINE   2668 "regression-compile-tmp/imp918s.imp"
16855 @ 143281:                  PUSH   L
16856 @ 143284:                  PUSH   ACC
16857 @ 143287:                  ASSVAL

  2669                 PGLA(4,16,ADDR(A0))
16858 @ 143288:                  LINE   2669 "regression-compile-tmp/imp918s.imp"
16859 @ 143326:                  PUSH   PGLA
16860 @ 143329:                  PUSHI  #0x00000004
16861 @ 143334:                  ASSPAR
16862 @ 143335:                  PUSHI  #0x00000010
16863 @ 143340:                  ASSPAR
16864 @ 143341:                  PUSH   ADDR
16865 @ 143344:                  PUSH   A0
16866 @ 143347:                  ASSPAR
16867 @ 143348:                  CALL  
16868 @ 143349:                  ASSPAR
16869 @ 143350:                  CALL  

  2670                 D1=GLACA-16
16870 @ 143351:                  LINE   2670 "regression-compile-tmp/imp918s.imp"
16871 @ 143389:                  PUSH   D1
16872 @ 143392:                  PUSH   GLACA
16873 @ 143395:                  PUSHI  #0x00000010
16874 @ 143400:                  SUB   
16875 @ 143401:                  ASSVAL

  2671                 RELOCATE(D1+8,DV,4);    ! RELOCATE DV POINTER
16876 @ 143402:                  LINE   2671 "regression-compile-tmp/imp918s.imp"
16877 @ 143440:                  PUSH   RELOCATE
16878 @ 143443:                  PUSH   D1
16879 @ 143446:                  PUSHI  #0x00000008
16880 @ 143451:                  ADD   
16881 @ 143452:                  ASSPAR
16882 @ 143453:                  PUSH   DV
16883 @ 143456:                  ASSPAR
16884 @ 143457:                  PUSHI  #0x00000004
16885 @ 143462:                  ASSPAR
16886 @ 143463:                  CALL  

  2672                 D2=A0
16887 @ 143464:                  LINE   2672 "regression-compile-tmp/imp918s.imp"
16888 @ 143502:                  PUSH   D2
16889 @ 143505:                  PUSH   A0
16890 @ 143508:                  ASSVAL

  2673                 SN(Q+REP); INC=INC+R*ACC
16891 @ 143509:                  LINE   2673 "regression-compile-tmp/imp918s.imp"
16892 @ 143547:                  PUSH   SN
16893 @ 143550:                  PUSH   Q
16894 @ 143553:                  PUSH   REP
16895 @ 143556:                  ADD   
16896 @ 143557:                  ASSPAR
16897 @ 143558:                  CALL  
16898 @ 143559:                  LINE   2673 "regression-compile-tmp/imp918s.imp"
16899 @ 143597:                  PUSH   INC
16900 @ 143600:                  PUSH   INC
16901 @ 143603:                  PUSH   R
16902 @ 143606:                  PUSH   ACC
16903 @ 143609:                  MUL   
16904 @ 143610:                  ADD   
16905 @ 143611:                  ASSVAL

  2674              %REPEAT
16906 @ 143612:                  LINE   2674 "regression-compile-tmp/imp918s.imp"
16907 @ 143650:                  REPEAT L_0006
16908 @ 143653:                  LOCATE L_0007

  2675              P=P+1; Q=P
16909 @ 143656:                  LINE   2675 "regression-compile-tmp/imp918s.imp"
16910 @ 143694:                  PUSH   P
16911 @ 143697:                  PUSH   P
16912 @ 143700:                  PUSHI  #0x00000001
16913 @ 143705:                  ADD   
16914 @ 143706:                  ASSVAL
16915 @ 143707:                  LINE   2675 "regression-compile-tmp/imp918s.imp"
16916 @ 143745:                  PUSH   Q
16917 @ 143748:                  PUSH   P
16918 @ 143751:                  ASSVAL

  2676           %REPEAT %UNTIL A(P-1)=2
16919 @ 143752:                  LINE   2676 "regression-compile-tmp/imp918s.imp"
16920 @ 143790:                  PUSH   A
16921 @ 143793:                  PUSH   P
16922 @ 143796:                  PUSHI  #0x00000001
16923 @ 143801:                  SUB   
16924 @ 143802:                  ACCESS
16925 @ 143803:                  PUSHI  #0x00000002
16926 @ 143808:                  JUMPIF = L_0004
16927 @ 143812:                  REPEAT L_0003
16928 @ 143815:                  LOCATE L_0004

  2677           P=P+1 %IF RFD=5
16929 @ 143818:                  LINE   2677 "regression-compile-tmp/imp918s.imp"
16930 @ 143856:                  PUSH   RFD
16931 @ 143859:                  PUSHI  #0x00000005
16932 @ 143864:                  JUMPIF # L_0004
16933 @ 143868:                  PUSH   P
16934 @ 143871:                  PUSH   P
16935 @ 143874:                  PUSHI  #0x00000001
16936 @ 143879:                  ADD   
16937 @ 143880:                  ASSVAL
16938 @ 143881:                  LOCATE L_0004

  2678           -> TRY END
16939 @ 143884:                  LINE   2678 "regression-compile-tmp/imp918s.imp"
16940 @ 143922:                  JUMP   L_0217

  2679  RFEL(3):                               ! %RECORD (%ARRAY) %NAME
16941 @ 143925:                  LINE   2679 "regression-compile-tmp/imp918s.imp"
16942 @ 143963:                  PUSHI  #0x00000003
16943 @ 143968:                  SLABEL 530

  2680           TYPE=3; PREC=0; NAM=1
16944 @ 143971:                  LINE   2680 "regression-compile-tmp/imp918s.imp"
16945 @ 144009:                  PUSH   TYPE
16946 @ 144012:                  PUSHI  #0x00000003
16947 @ 144017:                  ASSVAL
16948 @ 144018:                  LINE   2680 "regression-compile-tmp/imp918s.imp"
16949 @ 144056:                  PUSH   PREC
16950 @ 144059:                  PUSHI  #0x00000000
16951 @ 144064:                  ASSVAL
16952 @ 144065:                  LINE   2680 "regression-compile-tmp/imp918s.imp"
16953 @ 144103:                  PUSH   NAM
16954 @ 144106:                  PUSHI  #0x00000001
16955 @ 144111:                  ASSVAL

  2681           ARR=2-A(P+1); P=P+2
16956 @ 144112:                  LINE   2681 "regression-compile-tmp/imp918s.imp"
16957 @ 144150:                  PUSH   ARR
16958 @ 144153:                  PUSHI  #0x00000002
16959 @ 144158:                  PUSH   A
16960 @ 144161:                  PUSH   P
16961 @ 144164:                  PUSHI  #0x00000001
16962 @ 144169:                  ADD   
16963 @ 144170:                  ACCESS
16964 @ 144171:                  SUB   
16965 @ 144172:                  ASSVAL
16966 @ 144173:                  LINE   2681 "regression-compile-tmp/imp918s.imp"
16967 @ 144211:                  PUSH   P
16968 @ 144214:                  PUSH   P
16969 @ 144217:                  PUSHI  #0x00000002
16970 @ 144222:                  ADD   
16971 @ 144223:                  ASSVAL

  2682           PACK(PTYPE); D2=0
16972 @ 144224:                  LINE   2682 "regression-compile-tmp/imp918s.imp"
16973 @ 144262:                  PUSH   PACK
16974 @ 144265:                  PUSH   PTYPE
16975 @ 144268:                  ASSPAR
16976 @ 144269:                  CALL  
16977 @ 144270:                  LINE   2682 "regression-compile-tmp/imp918s.imp"
16978 @ 144308:                  PUSH   D2
16979 @ 144311:                  PUSHI  #0x00000000
16980 @ 144316:                  ASSVAL

  2683           RL=3; ACC=4+12*ARR
16981 @ 144317:                  LINE   2683 "regression-compile-tmp/imp918s.imp"
16982 @ 144355:                  PUSH   RL
16983 @ 144358:                  PUSHI  #0x00000003
16984 @ 144363:                  ASSVAL
16985 @ 144364:                  LINE   2683 "regression-compile-tmp/imp918s.imp"
16986 @ 144402:                  PUSH   ACC
16987 @ 144405:                  PUSHI  #0x00000004
16988 @ 144410:                  PUSHI  #0x0000000c
16989 @ 144415:                  PUSH   ARR
16990 @ 144418:                  MUL   
16991 @ 144419:                  ADD   
16992 @ 144420:                  ASSVAL

  2684           FORM=0
16993 @ 144421:                  LINE   2684 "regression-compile-tmp/imp918s.imp"
16994 @ 144459:                  PUSH   FORM
16995 @ 144462:                  PUSHI  #0x00000000
16996 @ 144467:                  ASSVAL

  2685           ->Label1
16997 @ 144468:                  LINE   2685 "regression-compile-tmp/imp918s.imp"
16998 @ 144506:                  JUMP   L_0216

  2686  RFEL(4):                               ! RECORDS IN RECORDS
16999 @ 144509:                  LINE   2686 "regression-compile-tmp/imp918s.imp"
17000 @ 144547:                  PUSHI  #0x00000004
17001 @ 144552:                  SLABEL 530

  2687  RFEL(5):                                ! RECORDARRAYS IN RECORDS
17002 @ 144555:                  LINE   2687 "regression-compile-tmp/imp918s.imp"
17003 @ 144593:                  PUSHI  #0x00000005
17004 @ 144598:                  SLABEL 530

  2688           Q=P+A(P+1)+6-RFD
17005 @ 144601:                  LINE   2688 "regression-compile-tmp/imp918s.imp"
17006 @ 144639:                  PUSH   Q
17007 @ 144642:                  PUSH   P
17008 @ 144645:                  PUSH   A
17009 @ 144648:                  PUSH   P
17010 @ 144651:                  PUSHI  #0x00000001
17011 @ 144656:                  ADD   
17012 @ 144657:                  ACCESS
17013 @ 144658:                  ADD   
17014 @ 144659:                  PUSHI  #0x00000006
17015 @ 144664:                  ADD   
17016 @ 144665:                  PUSH   RFD
17017 @ 144668:                  SUB   
17018 @ 144669:                  ASSVAL

  2689           COPY TAG(A(Q));               ! COPY FORMAT TAG & SET ACC
17019 @ 144670:                  LINE   2689 "regression-compile-tmp/imp918s.imp"
17020 @ 144708:                  PUSH   COPYTAG
17021 @ 144711:                  PUSH   A
17022 @ 144714:                  PUSH   Q
17023 @ 144717:                  ACCESS
17024 @ 144718:                  ASSPAR
17025 @ 144719:                  CALL  

  2690           FAULT(62,A(Q)) %UNLESS PTYPE=4
17026 @ 144720:                  LINE   2690 "regression-compile-tmp/imp918s.imp"
17027 @ 144758:                  PUSH   PTYPE
17028 @ 144761:                  PUSHI  #0x00000004
17029 @ 144766:                  JUMPIF = L_0004
17030 @ 144770:                  PUSH   FAULT
17031 @ 144773:                  PUSHI  #0x0000003e
17032 @ 144778:                  ASSPAR
17033 @ 144779:                  PUSH   A
17034 @ 144782:                  PUSH   Q
17035 @ 144785:                  ACCESS
17036 @ 144786:                  ASSPAR
17037 @ 144787:                  CALL  
17038 @ 144788:                  LOCATE L_0004

  2691           TYPE=3; FORM=TCELL
17039 @ 144791:                  LINE   2691 "regression-compile-tmp/imp918s.imp"
17040 @ 144829:                  PUSH   TYPE
17041 @ 144832:                  PUSHI  #0x00000003
17042 @ 144837:                  ASSVAL
17043 @ 144838:                  LINE   2691 "regression-compile-tmp/imp918s.imp"
17044 @ 144876:                  PUSH   FORM
17045 @ 144879:                  PUSH   TCELL
17046 @ 144882:                  ASSVAL

  2692           %IF RFD=4 %THEN %START
17047 @ 144883:                  LINE   2692 "regression-compile-tmp/imp918s.imp"
17048 @ 144921:                  PUSH   RFD
17049 @ 144924:                  PUSHI  #0x00000004
17050 @ 144929:                  JUMPIF # L_0004

  2693              PTYPE=3; P=P+1; D2=0
17051 @ 144933:                  LINE   2693 "regression-compile-tmp/imp918s.imp"
17052 @ 144971:                  PUSH   PTYPE
17053 @ 144974:                  PUSHI  #0x00000003
17054 @ 144979:                  ASSVAL
17055 @ 144980:                  LINE   2693 "regression-compile-tmp/imp918s.imp"
17056 @ 145018:                  PUSH   P
17057 @ 145021:                  PUSH   P
17058 @ 145024:                  PUSHI  #0x00000001
17059 @ 145029:                  ADD   
17060 @ 145030:                  ASSVAL
17061 @ 145031:                  LINE   2693 "regression-compile-tmp/imp918s.imp"
17062 @ 145069:                  PUSH   D2
17063 @ 145072:                  PUSHI  #0x00000000
17064 @ 145077:                  ASSVAL

  2694              RL=7; ->Label1
17065 @ 145078:                  LINE   2694 "regression-compile-tmp/imp918s.imp"
17066 @ 145116:                  PUSH   RL
17067 @ 145119:                  PUSHI  #0x00000007
17068 @ 145124:                  ASSVAL
17069 @ 145125:                  LINE   2694 "regression-compile-tmp/imp918s.imp"
17070 @ 145163:                  JUMP   L_0216

  2695           %FINISH
17071 @ 145166:                  LINE   2695 "regression-compile-tmp/imp918s.imp"
17072 @ 145204:                  LOCATE L_0004

  2696           P=P+2; ->Label2
17073 @ 145207:                  LINE   2696 "regression-compile-tmp/imp918s.imp"
17074 @ 145245:                  PUSH   P
17075 @ 145248:                  PUSH   P
17076 @ 145251:                  PUSHI  #0x00000002
17077 @ 145256:                  ADD   
17078 @ 145257:                  ASSVAL
17079 @ 145258:                  LINE   2696 "regression-compile-tmp/imp918s.imp"
17080 @ 145296:                  JUMP   L_0219

  2697  END:                                   ! FINISH OFF
17081 @ 145299:                  LINE   2697 "regression-compile-tmp/imp918s.imp"
17082 @ 145337:                  LABEL  L_0218

  2698           RL=MRL; ROUND
17083 @ 145340:                  LINE   2698 "regression-compile-tmp/imp918s.imp"
17084 @ 145378:                  PUSH   RL
17085 @ 145381:                  PUSH   MRL
17086 @ 145384:                  ASSVAL
17087 @ 145385:                  LINE   2698 "regression-compile-tmp/imp918s.imp"
17088 @ 145423:                  PUSH   ROUND
17089 @ 145426:                  CALL  

  2699           ACC=INC;                      ! SIZE ROUNDED APPROPRIATELY
17090 @ 145427:                  LINE   2699 "regression-compile-tmp/imp918s.imp"
17091 @ 145465:                  PUSH   ACC
17092 @ 145468:                  PUSH   INC
17093 @ 145471:                  ASSVAL

  2700           FAULT(98,0) %UNLESS INC<=X'7FFF'
17094 @ 145472:                  LINE   2700 "regression-compile-tmp/imp918s.imp"
17095 @ 145510:                  PUSH   INC
17096 @ 145513:                  PUSHI  #0x00007fff
17097 @ 145518:                  JUMPIF <= L_0004
17098 @ 145522:                  PUSH   FAULT
17099 @ 145525:                  PUSHI  #0x00000062
17100 @ 145530:                  ASSPAR
17101 @ 145531:                  PUSHI  #0x00000000
17102 @ 145536:                  ASSPAR
17103 @ 145537:                  CALL  
17104 @ 145538:                  LOCATE L_0004

  2701           OPHEAD=SLIST
17105 @ 145541:                  LINE   2701 "regression-compile-tmp/imp918s.imp"
17106 @ 145579:                  PUSH   OPHEAD
17107 @ 145582:                  PUSH   SLIST
17108 @ 145585:                  ASSVAL

  2702           CLEAR LIST(NLIST)
17109 @ 145586:                  LINE   2702 "regression-compile-tmp/imp918s.imp"
17110 @ 145624:                  PUSH   CLEARLIST
17111 @ 145627:                  PUSH   NLIST
17112 @ 145630:                  ASSPAR
17113 @ 145631:                  CALL  

  2703           %RETURN
17114 @ 145632:                  LINE   2703 "regression-compile-tmp/imp918s.imp"
17115 @ 145670:                  RETURN

  2704           %ROUTINE SN(%INTEGER Q)
  2705  !***********************************************************************
  2706  !*       CHECK THE SUBNAME HAS NOT BEEN USED BEFORE IN THIS FORMAT     *
  2707  !*       AND ENTER IT WITH ITS DESCRIPTORS INTO THE LIST.              *
  2708  !***********************************************************************
17116 @ 145671:                  LINE   2704 "regression-compile-tmp/imp918s.imp"
17117 @ 145709:                  DEF    SN (_lev0id0_CSS_CRFORMAT_SN) p1=V_0213 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
17118 @ 145723:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
17119 @ 145724:                        DEF    Q p1=V_021a 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
17120 @ 145737:                     FINISH ) {lev=4}

  2709           FNAME=A(Q)
17121 @ 145738:                     LINE   2709 "regression-compile-tmp/imp918s.imp"
17122 @ 145776:                     PUSH   FNAME
17123 @ 145779:                     PUSH   A
17124 @ 145782:                     PUSH   Q
17125 @ 145785:                     ACCESS
17126 @ 145786:                     ASSVAL

  2710           FAULT(7,FNAME) %UNLESS FIND(FNAME,NLIST)=-1
17127 @ 145787:                     LINE   2710 "regression-compile-tmp/imp918s.imp"
17128 @ 145825:                     PUSH   FIND
17129 @ 145828:                     PUSH   FNAME
17130 @ 145831:                     ASSPAR
17131 @ 145832:                     PUSH   NLIST
17132 @ 145835:                     ASSPAR
17133 @ 145836:                     CALL  
17134 @ 145837:                     PUSHI  #0x00000001
17135 @ 145842:                     NEGATE
17136 @ 145843:                     JUMPIF = L_0004
17137 @ 145847:                     PUSH   FAULT
17138 @ 145850:                     PUSHI  #0x00000007
17139 @ 145855:                     ASSPAR
17140 @ 145856:                     PUSH   FNAME
17141 @ 145859:                     ASSPAR
17142 @ 145860:                     CALL  
17143 @ 145861:                     LOCATE L_0004

  2711           INSERT AFTER(OPHEAD,FNAME<<20!PTYPE<<4!J,D2<<16!ACC)
17144 @ 145864:                     LINE   2711 "regression-compile-tmp/imp918s.imp"
17145 @ 145902:                     PUSH   INSERTAFTER
17146 @ 145905:                     PUSH   OPHEAD
17147 @ 145908:                     ASSPAR
17148 @ 145909:                     PUSH   FNAME
17149 @ 145912:                     PUSHI  #0x00000014
17150 @ 145917:                     LSH   
17151 @ 145918:                     PUSH   PTYPE
17152 @ 145921:                     PUSHI  #0x00000004
17153 @ 145926:                     LSH   
17154 @ 145927:                     OR    
17155 @ 145928:                     PUSH   J
17156 @ 145931:                     OR    
17157 @ 145932:                     ASSPAR
17158 @ 145933:                     PUSH   D2
17159 @ 145936:                     PUSHI  #0x00000010
17160 @ 145941:                     LSH   
17161 @ 145942:                     PUSH   ACC
17162 @ 145945:                     OR    
17163 @ 145946:                     ASSPAR
17164 @ 145947:                     CALL  

  2712           REPLACE3(OPHEAD,D1<<16!FORM)
17165 @ 145948:                     LINE   2712 "regression-compile-tmp/imp918s.imp"
17166 @ 145986:                     PUSH   REPLACE3
17167 @ 145989:                     PUSH   OPHEAD
17168 @ 145992:                     ASSPAR
17169 @ 145993:                     PUSH   D1
17170 @ 145996:                     PUSHI  #0x00000010
17171 @ 146001:                     LSH   
17172 @ 146002:                     PUSH   FORM
17173 @ 146005:                     OR    
17174 @ 146006:                     ASSPAR
17175 @ 146007:                     CALL  

  2713           %IF NLIST=0 %THEN SLIST=OPHEAD
17176 @ 146008:                     LINE   2713 "regression-compile-tmp/imp918s.imp"
17177 @ 146046:                     PUSH   NLIST
17178 @ 146049:                     PUSHI  #0x00000000
17179 @ 146054:                     JUMPIF # L_0004
17180 @ 146058:                     PUSH   SLIST
17181 @ 146061:                     PUSH   OPHEAD
17182 @ 146064:                     ASSVAL
17183 @ 146065:                     LOCATE L_0004

  2714           PUSH(NLIST,0,FNAME)
17184 @ 146068:                     LINE   2714 "regression-compile-tmp/imp918s.imp"
17185 @ 146106:                     PUSH   PUSH
17186 @ 146109:                     PUSH   NLIST
17187 @ 146112:                     ASSPAR
17188 @ 146113:                     PUSHI  #0x00000000
17189 @ 146118:                     ASSPAR
17190 @ 146119:                     PUSH   FNAME
17191 @ 146122:                     ASSPAR
17192 @ 146123:                     CALL  

  2715           %END
17193 @ 146124:                     LINE   2715 "regression-compile-tmp/imp918s.imp"
17194 @ 146162:                  END    _lev0id0_CSS_CRFORMAT_SN {lev=4 --> 3}

  2716           %ROUTINE ROUND
17195 @ 146163:                  LINE   2716 "regression-compile-tmp/imp918s.imp"
17196 @ 146201:                  DEF    ROUND (_lev0id0_CSS_CRFORMAT_ROUND) p1=V_0214 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
17197 @ 146218:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
17198 @ 146219:                     FINISH ) {lev=4}

  2717           MRL=RL %IF RL>MRL
17199 @ 146220:                     LINE   2717 "regression-compile-tmp/imp918s.imp"
17200 @ 146258:                     PUSH   RL
17201 @ 146261:                     PUSH   MRL
17202 @ 146264:                     JUMPIF <= L_0004
17203 @ 146268:                     PUSH   MRL
17204 @ 146271:                     PUSH   RL
17205 @ 146274:                     ASSVAL
17206 @ 146275:                     LOCATE L_0004

  2718           INC=INC+1 %WHILE INC&RL#0
17207 @ 146278:                     LINE   2718 "regression-compile-tmp/imp918s.imp"
17208 @ 146316:                     LOCATE L_0003
17209 @ 146319:                     PUSH   INC
17210 @ 146322:                     PUSH   RL
17211 @ 146325:                     AND   
17212 @ 146326:                     PUSHI  #0x00000000
17213 @ 146331:                     JUMPIF = L_0004
17214 @ 146335:                     PUSH   INC
17215 @ 146338:                     PUSH   INC
17216 @ 146341:                     PUSHI  #0x00000001
17217 @ 146346:                     ADD   
17218 @ 146347:                     ASSVAL
17219 @ 146348:                     REPEAT L_0003
17220 @ 146351:                     LOCATE L_0004

  2719           %END
17221 @ 146354:                     LINE   2719 "regression-compile-tmp/imp918s.imp"
17222 @ 146392:                  END    _lev0id0_CSS_CRFORMAT_ROUND {lev=4 --> 3}

  2720           %END;                         ! OF ROUTINE CRFORMAT
17223 @ 146393:                  LINE   2720 "regression-compile-tmp/imp918s.imp"
17224 @ 146431:               END    _lev0id0_CSS_CRFORMAT {lev=3 --> 2}

  2721           %ROUTINE CRNAME(%INTEGER Z,REG,MODE,CLINK,BS,IX,DP)
  2722           {%SHORTROUTINE}
  2723  !***********************************************************************
  2724  !*       DEAL WITH RECORD ELEMENT NAMES.Z AS FOR CNAME.CLINK=TAGS(RN)  *
  2725  !*       MODE=0 IF RECORD AT BS,IX&DP                                  *
  2726  !*       MODE=1 IF POINTER IN CORE AT BS,IX&DP                         *
  2727  !*       ON EXIT BASE,INDEX & DISP POINT TO REQUIRED ELEMENT           *
  2728  !*       RECURSIVE CALL IS NEEDED TO DEAL WITH RECORDS IN RECORDS      *
  2729  !*       DEPTH SHEWS  RECURSIVE LEVELS- NEEDED TO AVOID MIS SETTING    *
  2730  !*       REGISTER IN USE IF RECORDNAME IN RECORD HAS THE SAME NAME AS  *
  2731  !*       A GENUINE RECORD NAME.                                        *
  2732  !***********************************************************************
17225 @ 146432:               LINE   2721 "regression-compile-tmp/imp918s.imp"
17226 @ 146470:               DEF    CRNAME (_lev0id0_CSS_CRNAME) p1=V_0189 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
17227 @ 146488:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
17228 @ 146489:                     DEF    Z p1=V_01ff 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
17229 @ 146502:                     DEF    REG p1=V_0200 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
17230 @ 146517:                     DEF    MODE p1=V_0201 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
17231 @ 146533:                     DEF    CLINK p1=V_0202 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
17232 @ 146550:                     DEF    BS p1=V_0203 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
17233 @ 146564:                     DEF    IX p1=V_0204 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
17234 @ 146578:                     DEF    DP p1=V_0205 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
17235 @ 146592:                  FINISH ) {lev=3}

  2733           %INTEGER DEPTH,FNAME,ACCP
17236 @ 146593:                  LINE   2733 "regression-compile-tmp/imp918s.imp"
17237 @ 146631:                  DEF    DEPTH p1=V_0206 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
17238 @ 146648:                  DEF    FNAME p1=V_0207 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
17239 @ 146665:                  DEF    ACCP p1=V_0208 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

  2734           %ROUTINESPEC CENAME(%INTEGER MODE,FNAME,BS,IX,DP)
17240 @ 146681:                  LINE   2734 "regression-compile-tmp/imp918s.imp"
17241 @ 146719:                  DEF    CENAME (_lev0id0_CSS_CRNAME_CENAME) p1=V_0209 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
17242 @ 146737:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
17243 @ 146738:                     DEF    MODE p1=V_020a 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
17244 @ 146754:                     DEF    FNAME p1=V_020b 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
17245 @ 146771:                     DEF    BS p1=V_020c 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
17246 @ 146785:                     DEF    IX p1=V_020d 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
17247 @ 146799:                     DEF    DP p1=V_020e 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
17248 @ 146813:                  FINISH ) {lev=3}

  2735           %ROUTINESPEC NOAPP
17249 @ 146814:                  LINE   2735 "regression-compile-tmp/imp918s.imp"
17250 @ 146852:                  DEF    NOAPP (_lev0id0_CSS_CRNAME_NOAPP) p1=V_020a 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
17251 @ 146869:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
17252 @ 146870:                  FINISH ) {lev=3}

  2736           DEPTH=0
17253 @ 146871:                  LINE   2736 "regression-compile-tmp/imp918s.imp"
17254 @ 146909:                  PUSH   DEPTH
17255 @ 146912:                  PUSHI  #0x00000000
17256 @ 146917:                  ASSVAL

  2737           FNAME=KFORM;                  ! POINTER TO FORMAT
17257 @ 146918:                  LINE   2737 "regression-compile-tmp/imp918s.imp"
17258 @ 146956:                  PUSH   FNAME
17259 @ 146959:                  PUSH   KFORM
17260 @ 146962:                  ASSVAL

  2738           %IF ARR\=0 %THEN %START;      ! RECORDARRAY(ARRAYNAME)
17261 @ 146963:                  LINE   2738 "regression-compile-tmp/imp918s.imp"
17262 @ 147001:                  PUSH   ARR
17263 @ 147004:                  PUSHI  #0x00000000
17264 @ 147009:                  JUMPIF = L_0004

  2739              FAULT(217,0) %IF IX\=0
17265 @ 147013:                  LINE   2739 "regression-compile-tmp/imp918s.imp"
17266 @ 147051:                  PUSH   IX
17267 @ 147054:                  PUSHI  #0x00000000
17268 @ 147059:                  JUMPIF = L_0007
17269 @ 147063:                  PUSH   FAULT
17270 @ 147066:                  PUSHI  #0x000000d9
17271 @ 147071:                  ASSPAR
17272 @ 147072:                  PUSHI  #0x00000000
17273 @ 147077:                  ASSPAR
17274 @ 147078:                  CALL  
17275 @ 147079:                  LOCATE L_0007

  2740              CANAME(ARR,BS,DP,SNDISP)
17276 @ 147082:                  LINE   2740 "regression-compile-tmp/imp918s.imp"
17277 @ 147120:                  PUSH   CANAME
17278 @ 147123:                  PUSH   ARR
17279 @ 147126:                  ASSPAR
17280 @ 147127:                  PUSH   BS
17281 @ 147130:                  ASSPAR
17282 @ 147131:                  PUSH   DP
17283 @ 147134:                  ASSPAR
17284 @ 147135:                  PUSH   SNDISP
17285 @ 147138:                  ASSPAR
17286 @ 147139:                  CALL  

  2741              NAM=0; ARR=0;                 ! ARR & NAM AS FOR SCALAR RECORD
17287 @ 147140:                  LINE   2741 "regression-compile-tmp/imp918s.imp"
17288 @ 147178:                  PUSH   NAM
17289 @ 147181:                  PUSHI  #0x00000000
17290 @ 147186:                  ASSVAL
17291 @ 147187:                  LINE   2741 "regression-compile-tmp/imp918s.imp"
17292 @ 147225:                  PUSH   ARR
17293 @ 147228:                  PUSHI  #0x00000000
17294 @ 147233:                  ASSVAL

  2742              CENAME(0,FNAME,BASE,INDEX,DISP)
17295 @ 147234:                  LINE   2742 "regression-compile-tmp/imp918s.imp"
17296 @ 147272:                  PUSH   CENAME
17297 @ 147275:                  PUSHI  #0x00000000
17298 @ 147280:                  ASSPAR
17299 @ 147281:                  PUSH   FNAME
17300 @ 147284:                  ASSPAR
17301 @ 147285:                  PUSH   BASE
17302 @ 147288:                  ASSPAR
17303 @ 147289:                  PUSH   INDEX
17304 @ 147292:                  ASSPAR
17305 @ 147293:                  PUSH   DISP
17306 @ 147296:                  ASSPAR
17307 @ 147297:                  CALL  

  2743           %FINISH %ELSE %START
17308 @ 147298:                  LINE   2743 "regression-compile-tmp/imp918s.imp"
17309 @ 147336:                  GOTO   L_0003
17310 @ 147339:                  LOCATE L_0004

  2744              %IF A(P+1)=2 %THEN P=P+2 %ELSE NO APP
17311 @ 147342:                  LINE   2744 "regression-compile-tmp/imp918s.imp"
17312 @ 147380:                  PUSH   A
17313 @ 147383:                  PUSH   P
17314 @ 147386:                  PUSHI  #0x00000001
17315 @ 147391:                  ADD   
17316 @ 147392:                  ACCESS
17317 @ 147393:                  PUSHI  #0x00000002
17318 @ 147398:                  JUMPIF # L_0007
17319 @ 147402:                  PUSH   P
17320 @ 147405:                  PUSH   P
17321 @ 147408:                  PUSHI  #0x00000002
17322 @ 147413:                  ADD   
17323 @ 147414:                  ASSVAL
17324 @ 147415:                  GOTO   L_0006
17325 @ 147418:                  LOCATE L_0007
17326 @ 147421:                  PUSH   NOAPP
17327 @ 147424:                  CALL  
17328 @ 147425:                  LOCATE L_0006

  2745              CENAME(MODE,FNAME,BS,IX,DP)
17329 @ 147428:                  LINE   2745 "regression-compile-tmp/imp918s.imp"
17330 @ 147466:                  PUSH   CENAME
17331 @ 147469:                  PUSH   MODE
17332 @ 147472:                  ASSPAR
17333 @ 147473:                  PUSH   FNAME
17334 @ 147476:                  ASSPAR
17335 @ 147477:                  PUSH   BS
17336 @ 147480:                  ASSPAR
17337 @ 147481:                  PUSH   IX
17338 @ 147484:                  ASSPAR
17339 @ 147485:                  PUSH   DP
17340 @ 147488:                  ASSPAR
17341 @ 147489:                  CALL  

  2746           %FINISH; ->Label99
  2747  !
17342 @ 147490:                  LINE   2746 "regression-compile-tmp/imp918s.imp"
17343 @ 147528:                  LOCATE L_0003
17344 @ 147531:                  LINE   2746 "regression-compile-tmp/imp918s.imp"
17345 @ 147569:                  JUMP   L_020b

  2748           %ROUTINE NOAPP
17346 @ 147572:                  LINE   2748 "regression-compile-tmp/imp918s.imp"
17347 @ 147610:                  DEF    NOAPP (_lev0id0_CSS_CRNAME_NOAPP) p1=V_020a 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
17348 @ 147627:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
17349 @ 147628:                     FINISH ) {lev=4}

  2749              P=P+1
17350 @ 147629:                     LINE   2749 "regression-compile-tmp/imp918s.imp"
17351 @ 147667:                     PUSH   P
17352 @ 147670:                     PUSH   P
17353 @ 147673:                     PUSHI  #0x00000001
17354 @ 147678:                     ADD   
17355 @ 147679:                     ASSVAL

  2750              %IF A(P)=1 %THEN %START;    ! <APP> PRESENT
17356 @ 147680:                     LINE   2750 "regression-compile-tmp/imp918s.imp"
17357 @ 147718:                     PUSH   A
17358 @ 147721:                     PUSH   P
17359 @ 147724:                     ACCESS
17360 @ 147725:                     PUSHI  #0x00000001
17361 @ 147730:                     JUMPIF # L_0004

  2751                 FAULT(19,A(P-1))
17362 @ 147734:                     LINE   2751 "regression-compile-tmp/imp918s.imp"
17363 @ 147772:                     PUSH   FAULT
17364 @ 147775:                     PUSHI  #0x00000013
17365 @ 147780:                     ASSPAR
17366 @ 147781:                     PUSH   A
17367 @ 147784:                     PUSH   P
17368 @ 147787:                     PUSHI  #0x00000001
17369 @ 147792:                     SUB   
17370 @ 147793:                     ACCESS
17371 @ 147794:                     ASSPAR
17372 @ 147795:                     CALL  

  2752                 SKIP APP
17373 @ 147796:                     LINE   2752 "regression-compile-tmp/imp918s.imp"
17374 @ 147834:                     PUSH   SKIPAPP
17375 @ 147837:                     CALL  

  2753              %FINISH %ELSE P=P+1;         ! P NOW POINTS TO ENAME
17376 @ 147838:                     LINE   2753 "regression-compile-tmp/imp918s.imp"
17377 @ 147876:                     GOTO   L_0003
17378 @ 147879:                     LOCATE L_0004
17379 @ 147882:                     PUSH   P
17380 @ 147885:                     PUSH   P
17381 @ 147888:                     PUSHI  #0x00000001
17382 @ 147893:                     ADD   
17383 @ 147894:                     ASSVAL
17384 @ 147895:                     LOCATE L_0003

  2754           %END
17385 @ 147898:                     LINE   2754 "regression-compile-tmp/imp918s.imp"
17386 @ 147936:                  END    _lev0id0_CSS_CRNAME_NOAPP {lev=4 --> 3}

  2755           %ROUTINE CENAME(%INTEGER MODE,FNAME,BS,IX,DP)
  2756  !***********************************************************************
  2757  !*       FINDS OUT ABOUT SUBNAME AND ACTS ACCORDINGLY.MOSTLY ACTION    *
  2758  !*       CONSISTS OF UPPING DP BY OFFSET OF THE SUBNAME BUT IS VERY    *
  2759  !*       HAIRY FOR RECORDS IN RECORDS ETC                              *
  2760  !***********************************************************************
17387 @ 147937:                  LINE   2755 "regression-compile-tmp/imp918s.imp"
17388 @ 147975:                  DEF    CENAME (_lev0id0_CSS_CRNAME_CENAME) p1=V_0209 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
17389 @ 147993:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
17390 @ 147994:                        DEF    MODE p1=V_020c 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
17391 @ 148010:                        DEF    FNAME p1=V_020d 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
17392 @ 148027:                        DEF    BS p1=V_020e 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
17393 @ 148041:                        DEF    IX p1=V_020f 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
17394 @ 148055:                        DEF    DP p1=V_0210 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
17395 @ 148069:                     FINISH ) {lev=4}

  2761           %ROUTINESPEC CHANGE MODE
17396 @ 148070:                     LINE   2761 "regression-compile-tmp/imp918s.imp"
17397 @ 148108:                     DEF    CHANGEMODE (_lev0id0_CSS_CRNAME_CENAME_CHANGEMODE) p1=V_0211 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
17398 @ 148130:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
17399 @ 148131:                     FINISH ) {lev=4}

  2762           %ROUTINESPEC COMBINE(%INTEGER HOW)
17400 @ 148132:                     LINE   2762 "regression-compile-tmp/imp918s.imp"
17401 @ 148170:                     DEF    COMBINE (_lev0id0_CSS_CRNAME_CENAME_COMBINE) p1=V_0212 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
17402 @ 148189:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
17403 @ 148190:                        DEF    HOW p1=V_0213 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
17404 @ 148205:                     FINISH ) {lev=4}

  2763           %INTEGER Q,QQ,D,C
17405 @ 148206:                     LINE   2763 "regression-compile-tmp/imp918s.imp"
17406 @ 148244:                     DEF    Q p1=V_0213 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
17407 @ 148257:                     DEF    QQ p1=V_0214 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
17408 @ 148271:                     DEF    D p1=V_0215 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
17409 @ 148284:                     DEF    C p1=V_0216 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

  2764           DEPTH=DEPTH+1
17410 @ 148297:                     LINE   2764 "regression-compile-tmp/imp918s.imp"
17411 @ 148335:                     PUSH   DEPTH
17412 @ 148338:                     PUSH   DEPTH
17413 @ 148341:                     PUSHI  #0x00000001
17414 @ 148346:                     ADD   
17415 @ 148347:                     ASSVAL

  2765           %IF A(P)=2 %THEN %START;      ! ENAME MISSING
17416 @ 148348:                     LINE   2765 "regression-compile-tmp/imp918s.imp"
17417 @ 148386:                     PUSH   A
17418 @ 148389:                     PUSH   P
17419 @ 148392:                     ACCESS
17420 @ 148393:                     PUSHI  #0x00000002
17421 @ 148398:                     JUMPIF # L_0004

  2766              BASE=BS; DISP=DP;INDEX=IX; ! FOR POINTER
17422 @ 148402:                     LINE   2766 "regression-compile-tmp/imp918s.imp"
17423 @ 148440:                     PUSH   BASE
17424 @ 148443:                     PUSH   BS
17425 @ 148446:                     ASSVAL
17426 @ 148447:                     LINE   2766 "regression-compile-tmp/imp918s.imp"
17427 @ 148485:                     PUSH   DISP
17428 @ 148488:                     PUSH   DP
17429 @ 148491:                     ASSVAL
17430 @ 148492:                     LINE   2766 "regression-compile-tmp/imp918s.imp"
17431 @ 148530:                     PUSH   INDEX
17432 @ 148533:                     PUSH   IX
17433 @ 148536:                     ASSVAL

  2767              %IF Z<14 %THEN %START;     ! NOT A RECORD OPERATION
17434 @ 148537:                     LINE   2767 "regression-compile-tmp/imp918s.imp"
17435 @ 148575:                     PUSH   Z
17436 @ 148578:                     PUSHI  #0x0000000e
17437 @ 148583:                     JUMPIF >= L_0007

  2768                 P=P-2
17438 @ 148587:                     LINE   2768 "regression-compile-tmp/imp918s.imp"
17439 @ 148625:                     PUSH   P
17440 @ 148628:                     PUSH   P
17441 @ 148631:                     PUSHI  #0x00000002
17442 @ 148636:                     SUB   
17443 @ 148637:                     ASSVAL

  2769                 %UNLESS 3<=Z<=4 %OR (Z=1 %AND REG=99) %START;! ADDR(RECORD)
17444 @ 148638:                     LINE   2769 "regression-compile-tmp/imp918s.imp"
17445 @ 148676:                     PUSHI  #0x00000003
17446 @ 148681:                     PUSH   Z
17447 @ 148684:                     JUMPIFD > L_000b
17448 @ 148688:                     PUSHI  #0x00000004
17449 @ 148693:                     JUMPIF <= L_000a
17450 @ 148697:                     LOCATE L_000b
17451 @ 148700:                     PUSH   Z
17452 @ 148703:                     PUSHI  #0x00000001
17453 @ 148708:                     JUMPIF # L_000b
17454 @ 148712:                     PUSH   REG
17455 @ 148715:                     PUSHI  #0x00000063
17456 @ 148720:                     JUMPIF = L_000a
17457 @ 148724:                     LOCATE L_000b

  2770                    FAULT(64,0); BASE=RBASE
17458 @ 148727:                     LINE   2770 "regression-compile-tmp/imp918s.imp"
17459 @ 148765:                     PUSH   FAULT
17460 @ 148768:                     PUSHI  #0x00000040
17461 @ 148773:                     ASSPAR
17462 @ 148774:                     PUSHI  #0x00000000
17463 @ 148779:                     ASSPAR
17464 @ 148780:                     CALL  
17465 @ 148781:                     LINE   2770 "regression-compile-tmp/imp918s.imp"
17466 @ 148819:                     PUSH   BASE
17467 @ 148822:                     PUSH   RBASE
17468 @ 148825:                     ASSVAL

  2771                    DISP=0; INDEX=0; PTYPE=1;! UNPACK
  2772  !%if USE MC = 1 %start
  2773  !            *L_1,PTYPE; *CVD_1,0(11)
  2774  !            *UNPK_ROUT(5),5(3,11)
  2775  !            *NC_ROUT(5),MASK1
  2776  !%finish
17469 @ 148826:                     LINE   2771 "regression-compile-tmp/imp918s.imp"
17470 @ 148864:                     PUSH   DISP
17471 @ 148867:                     PUSHI  #0x00000000
17472 @ 148872:                     ASSVAL
17473 @ 148873:                     LINE   2771 "regression-compile-tmp/imp918s.imp"
17474 @ 148911:                     PUSH   INDEX
17475 @ 148914:                     PUSHI  #0x00000000
17476 @ 148919:                     ASSVAL
17477 @ 148920:                     LINE   2771 "regression-compile-tmp/imp918s.imp"
17478 @ 148958:                     PUSH   PTYPE
17479 @ 148961:                     PUSHI  #0x00000001
17480 @ 148966:                     ASSVAL

  2777                 %FINISH
17481 @ 148967:                     LINE   2777 "regression-compile-tmp/imp918s.imp"
17482 @ 149005:                     LOCATE L_000a

  2778              %FINISH
17483 @ 149008:                     LINE   2778 "regression-compile-tmp/imp918s.imp"
17484 @ 149046:                     LOCATE L_0007

  2779              %RETURN
17485 @ 149049:                     LINE   2779 "regression-compile-tmp/imp918s.imp"
17486 @ 149087:                     RETURN

  2780           %FINISH
17487 @ 149088:                     LINE   2780 "regression-compile-tmp/imp918s.imp"
17488 @ 149126:                     LOCATE L_0004

  2781           P=P+1;                        ! FIND OUT ABOUT SUBNAME
17489 @ 149129:                     LINE   2781 "regression-compile-tmp/imp918s.imp"
17490 @ 149167:                     PUSH   P
17491 @ 149170:                     PUSH   P
17492 @ 149173:                     PUSHI  #0x00000001
17493 @ 149178:                     ADD   
17494 @ 149179:                     ASSVAL

  2782           Q=DISPLACEMENT(FNAME);        ! TCELL POINTS TO CELL HOLDING
  2783          ! UNPACK;                       ! INFO ABOUT THE SUBNAME
  2784  !%if USE MC = 1 %start
  2785  !            *L_1,PTYPE; *CVD_1,0(11)
  2786  !            *UNPK_ROUT(5),5(3,11)
  2787  !            *NC_ROUT(5),MASK1
  2788  !%finish
17495 @ 149180:                     LINE   2782 "regression-compile-tmp/imp918s.imp"
17496 @ 149218:                     PUSH   Q
17497 @ 149221:                     PUSH   DISPLACEMENT
17498 @ 149224:                     PUSH   FNAME
17499 @ 149227:                     ASSPAR
17500 @ 149228:                     CALL  
17501 @ 149229:                     ASSVAL

  2789           %IF Q=-1=ACC %OR PTYPE=7 %START;! WRONG SUBNAME(HAS BEEN FAULTED)
17502 @ 149230:                     LINE   2789 "regression-compile-tmp/imp918s.imp"
17503 @ 149268:                     PUSH   Q
17504 @ 149271:                     PUSHI  #0x00000001
17505 @ 149276:                     NEGATE
17506 @ 149277:                     JUMPIFD # L_0006
17507 @ 149281:                     PUSH   ACC
17508 @ 149284:                     JUMPIF = L_0005
17509 @ 149288:                     LOCATE L_0006
17510 @ 149291:                     PUSH   PTYPE
17511 @ 149294:                     PUSHI  #0x00000007
17512 @ 149299:                     JUMPIF # L_0004
17513 @ 149303:                     LOCATE L_0005

  2790              P=P+1; SKIP APP; P=P-2
17514 @ 149306:                     LINE   2790 "regression-compile-tmp/imp918s.imp"
17515 @ 149344:                     PUSH   P
17516 @ 149347:                     PUSH   P
17517 @ 149350:                     PUSHI  #0x00000001
17518 @ 149355:                     ADD   
17519 @ 149356:                     ASSVAL
17520 @ 149357:                     LINE   2790 "regression-compile-tmp/imp918s.imp"
17521 @ 149395:                     PUSH   SKIPAPP
17522 @ 149398:                     CALL  
17523 @ 149399:                     LINE   2790 "regression-compile-tmp/imp918s.imp"
17524 @ 149437:                     PUSH   P
17525 @ 149440:                     PUSH   P
17526 @ 149443:                     PUSHI  #0x00000002
17527 @ 149448:                     SUB   
17528 @ 149449:                     ASSVAL

  2791              INDEX=0; BASE=0; DISP=0
17529 @ 149450:                     LINE   2791 "regression-compile-tmp/imp918s.imp"
17530 @ 149488:                     PUSH   INDEX
17531 @ 149491:                     PUSHI  #0x00000000
17532 @ 149496:                     ASSVAL
17533 @ 149497:                     LINE   2791 "regression-compile-tmp/imp918s.imp"
17534 @ 149535:                     PUSH   BASE
17535 @ 149538:                     PUSHI  #0x00000000
17536 @ 149543:                     ASSVAL
17537 @ 149544:                     LINE   2791 "regression-compile-tmp/imp918s.imp"
17538 @ 149582:                     PUSH   DISP
17539 @ 149585:                     PUSHI  #0x00000000
17540 @ 149590:                     ASSVAL

  2792              %RETURN
17541 @ 149591:                     LINE   2792 "regression-compile-tmp/imp918s.imp"
17542 @ 149629:                     RETURN

  2793           %FINISH
17543 @ 149630:                     LINE   2793 "regression-compile-tmp/imp918s.imp"
17544 @ 149668:                     LOCATE L_0004

  2794           ->Label20 %IF ARR=1
17545 @ 149671:                     LINE   2794 "regression-compile-tmp/imp918s.imp"
17546 @ 149709:                     PUSH   ARR
17547 @ 149712:                     PUSHI  #0x00000001
17548 @ 149717:                     JUMPIF # L_0004
17549 @ 149721:                     JUMP   L_0217
17550 @ 149724:                     LOCATE L_0004

  2795           %IF MODE=1 %THEN CHANGE MODE
17551 @ 149727:                     LINE   2795 "regression-compile-tmp/imp918s.imp"
17552 @ 149765:                     PUSH   MODE
17553 @ 149768:                     PUSHI  #0x00000001
17554 @ 149773:                     JUMPIF # L_0004
17555 @ 149777:                     PUSH   CHANGEMODE
17556 @ 149780:                     CALL  
17557 @ 149781:                     LOCATE L_0004

  2796           %IF TYPE<=2 %OR TYPE=5 %THEN %START
17558 @ 149784:                     LINE   2796 "regression-compile-tmp/imp918s.imp"
17559 @ 149822:                     PUSH   TYPE
17560 @ 149825:                     PUSHI  #0x00000002
17561 @ 149830:                     JUMPIF <= L_0005
17562 @ 149834:                     PUSH   TYPE
17563 @ 149837:                     PUSHI  #0x00000005
17564 @ 149842:                     JUMPIF # L_0004
17565 @ 149846:                     LOCATE L_0005

  2797              BASE=BS;  INDEX=IX;  DISP=DP+Q
17566 @ 149849:                     LINE   2797 "regression-compile-tmp/imp918s.imp"
17567 @ 149887:                     PUSH   BASE
17568 @ 149890:                     PUSH   BS
17569 @ 149893:                     ASSVAL
17570 @ 149894:                     LINE   2797 "regression-compile-tmp/imp918s.imp"
17571 @ 149932:                     PUSH   INDEX
17572 @ 149935:                     PUSH   IX
17573 @ 149938:                     ASSVAL
17574 @ 149939:                     LINE   2797 "regression-compile-tmp/imp918s.imp"
17575 @ 149977:                     PUSH   DISP
17576 @ 149980:                     PUSH   DP
17577 @ 149983:                     PUSH   Q
17578 @ 149986:                     ADD   
17579 @ 149987:                     ASSVAL

  2798           ->Label99; %FINISH
  2799  !
  2800  ! NOW CODING BECOMES HAIRY:- STILL LEFT ARE
  2801  ! A) RECORDS IN RECORDS   Q POINTS TO SECONDARY RECORD
  2802  ! B) RECORDNAMES IN RECORDS   Q HAS OFF-SET OF A POINTER
  2803  ! C) RECORDARRAYNAMES IN RECORDS   Q HAS OFF-SET A HEADER IN RECORD
  2804  ! D) RECORDARRAYS IN RECORDS   NOT YET ALLOWED
  2805  !    Q WOULD HAVE OFF-SET OF A RECORD RELATIVE HEADER IN THE GLA
  2806  !
17580 @ 149988:                     LINE   2798 "regression-compile-tmp/imp918s.imp"
17581 @ 150026:                     JUMP   L_0218
17582 @ 150029:                     LINE   2798 "regression-compile-tmp/imp918s.imp"
17583 @ 150067:                     LOCATE L_0004

  2807           %IF A(P+1)=2 %THEN P=P+2 %ELSE NOAPP
17584 @ 150070:                     LINE   2807 "regression-compile-tmp/imp918s.imp"
17585 @ 150108:                     PUSH   A
17586 @ 150111:                     PUSH   P
17587 @ 150114:                     PUSHI  #0x00000001
17588 @ 150119:                     ADD   
17589 @ 150120:                     ACCESS
17590 @ 150121:                     PUSHI  #0x00000002
17591 @ 150126:                     JUMPIF # L_0004
17592 @ 150130:                     PUSH   P
17593 @ 150133:                     PUSH   P
17594 @ 150136:                     PUSHI  #0x00000002
17595 @ 150141:                     ADD   
17596 @ 150142:                     ASSVAL
17597 @ 150143:                     GOTO   L_0003
17598 @ 150146:                     LOCATE L_0004
17599 @ 150149:                     PUSH   NOAPP
17600 @ 150152:                     CALL  
17601 @ 150153:                     LOCATE L_0003

  2808           CENAME(NAM,KFORM,BS,IX,DP+Q)
17602 @ 150156:                     LINE   2808 "regression-compile-tmp/imp918s.imp"
17603 @ 150194:                     PUSH   CENAME
17604 @ 150197:                     PUSH   NAM
17605 @ 150200:                     ASSPAR
17606 @ 150201:                     PUSH   KFORM
17607 @ 150204:                     ASSPAR
17608 @ 150205:                     PUSH   BS
17609 @ 150208:                     ASSPAR
17610 @ 150209:                     PUSH   IX
17611 @ 150212:                     ASSPAR
17612 @ 150213:                     PUSH   DP
17613 @ 150216:                     PUSH   Q
17614 @ 150219:                     ADD   
17615 @ 150220:                     ASSPAR
17616 @ 150221:                     CALL  

  2809           ->Label99
17617 @ 150222:                     LINE   2809 "regression-compile-tmp/imp918s.imp"
17618 @ 150260:                     JUMP   L_0218

  2810  Label20:                                    ! ARRAYS AND ARRAYNAMES AS ELEMEN
17619 @ 150263:                     LINE   2810 "regression-compile-tmp/imp918s.imp"
17620 @ 150301:                     LABEL  L_0217

  2811           FROM123(TCELL,Q,INTEGER(ADDR(SNDISP)),INTEGER(ADDR(K)))
17621 @ 150304:                     LINE   2811 "regression-compile-tmp/imp918s.imp"
17622 @ 150342:                     PUSH   FROM123
17623 @ 150345:                     PUSH   TCELL
17624 @ 150348:                     ASSPAR
17625 @ 150349:                     PUSH   Q
17626 @ 150352:                     ASSPAR
17627 @ 150353:                     PUSH   INTEGER
17628 @ 150356:                     PUSH   ADDR
17629 @ 150359:                     PUSH   SNDISP
17630 @ 150362:                     ASSPAR
17631 @ 150363:                     CALL  
17632 @ 150364:                     ASSPAR
17633 @ 150365:                     CALL  
17634 @ 150366:                     ASSPAR
17635 @ 150367:                     PUSH   INTEGER
17636 @ 150370:                     PUSH   ADDR
17637 @ 150373:                     PUSH   K
17638 @ 150376:                     ASSPAR
17639 @ 150377:                     CALL  
17640 @ 150378:                     ASSPAR
17641 @ 150379:                     CALL  
17642 @ 150380:                     ASSPAR
17643 @ 150381:                     CALL  

  2812           C=ACC; D=SNDISP; Q=K; QQ=KFORM
17644 @ 150382:                     LINE   2812 "regression-compile-tmp/imp918s.imp"
17645 @ 150420:                     PUSH   C
17646 @ 150423:                     PUSH   ACC
17647 @ 150426:                     ASSVAL
17648 @ 150427:                     LINE   2812 "regression-compile-tmp/imp918s.imp"
17649 @ 150465:                     PUSH   D
17650 @ 150468:                     PUSH   SNDISP
17651 @ 150471:                     ASSVAL
17652 @ 150472:                     LINE   2812 "regression-compile-tmp/imp918s.imp"
17653 @ 150510:                     PUSH   Q
17654 @ 150513:                     PUSH   K
17655 @ 150516:                     ASSVAL
17656 @ 150517:                     LINE   2812 "regression-compile-tmp/imp918s.imp"
17657 @ 150555:                     PUSH   QQ
17658 @ 150558:                     PUSH   KFORM
17659 @ 150561:                     ASSVAL

  2813           %IF Z=12 %AND A(P+1)=2 %START;! 'GET ARRAYHEAD' CALL
17660 @ 150562:                     LINE   2813 "regression-compile-tmp/imp918s.imp"
17661 @ 150600:                     PUSH   Z
17662 @ 150603:                     PUSHI  #0x0000000c
17663 @ 150608:                     JUMPIF # L_0004
17664 @ 150612:                     PUSH   A
17665 @ 150615:                     PUSH   P
17666 @ 150618:                     PUSHI  #0x00000001
17667 @ 150623:                     ADD   
17668 @ 150624:                     ACCESS
17669 @ 150625:                     PUSHI  #0x00000002
17670 @ 150630:                     JUMPIF # L_0004

  2814              %IF MODE=1 %THEN CHANGE MODE
17671 @ 150634:                     LINE   2814 "regression-compile-tmp/imp918s.imp"
17672 @ 150672:                     PUSH   MODE
17673 @ 150675:                     PUSHI  #0x00000001
17674 @ 150680:                     JUMPIF # L_0007
17675 @ 150684:                     PUSH   CHANGEMODE
17676 @ 150687:                     CALL  
17677 @ 150688:                     LOCATE L_0007

  2815              %IF NAM=1 %THEN %START
17678 @ 150691:                     LINE   2815 "regression-compile-tmp/imp918s.imp"
17679 @ 150729:                     PUSH   NAM
17680 @ 150732:                     PUSHI  #0x00000001
17681 @ 150737:                     JUMPIF # L_0007

  2816                 COMBINE(0)
17682 @ 150741:                     LINE   2816 "regression-compile-tmp/imp918s.imp"
17683 @ 150779:                     PUSH   COMBINE
17684 @ 150782:                     PUSHI  #0x00000000
17685 @ 150787:                     ASSPAR
17686 @ 150788:                     CALL  

  2817                 INDEX=0; BASE=BS; DISP=DP+Q
17687 @ 150789:                     LINE   2817 "regression-compile-tmp/imp918s.imp"
17688 @ 150827:                     PUSH   INDEX
17689 @ 150830:                     PUSHI  #0x00000000
17690 @ 150835:                     ASSVAL
17691 @ 150836:                     LINE   2817 "regression-compile-tmp/imp918s.imp"
17692 @ 150874:                     PUSH   BASE
17693 @ 150877:                     PUSH   BS
17694 @ 150880:                     ASSVAL
17695 @ 150881:                     LINE   2817 "regression-compile-tmp/imp918s.imp"
17696 @ 150919:                     PUSH   DISP
17697 @ 150922:                     PUSH   DP
17698 @ 150925:                     PUSH   Q
17699 @ 150928:                     ADD   
17700 @ 150929:                     ASSVAL

  2818                 %RETURN
17701 @ 150930:                     LINE   2818 "regression-compile-tmp/imp918s.imp"
17702 @ 150968:                     RETURN

  2819              %FINISH
  2820  !
  2821  ! PASSING AN ARRAY IN A RECORD BY NAME MUST CONSTRUCT PROPER ARRAYHEAD
  2822  ! FROM THE RECORD RELATIVE ONE AT Q(GLA)
  2823  !
17703 @ 150969:                     LINE   2819 "regression-compile-tmp/imp918s.imp"
17704 @ 151007:                     LOCATE L_0007

  2824              COMBINE(1);                ! REDUCE TO A SINGLE POINTER
17705 @ 151010:                     LINE   2824 "regression-compile-tmp/imp918s.imp"
17706 @ 151048:                     PUSH   COMBINE
17707 @ 151051:                     PUSHI  #0x00000001
17708 @ 151056:                     ASSPAR
17709 @ 151057:                     CALL  

  2825              CREATE AH(1,BS,GLA,Q)
17710 @ 151058:                     LINE   2825 "regression-compile-tmp/imp918s.imp"
17711 @ 151096:                     PUSH   CREATEAH
17712 @ 151099:                     PUSHI  #0x00000001
17713 @ 151104:                     ASSPAR
17714 @ 151105:                     PUSH   BS
17715 @ 151108:                     ASSPAR
17716 @ 151109:                     PUSHI  #0x0000000d
17717 @ 151114:                     ASSPAR
17718 @ 151115:                     PUSH   Q
17719 @ 151118:                     ASSPAR
17720 @ 151119:                     CALL  

  2826              REGISTER(BS)=0 %IF REGISTER(BS)=2
17721 @ 151120:                     LINE   2826 "regression-compile-tmp/imp918s.imp"
17722 @ 151158:                     PUSH   REGISTER
17723 @ 151161:                     PUSH   BS
17724 @ 151164:                     ACCESS
17725 @ 151165:                     PUSHI  #0x00000002
17726 @ 151170:                     JUMPIF # L_0007
17727 @ 151174:                     PUSH   REGISTER
17728 @ 151177:                     PUSH   BS
17729 @ 151180:                     ACCESS
17730 @ 151181:                     PUSHI  #0x00000000
17731 @ 151186:                     ASSVAL
17732 @ 151187:                     LOCATE L_0007

  2827           %FINISH %ELSE %START;         ! ARRAY ELEMENTS IN RECORDS
17733 @ 151190:                     LINE   2827 "regression-compile-tmp/imp918s.imp"
17734 @ 151228:                     GOTO   L_0003
17735 @ 151231:                     LOCATE L_0004

  2828              %IF NAM=1 %THEN %START;    ! ARRAYNAMES-FULLHEAD IN RECORD
17736 @ 151234:                     LINE   2828 "regression-compile-tmp/imp918s.imp"
17737 @ 151272:                     PUSH   NAM
17738 @ 151275:                     PUSHI  #0x00000001
17739 @ 151280:                     JUMPIF # L_0007

  2829                 %IF MODE=1 %THEN CHANGE MODE
17740 @ 151284:                     LINE   2829 "regression-compile-tmp/imp918s.imp"
17741 @ 151322:                     PUSH   MODE
17742 @ 151325:                     PUSHI  #0x00000001
17743 @ 151330:                     JUMPIF # L_000a
17744 @ 151334:                     PUSH   CHANGEMODE
17745 @ 151337:                     CALL  
17746 @ 151338:                     LOCATE L_000a

  2830                 COMBINE(0);             ! IN CASE ARRAYNAME IN RECDARRAY
17747 @ 151341:                     LINE   2830 "regression-compile-tmp/imp918s.imp"
17748 @ 151379:                     PUSH   COMBINE
17749 @ 151382:                     PUSHI  #0x00000000
17750 @ 151387:                     ASSPAR
17751 @ 151388:                     CALL  

  2831                 CANAME(17,BS,DP+Q,0);   ! ARRAY MODE SETS DISP,INDEX&BASE
17752 @ 151389:                     LINE   2831 "regression-compile-tmp/imp918s.imp"
17753 @ 151427:                     PUSH   CANAME
17754 @ 151430:                     PUSHI  #0x00000011
17755 @ 151435:                     ASSPAR
17756 @ 151436:                     PUSH   BS
17757 @ 151439:                     ASSPAR
17758 @ 151440:                     PUSH   DP
17759 @ 151443:                     PUSH   Q
17760 @ 151446:                     ADD   
17761 @ 151447:                     ASSPAR
17762 @ 151448:                     PUSHI  #0x00000000
17763 @ 151453:                     ASSPAR
17764 @ 151454:                     CALL  

  2832                 REGISTER(BS)=0 %IF REGISTER(BS)=2
17765 @ 151455:                     LINE   2832 "regression-compile-tmp/imp918s.imp"
17766 @ 151493:                     PUSH   REGISTER
17767 @ 151496:                     PUSH   BS
17768 @ 151499:                     ACCESS
17769 @ 151500:                     PUSHI  #0x00000002
17770 @ 151505:                     JUMPIF # L_000a
17771 @ 151509:                     PUSH   REGISTER
17772 @ 151512:                     PUSH   BS
17773 @ 151515:                     ACCESS
17774 @ 151516:                     PUSHI  #0x00000000
17775 @ 151521:                     ASSVAL
17776 @ 151522:                     LOCATE L_000a

  2833                 BML=BS; DML=DP; NAM=0;  ! HEAD POSN STRINGS NEED
  2834                                         ! LMAX FROM DOPEVECTOR
17777 @ 151525:                     LINE   2833 "regression-compile-tmp/imp918s.imp"
17778 @ 151563:                     PUSH   BML
17779 @ 151566:                     PUSH   BS
17780 @ 151569:                     ASSVAL
17781 @ 151570:                     LINE   2833 "regression-compile-tmp/imp918s.imp"
17782 @ 151608:                     PUSH   DML
17783 @ 151611:                     PUSH   DP
17784 @ 151614:                     ASSVAL
17785 @ 151615:                     LINE   2833 "regression-compile-tmp/imp918s.imp"
17786 @ 151653:                     PUSH   NAM
17787 @ 151656:                     PUSHI  #0x00000000
17788 @ 151661:                     ASSVAL

  2835              %FINISH %ELSE %START;      ! ARRAY RELATIVE HEAD IN GLA
17789 @ 151662:                     LINE   2835 "regression-compile-tmp/imp918s.imp"
17790 @ 151700:                     GOTO   L_0006
17791 @ 151703:                     LOCATE L_0007

  2836                 COMBINE(0); J=1;        ! REDUCE TWO POINTERS TO ONE
17792 @ 151706:                     LINE   2836 "regression-compile-tmp/imp918s.imp"
17793 @ 151744:                     PUSH   COMBINE
17794 @ 151747:                     PUSHI  #0x00000000
17795 @ 151752:                     ASSPAR
17796 @ 151753:                     CALL  
17797 @ 151754:                     LINE   2836 "regression-compile-tmp/imp918s.imp"
17798 @ 151792:                     PUSH   J
17799 @ 151795:                     PUSHI  #0x00000001
17800 @ 151800:                     ASSVAL

  2837                 CANAME(3,GLA,Q,D);      ! VECTOR MODE D= BASIC DISP
  2838                                         ! SETS INDEX AND DISP ONLY
17801 @ 151801:                     LINE   2837 "regression-compile-tmp/imp918s.imp"
17802 @ 151839:                     PUSH   CANAME
17803 @ 151842:                     PUSHI  #0x00000003
17804 @ 151847:                     ASSPAR
17805 @ 151848:                     PUSHI  #0x0000000d
17806 @ 151853:                     ASSPAR
17807 @ 151854:                     PUSH   Q
17808 @ 151857:                     ASSPAR
17809 @ 151858:                     PUSH   D
17810 @ 151861:                     ASSPAR
17811 @ 151862:                     CALL  

  2839                 %IF INDEX>0 %THEN REGISTER(INDEX)=REGISTER(INDEX)!1
17812 @ 151863:                     LINE   2839 "regression-compile-tmp/imp918s.imp"
17813 @ 151901:                     PUSH   INDEX
17814 @ 151904:                     PUSHI  #0x00000000
17815 @ 151909:                     JUMPIF <= L_000a
17816 @ 151913:                     PUSH   REGISTER
17817 @ 151916:                     PUSH   INDEX
17818 @ 151919:                     ACCESS
17819 @ 151920:                     PUSH   REGISTER
17820 @ 151923:                     PUSH   INDEX
17821 @ 151926:                     ACCESS
17822 @ 151927:                     PUSHI  #0x00000001
17823 @ 151932:                     OR    
17824 @ 151933:                     ASSVAL
17825 @ 151934:                     LOCATE L_000a

  2840                 %IF MODE=1 %THEN CHANGE MODE
17826 @ 151937:                     LINE   2840 "regression-compile-tmp/imp918s.imp"
17827 @ 151975:                     PUSH   MODE
17828 @ 151978:                     PUSHI  #0x00000001
17829 @ 151983:                     JUMPIF # L_000a
17830 @ 151987:                     PUSH   CHANGEMODE
17831 @ 151990:                     CALL  
17832 @ 151991:                     LOCATE L_000a

  2841                 %IF INDEX>0<=REGISTER(INDEX) %THEN REGISTER(INDEX)=0
17833 @ 151994:                     LINE   2841 "regression-compile-tmp/imp918s.imp"
17834 @ 152032:                     PUSH   INDEX
17835 @ 152035:                     PUSHI  #0x00000000
17836 @ 152040:                     JUMPIFD <= L_000a
17837 @ 152044:                     PUSH   REGISTER
17838 @ 152047:                     PUSH   INDEX
17839 @ 152050:                     ACCESS
17840 @ 152051:                     JUMPIF > L_000a
17841 @ 152055:                     PUSH   REGISTER
17842 @ 152058:                     PUSH   INDEX
17843 @ 152061:                     ACCESS
17844 @ 152062:                     PUSHI  #0x00000000
17845 @ 152067:                     ASSVAL
17846 @ 152068:                     LOCATE L_000a

  2842                 BASE=BS; DISP=DISP+DP
17847 @ 152071:                     LINE   2842 "regression-compile-tmp/imp918s.imp"
17848 @ 152109:                     PUSH   BASE
17849 @ 152112:                     PUSH   BS
17850 @ 152115:                     ASSVAL
17851 @ 152116:                     LINE   2842 "regression-compile-tmp/imp918s.imp"
17852 @ 152154:                     PUSH   DISP
17853 @ 152157:                     PUSH   DISP
17854 @ 152160:                     PUSH   DP
17855 @ 152163:                     ADD   
17856 @ 152164:                     ASSVAL

  2843                 BML=-1; DML=C&X'FFFF'-1;! FOR STRING ARRAYS
17857 @ 152165:                     LINE   2843 "regression-compile-tmp/imp918s.imp"
17858 @ 152203:                     PUSH   BML
17859 @ 152206:                     PUSHI  #0x00000001
17860 @ 152211:                     NEGATE
17861 @ 152212:                     ASSVAL
17862 @ 152213:                     LINE   2843 "regression-compile-tmp/imp918s.imp"
17863 @ 152251:                     PUSH   DML
17864 @ 152254:                     PUSH   C
17865 @ 152257:                     PUSHI  #0x0000ffff
17866 @ 152262:                     AND   
17867 @ 152263:                     PUSHI  #0x00000001
17868 @ 152268:                     SUB   
17869 @ 152269:                     ASSVAL

  2844                 ADJUST INDEX(REGISTER(INDEX)+1,INDEX,DISP) %IF DISP<0
17870 @ 152270:                     LINE   2844 "regression-compile-tmp/imp918s.imp"
17871 @ 152308:                     PUSH   DISP
17872 @ 152311:                     PUSHI  #0x00000000
17873 @ 152316:                     JUMPIF >= L_000a
17874 @ 152320:                     PUSH   ADJUSTINDEX
17875 @ 152323:                     PUSH   REGISTER
17876 @ 152326:                     PUSH   INDEX
17877 @ 152329:                     ACCESS
17878 @ 152330:                     PUSHI  #0x00000001
17879 @ 152335:                     ADD   
17880 @ 152336:                     ASSPAR
17881 @ 152337:                     PUSH   INDEX
17882 @ 152340:                     ASSPAR
17883 @ 152341:                     PUSH   DISP
17884 @ 152344:                     ASSPAR
17885 @ 152345:                     CALL  
17886 @ 152346:                     LOCATE L_000a

  2845              %FINISH
17887 @ 152349:                     LINE   2845 "regression-compile-tmp/imp918s.imp"
17888 @ 152387:                     LOCATE L_0006

  2846              %IF TYPE=3 %THEN CENAME(0,QQ,BASE,INDEX,DISP)
17889 @ 152390:                     LINE   2846 "regression-compile-tmp/imp918s.imp"
17890 @ 152428:                     PUSH   TYPE
17891 @ 152431:                     PUSHI  #0x00000003
17892 @ 152436:                     JUMPIF # L_0007
17893 @ 152440:                     PUSH   CENAME
17894 @ 152443:                     PUSHI  #0x00000000
17895 @ 152448:                     ASSPAR
17896 @ 152449:                     PUSH   QQ
17897 @ 152452:                     ASSPAR
17898 @ 152453:                     PUSH   BASE
17899 @ 152456:                     ASSPAR
17900 @ 152457:                     PUSH   INDEX
17901 @ 152460:                     ASSPAR
17902 @ 152461:                     PUSH   DISP
17903 @ 152464:                     ASSPAR
17904 @ 152465:                     CALL  
17905 @ 152466:                     LOCATE L_0007

  2847           %FINISH
17906 @ 152469:                     LINE   2847 "regression-compile-tmp/imp918s.imp"
17907 @ 152507:                     LOCATE L_0003

  2848           ->Label99
17908 @ 152510:                     LINE   2848 "regression-compile-tmp/imp918s.imp"
17909 @ 152548:                     JUMP   L_0218

  2849           %ROUTINE CHANGE MODE
  2850  !***********************************************************************
  2851  !*       CHANGES MODE=1 RECORDS TO MODE=0 RECORDS BY PICKING UP THE    *
  2852  !*       POINTER TO SAFE REGISTER AND RESETTING BS,DP AND IX           *
  2853  !***********************************************************************
17910 @ 152551:                     LINE   2849 "regression-compile-tmp/imp918s.imp"
17911 @ 152589:                     DEF    CHANGEMODE (_lev0id0_CSS_CRNAME_CENAME_CHANGEMODE) p1=V_0211 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
17912 @ 152611:                        START  ( FORMAL PARAMETERS  {lev=5 --> 6, nested=0 --> 1}
17913 @ 152612:                        FINISH ) {lev=5}

  2854           %INTEGER REG
17914 @ 152613:                        LINE   2854 "regression-compile-tmp/imp918s.imp"
17915 @ 152651:                        DEF    REG p1=V_0219 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

  2855           REG=-1
17916 @ 152666:                        LINE   2855 "regression-compile-tmp/imp918s.imp"
17917 @ 152704:                        PUSH   REG
17918 @ 152707:                        PUSHI  #0x00000001
17919 @ 152712:                        NEGATE
17920 @ 152713:                        ASSVAL

  2856           %IF DEPTH=1 %THEN FIND USE(REG,1,7,CLINK)
17921 @ 152714:                        LINE   2856 "regression-compile-tmp/imp918s.imp"
17922 @ 152752:                        PUSH   DEPTH
17923 @ 152755:                        PUSHI  #0x00000001
17924 @ 152760:                        JUMPIF # L_0004
17925 @ 152764:                        PUSH   FINDUSE
17926 @ 152767:                        PUSH   REG
17927 @ 152770:                        ASSPAR
17928 @ 152771:                        PUSHI  #0x00000001
17929 @ 152776:                        ASSPAR
17930 @ 152777:                        PUSHI  #0x00000007
17931 @ 152782:                        ASSPAR
17932 @ 152783:                        PUSH   CLINK
17933 @ 152786:                        ASSPAR
17934 @ 152787:                        CALL  
17935 @ 152788:                        LOCATE L_0004

  2857           %UNLESS REG>0 %AND REGISTER(REG)#1 %START
17936 @ 152791:                        LINE   2857 "regression-compile-tmp/imp918s.imp"
17937 @ 152829:                        PUSH   REG
17938 @ 152832:                        PUSHI  #0x00000000
17939 @ 152837:                        JUMPIF <= L_0005
17940 @ 152841:                        PUSH   REGISTER
17941 @ 152844:                        PUSH   REG
17942 @ 152847:                        ACCESS
17943 @ 152848:                        PUSHI  #0x00000001
17944 @ 152853:                        JUMPIF # L_0004
17945 @ 152857:                        LOCATE L_0005

  2858              FIND REG(ADDREG,REG)
17946 @ 152860:                        LINE   2858 "regression-compile-tmp/imp918s.imp"
17947 @ 152898:                        PUSH   FINDREG
17948 @ 152901:                        PUSHI  #0xffff0e01
17949 @ 152906:                        ASSPAR
17950 @ 152907:                        PUSH   REG
17951 @ 152910:                        ASSPAR
17952 @ 152911:                        CALL  

  2859              DUMP(X'58',REG,DP,IX,BS);     !  L   REG POINTER
17953 @ 152912:                        LINE   2859 "regression-compile-tmp/imp918s.imp"
17954 @ 152950:                        PUSH   DUMP
17955 @ 152953:                        PUSHI  #0x00000058
17956 @ 152958:                        ASSPAR
17957 @ 152959:                        PUSH   REG
17958 @ 152962:                        ASSPAR
17959 @ 152963:                        PUSH   DP
17960 @ 152966:                        ASSPAR
17961 @ 152967:                        PUSH   IX
17962 @ 152970:                        ASSPAR
17963 @ 152971:                        PUSH   BS
17964 @ 152974:                        ASSPAR
17965 @ 152975:                        CALL  

  2860              %IF DEPTH=1 %AND CLINK>0 %THEN SET USE(REG,7,CLINK) %C
  2861                                       %ELSE FORGET(REG)
17966 @ 152976:                        LINE   2860 "regression-compile-tmp/imp918s.imp"
17967 @ 153014:                        PUSH   DEPTH
17968 @ 153017:                        PUSHI  #0x00000001
17969 @ 153022:                        JUMPIF # L_0007
17970 @ 153026:                        PUSH   CLINK
17971 @ 153029:                        PUSHI  #0x00000000
17972 @ 153034:                        JUMPIF <= L_0007
17973 @ 153038:                        PUSH   SETUSE
17974 @ 153041:                        PUSH   REG
17975 @ 153044:                        ASSPAR
17976 @ 153045:                        PUSHI  #0x00000007
17977 @ 153050:                        ASSPAR
17978 @ 153051:                        PUSH   CLINK
17979 @ 153054:                        ASSPAR
17980 @ 153055:                        CALL  
17981 @ 153056:                        GOTO   L_0006
17982 @ 153059:                        LOCATE L_0007
17983 @ 153062:                        PUSH   FORGET
17984 @ 153065:                        PUSH   REG
17985 @ 153068:                        ASSPAR
17986 @ 153069:                        CALL  
17987 @ 153070:                        LOCATE L_0006

  2862              %IF REGISTER(BS)=2 %THEN REGISTER(BS)=0
17988 @ 153073:                        LINE   2862 "regression-compile-tmp/imp918s.imp"
17989 @ 153111:                        PUSH   REGISTER
17990 @ 153114:                        PUSH   BS
17991 @ 153117:                        ACCESS
17992 @ 153118:                        PUSHI  #0x00000002
17993 @ 153123:                        JUMPIF # L_0007
17994 @ 153127:                        PUSH   REGISTER
17995 @ 153130:                        PUSH   BS
17996 @ 153133:                        ACCESS
17997 @ 153134:                        PUSHI  #0x00000000
17998 @ 153139:                        ASSVAL
17999 @ 153140:                        LOCATE L_0007

  2863           %FINISH
18000 @ 153143:                        LINE   2863 "regression-compile-tmp/imp918s.imp"
18001 @ 153181:                        LOCATE L_0004

  2864           REGISTER(REG)=2 %IF REGISTER(REG)=0
18002 @ 153184:                        LINE   2864 "regression-compile-tmp/imp918s.imp"
18003 @ 153222:                        PUSH   REGISTER
18004 @ 153225:                        PUSH   REG
18005 @ 153228:                        ACCESS
18006 @ 153229:                        PUSHI  #0x00000000
18007 @ 153234:                        JUMPIF # L_0004
18008 @ 153238:                        PUSH   REGISTER
18009 @ 153241:                        PUSH   REG
18010 @ 153244:                        ACCESS
18011 @ 153245:                        PUSHI  #0x00000002
18012 @ 153250:                        ASSVAL
18013 @ 153251:                        LOCATE L_0004

  2865           GRAT(REG)=CA
18014 @ 153254:                        LINE   2865 "regression-compile-tmp/imp918s.imp"
18015 @ 153292:                        PUSH   GRAT
18016 @ 153295:                        PUSH   REG
18017 @ 153298:                        ACCESS
18018 @ 153299:                        PUSH   CA
18019 @ 153302:                        ASSVAL

  2866           BS=REG;IX=0; MODE=0; DP=0
18020 @ 153303:                        LINE   2866 "regression-compile-tmp/imp918s.imp"
18021 @ 153341:                        PUSH   BS
18022 @ 153344:                        PUSH   REG
18023 @ 153347:                        ASSVAL
18024 @ 153348:                        LINE   2866 "regression-compile-tmp/imp918s.imp"
18025 @ 153386:                        PUSH   IX
18026 @ 153389:                        PUSHI  #0x00000000
18027 @ 153394:                        ASSVAL
18028 @ 153395:                        LINE   2866 "regression-compile-tmp/imp918s.imp"
18029 @ 153433:                        PUSH   MODE
18030 @ 153436:                        PUSHI  #0x00000000
18031 @ 153441:                        ASSVAL
18032 @ 153442:                        LINE   2866 "regression-compile-tmp/imp918s.imp"
18033 @ 153480:                        PUSH   DP
18034 @ 153483:                        PUSHI  #0x00000000
18035 @ 153488:                        ASSVAL

  2867           %END;                         ! OF CHANGE MODE
18036 @ 153489:                        LINE   2867 "regression-compile-tmp/imp918s.imp"
18037 @ 153527:                     END    _lev0id0_CSS_CRNAME_CENAME_CHANGEMODE {lev=5 --> 4}

  2868           %ROUTINE COMBINE(%INTEGER HOW)
  2869  !***********************************************************************
  2870  !*       COMBINES IX&BS INTO ONE SAFE REGISTER - IF HOW=1 THEN DP IS   *
  2871  !*       INCLUDED ALSO. IF HOW=0 THEN DP IS LEFT ALONE                 *
  2872  !***********************************************************************
18038 @ 153528:                     LINE   2868 "regression-compile-tmp/imp918s.imp"
18039 @ 153566:                     DEF    COMBINE (_lev0id0_CSS_CRNAME_CENAME_COMBINE) p1=V_0212 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
18040 @ 153585:                        START  ( FORMAL PARAMETERS  {lev=5 --> 6, nested=0 --> 1}
18041 @ 153586:                           DEF    HOW p1=V_0219 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
18042 @ 153601:                        FINISH ) {lev=5}

  2873           %INTEGER REG
18043 @ 153602:                        LINE   2873 "regression-compile-tmp/imp918s.imp"
18044 @ 153640:                        DEF    REG p1=V_021a 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

  2874           %IF IX=0 %AND (HOW=0 %OR DP=0) %THEN %RETURN
18045 @ 153655:                        LINE   2874 "regression-compile-tmp/imp918s.imp"
18046 @ 153693:                        PUSH   IX
18047 @ 153696:                        PUSHI  #0x00000000
18048 @ 153701:                        JUMPIF # L_0004
18049 @ 153705:                        PUSH   HOW
18050 @ 153708:                        PUSHI  #0x00000000
18051 @ 153713:                        JUMPIF = L_0005
18052 @ 153717:                        PUSH   DP
18053 @ 153720:                        PUSHI  #0x00000000
18054 @ 153725:                        JUMPIF # L_0004
18055 @ 153729:                        LOCATE L_0005
18056 @ 153732:                        RETURN
18057 @ 153733:                        LOCATE L_0004

  2875           %IF 4<=BS<=14 %AND REGISTER(BS)>=0 %THEN REG=BS %ELSE %C
  2876           FIND REG(ADDREG,REG)
18058 @ 153736:                        LINE   2875 "regression-compile-tmp/imp918s.imp"
18059 @ 153774:                        PUSHI  #0x00000004
18060 @ 153779:                        PUSH   BS
18061 @ 153782:                        JUMPIFD > L_0004
18062 @ 153786:                        PUSHI  #0x0000000e
18063 @ 153791:                        JUMPIF > L_0004
18064 @ 153795:                        PUSH   REGISTER
18065 @ 153798:                        PUSH   BS
18066 @ 153801:                        ACCESS
18067 @ 153802:                        PUSHI  #0x00000000
18068 @ 153807:                        JUMPIF < L_0004
18069 @ 153811:                        PUSH   REG
18070 @ 153814:                        PUSH   BS
18071 @ 153817:                        ASSVAL
18072 @ 153818:                        GOTO   L_0003
18073 @ 153821:                        LOCATE L_0004
18074 @ 153824:                        PUSH   FINDREG
18075 @ 153827:                        PUSHI  #0xffff0e01
18076 @ 153832:                        ASSPAR
18077 @ 153833:                        PUSH   REG
18078 @ 153836:                        ASSPAR
18079 @ 153837:                        CALL  
18080 @ 153838:                        LOCATE L_0003

  2877           DUMP(X'41',REG,DP*HOW,IX,BS)
18081 @ 153841:                        LINE   2877 "regression-compile-tmp/imp918s.imp"
18082 @ 153879:                        PUSH   DUMP
18083 @ 153882:                        PUSHI  #0x00000041
18084 @ 153887:                        ASSPAR
18085 @ 153888:                        PUSH   REG
18086 @ 153891:                        ASSPAR
18087 @ 153892:                        PUSH   DP
18088 @ 153895:                        PUSH   HOW
18089 @ 153898:                        MUL   
18090 @ 153899:                        ASSPAR
18091 @ 153900:                        PUSH   IX
18092 @ 153903:                        ASSPAR
18093 @ 153904:                        PUSH   BS
18094 @ 153907:                        ASSPAR
18095 @ 153908:                        CALL  

  2878           %IF REGISTER(BS)=2 %THEN REGISTER(BS)=0
18096 @ 153909:                        LINE   2878 "regression-compile-tmp/imp918s.imp"
18097 @ 153947:                        PUSH   REGISTER
18098 @ 153950:                        PUSH   BS
18099 @ 153953:                        ACCESS
18100 @ 153954:                        PUSHI  #0x00000002
18101 @ 153959:                        JUMPIF # L_0004
18102 @ 153963:                        PUSH   REGISTER
18103 @ 153966:                        PUSH   BS
18104 @ 153969:                        ACCESS
18105 @ 153970:                        PUSHI  #0x00000000
18106 @ 153975:                        ASSVAL
18107 @ 153976:                        LOCATE L_0004

  2879           FORGET(REG); IX=0
18108 @ 153979:                        LINE   2879 "regression-compile-tmp/imp918s.imp"
18109 @ 154017:                        PUSH   FORGET
18110 @ 154020:                        PUSH   REG
18111 @ 154023:                        ASSPAR
18112 @ 154024:                        CALL  
18113 @ 154025:                        LINE   2879 "regression-compile-tmp/imp918s.imp"
18114 @ 154063:                        PUSH   IX
18115 @ 154066:                        PUSHI  #0x00000000
18116 @ 154071:                        ASSVAL

  2880           BS=REG;  REGISTER(BS)=2
18117 @ 154072:                        LINE   2880 "regression-compile-tmp/imp918s.imp"
18118 @ 154110:                        PUSH   BS
18119 @ 154113:                        PUSH   REG
18120 @ 154116:                        ASSVAL
18121 @ 154117:                        LINE   2880 "regression-compile-tmp/imp918s.imp"
18122 @ 154155:                        PUSH   REGISTER
18123 @ 154158:                        PUSH   BS
18124 @ 154161:                        ACCESS
18125 @ 154162:                        PUSHI  #0x00000002
18126 @ 154167:                        ASSVAL

  2881           %IF HOW=1 %THEN DP=0
18127 @ 154168:                        LINE   2881 "regression-compile-tmp/imp918s.imp"
18128 @ 154206:                        PUSH   HOW
18129 @ 154209:                        PUSHI  #0x00000001
18130 @ 154214:                        JUMPIF # L_0004
18131 @ 154218:                        PUSH   DP
18132 @ 154221:                        PUSHI  #0x00000000
18133 @ 154226:                        ASSVAL
18134 @ 154227:                        LOCATE L_0004

  2882           %END;                         ! OF ROUTINE COMBINE
18135 @ 154230:                        LINE   2882 "regression-compile-tmp/imp918s.imp"
18136 @ 154268:                     END    _lev0id0_CSS_CRNAME_CENAME_COMBINE {lev=5 --> 4}

  2883  Label99:      %END;                         ! OF ROUTINE CENAME
18137 @ 154269:                     LINE   2883 "regression-compile-tmp/imp918s.imp"
18138 @ 154307:                     LABEL  L_0218
18139 @ 154310:                     LINE   2883 "regression-compile-tmp/imp918s.imp"
18140 @ 154348:                  END    _lev0id0_CSS_CRNAME_CENAME {lev=4 --> 3}

  2884  Label99:      REGISTER(BASE)=0 %IF REGISTER(BASE)=2
18141 @ 154349:                  LINE   2884 "regression-compile-tmp/imp918s.imp"
18142 @ 154387:                  LABEL  L_020b
18143 @ 154390:                  LINE   2884 "regression-compile-tmp/imp918s.imp"
18144 @ 154428:                  PUSH   REGISTER
18145 @ 154431:                  PUSH   BASE
18146 @ 154434:                  ACCESS
18147 @ 154435:                  PUSHI  #0x00000002
18148 @ 154440:                  JUMPIF # L_0004
18149 @ 154444:                  PUSH   REGISTER
18150 @ 154447:                  PUSH   BASE
18151 @ 154450:                  ACCESS
18152 @ 154451:                  PUSHI  #0x00000000
18153 @ 154456:                  ASSVAL
18154 @ 154457:                  LOCATE L_0004

  2885           %END;                         ! OF ROUTINE CRNAME
18155 @ 154460:                  LINE   2885 "regression-compile-tmp/imp918s.imp"
18156 @ 154498:               END    _lev0id0_CSS_CRNAME {lev=3 --> 2}

  2886           %INTEGERFN     DISPLACEMENT(%INTEGER LINK)
  2887           {%SHORTROUTINE}
  2888  !***********************************************************************
  2889  !*         SEARCH A FORMAT LIST FOR A SUBNAME                          *
  2890  !*      A(P) HAS ENAME--LINK IS HEAD OF RFORMAT LIST. RESULT IS DISP   *
  2891  !*      FROM START OF RECORD                                           *
  2892  !***********************************************************************
18157 @ 154499:               LINE   2886 "regression-compile-tmp/imp918s.imp"
18158 @ 154537:               DEF    DISPLACEMENT (_lev0id0_CSS_DISPLACEMENT) p1=V_017c a/tf=18 b/format=1 c/ostate=10  type=1 (integer) form=8 (function) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=1 unass=0
18159 @ 154561:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
18160 @ 154562:                     DEF    LINK p1=V_01ff 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
18161 @ 154578:                  FINISH ) {lev=3}

  2893           %INTEGER RR,II,ENAME,CELL
18162 @ 154579:                  LINE   2893 "regression-compile-tmp/imp918s.imp"
18163 @ 154617:                  DEF    RR p1=V_0200 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
18164 @ 154631:                  DEF    II p1=V_0201 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
18165 @ 154645:                  DEF    ENAME p1=V_0202 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
18166 @ 154662:                  DEF    CELL p1=V_0203 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

  2894           ENAME=A(P); CELL=0
18167 @ 154678:                  LINE   2894 "regression-compile-tmp/imp918s.imp"
18168 @ 154716:                  PUSH   ENAME
18169 @ 154719:                  PUSH   A
18170 @ 154722:                  PUSH   P
18171 @ 154725:                  ACCESS
18172 @ 154726:                  ASSVAL
18173 @ 154727:                  LINE   2894 "regression-compile-tmp/imp918s.imp"
18174 @ 154765:                  PUSH   CELL
18175 @ 154768:                  PUSHI  #0x00000000
18176 @ 154773:                  ASSVAL

  2895           %IF LINK#0 %THEN %START;    ! CHK RECORDSPEC NOT OMITTED
18177 @ 154774:                  LINE   2895 "regression-compile-tmp/imp918s.imp"
18178 @ 154812:                  PUSH   LINK
18179 @ 154815:                  PUSHI  #0x00000000
18180 @ 154820:                  JUMPIF = L_0004

  2896              LINK=FROM3(LINK)&X'7FFF';   ! LINK TO SIDE CHAIN
18181 @ 154824:                  LINE   2896 "regression-compile-tmp/imp918s.imp"
18182 @ 154862:                  PUSH   LINK
18183 @ 154865:                  PUSH   FROM3
18184 @ 154868:                  PUSH   LINK
18185 @ 154871:                  ASSPAR
18186 @ 154872:                  CALL  
18187 @ 154873:                  PUSHI  #0x00007fff
18188 @ 154878:                  AND   
18189 @ 154879:                  ASSVAL

  2897              CELL=LINK; II=-1; ACC=-1
  2898  !            %WHILE LINK>0 %CYCLE
  2899  !               FROM123(LINK,RR,INTEGER(ADDR(SNDISP)),INTEGER(ADDR(K)))
  2900  !               TCELL=LINK
  2901  !               MLINK(LINK)
  2902  !               %IF RR>>20=ENAME %THEN %START;      ! RIGHT SUBNAME LOCATED
  2903  !                  J=RR&15; PTYPE=RR>>4&X'FFFF'
  2904  !                  %RESULT=K
  2905  !               %FINISH
  2906  !            %REPEAT
  2907  !%if USE MC = 1 %start
  2908  !            *L_0,ENAME; *L_1,LINK; *L_2,ASLIST
  2909  !AGN:        *LTR_1,1; *BC_12,<END>
  2910  !            *L_3,0(1,2); *SRL_3,20; *CR_3,0
  2911  !            *BC_8,<HIT>; *LH_1,14(1,2); *BC_15,<AGN>
  2912  !HIT:        *ST_1,TCELL
  2913  !         *A_1,ASLIST; *LM_2,4,0(1)
  2914  !         *ST_2,RR; *ST_3,SNDISP; *ST_4,K
  2915  !%finish
18190 @ 154880:                  LINE   2897 "regression-compile-tmp/imp918s.imp"
18191 @ 154918:                  PUSH   CELL
18192 @ 154921:                  PUSH   LINK
18193 @ 154924:                  ASSVAL
18194 @ 154925:                  LINE   2897 "regression-compile-tmp/imp918s.imp"
18195 @ 154963:                  PUSH   II
18196 @ 154966:                  PUSHI  #0x00000001
18197 @ 154971:                  NEGATE
18198 @ 154972:                  ASSVAL
18199 @ 154973:                  LINE   2897 "regression-compile-tmp/imp918s.imp"
18200 @ 155011:                  PUSH   ACC
18201 @ 155014:                  PUSHI  #0x00000001
18202 @ 155019:                  NEGATE
18203 @ 155020:                  ASSVAL

  2916              J=RR&15; PTYPE=RR>>4&X'FFFF'
18204 @ 155021:                  LINE   2916 "regression-compile-tmp/imp918s.imp"
18205 @ 155059:                  PUSH   J
18206 @ 155062:                  PUSH   RR
18207 @ 155065:                  PUSHI  #0x0000000f
18208 @ 155070:                  AND   
18209 @ 155071:                  ASSVAL
18210 @ 155072:                  LINE   2916 "regression-compile-tmp/imp918s.imp"
18211 @ 155110:                  PUSH   PTYPE
18212 @ 155113:                  PUSH   RR
18213 @ 155116:                  PUSHI  #0x00000004
18214 @ 155121:                  RSH   
18215 @ 155122:                  PUSHI  #0x0000ffff
18216 @ 155127:                  AND   
18217 @ 155128:                  ASSVAL

  2917              %RESULT=K
18218 @ 155129:                  LINE   2917 "regression-compile-tmp/imp918s.imp"
18219 @ 155167:                  PUSH   K
18220 @ 155170:                  RESULT

  2918  END:
18221 @ 155171:                  LINE   2918 "regression-compile-tmp/imp918s.imp"
18222 @ 155209:                  LABEL  L_0204

  2919           %FINISH
18223 @ 155212:                  LINE   2919 "regression-compile-tmp/imp918s.imp"
18224 @ 155250:                  LOCATE L_0004

  2920           FAULT(65,ENAME)
18225 @ 155253:                  LINE   2920 "regression-compile-tmp/imp918s.imp"
18226 @ 155291:                  PUSH   FAULT
18227 @ 155294:                  PUSHI  #0x00000041
18228 @ 155299:                  ASSPAR
18229 @ 155300:                  PUSH   ENAME
18230 @ 155303:                  ASSPAR
18231 @ 155304:                  CALL  

  2921           %IF CELL>0 %THEN %C
  2922           PUSH(SHORT INTEGER(ADDR(ASLIST(CELL+14))),ENAME<<20!7<<4,0)
18232 @ 155305:                  LINE   2921 "regression-compile-tmp/imp918s.imp"
18233 @ 155343:                  PUSH   CELL
18234 @ 155346:                  PUSHI  #0x00000000
18235 @ 155351:                  JUMPIF <= L_0004
18236 @ 155355:                  PUSH   PUSH
18237 @ 155358:                  PUSH   SHORTINTEGER
18238 @ 155361:                  PUSH   ADDR
18239 @ 155364:                  PUSH   ASLIST
18240 @ 155367:                  PUSH   CELL
18241 @ 155370:                  PUSHI  #0x0000000e
18242 @ 155375:                  ADD   
18243 @ 155376:                  ACCESS
18244 @ 155377:                  ASSPAR
18245 @ 155378:                  CALL  
18246 @ 155379:                  ASSPAR
18247 @ 155380:                  CALL  
18248 @ 155381:                  ASSPAR
18249 @ 155382:                  PUSH   ENAME
18250 @ 155385:                  PUSHI  #0x00000014
18251 @ 155390:                  LSH   
18252 @ 155391:                  PUSHI  #0x00000007
18253 @ 155396:                  PUSHI  #0x00000004
18254 @ 155401:                  LSH   
18255 @ 155402:                  OR    
18256 @ 155403:                  ASSPAR
18257 @ 155404:                  PUSHI  #0x00000000
18258 @ 155409:                  ASSPAR
18259 @ 155410:                  CALL  
18260 @ 155411:                  LOCATE L_0004

  2923           PTYPE=7; TCELL=0
18261 @ 155414:                  LINE   2923 "regression-compile-tmp/imp918s.imp"
18262 @ 155452:                  PUSH   PTYPE
18263 @ 155455:                  PUSHI  #0x00000007
18264 @ 155460:                  ASSVAL
18265 @ 155461:                  LINE   2923 "regression-compile-tmp/imp918s.imp"
18266 @ 155499:                  PUSH   TCELL
18267 @ 155502:                  PUSHI  #0x00000000
18268 @ 155507:                  ASSVAL

  2924           %RESULT=-1
18269 @ 155508:                  LINE   2924 "regression-compile-tmp/imp918s.imp"
18270 @ 155546:                  PUSHI  #0x00000001
18271 @ 155551:                  NEGATE
18272 @ 155552:                  RESULT

  2925           %END
18273 @ 155553:                  LINE   2925 "regression-compile-tmp/imp918s.imp"
18274 @ 155591:               END    _lev0id0_CSS_DISPLACEMENT {lev=3 --> 2}

  2926           %INTEGERFN     COPY RECORD TAG(%INTEGERNAME SUBS)
  2927           {%SHORTROUTINE}
  2928  !***********************************************************************
  2929  !*       PRODUCE PTYPE ETC FOR A COMPOUND NAME BY CHAINING DOWN ONE    *
  2930  !*       ONE OR MORE RECORD FORMAT LISTS. ON EXIT RESULT =0 IF NO      *
  2931  !*       SUBNAME FOUND OR SUBNAME IS OF TYPE RECORD WITH NO FURTHER    *
  2932  !*       SUBNAME ATTACHED. RESULT#0 IF BONE-FIDE SUBNAME LOCATED       *
  2933  !*       ON ENTRY KFORM HAS POINTER TO THE (FIRST ) FORMAT LIST AND    *
  2934  !*       P POINTS TO THE A.R. ENTRY FOR (FIRST) ENAME                  *
  2935  !***********************************************************************
18275 @ 155592:               LINE   2926 "regression-compile-tmp/imp918s.imp"
18276 @ 155630:               DEF    COPYRECORDTAG (_lev0id0_CSS_COPYRECORDTAG) p1=V_017a a/tf=18 b/format=1 c/ostate=10  type=1 (integer) form=8 (function) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=1 unass=0
18277 @ 155655:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
18278 @ 155656:                     DEF    SUBS p1=V_01ff a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
18279 @ 155672:                  FINISH ) {lev=3}

  2936           %INTEGER Q,FNAME
18280 @ 155673:                  LINE   2936 "regression-compile-tmp/imp918s.imp"
18281 @ 155711:                  DEF    Q p1=V_0200 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
18282 @ 155724:                  DEF    FNAME p1=V_0201 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

  2937           SUBS=0
18283 @ 155741:                  LINE   2937 "regression-compile-tmp/imp918s.imp"
18284 @ 155779:                  PUSH   SUBS
18285 @ 155782:                  PUSHI  #0x00000000
18286 @ 155787:                  ASSVAL

  2938           %CYCLE
18287 @ 155788:                  LINE   2938 "regression-compile-tmp/imp918s.imp"
18288 @ 155826:                  LOCATE L_0003

  2939              FNAME=KFORM
18289 @ 155829:                  LINE   2939 "regression-compile-tmp/imp918s.imp"
18290 @ 155867:                  PUSH   FNAME
18291 @ 155870:                  PUSH   KFORM
18292 @ 155873:                  ASSVAL

  2940              P=P+1; %IF A(P)=2 %THEN P=P+1 %ELSE SKIP APP
18293 @ 155874:                  LINE   2940 "regression-compile-tmp/imp918s.imp"
18294 @ 155912:                  PUSH   P
18295 @ 155915:                  PUSH   P
18296 @ 155918:                  PUSHI  #0x00000001
18297 @ 155923:                  ADD   
18298 @ 155924:                  ASSVAL
18299 @ 155925:                  LINE   2940 "regression-compile-tmp/imp918s.imp"
18300 @ 155963:                  PUSH   A
18301 @ 155966:                  PUSH   P
18302 @ 155969:                  ACCESS
18303 @ 155970:                  PUSHI  #0x00000002
18304 @ 155975:                  JUMPIF # L_0007
18305 @ 155979:                  PUSH   P
18306 @ 155982:                  PUSH   P
18307 @ 155985:                  PUSHI  #0x00000001
18308 @ 155990:                  ADD   
18309 @ 155991:                  ASSVAL
18310 @ 155992:                  GOTO   L_0006
18311 @ 155995:                  LOCATE L_0007
18312 @ 155998:                  PUSH   SKIPAPP
18313 @ 156001:                  CALL  
18314 @ 156002:                  LOCATE L_0006

  2941              %RESULT=0 %IF A(P)=2 %OR FNAME<=0;! NO (FURTHER) ENAME
18315 @ 156005:                  LINE   2941 "regression-compile-tmp/imp918s.imp"
18316 @ 156043:                  PUSH   A
18317 @ 156046:                  PUSH   P
18318 @ 156049:                  ACCESS
18319 @ 156050:                  PUSHI  #0x00000002
18320 @ 156055:                  JUMPIF = L_0008
18321 @ 156059:                  PUSH   FNAME
18322 @ 156062:                  PUSHI  #0x00000000
18323 @ 156067:                  JUMPIF > L_0007
18324 @ 156071:                  LOCATE L_0008
18325 @ 156074:                  PUSHI  #0x00000000
18326 @ 156079:                  RESULT
18327 @ 156080:                  LOCATE L_0007

  2942              SUBS=SUBS+1
18328 @ 156083:                  LINE   2942 "regression-compile-tmp/imp918s.imp"
18329 @ 156121:                  PUSH   SUBS
18330 @ 156124:                  PUSH   SUBS
18331 @ 156127:                  PUSHI  #0x00000001
18332 @ 156132:                  ADD   
18333 @ 156133:                  ASSVAL

  2943              P=P+1; Q=DISPLACEMENT (FNAME)
  2944             ! UNPACK
  2945  !%if USE MC = 1 %start
  2946  !            *L_1,PTYPE; *CVD_1,0(11)
  2947  !            *UNPK_ROUT(5),5(3,11)
  2948  !            *NC_ROUT(5),MASK1
  2949  !%finish
18334 @ 156134:                  LINE   2943 "regression-compile-tmp/imp918s.imp"
18335 @ 156172:                  PUSH   P
18336 @ 156175:                  PUSH   P
18337 @ 156178:                  PUSHI  #0x00000001
18338 @ 156183:                  ADD   
18339 @ 156184:                  ASSVAL
18340 @ 156185:                  LINE   2943 "regression-compile-tmp/imp918s.imp"
18341 @ 156223:                  PUSH   Q
18342 @ 156226:                  PUSH   DISPLACEMENT
18343 @ 156229:                  PUSH   FNAME
18344 @ 156232:                  ASSPAR
18345 @ 156233:                  CALL  
18346 @ 156234:                  ASSVAL

  2950           %REPEAT %UNTIL TYPE#3
18347 @ 156235:                  LINE   2950 "regression-compile-tmp/imp918s.imp"
18348 @ 156273:                  PUSH   TYPE
18349 @ 156276:                  PUSHI  #0x00000003
18350 @ 156281:                  JUMPIF # L_0004
18351 @ 156285:                  REPEAT L_0003
18352 @ 156288:                  LOCATE L_0004

  2951           %RESULT=Q+1;       ! GIVES 0 IF SUBNAME NOT KNOWN
18353 @ 156291:                  LINE   2951 "regression-compile-tmp/imp918s.imp"
18354 @ 156329:                  PUSH   Q
18355 @ 156332:                  PUSHI  #0x00000001
18356 @ 156337:                  ADD   
18357 @ 156338:                  RESULT

  2952           %END
18358 @ 156339:                  LINE   2952 "regression-compile-tmp/imp918s.imp"
18359 @ 156377:               END    _lev0id0_CSS_COPYRECORDTAG {lev=3 --> 2}

  2953           %ROUTINE STRINGOP(%INTEGER Z,L,BTO,DTO,BFRM,DFRM,BML,DML,XREG)
  2954  !***********************************************************************
  2955  !*       PERFORM ANY STRING OPERATION WHICH INVOLVES EXECUTING SS      *
  2956  !*       INSTRUCTIONS                                                  *
  2957  !*       Z=0 FOR CLC                                                   *
  2958  !*       Z=1 FOR STORE(=)                                              *
  2959  !*       Z=2 FOR CONCATENATE                                           *
  2960  !*       Z=4 FOR STORE(<-)                                             *
  2961  !*       Z=5 FOR LEXIOGRAPHIC STRING ORDERING                          *
  2962  !*       STRINGL>0 %IF LENGTH OF STRING KNOWN =0 NOT KNOWN             *
  2963  !*       BML & DML DEFINE POSITION OF MAX LENGTH BYTE                  *
  2964  !*       BML=0  DML=MAX LENGTH IF THIS KNOWN AT COMPILE TIME           *
  2965  !***********************************************************************
  2966           {%SHORTROUTINE}
18360 @ 156378:               LINE   2953 "regression-compile-tmp/imp918s.imp"
18361 @ 156416:               DEF    STRINGOP (_lev0id0_CSS_STRINGOP) p1=V_0168 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
18362 @ 156436:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
18363 @ 156437:                     DEF    Z p1=V_01ff 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
18364 @ 156450:                     DEF    L p1=V_0200 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
18365 @ 156463:                     DEF    BTO p1=V_0201 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
18366 @ 156478:                     DEF    DTO p1=V_0202 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
18367 @ 156493:                     DEF    BFRM p1=V_0203 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
18368 @ 156509:                     DEF    DFRM p1=V_0204 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
18369 @ 156525:                     DEF    BML p1=V_0205 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
18370 @ 156540:                     DEF    DML p1=V_0206 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
18371 @ 156555:                     DEF    XREG p1=V_0207 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
18372 @ 156571:                  FINISH ) {lev=3}

  2967           %INTEGER RSTATE1,RSTATE2,RSTATE3,W,FIXL,CCREG,SCA
18373 @ 156572:                  LINE   2967 "regression-compile-tmp/imp918s.imp"
18374 @ 156610:                  DEF    RSTATE1 p1=V_0208 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
18375 @ 156629:                  DEF    RSTATE2 p1=V_0209 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
18376 @ 156648:                  DEF    RSTATE3 p1=V_020a 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
18377 @ 156667:                  DEF    W p1=V_020b 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
18378 @ 156680:                  DEF    FIXL p1=V_020c 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
18379 @ 156696:                  DEF    CCREG p1=V_020d 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
18380 @ 156713:                  DEF    SCA p1=V_020e 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

  2968           %IF Z=4 %AND BML<=0 %AND DML=255 %THEN Z=1
18381 @ 156728:                  LINE   2968 "regression-compile-tmp/imp918s.imp"
18382 @ 156766:                  PUSH   Z
18383 @ 156769:                  PUSHI  #0x00000004
18384 @ 156774:                  JUMPIF # L_0004
18385 @ 156778:                  PUSH   BML
18386 @ 156781:                  PUSHI  #0x00000000
18387 @ 156786:                  JUMPIF > L_0004
18388 @ 156790:                  PUSH   DML
18389 @ 156793:                  PUSHI  #0x000000ff
18390 @ 156798:                  JUMPIF # L_0004
18391 @ 156802:                  PUSH   Z
18392 @ 156805:                  PUSHI  #0x00000001
18393 @ 156810:                  ASSVAL
18394 @ 156811:                  LOCATE L_0004

  2969           RSTATE1=REGISTER(BTO); REGISTER(BTO)=1
18395 @ 156814:                  LINE   2969 "regression-compile-tmp/imp918s.imp"
18396 @ 156852:                  PUSH   RSTATE1
18397 @ 156855:                  PUSH   REGISTER
18398 @ 156858:                  PUSH   BTO
18399 @ 156861:                  ACCESS
18400 @ 156862:                  ASSVAL
18401 @ 156863:                  LINE   2969 "regression-compile-tmp/imp918s.imp"
18402 @ 156901:                  PUSH   REGISTER
18403 @ 156904:                  PUSH   BTO
18404 @ 156907:                  ACCESS
18405 @ 156908:                  PUSHI  #0x00000001
18406 @ 156913:                  ASSVAL

  2970           RSTATE2=REGISTER(BFRM); REGISTER(BFRM)=1
18407 @ 156914:                  LINE   2970 "regression-compile-tmp/imp918s.imp"
18408 @ 156952:                  PUSH   RSTATE2
18409 @ 156955:                  PUSH   REGISTER
18410 @ 156958:                  PUSH   BFRM
18411 @ 156961:                  ACCESS
18412 @ 156962:                  ASSVAL
18413 @ 156963:                  LINE   2970 "regression-compile-tmp/imp918s.imp"
18414 @ 157001:                  PUSH   REGISTER
18415 @ 157004:                  PUSH   BFRM
18416 @ 157007:                  ACCESS
18417 @ 157008:                  PUSHI  #0x00000001
18418 @ 157013:                  ASSVAL

  2971           %IF BML>0 %THEN RSTATE3=REGISTER(BML) %AND REGISTER(BML)=1
18419 @ 157014:                  LINE   2971 "regression-compile-tmp/imp918s.imp"
18420 @ 157052:                  PUSH   BML
18421 @ 157055:                  PUSHI  #0x00000000
18422 @ 157060:                  JUMPIF <= L_0004
18423 @ 157064:                  PUSH   RSTATE3
18424 @ 157067:                  PUSH   REGISTER
18425 @ 157070:                  PUSH   BML
18426 @ 157073:                  ACCESS
18427 @ 157074:                  ASSVAL
18428 @ 157075:                  PUSH   REGISTER
18429 @ 157078:                  PUSH   BML
18430 @ 157081:                  ACCESS
18431 @ 157082:                  PUSHI  #0x00000001
18432 @ 157087:                  ASSVAL
18433 @ 157088:                  LOCATE L_0004

  2972           BML=0 %IF BML<0
18434 @ 157091:                  LINE   2972 "regression-compile-tmp/imp918s.imp"
18435 @ 157129:                  PUSH   BML
18436 @ 157132:                  PUSHI  #0x00000000
18437 @ 157137:                  JUMPIF >= L_0004
18438 @ 157141:                  PUSH   BML
18439 @ 157144:                  PUSHI  #0x00000000
18440 @ 157149:                  ASSVAL
18441 @ 157150:                  LOCATE L_0004

  2973           PLABEL=PLABEL-1
18442 @ 157153:                  LINE   2973 "regression-compile-tmp/imp918s.imp"
18443 @ 157191:                  PUSH   PLABEL
18444 @ 157194:                  PUSH   PLABEL
18445 @ 157197:                  PUSHI  #0x00000001
18446 @ 157202:                  SUB   
18447 @ 157203:                  ASSVAL

  2974           %IF Z=5 %THEN %START;        ! LEXIOGRAPHIC ORDERING
  2975  !
  2976  ! THE CAREFULLY OPTIMISED BUT OBSCURE CODE PLANTED IS:-
  2977  !       SR XREG,XREG. IC XREG, D2(B2)
  2978  ! (OR   LA XREG,STRLENGTH2           WHEN 2ND OPERAND LENGTH KNOWN)
  2979  !       CLC D1(1,B1),D2(B2)          COMPARE THE LENGTHS
  2980  !       BALR CCREG,0                 SAVE CC FOR LATER & SET BASEREG
  2981  !       BNH L3                       SHORTEST LENGTH IN XREG
  2982  !LEX    CLC D1+1(1,B1),D2+1(B1)      FOR EXECUTING BUT QUICKER TO
  2983  !                                    OBEY THIS LINE THAN JUMP ROUND IT
  2984  !       IC XREG,D1(B1)               SHORTEST LENGTH TO XREG
  2985  !L3     LTR  XREG,XREG
  2986  !       BZ    L4
  2987  !       BCTR XREG,0                   XREG = LEASTCHARS-1
  2988  !       EX   XREG,LEX
  2989  !       BC   7,LEND
  2990  !L4     SPM CCREG                     RESTORE SAVED CONDITION COD
  2991  !LEND   EQU   *
  2992  !
18448 @ 157204:                  LINE   2974 "regression-compile-tmp/imp918s.imp"
18449 @ 157242:                  PUSH   Z
18450 @ 157245:                  PUSHI  #0x00000005
18451 @ 157250:                  JUMPIF # L_0004

  2993              %IF XREG<=0 %THEN CLAIM(GR1,XREG)
18452 @ 157254:                  LINE   2993 "regression-compile-tmp/imp918s.imp"
18453 @ 157292:                  PUSH   XREG
18454 @ 157295:                  PUSHI  #0x00000000
18455 @ 157300:                  JUMPIF > L_0007
18456 @ 157304:                  PUSH   CLAIM
18457 @ 157307:                  PUSHI  #0x0001010f
18458 @ 157312:                  ASSPAR
18459 @ 157313:                  PUSH   XREG
18460 @ 157316:                  ASSPAR
18461 @ 157317:                  CALL  
18462 @ 157318:                  LOCATE L_0007

  2994              CLAIM(GR1,CCREG)
18463 @ 157321:                  LINE   2994 "regression-compile-tmp/imp918s.imp"
18464 @ 157359:                  PUSH   CLAIM
18465 @ 157362:                  PUSHI  #0x0001010f
18466 @ 157367:                  ASSPAR
18467 @ 157368:                  PUSH   CCREG
18468 @ 157371:                  ASSPAR
18469 @ 157372:                  CALL  

  2995              %IF L<=0 %THEN DUMP(4,XREG,DTO,0,BTO) %ELSE %C
  2996                             DUMP(0,XREG,L,0,0)
18470 @ 157373:                  LINE   2995 "regression-compile-tmp/imp918s.imp"
18471 @ 157411:                  PUSH   L
18472 @ 157414:                  PUSHI  #0x00000000
18473 @ 157419:                  JUMPIF > L_0007
18474 @ 157423:                  PUSH   DUMP
18475 @ 157426:                  PUSHI  #0x00000004
18476 @ 157431:                  ASSPAR
18477 @ 157432:                  PUSH   XREG
18478 @ 157435:                  ASSPAR
18479 @ 157436:                  PUSH   DTO
18480 @ 157439:                  ASSPAR
18481 @ 157440:                  PUSHI  #0x00000000
18482 @ 157445:                  ASSPAR
18483 @ 157446:                  PUSH   BTO
18484 @ 157449:                  ASSPAR
18485 @ 157450:                  CALL  
18486 @ 157451:                  GOTO   L_0006
18487 @ 157454:                  LOCATE L_0007
18488 @ 157457:                  PUSH   DUMP
18489 @ 157460:                  PUSHI  #0x00000000
18490 @ 157465:                  ASSPAR
18491 @ 157466:                  PUSH   XREG
18492 @ 157469:                  ASSPAR
18493 @ 157470:                  PUSH   L
18494 @ 157473:                  ASSPAR
18495 @ 157474:                  PUSHI  #0x00000000
18496 @ 157479:                  ASSPAR
18497 @ 157480:                  PUSHI  #0x00000000
18498 @ 157485:                  ASSPAR
18499 @ 157486:                  CALL  
18500 @ 157487:                  LOCATE L_0006

  2997              SET USE(XREG,2,-2);       ! REMEMBER TO 24 BITS ZERO
18501 @ 157490:                  LINE   2997 "regression-compile-tmp/imp918s.imp"
18502 @ 157528:                  PUSH   SETUSE
18503 @ 157531:                  PUSH   XREG
18504 @ 157534:                  ASSPAR
18505 @ 157535:                  PUSHI  #0x00000002
18506 @ 157540:                  ASSPAR
18507 @ 157541:                  PUSHI  #0x00000002
18508 @ 157546:                  NEGATE
18509 @ 157547:                  ASSPAR
18510 @ 157548:                  CALL  

  2998              DUMPSS(X'D5',1,BFRM,DFRM,BTO,DTO); ! CLC LENGTHS
18511 @ 157549:                  LINE   2998 "regression-compile-tmp/imp918s.imp"
18512 @ 157587:                  PUSH   DUMPSS
18513 @ 157590:                  PUSHI  #0x000000d5
18514 @ 157595:                  ASSPAR
18515 @ 157596:                  PUSHI  #0x00000001
18516 @ 157601:                  ASSPAR
18517 @ 157602:                  PUSH   BFRM
18518 @ 157605:                  ASSPAR
18519 @ 157606:                  PUSH   DFRM
18520 @ 157609:                  ASSPAR
18521 @ 157610:                  PUSH   BTO
18522 @ 157613:                  ASSPAR
18523 @ 157614:                  PUSH   DTO
18524 @ 157617:                  ASSPAR
18525 @ 157618:                  CALL  

  2999              PRR(5,CCREG,0)
18526 @ 157619:                  LINE   2999 "regression-compile-tmp/imp918s.imp"
18527 @ 157657:                  PUSH   PRR
18528 @ 157660:                  PUSHI  #0x00000005
18529 @ 157665:                  ASSPAR
18530 @ 157666:                  PUSH   CCREG
18531 @ 157669:                  ASSPAR
18532 @ 157670:                  PUSHI  #0x00000000
18533 @ 157675:                  ASSPAR
18534 @ 157676:                  CALL  

  3000              %IF CA-CODEBASE>4095-MARGIN %THEN SETUSE(CCREG,12,CA) %C
  3001                                          %ELSE FORGET(CCREG)
18535 @ 157677:                  LINE   3000 "regression-compile-tmp/imp918s.imp"
18536 @ 157715:                  PUSH   CA
18537 @ 157718:                  PUSH   CODEBASE
18538 @ 157721:                  SUB   
18539 @ 157722:                  PUSHI  #0x00000fff
18540 @ 157727:                  PUSH   MARGIN
18541 @ 157730:                  SUB   
18542 @ 157731:                  JUMPIF <= L_0007
18543 @ 157735:                  PUSH   SETUSE
18544 @ 157738:                  PUSH   CCREG
18545 @ 157741:                  ASSPAR
18546 @ 157742:                  PUSHI  #0x0000000c
18547 @ 157747:                  ASSPAR
18548 @ 157748:                  PUSH   CA
18549 @ 157751:                  ASSPAR
18550 @ 157752:                  CALL  
18551 @ 157753:                  GOTO   L_0006
18552 @ 157756:                  LOCATE L_0007
18553 @ 157759:                  PUSH   FORGET
18554 @ 157762:                  PUSH   CCREG
18555 @ 157765:                  ASSPAR
18556 @ 157766:                  CALL  
18557 @ 157767:                  LOCATE L_0006

  3002              SCA=CA
18558 @ 157770:                  LINE   3002 "regression-compile-tmp/imp918s.imp"
18559 @ 157808:                  PUSH   SCA
18560 @ 157811:                  PUSH   CA
18561 @ 157814:                  ASSVAL

  3003              PRX(X'47',11,CCREG,0,0)
18562 @ 157815:                  LINE   3003 "regression-compile-tmp/imp918s.imp"
18563 @ 157853:                  PUSH   PRX
18564 @ 157856:                  PUSHI  #0x00000047
18565 @ 157861:                  ASSPAR
18566 @ 157862:                  PUSHI  #0x0000000b
18567 @ 157867:                  ASSPAR
18568 @ 157868:                  PUSH   CCREG
18569 @ 157871:                  ASSPAR
18570 @ 157872:                  PUSHI  #0x00000000
18571 @ 157877:                  ASSPAR
18572 @ 157878:                  PUSHI  #0x00000000
18573 @ 157883:                  ASSPAR
18574 @ 157884:                  CALL  

  3004              DUMPSS(X'D5',1,BFRM,DFRM+1,BTO,DTO+1)
18575 @ 157885:                  LINE   3004 "regression-compile-tmp/imp918s.imp"
18576 @ 157923:                  PUSH   DUMPSS
18577 @ 157926:                  PUSHI  #0x000000d5
18578 @ 157931:                  ASSPAR
18579 @ 157932:                  PUSHI  #0x00000001
18580 @ 157937:                  ASSPAR
18581 @ 157938:                  PUSH   BFRM
18582 @ 157941:                  ASSPAR
18583 @ 157942:                  PUSH   DFRM
18584 @ 157945:                  PUSHI  #0x00000001
18585 @ 157950:                  ADD   
18586 @ 157951:                  ASSPAR
18587 @ 157952:                  PUSH   BTO
18588 @ 157955:                  ASSPAR
18589 @ 157956:                  PUSH   DTO
18590 @ 157959:                  PUSHI  #0x00000001
18591 @ 157964:                  ADD   
18592 @ 157965:                  ASSPAR
18593 @ 157966:                  CALL  

  3005              PRX(X'43',XREG,BFRM,0,DFRM)
18594 @ 157967:                  LINE   3005 "regression-compile-tmp/imp918s.imp"
18595 @ 158005:                  PUSH   PRX
18596 @ 158008:                  PUSHI  #0x00000043
18597 @ 158013:                  ASSPAR
18598 @ 158014:                  PUSH   XREG
18599 @ 158017:                  ASSPAR
18600 @ 158018:                  PUSH   BFRM
18601 @ 158021:                  ASSPAR
18602 @ 158022:                  PUSHI  #0x00000000
18603 @ 158027:                  ASSPAR
18604 @ 158028:                  PUSH   DFRM
18605 @ 158031:                  ASSPAR
18606 @ 158032:                  CALL  

  3006              PLUG(1,SCA+2,CA-SCA);       ! FILL JUMP
18607 @ 158033:                  LINE   3006 "regression-compile-tmp/imp918s.imp"
18608 @ 158071:                  PUSH   PLUG
18609 @ 158074:                  PUSHI  #0x00000001
18610 @ 158079:                  ASSPAR
18611 @ 158080:                  PUSH   SCA
18612 @ 158083:                  PUSHI  #0x00000002
18613 @ 158088:                  ADD   
18614 @ 158089:                  ASSPAR
18615 @ 158090:                  PUSH   CA
18616 @ 158093:                  PUSH   SCA
18617 @ 158096:                  SUB   
18618 @ 158097:                  ASSPAR
18619 @ 158098:                  CALL  

  3007              PRR(X'12',XREG,XREG)
18620 @ 158099:                  LINE   3007 "regression-compile-tmp/imp918s.imp"
18621 @ 158137:                  PUSH   PRR
18622 @ 158140:                  PUSHI  #0x00000012
18623 @ 158145:                  ASSPAR
18624 @ 158146:                  PUSH   XREG
18625 @ 158149:                  ASSPAR
18626 @ 158150:                  PUSH   XREG
18627 @ 158153:                  ASSPAR
18628 @ 158154:                  CALL  

  3008              PRX(X'47',8,CCREG,0,CA+14-SCA)
18629 @ 158155:                  LINE   3008 "regression-compile-tmp/imp918s.imp"
18630 @ 158193:                  PUSH   PRX
18631 @ 158196:                  PUSHI  #0x00000047
18632 @ 158201:                  ASSPAR
18633 @ 158202:                  PUSHI  #0x00000008
18634 @ 158207:                  ASSPAR
18635 @ 158208:                  PUSH   CCREG
18636 @ 158211:                  ASSPAR
18637 @ 158212:                  PUSHI  #0x00000000
18638 @ 158217:                  ASSPAR
18639 @ 158218:                  PUSH   CA
18640 @ 158221:                  PUSHI  #0x0000000e
18641 @ 158226:                  ADD   
18642 @ 158227:                  PUSH   SCA
18643 @ 158230:                  SUB   
18644 @ 158231:                  ASSPAR
18645 @ 158232:                  CALL  

  3009              PRR(6,XREG,0)
18646 @ 158233:                  LINE   3009 "regression-compile-tmp/imp918s.imp"
18647 @ 158271:                  PUSH   PRR
18648 @ 158274:                  PUSHI  #0x00000006
18649 @ 158279:                  ASSPAR
18650 @ 158280:                  PUSH   XREG
18651 @ 158283:                  ASSPAR
18652 @ 158284:                  PUSHI  #0x00000000
18653 @ 158289:                  ASSPAR
18654 @ 158290:                  CALL  

  3010              PRX(X'44',XREG,CCREG,0,CA-18-SCA)
18655 @ 158291:                  LINE   3010 "regression-compile-tmp/imp918s.imp"
18656 @ 158329:                  PUSH   PRX
18657 @ 158332:                  PUSHI  #0x00000044
18658 @ 158337:                  ASSPAR
18659 @ 158338:                  PUSH   XREG
18660 @ 158341:                  ASSPAR
18661 @ 158342:                  PUSH   CCREG
18662 @ 158345:                  ASSPAR
18663 @ 158346:                  PUSHI  #0x00000000
18664 @ 158351:                  ASSPAR
18665 @ 158352:                  PUSH   CA
18666 @ 158355:                  PUSHI  #0x00000012
18667 @ 158360:                  SUB   
18668 @ 158361:                  PUSH   SCA
18669 @ 158364:                  SUB   
18670 @ 158365:                  ASSPAR
18671 @ 158366:                  CALL  

  3011              PRX(X'47',7,CCREG,0,CA-SCA+6)
18672 @ 158367:                  LINE   3011 "regression-compile-tmp/imp918s.imp"
18673 @ 158405:                  PUSH   PRX
18674 @ 158408:                  PUSHI  #0x00000047
18675 @ 158413:                  ASSPAR
18676 @ 158414:                  PUSHI  #0x00000007
18677 @ 158419:                  ASSPAR
18678 @ 158420:                  PUSH   CCREG
18679 @ 158423:                  ASSPAR
18680 @ 158424:                  PUSHI  #0x00000000
18681 @ 158429:                  ASSPAR
18682 @ 158430:                  PUSH   CA
18683 @ 158433:                  PUSH   SCA
18684 @ 158436:                  SUB   
18685 @ 158437:                  PUSHI  #0x00000006
18686 @ 158442:                  ADD   
18687 @ 158443:                  ASSPAR
18688 @ 158444:                  CALL  

  3012              PRR(4,CCREG,0);         ! SPM CCREG
18689 @ 158445:                  LINE   3012 "regression-compile-tmp/imp918s.imp"
18690 @ 158483:                  PUSH   PRR
18691 @ 158486:                  PUSHI  #0x00000004
18692 @ 158491:                  ASSPAR
18693 @ 158492:                  PUSH   CCREG
18694 @ 158495:                  ASSPAR
18695 @ 158496:                  PUSHI  #0x00000000
18696 @ 158501:                  ASSPAR
18697 @ 158502:                  CALL  

  3013              REGISTER(CCREG)=0
18698 @ 158503:                  LINE   3013 "regression-compile-tmp/imp918s.imp"
18699 @ 158541:                  PUSH   REGISTER
18700 @ 158544:                  PUSH   CCREG
18701 @ 158547:                  ACCESS
18702 @ 158548:                  PUSHI  #0x00000000
18703 @ 158553:                  ASSVAL

  3014           %FINISH %ELSE %START
18704 @ 158554:                  LINE   3014 "regression-compile-tmp/imp918s.imp"
18705 @ 158592:                  GOTO   L_0003
18706 @ 158595:                  LOCATE L_0004

  3015              %IF Z=4 %THEN %START;         ! JAM TRANSFER NEEDS LMAX
18707 @ 158598:                  LINE   3015 "regression-compile-tmp/imp918s.imp"
18708 @ 158636:                  PUSH   Z
18709 @ 158639:                  PUSHI  #0x00000004
18710 @ 158644:                  JUMPIF # L_0007

  3016                 %IF BML=0 %THEN W=X'41' %ELSE W=X'43'
18711 @ 158648:                  LINE   3016 "regression-compile-tmp/imp918s.imp"
18712 @ 158686:                  PUSH   BML
18713 @ 158689:                  PUSHI  #0x00000000
18714 @ 158694:                  JUMPIF # L_000a
18715 @ 158698:                  PUSH   W
18716 @ 158701:                  PUSHI  #0x00000041
18717 @ 158706:                  ASSVAL
18718 @ 158707:                  GOTO   L_0009
18719 @ 158710:                  LOCATE L_000a
18720 @ 158713:                  PUSH   W
18721 @ 158716:                  PUSHI  #0x00000043
18722 @ 158721:                  ASSVAL
18723 @ 158722:                  LOCATE L_0009

  3017                 DUMP(W,XREG,DML,0,BML);    ! IC %OR LA TO GET LMAX TO XREG
18724 @ 158725:                  LINE   3017 "regression-compile-tmp/imp918s.imp"
18725 @ 158763:                  PUSH   DUMP
18726 @ 158766:                  PUSH   W
18727 @ 158769:                  ASSPAR
18728 @ 158770:                  PUSH   XREG
18729 @ 158773:                  ASSPAR
18730 @ 158774:                  PUSH   DML
18731 @ 158777:                  ASSPAR
18732 @ 158778:                  PUSHI  #0x00000000
18733 @ 158783:                  ASSPAR
18734 @ 158784:                  PUSH   BML
18735 @ 158787:                  ASSPAR
18736 @ 158788:                  CALL  

  3018                 XREG=NEST; REGISTER(XREG)=1;! CLAIM REGISTER FOR LMAX
18737 @ 158789:                  LINE   3018 "regression-compile-tmp/imp918s.imp"
18738 @ 158827:                  PUSH   XREG
18739 @ 158830:                  PUSH   NEST
18740 @ 158833:                  ASSVAL
18741 @ 158834:                  LINE   3018 "regression-compile-tmp/imp918s.imp"
18742 @ 158872:                  PUSH   REGISTER
18743 @ 158875:                  PUSH   XREG
18744 @ 158878:                  ACCESS
18745 @ 158879:                  PUSHI  #0x00000001
18746 @ 158884:                  ASSVAL

  3019                 SET USE(XREG,2,-2)
18747 @ 158885:                  LINE   3019 "regression-compile-tmp/imp918s.imp"
18748 @ 158923:                  PUSH   SETUSE
18749 @ 158926:                  PUSH   XREG
18750 @ 158929:                  ASSPAR
18751 @ 158930:                  PUSHI  #0x00000002
18752 @ 158935:                  ASSPAR
18753 @ 158936:                  PUSHI  #0x00000002
18754 @ 158941:                  NEGATE
18755 @ 158942:                  ASSPAR
18756 @ 158943:                  CALL  

  3020              %FINISH
  3021  !
  3022  ! FOR JAM TRANSFER OR ASSIGN WITH CHECKS A LENGTH COMPARISION IS NEEDED
  3023  ! THIS CAN BE AVOIDED IF RESULT IS KNOWN AT COMPILE TIME
  3024  !
18757 @ 158944:                  LINE   3020 "regression-compile-tmp/imp918s.imp"
18758 @ 158982:                  LOCATE L_0007

  3025              %IF (Z=4 %OR Z=1=CHECKS)%AND(BML#0 %OR L<=0 %OR L>DML)%START
18759 @ 158985:                  LINE   3025 "regression-compile-tmp/imp918s.imp"
18760 @ 159023:                  PUSH   Z
18761 @ 159026:                  PUSHI  #0x00000004
18762 @ 159031:                  JUMPIF = L_0008
18763 @ 159035:                  PUSH   Z
18764 @ 159038:                  PUSHI  #0x00000001
18765 @ 159043:                  JUMPIFD # L_0007
18766 @ 159047:                  PUSH   CHECKS
18767 @ 159050:                  JUMPIF # L_0007
18768 @ 159054:                  LOCATE L_0008
18769 @ 159057:                  PUSH   BML
18770 @ 159060:                  PUSHI  #0x00000000
18771 @ 159065:                  JUMPIF # L_0008
18772 @ 159069:                  PUSH   L
18773 @ 159072:                  PUSHI  #0x00000000
18774 @ 159077:                  JUMPIF <= L_0008
18775 @ 159081:                  PUSH   L
18776 @ 159084:                  PUSH   DML
18777 @ 159087:                  JUMPIF <= L_0007
18778 @ 159091:                  LOCATE L_0008

  3026                 %IF BML#0 %THEN %START;           ! MAX LENGTH NOT KNOWN
18779 @ 159094:                  LINE   3026 "regression-compile-tmp/imp918s.imp"
18780 @ 159132:                  PUSH   BML
18781 @ 159135:                  PUSHI  #0x00000000
18782 @ 159140:                  JUMPIF = L_000a

  3027                    DUMPSS(X'D5',1,BFRM,DFRM,BML,DML);! CLC (LENGTHS)
18783 @ 159144:                  LINE   3027 "regression-compile-tmp/imp918s.imp"
18784 @ 159182:                  PUSH   DUMPSS
18785 @ 159185:                  PUSHI  #0x000000d5
18786 @ 159190:                  ASSPAR
18787 @ 159191:                  PUSHI  #0x00000001
18788 @ 159196:                  ASSPAR
18789 @ 159197:                  PUSH   BFRM
18790 @ 159200:                  ASSPAR
18791 @ 159201:                  PUSH   DFRM
18792 @ 159204:                  ASSPAR
18793 @ 159205:                  PUSH   BML
18794 @ 159208:                  ASSPAR
18795 @ 159209:                  PUSH   DML
18796 @ 159212:                  ASSPAR
18797 @ 159213:                  CALL  

  3028                 %FINISH %ELSE PSI(X'95',DML,BFRM,DFRM)
18798 @ 159214:                  LINE   3028 "regression-compile-tmp/imp918s.imp"
18799 @ 159252:                  GOTO   L_0009
18800 @ 159255:                  LOCATE L_000a
18801 @ 159258:                  PUSH   PSI
18802 @ 159261:                  PUSHI  #0x00000095
18803 @ 159266:                  ASSPAR
18804 @ 159267:                  PUSH   DML
18805 @ 159270:                  ASSPAR
18806 @ 159271:                  PUSH   BFRM
18807 @ 159274:                  ASSPAR
18808 @ 159275:                  PUSH   DFRM
18809 @ 159278:                  ASSPAR
18810 @ 159279:                  CALL  
18811 @ 159280:                  LOCATE L_0009

  3029                 %IF Z=4 %THEN ENTER JUMP(10,PLABEL,B'11') %ELSE %C
  3030                 PRX(X'47',2,0,CODER,88);      ! BH CAP. EXCEEDED
18812 @ 159283:                  LINE   3029 "regression-compile-tmp/imp918s.imp"
18813 @ 159321:                  PUSH   Z
18814 @ 159324:                  PUSHI  #0x00000004
18815 @ 159329:                  JUMPIF # L_000a
18816 @ 159333:                  PUSH   ENTERJUMP
18817 @ 159336:                  PUSHI  #0x0000000a
18818 @ 159341:                  ASSPAR
18819 @ 159342:                  PUSH   PLABEL
18820 @ 159345:                  ASSPAR
18821 @ 159346:                  PUSHI  #0x00000003
18822 @ 159351:                  ASSPAR
18823 @ 159352:                  CALL  
18824 @ 159353:                  GOTO   L_0009
18825 @ 159356:                  LOCATE L_000a
18826 @ 159359:                  PUSH   PRX
18827 @ 159362:                  PUSHI  #0x00000047
18828 @ 159367:                  ASSPAR
18829 @ 159368:                  PUSHI  #0x00000002
18830 @ 159373:                  ASSPAR
18831 @ 159374:                  PUSHI  #0x00000000
18832 @ 159379:                  ASSPAR
18833 @ 159380:                  PUSHI  #0x0000000c
18834 @ 159385:                  ASSPAR
18835 @ 159386:                  PUSHI  #0x00000058
18836 @ 159391:                  ASSPAR
18837 @ 159392:                  CALL  
18838 @ 159393:                  LOCATE L_0009

  3031              %FINISH
  3032  !
18839 @ 159396:                  LINE   3031 "regression-compile-tmp/imp918s.imp"
18840 @ 159434:                  LOCATE L_0007

  3033              %IF Z=0 %THEN W=X'D5' %ELSE W=X'D2'
  3034  !
  3035  ! LENGTHS UP TO 15 IT IS QUICKER TO MOVE XTRA CHARS.
  3036  !
18841 @ 159437:                  LINE   3033 "regression-compile-tmp/imp918s.imp"
18842 @ 159475:                  PUSH   Z
18843 @ 159478:                  PUSHI  #0x00000000
18844 @ 159483:                  JUMPIF # L_0007
18845 @ 159487:                  PUSH   W
18846 @ 159490:                  PUSHI  #0x000000d5
18847 @ 159495:                  ASSVAL
18848 @ 159496:                  GOTO   L_0006
18849 @ 159499:                  LOCATE L_0007
18850 @ 159502:                  PUSH   W
18851 @ 159505:                  PUSHI  #0x000000d2
18852 @ 159510:                  ASSVAL
18853 @ 159511:                  LOCATE L_0006

  3037              %IF Z=1 %AND BML=0 %AND DML<=15 %AND L<=0 %THEN L=DML
  3038  !
  3039  ! IF THE LENGTH IS KNOWN AT COMPILE TIME THEN CODE CAN BE PLANTED TO
  3040  ! PERFORM THE OPERATION. IF LENGTH NOT KNOWN UNTIL RUN TIME THEN AN
  3041  ! INSTRUCTION WITH ZERO LENGTH HAS TO BE SET AND CODE PLANTED
  3042  ! TO EXECUTE THE INSTRUCTION AT RUN TIME. EXECUTE ORS THE LENGTH INTO
  3043  ! THE INSTRUCTION BEFORE OBEYING IT.
  3044  !
18854 @ 159514:                  LINE   3037 "regression-compile-tmp/imp918s.imp"
18855 @ 159552:                  PUSH   Z
18856 @ 159555:                  PUSHI  #0x00000001
18857 @ 159560:                  JUMPIF # L_0007
18858 @ 159564:                  PUSH   BML
18859 @ 159567:                  PUSHI  #0x00000000
18860 @ 159572:                  JUMPIF # L_0007
18861 @ 159576:                  PUSH   DML
18862 @ 159579:                  PUSHI  #0x0000000f
18863 @ 159584:                  JUMPIF > L_0007
18864 @ 159588:                  PUSH   L
18865 @ 159591:                  PUSHI  #0x00000000
18866 @ 159596:                  JUMPIF > L_0007
18867 @ 159600:                  PUSH   L
18868 @ 159603:                  PUSH   DML
18869 @ 159606:                  ASSVAL
18870 @ 159607:                  LOCATE L_0007

  3045              %IF L>0 %AND Z#4 %THEN FIXL=L+1 %ELSE %START;! EXECUTE NEEDED
18871 @ 159610:                  LINE   3045 "regression-compile-tmp/imp918s.imp"
18872 @ 159648:                  PUSH   L
18873 @ 159651:                  PUSHI  #0x00000000
18874 @ 159656:                  JUMPIF <= L_0007
18875 @ 159660:                  PUSH   Z
18876 @ 159663:                  PUSHI  #0x00000004
18877 @ 159668:                  JUMPIF = L_0007
18878 @ 159672:                  PUSH   FIXL
18879 @ 159675:                  PUSH   L
18880 @ 159678:                  PUSHI  #0x00000001
18881 @ 159683:                  ADD   
18882 @ 159684:                  ASSVAL
18883 @ 159685:                  GOTO   L_0006
18884 @ 159688:                  LOCATE L_0007

  3046                 FIXL=0
18885 @ 159691:                  LINE   3046 "regression-compile-tmp/imp918s.imp"
18886 @ 159729:                  PUSH   FIXL
18887 @ 159732:                  PUSHI  #0x00000000
18888 @ 159737:                  ASSVAL

  3047                 %UNLESS DFRM<0 %OR DFRM>4095 %OR Z=2 %THEN %START
18889 @ 159738:                  LINE   3047 "regression-compile-tmp/imp918s.imp"
18890 @ 159776:                  PUSH   DFRM
18891 @ 159779:                  PUSHI  #0x00000000
18892 @ 159784:                  JUMPIF < L_000a
18893 @ 159788:                  PUSH   DFRM
18894 @ 159791:                  PUSHI  #0x00000fff
18895 @ 159796:                  JUMPIF > L_000a
18896 @ 159800:                  PUSH   Z
18897 @ 159803:                  PUSHI  #0x00000002
18898 @ 159808:                  JUMPIF = L_000a

  3048                    %IF XREG<0 %THEN FINDREG(GR1,XREG) %AND FORGET(XREG)
18899 @ 159812:                  LINE   3048 "regression-compile-tmp/imp918s.imp"
18900 @ 159850:                  PUSH   XREG
18901 @ 159853:                  PUSHI  #0x00000000
18902 @ 159858:                  JUMPIF >= L_000d
18903 @ 159862:                  PUSH   FINDREG
18904 @ 159865:                  PUSHI  #0x0001010f
18905 @ 159870:                  ASSPAR
18906 @ 159871:                  PUSH   XREG
18907 @ 159874:                  ASSPAR
18908 @ 159875:                  CALL  
18909 @ 159876:                  PUSH   FORGET
18910 @ 159879:                  PUSH   XREG
18911 @ 159882:                  ASSPAR
18912 @ 159883:                  CALL  
18913 @ 159884:                  LOCATE L_000d

  3049                    PRX(X'43',XREG,0,BFRM,DFRM) %UNLESS GRUSE(XREG)=13
18914 @ 159887:                  LINE   3049 "regression-compile-tmp/imp918s.imp"
18915 @ 159925:                  PUSH   GRUSE
18916 @ 159928:                  PUSH   XREG
18917 @ 159931:                  ACCESS
18918 @ 159932:                  PUSHI  #0x0000000d
18919 @ 159937:                  JUMPIF = L_000d
18920 @ 159941:                  PUSH   PRX
18921 @ 159944:                  PUSHI  #0x00000043
18922 @ 159949:                  ASSPAR
18923 @ 159950:                  PUSH   XREG
18924 @ 159953:                  ASSPAR
18925 @ 159954:                  PUSHI  #0x00000000
18926 @ 159959:                  ASSPAR
18927 @ 159960:                  PUSH   BFRM
18928 @ 159963:                  ASSPAR
18929 @ 159964:                  PUSH   DFRM
18930 @ 159967:                  ASSPAR
18931 @ 159968:                  CALL  
18932 @ 159969:                  LOCATE L_000d

  3050                 %FINISH %ELSE %START
18933 @ 159972:                  LINE   3050 "regression-compile-tmp/imp918s.imp"
18934 @ 160010:                  GOTO   L_0009
18935 @ 160013:                  LOCATE L_000a

  3051                    DUMP(X'43',XREG,DFRM,0,BFRM) 
18936 @ 160016:                  LINE   3051 "regression-compile-tmp/imp918s.imp"
18937 @ 160054:                  PUSH   DUMP
18938 @ 160057:                  PUSHI  #0x00000043
18939 @ 160062:                  ASSPAR
18940 @ 160063:                  PUSH   XREG
18941 @ 160066:                  ASSPAR
18942 @ 160067:                  PUSH   DFRM
18943 @ 160070:                  ASSPAR
18944 @ 160071:                  PUSHI  #0x00000000
18945 @ 160076:                  ASSPAR
18946 @ 160077:                  PUSH   BFRM
18947 @ 160080:                  ASSPAR
18948 @ 160081:                  CALL  

  3052                    XREG=NEST %IF XREG<0
18949 @ 160082:                  LINE   3052 "regression-compile-tmp/imp918s.imp"
18950 @ 160120:                  PUSH   XREG
18951 @ 160123:                  PUSHI  #0x00000000
18952 @ 160128:                  JUMPIF >= L_000d
18953 @ 160132:                  PUSH   XREG
18954 @ 160135:                  PUSH   NEST
18955 @ 160138:                  ASSVAL
18956 @ 160139:                  LOCATE L_000d

  3053                    SET USE(XREG,2,-2)
18957 @ 160142:                  LINE   3053 "regression-compile-tmp/imp918s.imp"
18958 @ 160180:                  PUSH   SETUSE
18959 @ 160183:                  PUSH   XREG
18960 @ 160186:                  ASSPAR
18961 @ 160187:                  PUSHI  #0x00000002
18962 @ 160192:                  ASSPAR
18963 @ 160193:                  PUSHI  #0x00000002
18964 @ 160198:                  NEGATE
18965 @ 160199:                  ASSPAR
18966 @ 160200:                  CALL  

  3054                 %FINISH
18967 @ 160201:                  LINE   3054 "regression-compile-tmp/imp918s.imp"
18968 @ 160239:                  LOCATE L_0009

  3055                 REGISTER(XREG)=1
18969 @ 160242:                  LINE   3055 "regression-compile-tmp/imp918s.imp"
18970 @ 160280:                  PUSH   REGISTER
18971 @ 160283:                  PUSH   XREG
18972 @ 160286:                  ACCESS
18973 @ 160287:                  PUSHI  #0x00000001
18974 @ 160292:                  ASSVAL

  3056                 ENTER LAB(PLABEL,B'11') %IF Z=4
18975 @ 160293:                  LINE   3056 "regression-compile-tmp/imp918s.imp"
18976 @ 160331:                  PUSH   Z
18977 @ 160334:                  PUSHI  #0x00000004
18978 @ 160339:                  JUMPIF # L_000a
18979 @ 160343:                  PUSH   ENTERLAB
18980 @ 160346:                  PUSH   PLABEL
18981 @ 160349:                  ASSPAR
18982 @ 160350:                  PUSHI  #0x00000003
18983 @ 160355:                  ASSPAR
18984 @ 160356:                  CALL  
18985 @ 160357:                  LOCATE L_000a

  3057                 SET LOCAL BASE
18986 @ 160360:                  LINE   3057 "regression-compile-tmp/imp918s.imp"
18987 @ 160398:                  PUSH   SETLOCALBASE
18988 @ 160401:                  CALL  

  3058              %FINISH
18989 @ 160402:                  LINE   3058 "regression-compile-tmp/imp918s.imp"
18990 @ 160440:                  LOCATE L_0006

  3059              %IF Z=2 %THEN DFRM=DFRM+1
18991 @ 160443:                  LINE   3059 "regression-compile-tmp/imp918s.imp"
18992 @ 160481:                  PUSH   Z
18993 @ 160484:                  PUSHI  #0x00000002
18994 @ 160489:                  JUMPIF # L_0007
18995 @ 160493:                  PUSH   DFRM
18996 @ 160496:                  PUSH   DFRM
18997 @ 160499:                  PUSHI  #0x00000001
18998 @ 160504:                  ADD   
18999 @ 160505:                  ASSVAL
19000 @ 160506:                  LOCATE L_0007

  3060              DUMPSS(W,FIXL,BTO,DTO,BFRM,DFRM)
19001 @ 160509:                  LINE   3060 "regression-compile-tmp/imp918s.imp"
19002 @ 160547:                  PUSH   DUMPSS
19003 @ 160550:                  PUSH   W
19004 @ 160553:                  ASSPAR
19005 @ 160554:                  PUSH   FIXL
19006 @ 160557:                  ASSPAR
19007 @ 160558:                  PUSH   BTO
19008 @ 160561:                  ASSPAR
19009 @ 160562:                  PUSH   DTO
19010 @ 160565:                  ASSPAR
19011 @ 160566:                  PUSH   BFRM
19012 @ 160569:                  ASSPAR
19013 @ 160570:                  PUSH   DFRM
19014 @ 160573:                  ASSPAR
19015 @ 160574:                  CALL  

  3061              %IF FIXL=0 %THEN %START
19016 @ 160575:                  LINE   3061 "regression-compile-tmp/imp918s.imp"
19017 @ 160613:                  PUSH   FIXL
19018 @ 160616:                  PUSHI  #0x00000000
19019 @ 160621:                  JUMPIF # L_0007

  3062                 DUMP(X'44',XREG,CA-LOCALADDR-6,0,LOCALBASE);! EXECUTE IT
19020 @ 160625:                  LINE   3062 "regression-compile-tmp/imp918s.imp"
19021 @ 160663:                  PUSH   DUMP
19022 @ 160666:                  PUSHI  #0x00000044
19023 @ 160671:                  ASSPAR
19024 @ 160672:                  PUSH   XREG
19025 @ 160675:                  ASSPAR
19026 @ 160676:                  PUSH   CA
19027 @ 160679:                  PUSH   LOCALADDR
19028 @ 160682:                  SUB   
19029 @ 160683:                  PUSHI  #0x00000006
19030 @ 160688:                  SUB   
19031 @ 160689:                  ASSPAR
19032 @ 160690:                  PUSHI  #0x00000000
19033 @ 160695:                  ASSPAR
19034 @ 160696:                  PUSH   LOCALBASE
19035 @ 160699:                  ASSPAR
19036 @ 160700:                  CALL  

  3063                 DUMP(X'42',XREG,DTO,0,BTO) %IF Z=4;! STC LENGTH BYTE IF <-
19037 @ 160701:                  LINE   3063 "regression-compile-tmp/imp918s.imp"
19038 @ 160739:                  PUSH   Z
19039 @ 160742:                  PUSHI  #0x00000004
19040 @ 160747:                  JUMPIF # L_000a
19041 @ 160751:                  PUSH   DUMP
19042 @ 160754:                  PUSHI  #0x00000042
19043 @ 160759:                  ASSPAR
19044 @ 160760:                  PUSH   XREG
19045 @ 160763:                  ASSPAR
19046 @ 160764:                  PUSH   DTO
19047 @ 160767:                  ASSPAR
19048 @ 160768:                  PUSHI  #0x00000000
19049 @ 160773:                  ASSPAR
19050 @ 160774:                  PUSH   BTO
19051 @ 160777:                  ASSPAR
19052 @ 160778:                  CALL  
19053 @ 160779:                  LOCATE L_000a

  3064              %FINISH
19054 @ 160782:                  LINE   3064 "regression-compile-tmp/imp918s.imp"
19055 @ 160820:                  LOCATE L_0007

  3065           %FINISH
19056 @ 160823:                  LINE   3065 "regression-compile-tmp/imp918s.imp"
19057 @ 160861:                  LOCATE L_0003

  3066           %IF XREG>0 %THEN REGISTER(XREG)=0
19058 @ 160864:                  LINE   3066 "regression-compile-tmp/imp918s.imp"
19059 @ 160902:                  PUSH   XREG
19060 @ 160905:                  PUSHI  #0x00000000
19061 @ 160910:                  JUMPIF <= L_0004
19062 @ 160914:                  PUSH   REGISTER
19063 @ 160917:                  PUSH   XREG
19064 @ 160920:                  ACCESS
19065 @ 160921:                  PUSHI  #0x00000000
19066 @ 160926:                  ASSVAL
19067 @ 160927:                  LOCATE L_0004

  3067           NEST=XREG
19068 @ 160930:                  LINE   3067 "regression-compile-tmp/imp918s.imp"
19069 @ 160968:                  PUSH   NEST
19070 @ 160971:                  PUSH   XREG
19071 @ 160974:                  ASSVAL

  3068           %IF BML>0 %THEN REGISTER(BML)=RSTATE3
19072 @ 160975:                  LINE   3068 "regression-compile-tmp/imp918s.imp"
19073 @ 161013:                  PUSH   BML
19074 @ 161016:                  PUSHI  #0x00000000
19075 @ 161021:                  JUMPIF <= L_0004
19076 @ 161025:                  PUSH   REGISTER
19077 @ 161028:                  PUSH   BML
19078 @ 161031:                  ACCESS
19079 @ 161032:                  PUSH   RSTATE3
19080 @ 161035:                  ASSVAL
19081 @ 161036:                  LOCATE L_0004

  3069           REGISTER(BFRM)=RSTATE2;         ! ORDER OF THESE 3 LINES
19082 @ 161039:                  LINE   3069 "regression-compile-tmp/imp918s.imp"
19083 @ 161077:                  PUSH   REGISTER
19084 @ 161080:                  PUSH   BFRM
19085 @ 161083:                  ACCESS
19086 @ 161084:                  PUSH   RSTATE2
19087 @ 161087:                  ASSVAL

  3070           REGISTER(BTO)=RSTATE1;          ! IMPORTANT IF BTO=BFRM!
19088 @ 161088:                  LINE   3070 "regression-compile-tmp/imp918s.imp"
19089 @ 161126:                  PUSH   REGISTER
19090 @ 161129:                  PUSH   BTO
19091 @ 161132:                  ACCESS
19092 @ 161133:                  PUSH   RSTATE1
19093 @ 161136:                  ASSVAL

  3071           CCSTATE=-1
19094 @ 161137:                  LINE   3071 "regression-compile-tmp/imp918s.imp"
19095 @ 161175:                  PUSH   CCSTATE
19096 @ 161178:                  PUSHI  #0x00000001
19097 @ 161183:                  NEGATE
19098 @ 161184:                  ASSVAL

  3072           %END
19099 @ 161185:                  LINE   3072 "regression-compile-tmp/imp918s.imp"
19100 @ 161223:               END    _lev0id0_CSS_STRINGOP {lev=3 --> 2}

  3073           %ROUTINE CSTREXP(%INTEGER MODE,REG)
  3074           {%SHORTROUTINE}
  3075  !***********************************************************************
  3076  !*       PLANT IN-LINE CODE FOR CONCATENATION. A WORK AREA UNDER       *
  3077  !*       BASE REGISTER COVER IS USUALLY REQUIRED. THE CURRENT LENGTH   *
  3078  !*       OF STRING IN THE WORK AREA IS KEPT IN A REGISTER (LENREG)     *
  3079  !*       WHICH IS PROTECTED THROUGH THE NORMAL INTERMEDIATE-RESULT     *
  3080  !*       MECHANISMS.                                                   *
  3081  !*       ON ENTRY:-                                                    *
  3082  !*       REG > 0 %IF A REGISTER IS TO BE LEFT POINTING AT THE RESULT   *
  3083  !*       MODE=0    NORMAL. REG IF GIVEN ONLY USED IF NO WK AREA NEEDED *
  3084  !*       MODE=1    AS MODE =0 BUT REG MUST BE SET AS POINTER           *
  3085  !*       (AND TO COME)                                                 *
  3086  !*       MODE=3    CONCATENATE INTO LHS OF =ASSNMNT (E.G. A=B.C)       *
  3087  !*       MODE=4    OPTIMISE  S=S.T   BY NOT COPYING S                  *
  3088  !*       2**4 BIT OF MODE IS SET IF WK-AREA NOT TO BE FREED ON EXIT    *
  3089  !*       ON EXIT:-                                                     *
  3090  !*       BASE,DISP & INDEX DEFINE RESULT                               *
  3091  !*       VALUE=1 %IF RESULT IN A WORK AREA(CCOND MUST KNOW)            *
  3092  !*       STRINGL SET IF STRING LENGTH KNOWN. NEST DEFINES LENREG       *
  3093  !***********************************************************************
19101 @ 161224:               LINE   3073 "regression-compile-tmp/imp918s.imp"
19102 @ 161262:               DEF    CSTREXP (_lev0id0_CSS_CSTREXP) p1=V_0178 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
19103 @ 161281:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
19104 @ 161282:                     DEF    MODE p1=V_01ff 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
19105 @ 161298:                     DEF    REG p1=V_0200 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
19106 @ 161313:                  FINISH ) {lev=3}

  3094           %INTEGER PP,WKBASE,WKAREA,LENREG,REXP,ERR,CLEN,KEEPWA
19107 @ 161314:                  LINE   3094 "regression-compile-tmp/imp918s.imp"
19108 @ 161352:                  DEF    PP p1=V_0201 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
19109 @ 161366:                  DEF    WKBASE p1=V_0202 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
19110 @ 161384:                  DEF    WKAREA p1=V_0203 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
19111 @ 161402:                  DEF    LENREG p1=V_0204 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
19112 @ 161420:                  DEF    REXP p1=V_0205 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
19113 @ 161436:                  DEF    ERR p1=V_0206 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
19114 @ 161451:                  DEF    CLEN p1=V_0207 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
19115 @ 161467:                  DEF    KEEPWA p1=V_0208 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

  3095           %SHORTINTEGER SHEAD
19116 @ 161485:                  LINE   3095 "regression-compile-tmp/imp918s.imp"
19117 @ 161523:                  DEF    SHEAD p1=V_0209 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0

  3096           %RECORD(RD)%NAME OP
19118 @ 161540:                  LINE   3096 "regression-compile-tmp/imp918s.imp"
19119 @ 161578:                  DEF    OP p1=V_020a a/tf=42 b/format=1be c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  3097           %INTEGERFNSPEC STROP(%INTEGER REG)
19120 @ 161592:                  LINE   3097 "regression-compile-tmp/imp918s.imp"
19121 @ 161630:                  DEF    STROP (_lev0id0_CSS_CSTREXP_STROP) p1=V_020b a/tf=18 b/format=1 c/ostate=18  type=1 (integer) form=8 (function) special=0 (<special:0>) linkage=0 (auto) spec=1 indirect=1 unass=0
19122 @ 161647:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
19123 @ 161648:                     DEF    REG p1=V_020c 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
19124 @ 161663:                  FINISH ) {lev=3}

  3098           LENREG=0; SHEAD=0
19125 @ 161664:                  LINE   3098 "regression-compile-tmp/imp918s.imp"
19126 @ 161702:                  PUSH   LENREG
19127 @ 161705:                  PUSHI  #0x00000000
19128 @ 161710:                  ASSVAL
19129 @ 161711:                  LINE   3098 "regression-compile-tmp/imp918s.imp"
19130 @ 161749:                  PUSH   SHEAD
19131 @ 161752:                  PUSHI  #0x00000000
19132 @ 161757:                  ASSVAL

  3099           KEEPWA=MODE&16; MODE=MODE&15
19133 @ 161758:                  LINE   3099 "regression-compile-tmp/imp918s.imp"
19134 @ 161796:                  PUSH   KEEPWA
19135 @ 161799:                  PUSH   MODE
19136 @ 161802:                  PUSHI  #0x00000010
19137 @ 161807:                  AND   
19138 @ 161808:                  ASSVAL
19139 @ 161809:                  LINE   3099 "regression-compile-tmp/imp918s.imp"
19140 @ 161847:                  PUSH   MODE
19141 @ 161850:                  PUSH   MODE
19142 @ 161853:                  PUSHI  #0x0000000f
19143 @ 161858:                  AND   
19144 @ 161859:                  ASSVAL

  3100           PP=P; STRINGL=0
19145 @ 161860:                  LINE   3100 "regression-compile-tmp/imp918s.imp"
19146 @ 161898:                  PUSH   PP
19147 @ 161901:                  PUSH   P
19148 @ 161904:                  ASSVAL
19149 @ 161905:                  LINE   3100 "regression-compile-tmp/imp918s.imp"
19150 @ 161943:                  PUSH   STRINGL
19151 @ 161946:                  PUSHI  #0x00000000
19152 @ 161951:                  ASSVAL

  3101           REXP=2-A(P+1+A(P+1));         ! =0 %IF ONE OPERAND EXP
19153 @ 161952:                  LINE   3101 "regression-compile-tmp/imp918s.imp"
19154 @ 161990:                  PUSH   REXP
19155 @ 161993:                  PUSHI  #0x00000002
19156 @ 161998:                  PUSH   A
19157 @ 162001:                  PUSH   P
19158 @ 162004:                  PUSHI  #0x00000001
19159 @ 162009:                  ADD   
19160 @ 162010:                  PUSH   A
19161 @ 162013:                  PUSH   P
19162 @ 162016:                  PUSHI  #0x00000001
19163 @ 162021:                  ADD   
19164 @ 162022:                  ACCESS
19165 @ 162023:                  ADD   
19166 @ 162024:                  ACCESS
19167 @ 162025:                  SUB   
19168 @ 162026:                  ASSVAL

  3102           -> NORMAL %UNLESS A(P+2)=4 %AND REXP=0 %AND MODE<=1
19169 @ 162027:                  LINE   3102 "regression-compile-tmp/imp918s.imp"
19170 @ 162065:                  PUSH   A
19171 @ 162068:                  PUSH   P
19172 @ 162071:                  PUSHI  #0x00000002
19173 @ 162076:                  ADD   
19174 @ 162077:                  ACCESS
19175 @ 162078:                  PUSHI  #0x00000004
19176 @ 162083:                  JUMPIF # L_0005
19177 @ 162087:                  PUSH   REXP
19178 @ 162090:                  PUSHI  #0x00000000
19179 @ 162095:                  JUMPIF # L_0005
19180 @ 162099:                  PUSH   MODE
19181 @ 162102:                  PUSHI  #0x00000001
19182 @ 162107:                  JUMPIF <= L_0004
19183 @ 162111:                  LOCATE L_0005
19184 @ 162114:                  JUMP   L_020c
19185 @ 162117:                  LOCATE L_0004

  3103           -> SIMPLE %IF A(P+3)=2
19186 @ 162120:                  LINE   3103 "regression-compile-tmp/imp918s.imp"
19187 @ 162158:                  PUSH   A
19188 @ 162161:                  PUSH   P
19189 @ 162164:                  PUSHI  #0x00000003
19190 @ 162169:                  ADD   
19191 @ 162170:                  ACCESS
19192 @ 162171:                  PUSHI  #0x00000002
19193 @ 162176:                  JUMPIF # L_0004
19194 @ 162180:                  JUMP   L_020d
19195 @ 162183:                  LOCATE L_0004

  3104           -> NORMAL %UNLESS A(P+3)=1
19196 @ 162186:                  LINE   3104 "regression-compile-tmp/imp918s.imp"
19197 @ 162224:                  PUSH   A
19198 @ 162227:                  PUSH   P
19199 @ 162230:                  PUSHI  #0x00000003
19200 @ 162235:                  ADD   
19201 @ 162236:                  ACCESS
19202 @ 162237:                  PUSHI  #0x00000001
19203 @ 162242:                  JUMPIF = L_0004
19204 @ 162246:                  JUMP   L_020c
19205 @ 162249:                  LOCATE L_0004

  3105           COPY TAG(A(P+4))
19206 @ 162252:                  LINE   3105 "regression-compile-tmp/imp918s.imp"
19207 @ 162290:                  PUSH   COPYTAG
19208 @ 162293:                  PUSH   A
19209 @ 162296:                  PUSH   P
19210 @ 162299:                  PUSHI  #0x00000004
19211 @ 162304:                  ADD   
19212 @ 162305:                  ACCESS
19213 @ 162306:                  ASSPAR
19214 @ 162307:                  CALL  

  3106           %IF PTYPE=SNPT %THEN PTYPE=TSNAME(K) %AND UNPACK
19215 @ 162308:                  LINE   3106 "regression-compile-tmp/imp918s.imp"
19216 @ 162346:                  PUSH   PTYPE
19217 @ 162349:                  PUSHI  #0x00002716
19218 @ 162354:                  JUMPIF # L_0004
19219 @ 162358:                  PUSH   PTYPE
19220 @ 162361:                  PUSH   TSNAME
19221 @ 162364:                  PUSH   K
19222 @ 162367:                  ACCESS
19223 @ 162368:                  ASSVAL
19224 @ 162369:                  PUSH   UNPACK
19225 @ 162372:                  CALL  
19226 @ 162373:                  LOCATE L_0004

  3107           -> NORMAL %IF ROUT#0 ; ! BEWARE OF MAP=FN
19227 @ 162376:                  LINE   3107 "regression-compile-tmp/imp918s.imp"
19228 @ 162414:                  PUSH   ROUT
19229 @ 162417:                  PUSHI  #0x00000000
19230 @ 162422:                  JUMPIF = L_0004
19231 @ 162426:                  JUMP   L_020c
19232 @ 162429:                  LOCATE L_0004

  3108           -> NORMAL %IF CHECKS=1 %AND(ARR#0 %OR A(P+5)=1)
19233 @ 162432:                  LINE   3108 "regression-compile-tmp/imp918s.imp"
19234 @ 162470:                  PUSH   CHECKS
19235 @ 162473:                  PUSHI  #0x00000001
19236 @ 162478:                  JUMPIF # L_0004
19237 @ 162482:                  PUSH   ARR
19238 @ 162485:                  PUSHI  #0x00000000
19239 @ 162490:                  JUMPIF # L_0005
19240 @ 162494:                  PUSH   A
19241 @ 162497:                  PUSH   P
19242 @ 162500:                  PUSHI  #0x00000005
19243 @ 162505:                  ADD   
19244 @ 162506:                  ACCESS
19245 @ 162507:                  PUSHI  #0x00000001
19246 @ 162512:                  JUMPIF # L_0004
19247 @ 162516:                  LOCATE L_0005
19248 @ 162519:                  JUMP   L_020c
19249 @ 162522:                  LOCATE L_0004

  3109  SIMPLE:  P=P+3
19250 @ 162525:                  LINE   3109 "regression-compile-tmp/imp918s.imp"
19251 @ 162563:                  LABEL  L_020d
19252 @ 162566:                  LINE   3109 "regression-compile-tmp/imp918s.imp"
19253 @ 162604:                  PUSH   P
19254 @ 162607:                  PUSH   P
19255 @ 162610:                  PUSHI  #0x00000003
19256 @ 162615:                  ADD   
19257 @ 162616:                  ASSVAL

  3110           %IF MODE=0 %THEN REG=-2
19258 @ 162617:                  LINE   3110 "regression-compile-tmp/imp918s.imp"
19259 @ 162655:                  PUSH   MODE
19260 @ 162658:                  PUSHI  #0x00000000
19261 @ 162663:                  JUMPIF # L_0004
19262 @ 162667:                  PUSH   REG
19263 @ 162670:                  PUSHI  #0x00000002
19264 @ 162675:                  NEGATE
19265 @ 162676:                  ASSVAL
19266 @ 162677:                  LOCATE L_0004

  3111           ERR=STROP(REG)
19267 @ 162680:                  LINE   3111 "regression-compile-tmp/imp918s.imp"
19268 @ 162718:                  PUSH   ERR
19269 @ 162721:                  PUSH   STROP
19270 @ 162724:                  PUSH   REG
19271 @ 162727:                  ASSPAR
19272 @ 162728:                  CALL  
19273 @ 162729:                  ASSVAL

  3112           -> ERROR %UNLESS ERR=0
19274 @ 162730:                  LINE   3112 "regression-compile-tmp/imp918s.imp"
19275 @ 162768:                  PUSH   ERR
19276 @ 162771:                  PUSHI  #0x00000000
19277 @ 162776:                  JUMPIF = L_0004
19278 @ 162780:                  JUMP   L_020e
19279 @ 162783:                  LOCATE L_0004

  3113           VALUE=0
19280 @ 162786:                  LINE   3113 "regression-compile-tmp/imp918s.imp"
19281 @ 162824:                  PUSH   VALUE
19282 @ 162827:                  PUSHI  #0x00000000
19283 @ 162832:                  ASSVAL

  3114           P=P+1; NEST=0; ->Label99
19284 @ 162833:                  LINE   3114 "regression-compile-tmp/imp918s.imp"
19285 @ 162871:                  PUSH   P
19286 @ 162874:                  PUSH   P
19287 @ 162877:                  PUSHI  #0x00000001
19288 @ 162882:                  ADD   
19289 @ 162883:                  ASSVAL
19290 @ 162884:                  LINE   3114 "regression-compile-tmp/imp918s.imp"
19291 @ 162922:                  PUSH   NEST
19292 @ 162925:                  PUSHI  #0x00000000
19293 @ 162930:                  ASSVAL
19294 @ 162931:                  LINE   3114 "regression-compile-tmp/imp918s.imp"
19295 @ 162969:                  JUMP   L_020f

  3115  ERROR:   FAULT(ERR,0)
19296 @ 162972:                  LINE   3115 "regression-compile-tmp/imp918s.imp"
19297 @ 163010:                  LABEL  L_020e
19298 @ 163013:                  LINE   3115 "regression-compile-tmp/imp918s.imp"
19299 @ 163051:                  PUSH   FAULT
19300 @ 163054:                  PUSH   ERR
19301 @ 163057:                  ASSPAR
19302 @ 163058:                  PUSHI  #0x00000000
19303 @ 163063:                  ASSPAR
19304 @ 163064:                  CALL  

  3116           REGISTER(LENREG)=0
19305 @ 163065:                  LINE   3116 "regression-compile-tmp/imp918s.imp"
19306 @ 163103:                  PUSH   REGISTER
19307 @ 163106:                  PUSH   LENREG
19308 @ 163109:                  ACCESS
19309 @ 163110:                  PUSHI  #0x00000000
19310 @ 163115:                  ASSVAL

  3117           BASE=11; DISP=0
19311 @ 163116:                  LINE   3117 "regression-compile-tmp/imp918s.imp"
19312 @ 163154:                  PUSH   BASE
19313 @ 163157:                  PUSHI  #0x0000000b
19314 @ 163162:                  ASSVAL
19315 @ 163163:                  LINE   3117 "regression-compile-tmp/imp918s.imp"
19316 @ 163201:                  PUSH   DISP
19317 @ 163204:                  PUSHI  #0x00000000
19318 @ 163209:                  ASSVAL

  3118           VALUE=0
19319 @ 163210:                  LINE   3118 "regression-compile-tmp/imp918s.imp"
19320 @ 163248:                  PUSH   VALUE
19321 @ 163251:                  PUSHI  #0x00000000
19322 @ 163256:                  ASSVAL

  3119           P=PP; SKIP EXP
19323 @ 163257:                  LINE   3119 "regression-compile-tmp/imp918s.imp"
19324 @ 163295:                  PUSH   P
19325 @ 163298:                  PUSH   PP
19326 @ 163301:                  ASSVAL
19327 @ 163302:                  LINE   3119 "regression-compile-tmp/imp918s.imp"
19328 @ 163340:                  PUSH   SKIPEXP
19329 @ 163343:                  CALL  

  3120           ->Label99
19330 @ 163344:                  LINE   3120 "regression-compile-tmp/imp918s.imp"
19331 @ 163382:                  JUMP   L_020f

  3121  NORMAL:  PUSH(SHEAD,1<<16!9,-2)
19332 @ 163385:                  LINE   3121 "regression-compile-tmp/imp918s.imp"
19333 @ 163423:                  LABEL  L_020c
19334 @ 163426:                  LINE   3121 "regression-compile-tmp/imp918s.imp"
19335 @ 163464:                  PUSH   PUSH
19336 @ 163467:                  PUSH   SHEAD
19337 @ 163470:                  ASSPAR
19338 @ 163471:                  PUSHI  #0x00000001
19339 @ 163476:                  PUSHI  #0x00000010
19340 @ 163481:                  LSH   
19341 @ 163482:                  PUSHI  #0x00000009
19342 @ 163487:                  OR    
19343 @ 163488:                  ASSPAR
19344 @ 163489:                  PUSHI  #0x00000002
19345 @ 163494:                  NEGATE
19346 @ 163495:                  ASSPAR
19347 @ 163496:                  CALL  

  3122           OP==RECORD(ADDR(ASLIST(SHEAD)));!RESULT DESCRIPTOR FOR LENREG
19348 @ 163497:                  LINE   3122 "regression-compile-tmp/imp918s.imp"
19349 @ 163535:                  PUSH   OP
19350 @ 163538:                  PUSH   RECORD
19351 @ 163541:                  PUSH   ADDR
19352 @ 163544:                  PUSH   ASLIST
19353 @ 163547:                  PUSH   SHEAD
19354 @ 163550:                  ACCESS
19355 @ 163551:                  ASSPAR
19356 @ 163552:                  CALL  
19357 @ 163553:                  ASSPAR
19358 @ 163554:                  CALL  
19359 @ 163555:                  ASSREF

  3123           CLEN=0; P=P+3;                ! LENGTH OF CONSTANT PART
19360 @ 163556:                  LINE   3123 "regression-compile-tmp/imp918s.imp"
19361 @ 163594:                  PUSH   CLEN
19362 @ 163597:                  PUSHI  #0x00000000
19363 @ 163602:                  ASSVAL
19364 @ 163603:                  LINE   3123 "regression-compile-tmp/imp918s.imp"
19365 @ 163641:                  PUSH   P
19366 @ 163644:                  PUSH   P
19367 @ 163647:                  PUSHI  #0x00000003
19368 @ 163652:                  ADD   
19369 @ 163653:                  ASSVAL

  3124           WKBASE=RBASE
19370 @ 163654:                  LINE   3124 "regression-compile-tmp/imp918s.imp"
19371 @ 163692:                  PUSH   WKBASE
19372 @ 163695:                  PUSH   RBASE
19373 @ 163698:                  ASSVAL

  3125           GET WSP(WKAREA,256);          ! GET NEXT OPERAND
19374 @ 163699:                  LINE   3125 "regression-compile-tmp/imp918s.imp"
19375 @ 163737:                  PUSH   GETWSP
19376 @ 163740:                  PUSH   WKAREA
19377 @ 163743:                  ASSPAR
19378 @ 163744:                  PUSHI  #0x00000100
19379 @ 163749:                  ASSPAR
19380 @ 163750:                  CALL  

  3126  NEXT:    STRINGL=0
19381 @ 163751:                  LINE   3126 "regression-compile-tmp/imp918s.imp"
19382 @ 163789:                  LABEL  L_0210
19383 @ 163792:                  LINE   3126 "regression-compile-tmp/imp918s.imp"
19384 @ 163830:                  PUSH   STRINGL
19385 @ 163833:                  PUSHI  #0x00000000
19386 @ 163838:                  ASSVAL

  3127           ERR=STROP(-2);                ! GET NEXT OPERAND
19387 @ 163839:                  LINE   3127 "regression-compile-tmp/imp918s.imp"
19388 @ 163877:                  PUSH   ERR
19389 @ 163880:                  PUSH   STROP
19390 @ 163883:                  PUSHI  #0x00000002
19391 @ 163888:                  NEGATE
19392 @ 163889:                  ASSPAR
19393 @ 163890:                  CALL  
19394 @ 163891:                  ASSVAL

  3128           -> ERROR %UNLESS ERR=0
19395 @ 163892:                  LINE   3128 "regression-compile-tmp/imp918s.imp"
19396 @ 163930:                  PUSH   ERR
19397 @ 163933:                  PUSHI  #0x00000000
19398 @ 163938:                  JUMPIF = L_0004
19399 @ 163942:                  JUMP   L_020e
19400 @ 163945:                  LOCATE L_0004

  3129           REGISTER(BASE)=2 %IF REGISTER(BASE)=0
19401 @ 163948:                  LINE   3129 "regression-compile-tmp/imp918s.imp"
19402 @ 163986:                  PUSH   REGISTER
19403 @ 163989:                  PUSH   BASE
19404 @ 163992:                  ACCESS
19405 @ 163993:                  PUSHI  #0x00000000
19406 @ 163998:                  JUMPIF # L_0004
19407 @ 164002:                  PUSH   REGISTER
19408 @ 164005:                  PUSH   BASE
19409 @ 164008:                  ACCESS
19410 @ 164009:                  PUSHI  #0x00000002
19411 @ 164014:                  ASSVAL
19412 @ 164015:                  LOCATE L_0004

  3130           %IF LENREG>0 %THEN %START
19413 @ 164018:                  LINE   3130 "regression-compile-tmp/imp918s.imp"
19414 @ 164056:                  PUSH   LENREG
19415 @ 164059:                  PUSHI  #0x00000000
19416 @ 164064:                  JUMPIF <= L_0004

  3131              %IF OP_D>0 %THEN %START;   ! LENREG STORED BY RT CALL
19417 @ 164068:                  LINE   3131 "regression-compile-tmp/imp918s.imp"
19418 @ 164106:                  PUSH   OP
19419 @ 164109:                  SELECT 4
19420 @ 164112:                  PUSHI  #0x00000000
19421 @ 164117:                  JUMPIF <= L_0007

  3132                 DUMP(2,-2,OP_D,0,OP_XB);! SO RELOAD IT
19422 @ 164121:                  LINE   3132 "regression-compile-tmp/imp918s.imp"
19423 @ 164159:                  PUSH   DUMP
19424 @ 164162:                  PUSHI  #0x00000002
19425 @ 164167:                  ASSPAR
19426 @ 164168:                  PUSHI  #0x00000002
19427 @ 164173:                  NEGATE
19428 @ 164174:                  ASSPAR
19429 @ 164175:                  PUSH   OP
19430 @ 164178:                  SELECT 4
19431 @ 164181:                  ASSPAR
19432 @ 164182:                  PUSHI  #0x00000000
19433 @ 164187:                  ASSPAR
19434 @ 164188:                  PUSH   OP
19435 @ 164191:                  SELECT 2
19436 @ 164194:                  ASSPAR
19437 @ 164195:                  CALL  

  3133                 LENREG=NEST
19438 @ 164196:                  LINE   3133 "regression-compile-tmp/imp918s.imp"
19439 @ 164234:                  PUSH   LENREG
19440 @ 164237:                  PUSH   NEST
19441 @ 164240:                  ASSVAL

  3134                 OP_XB=LENREG;OP_D=-2;   ! AND RESET DESCRIPTOR
19442 @ 164241:                  LINE   3134 "regression-compile-tmp/imp918s.imp"
19443 @ 164279:                  PUSH   OP
19444 @ 164282:                  SELECT 2
19445 @ 164285:                  PUSH   LENREG
19446 @ 164288:                  ASSVAL
19447 @ 164289:                  LINE   3134 "regression-compile-tmp/imp918s.imp"
19448 @ 164327:                  PUSH   OP
19449 @ 164330:                  SELECT 4
19450 @ 164333:                  PUSHI  #0x00000002
19451 @ 164338:                  NEGATE
19452 @ 164339:                  ASSVAL

  3135                 REGISTER(LENREG)=1
19453 @ 164340:                  LINE   3135 "regression-compile-tmp/imp918s.imp"
19454 @ 164378:                  PUSH   REGISTER
19455 @ 164381:                  PUSH   LENREG
19456 @ 164384:                  ACCESS
19457 @ 164385:                  PUSHI  #0x00000001
19458 @ 164390:                  ASSVAL

  3136                 SET USE(LENREG,1,ADDR(ASLIST(SHEAD)))
19459 @ 164391:                  LINE   3136 "regression-compile-tmp/imp918s.imp"
19460 @ 164429:                  PUSH   SETUSE
19461 @ 164432:                  PUSH   LENREG
19462 @ 164435:                  ASSPAR
19463 @ 164436:                  PUSHI  #0x00000001
19464 @ 164441:                  ASSPAR
19465 @ 164442:                  PUSH   ADDR
19466 @ 164445:                  PUSH   ASLIST
19467 @ 164448:                  PUSH   SHEAD
19468 @ 164451:                  ACCESS
19469 @ 164452:                  ASSPAR
19470 @ 164453:                  CALL  
19471 @ 164454:                  ASSPAR
19472 @ 164455:                  CALL  

  3137              %FINISH
19473 @ 164456:                  LINE   3137 "regression-compile-tmp/imp918s.imp"
19474 @ 164494:                  LOCATE L_0007

  3138              DUMP(0,-2,0,RBASE,LENREG); ! LA   O(RBASE,LENREG)
19475 @ 164497:                  LINE   3138 "regression-compile-tmp/imp918s.imp"
19476 @ 164535:                  PUSH   DUMP
19477 @ 164538:                  PUSHI  #0x00000000
19478 @ 164543:                  ASSPAR
19479 @ 164544:                  PUSHI  #0x00000002
19480 @ 164549:                  NEGATE
19481 @ 164550:                  ASSPAR
19482 @ 164551:                  PUSHI  #0x00000000
19483 @ 164556:                  ASSPAR
19484 @ 164557:                  PUSH   RBASE
19485 @ 164560:                  ASSPAR
19486 @ 164561:                  PUSH   LENREG
19487 @ 164564:                  ASSPAR
19488 @ 164565:                  CALL  

  3139              WKBASE=NEST; FORGET(WKBASE)
19489 @ 164566:                  LINE   3139 "regression-compile-tmp/imp918s.imp"
19490 @ 164604:                  PUSH   WKBASE
19491 @ 164607:                  PUSH   NEST
19492 @ 164610:                  ASSVAL
19493 @ 164611:                  LINE   3139 "regression-compile-tmp/imp918s.imp"
19494 @ 164649:                  PUSH   FORGET
19495 @ 164652:                  PUSH   WKBASE
19496 @ 164655:                  ASSPAR
19497 @ 164656:                  CALL  

  3140           %FINISH
19498 @ 164657:                  LINE   3140 "regression-compile-tmp/imp918s.imp"
19499 @ 164695:                  LOCATE L_0004

  3141           REGISTER(BASE)=0 %IF REGISTER(BASE)=2
19500 @ 164698:                  LINE   3141 "regression-compile-tmp/imp918s.imp"
19501 @ 164736:                  PUSH   REGISTER
19502 @ 164739:                  PUSH   BASE
19503 @ 164742:                  ACCESS
19504 @ 164743:                  PUSHI  #0x00000002
19505 @ 164748:                  JUMPIF # L_0004
19506 @ 164752:                  PUSH   REGISTER
19507 @ 164755:                  PUSH   BASE
19508 @ 164758:                  ACCESS
19509 @ 164759:                  PUSHI  #0x00000000
19510 @ 164764:                  ASSVAL
19511 @ 164765:                  LOCATE L_0004

  3142           STRINGOP(2,STRINGL,WKBASE,WKAREA+CLEN+1,BASE,DISP,-1,255,-2)
  3143  !
  3144  ! STRINGOP MOVES STRING INTO WORK AREA. IF LENGTH UNKNOWN THEN NEST
  3145  ! IS SET TO THE REGISTER CONTAINING THE LENGTH OF THE STRING
  3146  !
19512 @ 164768:                  LINE   3142 "regression-compile-tmp/imp918s.imp"
19513 @ 164806:                  PUSH   STRINGOP
19514 @ 164809:                  PUSHI  #0x00000002
19515 @ 164814:                  ASSPAR
19516 @ 164815:                  PUSH   STRINGL
19517 @ 164818:                  ASSPAR
19518 @ 164819:                  PUSH   WKBASE
19519 @ 164822:                  ASSPAR
19520 @ 164823:                  PUSH   WKAREA
19521 @ 164826:                  PUSH   CLEN
19522 @ 164829:                  ADD   
19523 @ 164830:                  PUSHI  #0x00000001
19524 @ 164835:                  ADD   
19525 @ 164836:                  ASSPAR
19526 @ 164837:                  PUSH   BASE
19527 @ 164840:                  ASSPAR
19528 @ 164841:                  PUSH   DISP
19529 @ 164844:                  ASSPAR
19530 @ 164845:                  PUSHI  #0x00000001
19531 @ 164850:                  NEGATE
19532 @ 164851:                  ASSPAR
19533 @ 164852:                  PUSHI  #0x000000ff
19534 @ 164857:                  ASSPAR
19535 @ 164858:                  PUSHI  #0x00000002
19536 @ 164863:                  NEGATE
19537 @ 164864:                  ASSPAR
19538 @ 164865:                  CALL  

  3147           %IF LENREG>0 %THEN %START;    ! REGISTER SET UP
19539 @ 164866:                  LINE   3147 "regression-compile-tmp/imp918s.imp"
19540 @ 164904:                  PUSH   LENREG
19541 @ 164907:                  PUSHI  #0x00000000
19542 @ 164912:                  JUMPIF <= L_0004

  3148              %IF STRINGL>0 %THEN %START;! DESCRIPTOR WAS A CONSTANT
19543 @ 164916:                  LINE   3148 "regression-compile-tmp/imp918s.imp"
19544 @ 164954:                  PUSH   STRINGL
19545 @ 164957:                  PUSHI  #0x00000000
19546 @ 164962:                  JUMPIF <= L_0007

  3149                 PRX(X'41',LENREG,LENREG,0,STRINGL);! LA LENREG,STRING(LENREG)
19547 @ 164966:                  LINE   3149 "regression-compile-tmp/imp918s.imp"
19548 @ 165004:                  PUSH   PRX
19549 @ 165007:                  PUSHI  #0x00000041
19550 @ 165012:                  ASSPAR
19551 @ 165013:                  PUSH   LENREG
19552 @ 165016:                  ASSPAR
19553 @ 165017:                  PUSH   LENREG
19554 @ 165020:                  ASSPAR
19555 @ 165021:                  PUSHI  #0x00000000
19556 @ 165026:                  ASSPAR
19557 @ 165027:                  PUSH   STRINGL
19558 @ 165030:                  ASSPAR
19559 @ 165031:                  CALL  

  3150              %FINISH %ELSE %START
19560 @ 165032:                  LINE   3150 "regression-compile-tmp/imp918s.imp"
19561 @ 165070:                  GOTO   L_0006
19562 @ 165073:                  LOCATE L_0007

  3151                 PRR(X'1A',LENREG,NEST); ! AR LENREG,NEST
19563 @ 165076:                  LINE   3151 "regression-compile-tmp/imp918s.imp"
19564 @ 165114:                  PUSH   PRR
19565 @ 165117:                  PUSHI  #0x0000001a
19566 @ 165122:                  ASSPAR
19567 @ 165123:                  PUSH   LENREG
19568 @ 165126:                  ASSPAR
19569 @ 165127:                  PUSH   NEST
19570 @ 165130:                  ASSPAR
19571 @ 165131:                  CALL  

  3152              %FINISH
19572 @ 165132:                  LINE   3152 "regression-compile-tmp/imp918s.imp"
19573 @ 165170:                  LOCATE L_0006

  3153           %FINISH %ELSE %START;         ! NOW SET LENREG
19574 @ 165173:                  LINE   3153 "regression-compile-tmp/imp918s.imp"
19575 @ 165211:                  GOTO   L_0003
19576 @ 165214:                  LOCATE L_0004

  3154              %IF STRINGL=0 %THEN %START
19577 @ 165217:                  LINE   3154 "regression-compile-tmp/imp918s.imp"
19578 @ 165255:                  PUSH   STRINGL
19579 @ 165258:                  PUSHI  #0x00000000
19580 @ 165263:                  JUMPIF # L_0007

  3155                 LENREG=NEST;            ! USE ONE SET BY STRINGOP
19581 @ 165267:                  LINE   3155 "regression-compile-tmp/imp918s.imp"
19582 @ 165305:                  PUSH   LENREG
19583 @ 165308:                  PUSH   NEST
19584 @ 165311:                  ASSVAL

  3156                 REGISTER(LENREG)=1;     ! CLAIM IT
19585 @ 165312:                  LINE   3156 "regression-compile-tmp/imp918s.imp"
19586 @ 165350:                  PUSH   REGISTER
19587 @ 165353:                  PUSH   LENREG
19588 @ 165356:                  ACCESS
19589 @ 165357:                  PUSHI  #0x00000001
19590 @ 165362:                  ASSVAL

  3157                 SET USE(LENREG,1,ADDR(ASLIST(SHEAD)));! PROTECT IT
19591 @ 165363:                  LINE   3157 "regression-compile-tmp/imp918s.imp"
19592 @ 165401:                  PUSH   SETUSE
19593 @ 165404:                  PUSH   LENREG
19594 @ 165407:                  ASSPAR
19595 @ 165408:                  PUSHI  #0x00000001
19596 @ 165413:                  ASSPAR
19597 @ 165414:                  PUSH   ADDR
19598 @ 165417:                  PUSH   ASLIST
19599 @ 165420:                  PUSH   SHEAD
19600 @ 165423:                  ACCESS
19601 @ 165424:                  ASSPAR
19602 @ 165425:                  CALL  
19603 @ 165426:                  ASSPAR
19604 @ 165427:                  CALL  

  3158                 OP_XB=LENREG;           ! AND UPDATE RESULT DESCRIPTOR
19605 @ 165428:                  LINE   3158 "regression-compile-tmp/imp918s.imp"
19606 @ 165466:                  PUSH   OP
19607 @ 165469:                  SELECT 2
19608 @ 165472:                  PUSH   LENREG
19609 @ 165475:                  ASSVAL

  3159                 PRX(X'41',LENREG,LENREG,0,CLEN) %UNLESS CLEN=0
19610 @ 165476:                  LINE   3159 "regression-compile-tmp/imp918s.imp"
19611 @ 165514:                  PUSH   CLEN
19612 @ 165517:                  PUSHI  #0x00000000
19613 @ 165522:                  JUMPIF = L_000a
19614 @ 165526:                  PUSH   PRX
19615 @ 165529:                  PUSHI  #0x00000041
19616 @ 165534:                  ASSPAR
19617 @ 165535:                  PUSH   LENREG
19618 @ 165538:                  ASSPAR
19619 @ 165539:                  PUSH   LENREG
19620 @ 165542:                  ASSPAR
19621 @ 165543:                  PUSHI  #0x00000000
19622 @ 165548:                  ASSPAR
19623 @ 165549:                  PUSH   CLEN
19624 @ 165552:                  ASSPAR
19625 @ 165553:                  CALL  
19626 @ 165554:                  LOCATE L_000a

  3160                 CLEN=0
19627 @ 165557:                  LINE   3160 "regression-compile-tmp/imp918s.imp"
19628 @ 165595:                  PUSH   CLEN
19629 @ 165598:                  PUSHI  #0x00000000
19630 @ 165603:                  ASSVAL

  3161              %FINISH %ELSE CLEN=CLEN+STRINGL
19631 @ 165604:                  LINE   3161 "regression-compile-tmp/imp918s.imp"
19632 @ 165642:                  GOTO   L_0006
19633 @ 165645:                  LOCATE L_0007
19634 @ 165648:                  PUSH   CLEN
19635 @ 165651:                  PUSH   CLEN
19636 @ 165654:                  PUSH   STRINGL
19637 @ 165657:                  ADD   
19638 @ 165658:                  ASSVAL
19639 @ 165659:                  LOCATE L_0006

  3162           %FINISH
19640 @ 165662:                  LINE   3162 "regression-compile-tmp/imp918s.imp"
19641 @ 165700:                  LOCATE L_0003

  3163           %IF A(P)=2 %THEN -> TIDY;     ! NO MORE OPERATIONS
19642 @ 165703:                  LINE   3163 "regression-compile-tmp/imp918s.imp"
19643 @ 165741:                  PUSH   A
19644 @ 165744:                  PUSH   P
19645 @ 165747:                  ACCESS
19646 @ 165748:                  PUSHI  #0x00000002
19647 @ 165753:                  JUMPIF # L_0004
19648 @ 165757:                  JUMP   L_0211
19649 @ 165760:                  LOCATE L_0004

  3164           ERR=72; -> ERROR %UNLESS A(P+1)=12; ! CONCATENATE
19650 @ 165763:                  LINE   3164 "regression-compile-tmp/imp918s.imp"
19651 @ 165801:                  PUSH   ERR
19652 @ 165804:                  PUSHI  #0x00000048
19653 @ 165809:                  ASSVAL
19654 @ 165810:                  LINE   3164 "regression-compile-tmp/imp918s.imp"
19655 @ 165848:                  PUSH   A
19656 @ 165851:                  PUSH   P
19657 @ 165854:                  PUSHI  #0x00000001
19658 @ 165859:                  ADD   
19659 @ 165860:                  ACCESS
19660 @ 165861:                  PUSHI  #0x0000000c
19661 @ 165866:                  JUMPIF = L_0004
19662 @ 165870:                  JUMP   L_020e
19663 @ 165873:                  LOCATE L_0004

  3165           P=P+2; -> NEXT
19664 @ 165876:                  LINE   3165 "regression-compile-tmp/imp918s.imp"
19665 @ 165914:                  PUSH   P
19666 @ 165917:                  PUSH   P
19667 @ 165920:                  PUSHI  #0x00000002
19668 @ 165925:                  ADD   
19669 @ 165926:                  ASSVAL
19670 @ 165927:                  LINE   3165 "regression-compile-tmp/imp918s.imp"
19671 @ 165965:                  JUMP   L_0210

  3166  TIDY:                                  ! FINISH OFF
19672 @ 165968:                  LINE   3166 "regression-compile-tmp/imp918s.imp"
19673 @ 166006:                  LABEL  L_0211

  3167           VALUE=WKAREA
19674 @ 166009:                  LINE   3167 "regression-compile-tmp/imp918s.imp"
19675 @ 166047:                  PUSH   VALUE
19676 @ 166050:                  PUSH   WKAREA
19677 @ 166053:                  ASSVAL

  3168           %IF LENREG=0 %THEN %START
19678 @ 166054:                  LINE   3168 "regression-compile-tmp/imp918s.imp"
19679 @ 166092:                  PUSH   LENREG
19680 @ 166095:                  PUSHI  #0x00000000
19681 @ 166100:                  JUMPIF # L_0004

  3169              DUMPSI(X'92',CLEN,RBASE,WKAREA); ! MAX LENGTH KNOWN
19682 @ 166104:                  LINE   3169 "regression-compile-tmp/imp918s.imp"
19683 @ 166142:                  PUSH   DUMPSI
19684 @ 166145:                  PUSHI  #0x00000092
19685 @ 166150:                  ASSPAR
19686 @ 166151:                  PUSH   CLEN
19687 @ 166154:                  ASSPAR
19688 @ 166155:                  PUSH   RBASE
19689 @ 166158:                  ASSPAR
19690 @ 166159:                  PUSH   WKAREA
19691 @ 166162:                  ASSPAR
19692 @ 166163:                  CALL  

  3170              STRINGL=CLEN; NEST=0
19693 @ 166164:                  LINE   3170 "regression-compile-tmp/imp918s.imp"
19694 @ 166202:                  PUSH   STRINGL
19695 @ 166205:                  PUSH   CLEN
19696 @ 166208:                  ASSVAL
19697 @ 166209:                  LINE   3170 "regression-compile-tmp/imp918s.imp"
19698 @ 166247:                  PUSH   NEST
19699 @ 166250:                  PUSHI  #0x00000000
19700 @ 166255:                  ASSVAL

  3171           %FINISH %ELSE %START
19701 @ 166256:                  LINE   3171 "regression-compile-tmp/imp918s.imp"
19702 @ 166294:                  GOTO   L_0003
19703 @ 166297:                  LOCATE L_0004

  3172              DUMP(X'42',LENREG,WKAREA,0,RBASE); ! MAX LENGTH NOT KNOWN
19704 @ 166300:                  LINE   3172 "regression-compile-tmp/imp918s.imp"
19705 @ 166338:                  PUSH   DUMP
19706 @ 166341:                  PUSHI  #0x00000042
19707 @ 166346:                  ASSPAR
19708 @ 166347:                  PUSH   LENREG
19709 @ 166350:                  ASSPAR
19710 @ 166351:                  PUSH   WKAREA
19711 @ 166354:                  ASSPAR
19712 @ 166355:                  PUSHI  #0x00000000
19713 @ 166360:                  ASSPAR
19714 @ 166361:                  PUSH   RBASE
19715 @ 166364:                  ASSPAR
19716 @ 166365:                  CALL  

  3173              PREC=1; TYPE=1;            ! FOR CHECK CAPACITY
19717 @ 166366:                  LINE   3173 "regression-compile-tmp/imp918s.imp"
19718 @ 166404:                  PUSH   PREC
19719 @ 166407:                  PUSHI  #0x00000001
19720 @ 166412:                  ASSVAL
19721 @ 166413:                  LINE   3173 "regression-compile-tmp/imp918s.imp"
19722 @ 166451:                  PUSH   TYPE
19723 @ 166454:                  PUSHI  #0x00000001
19724 @ 166459:                  ASSVAL

  3174              %IF CHECKSP=1 %THEN CHECK CAPACITY(LENREG,WKAREA,0,RBASE)
19725 @ 166460:                  LINE   3174 "regression-compile-tmp/imp918s.imp"
19726 @ 166498:                  PUSH   CHECKSP
19727 @ 166501:                  PUSHI  #0x00000001
19728 @ 166506:                  JUMPIF # L_0007
19729 @ 166510:                  PUSH   CHECKCAPACITY
19730 @ 166513:                  PUSH   LENREG
19731 @ 166516:                  ASSPAR
19732 @ 166517:                  PUSH   WKAREA
19733 @ 166520:                  ASSPAR
19734 @ 166521:                  PUSHI  #0x00000000
19735 @ 166526:                  ASSPAR
19736 @ 166527:                  PUSH   RBASE
19737 @ 166530:                  ASSPAR
19738 @ 166531:                  CALL  
19739 @ 166532:                  LOCATE L_0007

  3175              REGISTER(LENREG)=0;        ! FREE THE REGISTER
19740 @ 166535:                  LINE   3175 "regression-compile-tmp/imp918s.imp"
19741 @ 166573:                  PUSH   REGISTER
19742 @ 166576:                  PUSH   LENREG
19743 @ 166579:                  ACCESS
19744 @ 166580:                  PUSHI  #0x00000000
19745 @ 166585:                  ASSVAL

  3176              STRINGL=0;                 ! LENGTH UNKNOWN
19746 @ 166586:                  LINE   3176 "regression-compile-tmp/imp918s.imp"
19747 @ 166624:                  PUSH   STRINGL
19748 @ 166627:                  PUSHI  #0x00000000
19749 @ 166632:                  ASSVAL

  3177           %FINISH
19750 @ 166633:                  LINE   3177 "regression-compile-tmp/imp918s.imp"
19751 @ 166671:                  LOCATE L_0003

  3178           P=P+1;                        ! PAST REST OF EXPRN
19752 @ 166674:                  LINE   3178 "regression-compile-tmp/imp918s.imp"
19753 @ 166712:                  PUSH   P
19754 @ 166715:                  PUSH   P
19755 @ 166718:                  PUSHI  #0x00000001
19756 @ 166723:                  ADD   
19757 @ 166724:                  ASSVAL

  3179           RETURN WSP(WKAREA,256) %IF KEEPWA=0
19758 @ 166725:                  LINE   3179 "regression-compile-tmp/imp918s.imp"
19759 @ 166763:                  PUSH   KEEPWA
19760 @ 166766:                  PUSHI  #0x00000000
19761 @ 166771:                  JUMPIF # L_0004
19762 @ 166775:                  PUSH   RETURNWSP
19763 @ 166778:                  PUSH   WKAREA
19764 @ 166781:                  ASSPAR
19765 @ 166782:                  PUSHI  #0x00000100
19766 @ 166787:                  ASSPAR
19767 @ 166788:                  CALL  
19768 @ 166789:                  LOCATE L_0004

  3180           %IF MODE=0 %THEN %START
19769 @ 166792:                  LINE   3180 "regression-compile-tmp/imp918s.imp"
19770 @ 166830:                  PUSH   MODE
19771 @ 166833:                  PUSHI  #0x00000000
19772 @ 166838:                  JUMPIF # L_0004

  3181              BASE=RBASE; DISP=WKAREA
19773 @ 166842:                  LINE   3181 "regression-compile-tmp/imp918s.imp"
19774 @ 166880:                  PUSH   BASE
19775 @ 166883:                  PUSH   RBASE
19776 @ 166886:                  ASSVAL
19777 @ 166887:                  LINE   3181 "regression-compile-tmp/imp918s.imp"
19778 @ 166925:                  PUSH   DISP
19779 @ 166928:                  PUSH   WKAREA
19780 @ 166931:                  ASSVAL

  3182           %FINISH %ELSE %START
19781 @ 166932:                  LINE   3182 "regression-compile-tmp/imp918s.imp"
19782 @ 166970:                  GOTO   L_0003
19783 @ 166973:                  LOCATE L_0004

  3183              DUMP(0,REG,WKAREA,0,RBASE)
19784 @ 166976:                  LINE   3183 "regression-compile-tmp/imp918s.imp"
19785 @ 167014:                  PUSH   DUMP
19786 @ 167017:                  PUSHI  #0x00000000
19787 @ 167022:                  ASSPAR
19788 @ 167023:                  PUSH   REG
19789 @ 167026:                  ASSPAR
19790 @ 167027:                  PUSH   WKAREA
19791 @ 167030:                  ASSPAR
19792 @ 167031:                  PUSHI  #0x00000000
19793 @ 167036:                  ASSPAR
19794 @ 167037:                  PUSH   RBASE
19795 @ 167040:                  ASSPAR
19796 @ 167041:                  CALL  

  3184              BASE=REG; DISP=0
19797 @ 167042:                  LINE   3184 "regression-compile-tmp/imp918s.imp"
19798 @ 167080:                  PUSH   BASE
19799 @ 167083:                  PUSH   REG
19800 @ 167086:                  ASSVAL
19801 @ 167087:                  LINE   3184 "regression-compile-tmp/imp918s.imp"
19802 @ 167125:                  PUSH   DISP
19803 @ 167128:                  PUSHI  #0x00000000
19804 @ 167133:                  ASSVAL

  3185           %FINISH
19805 @ 167134:                  LINE   3185 "regression-compile-tmp/imp918s.imp"
19806 @ 167172:                  LOCATE L_0003

  3186           INDEX=0
19807 @ 167175:                  LINE   3186 "regression-compile-tmp/imp918s.imp"
19808 @ 167213:                  PUSH   INDEX
19809 @ 167216:                  PUSHI  #0x00000000
19810 @ 167221:                  ASSVAL

  3187           CLEAR LIST(SHEAD)
19811 @ 167222:                  LINE   3187 "regression-compile-tmp/imp918s.imp"
19812 @ 167260:                  PUSH   CLEARLIST
19813 @ 167263:                  PUSH   SHEAD
19814 @ 167266:                  ASSPAR
19815 @ 167267:                  CALL  

  3188           CCSTATE=-1
19816 @ 167268:                  LINE   3188 "regression-compile-tmp/imp918s.imp"
19817 @ 167306:                  PUSH   CCSTATE
19818 @ 167309:                  PUSHI  #0x00000001
19819 @ 167314:                  NEGATE
19820 @ 167315:                  ASSVAL

  3189           NEST=LENREG; ->Label99
19821 @ 167316:                  LINE   3189 "regression-compile-tmp/imp918s.imp"
19822 @ 167354:                  PUSH   NEST
19823 @ 167357:                  PUSH   LENREG
19824 @ 167360:                  ASSVAL
19825 @ 167361:                  LINE   3189 "regression-compile-tmp/imp918s.imp"
19826 @ 167399:                  JUMP   L_020f

  3190           %INTEGERFN STROP(%INTEGER REG)
  3191  !***********************************************************************
  3192  !*       DEALS WITH OPERAND FOR CONCATENATION. RETURN RESULT=0 FOR     *
  3193  !*       VALID OPERAND OTHERWISE AN ERROR NUMBER.                      *
  3194  !***********************************************************************
19827 @ 167402:                  LINE   3190 "regression-compile-tmp/imp918s.imp"
19828 @ 167440:                  DEF    STROP (_lev0id0_CSS_CSTREXP_STROP) p1=V_020b a/tf=18 b/format=1 c/ostate=10  type=1 (integer) form=8 (function) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=1 unass=0
19829 @ 167457:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
19830 @ 167458:                        DEF    REG p1=V_0212 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
19831 @ 167473:                     FINISH ) {lev=4}

  3195           %BYTEINTEGER CTYPE
19832 @ 167474:                     LINE   3195 "regression-compile-tmp/imp918s.imp"
19833 @ 167512:                     DEF    CTYPE p1=V_0213 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0

  3196           %INTEGER VAL,MODE,REGMODE
19834 @ 167529:                     LINE   3196 "regression-compile-tmp/imp918s.imp"
19835 @ 167567:                     DEF    VAL p1=V_0214 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
19836 @ 167582:                     DEF    MODE p1=V_0215 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
19837 @ 167598:                     DEF    REGMODE p1=V_0216 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

  3197           %IF CHECKSP#0 %THEN REGMODE=SAFE %ELSE REGMODE=ADDREG
19838 @ 167617:                     LINE   3197 "regression-compile-tmp/imp918s.imp"
19839 @ 167655:                     PUSH   CHECKSP
19840 @ 167658:                     PUSHI  #0x00000000
19841 @ 167663:                     JUMPIF = L_0004
19842 @ 167667:                     PUSH   REGMODE
19843 @ 167670:                     PUSHI  #0xffff0e04
19844 @ 167675:                     ASSVAL
19845 @ 167676:                     GOTO   L_0003
19846 @ 167679:                     LOCATE L_0004
19847 @ 167682:                     PUSH   REGMODE
19848 @ 167685:                     PUSHI  #0xffff0e01
19849 @ 167690:                     ASSVAL
19850 @ 167691:                     LOCATE L_0003

  3198           MODE=A(P);                    ! ALTERNATIVE OF OPERAND
19851 @ 167694:                     LINE   3198 "regression-compile-tmp/imp918s.imp"
19852 @ 167732:                     PUSH   MODE
19853 @ 167735:                     PUSH   A
19854 @ 167738:                     PUSH   P
19855 @ 167741:                     ACCESS
19856 @ 167742:                     ASSVAL

  3199           %RESULT=75 %IF MODE>2
19857 @ 167743:                     LINE   3199 "regression-compile-tmp/imp918s.imp"
19858 @ 167781:                     PUSH   MODE
19859 @ 167784:                     PUSHI  #0x00000002
19860 @ 167789:                     JUMPIF <= L_0004
19861 @ 167793:                     PUSHI  #0x0000004b
19862 @ 167798:                     RESULT
19863 @ 167799:                     LOCATE L_0004

  3200           %IF MODE#1 %THEN %START
19864 @ 167802:                     LINE   3200 "regression-compile-tmp/imp918s.imp"
19865 @ 167840:                     PUSH   MODE
19866 @ 167843:                     PUSHI  #0x00000001
19867 @ 167848:                     JUMPIF = L_0004

  3201              CTYPE=A(P+1)&7;           ! GET CONST TYPE & LOSE AMCK FLAGS
19868 @ 167852:                     LINE   3201 "regression-compile-tmp/imp918s.imp"
19869 @ 167890:                     PUSH   CTYPE
19870 @ 167893:                     PUSH   A
19871 @ 167896:                     PUSH   P
19872 @ 167899:                     PUSHI  #0x00000001
19873 @ 167904:                     ADD   
19874 @ 167905:                     ACCESS
19875 @ 167906:                     PUSHI  #0x00000007
19876 @ 167911:                     AND   
19877 @ 167912:                     ASSVAL

  3202              %IF CTYPE=5 %THEN %START
19878 @ 167913:                     LINE   3202 "regression-compile-tmp/imp918s.imp"
19879 @ 167951:                     PUSH   CTYPE
19880 @ 167954:                     PUSHI  #0x00000005
19881 @ 167959:                     JUMPIF # L_0007

  3203                 STRINGL=A(P+2); P=P+2
19882 @ 167963:                     LINE   3203 "regression-compile-tmp/imp918s.imp"
19883 @ 168001:                     PUSH   STRINGL
19884 @ 168004:                     PUSH   A
19885 @ 168007:                     PUSH   P
19886 @ 168010:                     PUSHI  #0x00000002
19887 @ 168015:                     ADD   
19888 @ 168016:                     ACCESS
19889 @ 168017:                     ASSVAL
19890 @ 168018:                     LINE   3203 "regression-compile-tmp/imp918s.imp"
19891 @ 168056:                     PUSH   P
19892 @ 168059:                     PUSH   P
19893 @ 168062:                     PUSHI  #0x00000002
19894 @ 168067:                     ADD   
19895 @ 168068:                     ASSVAL

  3204                 %IF REG<0 %THEN FINDREG(REGMODE,BASE) %ELSE BASE=REG
19896 @ 168069:                     LINE   3204 "regression-compile-tmp/imp918s.imp"
19897 @ 168107:                     PUSH   REG
19898 @ 168110:                     PUSHI  #0x00000000
19899 @ 168115:                     JUMPIF >= L_000a
19900 @ 168119:                     PUSH   FINDREG
19901 @ 168122:                     PUSH   REGMODE
19902 @ 168125:                     ASSPAR
19903 @ 168126:                     PUSH   BASE
19904 @ 168129:                     ASSPAR
19905 @ 168130:                     CALL  
19906 @ 168131:                     GOTO   L_0009
19907 @ 168134:                     LOCATE L_000a
19908 @ 168137:                     PUSH   BASE
19909 @ 168140:                     PUSH   REG
19910 @ 168143:                     ASSVAL
19911 @ 168144:                     LOCATE L_0009

  3205                 TEXTOUT(BASE)
19912 @ 168147:                     LINE   3205 "regression-compile-tmp/imp918s.imp"
19913 @ 168185:                     PUSH   TEXTOUT
19914 @ 168188:                     PUSH   BASE
19915 @ 168191:                     ASSPAR
19916 @ 168192:                     CALL  

  3206                 %IF A(P)=1 %THEN %RESULT=72
19917 @ 168193:                     LINE   3206 "regression-compile-tmp/imp918s.imp"
19918 @ 168231:                     PUSH   A
19919 @ 168234:                     PUSH   P
19920 @ 168237:                     ACCESS
19921 @ 168238:                     PUSHI  #0x00000001
19922 @ 168243:                     JUMPIF # L_000a
19923 @ 168247:                     PUSHI  #0x00000048
19924 @ 168252:                     RESULT
19925 @ 168253:                     LOCATE L_000a

  3207                 P=P+1; DISP=0
19926 @ 168256:                     LINE   3207 "regression-compile-tmp/imp918s.imp"
19927 @ 168294:                     PUSH   P
19928 @ 168297:                     PUSH   P
19929 @ 168300:                     PUSHI  #0x00000001
19930 @ 168305:                     ADD   
19931 @ 168306:                     ASSVAL
19932 @ 168307:                     LINE   3207 "regression-compile-tmp/imp918s.imp"
19933 @ 168345:                     PUSH   DISP
19934 @ 168348:                     PUSHI  #0x00000000
19935 @ 168353:                     ASSVAL

  3208              %FINISH %ELSE %START
19936 @ 168354:                     LINE   3208 "regression-compile-tmp/imp918s.imp"
19937 @ 168392:                     GOTO   L_0006
19938 @ 168395:                     LOCATE L_0007

  3209                 FROM AR4(P+2,VAL)
19939 @ 168398:                     LINE   3209 "regression-compile-tmp/imp918s.imp"
19940 @ 168436:                     PUSH   FROMAR4
19941 @ 168439:                     PUSH   P
19942 @ 168442:                     PUSHI  #0x00000002
19943 @ 168447:                     ADD   
19944 @ 168448:                     ASSPAR
19945 @ 168449:                     PUSH   VAL
19946 @ 168452:                     ASSPAR
19947 @ 168453:                     CALL  

  3210                 %RESULT=72 %UNLESS CTYPE=1 %AND 0<=VAL<127 %AND A(P+4)=2
19948 @ 168454:                     LINE   3210 "regression-compile-tmp/imp918s.imp"
19949 @ 168492:                     PUSH   CTYPE
19950 @ 168495:                     PUSHI  #0x00000001
19951 @ 168500:                     JUMPIF # L_000b
19952 @ 168504:                     PUSHI  #0x00000000
19953 @ 168509:                     PUSH   VAL
19954 @ 168512:                     JUMPIFD > L_000b
19955 @ 168516:                     PUSHI  #0x0000007f
19956 @ 168521:                     JUMPIF >= L_000b
19957 @ 168525:                     PUSH   A
19958 @ 168528:                     PUSH   P
19959 @ 168531:                     PUSHI  #0x00000004
19960 @ 168536:                     ADD   
19961 @ 168537:                     ACCESS
19962 @ 168538:                     PUSHI  #0x00000002
19963 @ 168543:                     JUMPIF = L_000a
19964 @ 168547:                     LOCATE L_000b
19965 @ 168550:                     PUSHI  #0x00000048
19966 @ 168555:                     RESULT
19967 @ 168556:                     LOCATE L_000a

  3211                 P=P+5
19968 @ 168559:                     LINE   3211 "regression-compile-tmp/imp918s.imp"
19969 @ 168597:                     PUSH   P
19970 @ 168600:                     PUSH   P
19971 @ 168603:                     PUSHI  #0x00000005
19972 @ 168608:                     ADD   
19973 @ 168609:                     ASSVAL

  3212                 %IF VAL=0 %THEN %START
19974 @ 168610:                     LINE   3212 "regression-compile-tmp/imp918s.imp"
19975 @ 168648:                     PUSH   VAL
19976 @ 168651:                     PUSHI  #0x00000000
19977 @ 168656:                     JUMPIF # L_000a

  3213                    BASE=CODER; DISP=X'C0'
19978 @ 168660:                     LINE   3213 "regression-compile-tmp/imp918s.imp"
19979 @ 168698:                     PUSH   BASE
19980 @ 168701:                     PUSHI  #0x0000000c
19981 @ 168706:                     ASSVAL
19982 @ 168707:                     LINE   3213 "regression-compile-tmp/imp918s.imp"
19983 @ 168745:                     PUSH   DISP
19984 @ 168748:                     PUSHI  #0x000000c0
19985 @ 168753:                     ASSVAL

  3214                 %FINISH %ELSE %START
19986 @ 168754:                     LINE   3214 "regression-compile-tmp/imp918s.imp"
19987 @ 168792:                     GOTO   L_0009
19988 @ 168795:                     LOCATE L_000a

  3215                    VAL=VAL+256; STRINGL=1
19989 @ 168798:                     LINE   3215 "regression-compile-tmp/imp918s.imp"
19990 @ 168836:                     PUSH   VAL
19991 @ 168839:                     PUSH   VAL
19992 @ 168842:                     PUSHI  #0x00000100
19993 @ 168847:                     ADD   
19994 @ 168848:                     ASSVAL
19995 @ 168849:                     LINE   3215 "regression-compile-tmp/imp918s.imp"
19996 @ 168887:                     PUSH   STRINGL
19997 @ 168890:                     PUSHI  #0x00000001
19998 @ 168895:                     ASSVAL

  3216                    STORE CONST(BASE,DISP,2,ADDR(VAL)+2)
19999 @ 168896:                     LINE   3216 "regression-compile-tmp/imp918s.imp"
20000 @ 168934:                     PUSH   STORECONST
20001 @ 168937:                     PUSH   BASE
20002 @ 168940:                     ASSPAR
20003 @ 168941:                     PUSH   DISP
20004 @ 168944:                     ASSPAR
20005 @ 168945:                     PUSHI  #0x00000002
20006 @ 168950:                     ASSPAR
20007 @ 168951:                     PUSH   ADDR
20008 @ 168954:                     PUSH   VAL
20009 @ 168957:                     ASSPAR
20010 @ 168958:                     CALL  
20011 @ 168959:                     PUSHI  #0x00000002
20012 @ 168964:                     ADD   
20013 @ 168965:                     ASSPAR
20014 @ 168966:                     CALL  

  3217                 %FINISH
20015 @ 168967:                     LINE   3217 "regression-compile-tmp/imp918s.imp"
20016 @ 169005:                     LOCATE L_0009

  3218              %FINISH
20017 @ 169008:                     LINE   3218 "regression-compile-tmp/imp918s.imp"
20018 @ 169046:                     LOCATE L_0006

  3219              INDEX=0
20019 @ 169049:                     LINE   3219 "regression-compile-tmp/imp918s.imp"
20020 @ 169087:                     PUSH   INDEX
20021 @ 169090:                     PUSHI  #0x00000000
20022 @ 169095:                     ASSVAL

  3220           %FINISH %ELSE %START
20023 @ 169096:                     LINE   3220 "regression-compile-tmp/imp918s.imp"
20024 @ 169134:                     GOTO   L_0003
20025 @ 169137:                     LOCATE L_0004

  3221              P=P+1; CNAME(5,REG)
20026 @ 169140:                     LINE   3221 "regression-compile-tmp/imp918s.imp"
20027 @ 169178:                     PUSH   P
20028 @ 169181:                     PUSH   P
20029 @ 169184:                     PUSHI  #0x00000001
20030 @ 169189:                     ADD   
20031 @ 169190:                     ASSVAL
20032 @ 169191:                     LINE   3221 "regression-compile-tmp/imp918s.imp"
20033 @ 169229:                     PUSH   CNAME
20034 @ 169232:                     PUSHI  #0x00000005
20035 @ 169237:                     ASSPAR
20036 @ 169238:                     PUSH   REG
20037 @ 169241:                     ASSPAR
20038 @ 169242:                     CALL  

  3222              STRINGL=0
20039 @ 169243:                     LINE   3222 "regression-compile-tmp/imp918s.imp"
20040 @ 169281:                     PUSH   STRINGL
20041 @ 169284:                     PUSHI  #0x00000000
20042 @ 169289:                     ASSVAL

  3223              %RESULT=71 %IF TYPE#5
20043 @ 169290:                     LINE   3223 "regression-compile-tmp/imp918s.imp"
20044 @ 169328:                     PUSH   TYPE
20045 @ 169331:                     PUSHI  #0x00000005
20046 @ 169336:                     JUMPIF = L_0007
20047 @ 169340:                     PUSHI  #0x00000047
20048 @ 169345:                     RESULT
20049 @ 169346:                     LOCATE L_0007

  3224           %FINISH
20050 @ 169349:                     LINE   3224 "regression-compile-tmp/imp918s.imp"
20051 @ 169387:                     LOCATE L_0003

  3225           %IF REG>0 %OR INDEX>0 %OR BASE>4095 %THEN %START
20052 @ 169390:                     LINE   3225 "regression-compile-tmp/imp918s.imp"
20053 @ 169428:                     PUSH   REG
20054 @ 169431:                     PUSHI  #0x00000000
20055 @ 169436:                     JUMPIF > L_0005
20056 @ 169440:                     PUSH   INDEX
20057 @ 169443:                     PUSHI  #0x00000000
20058 @ 169448:                     JUMPIF > L_0005
20059 @ 169452:                     PUSH   BASE
20060 @ 169455:                     PUSHI  #0x00000fff
20061 @ 169460:                     JUMPIF <= L_0004
20062 @ 169464:                     LOCATE L_0005

  3226              DUMP(0,REG,DISP,INDEX,BASE)
20063 @ 169467:                     LINE   3226 "regression-compile-tmp/imp918s.imp"
20064 @ 169505:                     PUSH   DUMP
20065 @ 169508:                     PUSHI  #0x00000000
20066 @ 169513:                     ASSPAR
20067 @ 169514:                     PUSH   REG
20068 @ 169517:                     ASSPAR
20069 @ 169518:                     PUSH   DISP
20070 @ 169521:                     ASSPAR
20071 @ 169522:                     PUSH   INDEX
20072 @ 169525:                     ASSPAR
20073 @ 169526:                     PUSH   BASE
20074 @ 169529:                     ASSPAR
20075 @ 169530:                     CALL  

  3227              REG=NEST %IF REG<0
20076 @ 169531:                     LINE   3227 "regression-compile-tmp/imp918s.imp"
20077 @ 169569:                     PUSH   REG
20078 @ 169572:                     PUSHI  #0x00000000
20079 @ 169577:                     JUMPIF >= L_0007
20080 @ 169581:                     PUSH   REG
20081 @ 169584:                     PUSH   NEST
20082 @ 169587:                     ASSVAL
20083 @ 169588:                     LOCATE L_0007

  3228              FORGET(REG)
20084 @ 169591:                     LINE   3228 "regression-compile-tmp/imp918s.imp"
20085 @ 169629:                     PUSH   FORGET
20086 @ 169632:                     PUSH   REG
20087 @ 169635:                     ASSPAR
20088 @ 169636:                     CALL  

  3229              BASE=REG; INDEX=0;DISP=0
20089 @ 169637:                     LINE   3229 "regression-compile-tmp/imp918s.imp"
20090 @ 169675:                     PUSH   BASE
20091 @ 169678:                     PUSH   REG
20092 @ 169681:                     ASSVAL
20093 @ 169682:                     LINE   3229 "regression-compile-tmp/imp918s.imp"
20094 @ 169720:                     PUSH   INDEX
20095 @ 169723:                     PUSHI  #0x00000000
20096 @ 169728:                     ASSVAL
20097 @ 169729:                     LINE   3229 "regression-compile-tmp/imp918s.imp"
20098 @ 169767:                     PUSH   DISP
20099 @ 169770:                     PUSHI  #0x00000000
20100 @ 169775:                     ASSVAL

  3230           %FINISH
20101 @ 169776:                     LINE   3230 "regression-compile-tmp/imp918s.imp"
20102 @ 169814:                     LOCATE L_0004

  3231           %IF MODE=1 %AND UNASS=1 %THEN %START
20103 @ 169817:                     LINE   3231 "regression-compile-tmp/imp918s.imp"
20104 @ 169855:                     PUSH   MODE
20105 @ 169858:                     PUSHI  #0x00000001
20106 @ 169863:                     JUMPIF # L_0004
20107 @ 169867:                     PUSH   UNASS
20108 @ 169870:                     PUSHI  #0x00000001
20109 @ 169875:                     JUMPIF # L_0004

  3232              DUMPSS(X'D5',2,BASE,DISP,CODER,216);! CLC =X'8080'
20110 @ 169879:                     LINE   3232 "regression-compile-tmp/imp918s.imp"
20111 @ 169917:                     PUSH   DUMPSS
20112 @ 169920:                     PUSHI  #0x000000d5
20113 @ 169925:                     ASSPAR
20114 @ 169926:                     PUSHI  #0x00000002
20115 @ 169931:                     ASSPAR
20116 @ 169932:                     PUSH   BASE
20117 @ 169935:                     ASSPAR
20118 @ 169936:                     PUSH   DISP
20119 @ 169939:                     ASSPAR
20120 @ 169940:                     PUSHI  #0x0000000c
20121 @ 169945:                     ASSPAR
20122 @ 169946:                     PUSHI  #0x000000d8
20123 @ 169951:                     ASSPAR
20124 @ 169952:                     CALL  

  3233              PCONST(X'4780C028');                ! BE UNASS USED
20125 @ 169953:                     LINE   3233 "regression-compile-tmp/imp918s.imp"
20126 @ 169991:                     PUSH   PCONST
20127 @ 169994:                     PUSHI  #0x4780c028
20128 @ 169999:                     ASSPAR
20129 @ 170000:                     CALL  

  3234           %FINISH
20130 @ 170001:                     LINE   3234 "regression-compile-tmp/imp918s.imp"
20131 @ 170039:                     LOCATE L_0004

  3235           %RESULT=0
20132 @ 170042:                     LINE   3235 "regression-compile-tmp/imp918s.imp"
20133 @ 170080:                     PUSHI  #0x00000000
20134 @ 170085:                     RESULT

  3236           %END;                         ! OF INTEGERFN STROP
20135 @ 170086:                     LINE   3236 "regression-compile-tmp/imp918s.imp"
20136 @ 170124:                  END    _lev0id0_CSS_CSTREXP_STROP {lev=4 --> 3}

  3237  Label99:      %END;                         ! OF ROUTINE CSTREXP
20137 @ 170125:                  LINE   3237 "regression-compile-tmp/imp918s.imp"
20138 @ 170163:                  LABEL  L_020f
20139 @ 170166:                  LINE   3237 "regression-compile-tmp/imp918s.imp"
20140 @ 170204:               END    _lev0id0_CSS_CSTREXP {lev=3 --> 2}

  3238           %ROUTINE CRES (%INTEGER LAB)
  3239           {%SHORTROUTINE}
  3240  !**********************************************************************
  3241  !*       COMPILES A RESOLUTION E.G A->B.(C).D.(E).F AND JUMPS TO LAB   *
  3242  !*       ON FAILURE. (LAB=0 FOR UNCONDITIONAL RESOLUTION TO PERM ON    *
  3243  !*       FAILURE ).                                                    *
  3244  !*       THE  METHOD IS TO SET UP A 4 WORD WORK AREA AS FOLLOWS:-      *
  3245  !*       W1  POINTS TO LHS(A)                                          *
  3246  !*       W2  HAS COUNT OF BYTES OF A USED IN PREVIOUS RESOLUTIONS      *
  3247  !*       W3  PRIVATE SPACE FOR PERM                                    *
  3248  !*       W4    STRING TO CONTAIN FRAGMENT (PASSED BY NAME)             *
  3249  !*       PERM IS ENTERED WITH R1 POINTING TO C AND R2 TO W1 AND THE    *
  3250  !*       SUBROUTINE TRIES TO PERFORM THE RESOLUYION AND SETS THE       *
  3251  !*       CONDITION CODE =8 IF IT SUCCEEDS.                             *
  3252  !*                                                                     *
  3253  !*       ON ENTRY LHS IS DEFINED BY DISP,INDEX AND BASE.               *
  3254  !*       P POINTS TO P(+') OF RHS DEFINED AS (+')(OPERAND)(RESTOFEXP)  *
  3255  !*                                                                     *
  3256  !$       THE ROUTINE IS COMPACT BUT DIFFICULT TO FOLLOW (OR ALTER)     *
  3257  !*       THE TIME IN PERM IS LARGE SO IT IS NOT WORTHWHILE TO PERSUE   *
  3258  !*       CODE EFFICIENCY TOO INDUSTRIOUSLY .                           *
  3259  !**********************************************************************
20141 @ 170205:               LINE   3238 "regression-compile-tmp/imp918s.imp"
20142 @ 170243:               DEF    CRES (_lev0id0_CSS_CRES) p1=V_018d 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
20143 @ 170259:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
20144 @ 170260:                     DEF    LAB p1=V_01ff 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
20145 @ 170275:                  FINISH ) {lev=3}

  3260           %INTEGER P1,P2,R1,R2,SEXPRN,W,LAST
20146 @ 170276:                  LINE   3260 "regression-compile-tmp/imp918s.imp"
20147 @ 170314:                  DEF    P1 p1=V_0200 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
20148 @ 170328:                  DEF    P2 p1=V_0201 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
20149 @ 170342:                  DEF    R1 p1=V_0202 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
20150 @ 170356:                  DEF    R2 p1=V_0203 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
20151 @ 170370:                  DEF    SEXPRN p1=V_0204 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
20152 @ 170388:                  DEF    W p1=V_0205 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
20153 @ 170401:                  DEF    LAST p1=V_0206 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

  3261           LAST=0;                       ! =1 WHEN END OF EXPRNSN FOUND
20154 @ 170417:                  LINE   3261 "regression-compile-tmp/imp918s.imp"
20155 @ 170455:                  PUSH   LAST
20156 @ 170458:                  PUSHI  #0x00000000
20157 @ 170463:                  ASSVAL

  3262           SEXPRN=0;                     ! RESOLUTION(BRKTD) EXPRESSNS
20158 @ 170464:                  LINE   3262 "regression-compile-tmp/imp918s.imp"
20159 @ 170502:                  PUSH   SEXPRN
20160 @ 170505:                  PUSHI  #0x00000000
20161 @ 170510:                  ASSVAL

  3263           GET WSP(W,4);                 ! 4 WORD WORK AREA FOR W1-W4
20162 @ 170511:                  LINE   3263 "regression-compile-tmp/imp918s.imp"
20163 @ 170549:                  PUSH   GETWSP
20164 @ 170552:                  PUSH   W
20165 @ 170555:                  ASSPAR
20166 @ 170556:                  PUSHI  #0x00000004
20167 @ 170561:                  ASSPAR
20168 @ 170562:                  CALL  

  3264           P1=P; P=P+2
20169 @ 170563:                  LINE   3264 "regression-compile-tmp/imp918s.imp"
20170 @ 170601:                  PUSH   P1
20171 @ 170604:                  PUSH   P
20172 @ 170607:                  ASSVAL
20173 @ 170608:                  LINE   3264 "regression-compile-tmp/imp918s.imp"
20174 @ 170646:                  PUSH   P
20175 @ 170649:                  PUSH   P
20176 @ 170652:                  PUSHI  #0x00000002
20177 @ 170657:                  ADD   
20178 @ 170658:                  ASSVAL

  3265           ->Label1 %IF A(P)=4 %AND TYPE=5;   ! LHS MUST BE A STRING
20179 @ 170659:                  LINE   3265 "regression-compile-tmp/imp918s.imp"
20180 @ 170697:                  PUSH   A
20181 @ 170700:                  PUSH   P
20182 @ 170703:                  ACCESS
20183 @ 170704:                  PUSHI  #0x00000004
20184 @ 170709:                  JUMPIF # L_0004
20185 @ 170713:                  PUSH   TYPE
20186 @ 170716:                  PUSHI  #0x00000005
20187 @ 170721:                  JUMPIF # L_0004
20188 @ 170725:                  JUMP   L_0207
20189 @ 170728:                  LOCATE L_0004

  3266  ERROR:   P=P1; SKIP EXP
20190 @ 170731:                  LINE   3266 "regression-compile-tmp/imp918s.imp"
20191 @ 170769:                  LABEL  L_0208
20192 @ 170772:                  LINE   3266 "regression-compile-tmp/imp918s.imp"
20193 @ 170810:                  PUSH   P
20194 @ 170813:                  PUSH   P1
20195 @ 170816:                  ASSVAL
20196 @ 170817:                  LINE   3266 "regression-compile-tmp/imp918s.imp"
20197 @ 170855:                  PUSH   SKIPEXP
20198 @ 170858:                  CALL  

  3267           FAULT(74,0); ->Label99
20199 @ 170859:                  LINE   3267 "regression-compile-tmp/imp918s.imp"
20200 @ 170897:                  PUSH   FAULT
20201 @ 170900:                  PUSHI  #0x0000004a
20202 @ 170905:                  ASSPAR
20203 @ 170906:                  PUSHI  #0x00000000
20204 @ 170911:                  ASSPAR
20205 @ 170912:                  CALL  
20206 @ 170913:                  LINE   3267 "regression-compile-tmp/imp918s.imp"
20207 @ 170951:                  JUMP   L_0209

  3268  Label1:       FIND SEQ(R1,R2);              ! 2 ADJACENT REGISTERS
20208 @ 170954:                  LINE   3268 "regression-compile-tmp/imp918s.imp"
20209 @ 170992:                  LABEL  L_0207
20210 @ 170995:                  LINE   3268 "regression-compile-tmp/imp918s.imp"
20211 @ 171033:                  PUSH   FINDSEQ
20212 @ 171036:                  PUSH   R1
20213 @ 171039:                  ASSPAR
20214 @ 171040:                  PUSH   R2
20215 @ 171043:                  ASSPAR
20216 @ 171044:                  CALL  

  3269           DUMP(0,R1,DISP,INDEX,BASE);   ! ADDR LHS
20217 @ 171045:                  LINE   3269 "regression-compile-tmp/imp918s.imp"
20218 @ 171083:                  PUSH   DUMP
20219 @ 171086:                  PUSHI  #0x00000000
20220 @ 171091:                  ASSPAR
20221 @ 171092:                  PUSH   R1
20222 @ 171095:                  ASSPAR
20223 @ 171096:                  PUSH   DISP
20224 @ 171099:                  ASSPAR
20225 @ 171100:                  PUSH   INDEX
20226 @ 171103:                  ASSPAR
20227 @ 171104:                  PUSH   BASE
20228 @ 171107:                  ASSPAR
20229 @ 171108:                  CALL  

  3270           REGISTER(R1)=1
20230 @ 171109:                  LINE   3270 "regression-compile-tmp/imp918s.imp"
20231 @ 171147:                  PUSH   REGISTER
20232 @ 171150:                  PUSH   R1
20233 @ 171153:                  ACCESS
20234 @ 171154:                  PUSHI  #0x00000001
20235 @ 171159:                  ASSVAL

  3271           PRR(X'1B',R2,R2);             ! ZERO R2
20236 @ 171160:                  LINE   3271 "regression-compile-tmp/imp918s.imp"
20237 @ 171198:                  PUSH   PRR
20238 @ 171201:                  PUSHI  #0x0000001b
20239 @ 171206:                  ASSPAR
20240 @ 171207:                  PUSH   R2
20241 @ 171210:                  ASSPAR
20242 @ 171211:                  PUSH   R2
20243 @ 171214:                  ASSPAR
20244 @ 171215:                  CALL  

  3272           REGISTER(R2)=1
20245 @ 171216:                  LINE   3272 "regression-compile-tmp/imp918s.imp"
20246 @ 171254:                  PUSH   REGISTER
20247 @ 171257:                  PUSH   R2
20248 @ 171260:                  ACCESS
20249 @ 171261:                  PUSHI  #0x00000001
20250 @ 171266:                  ASSVAL

  3273           DUMPM(X'90',R1,R2,RBASE,W);   ! SET W1 & W2
20251 @ 171267:                  LINE   3273 "regression-compile-tmp/imp918s.imp"
20252 @ 171305:                  PUSH   DUMPM
20253 @ 171308:                  PUSHI  #0x00000090
20254 @ 171313:                  ASSPAR
20255 @ 171314:                  PUSH   R1
20256 @ 171317:                  ASSPAR
20257 @ 171318:                  PUSH   R2
20258 @ 171321:                  ASSPAR
20259 @ 171322:                  PUSH   RBASE
20260 @ 171325:                  ASSPAR
20261 @ 171326:                  PUSH   W
20262 @ 171329:                  ASSPAR
20263 @ 171330:                  CALL  

  3274           FREE AND FORGET(R1)
20264 @ 171331:                  LINE   3274 "regression-compile-tmp/imp918s.imp"
20265 @ 171369:                  PUSH   FREEANDFORGET
20266 @ 171372:                  PUSH   R1
20267 @ 171375:                  ASSPAR
20268 @ 171376:                  CALL  

  3275           FREE AND FORGET(R2)
20269 @ 171377:                  LINE   3275 "regression-compile-tmp/imp918s.imp"
20270 @ 171415:                  PUSH   FREEANDFORGET
20271 @ 171418:                  PUSH   R2
20272 @ 171421:                  ASSPAR
20273 @ 171422:                  CALL  

  3276  RES:     P=P+1;                        ! TO P(OPERAND)
20274 @ 171423:                  LINE   3276 "regression-compile-tmp/imp918s.imp"
20275 @ 171461:                  LABEL  L_020a
20276 @ 171464:                  LINE   3276 "regression-compile-tmp/imp918s.imp"
20277 @ 171502:                  PUSH   P
20278 @ 171505:                  PUSH   P
20279 @ 171508:                  PUSHI  #0x00000001
20280 @ 171513:                  ADD   
20281 @ 171514:                  ASSVAL

  3277           P2=-1;                        ! B OMITTED (>0 IF B GIVEN)
  3278  !
  3279  ! THE CODING HERAFTER IS OBSCURE. NOTE HOWEVER:-
  3280  !        1)  IF B OMITTED THEN 0(WSPR) IS PASSED AS ADDR(B)
  3281  !        2)  THE LAST STRING F IS TREATED AS B OR D BUT PERM29 IS
  3282  !              USED INSTEAD OF PERM 28
  3283  !
20282 @ 171515:                  LINE   3277 "regression-compile-tmp/imp918s.imp"
20283 @ 171553:                  PUSH   P2
20284 @ 171556:                  PUSHI  #0x00000001
20285 @ 171561:                  NEGATE
20286 @ 171562:                  ASSVAL

  3284           %IF A(P)=3 %THEN NEST=WSPR %ELSE %START;! B OMITTED
20287 @ 171563:                  LINE   3284 "regression-compile-tmp/imp918s.imp"
20288 @ 171601:                  PUSH   A
20289 @ 171604:                  PUSH   P
20290 @ 171607:                  ACCESS
20291 @ 171608:                  PUSHI  #0x00000003
20292 @ 171613:                  JUMPIF # L_0004
20293 @ 171617:                  PUSH   NEST
20294 @ 171620:                  PUSHI  #0x0000000b
20295 @ 171625:                  ASSVAL
20296 @ 171626:                  GOTO   L_0003
20297 @ 171629:                  LOCATE L_0004

  3285              ->ERROR %UNLESS A(P)=1;       ! P(OPERAND)=NAME
20298 @ 171632:                  LINE   3285 "regression-compile-tmp/imp918s.imp"
20299 @ 171670:                  PUSH   A
20300 @ 171673:                  PUSH   P
20301 @ 171676:                  ACCESS
20302 @ 171677:                  PUSHI  #0x00000001
20303 @ 171682:                  JUMPIF = L_0007
20304 @ 171686:                  JUMP   L_0208
20305 @ 171689:                  LOCATE L_0007

  3286              P=P+1; P2=P
  3287  !
  3288  !        NORMALLY CNAME(3,REG) USED TO PASS B BY NAME TO PERM
  3289  !        IN OPTIMISING DONT WASTE TIME SETTING FLAGS BYTE INTO ADDRESS
  3290  !        SO USE CNAME(4,REG). PERM SKIPS CHECK IF FLAGS MISSING
  3291  !
20306 @ 171692:                  LINE   3286 "regression-compile-tmp/imp918s.imp"
20307 @ 171730:                  PUSH   P
20308 @ 171733:                  PUSH   P
20309 @ 171736:                  PUSHI  #0x00000001
20310 @ 171741:                  ADD   
20311 @ 171742:                  ASSVAL
20312 @ 171743:                  LINE   3286 "regression-compile-tmp/imp918s.imp"
20313 @ 171781:                  PUSH   P2
20314 @ 171784:                  PUSH   P
20315 @ 171787:                  ASSVAL

  3292              CNAME(4-CHECKSP,-2)
20316 @ 171788:                  LINE   3292 "regression-compile-tmp/imp918s.imp"
20317 @ 171826:                  PUSH   CNAME
20318 @ 171829:                  PUSHI  #0x00000004
20319 @ 171834:                  PUSH   CHECKSP
20320 @ 171837:                  SUB   
20321 @ 171838:                  ASSPAR
20322 @ 171839:                  PUSHI  #0x00000002
20323 @ 171844:                  NEGATE
20324 @ 171845:                  ASSPAR
20325 @ 171846:                  CALL  

  3293              ->ERROR %UNLESS TYPE=5
20326 @ 171847:                  LINE   3293 "regression-compile-tmp/imp918s.imp"
20327 @ 171885:                  PUSH   TYPE
20328 @ 171888:                  PUSHI  #0x00000005
20329 @ 171893:                  JUMPIF = L_0007
20330 @ 171897:                  JUMP   L_0208
20331 @ 171900:                  LOCATE L_0007

  3294              %IF A(P)=2 %AND SEXPRN>0 %THEN LAST=1 %ELSE %START
20332 @ 171903:                  LINE   3294 "regression-compile-tmp/imp918s.imp"
20333 @ 171941:                  PUSH   A
20334 @ 171944:                  PUSH   P
20335 @ 171947:                  ACCESS
20336 @ 171948:                  PUSHI  #0x00000002
20337 @ 171953:                  JUMPIF # L_0007
20338 @ 171957:                  PUSH   SEXPRN
20339 @ 171960:                  PUSHI  #0x00000000
20340 @ 171965:                  JUMPIF <= L_0007
20341 @ 171969:                  PUSH   LAST
20342 @ 171972:                  PUSHI  #0x00000001
20343 @ 171977:                  ASSVAL
20344 @ 171978:                  GOTO   L_0006
20345 @ 171981:                  LOCATE L_0007

  3295                 ->ERROR %UNLESS A(P+1)=12;! DOT OPERATOR
20346 @ 171984:                  LINE   3295 "regression-compile-tmp/imp918s.imp"
20347 @ 172022:                  PUSH   A
20348 @ 172025:                  PUSH   P
20349 @ 172028:                  PUSHI  #0x00000001
20350 @ 172033:                  ADD   
20351 @ 172034:                  ACCESS
20352 @ 172035:                  PUSHI  #0x0000000c
20353 @ 172040:                  JUMPIF = L_000a
20354 @ 172044:                  JUMP   L_0208
20355 @ 172047:                  LOCATE L_000a

  3296                 P=P+2
20356 @ 172050:                  LINE   3296 "regression-compile-tmp/imp918s.imp"
20357 @ 172088:                  PUSH   P
20358 @ 172091:                  PUSH   P
20359 @ 172094:                  PUSHI  #0x00000002
20360 @ 172099:                  ADD   
20361 @ 172100:                  ASSVAL

  3297              %FINISH
20362 @ 172101:                  LINE   3297 "regression-compile-tmp/imp918s.imp"
20363 @ 172139:                  LOCATE L_0006

  3298           %FINISH
20364 @ 172142:                  LINE   3298 "regression-compile-tmp/imp918s.imp"
20365 @ 172180:                  LOCATE L_0003

  3299           REGISTER(NEST)=1 %IF REGISTER(NEST)=0;! IN CASE 4K MULTIPLE REQD
20366 @ 172183:                  LINE   3299 "regression-compile-tmp/imp918s.imp"
20367 @ 172221:                  PUSH   REGISTER
20368 @ 172224:                  PUSH   NEST
20369 @ 172227:                  ACCESS
20370 @ 172228:                  PUSHI  #0x00000000
20371 @ 172233:                  JUMPIF # L_0004
20372 @ 172237:                  PUSH   REGISTER
20373 @ 172240:                  PUSH   NEST
20374 @ 172243:                  ACCESS
20375 @ 172244:                  PUSHI  #0x00000001
20376 @ 172249:                  ASSVAL
20377 @ 172250:                  LOCATE L_0004

  3300           DUMP(X'50',NEST,W+12,0,RBASE);! B (OR DUMMY) TO W4
20378 @ 172253:                  LINE   3300 "regression-compile-tmp/imp918s.imp"
20379 @ 172291:                  PUSH   DUMP
20380 @ 172294:                  PUSHI  #0x00000050
20381 @ 172299:                  ASSPAR
20382 @ 172300:                  PUSH   NEST
20383 @ 172303:                  ASSPAR
20384 @ 172304:                  PUSH   W
20385 @ 172307:                  PUSHI  #0x0000000c
20386 @ 172312:                  ADD   
20387 @ 172313:                  ASSPAR
20388 @ 172314:                  PUSHI  #0x00000000
20389 @ 172319:                  ASSPAR
20390 @ 172320:                  PUSH   RBASE
20391 @ 172323:                  ASSPAR
20392 @ 172324:                  CALL  

  3301           REGISTER(NEST)=0 %IF REGISTER(NEST)>0; ! NB NEST CAN BE R11 HERE!
20393 @ 172325:                  LINE   3301 "regression-compile-tmp/imp918s.imp"
20394 @ 172363:                  PUSH   REGISTER
20395 @ 172366:                  PUSH   NEST
20396 @ 172369:                  ACCESS
20397 @ 172370:                  PUSHI  #0x00000000
20398 @ 172375:                  JUMPIF <= L_0004
20399 @ 172379:                  PUSH   REGISTER
20400 @ 172382:                  PUSH   NEST
20401 @ 172385:                  ACCESS
20402 @ 172386:                  PUSHI  #0x00000000
20403 @ 172391:                  ASSVAL
20404 @ 172392:                  LOCATE L_0004

  3302           %IF LAST=0 %THEN %START
20405 @ 172395:                  LINE   3302 "regression-compile-tmp/imp918s.imp"
20406 @ 172433:                  PUSH   LAST
20407 @ 172436:                  PUSHI  #0x00000000
20408 @ 172441:                  JUMPIF # L_0004

  3303              ->ERROR %UNLESS A(P)=3;    ! P(OPERAND)='('(EXPR)')'
20409 @ 172445:                  LINE   3303 "regression-compile-tmp/imp918s.imp"
20410 @ 172483:                  PUSH   A
20411 @ 172486:                  PUSH   P
20412 @ 172489:                  ACCESS
20413 @ 172490:                  PUSHI  #0x00000003
20414 @ 172495:                  JUMPIF = L_0007
20415 @ 172499:                  JUMP   L_0208
20416 @ 172502:                  LOCATE L_0007

  3304              SEXPRN=SEXPRN+1; P=P+1
20417 @ 172505:                  LINE   3304 "regression-compile-tmp/imp918s.imp"
20418 @ 172543:                  PUSH   SEXPRN
20419 @ 172546:                  PUSH   SEXPRN
20420 @ 172549:                  PUSHI  #0x00000001
20421 @ 172554:                  ADD   
20422 @ 172555:                  ASSVAL
20423 @ 172556:                  LINE   3304 "regression-compile-tmp/imp918s.imp"
20424 @ 172594:                  PUSH   P
20425 @ 172597:                  PUSH   P
20426 @ 172600:                  PUSHI  #0x00000001
20427 @ 172605:                  ADD   
20428 @ 172606:                  ASSVAL

  3305              CSTREXP(1,1);              ! TO REGISTER 1
20429 @ 172607:                  LINE   3305 "regression-compile-tmp/imp918s.imp"
20430 @ 172645:                  PUSH   CSTREXP
20431 @ 172648:                  PUSHI  #0x00000001
20432 @ 172653:                  ASSPAR
20433 @ 172654:                  PUSHI  #0x00000001
20434 @ 172659:                  ASSPAR
20435 @ 172660:                  CALL  

  3306           %FINISH
  3307  !
20436 @ 172661:                  LINE   3306 "regression-compile-tmp/imp918s.imp"
20437 @ 172699:                  LOCATE L_0004

  3308           REGISTER(1)=1
20438 @ 172702:                  LINE   3308 "regression-compile-tmp/imp918s.imp"
20439 @ 172740:                  PUSH   REGISTER
20440 @ 172743:                  PUSHI  #0x00000001
20441 @ 172748:                  ACCESS
20442 @ 172749:                  PUSHI  #0x00000001
20443 @ 172754:                  ASSVAL

  3309           DUMP(0,2,W,0,RBASE) %UNLESS GRUSE(2)=16 %AND GRINF(2)=W
20444 @ 172755:                  LINE   3309 "regression-compile-tmp/imp918s.imp"
20445 @ 172793:                  PUSH   GRUSE
20446 @ 172796:                  PUSHI  #0x00000002
20447 @ 172801:                  ACCESS
20448 @ 172802:                  PUSHI  #0x00000010
20449 @ 172807:                  JUMPIF # L_0005
20450 @ 172811:                  PUSH   GRINF
20451 @ 172814:                  PUSHI  #0x00000002
20452 @ 172819:                  ACCESS
20453 @ 172820:                  PUSH   W
20454 @ 172823:                  JUMPIF = L_0004
20455 @ 172827:                  LOCATE L_0005
20456 @ 172830:                  PUSH   DUMP
20457 @ 172833:                  PUSHI  #0x00000000
20458 @ 172838:                  ASSPAR
20459 @ 172839:                  PUSHI  #0x00000002
20460 @ 172844:                  ASSPAR
20461 @ 172845:                  PUSH   W
20462 @ 172848:                  ASSPAR
20463 @ 172849:                  PUSHI  #0x00000000
20464 @ 172854:                  ASSPAR
20465 @ 172855:                  PUSH   RBASE
20466 @ 172858:                  ASSPAR
20467 @ 172859:                  CALL  
20468 @ 172860:                  LOCATE L_0004

  3310           REGISTER(1)=0
20469 @ 172863:                  LINE   3310 "regression-compile-tmp/imp918s.imp"
20470 @ 172901:                  PUSH   REGISTER
20471 @ 172904:                  PUSHI  #0x00000001
20472 @ 172909:                  ACCESS
20473 @ 172910:                  PUSHI  #0x00000000
20474 @ 172915:                  ASSVAL

  3311           PPJ(LAST+28);                 ! 28 TO RESOLVE 29 TO FINISH OFF
20475 @ 172916:                  LINE   3311 "regression-compile-tmp/imp918s.imp"
20476 @ 172954:                  PUSH   PPJ
20477 @ 172957:                  PUSH   LAST
20478 @ 172960:                  PUSHI  #0x0000001c
20479 @ 172965:                  ADD   
20480 @ 172966:                  ASSPAR
20481 @ 172967:                  CALL  

  3312           SET USE(2,16,W);              ! USE 16='HOLDS RESLN PARAM'
20482 @ 172968:                  LINE   3312 "regression-compile-tmp/imp918s.imp"
20483 @ 173006:                  PUSH   SETUSE
20484 @ 173009:                  PUSHI  #0x00000002
20485 @ 173014:                  ASSPAR
20486 @ 173015:                  PUSHI  #0x00000010
20487 @ 173020:                  ASSPAR
20488 @ 173021:                  PUSH   W
20489 @ 173024:                  ASSPAR
20490 @ 173025:                  CALL  

  3313           -> END %IF LAST#0
20491 @ 173026:                  LINE   3313 "regression-compile-tmp/imp918s.imp"
20492 @ 173064:                  PUSH   LAST
20493 @ 173067:                  PUSHI  #0x00000000
20494 @ 173072:                  JUMPIF = L_0004
20495 @ 173076:                  JUMP   L_020b
20496 @ 173079:                  LOCATE L_0004

  3314  FTEST:                                 ! DEAL WITH CC#8 IE RESLN FAILED
20497 @ 173082:                  LINE   3314 "regression-compile-tmp/imp918s.imp"
20498 @ 173120:                  LABEL  L_020c

  3315           %IF LAB#0 %THEN ENTER JUMP(7,LAB,B'11') %ELSE %START
20499 @ 173123:                  LINE   3315 "regression-compile-tmp/imp918s.imp"
20500 @ 173161:                  PUSH   LAB
20501 @ 173164:                  PUSHI  #0x00000000
20502 @ 173169:                  JUMPIF = L_0004
20503 @ 173173:                  PUSH   ENTERJUMP
20504 @ 173176:                  PUSHI  #0x00000007
20505 @ 173181:                  ASSPAR
20506 @ 173182:                  PUSH   LAB
20507 @ 173185:                  ASSPAR
20508 @ 173186:                  PUSHI  #0x00000003
20509 @ 173191:                  ASSPAR
20510 @ 173192:                  CALL  
20511 @ 173193:                  GOTO   L_0003
20512 @ 173196:                  LOCATE L_0004

  3316              PCONST(X'4770C098')
20513 @ 173199:                  LINE   3316 "regression-compile-tmp/imp918s.imp"
20514 @ 173237:                  PUSH   PCONST
20515 @ 173240:                  PUSHI  #0x4770c098
20516 @ 173245:                  ASSPAR
20517 @ 173246:                  CALL  

  3317              CYC BITS=CYC BITS!4;       ! JUMP TO PERM BIT
20518 @ 173247:                  LINE   3317 "regression-compile-tmp/imp918s.imp"
20519 @ 173285:                  PUSH   CYCBITS
20520 @ 173288:                  PUSH   CYCBITS
20521 @ 173291:                  PUSHI  #0x00000004
20522 @ 173296:                  OR    
20523 @ 173297:                  ASSVAL

  3318           %FINISH
  3319  !
20524 @ 173298:                  LINE   3318 "regression-compile-tmp/imp918s.imp"
20525 @ 173336:                  LOCATE L_0003

  3320           %IF P2<0 %THEN %START;        ! B WAS OMIITED SO CHECK THAT
20526 @ 173339:                  LINE   3320 "regression-compile-tmp/imp918s.imp"
20527 @ 173377:                  PUSH   P2
20528 @ 173380:                  PUSHI  #0x00000000
20529 @ 173385:                  JUMPIF >= L_0004

  3321           PSI(X'95',0,WSPR,0);          ! B WOULD HAVE BEEN NULL
20530 @ 173389:                  LINE   3321 "regression-compile-tmp/imp918s.imp"
20531 @ 173427:                  PUSH   PSI
20532 @ 173430:                  PUSHI  #0x00000095
20533 @ 173435:                  ASSPAR
20534 @ 173436:                  PUSHI  #0x00000000
20535 @ 173441:                  ASSPAR
20536 @ 173442:                  PUSHI  #0x0000000b
20537 @ 173447:                  ASSPAR
20538 @ 173448:                  PUSHI  #0x00000000
20539 @ 173453:                  ASSPAR
20540 @ 173454:                  CALL  

  3322           P2=1; ->FTEST; %FINISH
  3323  !
20541 @ 173455:                  LINE   3322 "regression-compile-tmp/imp918s.imp"
20542 @ 173493:                  PUSH   P2
20543 @ 173496:                  PUSHI  #0x00000001
20544 @ 173501:                  ASSVAL
20545 @ 173502:                  LINE   3322 "regression-compile-tmp/imp918s.imp"
20546 @ 173540:                  JUMP   L_020c
20547 @ 173543:                  LINE   3322 "regression-compile-tmp/imp918s.imp"
20548 @ 173581:                  LOCATE L_0004

  3324           -> END %IF A(P)=2
20549 @ 173584:                  LINE   3324 "regression-compile-tmp/imp918s.imp"
20550 @ 173622:                  PUSH   A
20551 @ 173625:                  PUSH   P
20552 @ 173628:                  ACCESS
20553 @ 173629:                  PUSHI  #0x00000002
20554 @ 173634:                  JUMPIF # L_0004
20555 @ 173638:                  JUMP   L_020b
20556 @ 173641:                  LOCATE L_0004

  3325           ->ERROR %UNLESS A(P+1)=12
20557 @ 173644:                  LINE   3325 "regression-compile-tmp/imp918s.imp"
20558 @ 173682:                  PUSH   A
20559 @ 173685:                  PUSH   P
20560 @ 173688:                  PUSHI  #0x00000001
20561 @ 173693:                  ADD   
20562 @ 173694:                  ACCESS
20563 @ 173695:                  PUSHI  #0x0000000c
20564 @ 173700:                  JUMPIF = L_0004
20565 @ 173704:                  JUMP   L_0208
20566 @ 173707:                  LOCATE L_0004

  3326           P=P+1; ->RES
20567 @ 173710:                  LINE   3326 "regression-compile-tmp/imp918s.imp"
20568 @ 173748:                  PUSH   P
20569 @ 173751:                  PUSH   P
20570 @ 173754:                  PUSHI  #0x00000001
20571 @ 173759:                  ADD   
20572 @ 173760:                  ASSVAL
20573 @ 173761:                  LINE   3326 "regression-compile-tmp/imp918s.imp"
20574 @ 173799:                  JUMP   L_020a

  3327  END:
20575 @ 173802:                  LINE   3327 "regression-compile-tmp/imp918s.imp"
20576 @ 173840:                  LABEL  L_020b

  3328           P=P+1
20577 @ 173843:                  LINE   3328 "regression-compile-tmp/imp918s.imp"
20578 @ 173881:                  PUSH   P
20579 @ 173884:                  PUSH   P
20580 @ 173887:                  PUSHI  #0x00000001
20581 @ 173892:                  ADD   
20582 @ 173893:                  ASSVAL

  3329  Label99:      %END
20583 @ 173894:                  LINE   3329 "regression-compile-tmp/imp918s.imp"
20584 @ 173932:                  LABEL  L_0209
20585 @ 173935:                  LINE   3329 "regression-compile-tmp/imp918s.imp"
20586 @ 173973:               END    _lev0id0_CSS_CRES {lev=3 --> 2}

  3330           %ROUTINE CUCI
  3331           {%SHORTROUTINE}
  3332  !***********************************************************************
  3333  !*       COMPILE USERCODE INSTRUCTION. MOST WORK IS DONE BY HAIRY      *
  3334  !*       BUILT-IN PHRASE IN COMPARE. SINCE ALMOST ANYTHING IS LEGAL    *
  3335  !*       IN USERCODE THIS ROUTINE HAS ONLT TO ASSEMBLE AND PLANT THE   *
  3336  !*       THE INSTRUCTION.                                              *
  3337  !***********************************************************************
20587 @ 173974:               LINE   3330 "regression-compile-tmp/imp918s.imp"
20588 @ 174012:               DEF    CUCI (_lev0id0_CSS_CUCI) p1=V_019b 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
20589 @ 174028:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
20590 @ 174029:                  FINISH ) {lev=3}

  3338           %ROUTINESPEC DXB
20591 @ 174030:                  LINE   3338 "regression-compile-tmp/imp918s.imp"
20592 @ 174068:                  DEF    DXB (_lev0id0_CSS_CUCI_DXB) p1=V_01ff 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
20593 @ 174083:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
20594 @ 174084:                  FINISH ) {lev=3}

  3339           %ROUTINESPEC DLB
20595 @ 174085:                  LINE   3339 "regression-compile-tmp/imp918s.imp"
20596 @ 174123:                  DEF    DLB (_lev0id0_CSS_CUCI_DLB) p1=V_0200 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
20597 @ 174138:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
20598 @ 174139:                  FINISH ) {lev=3}

  3340           %ROUTINESPEC DB
20599 @ 174140:                  LINE   3340 "regression-compile-tmp/imp918s.imp"
20600 @ 174178:                  DEF    DB (_lev0id0_CSS_CUCI_DB) p1=V_0201 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
20601 @ 174192:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
20602 @ 174193:                  FINISH ) {lev=3}

  3341           %ROUTINESPEC CUCS
20603 @ 174194:                  LINE   3341 "regression-compile-tmp/imp918s.imp"
20604 @ 174232:                  DEF    CUCS (_lev0id0_CSS_CUCI_CUCS) p1=V_0202 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
20605 @ 174248:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
20606 @ 174249:                  FINISH ) {lev=3}

  3342           %OWNINTEGER USING,AT
20607 @ 174250:                  LINE   3342 "regression-compile-tmp/imp918s.imp"
20608 @ 174288:                  DEF    USING p1=V_0203 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
20609 @ 174305:                  INIT   1
20610 @ 174308:                  DEF    AT p1=V_0204 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
20611 @ 174322:                  INIT   1

  3343           %INTEGER Z,KK,X,OPCODE,REG,OPNUM
20612 @ 174325:                  LINE   3343 "regression-compile-tmp/imp918s.imp"
20613 @ 174363:                  DEF    Z p1=V_0205 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
20614 @ 174376:                  DEF    KK p1=V_0206 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
20615 @ 174390:                  DEF    X p1=V_0207 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
20616 @ 174403:                  DEF    OPCODE p1=V_0208 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
20617 @ 174421:                  DEF    REG p1=V_0209 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
20618 @ 174436:                  DEF    OPNUM p1=V_020a 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

  3344           %SWITCH UCITYPE(1:6),OPTYPE(1:8)
20619 @ 174453:                  LINE   3344 "regression-compile-tmp/imp918s.imp"
20620 @ 174491:                  PUSHI  #0x00000001
20621 @ 174496:                  PUSHI  #0x00000006
20622 @ 174501:                  BOUNDS
20623 @ 174502:                  DEF    UCITYPE p1=V_020b a/tf=6 b/format=0 c/ostate=0  type=0 (<type:0>) form=6 (switch) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
20624 @ 174521:                  PUSHI  #0x00000001
20625 @ 174526:                  PUSHI  #0x00000008
20626 @ 174531:                  BOUNDS
20627 @ 174532:                  DEF    OPTYPE p1=V_020c a/tf=6 b/format=0 c/ostate=0  type=0 (<type:0>) form=6 (switch) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  3345           CCSTATE=-1
20628 @ 174550:                  LINE   3345 "regression-compile-tmp/imp918s.imp"
20629 @ 174588:                  PUSH   CCSTATE
20630 @ 174591:                  PUSHI  #0x00000001
20631 @ 174596:                  NEGATE
20632 @ 174597:                  ASSVAL

  3346           FORGETM(8);                  ! ALL UC INSTRNS DANGEROUS
20633 @ 174598:                  LINE   3346 "regression-compile-tmp/imp918s.imp"
20634 @ 174636:                  PUSH   FORGETM
20635 @ 174639:                  PUSHI  #0x00000008
20636 @ 174644:                  ASSPAR
20637 @ 174645:                  CALL  

  3347           -> UCITYPE(A(P))
20638 @ 174646:                  LINE   3347 "regression-compile-tmp/imp918s.imp"
20639 @ 174684:                  PUSH   A
20640 @ 174687:                  PUSH   P
20641 @ 174690:                  ACCESS
20642 @ 174691:                  SJUMP  523

  3348  UCITYPE(1):                           ! **(N),(@')(NAME)(APP)
20643 @ 174694:                  LINE   3348 "regression-compile-tmp/imp918s.imp"
20644 @ 174732:                  PUSHI  #0x00000001
20645 @ 174737:                  SLABEL 523

  3349           NEST=A(P+1); Z=A(P+2); P=P+3
20646 @ 174740:                  LINE   3349 "regression-compile-tmp/imp918s.imp"
20647 @ 174778:                  PUSH   NEST
20648 @ 174781:                  PUSH   A
20649 @ 174784:                  PUSH   P
20650 @ 174787:                  PUSHI  #0x00000001
20651 @ 174792:                  ADD   
20652 @ 174793:                  ACCESS
20653 @ 174794:                  ASSVAL
20654 @ 174795:                  LINE   3349 "regression-compile-tmp/imp918s.imp"
20655 @ 174833:                  PUSH   Z
20656 @ 174836:                  PUSH   A
20657 @ 174839:                  PUSH   P
20658 @ 174842:                  PUSHI  #0x00000002
20659 @ 174847:                  ADD   
20660 @ 174848:                  ACCESS
20661 @ 174849:                  ASSVAL
20662 @ 174850:                  LINE   3349 "regression-compile-tmp/imp918s.imp"
20663 @ 174888:                  PUSH   P
20664 @ 174891:                  PUSH   P
20665 @ 174894:                  PUSHI  #0x00000003
20666 @ 174899:                  ADD   
20667 @ 174900:                  ASSVAL

  3350           Z=4 %IF Z=1; CNAME(Z,NEST)
20668 @ 174901:                  LINE   3350 "regression-compile-tmp/imp918s.imp"
20669 @ 174939:                  PUSH   Z
20670 @ 174942:                  PUSHI  #0x00000001
20671 @ 174947:                  JUMPIF # L_0004
20672 @ 174951:                  PUSH   Z
20673 @ 174954:                  PUSHI  #0x00000004
20674 @ 174959:                  ASSVAL
20675 @ 174960:                  LOCATE L_0004
20676 @ 174963:                  LINE   3350 "regression-compile-tmp/imp918s.imp"
20677 @ 175001:                  PUSH   CNAME
20678 @ 175004:                  PUSH   Z
20679 @ 175007:                  ASSPAR
20680 @ 175008:                  PUSH   NEST
20681 @ 175011:                  ASSPAR
20682 @ 175012:                  CALL  

  3351           ->Label99
20683 @ 175013:                  LINE   3351 "regression-compile-tmp/imp918s.imp"
20684 @ 175051:                  JUMP   L_020d

  3352  UCITYPE(2):                           ! *-> P<N> =JUMP TO PERM
20685 @ 175054:                  LINE   3352 "regression-compile-tmp/imp918s.imp"
20686 @ 175092:                  PUSHI  #0x00000002
20687 @ 175097:                  SLABEL 523

  3353           PPJ(A(P+1)); ->Label99
20688 @ 175100:                  LINE   3353 "regression-compile-tmp/imp918s.imp"
20689 @ 175138:                  PUSH   PPJ
20690 @ 175141:                  PUSH   A
20691 @ 175144:                  PUSH   P
20692 @ 175147:                  PUSHI  #0x00000001
20693 @ 175152:                  ADD   
20694 @ 175153:                  ACCESS
20695 @ 175154:                  ASSPAR
20696 @ 175155:                  CALL  
20697 @ 175156:                  LINE   3353 "regression-compile-tmp/imp918s.imp"
20698 @ 175194:                  JUMP   L_020d

  3354  UCITYPE(4):                           ! *PUT_<CONST>
20699 @ 175197:                  LINE   3354 "regression-compile-tmp/imp918s.imp"
20700 @ 175235:                  PUSHI  #0x00000004
20701 @ 175240:                  SLABEL 523

  3355           PLANT(A(P+3));               ! LEAST SIGNIFICANT 16 BITS ONLY
20702 @ 175243:                  LINE   3355 "regression-compile-tmp/imp918s.imp"
20703 @ 175281:                  PUSH   PLANT
20704 @ 175284:                  PUSH   A
20705 @ 175287:                  PUSH   P
20706 @ 175290:                  PUSHI  #0x00000003
20707 @ 175295:                  ADD   
20708 @ 175296:                  ACCESS
20709 @ 175297:                  ASSPAR
20710 @ 175298:                  CALL  

  3356           P=P+4; ->Label99
20711 @ 175299:                  LINE   3356 "regression-compile-tmp/imp918s.imp"
20712 @ 175337:                  PUSH   P
20713 @ 175340:                  PUSH   P
20714 @ 175343:                  PUSHI  #0x00000004
20715 @ 175348:                  ADD   
20716 @ 175349:                  ASSVAL
20717 @ 175350:                  LINE   3356 "regression-compile-tmp/imp918s.imp"
20718 @ 175388:                  JUMP   L_020d

  3357  UCITYPE(3):                           ! '*'<SETUCN>'_' <UCOP>
20719 @ 175391:                  LINE   3357 "regression-compile-tmp/imp918s.imp"
20720 @ 175429:                  PUSHI  #0x00000003
20721 @ 175434:                  SLABEL 523

  3358           OPCODE=A(P+2); OPNUM=A(P+1)
20722 @ 175437:                  LINE   3358 "regression-compile-tmp/imp918s.imp"
20723 @ 175475:                  PUSH   OPCODE
20724 @ 175478:                  PUSH   A
20725 @ 175481:                  PUSH   P
20726 @ 175484:                  PUSHI  #0x00000002
20727 @ 175489:                  ADD   
20728 @ 175490:                  ACCESS
20729 @ 175491:                  ASSVAL
20730 @ 175492:                  LINE   3358 "regression-compile-tmp/imp918s.imp"
20731 @ 175530:                  PUSH   OPNUM
20732 @ 175533:                  PUSH   A
20733 @ 175536:                  PUSH   P
20734 @ 175539:                  PUSHI  #0x00000001
20735 @ 175544:                  ADD   
20736 @ 175545:                  ACCESS
20737 @ 175546:                  ASSVAL

  3359           P=P+3; ->OPTYPE(OPNUM)
20738 @ 175547:                  LINE   3359 "regression-compile-tmp/imp918s.imp"
20739 @ 175585:                  PUSH   P
20740 @ 175588:                  PUSH   P
20741 @ 175591:                  PUSHI  #0x00000003
20742 @ 175596:                  ADD   
20743 @ 175597:                  ASSVAL
20744 @ 175598:                  LINE   3359 "regression-compile-tmp/imp918s.imp"
20745 @ 175636:                  PUSH   OPNUM
20746 @ 175639:                  SJUMP  524

  3360  UCITYPE(5):                           ! 'USING' '*,'<N>
20747 @ 175642:                  LINE   3360 "regression-compile-tmp/imp918s.imp"
20748 @ 175680:                  PUSHI  #0x00000005
20749 @ 175685:                  SLABEL 523

  3361           Z=A(P+1)
20750 @ 175688:                  LINE   3361 "regression-compile-tmp/imp918s.imp"
20751 @ 175726:                  PUSH   Z
20752 @ 175729:                  PUSH   A
20753 @ 175732:                  PUSH   P
20754 @ 175735:                  PUSHI  #0x00000001
20755 @ 175740:                  ADD   
20756 @ 175741:                  ACCESS
20757 @ 175742:                  ASSVAL

  3362           %IF 1<=Z<=15 %THEN %START
20758 @ 175743:                  LINE   3362 "regression-compile-tmp/imp918s.imp"
20759 @ 175781:                  PUSHI  #0x00000001
20760 @ 175786:                  PUSH   Z
20761 @ 175789:                  JUMPIFD > L_0004
20762 @ 175793:                  PUSHI  #0x0000000f
20763 @ 175798:                  JUMPIF > L_0004

  3363              USING=Z; AT=CA
20764 @ 175802:                  LINE   3363 "regression-compile-tmp/imp918s.imp"
20765 @ 175840:                  PUSH   USING
20766 @ 175843:                  PUSH   Z
20767 @ 175846:                  ASSVAL
20768 @ 175847:                  LINE   3363 "regression-compile-tmp/imp918s.imp"
20769 @ 175885:                  PUSH   AT
20770 @ 175888:                  PUSH   CA
20771 @ 175891:                  ASSVAL

  3364           %FINISH %ELSE FAULT(33,0); ->Label99
20772 @ 175892:                  LINE   3364 "regression-compile-tmp/imp918s.imp"
20773 @ 175930:                  GOTO   L_0003
20774 @ 175933:                  LOCATE L_0004
20775 @ 175936:                  PUSH   FAULT
20776 @ 175939:                  PUSHI  #0x00000021
20777 @ 175944:                  ASSPAR
20778 @ 175945:                  PUSHI  #0x00000000
20779 @ 175950:                  ASSPAR
20780 @ 175951:                  CALL  
20781 @ 175952:                  LOCATE L_0003
20782 @ 175955:                  LINE   3364 "regression-compile-tmp/imp918s.imp"
20783 @ 175993:                  JUMP   L_020d

  3365  UCITYPE(6):                           ! 'DROP' <N>
20784 @ 175996:                  LINE   3365 "regression-compile-tmp/imp918s.imp"
20785 @ 176034:                  PUSHI  #0x00000006
20786 @ 176039:                  SLABEL 523

  3366           Z=A(P+1)
20787 @ 176042:                  LINE   3366 "regression-compile-tmp/imp918s.imp"
20788 @ 176080:                  PUSH   Z
20789 @ 176083:                  PUSH   A
20790 @ 176086:                  PUSH   P
20791 @ 176089:                  PUSHI  #0x00000001
20792 @ 176094:                  ADD   
20793 @ 176095:                  ACCESS
20794 @ 176096:                  ASSVAL

  3367           %IF Z=USING %THEN %START
20795 @ 176097:                  LINE   3367 "regression-compile-tmp/imp918s.imp"
20796 @ 176135:                  PUSH   Z
20797 @ 176138:                  PUSH   USING
20798 @ 176141:                  JUMPIF # L_0004

  3368              USING=0; AT=0
20799 @ 176145:                  LINE   3368 "regression-compile-tmp/imp918s.imp"
20800 @ 176183:                  PUSH   USING
20801 @ 176186:                  PUSHI  #0x00000000
20802 @ 176191:                  ASSVAL
20803 @ 176192:                  LINE   3368 "regression-compile-tmp/imp918s.imp"
20804 @ 176230:                  PUSH   AT
20805 @ 176233:                  PUSHI  #0x00000000
20806 @ 176238:                  ASSVAL

  3369           %FINISH %ELSE FAULT(33,0); ->Label99
20807 @ 176239:                  LINE   3369 "regression-compile-tmp/imp918s.imp"
20808 @ 176277:                  GOTO   L_0003
20809 @ 176280:                  LOCATE L_0004
20810 @ 176283:                  PUSH   FAULT
20811 @ 176286:                  PUSHI  #0x00000021
20812 @ 176291:                  ASSPAR
20813 @ 176292:                  PUSHI  #0x00000000
20814 @ 176297:                  ASSPAR
20815 @ 176298:                  CALL  
20816 @ 176299:                  LOCATE L_0003
20817 @ 176302:                  LINE   3369 "regression-compile-tmp/imp918s.imp"
20818 @ 176340:                  JUMP   L_020d

  3370  OPTYPE(1):                            ! RR FORMAT INSTRUCTION
20819 @ 176343:                  LINE   3370 "regression-compile-tmp/imp918s.imp"
20820 @ 176381:                  PUSHI  #0x00000001
20821 @ 176386:                  SLABEL 524

  3371           %IF OPCODE=0 %THEN CNOP(A(P),A(P+1)) %ELSE %C
  3372                              PRR(OPCODE,A(P),A(P+1))
20822 @ 176389:                  LINE   3371 "regression-compile-tmp/imp918s.imp"
20823 @ 176427:                  PUSH   OPCODE
20824 @ 176430:                  PUSHI  #0x00000000
20825 @ 176435:                  JUMPIF # L_0004
20826 @ 176439:                  PUSH   CNOP
20827 @ 176442:                  PUSH   A
20828 @ 176445:                  PUSH   P
20829 @ 176448:                  ACCESS
20830 @ 176449:                  ASSPAR
20831 @ 176450:                  PUSH   A
20832 @ 176453:                  PUSH   P
20833 @ 176456:                  PUSHI  #0x00000001
20834 @ 176461:                  ADD   
20835 @ 176462:                  ACCESS
20836 @ 176463:                  ASSPAR
20837 @ 176464:                  CALL  
20838 @ 176465:                  GOTO   L_0003
20839 @ 176468:                  LOCATE L_0004
20840 @ 176471:                  PUSH   PRR
20841 @ 176474:                  PUSH   OPCODE
20842 @ 176477:                  ASSPAR
20843 @ 176478:                  PUSH   A
20844 @ 176481:                  PUSH   P
20845 @ 176484:                  ACCESS
20846 @ 176485:                  ASSPAR
20847 @ 176486:                  PUSH   A
20848 @ 176489:                  PUSH   P
20849 @ 176492:                  PUSHI  #0x00000001
20850 @ 176497:                  ADD   
20851 @ 176498:                  ACCESS
20852 @ 176499:                  ASSPAR
20853 @ 176500:                  CALL  
20854 @ 176501:                  LOCATE L_0003

  3373           P=P+2; ->Label99
20855 @ 176504:                  LINE   3373 "regression-compile-tmp/imp918s.imp"
20856 @ 176542:                  PUSH   P
20857 @ 176545:                  PUSH   P
20858 @ 176548:                  PUSHI  #0x00000002
20859 @ 176553:                  ADD   
20860 @ 176554:                  ASSVAL
20861 @ 176555:                  LINE   3373 "regression-compile-tmp/imp918s.imp"
20862 @ 176593:                  JUMP   L_020d

  3374  OPTYPE(2):                            ! RX FORMAT INSTRUCTION
20863 @ 176596:                  LINE   3374 "regression-compile-tmp/imp918s.imp"
20864 @ 176634:                  PUSHI  #0x00000002
20865 @ 176639:                  SLABEL 524

  3375  OPTYPE(3):                            ! RS FORMAT INSTRUCION
20866 @ 176642:                  LINE   3375 "regression-compile-tmp/imp918s.imp"
20867 @ 176680:                  PUSHI  #0x00000003
20868 @ 176685:                  SLABEL 524

  3376  OPTYPE(5):                            ! SHIFT INSTRUCTION
20869 @ 176688:                  LINE   3376 "regression-compile-tmp/imp918s.imp"
20870 @ 176726:                  PUSHI  #0x00000005
20871 @ 176731:                  SLABEL 524

  3377           REG=A(P)
20872 @ 176734:                  LINE   3377 "regression-compile-tmp/imp918s.imp"
20873 @ 176772:                  PUSH   REG
20874 @ 176775:                  PUSH   A
20875 @ 176778:                  PUSH   P
20876 @ 176781:                  ACCESS
20877 @ 176782:                  ASSVAL

  3378           %IF OPNUM=2 %THEN P=P+1 %AND DXB %ELSE %START
20878 @ 176783:                  LINE   3378 "regression-compile-tmp/imp918s.imp"
20879 @ 176821:                  PUSH   OPNUM
20880 @ 176824:                  PUSHI  #0x00000002
20881 @ 176829:                  JUMPIF # L_0004
20882 @ 176833:                  PUSH   P
20883 @ 176836:                  PUSH   P
20884 @ 176839:                  PUSHI  #0x00000001
20885 @ 176844:                  ADD   
20886 @ 176845:                  ASSVAL
20887 @ 176846:                  PUSH   DXB
20888 @ 176849:                  CALL  
20889 @ 176850:                  GOTO   L_0003
20890 @ 176853:                  LOCATE L_0004

  3379              %IF OPNUM=5 %THEN X=0 %AND P=P+1 %ELSE X=A(P+1) %AND P=P+2
20891 @ 176856:                  LINE   3379 "regression-compile-tmp/imp918s.imp"
20892 @ 176894:                  PUSH   OPNUM
20893 @ 176897:                  PUSHI  #0x00000005
20894 @ 176902:                  JUMPIF # L_0007
20895 @ 176906:                  PUSH   X
20896 @ 176909:                  PUSHI  #0x00000000
20897 @ 176914:                  ASSVAL
20898 @ 176915:                  PUSH   P
20899 @ 176918:                  PUSH   P
20900 @ 176921:                  PUSHI  #0x00000001
20901 @ 176926:                  ADD   
20902 @ 176927:                  ASSVAL
20903 @ 176928:                  GOTO   L_0006
20904 @ 176931:                  LOCATE L_0007
20905 @ 176934:                  PUSH   X
20906 @ 176937:                  PUSH   A
20907 @ 176940:                  PUSH   P
20908 @ 176943:                  PUSHI  #0x00000001
20909 @ 176948:                  ADD   
20910 @ 176949:                  ACCESS
20911 @ 176950:                  ASSVAL
20912 @ 176951:                  PUSH   P
20913 @ 176954:                  PUSH   P
20914 @ 176957:                  PUSHI  #0x00000002
20915 @ 176962:                  ADD   
20916 @ 176963:                  ASSVAL
20917 @ 176964:                  LOCATE L_0006

  3380              DB
20918 @ 176967:                  LINE   3380 "regression-compile-tmp/imp918s.imp"
20919 @ 177005:                  PUSH   DB
20920 @ 177008:                  CALL  

  3381           %FINISH
20921 @ 177009:                  LINE   3381 "regression-compile-tmp/imp918s.imp"
20922 @ 177047:                  LOCATE L_0003

  3382           PRX(OPCODE,REG,X,I,K);->Label99
20923 @ 177050:                  LINE   3382 "regression-compile-tmp/imp918s.imp"
20924 @ 177088:                  PUSH   PRX
20925 @ 177091:                  PUSH   OPCODE
20926 @ 177094:                  ASSPAR
20927 @ 177095:                  PUSH   REG
20928 @ 177098:                  ASSPAR
20929 @ 177099:                  PUSH   X
20930 @ 177102:                  ASSPAR
20931 @ 177103:                  PUSH   I
20932 @ 177106:                  ASSPAR
20933 @ 177107:                  PUSH   K
20934 @ 177110:                  ASSPAR
20935 @ 177111:                  CALL  
20936 @ 177112:                  LINE   3382 "regression-compile-tmp/imp918s.imp"
20937 @ 177150:                  JUMP   L_020d

  3383  OPTYPE(4):                            ! STORE-IMMEDIATE FORMAT
20938 @ 177153:                  LINE   3383 "regression-compile-tmp/imp918s.imp"
20939 @ 177191:                  PUSHI  #0x00000004
20940 @ 177196:                  SLABEL 524

  3384           DB
20941 @ 177199:                  LINE   3384 "regression-compile-tmp/imp918s.imp"
20942 @ 177237:                  PUSH   DB
20943 @ 177240:                  CALL  

  3385           %IF A(P)=2 %THEN Z=0 %ELSE %START
20944 @ 177241:                  LINE   3385 "regression-compile-tmp/imp918s.imp"
20945 @ 177279:                  PUSH   A
20946 @ 177282:                  PUSH   P
20947 @ 177285:                  ACCESS
20948 @ 177286:                  PUSHI  #0x00000002
20949 @ 177291:                  JUMPIF # L_0004
20950 @ 177295:                  PUSH   Z
20951 @ 177298:                  PUSHI  #0x00000000
20952 @ 177303:                  ASSVAL
20953 @ 177304:                  GOTO   L_0003
20954 @ 177307:                  LOCATE L_0004

  3386              FROM AR4(P+2,Z)
20955 @ 177310:                  LINE   3386 "regression-compile-tmp/imp918s.imp"
20956 @ 177348:                  PUSH   FROMAR4
20957 @ 177351:                  PUSH   P
20958 @ 177354:                  PUSHI  #0x00000002
20959 @ 177359:                  ADD   
20960 @ 177360:                  ASSPAR
20961 @ 177361:                  PUSH   Z
20962 @ 177364:                  ASSPAR
20963 @ 177365:                  CALL  

  3387              FAULT(32,0) %UNLESS 0<=Z<=255
20964 @ 177366:                  LINE   3387 "regression-compile-tmp/imp918s.imp"
20965 @ 177404:                  PUSHI  #0x00000000
20966 @ 177409:                  PUSH   Z
20967 @ 177412:                  JUMPIFD > L_0008
20968 @ 177416:                  PUSHI  #0x000000ff
20969 @ 177421:                  JUMPIF <= L_0007
20970 @ 177425:                  LOCATE L_0008
20971 @ 177428:                  PUSH   FAULT
20972 @ 177431:                  PUSHI  #0x00000020
20973 @ 177436:                  ASSPAR
20974 @ 177437:                  PUSHI  #0x00000000
20975 @ 177442:                  ASSPAR
20976 @ 177443:                  CALL  
20977 @ 177444:                  LOCATE L_0007

  3388              P=P+4
20978 @ 177447:                  LINE   3388 "regression-compile-tmp/imp918s.imp"
20979 @ 177485:                  PUSH   P
20980 @ 177488:                  PUSH   P
20981 @ 177491:                  PUSHI  #0x00000004
20982 @ 177496:                  ADD   
20983 @ 177497:                  ASSVAL

  3389           %FINISH
20984 @ 177498:                  LINE   3389 "regression-compile-tmp/imp918s.imp"
20985 @ 177536:                  LOCATE L_0003

  3390           PSI(OPCODE,Z,I,K);P=P+1; ->Label99
20986 @ 177539:                  LINE   3390 "regression-compile-tmp/imp918s.imp"
20987 @ 177577:                  PUSH   PSI
20988 @ 177580:                  PUSH   OPCODE
20989 @ 177583:                  ASSPAR
20990 @ 177584:                  PUSH   Z
20991 @ 177587:                  ASSPAR
20992 @ 177588:                  PUSH   I
20993 @ 177591:                  ASSPAR
20994 @ 177592:                  PUSH   K
20995 @ 177595:                  ASSPAR
20996 @ 177596:                  CALL  
20997 @ 177597:                  LINE   3390 "regression-compile-tmp/imp918s.imp"
20998 @ 177635:                  PUSH   P
20999 @ 177638:                  PUSH   P
21000 @ 177641:                  PUSHI  #0x00000001
21001 @ 177646:                  ADD   
21002 @ 177647:                  ASSVAL
21003 @ 177648:                  LINE   3390 "regression-compile-tmp/imp918s.imp"
21004 @ 177686:                  JUMP   L_020d

  3391  OPTYPE(6):                            ! SS FORMAT
21005 @ 177689:                  LINE   3391 "regression-compile-tmp/imp918s.imp"
21006 @ 177727:                  PUSHI  #0x00000006
21007 @ 177732:                  SLABEL 524

  3392  OPTYPE(7):                            ! PACKED DECIMAL FORMAT
21008 @ 177735:                  LINE   3392 "regression-compile-tmp/imp918s.imp"
21009 @ 177773:                  PUSHI  #0x00000007
21010 @ 177778:                  SLABEL 524

  3393           DLB; KK=K; Z=X
21011 @ 177781:                  LINE   3393 "regression-compile-tmp/imp918s.imp"
21012 @ 177819:                  PUSH   DLB
21013 @ 177822:                  CALL  
21014 @ 177823:                  LINE   3393 "regression-compile-tmp/imp918s.imp"
21015 @ 177861:                  PUSH   KK
21016 @ 177864:                  PUSH   K
21017 @ 177867:                  ASSVAL
21018 @ 177868:                  LINE   3393 "regression-compile-tmp/imp918s.imp"
21019 @ 177906:                  PUSH   Z
21020 @ 177909:                  PUSH   X
21021 @ 177912:                  ASSVAL

  3394           REG=I; Z=1 %IF Z=0
21022 @ 177913:                  LINE   3394 "regression-compile-tmp/imp918s.imp"
21023 @ 177951:                  PUSH   REG
21024 @ 177954:                  PUSH   I
21025 @ 177957:                  ASSVAL
21026 @ 177958:                  LINE   3394 "regression-compile-tmp/imp918s.imp"
21027 @ 177996:                  PUSH   Z
21028 @ 177999:                  PUSHI  #0x00000000
21029 @ 178004:                  JUMPIF # L_0004
21030 @ 178008:                  PUSH   Z
21031 @ 178011:                  PUSHI  #0x00000001
21032 @ 178016:                  ASSVAL
21033 @ 178017:                  LOCATE L_0004

  3395           %IF OPNUM=6 %THEN DB %ELSE %START
21034 @ 178020:                  LINE   3395 "regression-compile-tmp/imp918s.imp"
21035 @ 178058:                  PUSH   OPNUM
21036 @ 178061:                  PUSHI  #0x00000006
21037 @ 178066:                  JUMPIF # L_0004
21038 @ 178070:                  PUSH   DB
21039 @ 178073:                  CALL  
21040 @ 178074:                  GOTO   L_0003
21041 @ 178077:                  LOCATE L_0004

  3396              DLB; X=1 %IF X=0
21042 @ 178080:                  LINE   3396 "regression-compile-tmp/imp918s.imp"
21043 @ 178118:                  PUSH   DLB
21044 @ 178121:                  CALL  
21045 @ 178122:                  LINE   3396 "regression-compile-tmp/imp918s.imp"
21046 @ 178160:                  PUSH   X
21047 @ 178163:                  PUSHI  #0x00000000
21048 @ 178168:                  JUMPIF # L_0007
21049 @ 178172:                  PUSH   X
21050 @ 178175:                  PUSHI  #0x00000001
21051 @ 178180:                  ASSVAL
21052 @ 178181:                  LOCATE L_0007

  3397              Z=(Z-1)<<4!X
21053 @ 178184:                  LINE   3397 "regression-compile-tmp/imp918s.imp"
21054 @ 178222:                  PUSH   Z
21055 @ 178225:                  PUSH   Z
21056 @ 178228:                  PUSHI  #0x00000001
21057 @ 178233:                  SUB   
21058 @ 178234:                  PUSHI  #0x00000004
21059 @ 178239:                  LSH   
21060 @ 178240:                  PUSH   X
21061 @ 178243:                  OR    
21062 @ 178244:                  ASSVAL

  3398           %FINISH
21063 @ 178245:                  LINE   3398 "regression-compile-tmp/imp918s.imp"
21064 @ 178283:                  LOCATE L_0003

  3399           PSS(OPCODE,Z,REG,KK,I,K); ->Label99
21065 @ 178286:                  LINE   3399 "regression-compile-tmp/imp918s.imp"
21066 @ 178324:                  PUSH   PSS
21067 @ 178327:                  PUSH   OPCODE
21068 @ 178330:                  ASSPAR
21069 @ 178331:                  PUSH   Z
21070 @ 178334:                  ASSPAR
21071 @ 178335:                  PUSH   REG
21072 @ 178338:                  ASSPAR
21073 @ 178339:                  PUSH   KK
21074 @ 178342:                  ASSPAR
21075 @ 178343:                  PUSH   I
21076 @ 178346:                  ASSPAR
21077 @ 178347:                  PUSH   K
21078 @ 178350:                  ASSPAR
21079 @ 178351:                  CALL  
21080 @ 178352:                  LINE   3399 "regression-compile-tmp/imp918s.imp"
21081 @ 178390:                  JUMP   L_020d

  3400  OPTYPE(8):                            ! FUNNIES
21082 @ 178393:                  LINE   3400 "regression-compile-tmp/imp918s.imp"
21083 @ 178431:                  PUSHI  #0x00000008
21084 @ 178436:                  SLABEL 524

  3401           REG=A(P); P=P+1
21085 @ 178439:                  LINE   3401 "regression-compile-tmp/imp918s.imp"
21086 @ 178477:                  PUSH   REG
21087 @ 178480:                  PUSH   A
21088 @ 178483:                  PUSH   P
21089 @ 178486:                  ACCESS
21090 @ 178487:                  ASSVAL
21091 @ 178488:                  LINE   3401 "regression-compile-tmp/imp918s.imp"
21092 @ 178526:                  PUSH   P
21093 @ 178529:                  PUSH   P
21094 @ 178532:                  PUSHI  #0x00000001
21095 @ 178537:                  ADD   
21096 @ 178538:                  ASSVAL

  3402           %IF OPCODE=X'80' %THEN PSI(OPCODE,REG,0,0) %ELSE %START
21097 @ 178539:                  LINE   3402 "regression-compile-tmp/imp918s.imp"
21098 @ 178577:                  PUSH   OPCODE
21099 @ 178580:                  PUSHI  #0x00000080
21100 @ 178585:                  JUMPIF # L_0004
21101 @ 178589:                  PUSH   PSI
21102 @ 178592:                  PUSH   OPCODE
21103 @ 178595:                  ASSPAR
21104 @ 178596:                  PUSH   REG
21105 @ 178599:                  ASSPAR
21106 @ 178600:                  PUSHI  #0x00000000
21107 @ 178605:                  ASSPAR
21108 @ 178606:                  PUSHI  #0x00000000
21109 @ 178611:                  ASSPAR
21110 @ 178612:                  CALL  
21111 @ 178613:                  GOTO   L_0003
21112 @ 178616:                  LOCATE L_0004

  3403             %IF OPCODE=10 %THEN PLANT(X'A00'!REG) %ELSE PRR(OPCODE,REG,0)
21113 @ 178619:                  LINE   3403 "regression-compile-tmp/imp918s.imp"
21114 @ 178657:                  PUSH   OPCODE
21115 @ 178660:                  PUSHI  #0x0000000a
21116 @ 178665:                  JUMPIF # L_0007
21117 @ 178669:                  PUSH   PLANT
21118 @ 178672:                  PUSHI  #0x00000a00
21119 @ 178677:                  PUSH   REG
21120 @ 178680:                  OR    
21121 @ 178681:                  ASSPAR
21122 @ 178682:                  CALL  
21123 @ 178683:                  GOTO   L_0006
21124 @ 178686:                  LOCATE L_0007
21125 @ 178689:                  PUSH   PRR
21126 @ 178692:                  PUSH   OPCODE
21127 @ 178695:                  ASSPAR
21128 @ 178696:                  PUSH   REG
21129 @ 178699:                  ASSPAR
21130 @ 178700:                  PUSHI  #0x00000000
21131 @ 178705:                  ASSPAR
21132 @ 178706:                  CALL  
21133 @ 178707:                  LOCATE L_0006

  3404           %FINISH
21134 @ 178710:                  LINE   3404 "regression-compile-tmp/imp918s.imp"
21135 @ 178748:                  LOCATE L_0003

  3405           ->Label99
21136 @ 178751:                  LINE   3405 "regression-compile-tmp/imp918s.imp"
21137 @ 178789:                  JUMP   L_020d

  3406           %ROUTINE DB
  3407  !***********************************************************************
  3408  !*       DEAL WITH OPERANDS FOR A DB INSTRUCTION. P ON ALT OF P<DB>    *
  3409  !*       P<DB>=<UCS>,<N><RESTOFDB>                                     *
  3410  !*       P<RESTOFDB>='('<N>')',%NULL                                   *
  3411  !***********************************************************************
21138 @ 178792:                  LINE   3406 "regression-compile-tmp/imp918s.imp"
21139 @ 178830:                  DEF    DB (_lev0id0_CSS_CUCI_DB) p1=V_0201 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
21140 @ 178844:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
21141 @ 178845:                     FINISH ) {lev=4}

  3412           %IF A(P)=1 %THEN CUCS %ELSE %START
21142 @ 178846:                     LINE   3412 "regression-compile-tmp/imp918s.imp"
21143 @ 178884:                     PUSH   A
21144 @ 178887:                     PUSH   P
21145 @ 178890:                     ACCESS
21146 @ 178891:                     PUSHI  #0x00000001
21147 @ 178896:                     JUMPIF # L_0004
21148 @ 178900:                     PUSH   CUCS
21149 @ 178903:                     CALL  
21150 @ 178904:                     GOTO   L_0003
21151 @ 178907:                     LOCATE L_0004

  3413              K=A(P+1); I=A(P+2); P=P+3; ! I IS ALT OF P<RESTOFDB>
21152 @ 178910:                     LINE   3413 "regression-compile-tmp/imp918s.imp"
21153 @ 178948:                     PUSH   K
21154 @ 178951:                     PUSH   A
21155 @ 178954:                     PUSH   P
21156 @ 178957:                     PUSHI  #0x00000001
21157 @ 178962:                     ADD   
21158 @ 178963:                     ACCESS
21159 @ 178964:                     ASSVAL
21160 @ 178965:                     LINE   3413 "regression-compile-tmp/imp918s.imp"
21161 @ 179003:                     PUSH   I
21162 @ 179006:                     PUSH   A
21163 @ 179009:                     PUSH   P
21164 @ 179012:                     PUSHI  #0x00000002
21165 @ 179017:                     ADD   
21166 @ 179018:                     ACCESS
21167 @ 179019:                     ASSVAL
21168 @ 179020:                     LINE   3413 "regression-compile-tmp/imp918s.imp"
21169 @ 179058:                     PUSH   P
21170 @ 179061:                     PUSH   P
21171 @ 179064:                     PUSHI  #0x00000003
21172 @ 179069:                     ADD   
21173 @ 179070:                     ASSVAL

  3414              %IF I=2 %THEN I=0 %ELSE I=A(P) %AND P=P+1
21174 @ 179071:                     LINE   3414 "regression-compile-tmp/imp918s.imp"
21175 @ 179109:                     PUSH   I
21176 @ 179112:                     PUSHI  #0x00000002
21177 @ 179117:                     JUMPIF # L_0007
21178 @ 179121:                     PUSH   I
21179 @ 179124:                     PUSHI  #0x00000000
21180 @ 179129:                     ASSVAL
21181 @ 179130:                     GOTO   L_0006
21182 @ 179133:                     LOCATE L_0007
21183 @ 179136:                     PUSH   I
21184 @ 179139:                     PUSH   A
21185 @ 179142:                     PUSH   P
21186 @ 179145:                     ACCESS
21187 @ 179146:                     ASSVAL
21188 @ 179147:                     PUSH   P
21189 @ 179150:                     PUSH   P
21190 @ 179153:                     PUSHI  #0x00000001
21191 @ 179158:                     ADD   
21192 @ 179159:                     ASSVAL
21193 @ 179160:                     LOCATE L_0006

  3415           %FINISH
21194 @ 179163:                     LINE   3415 "regression-compile-tmp/imp918s.imp"
21195 @ 179201:                     LOCATE L_0003

  3416           FAULT(99,0) %UNLESS 0<=K<=4095
21196 @ 179204:                     LINE   3416 "regression-compile-tmp/imp918s.imp"
21197 @ 179242:                     PUSHI  #0x00000000
21198 @ 179247:                     PUSH   K
21199 @ 179250:                     JUMPIFD > L_0005
21200 @ 179254:                     PUSHI  #0x00000fff
21201 @ 179259:                     JUMPIF <= L_0004
21202 @ 179263:                     LOCATE L_0005
21203 @ 179266:                     PUSH   FAULT
21204 @ 179269:                     PUSHI  #0x00000063
21205 @ 179274:                     ASSPAR
21206 @ 179275:                     PUSHI  #0x00000000
21207 @ 179280:                     ASSPAR
21208 @ 179281:                     CALL  
21209 @ 179282:                     LOCATE L_0004

  3417           %END
21210 @ 179285:                     LINE   3417 "regression-compile-tmp/imp918s.imp"
21211 @ 179323:                  END    _lev0id0_CSS_CUCI_DB {lev=4 --> 3}

  3418           %ROUTINE DXB
  3419  !***********************************************************************
  3420  !*       DEAL WITH OPERANDS FOR A DXB INSTRN. P ON ALT OF P<DXB>       *
  3421  !*       P<DXB>=<UCS><RESTOFDB>,<N><RESTOFDXB>                         *
  3422  !*       P<RESTOFDXB>='('<N>','<N>')','('<N>')',%NULL                  *
  3423  !***********************************************************************
21212 @ 179324:                  LINE   3418 "regression-compile-tmp/imp918s.imp"
21213 @ 179362:                  DEF    DXB (_lev0id0_CSS_CUCI_DXB) p1=V_01ff 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
21214 @ 179377:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
21215 @ 179378:                     FINISH ) {lev=4}

  3424           %INTEGER ALT
21216 @ 179379:                     LINE   3424 "regression-compile-tmp/imp918s.imp"
21217 @ 179417:                     DEF    ALT p1=V_020e 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

  3425           X=0
21218 @ 179432:                     LINE   3425 "regression-compile-tmp/imp918s.imp"
21219 @ 179470:                     PUSH   X
21220 @ 179473:                     PUSHI  #0x00000000
21221 @ 179478:                     ASSVAL

  3426           %IF A(P)=1 %THEN %START
21222 @ 179479:                     LINE   3426 "regression-compile-tmp/imp918s.imp"
21223 @ 179517:                     PUSH   A
21224 @ 179520:                     PUSH   P
21225 @ 179523:                     ACCESS
21226 @ 179524:                     PUSHI  #0x00000001
21227 @ 179529:                     JUMPIF # L_0004

  3427              CUCS
21228 @ 179533:                     LINE   3427 "regression-compile-tmp/imp918s.imp"
21229 @ 179571:                     PUSH   CUCS
21230 @ 179574:                     CALL  

  3428              %IF A(P)=1 %THEN X=A(P+1) %AND P=P+1
21231 @ 179575:                     LINE   3428 "regression-compile-tmp/imp918s.imp"
21232 @ 179613:                     PUSH   A
21233 @ 179616:                     PUSH   P
21234 @ 179619:                     ACCESS
21235 @ 179620:                     PUSHI  #0x00000001
21236 @ 179625:                     JUMPIF # L_0007
21237 @ 179629:                     PUSH   X
21238 @ 179632:                     PUSH   A
21239 @ 179635:                     PUSH   P
21240 @ 179638:                     PUSHI  #0x00000001
21241 @ 179643:                     ADD   
21242 @ 179644:                     ACCESS
21243 @ 179645:                     ASSVAL
21244 @ 179646:                     PUSH   P
21245 @ 179649:                     PUSH   P
21246 @ 179652:                     PUSHI  #0x00000001
21247 @ 179657:                     ADD   
21248 @ 179658:                     ASSVAL
21249 @ 179659:                     LOCATE L_0007

  3429           %FINISH %ELSE %START
21250 @ 179662:                     LINE   3429 "regression-compile-tmp/imp918s.imp"
21251 @ 179700:                     GOTO   L_0003
21252 @ 179703:                     LOCATE L_0004

  3430              K=A(P+1); I=0
21253 @ 179706:                     LINE   3430 "regression-compile-tmp/imp918s.imp"
21254 @ 179744:                     PUSH   K
21255 @ 179747:                     PUSH   A
21256 @ 179750:                     PUSH   P
21257 @ 179753:                     PUSHI  #0x00000001
21258 @ 179758:                     ADD   
21259 @ 179759:                     ACCESS
21260 @ 179760:                     ASSVAL
21261 @ 179761:                     LINE   3430 "regression-compile-tmp/imp918s.imp"
21262 @ 179799:                     PUSH   I
21263 @ 179802:                     PUSHI  #0x00000000
21264 @ 179807:                     ASSVAL

  3431              ALT=A(P+2); P=P+2
21265 @ 179808:                     LINE   3431 "regression-compile-tmp/imp918s.imp"
21266 @ 179846:                     PUSH   ALT
21267 @ 179849:                     PUSH   A
21268 @ 179852:                     PUSH   P
21269 @ 179855:                     PUSHI  #0x00000002
21270 @ 179860:                     ADD   
21271 @ 179861:                     ACCESS
21272 @ 179862:                     ASSVAL
21273 @ 179863:                     LINE   3431 "regression-compile-tmp/imp918s.imp"
21274 @ 179901:                     PUSH   P
21275 @ 179904:                     PUSH   P
21276 @ 179907:                     PUSHI  #0x00000002
21277 @ 179912:                     ADD   
21278 @ 179913:                     ASSVAL

  3432              %IF ALT=1 %THEN X=A(P+1) %AND P=P+1
21279 @ 179914:                     LINE   3432 "regression-compile-tmp/imp918s.imp"
21280 @ 179952:                     PUSH   ALT
21281 @ 179955:                     PUSHI  #0x00000001
21282 @ 179960:                     JUMPIF # L_0007
21283 @ 179964:                     PUSH   X
21284 @ 179967:                     PUSH   A
21285 @ 179970:                     PUSH   P
21286 @ 179973:                     PUSHI  #0x00000001
21287 @ 179978:                     ADD   
21288 @ 179979:                     ACCESS
21289 @ 179980:                     ASSVAL
21290 @ 179981:                     PUSH   P
21291 @ 179984:                     PUSH   P
21292 @ 179987:                     PUSHI  #0x00000001
21293 @ 179992:                     ADD   
21294 @ 179993:                     ASSVAL
21295 @ 179994:                     LOCATE L_0007

  3433              %IF ALT<=2 %THEN I=A(P+1) %AND P=P+1
21296 @ 179997:                     LINE   3433 "regression-compile-tmp/imp918s.imp"
21297 @ 180035:                     PUSH   ALT
21298 @ 180038:                     PUSHI  #0x00000002
21299 @ 180043:                     JUMPIF > L_0007
21300 @ 180047:                     PUSH   I
21301 @ 180050:                     PUSH   A
21302 @ 180053:                     PUSH   P
21303 @ 180056:                     PUSHI  #0x00000001
21304 @ 180061:                     ADD   
21305 @ 180062:                     ACCESS
21306 @ 180063:                     ASSVAL
21307 @ 180064:                     PUSH   P
21308 @ 180067:                     PUSH   P
21309 @ 180070:                     PUSHI  #0x00000001
21310 @ 180075:                     ADD   
21311 @ 180076:                     ASSVAL
21312 @ 180077:                     LOCATE L_0007

  3434           %FINISH
21313 @ 180080:                     LINE   3434 "regression-compile-tmp/imp918s.imp"
21314 @ 180118:                     LOCATE L_0003

  3435           P=P+1
21315 @ 180121:                     LINE   3435 "regression-compile-tmp/imp918s.imp"
21316 @ 180159:                     PUSH   P
21317 @ 180162:                     PUSH   P
21318 @ 180165:                     PUSHI  #0x00000001
21319 @ 180170:                     ADD   
21320 @ 180171:                     ASSVAL

  3436           FAULT(99,0) %UNLESS 0<=K<=4095
21321 @ 180172:                     LINE   3436 "regression-compile-tmp/imp918s.imp"
21322 @ 180210:                     PUSHI  #0x00000000
21323 @ 180215:                     PUSH   K
21324 @ 180218:                     JUMPIFD > L_0005
21325 @ 180222:                     PUSHI  #0x00000fff
21326 @ 180227:                     JUMPIF <= L_0004
21327 @ 180231:                     LOCATE L_0005
21328 @ 180234:                     PUSH   FAULT
21329 @ 180237:                     PUSHI  #0x00000063
21330 @ 180242:                     ASSPAR
21331 @ 180243:                     PUSHI  #0x00000000
21332 @ 180248:                     ASSPAR
21333 @ 180249:                     CALL  
21334 @ 180250:                     LOCATE L_0004

  3437           %END
21335 @ 180253:                     LINE   3437 "regression-compile-tmp/imp918s.imp"
21336 @ 180291:                  END    _lev0id0_CSS_CUCI_DXB {lev=4 --> 3}

  3438           %ROUTINE DLB
  3439  !***********************************************************************
  3440  !*       DEAL WITH OPERAND FOR A DB INSTRUCTION. P ON ALT OF P<DB>     *
  3441  !*       P<DB>=<N>'('<N>','<N>')',<UCS>'('<N>')'                       *
  3442  !***********************************************************************
21337 @ 180292:                  LINE   3438 "regression-compile-tmp/imp918s.imp"
21338 @ 180330:                  DEF    DLB (_lev0id0_CSS_CUCI_DLB) p1=V_0200 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
21339 @ 180345:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
21340 @ 180346:                     FINISH ) {lev=4}

  3443           %IF A(P)=1 %THEN %START;   ! EXPLICT FORM
21341 @ 180347:                     LINE   3443 "regression-compile-tmp/imp918s.imp"
21342 @ 180385:                     PUSH   A
21343 @ 180388:                     PUSH   P
21344 @ 180391:                     ACCESS
21345 @ 180392:                     PUSHI  #0x00000001
21346 @ 180397:                     JUMPIF # L_0004

  3444              K=A(P+1); X=A(P+2)
21347 @ 180401:                     LINE   3444 "regression-compile-tmp/imp918s.imp"
21348 @ 180439:                     PUSH   K
21349 @ 180442:                     PUSH   A
21350 @ 180445:                     PUSH   P
21351 @ 180448:                     PUSHI  #0x00000001
21352 @ 180453:                     ADD   
21353 @ 180454:                     ACCESS
21354 @ 180455:                     ASSVAL
21355 @ 180456:                     LINE   3444 "regression-compile-tmp/imp918s.imp"
21356 @ 180494:                     PUSH   X
21357 @ 180497:                     PUSH   A
21358 @ 180500:                     PUSH   P
21359 @ 180503:                     PUSHI  #0x00000002
21360 @ 180508:                     ADD   
21361 @ 180509:                     ACCESS
21362 @ 180510:                     ASSVAL

  3445              I=A(P+3); P=P+4
21363 @ 180511:                     LINE   3445 "regression-compile-tmp/imp918s.imp"
21364 @ 180549:                     PUSH   I
21365 @ 180552:                     PUSH   A
21366 @ 180555:                     PUSH   P
21367 @ 180558:                     PUSHI  #0x00000003
21368 @ 180563:                     ADD   
21369 @ 180564:                     ACCESS
21370 @ 180565:                     ASSVAL
21371 @ 180566:                     LINE   3445 "regression-compile-tmp/imp918s.imp"
21372 @ 180604:                     PUSH   P
21373 @ 180607:                     PUSH   P
21374 @ 180610:                     PUSHI  #0x00000004
21375 @ 180615:                     ADD   
21376 @ 180616:                     ASSVAL

  3446           %FINISH %ELSE %START
21377 @ 180617:                     LINE   3446 "regression-compile-tmp/imp918s.imp"
21378 @ 180655:                     GOTO   L_0003
21379 @ 180658:                     LOCATE L_0004

  3447              CUCS; X=A(P); P=P+1
21380 @ 180661:                     LINE   3447 "regression-compile-tmp/imp918s.imp"
21381 @ 180699:                     PUSH   CUCS
21382 @ 180702:                     CALL  
21383 @ 180703:                     LINE   3447 "regression-compile-tmp/imp918s.imp"
21384 @ 180741:                     PUSH   X
21385 @ 180744:                     PUSH   A
21386 @ 180747:                     PUSH   P
21387 @ 180750:                     ACCESS
21388 @ 180751:                     ASSVAL
21389 @ 180752:                     LINE   3447 "regression-compile-tmp/imp918s.imp"
21390 @ 180790:                     PUSH   P
21391 @ 180793:                     PUSH   P
21392 @ 180796:                     PUSHI  #0x00000001
21393 @ 180801:                     ADD   
21394 @ 180802:                     ASSVAL

  3448           %FINISH
21395 @ 180803:                     LINE   3448 "regression-compile-tmp/imp918s.imp"
21396 @ 180841:                     LOCATE L_0003

  3449           FAULT(99,0) %UNLESS 0<=K<=4095
21397 @ 180844:                     LINE   3449 "regression-compile-tmp/imp918s.imp"
21398 @ 180882:                     PUSHI  #0x00000000
21399 @ 180887:                     PUSH   K
21400 @ 180890:                     JUMPIFD > L_0005
21401 @ 180894:                     PUSHI  #0x00000fff
21402 @ 180899:                     JUMPIF <= L_0004
21403 @ 180903:                     LOCATE L_0005
21404 @ 180906:                     PUSH   FAULT
21405 @ 180909:                     PUSHI  #0x00000063
21406 @ 180914:                     ASSPAR
21407 @ 180915:                     PUSHI  #0x00000000
21408 @ 180920:                     ASSPAR
21409 @ 180921:                     CALL  
21410 @ 180922:                     LOCATE L_0004

  3450           %END
21411 @ 180925:                     LINE   3450 "regression-compile-tmp/imp918s.imp"
21412 @ 180963:                  END    _lev0id0_CSS_CUCI_DLB {lev=4 --> 3}

  3451           %ROUTINE     CUCS
  3452  !***********************************************************************
  3453  !*       DEAL WITH SYMBOLIC REFERENCES IN USERCODE STATEMENTS          *
  3454  !*       P<UCS>=<NAME><DISPP>,'<'<LABEL>'>','*'<DISPP>                 *
  3455  !*       P<DISPP>='+'<N>,'-'<N>,%NULL                                  *
  3456  !***********************************************************************
21413 @ 180964:                  LINE   3451 "regression-compile-tmp/imp918s.imp"
21414 @ 181002:                  DEF    CUCS (_lev0id0_CSS_CUCI_CUCS) p1=V_0202 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
21415 @ 181018:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
21416 @ 181019:                     FINISH ) {lev=4}

  3457           %INTEGER X,Y,AD,ALT
21417 @ 181020:                     LINE   3457 "regression-compile-tmp/imp918s.imp"
21418 @ 181058:                     DEF    X p1=V_020e 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
21419 @ 181071:                     DEF    Y p1=V_020f 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
21420 @ 181084:                     DEF    AD p1=V_0210 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
21421 @ 181098:                     DEF    ALT p1=V_0211 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

  3458           X=USING; Y=AT
21422 @ 181113:                     LINE   3458 "regression-compile-tmp/imp918s.imp"
21423 @ 181151:                     PUSH   X
21424 @ 181154:                     PUSH   USING
21425 @ 181157:                     ASSVAL
21426 @ 181158:                     LINE   3458 "regression-compile-tmp/imp918s.imp"
21427 @ 181196:                     PUSH   Y
21428 @ 181199:                     PUSH   AT
21429 @ 181202:                     ASSVAL

  3459           %IF X=0 %THEN X=10 %AND Y=CODEBASE
21430 @ 181203:                     LINE   3459 "regression-compile-tmp/imp918s.imp"
21431 @ 181241:                     PUSH   X
21432 @ 181244:                     PUSHI  #0x00000000
21433 @ 181249:                     JUMPIF # L_0004
21434 @ 181253:                     PUSH   X
21435 @ 181256:                     PUSHI  #0x0000000a
21436 @ 181261:                     ASSVAL
21437 @ 181262:                     PUSH   Y
21438 @ 181265:                     PUSH   CODEBASE
21439 @ 181268:                     ASSVAL
21440 @ 181269:                     LOCATE L_0004

  3460           ALT=A(P+1);                     ! ALT OF P<UCS>
21441 @ 181272:                     LINE   3460 "regression-compile-tmp/imp918s.imp"
21442 @ 181310:                     PUSH   ALT
21443 @ 181313:                     PUSH   A
21444 @ 181316:                     PUSH   P
21445 @ 181319:                     PUSHI  #0x00000001
21446 @ 181324:                     ADD   
21447 @ 181325:                     ACCESS
21448 @ 181326:                     ASSVAL

  3461           %IF ALT=2 %THEN %START
  3462  !
  3463  ! OPERAND IS AN IMP LABEL WHICH MAY OR MAY NOT BE SET BUT MUST BE WITHIN
  3464  ! 4095 OF THE BASE REGISTER WHETHER IMPLIED OR SET BY 'USING'
  3465  !
21449 @ 181327:                     LINE   3461 "regression-compile-tmp/imp918s.imp"
21450 @ 181365:                     PUSH   ALT
21451 @ 181368:                     PUSHI  #0x00000002
21452 @ 181373:                     JUMPIF # L_0004

  3466              K=A(P+3)+(A(P+2)-1)<<14
21453 @ 181377:                     LINE   3466 "regression-compile-tmp/imp918s.imp"
21454 @ 181415:                     PUSH   K
21455 @ 181418:                     PUSH   A
21456 @ 181421:                     PUSH   P
21457 @ 181424:                     PUSHI  #0x00000003
21458 @ 181429:                     ADD   
21459 @ 181430:                     ACCESS
21460 @ 181431:                     PUSH   A
21461 @ 181434:                     PUSH   P
21462 @ 181437:                     PUSHI  #0x00000002
21463 @ 181442:                     ADD   
21464 @ 181443:                     ACCESS
21465 @ 181444:                     PUSHI  #0x00000001
21466 @ 181449:                     SUB   
21467 @ 181450:                     PUSHI  #0x0000000e
21468 @ 181455:                     LSH   
21469 @ 181456:                     ADD   
21470 @ 181457:                     ASSVAL

  3467              P=P+4
21471 @ 181458:                     LINE   3467 "regression-compile-tmp/imp918s.imp"
21472 @ 181496:                     PUSH   P
21473 @ 181499:                     PUSH   P
21474 @ 181502:                     PUSHI  #0x00000004
21475 @ 181507:                     ADD   
21476 @ 181508:                     ASSVAL

  3468              J=FIND3(K,LABEL(LEVEL))
21477 @ 181509:                     LINE   3468 "regression-compile-tmp/imp918s.imp"
21478 @ 181547:                     PUSH   J
21479 @ 181550:                     PUSH   FIND3
21480 @ 181553:                     PUSH   K
21481 @ 181556:                     ASSPAR
21482 @ 181557:                     PUSH   LABEL
21483 @ 181560:                     PUSH   LEVEL
21484 @ 181563:                     ACCESS
21485 @ 181564:                     ASSPAR
21486 @ 181565:                     CALL  
21487 @ 181566:                     ASSVAL

  3469              %IF J<0 %THEN PUSH123(LABEL(LEVEL),0,0,K) %AND %C
  3470                            J=LABEL(LEVEL)
21488 @ 181567:                     LINE   3469 "regression-compile-tmp/imp918s.imp"
21489 @ 181605:                     PUSH   J
21490 @ 181608:                     PUSHI  #0x00000000
21491 @ 181613:                     JUMPIF >= L_0007
21492 @ 181617:                     PUSH   PUSH123
21493 @ 181620:                     PUSH   LABEL
21494 @ 181623:                     PUSH   LEVEL
21495 @ 181626:                     ACCESS
21496 @ 181627:                     ASSPAR
21497 @ 181628:                     PUSHI  #0x00000000
21498 @ 181633:                     ASSPAR
21499 @ 181634:                     PUSHI  #0x00000000
21500 @ 181639:                     ASSPAR
21501 @ 181640:                     PUSH   K
21502 @ 181643:                     ASSPAR
21503 @ 181644:                     CALL  
21504 @ 181645:                     PUSH   J
21505 @ 181648:                     PUSH   LABEL
21506 @ 181651:                     PUSH   LEVEL
21507 @ 181654:                     ACCESS
21508 @ 181655:                     ASSVAL
21509 @ 181656:                     LOCATE L_0007

  3471              AD=FROM1(J)
21510 @ 181659:                     LINE   3471 "regression-compile-tmp/imp918s.imp"
21511 @ 181697:                     PUSH   AD
21512 @ 181700:                     PUSH   FROM1
21513 @ 181703:                     PUSH   J
21514 @ 181706:                     ASSPAR
21515 @ 181707:                     CALL  
21516 @ 181708:                     ASSVAL

  3472              REPLACE1(J,AD!X'01000000')
21517 @ 181709:                     LINE   3472 "regression-compile-tmp/imp918s.imp"
21518 @ 181747:                     PUSH   REPLACE1
21519 @ 181750:                     PUSH   J
21520 @ 181753:                     ASSPAR
21521 @ 181754:                     PUSH   AD
21522 @ 181757:                     PUSHI  #0x01000000
21523 @ 181762:                     OR    
21524 @ 181763:                     ASSPAR
21525 @ 181764:                     CALL  

  3473              %IF AD&X'FFFFFF'#0 %THEN K<-AD-Y %AND I=X %ELSE %START
21526 @ 181765:                     LINE   3473 "regression-compile-tmp/imp918s.imp"
21527 @ 181803:                     PUSH   AD
21528 @ 181806:                     PUSHI  #0x00ffffff
21529 @ 181811:                     AND   
21530 @ 181812:                     PUSHI  #0x00000000
21531 @ 181817:                     JUMPIF = L_0007
21532 @ 181821:                     PUSH   K
21533 @ 181824:                     PUSH   AD
21534 @ 181827:                     PUSH   Y
21535 @ 181830:                     SUB   
21536 @ 181831:                     JAM   
21537 @ 181832:                     PUSH   I
21538 @ 181835:                     PUSH   X
21539 @ 181838:                     ASSVAL
21540 @ 181839:                     GOTO   L_0006
21541 @ 181842:                     LOCATE L_0007

  3474                 K=0; I=0
21542 @ 181845:                     LINE   3474 "regression-compile-tmp/imp918s.imp"
21543 @ 181883:                     PUSH   K
21544 @ 181886:                     PUSHI  #0x00000000
21545 @ 181891:                     ASSVAL
21546 @ 181892:                     LINE   3474 "regression-compile-tmp/imp918s.imp"
21547 @ 181930:                     PUSH   I
21548 @ 181933:                     PUSHI  #0x00000000
21549 @ 181938:                     ASSVAL

  3475                 PUSH(SHORT INTEGER(ADDR(ASLIST(J+6))),CA,X<<24!Y)
21550 @ 181939:                     LINE   3475 "regression-compile-tmp/imp918s.imp"
21551 @ 181977:                     PUSH   PUSH
21552 @ 181980:                     PUSH   SHORTINTEGER
21553 @ 181983:                     PUSH   ADDR
21554 @ 181986:                     PUSH   ASLIST
21555 @ 181989:                     PUSH   J
21556 @ 181992:                     PUSHI  #0x00000006
21557 @ 181997:                     ADD   
21558 @ 181998:                     ACCESS
21559 @ 181999:                     ASSPAR
21560 @ 182000:                     CALL  
21561 @ 182001:                     ASSPAR
21562 @ 182002:                     CALL  
21563 @ 182003:                     ASSPAR
21564 @ 182004:                     PUSH   CA
21565 @ 182007:                     ASSPAR
21566 @ 182008:                     PUSH   X
21567 @ 182011:                     PUSHI  #0x00000018
21568 @ 182016:                     LSH   
21569 @ 182017:                     PUSH   Y
21570 @ 182020:                     OR    
21571 @ 182021:                     ASSPAR
21572 @ 182022:                     CALL  

  3476              %FINISH
21573 @ 182023:                     LINE   3476 "regression-compile-tmp/imp918s.imp"
21574 @ 182061:                     LOCATE L_0006

  3477           %FINISH %ELSE %START
21575 @ 182064:                     LINE   3477 "regression-compile-tmp/imp918s.imp"
21576 @ 182102:                     GOTO   L_0003
21577 @ 182105:                     LOCATE L_0004

  3478              %IF ALT=1 %THEN %START
21578 @ 182108:                     LINE   3478 "regression-compile-tmp/imp918s.imp"
21579 @ 182146:                     PUSH   ALT
21580 @ 182149:                     PUSHI  #0x00000001
21581 @ 182154:                     JUMPIF # L_0007

  3479                 FNAME=A(P+2)
21582 @ 182158:                     LINE   3479 "regression-compile-tmp/imp918s.imp"
21583 @ 182196:                     PUSH   FNAME
21584 @ 182199:                     PUSH   A
21585 @ 182202:                     PUSH   P
21586 @ 182205:                     PUSHI  #0x00000002
21587 @ 182210:                     ADD   
21588 @ 182211:                     ACCESS
21589 @ 182212:                     ASSVAL

  3480                 COPY TAG(FNAME)
21590 @ 182213:                     LINE   3480 "regression-compile-tmp/imp918s.imp"
21591 @ 182251:                     PUSH   COPYTAG
21592 @ 182254:                     PUSH   FNAME
21593 @ 182257:                     ASSPAR
21594 @ 182258:                     CALL  

  3481                 P=P+3
21595 @ 182259:                     LINE   3481 "regression-compile-tmp/imp918s.imp"
21596 @ 182297:                     PUSH   P
21597 @ 182300:                     PUSH   P
21598 @ 182303:                     PUSHI  #0x00000003
21599 @ 182308:                     ADD   
21600 @ 182309:                     ASSVAL

  3482                 FAULT(33,FNAME) %IF ROUT=1 %OR TYPE=4 %OR TYPE>=6
21601 @ 182310:                     LINE   3482 "regression-compile-tmp/imp918s.imp"
21602 @ 182348:                     PUSH   ROUT
21603 @ 182351:                     PUSHI  #0x00000001
21604 @ 182356:                     JUMPIF = L_000b
21605 @ 182360:                     PUSH   TYPE
21606 @ 182363:                     PUSHI  #0x00000004
21607 @ 182368:                     JUMPIF = L_000b
21608 @ 182372:                     PUSH   TYPE
21609 @ 182375:                     PUSHI  #0x00000006
21610 @ 182380:                     JUMPIF < L_000a
21611 @ 182384:                     LOCATE L_000b
21612 @ 182387:                     PUSH   FAULT
21613 @ 182390:                     PUSHI  #0x00000021
21614 @ 182395:                     ASSPAR
21615 @ 182396:                     PUSH   FNAME
21616 @ 182399:                     ASSPAR
21617 @ 182400:                     CALL  
21618 @ 182401:                     LOCATE L_000a

  3483              %FINISH %ELSE %START
21619 @ 182404:                     LINE   3483 "regression-compile-tmp/imp918s.imp"
21620 @ 182442:                     GOTO   L_0006
21621 @ 182445:                     LOCATE L_0007

  3484                 I=X; K=CA-Y
21622 @ 182448:                     LINE   3484 "regression-compile-tmp/imp918s.imp"
21623 @ 182486:                     PUSH   I
21624 @ 182489:                     PUSH   X
21625 @ 182492:                     ASSVAL
21626 @ 182493:                     LINE   3484 "regression-compile-tmp/imp918s.imp"
21627 @ 182531:                     PUSH   K
21628 @ 182534:                     PUSH   CA
21629 @ 182537:                     PUSH   Y
21630 @ 182540:                     SUB   
21631 @ 182541:                     ASSVAL

  3485                 P=P+2
21632 @ 182542:                     LINE   3485 "regression-compile-tmp/imp918s.imp"
21633 @ 182580:                     PUSH   P
21634 @ 182583:                     PUSH   P
21635 @ 182586:                     PUSHI  #0x00000002
21636 @ 182591:                     ADD   
21637 @ 182592:                     ASSVAL

  3486              %FINISH
21638 @ 182593:                     LINE   3486 "regression-compile-tmp/imp918s.imp"
21639 @ 182631:                     LOCATE L_0006

  3487              ALT=A(P); P=P+1
21640 @ 182634:                     LINE   3487 "regression-compile-tmp/imp918s.imp"
21641 @ 182672:                     PUSH   ALT
21642 @ 182675:                     PUSH   A
21643 @ 182678:                     PUSH   P
21644 @ 182681:                     ACCESS
21645 @ 182682:                     ASSVAL
21646 @ 182683:                     LINE   3487 "regression-compile-tmp/imp918s.imp"
21647 @ 182721:                     PUSH   P
21648 @ 182724:                     PUSH   P
21649 @ 182727:                     PUSHI  #0x00000001
21650 @ 182732:                     ADD   
21651 @ 182733:                     ASSVAL

  3488              %IF ALT#3 %THEN %START
21652 @ 182734:                     LINE   3488 "regression-compile-tmp/imp918s.imp"
21653 @ 182772:                     PUSH   ALT
21654 @ 182775:                     PUSHI  #0x00000003
21655 @ 182780:                     JUMPIF = L_0007

  3489                 %IF ALT=1 %THEN K=K+A(P) %ELSE K=K-A(P)
21656 @ 182784:                     LINE   3489 "regression-compile-tmp/imp918s.imp"
21657 @ 182822:                     PUSH   ALT
21658 @ 182825:                     PUSHI  #0x00000001
21659 @ 182830:                     JUMPIF # L_000a
21660 @ 182834:                     PUSH   K
21661 @ 182837:                     PUSH   K
21662 @ 182840:                     PUSH   A
21663 @ 182843:                     PUSH   P
21664 @ 182846:                     ACCESS
21665 @ 182847:                     ADD   
21666 @ 182848:                     ASSVAL
21667 @ 182849:                     GOTO   L_0009
21668 @ 182852:                     LOCATE L_000a
21669 @ 182855:                     PUSH   K
21670 @ 182858:                     PUSH   K
21671 @ 182861:                     PUSH   A
21672 @ 182864:                     PUSH   P
21673 @ 182867:                     ACCESS
21674 @ 182868:                     SUB   
21675 @ 182869:                     ASSVAL
21676 @ 182870:                     LOCATE L_0009

  3490                 P=P+1
21677 @ 182873:                     LINE   3490 "regression-compile-tmp/imp918s.imp"
21678 @ 182911:                     PUSH   P
21679 @ 182914:                     PUSH   P
21680 @ 182917:                     PUSHI  #0x00000001
21681 @ 182922:                     ADD   
21682 @ 182923:                     ASSVAL

  3491              %FINISH
21683 @ 182924:                     LINE   3491 "regression-compile-tmp/imp918s.imp"
21684 @ 182962:                     LOCATE L_0007

  3492           %FINISH
21685 @ 182965:                     LINE   3492 "regression-compile-tmp/imp918s.imp"
21686 @ 183003:                     LOCATE L_0003

  3493           %END
21687 @ 183006:                     LINE   3493 "regression-compile-tmp/imp918s.imp"
21688 @ 183044:                  END    _lev0id0_CSS_CUCI_CUCS {lev=4 --> 3}

  3494  Label99:      %END
21689 @ 183045:                  LINE   3494 "regression-compile-tmp/imp918s.imp"
21690 @ 183083:                  LABEL  L_020d
21691 @ 183086:                  LINE   3494 "regression-compile-tmp/imp918s.imp"
21692 @ 183124:               END    _lev0id0_CSS_CUCI {lev=3 --> 2}

  3495           %ROUTINE LAB LOOK(%INTEGERNAME FLAG,%INTEGER LAB)
  3496  ! THIS ROUTINE LOOKS THRO THE STATEMENTS HELD IN THE CYCLIC BUFFER
  3497  ! TO TRY TO FIND LABEL 'LAB'.
  3498  
  3499           {%SHORTROUTINE}
21693 @ 183125:               LINE   3495 "regression-compile-tmp/imp918s.imp"
21694 @ 183163:               DEF    LABLOOK (_lev0id0_CSS_LABLOOK) p1=V_0166 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
21695 @ 183182:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
21696 @ 183183:                     DEF    FLAG p1=V_01ff a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
21697 @ 183199:                     DEF    LAB p1=V_0200 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
21698 @ 183214:                  FINISH ) {lev=3}

  3500           %INTEGER I,J,K,F,MUI,ME
21699 @ 183215:                  LINE   3500 "regression-compile-tmp/imp918s.imp"
21700 @ 183253:                  DEF    I p1=V_0201 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
21701 @ 183266:                  DEF    J p1=V_0202 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
21702 @ 183279:                  DEF    K p1=V_0203 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
21703 @ 183292:                  DEF    F p1=V_0204 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
21704 @ 183305:                  DEF    MUI p1=V_0205 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
21705 @ 183320:                  DEF    ME p1=V_0206 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

  3501           FLAG=0
21706 @ 183334:                  LINE   3501 "regression-compile-tmp/imp918s.imp"
21707 @ 183372:                  PUSH   FLAG
21708 @ 183375:                  PUSHI  #0x00000000
21709 @ 183380:                  ASSVAL

  3502           %RETURN %UNLESS STMTSHELD>1
21710 @ 183381:                  LINE   3502 "regression-compile-tmp/imp918s.imp"
21711 @ 183419:                  PUSH   STMTSHELD
21712 @ 183422:                  PUSHI  #0x00000001
21713 @ 183427:                  JUMPIF > L_0004
21714 @ 183431:                  RETURN
21715 @ 183432:                  LOCATE L_0004

  3503           %IF |LAB-SFLABEL|<=1 %THEN F=1 %ELSE F=0
21716 @ 183435:                  LINE   3503 "regression-compile-tmp/imp918s.imp"
21717 @ 183473:                  PUSH   LAB
21718 @ 183476:                  PUSH   SFLABEL
21719 @ 183479:                  SUB   
21720 @ 183480:                  MOD   
21721 @ 183481:                  PUSHI  #0x00000001
21722 @ 183486:                  JUMPIF > L_0004
21723 @ 183490:                  PUSH   F
21724 @ 183493:                  PUSHI  #0x00000001
21725 @ 183498:                  ASSVAL
21726 @ 183499:                  GOTO   L_0003
21727 @ 183502:                  LOCATE L_0004
21728 @ 183505:                  PUSH   F
21729 @ 183508:                  PUSHI  #0x00000000
21730 @ 183513:                  ASSVAL
21731 @ 183514:                  LOCATE L_0003

  3504           %CYCLE I=2,1,STMTSHELD;       ! CYCLE THROUGH STATEMENTS
21732 @ 183517:                  LINE   3504 "regression-compile-tmp/imp918s.imp"
21733 @ 183555:                  PUSH   I
21734 @ 183558:                  PUSHI  #0x00000001
21735 @ 183563:                  PUSH   STMTSHELD
21736 @ 183566:                  PUSHI  #0x00000002
21737 @ 183571:                  FOR    L_0003

  3505           J=STPTRS(I)
21738 @ 183574:                  LINE   3505 "regression-compile-tmp/imp918s.imp"
21739 @ 183612:                  PUSH   J
21740 @ 183615:                  PUSH   STPTRS
21741 @ 183618:                  PUSH   I
21742 @ 183621:                  ACCESS
21743 @ 183622:                  ASSVAL

  3506           %IF F>0 %THEN %START
21744 @ 183623:                  LINE   3506 "regression-compile-tmp/imp918s.imp"
21745 @ 183661:                  PUSH   F
21746 @ 183664:                  PUSHI  #0x00000000
21747 @ 183669:                  JUMPIF <= L_0007

  3507           -> FIN %IF A(J)=14
21748 @ 183673:                  LINE   3507 "regression-compile-tmp/imp918s.imp"
21749 @ 183711:                  PUSH   A
21750 @ 183714:                  PUSH   J
21751 @ 183717:                  ACCESS
21752 @ 183718:                  PUSHI  #0x0000000e
21753 @ 183723:                  JUMPIF # L_000a
21754 @ 183727:                  JUMP   L_0207
21755 @ 183730:                  LOCATE L_000a

  3508           -> AGN %UNLESS A(J)=5
21756 @ 183733:                  LINE   3508 "regression-compile-tmp/imp918s.imp"
21757 @ 183771:                  PUSH   A
21758 @ 183774:                  PUSH   J
21759 @ 183777:                  ACCESS
21760 @ 183778:                  PUSHI  #0x00000005
21761 @ 183783:                  JUMPIF = L_000a
21762 @ 183787:                  JUMP   L_0208
21763 @ 183790:                  LOCATE L_000a

  3509           MUI=J+2+A(J+2); ME=MUI+1+A(MUI+1)
21764 @ 183793:                  LINE   3509 "regression-compile-tmp/imp918s.imp"
21765 @ 183831:                  PUSH   MUI
21766 @ 183834:                  PUSH   J
21767 @ 183837:                  PUSHI  #0x00000002
21768 @ 183842:                  ADD   
21769 @ 183843:                  PUSH   A
21770 @ 183846:                  PUSH   J
21771 @ 183849:                  PUSHI  #0x00000002
21772 @ 183854:                  ADD   
21773 @ 183855:                  ACCESS
21774 @ 183856:                  ADD   
21775 @ 183857:                  ASSVAL
21776 @ 183858:                  LINE   3509 "regression-compile-tmp/imp918s.imp"
21777 @ 183896:                  PUSH   ME
21778 @ 183899:                  PUSH   MUI
21779 @ 183902:                  PUSHI  #0x00000001
21780 @ 183907:                  ADD   
21781 @ 183908:                  PUSH   A
21782 @ 183911:                  PUSH   MUI
21783 @ 183914:                  PUSHI  #0x00000001
21784 @ 183919:                  ADD   
21785 @ 183920:                  ACCESS
21786 @ 183921:                  ADD   
21787 @ 183922:                  ASSVAL

  3510           F=F+1 %IF A(MUI)<=2 %OR A(ME)=1
21788 @ 183923:                  LINE   3510 "regression-compile-tmp/imp918s.imp"
21789 @ 183961:                  PUSH   A
21790 @ 183964:                  PUSH   MUI
21791 @ 183967:                  ACCESS
21792 @ 183968:                  PUSHI  #0x00000002
21793 @ 183973:                  JUMPIF <= L_000b
21794 @ 183977:                  PUSH   A
21795 @ 183980:                  PUSH   ME
21796 @ 183983:                  ACCESS
21797 @ 183984:                  PUSHI  #0x00000001
21798 @ 183989:                  JUMPIF # L_000a
21799 @ 183993:                  LOCATE L_000b
21800 @ 183996:                  PUSH   F
21801 @ 183999:                  PUSH   F
21802 @ 184002:                  PUSHI  #0x00000001
21803 @ 184007:                  ADD   
21804 @ 184008:                  ASSVAL
21805 @ 184009:                  LOCATE L_000a

  3511           -> AGN
21806 @ 184012:                  LINE   3511 "regression-compile-tmp/imp918s.imp"
21807 @ 184050:                  JUMP   L_0208

  3512  FIN:     %IF F=1 %THEN %START
21808 @ 184053:                  LINE   3512 "regression-compile-tmp/imp918s.imp"
21809 @ 184091:                  LABEL  L_0207
21810 @ 184094:                  LINE   3512 "regression-compile-tmp/imp918s.imp"
21811 @ 184132:                  PUSH   F
21812 @ 184135:                  PUSHI  #0x00000001
21813 @ 184140:                  JUMPIF # L_000a

  3513           FLAG=1; %RETURN; %FINISH
21814 @ 184144:                  LINE   3513 "regression-compile-tmp/imp918s.imp"
21815 @ 184182:                  PUSH   FLAG
21816 @ 184185:                  PUSHI  #0x00000001
21817 @ 184190:                  ASSVAL
21818 @ 184191:                  LINE   3513 "regression-compile-tmp/imp918s.imp"
21819 @ 184229:                  RETURN
21820 @ 184230:                  LINE   3513 "regression-compile-tmp/imp918s.imp"
21821 @ 184268:                  LOCATE L_000a

  3514           F=F-1
21822 @ 184271:                  LINE   3514 "regression-compile-tmp/imp918s.imp"
21823 @ 184309:                  PUSH   F
21824 @ 184312:                  PUSH   F
21825 @ 184315:                  PUSHI  #0x00000001
21826 @ 184320:                  SUB   
21827 @ 184321:                  ASSVAL

  3515           F=F+1 %IF A(J+1)=1
21828 @ 184322:                  LINE   3515 "regression-compile-tmp/imp918s.imp"
21829 @ 184360:                  PUSH   A
21830 @ 184363:                  PUSH   J
21831 @ 184366:                  PUSHI  #0x00000001
21832 @ 184371:                  ADD   
21833 @ 184372:                  ACCESS
21834 @ 184373:                  PUSHI  #0x00000001
21835 @ 184378:                  JUMPIF # L_000a
21836 @ 184382:                  PUSH   F
21837 @ 184385:                  PUSH   F
21838 @ 184388:                  PUSHI  #0x00000001
21839 @ 184393:                  ADD   
21840 @ 184394:                  ASSVAL
21841 @ 184395:                  LOCATE L_000a

  3516           -> AGN; %FINISH
21842 @ 184398:                  LINE   3516 "regression-compile-tmp/imp918s.imp"
21843 @ 184436:                  JUMP   L_0208
21844 @ 184439:                  LINE   3516 "regression-compile-tmp/imp918s.imp"
21845 @ 184477:                  LOCATE L_0007

  3517           -> numeric LAB %IF A(J)=4;            ! NUMERIC LAB
21846 @ 184480:                  LINE   3517 "regression-compile-tmp/imp918s.imp"
21847 @ 184518:                  PUSH   A
21848 @ 184521:                  PUSH   J
21849 @ 184524:                  ACCESS
21850 @ 184525:                  PUSHI  #0x00000004
21851 @ 184530:                  JUMPIF # L_0007
21852 @ 184534:                  JUMP   L_0209
21853 @ 184537:                  LOCATE L_0007

  3518           -> AGN %UNLESS A(J)=1 %AND A(J+2)=1 %AND A(J+5)=2
21854 @ 184540:                  LINE   3518 "regression-compile-tmp/imp918s.imp"
21855 @ 184578:                  PUSH   A
21856 @ 184581:                  PUSH   J
21857 @ 184584:                  ACCESS
21858 @ 184585:                  PUSHI  #0x00000001
21859 @ 184590:                  JUMPIF # L_0008
21860 @ 184594:                  PUSH   A
21861 @ 184597:                  PUSH   J
21862 @ 184600:                  PUSHI  #0x00000002
21863 @ 184605:                  ADD   
21864 @ 184606:                  ACCESS
21865 @ 184607:                  PUSHI  #0x00000001
21866 @ 184612:                  JUMPIF # L_0008
21867 @ 184616:                  PUSH   A
21868 @ 184619:                  PUSH   J
21869 @ 184622:                  PUSHI  #0x00000005
21870 @ 184627:                  ADD   
21871 @ 184628:                  ACCESS
21872 @ 184629:                  PUSHI  #0x00000002
21873 @ 184634:                  JUMPIF = L_0007
21874 @ 184638:                  LOCATE L_0008
21875 @ 184641:                  JUMP   L_0208
21876 @ 184644:                  LOCATE L_0007

  3519           K=J+1+A(J+1); -> AGN %UNLESS A(K)=1
21877 @ 184647:                  LINE   3519 "regression-compile-tmp/imp918s.imp"
21878 @ 184685:                  PUSH   K
21879 @ 184688:                  PUSH   J
21880 @ 184691:                  PUSHI  #0x00000001
21881 @ 184696:                  ADD   
21882 @ 184697:                  PUSH   A
21883 @ 184700:                  PUSH   J
21884 @ 184703:                  PUSHI  #0x00000001
21885 @ 184708:                  ADD   
21886 @ 184709:                  ACCESS
21887 @ 184710:                  ADD   
21888 @ 184711:                  ASSVAL
21889 @ 184712:                  LINE   3519 "regression-compile-tmp/imp918s.imp"
21890 @ 184750:                  PUSH   A
21891 @ 184753:                  PUSH   K
21892 @ 184756:                  ACCESS
21893 @ 184757:                  PUSHI  #0x00000001
21894 @ 184762:                  JUMPIF = L_0007
21895 @ 184766:                  JUMP   L_0208
21896 @ 184769:                  LOCATE L_0007

  3520           K=16384+A(J+4)
21897 @ 184772:                  LINE   3520 "regression-compile-tmp/imp918s.imp"
21898 @ 184810:                  PUSH   K
21899 @ 184813:                  PUSHI  #0x00004000
21900 @ 184818:                  PUSH   A
21901 @ 184821:                  PUSH   J
21902 @ 184824:                  PUSHI  #0x00000004
21903 @ 184829:                  ADD   
21904 @ 184830:                  ACCESS
21905 @ 184831:                  ADD   
21906 @ 184832:                  ASSVAL

  3521  SUCC:    -> AGN %UNLESS K=LAB
21907 @ 184833:                  LINE   3521 "regression-compile-tmp/imp918s.imp"
21908 @ 184871:                  LABEL  L_020a
21909 @ 184874:                  LINE   3521 "regression-compile-tmp/imp918s.imp"
21910 @ 184912:                  PUSH   K
21911 @ 184915:                  PUSH   LAB
21912 @ 184918:                  JUMPIF = L_0007
21913 @ 184922:                  JUMP   L_0208
21914 @ 184925:                  LOCATE L_0007

  3522           FLAG=1; %RETURN
21915 @ 184928:                  LINE   3522 "regression-compile-tmp/imp918s.imp"
21916 @ 184966:                  PUSH   FLAG
21917 @ 184969:                  PUSHI  #0x00000001
21918 @ 184974:                  ASSVAL
21919 @ 184975:                  LINE   3522 "regression-compile-tmp/imp918s.imp"
21920 @ 185013:                  RETURN

  3523  numeric LAB:     K=A(J+1); -> SUCC
21921 @ 185014:                  LINE   3523 "regression-compile-tmp/imp918s.imp"
21922 @ 185052:                  LABEL  L_0209
21923 @ 185055:                  LINE   3523 "regression-compile-tmp/imp918s.imp"
21924 @ 185093:                  PUSH   K
21925 @ 185096:                  PUSH   A
21926 @ 185099:                  PUSH   J
21927 @ 185102:                  PUSHI  #0x00000001
21928 @ 185107:                  ADD   
21929 @ 185108:                  ACCESS
21930 @ 185109:                  ASSVAL
21931 @ 185110:                  LINE   3523 "regression-compile-tmp/imp918s.imp"
21932 @ 185148:                  JUMP   L_020a

  3524  AGN:     %REPEAT
21933 @ 185151:                  LINE   3524 "regression-compile-tmp/imp918s.imp"
21934 @ 185189:                  LABEL  L_0208
21935 @ 185192:                  LINE   3524 "regression-compile-tmp/imp918s.imp"
21936 @ 185230:                  REPEAT L_0003
21937 @ 185233:                  LOCATE L_0004

  3525           %END
  3526  {%RECORDFORMAT F(%INTEGER VAL,S1,S2,S3)}
  3527  !         %RECORDFORMAT OPTFORM(%BYTEINTEGER COUNT,TYPE,%INTEGER BITS,%C
  3528  !                  PTYPE,XTRA)
  3529  !         %RECORD(OPTFORM)%ARRAY OPTINF(0:25)
  3530  !!%ROUTINE QSORT(%RECORD(F)%ARRAYNAME A,%INTEGER I,J)
21938 @ 185236:                  LINE   3525 "regression-compile-tmp/imp918s.imp"
21939 @ 185274:               END    _lev0id0_CSS_LABLOOK {lev=3 --> 2}

  3531  %ROUTINE QSORT(%RECORD(OPTFORM)%ARRAYNAME A,%INTEGER I,J)
  3532  {This is totally incompatible with where it was called. Wrong record format entirely.}
  3533  {%RECORDSPEC A(F)}
  3534  !!%RECORD (F)D
21940 @ 185275:               LINE   3531 "regression-compile-tmp/imp918s.imp"
21941 @ 185313:               DEF    QSORT (_lev0id0_CSS_QSORT) p1=V_01ff 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
21942 @ 185330:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
21943 @ 185331:                     DEF    A p1=V_0200 a/tf=4c b/format=11a c/ostate=140  type=4 (record) form=12 (<form:12>) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
21944 @ 185344:                     DEF    I p1=V_0201 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
21945 @ 185357:                     DEF    J p1=V_0202 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
21946 @ 185370:                  FINISH ) {lev=3}

  3535  %RECORD (OPTFORM)D
21947 @ 185371:                  LINE   3535 "regression-compile-tmp/imp918s.imp"
21948 @ 185409:                  DEF    D p1=V_0203 a/tf=41 b/format=11a c/ostate=0  type=4 (record) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  3536  %INTEGER L,U
21949 @ 185422:                  LINE   3536 "regression-compile-tmp/imp918s.imp"
21950 @ 185460:                  DEF    L p1=V_0204 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
21951 @ 185473:                  DEF    U p1=V_0205 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

  3537           %IF I>=J %THEN %RETURN
21952 @ 185486:                  LINE   3537 "regression-compile-tmp/imp918s.imp"
21953 @ 185524:                  PUSH   I
21954 @ 185527:                  PUSH   J
21955 @ 185530:                  JUMPIF < L_0004
21956 @ 185534:                  RETURN
21957 @ 185535:                  LOCATE L_0004

  3538           L=I; U=J; D=A(J); ->FIND
21958 @ 185538:                  LINE   3538 "regression-compile-tmp/imp918s.imp"
21959 @ 185576:                  PUSH   L
21960 @ 185579:                  PUSH   I
21961 @ 185582:                  ASSVAL
21962 @ 185583:                  LINE   3538 "regression-compile-tmp/imp918s.imp"
21963 @ 185621:                  PUSH   U
21964 @ 185624:                  PUSH   J
21965 @ 185627:                  ASSVAL
21966 @ 185628:                  LINE   3538 "regression-compile-tmp/imp918s.imp"
21967 @ 185666:                  PUSH   D
21968 @ 185669:                  PUSH   A
21969 @ 185672:                  PUSH   J
21970 @ 185675:                  ACCESS
21971 @ 185676:                  ASSVAL
21972 @ 185677:                  LINE   3538 "regression-compile-tmp/imp918s.imp"
21973 @ 185715:                  JUMP   L_0206

  3539  UP:
21974 @ 185718:                  LINE   3539 "regression-compile-tmp/imp918s.imp"
21975 @ 185756:                  LABEL  L_0207

  3540           L=L+1
21976 @ 185759:                  LINE   3540 "regression-compile-tmp/imp918s.imp"
21977 @ 185797:                  PUSH   L
21978 @ 185800:                  PUSH   L
21979 @ 185803:                  PUSHI  #0x00000001
21980 @ 185808:                  ADD   
21981 @ 185809:                  ASSVAL

  3541           %IF L=U %THEN ->FOUND
21982 @ 185810:                  LINE   3541 "regression-compile-tmp/imp918s.imp"
21983 @ 185848:                  PUSH   L
21984 @ 185851:                  PUSH   U
21985 @ 185854:                  JUMPIF # L_0004
21986 @ 185858:                  JUMP   L_0208
21987 @ 185861:                  LOCATE L_0004

  3542  FIND:
  3543           {%UNLESS A(L)_VAL>D_VAL %THEN ->UP}
21988 @ 185864:                  LINE   3542 "regression-compile-tmp/imp918s.imp"
21989 @ 185902:                  LABEL  L_0206

  3544           %UNLESS A(L)_count>D_count %THEN ->UP
21990 @ 185905:                  LINE   3544 "regression-compile-tmp/imp918s.imp"
21991 @ 185943:                  PUSH   A
21992 @ 185946:                  PUSH   L
21993 @ 185949:                  ACCESS
21994 @ 185950:                  SELECT 1
21995 @ 185953:                  PUSH   D
21996 @ 185956:                  SELECT 1
21997 @ 185959:                  JUMPIF > L_0004
21998 @ 185963:                  JUMP   L_0207
21999 @ 185966:                  LOCATE L_0004

  3545           A(U)=A(L)
22000 @ 185969:                  LINE   3545 "regression-compile-tmp/imp918s.imp"
22001 @ 186007:                  PUSH   A
22002 @ 186010:                  PUSH   U
22003 @ 186013:                  ACCESS
22004 @ 186014:                  PUSH   A
22005 @ 186017:                  PUSH   L
22006 @ 186020:                  ACCESS
22007 @ 186021:                  ASSVAL

  3546  DOWN:
22008 @ 186022:                  LINE   3546 "regression-compile-tmp/imp918s.imp"
22009 @ 186060:                  LABEL  L_0209

  3547           U=U-1
22010 @ 186063:                  LINE   3547 "regression-compile-tmp/imp918s.imp"
22011 @ 186101:                  PUSH   U
22012 @ 186104:                  PUSH   U
22013 @ 186107:                  PUSHI  #0x00000001
22014 @ 186112:                  SUB   
22015 @ 186113:                  ASSVAL

  3548           %IF L=U %THEN ->FOUND
  3549           {%UNLESS A(U)_VAL<D_VAL %THEN ->DOWN}
22016 @ 186114:                  LINE   3548 "regression-compile-tmp/imp918s.imp"
22017 @ 186152:                  PUSH   L
22018 @ 186155:                  PUSH   U
22019 @ 186158:                  JUMPIF # L_0004
22020 @ 186162:                  JUMP   L_0208
22021 @ 186165:                  LOCATE L_0004

  3550           %UNLESS A(U)_count<D_count %THEN ->DOWN
22022 @ 186168:                  LINE   3550 "regression-compile-tmp/imp918s.imp"
22023 @ 186206:                  PUSH   A
22024 @ 186209:                  PUSH   U
22025 @ 186212:                  ACCESS
22026 @ 186213:                  SELECT 1
22027 @ 186216:                  PUSH   D
22028 @ 186219:                  SELECT 1
22029 @ 186222:                  JUMPIF < L_0004
22030 @ 186226:                  JUMP   L_0209
22031 @ 186229:                  LOCATE L_0004

  3551           A(L)=A(U); ->UP
22032 @ 186232:                  LINE   3551 "regression-compile-tmp/imp918s.imp"
22033 @ 186270:                  PUSH   A
22034 @ 186273:                  PUSH   L
22035 @ 186276:                  ACCESS
22036 @ 186277:                  PUSH   A
22037 @ 186280:                  PUSH   U
22038 @ 186283:                  ACCESS
22039 @ 186284:                  ASSVAL
22040 @ 186285:                  LINE   3551 "regression-compile-tmp/imp918s.imp"
22041 @ 186323:                  JUMP   L_0207

  3552  FOUND:
22042 @ 186326:                  LINE   3552 "regression-compile-tmp/imp918s.imp"
22043 @ 186364:                  LABEL  L_0208

  3553           A(U)=D
22044 @ 186367:                  LINE   3553 "regression-compile-tmp/imp918s.imp"
22045 @ 186405:                  PUSH   A
22046 @ 186408:                  PUSH   U
22047 @ 186411:                  ACCESS
22048 @ 186412:                  PUSH   D
22049 @ 186415:                  ASSVAL

  3554           QSORT(A,I,L-1)
22050 @ 186416:                  LINE   3554 "regression-compile-tmp/imp918s.imp"
22051 @ 186454:                  PUSH   QSORT
22052 @ 186457:                  PUSH   A
22053 @ 186460:                  ASSPAR
22054 @ 186461:                  PUSH   I
22055 @ 186464:                  ASSPAR
22056 @ 186465:                  PUSH   L
22057 @ 186468:                  PUSHI  #0x00000001
22058 @ 186473:                  SUB   
22059 @ 186474:                  ASSPAR
22060 @ 186475:                  CALL  

  3555           QSORT(A,U+1,J)
22061 @ 186476:                  LINE   3555 "regression-compile-tmp/imp918s.imp"
22062 @ 186514:                  PUSH   QSORT
22063 @ 186517:                  PUSH   A
22064 @ 186520:                  ASSPAR
22065 @ 186521:                  PUSH   U
22066 @ 186524:                  PUSHI  #0x00000001
22067 @ 186529:                  ADD   
22068 @ 186530:                  ASSPAR
22069 @ 186531:                  PUSH   J
22070 @ 186534:                  ASSPAR
22071 @ 186535:                  CALL  

  3556  %END
22072 @ 186536:                  LINE   3556 "regression-compile-tmp/imp918s.imp"
22073 @ 186574:               END    _lev0id0_CSS_QSORT {lev=3 --> 2}

  3557  %ROUTINE OPTSAVE(%INTEGER TYPE,Z,PTYPE,XTRA)
22074 @ 186575:               LINE   3557 "regression-compile-tmp/imp918s.imp"
22075 @ 186613:               DEF    OPTSAVE (_lev0id0_CSS_OPTSAVE) p1=V_0200 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
22076 @ 186632:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
22077 @ 186633:                     DEF    TYPE p1=V_0201 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
22078 @ 186649:                     DEF    Z p1=V_0202 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
22079 @ 186662:                     DEF    PTYPE p1=V_0203 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
22080 @ 186679:                     DEF    XTRA p1=V_0204 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
22081 @ 186695:                  FINISH ) {lev=3}

  3558  %RECORD(OPTFORM)%NAME OPTE
22082 @ 186696:                  LINE   3558 "regression-compile-tmp/imp918s.imp"
22083 @ 186734:                  DEF    OPTE p1=V_0205 a/tf=42 b/format=11a c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  3559  %INTEGER I
22084 @ 186750:                  LINE   3559 "regression-compile-tmp/imp918s.imp"
22085 @ 186788:                  DEF    I p1=V_0206 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

  3560           %IF OPTPTR>=24 %THEN %RETURN
22086 @ 186801:                  LINE   3560 "regression-compile-tmp/imp918s.imp"
22087 @ 186839:                  PUSH   OPTPTR
22088 @ 186842:                  PUSHI  #0x00000018
22089 @ 186847:                  JUMPIF < L_0004
22090 @ 186851:                  RETURN
22091 @ 186852:                  LOCATE L_0004

  3561           I=1
22092 @ 186855:                  LINE   3561 "regression-compile-tmp/imp918s.imp"
22093 @ 186893:                  PUSH   I
22094 @ 186896:                  PUSHI  #0x00000001
22095 @ 186901:                  ASSVAL

  3562           %WHILE I<=OPTPTR %CYCLE
22096 @ 186902:                  LINE   3562 "regression-compile-tmp/imp918s.imp"
22097 @ 186940:                  LOCATE L_0003
22098 @ 186943:                  PUSH   I
22099 @ 186946:                  PUSH   OPTPTR
22100 @ 186949:                  JUMPIF > L_0004

  3563              OPTE==OPTINF(I)
22101 @ 186953:                  LINE   3563 "regression-compile-tmp/imp918s.imp"
22102 @ 186991:                  PUSH   OPTE
22103 @ 186994:                  PUSH   OPTINF
22104 @ 186997:                  PUSH   I
22105 @ 187000:                  ACCESS
22106 @ 187001:                  ASSREF

  3564              %IF TYPE=OPTE_TYPE %AND XTRA=OPTE_XTRA %START
22107 @ 187002:                  LINE   3564 "regression-compile-tmp/imp918s.imp"
22108 @ 187040:                  PUSH   TYPE
22109 @ 187043:                  PUSH   OPTE
22110 @ 187046:                  SELECT 2
22111 @ 187049:                  JUMPIF # L_0007
22112 @ 187053:                  PUSH   XTRA
22113 @ 187056:                  PUSH   OPTE
22114 @ 187059:                  SELECT 5
22115 @ 187062:                  JUMPIF # L_0007

  3565                 OPTE_COUNT=OPTE_COUNT+1
22116 @ 187066:                  LINE   3565 "regression-compile-tmp/imp918s.imp"
22117 @ 187104:                  PUSH   OPTE
22118 @ 187107:                  SELECT 1
22119 @ 187110:                  PUSH   OPTE
22120 @ 187113:                  SELECT 1
22121 @ 187116:                  PUSHI  #0x00000001
22122 @ 187121:                  ADD   
22123 @ 187122:                  ASSVAL

  3566                 OPTE_BITS=OPTE_BITS!1<<Z
22124 @ 187123:                  LINE   3566 "regression-compile-tmp/imp918s.imp"
22125 @ 187161:                  PUSH   OPTE
22126 @ 187164:                  SELECT 3
22127 @ 187167:                  PUSH   OPTE
22128 @ 187170:                  SELECT 3
22129 @ 187173:                  PUSHI  #0x00000001
22130 @ 187178:                  PUSH   Z
22131 @ 187181:                  LSH   
22132 @ 187182:                  OR    
22133 @ 187183:                  ASSVAL

  3567                 %RETURN
22134 @ 187184:                  LINE   3567 "regression-compile-tmp/imp918s.imp"
22135 @ 187222:                  RETURN

  3568              %FINISH
22136 @ 187223:                  LINE   3568 "regression-compile-tmp/imp918s.imp"
22137 @ 187261:                  LOCATE L_0007

  3569              I=I+1
22138 @ 187264:                  LINE   3569 "regression-compile-tmp/imp918s.imp"
22139 @ 187302:                  PUSH   I
22140 @ 187305:                  PUSH   I
22141 @ 187308:                  PUSHI  #0x00000001
22142 @ 187313:                  ADD   
22143 @ 187314:                  ASSVAL

  3570           %REPEAT
22144 @ 187315:                  LINE   3570 "regression-compile-tmp/imp918s.imp"
22145 @ 187353:                  REPEAT L_0003
22146 @ 187356:                  LOCATE L_0004

  3571           OPTPTR=OPTPTR+1
22147 @ 187359:                  LINE   3571 "regression-compile-tmp/imp918s.imp"
22148 @ 187397:                  PUSH   OPTPTR
22149 @ 187400:                  PUSH   OPTPTR
22150 @ 187403:                  PUSHI  #0x00000001
22151 @ 187408:                  ADD   
22152 @ 187409:                  ASSVAL

  3572           OPTE==OPTINF(OPTPTR)
22153 @ 187410:                  LINE   3572 "regression-compile-tmp/imp918s.imp"
22154 @ 187448:                  PUSH   OPTE
22155 @ 187451:                  PUSH   OPTINF
22156 @ 187454:                  PUSH   OPTPTR
22157 @ 187457:                  ACCESS
22158 @ 187458:                  ASSREF

  3573           OPTE_COUNT=1
22159 @ 187459:                  LINE   3573 "regression-compile-tmp/imp918s.imp"
22160 @ 187497:                  PUSH   OPTE
22161 @ 187500:                  SELECT 1
22162 @ 187503:                  PUSHI  #0x00000001
22163 @ 187508:                  ASSVAL

  3574           OPTE_TYPE=TYPE
22164 @ 187509:                  LINE   3574 "regression-compile-tmp/imp918s.imp"
22165 @ 187547:                  PUSH   OPTE
22166 @ 187550:                  SELECT 2
22167 @ 187553:                  PUSH   TYPE
22168 @ 187556:                  ASSVAL

  3575           OPTE_BITS=1<<Z
22169 @ 187557:                  LINE   3575 "regression-compile-tmp/imp918s.imp"
22170 @ 187595:                  PUSH   OPTE
22171 @ 187598:                  SELECT 3
22172 @ 187601:                  PUSHI  #0x00000001
22173 @ 187606:                  PUSH   Z
22174 @ 187609:                  LSH   
22175 @ 187610:                  ASSVAL

  3576           OPTE_PTYPE=PTYPE
22176 @ 187611:                  LINE   3576 "regression-compile-tmp/imp918s.imp"
22177 @ 187649:                  PUSH   OPTE
22178 @ 187652:                  SELECT 4
22179 @ 187655:                  PUSH   PTYPE
22180 @ 187658:                  ASSVAL

  3577           OPTE_XTRA=XTRA
22181 @ 187659:                  LINE   3577 "regression-compile-tmp/imp918s.imp"
22182 @ 187697:                  PUSH   OPTE
22183 @ 187700:                  SELECT 5
22184 @ 187703:                  PUSH   XTRA
22185 @ 187706:                  ASSVAL

  3578  %END
22186 @ 187707:                  LINE   3578 "regression-compile-tmp/imp918s.imp"
22187 @ 187745:               END    _lev0id0_CSS_OPTSAVE {lev=3 --> 2}

  3579           %ROUTINE VALLOC(%INTEGER REG,TN)
  3580           {%SHORTROUTINE}
  3581  !***********************************************************************
  3582  !*       ALLOCATE A VARIABLE (TAGS=TN) TO REGISTER REG BY LOADING      *
  3583  !*       THE REGISTER AND FRIGGING THE TAGS. ONLY SIMPLE INTEGERS      *
  3584  !*       (PTYPE=1) CAN BE ALLOCATED TO REGISTERS.                      *
  3585  !*       BYTES AND SHORTS ARE TRUNCATED BY <- ASSIGNMENTS.             *
  3586  !*       NAME-TYPES MAY HAVE AN ALTER EGO                              *
  3587  !*       THE ALLOCATION CAN ONLY BE MADE FOR SECTIONS OF CODE THAT     *
  3588  !*       HAVE NO RT-CALLS OR LABELS/JUMPS                              *
  3589  !********-**************************************************************
22188 @ 187746:               LINE   3579 "regression-compile-tmp/imp918s.imp"
22189 @ 187784:               DEF    VALLOC (_lev0id0_CSS_VALLOC) p1=V_01b8 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
22190 @ 187802:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
22191 @ 187803:                     DEF    REG p1=V_0201 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
22192 @ 187818:                     DEF    TN p1=V_0202 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
22193 @ 187832:                  FINISH ) {lev=3}

  3590           %INTEGER S1,S2,S3,I,Q
22194 @ 187833:                  LINE   3590 "regression-compile-tmp/imp918s.imp"
22195 @ 187871:                  DEF    S1 p1=V_0203 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
22196 @ 187885:                  DEF    S2 p1=V_0204 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
22197 @ 187899:                  DEF    S3 p1=V_0205 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
22198 @ 187913:                  DEF    I p1=V_0206 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
22199 @ 187926:                  DEF    Q p1=V_0207 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

  3591           FROM123(TN,S1,S2,S3)
22200 @ 187939:                  LINE   3591 "regression-compile-tmp/imp918s.imp"
22201 @ 187977:                  PUSH   FROM123
22202 @ 187980:                  PUSH   TN
22203 @ 187983:                  ASSPAR
22204 @ 187984:                  PUSH   S1
22205 @ 187987:                  ASSPAR
22206 @ 187988:                  PUSH   S2
22207 @ 187991:                  ASSPAR
22208 @ 187992:                  PUSH   S3
22209 @ 187995:                  ASSPAR
22210 @ 187996:                  CALL  

  3592           %IF CUR CYC VAR>=0 %AND TN=TAGS(CUR CYC VAR) %START
22211 @ 187997:                  LINE   3592 "regression-compile-tmp/imp918s.imp"
22212 @ 188035:                  PUSH   CURCYCVAR
22213 @ 188038:                  PUSHI  #0x00000000
22214 @ 188043:                  JUMPIF < L_0004
22215 @ 188047:                  PUSH   TN
22216 @ 188050:                  PUSH   TAGS
22217 @ 188053:                  PUSH   CURCYCVAR
22218 @ 188056:                  ACCESS
22219 @ 188057:                  JUMPIF # L_0004

  3593              P=STPTRS(1)+5;              ! CHECK INITIAL EXPRSN
22220 @ 188061:                  LINE   3593 "regression-compile-tmp/imp918s.imp"
22221 @ 188099:                  PUSH   P
22222 @ 188102:                  PUSH   STPTRS
22223 @ 188105:                  PUSHI  #0x00000001
22224 @ 188110:                  ACCESS
22225 @ 188111:                  PUSHI  #0x00000005
22226 @ 188116:                  ADD   
22227 @ 188117:                  ASSVAL

  3594              Q=TSEXP(I,0)
22228 @ 188118:                  LINE   3594 "regression-compile-tmp/imp918s.imp"
22229 @ 188156:                  PUSH   Q
22230 @ 188159:                  PUSH   TSEXP
22231 @ 188162:                  PUSH   I
22232 @ 188165:                  ASSPAR
22233 @ 188166:                  PUSHI  #0x00000000
22234 @ 188171:                  ASSPAR
22235 @ 188172:                  CALL  
22236 @ 188173:                  ASSVAL

  3595           %FINISH %ELSE Q=0
22237 @ 188174:                  LINE   3595 "regression-compile-tmp/imp918s.imp"
22238 @ 188212:                  GOTO   L_0003
22239 @ 188215:                  LOCATE L_0004
22240 @ 188218:                  PUSH   Q
22241 @ 188221:                  PUSHI  #0x00000000
22242 @ 188226:                  ASSVAL
22243 @ 188227:                  LOCATE L_0003

  3596           %IF Q=0 %OR Q>=100 %OR (Q=10 %AND I=CUR CYC VAR)%START
22244 @ 188230:                  LINE   3596 "regression-compile-tmp/imp918s.imp"
22245 @ 188268:                  PUSH   Q
22246 @ 188271:                  PUSHI  #0x00000000
22247 @ 188276:                  JUMPIF = L_0005
22248 @ 188280:                  PUSH   Q
22249 @ 188283:                  PUSHI  #0x00000064
22250 @ 188288:                  JUMPIF >= L_0005
22251 @ 188292:                  PUSH   Q
22252 @ 188295:                  PUSHI  #0x0000000a
22253 @ 188300:                  JUMPIF # L_0004
22254 @ 188304:                  PUSH   I
22255 @ 188307:                  PUSH   CURCYCVAR
22256 @ 188310:                  JUMPIF # L_0004
22257 @ 188314:                  LOCATE L_0005

  3597              FIND USE(I,1,3,TN)
22258 @ 188317:                  LINE   3597 "regression-compile-tmp/imp918s.imp"
22259 @ 188355:                  PUSH   FINDUSE
22260 @ 188358:                  PUSH   I
22261 @ 188361:                  ASSPAR
22262 @ 188362:                  PUSHI  #0x00000001
22263 @ 188367:                  ASSPAR
22264 @ 188368:                  PUSHI  #0x00000003
22265 @ 188373:                  ASSPAR
22266 @ 188374:                  PUSH   TN
22267 @ 188377:                  ASSPAR
22268 @ 188378:                  CALL  

  3598              %IF I>=0 %THEN %START
22269 @ 188379:                  LINE   3598 "regression-compile-tmp/imp918s.imp"
22270 @ 188417:                  PUSH   I
22271 @ 188420:                  PUSHI  #0x00000000
22272 @ 188425:                  JUMPIF < L_0007

  3599                 PRR(X'18',REG,I) %UNLESS REG=I
22273 @ 188429:                  LINE   3599 "regression-compile-tmp/imp918s.imp"
22274 @ 188467:                  PUSH   REG
22275 @ 188470:                  PUSH   I
22276 @ 188473:                  JUMPIF = L_000a
22277 @ 188477:                  PUSH   PRR
22278 @ 188480:                  PUSHI  #0x00000018
22279 @ 188485:                  ASSPAR
22280 @ 188486:                  PUSH   REG
22281 @ 188489:                  ASSPAR
22282 @ 188490:                  PUSH   I
22283 @ 188493:                  ASSPAR
22284 @ 188494:                  CALL  
22285 @ 188495:                  LOCATE L_000a

  3600              %FINISH %ELSE DUMP(X'58',REG,S3>>16,0,S1>>4&15)
22286 @ 188498:                  LINE   3600 "regression-compile-tmp/imp918s.imp"
22287 @ 188536:                  GOTO   L_0006
22288 @ 188539:                  LOCATE L_0007
22289 @ 188542:                  PUSH   DUMP
22290 @ 188545:                  PUSHI  #0x00000058
22291 @ 188550:                  ASSPAR
22292 @ 188551:                  PUSH   REG
22293 @ 188554:                  ASSPAR
22294 @ 188555:                  PUSH   S3
22295 @ 188558:                  PUSHI  #0x00000010
22296 @ 188563:                  RSH   
22297 @ 188564:                  ASSPAR
22298 @ 188565:                  PUSHI  #0x00000000
22299 @ 188570:                  ASSPAR
22300 @ 188571:                  PUSH   S1
22301 @ 188574:                  PUSHI  #0x00000004
22302 @ 188579:                  RSH   
22303 @ 188580:                  PUSHI  #0x0000000f
22304 @ 188585:                  AND   
22305 @ 188586:                  ASSPAR
22306 @ 188587:                  CALL  
22307 @ 188588:                  LOCATE L_0006

  3601           %FINISH
22308 @ 188591:                  LINE   3601 "regression-compile-tmp/imp918s.imp"
22309 @ 188629:                  LOCATE L_0004

  3602           SET USE(REG,3,TN)
22310 @ 188632:                  LINE   3602 "regression-compile-tmp/imp918s.imp"
22311 @ 188670:                  PUSH   SETUSE
22312 @ 188673:                  PUSH   REG
22313 @ 188676:                  ASSPAR
22314 @ 188677:                  PUSHI  #0x00000003
22315 @ 188682:                  ASSPAR
22316 @ 188683:                  PUSH   TN
22317 @ 188686:                  ASSPAR
22318 @ 188687:                  CALL  

  3603           REGISTER(REG)=-1;             ! LOCK THE REG
22319 @ 188688:                  LINE   3603 "regression-compile-tmp/imp918s.imp"
22320 @ 188726:                  PUSH   REGISTER
22321 @ 188729:                  PUSH   REG
22322 @ 188732:                  ACCESS
22323 @ 188733:                  PUSHI  #0x00000001
22324 @ 188738:                  NEGATE
22325 @ 188739:                  ASSVAL

  3604           S1=S1+7<<16;                  ! PTYPE FROM1 TO 8
22326 @ 188740:                  LINE   3604 "regression-compile-tmp/imp918s.imp"
22327 @ 188778:                  PUSH   S1
22328 @ 188781:                  PUSH   S1
22329 @ 188784:                  PUSHI  #0x00000007
22330 @ 188789:                  PUSHI  #0x00000010
22331 @ 188794:                  LSH   
22332 @ 188795:                  ADD   
22333 @ 188796:                  ASSVAL

  3605           S2=S2&X'FFFF'!S3&X'FFFF0000' ; ! K TO SNDISP
22334 @ 188797:                  LINE   3605 "regression-compile-tmp/imp918s.imp"
22335 @ 188835:                  PUSH   S2
22336 @ 188838:                  PUSH   S2
22337 @ 188841:                  PUSHI  #0x0000ffff
22338 @ 188846:                  AND   
22339 @ 188847:                  PUSH   S3
22340 @ 188850:                  PUSHI  #0xffff0000
22341 @ 188855:                  AND   
22342 @ 188856:                  OR    
22343 @ 188857:                  ASSVAL

  3606           REPLACE123(TN,S1,S2,REG<<16)
22344 @ 188858:                  LINE   3606 "regression-compile-tmp/imp918s.imp"
22345 @ 188896:                  PUSH   REPLACE123
22346 @ 188899:                  PUSH   TN
22347 @ 188902:                  ASSPAR
22348 @ 188903:                  PUSH   S1
22349 @ 188906:                  ASSPAR
22350 @ 188907:                  PUSH   S2
22351 @ 188910:                  ASSPAR
22352 @ 188911:                  PUSH   REG
22353 @ 188914:                  PUSHI  #0x00000010
22354 @ 188919:                  LSH   
22355 @ 188920:                  ASSPAR
22356 @ 188921:                  CALL  

  3607           %END
22357 @ 188922:                  LINE   3607 "regression-compile-tmp/imp918s.imp"
22358 @ 188960:               END    _lev0id0_CSS_VALLOC {lev=3 --> 2}

  3608           %ROUTINE VDALLOC(%INTEGER REG,REGP)
  3609           {%SHORTROUTINE}
  3610  !***********************************************************************
  3611  !*       DE-ALLOCATE REG WHICH WAS ALLOCATED BY VALLOC(Q.V.). STORE REG*
  3612  !*       INTO CORE AND RESTORE CORE COPY FROM REGP. REGP<=0 NO RESTORE *
  3613  !*       OFTEN REG=REGP                                                *
  3614  !***********************************************************************
22359 @ 188961:               LINE   3608 "regression-compile-tmp/imp918s.imp"
22360 @ 188999:               DEF    VDALLOC (_lev0id0_CSS_VDALLOC) p1=V_01b9 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
22361 @ 189018:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
22362 @ 189019:                     DEF    REG p1=V_0201 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
22363 @ 189034:                     DEF    REGP p1=V_0202 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
22364 @ 189050:                  FINISH ) {lev=3}

  3615           %INTEGER TN,S1,S2,S3
22365 @ 189051:                  LINE   3615 "regression-compile-tmp/imp918s.imp"
22366 @ 189089:                  DEF    TN p1=V_0203 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
22367 @ 189103:                  DEF    S1 p1=V_0204 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
22368 @ 189117:                  DEF    S2 p1=V_0205 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
22369 @ 189131:                  DEF    S3 p1=V_0206 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

  3616           TN=GRINF(REG)
22370 @ 189145:                  LINE   3616 "regression-compile-tmp/imp918s.imp"
22371 @ 189183:                  PUSH   TN
22372 @ 189186:                  PUSH   GRINF
22373 @ 189189:                  PUSH   REG
22374 @ 189192:                  ACCESS
22375 @ 189193:                  ASSVAL

  3617           FROM123(TN,S1,S2,S3)
22376 @ 189194:                  LINE   3617 "regression-compile-tmp/imp918s.imp"
22377 @ 189232:                  PUSH   FROM123
22378 @ 189235:                  PUSH   TN
22379 @ 189238:                  ASSPAR
22380 @ 189239:                  PUSH   S1
22381 @ 189242:                  ASSPAR
22382 @ 189243:                  PUSH   S2
22383 @ 189246:                  ASSPAR
22384 @ 189247:                  PUSH   S3
22385 @ 189250:                  ASSPAR
22386 @ 189251:                  CALL  

  3618           S3=S2>>16<<16
22387 @ 189252:                  LINE   3618 "regression-compile-tmp/imp918s.imp"
22388 @ 189290:                  PUSH   S3
22389 @ 189293:                  PUSH   S2
22390 @ 189296:                  PUSHI  #0x00000010
22391 @ 189301:                  RSH   
22392 @ 189302:                  PUSHI  #0x00000010
22393 @ 189307:                  LSH   
22394 @ 189308:                  ASSVAL

  3619           S1=S1-7<<16;                  ! BACK TO INTEGER
22395 @ 189309:                  LINE   3619 "regression-compile-tmp/imp918s.imp"
22396 @ 189347:                  PUSH   S1
22397 @ 189350:                  PUSH   S1
22398 @ 189353:                  PUSHI  #0x00000007
22399 @ 189358:                  PUSHI  #0x00000010
22400 @ 189363:                  LSH   
22401 @ 189364:                  SUB   
22402 @ 189365:                  ASSVAL

  3620           %IF REGP#0 %THEN DUMP(X'50',REGP,S3>>16,0,S1>>4&15)
22403 @ 189366:                  LINE   3620 "regression-compile-tmp/imp918s.imp"
22404 @ 189404:                  PUSH   REGP
22405 @ 189407:                  PUSHI  #0x00000000
22406 @ 189412:                  JUMPIF = L_0004
22407 @ 189416:                  PUSH   DUMP
22408 @ 189419:                  PUSHI  #0x00000050
22409 @ 189424:                  ASSPAR
22410 @ 189425:                  PUSH   REGP
22411 @ 189428:                  ASSPAR
22412 @ 189429:                  PUSH   S3
22413 @ 189432:                  PUSHI  #0x00000010
22414 @ 189437:                  RSH   
22415 @ 189438:                  ASSPAR
22416 @ 189439:                  PUSHI  #0x00000000
22417 @ 189444:                  ASSPAR
22418 @ 189445:                  PUSH   S1
22419 @ 189448:                  PUSHI  #0x00000004
22420 @ 189453:                  RSH   
22421 @ 189454:                  PUSHI  #0x0000000f
22422 @ 189459:                  AND   
22423 @ 189460:                  ASSPAR
22424 @ 189461:                  CALL  
22425 @ 189462:                  LOCATE L_0004

  3621           REGISTER(REG)=0
22426 @ 189465:                  LINE   3621 "regression-compile-tmp/imp918s.imp"
22427 @ 189503:                  PUSH   REGISTER
22428 @ 189506:                  PUSH   REG
22429 @ 189509:                  ACCESS
22430 @ 189510:                  PUSHI  #0x00000000
22431 @ 189515:                  ASSVAL

  3622           REPLACE123(TN,S1,S2,S3)
22432 @ 189516:                  LINE   3622 "regression-compile-tmp/imp918s.imp"
22433 @ 189554:                  PUSH   REPLACE123
22434 @ 189557:                  PUSH   TN
22435 @ 189560:                  ASSPAR
22436 @ 189561:                  PUSH   S1
22437 @ 189564:                  ASSPAR
22438 @ 189565:                  PUSH   S2
22439 @ 189568:                  ASSPAR
22440 @ 189569:                  PUSH   S3
22441 @ 189572:                  ASSPAR
22442 @ 189573:                  CALL  

  3623           %END
22443 @ 189574:                  LINE   3623 "regression-compile-tmp/imp918s.imp"
22444 @ 189612:               END    _lev0id0_CSS_VDALLOC {lev=3 --> 2}

  3624           %ROUTINE LOADUP(%INTEGER REGINFO)
  3625           {%SHORTROUTINE}
  3626  !***********************************************************************
  3627  !*       REGINFO IS BIT MASK OF AVAILABLE REGS                         *
  3628  !*       CYC BITS HAS INFORMATION ON OPERATIONS IN THE CYCLE           *
  3629  !*       THIS ROUTINE PRELOADS ANY FREE REGISTERS FROM THE INFORMATION *
  3630  !*       IN THE LIST HEADED BY 'SFHEAD' WHICH WAS ORDERED BY ROUTINE   *
  3631  !*       'ORDER' SO THAT THE TOP HAS THE MOST USED ITEMS               *
  3632  !***********************************************************************
  3633           {%SHORTROUTINE}
22445 @ 189613:               LINE   3624 "regression-compile-tmp/imp918s.imp"
22446 @ 189651:               DEF    LOADUP (_lev0id0_CSS_LOADUP) p1=V_0201 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
22447 @ 189669:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
22448 @ 189670:                     DEF    REGINFO p1=V_0202 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
22449 @ 189689:                  FINISH ) {lev=3}

  3634           %RECORD(OPTFORM)%NAME OPTE
22450 @ 189690:                  LINE   3634 "regression-compile-tmp/imp918s.imp"
22451 @ 189728:                  DEF    OPTE p1=V_0203 a/tf=42 b/format=11a c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  3635           %INTEGER I,USE,NEXTREG,INF,X,Y,Z,PTR
22452 @ 189744:                  LINE   3635 "regression-compile-tmp/imp918s.imp"
22453 @ 189782:                  DEF    I p1=V_0204 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
22454 @ 189795:                  DEF    USE p1=V_0205 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
22455 @ 189810:                  DEF    NEXTREG p1=V_0206 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
22456 @ 189829:                  DEF    INF p1=V_0207 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
22457 @ 189844:                  DEF    X p1=V_0208 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
22458 @ 189857:                  DEF    Y p1=V_0209 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
22459 @ 189870:                  DEF    Z p1=V_020a 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
22460 @ 189883:                  DEF    PTR p1=V_020b 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

  3636           PTR=OPTPTR+1
22461 @ 189898:                  LINE   3636 "regression-compile-tmp/imp918s.imp"
22462 @ 189936:                  PUSH   PTR
22463 @ 189939:                  PUSH   OPTPTR
22464 @ 189942:                  PUSHI  #0x00000001
22465 @ 189947:                  ADD   
22466 @ 189948:                  ASSVAL

  3637  AGN:     PTR=PTR-1
22467 @ 189949:                  LINE   3637 "regression-compile-tmp/imp918s.imp"
22468 @ 189987:                  LABEL  L_020c
22469 @ 189990:                  LINE   3637 "regression-compile-tmp/imp918s.imp"
22470 @ 190028:                  PUSH   PTR
22471 @ 190031:                  PUSH   PTR
22472 @ 190034:                  PUSHI  #0x00000001
22473 @ 190039:                  SUB   
22474 @ 190040:                  ASSVAL

  3638           ->Label99 %IF PTR=0
22475 @ 190041:                  LINE   3638 "regression-compile-tmp/imp918s.imp"
22476 @ 190079:                  PUSH   PTR
22477 @ 190082:                  PUSHI  #0x00000000
22478 @ 190087:                  JUMPIF # L_0004
22479 @ 190091:                  JUMP   L_020d
22480 @ 190094:                  LOCATE L_0004

  3639           OPTE==OPTINF(PTR)
22481 @ 190097:                  LINE   3639 "regression-compile-tmp/imp918s.imp"
22482 @ 190135:                  PUSH   OPTE
22483 @ 190138:                  PUSH   OPTINF
22484 @ 190141:                  PUSH   PTR
22485 @ 190144:                  ACCESS
22486 @ 190145:                  ASSREF

  3640           %IF REGINFO=0 %THEN ->Label99
22487 @ 190146:                  LINE   3640 "regression-compile-tmp/imp918s.imp"
22488 @ 190184:                  PUSH   REGINFO
22489 @ 190187:                  PUSHI  #0x00000000
22490 @ 190192:                  JUMPIF # L_0004
22491 @ 190196:                  JUMP   L_020d
22492 @ 190199:                  LOCATE L_0004

  3641           %CYCLE I=4,1,15
22493 @ 190202:                  LINE   3641 "regression-compile-tmp/imp918s.imp"
22494 @ 190240:                  PUSH   I
22495 @ 190243:                  PUSHI  #0x00000001
22496 @ 190248:                  PUSHI  #0x0000000f
22497 @ 190253:                  PUSHI  #0x00000004
22498 @ 190258:                  FOR    L_0003

  3642           ->Label1 %IF REGINFO&(1<<I)#0
22499 @ 190261:                  LINE   3642 "regression-compile-tmp/imp918s.imp"
22500 @ 190299:                  PUSH   REGINFO
22501 @ 190302:                  PUSHI  #0x00000001
22502 @ 190307:                  PUSH   I
22503 @ 190310:                  LSH   
22504 @ 190311:                  AND   
22505 @ 190312:                  PUSHI  #0x00000000
22506 @ 190317:                  JUMPIF = L_0007
22507 @ 190321:                  JUMP   L_020e
22508 @ 190324:                  LOCATE L_0007

  3643           %REPEAT
22509 @ 190327:                  LINE   3643 "regression-compile-tmp/imp918s.imp"
22510 @ 190365:                  REPEAT L_0003
22511 @ 190368:                  LOCATE L_0004

  3644           %MONITOR ; %STOP
22512 @ 190371:                  LINE   3644 "regression-compile-tmp/imp918s.imp"
22513 @ 190409:                  MONITOR
22514 @ 190410:                  LINE   3644 "regression-compile-tmp/imp918s.imp"
22515 @ 190448:                  STOP  

  3645  Label1:       REGINFO=REGINFO!!(1<<I)
22516 @ 190449:                  LINE   3645 "regression-compile-tmp/imp918s.imp"
22517 @ 190487:                  LABEL  L_020e
22518 @ 190490:                  LINE   3645 "regression-compile-tmp/imp918s.imp"
22519 @ 190528:                  PUSH   REGINFO
22520 @ 190531:                  PUSH   REGINFO
22521 @ 190534:                  PUSHI  #0x00000001
22522 @ 190539:                  PUSH   I
22523 @ 190542:                  LSH   
22524 @ 190543:                  XOR   
22525 @ 190544:                  ASSVAL

  3646  Label2:       NEXTREG=I
22526 @ 190545:                  LINE   3646 "regression-compile-tmp/imp918s.imp"
22527 @ 190583:                  LABEL  L_020f
22528 @ 190586:                  LINE   3646 "regression-compile-tmp/imp918s.imp"
22529 @ 190624:                  PUSH   NEXTREG
22530 @ 190627:                  PUSH   I
22531 @ 190630:                  ASSVAL

  3647  Label3:       %IF OPTE_TYPE=12 %THEN ->CODEB
22532 @ 190631:                  LINE   3647 "regression-compile-tmp/imp918s.imp"
22533 @ 190669:                  LABEL  L_0210
22534 @ 190672:                  LINE   3647 "regression-compile-tmp/imp918s.imp"
22535 @ 190710:                  PUSH   OPTE
22536 @ 190713:                  SELECT 2
22537 @ 190716:                  PUSHI  #0x0000000c
22538 @ 190721:                  JUMPIF # L_0004
22539 @ 190725:                  JUMP   L_0211
22540 @ 190728:                  LOCATE L_0004

  3648           %IF OPTE_TYPE=0 %THEN ->CONST
22541 @ 190731:                  LINE   3648 "regression-compile-tmp/imp918s.imp"
22542 @ 190769:                  PUSH   OPTE
22543 @ 190772:                  SELECT 2
22544 @ 190775:                  PUSHI  #0x00000000
22545 @ 190780:                  JUMPIF # L_0004
22546 @ 190784:                  JUMP   L_0212
22547 @ 190787:                  LOCATE L_0004

  3649           %IF OPTE_TYPE=2 %THEN %START
22548 @ 190790:                  LINE   3649 "regression-compile-tmp/imp918s.imp"
22549 @ 190828:                  PUSH   OPTE
22550 @ 190831:                  SELECT 2
22551 @ 190834:                  PUSHI  #0x00000002
22552 @ 190839:                  JUMPIF # L_0004

  3650              INF=TAGS(OPTE_XTRA)
22553 @ 190843:                  LINE   3650 "regression-compile-tmp/imp918s.imp"
22554 @ 190881:                  PUSH   INF
22555 @ 190884:                  PUSH   TAGS
22556 @ 190887:                  PUSH   OPTE
22557 @ 190890:                  SELECT 5
22558 @ 190893:                  ACCESS
22559 @ 190894:                  ASSVAL

  3651              PTYPE=OPTE_PTYPE; UNPACK
22560 @ 190895:                  LINE   3651 "regression-compile-tmp/imp918s.imp"
22561 @ 190933:                  PUSH   PTYPE
22562 @ 190936:                  PUSH   OPTE
22563 @ 190939:                  SELECT 4
22564 @ 190942:                  ASSVAL
22565 @ 190943:                  LINE   3651 "regression-compile-tmp/imp918s.imp"
22566 @ 190981:                  PUSH   UNPACK
22567 @ 190984:                  CALL  

  3652              %IF PTYPE=1 %AND CYCBITS&X'40F'=0 %AND OPTE_BITS&3<<3=0 %C
  3653                 %AND(CYC BITS&X'20'=0 %OR OPTE_XTRA#CUR CYC VAR) %THEN %C
  3654                 VALLOC(NEXTREG,INF) %AND USE=3 %AND ->RSET
  3655  !
22568 @ 190985:                  LINE   3652 "regression-compile-tmp/imp918s.imp"
22569 @ 191023:                  PUSH   PTYPE
22570 @ 191026:                  PUSHI  #0x00000001
22571 @ 191031:                  JUMPIF # L_0007
22572 @ 191035:                  PUSH   CYCBITS
22573 @ 191038:                  PUSHI  #0x0000040f
22574 @ 191043:                  AND   
22575 @ 191044:                  PUSHI  #0x00000000
22576 @ 191049:                  JUMPIF # L_0007
22577 @ 191053:                  PUSH   OPTE
22578 @ 191056:                  SELECT 3
22579 @ 191059:                  PUSHI  #0x00000003
22580 @ 191064:                  PUSHI  #0x00000003
22581 @ 191069:                  LSH   
22582 @ 191070:                  AND   
22583 @ 191071:                  PUSHI  #0x00000000
22584 @ 191076:                  JUMPIF # L_0007
22585 @ 191080:                  PUSH   CYCBITS
22586 @ 191083:                  PUSHI  #0x00000020
22587 @ 191088:                  AND   
22588 @ 191089:                  PUSHI  #0x00000000
22589 @ 191094:                  JUMPIF = L_0008
22590 @ 191098:                  PUSH   OPTE
22591 @ 191101:                  SELECT 5
22592 @ 191104:                  PUSH   CURCYCVAR
22593 @ 191107:                  JUMPIF = L_0007
22594 @ 191111:                  LOCATE L_0008
22595 @ 191114:                  PUSH   VALLOC
22596 @ 191117:                  PUSH   NEXTREG
22597 @ 191120:                  ASSPAR
22598 @ 191121:                  PUSH   INF
22599 @ 191124:                  ASSPAR
22600 @ 191125:                  CALL  
22601 @ 191126:                  PUSH   USE
22602 @ 191129:                  PUSHI  #0x00000003
22603 @ 191134:                  ASSVAL
22604 @ 191135:                  JUMP   L_0213
22605 @ 191138:                  LOCATE L_0007

  3656              %IF TYPE=3 %AND NAM=1 %AND ARR=0 %AND OPTE_BITS&5<<14=0 %C
  3657                 %AND(CYCBITS&8=0 %OR ((-1<<20)<<FROM1(INF)>>8&15) %C
  3658                 &CYCBITS=0) %THEN ->LOAD RBASE
  3659  !
22606 @ 191141:                  LINE   3656 "regression-compile-tmp/imp918s.imp"
22607 @ 191179:                  PUSH   TYPE
22608 @ 191182:                  PUSHI  #0x00000003
22609 @ 191187:                  JUMPIF # L_0007
22610 @ 191191:                  PUSH   NAM
22611 @ 191194:                  PUSHI  #0x00000001
22612 @ 191199:                  JUMPIF # L_0007
22613 @ 191203:                  PUSH   ARR
22614 @ 191206:                  PUSHI  #0x00000000
22615 @ 191211:                  JUMPIF # L_0007
22616 @ 191215:                  PUSH   OPTE
22617 @ 191218:                  SELECT 3
22618 @ 191221:                  PUSHI  #0x00000005
22619 @ 191226:                  PUSHI  #0x0000000e
22620 @ 191231:                  LSH   
22621 @ 191232:                  AND   
22622 @ 191233:                  PUSHI  #0x00000000
22623 @ 191238:                  JUMPIF # L_0007
22624 @ 191242:                  PUSH   CYCBITS
22625 @ 191245:                  PUSHI  #0x00000008
22626 @ 191250:                  AND   
22627 @ 191251:                  PUSHI  #0x00000000
22628 @ 191256:                  JUMPIF = L_0008
22629 @ 191260:                  PUSHI  #0x00000001
22630 @ 191265:                  PUSHI  #0x00000014
22631 @ 191270:                  LSH   
22632 @ 191271:                  NEGATE
22633 @ 191272:                  PUSH   FROM1
22634 @ 191275:                  PUSH   INF
22635 @ 191278:                  ASSPAR
22636 @ 191279:                  CALL  
22637 @ 191280:                  LSH   
22638 @ 191281:                  PUSHI  #0x00000008
22639 @ 191286:                  RSH   
22640 @ 191287:                  PUSHI  #0x0000000f
22641 @ 191292:                  AND   
22642 @ 191293:                  PUSH   CYCBITS
22643 @ 191296:                  AND   
22644 @ 191297:                  PUSHI  #0x00000000
22645 @ 191302:                  JUMPIF # L_0007
22646 @ 191306:                  LOCATE L_0008
22647 @ 191309:                  JUMP   L_0214
22648 @ 191312:                  LOCATE L_0007

  3660              %IF ARR=1 %AND(NAM=0 %OR (CYCBITS&8=0 %AND OPTE_BITS %C
  3661                 &(1<<12)=0)) %THEN -> LOAD ABASE
22649 @ 191315:                  LINE   3660 "regression-compile-tmp/imp918s.imp"
22650 @ 191353:                  PUSH   ARR
22651 @ 191356:                  PUSHI  #0x00000001
22652 @ 191361:                  JUMPIF # L_0007
22653 @ 191365:                  PUSH   NAM
22654 @ 191368:                  PUSHI  #0x00000000
22655 @ 191373:                  JUMPIF = L_0008
22656 @ 191377:                  PUSH   CYCBITS
22657 @ 191380:                  PUSHI  #0x00000008
22658 @ 191385:                  AND   
22659 @ 191386:                  PUSHI  #0x00000000
22660 @ 191391:                  JUMPIF # L_0007
22661 @ 191395:                  PUSH   OPTE
22662 @ 191398:                  SELECT 3
22663 @ 191401:                  PUSHI  #0x00000001
22664 @ 191406:                  PUSHI  #0x0000000c
22665 @ 191411:                  LSH   
22666 @ 191412:                  AND   
22667 @ 191413:                  PUSHI  #0x00000000
22668 @ 191418:                  JUMPIF # L_0007
22669 @ 191422:                  LOCATE L_0008
22670 @ 191425:                  JUMP   L_0215
22671 @ 191428:                  LOCATE L_0007

  3662           %FINISH
22672 @ 191431:                  LINE   3662 "regression-compile-tmp/imp918s.imp"
22673 @ 191469:                  LOCATE L_0004

  3663           PTR=PTR-1
22674 @ 191472:                  LINE   3663 "regression-compile-tmp/imp918s.imp"
22675 @ 191510:                  PUSH   PTR
22676 @ 191513:                  PUSH   PTR
22677 @ 191516:                  PUSHI  #0x00000001
22678 @ 191521:                  SUB   
22679 @ 191522:                  ASSVAL

  3664           ->Label99 %IF PTR<=0
22680 @ 191523:                  LINE   3664 "regression-compile-tmp/imp918s.imp"
22681 @ 191561:                  PUSH   PTR
22682 @ 191564:                  PUSHI  #0x00000000
22683 @ 191569:                  JUMPIF > L_0004
22684 @ 191573:                  JUMP   L_020d
22685 @ 191576:                  LOCATE L_0004

  3665           OPTE==OPTINF(PTR); ->Label3
22686 @ 191579:                  LINE   3665 "regression-compile-tmp/imp918s.imp"
22687 @ 191617:                  PUSH   OPTE
22688 @ 191620:                  PUSH   OPTINF
22689 @ 191623:                  PUSH   PTR
22690 @ 191626:                  ACCESS
22691 @ 191627:                  ASSREF
22692 @ 191628:                  LINE   3665 "regression-compile-tmp/imp918s.imp"
22693 @ 191666:                  JUMP   L_0210

  3666  LOADRBASE:USE=7
22694 @ 191669:                  LINE   3666 "regression-compile-tmp/imp918s.imp"
22695 @ 191707:                  LABEL  L_0214
22696 @ 191710:                  LINE   3666 "regression-compile-tmp/imp918s.imp"
22697 @ 191748:                  PUSH   USE
22698 @ 191751:                  PUSHI  #0x00000007
22699 @ 191756:                  ASSVAL

  3667  LOADANY: X=FROM1(INF)>>4&15
22700 @ 191757:                  LINE   3667 "regression-compile-tmp/imp918s.imp"
22701 @ 191795:                  LABEL  L_0216
22702 @ 191798:                  LINE   3667 "regression-compile-tmp/imp918s.imp"
22703 @ 191836:                  PUSH   X
22704 @ 191839:                  PUSH   FROM1
22705 @ 191842:                  PUSH   INF
22706 @ 191845:                  ASSPAR
22707 @ 191846:                  CALL  
22708 @ 191847:                  PUSHI  #0x00000004
22709 @ 191852:                  RSH   
22710 @ 191853:                  PUSHI  #0x0000000f
22711 @ 191858:                  AND   
22712 @ 191859:                  ASSVAL

  3668           Z=FROM3(INF)>>16
22713 @ 191860:                  LINE   3668 "regression-compile-tmp/imp918s.imp"
22714 @ 191898:                  PUSH   Z
22715 @ 191901:                  PUSH   FROM3
22716 @ 191904:                  PUSH   INF
22717 @ 191907:                  ASSPAR
22718 @ 191908:                  CALL  
22719 @ 191909:                  PUSHI  #0x00000010
22720 @ 191914:                  RSH   
22721 @ 191915:                  ASSVAL

  3669           I=X'58'
22722 @ 191916:                  LINE   3669 "regression-compile-tmp/imp918s.imp"
22723 @ 191954:                  PUSH   I
22724 @ 191957:                  PUSHI  #0x00000058
22725 @ 191962:                  ASSVAL

  3670           ->COM
22726 @ 191963:                  LINE   3670 "regression-compile-tmp/imp918s.imp"
22727 @ 192001:                  JUMP   L_0217

  3671  LOADABASE:USE=8; ->LOADANY
22728 @ 192004:                  LINE   3671 "regression-compile-tmp/imp918s.imp"
22729 @ 192042:                  LABEL  L_0215
22730 @ 192045:                  LINE   3671 "regression-compile-tmp/imp918s.imp"
22731 @ 192083:                  PUSH   USE
22732 @ 192086:                  PUSHI  #0x00000008
22733 @ 192091:                  ASSVAL
22734 @ 192092:                  LINE   3671 "regression-compile-tmp/imp918s.imp"
22735 @ 192130:                  JUMP   L_0216

  3672  CODEB:                          ! BASE REGISTER FOR REPEATING NEEDED
22736 @ 192133:                  LINE   3672 "regression-compile-tmp/imp918s.imp"
22737 @ 192171:                  LABEL  L_0211

  3673           PRR(5,NEXTREG,0);                 ! BALR NEXTREG,0
22738 @ 192174:                  LINE   3673 "regression-compile-tmp/imp918s.imp"
22739 @ 192212:                  PUSH   PRR
22740 @ 192215:                  PUSHI  #0x00000005
22741 @ 192220:                  ASSPAR
22742 @ 192221:                  PUSH   NEXTREG
22743 @ 192224:                  ASSPAR
22744 @ 192225:                  PUSHI  #0x00000000
22745 @ 192230:                  ASSPAR
22746 @ 192231:                  CALL  

  3674           CYC BASE=NEXT REG; CYC ADDR=CA
22747 @ 192232:                  LINE   3674 "regression-compile-tmp/imp918s.imp"
22748 @ 192270:                  PUSH   CYCBASE
22749 @ 192273:                  PUSH   NEXTREG
22750 @ 192276:                  ASSVAL
22751 @ 192277:                  LINE   3674 "regression-compile-tmp/imp918s.imp"
22752 @ 192315:                  PUSH   CYCADDR
22753 @ 192318:                  PUSH   CA
22754 @ 192321:                  ASSVAL

  3675           USE=12
22755 @ 192322:                  LINE   3675 "regression-compile-tmp/imp918s.imp"
22756 @ 192360:                  PUSH   USE
22757 @ 192363:                  PUSHI  #0x0000000c
22758 @ 192368:                  ASSVAL

  3676           INF=CYC ADDR; ->SETU
22759 @ 192369:                  LINE   3676 "regression-compile-tmp/imp918s.imp"
22760 @ 192407:                  PUSH   INF
22761 @ 192410:                  PUSH   CYCADDR
22762 @ 192413:                  ASSVAL
22763 @ 192414:                  LINE   3676 "regression-compile-tmp/imp918s.imp"
22764 @ 192452:                  JUMP   L_0218

  3677  COM:     DUMP(I,NEXTREG,Z,0,X)
22765 @ 192455:                  LINE   3677 "regression-compile-tmp/imp918s.imp"
22766 @ 192493:                  LABEL  L_0217
22767 @ 192496:                  LINE   3677 "regression-compile-tmp/imp918s.imp"
22768 @ 192534:                  PUSH   DUMP
22769 @ 192537:                  PUSH   I
22770 @ 192540:                  ASSPAR
22771 @ 192541:                  PUSH   NEXTREG
22772 @ 192544:                  ASSPAR
22773 @ 192545:                  PUSH   Z
22774 @ 192548:                  ASSPAR
22775 @ 192549:                  PUSHI  #0x00000000
22776 @ 192554:                  ASSPAR
22777 @ 192555:                  PUSH   X
22778 @ 192558:                  ASSPAR
22779 @ 192559:                  CALL  

  3678  SETU:    SET USE(NEXTREG,USE,INF)
22780 @ 192560:                  LINE   3678 "regression-compile-tmp/imp918s.imp"
22781 @ 192598:                  LABEL  L_0218
22782 @ 192601:                  LINE   3678 "regression-compile-tmp/imp918s.imp"
22783 @ 192639:                  PUSH   SETUSE
22784 @ 192642:                  PUSH   NEXTREG
22785 @ 192645:                  ASSPAR
22786 @ 192646:                  PUSH   USE
22787 @ 192649:                  ASSPAR
22788 @ 192650:                  PUSH   INF
22789 @ 192653:                  ASSPAR
22790 @ 192654:                  CALL  

  3679           REGISTER(NEXTREG)=-1
22791 @ 192655:                  LINE   3679 "regression-compile-tmp/imp918s.imp"
22792 @ 192693:                  PUSH   REGISTER
22793 @ 192696:                  PUSH   NEXTREG
22794 @ 192699:                  ACCESS
22795 @ 192700:                  PUSHI  #0x00000001
22796 @ 192705:                  NEGATE
22797 @ 192706:                  ASSVAL

  3680  RSET:    CYC REGS=CYC REGS!1<<NEXTREG
  3681  !         %IF DCOMP=1 %THEN %START
  3682  !            printstring("
  3683  !LOADS REGISTER")
  3684  !            WRITE(NEXTREG,3)
  3685  !            WRITE(USE,3)
  3686  !            WRITE(INF,5)
  3687  !        %FINISH
22798 @ 192707:                  LINE   3680 "regression-compile-tmp/imp918s.imp"
22799 @ 192745:                  LABEL  L_0213
22800 @ 192748:                  LINE   3680 "regression-compile-tmp/imp918s.imp"
22801 @ 192786:                  PUSH   CYCREGS
22802 @ 192789:                  PUSH   CYCREGS
22803 @ 192792:                  PUSHI  #0x00000001
22804 @ 192797:                  PUSH   NEXTREG
22805 @ 192800:                  LSH   
22806 @ 192801:                  OR    
22807 @ 192802:                  ASSVAL

  3688           -> AGN
22808 @ 192803:                  LINE   3688 "regression-compile-tmp/imp918s.imp"
22809 @ 192841:                  JUMP   L_020c

  3689  CONST:   I=0; Z=OPTE_XTRA
22810 @ 192844:                  LINE   3689 "regression-compile-tmp/imp918s.imp"
22811 @ 192882:                  LABEL  L_0212
22812 @ 192885:                  LINE   3689 "regression-compile-tmp/imp918s.imp"
22813 @ 192923:                  PUSH   I
22814 @ 192926:                  PUSHI  #0x00000000
22815 @ 192931:                  ASSVAL
22816 @ 192932:                  LINE   3689 "regression-compile-tmp/imp918s.imp"
22817 @ 192970:                  PUSH   Z
22818 @ 192973:                  PUSH   OPTE
22819 @ 192976:                  SELECT 5
22820 @ 192979:                  ASSVAL

  3690           INF=Z
22821 @ 192980:                  LINE   3690 "regression-compile-tmp/imp918s.imp"
22822 @ 193018:                  PUSH   INF
22823 @ 193021:                  PUSH   Z
22824 @ 193024:                  ASSVAL

  3691           USE=2; X=0; -> COM
22825 @ 193025:                  LINE   3691 "regression-compile-tmp/imp918s.imp"
22826 @ 193063:                  PUSH   USE
22827 @ 193066:                  PUSHI  #0x00000002
22828 @ 193071:                  ASSVAL
22829 @ 193072:                  LINE   3691 "regression-compile-tmp/imp918s.imp"
22830 @ 193110:                  PUSH   X
22831 @ 193113:                  PUSHI  #0x00000000
22832 @ 193118:                  ASSVAL
22833 @ 193119:                  LINE   3691 "regression-compile-tmp/imp918s.imp"
22834 @ 193157:                  JUMP   L_0217

  3692  Label99:       %END
22835 @ 193160:                  LINE   3692 "regression-compile-tmp/imp918s.imp"
22836 @ 193198:                  LABEL  L_020d
22837 @ 193201:                  LINE   3692 "regression-compile-tmp/imp918s.imp"
22838 @ 193239:               END    _lev0id0_CSS_LOADUP {lev=3 --> 2}

  3693           %ROUTINE CYCOPT(%INTEGERNAME FLAG,%INTEGER WU)
  3694           {%SHORTROUTINE}
  3695  ! EXAMINE THE STATEMENTS IN THE CYCLIC BUFFER FOR A '%REPEAT' AND
  3696  ! COMPUTE IF REGISTERS CAN BE ALLOCATED FOR INCREMENT AND FINAL VALUE.
  3697  ! WU=0 FOR OLD TYPE CYCLE =1 FOR WHILE OR UNTIL =2 FOR OPEN CYCLE
22839 @ 193240:               LINE   3693 "regression-compile-tmp/imp918s.imp"
22840 @ 193278:               DEF    CYCOPT (_lev0id0_CSS_CYCOPT) p1=V_01ba 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
22841 @ 193296:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
22842 @ 193297:                     DEF    FLAG p1=V_0202 a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
22843 @ 193313:                     DEF    WU p1=V_0203 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
22844 @ 193327:                  FINISH ) {lev=3}

  3698           %INTEGER I,J,K,CREGS,SCCSTATE
22845 @ 193328:                  LINE   3698 "regression-compile-tmp/imp918s.imp"
22846 @ 193366:                  DEF    I p1=V_0204 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
22847 @ 193379:                  DEF    J p1=V_0205 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
22848 @ 193392:                  DEF    K p1=V_0206 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
22849 @ 193405:                  DEF    CREGS p1=V_0207 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
22850 @ 193422:                  DEF    SCCSTATE p1=V_0208 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

  3699           FLAG=0; CREGS=0; CYC ASS=0; CYC REGS=0; CYC BASE=0
22851 @ 193442:                  LINE   3699 "regression-compile-tmp/imp918s.imp"
22852 @ 193480:                  PUSH   FLAG
22853 @ 193483:                  PUSHI  #0x00000000
22854 @ 193488:                  ASSVAL
22855 @ 193489:                  LINE   3699 "regression-compile-tmp/imp918s.imp"
22856 @ 193527:                  PUSH   CREGS
22857 @ 193530:                  PUSHI  #0x00000000
22858 @ 193535:                  ASSVAL
22859 @ 193536:                  LINE   3699 "regression-compile-tmp/imp918s.imp"
22860 @ 193574:                  PUSH   CYCASS
22861 @ 193577:                  PUSHI  #0x00000000
22862 @ 193582:                  ASSVAL
22863 @ 193583:                  LINE   3699 "regression-compile-tmp/imp918s.imp"
22864 @ 193621:                  PUSH   CYCREGS
22865 @ 193624:                  PUSHI  #0x00000000
22866 @ 193629:                  ASSVAL
22867 @ 193630:                  LINE   3699 "regression-compile-tmp/imp918s.imp"
22868 @ 193668:                  PUSH   CYCBASE
22869 @ 193671:                  PUSHI  #0x00000000
22870 @ 193676:                  ASSVAL

  3700           %RETURN %UNLESS STMTSHELD>1;   ! NO STATEMENTS IN BUFFER
22871 @ 193677:                  LINE   3700 "regression-compile-tmp/imp918s.imp"
22872 @ 193715:                  PUSH   STMTSHELD
22873 @ 193718:                  PUSHI  #0x00000001
22874 @ 193723:                  JUMPIF > L_0004
22875 @ 193727:                  RETURN
22876 @ 193728:                  LOCATE L_0004

  3701           %RETURN %IF WU=0 %AND FFLAG#0;! FNS IN P,Q,R
22877 @ 193731:                  LINE   3701 "regression-compile-tmp/imp918s.imp"
22878 @ 193769:                  PUSH   WU
22879 @ 193772:                  PUSHI  #0x00000000
22880 @ 193777:                  JUMPIF # L_0004
22881 @ 193781:                  PUSH   FFLAG
22882 @ 193784:                  PUSHI  #0x00000000
22883 @ 193789:                  JUMPIF = L_0004
22884 @ 193793:                  RETURN
22885 @ 193794:                  LOCATE L_0004

  3702           %CYCLE I=2,1,STMTSHELD
22886 @ 193797:                  LINE   3702 "regression-compile-tmp/imp918s.imp"
22887 @ 193835:                  PUSH   I
22888 @ 193838:                  PUSHI  #0x00000001
22889 @ 193843:                  PUSH   STMTSHELD
22890 @ 193846:                  PUSHI  #0x00000002
22891 @ 193851:                  FOR    L_0003

  3703           J=STPTRS(I)
22892 @ 193854:                  LINE   3703 "regression-compile-tmp/imp918s.imp"
22893 @ 193892:                  PUSH   J
22894 @ 193895:                  PUSH   STPTRS
22895 @ 193898:                  PUSH   I
22896 @ 193901:                  ACCESS
22897 @ 193902:                  ASSVAL

  3704           ->NESTED %IF A(J)=2;    ! CONTAINS NESTED CYCLE DONT OPTIMISE
22898 @ 193903:                  LINE   3704 "regression-compile-tmp/imp918s.imp"
22899 @ 193941:                  PUSH   A
22900 @ 193944:                  PUSH   J
22901 @ 193947:                  ACCESS
22902 @ 193948:                  PUSHI  #0x00000002
22903 @ 193953:                  JUMPIF # L_0007
22904 @ 193957:                  JUMP   L_0209
22905 @ 193960:                  LOCATE L_0007

  3705           ->NESTED %IF A(J)=6 %AND A(J+2+A(J+2))<=2;! WU CYCLE
22906 @ 193963:                  LINE   3705 "regression-compile-tmp/imp918s.imp"
22907 @ 194001:                  PUSH   A
22908 @ 194004:                  PUSH   J
22909 @ 194007:                  ACCESS
22910 @ 194008:                  PUSHI  #0x00000006
22911 @ 194013:                  JUMPIF # L_0007
22912 @ 194017:                  PUSH   A
22913 @ 194020:                  PUSH   J
22914 @ 194023:                  PUSHI  #0x00000002
22915 @ 194028:                  ADD   
22916 @ 194029:                  PUSH   A
22917 @ 194032:                  PUSH   J
22918 @ 194035:                  PUSHI  #0x00000002
22919 @ 194040:                  ADD   
22920 @ 194041:                  ACCESS
22921 @ 194042:                  ADD   
22922 @ 194043:                  ACCESS
22923 @ 194044:                  PUSHI  #0x00000002
22924 @ 194049:                  JUMPIF > L_0007
22925 @ 194053:                  JUMP   L_0209
22926 @ 194056:                  LOCATE L_0007

  3706           -> CR %IF A(J)=3;       ! CORRESPONDING REPEAT FOUND!
22927 @ 194059:                  LINE   3706 "regression-compile-tmp/imp918s.imp"
22928 @ 194097:                  PUSH   A
22929 @ 194100:                  PUSH   J
22930 @ 194103:                  ACCESS
22931 @ 194104:                  PUSHI  #0x00000003
22932 @ 194109:                  JUMPIF # L_0007
22933 @ 194113:                  JUMP   L_020a
22934 @ 194116:                  LOCATE L_0007

  3707           %REPEAT
22935 @ 194119:                  LINE   3707 "regression-compile-tmp/imp918s.imp"
22936 @ 194157:                  REPEAT L_0003
22937 @ 194160:                  LOCATE L_0004

  3708  NESTED:  %RETURN
22938 @ 194163:                  LINE   3708 "regression-compile-tmp/imp918s.imp"
22939 @ 194201:                  LABEL  L_0209
22940 @ 194204:                  LINE   3708 "regression-compile-tmp/imp918s.imp"
22941 @ 194242:                  RETURN

  3709  CR:      K=16; ->REGS %IF WU#0
22942 @ 194243:                  LINE   3709 "regression-compile-tmp/imp918s.imp"
22943 @ 194281:                  LABEL  L_020a
22944 @ 194284:                  LINE   3709 "regression-compile-tmp/imp918s.imp"
22945 @ 194322:                  PUSH   K
22946 @ 194325:                  PUSHI  #0x00000010
22947 @ 194330:                  ASSVAL
22948 @ 194331:                  LINE   3709 "regression-compile-tmp/imp918s.imp"
22949 @ 194369:                  PUSH   WU
22950 @ 194372:                  PUSHI  #0x00000000
22951 @ 194377:                  JUMPIF = L_0004
22952 @ 194381:                  JUMP   L_020b
22953 @ 194384:                  LOCATE L_0004

  3710           K=6; ->REGS %IF REGISTER(6)=0 %AND REGISTER(7)=0
22954 @ 194387:                  LINE   3710 "regression-compile-tmp/imp918s.imp"
22955 @ 194425:                  PUSH   K
22956 @ 194428:                  PUSHI  #0x00000006
22957 @ 194433:                  ASSVAL
22958 @ 194434:                  LINE   3710 "regression-compile-tmp/imp918s.imp"
22959 @ 194472:                  PUSH   REGISTER
22960 @ 194475:                  PUSHI  #0x00000006
22961 @ 194480:                  ACCESS
22962 @ 194481:                  PUSHI  #0x00000000
22963 @ 194486:                  JUMPIF # L_0004
22964 @ 194490:                  PUSH   REGISTER
22965 @ 194493:                  PUSHI  #0x00000007
22966 @ 194498:                  ACCESS
22967 @ 194499:                  PUSHI  #0x00000000
22968 @ 194504:                  JUMPIF # L_0004
22969 @ 194508:                  JUMP   L_020b
22970 @ 194511:                  LOCATE L_0004

  3711           K=4; ->REGS %IF REGISTER(4)=REGISTER(5)=0
22971 @ 194514:                  LINE   3711 "regression-compile-tmp/imp918s.imp"
22972 @ 194552:                  PUSH   K
22973 @ 194555:                  PUSHI  #0x00000004
22974 @ 194560:                  ASSVAL
22975 @ 194561:                  LINE   3711 "regression-compile-tmp/imp918s.imp"
22976 @ 194599:                  PUSH   REGISTER
22977 @ 194602:                  PUSHI  #0x00000004
22978 @ 194607:                  ACCESS
22979 @ 194608:                  PUSH   REGISTER
22980 @ 194611:                  PUSHI  #0x00000005
22981 @ 194616:                  ACCESS
22982 @ 194617:                  JUMPIFD # L_0004
22983 @ 194621:                  PUSHI  #0x00000000
22984 @ 194626:                  JUMPIF # L_0004
22985 @ 194630:                  JUMP   L_020b
22986 @ 194633:                  LOCATE L_0004

  3712           FLAG=-1;     ! WORTH TRYING TO USE GRS2&3
22987 @ 194636:                  LINE   3712 "regression-compile-tmp/imp918s.imp"
22988 @ 194674:                  PUSH   FLAG
22989 @ 194677:                  PUSHI  #0x00000001
22990 @ 194682:                  NEGATE
22991 @ 194683:                  ASSVAL

  3713           %RETURN
22992 @ 194684:                  LINE   3713 "regression-compile-tmp/imp918s.imp"
22993 @ 194722:                  RETURN

  3714  REGS:    FLAG=K
  3715  !         %IF DCOMP=1 %THEN %START
  3716  !            printstring("
  3717  !CYCLE OPTIMISABLE")
  3718  !            WRITE(FLAG,2)
  3719  !         %FINISH
22994 @ 194723:                  LINE   3714 "regression-compile-tmp/imp918s.imp"
22995 @ 194761:                  LABEL  L_020b
22996 @ 194764:                  LINE   3714 "regression-compile-tmp/imp918s.imp"
22997 @ 194802:                  PUSH   FLAG
22998 @ 194805:                  PUSH   K
22999 @ 194808:                  ASSVAL

  3720           EXTRA PASS(2-WU&1,I-1,FLAG)
23000 @ 194809:                  LINE   3720 "regression-compile-tmp/imp918s.imp"
23001 @ 194847:                  PUSH   EXTRAPASS
23002 @ 194850:                  PUSHI  #0x00000002
23003 @ 194855:                  PUSH   WU
23004 @ 194858:                  PUSHI  #0x00000001
23005 @ 194863:                  AND   
23006 @ 194864:                  SUB   
23007 @ 194865:                  ASSPAR
23008 @ 194866:                  PUSH   I
23009 @ 194869:                  PUSHI  #0x00000001
23010 @ 194874:                  SUB   
23011 @ 194875:                  ASSPAR
23012 @ 194876:                  PUSH   FLAG
23013 @ 194879:                  ASSPAR
23014 @ 194880:                  CALL  

  3721           %END
23015 @ 194881:                  LINE   3721 "regression-compile-tmp/imp918s.imp"
23016 @ 194919:               END    _lev0id0_CSS_CYCOPT {lev=3 --> 2}

  3722           %ROUTINE EXTRA PASS(%INTEGER FST,LST,FLAG)
  3723           {%SHORTROUTINE}
23017 @ 194920:               LINE   3722 "regression-compile-tmp/imp918s.imp"
23018 @ 194958:               DEF    EXTRAPASS (_lev0id0_CSS_EXTRAPASS) p1=V_01bb 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
23019 @ 194979:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
23020 @ 194980:                     DEF    FST p1=V_0202 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
23021 @ 194995:                     DEF    LST p1=V_0203 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
23022 @ 195010:                     DEF    FLAG p1=V_0204 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
23023 @ 195026:                  FINISH ) {lev=3}

  3724           %INTEGER SAVECA,USE,INF,BITS,J,CREGS,SCCSTATE
23024 @ 195027:                  LINE   3724 "regression-compile-tmp/imp918s.imp"
23025 @ 195065:                  DEF    SAVECA p1=V_0205 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
23026 @ 195083:                  DEF    USE p1=V_0206 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
23027 @ 195098:                  DEF    INF p1=V_0207 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
23028 @ 195113:                  DEF    BITS p1=V_0208 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
23029 @ 195129:                  DEF    J p1=V_0209 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
23030 @ 195142:                  DEF    CREGS p1=V_020a 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
23031 @ 195159:                  DEF    SCCSTATE p1=V_020b 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

  3725           %SHORTINTEGER HEAD
23032 @ 195179:                  LINE   3725 "regression-compile-tmp/imp918s.imp"
23033 @ 195217:                  DEF    HEAD p1=V_020c a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0

  3726           CREGS=0
23034 @ 195233:                  LINE   3726 "regression-compile-tmp/imp918s.imp"
23035 @ 195271:                  PUSH   CREGS
23036 @ 195274:                  PUSHI  #0x00000000
23037 @ 195279:                  ASSVAL

  3727           %CYCLE J=4,1,14
23038 @ 195280:                  LINE   3727 "regression-compile-tmp/imp918s.imp"
23039 @ 195318:                  PUSH   J
23040 @ 195321:                  PUSHI  #0x00000001
23041 @ 195326:                  PUSHI  #0x0000000e
23042 @ 195331:                  PUSHI  #0x00000004
23043 @ 195336:                  FOR    L_0003

  3728              %IF REGISTER(J)=0 %THEN %START
23044 @ 195339:                  LINE   3728 "regression-compile-tmp/imp918s.imp"
23045 @ 195377:                  PUSH   REGISTER
23046 @ 195380:                  PUSH   J
23047 @ 195383:                  ACCESS
23048 @ 195384:                  PUSHI  #0x00000000
23049 @ 195389:                  JUMPIF # L_0007

  3729                 CREGS=CREGS!1<<J %UNLESS FLAG<=J<=FLAG+1
23050 @ 195393:                  LINE   3729 "regression-compile-tmp/imp918s.imp"
23051 @ 195431:                  PUSH   FLAG
23052 @ 195434:                  PUSH   J
23053 @ 195437:                  JUMPIFD > L_000b
23054 @ 195441:                  PUSH   FLAG
23055 @ 195444:                  PUSHI  #0x00000001
23056 @ 195449:                  ADD   
23057 @ 195450:                  JUMPIF <= L_000a
23058 @ 195454:                  LOCATE L_000b
23059 @ 195457:                  PUSH   CREGS
23060 @ 195460:                  PUSH   CREGS
23061 @ 195463:                  PUSHI  #0x00000001
23062 @ 195468:                  PUSH   J
23063 @ 195471:                  LSH   
23064 @ 195472:                  OR    
23065 @ 195473:                  ASSVAL
23066 @ 195474:                  LOCATE L_000a

  3730              %FINISH
23067 @ 195477:                  LINE   3730 "regression-compile-tmp/imp918s.imp"
23068 @ 195515:                  LOCATE L_0007

  3731           %REPEAT
23069 @ 195518:                  LINE   3731 "regression-compile-tmp/imp918s.imp"
23070 @ 195556:                  REPEAT L_0003
23071 @ 195559:                  LOCATE L_0004

  3732           %RETURN %UNLESS LST>=FST
23072 @ 195562:                  LINE   3732 "regression-compile-tmp/imp918s.imp"
23073 @ 195600:                  PUSH   LST
23074 @ 195603:                  PUSH   FST
23075 @ 195606:                  JUMPIF >= L_0004
23076 @ 195610:                  RETURN
23077 @ 195611:                  LOCATE L_0004

  3733           CODE OUT;                  ! EMPTY CODE BUFFER
23078 @ 195614:                  LINE   3733 "regression-compile-tmp/imp918s.imp"
23079 @ 195652:                  PUSH   CODEOUT
23080 @ 195655:                  CALL  

  3734           SAVECA=CA;                 ! AND PRESERVE CURRENT ADDRESS
23081 @ 195656:                  LINE   3734 "regression-compile-tmp/imp918s.imp"
23082 @ 195694:                  PUSH   SAVECA
23083 @ 195697:                  PUSH   CA
23084 @ 195700:                  ASSVAL

  3735           INF=0; OPTPTR=0
23085 @ 195701:                  LINE   3735 "regression-compile-tmp/imp918s.imp"
23086 @ 195739:                  PUSH   INF
23087 @ 195742:                  PUSHI  #0x00000000
23088 @ 195747:                  ASSVAL
23089 @ 195748:                  LINE   3735 "regression-compile-tmp/imp918s.imp"
23090 @ 195786:                  PUSH   OPTPTR
23091 @ 195789:                  PUSHI  #0x00000000
23092 @ 195794:                  ASSVAL

  3736           SCCSTATE=CCSTATE
23093 @ 195795:                  LINE   3736 "regression-compile-tmp/imp918s.imp"
23094 @ 195833:                  PUSH   SCCSTATE
23095 @ 195836:                  PUSH   CCSTATE
23096 @ 195839:                  ASSVAL

  3737           HEAD=0; GET ENV(HEAD);     ! AND THE REGISTER CONTENTS
23097 @ 195840:                  LINE   3737 "regression-compile-tmp/imp918s.imp"
23098 @ 195878:                  PUSH   HEAD
23099 @ 195881:                  PUSHI  #0x00000000
23100 @ 195886:                  ASSVAL
23101 @ 195887:                  LINE   3737 "regression-compile-tmp/imp918s.imp"
23102 @ 195925:                  PUSH   GETENV
23103 @ 195928:                  PUSH   HEAD
23104 @ 195931:                  ASSPAR
23105 @ 195932:                  CALL  

  3738           FORGETM(14)
23106 @ 195933:                  LINE   3738 "regression-compile-tmp/imp918s.imp"
23107 @ 195971:                  PUSH   FORGETM
23108 @ 195974:                  PUSHI  #0x0000000e
23109 @ 195979:                  ASSPAR
23110 @ 195980:                  CALL  

  3739           %IF 4<=FLAG<=14 %THEN OPTSAVE(2,2,1,CURCYCVAR)
  3740  ! CYCLE BITS SIGNIFY AS FOLLOWS:-
  3741  ! 2**0 = STATEMENT CONTAINS USER LABEL
  3742  ! 2**1 = STATEMENT CONTAINS JUMP INSTRUCTION
  3743  ! 2**2 = STATEMENT CONTAINS PERM SUBROUTINE CALL
  3744  ! 2**3 = STATEMENT CONTAINS NORMAL ROUTINE/FN CALL
  3745  ! 2**4 = STATEMENT USES PERMS CONSTANT LIST
  3746  ! 2**5 = STATEMENT CONTAINS ASSIGNMENT TO CONTROL VARIABLE
  3747  ! 2**6 = STATEMENT REQUIRES EVEN/ODD PAIR
  3748  ! 2**7 = STATEMENT REQUIRES A SAFE REGISTER
  3749  ! 2**8 = STATEMENT CONTAINS == TO RECORD OR SCALAR NAME
  3750  ! 2**9 = STATEMENT CONTAINS == TO ARRAY NAME
  3751  ! 2**10= STATEMENT CONTAINS A STORE VIA A BUILT-IN MAP
  3752  ! 2**20->Label2**31 GIVE TEXTUAL LEVELS OF ANY RTS CALLED
23111 @ 195981:                  LINE   3739 "regression-compile-tmp/imp918s.imp"
23112 @ 196019:                  PUSHI  #0x00000004
23113 @ 196024:                  PUSH   FLAG
23114 @ 196027:                  JUMPIFD > L_0004
23115 @ 196031:                  PUSHI  #0x0000000e
23116 @ 196036:                  JUMPIF > L_0004
23117 @ 196040:                  PUSH   OPTSAVE
23118 @ 196043:                  PUSHI  #0x00000002
23119 @ 196048:                  ASSPAR
23120 @ 196049:                  PUSHI  #0x00000002
23121 @ 196054:                  ASSPAR
23122 @ 196055:                  PUSHI  #0x00000001
23123 @ 196060:                  ASSPAR
23124 @ 196061:                  PUSH   CURCYCVAR
23125 @ 196064:                  ASSPAR
23126 @ 196065:                  CALL  
23127 @ 196066:                  LOCATE L_0004

  3753           SFHEAD=0; BITS=0
23128 @ 196069:                  LINE   3753 "regression-compile-tmp/imp918s.imp"
23129 @ 196107:                  PUSH   SFHEAD
23130 @ 196110:                  PUSHI  #0x00000000
23131 @ 196115:                  ASSVAL
23132 @ 196116:                  LINE   3753 "regression-compile-tmp/imp918s.imp"
23133 @ 196154:                  PUSH   BITS
23134 @ 196157:                  PUSHI  #0x00000000
23135 @ 196162:                  ASSVAL

  3754           %IF SAVECA-CODEBASE>4000 %THEN BITS=X'10';! LONG BRANCH BACK
23136 @ 196163:                  LINE   3754 "regression-compile-tmp/imp918s.imp"
23137 @ 196201:                  PUSH   SAVECA
23138 @ 196204:                  PUSH   CODEBASE
23139 @ 196207:                  SUB   
23140 @ 196208:                  PUSHI  #0x00000fa0
23141 @ 196213:                  JUMPIF <= L_0004
23142 @ 196217:                  PUSH   BITS
23143 @ 196220:                  PUSHI  #0x00000010
23144 @ 196225:                  ASSVAL
23145 @ 196226:                  LOCATE L_0004

  3755           %CYCLE J=FST,1,LST;          ! CYCLE THRO' ENCLOSED STMNTS
23146 @ 196229:                  LINE   3755 "regression-compile-tmp/imp918s.imp"
23147 @ 196267:                  PUSH   J
23148 @ 196270:                  PUSHI  #0x00000001
23149 @ 196275:                  PUSH   LST
23150 @ 196278:                  PUSH   FST
23151 @ 196281:                  FOR    L_0003

  3756              CSS(STPTRS(J),0);          ! COMPILE THEM
  3757                                         ! AND DISCARD ANY BINARY
23152 @ 196284:                  LINE   3756 "regression-compile-tmp/imp918s.imp"
23153 @ 196322:                  PUSH   CSS
23154 @ 196325:                  PUSH   STPTRS
23155 @ 196328:                  PUSH   J
23156 @ 196331:                  ACCESS
23157 @ 196332:                  ASSPAR
23158 @ 196333:                  PUSHI  #0x00000000
23159 @ 196338:                  ASSPAR
23160 @ 196339:                  CALL  

  3758              BITS=BITS!CYC BITS;        ! REMEMBER SALIENT FEATURES
23161 @ 196340:                  LINE   3758 "regression-compile-tmp/imp918s.imp"
23162 @ 196378:                  PUSH   BITS
23163 @ 196381:                  PUSH   BITS
23164 @ 196384:                  PUSH   CYCBITS
23165 @ 196387:                  OR    
23166 @ 196388:                  ASSVAL

  3759              FORGETM(14)
23167 @ 196389:                  LINE   3759 "regression-compile-tmp/imp918s.imp"
23168 @ 196427:                  PUSH   FORGETM
23169 @ 196430:                  PUSHI  #0x0000000e
23170 @ 196435:                  ASSPAR
23171 @ 196436:                  CALL  

  3760           %REPEAT
23172 @ 196437:                  LINE   3760 "regression-compile-tmp/imp918s.imp"
23173 @ 196475:                  REPEAT L_0003
23174 @ 196478:                  LOCATE L_0004

  3761           %IF CA-CODEBASE<4000 %THEN CYC BASE=10 %AND CYC ADDR=CODEBASE
23175 @ 196481:                  LINE   3761 "regression-compile-tmp/imp918s.imp"
23176 @ 196519:                  PUSH   CA
23177 @ 196522:                  PUSH   CODEBASE
23178 @ 196525:                  SUB   
23179 @ 196526:                  PUSHI  #0x00000fa0
23180 @ 196531:                  JUMPIF >= L_0004
23181 @ 196535:                  PUSH   CYCBASE
23182 @ 196538:                  PUSHI  #0x0000000a
23183 @ 196543:                  ASSVAL
23184 @ 196544:                  PUSH   CYCADDR
23185 @ 196547:                  PUSH   CODEBASE
23186 @ 196550:                  ASSVAL
23187 @ 196551:                  LOCATE L_0004

  3762           CYC BITS=BITS
23188 @ 196554:                  LINE   3762 "regression-compile-tmp/imp918s.imp"
23189 @ 196592:                  PUSH   CYCBITS
23190 @ 196595:                  PUSH   BITS
23191 @ 196598:                  ASSVAL

  3763           -> NO PRELOAD %UNLESS CYC BITS&1=0;   ! LABEL IN CYCLE
23192 @ 196599:                  LINE   3763 "regression-compile-tmp/imp918s.imp"
23193 @ 196637:                  PUSH   CYCBITS
23194 @ 196640:                  PUSHI  #0x00000001
23195 @ 196645:                  AND   
23196 @ 196646:                  PUSHI  #0x00000000
23197 @ 196651:                  JUMPIF = L_0004
23198 @ 196655:                  JUMP   L_020d
23199 @ 196658:                  LOCATE L_0004

  3764           %IF CYC BITS&X'80'=0 %THEN ->Label5; ! IS A SAFE REG REQD?
23200 @ 196661:                  LINE   3764 "regression-compile-tmp/imp918s.imp"
23201 @ 196699:                  PUSH   CYCBITS
23202 @ 196702:                  PUSHI  #0x00000080
23203 @ 196707:                  AND   
23204 @ 196708:                  PUSHI  #0x00000000
23205 @ 196713:                  JUMPIF # L_0004
23206 @ 196717:                  JUMP   L_020e
23207 @ 196720:                  LOCATE L_0004

  3765           %CYCLE J=14,-1,4
23208 @ 196723:                  LINE   3765 "regression-compile-tmp/imp918s.imp"
23209 @ 196761:                  PUSH   J
23210 @ 196764:                  PUSHI  #0x00000001
23211 @ 196769:                  NEGATE
23212 @ 196770:                  PUSHI  #0x00000004
23213 @ 196775:                  PUSHI  #0x0000000e
23214 @ 196780:                  FOR    L_0003

  3766              %IF CREGS&1<<J#0 %THEN CREGS=CREGS!!1<<J %AND ->Label5
  3767                                          ! REMOVE 1 SAFE REGISTER
23215 @ 196783:                  LINE   3766 "regression-compile-tmp/imp918s.imp"
23216 @ 196821:                  PUSH   CREGS
23217 @ 196824:                  PUSHI  #0x00000001
23218 @ 196829:                  PUSH   J
23219 @ 196832:                  LSH   
23220 @ 196833:                  AND   
23221 @ 196834:                  PUSHI  #0x00000000
23222 @ 196839:                  JUMPIF = L_0007
23223 @ 196843:                  PUSH   CREGS
23224 @ 196846:                  PUSH   CREGS
23225 @ 196849:                  PUSHI  #0x00000001
23226 @ 196854:                  PUSH   J
23227 @ 196857:                  LSH   
23228 @ 196858:                  XOR   
23229 @ 196859:                  ASSVAL
23230 @ 196860:                  JUMP   L_020e
23231 @ 196863:                  LOCATE L_0007

  3768           %REPEAT
23232 @ 196866:                  LINE   3768 "regression-compile-tmp/imp918s.imp"
23233 @ 196904:                  REPEAT L_0003
23234 @ 196907:                  LOCATE L_0004

  3769  Label5:       %IF CYCBITS&X'C'=0 %THEN CREGS=CREGS!(1<<15)
23235 @ 196910:                  LINE   3769 "regression-compile-tmp/imp918s.imp"
23236 @ 196948:                  LABEL  L_020e
23237 @ 196951:                  LINE   3769 "regression-compile-tmp/imp918s.imp"
23238 @ 196989:                  PUSH   CYCBITS
23239 @ 196992:                  PUSHI  #0x0000000c
23240 @ 196997:                  AND   
23241 @ 196998:                  PUSHI  #0x00000000
23242 @ 197003:                  JUMPIF # L_0004
23243 @ 197007:                  PUSH   CREGS
23244 @ 197010:                  PUSH   CREGS
23245 @ 197013:                  PUSHI  #0x00000001
23246 @ 197018:                  PUSHI  #0x0000000f
23247 @ 197023:                  LSH   
23248 @ 197024:                  OR    
23249 @ 197025:                  ASSVAL
23250 @ 197026:                  LOCATE L_0004

  3770           QSORT(OPTINF,1,OPTPTR)
23251 @ 197029:                  LINE   3770 "regression-compile-tmp/imp918s.imp"
23252 @ 197067:                  PUSH   QSORT
23253 @ 197070:                  PUSH   OPTINF
23254 @ 197073:                  ASSPAR
23255 @ 197074:                  PUSHI  #0x00000001
23256 @ 197079:                  ASSPAR
23257 @ 197080:                  PUSH   OPTPTR
23258 @ 197083:                  ASSPAR
23259 @ 197084:                  CALL  

  3771           %IF DCOMP=1 %THEN %START
23260 @ 197085:                  LINE   3771 "regression-compile-tmp/imp918s.imp"
23261 @ 197123:                  PUSH   DCOMP
23262 @ 197126:                  PUSHI  #0x00000001
23263 @ 197131:                  JUMPIF # L_0004

  3772              %CYCLE J=1,1,OPTPTR
23264 @ 197135:                  LINE   3772 "regression-compile-tmp/imp918s.imp"
23265 @ 197173:                  PUSH   J
23266 @ 197176:                  PUSHI  #0x00000001
23267 @ 197181:                  PUSH   OPTPTR
23268 @ 197184:                  PUSHI  #0x00000001
23269 @ 197189:                  FOR    L_0006

  3773                 NEWLINE
23270 @ 197192:                  LINE   3773 "regression-compile-tmp/imp918s.imp"
23271 @ 197230:                  PUSH   NEWLINE
23272 @ 197233:                  CALL  

  3774                 WRITE(OPTINF(J)_COUNT,5)
23273 @ 197234:                  LINE   3774 "regression-compile-tmp/imp918s.imp"
23274 @ 197272:                  PUSH   WRITE
23275 @ 197275:                  PUSH   OPTINF
23276 @ 197278:                  PUSH   J
23277 @ 197281:                  ACCESS
23278 @ 197282:                  SELECT 1
23279 @ 197285:                  ASSPAR
23280 @ 197286:                  PUSHI  #0x00000005
23281 @ 197291:                  ASSPAR
23282 @ 197292:                  CALL  

  3775                 WRITE(OPTINF(J)_TYPE,5)
23283 @ 197293:                  LINE   3775 "regression-compile-tmp/imp918s.imp"
23284 @ 197331:                  PUSH   WRITE
23285 @ 197334:                  PUSH   OPTINF
23286 @ 197337:                  PUSH   J
23287 @ 197340:                  ACCESS
23288 @ 197341:                  SELECT 2
23289 @ 197344:                  ASSPAR
23290 @ 197345:                  PUSHI  #0x00000005
23291 @ 197350:                  ASSPAR
23292 @ 197351:                  CALL  

  3776                 WRITE(OPTINF(J)_BITS,5)
23293 @ 197352:                  LINE   3776 "regression-compile-tmp/imp918s.imp"
23294 @ 197390:                  PUSH   WRITE
23295 @ 197393:                  PUSH   OPTINF
23296 @ 197396:                  PUSH   J
23297 @ 197399:                  ACCESS
23298 @ 197400:                  SELECT 3
23299 @ 197403:                  ASSPAR
23300 @ 197404:                  PUSHI  #0x00000005
23301 @ 197409:                  ASSPAR
23302 @ 197410:                  CALL  

  3777                 WRITE(OPTINF(J)_PTYPE,5)
23303 @ 197411:                  LINE   3777 "regression-compile-tmp/imp918s.imp"
23304 @ 197449:                  PUSH   WRITE
23305 @ 197452:                  PUSH   OPTINF
23306 @ 197455:                  PUSH   J
23307 @ 197458:                  ACCESS
23308 @ 197459:                  SELECT 4
23309 @ 197462:                  ASSPAR
23310 @ 197463:                  PUSHI  #0x00000005
23311 @ 197468:                  ASSPAR
23312 @ 197469:                  CALL  

  3778                 WRITE(OPTINF(J)_XTRA,5)
23313 @ 197470:                  LINE   3778 "regression-compile-tmp/imp918s.imp"
23314 @ 197508:                  PUSH   WRITE
23315 @ 197511:                  PUSH   OPTINF
23316 @ 197514:                  PUSH   J
23317 @ 197517:                  ACCESS
23318 @ 197518:                  SELECT 5
23319 @ 197521:                  ASSPAR
23320 @ 197522:                  PUSHI  #0x00000005
23321 @ 197527:                  ASSPAR
23322 @ 197528:                  CALL  

  3779              %REPEAT
23323 @ 197529:                  LINE   3779 "regression-compile-tmp/imp918s.imp"
23324 @ 197567:                  REPEAT L_0006
23325 @ 197570:                  LOCATE L_0007

  3780           %FINISH
23326 @ 197573:                  LINE   3780 "regression-compile-tmp/imp918s.imp"
23327 @ 197611:                  LOCATE L_0004

  3781           %IF CYCBASE=0 %THEN OPTPTR=OPTPTR+1 %AND OPTINF(OPTPTR)_TYPE=12
23328 @ 197614:                  LINE   3781 "regression-compile-tmp/imp918s.imp"
23329 @ 197652:                  PUSH   CYCBASE
23330 @ 197655:                  PUSHI  #0x00000000
23331 @ 197660:                  JUMPIF # L_0004
23332 @ 197664:                  PUSH   OPTPTR
23333 @ 197667:                  PUSH   OPTPTR
23334 @ 197670:                  PUSHI  #0x00000001
23335 @ 197675:                  ADD   
23336 @ 197676:                  ASSVAL
23337 @ 197677:                  PUSH   OPTINF
23338 @ 197680:                  PUSH   OPTPTR
23339 @ 197683:                  ACCESS
23340 @ 197684:                  SELECT 2
23341 @ 197687:                  PUSHI  #0x0000000c
23342 @ 197692:                  ASSVAL
23343 @ 197693:                  LOCATE L_0004

  3782           -> RELOAD;             ! REARRANGE INFO GLEANED
23344 @ 197696:                  LINE   3782 "regression-compile-tmp/imp918s.imp"
23345 @ 197734:                  JUMP   L_020f

  3783  NO PRELOAD:  CREGS=0
23346 @ 197737:                  LINE   3783 "regression-compile-tmp/imp918s.imp"
23347 @ 197775:                  LABEL  L_020d
23348 @ 197778:                  LINE   3783 "regression-compile-tmp/imp918s.imp"
23349 @ 197816:                  PUSH   CREGS
23350 @ 197819:                  PUSHI  #0x00000000
23351 @ 197824:                  ASSVAL

  3784  RELOAD:  RESTORE(HEAD);                ! RESET REGISTERS
23352 @ 197825:                  LINE   3784 "regression-compile-tmp/imp918s.imp"
23353 @ 197863:                  LABEL  L_020f
23354 @ 197866:                  LINE   3784 "regression-compile-tmp/imp918s.imp"
23355 @ 197904:                  PUSH   RESTORE
23356 @ 197907:                  PUSH   HEAD
23357 @ 197910:                  ASSPAR
23358 @ 197911:                  CALL  

  3785           CCSTATE=SCCSTATE
23359 @ 197912:                  LINE   3785 "regression-compile-tmp/imp918s.imp"
23360 @ 197950:                  PUSH   CCSTATE
23361 @ 197953:                  PUSH   SCCSTATE
23362 @ 197956:                  ASSVAL

  3786           CA=SAVECA; CABUF=CA; PP CURR=0
23363 @ 197957:                  LINE   3786 "regression-compile-tmp/imp918s.imp"
23364 @ 197995:                  PUSH   CA
23365 @ 197998:                  PUSH   SAVECA
23366 @ 198001:                  ASSVAL
23367 @ 198002:                  LINE   3786 "regression-compile-tmp/imp918s.imp"
23368 @ 198040:                  PUSH   CABUF
23369 @ 198043:                  PUSH   CA
23370 @ 198046:                  ASSVAL
23371 @ 198047:                  LINE   3786 "regression-compile-tmp/imp918s.imp"
23372 @ 198085:                  PUSH   PPCURR
23373 @ 198088:                  PUSHI  #0x00000000
23374 @ 198093:                  ASSVAL

  3787           %IF CREGS=0 %THEN %RETURN
  3788  !
  3789  ! LOAD BASE AND INCREMENT HERE WHEN RELEVANT IN CASE OF CYCLE I=1,1,I
  3790  !
23375 @ 198094:                  LINE   3787 "regression-compile-tmp/imp918s.imp"
23376 @ 198132:                  PUSH   CREGS
23377 @ 198135:                  PUSHI  #0x00000000
23378 @ 198140:                  JUMPIF # L_0004
23379 @ 198144:                  RETURN
23380 @ 198145:                  LOCATE L_0004

  3791           %IF 4<=FLAG<=14 %START
23381 @ 198148:                  LINE   3791 "regression-compile-tmp/imp918s.imp"
23382 @ 198186:                  PUSHI  #0x00000004
23383 @ 198191:                  PUSH   FLAG
23384 @ 198194:                  JUMPIFD > L_0004
23385 @ 198198:                  PUSHI  #0x0000000e
23386 @ 198203:                  JUMPIF > L_0004

  3792              P=STPTRS(1)+5
23387 @ 198207:                  LINE   3792 "regression-compile-tmp/imp918s.imp"
23388 @ 198245:                  PUSH   P
23389 @ 198248:                  PUSH   STPTRS
23390 @ 198251:                  PUSHI  #0x00000001
23391 @ 198256:                  ACCESS
23392 @ 198257:                  PUSHI  #0x00000005
23393 @ 198262:                  ADD   
23394 @ 198263:                  ASSVAL

  3793              SKIP EXP
23395 @ 198264:                  LINE   3793 "regression-compile-tmp/imp918s.imp"
23396 @ 198302:                  PUSH   SKIPEXP
23397 @ 198305:                  CALL  

  3794              DSEXP(FLAG,0)
23398 @ 198306:                  LINE   3794 "regression-compile-tmp/imp918s.imp"
23399 @ 198344:                  PUSH   DSEXP
23400 @ 198347:                  PUSH   FLAG
23401 @ 198350:                  ASSPAR
23402 @ 198351:                  PUSHI  #0x00000000
23403 @ 198356:                  ASSPAR
23404 @ 198357:                  CALL  

  3795              SET USE(FLAG,14,0)
23405 @ 198358:                  LINE   3795 "regression-compile-tmp/imp918s.imp"
23406 @ 198396:                  PUSH   SETUSE
23407 @ 198399:                  PUSH   FLAG
23408 @ 198402:                  ASSPAR
23409 @ 198403:                  PUSHI  #0x0000000e
23410 @ 198408:                  ASSPAR
23411 @ 198409:                  PUSHI  #0x00000000
23412 @ 198414:                  ASSPAR
23413 @ 198415:                  CALL  

  3796              SET USE(FLAG+1,14,0)
23414 @ 198416:                  LINE   3796 "regression-compile-tmp/imp918s.imp"
23415 @ 198454:                  PUSH   SETUSE
23416 @ 198457:                  PUSH   FLAG
23417 @ 198460:                  PUSHI  #0x00000001
23418 @ 198465:                  ADD   
23419 @ 198466:                  ASSPAR
23420 @ 198467:                  PUSHI  #0x0000000e
23421 @ 198472:                  ASSPAR
23422 @ 198473:                  PUSHI  #0x00000000
23423 @ 198478:                  ASSPAR
23424 @ 198479:                  CALL  

  3797           %FINISH
23425 @ 198480:                  LINE   3797 "regression-compile-tmp/imp918s.imp"
23426 @ 198518:                  LOCATE L_0004

  3798           LOAD UP (CREGS)
23427 @ 198521:                  LINE   3798 "regression-compile-tmp/imp918s.imp"
23428 @ 198559:                  PUSH   LOADUP
23429 @ 198562:                  PUSH   CREGS
23430 @ 198565:                  ASSPAR
23431 @ 198566:                  CALL  

  3799           %END
23432 @ 198567:                  LINE   3799 "regression-compile-tmp/imp918s.imp"
23433 @ 198605:               END    _lev0id0_CSS_EXTRAPASS {lev=3 --> 2}

  3800           %ROUTINE CYC RESTORE
  3801           {%SHORTROUTINE}
23434 @ 198606:               LINE   3800 "regression-compile-tmp/imp918s.imp"
23435 @ 198644:               DEF    CYCRESTORE (_lev0id0_CSS_CYCRESTORE) p1=V_01bc 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
23436 @ 198666:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
23437 @ 198667:                  FINISH ) {lev=3}

  3802           %INTEGER I
23438 @ 198668:                  LINE   3802 "regression-compile-tmp/imp918s.imp"
23439 @ 198706:                  DEF    I p1=V_0202 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

  3803           %CYCLE I=4,1,15
23440 @ 198719:                  LINE   3803 "regression-compile-tmp/imp918s.imp"
23441 @ 198757:                  PUSH   I
23442 @ 198760:                  PUSHI  #0x00000001
23443 @ 198765:                  PUSHI  #0x0000000f
23444 @ 198770:                  PUSHI  #0x00000004
23445 @ 198775:                  FOR    L_0003

  3804              %IF CYC REGS&1<<I#0 %THEN %START
23446 @ 198778:                  LINE   3804 "regression-compile-tmp/imp918s.imp"
23447 @ 198816:                  PUSH   CYCREGS
23448 @ 198819:                  PUSHI  #0x00000001
23449 @ 198824:                  PUSH   I
23450 @ 198827:                  LSH   
23451 @ 198828:                  AND   
23452 @ 198829:                  PUSHI  #0x00000000
23453 @ 198834:                  JUMPIF = L_0007

  3805                 %IF GRUSE(I)=3 %THEN VDALLOC(I,I*(CYCASS>>I&1)) %C
  3806                    %ELSE REGISTER(I)=0
23454 @ 198838:                  LINE   3805 "regression-compile-tmp/imp918s.imp"
23455 @ 198876:                  PUSH   GRUSE
23456 @ 198879:                  PUSH   I
23457 @ 198882:                  ACCESS
23458 @ 198883:                  PUSHI  #0x00000003
23459 @ 198888:                  JUMPIF # L_000a
23460 @ 198892:                  PUSH   VDALLOC
23461 @ 198895:                  PUSH   I
23462 @ 198898:                  ASSPAR
23463 @ 198899:                  PUSH   I
23464 @ 198902:                  PUSH   CYCASS
23465 @ 198905:                  PUSH   I
23466 @ 198908:                  RSH   
23467 @ 198909:                  PUSHI  #0x00000001
23468 @ 198914:                  AND   
23469 @ 198915:                  MUL   
23470 @ 198916:                  ASSPAR
23471 @ 198917:                  CALL  
23472 @ 198918:                  GOTO   L_0009
23473 @ 198921:                  LOCATE L_000a
23474 @ 198924:                  PUSH   REGISTER
23475 @ 198927:                  PUSH   I
23476 @ 198930:                  ACCESS
23477 @ 198931:                  PUSHI  #0x00000000
23478 @ 198936:                  ASSVAL
23479 @ 198937:                  LOCATE L_0009

  3807              %FINISH
23480 @ 198940:                  LINE   3807 "regression-compile-tmp/imp918s.imp"
23481 @ 198978:                  LOCATE L_0007

  3808           %REPEAT
23482 @ 198981:                  LINE   3808 "regression-compile-tmp/imp918s.imp"
23483 @ 199019:                  REPEAT L_0003
23484 @ 199022:                  LOCATE L_0004

  3809           %END
23485 @ 199025:                  LINE   3809 "regression-compile-tmp/imp918s.imp"
23486 @ 199063:               END    _lev0id0_CSS_CYCRESTORE {lev=3 --> 2}

  3810           %ROUTINE CREATE AH(%INTEGER MODE,REG,BS,DP)
  3811           {%SHORTROUTINE}
  3812  !***********************************************************************
  3813  !*       CREATES AN ARRAYHEAD IN TEMPORARY SPACE BY MODIFYING THE HEAD *
  3814  !*       AT BS&DP BY THE REGISTER REG,AS FOLLOWS:-                     *
  3815  !*       MODE=0 (ARRAYMAPPING)  REG HAS ADDR OF FIRST ELEMENT          *
  3816  !*       MODE=1 (ARRAYS IN RECORDS)-REG HAS RELOCATION FACTOR          *
  3817  !*       REG IS SET AND PROTECTED BY THE CALLING ROUTINE. ON EXIT DISP *
  3818  !*       INDEX & BASE POINT TO THE NEW ARRAYHEAD                       *
  3819  !***********************************************************************
23487 @ 199064:               LINE   3810 "regression-compile-tmp/imp918s.imp"
23488 @ 199102:               DEF    CREATEAH (_lev0id0_CSS_CREATEAH) p1=V_018c 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
23489 @ 199122:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
23490 @ 199123:                     DEF    MODE p1=V_0202 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
23491 @ 199139:                     DEF    REG p1=V_0203 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
23492 @ 199154:                     DEF    BS p1=V_0204 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
23493 @ 199168:                     DEF    DP p1=V_0205 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
23494 @ 199182:                  FINISH ) {lev=3}

  3820           %INTEGER I,R1,R2,R3,R4,R5,WK,J
23495 @ 199183:                  LINE   3820 "regression-compile-tmp/imp918s.imp"
23496 @ 199221:                  DEF    I p1=V_0206 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
23497 @ 199234:                  DEF    R1 p1=V_0207 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
23498 @ 199248:                  DEF    R2 p1=V_0208 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
23499 @ 199262:                  DEF    R3 p1=V_0209 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
23500 @ 199276:                  DEF    R4 p1=V_020a 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
23501 @ 199290:                  DEF    R5 p1=V_020b 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
23502 @ 199304:                  DEF    WK p1=V_020c 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
23503 @ 199318:                  DEF    J p1=V_020d 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

  3821           GET WSP(WK,4);                ! GET FOUR WORDS FOR NEW HEAD
23504 @ 199331:                  LINE   3821 "regression-compile-tmp/imp918s.imp"
23505 @ 199369:                  PUSH   GETWSP
23506 @ 199372:                  PUSH   WK
23507 @ 199375:                  ASSPAR
23508 @ 199376:                  PUSHI  #0x00000004
23509 @ 199381:                  ASSPAR
23510 @ 199382:                  CALL  

  3822           FIND SEQ(R1,R2);              ! 2 WORK REGISTERS
23511 @ 199383:                  LINE   3822 "regression-compile-tmp/imp918s.imp"
23512 @ 199421:                  PUSH   FINDSEQ
23513 @ 199424:                  PUSH   R1
23514 @ 199427:                  ASSPAR
23515 @ 199428:                  PUSH   R2
23516 @ 199431:                  ASSPAR
23517 @ 199432:                  CALL  

  3823           R3=(R2+1)&15; R4=(R3+1)&15;   ! TRY FOR 2 MORE
23518 @ 199433:                  LINE   3823 "regression-compile-tmp/imp918s.imp"
23519 @ 199471:                  PUSH   R3
23520 @ 199474:                  PUSH   R2
23521 @ 199477:                  PUSHI  #0x00000001
23522 @ 199482:                  ADD   
23523 @ 199483:                  PUSHI  #0x0000000f
23524 @ 199488:                  AND   
23525 @ 199489:                  ASSVAL
23526 @ 199490:                  LINE   3823 "regression-compile-tmp/imp918s.imp"
23527 @ 199528:                  PUSH   R4
23528 @ 199531:                  PUSH   R3
23529 @ 199534:                  PUSHI  #0x00000001
23530 @ 199539:                  ADD   
23531 @ 199540:                  PUSHI  #0x0000000f
23532 @ 199545:                  AND   
23533 @ 199546:                  ASSVAL

  3824           %UNLESS REGISTER(R3)=0=REGISTER(R4) %THEN R4=R2
23534 @ 199547:                  LINE   3824 "regression-compile-tmp/imp918s.imp"
23535 @ 199585:                  PUSH   REGISTER
23536 @ 199588:                  PUSH   R3
23537 @ 199591:                  ACCESS
23538 @ 199592:                  PUSHI  #0x00000000
23539 @ 199597:                  JUMPIFD # L_0005
23540 @ 199601:                  PUSH   REGISTER
23541 @ 199604:                  PUSH   R4
23542 @ 199607:                  ACCESS
23543 @ 199608:                  JUMPIF = L_0004
23544 @ 199612:                  LOCATE L_0005
23545 @ 199615:                  PUSH   R4
23546 @ 199618:                  PUSH   R2
23547 @ 199621:                  ASSVAL
23548 @ 199622:                  LOCATE L_0004

  3825           %IF R1>R4 %THEN R5=R4+16 %ELSE R5=R4
23549 @ 199625:                  LINE   3825 "regression-compile-tmp/imp918s.imp"
23550 @ 199663:                  PUSH   R1
23551 @ 199666:                  PUSH   R4
23552 @ 199669:                  JUMPIF <= L_0004
23553 @ 199673:                  PUSH   R5
23554 @ 199676:                  PUSH   R4
23555 @ 199679:                  PUSHI  #0x00000010
23556 @ 199684:                  ADD   
23557 @ 199685:                  ASSVAL
23558 @ 199686:                  GOTO   L_0003
23559 @ 199689:                  LOCATE L_0004
23560 @ 199692:                  PUSH   R5
23561 @ 199695:                  PUSH   R4
23562 @ 199698:                  ASSVAL
23563 @ 199699:                  LOCATE L_0003

  3826           %CYCLE J=R1,1,R5
23564 @ 199702:                  LINE   3826 "regression-compile-tmp/imp918s.imp"
23565 @ 199740:                  PUSH   J
23566 @ 199743:                  PUSHI  #0x00000001
23567 @ 199748:                  PUSH   R5
23568 @ 199751:                  PUSH   R1
23569 @ 199754:                  FOR    L_0003

  3827              I=J&15
23570 @ 199757:                  LINE   3827 "regression-compile-tmp/imp918s.imp"
23571 @ 199795:                  PUSH   I
23572 @ 199798:                  PUSH   J
23573 @ 199801:                  PUSHI  #0x0000000f
23574 @ 199806:                  AND   
23575 @ 199807:                  ASSVAL

  3828              REGISTER(I)=1;             ! CLAIM WORKING REGISTERS
23576 @ 199808:                  LINE   3828 "regression-compile-tmp/imp918s.imp"
23577 @ 199846:                  PUSH   REGISTER
23578 @ 199849:                  PUSH   I
23579 @ 199852:                  ACCESS
23580 @ 199853:                  PUSHI  #0x00000001
23581 @ 199858:                  ASSVAL

  3829              FORGET(I)
23582 @ 199859:                  LINE   3829 "regression-compile-tmp/imp918s.imp"
23583 @ 199897:                  PUSH   FORGET
23584 @ 199900:                  PUSH   I
23585 @ 199903:                  ASSPAR
23586 @ 199904:                  CALL  

  3830           %REPEAT
23587 @ 199905:                  LINE   3830 "regression-compile-tmp/imp918s.imp"
23588 @ 199943:                  REPEAT L_0003
23589 @ 199946:                  LOCATE L_0004

  3831           DUMPM(X'98',R1,R4,BS,DP);     ! PICK UP 2 OR 4 ELEMENTS
23590 @ 199949:                  LINE   3831 "regression-compile-tmp/imp918s.imp"
23591 @ 199987:                  PUSH   DUMPM
23592 @ 199990:                  PUSHI  #0x00000098
23593 @ 199995:                  ASSPAR
23594 @ 199996:                  PUSH   R1
23595 @ 199999:                  ASSPAR
23596 @ 200000:                  PUSH   R4
23597 @ 200003:                  ASSPAR
23598 @ 200004:                  PUSH   BS
23599 @ 200007:                  ASSPAR
23600 @ 200008:                  PUSH   DP
23601 @ 200011:                  ASSPAR
23602 @ 200012:                  CALL  

  3832           %IF MODE=0 %THEN PRR(X'1B',R1,R2); ! SR R1,R2
23603 @ 200013:                  LINE   3832 "regression-compile-tmp/imp918s.imp"
23604 @ 200051:                  PUSH   MODE
23605 @ 200054:                  PUSHI  #0x00000000
23606 @ 200059:                  JUMPIF # L_0004
23607 @ 200063:                  PUSH   PRR
23608 @ 200066:                  PUSHI  #0x0000001b
23609 @ 200071:                  ASSPAR
23610 @ 200072:                  PUSH   R1
23611 @ 200075:                  ASSPAR
23612 @ 200076:                  PUSH   R2
23613 @ 200079:                  ASSPAR
23614 @ 200080:                  CALL  
23615 @ 200081:                  LOCATE L_0004

  3833           PRR(X'18'+2*MODE,R2,REG);     ! LR R2,REG (MODE=0) OR AR R2,REG
23616 @ 200084:                  LINE   3833 "regression-compile-tmp/imp918s.imp"
23617 @ 200122:                  PUSH   PRR
23618 @ 200125:                  PUSHI  #0x00000018
23619 @ 200130:                  PUSHI  #0x00000002
23620 @ 200135:                  PUSH   MODE
23621 @ 200138:                  MUL   
23622 @ 200139:                  ADD   
23623 @ 200140:                  ASSPAR
23624 @ 200141:                  PUSH   R2
23625 @ 200144:                  ASSPAR
23626 @ 200145:                  PUSH   REG
23627 @ 200148:                  ASSPAR
23628 @ 200149:                  CALL  

  3834           PRR(X'1A',R1,REG);            ! AR R1,REG
23629 @ 200150:                  LINE   3834 "regression-compile-tmp/imp918s.imp"
23630 @ 200188:                  PUSH   PRR
23631 @ 200191:                  PUSHI  #0x0000001a
23632 @ 200196:                  ASSPAR
23633 @ 200197:                  PUSH   R1
23634 @ 200200:                  ASSPAR
23635 @ 200201:                  PUSH   REG
23636 @ 200204:                  ASSPAR
23637 @ 200205:                  CALL  

  3835           DUMPM(X'90',R1,R4,RBASE,WK);  ! STUFF OFF MODIFIED ELEMENTS
23638 @ 200206:                  LINE   3835 "regression-compile-tmp/imp918s.imp"
23639 @ 200244:                  PUSH   DUMPM
23640 @ 200247:                  PUSHI  #0x00000090
23641 @ 200252:                  ASSPAR
23642 @ 200253:                  PUSH   R1
23643 @ 200256:                  ASSPAR
23644 @ 200257:                  PUSH   R4
23645 @ 200260:                  ASSPAR
23646 @ 200261:                  PUSH   RBASE
23647 @ 200264:                  ASSPAR
23648 @ 200265:                  PUSH   WK
23649 @ 200268:                  ASSPAR
23650 @ 200269:                  CALL  

  3836           %IF R2=R4 %THEN %START;       ! ONLY 2 WORK REGISTERS
23651 @ 200270:                  LINE   3836 "regression-compile-tmp/imp918s.imp"
23652 @ 200308:                  PUSH   R2
23653 @ 200311:                  PUSH   R4
23654 @ 200314:                  JUMPIF # L_0004

  3837              DUMPM(X'98',R1,R2,BS,DP+8);! SO REPEAT ON LAST ELEMENTS
23655 @ 200318:                  LINE   3837 "regression-compile-tmp/imp918s.imp"
23656 @ 200356:                  PUSH   DUMPM
23657 @ 200359:                  PUSHI  #0x00000098
23658 @ 200364:                  ASSPAR
23659 @ 200365:                  PUSH   R1
23660 @ 200368:                  ASSPAR
23661 @ 200369:                  PUSH   R2
23662 @ 200372:                  ASSPAR
23663 @ 200373:                  PUSH   BS
23664 @ 200376:                  ASSPAR
23665 @ 200377:                  PUSH   DP
23666 @ 200380:                  PUSHI  #0x00000008
23667 @ 200385:                  ADD   
23668 @ 200386:                  ASSPAR
23669 @ 200387:                  CALL  

  3838              DUMPM(X'90',R1,R2,RBASE,WK+8)
23670 @ 200388:                  LINE   3838 "regression-compile-tmp/imp918s.imp"
23671 @ 200426:                  PUSH   DUMPM
23672 @ 200429:                  PUSHI  #0x00000090
23673 @ 200434:                  ASSPAR
23674 @ 200435:                  PUSH   R1
23675 @ 200438:                  ASSPAR
23676 @ 200439:                  PUSH   R2
23677 @ 200442:                  ASSPAR
23678 @ 200443:                  PUSH   RBASE
23679 @ 200446:                  ASSPAR
23680 @ 200447:                  PUSH   WK
23681 @ 200450:                  PUSHI  #0x00000008
23682 @ 200455:                  ADD   
23683 @ 200456:                  ASSPAR
23684 @ 200457:                  CALL  

  3839           %FINISH
  3840  !
23685 @ 200458:                  LINE   3839 "regression-compile-tmp/imp918s.imp"
23686 @ 200496:                  LOCATE L_0004

  3841           %CYCLE J=R1,1,R5
23687 @ 200499:                  LINE   3841 "regression-compile-tmp/imp918s.imp"
23688 @ 200537:                  PUSH   J
23689 @ 200540:                  PUSHI  #0x00000001
23690 @ 200545:                  PUSH   R5
23691 @ 200548:                  PUSH   R1
23692 @ 200551:                  FOR    L_0003

  3842              REGISTER(J&15)=0;          ! FREE WORK REGISTERS
23693 @ 200554:                  LINE   3842 "regression-compile-tmp/imp918s.imp"
23694 @ 200592:                  PUSH   REGISTER
23695 @ 200595:                  PUSH   J
23696 @ 200598:                  PUSHI  #0x0000000f
23697 @ 200603:                  AND   
23698 @ 200604:                  ACCESS
23699 @ 200605:                  PUSHI  #0x00000000
23700 @ 200610:                  ASSVAL

  3843           %REPEAT
23701 @ 200611:                  LINE   3843 "regression-compile-tmp/imp918s.imp"
23702 @ 200649:                  REPEAT L_0003
23703 @ 200652:                  LOCATE L_0004

  3844           INDEX=0; BASE=RBASE
23704 @ 200655:                  LINE   3844 "regression-compile-tmp/imp918s.imp"
23705 @ 200693:                  PUSH   INDEX
23706 @ 200696:                  PUSHI  #0x00000000
23707 @ 200701:                  ASSVAL
23708 @ 200702:                  LINE   3844 "regression-compile-tmp/imp918s.imp"
23709 @ 200740:                  PUSH   BASE
23710 @ 200743:                  PUSH   RBASE
23711 @ 200746:                  ASSVAL

  3845           DISP=WK;                      ! WK RETURNED ON EXIT FROM CSS
23712 @ 200747:                  LINE   3845 "regression-compile-tmp/imp918s.imp"
23713 @ 200785:                  PUSH   DISP
23714 @ 200788:                  PUSH   WK
23715 @ 200791:                  ASSVAL

  3846           CCSTATE=-1
23716 @ 200792:                  LINE   3846 "regression-compile-tmp/imp918s.imp"
23717 @ 200830:                  PUSH   CCSTATE
23718 @ 200833:                  PUSHI  #0x00000001
23719 @ 200838:                  NEGATE
23720 @ 200839:                  ASSVAL

  3847           %END;                         ! OF ROUTINE CREATE AH
23721 @ 200840:                  LINE   3847 "regression-compile-tmp/imp918s.imp"
23722 @ 200878:               END    _lev0id0_CSS_CREATEAH {lev=3 --> 2}

  3848           %INTEGERFN DOPE VECTOR(%INTEGER ELSIZE,LB,UB)
  3849           {%SHORTROUTINE}
  3850  !***********************************************************************
  3851  !*        CONSTRUCTS THE DOPE-VECTOR FOR A 1-DIMENSIONAL ARRAY IN THE  *
  3852  !*       SHAREABLE SYMBOL TABLES AND RETURNS ITS DISPLACEMENT AS RESULT*
  3853  !*       EVENTUALLY ALL NON DYNAMIC DOPE VECTORS SHOULD GO VIA HERE    *
  3854  !*       AND AS MUCH SHARING AS POSSIBLE SHOULD GO ON.                 *
  3855  !*       THE LIST OF DOPE VECTORS LOOKS LIKE:-                         *
  3856  !*       STREAM1(32 BITS) = LOWER BOUND<<16 ! UPPER BOUND              *
  3857  !*       STREAM2(32 BITS) = DISPLACEMENT OF DOPEVECTOR IN SHAREABLE ST *
  3858  !*       STREAM3(16 BITS) = THE ELEMENT SIZE IN BYTES                  *
  3859  !*       A CHECK IS REQUIRED THAT EACH BOUND FITS INTO 16 BITS         *
  3860  !***********************************************************************
23723 @ 200879:               LINE   3848 "regression-compile-tmp/imp918s.imp"
23724 @ 200917:               DEF    DOPEVECTOR (_lev0id0_CSS_DOPEVECTOR) p1=V_017f a/tf=18 b/format=1 c/ostate=10  type=1 (integer) form=8 (function) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=1 unass=0
23725 @ 200939:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
23726 @ 200940:                     DEF    ELSIZE p1=V_0202 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
23727 @ 200958:                     DEF    LB p1=V_0203 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
23728 @ 200972:                     DEF    UB p1=V_0204 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
23729 @ 200986:                  FINISH ) {lev=3}

  3861           %INTEGER RANGE,I,J,K,W1,HEAD
23730 @ 200987:                  LINE   3861 "regression-compile-tmp/imp918s.imp"
23731 @ 201025:                  DEF    RANGE p1=V_0205 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
23732 @ 201042:                  DEF    I p1=V_0206 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
23733 @ 201055:                  DEF    J p1=V_0207 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
23734 @ 201068:                  DEF    K p1=V_0208 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
23735 @ 201081:                  DEF    W1 p1=V_0209 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
23736 @ 201095:                  DEF    HEAD p1=V_020a 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

  3862           W1=LB<<16!UB&X'FFFF'
23737 @ 201111:                  LINE   3862 "regression-compile-tmp/imp918s.imp"
23738 @ 201149:                  PUSH   W1
23739 @ 201152:                  PUSH   LB
23740 @ 201155:                  PUSHI  #0x00000010
23741 @ 201160:                  LSH   
23742 @ 201161:                  PUSH   UB
23743 @ 201164:                  PUSHI  #0x0000ffff
23744 @ 201169:                  AND   
23745 @ 201170:                  OR    
23746 @ 201171:                  ASSVAL

  3863           %IF SHORTINTEGER(ADDR(W1))=LB %AND %C
  3864               SHORTINTEGER(ADDR(W1)+2)=UB %START
23747 @ 201172:                  LINE   3863 "regression-compile-tmp/imp918s.imp"
23748 @ 201210:                  PUSH   SHORTINTEGER
23749 @ 201213:                  PUSH   ADDR
23750 @ 201216:                  PUSH   W1
23751 @ 201219:                  ASSPAR
23752 @ 201220:                  CALL  
23753 @ 201221:                  ASSPAR
23754 @ 201222:                  CALL  
23755 @ 201223:                  PUSH   LB
23756 @ 201226:                  JUMPIF # L_0004
23757 @ 201230:                  PUSH   SHORTINTEGER
23758 @ 201233:                  PUSH   ADDR
23759 @ 201236:                  PUSH   W1
23760 @ 201239:                  ASSPAR
23761 @ 201240:                  CALL  
23762 @ 201241:                  PUSHI  #0x00000002
23763 @ 201246:                  ADD   
23764 @ 201247:                  ASSPAR
23765 @ 201248:                  CALL  
23766 @ 201249:                  PUSH   UB
23767 @ 201252:                  JUMPIF # L_0004

  3865              HEAD=DVHEAD
23768 @ 201256:                  LINE   3865 "regression-compile-tmp/imp918s.imp"
23769 @ 201294:                  PUSH   HEAD
23770 @ 201297:                  PUSH   DVHEAD
23771 @ 201300:                  ASSVAL

  3866              %WHILE HEAD#0 %CYCLE;       ! SEARCH THE PREVIOUS DVS
23772 @ 201301:                  LINE   3866 "regression-compile-tmp/imp918s.imp"
23773 @ 201339:                  LOCATE L_0006
23774 @ 201342:                  PUSH   HEAD
23775 @ 201345:                  PUSHI  #0x00000000
23776 @ 201350:                  JUMPIF = L_0007

  3867                 FROM123(HEAD,I,J,K);     ! FOR ONE THAT IS IDENTICAL
23777 @ 201354:                  LINE   3867 "regression-compile-tmp/imp918s.imp"
23778 @ 201392:                  PUSH   FROM123
23779 @ 201395:                  PUSH   HEAD
23780 @ 201398:                  ASSPAR
23781 @ 201399:                  PUSH   I
23782 @ 201402:                  ASSPAR
23783 @ 201403:                  PUSH   J
23784 @ 201406:                  ASSPAR
23785 @ 201407:                  PUSH   K
23786 @ 201410:                  ASSPAR
23787 @ 201411:                  CALL  

  3868                 MLINK(HEAD)
23788 @ 201412:                  LINE   3868 "regression-compile-tmp/imp918s.imp"
23789 @ 201450:                  PUSH   MLINK
23790 @ 201453:                  PUSH   HEAD
23791 @ 201456:                  ASSPAR
23792 @ 201457:                  CALL  

  3869                 %IF I=W1 %AND K=ELSIZE %THEN %RESULT=J
23793 @ 201458:                  LINE   3869 "regression-compile-tmp/imp918s.imp"
23794 @ 201496:                  PUSH   I
23795 @ 201499:                  PUSH   W1
23796 @ 201502:                  JUMPIF # L_000a
23797 @ 201506:                  PUSH   K
23798 @ 201509:                  PUSH   ELSIZE
23799 @ 201512:                  JUMPIF # L_000a
23800 @ 201516:                  PUSH   J
23801 @ 201519:                  RESULT
23802 @ 201520:                  LOCATE L_000a

  3870              %REPEAT
23803 @ 201523:                  LINE   3870 "regression-compile-tmp/imp918s.imp"
23804 @ 201561:                  REPEAT L_0006
23805 @ 201564:                  LOCATE L_0007

  3871              PUSH123(DVHEAD,W1,SSTL,ELSIZE);! INSERT NEW DOPE VECR INTO LIST
23806 @ 201567:                  LINE   3871 "regression-compile-tmp/imp918s.imp"
23807 @ 201605:                  PUSH   PUSH123
23808 @ 201608:                  PUSH   DVHEAD
23809 @ 201611:                  ASSPAR
23810 @ 201612:                  PUSH   W1
23811 @ 201615:                  ASSPAR
23812 @ 201616:                  PUSH   SSTL
23813 @ 201619:                  ASSPAR
23814 @ 201620:                  PUSH   ELSIZE
23815 @ 201623:                  ASSPAR
23816 @ 201624:                  CALL  

  3872           %FINISH
23817 @ 201625:                  LINE   3872 "regression-compile-tmp/imp918s.imp"
23818 @ 201663:                  LOCATE L_0004

  3873           RANGE=UB-LB+1
23819 @ 201666:                  LINE   3873 "regression-compile-tmp/imp918s.imp"
23820 @ 201704:                  PUSH   RANGE
23821 @ 201707:                  PUSH   UB
23822 @ 201710:                  PUSH   LB
23823 @ 201713:                  SUB   
23824 @ 201714:                  PUSHI  #0x00000001
23825 @ 201719:                  ADD   
23826 @ 201720:                  ASSVAL

  3874           I=SSTL; ELSIZE=ELSIZE!1<<16
23827 @ 201721:                  LINE   3874 "regression-compile-tmp/imp918s.imp"
23828 @ 201759:                  PUSH   I
23829 @ 201762:                  PUSH   SSTL
23830 @ 201765:                  ASSVAL
23831 @ 201766:                  LINE   3874 "regression-compile-tmp/imp918s.imp"
23832 @ 201804:                  PUSH   ELSIZE
23833 @ 201807:                  PUSH   ELSIZE
23834 @ 201810:                  PUSHI  #0x00000001
23835 @ 201815:                  PUSHI  #0x00000010
23836 @ 201820:                  LSH   
23837 @ 201821:                  OR    
23838 @ 201822:                  ASSVAL

  3875           LPUT(4,16,SSTL,ADDR(ELSIZE))%IF INHCODE=0
23839 @ 201823:                  LINE   3875 "regression-compile-tmp/imp918s.imp"
23840 @ 201861:                  PUSH   INHCODE
23841 @ 201864:                  PUSHI  #0x00000000
23842 @ 201869:                  JUMPIF # L_0004
23843 @ 201873:                  PUSH   LPUT
23844 @ 201876:                  PUSHI  #0x00000004
23845 @ 201881:                  ASSPAR
23846 @ 201882:                  PUSHI  #0x00000010
23847 @ 201887:                  ASSPAR
23848 @ 201888:                  PUSH   SSTL
23849 @ 201891:                  ASSPAR
23850 @ 201892:                  PUSH   ADDR
23851 @ 201895:                  PUSH   ELSIZE
23852 @ 201898:                  ASSPAR
23853 @ 201899:                  CALL  
23854 @ 201900:                  ASSPAR
23855 @ 201901:                  CALL  
23856 @ 201902:                  LOCATE L_0004

  3876           SSTL=SSTL+16
23857 @ 201905:                  LINE   3876 "regression-compile-tmp/imp918s.imp"
23858 @ 201943:                  PUSH   SSTL
23859 @ 201946:                  PUSH   SSTL
23860 @ 201949:                  PUSHI  #0x00000010
23861 @ 201954:                  ADD   
23862 @ 201955:                  ASSVAL

  3877           %RESULT=I
23863 @ 201956:                  LINE   3877 "regression-compile-tmp/imp918s.imp"
23864 @ 201994:                  PUSH   I
23865 @ 201997:                  RESULT

  3878           %END
23866 @ 201998:                  LINE   3878 "regression-compile-tmp/imp918s.imp"
23867 @ 202036:               END    _lev0id0_CSS_DOPEVECTOR {lev=3 --> 2}

  3879  %ROUTINE CLAIM ST FRAME(%INTEGER AT,VALUE)
  3880  {%SHORTROUTINE}
  3881  !***********************************************************************
  3882  !*       FILL THE LA INSTN IT RT ENTRY SEQUENCE TO CLAIM THE STACKFRAME*
  3883  !*       DIFFICULT WHEN THE FRAME IS>4095                              *
  3884  !***********************************************************************
23868 @ 202037:               LINE   3879 "regression-compile-tmp/imp918s.imp"
23869 @ 202075:               DEF    CLAIMSTFRAME (_lev0id0_CSS_CLAIMSTFRAME) p1=V_0202 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
23870 @ 202099:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
23871 @ 202100:                     DEF    AT p1=V_0203 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
23872 @ 202114:                     DEF    VALUE p1=V_0204 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
23873 @ 202131:                  FINISH ) {lev=3}

  3885  %INTEGER PLUG2
23874 @ 202132:                  LINE   3885 "regression-compile-tmp/imp918s.imp"
23875 @ 202170:                  DEF    PLUG2 p1=V_0205 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

  3886           %IF 4096>VALUE %THEN PLUG(1,AT,VALUE) %AND %RETURN
  3887  !
  3888  ! IF THE FRAME IS >4096 THE WHOLE INSTRN IS OVERWRITTEN WITH AN ADD
  3889  !
23876 @ 202187:                  LINE   3886 "regression-compile-tmp/imp918s.imp"
23877 @ 202225:                  PUSHI  #0x00001000
23878 @ 202230:                  PUSH   VALUE
23879 @ 202233:                  JUMPIF <= L_0004
23880 @ 202237:                  PUSH   PLUG
23881 @ 202240:                  PUSHI  #0x00000001
23882 @ 202245:                  ASSPAR
23883 @ 202246:                  PUSH   AT
23884 @ 202249:                  ASSPAR
23885 @ 202250:                  PUSH   VALUE
23886 @ 202253:                  ASSPAR
23887 @ 202254:                  CALL  
23888 @ 202255:                  RETURN
23889 @ 202256:                  LOCATE L_0004

  3890           %IF GLACA<4092 %THEN %START
23890 @ 202259:                  LINE   3890 "regression-compile-tmp/imp918s.imp"
23891 @ 202297:                  PUSH   GLACA
23892 @ 202300:                  PUSHI  #0x00000ffc
23893 @ 202305:                  JUMPIF >= L_0004

  3891              PGLA(2,2,ADDR(VALUE)+2)
23894 @ 202309:                  LINE   3891 "regression-compile-tmp/imp918s.imp"
23895 @ 202347:                  PUSH   PGLA
23896 @ 202350:                  PUSHI  #0x00000002
23897 @ 202355:                  ASSPAR
23898 @ 202356:                  PUSHI  #0x00000002
23899 @ 202361:                  ASSPAR
23900 @ 202362:                  PUSH   ADDR
23901 @ 202365:                  PUSH   VALUE
23902 @ 202368:                  ASSPAR
23903 @ 202369:                  CALL  
23904 @ 202370:                  PUSHI  #0x00000002
23905 @ 202375:                  ADD   
23906 @ 202376:                  ASSPAR
23907 @ 202377:                  CALL  

  3892              PLUG2=X'D000'!(GLACA-2)
23908 @ 202378:                  LINE   3892 "regression-compile-tmp/imp918s.imp"
23909 @ 202416:                  PUSH   PLUG2
23910 @ 202419:                  PUSHI  #0x0000d000
23911 @ 202424:                  PUSH   GLACA
23912 @ 202427:                  PUSHI  #0x00000002
23913 @ 202432:                  SUB   
23914 @ 202433:                  OR    
23915 @ 202434:                  ASSVAL

  3893           %FINISH %ELSE PLUG2=X'C000'!(PTBASE+6+VALUE>>12<<2)
23916 @ 202435:                  LINE   3893 "regression-compile-tmp/imp918s.imp"
23917 @ 202473:                  GOTO   L_0003
23918 @ 202476:                  LOCATE L_0004
23919 @ 202479:                  PUSH   PLUG2
23920 @ 202482:                  PUSHI  #0x0000c000
23921 @ 202487:                  PUSHI  #0x00000100
23922 @ 202492:                  PUSHI  #0x00000006
23923 @ 202497:                  ADD   
23924 @ 202498:                  PUSH   VALUE
23925 @ 202501:                  PUSHI  #0x0000000c
23926 @ 202506:                  RSH   
23927 @ 202507:                  PUSHI  #0x00000002
23928 @ 202512:                  LSH   
23929 @ 202513:                  ADD   
23930 @ 202514:                  OR    
23931 @ 202515:                  ASSVAL
23932 @ 202516:                  LOCATE L_0003

  3894           PLUG(1,AT-2,X'4AB0')
23933 @ 202519:                  LINE   3894 "regression-compile-tmp/imp918s.imp"
23934 @ 202557:                  PUSH   PLUG
23935 @ 202560:                  PUSHI  #0x00000001
23936 @ 202565:                  ASSPAR
23937 @ 202566:                  PUSH   AT
23938 @ 202569:                  PUSHI  #0x00000002
23939 @ 202574:                  SUB   
23940 @ 202575:                  ASSPAR
23941 @ 202576:                  PUSHI  #0x00004ab0
23942 @ 202581:                  ASSPAR
23943 @ 202582:                  CALL  

  3895           PLUG(1,AT,PLUG2)
23944 @ 202583:                  LINE   3895 "regression-compile-tmp/imp918s.imp"
23945 @ 202621:                  PUSH   PLUG
23946 @ 202624:                  PUSHI  #0x00000001
23947 @ 202629:                  ASSPAR
23948 @ 202630:                  PUSH   AT
23949 @ 202633:                  ASSPAR
23950 @ 202634:                  PUSH   PLUG2
23951 @ 202637:                  ASSPAR
23952 @ 202638:                  CALL  

  3896  %END
23953 @ 202639:                  LINE   3896 "regression-compile-tmp/imp918s.imp"
23954 @ 202677:               END    _lev0id0_CSS_CLAIMSTFRAME {lev=3 --> 2}

  3897           %ROUTINE CEND (%INTEGER KKK)
  3898  !***********************************************************************
  3899  !*       DEAL WITH ALL OCCURENCES OF '%END'                            *
  3900  !*       KKK=PTYPE(>=10000) FOR ROUTINES,FNS AND MAPS                  *
  3901  !*       KKK=0 FOR ENDS OF '%BEGIN' BLOCKS                             *
  3902  !*       KKK=1 FOR '%ENDOFPROGRAM'                                     *
  3903  !*       %ENDOFPROGRAM IS REALLY TWO ENDS. THE FIRST IS THE USERS      *
  3904  !*       AND THE SECOND IS PERMS. KKK=2 FOR A RECURSIVE CALL OF CEND   *
  3905  !*       ON END OF PROGRAM TO DEAL WITH THE %END CORRESPONDING TO      *
  3906  !*       THE %BEGIN COMPILED IN THE INITIALISATION SEQUENCE            *
  3907  !***********************************************************************
  3908           {%SHORT %ROUTINE}
23955 @ 202678:               LINE   3897 "regression-compile-tmp/imp918s.imp"
23956 @ 202716:               DEF    CEND (_lev0id0_CSS_CEND) p1=V_0169 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
23957 @ 202732:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
23958 @ 202733:                     DEF    KKK p1=V_0203 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
23959 @ 202748:                  FINISH ) {lev=3}

  3909           %INTEGER KP
23960 @ 202749:                  LINE   3909 "regression-compile-tmp/imp918s.imp"
23961 @ 202787:                  DEF    KP p1=V_0204 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

  3910           %SHORTINTEGERNAME THEAD
23962 @ 202801:                  LINE   3910 "regression-compile-tmp/imp918s.imp"
23963 @ 202839:                  DEF    THEAD p1=V_0205 a/tf=12 b/format=3 c/ostate=0  type=1 (integer) form=2 (name) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0

  3911           %ROUTINESPEC DTABLE(%INTEGER LEVEL,GLOBAL)
23964 @ 202856:                  LINE   3911 "regression-compile-tmp/imp918s.imp"
23965 @ 202894:                  DEF    DTABLE (_lev0id0_CSS_CEND_DTABLE) p1=V_0206 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
23966 @ 202912:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
23967 @ 202913:                     DEF    LEVEL p1=V_0207 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
23968 @ 202930:                     DEF    GLOBAL p1=V_0208 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
23969 @ 202948:                  FINISH ) {lev=3}

  3912           SET LINE; MONE=1; FORGETM(14)
23970 @ 202949:                  LINE   3912 "regression-compile-tmp/imp918s.imp"
23971 @ 202987:                  PUSH   SETLINE
23972 @ 202990:                  CALL  
23973 @ 202991:                  LINE   3912 "regression-compile-tmp/imp918s.imp"
23974 @ 203029:                  PUSH   MONE
23975 @ 203032:                  PUSHI  #0x00000001
23976 @ 203037:                  ASSVAL
23977 @ 203038:                  LINE   3912 "regression-compile-tmp/imp918s.imp"
23978 @ 203076:                  PUSH   FORGETM
23979 @ 203079:                  PUSHI  #0x0000000e
23980 @ 203084:                  ASSPAR
23981 @ 203085:                  CALL  

  3913           CUR CYC VAR=0; CCSTATE=-1
  3914  !
  3915  ! FIRST CHECK FOR ANY '%STARTS' WITHOUT FINISHES
  3916  !
23982 @ 203086:                  LINE   3913 "regression-compile-tmp/imp918s.imp"
23983 @ 203124:                  PUSH   CURCYCVAR
23984 @ 203127:                  PUSHI  #0x00000000
23985 @ 203132:                  ASSVAL
23986 @ 203133:                  LINE   3913 "regression-compile-tmp/imp918s.imp"
23987 @ 203171:                  PUSH   CCSTATE
23988 @ 203174:                  PUSHI  #0x00000001
23989 @ 203179:                  NEGATE
23990 @ 203180:                  ASSVAL

  3917           %WHILE SBR(LEVEL)#0 %CYCLE
23991 @ 203181:                  LINE   3917 "regression-compile-tmp/imp918s.imp"
23992 @ 203219:                  LOCATE L_0003
23993 @ 203222:                  PUSH   SBR
23994 @ 203225:                  PUSH   LEVEL
23995 @ 203228:                  ACCESS
23996 @ 203229:                  PUSHI  #0x00000000
23997 @ 203234:                  JUMPIF = L_0004

  3918              FROM12 (SBR(LEVEL),J,KP)
23998 @ 203238:                  LINE   3918 "regression-compile-tmp/imp918s.imp"
23999 @ 203276:                  PUSH   FROM12
24000 @ 203279:                  PUSH   SBR
24001 @ 203282:                  PUSH   LEVEL
24002 @ 203285:                  ACCESS
24003 @ 203286:                  ASSPAR
24004 @ 203287:                  PUSH   J
24005 @ 203290:                  ASSPAR
24006 @ 203291:                  PUSH   KP
24007 @ 203294:                  ASSPAR
24008 @ 203295:                  CALL  

  3919              FAULT(53,0);               ! FINISH MISSING
24009 @ 203296:                  LINE   3919 "regression-compile-tmp/imp918s.imp"
24010 @ 203334:                  PUSH   FAULT
24011 @ 203337:                  PUSHI  #0x00000035
24012 @ 203342:                  ASSPAR
24013 @ 203343:                  PUSHI  #0x00000000
24014 @ 203348:                  ASSPAR
24015 @ 203349:                  CALL  

  3920              A(2)=14; A(3)=3; CSS(2,0); ! SO COMPILE IT IN
24016 @ 203350:                  LINE   3920 "regression-compile-tmp/imp918s.imp"
24017 @ 203388:                  PUSH   A
24018 @ 203391:                  PUSHI  #0x00000002
24019 @ 203396:                  ACCESS
24020 @ 203397:                  PUSHI  #0x0000000e
24021 @ 203402:                  ASSVAL
24022 @ 203403:                  LINE   3920 "regression-compile-tmp/imp918s.imp"
24023 @ 203441:                  PUSH   A
24024 @ 203444:                  PUSHI  #0x00000003
24025 @ 203449:                  ACCESS
24026 @ 203450:                  PUSHI  #0x00000003
24027 @ 203455:                  ASSVAL
24028 @ 203456:                  LINE   3920 "regression-compile-tmp/imp918s.imp"
24029 @ 203494:                  PUSH   CSS
24030 @ 203497:                  PUSHI  #0x00000002
24031 @ 203502:                  ASSPAR
24032 @ 203503:                  PUSHI  #0x00000000
24033 @ 203508:                  ASSPAR
24034 @ 203509:                  CALL  

  3921           %REPEAT
  3922  !
  3923  ! NOW PLANT AN ERROR EXIT FOR FNS AND MAPS - CONTROL SHOULD BE RETURNED
  3924  ! VIA %RESULT= AN SHOULD NEVVER REACH THE %END INSTRUCTION
  3925  !
24035 @ 203510:                  LINE   3921 "regression-compile-tmp/imp918s.imp"
24036 @ 203548:                  REPEAT L_0003
24037 @ 203551:                  LOCATE L_0004

  3926           %IF KKK>10000 %AND COMPILER=0 %AND LAST INST=0 %THEN %START
24038 @ 203554:                  LINE   3926 "regression-compile-tmp/imp918s.imp"
24039 @ 203592:                  PUSH   KKK
24040 @ 203595:                  PUSHI  #0x00002710
24041 @ 203600:                  JUMPIF <= L_0004
24042 @ 203604:                  PUSH   COMPILER
24043 @ 203607:                  PUSHI  #0x00000000
24044 @ 203612:                  JUMPIF # L_0004
24045 @ 203616:                  PUSH   LASTINST
24046 @ 203619:                  PUSHI  #0x00000000
24047 @ 203624:                  JUMPIF # L_0004

  3927              PCONST(X'4100000B');       ! LA 0,11
24048 @ 203628:                  LINE   3927 "regression-compile-tmp/imp918s.imp"
24049 @ 203666:                  PUSH   PCONST
24050 @ 203669:                  PUSHI  #0x4100000b
24051 @ 203674:                  ASSPAR
24052 @ 203675:                  CALL  

  3928              PPJ(21);                   ! RUN FAULT 11
24053 @ 203676:                  LINE   3928 "regression-compile-tmp/imp918s.imp"
24054 @ 203714:                  PUSH   PPJ
24055 @ 203717:                  PUSHI  #0x00000015
24056 @ 203722:                  ASSPAR
24057 @ 203723:                  CALL  

  3929           %FINISH
24058 @ 203724:                  LINE   3929 "regression-compile-tmp/imp918s.imp"
24059 @ 203762:                  LOCATE L_0004

  3930           NMAX=N %IF N>NMAX;            ! WORK SPACE POINTER
  3931  !
  3932  ! CLEAR OUT THE LABEL LIST FAULTING LABELS WITH JUMPS OUTSTANDING
  3933  ! AS NOT SET AND COMMENTING ON LABELS NOT USED
  3934  !
24060 @ 203765:                  LINE   3930 "regression-compile-tmp/imp918s.imp"
24061 @ 203803:                  PUSH   N
24062 @ 203806:                  PUSH   NMAX
24063 @ 203809:                  JUMPIF <= L_0004
24064 @ 203813:                  PUSH   NMAX
24065 @ 203816:                  PUSH   N
24066 @ 203819:                  ASSVAL
24067 @ 203820:                  LOCATE L_0004

  3935           %WHILE LABEL(LEVEL)#0 %CYCLE
24068 @ 203823:                  LINE   3935 "regression-compile-tmp/imp918s.imp"
24069 @ 203861:                  LOCATE L_0003
24070 @ 203864:                  PUSH   LABEL
24071 @ 203867:                  PUSH   LEVEL
24072 @ 203870:                  ACCESS
24073 @ 203871:                  PUSHI  #0x00000000
24074 @ 203876:                  JUMPIF = L_0004

  3936              POP123(LABEL(LEVEL),I,J,KP)
24075 @ 203880:                  LINE   3936 "regression-compile-tmp/imp918s.imp"
24076 @ 203918:                  PUSH   POP123
24077 @ 203921:                  PUSH   LABEL
24078 @ 203924:                  PUSH   LEVEL
24079 @ 203927:                  ACCESS
24080 @ 203928:                  ASSPAR
24081 @ 203929:                  PUSH   I
24082 @ 203932:                  ASSPAR
24083 @ 203933:                  PUSH   J
24084 @ 203936:                  ASSPAR
24085 @ 203937:                  PUSH   KP
24086 @ 203940:                  ASSPAR
24087 @ 203941:                  CALL  

  3937              I=I>>24
24088 @ 203942:                  LINE   3937 "regression-compile-tmp/imp918s.imp"
24089 @ 203980:                  PUSH   I
24090 @ 203983:                  PUSH   I
24091 @ 203986:                  PUSHI  #0x00000018
24092 @ 203991:                  RSH   
24093 @ 203992:                  ASSVAL

  3938              %IF J&X'FFFF'#0 %THEN %START
24094 @ 203993:                  LINE   3938 "regression-compile-tmp/imp918s.imp"
24095 @ 204031:                  PUSH   J
24096 @ 204034:                  PUSHI  #0x0000ffff
24097 @ 204039:                  AND   
24098 @ 204040:                  PUSHI  #0x00000000
24099 @ 204045:                  JUMPIF = L_0007

  3939                 CLEAR LIST(SHORT INTEGER(ADDR(J)+2))
24100 @ 204049:                  LINE   3939 "regression-compile-tmp/imp918s.imp"
24101 @ 204087:                  PUSH   CLEARLIST
24102 @ 204090:                  PUSH   SHORTINTEGER
24103 @ 204093:                  PUSH   ADDR
24104 @ 204096:                  PUSH   J
24105 @ 204099:                  ASSPAR
24106 @ 204100:                  CALL  
24107 @ 204101:                  PUSHI  #0x00000002
24108 @ 204106:                  ADD   
24109 @ 204107:                  ASSPAR
24110 @ 204108:                  CALL  
24111 @ 204109:                  ASSPAR
24112 @ 204110:                  CALL  

  3940                 %IF 0<KP<=MAX ULAB %THEN FAULT(11,-KP)
24113 @ 204111:                  LINE   3940 "regression-compile-tmp/imp918s.imp"
24114 @ 204149:                  PUSHI  #0x00000000
24115 @ 204154:                  PUSH   KP
24116 @ 204157:                  JUMPIFD >= L_000a
24117 @ 204161:                  PUSH   MAXULAB
24118 @ 204164:                  JUMPIF > L_000a
24119 @ 204168:                  PUSH   FAULT
24120 @ 204171:                  PUSHI  #0x0000000b
24121 @ 204176:                  ASSPAR
24122 @ 204177:                  PUSH   KP
24123 @ 204180:                  NEGATE
24124 @ 204181:                  ASSPAR
24125 @ 204182:                  CALL  
24126 @ 204183:                  LOCATE L_000a

  3941              %FINISH %ELSE %START
24127 @ 204186:                  LINE   3941 "regression-compile-tmp/imp918s.imp"
24128 @ 204224:                  GOTO   L_0006
24129 @ 204227:                  LOCATE L_0007

  3942                 %IF I=0 %AND KP<MAX ULAB %THEN printstring("
  3943  ?  UNUSED LABEL") %AND PRINTNAME(-KP)
24130 @ 204230:                  LINE   3942 "regression-compile-tmp/imp918s.imp"
24131 @ 204268:                  PUSH   I
24132 @ 204271:                  PUSHI  #0x00000000
24133 @ 204276:                  JUMPIF # L_000a
24134 @ 204280:                  PUSH   KP
24135 @ 204283:                  PUSH   MAXULAB
24136 @ 204286:                  JUMPIF >= L_000a
24137 @ 204290:                  PUSH   PRINTSTRING
24138 @ 204293:                  PUSHS  "\n?  UNUSED LABEL"
24139 @ 204311:                  ASSPAR
24140 @ 204312:                  CALL  
24141 @ 204313:                  PUSH   PRINTNAME
24142 @ 204316:                  PUSH   KP
24143 @ 204319:                  NEGATE
24144 @ 204320:                  ASSPAR
24145 @ 204321:                  CALL  
24146 @ 204322:                  LOCATE L_000a

  3944              %FINISH
24147 @ 204325:                  LINE   3944 "regression-compile-tmp/imp918s.imp"
24148 @ 204363:                  LOCATE L_0006

  3945           %REPEAT
  3946  !
24149 @ 204366:                  LINE   3945 "regression-compile-tmp/imp918s.imp"
24150 @ 204404:                  REPEAT L_0003
24151 @ 204407:                  LOCATE L_0004

  3947           %CYCLE J=0,1,6
24152 @ 204410:                  LINE   3947 "regression-compile-tmp/imp918s.imp"
24153 @ 204448:                  PUSH   J
24154 @ 204451:                  PUSHI  #0x00000001
24155 @ 204456:                  PUSHI  #0x00000006
24156 @ 204461:                  PUSHI  #0x00000000
24157 @ 204466:                  FOR    L_0003

  3948              THEAD==AVL WSP(J,LEVEL);     ! RELEASE TEMPORARY LOCATIONS
24158 @ 204469:                  LINE   3948 "regression-compile-tmp/imp918s.imp"
24159 @ 204507:                  PUSH   THEAD
24160 @ 204510:                  PUSH   AVLWSP
24161 @ 204513:                  PUSH   J
24162 @ 204516:                  INDEX 
24163 @ 204517:                  PUSH   LEVEL
24164 @ 204520:                  ACCESS
24165 @ 204521:                  ASSREF

  3949              %IF THEAD#0 %THEN CLEAR LIST(THEAD)
24166 @ 204522:                  LINE   3949 "regression-compile-tmp/imp918s.imp"
24167 @ 204560:                  PUSH   THEAD
24168 @ 204563:                  PUSHI  #0x00000000
24169 @ 204568:                  JUMPIF = L_0007
24170 @ 204572:                  PUSH   CLEARLIST
24171 @ 204575:                  PUSH   THEAD
24172 @ 204578:                  ASSPAR
24173 @ 204579:                  CALL  
24174 @ 204580:                  LOCATE L_0007

  3950           %REPEAT
  3951  !
24175 @ 204583:                  LINE   3950 "regression-compile-tmp/imp918s.imp"
24176 @ 204621:                  REPEAT L_0003
24177 @ 204624:                  LOCATE L_0004

  3952           DTABLE(LEVEL,0);              ! OUTPUT DIAGNOSTIC TABLES
  3953  !
  3954  ! CLEAR DECLARATIONS - POP UP ANY GLOBAL NAMES THAT WERE REDECLARED
  3955  ! DESTROY SIDE CHAINS FOR ROUTINES,FORMATS AND SWITCHES
  3956  !
24178 @ 204627:                  LINE   3952 "regression-compile-tmp/imp918s.imp"
24179 @ 204665:                  PUSH   DTABLE
24180 @ 204668:                  PUSH   LEVEL
24181 @ 204671:                  ASSPAR
24182 @ 204672:                  PUSHI  #0x00000000
24183 @ 204677:                  ASSPAR
24184 @ 204678:                  CALL  

  3957           JJ=NAMES(LEVEL)
24185 @ 204679:                  LINE   3957 "regression-compile-tmp/imp918s.imp"
24186 @ 204717:                  PUSH   JJ
24187 @ 204720:                  PUSH   NAMES
24188 @ 204723:                  PUSH   LEVEL
24189 @ 204726:                  ACCESS
24190 @ 204727:                  ASSVAL

  3958           %WHILE JJ>=0 %CYCLE
  3959                                      ! FIND A LOCAL NAME
24191 @ 204728:                  LINE   3958 "regression-compile-tmp/imp918s.imp"
24192 @ 204766:                  LOCATE L_0003
24193 @ 204769:                  PUSH   JJ
24194 @ 204772:                  PUSHI  #0x00000000
24195 @ 204777:                  JUMPIF < L_0004

  3960              I=SHORTINTEGER(ADDR(ASLIST(TAGS(JJ)))+12)
24196 @ 204781:                  LINE   3960 "regression-compile-tmp/imp918s.imp"
24197 @ 204819:                  PUSH   I
24198 @ 204822:                  PUSH   SHORTINTEGER
24199 @ 204825:                  PUSH   ADDR
24200 @ 204828:                  PUSH   ASLIST
24201 @ 204831:                  PUSH   TAGS
24202 @ 204834:                  PUSH   JJ
24203 @ 204837:                  ACCESS
24204 @ 204838:                  ACCESS
24205 @ 204839:                  ASSPAR
24206 @ 204840:                  CALL  
24207 @ 204841:                  PUSHI  #0x0000000c
24208 @ 204846:                  ADD   
24209 @ 204847:                  ASSPAR
24210 @ 204848:                  CALL  
24211 @ 204849:                  ASSVAL

  3961              POP123(TAGS(JJ),KK,INTEGER(ADDR(SNDISP)),INTEGER(ADDR(K)))
24212 @ 204850:                  LINE   3961 "regression-compile-tmp/imp918s.imp"
24213 @ 204888:                  PUSH   POP123
24214 @ 204891:                  PUSH   TAGS
24215 @ 204894:                  PUSH   JJ
24216 @ 204897:                  ACCESS
24217 @ 204898:                  ASSPAR
24218 @ 204899:                  PUSH   KK
24219 @ 204902:                  ASSPAR
24220 @ 204903:                  PUSH   INTEGER
24221 @ 204906:                  PUSH   ADDR
24222 @ 204909:                  PUSH   SNDISP
24223 @ 204912:                  ASSPAR
24224 @ 204913:                  CALL  
24225 @ 204914:                  ASSPAR
24226 @ 204915:                  CALL  
24227 @ 204916:                  ASSPAR
24228 @ 204917:                  PUSH   INTEGER
24229 @ 204920:                  PUSH   ADDR
24230 @ 204923:                  PUSH   K
24231 @ 204926:                  ASSPAR
24232 @ 204927:                  CALL  
24233 @ 204928:                  ASSPAR
24234 @ 204929:                  CALL  
24235 @ 204930:                  ASSPAR
24236 @ 204931:                  CALL  

  3962              PTYPE=KK>>16
24237 @ 204932:                  LINE   3962 "regression-compile-tmp/imp918s.imp"
24238 @ 204970:                  PUSH   PTYPE
24239 @ 204973:                  PUSH   KK
24240 @ 204976:                  PUSHI  #0x00000010
24241 @ 204981:                  RSH   
24242 @ 204982:                  ASSVAL

  3963              %IF PTYPE =8 %THEN REGISTER(K)=0 %AND UVARREG(K)=0
24243 @ 204983:                  LINE   3963 "regression-compile-tmp/imp918s.imp"
24244 @ 205021:                  PUSH   PTYPE
24245 @ 205024:                  PUSHI  #0x00000008
24246 @ 205029:                  JUMPIF # L_0007
24247 @ 205033:                  PUSH   REGISTER
24248 @ 205036:                  PUSH   K
24249 @ 205039:                  ACCESS
24250 @ 205040:                  PUSHI  #0x00000000
24251 @ 205045:                  ASSVAL
24252 @ 205046:                  PUSH   UVARREG
24253 @ 205049:                  PUSH   K
24254 @ 205052:                  ACCESS
24255 @ 205053:                  PUSHI  #0x00000000
24256 @ 205058:                  ASSVAL
24257 @ 205059:                  LOCATE L_0007

  3964              %IF KK&15=15 %THEN FAULT(28,JJ);! SPEC BUT NO BODY GIVEN
24258 @ 205062:                  LINE   3964 "regression-compile-tmp/imp918s.imp"
24259 @ 205100:                  PUSH   KK
24260 @ 205103:                  PUSHI  #0x0000000f
24261 @ 205108:                  AND   
24262 @ 205109:                  PUSHI  #0x0000000f
24263 @ 205114:                  JUMPIF # L_0007
24264 @ 205118:                  PUSH   FAULT
24265 @ 205121:                  PUSHI  #0x0000001c
24266 @ 205126:                  ASSPAR
24267 @ 205127:                  PUSH   JJ
24268 @ 205130:                  ASSPAR
24269 @ 205131:                  CALL  
24270 @ 205132:                  LOCATE L_0007

  3965              %IF PTYPE>=10000 %OR PTYPE=4 %OR PTYPE=106 %OR %C
  3966                 PTYPE=126 %THEN CLEAR LIST(K)
24271 @ 205135:                  LINE   3965 "regression-compile-tmp/imp918s.imp"
24272 @ 205173:                  PUSH   PTYPE
24273 @ 205176:                  PUSHI  #0x00002710
24274 @ 205181:                  JUMPIF >= L_0008
24275 @ 205185:                  PUSH   PTYPE
24276 @ 205188:                  PUSHI  #0x00000004
24277 @ 205193:                  JUMPIF = L_0008
24278 @ 205197:                  PUSH   PTYPE
24279 @ 205200:                  PUSHI  #0x0000006a
24280 @ 205205:                  JUMPIF = L_0008
24281 @ 205209:                  PUSH   PTYPE
24282 @ 205212:                  PUSHI  #0x0000007e
24283 @ 205217:                  JUMPIF # L_0007
24284 @ 205221:                  LOCATE L_0008
24285 @ 205224:                  PUSH   CLEARLIST
24286 @ 205227:                  PUSH   K
24287 @ 205230:                  ASSPAR
24288 @ 205231:                  CALL  
24289 @ 205232:                  LOCATE L_0007

  3967              JJ=I
24290 @ 205235:                  LINE   3967 "regression-compile-tmp/imp918s.imp"
24291 @ 205273:                  PUSH   JJ
24292 @ 205276:                  PUSH   I
24293 @ 205279:                  ASSVAL

  3968           %REPEAT
24294 @ 205280:                  LINE   3968 "regression-compile-tmp/imp918s.imp"
24295 @ 205318:                  REPEAT L_0003
24296 @ 205321:                  LOCATE L_0004

  3969           NAMES(LEVEL)=-1
24297 @ 205324:                  LINE   3969 "regression-compile-tmp/imp918s.imp"
24298 @ 205362:                  PUSH   NAMES
24299 @ 205365:                  PUSH   LEVEL
24300 @ 205368:                  ACCESS
24301 @ 205369:                  PUSHI  #0x00000001
24302 @ 205374:                  NEGATE
24303 @ 205375:                  ASSVAL

  3970           %IF LEVEL=2 %THEN DTABLE(1,1); ! DO GLOBALS TO EXTERNALRTS
  3971  !
  3972  ! CHECK FOR MISSING REPEATS
  3973  !
24304 @ 205376:                  LINE   3970 "regression-compile-tmp/imp918s.imp"
24305 @ 205414:                  PUSH   LEVEL
24306 @ 205417:                  PUSHI  #0x00000002
24307 @ 205422:                  JUMPIF # L_0004
24308 @ 205426:                  PUSH   DTABLE
24309 @ 205429:                  PUSHI  #0x00000001
24310 @ 205434:                  ASSPAR
24311 @ 205435:                  PUSHI  #0x00000001
24312 @ 205440:                  ASSPAR
24313 @ 205441:                  CALL  
24314 @ 205442:                  LOCATE L_0004

  3974         %WHILE CYCLE(LEVEL)#0 %THEN FAULT(13,0)%AND POP(CYCLE(LEVEL),I,I)
  3975  !
  3976  ! REMOVE TEXT OF ANY LOCAL NAMES FROM WORD AND LETT
  3977  !
24315 @ 205445:                  LINE   3974 "regression-compile-tmp/imp918s.imp"
24316 @ 205483:                  LOCATE L_0003
24317 @ 205486:                  PUSH   CYCLE
24318 @ 205489:                  PUSH   LEVEL
24319 @ 205492:                  ACCESS
24320 @ 205493:                  PUSHI  #0x00000000
24321 @ 205498:                  JUMPIF = L_0004
24322 @ 205502:                  PUSH   FAULT
24323 @ 205505:                  PUSHI  #0x0000000d
24324 @ 205510:                  ASSPAR
24325 @ 205511:                  PUSHI  #0x00000000
24326 @ 205516:                  ASSPAR
24327 @ 205517:                  CALL  
24328 @ 205518:                  PUSH   POP
24329 @ 205521:                  PUSH   CYCLE
24330 @ 205524:                  PUSH   LEVEL
24331 @ 205527:                  ACCESS
24332 @ 205528:                  ASSPAR
24333 @ 205529:                  PUSH   I
24334 @ 205532:                  ASSPAR
24335 @ 205533:                  PUSH   I
24336 @ 205536:                  ASSPAR
24337 @ 205537:                  CALL  
24338 @ 205538:                  REPEAT L_0003
24339 @ 205541:                  LOCATE L_0004

  3978           %IF NEXT#RNEXT %THEN %START
24340 @ 205544:                  LINE   3978 "regression-compile-tmp/imp918s.imp"
24341 @ 205582:                  PUSH   NEXT
24342 @ 205585:                  PUSH   RNEXT
24343 @ 205588:                  JUMPIF = L_0004

  3979              NEXT=RNEXT
  3980  !            %CYCLE I=0,1,NNAMES
  3981  !               WORD(I)=0 %IF WORD(I)>=NEXT
  3982  !            %REPEAT
  3983  !%if USE MC = 1 %start
  3984  !            *L_0,NEXT; *SR_15,15; *SR_1,1; *LA_2,2
  3985  !            *L_3,NNAMES; *AR_3,3; *L_4,WORD
  3986  !AGN:        *CH_0,0(1,4); *BC_2,*+8
  3987  !            *STH_15,0(1,4); *BXLE_1,2,<AGN>
  3988  !%finish
24344 @ 205592:                  LINE   3979 "regression-compile-tmp/imp918s.imp"
24345 @ 205630:                  PUSH   NEXT
24346 @ 205633:                  PUSH   RNEXT
24347 @ 205636:                  ASSVAL

  3989           %FINISH
  3990  !
  3991  ! NOW CLAIM THE STACK FRAME BY FILING THE LA 11,0(11) IN THE BLOCK ENTRY
  3992  ! CODING. IF MORE THAN 4095 BYTES OF LOCAL VARIABLES ARE NEEDED THEN
  3993  ! THE WHOLE INSTRUCTION MUST BE OVERWRITTEN
  3994  !
24348 @ 205637:                  LINE   3989 "regression-compile-tmp/imp918s.imp"
24349 @ 205675:                  LOCATE L_0004

  3995           NMAX=(NMAX+7)&(-8)
24350 @ 205678:                  LINE   3995 "regression-compile-tmp/imp918s.imp"
24351 @ 205716:                  PUSH   NMAX
24352 @ 205719:                  PUSH   NMAX
24353 @ 205722:                  PUSHI  #0x00000007
24354 @ 205727:                  ADD   
24355 @ 205728:                  PUSHI  #0x00000008
24356 @ 205733:                  NEGATE
24357 @ 205734:                  AND   
24358 @ 205735:                  ASSVAL

  3996           %IF KKK=2 %THEN %RETURN
24359 @ 205736:                  LINE   3996 "regression-compile-tmp/imp918s.imp"
24360 @ 205774:                  PUSH   KKK
24361 @ 205777:                  PUSHI  #0x00000002
24362 @ 205782:                  JUMPIF # L_0004
24363 @ 205786:                  RETURN
24364 @ 205787:                  LOCATE L_0004

  3997           %IF KKK>=10000 %OR KKK=1 %THEN CLAIM ST FRAME(SET(RLEVEL),NMAX)
  3998  !
  3999  ! NOW PLANT THE BLOCK EXIT SEQUENCE
  4000  !
24365 @ 205790:                  LINE   3997 "regression-compile-tmp/imp918s.imp"
24366 @ 205828:                  PUSH   KKK
24367 @ 205831:                  PUSHI  #0x00002710
24368 @ 205836:                  JUMPIF >= L_0005
24369 @ 205840:                  PUSH   KKK
24370 @ 205843:                  PUSHI  #0x00000001
24371 @ 205848:                  JUMPIF # L_0004
24372 @ 205852:                  LOCATE L_0005
24373 @ 205855:                  PUSH   CLAIMSTFRAME
24374 @ 205858:                  PUSH   SET
24375 @ 205861:                  PUSH   RLEVEL
24376 @ 205864:                  ACCESS
24377 @ 205865:                  ASSPAR
24378 @ 205866:                  PUSH   NMAX
24379 @ 205869:                  ASSPAR
24380 @ 205870:                  CALL  
24381 @ 205871:                  LOCATE L_0004

  4001           %IF KKK=10000 %AND LAST INST=0 %THEN RT EXIT
24382 @ 205874:                  LINE   4001 "regression-compile-tmp/imp918s.imp"
24383 @ 205912:                  PUSH   KKK
24384 @ 205915:                  PUSHI  #0x00002710
24385 @ 205920:                  JUMPIF # L_0004
24386 @ 205924:                  PUSH   LASTINST
24387 @ 205927:                  PUSHI  #0x00000000
24388 @ 205932:                  JUMPIF # L_0004
24389 @ 205936:                  PUSH   RTEXIT
24390 @ 205939:                  CALL  
24391 @ 205940:                  LOCATE L_0004

  4002           PPJ(6) %IF KKK=1 %AND LAST INST=0;! %STOP AT %ENDOFPROGRAM
24392 @ 205943:                  LINE   4002 "regression-compile-tmp/imp918s.imp"
24393 @ 205981:                  PUSH   KKK
24394 @ 205984:                  PUSHI  #0x00000001
24395 @ 205989:                  JUMPIF # L_0004
24396 @ 205993:                  PUSH   LASTINST
24397 @ 205996:                  PUSHI  #0x00000000
24398 @ 206001:                  JUMPIF # L_0004
24399 @ 206005:                  PUSH   PPJ
24400 @ 206008:                  PUSHI  #0x00000006
24401 @ 206013:                  ASSPAR
24402 @ 206014:                  CALL  
24403 @ 206015:                  LOCATE L_0004

  4003           %IF KKK=0 %THEN %START;         ! BEGIN BLOCK EXIT
24404 @ 206018:                  LINE   4003 "regression-compile-tmp/imp918s.imp"
24405 @ 206056:                  PUSH   KKK
24406 @ 206059:                  PUSHI  #0x00000000
24407 @ 206064:                  JUMPIF # L_0004

  4004              JJ=FROM2(LEVELINF)&X'FFF';    ! DISP OF SAVE AREA
24408 @ 206068:                  LINE   4004 "regression-compile-tmp/imp918s.imp"
24409 @ 206106:                  PUSH   JJ
24410 @ 206109:                  PUSH   FROM2
24411 @ 206112:                  PUSH   LEVELINF
24412 @ 206115:                  ASSPAR
24413 @ 206116:                  CALL  
24414 @ 206117:                  PUSHI  #0x00000fff
24415 @ 206122:                  AND   
24416 @ 206123:                  ASSVAL

  4005              DUMPM(X'98',10,11,RBASE,JJ);  ! RESTORE R11 & R10
24417 @ 206124:                  LINE   4005 "regression-compile-tmp/imp918s.imp"
24418 @ 206162:                  PUSH   DUMPM
24419 @ 206165:                  PUSHI  #0x00000098
24420 @ 206170:                  ASSPAR
24421 @ 206171:                  PUSHI  #0x0000000a
24422 @ 206176:                  ASSPAR
24423 @ 206177:                  PUSHI  #0x0000000b
24424 @ 206182:                  ASSPAR
24425 @ 206183:                  PUSH   RBASE
24426 @ 206186:                  ASSPAR
24427 @ 206187:                  PUSH   JJ
24428 @ 206190:                  ASSPAR
24429 @ 206191:                  CALL  

  4006              %IF DIAGS1=1 %THEN %START;    ! RESTORE DIAGS POINTERS
24430 @ 206192:                  LINE   4006 "regression-compile-tmp/imp918s.imp"
24431 @ 206230:                  PUSH   DIAGS1
24432 @ 206233:                  PUSHI  #0x00000001
24433 @ 206238:                  JUMPIF # L_0007

  4007                 DUMP(X'58',0,JJ+8,0,RBASE)
24434 @ 206242:                  LINE   4007 "regression-compile-tmp/imp918s.imp"
24435 @ 206280:                  PUSH   DUMP
24436 @ 206283:                  PUSHI  #0x00000058
24437 @ 206288:                  ASSPAR
24438 @ 206289:                  PUSHI  #0x00000000
24439 @ 206294:                  ASSPAR
24440 @ 206295:                  PUSH   JJ
24441 @ 206298:                  PUSHI  #0x00000008
24442 @ 206303:                  ADD   
24443 @ 206304:                  ASSPAR
24444 @ 206305:                  PUSHI  #0x00000000
24445 @ 206310:                  ASSPAR
24446 @ 206311:                  PUSH   RBASE
24447 @ 206314:                  ASSPAR
24448 @ 206315:                  CALL  

  4008                 PRX(X'50',0,0,GLA,20)
24449 @ 206316:                  LINE   4008 "regression-compile-tmp/imp918s.imp"
24450 @ 206354:                  PUSH   PRX
24451 @ 206357:                  PUSHI  #0x00000050
24452 @ 206362:                  ASSPAR
24453 @ 206363:                  PUSHI  #0x00000000
24454 @ 206368:                  ASSPAR
24455 @ 206369:                  PUSHI  #0x00000000
24456 @ 206374:                  ASSPAR
24457 @ 206375:                  PUSHI  #0x0000000d
24458 @ 206380:                  ASSPAR
24459 @ 206381:                  PUSHI  #0x00000014
24460 @ 206386:                  ASSPAR
24461 @ 206387:                  CALL  

  4009                 %FINISH
24462 @ 206388:                  LINE   4009 "regression-compile-tmp/imp918s.imp"
24463 @ 206426:                  LOCATE L_0007

  4010           %FINISH
  4011  !
  4012  ! OUTPUT ANYTHING RELEVANT ONTO THE PROGRAM LISTING
  4013  !
24464 @ 206429:                  LINE   4010 "regression-compile-tmp/imp918s.imp"
24465 @ 206467:                  LOCATE L_0004

  4014           NEWLINE
24466 @ 206470:                  LINE   4014 "regression-compile-tmp/imp918s.imp"
24467 @ 206508:                  PUSH   NEWLINE
24468 @ 206511:                  CALL  

  4015           %IF PRINTMAP=1 %AND  KKK#0 %THEN %START
24469 @ 206512:                  LINE   4015 "regression-compile-tmp/imp918s.imp"
24470 @ 206550:                  PUSH   PRINTMAP
24471 @ 206553:                  PUSHI  #0x00000001
24472 @ 206558:                  JUMPIF # L_0004
24473 @ 206562:                  PUSH   KKK
24474 @ 206565:                  PUSHI  #0x00000000
24475 @ 206570:                  JUMPIF = L_0004

  4016              printstring(" LOCALS EXTEND TO ")
24476 @ 206574:                  LINE   4016 "regression-compile-tmp/imp918s.imp"
24477 @ 206612:                  PUSH   PRINTSTRING
24478 @ 206615:                  PUSHS  " LOCALS EXTEND TO "
24479 @ 206635:                  ASSPAR
24480 @ 206636:                  CALL  

  4017              WRITE(NMAX,2)
24481 @ 206637:                  LINE   4017 "regression-compile-tmp/imp918s.imp"
24482 @ 206675:                  PUSH   WRITE
24483 @ 206678:                  PUSH   NMAX
24484 @ 206681:                  ASSPAR
24485 @ 206682:                  PUSHI  #0x00000002
24486 @ 206687:                  ASSPAR
24487 @ 206688:                  CALL  

  4018              NEWLINE
  4019  !            CHECK ASL
24488 @ 206689:                  LINE   4018 "regression-compile-tmp/imp918s.imp"
24489 @ 206727:                  PUSH   NEWLINE
24490 @ 206730:                  CALL  

  4020           %FINISH
24491 @ 206731:                  LINE   4020 "regression-compile-tmp/imp918s.imp"
24492 @ 206769:                  LOCATE L_0004

  4021           %IF LIST=0 %THEN %START;    ! SHORT LISTING REQD
24493 @ 206772:                  LINE   4021 "regression-compile-tmp/imp918s.imp"
24494 @ 206810:                  PUSH   LIST
24495 @ 206813:                  PUSHI  #0x00000000
24496 @ 206818:                  JUMPIF # L_0004

  4022              WRITE(LINE,5)
24497 @ 206822:                  LINE   4022 "regression-compile-tmp/imp918s.imp"
24498 @ 206860:                  PUSH   WRITE
24499 @ 206863:                  PUSH   LINE
24500 @ 206866:                  ASSPAR
24501 @ 206867:                  PUSHI  #0x00000005
24502 @ 206872:                  ASSPAR
24503 @ 206873:                  CALL  

  4023              %IF PRINTMAP=1 %THEN SPACES(3) %AND PRHEX(CA,5)
24504 @ 206874:                  LINE   4023 "regression-compile-tmp/imp918s.imp"
24505 @ 206912:                  PUSH   PRINTMAP
24506 @ 206915:                  PUSHI  #0x00000001
24507 @ 206920:                  JUMPIF # L_0007
24508 @ 206924:                  PUSH   SPACES
24509 @ 206927:                  PUSHI  #0x00000003
24510 @ 206932:                  ASSPAR
24511 @ 206933:                  CALL  
24512 @ 206934:                  PUSH   PRHEX
24513 @ 206937:                  PUSH   CA
24514 @ 206940:                  ASSPAR
24515 @ 206941:                  PUSHI  #0x00000005
24516 @ 206946:                  ASSPAR
24517 @ 206947:                  CALL  
24518 @ 206948:                  LOCATE L_0007

  4024              SPACES(3*LEVEL-3)
24519 @ 206951:                  LINE   4024 "regression-compile-tmp/imp918s.imp"
24520 @ 206989:                  PUSH   SPACES
24521 @ 206992:                  PUSHI  #0x00000003
24522 @ 206997:                  PUSH   LEVEL
24523 @ 207000:                  MUL   
24524 @ 207001:                  PUSHI  #0x00000003
24525 @ 207006:                  SUB   
24526 @ 207007:                  ASSPAR
24527 @ 207008:                  CALL  

  4025              PRINTSTRING("END")
24528 @ 207009:                  LINE   4025 "regression-compile-tmp/imp918s.imp"
24529 @ 207047:                  PUSH   PRINTSTRING
24530 @ 207050:                  PUSHS  "END"
24531 @ 207055:                  ASSPAR
24532 @ 207056:                  CALL  

  4026           %FINISH
  4027  !
  4028  ! RETURN TO PREVIOUS LEVEL PROVIDED THERE IS A VALID ONE !
  4029  !
24533 @ 207057:                  LINE   4026 "regression-compile-tmp/imp918s.imp"
24534 @ 207095:                  LOCATE L_0004

  4030           %UNLESS LEVEL>2 %OR (LEVEL=2 %AND CPRMODE=2) %THEN %START
24535 @ 207098:                  LINE   4030 "regression-compile-tmp/imp918s.imp"
24536 @ 207136:                  PUSH   LEVEL
24537 @ 207139:                  PUSHI  #0x00000002
24538 @ 207144:                  JUMPIF > L_0004
24539 @ 207148:                  PUSH   LEVEL
24540 @ 207151:                  PUSHI  #0x00000002
24541 @ 207156:                  JUMPIF # L_0005
24542 @ 207160:                  PUSH   CPRMODE
24543 @ 207163:                  PUSHI  #0x00000002
24544 @ 207168:                  JUMPIF = L_0004
24545 @ 207172:                  LOCATE L_0005

  4031              %IF KKK=1 %AND LEVEL=2 %THEN KKK=2 %ELSE %C
  4032                                     FAULT(14,0) %AND %STOP
24546 @ 207175:                  LINE   4031 "regression-compile-tmp/imp918s.imp"
24547 @ 207213:                  PUSH   KKK
24548 @ 207216:                  PUSHI  #0x00000001
24549 @ 207221:                  JUMPIF # L_0007
24550 @ 207225:                  PUSH   LEVEL
24551 @ 207228:                  PUSHI  #0x00000002
24552 @ 207233:                  JUMPIF # L_0007
24553 @ 207237:                  PUSH   KKK
24554 @ 207240:                  PUSHI  #0x00000002
24555 @ 207245:                  ASSVAL
24556 @ 207246:                  GOTO   L_0006
24557 @ 207249:                  LOCATE L_0007
24558 @ 207252:                  PUSH   FAULT
24559 @ 207255:                  PUSHI  #0x0000000e
24560 @ 207260:                  ASSPAR
24561 @ 207261:                  PUSHI  #0x00000000
24562 @ 207266:                  ASSPAR
24563 @ 207267:                  CALL  
24564 @ 207268:                  STOP  
24565 @ 207269:                  LOCATE L_0006

  4033           %FINISH
24566 @ 207272:                  LINE   4033 "regression-compile-tmp/imp918s.imp"
24567 @ 207310:                  LOCATE L_0004

  4034           LEVEL=LEVEL-1
24568 @ 207313:                  LINE   4034 "regression-compile-tmp/imp918s.imp"
24569 @ 207351:                  PUSH   LEVEL
24570 @ 207354:                  PUSH   LEVEL
24571 @ 207357:                  PUSHI  #0x00000001
24572 @ 207362:                  SUB   
24573 @ 207363:                  ASSVAL

  4035           %IF KKK>=10000 %THEN %START
24574 @ 207364:                  LINE   4035 "regression-compile-tmp/imp918s.imp"
24575 @ 207402:                  PUSH   KKK
24576 @ 207405:                  PUSHI  #0x00002710
24577 @ 207410:                  JUMPIF < L_0004

  4036              RLEVEL=RLEVEL-1
24578 @ 207414:                  LINE   4036 "regression-compile-tmp/imp918s.imp"
24579 @ 207452:                  PUSH   RLEVEL
24580 @ 207455:                  PUSH   RLEVEL
24581 @ 207458:                  PUSHI  #0x00000001
24582 @ 207463:                  SUB   
24583 @ 207464:                  ASSVAL

  4037              RBASE=10-RLEVEL
24584 @ 207465:                  LINE   4037 "regression-compile-tmp/imp918s.imp"
24585 @ 207503:                  PUSH   RBASE
24586 @ 207506:                  PUSHI  #0x0000000a
24587 @ 207511:                  PUSH   RLEVEL
24588 @ 207514:                  SUB   
24589 @ 207515:                  ASSVAL

  4038              REGISTER(9-RLEVEL)=0
24590 @ 207516:                  LINE   4038 "regression-compile-tmp/imp918s.imp"
24591 @ 207554:                  PUSH   REGISTER
24592 @ 207557:                  PUSHI  #0x00000009
24593 @ 207562:                  PUSH   RLEVEL
24594 @ 207565:                  SUB   
24595 @ 207566:                  ACCESS
24596 @ 207567:                  PUSHI  #0x00000000
24597 @ 207572:                  ASSVAL

  4039           %FINISH
  4040  !
  4041  ! RESTORE INFORMATION ABOUT THE (NEW) CURRENT LEVEL
  4042  !
24598 @ 207573:                  LINE   4039 "regression-compile-tmp/imp918s.imp"
24599 @ 207611:                  LOCATE L_0004

  4043           POP123(LEVELINF,CODEBASE,N,FLAG)
24600 @ 207614:                  LINE   4043 "regression-compile-tmp/imp918s.imp"
24601 @ 207652:                  PUSH   POP123
24602 @ 207655:                  PUSH   LEVELINF
24603 @ 207658:                  ASSPAR
24604 @ 207659:                  PUSH   CODEBASE
24605 @ 207662:                  ASSPAR
24606 @ 207663:                  PUSH   N
24607 @ 207666:                  ASSPAR
24608 @ 207667:                  PUSH   FLAG
24609 @ 207670:                  ASSPAR
24610 @ 207671:                  CALL  

  4044           NMDECS=CODEBASE>>24
24611 @ 207672:                  LINE   4044 "regression-compile-tmp/imp918s.imp"
24612 @ 207710:                  PUSH   NMDECS
24613 @ 207713:                  PUSH   CODEBASE
24614 @ 207716:                  PUSHI  #0x00000018
24615 @ 207721:                  RSH   
24616 @ 207722:                  ASSVAL

  4045           CODEBASE=CODEBASE&X'FFFFFF'
24617 @ 207723:                  LINE   4045 "regression-compile-tmp/imp918s.imp"
24618 @ 207761:                  PUSH   CODEBASE
24619 @ 207764:                  PUSH   CODEBASE
24620 @ 207767:                  PUSHI  #0x00ffffff
24621 @ 207772:                  AND   
24622 @ 207773:                  ASSVAL

  4046           GRINF(10)=CODEBASE
24623 @ 207774:                  LINE   4046 "regression-compile-tmp/imp918s.imp"
24624 @ 207812:                  PUSH   GRINF
24625 @ 207815:                  PUSHI  #0x0000000a
24626 @ 207820:                  ACCESS
24627 @ 207821:                  PUSH   CODEBASE
24628 @ 207824:                  ASSVAL

  4047           SBFLAG=N>>15&1
24629 @ 207825:                  LINE   4047 "regression-compile-tmp/imp918s.imp"
24630 @ 207863:                  PUSH   SBFLAG
24631 @ 207866:                  PUSH   N
24632 @ 207869:                  PUSHI  #0x0000000f
24633 @ 207874:                  RSH   
24634 @ 207875:                  PUSHI  #0x00000001
24635 @ 207880:                  AND   
24636 @ 207881:                  ASSVAL

  4048           RNEXT=FLAG>>16
24637 @ 207882:                  LINE   4048 "regression-compile-tmp/imp918s.imp"
24638 @ 207920:                  PUSH   RNEXT
24639 @ 207923:                  PUSH   FLAG
24640 @ 207926:                  PUSHI  #0x00000010
24641 @ 207931:                  RSH   
24642 @ 207932:                  ASSVAL

  4049           FLAG=FLAG&X'FFFF'
24643 @ 207933:                  LINE   4049 "regression-compile-tmp/imp918s.imp"
24644 @ 207971:                  PUSH   FLAG
24645 @ 207974:                  PUSH   FLAG
24646 @ 207977:                  PUSHI  #0x0000ffff
24647 @ 207982:                  AND   
24648 @ 207983:                  ASSVAL

  4050           NMAX=N>>16 %IF KKK>=10000
24649 @ 207984:                  LINE   4050 "regression-compile-tmp/imp918s.imp"
24650 @ 208022:                  PUSH   KKK
24651 @ 208025:                  PUSHI  #0x00002710
24652 @ 208030:                  JUMPIF < L_0004
24653 @ 208034:                  PUSH   NMAX
24654 @ 208037:                  PUSH   N
24655 @ 208040:                  PUSHI  #0x00000010
24656 @ 208045:                  RSH   
24657 @ 208046:                  ASSVAL
24658 @ 208047:                  LOCATE L_0004

  4051           N=N&X'7FFF'
24659 @ 208050:                  LINE   4051 "regression-compile-tmp/imp918s.imp"
24660 @ 208088:                  PUSH   N
24661 @ 208091:                  PUSH   N
24662 @ 208094:                  PUSHI  #0x00007fff
24663 @ 208099:                  AND   
24664 @ 208100:                  ASSVAL

  4052           %IF KKK=2 %THEN CEND(KKK);    ! ROUND AGAIN FOR 'ENDOFPROGRAM'
  4053  !
  4054  ! COMPLETE THE JUMP AROUND ALL NON-EXTERNAL ROUTINES EXCEPT WHEN
  4055  ! %TRUSTEDPROGRAM IS IN OPERATION.
  4056  !
24665 @ 208101:                  LINE   4052 "regression-compile-tmp/imp918s.imp"
24666 @ 208139:                  PUSH   KKK
24667 @ 208142:                  PUSHI  #0x00000002
24668 @ 208147:                  JUMPIF # L_0004
24669 @ 208151:                  PUSH   CEND
24670 @ 208154:                  PUSH   KKK
24671 @ 208157:                  ASSPAR
24672 @ 208158:                  CALL  
24673 @ 208159:                  LOCATE L_0004

  4057           %IF KKK>=10000 %AND COMPILER=0 %AND (RLEVEL#1 %OR CPRMODE#2)%C
  4058              %THEN ENTER LAB(FROM3(LABEL(LEVEL)),0)
24674 @ 208162:                  LINE   4057 "regression-compile-tmp/imp918s.imp"
24675 @ 208200:                  PUSH   KKK
24676 @ 208203:                  PUSHI  #0x00002710
24677 @ 208208:                  JUMPIF < L_0004
24678 @ 208212:                  PUSH   COMPILER
24679 @ 208215:                  PUSHI  #0x00000000
24680 @ 208220:                  JUMPIF # L_0004
24681 @ 208224:                  PUSH   RLEVEL
24682 @ 208227:                  PUSHI  #0x00000001
24683 @ 208232:                  JUMPIF # L_0005
24684 @ 208236:                  PUSH   CPRMODE
24685 @ 208239:                  PUSHI  #0x00000002
24686 @ 208244:                  JUMPIF = L_0004
24687 @ 208248:                  LOCATE L_0005
24688 @ 208251:                  PUSH   ENTERLAB
24689 @ 208254:                  PUSH   FROM3
24690 @ 208257:                  PUSH   LABEL
24691 @ 208260:                  PUSH   LEVEL
24692 @ 208263:                  ACCESS
24693 @ 208264:                  ASSPAR
24694 @ 208265:                  CALL  
24695 @ 208266:                  ASSPAR
24696 @ 208267:                  PUSHI  #0x00000000
24697 @ 208272:                  ASSPAR
24698 @ 208273:                  CALL  
24699 @ 208274:                  LOCATE L_0004

  4059           ->Label99
24700 @ 208277:                  LINE   4059 "regression-compile-tmp/imp918s.imp"
24701 @ 208315:                  JUMP   L_0207

  4060           %ROUTINE DTABLE(%INTEGER LEVEL,GLOBAL)
  4061  !***********************************************************************
  4062  !*      THIS ROUTINE LOOKS AT THE DECLARATIONS FOR THE CURRENT LEVEL & *
  4063  !*      SETS UP THE SEGMENT OF SHARABLE SYMBOL TABLES TO DESCRIBE THEM.*
  4064  !*      FOR MAIN PROGRAMS OR EXTERNAL ROUTINES THE 'GLOBAL' VARIABLES  *
  4065  !*      (IF ANY) ARE ALSO INCLUDED.                                    *
  4066  !***********************************************************************
24702 @ 208318:                  LINE   4060 "regression-compile-tmp/imp918s.imp"
24703 @ 208356:                  DEF    DTABLE (_lev0id0_CSS_CEND_DTABLE) p1=V_0206 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
24704 @ 208374:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
24705 @ 208375:                        DEF    LEVEL p1=V_0208 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
24706 @ 208392:                        DEF    GLOBAL p1=V_0209 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
24707 @ 208410:                     FINISH ) {lev=4}

  4067           %STRING(32) RT NAME
24708 @ 208411:                     LINE   4067 "regression-compile-tmp/imp918s.imp"
24709 @ 208449:                     DEF    RTNAME p1=V_020a a/tf=31 b/format=20 c/ostate=0  type=3 (string) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  4068           %STRING(8) LOCAL NAME
24710 @ 208467:                     LINE   4068 "regression-compile-tmp/imp918s.imp"
24711 @ 208505:                     DEF    LOCALNAME p1=V_020b a/tf=31 b/format=8 c/ostate=0  type=3 (string) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  4069           %INTEGER DPTR,LNUM,ML,KK,JJ,Q,DEND,OL,LC
24712 @ 208526:                     LINE   4069 "regression-compile-tmp/imp918s.imp"
24713 @ 208564:                     DEF    DPTR p1=V_020c 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
24714 @ 208580:                     DEF    LNUM p1=V_020d 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
24715 @ 208596:                     DEF    ML p1=V_020e 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
24716 @ 208610:                     DEF    KK p1=V_020f 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
24717 @ 208624:                     DEF    JJ p1=V_0210 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
24718 @ 208638:                     DEF    Q p1=V_0211 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
24719 @ 208651:                     DEF    DEND p1=V_0212 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
24720 @ 208667:                     DEF    OL p1=V_0213 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
24721 @ 208681:                     DEF    LC p1=V_0214 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

  4070           %INTEGERARRAY DD(0:300);       ! BUFFER FOR SEGMENT OF SST
24722 @ 208695:                     LINE   4070 "regression-compile-tmp/imp918s.imp"
24723 @ 208733:                     DEF    DD p1=V_0215 a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
24724 @ 208747:                     PUSHI  #0x00000000
24725 @ 208752:                     PUSHI  #0x0000012c
24726 @ 208757:                     DIM    0001 0001

  4071           %IF GLOBAL#0 %THEN DPTR=0 %AND ->START
24727 @ 208763:                     LINE   4071 "regression-compile-tmp/imp918s.imp"
24728 @ 208801:                     PUSH   GLOBAL
24729 @ 208804:                     PUSHI  #0x00000000
24730 @ 208809:                     JUMPIF = L_0004
24731 @ 208813:                     PUSH   DPTR
24732 @ 208816:                     PUSHI  #0x00000000
24733 @ 208821:                     ASSVAL
24734 @ 208822:                     JUMP   L_0216
24735 @ 208825:                     LOCATE L_0004

  4072           DD(0)=X'C2C2C2C2';             ! MARKER ==M'BBBB' IN EBCDIC
24736 @ 208828:                     LINE   4072 "regression-compile-tmp/imp918s.imp"
24737 @ 208866:                     PUSH   DD
24738 @ 208869:                     PUSHI  #0x00000000
24739 @ 208874:                     ACCESS
24740 @ 208875:                     PUSHI  #0xc2c2c2c2
24741 @ 208880:                     ASSVAL

  4073           ML=M(LEVEL);                   ! ROUTINE NAME(=0 FOR %BEGIN)
24742 @ 208881:                     LINE   4073 "regression-compile-tmp/imp918s.imp"
24743 @ 208919:                     PUSH   ML
24744 @ 208922:                     PUSH   M
24745 @ 208925:                     PUSH   LEVEL
24746 @ 208928:                     ACCESS
24747 @ 208929:                     ASSVAL

  4074           LNUM=LETT(ML);                 ! LENGTH OF THE NAME
24748 @ 208930:                     LINE   4074 "regression-compile-tmp/imp918s.imp"
24749 @ 208968:                     PUSH   LNUM
24750 @ 208971:                     PUSH   LETT
24751 @ 208974:                     PUSH   ML
24752 @ 208977:                     ACCESS
24753 @ 208978:                     ASSVAL

  4075           DD(1)=L(LEVEL)<<16!RBASE<<8;   ! RT WORD TO TABLE
24754 @ 208979:                     LINE   4075 "regression-compile-tmp/imp918s.imp"
24755 @ 209017:                     PUSH   DD
24756 @ 209020:                     PUSHI  #0x00000001
24757 @ 209025:                     ACCESS
24758 @ 209026:                     PUSH   L
24759 @ 209029:                     PUSH   LEVEL
24760 @ 209032:                     ACCESS
24761 @ 209033:                     PUSHI  #0x00000010
24762 @ 209038:                     LSH   
24763 @ 209039:                     PUSH   RBASE
24764 @ 209042:                     PUSHI  #0x00000008
24765 @ 209047:                     LSH   
24766 @ 209048:                     OR    
24767 @ 209049:                     ASSVAL

  4076           OL=L(LEVEL-1)
24768 @ 209050:                     LINE   4076 "regression-compile-tmp/imp918s.imp"
24769 @ 209088:                     PUSH   OL
24770 @ 209091:                     PUSH   L
24771 @ 209094:                     PUSH   LEVEL
24772 @ 209097:                     PUSHI  #0x00000001
24773 @ 209102:                     SUB   
24774 @ 209103:                     ACCESS
24775 @ 209104:                     ASSVAL

  4077           DPTR=3; DEND=0
24776 @ 209105:                     LINE   4077 "regression-compile-tmp/imp918s.imp"
24777 @ 209143:                     PUSH   DPTR
24778 @ 209146:                     PUSHI  #0x00000003
24779 @ 209151:                     ASSVAL
24780 @ 209152:                     LINE   4077 "regression-compile-tmp/imp918s.imp"
24781 @ 209190:                     PUSH   DEND
24782 @ 209193:                     PUSHI  #0x00000000
24783 @ 209198:                     ASSVAL

  4078           %IF LNUM=0 %THEN DD(2)=L(LEVEL-1) %ELSE %START
24784 @ 209199:                     LINE   4078 "regression-compile-tmp/imp918s.imp"
24785 @ 209237:                     PUSH   LNUM
24786 @ 209240:                     PUSHI  #0x00000000
24787 @ 209245:                     JUMPIF # L_0004
24788 @ 209249:                     PUSH   DD
24789 @ 209252:                     PUSHI  #0x00000002
24790 @ 209257:                     ACCESS
24791 @ 209258:                     PUSH   L
24792 @ 209261:                     PUSH   LEVEL
24793 @ 209264:                     PUSHI  #0x00000001
24794 @ 209269:                     SUB   
24795 @ 209270:                     ACCESS
24796 @ 209271:                     ASSVAL
24797 @ 209272:                     GOTO   L_0003
24798 @ 209275:                     LOCATE L_0004

  4079           Q=ADDR(LETT(ML))
24799 @ 209278:                     LINE   4079 "regression-compile-tmp/imp918s.imp"
24800 @ 209316:                     PUSH   Q
24801 @ 209319:                     PUSH   ADDR
24802 @ 209322:                     PUSH   LETT
24803 @ 209325:                     PUSH   ML
24804 @ 209328:                     ACCESS
24805 @ 209329:                     ASSPAR
24806 @ 209330:                     CALL  
24807 @ 209331:                     ASSVAL

  4080              RT NAME<-STRING(Q);         ! FOR RTS MOVE IN 1ST 32 CHARS
24808 @ 209332:                     LINE   4080 "regression-compile-tmp/imp918s.imp"
24809 @ 209370:                     PUSH   RTNAME
24810 @ 209373:                     PUSH   STRING
24811 @ 209376:                     PUSH   Q
24812 @ 209379:                     ASSPAR
24813 @ 209380:                     CALL  
24814 @ 209381:                     JAM   

  4081              STRING(ADDR(DD(1))+3)=RTNAME;! AND UPDATE POINTER PAST
24815 @ 209382:                     LINE   4081 "regression-compile-tmp/imp918s.imp"
24816 @ 209420:                     PUSH   STRING
24817 @ 209423:                     PUSH   ADDR
24818 @ 209426:                     PUSH   DD
24819 @ 209429:                     PUSHI  #0x00000001
24820 @ 209434:                     ACCESS
24821 @ 209435:                     ASSPAR
24822 @ 209436:                     CALL  
24823 @ 209437:                     PUSHI  #0x00000003
24824 @ 209442:                     ADD   
24825 @ 209443:                     ASSPAR
24826 @ 209444:                     CALL  
24827 @ 209445:                     PUSH   RTNAME
24828 @ 209448:                     ASSVAL

  4082              DPTR=DPTR+(LNUM-1)>>2;      ! ACTUAL NO OF CHARS
24829 @ 209449:                     LINE   4082 "regression-compile-tmp/imp918s.imp"
24830 @ 209487:                     PUSH   DPTR
24831 @ 209490:                     PUSH   DPTR
24832 @ 209493:                     PUSH   LNUM
24833 @ 209496:                     PUSHI  #0x00000001
24834 @ 209501:                     SUB   
24835 @ 209502:                     PUSHI  #0x00000002
24836 @ 209507:                     RSH   
24837 @ 209508:                     ADD   
24838 @ 209509:                     ASSVAL

  4083           %FINISH
24839 @ 209510:                     LINE   4083 "regression-compile-tmp/imp918s.imp"
24840 @ 209548:                     LOCATE L_0003

  4084  START:
24841 @ 209551:                     LINE   4084 "regression-compile-tmp/imp918s.imp"
24842 @ 209589:                     LABEL  L_0216

  4085           JJ=NAMES(LEVEL)
24843 @ 209592:                     LINE   4085 "regression-compile-tmp/imp918s.imp"
24844 @ 209630:                     PUSH   JJ
24845 @ 209633:                     PUSH   NAMES
24846 @ 209636:                     PUSH   LEVEL
24847 @ 209639:                     ACCESS
24848 @ 209640:                     ASSVAL

  4086           %CYCLE LC=0,1,NNAMES
24849 @ 209641:                     LINE   4086 "regression-compile-tmp/imp918s.imp"
24850 @ 209679:                     PUSH   LC
24851 @ 209682:                     PUSHI  #0x00000001
24852 @ 209687:                     PUSH   NNAMES
24853 @ 209690:                     PUSHI  #0x00000000
24854 @ 209695:                     FOR    L_0003

  4087              %EXIT %IF JJ<0
24855 @ 209698:                     LINE   4087 "regression-compile-tmp/imp918s.imp"
24856 @ 209736:                     PUSH   JJ
24857 @ 209739:                     PUSHI  #0x00000000
24858 @ 209744:                     JUMPIF >= L_0007
24859 @ 209748:                     GOTO   L_0004
24860 @ 209751:                     LOCATE L_0007

  4088                 %IF GLOBAL=0 %THEN %START
24861 @ 209754:                     LINE   4088 "regression-compile-tmp/imp918s.imp"
24862 @ 209792:                     PUSH   GLOBAL
24863 @ 209795:                     PUSHI  #0x00000000
24864 @ 209800:                     JUMPIF # L_0007

  4089                    KK=INTEGER(ADDR(ASLIST(TAGS(JJ))))
24865 @ 209804:                     LINE   4089 "regression-compile-tmp/imp918s.imp"
24866 @ 209842:                     PUSH   KK
24867 @ 209845:                     PUSH   INTEGER
24868 @ 209848:                     PUSH   ADDR
24869 @ 209851:                     PUSH   ASLIST
24870 @ 209854:                     PUSH   TAGS
24871 @ 209857:                     PUSH   JJ
24872 @ 209860:                     ACCESS
24873 @ 209861:                     ACCESS
24874 @ 209862:                     ASSPAR
24875 @ 209863:                     CALL  
24876 @ 209864:                     ASSPAR
24877 @ 209865:                     CALL  
24878 @ 209866:                     ASSVAL

  4090                    %IF KK&X'F000'=0 %THEN %START
24879 @ 209867:                     LINE   4090 "regression-compile-tmp/imp918s.imp"
24880 @ 209905:                     PUSH   KK
24881 @ 209908:                     PUSHI  #0x0000f000
24882 @ 209913:                     AND   
24883 @ 209914:                     PUSHI  #0x00000000
24884 @ 209919:                     JUMPIF # L_000a

  4091                       printstring("
  4092  ?  UNUSED NAME ")
24885 @ 209923:                     LINE   4091 "regression-compile-tmp/imp918s.imp"
24886 @ 209961:                     PUSH   PRINTSTRING
24887 @ 209964:                     PUSHS  "\n?  UNUSED NAME "
24888 @ 209982:                     ASSPAR
24889 @ 209983:                     CALL  

  4093                       PRINTNAME(JJ)
24890 @ 209984:                     LINE   4093 "regression-compile-tmp/imp918s.imp"
24891 @ 210022:                     PUSH   PRINTNAME
24892 @ 210025:                     PUSH   JJ
24893 @ 210028:                     ASSPAR
24894 @ 210029:                     CALL  

  4094                    %FINISH
24895 @ 210030:                     LINE   4094 "regression-compile-tmp/imp918s.imp"
24896 @ 210068:                     LOCATE L_000a

  4095                 %FINISH
24897 @ 210071:                     LINE   4095 "regression-compile-tmp/imp918s.imp"
24898 @ 210109:                     LOCATE L_0007

  4096                 ->REP %IF DIAGS1=0 %OR LINENOS=0
24899 @ 210112:                     LINE   4096 "regression-compile-tmp/imp918s.imp"
24900 @ 210150:                     PUSH   DIAGS1
24901 @ 210153:                     PUSHI  #0x00000000
24902 @ 210158:                     JUMPIF = L_0008
24903 @ 210162:                     PUSH   LINENOS
24904 @ 210165:                     PUSHI  #0x00000000
24905 @ 210170:                     JUMPIF # L_0007
24906 @ 210174:                     LOCATE L_0008
24907 @ 210177:                     JUMP   L_0217
24908 @ 210180:                     LOCATE L_0007

  4097                 COPY TAG(JJ);               ! GET DETAILS
24909 @ 210183:                     LINE   4097 "regression-compile-tmp/imp918s.imp"
24910 @ 210221:                     PUSH   COPYTAG
24911 @ 210224:                     PUSH   JJ
24912 @ 210227:                     ASSPAR
24913 @ 210228:                     CALL  

  4098                 %IF ARR=0 %AND ROUT=0 %AND DPTR<297 %ANDC
  4099                    PREC<4 %AND (TYPE=1 %OR TYPE=2 %OR TYPE=5) %C
  4100                    %AND (GLOBAL=0 %OR OLDI=1) %THEN %START
24914 @ 210229:                     LINE   4098 "regression-compile-tmp/imp918s.imp"
24915 @ 210267:                     PUSH   ARR
24916 @ 210270:                     PUSHI  #0x00000000
24917 @ 210275:                     JUMPIF # L_0007
24918 @ 210279:                     PUSH   ROUT
24919 @ 210282:                     PUSHI  #0x00000000
24920 @ 210287:                     JUMPIF # L_0007
24921 @ 210291:                     PUSH   DPTR
24922 @ 210294:                     PUSHI  #0x00000129
24923 @ 210299:                     JUMPIF >= L_0007
24924 @ 210303:                     PUSH   PREC
24925 @ 210306:                     PUSHI  #0x00000004
24926 @ 210311:                     JUMPIF >= L_0007
24927 @ 210315:                     PUSH   TYPE
24928 @ 210318:                     PUSHI  #0x00000001
24929 @ 210323:                     JUMPIF = L_0008
24930 @ 210327:                     PUSH   TYPE
24931 @ 210330:                     PUSHI  #0x00000002
24932 @ 210335:                     JUMPIF = L_0008
24933 @ 210339:                     PUSH   TYPE
24934 @ 210342:                     PUSHI  #0x00000005
24935 @ 210347:                     JUMPIF # L_0007
24936 @ 210351:                     LOCATE L_0008
24937 @ 210354:                     PUSH   GLOBAL
24938 @ 210357:                     PUSHI  #0x00000000
24939 @ 210362:                     JUMPIF = L_0008
24940 @ 210366:                     PUSH   OLDI
24941 @ 210369:                     PUSHI  #0x00000001
24942 @ 210374:                     JUMPIF # L_0007
24943 @ 210378:                     LOCATE L_0008

  4101                    Q=ADDR(LETT(WORD(JJ)));  ! ADDRESS OF NAME
24944 @ 210381:                     LINE   4101 "regression-compile-tmp/imp918s.imp"
24945 @ 210419:                     PUSH   Q
24946 @ 210422:                     PUSH   ADDR
24947 @ 210425:                     PUSH   LETT
24948 @ 210428:                     PUSH   WORD
24949 @ 210431:                     PUSH   JJ
24950 @ 210434:                     ACCESS
24951 @ 210435:                     ACCESS
24952 @ 210436:                     ASSPAR
24953 @ 210437:                     CALL  
24954 @ 210438:                     ASSVAL

  4102                    DD(DPTR)=NAM<<30!PREC<<27!TYPE<<24!I<<20!K<<8
24955 @ 210439:                     LINE   4102 "regression-compile-tmp/imp918s.imp"
24956 @ 210477:                     PUSH   DD
24957 @ 210480:                     PUSH   DPTR
24958 @ 210483:                     ACCESS
24959 @ 210484:                     PUSH   NAM
24960 @ 210487:                     PUSHI  #0x0000001e
24961 @ 210492:                     LSH   
24962 @ 210493:                     PUSH   PREC
24963 @ 210496:                     PUSHI  #0x0000001b
24964 @ 210501:                     LSH   
24965 @ 210502:                     OR    
24966 @ 210503:                     PUSH   TYPE
24967 @ 210506:                     PUSHI  #0x00000018
24968 @ 210511:                     LSH   
24969 @ 210512:                     OR    
24970 @ 210513:                     PUSH   I
24971 @ 210516:                     PUSHI  #0x00000014
24972 @ 210521:                     LSH   
24973 @ 210522:                     OR    
24974 @ 210523:                     PUSH   K
24975 @ 210526:                     PUSHI  #0x00000008
24976 @ 210531:                     LSH   
24977 @ 210532:                     OR    
24978 @ 210533:                     ASSVAL

  4103                    LOCAL NAME<-STRING(Q);   ! TEXT OF NAME FROM DICTIONARY
24979 @ 210534:                     LINE   4103 "regression-compile-tmp/imp918s.imp"
24980 @ 210572:                     PUSH   LOCALNAME
24981 @ 210575:                     PUSH   STRING
24982 @ 210578:                     PUSH   Q
24983 @ 210581:                     ASSPAR
24984 @ 210582:                     CALL  
24985 @ 210583:                     JAM   

  4104                    LNUM=BYTE INTEGER(ADDR(LOCAL NAME))
24986 @ 210584:                     LINE   4104 "regression-compile-tmp/imp918s.imp"
24987 @ 210622:                     PUSH   LNUM
24988 @ 210625:                     PUSH   BYTEINTEGER
24989 @ 210628:                     PUSH   ADDR
24990 @ 210631:                     PUSH   LOCALNAME
24991 @ 210634:                     ASSPAR
24992 @ 210635:                     CALL  
24993 @ 210636:                     ASSPAR
24994 @ 210637:                     CALL  
24995 @ 210638:                     ASSVAL

  4105                    STRING(ADDR(DD(DPTR))+3)=LOCAL NAME;! MOVE IN NAME 
24996 @ 210639:                     LINE   4105 "regression-compile-tmp/imp918s.imp"
24997 @ 210677:                     PUSH   STRING
24998 @ 210680:                     PUSH   ADDR
24999 @ 210683:                     PUSH   DD
25000 @ 210686:                     PUSH   DPTR
25001 @ 210689:                     ACCESS
25002 @ 210690:                     ASSPAR
25003 @ 210691:                     CALL  
25004 @ 210692:                     PUSHI  #0x00000003
25005 @ 210697:                     ADD   
25006 @ 210698:                     ASSPAR
25007 @ 210699:                     CALL  
25008 @ 210700:                     PUSH   LOCALNAME
25009 @ 210703:                     ASSVAL

  4106                    DPTR=DPTR+(LNUM+7)>>2
25010 @ 210704:                     LINE   4106 "regression-compile-tmp/imp918s.imp"
25011 @ 210742:                     PUSH   DPTR
25012 @ 210745:                     PUSH   DPTR
25013 @ 210748:                     PUSH   LNUM
25014 @ 210751:                     PUSHI  #0x00000007
25015 @ 210756:                     ADD   
25016 @ 210757:                     PUSHI  #0x00000002
25017 @ 210762:                     RSH   
25018 @ 210763:                     ADD   
25019 @ 210764:                     ASSVAL

  4107                 %FINISH
25020 @ 210765:                     LINE   4107 "regression-compile-tmp/imp918s.imp"
25021 @ 210803:                     LOCATE L_0007

  4108  REP:           JJ=SHORTINTEGER(ADDR(ASLIST(TAGS(JJ)))+12)
25022 @ 210806:                     LINE   4108 "regression-compile-tmp/imp918s.imp"
25023 @ 210844:                     LABEL  L_0217
25024 @ 210847:                     LINE   4108 "regression-compile-tmp/imp918s.imp"
25025 @ 210885:                     PUSH   JJ
25026 @ 210888:                     PUSH   SHORTINTEGER
25027 @ 210891:                     PUSH   ADDR
25028 @ 210894:                     PUSH   ASLIST
25029 @ 210897:                     PUSH   TAGS
25030 @ 210900:                     PUSH   JJ
25031 @ 210903:                     ACCESS
25032 @ 210904:                     ACCESS
25033 @ 210905:                     ASSPAR
25034 @ 210906:                     CALL  
25035 @ 210907:                     PUSHI  #0x0000000c
25036 @ 210912:                     ADD   
25037 @ 210913:                     ASSPAR
25038 @ 210914:                     CALL  
25039 @ 210915:                     ASSVAL

  4109           %REPEAT
25040 @ 210916:                     LINE   4109 "regression-compile-tmp/imp918s.imp"
25041 @ 210954:                     REPEAT L_0003
25042 @ 210957:                     LOCATE L_0004

  4110           %IF LEVEL=2 %THEN %START;      ! GLOBALS TO FOLLOW
25043 @ 210960:                     LINE   4110 "regression-compile-tmp/imp918s.imp"
25044 @ 210998:                     PUSH   LEVEL
25045 @ 211001:                     PUSHI  #0x00000002
25046 @ 211006:                     JUMPIF # L_0004

  4111              DD(DPTR)=-2;                ! GLOBAL TO COME MARKER
25047 @ 211010:                     LINE   4111 "regression-compile-tmp/imp918s.imp"
25048 @ 211048:                     PUSH   DD
25049 @ 211051:                     PUSH   DPTR
25050 @ 211054:                     ACCESS
25051 @ 211055:                     PUSHI  #0x00000002
25052 @ 211060:                     NEGATE
25053 @ 211061:                     ASSVAL

  4112              DPTR=DPTR+1
25054 @ 211062:                     LINE   4112 "regression-compile-tmp/imp918s.imp"
25055 @ 211100:                     PUSH   DPTR
25056 @ 211103:                     PUSH   DPTR
25057 @ 211106:                     PUSHI  #0x00000001
25058 @ 211111:                     ADD   
25059 @ 211112:                     ASSVAL

  4113           %FINISH %ELSE %START
25060 @ 211113:                     LINE   4113 "regression-compile-tmp/imp918s.imp"
25061 @ 211151:                     GOTO   L_0003
25062 @ 211154:                     LOCATE L_0004

  4114              DD(DPTR)=-1;                   ! 'END OF SEGMENT' MARK
25063 @ 211157:                     LINE   4114 "regression-compile-tmp/imp918s.imp"
25064 @ 211195:                     PUSH   DD
25065 @ 211198:                     PUSH   DPTR
25066 @ 211201:                     ACCESS
25067 @ 211202:                     PUSHI  #0x00000001
25068 @ 211207:                     NEGATE
25069 @ 211208:                     ASSVAL

  4115              DD(DPTR+1)=OL;                 ! SO DEBUG CAN FIND GLOBALS
25070 @ 211209:                     LINE   4115 "regression-compile-tmp/imp918s.imp"
25071 @ 211247:                     PUSH   DD
25072 @ 211250:                     PUSH   DPTR
25073 @ 211253:                     PUSHI  #0x00000001
25074 @ 211258:                     ADD   
25075 @ 211259:                     ACCESS
25076 @ 211260:                     PUSH   OL
25077 @ 211263:                     ASSVAL

  4116              DPTR=DPTR+2
25078 @ 211264:                     LINE   4116 "regression-compile-tmp/imp918s.imp"
25079 @ 211302:                     PUSH   DPTR
25080 @ 211305:                     PUSH   DPTR
25081 @ 211308:                     PUSHI  #0x00000002
25082 @ 211313:                     ADD   
25083 @ 211314:                     ASSVAL

  4117           %FINISH
25084 @ 211315:                     LINE   4117 "regression-compile-tmp/imp918s.imp"
25085 @ 211353:                     LOCATE L_0003

  4118           DPTR=DPTR<<2
25086 @ 211356:                     LINE   4118 "regression-compile-tmp/imp918s.imp"
25087 @ 211394:                     PUSH   DPTR
25088 @ 211397:                     PUSH   DPTR
25089 @ 211400:                     PUSHI  #0x00000002
25090 @ 211405:                     LSH   
25091 @ 211406:                     ASSVAL

  4119           %IF DIAGS1=1 %THEN %START
25092 @ 211407:                     LINE   4119 "regression-compile-tmp/imp918s.imp"
25093 @ 211445:                     PUSH   DIAGS1
25094 @ 211448:                     PUSHI  #0x00000001
25095 @ 211453:                     JUMPIF # L_0004

  4120              %IF GLOBAL=1 %AND DPTR=8 %THEN SSTL=SSTL-4;! PUT -1 ONTOP OF -2
25096 @ 211457:                     LINE   4120 "regression-compile-tmp/imp918s.imp"
25097 @ 211495:                     PUSH   GLOBAL
25098 @ 211498:                     PUSHI  #0x00000001
25099 @ 211503:                     JUMPIF # L_0007
25100 @ 211507:                     PUSH   DPTR
25101 @ 211510:                     PUSHI  #0x00000008
25102 @ 211515:                     JUMPIF # L_0007
25103 @ 211519:                     PUSH   SSTL
25104 @ 211522:                     PUSH   SSTL
25105 @ 211525:                     PUSHI  #0x00000004
25106 @ 211530:                     SUB   
25107 @ 211531:                     ASSVAL
25108 @ 211532:                     LOCATE L_0007

  4121              LPUT(4,DPTR,SSTL,ADDR(DD(0)));! ADD TO SHARABLE SYM TABS
25109 @ 211535:                     LINE   4121 "regression-compile-tmp/imp918s.imp"
25110 @ 211573:                     PUSH   LPUT
25111 @ 211576:                     PUSHI  #0x00000004
25112 @ 211581:                     ASSPAR
25113 @ 211582:                     PUSH   DPTR
25114 @ 211585:                     ASSPAR
25115 @ 211586:                     PUSH   SSTL
25116 @ 211589:                     ASSPAR
25117 @ 211590:                     PUSH   ADDR
25118 @ 211593:                     PUSH   DD
25119 @ 211596:                     PUSHI  #0x00000000
25120 @ 211601:                     ACCESS
25121 @ 211602:                     ASSPAR
25122 @ 211603:                     CALL  
25123 @ 211604:                     ASSPAR
25124 @ 211605:                     CALL  

  4122              SSTL=SSTL+DPTR
25125 @ 211606:                     LINE   4122 "regression-compile-tmp/imp918s.imp"
25126 @ 211644:                     PUSH   SSTL
25127 @ 211647:                     PUSH   SSTL
25128 @ 211650:                     PUSH   DPTR
25129 @ 211653:                     ADD   
25130 @ 211654:                     ASSVAL

  4123           %FINISH
25131 @ 211655:                     LINE   4123 "regression-compile-tmp/imp918s.imp"
25132 @ 211693:                     LOCATE L_0004

  4124           %END;                          ! OF ROUTINE DTABLE
25133 @ 211696:                     LINE   4124 "regression-compile-tmp/imp918s.imp"
25134 @ 211734:                  END    _lev0id0_CSS_CEND_DTABLE {lev=4 --> 3}

  4125  Label99:      %END
  4126  !***********************************************************************
  4127  !*       VARIOUS ROUTINE THAT ARE REQUIRED ONLY AT BLOCK START         *
  4128  !*       AND BLOCK END ARE GATHERED HERE. HOPEFULLY THEY WILL BE PAGED *
  4129  !*       OUT EXCEPT WHEN NEEDED.                                       *
  4130  !***********************************************************************
  4131  !
25135 @ 211735:                  LINE   4125 "regression-compile-tmp/imp918s.imp"
25136 @ 211773:                  LABEL  L_0207
25137 @ 211776:                  LINE   4125 "regression-compile-tmp/imp918s.imp"
25138 @ 211814:               END    _lev0id0_CSS_CEND {lev=3 --> 2}

  4132           %ROUTINE TEST NST
  4133  !***********************************************************************
  4134  !*       SEE IF NAME 'K' HAS BEEN DECLARED BEFORE AT THIS LEVEL        *
  4135  !***********************************************************************
25139 @ 211815:               LINE   4132 "regression-compile-tmp/imp918s.imp"
25140 @ 211853:               DEF    TESTNST (_lev0id0_CSS_TESTNST) p1=V_019a 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
25141 @ 211872:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
25142 @ 211873:                  FINISH ) {lev=3}

  4136           FNAME=K
25143 @ 211874:                  LINE   4136 "regression-compile-tmp/imp918s.imp"
25144 @ 211912:                  PUSH   FNAME
25145 @ 211915:                  PUSH   K
25146 @ 211918:                  ASSVAL

  4137           FAULT(7,FNAME) %IF FROM1(TAGS(FNAME))>>8&15=LEVEL
25147 @ 211919:                  LINE   4137 "regression-compile-tmp/imp918s.imp"
25148 @ 211957:                  PUSH   FROM1
25149 @ 211960:                  PUSH   TAGS
25150 @ 211963:                  PUSH   FNAME
25151 @ 211966:                  ACCESS
25152 @ 211967:                  ASSPAR
25153 @ 211968:                  CALL  
25154 @ 211969:                  PUSHI  #0x00000008
25155 @ 211974:                  RSH   
25156 @ 211975:                  PUSHI  #0x0000000f
25157 @ 211980:                  AND   
25158 @ 211981:                  PUSH   LEVEL
25159 @ 211984:                  JUMPIF # L_0004
25160 @ 211988:                  PUSH   FAULT
25161 @ 211991:                  PUSHI  #0x00000007
25162 @ 211996:                  ASSPAR
25163 @ 211997:                  PUSH   FNAME
25164 @ 212000:                  ASSPAR
25165 @ 212001:                  CALL  
25166 @ 212002:                  LOCATE L_0004

  4138           %END
25167 @ 212005:                  LINE   4138 "regression-compile-tmp/imp918s.imp"
25168 @ 212043:               END    _lev0id0_CSS_TESTNST {lev=3 --> 2}

  4139           %ROUTINE RELOCATE(%INTEGER GLARAD,VALUE,AREA)
  4140           {%SHORTROUTINE}
  4141  !***********************************************************************
  4142  !*      PLANTS A WORD IN THE GLA (IF GLARAD<0) AND ARRANGES TO         *
  4143  !*       RELOCATE IT RELATIVE TO AN AREA(CODE=1,GLA=2,CST=4,GST=5      *
  4144  !*       RELOCATION RELATIVE TO SYMBOL TABLES CAN NOW BE DONE HERE     *
  4145  !***********************************************************************
25169 @ 212044:               LINE   4139 "regression-compile-tmp/imp918s.imp"
25170 @ 212082:               DEF    RELOCATE (_lev0id0_CSS_RELOCATE) p1=V_0196 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
25171 @ 212102:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
25172 @ 212103:                     DEF    GLARAD p1=V_0203 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
25173 @ 212121:                     DEF    VALUE p1=V_0204 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
25174 @ 212138:                     DEF    AREA p1=V_0205 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
25175 @ 212154:                  FINISH ) {lev=3}

  4146           %IF GLARAD<0 %THEN PGLA(4,4,ADDR(VALUE)) %AND GLARAD=GLACA-4
25176 @ 212155:                  LINE   4146 "regression-compile-tmp/imp918s.imp"
25177 @ 212193:                  PUSH   GLARAD
25178 @ 212196:                  PUSHI  #0x00000000
25179 @ 212201:                  JUMPIF >= L_0004
25180 @ 212205:                  PUSH   PGLA
25181 @ 212208:                  PUSHI  #0x00000004
25182 @ 212213:                  ASSPAR
25183 @ 212214:                  PUSHI  #0x00000004
25184 @ 212219:                  ASSPAR
25185 @ 212220:                  PUSH   ADDR
25186 @ 212223:                  PUSH   VALUE
25187 @ 212226:                  ASSPAR
25188 @ 212227:                  CALL  
25189 @ 212228:                  ASSPAR
25190 @ 212229:                  CALL  
25191 @ 212230:                  PUSH   GLARAD
25192 @ 212233:                  PUSH   GLACA
25193 @ 212236:                  PUSHI  #0x00000004
25194 @ 212241:                  SUB   
25195 @ 212242:                  ASSVAL
25196 @ 212243:                  LOCATE L_0004

  4147           %IF AREA<3 %THEN LPUT(AREA+19,0,GLARAD,0) %ELSE %C
  4148              LPUT(AREA+14,0,GLARAD,0)
  4149  !            PUSH123(RELHEAD,GLARAD,VALUE,AREA)
25197 @ 212246:                  LINE   4147 "regression-compile-tmp/imp918s.imp"
25198 @ 212284:                  PUSH   AREA
25199 @ 212287:                  PUSHI  #0x00000003
25200 @ 212292:                  JUMPIF >= L_0004
25201 @ 212296:                  PUSH   LPUT
25202 @ 212299:                  PUSH   AREA
25203 @ 212302:                  PUSHI  #0x00000013
25204 @ 212307:                  ADD   
25205 @ 212308:                  ASSPAR
25206 @ 212309:                  PUSHI  #0x00000000
25207 @ 212314:                  ASSPAR
25208 @ 212315:                  PUSH   GLARAD
25209 @ 212318:                  ASSPAR
25210 @ 212319:                  PUSHI  #0x00000000
25211 @ 212324:                  ASSPAR
25212 @ 212325:                  CALL  
25213 @ 212326:                  GOTO   L_0003
25214 @ 212329:                  LOCATE L_0004
25215 @ 212332:                  PUSH   LPUT
25216 @ 212335:                  PUSH   AREA
25217 @ 212338:                  PUSHI  #0x0000000e
25218 @ 212343:                  ADD   
25219 @ 212344:                  ASSPAR
25220 @ 212345:                  PUSHI  #0x00000000
25221 @ 212350:                  ASSPAR
25222 @ 212351:                  PUSH   GLARAD
25223 @ 212354:                  ASSPAR
25224 @ 212355:                  PUSHI  #0x00000000
25225 @ 212360:                  ASSPAR
25226 @ 212361:                  CALL  
25227 @ 212362:                  LOCATE L_0003

  4150           %END
25228 @ 212365:                  LINE   4150 "regression-compile-tmp/imp918s.imp"
25229 @ 212403:               END    _lev0id0_CSS_RELOCATE {lev=3 --> 2}

  4151           %ROUTINE GXREF(%INTEGER MODE,NAME,XTRA,AT)
  4152           {%SHORTROUTINE}
  4153  !***********************************************************************
  4154  !*       ASK LPUT TO ARRANGE TO RELOCATE 1 OR MORE WORDS AT 'AT'       *
  4155  !*       IN THE GLA BY EXTERNAL NAME 'NAME'.                           *
  4156  !*       MODE DEFINES ENTITY:-                                         *
  4157  !*       MODE=0 FOR STATIC XREFS (XTRA='S' OR 'I' FOR #IDENS)          *
  4158  !*       MODE=1 FOR DYNAMIC XREFS                                      *
  4159  !*       MODE=2 FOR DATA REFS XTRA=LMIN                                *
  4160  !*       NAME=0 FOR IOCP REFERENCES                                    *
  4161  !***********************************************************************
25230 @ 212404:               LINE   4151 "regression-compile-tmp/imp918s.imp"
25231 @ 212442:               DEF    GXREF (_lev0id0_CSS_GXREF) p1=V_0197 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
25232 @ 212459:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
25233 @ 212460:                     DEF    MODE p1=V_0203 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
25234 @ 212476:                     DEF    NAME p1=V_0204 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
25235 @ 212492:                     DEF    XTRA p1=V_0205 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
25236 @ 212508:                     DEF    AT p1=V_0206 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
25237 @ 212522:                  FINISH ) {lev=3}

  4162           %INTEGER J,LPUTNO
25238 @ 212523:                  LINE   4162 "regression-compile-tmp/imp918s.imp"
25239 @ 212561:                  DEF    J p1=V_0207 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
25240 @ 212574:                  DEF    LPUTNO p1=V_0208 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

  4163           %STRING(8) ID
25241 @ 212592:                  LINE   4163 "regression-compile-tmp/imp918s.imp"
25242 @ 212630:                  DEF    ID p1=V_0209 a/tf=31 b/format=8 c/ostate=0  type=3 (string) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  4164           %IF NAME<0 %THEN %START
25243 @ 212644:                  LINE   4164 "regression-compile-tmp/imp918s.imp"
25244 @ 212682:                  PUSH   NAME
25245 @ 212685:                  PUSHI  #0x00000000
25246 @ 212690:                  JUMPIF >= L_0004

  4165              %IF NAME=-1 %THEN J=ADDR(IOCP1)+3 %ELSE J=ADDR(IMPMON1)+3
25247 @ 212694:                  LINE   4165 "regression-compile-tmp/imp918s.imp"
25248 @ 212732:                  PUSH   NAME
25249 @ 212735:                  PUSHI  #0x00000001
25250 @ 212740:                  NEGATE
25251 @ 212741:                  JUMPIF # L_0007
25252 @ 212745:                  PUSH   J
25253 @ 212748:                  PUSH   ADDR
25254 @ 212751:                  PUSH   IOCP1
25255 @ 212754:                  ASSPAR
25256 @ 212755:                  CALL  
25257 @ 212756:                  PUSHI  #0x00000003
25258 @ 212761:                  ADD   
25259 @ 212762:                  ASSVAL
25260 @ 212763:                  GOTO   L_0006
25261 @ 212766:                  LOCATE L_0007
25262 @ 212769:                  PUSH   J
25263 @ 212772:                  PUSH   ADDR
25264 @ 212775:                  PUSH   IMPMON1
25265 @ 212778:                  ASSPAR
25266 @ 212779:                  CALL  
25267 @ 212780:                  PUSHI  #0x00000003
25268 @ 212785:                  ADD   
25269 @ 212786:                  ASSVAL
25270 @ 212787:                  LOCATE L_0006

  4166           %FINISH %ELSE J=ADDR(LETT(WORD(NAME)));! J TO NAME TEXT
25271 @ 212790:                  LINE   4166 "regression-compile-tmp/imp918s.imp"
25272 @ 212828:                  GOTO   L_0003
25273 @ 212831:                  LOCATE L_0004
25274 @ 212834:                  PUSH   J
25275 @ 212837:                  PUSH   ADDR
25276 @ 212840:                  PUSH   LETT
25277 @ 212843:                  PUSH   WORD
25278 @ 212846:                  PUSH   NAME
25279 @ 212849:                  ACCESS
25280 @ 212850:                  ACCESS
25281 @ 212851:                  ASSPAR
25282 @ 212852:                  CALL  
25283 @ 212853:                  ASSVAL
25284 @ 212854:                  LOCATE L_0003

  4167           ID<-STRING(J);                ! MOVE IN NAME
25285 @ 212857:                  LINE   4167 "regression-compile-tmp/imp918s.imp"
25286 @ 212895:                  PUSH   ID
25287 @ 212898:                  PUSH   STRING
25288 @ 212901:                  PUSH   J
25289 @ 212904:                  ASSPAR
25290 @ 212905:                  CALL  
25291 @ 212906:                  JAM   

  4168           %IF MODE<=1 %AND XTRA>0 %THEN %C
  4169              ID<-TOSTRING(XTRA)."#".ID
25292 @ 212907:                  LINE   4168 "regression-compile-tmp/imp918s.imp"
25293 @ 212945:                  PUSH   MODE
25294 @ 212948:                  PUSHI  #0x00000001
25295 @ 212953:                  JUMPIF > L_0004
25296 @ 212957:                  PUSH   XTRA
25297 @ 212960:                  PUSHI  #0x00000000
25298 @ 212965:                  JUMPIF <= L_0004
25299 @ 212969:                  PUSH   ID
25300 @ 212972:                  PUSH   TOSTRING
25301 @ 212975:                  PUSH   XTRA
25302 @ 212978:                  ASSPAR
25303 @ 212979:                  CALL  
25304 @ 212980:                  PUSHS  "#"
25305 @ 212983:                  CONCAT
25306 @ 212984:                  PUSH   ID
25307 @ 212987:                  CONCAT
25308 @ 212988:                  JAM   
25309 @ 212989:                  LOCATE L_0004

  4170           %IF MODE=2 %THEN LPUTNO=15 %ELSE LPUTNO=MODE+12
25310 @ 212992:                  LINE   4170 "regression-compile-tmp/imp918s.imp"
25311 @ 213030:                  PUSH   MODE
25312 @ 213033:                  PUSHI  #0x00000002
25313 @ 213038:                  JUMPIF # L_0004
25314 @ 213042:                  PUSH   LPUTNO
25315 @ 213045:                  PUSHI  #0x0000000f
25316 @ 213050:                  ASSVAL
25317 @ 213051:                  GOTO   L_0003
25318 @ 213054:                  LOCATE L_0004
25319 @ 213057:                  PUSH   LPUTNO
25320 @ 213060:                  PUSH   MODE
25321 @ 213063:                  PUSHI  #0x0000000c
25322 @ 213068:                  ADD   
25323 @ 213069:                  ASSVAL
25324 @ 213070:                  LOCATE L_0003

  4171           LPUT(LPUTNO,XTRA,AT,ADDR(ID))
25325 @ 213073:                  LINE   4171 "regression-compile-tmp/imp918s.imp"
25326 @ 213111:                  PUSH   LPUT
25327 @ 213114:                  PUSH   LPUTNO
25328 @ 213117:                  ASSPAR
25329 @ 213118:                  PUSH   XTRA
25330 @ 213121:                  ASSPAR
25331 @ 213122:                  PUSH   AT
25332 @ 213125:                  ASSPAR
25333 @ 213126:                  PUSH   ADDR
25334 @ 213129:                  PUSH   ID
25335 @ 213132:                  ASSPAR
25336 @ 213133:                  CALL  
25337 @ 213134:                  ASSPAR
25338 @ 213135:                  CALL  

  4172           %END
  4173  
25339 @ 213136:                  LINE   4172 "regression-compile-tmp/imp918s.imp"
25340 @ 213174:               END    _lev0id0_CSS_GXREF {lev=3 --> 2}

  4174           %ROUTINE CXREF(%INTEGER MODE,NAME,XTRA,%INTEGERNAME AT)
  4175           {%SHORTROUTINE}
  4176  !***********************************************************************
  4177  !*       CREATE A ZEROED AREA IN THE GLA AND CALL GXREF TO GET         *
  4178  !*       IT FILLED AT LOAD TIME WITH INFORMATION ON AN EXTERNAL OBJECT *
  4179  !*       PARAMETERS ARE AS FOR GXREF.                                  *
  4180  !***********************************************************************
25341 @ 213175:               LINE   4174 "regression-compile-tmp/imp918s.imp"
25342 @ 213213:               DEF    CXREF (_lev0id0_CSS_CXREF) p1=V_0198 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
25343 @ 213230:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
25344 @ 213231:                     DEF    MODE p1=V_0203 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
25345 @ 213247:                     DEF    NAME p1=V_0204 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
25346 @ 213263:                     DEF    XTRA p1=V_0205 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
25347 @ 213279:                     DEF    AT p1=V_0206 a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
25348 @ 213293:                  FINISH ) {lev=3}

  4181           %INTEGER L
25349 @ 213294:                  LINE   4181 "regression-compile-tmp/imp918s.imp"
25350 @ 213332:                  DEF    L p1=V_0207 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

  4182           %IF MODE=2 %THEN L=4 %ELSE L=16;    ! DATA OR ROUTINE
25351 @ 213345:                  LINE   4182 "regression-compile-tmp/imp918s.imp"
25352 @ 213383:                  PUSH   MODE
25353 @ 213386:                  PUSHI  #0x00000002
25354 @ 213391:                  JUMPIF # L_0004
25355 @ 213395:                  PUSH   L
25356 @ 213398:                  PUSHI  #0x00000004
25357 @ 213403:                  ASSVAL
25358 @ 213404:                  GOTO   L_0003
25359 @ 213407:                  LOCATE L_0004
25360 @ 213410:                  PUSH   L
25361 @ 213413:                  PUSHI  #0x00000010
25362 @ 213418:                  ASSVAL
25363 @ 213419:                  LOCATE L_0003

  4183           PGLA(4,L,ADDR(FIXED GLA(7)));       ! 1 OR 4 ZERO WORDS
25364 @ 213422:                  LINE   4183 "regression-compile-tmp/imp918s.imp"
25365 @ 213460:                  PUSH   PGLA
25366 @ 213463:                  PUSHI  #0x00000004
25367 @ 213468:                  ASSPAR
25368 @ 213469:                  PUSH   L
25369 @ 213472:                  ASSPAR
25370 @ 213473:                  PUSH   ADDR
25371 @ 213476:                  PUSH   FIXEDGLA
25372 @ 213479:                  PUSHI  #0x00000007
25373 @ 213484:                  ACCESS
25374 @ 213485:                  ASSPAR
25375 @ 213486:                  CALL  
25376 @ 213487:                  ASSPAR
25377 @ 213488:                  CALL  

  4184           AT=GLACA-L
25378 @ 213489:                  LINE   4184 "regression-compile-tmp/imp918s.imp"
25379 @ 213527:                  PUSH   AT
25380 @ 213530:                  PUSH   GLACA
25381 @ 213533:                  PUSH   L
25382 @ 213536:                  SUB   
25383 @ 213537:                  ASSVAL

  4185           GXREF(MODE,NAME,XTRA,AT)
25384 @ 213538:                  LINE   4185 "regression-compile-tmp/imp918s.imp"
25385 @ 213576:                  PUSH   GXREF
25386 @ 213579:                  PUSH   MODE
25387 @ 213582:                  ASSPAR
25388 @ 213583:                  PUSH   NAME
25389 @ 213586:                  ASSPAR
25390 @ 213587:                  PUSH   XTRA
25391 @ 213590:                  ASSPAR
25392 @ 213591:                  PUSH   AT
25393 @ 213594:                  ASSPAR
25394 @ 213595:                  CALL  

  4186           %END
25395 @ 213596:                  LINE   4186 "regression-compile-tmp/imp918s.imp"
25396 @ 213634:               END    _lev0id0_CSS_CXREF {lev=3 --> 2}

  4187           %ROUTINE CLT
  4188           {%SHORTROUTINE}
  4189  !***********************************************************************
  4190  !*       DEAL WITH PHRASE TYPE AND SET PREC,TYPE & ACC                 *
  4191  !*       ONLY PROBLEM IS STRING WHICH HAS OPTIONAL MAX LENGTH ALSO     *
  4192  !*       P ON PHRASE TYPE AT ENTRY - TO NEXT PHRASE AT EXIT.           *
  4193  !***********************************************************************
25397 @ 213635:               LINE   4187 "regression-compile-tmp/imp918s.imp"
25398 @ 213673:               DEF    CLT (_lev0id0_CSS_CLT) p1=V_0183 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
25399 @ 213688:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
25400 @ 213689:                  FINISH ) {lev=3}

  4194           TYPE=TYPEFLAG(A(P));       ! TYPEFLAG HOLDS PREC & TYPE
25401 @ 213690:                  LINE   4194 "regression-compile-tmp/imp918s.imp"
25402 @ 213728:                  PUSH   TYPE
25403 @ 213731:                  PUSH   TYPEFLAG
25404 @ 213734:                  PUSH   A
25405 @ 213737:                  PUSH   P
25406 @ 213740:                  ACCESS
25407 @ 213741:                  ACCESS
25408 @ 213742:                  ASSVAL

  4195           PREC=TYPE>>3
25409 @ 213743:                  LINE   4195 "regression-compile-tmp/imp918s.imp"
25410 @ 213781:                  PUSH   PREC
25411 @ 213784:                  PUSH   TYPE
25412 @ 213787:                  PUSHI  #0x00000003
25413 @ 213792:                  RSH   
25414 @ 213793:                  ASSVAL

  4196           TYPE=TYPE&7
25415 @ 213794:                  LINE   4196 "regression-compile-tmp/imp918s.imp"
25416 @ 213832:                  PUSH   TYPE
25417 @ 213835:                  PUSH   TYPE
25418 @ 213838:                  PUSHI  #0x00000007
25419 @ 213843:                  AND   
25420 @ 213844:                  ASSVAL

  4197           %IF PREC=2 %THEN WARN(LINE);   ! WARNING FOR SHORTS
25421 @ 213845:                  LINE   4197 "regression-compile-tmp/imp918s.imp"
25422 @ 213883:                  PUSH   PREC
25423 @ 213886:                  PUSHI  #0x00000002
25424 @ 213891:                  JUMPIF # L_0004
25425 @ 213895:                  PUSH   WARN
25426 @ 213898:                  PUSH   LINE
25427 @ 213901:                  ASSPAR
25428 @ 213902:                  CALL  
25429 @ 213903:                  LOCATE L_0004

  4198           PREC=3 %IF TYPE=2 %AND ALL LONG#0;! DEAL WITH '%REALSLONG'
25430 @ 213906:                  LINE   4198 "regression-compile-tmp/imp918s.imp"
25431 @ 213944:                  PUSH   TYPE
25432 @ 213947:                  PUSHI  #0x00000002
25433 @ 213952:                  JUMPIF # L_0004
25434 @ 213956:                  PUSH   ALLLONG
25435 @ 213959:                  PUSHI  #0x00000000
25436 @ 213964:                  JUMPIF = L_0004
25437 @ 213968:                  PUSH   PREC
25438 @ 213971:                  PUSHI  #0x00000003
25439 @ 213976:                  ASSVAL
25440 @ 213977:                  LOCATE L_0004

  4199           ACC=BYTES(PREC)
25441 @ 213980:                  LINE   4199 "regression-compile-tmp/imp918s.imp"
25442 @ 214018:                  PUSH   ACC
25443 @ 214021:                  PUSH   BYTES
25444 @ 214024:                  PUSH   PREC
25445 @ 214027:                  ACCESS
25446 @ 214028:                  ASSVAL

  4200           %IF TYPE=5 %THEN %START;    ! P<TYPE>='%STRING'
25447 @ 214029:                  LINE   4200 "regression-compile-tmp/imp918s.imp"
25448 @ 214067:                  PUSH   TYPE
25449 @ 214070:                  PUSHI  #0x00000005
25450 @ 214075:                  JUMPIF # L_0004

  4201              %IF A(P+1)=1 %THEN %START;! MAX LENGTH GIVEN
25451 @ 214079:                  LINE   4201 "regression-compile-tmp/imp918s.imp"
25452 @ 214117:                  PUSH   A
25453 @ 214120:                  PUSH   P
25454 @ 214123:                  PUSHI  #0x00000001
25455 @ 214128:                  ADD   
25456 @ 214129:                  ACCESS
25457 @ 214130:                  PUSHI  #0x00000001
25458 @ 214135:                  JUMPIF # L_0007

  4202                 P=P+2
25459 @ 214139:                  LINE   4202 "regression-compile-tmp/imp918s.imp"
25460 @ 214177:                  PUSH   P
25461 @ 214180:                  PUSH   P
25462 @ 214183:                  PUSHI  #0x00000002
25463 @ 214188:                  ADD   
25464 @ 214189:                  ASSVAL

  4203                 ACC=A(P)+1
25465 @ 214190:                  LINE   4203 "regression-compile-tmp/imp918s.imp"
25466 @ 214228:                  PUSH   ACC
25467 @ 214231:                  PUSH   A
25468 @ 214234:                  PUSH   P
25469 @ 214237:                  ACCESS
25470 @ 214238:                  PUSHI  #0x00000001
25471 @ 214243:                  ADD   
25472 @ 214244:                  ASSVAL

  4204                 FAULT(70,0) %UNLESS 2<=ACC<=256
25473 @ 214245:                  LINE   4204 "regression-compile-tmp/imp918s.imp"
25474 @ 214283:                  PUSHI  #0x00000002
25475 @ 214288:                  PUSH   ACC
25476 @ 214291:                  JUMPIFD > L_000b
25477 @ 214295:                  PUSHI  #0x00000100
25478 @ 214300:                  JUMPIF <= L_000a
25479 @ 214304:                  LOCATE L_000b
25480 @ 214307:                  PUSH   FAULT
25481 @ 214310:                  PUSHI  #0x00000046
25482 @ 214315:                  ASSPAR
25483 @ 214316:                  PUSHI  #0x00000000
25484 @ 214321:                  ASSPAR
25485 @ 214322:                  CALL  
25486 @ 214323:                  LOCATE L_000a

  4205              %FINISH %ELSE ACC=0 %AND P=P+1
25487 @ 214326:                  LINE   4205 "regression-compile-tmp/imp918s.imp"
25488 @ 214364:                  GOTO   L_0006
25489 @ 214367:                  LOCATE L_0007
25490 @ 214370:                  PUSH   ACC
25491 @ 214373:                  PUSHI  #0x00000000
25492 @ 214378:                  ASSVAL
25493 @ 214379:                  PUSH   P
25494 @ 214382:                  PUSH   P
25495 @ 214385:                  PUSHI  #0x00000001
25496 @ 214390:                  ADD   
25497 @ 214391:                  ASSVAL
25498 @ 214392:                  LOCATE L_0006

  4206           %FINISH
25499 @ 214395:                  LINE   4206 "regression-compile-tmp/imp918s.imp"
25500 @ 214433:                  LOCATE L_0004

  4207           P=P+1
25501 @ 214436:                  LINE   4207 "regression-compile-tmp/imp918s.imp"
25502 @ 214474:                  PUSH   P
25503 @ 214477:                  PUSH   P
25504 @ 214480:                  PUSHI  #0x00000001
25505 @ 214485:                  ADD   
25506 @ 214486:                  ASSVAL

  4208           %END
25507 @ 214487:                  LINE   4208 "regression-compile-tmp/imp918s.imp"
25508 @ 214525:               END    _lev0id0_CSS_CLT {lev=3 --> 2}

  4209           %ROUTINE CQN(%INTEGER P)
  4210           {%SHORTROUTINE}
  4211  !***********************************************************************
  4212  !*       SET NAM,ARR & ACC FROM ALTERNATIVE OF PHRASE <QNAME'>         *
  4213  !*       P<QNAME'>='%ARRAYNAME','%NAME',<%NULL>                        *
  4214  !*       P POINTS TO THE ANALYSIS RECORD ENTRY AS IS NOT UPDATED       *
  4215  !***********************************************************************
25509 @ 214526:               LINE   4209 "regression-compile-tmp/imp918s.imp"
25510 @ 214564:               DEF    CQN (_lev0id0_CSS_CQN) p1=V_0182 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
25511 @ 214579:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
25512 @ 214580:                     DEF    P p1=V_0203 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
25513 @ 214593:                  FINISH ) {lev=3}

  4216           %BYTEINTEGER I
25514 @ 214594:                  LINE   4216 "regression-compile-tmp/imp918s.imp"
25515 @ 214632:                  DEF    I p1=V_0204 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0

  4217           I=A(P);NAM=0;ARR=0
25516 @ 214645:                  LINE   4217 "regression-compile-tmp/imp918s.imp"
25517 @ 214683:                  PUSH   I
25518 @ 214686:                  PUSH   A
25519 @ 214689:                  PUSH   P
25520 @ 214692:                  ACCESS
25521 @ 214693:                  ASSVAL
25522 @ 214694:                  LINE   4217 "regression-compile-tmp/imp918s.imp"
25523 @ 214732:                  PUSH   NAM
25524 @ 214735:                  PUSHI  #0x00000000
25525 @ 214740:                  ASSVAL
25526 @ 214741:                  LINE   4217 "regression-compile-tmp/imp918s.imp"
25527 @ 214779:                  PUSH   ARR
25528 @ 214782:                  PUSHI  #0x00000000
25529 @ 214787:                  ASSVAL

  4218           %IF I=1 %THEN ARR=1 %AND ACC=16; ! ARRAYNAMES
25530 @ 214788:                  LINE   4218 "regression-compile-tmp/imp918s.imp"
25531 @ 214826:                  PUSH   I
25532 @ 214829:                  PUSHI  #0x00000001
25533 @ 214834:                  JUMPIF # L_0004
25534 @ 214838:                  PUSH   ARR
25535 @ 214841:                  PUSHI  #0x00000001
25536 @ 214846:                  ASSVAL
25537 @ 214847:                  PUSH   ACC
25538 @ 214850:                  PUSHI  #0x00000010
25539 @ 214855:                  ASSVAL
25540 @ 214856:                  LOCATE L_0004

  4219           %IF I<=2 %THEN NAM=1;           ! ARRAYNAMES & NAMES
25541 @ 214859:                  LINE   4219 "regression-compile-tmp/imp918s.imp"
25542 @ 214897:                  PUSH   I
25543 @ 214900:                  PUSHI  #0x00000002
25544 @ 214905:                  JUMPIF > L_0004
25545 @ 214909:                  PUSH   NAM
25546 @ 214912:                  PUSHI  #0x00000001
25547 @ 214917:                  ASSVAL
25548 @ 214918:                  LOCATE L_0004

  4220           %IF I=2 %THEN ACC=4;            ! NAMES USE 4-BYTE POINTER
25549 @ 214921:                  LINE   4220 "regression-compile-tmp/imp918s.imp"
25550 @ 214959:                  PUSH   I
25551 @ 214962:                  PUSHI  #0x00000002
25552 @ 214967:                  JUMPIF # L_0004
25553 @ 214971:                  PUSH   ACC
25554 @ 214974:                  PUSHI  #0x00000004
25555 @ 214979:                  ASSVAL
25556 @ 214980:                  LOCATE L_0004

  4221           %END
25557 @ 214983:                  LINE   4221 "regression-compile-tmp/imp918s.imp"
25558 @ 215021:               END    _lev0id0_CSS_CQN {lev=3 --> 2}

  4222           %ROUTINE     RHEAD(%INTEGER KK)
  4223           {%SHORTROUTINE}
  4224  !***********************************************************************
  4225  !*       COMPILES CODE FOR BLOCK AND ROUTINE ENTRY                     *
  4226  !*       KK IS THE RT/FN/MAP NAME (=-1 FOR %BEGIN BLOCKS)              *
  4227  !*       FLAGP IS AS KK EXCEPT FLAGP=10000 IS USED TO DISTINGUISH      *
  4228  !*       THE FIRST (PERM) BEGIN WHICH HAS TO BE TREATED AS A ROUTINE   *
  4229  !*       ROUTINE TAGS ARE AS FOLLOWS:-                                 *
  4230  !*       SNDISP = WORD(!) DISPLACEMENT OF EP(REF)FROM HEAD OF CODE(GLA)*
  4231  !*        (OR)  = LISTHEAD OF OUTSTANDING FORWARD REFS                 *
  4232  !*       KFORM  = PSIMPLE<<12 ! NO OF PARAMS                           *
  4233  !*       K      = LIST OF FORMAL PARAMETER DESCRIPTIONS                *
  4234  !***********************************************************************
25559 @ 215022:               LINE   4222 "regression-compile-tmp/imp918s.imp"
25560 @ 215060:               DEF    RHEAD (_lev0id0_CSS_RHEAD) p1=V_01a5 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
25561 @ 215077:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
25562 @ 215078:                     DEF    KK p1=V_0203 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
25563 @ 215092:                  FINISH ) {lev=3}

  4235           %INTEGER FLAGP,W1,W2,W3,BASED,AT,WK
25564 @ 215093:                  LINE   4235 "regression-compile-tmp/imp918s.imp"
25565 @ 215131:                  DEF    FLAGP p1=V_0204 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
25566 @ 215148:                  DEF    W1 p1=V_0205 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
25567 @ 215162:                  DEF    W2 p1=V_0206 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
25568 @ 215176:                  DEF    W3 p1=V_0207 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
25569 @ 215190:                  DEF    BASED p1=V_0208 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
25570 @ 215207:                  DEF    AT p1=V_0209 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
25571 @ 215221:                  DEF    WK p1=V_020a 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

  4236           PUSH123(LEVELINF,NMDECS<<24!CODEBASE,NMAX<<16!SBFLAG<<15!N,%C
  4237               RNEXT<<16!FLAG)
25572 @ 215235:                  LINE   4236 "regression-compile-tmp/imp918s.imp"
25573 @ 215273:                  PUSH   PUSH123
25574 @ 215276:                  PUSH   LEVELINF
25575 @ 215279:                  ASSPAR
25576 @ 215280:                  PUSH   NMDECS
25577 @ 215283:                  PUSHI  #0x00000018
25578 @ 215288:                  LSH   
25579 @ 215289:                  PUSH   CODEBASE
25580 @ 215292:                  OR    
25581 @ 215293:                  ASSPAR
25582 @ 215294:                  PUSH   NMAX
25583 @ 215297:                  PUSHI  #0x00000010
25584 @ 215302:                  LSH   
25585 @ 215303:                  PUSH   SBFLAG
25586 @ 215306:                  PUSHI  #0x0000000f
25587 @ 215311:                  LSH   
25588 @ 215312:                  OR    
25589 @ 215313:                  PUSH   N
25590 @ 215316:                  OR    
25591 @ 215317:                  ASSPAR
25592 @ 215318:                  PUSH   RNEXT
25593 @ 215321:                  PUSHI  #0x00000010
25594 @ 215326:                  LSH   
25595 @ 215327:                  PUSH   FLAG
25596 @ 215330:                  OR    
25597 @ 215331:                  ASSPAR
25598 @ 215332:                  CALL  

  4238           FLAGP=KK;FLAGP=10000 %IF RLEVEL=0
25599 @ 215333:                  LINE   4238 "regression-compile-tmp/imp918s.imp"
25600 @ 215371:                  PUSH   FLAGP
25601 @ 215374:                  PUSH   KK
25602 @ 215377:                  ASSVAL
25603 @ 215378:                  LINE   4238 "regression-compile-tmp/imp918s.imp"
25604 @ 215416:                  PUSH   RLEVEL
25605 @ 215419:                  PUSHI  #0x00000000
25606 @ 215424:                  JUMPIF # L_0004
25607 @ 215428:                  PUSH   FLAGP
25608 @ 215431:                  PUSHI  #0x00002710
25609 @ 215436:                  ASSVAL
25610 @ 215437:                  LOCATE L_0004

  4239           %IF LIST=0 %AND RLEVEL#0 %THEN %START;  ! OUTPUT HEADER
25611 @ 215440:                  LINE   4239 "regression-compile-tmp/imp918s.imp"
25612 @ 215478:                  PUSH   LIST
25613 @ 215481:                  PUSHI  #0x00000000
25614 @ 215486:                  JUMPIF # L_0004
25615 @ 215490:                  PUSH   RLEVEL
25616 @ 215493:                  PUSHI  #0x00000000
25617 @ 215498:                  JUMPIF = L_0004

  4240              NEWLINE;WRITE(LINE,5)
25618 @ 215502:                  LINE   4240 "regression-compile-tmp/imp918s.imp"
25619 @ 215540:                  PUSH   NEWLINE
25620 @ 215543:                  CALL  
25621 @ 215544:                  LINE   4240 "regression-compile-tmp/imp918s.imp"
25622 @ 215582:                  PUSH   WRITE
25623 @ 215585:                  PUSH   LINE
25624 @ 215588:                  ASSPAR
25625 @ 215589:                  PUSHI  #0x00000005
25626 @ 215594:                  ASSPAR
25627 @ 215595:                  CALL  

  4241              %IF PRINTMAP=1 %THEN SPACES(3) %AND PRHEX(CA,5)
25628 @ 215596:                  LINE   4241 "regression-compile-tmp/imp918s.imp"
25629 @ 215634:                  PUSH   PRINTMAP
25630 @ 215637:                  PUSHI  #0x00000001
25631 @ 215642:                  JUMPIF # L_0007
25632 @ 215646:                  PUSH   SPACES
25633 @ 215649:                  PUSHI  #0x00000003
25634 @ 215654:                  ASSPAR
25635 @ 215655:                  CALL  
25636 @ 215656:                  PUSH   PRHEX
25637 @ 215659:                  PUSH   CA
25638 @ 215662:                  ASSPAR
25639 @ 215663:                  PUSHI  #0x00000005
25640 @ 215668:                  ASSPAR
25641 @ 215669:                  CALL  
25642 @ 215670:                  LOCATE L_0007

  4242              SPACES(3*LEVEL)
25643 @ 215673:                  LINE   4242 "regression-compile-tmp/imp918s.imp"
25644 @ 215711:                  PUSH   SPACES
25645 @ 215714:                  PUSHI  #0x00000003
25646 @ 215719:                  PUSH   LEVEL
25647 @ 215722:                  MUL   
25648 @ 215723:                  ASSPAR
25649 @ 215724:                  CALL  

  4243              %IF KK<0 %THEN printstring("BEGIN") %ELSE %START
25650 @ 215725:                  LINE   4243 "regression-compile-tmp/imp918s.imp"
25651 @ 215763:                  PUSH   KK
25652 @ 215766:                  PUSHI  #0x00000000
25653 @ 215771:                  JUMPIF >= L_0007
25654 @ 215775:                  PUSH   PRINTSTRING
25655 @ 215778:                  PUSHS  "BEGIN"
25656 @ 215785:                  ASSPAR
25657 @ 215786:                  CALL  
25658 @ 215787:                  GOTO   L_0006
25659 @ 215790:                  LOCATE L_0007

  4244                 %IF PTYPE=10000 %THEN printstring("RT ") %ELSE %C
  4245                    printstring("FN/MAP ")
25660 @ 215793:                  LINE   4244 "regression-compile-tmp/imp918s.imp"
25661 @ 215831:                  PUSH   PTYPE
25662 @ 215834:                  PUSHI  #0x00002710
25663 @ 215839:                  JUMPIF # L_000a
25664 @ 215843:                  PUSH   PRINTSTRING
25665 @ 215846:                  PUSHS  "RT "
25666 @ 215851:                  ASSPAR
25667 @ 215852:                  CALL  
25668 @ 215853:                  GOTO   L_0009
25669 @ 215856:                  LOCATE L_000a
25670 @ 215859:                  PUSH   PRINTSTRING
25671 @ 215862:                  PUSHS  "FN/MAP "
25672 @ 215871:                  ASSPAR
25673 @ 215872:                  CALL  
25674 @ 215873:                  LOCATE L_0009

  4246                 PRINTNAME(KK)
25675 @ 215876:                  LINE   4246 "regression-compile-tmp/imp918s.imp"
25676 @ 215914:                  PUSH   PRINTNAME
25677 @ 215917:                  PUSH   KK
25678 @ 215920:                  ASSPAR
25679 @ 215921:                  CALL  

  4247             %FINISH
25680 @ 215922:                  LINE   4247 "regression-compile-tmp/imp918s.imp"
25681 @ 215960:                  LOCATE L_0006

  4248           %FINISH
25682 @ 215963:                  LINE   4248 "regression-compile-tmp/imp918s.imp"
25683 @ 216001:                  LOCATE L_0004

  4249           LEVEL=LEVEL+1
25684 @ 216004:                  LINE   4249 "regression-compile-tmp/imp918s.imp"
25685 @ 216042:                  PUSH   LEVEL
25686 @ 216045:                  PUSH   LEVEL
25687 @ 216048:                  PUSHI  #0x00000001
25688 @ 216053:                  ADD   
25689 @ 216054:                  ASSVAL

  4250           NAMES(LEVEL)=-1
25690 @ 216055:                  LINE   4250 "regression-compile-tmp/imp918s.imp"
25691 @ 216093:                  PUSH   NAMES
25692 @ 216096:                  PUSH   LEVEL
25693 @ 216099:                  ACCESS
25694 @ 216100:                  PUSHI  #0x00000001
25695 @ 216105:                  NEGATE
25696 @ 216106:                  ASSVAL

  4251           %IF FLAGP>=0 %THEN %START
25697 @ 216107:                  LINE   4251 "regression-compile-tmp/imp918s.imp"
25698 @ 216145:                  PUSH   FLAGP
25699 @ 216148:                  PUSHI  #0x00000000
25700 @ 216153:                  JUMPIF < L_0004

  4252              RLEVEL=RLEVEL+1; RBASE=10-RLEVEL
25701 @ 216157:                  LINE   4252 "regression-compile-tmp/imp918s.imp"
25702 @ 216195:                  PUSH   RLEVEL
25703 @ 216198:                  PUSH   RLEVEL
25704 @ 216201:                  PUSHI  #0x00000001
25705 @ 216206:                  ADD   
25706 @ 216207:                  ASSVAL
25707 @ 216208:                  LINE   4252 "regression-compile-tmp/imp918s.imp"
25708 @ 216246:                  PUSH   RBASE
25709 @ 216249:                  PUSHI  #0x0000000a
25710 @ 216254:                  PUSH   RLEVEL
25711 @ 216257:                  SUB   
25712 @ 216258:                  ASSVAL

  4253              FAULT(35,0) %IF RBASE=4 %OR REGISTER(RBASE)#0
25713 @ 216259:                  LINE   4253 "regression-compile-tmp/imp918s.imp"
25714 @ 216297:                  PUSH   RBASE
25715 @ 216300:                  PUSHI  #0x00000004
25716 @ 216305:                  JUMPIF = L_0008
25717 @ 216309:                  PUSH   REGISTER
25718 @ 216312:                  PUSH   RBASE
25719 @ 216315:                  ACCESS
25720 @ 216316:                  PUSHI  #0x00000000
25721 @ 216321:                  JUMPIF = L_0007
25722 @ 216325:                  LOCATE L_0008
25723 @ 216328:                  PUSH   FAULT
25724 @ 216331:                  PUSHI  #0x00000023
25725 @ 216336:                  ASSPAR
25726 @ 216337:                  PUSHI  #0x00000000
25727 @ 216342:                  ASSPAR
25728 @ 216343:                  CALL  
25729 @ 216344:                  LOCATE L_0007

  4254              FORGET(RBASE); REGISTER(RBASE)=-1
25730 @ 216347:                  LINE   4254 "regression-compile-tmp/imp918s.imp"
25731 @ 216385:                  PUSH   FORGET
25732 @ 216388:                  PUSH   RBASE
25733 @ 216391:                  ASSPAR
25734 @ 216392:                  CALL  
25735 @ 216393:                  LINE   4254 "regression-compile-tmp/imp918s.imp"
25736 @ 216431:                  PUSH   REGISTER
25737 @ 216434:                  PUSH   RBASE
25738 @ 216437:                  ACCESS
25739 @ 216438:                  PUSHI  #0x00000001
25740 @ 216443:                  NEGATE
25741 @ 216444:                  ASSVAL

  4255           %FINISH
25742 @ 216445:                  LINE   4255 "regression-compile-tmp/imp918s.imp"
25743 @ 216483:                  LOCATE L_0004

  4256           FAULT(34,0) %IF LEVEL=10
25744 @ 216486:                  LINE   4256 "regression-compile-tmp/imp918s.imp"
25745 @ 216524:                  PUSH   LEVEL
25746 @ 216527:                  PUSHI  #0x0000000a
25747 @ 216532:                  JUMPIF # L_0004
25748 @ 216536:                  PUSH   FAULT
25749 @ 216539:                  PUSHI  #0x00000022
25750 @ 216544:                  ASSPAR
25751 @ 216545:                  PUSHI  #0x00000000
25752 @ 216550:                  ASSPAR
25753 @ 216551:                  CALL  
25754 @ 216552:                  LOCATE L_0004

  4257           FAULT(105,0) %IF LEVEL>MAX LEVELS
25755 @ 216555:                  LINE   4257 "regression-compile-tmp/imp918s.imp"
25756 @ 216593:                  PUSH   LEVEL
25757 @ 216596:                  PUSHI  #0x0000000b
25758 @ 216601:                  JUMPIF <= L_0004
25759 @ 216605:                  PUSH   FAULT
25760 @ 216608:                  PUSHI  #0x00000069
25761 @ 216613:                  ASSPAR
25762 @ 216614:                  PUSHI  #0x00000000
25763 @ 216619:                  ASSPAR
25764 @ 216620:                  CALL  
25765 @ 216621:                  LOCATE L_0004

  4258           NMDECS=0
25766 @ 216624:                  LINE   4258 "regression-compile-tmp/imp918s.imp"
25767 @ 216662:                  PUSH   NMDECS
25768 @ 216665:                  PUSHI  #0x00000000
25769 @ 216670:                  ASSVAL

  4259           %IF FLAGP<0 %THEN %START;       ! BEGIN BLOCKS
25770 @ 216671:                  LINE   4259 "regression-compile-tmp/imp918s.imp"
25771 @ 216709:                  PUSH   FLAGP
25772 @ 216712:                  PUSHI  #0x00000000
25773 @ 216717:                  JUMPIF >= L_0004

  4260              PRX(X'90',10,11,RBASE,N);    ! STM 10,11,?
25774 @ 216721:                  LINE   4260 "regression-compile-tmp/imp918s.imp"
25775 @ 216759:                  PUSH   PRX
25776 @ 216762:                  PUSHI  #0x00000090
25777 @ 216767:                  ASSPAR
25778 @ 216768:                  PUSHI  #0x0000000a
25779 @ 216773:                  ASSPAR
25780 @ 216774:                  PUSHI  #0x0000000b
25781 @ 216779:                  ASSPAR
25782 @ 216780:                  PUSH   RBASE
25783 @ 216783:                  ASSPAR
25784 @ 216784:                  PUSH   N
25785 @ 216787:                  ASSPAR
25786 @ 216788:                  CALL  

  4261              N=N+12; W2=N-4
25787 @ 216789:                  LINE   4261 "regression-compile-tmp/imp918s.imp"
25788 @ 216827:                  PUSH   N
25789 @ 216830:                  PUSH   N
25790 @ 216833:                  PUSHI  #0x0000000c
25791 @ 216838:                  ADD   
25792 @ 216839:                  ASSVAL
25793 @ 216840:                  LINE   4261 "regression-compile-tmp/imp918s.imp"
25794 @ 216878:                  PUSH   W2
25795 @ 216881:                  PUSH   N
25796 @ 216884:                  PUSHI  #0x00000004
25797 @ 216889:                  SUB   
25798 @ 216890:                  ASSVAL

  4262           %FINISH
25799 @ 216891:                  LINE   4262 "regression-compile-tmp/imp918s.imp"
25800 @ 216929:                  LOCATE L_0004

  4263           %IF KK>=0 %THEN %START;      ! ROUTINE ENTRY
25801 @ 216932:                  LINE   4263 "regression-compile-tmp/imp918s.imp"
25802 @ 216970:                  PUSH   KK
25803 @ 216973:                  PUSHI  #0x00000000
25804 @ 216978:                  JUMPIF < L_0004

  4264              %IF SNDISP=0 %AND EXTRN=4 %START; ! REPLACE 'NOT USED' BIT
25805 @ 216982:                  LINE   4264 "regression-compile-tmp/imp918s.imp"
25806 @ 217020:                  PUSH   SNDISP
25807 @ 217023:                  PUSHI  #0x00000000
25808 @ 217028:                  JUMPIF # L_0007
25809 @ 217032:                  PUSH   EXTRN
25810 @ 217035:                  PUSHI  #0x00000004
25811 @ 217040:                  JUMPIF # L_0007

  4265                 REPLACE1(TAGS(KK),FROM1(TAGS(KK))&X'FFFF0FFF')
25812 @ 217044:                  LINE   4265 "regression-compile-tmp/imp918s.imp"
25813 @ 217082:                  PUSH   REPLACE1
25814 @ 217085:                  PUSH   TAGS
25815 @ 217088:                  PUSH   KK
25816 @ 217091:                  ACCESS
25817 @ 217092:                  ASSPAR
25818 @ 217093:                  PUSH   FROM1
25819 @ 217096:                  PUSH   TAGS
25820 @ 217099:                  PUSH   KK
25821 @ 217102:                  ACCESS
25822 @ 217103:                  ASSPAR
25823 @ 217104:                  CALL  
25824 @ 217105:                  PUSHI  #0xffff0fff
25825 @ 217110:                  AND   
25826 @ 217111:                  ASSPAR
25827 @ 217112:                  CALL  

  4266              %FINISH
  4267  !
  4268  ! NOW FILL ANY JUMPS TO THIS ROUTINE PLANTED SINCE
  4269  ! THE ROUTINESPEC WAS COMPILED. SEE ALSO 'RT JUMP'
  4270  !
25828 @ 217113:                  LINE   4266 "regression-compile-tmp/imp918s.imp"
25829 @ 217151:                  LOCATE L_0007

  4271              %WHILE SNDISP#0 %CYCLE
25830 @ 217154:                  LINE   4271 "regression-compile-tmp/imp918s.imp"
25831 @ 217192:                  LOCATE L_0006
25832 @ 217195:                  PUSH   SNDISP
25833 @ 217198:                  PUSHI  #0x00000000
25834 @ 217203:                  JUMPIF = L_0007

  4272                 POP123(SNDISP,BASED,AT,W1)
25835 @ 217207:                  LINE   4272 "regression-compile-tmp/imp918s.imp"
25836 @ 217245:                  PUSH   POP123
25837 @ 217248:                  PUSH   SNDISP
25838 @ 217251:                  ASSPAR
25839 @ 217252:                  PUSH   BASED
25840 @ 217255:                  ASSPAR
25841 @ 217256:                  PUSH   AT
25842 @ 217259:                  ASSPAR
25843 @ 217260:                  PUSH   W1
25844 @ 217263:                  ASSPAR
25845 @ 217264:                  CALL  

  4273                 W2=CA-BASED
25846 @ 217265:                  LINE   4273 "regression-compile-tmp/imp918s.imp"
25847 @ 217303:                  PUSH   W2
25848 @ 217306:                  PUSH   CA
25849 @ 217309:                  PUSH   BASED
25850 @ 217312:                  SUB   
25851 @ 217313:                  ASSVAL

  4274                 %IF W1=0 %THEN %START
25852 @ 217314:                  LINE   4274 "regression-compile-tmp/imp918s.imp"
25853 @ 217352:                  PUSH   W1
25854 @ 217355:                  PUSHI  #0x00000000
25855 @ 217360:                  JUMPIF # L_000a

  4275                    WK=PTBASE+W2>>12<<2
25856 @ 217364:                  LINE   4275 "regression-compile-tmp/imp918s.imp"
25857 @ 217402:                  PUSH   WK
25858 @ 217405:                  PUSHI  #0x00000100
25859 @ 217410:                  PUSH   W2
25860 @ 217413:                  PUSHI  #0x0000000c
25861 @ 217418:                  RSH   
25862 @ 217419:                  PUSHI  #0x00000002
25863 @ 217424:                  LSH   
25864 @ 217425:                  ADD   
25865 @ 217426:                  ASSVAL

  4276                    %IF W2<=4095 %THEN %START
25866 @ 217427:                  LINE   4276 "regression-compile-tmp/imp918s.imp"
25867 @ 217465:                  PUSH   W2
25868 @ 217468:                  PUSHI  #0x00000fff
25869 @ 217473:                  JUMPIF > L_000d

  4277                       PLUG(1,AT,X'41DD');      ! OVERWRITE THE ADD
25870 @ 217477:                  LINE   4277 "regression-compile-tmp/imp918s.imp"
25871 @ 217515:                  PUSH   PLUG
25872 @ 217518:                  PUSHI  #0x00000001
25873 @ 217523:                  ASSPAR
25874 @ 217524:                  PUSH   AT
25875 @ 217527:                  ASSPAR
25876 @ 217528:                  PUSHI  #0x000041dd
25877 @ 217533:                  ASSPAR
25878 @ 217534:                  CALL  

  4278                       WK=0;                  ! WITH LA 13,0(13) AS NO-OP
25879 @ 217535:                  LINE   4278 "regression-compile-tmp/imp918s.imp"
25880 @ 217573:                  PUSH   WK
25881 @ 217576:                  PUSHI  #0x00000000
25882 @ 217581:                  ASSVAL

  4279                    %FINISH
25883 @ 217582:                  LINE   4279 "regression-compile-tmp/imp918s.imp"
25884 @ 217620:                  LOCATE L_000d

  4280                    PLUG(1,AT+2,WK)
25885 @ 217623:                  LINE   4280 "regression-compile-tmp/imp918s.imp"
25886 @ 217661:                  PUSH   PLUG
25887 @ 217664:                  PUSHI  #0x00000001
25888 @ 217669:                  ASSPAR
25889 @ 217670:                  PUSH   AT
25890 @ 217673:                  PUSHI  #0x00000002
25891 @ 217678:                  ADD   
25892 @ 217679:                  ASSPAR
25893 @ 217680:                  PUSH   WK
25894 @ 217683:                  ASSPAR
25895 @ 217684:                  CALL  

  4281                    AT=AT+4
  4282              
25896 @ 217685:                  LINE   4281 "regression-compile-tmp/imp918s.imp"
25897 @ 217723:                  PUSH   AT
25898 @ 217726:                  PUSH   AT
25899 @ 217729:                  PUSHI  #0x00000004
25900 @ 217734:                  ADD   
25901 @ 217735:                  ASSVAL

  4283                 %FINISH %ELSE %START
25902 @ 217736:                  LINE   4283 "regression-compile-tmp/imp918s.imp"
25903 @ 217774:                  GOTO   L_0009
25904 @ 217777:                  LOCATE L_000a

  4284                    FAULT(99,0) %IF W2>4095
25905 @ 217780:                  LINE   4284 "regression-compile-tmp/imp918s.imp"
25906 @ 217818:                  PUSH   W2
25907 @ 217821:                  PUSHI  #0x00000fff
25908 @ 217826:                  JUMPIF <= L_000d
25909 @ 217830:                  PUSH   FAULT
25910 @ 217833:                  PUSHI  #0x00000063
25911 @ 217838:                  ASSPAR
25912 @ 217839:                  PUSHI  #0x00000000
25913 @ 217844:                  ASSPAR
25914 @ 217845:                  CALL  
25915 @ 217846:                  LOCATE L_000d

  4285                 %FINISH
25916 @ 217849:                  LINE   4285 "regression-compile-tmp/imp918s.imp"
25917 @ 217887:                  LOCATE L_0009

  4286                 PLUG(1,AT+2,W2&4095)
25918 @ 217890:                  LINE   4286 "regression-compile-tmp/imp918s.imp"
25919 @ 217928:                  PUSH   PLUG
25920 @ 217931:                  PUSHI  #0x00000001
25921 @ 217936:                  ASSPAR
25922 @ 217937:                  PUSH   AT
25923 @ 217940:                  PUSHI  #0x00000002
25924 @ 217945:                  ADD   
25925 @ 217946:                  ASSPAR
25926 @ 217947:                  PUSH   W2
25927 @ 217950:                  PUSHI  #0x00000fff
25928 @ 217955:                  AND   
25929 @ 217956:                  ASSPAR
25930 @ 217957:                  CALL  

  4287              %REPEAT
25931 @ 217958:                  LINE   4287 "regression-compile-tmp/imp918s.imp"
25932 @ 217996:                  REPEAT L_0006
25933 @ 217999:                  LOCATE L_0007

  4288              SNDISP<-CA>>2
25934 @ 218002:                  LINE   4288 "regression-compile-tmp/imp918s.imp"
25935 @ 218040:                  PUSH   SNDISP
25936 @ 218043:                  PUSH   CA
25937 @ 218046:                  PUSHI  #0x00000002
25938 @ 218051:                  RSH   
25939 @ 218052:                  JAM   

  4289              REPLACE2(TCELL,INTEGER(ADDR(SNDISP)));! NOTE ADDR FOR FUTURE CALLS
25940 @ 218053:                  LINE   4289 "regression-compile-tmp/imp918s.imp"
25941 @ 218091:                  PUSH   REPLACE2
25942 @ 218094:                  PUSH   TCELL
25943 @ 218097:                  ASSPAR
25944 @ 218098:                  PUSH   INTEGER
25945 @ 218101:                  PUSH   ADDR
25946 @ 218104:                  PUSH   SNDISP
25947 @ 218107:                  ASSPAR
25948 @ 218108:                  CALL  
25949 @ 218109:                  ASSPAR
25950 @ 218110:                  CALL  
25951 @ 218111:                  ASSPAR
25952 @ 218112:                  CALL  

  4290              PCONST(X'50FB003C');          ! SAVE LINK -- ST 15,60(11)
25953 @ 218113:                  LINE   4290 "regression-compile-tmp/imp918s.imp"
25954 @ 218151:                  PUSH   PCONST
25955 @ 218154:                  PUSHI  #0x50fb003c
25956 @ 218159:                  ASSPAR
25957 @ 218160:                  CALL  

  4291              W2=0
25958 @ 218161:                  LINE   4291 "regression-compile-tmp/imp918s.imp"
25959 @ 218199:                  PUSH   W2
25960 @ 218202:                  PUSHI  #0x00000000
25961 @ 218207:                  ASSVAL

  4292           %FINISH
25962 @ 218208:                  LINE   4292 "regression-compile-tmp/imp918s.imp"
25963 @ 218246:                  LOCATE L_0004

  4293           PRR(X'18',RBASE,WSPR) %UNLESS FLAGP<0
25964 @ 218249:                  LINE   4293 "regression-compile-tmp/imp918s.imp"
25965 @ 218287:                  PUSH   FLAGP
25966 @ 218290:                  PUSHI  #0x00000000
25967 @ 218295:                  JUMPIF < L_0004
25968 @ 218299:                  PUSH   PRR
25969 @ 218302:                  PUSHI  #0x00000018
25970 @ 218307:                  ASSPAR
25971 @ 218308:                  PUSH   RBASE
25972 @ 218311:                  ASSPAR
25973 @ 218312:                  PUSHI  #0x0000000b
25974 @ 218317:                  ASSPAR
25975 @ 218318:                  CALL  
25976 @ 218319:                  LOCATE L_0004

  4294           %IF KK<0 %THEN W3=0 %ELSE W3=WORD(KK)
25977 @ 218322:                  LINE   4294 "regression-compile-tmp/imp918s.imp"
25978 @ 218360:                  PUSH   KK
25979 @ 218363:                  PUSHI  #0x00000000
25980 @ 218368:                  JUMPIF >= L_0004
25981 @ 218372:                  PUSH   W3
25982 @ 218375:                  PUSHI  #0x00000000
25983 @ 218380:                  ASSVAL
25984 @ 218381:                  GOTO   L_0003
25985 @ 218384:                  LOCATE L_0004
25986 @ 218387:                  PUSH   W3
25987 @ 218390:                  PUSH   WORD
25988 @ 218393:                  PUSH   KK
25989 @ 218396:                  ACCESS
25990 @ 218397:                  ASSVAL
25991 @ 218398:                  LOCATE L_0003

  4295           L(LEVEL)=LINE;M(LEVEL)=W3
25992 @ 218401:                  LINE   4295 "regression-compile-tmp/imp918s.imp"
25993 @ 218439:                  PUSH   L
25994 @ 218442:                  PUSH   LEVEL
25995 @ 218445:                  ACCESS
25996 @ 218446:                  PUSH   LINE
25997 @ 218449:                  ASSVAL
25998 @ 218450:                  LINE   4295 "regression-compile-tmp/imp918s.imp"
25999 @ 218488:                  PUSH   M
26000 @ 218491:                  PUSH   LEVEL
26001 @ 218494:                  ACCESS
26002 @ 218495:                  PUSH   W3
26003 @ 218498:                  ASSVAL

  4296           RNEXT=NEXT
26004 @ 218499:                  LINE   4296 "regression-compile-tmp/imp918s.imp"
26005 @ 218537:                  PUSH   RNEXT
26006 @ 218540:                  PUSH   NEXT
26007 @ 218543:                  ASSVAL

  4297           FLAG=PTYPE;                ! CURRENT BLOCK TYPE MARKER
26008 @ 218544:                  LINE   4297 "regression-compile-tmp/imp918s.imp"
26009 @ 218582:                  PUSH   FLAG
26010 @ 218585:                  PUSH   PTYPE
26011 @ 218588:                  ASSVAL

  4298           %IF FLAGP>=0 %THEN %START
26012 @ 218589:                  LINE   4298 "regression-compile-tmp/imp918s.imp"
26013 @ 218627:                  PUSH   FLAGP
26014 @ 218630:                  PUSHI  #0x00000000
26015 @ 218635:                  JUMPIF < L_0004

  4299              SET(RLEVEL)=CA+2
26016 @ 218639:                  LINE   4299 "regression-compile-tmp/imp918s.imp"
26017 @ 218677:                  PUSH   SET
26018 @ 218680:                  PUSH   RLEVEL
26019 @ 218683:                  ACCESS
26020 @ 218684:                  PUSH   CA
26021 @ 218687:                  PUSHI  #0x00000002
26022 @ 218692:                  ADD   
26023 @ 218693:                  ASSVAL

  4300              PCONST(X'41BB0000');       ! LA WSP, ?(WSP)
26024 @ 218694:                  LINE   4300 "regression-compile-tmp/imp918s.imp"
26025 @ 218732:                  PUSH   PCONST
26026 @ 218735:                  PUSHI  #0x41bb0000
26027 @ 218740:                  ASSPAR
26028 @ 218741:                  CALL  

  4301              N=64; NMAX=N;
26029 @ 218742:                  LINE   4301 "regression-compile-tmp/imp918s.imp"
26030 @ 218780:                  PUSH   N
26031 @ 218783:                  PUSHI  #0x00000040
26032 @ 218788:                  ASSVAL
26033 @ 218789:                  LINE   4301 "regression-compile-tmp/imp918s.imp"
26034 @ 218827:                  PUSH   NMAX
26035 @ 218830:                  PUSH   N
26036 @ 218833:                  ASSVAL

  4302              FORGETM(14);               ! START NEW RT W CLEAN SLATE
26037 @ 218834:                  LINE   4302 "regression-compile-tmp/imp918s.imp"
26038 @ 218872:                  PUSH   FORGETM
26039 @ 218875:                  PUSHI  #0x0000000e
26040 @ 218880:                  ASSPAR
26041 @ 218881:                  CALL  

  4303              CCSTATE=-1
26042 @ 218882:                  LINE   4303 "regression-compile-tmp/imp918s.imp"
26043 @ 218920:                  PUSH   CCSTATE
26044 @ 218923:                  PUSHI  #0x00000001
26045 @ 218928:                  NEGATE
26046 @ 218929:                  ASSVAL

  4304           %FINISH
  4305  !
  4306  ! IF IN DIAGNOSTIC MODE PLANT CODE TO SAVE THE LINE & ROUTINE NO OF
  4307  ! THE CALLING ROUTINE AND SET UP THE NEW BLOCK/ROUTINE IDENT NO.
  4308  !
26047 @ 218930:                  LINE   4304 "regression-compile-tmp/imp918s.imp"
26048 @ 218968:                  LOCATE L_0004

  4309           %IF DIAGS1#0 %AND LINE>0 %THEN %START
26049 @ 218971:                  LINE   4309 "regression-compile-tmp/imp918s.imp"
26050 @ 219009:                  PUSH   DIAGS1
26051 @ 219012:                  PUSHI  #0x00000000
26052 @ 219017:                  JUMPIF = L_0004
26053 @ 219021:                  PUSH   LINE
26054 @ 219024:                  PUSHI  #0x00000000
26055 @ 219029:                  JUMPIF <= L_0004

  4310              PRX(X'58',0,GLA,0,20);     ! L  0,OLD DIAGS INF
26056 @ 219033:                  LINE   4310 "regression-compile-tmp/imp918s.imp"
26057 @ 219071:                  PUSH   PRX
26058 @ 219074:                  PUSHI  #0x00000058
26059 @ 219079:                  ASSPAR
26060 @ 219080:                  PUSHI  #0x00000000
26061 @ 219085:                  ASSPAR
26062 @ 219086:                  PUSHI  #0x0000000d
26063 @ 219091:                  ASSPAR
26064 @ 219092:                  PUSHI  #0x00000000
26065 @ 219097:                  ASSPAR
26066 @ 219098:                  PUSHI  #0x00000014
26067 @ 219103:                  ASSPAR
26068 @ 219104:                  CALL  

  4311              DUMP(X'50',0,W2,0,RBASE);  ! ST 0,SAFE PLACE
26069 @ 219105:                  LINE   4311 "regression-compile-tmp/imp918s.imp"
26070 @ 219143:                  PUSH   DUMP
26071 @ 219146:                  PUSHI  #0x00000050
26072 @ 219151:                  ASSPAR
26073 @ 219152:                  PUSHI  #0x00000000
26074 @ 219157:                  ASSPAR
26075 @ 219158:                  PUSH   W2
26076 @ 219161:                  ASSPAR
26077 @ 219162:                  PUSHI  #0x00000000
26078 @ 219167:                  ASSPAR
26079 @ 219168:                  PUSH   RBASE
26080 @ 219171:                  ASSPAR
26081 @ 219172:                  CALL  

  4312              DUMP(X'41',0,LINE,0,0);    ! LA   0,LINE NO
26082 @ 219173:                  LINE   4312 "regression-compile-tmp/imp918s.imp"
26083 @ 219211:                  PUSH   DUMP
26084 @ 219214:                  PUSHI  #0x00000041
26085 @ 219219:                  ASSPAR
26086 @ 219220:                  PUSHI  #0x00000000
26087 @ 219225:                  ASSPAR
26088 @ 219226:                  PUSH   LINE
26089 @ 219229:                  ASSPAR
26090 @ 219230:                  PUSHI  #0x00000000
26091 @ 219235:                  ASSPAR
26092 @ 219236:                  PUSHI  #0x00000000
26093 @ 219241:                  ASSPAR
26094 @ 219242:                  CALL  

  4313              PCONST(X'4000D014');       ! STH 0,20(GLA)
26095 @ 219243:                  LINE   4313 "regression-compile-tmp/imp918s.imp"
26096 @ 219281:                  PUSH   PCONST
26097 @ 219284:                  PUSHI  #0x4000d014
26098 @ 219289:                  ASSPAR
26099 @ 219290:                  CALL  

  4314              FORGET(0);                 ! NEEDED FOR %BEGIN BLOCKS
26100 @ 219291:                  LINE   4314 "regression-compile-tmp/imp918s.imp"
26101 @ 219329:                  PUSH   FORGET
26102 @ 219332:                  PUSHI  #0x00000000
26103 @ 219337:                  ASSPAR
26104 @ 219338:                  CALL  

  4315           %FINISH
26105 @ 219339:                  LINE   4315 "regression-compile-tmp/imp918s.imp"
26106 @ 219377:                  LOCATE L_0004

  4316           MONE=1; SET LINE;             ! NOW UPDATE LINE NUMBER
26107 @ 219380:                  LINE   4316 "regression-compile-tmp/imp918s.imp"
26108 @ 219418:                  PUSH   MONE
26109 @ 219421:                  PUSHI  #0x00000001
26110 @ 219426:                  ASSVAL
26111 @ 219427:                  LINE   4316 "regression-compile-tmp/imp918s.imp"
26112 @ 219465:                  PUSH   SETLINE
26113 @ 219468:                  CALL  

  4317           %END;                         ! OF ROUTINE RHEAD
26114 @ 219469:                  LINE   4317 "regression-compile-tmp/imp918s.imp"
26115 @ 219507:               END    _lev0id0_CSS_RHEAD {lev=3 --> 2}

  4318           %ROUTINE  DEFINE EP(%INTEGER MODE,NAME,ADR,XTRA)
  4319           {%SHORTROUTINE}
  4320  !***********************************************************************
  4321  !*        ENTER AN ENTRY POINT ON THE ENTRY POINT LIST                 *
  4322  !*       AN ENTRY POINT LOOKS LIKE:-                                   *
  4323  !*       S1 = FLAG<<24 ! ENTRY POINT ADDRESS RELATIVE TO START OF AREA *
  4324  !*       S2 = XTRA INFO (PRIMARILY LENGTH OF DATA 'COMMON' AREAS)      *
  4325  !*       S3 = LINK TO SINGLE CELL SIDECHAIN CONTAINING NAME AS STRING  *
  4326  !*       FLAG = 0 FOR PROGRAM ENTRY POINT                              *
  4327  !*            = 1 FOR DATA IN GLA (%EXTERNAL)                          *
  4328  !*            = 2 FOR DATA IN GLA SYMBOL TABLE (%EXTERNAL %ARRAY)      *
  4329  !*       MODE=0 FOR S#GO, =1 SYSTEM ROUTINES,=2 EXTERNAL ROUTINES      *
  4330  !*       MODE=3 FOR DATA IN ADDRESSABLE GLA,=4 BACK OF GLA             *
  4331  !***********************************************************************
26116 @ 219508:               LINE   4318 "regression-compile-tmp/imp918s.imp"
26117 @ 219546:               DEF    DEFINEEP (_lev0id0_CSS_DEFINEEP) p1=V_0165 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
26118 @ 219566:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
26119 @ 219567:                     DEF    MODE p1=V_0203 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
26120 @ 219583:                     DEF    NAME p1=V_0204 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
26121 @ 219599:                     DEF    ADR p1=V_0205 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
26122 @ 219614:                     DEF    XTRA p1=V_0206 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
26123 @ 219630:                  FINISH ) {lev=3}

  4332           %SHORTINTEGER HEAD
26124 @ 219631:                  LINE   4332 "regression-compile-tmp/imp918s.imp"
26125 @ 219669:                  DEF    HEAD p1=V_0207 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0

  4333           %INTEGER JJ,FLAG,ID1,ID2,ID3
26126 @ 219685:                  LINE   4333 "regression-compile-tmp/imp918s.imp"
26127 @ 219723:                  DEF    JJ p1=V_0208 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
26128 @ 219737:                  DEF    FLAG p1=V_0209 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
26129 @ 219753:                  DEF    ID1 p1=V_020a 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
26130 @ 219768:                  DEF    ID2 p1=V_020b 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
26131 @ 219783:                  DEF    ID3 p1=V_020c 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

  4334           %STRING(8) ID
26132 @ 219798:                  LINE   4334 "regression-compile-tmp/imp918s.imp"
26133 @ 219836:                  DEF    ID p1=V_020d a/tf=31 b/format=8 c/ostate=0  type=3 (string) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  4335           ID=""; FLAG=0
26134 @ 219850:                  LINE   4335 "regression-compile-tmp/imp918s.imp"
26135 @ 219888:                  PUSH   ID
26136 @ 219891:                  PUSHS  ""
26137 @ 219893:                  ASSVAL
26138 @ 219894:                  LINE   4335 "regression-compile-tmp/imp918s.imp"
26139 @ 219932:                  PUSH   FLAG
26140 @ 219935:                  PUSHI  #0x00000000
26141 @ 219940:                  ASSVAL

  4336           HEAD=0
26142 @ 219941:                  LINE   4336 "regression-compile-tmp/imp918s.imp"
26143 @ 219979:                  PUSH   HEAD
26144 @ 219982:                  PUSHI  #0x00000000
26145 @ 219987:                  ASSVAL

  4337           %IF MODE=0 %THEN JJ=ADDR(MAINEP1)+3 %ELSE %C
  4338                           JJ=ADDR(LETT(WORD(NAME)))
26146 @ 219988:                  LINE   4337 "regression-compile-tmp/imp918s.imp"
26147 @ 220026:                  PUSH   MODE
26148 @ 220029:                  PUSHI  #0x00000000
26149 @ 220034:                  JUMPIF # L_0004
26150 @ 220038:                  PUSH   JJ
26151 @ 220041:                  PUSH   ADDR
26152 @ 220044:                  PUSH   MAINEP1
26153 @ 220047:                  ASSPAR
26154 @ 220048:                  CALL  
26155 @ 220049:                  PUSHI  #0x00000003
26156 @ 220054:                  ADD   
26157 @ 220055:                  ASSVAL
26158 @ 220056:                  GOTO   L_0003
26159 @ 220059:                  LOCATE L_0004
26160 @ 220062:                  PUSH   JJ
26161 @ 220065:                  PUSH   ADDR
26162 @ 220068:                  PUSH   LETT
26163 @ 220071:                  PUSH   WORD
26164 @ 220074:                  PUSH   NAME
26165 @ 220077:                  ACCESS
26166 @ 220078:                  ACCESS
26167 @ 220079:                  ASSPAR
26168 @ 220080:                  CALL  
26169 @ 220081:                  ASSVAL
26170 @ 220082:                  LOCATE L_0003

  4339           %IF MODE>=3 %THEN FLAG=MODE-2
26171 @ 220085:                  LINE   4339 "regression-compile-tmp/imp918s.imp"
26172 @ 220123:                  PUSH   MODE
26173 @ 220126:                  PUSHI  #0x00000003
26174 @ 220131:                  JUMPIF < L_0004
26175 @ 220135:                  PUSH   FLAG
26176 @ 220138:                  PUSH   MODE
26177 @ 220141:                  PUSHI  #0x00000002
26178 @ 220146:                  SUB   
26179 @ 220147:                  ASSVAL
26180 @ 220148:                  LOCATE L_0004

  4340           %IF MODE=1 %THEN ID="S#"
26181 @ 220151:                  LINE   4340 "regression-compile-tmp/imp918s.imp"
26182 @ 220189:                  PUSH   MODE
26183 @ 220192:                  PUSHI  #0x00000001
26184 @ 220197:                  JUMPIF # L_0004
26185 @ 220201:                  PUSH   ID
26186 @ 220204:                  PUSHS  "S#"
26187 @ 220208:                  ASSVAL
26188 @ 220209:                  LOCATE L_0004

  4341           ID<-ID.STRING(JJ)
26189 @ 220212:                  LINE   4341 "regression-compile-tmp/imp918s.imp"
26190 @ 220250:                  PUSH   ID
26191 @ 220253:                  PUSH   ID
26192 @ 220256:                  PUSH   STRING
26193 @ 220259:                  PUSH   JJ
26194 @ 220262:                  ASSPAR
26195 @ 220263:                  CALL  
26196 @ 220264:                  CONCAT
26197 @ 220265:                  JAM   

  4342           STRING(ADDR(ID1))=ID
26198 @ 220266:                  LINE   4342 "regression-compile-tmp/imp918s.imp"
26199 @ 220304:                  PUSH   STRING
26200 @ 220307:                  PUSH   ADDR
26201 @ 220310:                  PUSH   ID1
26202 @ 220313:                  ASSPAR
26203 @ 220314:                  CALL  
26204 @ 220315:                  ASSPAR
26205 @ 220316:                  CALL  
26206 @ 220317:                  PUSH   ID
26207 @ 220320:                  ASSVAL

  4343           %IF FLAG=0 %THEN JJ=11 %ELSE JJ=14
26208 @ 220321:                  LINE   4343 "regression-compile-tmp/imp918s.imp"
26209 @ 220359:                  PUSH   FLAG
26210 @ 220362:                  PUSHI  #0x00000000
26211 @ 220367:                  JUMPIF # L_0004
26212 @ 220371:                  PUSH   JJ
26213 @ 220374:                  PUSHI  #0x0000000b
26214 @ 220379:                  ASSVAL
26215 @ 220380:                  GOTO   L_0003
26216 @ 220383:                  LOCATE L_0004
26217 @ 220386:                  PUSH   JJ
26218 @ 220389:                  PUSHI  #0x0000000e
26219 @ 220394:                  ASSVAL
26220 @ 220395:                  LOCATE L_0003

  4344           %IF FLAG<=1 %THEN LPUT(JJ,XTRA,ADR,ADDR(ID)) %ELSE %START
26221 @ 220398:                  LINE   4344 "regression-compile-tmp/imp918s.imp"
26222 @ 220436:                  PUSH   FLAG
26223 @ 220439:                  PUSHI  #0x00000001
26224 @ 220444:                  JUMPIF > L_0004
26225 @ 220448:                  PUSH   LPUT
26226 @ 220451:                  PUSH   JJ
26227 @ 220454:                  ASSPAR
26228 @ 220455:                  PUSH   XTRA
26229 @ 220458:                  ASSPAR
26230 @ 220459:                  PUSH   ADR
26231 @ 220462:                  ASSPAR
26232 @ 220463:                  PUSH   ADDR
26233 @ 220466:                  PUSH   ID
26234 @ 220469:                  ASSPAR
26235 @ 220470:                  CALL  
26236 @ 220471:                  ASSPAR
26237 @ 220472:                  CALL  
26238 @ 220473:                  GOTO   L_0003
26239 @ 220476:                  LOCATE L_0004

  4345              PUSH123(HEAD,ID1,ID2,ID3>>16)
26240 @ 220479:                  LINE   4345 "regression-compile-tmp/imp918s.imp"
26241 @ 220517:                  PUSH   PUSH123
26242 @ 220520:                  PUSH   HEAD
26243 @ 220523:                  ASSPAR
26244 @ 220524:                  PUSH   ID1
26245 @ 220527:                  ASSPAR
26246 @ 220528:                  PUSH   ID2
26247 @ 220531:                  ASSPAR
26248 @ 220532:                  PUSH   ID3
26249 @ 220535:                  PUSHI  #0x00000010
26250 @ 220540:                  RSH   
26251 @ 220541:                  ASSPAR
26252 @ 220542:                  CALL  

  4346              PUSH123(EPLINK,FLAG<<24!ADR,XTRA,HEAD)
26253 @ 220543:                  LINE   4346 "regression-compile-tmp/imp918s.imp"
26254 @ 220581:                  PUSH   PUSH123
26255 @ 220584:                  PUSH   EPLINK
26256 @ 220587:                  ASSPAR
26257 @ 220588:                  PUSH   FLAG
26258 @ 220591:                  PUSHI  #0x00000018
26259 @ 220596:                  LSH   
26260 @ 220597:                  PUSH   ADR
26261 @ 220600:                  OR    
26262 @ 220601:                  ASSPAR
26263 @ 220602:                  PUSH   XTRA
26264 @ 220605:                  ASSPAR
26265 @ 220606:                  PUSH   HEAD
26266 @ 220609:                  ASSPAR
26267 @ 220610:                  CALL  

  4347           %FINISH
26268 @ 220611:                  LINE   4347 "regression-compile-tmp/imp918s.imp"
26269 @ 220649:                  LOCATE L_0003

  4348           %END
26270 @ 220652:                  LINE   4348 "regression-compile-tmp/imp918s.imp"
26271 @ 220690:               END    _lev0id0_CSS_DEFINEEP {lev=3 --> 2}

  4349           %ROUTINE     CRSPEC (%INTEGER M)
  4350           {%SHORTROUTINE}
  4351  !***********************************************************************
  4352  !*        MODE=0  FOR NORMAL ROUTINE SPEC                              *
  4353  !*        MODE=1 FOR EXTERNAL(ETC) ROUTINE SPECS XREF NEEDED           *
  4354  !*        MODE=2 FOR %SPEC FOR RT PARAMS                               *
  4355  !*       ROUTINE TAGS ARE AS FOLLOWS:-                                 *
  4356  !*       SNDISP = WORD(!) DISPLACEMENT OF EP(REF)FROM HEAD OF CODE(GLA)*
  4357  !*        (OR)  = LISTHEAD OF OUTSTANDING FORWARD REFS                 *
  4358  !*       KFORM  = PSIMPLE<<12 ! NO OF PARAMS                           *
  4359  !*       K      = LIST OF FORMAL PARAMETER DESCRIPTIONS                *
  4360  !***********************************************************************
26272 @ 220691:               LINE   4349 "regression-compile-tmp/imp918s.imp"
26273 @ 220729:               DEF    CRSPEC (_lev0id0_CSS_CRSPEC) p1=V_019f 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
26274 @ 220747:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
26275 @ 220748:                     DEF    M p1=V_0203 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
26276 @ 220761:                  FINISH ) {lev=3}

  4361           %INTEGER PP,KK,JJ,JJJ,Q,TYPEP,PREFIX,INC,PSIMPLE,PPOSN
26277 @ 220762:                  LINE   4361 "regression-compile-tmp/imp918s.imp"
26278 @ 220800:                  DEF    PP p1=V_0204 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
26279 @ 220814:                  DEF    KK p1=V_0205 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
26280 @ 220828:                  DEF    JJ p1=V_0206 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
26281 @ 220842:                  DEF    JJJ p1=V_0207 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
26282 @ 220857:                  DEF    Q p1=V_0208 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
26283 @ 220870:                  DEF    TYPEP p1=V_0209 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
26284 @ 220887:                  DEF    PREFIX p1=V_020a 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
26285 @ 220905:                  DEF    INC p1=V_020b 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
26286 @ 220920:                  DEF    PSIMPLE p1=V_020c 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
26287 @ 220939:                  DEF    PPOSN p1=V_020d 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

  4362           %SHORTINTEGER OPHEAD,OPBOT
26288 @ 220956:                  LINE   4362 "regression-compile-tmp/imp918s.imp"
26289 @ 220994:                  DEF    OPHEAD p1=V_020e a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
26290 @ 221012:                  DEF    OPBOT p1=V_020f a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0

  4363           Q=0
26291 @ 221029:                  LINE   4363 "regression-compile-tmp/imp918s.imp"
26292 @ 221067:                  PUSH   Q
26293 @ 221070:                  PUSHI  #0x00000000
26294 @ 221075:                  ASSVAL

  4364           %IF M#2 %THEN %START
  4365  !
  4366  ! WORK OUT TYPEP IE TYPE OF ENTITITY BY INSPECTING AR FOR P<RT>
  4367  !
26295 @ 221076:                  LINE   4364 "regression-compile-tmp/imp918s.imp"
26296 @ 221114:                  PUSH   M
26297 @ 221117:                  PUSHI  #0x00000002
26298 @ 221122:                  JUMPIF = L_0004

  4368              %IF A(P+1)=1 %THEN %START;  ! P<RT>=%ROUTINE
26299 @ 221126:                  LINE   4368 "regression-compile-tmp/imp918s.imp"
26300 @ 221164:                  PUSH   A
26301 @ 221167:                  PUSH   P
26302 @ 221170:                  PUSHI  #0x00000001
26303 @ 221175:                  ADD   
26304 @ 221176:                  ACCESS
26305 @ 221177:                  PUSHI  #0x00000001
26306 @ 221182:                  JUMPIF # L_0007

  4369                 TYPEP=10000; P=P+3
26307 @ 221186:                  LINE   4369 "regression-compile-tmp/imp918s.imp"
26308 @ 221224:                  PUSH   TYPEP
26309 @ 221227:                  PUSHI  #0x00002710
26310 @ 221232:                  ASSVAL
26311 @ 221233:                  LINE   4369 "regression-compile-tmp/imp918s.imp"
26312 @ 221271:                  PUSH   P
26313 @ 221274:                  PUSH   P
26314 @ 221277:                  PUSHI  #0x00000003
26315 @ 221282:                  ADD   
26316 @ 221283:                  ASSVAL

  4370              %FINISH %ELSE %START;       ! P<RT>=<TYPE><FNORMAP>
26317 @ 221284:                  LINE   4370 "regression-compile-tmp/imp918s.imp"
26318 @ 221322:                  GOTO   L_0006
26319 @ 221325:                  LOCATE L_0007

  4371                 ROUT=1; ARR=0; P=P+2
26320 @ 221328:                  LINE   4371 "regression-compile-tmp/imp918s.imp"
26321 @ 221366:                  PUSH   ROUT
26322 @ 221369:                  PUSHI  #0x00000001
26323 @ 221374:                  ASSVAL
26324 @ 221375:                  LINE   4371 "regression-compile-tmp/imp918s.imp"
26325 @ 221413:                  PUSH   ARR
26326 @ 221416:                  PUSHI  #0x00000000
26327 @ 221421:                  ASSVAL
26328 @ 221422:                  LINE   4371 "regression-compile-tmp/imp918s.imp"
26329 @ 221460:                  PUSH   P
26330 @ 221463:                  PUSH   P
26331 @ 221466:                  PUSHI  #0x00000002
26332 @ 221471:                  ADD   
26333 @ 221472:                  ASSVAL

  4372                 CLT; NAM=(A(P)-1)<<1
26334 @ 221473:                  LINE   4372 "regression-compile-tmp/imp918s.imp"
26335 @ 221511:                  PUSH   CLT
26336 @ 221514:                  CALL  
26337 @ 221515:                  LINE   4372 "regression-compile-tmp/imp918s.imp"
26338 @ 221553:                  PUSH   NAM
26339 @ 221556:                  PUSH   A
26340 @ 221559:                  PUSH   P
26341 @ 221562:                  ACCESS
26342 @ 221563:                  PUSHI  #0x00000001
26343 @ 221568:                  SUB   
26344 @ 221569:                  PUSHI  #0x00000001
26345 @ 221574:                  LSH   
26346 @ 221575:                  ASSVAL

  4373                 PACK(TYPEP)
26347 @ 221576:                  LINE   4373 "regression-compile-tmp/imp918s.imp"
26348 @ 221614:                  PUSH   PACK
26349 @ 221617:                  PUSH   TYPEP
26350 @ 221620:                  ASSPAR
26351 @ 221621:                  CALL  

  4374                 P=P+2
26352 @ 221622:                  LINE   4374 "regression-compile-tmp/imp918s.imp"
26353 @ 221660:                  PUSH   P
26354 @ 221663:                  PUSH   P
26355 @ 221666:                  PUSHI  #0x00000002
26356 @ 221671:                  ADD   
26357 @ 221672:                  ASSVAL

  4375              %FINISH
26358 @ 221673:                  LINE   4375 "regression-compile-tmp/imp918s.imp"
26359 @ 221711:                  LOCATE L_0006

  4376           %FINISH
26360 @ 221714:                  LINE   4376 "regression-compile-tmp/imp918s.imp"
26361 @ 221752:                  LOCATE L_0004

  4377           KK=A(P); COPYTAG(KK)
  4378  !
  4379  ! IF KK IS A VALID RT TYPE PARAM IT MUST BE DECLARED AT THE CURRENT
  4380  ! LEVEL AND HAVE 1000 PARAMS. IF KK IS A NEW DECLARATION '%SPEC' CANNOT
  4381  ! BE USED AND THE NAME MUST NOT BE SET AT THE CURRENT LEVEL.
  4382  !
26362 @ 221755:                  LINE   4377 "regression-compile-tmp/imp918s.imp"
26363 @ 221793:                  PUSH   KK
26364 @ 221796:                  PUSH   A
26365 @ 221799:                  PUSH   P
26366 @ 221802:                  ACCESS
26367 @ 221803:                  ASSVAL
26368 @ 221804:                  LINE   4377 "regression-compile-tmp/imp918s.imp"
26369 @ 221842:                  PUSH   COPYTAG
26370 @ 221845:                  PUSH   KK
26371 @ 221848:                  ASSPAR
26372 @ 221849:                  CALL  

  4383           %IF SNPT#PTYPE>=10000 %THEN Q=KFORM&4095 %AND %C
  4384                                        JJ=(SNDISP&X'FFFF')<<2
26373 @ 221850:                  LINE   4383 "regression-compile-tmp/imp918s.imp"
26374 @ 221888:                  PUSHI  #0x00002716
26375 @ 221893:                  PUSH   PTYPE
26376 @ 221896:                  JUMPIFD = L_0004
26377 @ 221900:                  PUSHI  #0x00002710
26378 @ 221905:                  JUMPIF < L_0004
26379 @ 221909:                  PUSH   Q
26380 @ 221912:                  PUSH   KFORM
26381 @ 221915:                  PUSHI  #0x00000fff
26382 @ 221920:                  AND   
26383 @ 221921:                  ASSVAL
26384 @ 221922:                  PUSH   JJ
26385 @ 221925:                  PUSH   SNDISP
26386 @ 221928:                  PUSHI  #0x0000ffff
26387 @ 221933:                  AND   
26388 @ 221934:                  PUSHI  #0x00000002
26389 @ 221939:                  LSH   
26390 @ 221940:                  ASSVAL
26391 @ 221941:                  LOCATE L_0004

  4385           %UNLESS OLDI=LEVEL %AND Q=1000 %AND %C
  4386                   (M=2 %OR PTYPE-1000=TYPEP) %THEN %START
  4387  !
  4388  ! KK IS NOT A VALID RT TYPE PARAM
  4389  !
26392 @ 221944:                  LINE   4385 "regression-compile-tmp/imp918s.imp"
26393 @ 221982:                  PUSH   OLDI
26394 @ 221985:                  PUSH   LEVEL
26395 @ 221988:                  JUMPIF # L_0005
26396 @ 221992:                  PUSH   Q
26397 @ 221995:                  PUSHI  #0x000003e8
26398 @ 222000:                  JUMPIF # L_0005
26399 @ 222004:                  PUSH   M
26400 @ 222007:                  PUSHI  #0x00000002
26401 @ 222012:                  JUMPIF = L_0004
26402 @ 222016:                  PUSH   PTYPE
26403 @ 222019:                  PUSHI  #0x000003e8
26404 @ 222024:                  SUB   
26405 @ 222025:                  PUSH   TYPEP
26406 @ 222028:                  JUMPIF = L_0004
26407 @ 222032:                  LOCATE L_0005

  4390              %UNLESS OLDI#LEVEL %AND M<=1 %THEN %START;! KK VALID DECLN
26408 @ 222035:                  LINE   4390 "regression-compile-tmp/imp918s.imp"
26409 @ 222073:                  PUSH   OLDI
26410 @ 222076:                  PUSH   LEVEL
26411 @ 222079:                  JUMPIF = L_0008
26412 @ 222083:                  PUSH   M
26413 @ 222086:                  PUSHI  #0x00000001
26414 @ 222091:                  JUMPIF <= L_0007
26415 @ 222095:                  LOCATE L_0008

  4391                 FAULT(7-M>>1<<2,KK);     ! FAULT 3(SPEC?)OR 7(SET TWICE)
26416 @ 222098:                  LINE   4391 "regression-compile-tmp/imp918s.imp"
26417 @ 222136:                  PUSH   FAULT
26418 @ 222139:                  PUSHI  #0x00000007
26419 @ 222144:                  PUSH   M
26420 @ 222147:                  PUSHI  #0x00000001
26421 @ 222152:                  RSH   
26422 @ 222153:                  PUSHI  #0x00000002
26423 @ 222158:                  LSH   
26424 @ 222159:                  SUB   
26425 @ 222160:                  ASSPAR
26426 @ 222161:                  PUSH   KK
26427 @ 222164:                  ASSPAR
26428 @ 222165:                  CALL  

  4392                 %RETURN %UNLESS M=0
26429 @ 222166:                  LINE   4392 "regression-compile-tmp/imp918s.imp"
26430 @ 222204:                  PUSH   M
26431 @ 222207:                  PUSHI  #0x00000000
26432 @ 222212:                  JUMPIF = L_000a
26433 @ 222216:                  RETURN
26434 @ 222217:                  LOCATE L_000a

  4393              %FINISH
26435 @ 222220:                  LINE   4393 "regression-compile-tmp/imp918s.imp"
26436 @ 222258:                  LOCATE L_0007

  4394              JJ=0;                       ! SO MAKE DECLARATION
26437 @ 222261:                  LINE   4394 "regression-compile-tmp/imp918s.imp"
26438 @ 222299:                  PUSH   JJ
26439 @ 222302:                  PUSHI  #0x00000000
26440 @ 222307:                  ASSVAL

  4395              J=15-M; PTYPE=TYPEP
26441 @ 222308:                  LINE   4395 "regression-compile-tmp/imp918s.imp"
26442 @ 222346:                  PUSH   J
26443 @ 222349:                  PUSHI  #0x0000000f
26444 @ 222354:                  PUSH   M
26445 @ 222357:                  SUB   
26446 @ 222358:                  ASSVAL
26447 @ 222359:                  LINE   4395 "regression-compile-tmp/imp918s.imp"
26448 @ 222397:                  PUSH   PTYPE
26449 @ 222400:                  PUSH   TYPEP
26450 @ 222403:                  ASSVAL

  4396              KFORM=0
26451 @ 222404:                  LINE   4396 "regression-compile-tmp/imp918s.imp"
26452 @ 222442:                  PUSH   KFORM
26453 @ 222445:                  PUSHI  #0x00000000
26454 @ 222450:                  ASSVAL

  4397              %IF OLDI = LEVEL %THEN %START
26455 @ 222451:                  LINE   4397 "regression-compile-tmp/imp918s.imp"
26456 @ 222489:                  PUSH   OLDI
26457 @ 222492:                  PUSH   LEVEL
26458 @ 222495:                  JUMPIF # L_0007

  4398                USEBITS = INTEGER(ADDR(ASLIST(TAGS(KK)))) >> 12 & X'F'
26459 @ 222499:                  LINE   4398 "regression-compile-tmp/imp918s.imp"
26460 @ 222537:                  PUSH   USEBITS
26461 @ 222540:                  PUSH   INTEGER
26462 @ 222543:                  PUSH   ADDR
26463 @ 222546:                  PUSH   ASLIST
26464 @ 222549:                  PUSH   TAGS
26465 @ 222552:                  PUSH   KK
26466 @ 222555:                  ACCESS
26467 @ 222556:                  ACCESS
26468 @ 222557:                  ASSPAR
26469 @ 222558:                  CALL  
26470 @ 222559:                  ASSPAR
26471 @ 222560:                  CALL  
26472 @ 222561:                  PUSHI  #0x0000000c
26473 @ 222566:                  RSH   
26474 @ 222567:                  PUSHI  #0x0000000f
26475 @ 222572:                  AND   
26476 @ 222573:                  ASSVAL

  4399                I = RBASE
26477 @ 222574:                  LINE   4399 "regression-compile-tmp/imp918s.imp"
26478 @ 222612:                  PUSH   I
26479 @ 222615:                  PUSH   RBASE
26480 @ 222618:                  ASSVAL

  4400                REPLACE TAG (KK)
26481 @ 222619:                  LINE   4400 "regression-compile-tmp/imp918s.imp"
26482 @ 222657:                  PUSH   REPLACETAG
26483 @ 222660:                  PUSH   KK
26484 @ 222663:                  ASSPAR
26485 @ 222664:                  CALL  

  4401              %FINISH %ELSE STORE TAG(KK,0)
26486 @ 222665:                  LINE   4401 "regression-compile-tmp/imp918s.imp"
26487 @ 222703:                  GOTO   L_0006
26488 @ 222706:                  LOCATE L_0007
26489 @ 222709:                  PUSH   STORETAG
26490 @ 222712:                  PUSH   KK
26491 @ 222715:                  ASSPAR
26492 @ 222716:                  PUSHI  #0x00000000
26493 @ 222721:                  ASSPAR
26494 @ 222722:                  CALL  
26495 @ 222723:                  LOCATE L_0006

  4402           %FINISH
26496 @ 222726:                  LINE   4402 "regression-compile-tmp/imp918s.imp"
26497 @ 222764:                  LOCATE L_0004

  4403           OPHEAD=0; OPBOT=0
26498 @ 222767:                  LINE   4403 "regression-compile-tmp/imp918s.imp"
26499 @ 222805:                  PUSH   OPHEAD
26500 @ 222808:                  PUSHI  #0x00000000
26501 @ 222813:                  ASSVAL
26502 @ 222814:                  LINE   4403 "regression-compile-tmp/imp918s.imp"
26503 @ 222852:                  PUSH   OPBOT
26504 @ 222855:                  PUSHI  #0x00000000
26505 @ 222860:                  ASSVAL

  4404           PPOSN=64;                      ! DISPLCMENT OF EACH PARAM
26506 @ 222861:                  LINE   4404 "regression-compile-tmp/imp918s.imp"
26507 @ 222899:                  PUSH   PPOSN
26508 @ 222902:                  PUSHI  #0x00000040
26509 @ 222907:                  ASSVAL

  4405           INC=1; JJJ=OPHEAD; PSIMPLE=1
26510 @ 222908:                  LINE   4405 "regression-compile-tmp/imp918s.imp"
26511 @ 222946:                  PUSH   INC
26512 @ 222949:                  PUSHI  #0x00000001
26513 @ 222954:                  ASSVAL
26514 @ 222955:                  LINE   4405 "regression-compile-tmp/imp918s.imp"
26515 @ 222993:                  PUSH   JJJ
26516 @ 222996:                  PUSH   OPHEAD
26517 @ 222999:                  ASSVAL
26518 @ 223000:                  LINE   4405 "regression-compile-tmp/imp918s.imp"
26519 @ 223038:                  PUSH   PSIMPLE
26520 @ 223041:                  PUSHI  #0x00000001
26521 @ 223046:                  ASSVAL

  4406           P=P+1; Q=0;                    ! Q COUNTS NO OF FORMAL PARAMS
26522 @ 223047:                  LINE   4406 "regression-compile-tmp/imp918s.imp"
26523 @ 223085:                  PUSH   P
26524 @ 223088:                  PUSH   P
26525 @ 223091:                  PUSHI  #0x00000001
26526 @ 223096:                  ADD   
26527 @ 223097:                  ASSVAL
26528 @ 223098:                  LINE   4406 "regression-compile-tmp/imp918s.imp"
26529 @ 223136:                  PUSH   Q
26530 @ 223139:                  PUSHI  #0x00000000
26531 @ 223144:                  ASSVAL

  4407           %WHILE A(P)=1 %CYCLE;          ! WHILE SOME(MORE) FPS
26532 @ 223145:                  LINE   4407 "regression-compile-tmp/imp918s.imp"
26533 @ 223183:                  LOCATE L_0003
26534 @ 223186:                  PUSH   A
26535 @ 223189:                  PUSH   P
26536 @ 223192:                  ACCESS
26537 @ 223193:                  PUSHI  #0x00000001
26538 @ 223198:                  JUMPIF # L_0004

  4408              P=P+INC;                    ! P<COMMA'> BETWEEN FPDELS
26539 @ 223202:                  LINE   4408 "regression-compile-tmp/imp918s.imp"
26540 @ 223240:                  PUSH   P
26541 @ 223243:                  PUSH   P
26542 @ 223246:                  PUSH   INC
26543 @ 223249:                  ADD   
26544 @ 223250:                  ASSVAL

  4409              CFPDEL;                     ! GET TYPE & ACC FOR NEXT GROUP
26545 @ 223251:                  LINE   4409 "regression-compile-tmp/imp918s.imp"
26546 @ 223289:                  PUSH   CFPDEL
26547 @ 223292:                  CALL  

  4410              PPOSN=(PPOSN+KFORM-1)&(-KFORM)
26548 @ 223293:                  LINE   4410 "regression-compile-tmp/imp918s.imp"
26549 @ 223331:                  PUSH   PPOSN
26550 @ 223334:                  PUSH   PPOSN
26551 @ 223337:                  PUSH   KFORM
26552 @ 223340:                  ADD   
26553 @ 223341:                  PUSHI  #0x00000001
26554 @ 223346:                  SUB   
26555 @ 223347:                  PUSH   KFORM
26556 @ 223350:                  NEGATE
26557 @ 223351:                  AND   
26558 @ 223352:                  ASSVAL

  4411              PSIMPLE=0 %UNLESS PTYPE=1 %OR %C
  4412                   (ROUT=0 %AND ARR=0 %AND NAM=1 %AND TYPE#0)
26559 @ 223353:                  LINE   4411 "regression-compile-tmp/imp918s.imp"
26560 @ 223391:                  PUSH   PTYPE
26561 @ 223394:                  PUSHI  #0x00000001
26562 @ 223399:                  JUMPIF = L_0007
26563 @ 223403:                  PUSH   ROUT
26564 @ 223406:                  PUSHI  #0x00000000
26565 @ 223411:                  JUMPIF # L_0008
26566 @ 223415:                  PUSH   ARR
26567 @ 223418:                  PUSHI  #0x00000000
26568 @ 223423:                  JUMPIF # L_0008
26569 @ 223427:                  PUSH   NAM
26570 @ 223430:                  PUSHI  #0x00000001
26571 @ 223435:                  JUMPIF # L_0008
26572 @ 223439:                  PUSH   TYPE
26573 @ 223442:                  PUSHI  #0x00000000
26574 @ 223447:                  JUMPIF # L_0007
26575 @ 223451:                  LOCATE L_0008
26576 @ 223454:                  PUSH   PSIMPLE
26577 @ 223457:                  PUSHI  #0x00000000
26578 @ 223462:                  ASSVAL
26579 @ 223463:                  LOCATE L_0007

  4413              %CYCLE PP=1,1,A(P);         ! DOWN <NAMELIST> FOR EACH DEL
26580 @ 223466:                  LINE   4413 "regression-compile-tmp/imp918s.imp"
26581 @ 223504:                  PUSH   PP
26582 @ 223507:                  PUSHI  #0x00000001
26583 @ 223512:                  PUSH   A
26584 @ 223515:                  PUSH   P
26585 @ 223518:                  ACCESS
26586 @ 223519:                  PUSHI  #0x00000001
26587 @ 223524:                  FOR    L_0006

  4414                 BINSERT(OPHEAD,OPBOT,PTYPE,ACC<<16!PPOSN,0)
26588 @ 223527:                  LINE   4414 "regression-compile-tmp/imp918s.imp"
26589 @ 223565:                  PUSH   BINSERT
26590 @ 223568:                  PUSH   OPHEAD
26591 @ 223571:                  ASSPAR
26592 @ 223572:                  PUSH   OPBOT
26593 @ 223575:                  ASSPAR
26594 @ 223576:                  PUSH   PTYPE
26595 @ 223579:                  ASSPAR
26596 @ 223580:                  PUSH   ACC
26597 @ 223583:                  PUSHI  #0x00000010
26598 @ 223588:                  LSH   
26599 @ 223589:                  PUSH   PPOSN
26600 @ 223592:                  OR    
26601 @ 223593:                  ASSPAR
26602 @ 223594:                  PUSHI  #0x00000000
26603 @ 223599:                  ASSPAR
26604 @ 223600:                  CALL  

  4415                 Q=Q+1
26605 @ 223601:                  LINE   4415 "regression-compile-tmp/imp918s.imp"
26606 @ 223639:                  PUSH   Q
26607 @ 223642:                  PUSH   Q
26608 @ 223645:                  PUSHI  #0x00000001
26609 @ 223650:                  ADD   
26610 @ 223651:                  ASSVAL

  4416                 PPOSN=PPOSN+ACC
26611 @ 223652:                  LINE   4416 "regression-compile-tmp/imp918s.imp"
26612 @ 223690:                  PUSH   PPOSN
26613 @ 223693:                  PUSH   PPOSN
26614 @ 223696:                  PUSH   ACC
26615 @ 223699:                  ADD   
26616 @ 223700:                  ASSVAL

  4417              %REPEAT
26617 @ 223701:                  LINE   4417 "regression-compile-tmp/imp918s.imp"
26618 @ 223739:                  REPEAT L_0006
26619 @ 223742:                  LOCATE L_0007

  4418              P=P+PP+1;                   ! ASSUMES PP SET TO A(P) BY REPE
26620 @ 223745:                  LINE   4418 "regression-compile-tmp/imp918s.imp"
26621 @ 223783:                  PUSH   P
26622 @ 223786:                  PUSH   P
26623 @ 223789:                  PUSH   PP
26624 @ 223792:                  ADD   
26625 @ 223793:                  PUSHI  #0x00000001
26626 @ 223798:                  ADD   
26627 @ 223799:                  ASSVAL

  4419              INC=2;                      ! TO IGNORE ALT OF P<COMMA'>
26628 @ 223800:                  LINE   4419 "regression-compile-tmp/imp918s.imp"
26629 @ 223838:                  PUSH   INC
26630 @ 223841:                  PUSHI  #0x00000002
26631 @ 223846:                  ASSVAL

  4420           %REPEAT
26632 @ 223847:                  LINE   4420 "regression-compile-tmp/imp918s.imp"
26633 @ 223885:                  REPEAT L_0003
26634 @ 223888:                  LOCATE L_0004

  4421           %IF EXTRN=1 %THEN PREFIX='S' %ELSE PREFIX=0
26635 @ 223891:                  LINE   4421 "regression-compile-tmp/imp918s.imp"
26636 @ 223929:                  PUSH   EXTRN
26637 @ 223932:                  PUSHI  #0x00000001
26638 @ 223937:                  JUMPIF # L_0004
26639 @ 223941:                  PUSH   PREFIX
26640 @ 223944:                  PUSHI  #0x00000053
26641 @ 223949:                  ASSVAL
26642 @ 223950:                  GOTO   L_0003
26643 @ 223953:                  LOCATE L_0004
26644 @ 223956:                  PUSH   PREFIX
26645 @ 223959:                  PUSHI  #0x00000000
26646 @ 223964:                  ASSVAL
26647 @ 223965:                  LOCATE L_0003

  4422           %IF M=1 %THEN CXREF((EXTRN-1)>>1,KK,PREFIX,JJ)
26648 @ 223968:                  LINE   4422 "regression-compile-tmp/imp918s.imp"
26649 @ 224006:                  PUSH   M
26650 @ 224009:                  PUSHI  #0x00000001
26651 @ 224014:                  JUMPIF # L_0004
26652 @ 224018:                  PUSH   CXREF
26653 @ 224021:                  PUSH   EXTRN
26654 @ 224024:                  PUSHI  #0x00000001
26655 @ 224029:                  SUB   
26656 @ 224030:                  PUSHI  #0x00000001
26657 @ 224035:                  RSH   
26658 @ 224036:                  ASSPAR
26659 @ 224037:                  PUSH   KK
26660 @ 224040:                  ASSPAR
26661 @ 224041:                  PUSH   PREFIX
26662 @ 224044:                  ASSPAR
26663 @ 224045:                  PUSH   JJ
26664 @ 224048:                  ASSPAR
26665 @ 224049:                  CALL  
26666 @ 224050:                  LOCATE L_0004

  4423           TCELL=TAGS(KK)
26667 @ 224053:                  LINE   4423 "regression-compile-tmp/imp918s.imp"
26668 @ 224091:                  PUSH   TCELL
26669 @ 224094:                  PUSH   TAGS
26670 @ 224097:                  PUSH   KK
26671 @ 224100:                  ACCESS
26672 @ 224101:                  ASSVAL

  4424           INTEGER(ADDR(SNDISP))=FROM2(TCELL)
26673 @ 224102:                  LINE   4424 "regression-compile-tmp/imp918s.imp"
26674 @ 224140:                  PUSH   INTEGER
26675 @ 224143:                  PUSH   ADDR
26676 @ 224146:                  PUSH   SNDISP
26677 @ 224149:                  ASSPAR
26678 @ 224150:                  CALL  
26679 @ 224151:                  ASSPAR
26680 @ 224152:                  CALL  
26681 @ 224153:                  PUSH   FROM2
26682 @ 224156:                  PUSH   TCELL
26683 @ 224159:                  ASSPAR
26684 @ 224160:                  CALL  
26685 @ 224161:                  ASSVAL

  4425           KFORM=PSIMPLE<<12!Q
26686 @ 224162:                  LINE   4425 "regression-compile-tmp/imp918s.imp"
26687 @ 224200:                  PUSH   KFORM
26688 @ 224203:                  PUSH   PSIMPLE
26689 @ 224206:                  PUSHI  #0x0000000c
26690 @ 224211:                  LSH   
26691 @ 224212:                  PUSH   Q
26692 @ 224215:                  OR    
26693 @ 224216:                  ASSVAL

  4426           K=OPHEAD; SNDISP<-(JJ>>2)
26694 @ 224217:                  LINE   4426 "regression-compile-tmp/imp918s.imp"
26695 @ 224255:                  PUSH   K
26696 @ 224258:                  PUSH   OPHEAD
26697 @ 224261:                  ASSVAL
26698 @ 224262:                  LINE   4426 "regression-compile-tmp/imp918s.imp"
26699 @ 224300:                  PUSH   SNDISP
26700 @ 224303:                  PUSH   JJ
26701 @ 224306:                  PUSHI  #0x00000002
26702 @ 224311:                  RSH   
26703 @ 224312:                  JAM   

  4427           REPLACE2(TCELL,INTEGER(ADDR(SNDISP)))
26704 @ 224313:                  LINE   4427 "regression-compile-tmp/imp918s.imp"
26705 @ 224351:                  PUSH   REPLACE2
26706 @ 224354:                  PUSH   TCELL
26707 @ 224357:                  ASSPAR
26708 @ 224358:                  PUSH   INTEGER
26709 @ 224361:                  PUSH   ADDR
26710 @ 224364:                  PUSH   SNDISP
26711 @ 224367:                  ASSPAR
26712 @ 224368:                  CALL  
26713 @ 224369:                  ASSPAR
26714 @ 224370:                  CALL  
26715 @ 224371:                  ASSPAR
26716 @ 224372:                  CALL  

  4428           REPLACE3(TCELL,INTEGER(ADDR(K)))
26717 @ 224373:                  LINE   4428 "regression-compile-tmp/imp918s.imp"
26718 @ 224411:                  PUSH   REPLACE3
26719 @ 224414:                  PUSH   TCELL
26720 @ 224417:                  ASSPAR
26721 @ 224418:                  PUSH   INTEGER
26722 @ 224421:                  PUSH   ADDR
26723 @ 224424:                  PUSH   K
26724 @ 224427:                  ASSPAR
26725 @ 224428:                  CALL  
26726 @ 224429:                  ASSPAR
26727 @ 224430:                  CALL  
26728 @ 224431:                  ASSPAR
26729 @ 224432:                  CALL  

  4429           %END
26730 @ 224433:                  LINE   4429 "regression-compile-tmp/imp918s.imp"
26731 @ 224471:               END    _lev0id0_CSS_CRSPEC {lev=3 --> 2}

  4430           %ROUTINE CFPDEL
  4431           {%SHORTROUTINE}
  4432  !***********************************************************************
  4433  !*       SET UP PTYPE & ACC FOR A LIST OF FORMAL PARAMETERS            *
  4434  !*       P<FPDEL>=<RT><%NAME'>,<TYPE><%QNAME'>,'%NAME',                *
  4435  !*                '%RECORD'<%ARRAY'>'%NAME'.                           *
  4436  !***********************************************************************
26732 @ 224472:               LINE   4430 "regression-compile-tmp/imp918s.imp"
26733 @ 224510:               DEF    CFPDEL (_lev0id0_CSS_CFPDEL) p1=V_01a7 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
26734 @ 224528:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
26735 @ 224529:                  FINISH ) {lev=3}

  4437           %BYTEINTEGER FPALT
26736 @ 224530:                  LINE   4437 "regression-compile-tmp/imp918s.imp"
26737 @ 224568:                  DEF    FPALT p1=V_0203 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0

  4438           FPALT=A(P); P=P+1; KFORM=4
26738 @ 224585:                  LINE   4438 "regression-compile-tmp/imp918s.imp"
26739 @ 224623:                  PUSH   FPALT
26740 @ 224626:                  PUSH   A
26741 @ 224629:                  PUSH   P
26742 @ 224632:                  ACCESS
26743 @ 224633:                  ASSVAL
26744 @ 224634:                  LINE   4438 "regression-compile-tmp/imp918s.imp"
26745 @ 224672:                  PUSH   P
26746 @ 224675:                  PUSH   P
26747 @ 224678:                  PUSHI  #0x00000001
26748 @ 224683:                  ADD   
26749 @ 224684:                  ASSVAL
26750 @ 224685:                  LINE   4438 "regression-compile-tmp/imp918s.imp"
26751 @ 224723:                  PUSH   KFORM
26752 @ 224726:                  PUSHI  #0x00000004
26753 @ 224731:                  ASSVAL

  4439           %IF FPALT<=2 %THEN %START
26754 @ 224732:                  LINE   4439 "regression-compile-tmp/imp918s.imp"
26755 @ 224770:                  PUSH   FPALT
26756 @ 224773:                  PUSHI  #0x00000002
26757 @ 224778:                  JUMPIF > L_0004

  4440              %IF FPALT=1 %THEN %START
26758 @ 224782:                  LINE   4440 "regression-compile-tmp/imp918s.imp"
26759 @ 224820:                  PUSH   FPALT
26760 @ 224823:                  PUSHI  #0x00000001
26761 @ 224828:                  JUMPIF # L_0007

  4441                 ACC=4; ROUT=1; ARR=0
26762 @ 224832:                  LINE   4441 "regression-compile-tmp/imp918s.imp"
26763 @ 224870:                  PUSH   ACC
26764 @ 224873:                  PUSHI  #0x00000004
26765 @ 224878:                  ASSVAL
26766 @ 224879:                  LINE   4441 "regression-compile-tmp/imp918s.imp"
26767 @ 224917:                  PUSH   ROUT
26768 @ 224920:                  PUSHI  #0x00000001
26769 @ 224925:                  ASSVAL
26770 @ 224926:                  LINE   4441 "regression-compile-tmp/imp918s.imp"
26771 @ 224964:                  PUSH   ARR
26772 @ 224967:                  PUSHI  #0x00000000
26773 @ 224972:                  ASSVAL

  4442                 %IF A(P)=2 %THEN %START;   ! P<RT>=<TYPE><FNORMAP>
26774 @ 224973:                  LINE   4442 "regression-compile-tmp/imp918s.imp"
26775 @ 225011:                  PUSH   A
26776 @ 225014:                  PUSH   P
26777 @ 225017:                  ACCESS
26778 @ 225018:                  PUSHI  #0x00000002
26779 @ 225023:                  JUMPIF # L_000a

  4443                    P=P+1; CLT
26780 @ 225027:                  LINE   4443 "regression-compile-tmp/imp918s.imp"
26781 @ 225065:                  PUSH   P
26782 @ 225068:                  PUSH   P
26783 @ 225071:                  PUSHI  #0x00000001
26784 @ 225076:                  ADD   
26785 @ 225077:                  ASSVAL
26786 @ 225078:                  LINE   4443 "regression-compile-tmp/imp918s.imp"
26787 @ 225116:                  PUSH   CLT
26788 @ 225119:                  CALL  

  4444                    NAM=(A(P)-1)<<1+1;      ! 1 FOR FN 3 FOR MAP
26789 @ 225120:                  LINE   4444 "regression-compile-tmp/imp918s.imp"
26790 @ 225158:                  PUSH   NAM
26791 @ 225161:                  PUSH   A
26792 @ 225164:                  PUSH   P
26793 @ 225167:                  ACCESS
26794 @ 225168:                  PUSHI  #0x00000001
26795 @ 225173:                  SUB   
26796 @ 225174:                  PUSHI  #0x00000001
26797 @ 225179:                  LSH   
26798 @ 225180:                  PUSHI  #0x00000001
26799 @ 225185:                  ADD   
26800 @ 225186:                  ASSVAL

  4445                    ACC=4
26801 @ 225187:                  LINE   4445 "regression-compile-tmp/imp918s.imp"
26802 @ 225225:                  PUSH   ACC
26803 @ 225228:                  PUSHI  #0x00000004
26804 @ 225233:                  ASSVAL

  4446                 %FINISH %ELSE %START;      ! P<RT>='%ROUTINE'
26805 @ 225234:                  LINE   4446 "regression-compile-tmp/imp918s.imp"
26806 @ 225272:                  GOTO   L_0009
26807 @ 225275:                  LOCATE L_000a

  4447                    NAM=1; PREC=0; TYPE=0
26808 @ 225278:                  LINE   4447 "regression-compile-tmp/imp918s.imp"
26809 @ 225316:                  PUSH   NAM
26810 @ 225319:                  PUSHI  #0x00000001
26811 @ 225324:                  ASSVAL
26812 @ 225325:                  LINE   4447 "regression-compile-tmp/imp918s.imp"
26813 @ 225363:                  PUSH   PREC
26814 @ 225366:                  PUSHI  #0x00000000
26815 @ 225371:                  ASSVAL
26816 @ 225372:                  LINE   4447 "regression-compile-tmp/imp918s.imp"
26817 @ 225410:                  PUSH   TYPE
26818 @ 225413:                  PUSHI  #0x00000000
26819 @ 225418:                  ASSVAL

  4448                 %FINISH
26820 @ 225419:                  LINE   4448 "regression-compile-tmp/imp918s.imp"
26821 @ 225457:                  LOCATE L_0009

  4449                 P=P+2
26822 @ 225460:                  LINE   4449 "regression-compile-tmp/imp918s.imp"
26823 @ 225498:                  PUSH   P
26824 @ 225501:                  PUSH   P
26825 @ 225504:                  PUSHI  #0x00000002
26826 @ 225509:                  ADD   
26827 @ 225510:                  ASSVAL

  4450              %FINISH %ELSE %START;         ! FPALT=2
26828 @ 225511:                  LINE   4450 "regression-compile-tmp/imp918s.imp"
26829 @ 225549:                  GOTO   L_0006
26830 @ 225552:                  LOCATE L_0007

  4451                 ROUT=0
26831 @ 225555:                  LINE   4451 "regression-compile-tmp/imp918s.imp"
26832 @ 225593:                  PUSH   ROUT
26833 @ 225596:                  PUSHI  #0x00000000
26834 @ 225601:                  ASSVAL

  4452                 CLT; CQN(P)
26835 @ 225602:                  LINE   4452 "regression-compile-tmp/imp918s.imp"
26836 @ 225640:                  PUSH   CLT
26837 @ 225643:                  CALL  
26838 @ 225644:                  LINE   4452 "regression-compile-tmp/imp918s.imp"
26839 @ 225682:                  PUSH   CQN
26840 @ 225685:                  PUSH   P
26841 @ 225688:                  ASSPAR
26842 @ 225689:                  CALL  

  4453                 FAULT(70,0) %IF TYPE=5 %AND ACC=0
26843 @ 225690:                  LINE   4453 "regression-compile-tmp/imp918s.imp"
26844 @ 225728:                  PUSH   TYPE
26845 @ 225731:                  PUSHI  #0x00000005
26846 @ 225736:                  JUMPIF # L_000a
26847 @ 225740:                  PUSH   ACC
26848 @ 225743:                  PUSHI  #0x00000000
26849 @ 225748:                  JUMPIF # L_000a
26850 @ 225752:                  PUSH   FAULT
26851 @ 225755:                  PUSHI  #0x00000046
26852 @ 225760:                  ASSPAR
26853 @ 225761:                  PUSHI  #0x00000000
26854 @ 225766:                  ASSPAR
26855 @ 225767:                  CALL  
26856 @ 225768:                  LOCATE L_000a

  4454                 %IF NAM=0 %THEN %START
26857 @ 225771:                  LINE   4454 "regression-compile-tmp/imp918s.imp"
26858 @ 225809:                  PUSH   NAM
26859 @ 225812:                  PUSHI  #0x00000000
26860 @ 225817:                  JUMPIF # L_000a

  4455                    %IF TYPE=5 %THEN KFORM=1 %ELSE KFORM=ACC
26861 @ 225821:                  LINE   4455 "regression-compile-tmp/imp918s.imp"
26862 @ 225859:                  PUSH   TYPE
26863 @ 225862:                  PUSHI  #0x00000005
26864 @ 225867:                  JUMPIF # L_000d
26865 @ 225871:                  PUSH   KFORM
26866 @ 225874:                  PUSHI  #0x00000001
26867 @ 225879:                  ASSVAL
26868 @ 225880:                  GOTO   L_000c
26869 @ 225883:                  LOCATE L_000d
26870 @ 225886:                  PUSH   KFORM
26871 @ 225889:                  PUSH   ACC
26872 @ 225892:                  ASSVAL
26873 @ 225893:                  LOCATE L_000c

  4456                 %FINISH
26874 @ 225896:                  LINE   4456 "regression-compile-tmp/imp918s.imp"
26875 @ 225934:                  LOCATE L_000a

  4457                 P=P+1
26876 @ 225937:                  LINE   4457 "regression-compile-tmp/imp918s.imp"
26877 @ 225975:                  PUSH   P
26878 @ 225978:                  PUSH   P
26879 @ 225981:                  PUSHI  #0x00000001
26880 @ 225986:                  ADD   
26881 @ 225987:                  ASSVAL

  4458              %FINISH
26882 @ 225988:                  LINE   4458 "regression-compile-tmp/imp918s.imp"
26883 @ 226026:                  LOCATE L_0006

  4459           %FINISH %ELSE %START
26884 @ 226029:                  LINE   4459 "regression-compile-tmp/imp918s.imp"
26885 @ 226067:                  GOTO   L_0003
26886 @ 226070:                  LOCATE L_0004

  4460              ROUT=0; PREC=0; NAM=1
26887 @ 226073:                  LINE   4460 "regression-compile-tmp/imp918s.imp"
26888 @ 226111:                  PUSH   ROUT
26889 @ 226114:                  PUSHI  #0x00000000
26890 @ 226119:                  ASSVAL
26891 @ 226120:                  LINE   4460 "regression-compile-tmp/imp918s.imp"
26892 @ 226158:                  PUSH   PREC
26893 @ 226161:                  PUSHI  #0x00000000
26894 @ 226166:                  ASSVAL
26895 @ 226167:                  LINE   4460 "regression-compile-tmp/imp918s.imp"
26896 @ 226205:                  PUSH   NAM
26897 @ 226208:                  PUSHI  #0x00000001
26898 @ 226213:                  ASSVAL

  4461              %IF FPALT=3 %THEN %START;     ! P<FPDEL>='%NAME'
26899 @ 226214:                  LINE   4461 "regression-compile-tmp/imp918s.imp"
26900 @ 226252:                  PUSH   FPALT
26901 @ 226255:                  PUSHI  #0x00000003
26902 @ 226260:                  JUMPIF # L_0007

  4462                 ACC=8; ARR=0; TYPE=0
26903 @ 226264:                  LINE   4462 "regression-compile-tmp/imp918s.imp"
26904 @ 226302:                  PUSH   ACC
26905 @ 226305:                  PUSHI  #0x00000008
26906 @ 226310:                  ASSVAL
26907 @ 226311:                  LINE   4462 "regression-compile-tmp/imp918s.imp"
26908 @ 226349:                  PUSH   ARR
26909 @ 226352:                  PUSHI  #0x00000000
26910 @ 226357:                  ASSVAL
26911 @ 226358:                  LINE   4462 "regression-compile-tmp/imp918s.imp"
26912 @ 226396:                  PUSH   TYPE
26913 @ 226399:                  PUSHI  #0x00000000
26914 @ 226404:                  ASSVAL

  4463              %FINISH %ELSE %START
26915 @ 226405:                  LINE   4463 "regression-compile-tmp/imp918s.imp"
26916 @ 226443:                  GOTO   L_0006
26917 @ 226446:                  LOCATE L_0007

  4464                 ARR=2-A(P)
26918 @ 226449:                  LINE   4464 "regression-compile-tmp/imp918s.imp"
26919 @ 226487:                  PUSH   ARR
26920 @ 226490:                  PUSHI  #0x00000002
26921 @ 226495:                  PUSH   A
26922 @ 226498:                  PUSH   P
26923 @ 226501:                  ACCESS
26924 @ 226502:                  SUB   
26925 @ 226503:                  ASSVAL

  4465                 ACC=4+12*ARR
26926 @ 226504:                  LINE   4465 "regression-compile-tmp/imp918s.imp"
26927 @ 226542:                  PUSH   ACC
26928 @ 226545:                  PUSHI  #0x00000004
26929 @ 226550:                  PUSHI  #0x0000000c
26930 @ 226555:                  PUSH   ARR
26931 @ 226558:                  MUL   
26932 @ 226559:                  ADD   
26933 @ 226560:                  ASSVAL

  4466                 TYPE=3; P=P+1
26934 @ 226561:                  LINE   4466 "regression-compile-tmp/imp918s.imp"
26935 @ 226599:                  PUSH   TYPE
26936 @ 226602:                  PUSHI  #0x00000003
26937 @ 226607:                  ASSVAL
26938 @ 226608:                  LINE   4466 "regression-compile-tmp/imp918s.imp"
26939 @ 226646:                  PUSH   P
26940 @ 226649:                  PUSH   P
26941 @ 226652:                  PUSHI  #0x00000001
26942 @ 226657:                  ADD   
26943 @ 226658:                  ASSVAL

  4467              %FINISH
26944 @ 226659:                  LINE   4467 "regression-compile-tmp/imp918s.imp"
26945 @ 226697:                  LOCATE L_0006

  4468           %FINISH
26946 @ 226700:                  LINE   4468 "regression-compile-tmp/imp918s.imp"
26947 @ 226738:                  LOCATE L_0003

  4469           PACK(PTYPE)
26948 @ 226741:                  LINE   4469 "regression-compile-tmp/imp918s.imp"
26949 @ 226779:                  PUSH   PACK
26950 @ 226782:                  PUSH   PTYPE
26951 @ 226785:                  ASSPAR
26952 @ 226786:                  CALL  

  4470           %END
26953 @ 226787:                  LINE   4470 "regression-compile-tmp/imp918s.imp"
26954 @ 226825:               END    _lev0id0_CSS_CFPDEL {lev=3 --> 2}

  4471           %ROUTINE ASSIGN(%INTEGER ASSOP,P1)
  4472           {%SHORTROUTINE}
  4473  !***********************************************************************
  4474  !*       HANDLES ARITHMETIC,STRING & ADDRESS ASSIGNMENTS TO VARIABLES  *
  4475  !*       FORMAL PARAMETERS AND DOPEVECTORS                             *
  4476  !*       ASSOP:-                                                       *
  4477  !*        1 IS FOR '=='                                                *
  4478  !*        2 IS FOR '='                                                 *
  4479  !*        3 IS FOR '<-' (JAM TRANSFER)                                 *
  4480  !*        4 IS FOR '->' (UNCONDITIONAL RESOLUTION)                     *
  4481  !*       >4 IS A SPECIAL FOR RESOLUTION                                *
  4482  !*               STORE BASE&DISP INTO NAME INDEXED BY P1 (RESLN)       *
  4483  !*                                                                     *
  4484  !*       P POINTS TO THE EXPRESSION. P1 TO THE NAME ON LHS OR          *
  4485  !*       P1=BASE<<16!OFFSET AND TYPE+PREC SET UP FOR FORMAL PARAMETERS *
  4486  !***********************************************************************
26955 @ 226826:               LINE   4471 "regression-compile-tmp/imp918s.imp"
26956 @ 226864:               DEF    ASSIGN (_lev0id0_CSS_ASSIGN) p1=V_0179 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
26957 @ 226882:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
26958 @ 226883:                     DEF    ASSOP p1=V_0203 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
26959 @ 226900:                     DEF    P1 p1=V_0204 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
26960 @ 226914:                  FINISH ) {lev=3}

  4487           %SHORTINTEGER HEAD1,NOPS,TPCELL,BOT1
26961 @ 226915:                  LINE   4487 "regression-compile-tmp/imp918s.imp"
26962 @ 226953:                  DEF    HEAD1 p1=V_0205 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
26963 @ 226970:                  DEF    NOPS p1=V_0206 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
26964 @ 226986:                  DEF    TPCELL p1=V_0207 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
26965 @ 227004:                  DEF    BOT1 p1=V_0208 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0

  4488           %INTEGER Q,QQ,KK,REG,Z,ZP,TYPEP,PRECP,PTYPEP,JJJ,P2,JJ, %C
  4489              BASEP,DISPP,RHTYPE,ACCP,II
26966 @ 227020:                  LINE   4488 "regression-compile-tmp/imp918s.imp"
26967 @ 227058:                  DEF    Q p1=V_0209 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
26968 @ 227071:                  DEF    QQ p1=V_020a 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
26969 @ 227085:                  DEF    KK p1=V_020b 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
26970 @ 227099:                  DEF    REG p1=V_020c 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
26971 @ 227114:                  DEF    Z p1=V_020d 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
26972 @ 227127:                  DEF    ZP p1=V_020e 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
26973 @ 227141:                  DEF    TYPEP p1=V_020f 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
26974 @ 227158:                  DEF    PRECP p1=V_0210 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
26975 @ 227175:                  DEF    PTYPEP p1=V_0211 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
26976 @ 227193:                  DEF    JJJ p1=V_0212 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
26977 @ 227208:                  DEF    P2 p1=V_0213 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
26978 @ 227222:                  DEF    JJ p1=V_0214 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
26979 @ 227236:                  DEF    BASEP p1=V_0215 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
26980 @ 227253:                  DEF    DISPP p1=V_0216 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
26981 @ 227270:                  DEF    RHTYPE p1=V_0217 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
26982 @ 227288:                  DEF    ACCP p1=V_0218 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
26983 @ 227304:                  DEF    II p1=V_0219 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

  4490           %SWITCH SW(0:3);              ! TO SWITCH ON ASSOP
  4491  !
26984 @ 227318:                  LINE   4490 "regression-compile-tmp/imp918s.imp"
26985 @ 227356:                  PUSHI  #0x00000000
26986 @ 227361:                  PUSHI  #0x00000003
26987 @ 227366:                  BOUNDS
26988 @ 227367:                  DEF    SW p1=V_021a a/tf=6 b/format=0 c/ostate=0  type=0 (<type:0>) form=6 (switch) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  4492           %IF ASSOP>4 %THEN %START
26989 @ 227381:                  LINE   4492 "regression-compile-tmp/imp918s.imp"
26990 @ 227419:                  PUSH   ASSOP
26991 @ 227422:                  PUSHI  #0x00000004
26992 @ 227427:                  JUMPIF <= L_0004

  4493              BASEP=BASE; DISPP=DISP; RHTYPE=TYPE
26993 @ 227431:                  LINE   4493 "regression-compile-tmp/imp918s.imp"
26994 @ 227469:                  PUSH   BASEP
26995 @ 227472:                  PUSH   BASE
26996 @ 227475:                  ASSVAL
26997 @ 227476:                  LINE   4493 "regression-compile-tmp/imp918s.imp"
26998 @ 227514:                  PUSH   DISPP
26999 @ 227517:                  PUSH   DISP
27000 @ 227520:                  ASSVAL
27001 @ 227521:                  LINE   4493 "regression-compile-tmp/imp918s.imp"
27002 @ 227559:                  PUSH   RHTYPE
27003 @ 227562:                  PUSH   TYPE
27004 @ 227565:                  ASSVAL

  4494           %FINISH
27005 @ 227566:                  LINE   4494 "regression-compile-tmp/imp918s.imp"
27006 @ 227604:                  LOCATE L_0004

  4495           P2=P
27007 @ 227607:                  LINE   4495 "regression-compile-tmp/imp918s.imp"
27008 @ 227645:                  PUSH   P2
27009 @ 227648:                  PUSH   P
27010 @ 227651:                  ASSVAL

  4496           %IF P1< X'FFFF' %THEN %START
27011 @ 227652:                  LINE   4496 "regression-compile-tmp/imp918s.imp"
27012 @ 227690:                  PUSH   P1
27013 @ 227693:                  PUSHI  #0x0000ffff
27014 @ 227698:                  JUMPIF >= L_0004

  4497              P=P1; REDUCE TAG(1);       ! LOOK AT LH SIDE
27015 @ 227702:                  LINE   4497 "regression-compile-tmp/imp918s.imp"
27016 @ 227740:                  PUSH   P
27017 @ 227743:                  PUSH   P1
27018 @ 227746:                  ASSVAL
27019 @ 227747:                  LINE   4497 "regression-compile-tmp/imp918s.imp"
27020 @ 227785:                  PUSH   REDUCETAG
27021 @ 227788:                  PUSHI  #0x00000001
27022 @ 227793:                  ASSPAR
27023 @ 227794:                  CALL  

  4498           %FINISH
27024 @ 227795:                  LINE   4498 "regression-compile-tmp/imp918s.imp"
27025 @ 227833:                  LOCATE L_0004

  4499           PTYPEP=PTYPE; JJ=J
27026 @ 227836:                  LINE   4499 "regression-compile-tmp/imp918s.imp"
27027 @ 227874:                  PUSH   PTYPEP
27028 @ 227877:                  PUSH   PTYPE
27029 @ 227880:                  ASSVAL
27030 @ 227881:                  LINE   4499 "regression-compile-tmp/imp918s.imp"
27031 @ 227919:                  PUSH   JJ
27032 @ 227922:                  PUSH   J
27033 @ 227925:                  ASSVAL

  4500           KK=K; II=I
27034 @ 227926:                  LINE   4500 "regression-compile-tmp/imp918s.imp"
27035 @ 227964:                  PUSH   KK
27036 @ 227967:                  PUSH   K
27037 @ 227970:                  ASSVAL
27038 @ 227971:                  LINE   4500 "regression-compile-tmp/imp918s.imp"
27039 @ 228009:                  PUSH   II
27040 @ 228012:                  PUSH   I
27041 @ 228015:                  ASSVAL

  4501           TPCELL=TCELL; ACCP=ACC
27042 @ 228016:                  LINE   4501 "regression-compile-tmp/imp918s.imp"
27043 @ 228054:                  PUSH   TPCELL
27044 @ 228057:                  PUSH   TCELL
27045 @ 228060:                  ASSVAL
27046 @ 228061:                  LINE   4501 "regression-compile-tmp/imp918s.imp"
27047 @ 228099:                  PUSH   ACCP
27048 @ 228102:                  PUSH   ACC
27049 @ 228105:                  ASSVAL

  4502           P=P2; TYPEP=TYPE; PRECP=PREC; ! SAVE USEFUL INFO FOR LATER
27050 @ 228106:                  LINE   4502 "regression-compile-tmp/imp918s.imp"
27051 @ 228144:                  PUSH   P
27052 @ 228147:                  PUSH   P2
27053 @ 228150:                  ASSVAL
27054 @ 228151:                  LINE   4502 "regression-compile-tmp/imp918s.imp"
27055 @ 228189:                  PUSH   TYPEP
27056 @ 228192:                  PUSH   TYPE
27057 @ 228195:                  ASSVAL
27058 @ 228196:                  LINE   4502 "regression-compile-tmp/imp918s.imp"
27059 @ 228234:                  PUSH   PRECP
27060 @ 228237:                  PUSH   PREC
27061 @ 228240:                  ASSVAL

  4503           -> SW(ASSOP&3)
  4504  !
27062 @ 228241:                  LINE   4503 "regression-compile-tmp/imp918s.imp"
27063 @ 228279:                  PUSH   ASSOP
27064 @ 228282:                  PUSHI  #0x00000003
27065 @ 228287:                  AND   
27066 @ 228288:                  SJUMP  538

  4505  SW(2):SW(3):                           ! ARITHMETIC ASSIGNMENTS
27067 @ 228291:                  LINE   4505 "regression-compile-tmp/imp918s.imp"
27068 @ 228329:                  PUSHI  #0x00000002
27069 @ 228334:                  SLABEL 538
27070 @ 228337:                  LINE   4505 "regression-compile-tmp/imp918s.imp"
27071 @ 228375:                  PUSHI  #0x00000003
27072 @ 228380:                  SLABEL 538

  4506           ->REGVAR %IF TYPE=8;          ! LHS A REGISTER VARIABLE
27073 @ 228383:                  LINE   4506 "regression-compile-tmp/imp918s.imp"
27074 @ 228421:                  PUSH   TYPE
27075 @ 228424:                  PUSHI  #0x00000008
27076 @ 228429:                  JUMPIF # L_0004
27077 @ 228433:                  JUMP   L_021b
27078 @ 228436:                  LOCATE L_0004

  4507           %IF TYPE=3 %THEN %START;      ! RECORD SO EXAMINE SUBNAME
27079 @ 228439:                  LINE   4507 "regression-compile-tmp/imp918s.imp"
27080 @ 228477:                  PUSH   TYPE
27081 @ 228480:                  PUSHI  #0x00000003
27082 @ 228485:                  JUMPIF # L_0004

  4508           P=P1; Q=COPY RECORD TAG(QQ)
27083 @ 228489:                  LINE   4508 "regression-compile-tmp/imp918s.imp"
27084 @ 228527:                  PUSH   P
27085 @ 228530:                  PUSH   P1
27086 @ 228533:                  ASSVAL
27087 @ 228534:                  LINE   4508 "regression-compile-tmp/imp918s.imp"
27088 @ 228572:                  PUSH   Q
27089 @ 228575:                  PUSH   COPYRECORDTAG
27090 @ 228578:                  PUSH   QQ
27091 @ 228581:                  ASSPAR
27092 @ 228582:                  CALL  
27093 @ 228583:                  ASSVAL

  4509           P=P2; %IF TYPE=3 %THEN ->RECOP; %FINISH
27094 @ 228584:                  LINE   4509 "regression-compile-tmp/imp918s.imp"
27095 @ 228622:                  PUSH   P
27096 @ 228625:                  PUSH   P2
27097 @ 228628:                  ASSVAL
27098 @ 228629:                  LINE   4509 "regression-compile-tmp/imp918s.imp"
27099 @ 228667:                  PUSH   TYPE
27100 @ 228670:                  PUSHI  #0x00000003
27101 @ 228675:                  JUMPIF # L_0007
27102 @ 228679:                  JUMP   L_021c
27103 @ 228682:                  LOCATE L_0007
27104 @ 228685:                  LINE   4509 "regression-compile-tmp/imp918s.imp"
27105 @ 228723:                  LOCATE L_0004

  4510           TYPE=1 %UNLESS TYPE=2 %OR TYPE=5;! IN CASE OF RUBBISHY SUBNAMES
27106 @ 228726:                  LINE   4510 "regression-compile-tmp/imp918s.imp"
27107 @ 228764:                  PUSH   TYPE
27108 @ 228767:                  PUSHI  #0x00000002
27109 @ 228772:                  JUMPIF = L_0004
27110 @ 228776:                  PUSH   TYPE
27111 @ 228779:                  PUSHI  #0x00000005
27112 @ 228784:                  JUMPIF = L_0004
27113 @ 228788:                  PUSH   TYPE
27114 @ 228791:                  PUSHI  #0x00000001
27115 @ 228796:                  ASSVAL
27116 @ 228797:                  LOCATE L_0004

  4511           ->Label50 %IF TYPE=5;              ! LHS IS A STRING
  4512  !
  4513  ! THE CODING BETWEEN HERE AND 'BACK' EXAMINES FOR DEGENERATE ASSIGNMENT
  4514  ! CASES SUCH AS 'I=I!2' OR BYTE=BYTE&7. THESE CAN BE HANDLED IN ONE SI
  4515  ! M/C INSTRUCTION. THE CODING COULD BE EXTENDED TO FIND'I=I!J'
  4516  ! THIS WHOLE SECTION IS OMITTED FROM SERVICE IMP(AA)
  4517  !
27117 @ 228800:                  LINE   4511 "regression-compile-tmp/imp918s.imp"
27118 @ 228838:                  PUSH   TYPE
27119 @ 228841:                  PUSHI  #0x00000005
27120 @ 228846:                  JUMPIF # L_0004
27121 @ 228850:                  JUMP   L_021d
27122 @ 228853:                  LOCATE L_0004

  4518           %IF ASSOP<=3 %AND CHECKSP=0 %AND TYPEP=1 %AND ARR=0 %AND %C
  4519              NAM=0 %AND P1<X'FFFF' %AND ROUT=0 %AND A(P1+1)=2 %START;! NO APP
27123 @ 228856:                  LINE   4518 "regression-compile-tmp/imp918s.imp"
27124 @ 228894:                  PUSH   ASSOP
27125 @ 228897:                  PUSHI  #0x00000003
27126 @ 228902:                  JUMPIF > L_0004
27127 @ 228906:                  PUSH   CHECKSP
27128 @ 228909:                  PUSHI  #0x00000000
27129 @ 228914:                  JUMPIF # L_0004
27130 @ 228918:                  PUSH   TYPEP
27131 @ 228921:                  PUSHI  #0x00000001
27132 @ 228926:                  JUMPIF # L_0004
27133 @ 228930:                  PUSH   ARR
27134 @ 228933:                  PUSHI  #0x00000000
27135 @ 228938:                  JUMPIF # L_0004
27136 @ 228942:                  PUSH   NAM
27137 @ 228945:                  PUSHI  #0x00000000
27138 @ 228950:                  JUMPIF # L_0004
27139 @ 228954:                  PUSH   P1
27140 @ 228957:                  PUSHI  #0x0000ffff
27141 @ 228962:                  JUMPIF >= L_0004
27142 @ 228966:                  PUSH   ROUT
27143 @ 228969:                  PUSHI  #0x00000000
27144 @ 228974:                  JUMPIF # L_0004
27145 @ 228978:                  PUSH   A
27146 @ 228981:                  PUSH   P1
27147 @ 228984:                  PUSHI  #0x00000001
27148 @ 228989:                  ADD   
27149 @ 228990:                  ACCESS
27150 @ 228991:                  PUSHI  #0x00000002
27151 @ 228996:                  JUMPIF # L_0004

  4520              TYPEP=PTYPE; PRECP=PREC
27152 @ 229000:                  LINE   4520 "regression-compile-tmp/imp918s.imp"
27153 @ 229038:                  PUSH   TYPEP
27154 @ 229041:                  PUSH   PTYPE
27155 @ 229044:                  ASSVAL
27156 @ 229045:                  LINE   4520 "regression-compile-tmp/imp918s.imp"
27157 @ 229083:                  PUSH   PRECP
27158 @ 229086:                  PUSH   PREC
27159 @ 229089:                  ASSVAL

  4521              Q=TSEXP(JJJ,0);            ! EXAMINE RHS
  4522  !
  4523  ! CHECK FORM OF RHS AND THAT THE SAME NAME IS ON BOTH SIDES
  4524  !
27160 @ 229090:                  LINE   4521 "regression-compile-tmp/imp918s.imp"
27161 @ 229128:                  PUSH   Q
27162 @ 229131:                  PUSH   TSEXP
27163 @ 229134:                  PUSH   JJJ
27164 @ 229137:                  ASSPAR
27165 @ 229138:                  PUSHI  #0x00000000
27166 @ 229143:                  ASSPAR
27167 @ 229144:                  CALL  
27168 @ 229145:                  ASSVAL

  4525              %IF (Q=300 %OR Q=400 %OR (Q=800 %AND PRECP=1)) %AND %C
  4526                 KK=K %AND II=I %AND KK<=4095 %START
27169 @ 229146:                  LINE   4525 "regression-compile-tmp/imp918s.imp"
27170 @ 229184:                  PUSH   Q
27171 @ 229187:                  PUSHI  #0x0000012c
27172 @ 229192:                  JUMPIF = L_0008
27173 @ 229196:                  PUSH   Q
27174 @ 229199:                  PUSHI  #0x00000190
27175 @ 229204:                  JUMPIF = L_0008
27176 @ 229208:                  PUSH   Q
27177 @ 229211:                  PUSHI  #0x00000320
27178 @ 229216:                  JUMPIF # L_0007
27179 @ 229220:                  PUSH   PRECP
27180 @ 229223:                  PUSHI  #0x00000001
27181 @ 229228:                  JUMPIF # L_0007
27182 @ 229232:                  LOCATE L_0008
27183 @ 229235:                  PUSH   KK
27184 @ 229238:                  PUSH   K
27185 @ 229241:                  JUMPIF # L_0007
27186 @ 229245:                  PUSH   II
27187 @ 229248:                  PUSH   I
27188 @ 229251:                  JUMPIF # L_0007
27189 @ 229255:                  PUSH   KK
27190 @ 229258:                  PUSHI  #0x00000fff
27191 @ 229263:                  JUMPIF > L_0007

  4527                 KK=KK+BYTES(PRECP)-1
27192 @ 229267:                  LINE   4527 "regression-compile-tmp/imp918s.imp"
27193 @ 229305:                  PUSH   KK
27194 @ 229308:                  PUSH   KK
27195 @ 229311:                  PUSH   BYTES
27196 @ 229314:                  PUSH   PRECP
27197 @ 229317:                  ACCESS
27198 @ 229318:                  ADD   
27199 @ 229319:                  PUSHI  #0x00000001
27200 @ 229324:                  SUB   
27201 @ 229325:                  ASSVAL

  4528                 %IF Q=300 %THEN ZP=X'97' %ELSE ZP=X'96'
27202 @ 229326:                  LINE   4528 "regression-compile-tmp/imp918s.imp"
27203 @ 229364:                  PUSH   Q
27204 @ 229367:                  PUSHI  #0x0000012c
27205 @ 229372:                  JUMPIF # L_000a
27206 @ 229376:                  PUSH   ZP
27207 @ 229379:                  PUSHI  #0x00000097
27208 @ 229384:                  ASSVAL
27209 @ 229385:                  GOTO   L_0009
27210 @ 229388:                  LOCATE L_000a
27211 @ 229391:                  PUSH   ZP
27212 @ 229394:                  PUSHI  #0x00000096
27213 @ 229399:                  ASSVAL
27214 @ 229400:                  LOCATE L_0009

  4529                 %IF Q=800 %THEN ZP=X'94'
27215 @ 229403:                  LINE   4529 "regression-compile-tmp/imp918s.imp"
27216 @ 229441:                  PUSH   Q
27217 @ 229444:                  PUSHI  #0x00000320
27218 @ 229449:                  JUMPIF # L_000a
27219 @ 229453:                  PUSH   ZP
27220 @ 229456:                  PUSHI  #0x00000094
27221 @ 229461:                  ASSVAL
27222 @ 229462:                  LOCATE L_000a

  4530                 PSI(ZP,JJJ,II,KK)
27223 @ 229465:                  LINE   4530 "regression-compile-tmp/imp918s.imp"
27224 @ 229503:                  PUSH   PSI
27225 @ 229506:                  PUSH   ZP
27226 @ 229509:                  ASSPAR
27227 @ 229510:                  PUSH   JJJ
27228 @ 229513:                  ASSPAR
27229 @ 229514:                  PUSH   II
27230 @ 229517:                  ASSPAR
27231 @ 229518:                  PUSH   KK
27232 @ 229521:                  ASSPAR
27233 @ 229522:                  CALL  

  4531                 CCSTATE=-1
27234 @ 229523:                  LINE   4531 "regression-compile-tmp/imp918s.imp"
27235 @ 229561:                  PUSH   CCSTATE
27236 @ 229564:                  PUSHI  #0x00000001
27237 @ 229569:                  NEGATE
27238 @ 229570:                  ASSVAL

  4532                 ->NA
27239 @ 229571:                  LINE   4532 "regression-compile-tmp/imp918s.imp"
27240 @ 229609:                  JUMP   L_021e

  4533              %FINISH %ELSE PTYPE=TYPEP %AND UNPACK
27241 @ 229612:                  LINE   4533 "regression-compile-tmp/imp918s.imp"
27242 @ 229650:                  LOCATE L_0007
27243 @ 229653:                  PUSH   PTYPE
27244 @ 229656:                  PUSH   TYPEP
27245 @ 229659:                  ASSVAL
27246 @ 229660:                  PUSH   UNPACK
27247 @ 229663:                  CALL  

  4534           %FINISH
27248 @ 229664:                  LINE   4534 "regression-compile-tmp/imp918s.imp"
27249 @ 229702:                  LOCATE L_0004

  4535  BACK:    HEAD1=0;                      ! CLEAR TEMPORAYRY LIST HEADS
27250 @ 229705:                  LINE   4535 "regression-compile-tmp/imp918s.imp"
27251 @ 229743:                  LABEL  L_021f
27252 @ 229746:                  LINE   4535 "regression-compile-tmp/imp918s.imp"
27253 @ 229784:                  PUSH   HEAD1
27254 @ 229787:                  PUSHI  #0x00000000
27255 @ 229792:                  ASSVAL

  4536           TYPE=1 %UNLESS TYPE=2;        ! DEAL WITH UNSET NAMES
27256 @ 229793:                  LINE   4536 "regression-compile-tmp/imp918s.imp"
27257 @ 229831:                  PUSH   TYPE
27258 @ 229834:                  PUSHI  #0x00000002
27259 @ 229839:                  JUMPIF = L_0004
27260 @ 229843:                  PUSH   TYPE
27261 @ 229846:                  PUSHI  #0x00000001
27262 @ 229851:                  ASSVAL
27263 @ 229852:                  LOCATE L_0004

  4537           ZP=TYPE; NOPS=1; P=P2+2
27264 @ 229855:                  LINE   4537 "regression-compile-tmp/imp918s.imp"
27265 @ 229893:                  PUSH   ZP
27266 @ 229896:                  PUSH   TYPE
27267 @ 229899:                  ASSVAL
27268 @ 229900:                  LINE   4537 "regression-compile-tmp/imp918s.imp"
27269 @ 229938:                  PUSH   NOPS
27270 @ 229941:                  PUSHI  #0x00000001
27271 @ 229946:                  ASSVAL
27272 @ 229947:                  LINE   4537 "regression-compile-tmp/imp918s.imp"
27273 @ 229985:                  PUSH   P
27274 @ 229988:                  PUSH   P2
27275 @ 229991:                  PUSHI  #0x00000002
27276 @ 229996:                  ADD   
27277 @ 229997:                  ASSVAL

  4538           %IF TYPE=2 %THEN ZP=ZP+PREC&1
27278 @ 229998:                  LINE   4538 "regression-compile-tmp/imp918s.imp"
27279 @ 230036:                  PUSH   TYPE
27280 @ 230039:                  PUSHI  #0x00000002
27281 @ 230044:                  JUMPIF # L_0004
27282 @ 230048:                  PUSH   ZP
27283 @ 230051:                  PUSH   ZP
27284 @ 230054:                  PUSH   PREC
27285 @ 230057:                  PUSHI  #0x00000001
27286 @ 230062:                  AND   
27287 @ 230063:                  ADD   
27288 @ 230064:                  ASSVAL
27289 @ 230065:                  LOCATE L_0004

  4539           PUSH(HEAD1,ASSOP&3+28,0);       ! ASSIGNMENT OPERATOR
27290 @ 230068:                  LINE   4539 "regression-compile-tmp/imp918s.imp"
27291 @ 230106:                  PUSH   PUSH
27292 @ 230109:                  PUSH   HEAD1
27293 @ 230112:                  ASSPAR
27294 @ 230113:                  PUSH   ASSOP
27295 @ 230116:                  PUSHI  #0x00000003
27296 @ 230121:                  AND   
27297 @ 230122:                  PUSHI  #0x0000001c
27298 @ 230127:                  ADD   
27299 @ 230128:                  ASSPAR
27300 @ 230129:                  PUSHI  #0x00000000
27301 @ 230134:                  ASSPAR
27302 @ 230135:                  CALL  

  4540           BOT1=HEAD1
27303 @ 230136:                  LINE   4540 "regression-compile-tmp/imp918s.imp"
27304 @ 230174:                  PUSH   BOT1
27305 @ 230177:                  PUSH   HEAD1
27306 @ 230180:                  ASSVAL

  4541           %IF P1>X'FFFF' %THEN Z=P1>>16<<8!9 %ELSE Z=2
27307 @ 230181:                  LINE   4541 "regression-compile-tmp/imp918s.imp"
27308 @ 230219:                  PUSH   P1
27309 @ 230222:                  PUSHI  #0x0000ffff
27310 @ 230227:                  JUMPIF <= L_0004
27311 @ 230231:                  PUSH   Z
27312 @ 230234:                  PUSH   P1
27313 @ 230237:                  PUSHI  #0x00000010
27314 @ 230242:                  RSH   
27315 @ 230243:                  PUSHI  #0x00000008
27316 @ 230248:                  LSH   
27317 @ 230249:                  PUSHI  #0x00000009
27318 @ 230254:                  OR    
27319 @ 230255:                  ASSVAL
27320 @ 230256:                  GOTO   L_0003
27321 @ 230259:                  LOCATE L_0004
27322 @ 230262:                  PUSH   Z
27323 @ 230265:                  PUSHI  #0x00000002
27324 @ 230270:                  ASSVAL
27325 @ 230271:                  LOCATE L_0003

  4542           PUSH(HEAD1,PTYPEP<<16!Z,P1&X'7FFF');! LHS
27326 @ 230274:                  LINE   4542 "regression-compile-tmp/imp918s.imp"
27327 @ 230312:                  PUSH   PUSH
27328 @ 230315:                  PUSH   HEAD1
27329 @ 230318:                  ASSPAR
27330 @ 230319:                  PUSH   PTYPEP
27331 @ 230322:                  PUSHI  #0x00000010
27332 @ 230327:                  LSH   
27333 @ 230328:                  PUSH   Z
27334 @ 230331:                  OR    
27335 @ 230332:                  ASSPAR
27336 @ 230333:                  PUSH   P1
27337 @ 230336:                  PUSHI  #0x00007fff
27338 @ 230341:                  AND   
27339 @ 230342:                  ASSPAR
27340 @ 230343:                  CALL  

  4543           %IF ASSOP>4 %THEN %START
27341 @ 230344:                  LINE   4543 "regression-compile-tmp/imp918s.imp"
27342 @ 230382:                  PUSH   ASSOP
27343 @ 230385:                  PUSHI  #0x00000004
27344 @ 230390:                  JUMPIF <= L_0004

  4544              FAULT(24,0) %UNLESS TYPE=RHTYPE
27345 @ 230394:                  LINE   4544 "regression-compile-tmp/imp918s.imp"
27346 @ 230432:                  PUSH   TYPE
27347 @ 230435:                  PUSH   RHTYPE
27348 @ 230438:                  JUMPIF = L_0007
27349 @ 230442:                  PUSH   FAULT
27350 @ 230445:                  PUSHI  #0x00000018
27351 @ 230450:                  ASSPAR
27352 @ 230451:                  PUSHI  #0x00000000
27353 @ 230456:                  ASSPAR
27354 @ 230457:                  CALL  
27355 @ 230458:                  LOCATE L_0007

  4545              PUSH(HEAD1,RHTYPE<<16!BASEP<<8!9,DISPP)
27356 @ 230461:                  LINE   4545 "regression-compile-tmp/imp918s.imp"
27357 @ 230499:                  PUSH   PUSH
27358 @ 230502:                  PUSH   HEAD1
27359 @ 230505:                  ASSPAR
27360 @ 230506:                  PUSH   RHTYPE
27361 @ 230509:                  PUSHI  #0x00000010
27362 @ 230514:                  LSH   
27363 @ 230515:                  PUSH   BASEP
27364 @ 230518:                  PUSHI  #0x00000008
27365 @ 230523:                  LSH   
27366 @ 230524:                  OR    
27367 @ 230525:                  PUSHI  #0x00000009
27368 @ 230530:                  OR    
27369 @ 230531:                  ASSPAR
27370 @ 230532:                  PUSH   DISPP
27371 @ 230535:                  ASSPAR
27372 @ 230536:                  CALL  

  4546              SET USE((RHTYPE&2)<<3+BASEP,1,HEAD1) %IF DISPP<0
27373 @ 230537:                  LINE   4546 "regression-compile-tmp/imp918s.imp"
27374 @ 230575:                  PUSH   DISPP
27375 @ 230578:                  PUSHI  #0x00000000
27376 @ 230583:                  JUMPIF >= L_0007
27377 @ 230587:                  PUSH   SETUSE
27378 @ 230590:                  PUSH   RHTYPE
27379 @ 230593:                  PUSHI  #0x00000002
27380 @ 230598:                  AND   
27381 @ 230599:                  PUSHI  #0x00000003
27382 @ 230604:                  LSH   
27383 @ 230605:                  PUSH   BASEP
27384 @ 230608:                  ADD   
27385 @ 230609:                  ASSPAR
27386 @ 230610:                  PUSHI  #0x00000001
27387 @ 230615:                  ASSPAR
27388 @ 230616:                  PUSH   HEAD1
27389 @ 230619:                  ASSPAR
27390 @ 230620:                  CALL  
27391 @ 230621:                  LOCATE L_0007

  4547           %FINISH %ELSE TORP(HEAD1,BOT1,NOPS,ZP);! RHS TO REVERSE POLISH
27392 @ 230624:                  LINE   4547 "regression-compile-tmp/imp918s.imp"
27393 @ 230662:                  GOTO   L_0003
27394 @ 230665:                  LOCATE L_0004
27395 @ 230668:                  PUSH   TORP
27396 @ 230671:                  PUSH   HEAD1
27397 @ 230674:                  ASSPAR
27398 @ 230675:                  PUSH   BOT1
27399 @ 230678:                  ASSPAR
27400 @ 230679:                  PUSH   NOPS
27401 @ 230682:                  ASSPAR
27402 @ 230683:                  PUSH   ZP
27403 @ 230686:                  ASSPAR
27404 @ 230687:                  CALL  
27405 @ 230688:                  LOCATE L_0003

  4548           Q=P; EXPOP(HEAD1,-1,NOPS,16); ! PLANT CODE
27406 @ 230691:                  LINE   4548 "regression-compile-tmp/imp918s.imp"
27407 @ 230729:                  PUSH   Q
27408 @ 230732:                  PUSH   P
27409 @ 230735:                  ASSVAL
27410 @ 230736:                  LINE   4548 "regression-compile-tmp/imp918s.imp"
27411 @ 230774:                  PUSH   EXPOP
27412 @ 230777:                  PUSH   HEAD1
27413 @ 230780:                  ASSPAR
27414 @ 230781:                  PUSHI  #0x00000001
27415 @ 230786:                  NEGATE
27416 @ 230787:                  ASSPAR
27417 @ 230788:                  PUSH   NOPS
27418 @ 230791:                  ASSPAR
27419 @ 230792:                  PUSHI  #0x00000010
27420 @ 230797:                  ASSPAR
27421 @ 230798:                  CALL  

  4549           P=Q
  4550  !         CLEARLIST(HEAD1)
27422 @ 230799:                  LINE   4549 "regression-compile-tmp/imp918s.imp"
27423 @ 230837:                  PUSH   P
27424 @ 230840:                  PUSH   Q
27425 @ 230843:                  ASSVAL

  4551           SHORTINTEGER(ADDR(ASLIST(BOT1))+14)=ASL
27426 @ 230844:                  LINE   4551 "regression-compile-tmp/imp918s.imp"
27427 @ 230882:                  PUSH   SHORTINTEGER
27428 @ 230885:                  PUSH   ADDR
27429 @ 230888:                  PUSH   ASLIST
27430 @ 230891:                  PUSH   BOT1
27431 @ 230894:                  ACCESS
27432 @ 230895:                  ASSPAR
27433 @ 230896:                  CALL  
27434 @ 230897:                  PUSHI  #0x0000000e
27435 @ 230902:                  ADD   
27436 @ 230903:                  ASSPAR
27437 @ 230904:                  CALL  
27438 @ 230905:                  PUSH   ASL
27439 @ 230908:                  ASSVAL

  4552           ASL=HEAD1; ->Label1
27440 @ 230909:                  LINE   4552 "regression-compile-tmp/imp918s.imp"
27441 @ 230947:                  PUSH   ASL
27442 @ 230950:                  PUSH   HEAD1
27443 @ 230953:                  ASSVAL
27444 @ 230954:                  LINE   4552 "regression-compile-tmp/imp918s.imp"
27445 @ 230992:                  JUMP   L_0220

  4553  NA:      NOTE ASSMENT(-1,ASSOP&3,A(P1)); ->Label1
27446 @ 230995:                  LINE   4553 "regression-compile-tmp/imp918s.imp"
27447 @ 231033:                  LABEL  L_021e
27448 @ 231036:                  LINE   4553 "regression-compile-tmp/imp918s.imp"
27449 @ 231074:                  PUSH   NOTEASSMENT
27450 @ 231077:                  PUSHI  #0x00000001
27451 @ 231082:                  NEGATE
27452 @ 231083:                  ASSPAR
27453 @ 231084:                  PUSH   ASSOP
27454 @ 231087:                  PUSHI  #0x00000003
27455 @ 231092:                  AND   
27456 @ 231093:                  ASSPAR
27457 @ 231094:                  PUSH   A
27458 @ 231097:                  PUSH   P1
27459 @ 231100:                  ACCESS
27460 @ 231101:                  ASSPAR
27461 @ 231102:                  CALL  
27462 @ 231103:                  LINE   4553 "regression-compile-tmp/imp918s.imp"
27463 @ 231141:                  JUMP   L_0220

  4554  Label50:      Z=0;                          ! STRINGS
27464 @ 231144:                  LINE   4554 "regression-compile-tmp/imp918s.imp"
27465 @ 231182:                  LABEL  L_021d
27466 @ 231185:                  LINE   4554 "regression-compile-tmp/imp918s.imp"
27467 @ 231223:                  PUSH   Z
27468 @ 231226:                  PUSHI  #0x00000000
27469 @ 231231:                  ASSVAL

  4555           %IF ASSOP<4 %THEN %START;     ! SORT RHS
27470 @ 231232:                  LINE   4555 "regression-compile-tmp/imp918s.imp"
27471 @ 231270:                  PUSH   ASSOP
27472 @ 231273:                  PUSHI  #0x00000004
27473 @ 231278:                  JUMPIF >= L_0004

  4556              FIND REG(SAFE,REG)
27474 @ 231282:                  LINE   4556 "regression-compile-tmp/imp918s.imp"
27475 @ 231320:                  PUSH   FINDREG
27476 @ 231323:                  PUSHI  #0xffff0e04
27477 @ 231328:                  ASSPAR
27478 @ 231329:                  PUSH   REG
27479 @ 231332:                  ASSPAR
27480 @ 231333:                  CALL  

  4557              CSTREXP(0,REG); Z=NEST
27481 @ 231334:                  LINE   4557 "regression-compile-tmp/imp918s.imp"
27482 @ 231372:                  PUSH   CSTREXP
27483 @ 231375:                  PUSHI  #0x00000000
27484 @ 231380:                  ASSPAR
27485 @ 231381:                  PUSH   REG
27486 @ 231384:                  ASSPAR
27487 @ 231385:                  CALL  
27488 @ 231386:                  LINE   4557 "regression-compile-tmp/imp918s.imp"
27489 @ 231424:                  PUSH   Z
27490 @ 231427:                  PUSH   NEST
27491 @ 231430:                  ASSVAL

  4558              %IF Z>0 %THEN SET USE(Z,13,0)
27492 @ 231431:                  LINE   4558 "regression-compile-tmp/imp918s.imp"
27493 @ 231469:                  PUSH   Z
27494 @ 231472:                  PUSHI  #0x00000000
27495 @ 231477:                  JUMPIF <= L_0007
27496 @ 231481:                  PUSH   SETUSE
27497 @ 231484:                  PUSH   Z
27498 @ 231487:                  ASSPAR
27499 @ 231488:                  PUSHI  #0x0000000d
27500 @ 231493:                  ASSPAR
27501 @ 231494:                  PUSHI  #0x00000000
27502 @ 231499:                  ASSPAR
27503 @ 231500:                  CALL  
27504 @ 231501:                  LOCATE L_0007

  4559              DISPP=DISP; BASEP=BASE
27505 @ 231504:                  LINE   4559 "regression-compile-tmp/imp918s.imp"
27506 @ 231542:                  PUSH   DISPP
27507 @ 231545:                  PUSH   DISP
27508 @ 231548:                  ASSVAL
27509 @ 231549:                  LINE   4559 "regression-compile-tmp/imp918s.imp"
27510 @ 231587:                  PUSH   BASEP
27511 @ 231590:                  PUSH   BASE
27512 @ 231593:                  ASSVAL

  4560              %UNLESS CHECKSP=0 %OR 4<=BASEP<=14 %START
27513 @ 231594:                  LINE   4560 "regression-compile-tmp/imp918s.imp"
27514 @ 231632:                  PUSH   CHECKSP
27515 @ 231635:                  PUSHI  #0x00000000
27516 @ 231640:                  JUMPIF = L_0007
27517 @ 231644:                  PUSHI  #0x00000004
27518 @ 231649:                  PUSH   BASEP
27519 @ 231652:                  JUMPIFD > L_0008
27520 @ 231656:                  PUSHI  #0x0000000e
27521 @ 231661:                  JUMPIF <= L_0007
27522 @ 231665:                  LOCATE L_0008

  4561                 PRR(X'18',REG,BASEP)
27523 @ 231668:                  LINE   4561 "regression-compile-tmp/imp918s.imp"
27524 @ 231706:                  PUSH   PRR
27525 @ 231709:                  PUSHI  #0x00000018
27526 @ 231714:                  ASSPAR
27527 @ 231715:                  PUSH   REG
27528 @ 231718:                  ASSPAR
27529 @ 231719:                  PUSH   BASEP
27530 @ 231722:                  ASSPAR
27531 @ 231723:                  CALL  

  4562                 SET USE(REG,GRUSE(BASEP),GRINF(BASEP))
27532 @ 231724:                  LINE   4562 "regression-compile-tmp/imp918s.imp"
27533 @ 231762:                  PUSH   SETUSE
27534 @ 231765:                  PUSH   REG
27535 @ 231768:                  ASSPAR
27536 @ 231769:                  PUSH   GRUSE
27537 @ 231772:                  PUSH   BASEP
27538 @ 231775:                  ACCESS
27539 @ 231776:                  ASSPAR
27540 @ 231777:                  PUSH   GRINF
27541 @ 231780:                  PUSH   BASEP
27542 @ 231783:                  ACCESS
27543 @ 231784:                  ASSPAR
27544 @ 231785:                  CALL  

  4563                 BASEP=REG
27545 @ 231786:                  LINE   4563 "regression-compile-tmp/imp918s.imp"
27546 @ 231824:                  PUSH   BASEP
27547 @ 231827:                  PUSH   REG
27548 @ 231830:                  ASSVAL

  4564              %FINISH
27549 @ 231831:                  LINE   4564 "regression-compile-tmp/imp918s.imp"
27550 @ 231869:                  LOCATE L_0007

  4565           %FINISH
27551 @ 231872:                  LINE   4565 "regression-compile-tmp/imp918s.imp"
27552 @ 231910:                  LOCATE L_0004

  4566           REGISTER(BASEP)=1 %IF REGISTER(BASEP)=0
27553 @ 231913:                  LINE   4566 "regression-compile-tmp/imp918s.imp"
27554 @ 231951:                  PUSH   REGISTER
27555 @ 231954:                  PUSH   BASEP
27556 @ 231957:                  ACCESS
27557 @ 231958:                  PUSHI  #0x00000000
27558 @ 231963:                  JUMPIF # L_0004
27559 @ 231967:                  PUSH   REGISTER
27560 @ 231970:                  PUSH   BASEP
27561 @ 231973:                  ACCESS
27562 @ 231974:                  PUSHI  #0x00000001
27563 @ 231979:                  ASSVAL
27564 @ 231980:                  LOCATE L_0004

  4567           QQ=STRINGL; Q=P
27565 @ 231983:                  LINE   4567 "regression-compile-tmp/imp918s.imp"
27566 @ 232021:                  PUSH   QQ
27567 @ 232024:                  PUSH   STRINGL
27568 @ 232027:                  ASSVAL
27569 @ 232028:                  LINE   4567 "regression-compile-tmp/imp918s.imp"
27570 @ 232066:                  PUSH   Q
27571 @ 232069:                  PUSH   P
27572 @ 232072:                  ASSVAL

  4568           %IF P1>X'FFFF' %THEN %START
27573 @ 232073:                  LINE   4568 "regression-compile-tmp/imp918s.imp"
27574 @ 232111:                  PUSH   P1
27575 @ 232114:                  PUSHI  #0x0000ffff
27576 @ 232119:                  JUMPIF <= L_0004

  4569              BASE=P1>>16; DISP=P1&X'FFFF'
27577 @ 232123:                  LINE   4569 "regression-compile-tmp/imp918s.imp"
27578 @ 232161:                  PUSH   BASE
27579 @ 232164:                  PUSH   P1
27580 @ 232167:                  PUSHI  #0x00000010
27581 @ 232172:                  RSH   
27582 @ 232173:                  ASSVAL
27583 @ 232174:                  LINE   4569 "regression-compile-tmp/imp918s.imp"
27584 @ 232212:                  PUSH   DISP
27585 @ 232215:                  PUSH   P1
27586 @ 232218:                  PUSHI  #0x0000ffff
27587 @ 232223:                  AND   
27588 @ 232224:                  ASSVAL

  4570              BML=0; DML=ACCP
27589 @ 232225:                  LINE   4570 "regression-compile-tmp/imp918s.imp"
27590 @ 232263:                  PUSH   BML
27591 @ 232266:                  PUSHI  #0x00000000
27592 @ 232271:                  ASSVAL
27593 @ 232272:                  LINE   4570 "regression-compile-tmp/imp918s.imp"
27594 @ 232310:                  PUSH   DML
27595 @ 232313:                  PUSH   ACCP
27596 @ 232316:                  ASSVAL

  4571           %FINISH %ELSE %START
27597 @ 232317:                  LINE   4571 "regression-compile-tmp/imp918s.imp"
27598 @ 232355:                  GOTO   L_0003
27599 @ 232358:                  LOCATE L_0004

  4572              P=P1; CNAME(1,0)
27600 @ 232361:                  LINE   4572 "regression-compile-tmp/imp918s.imp"
27601 @ 232399:                  PUSH   P
27602 @ 232402:                  PUSH   P1
27603 @ 232405:                  ASSVAL
27604 @ 232406:                  LINE   4572 "regression-compile-tmp/imp918s.imp"
27605 @ 232444:                  PUSH   CNAME
27606 @ 232447:                  PUSHI  #0x00000001
27607 @ 232452:                  ASSPAR
27608 @ 232453:                  PUSHI  #0x00000000
27609 @ 232458:                  ASSPAR
27610 @ 232459:                  CALL  

  4573              %IF INDEX>0 %THEN %START
27611 @ 232460:                  LINE   4573 "regression-compile-tmp/imp918s.imp"
27612 @ 232498:                  PUSH   INDEX
27613 @ 232501:                  PUSHI  #0x00000000
27614 @ 232506:                  JUMPIF <= L_0007

  4574                 PRR(X'1A',INDEX,BASE)
27615 @ 232510:                  LINE   4574 "regression-compile-tmp/imp918s.imp"
27616 @ 232548:                  PUSH   PRR
27617 @ 232551:                  PUSHI  #0x0000001a
27618 @ 232556:                  ASSPAR
27619 @ 232557:                  PUSH   INDEX
27620 @ 232560:                  ASSPAR
27621 @ 232561:                  PUSH   BASE
27622 @ 232564:                  ASSPAR
27623 @ 232565:                  CALL  

  4575                 FORGET(INDEX)
27624 @ 232566:                  LINE   4575 "regression-compile-tmp/imp918s.imp"
27625 @ 232604:                  PUSH   FORGET
27626 @ 232607:                  PUSH   INDEX
27627 @ 232610:                  ASSPAR
27628 @ 232611:                  CALL  

  4576                 BASE=INDEX; INDEX=0
27629 @ 232612:                  LINE   4576 "regression-compile-tmp/imp918s.imp"
27630 @ 232650:                  PUSH   BASE
27631 @ 232653:                  PUSH   INDEX
27632 @ 232656:                  ASSVAL
27633 @ 232657:                  LINE   4576 "regression-compile-tmp/imp918s.imp"
27634 @ 232695:                  PUSH   INDEX
27635 @ 232698:                  PUSHI  #0x00000000
27636 @ 232703:                  ASSVAL

  4577              %FINISH
27637 @ 232704:                  LINE   4577 "regression-compile-tmp/imp918s.imp"
27638 @ 232742:                  LOCATE L_0007

  4578           %FINISH
  4579  !
  4580  
27639 @ 232745:                  LINE   4578 "regression-compile-tmp/imp918s.imp"
27640 @ 232783:                  LOCATE L_0003

  4581           %IF DISPP=X'C0' %AND BASEP=CODER %THEN %START
27641 @ 232786:                  LINE   4581 "regression-compile-tmp/imp918s.imp"
27642 @ 232824:                  PUSH   DISPP
27643 @ 232827:                  PUSHI  #0x000000c0
27644 @ 232832:                  JUMPIF # L_0004
27645 @ 232836:                  PUSH   BASEP
27646 @ 232839:                  PUSHI  #0x0000000c
27647 @ 232844:                  JUMPIF # L_0004

  4582              DUMPSI(X'92',0,BASE,DISP);         ! MVI IF RHS NULL
27648 @ 232848:                  LINE   4582 "regression-compile-tmp/imp918s.imp"
27649 @ 232886:                  PUSH   DUMPSI
27650 @ 232889:                  PUSHI  #0x00000092
27651 @ 232894:                  ASSPAR
27652 @ 232895:                  PUSHI  #0x00000000
27653 @ 232900:                  ASSPAR
27654 @ 232901:                  PUSH   BASE
27655 @ 232904:                  ASSPAR
27656 @ 232905:                  PUSH   DISP
27657 @ 232908:                  ASSPAR
27658 @ 232909:                  CALL  

  4583           %FINISH %ELSE %START
27659 @ 232910:                  LINE   4583 "regression-compile-tmp/imp918s.imp"
27660 @ 232948:                  GOTO   L_0003
27661 @ 232951:                  LOCATE L_0004

  4584              REG=(ASSOP&3-1)^^2
27662 @ 232954:                  LINE   4584 "regression-compile-tmp/imp918s.imp"
27663 @ 232992:                  PUSH   REG
27664 @ 232995:                  PUSH   ASSOP
27665 @ 232998:                  PUSHI  #0x00000003
27666 @ 233003:                  AND   
27667 @ 233004:                  PUSHI  #0x00000001
27668 @ 233009:                  SUB   
27669 @ 233010:                  PUSHI  #0x00000002
27670 @ 233015:                  IEXP  
27671 @ 233016:                  ASSVAL

  4585              %IF REG#1 %OR Z<=0 %OR GRUSE(Z)#13 %THEN Z=-2
27672 @ 233017:                  LINE   4585 "regression-compile-tmp/imp918s.imp"
27673 @ 233055:                  PUSH   REG
27674 @ 233058:                  PUSHI  #0x00000001
27675 @ 233063:                  JUMPIF # L_0008
27676 @ 233067:                  PUSH   Z
27677 @ 233070:                  PUSHI  #0x00000000
27678 @ 233075:                  JUMPIF <= L_0008
27679 @ 233079:                  PUSH   GRUSE
27680 @ 233082:                  PUSH   Z
27681 @ 233085:                  ACCESS
27682 @ 233086:                  PUSHI  #0x0000000d
27683 @ 233091:                  JUMPIF = L_0007
27684 @ 233095:                  LOCATE L_0008
27685 @ 233098:                  PUSH   Z
27686 @ 233101:                  PUSHI  #0x00000002
27687 @ 233106:                  NEGATE
27688 @ 233107:                  ASSVAL
27689 @ 233108:                  LOCATE L_0007

  4586              STRINGOP(REG,QQ,BASE,DISP,BASEP,DISPP,BML,DML,Z)
27690 @ 233111:                  LINE   4586 "regression-compile-tmp/imp918s.imp"
27691 @ 233149:                  PUSH   STRINGOP
27692 @ 233152:                  PUSH   REG
27693 @ 233155:                  ASSPAR
27694 @ 233156:                  PUSH   QQ
27695 @ 233159:                  ASSPAR
27696 @ 233160:                  PUSH   BASE
27697 @ 233163:                  ASSPAR
27698 @ 233164:                  PUSH   DISP
27699 @ 233167:                  ASSPAR
27700 @ 233168:                  PUSH   BASEP
27701 @ 233171:                  ASSPAR
27702 @ 233172:                  PUSH   DISPP
27703 @ 233175:                  ASSPAR
27704 @ 233176:                  PUSH   BML
27705 @ 233179:                  ASSPAR
27706 @ 233180:                  PUSH   DML
27707 @ 233183:                  ASSPAR
27708 @ 233184:                  PUSH   Z
27709 @ 233187:                  ASSPAR
27710 @ 233188:                  CALL  

  4587              %IF Z>0 %AND GRUSE(Z)=13 %THEN SET USE(Z,2,-2)
27711 @ 233189:                  LINE   4587 "regression-compile-tmp/imp918s.imp"
27712 @ 233227:                  PUSH   Z
27713 @ 233230:                  PUSHI  #0x00000000
27714 @ 233235:                  JUMPIF <= L_0007
27715 @ 233239:                  PUSH   GRUSE
27716 @ 233242:                  PUSH   Z
27717 @ 233245:                  ACCESS
27718 @ 233246:                  PUSHI  #0x0000000d
27719 @ 233251:                  JUMPIF # L_0007
27720 @ 233255:                  PUSH   SETUSE
27721 @ 233258:                  PUSH   Z
27722 @ 233261:                  ASSPAR
27723 @ 233262:                  PUSHI  #0x00000002
27724 @ 233267:                  ASSPAR
27725 @ 233268:                  PUSHI  #0x00000002
27726 @ 233273:                  NEGATE
27727 @ 233274:                  ASSPAR
27728 @ 233275:                  CALL  
27729 @ 233276:                  LOCATE L_0007

  4588              REGISTER(BASEP)=0 %IF REGISTER(BASEP)>0
27730 @ 233279:                  LINE   4588 "regression-compile-tmp/imp918s.imp"
27731 @ 233317:                  PUSH   REGISTER
27732 @ 233320:                  PUSH   BASEP
27733 @ 233323:                  ACCESS
27734 @ 233324:                  PUSHI  #0x00000000
27735 @ 233329:                  JUMPIF <= L_0007
27736 @ 233333:                  PUSH   REGISTER
27737 @ 233336:                  PUSH   BASEP
27738 @ 233339:                  ACCESS
27739 @ 233340:                  PUSHI  #0x00000000
27740 @ 233345:                  ASSVAL
27741 @ 233346:                  LOCATE L_0007

  4589           %FINISH
27742 @ 233349:                  LINE   4589 "regression-compile-tmp/imp918s.imp"
27743 @ 233387:                  LOCATE L_0003

  4590           P=Q; ->Label1
27744 @ 233390:                  LINE   4590 "regression-compile-tmp/imp918s.imp"
27745 @ 233428:                  PUSH   P
27746 @ 233431:                  PUSH   Q
27747 @ 233434:                  ASSVAL
27748 @ 233435:                  LINE   4590 "regression-compile-tmp/imp918s.imp"
27749 @ 233473:                  JUMP   L_0220

  4591  REGVAR:  FAULT(59,0) %UNLESS A(P1+1)=2=A(P1+2)
27750 @ 233476:                  LINE   4591 "regression-compile-tmp/imp918s.imp"
27751 @ 233514:                  LABEL  L_021b
27752 @ 233517:                  LINE   4591 "regression-compile-tmp/imp918s.imp"
27753 @ 233555:                  PUSH   A
27754 @ 233558:                  PUSH   P1
27755 @ 233561:                  PUSHI  #0x00000001
27756 @ 233566:                  ADD   
27757 @ 233567:                  ACCESS
27758 @ 233568:                  PUSHI  #0x00000002
27759 @ 233573:                  JUMPIFD # L_0005
27760 @ 233577:                  PUSH   A
27761 @ 233580:                  PUSH   P1
27762 @ 233583:                  PUSHI  #0x00000002
27763 @ 233588:                  ADD   
27764 @ 233589:                  ACCESS
27765 @ 233590:                  JUMPIF = L_0004
27766 @ 233594:                  LOCATE L_0005
27767 @ 233597:                  PUSH   FAULT
27768 @ 233600:                  PUSHI  #0x0000003b
27769 @ 233605:                  ASSPAR
27770 @ 233606:                  PUSHI  #0x00000000
27771 @ 233611:                  ASSPAR
27772 @ 233612:                  CALL  
27773 @ 233613:                  LOCATE L_0004

  4592           KK=1<<K
27774 @ 233616:                  LINE   4592 "regression-compile-tmp/imp918s.imp"
27775 @ 233654:                  PUSH   KK
27776 @ 233657:                  PUSHI  #0x00000001
27777 @ 233662:                  PUSH   K
27778 @ 233665:                  LSH   
27779 @ 233666:                  ASSVAL

  4593           %IF REGISTER(K)>=0 %THEN ABORT
27780 @ 233667:                  LINE   4593 "regression-compile-tmp/imp918s.imp"
27781 @ 233705:                  PUSH   REGISTER
27782 @ 233708:                  PUSH   K
27783 @ 233711:                  ACCESS
27784 @ 233712:                  PUSHI  #0x00000000
27785 @ 233717:                  JUMPIF < L_0004
27786 @ 233721:                  PUSH   ABORT
27787 @ 233724:                  CALL  
27788 @ 233725:                  LOCATE L_0004

  4594          %IF CYC REGS&KK#0 %THEN CYC ASS=CYC ASS!KK %ELSE NMDECS=NMDECS!4
27789 @ 233728:                  LINE   4594 "regression-compile-tmp/imp918s.imp"
27790 @ 233766:                  PUSH   CYCREGS
27791 @ 233769:                  PUSH   KK
27792 @ 233772:                  AND   
27793 @ 233773:                  PUSHI  #0x00000000
27794 @ 233778:                  JUMPIF = L_0004
27795 @ 233782:                  PUSH   CYCASS
27796 @ 233785:                  PUSH   CYCASS
27797 @ 233788:                  PUSH   KK
27798 @ 233791:                  OR    
27799 @ 233792:                  ASSVAL
27800 @ 233793:                  GOTO   L_0003
27801 @ 233796:                  LOCATE L_0004
27802 @ 233799:                  PUSH   NMDECS
27803 @ 233802:                  PUSH   NMDECS
27804 @ 233805:                  PUSHI  #0x00000004
27805 @ 233810:                  OR    
27806 @ 233811:                  ASSVAL
27807 @ 233812:                  LOCATE L_0003

  4595           CSEXP(K,1); ->NA
  4596  
  4597  ! THIS SECTION DEALS WITH OPERATIONS ON COMPLETE RECORDS
27808 @ 233815:                  LINE   4595 "regression-compile-tmp/imp918s.imp"
27809 @ 233853:                  PUSH   CSEXP
27810 @ 233856:                  PUSH   K
27811 @ 233859:                  ASSPAR
27812 @ 233860:                  PUSHI  #0x00000001
27813 @ 233865:                  ASSPAR
27814 @ 233866:                  CALL  
27815 @ 233867:                  LINE   4595 "regression-compile-tmp/imp918s.imp"
27816 @ 233905:                  JUMP   L_021e

  4598  RECOP:                                   ! LHS IS RECORD WITHOUT SUBNAME
27817 @ 233908:                  LINE   4598 "regression-compile-tmp/imp918s.imp"
27818 @ 233946:                  LABEL  L_021c

  4599           Q=TSEXP(JJJ,0)
27819 @ 233949:                  LINE   4599 "regression-compile-tmp/imp918s.imp"
27820 @ 233987:                  PUSH   Q
27821 @ 233990:                  PUSH   TSEXP
27822 @ 233993:                  PUSH   JJJ
27823 @ 233996:                  ASSPAR
27824 @ 233997:                  PUSHI  #0x00000000
27825 @ 234002:                  ASSPAR
27826 @ 234003:                  CALL  
27827 @ 234004:                  ASSVAL

  4600           -> RZ %IF Q=1=TYPE %AND JJJ=0;  ! CLEAR ENTIRE RECORD TO ZERO
27828 @ 234005:                  LINE   4600 "regression-compile-tmp/imp918s.imp"
27829 @ 234043:                  PUSH   Q
27830 @ 234046:                  PUSHI  #0x00000001
27831 @ 234051:                  JUMPIFD # L_0004
27832 @ 234055:                  PUSH   TYPE
27833 @ 234058:                  JUMPIF # L_0004
27834 @ 234062:                  PUSH   JJJ
27835 @ 234065:                  PUSHI  #0x00000000
27836 @ 234070:                  JUMPIF # L_0004
27837 @ 234074:                  JUMP   L_0221
27838 @ 234077:                  LOCATE L_0004

  4601           -> BACK %UNLESS Q=30;           ! ASSIGN RECORD TO RECORD
27839 @ 234080:                  LINE   4601 "regression-compile-tmp/imp918s.imp"
27840 @ 234118:                  PUSH   Q
27841 @ 234121:                  PUSHI  #0x0000001e
27842 @ 234126:                  JUMPIF = L_0004
27843 @ 234130:                  JUMP   L_021f
27844 @ 234133:                  LOCATE L_0004

  4602           P=P2+4; CNAME(16,-2);           ! SET BASE &DISP FOR RHS
27845 @ 234136:                  LINE   4602 "regression-compile-tmp/imp918s.imp"
27846 @ 234174:                  PUSH   P
27847 @ 234177:                  PUSH   P2
27848 @ 234180:                  PUSHI  #0x00000004
27849 @ 234185:                  ADD   
27850 @ 234186:                  ASSVAL
27851 @ 234187:                  LINE   4602 "regression-compile-tmp/imp918s.imp"
27852 @ 234225:                  PUSH   CNAME
27853 @ 234228:                  PUSHI  #0x00000010
27854 @ 234233:                  ASSPAR
27855 @ 234234:                  PUSHI  #0x00000002
27856 @ 234239:                  NEGATE
27857 @ 234240:                  ASSPAR
27858 @ 234241:                  CALL  

  4603           BASEP=BASE; DISPP=DISP
27859 @ 234242:                  LINE   4603 "regression-compile-tmp/imp918s.imp"
27860 @ 234280:                  PUSH   BASEP
27861 @ 234283:                  PUSH   BASE
27862 @ 234286:                  ASSVAL
27863 @ 234287:                  LINE   4603 "regression-compile-tmp/imp918s.imp"
27864 @ 234325:                  PUSH   DISPP
27865 @ 234328:                  PUSH   DISP
27866 @ 234331:                  ASSVAL

  4604           ZP=ACC
27867 @ 234332:                  LINE   4604 "regression-compile-tmp/imp918s.imp"
27868 @ 234370:                  PUSH   ZP
27869 @ 234373:                  PUSH   ACC
27870 @ 234376:                  ASSVAL

  4605           CYC BITS=CYC BITS!128 %IF COMPILER=0; ! SAFE REG NEEDED
27871 @ 234377:                  LINE   4605 "regression-compile-tmp/imp918s.imp"
27872 @ 234415:                  PUSH   COMPILER
27873 @ 234418:                  PUSHI  #0x00000000
27874 @ 234423:                  JUMPIF # L_0004
27875 @ 234427:                  PUSH   CYCBITS
27876 @ 234430:                  PUSH   CYCBITS
27877 @ 234433:                  PUSHI  #0x00000080
27878 @ 234438:                  OR    
27879 @ 234439:                  ASSVAL
27880 @ 234440:                  LOCATE L_0004

  4606           %UNLESS COMPILER=1 %OR 4<=BASE<=14 %START
27881 @ 234443:                  LINE   4606 "regression-compile-tmp/imp918s.imp"
27882 @ 234481:                  PUSH   COMPILER
27883 @ 234484:                  PUSHI  #0x00000001
27884 @ 234489:                  JUMPIF = L_0004
27885 @ 234493:                  PUSHI  #0x00000004
27886 @ 234498:                  PUSH   BASE
27887 @ 234501:                  JUMPIFD > L_0005
27888 @ 234505:                  PUSHI  #0x0000000e
27889 @ 234510:                  JUMPIF <= L_0004
27890 @ 234514:                  LOCATE L_0005

  4607              FINDREG(SAFE,NEST)
27891 @ 234517:                  LINE   4607 "regression-compile-tmp/imp918s.imp"
27892 @ 234555:                  PUSH   FINDREG
27893 @ 234558:                  PUSHI  #0xffff0e04
27894 @ 234563:                  ASSPAR
27895 @ 234564:                  PUSH   NEST
27896 @ 234567:                  ASSPAR
27897 @ 234568:                  CALL  

  4608              PRR(X'18',NEST,BASE)
27898 @ 234569:                  LINE   4608 "regression-compile-tmp/imp918s.imp"
27899 @ 234607:                  PUSH   PRR
27900 @ 234610:                  PUSHI  #0x00000018
27901 @ 234615:                  ASSPAR
27902 @ 234616:                  PUSH   NEST
27903 @ 234619:                  ASSPAR
27904 @ 234620:                  PUSH   BASE
27905 @ 234623:                  ASSPAR
27906 @ 234624:                  CALL  

  4609              SET USE(NEST,GRUSE(BASE),GRINF(BASE))
27907 @ 234625:                  LINE   4609 "regression-compile-tmp/imp918s.imp"
27908 @ 234663:                  PUSH   SETUSE
27909 @ 234666:                  PUSH   NEST
27910 @ 234669:                  ASSPAR
27911 @ 234670:                  PUSH   GRUSE
27912 @ 234673:                  PUSH   BASE
27913 @ 234676:                  ACCESS
27914 @ 234677:                  ASSPAR
27915 @ 234678:                  PUSH   GRINF
27916 @ 234681:                  PUSH   BASE
27917 @ 234684:                  ACCESS
27918 @ 234685:                  ASSPAR
27919 @ 234686:                  CALL  

  4610              BASEP=NEST
27920 @ 234687:                  LINE   4610 "regression-compile-tmp/imp918s.imp"
27921 @ 234725:                  PUSH   BASEP
27922 @ 234728:                  PUSH   NEST
27923 @ 234731:                  ASSVAL

  4611           %FINISH
27924 @ 234732:                  LINE   4611 "regression-compile-tmp/imp918s.imp"
27925 @ 234770:                  LOCATE L_0004

  4612           REG=BASEP
27926 @ 234773:                  LINE   4612 "regression-compile-tmp/imp918s.imp"
27927 @ 234811:                  PUSH   REG
27928 @ 234814:                  PUSH   BASEP
27929 @ 234817:                  ASSVAL

  4613           REGISTER(BASEP)=1 %IF REGISTER(BASEP)=0
27930 @ 234818:                  LINE   4613 "regression-compile-tmp/imp918s.imp"
27931 @ 234856:                  PUSH   REGISTER
27932 @ 234859:                  PUSH   BASEP
27933 @ 234862:                  ACCESS
27934 @ 234863:                  PUSHI  #0x00000000
27935 @ 234868:                  JUMPIF # L_0004
27936 @ 234872:                  PUSH   REGISTER
27937 @ 234875:                  PUSH   BASEP
27938 @ 234878:                  ACCESS
27939 @ 234879:                  PUSHI  #0x00000001
27940 @ 234884:                  ASSVAL
27941 @ 234885:                  LOCATE L_0004

  4614  RZ:      P=P1; CNAME(16,-2);             ! BASE & DISP FOR LHS
27942 @ 234888:                  LINE   4614 "regression-compile-tmp/imp918s.imp"
27943 @ 234926:                  LABEL  L_0221
27944 @ 234929:                  LINE   4614 "regression-compile-tmp/imp918s.imp"
27945 @ 234967:                  PUSH   P
27946 @ 234970:                  PUSH   P1
27947 @ 234973:                  ASSVAL
27948 @ 234974:                  LINE   4614 "regression-compile-tmp/imp918s.imp"
27949 @ 235012:                  PUSH   CNAME
27950 @ 235015:                  PUSHI  #0x00000010
27951 @ 235020:                  ASSPAR
27952 @ 235021:                  PUSHI  #0x00000002
27953 @ 235026:                  NEGATE
27954 @ 235027:                  ASSPAR
27955 @ 235028:                  CALL  

  4615           KK=DISP; JJ=BASE; ACCP=ACC
  4616  !
27956 @ 235029:                  LINE   4615 "regression-compile-tmp/imp918s.imp"
27957 @ 235067:                  PUSH   KK
27958 @ 235070:                  PUSH   DISP
27959 @ 235073:                  ASSVAL
27960 @ 235074:                  LINE   4615 "regression-compile-tmp/imp918s.imp"
27961 @ 235112:                  PUSH   JJ
27962 @ 235115:                  PUSH   BASE
27963 @ 235118:                  ASSVAL
27964 @ 235119:                  LINE   4615 "regression-compile-tmp/imp918s.imp"
27965 @ 235157:                  PUSH   ACCP
27966 @ 235160:                  PUSH   ACC
27967 @ 235163:                  ASSVAL

  4617           %IF Q=1 %THEN %START
27968 @ 235164:                  LINE   4617 "regression-compile-tmp/imp918s.imp"
27969 @ 235202:                  PUSH   Q
27970 @ 235205:                  PUSHI  #0x00000001
27971 @ 235210:                  JUMPIF # L_0004

  4618           BASEP=0; DISPP=0
27972 @ 235214:                  LINE   4618 "regression-compile-tmp/imp918s.imp"
27973 @ 235252:                  PUSH   BASEP
27974 @ 235255:                  PUSHI  #0x00000000
27975 @ 235260:                  ASSVAL
27976 @ 235261:                  LINE   4618 "regression-compile-tmp/imp918s.imp"
27977 @ 235299:                  PUSH   DISPP
27978 @ 235302:                  PUSHI  #0x00000000
27979 @ 235307:                  ASSVAL

  4619           %FINISH %ELSE %START
27980 @ 235308:                  LINE   4619 "regression-compile-tmp/imp918s.imp"
27981 @ 235346:                  GOTO   L_0003
27982 @ 235349:                  LOCATE L_0004

  4620           ->F66 %IF ASSOP=2 %AND ACCP#ZP;  ! '=' OPRN BOTH RECORD MUST
  4621                                            ! HAVE THE SAME LENGTH
27983 @ 235352:                  LINE   4620 "regression-compile-tmp/imp918s.imp"
27984 @ 235390:                  PUSH   ASSOP
27985 @ 235393:                  PUSHI  #0x00000002
27986 @ 235398:                  JUMPIF # L_0007
27987 @ 235402:                  PUSH   ACCP
27988 @ 235405:                  PUSH   ZP
27989 @ 235408:                  JUMPIF = L_0007
27990 @ 235412:                  JUMP   L_0222
27991 @ 235415:                  LOCATE L_0007

  4622           %IF ZP<ACCP %THEN ACCP=ZP;       ! ON'<-' MOVE SMALLER
27992 @ 235418:                  LINE   4622 "regression-compile-tmp/imp918s.imp"
27993 @ 235456:                  PUSH   ZP
27994 @ 235459:                  PUSH   ACCP
27995 @ 235462:                  JUMPIF >= L_0007
27996 @ 235466:                  PUSH   ACCP
27997 @ 235469:                  PUSH   ZP
27998 @ 235472:                  ASSVAL
27999 @ 235473:                  LOCATE L_0007

  4623           %FINISH
28000 @ 235476:                  LINE   4623 "regression-compile-tmp/imp918s.imp"
28001 @ 235514:                  LOCATE L_0003

  4624           REGISTER(JJ)=1 %IF REGISTER(JJ)=0
  4625  !
28002 @ 235517:                  LINE   4624 "regression-compile-tmp/imp918s.imp"
28003 @ 235555:                  PUSH   REGISTER
28004 @ 235558:                  PUSH   JJ
28005 @ 235561:                  ACCESS
28006 @ 235562:                  PUSHI  #0x00000000
28007 @ 235567:                  JUMPIF # L_0004
28008 @ 235571:                  PUSH   REGISTER
28009 @ 235574:                  PUSH   JJ
28010 @ 235577:                  ACCESS
28011 @ 235578:                  PUSHI  #0x00000001
28012 @ 235583:                  ASSVAL
28013 @ 235584:                  LOCATE L_0004

  4626           BULKM(Q-1,ACCP,JJ,KK,BASEP,DISPP)
28014 @ 235587:                  LINE   4626 "regression-compile-tmp/imp918s.imp"
28015 @ 235625:                  PUSH   BULKM
28016 @ 235628:                  PUSH   Q
28017 @ 235631:                  PUSHI  #0x00000001
28018 @ 235636:                  SUB   
28019 @ 235637:                  ASSPAR
28020 @ 235638:                  PUSH   ACCP
28021 @ 235641:                  ASSPAR
28022 @ 235642:                  PUSH   JJ
28023 @ 235645:                  ASSPAR
28024 @ 235646:                  PUSH   KK
28025 @ 235649:                  ASSPAR
28026 @ 235650:                  PUSH   BASEP
28027 @ 235653:                  ASSPAR
28028 @ 235654:                  PUSH   DISPP
28029 @ 235657:                  ASSPAR
28030 @ 235658:                  CALL  

  4627           %IF REGISTER(JJ)>0 %THEN REGISTER(JJ)=0
28031 @ 235659:                  LINE   4627 "regression-compile-tmp/imp918s.imp"
28032 @ 235697:                  PUSH   REGISTER
28033 @ 235700:                  PUSH   JJ
28034 @ 235703:                  ACCESS
28035 @ 235704:                  PUSHI  #0x00000000
28036 @ 235709:                  JUMPIF <= L_0004
28037 @ 235713:                  PUSH   REGISTER
28038 @ 235716:                  PUSH   JJ
28039 @ 235719:                  ACCESS
28040 @ 235720:                  PUSHI  #0x00000000
28041 @ 235725:                  ASSVAL
28042 @ 235726:                  LOCATE L_0004

  4628           %IF Q=30 %AND REGISTER(BASEP)>0 %THEN REGISTER(BASEP)=0
28043 @ 235729:                  LINE   4628 "regression-compile-tmp/imp918s.imp"
28044 @ 235767:                  PUSH   Q
28045 @ 235770:                  PUSHI  #0x0000001e
28046 @ 235775:                  JUMPIF # L_0004
28047 @ 235779:                  PUSH   REGISTER
28048 @ 235782:                  PUSH   BASEP
28049 @ 235785:                  ACCESS
28050 @ 235786:                  PUSHI  #0x00000000
28051 @ 235791:                  JUMPIF <= L_0004
28052 @ 235795:                  PUSH   REGISTER
28053 @ 235798:                  PUSH   BASEP
28054 @ 235801:                  ACCESS
28055 @ 235802:                  PUSHI  #0x00000000
28056 @ 235807:                  ASSVAL
28057 @ 235808:                  LOCATE L_0004

  4629           P=P2; SKIP EXP; ->Label1
28058 @ 235811:                  LINE   4629 "regression-compile-tmp/imp918s.imp"
28059 @ 235849:                  PUSH   P
28060 @ 235852:                  PUSH   P2
28061 @ 235855:                  ASSVAL
28062 @ 235856:                  LINE   4629 "regression-compile-tmp/imp918s.imp"
28063 @ 235894:                  PUSH   SKIPEXP
28064 @ 235897:                  CALL  
28065 @ 235898:                  LINE   4629 "regression-compile-tmp/imp918s.imp"
28066 @ 235936:                  JUMP   L_0220

  4630  SW(0):                                 ! RESOLUTION
28067 @ 235939:                  LINE   4630 "regression-compile-tmp/imp918s.imp"
28068 @ 235977:                  PUSHI  #0x00000000
28069 @ 235982:                  SLABEL 538

  4631           P=P1; CNAME(5,1);             ! LOAD UP LHS
28070 @ 235985:                  LINE   4631 "regression-compile-tmp/imp918s.imp"
28071 @ 236023:                  PUSH   P
28072 @ 236026:                  PUSH   P1
28073 @ 236029:                  ASSVAL
28074 @ 236030:                  LINE   4631 "regression-compile-tmp/imp918s.imp"
28075 @ 236068:                  PUSH   CNAME
28076 @ 236071:                  PUSHI  #0x00000005
28077 @ 236076:                  ASSPAR
28078 @ 236077:                  PUSHI  #0x00000001
28079 @ 236082:                  ASSPAR
28080 @ 236083:                  CALL  

  4632           P=P2; CRES(0); ->Label1;           ! PERFORM UNCONDITIONAL RESOLUTIO
28081 @ 236084:                  LINE   4632 "regression-compile-tmp/imp918s.imp"
28082 @ 236122:                  PUSH   P
28083 @ 236125:                  PUSH   P2
28084 @ 236128:                  ASSVAL
28085 @ 236129:                  LINE   4632 "regression-compile-tmp/imp918s.imp"
28086 @ 236167:                  PUSH   CRES
28087 @ 236170:                  PUSHI  #0x00000000
28088 @ 236175:                  ASSPAR
28089 @ 236176:                  CALL  
28090 @ 236177:                  LINE   4632 "regression-compile-tmp/imp918s.imp"
28091 @ 236215:                  JUMP   L_0220

  4633  SW(1):                                 ! '==' AND %NAME PARAMETERS
28092 @ 236218:                  LINE   4633 "regression-compile-tmp/imp918s.imp"
28093 @ 236256:                  PUSHI  #0x00000001
28094 @ 236261:                  SLABEL 538

  4634           ->F2 %UNLESS A(P2+2)=4 %AND A(P2+3)=1;! DISALLOW EXPRESSIONS
28095 @ 236264:                  LINE   4634 "regression-compile-tmp/imp918s.imp"
28096 @ 236302:                  PUSH   A
28097 @ 236305:                  PUSH   P2
28098 @ 236308:                  PUSHI  #0x00000002
28099 @ 236313:                  ADD   
28100 @ 236314:                  ACCESS
28101 @ 236315:                  PUSHI  #0x00000004
28102 @ 236320:                  JUMPIF # L_0005
28103 @ 236324:                  PUSH   A
28104 @ 236327:                  PUSH   P2
28105 @ 236330:                  PUSHI  #0x00000003
28106 @ 236335:                  ADD   
28107 @ 236336:                  ACCESS
28108 @ 236337:                  PUSHI  #0x00000001
28109 @ 236342:                  JUMPIF = L_0004
28110 @ 236346:                  LOCATE L_0005
28111 @ 236349:                  JUMP   L_0223
28112 @ 236352:                  LOCATE L_0004

  4635           REG=-2
28113 @ 236355:                  LINE   4635 "regression-compile-tmp/imp918s.imp"
28114 @ 236393:                  PUSH   REG
28115 @ 236396:                  PUSHI  #0x00000002
28116 @ 236401:                  NEGATE
28117 @ 236402:                  ASSVAL

  4636            %UNLESS ROUT=0 %AND ARR=0 %AND (P1>X'FFFF' %OR %C
  4637           A(P1+1)=2=A(P1+2)) %THEN  CLAIM(SAFE,REG) %AND FORGET(REG)
28118 @ 236403:                  LINE   4636 "regression-compile-tmp/imp918s.imp"
28119 @ 236441:                  PUSH   ROUT
28120 @ 236444:                  PUSHI  #0x00000000
28121 @ 236449:                  JUMPIF # L_0005
28122 @ 236453:                  PUSH   ARR
28123 @ 236456:                  PUSHI  #0x00000000
28124 @ 236461:                  JUMPIF # L_0005
28125 @ 236465:                  PUSH   P1
28126 @ 236468:                  PUSHI  #0x0000ffff
28127 @ 236473:                  JUMPIF > L_0004
28128 @ 236477:                  PUSH   A
28129 @ 236480:                  PUSH   P1
28130 @ 236483:                  PUSHI  #0x00000001
28131 @ 236488:                  ADD   
28132 @ 236489:                  ACCESS
28133 @ 236490:                  PUSHI  #0x00000002
28134 @ 236495:                  JUMPIFD # L_0005
28135 @ 236499:                  PUSH   A
28136 @ 236502:                  PUSH   P1
28137 @ 236505:                  PUSHI  #0x00000002
28138 @ 236510:                  ADD   
28139 @ 236511:                  ACCESS
28140 @ 236512:                  JUMPIF = L_0004
28141 @ 236516:                  LOCATE L_0005
28142 @ 236519:                  PUSH   CLAIM
28143 @ 236522:                  PUSHI  #0xffff0e04
28144 @ 236527:                  ASSPAR
28145 @ 236528:                  PUSH   REG
28146 @ 236531:                  ASSPAR
28147 @ 236532:                  CALL  
28148 @ 236533:                  PUSH   FORGET
28149 @ 236536:                  PUSH   REG
28150 @ 236539:                  ASSPAR
28151 @ 236540:                  CALL  
28152 @ 236541:                  LOCATE L_0004

  4638           %IF TYPE=3 %THEN %START
28153 @ 236544:                  LINE   4638 "regression-compile-tmp/imp918s.imp"
28154 @ 236582:                  PUSH   TYPE
28155 @ 236585:                  PUSHI  #0x00000003
28156 @ 236590:                  JUMPIF # L_0004

  4639              ->RECNAME %IF P1>X'FFFF';     ! RECORD NAME PARAMETERS
28157 @ 236594:                  LINE   4639 "regression-compile-tmp/imp918s.imp"
28158 @ 236632:                  PUSH   P1
28159 @ 236635:                  PUSHI  #0x0000ffff
28160 @ 236640:                  JUMPIF <= L_0007
28161 @ 236644:                  JUMP   L_0224
28162 @ 236647:                  LOCATE L_0007

  4640              P=P1; Q=COPY RECORD TAG(QQ)
28163 @ 236650:                  LINE   4640 "regression-compile-tmp/imp918s.imp"
28164 @ 236688:                  PUSH   P
28165 @ 236691:                  PUSH   P1
28166 @ 236694:                  ASSVAL
28167 @ 236695:                  LINE   4640 "regression-compile-tmp/imp918s.imp"
28168 @ 236733:                  PUSH   Q
28169 @ 236736:                  PUSH   COPYRECORDTAG
28170 @ 236739:                  PUSH   QQ
28171 @ 236742:                  ASSPAR
28172 @ 236743:                  CALL  
28173 @ 236744:                  ASSVAL

  4641              TYPEP=TYPE; PRECP=PREC; JJ=J
28174 @ 236745:                  LINE   4641 "regression-compile-tmp/imp918s.imp"
28175 @ 236783:                  PUSH   TYPEP
28176 @ 236786:                  PUSH   TYPE
28177 @ 236789:                  ASSVAL
28178 @ 236790:                  LINE   4641 "regression-compile-tmp/imp918s.imp"
28179 @ 236828:                  PUSH   PRECP
28180 @ 236831:                  PUSH   PREC
28181 @ 236834:                  ASSVAL
28182 @ 236835:                  LINE   4641 "regression-compile-tmp/imp918s.imp"
28183 @ 236873:                  PUSH   JJ
28184 @ 236876:                  PUSH   J
28185 @ 236879:                  ASSVAL

  4642              -> RECNAME %IF Q=0 %AND NAM=1
28186 @ 236880:                  LINE   4642 "regression-compile-tmp/imp918s.imp"
28187 @ 236918:                  PUSH   Q
28188 @ 236921:                  PUSHI  #0x00000000
28189 @ 236926:                  JUMPIF # L_0007
28190 @ 236930:                  PUSH   NAM
28191 @ 236933:                  PUSHI  #0x00000001
28192 @ 236938:                  JUMPIF # L_0007
28193 @ 236942:                  JUMP   L_0224
28194 @ 236945:                  LOCATE L_0007

  4643           %FINISH
28195 @ 236948:                  LINE   4643 "regression-compile-tmp/imp918s.imp"
28196 @ 236986:                  LOCATE L_0004

  4644           -> F1 %UNLESS NAM=1;          ! LHS MUST BE A POINTER
28197 @ 236989:                  LINE   4644 "regression-compile-tmp/imp918s.imp"
28198 @ 237027:                  PUSH   NAM
28199 @ 237030:                  PUSHI  #0x00000001
28200 @ 237035:                  JUMPIF = L_0004
28201 @ 237039:                  JUMP   L_0225
28202 @ 237042:                  LOCATE L_0004

  4645           P=P2+4
28203 @ 237045:                  LINE   4645 "regression-compile-tmp/imp918s.imp"
28204 @ 237083:                  PUSH   P
28205 @ 237086:                  PUSH   P2
28206 @ 237089:                  PUSHI  #0x00000004
28207 @ 237094:                  ADD   
28208 @ 237095:                  ASSVAL

  4646           ->ARRNAME %IF ARR=1
28209 @ 237096:                  LINE   4646 "regression-compile-tmp/imp918s.imp"
28210 @ 237134:                  PUSH   ARR
28211 @ 237137:                  PUSHI  #0x00000001
28212 @ 237142:                  JUMPIF # L_0004
28213 @ 237146:                  JUMP   L_0226
28214 @ 237149:                  LOCATE L_0004

  4647           CNAME(3,REG)
28215 @ 237152:                  LINE   4647 "regression-compile-tmp/imp918s.imp"
28216 @ 237190:                  PUSH   CNAME
28217 @ 237193:                  PUSHI  #0x00000003
28218 @ 237198:                  ASSPAR
28219 @ 237199:                  PUSH   REG
28220 @ 237202:                  ASSPAR
28221 @ 237203:                  CALL  

  4648           Z=I; ZP=K
28222 @ 237204:                  LINE   4648 "regression-compile-tmp/imp918s.imp"
28223 @ 237242:                  PUSH   Z
28224 @ 237245:                  PUSH   I
28225 @ 237248:                  ASSVAL
28226 @ 237249:                  LINE   4648 "regression-compile-tmp/imp918s.imp"
28227 @ 237287:                  PUSH   ZP
28228 @ 237290:                  PUSH   K
28229 @ 237293:                  ASSVAL

  4649           REG=NEST %IF REG<0
28230 @ 237294:                  LINE   4649 "regression-compile-tmp/imp918s.imp"
28231 @ 237332:                  PUSH   REG
28232 @ 237335:                  PUSHI  #0x00000000
28233 @ 237340:                  JUMPIF >= L_0004
28234 @ 237344:                  PUSH   REG
28235 @ 237347:                  PUSH   NEST
28236 @ 237350:                  ASSVAL
28237 @ 237351:                  LOCATE L_0004

  4650           %IF A(P2+5)=2=A(P2+6) %THEN %C
  4651           NOTE ASSMENT(-1,1,A(P2+4));   ! RHS VARIAVBLE MAY BE CHANGED
  4652                                         ! BY ASSIGNING TO LHS
28238 @ 237354:                  LINE   4650 "regression-compile-tmp/imp918s.imp"
28239 @ 237392:                  PUSH   A
28240 @ 237395:                  PUSH   P2
28241 @ 237398:                  PUSHI  #0x00000005
28242 @ 237403:                  ADD   
28243 @ 237404:                  ACCESS
28244 @ 237405:                  PUSHI  #0x00000002
28245 @ 237410:                  JUMPIFD # L_0004
28246 @ 237414:                  PUSH   A
28247 @ 237417:                  PUSH   P2
28248 @ 237420:                  PUSHI  #0x00000006
28249 @ 237425:                  ADD   
28250 @ 237426:                  ACCESS
28251 @ 237427:                  JUMPIF # L_0004
28252 @ 237431:                  PUSH   NOTEASSMENT
28253 @ 237434:                  PUSHI  #0x00000001
28254 @ 237439:                  NEGATE
28255 @ 237440:                  ASSPAR
28256 @ 237441:                  PUSHI  #0x00000001
28257 @ 237446:                  ASSPAR
28258 @ 237447:                  PUSH   A
28259 @ 237450:                  PUSH   P2
28260 @ 237453:                  PUSHI  #0x00000004
28261 @ 237458:                  ADD   
28262 @ 237459:                  ACCESS
28263 @ 237460:                  ASSPAR
28264 @ 237461:                  CALL  
28265 @ 237462:                  LOCATE L_0004

  4653           KK=6
28266 @ 237465:                  LINE   4653 "regression-compile-tmp/imp918s.imp"
28267 @ 237503:                  PUSH   KK
28268 @ 237506:                  PUSHI  #0x00000006
28269 @ 237511:                  ASSVAL

  4654  COMM:    ->F3 %UNLESS TYPEP=0 %OR TYPE=0 %OR %C
  4655              (TYPE=TYPEP %AND (PREC&3)=PRECP)
28270 @ 237512:                  LINE   4654 "regression-compile-tmp/imp918s.imp"
28271 @ 237550:                  LABEL  L_0227
28272 @ 237553:                  LINE   4654 "regression-compile-tmp/imp918s.imp"
28273 @ 237591:                  PUSH   TYPEP
28274 @ 237594:                  PUSHI  #0x00000000
28275 @ 237599:                  JUMPIF = L_0004
28276 @ 237603:                  PUSH   TYPE
28277 @ 237606:                  PUSHI  #0x00000000
28278 @ 237611:                  JUMPIF = L_0004
28279 @ 237615:                  PUSH   TYPE
28280 @ 237618:                  PUSH   TYPEP
28281 @ 237621:                  JUMPIF # L_0005
28282 @ 237625:                  PUSH   PREC
28283 @ 237628:                  PUSHI  #0x00000003
28284 @ 237633:                  AND   
28285 @ 237634:                  PUSH   PRECP
28286 @ 237637:                  JUMPIF = L_0004
28287 @ 237641:                  LOCATE L_0005
28288 @ 237644:                  JUMP   L_0228
28289 @ 237647:                  LOCATE L_0004

  4656           ->F2 %UNLESS A(P)=2;          ! NO REST OF EXPRSSN
28290 @ 237650:                  LINE   4656 "regression-compile-tmp/imp918s.imp"
28291 @ 237688:                  PUSH   A
28292 @ 237691:                  PUSH   P
28293 @ 237694:                  ACCESS
28294 @ 237695:                  PUSHI  #0x00000002
28295 @ 237700:                  JUMPIF = L_0004
28296 @ 237704:                  JUMP   L_0223
28297 @ 237707:                  LOCATE L_0004

  4657           Q=P+1; P=P1
28298 @ 237710:                  LINE   4657 "regression-compile-tmp/imp918s.imp"
28299 @ 237748:                  PUSH   Q
28300 @ 237751:                  PUSH   P
28301 @ 237754:                  PUSHI  #0x00000001
28302 @ 237759:                  ADD   
28303 @ 237760:                  ASSVAL
28304 @ 237761:                  LINE   4657 "regression-compile-tmp/imp918s.imp"
28305 @ 237799:                  PUSH   P
28306 @ 237802:                  PUSH   P1
28307 @ 237805:                  ASSVAL

  4658           %IF P<X'FFFF' %THEN %START
28308 @ 237806:                  LINE   4658 "regression-compile-tmp/imp918s.imp"
28309 @ 237844:                  PUSH   P
28310 @ 237847:                  PUSHI  #0x0000ffff
28311 @ 237852:                  JUMPIF >= L_0004

  4659              CNAME(KK,REG)
28312 @ 237856:                  LINE   4659 "regression-compile-tmp/imp918s.imp"
28313 @ 237894:                  PUSH   CNAME
28314 @ 237897:                  PUSH   KK
28315 @ 237900:                  ASSPAR
28316 @ 237901:                  PUSH   REG
28317 @ 237904:                  ASSPAR
28318 @ 237905:                  CALL  

  4660              %IF A(P1+1)=2=A(P1+2) %THEN NOTE ASSMENT(REG,1,A(P1))
28319 @ 237906:                  LINE   4660 "regression-compile-tmp/imp918s.imp"
28320 @ 237944:                  PUSH   A
28321 @ 237947:                  PUSH   P1
28322 @ 237950:                  PUSHI  #0x00000001
28323 @ 237955:                  ADD   
28324 @ 237956:                  ACCESS
28325 @ 237957:                  PUSHI  #0x00000002
28326 @ 237962:                  JUMPIFD # L_0007
28327 @ 237966:                  PUSH   A
28328 @ 237969:                  PUSH   P1
28329 @ 237972:                  PUSHI  #0x00000002
28330 @ 237977:                  ADD   
28331 @ 237978:                  ACCESS
28332 @ 237979:                  JUMPIF # L_0007
28333 @ 237983:                  PUSH   NOTEASSMENT
28334 @ 237986:                  PUSH   REG
28335 @ 237989:                  ASSPAR
28336 @ 237990:                  PUSHI  #0x00000001
28337 @ 237995:                  ASSPAR
28338 @ 237996:                  PUSH   A
28339 @ 237999:                  PUSH   P1
28340 @ 238002:                  ACCESS
28341 @ 238003:                  ASSPAR
28342 @ 238004:                  CALL  
28343 @ 238005:                  LOCATE L_0007

  4661           %FINISH %ELSE %START
28344 @ 238008:                  LINE   4661 "regression-compile-tmp/imp918s.imp"
28345 @ 238046:                  GOTO   L_0003
28346 @ 238049:                  LOCATE L_0004

  4662              BASE=P>>16; DISP=P&X'7FFF'
28347 @ 238052:                  LINE   4662 "regression-compile-tmp/imp918s.imp"
28348 @ 238090:                  PUSH   BASE
28349 @ 238093:                  PUSH   P
28350 @ 238096:                  PUSHI  #0x00000010
28351 @ 238101:                  RSH   
28352 @ 238102:                  ASSVAL
28353 @ 238103:                  LINE   4662 "regression-compile-tmp/imp918s.imp"
28354 @ 238141:                  PUSH   DISP
28355 @ 238144:                  PUSH   P
28356 @ 238147:                  PUSHI  #0x00007fff
28357 @ 238152:                  AND   
28358 @ 238153:                  ASSVAL

  4663              DUMP(1,REG,DISP,0,BASE) %UNLESS KK=12
28359 @ 238154:                  LINE   4663 "regression-compile-tmp/imp918s.imp"
28360 @ 238192:                  PUSH   KK
28361 @ 238195:                  PUSHI  #0x0000000c
28362 @ 238200:                  JUMPIF = L_0007
28363 @ 238204:                  PUSH   DUMP
28364 @ 238207:                  PUSHI  #0x00000001
28365 @ 238212:                  ASSPAR
28366 @ 238213:                  PUSH   REG
28367 @ 238216:                  ASSPAR
28368 @ 238217:                  PUSH   DISP
28369 @ 238220:                  ASSPAR
28370 @ 238221:                  PUSHI  #0x00000000
28371 @ 238226:                  ASSPAR
28372 @ 238227:                  PUSH   BASE
28373 @ 238230:                  ASSPAR
28374 @ 238231:                  CALL  
28375 @ 238232:                  LOCATE L_0007

  4664              %IF TYPEP=0 %THEN %START; ! TO A %NAME PARAM
28376 @ 238235:                  LINE   4664 "regression-compile-tmp/imp918s.imp"
28377 @ 238273:                  PUSH   TYPEP
28378 @ 238276:                  PUSHI  #0x00000000
28379 @ 238281:                  JUMPIF # L_0007

  4665                 %IF TYPE=0 %THEN %START; ! %NAME TO %NAME
28380 @ 238285:                  LINE   4665 "regression-compile-tmp/imp918s.imp"
28381 @ 238323:                  PUSH   TYPE
28382 @ 238326:                  PUSHI  #0x00000000
28383 @ 238331:                  JUMPIF # L_000a

  4666                    JJJ=X'58'; ZP=ZP+4;   ! LOAD INFO WORD
28384 @ 238335:                  LINE   4666 "regression-compile-tmp/imp918s.imp"
28385 @ 238373:                  PUSH   JJJ
28386 @ 238376:                  PUSHI  #0x00000058
28387 @ 238381:                  ASSVAL
28388 @ 238382:                  LINE   4666 "regression-compile-tmp/imp918s.imp"
28389 @ 238420:                  PUSH   ZP
28390 @ 238423:                  PUSH   ZP
28391 @ 238426:                  PUSHI  #0x00000004
28392 @ 238431:                  ADD   
28393 @ 238432:                  ASSVAL

  4667                 %FINISH %ELSE %START;    ! NORMAL VARIABLE TO %NAME
28394 @ 238433:                  LINE   4667 "regression-compile-tmp/imp918s.imp"
28395 @ 238471:                  GOTO   L_0009
28396 @ 238474:                  LOCATE L_000a

  4668                    PSI(X'92',PREC<<3!TYPE,BASE,DISP);  ! FLAGS BYTE
28397 @ 238477:                  LINE   4668 "regression-compile-tmp/imp918s.imp"
28398 @ 238515:                  PUSH   PSI
28399 @ 238518:                  PUSHI  #0x00000092
28400 @ 238523:                  ASSPAR
28401 @ 238524:                  PUSH   PREC
28402 @ 238527:                  PUSHI  #0x00000003
28403 @ 238532:                  LSH   
28404 @ 238533:                  PUSH   TYPE
28405 @ 238536:                  OR    
28406 @ 238537:                  ASSPAR
28407 @ 238538:                  PUSH   BASE
28408 @ 238541:                  ASSPAR
28409 @ 238542:                  PUSH   DISP
28410 @ 238545:                  ASSPAR
28411 @ 238546:                  CALL  

  4669                    %IF TYPE=5 %THEN JJJ=X'88' %AND ZP=24 %ELSE %START
28412 @ 238547:                  LINE   4669 "regression-compile-tmp/imp918s.imp"
28413 @ 238585:                  PUSH   TYPE
28414 @ 238588:                  PUSHI  #0x00000005
28415 @ 238593:                  JUMPIF # L_000d
28416 @ 238597:                  PUSH   JJJ
28417 @ 238600:                  PUSHI  #0x00000088
28418 @ 238605:                  ASSVAL
28419 @ 238606:                  PUSH   ZP
28420 @ 238609:                  PUSHI  #0x00000018
28421 @ 238614:                  ASSVAL
28422 @ 238615:                  GOTO   L_000c
28423 @ 238618:                  LOCATE L_000d

  4670                       JJJ=X'41'
28424 @ 238621:                  LINE   4670 "regression-compile-tmp/imp918s.imp"
28425 @ 238659:                  PUSH   JJJ
28426 @ 238662:                  PUSHI  #0x00000041
28427 @ 238667:                  ASSVAL

  4671                       %IF TYPE>=3 %THEN ZP=ACC %ELSE ZP=BYTES(PREC)
28428 @ 238668:                  LINE   4671 "regression-compile-tmp/imp918s.imp"
28429 @ 238706:                  PUSH   TYPE
28430 @ 238709:                  PUSHI  #0x00000003
28431 @ 238714:                  JUMPIF < L_0010
28432 @ 238718:                  PUSH   ZP
28433 @ 238721:                  PUSH   ACC
28434 @ 238724:                  ASSVAL
28435 @ 238725:                  GOTO   L_000f
28436 @ 238728:                  LOCATE L_0010
28437 @ 238731:                  PUSH   ZP
28438 @ 238734:                  PUSH   BYTES
28439 @ 238737:                  PUSH   PREC
28440 @ 238740:                  ACCESS
28441 @ 238741:                  ASSVAL
28442 @ 238742:                  LOCATE L_000f

  4672                       ZP=ZP-1
28443 @ 238745:                  LINE   4672 "regression-compile-tmp/imp918s.imp"
28444 @ 238783:                  PUSH   ZP
28445 @ 238786:                  PUSH   ZP
28446 @ 238789:                  PUSHI  #0x00000001
28447 @ 238794:                  SUB   
28448 @ 238795:                  ASSVAL

  4673                    %FINISH
28449 @ 238796:                  LINE   4673 "regression-compile-tmp/imp918s.imp"
28450 @ 238834:                  LOCATE L_000c

  4674                 Z=0
28451 @ 238837:                  LINE   4674 "regression-compile-tmp/imp918s.imp"
28452 @ 238875:                  PUSH   Z
28453 @ 238878:                  PUSHI  #0x00000000
28454 @ 238883:                  ASSVAL

  4675                 %FINISH
28455 @ 238884:                  LINE   4675 "regression-compile-tmp/imp918s.imp"
28456 @ 238922:                  LOCATE L_0009

  4676                 DUMP(JJJ,REG,ZP,0,Z)
28457 @ 238925:                  LINE   4676 "regression-compile-tmp/imp918s.imp"
28458 @ 238963:                  PUSH   DUMP
28459 @ 238966:                  PUSH   JJJ
28460 @ 238969:                  ASSPAR
28461 @ 238970:                  PUSH   REG
28462 @ 238973:                  ASSPAR
28463 @ 238974:                  PUSH   ZP
28464 @ 238977:                  ASSPAR
28465 @ 238978:                  PUSHI  #0x00000000
28466 @ 238983:                  ASSPAR
28467 @ 238984:                  PUSH   Z
28468 @ 238987:                  ASSPAR
28469 @ 238988:                  CALL  

  4677                 FORGET(REG)
28470 @ 238989:                  LINE   4677 "regression-compile-tmp/imp918s.imp"
28471 @ 239027:                  PUSH   FORGET
28472 @ 239030:                  PUSH   REG
28473 @ 239033:                  ASSPAR
28474 @ 239034:                  CALL  

  4678                 DUMP(X'50',REG,DISP+4,0,BASE);!    STORE XTRA WORD
28475 @ 239035:                  LINE   4678 "regression-compile-tmp/imp918s.imp"
28476 @ 239073:                  PUSH   DUMP
28477 @ 239076:                  PUSHI  #0x00000050
28478 @ 239081:                  ASSPAR
28479 @ 239082:                  PUSH   REG
28480 @ 239085:                  ASSPAR
28481 @ 239086:                  PUSH   DISP
28482 @ 239089:                  PUSHI  #0x00000004
28483 @ 239094:                  ADD   
28484 @ 239095:                  ASSPAR
28485 @ 239096:                  PUSHI  #0x00000000
28486 @ 239101:                  ASSPAR
28487 @ 239102:                  PUSH   BASE
28488 @ 239105:                  ASSPAR
28489 @ 239106:                  CALL  

  4679              %FINISH
28490 @ 239107:                  LINE   4679 "regression-compile-tmp/imp918s.imp"
28491 @ 239145:                  LOCATE L_0007

  4680           %FINISH
28492 @ 239148:                  LINE   4680 "regression-compile-tmp/imp918s.imp"
28493 @ 239186:                  LOCATE L_0003

  4681           REGISTER(REG)=0 %IF REGISTER(REG)>=0; P=Q
28494 @ 239189:                  LINE   4681 "regression-compile-tmp/imp918s.imp"
28495 @ 239227:                  PUSH   REGISTER
28496 @ 239230:                  PUSH   REG
28497 @ 239233:                  ACCESS
28498 @ 239234:                  PUSHI  #0x00000000
28499 @ 239239:                  JUMPIF < L_0004
28500 @ 239243:                  PUSH   REGISTER
28501 @ 239246:                  PUSH   REG
28502 @ 239249:                  ACCESS
28503 @ 239250:                  PUSHI  #0x00000000
28504 @ 239255:                  ASSVAL
28505 @ 239256:                  LOCATE L_0004
28506 @ 239259:                  LINE   4681 "regression-compile-tmp/imp918s.imp"
28507 @ 239297:                  PUSH   P
28508 @ 239300:                  PUSH   Q
28509 @ 239303:                  ASSVAL

  4682           %IF KK=12 %THEN %START;       ! == TO ARRAY NAME
28510 @ 239304:                  LINE   4682 "regression-compile-tmp/imp918s.imp"
28511 @ 239342:                  PUSH   KK
28512 @ 239345:                  PUSHI  #0x0000000c
28513 @ 239350:                  JUMPIF # L_0004

  4683              FORGET(REG)
28514 @ 239354:                  LINE   4683 "regression-compile-tmp/imp918s.imp"
28515 @ 239392:                  PUSH   FORGET
28516 @ 239395:                  PUSH   REG
28517 @ 239398:                  ASSPAR
28518 @ 239399:                  CALL  

  4684              CYC BITS=CYC BITS!512;     ! ARRAYNAME == BIT
28519 @ 239400:                  LINE   4684 "regression-compile-tmp/imp918s.imp"
28520 @ 239438:                  PUSH   CYCBITS
28521 @ 239441:                  PUSH   CYCBITS
28522 @ 239444:                  PUSHI  #0x00000200
28523 @ 239449:                  OR    
28524 @ 239450:                  ASSVAL

  4685              PMVC(16,BASE,DISP,Z,ZP);   ! MOVE IN ARRAYHEAD
  4686                                         ! DISP>4095 SORTED IN CNAME
28525 @ 239451:                  LINE   4685 "regression-compile-tmp/imp918s.imp"
28526 @ 239489:                  PUSH   PMVC
28527 @ 239492:                  PUSHI  #0x00000010
28528 @ 239497:                  ASSPAR
28529 @ 239498:                  PUSH   BASE
28530 @ 239501:                  ASSPAR
28531 @ 239502:                  PUSH   DISP
28532 @ 239505:                  ASSPAR
28533 @ 239506:                  PUSH   Z
28534 @ 239509:                  ASSPAR
28535 @ 239510:                  PUSH   ZP
28536 @ 239513:                  ASSPAR
28537 @ 239514:                  CALL  

  4687              REGISTER(Z)=0 %IF REGISTER(Z)=2
28538 @ 239515:                  LINE   4687 "regression-compile-tmp/imp918s.imp"
28539 @ 239553:                  PUSH   REGISTER
28540 @ 239556:                  PUSH   Z
28541 @ 239559:                  ACCESS
28542 @ 239560:                  PUSHI  #0x00000002
28543 @ 239565:                  JUMPIF # L_0007
28544 @ 239569:                  PUSH   REGISTER
28545 @ 239572:                  PUSH   Z
28546 @ 239575:                  ACCESS
28547 @ 239576:                  PUSHI  #0x00000000
28548 @ 239581:                  ASSVAL
28549 @ 239582:                  LOCATE L_0007

  4688              ->F3 %UNLESS P1>X'FFFF' %OR ARR=1 %OR ARR=2
  4689                                          ! ALLOW ARRAYS&VECTORS \FORMATS
28550 @ 239585:                  LINE   4688 "regression-compile-tmp/imp918s.imp"
28551 @ 239623:                  PUSH   P1
28552 @ 239626:                  PUSHI  #0x0000ffff
28553 @ 239631:                  JUMPIF > L_0007
28554 @ 239635:                  PUSH   ARR
28555 @ 239638:                  PUSHI  #0x00000001
28556 @ 239643:                  JUMPIF = L_0007
28557 @ 239647:                  PUSH   ARR
28558 @ 239650:                  PUSHI  #0x00000002
28559 @ 239655:                  JUMPIF = L_0007
28560 @ 239659:                  JUMP   L_0228
28561 @ 239662:                  LOCATE L_0007

  4690           %FINISH %ELSE CYC BITS=CYC BITS!256;! REC/SCALAR == BIT
28562 @ 239665:                  LINE   4690 "regression-compile-tmp/imp918s.imp"
28563 @ 239703:                  GOTO   L_0003
28564 @ 239706:                  LOCATE L_0004
28565 @ 239709:                  PUSH   CYCBITS
28566 @ 239712:                  PUSH   CYCBITS
28567 @ 239715:                  PUSHI  #0x00000100
28568 @ 239720:                  OR    
28569 @ 239721:                  ASSVAL
28570 @ 239722:                  LOCATE L_0003

  4691           ->Label1
28571 @ 239725:                  LINE   4691 "regression-compile-tmp/imp918s.imp"
28572 @ 239763:                  JUMP   L_0220

  4692  ARRNAME: CNAME(12,REG);                ! SET BASE & DISP
28573 @ 239766:                  LINE   4692 "regression-compile-tmp/imp918s.imp"
28574 @ 239804:                  LABEL  L_0226
28575 @ 239807:                  LINE   4692 "regression-compile-tmp/imp918s.imp"
28576 @ 239845:                  PUSH   CNAME
28577 @ 239848:                  PUSHI  #0x0000000c
28578 @ 239853:                  ASSPAR
28579 @ 239854:                  PUSH   REG
28580 @ 239857:                  ASSPAR
28581 @ 239858:                  CALL  

  4693           Z=BASE; ZP=DISP;              ! AND SAVE THEM
28582 @ 239859:                  LINE   4693 "regression-compile-tmp/imp918s.imp"
28583 @ 239897:                  PUSH   Z
28584 @ 239900:                  PUSH   BASE
28585 @ 239903:                  ASSVAL
28586 @ 239904:                  LINE   4693 "regression-compile-tmp/imp918s.imp"
28587 @ 239942:                  PUSH   ZP
28588 @ 239945:                  PUSH   DISP
28589 @ 239948:                  ASSVAL

  4694           ->F3 %UNLESS 1<=ARR<=2
28590 @ 239949:                  LINE   4694 "regression-compile-tmp/imp918s.imp"
28591 @ 239987:                  PUSHI  #0x00000001
28592 @ 239992:                  PUSH   ARR
28593 @ 239995:                  JUMPIFD > L_0005
28594 @ 239999:                  PUSHI  #0x00000002
28595 @ 240004:                  JUMPIF <= L_0004
28596 @ 240008:                  LOCATE L_0005
28597 @ 240011:                  JUMP   L_0228
28598 @ 240014:                  LOCATE L_0004

  4695           %IF JJ=0 %THEN %START
28599 @ 240017:                  LINE   4695 "regression-compile-tmp/imp918s.imp"
28600 @ 240055:                  PUSH   JJ
28601 @ 240058:                  PUSHI  #0x00000000
28602 @ 240063:                  JUMPIF # L_0004

  4696           JJ=J; %IF P1<X'FFFF' %THEN %START
28603 @ 240067:                  LINE   4696 "regression-compile-tmp/imp918s.imp"
28604 @ 240105:                  PUSH   JJ
28605 @ 240108:                  PUSH   J
28606 @ 240111:                  ASSVAL
28607 @ 240112:                  LINE   4696 "regression-compile-tmp/imp918s.imp"
28608 @ 240150:                  PUSH   P1
28609 @ 240153:                  PUSHI  #0x0000ffff
28610 @ 240158:                  JUMPIF >= L_0007

  4697           KK=FROM1(TPCELL);              ! DEDUDCE NO OF DIMENS
28611 @ 240162:                  LINE   4697 "regression-compile-tmp/imp918s.imp"
28612 @ 240200:                  PUSH   KK
28613 @ 240203:                  PUSH   FROM1
28614 @ 240206:                  PUSH   TPCELL
28615 @ 240209:                  ASSPAR
28616 @ 240210:                  CALL  
28617 @ 240211:                  ASSVAL

  4698           REPLACE1(TPCELL,KK!JJ); %FINISH; %FINISH
28618 @ 240212:                  LINE   4698 "regression-compile-tmp/imp918s.imp"
28619 @ 240250:                  PUSH   REPLACE1
28620 @ 240253:                  PUSH   TPCELL
28621 @ 240256:                  ASSPAR
28622 @ 240257:                  PUSH   KK
28623 @ 240260:                  PUSH   JJ
28624 @ 240263:                  OR    
28625 @ 240264:                  ASSPAR
28626 @ 240265:                  CALL  
28627 @ 240266:                  LINE   4698 "regression-compile-tmp/imp918s.imp"
28628 @ 240304:                  LOCATE L_0007
28629 @ 240307:                  LINE   4698 "regression-compile-tmp/imp918s.imp"
28630 @ 240345:                  LOCATE L_0004

  4699           FAULT(85,0) %UNLESS J=JJ %OR J=0
28631 @ 240348:                  LINE   4699 "regression-compile-tmp/imp918s.imp"
28632 @ 240386:                  PUSH   J
28633 @ 240389:                  PUSH   JJ
28634 @ 240392:                  JUMPIF = L_0004
28635 @ 240396:                  PUSH   J
28636 @ 240399:                  PUSHI  #0x00000000
28637 @ 240404:                  JUMPIF = L_0004
28638 @ 240408:                  PUSH   FAULT
28639 @ 240411:                  PUSHI  #0x00000055
28640 @ 240416:                  ASSPAR
28641 @ 240417:                  PUSHI  #0x00000000
28642 @ 240422:                  ASSPAR
28643 @ 240423:                  CALL  
28644 @ 240424:                  LOCATE L_0004

  4700           REGISTER(Z)=2 %IF REGISTER(Z)=0
28645 @ 240427:                  LINE   4700 "regression-compile-tmp/imp918s.imp"
28646 @ 240465:                  PUSH   REGISTER
28647 @ 240468:                  PUSH   Z
28648 @ 240471:                  ACCESS
28649 @ 240472:                  PUSHI  #0x00000000
28650 @ 240477:                  JUMPIF # L_0004
28651 @ 240481:                  PUSH   REGISTER
28652 @ 240484:                  PUSH   Z
28653 @ 240487:                  ACCESS
28654 @ 240488:                  PUSHI  #0x00000002
28655 @ 240493:                  ASSVAL
28656 @ 240494:                  LOCATE L_0004

  4701           KK=12; ->COMM
28657 @ 240497:                  LINE   4701 "regression-compile-tmp/imp918s.imp"
28658 @ 240535:                  PUSH   KK
28659 @ 240538:                  PUSHI  #0x0000000c
28660 @ 240543:                  ASSVAL
28661 @ 240544:                  LINE   4701 "regression-compile-tmp/imp918s.imp"
28662 @ 240582:                  JUMP   L_0227

  4702  RECNAME: P=P2+4
28663 @ 240585:                  LINE   4702 "regression-compile-tmp/imp918s.imp"
28664 @ 240623:                  LABEL  L_0224
28665 @ 240626:                  LINE   4702 "regression-compile-tmp/imp918s.imp"
28666 @ 240664:                  PUSH   P
28667 @ 240667:                  PUSH   P2
28668 @ 240670:                  PUSHI  #0x00000004
28669 @ 240675:                  ADD   
28670 @ 240676:                  ASSVAL

  4703           ->ARRNAME %IF ARR=1 %AND (P1>X'FFFF' %OR A(P1+1)=2);
28671 @ 240677:                  LINE   4703 "regression-compile-tmp/imp918s.imp"
28672 @ 240715:                  PUSH   ARR
28673 @ 240718:                  PUSHI  #0x00000001
28674 @ 240723:                  JUMPIF # L_0004
28675 @ 240727:                  PUSH   P1
28676 @ 240730:                  PUSHI  #0x0000ffff
28677 @ 240735:                  JUMPIF > L_0005
28678 @ 240739:                  PUSH   A
28679 @ 240742:                  PUSH   P1
28680 @ 240745:                  PUSHI  #0x00000001
28681 @ 240750:                  ADD   
28682 @ 240751:                  ACCESS
28683 @ 240752:                  PUSHI  #0x00000002
28684 @ 240757:                  JUMPIF # L_0004
28685 @ 240761:                  LOCATE L_0005
28686 @ 240764:                  JUMP   L_0226
28687 @ 240767:                  LOCATE L_0004

  4704           CNAME(15,REG);                ! FETCH/SET POINTER
28688 @ 240770:                  LINE   4704 "regression-compile-tmp/imp918s.imp"
28689 @ 240808:                  PUSH   CNAME
28690 @ 240811:                  PUSHI  #0x0000000f
28691 @ 240816:                  ASSPAR
28692 @ 240817:                  PUSH   REG
28693 @ 240820:                  ASSPAR
28694 @ 240821:                  CALL  

  4705           REG=NEST %IF REG<0
28695 @ 240822:                  LINE   4705 "regression-compile-tmp/imp918s.imp"
28696 @ 240860:                  PUSH   REG
28697 @ 240863:                  PUSHI  #0x00000000
28698 @ 240868:                  JUMPIF >= L_0004
28699 @ 240872:                  PUSH   REG
28700 @ 240875:                  PUSH   NEST
28701 @ 240878:                  ASSVAL
28702 @ 240879:                  LOCATE L_0004

  4706           KK=14; ->COMM
28703 @ 240882:                  LINE   4706 "regression-compile-tmp/imp918s.imp"
28704 @ 240920:                  PUSH   KK
28705 @ 240923:                  PUSHI  #0x0000000e
28706 @ 240928:                  ASSVAL
28707 @ 240929:                  LINE   4706 "regression-compile-tmp/imp918s.imp"
28708 @ 240967:                  JUMP   L_0227

  4707  F66:      Q=66; ->F00
28709 @ 240970:                  LINE   4707 "regression-compile-tmp/imp918s.imp"
28710 @ 241008:                  LABEL  L_0222
28711 @ 241011:                  LINE   4707 "regression-compile-tmp/imp918s.imp"
28712 @ 241049:                  PUSH   Q
28713 @ 241052:                  PUSHI  #0x00000042
28714 @ 241057:                  ASSVAL
28715 @ 241058:                  LINE   4707 "regression-compile-tmp/imp918s.imp"
28716 @ 241096:                  JUMP   L_0229

  4708  F1:      Q=82; ->F00;                  ! LHS NOT A POINTER VARIABLE
28717 @ 241099:                  LINE   4708 "regression-compile-tmp/imp918s.imp"
28718 @ 241137:                  LABEL  L_0225
28719 @ 241140:                  LINE   4708 "regression-compile-tmp/imp918s.imp"
28720 @ 241178:                  PUSH   Q
28721 @ 241181:                  PUSHI  #0x00000052
28722 @ 241186:                  ASSVAL
28723 @ 241187:                  LINE   4708 "regression-compile-tmp/imp918s.imp"
28724 @ 241225:                  JUMP   L_0229

  4709  F0:      P=P2; SKIP EXP;               ! SKIP RHS
28725 @ 241228:                  LINE   4709 "regression-compile-tmp/imp918s.imp"
28726 @ 241266:                  LABEL  L_022a
28727 @ 241269:                  LINE   4709 "regression-compile-tmp/imp918s.imp"
28728 @ 241307:                  PUSH   P
28729 @ 241310:                  PUSH   P2
28730 @ 241313:                  ASSVAL
28731 @ 241314:                  LINE   4709 "regression-compile-tmp/imp918s.imp"
28732 @ 241352:                  PUSH   SKIPEXP
28733 @ 241355:                  CALL  

  4710           %IF 0<=REG<=15 %AND REGISTER(REG)>0 %THEN REGISTER(REG)=0
28734 @ 241356:                  LINE   4710 "regression-compile-tmp/imp918s.imp"
28735 @ 241394:                  PUSHI  #0x00000000
28736 @ 241399:                  PUSH   REG
28737 @ 241402:                  JUMPIFD > L_0004
28738 @ 241406:                  PUSHI  #0x0000000f
28739 @ 241411:                  JUMPIF > L_0004
28740 @ 241415:                  PUSH   REGISTER
28741 @ 241418:                  PUSH   REG
28742 @ 241421:                  ACCESS
28743 @ 241422:                  PUSHI  #0x00000000
28744 @ 241427:                  JUMPIF <= L_0004
28745 @ 241431:                  PUSH   REGISTER
28746 @ 241434:                  PUSH   REG
28747 @ 241437:                  ACCESS
28748 @ 241438:                  PUSHI  #0x00000000
28749 @ 241443:                  ASSVAL
28750 @ 241444:                  LOCATE L_0004

  4711           ->Label1
28751 @ 241447:                  LINE   4711 "regression-compile-tmp/imp918s.imp"
28752 @ 241485:                  JUMP   L_0220

  4712  F2:      Q=81;                         ! RHS AN EXPRSSN
28753 @ 241488:                  LINE   4712 "regression-compile-tmp/imp918s.imp"
28754 @ 241526:                  LABEL  L_0223
28755 @ 241529:                  LINE   4712 "regression-compile-tmp/imp918s.imp"
28756 @ 241567:                  PUSH   Q
28757 @ 241570:                  PUSHI  #0x00000051
28758 @ 241575:                  ASSVAL

  4713  F00:     %IF P1>X'FFFF' %THEN Q=22;    ! IF PARAM GIVE 'ACTUAL PARAM FLT
28759 @ 241576:                  LINE   4713 "regression-compile-tmp/imp918s.imp"
28760 @ 241614:                  LABEL  L_0229
28761 @ 241617:                  LINE   4713 "regression-compile-tmp/imp918s.imp"
28762 @ 241655:                  PUSH   P1
28763 @ 241658:                  PUSHI  #0x0000ffff
28764 @ 241663:                  JUMPIF <= L_0004
28765 @ 241667:                  PUSH   Q
28766 @ 241670:                  PUSHI  #0x00000016
28767 @ 241675:                  ASSVAL
28768 @ 241676:                  LOCATE L_0004

  4714           %IF Q=82 %THEN JJ=A(P1) %ELSE JJ=0
28769 @ 241679:                  LINE   4714 "regression-compile-tmp/imp918s.imp"
28770 @ 241717:                  PUSH   Q
28771 @ 241720:                  PUSHI  #0x00000052
28772 @ 241725:                  JUMPIF # L_0004
28773 @ 241729:                  PUSH   JJ
28774 @ 241732:                  PUSH   A
28775 @ 241735:                  PUSH   P1
28776 @ 241738:                  ACCESS
28777 @ 241739:                  ASSVAL
28778 @ 241740:                  GOTO   L_0003
28779 @ 241743:                  LOCATE L_0004
28780 @ 241746:                  PUSH   JJ
28781 @ 241749:                  PUSHI  #0x00000000
28782 @ 241754:                  ASSVAL
28783 @ 241755:                  LOCATE L_0003

  4715           FAULT(Q,JJ)
28784 @ 241758:                  LINE   4715 "regression-compile-tmp/imp918s.imp"
28785 @ 241796:                  PUSH   FAULT
28786 @ 241799:                  PUSH   Q
28787 @ 241802:                  ASSPAR
28788 @ 241803:                  PUSH   JJ
28789 @ 241806:                  ASSPAR
28790 @ 241807:                  CALL  

  4716           ->F0
28791 @ 241808:                  LINE   4716 "regression-compile-tmp/imp918s.imp"
28792 @ 241846:                  JUMP   L_022a

  4717  F3:      Q=83; ->F00;                  ! NON-EQUIVALENCE'
28793 @ 241849:                  LINE   4717 "regression-compile-tmp/imp918s.imp"
28794 @ 241887:                  LABEL  L_0228
28795 @ 241890:                  LINE   4717 "regression-compile-tmp/imp918s.imp"
28796 @ 241928:                  PUSH   Q
28797 @ 241931:                  PUSHI  #0x00000053
28798 @ 241936:                  ASSVAL
28799 @ 241937:                  LINE   4717 "regression-compile-tmp/imp918s.imp"
28800 @ 241975:                  JUMP   L_0229

  4718  Label1:       %END
28801 @ 241978:                  LINE   4718 "regression-compile-tmp/imp918s.imp"
28802 @ 242016:                  LABEL  L_0220
28803 @ 242019:                  LINE   4718 "regression-compile-tmp/imp918s.imp"
28804 @ 242057:               END    _lev0id0_CSS_ASSIGN {lev=3 --> 2}

  4719           %ROUTINE     CUI(%INTEGER CODE)
  4720           {%SHORTROUTINE}
28805 @ 242058:               LINE   4719 "regression-compile-tmp/imp918s.imp"
28806 @ 242096:               DEF    CUI (_lev0id0_CSS_CUI) p1=V_016d 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
28807 @ 242111:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
28808 @ 242112:                     DEF    CODE p1=V_0203 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
28809 @ 242128:                  FINISH ) {lev=3}

  4721           %INTEGER KK,JJ,QQ
28810 @ 242129:                  LINE   4721 "regression-compile-tmp/imp918s.imp"
28811 @ 242167:                  DEF    KK p1=V_0204 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
28812 @ 242181:                  DEF    JJ p1=V_0205 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
28813 @ 242195:                  DEF    QQ p1=V_0206 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

  4722           %BYTEINTEGER TYPEP,PRECP
28814 @ 242209:                  LINE   4722 "regression-compile-tmp/imp918s.imp"
28815 @ 242247:                  DEF    TYPEP p1=V_0207 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
28816 @ 242264:                  DEF    PRECP p1=V_0208 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0

  4723           %SWITCH SW(1:8)
28817 @ 242281:                  LINE   4723 "regression-compile-tmp/imp918s.imp"
28818 @ 242319:                  PUSHI  #0x00000001
28819 @ 242324:                  PUSHI  #0x00000008
28820 @ 242329:                  BOUNDS
28821 @ 242330:                  DEF    SW p1=V_0209 a/tf=6 b/format=0 c/ostate=0  type=0 (<type:0>) form=6 (switch) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  4724           REPORTUI=0;                  ! =0 CONTINUE,=1 UNCOND JUMP
28822 @ 242344:                  LINE   4724 "regression-compile-tmp/imp918s.imp"
28823 @ 242382:                  PUSH   REPORTUI
28824 @ 242385:                  PUSHI  #0x00000000
28825 @ 242390:                  ASSVAL

  4725           ->SW(A(P))
28826 @ 242391:                  LINE   4725 "regression-compile-tmp/imp918s.imp"
28827 @ 242429:                  PUSH   A
28828 @ 242432:                  PUSH   P
28829 @ 242435:                  ACCESS
28830 @ 242436:                  SJUMP  521

  4726  SW(1):   P=P+1; MARKER1=P+A(P);      !(NAME)(APP)(RESTOFUI)
28831 @ 242439:                  LINE   4726 "regression-compile-tmp/imp918s.imp"
28832 @ 242477:                  PUSHI  #0x00000001
28833 @ 242482:                  SLABEL 521
28834 @ 242485:                  LINE   4726 "regression-compile-tmp/imp918s.imp"
28835 @ 242523:                  PUSH   P
28836 @ 242526:                  PUSH   P
28837 @ 242529:                  PUSHI  #0x00000001
28838 @ 242534:                  ADD   
28839 @ 242535:                  ASSVAL
28840 @ 242536:                  LINE   4726 "regression-compile-tmp/imp918s.imp"
28841 @ 242574:                  PUSH   MARKER1
28842 @ 242577:                  PUSH   P
28843 @ 242580:                  PUSH   A
28844 @ 242583:                  PUSH   P
28845 @ 242586:                  ACCESS
28846 @ 242587:                  ADD   
28847 @ 242588:                  ASSVAL

  4727           ->Label3 %IF A(MARKER 1)=1
28848 @ 242589:                  LINE   4727 "regression-compile-tmp/imp918s.imp"
28849 @ 242627:                  PUSH   A
28850 @ 242630:                  PUSH   MARKER1
28851 @ 242633:                  ACCESS
28852 @ 242634:                  PUSHI  #0x00000001
28853 @ 242639:                  JUMPIF # L_0004
28854 @ 242643:                  JUMP   L_020a
28855 @ 242646:                  LOCATE L_0004

  4728           P=P+1; CNAME(0,0); P=P+1; -> AUI
28856 @ 242649:                  LINE   4728 "regression-compile-tmp/imp918s.imp"
28857 @ 242687:                  PUSH   P
28858 @ 242690:                  PUSH   P
28859 @ 242693:                  PUSHI  #0x00000001
28860 @ 242698:                  ADD   
28861 @ 242699:                  ASSVAL
28862 @ 242700:                  LINE   4728 "regression-compile-tmp/imp918s.imp"
28863 @ 242738:                  PUSH   CNAME
28864 @ 242741:                  PUSHI  #0x00000000
28865 @ 242746:                  ASSPAR
28866 @ 242747:                  PUSHI  #0x00000000
28867 @ 242752:                  ASSPAR
28868 @ 242753:                  CALL  
28869 @ 242754:                  LINE   4728 "regression-compile-tmp/imp918s.imp"
28870 @ 242792:                  PUSH   P
28871 @ 242795:                  PUSH   P
28872 @ 242798:                  PUSHI  #0x00000001
28873 @ 242803:                  ADD   
28874 @ 242804:                  ASSVAL
28875 @ 242805:                  LINE   4728 "regression-compile-tmp/imp918s.imp"
28876 @ 242843:                  JUMP   L_020b

  4729  Label3:       KK=P+1; P=MARKER1+2
28877 @ 242846:                  LINE   4729 "regression-compile-tmp/imp918s.imp"
28878 @ 242884:                  LABEL  L_020a
28879 @ 242887:                  LINE   4729 "regression-compile-tmp/imp918s.imp"
28880 @ 242925:                  PUSH   KK
28881 @ 242928:                  PUSH   P
28882 @ 242931:                  PUSHI  #0x00000001
28883 @ 242936:                  ADD   
28884 @ 242937:                  ASSVAL
28885 @ 242938:                  LINE   4729 "regression-compile-tmp/imp918s.imp"
28886 @ 242976:                  PUSH   P
28887 @ 242979:                  PUSH   MARKER1
28888 @ 242982:                  PUSHI  #0x00000002
28889 @ 242987:                  ADD   
28890 @ 242988:                  ASSVAL

  4730           ASSIGN(A(MARKER1+1),KK)
28891 @ 242989:                  LINE   4730 "regression-compile-tmp/imp918s.imp"
28892 @ 243027:                  PUSH   ASSIGN
28893 @ 243030:                  PUSH   A
28894 @ 243033:                  PUSH   MARKER1
28895 @ 243036:                  PUSHI  #0x00000001
28896 @ 243041:                  ADD   
28897 @ 243042:                  ACCESS
28898 @ 243043:                  ASSPAR
28899 @ 243044:                  PUSH   KK
28900 @ 243047:                  ASSPAR
28901 @ 243048:                  CALL  

  4731  AUI:     P=P+1
28902 @ 243049:                  LINE   4731 "regression-compile-tmp/imp918s.imp"
28903 @ 243087:                  LABEL  L_020b
28904 @ 243090:                  LINE   4731 "regression-compile-tmp/imp918s.imp"
28905 @ 243128:                  PUSH   P
28906 @ 243131:                  PUSH   P
28907 @ 243134:                  PUSHI  #0x00000001
28908 @ 243139:                  ADD   
28909 @ 243140:                  ASSVAL

  4732           %IF A(P-1)=1 %THEN CUI(CODE); ->Label1
28910 @ 243141:                  LINE   4732 "regression-compile-tmp/imp918s.imp"
28911 @ 243179:                  PUSH   A
28912 @ 243182:                  PUSH   P
28913 @ 243185:                  PUSHI  #0x00000001
28914 @ 243190:                  SUB   
28915 @ 243191:                  ACCESS
28916 @ 243192:                  PUSHI  #0x00000001
28917 @ 243197:                  JUMPIF # L_0004
28918 @ 243201:                  PUSH   CUI
28919 @ 243204:                  PUSH   CODE
28920 @ 243207:                  ASSPAR
28921 @ 243208:                  CALL  
28922 @ 243209:                  LOCATE L_0004
28923 @ 243212:                  LINE   4732 "regression-compile-tmp/imp918s.imp"
28924 @ 243250:                  JUMP   L_020c

  4733  SW(2):   !-><NAME><EXRN>
28925 @ 243253:                  LINE   4733 "regression-compile-tmp/imp918s.imp"
28926 @ 243291:                  PUSHI  #0x00000002
28927 @ 243296:                  SLABEL 521

  4734           CURR INST=1 %IF CODE=0
28928 @ 243299:                  LINE   4734 "regression-compile-tmp/imp918s.imp"
28929 @ 243337:                  PUSH   CODE
28930 @ 243340:                  PUSHI  #0x00000000
28931 @ 243345:                  JUMPIF # L_0004
28932 @ 243349:                  PUSH   CURRINST
28933 @ 243352:                  PUSHI  #0x00000001
28934 @ 243357:                  ASSVAL
28935 @ 243358:                  LOCATE L_0004

  4735           NMDECS=NMDECS!1
28936 @ 243361:                  LINE   4735 "regression-compile-tmp/imp918s.imp"
28937 @ 243399:                  PUSH   NMDECS
28938 @ 243402:                  PUSH   NMDECS
28939 @ 243405:                  PUSHI  #0x00000001
28940 @ 243410:                  OR    
28941 @ 243411:                  ASSVAL

  4736           CYC BITS=CYC BITS!2;     ! SET 'JUMP' BIT
28942 @ 243412:                  LINE   4736 "regression-compile-tmp/imp918s.imp"
28943 @ 243450:                  PUSH   CYCBITS
28944 @ 243453:                  PUSH   CYCBITS
28945 @ 243456:                  PUSHI  #0x00000002
28946 @ 243461:                  OR    
28947 @ 243462:                  ASSVAL

  4737           ->NLAB %IF A(P+1)=1;          ! NUMERIC
28948 @ 243463:                  LINE   4737 "regression-compile-tmp/imp918s.imp"
28949 @ 243501:                  PUSH   A
28950 @ 243504:                  PUSH   P
28951 @ 243507:                  PUSHI  #0x00000001
28952 @ 243512:                  ADD   
28953 @ 243513:                  ACCESS
28954 @ 243514:                  PUSHI  #0x00000001
28955 @ 243519:                  JUMPIF # L_0004
28956 @ 243523:                  JUMP   L_020d
28957 @ 243526:                  LOCATE L_0004

  4738           ->SLAB %IF A(P+3)=2;          ! SIMPLE NAME
28958 @ 243529:                  LINE   4738 "regression-compile-tmp/imp918s.imp"
28959 @ 243567:                  PUSH   A
28960 @ 243570:                  PUSH   P
28961 @ 243573:                  PUSHI  #0x00000003
28962 @ 243578:                  ADD   
28963 @ 243579:                  ACCESS
28964 @ 243580:                  PUSHI  #0x00000002
28965 @ 243585:                  JUMPIF # L_0004
28966 @ 243589:                  JUMP   L_020e
28967 @ 243592:                  LOCATE L_0004

  4739           COPYTAG(A(P+2))
28968 @ 243595:                  LINE   4739 "regression-compile-tmp/imp918s.imp"
28969 @ 243633:                  PUSH   COPYTAG
28970 @ 243636:                  PUSH   A
28971 @ 243639:                  PUSH   P
28972 @ 243642:                  PUSHI  #0x00000002
28973 @ 243647:                  ADD   
28974 @ 243648:                  ACCESS
28975 @ 243649:                  ASSPAR
28976 @ 243650:                  CALL  

  4740           KK=K; P=P+2
28977 @ 243651:                  LINE   4740 "regression-compile-tmp/imp918s.imp"
28978 @ 243689:                  PUSH   KK
28979 @ 243692:                  PUSH   K
28980 @ 243695:                  ASSVAL
28981 @ 243696:                  LINE   4740 "regression-compile-tmp/imp918s.imp"
28982 @ 243734:                  PUSH   P
28983 @ 243737:                  PUSH   P
28984 @ 243740:                  PUSHI  #0x00000002
28985 @ 243745:                  ADD   
28986 @ 243746:                  ASSVAL

  4741           PTYPEP=PTYPE
28987 @ 243747:                  LINE   4741 "regression-compile-tmp/imp918s.imp"
28988 @ 243785:                  PUSH   PTYPEP
28989 @ 243788:                  PUSH   PTYPE
28990 @ 243791:                  ASSVAL

  4742           %UNLESS OLDI=LEVEL %AND TYPE=6 %THEN %START
28991 @ 243792:                  LINE   4742 "regression-compile-tmp/imp918s.imp"
28992 @ 243830:                  PUSH   OLDI
28993 @ 243833:                  PUSH   LEVEL
28994 @ 243836:                  JUMPIF # L_0005
28995 @ 243840:                  PUSH   TYPE
28996 @ 243843:                  PUSHI  #0x00000006
28997 @ 243848:                  JUMPIF = L_0004
28998 @ 243852:                  LOCATE L_0005

  4743              FAULT(4,0); P=P+1; SKIP APP; ->Label1
28999 @ 243855:                  LINE   4743 "regression-compile-tmp/imp918s.imp"
29000 @ 243893:                  PUSH   FAULT
29001 @ 243896:                  PUSHI  #0x00000004
29002 @ 243901:                  ASSPAR
29003 @ 243902:                  PUSHI  #0x00000000
29004 @ 243907:                  ASSPAR
29005 @ 243908:                  CALL  
29006 @ 243909:                  LINE   4743 "regression-compile-tmp/imp918s.imp"
29007 @ 243947:                  PUSH   P
29008 @ 243950:                  PUSH   P
29009 @ 243953:                  PUSHI  #0x00000001
29010 @ 243958:                  ADD   
29011 @ 243959:                  ASSVAL
29012 @ 243960:                  LINE   4743 "regression-compile-tmp/imp918s.imp"
29013 @ 243998:                  PUSH   SKIPAPP
29014 @ 244001:                  CALL  
29015 @ 244002:                  LINE   4743 "regression-compile-tmp/imp918s.imp"
29016 @ 244040:                  JUMP   L_020c

  4744           %FINISH
29017 @ 244043:                  LINE   4744 "regression-compile-tmp/imp918s.imp"
29018 @ 244081:                  LOCATE L_0004

  4745           FROM12(KK,QQ,JJ)
29019 @ 244084:                  LINE   4745 "regression-compile-tmp/imp918s.imp"
29020 @ 244122:                  PUSH   FROM12
29021 @ 244125:                  PUSH   KK
29022 @ 244128:                  ASSPAR
29023 @ 244129:                  PUSH   QQ
29024 @ 244132:                  ASSPAR
29025 @ 244133:                  PUSH   JJ
29026 @ 244136:                  ASSPAR
29027 @ 244137:                  CALL  

  4746           JJ=QQ+8-JJ*BYTES(PREC);      ! DISP OF SW(0)
29028 @ 244138:                  LINE   4746 "regression-compile-tmp/imp918s.imp"
29029 @ 244176:                  PUSH   JJ
29030 @ 244179:                  PUSH   QQ
29031 @ 244182:                  PUSHI  #0x00000008
29032 @ 244187:                  ADD   
29033 @ 244188:                  PUSH   JJ
29034 @ 244191:                  PUSH   BYTES
29035 @ 244194:                  PUSH   PREC
29036 @ 244197:                  ACCESS
29037 @ 244198:                  MUL   
29038 @ 244199:                  SUB   
29039 @ 244200:                  ASSVAL

  4747           CANAME(1,GLA,0,QQ)
29040 @ 244201:                  LINE   4747 "regression-compile-tmp/imp918s.imp"
29041 @ 244239:                  PUSH   CANAME
29042 @ 244242:                  PUSHI  #0x00000001
29043 @ 244247:                  ASSPAR
29044 @ 244248:                  PUSHI  #0x0000000d
29045 @ 244253:                  ASSPAR
29046 @ 244254:                  PUSHI  #0x00000000
29047 @ 244259:                  ASSPAR
29048 @ 244260:                  PUSH   QQ
29049 @ 244263:                  ASSPAR
29050 @ 244264:                  CALL  

  4748           %IF CHECKS=0 %THEN %START; ! OPTIMISING PUT JUMP INLINE
29051 @ 244265:                  LINE   4748 "regression-compile-tmp/imp918s.imp"
29052 @ 244303:                  PUSH   CHECKS
29053 @ 244306:                  PUSHI  #0x00000000
29054 @ 244311:                  JUMPIF # L_0004

  4749              DUMP(2*PREC+2,-2,DISP+JJ,BASE,INDEX)
29055 @ 244315:                  LINE   4749 "regression-compile-tmp/imp918s.imp"
29056 @ 244353:                  PUSH   DUMP
29057 @ 244356:                  PUSHI  #0x00000002
29058 @ 244361:                  PUSH   PREC
29059 @ 244364:                  MUL   
29060 @ 244365:                  PUSHI  #0x00000002
29061 @ 244370:                  ADD   
29062 @ 244371:                  ASSPAR
29063 @ 244372:                  PUSHI  #0x00000002
29064 @ 244377:                  NEGATE
29065 @ 244378:                  ASSPAR
29066 @ 244379:                  PUSH   DISP
29067 @ 244382:                  PUSH   JJ
29068 @ 244385:                  ADD   
29069 @ 244386:                  ASSPAR
29070 @ 244387:                  PUSH   BASE
29071 @ 244390:                  ASSPAR
29072 @ 244391:                  PUSH   INDEX
29073 @ 244394:                  ASSPAR
29074 @ 244395:                  CALL  

  4750              PRX(X'47',15,NEST,10,0)
29075 @ 244396:                  LINE   4750 "regression-compile-tmp/imp918s.imp"
29076 @ 244434:                  PUSH   PRX
29077 @ 244437:                  PUSHI  #0x00000047
29078 @ 244442:                  ASSPAR
29079 @ 244443:                  PUSHI  #0x0000000f
29080 @ 244448:                  ASSPAR
29081 @ 244449:                  PUSH   NEST
29082 @ 244452:                  ASSPAR
29083 @ 244453:                  PUSHI  #0x0000000a
29084 @ 244458:                  ASSPAR
29085 @ 244459:                  PUSHI  #0x00000000
29086 @ 244464:                  ASSPAR
29087 @ 244465:                  CALL  

  4751              FORGET(NEST)
29088 @ 244466:                  LINE   4751 "regression-compile-tmp/imp918s.imp"
29089 @ 244504:                  PUSH   FORGET
29090 @ 244507:                  PUSH   NEST
29091 @ 244510:                  ASSPAR
29092 @ 244511:                  CALL  

  4752           %FINISH; REPORTUI=1; ->Label1
29093 @ 244512:                  LINE   4752 "regression-compile-tmp/imp918s.imp"
29094 @ 244550:                  LOCATE L_0004
29095 @ 244553:                  LINE   4752 "regression-compile-tmp/imp918s.imp"
29096 @ 244591:                  PUSH   REPORTUI
29097 @ 244594:                  PUSHI  #0x00000001
29098 @ 244599:                  ASSVAL
29099 @ 244600:                  LINE   4752 "regression-compile-tmp/imp918s.imp"
29100 @ 244638:                  JUMP   L_020c

  4753  NLAB:    K=A(P+2); P=P+3
29101 @ 244641:                  LINE   4753 "regression-compile-tmp/imp918s.imp"
29102 @ 244679:                  LABEL  L_020d
29103 @ 244682:                  LINE   4753 "regression-compile-tmp/imp918s.imp"
29104 @ 244720:                  PUSH   K
29105 @ 244723:                  PUSH   A
29106 @ 244726:                  PUSH   P
29107 @ 244729:                  PUSHI  #0x00000002
29108 @ 244734:                  ADD   
29109 @ 244735:                  ACCESS
29110 @ 244736:                  ASSVAL
29111 @ 244737:                  LINE   4753 "regression-compile-tmp/imp918s.imp"
29112 @ 244775:                  PUSH   P
29113 @ 244778:                  PUSH   P
29114 @ 244781:                  PUSHI  #0x00000003
29115 @ 244786:                  ADD   
29116 @ 244787:                  ASSVAL

  4754  LCOM:    ENTER JUMP(MASK,K,0)
29117 @ 244788:                  LINE   4754 "regression-compile-tmp/imp918s.imp"
29118 @ 244826:                  LABEL  L_020f
29119 @ 244829:                  LINE   4754 "regression-compile-tmp/imp918s.imp"
29120 @ 244867:                  PUSH   ENTERJUMP
29121 @ 244870:                  PUSH   MASK
29122 @ 244873:                  ASSPAR
29123 @ 244874:                  PUSH   K
29124 @ 244877:                  ASSPAR
29125 @ 244878:                  PUSHI  #0x00000000
29126 @ 244883:                  ASSPAR
29127 @ 244884:                  CALL  

  4755           REPORTUI=1 %IF MASK=15; ->Label1
29128 @ 244885:                  LINE   4755 "regression-compile-tmp/imp918s.imp"
29129 @ 244923:                  PUSH   MASK
29130 @ 244926:                  PUSHI  #0x0000000f
29131 @ 244931:                  JUMPIF # L_0004
29132 @ 244935:                  PUSH   REPORTUI
29133 @ 244938:                  PUSHI  #0x00000001
29134 @ 244943:                  ASSVAL
29135 @ 244944:                  LOCATE L_0004
29136 @ 244947:                  LINE   4755 "regression-compile-tmp/imp918s.imp"
29137 @ 244985:                  JUMP   L_020c

  4756  SLAB:    K=16384+A(P+2); P=P+4; ->LCOM
29138 @ 244988:                  LINE   4756 "regression-compile-tmp/imp918s.imp"
29139 @ 245026:                  LABEL  L_020e
29140 @ 245029:                  LINE   4756 "regression-compile-tmp/imp918s.imp"
29141 @ 245067:                  PUSH   K
29142 @ 245070:                  PUSHI  #0x00004000
29143 @ 245075:                  PUSH   A
29144 @ 245078:                  PUSH   P
29145 @ 245081:                  PUSHI  #0x00000002
29146 @ 245086:                  ADD   
29147 @ 245087:                  ACCESS
29148 @ 245088:                  ADD   
29149 @ 245089:                  ASSVAL
29150 @ 245090:                  LINE   4756 "regression-compile-tmp/imp918s.imp"
29151 @ 245128:                  PUSH   P
29152 @ 245131:                  PUSH   P
29153 @ 245134:                  PUSHI  #0x00000004
29154 @ 245139:                  ADD   
29155 @ 245140:                  ASSVAL
29156 @ 245141:                  LINE   4756 "regression-compile-tmp/imp918s.imp"
29157 @ 245179:                  JUMP   L_020f

  4757  SW(3):                                 ! printstring("TEXTTEXT")
29158 @ 245182:                  LINE   4757 "regression-compile-tmp/imp918s.imp"
29159 @ 245220:                  PUSHI  #0x00000003
29160 @ 245225:                  SLABEL 521

  4758           WARN(LINE)
29161 @ 245228:                  LINE   4758 "regression-compile-tmp/imp918s.imp"
29162 @ 245266:                  PUSH   WARN
29163 @ 245269:                  PUSH   LINE
29164 @ 245272:                  ASSPAR
29165 @ 245273:                  CALL  

  4759           P=P+1; TEXTOUT(0); ->AUI
29166 @ 245274:                  LINE   4759 "regression-compile-tmp/imp918s.imp"
29167 @ 245312:                  PUSH   P
29168 @ 245315:                  PUSH   P
29169 @ 245318:                  PUSHI  #0x00000001
29170 @ 245323:                  ADD   
29171 @ 245324:                  ASSVAL
29172 @ 245325:                  LINE   4759 "regression-compile-tmp/imp918s.imp"
29173 @ 245363:                  PUSH   TEXTOUT
29174 @ 245366:                  PUSHI  #0x00000000
29175 @ 245371:                  ASSPAR
29176 @ 245372:                  CALL  
29177 @ 245373:                  LINE   4759 "regression-compile-tmp/imp918s.imp"
29178 @ 245411:                  JUMP   L_020b

  4760  SW(4):                                 ! %RETURN
29179 @ 245414:                  LINE   4760 "regression-compile-tmp/imp918s.imp"
29180 @ 245452:                  PUSHI  #0x00000004
29181 @ 245457:                  SLABEL 521

  4761           FAULT(30,0) %UNLESS FLAG=10000 %OR COMPILER=1
29182 @ 245460:                  LINE   4761 "regression-compile-tmp/imp918s.imp"
29183 @ 245498:                  PUSH   FLAG
29184 @ 245501:                  PUSHI  #0x00002710
29185 @ 245506:                  JUMPIF = L_0004
29186 @ 245510:                  PUSH   COMPILER
29187 @ 245513:                  PUSHI  #0x00000001
29188 @ 245518:                  JUMPIF = L_0004
29189 @ 245522:                  PUSH   FAULT
29190 @ 245525:                  PUSHI  #0x0000001e
29191 @ 245530:                  ASSPAR
29192 @ 245531:                  PUSHI  #0x00000000
29193 @ 245536:                  ASSPAR
29194 @ 245537:                  CALL  
29195 @ 245538:                  LOCATE L_0004

  4762           P=P+1
29196 @ 245541:                  LINE   4762 "regression-compile-tmp/imp918s.imp"
29197 @ 245579:                  PUSH   P
29198 @ 245582:                  PUSH   P
29199 @ 245585:                  PUSHI  #0x00000001
29200 @ 245590:                  ADD   
29201 @ 245591:                  ASSVAL

  4763  Label6:       RT EXIT
29202 @ 245592:                  LINE   4763 "regression-compile-tmp/imp918s.imp"
29203 @ 245630:                  LABEL  L_0210
29204 @ 245633:                  LINE   4763 "regression-compile-tmp/imp918s.imp"
29205 @ 245671:                  PUSH   RTEXIT
29206 @ 245674:                  CALL  

  4764           CYC BITS=CYC BITS!2;         ! SET 'JUMP OUT' BIT
29207 @ 245675:                  LINE   4764 "regression-compile-tmp/imp918s.imp"
29208 @ 245713:                  PUSH   CYCBITS
29209 @ 245716:                  PUSH   CYCBITS
29210 @ 245719:                  PUSHI  #0x00000002
29211 @ 245724:                  OR    
29212 @ 245725:                  ASSVAL

  4765           REPORTUI=1
29213 @ 245726:                  LINE   4765 "regression-compile-tmp/imp918s.imp"
29214 @ 245764:                  PUSH   REPORTUI
29215 @ 245767:                  PUSHI  #0x00000001
29216 @ 245772:                  ASSVAL

  4766           CURR INST=1 %IF CODE=0; ->Label1
29217 @ 245773:                  LINE   4766 "regression-compile-tmp/imp918s.imp"
29218 @ 245811:                  PUSH   CODE
29219 @ 245814:                  PUSHI  #0x00000000
29220 @ 245819:                  JUMPIF # L_0004
29221 @ 245823:                  PUSH   CURRINST
29222 @ 245826:                  PUSHI  #0x00000001
29223 @ 245831:                  ASSVAL
29224 @ 245832:                  LOCATE L_0004
29225 @ 245835:                  LINE   4766 "regression-compile-tmp/imp918s.imp"
29226 @ 245873:                  JUMP   L_020c

  4767  SW(5):                                 ! %RESULT(ASSOP)(EXPR)
29227 @ 245876:                  LINE   4767 "regression-compile-tmp/imp918s.imp"
29228 @ 245914:                  PUSHI  #0x00000005
29229 @ 245919:                  SLABEL 521

  4768           PTYPE=FLAG;! UNPACK
  4769  !%if USE MC = 1 %start
  4770  !            *L_1,PTYPE; *CVD_1,0(11)
  4771  !            *UNPK_ROUT(5),5(3,11)
  4772  !            *NC_ROUT(5),MASK1
  4773  !%finish
29230 @ 245922:                  LINE   4768 "regression-compile-tmp/imp918s.imp"
29231 @ 245960:                  PUSH   PTYPE
29232 @ 245963:                  PUSH   FLAG
29233 @ 245966:                  ASSVAL

  4774           %IF PTYPE>10000 %AND A(P+1)#3 %THEN %START;! ASSOP #'->'
29234 @ 245967:                  LINE   4774 "regression-compile-tmp/imp918s.imp"
29235 @ 246005:                  PUSH   PTYPE
29236 @ 246008:                  PUSHI  #0x00002710
29237 @ 246013:                  JUMPIF <= L_0004
29238 @ 246017:                  PUSH   A
29239 @ 246020:                  PUSH   P
29240 @ 246023:                  PUSHI  #0x00000001
29241 @ 246028:                  ADD   
29242 @ 246029:                  ACCESS
29243 @ 246030:                  PUSHI  #0x00000003
29244 @ 246035:                  JUMPIF = L_0004

  4775              %IF A(P+1)=1 %AND NAM#0 %AND A(P+4)=4 %AND A(P+5)=1 %START
29245 @ 246039:                  LINE   4775 "regression-compile-tmp/imp918s.imp"
29246 @ 246077:                  PUSH   A
29247 @ 246080:                  PUSH   P
29248 @ 246083:                  PUSHI  #0x00000001
29249 @ 246088:                  ADD   
29250 @ 246089:                  ACCESS
29251 @ 246090:                  PUSHI  #0x00000001
29252 @ 246095:                  JUMPIF # L_0007
29253 @ 246099:                  PUSH   NAM
29254 @ 246102:                  PUSHI  #0x00000000
29255 @ 246107:                  JUMPIF = L_0007
29256 @ 246111:                  PUSH   A
29257 @ 246114:                  PUSH   P
29258 @ 246117:                  PUSHI  #0x00000004
29259 @ 246122:                  ADD   
29260 @ 246123:                  ACCESS
29261 @ 246124:                  PUSHI  #0x00000004
29262 @ 246129:                  JUMPIF # L_0007
29263 @ 246133:                  PUSH   A
29264 @ 246136:                  PUSH   P
29265 @ 246139:                  PUSHI  #0x00000005
29266 @ 246144:                  ADD   
29267 @ 246145:                  ACCESS
29268 @ 246146:                  PUSHI  #0x00000001
29269 @ 246151:                  JUMPIF # L_0007

  4776                 P=P+6; TYPEP=TYPE; PRECP=PREC
29270 @ 246155:                  LINE   4776 "regression-compile-tmp/imp918s.imp"
29271 @ 246193:                  PUSH   P
29272 @ 246196:                  PUSH   P
29273 @ 246199:                  PUSHI  #0x00000006
29274 @ 246204:                  ADD   
29275 @ 246205:                  ASSVAL
29276 @ 246206:                  LINE   4776 "regression-compile-tmp/imp918s.imp"
29277 @ 246244:                  PUSH   TYPEP
29278 @ 246247:                  PUSH   TYPE
29279 @ 246250:                  ASSVAL
29280 @ 246251:                  LINE   4776 "regression-compile-tmp/imp918s.imp"
29281 @ 246289:                  PUSH   PRECP
29282 @ 246292:                  PUSH   PREC
29283 @ 246295:                  ASSVAL

  4777                 CNAME(3,1)
29284 @ 246296:                  LINE   4777 "regression-compile-tmp/imp918s.imp"
29285 @ 246334:                  PUSH   CNAME
29286 @ 246337:                  PUSHI  #0x00000003
29287 @ 246342:                  ASSPAR
29288 @ 246343:                  PUSHI  #0x00000001
29289 @ 246348:                  ASSPAR
29290 @ 246349:                  CALL  

  4778                 FAULT(81,0) %UNLESS A(P)=2; P=P+1
29291 @ 246350:                  LINE   4778 "regression-compile-tmp/imp918s.imp"
29292 @ 246388:                  PUSH   A
29293 @ 246391:                  PUSH   P
29294 @ 246394:                  ACCESS
29295 @ 246395:                  PUSHI  #0x00000002
29296 @ 246400:                  JUMPIF = L_000a
29297 @ 246404:                  PUSH   FAULT
29298 @ 246407:                  PUSHI  #0x00000051
29299 @ 246412:                  ASSPAR
29300 @ 246413:                  PUSHI  #0x00000000
29301 @ 246418:                  ASSPAR
29302 @ 246419:                  CALL  
29303 @ 246420:                  LOCATE L_000a
29304 @ 246423:                  LINE   4778 "regression-compile-tmp/imp918s.imp"
29305 @ 246461:                  PUSH   P
29306 @ 246464:                  PUSH   P
29307 @ 246467:                  PUSHI  #0x00000001
29308 @ 246472:                  ADD   
29309 @ 246473:                  ASSVAL

  4779                 FAULT(83,0) %UNLESS TYPEP=TYPE %AND PRECP=PREC
29310 @ 246474:                  LINE   4779 "regression-compile-tmp/imp918s.imp"
29311 @ 246512:                  PUSH   TYPEP
29312 @ 246515:                  PUSH   TYPE
29313 @ 246518:                  JUMPIF # L_000b
29314 @ 246522:                  PUSH   PRECP
29315 @ 246525:                  PUSH   PREC
29316 @ 246528:                  JUMPIF = L_000a
29317 @ 246532:                  LOCATE L_000b
29318 @ 246535:                  PUSH   FAULT
29319 @ 246538:                  PUSHI  #0x00000053
29320 @ 246543:                  ASSPAR
29321 @ 246544:                  PUSHI  #0x00000000
29322 @ 246549:                  ASSPAR
29323 @ 246550:                  CALL  
29324 @ 246551:                  LOCATE L_000a

  4780                 ->Label6
29325 @ 246554:                  LINE   4780 "regression-compile-tmp/imp918s.imp"
29326 @ 246592:                  JUMP   L_0210

  4781              %FINISH
29327 @ 246595:                  LINE   4781 "regression-compile-tmp/imp918s.imp"
29328 @ 246633:                  LOCATE L_0007

  4782              %IF A(P+1)=2 %THEN %START;    ! ASSOP='='
29329 @ 246636:                  LINE   4782 "regression-compile-tmp/imp918s.imp"
29330 @ 246674:                  PUSH   A
29331 @ 246677:                  PUSH   P
29332 @ 246680:                  PUSHI  #0x00000001
29333 @ 246685:                  ADD   
29334 @ 246686:                  ACCESS
29335 @ 246687:                  PUSHI  #0x00000002
29336 @ 246692:                  JUMPIF # L_0007

  4783                 P=P+2
29337 @ 246696:                  LINE   4783 "regression-compile-tmp/imp918s.imp"
29338 @ 246734:                  PUSH   P
29339 @ 246737:                  PUSH   P
29340 @ 246740:                  PUSHI  #0x00000002
29341 @ 246745:                  ADD   
29342 @ 246746:                  ASSVAL

  4784                 %IF NAM#0 %THEN TYPE=1;    ! MAPS HAVE INTEGER RESULTS
29343 @ 246747:                  LINE   4784 "regression-compile-tmp/imp918s.imp"
29344 @ 246785:                  PUSH   NAM
29345 @ 246788:                  PUSHI  #0x00000000
29346 @ 246793:                  JUMPIF = L_000a
29347 @ 246797:                  PUSH   TYPE
29348 @ 246800:                  PUSHI  #0x00000001
29349 @ 246805:                  ASSVAL
29350 @ 246806:                  LOCATE L_000a

  4785                 %IF TYPE=5 %THEN CSTREXP(1,1) %ELSE %START
29351 @ 246809:                  LINE   4785 "regression-compile-tmp/imp918s.imp"
29352 @ 246847:                  PUSH   TYPE
29353 @ 246850:                  PUSHI  #0x00000005
29354 @ 246855:                  JUMPIF # L_000a
29355 @ 246859:                  PUSH   CSTREXP
29356 @ 246862:                  PUSHI  #0x00000001
29357 @ 246867:                  ASSPAR
29358 @ 246868:                  PUSHI  #0x00000001
29359 @ 246873:                  ASSPAR
29360 @ 246874:                  CALL  
29361 @ 246875:                  GOTO   L_0009
29362 @ 246878:                  LOCATE L_000a

  4786                    PREC=TYPE %UNLESS PREC=3 %AND NAM=0
29363 @ 246881:                  LINE   4786 "regression-compile-tmp/imp918s.imp"
29364 @ 246919:                  PUSH   PREC
29365 @ 246922:                  PUSHI  #0x00000003
29366 @ 246927:                  JUMPIF # L_000e
29367 @ 246931:                  PUSH   NAM
29368 @ 246934:                  PUSHI  #0x00000000
29369 @ 246939:                  JUMPIF = L_000d
29370 @ 246943:                  LOCATE L_000e
29371 @ 246946:                  PUSH   PREC
29372 @ 246949:                  PUSH   TYPE
29373 @ 246952:                  ASSVAL
29374 @ 246953:                  LOCATE L_000d

  4787                    CSEXP(TYPE,PREC)
29375 @ 246956:                  LINE   4787 "regression-compile-tmp/imp918s.imp"
29376 @ 246994:                  PUSH   CSEXP
29377 @ 246997:                  PUSH   TYPE
29378 @ 247000:                  ASSPAR
29379 @ 247001:                  PUSH   PREC
29380 @ 247004:                  ASSPAR
29381 @ 247005:                  CALL  

  4788                 %FINISH; ->Label6
29382 @ 247006:                  LINE   4788 "regression-compile-tmp/imp918s.imp"
29383 @ 247044:                  LOCATE L_0009
29384 @ 247047:                  LINE   4788 "regression-compile-tmp/imp918s.imp"
29385 @ 247085:                  JUMP   L_0210

  4789              %FINISH
29386 @ 247088:                  LINE   4789 "regression-compile-tmp/imp918s.imp"
29387 @ 247126:                  LOCATE L_0007

  4790           %FINISH
29388 @ 247129:                  LINE   4790 "regression-compile-tmp/imp918s.imp"
29389 @ 247167:                  LOCATE L_0004

  4791           FAULT(31,0)
29390 @ 247170:                  LINE   4791 "regression-compile-tmp/imp918s.imp"
29391 @ 247208:                  PUSH   FAULT
29392 @ 247211:                  PUSHI  #0x0000001f
29393 @ 247216:                  ASSPAR
29394 @ 247217:                  PUSHI  #0x00000000
29395 @ 247222:                  ASSPAR
29396 @ 247223:                  CALL  

  4792           P=P+2; SKIP EXP; ->Label1;            ! IGNORE SPURIOUS RESULT
29397 @ 247224:                  LINE   4792 "regression-compile-tmp/imp918s.imp"
29398 @ 247262:                  PUSH   P
29399 @ 247265:                  PUSH   P
29400 @ 247268:                  PUSHI  #0x00000002
29401 @ 247273:                  ADD   
29402 @ 247274:                  ASSVAL
29403 @ 247275:                  LINE   4792 "regression-compile-tmp/imp918s.imp"
29404 @ 247313:                  PUSH   SKIPEXP
29405 @ 247316:                  CALL  
29406 @ 247317:                  LINE   4792 "regression-compile-tmp/imp918s.imp"
29407 @ 247355:                  JUMP   L_020c

  4793  SW(6):   ->Label601 %IF A(P+1)=2;           ! %MONITOR (SOMETHING)
29408 @ 247358:                  LINE   4793 "regression-compile-tmp/imp918s.imp"
29409 @ 247396:                  PUSHI  #0x00000006
29410 @ 247401:                  SLABEL 521
29411 @ 247404:                  LINE   4793 "regression-compile-tmp/imp918s.imp"
29412 @ 247442:                  PUSH   A
29413 @ 247445:                  PUSH   P
29414 @ 247448:                  PUSHI  #0x00000001
29415 @ 247453:                  ADD   
29416 @ 247454:                  ACCESS
29417 @ 247455:                  PUSHI  #0x00000002
29418 @ 247460:                  JUMPIF # L_0004
29419 @ 247464:                  JUMP   L_0211
29420 @ 247467:                  LOCATE L_0004

  4794           %IF DIAGS1=1 %THEN PPJ(31); P=P+1
29421 @ 247470:                  LINE   4794 "regression-compile-tmp/imp918s.imp"
29422 @ 247508:                  PUSH   DIAGS1
29423 @ 247511:                  PUSHI  #0x00000001
29424 @ 247516:                  JUMPIF # L_0004
29425 @ 247520:                  PUSH   PPJ
29426 @ 247523:                  PUSHI  #0x0000001f
29427 @ 247528:                  ASSPAR
29428 @ 247529:                  CALL  
29429 @ 247530:                  LOCATE L_0004
29430 @ 247533:                  LINE   4794 "regression-compile-tmp/imp918s.imp"
29431 @ 247571:                  PUSH   P
29432 @ 247574:                  PUSH   P
29433 @ 247577:                  PUSHI  #0x00000001
29434 @ 247582:                  ADD   
29435 @ 247583:                  ASSVAL

  4795           ->Label701 %IF A(P)=1; P=P+1; ->Label1
29436 @ 247584:                  LINE   4795 "regression-compile-tmp/imp918s.imp"
29437 @ 247622:                  PUSH   A
29438 @ 247625:                  PUSH   P
29439 @ 247628:                  ACCESS
29440 @ 247629:                  PUSHI  #0x00000001
29441 @ 247634:                  JUMPIF # L_0004
29442 @ 247638:                  JUMP   L_0212
29443 @ 247641:                  LOCATE L_0004
29444 @ 247644:                  LINE   4795 "regression-compile-tmp/imp918s.imp"
29445 @ 247682:                  PUSH   P
29446 @ 247685:                  PUSH   P
29447 @ 247688:                  PUSHI  #0x00000001
29448 @ 247693:                  ADD   
29449 @ 247694:                  ASSVAL
29450 @ 247695:                  LINE   4795 "regression-compile-tmp/imp918s.imp"
29451 @ 247733:                  JUMP   L_020c

  4796  Label601:     PRX(X'41',0,0,0,A(P+2))
29452 @ 247736:                  LINE   4796 "regression-compile-tmp/imp918s.imp"
29453 @ 247774:                  LABEL  L_0211
29454 @ 247777:                  LINE   4796 "regression-compile-tmp/imp918s.imp"
29455 @ 247815:                  PUSH   PRX
29456 @ 247818:                  PUSHI  #0x00000041
29457 @ 247823:                  ASSPAR
29458 @ 247824:                  PUSHI  #0x00000000
29459 @ 247829:                  ASSPAR
29460 @ 247830:                  PUSHI  #0x00000000
29461 @ 247835:                  ASSPAR
29462 @ 247836:                  PUSHI  #0x00000000
29463 @ 247841:                  ASSPAR
29464 @ 247842:                  PUSH   A
29465 @ 247845:                  PUSH   P
29466 @ 247848:                  PUSHI  #0x00000002
29467 @ 247853:                  ADD   
29468 @ 247854:                  ACCESS
29469 @ 247855:                  ASSPAR
29470 @ 247856:                  CALL  

  4797           WARN(LINE)
29471 @ 247857:                  LINE   4797 "regression-compile-tmp/imp918s.imp"
29472 @ 247895:                  PUSH   WARN
29473 @ 247898:                  PUSH   LINE
29474 @ 247901:                  ASSPAR
29475 @ 247902:                  CALL  

  4798           PPJ(21); P=P+3; ->Label1
29476 @ 247903:                  LINE   4798 "regression-compile-tmp/imp918s.imp"
29477 @ 247941:                  PUSH   PPJ
29478 @ 247944:                  PUSHI  #0x00000015
29479 @ 247949:                  ASSPAR
29480 @ 247950:                  CALL  
29481 @ 247951:                  LINE   4798 "regression-compile-tmp/imp918s.imp"
29482 @ 247989:                  PUSH   P
29483 @ 247992:                  PUSH   P
29484 @ 247995:                  PUSHI  #0x00000003
29485 @ 248000:                  ADD   
29486 @ 248001:                  ASSVAL
29487 @ 248002:                  LINE   4798 "regression-compile-tmp/imp918s.imp"
29488 @ 248040:                  JUMP   L_020c

  4799  Label701:     WARN(LINE)
29489 @ 248043:                  LINE   4799 "regression-compile-tmp/imp918s.imp"
29490 @ 248081:                  LABEL  L_0212
29491 @ 248084:                  LINE   4799 "regression-compile-tmp/imp918s.imp"
29492 @ 248122:                  PUSH   WARN
29493 @ 248125:                  PUSH   LINE
29494 @ 248128:                  ASSPAR
29495 @ 248129:                  CALL  

  4800  SW(7):                                 ! %STOP
29496 @ 248130:                  LINE   4800 "regression-compile-tmp/imp918s.imp"
29497 @ 248168:                  PUSHI  #0x00000007
29498 @ 248173:                  SLABEL 521

  4801           PPJ(6); P=P+1; CURR INST=1 %IF CODE=0
29499 @ 248176:                  LINE   4801 "regression-compile-tmp/imp918s.imp"
29500 @ 248214:                  PUSH   PPJ
29501 @ 248217:                  PUSHI  #0x00000006
29502 @ 248222:                  ASSPAR
29503 @ 248223:                  CALL  
29504 @ 248224:                  LINE   4801 "regression-compile-tmp/imp918s.imp"
29505 @ 248262:                  PUSH   P
29506 @ 248265:                  PUSH   P
29507 @ 248268:                  PUSHI  #0x00000001
29508 @ 248273:                  ADD   
29509 @ 248274:                  ASSVAL
29510 @ 248275:                  LINE   4801 "regression-compile-tmp/imp918s.imp"
29511 @ 248313:                  PUSH   CODE
29512 @ 248316:                  PUSHI  #0x00000000
29513 @ 248321:                  JUMPIF # L_0004
29514 @ 248325:                  PUSH   CURRINST
29515 @ 248328:                  PUSHI  #0x00000001
29516 @ 248333:                  ASSVAL
29517 @ 248334:                  LOCATE L_0004

  4802           REPORTUI=1; ->Label1
29518 @ 248337:                  LINE   4802 "regression-compile-tmp/imp918s.imp"
29519 @ 248375:                  PUSH   REPORTUI
29520 @ 248378:                  PUSHI  #0x00000001
29521 @ 248383:                  ASSVAL
29522 @ 248384:                  LINE   4802 "regression-compile-tmp/imp918s.imp"
29523 @ 248422:                  JUMP   L_020c

  4803  SW(8):                             ! %EXIT
29524 @ 248425:                  LINE   4803 "regression-compile-tmp/imp918s.imp"
29525 @ 248463:                  PUSHI  #0x00000008
29526 @ 248468:                  SLABEL 521

  4804           CYC BITS=CYCBITS!2;          ! SET JUMP BIT
29527 @ 248471:                  LINE   4804 "regression-compile-tmp/imp918s.imp"
29528 @ 248509:                  PUSH   CYCBITS
29529 @ 248512:                  PUSH   CYCBITS
29530 @ 248515:                  PUSHI  #0x00000002
29531 @ 248520:                  OR    
29532 @ 248521:                  ASSVAL

  4805           KK=FROM2(CYCLE(LEVEL))
29533 @ 248522:                  LINE   4805 "regression-compile-tmp/imp918s.imp"
29534 @ 248560:                  PUSH   KK
29535 @ 248563:                  PUSH   FROM2
29536 @ 248566:                  PUSH   CYCLE
29537 @ 248569:                  PUSH   LEVEL
29538 @ 248572:                  ACCESS
29539 @ 248573:                  ASSPAR
29540 @ 248574:                  CALL  
29541 @ 248575:                  ASSVAL

  4806           %IF KK=-1 %THEN %START
29542 @ 248576:                  LINE   4806 "regression-compile-tmp/imp918s.imp"
29543 @ 248614:                  PUSH   KK
29544 @ 248617:                  PUSHI  #0x00000001
29545 @ 248622:                  NEGATE
29546 @ 248623:                  JUMPIF # L_0004

  4807           FAULT(54,0) %UNLESS CSSMODE=0; ->Label1; %FINISH
29547 @ 248627:                  LINE   4807 "regression-compile-tmp/imp918s.imp"
29548 @ 248665:                  PUSH   CSSMODE
29549 @ 248668:                  PUSHI  #0x00000000
29550 @ 248673:                  JUMPIF = L_0007
29551 @ 248677:                  PUSH   FAULT
29552 @ 248680:                  PUSHI  #0x00000036
29553 @ 248685:                  ASSPAR
29554 @ 248686:                  PUSHI  #0x00000000
29555 @ 248691:                  ASSPAR
29556 @ 248692:                  CALL  
29557 @ 248693:                  LOCATE L_0007
29558 @ 248696:                  LINE   4807 "regression-compile-tmp/imp918s.imp"
29559 @ 248734:                  JUMP   L_020c
29560 @ 248737:                  LINE   4807 "regression-compile-tmp/imp918s.imp"
29561 @ 248775:                  LOCATE L_0004

  4808           REPLACE2(CYCLE(LEVEL),KK!X'80000000')
29562 @ 248778:                  LINE   4808 "regression-compile-tmp/imp918s.imp"
29563 @ 248816:                  PUSH   REPLACE2
29564 @ 248819:                  PUSH   CYCLE
29565 @ 248822:                  PUSH   LEVEL
29566 @ 248825:                  ACCESS
29567 @ 248826:                  ASSPAR
29568 @ 248827:                  PUSH   KK
29569 @ 248830:                  PUSHI  #0x80000000
29570 @ 248835:                  OR    
29571 @ 248836:                  ASSPAR
29572 @ 248837:                  CALL  

  4809           ENTER JUMP(MASK,KK>>16&X'7FFF',B'10')
29573 @ 248838:                  LINE   4809 "regression-compile-tmp/imp918s.imp"
29574 @ 248876:                  PUSH   ENTERJUMP
29575 @ 248879:                  PUSH   MASK
29576 @ 248882:                  ASSPAR
29577 @ 248883:                  PUSH   KK
29578 @ 248886:                  PUSHI  #0x00000010
29579 @ 248891:                  RSH   
29580 @ 248892:                  PUSHI  #0x00007fff
29581 @ 248897:                  AND   
29582 @ 248898:                  ASSPAR
29583 @ 248899:                  PUSHI  #0x00000002
29584 @ 248904:                  ASSPAR
29585 @ 248905:                  CALL  

  4810           REPORTUI=1 %IF MASK=15
29586 @ 248906:                  LINE   4810 "regression-compile-tmp/imp918s.imp"
29587 @ 248944:                  PUSH   MASK
29588 @ 248947:                  PUSHI  #0x0000000f
29589 @ 248952:                  JUMPIF # L_0004
29590 @ 248956:                  PUSH   REPORTUI
29591 @ 248959:                  PUSHI  #0x00000001
29592 @ 248964:                  ASSVAL
29593 @ 248965:                  LOCATE L_0004

  4811  Label1:       %END
29594 @ 248968:                  LINE   4811 "regression-compile-tmp/imp918s.imp"
29595 @ 249006:                  LABEL  L_020c
29596 @ 249009:                  LINE   4811 "regression-compile-tmp/imp918s.imp"
29597 @ 249047:               END    _lev0id0_CSS_CUI {lev=3 --> 2}

  4812           %ROUTINE RT EXIT
  4813           {%SHORTROUTINE}
  4814  !***********************************************************************
  4815  !*       THIS ROUTINE COMPILES CODE FOR ROUTINE EXIT(IE '%RETURN')     *
  4816  !*       THE ONLY PROBLEM IS REGISTER VARIABLES WHICH ARE GLOBAL       *
  4817  !*       THE SAVE AREA MUST BE UPDATED TO PREVENT THE RETURN RESTORING *
  4818  !*       THE REGISTER VARIABLE TO ITS VALUE AT THE TIME OF THE CALL    *
  4819  !***********************************************************************
29598 @ 249048:               LINE   4812 "regression-compile-tmp/imp918s.imp"
29599 @ 249086:               DEF    RTEXIT (_lev0id0_CSS_RTEXIT) p1=V_0192 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
29600 @ 249104:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
29601 @ 249105:                  FINISH ) {lev=3}

  4820           %INTEGER KK
29602 @ 249106:                  LINE   4820 "regression-compile-tmp/imp918s.imp"
29603 @ 249144:                  DEF    KK p1=V_0203 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

  4821           PSS(X'D2',4,GLA,20,RBASE,0) %IF DIAGS1=1;! RESET DIAGS PTRS
29604 @ 249158:                  LINE   4821 "regression-compile-tmp/imp918s.imp"
29605 @ 249196:                  PUSH   DIAGS1
29606 @ 249199:                  PUSHI  #0x00000001
29607 @ 249204:                  JUMPIF # L_0004
29608 @ 249208:                  PUSH   PSS
29609 @ 249211:                  PUSHI  #0x000000d2
29610 @ 249216:                  ASSPAR
29611 @ 249217:                  PUSHI  #0x00000004
29612 @ 249222:                  ASSPAR
29613 @ 249223:                  PUSHI  #0x0000000d
29614 @ 249228:                  ASSPAR
29615 @ 249229:                  PUSHI  #0x00000014
29616 @ 249234:                  ASSPAR
29617 @ 249235:                  PUSH   RBASE
29618 @ 249238:                  ASSPAR
29619 @ 249239:                  PUSHI  #0x00000000
29620 @ 249244:                  ASSPAR
29621 @ 249245:                  CALL  
29622 @ 249246:                  LOCATE L_0004

  4822           %CYCLE KK=5,1,14;            ! CHECK FOR REGISTER VAR
29623 @ 249249:                  LINE   4822 "regression-compile-tmp/imp918s.imp"
29624 @ 249287:                  PUSH   KK
29625 @ 249290:                  PUSHI  #0x00000001
29626 @ 249295:                  PUSHI  #0x0000000e
29627 @ 249300:                  PUSHI  #0x00000005
29628 @ 249305:                  FOR    L_0003

  4823             %IF 0#UVARREG(KK)<LEVEL %AND(COMPILER=0 %OR NMDECS&X'FE'#0)%C
  4824              %THEN PRX(X'50',KK,0,RBASE,KK<<2);  ! UPDATE CORE COPY
29629 @ 249308:                  LINE   4823 "regression-compile-tmp/imp918s.imp"
29630 @ 249346:                  PUSHI  #0x00000000
29631 @ 249351:                  PUSH   UVARREG
29632 @ 249354:                  PUSH   KK
29633 @ 249357:                  ACCESS
29634 @ 249358:                  JUMPIFD = L_0007
29635 @ 249362:                  PUSH   LEVEL
29636 @ 249365:                  JUMPIF >= L_0007
29637 @ 249369:                  PUSH   COMPILER
29638 @ 249372:                  PUSHI  #0x00000000
29639 @ 249377:                  JUMPIF = L_0008
29640 @ 249381:                  PUSH   NMDECS
29641 @ 249384:                  PUSHI  #0x000000fe
29642 @ 249389:                  AND   
29643 @ 249390:                  PUSHI  #0x00000000
29644 @ 249395:                  JUMPIF = L_0007
29645 @ 249399:                  LOCATE L_0008
29646 @ 249402:                  PUSH   PRX
29647 @ 249405:                  PUSHI  #0x00000050
29648 @ 249410:                  ASSPAR
29649 @ 249411:                  PUSH   KK
29650 @ 249414:                  ASSPAR
29651 @ 249415:                  PUSHI  #0x00000000
29652 @ 249420:                  ASSPAR
29653 @ 249421:                  PUSH   RBASE
29654 @ 249424:                  ASSPAR
29655 @ 249425:                  PUSH   KK
29656 @ 249428:                  PUSHI  #0x00000002
29657 @ 249433:                  LSH   
29658 @ 249434:                  ASSPAR
29659 @ 249435:                  CALL  
29660 @ 249436:                  LOCATE L_0007

  4825           %REPEAT
29661 @ 249439:                  LINE   4825 "regression-compile-tmp/imp918s.imp"
29662 @ 249477:                  REPEAT L_0003
29663 @ 249480:                  LOCATE L_0004

  4826           PRX(X'98',4,15,RBASE,16);     ! LM OLD REGISTERS
29664 @ 249483:                  LINE   4826 "regression-compile-tmp/imp918s.imp"
29665 @ 249521:                  PUSH   PRX
29666 @ 249524:                  PUSHI  #0x00000098
29667 @ 249529:                  ASSPAR
29668 @ 249530:                  PUSHI  #0x00000004
29669 @ 249535:                  ASSPAR
29670 @ 249536:                  PUSHI  #0x0000000f
29671 @ 249541:                  ASSPAR
29672 @ 249542:                  PUSH   RBASE
29673 @ 249545:                  ASSPAR
29674 @ 249546:                  PUSHI  #0x00000010
29675 @ 249551:                  ASSPAR
29676 @ 249552:                  CALL  

  4827           PLANT(X'7FF')
29677 @ 249553:                  LINE   4827 "regression-compile-tmp/imp918s.imp"
29678 @ 249591:                  PUSH   PLANT
29679 @ 249594:                  PUSHI  #0x000007ff
29680 @ 249599:                  ASSPAR
29681 @ 249600:                  CALL  

  4828           %END
29682 @ 249601:                  LINE   4828 "regression-compile-tmp/imp918s.imp"
29683 @ 249639:               END    _lev0id0_CSS_RTEXIT {lev=3 --> 2}

  4829           %ROUTINE CSTART(%INTEGER CODE)
  4830           {%SHORTROUTINE}
29684 @ 249640:               LINE   4829 "regression-compile-tmp/imp918s.imp"
29685 @ 249678:               DEF    CSTART (_lev0id0_CSS_CSTART) p1=V_016e 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
29686 @ 249696:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
29687 @ 249697:                     DEF    CODE p1=V_0203 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
29688 @ 249713:                  FINISH ) {lev=3}

  4831           %INTEGER KK
29689 @ 249714:                  LINE   4831 "regression-compile-tmp/imp918s.imp"
29690 @ 249752:                  DEF    KK p1=V_0204 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

  4832           SFLABEL=SFLABEL-1
29691 @ 249766:                  LINE   4832 "regression-compile-tmp/imp918s.imp"
29692 @ 249804:                  PUSH   SFLABEL
29693 @ 249807:                  PUSH   SFLABEL
29694 @ 249810:                  PUSHI  #0x00000001
29695 @ 249815:                  SUB   
29696 @ 249816:                  ASSVAL

  4833           FIND USE(KK,1,11,\SFLABEL)
29697 @ 249817:                  LINE   4833 "regression-compile-tmp/imp918s.imp"
29698 @ 249855:                  PUSH   FINDUSE
29699 @ 249858:                  PUSH   KK
29700 @ 249861:                  ASSPAR
29701 @ 249862:                  PUSHI  #0x00000001
29702 @ 249867:                  ASSPAR
29703 @ 249868:                  PUSHI  #0x0000000b
29704 @ 249873:                  ASSPAR
29705 @ 249874:                  PUSH   SFLABEL
29706 @ 249877:                  NOT   
29707 @ 249878:                  ASSPAR
29708 @ 249879:                  CALL  

  4834           %IF KK>0 %THEN FORGET(KK)  ;! FORGET MULT OF 4K FOR SFLAB
29709 @ 249880:                  LINE   4834 "regression-compile-tmp/imp918s.imp"
29710 @ 249918:                  PUSH   KK
29711 @ 249921:                  PUSHI  #0x00000000
29712 @ 249926:                  JUMPIF <= L_0004
29713 @ 249930:                  PUSH   FORGET
29714 @ 249933:                  PUSH   KK
29715 @ 249936:                  ASSPAR
29716 @ 249937:                  CALL  
29717 @ 249938:                  LOCATE L_0004

  4835           PUSH123(SBR(LEVEL),CODE,SFLABEL,CYCLE(LEVEL))
29718 @ 249941:                  LINE   4835 "regression-compile-tmp/imp918s.imp"
29719 @ 249979:                  PUSH   PUSH123
29720 @ 249982:                  PUSH   SBR
29721 @ 249985:                  PUSH   LEVEL
29722 @ 249988:                  ACCESS
29723 @ 249989:                  ASSPAR
29724 @ 249990:                  PUSH   CODE
29725 @ 249993:                  ASSPAR
29726 @ 249994:                  PUSH   SFLABEL
29727 @ 249997:                  ASSPAR
29728 @ 249998:                  PUSH   CYCLE
29729 @ 250001:                  PUSH   LEVEL
29730 @ 250004:                  ACCESS
29731 @ 250005:                  ASSPAR
29732 @ 250006:                  CALL  

  4836           %END
29733 @ 250007:                  LINE   4836 "regression-compile-tmp/imp918s.imp"
29734 @ 250045:               END    _lev0id0_CSS_CSTART {lev=3 --> 2}

  4837           %ROUTINE     TEXTOUT(%INTEGER REG)
  4838           {%SHORTROUTINE}
  4839  !***********************************************************************
  4840  !*      PLANT A JUMP ROUND THE TEXT WHICH IS PUT IN THE CODE.          *
  4841  !*       REG IS LEFT POINTING AT THE TEXT.                             *
  4842  !*        REG=0 IS SPECIAL CASE PRINTTEXT                              *
  4843  !***********************************************************************
29735 @ 250046:               LINE   4837 "regression-compile-tmp/imp918s.imp"
29736 @ 250084:               DEF    TEXTOUT (_lev0id0_CSS_TEXTOUT) p1=V_01b7 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
29737 @ 250103:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
29738 @ 250104:                     DEF    REG p1=V_0203 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
29739 @ 250119:                  FINISH ) {lev=3}

  4844           %INTEGER KK,Q,L
29740 @ 250120:                  LINE   4844 "regression-compile-tmp/imp918s.imp"
29741 @ 250158:                  DEF    KK p1=V_0204 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
29742 @ 250172:                  DEF    Q p1=V_0205 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
29743 @ 250185:                  DEF    L p1=V_0206 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

  4845           L=A(P);                       ! NO OF CHARS IN TEXT
29744 @ 250198:                  LINE   4845 "regression-compile-tmp/imp918s.imp"
29745 @ 250236:                  PUSH   L
29746 @ 250239:                  PUSH   A
29747 @ 250242:                  PUSH   P
29748 @ 250245:                  ACCESS
29749 @ 250246:                  ASSVAL

  4846           %IF REG=0 %THEN PPJ(30) %ELSE %START
29750 @ 250247:                  LINE   4846 "regression-compile-tmp/imp918s.imp"
29751 @ 250285:                  PUSH   REG
29752 @ 250288:                  PUSHI  #0x00000000
29753 @ 250293:                  JUMPIF # L_0004
29754 @ 250297:                  PUSH   PPJ
29755 @ 250300:                  PUSHI  #0x0000001e
29756 @ 250305:                  ASSPAR
29757 @ 250306:                  CALL  
29758 @ 250307:                  GOTO   L_0003
29759 @ 250310:                  LOCATE L_0004

  4847              SET LOCAL BASE
29760 @ 250313:                  LINE   4847 "regression-compile-tmp/imp918s.imp"
29761 @ 250351:                  PUSH   SETLOCALBASE
29762 @ 250354:                  CALL  

  4848              KK=(CA+6+L-LOCAL ADDR)&(-2)
29763 @ 250355:                  LINE   4848 "regression-compile-tmp/imp918s.imp"
29764 @ 250393:                  PUSH   KK
29765 @ 250396:                  PUSH   CA
29766 @ 250399:                  PUSHI  #0x00000006
29767 @ 250404:                  ADD   
29768 @ 250405:                  PUSH   L
29769 @ 250408:                  ADD   
29770 @ 250409:                  PUSH   LOCALADDR
29771 @ 250412:                  SUB   
29772 @ 250413:                  PUSHI  #0x00000002
29773 @ 250418:                  NEGATE
29774 @ 250419:                  AND   
29775 @ 250420:                  ASSVAL

  4849              PRX(X'45',REG,LOCAL BASE,0,KK);! BAL ROUND TEXT
29776 @ 250421:                  LINE   4849 "regression-compile-tmp/imp918s.imp"
29777 @ 250459:                  PUSH   PRX
29778 @ 250462:                  PUSHI  #0x00000045
29779 @ 250467:                  ASSPAR
29780 @ 250468:                  PUSH   REG
29781 @ 250471:                  ASSPAR
29782 @ 250472:                  PUSH   LOCALBASE
29783 @ 250475:                  ASSPAR
29784 @ 250476:                  PUSHI  #0x00000000
29785 @ 250481:                  ASSPAR
29786 @ 250482:                  PUSH   KK
29787 @ 250485:                  ASSPAR
29788 @ 250486:                  CALL  

  4850              FORGET(REG)
29789 @ 250487:                  LINE   4850 "regression-compile-tmp/imp918s.imp"
29790 @ 250525:                  PUSH   FORGET
29791 @ 250528:                  PUSH   REG
29792 @ 250531:                  ASSPAR
29793 @ 250532:                  CALL  

  4851           %FINISH
29794 @ 250533:                  LINE   4851 "regression-compile-tmp/imp918s.imp"
29795 @ 250571:                  LOCATE L_0003

  4852           Q=ADDR(A(P))+1;                ! ADDR OF LENGTH BYTE
29796 @ 250574:                  LINE   4852 "regression-compile-tmp/imp918s.imp"
29797 @ 250612:                  PUSH   Q
29798 @ 250615:                  PUSH   ADDR
29799 @ 250618:                  PUSH   A
29800 @ 250621:                  PUSH   P
29801 @ 250624:                  ACCESS
29802 @ 250625:                  ASSPAR
29803 @ 250626:                  CALL  
29804 @ 250627:                  PUSHI  #0x00000001
29805 @ 250632:                  ADD   
29806 @ 250633:                  ASSVAL

  4853           P=P+(L+3)>>1;                 ! P ON ROUND TEXT
29807 @ 250634:                  LINE   4853 "regression-compile-tmp/imp918s.imp"
29808 @ 250672:                  PUSH   P
29809 @ 250675:                  PUSH   P
29810 @ 250678:                  PUSH   L
29811 @ 250681:                  PUSHI  #0x00000003
29812 @ 250686:                  ADD   
29813 @ 250687:                  PUSHI  #0x00000001
29814 @ 250692:                  RSH   
29815 @ 250693:                  ADD   
29816 @ 250694:                  ASSVAL

  4854           %CYCLE KK=Q,2,Q+L>>1<<1
29817 @ 250695:                  LINE   4854 "regression-compile-tmp/imp918s.imp"
29818 @ 250733:                  PUSH   KK
29819 @ 250736:                  PUSHI  #0x00000002
29820 @ 250741:                  PUSH   Q
29821 @ 250744:                  PUSH   L
29822 @ 250747:                  PUSHI  #0x00000001
29823 @ 250752:                  RSH   
29824 @ 250753:                  PUSHI  #0x00000001
29825 @ 250758:                  LSH   
29826 @ 250759:                  ADD   
29827 @ 250760:                  PUSH   Q
29828 @ 250763:                  FOR    L_0003

  4855              BYTE INTEGER(ADDR(J)+2)=BYTE INTEGER (KK)
29829 @ 250766:                  LINE   4855 "regression-compile-tmp/imp918s.imp"
29830 @ 250804:                  PUSH   BYTEINTEGER
29831 @ 250807:                  PUSH   ADDR
29832 @ 250810:                  PUSH   J
29833 @ 250813:                  ASSPAR
29834 @ 250814:                  CALL  
29835 @ 250815:                  PUSHI  #0x00000002
29836 @ 250820:                  ADD   
29837 @ 250821:                  ASSPAR
29838 @ 250822:                  CALL  
29839 @ 250823:                  PUSH   BYTEINTEGER
29840 @ 250826:                  PUSH   KK
29841 @ 250829:                  ASSPAR
29842 @ 250830:                  CALL  
29843 @ 250831:                  ASSVAL

  4856              BYTE INTEGER(ADDR(J)+3)=BYTE INTEGER (KK+1)
29844 @ 250832:                  LINE   4856 "regression-compile-tmp/imp918s.imp"
29845 @ 250870:                  PUSH   BYTEINTEGER
29846 @ 250873:                  PUSH   ADDR
29847 @ 250876:                  PUSH   J
29848 @ 250879:                  ASSPAR
29849 @ 250880:                  CALL  
29850 @ 250881:                  PUSHI  #0x00000003
29851 @ 250886:                  ADD   
29852 @ 250887:                  ASSPAR
29853 @ 250888:                  CALL  
29854 @ 250889:                  PUSH   BYTEINTEGER
29855 @ 250892:                  PUSH   KK
29856 @ 250895:                  PUSHI  #0x00000001
29857 @ 250900:                  ADD   
29858 @ 250901:                  ASSPAR
29859 @ 250902:                  CALL  
29860 @ 250903:                  ASSVAL

  4857              PLANT(J)
29861 @ 250904:                  LINE   4857 "regression-compile-tmp/imp918s.imp"
29862 @ 250942:                  PUSH   PLANT
29863 @ 250945:                  PUSH   J
29864 @ 250948:                  ASSPAR
29865 @ 250949:                  CALL  

  4858           %REPEAT
29866 @ 250950:                  LINE   4858 "regression-compile-tmp/imp918s.imp"
29867 @ 250988:                  REPEAT L_0003
29868 @ 250991:                  LOCATE L_0004

  4859           %IF SBFLAG#0 %AND CA-CODEBASE>4096 %THEN FAULT(99,0)
29869 @ 250994:                  LINE   4859 "regression-compile-tmp/imp918s.imp"
29870 @ 251032:                  PUSH   SBFLAG
29871 @ 251035:                  PUSHI  #0x00000000
29872 @ 251040:                  JUMPIF = L_0004
29873 @ 251044:                  PUSH   CA
29874 @ 251047:                  PUSH   CODEBASE
29875 @ 251050:                  SUB   
29876 @ 251051:                  PUSHI  #0x00001000
29877 @ 251056:                  JUMPIF <= L_0004
29878 @ 251060:                  PUSH   FAULT
29879 @ 251063:                  PUSHI  #0x00000063
29880 @ 251068:                  ASSPAR
29881 @ 251069:                  PUSHI  #0x00000000
29882 @ 251074:                  ASSPAR
29883 @ 251075:                  CALL  
29884 @ 251076:                  LOCATE L_0004

  4860           %IF REG=0 %AND SBFLAG=0 %AND CA-CODEBASE>4095-MARGIN %C
  4861                    %THEN SET USE(15,12,CA)
29885 @ 251079:                  LINE   4860 "regression-compile-tmp/imp918s.imp"
29886 @ 251117:                  PUSH   REG
29887 @ 251120:                  PUSHI  #0x00000000
29888 @ 251125:                  JUMPIF # L_0004
29889 @ 251129:                  PUSH   SBFLAG
29890 @ 251132:                  PUSHI  #0x00000000
29891 @ 251137:                  JUMPIF # L_0004
29892 @ 251141:                  PUSH   CA
29893 @ 251144:                  PUSH   CODEBASE
29894 @ 251147:                  SUB   
29895 @ 251148:                  PUSHI  #0x00000fff
29896 @ 251153:                  PUSH   MARGIN
29897 @ 251156:                  SUB   
29898 @ 251157:                  JUMPIF <= L_0004
29899 @ 251161:                  PUSH   SETUSE
29900 @ 251164:                  PUSHI  #0x0000000f
29901 @ 251169:                  ASSPAR
29902 @ 251170:                  PUSHI  #0x0000000c
29903 @ 251175:                  ASSPAR
29904 @ 251176:                  PUSH   CA
29905 @ 251179:                  ASSPAR
29906 @ 251180:                  CALL  
29907 @ 251181:                  LOCATE L_0004

  4862           %END
  4863  
29908 @ 251184:                  LINE   4862 "regression-compile-tmp/imp918s.imp"
29909 @ 251222:               END    _lev0id0_CSS_TEXTOUT {lev=3 --> 2}

  4864           %ROUTINE     CSEXP(%INTEGER REG,MODE)
  4865           {%SHORTROUTINE}
  4866  !***********************************************************************
  4867  !*       COMPILE A SIGNED EXPRESSION TO REGISTER 'REG' IN MODE 'MODE'  *
  4868  !*       MODE=1 FOR %INTEGER, =2 REAL, =3 LONG,=0 INTEGER %IF POSSIBLE *
  4869  !*       MODE=5 FOR ADDRESS EXPRESSNS(IE LEAVE ANY CONSTANT IN 'ADISP')*
  4870  !***********************************************************************
29910 @ 251223:               LINE   4864 "regression-compile-tmp/imp918s.imp"
29911 @ 251261:               DEF    CSEXP (_lev0id0_CSS_CSEXP) p1=V_0172 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
29912 @ 251278:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
29913 @ 251279:                     DEF    REG p1=V_0203 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
29914 @ 251294:                     DEF    MODE p1=V_0204 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
29915 @ 251310:                  FINISH ) {lev=3}

  4871           %SHORTINTEGER EXPHEAD,NOPS,EXPBOT
29916 @ 251311:                  LINE   4871 "regression-compile-tmp/imp918s.imp"
29917 @ 251349:                  DEF    EXPHEAD p1=V_0205 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
29918 @ 251368:                  DEF    NOPS p1=V_0206 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
29919 @ 251384:                  DEF    EXPBOT p1=V_0207 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0

  4872           %BYTEINTEGER ADDREXP
29920 @ 251402:                  LINE   4872 "regression-compile-tmp/imp918s.imp"
29921 @ 251440:                  DEF    ADDREXP p1=V_0208 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0

  4873           %INTEGER PP,BDISP,PPP
29922 @ 251459:                  LINE   4873 "regression-compile-tmp/imp918s.imp"
29923 @ 251497:                  DEF    PP p1=V_0209 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
29924 @ 251511:                  DEF    BDISP p1=V_020a 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
29925 @ 251528:                  DEF    PPP p1=V_020b 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

  4874           EXPHEAD=0; ADDREXP=0
29926 @ 251543:                  LINE   4874 "regression-compile-tmp/imp918s.imp"
29927 @ 251581:                  PUSH   EXPHEAD
29928 @ 251584:                  PUSHI  #0x00000000
29929 @ 251589:                  ASSVAL
29930 @ 251590:                  LINE   4874 "regression-compile-tmp/imp918s.imp"
29931 @ 251628:                  PUSH   ADDREXP
29932 @ 251631:                  PUSHI  #0x00000000
29933 @ 251636:                  ASSVAL

  4875           NOPS=0; EXPBOT=0
29934 @ 251637:                  LINE   4875 "regression-compile-tmp/imp918s.imp"
29935 @ 251675:                  PUSH   NOPS
29936 @ 251678:                  PUSHI  #0x00000000
29937 @ 251683:                  ASSVAL
29938 @ 251684:                  LINE   4875 "regression-compile-tmp/imp918s.imp"
29939 @ 251722:                  PUSH   EXPBOT
29940 @ 251725:                  PUSHI  #0x00000000
29941 @ 251730:                  ASSVAL

  4876           ADDREXP=MODE>>2&1
29942 @ 251731:                  LINE   4876 "regression-compile-tmp/imp918s.imp"
29943 @ 251769:                  PUSH   ADDREXP
29944 @ 251772:                  PUSH   MODE
29945 @ 251775:                  PUSHI  #0x00000002
29946 @ 251780:                  RSH   
29947 @ 251781:                  PUSHI  #0x00000001
29948 @ 251786:                  AND   
29949 @ 251787:                  ASSVAL

  4877           P=P+2
29950 @ 251788:                  LINE   4877 "regression-compile-tmp/imp918s.imp"
29951 @ 251826:                  PUSH   P
29952 @ 251829:                  PUSH   P
29953 @ 251832:                  PUSHI  #0x00000002
29954 @ 251837:                  ADD   
29955 @ 251838:                  ASSVAL

  4878           TORP(EXPHEAD,EXPBOT,NOPS,MODE)
29956 @ 251839:                  LINE   4878 "regression-compile-tmp/imp918s.imp"
29957 @ 251877:                  PUSH   TORP
29958 @ 251880:                  PUSH   EXPHEAD
29959 @ 251883:                  ASSPAR
29960 @ 251884:                  PUSH   EXPBOT
29961 @ 251887:                  ASSPAR
29962 @ 251888:                  PUSH   NOPS
29963 @ 251891:                  ASSPAR
29964 @ 251892:                  PUSH   MODE
29965 @ 251895:                  ASSPAR
29966 @ 251896:                  CALL  

  4879           %IF EXPHEAD=0 %THEN NEST=0 %AND %RETURN;! EXPR  CONSTANT ONLY
  4880  !
  4881  ! MODE=13 IS A SPECIAL FOR THE BUILT IN MAPS. TO ALLOW INTEGER (ADDR(J)) 
  4882  ! TO BE COMPILE AS QUICKLY AS POSSIBLE IT LOOKS FOR 'ADDR'
  4883  ! AND USES CNAME TO OBTAIN 'BASE' & 'DISP' OF THE NAME AND RETURNS THESE
  4884  ! AS THE RESULT OMITTING THE 'LA' THAT ADDR USES INVOKES
  4885  !
29967 @ 251897:                  LINE   4879 "regression-compile-tmp/imp918s.imp"
29968 @ 251935:                  PUSH   EXPHEAD
29969 @ 251938:                  PUSHI  #0x00000000
29970 @ 251943:                  JUMPIF # L_0004
29971 @ 251947:                  PUSH   NEST
29972 @ 251950:                  PUSHI  #0x00000000
29973 @ 251955:                  ASSVAL
29974 @ 251956:                  RETURN
29975 @ 251957:                  LOCATE L_0004

  4886           %IF MODE=13 %AND NOPS=0 %AND CHECKSP=0 %THEN %START
29976 @ 251960:                  LINE   4886 "regression-compile-tmp/imp918s.imp"
29977 @ 251998:                  PUSH   MODE
29978 @ 252001:                  PUSHI  #0x0000000d
29979 @ 252006:                  JUMPIF # L_0004
29980 @ 252010:                  PUSH   NOPS
29981 @ 252013:                  PUSHI  #0x00000000
29982 @ 252018:                  JUMPIF # L_0004
29983 @ 252022:                  PUSH   CHECKSP
29984 @ 252025:                  PUSHI  #0x00000000
29985 @ 252030:                  JUMPIF # L_0004

  4887              FROM12(EXPHEAD,PP,BDISP)
29986 @ 252034:                  LINE   4887 "regression-compile-tmp/imp918s.imp"
29987 @ 252072:                  PUSH   FROM12
29988 @ 252075:                  PUSH   EXPHEAD
29989 @ 252078:                  ASSPAR
29990 @ 252079:                  PUSH   PP
29991 @ 252082:                  ASSPAR
29992 @ 252083:                  PUSH   BDISP
29993 @ 252086:                  ASSPAR
29994 @ 252087:                  CALL  

  4888              %IF PP&255=2 %THEN %START;  ! ONLY OPERAND IS A NAME
29995 @ 252088:                  LINE   4888 "regression-compile-tmp/imp918s.imp"
29996 @ 252126:                  PUSH   PP
29997 @ 252129:                  PUSHI  #0x000000ff
29998 @ 252134:                  AND   
29999 @ 252135:                  PUSHI  #0x00000002
30000 @ 252140:                  JUMPIF # L_0007

  4889                 COPY TAG (A(BDISP))
  4890  !
  4891  ! CHECK THE NAME TO SEE IF IT IS OF THE FORM 'ADDR(<NAME><APP>)'
  4892  !
30001 @ 252144:                  LINE   4889 "regression-compile-tmp/imp918s.imp"
30002 @ 252182:                  PUSH   COPYTAG
30003 @ 252185:                  PUSH   A
30004 @ 252188:                  PUSH   BDISP
30005 @ 252191:                  ACCESS
30006 @ 252192:                  ASSPAR
30007 @ 252193:                  CALL  

  4893                 %IF PTYPE=SNPT %AND K=14 %AND A(BDISP+1)=1 %AND %C
  4894                    A(BDISP+4)=4 %AND A(BDISP+5)=1 %THEN %START
30008 @ 252194:                  LINE   4893 "regression-compile-tmp/imp918s.imp"
30009 @ 252232:                  PUSH   PTYPE
30010 @ 252235:                  PUSHI  #0x00002716
30011 @ 252240:                  JUMPIF # L_000a
30012 @ 252244:                  PUSH   K
30013 @ 252247:                  PUSHI  #0x0000000e
30014 @ 252252:                  JUMPIF # L_000a
30015 @ 252256:                  PUSH   A
30016 @ 252259:                  PUSH   BDISP
30017 @ 252262:                  PUSHI  #0x00000001
30018 @ 252267:                  ADD   
30019 @ 252268:                  ACCESS
30020 @ 252269:                  PUSHI  #0x00000001
30021 @ 252274:                  JUMPIF # L_000a
30022 @ 252278:                  PUSH   A
30023 @ 252281:                  PUSH   BDISP
30024 @ 252284:                  PUSHI  #0x00000004
30025 @ 252289:                  ADD   
30026 @ 252290:                  ACCESS
30027 @ 252291:                  PUSHI  #0x00000004
30028 @ 252296:                  JUMPIF # L_000a
30029 @ 252300:                  PUSH   A
30030 @ 252303:                  PUSH   BDISP
30031 @ 252306:                  PUSHI  #0x00000005
30032 @ 252311:                  ADD   
30033 @ 252312:                  ACCESS
30034 @ 252313:                  PUSHI  #0x00000001
30035 @ 252318:                  JUMPIF # L_000a

  4895                    PP=P; P=BDISP+6
30036 @ 252322:                  LINE   4895 "regression-compile-tmp/imp918s.imp"
30037 @ 252360:                  PUSH   PP
30038 @ 252363:                  PUSH   P
30039 @ 252366:                  ASSVAL
30040 @ 252367:                  LINE   4895 "regression-compile-tmp/imp918s.imp"
30041 @ 252405:                  PUSH   P
30042 @ 252408:                  PUSH   BDISP
30043 @ 252411:                  PUSHI  #0x00000006
30044 @ 252416:                  ADD   
30045 @ 252417:                  ASSVAL

  4896                    BDISP=ADISP; PPP=P
30046 @ 252418:                  LINE   4896 "regression-compile-tmp/imp918s.imp"
30047 @ 252456:                  PUSH   BDISP
30048 @ 252459:                  PUSH   ADISP
30049 @ 252462:                  ASSVAL
30050 @ 252463:                  LINE   4896 "regression-compile-tmp/imp918s.imp"
30051 @ 252501:                  PUSH   PPP
30052 @ 252504:                  PUSH   P
30053 @ 252507:                  ASSVAL

  4897                    CNAME(1,99);     ! SPECIAL SET 'BASE'&'DISP'
30054 @ 252508:                  LINE   4897 "regression-compile-tmp/imp918s.imp"
30055 @ 252546:                  PUSH   CNAME
30056 @ 252549:                  PUSHI  #0x00000001
30057 @ 252554:                  ASSPAR
30058 @ 252555:                  PUSHI  #0x00000063
30059 @ 252560:                  ASSPAR
30060 @ 252561:                  CALL  

  4898                    FAULT(22,0) %UNLESS A(P)=2
30061 @ 252562:                  LINE   4898 "regression-compile-tmp/imp918s.imp"
30062 @ 252600:                  PUSH   A
30063 @ 252603:                  PUSH   P
30064 @ 252606:                  ACCESS
30065 @ 252607:                  PUSHI  #0x00000002
30066 @ 252612:                  JUMPIF = L_000d
30067 @ 252616:                  PUSH   FAULT
30068 @ 252619:                  PUSHI  #0x00000016
30069 @ 252624:                  ASSPAR
30070 @ 252625:                  PUSHI  #0x00000000
30071 @ 252630:                  ASSPAR
30072 @ 252631:                  CALL  
30073 @ 252632:                  LOCATE L_000d

  4899                    %IF BIMSTR#0 %THEN NOTE ASSMENT(-1,2,A(PPP))
30074 @ 252635:                  LINE   4899 "regression-compile-tmp/imp918s.imp"
30075 @ 252673:                  PUSH   BIMSTR
30076 @ 252676:                  PUSHI  #0x00000000
30077 @ 252681:                  JUMPIF = L_000d
30078 @ 252685:                  PUSH   NOTEASSMENT
30079 @ 252688:                  PUSHI  #0x00000001
30080 @ 252693:                  NEGATE
30081 @ 252694:                  ASSPAR
30082 @ 252695:                  PUSHI  #0x00000002
30083 @ 252700:                  ASSPAR
30084 @ 252701:                  PUSH   A
30085 @ 252704:                  PUSH   PPP
30086 @ 252707:                  ACCESS
30087 @ 252708:                  ASSPAR
30088 @ 252709:                  CALL  
30089 @ 252710:                  LOCATE L_000d

  4900                    P=PP; DISP=DISP+BDISP
30090 @ 252713:                  LINE   4900 "regression-compile-tmp/imp918s.imp"
30091 @ 252751:                  PUSH   P
30092 @ 252754:                  PUSH   PP
30093 @ 252757:                  ASSVAL
30094 @ 252758:                  LINE   4900 "regression-compile-tmp/imp918s.imp"
30095 @ 252796:                  PUSH   DISP
30096 @ 252799:                  PUSH   DISP
30097 @ 252802:                  PUSH   BDISP
30098 @ 252805:                  ADD   
30099 @ 252806:                  ASSVAL

  4901                    CLEAR LIST(EXPHEAD)
30100 @ 252807:                  LINE   4901 "regression-compile-tmp/imp918s.imp"
30101 @ 252845:                  PUSH   CLEARLIST
30102 @ 252848:                  PUSH   EXPHEAD
30103 @ 252851:                  ASSPAR
30104 @ 252852:                  CALL  

  4902                    ADISP=0; NEST=-1
30105 @ 252853:                  LINE   4902 "regression-compile-tmp/imp918s.imp"
30106 @ 252891:                  PUSH   ADISP
30107 @ 252894:                  PUSHI  #0x00000000
30108 @ 252899:                  ASSVAL
30109 @ 252900:                  LINE   4902 "regression-compile-tmp/imp918s.imp"
30110 @ 252938:                  PUSH   NEST
30111 @ 252941:                  PUSHI  #0x00000001
30112 @ 252946:                  NEGATE
30113 @ 252947:                  ASSVAL

  4903                    %RETURN
30114 @ 252948:                  LINE   4903 "regression-compile-tmp/imp918s.imp"
30115 @ 252986:                  RETURN

  4904                 %FINISH
30116 @ 252987:                  LINE   4904 "regression-compile-tmp/imp918s.imp"
30117 @ 253025:                  LOCATE L_000a

  4905              %FINISH
30118 @ 253028:                  LINE   4905 "regression-compile-tmp/imp918s.imp"
30119 @ 253066:                  LOCATE L_0007

  4906           %FINISH
  4907  !
30120 @ 253069:                  LINE   4906 "regression-compile-tmp/imp918s.imp"
30121 @ 253107:                  LOCATE L_0004

  4908           BDISP=ADISP
30122 @ 253110:                  LINE   4908 "regression-compile-tmp/imp918s.imp"
30123 @ 253148:                  PUSH   BDISP
30124 @ 253151:                  PUSH   ADISP
30125 @ 253154:                  ASSVAL

  4909           PP=P
30126 @ 253155:                  LINE   4909 "regression-compile-tmp/imp918s.imp"
30127 @ 253193:                  PUSH   PP
30128 @ 253196:                  PUSH   P
30129 @ 253199:                  ASSVAL

  4910           EXPOP(EXPHEAD,REG,NOPS,MODE&7)
30130 @ 253200:                  LINE   4910 "regression-compile-tmp/imp918s.imp"
30131 @ 253238:                  PUSH   EXPOP
30132 @ 253241:                  PUSH   EXPHEAD
30133 @ 253244:                  ASSPAR
30134 @ 253245:                  PUSH   REG
30135 @ 253248:                  ASSPAR
30136 @ 253249:                  PUSH   NOPS
30137 @ 253252:                  ASSPAR
30138 @ 253253:                  PUSH   MODE
30139 @ 253256:                  PUSHI  #0x00000007
30140 @ 253261:                  AND   
30141 @ 253262:                  ASSPAR
30142 @ 253263:                  CALL  

  4911           P=PP
30143 @ 253264:                  LINE   4911 "regression-compile-tmp/imp918s.imp"
30144 @ 253302:                  PUSH   P
30145 @ 253305:                  PUSH   PP
30146 @ 253308:                  ASSVAL

  4912           ADISP=BDISP
  4913  !         CLEARLIST(EXPHEAD)
30147 @ 253309:                  LINE   4912 "regression-compile-tmp/imp918s.imp"
30148 @ 253347:                  PUSH   ADISP
30149 @ 253350:                  PUSH   BDISP
30150 @ 253353:                  ASSVAL

  4914           SHORTINTEGER(ADDR(ASLIST(EXPBOT))+14)=ASL
30151 @ 253354:                  LINE   4914 "regression-compile-tmp/imp918s.imp"
30152 @ 253392:                  PUSH   SHORTINTEGER
30153 @ 253395:                  PUSH   ADDR
30154 @ 253398:                  PUSH   ASLIST
30155 @ 253401:                  PUSH   EXPBOT
30156 @ 253404:                  ACCESS
30157 @ 253405:                  ASSPAR
30158 @ 253406:                  CALL  
30159 @ 253407:                  PUSHI  #0x0000000e
30160 @ 253412:                  ADD   
30161 @ 253413:                  ASSPAR
30162 @ 253414:                  CALL  
30163 @ 253415:                  PUSH   ASL
30164 @ 253418:                  ASSVAL

  4915           ASL=EXPHEAD
30165 @ 253419:                  LINE   4915 "regression-compile-tmp/imp918s.imp"
30166 @ 253457:                  PUSH   ASL
30167 @ 253460:                  PUSH   EXPHEAD
30168 @ 253463:                  ASSVAL

  4916           %END
30169 @ 253464:                  LINE   4916 "regression-compile-tmp/imp918s.imp"
30170 @ 253502:               END    _lev0id0_CSS_CSEXP {lev=3 --> 2}

  4917           %ROUTINE DSEXP(%INTEGER REG,MODE)
  4918           {%SHORTROUTINE}
  4919           %COMMENT COMPILES TWO INTEGER EXPRESSIONS TO REG & REG+1
  4920           %COMMENT REGISTERS LEFT CLAIMED
30171 @ 253503:               LINE   4917 "regression-compile-tmp/imp918s.imp"
30172 @ 253541:               DEF    DSEXP (_lev0id0_CSS_DSEXP) p1=V_0173 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
30173 @ 253558:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
30174 @ 253559:                     DEF    REG p1=V_0203 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
30175 @ 253574:                     DEF    MODE p1=V_0204 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
30176 @ 253590:                  FINISH ) {lev=3}

  4921           %SHORTINTEGER SRD
30177 @ 253591:                  LINE   4921 "regression-compile-tmp/imp918s.imp"
30178 @ 253629:                  DEF    SRD p1=V_0205 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0

  4922           SRD=0
30179 @ 253644:                  LINE   4922 "regression-compile-tmp/imp918s.imp"
30180 @ 253682:                  PUSH   SRD
30181 @ 253685:                  PUSHI  #0x00000000
30182 @ 253690:                  ASSVAL

  4923           CSEXP(REG,1)
30183 @ 253691:                  LINE   4923 "regression-compile-tmp/imp918s.imp"
30184 @ 253729:                  PUSH   CSEXP
30185 @ 253732:                  PUSH   REG
30186 @ 253735:                  ASSPAR
30187 @ 253736:                  PUSHI  #0x00000001
30188 @ 253741:                  ASSPAR
30189 @ 253742:                  CALL  

  4924           REGISTER(REG)=1
30190 @ 253743:                  LINE   4924 "regression-compile-tmp/imp918s.imp"
30191 @ 253781:                  PUSH   REGISTER
30192 @ 253784:                  PUSH   REG
30193 @ 253787:                  ACCESS
30194 @ 253788:                  PUSHI  #0x00000001
30195 @ 253793:                  ASSVAL

  4925           PUSH(SRD,1<<16!9!REG<<8,-2)
30196 @ 253794:                  LINE   4925 "regression-compile-tmp/imp918s.imp"
30197 @ 253832:                  PUSH   PUSH
30198 @ 253835:                  PUSH   SRD
30199 @ 253838:                  ASSPAR
30200 @ 253839:                  PUSHI  #0x00000001
30201 @ 253844:                  PUSHI  #0x00000010
30202 @ 253849:                  LSH   
30203 @ 253850:                  PUSHI  #0x00000009
30204 @ 253855:                  OR    
30205 @ 253856:                  PUSH   REG
30206 @ 253859:                  PUSHI  #0x00000008
30207 @ 253864:                  LSH   
30208 @ 253865:                  OR    
30209 @ 253866:                  ASSPAR
30210 @ 253867:                  PUSHI  #0x00000002
30211 @ 253872:                  NEGATE
30212 @ 253873:                  ASSPAR
30213 @ 253874:                  CALL  

  4926           SET USE(REG,1,ADDR(ASLIST(SRD)))
30214 @ 253875:                  LINE   4926 "regression-compile-tmp/imp918s.imp"
30215 @ 253913:                  PUSH   SETUSE
30216 @ 253916:                  PUSH   REG
30217 @ 253919:                  ASSPAR
30218 @ 253920:                  PUSHI  #0x00000001
30219 @ 253925:                  ASSPAR
30220 @ 253926:                  PUSH   ADDR
30221 @ 253929:                  PUSH   ASLIST
30222 @ 253932:                  PUSH   SRD
30223 @ 253935:                  ACCESS
30224 @ 253936:                  ASSPAR
30225 @ 253937:                  CALL  
30226 @ 253938:                  ASSPAR
30227 @ 253939:                  CALL  

  4927           P=P+MODE
30228 @ 253940:                  LINE   4927 "regression-compile-tmp/imp918s.imp"
30229 @ 253978:                  PUSH   P
30230 @ 253981:                  PUSH   P
30231 @ 253984:                  PUSH   MODE
30232 @ 253987:                  ADD   
30233 @ 253988:                  ASSVAL

  4928           CSEXP(REG+1,1)
30234 @ 253989:                  LINE   4928 "regression-compile-tmp/imp918s.imp"
30235 @ 254027:                  PUSH   CSEXP
30236 @ 254030:                  PUSH   REG
30237 @ 254033:                  PUSHI  #0x00000001
30238 @ 254038:                  ADD   
30239 @ 254039:                  ASSPAR
30240 @ 254040:                  PUSHI  #0x00000001
30241 @ 254045:                  ASSPAR
30242 @ 254046:                  CALL  

  4929           REGISTER(REG+1)=1
30243 @ 254047:                  LINE   4929 "regression-compile-tmp/imp918s.imp"
30244 @ 254085:                  PUSH   REGISTER
30245 @ 254088:                  PUSH   REG
30246 @ 254091:                  PUSHI  #0x00000001
30247 @ 254096:                  ADD   
30248 @ 254097:                  ACCESS
30249 @ 254098:                  PUSHI  #0x00000001
30250 @ 254103:                  ASSVAL

  4930           EXPOP(SRD,REG,0,100)
30251 @ 254104:                  LINE   4930 "regression-compile-tmp/imp918s.imp"
30252 @ 254142:                  PUSH   EXPOP
30253 @ 254145:                  PUSH   SRD
30254 @ 254148:                  ASSPAR
30255 @ 254149:                  PUSH   REG
30256 @ 254152:                  ASSPAR
30257 @ 254153:                  PUSHI  #0x00000000
30258 @ 254158:                  ASSPAR
30259 @ 254159:                  PUSHI  #0x00000064
30260 @ 254164:                  ASSPAR
30261 @ 254165:                  CALL  

  4931           REGISTER(REG)=1
30262 @ 254166:                  LINE   4931 "regression-compile-tmp/imp918s.imp"
30263 @ 254204:                  PUSH   REGISTER
30264 @ 254207:                  PUSH   REG
30265 @ 254210:                  ACCESS
30266 @ 254211:                  PUSHI  #0x00000001
30267 @ 254216:                  ASSVAL

  4932           GRINF(REG)=0
30268 @ 254217:                  LINE   4932 "regression-compile-tmp/imp918s.imp"
30269 @ 254255:                  PUSH   GRINF
30270 @ 254258:                  PUSH   REG
30271 @ 254261:                  ACCESS
30272 @ 254262:                  PUSHI  #0x00000000
30273 @ 254267:                  ASSVAL

  4933           CLEAR LIST(SRD)
30274 @ 254268:                  LINE   4933 "regression-compile-tmp/imp918s.imp"
30275 @ 254306:                  PUSH   CLEARLIST
30276 @ 254309:                  PUSH   SRD
30277 @ 254312:                  ASSPAR
30278 @ 254313:                  CALL  

  4934           %END
30279 @ 254314:                  LINE   4934 "regression-compile-tmp/imp918s.imp"
30280 @ 254352:               END    _lev0id0_CSS_DSEXP {lev=3 --> 2}

  4935           %ROUTINE TORP(%SHORTINTEGERNAME HEAD,BOT,NOPS,%INTEGER MODE)
  4936  !***********************************************************************
  4937  !*       CONVERT THE SIGNED EXPRESSION INDEXED BY P INTO REVERSE       *
  4938  !*      POLISH NOTATION. THE REVERSE POLISH LIST IS ADDED TO 'HEAD'    *
  4939  !*      WHICH MAY CONTAIN ANOTHER EXPRESSION. THE NUMBER OF OPERATORS  *
  4940  !*      IS ADDED TO NOPS. MODE SIGNIFIES :-                            *
  4941  !*      MODE=1   INTEGER EXPRESSION                                    *
  4942  !*      MODE=2   SHORTREAL EXPRESSION                                  *
  4943  !*      MODE=3   LONGREAL EXPRESSION                                   *
  4944  !*      MODE=0   INTEGER IF POSIIBLE OTHERWISE REAL                    *
  4945  !*      N.B. AN INTEGER EXPRESSION IS A SPECIAL CASE OF A REAL EXPRSN  *
  4946  !***********************************************************************
  4947           {%SHORTROUTINE}
30281 @ 254353:               LINE   4935 "regression-compile-tmp/imp918s.imp"
30282 @ 254391:               DEF    TORP (_lev0id0_CSS_TORP) p1=V_0170 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
30283 @ 254407:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
30284 @ 254408:                     DEF    HEAD p1=V_0203 a/tf=12 b/format=3 c/ostate=0  type=1 (integer) form=2 (name) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
30285 @ 254424:                     DEF    BOT p1=V_0204 a/tf=12 b/format=3 c/ostate=0  type=1 (integer) form=2 (name) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
30286 @ 254439:                     DEF    NOPS p1=V_0205 a/tf=12 b/format=3 c/ostate=0  type=1 (integer) form=2 (name) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
30287 @ 254455:                     DEF    MODE p1=V_0206 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
30288 @ 254471:                  FINISH ) {lev=3}

  4948           %SWITCH OPERAND(1:4)
30289 @ 254472:                  LINE   4948 "regression-compile-tmp/imp918s.imp"
30290 @ 254510:                  PUSHI  #0x00000001
30291 @ 254515:                  PUSHI  #0x00000004
30292 @ 254520:                  BOUNDS
30293 @ 254521:                  DEF    OPERAND p1=V_0207 a/tf=6 b/format=0 c/ostate=0  type=0 (<type:0>) form=6 (switch) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  4949           %SHORTINTEGER ORHEAD,RPHEAD,PASSHEAD,SAVEHEAD,OPBOT, %C
  4950              RPBOT,PASSBOT,SAVEBOT
30294 @ 254540:                  LINE   4949 "regression-compile-tmp/imp918s.imp"
30295 @ 254578:                  DEF    ORHEAD p1=V_0208 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
30296 @ 254596:                  DEF    RPHEAD p1=V_0209 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
30297 @ 254614:                  DEF    PASSHEAD p1=V_020a a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
30298 @ 254634:                  DEF    SAVEHEAD p1=V_020b a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
30299 @ 254654:                  DEF    OPBOT p1=V_020c a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
30300 @ 254671:                  DEF    RPBOT p1=V_020d a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
30301 @ 254688:                  DEF    PASSBOT p1=V_020e a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
30302 @ 254707:                  DEF    SAVEBOT p1=V_020f a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0

  4951           %BYTEINTEGER REAL,LONGREAL,REALOP,COMPLEX
30303 @ 254726:                  LINE   4951 "regression-compile-tmp/imp918s.imp"
30304 @ 254764:                  DEF    REAL p1=V_0210 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
30305 @ 254780:                  DEF    LONGREAL p1=V_0211 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
30306 @ 254800:                  DEF    REALOP p1=V_0212 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
30307 @ 254818:                  DEF    COMPLEX p1=V_0213 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0

  4952           %INTEGER OPERATOR,LASTOP,OPPREC,OPND,C,D,E,RPTYPE,RPINF,RPXTRA
30308 @ 254837:                  LINE   4952 "regression-compile-tmp/imp918s.imp"
30309 @ 254875:                  DEF    OPERATOR p1=V_0214 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
30310 @ 254895:                  DEF    LASTOP p1=V_0215 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
30311 @ 254913:                  DEF    OPPREC p1=V_0216 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
30312 @ 254931:                  DEF    OPND p1=V_0217 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
30313 @ 254947:                  DEF    C p1=V_0218 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
30314 @ 254960:                  DEF    D p1=V_0219 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
30315 @ 254973:                  DEF    E p1=V_021a 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
30316 @ 254986:                  DEF    RPTYPE p1=V_021b 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
30317 @ 255004:                  DEF    RPINF p1=V_021c 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
30318 @ 255021:                  DEF    RPXTRA p1=V_021d 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

  4953           %BYTEINTEGER ADDREXP
30319 @ 255039:                  LINE   4953 "regression-compile-tmp/imp918s.imp"
30320 @ 255077:                  DEF    ADDREXP p1=V_021e a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0

  4954           %INTEGER BDISP,OPSTK,OPPSTK,RPNAM
30321 @ 255096:                  LINE   4954 "regression-compile-tmp/imp918s.imp"
30322 @ 255134:                  DEF    BDISP p1=V_021f 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
30323 @ 255151:                  DEF    OPSTK p1=V_0220 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
30324 @ 255168:                  DEF    OPPSTK p1=V_0221 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
30325 @ 255186:                  DEF    RPNAM p1=V_0222 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

  4955           %SHORTINTEGERNAME DUPHEAD,NEXTHEAD
  4956  !%if USE MC = 1 %start
  4957  !         *XC_ORHEAD(76),ORHEAD
  4958  !%finish
30326 @ 255203:                  LINE   4955 "regression-compile-tmp/imp918s.imp"
30327 @ 255241:                  DEF    DUPHEAD p1=V_0223 a/tf=12 b/format=3 c/ostate=0  type=1 (integer) form=2 (name) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
30328 @ 255260:                  DEF    NEXTHEAD p1=V_0224 a/tf=12 b/format=3 c/ostate=0  type=1 (integer) form=2 (name) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0

  4959           LONGREAL=ALL LONG ;           ! IN CASE INTEGER SUBXPRS
30329 @ 255280:                  LINE   4959 "regression-compile-tmp/imp918s.imp"
30330 @ 255318:                  PUSH   LONGREAL
30331 @ 255321:                  PUSH   ALLLONG
30332 @ 255324:                  ASSVAL

  4960           ADDREXP=MODE>>2&1
30333 @ 255325:                  LINE   4960 "regression-compile-tmp/imp918s.imp"
30334 @ 255363:                  PUSH   ADDREXP
30335 @ 255366:                  PUSH   MODE
30336 @ 255369:                  PUSHI  #0x00000002
30337 @ 255374:                  RSH   
30338 @ 255375:                  PUSHI  #0x00000001
30339 @ 255380:                  AND   
30340 @ 255381:                  ASSVAL

  4961           C=A(P)
30341 @ 255382:                  LINE   4961 "regression-compile-tmp/imp918s.imp"
30342 @ 255420:                  PUSH   C
30343 @ 255423:                  PUSH   A
30344 @ 255426:                  PUSH   P
30345 @ 255429:                  ACCESS
30346 @ 255430:                  ASSVAL

  4962           %IF 2<=C<=3 %THEN %START;     ! INITIAL '-' OR '\'
30347 @ 255431:                  LINE   4962 "regression-compile-tmp/imp918s.imp"
30348 @ 255469:                  PUSHI  #0x00000002
30349 @ 255474:                  PUSH   C
30350 @ 255477:                  JUMPIFD > L_0004
30351 @ 255481:                  PUSHI  #0x00000003
30352 @ 255486:                  JUMPIF > L_0004

  4963              NOPS=NOPS+1
30353 @ 255490:                  LINE   4963 "regression-compile-tmp/imp918s.imp"
30354 @ 255528:                  PUSH   NOPS
30355 @ 255531:                  PUSH   NOPS
30356 @ 255534:                  PUSHI  #0x00000001
30357 @ 255539:                  ADD   
30358 @ 255540:                  ASSVAL

  4964              OPSTK=13-C;               ! '-' =(11,3)   '\' =(10,5)
30359 @ 255541:                  LINE   4964 "regression-compile-tmp/imp918s.imp"
30360 @ 255579:                  PUSH   OPSTK
30361 @ 255582:                  PUSHI  #0x0000000d
30362 @ 255587:                  PUSH   C
30363 @ 255590:                  SUB   
30364 @ 255591:                  ASSVAL

  4965              OPPSTK=C<<1-1
30365 @ 255592:                  LINE   4965 "regression-compile-tmp/imp918s.imp"
30366 @ 255630:                  PUSH   OPPSTK
30367 @ 255633:                  PUSH   C
30368 @ 255636:                  PUSHI  #0x00000001
30369 @ 255641:                  LSH   
30370 @ 255642:                  PUSHI  #0x00000001
30371 @ 255647:                  SUB   
30372 @ 255648:                  ASSVAL

  4966           %FINISH
30373 @ 255649:                  LINE   4966 "regression-compile-tmp/imp918s.imp"
30374 @ 255687:                  LOCATE L_0004

  4967  Label1:       OPND=A(P+1); P=P+2
30375 @ 255690:                  LINE   4967 "regression-compile-tmp/imp918s.imp"
30376 @ 255728:                  LABEL  L_0225
30377 @ 255731:                  LINE   4967 "regression-compile-tmp/imp918s.imp"
30378 @ 255769:                  PUSH   OPND
30379 @ 255772:                  PUSH   A
30380 @ 255775:                  PUSH   P
30381 @ 255778:                  PUSHI  #0x00000001
30382 @ 255783:                  ADD   
30383 @ 255784:                  ACCESS
30384 @ 255785:                  ASSVAL
30385 @ 255786:                  LINE   4967 "regression-compile-tmp/imp918s.imp"
30386 @ 255824:                  PUSH   P
30387 @ 255827:                  PUSH   P
30388 @ 255830:                  PUSHI  #0x00000002
30389 @ 255835:                  ADD   
30390 @ 255836:                  ASSVAL

  4968           COMPLEX=0
30391 @ 255837:                  LINE   4968 "regression-compile-tmp/imp918s.imp"
30392 @ 255875:                  PUSH   COMPLEX
30393 @ 255878:                  PUSHI  #0x00000000
30394 @ 255883:                  ASSVAL

  4969           -> OPERAND(OPND);             ! SWITCH ON OPERAND
30395 @ 255884:                  LINE   4969 "regression-compile-tmp/imp918s.imp"
30396 @ 255922:                  PUSH   OPND
30397 @ 255925:                  SJUMP  519

  4970  OPERAND(1):                            ! NAME
30398 @ 255928:                  LINE   4970 "regression-compile-tmp/imp918s.imp"
30399 @ 255966:                  PUSHI  #0x00000001
30400 @ 255971:                  SLABEL 519

  4971           RPNAM=TAGS(A(P))
30401 @ 255974:                  LINE   4971 "regression-compile-tmp/imp918s.imp"
30402 @ 256012:                  PUSH   RPNAM
30403 @ 256015:                  PUSH   TAGS
30404 @ 256018:                  PUSH   A
30405 @ 256021:                  PUSH   P
30406 @ 256024:                  ACCESS
30407 @ 256025:                  ACCESS
30408 @ 256026:                  ASSVAL

  4972           %IF RPNAM=0 %THEN PTYPE=7 %ELSE %C
  4973              PTYPE=INTEGER(ADDR(ASLIST(RPNAM)))>>16
  4974  !%if USE MC = 1 %start
  4975  !         *L_1,PTYPE; *CVD_1,0(11);      ! UNPACK
  4976  !         *UNPK_ROUT(5),5(3,11)
  4977  !         *NC_ROUT(5),MASK1
  4978  !%finish
30409 @ 256027:                  LINE   4972 "regression-compile-tmp/imp918s.imp"
30410 @ 256065:                  PUSH   RPNAM
30411 @ 256068:                  PUSHI  #0x00000000
30412 @ 256073:                  JUMPIF # L_0004
30413 @ 256077:                  PUSH   PTYPE
30414 @ 256080:                  PUSHI  #0x00000007
30415 @ 256085:                  ASSVAL
30416 @ 256086:                  GOTO   L_0003
30417 @ 256089:                  LOCATE L_0004
30418 @ 256092:                  PUSH   PTYPE
30419 @ 256095:                  PUSH   INTEGER
30420 @ 256098:                  PUSH   ADDR
30421 @ 256101:                  PUSH   ASLIST
30422 @ 256104:                  PUSH   RPNAM
30423 @ 256107:                  ACCESS
30424 @ 256108:                  ASSPAR
30425 @ 256109:                  CALL  
30426 @ 256110:                  ASSPAR
30427 @ 256111:                  CALL  
30428 @ 256112:                  PUSHI  #0x00000010
30429 @ 256117:                  RSH   
30430 @ 256118:                  ASSVAL
30431 @ 256119:                  LOCATE L_0003

  4979           %IF TYPE=8 %THEN COMPLEX=FROM3(RPNAM)>>16
30432 @ 256122:                  LINE   4979 "regression-compile-tmp/imp918s.imp"
30433 @ 256160:                  PUSH   TYPE
30434 @ 256163:                  PUSHI  #0x00000008
30435 @ 256168:                  JUMPIF # L_0004
30436 @ 256172:                  PUSH   COMPLEX
30437 @ 256175:                  PUSH   FROM3
30438 @ 256178:                  PUSH   RPNAM
30439 @ 256181:                  ASSPAR
30440 @ 256182:                  CALL  
30441 @ 256183:                  PUSHI  #0x00000010
30442 @ 256188:                  RSH   
30443 @ 256189:                  ASSVAL
30444 @ 256190:                  LOCATE L_0004

  4980           %IF PTYPE=SNPT %THEN %START
30445 @ 256193:                  LINE   4980 "regression-compile-tmp/imp918s.imp"
30446 @ 256231:                  PUSH   PTYPE
30447 @ 256234:                  PUSHI  #0x00002716
30448 @ 256239:                  JUMPIF # L_0004

  4981              K=FROM3(RPNAM)>>16
30449 @ 256243:                  LINE   4981 "regression-compile-tmp/imp918s.imp"
30450 @ 256281:                  PUSH   K
30451 @ 256284:                  PUSH   FROM3
30452 @ 256287:                  PUSH   RPNAM
30453 @ 256290:                  ASSPAR
30454 @ 256291:                  CALL  
30455 @ 256292:                  PUSHI  #0x00000010
30456 @ 256297:                  RSH   
30457 @ 256298:                  ASSVAL

  4982               %IF K=38 %AND A(P+1)=2 %THEN %START;    ! PICK OFF NL
30458 @ 256299:                  LINE   4982 "regression-compile-tmp/imp918s.imp"
30459 @ 256337:                  PUSH   K
30460 @ 256340:                  PUSHI  #0x00000026
30461 @ 256345:                  JUMPIF # L_0007
30462 @ 256349:                  PUSH   A
30463 @ 256352:                  PUSH   P
30464 @ 256355:                  PUSHI  #0x00000001
30465 @ 256360:                  ADD   
30466 @ 256361:                  ACCESS
30467 @ 256362:                  PUSHI  #0x00000002
30468 @ 256367:                  JUMPIF # L_0007

  4983                  RPTYPE=0; RPINF=10; PTYPE=1; P=P+1; ->SKNAM
30469 @ 256371:                  LINE   4983 "regression-compile-tmp/imp918s.imp"
30470 @ 256409:                  PUSH   RPTYPE
30471 @ 256412:                  PUSHI  #0x00000000
30472 @ 256417:                  ASSVAL
30473 @ 256418:                  LINE   4983 "regression-compile-tmp/imp918s.imp"
30474 @ 256456:                  PUSH   RPINF
30475 @ 256459:                  PUSHI  #0x0000000a
30476 @ 256464:                  ASSVAL
30477 @ 256465:                  LINE   4983 "regression-compile-tmp/imp918s.imp"
30478 @ 256503:                  PUSH   PTYPE
30479 @ 256506:                  PUSHI  #0x00000001
30480 @ 256511:                  ASSVAL
30481 @ 256512:                  LINE   4983 "regression-compile-tmp/imp918s.imp"
30482 @ 256550:                  PUSH   P
30483 @ 256553:                  PUSH   P
30484 @ 256556:                  PUSHI  #0x00000001
30485 @ 256561:                  ADD   
30486 @ 256562:                  ASSVAL
30487 @ 256563:                  LINE   4983 "regression-compile-tmp/imp918s.imp"
30488 @ 256601:                  JUMP   L_0226

  4984               %FINISH
30489 @ 256604:                  LINE   4984 "regression-compile-tmp/imp918s.imp"
30490 @ 256642:                  LOCATE L_0007

  4985              %IF K=52 %AND A(P+1)=2 %START;! PICK OFF PI
30491 @ 256645:                  LINE   4985 "regression-compile-tmp/imp918s.imp"
30492 @ 256683:                  PUSH   K
30493 @ 256686:                  PUSHI  #0x00000034
30494 @ 256691:                  JUMPIF # L_0007
30495 @ 256695:                  PUSH   A
30496 @ 256698:                  PUSH   P
30497 @ 256701:                  PUSHI  #0x00000001
30498 @ 256706:                  ADD   
30499 @ 256707:                  ACCESS
30500 @ 256708:                  PUSHI  #0x00000002
30501 @ 256713:                  JUMPIF # L_0007

  4986                 RPTYPE=1; PTYPE=2; RPINF=-7
30502 @ 256717:                  LINE   4986 "regression-compile-tmp/imp918s.imp"
30503 @ 256755:                  PUSH   RPTYPE
30504 @ 256758:                  PUSHI  #0x00000001
30505 @ 256763:                  ASSVAL
30506 @ 256764:                  LINE   4986 "regression-compile-tmp/imp918s.imp"
30507 @ 256802:                  PUSH   PTYPE
30508 @ 256805:                  PUSHI  #0x00000002
30509 @ 256810:                  ASSVAL
30510 @ 256811:                  LINE   4986 "regression-compile-tmp/imp918s.imp"
30511 @ 256849:                  PUSH   RPINF
30512 @ 256852:                  PUSHI  #0x00000007
30513 @ 256857:                  NEGATE
30514 @ 256858:                  ASSVAL

  4987                 P=P+1; REAL=1; ->SKNAM
30515 @ 256859:                  LINE   4987 "regression-compile-tmp/imp918s.imp"
30516 @ 256897:                  PUSH   P
30517 @ 256900:                  PUSH   P
30518 @ 256903:                  PUSHI  #0x00000001
30519 @ 256908:                  ADD   
30520 @ 256909:                  ASSVAL
30521 @ 256910:                  LINE   4987 "regression-compile-tmp/imp918s.imp"
30522 @ 256948:                  PUSH   REAL
30523 @ 256951:                  PUSHI  #0x00000001
30524 @ 256956:                  ASSVAL
30525 @ 256957:                  LINE   4987 "regression-compile-tmp/imp918s.imp"
30526 @ 256995:                  JUMP   L_0226

  4988              %FINISH
30527 @ 256998:                  LINE   4988 "regression-compile-tmp/imp918s.imp"
30528 @ 257036:                  LOCATE L_0007

  4989              COMPLEX=1;                  ! FOR INTEGER(ADDR(A(I)))
30529 @ 257039:                  LINE   4989 "regression-compile-tmp/imp918s.imp"
30530 @ 257077:                  PUSH   COMPLEX
30531 @ 257080:                  PUSHI  #0x00000001
30532 @ 257085:                  ASSVAL

  4990               PTYPE=TSNAME(K);! UNPACK
  4991  !%if USE MC = 1 %start
  4992  !            *L_1,PTYPE; *CVD_1,0(11)
  4993  !            *UNPK_ROUT(5),5(3,11)
  4994  !            *NC_ROUT(5),MASK1
  4995  !%finish
30533 @ 257086:                  LINE   4990 "regression-compile-tmp/imp918s.imp"
30534 @ 257124:                  PUSH   PTYPE
30535 @ 257127:                  PUSH   TSNAME
30536 @ 257130:                  PUSH   K
30537 @ 257133:                  ACCESS
30538 @ 257134:                  ASSVAL

  4996           %FINISH
30539 @ 257135:                  LINE   4996 "regression-compile-tmp/imp918s.imp"
30540 @ 257173:                  LOCATE L_0004

  4997           %IF ROUT=1 %THEN COMPLEX=1
30541 @ 257176:                  LINE   4997 "regression-compile-tmp/imp918s.imp"
30542 @ 257214:                  PUSH   ROUT
30543 @ 257217:                  PUSHI  #0x00000001
30544 @ 257222:                  JUMPIF # L_0004
30545 @ 257226:                  PUSH   COMPLEX
30546 @ 257229:                  PUSHI  #0x00000001
30547 @ 257234:                  ASSVAL
30548 @ 257235:                  LOCATE L_0004

  4998           %IF ARR>=1 %AND CHECKS=1 %THEN COMPLEX=1
30549 @ 257238:                  LINE   4998 "regression-compile-tmp/imp918s.imp"
30550 @ 257276:                  PUSH   ARR
30551 @ 257279:                  PUSHI  #0x00000001
30552 @ 257284:                  JUMPIF < L_0004
30553 @ 257288:                  PUSH   CHECKS
30554 @ 257291:                  PUSHI  #0x00000001
30555 @ 257296:                  JUMPIF # L_0004
30556 @ 257300:                  PUSH   COMPLEX
30557 @ 257303:                  PUSHI  #0x00000001
30558 @ 257308:                  ASSVAL
30559 @ 257309:                  LOCATE L_0004

  4999           %IF TYPE=3 %THEN %START
30560 @ 257312:                  LINE   4999 "regression-compile-tmp/imp918s.imp"
30561 @ 257350:                  PUSH   TYPE
30562 @ 257353:                  PUSHI  #0x00000003
30563 @ 257358:                  JUMPIF # L_0004

  5000              KFORM=FROM3(RPNAM)&X'FFFF'
30564 @ 257362:                  LINE   5000 "regression-compile-tmp/imp918s.imp"
30565 @ 257400:                  PUSH   KFORM
30566 @ 257403:                  PUSH   FROM3
30567 @ 257406:                  PUSH   RPNAM
30568 @ 257409:                  ASSPAR
30569 @ 257410:                  CALL  
30570 @ 257411:                  PUSHI  #0x0000ffff
30571 @ 257416:                  AND   
30572 @ 257417:                  ASSVAL

  5001              D=P; C=COPY RECORD TAG(E); P=D;
30573 @ 257418:                  LINE   5001 "regression-compile-tmp/imp918s.imp"
30574 @ 257456:                  PUSH   D
30575 @ 257459:                  PUSH   P
30576 @ 257462:                  ASSVAL
30577 @ 257463:                  LINE   5001 "regression-compile-tmp/imp918s.imp"
30578 @ 257501:                  PUSH   C
30579 @ 257504:                  PUSH   COPYRECORDTAG
30580 @ 257507:                  PUSH   E
30581 @ 257510:                  ASSPAR
30582 @ 257511:                  CALL  
30583 @ 257512:                  ASSVAL
30584 @ 257513:                  LINE   5001 "regression-compile-tmp/imp918s.imp"
30585 @ 257551:                  PUSH   P
30586 @ 257554:                  PUSH   D
30587 @ 257557:                  ASSVAL

  5002              %IF (ARR>=1 %OR E>1) %AND CHECKS=1 %THEN COMPLEX=1
30588 @ 257558:                  LINE   5002 "regression-compile-tmp/imp918s.imp"
30589 @ 257596:                  PUSH   ARR
30590 @ 257599:                  PUSHI  #0x00000001
30591 @ 257604:                  JUMPIF >= L_0008
30592 @ 257608:                  PUSH   E
30593 @ 257611:                  PUSHI  #0x00000001
30594 @ 257616:                  JUMPIF <= L_0007
30595 @ 257620:                  LOCATE L_0008
30596 @ 257623:                  PUSH   CHECKS
30597 @ 257626:                  PUSHI  #0x00000001
30598 @ 257631:                  JUMPIF # L_0007
30599 @ 257635:                  PUSH   COMPLEX
30600 @ 257638:                  PUSHI  #0x00000001
30601 @ 257643:                  ASSVAL
30602 @ 257644:                  LOCATE L_0007

  5003           %FINISH
30603 @ 257647:                  LINE   5003 "regression-compile-tmp/imp918s.imp"
30604 @ 257685:                  LOCATE L_0004

  5004           %IF TYPE=5 %THEN FAULT(42,0)
30605 @ 257688:                  LINE   5004 "regression-compile-tmp/imp918s.imp"
30606 @ 257726:                  PUSH   TYPE
30607 @ 257729:                  PUSHI  #0x00000005
30608 @ 257734:                  JUMPIF # L_0004
30609 @ 257738:                  PUSH   FAULT
30610 @ 257741:                  PUSHI  #0x0000002a
30611 @ 257746:                  ASSPAR
30612 @ 257747:                  PUSHI  #0x00000000
30613 @ 257752:                  ASSPAR
30614 @ 257753:                  CALL  
30615 @ 257754:                  LOCATE L_0004

  5005           %IF TYPE=2 %THEN %START
30616 @ 257757:                  LINE   5005 "regression-compile-tmp/imp918s.imp"
30617 @ 257795:                  PUSH   TYPE
30618 @ 257798:                  PUSHI  #0x00000002
30619 @ 257803:                  JUMPIF # L_0004

  5006              REAL=1; LONGREAL=1 %IF PREC=3
30620 @ 257807:                  LINE   5006 "regression-compile-tmp/imp918s.imp"
30621 @ 257845:                  PUSH   REAL
30622 @ 257848:                  PUSHI  #0x00000001
30623 @ 257853:                  ASSVAL
30624 @ 257854:                  LINE   5006 "regression-compile-tmp/imp918s.imp"
30625 @ 257892:                  PUSH   PREC
30626 @ 257895:                  PUSHI  #0x00000003
30627 @ 257900:                  JUMPIF # L_0007
30628 @ 257904:                  PUSH   LONGREAL
30629 @ 257907:                  PUSHI  #0x00000001
30630 @ 257912:                  ASSVAL
30631 @ 257913:                  LOCATE L_0007

  5007           %FINISH
30632 @ 257916:                  LINE   5007 "regression-compile-tmp/imp918s.imp"
30633 @ 257954:                  LOCATE L_0004

  5008           RPTYPE=2; RPINF=P; PTYPE=1 %IF PTYPE=7
30634 @ 257957:                  LINE   5008 "regression-compile-tmp/imp918s.imp"
30635 @ 257995:                  PUSH   RPTYPE
30636 @ 257998:                  PUSHI  #0x00000002
30637 @ 258003:                  ASSVAL
30638 @ 258004:                  LINE   5008 "regression-compile-tmp/imp918s.imp"
30639 @ 258042:                  PUSH   RPINF
30640 @ 258045:                  PUSH   P
30641 @ 258048:                  ASSVAL
30642 @ 258049:                  LINE   5008 "regression-compile-tmp/imp918s.imp"
30643 @ 258087:                  PUSH   PTYPE
30644 @ 258090:                  PUSHI  #0x00000007
30645 @ 258095:                  JUMPIF # L_0004
30646 @ 258099:                  PUSH   PTYPE
30647 @ 258102:                  PUSHI  #0x00000001
30648 @ 258107:                  ASSVAL
30649 @ 258108:                  LOCATE L_0004

  5009           RPTYPE=0 %AND PTYPE=1 %IF TYPE=5;   ! CHANGE TO SHORT CONST
30650 @ 258111:                  LINE   5009 "regression-compile-tmp/imp918s.imp"
30651 @ 258149:                  PUSH   TYPE
30652 @ 258152:                  PUSHI  #0x00000005
30653 @ 258157:                  JUMPIF # L_0004
30654 @ 258161:                  PUSH   RPTYPE
30655 @ 258164:                  PUSHI  #0x00000000
30656 @ 258169:                  ASSVAL
30657 @ 258170:                  PUSH   PTYPE
30658 @ 258173:                  PUSHI  #0x00000001
30659 @ 258178:                  ASSVAL
30660 @ 258179:                  LOCATE L_0004

  5010           P=P+1
30661 @ 258182:                  LINE   5010 "regression-compile-tmp/imp918s.imp"
30662 @ 258220:                  PUSH   P
30663 @ 258223:                  PUSH   P
30664 @ 258226:                  PUSHI  #0x00000001
30665 @ 258231:                  ADD   
30666 @ 258232:                  ASSVAL

  5011  SKNAM:   FFLAG=0
30667 @ 258233:                  LINE   5011 "regression-compile-tmp/imp918s.imp"
30668 @ 258271:                  LABEL  L_0226
30669 @ 258274:                  LINE   5011 "regression-compile-tmp/imp918s.imp"
30670 @ 258312:                  PUSH   FFLAG
30671 @ 258315:                  PUSHI  #0x00000000
30672 @ 258320:                  ASSVAL

  5012           %CYCLE
30673 @ 258321:                  LINE   5012 "regression-compile-tmp/imp918s.imp"
30674 @ 258359:                  LOCATE L_0003

  5013              %IF A(P)=2 %THEN P=P+1 %ELSE SKIP APP
30675 @ 258362:                  LINE   5013 "regression-compile-tmp/imp918s.imp"
30676 @ 258400:                  PUSH   A
30677 @ 258403:                  PUSH   P
30678 @ 258406:                  ACCESS
30679 @ 258407:                  PUSHI  #0x00000002
30680 @ 258412:                  JUMPIF # L_0007
30681 @ 258416:                  PUSH   P
30682 @ 258419:                  PUSH   P
30683 @ 258422:                  PUSHI  #0x00000001
30684 @ 258427:                  ADD   
30685 @ 258428:                  ASSVAL
30686 @ 258429:                  GOTO   L_0006
30687 @ 258432:                  LOCATE L_0007
30688 @ 258435:                  PUSH   SKIPAPP
30689 @ 258438:                  CALL  
30690 @ 258439:                  LOCATE L_0006

  5014              C=A(P); P=P+2
30691 @ 258442:                  LINE   5014 "regression-compile-tmp/imp918s.imp"
30692 @ 258480:                  PUSH   C
30693 @ 258483:                  PUSH   A
30694 @ 258486:                  PUSH   P
30695 @ 258489:                  ACCESS
30696 @ 258490:                  ASSVAL
30697 @ 258491:                  LINE   5014 "regression-compile-tmp/imp918s.imp"
30698 @ 258529:                  PUSH   P
30699 @ 258532:                  PUSH   P
30700 @ 258535:                  PUSHI  #0x00000002
30701 @ 258540:                  ADD   
30702 @ 258541:                  ASSVAL

  5015           %REPEAT %UNTIL C=2
30703 @ 258542:                  LINE   5015 "regression-compile-tmp/imp918s.imp"
30704 @ 258580:                  PUSH   C
30705 @ 258583:                  PUSHI  #0x00000002
30706 @ 258588:                  JUMPIF = L_0004
30707 @ 258592:                  REPEAT L_0003
30708 @ 258595:                  LOCATE L_0004

  5016           %IF FFLAG#0 %THEN COMPLEX=1
30709 @ 258598:                  LINE   5016 "regression-compile-tmp/imp918s.imp"
30710 @ 258636:                  PUSH   FFLAG
30711 @ 258639:                  PUSHI  #0x00000000
30712 @ 258644:                  JUMPIF = L_0004
30713 @ 258648:                  PUSH   COMPLEX
30714 @ 258651:                  PUSHI  #0x00000001
30715 @ 258656:                  ASSVAL
30716 @ 258657:                  LOCATE L_0004

  5017  INS:     BINSERT(RPHEAD,RPBOT,PTYPE<<16!COMPLEX<<8!RPTYPE,RPINF,0)
30717 @ 258660:                  LINE   5017 "regression-compile-tmp/imp918s.imp"
30718 @ 258698:                  LABEL  L_0227
30719 @ 258701:                  LINE   5017 "regression-compile-tmp/imp918s.imp"
30720 @ 258739:                  PUSH   BINSERT
30721 @ 258742:                  PUSH   RPHEAD
30722 @ 258745:                  ASSPAR
30723 @ 258746:                  PUSH   RPBOT
30724 @ 258749:                  ASSPAR
30725 @ 258750:                  PUSH   PTYPE
30726 @ 258753:                  PUSHI  #0x00000010
30727 @ 258758:                  LSH   
30728 @ 258759:                  PUSH   COMPLEX
30729 @ 258762:                  PUSHI  #0x00000008
30730 @ 258767:                  LSH   
30731 @ 258768:                  OR    
30732 @ 258769:                  PUSH   RPTYPE
30733 @ 258772:                  OR    
30734 @ 258773:                  ASSPAR
30735 @ 258774:                  PUSH   RPINF
30736 @ 258777:                  ASSPAR
30737 @ 258778:                  PUSHI  #0x00000000
30738 @ 258783:                  ASSPAR
30739 @ 258784:                  CALL  

  5018           ->Label50 %UNLESS OPND=2
30740 @ 258785:                  LINE   5018 "regression-compile-tmp/imp918s.imp"
30741 @ 258823:                  PUSH   OPND
30742 @ 258826:                  PUSHI  #0x00000002
30743 @ 258831:                  JUMPIF = L_0004
30744 @ 258835:                  JUMP   L_0228
30745 @ 258838:                  LOCATE L_0004

  5019           %IF A(P-1)=2 %THEN P=P+1 %AND ->Label50
30746 @ 258841:                  LINE   5019 "regression-compile-tmp/imp918s.imp"
30747 @ 258879:                  PUSH   A
30748 @ 258882:                  PUSH   P
30749 @ 258885:                  PUSHI  #0x00000001
30750 @ 258890:                  SUB   
30751 @ 258891:                  ACCESS
30752 @ 258892:                  PUSHI  #0x00000002
30753 @ 258897:                  JUMPIF # L_0004
30754 @ 258901:                  PUSH   P
30755 @ 258904:                  PUSH   P
30756 @ 258907:                  PUSHI  #0x00000001
30757 @ 258912:                  ADD   
30758 @ 258913:                  ASSVAL
30759 @ 258914:                  JUMP   L_0228
30760 @ 258917:                  LOCATE L_0004

  5020           WARN(LINE)
30761 @ 258920:                  LINE   5020 "regression-compile-tmp/imp918s.imp"
30762 @ 258958:                  PUSH   WARN
30763 @ 258961:                  PUSH   LINE
30764 @ 258964:                  ASSPAR
30765 @ 258965:                  CALL  

  5021           P=P-2; OPERATOR=6; ->Label49
30766 @ 258966:                  LINE   5021 "regression-compile-tmp/imp918s.imp"
30767 @ 259004:                  PUSH   P
30768 @ 259007:                  PUSH   P
30769 @ 259010:                  PUSHI  #0x00000002
30770 @ 259015:                  SUB   
30771 @ 259016:                  ASSVAL
30772 @ 259017:                  LINE   5021 "regression-compile-tmp/imp918s.imp"
30773 @ 259055:                  PUSH   OPERATOR
30774 @ 259058:                  PUSHI  #0x00000006
30775 @ 259063:                  ASSVAL
30776 @ 259064:                  LINE   5021 "regression-compile-tmp/imp918s.imp"
30777 @ 259102:                  JUMP   L_0229

  5022  OPERAND(2):                            ! CONSTANT
30778 @ 259105:                  LINE   5022 "regression-compile-tmp/imp918s.imp"
30779 @ 259143:                  PUSHI  #0x00000002
30780 @ 259148:                  SLABEL 519

  5023           C=A(P)&7; RPINF=P
30781 @ 259151:                  LINE   5023 "regression-compile-tmp/imp918s.imp"
30782 @ 259189:                  PUSH   C
30783 @ 259192:                  PUSH   A
30784 @ 259195:                  PUSH   P
30785 @ 259198:                  ACCESS
30786 @ 259199:                  PUSHI  #0x00000007
30787 @ 259204:                  AND   
30788 @ 259205:                  ASSVAL
30789 @ 259206:                  LINE   5023 "regression-compile-tmp/imp918s.imp"
30790 @ 259244:                  PUSH   RPINF
30791 @ 259247:                  PUSH   P
30792 @ 259250:                  ASSVAL

  5024           %IF C=2 %THEN %START;         ! REAL CONSTANT
30793 @ 259251:                  LINE   5024 "regression-compile-tmp/imp918s.imp"
30794 @ 259289:                  PUSH   C
30795 @ 259292:                  PUSHI  #0x00000002
30796 @ 259297:                  JUMPIF # L_0004

  5025              PTYPE=2; P=P+6
30797 @ 259301:                  LINE   5025 "regression-compile-tmp/imp918s.imp"
30798 @ 259339:                  PUSH   PTYPE
30799 @ 259342:                  PUSHI  #0x00000002
30800 @ 259347:                  ASSVAL
30801 @ 259348:                  LINE   5025 "regression-compile-tmp/imp918s.imp"
30802 @ 259386:                  PUSH   P
30803 @ 259389:                  PUSH   P
30804 @ 259392:                  PUSHI  #0x00000006
30805 @ 259397:                  ADD   
30806 @ 259398:                  ASSVAL

  5026              REAL=1; RPTYPE=1
30807 @ 259399:                  LINE   5026 "regression-compile-tmp/imp918s.imp"
30808 @ 259437:                  PUSH   REAL
30809 @ 259440:                  PUSHI  #0x00000001
30810 @ 259445:                  ASSVAL
30811 @ 259446:                  LINE   5026 "regression-compile-tmp/imp918s.imp"
30812 @ 259484:                  PUSH   RPTYPE
30813 @ 259487:                  PUSHI  #0x00000001
30814 @ 259492:                  ASSVAL

  5027           %FINISH %ELSE %START
30815 @ 259493:                  LINE   5027 "regression-compile-tmp/imp918s.imp"
30816 @ 259531:                  GOTO   L_0003
30817 @ 259534:                  LOCATE L_0004

  5028              %IF C=5 %THEN %START;      ! STRING CONSTANT
30818 @ 259537:                  LINE   5028 "regression-compile-tmp/imp918s.imp"
30819 @ 259575:                  PUSH   C
30820 @ 259578:                  PUSHI  #0x00000005
30821 @ 259583:                  JUMPIF # L_0007

  5029                 FAULT(42,0); D=1
30822 @ 259587:                  LINE   5029 "regression-compile-tmp/imp918s.imp"
30823 @ 259625:                  PUSH   FAULT
30824 @ 259628:                  PUSHI  #0x0000002a
30825 @ 259633:                  ASSPAR
30826 @ 259634:                  PUSHI  #0x00000000
30827 @ 259639:                  ASSPAR
30828 @ 259640:                  CALL  
30829 @ 259641:                  LINE   5029 "regression-compile-tmp/imp918s.imp"
30830 @ 259679:                  PUSH   D
30831 @ 259682:                  PUSHI  #0x00000001
30832 @ 259687:                  ASSVAL

  5030                 P=P+(A(P+1)-1)>>1
30833 @ 259688:                  LINE   5030 "regression-compile-tmp/imp918s.imp"
30834 @ 259726:                  PUSH   P
30835 @ 259729:                  PUSH   P
30836 @ 259732:                  PUSH   A
30837 @ 259735:                  PUSH   P
30838 @ 259738:                  PUSHI  #0x00000001
30839 @ 259743:                  ADD   
30840 @ 259744:                  ACCESS
30841 @ 259745:                  PUSHI  #0x00000001
30842 @ 259750:                  SUB   
30843 @ 259751:                  PUSHI  #0x00000001
30844 @ 259756:                  RSH   
30845 @ 259757:                  ADD   
30846 @ 259758:                  ASSVAL

  5031              %FINISH %ELSE %START
  5032  !%if USE MC = 1 %start
  5033  !               **1,P; *AR_1,1
  5034  !               *LA_1,A+32(1); *MVC_D(4),0(1)
  5035  !%finish
30847 @ 259759:                  LINE   5031 "regression-compile-tmp/imp918s.imp"
30848 @ 259797:                  GOTO   L_0006
30849 @ 259800:                  LOCATE L_0007

  5036              %FINISH
30850 @ 259803:                  LINE   5036 "regression-compile-tmp/imp918s.imp"
30851 @ 259841:                  LOCATE L_0006

  5037              %IF D>>12=0 %THEN RPTYPE=0 %AND RPINF=D %ELSE RPTYPE=1
30852 @ 259844:                  LINE   5037 "regression-compile-tmp/imp918s.imp"
30853 @ 259882:                  PUSH   D
30854 @ 259885:                  PUSHI  #0x0000000c
30855 @ 259890:                  RSH   
30856 @ 259891:                  PUSHI  #0x00000000
30857 @ 259896:                  JUMPIF # L_0007
30858 @ 259900:                  PUSH   RPTYPE
30859 @ 259903:                  PUSHI  #0x00000000
30860 @ 259908:                  ASSVAL
30861 @ 259909:                  PUSH   RPINF
30862 @ 259912:                  PUSH   D
30863 @ 259915:                  ASSVAL
30864 @ 259916:                  GOTO   L_0006
30865 @ 259919:                  LOCATE L_0007
30866 @ 259922:                  PUSH   RPTYPE
30867 @ 259925:                  PUSHI  #0x00000001
30868 @ 259930:                  ASSVAL
30869 @ 259931:                  LOCATE L_0006

  5038              P=P+4; PTYPE=1
30870 @ 259934:                  LINE   5038 "regression-compile-tmp/imp918s.imp"
30871 @ 259972:                  PUSH   P
30872 @ 259975:                  PUSH   P
30873 @ 259978:                  PUSHI  #0x00000004
30874 @ 259983:                  ADD   
30875 @ 259984:                  ASSVAL
30876 @ 259985:                  LINE   5038 "regression-compile-tmp/imp918s.imp"
30877 @ 260023:                  PUSH   PTYPE
30878 @ 260026:                  PUSHI  #0x00000001
30879 @ 260031:                  ASSVAL

  5039           %FINISH; -> INS
30880 @ 260032:                  LINE   5039 "regression-compile-tmp/imp918s.imp"
30881 @ 260070:                  LOCATE L_0003
30882 @ 260073:                  LINE   5039 "regression-compile-tmp/imp918s.imp"
30883 @ 260111:                  JUMP   L_0227

  5040  OPERAND(4):                            ! MODULUS SIGNS
30884 @ 260114:                  LINE   5040 "regression-compile-tmp/imp918s.imp"
30885 @ 260152:                  PUSHI  #0x00000004
30886 @ 260157:                  SLABEL 519

  5041           WARN(LINE)
30887 @ 260160:                  LINE   5041 "regression-compile-tmp/imp918s.imp"
30888 @ 260198:                  PUSH   WARN
30889 @ 260201:                  PUSH   LINE
30890 @ 260204:                  ASSPAR
30891 @ 260205:                  CALL  

  5042  OPERAND(3):                            ! SUB EXPRESSION
30892 @ 260206:                  LINE   5042 "regression-compile-tmp/imp918s.imp"
30893 @ 260244:                  PUSHI  #0x00000003
30894 @ 260249:                  SLABEL 519

  5043           D=0; PASSHEAD=0; PASSBOT=0
30895 @ 260252:                  LINE   5043 "regression-compile-tmp/imp918s.imp"
30896 @ 260290:                  PUSH   D
30897 @ 260293:                  PUSHI  #0x00000000
30898 @ 260298:                  ASSVAL
30899 @ 260299:                  LINE   5043 "regression-compile-tmp/imp918s.imp"
30900 @ 260337:                  PUSH   PASSHEAD
30901 @ 260340:                  PUSHI  #0x00000000
30902 @ 260345:                  ASSVAL
30903 @ 260346:                  LINE   5043 "regression-compile-tmp/imp918s.imp"
30904 @ 260384:                  PUSH   PASSBOT
30905 @ 260387:                  PUSHI  #0x00000000
30906 @ 260392:                  ASSVAL

  5044           D=1 %IF MODE&3=1 %OR LASTOP=12
30907 @ 260393:                  LINE   5044 "regression-compile-tmp/imp918s.imp"
30908 @ 260431:                  PUSH   MODE
30909 @ 260434:                  PUSHI  #0x00000003
30910 @ 260439:                  AND   
30911 @ 260440:                  PUSHI  #0x00000001
30912 @ 260445:                  JUMPIF = L_0005
30913 @ 260449:                  PUSH   LASTOP
30914 @ 260452:                  PUSHI  #0x0000000c
30915 @ 260457:                  JUMPIF # L_0004
30916 @ 260461:                  LOCATE L_0005
30917 @ 260464:                  PUSH   D
30918 @ 260467:                  PUSHI  #0x00000001
30919 @ 260472:                  ASSVAL
30920 @ 260473:                  LOCATE L_0004

  5045           P=P+2
30921 @ 260476:                  LINE   5045 "regression-compile-tmp/imp918s.imp"
30922 @ 260514:                  PUSH   P
30923 @ 260517:                  PUSH   P
30924 @ 260520:                  PUSHI  #0x00000002
30925 @ 260525:                  ADD   
30926 @ 260526:                  ASSVAL

  5046           TORP(PASSHEAD,PASSBOT,NOPS,D)
30927 @ 260527:                  LINE   5046 "regression-compile-tmp/imp918s.imp"
30928 @ 260565:                  PUSH   TORP
30929 @ 260568:                  PUSH   PASSHEAD
30930 @ 260571:                  ASSPAR
30931 @ 260572:                  PUSH   PASSBOT
30932 @ 260575:                  ASSPAR
30933 @ 260576:                  PUSH   NOPS
30934 @ 260579:                  ASSPAR
30935 @ 260580:                  PUSH   D
30936 @ 260583:                  ASSPAR
30937 @ 260584:                  CALL  

  5047           REAL=1 %IF TYPE=2
30938 @ 260585:                  LINE   5047 "regression-compile-tmp/imp918s.imp"
30939 @ 260623:                  PUSH   TYPE
30940 @ 260626:                  PUSHI  #0x00000002
30941 @ 260631:                  JUMPIF # L_0004
30942 @ 260635:                  PUSH   REAL
30943 @ 260638:                  PUSHI  #0x00000001
30944 @ 260643:                  ASSVAL
30945 @ 260644:                  LOCATE L_0004

  5048           LONGREAL=1 %IF PREC=3
30946 @ 260647:                  LINE   5048 "regression-compile-tmp/imp918s.imp"
30947 @ 260685:                  PUSH   PREC
30948 @ 260688:                  PUSHI  #0x00000003
30949 @ 260693:                  JUMPIF # L_0004
30950 @ 260697:                  PUSH   LONGREAL
30951 @ 260700:                  PUSHI  #0x00000001
30952 @ 260705:                  ASSVAL
30953 @ 260706:                  LOCATE L_0004

  5049           BINSERT(RPHEAD,RPBOT,PTYPE<<16!3,PASSHEAD,PASSBOT)
30954 @ 260709:                  LINE   5049 "regression-compile-tmp/imp918s.imp"
30955 @ 260747:                  PUSH   BINSERT
30956 @ 260750:                  PUSH   RPHEAD
30957 @ 260753:                  ASSPAR
30958 @ 260754:                  PUSH   RPBOT
30959 @ 260757:                  ASSPAR
30960 @ 260758:                  PUSH   PTYPE
30961 @ 260761:                  PUSHI  #0x00000010
30962 @ 260766:                  LSH   
30963 @ 260767:                  PUSHI  #0x00000003
30964 @ 260772:                  OR    
30965 @ 260773:                  ASSPAR
30966 @ 260774:                  PUSH   PASSHEAD
30967 @ 260777:                  ASSPAR
30968 @ 260778:                  PUSH   PASSBOT
30969 @ 260781:                  ASSPAR
30970 @ 260782:                  CALL  

  5050           %IF OPND=4 %THEN BINSERT(RPHEAD,RPBOT,13,0,0) %AND NOPS=NOPS+1
30971 @ 260783:                  LINE   5050 "regression-compile-tmp/imp918s.imp"
30972 @ 260821:                  PUSH   OPND
30973 @ 260824:                  PUSHI  #0x00000004
30974 @ 260829:                  JUMPIF # L_0004
30975 @ 260833:                  PUSH   BINSERT
30976 @ 260836:                  PUSH   RPHEAD
30977 @ 260839:                  ASSPAR
30978 @ 260840:                  PUSH   RPBOT
30979 @ 260843:                  ASSPAR
30980 @ 260844:                  PUSHI  #0x0000000d
30981 @ 260849:                  ASSPAR
30982 @ 260850:                  PUSHI  #0x00000000
30983 @ 260855:                  ASSPAR
30984 @ 260856:                  PUSHI  #0x00000000
30985 @ 260861:                  ASSPAR
30986 @ 260862:                  CALL  
30987 @ 260863:                  PUSH   NOPS
30988 @ 260866:                  PUSH   NOPS
30989 @ 260869:                  PUSHI  #0x00000001
30990 @ 260874:                  ADD   
30991 @ 260875:                  ASSVAL
30992 @ 260876:                  LOCATE L_0004

  5051           P=P+1
30993 @ 260879:                  LINE   5051 "regression-compile-tmp/imp918s.imp"
30994 @ 260917:                  PUSH   P
30995 @ 260920:                  PUSH   P
30996 @ 260923:                  PUSHI  #0x00000001
30997 @ 260928:                  ADD   
30998 @ 260929:                  ASSVAL

  5052  Label50:      %COMMENT DEAL WITH OPERATOR
30999 @ 260930:                  LINE   5052 "regression-compile-tmp/imp918s.imp"
31000 @ 260968:                  LABEL  L_0228

  5053           ->Label60 %IF A(P-1)=2;           ! EXPR FINISHED
31001 @ 260971:                  LINE   5053 "regression-compile-tmp/imp918s.imp"
31002 @ 261009:                  PUSH   A
31003 @ 261012:                  PUSH   P
31004 @ 261015:                  PUSHI  #0x00000001
31005 @ 261020:                  SUB   
31006 @ 261021:                  ACCESS
31007 @ 261022:                  PUSHI  #0x00000002
31008 @ 261027:                  JUMPIF # L_0004
31009 @ 261031:                  JUMP   L_022a
31010 @ 261034:                  LOCATE L_0004

  5054           OPERATOR=A(P)
  5055  !
  5056  ! THE STRING OPERATOR '.' CAUSES CHAOS IN AN ARITHMETIC EXPRSN
  5057  ! SO FAULT IT AND CHANGE IT TO THE INNOCUOUS '+'
  5058  !
31011 @ 261037:                  LINE   5054 "regression-compile-tmp/imp918s.imp"
31012 @ 261075:                  PUSH   OPERATOR
31013 @ 261078:                  PUSH   A
31014 @ 261081:                  PUSH   P
31015 @ 261084:                  ACCESS
31016 @ 261085:                  ASSVAL

  5059           %IF OPERATOR=12 %THEN FAULT(42,0) %AND OPERATOR=2
31017 @ 261086:                  LINE   5059 "regression-compile-tmp/imp918s.imp"
31018 @ 261124:                  PUSH   OPERATOR
31019 @ 261127:                  PUSHI  #0x0000000c
31020 @ 261132:                  JUMPIF # L_0004
31021 @ 261136:                  PUSH   FAULT
31022 @ 261139:                  PUSHI  #0x0000002a
31023 @ 261144:                  ASSPAR
31024 @ 261145:                  PUSHI  #0x00000000
31025 @ 261150:                  ASSPAR
31026 @ 261151:                  CALL  
31027 @ 261152:                  PUSH   OPERATOR
31028 @ 261155:                  PUSHI  #0x00000002
31029 @ 261160:                  ASSVAL
31030 @ 261161:                  LOCATE L_0004

  5060           REALOP=1 %IF OPERATOR=1 %OR OPERATOR=8
31031 @ 261164:                  LINE   5060 "regression-compile-tmp/imp918s.imp"
31032 @ 261202:                  PUSH   OPERATOR
31033 @ 261205:                  PUSHI  #0x00000001
31034 @ 261210:                  JUMPIF = L_0005
31035 @ 261214:                  PUSH   OPERATOR
31036 @ 261217:                  PUSHI  #0x00000008
31037 @ 261222:                  JUMPIF # L_0004
31038 @ 261226:                  LOCATE L_0005
31039 @ 261229:                  PUSH   REALOP
31040 @ 261232:                  PUSHI  #0x00000001
31041 @ 261237:                  ASSVAL
31042 @ 261238:                  LOCATE L_0004

  5061           OPERATOR=12 %IF OPERATOR=1
31043 @ 261241:                  LINE   5061 "regression-compile-tmp/imp918s.imp"
31044 @ 261279:                  PUSH   OPERATOR
31045 @ 261282:                  PUSHI  #0x00000001
31046 @ 261287:                  JUMPIF # L_0004
31047 @ 261291:                  PUSH   OPERATOR
31048 @ 261294:                  PUSHI  #0x0000000c
31049 @ 261299:                  ASSVAL
31050 @ 261300:                  LOCATE L_0004

  5062  Label49:      LASTOP=OPERATOR
31051 @ 261303:                  LINE   5062 "regression-compile-tmp/imp918s.imp"
31052 @ 261341:                  LABEL  L_0229
31053 @ 261344:                  LINE   5062 "regression-compile-tmp/imp918s.imp"
31054 @ 261382:                  PUSH   LASTOP
31055 @ 261385:                  PUSH   OPERATOR
31056 @ 261388:                  ASSVAL

  5063           OPPREC=PRECEDENCE(OPERATOR)
31057 @ 261389:                  LINE   5063 "regression-compile-tmp/imp918s.imp"
31058 @ 261427:                  PUSH   OPPREC
31059 @ 261430:                  PUSH   PRECEDENCE
31060 @ 261433:                  PUSH   OPERATOR
31061 @ 261436:                  ACCESS
31062 @ 261437:                  ASSVAL

  5064           OPERATOR=OPERATOR+13
31063 @ 261438:                  LINE   5064 "regression-compile-tmp/imp918s.imp"
31064 @ 261476:                  PUSH   OPERATOR
31065 @ 261479:                  PUSH   OPERATOR
31066 @ 261482:                  PUSHI  #0x0000000d
31067 @ 261487:                  ADD   
31068 @ 261488:                  ASSVAL

  5065           NOPS=NOPS+1
  5066  !
  5067  ! UNLOAD THE OPERATOR STACK OF ALL OPERATORS WHOSE PRECEDENCE IS
  5068  ! NOT LOWER THAN THE CURRENT OPERATOR. AN EMPTY STACK GIVES'-1'
  5069  ! AS PRECEDENCE.
  5070  !
31069 @ 261489:                  LINE   5065 "regression-compile-tmp/imp918s.imp"
31070 @ 261527:                  PUSH   NOPS
31071 @ 261530:                  PUSH   NOPS
31072 @ 261533:                  PUSHI  #0x00000001
31073 @ 261538:                  ADD   
31074 @ 261539:                  ASSVAL

  5071           %WHILE OPPREC<=OPPSTK&31 %CYCLE
31075 @ 261540:                  LINE   5071 "regression-compile-tmp/imp918s.imp"
31076 @ 261578:                  LOCATE L_0003
31077 @ 261581:                  PUSH   OPPREC
31078 @ 261584:                  PUSH   OPPSTK
31079 @ 261587:                  PUSHI  #0x0000001f
31080 @ 261592:                  AND   
31081 @ 261593:                  JUMPIF > L_0004

  5072              BINSERT(RPHEAD,RPBOT,OPSTK&31,0,0)
31082 @ 261597:                  LINE   5072 "regression-compile-tmp/imp918s.imp"
31083 @ 261635:                  PUSH   BINSERT
31084 @ 261638:                  PUSH   RPHEAD
31085 @ 261641:                  ASSPAR
31086 @ 261642:                  PUSH   RPBOT
31087 @ 261645:                  ASSPAR
31088 @ 261646:                  PUSH   OPSTK
31089 @ 261649:                  PUSHI  #0x0000001f
31090 @ 261654:                  AND   
31091 @ 261655:                  ASSPAR
31092 @ 261656:                  PUSHI  #0x00000000
31093 @ 261661:                  ASSPAR
31094 @ 261662:                  PUSHI  #0x00000000
31095 @ 261667:                  ASSPAR
31096 @ 261668:                  CALL  

  5073              OPSTK=OPSTK>>5; OPPSTK=OPPSTK>>5
31097 @ 261669:                  LINE   5073 "regression-compile-tmp/imp918s.imp"
31098 @ 261707:                  PUSH   OPSTK
31099 @ 261710:                  PUSH   OPSTK
31100 @ 261713:                  PUSHI  #0x00000005
31101 @ 261718:                  RSH   
31102 @ 261719:                  ASSVAL
31103 @ 261720:                  LINE   5073 "regression-compile-tmp/imp918s.imp"
31104 @ 261758:                  PUSH   OPPSTK
31105 @ 261761:                  PUSH   OPPSTK
31106 @ 261764:                  PUSHI  #0x00000005
31107 @ 261769:                  RSH   
31108 @ 261770:                  ASSVAL

  5074           %REPEAT
  5075  !
  5076  ! THE CURRENT OPERATOR CAN NOW BE STORED
  5077  !
31109 @ 261771:                  LINE   5074 "regression-compile-tmp/imp918s.imp"
31110 @ 261809:                  REPEAT L_0003
31111 @ 261812:                  LOCATE L_0004

  5078           OPSTK=OPSTK<<5!OPERATOR
31112 @ 261815:                  LINE   5078 "regression-compile-tmp/imp918s.imp"
31113 @ 261853:                  PUSH   OPSTK
31114 @ 261856:                  PUSH   OPSTK
31115 @ 261859:                  PUSHI  #0x00000005
31116 @ 261864:                  LSH   
31117 @ 261865:                  PUSH   OPERATOR
31118 @ 261868:                  OR    
31119 @ 261869:                  ASSVAL

  5079           OPPSTK=OPPSTK<<5!OPPREC
31120 @ 261870:                  LINE   5079 "regression-compile-tmp/imp918s.imp"
31121 @ 261908:                  PUSH   OPPSTK
31122 @ 261911:                  PUSH   OPPSTK
31123 @ 261914:                  PUSHI  #0x00000005
31124 @ 261919:                  LSH   
31125 @ 261920:                  PUSH   OPPREC
31126 @ 261923:                  OR    
31127 @ 261924:                  ASSVAL

  5080           ->Label1
31128 @ 261925:                  LINE   5080 "regression-compile-tmp/imp918s.imp"
31129 @ 261963:                  JUMP   L_0225

  5081  Label60:                                    ! END OF EXPRESSION
31130 @ 261966:                  LINE   5081 "regression-compile-tmp/imp918s.imp"
31131 @ 262004:                  LABEL  L_022a

  5082           %WHILE OPSTK#0 %CYCLE
31132 @ 262007:                  LINE   5082 "regression-compile-tmp/imp918s.imp"
31133 @ 262045:                  LOCATE L_0003
31134 @ 262048:                  PUSH   OPSTK
31135 @ 262051:                  PUSHI  #0x00000000
31136 @ 262056:                  JUMPIF = L_0004

  5083              BINSERT(RPHEAD,RPBOT,OPSTK&31,0,0)
31137 @ 262060:                  LINE   5083 "regression-compile-tmp/imp918s.imp"
31138 @ 262098:                  PUSH   BINSERT
31139 @ 262101:                  PUSH   RPHEAD
31140 @ 262104:                  ASSPAR
31141 @ 262105:                  PUSH   RPBOT
31142 @ 262108:                  ASSPAR
31143 @ 262109:                  PUSH   OPSTK
31144 @ 262112:                  PUSHI  #0x0000001f
31145 @ 262117:                  AND   
31146 @ 262118:                  ASSPAR
31147 @ 262119:                  PUSHI  #0x00000000
31148 @ 262124:                  ASSPAR
31149 @ 262125:                  PUSHI  #0x00000000
31150 @ 262130:                  ASSPAR
31151 @ 262131:                  CALL  

  5084              OPSTK=OPSTK>>5
31152 @ 262132:                  LINE   5084 "regression-compile-tmp/imp918s.imp"
31153 @ 262170:                  PUSH   OPSTK
31154 @ 262173:                  PUSH   OPSTK
31155 @ 262176:                  PUSHI  #0x00000005
31156 @ 262181:                  RSH   
31157 @ 262182:                  ASSVAL

  5085           %REPEAT
31158 @ 262183:                  LINE   5085 "regression-compile-tmp/imp918s.imp"
31159 @ 262221:                  REPEAT L_0003
31160 @ 262224:                  LOCATE L_0004

  5086           REAL=1 %IF MODE&3#1 %AND REALOP=1
31161 @ 262227:                  LINE   5086 "regression-compile-tmp/imp918s.imp"
31162 @ 262265:                  PUSH   MODE
31163 @ 262268:                  PUSHI  #0x00000003
31164 @ 262273:                  AND   
31165 @ 262274:                  PUSHI  #0x00000001
31166 @ 262279:                  JUMPIF = L_0004
31167 @ 262283:                  PUSH   REALOP
31168 @ 262286:                  PUSHI  #0x00000001
31169 @ 262291:                  JUMPIF # L_0004
31170 @ 262295:                  PUSH   REAL
31171 @ 262298:                  PUSHI  #0x00000001
31172 @ 262303:                  ASSVAL
31173 @ 262304:                  LOCATE L_0004

  5087           LONGREAL=1 %IF MODE=3
31174 @ 262307:                  LINE   5087 "regression-compile-tmp/imp918s.imp"
31175 @ 262345:                  PUSH   MODE
31176 @ 262348:                  PUSHI  #0x00000003
31177 @ 262353:                  JUMPIF # L_0004
31178 @ 262357:                  PUSH   LONGREAL
31179 @ 262360:                  PUSHI  #0x00000001
31180 @ 262365:                  ASSVAL
31181 @ 262366:                  LOCATE L_0004

  5088           FAULT(24,0) %IF REAL=1 %AND MODE&3=1
  5089  !
  5090  ! NOW THE TYPE OF THE EXPRESSION IS KNOWN WE CAN ADD FLOAT &STRETCH
  5091  ! OPERATORS AS NECESSARY. ALSO TAKE THE OPPORTUNITY TO REMOVE
  5092  ! CONSTANTS FROM ADDRESS EXPRESSIONS.
  5093  !
31182 @ 262369:                  LINE   5088 "regression-compile-tmp/imp918s.imp"
31183 @ 262407:                  PUSH   REAL
31184 @ 262410:                  PUSHI  #0x00000001
31185 @ 262415:                  JUMPIF # L_0004
31186 @ 262419:                  PUSH   MODE
31187 @ 262422:                  PUSHI  #0x00000003
31188 @ 262427:                  AND   
31189 @ 262428:                  PUSHI  #0x00000001
31190 @ 262433:                  JUMPIF # L_0004
31191 @ 262437:                  PUSH   FAULT
31192 @ 262440:                  PUSHI  #0x00000018
31193 @ 262445:                  ASSPAR
31194 @ 262446:                  PUSHI  #0x00000000
31195 @ 262451:                  ASSPAR
31196 @ 262452:                  CALL  
31197 @ 262453:                  LOCATE L_0004

  5094           DUPHEAD==RPHEAD
31198 @ 262456:                  LINE   5094 "regression-compile-tmp/imp918s.imp"
31199 @ 262494:                  PUSH   DUPHEAD
31200 @ 262497:                  PUSH   RPHEAD
31201 @ 262500:                  ASSREF

  5095           %WHILE DUPHEAD#0 %CYCLE
31202 @ 262501:                  LINE   5095 "regression-compile-tmp/imp918s.imp"
31203 @ 262539:                  LOCATE L_0003
31204 @ 262542:                  PUSH   DUPHEAD
31205 @ 262545:                  PUSHI  #0x00000000
31206 @ 262550:                  JUMPIF = L_0004

  5096              C=INTEGER(ADDR(ASLIST(DUPHEAD)))
31207 @ 262554:                  LINE   5096 "regression-compile-tmp/imp918s.imp"
31208 @ 262592:                  PUSH   C
31209 @ 262595:                  PUSH   INTEGER
31210 @ 262598:                  PUSH   ADDR
31211 @ 262601:                  PUSH   ASLIST
31212 @ 262604:                  PUSH   DUPHEAD
31213 @ 262607:                  ACCESS
31214 @ 262608:                  ASSPAR
31215 @ 262609:                  CALL  
31216 @ 262610:                  ASSPAR
31217 @ 262611:                  CALL  
31218 @ 262612:                  ASSVAL

  5097              NEXTHEAD==SHORTINTEGER(ADDR(ASLIST(DUPHEAD))+14)
31219 @ 262613:                  LINE   5097 "regression-compile-tmp/imp918s.imp"
31220 @ 262651:                  PUSH   NEXTHEAD
31221 @ 262654:                  PUSH   SHORTINTEGER
31222 @ 262657:                  PUSH   ADDR
31223 @ 262660:                  PUSH   ASLIST
31224 @ 262663:                  PUSH   DUPHEAD
31225 @ 262666:                  ACCESS
31226 @ 262667:                  ASSPAR
31227 @ 262668:                  CALL  
31228 @ 262669:                  PUSHI  #0x0000000e
31229 @ 262674:                  ADD   
31230 @ 262675:                  ASSPAR
31231 @ 262676:                  CALL  
31232 @ 262677:                  ASSREF

  5098              RPTYPE=C&255
31233 @ 262678:                  LINE   5098 "regression-compile-tmp/imp918s.imp"
31234 @ 262716:                  PUSH   RPTYPE
31235 @ 262719:                  PUSH   C
31236 @ 262722:                  PUSHI  #0x000000ff
31237 @ 262727:                  AND   
31238 @ 262728:                  ASSVAL

  5099              %IF ADDREXP=1 %AND RPTYPE=0 %AND FROM2(DUPHEAD)+BDISP<256%C
  5100                  %AND (NOPS=0 %OR FROM1(NEXTHEAD)&255=15) %START;! CHECK FOR +CONST
31239 @ 262729:                  LINE   5099 "regression-compile-tmp/imp918s.imp"
31240 @ 262767:                  PUSH   ADDREXP
31241 @ 262770:                  PUSHI  #0x00000001
31242 @ 262775:                  JUMPIF # L_0007
31243 @ 262779:                  PUSH   RPTYPE
31244 @ 262782:                  PUSHI  #0x00000000
31245 @ 262787:                  JUMPIF # L_0007
31246 @ 262791:                  PUSH   FROM2
31247 @ 262794:                  PUSH   DUPHEAD
31248 @ 262797:                  ASSPAR
31249 @ 262798:                  CALL  
31250 @ 262799:                  PUSH   BDISP
31251 @ 262802:                  ADD   
31252 @ 262803:                  PUSHI  #0x00000100
31253 @ 262808:                  JUMPIF >= L_0007
31254 @ 262812:                  PUSH   NOPS
31255 @ 262815:                  PUSHI  #0x00000000
31256 @ 262820:                  JUMPIF = L_0008
31257 @ 262824:                  PUSH   FROM1
31258 @ 262827:                  PUSH   NEXTHEAD
31259 @ 262830:                  ASSPAR
31260 @ 262831:                  CALL  
31261 @ 262832:                  PUSHI  #0x000000ff
31262 @ 262837:                  AND   
31263 @ 262838:                  PUSHI  #0x0000000f
31264 @ 262843:                  JUMPIF # L_0007
31265 @ 262847:                  LOCATE L_0008

  5101                 POP(DUPHEAD,D,RPINF)
31266 @ 262850:                  LINE   5101 "regression-compile-tmp/imp918s.imp"
31267 @ 262888:                  PUSH   POP
31268 @ 262891:                  PUSH   DUPHEAD
31269 @ 262894:                  ASSPAR
31270 @ 262895:                  PUSH   D
31271 @ 262898:                  ASSPAR
31272 @ 262899:                  PUSH   RPINF
31273 @ 262902:                  ASSPAR
31274 @ 262903:                  CALL  

  5102                 BDISP=BDISP+RPINF
31275 @ 262904:                  LINE   5102 "regression-compile-tmp/imp918s.imp"
31276 @ 262942:                  PUSH   BDISP
31277 @ 262945:                  PUSH   BDISP
31278 @ 262948:                  PUSH   RPINF
31279 @ 262951:                  ADD   
31280 @ 262952:                  ASSVAL

  5103                 %IF NOPS#0 %THEN POP(DUPHEAD,D,D) %AND NOPS=NOPS-1
31281 @ 262953:                  LINE   5103 "regression-compile-tmp/imp918s.imp"
31282 @ 262991:                  PUSH   NOPS
31283 @ 262994:                  PUSHI  #0x00000000
31284 @ 262999:                  JUMPIF = L_000a
31285 @ 263003:                  PUSH   POP
31286 @ 263006:                  PUSH   DUPHEAD
31287 @ 263009:                  ASSPAR
31288 @ 263010:                  PUSH   D
31289 @ 263013:                  ASSPAR
31290 @ 263014:                  PUSH   D
31291 @ 263017:                  ASSPAR
31292 @ 263018:                  CALL  
31293 @ 263019:                  PUSH   NOPS
31294 @ 263022:                  PUSH   NOPS
31295 @ 263025:                  PUSHI  #0x00000001
31296 @ 263030:                  SUB   
31297 @ 263031:                  ASSVAL
31298 @ 263032:                  LOCATE L_000a

  5104                 NEXTHEAD==DUPHEAD
31299 @ 263035:                  LINE   5104 "regression-compile-tmp/imp918s.imp"
31300 @ 263073:                  PUSH   NEXTHEAD
31301 @ 263076:                  PUSH   DUPHEAD
31302 @ 263079:                  ASSREF

  5105                 %IF DUPHEAD=0 %START
31303 @ 263080:                  LINE   5105 "regression-compile-tmp/imp918s.imp"
31304 @ 263118:                  PUSH   DUPHEAD
31305 @ 263121:                  PUSHI  #0x00000000
31306 @ 263126:                  JUMPIF # L_000a

  5106                    RPBOT=RPHEAD
31307 @ 263130:                  LINE   5106 "regression-compile-tmp/imp918s.imp"
31308 @ 263168:                  PUSH   RPBOT
31309 @ 263171:                  PUSH   RPHEAD
31310 @ 263174:                  ASSVAL

  5107                    %WHILE SHORTINTEGER(ADDR(ASLIST(RPBOT))+14)#0 %THENC
  5108                       RPBOT=SHORTINTEGER(ADDR(ASLIST(RPBOT))+14)
31311 @ 263175:                  LINE   5107 "regression-compile-tmp/imp918s.imp"
31312 @ 263213:                  LOCATE L_000c
31313 @ 263216:                  PUSH   SHORTINTEGER
31314 @ 263219:                  PUSH   ADDR
31315 @ 263222:                  PUSH   ASLIST
31316 @ 263225:                  PUSH   RPBOT
31317 @ 263228:                  ACCESS
31318 @ 263229:                  ASSPAR
31319 @ 263230:                  CALL  
31320 @ 263231:                  PUSHI  #0x0000000e
31321 @ 263236:                  ADD   
31322 @ 263237:                  ASSPAR
31323 @ 263238:                  CALL  
31324 @ 263239:                  PUSHI  #0x00000000
31325 @ 263244:                  JUMPIF = L_000d
31326 @ 263248:                  PUSH   RPBOT
31327 @ 263251:                  PUSH   SHORTINTEGER
31328 @ 263254:                  PUSH   ADDR
31329 @ 263257:                  PUSH   ASLIST
31330 @ 263260:                  PUSH   RPBOT
31331 @ 263263:                  ACCESS
31332 @ 263264:                  ASSPAR
31333 @ 263265:                  CALL  
31334 @ 263266:                  PUSHI  #0x0000000e
31335 @ 263271:                  ADD   
31336 @ 263272:                  ASSPAR
31337 @ 263273:                  CALL  
31338 @ 263274:                  ASSVAL
31339 @ 263275:                  REPEAT L_000c
31340 @ 263278:                  LOCATE L_000d

  5109                 %FINISH
31341 @ 263281:                  LINE   5109 "regression-compile-tmp/imp918s.imp"
31342 @ 263319:                  LOCATE L_000a

  5110              %FINISH %ELSE %START
31343 @ 263322:                  LINE   5110 "regression-compile-tmp/imp918s.imp"
31344 @ 263360:                  GOTO   L_0006
31345 @ 263363:                  LOCATE L_0007

  5111                %IF RPTYPE=1 %AND C>>16=2 %AND LONGREAL=1 %THEN %C
  5112                 C=32<<16!1 %AND REPLACE1(DUPHEAD,C)
31346 @ 263366:                  LINE   5111 "regression-compile-tmp/imp918s.imp"
31347 @ 263404:                  PUSH   RPTYPE
31348 @ 263407:                  PUSHI  #0x00000001
31349 @ 263412:                  JUMPIF # L_000a
31350 @ 263416:                  PUSH   C
31351 @ 263419:                  PUSHI  #0x00000010
31352 @ 263424:                  RSH   
31353 @ 263425:                  PUSHI  #0x00000002
31354 @ 263430:                  JUMPIF # L_000a
31355 @ 263434:                  PUSH   LONGREAL
31356 @ 263437:                  PUSHI  #0x00000001
31357 @ 263442:                  JUMPIF # L_000a
31358 @ 263446:                  PUSH   C
31359 @ 263449:                  PUSHI  #0x00000020
31360 @ 263454:                  PUSHI  #0x00000010
31361 @ 263459:                  LSH   
31362 @ 263460:                  PUSHI  #0x00000001
31363 @ 263465:                  OR    
31364 @ 263466:                  ASSVAL
31365 @ 263467:                  PUSH   REPLACE1
31366 @ 263470:                  PUSH   DUPHEAD
31367 @ 263473:                  ASSPAR
31368 @ 263474:                  PUSH   C
31369 @ 263477:                  ASSPAR
31370 @ 263478:                  CALL  
31371 @ 263479:                  LOCATE L_000a

  5113                 %IF RPTYPE=3 %THEN %START
31372 @ 263482:                  LINE   5113 "regression-compile-tmp/imp918s.imp"
31373 @ 263520:                  PUSH   RPTYPE
31374 @ 263523:                  PUSHI  #0x00000003
31375 @ 263528:                  JUMPIF # L_000a

  5114                    POP123(DUPHEAD,C,RPINF,RPXTRA);! CHUCK AWAY HEADCELL
31376 @ 263532:                  LINE   5114 "regression-compile-tmp/imp918s.imp"
31377 @ 263570:                  PUSH   POP123
31378 @ 263573:                  PUSH   DUPHEAD
31379 @ 263576:                  ASSPAR
31380 @ 263577:                  PUSH   C
31381 @ 263580:                  ASSPAR
31382 @ 263581:                  PUSH   RPINF
31383 @ 263584:                  ASSPAR
31384 @ 263585:                  PUSH   RPXTRA
31385 @ 263588:                  ASSPAR
31386 @ 263589:                  CALL  

  5115                    D=DUPHEAD;            ! REPLACE BY SUBEXPRESSION
31387 @ 263590:                  LINE   5115 "regression-compile-tmp/imp918s.imp"
31388 @ 263628:                  PUSH   D
31389 @ 263631:                  PUSH   DUPHEAD
31390 @ 263634:                  ASSVAL

  5116                    DUPHEAD=RPINF
31391 @ 263635:                  LINE   5116 "regression-compile-tmp/imp918s.imp"
31392 @ 263673:                  PUSH   DUPHEAD
31393 @ 263676:                  PUSH   RPINF
31394 @ 263679:                  ASSVAL

  5117                    NEXTHEAD==SHORTINTEGER(ADDR(ASLIST(RPXTRA))+14)
31395 @ 263680:                  LINE   5117 "regression-compile-tmp/imp918s.imp"
31396 @ 263718:                  PUSH   NEXTHEAD
31397 @ 263721:                  PUSH   SHORTINTEGER
31398 @ 263724:                  PUSH   ADDR
31399 @ 263727:                  PUSH   ASLIST
31400 @ 263730:                  PUSH   RPXTRA
31401 @ 263733:                  ACCESS
31402 @ 263734:                  ASSPAR
31403 @ 263735:                  CALL  
31404 @ 263736:                  PUSHI  #0x0000000e
31405 @ 263741:                  ADD   
31406 @ 263742:                  ASSPAR
31407 @ 263743:                  CALL  
31408 @ 263744:                  ASSREF

  5118                    NEXTHEAD=D
31409 @ 263745:                  LINE   5118 "regression-compile-tmp/imp918s.imp"
31410 @ 263783:                  PUSH   NEXTHEAD
31411 @ 263786:                  PUSH   D
31412 @ 263789:                  ASSVAL

  5119                    %IF D=0 %THEN RPBOT=RPXTRA
31413 @ 263790:                  LINE   5119 "regression-compile-tmp/imp918s.imp"
31414 @ 263828:                  PUSH   D
31415 @ 263831:                  PUSHI  #0x00000000
31416 @ 263836:                  JUMPIF # L_000d
31417 @ 263840:                  PUSH   RPBOT
31418 @ 263843:                  PUSH   RPXTRA
31419 @ 263846:                  ASSVAL
31420 @ 263847:                  LOCATE L_000d

  5120                 %FINISH
31421 @ 263850:                  LINE   5120 "regression-compile-tmp/imp918s.imp"
31422 @ 263888:                  LOCATE L_000a

  5121                 %IF RPTYPE<10 %AND REAL#0 %THEN %START
31423 @ 263891:                  LINE   5121 "regression-compile-tmp/imp918s.imp"
31424 @ 263929:                  PUSH   RPTYPE
31425 @ 263932:                  PUSHI  #0x0000000a
31426 @ 263937:                  JUMPIF >= L_000a
31427 @ 263941:                  PUSH   REAL
31428 @ 263944:                  PUSHI  #0x00000000
31429 @ 263949:                  JUMPIF = L_000a

  5122                    D=0; PTYPE=C>>16;! UNPACK
  5123  !%if USE MC = 1 %start
  5124  !                  *L_1,PTYPE; *CVD_1,0(11)
  5125  !                  *UNPK_ROUT(5),5(3,11)
  5126  !                  *NC_ROUT(5),MASK1
  5127  !%finish
31430 @ 263953:                  LINE   5122 "regression-compile-tmp/imp918s.imp"
31431 @ 263991:                  PUSH   D
31432 @ 263994:                  PUSHI  #0x00000000
31433 @ 263999:                  ASSVAL
31434 @ 264000:                  LINE   5122 "regression-compile-tmp/imp918s.imp"
31435 @ 264038:                  PUSH   PTYPE
31436 @ 264041:                  PUSH   C
31437 @ 264044:                  PUSHI  #0x00000010
31438 @ 264049:                  RSH   
31439 @ 264050:                  ASSVAL

  5128                    %IF (TYPE=1 %OR TYPE=8) %AND FROM1(NEXTHEAD)&255#25%C
  5129                        %THEN D=12
31440 @ 264051:                  LINE   5128 "regression-compile-tmp/imp918s.imp"
31441 @ 264089:                  PUSH   TYPE
31442 @ 264092:                  PUSHI  #0x00000001
31443 @ 264097:                  JUMPIF = L_000e
31444 @ 264101:                  PUSH   TYPE
31445 @ 264104:                  PUSHI  #0x00000008
31446 @ 264109:                  JUMPIF # L_000d
31447 @ 264113:                  LOCATE L_000e
31448 @ 264116:                  PUSH   FROM1
31449 @ 264119:                  PUSH   NEXTHEAD
31450 @ 264122:                  ASSPAR
31451 @ 264123:                  CALL  
31452 @ 264124:                  PUSHI  #0x000000ff
31453 @ 264129:                  AND   
31454 @ 264130:                  PUSHI  #0x00000019
31455 @ 264135:                  JUMPIF = L_000d
31456 @ 264139:                  PUSH   D
31457 @ 264142:                  PUSHI  #0x0000000c
31458 @ 264147:                  ASSVAL
31459 @ 264148:                  LOCATE L_000d

  5130                    %IF TYPE=2 %AND PREC=0 %AND LONGREAL=1 %THEN D=14
31460 @ 264151:                  LINE   5130 "regression-compile-tmp/imp918s.imp"
31461 @ 264189:                  PUSH   TYPE
31462 @ 264192:                  PUSHI  #0x00000002
31463 @ 264197:                  JUMPIF # L_000d
31464 @ 264201:                  PUSH   PREC
31465 @ 264204:                  PUSHI  #0x00000000
31466 @ 264209:                  JUMPIF # L_000d
31467 @ 264213:                  PUSH   LONGREAL
31468 @ 264216:                  PUSHI  #0x00000001
31469 @ 264221:                  JUMPIF # L_000d
31470 @ 264225:                  PUSH   D
31471 @ 264228:                  PUSHI  #0x0000000e
31472 @ 264233:                  ASSVAL
31473 @ 264234:                  LOCATE L_000d

  5131                    %IF D#0 %THEN %START;      ! FLOAT OR STRETCH REQD
31474 @ 264237:                  LINE   5131 "regression-compile-tmp/imp918s.imp"
31475 @ 264275:                  PUSH   D
31476 @ 264278:                  PUSHI  #0x00000000
31477 @ 264283:                  JUMPIF = L_000d

  5132                       NOPS=NOPS+1
31478 @ 264287:                  LINE   5132 "regression-compile-tmp/imp918s.imp"
31479 @ 264325:                  PUSH   NOPS
31480 @ 264328:                  PUSH   NOPS
31481 @ 264331:                  PUSHI  #0x00000001
31482 @ 264336:                  ADD   
31483 @ 264337:                  ASSVAL

  5133                       PUSH(NEXTHEAD,D,LONGREAL)
31484 @ 264338:                  LINE   5133 "regression-compile-tmp/imp918s.imp"
31485 @ 264376:                  PUSH   PUSH
31486 @ 264379:                  PUSH   NEXTHEAD
31487 @ 264382:                  ASSPAR
31488 @ 264383:                  PUSH   D
31489 @ 264386:                  ASSPAR
31490 @ 264387:                  PUSH   LONGREAL
31491 @ 264390:                  ASSPAR
31492 @ 264391:                  CALL  

  5134                       NEXTHEAD==SHORTINTEGER(ADDR(ASLIST(NEXTHEAD))+14)
31493 @ 264392:                  LINE   5134 "regression-compile-tmp/imp918s.imp"
31494 @ 264430:                  PUSH   NEXTHEAD
31495 @ 264433:                  PUSH   SHORTINTEGER
31496 @ 264436:                  PUSH   ADDR
31497 @ 264439:                  PUSH   ASLIST
31498 @ 264442:                  PUSH   NEXTHEAD
31499 @ 264445:                  ACCESS
31500 @ 264446:                  ASSPAR
31501 @ 264447:                  CALL  
31502 @ 264448:                  PUSHI  #0x0000000e
31503 @ 264453:                  ADD   
31504 @ 264454:                  ASSPAR
31505 @ 264455:                  CALL  
31506 @ 264456:                  ASSREF

  5135                    %FINISH
31507 @ 264457:                  LINE   5135 "regression-compile-tmp/imp918s.imp"
31508 @ 264495:                  LOCATE L_000d

  5136                 %FINISH
31509 @ 264498:                  LINE   5136 "regression-compile-tmp/imp918s.imp"
31510 @ 264536:                  LOCATE L_000a

  5137              %FINISH
31511 @ 264539:                  LINE   5137 "regression-compile-tmp/imp918s.imp"
31512 @ 264577:                  LOCATE L_0006

  5138              DUPHEAD==NEXTHEAD
31513 @ 264580:                  LINE   5138 "regression-compile-tmp/imp918s.imp"
31514 @ 264618:                  PUSH   DUPHEAD
31515 @ 264621:                  PUSH   NEXTHEAD
31516 @ 264624:                  ASSREF

  5139           %REPEAT
31517 @ 264625:                  LINE   5139 "regression-compile-tmp/imp918s.imp"
31518 @ 264663:                  REPEAT L_0003
31519 @ 264666:                  LOCATE L_0004

  5140           %IF MODE&3>=2 %AND REAL=0 %THEN %START
31520 @ 264669:                  LINE   5140 "regression-compile-tmp/imp918s.imp"
31521 @ 264707:                  PUSH   MODE
31522 @ 264710:                  PUSHI  #0x00000003
31523 @ 264715:                  AND   
31524 @ 264716:                  PUSHI  #0x00000002
31525 @ 264721:                  JUMPIF < L_0004
31526 @ 264725:                  PUSH   REAL
31527 @ 264728:                  PUSHI  #0x00000000
31528 @ 264733:                  JUMPIF # L_0004

  5141              REAL=1; NOPS=NOPS+1
31529 @ 264737:                  LINE   5141 "regression-compile-tmp/imp918s.imp"
31530 @ 264775:                  PUSH   REAL
31531 @ 264778:                  PUSHI  #0x00000001
31532 @ 264783:                  ASSVAL
31533 @ 264784:                  LINE   5141 "regression-compile-tmp/imp918s.imp"
31534 @ 264822:                  PUSH   NOPS
31535 @ 264825:                  PUSH   NOPS
31536 @ 264828:                  PUSHI  #0x00000001
31537 @ 264833:                  ADD   
31538 @ 264834:                  ASSVAL

  5142              BINSERT(RPHEAD,RPBOT,12,LONGREAL,0);! FLT RESULT(IF REQD)
31539 @ 264835:                  LINE   5142 "regression-compile-tmp/imp918s.imp"
31540 @ 264873:                  PUSH   BINSERT
31541 @ 264876:                  PUSH   RPHEAD
31542 @ 264879:                  ASSPAR
31543 @ 264880:                  PUSH   RPBOT
31544 @ 264883:                  ASSPAR
31545 @ 264884:                  PUSHI  #0x0000000c
31546 @ 264889:                  ASSPAR
31547 @ 264890:                  PUSH   LONGREAL
31548 @ 264893:                  ASSPAR
31549 @ 264894:                  PUSHI  #0x00000000
31550 @ 264899:                  ASSPAR
31551 @ 264900:                  CALL  

  5143           %FINISH
31552 @ 264901:                  LINE   5143 "regression-compile-tmp/imp918s.imp"
31553 @ 264939:                  LOCATE L_0004

  5144           PTYPE=1+REAL+30*LONGREAL
31554 @ 264942:                  LINE   5144 "regression-compile-tmp/imp918s.imp"
31555 @ 264980:                  PUSH   PTYPE
31556 @ 264983:                  PUSHI  #0x00000001
31557 @ 264988:                  PUSH   REAL
31558 @ 264991:                  ADD   
31559 @ 264992:                  PUSHI  #0x0000001e
31560 @ 264997:                  PUSH   LONGREAL
31561 @ 265000:                  MUL   
31562 @ 265001:                  ADD   
31563 @ 265002:                  ASSVAL

  5145           %IF HEAD=0 %THEN BOT=RPBOT %ELSE %C
  5146              SHORTINTEGER(ADDR(ASLIST(RPBOT))+14)=HEAD
31564 @ 265003:                  LINE   5145 "regression-compile-tmp/imp918s.imp"
31565 @ 265041:                  PUSH   HEAD
31566 @ 265044:                  PUSHI  #0x00000000
31567 @ 265049:                  JUMPIF # L_0004
31568 @ 265053:                  PUSH   BOT
31569 @ 265056:                  PUSH   RPBOT
31570 @ 265059:                  ASSVAL
31571 @ 265060:                  GOTO   L_0003
31572 @ 265063:                  LOCATE L_0004
31573 @ 265066:                  PUSH   SHORTINTEGER
31574 @ 265069:                  PUSH   ADDR
31575 @ 265072:                  PUSH   ASLIST
31576 @ 265075:                  PUSH   RPBOT
31577 @ 265078:                  ACCESS
31578 @ 265079:                  ASSPAR
31579 @ 265080:                  CALL  
31580 @ 265081:                  PUSHI  #0x0000000e
31581 @ 265086:                  ADD   
31582 @ 265087:                  ASSPAR
31583 @ 265088:                  CALL  
31584 @ 265089:                  PUSH   HEAD
31585 @ 265092:                  ASSVAL
31586 @ 265093:                  LOCATE L_0003

  5147           HEAD=RPHEAD;               ! HEAD BACK TO TOP OF LIST
  5148          ! UNPACK
  5149  !%if USE MC = 1 %start
  5150  !            *L_1,PTYPE; *CVD_1,0(11)
  5151  !            *UNPK_ROUT(5),5(3,11)
  5152  !            *NC_ROUT(5),MASK1
  5153  !%finish
31587 @ 265096:                  LINE   5147 "regression-compile-tmp/imp918s.imp"
31588 @ 265134:                  PUSH   HEAD
31589 @ 265137:                  PUSH   RPHEAD
31590 @ 265140:                  ASSVAL

  5154           ADISP=BDISP
31591 @ 265141:                  LINE   5154 "regression-compile-tmp/imp918s.imp"
31592 @ 265179:                  PUSH   ADISP
31593 @ 265182:                  PUSH   BDISP
31594 @ 265185:                  ASSVAL

  5155           %END
31595 @ 265186:                  LINE   5155 "regression-compile-tmp/imp918s.imp"
31596 @ 265224:               END    _lev0id0_CSS_TORP {lev=3 --> 2}

  5156           %ROUTINE EXPOP(%INTEGER INHEAD,REG,NOPS,MODE)
31597 @ 265225:               LINE   5156 "regression-compile-tmp/imp918s.imp"
31598 @ 265263:               DEF    EXPOP (_lev0id0_CSS_EXPOP) p1=V_0177 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
31599 @ 265280:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
31600 @ 265281:                     DEF    INHEAD p1=V_0203 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
31601 @ 265299:                     DEF    REG p1=V_0204 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
31602 @ 265314:                     DEF    NOPS p1=V_0205 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
31603 @ 265330:                     DEF    MODE p1=V_0206 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
31604 @ 265346:                  FINISH ) {lev=3}

  5157           %INTEGERARRAY OPERAND(1:2),STK(0:24)
31605 @ 265347:                  LINE   5157 "regression-compile-tmp/imp918s.imp"
31606 @ 265385:                  DEF    OPERAND p1=V_0207 a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
31607 @ 265404:                  PUSHI  #0x00000001
31608 @ 265409:                  PUSHI  #0x00000002
31609 @ 265414:                  DIM    0001 0001
31610 @ 265420:                  DEF    STK p1=V_0208 a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
31611 @ 265435:                  PUSHI  #0x00000000
31612 @ 265440:                  PUSHI  #0x00000018
31613 @ 265445:                  DIM    0001 0001

  5158           %BYTEINTEGER ADDREXP,RDFORM
31614 @ 265451:                  LINE   5158 "regression-compile-tmp/imp918s.imp"
31615 @ 265489:                  DEF    ADDREXP p1=V_0209 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
31616 @ 265508:                  DEF    RDFORM p1=V_020a a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0

  5159           %RECORD(RD)%NAME OPND1,OPND2
31617 @ 265526:                  LINE   5159 "regression-compile-tmp/imp918s.imp"
31618 @ 265564:                  DEF    OPND1 p1=V_020b a/tf=42 b/format=1be c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
31619 @ 265581:                  DEF    OPND2 p1=V_020c a/tf=42 b/format=1be c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  5160           %INTEGER C,D,E,KK,JJ,OPCODE,COMM,XTRA,STPTR
31620 @ 265598:                  LINE   5160 "regression-compile-tmp/imp918s.imp"
31621 @ 265636:                  DEF    C p1=V_020d 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
31622 @ 265649:                  DEF    D p1=V_020e 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
31623 @ 265662:                  DEF    E p1=V_020f 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
31624 @ 265675:                  DEF    KK p1=V_0210 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
31625 @ 265689:                  DEF    JJ p1=V_0211 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
31626 @ 265703:                  DEF    OPCODE p1=V_0212 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
31627 @ 265721:                  DEF    COMM p1=V_0213 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
31628 @ 265737:                  DEF    XTRA p1=V_0214 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
31629 @ 265753:                  DEF    STPTR p1=V_0215 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

  5161           %INTEGER NEWCC,PP,PT,JJJ
31630 @ 265770:                  LINE   5161 "regression-compile-tmp/imp918s.imp"
31631 @ 265808:                  DEF    NEWCC p1=V_0216 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
31632 @ 265825:                  DEF    PP p1=V_0217 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
31633 @ 265839:                  DEF    PT p1=V_0218 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
31634 @ 265853:                  DEF    JJJ p1=V_0219 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

  5162           %INTEGER SPECREG; SPECREG=REG
31635 @ 265868:                  LINE   5162 "regression-compile-tmp/imp918s.imp"
31636 @ 265906:                  DEF    SPECREG p1=V_021a 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
31637 @ 265925:                  LINE   5162 "regression-compile-tmp/imp918s.imp"
31638 @ 265963:                  PUSH   SPECREG
31639 @ 265966:                  PUSH   REG
31640 @ 265969:                  ASSVAL

  5163           %ROUTINESPEC FLOAT
31641 @ 265970:                  LINE   5163 "regression-compile-tmp/imp918s.imp"
31642 @ 266008:                  DEF    FLOAT (_lev0id0_CSS_EXPOP_FLOAT) p1=V_021b 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
31643 @ 266025:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
31644 @ 266026:                  FINISH ) {lev=3}

  5164           %ROUTINESPEC CTOP(%INTEGERNAME A)
31645 @ 266027:                  LINE   5164 "regression-compile-tmp/imp918s.imp"
31646 @ 266065:                  DEF    CTOP (_lev0id0_CSS_EXPOP_CTOP) p1=V_021c 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
31647 @ 266081:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
31648 @ 266082:                     DEF    A p1=V_021d a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
31649 @ 266095:                  FINISH ) {lev=3}

  5165           %ROUTINESPEC CHOOSE(%INTEGERNAME I)
31650 @ 266096:                  LINE   5165 "regression-compile-tmp/imp918s.imp"
31651 @ 266134:                  DEF    CHOOSE (_lev0id0_CSS_EXPOP_CHOOSE) p1=V_021d 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
31652 @ 266152:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
31653 @ 266153:                     DEF    I p1=V_021e a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
31654 @ 266166:                  FINISH ) {lev=3}

  5166           %INTEGERFNSPEC FINDR
31655 @ 266167:                  LINE   5166 "regression-compile-tmp/imp918s.imp"
31656 @ 266205:                  DEF    FINDR (_lev0id0_CSS_EXPOP_FINDR) p1=V_021e a/tf=18 b/format=1 c/ostate=18  type=1 (integer) form=8 (function) special=0 (<special:0>) linkage=0 (auto) spec=1 indirect=1 unass=0
31657 @ 266222:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
31658 @ 266223:                  FINISH ) {lev=3}

  5167           %ROUTINESPEC CLAIM PAIR(%INTEGERNAME REG)
31659 @ 266224:                  LINE   5167 "regression-compile-tmp/imp918s.imp"
31660 @ 266262:                  DEF    CLAIMPAIR (_lev0id0_CSS_EXPOP_CLAIMPAIR) p1=V_021f 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
31661 @ 266283:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
31662 @ 266284:                     DEF    REG p1=V_0220 a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
31663 @ 266299:                  FINISH ) {lev=3}

  5168           %ROUTINESPEC PUT
31664 @ 266300:                  LINE   5168 "regression-compile-tmp/imp918s.imp"
31665 @ 266338:                  DEF    PUT (_lev0id0_CSS_EXPOP_PUT) p1=V_0220 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
31666 @ 266353:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
31667 @ 266354:                  FINISH ) {lev=3}

  5169           %ROUTINESPEC STARSTAR
31668 @ 266355:                  LINE   5169 "regression-compile-tmp/imp918s.imp"
31669 @ 266393:                  DEF    STARSTAR (_lev0id0_CSS_EXPOP_STARSTAR) p1=V_0221 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
31670 @ 266413:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
31671 @ 266414:                  FINISH ) {lev=3}

  5170           %ROUTINESPEC UNRESERVE(%INTEGER XB)
31672 @ 266415:                  LINE   5170 "regression-compile-tmp/imp918s.imp"
31673 @ 266453:                  DEF    UNRESERVE (_lev0id0_CSS_EXPOP_UNRESERVE) p1=V_0222 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
31674 @ 266474:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
31675 @ 266475:                     DEF    XB p1=V_0223 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
31676 @ 266489:                  FINISH ) {lev=3}

  5171           %ROUTINESPEC LOAD PAIR(%INTEGER I)
31677 @ 266490:                  LINE   5171 "regression-compile-tmp/imp918s.imp"
31678 @ 266528:                  DEF    LOADPAIR (_lev0id0_CSS_EXPOP_LOADPAIR) p1=V_0223 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
31679 @ 266548:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
31680 @ 266549:                     DEF    I p1=V_0224 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
31681 @ 266562:                  FINISH ) {lev=3}

  5172           %ROUTINESPEC LOAD(%RECORD(RD)%NAME OP,%INTEGER REG,MODE)
31682 @ 266563:                  LINE   5172 "regression-compile-tmp/imp918s.imp"
31683 @ 266601:                  DEF    LOAD (_lev0id0_CSS_EXPOP_LOAD) p1=V_0224 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
31684 @ 266617:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
31685 @ 266618:                     DEF    OP p1=V_0225 a/tf=42 b/format=1be c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
31686 @ 266632:                     DEF    REG p1=V_0226 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
31687 @ 266647:                     DEF    MODE p1=V_0227 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
31688 @ 266663:                  FINISH ) {lev=3}

  5173           %CONSTSHORTINTEGERARRAY MCINST(10:31)=X'297',X'193',
  5174                 X'80',X'190',X'81',X'11A',X'19B',X'217',
  5175                 X'216',X'1C',X'9D',X'9D',X'214',X'88',X'89',
  5176                 X'84',X'19',X'19',X'9C',X'89',X'90',X'90'
31689 @ 266664:                  LINE   5173 "regression-compile-tmp/imp918s.imp"
31690 @ 266702:                  PUSHI  #0x0000000a
31691 @ 266707:                  PUSHI  #0x0000001f
31692 @ 266712:                  BOUNDS
31693 @ 266713:                  DEF    MCINST p1=V_0225 a/tf=1b b/format=3 c/ostate=112  type=1 (integer) form=11 (array) special=2 (short-integer) linkage=2 (constant) spec=0 indirect=1 unass=0
31694 @ 266731:                  PUSHI  #0x00000297
31695 @ 266736:                  INIT   1
31696 @ 266739:                  PUSHI  #0x00000193
31697 @ 266744:                  INIT   1
31698 @ 266747:                  PUSHI  #0x00000080
31699 @ 266752:                  INIT   1
31700 @ 266755:                  PUSHI  #0x00000190
31701 @ 266760:                  INIT   1
31702 @ 266763:                  PUSHI  #0x00000081
31703 @ 266768:                  INIT   1
31704 @ 266771:                  PUSHI  #0x0000011a
31705 @ 266776:                  INIT   1
31706 @ 266779:                  PUSHI  #0x0000019b
31707 @ 266784:                  INIT   1
31708 @ 266787:                  PUSHI  #0x00000217
31709 @ 266792:                  INIT   1
31710 @ 266795:                  PUSHI  #0x00000216
31711 @ 266800:                  INIT   1
31712 @ 266803:                  PUSHI  #0x0000001c
31713 @ 266808:                  INIT   1
31714 @ 266811:                  PUSHI  #0x0000009d
31715 @ 266816:                  INIT   1
31716 @ 266819:                  PUSHI  #0x0000009d
31717 @ 266824:                  INIT   1
31718 @ 266827:                  PUSHI  #0x00000214
31719 @ 266832:                  INIT   1
31720 @ 266835:                  PUSHI  #0x00000088
31721 @ 266840:                  INIT   1
31722 @ 266843:                  PUSHI  #0x00000089
31723 @ 266848:                  INIT   1
31724 @ 266851:                  PUSHI  #0x00000084
31725 @ 266856:                  INIT   1
31726 @ 266859:                  PUSHI  #0x00000019
31727 @ 266864:                  INIT   1
31728 @ 266867:                  PUSHI  #0x00000019
31729 @ 266872:                  INIT   1
31730 @ 266875:                  PUSHI  #0x0000009c
31731 @ 266880:                  INIT   1
31732 @ 266883:                  PUSHI  #0x00000089
31733 @ 266888:                  INIT   1
31734 @ 266891:                  PUSHI  #0x00000090
31735 @ 266896:                  INIT   1
31736 @ 266899:                  PUSHI  #0x00000090
31737 @ 266904:                  INIT   1

  5177           %SHORTINTEGER TEMPHEAD
31738 @ 266907:                  LINE   5177 "regression-compile-tmp/imp918s.imp"
31739 @ 266945:                  DEF    TEMPHEAD p1=V_0226 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0

  5178           %SWITCH SW(10:31)
31740 @ 266965:                  LINE   5178 "regression-compile-tmp/imp918s.imp"
31741 @ 267003:                  PUSHI  #0x0000000a
31742 @ 267008:                  PUSHI  #0x0000001f
31743 @ 267013:                  BOUNDS
31744 @ 267014:                  DEF    SW p1=V_0227 a/tf=6 b/format=0 c/ostate=0  type=0 (<type:0>) form=6 (switch) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  5179           %IF INHEAD=0 %THEN %START
31745 @ 267028:                  LINE   5179 "regression-compile-tmp/imp918s.imp"
31746 @ 267066:                  PUSH   INHEAD
31747 @ 267069:                  PUSHI  #0x00000000
31748 @ 267074:                  JUMPIF # L_0004

  5180              NEST=0; %RETURN
31749 @ 267078:                  LINE   5180 "regression-compile-tmp/imp918s.imp"
31750 @ 267116:                  PUSH   NEST
31751 @ 267119:                  PUSHI  #0x00000000
31752 @ 267124:                  ASSVAL
31753 @ 267125:                  LINE   5180 "regression-compile-tmp/imp918s.imp"
31754 @ 267163:                  RETURN

  5181           %FINISH
31755 @ 267164:                  LINE   5181 "regression-compile-tmp/imp918s.imp"
31756 @ 267202:                  LOCATE L_0004

  5182           RDFORM= MODE&16
31757 @ 267205:                  LINE   5182 "regression-compile-tmp/imp918s.imp"
31758 @ 267243:                  PUSH   RDFORM
31759 @ 267246:                  PUSH   MODE
31760 @ 267249:                  PUSHI  #0x00000010
31761 @ 267254:                  AND   
31762 @ 267255:                  ASSVAL

  5183           NEWCC=0; STPTR=0
31763 @ 267256:                  LINE   5183 "regression-compile-tmp/imp918s.imp"
31764 @ 267294:                  PUSH   NEWCC
31765 @ 267297:                  PUSHI  #0x00000000
31766 @ 267302:                  ASSVAL
31767 @ 267303:                  LINE   5183 "regression-compile-tmp/imp918s.imp"
31768 @ 267341:                  PUSH   STPTR
31769 @ 267344:                  PUSHI  #0x00000000
31770 @ 267349:                  ASSVAL

  5184           ADDREXP=MODE>>2&1
31771 @ 267350:                  LINE   5184 "regression-compile-tmp/imp918s.imp"
31772 @ 267388:                  PUSH   ADDREXP
31773 @ 267391:                  PUSH   MODE
31774 @ 267394:                  PUSHI  #0x00000002
31775 @ 267399:                  RSH   
31776 @ 267400:                  PUSHI  #0x00000001
31777 @ 267405:                  AND   
31778 @ 267406:                  ASSVAL

  5185  Label1:       C=INTEGER(ADDR(ASLIST(INHEAD)))
31779 @ 267407:                  LINE   5185 "regression-compile-tmp/imp918s.imp"
31780 @ 267445:                  LABEL  L_0228
31781 @ 267448:                  LINE   5185 "regression-compile-tmp/imp918s.imp"
31782 @ 267486:                  PUSH   C
31783 @ 267489:                  PUSH   INTEGER
31784 @ 267492:                  PUSH   ADDR
31785 @ 267495:                  PUSH   ASLIST
31786 @ 267498:                  PUSH   INHEAD
31787 @ 267501:                  ACCESS
31788 @ 267502:                  ASSPAR
31789 @ 267503:                  CALL  
31790 @ 267504:                  ASSPAR
31791 @ 267505:                  CALL  
31792 @ 267506:                  ASSVAL

  5186           JJ=C&255; D=INHEAD
31793 @ 267507:                  LINE   5186 "regression-compile-tmp/imp918s.imp"
31794 @ 267545:                  PUSH   JJ
31795 @ 267548:                  PUSH   C
31796 @ 267551:                  PUSHI  #0x000000ff
31797 @ 267556:                  AND   
31798 @ 267557:                  ASSVAL
31799 @ 267558:                  LINE   5186 "regression-compile-tmp/imp918s.imp"
31800 @ 267596:                  PUSH   D
31801 @ 267599:                  PUSH   INHEAD
31802 @ 267602:                  ASSVAL

  5187           INHEAD=SHORTINTEGER(ADDR(ASLIST(D))+14)
31803 @ 267603:                  LINE   5187 "regression-compile-tmp/imp918s.imp"
31804 @ 267641:                  PUSH   INHEAD
31805 @ 267644:                  PUSH   SHORTINTEGER
31806 @ 267647:                  PUSH   ADDR
31807 @ 267650:                  PUSH   ASLIST
31808 @ 267653:                  PUSH   D
31809 @ 267656:                  ACCESS
31810 @ 267657:                  ASSPAR
31811 @ 267658:                  CALL  
31812 @ 267659:                  PUSHI  #0x0000000e
31813 @ 267664:                  ADD   
31814 @ 267665:                  ASSPAR
31815 @ 267666:                  CALL  
31816 @ 267667:                  ASSVAL

  5188           %IF JJ>=10 %THEN XTRA=INTEGER(ADDR(ASLIST(D))+4) %AND %C
  5189              ->OPERATOR
31817 @ 267668:                  LINE   5188 "regression-compile-tmp/imp918s.imp"
31818 @ 267706:                  PUSH   JJ
31819 @ 267709:                  PUSHI  #0x0000000a
31820 @ 267714:                  JUMPIF < L_0004
31821 @ 267718:                  PUSH   XTRA
31822 @ 267721:                  PUSH   INTEGER
31823 @ 267724:                  PUSH   ADDR
31824 @ 267727:                  PUSH   ASLIST
31825 @ 267730:                  PUSH   D
31826 @ 267733:                  ACCESS
31827 @ 267734:                  ASSPAR
31828 @ 267735:                  CALL  
31829 @ 267736:                  PUSHI  #0x00000004
31830 @ 267741:                  ADD   
31831 @ 267742:                  ASSPAR
31832 @ 267743:                  CALL  
31833 @ 267744:                  ASSVAL
31834 @ 267745:                  JUMP   L_0229
31835 @ 267748:                  LOCATE L_0004

  5190           STK(STPTR)=D
31836 @ 267751:                  LINE   5190 "regression-compile-tmp/imp918s.imp"
31837 @ 267789:                  PUSH   STK
31838 @ 267792:                  PUSH   STPTR
31839 @ 267795:                  ACCESS
31840 @ 267796:                  PUSH   D
31841 @ 267799:                  ASSVAL

  5191           STPTR=STPTR+1
31842 @ 267800:                  LINE   5191 "regression-compile-tmp/imp918s.imp"
31843 @ 267838:                  PUSH   STPTR
31844 @ 267841:                  PUSH   STPTR
31845 @ 267844:                  PUSHI  #0x00000001
31846 @ 267849:                  ADD   
31847 @ 267850:                  ASSVAL

  5192  Label2:
31848 @ 267851:                  LINE   5192 "regression-compile-tmp/imp918s.imp"
31849 @ 267889:                  LABEL  L_022a

  5193           ->Label1 %UNLESS INHEAD=0 %OR MODE=100
31850 @ 267892:                  LINE   5193 "regression-compile-tmp/imp918s.imp"
31851 @ 267930:                  PUSH   INHEAD
31852 @ 267933:                  PUSHI  #0x00000000
31853 @ 267938:                  JUMPIF = L_0004
31854 @ 267942:                  PUSH   MODE
31855 @ 267945:                  PUSHI  #0x00000064
31856 @ 267950:                  JUMPIF = L_0004
31857 @ 267954:                  JUMP   L_0228
31858 @ 267957:                  LOCATE L_0004

  5194           -> FINISH
31859 @ 267960:                  LINE   5194 "regression-compile-tmp/imp918s.imp"
31860 @ 267998:                  JUMP   L_022b

  5195  OPERATOR:
31861 @ 268001:                  LINE   5195 "regression-compile-tmp/imp918s.imp"
31862 @ 268039:                  LABEL  L_0229

  5196           %IF JJ<15 %THEN KK=1 %ELSE KK=2; ! UNARY OR BINARY
31863 @ 268042:                  LINE   5196 "regression-compile-tmp/imp918s.imp"
31864 @ 268080:                  PUSH   JJ
31865 @ 268083:                  PUSHI  #0x0000000f
31866 @ 268088:                  JUMPIF >= L_0004
31867 @ 268092:                  PUSH   KK
31868 @ 268095:                  PUSHI  #0x00000001
31869 @ 268100:                  ASSVAL
31870 @ 268101:                  GOTO   L_0003
31871 @ 268104:                  LOCATE L_0004
31872 @ 268107:                  PUSH   KK
31873 @ 268110:                  PUSHI  #0x00000002
31874 @ 268115:                  ASSVAL
31875 @ 268116:                  LOCATE L_0003

  5197           %CYCLE KK=KK,-1,1
31876 @ 268119:                  LINE   5197 "regression-compile-tmp/imp918s.imp"
31877 @ 268157:                  PUSH   KK
31878 @ 268160:                  PUSHI  #0x00000001
31879 @ 268165:                  NEGATE
31880 @ 268166:                  PUSHI  #0x00000001
31881 @ 268171:                  PUSH   KK
31882 @ 268174:                  FOR    L_0003

  5198              STPTR=STPTR-1
31883 @ 268177:                  LINE   5198 "regression-compile-tmp/imp918s.imp"
31884 @ 268215:                  PUSH   STPTR
31885 @ 268218:                  PUSH   STPTR
31886 @ 268221:                  PUSHI  #0x00000001
31887 @ 268226:                  SUB   
31888 @ 268227:                  ASSVAL

  5199              C=STK(STPTR)
31889 @ 268228:                  LINE   5199 "regression-compile-tmp/imp918s.imp"
31890 @ 268266:                  PUSH   C
31891 @ 268269:                  PUSH   STK
31892 @ 268272:                  PUSH   STPTR
31893 @ 268275:                  ACCESS
31894 @ 268276:                  ASSVAL

  5200              OPERAND(KK)=C
31895 @ 268277:                  LINE   5200 "regression-compile-tmp/imp918s.imp"
31896 @ 268315:                  PUSH   OPERAND
31897 @ 268318:                  PUSH   KK
31898 @ 268321:                  ACCESS
31899 @ 268322:                  PUSH   C
31900 @ 268325:                  ASSVAL

  5201           %REPEAT
  5202  !         PTYPE=FROM1(C)>>16
  5203          ! UNPACK;                       ! SET PREC ETC.
  5204  !%if USE MC = 1 %start
  5205  !            *L_1,C; *A_1,ASLIST
  5206  !            *LH_1,0(1)
  5207  !            *ST_1,PTYPE; *CVD_1,0(11)
  5208  !            *UNPK_ROUT(5),5(3,11)
  5209  !            *NC_ROUT(5),MASK1
  5210  !%finish
31901 @ 268326:                  LINE   5201 "regression-compile-tmp/imp918s.imp"
31902 @ 268364:                  REPEAT L_0003
31903 @ 268367:                  LOCATE L_0004

  5211           OPCODE=MCINST(JJ)
31904 @ 268370:                  LINE   5211 "regression-compile-tmp/imp918s.imp"
31905 @ 268408:                  PUSH   OPCODE
31906 @ 268411:                  PUSH   MCINST
31907 @ 268414:                  PUSH   JJ
31908 @ 268417:                  ACCESS
31909 @ 268418:                  ASSVAL

  5212           COMM=OPCODE>>7&1;              ! BIT SET IF OPERATOR UNCOMMUTVE
31910 @ 268419:                  LINE   5212 "regression-compile-tmp/imp918s.imp"
31911 @ 268457:                  PUSH   COMM
31912 @ 268460:                  PUSH   OPCODE
31913 @ 268463:                  PUSHI  #0x00000007
31914 @ 268468:                  RSH   
31915 @ 268469:                  PUSHI  #0x00000001
31916 @ 268474:                  AND   
31917 @ 268475:                  ASSVAL

  5213           NEWCC=OPCODE>>8;               ! 0=CC UNKNOWN- 1= CC SRITHMETIC
  5214                                          ! 2= CC LOGICAL AFTER OPERATION
31918 @ 268476:                  LINE   5213 "regression-compile-tmp/imp918s.imp"
31919 @ 268514:                  PUSH   NEWCC
31920 @ 268517:                  PUSH   OPCODE
31921 @ 268520:                  PUSHI  #0x00000008
31922 @ 268525:                  RSH   
31923 @ 268526:                  ASSVAL

  5215           OPCODE=OPCODE&63;             ! OPCODE FOR INTEGER RR INST
31924 @ 268527:                  LINE   5215 "regression-compile-tmp/imp918s.imp"
31925 @ 268565:                  PUSH   OPCODE
31926 @ 268568:                  PUSH   OPCODE
31927 @ 268571:                  PUSHI  #0x0000003f
31928 @ 268576:                  AND   
31929 @ 268577:                  ASSVAL

  5216           %IF COMM=0 %THEN CHOOSE(COMM)
31930 @ 268578:                  LINE   5216 "regression-compile-tmp/imp918s.imp"
31931 @ 268616:                  PUSH   COMM
31932 @ 268619:                  PUSHI  #0x00000000
31933 @ 268624:                  JUMPIF # L_0004
31934 @ 268628:                  PUSH   CHOOSE
31935 @ 268631:                  PUSH   COMM
31936 @ 268634:                  ASSPAR
31937 @ 268635:                  CALL  
31938 @ 268636:                  LOCATE L_0004

  5217           OPND1 == RECORD(ADDR(ASLIST(OPERAND(COMM))))
31939 @ 268639:                  LINE   5217 "regression-compile-tmp/imp918s.imp"
31940 @ 268677:                  PUSH   OPND1
31941 @ 268680:                  PUSH   RECORD
31942 @ 268683:                  PUSH   ADDR
31943 @ 268686:                  PUSH   ASLIST
31944 @ 268689:                  PUSH   OPERAND
31945 @ 268692:                  PUSH   COMM
31946 @ 268695:                  ACCESS
31947 @ 268696:                  ACCESS
31948 @ 268697:                  ASSPAR
31949 @ 268698:                  CALL  
31950 @ 268699:                  ASSPAR
31951 @ 268700:                  CALL  
31952 @ 268701:                  ASSREF

  5218           OPND2== OPND1
31953 @ 268702:                  LINE   5218 "regression-compile-tmp/imp918s.imp"
31954 @ 268740:                  PUSH   OPND2
31955 @ 268743:                  PUSH   OPND1
31956 @ 268746:                  ASSREF

  5219           %IF JJ>=15 %THEN OPND2==RECORD(ADDR(ASLIST(OPERAND(3-COMM))))
31957 @ 268747:                  LINE   5219 "regression-compile-tmp/imp918s.imp"
31958 @ 268785:                  PUSH   JJ
31959 @ 268788:                  PUSHI  #0x0000000f
31960 @ 268793:                  JUMPIF < L_0004
31961 @ 268797:                  PUSH   OPND2
31962 @ 268800:                  PUSH   RECORD
31963 @ 268803:                  PUSH   ADDR
31964 @ 268806:                  PUSH   ASLIST
31965 @ 268809:                  PUSH   OPERAND
31966 @ 268812:                  PUSHI  #0x00000003
31967 @ 268817:                  PUSH   COMM
31968 @ 268820:                  SUB   
31969 @ 268821:                  ACCESS
31970 @ 268822:                  ACCESS
31971 @ 268823:                  ASSPAR
31972 @ 268824:                  CALL  
31973 @ 268825:                  ASSPAR
31974 @ 268826:                  CALL  
31975 @ 268827:                  ASSREF
31976 @ 268828:                  LOCATE L_0004

  5220           %IF OPND1_FLAG<2> OPND2_FLAG %THEN CTOP(JJ)
31977 @ 268831:                  LINE   5220 "regression-compile-tmp/imp918s.imp"
31978 @ 268869:                  PUSH   OPND1
31979 @ 268872:                  SELECT 3
31980 @ 268875:                  PUSHI  #0x00000002
31981 @ 268880:                  JUMPIFD >= L_0004
31982 @ 268884:                  PUSH   OPND2
31983 @ 268887:                  SELECT 3
31984 @ 268890:                  JUMPIF <= L_0004
31985 @ 268894:                  PUSH   CTOP
31986 @ 268897:                  PUSH   JJ
31987 @ 268900:                  ASSPAR
31988 @ 268901:                  CALL  
31989 @ 268902:                  LOCATE L_0004

  5221           ->Label101 %IF JJ=0;              ! CTOP CARRIED OUT
31990 @ 268905:                  LINE   5221 "regression-compile-tmp/imp918s.imp"
31991 @ 268943:                  PUSH   JJ
31992 @ 268946:                  PUSHI  #0x00000000
31993 @ 268951:                  JUMPIF # L_0004
31994 @ 268955:                  JUMP   L_022c
31995 @ 268958:                  LOCATE L_0004

  5222           TYPE=1 %IF TYPE=8
31996 @ 268961:                  LINE   5222 "regression-compile-tmp/imp918s.imp"
31997 @ 268999:                  PUSH   TYPE
31998 @ 269002:                  PUSHI  #0x00000008
31999 @ 269007:                  JUMPIF # L_0004
32000 @ 269011:                  PUSH   TYPE
32001 @ 269014:                  PUSHI  #0x00000001
32002 @ 269019:                  ASSVAL
32003 @ 269020:                  LOCATE L_0004

  5223           -> SW(JJ)
32004 @ 269023:                  LINE   5223 "regression-compile-tmp/imp918s.imp"
32005 @ 269061:                  PUSH   JJ
32006 @ 269064:                  SJUMP  551

  5224  SW(10):                                !  \
32007 @ 269067:                  LINE   5224 "regression-compile-tmp/imp918s.imp"
32008 @ 269105:                  PUSHI  #0x0000000a
32009 @ 269110:                  SLABEL 551

  5225           LOAD(OPND1,-1,2)
32010 @ 269113:                  LINE   5225 "regression-compile-tmp/imp918s.imp"
32011 @ 269151:                  PUSH   LOAD
32012 @ 269154:                  PUSH   OPND1
32013 @ 269157:                  ASSPAR
32014 @ 269158:                  PUSHI  #0x00000001
32015 @ 269163:                  NEGATE
32016 @ 269164:                  ASSPAR
32017 @ 269165:                  PUSHI  #0x00000002
32018 @ 269170:                  ASSPAR
32019 @ 269171:                  CALL  

  5226           FAULT(24,0) %UNLESS TYPE=1
32020 @ 269172:                  LINE   5226 "regression-compile-tmp/imp918s.imp"
32021 @ 269210:                  PUSH   TYPE
32022 @ 269213:                  PUSHI  #0x00000001
32023 @ 269218:                  JUMPIF = L_0004
32024 @ 269222:                  PUSH   FAULT
32025 @ 269225:                  PUSHI  #0x00000018
32026 @ 269230:                  ASSPAR
32027 @ 269231:                  PUSHI  #0x00000000
32028 @ 269236:                  ASSPAR
32029 @ 269237:                  CALL  
32030 @ 269238:                  LOCATE L_0004

  5227           PRX(X'57',OPND1_XB,0,GLA,16)
32031 @ 269241:                  LINE   5227 "regression-compile-tmp/imp918s.imp"
32032 @ 269279:                  PUSH   PRX
32033 @ 269282:                  PUSHI  #0x00000057
32034 @ 269287:                  ASSPAR
32035 @ 269288:                  PUSH   OPND1
32036 @ 269291:                  SELECT 2
32037 @ 269294:                  ASSPAR
32038 @ 269295:                  PUSHI  #0x00000000
32039 @ 269300:                  ASSPAR
32040 @ 269301:                  PUSHI  #0x0000000d
32041 @ 269306:                  ASSPAR
32042 @ 269307:                  PUSHI  #0x00000010
32043 @ 269312:                  ASSPAR
32044 @ 269313:                  CALL  

  5228  Label100:     SET USE((TYPE&2)<<3+OPND1_XB,1,ADDR(ASLIST(OPERAND(COMM))))
32045 @ 269314:                  LINE   5228 "regression-compile-tmp/imp918s.imp"
32046 @ 269352:                  LABEL  L_022d
32047 @ 269355:                  LINE   5228 "regression-compile-tmp/imp918s.imp"
32048 @ 269393:                  PUSH   SETUSE
32049 @ 269396:                  PUSH   TYPE
32050 @ 269399:                  PUSHI  #0x00000002
32051 @ 269404:                  AND   
32052 @ 269405:                  PUSHI  #0x00000003
32053 @ 269410:                  LSH   
32054 @ 269411:                  PUSH   OPND1
32055 @ 269414:                  SELECT 2
32056 @ 269417:                  ADD   
32057 @ 269418:                  ASSPAR
32058 @ 269419:                  PUSHI  #0x00000001
32059 @ 269424:                  ASSPAR
32060 @ 269425:                  PUSH   ADDR
32061 @ 269428:                  PUSH   ASLIST
32062 @ 269431:                  PUSH   OPERAND
32063 @ 269434:                  PUSH   COMM
32064 @ 269437:                  ACCESS
32065 @ 269438:                  ACCESS
32066 @ 269439:                  ASSPAR
32067 @ 269440:                  CALL  
32068 @ 269441:                  ASSPAR
32069 @ 269442:                  CALL  

  5229  Label101:     STK(STPTR)=OPERAND(COMM)
32070 @ 269443:                  LINE   5229 "regression-compile-tmp/imp918s.imp"
32071 @ 269481:                  LABEL  L_022c
32072 @ 269484:                  LINE   5229 "regression-compile-tmp/imp918s.imp"
32073 @ 269522:                  PUSH   STK
32074 @ 269525:                  PUSH   STPTR
32075 @ 269528:                  ACCESS
32076 @ 269529:                  PUSH   OPERAND
32077 @ 269532:                  PUSH   COMM
32078 @ 269535:                  ACCESS
32079 @ 269536:                  ASSVAL

  5230           STPTR=STPTR+1
32080 @ 269537:                  LINE   5230 "regression-compile-tmp/imp918s.imp"
32081 @ 269575:                  PUSH   STPTR
32082 @ 269578:                  PUSH   STPTR
32083 @ 269581:                  PUSHI  #0x00000001
32084 @ 269586:                  ADD   
32085 @ 269587:                  ASSVAL

  5231           %IF NEWCC#0 %THEN CCSTATE=NEWCC<<16!(TYPE&2)<<3!OPND1_XB
32086 @ 269588:                  LINE   5231 "regression-compile-tmp/imp918s.imp"
32087 @ 269626:                  PUSH   NEWCC
32088 @ 269629:                  PUSHI  #0x00000000
32089 @ 269634:                  JUMPIF = L_0004
32090 @ 269638:                  PUSH   CCSTATE
32091 @ 269641:                  PUSH   NEWCC
32092 @ 269644:                  PUSHI  #0x00000010
32093 @ 269649:                  LSH   
32094 @ 269650:                  PUSH   TYPE
32095 @ 269653:                  PUSHI  #0x00000002
32096 @ 269658:                  AND   
32097 @ 269659:                  PUSHI  #0x00000003
32098 @ 269664:                  LSH   
32099 @ 269665:                  OR    
32100 @ 269666:                  PUSH   OPND1
32101 @ 269669:                  SELECT 2
32102 @ 269672:                  OR    
32103 @ 269673:                  ASSVAL
32104 @ 269674:                  LOCATE L_0004

  5232           ->Label2;                            ! SAVE CONDITION CODE STATE
32105 @ 269677:                  LINE   5232 "regression-compile-tmp/imp918s.imp"
32106 @ 269715:                  JUMP   L_022a

  5233  SW(11): SW(13):                        ! NEGATE: ABS
32107 @ 269718:                  LINE   5233 "regression-compile-tmp/imp918s.imp"
32108 @ 269756:                  PUSHI  #0x0000000b
32109 @ 269761:                  SLABEL 551
32110 @ 269764:                  LINE   5233 "regression-compile-tmp/imp918s.imp"
32111 @ 269802:                  PUSHI  #0x0000000d
32112 @ 269807:                  SLABEL 551

  5234           LOAD(OPND1,-1,2)
32113 @ 269810:                  LINE   5234 "regression-compile-tmp/imp918s.imp"
32114 @ 269848:                  PUSH   LOAD
32115 @ 269851:                  PUSH   OPND1
32116 @ 269854:                  ASSPAR
32117 @ 269855:                  PUSHI  #0x00000001
32118 @ 269860:                  NEGATE
32119 @ 269861:                  ASSPAR
32120 @ 269862:                  PUSHI  #0x00000002
32121 @ 269867:                  ASSPAR
32122 @ 269868:                  CALL  

  5235           TEMPHEAD=0
32123 @ 269869:                  LINE   5235 "regression-compile-tmp/imp918s.imp"
32124 @ 269907:                  PUSH   TEMPHEAD
32125 @ 269910:                  PUSHI  #0x00000000
32126 @ 269915:                  ASSVAL

  5236           %IF NOPS=1 %AND REG>=0 %THEN %START
32127 @ 269916:                  LINE   5236 "regression-compile-tmp/imp918s.imp"
32128 @ 269954:                  PUSH   NOPS
32129 @ 269957:                  PUSHI  #0x00000001
32130 @ 269962:                  JUMPIF # L_0004
32131 @ 269966:                  PUSH   REG
32132 @ 269969:                  PUSHI  #0x00000000
32133 @ 269974:                  JUMPIF < L_0004

  5237              PUSH(TEMPHEAD,INTEGER(ADDR(OPND1)),OPND1_D)
32134 @ 269978:                  LINE   5237 "regression-compile-tmp/imp918s.imp"
32135 @ 270016:                  PUSH   PUSH
32136 @ 270019:                  PUSH   TEMPHEAD
32137 @ 270022:                  ASSPAR
32138 @ 270023:                  PUSH   INTEGER
32139 @ 270026:                  PUSH   ADDR
32140 @ 270029:                  PUSH   OPND1
32141 @ 270032:                  ASSPAR
32142 @ 270033:                  CALL  
32143 @ 270034:                  ASSPAR
32144 @ 270035:                  CALL  
32145 @ 270036:                  ASSPAR
32146 @ 270037:                  PUSH   OPND1
32147 @ 270040:                  SELECT 4
32148 @ 270043:                  ASSPAR
32149 @ 270044:                  CALL  

  5238              OPND2== RECORD(ADDR(ASLIST(TEMPHEAD)))
32150 @ 270045:                  LINE   5238 "regression-compile-tmp/imp918s.imp"
32151 @ 270083:                  PUSH   OPND2
32152 @ 270086:                  PUSH   RECORD
32153 @ 270089:                  PUSH   ADDR
32154 @ 270092:                  PUSH   ASLIST
32155 @ 270095:                  PUSH   TEMPHEAD
32156 @ 270098:                  ACCESS
32157 @ 270099:                  ASSPAR
32158 @ 270100:                  CALL  
32159 @ 270101:                  ASSPAR
32160 @ 270102:                  CALL  
32161 @ 270103:                  ASSREF

  5239              OPND1_XB=REG
32162 @ 270104:                  LINE   5239 "regression-compile-tmp/imp918s.imp"
32163 @ 270142:                  PUSH   OPND1
32164 @ 270145:                  SELECT 2
32165 @ 270148:                  PUSH   REG
32166 @ 270151:                  ASSVAL

  5240           %FINISH
32167 @ 270152:                  LINE   5240 "regression-compile-tmp/imp918s.imp"
32168 @ 270190:                  LOCATE L_0004

  5241           PUT
32169 @ 270193:                  LINE   5241 "regression-compile-tmp/imp918s.imp"
32170 @ 270231:                  PUSH   PUT
32171 @ 270234:                  CALL  

  5242           CLEAR LIST(TEMPHEAD) %IF TEMPHEAD#0
32172 @ 270235:                  LINE   5242 "regression-compile-tmp/imp918s.imp"
32173 @ 270273:                  PUSH   TEMPHEAD
32174 @ 270276:                  PUSHI  #0x00000000
32175 @ 270281:                  JUMPIF = L_0004
32176 @ 270285:                  PUSH   CLEARLIST
32177 @ 270288:                  PUSH   TEMPHEAD
32178 @ 270291:                  ASSPAR
32179 @ 270292:                  CALL  
32180 @ 270293:                  LOCATE L_0004

  5243           ->Label101
32181 @ 270296:                  LINE   5243 "regression-compile-tmp/imp918s.imp"
32182 @ 270334:                  JUMP   L_022c

  5244  SW(12):                                ! FLOAT
32183 @ 270337:                  LINE   5244 "regression-compile-tmp/imp918s.imp"
32184 @ 270375:                  PUSHI  #0x0000000c
32185 @ 270380:                  SLABEL 551

  5245           LOAD(OPND1,-1,0);                 ! LEAVE IN CORE
32186 @ 270383:                  LINE   5245 "regression-compile-tmp/imp918s.imp"
32187 @ 270421:                  PUSH   LOAD
32188 @ 270424:                  PUSH   OPND1
32189 @ 270427:                  ASSPAR
32190 @ 270428:                  PUSHI  #0x00000001
32191 @ 270433:                  NEGATE
32192 @ 270434:                  ASSPAR
32193 @ 270435:                  PUSHI  #0x00000000
32194 @ 270440:                  ASSPAR
32195 @ 270441:                  CALL  

  5246           FLOAT
32196 @ 270442:                  LINE   5246 "regression-compile-tmp/imp918s.imp"
32197 @ 270480:                  PUSH   FLOAT
32198 @ 270483:                  CALL  

  5247           TYPE=2; OPND1_FLAG=9
32199 @ 270484:                  LINE   5247 "regression-compile-tmp/imp918s.imp"
32200 @ 270522:                  PUSH   TYPE
32201 @ 270525:                  PUSHI  #0x00000002
32202 @ 270530:                  ASSVAL
32203 @ 270531:                  LINE   5247 "regression-compile-tmp/imp918s.imp"
32204 @ 270569:                  PUSH   OPND1
32205 @ 270572:                  SELECT 3
32206 @ 270575:                  PUSHI  #0x00000009
32207 @ 270580:                  ASSVAL

  5248           OPND1_XB=D; OPND1_D=-2
32208 @ 270581:                  LINE   5248 "regression-compile-tmp/imp918s.imp"
32209 @ 270619:                  PUSH   OPND1
32210 @ 270622:                  SELECT 2
32211 @ 270625:                  PUSH   D
32212 @ 270628:                  ASSVAL
32213 @ 270629:                  LINE   5248 "regression-compile-tmp/imp918s.imp"
32214 @ 270667:                  PUSH   OPND1
32215 @ 270670:                  SELECT 4
32216 @ 270673:                  PUSHI  #0x00000002
32217 @ 270678:                  NEGATE
32218 @ 270679:                  ASSVAL

  5249           OPND1_PTYPE=30*XTRA+2;  ->Label100
32219 @ 270680:                  LINE   5249 "regression-compile-tmp/imp918s.imp"
32220 @ 270718:                  PUSH   OPND1
32221 @ 270721:                  SELECT 1
32222 @ 270724:                  PUSHI  #0x0000001e
32223 @ 270729:                  PUSH   XTRA
32224 @ 270732:                  MUL   
32225 @ 270733:                  PUSHI  #0x00000002
32226 @ 270738:                  ADD   
32227 @ 270739:                  ASSVAL
32228 @ 270740:                  LINE   5249 "regression-compile-tmp/imp918s.imp"
32229 @ 270778:                  JUMP   L_022d

  5250  SW(14):                                ! STRETCH
32230 @ 270781:                  LINE   5250 "regression-compile-tmp/imp918s.imp"
32231 @ 270819:                  PUSHI  #0x0000000e
32232 @ 270824:                  SLABEL 551

  5251           LOAD(OPND1,-1,1)
32233 @ 270827:                  LINE   5251 "regression-compile-tmp/imp918s.imp"
32234 @ 270865:                  PUSH   LOAD
32235 @ 270868:                  PUSH   OPND1
32236 @ 270871:                  ASSPAR
32237 @ 270872:                  PUSHI  #0x00000001
32238 @ 270877:                  NEGATE
32239 @ 270878:                  ASSPAR
32240 @ 270879:                  PUSHI  #0x00000001
32241 @ 270884:                  ASSPAR
32242 @ 270885:                  CALL  

  5252           CLAIM (FR0,D); PRR(X'2B',D,D)
32243 @ 270886:                  LINE   5252 "regression-compile-tmp/imp918s.imp"
32244 @ 270924:                  PUSH   CLAIM
32245 @ 270927:                  PUSHI  #0xfffe1610
32246 @ 270932:                  ASSPAR
32247 @ 270933:                  PUSH   D
32248 @ 270936:                  ASSPAR
32249 @ 270937:                  CALL  
32250 @ 270938:                  LINE   5252 "regression-compile-tmp/imp918s.imp"
32251 @ 270976:                  PUSH   PRR
32252 @ 270979:                  PUSHI  #0x0000002b
32253 @ 270984:                  ASSPAR
32254 @ 270985:                  PUSH   D
32255 @ 270988:                  ASSPAR
32256 @ 270989:                  PUSH   D
32257 @ 270992:                  ASSPAR
32258 @ 270993:                  CALL  

  5253           CCSTATE=-1
32259 @ 270994:                  LINE   5253 "regression-compile-tmp/imp918s.imp"
32260 @ 271032:                  PUSH   CCSTATE
32261 @ 271035:                  PUSHI  #0x00000001
32262 @ 271040:                  NEGATE
32263 @ 271041:                  ASSVAL

  5254           FORGET(D+16)
32264 @ 271042:                  LINE   5254 "regression-compile-tmp/imp918s.imp"
32265 @ 271080:                  PUSH   FORGET
32266 @ 271083:                  PUSH   D
32267 @ 271086:                  PUSHI  #0x00000010
32268 @ 271091:                  ADD   
32269 @ 271092:                  ASSPAR
32270 @ 271093:                  CALL  

  5255           LOAD(OPND1,D,2)
32271 @ 271094:                  LINE   5255 "regression-compile-tmp/imp918s.imp"
32272 @ 271132:                  PUSH   LOAD
32273 @ 271135:                  PUSH   OPND1
32274 @ 271138:                  ASSPAR
32275 @ 271139:                  PUSH   D
32276 @ 271142:                  ASSPAR
32277 @ 271143:                  PUSHI  #0x00000002
32278 @ 271148:                  ASSPAR
32279 @ 271149:                  CALL  

  5256           OPND1_PTYPE=32; ->Label100
32280 @ 271150:                  LINE   5256 "regression-compile-tmp/imp918s.imp"
32281 @ 271188:                  PUSH   OPND1
32282 @ 271191:                  SELECT 1
32283 @ 271194:                  PUSHI  #0x00000020
32284 @ 271199:                  ASSVAL
32285 @ 271200:                  LINE   5256 "regression-compile-tmp/imp918s.imp"
32286 @ 271238:                  JUMP   L_022d

  5257  SW(15):                                ! ADD
32287 @ 271241:                  LINE   5257 "regression-compile-tmp/imp918s.imp"
32288 @ 271279:                  PUSHI  #0x0000000f
32289 @ 271284:                  SLABEL 551

  5258  Label151:     LOAD(OPND1,-1,0) %UNLESS OPND1_FLAG<=2 %C
  5259                    %AND OPND1_XB=0 %AND OPND1_PTYPE<100
32290 @ 271287:                  LINE   5258 "regression-compile-tmp/imp918s.imp"
32291 @ 271325:                  LABEL  L_022e
32292 @ 271328:                  LINE   5258 "regression-compile-tmp/imp918s.imp"
32293 @ 271366:                  PUSH   OPND1
32294 @ 271369:                  SELECT 3
32295 @ 271372:                  PUSHI  #0x00000002
32296 @ 271377:                  JUMPIF > L_0005
32297 @ 271381:                  PUSH   OPND1
32298 @ 271384:                  SELECT 2
32299 @ 271387:                  PUSHI  #0x00000000
32300 @ 271392:                  JUMPIF # L_0005
32301 @ 271396:                  PUSH   OPND1
32302 @ 271399:                  SELECT 1
32303 @ 271402:                  PUSHI  #0x00000064
32304 @ 271407:                  JUMPIF < L_0004
32305 @ 271411:                  LOCATE L_0005
32306 @ 271414:                  PUSH   LOAD
32307 @ 271417:                  PUSH   OPND1
32308 @ 271420:                  ASSPAR
32309 @ 271421:                  PUSHI  #0x00000001
32310 @ 271426:                  NEGATE
32311 @ 271427:                  ASSPAR
32312 @ 271428:                  PUSHI  #0x00000000
32313 @ 271433:                  ASSPAR
32314 @ 271434:                  CALL  
32315 @ 271435:                  LOCATE L_0004

  5260           LOAD(OPND2,-1,1)
32316 @ 271438:                  LINE   5260 "regression-compile-tmp/imp918s.imp"
32317 @ 271476:                  PUSH   LOAD
32318 @ 271479:                  PUSH   OPND2
32319 @ 271482:                  ASSPAR
32320 @ 271483:                  PUSHI  #0x00000001
32321 @ 271488:                  NEGATE
32322 @ 271489:                  ASSPAR
32323 @ 271490:                  PUSHI  #0x00000001
32324 @ 271495:                  ASSPAR
32325 @ 271496:                  CALL  

  5261           LOAD(OPND1,-1,2)%UNLESS OPND1_FLAG=9 %AND OPND1_D<0;! IN CASE RT CALL
32326 @ 271497:                  LINE   5261 "regression-compile-tmp/imp918s.imp"
32327 @ 271535:                  PUSH   OPND1
32328 @ 271538:                  SELECT 3
32329 @ 271541:                  PUSHI  #0x00000009
32330 @ 271546:                  JUMPIF # L_0005
32331 @ 271550:                  PUSH   OPND1
32332 @ 271553:                  SELECT 4
32333 @ 271556:                  PUSHI  #0x00000000
32334 @ 271561:                  JUMPIF < L_0004
32335 @ 271565:                  LOCATE L_0005
32336 @ 271568:                  PUSH   LOAD
32337 @ 271571:                  PUSH   OPND1
32338 @ 271574:                  ASSPAR
32339 @ 271575:                  PUSHI  #0x00000001
32340 @ 271580:                  NEGATE
32341 @ 271581:                  ASSPAR
32342 @ 271582:                  PUSHI  #0x00000002
32343 @ 271587:                  ASSPAR
32344 @ 271588:                  CALL  
32345 @ 271589:                  LOCATE L_0004

  5262           PUT; ->Label101
32346 @ 271592:                  LINE   5262 "regression-compile-tmp/imp918s.imp"
32347 @ 271630:                  PUSH   PUT
32348 @ 271633:                  CALL  
32349 @ 271634:                  LINE   5262 "regression-compile-tmp/imp918s.imp"
32350 @ 271672:                  JUMP   L_022c

  5263  SW(16):                                ! SUBTRACT
32351 @ 271675:                  LINE   5263 "regression-compile-tmp/imp918s.imp"
32352 @ 271713:                  PUSHI  #0x00000010
32353 @ 271718:                  SLABEL 551

  5264           ->Label151%UNLESS(TYPE=1 %OR TYPE=8)%AND OPND2_FLAG=0 %AND OPND2_D=1
32354 @ 271721:                  LINE   5264 "regression-compile-tmp/imp918s.imp"
32355 @ 271759:                  PUSH   TYPE
32356 @ 271762:                  PUSHI  #0x00000001
32357 @ 271767:                  JUMPIF = L_0006
32358 @ 271771:                  PUSH   TYPE
32359 @ 271774:                  PUSHI  #0x00000008
32360 @ 271779:                  JUMPIF # L_0005
32361 @ 271783:                  LOCATE L_0006
32362 @ 271786:                  PUSH   OPND2
32363 @ 271789:                  SELECT 3
32364 @ 271792:                  PUSHI  #0x00000000
32365 @ 271797:                  JUMPIF # L_0005
32366 @ 271801:                  PUSH   OPND2
32367 @ 271804:                  SELECT 4
32368 @ 271807:                  PUSHI  #0x00000001
32369 @ 271812:                  JUMPIF = L_0004
32370 @ 271816:                  LOCATE L_0005
32371 @ 271819:                  JUMP   L_022e
32372 @ 271822:                  LOCATE L_0004

  5265           LOAD(OPND1,-1,2)
32373 @ 271825:                  LINE   5265 "regression-compile-tmp/imp918s.imp"
32374 @ 271863:                  PUSH   LOAD
32375 @ 271866:                  PUSH   OPND1
32376 @ 271869:                  ASSPAR
32377 @ 271870:                  PUSHI  #0x00000001
32378 @ 271875:                  NEGATE
32379 @ 271876:                  ASSPAR
32380 @ 271877:                  PUSHI  #0x00000002
32381 @ 271882:                  ASSPAR
32382 @ 271883:                  CALL  

  5266           PRR(6,OPND1_XB,0);            ! BCTR
32383 @ 271884:                  LINE   5266 "regression-compile-tmp/imp918s.imp"
32384 @ 271922:                  PUSH   PRR
32385 @ 271925:                  PUSHI  #0x00000006
32386 @ 271930:                  ASSPAR
32387 @ 271931:                  PUSH   OPND1
32388 @ 271934:                  SELECT 2
32389 @ 271937:                  ASSPAR
32390 @ 271938:                  PUSHI  #0x00000000
32391 @ 271943:                  ASSPAR
32392 @ 271944:                  CALL  

  5267           NEWCC=0; ->Label100;               ! BCTR DOES NOT SET CC
32393 @ 271945:                  LINE   5267 "regression-compile-tmp/imp918s.imp"
32394 @ 271983:                  PUSH   NEWCC
32395 @ 271986:                  PUSHI  #0x00000000
32396 @ 271991:                  ASSVAL
32397 @ 271992:                  LINE   5267 "regression-compile-tmp/imp918s.imp"
32398 @ 272030:                  JUMP   L_022d

  5268  SW(17):                                ! EXCLUSIVE OR
32399 @ 272033:                  LINE   5268 "regression-compile-tmp/imp918s.imp"
32400 @ 272071:                  PUSHI  #0x00000011
32401 @ 272076:                  SLABEL 551

  5269  SW(18):                                ! OR
32402 @ 272079:                  LINE   5269 "regression-compile-tmp/imp918s.imp"
32403 @ 272117:                  PUSHI  #0x00000012
32404 @ 272122:                  SLABEL 551

  5270  SW(22):                                ! AND
32405 @ 272125:                  LINE   5270 "regression-compile-tmp/imp918s.imp"
32406 @ 272163:                  PUSHI  #0x00000016
32407 @ 272168:                  SLABEL 551

  5271           ->Label151 %IF TYPE=1
32408 @ 272171:                  LINE   5271 "regression-compile-tmp/imp918s.imp"
32409 @ 272209:                  PUSH   TYPE
32410 @ 272212:                  PUSHI  #0x00000001
32411 @ 272217:                  JUMPIF # L_0004
32412 @ 272221:                  JUMP   L_022e
32413 @ 272224:                  LOCATE L_0004

  5272  F24:         FAULT(24,0)
32414 @ 272227:                  LINE   5272 "regression-compile-tmp/imp918s.imp"
32415 @ 272265:                  LABEL  L_022f
32416 @ 272268:                  LINE   5272 "regression-compile-tmp/imp918s.imp"
32417 @ 272306:                  PUSH   FAULT
32418 @ 272309:                  PUSHI  #0x00000018
32419 @ 272314:                  ASSPAR
32420 @ 272315:                  PUSHI  #0x00000000
32421 @ 272320:                  ASSPAR
32422 @ 272321:                  CALL  

  5273           JJ=15; OPCODE=X'1A'; ->Label151; ! CHANGE OPN TO +
32423 @ 272322:                  LINE   5273 "regression-compile-tmp/imp918s.imp"
32424 @ 272360:                  PUSH   JJ
32425 @ 272363:                  PUSHI  #0x0000000f
32426 @ 272368:                  ASSVAL
32427 @ 272369:                  LINE   5273 "regression-compile-tmp/imp918s.imp"
32428 @ 272407:                  PUSH   OPCODE
32429 @ 272410:                  PUSHI  #0x0000001a
32430 @ 272415:                  ASSVAL
32431 @ 272416:                  LINE   5273 "regression-compile-tmp/imp918s.imp"
32432 @ 272454:                  JUMP   L_022e

  5274  SW(23):                                ! SRL
32433 @ 272457:                  LINE   5274 "regression-compile-tmp/imp918s.imp"
32434 @ 272495:                  PUSHI  #0x00000017
32435 @ 272500:                  SLABEL 551

  5275  SW(24):                                ! SLL
32436 @ 272503:                  LINE   5275 "regression-compile-tmp/imp918s.imp"
32437 @ 272541:                  PUSHI  #0x00000018
32438 @ 272546:                  SLABEL 551

  5276           ->F24 %UNLESS TYPE=1
32439 @ 272549:                  LINE   5276 "regression-compile-tmp/imp918s.imp"
32440 @ 272587:                  PUSH   TYPE
32441 @ 272590:                  PUSHI  #0x00000001
32442 @ 272595:                  JUMPIF = L_0004
32443 @ 272599:                  JUMP   L_022f
32444 @ 272602:                  LOCATE L_0004

  5277            D=0; D=1 %IF OPND2_FLAG=0
32445 @ 272605:                  LINE   5277 "regression-compile-tmp/imp918s.imp"
32446 @ 272643:                  PUSH   D
32447 @ 272646:                  PUSHI  #0x00000000
32448 @ 272651:                  ASSVAL
32449 @ 272652:                  LINE   5277 "regression-compile-tmp/imp918s.imp"
32450 @ 272690:                  PUSH   OPND2
32451 @ 272693:                  SELECT 3
32452 @ 272696:                  PUSHI  #0x00000000
32453 @ 272701:                  JUMPIF # L_0004
32454 @ 272705:                  PUSH   D
32455 @ 272708:                  PUSHI  #0x00000001
32456 @ 272713:                  ASSVAL
32457 @ 272714:                  LOCATE L_0004

  5278           LOAD(OPND1,-1,D<<1);              ! MUST LOAD %IF CONST
32458 @ 272717:                  LINE   5278 "regression-compile-tmp/imp918s.imp"
32459 @ 272755:                  PUSH   LOAD
32460 @ 272758:                  PUSH   OPND1
32461 @ 272761:                  ASSPAR
32462 @ 272762:                  PUSHI  #0x00000001
32463 @ 272767:                  NEGATE
32464 @ 272768:                  ASSPAR
32465 @ 272769:                  PUSH   D
32466 @ 272772:                  PUSHI  #0x00000001
32467 @ 272777:                  LSH   
32468 @ 272778:                  ASSPAR
32469 @ 272779:                  CALL  

  5279           %IF D=0 %THEN %START
  5280  ! DIFFICULT AS MAY SHIFT BY A FN AND CANNOT SHIFT BY GR0
32470 @ 272780:                  LINE   5279 "regression-compile-tmp/imp918s.imp"
32471 @ 272818:                  PUSH   D
32472 @ 272821:                  PUSHI  #0x00000000
32473 @ 272826:                  JUMPIF # L_0004

  5281           LOAD(OPND2,-2,0)          ;! INSPECT SHIFTER
32474 @ 272830:                  LINE   5281 "regression-compile-tmp/imp918s.imp"
32475 @ 272868:                  PUSH   LOAD
32476 @ 272871:                  PUSH   OPND2
32477 @ 272874:                  ASSPAR
32478 @ 272875:                  PUSHI  #0x00000002
32479 @ 272880:                  NEGATE
32480 @ 272881:                  ASSPAR
32481 @ 272882:                  PUSHI  #0x00000000
32482 @ 272887:                  ASSPAR
32483 @ 272888:                  CALL  

  5282           LOAD(OPND1,-1,2);     ! LOAD UP SHIFTED TO ANY REGISTER
32484 @ 272889:                  LINE   5282 "regression-compile-tmp/imp918s.imp"
32485 @ 272927:                  PUSH   LOAD
32486 @ 272930:                  PUSH   OPND1
32487 @ 272933:                  ASSPAR
32488 @ 272934:                  PUSHI  #0x00000001
32489 @ 272939:                  NEGATE
32490 @ 272940:                  ASSPAR
32491 @ 272941:                  PUSHI  #0x00000002
32492 @ 272946:                  ASSPAR
32493 @ 272947:                  CALL  

  5283           LOAD(OPND2,-2,1)
32494 @ 272948:                  LINE   5283 "regression-compile-tmp/imp918s.imp"
32495 @ 272986:                  PUSH   LOAD
32496 @ 272989:                  PUSH   OPND2
32497 @ 272992:                  ASSPAR
32498 @ 272993:                  PUSHI  #0x00000002
32499 @ 272998:                  NEGATE
32500 @ 272999:                  ASSPAR
32501 @ 273000:                  PUSHI  #0x00000001
32502 @ 273005:                  ASSPAR
32503 @ 273006:                  CALL  

  5284           %UNLESS OPND2_FLAG=9 %AND OPND2_D<0 %AND OPND2_XB>0 %THENSTART
32504 @ 273007:                  LINE   5284 "regression-compile-tmp/imp918s.imp"
32505 @ 273045:                  PUSH   OPND2
32506 @ 273048:                  SELECT 3
32507 @ 273051:                  PUSHI  #0x00000009
32508 @ 273056:                  JUMPIF # L_0008
32509 @ 273060:                  PUSH   OPND2
32510 @ 273063:                  SELECT 4
32511 @ 273066:                  PUSHI  #0x00000000
32512 @ 273071:                  JUMPIF >= L_0008
32513 @ 273075:                  PUSH   OPND2
32514 @ 273078:                  SELECT 2
32515 @ 273081:                  PUSHI  #0x00000000
32516 @ 273086:                  JUMPIF > L_0007
32517 @ 273090:                  LOCATE L_0008

  5285           FIND REG(GR1,C);       ! REG TO SHIFT BY (NOT GR0 !)
32518 @ 273093:                  LINE   5285 "regression-compile-tmp/imp918s.imp"
32519 @ 273131:                  PUSH   FINDREG
32520 @ 273134:                  PUSHI  #0x0001010f
32521 @ 273139:                  ASSPAR
32522 @ 273140:                  PUSH   C
32523 @ 273143:                  ASSPAR
32524 @ 273144:                  CALL  

  5286           LOAD(OPND2,C,2); %FINISH;  ! LOAD SHIFTER ( OR MOVE OUT OF GR0)
32525 @ 273145:                  LINE   5286 "regression-compile-tmp/imp918s.imp"
32526 @ 273183:                  PUSH   LOAD
32527 @ 273186:                  PUSH   OPND2
32528 @ 273189:                  ASSPAR
32529 @ 273190:                  PUSH   C
32530 @ 273193:                  ASSPAR
32531 @ 273194:                  PUSHI  #0x00000002
32532 @ 273199:                  ASSPAR
32533 @ 273200:                  CALL  
32534 @ 273201:                  LINE   5286 "regression-compile-tmp/imp918s.imp"
32535 @ 273239:                  LOCATE L_0007

  5287           %FINISH;               ! CA NOW PLANT THE OPERATION
32536 @ 273242:                  LINE   5287 "regression-compile-tmp/imp918s.imp"
32537 @ 273280:                  LOCATE L_0004

  5288           PRX(X'80'+OPCODE,OPND1_XB,0,OPND2_XB,D*OPND2_D)
32538 @ 273283:                  LINE   5288 "regression-compile-tmp/imp918s.imp"
32539 @ 273321:                  PUSH   PRX
32540 @ 273324:                  PUSHI  #0x00000080
32541 @ 273329:                  PUSH   OPCODE
32542 @ 273332:                  ADD   
32543 @ 273333:                  ASSPAR
32544 @ 273334:                  PUSH   OPND1
32545 @ 273337:                  SELECT 2
32546 @ 273340:                  ASSPAR
32547 @ 273341:                  PUSHI  #0x00000000
32548 @ 273346:                  ASSPAR
32549 @ 273347:                  PUSH   OPND2
32550 @ 273350:                  SELECT 2
32551 @ 273353:                  ASSPAR
32552 @ 273354:                  PUSH   D
32553 @ 273357:                  PUSH   OPND2
32554 @ 273360:                  SELECT 4
32555 @ 273363:                  MUL   
32556 @ 273364:                  ASSPAR
32557 @ 273365:                  CALL  

  5289           REGISTER(OPND2_XB)=0 %IF D=0 %AND REGISTER(OPND2_XB)>=0
32558 @ 273366:                  LINE   5289 "regression-compile-tmp/imp918s.imp"
32559 @ 273404:                  PUSH   D
32560 @ 273407:                  PUSHI  #0x00000000
32561 @ 273412:                  JUMPIF # L_0004
32562 @ 273416:                  PUSH   REGISTER
32563 @ 273419:                  PUSH   OPND2
32564 @ 273422:                  SELECT 2
32565 @ 273425:                  ACCESS
32566 @ 273426:                  PUSHI  #0x00000000
32567 @ 273431:                  JUMPIF < L_0004
32568 @ 273435:                  PUSH   REGISTER
32569 @ 273438:                  PUSH   OPND2
32570 @ 273441:                  SELECT 2
32571 @ 273444:                  ACCESS
32572 @ 273445:                  PUSHI  #0x00000000
32573 @ 273450:                  ASSVAL
32574 @ 273451:                  LOCATE L_0004

  5290           ->Label100
32575 @ 273454:                  LINE   5290 "regression-compile-tmp/imp918s.imp"
32576 @ 273492:                  JUMP   L_022d

  5291  SW(19):                                ! MULT
32577 @ 273495:                  LINE   5291 "regression-compile-tmp/imp918s.imp"
32578 @ 273533:                  PUSHI  #0x00000013
32579 @ 273538:                  SLABEL 551

  5292           ->Label151 %IF TYPE=2
32580 @ 273541:                  LINE   5292 "regression-compile-tmp/imp918s.imp"
32581 @ 273579:                  PUSH   TYPE
32582 @ 273582:                  PUSHI  #0x00000002
32583 @ 273587:                  JUMPIF # L_0004
32584 @ 273591:                  JUMP   L_022e
32585 @ 273594:                  LOCATE L_0004

  5293           LOAD PAIR(1);                 ! 1ST OPERAND TO ODD MEMBER
  5294                                         ! 2ND OPERAND TESTED ALSO
32586 @ 273597:                  LINE   5293 "regression-compile-tmp/imp918s.imp"
32587 @ 273635:                  PUSH   LOADPAIR
32588 @ 273638:                  PUSHI  #0x00000001
32589 @ 273643:                  ASSPAR
32590 @ 273644:                  CALL  

  5295           PUT
32591 @ 273645:                  LINE   5295 "regression-compile-tmp/imp918s.imp"
32592 @ 273683:                  PUSH   PUT
32593 @ 273686:                  CALL  

  5296           D=OPND1_XB+CHECKSP
32594 @ 273687:                  LINE   5296 "regression-compile-tmp/imp918s.imp"
32595 @ 273725:                  PUSH   D
32596 @ 273728:                  PUSH   OPND1
32597 @ 273731:                  SELECT 2
32598 @ 273734:                  PUSH   CHECKSP
32599 @ 273737:                  ADD   
32600 @ 273738:                  ASSVAL

  5297           REGISTER(D)=0; FORGET(D)
32601 @ 273739:                  LINE   5297 "regression-compile-tmp/imp918s.imp"
32602 @ 273777:                  PUSH   REGISTER
32603 @ 273780:                  PUSH   D
32604 @ 273783:                  ACCESS
32605 @ 273784:                  PUSHI  #0x00000000
32606 @ 273789:                  ASSVAL
32607 @ 273790:                  LINE   5297 "regression-compile-tmp/imp918s.imp"
32608 @ 273828:                  PUSH   FORGET
32609 @ 273831:                  PUSH   D
32610 @ 273834:                  ASSPAR
32611 @ 273835:                  CALL  

  5298           %IF CHECKSP#0 %THEN %START
32612 @ 273836:                  LINE   5298 "regression-compile-tmp/imp918s.imp"
32613 @ 273874:                  PUSH   CHECKSP
32614 @ 273877:                  PUSHI  #0x00000000
32615 @ 273882:                  JUMPIF = L_0004

  5299           PRX(X'8F',OPND1_XB,0,0,32)
32616 @ 273886:                  LINE   5299 "regression-compile-tmp/imp918s.imp"
32617 @ 273924:                  PUSH   PRX
32618 @ 273927:                  PUSHI  #0x0000008f
32619 @ 273932:                  ASSPAR
32620 @ 273933:                  PUSH   OPND1
32621 @ 273936:                  SELECT 2
32622 @ 273939:                  ASSPAR
32623 @ 273940:                  PUSHI  #0x00000000
32624 @ 273945:                  ASSPAR
32625 @ 273946:                  PUSHI  #0x00000000
32626 @ 273951:                  ASSPAR
32627 @ 273952:                  PUSHI  #0x00000020
32628 @ 273957:                  ASSPAR
32629 @ 273958:                  CALL  

  5300           %FINISH %ELSE OPND1_XB=OPND1_XB+1
32630 @ 273959:                  LINE   5300 "regression-compile-tmp/imp918s.imp"
32631 @ 273997:                  GOTO   L_0003
32632 @ 274000:                  LOCATE L_0004
32633 @ 274003:                  PUSH   OPND1
32634 @ 274006:                  SELECT 2
32635 @ 274009:                  PUSH   OPND1
32636 @ 274012:                  SELECT 2
32637 @ 274015:                  PUSHI  #0x00000001
32638 @ 274020:                  ADD   
32639 @ 274021:                  ASSVAL
32640 @ 274022:                  LOCATE L_0003

  5301           ->Label100
32641 @ 274025:                  LINE   5301 "regression-compile-tmp/imp918s.imp"
32642 @ 274063:                  JUMP   L_022d

  5302  SW(20):                                ! INTEGER DIVISION
32643 @ 274066:                  LINE   5302 "regression-compile-tmp/imp918s.imp"
32644 @ 274104:                  PUSHI  #0x00000014
32645 @ 274109:                  SLABEL 551

  5303           ->F24 %UNLESS TYPE=1
32646 @ 274112:                  LINE   5303 "regression-compile-tmp/imp918s.imp"
32647 @ 274150:                  PUSH   TYPE
32648 @ 274153:                  PUSHI  #0x00000001
32649 @ 274158:                  JUMPIF = L_0004
32650 @ 274162:                  JUMP   L_022f
32651 @ 274165:                  LOCATE L_0004

  5304           ->Label211
32652 @ 274168:                  LINE   5304 "regression-compile-tmp/imp918s.imp"
32653 @ 274206:                  JUMP   L_0230

  5305  SW(21):                                ! NORMAL DIVISION
32654 @ 274209:                  LINE   5305 "regression-compile-tmp/imp918s.imp"
32655 @ 274247:                  PUSHI  #0x00000015
32656 @ 274252:                  SLABEL 551

  5306           ->Label151 %IF TYPE=2
32657 @ 274255:                  LINE   5306 "regression-compile-tmp/imp918s.imp"
32658 @ 274293:                  PUSH   TYPE
32659 @ 274296:                  PUSHI  #0x00000002
32660 @ 274301:                  JUMPIF # L_0004
32661 @ 274305:                  JUMP   L_022e
32662 @ 274308:                  LOCATE L_0004

  5307           WARN(LINE)
32663 @ 274311:                  LINE   5307 "regression-compile-tmp/imp918s.imp"
32664 @ 274349:                  PUSH   WARN
32665 @ 274352:                  PUSH   LINE
32666 @ 274355:                  ASSPAR
32667 @ 274356:                  CALL  

  5308  Label211:     LOAD PAIR(0);                 ! 1ST OPERAND TO EVEN REG
32668 @ 274357:                  LINE   5308 "regression-compile-tmp/imp918s.imp"
32669 @ 274395:                  LABEL  L_0230
32670 @ 274398:                  LINE   5308 "regression-compile-tmp/imp918s.imp"
32671 @ 274436:                  PUSH   LOADPAIR
32672 @ 274439:                  PUSHI  #0x00000000
32673 @ 274444:                  ASSPAR
32674 @ 274445:                  CALL  

  5309           PRX(X'8E',OPND1_XB,0,0,32);   ! SRDA
32675 @ 274446:                  LINE   5309 "regression-compile-tmp/imp918s.imp"
32676 @ 274484:                  PUSH   PRX
32677 @ 274487:                  PUSHI  #0x0000008e
32678 @ 274492:                  ASSPAR
32679 @ 274493:                  PUSH   OPND1
32680 @ 274496:                  SELECT 2
32681 @ 274499:                  ASSPAR
32682 @ 274500:                  PUSHI  #0x00000000
32683 @ 274505:                  ASSPAR
32684 @ 274506:                  PUSHI  #0x00000000
32685 @ 274511:                  ASSPAR
32686 @ 274512:                  PUSHI  #0x00000020
32687 @ 274517:                  ASSPAR
32688 @ 274518:                  CALL  

  5310           CCSTATE=-1
32689 @ 274519:                  LINE   5310 "regression-compile-tmp/imp918s.imp"
32690 @ 274557:                  PUSH   CCSTATE
32691 @ 274560:                  PUSHI  #0x00000001
32692 @ 274565:                  NEGATE
32693 @ 274566:                  ASSVAL

  5311           PUT; D=OPND1_XB
32694 @ 274567:                  LINE   5311 "regression-compile-tmp/imp918s.imp"
32695 @ 274605:                  PUSH   PUT
32696 @ 274608:                  CALL  
32697 @ 274609:                  LINE   5311 "regression-compile-tmp/imp918s.imp"
32698 @ 274647:                  PUSH   D
32699 @ 274650:                  PUSH   OPND1
32700 @ 274653:                  SELECT 2
32701 @ 274656:                  ASSVAL

  5312           %IF CHECKSP=1 %AND JJ=21 %THEN %START
32702 @ 274657:                  LINE   5312 "regression-compile-tmp/imp918s.imp"
32703 @ 274695:                  PUSH   CHECKSP
32704 @ 274698:                  PUSHI  #0x00000001
32705 @ 274703:                  JUMPIF # L_0004
32706 @ 274707:                  PUSH   JJ
32707 @ 274710:                  PUSHI  #0x00000015
32708 @ 274715:                  JUMPIF # L_0004

  5313           PRR(X'12',D,D)
32709 @ 274719:                  LINE   5313 "regression-compile-tmp/imp918s.imp"
32710 @ 274757:                  PUSH   PRR
32711 @ 274760:                  PUSHI  #0x00000012
32712 @ 274765:                  ASSPAR
32713 @ 274766:                  PUSH   D
32714 @ 274769:                  ASSPAR
32715 @ 274770:                  PUSH   D
32716 @ 274773:                  ASSPAR
32717 @ 274774:                  CALL  

  5314           PCONST(X'4770C040'); %FINISH
32718 @ 274775:                  LINE   5314 "regression-compile-tmp/imp918s.imp"
32719 @ 274813:                  PUSH   PCONST
32720 @ 274816:                  PUSHI  #0x4770c040
32721 @ 274821:                  ASSPAR
32722 @ 274822:                  CALL  
32723 @ 274823:                  LINE   5314 "regression-compile-tmp/imp918s.imp"
32724 @ 274861:                  LOCATE L_0004

  5315           REGISTER(D)=0; FORGET(D)
32725 @ 274864:                  LINE   5315 "regression-compile-tmp/imp918s.imp"
32726 @ 274902:                  PUSH   REGISTER
32727 @ 274905:                  PUSH   D
32728 @ 274908:                  ACCESS
32729 @ 274909:                  PUSHI  #0x00000000
32730 @ 274914:                  ASSVAL
32731 @ 274915:                  LINE   5315 "regression-compile-tmp/imp918s.imp"
32732 @ 274953:                  PUSH   FORGET
32733 @ 274956:                  PUSH   D
32734 @ 274959:                  ASSPAR
32735 @ 274960:                  CALL  

  5316           OPND1_XB=D+1; ->Label100
32736 @ 274961:                  LINE   5316 "regression-compile-tmp/imp918s.imp"
32737 @ 274999:                  PUSH   OPND1
32738 @ 275002:                  SELECT 2
32739 @ 275005:                  PUSH   D
32740 @ 275008:                  PUSHI  #0x00000001
32741 @ 275013:                  ADD   
32742 @ 275014:                  ASSVAL
32743 @ 275015:                  LINE   5316 "regression-compile-tmp/imp918s.imp"
32744 @ 275053:                  JUMP   L_022d

  5317  SW(25):                                ! EXP
32745 @ 275056:                  LINE   5317 "regression-compile-tmp/imp918s.imp"
32746 @ 275094:                  PUSHI  #0x00000019
32747 @ 275099:                  SLABEL 551

  5318           STARSTAR; ->Label100
32748 @ 275102:                  LINE   5318 "regression-compile-tmp/imp918s.imp"
32749 @ 275140:                  PUSH   STARSTAR
32750 @ 275143:                  CALL  
32751 @ 275144:                  LINE   5318 "regression-compile-tmp/imp918s.imp"
32752 @ 275182:                  JUMP   L_022d

  5319  SW(26):                                ! COMPARISONS
32753 @ 275185:                  LINE   5319 "regression-compile-tmp/imp918s.imp"
32754 @ 275223:                  PUSHI  #0x0000001a
32755 @ 275228:                  SLABEL 551

  5320  SW(27):                                ! LOGICAL COMPARISONS (IE=&7=)
32756 @ 275231:                  LINE   5320 "regression-compile-tmp/imp918s.imp"
32757 @ 275269:                  PUSHI  #0x0000001b
32758 @ 275274:                  SLABEL 551

  5321           PTYPE=OPND1_PTYPE;! UNPACK
  5322  !%if USE MC = 1 %start
  5323  !            *L_1,PTYPE; *CVD_1,0(11)
  5324  !            *UNPK_ROUT(5),5(3,11)
  5325  !            *NC_ROUT(5),MASK1
  5326  !%finish
32759 @ 275277:                  LINE   5321 "regression-compile-tmp/imp918s.imp"
32760 @ 275315:                  PUSH   PTYPE
32761 @ 275318:                  PUSH   OPND1
32762 @ 275321:                  SELECT 1
32763 @ 275324:                  ASSVAL

  5327           -> BC %IF PREC=1 %AND OPND2_FLAG=0
32764 @ 275325:                  LINE   5327 "regression-compile-tmp/imp918s.imp"
32765 @ 275363:                  PUSH   PREC
32766 @ 275366:                  PUSHI  #0x00000001
32767 @ 275371:                  JUMPIF # L_0004
32768 @ 275375:                  PUSH   OPND2
32769 @ 275378:                  SELECT 3
32770 @ 275381:                  PUSHI  #0x00000000
32771 @ 275386:                  JUMPIF # L_0004
32772 @ 275390:                  JUMP   L_0231
32773 @ 275393:                  LOCATE L_0004

  5328           LOAD(OPND1,-1,0) %UNLESS OPND1_FLAG<=2 %AND ARR=0=OPND1_XB
32774 @ 275396:                  LINE   5328 "regression-compile-tmp/imp918s.imp"
32775 @ 275434:                  PUSH   OPND1
32776 @ 275437:                  SELECT 3
32777 @ 275440:                  PUSHI  #0x00000002
32778 @ 275445:                  JUMPIF > L_0005
32779 @ 275449:                  PUSH   ARR
32780 @ 275452:                  PUSHI  #0x00000000
32781 @ 275457:                  JUMPIFD # L_0005
32782 @ 275461:                  PUSH   OPND1
32783 @ 275464:                  SELECT 2
32784 @ 275467:                  JUMPIF = L_0004
32785 @ 275471:                  LOCATE L_0005
32786 @ 275474:                  PUSH   LOAD
32787 @ 275477:                  PUSH   OPND1
32788 @ 275480:                  ASSPAR
32789 @ 275481:                  PUSHI  #0x00000001
32790 @ 275486:                  NEGATE
32791 @ 275487:                  ASSPAR
32792 @ 275488:                  PUSHI  #0x00000000
32793 @ 275493:                  ASSPAR
32794 @ 275494:                  CALL  
32795 @ 275495:                  LOCATE L_0004

  5329  CNORM:
32796 @ 275498:                  LINE   5329 "regression-compile-tmp/imp918s.imp"
32797 @ 275536:                  LABEL  L_0232

  5330           ->Z1 %IF OPND1_FLAG=0=OPND1_D %ORC
  5331           (OPND1_FLAG=9 %AND OPND1_XB=CODER %AND OPND1_D=X'C0')
32798 @ 275539:                  LINE   5330 "regression-compile-tmp/imp918s.imp"
32799 @ 275577:                  PUSH   OPND1
32800 @ 275580:                  SELECT 3
32801 @ 275583:                  PUSHI  #0x00000000
32802 @ 275588:                  JUMPIFD # L_0006
32803 @ 275592:                  PUSH   OPND1
32804 @ 275595:                  SELECT 4
32805 @ 275598:                  JUMPIF = L_0005
32806 @ 275602:                  LOCATE L_0006
32807 @ 275605:                  PUSH   OPND1
32808 @ 275608:                  SELECT 3
32809 @ 275611:                  PUSHI  #0x00000009
32810 @ 275616:                  JUMPIF # L_0004
32811 @ 275620:                  PUSH   OPND1
32812 @ 275623:                  SELECT 2
32813 @ 275626:                  PUSHI  #0x0000000c
32814 @ 275631:                  JUMPIF # L_0004
32815 @ 275635:                  PUSH   OPND1
32816 @ 275638:                  SELECT 4
32817 @ 275641:                  PUSHI  #0x000000c0
32818 @ 275646:                  JUMPIF # L_0004
32819 @ 275650:                  LOCATE L_0005
32820 @ 275653:                  JUMP   L_0233
32821 @ 275656:                  LOCATE L_0004

  5332           -> Z2 %IF OPND2_FLAG=0=OPND2_D %ORC
  5333           (OPND2_FLAG=9 %AND OPND2_XB=CODER %AND OPND2_D=X'C0')
32822 @ 275659:                  LINE   5332 "regression-compile-tmp/imp918s.imp"
32823 @ 275697:                  PUSH   OPND2
32824 @ 275700:                  SELECT 3
32825 @ 275703:                  PUSHI  #0x00000000
32826 @ 275708:                  JUMPIFD # L_0006
32827 @ 275712:                  PUSH   OPND2
32828 @ 275715:                  SELECT 4
32829 @ 275718:                  JUMPIF = L_0005
32830 @ 275722:                  LOCATE L_0006
32831 @ 275725:                  PUSH   OPND2
32832 @ 275728:                  SELECT 3
32833 @ 275731:                  PUSHI  #0x00000009
32834 @ 275736:                  JUMPIF # L_0004
32835 @ 275740:                  PUSH   OPND2
32836 @ 275743:                  SELECT 2
32837 @ 275746:                  PUSHI  #0x0000000c
32838 @ 275751:                  JUMPIF # L_0004
32839 @ 275755:                  PUSH   OPND2
32840 @ 275758:                  SELECT 4
32841 @ 275761:                  PUSHI  #0x000000c0
32842 @ 275766:                  JUMPIF # L_0004
32843 @ 275770:                  LOCATE L_0005
32844 @ 275773:                  JUMP   L_0234
32845 @ 275776:                  LOCATE L_0004

  5334           -> RX %UNLESS JJ=27 %OR PREC=1
32846 @ 275779:                  LINE   5334 "regression-compile-tmp/imp918s.imp"
32847 @ 275817:                  PUSH   JJ
32848 @ 275820:                  PUSHI  #0x0000001b
32849 @ 275825:                  JUMPIF = L_0004
32850 @ 275829:                  PUSH   PREC
32851 @ 275832:                  PUSHI  #0x00000001
32852 @ 275837:                  JUMPIF = L_0004
32853 @ 275841:                  JUMP   L_0235
32854 @ 275844:                  LOCATE L_0004

  5335           LOAD(OPND2,-1,3) %IF OPND2_FLAG<7;! IN CASE BOTH OPERANDS ARE FNS
32855 @ 275847:                  LINE   5335 "regression-compile-tmp/imp918s.imp"
32856 @ 275885:                  PUSH   OPND2
32857 @ 275888:                  SELECT 3
32858 @ 275891:                  PUSHI  #0x00000007
32859 @ 275896:                  JUMPIF >= L_0004
32860 @ 275900:                  PUSH   LOAD
32861 @ 275903:                  PUSH   OPND2
32862 @ 275906:                  ASSPAR
32863 @ 275907:                  PUSHI  #0x00000001
32864 @ 275912:                  NEGATE
32865 @ 275913:                  ASSPAR
32866 @ 275914:                  PUSHI  #0x00000003
32867 @ 275919:                  ASSPAR
32868 @ 275920:                  CALL  
32869 @ 275921:                  LOCATE L_0004

  5336           LOAD(OPND1,-1,3) %IF OPND1_FLAG<7
32870 @ 275924:                  LINE   5336 "regression-compile-tmp/imp918s.imp"
32871 @ 275962:                  PUSH   OPND1
32872 @ 275965:                  SELECT 3
32873 @ 275968:                  PUSHI  #0x00000007
32874 @ 275973:                  JUMPIF >= L_0004
32875 @ 275977:                  PUSH   LOAD
32876 @ 275980:                  PUSH   OPND1
32877 @ 275983:                  ASSPAR
32878 @ 275984:                  PUSHI  #0x00000001
32879 @ 275989:                  NEGATE
32880 @ 275990:                  ASSPAR
32881 @ 275991:                  PUSHI  #0x00000003
32882 @ 275996:                  ASSPAR
32883 @ 275997:                  CALL  
32884 @ 275998:                  LOCATE L_0004

  5337           -> RX %UNLESS OPND1_PTYPE=OPND2_PTYPE %AND 0<=OPND1_D<=4095 %C
  5338           %AND 0<=OPND2_D<=4095 %AND OPND1_XB<16>OPND2_XB
32885 @ 276001:                  LINE   5337 "regression-compile-tmp/imp918s.imp"
32886 @ 276039:                  PUSH   OPND1
32887 @ 276042:                  SELECT 1
32888 @ 276045:                  PUSH   OPND2
32889 @ 276048:                  SELECT 1
32890 @ 276051:                  JUMPIF # L_0005
32891 @ 276055:                  PUSHI  #0x00000000
32892 @ 276060:                  PUSH   OPND1
32893 @ 276063:                  SELECT 4
32894 @ 276066:                  JUMPIFD > L_0005
32895 @ 276070:                  PUSHI  #0x00000fff
32896 @ 276075:                  JUMPIF > L_0005
32897 @ 276079:                  PUSHI  #0x00000000
32898 @ 276084:                  PUSH   OPND2
32899 @ 276087:                  SELECT 4
32900 @ 276090:                  JUMPIFD > L_0005
32901 @ 276094:                  PUSHI  #0x00000fff
32902 @ 276099:                  JUMPIF > L_0005
32903 @ 276103:                  PUSH   OPND1
32904 @ 276106:                  SELECT 2
32905 @ 276109:                  PUSHI  #0x00000010
32906 @ 276114:                  JUMPIFD >= L_0005
32907 @ 276118:                  PUSH   OPND2
32908 @ 276121:                  SELECT 2
32909 @ 276124:                  JUMPIF > L_0004
32910 @ 276128:                  LOCATE L_0005
32911 @ 276131:                  JUMP   L_0235
32912 @ 276134:                  LOCATE L_0004

  5339           CCSTATE=-1
32913 @ 276137:                  LINE   5339 "regression-compile-tmp/imp918s.imp"
32914 @ 276175:                  PUSH   CCSTATE
32915 @ 276178:                  PUSHI  #0x00000001
32916 @ 276183:                  NEGATE
32917 @ 276184:                  ASSVAL

  5340           PSS(X'D5',BYTES(PREC),OPND1_XB,OPND1_D,OPND2_XB,OPND2_D)
32918 @ 276185:                  LINE   5340 "regression-compile-tmp/imp918s.imp"
32919 @ 276223:                  PUSH   PSS
32920 @ 276226:                  PUSHI  #0x000000d5
32921 @ 276231:                  ASSPAR
32922 @ 276232:                  PUSH   BYTES
32923 @ 276235:                  PUSH   PREC
32924 @ 276238:                  ACCESS
32925 @ 276239:                  ASSPAR
32926 @ 276240:                  PUSH   OPND1
32927 @ 276243:                  SELECT 2
32928 @ 276246:                  ASSPAR
32929 @ 276247:                  PUSH   OPND1
32930 @ 276250:                  SELECT 4
32931 @ 276253:                  ASSPAR
32932 @ 276254:                  PUSH   OPND2
32933 @ 276257:                  SELECT 2
32934 @ 276260:                  ASSPAR
32935 @ 276261:                  PUSH   OPND2
32936 @ 276264:                  SELECT 4
32937 @ 276267:                  ASSPAR
32938 @ 276268:                  CALL  

  5341           UNRESERVE(OPND2_XB)
32939 @ 276269:                  LINE   5341 "regression-compile-tmp/imp918s.imp"
32940 @ 276307:                  PUSH   UNRESERVE
32941 @ 276310:                  PUSH   OPND2
32942 @ 276313:                  SELECT 2
32943 @ 276316:                  ASSPAR
32944 @ 276317:                  CALL  

  5342  Z5:      UNRESERVE(OPND1_XB); ->Z4
32945 @ 276318:                  LINE   5342 "regression-compile-tmp/imp918s.imp"
32946 @ 276356:                  LABEL  L_0236
32947 @ 276359:                  LINE   5342 "regression-compile-tmp/imp918s.imp"
32948 @ 276397:                  PUSH   UNRESERVE
32949 @ 276400:                  PUSH   OPND1
32950 @ 276403:                  SELECT 2
32951 @ 276406:                  ASSPAR
32952 @ 276407:                  CALL  
32953 @ 276408:                  LINE   5342 "regression-compile-tmp/imp918s.imp"
32954 @ 276446:                  JUMP   L_0237

  5343  RX:      LOAD(OPND2,-1,1)
32955 @ 276449:                  LINE   5343 "regression-compile-tmp/imp918s.imp"
32956 @ 276487:                  LABEL  L_0235
32957 @ 276490:                  LINE   5343 "regression-compile-tmp/imp918s.imp"
32958 @ 276528:                  PUSH   LOAD
32959 @ 276531:                  PUSH   OPND2
32960 @ 276534:                  ASSPAR
32961 @ 276535:                  PUSHI  #0x00000001
32962 @ 276540:                  NEGATE
32963 @ 276541:                  ASSPAR
32964 @ 276542:                  PUSHI  #0x00000001
32965 @ 276547:                  ASSPAR
32966 @ 276548:                  CALL  

  5344           LOAD(OPND1,-1,2)
32967 @ 276549:                  LINE   5344 "regression-compile-tmp/imp918s.imp"
32968 @ 276587:                  PUSH   LOAD
32969 @ 276590:                  PUSH   OPND1
32970 @ 276593:                  ASSPAR
32971 @ 276594:                  PUSHI  #0x00000001
32972 @ 276599:                  NEGATE
32973 @ 276600:                  ASSPAR
32974 @ 276601:                  PUSHI  #0x00000002
32975 @ 276606:                  ASSPAR
32976 @ 276607:                  CALL  

  5345           CCSTATE=-1
32977 @ 276608:                  LINE   5345 "regression-compile-tmp/imp918s.imp"
32978 @ 276646:                  PUSH   CCSTATE
32979 @ 276649:                  PUSHI  #0x00000001
32980 @ 276654:                  NEGATE
32981 @ 276655:                  ASSVAL

  5346           PUT
32982 @ 276656:                  LINE   5346 "regression-compile-tmp/imp918s.imp"
32983 @ 276694:                  PUSH   PUT
32984 @ 276697:                  CALL  

  5347  Z4:
32985 @ 276698:                  LINE   5347 "regression-compile-tmp/imp918s.imp"
32986 @ 276736:                  LABEL  L_0237

  5348           BFFLAG=COMM-1;                ! NOTE BACKWARDS OR FORWARDS
32987 @ 276739:                  LINE   5348 "regression-compile-tmp/imp918s.imp"
32988 @ 276777:                  PUSH   BFFLAG
32989 @ 276780:                  PUSH   COMM
32990 @ 276783:                  PUSHI  #0x00000001
32991 @ 276788:                  SUB   
32992 @ 276789:                  ASSVAL

  5349           COMM=2; ->Label101;               ! 2ND OPERAND MAY BE NEEDED IN
  5350                                         ! DOUBLE SIDED AND IS THEREFORE
  5351                                         ! TAKEN AS THE 'RESULT'
32993 @ 276790:                  LINE   5349 "regression-compile-tmp/imp918s.imp"
32994 @ 276828:                  PUSH   COMM
32995 @ 276831:                  PUSHI  #0x00000002
32996 @ 276836:                  ASSVAL
32997 @ 276837:                  LINE   5349 "regression-compile-tmp/imp918s.imp"
32998 @ 276875:                  JUMP   L_022c

  5352  Z1:      COMM=3-COMM;                  ! SWITCH AROUND OPERANDS
32999 @ 276878:                  LINE   5352 "regression-compile-tmp/imp918s.imp"
33000 @ 276916:                  LABEL  L_0233
33001 @ 276919:                  LINE   5352 "regression-compile-tmp/imp918s.imp"
33002 @ 276957:                  PUSH   COMM
33003 @ 276960:                  PUSHI  #0x00000003
33004 @ 276965:                  PUSH   COMM
33005 @ 276968:                  SUB   
33006 @ 276969:                  ASSVAL

  5353           OPND1==OPND2
33007 @ 276970:                  LINE   5353 "regression-compile-tmp/imp918s.imp"
33008 @ 277008:                  PUSH   OPND1
33009 @ 277011:                  PUSH   OPND2
33010 @ 277014:                  ASSREF

  5354           OPND2==RECORD(ADDR(ASLIST(OPERAND(3-COMM))))
33011 @ 277015:                  LINE   5354 "regression-compile-tmp/imp918s.imp"
33012 @ 277053:                  PUSH   OPND2
33013 @ 277056:                  PUSH   RECORD
33014 @ 277059:                  PUSH   ADDR
33015 @ 277062:                  PUSH   ASLIST
33016 @ 277065:                  PUSH   OPERAND
33017 @ 277068:                  PUSHI  #0x00000003
33018 @ 277073:                  PUSH   COMM
33019 @ 277076:                  SUB   
33020 @ 277077:                  ACCESS
33021 @ 277078:                  ACCESS
33022 @ 277079:                  ASSPAR
33023 @ 277080:                  CALL  
33024 @ 277081:                  ASSPAR
33025 @ 277082:                  CALL  
33026 @ 277083:                  ASSREF

  5355  Z2:
33027 @ 277084:                  LINE   5355 "regression-compile-tmp/imp918s.imp"
33028 @ 277122:                  LABEL  L_0234

  5356           LOAD(OPND1,-1,2)
33029 @ 277125:                  LINE   5356 "regression-compile-tmp/imp918s.imp"
33030 @ 277163:                  PUSH   LOAD
33031 @ 277166:                  PUSH   OPND1
33032 @ 277169:                  ASSPAR
33033 @ 277170:                  PUSHI  #0x00000001
33034 @ 277175:                  NEGATE
33035 @ 277176:                  ASSPAR
33036 @ 277177:                  PUSHI  #0x00000002
33037 @ 277182:                  ASSPAR
33038 @ 277183:                  CALL  

  5357           D=FROM1(OPERAND(COMM))>>8&15
33039 @ 277184:                  LINE   5357 "regression-compile-tmp/imp918s.imp"
33040 @ 277222:                  PUSH   D
33041 @ 277225:                  PUSH   FROM1
33042 @ 277228:                  PUSH   OPERAND
33043 @ 277231:                  PUSH   COMM
33044 @ 277234:                  ACCESS
33045 @ 277235:                  ASSPAR
33046 @ 277236:                  CALL  
33047 @ 277237:                  PUSHI  #0x00000008
33048 @ 277242:                  RSH   
33049 @ 277243:                  PUSHI  #0x0000000f
33050 @ 277248:                  AND   
33051 @ 277249:                  ASSVAL

  5358           C=(TYPE&2)<<3+D
33052 @ 277250:                  LINE   5358 "regression-compile-tmp/imp918s.imp"
33053 @ 277288:                  PUSH   C
33054 @ 277291:                  PUSH   TYPE
33055 @ 277294:                  PUSHI  #0x00000002
33056 @ 277299:                  AND   
33057 @ 277300:                  PUSHI  #0x00000003
33058 @ 277305:                  LSH   
33059 @ 277306:                  PUSH   D
33060 @ 277309:                  ADD   
33061 @ 277310:                  ASSVAL

  5359           REGISTER(C)=0 %IF REGISTER(C)>0
33062 @ 277311:                  LINE   5359 "regression-compile-tmp/imp918s.imp"
33063 @ 277349:                  PUSH   REGISTER
33064 @ 277352:                  PUSH   C
33065 @ 277355:                  ACCESS
33066 @ 277356:                  PUSHI  #0x00000000
33067 @ 277361:                  JUMPIF <= L_0004
33068 @ 277365:                  PUSH   REGISTER
33069 @ 277368:                  PUSH   C
33070 @ 277371:                  ACCESS
33071 @ 277372:                  PUSHI  #0x00000000
33072 @ 277377:                  ASSVAL
33073 @ 277378:                  LOCATE L_0004

  5360           -> Z4 %IF 1<<16!C=CCSTATE;      ! CONDITION CODE ALREADY SET
33074 @ 277381:                  LINE   5360 "regression-compile-tmp/imp918s.imp"
33075 @ 277419:                  PUSHI  #0x00000001
33076 @ 277424:                  PUSHI  #0x00000010
33077 @ 277429:                  LSH   
33078 @ 277430:                  PUSH   C
33079 @ 277433:                  OR    
33080 @ 277434:                  PUSH   CCSTATE
33081 @ 277437:                  JUMPIF # L_0004
33082 @ 277441:                  JUMP   L_0237
33083 @ 277444:                  LOCATE L_0004

  5361           ->Z4 %IF JJ=27 %AND 2<<16!C=CCSTATE;! CC WILL DO
33084 @ 277447:                  LINE   5361 "regression-compile-tmp/imp918s.imp"
33085 @ 277485:                  PUSH   JJ
33086 @ 277488:                  PUSHI  #0x0000001b
33087 @ 277493:                  JUMPIF # L_0004
33088 @ 277497:                  PUSHI  #0x00000002
33089 @ 277502:                  PUSHI  #0x00000010
33090 @ 277507:                  LSH   
33091 @ 277508:                  PUSH   C
33092 @ 277511:                  OR    
33093 @ 277512:                  PUSH   CCSTATE
33094 @ 277515:                  JUMPIF # L_0004
33095 @ 277519:                  JUMP   L_0237
33096 @ 277522:                  LOCATE L_0004

  5362           PRR((TYPE-1)*(2-PREC>>1)*16+X'12',D,D)
33097 @ 277525:                  LINE   5362 "regression-compile-tmp/imp918s.imp"
33098 @ 277563:                  PUSH   PRR
33099 @ 277566:                  PUSH   TYPE
33100 @ 277569:                  PUSHI  #0x00000001
33101 @ 277574:                  SUB   
33102 @ 277575:                  PUSHI  #0x00000002
33103 @ 277580:                  PUSH   PREC
33104 @ 277583:                  PUSHI  #0x00000001
33105 @ 277588:                  RSH   
33106 @ 277589:                  SUB   
33107 @ 277590:                  MUL   
33108 @ 277591:                  PUSHI  #0x00000010
33109 @ 277596:                  MUL   
33110 @ 277597:                  PUSHI  #0x00000012
33111 @ 277602:                  ADD   
33112 @ 277603:                  ASSPAR
33113 @ 277604:                  PUSH   D
33114 @ 277607:                  ASSPAR
33115 @ 277608:                  PUSH   D
33116 @ 277611:                  ASSPAR
33117 @ 277612:                  CALL  

  5363           CCSTATE=1<<16!C; ->Z4
33118 @ 277613:                  LINE   5363 "regression-compile-tmp/imp918s.imp"
33119 @ 277651:                  PUSH   CCSTATE
33120 @ 277654:                  PUSHI  #0x00000001
33121 @ 277659:                  PUSHI  #0x00000010
33122 @ 277664:                  LSH   
33123 @ 277665:                  PUSH   C
33124 @ 277668:                  OR    
33125 @ 277669:                  ASSVAL
33126 @ 277670:                  LINE   5363 "regression-compile-tmp/imp918s.imp"
33127 @ 277708:                  JUMP   L_0237

  5364  BC:                                    ! BYTE/CONSTANT COMPARISONS
33128 @ 277711:                  LINE   5364 "regression-compile-tmp/imp918s.imp"
33129 @ 277749:                  LABEL  L_0231

  5365           LOAD(OPND1,-1,3)
33130 @ 277752:                  LINE   5365 "regression-compile-tmp/imp918s.imp"
33131 @ 277790:                  PUSH   LOAD
33132 @ 277793:                  PUSH   OPND1
33133 @ 277796:                  ASSPAR
33134 @ 277797:                  PUSHI  #0x00000001
33135 @ 277802:                  NEGATE
33136 @ 277803:                  ASSPAR
33137 @ 277804:                  PUSHI  #0x00000003
33138 @ 277809:                  ASSPAR
33139 @ 277810:                  CALL  

  5366           -> CNORM %UNLESS OPND1_PTYPE=11 %AND %C
  5367           0<=OPND1_D<=4095 %AND OPND2_D<=255
33140 @ 277811:                  LINE   5366 "regression-compile-tmp/imp918s.imp"
33141 @ 277849:                  PUSH   OPND1
33142 @ 277852:                  SELECT 1
33143 @ 277855:                  PUSHI  #0x0000000b
33144 @ 277860:                  JUMPIF # L_0005
33145 @ 277864:                  PUSHI  #0x00000000
33146 @ 277869:                  PUSH   OPND1
33147 @ 277872:                  SELECT 4
33148 @ 277875:                  JUMPIFD > L_0005
33149 @ 277879:                  PUSHI  #0x00000fff
33150 @ 277884:                  JUMPIF > L_0005
33151 @ 277888:                  PUSH   OPND2
33152 @ 277891:                  SELECT 4
33153 @ 277894:                  PUSHI  #0x000000ff
33154 @ 277899:                  JUMPIF <= L_0004
33155 @ 277903:                  LOCATE L_0005
33156 @ 277906:                  JUMP   L_0232
33157 @ 277909:                  LOCATE L_0004

  5368           NEST=OPND1_XB; D=NEST>>4; NEST=NEST&15
33158 @ 277912:                  LINE   5368 "regression-compile-tmp/imp918s.imp"
33159 @ 277950:                  PUSH   NEST
33160 @ 277953:                  PUSH   OPND1
33161 @ 277956:                  SELECT 2
33162 @ 277959:                  ASSVAL
33163 @ 277960:                  LINE   5368 "regression-compile-tmp/imp918s.imp"
33164 @ 277998:                  PUSH   D
33165 @ 278001:                  PUSH   NEST
33166 @ 278004:                  PUSHI  #0x00000004
33167 @ 278009:                  RSH   
33168 @ 278010:                  ASSVAL
33169 @ 278011:                  LINE   5368 "regression-compile-tmp/imp918s.imp"
33170 @ 278049:                  PUSH   NEST
33171 @ 278052:                  PUSH   NEST
33172 @ 278055:                  PUSHI  #0x0000000f
33173 @ 278060:                  AND   
33174 @ 278061:                  ASSVAL

  5369           %IF D>0 %THEN %START
33175 @ 278062:                  LINE   5369 "regression-compile-tmp/imp918s.imp"
33176 @ 278100:                  PUSH   D
33177 @ 278103:                  PUSHI  #0x00000000
33178 @ 278108:                  JUMPIF <= L_0004

  5370           %IF 1#REGISTER(D)>=0 %AND GRUSE(D)<=1 %THENC
33179 @ 278112:                  LINE   5370 "regression-compile-tmp/imp918s.imp"
33180 @ 278150:                  PUSHI  #0x00000001
33181 @ 278155:                  PUSH   REGISTER
33182 @ 278158:                  PUSH   D
33183 @ 278161:                  ACCESS
33184 @ 278162:                  JUMPIFD = L_0007
33185 @ 278166:                  PUSHI  #0x00000000
33186 @ 278171:                  JUMPIF < L_0007
33187 @ 278175:                  PUSH   GRUSE
33188 @ 278178:                  PUSH   D
33189 @ 278181:                  ACCESS
33190 @ 278182:                  PUSHI  #0x00000001
33191 @ 278187:                  JUMPIF > L_0007
33192 @ 278191:                  PUSH   NEST
33193 @ 278194:                  PUSH   D
33194 @ 278197:                  ASSVAL
33195 @ 278198:                  GOTO   L_0006
33196 @ 278201:                  LOCATE L_0007
33197 @ 278204:                  PUSH   NEST
33198 @ 278207:                  PUSHI  #0x00000002
33199 @ 278212:                  NEGATE
33200 @ 278213:                  ASSVAL
33201 @ 278214:                  LOCATE L_0006

  5371           NEST=D %ELSE NEST=-2; UNRESERVE(OPND1_XB)
33202 @ 278217:                  LINE   5371 "regression-compile-tmp/imp918s.imp"
33203 @ 278255:                  PUSH   UNRESERVE
33204 @ 278258:                  PUSH   OPND1
33205 @ 278261:                  SELECT 2
33206 @ 278264:                  ASSPAR
33207 @ 278265:                  CALL  

  5372           DUMP(0,NEST,0,D,OPND1_XB&15); OPND1_XB=NEST;
33208 @ 278266:                  LINE   5372 "regression-compile-tmp/imp918s.imp"
33209 @ 278304:                  PUSH   DUMP
33210 @ 278307:                  PUSHI  #0x00000000
33211 @ 278312:                  ASSPAR
33212 @ 278313:                  PUSH   NEST
33213 @ 278316:                  ASSPAR
33214 @ 278317:                  PUSHI  #0x00000000
33215 @ 278322:                  ASSPAR
33216 @ 278323:                  PUSH   D
33217 @ 278326:                  ASSPAR
33218 @ 278327:                  PUSH   OPND1
33219 @ 278330:                  SELECT 2
33220 @ 278333:                  PUSHI  #0x0000000f
33221 @ 278338:                  AND   
33222 @ 278339:                  ASSPAR
33223 @ 278340:                  CALL  
33224 @ 278341:                  LINE   5372 "regression-compile-tmp/imp918s.imp"
33225 @ 278379:                  PUSH   OPND1
33226 @ 278382:                  SELECT 2
33227 @ 278385:                  PUSH   NEST
33228 @ 278388:                  ASSVAL

  5373           FORGET(NEST); %FINISH
33229 @ 278389:                  LINE   5373 "regression-compile-tmp/imp918s.imp"
33230 @ 278427:                  PUSH   FORGET
33231 @ 278430:                  PUSH   NEST
33232 @ 278433:                  ASSPAR
33233 @ 278434:                  CALL  
33234 @ 278435:                  LINE   5373 "regression-compile-tmp/imp918s.imp"
33235 @ 278473:                  LOCATE L_0004

  5374           PSI(X'95',OPND2_D,NEST,OPND1_D)
33236 @ 278476:                  LINE   5374 "regression-compile-tmp/imp918s.imp"
33237 @ 278514:                  PUSH   PSI
33238 @ 278517:                  PUSHI  #0x00000095
33239 @ 278522:                  ASSPAR
33240 @ 278523:                  PUSH   OPND2
33241 @ 278526:                  SELECT 4
33242 @ 278529:                  ASSPAR
33243 @ 278530:                  PUSH   NEST
33244 @ 278533:                  ASSPAR
33245 @ 278534:                  PUSH   OPND1
33246 @ 278537:                  SELECT 4
33247 @ 278540:                  ASSPAR
33248 @ 278541:                  CALL  

  5375           CCSTATE=-1; -> Z5
33249 @ 278542:                  LINE   5375 "regression-compile-tmp/imp918s.imp"
33250 @ 278580:                  PUSH   CCSTATE
33251 @ 278583:                  PUSHI  #0x00000001
33252 @ 278588:                  NEGATE
33253 @ 278589:                  ASSVAL
33254 @ 278590:                  LINE   5375 "regression-compile-tmp/imp918s.imp"
33255 @ 278628:                  JUMP   L_0236

  5376  SW(28):                                ! SPECIAL MH FOR ARRAY ACCESS
33256 @ 278631:                  LINE   5376 "regression-compile-tmp/imp918s.imp"
33257 @ 278669:                  PUSHI  #0x0000001c
33258 @ 278674:                  SLABEL 551

  5377           %IF OPND1_FLAG=2 %AND OPND2_FLAG=0 %AND OPND2_D<=255%THENSTART
33259 @ 278677:                  LINE   5377 "regression-compile-tmp/imp918s.imp"
33260 @ 278715:                  PUSH   OPND1
33261 @ 278718:                  SELECT 3
33262 @ 278721:                  PUSHI  #0x00000002
33263 @ 278726:                  JUMPIF # L_0004
33264 @ 278730:                  PUSH   OPND2
33265 @ 278733:                  SELECT 3
33266 @ 278736:                  PUSHI  #0x00000000
33267 @ 278741:                  JUMPIF # L_0004
33268 @ 278745:                  PUSH   OPND2
33269 @ 278748:                  SELECT 4
33270 @ 278751:                  PUSHI  #0x000000ff
33271 @ 278756:                  JUMPIF > L_0004

  5378              E=OPND1_D; D=TAGS(A(E))
33272 @ 278760:                  LINE   5378 "regression-compile-tmp/imp918s.imp"
33273 @ 278798:                  PUSH   E
33274 @ 278801:                  PUSH   OPND1
33275 @ 278804:                  SELECT 4
33276 @ 278807:                  ASSVAL
33277 @ 278808:                  LINE   5378 "regression-compile-tmp/imp918s.imp"
33278 @ 278846:                  PUSH   D
33279 @ 278849:                  PUSH   TAGS
33280 @ 278852:                  PUSH   A
33281 @ 278855:                  PUSH   E
33282 @ 278858:                  ACCESS
33283 @ 278859:                  ACCESS
33284 @ 278860:                  ASSVAL

  5379              FIND USE(C,1,9,OPND2_D<<24!D)
33285 @ 278861:                  LINE   5379 "regression-compile-tmp/imp918s.imp"
33286 @ 278899:                  PUSH   FINDUSE
33287 @ 278902:                  PUSH   C
33288 @ 278905:                  ASSPAR
33289 @ 278906:                  PUSHI  #0x00000001
33290 @ 278911:                  ASSPAR
33291 @ 278912:                  PUSHI  #0x00000009
33292 @ 278917:                  ASSPAR
33293 @ 278918:                  PUSH   OPND2
33294 @ 278921:                  SELECT 4
33295 @ 278924:                  PUSHI  #0x00000018
33296 @ 278929:                  LSH   
33297 @ 278930:                  PUSH   D
33298 @ 278933:                  OR    
33299 @ 278934:                  ASSPAR
33300 @ 278935:                  CALL  

  5380              %IF C>0 %AND A(E+1)=2=A(E+2) %START
33301 @ 278936:                  LINE   5380 "regression-compile-tmp/imp918s.imp"
33302 @ 278974:                  PUSH   C
33303 @ 278977:                  PUSHI  #0x00000000
33304 @ 278982:                  JUMPIF <= L_0007
33305 @ 278986:                  PUSH   A
33306 @ 278989:                  PUSH   E
33307 @ 278992:                  PUSHI  #0x00000001
33308 @ 278997:                  ADD   
33309 @ 278998:                  ACCESS
33310 @ 278999:                  PUSHI  #0x00000002
33311 @ 279004:                  JUMPIFD # L_0007
33312 @ 279008:                  PUSH   A
33313 @ 279011:                  PUSH   E
33314 @ 279014:                  PUSHI  #0x00000002
33315 @ 279019:                  ADD   
33316 @ 279020:                  ACCESS
33317 @ 279021:                  JUMPIF # L_0007

  5381                 OPND1_FLAG=9; OPND1_XB=C; OPND1_D=-2; ->Label101
33318 @ 279025:                  LINE   5381 "regression-compile-tmp/imp918s.imp"
33319 @ 279063:                  PUSH   OPND1
33320 @ 279066:                  SELECT 3
33321 @ 279069:                  PUSHI  #0x00000009
33322 @ 279074:                  ASSVAL
33323 @ 279075:                  LINE   5381 "regression-compile-tmp/imp918s.imp"
33324 @ 279113:                  PUSH   OPND1
33325 @ 279116:                  SELECT 2
33326 @ 279119:                  PUSH   C
33327 @ 279122:                  ASSVAL
33328 @ 279123:                  LINE   5381 "regression-compile-tmp/imp918s.imp"
33329 @ 279161:                  PUSH   OPND1
33330 @ 279164:                  SELECT 4
33331 @ 279167:                  PUSHI  #0x00000002
33332 @ 279172:                  NEGATE
33333 @ 279173:                  ASSVAL
33334 @ 279174:                  LINE   5381 "regression-compile-tmp/imp918s.imp"
33335 @ 279212:                  JUMP   L_022c

  5382              %FINISH
33336 @ 279215:                  LINE   5382 "regression-compile-tmp/imp918s.imp"
33337 @ 279253:                  LOCATE L_0007

  5383           %FINISH
33338 @ 279256:                  LINE   5383 "regression-compile-tmp/imp918s.imp"
33339 @ 279294:                  LOCATE L_0004

  5384           LOAD(OPND1,-1,2);                 ! LOAD TO ANY REGISTER
33340 @ 279297:                  LINE   5384 "regression-compile-tmp/imp918s.imp"
33341 @ 279335:                  PUSH   LOAD
33342 @ 279338:                  PUSH   OPND1
33343 @ 279341:                  ASSPAR
33344 @ 279342:                  PUSHI  #0x00000001
33345 @ 279347:                  NEGATE
33346 @ 279348:                  ASSPAR
33347 @ 279349:                  PUSHI  #0x00000002
33348 @ 279354:                  ASSPAR
33349 @ 279355:                  CALL  

  5385           ->Label2801 %IF OPND2_FLAG=0;      ! CONSTANT SO OPTIMISE
33350 @ 279356:                  LINE   5385 "regression-compile-tmp/imp918s.imp"
33351 @ 279394:                  PUSH   OPND2
33352 @ 279397:                  SELECT 3
33353 @ 279400:                  PUSHI  #0x00000000
33354 @ 279405:                  JUMPIF # L_0004
33355 @ 279409:                  JUMP   L_0238
33356 @ 279412:                  LOCATE L_0004

  5386           LOAD(OPND2,-1,3);                 ! LOAD DV POINTER
33357 @ 279415:                  LINE   5386 "regression-compile-tmp/imp918s.imp"
33358 @ 279453:                  PUSH   LOAD
33359 @ 279456:                  PUSH   OPND2
33360 @ 279459:                  ASSPAR
33361 @ 279460:                  PUSHI  #0x00000001
33362 @ 279465:                  NEGATE
33363 @ 279466:                  ASSPAR
33364 @ 279467:                  PUSHI  #0x00000003
33365 @ 279472:                  ASSPAR
33366 @ 279473:                  CALL  

  5387           LOAD(OPND1,-1,2);                  ! LOAD OF DVBASE MAY DUMP OPND!
33367 @ 279474:                  LINE   5387 "regression-compile-tmp/imp918s.imp"
33368 @ 279512:                  PUSH   LOAD
33369 @ 279515:                  PUSH   OPND1
33370 @ 279518:                  ASSPAR
33371 @ 279519:                  PUSHI  #0x00000001
33372 @ 279524:                  NEGATE
33373 @ 279525:                  ASSPAR
33374 @ 279526:                  PUSHI  #0x00000002
33375 @ 279531:                  ASSPAR
33376 @ 279532:                  CALL  

  5388           PUT; ->Label100
33377 @ 279533:                  LINE   5388 "regression-compile-tmp/imp918s.imp"
33378 @ 279571:                  PUSH   PUT
33379 @ 279574:                  CALL  
33380 @ 279575:                  LINE   5388 "regression-compile-tmp/imp918s.imp"
33381 @ 279613:                  JUMP   L_022d

  5389  Label2801:    D=OPND2_D; C=OPND1_XB
33382 @ 279616:                  LINE   5389 "regression-compile-tmp/imp918s.imp"
33383 @ 279654:                  LABEL  L_0238
33384 @ 279657:                  LINE   5389 "regression-compile-tmp/imp918s.imp"
33385 @ 279695:                  PUSH   D
33386 @ 279698:                  PUSH   OPND2
33387 @ 279701:                  SELECT 4
33388 @ 279704:                  ASSVAL
33389 @ 279705:                  LINE   5389 "regression-compile-tmp/imp918s.imp"
33390 @ 279743:                  PUSH   C
33391 @ 279746:                  PUSH   OPND1
33392 @ 279749:                  SELECT 2
33393 @ 279752:                  ASSVAL

  5390           %IF D=2 %THEN PRR(X'1A',C,C)  %AND CCSTATE=-1 %ELSE %START
33394 @ 279753:                  LINE   5390 "regression-compile-tmp/imp918s.imp"
33395 @ 279791:                  PUSH   D
33396 @ 279794:                  PUSHI  #0x00000002
33397 @ 279799:                  JUMPIF # L_0004
33398 @ 279803:                  PUSH   PRR
33399 @ 279806:                  PUSHI  #0x0000001a
33400 @ 279811:                  ASSPAR
33401 @ 279812:                  PUSH   C
33402 @ 279815:                  ASSPAR
33403 @ 279816:                  PUSH   C
33404 @ 279819:                  ASSPAR
33405 @ 279820:                  CALL  
33406 @ 279821:                  PUSH   CCSTATE
33407 @ 279824:                  PUSHI  #0x00000001
33408 @ 279829:                  NEGATE
33409 @ 279830:                  ASSVAL
33410 @ 279831:                  GOTO   L_0003
33411 @ 279834:                  LOCATE L_0004

  5391           %IF D=4 %OR D=8 %THEN PRX(X'89',C,0,0,2!D>>3) %ELSESTART
33412 @ 279837:                  LINE   5391 "regression-compile-tmp/imp918s.imp"
33413 @ 279875:                  PUSH   D
33414 @ 279878:                  PUSHI  #0x00000004
33415 @ 279883:                  JUMPIF = L_0008
33416 @ 279887:                  PUSH   D
33417 @ 279890:                  PUSHI  #0x00000008
33418 @ 279895:                  JUMPIF # L_0007
33419 @ 279899:                  LOCATE L_0008
33420 @ 279902:                  PUSH   PRX
33421 @ 279905:                  PUSHI  #0x00000089
33422 @ 279910:                  ASSPAR
33423 @ 279911:                  PUSH   C
33424 @ 279914:                  ASSPAR
33425 @ 279915:                  PUSHI  #0x00000000
33426 @ 279920:                  ASSPAR
33427 @ 279921:                  PUSHI  #0x00000000
33428 @ 279926:                  ASSPAR
33429 @ 279927:                  PUSHI  #0x00000002
33430 @ 279932:                  PUSH   D
33431 @ 279935:                  PUSHI  #0x00000003
33432 @ 279940:                  RSH   
33433 @ 279941:                  OR    
33434 @ 279942:                  ASSPAR
33435 @ 279943:                  CALL  
33436 @ 279944:                  GOTO   L_0006
33437 @ 279947:                  LOCATE L_0007

  5392           STORE CONST(KK,JJ,2,ADDR(D)+2)
33438 @ 279950:                  LINE   5392 "regression-compile-tmp/imp918s.imp"
33439 @ 279988:                  PUSH   STORECONST
33440 @ 279991:                  PUSH   KK
33441 @ 279994:                  ASSPAR
33442 @ 279995:                  PUSH   JJ
33443 @ 279998:                  ASSPAR
33444 @ 279999:                  PUSHI  #0x00000002
33445 @ 280004:                  ASSPAR
33446 @ 280005:                  PUSH   ADDR
33447 @ 280008:                  PUSH   D
33448 @ 280011:                  ASSPAR
33449 @ 280012:                  CALL  
33450 @ 280013:                  PUSHI  #0x00000002
33451 @ 280018:                  ADD   
33452 @ 280019:                  ASSPAR
33453 @ 280020:                  CALL  

  5393           DUMP(X'4C',C,JJ,0,KK)
33454 @ 280021:                  LINE   5393 "regression-compile-tmp/imp918s.imp"
33455 @ 280059:                  PUSH   DUMP
33456 @ 280062:                  PUSHI  #0x0000004c
33457 @ 280067:                  ASSPAR
33458 @ 280068:                  PUSH   C
33459 @ 280071:                  ASSPAR
33460 @ 280072:                  PUSH   JJ
33461 @ 280075:                  ASSPAR
33462 @ 280076:                  PUSHI  #0x00000000
33463 @ 280081:                  ASSPAR
33464 @ 280082:                  PUSH   KK
33465 @ 280085:                  ASSPAR
33466 @ 280086:                  CALL  

  5394           %FINISH; %FINISH
33467 @ 280087:                  LINE   5394 "regression-compile-tmp/imp918s.imp"
33468 @ 280125:                  LOCATE L_0006
33469 @ 280128:                  LINE   5394 "regression-compile-tmp/imp918s.imp"
33470 @ 280166:                  LOCATE L_0003

  5395           REGISTER(C)=0
33471 @ 280169:                  LINE   5395 "regression-compile-tmp/imp918s.imp"
33472 @ 280207:                  PUSH   REGISTER
33473 @ 280210:                  PUSH   C
33474 @ 280213:                  ACCESS
33475 @ 280214:                  PUSHI  #0x00000000
33476 @ 280219:                  ASSVAL

  5396           %IF GRUSE(C)#3 %OR D>255 %THEN ->Label100
33477 @ 280220:                  LINE   5396 "regression-compile-tmp/imp918s.imp"
33478 @ 280258:                  PUSH   GRUSE
33479 @ 280261:                  PUSH   C
33480 @ 280264:                  ACCESS
33481 @ 280265:                  PUSHI  #0x00000003
33482 @ 280270:                  JUMPIF # L_0005
33483 @ 280274:                  PUSH   D
33484 @ 280277:                  PUSHI  #0x000000ff
33485 @ 280282:                  JUMPIF <= L_0004
33486 @ 280286:                  LOCATE L_0005
33487 @ 280289:                  JUMP   L_022d
33488 @ 280292:                  LOCATE L_0004

  5397           SET USE(C,9,D<<24!GRINF(C)); ->Label101
  5398  
33489 @ 280295:                  LINE   5397 "regression-compile-tmp/imp918s.imp"
33490 @ 280333:                  PUSH   SETUSE
33491 @ 280336:                  PUSH   C
33492 @ 280339:                  ASSPAR
33493 @ 280340:                  PUSHI  #0x00000009
33494 @ 280345:                  ASSPAR
33495 @ 280346:                  PUSH   D
33496 @ 280349:                  PUSHI  #0x00000018
33497 @ 280354:                  LSH   
33498 @ 280355:                  PUSH   GRINF
33499 @ 280358:                  PUSH   C
33500 @ 280361:                  ACCESS
33501 @ 280362:                  OR    
33502 @ 280363:                  ASSPAR
33503 @ 280364:                  CALL  
33504 @ 280365:                  LINE   5397 "regression-compile-tmp/imp918s.imp"
33505 @ 280403:                  JUMP   L_022c

  5399  SW(29):                                   ! ->LAB MASKS AND LAB AS OPND2
  5400                                            ! OPND1 MIDDLE OF D-SIDED
33506 @ 280406:                  LINE   5399 "regression-compile-tmp/imp918s.imp"
33507 @ 280444:                  PUSHI  #0x0000001d
33508 @ 280449:                  SLABEL 551

  5401           LOAD(OPND1,-1,0) %IF INHEAD#0;       ! PROTECT MIDDLE OPND IN DSIDED
33509 @ 280452:                  LINE   5401 "regression-compile-tmp/imp918s.imp"
33510 @ 280490:                  PUSH   INHEAD
33511 @ 280493:                  PUSHI  #0x00000000
33512 @ 280498:                  JUMPIF = L_0004
33513 @ 280502:                  PUSH   LOAD
33514 @ 280505:                  PUSH   OPND1
33515 @ 280508:                  ASSPAR
33516 @ 280509:                  PUSHI  #0x00000001
33517 @ 280514:                  NEGATE
33518 @ 280515:                  ASSPAR
33519 @ 280516:                  PUSHI  #0x00000000
33520 @ 280521:                  ASSPAR
33521 @ 280522:                  CALL  
33522 @ 280523:                  LOCATE L_0004

  5402           C=OPND2_XB>>(4*BFFLAG)
33523 @ 280526:                  LINE   5402 "regression-compile-tmp/imp918s.imp"
33524 @ 280564:                  PUSH   C
33525 @ 280567:                  PUSH   OPND2
33526 @ 280570:                  SELECT 2
33527 @ 280573:                  PUSHI  #0x00000004
33528 @ 280578:                  PUSH   BFFLAG
33529 @ 280581:                  MUL   
33530 @ 280582:                  RSH   
33531 @ 280583:                  ASSVAL

  5403           ENTER JUMP(C&15,OPND2_D,B'11')
33532 @ 280584:                  LINE   5403 "regression-compile-tmp/imp918s.imp"
33533 @ 280622:                  PUSH   ENTERJUMP
33534 @ 280625:                  PUSH   C
33535 @ 280628:                  PUSHI  #0x0000000f
33536 @ 280633:                  AND   
33537 @ 280634:                  ASSPAR
33538 @ 280635:                  PUSH   OPND2
33539 @ 280638:                  SELECT 4
33540 @ 280641:                  ASSPAR
33541 @ 280642:                  PUSHI  #0x00000003
33542 @ 280647:                  ASSPAR
33543 @ 280648:                  CALL  

  5404           ->Label101;                           ! RETURN MIDDLE OPND AS RESULT
33544 @ 280649:                  LINE   5404 "regression-compile-tmp/imp918s.imp"
33545 @ 280687:                  JUMP   L_022c

  5405  SW(30):                                   ! ASSIGN(=)
33546 @ 280690:                  LINE   5405 "regression-compile-tmp/imp918s.imp"
33547 @ 280728:                  PUSHI  #0x0000001e
33548 @ 280733:                  SLABEL 551

  5406  SW(31):                                   ! ASSIGN(<-)
33549 @ 280736:                  LINE   5406 "regression-compile-tmp/imp918s.imp"
33550 @ 280774:                  PUSHI  #0x0000001f
33551 @ 280779:                  SLABEL 551

  5407           PP=OPND2_D;                      ! SAVE POINTER TO NAME
33552 @ 280782:                  LINE   5407 "regression-compile-tmp/imp918s.imp"
33553 @ 280820:                  PUSH   PP
33554 @ 280823:                  PUSH   OPND2
33555 @ 280826:                  SELECT 4
33556 @ 280829:                  ASSVAL

  5408           PT=OPND2_PTYPE;                  ! AND ITS ORIGINAL PTYPE
33557 @ 280830:                  LINE   5408 "regression-compile-tmp/imp918s.imp"
33558 @ 280868:                  PUSH   PT
33559 @ 280871:                  PUSH   OPND2
33560 @ 280874:                  SELECT 1
33561 @ 280877:                  ASSVAL

  5409           D=OPND2_FLAG;                    ! SAVE NAME OR R-DESCRPTOR
33562 @ 280878:                  LINE   5409 "regression-compile-tmp/imp918s.imp"
33563 @ 280916:                  PUSH   D
33564 @ 280919:                  PUSH   OPND2
33565 @ 280922:                  SELECT 3
33566 @ 280925:                  ASSVAL

  5410           LOAD(OPND1,-1,0) %UNLESS OPND1_FLAG<=2 %AND OPND1_XB=0 %C
  5411                 %AND OPND1_PTYPE<100;   ! DEAL WITH NASTY RH SIDES
33567 @ 280926:                  LINE   5410 "regression-compile-tmp/imp918s.imp"
33568 @ 280964:                  PUSH   OPND1
33569 @ 280967:                  SELECT 3
33570 @ 280970:                  PUSHI  #0x00000002
33571 @ 280975:                  JUMPIF > L_0005
33572 @ 280979:                  PUSH   OPND1
33573 @ 280982:                  SELECT 2
33574 @ 280985:                  PUSHI  #0x00000000
33575 @ 280990:                  JUMPIF # L_0005
33576 @ 280994:                  PUSH   OPND1
33577 @ 280997:                  SELECT 1
33578 @ 281000:                  PUSHI  #0x00000064
33579 @ 281005:                  JUMPIF < L_0004
33580 @ 281009:                  LOCATE L_0005
33581 @ 281012:                  PUSH   LOAD
33582 @ 281015:                  PUSH   OPND1
33583 @ 281018:                  ASSPAR
33584 @ 281019:                  PUSHI  #0x00000001
33585 @ 281024:                  NEGATE
33586 @ 281025:                  ASSPAR
33587 @ 281026:                  PUSHI  #0x00000000
33588 @ 281031:                  ASSPAR
33589 @ 281032:                  CALL  
33590 @ 281033:                  LOCATE L_0004

  5412           LOAD(OPND2,-1,4);                    ! GET ADDRESS FOR LHS
33591 @ 281036:                  LINE   5412 "regression-compile-tmp/imp918s.imp"
33592 @ 281074:                  PUSH   LOAD
33593 @ 281077:                  PUSH   OPND2
33594 @ 281080:                  ASSPAR
33595 @ 281081:                  PUSHI  #0x00000001
33596 @ 281086:                  NEGATE
33597 @ 281087:                  ASSPAR
33598 @ 281088:                  PUSHI  #0x00000004
33599 @ 281093:                  ASSPAR
33600 @ 281094:                  CALL  

  5413           ->MVI %IF TYPE=1 %AND PREC=1 %AND OPND1_FLAG=0 %AND %C
  5414              OPND1_D<=255 %AND OPND2_XB<16 %AND OPND2_D<=4095
33601 @ 281095:                  LINE   5413 "regression-compile-tmp/imp918s.imp"
33602 @ 281133:                  PUSH   TYPE
33603 @ 281136:                  PUSHI  #0x00000001
33604 @ 281141:                  JUMPIF # L_0004
33605 @ 281145:                  PUSH   PREC
33606 @ 281148:                  PUSHI  #0x00000001
33607 @ 281153:                  JUMPIF # L_0004
33608 @ 281157:                  PUSH   OPND1
33609 @ 281160:                  SELECT 3
33610 @ 281163:                  PUSHI  #0x00000000
33611 @ 281168:                  JUMPIF # L_0004
33612 @ 281172:                  PUSH   OPND1
33613 @ 281175:                  SELECT 4
33614 @ 281178:                  PUSHI  #0x000000ff
33615 @ 281183:                  JUMPIF > L_0004
33616 @ 281187:                  PUSH   OPND2
33617 @ 281190:                  SELECT 2
33618 @ 281193:                  PUSHI  #0x00000010
33619 @ 281198:                  JUMPIF >= L_0004
33620 @ 281202:                  PUSH   OPND2
33621 @ 281205:                  SELECT 4
33622 @ 281208:                  PUSHI  #0x00000fff
33623 @ 281213:                  JUMPIF > L_0004
33624 @ 281217:                  JUMP   L_0239
33625 @ 281220:                  LOCATE L_0004

  5415           %IF OPND1_FLAG#0 %AND OPND2_XB<16 %AND 0<=OPND2_D<=4095 %C
  5416              %AND OPND2_PTYPE=OPND1_PTYPE-100*(OPND1_PTYPE//100) %START
33626 @ 281223:                  LINE   5415 "regression-compile-tmp/imp918s.imp"
33627 @ 281261:                  PUSH   OPND1
33628 @ 281264:                  SELECT 3
33629 @ 281267:                  PUSHI  #0x00000000
33630 @ 281272:                  JUMPIF = L_0004
33631 @ 281276:                  PUSH   OPND2
33632 @ 281279:                  SELECT 2
33633 @ 281282:                  PUSHI  #0x00000010
33634 @ 281287:                  JUMPIF >= L_0004
33635 @ 281291:                  PUSHI  #0x00000000
33636 @ 281296:                  PUSH   OPND2
33637 @ 281299:                  SELECT 4
33638 @ 281302:                  JUMPIFD > L_0004
33639 @ 281306:                  PUSHI  #0x00000fff
33640 @ 281311:                  JUMPIF > L_0004
33641 @ 281315:                  PUSH   OPND2
33642 @ 281318:                  SELECT 1
33643 @ 281321:                  PUSH   OPND1
33644 @ 281324:                  SELECT 1
33645 @ 281327:                  PUSHI  #0x00000064
33646 @ 281332:                  PUSH   OPND1
33647 @ 281335:                  SELECT 1
33648 @ 281338:                  PUSHI  #0x00000064
33649 @ 281343:                  QUOT  
33650 @ 281344:                  MUL   
33651 @ 281345:                  SUB   
33652 @ 281346:                  JUMPIF # L_0004

  5417              LOAD(OPND1,-1,3) %IF OPND1_FLAG<7;! STILL TRYING TO LEAVE RHS
33653 @ 281350:                  LINE   5417 "regression-compile-tmp/imp918s.imp"
33654 @ 281388:                  PUSH   OPND1
33655 @ 281391:                  SELECT 3
33656 @ 281394:                  PUSHI  #0x00000007
33657 @ 281399:                  JUMPIF >= L_0007
33658 @ 281403:                  PUSH   LOAD
33659 @ 281406:                  PUSH   OPND1
33660 @ 281409:                  ASSPAR
33661 @ 281410:                  PUSHI  #0x00000001
33662 @ 281415:                  NEGATE
33663 @ 281416:                  ASSPAR
33664 @ 281417:                  PUSHI  #0x00000003
33665 @ 281422:                  ASSPAR
33666 @ 281423:                  CALL  
33667 @ 281424:                  LOCATE L_0007

  5418           ->MVC %IF OPND2_PTYPE=OPND1_PTYPE %AND  %C
  5419            0<=OPND1_D<=4095 %AND 16>OPND1_XB
33668 @ 281427:                  LINE   5418 "regression-compile-tmp/imp918s.imp"
33669 @ 281465:                  PUSH   OPND2
33670 @ 281468:                  SELECT 1
33671 @ 281471:                  PUSH   OPND1
33672 @ 281474:                  SELECT 1
33673 @ 281477:                  JUMPIF # L_0007
33674 @ 281481:                  PUSHI  #0x00000000
33675 @ 281486:                  PUSH   OPND1
33676 @ 281489:                  SELECT 4
33677 @ 281492:                  JUMPIFD > L_0007
33678 @ 281496:                  PUSHI  #0x00000fff
33679 @ 281501:                  JUMPIF > L_0007
33680 @ 281505:                  PUSHI  #0x00000010
33681 @ 281510:                  PUSH   OPND1
33682 @ 281513:                  SELECT 2
33683 @ 281516:                  JUMPIF <= L_0007
33684 @ 281520:                  JUMP   L_023a
33685 @ 281523:                  LOCATE L_0007

  5420           %FINISH
  5421  ! ALL ATTEMPTS AT SHORT CUTTING HAVE FAILED SO ASSIGN NORMALLY
  5422  ! IF LHS ALREADY IN A REGISTER IT IS BEST TO USE THAT REGISTER
  5423  ! FOR ASSIGNMENT(UNLESS RHS ALREADY IN A DIFFERENT REGISTER).
  5424  ! THIS SAVES A REGISTER WHEN COMPILING 'K=0 %IF K<0' ETC.
  5425  ! IT IS RATHER A TEDIOUS SEARCH SO IT IS OMITTED IN NON OPTIMISING MODE
33686 @ 281526:                  LINE   5420 "regression-compile-tmp/imp918s.imp"
33687 @ 281564:                  LOCATE L_0004

  5426           JJJ=-1
33688 @ 281567:                  LINE   5426 "regression-compile-tmp/imp918s.imp"
33689 @ 281605:                  PUSH   JJJ
33690 @ 281608:                  PUSHI  #0x00000001
33691 @ 281613:                  NEGATE
33692 @ 281614:                  ASSVAL

  5427           %IF CHECKSP=0 %AND OPND1_D>=0 %AND PT<3 %AND D=2 %THENSTART
33693 @ 281615:                  LINE   5427 "regression-compile-tmp/imp918s.imp"
33694 @ 281653:                  PUSH   CHECKSP
33695 @ 281656:                  PUSHI  #0x00000000
33696 @ 281661:                  JUMPIF # L_0004
33697 @ 281665:                  PUSH   OPND1
33698 @ 281668:                  SELECT 4
33699 @ 281671:                  PUSHI  #0x00000000
33700 @ 281676:                  JUMPIF < L_0004
33701 @ 281680:                  PUSH   PT
33702 @ 281683:                  PUSHI  #0x00000003
33703 @ 281688:                  JUMPIF >= L_0004
33704 @ 281692:                  PUSH   D
33705 @ 281695:                  PUSHI  #0x00000002
33706 @ 281700:                  JUMPIF # L_0004

  5428              C=TAGS(A(PP));                   ! TAGS OF LHS
33707 @ 281704:                  LINE   5428 "regression-compile-tmp/imp918s.imp"
33708 @ 281742:                  PUSH   C
33709 @ 281745:                  PUSH   TAGS
33710 @ 281748:                  PUSH   A
33711 @ 281751:                  PUSH   PP
33712 @ 281754:                  ACCESS
33713 @ 281755:                  ACCESS
33714 @ 281756:                  ASSVAL

  5429              FIND USE(KK,PT,3,C)
33715 @ 281757:                  LINE   5429 "regression-compile-tmp/imp918s.imp"
33716 @ 281795:                  PUSH   FINDUSE
33717 @ 281798:                  PUSH   KK
33718 @ 281801:                  ASSPAR
33719 @ 281802:                  PUSH   PT
33720 @ 281805:                  ASSPAR
33721 @ 281806:                  PUSHI  #0x00000003
33722 @ 281811:                  ASSPAR
33723 @ 281812:                  PUSH   C
33724 @ 281815:                  ASSPAR
33725 @ 281816:                  CALL  

  5430              %IF KK>=0 %AND REGISTER(KK)=0 %THEN JJJ=KK&15
33726 @ 281817:                  LINE   5430 "regression-compile-tmp/imp918s.imp"
33727 @ 281855:                  PUSH   KK
33728 @ 281858:                  PUSHI  #0x00000000
33729 @ 281863:                  JUMPIF < L_0007
33730 @ 281867:                  PUSH   REGISTER
33731 @ 281870:                  PUSH   KK
33732 @ 281873:                  ACCESS
33733 @ 281874:                  PUSHI  #0x00000000
33734 @ 281879:                  JUMPIF # L_0007
33735 @ 281883:                  PUSH   JJJ
33736 @ 281886:                  PUSH   KK
33737 @ 281889:                  PUSHI  #0x0000000f
33738 @ 281894:                  AND   
33739 @ 281895:                  ASSVAL
33740 @ 281896:                  LOCATE L_0007

  5431           %FINISH
33741 @ 281899:                  LINE   5431 "regression-compile-tmp/imp918s.imp"
33742 @ 281937:                  LOCATE L_0004

  5432           LOAD(OPND1,JJJ,2);                   ! RHS TO REGISTER
33743 @ 281940:                  LINE   5432 "regression-compile-tmp/imp918s.imp"
33744 @ 281978:                  PUSH   LOAD
33745 @ 281981:                  PUSH   OPND1
33746 @ 281984:                  ASSPAR
33747 @ 281985:                  PUSH   JJJ
33748 @ 281988:                  ASSPAR
33749 @ 281989:                  PUSHI  #0x00000002
33750 @ 281994:                  ASSPAR
33751 @ 281995:                  CALL  

  5433           PTYPE=OPND2_PTYPE;! UNPACK;       ! SET TYPE & PREC FOR LHS
  5434  !%if USE MC = 1 %start
  5435  !            *L_1,PTYPE; *CVD_1,0(11)
  5436  !            *UNPK_ROUT(5),5(3,11)
  5437  !            *NC_ROUT(5),MASK1
  5438  !%finish
33752 @ 281996:                  LINE   5433 "regression-compile-tmp/imp918s.imp"
33753 @ 282034:                  PUSH   PTYPE
33754 @ 282037:                  PUSH   OPND2
33755 @ 282040:                  SELECT 1
33756 @ 282043:                  ASSVAL

  5439           JJJ=8*TYPE+2*(PREC&3)-7;         ! CODE FOR DUMP
33757 @ 282044:                  LINE   5439 "regression-compile-tmp/imp918s.imp"
33758 @ 282082:                  PUSH   JJJ
33759 @ 282085:                  PUSHI  #0x00000008
33760 @ 282090:                  PUSH   TYPE
33761 @ 282093:                  MUL   
33762 @ 282094:                  PUSHI  #0x00000002
33763 @ 282099:                  PUSH   PREC
33764 @ 282102:                  PUSHI  #0x00000003
33765 @ 282107:                  AND   
33766 @ 282108:                  MUL   
33767 @ 282109:                  ADD   
33768 @ 282110:                  PUSHI  #0x00000007
33769 @ 282115:                  SUB   
33770 @ 282116:                  ASSVAL

  5440           DUMP(JJJ,OPND1_XB,OPND2_D,OPND2_XB>>4,OPND2_XB&15)
33771 @ 282117:                  LINE   5440 "regression-compile-tmp/imp918s.imp"
33772 @ 282155:                  PUSH   DUMP
33773 @ 282158:                  PUSH   JJJ
33774 @ 282161:                  ASSPAR
33775 @ 282162:                  PUSH   OPND1
33776 @ 282165:                  SELECT 2
33777 @ 282168:                  ASSPAR
33778 @ 282169:                  PUSH   OPND2
33779 @ 282172:                  SELECT 4
33780 @ 282175:                  ASSPAR
33781 @ 282176:                  PUSH   OPND2
33782 @ 282179:                  SELECT 2
33783 @ 282182:                  PUSHI  #0x00000004
33784 @ 282187:                  RSH   
33785 @ 282188:                  ASSPAR
33786 @ 282189:                  PUSH   OPND2
33787 @ 282192:                  SELECT 2
33788 @ 282195:                  PUSHI  #0x0000000f
33789 @ 282200:                  AND   
33790 @ 282201:                  ASSPAR
33791 @ 282202:                  CALL  

  5441           %IF JJ=30 %AND CHECKS=1 %THEN %C
  5442           CHECK CAPACITY(OPND1_XB,OPND2_D,OPND2_XB>>4,OPND2_XB&15)
33792 @ 282203:                  LINE   5441 "regression-compile-tmp/imp918s.imp"
33793 @ 282241:                  PUSH   JJ
33794 @ 282244:                  PUSHI  #0x0000001e
33795 @ 282249:                  JUMPIF # L_0004
33796 @ 282253:                  PUSH   CHECKS
33797 @ 282256:                  PUSHI  #0x00000001
33798 @ 282261:                  JUMPIF # L_0004
33799 @ 282265:                  PUSH   CHECKCAPACITY
33800 @ 282268:                  PUSH   OPND1
33801 @ 282271:                  SELECT 2
33802 @ 282274:                  ASSPAR
33803 @ 282275:                  PUSH   OPND2
33804 @ 282278:                  SELECT 4
33805 @ 282281:                  ASSPAR
33806 @ 282282:                  PUSH   OPND2
33807 @ 282285:                  SELECT 2
33808 @ 282288:                  PUSHI  #0x00000004
33809 @ 282293:                  RSH   
33810 @ 282294:                  ASSPAR
33811 @ 282295:                  PUSH   OPND2
33812 @ 282298:                  SELECT 2
33813 @ 282301:                  PUSHI  #0x0000000f
33814 @ 282306:                  AND   
33815 @ 282307:                  ASSPAR
33816 @ 282308:                  CALL  
33817 @ 282309:                  LOCATE L_0004

  5443           JJJ=OPND1_XB
33818 @ 282312:                  LINE   5443 "regression-compile-tmp/imp918s.imp"
33819 @ 282350:                  PUSH   JJJ
33820 @ 282353:                  PUSH   OPND1
33821 @ 282356:                  SELECT 2
33822 @ 282359:                  ASSVAL

  5444  NASS1:   UNRESERVE(OPND2_XB)
33823 @ 282360:                  LINE   5444 "regression-compile-tmp/imp918s.imp"
33824 @ 282398:                  LABEL  L_023b
33825 @ 282401:                  LINE   5444 "regression-compile-tmp/imp918s.imp"
33826 @ 282439:                  PUSH   UNRESERVE
33827 @ 282442:                  PUSH   OPND2
33828 @ 282445:                  SELECT 2
33829 @ 282448:                  ASSPAR
33830 @ 282449:                  CALL  

  5445           PTYPE=PT;! UNPACK;                ! ORIGINAL PTYPE
  5446  !%if USE MC = 1 %start
  5447  !            *L_1,PTYPE; *CVD_1,0(11)
  5448  !            *UNPK_ROUT(5),5(3,11)
  5449  !            *NC_ROUT(5),MASK1
  5450  !%finish
33831 @ 282450:                  LINE   5445 "regression-compile-tmp/imp918s.imp"
33832 @ 282488:                  PUSH   PTYPE
33833 @ 282491:                  PUSH   PT
33834 @ 282494:                  ASSVAL

  5451           COMM=1; ->Label101 %UNLESS D=2;       ! ASSGN TO NAME ONLY
33835 @ 282495:                  LINE   5451 "regression-compile-tmp/imp918s.imp"
33836 @ 282533:                  PUSH   COMM
33837 @ 282536:                  PUSHI  #0x00000001
33838 @ 282541:                  ASSVAL
33839 @ 282542:                  LINE   5451 "regression-compile-tmp/imp918s.imp"
33840 @ 282580:                  PUSH   D
33841 @ 282583:                  PUSHI  #0x00000002
33842 @ 282588:                  JUMPIF = L_0004
33843 @ 282592:                  JUMP   L_022c
33844 @ 282595:                  LOCATE L_0004

  5452           %IF 1<=TYPE<=2 %AND ARR=0 %AND A(PP+1)=2=A(PP+2) %THEN %C
  5453           NOTE ASSMENT(JJJ,JJ-28,A(PP))
33845 @ 282598:                  LINE   5452 "regression-compile-tmp/imp918s.imp"
33846 @ 282636:                  PUSHI  #0x00000001
33847 @ 282641:                  PUSH   TYPE
33848 @ 282644:                  JUMPIFD > L_0004
33849 @ 282648:                  PUSHI  #0x00000002
33850 @ 282653:                  JUMPIF > L_0004
33851 @ 282657:                  PUSH   ARR
33852 @ 282660:                  PUSHI  #0x00000000
33853 @ 282665:                  JUMPIF # L_0004
33854 @ 282669:                  PUSH   A
33855 @ 282672:                  PUSH   PP
33856 @ 282675:                  PUSHI  #0x00000001
33857 @ 282680:                  ADD   
33858 @ 282681:                  ACCESS
33859 @ 282682:                  PUSHI  #0x00000002
33860 @ 282687:                  JUMPIFD # L_0004
33861 @ 282691:                  PUSH   A
33862 @ 282694:                  PUSH   PP
33863 @ 282697:                  PUSHI  #0x00000002
33864 @ 282702:                  ADD   
33865 @ 282703:                  ACCESS
33866 @ 282704:                  JUMPIF # L_0004
33867 @ 282708:                  PUSH   NOTEASSMENT
33868 @ 282711:                  PUSH   JJJ
33869 @ 282714:                  ASSPAR
33870 @ 282715:                  PUSH   JJ
33871 @ 282718:                  PUSHI  #0x0000001c
33872 @ 282723:                  SUB   
33873 @ 282724:                  ASSPAR
33874 @ 282725:                  PUSH   A
33875 @ 282728:                  PUSH   PP
33876 @ 282731:                  ACCESS
33877 @ 282732:                  ASSPAR
33878 @ 282733:                  CALL  
33879 @ 282734:                  LOCATE L_0004

  5454           ->Label101;                           ! NORMAL EXIT FREES REG USED
  5455  
33880 @ 282737:                  LINE   5454 "regression-compile-tmp/imp918s.imp"
33881 @ 282775:                  JUMP   L_022c

  5456  MVI:                                      ! ASSIGN CNST(<256) TO BYTE
33882 @ 282778:                  LINE   5456 "regression-compile-tmp/imp918s.imp"
33883 @ 282816:                  LABEL  L_0239

  5457           PSI(X'92',OPND1_D,OPND2_XB,OPND2_D)
33884 @ 282819:                  LINE   5457 "regression-compile-tmp/imp918s.imp"
33885 @ 282857:                  PUSH   PSI
33886 @ 282860:                  PUSHI  #0x00000092
33887 @ 282865:                  ASSPAR
33888 @ 282866:                  PUSH   OPND1
33889 @ 282869:                  SELECT 4
33890 @ 282872:                  ASSPAR
33891 @ 282873:                  PUSH   OPND2
33892 @ 282876:                  SELECT 2
33893 @ 282879:                  ASSPAR
33894 @ 282880:                  PUSH   OPND2
33895 @ 282883:                  SELECT 4
33896 @ 282886:                  ASSPAR
33897 @ 282887:                  CALL  

  5458  NASS2:   JJJ=-1; ->NASS1;                 ! ->NOTE ASSMENT(CAPACITY OK)
33898 @ 282888:                  LINE   5458 "regression-compile-tmp/imp918s.imp"
33899 @ 282926:                  LABEL  L_023c
33900 @ 282929:                  LINE   5458 "regression-compile-tmp/imp918s.imp"
33901 @ 282967:                  PUSH   JJJ
33902 @ 282970:                  PUSHI  #0x00000001
33903 @ 282975:                  NEGATE
33904 @ 282976:                  ASSVAL
33905 @ 282977:                  LINE   5458 "regression-compile-tmp/imp918s.imp"
33906 @ 283015:                  JUMP   L_023b

  5459  MVC:     PMVC(BYTES(PREC),OPND2_XB,OPND2_D,OPND1_XB,OPND1_D)
33907 @ 283018:                  LINE   5459 "regression-compile-tmp/imp918s.imp"
33908 @ 283056:                  LABEL  L_023a
33909 @ 283059:                  LINE   5459 "regression-compile-tmp/imp918s.imp"
33910 @ 283097:                  PUSH   PMVC
33911 @ 283100:                  PUSH   BYTES
33912 @ 283103:                  PUSH   PREC
33913 @ 283106:                  ACCESS
33914 @ 283107:                  ASSPAR
33915 @ 283108:                  PUSH   OPND2
33916 @ 283111:                  SELECT 2
33917 @ 283114:                  ASSPAR
33918 @ 283115:                  PUSH   OPND2
33919 @ 283118:                  SELECT 4
33920 @ 283121:                  ASSPAR
33921 @ 283122:                  PUSH   OPND1
33922 @ 283125:                  SELECT 2
33923 @ 283128:                  ASSPAR
33924 @ 283129:                  PUSH   OPND1
33925 @ 283132:                  SELECT 4
33926 @ 283135:                  ASSPAR
33927 @ 283136:                  CALL  

  5460           UNRESERVE(OPND1_XB)
33928 @ 283137:                  LINE   5460 "regression-compile-tmp/imp918s.imp"
33929 @ 283175:                  PUSH   UNRESERVE
33930 @ 283178:                  PUSH   OPND1
33931 @ 283181:                  SELECT 2
33932 @ 283184:                  ASSPAR
33933 @ 283185:                  CALL  

  5461           ->NASS2
33934 @ 283186:                  LINE   5461 "regression-compile-tmp/imp918s.imp"
33935 @ 283224:                  JUMP   L_023c

  5462  FINISH:  C=STK(STPTR-1)
33936 @ 283227:                  LINE   5462 "regression-compile-tmp/imp918s.imp"
33937 @ 283265:                  LABEL  L_022b
33938 @ 283268:                  LINE   5462 "regression-compile-tmp/imp918s.imp"
33939 @ 283306:                  PUSH   C
33940 @ 283309:                  PUSH   STK
33941 @ 283312:                  PUSH   STPTR
33942 @ 283315:                  PUSHI  #0x00000001
33943 @ 283320:                  SUB   
33944 @ 283321:                  ACCESS
33945 @ 283322:                  ASSVAL

  5463           OPERAND(1)=C
33946 @ 283323:                  LINE   5463 "regression-compile-tmp/imp918s.imp"
33947 @ 283361:                  PUSH   OPERAND
33948 @ 283364:                  PUSHI  #0x00000001
33949 @ 283369:                  ACCESS
33950 @ 283370:                  PUSH   C
33951 @ 283373:                  ASSVAL

  5464           OPND1==RECORD(ADDR(ASLIST(C)))
33952 @ 283374:                  LINE   5464 "regression-compile-tmp/imp918s.imp"
33953 @ 283412:                  PUSH   OPND1
33954 @ 283415:                  PUSH   RECORD
33955 @ 283418:                  PUSH   ADDR
33956 @ 283421:                  PUSH   ASLIST
33957 @ 283424:                  PUSH   C
33958 @ 283427:                  ACCESS
33959 @ 283428:                  ASSPAR
33960 @ 283429:                  CALL  
33961 @ 283430:                  ASSPAR
33962 @ 283431:                  CALL  
33963 @ 283432:                  ASSREF

  5465           LOAD(OPND1,REG,2) %UNLESS RDFORM#0 %OR (OPND1_FLAG=9 %AND %C
  5466              OPND1_D<0 %AND (REG<0 %OR REG=OPND1_XB))
33964 @ 283433:                  LINE   5465 "regression-compile-tmp/imp918s.imp"
33965 @ 283471:                  PUSH   RDFORM
33966 @ 283474:                  PUSHI  #0x00000000
33967 @ 283479:                  JUMPIF # L_0004
33968 @ 283483:                  PUSH   OPND1
33969 @ 283486:                  SELECT 3
33970 @ 283489:                  PUSHI  #0x00000009
33971 @ 283494:                  JUMPIF # L_0005
33972 @ 283498:                  PUSH   OPND1
33973 @ 283501:                  SELECT 4
33974 @ 283504:                  PUSHI  #0x00000000
33975 @ 283509:                  JUMPIF >= L_0005
33976 @ 283513:                  PUSH   REG
33977 @ 283516:                  PUSHI  #0x00000000
33978 @ 283521:                  JUMPIF < L_0004
33979 @ 283525:                  PUSH   REG
33980 @ 283528:                  PUSH   OPND1
33981 @ 283531:                  SELECT 2
33982 @ 283534:                  JUMPIF = L_0004
33983 @ 283538:                  LOCATE L_0005
33984 @ 283541:                  PUSH   LOAD
33985 @ 283544:                  PUSH   OPND1
33986 @ 283547:                  ASSPAR
33987 @ 283548:                  PUSH   REG
33988 @ 283551:                  ASSPAR
33989 @ 283552:                  PUSHI  #0x00000002
33990 @ 283557:                  ASSPAR
33991 @ 283558:                  CALL  
33992 @ 283559:                  LOCATE L_0004

  5467           PTYPE=OPND1_PTYPE
33993 @ 283562:                  LINE   5467 "regression-compile-tmp/imp918s.imp"
33994 @ 283600:                  PUSH   PTYPE
33995 @ 283603:                  PUSH   OPND1
33996 @ 283606:                  SELECT 1
33997 @ 283609:                  ASSVAL

  5468           NEST=-1
  5469          ! UNPACK
  5470  !%if USE MC = 1 %start
  5471  !            *L_1,PTYPE; *CVD_1,0(11)
  5472  !            *UNPK_ROUT(5),5(3,11)
  5473  !            *NC_ROUT(5),MASK1
  5474  !%finish
33998 @ 283610:                  LINE   5468 "regression-compile-tmp/imp918s.imp"
33999 @ 283648:                  PUSH   NEST
34000 @ 283651:                  PUSHI  #0x00000001
34001 @ 283656:                  NEGATE
34002 @ 283657:                  ASSVAL

  5475           %IF OPND1_FLAG=9 %AND OPND1_D<0 %THEN %START
34003 @ 283658:                  LINE   5475 "regression-compile-tmp/imp918s.imp"
34004 @ 283696:                  PUSH   OPND1
34005 @ 283699:                  SELECT 3
34006 @ 283702:                  PUSHI  #0x00000009
34007 @ 283707:                  JUMPIF # L_0004
34008 @ 283711:                  PUSH   OPND1
34009 @ 283714:                  SELECT 4
34010 @ 283717:                  PUSHI  #0x00000000
34011 @ 283722:                  JUMPIF >= L_0004

  5476              NEST=OPND1_XB
34012 @ 283726:                  LINE   5476 "regression-compile-tmp/imp918s.imp"
34013 @ 283764:                  PUSH   NEST
34014 @ 283767:                  PUSH   OPND1
34015 @ 283770:                  SELECT 2
34016 @ 283773:                  ASSVAL

  5477              %IF TYPE=2 %THEN NEST=NEST+16
34017 @ 283774:                  LINE   5477 "regression-compile-tmp/imp918s.imp"
34018 @ 283812:                  PUSH   TYPE
34019 @ 283815:                  PUSHI  #0x00000002
34020 @ 283820:                  JUMPIF # L_0007
34021 @ 283824:                  PUSH   NEST
34022 @ 283827:                  PUSH   NEST
34023 @ 283830:                  PUSHI  #0x00000010
34024 @ 283835:                  ADD   
34025 @ 283836:                  ASSVAL
34026 @ 283837:                  LOCATE L_0007

  5478              %IF GRUSE(NEST)=1 %THEN GRINF(NEST)=0;! DONT POINT AT DEAD LIST
34027 @ 283840:                  LINE   5478 "regression-compile-tmp/imp918s.imp"
34028 @ 283878:                  PUSH   GRUSE
34029 @ 283881:                  PUSH   NEST
34030 @ 283884:                  ACCESS
34031 @ 283885:                  PUSHI  #0x00000001
34032 @ 283890:                  JUMPIF # L_0007
34033 @ 283894:                  PUSH   GRINF
34034 @ 283897:                  PUSH   NEST
34035 @ 283900:                  ACCESS
34036 @ 283901:                  PUSHI  #0x00000000
34037 @ 283906:                  ASSVAL
34038 @ 283907:                  LOCATE L_0007

  5479              NEST=OPND1_XB
34039 @ 283910:                  LINE   5479 "regression-compile-tmp/imp918s.imp"
34040 @ 283948:                  PUSH   NEST
34041 @ 283951:                  PUSH   OPND1
34042 @ 283954:                  SELECT 2
34043 @ 283957:                  ASSVAL

  5480              %IF NEST=0 %AND ADDREXP=1 %THEN %START
34044 @ 283958:                  LINE   5480 "regression-compile-tmp/imp918s.imp"
34045 @ 283996:                  PUSH   NEST
34046 @ 283999:                  PUSHI  #0x00000000
34047 @ 284004:                  JUMPIF # L_0007
34048 @ 284008:                  PUSH   ADDREXP
34049 @ 284011:                  PUSHI  #0x00000001
34050 @ 284016:                  JUMPIF # L_0007

  5481                 LOAD(OPND1,FINDR,2)
34051 @ 284020:                  LINE   5481 "regression-compile-tmp/imp918s.imp"
34052 @ 284058:                  PUSH   LOAD
34053 @ 284061:                  PUSH   OPND1
34054 @ 284064:                  ASSPAR
34055 @ 284065:                  PUSH   FINDR
34056 @ 284068:                  CALL  
34057 @ 284069:                  ASSPAR
34058 @ 284070:                  PUSHI  #0x00000002
34059 @ 284075:                  ASSPAR
34060 @ 284076:                  CALL  

  5482                 FORGET(0)
34061 @ 284077:                  LINE   5482 "regression-compile-tmp/imp918s.imp"
34062 @ 284115:                  PUSH   FORGET
34063 @ 284118:                  PUSHI  #0x00000000
34064 @ 284123:                  ASSPAR
34065 @ 284124:                  CALL  

  5483                 NEST=OPND1_XB
34066 @ 284125:                  LINE   5483 "regression-compile-tmp/imp918s.imp"
34067 @ 284163:                  PUSH   NEST
34068 @ 284166:                  PUSH   OPND1
34069 @ 284169:                  SELECT 2
34070 @ 284172:                  ASSVAL

  5484              %FINISH
34071 @ 284173:                  LINE   5484 "regression-compile-tmp/imp918s.imp"
34072 @ 284211:                  LOCATE L_0007

  5485              D=NEST+(TYPE&2)<<3
34073 @ 284214:                  LINE   5485 "regression-compile-tmp/imp918s.imp"
34074 @ 284252:                  PUSH   D
34075 @ 284255:                  PUSH   NEST
34076 @ 284258:                  PUSH   TYPE
34077 @ 284261:                  PUSHI  #0x00000002
34078 @ 284266:                  AND   
34079 @ 284267:                  PUSHI  #0x00000003
34080 @ 284272:                  LSH   
34081 @ 284273:                  ADD   
34082 @ 284274:                  ASSVAL

  5486              REGISTER(D)=0 %IF REGISTER(D)>0
34083 @ 284275:                  LINE   5486 "regression-compile-tmp/imp918s.imp"
34084 @ 284313:                  PUSH   REGISTER
34085 @ 284316:                  PUSH   D
34086 @ 284319:                  ACCESS
34087 @ 284320:                  PUSHI  #0x00000000
34088 @ 284325:                  JUMPIF <= L_0007
34089 @ 284329:                  PUSH   REGISTER
34090 @ 284332:                  PUSH   D
34091 @ 284335:                  ACCESS
34092 @ 284336:                  PUSHI  #0x00000000
34093 @ 284341:                  ASSVAL
34094 @ 284342:                  LOCATE L_0007

  5487           %FINISH
34095 @ 284345:                  LINE   5487 "regression-compile-tmp/imp918s.imp"
34096 @ 284383:                  LOCATE L_0004

  5488           %RETURN
  5489  !
34097 @ 284386:                  LINE   5488 "regression-compile-tmp/imp918s.imp"
34098 @ 284424:                  RETURN

  5490           %INTEGERFN FINDR
34099 @ 284425:                  LINE   5490 "regression-compile-tmp/imp918s.imp"
34100 @ 284463:                  DEF    FINDR (_lev0id0_CSS_EXPOP_FINDR) p1=V_021e a/tf=18 b/format=1 c/ostate=10  type=1 (integer) form=8 (function) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=1 unass=0
34101 @ 284480:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
34102 @ 284481:                     FINISH ) {lev=4}

  5491           %INTEGER I,J
  5492           {%SHORTROUTINE}
34103 @ 284482:                     LINE   5491 "regression-compile-tmp/imp918s.imp"
34104 @ 284520:                     DEF    I p1=V_023d 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
34105 @ 284533:                     DEF    J p1=V_023e 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

  5493           %IF REG>=0 %THEN %START
34106 @ 284546:                     LINE   5493 "regression-compile-tmp/imp918s.imp"
34107 @ 284584:                     PUSH   REG
34108 @ 284587:                     PUSHI  #0x00000000
34109 @ 284592:                     JUMPIF < L_0004

  5494           I=REG; ->Label1 %IF REGISTER(REG)=0; %FINISH
34110 @ 284596:                     LINE   5494 "regression-compile-tmp/imp918s.imp"
34111 @ 284634:                     PUSH   I
34112 @ 284637:                     PUSH   REG
34113 @ 284640:                     ASSVAL
34114 @ 284641:                     LINE   5494 "regression-compile-tmp/imp918s.imp"
34115 @ 284679:                     PUSH   REGISTER
34116 @ 284682:                     PUSH   REG
34117 @ 284685:                     ACCESS
34118 @ 284686:                     PUSHI  #0x00000000
34119 @ 284691:                     JUMPIF # L_0007
34120 @ 284695:                     JUMP   L_023f
34121 @ 284698:                     LOCATE L_0007
34122 @ 284701:                     LINE   5494 "regression-compile-tmp/imp918s.imp"
34123 @ 284739:                     LOCATE L_0004

  5495           %IF ADDREXP=1 %THEN J=GR1 %ELSE J=GR0
34124 @ 284742:                     LINE   5495 "regression-compile-tmp/imp918s.imp"
34125 @ 284780:                     PUSH   ADDREXP
34126 @ 284783:                     PUSHI  #0x00000001
34127 @ 284788:                     JUMPIF # L_0004
34128 @ 284792:                     PUSH   J
34129 @ 284795:                     PUSHI  #0x0001010f
34130 @ 284800:                     ASSVAL
34131 @ 284801:                     GOTO   L_0003
34132 @ 284804:                     LOCATE L_0004
34133 @ 284807:                     PUSH   J
34134 @ 284810:                     PUSHI  #0x00010f1e
34135 @ 284815:                     ASSVAL
34136 @ 284816:                     LOCATE L_0003

  5496           FIND REG(J,I)
34137 @ 284819:                     LINE   5496 "regression-compile-tmp/imp918s.imp"
34138 @ 284857:                     PUSH   FINDREG
34139 @ 284860:                     PUSH   J
34140 @ 284863:                     ASSPAR
34141 @ 284864:                     PUSH   I
34142 @ 284867:                     ASSPAR
34143 @ 284868:                     CALL  

  5497  Label1:       REGISTER(I)=1;
34144 @ 284869:                     LINE   5497 "regression-compile-tmp/imp918s.imp"
34145 @ 284907:                     LABEL  L_023f
34146 @ 284910:                     LINE   5497 "regression-compile-tmp/imp918s.imp"
34147 @ 284948:                     PUSH   REGISTER
34148 @ 284951:                     PUSH   I
34149 @ 284954:                     ACCESS
34150 @ 284955:                     PUSHI  #0x00000001
34151 @ 284960:                     ASSVAL

  5498           %RESULT=I
34152 @ 284961:                     LINE   5498 "regression-compile-tmp/imp918s.imp"
34153 @ 284999:                     PUSH   I
34154 @ 285002:                     RESULT

  5499           %END
34155 @ 285003:                     LINE   5499 "regression-compile-tmp/imp918s.imp"
34156 @ 285041:                  END    _lev0id0_CSS_EXPOP_FINDR {lev=4 --> 3}

  5500           %ROUTINE CHOOSE(%INTEGERNAME CHOICE)
  5501           {%SHORTROUTINE}
34157 @ 285042:                  LINE   5500 "regression-compile-tmp/imp918s.imp"
34158 @ 285080:                  DEF    CHOOSE (_lev0id0_CSS_EXPOP_CHOOSE) p1=V_021d 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
34159 @ 285098:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
34160 @ 285099:                        DEF    CHOICE p1=V_023d a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
34161 @ 285117:                     FINISH ) {lev=4}

  5502          %BYTEINTEGER X1,X2,F1,F2
34162 @ 285118:                     LINE   5502 "regression-compile-tmp/imp918s.imp"
34163 @ 285156:                     DEF    X1 p1=V_023e a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
34164 @ 285170:                     DEF    X2 p1=V_023f a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
34165 @ 285184:                     DEF    F1 p1=V_0240 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
34166 @ 285198:                     DEF    F2 p1=V_0241 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0

  5503           %RECORD(RD)%NAME OPND1,OPND2
34167 @ 285212:                     LINE   5503 "regression-compile-tmp/imp918s.imp"
34168 @ 285250:                     DEF    OPND1 p1=V_0242 a/tf=42 b/format=1be c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
34169 @ 285267:                     DEF    OPND2 p1=V_0243 a/tf=42 b/format=1be c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  5504           OPND1==RECORD(ADDR(ASLIST(OPERAND(1))))
34170 @ 285284:                     LINE   5504 "regression-compile-tmp/imp918s.imp"
34171 @ 285322:                     PUSH   OPND1
34172 @ 285325:                     PUSH   RECORD
34173 @ 285328:                     PUSH   ADDR
34174 @ 285331:                     PUSH   ASLIST
34175 @ 285334:                     PUSH   OPERAND
34176 @ 285337:                     PUSHI  #0x00000001
34177 @ 285342:                     ACCESS
34178 @ 285343:                     ACCESS
34179 @ 285344:                     ASSPAR
34180 @ 285345:                     CALL  
34181 @ 285346:                     ASSPAR
34182 @ 285347:                     CALL  
34183 @ 285348:                     ASSREF

  5505           OPND2==RECORD(ADDR(ASLIST(OPERAND(2))))
34184 @ 285349:                     LINE   5505 "regression-compile-tmp/imp918s.imp"
34185 @ 285387:                     PUSH   OPND2
34186 @ 285390:                     PUSH   RECORD
34187 @ 285393:                     PUSH   ADDR
34188 @ 285396:                     PUSH   ASLIST
34189 @ 285399:                     PUSH   OPERAND
34190 @ 285402:                     PUSHI  #0x00000002
34191 @ 285407:                     ACCESS
34192 @ 285408:                     ACCESS
34193 @ 285409:                     ASSPAR
34194 @ 285410:                     CALL  
34195 @ 285411:                     ASSPAR
34196 @ 285412:                     CALL  
34197 @ 285413:                     ASSREF

  5506           F1=OPND1_FLAG; F2=OPND2_FLAG
34198 @ 285414:                     LINE   5506 "regression-compile-tmp/imp918s.imp"
34199 @ 285452:                     PUSH   F1
34200 @ 285455:                     PUSH   OPND1
34201 @ 285458:                     SELECT 3
34202 @ 285461:                     ASSVAL
34203 @ 285462:                     LINE   5506 "regression-compile-tmp/imp918s.imp"
34204 @ 285500:                     PUSH   F2
34205 @ 285503:                     PUSH   OPND2
34206 @ 285506:                     SELECT 3
34207 @ 285509:                     ASSVAL

  5507           X1=OPND1_XB; X2=OPND2_XB
34208 @ 285510:                     LINE   5507 "regression-compile-tmp/imp918s.imp"
34209 @ 285548:                     PUSH   X1
34210 @ 285551:                     PUSH   OPND1
34211 @ 285554:                     SELECT 2
34212 @ 285557:                     ASSVAL
34213 @ 285558:                     LINE   5507 "regression-compile-tmp/imp918s.imp"
34214 @ 285596:                     PUSH   X2
34215 @ 285599:                     PUSH   OPND2
34216 @ 285602:                     SELECT 2
34217 @ 285605:                     ASSVAL

  5508           -> CHOS1 %IF F1=2 %AND (X1=1 %OR 1<X1=SPECREG)
34218 @ 285606:                     LINE   5508 "regression-compile-tmp/imp918s.imp"
34219 @ 285644:                     PUSH   F1
34220 @ 285647:                     PUSHI  #0x00000002
34221 @ 285652:                     JUMPIF # L_0004
34222 @ 285656:                     PUSH   X1
34223 @ 285659:                     PUSHI  #0x00000001
34224 @ 285664:                     JUMPIF = L_0005
34225 @ 285668:                     PUSHI  #0x00000001
34226 @ 285673:                     PUSH   X1
34227 @ 285676:                     JUMPIFD >= L_0004
34228 @ 285680:                     PUSH   SPECREG
34229 @ 285683:                     JUMPIF # L_0004
34230 @ 285687:                     LOCATE L_0005
34231 @ 285690:                     JUMP   L_0244
34232 @ 285693:                     LOCATE L_0004

  5509           -> CHOS2 %IF F2=2 %AND (X2=1 %OR 1<X2=SPECREG)
34233 @ 285696:                     LINE   5509 "regression-compile-tmp/imp918s.imp"
34234 @ 285734:                     PUSH   F2
34235 @ 285737:                     PUSHI  #0x00000002
34236 @ 285742:                     JUMPIF # L_0004
34237 @ 285746:                     PUSH   X2
34238 @ 285749:                     PUSHI  #0x00000001
34239 @ 285754:                     JUMPIF = L_0005
34240 @ 285758:                     PUSHI  #0x00000001
34241 @ 285763:                     PUSH   X2
34242 @ 285766:                     JUMPIFD >= L_0004
34243 @ 285770:                     PUSH   SPECREG
34244 @ 285773:                     JUMPIF # L_0004
34245 @ 285777:                     LOCATE L_0005
34246 @ 285780:                     JUMP   L_0245
34247 @ 285783:                     LOCATE L_0004

  5510           -> CHOS0 %IF F1>=7 %AND OPND1_D<0
34248 @ 285786:                     LINE   5510 "regression-compile-tmp/imp918s.imp"
34249 @ 285824:                     PUSH   F1
34250 @ 285827:                     PUSHI  #0x00000007
34251 @ 285832:                     JUMPIF < L_0004
34252 @ 285836:                     PUSH   OPND1
34253 @ 285839:                     SELECT 4
34254 @ 285842:                     PUSHI  #0x00000000
34255 @ 285847:                     JUMPIF >= L_0004
34256 @ 285851:                     JUMP   L_0246
34257 @ 285854:                     LOCATE L_0004

  5511           -> CHOS2 %IF F2>=7 %AND OPND2_D<0
34258 @ 285857:                     LINE   5511 "regression-compile-tmp/imp918s.imp"
34259 @ 285895:                     PUSH   F2
34260 @ 285898:                     PUSHI  #0x00000007
34261 @ 285903:                     JUMPIF < L_0004
34262 @ 285907:                     PUSH   OPND2
34263 @ 285910:                     SELECT 4
34264 @ 285913:                     PUSHI  #0x00000000
34265 @ 285918:                     JUMPIF >= L_0004
34266 @ 285922:                     JUMP   L_0245
34267 @ 285925:                     LOCATE L_0004

  5512           PTYPE=OPND1_PTYPE;! UNPACK
  5513  !%if USE MC = 1 %start
  5514  !            *L_1,PTYPE; *CVD_1,0(11)
  5515  !            *UNPK_ROUT(5),5(3,11)
  5516  !            *NC_ROUT(5),MASK1
  5517  !%finish
34268 @ 285928:                     LINE   5512 "regression-compile-tmp/imp918s.imp"
34269 @ 285966:                     PUSH   PTYPE
34270 @ 285969:                     PUSH   OPND1
34271 @ 285972:                     SELECT 1
34272 @ 285975:                     ASSVAL

  5518           -> CHOS1 %IF PREC=1
34273 @ 285976:                     LINE   5518 "regression-compile-tmp/imp918s.imp"
34274 @ 286014:                     PUSH   PREC
34275 @ 286017:                     PUSHI  #0x00000001
34276 @ 286022:                     JUMPIF # L_0004
34277 @ 286026:                     JUMP   L_0244
34278 @ 286029:                     LOCATE L_0004

  5519           PTYPE=OPND2_PTYPE;! UNPACK
  5520  !%if USE MC = 1 %start
  5521  !            *L_1,PTYPE; *CVD_1,0(11)
  5522  !            *UNPK_ROUT(5),5(3,11)
  5523  !            *NC_ROUT(5),MASK1
  5524  !%finish
34279 @ 286032:                     LINE   5519 "regression-compile-tmp/imp918s.imp"
34280 @ 286070:                     PUSH   PTYPE
34281 @ 286073:                     PUSH   OPND2
34282 @ 286076:                     SELECT 1
34283 @ 286079:                     ASSVAL

  5525           -> CHOS2 %IF PREC=1
34284 @ 286080:                     LINE   5525 "regression-compile-tmp/imp918s.imp"
34285 @ 286118:                     PUSH   PREC
34286 @ 286121:                     PUSHI  #0x00000001
34287 @ 286126:                     JUMPIF # L_0004
34288 @ 286130:                     JUMP   L_0245
34289 @ 286133:                     LOCATE L_0004

  5526           -> CHOS1 %IF F1=0 %AND OPND1_D>3 %AND OPCODE#X'19'
34290 @ 286136:                     LINE   5526 "regression-compile-tmp/imp918s.imp"
34291 @ 286174:                     PUSH   F1
34292 @ 286177:                     PUSHI  #0x00000000
34293 @ 286182:                     JUMPIF # L_0004
34294 @ 286186:                     PUSH   OPND1
34295 @ 286189:                     SELECT 4
34296 @ 286192:                     PUSHI  #0x00000003
34297 @ 286197:                     JUMPIF <= L_0004
34298 @ 286201:                     PUSH   OPCODE
34299 @ 286204:                     PUSHI  #0x00000019
34300 @ 286209:                     JUMPIF = L_0004
34301 @ 286213:                     JUMP   L_0244
34302 @ 286216:                     LOCATE L_0004

  5527           -> CHOS2 %IF F2=0 %AND OPND2_D>3 %AND OPCODE#X'19'
34303 @ 286219:                     LINE   5527 "regression-compile-tmp/imp918s.imp"
34304 @ 286257:                     PUSH   F2
34305 @ 286260:                     PUSHI  #0x00000000
34306 @ 286265:                     JUMPIF # L_0004
34307 @ 286269:                     PUSH   OPND2
34308 @ 286272:                     SELECT 4
34309 @ 286275:                     PUSHI  #0x00000003
34310 @ 286280:                     JUMPIF <= L_0004
34311 @ 286284:                     PUSH   OPCODE
34312 @ 286287:                     PUSHI  #0x00000019
34313 @ 286292:                     JUMPIF = L_0004
34314 @ 286296:                     JUMP   L_0245
34315 @ 286299:                     LOCATE L_0004

  5528           -> CHOS2 %IF OPND2_PTYPE>OPND1_PTYPE
34316 @ 286302:                     LINE   5528 "regression-compile-tmp/imp918s.imp"
34317 @ 286340:                     PUSH   OPND2
34318 @ 286343:                     SELECT 1
34319 @ 286346:                     PUSH   OPND1
34320 @ 286349:                     SELECT 1
34321 @ 286352:                     JUMPIF <= L_0004
34322 @ 286356:                     JUMP   L_0245
34323 @ 286359:                     LOCATE L_0004

  5529           -> CHOS2 %IF F2>F1
34324 @ 286362:                     LINE   5529 "regression-compile-tmp/imp918s.imp"
34325 @ 286400:                     PUSH   F2
34326 @ 286403:                     PUSH   F1
34327 @ 286406:                     JUMPIF <= L_0004
34328 @ 286410:                     JUMP   L_0245
34329 @ 286413:                     LOCATE L_0004

  5530  CHOS1:   CHOICE=1; ->Label99
34330 @ 286416:                     LINE   5530 "regression-compile-tmp/imp918s.imp"
34331 @ 286454:                     LABEL  L_0244
34332 @ 286457:                     LINE   5530 "regression-compile-tmp/imp918s.imp"
34333 @ 286495:                     PUSH   CHOICE
34334 @ 286498:                     PUSHI  #0x00000001
34335 @ 286503:                     ASSVAL
34336 @ 286504:                     LINE   5530 "regression-compile-tmp/imp918s.imp"
34337 @ 286542:                     JUMP   L_0247

  5531  CHOS0:   ->CHOS1 %UNLESS F2>7 %AND OPND2_D<0 %AND X2=REG
34338 @ 286545:                     LINE   5531 "regression-compile-tmp/imp918s.imp"
34339 @ 286583:                     LABEL  L_0246
34340 @ 286586:                     LINE   5531 "regression-compile-tmp/imp918s.imp"
34341 @ 286624:                     PUSH   F2
34342 @ 286627:                     PUSHI  #0x00000007
34343 @ 286632:                     JUMPIF <= L_0005
34344 @ 286636:                     PUSH   OPND2
34345 @ 286639:                     SELECT 4
34346 @ 286642:                     PUSHI  #0x00000000
34347 @ 286647:                     JUMPIF >= L_0005
34348 @ 286651:                     PUSH   X2
34349 @ 286654:                     PUSH   REG
34350 @ 286657:                     JUMPIF = L_0004
34351 @ 286661:                     LOCATE L_0005
34352 @ 286664:                     JUMP   L_0244
34353 @ 286667:                     LOCATE L_0004

  5532  CHOS2:   CHOICE=2
34354 @ 286670:                     LINE   5532 "regression-compile-tmp/imp918s.imp"
34355 @ 286708:                     LABEL  L_0245
34356 @ 286711:                     LINE   5532 "regression-compile-tmp/imp918s.imp"
34357 @ 286749:                     PUSH   CHOICE
34358 @ 286752:                     PUSHI  #0x00000002
34359 @ 286757:                     ASSVAL

  5533  Label99:      %END
34360 @ 286758:                     LINE   5533 "regression-compile-tmp/imp918s.imp"
34361 @ 286796:                     LABEL  L_0247
34362 @ 286799:                     LINE   5533 "regression-compile-tmp/imp918s.imp"
34363 @ 286837:                  END    _lev0id0_CSS_EXPOP_CHOOSE {lev=4 --> 3}

  5534           %ROUTINE LOAD(%RECORD(RD)%NAME OPND,%INTEGER REG,MODE)
  5535  !***********************************************************************
  5536  !*        MODE=0   LEAVE IN STORE IF POSSIBLE                          *
  5537  !*        MODE=1 LEAVE IN STORE IF SUITABLE FOR RX INSTRUCTIONS        *
  5538  !*        MODE=2 LOAD TO REGISTER REGARDLESS                           *
  5539  !*        MODE=3 LEAVE IN STORE IF SUITABLE FOR CLC  INSTRUCTIONS      *
  5540  !***********************************************************************
  5541           {%SHORTROUTINE}
34364 @ 286838:                  LINE   5534 "regression-compile-tmp/imp918s.imp"
34365 @ 286876:                  DEF    LOAD (_lev0id0_CSS_EXPOP_LOAD) p1=V_0224 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
34366 @ 286892:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
34367 @ 286893:                        DEF    OPND p1=V_023d a/tf=42 b/format=1be c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
34368 @ 286909:                        DEF    REG p1=V_023e 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
34369 @ 286924:                        DEF    MODE p1=V_023f 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
34370 @ 286940:                     FINISH ) {lev=4}

  5542           %INTEGER I,J,K,VALUE,B
  5543           {%RECORDSPEC OPND(RD)}
34371 @ 286941:                     LINE   5542 "regression-compile-tmp/imp918s.imp"
34372 @ 286979:                     DEF    I p1=V_0240 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
34373 @ 286992:                     DEF    J p1=V_0241 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
34374 @ 287005:                     DEF    K p1=V_0242 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
34375 @ 287018:                     DEF    VALUE p1=V_0243 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
34376 @ 287035:                     DEF    B p1=V_0244 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

  5544           %SWITCH SW(0:9)
34377 @ 287048:                     LINE   5544 "regression-compile-tmp/imp918s.imp"
34378 @ 287086:                     PUSHI  #0x00000000
34379 @ 287091:                     PUSHI  #0x00000009
34380 @ 287096:                     BOUNDS
34381 @ 287097:                     DEF    SW p1=V_0245 a/tf=6 b/format=0 c/ostate=0  type=0 (<type:0>) form=6 (switch) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  5545           PTYPE=OPND_PTYPE;! UNPACK
  5546  !%if USE MC = 1 %start
  5547  !            *L_1,PTYPE; *CVD_1,0(11)
  5548  !            *UNPK_ROUT(5),5(3,11)
  5549  !            *NC_ROUT(5),MASK1
  5550  !%finish
34382 @ 287111:                     LINE   5545 "regression-compile-tmp/imp918s.imp"
34383 @ 287149:                     PUSH   PTYPE
34384 @ 287152:                     PUSH   OPND
34385 @ 287155:                     SELECT 1
34386 @ 287158:                     ASSVAL

  5551           PREC=PREC&3
34387 @ 287159:                     LINE   5551 "regression-compile-tmp/imp918s.imp"
34388 @ 287197:                     PUSH   PREC
34389 @ 287200:                     PUSH   PREC
34390 @ 287203:                     PUSHI  #0x00000003
34391 @ 287208:                     AND   
34392 @ 287209:                     ASSVAL

  5552           %IF REG<0 %THEN REG=REG-ADDREXP
34393 @ 287210:                     LINE   5552 "regression-compile-tmp/imp918s.imp"
34394 @ 287248:                     PUSH   REG
34395 @ 287251:                     PUSHI  #0x00000000
34396 @ 287256:                     JUMPIF >= L_0004
34397 @ 287260:                     PUSH   REG
34398 @ 287263:                     PUSH   REG
34399 @ 287266:                     PUSH   ADDREXP
34400 @ 287269:                     SUB   
34401 @ 287270:                     ASSVAL
34402 @ 287271:                     LOCATE L_0004

  5553           -> SW(OPND_FLAG)
34403 @ 287274:                     LINE   5553 "regression-compile-tmp/imp918s.imp"
34404 @ 287312:                     PUSH   OPND
34405 @ 287315:                     SELECT 3
34406 @ 287318:                     SJUMP  581

  5554  SW(0):                                 ! CONSTANT < 4096
34407 @ 287321:                     LINE   5554 "regression-compile-tmp/imp918s.imp"
34408 @ 287359:                     PUSHI  #0x00000000
34409 @ 287364:                     SLABEL 581

  5555           ->Label99 %UNLESS MODE>0
34410 @ 287367:                     LINE   5555 "regression-compile-tmp/imp918s.imp"
34411 @ 287405:                     PUSH   MODE
34412 @ 287408:                     PUSHI  #0x00000000
34413 @ 287413:                     JUMPIF > L_0004
34414 @ 287417:                     JUMP   L_0246
34415 @ 287420:                     LOCATE L_0004

  5556           VALUE=OPND_D
34416 @ 287423:                     LINE   5556 "regression-compile-tmp/imp918s.imp"
34417 @ 287461:                     PUSH   VALUE
34418 @ 287464:                     PUSH   OPND
34419 @ 287467:                     SELECT 4
34420 @ 287470:                     ASSVAL

  5557           %IF CSSMODE=0 %THEN OPTSAVE(0,2,1,VALUE)
34421 @ 287471:                     LINE   5557 "regression-compile-tmp/imp918s.imp"
34422 @ 287509:                     PUSH   CSSMODE
34423 @ 287512:                     PUSHI  #0x00000000
34424 @ 287517:                     JUMPIF # L_0004
34425 @ 287521:                     PUSH   OPTSAVE
34426 @ 287524:                     PUSHI  #0x00000000
34427 @ 287529:                     ASSPAR
34428 @ 287530:                     PUSHI  #0x00000002
34429 @ 287535:                     ASSPAR
34430 @ 287536:                     PUSHI  #0x00000001
34431 @ 287541:                     ASSPAR
34432 @ 287542:                     PUSH   VALUE
34433 @ 287545:                     ASSPAR
34434 @ 287546:                     CALL  
34435 @ 287547:                     LOCATE L_0004

  5558           FIND USE(I,1,2,VALUE)
34436 @ 287550:                     LINE   5558 "regression-compile-tmp/imp918s.imp"
34437 @ 287588:                     PUSH   FINDUSE
34438 @ 287591:                     PUSH   I
34439 @ 287594:                     ASSPAR
34440 @ 287595:                     PUSHI  #0x00000001
34441 @ 287600:                     ASSPAR
34442 @ 287601:                     PUSHI  #0x00000002
34443 @ 287606:                     ASSPAR
34444 @ 287607:                     PUSH   VALUE
34445 @ 287610:                     ASSPAR
34446 @ 287611:                     CALL  

  5559           -> NOT FOUND %IF I<0
34447 @ 287612:                     LINE   5559 "regression-compile-tmp/imp918s.imp"
34448 @ 287650:                     PUSH   I
34449 @ 287653:                     PUSHI  #0x00000000
34450 @ 287658:                     JUMPIF >= L_0004
34451 @ 287662:                     JUMP   L_0247
34452 @ 287665:                     LOCATE L_0004

  5560           %IF REG<0 %THEN %START
34453 @ 287668:                     LINE   5560 "regression-compile-tmp/imp918s.imp"
34454 @ 287706:                     PUSH   REG
34455 @ 287709:                     PUSHI  #0x00000000
34456 @ 287714:                     JUMPIF >= L_0004

  5561           ->RF %IF REGISTER(I)=0
34457 @ 287718:                     LINE   5561 "regression-compile-tmp/imp918s.imp"
34458 @ 287756:                     PUSH   REGISTER
34459 @ 287759:                     PUSH   I
34460 @ 287762:                     ACCESS
34461 @ 287763:                     PUSHI  #0x00000000
34462 @ 287768:                     JUMPIF # L_0007
34463 @ 287772:                     JUMP   L_0248
34464 @ 287775:                     LOCATE L_0007

  5562           ->RF2 %IF REGISTER(I)<0 %AND(26<=JJ<=27 %OR 30<=JJ<=31)
34465 @ 287778:                     LINE   5562 "regression-compile-tmp/imp918s.imp"
34466 @ 287816:                     PUSH   REGISTER
34467 @ 287819:                     PUSH   I
34468 @ 287822:                     ACCESS
34469 @ 287823:                     PUSHI  #0x00000000
34470 @ 287828:                     JUMPIF >= L_0007
34471 @ 287832:                     PUSHI  #0x0000001a
34472 @ 287837:                     PUSH   JJ
34473 @ 287840:                     JUMPIFD > L_0009
34474 @ 287844:                     PUSHI  #0x0000001b
34475 @ 287849:                     JUMPIF <= L_0008
34476 @ 287853:                     LOCATE L_0009
34477 @ 287856:                     PUSHI  #0x0000001e
34478 @ 287861:                     PUSH   JJ
34479 @ 287864:                     JUMPIFD > L_0007
34480 @ 287868:                     PUSHI  #0x0000001f
34481 @ 287873:                     JUMPIF > L_0007
34482 @ 287877:                     LOCATE L_0008
34483 @ 287880:                     JUMP   L_0249
34484 @ 287883:                     LOCATE L_0007

  5563           ->RF2 %IF MODE=1
34485 @ 287886:                     LINE   5563 "regression-compile-tmp/imp918s.imp"
34486 @ 287924:                     PUSH   MODE
34487 @ 287927:                     PUSHI  #0x00000001
34488 @ 287932:                     JUMPIF # L_0007
34489 @ 287936:                     JUMP   L_0249
34490 @ 287939:                     LOCATE L_0007

  5564           %FINISH
34491 @ 287942:                     LINE   5564 "regression-compile-tmp/imp918s.imp"
34492 @ 287980:                     LOCATE L_0004

  5565           REG=FINDR %IF REG<0
34493 @ 287983:                     LINE   5565 "regression-compile-tmp/imp918s.imp"
34494 @ 288021:                     PUSH   REG
34495 @ 288024:                     PUSHI  #0x00000000
34496 @ 288029:                     JUMPIF >= L_0004
34497 @ 288033:                     PUSH   REG
34498 @ 288036:                     PUSH   FINDR
34499 @ 288039:                     CALL  
34500 @ 288040:                     ASSVAL
34501 @ 288041:                     LOCATE L_0004

  5566           PRR(X'18',REG,I) %UNLESS REG=I
34502 @ 288044:                     LINE   5566 "regression-compile-tmp/imp918s.imp"
34503 @ 288082:                     PUSH   REG
34504 @ 288085:                     PUSH   I
34505 @ 288088:                     JUMPIF = L_0004
34506 @ 288092:                     PUSH   PRR
34507 @ 288095:                     PUSHI  #0x00000018
34508 @ 288100:                     ASSPAR
34509 @ 288101:                     PUSH   REG
34510 @ 288104:                     ASSPAR
34511 @ 288105:                     PUSH   I
34512 @ 288108:                     ASSPAR
34513 @ 288109:                     CALL  
34514 @ 288110:                     LOCATE L_0004

  5567           REGISTER(REG)=1 %IF REGISTER(REG)=0
34515 @ 288113:                     LINE   5567 "regression-compile-tmp/imp918s.imp"
34516 @ 288151:                     PUSH   REGISTER
34517 @ 288154:                     PUSH   REG
34518 @ 288157:                     ACCESS
34519 @ 288158:                     PUSHI  #0x00000000
34520 @ 288163:                     JUMPIF # L_0004
34521 @ 288167:                     PUSH   REGISTER
34522 @ 288170:                     PUSH   REG
34523 @ 288173:                     ACCESS
34524 @ 288174:                     PUSHI  #0x00000001
34525 @ 288179:                     ASSVAL
34526 @ 288180:                     LOCATE L_0004

  5568  SG:      SET USE(REG,2,VALUE) %UNLESS REGISTER(REG)<0
34527 @ 288183:                     LINE   5568 "regression-compile-tmp/imp918s.imp"
34528 @ 288221:                     LABEL  L_024a
34529 @ 288224:                     LINE   5568 "regression-compile-tmp/imp918s.imp"
34530 @ 288262:                     PUSH   REGISTER
34531 @ 288265:                     PUSH   REG
34532 @ 288268:                     ACCESS
34533 @ 288269:                     PUSHI  #0x00000000
34534 @ 288274:                     JUMPIF < L_0004
34535 @ 288278:                     PUSH   SETUSE
34536 @ 288281:                     PUSH   REG
34537 @ 288284:                     ASSPAR
34538 @ 288285:                     PUSHI  #0x00000002
34539 @ 288290:                     ASSPAR
34540 @ 288291:                     PUSH   VALUE
34541 @ 288294:                     ASSPAR
34542 @ 288295:                     CALL  
34543 @ 288296:                     LOCATE L_0004

  5569  Label1:       OPND_PTYPE=1
34544 @ 288299:                     LINE   5569 "regression-compile-tmp/imp918s.imp"
34545 @ 288337:                     LABEL  L_024b
34546 @ 288340:                     LINE   5569 "regression-compile-tmp/imp918s.imp"
34547 @ 288378:                     PUSH   OPND
34548 @ 288381:                     SELECT 1
34549 @ 288384:                     PUSHI  #0x00000001
34550 @ 288389:                     ASSVAL

  5570  Label2:       OPND_FLAG=9
34551 @ 288390:                     LINE   5570 "regression-compile-tmp/imp918s.imp"
34552 @ 288428:                     LABEL  L_024c
34553 @ 288431:                     LINE   5570 "regression-compile-tmp/imp918s.imp"
34554 @ 288469:                     PUSH   OPND
34555 @ 288472:                     SELECT 3
34556 @ 288475:                     PUSHI  #0x00000009
34557 @ 288480:                     ASSVAL

  5571           OPND_XB=REG
34558 @ 288481:                     LINE   5571 "regression-compile-tmp/imp918s.imp"
34559 @ 288519:                     PUSH   OPND
34560 @ 288522:                     SELECT 2
34561 @ 288525:                     PUSH   REG
34562 @ 288528:                     ASSVAL

  5572           OPND_D=-2
34563 @ 288529:                     LINE   5572 "regression-compile-tmp/imp918s.imp"
34564 @ 288567:                     PUSH   OPND
34565 @ 288570:                     SELECT 4
34566 @ 288573:                     PUSHI  #0x00000002
34567 @ 288578:                     NEGATE
34568 @ 288579:                     ASSVAL

  5573           ->Label99
34569 @ 288580:                     LINE   5573 "regression-compile-tmp/imp918s.imp"
34570 @ 288618:                     JUMP   L_0246

  5574  RF:      REGISTER(I)=1
34571 @ 288621:                     LINE   5574 "regression-compile-tmp/imp918s.imp"
34572 @ 288659:                     LABEL  L_0248
34573 @ 288662:                     LINE   5574 "regression-compile-tmp/imp918s.imp"
34574 @ 288700:                     PUSH   REGISTER
34575 @ 288703:                     PUSH   I
34576 @ 288706:                     ACCESS
34577 @ 288707:                     PUSHI  #0x00000001
34578 @ 288712:                     ASSVAL

  5575  RF2:     REG=I; ->Label1
34579 @ 288713:                     LINE   5575 "regression-compile-tmp/imp918s.imp"
34580 @ 288751:                     LABEL  L_0249
34581 @ 288754:                     LINE   5575 "regression-compile-tmp/imp918s.imp"
34582 @ 288792:                     PUSH   REG
34583 @ 288795:                     PUSH   I
34584 @ 288798:                     ASSVAL
34585 @ 288799:                     LINE   5575 "regression-compile-tmp/imp918s.imp"
34586 @ 288837:                     JUMP   L_024b

  5576  NOT FOUND: -> GLA COPY %IF MODE&1#0 %AND VALUE#0 %AND CSSMODE#0
34587 @ 288840:                     LINE   5576 "regression-compile-tmp/imp918s.imp"
34588 @ 288878:                     LABEL  L_0247
34589 @ 288881:                     LINE   5576 "regression-compile-tmp/imp918s.imp"
34590 @ 288919:                     PUSH   MODE
34591 @ 288922:                     PUSHI  #0x00000001
34592 @ 288927:                     AND   
34593 @ 288928:                     PUSHI  #0x00000000
34594 @ 288933:                     JUMPIF = L_0004
34595 @ 288937:                     PUSH   VALUE
34596 @ 288940:                     PUSHI  #0x00000000
34597 @ 288945:                     JUMPIF = L_0004
34598 @ 288949:                     PUSH   CSSMODE
34599 @ 288952:                     PUSHI  #0x00000000
34600 @ 288957:                     JUMPIF = L_0004
34601 @ 288961:                     JUMP   L_024d
34602 @ 288964:                     LOCATE L_0004

  5577           REG=FINDR %IF REG<0
34603 @ 288967:                     LINE   5577 "regression-compile-tmp/imp918s.imp"
34604 @ 289005:                     PUSH   REG
34605 @ 289008:                     PUSHI  #0x00000000
34606 @ 289013:                     JUMPIF >= L_0004
34607 @ 289017:                     PUSH   REG
34608 @ 289020:                     PUSH   FINDR
34609 @ 289023:                     CALL  
34610 @ 289024:                     ASSVAL
34611 @ 289025:                     LOCATE L_0004

  5578           DUMP(0,REG,VALUE,0,0); -> SG
34612 @ 289028:                     LINE   5578 "regression-compile-tmp/imp918s.imp"
34613 @ 289066:                     PUSH   DUMP
34614 @ 289069:                     PUSHI  #0x00000000
34615 @ 289074:                     ASSPAR
34616 @ 289075:                     PUSH   REG
34617 @ 289078:                     ASSPAR
34618 @ 289079:                     PUSH   VALUE
34619 @ 289082:                     ASSPAR
34620 @ 289083:                     PUSHI  #0x00000000
34621 @ 289088:                     ASSPAR
34622 @ 289089:                     PUSHI  #0x00000000
34623 @ 289094:                     ASSPAR
34624 @ 289095:                     CALL  
34625 @ 289096:                     LINE   5578 "regression-compile-tmp/imp918s.imp"
34626 @ 289134:                     JUMP   L_024a

  5579  GLA COPY:TYPE=1; K=4; PREC=0
34627 @ 289137:                     LINE   5579 "regression-compile-tmp/imp918s.imp"
34628 @ 289175:                     LABEL  L_024d
34629 @ 289178:                     LINE   5579 "regression-compile-tmp/imp918s.imp"
34630 @ 289216:                     PUSH   TYPE
34631 @ 289219:                     PUSHI  #0x00000001
34632 @ 289224:                     ASSVAL
34633 @ 289225:                     LINE   5579 "regression-compile-tmp/imp918s.imp"
34634 @ 289263:                     PUSH   K
34635 @ 289266:                     PUSHI  #0x00000004
34636 @ 289271:                     ASSVAL
34637 @ 289272:                     LINE   5579 "regression-compile-tmp/imp918s.imp"
34638 @ 289310:                     PUSH   PREC
34639 @ 289313:                     PUSHI  #0x00000000
34640 @ 289318:                     ASSVAL

  5580           -> FULL L %UNLESS X'19'<=OPCODE<=X'1B'
34641 @ 289319:                     LINE   5580 "regression-compile-tmp/imp918s.imp"
34642 @ 289357:                     PUSHI  #0x00000019
34643 @ 289362:                     PUSH   OPCODE
34644 @ 289365:                     JUMPIFD > L_0005
34645 @ 289369:                     PUSHI  #0x0000001b
34646 @ 289374:                     JUMPIF <= L_0004
34647 @ 289378:                     LOCATE L_0005
34648 @ 289381:                     JUMP   L_024e
34649 @ 289384:                     LOCATE L_0004

  5581           J=CONST FIND(4,ADDR(VALUE))
34650 @ 289387:                     LINE   5581 "regression-compile-tmp/imp918s.imp"
34651 @ 289425:                     PUSH   J
34652 @ 289428:                     PUSH   CONSTFIND
34653 @ 289431:                     PUSHI  #0x00000004
34654 @ 289436:                     ASSPAR
34655 @ 289437:                     PUSH   ADDR
34656 @ 289440:                     PUSH   VALUE
34657 @ 289443:                     ASSPAR
34658 @ 289444:                     CALL  
34659 @ 289445:                     ASSPAR
34660 @ 289446:                     CALL  
34661 @ 289447:                     ASSVAL

  5582           %UNLESS J=-1 %START
34662 @ 289448:                     LINE   5582 "regression-compile-tmp/imp918s.imp"
34663 @ 289486:                     PUSH   J
34664 @ 289489:                     PUSHI  #0x00000001
34665 @ 289494:                     NEGATE
34666 @ 289495:                     JUMPIF = L_0004

  5583              %IF J<0 %THEN BASE=CODER %ELSE BASE=GLA
34667 @ 289499:                     LINE   5583 "regression-compile-tmp/imp918s.imp"
34668 @ 289537:                     PUSH   J
34669 @ 289540:                     PUSHI  #0x00000000
34670 @ 289545:                     JUMPIF >= L_0007
34671 @ 289549:                     PUSH   BASE
34672 @ 289552:                     PUSHI  #0x0000000c
34673 @ 289557:                     ASSVAL
34674 @ 289558:                     GOTO   L_0006
34675 @ 289561:                     LOCATE L_0007
34676 @ 289564:                     PUSH   BASE
34677 @ 289567:                     PUSHI  #0x0000000d
34678 @ 289572:                     ASSVAL
34679 @ 289573:                     LOCATE L_0006

  5584              DISP=J&X'7FFF'; INDEX=0; ->RESET RD
34680 @ 289576:                     LINE   5584 "regression-compile-tmp/imp918s.imp"
34681 @ 289614:                     PUSH   DISP
34682 @ 289617:                     PUSH   J
34683 @ 289620:                     PUSHI  #0x00007fff
34684 @ 289625:                     AND   
34685 @ 289626:                     ASSVAL
34686 @ 289627:                     LINE   5584 "regression-compile-tmp/imp918s.imp"
34687 @ 289665:                     PUSH   INDEX
34688 @ 289668:                     PUSHI  #0x00000000
34689 @ 289673:                     ASSVAL
34690 @ 289674:                     LINE   5584 "regression-compile-tmp/imp918s.imp"
34691 @ 289712:                     JUMP   L_024f

  5585           %FINISH
34692 @ 289715:                     LINE   5585 "regression-compile-tmp/imp918s.imp"
34693 @ 289753:                     LOCATE L_0004

  5586           PREC=2; K=2
34694 @ 289756:                     LINE   5586 "regression-compile-tmp/imp918s.imp"
34695 @ 289794:                     PUSH   PREC
34696 @ 289797:                     PUSHI  #0x00000002
34697 @ 289802:                     ASSVAL
34698 @ 289803:                     LINE   5586 "regression-compile-tmp/imp918s.imp"
34699 @ 289841:                     PUSH   K
34700 @ 289844:                     PUSHI  #0x00000002
34701 @ 289849:                     ASSVAL

  5587  FULL L:  STORE CONST(BASE,DISP,K,ADDR(VALUE)+4-K)
34702 @ 289850:                     LINE   5587 "regression-compile-tmp/imp918s.imp"
34703 @ 289888:                     LABEL  L_024e
34704 @ 289891:                     LINE   5587 "regression-compile-tmp/imp918s.imp"
34705 @ 289929:                     PUSH   STORECONST
34706 @ 289932:                     PUSH   BASE
34707 @ 289935:                     ASSPAR
34708 @ 289936:                     PUSH   DISP
34709 @ 289939:                     ASSPAR
34710 @ 289940:                     PUSH   K
34711 @ 289943:                     ASSPAR
34712 @ 289944:                     PUSH   ADDR
34713 @ 289947:                     PUSH   VALUE
34714 @ 289950:                     ASSPAR
34715 @ 289951:                     CALL  
34716 @ 289952:                     PUSHI  #0x00000004
34717 @ 289957:                     ADD   
34718 @ 289958:                     PUSH   K
34719 @ 289961:                     SUB   
34720 @ 289962:                     ASSPAR
34721 @ 289963:                     CALL  

  5588           INDEX=0; ->RESET RD
34722 @ 289964:                     LINE   5588 "regression-compile-tmp/imp918s.imp"
34723 @ 290002:                     PUSH   INDEX
34724 @ 290005:                     PUSHI  #0x00000000
34725 @ 290010:                     ASSVAL
34726 @ 290011:                     LINE   5588 "regression-compile-tmp/imp918s.imp"
34727 @ 290049:                     JUMP   L_024f

  5589  SW(1):                                 ! LONG CONSTANT
34728 @ 290052:                     LINE   5589 "regression-compile-tmp/imp918s.imp"
34729 @ 290090:                     PUSHI  #0x00000001
34730 @ 290095:                     SLABEL 581

  5590           STORE CONST(BASE,DISP,BYTES(PREC),ADDR(A(OPND_D+1)))
34731 @ 290098:                     LINE   5590 "regression-compile-tmp/imp918s.imp"
34732 @ 290136:                     PUSH   STORECONST
34733 @ 290139:                     PUSH   BASE
34734 @ 290142:                     ASSPAR
34735 @ 290143:                     PUSH   DISP
34736 @ 290146:                     ASSPAR
34737 @ 290147:                     PUSH   BYTES
34738 @ 290150:                     PUSH   PREC
34739 @ 290153:                     ACCESS
34740 @ 290154:                     ASSPAR
34741 @ 290155:                     PUSH   ADDR
34742 @ 290158:                     PUSH   A
34743 @ 290161:                     PUSH   OPND
34744 @ 290164:                     SELECT 4
34745 @ 290167:                     PUSHI  #0x00000001
34746 @ 290172:                     ADD   
34747 @ 290173:                     ACCESS
34748 @ 290174:                     ASSPAR
34749 @ 290175:                     CALL  
34750 @ 290176:                     ASSPAR
34751 @ 290177:                     CALL  

  5591           -> PICK UP %IF MODE=2
34752 @ 290178:                     LINE   5591 "regression-compile-tmp/imp918s.imp"
34753 @ 290216:                     PUSH   MODE
34754 @ 290219:                     PUSHI  #0x00000002
34755 @ 290224:                     JUMPIF # L_0004
34756 @ 290228:                     JUMP   L_0250
34757 @ 290231:                     LOCATE L_0004

  5592           INDEX=0; ->RESET RD
34758 @ 290234:                     LINE   5592 "regression-compile-tmp/imp918s.imp"
34759 @ 290272:                     PUSH   INDEX
34760 @ 290275:                     PUSHI  #0x00000000
34761 @ 290280:                     ASSVAL
34762 @ 290281:                     LINE   5592 "regression-compile-tmp/imp918s.imp"
34763 @ 290319:                     JUMP   L_024f

  5593  PICKUP:  DUMP(8*(TYPE-1)+2*(PREC&3)+2,REG,DISP,0,BASE)
34764 @ 290322:                     LINE   5593 "regression-compile-tmp/imp918s.imp"
34765 @ 290360:                     LABEL  L_0250
34766 @ 290363:                     LINE   5593 "regression-compile-tmp/imp918s.imp"
34767 @ 290401:                     PUSH   DUMP
34768 @ 290404:                     PUSHI  #0x00000008
34769 @ 290409:                     PUSH   TYPE
34770 @ 290412:                     PUSHI  #0x00000001
34771 @ 290417:                     SUB   
34772 @ 290418:                     MUL   
34773 @ 290419:                     PUSHI  #0x00000002
34774 @ 290424:                     PUSH   PREC
34775 @ 290427:                     PUSHI  #0x00000003
34776 @ 290432:                     AND   
34777 @ 290433:                     MUL   
34778 @ 290434:                     ADD   
34779 @ 290435:                     PUSHI  #0x00000002
34780 @ 290440:                     ADD   
34781 @ 290441:                     ASSPAR
34782 @ 290442:                     PUSH   REG
34783 @ 290445:                     ASSPAR
34784 @ 290446:                     PUSH   DISP
34785 @ 290449:                     ASSPAR
34786 @ 290450:                     PUSHI  #0x00000000
34787 @ 290455:                     ASSPAR
34788 @ 290456:                     PUSH   BASE
34789 @ 290459:                     ASSPAR
34790 @ 290460:                     CALL  

  5594           MODE=0; ->Label21;        ! ENSURE THAT USE IS CHANGED
34791 @ 290461:                     LINE   5594 "regression-compile-tmp/imp918s.imp"
34792 @ 290499:                     PUSH   MODE
34793 @ 290502:                     PUSHI  #0x00000000
34794 @ 290507:                     ASSVAL
34795 @ 290508:                     LINE   5594 "regression-compile-tmp/imp918s.imp"
34796 @ 290546:                     JUMP   L_0251

  5595  SW(2):                                 ! NAME
34797 @ 290549:                     LINE   5595 "regression-compile-tmp/imp918s.imp"
34798 @ 290587:                     PUSHI  #0x00000002
34799 @ 290592:                     SLABEL 581

  5596           -> LOAD %IF MODE=2
34800 @ 290595:                     LINE   5596 "regression-compile-tmp/imp918s.imp"
34801 @ 290633:                     PUSH   MODE
34802 @ 290636:                     PUSHI  #0x00000002
34803 @ 290641:                     JUMPIF # L_0004
34804 @ 290645:                     JUMP   L_0252
34805 @ 290648:                     LOCATE L_0004

  5597           ->STORE %IF MODE=4
34806 @ 290651:                     LINE   5597 "regression-compile-tmp/imp918s.imp"
34807 @ 290689:                     PUSH   MODE
34808 @ 290692:                     PUSHI  #0x00000004
34809 @ 290697:                     JUMPIF # L_0004
34810 @ 290701:                     JUMP   L_0253
34811 @ 290704:                     LOCATE L_0004

  5598           -> LOAD %IF OPND_XB&127#0 %AND PTYPE#8
34812 @ 290707:                     LINE   5598 "regression-compile-tmp/imp918s.imp"
34813 @ 290745:                     PUSH   OPND
34814 @ 290748:                     SELECT 2
34815 @ 290751:                     PUSHI  #0x0000007f
34816 @ 290756:                     AND   
34817 @ 290757:                     PUSHI  #0x00000000
34818 @ 290762:                     JUMPIF = L_0004
34819 @ 290766:                     PUSH   PTYPE
34820 @ 290769:                     PUSHI  #0x00000008
34821 @ 290774:                     JUMPIF = L_0004
34822 @ 290778:                     JUMP   L_0252
34823 @ 290781:                     LOCATE L_0004

  5599           -> LOAD %IF MODE=0 %AND ARR>0
34824 @ 290784:                     LINE   5599 "regression-compile-tmp/imp918s.imp"
34825 @ 290822:                     PUSH   MODE
34826 @ 290825:                     PUSHI  #0x00000000
34827 @ 290830:                     JUMPIF # L_0004
34828 @ 290834:                     PUSH   ARR
34829 @ 290837:                     PUSHI  #0x00000000
34830 @ 290842:                     JUMPIF <= L_0004
34831 @ 290846:                     JUMP   L_0252
34832 @ 290849:                     LOCATE L_0004

  5600           -> DONT LOAD %IF MODE=3
34833 @ 290852:                     LINE   5600 "regression-compile-tmp/imp918s.imp"
34834 @ 290890:                     PUSH   MODE
34835 @ 290893:                     PUSHI  #0x00000003
34836 @ 290898:                     JUMPIF # L_0004
34837 @ 290902:                     JUMP   L_0254
34838 @ 290905:                     LOCATE L_0004

  5601           ->Label99 %IF MODE=0
34839 @ 290908:                     LINE   5601 "regression-compile-tmp/imp918s.imp"
34840 @ 290946:                     PUSH   MODE
34841 @ 290949:                     PUSHI  #0x00000000
34842 @ 290954:                     JUMPIF # L_0004
34843 @ 290958:                     JUMP   L_0246
34844 @ 290961:                     LOCATE L_0004

  5602           %IF MODE=1 %THEN %START
34845 @ 290964:                     LINE   5602 "regression-compile-tmp/imp918s.imp"
34846 @ 291002:                     PUSH   MODE
34847 @ 291005:                     PUSHI  #0x00000001
34848 @ 291010:                     JUMPIF # L_0004

  5603           -> LOAD %IF PREC=1
34849 @ 291014:                     LINE   5603 "regression-compile-tmp/imp918s.imp"
34850 @ 291052:                     PUSH   PREC
34851 @ 291055:                     PUSHI  #0x00000001
34852 @ 291060:                     JUMPIF # L_0007
34853 @ 291064:                     JUMP   L_0252
34854 @ 291067:                     LOCATE L_0007

  5604           -> DONT LOAD %IF PREC=2 %AND X'19'<=OPCODE<=X'1B'
34855 @ 291070:                     LINE   5604 "regression-compile-tmp/imp918s.imp"
34856 @ 291108:                     PUSH   PREC
34857 @ 291111:                     PUSHI  #0x00000002
34858 @ 291116:                     JUMPIF # L_0007
34859 @ 291120:                     PUSHI  #0x00000019
34860 @ 291125:                     PUSH   OPCODE
34861 @ 291128:                     JUMPIFD > L_0007
34862 @ 291132:                     PUSHI  #0x0000001b
34863 @ 291137:                     JUMPIF > L_0007
34864 @ 291141:                     JUMP   L_0254
34865 @ 291144:                     LOCATE L_0007

  5605           -> LOAD %IF PREC=2
34866 @ 291147:                     LINE   5605 "regression-compile-tmp/imp918s.imp"
34867 @ 291185:                     PUSH   PREC
34868 @ 291188:                     PUSHI  #0x00000002
34869 @ 291193:                     JUMPIF # L_0007
34870 @ 291197:                     JUMP   L_0252
34871 @ 291200:                     LOCATE L_0007

  5606           %FINISH
34872 @ 291203:                     LINE   5606 "regression-compile-tmp/imp918s.imp"
34873 @ 291241:                     LOCATE L_0004

  5607  DONT LOAD: P=OPND_D
34874 @ 291244:                     LINE   5607 "regression-compile-tmp/imp918s.imp"
34875 @ 291282:                     LABEL  L_0254
34876 @ 291285:                     LINE   5607 "regression-compile-tmp/imp918s.imp"
34877 @ 291323:                     PUSH   P
34878 @ 291326:                     PUSH   OPND
34879 @ 291329:                     SELECT 4
34880 @ 291332:                     ASSVAL

  5608           CNAME(5,REG)
34881 @ 291333:                     LINE   5608 "regression-compile-tmp/imp918s.imp"
34882 @ 291371:                     PUSH   CNAME
34883 @ 291374:                     PUSHI  #0x00000005
34884 @ 291379:                     ASSPAR
34885 @ 291380:                     PUSH   REG
34886 @ 291383:                     ASSPAR
34887 @ 291384:                     CALL  

  5609           ->Label21 %IF NEST>=0
34888 @ 291385:                     LINE   5609 "regression-compile-tmp/imp918s.imp"
34889 @ 291423:                     PUSH   NEST
34890 @ 291426:                     PUSHI  #0x00000000
34891 @ 291431:                     JUMPIF < L_0004
34892 @ 291435:                     JUMP   L_0251
34893 @ 291438:                     LOCATE L_0004

  5610  RESETRD: REGISTER(BASE)=2 %IF BASE>0 %AND REGISTER(BASE)=0
34894 @ 291441:                     LINE   5610 "regression-compile-tmp/imp918s.imp"
34895 @ 291479:                     LABEL  L_024f
34896 @ 291482:                     LINE   5610 "regression-compile-tmp/imp918s.imp"
34897 @ 291520:                     PUSH   BASE
34898 @ 291523:                     PUSHI  #0x00000000
34899 @ 291528:                     JUMPIF <= L_0004
34900 @ 291532:                     PUSH   REGISTER
34901 @ 291535:                     PUSH   BASE
34902 @ 291538:                     ACCESS
34903 @ 291539:                     PUSHI  #0x00000000
34904 @ 291544:                     JUMPIF # L_0004
34905 @ 291548:                     PUSH   REGISTER
34906 @ 291551:                     PUSH   BASE
34907 @ 291554:                     ACCESS
34908 @ 291555:                     PUSHI  #0x00000002
34909 @ 291560:                     ASSVAL
34910 @ 291561:                     LOCATE L_0004

  5611           REGISTER(INDEX)=2 %IF INDEX>0 %AND REGISTER(INDEX)=0
34911 @ 291564:                     LINE   5611 "regression-compile-tmp/imp918s.imp"
34912 @ 291602:                     PUSH   INDEX
34913 @ 291605:                     PUSHI  #0x00000000
34914 @ 291610:                     JUMPIF <= L_0004
34915 @ 291614:                     PUSH   REGISTER
34916 @ 291617:                     PUSH   INDEX
34917 @ 291620:                     ACCESS
34918 @ 291621:                     PUSHI  #0x00000000
34919 @ 291626:                     JUMPIF # L_0004
34920 @ 291630:                     PUSH   REGISTER
34921 @ 291633:                     PUSH   INDEX
34922 @ 291636:                     ACCESS
34923 @ 291637:                     PUSHI  #0x00000002
34924 @ 291642:                     ASSVAL
34925 @ 291643:                     LOCATE L_0004

  5612           OPND_PTYPE=10*(PREC&3)+TYPE
34926 @ 291646:                     LINE   5612 "regression-compile-tmp/imp918s.imp"
34927 @ 291684:                     PUSH   OPND
34928 @ 291687:                     SELECT 1
34929 @ 291690:                     PUSHI  #0x0000000a
34930 @ 291695:                     PUSH   PREC
34931 @ 291698:                     PUSHI  #0x00000003
34932 @ 291703:                     AND   
34933 @ 291704:                     MUL   
34934 @ 291705:                     PUSH   TYPE
34935 @ 291708:                     ADD   
34936 @ 291709:                     ASSVAL

  5613           OPND_FLAG=9
34937 @ 291710:                     LINE   5613 "regression-compile-tmp/imp918s.imp"
34938 @ 291748:                     PUSH   OPND
34939 @ 291751:                     SELECT 3
34940 @ 291754:                     PUSHI  #0x00000009
34941 @ 291759:                     ASSVAL

  5614           OPND_XB=INDEX<<4!BASE
34942 @ 291760:                     LINE   5614 "regression-compile-tmp/imp918s.imp"
34943 @ 291798:                     PUSH   OPND
34944 @ 291801:                     SELECT 2
34945 @ 291804:                     PUSH   INDEX
34946 @ 291807:                     PUSHI  #0x00000004
34947 @ 291812:                     LSH   
34948 @ 291813:                     PUSH   BASE
34949 @ 291816:                     OR    
34950 @ 291817:                     ASSVAL

  5615           OPND_D=DISP; ->Label99
34951 @ 291818:                     LINE   5615 "regression-compile-tmp/imp918s.imp"
34952 @ 291856:                     PUSH   OPND
34953 @ 291859:                     SELECT 4
34954 @ 291862:                     PUSH   DISP
34955 @ 291865:                     ASSVAL
34956 @ 291866:                     LINE   5615 "regression-compile-tmp/imp918s.imp"
34957 @ 291904:                     JUMP   L_0246

  5616  STORE:   P=OPND_D
34958 @ 291907:                     LINE   5616 "regression-compile-tmp/imp918s.imp"
34959 @ 291945:                     LABEL  L_0253
34960 @ 291948:                     LINE   5616 "regression-compile-tmp/imp918s.imp"
34961 @ 291986:                     PUSH   P
34962 @ 291989:                     PUSH   OPND
34963 @ 291992:                     SELECT 4
34964 @ 291995:                     ASSVAL

  5617           CNAME(1,0); ->RESET RD
34965 @ 291996:                     LINE   5617 "regression-compile-tmp/imp918s.imp"
34966 @ 292034:                     PUSH   CNAME
34967 @ 292037:                     PUSHI  #0x00000001
34968 @ 292042:                     ASSPAR
34969 @ 292043:                     PUSHI  #0x00000000
34970 @ 292048:                     ASSPAR
34971 @ 292049:                     CALL  
34972 @ 292050:                     LINE   5617 "regression-compile-tmp/imp918s.imp"
34973 @ 292088:                     JUMP   L_024f

  5618  LOAD:    P=OPND_D
34974 @ 292091:                     LINE   5618 "regression-compile-tmp/imp918s.imp"
34975 @ 292129:                     LABEL  L_0252
34976 @ 292132:                     LINE   5618 "regression-compile-tmp/imp918s.imp"
34977 @ 292170:                     PUSH   P
34978 @ 292173:                     PUSH   OPND
34979 @ 292176:                     SELECT 4
34980 @ 292179:                     ASSVAL

  5619           -> REGVAR %IF PTYPE=8
34981 @ 292180:                     LINE   5619 "regression-compile-tmp/imp918s.imp"
34982 @ 292218:                     PUSH   PTYPE
34983 @ 292221:                     PUSHI  #0x00000008
34984 @ 292226:                     JUMPIF # L_0004
34985 @ 292230:                     JUMP   L_0255
34986 @ 292233:                     LOCATE L_0004

  5620           CNAME(2,REG)
34987 @ 292236:                     LINE   5620 "regression-compile-tmp/imp918s.imp"
34988 @ 292274:                     PUSH   CNAME
34989 @ 292277:                     PUSHI  #0x00000002
34990 @ 292282:                     ASSPAR
34991 @ 292283:                     PUSH   REG
34992 @ 292286:                     ASSPAR
34993 @ 292287:                     CALL  

  5621  Label21:      REG=NEST %IF REG<0
34994 @ 292288:                     LINE   5621 "regression-compile-tmp/imp918s.imp"
34995 @ 292326:                     LABEL  L_0251
34996 @ 292329:                     LINE   5621 "regression-compile-tmp/imp918s.imp"
34997 @ 292367:                     PUSH   REG
34998 @ 292370:                     PUSHI  #0x00000000
34999 @ 292375:                     JUMPIF >= L_0004
35000 @ 292379:                     PUSH   REG
35001 @ 292382:                     PUSH   NEST
35002 @ 292385:                     ASSVAL
35003 @ 292386:                     LOCATE L_0004

  5622           TYPE=1 %IF TYPE=8
35004 @ 292389:                     LINE   5622 "regression-compile-tmp/imp918s.imp"
35005 @ 292427:                     PUSH   TYPE
35006 @ 292430:                     PUSHI  #0x00000008
35007 @ 292435:                     JUMPIF # L_0004
35008 @ 292439:                     PUSH   TYPE
35009 @ 292442:                     PUSHI  #0x00000001
35010 @ 292447:                     ASSVAL
35011 @ 292448:                     LOCATE L_0004

  5623           PTYPE=TYPE; K=(PTYPE&2)<<3+REG
35012 @ 292451:                     LINE   5623 "regression-compile-tmp/imp918s.imp"
35013 @ 292489:                     PUSH   PTYPE
35014 @ 292492:                     PUSH   TYPE
35015 @ 292495:                     ASSVAL
35016 @ 292496:                     LINE   5623 "regression-compile-tmp/imp918s.imp"
35017 @ 292534:                     PUSH   K
35018 @ 292537:                     PUSH   PTYPE
35019 @ 292540:                     PUSHI  #0x00000002
35020 @ 292545:                     AND   
35021 @ 292546:                     PUSHI  #0x00000003
35022 @ 292551:                     LSH   
35023 @ 292552:                     PUSH   REG
35024 @ 292555:                     ADD   
35025 @ 292556:                     ASSVAL

  5624           REGISTER(K)=1 %IF REGISTER(K)>=0;   ! CLAIM THE REGISTER
35026 @ 292557:                     LINE   5624 "regression-compile-tmp/imp918s.imp"
35027 @ 292595:                     PUSH   REGISTER
35028 @ 292598:                     PUSH   K
35029 @ 292601:                     ACCESS
35030 @ 292602:                     PUSHI  #0x00000000
35031 @ 292607:                     JUMPIF < L_0004
35032 @ 292611:                     PUSH   REGISTER
35033 @ 292614:                     PUSH   K
35034 @ 292617:                     ACCESS
35035 @ 292618:                     PUSHI  #0x00000001
35036 @ 292623:                     ASSVAL
35037 @ 292624:                     LOCATE L_0004

  5625           PTYPE=32 %IF PREC=3
35038 @ 292627:                     LINE   5625 "regression-compile-tmp/imp918s.imp"
35039 @ 292665:                     PUSH   PREC
35040 @ 292668:                     PUSHI  #0x00000003
35041 @ 292673:                     JUMPIF # L_0004
35042 @ 292677:                     PUSH   PTYPE
35043 @ 292680:                     PUSHI  #0x00000020
35044 @ 292685:                     ASSVAL
35045 @ 292686:                     LOCATE L_0004

  5626           ->Label24 %IF MODE>=1 %AND GRUSE(K)>1;    ! DONT CHANGE GRUSE
35046 @ 292689:                     LINE   5626 "regression-compile-tmp/imp918s.imp"
35047 @ 292727:                     PUSH   MODE
35048 @ 292730:                     PUSHI  #0x00000001
35049 @ 292735:                     JUMPIF < L_0004
35050 @ 292739:                     PUSH   GRUSE
35051 @ 292742:                     PUSH   K
35052 @ 292745:                     ACCESS
35053 @ 292746:                     PUSHI  #0x00000001
35054 @ 292751:                     JUMPIF <= L_0004
35055 @ 292755:                     JUMP   L_0256
35056 @ 292758:                     LOCATE L_0004

  5627           SET USE(K,1,ADDR(OPND))
35057 @ 292761:                     LINE   5627 "regression-compile-tmp/imp918s.imp"
35058 @ 292799:                     PUSH   SETUSE
35059 @ 292802:                     PUSH   K
35060 @ 292805:                     ASSPAR
35061 @ 292806:                     PUSHI  #0x00000001
35062 @ 292811:                     ASSPAR
35063 @ 292812:                     PUSH   ADDR
35064 @ 292815:                     PUSH   OPND
35065 @ 292818:                     ASSPAR
35066 @ 292819:                     CALL  
35067 @ 292820:                     ASSPAR
35068 @ 292821:                     CALL  

  5628  Label24:      OPND_PTYPE=PTYPE; ->Label2
35069 @ 292822:                     LINE   5628 "regression-compile-tmp/imp918s.imp"
35070 @ 292860:                     LABEL  L_0256
35071 @ 292863:                     LINE   5628 "regression-compile-tmp/imp918s.imp"
35072 @ 292901:                     PUSH   OPND
35073 @ 292904:                     SELECT 1
35074 @ 292907:                     PUSH   PTYPE
35075 @ 292910:                     ASSVAL
35076 @ 292911:                     LINE   5628 "regression-compile-tmp/imp918s.imp"
35077 @ 292949:                     JUMP   L_024c

  5629  REGVAR:  %IF OPCODE=X'19' %OR 30<=JJ<=31 %OR %C
  5630              (NOPS=1 %AND OPND_XB=SPECREG %AND REG<0) %OR %C
  5631              (NOPS=0 %AND REG<0) %THEN REG=OPND_XB %AND ->Label1
35078 @ 292952:                     LINE   5629 "regression-compile-tmp/imp918s.imp"
35079 @ 292990:                     LABEL  L_0255
35080 @ 292993:                     LINE   5629 "regression-compile-tmp/imp918s.imp"
35081 @ 293031:                     PUSH   OPCODE
35082 @ 293034:                     PUSHI  #0x00000019
35083 @ 293039:                     JUMPIF = L_0005
35084 @ 293043:                     PUSHI  #0x0000001e
35085 @ 293048:                     PUSH   JJ
35086 @ 293051:                     JUMPIFD > L_0006
35087 @ 293055:                     PUSHI  #0x0000001f
35088 @ 293060:                     JUMPIF <= L_0005
35089 @ 293064:                     LOCATE L_0006
35090 @ 293067:                     PUSH   NOPS
35091 @ 293070:                     PUSHI  #0x00000001
35092 @ 293075:                     JUMPIF # L_0006
35093 @ 293079:                     PUSH   OPND
35094 @ 293082:                     SELECT 2
35095 @ 293085:                     PUSH   SPECREG
35096 @ 293088:                     JUMPIF # L_0006
35097 @ 293092:                     PUSH   REG
35098 @ 293095:                     PUSHI  #0x00000000
35099 @ 293100:                     JUMPIF < L_0005
35100 @ 293104:                     LOCATE L_0006
35101 @ 293107:                     PUSH   NOPS
35102 @ 293110:                     PUSHI  #0x00000000
35103 @ 293115:                     JUMPIF # L_0004
35104 @ 293119:                     PUSH   REG
35105 @ 293122:                     PUSHI  #0x00000000
35106 @ 293127:                     JUMPIF >= L_0004
35107 @ 293131:                     LOCATE L_0005
35108 @ 293134:                     PUSH   REG
35109 @ 293137:                     PUSH   OPND
35110 @ 293140:                     SELECT 2
35111 @ 293143:                     ASSVAL
35112 @ 293144:                     JUMP   L_024b
35113 @ 293147:                     LOCATE L_0004

  5632           REG=FINDR %IF REG<0
35114 @ 293150:                     LINE   5632 "regression-compile-tmp/imp918s.imp"
35115 @ 293188:                     PUSH   REG
35116 @ 293191:                     PUSHI  #0x00000000
35117 @ 293196:                     JUMPIF >= L_0004
35118 @ 293200:                     PUSH   REG
35119 @ 293203:                     PUSH   FINDR
35120 @ 293206:                     CALL  
35121 @ 293207:                     ASSVAL
35122 @ 293208:                     LOCATE L_0004

  5633           %IF REGISTER(REG)>=0 %THEN %START; ! N.B. REGVAR1=REGVAR2
35123 @ 293211:                     LINE   5633 "regression-compile-tmp/imp918s.imp"
35124 @ 293249:                     PUSH   REGISTER
35125 @ 293252:                     PUSH   REG
35126 @ 293255:                     ACCESS
35127 @ 293256:                     PUSHI  #0x00000000
35128 @ 293261:                     JUMPIF < L_0004

  5634              FORGET(REG); GRUSE(REG)=3; GRINF(REG)=TAGS(A(P))
35129 @ 293265:                     LINE   5634 "regression-compile-tmp/imp918s.imp"
35130 @ 293303:                     PUSH   FORGET
35131 @ 293306:                     PUSH   REG
35132 @ 293309:                     ASSPAR
35133 @ 293310:                     CALL  
35134 @ 293311:                     LINE   5634 "regression-compile-tmp/imp918s.imp"
35135 @ 293349:                     PUSH   GRUSE
35136 @ 293352:                     PUSH   REG
35137 @ 293355:                     ACCESS
35138 @ 293356:                     PUSHI  #0x00000003
35139 @ 293361:                     ASSVAL
35140 @ 293362:                     LINE   5634 "regression-compile-tmp/imp918s.imp"
35141 @ 293400:                     PUSH   GRINF
35142 @ 293403:                     PUSH   REG
35143 @ 293406:                     ACCESS
35144 @ 293407:                     PUSH   TAGS
35145 @ 293410:                     PUSH   A
35146 @ 293413:                     PUSH   P
35147 @ 293416:                     ACCESS
35148 @ 293417:                     ACCESS
35149 @ 293418:                     ASSVAL

  5635           %FINISH
35150 @ 293419:                     LINE   5635 "regression-compile-tmp/imp918s.imp"
35151 @ 293457:                     LOCATE L_0004

  5636           CNAME(2,REG); TYPE=1; ->Label21
35152 @ 293460:                     LINE   5636 "regression-compile-tmp/imp918s.imp"
35153 @ 293498:                     PUSH   CNAME
35154 @ 293501:                     PUSHI  #0x00000002
35155 @ 293506:                     ASSPAR
35156 @ 293507:                     PUSH   REG
35157 @ 293510:                     ASSPAR
35158 @ 293511:                     CALL  
35159 @ 293512:                     LINE   5636 "regression-compile-tmp/imp918s.imp"
35160 @ 293550:                     PUSH   TYPE
35161 @ 293553:                     PUSHI  #0x00000001
35162 @ 293558:                     ASSVAL
35163 @ 293559:                     LINE   5636 "regression-compile-tmp/imp918s.imp"
35164 @ 293597:                     JUMP   L_0251

  5637  SW(3):                                 ! DOPE VECTOR ITEM
  5638  ! XB HAS BASE OF ARRAYHEAD  D  IS HEADDISP<<16!ITEM DISP. XTRA HAS TAGS
35165 @ 293600:                     LINE   5637 "regression-compile-tmp/imp918s.imp"
35166 @ 293638:                     PUSHI  #0x00000003
35167 @ 293643:                     SLABEL 581

  5639           ->Label99 %IF MODE=0
35168 @ 293646:                     LINE   5639 "regression-compile-tmp/imp918s.imp"
35169 @ 293684:                     PUSH   MODE
35170 @ 293687:                     PUSHI  #0x00000000
35171 @ 293692:                     JUMPIF # L_0004
35172 @ 293696:                     JUMP   L_0246
35173 @ 293699:                     LOCATE L_0004

  5640           LOAD DV(BASE,OPND_XB,OPND_D>>16,OPND_XTRA)
35174 @ 293702:                     LINE   5640 "regression-compile-tmp/imp918s.imp"
35175 @ 293740:                     PUSH   LOADDV
35176 @ 293743:                     PUSH   BASE
35177 @ 293746:                     ASSPAR
35178 @ 293747:                     PUSH   OPND
35179 @ 293750:                     SELECT 2
35180 @ 293753:                     ASSPAR
35181 @ 293754:                     PUSH   OPND
35182 @ 293757:                     SELECT 4
35183 @ 293760:                     PUSHI  #0x00000010
35184 @ 293765:                     RSH   
35185 @ 293766:                     ASSPAR
35186 @ 293767:                     PUSH   OPND
35187 @ 293770:                     SELECT 5
35188 @ 293773:                     ASSPAR
35189 @ 293774:                     CALL  

  5641           INDEX=0; DISP=OPND_D&X'FFFF'
35190 @ 293775:                     LINE   5641 "regression-compile-tmp/imp918s.imp"
35191 @ 293813:                     PUSH   INDEX
35192 @ 293816:                     PUSHI  #0x00000000
35193 @ 293821:                     ASSVAL
35194 @ 293822:                     LINE   5641 "regression-compile-tmp/imp918s.imp"
35195 @ 293860:                     PUSH   DISP
35196 @ 293863:                     PUSH   OPND
35197 @ 293866:                     SELECT 4
35198 @ 293869:                     PUSHI  #0x0000ffff
35199 @ 293874:                     AND   
35200 @ 293875:                     ASSVAL

  5642           -> RESET RD;                  ! NOT CALLED WITH MODE=2
35201 @ 293876:                     LINE   5642 "regression-compile-tmp/imp918s.imp"
35202 @ 293914:                     JUMP   L_024f

  5643  SW(7):SW(8):SW(9):
35203 @ 293917:                     LINE   5643 "regression-compile-tmp/imp918s.imp"
35204 @ 293955:                     PUSHI  #0x00000007
35205 @ 293960:                     SLABEL 581
35206 @ 293963:                     LINE   5643 "regression-compile-tmp/imp918s.imp"
35207 @ 294001:                     PUSHI  #0x00000008
35208 @ 294006:                     SLABEL 581
35209 @ 294009:                     LINE   5643 "regression-compile-tmp/imp918s.imp"
35210 @ 294047:                     PUSHI  #0x00000009
35211 @ 294052:                     SLABEL 581

  5644           ->Label99 %IF  MODE=3 %OR MODE=4
35212 @ 294055:                     LINE   5644 "regression-compile-tmp/imp918s.imp"
35213 @ 294093:                     PUSH   MODE
35214 @ 294096:                     PUSHI  #0x00000003
35215 @ 294101:                     JUMPIF = L_0005
35216 @ 294105:                     PUSH   MODE
35217 @ 294108:                     PUSHI  #0x00000004
35218 @ 294113:                     JUMPIF # L_0004
35219 @ 294117:                     LOCATE L_0005
35220 @ 294120:                     JUMP   L_0246
35221 @ 294123:                     LOCATE L_0004

  5645           ->PROTECT %IF MODE=0
35222 @ 294126:                     LINE   5645 "regression-compile-tmp/imp918s.imp"
35223 @ 294164:                     PUSH   MODE
35224 @ 294167:                     PUSHI  #0x00000000
35225 @ 294172:                     JUMPIF # L_0004
35226 @ 294176:                     JUMP   L_0257
35227 @ 294179:                     LOCATE L_0004

  5646           ->Label99 %IF MODE=1 %AND(PREC=0 %OR PREC=3 %OR(PREC=2 %AND %C
  5647           X'19'<=OPCODE<=X'1B'))
35228 @ 294182:                     LINE   5646 "regression-compile-tmp/imp918s.imp"
35229 @ 294220:                     PUSH   MODE
35230 @ 294223:                     PUSHI  #0x00000001
35231 @ 294228:                     JUMPIF # L_0004
35232 @ 294232:                     PUSH   PREC
35233 @ 294235:                     PUSHI  #0x00000000
35234 @ 294240:                     JUMPIF = L_0005
35235 @ 294244:                     PUSH   PREC
35236 @ 294247:                     PUSHI  #0x00000003
35237 @ 294252:                     JUMPIF = L_0005
35238 @ 294256:                     PUSH   PREC
35239 @ 294259:                     PUSHI  #0x00000002
35240 @ 294264:                     JUMPIF # L_0004
35241 @ 294268:                     PUSHI  #0x00000019
35242 @ 294273:                     PUSH   OPCODE
35243 @ 294276:                     JUMPIFD > L_0004
35244 @ 294280:                     PUSHI  #0x0000001b
35245 @ 294285:                     JUMPIF > L_0004
35246 @ 294289:                     LOCATE L_0005
35247 @ 294292:                     JUMP   L_0246
35248 @ 294295:                     LOCATE L_0004

  5648           B=OPND_XB
35249 @ 294298:                     LINE   5648 "regression-compile-tmp/imp918s.imp"
35250 @ 294336:                     PUSH   B
35251 @ 294339:                     PUSH   OPND
35252 @ 294342:                     SELECT 2
35253 @ 294345:                     ASSVAL

  5649           -> RDR %IF OPND_D<0
35254 @ 294346:                     LINE   5649 "regression-compile-tmp/imp918s.imp"
35255 @ 294384:                     PUSH   OPND
35256 @ 294387:                     SELECT 4
35257 @ 294390:                     PUSHI  #0x00000000
35258 @ 294395:                     JUMPIF >= L_0004
35259 @ 294399:                     JUMP   L_0258
35260 @ 294402:                     LOCATE L_0004

  5650           %IF REG<0 %AND TYPE=1 %THEN REG=FINDR;! IN CASE OF SPECREG
35261 @ 294405:                     LINE   5650 "regression-compile-tmp/imp918s.imp"
35262 @ 294443:                     PUSH   REG
35263 @ 294446:                     PUSHI  #0x00000000
35264 @ 294451:                     JUMPIF >= L_0004
35265 @ 294455:                     PUSH   TYPE
35266 @ 294458:                     PUSHI  #0x00000001
35267 @ 294463:                     JUMPIF # L_0004
35268 @ 294467:                     PUSH   REG
35269 @ 294470:                     PUSH   FINDR
35270 @ 294473:                     CALL  
35271 @ 294474:                     ASSVAL
35272 @ 294475:                     LOCATE L_0004

  5651           DUMP(TYPE<<3!2*(PREC&3)-6,REG,OPND_D,B>>4,B&15)
35273 @ 294478:                     LINE   5651 "regression-compile-tmp/imp918s.imp"
35274 @ 294516:                     PUSH   DUMP
35275 @ 294519:                     PUSH   TYPE
35276 @ 294522:                     PUSHI  #0x00000003
35277 @ 294527:                     LSH   
35278 @ 294528:                     PUSHI  #0x00000002
35279 @ 294533:                     PUSH   PREC
35280 @ 294536:                     PUSHI  #0x00000003
35281 @ 294541:                     AND   
35282 @ 294542:                     MUL   
35283 @ 294543:                     OR    
35284 @ 294544:                     PUSHI  #0x00000006
35285 @ 294549:                     SUB   
35286 @ 294550:                     ASSPAR
35287 @ 294551:                     PUSH   REG
35288 @ 294554:                     ASSPAR
35289 @ 294555:                     PUSH   OPND
35290 @ 294558:                     SELECT 4
35291 @ 294561:                     ASSPAR
35292 @ 294562:                     PUSH   B
35293 @ 294565:                     PUSHI  #0x00000004
35294 @ 294570:                     RSH   
35295 @ 294571:                     ASSPAR
35296 @ 294572:                     PUSH   B
35297 @ 294575:                     PUSHI  #0x0000000f
35298 @ 294580:                     AND   
35299 @ 294581:                     ASSPAR
35300 @ 294582:                     CALL  

  5652           MODE=0;                       ! ENSURE USE IS CHANGED
35301 @ 294583:                     LINE   5652 "regression-compile-tmp/imp918s.imp"
35302 @ 294621:                     PUSH   MODE
35303 @ 294624:                     PUSHI  #0x00000000
35304 @ 294629:                     ASSVAL

  5653           UNRESERVE(B); ->Label21
35305 @ 294630:                     LINE   5653 "regression-compile-tmp/imp918s.imp"
35306 @ 294668:                     PUSH   UNRESERVE
35307 @ 294671:                     PUSH   B
35308 @ 294674:                     ASSPAR
35309 @ 294675:                     CALL  
35310 @ 294676:                     LINE   5653 "regression-compile-tmp/imp918s.imp"
35311 @ 294714:                     JUMP   L_0251

  5654  PROTECT: BASE=OPND_XB; INDEX=BASE>>4
35312 @ 294717:                     LINE   5654 "regression-compile-tmp/imp918s.imp"
35313 @ 294755:                     LABEL  L_0257
35314 @ 294758:                     LINE   5654 "regression-compile-tmp/imp918s.imp"
35315 @ 294796:                     PUSH   BASE
35316 @ 294799:                     PUSH   OPND
35317 @ 294802:                     SELECT 2
35318 @ 294805:                     ASSVAL
35319 @ 294806:                     LINE   5654 "regression-compile-tmp/imp918s.imp"
35320 @ 294844:                     PUSH   INDEX
35321 @ 294847:                     PUSH   BASE
35322 @ 294850:                     PUSHI  #0x00000004
35323 @ 294855:                     RSH   
35324 @ 294856:                     ASSVAL

  5655           BASE=BASE&15; DISP=OPND_D;      ! SAFEGUARD FROM OVERWRITING
35325 @ 294857:                     LINE   5655 "regression-compile-tmp/imp918s.imp"
35326 @ 294895:                     PUSH   BASE
35327 @ 294898:                     PUSH   BASE
35328 @ 294901:                     PUSHI  #0x0000000f
35329 @ 294906:                     AND   
35330 @ 294907:                     ASSVAL
35331 @ 294908:                     LINE   5655 "regression-compile-tmp/imp918s.imp"
35332 @ 294946:                     PUSH   DISP
35333 @ 294949:                     PUSH   OPND
35334 @ 294952:                     SELECT 4
35335 @ 294955:                     ASSVAL

  5656           ->RESET RD %IF OPND_D>=0
35336 @ 294956:                     LINE   5656 "regression-compile-tmp/imp918s.imp"
35337 @ 294994:                     PUSH   OPND
35338 @ 294997:                     SELECT 4
35339 @ 295000:                     PUSHI  #0x00000000
35340 @ 295005:                     JUMPIF < L_0004
35341 @ 295009:                     JUMP   L_024f
35342 @ 295012:                     LOCATE L_0004

  5657           K=(TYPE&2)<<3+BASE
35343 @ 295015:                     LINE   5657 "regression-compile-tmp/imp918s.imp"
35344 @ 295053:                     PUSH   K
35345 @ 295056:                     PUSH   TYPE
35346 @ 295059:                     PUSHI  #0x00000002
35347 @ 295064:                     AND   
35348 @ 295065:                     PUSHI  #0x00000003
35349 @ 295070:                     LSH   
35350 @ 295071:                     PUSH   BASE
35351 @ 295074:                     ADD   
35352 @ 295075:                     ASSVAL

  5658           REGISTER(K)=1 %IF REGISTER(K)>=0;   ! CLAIM THE REGISTER
35353 @ 295076:                     LINE   5658 "regression-compile-tmp/imp918s.imp"
35354 @ 295114:                     PUSH   REGISTER
35355 @ 295117:                     PUSH   K
35356 @ 295120:                     ACCESS
35357 @ 295121:                     PUSHI  #0x00000000
35358 @ 295126:                     JUMPIF < L_0004
35359 @ 295130:                     PUSH   REGISTER
35360 @ 295133:                     PUSH   K
35361 @ 295136:                     ACCESS
35362 @ 295137:                     PUSHI  #0x00000001
35363 @ 295142:                     ASSVAL
35364 @ 295143:                     LOCATE L_0004

  5659           %IF GRUSE(K)=1 %THEN GRINF(K)=ADDR(OPND) %ELSE %C
35365 @ 295146:                     LINE   5659 "regression-compile-tmp/imp918s.imp"
35366 @ 295184:                     PUSH   GRUSE
35367 @ 295187:                     PUSH   K
35368 @ 295190:                     ACCESS
35369 @ 295191:                     PUSHI  #0x00000001
35370 @ 295196:                     JUMPIF # L_0004
35371 @ 295200:                     PUSH   GRINF
35372 @ 295203:                     PUSH   K
35373 @ 295206:                     ACCESS
35374 @ 295207:                     PUSH   ADDR
35375 @ 295210:                     PUSH   OPND
35376 @ 295213:                     ASSPAR
35377 @ 295214:                     CALL  
35378 @ 295215:                     ASSVAL
35379 @ 295216:                     GOTO   L_0003
35380 @ 295219:                     LOCATE L_0004
35381 @ 295222:                     PUSH   SETUSE
35382 @ 295225:                     PUSH   K
35383 @ 295228:                     ASSPAR
35384 @ 295229:                     PUSHI  #0x00000001
35385 @ 295234:                     ASSPAR
35386 @ 295235:                     PUSH   ADDR
35387 @ 295238:                     PUSH   OPND
35388 @ 295241:                     ASSPAR
35389 @ 295242:                     CALL  
35390 @ 295243:                     ASSPAR
35391 @ 295244:                     CALL  
35392 @ 295245:                     LOCATE L_0003

  5660           SET USE(K,1,ADDR(OPND)); ->Label99
35393 @ 295248:                     LINE   5660 "regression-compile-tmp/imp918s.imp"
35394 @ 295286:                     JUMP   L_0246

  5661  RDR:     ->Label99 %IF REG<0 %OR REG=B
35395 @ 295289:                     LINE   5661 "regression-compile-tmp/imp918s.imp"
35396 @ 295327:                     LABEL  L_0258
35397 @ 295330:                     LINE   5661 "regression-compile-tmp/imp918s.imp"
35398 @ 295368:                     PUSH   REG
35399 @ 295371:                     PUSHI  #0x00000000
35400 @ 295376:                     JUMPIF < L_0005
35401 @ 295380:                     PUSH   REG
35402 @ 295383:                     PUSH   B
35403 @ 295386:                     JUMPIF # L_0004
35404 @ 295390:                     LOCATE L_0005
35405 @ 295393:                     JUMP   L_0246
35406 @ 295396:                     LOCATE L_0004

  5662           K=B; J=X'18'
35407 @ 295399:                     LINE   5662 "regression-compile-tmp/imp918s.imp"
35408 @ 295437:                     PUSH   K
35409 @ 295440:                     PUSH   B
35410 @ 295443:                     ASSVAL
35411 @ 295444:                     LINE   5662 "regression-compile-tmp/imp918s.imp"
35412 @ 295482:                     PUSH   J
35413 @ 295485:                     PUSHI  #0x00000018
35414 @ 295490:                     ASSVAL

  5663           %IF TYPE=2 %THEN %START
35415 @ 295491:                     LINE   5663 "regression-compile-tmp/imp918s.imp"
35416 @ 295529:                     PUSH   TYPE
35417 @ 295532:                     PUSHI  #0x00000002
35418 @ 295537:                     JUMPIF # L_0004

  5664           K=K+16; J=X'38'-16*(PREC&1); %FINISH
35419 @ 295541:                     LINE   5664 "regression-compile-tmp/imp918s.imp"
35420 @ 295579:                     PUSH   K
35421 @ 295582:                     PUSH   K
35422 @ 295585:                     PUSHI  #0x00000010
35423 @ 295590:                     ADD   
35424 @ 295591:                     ASSVAL
35425 @ 295592:                     LINE   5664 "regression-compile-tmp/imp918s.imp"
35426 @ 295630:                     PUSH   J
35427 @ 295633:                     PUSHI  #0x00000038
35428 @ 295638:                     PUSHI  #0x00000010
35429 @ 295643:                     PUSH   PREC
35430 @ 295646:                     PUSHI  #0x00000001
35431 @ 295651:                     AND   
35432 @ 295652:                     MUL   
35433 @ 295653:                     SUB   
35434 @ 295654:                     ASSVAL
35435 @ 295655:                     LINE   5664 "regression-compile-tmp/imp918s.imp"
35436 @ 295693:                     LOCATE L_0004

  5665           PRR(J,REG,B)
35437 @ 295696:                     LINE   5665 "regression-compile-tmp/imp918s.imp"
35438 @ 295734:                     PUSH   PRR
35439 @ 295737:                     PUSH   J
35440 @ 295740:                     ASSPAR
35441 @ 295741:                     PUSH   REG
35442 @ 295744:                     ASSPAR
35443 @ 295745:                     PUSH   B
35444 @ 295748:                     ASSPAR
35445 @ 295749:                     CALL  

  5666           SET USE((TYPE&2)<<3+REG,GRUSE(K),GRINF(K))
35446 @ 295750:                     LINE   5666 "regression-compile-tmp/imp918s.imp"
35447 @ 295788:                     PUSH   SETUSE
35448 @ 295791:                     PUSH   TYPE
35449 @ 295794:                     PUSHI  #0x00000002
35450 @ 295799:                     AND   
35451 @ 295800:                     PUSHI  #0x00000003
35452 @ 295805:                     LSH   
35453 @ 295806:                     PUSH   REG
35454 @ 295809:                     ADD   
35455 @ 295810:                     ASSPAR
35456 @ 295811:                     PUSH   GRUSE
35457 @ 295814:                     PUSH   K
35458 @ 295817:                     ACCESS
35459 @ 295818:                     ASSPAR
35460 @ 295819:                     PUSH   GRINF
35461 @ 295822:                     PUSH   K
35462 @ 295825:                     ACCESS
35463 @ 295826:                     ASSPAR
35464 @ 295827:                     CALL  

  5667           REGISTER((TYPE&2)<<3+B)=0; OPND_XB=REG
35465 @ 295828:                     LINE   5667 "regression-compile-tmp/imp918s.imp"
35466 @ 295866:                     PUSH   REGISTER
35467 @ 295869:                     PUSH   TYPE
35468 @ 295872:                     PUSHI  #0x00000002
35469 @ 295877:                     AND   
35470 @ 295878:                     PUSHI  #0x00000003
35471 @ 295883:                     LSH   
35472 @ 295884:                     PUSH   B
35473 @ 295887:                     ADD   
35474 @ 295888:                     ACCESS
35475 @ 295889:                     PUSHI  #0x00000000
35476 @ 295894:                     ASSVAL
35477 @ 295895:                     LINE   5667 "regression-compile-tmp/imp918s.imp"
35478 @ 295933:                     PUSH   OPND
35479 @ 295936:                     SELECT 2
35480 @ 295939:                     PUSH   REG
35481 @ 295942:                     ASSVAL

  5668  Label99:      TYPE=1 %IF TYPE=8             ;%END
35482 @ 295943:                     LINE   5668 "regression-compile-tmp/imp918s.imp"
35483 @ 295981:                     LABEL  L_0246
35484 @ 295984:                     LINE   5668 "regression-compile-tmp/imp918s.imp"
35485 @ 296022:                     PUSH   TYPE
35486 @ 296025:                     PUSHI  #0x00000008
35487 @ 296030:                     JUMPIF # L_0004
35488 @ 296034:                     PUSH   TYPE
35489 @ 296037:                     PUSHI  #0x00000001
35490 @ 296042:                     ASSVAL
35491 @ 296043:                     LOCATE L_0004
35492 @ 296046:                     LINE   5668 "regression-compile-tmp/imp918s.imp"
35493 @ 296084:                  END    _lev0id0_CSS_EXPOP_LOAD {lev=4 --> 3}

  5669           %ROUTINE     UNRESERVE(%INTEGER XB)
  5670           {%SHORTROUTINE}
35494 @ 296085:                  LINE   5669 "regression-compile-tmp/imp918s.imp"
35495 @ 296123:                  DEF    UNRESERVE (_lev0id0_CSS_EXPOP_UNRESERVE) p1=V_0222 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
35496 @ 296144:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
35497 @ 296145:                        DEF    XB p1=V_023d 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
35498 @ 296159:                     FINISH ) {lev=4}

  5671           %INTEGER B
35499 @ 296160:                     LINE   5671 "regression-compile-tmp/imp918s.imp"
35500 @ 296198:                     DEF    B p1=V_023e 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

  5672           B=XB&15
35501 @ 296211:                     LINE   5672 "regression-compile-tmp/imp918s.imp"
35502 @ 296249:                     PUSH   B
35503 @ 296252:                     PUSH   XB
35504 @ 296255:                     PUSHI  #0x0000000f
35505 @ 296260:                     AND   
35506 @ 296261:                     ASSVAL

  5673           REGISTER(B)=0 %IF REGISTER(B)=2
35507 @ 296262:                     LINE   5673 "regression-compile-tmp/imp918s.imp"
35508 @ 296300:                     PUSH   REGISTER
35509 @ 296303:                     PUSH   B
35510 @ 296306:                     ACCESS
35511 @ 296307:                     PUSHI  #0x00000002
35512 @ 296312:                     JUMPIF # L_0004
35513 @ 296316:                     PUSH   REGISTER
35514 @ 296319:                     PUSH   B
35515 @ 296322:                     ACCESS
35516 @ 296323:                     PUSHI  #0x00000000
35517 @ 296328:                     ASSVAL
35518 @ 296329:                     LOCATE L_0004

  5674           XB=XB>>4
35519 @ 296332:                     LINE   5674 "regression-compile-tmp/imp918s.imp"
35520 @ 296370:                     PUSH   XB
35521 @ 296373:                     PUSH   XB
35522 @ 296376:                     PUSHI  #0x00000004
35523 @ 296381:                     RSH   
35524 @ 296382:                     ASSVAL

  5675           REGISTER(XB)=0 %IF REGISTER(XB)=2
35525 @ 296383:                     LINE   5675 "regression-compile-tmp/imp918s.imp"
35526 @ 296421:                     PUSH   REGISTER
35527 @ 296424:                     PUSH   XB
35528 @ 296427:                     ACCESS
35529 @ 296428:                     PUSHI  #0x00000002
35530 @ 296433:                     JUMPIF # L_0004
35531 @ 296437:                     PUSH   REGISTER
35532 @ 296440:                     PUSH   XB
35533 @ 296443:                     ACCESS
35534 @ 296444:                     PUSHI  #0x00000000
35535 @ 296449:                     ASSVAL
35536 @ 296450:                     LOCATE L_0004

  5676           %END
35537 @ 296453:                     LINE   5676 "regression-compile-tmp/imp918s.imp"
35538 @ 296491:                  END    _lev0id0_CSS_EXPOP_UNRESERVE {lev=4 --> 3}

  5677           %ROUTINE PUT
  5678           {%SHORTROUTINE}
  5679           %COMMENT THIS ROUTINE PLANTS CODE TO PERFORM THE BASIC
  5680           ! OPERATION DEFINED BY OPND1,OPND2 & OPCODE
  5681           ! OPCODE IS IN INTEGER RR FORM
35539 @ 296492:                  LINE   5677 "regression-compile-tmp/imp918s.imp"
35540 @ 296530:                  DEF    PUT (_lev0id0_CSS_EXPOP_PUT) p1=V_0220 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
35541 @ 296545:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
35542 @ 296546:                     FINISH ) {lev=4}

  5682           %INTEGER I,J,K,CODE,X,B,D
35543 @ 296547:                     LINE   5682 "regression-compile-tmp/imp918s.imp"
35544 @ 296585:                     DEF    I p1=V_023d 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
35545 @ 296598:                     DEF    J p1=V_023e 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
35546 @ 296611:                     DEF    K p1=V_023f 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
35547 @ 296624:                     DEF    CODE p1=V_0240 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
35548 @ 296640:                     DEF    X p1=V_0241 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
35549 @ 296653:                     DEF    B p1=V_0242 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
35550 @ 296666:                     DEF    D p1=V_0243 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

  5683           PTYPE=OPND2_PTYPE;! UNPACK
  5684  !%if USE MC = 1 %start
  5685  !            *L_1,PTYPE; *CVD_1,0(11)
  5686  !            *UNPK_ROUT(5),5(3,11)
  5687  !            *NC_ROUT(5),MASK1
  5688  !%finish
35551 @ 296679:                     LINE   5683 "regression-compile-tmp/imp918s.imp"
35552 @ 296717:                     PUSH   PTYPE
35553 @ 296720:                     PUSH   OPND2
35554 @ 296723:                     SELECT 1
35555 @ 296726:                     ASSVAL

  5689           CODE=OPCODE
35556 @ 296727:                     LINE   5689 "regression-compile-tmp/imp918s.imp"
35557 @ 296765:                     PUSH   CODE
35558 @ 296768:                     PUSH   OPCODE
35559 @ 296771:                     ASSVAL

  5690           %IF TYPE=2 %THEN %START
35560 @ 296772:                     LINE   5690 "regression-compile-tmp/imp918s.imp"
35561 @ 296810:                     PUSH   TYPE
35562 @ 296813:                     PUSHI  #0x00000002
35563 @ 296818:                     JUMPIF # L_0004

  5691           CODE=CODE+32; CODE=CODE-16 %IF PREC&3=3
35564 @ 296822:                     LINE   5691 "regression-compile-tmp/imp918s.imp"
35565 @ 296860:                     PUSH   CODE
35566 @ 296863:                     PUSH   CODE
35567 @ 296866:                     PUSHI  #0x00000020
35568 @ 296871:                     ADD   
35569 @ 296872:                     ASSVAL
35570 @ 296873:                     LINE   5691 "regression-compile-tmp/imp918s.imp"
35571 @ 296911:                     PUSH   PREC
35572 @ 296914:                     PUSHI  #0x00000003
35573 @ 296919:                     AND   
35574 @ 296920:                     PUSHI  #0x00000003
35575 @ 296925:                     JUMPIF # L_0007
35576 @ 296929:                     PUSH   CODE
35577 @ 296932:                     PUSH   CODE
35578 @ 296935:                     PUSHI  #0x00000010
35579 @ 296940:                     SUB   
35580 @ 296941:                     ASSVAL
35581 @ 296942:                     LOCATE L_0007

  5692           %FINISH %ELSE %START
35582 @ 296945:                     LINE   5692 "regression-compile-tmp/imp918s.imp"
35583 @ 296983:                     GOTO   L_0003
35584 @ 296986:                     LOCATE L_0004

  5693           CODE=CODE-16 %IF PREC=2; %FINISH
35585 @ 296989:                     LINE   5693 "regression-compile-tmp/imp918s.imp"
35586 @ 297027:                     PUSH   PREC
35587 @ 297030:                     PUSHI  #0x00000002
35588 @ 297035:                     JUMPIF # L_0007
35589 @ 297039:                     PUSH   CODE
35590 @ 297042:                     PUSH   CODE
35591 @ 297045:                     PUSHI  #0x00000010
35592 @ 297050:                     SUB   
35593 @ 297051:                     ASSVAL
35594 @ 297052:                     LOCATE L_0007
35595 @ 297055:                     LINE   5693 "regression-compile-tmp/imp918s.imp"
35596 @ 297093:                     LOCATE L_0003

  5694           ->RROP %IF OPND2_D<0
35597 @ 297096:                     LINE   5694 "regression-compile-tmp/imp918s.imp"
35598 @ 297134:                     PUSH   OPND2
35599 @ 297137:                     SELECT 4
35600 @ 297140:                     PUSHI  #0x00000000
35601 @ 297145:                     JUMPIF >= L_0004
35602 @ 297149:                     JUMP   L_0244
35603 @ 297152:                     LOCATE L_0004

  5695           X=OPND2_XB>>4; B=OPND2_XB&15
35604 @ 297155:                     LINE   5695 "regression-compile-tmp/imp918s.imp"
35605 @ 297193:                     PUSH   X
35606 @ 297196:                     PUSH   OPND2
35607 @ 297199:                     SELECT 2
35608 @ 297202:                     PUSHI  #0x00000004
35609 @ 297207:                     RSH   
35610 @ 297208:                     ASSVAL
35611 @ 297209:                     LINE   5695 "regression-compile-tmp/imp918s.imp"
35612 @ 297247:                     PUSH   B
35613 @ 297250:                     PUSH   OPND2
35614 @ 297253:                     SELECT 2
35615 @ 297256:                     PUSHI  #0x0000000f
35616 @ 297261:                     AND   
35617 @ 297262:                     ASSVAL

  5696           D=OPND2_D; CODE=CODE+64
35618 @ 297263:                     LINE   5696 "regression-compile-tmp/imp918s.imp"
35619 @ 297301:                     PUSH   D
35620 @ 297304:                     PUSH   OPND2
35621 @ 297307:                     SELECT 4
35622 @ 297310:                     ASSVAL
35623 @ 297311:                     LINE   5696 "regression-compile-tmp/imp918s.imp"
35624 @ 297349:                     PUSH   CODE
35625 @ 297352:                     PUSH   CODE
35626 @ 297355:                     PUSHI  #0x00000040
35627 @ 297360:                     ADD   
35628 @ 297361:                     ASSVAL

  5697           DUMP(CODE,OPND1_XB,D,X,B)
35629 @ 297362:                     LINE   5697 "regression-compile-tmp/imp918s.imp"
35630 @ 297400:                     PUSH   DUMP
35631 @ 297403:                     PUSH   CODE
35632 @ 297406:                     ASSPAR
35633 @ 297407:                     PUSH   OPND1
35634 @ 297410:                     SELECT 2
35635 @ 297413:                     ASSPAR
35636 @ 297414:                     PUSH   D
35637 @ 297417:                     ASSPAR
35638 @ 297418:                     PUSH   X
35639 @ 297421:                     ASSPAR
35640 @ 297422:                     PUSH   B
35641 @ 297425:                     ASSPAR
35642 @ 297426:                     CALL  

  5698           UNRESERVE(OPND2_XB)
35643 @ 297427:                     LINE   5698 "regression-compile-tmp/imp918s.imp"
35644 @ 297465:                     PUSH   UNRESERVE
35645 @ 297468:                     PUSH   OPND2
35646 @ 297471:                     SELECT 2
35647 @ 297474:                     ASSPAR
35648 @ 297475:                     CALL  

  5699           ->Label99
35649 @ 297476:                     LINE   5699 "regression-compile-tmp/imp918s.imp"
35650 @ 297514:                     JUMP   L_0245

  5700  RROP:    PRR(CODE,OPND1_XB,OPND2_XB)
35651 @ 297517:                     LINE   5700 "regression-compile-tmp/imp918s.imp"
35652 @ 297555:                     LABEL  L_0244
35653 @ 297558:                     LINE   5700 "regression-compile-tmp/imp918s.imp"
35654 @ 297596:                     PUSH   PRR
35655 @ 297599:                     PUSH   CODE
35656 @ 297602:                     ASSPAR
35657 @ 297603:                     PUSH   OPND1
35658 @ 297606:                     SELECT 2
35659 @ 297609:                     ASSPAR
35660 @ 297610:                     PUSH   OPND2
35661 @ 297613:                     SELECT 2
35662 @ 297616:                     ASSPAR
35663 @ 297617:                     CALL  

  5701           K=(TYPE&2)<<3+OPND2_XB
35664 @ 297618:                     LINE   5701 "regression-compile-tmp/imp918s.imp"
35665 @ 297656:                     PUSH   K
35666 @ 297659:                     PUSH   TYPE
35667 @ 297662:                     PUSHI  #0x00000002
35668 @ 297667:                     AND   
35669 @ 297668:                     PUSHI  #0x00000003
35670 @ 297673:                     LSH   
35671 @ 297674:                     PUSH   OPND2
35672 @ 297677:                     SELECT 2
35673 @ 297680:                     ADD   
35674 @ 297681:                     ASSVAL

  5702           REGISTER(K)=0 %UNLESS REGISTER(K)<0 %OR OPND1_XB=OPND2_XB
35675 @ 297682:                     LINE   5702 "regression-compile-tmp/imp918s.imp"
35676 @ 297720:                     PUSH   REGISTER
35677 @ 297723:                     PUSH   K
35678 @ 297726:                     ACCESS
35679 @ 297727:                     PUSHI  #0x00000000
35680 @ 297732:                     JUMPIF < L_0004
35681 @ 297736:                     PUSH   OPND1
35682 @ 297739:                     SELECT 2
35683 @ 297742:                     PUSH   OPND2
35684 @ 297745:                     SELECT 2
35685 @ 297748:                     JUMPIF = L_0004
35686 @ 297752:                     PUSH   REGISTER
35687 @ 297755:                     PUSH   K
35688 @ 297758:                     ACCESS
35689 @ 297759:                     PUSHI  #0x00000000
35690 @ 297764:                     ASSVAL
35691 @ 297765:                     LOCATE L_0004

  5703  Label99:      K=(TYPE&2)<<3+OPND1_XB
35692 @ 297768:                     LINE   5703 "regression-compile-tmp/imp918s.imp"
35693 @ 297806:                     LABEL  L_0245
35694 @ 297809:                     LINE   5703 "regression-compile-tmp/imp918s.imp"
35695 @ 297847:                     PUSH   K
35696 @ 297850:                     PUSH   TYPE
35697 @ 297853:                     PUSHI  #0x00000002
35698 @ 297858:                     AND   
35699 @ 297859:                     PUSHI  #0x00000003
35700 @ 297864:                     LSH   
35701 @ 297865:                     PUSH   OPND1
35702 @ 297868:                     SELECT 2
35703 @ 297871:                     ADD   
35704 @ 297872:                     ASSVAL

  5704           %IF OPCODE=X'19' %THEN %START
35705 @ 297873:                     LINE   5704 "regression-compile-tmp/imp918s.imp"
35706 @ 297911:                     PUSH   OPCODE
35707 @ 297914:                     PUSHI  #0x00000019
35708 @ 297919:                     JUMPIF # L_0004

  5705           REGISTER(K)=0 %IF REGISTER(K)>0
35709 @ 297923:                     LINE   5705 "regression-compile-tmp/imp918s.imp"
35710 @ 297961:                     PUSH   REGISTER
35711 @ 297964:                     PUSH   K
35712 @ 297967:                     ACCESS
35713 @ 297968:                     PUSHI  #0x00000000
35714 @ 297973:                     JUMPIF <= L_0007
35715 @ 297977:                     PUSH   REGISTER
35716 @ 297980:                     PUSH   K
35717 @ 297983:                     ACCESS
35718 @ 297984:                     PUSHI  #0x00000000
35719 @ 297989:                     ASSVAL
35720 @ 297990:                     LOCATE L_0007

  5706           %FINISH %ELSE SET USE(K,1,ADDR(OPND1))
35721 @ 297993:                     LINE   5706 "regression-compile-tmp/imp918s.imp"
35722 @ 298031:                     GOTO   L_0003
35723 @ 298034:                     LOCATE L_0004
35724 @ 298037:                     PUSH   SETUSE
35725 @ 298040:                     PUSH   K
35726 @ 298043:                     ASSPAR
35727 @ 298044:                     PUSHI  #0x00000001
35728 @ 298049:                     ASSPAR
35729 @ 298050:                     PUSH   ADDR
35730 @ 298053:                     PUSH   OPND1
35731 @ 298056:                     ASSPAR
35732 @ 298057:                     CALL  
35733 @ 298058:                     ASSPAR
35734 @ 298059:                     CALL  
35735 @ 298060:                     LOCATE L_0003

  5707           %END
35736 @ 298063:                     LINE   5707 "regression-compile-tmp/imp918s.imp"
35737 @ 298101:                  END    _lev0id0_CSS_EXPOP_PUT {lev=4 --> 3}

  5708           %ROUTINE LOAD PAIR(%INTEGER ODDEVEN)
  5709           {%SHORTROUTINE}
  5710           ! THIS ROUTINE LOADS OPERAND 1 INTO AN EVEN0ODDPAIR
  5711           ! THE PAIR IS CLAIMED AS LATE AS POSSIBLE
35738 @ 298102:                  LINE   5708 "regression-compile-tmp/imp918s.imp"
35739 @ 298140:                  DEF    LOADPAIR (_lev0id0_CSS_EXPOP_LOADPAIR) p1=V_0223 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
35740 @ 298160:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
35741 @ 298161:                        DEF    ODDEVEN p1=V_023d 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
35742 @ 298180:                     FINISH ) {lev=4}

  5712           %INTEGER PAIR,TOTHER
35743 @ 298181:                     LINE   5712 "regression-compile-tmp/imp918s.imp"
35744 @ 298219:                     DEF    PAIR p1=V_023e 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
35745 @ 298235:                     DEF    TOTHER p1=V_023f 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

  5713           CYC BITS=CYC BITS!64;         ! SET EVENODD PAIR BIT
35746 @ 298253:                     LINE   5713 "regression-compile-tmp/imp918s.imp"
35747 @ 298291:                     PUSH   CYCBITS
35748 @ 298294:                     PUSH   CYCBITS
35749 @ 298297:                     PUSHI  #0x00000040
35750 @ 298302:                     OR    
35751 @ 298303:                     ASSVAL

  5714           LOAD(OPND1,-1,0);              ! IN STORE UNLESS RT ETC
35752 @ 298304:                     LINE   5714 "regression-compile-tmp/imp918s.imp"
35753 @ 298342:                     PUSH   LOAD
35754 @ 298345:                     PUSH   OPND1
35755 @ 298348:                     ASSPAR
35756 @ 298349:                     PUSHI  #0x00000001
35757 @ 298354:                     NEGATE
35758 @ 298355:                     ASSPAR
35759 @ 298356:                     PUSHI  #0x00000000
35760 @ 298361:                     ASSPAR
35761 @ 298362:                     CALL  

  5715           LOAD(OPND2,-1,0)
35762 @ 298363:                     LINE   5715 "regression-compile-tmp/imp918s.imp"
35763 @ 298401:                     PUSH   LOAD
35764 @ 298404:                     PUSH   OPND2
35765 @ 298407:                     ASSPAR
35766 @ 298408:                     PUSHI  #0x00000001
35767 @ 298413:                     NEGATE
35768 @ 298414:                     ASSPAR
35769 @ 298415:                     PUSHI  #0x00000000
35770 @ 298420:                     ASSPAR
35771 @ 298421:                     CALL  

  5716           -> IN STORE %UNLESS OPND1_FLAG=9 %AND OPND1_D<0
35772 @ 298422:                     LINE   5716 "regression-compile-tmp/imp918s.imp"
35773 @ 298460:                     PUSH   OPND1
35774 @ 298463:                     SELECT 3
35775 @ 298466:                     PUSHI  #0x00000009
35776 @ 298471:                     JUMPIF # L_0005
35777 @ 298475:                     PUSH   OPND1
35778 @ 298478:                     SELECT 4
35779 @ 298481:                     PUSHI  #0x00000000
35780 @ 298486:                     JUMPIF < L_0004
35781 @ 298490:                     LOCATE L_0005
35782 @ 298493:                     JUMP   L_0240
35783 @ 298496:                     LOCATE L_0004

  5717           TOTHER=OPND1_XB!!1
35784 @ 298499:                     LINE   5717 "regression-compile-tmp/imp918s.imp"
35785 @ 298537:                     PUSH   TOTHER
35786 @ 298540:                     PUSH   OPND1
35787 @ 298543:                     SELECT 2
35788 @ 298546:                     PUSHI  #0x00000001
35789 @ 298551:                     XOR   
35790 @ 298552:                     ASSVAL

  5718           -> INSTORE %UNLESS REGISTER(TOTHER)=0
35791 @ 298553:                     LINE   5718 "regression-compile-tmp/imp918s.imp"
35792 @ 298591:                     PUSH   REGISTER
35793 @ 298594:                     PUSH   TOTHER
35794 @ 298597:                     ACCESS
35795 @ 298598:                     PUSHI  #0x00000000
35796 @ 298603:                     JUMPIF = L_0004
35797 @ 298607:                     JUMP   L_0240
35798 @ 298610:                     LOCATE L_0004

  5719           REGISTER(TOTHER)=1; PAIR=TOTHER&14
35799 @ 298613:                     LINE   5719 "regression-compile-tmp/imp918s.imp"
35800 @ 298651:                     PUSH   REGISTER
35801 @ 298654:                     PUSH   TOTHER
35802 @ 298657:                     ACCESS
35803 @ 298658:                     PUSHI  #0x00000001
35804 @ 298663:                     ASSVAL
35805 @ 298664:                     LINE   5719 "regression-compile-tmp/imp918s.imp"
35806 @ 298702:                     PUSH   PAIR
35807 @ 298705:                     PUSH   TOTHER
35808 @ 298708:                     PUSHI  #0x0000000e
35809 @ 298713:                     AND   
35810 @ 298714:                     ASSVAL

  5720           -> FIN %IF ODDEVEN+PAIR#TOTHER
35811 @ 298715:                     LINE   5720 "regression-compile-tmp/imp918s.imp"
35812 @ 298753:                     PUSH   ODDEVEN
35813 @ 298756:                     PUSH   PAIR
35814 @ 298759:                     ADD   
35815 @ 298760:                     PUSH   TOTHER
35816 @ 298763:                     JUMPIF = L_0004
35817 @ 298767:                     JUMP   L_0241
35818 @ 298770:                     LOCATE L_0004

  5721           LOAD(OPND1,TOTHER,2); REGISTER(TOTHER!!1)=1; ->FIN
35819 @ 298773:                     LINE   5721 "regression-compile-tmp/imp918s.imp"
35820 @ 298811:                     PUSH   LOAD
35821 @ 298814:                     PUSH   OPND1
35822 @ 298817:                     ASSPAR
35823 @ 298818:                     PUSH   TOTHER
35824 @ 298821:                     ASSPAR
35825 @ 298822:                     PUSHI  #0x00000002
35826 @ 298827:                     ASSPAR
35827 @ 298828:                     CALL  
35828 @ 298829:                     LINE   5721 "regression-compile-tmp/imp918s.imp"
35829 @ 298867:                     PUSH   REGISTER
35830 @ 298870:                     PUSH   TOTHER
35831 @ 298873:                     PUSHI  #0x00000001
35832 @ 298878:                     XOR   
35833 @ 298879:                     ACCESS
35834 @ 298880:                     PUSHI  #0x00000001
35835 @ 298885:                     ASSVAL
35836 @ 298886:                     LINE   5721 "regression-compile-tmp/imp918s.imp"
35837 @ 298924:                     JUMP   L_0241

  5722  INSTORE: CLAIM PAIR(PAIR)
35838 @ 298927:                     LINE   5722 "regression-compile-tmp/imp918s.imp"
35839 @ 298965:                     LABEL  L_0240
35840 @ 298968:                     LINE   5722 "regression-compile-tmp/imp918s.imp"
35841 @ 299006:                     PUSH   CLAIMPAIR
35842 @ 299009:                     PUSH   PAIR
35843 @ 299012:                     ASSPAR
35844 @ 299013:                     CALL  

  5723           LOAD(OPND1,PAIR+ODDEVEN,2)
35845 @ 299014:                     LINE   5723 "regression-compile-tmp/imp918s.imp"
35846 @ 299052:                     PUSH   LOAD
35847 @ 299055:                     PUSH   OPND1
35848 @ 299058:                     ASSPAR
35849 @ 299059:                     PUSH   PAIR
35850 @ 299062:                     PUSH   ODDEVEN
35851 @ 299065:                     ADD   
35852 @ 299066:                     ASSPAR
35853 @ 299067:                     PUSHI  #0x00000002
35854 @ 299072:                     ASSPAR
35855 @ 299073:                     CALL  

  5724  FIN:     OPND1_XB=PAIR;                ! ALWAYS LH MEMBER
35856 @ 299074:                     LINE   5724 "regression-compile-tmp/imp918s.imp"
35857 @ 299112:                     LABEL  L_0241
35858 @ 299115:                     LINE   5724 "regression-compile-tmp/imp918s.imp"
35859 @ 299153:                     PUSH   OPND1
35860 @ 299156:                     SELECT 2
35861 @ 299159:                     PUSH   PAIR
35862 @ 299162:                     ASSVAL

  5725           REGISTER(PAIR)=2
35863 @ 299163:                     LINE   5725 "regression-compile-tmp/imp918s.imp"
35864 @ 299201:                     PUSH   REGISTER
35865 @ 299204:                     PUSH   PAIR
35866 @ 299207:                     ACCESS
35867 @ 299208:                     PUSHI  #0x00000002
35868 @ 299213:                     ASSVAL

  5726           REGISTER(PAIR+1)=2
35869 @ 299214:                     LINE   5726 "regression-compile-tmp/imp918s.imp"
35870 @ 299252:                     PUSH   REGISTER
35871 @ 299255:                     PUSH   PAIR
35872 @ 299258:                     PUSHI  #0x00000001
35873 @ 299263:                     ADD   
35874 @ 299264:                     ACCESS
35875 @ 299265:                     PUSHI  #0x00000002
35876 @ 299270:                     ASSVAL

  5727           LOAD(OPND2,-1,1)
35877 @ 299271:                     LINE   5727 "regression-compile-tmp/imp918s.imp"
35878 @ 299309:                     PUSH   LOAD
35879 @ 299312:                     PUSH   OPND2
35880 @ 299315:                     ASSPAR
35881 @ 299316:                     PUSHI  #0x00000001
35882 @ 299321:                     NEGATE
35883 @ 299322:                     ASSPAR
35884 @ 299323:                     PUSHI  #0x00000001
35885 @ 299328:                     ASSPAR
35886 @ 299329:                     CALL  

  5728           REGISTER(PAIR)=1
35887 @ 299330:                     LINE   5728 "regression-compile-tmp/imp918s.imp"
35888 @ 299368:                     PUSH   REGISTER
35889 @ 299371:                     PUSH   PAIR
35890 @ 299374:                     ACCESS
35891 @ 299375:                     PUSHI  #0x00000001
35892 @ 299380:                     ASSVAL

  5729           REGISTER(PAIR+1)=1
35893 @ 299381:                     LINE   5729 "regression-compile-tmp/imp918s.imp"
35894 @ 299419:                     PUSH   REGISTER
35895 @ 299422:                     PUSH   PAIR
35896 @ 299425:                     PUSHI  #0x00000001
35897 @ 299430:                     ADD   
35898 @ 299431:                     ACCESS
35899 @ 299432:                     PUSHI  #0x00000001
35900 @ 299437:                     ASSVAL

  5730           %END
35901 @ 299438:                     LINE   5730 "regression-compile-tmp/imp918s.imp"
35902 @ 299476:                  END    _lev0id0_CSS_EXPOP_LOADPAIR {lev=4 --> 3}

  5731           %ROUTINE CLAIM PAIR(%INTEGERNAME REG)
  5732           {%SHORTROUTINE}
35903 @ 299477:                  LINE   5731 "regression-compile-tmp/imp918s.imp"
35904 @ 299515:                  DEF    CLAIMPAIR (_lev0id0_CSS_EXPOP_CLAIMPAIR) p1=V_021f 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
35905 @ 299536:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
35906 @ 299537:                        DEF    REG p1=V_023d a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
35907 @ 299552:                     FINISH ) {lev=4}

  5733           %INTEGER I,J,K
35908 @ 299553:                     LINE   5733 "regression-compile-tmp/imp918s.imp"
35909 @ 299591:                     DEF    I p1=V_023e 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
35910 @ 299604:                     DEF    J p1=V_023f 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
35911 @ 299617:                     DEF    K p1=V_0240 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

  5734           %CYCLE I=0,1,2
35912 @ 299630:                     LINE   5734 "regression-compile-tmp/imp918s.imp"
35913 @ 299668:                     PUSH   I
35914 @ 299671:                     PUSHI  #0x00000001
35915 @ 299676:                     PUSHI  #0x00000002
35916 @ 299681:                     PUSHI  #0x00000000
35917 @ 299686:                     FOR    L_0003

  5735           %CYCLE K=6,-2,-2
35918 @ 299689:                     LINE   5735 "regression-compile-tmp/imp918s.imp"
35919 @ 299727:                     PUSH   K
35920 @ 299730:                     PUSHI  #0x00000002
35921 @ 299735:                     NEGATE
35922 @ 299736:                     PUSHI  #0x00000002
35923 @ 299741:                     NEGATE
35924 @ 299742:                     PUSHI  #0x00000006
35925 @ 299747:                     FOR    L_0006

  5736           J=K&15
35926 @ 299750:                     LINE   5736 "regression-compile-tmp/imp918s.imp"
35927 @ 299788:                     PUSH   J
35928 @ 299791:                     PUSH   K
35929 @ 299794:                     PUSHI  #0x0000000f
35930 @ 299799:                     AND   
35931 @ 299800:                     ASSVAL

  5737           -> FOUND %IF REGISTER(J)=REGISTER(J+1)=0 %AND (I>0 %OR  %C
  5738           GRUSE(J)=0=GRUSE(J+1))
35932 @ 299801:                     LINE   5737 "regression-compile-tmp/imp918s.imp"
35933 @ 299839:                     PUSH   REGISTER
35934 @ 299842:                     PUSH   J
35935 @ 299845:                     ACCESS
35936 @ 299846:                     PUSH   REGISTER
35937 @ 299849:                     PUSH   J
35938 @ 299852:                     PUSHI  #0x00000001
35939 @ 299857:                     ADD   
35940 @ 299858:                     ACCESS
35941 @ 299859:                     JUMPIFD # L_000a
35942 @ 299863:                     PUSHI  #0x00000000
35943 @ 299868:                     JUMPIF # L_000a
35944 @ 299872:                     PUSH   I
35945 @ 299875:                     PUSHI  #0x00000000
35946 @ 299880:                     JUMPIF > L_000b
35947 @ 299884:                     PUSH   GRUSE
35948 @ 299887:                     PUSH   J
35949 @ 299890:                     ACCESS
35950 @ 299891:                     PUSHI  #0x00000000
35951 @ 299896:                     JUMPIFD # L_000a
35952 @ 299900:                     PUSH   GRUSE
35953 @ 299903:                     PUSH   J
35954 @ 299906:                     PUSHI  #0x00000001
35955 @ 299911:                     ADD   
35956 @ 299912:                     ACCESS
35957 @ 299913:                     JUMPIF # L_000a
35958 @ 299917:                     LOCATE L_000b
35959 @ 299920:                     JUMP   L_0241
35960 @ 299923:                     LOCATE L_000a

  5739           %REPEAT
35961 @ 299926:                     LINE   5739 "regression-compile-tmp/imp918s.imp"
35962 @ 299964:                     REPEAT L_0006
35963 @ 299967:                     LOCATE L_0007

  5740           SAVE IRS(4) %IF I=1
35964 @ 299970:                     LINE   5740 "regression-compile-tmp/imp918s.imp"
35965 @ 300008:                     PUSH   I
35966 @ 300011:                     PUSHI  #0x00000001
35967 @ 300016:                     JUMPIF # L_0007
35968 @ 300020:                     PUSH   SAVEIRS
35969 @ 300023:                     PUSHI  #0x00000004
35970 @ 300028:                     ASSPAR
35971 @ 300029:                     CALL  
35972 @ 300030:                     LOCATE L_0007

  5741           %REPEAT
35973 @ 300033:                     LINE   5741 "regression-compile-tmp/imp918s.imp"
35974 @ 300071:                     REPEAT L_0003
35975 @ 300074:                     LOCATE L_0004

  5742           ABORT
35976 @ 300077:                     LINE   5742 "regression-compile-tmp/imp918s.imp"
35977 @ 300115:                     PUSH   ABORT
35978 @ 300118:                     CALL  

  5743  FOUND:   REGISTER(J)=1
35979 @ 300119:                     LINE   5743 "regression-compile-tmp/imp918s.imp"
35980 @ 300157:                     LABEL  L_0241
35981 @ 300160:                     LINE   5743 "regression-compile-tmp/imp918s.imp"
35982 @ 300198:                     PUSH   REGISTER
35983 @ 300201:                     PUSH   J
35984 @ 300204:                     ACCESS
35985 @ 300205:                     PUSHI  #0x00000001
35986 @ 300210:                     ASSVAL

  5744           REGISTER(J+1)=1
35987 @ 300211:                     LINE   5744 "regression-compile-tmp/imp918s.imp"
35988 @ 300249:                     PUSH   REGISTER
35989 @ 300252:                     PUSH   J
35990 @ 300255:                     PUSHI  #0x00000001
35991 @ 300260:                     ADD   
35992 @ 300261:                     ACCESS
35993 @ 300262:                     PUSHI  #0x00000001
35994 @ 300267:                     ASSVAL

  5745           REG=J
35995 @ 300268:                     LINE   5745 "regression-compile-tmp/imp918s.imp"
35996 @ 300306:                     PUSH   REG
35997 @ 300309:                     PUSH   J
35998 @ 300312:                     ASSVAL

  5746           %END
35999 @ 300313:                     LINE   5746 "regression-compile-tmp/imp918s.imp"
36000 @ 300351:                  END    _lev0id0_CSS_EXPOP_CLAIMPAIR {lev=4 --> 3}

  5747           %ROUTINE CTOP(%INTEGERNAME FLAG)
  5748           {%SHORTROUTINE}
  5749           %COMMENT ON EXIT FLAG=0 %IF OPERATION CARRIED OUT
36001 @ 300352:                  LINE   5747 "regression-compile-tmp/imp918s.imp"
36002 @ 300390:                  DEF    CTOP (_lev0id0_CSS_EXPOP_CTOP) p1=V_021c 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
36003 @ 300406:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
36004 @ 300407:                        DEF    FLAG p1=V_023d a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
36005 @ 300423:                     FINISH ) {lev=4}

  5750           %INTEGER K,VAL1,VAL2,TYPEP,PRECP,OP
36006 @ 300424:                     LINE   5750 "regression-compile-tmp/imp918s.imp"
36007 @ 300462:                     DEF    K p1=V_023e 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
36008 @ 300475:                     DEF    VAL1 p1=V_023f 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
36009 @ 300491:                     DEF    VAL2 p1=V_0240 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
36010 @ 300507:                     DEF    TYPEP p1=V_0241 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
36011 @ 300524:                     DEF    PRECP p1=V_0242 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
36012 @ 300541:                     DEF    OP p1=V_0243 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

  5751           %LONGREAL RVAL1,RVAL2
36013 @ 300555:                     LINE   5751 "regression-compile-tmp/imp918s.imp"
36014 @ 300593:                     DEF    RVAL1 p1=V_0244 a/tf=21 b/format=4 c/ostate=0  type=2 (real) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
36015 @ 300610:                     DEF    RVAL2 p1=V_0245 a/tf=21 b/format=4 c/ostate=0  type=2 (real) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  5752           %SWITCH SW(10:41)
36016 @ 300627:                     LINE   5752 "regression-compile-tmp/imp918s.imp"
36017 @ 300665:                     PUSHI  #0x0000000a
36018 @ 300670:                     PUSHI  #0x00000029
36019 @ 300675:                     BOUNDS
36020 @ 300676:                     DEF    SW p1=V_0246 a/tf=6 b/format=0 c/ostate=0  type=0 (<type:0>) form=6 (switch) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  5753           NEWCC=0;                       !COMPILE TIME OPS CAN NOT SET CC
36021 @ 300690:                     LINE   5753 "regression-compile-tmp/imp918s.imp"
36022 @ 300728:                     PUSH   NEWCC
36023 @ 300731:                     PUSHI  #0x00000000
36024 @ 300736:                     ASSVAL

  5754           TYPEP=TYPE; PRECP=PREC; OP=FLAG
36025 @ 300737:                     LINE   5754 "regression-compile-tmp/imp918s.imp"
36026 @ 300775:                     PUSH   TYPEP
36027 @ 300778:                     PUSH   TYPE
36028 @ 300781:                     ASSVAL
36029 @ 300782:                     LINE   5754 "regression-compile-tmp/imp918s.imp"
36030 @ 300820:                     PUSH   PRECP
36031 @ 300823:                     PUSH   PREC
36032 @ 300826:                     ASSVAL
36033 @ 300827:                     LINE   5754 "regression-compile-tmp/imp918s.imp"
36034 @ 300865:                     PUSH   OP
36035 @ 300868:                     PUSH   FLAG
36036 @ 300871:                     ASSVAL

  5755           ->Label99 %IF OP>25
36037 @ 300872:                     LINE   5755 "regression-compile-tmp/imp918s.imp"
36038 @ 300910:                     PUSH   OP
36039 @ 300913:                     PUSHI  #0x00000019
36040 @ 300918:                     JUMPIF <= L_0004
36041 @ 300922:                     JUMP   L_0247
36042 @ 300925:                     LOCATE L_0004

  5756           %IF TYPEP=2 %THEN %START
36043 @ 300928:                     LINE   5756 "regression-compile-tmp/imp918s.imp"
36044 @ 300966:                     PUSH   TYPEP
36045 @ 300969:                     PUSHI  #0x00000002
36046 @ 300974:                     JUMPIF # L_0004

  5757           FROM AR8(OPND1_D+1,RVAL1)
36047 @ 300978:                     LINE   5757 "regression-compile-tmp/imp918s.imp"
36048 @ 301016:                     PUSH   FROMAR8
36049 @ 301019:                     PUSH   OPND1
36050 @ 301022:                     SELECT 4
36051 @ 301025:                     PUSHI  #0x00000001
36052 @ 301030:                     ADD   
36053 @ 301031:                     ASSPAR
36054 @ 301032:                     PUSH   RVAL1
36055 @ 301035:                     ASSPAR
36056 @ 301036:                     CALL  

  5758           FROMAR8(OPND2_D+1,RVAL2)
36057 @ 301037:                     LINE   5758 "regression-compile-tmp/imp918s.imp"
36058 @ 301075:                     PUSH   FROMAR8
36059 @ 301078:                     PUSH   OPND2
36060 @ 301081:                     SELECT 4
36061 @ 301084:                     PUSHI  #0x00000001
36062 @ 301089:                     ADD   
36063 @ 301090:                     ASSPAR
36064 @ 301091:                     PUSH   RVAL2
36065 @ 301094:                     ASSPAR
36066 @ 301095:                     CALL  

  5759           %FINISH %ELSE %START
36067 @ 301096:                     LINE   5759 "regression-compile-tmp/imp918s.imp"
36068 @ 301134:                     GOTO   L_0003
36069 @ 301137:                     LOCATE L_0004

  5760           %IF OPND1_FLAG=0 %THEN VAL1=OPND1_D %ELSE %C
  5761           FROMAR4(OPND1_D+1,VAL1)
36070 @ 301140:                     LINE   5760 "regression-compile-tmp/imp918s.imp"
36071 @ 301178:                     PUSH   OPND1
36072 @ 301181:                     SELECT 3
36073 @ 301184:                     PUSHI  #0x00000000
36074 @ 301189:                     JUMPIF # L_0007
36075 @ 301193:                     PUSH   VAL1
36076 @ 301196:                     PUSH   OPND1
36077 @ 301199:                     SELECT 4
36078 @ 301202:                     ASSVAL
36079 @ 301203:                     GOTO   L_0006
36080 @ 301206:                     LOCATE L_0007
36081 @ 301209:                     PUSH   FROMAR4
36082 @ 301212:                     PUSH   OPND1
36083 @ 301215:                     SELECT 4
36084 @ 301218:                     PUSHI  #0x00000001
36085 @ 301223:                     ADD   
36086 @ 301224:                     ASSPAR
36087 @ 301225:                     PUSH   VAL1
36088 @ 301228:                     ASSPAR
36089 @ 301229:                     CALL  
36090 @ 301230:                     LOCATE L_0006

  5762           %IF OPND2_FLAG=0 %THEN VAL2=OPND2_D %ELSE  %C
  5763           FROMAR4(OPND2_D+1,VAL2)
36091 @ 301233:                     LINE   5762 "regression-compile-tmp/imp918s.imp"
36092 @ 301271:                     PUSH   OPND2
36093 @ 301274:                     SELECT 3
36094 @ 301277:                     PUSHI  #0x00000000
36095 @ 301282:                     JUMPIF # L_0007
36096 @ 301286:                     PUSH   VAL2
36097 @ 301289:                     PUSH   OPND2
36098 @ 301292:                     SELECT 4
36099 @ 301295:                     ASSVAL
36100 @ 301296:                     GOTO   L_0006
36101 @ 301299:                     LOCATE L_0007
36102 @ 301302:                     PUSH   FROMAR4
36103 @ 301305:                     PUSH   OPND2
36104 @ 301308:                     SELECT 4
36105 @ 301311:                     PUSHI  #0x00000001
36106 @ 301316:                     ADD   
36107 @ 301317:                     ASSPAR
36108 @ 301318:                     PUSH   VAL2
36109 @ 301321:                     ASSPAR
36110 @ 301322:                     CALL  
36111 @ 301323:                     LOCATE L_0006

  5764           %FINISH
36112 @ 301326:                     LINE   5764 "regression-compile-tmp/imp918s.imp"
36113 @ 301364:                     LOCATE L_0003

  5765           -> SW(16*(TYPEP-1)+OP)
36114 @ 301367:                     LINE   5765 "regression-compile-tmp/imp918s.imp"
36115 @ 301405:                     PUSHI  #0x00000010
36116 @ 301410:                     PUSH   TYPEP
36117 @ 301413:                     PUSHI  #0x00000001
36118 @ 301418:                     SUB   
36119 @ 301419:                     MUL   
36120 @ 301420:                     PUSH   OP
36121 @ 301423:                     ADD   
36122 @ 301424:                     SJUMP  582

  5766  SW(10):                                ! \
36123 @ 301427:                     LINE   5766 "regression-compile-tmp/imp918s.imp"
36124 @ 301465:                     PUSHI  #0x0000000a
36125 @ 301470:                     SLABEL 582

  5767           VAL1=\VAL1
36126 @ 301473:                     LINE   5767 "regression-compile-tmp/imp918s.imp"
36127 @ 301511:                     PUSH   VAL1
36128 @ 301514:                     PUSH   VAL1
36129 @ 301517:                     NOT   
36130 @ 301518:                     ASSVAL

  5768  INTEND:  A(R)=1; TOAR4(R+1,VAL1)
36131 @ 301519:                     LINE   5768 "regression-compile-tmp/imp918s.imp"
36132 @ 301557:                     LABEL  L_0248
36133 @ 301560:                     LINE   5768 "regression-compile-tmp/imp918s.imp"
36134 @ 301598:                     PUSH   A
36135 @ 301601:                     PUSH   R
36136 @ 301604:                     ACCESS
36137 @ 301605:                     PUSHI  #0x00000001
36138 @ 301610:                     ASSVAL
36139 @ 301611:                     LINE   5768 "regression-compile-tmp/imp918s.imp"
36140 @ 301649:                     PUSH   TOAR4
36141 @ 301652:                     PUSH   R
36142 @ 301655:                     PUSHI  #0x00000001
36143 @ 301660:                     ADD   
36144 @ 301661:                     ASSPAR
36145 @ 301662:                     PUSH   VAL1
36146 @ 301665:                     ASSPAR
36147 @ 301666:                     CALL  

  5769           FLAG=0; OPND1_PTYPE=1
36148 @ 301667:                     LINE   5769 "regression-compile-tmp/imp918s.imp"
36149 @ 301705:                     PUSH   FLAG
36150 @ 301708:                     PUSHI  #0x00000000
36151 @ 301713:                     ASSVAL
36152 @ 301714:                     LINE   5769 "regression-compile-tmp/imp918s.imp"
36153 @ 301752:                     PUSH   OPND1
36154 @ 301755:                     SELECT 1
36155 @ 301758:                     PUSHI  #0x00000001
36156 @ 301763:                     ASSVAL

  5770           OPND1_FLAG=1; OPND1_D=R;
36157 @ 301764:                     LINE   5770 "regression-compile-tmp/imp918s.imp"
36158 @ 301802:                     PUSH   OPND1
36159 @ 301805:                     SELECT 3
36160 @ 301808:                     PUSHI  #0x00000001
36161 @ 301813:                     ASSVAL
36162 @ 301814:                     LINE   5770 "regression-compile-tmp/imp918s.imp"
36163 @ 301852:                     PUSH   OPND1
36164 @ 301855:                     SELECT 4
36165 @ 301858:                     PUSH   R
36166 @ 301861:                     ASSVAL

  5771           R=R+3; ->Label99
36167 @ 301862:                     LINE   5771 "regression-compile-tmp/imp918s.imp"
36168 @ 301900:                     PUSH   R
36169 @ 301903:                     PUSH   R
36170 @ 301906:                     PUSHI  #0x00000003
36171 @ 301911:                     ADD   
36172 @ 301912:                     ASSVAL
36173 @ 301913:                     LINE   5771 "regression-compile-tmp/imp918s.imp"
36174 @ 301951:                     JUMP   L_0247

  5772  SW(11):                                ! INTEGER NEGATE
36175 @ 301954:                     LINE   5772 "regression-compile-tmp/imp918s.imp"
36176 @ 301992:                     PUSHI  #0x0000000b
36177 @ 301997:                     SLABEL 582

  5773           VAL1=-VAL1; -> INT END
36178 @ 302000:                     LINE   5773 "regression-compile-tmp/imp918s.imp"
36179 @ 302038:                     PUSH   VAL1
36180 @ 302041:                     PUSH   VAL1
36181 @ 302044:                     NEGATE
36182 @ 302045:                     ASSVAL
36183 @ 302046:                     LINE   5773 "regression-compile-tmp/imp918s.imp"
36184 @ 302084:                     JUMP   L_0248

  5774  SW(13):                                ! INTEGER ABS
36185 @ 302087:                     LINE   5774 "regression-compile-tmp/imp918s.imp"
36186 @ 302125:                     PUSHI  #0x0000000d
36187 @ 302130:                     SLABEL 582

  5775           VAL1=|VAL1|; -> INT END
36188 @ 302133:                     LINE   5775 "regression-compile-tmp/imp918s.imp"
36189 @ 302171:                     PUSH   VAL1
36190 @ 302174:                     PUSH   VAL1
36191 @ 302177:                     MOD   
36192 @ 302178:                     ASSVAL
36193 @ 302179:                     LINE   5775 "regression-compile-tmp/imp918s.imp"
36194 @ 302217:                     JUMP   L_0248

  5776  SW(12):                                ! INTEGER FLOAT
36195 @ 302220:                     LINE   5776 "regression-compile-tmp/imp918s.imp"
36196 @ 302258:                     PUSHI  #0x0000000c
36197 @ 302263:                     SLABEL 582

  5777           RVAL1=VAL1; PRECP=3*XTRA
36198 @ 302266:                     LINE   5777 "regression-compile-tmp/imp918s.imp"
36199 @ 302304:                     PUSH   RVAL1
36200 @ 302307:                     PUSH   VAL1
36201 @ 302310:                     ASSVAL
36202 @ 302311:                     LINE   5777 "regression-compile-tmp/imp918s.imp"
36203 @ 302349:                     PUSH   PRECP
36204 @ 302352:                     PUSHI  #0x00000003
36205 @ 302357:                     PUSH   XTRA
36206 @ 302360:                     MUL   
36207 @ 302361:                     ASSVAL

  5778           ->REAL END %UNLESS VAL1=0
36208 @ 302362:                     LINE   5778 "regression-compile-tmp/imp918s.imp"
36209 @ 302400:                     PUSH   VAL1
36210 @ 302403:                     PUSHI  #0x00000000
36211 @ 302408:                     JUMPIF = L_0004
36212 @ 302412:                     JUMP   L_0249
36213 @ 302415:                     LOCATE L_0004

  5779           CYC BITS=CYC BITS!16;          ! USES PERMS CONST TABLE
36214 @ 302418:                     LINE   5779 "regression-compile-tmp/imp918s.imp"
36215 @ 302456:                     PUSH   CYCBITS
36216 @ 302459:                     PUSH   CYCBITS
36217 @ 302462:                     PUSHI  #0x00000010
36218 @ 302467:                     OR    
36219 @ 302468:                     ASSVAL

  5780           OPND1_FLAG=9; OPND1_XB=CODER; ! TREAT ZERO SPECIALLY
36220 @ 302469:                     LINE   5780 "regression-compile-tmp/imp918s.imp"
36221 @ 302507:                     PUSH   OPND1
36222 @ 302510:                     SELECT 3
36223 @ 302513:                     PUSHI  #0x00000009
36224 @ 302518:                     ASSVAL
36225 @ 302519:                     LINE   5780 "regression-compile-tmp/imp918s.imp"
36226 @ 302557:                     PUSH   OPND1
36227 @ 302560:                     SELECT 2
36228 @ 302563:                     PUSHI  #0x0000000c
36229 @ 302568:                     ASSVAL

  5781           OPND1_D=X'C0'; ->Label98;          ! TO ALLOW LTDR ETC
36230 @ 302569:                     LINE   5781 "regression-compile-tmp/imp918s.imp"
36231 @ 302607:                     PUSH   OPND1
36232 @ 302610:                     SELECT 4
36233 @ 302613:                     PUSHI  #0x000000c0
36234 @ 302618:                     ASSVAL
36235 @ 302619:                     LINE   5781 "regression-compile-tmp/imp918s.imp"
36236 @ 302657:                     JUMP   L_024a

  5782  SW(30):                                ! STRETCH REAL
36237 @ 302660:                     LINE   5782 "regression-compile-tmp/imp918s.imp"
36238 @ 302698:                     PUSHI  #0x0000001e
36239 @ 302703:                     SLABEL 582

  5783  REAL END:A(R)=2; TOAR8(R+1,RVAL1)
36240 @ 302706:                     LINE   5783 "regression-compile-tmp/imp918s.imp"
36241 @ 302744:                     LABEL  L_0249
36242 @ 302747:                     LINE   5783 "regression-compile-tmp/imp918s.imp"
36243 @ 302785:                     PUSH   A
36244 @ 302788:                     PUSH   R
36245 @ 302791:                     ACCESS
36246 @ 302792:                     PUSHI  #0x00000002
36247 @ 302797:                     ASSVAL
36248 @ 302798:                     LINE   5783 "regression-compile-tmp/imp918s.imp"
36249 @ 302836:                     PUSH   TOAR8
36250 @ 302839:                     PUSH   R
36251 @ 302842:                     PUSHI  #0x00000001
36252 @ 302847:                     ADD   
36253 @ 302848:                     ASSPAR
36254 @ 302849:                     PUSH   RVAL1
36255 @ 302852:                     ASSPAR
36256 @ 302853:                     CALL  

  5784           OPND1_FLAG=1; OPND1_D=R; R=R+5
36257 @ 302854:                     LINE   5784 "regression-compile-tmp/imp918s.imp"
36258 @ 302892:                     PUSH   OPND1
36259 @ 302895:                     SELECT 3
36260 @ 302898:                     PUSHI  #0x00000001
36261 @ 302903:                     ASSVAL
36262 @ 302904:                     LINE   5784 "regression-compile-tmp/imp918s.imp"
36263 @ 302942:                     PUSH   OPND1
36264 @ 302945:                     SELECT 4
36265 @ 302948:                     PUSH   R
36266 @ 302951:                     ASSVAL
36267 @ 302952:                     LINE   5784 "regression-compile-tmp/imp918s.imp"
36268 @ 302990:                     PUSH   R
36269 @ 302993:                     PUSH   R
36270 @ 302996:                     PUSHI  #0x00000005
36271 @ 303001:                     ADD   
36272 @ 303002:                     ASSVAL

  5785  Label98:      FLAG=0; OPND1_PTYPE=10*PRECP+2
36273 @ 303003:                     LINE   5785 "regression-compile-tmp/imp918s.imp"
36274 @ 303041:                     LABEL  L_024a
36275 @ 303044:                     LINE   5785 "regression-compile-tmp/imp918s.imp"
36276 @ 303082:                     PUSH   FLAG
36277 @ 303085:                     PUSHI  #0x00000000
36278 @ 303090:                     ASSVAL
36279 @ 303091:                     LINE   5785 "regression-compile-tmp/imp918s.imp"
36280 @ 303129:                     PUSH   OPND1
36281 @ 303132:                     SELECT 1
36282 @ 303135:                     PUSHI  #0x0000000a
36283 @ 303140:                     PUSH   PRECP
36284 @ 303143:                     MUL   
36285 @ 303144:                     PUSHI  #0x00000002
36286 @ 303149:                     ADD   
36287 @ 303150:                     ASSVAL

  5786           ->Label99
36288 @ 303151:                     LINE   5786 "regression-compile-tmp/imp918s.imp"
36289 @ 303189:                     JUMP   L_0247

  5787  SW(14):                                ! STRETCH INTEGER
36290 @ 303192:                     LINE   5787 "regression-compile-tmp/imp918s.imp"
36291 @ 303230:                     PUSHI  #0x0000000e
36292 @ 303235:                     SLABEL 582

  5788  SW(28):                                ! FLOAT REAL
36293 @ 303238:                     LINE   5788 "regression-compile-tmp/imp918s.imp"
36294 @ 303276:                     PUSHI  #0x0000001c
36295 @ 303281:                     SLABEL 582

  5789           ABORT
36296 @ 303284:                     LINE   5789 "regression-compile-tmp/imp918s.imp"
36297 @ 303322:                     PUSH   ABORT
36298 @ 303325:                     CALL  

  5790  SW(15):                                ! ADD
36299 @ 303326:                     LINE   5790 "regression-compile-tmp/imp918s.imp"
36300 @ 303364:                     PUSHI  #0x0000000f
36301 @ 303369:                     SLABEL 582

  5791           VAL1=VAL1+VAL2; -> INT END
36302 @ 303372:                     LINE   5791 "regression-compile-tmp/imp918s.imp"
36303 @ 303410:                     PUSH   VAL1
36304 @ 303413:                     PUSH   VAL1
36305 @ 303416:                     PUSH   VAL2
36306 @ 303419:                     ADD   
36307 @ 303420:                     ASSVAL
36308 @ 303421:                     LINE   5791 "regression-compile-tmp/imp918s.imp"
36309 @ 303459:                     JUMP   L_0248

  5792  SW(16):                                ! MINUS
36310 @ 303462:                     LINE   5792 "regression-compile-tmp/imp918s.imp"
36311 @ 303500:                     PUSHI  #0x00000010
36312 @ 303505:                     SLABEL 582

  5793           VAL1=VAL1-VAL2; -> INT END
36313 @ 303508:                     LINE   5793 "regression-compile-tmp/imp918s.imp"
36314 @ 303546:                     PUSH   VAL1
36315 @ 303549:                     PUSH   VAL1
36316 @ 303552:                     PUSH   VAL2
36317 @ 303555:                     SUB   
36318 @ 303556:                     ASSVAL
36319 @ 303557:                     LINE   5793 "regression-compile-tmp/imp918s.imp"
36320 @ 303595:                     JUMP   L_0248

  5794  SW(17):                                ! EXCLUSIVE OR
36321 @ 303598:                     LINE   5794 "regression-compile-tmp/imp918s.imp"
36322 @ 303636:                     PUSHI  #0x00000011
36323 @ 303641:                     SLABEL 582

  5795           VAL1=VAL1!!VAL2; -> INT END
36324 @ 303644:                     LINE   5795 "regression-compile-tmp/imp918s.imp"
36325 @ 303682:                     PUSH   VAL1
36326 @ 303685:                     PUSH   VAL1
36327 @ 303688:                     PUSH   VAL2
36328 @ 303691:                     XOR   
36329 @ 303692:                     ASSVAL
36330 @ 303693:                     LINE   5795 "regression-compile-tmp/imp918s.imp"
36331 @ 303731:                     JUMP   L_0248

  5796  SW(18):                                ! OR
36332 @ 303734:                     LINE   5796 "regression-compile-tmp/imp918s.imp"
36333 @ 303772:                     PUSHI  #0x00000012
36334 @ 303777:                     SLABEL 582

  5797           VAL1=VAL1!VAL2; -> INT END
36335 @ 303780:                     LINE   5797 "regression-compile-tmp/imp918s.imp"
36336 @ 303818:                     PUSH   VAL1
36337 @ 303821:                     PUSH   VAL1
36338 @ 303824:                     PUSH   VAL2
36339 @ 303827:                     OR    
36340 @ 303828:                     ASSVAL
36341 @ 303829:                     LINE   5797 "regression-compile-tmp/imp918s.imp"
36342 @ 303867:                     JUMP   L_0248

  5798  SW(19):                                ! MULT
36343 @ 303870:                     LINE   5798 "regression-compile-tmp/imp918s.imp"
36344 @ 303908:                     PUSHI  #0x00000013
36345 @ 303913:                     SLABEL 582

  5799           VAL1=VAL1*VAL2; -> INT END
36346 @ 303916:                     LINE   5799 "regression-compile-tmp/imp918s.imp"
36347 @ 303954:                     PUSH   VAL1
36348 @ 303957:                     PUSH   VAL1
36349 @ 303960:                     PUSH   VAL2
36350 @ 303963:                     MUL   
36351 @ 303964:                     ASSVAL
36352 @ 303965:                     LINE   5799 "regression-compile-tmp/imp918s.imp"
36353 @ 304003:                     JUMP   L_0248

  5800  SW(21):  ->Label99;                           ! / DIVISION
36354 @ 304006:                     LINE   5800 "regression-compile-tmp/imp918s.imp"
36355 @ 304044:                     PUSHI  #0x00000015
36356 @ 304049:                     SLABEL 582
36357 @ 304052:                     LINE   5800 "regression-compile-tmp/imp918s.imp"
36358 @ 304090:                     JUMP   L_0247

  5801  SW(20):  ->Label99 %IF VAL2=0;              ! // DIVISION
36359 @ 304093:                     LINE   5801 "regression-compile-tmp/imp918s.imp"
36360 @ 304131:                     PUSHI  #0x00000014
36361 @ 304136:                     SLABEL 582
36362 @ 304139:                     LINE   5801 "regression-compile-tmp/imp918s.imp"
36363 @ 304177:                     PUSH   VAL2
36364 @ 304180:                     PUSHI  #0x00000000
36365 @ 304185:                     JUMPIF # L_0004
36366 @ 304189:                     JUMP   L_0247
36367 @ 304192:                     LOCATE L_0004

  5802           VAL1=VAL1//VAL2; -> INT END
36368 @ 304195:                     LINE   5802 "regression-compile-tmp/imp918s.imp"
36369 @ 304233:                     PUSH   VAL1
36370 @ 304236:                     PUSH   VAL1
36371 @ 304239:                     PUSH   VAL2
36372 @ 304242:                     QUOT  
36373 @ 304243:                     ASSVAL
36374 @ 304244:                     LINE   5802 "regression-compile-tmp/imp918s.imp"
36375 @ 304282:                     JUMP   L_0248

  5803  SW(22):                                ! AND
36376 @ 304285:                     LINE   5803 "regression-compile-tmp/imp918s.imp"
36377 @ 304323:                     PUSHI  #0x00000016
36378 @ 304328:                     SLABEL 582

  5804           VAL1=VAL1&VAL2; -> INT END
36379 @ 304331:                     LINE   5804 "regression-compile-tmp/imp918s.imp"
36380 @ 304369:                     PUSH   VAL1
36381 @ 304372:                     PUSH   VAL1
36382 @ 304375:                     PUSH   VAL2
36383 @ 304378:                     AND   
36384 @ 304379:                     ASSVAL
36385 @ 304380:                     LINE   5804 "regression-compile-tmp/imp918s.imp"
36386 @ 304418:                     JUMP   L_0248

  5805  SW(24):                                ! SLL
36387 @ 304421:                     LINE   5805 "regression-compile-tmp/imp918s.imp"
36388 @ 304459:                     PUSHI  #0x00000018
36389 @ 304464:                     SLABEL 582

  5806           VAL1=VAL1<<VAL2; -> INT END
36390 @ 304467:                     LINE   5806 "regression-compile-tmp/imp918s.imp"
36391 @ 304505:                     PUSH   VAL1
36392 @ 304508:                     PUSH   VAL1
36393 @ 304511:                     PUSH   VAL2
36394 @ 304514:                     LSH   
36395 @ 304515:                     ASSVAL
36396 @ 304516:                     LINE   5806 "regression-compile-tmp/imp918s.imp"
36397 @ 304554:                     JUMP   L_0248

  5807  SW(23):                                ! SRL
36398 @ 304557:                     LINE   5807 "regression-compile-tmp/imp918s.imp"
36399 @ 304595:                     PUSHI  #0x00000017
36400 @ 304600:                     SLABEL 582

  5808           VAL1=VAL1>>VAL2; -> INT END
36401 @ 304603:                     LINE   5808 "regression-compile-tmp/imp918s.imp"
36402 @ 304641:                     PUSH   VAL1
36403 @ 304644:                     PUSH   VAL1
36404 @ 304647:                     PUSH   VAL2
36405 @ 304650:                     RSH   
36406 @ 304651:                     ASSVAL
36407 @ 304652:                     LINE   5808 "regression-compile-tmp/imp918s.imp"
36408 @ 304690:                     JUMP   L_0248

  5809  SW(27):                                ! NEGATE
36409 @ 304693:                     LINE   5809 "regression-compile-tmp/imp918s.imp"
36410 @ 304731:                     PUSHI  #0x0000001b
36411 @ 304736:                     SLABEL 582

  5810           RVAL1=-RVAL1; -> REAL END
36412 @ 304739:                     LINE   5810 "regression-compile-tmp/imp918s.imp"
36413 @ 304777:                     PUSH   RVAL1
36414 @ 304780:                     PUSH   RVAL1
36415 @ 304783:                     NEGATE
36416 @ 304784:                     ASSVAL
36417 @ 304785:                     LINE   5810 "regression-compile-tmp/imp918s.imp"
36418 @ 304823:                     JUMP   L_0249

  5811  SW(29):                                ! ABS
36419 @ 304826:                     LINE   5811 "regression-compile-tmp/imp918s.imp"
36420 @ 304864:                     PUSHI  #0x0000001d
36421 @ 304869:                     SLABEL 582

  5812           RVAL1=|RVAL1|; -> REAL END
36422 @ 304872:                     LINE   5812 "regression-compile-tmp/imp918s.imp"
36423 @ 304910:                     PUSH   RVAL1
36424 @ 304913:                     PUSH   RVAL1
36425 @ 304916:                     MOD   
36426 @ 304917:                     ASSVAL
36427 @ 304918:                     LINE   5812 "regression-compile-tmp/imp918s.imp"
36428 @ 304956:                     JUMP   L_0249

  5813  SW(31):                                ! ADD
36429 @ 304959:                     LINE   5813 "regression-compile-tmp/imp918s.imp"
36430 @ 304997:                     PUSHI  #0x0000001f
36431 @ 305002:                     SLABEL 582

  5814           RVAL1=RVAL1+RVAL2; -> REAL END
36432 @ 305005:                     LINE   5814 "regression-compile-tmp/imp918s.imp"
36433 @ 305043:                     PUSH   RVAL1
36434 @ 305046:                     PUSH   RVAL1
36435 @ 305049:                     PUSH   RVAL2
36436 @ 305052:                     ADD   
36437 @ 305053:                     ASSVAL
36438 @ 305054:                     LINE   5814 "regression-compile-tmp/imp918s.imp"
36439 @ 305092:                     JUMP   L_0249

  5815  SW(32):                                ! SUBTRACT
36440 @ 305095:                     LINE   5815 "regression-compile-tmp/imp918s.imp"
36441 @ 305133:                     PUSHI  #0x00000020
36442 @ 305138:                     SLABEL 582

  5816           RVAL1=RVAL1-RVAL2; -> REAL END
36443 @ 305141:                     LINE   5816 "regression-compile-tmp/imp918s.imp"
36444 @ 305179:                     PUSH   RVAL1
36445 @ 305182:                     PUSH   RVAL1
36446 @ 305185:                     PUSH   RVAL2
36447 @ 305188:                     SUB   
36448 @ 305189:                     ASSVAL
36449 @ 305190:                     LINE   5816 "regression-compile-tmp/imp918s.imp"
36450 @ 305228:                     JUMP   L_0249

  5817  SW(35):                                ! MULT
36451 @ 305231:                     LINE   5817 "regression-compile-tmp/imp918s.imp"
36452 @ 305269:                     PUSHI  #0x00000023
36453 @ 305274:                     SLABEL 582

  5818           RVAL1=RVAL1*RVAL2; -> REAL END
36454 @ 305277:                     LINE   5818 "regression-compile-tmp/imp918s.imp"
36455 @ 305315:                     PUSH   RVAL1
36456 @ 305318:                     PUSH   RVAL1
36457 @ 305321:                     PUSH   RVAL2
36458 @ 305324:                     MUL   
36459 @ 305325:                     ASSVAL
36460 @ 305326:                     LINE   5818 "regression-compile-tmp/imp918s.imp"
36461 @ 305364:                     JUMP   L_0249

  5819  SW(37):                                ! DIVISION
36462 @ 305367:                     LINE   5819 "regression-compile-tmp/imp918s.imp"
36463 @ 305405:                     PUSHI  #0x00000025
36464 @ 305410:                     SLABEL 582

  5820           ->Label99 %IF RVAL2=0;             ! AVOID DIV BY ZERO
36465 @ 305413:                     LINE   5820 "regression-compile-tmp/imp918s.imp"
36466 @ 305451:                     PUSH   RVAL2
36467 @ 305454:                     PUSHI  #0x00000000
36468 @ 305459:                     JUMPIF # L_0004
36469 @ 305463:                     JUMP   L_0247
36470 @ 305466:                     LOCATE L_0004

  5821           RVAL1=RVAL1/RVAL2; -> REAL END
36471 @ 305469:                     LINE   5821 "regression-compile-tmp/imp918s.imp"
36472 @ 305507:                     PUSH   RVAL1
36473 @ 305510:                     PUSH   RVAL1
36474 @ 305513:                     PUSH   RVAL2
36475 @ 305516:                     DIVIDE
36476 @ 305517:                     ASSVAL
36477 @ 305518:                     LINE   5821 "regression-compile-tmp/imp918s.imp"
36478 @ 305556:                     JUMP   L_0249

  5822  SW(41):                                ! EXP
36479 @ 305559:                     LINE   5822 "regression-compile-tmp/imp918s.imp"
36480 @ 305597:                     PUSHI  #0x00000029
36481 @ 305602:                     SLABEL 582

  5823           %IF OPND2_FLAG#0 %THEN  ->Label99
36482 @ 305605:                     LINE   5823 "regression-compile-tmp/imp918s.imp"
36483 @ 305643:                     PUSH   OPND2
36484 @ 305646:                     SELECT 3
36485 @ 305649:                     PUSHI  #0x00000000
36486 @ 305654:                     JUMPIF = L_0004
36487 @ 305658:                     JUMP   L_0247
36488 @ 305661:                     LOCATE L_0004

  5824           RVAL1=RVAL1^OPND2_D; -> REAL END
36489 @ 305664:                     LINE   5824 "regression-compile-tmp/imp918s.imp"
36490 @ 305702:                     PUSH   RVAL1
36491 @ 305705:                     PUSH   RVAL1
36492 @ 305708:                     PUSH   OPND2
36493 @ 305711:                     SELECT 4
36494 @ 305714:                     REXP  
36495 @ 305715:                     ASSVAL
36496 @ 305716:                     LINE   5824 "regression-compile-tmp/imp918s.imp"
36497 @ 305754:                     JUMP   L_0249

  5825  SW(25):SW(26):SW(33):SW(34):
36498 @ 305757:                     LINE   5825 "regression-compile-tmp/imp918s.imp"
36499 @ 305795:                     PUSHI  #0x00000019
36500 @ 305800:                     SLABEL 582
36501 @ 305803:                     LINE   5825 "regression-compile-tmp/imp918s.imp"
36502 @ 305841:                     PUSHI  #0x0000001a
36503 @ 305846:                     SLABEL 582
36504 @ 305849:                     LINE   5825 "regression-compile-tmp/imp918s.imp"
36505 @ 305887:                     PUSHI  #0x00000021
36506 @ 305892:                     SLABEL 582
36507 @ 305895:                     LINE   5825 "regression-compile-tmp/imp918s.imp"
36508 @ 305933:                     PUSHI  #0x00000022
36509 @ 305938:                     SLABEL 582

  5826  SW(36):SW(38):SW(39):SW(40):
36510 @ 305941:                     LINE   5826 "regression-compile-tmp/imp918s.imp"
36511 @ 305979:                     PUSHI  #0x00000024
36512 @ 305984:                     SLABEL 582
36513 @ 305987:                     LINE   5826 "regression-compile-tmp/imp918s.imp"
36514 @ 306025:                     PUSHI  #0x00000026
36515 @ 306030:                     SLABEL 582
36516 @ 306033:                     LINE   5826 "regression-compile-tmp/imp918s.imp"
36517 @ 306071:                     PUSHI  #0x00000027
36518 @ 306076:                     SLABEL 582
36519 @ 306079:                     LINE   5826 "regression-compile-tmp/imp918s.imp"
36520 @ 306117:                     PUSHI  #0x00000028
36521 @ 306122:                     SLABEL 582

  5827  Label99:      %END
36522 @ 306125:                     LINE   5827 "regression-compile-tmp/imp918s.imp"
36523 @ 306163:                     LABEL  L_0247
36524 @ 306166:                     LINE   5827 "regression-compile-tmp/imp918s.imp"
36525 @ 306204:                  END    _lev0id0_CSS_EXPOP_CTOP {lev=4 --> 3}

  5828           %ROUTINE FLOAT
  5829           {%SHORTROUTINE}
  5830  !***********************************************************************
  5831  !*       PLANT CODE TO CONERT OPERAND1 FROM FIXED TO FLOATING          *
  5832  !***********************************************************************
36526 @ 306205:                  LINE   5828 "regression-compile-tmp/imp918s.imp"
36527 @ 306243:                  DEF    FLOAT (_lev0id0_CSS_EXPOP_FLOAT) p1=V_021b 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
36528 @ 306260:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
36529 @ 306261:                     FINISH ) {lev=4}

  5833           %INTEGER P1,P2,K
36530 @ 306262:                     LINE   5833 "regression-compile-tmp/imp918s.imp"
36531 @ 306300:                     DEF    P1 p1=V_023d 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
36532 @ 306314:                     DEF    P2 p1=V_023e 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
36533 @ 306328:                     DEF    K p1=V_023f 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

  5834           P1=OPND1_XB; ; P2=(P1+1)&15
36534 @ 306341:                     LINE   5834 "regression-compile-tmp/imp918s.imp"
36535 @ 306379:                     PUSH   P1
36536 @ 306382:                     PUSH   OPND1
36537 @ 306385:                     SELECT 2
36538 @ 306388:                     ASSVAL
36539 @ 306389:                     LINE   5834 "regression-compile-tmp/imp918s.imp"
36540 @ 306427:                     PUSH   P2
36541 @ 306430:                     PUSH   P1
36542 @ 306433:                     PUSHI  #0x00000001
36543 @ 306438:                     ADD   
36544 @ 306439:                     PUSHI  #0x0000000f
36545 @ 306444:                     AND   
36546 @ 306445:                     ASSVAL

  5835           %UNLESS OPND1_FLAG=9 %AND OPND1_D<0 %AND %C
  5836              REGISTER(P1)>=0=REGISTER(P2) %AND GRUSE(P2)>1 %START
36547 @ 306446:                     LINE   5835 "regression-compile-tmp/imp918s.imp"
36548 @ 306484:                     PUSH   OPND1
36549 @ 306487:                     SELECT 3
36550 @ 306490:                     PUSHI  #0x00000009
36551 @ 306495:                     JUMPIF # L_0005
36552 @ 306499:                     PUSH   OPND1
36553 @ 306502:                     SELECT 4
36554 @ 306505:                     PUSHI  #0x00000000
36555 @ 306510:                     JUMPIF >= L_0005
36556 @ 306514:                     PUSH   REGISTER
36557 @ 306517:                     PUSH   P1
36558 @ 306520:                     ACCESS
36559 @ 306521:                     PUSHI  #0x00000000
36560 @ 306526:                     JUMPIFD < L_0005
36561 @ 306530:                     PUSH   REGISTER
36562 @ 306533:                     PUSH   P2
36563 @ 306536:                     ACCESS
36564 @ 306537:                     JUMPIF # L_0005
36565 @ 306541:                     PUSH   GRUSE
36566 @ 306544:                     PUSH   P2
36567 @ 306547:                     ACCESS
36568 @ 306548:                     PUSHI  #0x00000001
36569 @ 306553:                     JUMPIF > L_0004
36570 @ 306557:                     LOCATE L_0005

  5837              FIND SEQ(P1,P2)
36571 @ 306560:                     LINE   5837 "regression-compile-tmp/imp918s.imp"
36572 @ 306598:                     PUSH   FINDSEQ
36573 @ 306601:                     PUSH   P1
36574 @ 306604:                     ASSPAR
36575 @ 306605:                     PUSH   P2
36576 @ 306608:                     ASSPAR
36577 @ 306609:                     CALL  

  5838              LOAD(OPND1,P1,2)
36578 @ 306610:                     LINE   5838 "regression-compile-tmp/imp918s.imp"
36579 @ 306648:                     PUSH   LOAD
36580 @ 306651:                     PUSH   OPND1
36581 @ 306654:                     ASSPAR
36582 @ 306655:                     PUSH   P1
36583 @ 306658:                     ASSPAR
36584 @ 306659:                     PUSHI  #0x00000002
36585 @ 306664:                     ASSPAR
36586 @ 306665:                     CALL  

  5839           %FINISH
36587 @ 306666:                     LINE   5839 "regression-compile-tmp/imp918s.imp"
36588 @ 306704:                     LOCATE L_0004

  5840           PRR(X'10',P2,P1);             ! LPR P2,P1
36589 @ 306707:                     LINE   5840 "regression-compile-tmp/imp918s.imp"
36590 @ 306745:                     PUSH   PRR
36591 @ 306748:                     PUSHI  #0x00000010
36592 @ 306753:                     ASSPAR
36593 @ 306754:                     PUSH   P2
36594 @ 306757:                     ASSPAR
36595 @ 306758:                     PUSH   P1
36596 @ 306761:                     ASSPAR
36597 @ 306762:                     CALL  

  5841           PRX(X'54',P1,CODER,0,X'E0');  ! N P1,=X'80000000'
36598 @ 306763:                     LINE   5841 "regression-compile-tmp/imp918s.imp"
36599 @ 306801:                     PUSH   PRX
36600 @ 306804:                     PUSHI  #0x00000054
36601 @ 306809:                     ASSPAR
36602 @ 306810:                     PUSH   P1
36603 @ 306813:                     ASSPAR
36604 @ 306814:                     PUSHI  #0x0000000c
36605 @ 306819:                     ASSPAR
36606 @ 306820:                     PUSHI  #0x00000000
36607 @ 306825:                     ASSPAR
36608 @ 306826:                     PUSHI  #0x000000e0
36609 @ 306831:                     ASSPAR
36610 @ 306832:                     CALL  

  5842           PRX(X'56',P1,CODER,0,X'D0');  ! O P1,=X'4E000000'
36611 @ 306833:                     LINE   5842 "regression-compile-tmp/imp918s.imp"
36612 @ 306871:                     PUSH   PRX
36613 @ 306874:                     PUSHI  #0x00000056
36614 @ 306879:                     ASSPAR
36615 @ 306880:                     PUSH   P1
36616 @ 306883:                     ASSPAR
36617 @ 306884:                     PUSHI  #0x0000000c
36618 @ 306889:                     ASSPAR
36619 @ 306890:                     PUSHI  #0x00000000
36620 @ 306895:                     ASSPAR
36621 @ 306896:                     PUSHI  #0x000000d0
36622 @ 306901:                     ASSPAR
36623 @ 306902:                     CALL  

  5843           PRX(X'90',P1,P2,WSPR,0);      ! STM P1,P2,0(11)
36624 @ 306903:                     LINE   5843 "regression-compile-tmp/imp918s.imp"
36625 @ 306941:                     PUSH   PRX
36626 @ 306944:                     PUSHI  #0x00000090
36627 @ 306949:                     ASSPAR
36628 @ 306950:                     PUSH   P1
36629 @ 306953:                     ASSPAR
36630 @ 306954:                     PUSH   P2
36631 @ 306957:                     ASSPAR
36632 @ 306958:                     PUSHI  #0x0000000b
36633 @ 306963:                     ASSPAR
36634 @ 306964:                     PUSHI  #0x00000000
36635 @ 306969:                     ASSPAR
36636 @ 306970:                     CALL  

  5844           CLAIM (FR0,K); D=K
36637 @ 306971:                     LINE   5844 "regression-compile-tmp/imp918s.imp"
36638 @ 307009:                     PUSH   CLAIM
36639 @ 307012:                     PUSHI  #0xfffe1610
36640 @ 307017:                     ASSPAR
36641 @ 307018:                     PUSH   K
36642 @ 307021:                     ASSPAR
36643 @ 307022:                     CALL  
36644 @ 307023:                     LINE   5844 "regression-compile-tmp/imp918s.imp"
36645 @ 307061:                     PUSH   D
36646 @ 307064:                     PUSH   K
36647 @ 307067:                     ASSVAL

  5845           PRR(X'2B',K,K);               ! SDR K,K
36648 @ 307068:                     LINE   5845 "regression-compile-tmp/imp918s.imp"
36649 @ 307106:                     PUSH   PRR
36650 @ 307109:                     PUSHI  #0x0000002b
36651 @ 307114:                     ASSPAR
36652 @ 307115:                     PUSH   K
36653 @ 307118:                     ASSPAR
36654 @ 307119:                     PUSH   K
36655 @ 307122:                     ASSPAR
36656 @ 307123:                     CALL  

  5846           PRX(X'6A',K,0,11,0);          ! AD K,0(11)
36657 @ 307124:                     LINE   5846 "regression-compile-tmp/imp918s.imp"
36658 @ 307162:                     PUSH   PRX
36659 @ 307165:                     PUSHI  #0x0000006a
36660 @ 307170:                     ASSPAR
36661 @ 307171:                     PUSH   K
36662 @ 307174:                     ASSPAR
36663 @ 307175:                     PUSHI  #0x00000000
36664 @ 307180:                     ASSPAR
36665 @ 307181:                     PUSHI  #0x0000000b
36666 @ 307186:                     ASSPAR
36667 @ 307187:                     PUSHI  #0x00000000
36668 @ 307192:                     ASSPAR
36669 @ 307193:                     CALL  

  5847           FREE AND FORGET(P1)
36670 @ 307194:                     LINE   5847 "regression-compile-tmp/imp918s.imp"
36671 @ 307232:                     PUSH   FREEANDFORGET
36672 @ 307235:                     PUSH   P1
36673 @ 307238:                     ASSPAR
36674 @ 307239:                     CALL  

  5848           FORGET(P2)
36675 @ 307240:                     LINE   5848 "regression-compile-tmp/imp918s.imp"
36676 @ 307278:                     PUSH   FORGET
36677 @ 307281:                     PUSH   P2
36678 @ 307284:                     ASSPAR
36679 @ 307285:                     CALL  

  5849           CYC BITS=CYC BITS!16;         ! USES PERMS CONSTANTS
36680 @ 307286:                     LINE   5849 "regression-compile-tmp/imp918s.imp"
36681 @ 307324:                     PUSH   CYCBITS
36682 @ 307327:                     PUSH   CYCBITS
36683 @ 307330:                     PUSHI  #0x00000010
36684 @ 307335:                     OR    
36685 @ 307336:                     ASSVAL

  5850           CCSTATE=-1
36686 @ 307337:                     LINE   5850 "regression-compile-tmp/imp918s.imp"
36687 @ 307375:                     PUSH   CCSTATE
36688 @ 307378:                     PUSHI  #0x00000001
36689 @ 307383:                     NEGATE
36690 @ 307384:                     ASSVAL

  5851           %END
36691 @ 307385:                     LINE   5851 "regression-compile-tmp/imp918s.imp"
36692 @ 307423:                  END    _lev0id0_CSS_EXPOP_FLOAT {lev=4 --> 3}

  5852           %ROUTINE STARSTAR
  5853           {%SHORTROUTINE}
  5854  !***********************************************************************
  5855  !*       PLANT IN-LINE CODE FOR EXPONENTIATION                         *
  5856  
  5857  !*       IMP ALLOWS EXPONENTS IN INTEGER EXPRESSIONS FROM 0-63 AND     *
  5858  !*       IN REAL EXPRESSIONS FROM-255 TO +255                          *
  5859  !***********************************************************************
36693 @ 307424:                  LINE   5852 "regression-compile-tmp/imp918s.imp"
36694 @ 307462:                  DEF    STARSTAR (_lev0id0_CSS_EXPOP_STARSTAR) p1=V_0221 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
36695 @ 307482:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
36696 @ 307483:                     FINISH ) {lev=4}

  5860           %INTEGER TYPEP,PRECP,COUNT,WORK,C,RREG,INTREG
36697 @ 307484:                     LINE   5860 "regression-compile-tmp/imp918s.imp"
36698 @ 307522:                     DEF    TYPEP p1=V_023d 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
36699 @ 307539:                     DEF    PRECP p1=V_023e 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
36700 @ 307556:                     DEF    COUNT p1=V_023f 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
36701 @ 307573:                     DEF    WORK p1=V_0240 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
36702 @ 307589:                     DEF    C p1=V_0241 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
36703 @ 307602:                     DEF    RREG p1=V_0242 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
36704 @ 307618:                     DEF    INTREG p1=V_0243 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

  5861           %BYTEINTEGER VALUE
36705 @ 307636:                     LINE   5861 "regression-compile-tmp/imp918s.imp"
36706 @ 307674:                     DEF    VALUE p1=V_0244 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0

  5862           PTYPE=OPND1_PTYPE;            ! INSPECT THE OPERAND
  5863          ! UNPACK
  5864  !%if USE MC = 1 %start
  5865  !            *L_1,PTYPE; *CVD_1,0(11)
  5866  !            *UNPK_ROUT(5),5(3,11)
  5867  !            *NC_ROUT(5),MASK1
  5868  !%finish
36707 @ 307691:                     LINE   5862 "regression-compile-tmp/imp918s.imp"
36708 @ 307729:                     PUSH   PTYPE
36709 @ 307732:                     PUSH   OPND1
36710 @ 307735:                     SELECT 1
36711 @ 307738:                     ASSVAL

  5869           %IF TYPE=1 %THEN WARN(LINE)
36712 @ 307739:                     LINE   5869 "regression-compile-tmp/imp918s.imp"
36713 @ 307777:                     PUSH   TYPE
36714 @ 307780:                     PUSHI  #0x00000001
36715 @ 307785:                     JUMPIF # L_0004
36716 @ 307789:                     PUSH   WARN
36717 @ 307792:                     PUSH   LINE
36718 @ 307795:                     ASSPAR
36719 @ 307796:                     CALL  
36720 @ 307797:                     LOCATE L_0004

  5870           TYPEP=TYPE
36721 @ 307800:                     LINE   5870 "regression-compile-tmp/imp918s.imp"
36722 @ 307838:                     PUSH   TYPEP
36723 @ 307841:                     PUSH   TYPE
36724 @ 307844:                     ASSVAL

  5871           %IF PREC&3=3 %THEN PRECP=16 %ELSE PRECP=0
36725 @ 307845:                     LINE   5871 "regression-compile-tmp/imp918s.imp"
36726 @ 307883:                     PUSH   PREC
36727 @ 307886:                     PUSHI  #0x00000003
36728 @ 307891:                     AND   
36729 @ 307892:                     PUSHI  #0x00000003
36730 @ 307897:                     JUMPIF # L_0004
36731 @ 307901:                     PUSH   PRECP
36732 @ 307904:                     PUSHI  #0x00000010
36733 @ 307909:                     ASSVAL
36734 @ 307910:                     GOTO   L_0003
36735 @ 307913:                     LOCATE L_0004
36736 @ 307916:                     PUSH   PRECP
36737 @ 307919:                     PUSHI  #0x00000000
36738 @ 307924:                     ASSVAL
36739 @ 307925:                     LOCATE L_0003

  5872           VALUE=0
36740 @ 307928:                     LINE   5872 "regression-compile-tmp/imp918s.imp"
36741 @ 307966:                     PUSH   VALUE
36742 @ 307969:                     PUSHI  #0x00000000
36743 @ 307974:                     ASSVAL

  5873           %IF OPND2_FLAG=0 %AND 1<=OPND2_D<=63*TYPE %THEN %START
36744 @ 307975:                     LINE   5873 "regression-compile-tmp/imp918s.imp"
36745 @ 308013:                     PUSH   OPND2
36746 @ 308016:                     SELECT 3
36747 @ 308019:                     PUSHI  #0x00000000
36748 @ 308024:                     JUMPIF # L_0004
36749 @ 308028:                     PUSHI  #0x00000001
36750 @ 308033:                     PUSH   OPND2
36751 @ 308036:                     SELECT 4
36752 @ 308039:                     JUMPIFD > L_0004
36753 @ 308043:                     PUSHI  #0x0000003f
36754 @ 308048:                     PUSH   TYPE
36755 @ 308051:                     MUL   
36756 @ 308052:                     JUMPIF > L_0004

  5874              VALUE=OPND2_D;             ! EXPONENT IS #0 AND CONSTANT
36757 @ 308056:                     LINE   5874 "regression-compile-tmp/imp918s.imp"
36758 @ 308094:                     PUSH   VALUE
36759 @ 308097:                     PUSH   OPND2
36760 @ 308100:                     SELECT 4
36761 @ 308103:                     ASSVAL

  5875           %FINISH
  5876  !
  5877  ! MUST TEST BOTH OPERANDS BEFORE CLAIMING WORK REGS IN CASE EITHER OR
  5878  ! BOTH ARE FNS AND WE ARE SHORT OF REGS SO THAT THE WORK REGS WILL
  5879  ! NOT SURVIVE A FN CALL
  5880  !
36762 @ 308104:                     LINE   5875 "regression-compile-tmp/imp918s.imp"
36763 @ 308142:                     LOCATE L_0004

  5881           LOAD(OPND1,-1,0);                 ! INSPECT OPERAND CALL FNS
36764 @ 308145:                     LINE   5881 "regression-compile-tmp/imp918s.imp"
36765 @ 308183:                     PUSH   LOAD
36766 @ 308186:                     PUSH   OPND1
36767 @ 308189:                     ASSPAR
36768 @ 308190:                     PUSHI  #0x00000001
36769 @ 308195:                     NEGATE
36770 @ 308196:                     ASSPAR
36771 @ 308197:                     PUSHI  #0x00000000
36772 @ 308202:                     ASSPAR
36773 @ 308203:                     CALL  

  5882           LOAD(OPND2,-1,0);                 ! INSPECT EXPNT & CALL IF FN
36774 @ 308204:                     LINE   5882 "regression-compile-tmp/imp918s.imp"
36775 @ 308242:                     PUSH   LOAD
36776 @ 308245:                     PUSH   OPND2
36777 @ 308248:                     ASSPAR
36778 @ 308249:                     PUSHI  #0x00000001
36779 @ 308254:                     NEGATE
36780 @ 308255:                     ASSPAR
36781 @ 308256:                     PUSHI  #0x00000000
36782 @ 308261:                     ASSPAR
36783 @ 308262:                     CALL  

  5883           %IF TYPEP=1 %THEN CLAIM PAIR(WORK) %ELSE CLAIM (FR0,WORK)
36784 @ 308263:                     LINE   5883 "regression-compile-tmp/imp918s.imp"
36785 @ 308301:                     PUSH   TYPEP
36786 @ 308304:                     PUSHI  #0x00000001
36787 @ 308309:                     JUMPIF # L_0004
36788 @ 308313:                     PUSH   CLAIMPAIR
36789 @ 308316:                     PUSH   WORK
36790 @ 308319:                     ASSPAR
36791 @ 308320:                     CALL  
36792 @ 308321:                     GOTO   L_0003
36793 @ 308324:                     LOCATE L_0004
36794 @ 308327:                     PUSH   CLAIM
36795 @ 308330:                     PUSHI  #0xfffe1610
36796 @ 308335:                     ASSPAR
36797 @ 308336:                     PUSH   WORK
36798 @ 308339:                     ASSPAR
36799 @ 308340:                     CALL  
36800 @ 308341:                     LOCATE L_0003

  5884           %IF VALUE#2 %THEN %START;         ! TREAT **2 SPECIALLY
36801 @ 308344:                     LINE   5884 "regression-compile-tmp/imp918s.imp"
36802 @ 308382:                     PUSH   VALUE
36803 @ 308385:                     PUSHI  #0x00000002
36804 @ 308390:                     JUMPIF = L_0004

  5885              LOAD(OPND1,-1,2);              ! LOAD OPERAND TO ANY REGISTER
36805 @ 308394:                     LINE   5885 "regression-compile-tmp/imp918s.imp"
36806 @ 308432:                     PUSH   LOAD
36807 @ 308435:                     PUSH   OPND1
36808 @ 308438:                     ASSPAR
36809 @ 308439:                     PUSHI  #0x00000001
36810 @ 308444:                     NEGATE
36811 @ 308445:                     ASSPAR
36812 @ 308446:                     PUSHI  #0x00000002
36813 @ 308451:                     ASSPAR
36814 @ 308452:                     CALL  

  5886           %FINISH
  5887  !
  5888  ! IF EITHER OPERAND IS A FN IT HAS BEEN FETCHED TO A REGISTER
  5889  ! SO NOW REGISTERS CAN BE OBTAINED FOR THE IN-LINE SUBROUTINE
  5890  !     WORK HOLDS INITIALLY 1 PRIOR TO MULTIPLICATION
  5891  !     INTREG  HOLDS THE EXPONENT AS CALCULATED
  5892  !     COUNT HOLDS A +VE VERSION OF INTREG FOR COUNTING THE MULTIPLIES
  5893  !     RREG HOLD THE OPERAND.
  5894  !     COUNT & INTREG CAN BE THE SAME REGISTER IF EXPONENT IS +VE
  5895  !
36815 @ 308453:                     LINE   5886 "regression-compile-tmp/imp918s.imp"
36816 @ 308491:                     LOCATE L_0004

  5896           PLABEL=PLABEL-1;              ! LABEL FOR REPITITION
36817 @ 308494:                     LINE   5896 "regression-compile-tmp/imp918s.imp"
36818 @ 308532:                     PUSH   PLABEL
36819 @ 308535:                     PUSH   PLABEL
36820 @ 308538:                     PUSHI  #0x00000001
36821 @ 308543:                     SUB   
36822 @ 308544:                     ASSVAL

  5897           %IF VALUE=2 %THEN %START;     ! TRANSPOSE X**2 TO X*X
36823 @ 308545:                     LINE   5897 "regression-compile-tmp/imp918s.imp"
36824 @ 308583:                     PUSH   VALUE
36825 @ 308586:                     PUSHI  #0x00000002
36826 @ 308591:                     JUMPIF # L_0004

  5898              RREG= WORK+2-TYPEP
36827 @ 308595:                     LINE   5898 "regression-compile-tmp/imp918s.imp"
36828 @ 308633:                     PUSH   RREG
36829 @ 308636:                     PUSH   WORK
36830 @ 308639:                     PUSHI  #0x00000002
36831 @ 308644:                     ADD   
36832 @ 308645:                     PUSH   TYPEP
36833 @ 308648:                     SUB   
36834 @ 308649:                     ASSVAL

  5899              LOAD(OPND1,RREG,2);
36835 @ 308650:                     LINE   5899 "regression-compile-tmp/imp918s.imp"
36836 @ 308688:                     PUSH   LOAD
36837 @ 308691:                     PUSH   OPND1
36838 @ 308694:                     ASSPAR
36839 @ 308695:                     PUSH   RREG
36840 @ 308698:                     ASSPAR
36841 @ 308699:                     PUSHI  #0x00000002
36842 @ 308704:                     ASSPAR
36843 @ 308705:                     CALL  

  5900           %FINISH %ELSE %START
36844 @ 308706:                     LINE   5900 "regression-compile-tmp/imp918s.imp"
36845 @ 308744:                     GOTO   L_0003
36846 @ 308747:                     LOCATE L_0004

  5901              LOAD(OPND2,-1,2);              ! EXPONENT TO ANY REGISTER
36847 @ 308750:                     LINE   5901 "regression-compile-tmp/imp918s.imp"
36848 @ 308788:                     PUSH   LOAD
36849 @ 308791:                     PUSH   OPND2
36850 @ 308794:                     ASSPAR
36851 @ 308795:                     PUSHI  #0x00000001
36852 @ 308800:                     NEGATE
36853 @ 308801:                     ASSPAR
36854 @ 308802:                     PUSHI  #0x00000002
36855 @ 308807:                     ASSPAR
36856 @ 308808:                     CALL  

  5902              INTREG=OPND2_XB
36857 @ 308809:                     LINE   5902 "regression-compile-tmp/imp918s.imp"
36858 @ 308847:                     PUSH   INTREG
36859 @ 308850:                     PUSH   OPND2
36860 @ 308853:                     SELECT 2
36861 @ 308856:                     ASSVAL

  5903              RREG=OPND1_XB
36862 @ 308857:                     LINE   5903 "regression-compile-tmp/imp918s.imp"
36863 @ 308895:                     PUSH   RREG
36864 @ 308898:                     PUSH   OPND1
36865 @ 308901:                     SELECT 2
36866 @ 308904:                     ASSVAL

  5904              %IF TYPE=2 %THEN %START;   ! EXPONENT IS REAL **NOT ALLOWED
36867 @ 308905:                     LINE   5904 "regression-compile-tmp/imp918s.imp"
36868 @ 308943:                     PUSH   TYPE
36869 @ 308946:                     PUSHI  #0x00000002
36870 @ 308951:                     JUMPIF # L_0007

  5905                 FAULT(39,0)
36871 @ 308955:                     LINE   5905 "regression-compile-tmp/imp918s.imp"
36872 @ 308993:                     PUSH   FAULT
36873 @ 308996:                     PUSHI  #0x00000027
36874 @ 309001:                     ASSPAR
36875 @ 309002:                     PUSHI  #0x00000000
36876 @ 309007:                     ASSPAR
36877 @ 309008:                     CALL  

  5906                 FREE AND FORGET(INTREG+16)
36878 @ 309009:                     LINE   5906 "regression-compile-tmp/imp918s.imp"
36879 @ 309047:                     PUSH   FREEANDFORGET
36880 @ 309050:                     PUSH   INTREG
36881 @ 309053:                     PUSHI  #0x00000010
36882 @ 309058:                     ADD   
36883 @ 309059:                     ASSPAR
36884 @ 309060:                     CALL  

  5907              %FINISH
36885 @ 309061:                     LINE   5907 "regression-compile-tmp/imp918s.imp"
36886 @ 309099:                     LOCATE L_0007

  5908              COUNT=INTREG
  5909  !
  5910  ! GET '1' INTO WORK IN APPROPIATE FORM
  5911  !
36887 @ 309102:                     LINE   5908 "regression-compile-tmp/imp918s.imp"
36888 @ 309140:                     PUSH   COUNT
36889 @ 309143:                     PUSH   INTREG
36890 @ 309146:                     ASSVAL

  5912              %IF TYPEP=1 %THEN PRX(X'41',WORK+1,0,0,1) %ELSE %C
  5913                 PRX(X'78'-PRECP,WORK,0,CODER,X'C8'); ! LD(E) WORK,=D'1'
  5914  !
  5915  ! IF EXPONENT NOT KNOWN AT COMPILE TIME TO BE +VE CONSTANT MUST
  5916  ! ALLOW FOR ZERO  :- XX**0=1 FOR ALL XX
  5917  ! ALSO ALLOW FOR X**(-N) WHICH IS 1/(X**N) FOR ALL X & N
  5918  !
36891 @ 309147:                     LINE   5912 "regression-compile-tmp/imp918s.imp"
36892 @ 309185:                     PUSH   TYPEP
36893 @ 309188:                     PUSHI  #0x00000001
36894 @ 309193:                     JUMPIF # L_0007
36895 @ 309197:                     PUSH   PRX
36896 @ 309200:                     PUSHI  #0x00000041
36897 @ 309205:                     ASSPAR
36898 @ 309206:                     PUSH   WORK
36899 @ 309209:                     PUSHI  #0x00000001
36900 @ 309214:                     ADD   
36901 @ 309215:                     ASSPAR
36902 @ 309216:                     PUSHI  #0x00000000
36903 @ 309221:                     ASSPAR
36904 @ 309222:                     PUSHI  #0x00000000
36905 @ 309227:                     ASSPAR
36906 @ 309228:                     PUSHI  #0x00000001
36907 @ 309233:                     ASSPAR
36908 @ 309234:                     CALL  
36909 @ 309235:                     GOTO   L_0006
36910 @ 309238:                     LOCATE L_0007
36911 @ 309241:                     PUSH   PRX
36912 @ 309244:                     PUSHI  #0x00000078
36913 @ 309249:                     PUSH   PRECP
36914 @ 309252:                     SUB   
36915 @ 309253:                     ASSPAR
36916 @ 309254:                     PUSH   WORK
36917 @ 309257:                     ASSPAR
36918 @ 309258:                     PUSHI  #0x00000000
36919 @ 309263:                     ASSPAR
36920 @ 309264:                     PUSHI  #0x0000000c
36921 @ 309269:                     ASSPAR
36922 @ 309270:                     PUSHI  #0x000000c8
36923 @ 309275:                     ASSPAR
36924 @ 309276:                     CALL  
36925 @ 309277:                     LOCATE L_0006

  5919              %IF VALUE=0 %THEN %START;          ! NOT +VE CONSTANT
36926 @ 309280:                     LINE   5919 "regression-compile-tmp/imp918s.imp"
36927 @ 309318:                     PUSH   VALUE
36928 @ 309321:                     PUSHI  #0x00000000
36929 @ 309326:                     JUMPIF # L_0007

  5920                 CLAIM (GR1,COUNT) %IF TYPEP=2;  ! NEGATIVE REAL EXPONENTS
36930 @ 309330:                     LINE   5920 "regression-compile-tmp/imp918s.imp"
36931 @ 309368:                     PUSH   TYPEP
36932 @ 309371:                     PUSHI  #0x00000002
36933 @ 309376:                     JUMPIF # L_000a
36934 @ 309380:                     PUSH   CLAIM
36935 @ 309383:                     PUSHI  #0x0001010f
36936 @ 309388:                     ASSPAR
36937 @ 309389:                     PUSH   COUNT
36938 @ 309392:                     ASSPAR
36939 @ 309393:                     CALL  
36940 @ 309394:                     LOCATE L_000a

  5921                 PRR(X'14'-2*TYPEP,COUNT,INTREG);!  LPR OR LTR
36941 @ 309397:                     LINE   5921 "regression-compile-tmp/imp918s.imp"
36942 @ 309435:                     PUSH   PRR
36943 @ 309438:                     PUSHI  #0x00000014
36944 @ 309443:                     PUSHI  #0x00000002
36945 @ 309448:                     PUSH   TYPEP
36946 @ 309451:                     MUL   
36947 @ 309452:                     SUB   
36948 @ 309453:                     ASSPAR
36949 @ 309454:                     PUSH   COUNT
36950 @ 309457:                     ASSPAR
36951 @ 309458:                     PUSH   INTREG
36952 @ 309461:                     ASSPAR
36953 @ 309462:                     CALL  

  5922                 ENTER JUMP(8,PLABEL,B'11');     ! BZ END OF EXP ROUTINE
  5923  !
  5924  ! IN CHECKING MODE PLANT CODE TO CHECK RANGE OF EXPONENT
  5925  !
36954 @ 309463:                     LINE   5922 "regression-compile-tmp/imp918s.imp"
36955 @ 309501:                     PUSH   ENTERJUMP
36956 @ 309504:                     PUSHI  #0x00000008
36957 @ 309509:                     ASSPAR
36958 @ 309510:                     PUSH   PLABEL
36959 @ 309513:                     ASSPAR
36960 @ 309514:                     PUSHI  #0x00000003
36961 @ 309519:                     ASSPAR
36962 @ 309520:                     CALL  

  5926                 %IF CHECKSP=1 %THEN %START
36963 @ 309521:                     LINE   5926 "regression-compile-tmp/imp918s.imp"
36964 @ 309559:                     PUSH   CHECKSP
36965 @ 309562:                     PUSHI  #0x00000001
36966 @ 309567:                     JUMPIF # L_000a

  5927                    %IF TYPEP=2 %THEN PRX(X'59',COUNT,0,GLA,24) %ELSESTART
36967 @ 309571:                     LINE   5927 "regression-compile-tmp/imp918s.imp"
36968 @ 309609:                     PUSH   TYPEP
36969 @ 309612:                     PUSHI  #0x00000002
36970 @ 309617:                     JUMPIF # L_000d
36971 @ 309621:                     PUSH   PRX
36972 @ 309624:                     PUSHI  #0x00000059
36973 @ 309629:                     ASSPAR
36974 @ 309630:                     PUSH   COUNT
36975 @ 309633:                     ASSPAR
36976 @ 309634:                     PUSHI  #0x00000000
36977 @ 309639:                     ASSPAR
36978 @ 309640:                     PUSHI  #0x0000000d
36979 @ 309645:                     ASSPAR
36980 @ 309646:                     PUSHI  #0x00000018
36981 @ 309651:                     ASSPAR
36982 @ 309652:                     CALL  
36983 @ 309653:                     GOTO   L_000c
36984 @ 309656:                     LOCATE L_000d

  5928                       DUMP(X'41',-1,63,0,0);  ! LA NEST,63
36985 @ 309659:                     LINE   5928 "regression-compile-tmp/imp918s.imp"
36986 @ 309697:                     PUSH   DUMP
36987 @ 309700:                     PUSHI  #0x00000041
36988 @ 309705:                     ASSPAR
36989 @ 309706:                     PUSHI  #0x00000001
36990 @ 309711:                     NEGATE
36991 @ 309712:                     ASSPAR
36992 @ 309713:                     PUSHI  #0x0000003f
36993 @ 309718:                     ASSPAR
36994 @ 309719:                     PUSHI  #0x00000000
36995 @ 309724:                     ASSPAR
36996 @ 309725:                     PUSHI  #0x00000000
36997 @ 309730:                     ASSPAR
36998 @ 309731:                     CALL  

  5929                       PRR(X'15',COUNT,NEST);  ! CLR COUNT,NEST
36999 @ 309732:                     LINE   5929 "regression-compile-tmp/imp918s.imp"
37000 @ 309770:                     PUSH   PRR
37001 @ 309773:                     PUSHI  #0x00000015
37002 @ 309778:                     ASSPAR
37003 @ 309779:                     PUSH   COUNT
37004 @ 309782:                     ASSPAR
37005 @ 309783:                     PUSH   NEST
37006 @ 309786:                     ASSPAR
37007 @ 309787:                     CALL  

  5930                    %FINISH
37008 @ 309788:                     LINE   5930 "regression-compile-tmp/imp918s.imp"
37009 @ 309826:                     LOCATE L_000c

  5931                    PCONST(X'4720C048');       !  BH ILLEGAL EXPONENT
37010 @ 309829:                     LINE   5931 "regression-compile-tmp/imp918s.imp"
37011 @ 309867:                     PUSH   PCONST
37012 @ 309870:                     PUSHI  #0x4720c048
37013 @ 309875:                     ASSPAR
37014 @ 309876:                     CALL  

  5932                 %FINISH
37015 @ 309877:                     LINE   5932 "regression-compile-tmp/imp918s.imp"
37016 @ 309915:                     LOCATE L_000a

  5933              %FINISH
37017 @ 309918:                     LINE   5933 "regression-compile-tmp/imp918s.imp"
37018 @ 309956:                     LOCATE L_0007

  5934              SET LOCAL BASE
37019 @ 309959:                     LINE   5934 "regression-compile-tmp/imp918s.imp"
37020 @ 309997:                     PUSH   SETLOCALBASE
37021 @ 310000:                     CALL  

  5935              C=CA-LOCAL ADDR;                 ! ADDR OF NEXT INST FOR LOOP
37022 @ 310001:                     LINE   5935 "regression-compile-tmp/imp918s.imp"
37023 @ 310039:                     PUSH   C
37024 @ 310042:                     PUSH   CA
37025 @ 310045:                     PUSH   LOCALADDR
37026 @ 310048:                     SUB   
37027 @ 310049:                     ASSVAL

  5936           %FINISH
37028 @ 310050:                     LINE   5936 "regression-compile-tmp/imp918s.imp"
37029 @ 310088:                     LOCATE L_0003

  5937           PRR(32*TYPEP-4-PRECP,WORK,RREG);  ! MR OR MER OR MDR
37030 @ 310091:                     LINE   5937 "regression-compile-tmp/imp918s.imp"
37031 @ 310129:                     PUSH   PRR
37032 @ 310132:                     PUSHI  #0x00000020
37033 @ 310137:                     PUSH   TYPEP
37034 @ 310140:                     MUL   
37035 @ 310141:                     PUSHI  #0x00000004
37036 @ 310146:                     SUB   
37037 @ 310147:                     PUSH   PRECP
37038 @ 310150:                     SUB   
37039 @ 310151:                     ASSPAR
37040 @ 310152:                     PUSH   WORK
37041 @ 310155:                     ASSPAR
37042 @ 310156:                     PUSH   RREG
37043 @ 310159:                     ASSPAR
37044 @ 310160:                     CALL  

  5938           %IF TYPEP=1 %AND CHECKSP=1 %THEN %START
37045 @ 310161:                     LINE   5938 "regression-compile-tmp/imp918s.imp"
37046 @ 310199:                     PUSH   TYPEP
37047 @ 310202:                     PUSHI  #0x00000001
37048 @ 310207:                     JUMPIF # L_0004
37049 @ 310211:                     PUSH   CHECKSP
37050 @ 310214:                     PUSHI  #0x00000001
37051 @ 310219:                     JUMPIF # L_0004

  5939              PRX(X'8F',WORK,0,0,32);    ! SRDA TO CAUSE INTEGER OFLOW
37052 @ 310223:                     LINE   5939 "regression-compile-tmp/imp918s.imp"
37053 @ 310261:                     PUSH   PRX
37054 @ 310264:                     PUSHI  #0x0000008f
37055 @ 310269:                     ASSPAR
37056 @ 310270:                     PUSH   WORK
37057 @ 310273:                     ASSPAR
37058 @ 310274:                     PUSHI  #0x00000000
37059 @ 310279:                     ASSPAR
37060 @ 310280:                     PUSHI  #0x00000000
37061 @ 310285:                     ASSPAR
37062 @ 310286:                     PUSHI  #0x00000020
37063 @ 310291:                     ASSPAR
37064 @ 310292:                     CALL  

  5940              PRR(X'18',WORK+1,WORK);    ! LR WORK+1,WORK TO RESTORE
37065 @ 310293:                     LINE   5940 "regression-compile-tmp/imp918s.imp"
37066 @ 310331:                     PUSH   PRR
37067 @ 310334:                     PUSHI  #0x00000018
37068 @ 310339:                     ASSPAR
37069 @ 310340:                     PUSH   WORK
37070 @ 310343:                     PUSHI  #0x00000001
37071 @ 310348:                     ADD   
37072 @ 310349:                     ASSPAR
37073 @ 310350:                     PUSH   WORK
37074 @ 310353:                     ASSPAR
37075 @ 310354:                     CALL  

  5941           %FINISH
37076 @ 310355:                     LINE   5941 "regression-compile-tmp/imp918s.imp"
37077 @ 310393:                     LOCATE L_0004

  5942           PRX(X'46',COUNT,LOCAL BASE,0,C) %IF VALUE#2;! BCT COUNT,AGAIN
  5943  !
  5944  ! FOR REAL EXPONENTS CHECK IF NEGATIVE AND EVALUATE INVERSE
  5945  !
37078 @ 310396:                     LINE   5942 "regression-compile-tmp/imp918s.imp"
37079 @ 310434:                     PUSH   VALUE
37080 @ 310437:                     PUSHI  #0x00000002
37081 @ 310442:                     JUMPIF = L_0004
37082 @ 310446:                     PUSH   PRX
37083 @ 310449:                     PUSHI  #0x00000046
37084 @ 310454:                     ASSPAR
37085 @ 310455:                     PUSH   COUNT
37086 @ 310458:                     ASSPAR
37087 @ 310459:                     PUSH   LOCALBASE
37088 @ 310462:                     ASSPAR
37089 @ 310463:                     PUSHI  #0x00000000
37090 @ 310468:                     ASSPAR
37091 @ 310469:                     PUSH   C
37092 @ 310472:                     ASSPAR
37093 @ 310473:                     CALL  
37094 @ 310474:                     LOCATE L_0004

  5946           %IF VALUE=0 %AND TYPEP=2 %THEN %START
37095 @ 310477:                     LINE   5946 "regression-compile-tmp/imp918s.imp"
37096 @ 310515:                     PUSH   VALUE
37097 @ 310518:                     PUSHI  #0x00000000
37098 @ 310523:                     JUMPIF # L_0004
37099 @ 310527:                     PUSH   TYPEP
37100 @ 310530:                     PUSHI  #0x00000002
37101 @ 310535:                     JUMPIF # L_0004

  5947              PRR(X'12',INTREG,INTREG);  ! LTR ON ORIGINAL EXPONENT
37102 @ 310539:                     LINE   5947 "regression-compile-tmp/imp918s.imp"
37103 @ 310577:                     PUSH   PRR
37104 @ 310580:                     PUSHI  #0x00000012
37105 @ 310585:                     ASSPAR
37106 @ 310586:                     PUSH   INTREG
37107 @ 310589:                     ASSPAR
37108 @ 310590:                     PUSH   INTREG
37109 @ 310593:                     ASSPAR
37110 @ 310594:                     CALL  

  5948              ENTER JUMP(2,PLABEL,B'11');! BP END OF EXP ROUTINE
37111 @ 310595:                     LINE   5948 "regression-compile-tmp/imp918s.imp"
37112 @ 310633:                     PUSH   ENTERJUMP
37113 @ 310636:                     PUSHI  #0x00000002
37114 @ 310641:                     ASSPAR
37115 @ 310642:                     PUSH   PLABEL
37116 @ 310645:                     ASSPAR
37117 @ 310646:                     PUSHI  #0x00000003
37118 @ 310651:                     ASSPAR
37119 @ 310652:                     CALL  

  5949              PRX(X'78'-PRECP,RREG,0,CODER,X'C8');! LD(E) RREG,=D'1'
37120 @ 310653:                     LINE   5949 "regression-compile-tmp/imp918s.imp"
37121 @ 310691:                     PUSH   PRX
37122 @ 310694:                     PUSHI  #0x00000078
37123 @ 310699:                     PUSH   PRECP
37124 @ 310702:                     SUB   
37125 @ 310703:                     ASSPAR
37126 @ 310704:                     PUSH   RREG
37127 @ 310707:                     ASSPAR
37128 @ 310708:                     PUSHI  #0x00000000
37129 @ 310713:                     ASSPAR
37130 @ 310714:                     PUSHI  #0x0000000c
37131 @ 310719:                     ASSPAR
37132 @ 310720:                     PUSHI  #0x000000c8
37133 @ 310725:                     ASSPAR
37134 @ 310726:                     CALL  

  5950              CYC BITS=CYC BITS!16;      ! USES PERMS CONSTANTS
37135 @ 310727:                     LINE   5950 "regression-compile-tmp/imp918s.imp"
37136 @ 310765:                     PUSH   CYCBITS
37137 @ 310768:                     PUSH   CYCBITS
37138 @ 310771:                     PUSHI  #0x00000010
37139 @ 310776:                     OR    
37140 @ 310777:                     ASSVAL

  5951              PRR(X'3D'-PRECP,RREG,WORK);! DDR  RREG,WORK
37141 @ 310778:                     LINE   5951 "regression-compile-tmp/imp918s.imp"
37142 @ 310816:                     PUSH   PRR
37143 @ 310819:                     PUSHI  #0x0000003d
37144 @ 310824:                     PUSH   PRECP
37145 @ 310827:                     SUB   
37146 @ 310828:                     ASSPAR
37147 @ 310829:                     PUSH   RREG
37148 @ 310832:                     ASSPAR
37149 @ 310833:                     PUSH   WORK
37150 @ 310836:                     ASSPAR
37151 @ 310837:                     CALL  

  5952              PRR(X'38'-PRECP,WORK,RREG);! LDR  WORK,RREG
37152 @ 310838:                     LINE   5952 "regression-compile-tmp/imp918s.imp"
37153 @ 310876:                     PUSH   PRR
37154 @ 310879:                     PUSHI  #0x00000038
37155 @ 310884:                     PUSH   PRECP
37156 @ 310887:                     SUB   
37157 @ 310888:                     ASSPAR
37158 @ 310889:                     PUSH   WORK
37159 @ 310892:                     ASSPAR
37160 @ 310893:                     PUSH   RREG
37161 @ 310896:                     ASSPAR
37162 @ 310897:                     CALL  

  5953           %FINISH
  5954  !
  5955  ! ALL OVER. REAL RESULTS ARE IN FR WORK. INT RESULTS IN GR WORK+1
  5956  ! FREE AND FORGET ANY OTHER REGISTERS
  5957  !
37163 @ 310898:                     LINE   5953 "regression-compile-tmp/imp918s.imp"
37164 @ 310936:                     LOCATE L_0004

  5958           TYPE=TYPEP; PREC=3*PRECP>>4
37165 @ 310939:                     LINE   5958 "regression-compile-tmp/imp918s.imp"
37166 @ 310977:                     PUSH   TYPE
37167 @ 310980:                     PUSH   TYPEP
37168 @ 310983:                     ASSVAL
37169 @ 310984:                     LINE   5958 "regression-compile-tmp/imp918s.imp"
37170 @ 311022:                     PUSH   PREC
37171 @ 311025:                     PUSHI  #0x00000003
37172 @ 311030:                     PUSH   PRECP
37173 @ 311033:                     PUSHI  #0x00000004
37174 @ 311038:                     RSH   
37175 @ 311039:                     MUL   
37176 @ 311040:                     ASSVAL

  5959           %IF VALUE #2 %THEN %START
37177 @ 311041:                     LINE   5959 "regression-compile-tmp/imp918s.imp"
37178 @ 311079:                     PUSH   VALUE
37179 @ 311082:                     PUSHI  #0x00000002
37180 @ 311087:                     JUMPIF = L_0004

  5960              FREE AND FORGET((TYPEP&2)<<3+RREG)
37181 @ 311091:                     LINE   5960 "regression-compile-tmp/imp918s.imp"
37182 @ 311129:                     PUSH   FREEANDFORGET
37183 @ 311132:                     PUSH   TYPEP
37184 @ 311135:                     PUSHI  #0x00000002
37185 @ 311140:                     AND   
37186 @ 311141:                     PUSHI  #0x00000003
37187 @ 311146:                     LSH   
37188 @ 311147:                     PUSH   RREG
37189 @ 311150:                     ADD   
37190 @ 311151:                     ASSPAR
37191 @ 311152:                     CALL  

  5961              REGISTER(INTREG)=0
37192 @ 311153:                     LINE   5961 "regression-compile-tmp/imp918s.imp"
37193 @ 311191:                     PUSH   REGISTER
37194 @ 311194:                     PUSH   INTREG
37195 @ 311197:                     ACCESS
37196 @ 311198:                     PUSHI  #0x00000000
37197 @ 311203:                     ASSVAL

  5962              FREE AND FORGET(COUNT)
37198 @ 311204:                     LINE   5962 "regression-compile-tmp/imp918s.imp"
37199 @ 311242:                     PUSH   FREEANDFORGET
37200 @ 311245:                     PUSH   COUNT
37201 @ 311248:                     ASSPAR
37202 @ 311249:                     CALL  

  5963           %FINISH
37203 @ 311250:                     LINE   5963 "regression-compile-tmp/imp918s.imp"
37204 @ 311288:                     LOCATE L_0004

  5964           %IF TYPE=1 %THEN FREE AND FORGET(WORK)
37205 @ 311291:                     LINE   5964 "regression-compile-tmp/imp918s.imp"
37206 @ 311329:                     PUSH   TYPE
37207 @ 311332:                     PUSHI  #0x00000001
37208 @ 311337:                     JUMPIF # L_0004
37209 @ 311341:                     PUSH   FREEANDFORGET
37210 @ 311344:                     PUSH   WORK
37211 @ 311347:                     ASSPAR
37212 @ 311348:                     CALL  
37213 @ 311349:                     LOCATE L_0004

  5965           OPND1_PTYPE=10*PREC+TYPE
37214 @ 311352:                     LINE   5965 "regression-compile-tmp/imp918s.imp"
37215 @ 311390:                     PUSH   OPND1
37216 @ 311393:                     SELECT 1
37217 @ 311396:                     PUSHI  #0x0000000a
37218 @ 311401:                     PUSH   PREC
37219 @ 311404:                     MUL   
37220 @ 311405:                     PUSH   TYPE
37221 @ 311408:                     ADD   
37222 @ 311409:                     ASSVAL

  5966           OPND1_XB=WORK+2-TYPEP
37223 @ 311410:                     LINE   5966 "regression-compile-tmp/imp918s.imp"
37224 @ 311448:                     PUSH   OPND1
37225 @ 311451:                     SELECT 2
37226 @ 311454:                     PUSH   WORK
37227 @ 311457:                     PUSHI  #0x00000002
37228 @ 311462:                     ADD   
37229 @ 311463:                     PUSH   TYPEP
37230 @ 311466:                     SUB   
37231 @ 311467:                     ASSVAL

  5967           ENTER LAB(PLABEL,B'11');      ! LABEL AT END OF EXP ROUTINE
37232 @ 311468:                     LINE   5967 "regression-compile-tmp/imp918s.imp"
37233 @ 311506:                     PUSH   ENTERLAB
37234 @ 311509:                     PUSH   PLABEL
37235 @ 311512:                     ASSPAR
37236 @ 311513:                     PUSHI  #0x00000003
37237 @ 311518:                     ASSPAR
37238 @ 311519:                     CALL  

  5968           %END
37239 @ 311520:                     LINE   5968 "regression-compile-tmp/imp918s.imp"
37240 @ 311558:                  END    _lev0id0_CSS_EXPOP_STARSTAR {lev=4 --> 3}

  5969           %END
37241 @ 311559:                  LINE   5969 "regression-compile-tmp/imp918s.imp"
37242 @ 311597:               END    _lev0id0_CSS_EXPOP {lev=3 --> 2}

  5970           %INTEGERFN CONST FIND(%INTEGER L,AD)
  5971  !***********************************************************************
  5972  !*       FIND IF THE CONSTANT OF LENGTH 'L' STORED AT ADDRESS 'AD'     *
  5973  !*       HAS ALREADY BEEN INSERTED IN THE GLA                          *
  5974  !***********************************************************************
  5975           {%SHORTROUTINE}
37243 @ 311598:               LINE   5970 "regression-compile-tmp/imp918s.imp"
37244 @ 311636:               DEF    CONSTFIND (_lev0id0_CSS_CONSTFIND) p1=V_01b4 a/tf=18 b/format=1 c/ostate=10  type=1 (integer) form=8 (function) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=1 unass=0
37245 @ 311657:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
37246 @ 311658:                     DEF    L p1=V_0203 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
37247 @ 311671:                     DEF    AD p1=V_0204 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
37248 @ 311685:                  FINISH ) {lev=3}

  5976           %INTEGER I,J,K,LIST,C1,C2
37249 @ 311686:                  LINE   5976 "regression-compile-tmp/imp918s.imp"
37250 @ 311724:                  DEF    I p1=V_0205 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
37251 @ 311737:                  DEF    J p1=V_0206 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
37252 @ 311750:                  DEF    K p1=V_0207 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
37253 @ 311763:                  DEF    LIST p1=V_0208 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
37254 @ 311779:                  DEF    C1 p1=V_0209 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
37255 @ 311793:                  DEF    C2 p1=V_020a 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

  5977           LIST=SHORTINTEGER(ADDR(GLAHOLES)+L)
37256 @ 311807:                  LINE   5977 "regression-compile-tmp/imp918s.imp"
37257 @ 311845:                  PUSH   LIST
37258 @ 311848:                  PUSH   SHORTINTEGER
37259 @ 311851:                  PUSH   ADDR
37260 @ 311854:                  PUSH   GLAHOLES
37261 @ 311857:                  ASSPAR
37262 @ 311858:                  CALL  
37263 @ 311859:                  PUSH   L
37264 @ 311862:                  ADD   
37265 @ 311863:                  ASSPAR
37266 @ 311864:                  CALL  
37267 @ 311865:                  ASSVAL

  5978           C1=0; C2=0
  5979  !         %CYCLE I=0,1,L-1
  5980  !            BYTEINTEGER(ADDR(C1)+I)=BYTEINTEGER(AD)
  5981  !            AD=AD+1
  5982  !         %REPEAT
  5983  !%if USE MC = 1 %start
  5984  !         *LM_1,2,L; *BCTR_1,0
  5985  !         *MVC_C1(1),0(2)
  5986  !         *EX_1,*-6
  5987  !%finish
  5988  !         %WHILE LIST>0 %CYCLE
  5989  !            I=ADDR(ASLIST(LIST))
  5990  !            %IF C1=INTEGER(I) %AND C2=INTEGER(I+4) %C
  5991  !               %THEN %RESULT=INTEGER(I+8)
  5992  !            LIST=SHORT INTEGER(I+14)
  5993  !         %REPEAT
  5994  !%if USE MC = 1 %start
  5995  !         *L_1,LIST; *L_2,ASLIST
  5996  !NEXT:    *LTR_1,1; *BC_12,<MISS>
  5997  !         *LA_3,0(1,2); *CLC_C1(8),0(3)
  5998  !         *BC_8,<HIT>
  5999  !AGN:     *LH_1,14(1,2); *BC_15,<NEXT>
  6000  !HIT:     *L_1,8(1,2); *LM_4,15,16(7); *BCR_15,15
  6001  !%finish
37268 @ 311866:                  LINE   5978 "regression-compile-tmp/imp918s.imp"
37269 @ 311904:                  PUSH   C1
37270 @ 311907:                  PUSHI  #0x00000000
37271 @ 311912:                  ASSVAL
37272 @ 311913:                  LINE   5978 "regression-compile-tmp/imp918s.imp"
37273 @ 311951:                  PUSH   C2
37274 @ 311954:                  PUSHI  #0x00000000
37275 @ 311959:                  ASSVAL

  6002  MISS:
37276 @ 311960:                  LINE   6002 "regression-compile-tmp/imp918s.imp"
37277 @ 311998:                  LABEL  L_020b

  6003           %RESULT=-1
37278 @ 312001:                  LINE   6003 "regression-compile-tmp/imp918s.imp"
37279 @ 312039:                  PUSHI  #0x00000001
37280 @ 312044:                  NEGATE
37281 @ 312045:                  RESULT

  6004           %END
37282 @ 312046:                  LINE   6004 "regression-compile-tmp/imp918s.imp"
37283 @ 312084:               END    _lev0id0_CSS_CONSTFIND {lev=3 --> 2}

  6005           %ROUTINE STORE CONST(%INTEGERNAME B,D,%INTEGER L,AD)
  6006  !***********************************************************************
  6007  !*       PUT THE CONSTANT OF LENGTH 'L' AT ADDRESS 'AD' INTO THE GLA   *
  6008  !*       AND RECORD ITS POSITION IN CASE THIS CONSTANT IS REUSED       *
  6009  !*       A CHECK IS MADE USING 'CONST FIND' TO SEE IF THE CONSTANT HAS *
  6010  !*       BEEN INSERTED IN WHICH CASE THE OLD COPY IS REUSED            *
  6011  !***********************************************************************
  6012           {%SHORTROUTINE}
37284 @ 312085:               LINE   6005 "regression-compile-tmp/imp918s.imp"
37285 @ 312123:               DEF    STORECONST (_lev0id0_CSS_STORECONST) p1=V_01b5 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
37286 @ 312145:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
37287 @ 312146:                     DEF    B p1=V_0203 a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
37288 @ 312159:                     DEF    D p1=V_0204 a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
37289 @ 312172:                     DEF    L p1=V_0205 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
37290 @ 312185:                     DEF    AD p1=V_0206 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
37291 @ 312199:                  FINISH ) {lev=3}

  6013           %INTEGER I,J,K
37292 @ 312200:                  LINE   6013 "regression-compile-tmp/imp918s.imp"
37293 @ 312238:                  DEF    I p1=V_0207 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
37294 @ 312251:                  DEF    J p1=V_0208 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
37295 @ 312264:                  DEF    K p1=V_0209 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

  6014           %SHORTINTEGERNAME LIST
37296 @ 312277:                  LINE   6014 "regression-compile-tmp/imp918s.imp"
37297 @ 312315:                  DEF    LIST p1=V_020a a/tf=12 b/format=3 c/ostate=0  type=1 (integer) form=2 (name) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0

  6015           D=-1
37298 @ 312331:                  LINE   6015 "regression-compile-tmp/imp918s.imp"
37299 @ 312369:                  PUSH   D
37300 @ 312372:                  PUSHI  #0x00000001
37301 @ 312377:                  NEGATE
37302 @ 312378:                  ASSVAL

  6016           D=CONST FIND(L,AD) %IF GLAFLAG = 0
37303 @ 312379:                  LINE   6016 "regression-compile-tmp/imp918s.imp"
37304 @ 312417:                  PUSH   GLAFLAG
37305 @ 312420:                  PUSHI  #0x00000000
37306 @ 312425:                  JUMPIF # L_0004
37307 @ 312429:                  PUSH   D
37308 @ 312432:                  PUSH   CONSTFIND
37309 @ 312435:                  PUSH   L
37310 @ 312438:                  ASSPAR
37311 @ 312439:                  PUSH   AD
37312 @ 312442:                  ASSPAR
37313 @ 312443:                  CALL  
37314 @ 312444:                  ASSVAL
37315 @ 312445:                  LOCATE L_0004

  6017           %IF D=-1  %START;! FIRST USE OF CNST
37316 @ 312448:                  LINE   6017 "regression-compile-tmp/imp918s.imp"
37317 @ 312486:                  PUSH   D
37318 @ 312489:                  PUSHI  #0x00000001
37319 @ 312494:                  NEGATE
37320 @ 312495:                  JUMPIF # L_0004

  6018              I=0; J=0
37321 @ 312499:                  LINE   6018 "regression-compile-tmp/imp918s.imp"
37322 @ 312537:                  PUSH   I
37323 @ 312540:                  PUSHI  #0x00000000
37324 @ 312545:                  ASSVAL
37325 @ 312546:                  LINE   6018 "regression-compile-tmp/imp918s.imp"
37326 @ 312584:                  PUSH   J
37327 @ 312587:                  PUSHI  #0x00000000
37328 @ 312592:                  ASSVAL

  6019              %CYCLE K=0,1,L-1
37329 @ 312593:                  LINE   6019 "regression-compile-tmp/imp918s.imp"
37330 @ 312631:                  PUSH   K
37331 @ 312634:                  PUSHI  #0x00000001
37332 @ 312639:                  PUSH   L
37333 @ 312642:                  PUSHI  #0x00000001
37334 @ 312647:                  SUB   
37335 @ 312648:                  PUSHI  #0x00000000
37336 @ 312653:                  FOR    L_0006

  6020                 BYTEINTEGER(ADDR(I)+K)=BYTEINTEGER(AD+K)
37337 @ 312656:                  LINE   6020 "regression-compile-tmp/imp918s.imp"
37338 @ 312694:                  PUSH   BYTEINTEGER
37339 @ 312697:                  PUSH   ADDR
37340 @ 312700:                  PUSH   I
37341 @ 312703:                  ASSPAR
37342 @ 312704:                  CALL  
37343 @ 312705:                  PUSH   K
37344 @ 312708:                  ADD   
37345 @ 312709:                  ASSPAR
37346 @ 312710:                  CALL  
37347 @ 312711:                  PUSH   BYTEINTEGER
37348 @ 312714:                  PUSH   AD
37349 @ 312717:                  PUSH   K
37350 @ 312720:                  ADD   
37351 @ 312721:                  ASSPAR
37352 @ 312722:                  CALL  
37353 @ 312723:                  ASSVAL

  6021              %REPEAT
37354 @ 312724:                  LINE   6021 "regression-compile-tmp/imp918s.imp"
37355 @ 312762:                  REPEAT L_0006
37356 @ 312765:                  LOCATE L_0007

  6022              %IF L=2 %AND GLAHOLES#0 %START
37357 @ 312768:                  LINE   6022 "regression-compile-tmp/imp918s.imp"
37358 @ 312806:                  PUSH   L
37359 @ 312809:                  PUSHI  #0x00000002
37360 @ 312814:                  JUMPIF # L_0007
37361 @ 312818:                  PUSH   GLAHOLES
37362 @ 312821:                  PUSHI  #0x00000000
37363 @ 312826:                  JUMPIF = L_0007

  6023                 POP(GLAHOLES,D,B)
37364 @ 312830:                  LINE   6023 "regression-compile-tmp/imp918s.imp"
37365 @ 312868:                  PUSH   POP
37366 @ 312871:                  PUSH   GLAHOLES
37367 @ 312874:                  ASSPAR
37368 @ 312875:                  PUSH   D
37369 @ 312878:                  ASSPAR
37370 @ 312879:                  PUSH   B
37371 @ 312882:                  ASSPAR
37372 @ 312883:                  CALL  

  6024                 B=13; PLUG(2,D,I>>16)
37373 @ 312884:                  LINE   6024 "regression-compile-tmp/imp918s.imp"
37374 @ 312922:                  PUSH   B
37375 @ 312925:                  PUSHI  #0x0000000d
37376 @ 312930:                  ASSVAL
37377 @ 312931:                  LINE   6024 "regression-compile-tmp/imp918s.imp"
37378 @ 312969:                  PUSH   PLUG
37379 @ 312972:                  PUSHI  #0x00000002
37380 @ 312977:                  ASSPAR
37381 @ 312978:                  PUSH   D
37382 @ 312981:                  ASSPAR
37383 @ 312982:                  PUSH   I
37384 @ 312985:                  PUSHI  #0x00000010
37385 @ 312990:                  RSH   
37386 @ 312991:                  ASSPAR
37387 @ 312992:                  CALL  

  6025                 GSAVED=GSAVED+2
37388 @ 312993:                  LINE   6025 "regression-compile-tmp/imp918s.imp"
37389 @ 313031:                  PUSH   GSAVED
37390 @ 313034:                  PUSH   GSAVED
37391 @ 313037:                  PUSHI  #0x00000002
37392 @ 313042:                  ADD   
37393 @ 313043:                  ASSVAL

  6026              %FINISH %ELSE %START
37394 @ 313044:                  LINE   6026 "regression-compile-tmp/imp918s.imp"
37395 @ 313082:                  GOTO   L_0006
37396 @ 313085:                  LOCATE L_0007

  6027                 PGLA(L,L,AD)
37397 @ 313088:                  LINE   6027 "regression-compile-tmp/imp918s.imp"
37398 @ 313126:                  PUSH   PGLA
37399 @ 313129:                  PUSH   L
37400 @ 313132:                  ASSPAR
37401 @ 313133:                  PUSH   L
37402 @ 313136:                  ASSPAR
37403 @ 313137:                  PUSH   AD
37404 @ 313140:                  ASSPAR
37405 @ 313141:                  CALL  

  6028                 D=GLACA-L; B=GLA
37406 @ 313142:                  LINE   6028 "regression-compile-tmp/imp918s.imp"
37407 @ 313180:                  PUSH   D
37408 @ 313183:                  PUSH   GLACA
37409 @ 313186:                  PUSH   L
37410 @ 313189:                  SUB   
37411 @ 313190:                  ASSVAL
37412 @ 313191:                  LINE   6028 "regression-compile-tmp/imp918s.imp"
37413 @ 313229:                  PUSH   B
37414 @ 313232:                  PUSHI  #0x0000000d
37415 @ 313237:                  ASSVAL

  6029              %FINISH
37416 @ 313238:                  LINE   6029 "regression-compile-tmp/imp918s.imp"
37417 @ 313276:                  LOCATE L_0006

  6030              LIST==SHORT INTEGER(ADDR(GLAHOLES)+L)
37418 @ 313279:                  LINE   6030 "regression-compile-tmp/imp918s.imp"
37419 @ 313317:                  PUSH   LIST
37420 @ 313320:                  PUSH   SHORTINTEGER
37421 @ 313323:                  PUSH   ADDR
37422 @ 313326:                  PUSH   GLAHOLES
37423 @ 313329:                  ASSPAR
37424 @ 313330:                  CALL  
37425 @ 313331:                  PUSH   L
37426 @ 313334:                  ADD   
37427 @ 313335:                  ASSPAR
37428 @ 313336:                  CALL  
37429 @ 313337:                  ASSREF

  6031              PUSH123(LIST,I,J,D) %IF GLAFLAG=0
37430 @ 313338:                  LINE   6031 "regression-compile-tmp/imp918s.imp"
37431 @ 313376:                  PUSH   GLAFLAG
37432 @ 313379:                  PUSHI  #0x00000000
37433 @ 313384:                  JUMPIF # L_0007
37434 @ 313388:                  PUSH   PUSH123
37435 @ 313391:                  PUSH   LIST
37436 @ 313394:                  ASSPAR
37437 @ 313395:                  PUSH   I
37438 @ 313398:                  ASSPAR
37439 @ 313399:                  PUSH   J
37440 @ 313402:                  ASSPAR
37441 @ 313403:                  PUSH   D
37442 @ 313406:                  ASSPAR
37443 @ 313407:                  CALL  
37444 @ 313408:                  LOCATE L_0007

  6032           %FINISH %ELSE %START;            ! CONST ALREADY IN
37445 @ 313411:                  LINE   6032 "regression-compile-tmp/imp918s.imp"
37446 @ 313449:                  GOTO   L_0003
37447 @ 313452:                  LOCATE L_0004

  6033              %IF D<0 %THEN %START
37448 @ 313455:                  LINE   6033 "regression-compile-tmp/imp918s.imp"
37449 @ 313493:                  PUSH   D
37450 @ 313496:                  PUSHI  #0x00000000
37451 @ 313501:                  JUMPIF >= L_0007

  6034                 CYC BITS=CYC BITS!16;      ! SET USES PERMS CONSTS BIT
37452 @ 313505:                  LINE   6034 "regression-compile-tmp/imp918s.imp"
37453 @ 313543:                  PUSH   CYCBITS
37454 @ 313546:                  PUSH   CYCBITS
37455 @ 313549:                  PUSHI  #0x00000010
37456 @ 313554:                  OR    
37457 @ 313555:                  ASSVAL

  6035                 B=CODER; D=D&X'FFF'
37458 @ 313556:                  LINE   6035 "regression-compile-tmp/imp918s.imp"
37459 @ 313594:                  PUSH   B
37460 @ 313597:                  PUSHI  #0x0000000c
37461 @ 313602:                  ASSVAL
37462 @ 313603:                  LINE   6035 "regression-compile-tmp/imp918s.imp"
37463 @ 313641:                  PUSH   D
37464 @ 313644:                  PUSH   D
37465 @ 313647:                  PUSHI  #0x00000fff
37466 @ 313652:                  AND   
37467 @ 313653:                  ASSVAL

  6036              %FINISH %ELSE B=GLA
37468 @ 313654:                  LINE   6036 "regression-compile-tmp/imp918s.imp"
37469 @ 313692:                  GOTO   L_0006
37470 @ 313695:                  LOCATE L_0007
37471 @ 313698:                  PUSH   B
37472 @ 313701:                  PUSHI  #0x0000000d
37473 @ 313706:                  ASSVAL
37474 @ 313707:                  LOCATE L_0006

  6037           %FINISH
37475 @ 313710:                  LINE   6037 "regression-compile-tmp/imp918s.imp"
37476 @ 313748:                  LOCATE L_0003

  6038           %END
37477 @ 313751:                  LINE   6038 "regression-compile-tmp/imp918s.imp"
37478 @ 313789:               END    _lev0id0_CSS_STORECONST {lev=3 --> 2}

  6039           %ROUTINE CCOND(%INTEGER IU,FARLAB)
  6040           {%SHORTROUTINE}
  6041  !***********************************************************************
  6042  !*       COMPILES <IU><SC><RESTOFCOND>%THEN<UI1>%ELSE<UI2>             *
  6043  !*       IU=1 FOR %IF   =2 FOR UNLESS. FARLAB TO GO ON UI2             *
  6044  !*       THE ROUTINE MAKES FOUR PASSES THROUGH THE CONDITION           *
  6045  !*       PASS 1 ANALYSES THE STRUCTURE AND DECIDES TO BRANCH ON TRUE   *
  6046  !*       (TF=2)   OR ON FALSE (TF=1) FOR EACH COMPARISON               *
  6047  !*       PASS 2 WORKS OUT WHERE THE BRANCHES OF PASS 1 SHOULD GO TO    *
  6048  !*       PASS 3 ASSIGNS LABEL NUMBERS                                  *
  6049  !*       PASS 4 EVALUATES COMPARISIONS AND PLANTS THE CODE             *
  6050  !*                                                                     *
  6051  !*       ON ENTRY P POINTS TO <SC> IN<HOLE><SC><RESTOFCOND>            *
  6052  !***********************************************************************
  6053  !         %ROUTINESPEC WRITE CONDLIST
37479 @ 313790:               LINE   6039 "regression-compile-tmp/imp918s.imp"
37480 @ 313828:               DEF    CCOND (_lev0id0_CSS_CCOND) p1=V_016b 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
37481 @ 313845:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
37482 @ 313846:                     DEF    IU p1=V_0203 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
37483 @ 313860:                     DEF    FARLAB p1=V_0204 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
37484 @ 313878:                  FINISH ) {lev=3}

  6054           %ROUTINESPEC SKIP SC
37485 @ 313879:                  LINE   6054 "regression-compile-tmp/imp918s.imp"
37486 @ 313917:                  DEF    SKIPSC (_lev0id0_CSS_CCOND_SKIPSC) p1=V_0205 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
37487 @ 313935:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
37488 @ 313936:                  FINISH ) {lev=3}

  6055           %ROUTINESPEC SKIP COND
37489 @ 313937:                  LINE   6055 "regression-compile-tmp/imp918s.imp"
37490 @ 313975:                  DEF    SKIPCOND (_lev0id0_CSS_CCOND_SKIPCOND) p1=V_0206 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
37491 @ 313995:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
37492 @ 313996:                  FINISH ) {lev=3}

  6056           %ROUTINESPEC CCOMP
  6057  !
  6058  ! FCOMP HAS BC MASKS FOR EACH COMPARATOR.
  6059  ! THE FIRST 7 ARE TO BRANCH IF TRUE WITH NORMAL COMPARISON
  6060  ! THE SECOND SEVEN ARE TO BRANCH IF TRUE WITH BACKWARDS COMPARISON
  6061  ! THE THIRD SEVEN ARE FOR THE TEST UNDER MASK INSTRUCTION
  6062  !
37493 @ 313997:                  LINE   6056 "regression-compile-tmp/imp918s.imp"
37494 @ 314035:                  DEF    CCOMP (_lev0id0_CSS_CCOND_CCOMP) p1=V_0207 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
37495 @ 314052:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
37496 @ 314053:                  FINISH ) {lev=3}

  6063           %CONSTBYTEINTEGERARRAY FCOMP(1:21)=8,10,2,7,12,4,7,
  6064                                              8,12,4,7,10,2,7,
  6065                                              8,15,7,7,8,0,7;
  6066  !
37497 @ 314054:                  LINE   6063 "regression-compile-tmp/imp918s.imp"
37498 @ 314092:                  PUSHI  #0x00000001
37499 @ 314097:                  PUSHI  #0x00000015
37500 @ 314102:                  BOUNDS
37501 @ 314103:                  DEF    FCOMP p1=V_0208 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
37502 @ 314120:                  PUSHI  #0x00000008
37503 @ 314125:                  INIT   1
37504 @ 314128:                  PUSHI  #0x0000000a
37505 @ 314133:                  INIT   1
37506 @ 314136:                  PUSHI  #0x00000002
37507 @ 314141:                  INIT   1
37508 @ 314144:                  PUSHI  #0x00000007
37509 @ 314149:                  INIT   1
37510 @ 314152:                  PUSHI  #0x0000000c
37511 @ 314157:                  INIT   1
37512 @ 314160:                  PUSHI  #0x00000004
37513 @ 314165:                  INIT   1
37514 @ 314168:                  PUSHI  #0x00000007
37515 @ 314173:                  INIT   1
37516 @ 314176:                  PUSHI  #0x00000008
37517 @ 314181:                  INIT   1
37518 @ 314184:                  PUSHI  #0x0000000c
37519 @ 314189:                  INIT   1
37520 @ 314192:                  PUSHI  #0x00000004
37521 @ 314197:                  INIT   1
37522 @ 314200:                  PUSHI  #0x00000007
37523 @ 314205:                  INIT   1
37524 @ 314208:                  PUSHI  #0x0000000a
37525 @ 314213:                  INIT   1
37526 @ 314216:                  PUSHI  #0x00000002
37527 @ 314221:                  INIT   1
37528 @ 314224:                  PUSHI  #0x00000007
37529 @ 314229:                  INIT   1
37530 @ 314232:                  PUSHI  #0x00000008
37531 @ 314237:                  INIT   1
37532 @ 314240:                  PUSHI  #0x0000000f
37533 @ 314245:                  INIT   1
37534 @ 314248:                  PUSHI  #0x00000007
37535 @ 314253:                  INIT   1
37536 @ 314256:                  PUSHI  #0x00000007
37537 @ 314261:                  INIT   1
37538 @ 314264:                  PUSHI  #0x00000008
37539 @ 314269:                  INIT   1
37540 @ 314272:                  PUSHI  #0x00000000
37541 @ 314277:                  INIT   1
37542 @ 314280:                  PUSHI  #0x00000007
37543 @ 314285:                  INIT   1

  6067           %INTEGER PIN,PP,II,L,CPTR,CMAX,LL
37544 @ 314288:                  LINE   6067 "regression-compile-tmp/imp918s.imp"
37545 @ 314326:                  DEF    PIN p1=V_0209 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
37546 @ 314341:                  DEF    PP p1=V_020a 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
37547 @ 314355:                  DEF    II p1=V_020b 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
37548 @ 314369:                  DEF    L p1=V_020c 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
37549 @ 314382:                  DEF    CPTR p1=V_020d 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
37550 @ 314398:                  DEF    CMAX p1=V_020e 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
37551 @ 314414:                  DEF    LL p1=V_020f 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

  6068           %RECORDFORMAT CF(%BYTEINTEGER TF,CMP1,CMP2,LABU,LVL,JMP, %C
  6069                            %SHORTINTEGER LABNO,SP1,SP2)
37552 @ 314428:                  LINE   6068 "regression-compile-tmp/imp918s.imp"
37553 @ 314466:                  DEF    CF p1=V_0210 a/tf=44 b/format=210 c/ostate=0  type=4 (record) form=4 (record-format) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
37554 @ 314480:                  START  ( RECORDFORMAT
37555 @ 314481:                     DEF    TF p1=V_0000 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
37556 @ 314495:                     DEF    CMP1 p1=V_0000 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
37557 @ 314511:                     DEF    CMP2 p1=V_0000 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
37558 @ 314527:                     DEF    LABU p1=V_0000 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
37559 @ 314543:                     DEF    LVL p1=V_0000 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
37560 @ 314558:                     DEF    JMP p1=V_0000 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
37561 @ 314573:                     DEF    LABNO p1=V_0000 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
37562 @ 314590:                     DEF    SP1 p1=V_0000 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
37563 @ 314605:                     DEF    SP2 p1=V_0000 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
37564 @ 314620:                  FINISH ) 

  6070           %RECORD(CF)%ARRAY CLIST(1:30)
37565 @ 314621:                  LINE   6070 "regression-compile-tmp/imp918s.imp"
37566 @ 314659:                  DEF    CLIST p1=V_0211 a/tf=4b b/format=210 c/ostate=100  type=4 (record) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
37567 @ 314676:                  PUSHI  #0x00000001
37568 @ 314681:                  PUSHI  #0x0000001e
37569 @ 314686:                  DIM    0001 0001

  6071           %RECORD(CF)%NAME C1,C2
  6072  !
  6073  ! PASS 1.   ANALYSES THE CONDITION
  6074  !
37570 @ 314692:                  LINE   6071 "regression-compile-tmp/imp918s.imp"
37571 @ 314730:                  DEF    C1 p1=V_0212 a/tf=42 b/format=210 c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
37572 @ 314744:                  DEF    C2 p1=V_0213 a/tf=42 b/format=210 c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  6075           PIN=P;                        ! SAVE INITIAL AR POINTER
37573 @ 314758:                  LINE   6075 "regression-compile-tmp/imp918s.imp"
37574 @ 314796:                  PUSH   PIN
37575 @ 314799:                  PUSH   P
37576 @ 314802:                  ASSVAL

  6076           CPTR=1; L=3;                  ! LEVEL=3 TO ALLOW 2 LOWER
37577 @ 314803:                  LINE   6076 "regression-compile-tmp/imp918s.imp"
37578 @ 314841:                  PUSH   CPTR
37579 @ 314844:                  PUSHI  #0x00000001
37580 @ 314849:                  ASSVAL
37581 @ 314850:                  LINE   6076 "regression-compile-tmp/imp918s.imp"
37582 @ 314888:                  PUSH   L
37583 @ 314891:                  PUSHI  #0x00000003
37584 @ 314896:                  ASSVAL

  6077           C1==CLIST(CPTR);              ! SET UP RECORD FOR FIRST CMPARSN
37585 @ 314897:                  LINE   6077 "regression-compile-tmp/imp918s.imp"
37586 @ 314935:                  PUSH   C1
37587 @ 314938:                  PUSH   CLIST
37588 @ 314941:                  PUSH   CPTR
37589 @ 314944:                  ACCESS
37590 @ 314945:                  ASSREF

  6078           C1=0
37591 @ 314946:                  LINE   6078 "regression-compile-tmp/imp918s.imp"
37592 @ 314984:                  PUSH   C1
37593 @ 314987:                  PUSHI  #0x00000000
37594 @ 314992:                  ASSVAL

  6079           SKIP SC;                      ! SKIP THE 1ST CMPARSN
37595 @ 314993:                  LINE   6079 "regression-compile-tmp/imp918s.imp"
37596 @ 315031:                  PUSH   SKIPSC
37597 @ 315034:                  CALL  

  6080           SKIP COND;                    ! AND ANY %AND/%OR CLAUSES
37598 @ 315035:                  LINE   6080 "regression-compile-tmp/imp918s.imp"
37599 @ 315073:                  PUSH   SKIPCOND
37600 @ 315076:                  CALL  

  6081           C1_LVL=2;                     ! LEVEL =-1 FOR %IF/%THEN ENTRY
37601 @ 315077:                  LINE   6081 "regression-compile-tmp/imp918s.imp"
37602 @ 315115:                  PUSH   C1
37603 @ 315118:                  SELECT 5
37604 @ 315121:                  PUSHI  #0x00000002
37605 @ 315126:                  ASSVAL

  6082           C1_TF=IU
37606 @ 315127:                  LINE   6082 "regression-compile-tmp/imp918s.imp"
37607 @ 315165:                  PUSH   C1
37608 @ 315168:                  SELECT 1
37609 @ 315171:                  PUSH   IU
37610 @ 315174:                  ASSVAL

  6083           CMAX=CPTR+1
37611 @ 315175:                  LINE   6083 "regression-compile-tmp/imp918s.imp"
37612 @ 315213:                  PUSH   CMAX
37613 @ 315216:                  PUSH   CPTR
37614 @ 315219:                  PUSHI  #0x00000001
37615 @ 315224:                  ADD   
37616 @ 315225:                  ASSVAL

  6084           C1==CLIST(CMAX); C1=0
37617 @ 315226:                  LINE   6084 "regression-compile-tmp/imp918s.imp"
37618 @ 315264:                  PUSH   C1
37619 @ 315267:                  PUSH   CLIST
37620 @ 315270:                  PUSH   CMAX
37621 @ 315273:                  ACCESS
37622 @ 315274:                  ASSREF
37623 @ 315275:                  LINE   6084 "regression-compile-tmp/imp918s.imp"
37624 @ 315313:                  PUSH   C1
37625 @ 315316:                  PUSHI  #0x00000000
37626 @ 315321:                  ASSVAL

  6085           C1_LVL=1;                     ! LEVEL =-2 FOR ELSE ENTRY
37627 @ 315322:                  LINE   6085 "regression-compile-tmp/imp918s.imp"
37628 @ 315360:                  PUSH   C1
37629 @ 315363:                  SELECT 5
37630 @ 315366:                  PUSHI  #0x00000001
37631 @ 315371:                  ASSVAL

  6086           C1_TF=3-IU; C1_LABNO=FARLAB
37632 @ 315372:                  LINE   6086 "regression-compile-tmp/imp918s.imp"
37633 @ 315410:                  PUSH   C1
37634 @ 315413:                  SELECT 1
37635 @ 315416:                  PUSHI  #0x00000003
37636 @ 315421:                  PUSH   IU
37637 @ 315424:                  SUB   
37638 @ 315425:                  ASSVAL
37639 @ 315426:                  LINE   6086 "regression-compile-tmp/imp918s.imp"
37640 @ 315464:                  PUSH   C1
37641 @ 315467:                  SELECT 7
37642 @ 315470:                  PUSH   FARLAB
37643 @ 315473:                  ASSVAL

  6087           PP=P;                         ! SAVE FINAL AR POINTER
37644 @ 315474:                  LINE   6087 "regression-compile-tmp/imp918s.imp"
37645 @ 315512:                  PUSH   PP
37646 @ 315515:                  PUSH   P
37647 @ 315518:                  ASSVAL

  6088           FAULT(209,0) %IF CMAX>29;     ! TOO COMPLICATED
  6089  !
  6090  ! PASS 2 WORKS OUT WHERE TO JUMP TO
  6091  ! THE JUMP IS FORWARD TO THE START OF THE CLAUSE WITH A DIFFERENT
  6092  ! CONNECTOR (AND/OR) PROVIDED THIS IS AT A LOWER LEVEL THAN THE BRANCH
  6093  ! AND ALSO AT A LOWER LEVEL THAN THE LOWEST POINT REACHED ENROUTE
  6094  !
  6095  ! ALSO CONTAINS PASS 3 (TRIVIAL)
  6096  ! ASSIGN LABELS WHERE LABU SHOWS THEY ARE REQUIRED
  6097  !
37648 @ 315519:                  LINE   6088 "regression-compile-tmp/imp918s.imp"
37649 @ 315557:                  PUSH   CMAX
37650 @ 315560:                  PUSHI  #0x0000001d
37651 @ 315565:                  JUMPIF <= L_0004
37652 @ 315569:                  PUSH   FAULT
37653 @ 315572:                  PUSHI  #0x000000d1
37654 @ 315577:                  ASSPAR
37655 @ 315578:                  PUSHI  #0x00000000
37656 @ 315583:                  ASSPAR
37657 @ 315584:                  CALL  
37658 @ 315585:                  LOCATE L_0004

  6098           %CYCLE CPTR=1,1,CMAX-1
37659 @ 315588:                  LINE   6098 "regression-compile-tmp/imp918s.imp"
37660 @ 315626:                  PUSH   CPTR
37661 @ 315629:                  PUSHI  #0x00000001
37662 @ 315634:                  PUSH   CMAX
37663 @ 315637:                  PUSHI  #0x00000001
37664 @ 315642:                  SUB   
37665 @ 315643:                  PUSHI  #0x00000001
37666 @ 315648:                  FOR    L_0003

  6099              C1==CLIST(CPTR)
37667 @ 315651:                  LINE   6099 "regression-compile-tmp/imp918s.imp"
37668 @ 315689:                  PUSH   C1
37669 @ 315692:                  PUSH   CLIST
37670 @ 315695:                  PUSH   CPTR
37671 @ 315698:                  ACCESS
37672 @ 315699:                  ASSREF

  6100              L=C1_LVL; LL=L;            ! LL FOR LOWEST LEVEL ENROUTE
37673 @ 315700:                  LINE   6100 "regression-compile-tmp/imp918s.imp"
37674 @ 315738:                  PUSH   L
37675 @ 315741:                  PUSH   C1
37676 @ 315744:                  SELECT 5
37677 @ 315747:                  ASSVAL
37678 @ 315748:                  LINE   6100 "regression-compile-tmp/imp918s.imp"
37679 @ 315786:                  PUSH   LL
37680 @ 315789:                  PUSH   L
37681 @ 315792:                  ASSVAL

  6101              %CYCLE II=CPTR+1,1,CMAX+1
37682 @ 315793:                  LINE   6101 "regression-compile-tmp/imp918s.imp"
37683 @ 315831:                  PUSH   II
37684 @ 315834:                  PUSHI  #0x00000001
37685 @ 315839:                  PUSH   CMAX
37686 @ 315842:                  PUSHI  #0x00000001
37687 @ 315847:                  ADD   
37688 @ 315848:                  PUSH   CPTR
37689 @ 315851:                  PUSHI  #0x00000001
37690 @ 315856:                  ADD   
37691 @ 315857:                  FOR    L_0006

  6102                C2==CLIST(II)
37692 @ 315860:                  LINE   6102 "regression-compile-tmp/imp918s.imp"
37693 @ 315898:                  PUSH   C2
37694 @ 315901:                  PUSH   CLIST
37695 @ 315904:                  PUSH   II
37696 @ 315907:                  ACCESS
37697 @ 315908:                  ASSREF

  6103                %EXIT %IF C1_TF#C2_TF %AND C2_LVL<LL
37698 @ 315909:                  LINE   6103 "regression-compile-tmp/imp918s.imp"
37699 @ 315947:                  PUSH   C1
37700 @ 315950:                  SELECT 1
37701 @ 315953:                  PUSH   C2
37702 @ 315956:                  SELECT 1
37703 @ 315959:                  JUMPIF = L_000a
37704 @ 315963:                  PUSH   C2
37705 @ 315966:                  SELECT 5
37706 @ 315969:                  PUSH   LL
37707 @ 315972:                  JUMPIF >= L_000a
37708 @ 315976:                  GOTO   L_0007
37709 @ 315979:                  LOCATE L_000a

  6104                %IF C2_LVL<LL %THEN LL=C2_LVL
37710 @ 315982:                  LINE   6104 "regression-compile-tmp/imp918s.imp"
37711 @ 316020:                  PUSH   C2
37712 @ 316023:                  SELECT 5
37713 @ 316026:                  PUSH   LL
37714 @ 316029:                  JUMPIF >= L_000a
37715 @ 316033:                  PUSH   LL
37716 @ 316036:                  PUSH   C2
37717 @ 316039:                  SELECT 5
37718 @ 316042:                  ASSVAL
37719 @ 316043:                  LOCATE L_000a

  6105              %REPEAT
37720 @ 316046:                  LINE   6105 "regression-compile-tmp/imp918s.imp"
37721 @ 316084:                  REPEAT L_0006
37722 @ 316087:                  LOCATE L_0007

  6106              C1_JMP=II;                 ! CLAUSE TO JUMP TO
37723 @ 316090:                  LINE   6106 "regression-compile-tmp/imp918s.imp"
37724 @ 316128:                  PUSH   C1
37725 @ 316131:                  SELECT 6
37726 @ 316134:                  PUSH   II
37727 @ 316137:                  ASSVAL

  6107              C2_LABU=C2_LABU+1
37728 @ 316138:                  LINE   6107 "regression-compile-tmp/imp918s.imp"
37729 @ 316176:                  PUSH   C2
37730 @ 316179:                  SELECT 4
37731 @ 316182:                  PUSH   C2
37732 @ 316185:                  SELECT 4
37733 @ 316188:                  PUSHI  #0x00000001
37734 @ 316193:                  ADD   
37735 @ 316194:                  ASSVAL

  6108               %IF C1_CMP2#0 %OR C1_CMP1=8 %START; ! D-SIDED OR RESLN
  6109                                         ! REQIUIRES A LABEL ON THE
37736 @ 316195:                  LINE   6108 "regression-compile-tmp/imp918s.imp"
37737 @ 316233:                  PUSH   C1
37738 @ 316236:                  SELECT 3
37739 @ 316239:                  PUSHI  #0x00000000
37740 @ 316244:                  JUMPIF # L_0008
37741 @ 316248:                  PUSH   C1
37742 @ 316251:                  SELECT 2
37743 @ 316254:                  PUSHI  #0x00000008
37744 @ 316259:                  JUMPIF # L_0007
37745 @ 316263:                  LOCATE L_0008

  6110                 C1_LABU=C1_LABU+1;      ! THE NEXT SIMPLE CONDITION
37746 @ 316266:                  LINE   6110 "regression-compile-tmp/imp918s.imp"
37747 @ 316304:                  PUSH   C1
37748 @ 316307:                  SELECT 4
37749 @ 316310:                  PUSH   C1
37750 @ 316313:                  SELECT 4
37751 @ 316316:                  PUSHI  #0x00000001
37752 @ 316321:                  ADD   
37753 @ 316322:                  ASSVAL

  6111              %FINISH
37754 @ 316323:                  LINE   6111 "regression-compile-tmp/imp918s.imp"
37755 @ 316361:                  LOCATE L_0007

  6112              %IF C1_LABU#0 %AND C1_LABNO<=0 %THEN PLABEL=PLABEL-1 %C
  6113                                             %AND C1_LABNO=PLABEL
37756 @ 316364:                  LINE   6112 "regression-compile-tmp/imp918s.imp"
37757 @ 316402:                  PUSH   C1
37758 @ 316405:                  SELECT 4
37759 @ 316408:                  PUSHI  #0x00000000
37760 @ 316413:                  JUMPIF = L_0007
37761 @ 316417:                  PUSH   C1
37762 @ 316420:                  SELECT 7
37763 @ 316423:                  PUSHI  #0x00000000
37764 @ 316428:                  JUMPIF > L_0007
37765 @ 316432:                  PUSH   PLABEL
37766 @ 316435:                  PUSH   PLABEL
37767 @ 316438:                  PUSHI  #0x00000001
37768 @ 316443:                  SUB   
37769 @ 316444:                  ASSVAL
37770 @ 316445:                  PUSH   C1
37771 @ 316448:                  SELECT 7
37772 @ 316451:                  PUSH   PLABEL
37773 @ 316454:                  ASSVAL
37774 @ 316455:                  LOCATE L_0007

  6114           %REPEAT
  6115  !
  6116  ! PASS 4 GENERATE THE CODE
  6117  !
  6118  !         WRITE CONDLIST %IF DCOMP=1
37775 @ 316458:                  LINE   6114 "regression-compile-tmp/imp918s.imp"
37776 @ 316496:                  REPEAT L_0003
37777 @ 316499:                  LOCATE L_0004

  6119           %CYCLE CPTR=1,1,CMAX-1
37778 @ 316502:                  LINE   6119 "regression-compile-tmp/imp918s.imp"
37779 @ 316540:                  PUSH   CPTR
37780 @ 316543:                  PUSHI  #0x00000001
37781 @ 316548:                  PUSH   CMAX
37782 @ 316551:                  PUSHI  #0x00000001
37783 @ 316556:                  SUB   
37784 @ 316557:                  PUSHI  #0x00000001
37785 @ 316562:                  FOR    L_0003

  6120              C1==CLIST(CPTR)
37786 @ 316565:                  LINE   6120 "regression-compile-tmp/imp918s.imp"
37787 @ 316603:                  PUSH   C1
37788 @ 316606:                  PUSH   CLIST
37789 @ 316609:                  PUSH   CPTR
37790 @ 316612:                  ACCESS
37791 @ 316613:                  ASSREF

  6121              CCOMP
37792 @ 316614:                  LINE   6121 "regression-compile-tmp/imp918s.imp"
37793 @ 316652:                  PUSH   CCOMP
37794 @ 316655:                  CALL  

  6122              %IF C1_LABNO>0 %THEN ENTER LAB(C1_LABNO,B'11')
37795 @ 316656:                  LINE   6122 "regression-compile-tmp/imp918s.imp"
37796 @ 316694:                  PUSH   C1
37797 @ 316697:                  SELECT 7
37798 @ 316700:                  PUSHI  #0x00000000
37799 @ 316705:                  JUMPIF <= L_0007
37800 @ 316709:                  PUSH   ENTERLAB
37801 @ 316712:                  PUSH   C1
37802 @ 316715:                  SELECT 7
37803 @ 316718:                  ASSPAR
37804 @ 316719:                  PUSHI  #0x00000003
37805 @ 316724:                  ASSPAR
37806 @ 316725:                  CALL  
37807 @ 316726:                  LOCATE L_0007

  6123           %REPEAT
  6124  !
37808 @ 316729:                  LINE   6123 "regression-compile-tmp/imp918s.imp"
37809 @ 316767:                  REPEAT L_0003
37810 @ 316770:                  LOCATE L_0004

  6125           P=PP; %RETURN
37811 @ 316773:                  LINE   6125 "regression-compile-tmp/imp918s.imp"
37812 @ 316811:                  PUSH   P
37813 @ 316814:                  PUSH   PP
37814 @ 316817:                  ASSVAL
37815 @ 316818:                  LINE   6125 "regression-compile-tmp/imp918s.imp"
37816 @ 316856:                  RETURN

  6126           %ROUTINE SKIP SC
  6127  !***********************************************************************
  6128  !*       SKIPS OVER A SIMPLE CONDITION. P ON ALT OF<SC>                *
  6129  !***********************************************************************
37817 @ 316857:                  LINE   6126 "regression-compile-tmp/imp918s.imp"
37818 @ 316895:                  DEF    SKIPSC (_lev0id0_CSS_CCOND_SKIPSC) p1=V_0205 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
37819 @ 316913:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
37820 @ 316914:                     FINISH ) {lev=4}

  6130           %INTEGER ALT
37821 @ 316915:                     LINE   6130 "regression-compile-tmp/imp918s.imp"
37822 @ 316953:                     DEF    ALT p1=V_0214 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

  6131           ALT=A(P); P=P+1
37823 @ 316968:                     LINE   6131 "regression-compile-tmp/imp918s.imp"
37824 @ 317006:                     PUSH   ALT
37825 @ 317009:                     PUSH   A
37826 @ 317012:                     PUSH   P
37827 @ 317015:                     ACCESS
37828 @ 317016:                     ASSVAL
37829 @ 317017:                     LINE   6131 "regression-compile-tmp/imp918s.imp"
37830 @ 317055:                     PUSH   P
37831 @ 317058:                     PUSH   P
37832 @ 317061:                     PUSHI  #0x00000001
37833 @ 317066:                     ADD   
37834 @ 317067:                     ASSVAL

  6132           %IF ALT=1 %THEN %START;      ! <EXP><COMP><EXP><SECONDSIDE>
37835 @ 317068:                     LINE   6132 "regression-compile-tmp/imp918s.imp"
37836 @ 317106:                     PUSH   ALT
37837 @ 317109:                     PUSHI  #0x00000001
37838 @ 317114:                     JUMPIF # L_0004

  6133              C1_SP1=P-PIN
37839 @ 317118:                     LINE   6133 "regression-compile-tmp/imp918s.imp"
37840 @ 317156:                     PUSH   C1
37841 @ 317159:                     SELECT 8
37842 @ 317162:                     PUSH   P
37843 @ 317165:                     PUSH   PIN
37844 @ 317168:                     SUB   
37845 @ 317169:                     ASSVAL

  6134              SKIP EXP
37846 @ 317170:                     LINE   6134 "regression-compile-tmp/imp918s.imp"
37847 @ 317208:                     PUSH   SKIPEXP
37848 @ 317211:                     CALL  

  6135              C1_CMP1=A(P)
37849 @ 317212:                     LINE   6135 "regression-compile-tmp/imp918s.imp"
37850 @ 317250:                     PUSH   C1
37851 @ 317253:                     SELECT 2
37852 @ 317256:                     PUSH   A
37853 @ 317259:                     PUSH   P
37854 @ 317262:                     ACCESS
37855 @ 317263:                     ASSVAL

  6136              P=P+1; C1_SP2=P-PIN
37856 @ 317264:                     LINE   6136 "regression-compile-tmp/imp918s.imp"
37857 @ 317302:                     PUSH   P
37858 @ 317305:                     PUSH   P
37859 @ 317308:                     PUSHI  #0x00000001
37860 @ 317313:                     ADD   
37861 @ 317314:                     ASSVAL
37862 @ 317315:                     LINE   6136 "regression-compile-tmp/imp918s.imp"
37863 @ 317353:                     PUSH   C1
37864 @ 317356:                     SELECT 9
37865 @ 317359:                     PUSH   P
37866 @ 317362:                     PUSH   PIN
37867 @ 317365:                     SUB   
37868 @ 317366:                     ASSVAL

  6137              SKIP EXP
37869 @ 317367:                     LINE   6137 "regression-compile-tmp/imp918s.imp"
37870 @ 317405:                     PUSH   SKIPEXP
37871 @ 317408:                     CALL  

  6138              %IF A(P)=2 %THEN P=P+1 %ELSE %START
37872 @ 317409:                     LINE   6138 "regression-compile-tmp/imp918s.imp"
37873 @ 317447:                     PUSH   A
37874 @ 317450:                     PUSH   P
37875 @ 317453:                     ACCESS
37876 @ 317454:                     PUSHI  #0x00000002
37877 @ 317459:                     JUMPIF # L_0007
37878 @ 317463:                     PUSH   P
37879 @ 317466:                     PUSH   P
37880 @ 317469:                     PUSHI  #0x00000001
37881 @ 317474:                     ADD   
37882 @ 317475:                     ASSVAL
37883 @ 317476:                     GOTO   L_0006
37884 @ 317479:                     LOCATE L_0007

  6139                 C1_CMP2=A(P+1);        ! DEAL WITH 2ND HALF OF D-SIDED
37885 @ 317482:                     LINE   6139 "regression-compile-tmp/imp918s.imp"
37886 @ 317520:                     PUSH   C1
37887 @ 317523:                     SELECT 3
37888 @ 317526:                     PUSH   A
37889 @ 317529:                     PUSH   P
37890 @ 317532:                     PUSHI  #0x00000001
37891 @ 317537:                     ADD   
37892 @ 317538:                     ACCESS
37893 @ 317539:                     ASSVAL

  6140                 P=P+2; SKIP EXP
37894 @ 317540:                     LINE   6140 "regression-compile-tmp/imp918s.imp"
37895 @ 317578:                     PUSH   P
37896 @ 317581:                     PUSH   P
37897 @ 317584:                     PUSHI  #0x00000002
37898 @ 317589:                     ADD   
37899 @ 317590:                     ASSVAL
37900 @ 317591:                     LINE   6140 "regression-compile-tmp/imp918s.imp"
37901 @ 317629:                     PUSH   SKIPEXP
37902 @ 317632:                     CALL  

  6141              %FINISH
37903 @ 317633:                     LINE   6141 "regression-compile-tmp/imp918s.imp"
37904 @ 317671:                     LOCATE L_0006

  6142           %FINISH %ELSE %START;        ! '('<SC><RESTOFCOND>')'
37905 @ 317674:                     LINE   6142 "regression-compile-tmp/imp918s.imp"
37906 @ 317712:                     GOTO   L_0003
37907 @ 317715:                     LOCATE L_0004

  6143               L=L+1
37908 @ 317718:                     LINE   6143 "regression-compile-tmp/imp918s.imp"
37909 @ 317756:                     PUSH   L
37910 @ 317759:                     PUSH   L
37911 @ 317762:                     PUSHI  #0x00000001
37912 @ 317767:                     ADD   
37913 @ 317768:                     ASSVAL

  6144               SKIP SC
37914 @ 317769:                     LINE   6144 "regression-compile-tmp/imp918s.imp"
37915 @ 317807:                     PUSH   SKIPSC
37916 @ 317810:                     CALL  

  6145               SKIP COND
37917 @ 317811:                     LINE   6145 "regression-compile-tmp/imp918s.imp"
37918 @ 317849:                     PUSH   SKIPCOND
37919 @ 317852:                     CALL  

  6146               L=L-1
37920 @ 317853:                     LINE   6146 "regression-compile-tmp/imp918s.imp"
37921 @ 317891:                     PUSH   L
37922 @ 317894:                     PUSH   L
37923 @ 317897:                     PUSHI  #0x00000001
37924 @ 317902:                     SUB   
37925 @ 317903:                     ASSVAL

  6147           %FINISH
37926 @ 317904:                     LINE   6147 "regression-compile-tmp/imp918s.imp"
37927 @ 317942:                     LOCATE L_0003

  6148           %END;                        ! OF ROUTINE SKIP SC
37928 @ 317945:                     LINE   6148 "regression-compile-tmp/imp918s.imp"
37929 @ 317983:                  END    _lev0id0_CSS_CCOND_SKIPSC {lev=4 --> 3}

  6149           %ROUTINE SKIP COND
  6150  !***********************************************************************
  6151  !*       SKIPS OVER <RESTOFCOND>                                       *
  6152  !***********************************************************************
37930 @ 317984:                  LINE   6149 "regression-compile-tmp/imp918s.imp"
37931 @ 318022:                  DEF    SKIPCOND (_lev0id0_CSS_CCOND_SKIPCOND) p1=V_0206 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
37932 @ 318042:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
37933 @ 318043:                     FINISH ) {lev=4}

  6153           %INTEGER ALT,ALTP
37934 @ 318044:                     LINE   6153 "regression-compile-tmp/imp918s.imp"
37935 @ 318082:                     DEF    ALT p1=V_0214 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
37936 @ 318097:                     DEF    ALTP p1=V_0215 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

  6154           ALT=A(P);                      ! 1=%AND<ANDC>,2=%OR<ORC>,3=NULL
37937 @ 318113:                     LINE   6154 "regression-compile-tmp/imp918s.imp"
37938 @ 318151:                     PUSH   ALT
37939 @ 318154:                     PUSH   A
37940 @ 318157:                     PUSH   P
37941 @ 318160:                     ACCESS
37942 @ 318161:                     ASSVAL

  6155           P=P+1
37943 @ 318162:                     LINE   6155 "regression-compile-tmp/imp918s.imp"
37944 @ 318200:                     PUSH   P
37945 @ 318203:                     PUSH   P
37946 @ 318206:                     PUSHI  #0x00000001
37947 @ 318211:                     ADD   
37948 @ 318212:                     ASSVAL

  6156           %IF ALT\=3 %THEN %START;       ! NULL ALTERNATIVE NOTHING TO DO
37949 @ 318213:                     LINE   6156 "regression-compile-tmp/imp918s.imp"
37950 @ 318251:                     PUSH   ALT
37951 @ 318254:                     PUSHI  #0x00000003
37952 @ 318259:                     JUMPIF = L_0004

  6157              %CYCLE;       ! UNTIL NO MORE <SC>S
37953 @ 318263:                     LINE   6157 "regression-compile-tmp/imp918s.imp"
37954 @ 318301:                     LOCATE L_0006

  6158                 C1_LVL=L; C1_TF=ALT
37955 @ 318304:                     LINE   6158 "regression-compile-tmp/imp918s.imp"
37956 @ 318342:                     PUSH   C1
37957 @ 318345:                     SELECT 5
37958 @ 318348:                     PUSH   L
37959 @ 318351:                     ASSVAL
37960 @ 318352:                     LINE   6158 "regression-compile-tmp/imp918s.imp"
37961 @ 318390:                     PUSH   C1
37962 @ 318393:                     SELECT 1
37963 @ 318396:                     PUSH   ALT
37964 @ 318399:                     ASSVAL

  6159                 CPTR=CPTR+1
37965 @ 318400:                     LINE   6159 "regression-compile-tmp/imp918s.imp"
37966 @ 318438:                     PUSH   CPTR
37967 @ 318441:                     PUSH   CPTR
37968 @ 318444:                     PUSHI  #0x00000001
37969 @ 318449:                     ADD   
37970 @ 318450:                     ASSVAL

  6160                 C1==CLIST(CPTR); C1=0
37971 @ 318451:                     LINE   6160 "regression-compile-tmp/imp918s.imp"
37972 @ 318489:                     PUSH   C1
37973 @ 318492:                     PUSH   CLIST
37974 @ 318495:                     PUSH   CPTR
37975 @ 318498:                     ACCESS
37976 @ 318499:                     ASSREF
37977 @ 318500:                     LINE   6160 "regression-compile-tmp/imp918s.imp"
37978 @ 318538:                     PUSH   C1
37979 @ 318541:                     PUSHI  #0x00000000
37980 @ 318546:                     ASSVAL

  6161                 SKIP SC
37981 @ 318547:                     LINE   6161 "regression-compile-tmp/imp918s.imp"
37982 @ 318585:                     PUSH   SKIPSC
37983 @ 318588:                     CALL  

  6162                 ALTP=A(P); P=P+1
37984 @ 318589:                     LINE   6162 "regression-compile-tmp/imp918s.imp"
37985 @ 318627:                     PUSH   ALTP
37986 @ 318630:                     PUSH   A
37987 @ 318633:                     PUSH   P
37988 @ 318636:                     ACCESS
37989 @ 318637:                     ASSVAL
37990 @ 318638:                     LINE   6162 "regression-compile-tmp/imp918s.imp"
37991 @ 318676:                     PUSH   P
37992 @ 318679:                     PUSH   P
37993 @ 318682:                     PUSHI  #0x00000001
37994 @ 318687:                     ADD   
37995 @ 318688:                     ASSVAL

  6163              %REPEAT %UNTIL ALTP=2
37996 @ 318689:                     LINE   6163 "regression-compile-tmp/imp918s.imp"
37997 @ 318727:                     PUSH   ALTP
37998 @ 318730:                     PUSHI  #0x00000002
37999 @ 318735:                     JUMPIF = L_0007
38000 @ 318739:                     REPEAT L_0006
38001 @ 318742:                     LOCATE L_0007

  6164           %FINISH
38002 @ 318745:                     LINE   6164 "regression-compile-tmp/imp918s.imp"
38003 @ 318783:                     LOCATE L_0004

  6165           %END
  6166  !         %ROUTINE WRITE CONDLIST
  6167  !         %CONSTSTRING(5) %ARRAY CM(0:8)='     ','    =','   >=','    >',
  6168  !                                '    #','   <=','    <','   \=','   ->'
  6169  !         PRINTSTRING("
  6170  ! NO   TF   C1   C2   LABU   LVL  JMP  LABNO
  6171  !")
  6172  !         %CYCLE CPTR=1,1,CMAX
  6173  !            C1==CLIST(CPTR)
  6174  !            WRITE(CPTR,2)
  6175  !            WRITE(C1_TF,4)
  6176  !            PRINTSTRING(CM(C1_CMP1))
  6177  !            PRINTSTRING(CM(C1_CMP2))
  6178  !            WRITE(C1_LABU,6)
  6179  !            WRITE(C1_LVL,5)
  6180  !            WRITE(C1_JMP,4)
  6181  !            WRITE(C1_LABNO,7)
  6182  !            NEWLINE
  6183  !         %REPEAT
  6184  !         %END
38004 @ 318786:                     LINE   6165 "regression-compile-tmp/imp918s.imp"
38005 @ 318824:                  END    _lev0id0_CSS_CCOND_SKIPCOND {lev=4 --> 3}

  6185           %ROUTINE CCOMP
  6186  !***********************************************************************
  6187  !*       COMPILES A COMPARISION: THREE DIFFERENT CASES                 *
  6188  !*       1) ARITHMETIC EXPRESSIONS EXPOP IS USED                       *
  6189  !*       2) STRING EXPRESSION AD-HOC CODE PLANTED BY THIS ROUTINE      *
  6190  !*       3) RESOLUTIONS - CRES CAN BE USED                             *
  6191  !***********************************************************************
38006 @ 318825:                  LINE   6185 "regression-compile-tmp/imp918s.imp"
38007 @ 318863:                  DEF    CCOMP (_lev0id0_CSS_CCOND_CCOMP) p1=V_0207 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
38008 @ 318880:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
38009 @ 318881:                     FINISH ) {lev=4}

  6192           %ROUTINESPEC ACOMP(%INTEGER TF,LAB)
38010 @ 318882:                     LINE   6192 "regression-compile-tmp/imp918s.imp"
38011 @ 318920:                     DEF    ACOMP (_lev0id0_CSS_CCOND_CCOMP_ACOMP) p1=V_0214 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
38012 @ 318937:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
38013 @ 318938:                        DEF    TF p1=V_0215 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
38014 @ 318952:                        DEF    LAB p1=V_0216 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
38015 @ 318967:                     FINISH ) {lev=4}

  6193           %ROUTINESPEC SCOMP(%INTEGER TF,LAB,%INTEGERNAME WA)
38016 @ 318968:                     LINE   6193 "regression-compile-tmp/imp918s.imp"
38017 @ 319006:                     DEF    SCOMP (_lev0id0_CSS_CCOND_CCOMP_SCOMP) p1=V_0215 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
38018 @ 319023:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
38019 @ 319024:                        DEF    TF p1=V_0216 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
38020 @ 319038:                        DEF    LAB p1=V_0217 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
38021 @ 319053:                        DEF    WA p1=V_0218 a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
38022 @ 319067:                     FINISH ) {lev=4}

  6194           %SHORTINTEGER HEAD1,HEAD2,NOPS,BOT1,BOT2
38023 @ 319068:                     LINE   6194 "regression-compile-tmp/imp918s.imp"
38024 @ 319106:                     DEF    HEAD1 p1=V_0216 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
38025 @ 319123:                     DEF    HEAD2 p1=V_0217 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
38026 @ 319140:                     DEF    NOPS p1=V_0218 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
38027 @ 319156:                     DEF    BOT1 p1=V_0219 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
38028 @ 319172:                     DEF    BOT2 p1=V_021a a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0

  6195           %INTEGER TE1,TE2,TEX1,TEX2,MASK,P1,P2
38029 @ 319188:                     LINE   6195 "regression-compile-tmp/imp918s.imp"
38030 @ 319226:                     DEF    TE1 p1=V_021b 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
38031 @ 319241:                     DEF    TE2 p1=V_021c 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
38032 @ 319256:                     DEF    TEX1 p1=V_021d 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
38033 @ 319272:                     DEF    TEX2 p1=V_021e 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
38034 @ 319288:                     DEF    MASK p1=V_021f 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
38035 @ 319304:                     DEF    P1 p1=V_0220 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
38036 @ 319318:                     DEF    P2 p1=V_0221 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

  6196           %INTEGER FEXIT,IEXIT,CMP,WA1,WA2,WA3,DISPP,BASEP,LL
  6197  !
38037 @ 319332:                     LINE   6196 "regression-compile-tmp/imp918s.imp"
38038 @ 319370:                     DEF    FEXIT p1=V_0222 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
38039 @ 319387:                     DEF    IEXIT p1=V_0223 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
38040 @ 319404:                     DEF    CMP p1=V_0224 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
38041 @ 319419:                     DEF    WA1 p1=V_0225 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
38042 @ 319434:                     DEF    WA2 p1=V_0226 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
38043 @ 319449:                     DEF    WA3 p1=V_0227 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
38044 @ 319464:                     DEF    DISPP p1=V_0228 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
38045 @ 319481:                     DEF    BASEP p1=V_0229 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
38046 @ 319498:                     DEF    LL p1=V_022a 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

  6198           HEAD1=0; HEAD2=0; NOPS=0; BOT1=0; BOT2=0
38047 @ 319512:                     LINE   6198 "regression-compile-tmp/imp918s.imp"
38048 @ 319550:                     PUSH   HEAD1
38049 @ 319553:                     PUSHI  #0x00000000
38050 @ 319558:                     ASSVAL
38051 @ 319559:                     LINE   6198 "regression-compile-tmp/imp918s.imp"
38052 @ 319597:                     PUSH   HEAD2
38053 @ 319600:                     PUSHI  #0x00000000
38054 @ 319605:                     ASSVAL
38055 @ 319606:                     LINE   6198 "regression-compile-tmp/imp918s.imp"
38056 @ 319644:                     PUSH   NOPS
38057 @ 319647:                     PUSHI  #0x00000000
38058 @ 319652:                     ASSVAL
38059 @ 319653:                     LINE   6198 "regression-compile-tmp/imp918s.imp"
38060 @ 319691:                     PUSH   BOT1
38061 @ 319694:                     PUSHI  #0x00000000
38062 @ 319699:                     ASSVAL
38063 @ 319700:                     LINE   6198 "regression-compile-tmp/imp918s.imp"
38064 @ 319738:                     PUSH   BOT2
38065 @ 319741:                     PUSHI  #0x00000000
38066 @ 319746:                     ASSVAL

  6199           FEXIT=CLIST(C1_JMP)_LABNO;    ! FINAL EXIT
38067 @ 319747:                     LINE   6199 "regression-compile-tmp/imp918s.imp"
38068 @ 319785:                     PUSH   FEXIT
38069 @ 319788:                     PUSH   CLIST
38070 @ 319791:                     PUSH   C1
38071 @ 319794:                     SELECT 6
38072 @ 319797:                     ACCESS
38073 @ 319798:                     SELECT 7
38074 @ 319801:                     ASSVAL

  6200           IEXIT=FEXIT;                  ! INTERMEDIATE EXIT (D-SIDED ETC)
38075 @ 319802:                     LINE   6200 "regression-compile-tmp/imp918s.imp"
38076 @ 319840:                     PUSH   IEXIT
38077 @ 319843:                     PUSH   FEXIT
38078 @ 319846:                     ASSVAL

  6201           %IF C1_TF=2 %AND (C1_CMP1=8 %OR C1_CMP2#0) %THEN %C
  6202                        IEXIT=C1_LABNO
  6203  !
38079 @ 319847:                     LINE   6201 "regression-compile-tmp/imp918s.imp"
38080 @ 319885:                     PUSH   C1
38081 @ 319888:                     SELECT 1
38082 @ 319891:                     PUSHI  #0x00000002
38083 @ 319896:                     JUMPIF # L_0004
38084 @ 319900:                     PUSH   C1
38085 @ 319903:                     SELECT 2
38086 @ 319906:                     PUSHI  #0x00000008
38087 @ 319911:                     JUMPIF = L_0005
38088 @ 319915:                     PUSH   C1
38089 @ 319918:                     SELECT 3
38090 @ 319921:                     PUSHI  #0x00000000
38091 @ 319926:                     JUMPIF = L_0004
38092 @ 319930:                     LOCATE L_0005
38093 @ 319933:                     PUSH   IEXIT
38094 @ 319936:                     PUSH   C1
38095 @ 319939:                     SELECT 7
38096 @ 319942:                     ASSVAL
38097 @ 319943:                     LOCATE L_0004

  6204           P=PIN+C1_SP2
38098 @ 319946:                     LINE   6204 "regression-compile-tmp/imp918s.imp"
38099 @ 319984:                     PUSH   P
38100 @ 319987:                     PUSH   PIN
38101 @ 319990:                     PUSH   C1
38102 @ 319993:                     SELECT 9
38103 @ 319996:                     ADD   
38104 @ 319997:                     ASSVAL

  6205           P2=P; P1=PIN+C1_SP1
38105 @ 319998:                     LINE   6205 "regression-compile-tmp/imp918s.imp"
38106 @ 320036:                     PUSH   P2
38107 @ 320039:                     PUSH   P
38108 @ 320042:                     ASSVAL
38109 @ 320043:                     LINE   6205 "regression-compile-tmp/imp918s.imp"
38110 @ 320081:                     PUSH   P1
38111 @ 320084:                     PUSH   PIN
38112 @ 320087:                     PUSH   C1
38113 @ 320090:                     SELECT 8
38114 @ 320093:                     ADD   
38115 @ 320094:                     ASSVAL

  6206           %IF C1_CMP1=8 %OR C1_CMP2=8 %THEN %START
  6207                                         ! CONDITIONAL RESOLUTION
  6208                                         ! NB CRES BRANCHES ON FALSE!!
38116 @ 320095:                     LINE   6206 "regression-compile-tmp/imp918s.imp"
38117 @ 320133:                     PUSH   C1
38118 @ 320136:                     SELECT 2
38119 @ 320139:                     PUSHI  #0x00000008
38120 @ 320144:                     JUMPIF = L_0005
38121 @ 320148:                     PUSH   C1
38122 @ 320151:                     SELECT 3
38123 @ 320154:                     PUSHI  #0x00000008
38124 @ 320159:                     JUMPIF # L_0004
38125 @ 320163:                     LOCATE L_0005

  6209              P=P1
38126 @ 320166:                     LINE   6209 "regression-compile-tmp/imp918s.imp"
38127 @ 320204:                     PUSH   P
38128 @ 320207:                     PUSH   P1
38129 @ 320210:                     ASSVAL

  6210              %IF C1_CMP2=0 %AND A(P+2)=4 %AND A(P+3)=1 %START
38130 @ 320211:                     LINE   6210 "regression-compile-tmp/imp918s.imp"
38131 @ 320249:                     PUSH   C1
38132 @ 320252:                     SELECT 3
38133 @ 320255:                     PUSHI  #0x00000000
38134 @ 320260:                     JUMPIF # L_0007
38135 @ 320264:                     PUSH   A
38136 @ 320267:                     PUSH   P
38137 @ 320270:                     PUSHI  #0x00000002
38138 @ 320275:                     ADD   
38139 @ 320276:                     ACCESS
38140 @ 320277:                     PUSHI  #0x00000004
38141 @ 320282:                     JUMPIF # L_0007
38142 @ 320286:                     PUSH   A
38143 @ 320289:                     PUSH   P
38144 @ 320292:                     PUSHI  #0x00000003
38145 @ 320297:                     ADD   
38146 @ 320298:                     ACCESS
38147 @ 320299:                     PUSHI  #0x00000001
38148 @ 320304:                     JUMPIF # L_0007

  6211                 P=P+4; CNAME(5,1);      ! LH STRING TO REGISTER 1
38149 @ 320308:                     LINE   6211 "regression-compile-tmp/imp918s.imp"
38150 @ 320346:                     PUSH   P
38151 @ 320349:                     PUSH   P
38152 @ 320352:                     PUSHI  #0x00000004
38153 @ 320357:                     ADD   
38154 @ 320358:                     ASSVAL
38155 @ 320359:                     LINE   6211 "regression-compile-tmp/imp918s.imp"
38156 @ 320397:                     PUSH   CNAME
38157 @ 320400:                     PUSHI  #0x00000005
38158 @ 320405:                     ASSPAR
38159 @ 320406:                     PUSHI  #0x00000001
38160 @ 320411:                     ASSPAR
38161 @ 320412:                     CALL  

  6212                 %IF A(P)=2 %AND TYPE=5 %THEN %START
38162 @ 320413:                     LINE   6212 "regression-compile-tmp/imp918s.imp"
38163 @ 320451:                     PUSH   A
38164 @ 320454:                     PUSH   P
38165 @ 320457:                     ACCESS
38166 @ 320458:                     PUSHI  #0x00000002
38167 @ 320463:                     JUMPIF # L_000a
38168 @ 320467:                     PUSH   TYPE
38169 @ 320470:                     PUSHI  #0x00000005
38170 @ 320475:                     JUMPIF # L_000a

  6213                    P=P2
38171 @ 320479:                     LINE   6213 "regression-compile-tmp/imp918s.imp"
38172 @ 320517:                     PUSH   P
38173 @ 320520:                     PUSH   P2
38174 @ 320523:                     ASSVAL

  6214                    CRES(IEXIT);         ! FAILURES -> IEXIT
38175 @ 320524:                     LINE   6214 "regression-compile-tmp/imp918s.imp"
38176 @ 320562:                     PUSH   CRES
38177 @ 320565:                     PUSH   IEXIT
38178 @ 320568:                     ASSPAR
38179 @ 320569:                     CALL  

  6215                    %IF C1_TF=2 %THEN MASK=15 %AND ->TBRANCH
38180 @ 320570:                     LINE   6215 "regression-compile-tmp/imp918s.imp"
38181 @ 320608:                     PUSH   C1
38182 @ 320611:                     SELECT 1
38183 @ 320614:                     PUSHI  #0x00000002
38184 @ 320619:                     JUMPIF # L_000d
38185 @ 320623:                     PUSH   MASK
38186 @ 320626:                     PUSHI  #0x0000000f
38187 @ 320631:                     ASSVAL
38188 @ 320632:                     JUMP   L_022b
38189 @ 320635:                     LOCATE L_000d

  6216                    %RETURN
38190 @ 320638:                     LINE   6216 "regression-compile-tmp/imp918s.imp"
38191 @ 320676:                     RETURN

  6217                 %FINISH
38192 @ 320677:                     LINE   6217 "regression-compile-tmp/imp918s.imp"
38193 @ 320715:                     LOCATE L_000a

  6218              %FINISH
38194 @ 320718:                     LINE   6218 "regression-compile-tmp/imp918s.imp"
38195 @ 320756:                     LOCATE L_0007

  6219              FAULT(73,0)
38196 @ 320759:                     LINE   6219 "regression-compile-tmp/imp918s.imp"
38197 @ 320797:                     PUSH   FAULT
38198 @ 320800:                     PUSHI  #0x00000049
38199 @ 320805:                     ASSPAR
38200 @ 320806:                     PUSHI  #0x00000000
38201 @ 320811:                     ASSPAR
38202 @ 320812:                     CALL  

  6220              %RETURN
38203 @ 320813:                     LINE   6220 "regression-compile-tmp/imp918s.imp"
38204 @ 320851:                     RETURN

  6221           %FINISH
38205 @ 320852:                     LINE   6221 "regression-compile-tmp/imp918s.imp"
38206 @ 320890:                     LOCATE L_0004

  6222           MASK=FCOMP(C1_CMP1)
38207 @ 320893:                     LINE   6222 "regression-compile-tmp/imp918s.imp"
38208 @ 320931:                     PUSH   MASK
38209 @ 320934:                     PUSH   FCOMP
38210 @ 320937:                     PUSH   C1
38211 @ 320940:                     SELECT 2
38212 @ 320943:                     ACCESS
38213 @ 320944:                     ASSVAL

  6223           TE2=TSEXP(TEX2,0)
38214 @ 320945:                     LINE   6223 "regression-compile-tmp/imp918s.imp"
38215 @ 320983:                     PUSH   TE2
38216 @ 320986:                     PUSH   TSEXP
38217 @ 320989:                     PUSH   TEX2
38218 @ 320992:                     ASSPAR
38219 @ 320993:                     PUSHI  #0x00000000
38220 @ 320998:                     ASSPAR
38221 @ 320999:                     CALL  
38222 @ 321000:                     ASSVAL

  6224           ->STR %IF TYPE=5
38223 @ 321001:                     LINE   6224 "regression-compile-tmp/imp918s.imp"
38224 @ 321039:                     PUSH   TYPE
38225 @ 321042:                     PUSHI  #0x00000005
38226 @ 321047:                     JUMPIF # L_0004
38227 @ 321051:                     JUMP   L_022c
38228 @ 321054:                     LOCATE L_0004

  6225           ->ARITH %UNLESS TE2=1
38229 @ 321057:                     LINE   6225 "regression-compile-tmp/imp918s.imp"
38230 @ 321095:                     PUSH   TE2
38231 @ 321098:                     PUSHI  #0x00000001
38232 @ 321103:                     JUMPIF = L_0004
38233 @ 321107:                     JUMP   L_022d
38234 @ 321110:                     LOCATE L_0004

  6226           P=P1; TE1=TSEXP(TEX1,1)
38235 @ 321113:                     LINE   6226 "regression-compile-tmp/imp918s.imp"
38236 @ 321151:                     PUSH   P
38237 @ 321154:                     PUSH   P1
38238 @ 321157:                     ASSVAL
38239 @ 321158:                     LINE   6226 "regression-compile-tmp/imp918s.imp"
38240 @ 321196:                     PUSH   TE1
38241 @ 321199:                     PUSH   TSEXP
38242 @ 321202:                     PUSH   TEX1
38243 @ 321205:                     ASSPAR
38244 @ 321206:                     PUSHI  #0x00000001
38245 @ 321211:                     ASSPAR
38246 @ 321212:                     CALL  
38247 @ 321213:                     ASSVAL

  6227           ->STR %IF TYPE=5
38248 @ 321214:                     LINE   6227 "regression-compile-tmp/imp918s.imp"
38249 @ 321252:                     PUSH   TYPE
38250 @ 321255:                     PUSHI  #0x00000005
38251 @ 321260:                     JUMPIF # L_0004
38252 @ 321264:                     JUMP   L_022c
38253 @ 321267:                     LOCATE L_0004

  6228           %IF TE1=800 %AND K<=4095 %AND C1_CMP2=0=CHECKSP %START;! X&N1=N2
38254 @ 321270:                     LINE   6228 "regression-compile-tmp/imp918s.imp"
38255 @ 321308:                     PUSH   TE1
38256 @ 321311:                     PUSHI  #0x00000320
38257 @ 321316:                     JUMPIF # L_0004
38258 @ 321320:                     PUSH   K
38259 @ 321323:                     PUSHI  #0x00000fff
38260 @ 321328:                     JUMPIF > L_0004
38261 @ 321332:                     PUSH   C1
38262 @ 321335:                     SELECT 3
38263 @ 321338:                     PUSHI  #0x00000000
38264 @ 321343:                     JUMPIFD # L_0004
38265 @ 321347:                     PUSH   CHECKSP
38266 @ 321350:                     JUMPIF # L_0004

  6229              DISPP=K+BYTES(PREC)-1; BASEP=I
38267 @ 321354:                     LINE   6229 "regression-compile-tmp/imp918s.imp"
38268 @ 321392:                     PUSH   DISPP
38269 @ 321395:                     PUSH   K
38270 @ 321398:                     PUSH   BYTES
38271 @ 321401:                     PUSH   PREC
38272 @ 321404:                     ACCESS
38273 @ 321405:                     ADD   
38274 @ 321406:                     PUSHI  #0x00000001
38275 @ 321411:                     SUB   
38276 @ 321412:                     ASSVAL
38277 @ 321413:                     LINE   6229 "regression-compile-tmp/imp918s.imp"
38278 @ 321451:                     PUSH   BASEP
38279 @ 321454:                     PUSH   I
38280 @ 321457:                     ASSVAL

  6230              %IF TEX2=0 %THEN %START
38281 @ 321458:                     LINE   6230 "regression-compile-tmp/imp918s.imp"
38282 @ 321496:                     PUSH   TEX2
38283 @ 321499:                     PUSHI  #0x00000000
38284 @ 321504:                     JUMPIF # L_0007

  6231                 MASK=FCOMP(C1_CMP1+14)
38285 @ 321508:                     LINE   6231 "regression-compile-tmp/imp918s.imp"
38286 @ 321546:                     PUSH   MASK
38287 @ 321549:                     PUSH   FCOMP
38288 @ 321552:                     PUSH   C1
38289 @ 321555:                     SELECT 2
38290 @ 321558:                     PUSHI  #0x0000000e
38291 @ 321563:                     ADD   
38292 @ 321564:                     ACCESS
38293 @ 321565:                     ASSVAL

  6232                 -> T UNDER M;           ! CAN USE TM FOR X&N1=0 IF N1<256
38294 @ 321566:                     LINE   6232 "regression-compile-tmp/imp918s.imp"
38295 @ 321604:                     JUMP   L_022e

  6233              %FINISH
38296 @ 321607:                     LINE   6233 "regression-compile-tmp/imp918s.imp"
38297 @ 321645:                     LOCATE L_0007

  6234              %IF TEX1=TEX2 %AND 7<=MASK<=8 %START;  ! X&N1<=/#>N1
38298 @ 321648:                     LINE   6234 "regression-compile-tmp/imp918s.imp"
38299 @ 321686:                     PUSH   TEX1
38300 @ 321689:                     PUSH   TEX2
38301 @ 321692:                     JUMPIF # L_0007
38302 @ 321696:                     PUSHI  #0x00000007
38303 @ 321701:                     PUSH   MASK
38304 @ 321704:                     JUMPIFD > L_0007
38305 @ 321708:                     PUSHI  #0x00000008
38306 @ 321713:                     JUMPIF > L_0007

  6235                 %IF MASK=8 %THEN MASK=1 %ELSE MASK=14
38307 @ 321717:                     LINE   6235 "regression-compile-tmp/imp918s.imp"
38308 @ 321755:                     PUSH   MASK
38309 @ 321758:                     PUSHI  #0x00000008
38310 @ 321763:                     JUMPIF # L_000a
38311 @ 321767:                     PUSH   MASK
38312 @ 321770:                     PUSHI  #0x00000001
38313 @ 321775:                     ASSVAL
38314 @ 321776:                     GOTO   L_0009
38315 @ 321779:                     LOCATE L_000a
38316 @ 321782:                     PUSH   MASK
38317 @ 321785:                     PUSHI  #0x0000000e
38318 @ 321790:                     ASSVAL
38319 @ 321791:                     LOCATE L_0009

  6236                 -> T UNDER M
38320 @ 321794:                     LINE   6236 "regression-compile-tmp/imp918s.imp"
38321 @ 321832:                     JUMP   L_022e

  6237              %FINISH
38322 @ 321835:                     LINE   6237 "regression-compile-tmp/imp918s.imp"
38323 @ 321873:                     LOCATE L_0007

  6238           %FINISH
38324 @ 321876:                     LINE   6238 "regression-compile-tmp/imp918s.imp"
38325 @ 321914:                     LOCATE L_0004

  6239  ARITH:                                 ! ARITHMETIC COMPARISIONS
38326 @ 321917:                     LINE   6239 "regression-compile-tmp/imp918s.imp"
38327 @ 321955:                     LABEL  L_022d

  6240           P=P1+2
38328 @ 321958:                     LINE   6240 "regression-compile-tmp/imp918s.imp"
38329 @ 321996:                     PUSH   P
38330 @ 321999:                     PUSH   P1
38331 @ 322002:                     PUSHI  #0x00000002
38332 @ 322007:                     ADD   
38333 @ 322008:                     ASSVAL

  6241           TORP(HEAD1,BOT1,NOPS,0);      ! FIRST EXPRESSION TO REVERSE POL
38334 @ 322009:                     LINE   6241 "regression-compile-tmp/imp918s.imp"
38335 @ 322047:                     PUSH   TORP
38336 @ 322050:                     PUSH   HEAD1
38337 @ 322053:                     ASSPAR
38338 @ 322054:                     PUSH   BOT1
38339 @ 322057:                     ASSPAR
38340 @ 322058:                     PUSH   NOPS
38341 @ 322061:                     ASSPAR
38342 @ 322062:                     PUSHI  #0x00000000
38343 @ 322067:                     ASSPAR
38344 @ 322068:                     CALL  

  6242           CMP=C1_CMP1
38345 @ 322069:                     LINE   6242 "regression-compile-tmp/imp918s.imp"
38346 @ 322107:                     PUSH   CMP
38347 @ 322110:                     PUSH   C1
38348 @ 322113:                     SELECT 2
38349 @ 322116:                     ASSVAL

  6243           P=P2+2
38350 @ 322117:                     LINE   6243 "regression-compile-tmp/imp918s.imp"
38351 @ 322155:                     PUSH   P
38352 @ 322158:                     PUSH   P2
38353 @ 322161:                     PUSHI  #0x00000002
38354 @ 322166:                     ADD   
38355 @ 322167:                     ASSVAL

  6244           %IF C1_CMP2#0 %THEN %START;   ! IF D-SIDED DEAL WITH MIDDLE
38356 @ 322168:                     LINE   6244 "regression-compile-tmp/imp918s.imp"
38357 @ 322206:                     PUSH   C1
38358 @ 322209:                     SELECT 3
38359 @ 322212:                     PUSHI  #0x00000000
38360 @ 322217:                     JUMPIF = L_0004

  6245              ACOMP(1,IEXIT);            ! BRANCH IEXIT %IF FALSE
38361 @ 322221:                     LINE   6245 "regression-compile-tmp/imp918s.imp"
38362 @ 322259:                     PUSH   ACOMP
38363 @ 322262:                     PUSHI  #0x00000001
38364 @ 322267:                     ASSPAR
38365 @ 322268:                     PUSH   IEXIT
38366 @ 322271:                     ASSPAR
38367 @ 322272:                     CALL  

  6246              P=P+4;                     ! TO THE THIRD EXPRSN
38368 @ 322273:                     LINE   6246 "regression-compile-tmp/imp918s.imp"
38369 @ 322311:                     PUSH   P
38370 @ 322314:                     PUSH   P
38371 @ 322317:                     PUSHI  #0x00000004
38372 @ 322322:                     ADD   
38373 @ 322323:                     ASSVAL

  6247              CMP=C1_CMP2;               ! COMPARATOR NO 2
38374 @ 322324:                     LINE   6247 "regression-compile-tmp/imp918s.imp"
38375 @ 322362:                     PUSH   CMP
38376 @ 322365:                     PUSH   C1
38377 @ 322368:                     SELECT 3
38378 @ 322371:                     ASSVAL

  6248           %FINISH
  6249  !
38379 @ 322372:                     LINE   6248 "regression-compile-tmp/imp918s.imp"
38380 @ 322410:                     LOCATE L_0004

  6250           ACOMP(C1_TF,FEXIT);           ! SECOND OR ONLY COMPARISION
  6251  !
38381 @ 322413:                     LINE   6250 "regression-compile-tmp/imp918s.imp"
38382 @ 322451:                     PUSH   ACOMP
38383 @ 322454:                     PUSH   C1
38384 @ 322457:                     SELECT 1
38385 @ 322460:                     ASSPAR
38386 @ 322461:                     PUSH   FEXIT
38387 @ 322464:                     ASSPAR
38388 @ 322465:                     CALL  

  6252           EXPOP(HEAD1,-1,NOPS,16);      ! PLANT THE CODE
  6253  !         CLEAR LIST(HEAD1)
38389 @ 322466:                     LINE   6252 "regression-compile-tmp/imp918s.imp"
38390 @ 322504:                     PUSH   EXPOP
38391 @ 322507:                     PUSH   HEAD1
38392 @ 322510:                     ASSPAR
38393 @ 322511:                     PUSHI  #0x00000001
38394 @ 322516:                     NEGATE
38395 @ 322517:                     ASSPAR
38396 @ 322518:                     PUSH   NOPS
38397 @ 322521:                     ASSPAR
38398 @ 322522:                     PUSHI  #0x00000010
38399 @ 322527:                     ASSPAR
38400 @ 322528:                     CALL  

  6254           SHORTINTEGER(ADDR(ASLIST(BOT1))+14)=ASL
38401 @ 322529:                     LINE   6254 "regression-compile-tmp/imp918s.imp"
38402 @ 322567:                     PUSH   SHORTINTEGER
38403 @ 322570:                     PUSH   ADDR
38404 @ 322573:                     PUSH   ASLIST
38405 @ 322576:                     PUSH   BOT1
38406 @ 322579:                     ACCESS
38407 @ 322580:                     ASSPAR
38408 @ 322581:                     CALL  
38409 @ 322582:                     PUSHI  #0x0000000e
38410 @ 322587:                     ADD   
38411 @ 322588:                     ASSPAR
38412 @ 322589:                     CALL  
38413 @ 322590:                     PUSH   ASL
38414 @ 322593:                     ASSVAL

  6255           ASL=HEAD1
38415 @ 322594:                     LINE   6255 "regression-compile-tmp/imp918s.imp"
38416 @ 322632:                     PUSH   ASL
38417 @ 322635:                     PUSH   HEAD1
38418 @ 322638:                     ASSVAL

  6256           %RETURN
38419 @ 322639:                     LINE   6256 "regression-compile-tmp/imp918s.imp"
38420 @ 322677:                     RETURN

  6257  T UNDER M:                             ! CAN USE TM FOR COMPARISON
38421 @ 322678:                     LINE   6257 "regression-compile-tmp/imp918s.imp"
38422 @ 322716:                     LABEL  L_022e

  6258           DUMPSI(X'91',TEX1,BASEP,DISPP)
38423 @ 322719:                     LINE   6258 "regression-compile-tmp/imp918s.imp"
38424 @ 322757:                     PUSH   DUMPSI
38425 @ 322760:                     PUSHI  #0x00000091
38426 @ 322765:                     ASSPAR
38427 @ 322766:                     PUSH   TEX1
38428 @ 322769:                     ASSPAR
38429 @ 322770:                     PUSH   BASEP
38430 @ 322773:                     ASSPAR
38431 @ 322774:                     PUSH   DISPP
38432 @ 322777:                     ASSPAR
38433 @ 322778:                     CALL  

  6259           CCSTATE=-1
38434 @ 322779:                     LINE   6259 "regression-compile-tmp/imp918s.imp"
38435 @ 322817:                     PUSH   CCSTATE
38436 @ 322820:                     PUSHI  #0x00000001
38437 @ 322825:                     NEGATE
38438 @ 322826:                     ASSVAL

  6260  TBRANCH: MASK=MASK!!15 %IF C1_TF=1
38439 @ 322827:                     LINE   6260 "regression-compile-tmp/imp918s.imp"
38440 @ 322865:                     LABEL  L_022b
38441 @ 322868:                     LINE   6260 "regression-compile-tmp/imp918s.imp"
38442 @ 322906:                     PUSH   C1
38443 @ 322909:                     SELECT 1
38444 @ 322912:                     PUSHI  #0x00000001
38445 @ 322917:                     JUMPIF # L_0004
38446 @ 322921:                     PUSH   MASK
38447 @ 322924:                     PUSH   MASK
38448 @ 322927:                     PUSHI  #0x0000000f
38449 @ 322932:                     XOR   
38450 @ 322933:                     ASSVAL
38451 @ 322934:                     LOCATE L_0004

  6261           ENTER JUMP(MASK,FEXIT,B'11')
38452 @ 322937:                     LINE   6261 "regression-compile-tmp/imp918s.imp"
38453 @ 322975:                     PUSH   ENTERJUMP
38454 @ 322978:                     PUSH   MASK
38455 @ 322981:                     ASSPAR
38456 @ 322982:                     PUSH   FEXIT
38457 @ 322985:                     ASSPAR
38458 @ 322986:                     PUSHI  #0x00000003
38459 @ 322991:                     ASSPAR
38460 @ 322992:                     CALL  

  6262           %RETURN
38461 @ 322993:                     LINE   6262 "regression-compile-tmp/imp918s.imp"
38462 @ 323031:                     RETURN

  6263  STR:                                   ! STRING COMPARISIONS
  6264                                         ! SOME CARE IS NEEDED IN FREEING
  6265                                         ! STRING WK-AREAS SET BY CSTREXP
38463 @ 323032:                     LINE   6263 "regression-compile-tmp/imp918s.imp"
38464 @ 323070:                     LABEL  L_022c

  6266           P=P1
38465 @ 323073:                     LINE   6266 "regression-compile-tmp/imp918s.imp"
38466 @ 323111:                     PUSH   P
38467 @ 323114:                     PUSH   P1
38468 @ 323117:                     ASSVAL

  6267           WA1=0; WA2=0; WA3=0
38469 @ 323118:                     LINE   6267 "regression-compile-tmp/imp918s.imp"
38470 @ 323156:                     PUSH   WA1
38471 @ 323159:                     PUSHI  #0x00000000
38472 @ 323164:                     ASSVAL
38473 @ 323165:                     LINE   6267 "regression-compile-tmp/imp918s.imp"
38474 @ 323203:                     PUSH   WA2
38475 @ 323206:                     PUSHI  #0x00000000
38476 @ 323211:                     ASSVAL
38477 @ 323212:                     LINE   6267 "regression-compile-tmp/imp918s.imp"
38478 @ 323250:                     PUSH   WA3
38479 @ 323253:                     PUSHI  #0x00000000
38480 @ 323258:                     ASSVAL

  6268           %IF TE2=1 %AND TEX2=0 %AND C1_CMP2=0 %AND 7<=MASK<=8 %START
38481 @ 323259:                     LINE   6268 "regression-compile-tmp/imp918s.imp"
38482 @ 323297:                     PUSH   TE2
38483 @ 323300:                     PUSHI  #0x00000001
38484 @ 323305:                     JUMPIF # L_0004
38485 @ 323309:                     PUSH   TEX2
38486 @ 323312:                     PUSHI  #0x00000000
38487 @ 323317:                     JUMPIF # L_0004
38488 @ 323321:                     PUSH   C1
38489 @ 323324:                     SELECT 3
38490 @ 323327:                     PUSHI  #0x00000000
38491 @ 323332:                     JUMPIF # L_0004
38492 @ 323336:                     PUSHI  #0x00000007
38493 @ 323341:                     PUSH   MASK
38494 @ 323344:                     JUMPIFD > L_0004
38495 @ 323348:                     PUSHI  #0x00000008
38496 @ 323353:                     JUMPIF > L_0004

  6269              CSTREXP(0,-2);            ! USE TM FOR IF S='' ETC
38497 @ 323357:                     LINE   6269 "regression-compile-tmp/imp918s.imp"
38498 @ 323395:                     PUSH   CSTREXP
38499 @ 323398:                     PUSHI  #0x00000000
38500 @ 323403:                     ASSPAR
38501 @ 323404:                     PUSHI  #0x00000002
38502 @ 323409:                     NEGATE
38503 @ 323410:                     ASSPAR
38504 @ 323411:                     CALL  

  6270              DISPP=DISP; BASEP=BASE
38505 @ 323412:                     LINE   6270 "regression-compile-tmp/imp918s.imp"
38506 @ 323450:                     PUSH   DISPP
38507 @ 323453:                     PUSH   DISP
38508 @ 323456:                     ASSVAL
38509 @ 323457:                     LINE   6270 "regression-compile-tmp/imp918s.imp"
38510 @ 323495:                     PUSH   BASEP
38511 @ 323498:                     PUSH   BASE
38512 @ 323501:                     ASSVAL

  6271              TEX1=255
38513 @ 323502:                     LINE   6271 "regression-compile-tmp/imp918s.imp"
38514 @ 323540:                     PUSH   TEX1
38515 @ 323543:                     PUSHI  #0x000000ff
38516 @ 323548:                     ASSVAL

  6272              ->T UNDER M
38517 @ 323549:                     LINE   6272 "regression-compile-tmp/imp918s.imp"
38518 @ 323587:                     JUMP   L_022e

  6273           %FINISH
38519 @ 323590:                     LINE   6273 "regression-compile-tmp/imp918s.imp"
38520 @ 323628:                     LOCATE L_0004

  6274           CSTREXP(16,-2);              ! DO NOT FREE WK-AREA
38521 @ 323631:                     LINE   6274 "regression-compile-tmp/imp918s.imp"
38522 @ 323669:                     PUSH   CSTREXP
38523 @ 323672:                     PUSHI  #0x00000010
38524 @ 323677:                     ASSPAR
38525 @ 323678:                     PUSHI  #0x00000002
38526 @ 323683:                     NEGATE
38527 @ 323684:                     ASSPAR
38528 @ 323685:                     CALL  

  6275           WA1=VALUE;                   ! SAVE ADDRESS OF WK-AREA
38529 @ 323686:                     LINE   6275 "regression-compile-tmp/imp918s.imp"
38530 @ 323724:                     PUSH   WA1
38531 @ 323727:                     PUSH   VALUE
38532 @ 323730:                     ASSVAL

  6276           CMP=C1_CMP1
38533 @ 323731:                     LINE   6276 "regression-compile-tmp/imp918s.imp"
38534 @ 323769:                     PUSH   CMP
38535 @ 323772:                     PUSH   C1
38536 @ 323775:                     SELECT 2
38537 @ 323778:                     ASSVAL

  6277           P=P2
  6278  !
38538 @ 323779:                     LINE   6277 "regression-compile-tmp/imp918s.imp"
38539 @ 323817:                     PUSH   P
38540 @ 323820:                     PUSH   P2
38541 @ 323823:                     ASSVAL

  6279           %IF C1_CMP2#0 %THEN %START;  ! D-SIDED DEAL WITH MIDDLE
38542 @ 323824:                     LINE   6279 "regression-compile-tmp/imp918s.imp"
38543 @ 323862:                     PUSH   C1
38544 @ 323865:                     SELECT 3
38545 @ 323868:                     PUSHI  #0x00000000
38546 @ 323873:                     JUMPIF = L_0004

  6280              SCOMP(1,IEXIT,WA2)
38547 @ 323877:                     LINE   6280 "regression-compile-tmp/imp918s.imp"
38548 @ 323915:                     PUSH   SCOMP
38549 @ 323918:                     PUSHI  #0x00000001
38550 @ 323923:                     ASSPAR
38551 @ 323924:                     PUSH   IEXIT
38552 @ 323927:                     ASSPAR
38553 @ 323928:                     PUSH   WA2
38554 @ 323931:                     ASSPAR
38555 @ 323932:                     CALL  

  6281              P=P+2; CMP=C1_CMP2
38556 @ 323933:                     LINE   6281 "regression-compile-tmp/imp918s.imp"
38557 @ 323971:                     PUSH   P
38558 @ 323974:                     PUSH   P
38559 @ 323977:                     PUSHI  #0x00000002
38560 @ 323982:                     ADD   
38561 @ 323983:                     ASSVAL
38562 @ 323984:                     LINE   6281 "regression-compile-tmp/imp918s.imp"
38563 @ 324022:                     PUSH   CMP
38564 @ 324025:                     PUSH   C1
38565 @ 324028:                     SELECT 3
38566 @ 324031:                     ASSVAL

  6282              %IF WA1#0 %THEN RETURN WSP(WA1,256) %AND WA1=0
38567 @ 324032:                     LINE   6282 "regression-compile-tmp/imp918s.imp"
38568 @ 324070:                     PUSH   WA1
38569 @ 324073:                     PUSHI  #0x00000000
38570 @ 324078:                     JUMPIF = L_0007
38571 @ 324082:                     PUSH   RETURNWSP
38572 @ 324085:                     PUSH   WA1
38573 @ 324088:                     ASSPAR
38574 @ 324089:                     PUSHI  #0x00000100
38575 @ 324094:                     ASSPAR
38576 @ 324095:                     CALL  
38577 @ 324096:                     PUSH   WA1
38578 @ 324099:                     PUSHI  #0x00000000
38579 @ 324104:                     ASSVAL
38580 @ 324105:                     LOCATE L_0007

  6283           %FINISH
  6284  !
38581 @ 324108:                     LINE   6283 "regression-compile-tmp/imp918s.imp"
38582 @ 324146:                     LOCATE L_0004

  6285           SCOMP(C1_TF,FEXIT,WA3)
38583 @ 324149:                     LINE   6285 "regression-compile-tmp/imp918s.imp"
38584 @ 324187:                     PUSH   SCOMP
38585 @ 324190:                     PUSH   C1
38586 @ 324193:                     SELECT 1
38587 @ 324196:                     ASSPAR
38588 @ 324197:                     PUSH   FEXIT
38589 @ 324200:                     ASSPAR
38590 @ 324201:                     PUSH   WA3
38591 @ 324204:                     ASSPAR
38592 @ 324205:                     CALL  

  6286           %CYCLE CMP=ADDR(WA1),4,ADDR(WA3)
38593 @ 324206:                     LINE   6286 "regression-compile-tmp/imp918s.imp"
38594 @ 324244:                     PUSH   CMP
38595 @ 324247:                     PUSHI  #0x00000004
38596 @ 324252:                     PUSH   ADDR
38597 @ 324255:                     PUSH   WA3
38598 @ 324258:                     ASSPAR
38599 @ 324259:                     CALL  
38600 @ 324260:                     PUSH   ADDR
38601 @ 324263:                     PUSH   WA1
38602 @ 324266:                     ASSPAR
38603 @ 324267:                     CALL  
38604 @ 324268:                     FOR    L_0003

  6287              %IF INTEGER(CMP)#0 %THEN RETURN WSP(INTEGER(CMP),256)
38605 @ 324271:                     LINE   6287 "regression-compile-tmp/imp918s.imp"
38606 @ 324309:                     PUSH   INTEGER
38607 @ 324312:                     PUSH   CMP
38608 @ 324315:                     ASSPAR
38609 @ 324316:                     CALL  
38610 @ 324317:                     PUSHI  #0x00000000
38611 @ 324322:                     JUMPIF = L_0007
38612 @ 324326:                     PUSH   RETURNWSP
38613 @ 324329:                     PUSH   INTEGER
38614 @ 324332:                     PUSH   CMP
38615 @ 324335:                     ASSPAR
38616 @ 324336:                     CALL  
38617 @ 324337:                     ASSPAR
38618 @ 324338:                     PUSHI  #0x00000100
38619 @ 324343:                     ASSPAR
38620 @ 324344:                     CALL  
38621 @ 324345:                     LOCATE L_0007

  6288           %REPEAT
38622 @ 324348:                     LINE   6288 "regression-compile-tmp/imp918s.imp"
38623 @ 324386:                     REPEAT L_0003
38624 @ 324389:                     LOCATE L_0004

  6289           %RETURN
38625 @ 324392:                     LINE   6289 "regression-compile-tmp/imp918s.imp"
38626 @ 324430:                     RETURN

  6290           %ROUTINE ACOMP(%INTEGER TF,LAB)
  6291  !***********************************************************************
  6292  !*       TYPE & PREC DEFINE THE EXPRSN IN REVERSE POLISH IN HEAD1      *
  6293  !*       THIS ROUTINE CONVERTS THE NEXT EXPRSN TO REVERSE POLISH AND   *
  6294  !*       ADDS OPERATORS FOR TYPE CHANGING(IF REQ) CMPRSN AND JUMP      *
  6295  !***********************************************************************
38627 @ 324431:                     LINE   6290 "regression-compile-tmp/imp918s.imp"
38628 @ 324469:                     DEF    ACOMP (_lev0id0_CSS_CCOND_CCOMP_ACOMP) p1=V_0214 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
38629 @ 324486:                        START  ( FORMAL PARAMETERS  {lev=5 --> 6, nested=0 --> 1}
38630 @ 324487:                           DEF    TF p1=V_022f 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
38631 @ 324501:                           DEF    LAB p1=V_0230 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
38632 @ 324516:                        FINISH ) {lev=5}

  6296           %BYTEINTEGER PRECP,TYPEP
38633 @ 324517:                        LINE   6296 "regression-compile-tmp/imp918s.imp"
38634 @ 324555:                        DEF    PRECP p1=V_0231 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
38635 @ 324572:                        DEF    TYPEP p1=V_0232 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0

  6297           %INTEGER BMASKS,TORPMODE,CMODE,COP
38636 @ 324589:                        LINE   6297 "regression-compile-tmp/imp918s.imp"
38637 @ 324627:                        DEF    BMASKS p1=V_0233 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
38638 @ 324645:                        DEF    TORPMODE p1=V_0234 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
38639 @ 324665:                        DEF    CMODE p1=V_0235 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
38640 @ 324682:                        DEF    COP p1=V_0236 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

  6298           PRECP=PREC; TYPEP=TYPE
38641 @ 324697:                        LINE   6298 "regression-compile-tmp/imp918s.imp"
38642 @ 324735:                        PUSH   PRECP
38643 @ 324738:                        PUSH   PREC
38644 @ 324741:                        ASSVAL
38645 @ 324742:                        LINE   6298 "regression-compile-tmp/imp918s.imp"
38646 @ 324780:                        PUSH   TYPEP
38647 @ 324783:                        PUSH   TYPE
38648 @ 324786:                        ASSVAL

  6299           BMASKS=FCOMP(CMP+7)<<4!FCOMP(CMP)
38649 @ 324787:                        LINE   6299 "regression-compile-tmp/imp918s.imp"
38650 @ 324825:                        PUSH   BMASKS
38651 @ 324828:                        PUSH   FCOMP
38652 @ 324831:                        PUSH   CMP
38653 @ 324834:                        PUSHI  #0x00000007
38654 @ 324839:                        ADD   
38655 @ 324840:                        ACCESS
38656 @ 324841:                        PUSHI  #0x00000004
38657 @ 324846:                        LSH   
38658 @ 324847:                        PUSH   FCOMP
38659 @ 324850:                        PUSH   CMP
38660 @ 324853:                        ACCESS
38661 @ 324854:                        OR    
38662 @ 324855:                        ASSVAL

  6300           %IF TF=1 %THEN BMASKS=BMASKS!!255;! REVERSE MASKS IF FALSE
  6301  !
  6302  ! ADD OPERATORS IN THE REVERSE ORDER TO EXECUTION. IE JUMP(29) THEN
  6303  ! COMPARE(26) OR LOGICAL (IE = & # ONLY) COMPARE(27)
  6304  !
38663 @ 324856:                        LINE   6300 "regression-compile-tmp/imp918s.imp"
38664 @ 324894:                        PUSH   TF
38665 @ 324897:                        PUSHI  #0x00000001
38666 @ 324902:                        JUMPIF # L_0004
38667 @ 324906:                        PUSH   BMASKS
38668 @ 324909:                        PUSH   BMASKS
38669 @ 324912:                        PUSHI  #0x000000ff
38670 @ 324917:                        XOR   
38671 @ 324918:                        ASSVAL
38672 @ 324919:                        LOCATE L_0004

  6305           PUSH(HEAD2,29,0)
38673 @ 324922:                        LINE   6305 "regression-compile-tmp/imp918s.imp"
38674 @ 324960:                        PUSH   PUSH
38675 @ 324963:                        PUSH   HEAD2
38676 @ 324966:                        ASSPAR
38677 @ 324967:                        PUSHI  #0x0000001d
38678 @ 324972:                        ASSPAR
38679 @ 324973:                        PUSHI  #0x00000000
38680 @ 324978:                        ASSPAR
38681 @ 324979:                        CALL  

  6306           BOT2=HEAD2
38682 @ 324980:                        LINE   6306 "regression-compile-tmp/imp918s.imp"
38683 @ 325018:                        PUSH   BOT2
38684 @ 325021:                        PUSH   HEAD2
38685 @ 325024:                        ASSVAL

  6307           PUSH(HEAD2,1<<16!BMASKS<<8,LAB)
38686 @ 325025:                        LINE   6307 "regression-compile-tmp/imp918s.imp"
38687 @ 325063:                        PUSH   PUSH
38688 @ 325066:                        PUSH   HEAD2
38689 @ 325069:                        ASSPAR
38690 @ 325070:                        PUSHI  #0x00000001
38691 @ 325075:                        PUSHI  #0x00000010
38692 @ 325080:                        LSH   
38693 @ 325081:                        PUSH   BMASKS
38694 @ 325084:                        PUSHI  #0x00000008
38695 @ 325089:                        LSH   
38696 @ 325090:                        OR    
38697 @ 325091:                        ASSPAR
38698 @ 325092:                        PUSH   LAB
38699 @ 325095:                        ASSPAR
38700 @ 325096:                        CALL  

  6308           %IF 7<=BMASKS&15<=8 %THEN CMODE=27 %ELSE CMODE=26
38701 @ 325097:                        LINE   6308 "regression-compile-tmp/imp918s.imp"
38702 @ 325135:                        PUSHI  #0x00000007
38703 @ 325140:                        PUSH   BMASKS
38704 @ 325143:                        PUSHI  #0x0000000f
38705 @ 325148:                        AND   
38706 @ 325149:                        JUMPIFD > L_0004
38707 @ 325153:                        PUSHI  #0x00000008
38708 @ 325158:                        JUMPIF > L_0004
38709 @ 325162:                        PUSH   CMODE
38710 @ 325165:                        PUSHI  #0x0000001b
38711 @ 325170:                        ASSVAL
38712 @ 325171:                        GOTO   L_0003
38713 @ 325174:                        LOCATE L_0004
38714 @ 325177:                        PUSH   CMODE
38715 @ 325180:                        PUSHI  #0x0000001a
38716 @ 325185:                        ASSVAL
38717 @ 325186:                        LOCATE L_0003

  6309           PUSH(HEAD2,CMODE,0)
  6310  !
  6311  ! CONVERT NEXT EXPRSN TO REVERSE POLISH AND TO THE SAME TYPE AS THE
  6312  ! FIRST IF POSSIBLE. MODE=0 INTEGER IF POSSIBLE,=2 REAL, =3 LONGREAL
  6313  !
38718 @ 325189:                        LINE   6309 "regression-compile-tmp/imp918s.imp"
38719 @ 325227:                        PUSH   PUSH
38720 @ 325230:                        PUSH   HEAD2
38721 @ 325233:                        ASSPAR
38722 @ 325234:                        PUSH   CMODE
38723 @ 325237:                        ASSPAR
38724 @ 325238:                        PUSHI  #0x00000000
38725 @ 325243:                        ASSPAR
38726 @ 325244:                        CALL  

  6314           %IF TYPEP=1 %THEN TORPMODE =0 %ELSE TORPMODE=PRECP!2
38727 @ 325245:                        LINE   6314 "regression-compile-tmp/imp918s.imp"
38728 @ 325283:                        PUSH   TYPEP
38729 @ 325286:                        PUSHI  #0x00000001
38730 @ 325291:                        JUMPIF # L_0004
38731 @ 325295:                        PUSH   TORPMODE
38732 @ 325298:                        PUSHI  #0x00000000
38733 @ 325303:                        ASSVAL
38734 @ 325304:                        GOTO   L_0003
38735 @ 325307:                        LOCATE L_0004
38736 @ 325310:                        PUSH   TORPMODE
38737 @ 325313:                        PUSH   PRECP
38738 @ 325316:                        PUSHI  #0x00000002
38739 @ 325321:                        OR    
38740 @ 325322:                        ASSVAL
38741 @ 325323:                        LOCATE L_0003

  6315           TORP(HEAD2,BOT2,NOPS,TORPMODE)
  6316  !
  6317  ! IF THE 2ND EXPRSN IS REAL OR LONGREAL AND THE FIRST IS INTEGER OR
  6318  ! REAL A CONVERSION OPERN (FLOAT=12,STRETCH=14) IS ALSO NEEDED
  6319  !
38742 @ 325326:                        LINE   6315 "regression-compile-tmp/imp918s.imp"
38743 @ 325364:                        PUSH   TORP
38744 @ 325367:                        PUSH   HEAD2
38745 @ 325370:                        ASSPAR
38746 @ 325371:                        PUSH   BOT2
38747 @ 325374:                        ASSPAR
38748 @ 325375:                        PUSH   NOPS
38749 @ 325378:                        ASSPAR
38750 @ 325379:                        PUSH   TORPMODE
38751 @ 325382:                        ASSPAR
38752 @ 325383:                        CALL  

  6320           COP=0
38753 @ 325384:                        LINE   6320 "regression-compile-tmp/imp918s.imp"
38754 @ 325422:                        PUSH   COP
38755 @ 325425:                        PUSHI  #0x00000000
38756 @ 325430:                        ASSVAL

  6321           %IF TYPE=2 %THEN %START
38757 @ 325431:                        LINE   6321 "regression-compile-tmp/imp918s.imp"
38758 @ 325469:                        PUSH   TYPE
38759 @ 325472:                        PUSHI  #0x00000002
38760 @ 325477:                        JUMPIF # L_0004

  6322              %IF TYPEP=1 %THEN COP=12 %ELSE %START
38761 @ 325481:                        LINE   6322 "regression-compile-tmp/imp918s.imp"
38762 @ 325519:                        PUSH   TYPEP
38763 @ 325522:                        PUSHI  #0x00000001
38764 @ 325527:                        JUMPIF # L_0007
38765 @ 325531:                        PUSH   COP
38766 @ 325534:                        PUSHI  #0x0000000c
38767 @ 325539:                        ASSVAL
38768 @ 325540:                        GOTO   L_0006
38769 @ 325543:                        LOCATE L_0007

  6323                 %IF PREC#PRECP %THEN COP=14
38770 @ 325546:                        LINE   6323 "regression-compile-tmp/imp918s.imp"
38771 @ 325584:                        PUSH   PREC
38772 @ 325587:                        PUSH   PRECP
38773 @ 325590:                        JUMPIF = L_000a
38774 @ 325594:                        PUSH   COP
38775 @ 325597:                        PUSHI  #0x0000000e
38776 @ 325602:                        ASSVAL
38777 @ 325603:                        LOCATE L_000a

  6324              %FINISH
38778 @ 325606:                        LINE   6324 "regression-compile-tmp/imp918s.imp"
38779 @ 325644:                        LOCATE L_0006

  6325           %FINISH
38780 @ 325647:                        LINE   6325 "regression-compile-tmp/imp918s.imp"
38781 @ 325685:                        LOCATE L_0004

  6326           PUSH(HEAD2,COP,PREC>>1) %IF COP#0
38782 @ 325688:                        LINE   6326 "regression-compile-tmp/imp918s.imp"
38783 @ 325726:                        PUSH   COP
38784 @ 325729:                        PUSHI  #0x00000000
38785 @ 325734:                        JUMPIF = L_0004
38786 @ 325738:                        PUSH   PUSH
38787 @ 325741:                        PUSH   HEAD2
38788 @ 325744:                        ASSPAR
38789 @ 325745:                        PUSH   COP
38790 @ 325748:                        ASSPAR
38791 @ 325749:                        PUSH   PREC
38792 @ 325752:                        PUSHI  #0x00000001
38793 @ 325757:                        RSH   
38794 @ 325758:                        ASSPAR
38795 @ 325759:                        CALL  
38796 @ 325760:                        LOCATE L_0004

  6327           SHORTINTEGER(ADDR(ASLIST(BOT1))+14)=HEAD2
38797 @ 325763:                        LINE   6327 "regression-compile-tmp/imp918s.imp"
38798 @ 325801:                        PUSH   SHORTINTEGER
38799 @ 325804:                        PUSH   ADDR
38800 @ 325807:                        PUSH   ASLIST
38801 @ 325810:                        PUSH   BOT1
38802 @ 325813:                        ACCESS
38803 @ 325814:                        ASSPAR
38804 @ 325815:                        CALL  
38805 @ 325816:                        PUSHI  #0x0000000e
38806 @ 325821:                        ADD   
38807 @ 325822:                        ASSPAR
38808 @ 325823:                        CALL  
38809 @ 325824:                        PUSH   HEAD2
38810 @ 325827:                        ASSVAL

  6328           BOT1=BOT2; BOT2=0; HEAD2=0
38811 @ 325828:                        LINE   6328 "regression-compile-tmp/imp918s.imp"
38812 @ 325866:                        PUSH   BOT1
38813 @ 325869:                        PUSH   BOT2
38814 @ 325872:                        ASSVAL
38815 @ 325873:                        LINE   6328 "regression-compile-tmp/imp918s.imp"
38816 @ 325911:                        PUSH   BOT2
38817 @ 325914:                        PUSHI  #0x00000000
38818 @ 325919:                        ASSVAL
38819 @ 325920:                        LINE   6328 "regression-compile-tmp/imp918s.imp"
38820 @ 325958:                        PUSH   HEAD2
38821 @ 325961:                        PUSHI  #0x00000000
38822 @ 325966:                        ASSVAL

  6329           %END
38823 @ 325967:                        LINE   6329 "regression-compile-tmp/imp918s.imp"
38824 @ 326005:                     END    _lev0id0_CSS_CCOND_CCOMP_ACOMP {lev=5 --> 4}

  6330           %ROUTINE SCOMP(%INTEGER TF,LAB,%INTEGERNAME WA)
  6331  !***********************************************************************
  6332  !*       1ST STRING IS DEFINED BY BASE,DISP & STRINGL(IF KNOWN)        *
  6333  !*       THIS ROUTINE EVALUATES THE NEXT STRING EXPRS AND PERFORMS     *
  6334  !*       THE COMPARISON & BRANCH. = & # CAN BE DONE IN LINE BUT < & >  *
  6335  !*       ARE COMPLICATED BY THE LENGTH BYTE AND ARE PERFORMEDIN PERM   *
  6336  !***********************************************************************
38825 @ 326006:                     LINE   6330 "regression-compile-tmp/imp918s.imp"
38826 @ 326044:                     DEF    SCOMP (_lev0id0_CSS_CCOND_CCOMP_SCOMP) p1=V_0215 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
38827 @ 326061:                        START  ( FORMAL PARAMETERS  {lev=5 --> 6, nested=0 --> 1}
38828 @ 326062:                           DEF    TF p1=V_022f 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
38829 @ 326076:                           DEF    LAB p1=V_0230 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
38830 @ 326091:                           DEF    WA p1=V_0231 a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
38831 @ 326105:                        FINISH ) {lev=5}

  6337           %INTEGER MASK,CODE,L
  6338  !
  6339  ! A SAFE REGISTER MAY BE NEEDED HERE ON OPTIMUM CODE EVEN IF IT IS NOT
  6340  ! REQUIRED ON THE PRELIMINARY PASS
  6341  !
38832 @ 326106:                        LINE   6337 "regression-compile-tmp/imp918s.imp"
38833 @ 326144:                        DEF    MASK p1=V_0232 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
38834 @ 326160:                        DEF    CODE p1=V_0233 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
38835 @ 326176:                        DEF    L p1=V_0234 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

  6342           CYC BITS=CYC BITS!128;        ! SAFE REGISTER REQD
38836 @ 326189:                        LINE   6342 "regression-compile-tmp/imp918s.imp"
38837 @ 326227:                        PUSH   CYCBITS
38838 @ 326230:                        PUSH   CYCBITS
38839 @ 326233:                        PUSHI  #0x00000080
38840 @ 326238:                        OR    
38841 @ 326239:                        ASSVAL

  6343           %IF REGISTER(BASE)=0 %AND (BASE<4 %OR BASE=15) %START
38842 @ 326240:                        LINE   6343 "regression-compile-tmp/imp918s.imp"
38843 @ 326278:                        PUSH   REGISTER
38844 @ 326281:                        PUSH   BASE
38845 @ 326284:                        ACCESS
38846 @ 326285:                        PUSHI  #0x00000000
38847 @ 326290:                        JUMPIF # L_0004
38848 @ 326294:                        PUSH   BASE
38849 @ 326297:                        PUSHI  #0x00000004
38850 @ 326302:                        JUMPIF < L_0005
38851 @ 326306:                        PUSH   BASE
38852 @ 326309:                        PUSHI  #0x0000000f
38853 @ 326314:                        JUMPIF # L_0004
38854 @ 326318:                        LOCATE L_0005

  6344              CLAIM(SAFE,BASEP); PRR(X'18',BASEP,BASE)
38855 @ 326321:                        LINE   6344 "regression-compile-tmp/imp918s.imp"
38856 @ 326359:                        PUSH   CLAIM
38857 @ 326362:                        PUSHI  #0xffff0e04
38858 @ 326367:                        ASSPAR
38859 @ 326368:                        PUSH   BASEP
38860 @ 326371:                        ASSPAR
38861 @ 326372:                        CALL  
38862 @ 326373:                        LINE   6344 "regression-compile-tmp/imp918s.imp"
38863 @ 326411:                        PUSH   PRR
38864 @ 326414:                        PUSHI  #0x00000018
38865 @ 326419:                        ASSPAR
38866 @ 326420:                        PUSH   BASEP
38867 @ 326423:                        ASSPAR
38868 @ 326424:                        PUSH   BASE
38869 @ 326427:                        ASSPAR
38870 @ 326428:                        CALL  

  6345              FORGET(BASEP); BASE=BASEP
38871 @ 326429:                        LINE   6345 "regression-compile-tmp/imp918s.imp"
38872 @ 326467:                        PUSH   FORGET
38873 @ 326470:                        PUSH   BASEP
38874 @ 326473:                        ASSPAR
38875 @ 326474:                        CALL  
38876 @ 326475:                        LINE   6345 "regression-compile-tmp/imp918s.imp"
38877 @ 326513:                        PUSH   BASE
38878 @ 326516:                        PUSH   BASEP
38879 @ 326519:                        ASSVAL

  6346           %FINISH
  6347  !
38880 @ 326520:                        LINE   6346 "regression-compile-tmp/imp918s.imp"
38881 @ 326558:                        LOCATE L_0004

  6348           BASEP=BASE; DISPP=DISP; LL=STRINGL
38882 @ 326561:                        LINE   6348 "regression-compile-tmp/imp918s.imp"
38883 @ 326599:                        PUSH   BASEP
38884 @ 326602:                        PUSH   BASE
38885 @ 326605:                        ASSVAL
38886 @ 326606:                        LINE   6348 "regression-compile-tmp/imp918s.imp"
38887 @ 326644:                        PUSH   DISPP
38888 @ 326647:                        PUSH   DISP
38889 @ 326650:                        ASSVAL
38890 @ 326651:                        LINE   6348 "regression-compile-tmp/imp918s.imp"
38891 @ 326689:                        PUSH   LL
38892 @ 326692:                        PUSH   STRINGL
38893 @ 326695:                        ASSVAL

  6349           MASK=FCOMP(CMP)
38894 @ 326696:                        LINE   6349 "regression-compile-tmp/imp918s.imp"
38895 @ 326734:                        PUSH   MASK
38896 @ 326737:                        PUSH   FCOMP
38897 @ 326740:                        PUSH   CMP
38898 @ 326743:                        ACCESS
38899 @ 326744:                        ASSVAL

  6350           %IF 7<=MASK<=8 %THEN CODE=0 %ELSE CODE=5
38900 @ 326745:                        LINE   6350 "regression-compile-tmp/imp918s.imp"
38901 @ 326783:                        PUSHI  #0x00000007
38902 @ 326788:                        PUSH   MASK
38903 @ 326791:                        JUMPIFD > L_0004
38904 @ 326795:                        PUSHI  #0x00000008
38905 @ 326800:                        JUMPIF > L_0004
38906 @ 326804:                        PUSH   CODE
38907 @ 326807:                        PUSHI  #0x00000000
38908 @ 326812:                        ASSVAL
38909 @ 326813:                        GOTO   L_0003
38910 @ 326816:                        LOCATE L_0004
38911 @ 326819:                        PUSH   CODE
38912 @ 326822:                        PUSHI  #0x00000005
38913 @ 326827:                        ASSVAL
38914 @ 326828:                        LOCATE L_0003

  6351           %IF TF=1 %THEN MASK=MASK!!15; ! REVERSE MASK TO JMP IF FALS
38915 @ 326831:                        LINE   6351 "regression-compile-tmp/imp918s.imp"
38916 @ 326869:                        PUSH   TF
38917 @ 326872:                        PUSHI  #0x00000001
38918 @ 326877:                        JUMPIF # L_0004
38919 @ 326881:                        PUSH   MASK
38920 @ 326884:                        PUSH   MASK
38921 @ 326887:                        PUSHI  #0x0000000f
38922 @ 326892:                        XOR   
38923 @ 326893:                        ASSVAL
38924 @ 326894:                        LOCATE L_0004

  6352           REGISTER(BASEP)=1 %IF REGISTER(BASEP)=0
  6353  !
38925 @ 326897:                        LINE   6352 "regression-compile-tmp/imp918s.imp"
38926 @ 326935:                        PUSH   REGISTER
38927 @ 326938:                        PUSH   BASEP
38928 @ 326941:                        ACCESS
38929 @ 326942:                        PUSHI  #0x00000000
38930 @ 326947:                        JUMPIF # L_0004
38931 @ 326951:                        PUSH   REGISTER
38932 @ 326954:                        PUSH   BASEP
38933 @ 326957:                        ACCESS
38934 @ 326958:                        PUSHI  #0x00000001
38935 @ 326963:                        ASSVAL
38936 @ 326964:                        LOCATE L_0004

  6354           CSTREXP(16,0);                ! SAVE WK-AREA
38937 @ 326967:                        LINE   6354 "regression-compile-tmp/imp918s.imp"
38938 @ 327005:                        PUSH   CSTREXP
38939 @ 327008:                        PUSHI  #0x00000010
38940 @ 327013:                        ASSPAR
38941 @ 327014:                        PUSHI  #0x00000000
38942 @ 327019:                        ASSPAR
38943 @ 327020:                        CALL  

  6355           WA=VALUE
38944 @ 327021:                        LINE   6355 "regression-compile-tmp/imp918s.imp"
38945 @ 327059:                        PUSH   WA
38946 @ 327062:                        PUSH   VALUE
38947 @ 327065:                        ASSVAL

  6356           L=STRINGL
38948 @ 327066:                        LINE   6356 "regression-compile-tmp/imp918s.imp"
38949 @ 327104:                        PUSH   L
38950 @ 327107:                        PUSH   STRINGL
38951 @ 327110:                        ASSVAL

  6357           %IF CODE=0 %THEN L=L!LL
38952 @ 327111:                        LINE   6357 "regression-compile-tmp/imp918s.imp"
38953 @ 327149:                        PUSH   CODE
38954 @ 327152:                        PUSHI  #0x00000000
38955 @ 327157:                        JUMPIF # L_0004
38956 @ 327161:                        PUSH   L
38957 @ 327164:                        PUSH   L
38958 @ 327167:                        PUSH   LL
38959 @ 327170:                        OR    
38960 @ 327171:                        ASSVAL
38961 @ 327172:                        LOCATE L_0004

  6358           STRINGOP(CODE,L,BASE,DISP,BASEP,DISPP,0,255,-2)
38962 @ 327175:                        LINE   6358 "regression-compile-tmp/imp918s.imp"
38963 @ 327213:                        PUSH   STRINGOP
38964 @ 327216:                        PUSH   CODE
38965 @ 327219:                        ASSPAR
38966 @ 327220:                        PUSH   L
38967 @ 327223:                        ASSPAR
38968 @ 327224:                        PUSH   BASE
38969 @ 327227:                        ASSPAR
38970 @ 327228:                        PUSH   DISP
38971 @ 327231:                        ASSPAR
38972 @ 327232:                        PUSH   BASEP
38973 @ 327235:                        ASSPAR
38974 @ 327236:                        PUSH   DISPP
38975 @ 327239:                        ASSPAR
38976 @ 327240:                        PUSHI  #0x00000000
38977 @ 327245:                        ASSPAR
38978 @ 327246:                        PUSHI  #0x000000ff
38979 @ 327251:                        ASSPAR
38980 @ 327252:                        PUSHI  #0x00000002
38981 @ 327257:                        NEGATE
38982 @ 327258:                        ASSPAR
38983 @ 327259:                        CALL  

  6359           REGISTER(BASEP)=0 %IF REGISTER(BASEP)=1
38984 @ 327260:                        LINE   6359 "regression-compile-tmp/imp918s.imp"
38985 @ 327298:                        PUSH   REGISTER
38986 @ 327301:                        PUSH   BASEP
38987 @ 327304:                        ACCESS
38988 @ 327305:                        PUSHI  #0x00000001
38989 @ 327310:                        JUMPIF # L_0004
38990 @ 327314:                        PUSH   REGISTER
38991 @ 327317:                        PUSH   BASEP
38992 @ 327320:                        ACCESS
38993 @ 327321:                        PUSHI  #0x00000000
38994 @ 327326:                        ASSVAL
38995 @ 327327:                        LOCATE L_0004

  6360           REGISTER(BASE)=1 %IF REGISTER(BASE)=0;! MAY BE FURTHER CMPRSN!
38996 @ 327330:                        LINE   6360 "regression-compile-tmp/imp918s.imp"
38997 @ 327368:                        PUSH   REGISTER
38998 @ 327371:                        PUSH   BASE
38999 @ 327374:                        ACCESS
39000 @ 327375:                        PUSHI  #0x00000000
39001 @ 327380:                        JUMPIF # L_0004
39002 @ 327384:                        PUSH   REGISTER
39003 @ 327387:                        PUSH   BASE
39004 @ 327390:                        ACCESS
39005 @ 327391:                        PUSHI  #0x00000001
39006 @ 327396:                        ASSVAL
39007 @ 327397:                        LOCATE L_0004

  6361           ENTER JUMP(MASK,LAB,B'11')
39008 @ 327400:                        LINE   6361 "regression-compile-tmp/imp918s.imp"
39009 @ 327438:                        PUSH   ENTERJUMP
39010 @ 327441:                        PUSH   MASK
39011 @ 327444:                        ASSPAR
39012 @ 327445:                        PUSH   LAB
39013 @ 327448:                        ASSPAR
39014 @ 327449:                        PUSHI  #0x00000003
39015 @ 327454:                        ASSPAR
39016 @ 327455:                        CALL  

  6362           REGISTER(BASE)=0 %IF REGISTER(BASE)>0
39017 @ 327456:                        LINE   6362 "regression-compile-tmp/imp918s.imp"
39018 @ 327494:                        PUSH   REGISTER
39019 @ 327497:                        PUSH   BASE
39020 @ 327500:                        ACCESS
39021 @ 327501:                        PUSHI  #0x00000000
39022 @ 327506:                        JUMPIF <= L_0004
39023 @ 327510:                        PUSH   REGISTER
39024 @ 327513:                        PUSH   BASE
39025 @ 327516:                        ACCESS
39026 @ 327517:                        PUSHI  #0x00000000
39027 @ 327522:                        ASSVAL
39028 @ 327523:                        LOCATE L_0004

  6363           %END
39029 @ 327526:                        LINE   6363 "regression-compile-tmp/imp918s.imp"
39030 @ 327564:                     END    _lev0id0_CSS_CCOND_CCOMP_SCOMP {lev=5 --> 4}

  6364           %END
39031 @ 327565:                     LINE   6364 "regression-compile-tmp/imp918s.imp"
39032 @ 327603:                  END    _lev0id0_CSS_CCOND_CCOMP {lev=4 --> 3}

  6365           %END
39033 @ 327604:                  LINE   6365 "regression-compile-tmp/imp918s.imp"
39034 @ 327642:               END    _lev0id0_CSS_CCOND {lev=3 --> 2}

  6366           %ROUTINE REDUCE ENV(%SHORTINTEGERNAME HEAD)
  6367           {%SHORTROUTINE}
  6368  !***********************************************************************
  6369  !*       HEAD HAS AN ENVIRONMENT  - THIS ROUTINE REMOVES ANYTHING      *
  6370  !*       INCOMPATIBLE WITH THE CURRENT REGISTER STATE                  *
  6371  !***********************************************************************
39035 @ 327643:               LINE   6366 "regression-compile-tmp/imp918s.imp"
39036 @ 327681:               DEF    REDUCEENV (_lev0id0_CSS_REDUCEENV) p1=V_0195 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
39037 @ 327702:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
39038 @ 327703:                     DEF    HEAD p1=V_0203 a/tf=12 b/format=3 c/ostate=0  type=1 (integer) form=2 (name) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
39039 @ 327719:                  FINISH ) {lev=3}

  6372           %SHORTINTEGER NEWHEAD; %INTEGER I,J,K,REG,USE
39040 @ 327720:                  LINE   6372 "regression-compile-tmp/imp918s.imp"
39041 @ 327758:                  DEF    NEWHEAD p1=V_0204 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
39042 @ 327777:                  LINE   6372 "regression-compile-tmp/imp918s.imp"
39043 @ 327815:                  DEF    I p1=V_0205 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
39044 @ 327828:                  DEF    J p1=V_0206 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
39045 @ 327841:                  DEF    K p1=V_0207 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
39046 @ 327854:                  DEF    REG p1=V_0208 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
39047 @ 327869:                  DEF    USE p1=V_0209 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

  6373           NEWHEAD=0
39048 @ 327884:                  LINE   6373 "regression-compile-tmp/imp918s.imp"
39049 @ 327922:                  PUSH   NEWHEAD
39050 @ 327925:                  PUSHI  #0x00000000
39051 @ 327930:                  ASSVAL

  6374           %WHILE HEAD#0 %CYCLE
39052 @ 327931:                  LINE   6374 "regression-compile-tmp/imp918s.imp"
39053 @ 327969:                  LOCATE L_0003
39054 @ 327972:                  PUSH   HEAD
39055 @ 327975:                  PUSHI  #0x00000000
39056 @ 327980:                  JUMPIF = L_0004

  6375              POP123(HEAD,I,J,K)
39057 @ 327984:                  LINE   6375 "regression-compile-tmp/imp918s.imp"
39058 @ 328022:                  PUSH   POP123
39059 @ 328025:                  PUSH   HEAD
39060 @ 328028:                  ASSPAR
39061 @ 328029:                  PUSH   I
39062 @ 328032:                  ASSPAR
39063 @ 328033:                  PUSH   J
39064 @ 328036:                  ASSPAR
39065 @ 328037:                  PUSH   K
39066 @ 328040:                  ASSPAR
39067 @ 328041:                  CALL  

  6376              REG=K>>8; USE=K&255
39068 @ 328042:                  LINE   6376 "regression-compile-tmp/imp918s.imp"
39069 @ 328080:                  PUSH   REG
39070 @ 328083:                  PUSH   K
39071 @ 328086:                  PUSHI  #0x00000008
39072 @ 328091:                  RSH   
39073 @ 328092:                  ASSVAL
39074 @ 328093:                  LINE   6376 "regression-compile-tmp/imp918s.imp"
39075 @ 328131:                  PUSH   USE
39076 @ 328134:                  PUSH   K
39077 @ 328137:                  PUSHI  #0x000000ff
39078 @ 328142:                  AND   
39079 @ 328143:                  ASSVAL

  6377              %IF USE=GRUSE(REG) %AND I=GRINF(REG) %THEN %C
  6378                 PUSH123(NEWHEAD,I,J,K)
39080 @ 328144:                  LINE   6377 "regression-compile-tmp/imp918s.imp"
39081 @ 328182:                  PUSH   USE
39082 @ 328185:                  PUSH   GRUSE
39083 @ 328188:                  PUSH   REG
39084 @ 328191:                  ACCESS
39085 @ 328192:                  JUMPIF # L_0007
39086 @ 328196:                  PUSH   I
39087 @ 328199:                  PUSH   GRINF
39088 @ 328202:                  PUSH   REG
39089 @ 328205:                  ACCESS
39090 @ 328206:                  JUMPIF # L_0007
39091 @ 328210:                  PUSH   PUSH123
39092 @ 328213:                  PUSH   NEWHEAD
39093 @ 328216:                  ASSPAR
39094 @ 328217:                  PUSH   I
39095 @ 328220:                  ASSPAR
39096 @ 328221:                  PUSH   J
39097 @ 328224:                  ASSPAR
39098 @ 328225:                  PUSH   K
39099 @ 328228:                  ASSPAR
39100 @ 328229:                  CALL  
39101 @ 328230:                  LOCATE L_0007

  6379           %REPEAT
39102 @ 328233:                  LINE   6379 "regression-compile-tmp/imp918s.imp"
39103 @ 328271:                  REPEAT L_0003
39104 @ 328274:                  LOCATE L_0004

  6380           HEAD=NEWHEAD
39105 @ 328277:                  LINE   6380 "regression-compile-tmp/imp918s.imp"
39106 @ 328315:                  PUSH   HEAD
39107 @ 328318:                  PUSH   NEWHEAD
39108 @ 328321:                  ASSVAL

  6381           %END
39109 @ 328322:                  LINE   6381 "regression-compile-tmp/imp918s.imp"
39110 @ 328360:               END    _lev0id0_CSS_REDUCEENV {lev=3 --> 2}

  6382           %ROUTINE ENTER LAB(%INTEGER LAB,FLAGS)
  6383           {%SHORTROUTINE}
  6384  !***********************************************************************
  6385  !*       ENTER A NEW LABEL ON THE LABEL LIST FOR THE CURRENT LEVEL     *
  6386  !*       2**0  OF FLAGS  = 1  CONDITIONAL ENTRY                        *
  6387  !*       2**1  OF FLAGS  = 1  UPDATE ENVIRONMENT                       *
  6388  !*       2**2  OF FLAGS  = 1  REPLACE ENV     =0  MERGE ENV            *
  6389  !*       THE LABEL LIST                                                *
  6390  !*       S1 =   USE BITS<<8 ! LABEL ADDR                               *
  6391  !*       S2 =   ENVIRONMENT LIST << 16 ! UNFILLED JUMPS LIST           *
  6392  !*       S3 = LAB NO - RESET TO ZERO WHEN USED FOR INTERNAL LABELS     *
  6393  !***********************************************************************
39111 @ 328361:               LINE   6382 "regression-compile-tmp/imp918s.imp"
39112 @ 328399:               DEF    ENTERLAB (_lev0id0_CSS_ENTERLAB) p1=V_01a9 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
39113 @ 328419:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
39114 @ 328420:                     DEF    LAB p1=V_0203 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
39115 @ 328435:                     DEF    FLAGS p1=V_0204 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
39116 @ 328452:                  FINISH ) {lev=3}

  6394           %INTEGER CELL,AT,BBASE,BREG,KREG,DIS,KDIS
39117 @ 328453:                  LINE   6394 "regression-compile-tmp/imp918s.imp"
39118 @ 328491:                  DEF    CELL p1=V_0205 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
39119 @ 328507:                  DEF    AT p1=V_0206 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
39120 @ 328521:                  DEF    BBASE p1=V_0207 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
39121 @ 328538:                  DEF    BREG p1=V_0208 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
39122 @ 328554:                  DEF    KREG p1=V_0209 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
39123 @ 328570:                  DEF    DIS p1=V_020a 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
39124 @ 328585:                  DEF    KDIS p1=V_020b 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

  6395           %SHORTINTEGERNAME ENVHEAD,JUMPHEAD
39125 @ 328601:                  LINE   6395 "regression-compile-tmp/imp918s.imp"
39126 @ 328639:                  DEF    ENVHEAD p1=V_020c a/tf=12 b/format=3 c/ostate=0  type=1 (integer) form=2 (name) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
39127 @ 328658:                  DEF    JUMPHEAD p1=V_020d a/tf=12 b/format=3 c/ostate=0  type=1 (integer) form=2 (name) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0

  6396           %RETURN %IF CSSMODE=0
39128 @ 328678:                  LINE   6396 "regression-compile-tmp/imp918s.imp"
39129 @ 328716:                  PUSH   CSSMODE
39130 @ 328719:                  PUSHI  #0x00000000
39131 @ 328724:                  JUMPIF # L_0004
39132 @ 328728:                  RETURN
39133 @ 328729:                  LOCATE L_0004

  6397           FLAGS=FLAGS&1 %IF CHECKSP#0
39134 @ 328732:                  LINE   6397 "regression-compile-tmp/imp918s.imp"
39135 @ 328770:                  PUSH   CHECKSP
39136 @ 328773:                  PUSHI  #0x00000000
39137 @ 328778:                  JUMPIF = L_0004
39138 @ 328782:                  PUSH   FLAGS
39139 @ 328785:                  PUSH   FLAGS
39140 @ 328788:                  PUSHI  #0x00000001
39141 @ 328793:                  AND   
39142 @ 328794:                  ASSVAL
39143 @ 328795:                  LOCATE L_0004

  6398           MONE=1 %IF LAB<MAX ULAB
39144 @ 328798:                  LINE   6398 "regression-compile-tmp/imp918s.imp"
39145 @ 328836:                  PUSH   LAB
39146 @ 328839:                  PUSH   MAXULAB
39147 @ 328842:                  JUMPIF >= L_0004
39148 @ 328846:                  PUSH   MONE
39149 @ 328849:                  PUSHI  #0x00000001
39150 @ 328854:                  ASSVAL
39151 @ 328855:                  LOCATE L_0004

  6399           %IF 1<=LAB<=16381 %THEN WARN(LINE)
39152 @ 328858:                  LINE   6399 "regression-compile-tmp/imp918s.imp"
39153 @ 328896:                  PUSHI  #0x00000001
39154 @ 328901:                  PUSH   LAB
39155 @ 328904:                  JUMPIFD > L_0004
39156 @ 328908:                  PUSHI  #0x00003ffd
39157 @ 328913:                  JUMPIF > L_0004
39158 @ 328917:                  PUSH   WARN
39159 @ 328920:                  PUSH   LINE
39160 @ 328923:                  ASSPAR
39161 @ 328924:                  CALL  
39162 @ 328925:                  LOCATE L_0004

  6400           CELL=FIND3( LAB,LABEL(LEVEL))
39163 @ 328928:                  LINE   6400 "regression-compile-tmp/imp918s.imp"
39164 @ 328966:                  PUSH   CELL
39165 @ 328969:                  PUSH   FIND3
39166 @ 328972:                  PUSH   LAB
39167 @ 328975:                  ASSPAR
39168 @ 328976:                  PUSH   LABEL
39169 @ 328979:                  PUSH   LEVEL
39170 @ 328982:                  ACCESS
39171 @ 328983:                  ASSPAR
39172 @ 328984:                  CALL  
39173 @ 328985:                  ASSVAL

  6401           %IF CELL<0 %THEN %START;      ! LABEL NOT KNOWN
39174 @ 328986:                  LINE   6401 "regression-compile-tmp/imp918s.imp"
39175 @ 329024:                  PUSH   CELL
39176 @ 329027:                  PUSHI  #0x00000000
39177 @ 329032:                  JUMPIF >= L_0004

  6402              %IF FLAGS&1=0 %THEN %START;! UNCONDITIONAL ENTRY
39178 @ 329036:                  LINE   6402 "regression-compile-tmp/imp918s.imp"
39179 @ 329074:                  PUSH   FLAGS
39180 @ 329077:                  PUSHI  #0x00000001
39181 @ 329082:                  AND   
39182 @ 329083:                  PUSHI  #0x00000000
39183 @ 329088:                  JUMPIF # L_0007

  6403                 PUSH123(LABEL(LEVEL),CA,0,LAB)
39184 @ 329092:                  LINE   6403 "regression-compile-tmp/imp918s.imp"
39185 @ 329130:                  PUSH   PUSH123
39186 @ 329133:                  PUSH   LABEL
39187 @ 329136:                  PUSH   LEVEL
39188 @ 329139:                  ACCESS
39189 @ 329140:                  ASSPAR
39190 @ 329141:                  PUSH   CA
39191 @ 329144:                  ASSPAR
39192 @ 329145:                  PUSHI  #0x00000000
39193 @ 329150:                  ASSPAR
39194 @ 329151:                  PUSH   LAB
39195 @ 329154:                  ASSPAR
39196 @ 329155:                  CALL  

  6404                 FORGETM(14)
39197 @ 329156:                  LINE   6404 "regression-compile-tmp/imp918s.imp"
39198 @ 329194:                  PUSH   FORGETM
39199 @ 329197:                  PUSHI  #0x0000000e
39200 @ 329202:                  ASSPAR
39201 @ 329203:                  CALL  

  6405                 CCSTATE=-1; LCA=0
39202 @ 329204:                  LINE   6405 "regression-compile-tmp/imp918s.imp"
39203 @ 329242:                  PUSH   CCSTATE
39204 @ 329245:                  PUSHI  #0x00000001
39205 @ 329250:                  NEGATE
39206 @ 329251:                  ASSVAL
39207 @ 329252:                  LINE   6405 "regression-compile-tmp/imp918s.imp"
39208 @ 329290:                  PUSH   LCA
39209 @ 329293:                  PUSHI  #0x00000000
39210 @ 329298:                  ASSVAL

  6406              %FINISH
39211 @ 329299:                  LINE   6406 "regression-compile-tmp/imp918s.imp"
39212 @ 329337:                  LOCATE L_0007

  6407              %RETURN
39213 @ 329340:                  LINE   6407 "regression-compile-tmp/imp918s.imp"
39214 @ 329378:                  RETURN

  6408           %FINISH
  6409  !
  6410  ! LABEL HAS BEEN REFERENCED - FILL IN ITS ADDRESS
  6411  !
39215 @ 329379:                  LINE   6408 "regression-compile-tmp/imp918s.imp"
39216 @ 329417:                  LOCATE L_0004

  6412           ENVHEAD== SHORT INTEGER(ADDR(ASLIST(CELL+4)))
39217 @ 329420:                  LINE   6412 "regression-compile-tmp/imp918s.imp"
39218 @ 329458:                  PUSH   ENVHEAD
39219 @ 329461:                  PUSH   SHORTINTEGER
39220 @ 329464:                  PUSH   ADDR
39221 @ 329467:                  PUSH   ASLIST
39222 @ 329470:                  PUSH   CELL
39223 @ 329473:                  PUSHI  #0x00000004
39224 @ 329478:                  ADD   
39225 @ 329479:                  ACCESS
39226 @ 329480:                  ASSPAR
39227 @ 329481:                  CALL  
39228 @ 329482:                  ASSPAR
39229 @ 329483:                  CALL  
39230 @ 329484:                  ASSREF

  6413           JUMPHEAD== SHORT INTEGER(ADDR(ASLIST(CELL+6)))
39231 @ 329485:                  LINE   6413 "regression-compile-tmp/imp918s.imp"
39232 @ 329523:                  PUSH   JUMPHEAD
39233 @ 329526:                  PUSH   SHORTINTEGER
39234 @ 329529:                  PUSH   ADDR
39235 @ 329532:                  PUSH   ASLIST
39236 @ 329535:                  PUSH   CELL
39237 @ 329538:                  PUSHI  #0x00000006
39238 @ 329543:                  ADD   
39239 @ 329544:                  ACCESS
39240 @ 329545:                  ASSPAR
39241 @ 329546:                  CALL  
39242 @ 329547:                  ASSPAR
39243 @ 329548:                  CALL  
39244 @ 329549:                  ASSREF

  6414           %IF FROM1(CELL)&X'FFFFFF'# 0 %THEN %START
39245 @ 329550:                  LINE   6414 "regression-compile-tmp/imp918s.imp"
39246 @ 329588:                  PUSH   FROM1
39247 @ 329591:                  PUSH   CELL
39248 @ 329594:                  ASSPAR
39249 @ 329595:                  CALL  
39250 @ 329596:                  PUSHI  #0x00ffffff
39251 @ 329601:                  AND   
39252 @ 329602:                  PUSHI  #0x00000000
39253 @ 329607:                  JUMPIF = L_0004

  6415              FAULT(2,-LAB);             ! LABEL SET TWICE
39254 @ 329611:                  LINE   6415 "regression-compile-tmp/imp918s.imp"
39255 @ 329649:                  PUSH   FAULT
39256 @ 329652:                  PUSHI  #0x00000002
39257 @ 329657:                  ASSPAR
39258 @ 329658:                  PUSH   LAB
39259 @ 329661:                  NEGATE
39260 @ 329662:                  ASSPAR
39261 @ 329663:                  CALL  

  6416           %FINISH %ELSE %START
39262 @ 329664:                  LINE   6416 "regression-compile-tmp/imp918s.imp"
39263 @ 329702:                  GOTO   L_0003
39264 @ 329705:                  LOCATE L_0004

  6417              CCSTATE=-1; LCA=0
39265 @ 329708:                  LINE   6417 "regression-compile-tmp/imp918s.imp"
39266 @ 329746:                  PUSH   CCSTATE
39267 @ 329749:                  PUSHI  #0x00000001
39268 @ 329754:                  NEGATE
39269 @ 329755:                  ASSVAL
39270 @ 329756:                  LINE   6417 "regression-compile-tmp/imp918s.imp"
39271 @ 329794:                  PUSH   LCA
39272 @ 329797:                  PUSHI  #0x00000000
39273 @ 329802:                  ASSVAL

  6418              REPLACE1(CELL,X'1000000'!CA)
39274 @ 329803:                  LINE   6418 "regression-compile-tmp/imp918s.imp"
39275 @ 329841:                  PUSH   REPLACE1
39276 @ 329844:                  PUSH   CELL
39277 @ 329847:                  ASSPAR
39278 @ 329848:                  PUSHI  #0x01000000
39279 @ 329853:                  PUSH   CA
39280 @ 329856:                  OR    
39281 @ 329857:                  ASSPAR
39282 @ 329858:                  CALL  

  6419           %FINISH
  6420  !
  6421  ! SORT OUT ENVIRONMENTS  -  AS DIRECTED BY FLAGS
  6422  !
39283 @ 329859:                  LINE   6419 "regression-compile-tmp/imp918s.imp"
39284 @ 329897:                  LOCATE L_0003

  6423           %IF FLAGS&2=0 %THEN %START
39285 @ 329900:                  LINE   6423 "regression-compile-tmp/imp918s.imp"
39286 @ 329938:                  PUSH   FLAGS
39287 @ 329941:                  PUSHI  #0x00000002
39288 @ 329946:                  AND   
39289 @ 329947:                  PUSHI  #0x00000000
39290 @ 329952:                  JUMPIF # L_0004

  6424              FORGETM(14)
39291 @ 329956:                  LINE   6424 "regression-compile-tmp/imp918s.imp"
39292 @ 329994:                  PUSH   FORGETM
39293 @ 329997:                  PUSHI  #0x0000000e
39294 @ 330002:                  ASSPAR
39295 @ 330003:                  CALL  

  6425              CLEAR LIST(ENVHEAD) %IF ENVHEAD#0
39296 @ 330004:                  LINE   6425 "regression-compile-tmp/imp918s.imp"
39297 @ 330042:                  PUSH   ENVHEAD
39298 @ 330045:                  PUSHI  #0x00000000
39299 @ 330050:                  JUMPIF = L_0007
39300 @ 330054:                  PUSH   CLEARLIST
39301 @ 330057:                  PUSH   ENVHEAD
39302 @ 330060:                  ASSPAR
39303 @ 330061:                  CALL  
39304 @ 330062:                  LOCATE L_0007

  6426           %FINISH %ELSE %START
39305 @ 330065:                  LINE   6426 "regression-compile-tmp/imp918s.imp"
39306 @ 330103:                  GOTO   L_0003
39307 @ 330106:                  LOCATE L_0004

  6427              REMEMBER %IF FLAGS&4=0
39308 @ 330109:                  LINE   6427 "regression-compile-tmp/imp918s.imp"
39309 @ 330147:                  PUSH   FLAGS
39310 @ 330150:                  PUSHI  #0x00000004
39311 @ 330155:                  AND   
39312 @ 330156:                  PUSHI  #0x00000000
39313 @ 330161:                  JUMPIF # L_0007
39314 @ 330165:                  PUSH   REMEMBER
39315 @ 330168:                  CALL  
39316 @ 330169:                  LOCATE L_0007

  6428              RESTORE (ENVHEAD)
39317 @ 330172:                  LINE   6428 "regression-compile-tmp/imp918s.imp"
39318 @ 330210:                  PUSH   RESTORE
39319 @ 330213:                  PUSH   ENVHEAD
39320 @ 330216:                  ASSPAR
39321 @ 330217:                  CALL  

  6429              ENVHEAD=0
39322 @ 330218:                  LINE   6429 "regression-compile-tmp/imp918s.imp"
39323 @ 330256:                  PUSH   ENVHEAD
39324 @ 330259:                  PUSHI  #0x00000000
39325 @ 330264:                  ASSVAL

  6430              MERGE INFO %IF FLAGS&4=0
39326 @ 330265:                  LINE   6430 "regression-compile-tmp/imp918s.imp"
39327 @ 330303:                  PUSH   FLAGS
39328 @ 330306:                  PUSHI  #0x00000004
39329 @ 330311:                  AND   
39330 @ 330312:                  PUSHI  #0x00000000
39331 @ 330317:                  JUMPIF # L_0007
39332 @ 330321:                  PUSH   MERGEINFO
39333 @ 330324:                  CALL  
39334 @ 330325:                  LOCATE L_0007

  6431           %FINISH
  6432  !
  6433  ! NOW FILL JUMPS TO THIS LABEL - JUMP LIST FORMAT GIVEN IN 'ENTER JMP'
  6434  !
39335 @ 330328:                  LINE   6431 "regression-compile-tmp/imp918s.imp"
39336 @ 330366:                  LOCATE L_0003

  6435           %WHILE  JUMPHEAD#0  %CYCLE
39337 @ 330369:                  LINE   6435 "regression-compile-tmp/imp918s.imp"
39338 @ 330407:                  LOCATE L_0003
39339 @ 330410:                  PUSH   JUMPHEAD
39340 @ 330413:                  PUSHI  #0x00000000
39341 @ 330418:                  JUMPIF = L_0004

  6436              POP(JUMPHEAD,AT,BBASE)
39342 @ 330422:                  LINE   6436 "regression-compile-tmp/imp918s.imp"
39343 @ 330460:                  PUSH   POP
39344 @ 330463:                  PUSH   JUMPHEAD
39345 @ 330466:                  ASSPAR
39346 @ 330467:                  PUSH   AT
39347 @ 330470:                  ASSPAR
39348 @ 330471:                  PUSH   BBASE
39349 @ 330474:                  ASSPAR
39350 @ 330475:                  CALL  

  6437              KREG=AT>>24
39351 @ 330476:                  LINE   6437 "regression-compile-tmp/imp918s.imp"
39352 @ 330514:                  PUSH   KREG
39353 @ 330517:                  PUSH   AT
39354 @ 330520:                  PUSHI  #0x00000018
39355 @ 330525:                  RSH   
39356 @ 330526:                  ASSVAL

  6438              BREG=BBASE>>24
39357 @ 330527:                  LINE   6438 "regression-compile-tmp/imp918s.imp"
39358 @ 330565:                  PUSH   BREG
39359 @ 330568:                  PUSH   BBASE
39360 @ 330571:                  PUSHI  #0x00000018
39361 @ 330576:                  RSH   
39362 @ 330577:                  ASSVAL

  6439              AT=AT&X'FFFFFF'
39363 @ 330578:                  LINE   6439 "regression-compile-tmp/imp918s.imp"
39364 @ 330616:                  PUSH   AT
39365 @ 330619:                  PUSH   AT
39366 @ 330622:                  PUSHI  #0x00ffffff
39367 @ 330627:                  AND   
39368 @ 330628:                  ASSVAL

  6440              DIS=CA-BBASE&X'FFFFFF'
  6441  !
  6442  ! KREG=0 %IF NO INDEX REGISTER REQUIRED
  6443  ! KREG=KREG!16 %IF INDEX REGISTER HAS BEEN SET UP BY EARLIER JUMP
  6444  ! IF INDEX REGISTER SET BUT NOT REQUIRED  OVERWRITE 'L' WITH 'LA'
  6445  !
39369 @ 330629:                  LINE   6440 "regression-compile-tmp/imp918s.imp"
39370 @ 330667:                  PUSH   DIS
39371 @ 330670:                  PUSH   CA
39372 @ 330673:                  PUSH   BBASE
39373 @ 330676:                  PUSHI  #0x00ffffff
39374 @ 330681:                  AND   
39375 @ 330682:                  SUB   
39376 @ 330683:                  ASSVAL

  6446           %IF 0<KREG<16 %THEN %START
39377 @ 330684:                  LINE   6446 "regression-compile-tmp/imp918s.imp"
39378 @ 330722:                  PUSHI  #0x00000000
39379 @ 330727:                  PUSH   KREG
39380 @ 330730:                  JUMPIFD >= L_0007
39381 @ 330734:                  PUSHI  #0x00000010
39382 @ 330739:                  JUMPIF >= L_0007

  6447              KDIS= PTBASE+ DIS>>12<<2;! ADDR OF CORRECT 4K MULTIPLE
39383 @ 330743:                  LINE   6447 "regression-compile-tmp/imp918s.imp"
39384 @ 330781:                  PUSH   KDIS
39385 @ 330784:                  PUSHI  #0x00000100
39386 @ 330789:                  PUSH   DIS
39387 @ 330792:                  PUSHI  #0x0000000c
39388 @ 330797:                  RSH   
39389 @ 330798:                  PUSHI  #0x00000002
39390 @ 330803:                  LSH   
39391 @ 330804:                  ADD   
39392 @ 330805:                  ASSVAL

  6448              %IF KDIS=PTBASE %THEN %START
39393 @ 330806:                  LINE   6448 "regression-compile-tmp/imp918s.imp"
39394 @ 330844:                  PUSH   KDIS
39395 @ 330847:                  PUSHI  #0x00000100
39396 @ 330852:                  JUMPIF # L_000a

  6449                 PLUG(1,AT,X'4100'! KREG<<4);!   LOAD ADDRESS
39397 @ 330856:                  LINE   6449 "regression-compile-tmp/imp918s.imp"
39398 @ 330894:                  PUSH   PLUG
39399 @ 330897:                  PUSHI  #0x00000001
39400 @ 330902:                  ASSPAR
39401 @ 330903:                  PUSH   AT
39402 @ 330906:                  ASSPAR
39403 @ 330907:                  PUSHI  #0x00004100
39404 @ 330912:                  PUSH   KREG
39405 @ 330915:                  PUSHI  #0x00000004
39406 @ 330920:                  LSH   
39407 @ 330921:                  OR    
39408 @ 330922:                  ASSPAR
39409 @ 330923:                  CALL  

  6450                 KDIS=0
39410 @ 330924:                  LINE   6450 "regression-compile-tmp/imp918s.imp"
39411 @ 330962:                  PUSH   KDIS
39412 @ 330965:                  PUSHI  #0x00000000
39413 @ 330970:                  ASSVAL

  6451              %FINISH
39414 @ 330971:                  LINE   6451 "regression-compile-tmp/imp918s.imp"
39415 @ 331009:                  LOCATE L_000a

  6452              PLUG(1,AT+2,KDIS)
39416 @ 331012:                  LINE   6452 "regression-compile-tmp/imp918s.imp"
39417 @ 331050:                  PUSH   PLUG
39418 @ 331053:                  PUSHI  #0x00000001
39419 @ 331058:                  ASSPAR
39420 @ 331059:                  PUSH   AT
39421 @ 331062:                  PUSHI  #0x00000002
39422 @ 331067:                  ADD   
39423 @ 331068:                  ASSPAR
39424 @ 331069:                  PUSH   KDIS
39425 @ 331072:                  ASSPAR
39426 @ 331073:                  CALL  

  6453              AT=AT+4
39427 @ 331074:                  LINE   6453 "regression-compile-tmp/imp918s.imp"
39428 @ 331112:                  PUSH   AT
39429 @ 331115:                  PUSH   AT
39430 @ 331118:                  PUSHI  #0x00000004
39431 @ 331123:                  ADD   
39432 @ 331124:                  ASSVAL

  6454           %FINISH
39433 @ 331125:                  LINE   6454 "regression-compile-tmp/imp918s.imp"
39434 @ 331163:                  LOCATE L_0007

  6455           %IF DIS>4095 %AND KREG=0 %THEN FAULT(99,0)
39435 @ 331166:                  LINE   6455 "regression-compile-tmp/imp918s.imp"
39436 @ 331204:                  PUSH   DIS
39437 @ 331207:                  PUSHI  #0x00000fff
39438 @ 331212:                  JUMPIF <= L_0007
39439 @ 331216:                  PUSH   KREG
39440 @ 331219:                  PUSHI  #0x00000000
39441 @ 331224:                  JUMPIF # L_0007
39442 @ 331228:                  PUSH   FAULT
39443 @ 331231:                  PUSHI  #0x00000063
39444 @ 331236:                  ASSPAR
39445 @ 331237:                  PUSHI  #0x00000000
39446 @ 331242:                  ASSPAR
39447 @ 331243:                  CALL  
39448 @ 331244:                  LOCATE L_0007

  6456           PLUG(1,AT+2, (BREG&15)<<12!DIS&4095); ! FILL THE JUMP
39449 @ 331247:                  LINE   6456 "regression-compile-tmp/imp918s.imp"
39450 @ 331285:                  PUSH   PLUG
39451 @ 331288:                  PUSHI  #0x00000001
39452 @ 331293:                  ASSPAR
39453 @ 331294:                  PUSH   AT
39454 @ 331297:                  PUSHI  #0x00000002
39455 @ 331302:                  ADD   
39456 @ 331303:                  ASSPAR
39457 @ 331304:                  PUSH   BREG
39458 @ 331307:                  PUSHI  #0x0000000f
39459 @ 331312:                  AND   
39460 @ 331313:                  PUSHI  #0x0000000c
39461 @ 331318:                  LSH   
39462 @ 331319:                  PUSH   DIS
39463 @ 331322:                  PUSHI  #0x00000fff
39464 @ 331327:                  AND   
39465 @ 331328:                  OR    
39466 @ 331329:                  ASSPAR
39467 @ 331330:                  CALL  

  6457           %REPEAT
39468 @ 331331:                  LINE   6457 "regression-compile-tmp/imp918s.imp"
39469 @ 331369:                  REPEAT L_0003
39470 @ 331372:                  LOCATE L_0004

  6458           %IF LAB> MAX ULAB  %THEN %START
39471 @ 331375:                  LINE   6458 "regression-compile-tmp/imp918s.imp"
39472 @ 331413:                  PUSH   LAB
39473 @ 331416:                  PUSH   MAXULAB
39474 @ 331419:                  JUMPIF <= L_0004

  6459              %IF PREV3CL=0 %THEN JUMPHEAD==LABEL(LEVEL) %C
  6460                 %ELSE JUMPHEAD==SHORT INTEGER(ADDR(ASLIST(PREV3CL+14)))
39475 @ 331423:                  LINE   6459 "regression-compile-tmp/imp918s.imp"
39476 @ 331461:                  PUSH   PREV3CL
39477 @ 331464:                  PUSHI  #0x00000000
39478 @ 331469:                  JUMPIF # L_0007
39479 @ 331473:                  PUSH   JUMPHEAD
39480 @ 331476:                  PUSH   LABEL
39481 @ 331479:                  PUSH   LEVEL
39482 @ 331482:                  ACCESS
39483 @ 331483:                  ASSREF
39484 @ 331484:                  GOTO   L_0006
39485 @ 331487:                  LOCATE L_0007
39486 @ 331490:                  PUSH   JUMPHEAD
39487 @ 331493:                  PUSH   SHORTINTEGER
39488 @ 331496:                  PUSH   ADDR
39489 @ 331499:                  PUSH   ASLIST
39490 @ 331502:                  PUSH   PREV3CL
39491 @ 331505:                  PUSHI  #0x0000000e
39492 @ 331510:                  ADD   
39493 @ 331511:                  ACCESS
39494 @ 331512:                  ASSPAR
39495 @ 331513:                  CALL  
39496 @ 331514:                  ASSPAR
39497 @ 331515:                  CALL  
39498 @ 331516:                  ASSREF
39499 @ 331517:                  LOCATE L_0006

  6461              POP(JUMPHEAD,AT,AT);        ! REMOVE OLD LABEL
39500 @ 331520:                  LINE   6461 "regression-compile-tmp/imp918s.imp"
39501 @ 331558:                  PUSH   POP
39502 @ 331561:                  PUSH   JUMPHEAD
39503 @ 331564:                  ASSPAR
39504 @ 331565:                  PUSH   AT
39505 @ 331568:                  ASSPAR
39506 @ 331569:                  PUSH   AT
39507 @ 331572:                  ASSPAR
39508 @ 331573:                  CALL  

  6462           %FINISH
39509 @ 331574:                  LINE   6462 "regression-compile-tmp/imp918s.imp"
39510 @ 331612:                  LOCATE L_0004

  6463           %END
39511 @ 331615:                  LINE   6463 "regression-compile-tmp/imp918s.imp"
39512 @ 331653:               END    _lev0id0_CSS_ENTERLAB {lev=3 --> 2}

  6464           %ROUTINE ENTER JUMP(%INTEGER MASK,LAB,FLAGS)
  6465           {%SHORTROUTINE}
  6466  !***********************************************************************
  6467  !*       IF LAB HAS BEEN ENCOUNTERED THEN PLANT A *BC OTHERWISE ENTER  *
  6468  !*       THE LABEL IN THE LABEL LIST AND ATTACH THE JUMP TO IT SO IT   *
  6469  !*       CAN BE PLANTED WHEN THE LABEL IS FOUND                        *
  6470  !*       THE LABEL LIST IS DESCRIBED UNDER 'ENTER LAB'                 *
  6471  !*       THE JUMP SUB-LIST HAS THE FORM                                *
  6472  !*       S1=KREG<<24! ADDR OF JUMP                                     *
  6473  !*       S2=BREG<<24! (ADDRESS IN BASE(BREG) REGISTER)                 *
  6474  !*                                                                     *
  6475  !*       FLAGS BITS SIGNIFY AS FOLLOWS                                 *
  6476  !*       2**0 =1  JUMP IS KNOWN TO BE SHORT                            *
  6477  !*       2**1 =1  ENVIRONMENT MERGEING REQUIRED                        *
  6478  !***********************************************************************
39513 @ 331654:               LINE   6464 "regression-compile-tmp/imp918s.imp"
39514 @ 331692:               DEF    ENTERJUMP (_lev0id0_CSS_ENTERJUMP) p1=V_01a6 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
39515 @ 331713:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
39516 @ 331714:                     DEF    MASK p1=V_0203 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
39517 @ 331730:                     DEF    LAB p1=V_0204 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
39518 @ 331745:                     DEF    FLAGS p1=V_0205 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
39519 @ 331762:                  FINISH ) {lev=3}

  6479           %INTEGER AT,CELL,BREG,BBASE,KREG,LABADDR,I
39520 @ 331763:                  LINE   6479 "regression-compile-tmp/imp918s.imp"
39521 @ 331801:                  DEF    AT p1=V_0206 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
39522 @ 331815:                  DEF    CELL p1=V_0207 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
39523 @ 331831:                  DEF    BREG p1=V_0208 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
39524 @ 331847:                  DEF    BBASE p1=V_0209 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
39525 @ 331864:                  DEF    KREG p1=V_020a 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
39526 @ 331880:                  DEF    LABADDR p1=V_020b 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
39527 @ 331899:                  DEF    I p1=V_020c 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

  6480           %SHORTINTEGER ENVHEAD
39528 @ 331912:                  LINE   6480 "regression-compile-tmp/imp918s.imp"
39529 @ 331950:                  DEF    ENVHEAD p1=V_020d a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0

  6481           %SHORTINTEGERNAME OLDENV
39530 @ 331969:                  LINE   6481 "regression-compile-tmp/imp918s.imp"
39531 @ 332007:                  DEF    OLDENV p1=V_020e a/tf=12 b/format=3 c/ostate=0  type=1 (integer) form=2 (name) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0

  6482           ENVHEAD=0; AT=CA; KREG=0
39532 @ 332025:                  LINE   6482 "regression-compile-tmp/imp918s.imp"
39533 @ 332063:                  PUSH   ENVHEAD
39534 @ 332066:                  PUSHI  #0x00000000
39535 @ 332071:                  ASSVAL
39536 @ 332072:                  LINE   6482 "regression-compile-tmp/imp918s.imp"
39537 @ 332110:                  PUSH   AT
39538 @ 332113:                  PUSH   CA
39539 @ 332116:                  ASSVAL
39540 @ 332117:                  LINE   6482 "regression-compile-tmp/imp918s.imp"
39541 @ 332155:                  PUSH   KREG
39542 @ 332158:                  PUSHI  #0x00000000
39543 @ 332163:                  ASSVAL

  6483           BREG=10; BBASE=CODEBASE; ENVHEAD=0
39544 @ 332164:                  LINE   6483 "regression-compile-tmp/imp918s.imp"
39545 @ 332202:                  PUSH   BREG
39546 @ 332205:                  PUSHI  #0x0000000a
39547 @ 332210:                  ASSVAL
39548 @ 332211:                  LINE   6483 "regression-compile-tmp/imp918s.imp"
39549 @ 332249:                  PUSH   BBASE
39550 @ 332252:                  PUSH   CODEBASE
39551 @ 332255:                  ASSVAL
39552 @ 332256:                  LINE   6483 "regression-compile-tmp/imp918s.imp"
39553 @ 332294:                  PUSH   ENVHEAD
39554 @ 332297:                  PUSHI  #0x00000000
39555 @ 332302:                  ASSVAL

  6484           %IF LAB=0 %THEN FAULT(2,0) %AND %RETURN
39556 @ 332303:                  LINE   6484 "regression-compile-tmp/imp918s.imp"
39557 @ 332341:                  PUSH   LAB
39558 @ 332344:                  PUSHI  #0x00000000
39559 @ 332349:                  JUMPIF # L_0004
39560 @ 332353:                  PUSH   FAULT
39561 @ 332356:                  PUSHI  #0x00000002
39562 @ 332361:                  ASSPAR
39563 @ 332362:                  PUSHI  #0x00000000
39564 @ 332367:                  ASSPAR
39565 @ 332368:                  CALL  
39566 @ 332369:                  RETURN
39567 @ 332370:                  LOCATE L_0004

  6485           FLAGS=FLAGS&1 %IF CHECKSP#0
39568 @ 332373:                  LINE   6485 "regression-compile-tmp/imp918s.imp"
39569 @ 332411:                  PUSH   CHECKSP
39570 @ 332414:                  PUSHI  #0x00000000
39571 @ 332419:                  JUMPIF = L_0004
39572 @ 332423:                  PUSH   FLAGS
39573 @ 332426:                  PUSH   FLAGS
39574 @ 332429:                  PUSHI  #0x00000001
39575 @ 332434:                  AND   
39576 @ 332435:                  ASSVAL
39577 @ 332436:                  LOCATE L_0004

  6486           %IF 1<=LAB<=16381 %THEN WARN(LINE)
39578 @ 332439:                  LINE   6486 "regression-compile-tmp/imp918s.imp"
39579 @ 332477:                  PUSHI  #0x00000001
39580 @ 332482:                  PUSH   LAB
39581 @ 332485:                  JUMPIFD > L_0004
39582 @ 332489:                  PUSHI  #0x00003ffd
39583 @ 332494:                  JUMPIF > L_0004
39584 @ 332498:                  PUSH   WARN
39585 @ 332501:                  PUSH   LINE
39586 @ 332504:                  ASSPAR
39587 @ 332505:                  CALL  
39588 @ 332506:                  LOCATE L_0004

  6487           %IF LAB<MAX ULAB %THEN FLAGS=FLAGS&X'FD';! NO MERGE
39589 @ 332509:                  LINE   6487 "regression-compile-tmp/imp918s.imp"
39590 @ 332547:                  PUSH   LAB
39591 @ 332550:                  PUSH   MAXULAB
39592 @ 332553:                  JUMPIF >= L_0004
39593 @ 332557:                  PUSH   FLAGS
39594 @ 332560:                  PUSH   FLAGS
39595 @ 332563:                  PUSHI  #0x000000fd
39596 @ 332568:                  AND   
39597 @ 332569:                  ASSVAL
39598 @ 332570:                  LOCATE L_0004

  6488           %IF LAB<22000 %THEN FLAGS=FLAGS&X'FE'
  6489                                            ! SF OR USER LAB=LONG
39599 @ 332573:                  LINE   6488 "regression-compile-tmp/imp918s.imp"
39600 @ 332611:                  PUSH   LAB
39601 @ 332614:                  PUSHI  #0x000055f0
39602 @ 332619:                  JUMPIF >= L_0004
39603 @ 332623:                  PUSH   FLAGS
39604 @ 332626:                  PUSH   FLAGS
39605 @ 332629:                  PUSHI  #0x000000fe
39606 @ 332634:                  AND   
39607 @ 332635:                  ASSVAL
39608 @ 332636:                  LOCATE L_0004

  6490           CELL=FIND3(LAB,LABEL(LEVEL))
39609 @ 332639:                  LINE   6490 "regression-compile-tmp/imp918s.imp"
39610 @ 332677:                  PUSH   CELL
39611 @ 332680:                  PUSH   FIND3
39612 @ 332683:                  PUSH   LAB
39613 @ 332686:                  ASSPAR
39614 @ 332687:                  PUSH   LABEL
39615 @ 332690:                  PUSH   LEVEL
39616 @ 332693:                  ACCESS
39617 @ 332694:                  ASSPAR
39618 @ 332695:                  CALL  
39619 @ 332696:                  ASSVAL

  6491           -> FIRSTREF %IF CELL<0
39620 @ 332697:                  LINE   6491 "regression-compile-tmp/imp918s.imp"
39621 @ 332735:                  PUSH   CELL
39622 @ 332738:                  PUSHI  #0x00000000
39623 @ 332743:                  JUMPIF >= L_0004
39624 @ 332747:                  JUMP   L_020f
39625 @ 332750:                  LOCATE L_0004

  6492           LABADDR=FROM1(CELL)&X'FFFFFF'
39626 @ 332753:                  LINE   6492 "regression-compile-tmp/imp918s.imp"
39627 @ 332791:                  PUSH   LABADDR
39628 @ 332794:                  PUSH   FROM1
39629 @ 332797:                  PUSH   CELL
39630 @ 332800:                  ASSPAR
39631 @ 332801:                  CALL  
39632 @ 332802:                  PUSHI  #0x00ffffff
39633 @ 332807:                  AND   
39634 @ 332808:                  ASSVAL

  6493           -> NOT YET SET %IF LABADDR=0
39635 @ 332809:                  LINE   6493 "regression-compile-tmp/imp918s.imp"
39636 @ 332847:                  PUSH   LABADDR
39637 @ 332850:                  PUSHI  #0x00000000
39638 @ 332855:                  JUMPIF # L_0004
39639 @ 332859:                  JUMP   L_0210
39640 @ 332862:                  LOCATE L_0004

  6494           REPLACE1(CELL,LABADDR!X'1000000');! FLAG LABEL AS USED
39641 @ 332865:                  LINE   6494 "regression-compile-tmp/imp918s.imp"
39642 @ 332903:                  PUSH   REPLACE1
39643 @ 332906:                  PUSH   CELL
39644 @ 332909:                  ASSPAR
39645 @ 332910:                  PUSH   LABADDR
39646 @ 332913:                  PUSHI  #0x01000000
39647 @ 332918:                  OR    
39648 @ 332919:                  ASSPAR
39649 @ 332920:                  CALL  

  6495           %IF CYC BASE#0 %AND CYC ADDR<=LABADDR %THEN %C
  6496                          BREG=CYC BASE %AND BBASE=CYC ADDR
39650 @ 332921:                  LINE   6495 "regression-compile-tmp/imp918s.imp"
39651 @ 332959:                  PUSH   CYCBASE
39652 @ 332962:                  PUSHI  #0x00000000
39653 @ 332967:                  JUMPIF = L_0004
39654 @ 332971:                  PUSH   CYCADDR
39655 @ 332974:                  PUSH   LABADDR
39656 @ 332977:                  JUMPIF > L_0004
39657 @ 332981:                  PUSH   BREG
39658 @ 332984:                  PUSH   CYCBASE
39659 @ 332987:                  ASSVAL
39660 @ 332988:                  PUSH   BBASE
39661 @ 332991:                  PUSH   CYCADDR
39662 @ 332994:                  ASSVAL
39663 @ 332995:                  LOCATE L_0004

  6497           I=LABADDR-BBASE
39664 @ 332998:                  LINE   6497 "regression-compile-tmp/imp918s.imp"
39665 @ 333036:                  PUSH   I
39666 @ 333039:                  PUSH   LABADDR
39667 @ 333042:                  PUSH   BBASE
39668 @ 333045:                  SUB   
39669 @ 333046:                  ASSVAL

  6498           %IF I=0 %THEN PRR(7,MASK,BREG) %ELSE DUMP(X'47',MASK,I,0,BREG)
39670 @ 333047:                  LINE   6498 "regression-compile-tmp/imp918s.imp"
39671 @ 333085:                  PUSH   I
39672 @ 333088:                  PUSHI  #0x00000000
39673 @ 333093:                  JUMPIF # L_0004
39674 @ 333097:                  PUSH   PRR
39675 @ 333100:                  PUSHI  #0x00000007
39676 @ 333105:                  ASSPAR
39677 @ 333106:                  PUSH   MASK
39678 @ 333109:                  ASSPAR
39679 @ 333110:                  PUSH   BREG
39680 @ 333113:                  ASSPAR
39681 @ 333114:                  CALL  
39682 @ 333115:                  GOTO   L_0003
39683 @ 333118:                  LOCATE L_0004
39684 @ 333121:                  PUSH   DUMP
39685 @ 333124:                  PUSHI  #0x00000047
39686 @ 333129:                  ASSPAR
39687 @ 333130:                  PUSH   MASK
39688 @ 333133:                  ASSPAR
39689 @ 333134:                  PUSH   I
39690 @ 333137:                  ASSPAR
39691 @ 333138:                  PUSHI  #0x00000000
39692 @ 333143:                  ASSPAR
39693 @ 333144:                  PUSH   BREG
39694 @ 333147:                  ASSPAR
39695 @ 333148:                  CALL  
39696 @ 333149:                  LOCATE L_0003

  6499           %RETURN
39697 @ 333152:                  LINE   6499 "regression-compile-tmp/imp918s.imp"
39698 @ 333190:                  RETURN

  6500  FIRSTREF:                              ! FIRST REFERENCE TO A NEW LABEL
39699 @ 333191:                  LINE   6500 "regression-compile-tmp/imp918s.imp"
39700 @ 333229:                  LABEL  L_020f

  6501           %IF CSSMODE#0 %THEN %START
39701 @ 333232:                  LINE   6501 "regression-compile-tmp/imp918s.imp"
39702 @ 333270:                  PUSH   CSSMODE
39703 @ 333273:                  PUSHI  #0x00000000
39704 @ 333278:                  JUMPIF = L_0004

  6502              %IF LAB>MAX ULAB %AND FLAGS&2#0 %THEN GET ENV(ENV HEAD)
39705 @ 333282:                  LINE   6502 "regression-compile-tmp/imp918s.imp"
39706 @ 333320:                  PUSH   LAB
39707 @ 333323:                  PUSH   MAXULAB
39708 @ 333326:                  JUMPIF <= L_0007
39709 @ 333330:                  PUSH   FLAGS
39710 @ 333333:                  PUSHI  #0x00000002
39711 @ 333338:                  AND   
39712 @ 333339:                  PUSHI  #0x00000000
39713 @ 333344:                  JUMPIF = L_0007
39714 @ 333348:                  PUSH   GETENV
39715 @ 333351:                  PUSH   ENVHEAD
39716 @ 333354:                  ASSPAR
39717 @ 333355:                  CALL  
39718 @ 333356:                  LOCATE L_0007

  6503              PUSH123(LABEL(LEVEL),X'1000000',ENVHEAD<<16,LAB)
39719 @ 333359:                  LINE   6503 "regression-compile-tmp/imp918s.imp"
39720 @ 333397:                  PUSH   PUSH123
39721 @ 333400:                  PUSH   LABEL
39722 @ 333403:                  PUSH   LEVEL
39723 @ 333406:                  ACCESS
39724 @ 333407:                  ASSPAR
39725 @ 333408:                  PUSHI  #0x01000000
39726 @ 333413:                  ASSPAR
39727 @ 333414:                  PUSH   ENVHEAD
39728 @ 333417:                  PUSHI  #0x00000010
39729 @ 333422:                  LSH   
39730 @ 333423:                  ASSPAR
39731 @ 333424:                  PUSH   LAB
39732 @ 333427:                  ASSPAR
39733 @ 333428:                  CALL  

  6504              CELL=LABEL(LEVEL)
39734 @ 333429:                  LINE   6504 "regression-compile-tmp/imp918s.imp"
39735 @ 333467:                  PUSH   CELL
39736 @ 333470:                  PUSH   LABEL
39737 @ 333473:                  PUSH   LEVEL
39738 @ 333476:                  ACCESS
39739 @ 333477:                  ASSVAL

  6505           %FINISH
39740 @ 333478:                  LINE   6505 "regression-compile-tmp/imp918s.imp"
39741 @ 333516:                  LOCATE L_0004

  6506           -> CODE
39742 @ 333519:                  LINE   6506 "regression-compile-tmp/imp918s.imp"
39743 @ 333557:                  JUMP   L_0211

  6507  NOT YET SET:                           ! LABEL REFERENCED BEFORE
39744 @ 333560:                  LINE   6507 "regression-compile-tmp/imp918s.imp"
39745 @ 333598:                  LABEL  L_0210

  6508           %IF CSSMODE#0 %THEN %START
39746 @ 333601:                  LINE   6508 "regression-compile-tmp/imp918s.imp"
39747 @ 333639:                  PUSH   CSSMODE
39748 @ 333642:                  PUSHI  #0x00000000
39749 @ 333647:                  JUMPIF = L_0004

  6509              %IF LAB>MAX ULAB %AND FLAGS&2#0 %THEN %START
39750 @ 333651:                  LINE   6509 "regression-compile-tmp/imp918s.imp"
39751 @ 333689:                  PUSH   LAB
39752 @ 333692:                  PUSH   MAXULAB
39753 @ 333695:                  JUMPIF <= L_0007
39754 @ 333699:                  PUSH   FLAGS
39755 @ 333702:                  PUSHI  #0x00000002
39756 @ 333707:                  AND   
39757 @ 333708:                  PUSHI  #0x00000000
39758 @ 333713:                  JUMPIF = L_0007

  6510              OLDENV==SHORT INTEGER(ADDR(ASLIST(CELL+4)))
39759 @ 333717:                  LINE   6510 "regression-compile-tmp/imp918s.imp"
39760 @ 333755:                  PUSH   OLDENV
39761 @ 333758:                  PUSH   SHORTINTEGER
39762 @ 333761:                  PUSH   ADDR
39763 @ 333764:                  PUSH   ASLIST
39764 @ 333767:                  PUSH   CELL
39765 @ 333770:                  PUSHI  #0x00000004
39766 @ 333775:                  ADD   
39767 @ 333776:                  ACCESS
39768 @ 333777:                  ASSPAR
39769 @ 333778:                  CALL  
39770 @ 333779:                  ASSPAR
39771 @ 333780:                  CALL  
39772 @ 333781:                  ASSREF

  6511                 REDUCE ENV(OLD ENV)
39773 @ 333782:                  LINE   6511 "regression-compile-tmp/imp918s.imp"
39774 @ 333820:                  PUSH   REDUCEENV
39775 @ 333823:                  PUSH   OLDENV
39776 @ 333826:                  ASSPAR
39777 @ 333827:                  CALL  

  6512              %FINISH
39778 @ 333828:                  LINE   6512 "regression-compile-tmp/imp918s.imp"
39779 @ 333866:                  LOCATE L_0007

  6513           %FINISH
39780 @ 333869:                  LINE   6513 "regression-compile-tmp/imp918s.imp"
39781 @ 333907:                  LOCATE L_0004

  6514  CODE:                                  ! ACTUALLY PLANT THE JUMP
39782 @ 333910:                  LINE   6514 "regression-compile-tmp/imp918s.imp"
39783 @ 333948:                  LABEL  L_0211

  6515           %IF SBFLAG #0 %THEN FLAGS=FLAGS!1
39784 @ 333951:                  LINE   6515 "regression-compile-tmp/imp918s.imp"
39785 @ 333989:                  PUSH   SBFLAG
39786 @ 333992:                  PUSHI  #0x00000000
39787 @ 333997:                  JUMPIF = L_0004
39788 @ 334001:                  PUSH   FLAGS
39789 @ 334004:                  PUSH   FLAGS
39790 @ 334007:                  PUSHI  #0x00000001
39791 @ 334012:                  OR    
39792 @ 334013:                  ASSVAL
39793 @ 334014:                  LOCATE L_0004

  6516           %IF CYC BASE #0 %AND LAB> MAX ULAB %THEN %START
39794 @ 334017:                  LINE   6516 "regression-compile-tmp/imp918s.imp"
39795 @ 334055:                  PUSH   CYCBASE
39796 @ 334058:                  PUSHI  #0x00000000
39797 @ 334063:                  JUMPIF = L_0004
39798 @ 334067:                  PUSH   LAB
39799 @ 334070:                  PUSH   MAXULAB
39800 @ 334073:                  JUMPIF <= L_0004

  6517              BREG=CYC BASE;             ! SOMETHING INSIDE AN OPTIMISED
39801 @ 334077:                  LINE   6517 "regression-compile-tmp/imp918s.imp"
39802 @ 334115:                  PUSH   BREG
39803 @ 334118:                  PUSH   CYCBASE
39804 @ 334121:                  ASSVAL

  6518              BBASE=CYC ADDR;            ! CYCLE. BASE REGISTER COVER
39805 @ 334122:                  LINE   6518 "regression-compile-tmp/imp918s.imp"
39806 @ 334160:                  PUSH   BBASE
39807 @ 334163:                  PUSH   CYCADDR
39808 @ 334166:                  ASSVAL

  6519              FLAGS=FLAGS!1;             ! IS PROVIDED BY CYC BASE
39809 @ 334167:                  LINE   6519 "regression-compile-tmp/imp918s.imp"
39810 @ 334205:                  PUSH   FLAGS
39811 @ 334208:                  PUSH   FLAGS
39812 @ 334211:                  PUSHI  #0x00000001
39813 @ 334216:                  OR    
39814 @ 334217:                  ASSVAL

  6520           %FINISH
  6521  !
  6522  ! IF THE SHORT JUMP FLAG NOT SET THEN WE CAN TRY :-
  6523  ! A)     TO LOCATE A SUITABLE 4K MULTIPLE ALREADY IN A REGISTER
  6524  ! B)     TO FIND THE LABEL LURKING IN THE CYCLIC BUFFER.
  6525  ! IF THESE FAIL THEN AN 8 BYTE JUMP MUST BE PLANTED
  6526  !
39815 @ 334218:                  LINE   6520 "regression-compile-tmp/imp918s.imp"
39816 @ 334256:                  LOCATE L_0004

  6527           %IF FLAGS&1=0 %THEN %START
39817 @ 334259:                  LINE   6527 "regression-compile-tmp/imp918s.imp"
39818 @ 334297:                  PUSH   FLAGS
39819 @ 334300:                  PUSHI  #0x00000001
39820 @ 334305:                  AND   
39821 @ 334306:                  PUSHI  #0x00000000
39822 @ 334311:                  JUMPIF # L_0004

  6528              FIND USE(I,1,11,\LAB)
39823 @ 334315:                  LINE   6528 "regression-compile-tmp/imp918s.imp"
39824 @ 334353:                  PUSH   FINDUSE
39825 @ 334356:                  PUSH   I
39826 @ 334359:                  ASSPAR
39827 @ 334360:                  PUSHI  #0x00000001
39828 @ 334365:                  ASSPAR
39829 @ 334366:                  PUSHI  #0x0000000b
39830 @ 334371:                  ASSPAR
39831 @ 334372:                  PUSH   LAB
39832 @ 334375:                  NOT   
39833 @ 334376:                  ASSPAR
39834 @ 334377:                  CALL  

  6529              %IF I>0 %THEN KREG=I+16 %ELSE %START
39835 @ 334378:                  LINE   6529 "regression-compile-tmp/imp918s.imp"
39836 @ 334416:                  PUSH   I
39837 @ 334419:                  PUSHI  #0x00000000
39838 @ 334424:                  JUMPIF <= L_0007
39839 @ 334428:                  PUSH   KREG
39840 @ 334431:                  PUSH   I
39841 @ 334434:                  PUSHI  #0x00000010
39842 @ 334439:                  ADD   
39843 @ 334440:                  ASSVAL
39844 @ 334441:                  GOTO   L_0006
39845 @ 334444:                  LOCATE L_0007

  6530                 LABLOOK(I,LAB) %IF CHECKSP=0 %AND CSSMODE#0
39846 @ 334447:                  LINE   6530 "regression-compile-tmp/imp918s.imp"
39847 @ 334485:                  PUSH   CHECKSP
39848 @ 334488:                  PUSHI  #0x00000000
39849 @ 334493:                  JUMPIF # L_000a
39850 @ 334497:                  PUSH   CSSMODE
39851 @ 334500:                  PUSHI  #0x00000000
39852 @ 334505:                  JUMPIF = L_000a
39853 @ 334509:                  PUSH   LABLOOK
39854 @ 334512:                  PUSH   I
39855 @ 334515:                  ASSPAR
39856 @ 334516:                  PUSH   LAB
39857 @ 334519:                  ASSPAR
39858 @ 334520:                  CALL  
39859 @ 334521:                  LOCATE L_000a

  6531                 FLAGS=FLAGS!1 %IF I=1
39860 @ 334524:                  LINE   6531 "regression-compile-tmp/imp918s.imp"
39861 @ 334562:                  PUSH   I
39862 @ 334565:                  PUSHI  #0x00000001
39863 @ 334570:                  JUMPIF # L_000a
39864 @ 334574:                  PUSH   FLAGS
39865 @ 334577:                  PUSH   FLAGS
39866 @ 334580:                  PUSHI  #0x00000001
39867 @ 334585:                  OR    
39868 @ 334586:                  ASSVAL
39869 @ 334587:                  LOCATE L_000a

  6532              %FINISH
39870 @ 334590:                  LINE   6532 "regression-compile-tmp/imp918s.imp"
39871 @ 334628:                  LOCATE L_0006

  6533           %FINISH
39872 @ 334631:                  LINE   6533 "regression-compile-tmp/imp918s.imp"
39873 @ 334669:                  LOCATE L_0004

  6534           %IF FLAGS&1#0 %THEN %START
39874 @ 334672:                  LINE   6534 "regression-compile-tmp/imp918s.imp"
39875 @ 334710:                  PUSH   FLAGS
39876 @ 334713:                  PUSHI  #0x00000001
39877 @ 334718:                  AND   
39878 @ 334719:                  PUSHI  #0x00000000
39879 @ 334724:                  JUMPIF = L_0004

  6535              SET LOCAL BASE
39880 @ 334728:                  LINE   6535 "regression-compile-tmp/imp918s.imp"
39881 @ 334766:                  PUSH   SETLOCALBASE
39882 @ 334769:                  CALL  

  6536              BREG=  LOCAL BASE
39883 @ 334770:                  LINE   6536 "regression-compile-tmp/imp918s.imp"
39884 @ 334808:                  PUSH   BREG
39885 @ 334811:                  PUSH   LOCALBASE
39886 @ 334814:                  ASSVAL

  6537              BBASE= LOCAL ADDR
39887 @ 334815:                  LINE   6537 "regression-compile-tmp/imp918s.imp"
39888 @ 334853:                  PUSH   BBASE
39889 @ 334856:                  PUSH   LOCALADDR
39890 @ 334859:                  ASSVAL

  6538              AT=CA;                     ! IN CASE BASE HAS BEEN SET
39891 @ 334860:                  LINE   6538 "regression-compile-tmp/imp918s.imp"
39892 @ 334898:                  PUSH   AT
39893 @ 334901:                  PUSH   CA
39894 @ 334904:                  ASSVAL

  6539           %FINISH %ELSE %START
39895 @ 334905:                  LINE   6539 "regression-compile-tmp/imp918s.imp"
39896 @ 334943:                  GOTO   L_0003
39897 @ 334946:                  LOCATE L_0004

  6540              %IF KREG=0 %THEN %START
39898 @ 334949:                  LINE   6540 "regression-compile-tmp/imp918s.imp"
39899 @ 334987:                  PUSH   KREG
39900 @ 334990:                  PUSHI  #0x00000000
39901 @ 334995:                  JUMPIF # L_0007

  6541                 FIND REG(GR1,KREG)
39902 @ 334999:                  LINE   6541 "regression-compile-tmp/imp918s.imp"
39903 @ 335037:                  PUSH   FINDREG
39904 @ 335040:                  PUSHI  #0x0001010f
39905 @ 335045:                  ASSPAR
39906 @ 335046:                  PUSH   KREG
39907 @ 335049:                  ASSPAR
39908 @ 335050:                  CALL  

  6542                 SET USE(KREG,11,\LAB)
39909 @ 335051:                  LINE   6542 "regression-compile-tmp/imp918s.imp"
39910 @ 335089:                  PUSH   SETUSE
39911 @ 335092:                  PUSH   KREG
39912 @ 335095:                  ASSPAR
39913 @ 335096:                  PUSHI  #0x0000000b
39914 @ 335101:                  ASSPAR
39915 @ 335102:                  PUSH   LAB
39916 @ 335105:                  NOT   
39917 @ 335106:                  ASSPAR
39918 @ 335107:                  CALL  

  6543                 PRX(X'58',KREG,CODER,0,0)
39919 @ 335108:                  LINE   6543 "regression-compile-tmp/imp918s.imp"
39920 @ 335146:                  PUSH   PRX
39921 @ 335149:                  PUSHI  #0x00000058
39922 @ 335154:                  ASSPAR
39923 @ 335155:                  PUSH   KREG
39924 @ 335158:                  ASSPAR
39925 @ 335159:                  PUSHI  #0x0000000c
39926 @ 335164:                  ASSPAR
39927 @ 335165:                  PUSHI  #0x00000000
39928 @ 335170:                  ASSPAR
39929 @ 335171:                  PUSHI  #0x00000000
39930 @ 335176:                  ASSPAR
39931 @ 335177:                  CALL  

  6544                 CYC BITS=CYC BITS!16;   ! 'USES MULTIPLE OF 4096' BIT SET
39932 @ 335178:                  LINE   6544 "regression-compile-tmp/imp918s.imp"
39933 @ 335216:                  PUSH   CYCBITS
39934 @ 335219:                  PUSH   CYCBITS
39935 @ 335222:                  PUSHI  #0x00000010
39936 @ 335227:                  OR    
39937 @ 335228:                  ASSVAL

  6545              %FINISH
39938 @ 335229:                  LINE   6545 "regression-compile-tmp/imp918s.imp"
39939 @ 335267:                  LOCATE L_0007

  6546           %FINISH
  6547  !
  6548  ! ENTER JUMP IN SUBLIST
  6549  !
39940 @ 335270:                  LINE   6546 "regression-compile-tmp/imp918s.imp"
39941 @ 335308:                  LOCATE L_0003

  6550           %IF CSSMODE#0 %THEN %C
  6551  PUSH(SHORT INTEGER(ADDR(ASLIST(CELL+6))),KREG<<24!AT,BREG<<24!BBASE)
39942 @ 335311:                  LINE   6550 "regression-compile-tmp/imp918s.imp"
39943 @ 335349:                  PUSH   CSSMODE
39944 @ 335352:                  PUSHI  #0x00000000
39945 @ 335357:                  JUMPIF = L_0004
39946 @ 335361:                  PUSH   PUSH
39947 @ 335364:                  PUSH   SHORTINTEGER
39948 @ 335367:                  PUSH   ADDR
39949 @ 335370:                  PUSH   ASLIST
39950 @ 335373:                  PUSH   CELL
39951 @ 335376:                  PUSHI  #0x00000006
39952 @ 335381:                  ADD   
39953 @ 335382:                  ACCESS
39954 @ 335383:                  ASSPAR
39955 @ 335384:                  CALL  
39956 @ 335385:                  ASSPAR
39957 @ 335386:                  CALL  
39958 @ 335387:                  ASSPAR
39959 @ 335388:                  PUSH   KREG
39960 @ 335391:                  PUSHI  #0x00000018
39961 @ 335396:                  LSH   
39962 @ 335397:                  PUSH   AT
39963 @ 335400:                  OR    
39964 @ 335401:                  ASSPAR
39965 @ 335402:                  PUSH   BREG
39966 @ 335405:                  PUSHI  #0x00000018
39967 @ 335410:                  LSH   
39968 @ 335411:                  PUSH   BBASE
39969 @ 335414:                  OR    
39970 @ 335415:                  ASSPAR
39971 @ 335416:                  CALL  
39972 @ 335417:                  LOCATE L_0004

  6552           PRX(X'47',MASK,KREG&15,0,0)
39973 @ 335420:                  LINE   6552 "regression-compile-tmp/imp918s.imp"
39974 @ 335458:                  PUSH   PRX
39975 @ 335461:                  PUSHI  #0x00000047
39976 @ 335466:                  ASSPAR
39977 @ 335467:                  PUSH   MASK
39978 @ 335470:                  ASSPAR
39979 @ 335471:                  PUSH   KREG
39980 @ 335474:                  PUSHI  #0x0000000f
39981 @ 335479:                  AND   
39982 @ 335480:                  ASSPAR
39983 @ 335481:                  PUSHI  #0x00000000
39984 @ 335486:                  ASSPAR
39985 @ 335487:                  PUSHI  #0x00000000
39986 @ 335492:                  ASSPAR
39987 @ 335493:                  CALL  

  6553           %END
39988 @ 335494:                  LINE   6553 "regression-compile-tmp/imp918s.imp"
39989 @ 335532:               END    _lev0id0_CSS_ENTERJUMP {lev=3 --> 2}

  6554           %ROUTINE MERGE INFO
  6555  !***********************************************************************
  6556  !*       MERGE THE CURRENT STATUS OF GENERAL AND FLOATING REGISTERS    *
  6557  !*       WITH THOSE AT THE START OF THE CONDITIONAL CLAUSE. THUS       *
  6558  !*       THE COMPILER CAN REMEMBER UNCHANGED REGISTERS BUT NOT THOSE   *
  6559  !*       WHICH DEPEND ON A PARTICULAR RUN TIME ROUTE BEING TAKEN       *
  6560  !***********************************************************************
  6561  {%SHORTROUTINE}
39990 @ 335533:               LINE   6554 "regression-compile-tmp/imp918s.imp"
39991 @ 335571:               DEF    MERGEINFO (_lev0id0_CSS_MERGEINFO) p1=V_0194 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
39992 @ 335592:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
39993 @ 335593:                  FINISH ) {lev=3}

  6562  %INTEGER I,J
39994 @ 335594:                  LINE   6562 "regression-compile-tmp/imp918s.imp"
39995 @ 335632:                  DEF    I p1=V_0203 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
39996 @ 335645:                  DEF    J p1=V_0204 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

  6563           %IF CSSMODE#0 %THEN %START; ! OMIT MERGE ON PRELIM PASS
39997 @ 335658:                  LINE   6563 "regression-compile-tmp/imp918s.imp"
39998 @ 335696:                  PUSH   CSSMODE
39999 @ 335699:                  PUSHI  #0x00000000
40000 @ 335704:                  JUMPIF = L_0004

  6564              %CYCLE J=0,1,14; I=GRMAP(J)
40001 @ 335708:                  LINE   6564 "regression-compile-tmp/imp918s.imp"
40002 @ 335746:                  PUSH   J
40003 @ 335749:                  PUSHI  #0x00000001
40004 @ 335754:                  PUSHI  #0x0000000e
40005 @ 335759:                  PUSHI  #0x00000000
40006 @ 335764:                  FOR    L_0006
40007 @ 335767:                  LINE   6564 "regression-compile-tmp/imp918s.imp"
40008 @ 335805:                  PUSH   I
40009 @ 335808:                  PUSH   GRMAP
40010 @ 335811:                  PUSH   J
40011 @ 335814:                  ACCESS
40012 @ 335815:                  ASSVAL

  6565              FORGET(I) %UNLESS SGRUSE(I)=GRUSE(I) %AND SGRINF(I)=GRINF(I)
40013 @ 335816:                  LINE   6565 "regression-compile-tmp/imp918s.imp"
40014 @ 335854:                  PUSH   SGRUSE
40015 @ 335857:                  PUSH   I
40016 @ 335860:                  ACCESS
40017 @ 335861:                  PUSH   GRUSE
40018 @ 335864:                  PUSH   I
40019 @ 335867:                  ACCESS
40020 @ 335868:                  JUMPIF # L_000b
40021 @ 335872:                  PUSH   SGRINF
40022 @ 335875:                  PUSH   I
40023 @ 335878:                  ACCESS
40024 @ 335879:                  PUSH   GRINF
40025 @ 335882:                  PUSH   I
40026 @ 335885:                  ACCESS
40027 @ 335886:                  JUMPIF = L_000a
40028 @ 335890:                  LOCATE L_000b
40029 @ 335893:                  PUSH   FORGET
40030 @ 335896:                  PUSH   I
40031 @ 335899:                  ASSPAR
40032 @ 335900:                  CALL  
40033 @ 335901:                  LOCATE L_000a

  6566              %REPEAT
40034 @ 335904:                  LINE   6566 "regression-compile-tmp/imp918s.imp"
40035 @ 335942:                  REPEAT L_0006
40036 @ 335945:                  LOCATE L_0007

  6567           %FINISH
40037 @ 335948:                  LINE   6567 "regression-compile-tmp/imp918s.imp"
40038 @ 335986:                  LOCATE L_0004

  6568           LCA=0;            ! NOTE LABEL
40039 @ 335989:                  LINE   6568 "regression-compile-tmp/imp918s.imp"
40040 @ 336027:                  PUSH   LCA
40041 @ 336030:                  PUSHI  #0x00000000
40042 @ 336035:                  ASSVAL

  6569           %END
40043 @ 336036:                  LINE   6569 "regression-compile-tmp/imp918s.imp"
40044 @ 336074:               END    _lev0id0_CSS_MERGEINFO {lev=3 --> 2}

  6570           %ROUTINE     REMEMBER
  6571           {%SHORTROUTINE}
  6572  !%if USE MC = 1 %start
  6573  !         *L_1,SGRUSE; *L_2,GRUSE; *MVC_0(92,1),0(2)
  6574  !         *L_1,SGRINF; *L_2,GRINF; *MVC_0(92,1),0(2)
  6575  !%finish
40045 @ 336075:               LINE   6570 "regression-compile-tmp/imp918s.imp"
40046 @ 336113:               DEF    REMEMBER (_lev0id0_CSS_REMEMBER) p1=V_01b3 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
40047 @ 336133:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
40048 @ 336134:                  FINISH ) {lev=3}

  6576           %END
40049 @ 336135:                  LINE   6576 "regression-compile-tmp/imp918s.imp"
40050 @ 336173:               END    _lev0id0_CSS_REMEMBER {lev=3 --> 2}

  6577           %ROUTINE SET LOCAL BASE
  6578           {%SHORTROUTINE}
  6579  ! FIND OR SET UP A REGISTER FOR BRANCHING A SMALL DISTANCE FORWARD
40051 @ 336174:               LINE   6577 "regression-compile-tmp/imp918s.imp"
40052 @ 336212:               DEF    SETLOCALBASE (_lev0id0_CSS_SETLOCALBASE) p1=V_0167 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
40053 @ 336236:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
40054 @ 336237:                  FINISH ) {lev=3}

  6580           %INTEGER I,J
40055 @ 336238:                  LINE   6580 "regression-compile-tmp/imp918s.imp"
40056 @ 336276:                  DEF    I p1=V_0203 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
40057 @ 336289:                  DEF    J p1=V_0204 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

  6581           LOCAL BASE=10; LOCAL ADDR=CODEBASE
40058 @ 336302:                  LINE   6581 "regression-compile-tmp/imp918s.imp"
40059 @ 336340:                  PUSH   LOCALBASE
40060 @ 336343:                  PUSHI  #0x0000000a
40061 @ 336348:                  ASSVAL
40062 @ 336349:                  LINE   6581 "regression-compile-tmp/imp918s.imp"
40063 @ 336387:                  PUSH   LOCALADDR
40064 @ 336390:                  PUSH   CODEBASE
40065 @ 336393:                  ASSVAL

  6582           ->Label2 %IF SBFLAG=1 %OR 4095-MARGIN>CA-CODEBASE
40066 @ 336394:                  LINE   6582 "regression-compile-tmp/imp918s.imp"
40067 @ 336432:                  PUSH   SBFLAG
40068 @ 336435:                  PUSHI  #0x00000001
40069 @ 336440:                  JUMPIF = L_0005
40070 @ 336444:                  PUSHI  #0x00000fff
40071 @ 336449:                  PUSH   MARGIN
40072 @ 336452:                  SUB   
40073 @ 336453:                  PUSH   CA
40074 @ 336456:                  PUSH   CODEBASE
40075 @ 336459:                  SUB   
40076 @ 336460:                  JUMPIF <= L_0004
40077 @ 336464:                  LOCATE L_0005
40078 @ 336467:                  JUMP   L_0205
40079 @ 336470:                  LOCATE L_0004

  6583           %IF CYC BASE#0 %THEN %START
40080 @ 336473:                  LINE   6583 "regression-compile-tmp/imp918s.imp"
40081 @ 336511:                  PUSH   CYCBASE
40082 @ 336514:                  PUSHI  #0x00000000
40083 @ 336519:                  JUMPIF = L_0004

  6584              LOCAL BASE=CYC BASE; LOCAL ADDR=CYC ADDR
40084 @ 336523:                  LINE   6584 "regression-compile-tmp/imp918s.imp"
40085 @ 336561:                  PUSH   LOCALBASE
40086 @ 336564:                  PUSH   CYCBASE
40087 @ 336567:                  ASSVAL
40088 @ 336568:                  LINE   6584 "regression-compile-tmp/imp918s.imp"
40089 @ 336606:                  PUSH   LOCALADDR
40090 @ 336609:                  PUSH   CYCADDR
40091 @ 336612:                  ASSVAL

  6585              ->Label2; %FINISH
40092 @ 336613:                  LINE   6585 "regression-compile-tmp/imp918s.imp"
40093 @ 336651:                  JUMP   L_0205
40094 @ 336654:                  LINE   6585 "regression-compile-tmp/imp918s.imp"
40095 @ 336692:                  LOCATE L_0004

  6586           %CYCLE J=14,1,24
40096 @ 336695:                  LINE   6586 "regression-compile-tmp/imp918s.imp"
40097 @ 336733:                  PUSH   J
40098 @ 336736:                  PUSHI  #0x00000001
40099 @ 336741:                  PUSHI  #0x00000018
40100 @ 336746:                  PUSHI  #0x0000000e
40101 @ 336751:                  FOR    L_0003

  6587              I=J&15
40102 @ 336754:                  LINE   6587 "regression-compile-tmp/imp918s.imp"
40103 @ 336792:                  PUSH   I
40104 @ 336795:                  PUSH   J
40105 @ 336798:                  PUSHI  #0x0000000f
40106 @ 336803:                  AND   
40107 @ 336804:                  ASSVAL

  6588              -> SET %IF I>0 %AND GRUSE(I)=12
40108 @ 336805:                  LINE   6588 "regression-compile-tmp/imp918s.imp"
40109 @ 336843:                  PUSH   I
40110 @ 336846:                  PUSHI  #0x00000000
40111 @ 336851:                  JUMPIF <= L_0007
40112 @ 336855:                  PUSH   GRUSE
40113 @ 336858:                  PUSH   I
40114 @ 336861:                  ACCESS
40115 @ 336862:                  PUSHI  #0x0000000c
40116 @ 336867:                  JUMPIF # L_0007
40117 @ 336871:                  JUMP   L_0206
40118 @ 336874:                  LOCATE L_0007

  6589           %REPEAT
40119 @ 336877:                  LINE   6589 "regression-compile-tmp/imp918s.imp"
40120 @ 336915:                  REPEAT L_0003
40121 @ 336918:                  LOCATE L_0004

  6590           FIND REG(ADDREG,LOCAL BASE)
40122 @ 336921:                  LINE   6590 "regression-compile-tmp/imp918s.imp"
40123 @ 336959:                  PUSH   FINDREG
40124 @ 336962:                  PUSHI  #0xffff0e01
40125 @ 336967:                  ASSPAR
40126 @ 336968:                  PUSH   LOCALBASE
40127 @ 336971:                  ASSPAR
40128 @ 336972:                  CALL  

  6591           PRR(5,LOCAL BASE,0)
40129 @ 336973:                  LINE   6591 "regression-compile-tmp/imp918s.imp"
40130 @ 337011:                  PUSH   PRR
40131 @ 337014:                  PUSHI  #0x00000005
40132 @ 337019:                  ASSPAR
40133 @ 337020:                  PUSH   LOCALBASE
40134 @ 337023:                  ASSPAR
40135 @ 337024:                  PUSHI  #0x00000000
40136 @ 337029:                  ASSPAR
40137 @ 337030:                  CALL  

  6592           LOCAL ADDR=CA
40138 @ 337031:                  LINE   6592 "regression-compile-tmp/imp918s.imp"
40139 @ 337069:                  PUSH   LOCALADDR
40140 @ 337072:                  PUSH   CA
40141 @ 337075:                  ASSVAL

  6593           SET USE(LOCAL BASE,12,CA); ->Label2
40142 @ 337076:                  LINE   6593 "regression-compile-tmp/imp918s.imp"
40143 @ 337114:                  PUSH   SETUSE
40144 @ 337117:                  PUSH   LOCALBASE
40145 @ 337120:                  ASSPAR
40146 @ 337121:                  PUSHI  #0x0000000c
40147 @ 337126:                  ASSPAR
40148 @ 337127:                  PUSH   CA
40149 @ 337130:                  ASSPAR
40150 @ 337131:                  CALL  
40151 @ 337132:                  LINE   6593 "regression-compile-tmp/imp918s.imp"
40152 @ 337170:                  JUMP   L_0205

  6594  SET:
40153 @ 337173:                  LINE   6594 "regression-compile-tmp/imp918s.imp"
40154 @ 337211:                  LABEL  L_0206

  6595           LOCAL ADDR=GRINF(I)
40155 @ 337214:                  LINE   6595 "regression-compile-tmp/imp918s.imp"
40156 @ 337252:                  PUSH   LOCALADDR
40157 @ 337255:                  PUSH   GRINF
40158 @ 337258:                  PUSH   I
40159 @ 337261:                  ACCESS
40160 @ 337262:                  ASSVAL

  6596           LOCAL BASE=I
40161 @ 337263:                  LINE   6596 "regression-compile-tmp/imp918s.imp"
40162 @ 337301:                  PUSH   LOCALBASE
40163 @ 337304:                  PUSH   I
40164 @ 337307:                  ASSVAL

  6597           %IF 4095-MARGIN<CA-LOCAL ADDR %THEN %START
40165 @ 337308:                  LINE   6597 "regression-compile-tmp/imp918s.imp"
40166 @ 337346:                  PUSHI  #0x00000fff
40167 @ 337351:                  PUSH   MARGIN
40168 @ 337354:                  SUB   
40169 @ 337355:                  PUSH   CA
40170 @ 337358:                  PUSH   LOCALADDR
40171 @ 337361:                  SUB   
40172 @ 337362:                  JUMPIF >= L_0004

  6598                 FORGET(I)
40173 @ 337366:                  LINE   6598 "regression-compile-tmp/imp918s.imp"
40174 @ 337404:                  PUSH   FORGET
40175 @ 337407:                  PUSH   I
40176 @ 337410:                  ASSPAR
40177 @ 337411:                  CALL  

  6599                 SET LOCAL BASE
40178 @ 337412:                  LINE   6599 "regression-compile-tmp/imp918s.imp"
40179 @ 337450:                  PUSH   SETLOCALBASE
40180 @ 337453:                  CALL  

  6600           %FINISH
40181 @ 337454:                  LINE   6600 "regression-compile-tmp/imp918s.imp"
40182 @ 337492:                  LOCATE L_0004

  6601  Label2:       %END;                      ! OF ROUTINE SET LOCAL BASE
40183 @ 337495:                  LINE   6601 "regression-compile-tmp/imp918s.imp"
40184 @ 337533:                  LABEL  L_0205
40185 @ 337536:                  LINE   6601 "regression-compile-tmp/imp918s.imp"
40186 @ 337574:               END    _lev0id0_CSS_SETLOCALBASE {lev=3 --> 2}

  6602           %ROUTINE CSNAME(%INTEGER Z,REG)
  6603           {%SHORTROUTINE}
  6604  !***********************************************************************
  6605  !*       COMPILE A SPECIAL NAME - PTYPE=10006 (=%ROUTINE %LABEL)       *
  6606  !*       THEIR TRUE PTYPE IS IN GLOBAL ARRAY TSNAME.                   *
  6607  !*       SNINFO HAS A FOUR BYTE RECORD FOR EACH NAME (%BI FLAG,PTR,    *
  6608  !*       %SI XTRA). THE TOP BITS OF FLAG CATEGORISE AS FOLLOWS:-       *
  6609  !*       2**7 SET FOR IMPLICITLY SPECIFIED CONSTRUCT A %SPEC           *
  6610  !*       2**6 SET FOR IOCP CALL                                        *
  6611  !*       2**5 SET FOR BUILT IN MAPPING FUNCTIONS                       *
  6612  !*       2**4 SET IF AD-HOC CODE PLANTED BY THIS ROUTINE               *
  6613  !*       2**3 SET IF FIRST PARAMETER IS OF %NAME TYPE                  *
  6614  !*       2**2-2**0 HOLD NUMBER OF PARAMS                               *
  6615  !*                                                                     *
  6616  !*       THE FULL SPECS ARE AS FOLLOWS:-                               *
  6617  !*       0=%ROUTINE SELECT INPUT(%INTEGER STREAM)                      *
  6618  !*       1=%ROUTINE SELECT OUTPUT(%INTEGER STREAM)                     *
  6619  !*       2=%ROUTINE NEWLINE                                            *
  6620  !*       3=%ROUTINE SPACE                                              *
  6621  !*       4=%ROUTINE SKIP SYMBOL                                        *
  6622  !*       5=%ROUTINE READ STRINWG(%STRINGNAME S)                        *
  6623  !*       6=%ROUTINE NEWLINES(%INTEGER N)                               *
  6624  !*       7=%ROUTINE SPACES(%INTEGER N)                                 *
  6625  !*       8=%INTEGERFN NEXT SYMBOL                                      *
  6626  !*       9=%ROUTINE PRINT SYMBOL(%INTEGER SYMBOL)                      *
  6627  !*       10=%ROUTINE READ SYMBOL(%NAME SYMBOL)                         *
  6628  !*       11=%ROUTINE READ(%NAME NUMBER)                                *
  6629  !*       12=%ROUTINE WRITE(%INTEGER VALUE,PLACES)                      *
  6630  !*       13=%ROUTINE NEWPAGE                                           *
  6631  !*       14=%INTEGERFN ADDR(%NAME VARIABLE)                            *
  6632  !*       15=%LONGREALFN ARCSIN(%LONGREAL X)                            *
  6633  !*       16=%INTEGERFN INT(%LONGREAL X)                               *
  6634  !*       17=%INTEGERFN INTPT(%LONRGREAL X)                             *
  6635  !*       18=%LONGREALFN FRACPT(%LONGREAL X)                            *
  6636  !*       19=%ROUTINE PRINT(%LONGREAL NUMBER,%INTEGER BEFORE,AFTER)     *
  6637  !*       20=%ROUTINE PRINTFL(%LONGREAL NUMBER,%INTEGER PLACES)         *
  6638  !*       21=%REALMAP REAL(%INTEGER VAR ADDR)                           *
  6639  !*       22=%INTEGERMAP INTEGER(%INTEGER VAR ADDR)                     *
  6640  !*       23=%LONGREALFN MOD(%LONGREAL X)                               *
  6641  !*       24=%LONGREALFN ARCCOS(%LONGREAL X)                            *
  6642  !*       25=%LONGREALFN SQRT(%LONGREAL X)                              *
  6643  !*       26=%LONGREALFN LOG(%LONGREAL X)                               *
  6644  !*       27=%LONGREALFN SIN(%LONGREAL X)                               *
  6645  !*       28=%LONGREALFN COS(%LONGREAL X)                               *
  6646  !*       29=%LONGREALFN TAN(%LONGREAL X)                               *
  6647  !*       30=%LONGREALFN EXP(%LONGREAL X)                               *
  6648  !*       31=%ROUTINE CLOSE STREAM(%INTEGER STREAM)                     *
  6649  !*       32=%BYTEINTEGERMAP BYTE INTEGER(%INTEGER VAR ADDR)            *
  6650  !*       33=%SHORTINTEGERMAP SHORTINTEGER(%INTEGER VARADDR)            *
  6651  !*       34=%LONGREALFN RADIUS(%LONGREAL X,Y)                          *
  6652  !*       35=%LONGREALFN ARCTAN(%LONGREAL X,Y)                          *
  6653  !*       36=%BYTEINTEGERMAP LENGTH(%STRINGNAME  S)                     *
  6654  !*       37=%ROUTINE PRINTSTRING(%STRING(255) MESSAGE)                *
  6655  !*       38=%INTEGERFN NL                                              *
  6656  !*       39=%LONGREALMAP LONG REAL(%INTEGER VAR ADDR)                  *
  6657  !*       40=%ROUTINE PRINT CH(%INTEGER CHARACTER)                      *
  6658  !*       41=%ROUTINE READ CH(%NAME CHARACTER)                          *
  6659  !*       42=%STRINGMAP STRING(%INTEGER VAR ADDR)                       *
  6660  !*       43=%ROUTINE READ ITEM(%STRINGNAME ITEM)                       *
  6661  !*       44=%STRING(1)%FN NEXT ITEM                                    *
  6662  !*       45=%BYTEINTEGERMAP CHARNO(%STRINGNAME STR,%INTEGER CHARREQD)  *
  6663  !*       46=%STRING(1)%FN TOSTRING(%INTEGER SYMBOL)                    *
  6664  !*       47=%STRING(255)%FN FROMSTRING(%STRING(255)S,%INTEGER BEG,END) *
  6665  !*       48=%RECORDMAP RECORD(%INTEGER REC ADDR)                       *
  6666  !*       49=%ARRAYMAP ARRAY(%INTEGER A1ADDR,%ARRAYNAME FORMAT)         *
  6667  !*       50=%ROUTINE SETMARGINS(%INTEGER INOUT,LHM,RHM)                *
  6668  !*       51=%INTEGERFN IMOD(%INTEGER VALUE)                            *
  6669  !*       52=%LONGREALFN PI                                             *
  6670  !*       53=%INTEGERFN NEXTCH                                          *
  6671  !***********************************************************************
40187 @ 337575:               LINE   6602 "regression-compile-tmp/imp918s.imp"
40188 @ 337613:               DEF    CSNAME (_lev0id0_CSS_CSNAME) p1=V_018e 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
40189 @ 337631:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
40190 @ 337632:                     DEF    Z p1=V_0203 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
40191 @ 337645:                     DEF    REG p1=V_0204 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
40192 @ 337660:                  FINISH ) {lev=3}

  6672           %SWITCH ADHOC(1:12)
40193 @ 337661:                  LINE   6672 "regression-compile-tmp/imp918s.imp"
40194 @ 337699:                  PUSHI  #0x00000001
40195 @ 337704:                  PUSHI  #0x0000000c
40196 @ 337709:                  BOUNDS
40197 @ 337710:                  DEF    ADHOC p1=V_0205 a/tf=6 b/format=0 c/ostate=0  type=0 (<type:0>) form=6 (switch) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  6673           %CONSTINTEGERARRAY SNINFO(0:53)=%C
  6674                      X'41080001',X'41090001',X'408A0001',X'40A00001',
  6675                      X'40010001',X'800D0000',X'11010001',X'11010001',
  6676                      X'10020024',X'41030001',X'19030001',X'80130053',
  6677                      X'12040001',X'408C0001',X'19050024',X'80010049',
  6678                      X'80010053',X'80010053',X'80010053',X'80090053',
  6679                      X'80060053',X'2100003E',X'2100003E',X'11060024',
  6680                      X'80010049'(4),
  6681                      X'80010049'(3),X'80150000',
  6682                      X'2100003E'(2),X'80030049'(2),
  6683                      X'1907003E',X'41070001',X'10080024',X'2100003E',
  6684                      X'41050001',X'19030001',X'2100003E',X'19030001',
  6685                      X'10020024',X'1A07003E',X'11090024',X'800F0000',
  6686                      X'110A8018',X'120B1000',X'80170000',X'11060024',
  6687                      X'100C0024',X'10020024';
  6688  !
  6689  ! SNPARAMS HOLDS NUMBER AND PTYPE OF FORMAL PARAMETER FOR IMPLICITLY
  6690  ! SPECIFIED EXTERNAL ROUTINES. A POINTER IN SNINFO MEANS THAT NO
  6691  ! DUPLICATES NEED TO BE RECORDED.
  6692  !
40198 @ 337727:                  LINE   6673 "regression-compile-tmp/imp918s.imp"
40199 @ 337765:                  PUSHI  #0x00000000
40200 @ 337770:                  PUSHI  #0x00000035
40201 @ 337775:                  BOUNDS
40202 @ 337776:                  DEF    SNINFO p1=V_0206 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
40203 @ 337794:                  PUSHI  #0x41080001
40204 @ 337799:                  INIT   1
40205 @ 337802:                  PUSHI  #0x41090001
40206 @ 337807:                  INIT   1
40207 @ 337810:                  PUSHI  #0x408a0001
40208 @ 337815:                  INIT   1
40209 @ 337818:                  PUSHI  #0x40a00001
40210 @ 337823:                  INIT   1
40211 @ 337826:                  PUSHI  #0x40010001
40212 @ 337831:                  INIT   1
40213 @ 337834:                  PUSHI  #0x800d0000
40214 @ 337839:                  INIT   1
40215 @ 337842:                  PUSHI  #0x11010001
40216 @ 337847:                  INIT   1
40217 @ 337850:                  PUSHI  #0x11010001
40218 @ 337855:                  INIT   1
40219 @ 337858:                  PUSHI  #0x10020024
40220 @ 337863:                  INIT   1
40221 @ 337866:                  PUSHI  #0x41030001
40222 @ 337871:                  INIT   1
40223 @ 337874:                  PUSHI  #0x19030001
40224 @ 337879:                  INIT   1
40225 @ 337882:                  PUSHI  #0x80130053
40226 @ 337887:                  INIT   1
40227 @ 337890:                  PUSHI  #0x12040001
40228 @ 337895:                  INIT   1
40229 @ 337898:                  PUSHI  #0x408c0001
40230 @ 337903:                  INIT   1
40231 @ 337906:                  PUSHI  #0x19050024
40232 @ 337911:                  INIT   1
40233 @ 337914:                  PUSHI  #0x80010049
40234 @ 337919:                  INIT   1
40235 @ 337922:                  PUSHI  #0x80010053
40236 @ 337927:                  INIT   1
40237 @ 337930:                  PUSHI  #0x80010053
40238 @ 337935:                  INIT   1
40239 @ 337938:                  PUSHI  #0x80010053
40240 @ 337943:                  INIT   1
40241 @ 337946:                  PUSHI  #0x80090053
40242 @ 337951:                  INIT   1
40243 @ 337954:                  PUSHI  #0x80060053
40244 @ 337959:                  INIT   1
40245 @ 337962:                  PUSHI  #0x2100003e
40246 @ 337967:                  INIT   1
40247 @ 337970:                  PUSHI  #0x2100003e
40248 @ 337975:                  INIT   1
40249 @ 337978:                  PUSHI  #0x11060024
40250 @ 337983:                  INIT   1
40251 @ 337986:                  PUSHI  #0x80010049
40252 @ 337991:                  INIT   4
40253 @ 337994:                  PUSHI  #0x80010049
40254 @ 337999:                  INIT   3
40255 @ 338002:                  PUSHI  #0x80150000
40256 @ 338007:                  INIT   1
40257 @ 338010:                  PUSHI  #0x2100003e
40258 @ 338015:                  INIT   2
40259 @ 338018:                  PUSHI  #0x80030049
40260 @ 338023:                  INIT   2
40261 @ 338026:                  PUSHI  #0x1907003e
40262 @ 338031:                  INIT   1
40263 @ 338034:                  PUSHI  #0x41070001
40264 @ 338039:                  INIT   1
40265 @ 338042:                  PUSHI  #0x10080024
40266 @ 338047:                  INIT   1
40267 @ 338050:                  PUSHI  #0x2100003e
40268 @ 338055:                  INIT   1
40269 @ 338058:                  PUSHI  #0x41050001
40270 @ 338063:                  INIT   1
40271 @ 338066:                  PUSHI  #0x19030001
40272 @ 338071:                  INIT   1
40273 @ 338074:                  PUSHI  #0x2100003e
40274 @ 338079:                  INIT   1
40275 @ 338082:                  PUSHI  #0x19030001
40276 @ 338087:                  INIT   1
40277 @ 338090:                  PUSHI  #0x10020024
40278 @ 338095:                  INIT   1
40279 @ 338098:                  PUSHI  #0x1a07003e
40280 @ 338103:                  INIT   1
40281 @ 338106:                  PUSHI  #0x11090024
40282 @ 338111:                  INIT   1
40283 @ 338114:                  PUSHI  #0x800f0000
40284 @ 338119:                  INIT   1
40285 @ 338122:                  PUSHI  #0x110a8018
40286 @ 338127:                  INIT   1
40287 @ 338130:                  PUSHI  #0x120b1000
40288 @ 338135:                  INIT   1
40289 @ 338138:                  PUSHI  #0x80170000
40290 @ 338143:                  INIT   1
40291 @ 338146:                  PUSHI  #0x11060024
40292 @ 338151:                  INIT   1
40293 @ 338154:                  PUSHI  #0x100c0024
40294 @ 338159:                  INIT   1
40295 @ 338162:                  PUSHI  #0x10020024
40296 @ 338167:                  INIT   1

  6693           %CONSTSHORTINTEGERARRAY SNPARAMS(0:26)=0,
  6694                      1,32,       2,32,32,  2,32,1,
  6695                      3,32,1,1,   1,1005,   3,1005,1,1,
  6696                      1,1000,     1,1,      3,1,1,1;
  6697  !
40297 @ 338170:                  LINE   6693 "regression-compile-tmp/imp918s.imp"
40298 @ 338208:                  PUSHI  #0x00000000
40299 @ 338213:                  PUSHI  #0x0000001a
40300 @ 338218:                  BOUNDS
40301 @ 338219:                  DEF    SNPARAMS p1=V_0207 a/tf=1b b/format=3 c/ostate=112  type=1 (integer) form=11 (array) special=2 (short-integer) linkage=2 (constant) spec=0 indirect=1 unass=0
40302 @ 338239:                  PUSHI  #0x00000000
40303 @ 338244:                  INIT   1
40304 @ 338247:                  PUSHI  #0x00000001
40305 @ 338252:                  INIT   1
40306 @ 338255:                  PUSHI  #0x00000020
40307 @ 338260:                  INIT   1
40308 @ 338263:                  PUSHI  #0x00000002
40309 @ 338268:                  INIT   1
40310 @ 338271:                  PUSHI  #0x00000020
40311 @ 338276:                  INIT   1
40312 @ 338279:                  PUSHI  #0x00000020
40313 @ 338284:                  INIT   1
40314 @ 338287:                  PUSHI  #0x00000002
40315 @ 338292:                  INIT   1
40316 @ 338295:                  PUSHI  #0x00000020
40317 @ 338300:                  INIT   1
40318 @ 338303:                  PUSHI  #0x00000001
40319 @ 338308:                  INIT   1
40320 @ 338311:                  PUSHI  #0x00000003
40321 @ 338316:                  INIT   1
40322 @ 338319:                  PUSHI  #0x00000020
40323 @ 338324:                  INIT   1
40324 @ 338327:                  PUSHI  #0x00000001
40325 @ 338332:                  INIT   1
40326 @ 338335:                  PUSHI  #0x00000001
40327 @ 338340:                  INIT   1
40328 @ 338343:                  PUSHI  #0x00000001
40329 @ 338348:                  INIT   1
40330 @ 338351:                  PUSHI  #0x000003ed
40331 @ 338356:                  INIT   1
40332 @ 338359:                  PUSHI  #0x00000003
40333 @ 338364:                  INIT   1
40334 @ 338367:                  PUSHI  #0x000003ed
40335 @ 338372:                  INIT   1
40336 @ 338375:                  PUSHI  #0x00000001
40337 @ 338380:                  INIT   1
40338 @ 338383:                  PUSHI  #0x00000001
40339 @ 338388:                  INIT   1
40340 @ 338391:                  PUSHI  #0x00000001
40341 @ 338396:                  INIT   1
40342 @ 338399:                  PUSHI  #0x000003e8
40343 @ 338404:                  INIT   1
40344 @ 338407:                  PUSHI  #0x00000001
40345 @ 338412:                  INIT   1
40346 @ 338415:                  PUSHI  #0x00000001
40347 @ 338420:                  INIT   1
40348 @ 338423:                  PUSHI  #0x00000003
40349 @ 338428:                  INIT   1
40350 @ 338431:                  PUSHI  #0x00000001
40351 @ 338436:                  INIT   1
40352 @ 338439:                  PUSHI  #0x00000001
40353 @ 338444:                  INIT   1
40354 @ 338447:                  PUSHI  #0x00000001
40355 @ 338452:                  INIT   1

  6698           %ROUTINESPEC RTOS(%INTEGER REG)
40356 @ 338455:                  LINE   6698 "regression-compile-tmp/imp918s.imp"
40357 @ 338493:                  DEF    RTOS (_lev0id0_CSS_CSNAME_RTOS) p1=V_0208 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
40358 @ 338509:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
40359 @ 338510:                     DEF    REG p1=V_0209 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
40360 @ 338525:                  FINISH ) {lev=3}

  6699           %BYTEINTEGER ERRNO,FLAG,POINTER
40361 @ 338526:                  LINE   6699 "regression-compile-tmp/imp918s.imp"
40362 @ 338564:                  DEF    ERRNO p1=V_0209 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
40363 @ 338581:                  DEF    FLAG p1=V_020a a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
40364 @ 338597:                  DEF    POINTER p1=V_020b a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0

  6700           %SHORTINTEGER OPHEAD,OPBOT
40365 @ 338616:                  LINE   6700 "regression-compile-tmp/imp918s.imp"
40366 @ 338654:                  DEF    OPHEAD p1=V_020c a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
40367 @ 338672:                  DEF    OPBOT p1=V_020d a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0

  6701           %INTEGER PIN,SNNO,SNNAME,NAPS,SNPTYPE,JJ,%C
  6702                    XTRA,IOCPEP,B,D,SNINF,P0
  6703  !
40368 @ 338689:                  LINE   6701 "regression-compile-tmp/imp918s.imp"
40369 @ 338727:                  DEF    PIN p1=V_020e 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
40370 @ 338742:                  DEF    SNNO p1=V_020f 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
40371 @ 338758:                  DEF    SNNAME p1=V_0210 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
40372 @ 338776:                  DEF    NAPS p1=V_0211 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
40373 @ 338792:                  DEF    SNPTYPE p1=V_0212 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
40374 @ 338811:                  DEF    JJ p1=V_0213 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
40375 @ 338825:                  DEF    XTRA p1=V_0214 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
40376 @ 338841:                  DEF    IOCPEP p1=V_0215 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
40377 @ 338859:                  DEF    B p1=V_0216 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
40378 @ 338872:                  DEF    D p1=V_0217 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
40379 @ 338885:                  DEF    SNINF p1=V_0218 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
40380 @ 338902:                  DEF    P0 p1=V_0219 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

  6704           SNNAME=A(P)
40381 @ 338916:                  LINE   6704 "regression-compile-tmp/imp918s.imp"
40382 @ 338954:                  PUSH   SNNAME
40383 @ 338957:                  PUSH   A
40384 @ 338960:                  PUSH   P
40385 @ 338963:                  ACCESS
40386 @ 338964:                  ASSVAL

  6705           SNNO=K;                       ! INDEX INTO SNINFO
40387 @ 338965:                  LINE   6705 "regression-compile-tmp/imp918s.imp"
40388 @ 339003:                  PUSH   SNNO
40389 @ 339006:                  PUSH   K
40390 @ 339009:                  ASSVAL

  6706           TESTAPP(NAPS);                ! COUNT ACTUAL PARAMETERS
40391 @ 339010:                  LINE   6706 "regression-compile-tmp/imp918s.imp"
40392 @ 339048:                  PUSH   TESTAPP
40393 @ 339051:                  PUSH   NAPS
40394 @ 339054:                  ASSPAR
40395 @ 339055:                  CALL  

  6707           PIN=P; P=P+1
40396 @ 339056:                  LINE   6707 "regression-compile-tmp/imp918s.imp"
40397 @ 339094:                  PUSH   PIN
40398 @ 339097:                  PUSH   P
40399 @ 339100:                  ASSVAL
40400 @ 339101:                  LINE   6707 "regression-compile-tmp/imp918s.imp"
40401 @ 339139:                  PUSH   P
40402 @ 339142:                  PUSH   P
40403 @ 339145:                  PUSHI  #0x00000001
40404 @ 339150:                  ADD   
40405 @ 339151:                  ASSVAL

  6708           SNPTYPE=TSNAME(SNNO)
40406 @ 339152:                  LINE   6708 "regression-compile-tmp/imp918s.imp"
40407 @ 339190:                  PUSH   SNPTYPE
40408 @ 339193:                  PUSH   TSNAME
40409 @ 339196:                  PUSH   SNNO
40410 @ 339199:                  ACCESS
40411 @ 339200:                  ASSVAL

  6709           SNINF=SNINFO(SNNO)
40412 @ 339201:                  LINE   6709 "regression-compile-tmp/imp918s.imp"
40413 @ 339239:                  PUSH   SNINF
40414 @ 339242:                  PUSH   SNINFO
40415 @ 339245:                  PUSH   SNNO
40416 @ 339248:                  ACCESS
40417 @ 339249:                  ASSVAL

  6710           XTRA=SNINF&X'FFFF'
40418 @ 339250:                  LINE   6710 "regression-compile-tmp/imp918s.imp"
40419 @ 339288:                  PUSH   XTRA
40420 @ 339291:                  PUSH   SNINF
40421 @ 339294:                  PUSHI  #0x0000ffff
40422 @ 339299:                  AND   
40423 @ 339300:                  ASSVAL

  6711           POINTER<-SNINF>>16
40424 @ 339301:                  LINE   6711 "regression-compile-tmp/imp918s.imp"
40425 @ 339339:                  PUSH   POINTER
40426 @ 339342:                  PUSH   SNINF
40427 @ 339345:                  PUSHI  #0x00000010
40428 @ 339350:                  RSH   
40429 @ 339351:                  JAM   

  6712           FLAG=SNINF>>24
  6713  !
  6714  ! THE IMPLICITLY SPECIFIED ROUTINE ARE THE EASIEST OF ALL TO DEAL WITH.
  6715  ! JUST SET UP THE EXTERNAL SPEC & PARAMETERS. THEN A RECURSIVE CALL
  6716  ! OF CNAME THEN FINDS THE ROUTINE UNDER ITS TRUE COLOURS AND COMPILES
  6717  ! THE CALL. ALL CALLS EXCEPT THE FIRST ARE DEALT WITH DIRECTLY BY CNAME.
  6718  ! ALL NONTRIVIAL ROUTINES SHOULD BE DEALT WITH IN THIS MANNER
  6719  !
40430 @ 339352:                  LINE   6712 "regression-compile-tmp/imp918s.imp"
40431 @ 339390:                  PUSH   FLAG
40432 @ 339393:                  PUSH   SNINF
40433 @ 339396:                  PUSHI  #0x00000018
40434 @ 339401:                  RSH   
40435 @ 339402:                  ASSVAL

  6720           %IF FLAG&X'80'#0 %THEN %START
40436 @ 339403:                  LINE   6720 "regression-compile-tmp/imp918s.imp"
40437 @ 339441:                  PUSH   FLAG
40438 @ 339444:                  PUSHI  #0x00000080
40439 @ 339449:                  AND   
40440 @ 339450:                  PUSHI  #0x00000000
40441 @ 339455:                  JUMPIF = L_0004

  6721              CXREF(0,A(PIN),XTRA,JJ);    ! JJ SET WITH REF DISPLACEMENT
40442 @ 339459:                  LINE   6721 "regression-compile-tmp/imp918s.imp"
40443 @ 339497:                  PUSH   CXREF
40444 @ 339500:                  PUSHI  #0x00000000
40445 @ 339505:                  ASSPAR
40446 @ 339506:                  PUSH   A
40447 @ 339509:                  PUSH   PIN
40448 @ 339512:                  ACCESS
40449 @ 339513:                  ASSPAR
40450 @ 339514:                  PUSH   XTRA
40451 @ 339517:                  ASSPAR
40452 @ 339518:                  PUSH   JJ
40453 @ 339521:                  ASSPAR
40454 @ 339522:                  CALL  

  6722              OPHEAD=0; OPBOT=0; P0=SNPARAMS(POINTER)
40455 @ 339523:                  LINE   6722 "regression-compile-tmp/imp918s.imp"
40456 @ 339561:                  PUSH   OPHEAD
40457 @ 339564:                  PUSHI  #0x00000000
40458 @ 339569:                  ASSVAL
40459 @ 339570:                  LINE   6722 "regression-compile-tmp/imp918s.imp"
40460 @ 339608:                  PUSH   OPBOT
40461 @ 339611:                  PUSHI  #0x00000000
40462 @ 339616:                  ASSVAL
40463 @ 339617:                  LINE   6722 "regression-compile-tmp/imp918s.imp"
40464 @ 339655:                  PUSH   P0
40465 @ 339658:                  PUSH   SNPARAMS
40466 @ 339661:                  PUSH   POINTER
40467 @ 339664:                  ACCESS
40468 @ 339665:                  ASSVAL

  6723              SNDISP=JJ>>2; KFORM=P0
40469 @ 339666:                  LINE   6723 "regression-compile-tmp/imp918s.imp"
40470 @ 339704:                  PUSH   SNDISP
40471 @ 339707:                  PUSH   JJ
40472 @ 339710:                  PUSHI  #0x00000002
40473 @ 339715:                  RSH   
40474 @ 339716:                  ASSVAL
40475 @ 339717:                  LINE   6723 "regression-compile-tmp/imp918s.imp"
40476 @ 339755:                  PUSH   KFORM
40477 @ 339758:                  PUSH   P0
40478 @ 339761:                  ASSVAL

  6724              JJ=1; D=64
40479 @ 339762:                  LINE   6724 "regression-compile-tmp/imp918s.imp"
40480 @ 339800:                  PUSH   JJ
40481 @ 339803:                  PUSHI  #0x00000001
40482 @ 339808:                  ASSVAL
40483 @ 339809:                  LINE   6724 "regression-compile-tmp/imp918s.imp"
40484 @ 339847:                  PUSH   D
40485 @ 339850:                  PUSHI  #0x00000040
40486 @ 339855:                  ASSVAL

  6725              %WHILE JJ<=P0 %CYCLE
40487 @ 339856:                  LINE   6725 "regression-compile-tmp/imp918s.imp"
40488 @ 339894:                  LOCATE L_0006
40489 @ 339897:                  PUSH   JJ
40490 @ 339900:                  PUSH   P0
40491 @ 339903:                  JUMPIF > L_0007

  6726                 PTYPE=SNPARAMS(POINTER+JJ)
  6727                ! UNPACK
  6728  !%if USE MC = 1 %start
  6729  !            *L_1,PTYPE; *CVD_1,0(11)
  6730  !            *UNPK_ROUT(5),5(3,11)
  6731  !            *NC_ROUT(5),MASK1
  6732  !%finish
40492 @ 339907:                  LINE   6726 "regression-compile-tmp/imp918s.imp"
40493 @ 339945:                  PUSH   PTYPE
40494 @ 339948:                  PUSH   SNPARAMS
40495 @ 339951:                  PUSH   POINTER
40496 @ 339954:                  PUSH   JJ
40497 @ 339957:                  ADD   
40498 @ 339958:                  ACCESS
40499 @ 339959:                  ASSVAL

  6733                 %IF NAM=0 %THEN ACC=BYTES(PREC) %ELSE ACC=4
40500 @ 339960:                  LINE   6733 "regression-compile-tmp/imp918s.imp"
40501 @ 339998:                  PUSH   NAM
40502 @ 340001:                  PUSHI  #0x00000000
40503 @ 340006:                  JUMPIF # L_000a
40504 @ 340010:                  PUSH   ACC
40505 @ 340013:                  PUSH   BYTES
40506 @ 340016:                  PUSH   PREC
40507 @ 340019:                  ACCESS
40508 @ 340020:                  ASSVAL
40509 @ 340021:                  GOTO   L_0009
40510 @ 340024:                  LOCATE L_000a
40511 @ 340027:                  PUSH   ACC
40512 @ 340030:                  PUSHI  #0x00000004
40513 @ 340035:                  ASSVAL
40514 @ 340036:                  LOCATE L_0009

  6734                 BINSERT(OPHEAD,OPBOT,PTYPE,ACC<<16!D,0)
40515 @ 340039:                  LINE   6734 "regression-compile-tmp/imp918s.imp"
40516 @ 340077:                  PUSH   BINSERT
40517 @ 340080:                  PUSH   OPHEAD
40518 @ 340083:                  ASSPAR
40519 @ 340084:                  PUSH   OPBOT
40520 @ 340087:                  ASSPAR
40521 @ 340088:                  PUSH   PTYPE
40522 @ 340091:                  ASSPAR
40523 @ 340092:                  PUSH   ACC
40524 @ 340095:                  PUSHI  #0x00000010
40525 @ 340100:                  LSH   
40526 @ 340101:                  PUSH   D
40527 @ 340104:                  OR    
40528 @ 340105:                  ASSPAR
40529 @ 340106:                  PUSHI  #0x00000000
40530 @ 340111:                  ASSPAR
40531 @ 340112:                  CALL  

  6735                 D=D+ACC
40532 @ 340113:                  LINE   6735 "regression-compile-tmp/imp918s.imp"
40533 @ 340151:                  PUSH   D
40534 @ 340154:                  PUSH   D
40535 @ 340157:                  PUSH   ACC
40536 @ 340160:                  ADD   
40537 @ 340161:                  ASSVAL

  6736                 JJ=JJ+1
40538 @ 340162:                  LINE   6736 "regression-compile-tmp/imp918s.imp"
40539 @ 340200:                  PUSH   JJ
40540 @ 340203:                  PUSH   JJ
40541 @ 340206:                  PUSHI  #0x00000001
40542 @ 340211:                  ADD   
40543 @ 340212:                  ASSVAL

  6737              %REPEAT
40544 @ 340213:                  LINE   6737 "regression-compile-tmp/imp918s.imp"
40545 @ 340251:                  REPEAT L_0006
40546 @ 340254:                  LOCATE L_0007

  6738              I=9; J=14
40547 @ 340257:                  LINE   6738 "regression-compile-tmp/imp918s.imp"
40548 @ 340295:                  PUSH   I
40549 @ 340298:                  PUSHI  #0x00000009
40550 @ 340303:                  ASSVAL
40551 @ 340304:                  LINE   6738 "regression-compile-tmp/imp918s.imp"
40552 @ 340342:                  PUSH   J
40553 @ 340345:                  PUSHI  #0x0000000e
40554 @ 340350:                  ASSVAL

  6739              OLDI=0; PTYPE=SNPTYPE
40555 @ 340351:                  LINE   6739 "regression-compile-tmp/imp918s.imp"
40556 @ 340389:                  PUSH   OLDI
40557 @ 340392:                  PUSHI  #0x00000000
40558 @ 340397:                  ASSVAL
40559 @ 340398:                  LINE   6739 "regression-compile-tmp/imp918s.imp"
40560 @ 340436:                  PUSH   PTYPE
40561 @ 340439:                  PUSH   SNPTYPE
40562 @ 340442:                  ASSVAL

  6740              K=OPHEAD
40563 @ 340443:                  LINE   6740 "regression-compile-tmp/imp918s.imp"
40564 @ 340481:                  PUSH   K
40565 @ 340484:                  PUSH   OPHEAD
40566 @ 340487:                  ASSVAL

  6741              REPLACETAG(A(PIN))
40567 @ 340488:                  LINE   6741 "regression-compile-tmp/imp918s.imp"
40568 @ 340526:                  PUSH   REPLACETAG
40569 @ 340529:                  PUSH   A
40570 @ 340532:                  PUSH   PIN
40571 @ 340535:                  ACCESS
40572 @ 340536:                  ASSPAR
40573 @ 340537:                  CALL  

  6742              P=PIN; CNAME(Z,REG);        ! RECURSIVE CALL
40574 @ 340538:                  LINE   6742 "regression-compile-tmp/imp918s.imp"
40575 @ 340576:                  PUSH   P
40576 @ 340579:                  PUSH   PIN
40577 @ 340582:                  ASSVAL
40578 @ 340583:                  LINE   6742 "regression-compile-tmp/imp918s.imp"
40579 @ 340621:                  PUSH   CNAME
40580 @ 340624:                  PUSH   Z
40581 @ 340627:                  ASSPAR
40582 @ 340628:                  PUSH   REG
40583 @ 340631:                  ASSPAR
40584 @ 340632:                  CALL  

  6743              P=P-2; %RETURN;             ! DUPLICATES CHECK OF <ENAME>
40585 @ 340633:                  LINE   6743 "regression-compile-tmp/imp918s.imp"
40586 @ 340671:                  PUSH   P
40587 @ 340674:                  PUSH   P
40588 @ 340677:                  PUSHI  #0x00000002
40589 @ 340682:                  SUB   
40590 @ 340683:                  ASSVAL
40591 @ 340684:                  LINE   6743 "regression-compile-tmp/imp918s.imp"
40592 @ 340722:                  RETURN

  6744           %FINISH
  6745  !
  6746  ! ALL ROUTINES EXCEPT THE IMPLICITS REQUIRE A CHECH THAT THE USE OF THE
  6747  ! NAME IS LEGAL AND THAT THE CORRECT NO OF PARAMETERS(BOTTOM 2 BITS OF
  6748  ! FLAG) HAS BEEN SUPPLIED. THE CHECK IS TRIVIAL - THE PROBLEM
  6749  ! IS TO GET THE RIGHT ERROR NUMBER.
  6750  ! XTRA HAS A BITMASK OF ALLOWED USES(IE ALLOWED Z VALUES)
  6751  !
40593 @ 340723:                  LINE   6744 "regression-compile-tmp/imp918s.imp"
40594 @ 340761:                  LOCATE L_0004

  6752           NEST=0
40595 @ 340764:                  LINE   6752 "regression-compile-tmp/imp918s.imp"
40596 @ 340802:                  PUSH   NEST
40597 @ 340805:                  PUSHI  #0x00000000
40598 @ 340810:                  ASSVAL

  6753           %IF NAPS#FLAG&3 %THEN ERRNO=19 %AND ->ERREXIT
40599 @ 340811:                  LINE   6753 "regression-compile-tmp/imp918s.imp"
40600 @ 340849:                  PUSH   NAPS
40601 @ 340852:                  PUSH   FLAG
40602 @ 340855:                  PUSHI  #0x00000003
40603 @ 340860:                  AND   
40604 @ 340861:                  JUMPIF = L_0004
40605 @ 340865:                  PUSH   ERRNO
40606 @ 340868:                  PUSHI  #0x00000013
40607 @ 340873:                  ASSVAL
40608 @ 340874:                  JUMP   L_021a
40609 @ 340877:                  LOCATE L_0004

  6754           JJ=1<<Z
40610 @ 340880:                  LINE   6754 "regression-compile-tmp/imp918s.imp"
40611 @ 340918:                  PUSH   JJ
40612 @ 340921:                  PUSHI  #0x00000001
40613 @ 340926:                  PUSH   Z
40614 @ 340929:                  LSH   
40615 @ 340930:                  ASSVAL

  6755           %IF JJ&XTRA=0 %THEN %START;    ! ILLEGAL USE
40616 @ 340931:                  LINE   6755 "regression-compile-tmp/imp918s.imp"
40617 @ 340969:                  PUSH   JJ
40618 @ 340972:                  PUSH   XTRA
40619 @ 340975:                  AND   
40620 @ 340976:                  PUSHI  #0x00000000
40621 @ 340981:                  JUMPIF # L_0004

  6756              ERRNO=23
40622 @ 340985:                  LINE   6756 "regression-compile-tmp/imp918s.imp"
40623 @ 341023:                  PUSH   ERRNO
40624 @ 341026:                  PUSHI  #0x00000017
40625 @ 341031:                  ASSVAL

  6757              %IF Z=0 %THEN ERRNO=17
40626 @ 341032:                  LINE   6757 "regression-compile-tmp/imp918s.imp"
40627 @ 341070:                  PUSH   Z
40628 @ 341073:                  PUSHI  #0x00000000
40629 @ 341078:                  JUMPIF # L_0007
40630 @ 341082:                  PUSH   ERRNO
40631 @ 341085:                  PUSHI  #0x00000011
40632 @ 341090:                  ASSVAL
40633 @ 341091:                  LOCATE L_0007

  6758              %IF Z=1 %OR 3<=Z<=4 %THEN ERRNO=29
40634 @ 341094:                  LINE   6758 "regression-compile-tmp/imp918s.imp"
40635 @ 341132:                  PUSH   Z
40636 @ 341135:                  PUSHI  #0x00000001
40637 @ 341140:                  JUMPIF = L_0008
40638 @ 341144:                  PUSHI  #0x00000003
40639 @ 341149:                  PUSH   Z
40640 @ 341152:                  JUMPIFD > L_0007
40641 @ 341156:                  PUSHI  #0x00000004
40642 @ 341161:                  JUMPIF > L_0007
40643 @ 341165:                  LOCATE L_0008
40644 @ 341168:                  PUSH   ERRNO
40645 @ 341171:                  PUSHI  #0x0000001d
40646 @ 341176:                  ASSVAL
40647 @ 341177:                  LOCATE L_0007

  6759              %IF XTRA&X'F000'#0 %THEN ERRNO=84
40648 @ 341180:                  LINE   6759 "regression-compile-tmp/imp918s.imp"
40649 @ 341218:                  PUSH   XTRA
40650 @ 341221:                  PUSHI  #0x0000f000
40651 @ 341226:                  AND   
40652 @ 341227:                  PUSHI  #0x00000000
40653 @ 341232:                  JUMPIF = L_0007
40654 @ 341236:                  PUSH   ERRNO
40655 @ 341239:                  PUSHI  #0x00000054
40656 @ 341244:                  ASSVAL
40657 @ 341245:                  LOCATE L_0007

  6760              ->ERR EXIT
40658 @ 341248:                  LINE   6760 "regression-compile-tmp/imp918s.imp"
40659 @ 341286:                  JUMP   L_021a

  6761           %FINISH
  6762  !
  6763  ! A NUMBER OF INPUT-OUTPUT ROUTINES ARE MAPPED ONTO CALLS OF IOCP.
  6764  ! THIS ARRANGEMENT HAS THE ADVANTAGE OF REQUIRING ONL 1 EXTERNAL REF
  6765  ! IN THE GLA BUT HAS THE DISADVANTAGE THAT THE I-O ROUTINES CAN NOT
  6766  ! BE PASSED AS RT-TYPE PARAMETERS AS WELL AS REQUIRING MESSY CODE
  6767  ! HEREABOUTS.  SNINF_PTR HOLD EITHER:-
  6768  !       1) THE IOCP ENTRY POINT NO
  6769  !   OR  2) THE SYMBOL TO BE OUTPUT WITH 2**7 BIT SET
  6770  !
  6771  ! THIS SECTION DEALS WITH SELECT INPUT,SELECT OUTPUT,NEWLINE,NEWPAGE
  6772  !                         SPACE,SKIP SYMBOL,PRINT SYMBOL,PRINTSTRING
  6773  !                         AND PRINT CH
  6774  !
40660 @ 341289:                  LINE   6761 "regression-compile-tmp/imp918s.imp"
40661 @ 341327:                  LOCATE L_0004

  6775           %IF FLAG&X'40'#0 %THEN %START
40662 @ 341330:                  LINE   6775 "regression-compile-tmp/imp918s.imp"
40663 @ 341368:                  PUSH   FLAG
40664 @ 341371:                  PUSHI  #0x00000040
40665 @ 341376:                  AND   
40666 @ 341377:                  PUSHI  #0x00000000
40667 @ 341382:                  JUMPIF = L_0004

  6776              IOCPEP=POINTER
40668 @ 341386:                  LINE   6776 "regression-compile-tmp/imp918s.imp"
40669 @ 341424:                  PUSH   IOCPEP
40670 @ 341427:                  PUSH   POINTER
40671 @ 341430:                  ASSVAL

  6777              %IF FLAG&3#0 %THEN %START;  ! RT HAS PARAMS
40672 @ 341431:                  LINE   6777 "regression-compile-tmp/imp918s.imp"
40673 @ 341469:                  PUSH   FLAG
40674 @ 341472:                  PUSHI  #0x00000003
40675 @ 341477:                  AND   
40676 @ 341478:                  PUSHI  #0x00000000
40677 @ 341483:                  JUMPIF = L_0007

  6778                 P=P+1
40678 @ 341487:                  LINE   6778 "regression-compile-tmp/imp918s.imp"
40679 @ 341525:                  PUSH   P
40680 @ 341528:                  PUSH   P
40681 @ 341531:                  PUSHI  #0x00000001
40682 @ 341536:                  ADD   
40683 @ 341537:                  ASSVAL

  6779                 %IF SNNO=37 %THEN CSTREXP(1,1) %ELSE CSEXP(1,1)
40684 @ 341538:                  LINE   6779 "regression-compile-tmp/imp918s.imp"
40685 @ 341576:                  PUSH   SNNO
40686 @ 341579:                  PUSHI  #0x00000025
40687 @ 341584:                  JUMPIF # L_000a
40688 @ 341588:                  PUSH   CSTREXP
40689 @ 341591:                  PUSHI  #0x00000001
40690 @ 341596:                  ASSPAR
40691 @ 341597:                  PUSHI  #0x00000001
40692 @ 341602:                  ASSPAR
40693 @ 341603:                  CALL  
40694 @ 341604:                  GOTO   L_0009
40695 @ 341607:                  LOCATE L_000a
40696 @ 341610:                  PUSH   CSEXP
40697 @ 341613:                  PUSHI  #0x00000001
40698 @ 341618:                  ASSPAR
40699 @ 341619:                  PUSHI  #0x00000001
40700 @ 341624:                  ASSPAR
40701 @ 341625:                  CALL  
40702 @ 341626:                  LOCATE L_0009

  6780              %FINISH
40703 @ 341629:                  LINE   6780 "regression-compile-tmp/imp918s.imp"
40704 @ 341667:                  LOCATE L_0007

  6781              %IF IOCPEP>127 %THEN %START
40705 @ 341670:                  LINE   6781 "regression-compile-tmp/imp918s.imp"
40706 @ 341708:                  PUSH   IOCPEP
40707 @ 341711:                  PUSHI  #0x0000007f
40708 @ 341716:                  JUMPIF <= L_0007

  6782                 DUMP(0,1,IOCPEP&127,0,0)
40709 @ 341720:                  LINE   6782 "regression-compile-tmp/imp918s.imp"
40710 @ 341758:                  PUSH   DUMP
40711 @ 341761:                  PUSHI  #0x00000000
40712 @ 341766:                  ASSPAR
40713 @ 341767:                  PUSHI  #0x00000001
40714 @ 341772:                  ASSPAR
40715 @ 341773:                  PUSH   IOCPEP
40716 @ 341776:                  PUSHI  #0x0000007f
40717 @ 341781:                  AND   
40718 @ 341782:                  ASSPAR
40719 @ 341783:                  PUSHI  #0x00000000
40720 @ 341788:                  ASSPAR
40721 @ 341789:                  PUSHI  #0x00000000
40722 @ 341794:                  ASSPAR
40723 @ 341795:                  CALL  

  6783                 %IF SNNO=3 %THEN IOCPEP=3 %ELSE IOCPEP=5
40724 @ 341796:                  LINE   6783 "regression-compile-tmp/imp918s.imp"
40725 @ 341834:                  PUSH   SNNO
40726 @ 341837:                  PUSHI  #0x00000003
40727 @ 341842:                  JUMPIF # L_000a
40728 @ 341846:                  PUSH   IOCPEP
40729 @ 341849:                  PUSHI  #0x00000003
40730 @ 341854:                  ASSVAL
40731 @ 341855:                  GOTO   L_0009
40732 @ 341858:                  LOCATE L_000a
40733 @ 341861:                  PUSH   IOCPEP
40734 @ 341864:                  PUSHI  #0x00000005
40735 @ 341869:                  ASSVAL
40736 @ 341870:                  LOCATE L_0009

  6784              %FINISH
40737 @ 341873:                  LINE   6784 "regression-compile-tmp/imp918s.imp"
40738 @ 341911:                  LOCATE L_0007

  6785              CIOCP(IOCPEP);              ! PLANT CALL OF IOCP
40739 @ 341914:                  LINE   6785 "regression-compile-tmp/imp918s.imp"
40740 @ 341952:                  PUSH   CIOCP
40741 @ 341955:                  PUSH   IOCPEP
40742 @ 341958:                  ASSPAR
40743 @ 341959:                  CALL  

  6786              ->OKEXIT
40744 @ 341960:                  LINE   6786 "regression-compile-tmp/imp918s.imp"
40745 @ 341998:                  JUMP   L_021b

  6787           %FINISH
  6788  !
  6789  ! THE BUILT-IN MAPS (INTEGER ETC BUT NOT RECORD OR ARRAY)
  6790  ! A SPECIAL MODE(13) IN CSEXP ALLOWS ADDR(I) TO BE EVALUATED TO
  6791  ! A BASE,INDEX &DISP RATHER THAN EVALUATED(IE THE FINAL LA IS OMITTED)
  6792  ! THIS ENABLES INTEGER(ADDR(I)) TO BE COMPLIED EXTREMELY EFFICIENTLY
  6793  !
40746 @ 342001:                  LINE   6787 "regression-compile-tmp/imp918s.imp"
40747 @ 342039:                  LOCATE L_0004

  6794           %IF FLAG&X'20'#0 %THEN %START
40748 @ 342042:                  LINE   6794 "regression-compile-tmp/imp918s.imp"
40749 @ 342080:                  PUSH   FLAG
40750 @ 342083:                  PUSHI  #0x00000020
40751 @ 342088:                  AND   
40752 @ 342089:                  PUSHI  #0x00000000
40753 @ 342094:                  JUMPIF = L_0004

  6795              %IF Z=1 %THEN CYC BITS=CYC BITS!1024 %C
  6796                 %AND BIMSTR=1;           ! SPECIAL FLAG FOR STORE VIA MAP
40754 @ 342098:                  LINE   6795 "regression-compile-tmp/imp918s.imp"
40755 @ 342136:                  PUSH   Z
40756 @ 342139:                  PUSHI  #0x00000001
40757 @ 342144:                  JUMPIF # L_0007
40758 @ 342148:                  PUSH   CYCBITS
40759 @ 342151:                  PUSH   CYCBITS
40760 @ 342154:                  PUSHI  #0x00000400
40761 @ 342159:                  OR    
40762 @ 342160:                  ASSVAL
40763 @ 342161:                  PUSH   BIMSTR
40764 @ 342164:                  PUSHI  #0x00000001
40765 @ 342169:                  ASSVAL
40766 @ 342170:                  LOCATE L_0007

  6797              P=P+1; CSEXP(-1,13); P=P+1
40767 @ 342173:                  LINE   6797 "regression-compile-tmp/imp918s.imp"
40768 @ 342211:                  PUSH   P
40769 @ 342214:                  PUSH   P
40770 @ 342217:                  PUSHI  #0x00000001
40771 @ 342222:                  ADD   
40772 @ 342223:                  ASSVAL
40773 @ 342224:                  LINE   6797 "regression-compile-tmp/imp918s.imp"
40774 @ 342262:                  PUSH   CSEXP
40775 @ 342265:                  PUSHI  #0x00000001
40776 @ 342270:                  NEGATE
40777 @ 342271:                  ASSPAR
40778 @ 342272:                  PUSHI  #0x0000000d
40779 @ 342277:                  ASSPAR
40780 @ 342278:                  CALL  
40781 @ 342279:                  LINE   6797 "regression-compile-tmp/imp918s.imp"
40782 @ 342317:                  PUSH   P
40783 @ 342320:                  PUSH   P
40784 @ 342323:                  PUSHI  #0x00000001
40785 @ 342328:                  ADD   
40786 @ 342329:                  ASSVAL

  6798              %IF Z=1 %THEN BIMSTR=0
40787 @ 342330:                  LINE   6798 "regression-compile-tmp/imp918s.imp"
40788 @ 342368:                  PUSH   Z
40789 @ 342371:                  PUSHI  #0x00000001
40790 @ 342376:                  JUMPIF # L_0007
40791 @ 342380:                  PUSH   BIMSTR
40792 @ 342383:                  PUSHI  #0x00000000
40793 @ 342388:                  ASSVAL
40794 @ 342389:                  LOCATE L_0007

  6799              %IF NEST>=0 %THEN BASE=NEST %AND INDEX=0 %AND DISP=ADISP
40795 @ 342392:                  LINE   6799 "regression-compile-tmp/imp918s.imp"
40796 @ 342430:                  PUSH   NEST
40797 @ 342433:                  PUSHI  #0x00000000
40798 @ 342438:                  JUMPIF < L_0007
40799 @ 342442:                  PUSH   BASE
40800 @ 342445:                  PUSH   NEST
40801 @ 342448:                  ASSVAL
40802 @ 342449:                  PUSH   INDEX
40803 @ 342452:                  PUSHI  #0x00000000
40804 @ 342457:                  ASSVAL
40805 @ 342458:                  PUSH   DISP
40806 @ 342461:                  PUSH   ADISP
40807 @ 342464:                  ASSVAL
40808 @ 342465:                  LOCATE L_0007

  6800              SNPTYPE=11000+SNPTYPE;      ! ADD MAP BITS
40809 @ 342468:                  LINE   6800 "regression-compile-tmp/imp918s.imp"
40810 @ 342506:                  PUSH   SNPTYPE
40811 @ 342509:                  PUSHI  #0x00002af8
40812 @ 342514:                  PUSH   SNPTYPE
40813 @ 342517:                  ADD   
40814 @ 342518:                  ASSVAL

  6801              ->OKEXIT
40815 @ 342519:                  LINE   6801 "regression-compile-tmp/imp918s.imp"
40816 @ 342557:                  JUMP   L_021b

  6802           %FINISH
  6803  !
  6804  ! ADHOC CODING IS REQUIRED FOR THE REMAINING ROUTINES APART FROM
  6805  ! A CHECK FOR NAMETYPE PARAMETERS. THE SWITCH NO IS KEPT IN POINTER
  6806  !
40817 @ 342560:                  LINE   6802 "regression-compile-tmp/imp918s.imp"
40818 @ 342598:                  LOCATE L_0004

  6807           %IF FLAG&3#0 %THEN P=P+1
40819 @ 342601:                  LINE   6807 "regression-compile-tmp/imp918s.imp"
40820 @ 342639:                  PUSH   FLAG
40821 @ 342642:                  PUSHI  #0x00000003
40822 @ 342647:                  AND   
40823 @ 342648:                  PUSHI  #0x00000000
40824 @ 342653:                  JUMPIF = L_0004
40825 @ 342657:                  PUSH   P
40826 @ 342660:                  PUSH   P
40827 @ 342663:                  PUSHI  #0x00000001
40828 @ 342668:                  ADD   
40829 @ 342669:                  ASSVAL
40830 @ 342670:                  LOCATE L_0004

  6808           %IF FLAG&8#0 %AND(A(P+2)#4 %OR A(P+3)#1 %OR %C
  6809              A(P+A(P+1)+1)#2) %THEN ERRNO=22 %AND ->ERREXIT
40831 @ 342673:                  LINE   6808 "regression-compile-tmp/imp918s.imp"
40832 @ 342711:                  PUSH   FLAG
40833 @ 342714:                  PUSHI  #0x00000008
40834 @ 342719:                  AND   
40835 @ 342720:                  PUSHI  #0x00000000
40836 @ 342725:                  JUMPIF = L_0004
40837 @ 342729:                  PUSH   A
40838 @ 342732:                  PUSH   P
40839 @ 342735:                  PUSHI  #0x00000002
40840 @ 342740:                  ADD   
40841 @ 342741:                  ACCESS
40842 @ 342742:                  PUSHI  #0x00000004
40843 @ 342747:                  JUMPIF # L_0005
40844 @ 342751:                  PUSH   A
40845 @ 342754:                  PUSH   P
40846 @ 342757:                  PUSHI  #0x00000003
40847 @ 342762:                  ADD   
40848 @ 342763:                  ACCESS
40849 @ 342764:                  PUSHI  #0x00000001
40850 @ 342769:                  JUMPIF # L_0005
40851 @ 342773:                  PUSH   A
40852 @ 342776:                  PUSH   P
40853 @ 342779:                  PUSH   A
40854 @ 342782:                  PUSH   P
40855 @ 342785:                  PUSHI  #0x00000001
40856 @ 342790:                  ADD   
40857 @ 342791:                  ACCESS
40858 @ 342792:                  ADD   
40859 @ 342793:                  PUSHI  #0x00000001
40860 @ 342798:                  ADD   
40861 @ 342799:                  ACCESS
40862 @ 342800:                  PUSHI  #0x00000002
40863 @ 342805:                  JUMPIF = L_0004
40864 @ 342809:                  LOCATE L_0005
40865 @ 342812:                  PUSH   ERRNO
40866 @ 342815:                  PUSHI  #0x00000016
40867 @ 342820:                  ASSVAL
40868 @ 342821:                  JUMP   L_021a
40869 @ 342824:                  LOCATE L_0004

  6810           ->ADHOC(POINTER)
40870 @ 342827:                  LINE   6810 "regression-compile-tmp/imp918s.imp"
40871 @ 342865:                  PUSH   POINTER
40872 @ 342868:                  SJUMP  517

  6811  ADHOC(1):                               ! NEWLINES(=6) & SPACES(=7)
40873 @ 342871:                  LINE   6811 "regression-compile-tmp/imp918s.imp"
40874 @ 342909:                  PUSHI  #0x00000001
40875 @ 342914:                  SLABEL 517

  6812           CSEXP(2,1);                    ! REPITITION NO TO GR2
40876 @ 342917:                  LINE   6812 "regression-compile-tmp/imp918s.imp"
40877 @ 342955:                  PUSH   CSEXP
40878 @ 342958:                  PUSHI  #0x00000002
40879 @ 342963:                  ASSPAR
40880 @ 342964:                  PUSHI  #0x00000001
40881 @ 342969:                  ASSPAR
40882 @ 342970:                  CALL  

  6813           %IF SNNO=6 %THEN JJ=10 %ELSE JJ=32
40883 @ 342971:                  LINE   6813 "regression-compile-tmp/imp918s.imp"
40884 @ 343009:                  PUSH   SNNO
40885 @ 343012:                  PUSHI  #0x00000006
40886 @ 343017:                  JUMPIF # L_0004
40887 @ 343021:                  PUSH   JJ
40888 @ 343024:                  PUSHI  #0x0000000a
40889 @ 343029:                  ASSVAL
40890 @ 343030:                  GOTO   L_0003
40891 @ 343033:                  LOCATE L_0004
40892 @ 343036:                  PUSH   JJ
40893 @ 343039:                  PUSHI  #0x00000020
40894 @ 343044:                  ASSVAL
40895 @ 343045:                  LOCATE L_0003

  6814           PRX(X'41',1,0,0,JJ);           ! LA 1,SYMBOL
40896 @ 343048:                  LINE   6814 "regression-compile-tmp/imp918s.imp"
40897 @ 343086:                  PUSH   PRX
40898 @ 343089:                  PUSHI  #0x00000041
40899 @ 343094:                  ASSPAR
40900 @ 343095:                  PUSHI  #0x00000001
40901 @ 343100:                  ASSPAR
40902 @ 343101:                  PUSHI  #0x00000000
40903 @ 343106:                  ASSPAR
40904 @ 343107:                  PUSHI  #0x00000000
40905 @ 343112:                  ASSPAR
40906 @ 343113:                  PUSH   JJ
40907 @ 343116:                  ASSPAR
40908 @ 343117:                  CALL  

  6815           PPJ(14);                       ! PERM OPUTS R1 R2 TIMES
40909 @ 343118:                  LINE   6815 "regression-compile-tmp/imp918s.imp"
40910 @ 343156:                  PUSH   PPJ
40911 @ 343159:                  PUSHI  #0x0000000e
40912 @ 343164:                  ASSPAR
40913 @ 343165:                  CALL  

  6816           ->OKEXIT
40914 @ 343166:                  LINE   6816 "regression-compile-tmp/imp918s.imp"
40915 @ 343204:                  JUMP   L_021b

  6817  ADHOC(2):                               ! NEXTSYMBOL(=8) & NEXTITEM(=44)
  6818                                          ! AND NEXTCH=53
40916 @ 343207:                  LINE   6817 "regression-compile-tmp/imp918s.imp"
40917 @ 343245:                  PUSHI  #0x00000002
40918 @ 343250:                  SLABEL 517

  6819           SAVE IRS(4);                   ! PRESERVE ANY INTERMEDIATES
40919 @ 343253:                  LINE   6819 "regression-compile-tmp/imp918s.imp"
40920 @ 343291:                  PUSH   SAVEIRS
40921 @ 343294:                  PUSHI  #0x00000004
40922 @ 343299:                  ASSPAR
40923 @ 343300:                  CALL  

  6820           CLAIM THIS REG(0);             ! FORCE PRESERVATION OF GR0
40924 @ 343301:                  LINE   6820 "regression-compile-tmp/imp918s.imp"
40925 @ 343339:                  PUSH   CLAIMTHISREG
40926 @ 343342:                  PUSHI  #0x00000000
40927 @ 343347:                  ASSPAR
40928 @ 343348:                  CALL  

  6821           FREE AND FORGET(0);            ! SINCE THESE FNS CAN BE IN EXPN
40929 @ 343349:                  LINE   6821 "regression-compile-tmp/imp918s.imp"
40930 @ 343387:                  PUSH   FREEANDFORGET
40931 @ 343390:                  PUSHI  #0x00000000
40932 @ 343395:                  ASSPAR
40933 @ 343396:                  CALL  

  6822           %IF SNNO=53 %THEN JJ=18 %ELSE JJ=2
40934 @ 343397:                  LINE   6822 "regression-compile-tmp/imp918s.imp"
40935 @ 343435:                  PUSH   SNNO
40936 @ 343438:                  PUSHI  #0x00000035
40937 @ 343443:                  JUMPIF # L_0004
40938 @ 343447:                  PUSH   JJ
40939 @ 343450:                  PUSHI  #0x00000012
40940 @ 343455:                  ASSVAL
40941 @ 343456:                  GOTO   L_0003
40942 @ 343459:                  LOCATE L_0004
40943 @ 343462:                  PUSH   JJ
40944 @ 343465:                  PUSHI  #0x00000002
40945 @ 343470:                  ASSVAL
40946 @ 343471:                  LOCATE L_0003

  6823           CIOCP(JJ);                     ! LEAVES THE SYMBOL IN GR1
40947 @ 343474:                  LINE   6823 "regression-compile-tmp/imp918s.imp"
40948 @ 343512:                  PUSH   CIOCP
40949 @ 343515:                  PUSH   JJ
40950 @ 343518:                  ASSPAR
40951 @ 343519:                  CALL  

  6824           %IF SNNO#44 %THEN %START;       ! NEXT SYMBOL
40952 @ 343520:                  LINE   6824 "regression-compile-tmp/imp918s.imp"
40953 @ 343558:                  PUSH   SNNO
40954 @ 343561:                  PUSHI  #0x0000002c
40955 @ 343566:                  JUMPIF = L_0004

  6825              %IF 1#REG>=0 %THEN PRR(X'18',REG,1) %ELSE NEST=1
40956 @ 343570:                  LINE   6825 "regression-compile-tmp/imp918s.imp"
40957 @ 343608:                  PUSHI  #0x00000001
40958 @ 343613:                  PUSH   REG
40959 @ 343616:                  JUMPIFD = L_0007
40960 @ 343620:                  PUSHI  #0x00000000
40961 @ 343625:                  JUMPIF < L_0007
40962 @ 343629:                  PUSH   PRR
40963 @ 343632:                  PUSHI  #0x00000018
40964 @ 343637:                  ASSPAR
40965 @ 343638:                  PUSH   REG
40966 @ 343641:                  ASSPAR
40967 @ 343642:                  PUSHI  #0x00000001
40968 @ 343647:                  ASSPAR
40969 @ 343648:                  CALL  
40970 @ 343649:                  GOTO   L_0006
40971 @ 343652:                  LOCATE L_0007
40972 @ 343655:                  PUSH   NEST
40973 @ 343658:                  PUSHI  #0x00000001
40974 @ 343663:                  ASSVAL
40975 @ 343664:                  LOCATE L_0006

  6826           %FINISH %ELSE RTOS(1);         ! CONVERT R1 TO STRING
40976 @ 343667:                  LINE   6826 "regression-compile-tmp/imp918s.imp"
40977 @ 343705:                  GOTO   L_0003
40978 @ 343708:                  LOCATE L_0004
40979 @ 343711:                  PUSH   RTOS
40980 @ 343714:                  PUSHI  #0x00000001
40981 @ 343719:                  ASSPAR
40982 @ 343720:                  CALL  
40983 @ 343721:                  LOCATE L_0003

  6827           ->OKEXIT
40984 @ 343724:                  LINE   6827 "regression-compile-tmp/imp918s.imp"
40985 @ 343762:                  JUMP   L_021b

  6828  ADHOC(3):                               ! READSYMBOL(=10),CH(=41)&ITEM(=43)
40986 @ 343765:                  LINE   6828 "regression-compile-tmp/imp918s.imp"
40987 @ 343803:                  PUSHI  #0x00000003
40988 @ 343808:                  SLABEL 517

  6829           %IF SNNO=41 %THEN JJ=4 %ELSE JJ=1
40989 @ 343811:                  LINE   6829 "regression-compile-tmp/imp918s.imp"
40990 @ 343849:                  PUSH   SNNO
40991 @ 343852:                  PUSHI  #0x00000029
40992 @ 343857:                  JUMPIF # L_0004
40993 @ 343861:                  PUSH   JJ
40994 @ 343864:                  PUSHI  #0x00000004
40995 @ 343869:                  ASSVAL
40996 @ 343870:                  GOTO   L_0003
40997 @ 343873:                  LOCATE L_0004
40998 @ 343876:                  PUSH   JJ
40999 @ 343879:                  PUSHI  #0x00000001
41000 @ 343884:                  ASSVAL
41001 @ 343885:                  LOCATE L_0003

  6830           CIOCP(JJ);                     ! SYMBOL OR CH TO GR1
41002 @ 343888:                  LINE   6830 "regression-compile-tmp/imp918s.imp"
41003 @ 343926:                  PUSH   CIOCP
41004 @ 343929:                  PUSH   JJ
41005 @ 343932:                  ASSPAR
41006 @ 343933:                  CALL  

  6831           P=P+4
41007 @ 343934:                  LINE   6831 "regression-compile-tmp/imp918s.imp"
41008 @ 343972:                  PUSH   P
41009 @ 343975:                  PUSH   P
41010 @ 343978:                  PUSHI  #0x00000004
41011 @ 343983:                  ADD   
41012 @ 343984:                  ASSVAL

  6832           %IF SNNO=43 %THEN TYPE=5 %AND RTOS(1) %ELSE %START
41013 @ 343985:                  LINE   6832 "regression-compile-tmp/imp918s.imp"
41014 @ 344023:                  PUSH   SNNO
41015 @ 344026:                  PUSHI  #0x0000002b
41016 @ 344031:                  JUMPIF # L_0004
41017 @ 344035:                  PUSH   TYPE
41018 @ 344038:                  PUSHI  #0x00000005
41019 @ 344043:                  ASSVAL
41020 @ 344044:                  PUSH   RTOS
41021 @ 344047:                  PUSHI  #0x00000001
41022 @ 344052:                  ASSPAR
41023 @ 344053:                  CALL  
41024 @ 344054:                  GOTO   L_0003
41025 @ 344057:                  LOCATE L_0004

  6833              REGISTER(1)=1; TYPE=1
41026 @ 344060:                  LINE   6833 "regression-compile-tmp/imp918s.imp"
41027 @ 344098:                  PUSH   REGISTER
41028 @ 344101:                  PUSHI  #0x00000001
41029 @ 344106:                  ACCESS
41030 @ 344107:                  PUSHI  #0x00000001
41031 @ 344112:                  ASSVAL
41032 @ 344113:                  LINE   6833 "regression-compile-tmp/imp918s.imp"
41033 @ 344151:                  PUSH   TYPE
41034 @ 344154:                  PUSHI  #0x00000001
41035 @ 344159:                  ASSVAL

  6834              BASE=1; DISP=-2
41036 @ 344160:                  LINE   6834 "regression-compile-tmp/imp918s.imp"
41037 @ 344198:                  PUSH   BASE
41038 @ 344201:                  PUSHI  #0x00000001
41039 @ 344206:                  ASSVAL
41040 @ 344207:                  LINE   6834 "regression-compile-tmp/imp918s.imp"
41041 @ 344245:                  PUSH   DISP
41042 @ 344248:                  PUSHI  #0x00000002
41043 @ 344253:                  NEGATE
41044 @ 344254:                  ASSVAL

  6835           %FINISH
41045 @ 344255:                  LINE   6835 "regression-compile-tmp/imp918s.imp"
41046 @ 344293:                  LOCATE L_0003

  6836           JJ=TYPE
41047 @ 344296:                  LINE   6836 "regression-compile-tmp/imp918s.imp"
41048 @ 344334:                  PUSH   JJ
41049 @ 344337:                  PUSH   TYPE
41050 @ 344340:                  ASSVAL

  6837           COPYTAG(A(P));                  !PARAMETER NAME
41051 @ 344341:                  LINE   6837 "regression-compile-tmp/imp918s.imp"
41052 @ 344379:                  PUSH   COPYTAG
41053 @ 344382:                  PUSH   A
41054 @ 344385:                  PUSH   P
41055 @ 344388:                  ACCESS
41056 @ 344389:                  ASSPAR
41057 @ 344390:                  CALL  

  6838           %IF TYPE # JJ %THEN %START
41058 @ 344391:                  LINE   6838 "regression-compile-tmp/imp918s.imp"
41059 @ 344429:                  PUSH   TYPE
41060 @ 344432:                  PUSH   JJ
41061 @ 344435:                  JUMPIF = L_0004

  6839             ERRNO = 22
41062 @ 344439:                  LINE   6839 "regression-compile-tmp/imp918s.imp"
41063 @ 344477:                  PUSH   ERRNO
41064 @ 344480:                  PUSHI  #0x00000016
41065 @ 344485:                  ASSVAL

  6840             -> ERREXIT
41066 @ 344486:                  LINE   6840 "regression-compile-tmp/imp918s.imp"
41067 @ 344524:                  JUMP   L_021a

  6841           %FINISH
41068 @ 344527:                  LINE   6841 "regression-compile-tmp/imp918s.imp"
41069 @ 344565:                  LOCATE L_0004

  6842           ASSIGN(6,P);                   ! BY '=' TO PARAMETER
41070 @ 344568:                  LINE   6842 "regression-compile-tmp/imp918s.imp"
41071 @ 344606:                  PUSH   ASSIGN
41072 @ 344609:                  PUSHI  #0x00000006
41073 @ 344614:                  ASSPAR
41074 @ 344615:                  PUSH   P
41075 @ 344618:                  ASSPAR
41076 @ 344619:                  CALL  

  6843           P=PIN+4+A(PIN+3)
41077 @ 344620:                  LINE   6843 "regression-compile-tmp/imp918s.imp"
41078 @ 344658:                  PUSH   P
41079 @ 344661:                  PUSH   PIN
41080 @ 344664:                  PUSHI  #0x00000004
41081 @ 344669:                  ADD   
41082 @ 344670:                  PUSH   A
41083 @ 344673:                  PUSH   PIN
41084 @ 344676:                  PUSHI  #0x00000003
41085 @ 344681:                  ADD   
41086 @ 344682:                  ACCESS
41087 @ 344683:                  ADD   
41088 @ 344684:                  ASSVAL

  6844           ->OKEXIT
41089 @ 344685:                  LINE   6844 "regression-compile-tmp/imp918s.imp"
41090 @ 344723:                  JUMP   L_021b

  6845  ADHOC(4):                               ! WRITE(=12). SHOULD BE EXTERNAL
41091 @ 344726:                  LINE   6845 "regression-compile-tmp/imp918s.imp"
41092 @ 344764:                  PUSHI  #0x00000004
41093 @ 344769:                  SLABEL 517

  6846           DSEXP(1,1)
41094 @ 344772:                  LINE   6846 "regression-compile-tmp/imp918s.imp"
41095 @ 344810:                  PUSH   DSEXP
41096 @ 344813:                  PUSHI  #0x00000001
41097 @ 344818:                  ASSPAR
41098 @ 344819:                  PUSHI  #0x00000001
41099 @ 344824:                  ASSPAR
41100 @ 344825:                  CALL  

  6847           REGISTER(1)=0; REGISTER(2)=0
41101 @ 344826:                  LINE   6847 "regression-compile-tmp/imp918s.imp"
41102 @ 344864:                  PUSH   REGISTER
41103 @ 344867:                  PUSHI  #0x00000001
41104 @ 344872:                  ACCESS
41105 @ 344873:                  PUSHI  #0x00000000
41106 @ 344878:                  ASSVAL
41107 @ 344879:                  LINE   6847 "regression-compile-tmp/imp918s.imp"
41108 @ 344917:                  PUSH   REGISTER
41109 @ 344920:                  PUSHI  #0x00000002
41110 @ 344925:                  ACCESS
41111 @ 344926:                  PUSHI  #0x00000000
41112 @ 344931:                  ASSVAL

  6848           PPJ(4)
41113 @ 344932:                  LINE   6848 "regression-compile-tmp/imp918s.imp"
41114 @ 344970:                  PUSH   PPJ
41115 @ 344973:                  PUSHI  #0x00000004
41116 @ 344978:                  ASSPAR
41117 @ 344979:                  CALL  

  6849           ->OKEXIT
41118 @ 344980:                  LINE   6849 "regression-compile-tmp/imp918s.imp"
41119 @ 345018:                  JUMP   L_021b

  6850  ADHOC(5):                               ! ADDR(=14)
41120 @ 345021:                  LINE   6850 "regression-compile-tmp/imp918s.imp"
41121 @ 345059:                  PUSHI  #0x00000005
41122 @ 345064:                  SLABEL 517

  6851           P=P+4; CNAME(4,REG);           ! FETCH ADDRESS MODE
41123 @ 345067:                  LINE   6851 "regression-compile-tmp/imp918s.imp"
41124 @ 345105:                  PUSH   P
41125 @ 345108:                  PUSH   P
41126 @ 345111:                  PUSHI  #0x00000004
41127 @ 345116:                  ADD   
41128 @ 345117:                  ASSVAL
41129 @ 345118:                  LINE   6851 "regression-compile-tmp/imp918s.imp"
41130 @ 345156:                  PUSH   CNAME
41131 @ 345159:                  PUSHI  #0x00000004
41132 @ 345164:                  ASSPAR
41133 @ 345165:                  PUSH   REG
41134 @ 345168:                  ASSPAR
41135 @ 345169:                  CALL  

  6852           P=P+1; ->OKEXIT
41136 @ 345170:                  LINE   6852 "regression-compile-tmp/imp918s.imp"
41137 @ 345208:                  PUSH   P
41138 @ 345211:                  PUSH   P
41139 @ 345214:                  PUSHI  #0x00000001
41140 @ 345219:                  ADD   
41141 @ 345220:                  ASSVAL
41142 @ 345221:                  LINE   6852 "regression-compile-tmp/imp918s.imp"
41143 @ 345259:                  JUMP   L_021b

  6853  ADHOC(6):                               ! MOD(=23), IMOD(=51)
41144 @ 345262:                  LINE   6853 "regression-compile-tmp/imp918s.imp"
41145 @ 345300:                  PUSHI  #0x00000006
41146 @ 345305:                  SLABEL 517

  6854           %IF SNNO=51 %THEN JJ=1 %ELSE JJ=3
41147 @ 345308:                  LINE   6854 "regression-compile-tmp/imp918s.imp"
41148 @ 345346:                  PUSH   SNNO
41149 @ 345349:                  PUSHI  #0x00000033
41150 @ 345354:                  JUMPIF # L_0004
41151 @ 345358:                  PUSH   JJ
41152 @ 345361:                  PUSHI  #0x00000001
41153 @ 345366:                  ASSVAL
41154 @ 345367:                  GOTO   L_0003
41155 @ 345370:                  LOCATE L_0004
41156 @ 345373:                  PUSH   JJ
41157 @ 345376:                  PUSHI  #0x00000003
41158 @ 345381:                  ASSVAL
41159 @ 345382:                  LOCATE L_0003

  6855           CSEXP(REG,JJ);                 ! INTEGER OR LONGREAL MODE
41160 @ 345385:                  LINE   6855 "regression-compile-tmp/imp918s.imp"
41161 @ 345423:                  PUSH   CSEXP
41162 @ 345426:                  PUSH   REG
41163 @ 345429:                  ASSPAR
41164 @ 345430:                  PUSH   JJ
41165 @ 345433:                  ASSPAR
41166 @ 345434:                  CALL  

  6856           %IF SNNO=51 %THEN JJ=0 %ELSE JJ=16
41167 @ 345435:                  LINE   6856 "regression-compile-tmp/imp918s.imp"
41168 @ 345473:                  PUSH   SNNO
41169 @ 345476:                  PUSHI  #0x00000033
41170 @ 345481:                  JUMPIF # L_0004
41171 @ 345485:                  PUSH   JJ
41172 @ 345488:                  PUSHI  #0x00000000
41173 @ 345493:                  ASSVAL
41174 @ 345494:                  GOTO   L_0003
41175 @ 345497:                  LOCATE L_0004
41176 @ 345500:                  PUSH   JJ
41177 @ 345503:                  PUSHI  #0x00000010
41178 @ 345508:                  ASSVAL
41179 @ 345509:                  LOCATE L_0003

  6857           REG=NEST
41180 @ 345512:                  LINE   6857 "regression-compile-tmp/imp918s.imp"
41181 @ 345550:                  PUSH   REG
41182 @ 345553:                  PUSH   NEST
41183 @ 345556:                  ASSVAL

  6858           PRR(X'10'+JJ,REG,REG);         ! LP(D)R REG,REG
41184 @ 345557:                  LINE   6858 "regression-compile-tmp/imp918s.imp"
41185 @ 345595:                  PUSH   PRR
41186 @ 345598:                  PUSHI  #0x00000010
41187 @ 345603:                  PUSH   JJ
41188 @ 345606:                  ADD   
41189 @ 345607:                  ASSPAR
41190 @ 345608:                  PUSH   REG
41191 @ 345611:                  ASSPAR
41192 @ 345612:                  PUSH   REG
41193 @ 345615:                  ASSPAR
41194 @ 345616:                  CALL  

  6859           FORGET(REG+JJ)
41195 @ 345617:                  LINE   6859 "regression-compile-tmp/imp918s.imp"
41196 @ 345655:                  PUSH   FORGET
41197 @ 345658:                  PUSH   REG
41198 @ 345661:                  PUSH   JJ
41199 @ 345664:                  ADD   
41200 @ 345665:                  ASSPAR
41201 @ 345666:                  CALL  

  6860           ->OKEXIT
41202 @ 345667:                  LINE   6860 "regression-compile-tmp/imp918s.imp"
41203 @ 345705:                  JUMP   L_021b

  6861  ADHOC(7):                               ! CHARNO(=45) & LENGTH(=36)
41204 @ 345708:                  LINE   6861 "regression-compile-tmp/imp918s.imp"
41205 @ 345746:                  PUSHI  #0x00000007
41206 @ 345751:                  SLABEL 517

  6862           P=P+4; COPY TAG(A(P))
41207 @ 345754:                  LINE   6862 "regression-compile-tmp/imp918s.imp"
41208 @ 345792:                  PUSH   P
41209 @ 345795:                  PUSH   P
41210 @ 345798:                  PUSHI  #0x00000004
41211 @ 345803:                  ADD   
41212 @ 345804:                  ASSVAL
41213 @ 345805:                  LINE   6862 "regression-compile-tmp/imp918s.imp"
41214 @ 345843:                  PUSH   COPYTAG
41215 @ 345846:                  PUSH   A
41216 @ 345849:                  PUSH   P
41217 @ 345852:                  ACCESS
41218 @ 345853:                  ASSPAR
41219 @ 345854:                  CALL  

  6863           %IF ROUT=0=NAM %AND ARR=0 %AND A(P+1)=2=A(P+2) %START
41220 @ 345855:                  LINE   6863 "regression-compile-tmp/imp918s.imp"
41221 @ 345893:                  PUSH   ROUT
41222 @ 345896:                  PUSHI  #0x00000000
41223 @ 345901:                  JUMPIFD # L_0004
41224 @ 345905:                  PUSH   NAM
41225 @ 345908:                  JUMPIF # L_0004
41226 @ 345912:                  PUSH   ARR
41227 @ 345915:                  PUSHI  #0x00000000
41228 @ 345920:                  JUMPIF # L_0004
41229 @ 345924:                  PUSH   A
41230 @ 345927:                  PUSH   P
41231 @ 345930:                  PUSHI  #0x00000001
41232 @ 345935:                  ADD   
41233 @ 345936:                  ACCESS
41234 @ 345937:                  PUSHI  #0x00000002
41235 @ 345942:                  JUMPIFD # L_0004
41236 @ 345946:                  PUSH   A
41237 @ 345949:                  PUSH   P
41238 @ 345952:                  PUSHI  #0x00000002
41239 @ 345957:                  ADD   
41240 @ 345958:                  ACCESS
41241 @ 345959:                  JUMPIF # L_0004

  6864              P=P+3; BASE=I; DISP=K
41242 @ 345963:                  LINE   6864 "regression-compile-tmp/imp918s.imp"
41243 @ 346001:                  PUSH   P
41244 @ 346004:                  PUSH   P
41245 @ 346007:                  PUSHI  #0x00000003
41246 @ 346012:                  ADD   
41247 @ 346013:                  ASSVAL
41248 @ 346014:                  LINE   6864 "regression-compile-tmp/imp918s.imp"
41249 @ 346052:                  PUSH   BASE
41250 @ 346055:                  PUSH   I
41251 @ 346058:                  ASSVAL
41252 @ 346059:                  LINE   6864 "regression-compile-tmp/imp918s.imp"
41253 @ 346097:                  PUSH   DISP
41254 @ 346100:                  PUSH   K
41255 @ 346103:                  ASSVAL

  6865           %FINISH %ELSE %START
41256 @ 346104:                  LINE   6865 "regression-compile-tmp/imp918s.imp"
41257 @ 346142:                  GOTO   L_0003
41258 @ 346145:                  LOCATE L_0004

  6866              FINDREG(SAFE,JJ)
41259 @ 346148:                  LINE   6866 "regression-compile-tmp/imp918s.imp"
41260 @ 346186:                  PUSH   FINDREG
41261 @ 346189:                  PUSHI  #0xffff0e04
41262 @ 346194:                  ASSPAR
41263 @ 346195:                  PUSH   JJ
41264 @ 346198:                  ASSPAR
41265 @ 346199:                  CALL  

  6867              CNAME(4,JJ)
41266 @ 346200:                  LINE   6867 "regression-compile-tmp/imp918s.imp"
41267 @ 346238:                  PUSH   CNAME
41268 @ 346241:                  PUSHI  #0x00000004
41269 @ 346246:                  ASSPAR
41270 @ 346247:                  PUSH   JJ
41271 @ 346250:                  ASSPAR
41272 @ 346251:                  CALL  

  6868              BASE=JJ; DISP=0
41273 @ 346252:                  LINE   6868 "regression-compile-tmp/imp918s.imp"
41274 @ 346290:                  PUSH   BASE
41275 @ 346293:                  PUSH   JJ
41276 @ 346296:                  ASSVAL
41277 @ 346297:                  LINE   6868 "regression-compile-tmp/imp918s.imp"
41278 @ 346335:                  PUSH   DISP
41279 @ 346338:                  PUSHI  #0x00000000
41280 @ 346343:                  ASSVAL

  6869           %FINISH
41281 @ 346344:                  LINE   6869 "regression-compile-tmp/imp918s.imp"
41282 @ 346382:                  LOCATE L_0003

  6870           P=P+2
41283 @ 346385:                  LINE   6870 "regression-compile-tmp/imp918s.imp"
41284 @ 346423:                  PUSH   P
41285 @ 346426:                  PUSH   P
41286 @ 346429:                  PUSHI  #0x00000002
41287 @ 346434:                  ADD   
41288 @ 346435:                  ASSVAL

  6871           ERRNO=22; ->ERREXIT %UNLESS TYPE=5
41289 @ 346436:                  LINE   6871 "regression-compile-tmp/imp918s.imp"
41290 @ 346474:                  PUSH   ERRNO
41291 @ 346477:                  PUSHI  #0x00000016
41292 @ 346482:                  ASSVAL
41293 @ 346483:                  LINE   6871 "regression-compile-tmp/imp918s.imp"
41294 @ 346521:                  PUSH   TYPE
41295 @ 346524:                  PUSHI  #0x00000005
41296 @ 346529:                  JUMPIF = L_0004
41297 @ 346533:                  JUMP   L_021a
41298 @ 346536:                  LOCATE L_0004

  6872           %IF SNNO=36 %THEN INDEX=0 %ELSE %START
41299 @ 346539:                  LINE   6872 "regression-compile-tmp/imp918s.imp"
41300 @ 346577:                  PUSH   SNNO
41301 @ 346580:                  PUSHI  #0x00000024
41302 @ 346585:                  JUMPIF # L_0004
41303 @ 346589:                  PUSH   INDEX
41304 @ 346592:                  PUSHI  #0x00000000
41305 @ 346597:                  ASSVAL
41306 @ 346598:                  GOTO   L_0003
41307 @ 346601:                  LOCATE L_0004

  6873              D=DISP; B=BASE
41308 @ 346604:                  LINE   6873 "regression-compile-tmp/imp918s.imp"
41309 @ 346642:                  PUSH   D
41310 @ 346645:                  PUSH   DISP
41311 @ 346648:                  ASSVAL
41312 @ 346649:                  LINE   6873 "regression-compile-tmp/imp918s.imp"
41313 @ 346687:                  PUSH   B
41314 @ 346690:                  PUSH   BASE
41315 @ 346693:                  ASSVAL

  6874              REGISTER(B)=1 %IF REGISTER(B)=0
41316 @ 346694:                  LINE   6874 "regression-compile-tmp/imp918s.imp"
41317 @ 346732:                  PUSH   REGISTER
41318 @ 346735:                  PUSH   B
41319 @ 346738:                  ACCESS
41320 @ 346739:                  PUSHI  #0x00000000
41321 @ 346744:                  JUMPIF # L_0007
41322 @ 346748:                  PUSH   REGISTER
41323 @ 346751:                  PUSH   B
41324 @ 346754:                  ACCESS
41325 @ 346755:                  PUSHI  #0x00000001
41326 @ 346760:                  ASSVAL
41327 @ 346761:                  LOCATE L_0007

  6875              CSEXP(-1,5)
41328 @ 346764:                  LINE   6875 "regression-compile-tmp/imp918s.imp"
41329 @ 346802:                  PUSH   CSEXP
41330 @ 346805:                  PUSHI  #0x00000001
41331 @ 346810:                  NEGATE
41332 @ 346811:                  ASSPAR
41333 @ 346812:                  PUSHI  #0x00000005
41334 @ 346817:                  ASSPAR
41335 @ 346818:                  CALL  

  6876              P=P+1
41336 @ 346819:                  LINE   6876 "regression-compile-tmp/imp918s.imp"
41337 @ 346857:                  PUSH   P
41338 @ 346860:                  PUSH   P
41339 @ 346863:                  PUSHI  #0x00000001
41340 @ 346868:                  ADD   
41341 @ 346869:                  ASSVAL

  6877              REGISTER(B)=0 %IF REGISTER(B)=1
41342 @ 346870:                  LINE   6877 "regression-compile-tmp/imp918s.imp"
41343 @ 346908:                  PUSH   REGISTER
41344 @ 346911:                  PUSH   B
41345 @ 346914:                  ACCESS
41346 @ 346915:                  PUSHI  #0x00000001
41347 @ 346920:                  JUMPIF # L_0007
41348 @ 346924:                  PUSH   REGISTER
41349 @ 346927:                  PUSH   B
41350 @ 346930:                  ACCESS
41351 @ 346931:                  PUSHI  #0x00000000
41352 @ 346936:                  ASSVAL
41353 @ 346937:                  LOCATE L_0007

  6878              DISP=D+ADISP; BASE=B
41354 @ 346940:                  LINE   6878 "regression-compile-tmp/imp918s.imp"
41355 @ 346978:                  PUSH   DISP
41356 @ 346981:                  PUSH   D
41357 @ 346984:                  PUSH   ADISP
41358 @ 346987:                  ADD   
41359 @ 346988:                  ASSVAL
41360 @ 346989:                  LINE   6878 "regression-compile-tmp/imp918s.imp"
41361 @ 347027:                  PUSH   BASE
41362 @ 347030:                  PUSH   B
41363 @ 347033:                  ASSVAL

  6879              INDEX=NEST
41364 @ 347034:                  LINE   6879 "regression-compile-tmp/imp918s.imp"
41365 @ 347072:                  PUSH   INDEX
41366 @ 347075:                  PUSH   NEST
41367 @ 347078:                  ASSVAL

  6880           %FINISH
41368 @ 347079:                  LINE   6880 "regression-compile-tmp/imp918s.imp"
41369 @ 347117:                  LOCATE L_0003

  6881           SNPTYPE=SNPTYPE+11000
41370 @ 347120:                  LINE   6881 "regression-compile-tmp/imp918s.imp"
41371 @ 347158:                  PUSH   SNPTYPE
41372 @ 347161:                  PUSH   SNPTYPE
41373 @ 347164:                  PUSHI  #0x00002af8
41374 @ 347169:                  ADD   
41375 @ 347170:                  ASSVAL

  6882           ->OKEXIT
41376 @ 347171:                  LINE   6882 "regression-compile-tmp/imp918s.imp"
41377 @ 347209:                  JUMP   L_021b

  6883  ADHOC(12):                              ! PI(=52)
41378 @ 347212:                  LINE   6883 "regression-compile-tmp/imp918s.imp"
41379 @ 347250:                  PUSHI  #0x0000000c
41380 @ 347255:                  SLABEL 517

  6884  ADHOC(8):                               ! NL(=38). THIS FN IS PICKED OFF
41381 @ 347258:                  LINE   6884 "regression-compile-tmp/imp918s.imp"
41382 @ 347296:                  PUSHI  #0x00000008
41383 @ 347301:                  SLABEL 517

  6885           NEST=0;                        ! IN CSEXP.ONLY COMES HERE IN
41384 @ 347304:                  LINE   6885 "regression-compile-tmp/imp918s.imp"
41385 @ 347342:                  PUSH   NEST
41386 @ 347345:                  PUSHI  #0x00000000
41387 @ 347350:                  ASSVAL

  6886           PTYPE=SNPTYPE;! UNPACK
  6887  !%if USE MC = 1 %start
  6888  !            *L_1,PTYPE; *CVD_1,0(11)
  6889  !            *UNPK_ROUT(5),5(3,11)
  6890  !            *NC_ROUT(5),MASK1
  6891  !%finish
41388 @ 347351:                  LINE   6886 "regression-compile-tmp/imp918s.imp"
41389 @ 347389:                  PUSH   PTYPE
41390 @ 347392:                  PUSH   SNPTYPE
41391 @ 347395:                  ASSVAL

  6892           NAM=2; ROUT=1
41392 @ 347396:                  LINE   6892 "regression-compile-tmp/imp918s.imp"
41393 @ 347434:                  PUSH   NAM
41394 @ 347437:                  PUSHI  #0x00000002
41395 @ 347442:                  ASSVAL
41396 @ 347443:                  LINE   6892 "regression-compile-tmp/imp918s.imp"
41397 @ 347481:                  PUSH   ROUT
41398 @ 347484:                  PUSHI  #0x00000001
41399 @ 347489:                  ASSVAL

  6893           ->OKEXIT;                      ! ERROR EG NL=A+B
41400 @ 347490:                  LINE   6893 "regression-compile-tmp/imp918s.imp"
41401 @ 347528:                  JUMP   L_021b

  6894  ADHOC(9):                               ! TOSTRING(=46)
41402 @ 347531:                  LINE   6894 "regression-compile-tmp/imp918s.imp"
41403 @ 347569:                  PUSHI  #0x00000009
41404 @ 347574:                  SLABEL 517

  6895           CSEXP(-1,1);                   ! RET EXPSN
41405 @ 347577:                  LINE   6895 "regression-compile-tmp/imp918s.imp"
41406 @ 347615:                  PUSH   CSEXP
41407 @ 347618:                  PUSHI  #0x00000001
41408 @ 347623:                  NEGATE
41409 @ 347624:                  ASSPAR
41410 @ 347625:                  PUSHI  #0x00000001
41411 @ 347630:                  ASSPAR
41412 @ 347631:                  CALL  

  6896           RTOS(NEST)
41413 @ 347632:                  LINE   6896 "regression-compile-tmp/imp918s.imp"
41414 @ 347670:                  PUSH   RTOS
41415 @ 347673:                  PUSH   NEST
41416 @ 347676:                  ASSPAR
41417 @ 347677:                  CALL  

  6897           INDEX=0; ->OKEXIT
41418 @ 347678:                  LINE   6897 "regression-compile-tmp/imp918s.imp"
41419 @ 347716:                  PUSH   INDEX
41420 @ 347719:                  PUSHI  #0x00000000
41421 @ 347724:                  ASSVAL
41422 @ 347725:                  LINE   6897 "regression-compile-tmp/imp918s.imp"
41423 @ 347763:                  JUMP   L_021b

  6898  ADHOC(10):                              ! RECORD(=48)
41424 @ 347766:                  LINE   6898 "regression-compile-tmp/imp918s.imp"
41425 @ 347804:                  PUSHI  #0x0000000a
41426 @ 347809:                  SLABEL 517

  6899           CSEXP(REG,1)
41427 @ 347812:                  LINE   6899 "regression-compile-tmp/imp918s.imp"
41428 @ 347850:                  PUSH   CSEXP
41429 @ 347853:                  PUSH   REG
41430 @ 347856:                  ASSPAR
41431 @ 347857:                  PUSHI  #0x00000001
41432 @ 347862:                  ASSPAR
41433 @ 347863:                  CALL  

  6900           REG=NEST %IF REG<0
41434 @ 347864:                  LINE   6900 "regression-compile-tmp/imp918s.imp"
41435 @ 347902:                  PUSH   REG
41436 @ 347905:                  PUSHI  #0x00000000
41437 @ 347910:                  JUMPIF >= L_0004
41438 @ 347914:                  PUSH   REG
41439 @ 347917:                  PUSH   NEST
41440 @ 347920:                  ASSVAL
41441 @ 347921:                  LOCATE L_0004

  6901           REGISTER(REG)=1 %IF REGISTER(REG)>=0
41442 @ 347924:                  LINE   6901 "regression-compile-tmp/imp918s.imp"
41443 @ 347962:                  PUSH   REGISTER
41444 @ 347965:                  PUSH   REG
41445 @ 347968:                  ACCESS
41446 @ 347969:                  PUSHI  #0x00000000
41447 @ 347974:                  JUMPIF < L_0004
41448 @ 347978:                  PUSH   REGISTER
41449 @ 347981:                  PUSH   REG
41450 @ 347984:                  ACCESS
41451 @ 347985:                  PUSHI  #0x00000001
41452 @ 347990:                  ASSVAL
41453 @ 347991:                  LOCATE L_0004

  6902           ->OKEXIT
41454 @ 347994:                  LINE   6902 "regression-compile-tmp/imp918s.imp"
41455 @ 348032:                  JUMP   L_021b

  6903  ADHOC(11):                              ! ARRAY(=49)
41456 @ 348035:                  LINE   6903 "regression-compile-tmp/imp918s.imp"
41457 @ 348073:                  PUSHI  #0x0000000b
41458 @ 348078:                  SLABEL 517

  6904           %UNLESS 4<=REG<=14 %THEN FINDREG(SAFE,REG)
41459 @ 348081:                  LINE   6904 "regression-compile-tmp/imp918s.imp"
41460 @ 348119:                  PUSHI  #0x00000004
41461 @ 348124:                  PUSH   REG
41462 @ 348127:                  JUMPIFD > L_0005
41463 @ 348131:                  PUSHI  #0x0000000e
41464 @ 348136:                  JUMPIF <= L_0004
41465 @ 348140:                  LOCATE L_0005
41466 @ 348143:                  PUSH   FINDREG
41467 @ 348146:                  PUSHI  #0xffff0e04
41468 @ 348151:                  ASSPAR
41469 @ 348152:                  PUSH   REG
41470 @ 348155:                  ASSPAR
41471 @ 348156:                  CALL  
41472 @ 348157:                  LOCATE L_0004

  6905           CSEXP(REG,1);                  ! ADDR(A(0)) TO GR REG
41473 @ 348160:                  LINE   6905 "regression-compile-tmp/imp918s.imp"
41474 @ 348198:                  PUSH   CSEXP
41475 @ 348201:                  PUSH   REG
41476 @ 348204:                  ASSPAR
41477 @ 348205:                  PUSHI  #0x00000001
41478 @ 348210:                  ASSPAR
41479 @ 348211:                  CALL  

  6906           REGISTER(REG)=1
41480 @ 348212:                  LINE   6906 "regression-compile-tmp/imp918s.imp"
41481 @ 348250:                  PUSH   REGISTER
41482 @ 348253:                  PUSH   REG
41483 @ 348256:                  ACCESS
41484 @ 348257:                  PUSHI  #0x00000001
41485 @ 348262:                  ASSVAL

  6907           ERRNO=22
41486 @ 348263:                  LINE   6907 "regression-compile-tmp/imp918s.imp"
41487 @ 348301:                  PUSH   ERRNO
41488 @ 348304:                  PUSHI  #0x00000016
41489 @ 348309:                  ASSVAL

  6908           ->ERREXIT %UNLESS A(P+3)=4 %AND A(P+4)=1
41490 @ 348310:                  LINE   6908 "regression-compile-tmp/imp918s.imp"
41491 @ 348348:                  PUSH   A
41492 @ 348351:                  PUSH   P
41493 @ 348354:                  PUSHI  #0x00000003
41494 @ 348359:                  ADD   
41495 @ 348360:                  ACCESS
41496 @ 348361:                  PUSHI  #0x00000004
41497 @ 348366:                  JUMPIF # L_0005
41498 @ 348370:                  PUSH   A
41499 @ 348373:                  PUSH   P
41500 @ 348376:                  PUSHI  #0x00000004
41501 @ 348381:                  ADD   
41502 @ 348382:                  ACCESS
41503 @ 348383:                  PUSHI  #0x00000001
41504 @ 348388:                  JUMPIF = L_0004
41505 @ 348392:                  LOCATE L_0005
41506 @ 348395:                  JUMP   L_021a
41507 @ 348398:                  LOCATE L_0004

  6909           P=P+5; CNAME(12,0)
41508 @ 348401:                  LINE   6909 "regression-compile-tmp/imp918s.imp"
41509 @ 348439:                  PUSH   P
41510 @ 348442:                  PUSH   P
41511 @ 348445:                  PUSHI  #0x00000005
41512 @ 348450:                  ADD   
41513 @ 348451:                  ASSVAL
41514 @ 348452:                  LINE   6909 "regression-compile-tmp/imp918s.imp"
41515 @ 348490:                  PUSH   CNAME
41516 @ 348493:                  PUSHI  #0x0000000c
41517 @ 348498:                  ASSPAR
41518 @ 348499:                  PUSHI  #0x00000000
41519 @ 348504:                  ASSPAR
41520 @ 348505:                  CALL  

  6910           ->ERREXIT %UNLESS A(P)=2 %AND ARR>0
41521 @ 348506:                  LINE   6910 "regression-compile-tmp/imp918s.imp"
41522 @ 348544:                  PUSH   A
41523 @ 348547:                  PUSH   P
41524 @ 348550:                  ACCESS
41525 @ 348551:                  PUSHI  #0x00000002
41526 @ 348556:                  JUMPIF # L_0005
41527 @ 348560:                  PUSH   ARR
41528 @ 348563:                  PUSHI  #0x00000000
41529 @ 348568:                  JUMPIF > L_0004
41530 @ 348572:                  LOCATE L_0005
41531 @ 348575:                  JUMP   L_021a
41532 @ 348578:                  LOCATE L_0004

  6911           CREATE AH(0,REG,BASE,DISP)
41533 @ 348581:                  LINE   6911 "regression-compile-tmp/imp918s.imp"
41534 @ 348619:                  PUSH   CREATEAH
41535 @ 348622:                  PUSHI  #0x00000000
41536 @ 348627:                  ASSPAR
41537 @ 348628:                  PUSH   REG
41538 @ 348631:                  ASSPAR
41539 @ 348632:                  PUSH   BASE
41540 @ 348635:                  ASSPAR
41541 @ 348636:                  PUSH   DISP
41542 @ 348639:                  ASSPAR
41543 @ 348640:                  CALL  

  6912           ARR=1;                              ! ERRORS REPORTED IF ARR=3
41544 @ 348641:                  LINE   6912 "regression-compile-tmp/imp918s.imp"
41545 @ 348679:                  PUSH   ARR
41546 @ 348682:                  PUSHI  #0x00000001
41547 @ 348687:                  ASSVAL

  6913           REGISTER(REG)=0
41548 @ 348688:                  LINE   6913 "regression-compile-tmp/imp918s.imp"
41549 @ 348726:                  PUSH   REGISTER
41550 @ 348729:                  PUSH   REG
41551 @ 348732:                  ACCESS
41552 @ 348733:                  PUSHI  #0x00000000
41553 @ 348738:                  ASSVAL

  6914           %RETURN
41554 @ 348739:                  LINE   6914 "regression-compile-tmp/imp918s.imp"
41555 @ 348777:                  RETURN

  6915  OKEXIT:                                 ! NORMAL EXIT
41556 @ 348778:                  LINE   6915 "regression-compile-tmp/imp918s.imp"
41557 @ 348816:                  LABEL  L_021b

  6916           PTYPE=SNPTYPE;! UNPACK
  6917  !%if USE MC = 1 %start
  6918  !            *L_1,PTYPE; *CVD_1,0(11)
  6919  !            *UNPK_ROUT(5),5(3,11)
  6920  !            *NC_ROUT(5),MASK1
  6921  !%finish
41558 @ 348819:                  LINE   6916 "regression-compile-tmp/imp918s.imp"
41559 @ 348857:                  PUSH   PTYPE
41560 @ 348860:                  PUSH   SNPTYPE
41561 @ 348863:                  ASSVAL

  6922           %RETURN
41562 @ 348864:                  LINE   6922 "regression-compile-tmp/imp918s.imp"
41563 @ 348902:                  RETURN

  6923  ERREXIT:                                ! ERROR EXIT
41564 @ 348903:                  LINE   6923 "regression-compile-tmp/imp918s.imp"
41565 @ 348941:                  LABEL  L_021a

  6924           FAULT(ERRNO,SNNAME)
41566 @ 348944:                  LINE   6924 "regression-compile-tmp/imp918s.imp"
41567 @ 348982:                  PUSH   FAULT
41568 @ 348985:                  PUSH   ERRNO
41569 @ 348988:                  ASSPAR
41570 @ 348989:                  PUSH   SNNAME
41571 @ 348992:                  ASSPAR
41572 @ 348993:                  CALL  

  6925           BASE=0; DISP=0; INDEX=0
41573 @ 348994:                  LINE   6925 "regression-compile-tmp/imp918s.imp"
41574 @ 349032:                  PUSH   BASE
41575 @ 349035:                  PUSHI  #0x00000000
41576 @ 349040:                  ASSVAL
41577 @ 349041:                  LINE   6925 "regression-compile-tmp/imp918s.imp"
41578 @ 349079:                  PUSH   DISP
41579 @ 349082:                  PUSHI  #0x00000000
41580 @ 349087:                  ASSVAL
41581 @ 349088:                  LINE   6925 "regression-compile-tmp/imp918s.imp"
41582 @ 349126:                  PUSH   INDEX
41583 @ 349129:                  PUSHI  #0x00000000
41584 @ 349134:                  ASSVAL

  6926           P=PIN+1; SKIP APP
41585 @ 349135:                  LINE   6926 "regression-compile-tmp/imp918s.imp"
41586 @ 349173:                  PUSH   P
41587 @ 349176:                  PUSH   PIN
41588 @ 349179:                  PUSHI  #0x00000001
41589 @ 349184:                  ADD   
41590 @ 349185:                  ASSVAL
41591 @ 349186:                  LINE   6926 "regression-compile-tmp/imp918s.imp"
41592 @ 349224:                  PUSH   SKIPAPP
41593 @ 349227:                  CALL  

  6927           PTYPE=SNPTYPE;! UNPACK
  6928  !%if USE MC = 1 %start
  6929  !            *L_1,PTYPE; *CVD_1,0(11)
  6930  !            *UNPK_ROUT(5),5(3,11)
  6931  !            *NC_ROUT(5),MASK1
  6932  !%finish
41594 @ 349228:                  LINE   6927 "regression-compile-tmp/imp918s.imp"
41595 @ 349266:                  PUSH   PTYPE
41596 @ 349269:                  PUSH   SNPTYPE
41597 @ 349272:                  ASSVAL

  6933           P=P-1; %RETURN
41598 @ 349273:                  LINE   6933 "regression-compile-tmp/imp918s.imp"
41599 @ 349311:                  PUSH   P
41600 @ 349314:                  PUSH   P
41601 @ 349317:                  PUSHI  #0x00000001
41602 @ 349322:                  SUB   
41603 @ 349323:                  ASSVAL
41604 @ 349324:                  LINE   6933 "regression-compile-tmp/imp918s.imp"
41605 @ 349362:                  RETURN

  6934           %ROUTINE RTOS(%INTEGER REGNO)
  6935  !***********************************************************************
  6936  !*       PLANTS CODE TO CONVERT A SYMBOL IN REGNO TO A ONE             *
  6937  !*       CHARACTER STRING IN A TEMPORARARY VARIABLE.                   *
  6938  !***********************************************************************
41606 @ 349363:                  LINE   6934 "regression-compile-tmp/imp918s.imp"
41607 @ 349401:                  DEF    RTOS (_lev0id0_CSS_CSNAME_RTOS) p1=V_0208 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
41608 @ 349417:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
41609 @ 349418:                        DEF    REGNO p1=V_021c 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
41610 @ 349435:                     FINISH ) {lev=4}

  6939           %INTEGER KK
41611 @ 349436:                     LINE   6939 "regression-compile-tmp/imp918s.imp"
41612 @ 349474:                     DEF    KK p1=V_021d 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

  6940           GET WSP(KK,1);               ! GET 1 WORD WK AREA
41613 @ 349488:                     LINE   6940 "regression-compile-tmp/imp918s.imp"
41614 @ 349526:                     PUSH   GETWSP
41615 @ 349529:                     PUSH   KK
41616 @ 349532:                     ASSPAR
41617 @ 349533:                     PUSHI  #0x00000001
41618 @ 349538:                     ASSPAR
41619 @ 349539:                     CALL  

  6941           STRINGL=1; DISP=KK+2
41620 @ 349540:                     LINE   6941 "regression-compile-tmp/imp918s.imp"
41621 @ 349578:                     PUSH   STRINGL
41622 @ 349581:                     PUSHI  #0x00000001
41623 @ 349586:                     ASSVAL
41624 @ 349587:                     LINE   6941 "regression-compile-tmp/imp918s.imp"
41625 @ 349625:                     PUSH   DISP
41626 @ 349628:                     PUSH   KK
41627 @ 349631:                     PUSHI  #0x00000002
41628 @ 349636:                     ADD   
41629 @ 349637:                     ASSVAL

  6942           DUMP(X'50',REGNO,KK,0,RBASE)
41630 @ 349638:                     LINE   6942 "regression-compile-tmp/imp918s.imp"
41631 @ 349676:                     PUSH   DUMP
41632 @ 349679:                     PUSHI  #0x00000050
41633 @ 349684:                     ASSPAR
41634 @ 349685:                     PUSH   REGNO
41635 @ 349688:                     ASSPAR
41636 @ 349689:                     PUSH   KK
41637 @ 349692:                     ASSPAR
41638 @ 349693:                     PUSHI  #0x00000000
41639 @ 349698:                     ASSPAR
41640 @ 349699:                     PUSH   RBASE
41641 @ 349702:                     ASSPAR
41642 @ 349703:                     CALL  

  6943           DUMPSI(X'92',1,RBASE,DISP);  ! MVI LENGTH BYTE
41643 @ 349704:                     LINE   6943 "regression-compile-tmp/imp918s.imp"
41644 @ 349742:                     PUSH   DUMPSI
41645 @ 349745:                     PUSHI  #0x00000092
41646 @ 349750:                     ASSPAR
41647 @ 349751:                     PUSHI  #0x00000001
41648 @ 349756:                     ASSPAR
41649 @ 349757:                     PUSH   RBASE
41650 @ 349760:                     ASSPAR
41651 @ 349761:                     PUSH   DISP
41652 @ 349764:                     ASSPAR
41653 @ 349765:                     CALL  

  6944           BASE=RBASE; INDEX=0
41654 @ 349766:                     LINE   6944 "regression-compile-tmp/imp918s.imp"
41655 @ 349804:                     PUSH   BASE
41656 @ 349807:                     PUSH   RBASE
41657 @ 349810:                     ASSVAL
41658 @ 349811:                     LINE   6944 "regression-compile-tmp/imp918s.imp"
41659 @ 349849:                     PUSH   INDEX
41660 @ 349852:                     PUSHI  #0x00000000
41661 @ 349857:                     ASSVAL

  6945           %END
41662 @ 349858:                     LINE   6945 "regression-compile-tmp/imp918s.imp"
41663 @ 349896:                  END    _lev0id0_CSS_CSNAME_RTOS {lev=4 --> 3}

  6946           %END;                        ! OF ROUTINE CSNAME
41664 @ 349897:                  LINE   6946 "regression-compile-tmp/imp918s.imp"
41665 @ 349935:               END    _lev0id0_CSS_CSNAME {lev=3 --> 2}

  6947           %ROUTINE     CIOCP(%INTEGER N)
41666 @ 349936:               LINE   6947 "regression-compile-tmp/imp918s.imp"
41667 @ 349974:               DEF    CIOCP (_lev0id0_CSS_CIOCP) p1=V_0164 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
41668 @ 349991:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
41669 @ 349992:                     DEF    N p1=V_0203 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
41670 @ 350005:                  FINISH ) {lev=3}

  6948           %INTEGER AT
41671 @ 350006:                  LINE   6948 "regression-compile-tmp/imp918s.imp"
41672 @ 350044:                  DEF    AT p1=V_0204 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

  6949           %IF IOCP1<10 %THEN %START
41673 @ 350058:                  LINE   6949 "regression-compile-tmp/imp918s.imp"
41674 @ 350096:                  PUSH   IOCP1
41675 @ 350099:                  PUSHI  #0x0000000a
41676 @ 350104:                  JUMPIF >= L_0004

  6950              CXREF(0,-1,0,AT);             ! INSERT IOCP XREF
41677 @ 350108:                  LINE   6950 "regression-compile-tmp/imp918s.imp"
41678 @ 350146:                  PUSH   CXREF
41679 @ 350149:                  PUSHI  #0x00000000
41680 @ 350154:                  ASSPAR
41681 @ 350155:                  PUSHI  #0x00000001
41682 @ 350160:                  NEGATE
41683 @ 350161:                  ASSPAR
41684 @ 350162:                  PUSHI  #0x00000000
41685 @ 350167:                  ASSPAR
41686 @ 350168:                  PUSH   AT
41687 @ 350171:                  ASSPAR
41688 @ 350172:                  CALL  

  6951              IOCP1=AT
41689 @ 350173:                  LINE   6951 "regression-compile-tmp/imp918s.imp"
41690 @ 350211:                  PUSH   IOCP1
41691 @ 350214:                  PUSH   AT
41692 @ 350217:                  ASSVAL

  6952           %FINISH
41693 @ 350218:                  LINE   6952 "regression-compile-tmp/imp918s.imp"
41694 @ 350256:                  LOCATE L_0004

  6953           PCONST(X'41000000'!N)
41695 @ 350259:                  LINE   6953 "regression-compile-tmp/imp918s.imp"
41696 @ 350297:                  PUSH   PCONST
41697 @ 350300:                  PUSHI  #0x41000000
41698 @ 350305:                  PUSH   N
41699 @ 350308:                  OR    
41700 @ 350309:                  ASSPAR
41701 @ 350310:                  CALL  

  6954           CRCALL(-1)
41702 @ 350311:                  LINE   6954 "regression-compile-tmp/imp918s.imp"
41703 @ 350349:                  PUSH   CRCALL
41704 @ 350352:                  PUSHI  #0x00000001
41705 @ 350357:                  NEGATE
41706 @ 350358:                  ASSPAR
41707 @ 350359:                  CALL  

  6955           %END
41708 @ 350360:                  LINE   6955 "regression-compile-tmp/imp918s.imp"
41709 @ 350398:               END    _lev0id0_CSS_CIOCP {lev=3 --> 2}

  6956           %ROUTINE LOAD DV(%INTEGER %NAME REG,%INTEGER B,D,TN)
  6957           {%SHORTROUTINE}
  6958  !***********************************************************************
  6959  !*       FIND A REGISTER AND LOAD IT WITH POINTER TO D.V. B,D FOR      *
  6960  !*       ARRAYHEAD   TN=TAGS(NAME). NECESSARY TO PASS B&D ALSO IN CASE *
  6961  !*       OF ARRAYNAMES IN RECORDS WHEN TN<0. NO CHECK IS MADE THAT NAME*
  6962  !*       IS CORRECTLY DEFINED                                          *
  6963  !***********************************************************************
41710 @ 350399:               LINE   6956 "regression-compile-tmp/imp918s.imp"
41711 @ 350437:               DEF    LOADDV (_lev0id0_CSS_LOADDV) p1=V_01a0 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
41712 @ 350455:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
41713 @ 350456:                     DEF    REG p1=V_0203 a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
41714 @ 350471:                     DEF    B p1=V_0204 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
41715 @ 350484:                     DEF    D p1=V_0205 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
41716 @ 350497:                     DEF    TN p1=V_0206 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
41717 @ 350511:                  FINISH ) {lev=3}

  6964           %INTEGER R
41718 @ 350512:                  LINE   6964 "regression-compile-tmp/imp918s.imp"
41719 @ 350550:                  DEF    R p1=V_0207 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

  6965           R=-1
41720 @ 350563:                  LINE   6965 "regression-compile-tmp/imp918s.imp"
41721 @ 350601:                  PUSH   R
41722 @ 350604:                  PUSHI  #0x00000001
41723 @ 350609:                  NEGATE
41724 @ 350610:                  ASSVAL

  6966           %IF TN>0 %THEN FIND USE(R,1,10,TN)
41725 @ 350611:                  LINE   6966 "regression-compile-tmp/imp918s.imp"
41726 @ 350649:                  PUSH   TN
41727 @ 350652:                  PUSHI  #0x00000000
41728 @ 350657:                  JUMPIF <= L_0004
41729 @ 350661:                  PUSH   FINDUSE
41730 @ 350664:                  PUSH   R
41731 @ 350667:                  ASSPAR
41732 @ 350668:                  PUSHI  #0x00000001
41733 @ 350673:                  ASSPAR
41734 @ 350674:                  PUSHI  #0x0000000a
41735 @ 350679:                  ASSPAR
41736 @ 350680:                  PUSH   TN
41737 @ 350683:                  ASSPAR
41738 @ 350684:                  CALL  
41739 @ 350685:                  LOCATE L_0004

  6967           %IF R<=0 %THEN %START;       ! REGISTER MUST BE SET
41740 @ 350688:                  LINE   6967 "regression-compile-tmp/imp918s.imp"
41741 @ 350726:                  PUSH   R
41742 @ 350729:                  PUSHI  #0x00000000
41743 @ 350734:                  JUMPIF > L_0004

  6968              FIND REG(ADDREG,R)
41744 @ 350738:                  LINE   6968 "regression-compile-tmp/imp918s.imp"
41745 @ 350776:                  PUSH   FINDREG
41746 @ 350779:                  PUSHI  #0xffff0e01
41747 @ 350784:                  ASSPAR
41748 @ 350785:                  PUSH   R
41749 @ 350788:                  ASSPAR
41750 @ 350789:                  CALL  

  6969              DUMP(X'58',R,D+8,0,B)
41751 @ 350790:                  LINE   6969 "regression-compile-tmp/imp918s.imp"
41752 @ 350828:                  PUSH   DUMP
41753 @ 350831:                  PUSHI  #0x00000058
41754 @ 350836:                  ASSPAR
41755 @ 350837:                  PUSH   R
41756 @ 350840:                  ASSPAR
41757 @ 350841:                  PUSH   D
41758 @ 350844:                  PUSHI  #0x00000008
41759 @ 350849:                  ADD   
41760 @ 350850:                  ASSPAR
41761 @ 350851:                  PUSHI  #0x00000000
41762 @ 350856:                  ASSPAR
41763 @ 350857:                  PUSH   B
41764 @ 350860:                  ASSPAR
41765 @ 350861:                  CALL  

  6970              %IF TN>0 %THEN SET USE(R,10,TN) %ELSE FORGET(R)
41766 @ 350862:                  LINE   6970 "regression-compile-tmp/imp918s.imp"
41767 @ 350900:                  PUSH   TN
41768 @ 350903:                  PUSHI  #0x00000000
41769 @ 350908:                  JUMPIF <= L_0007
41770 @ 350912:                  PUSH   SETUSE
41771 @ 350915:                  PUSH   R
41772 @ 350918:                  ASSPAR
41773 @ 350919:                  PUSHI  #0x0000000a
41774 @ 350924:                  ASSPAR
41775 @ 350925:                  PUSH   TN
41776 @ 350928:                  ASSPAR
41777 @ 350929:                  CALL  
41778 @ 350930:                  GOTO   L_0006
41779 @ 350933:                  LOCATE L_0007
41780 @ 350936:                  PUSH   FORGET
41781 @ 350939:                  PUSH   R
41782 @ 350942:                  ASSPAR
41783 @ 350943:                  CALL  
41784 @ 350944:                  LOCATE L_0006

  6971           %FINISH
41785 @ 350947:                  LINE   6971 "regression-compile-tmp/imp918s.imp"
41786 @ 350985:                  LOCATE L_0004

  6972           REG=R
41787 @ 350988:                  LINE   6972 "regression-compile-tmp/imp918s.imp"
41788 @ 351026:                  PUSH   REG
41789 @ 351029:                  PUSH   R
41790 @ 351032:                  ASSVAL

  6973           %END
41791 @ 351033:                  LINE   6973 "regression-compile-tmp/imp918s.imp"
41792 @ 351071:               END    _lev0id0_CSS_LOADDV {lev=3 --> 2}

  6974           %ROUTINE     CANAME(%INTEGER ARRP,BS,DP,BASIC DISP)
  6975  !***********************************************************************
  6976  !*       BS & DP DEFINE THE POSITION OF THE ARRAY HEAD                 * 
  6977  !*       ARRP=1 FOR ARRAYS,2 FOR VECTORS,3 FOR ARRAYS IN RECORDS       *
  6978  !*       BASIC DISP = DISPMNT OF A(0) FOR VECTORS OR ARRAYS IN RECORDS *
  6979  !*       IN-LINE CODE IS PLANTED IF PARM=NOARRAY IS REQUESTED          *
  6980  !*       OTHERWISE CALLS ARE MADE ON CHECKING SUBROUTINES IN PERM      *
  6981  !***********************************************************************
  6982           {%SHORTROUTINE}
41793 @ 351072:               LINE   6974 "regression-compile-tmp/imp918s.imp"
41794 @ 351110:               DEF    CANAME (_lev0id0_CSS_CANAME) p1=V_018a 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
41795 @ 351128:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
41796 @ 351129:                     DEF    ARRP p1=V_0203 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
41797 @ 351145:                     DEF    BS p1=V_0204 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
41798 @ 351159:                     DEF    DP p1=V_0205 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
41799 @ 351173:                     DEF    BASICDISP p1=V_0206 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
41800 @ 351194:                  FINISH ) {lev=3}

  6983           %INTEGER DVREG,OPTYPE
41801 @ 351195:                  LINE   6983 "regression-compile-tmp/imp918s.imp"
41802 @ 351233:                  DEF    DVREG p1=V_0207 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
41803 @ 351250:                  DEF    OPTYPE p1=V_0208 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

  6984           %SHORTINTEGER HEAD1,HEAD2,HEAD3,NOPS,BOT1,BOT2,BOT3
41804 @ 351268:                  LINE   6984 "regression-compile-tmp/imp918s.imp"
41805 @ 351306:                  DEF    HEAD1 p1=V_0209 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
41806 @ 351323:                  DEF    HEAD2 p1=V_020a a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
41807 @ 351340:                  DEF    HEAD3 p1=V_020b a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
41808 @ 351357:                  DEF    NOPS p1=V_020c a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
41809 @ 351373:                  DEF    BOT1 p1=V_020d a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
41810 @ 351389:                  DEF    BOT2 p1=V_020e a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
41811 @ 351405:                  DEF    BOT3 p1=V_020f a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0

  6985           %INTEGER PTYPEP,KK,RR,PP,JJ,JJJ,XTYPE,TYPEP,ARRNAME
41812 @ 351421:                  LINE   6985 "regression-compile-tmp/imp918s.imp"
41813 @ 351459:                  DEF    PTYPEP p1=V_0210 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
41814 @ 351477:                  DEF    KK p1=V_0211 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
41815 @ 351491:                  DEF    RR p1=V_0212 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
41816 @ 351505:                  DEF    PP p1=V_0213 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
41817 @ 351519:                  DEF    JJ p1=V_0214 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
41818 @ 351533:                  DEF    JJJ p1=V_0215 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
41819 @ 351548:                  DEF    XTYPE p1=V_0216 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
41820 @ 351565:                  DEF    TYPEP p1=V_0217 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
41821 @ 351582:                  DEF    ARRNAME p1=V_0218 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

  6986           %INTEGER KKK,DIS,Q,PRECP,ELSIZE,BASEREG,NAMINF
41822 @ 351601:                  LINE   6986 "regression-compile-tmp/imp918s.imp"
41823 @ 351639:                  DEF    KKK p1=V_0219 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
41824 @ 351654:                  DEF    DIS p1=V_021a 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
41825 @ 351669:                  DEF    Q p1=V_021b 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
41826 @ 351682:                  DEF    PRECP p1=V_021c 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
41827 @ 351699:                  DEF    ELSIZE p1=V_021d 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
41828 @ 351717:                  DEF    BASEREG p1=V_021e 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
41829 @ 351736:                  DEF    NAMINF p1=V_021f 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

  6987           PP=P; TYPEP=TYPE
41830 @ 351754:                  LINE   6987 "regression-compile-tmp/imp918s.imp"
41831 @ 351792:                  PUSH   PP
41832 @ 351795:                  PUSH   P
41833 @ 351798:                  ASSVAL
41834 @ 351799:                  LINE   6987 "regression-compile-tmp/imp918s.imp"
41835 @ 351837:                  PUSH   TYPEP
41836 @ 351840:                  PUSH   TYPE
41837 @ 351843:                  ASSVAL

  6988           JJ=J; PTYPEP=PTYPE; PRECP=PREC
41838 @ 351844:                  LINE   6988 "regression-compile-tmp/imp918s.imp"
41839 @ 351882:                  PUSH   JJ
41840 @ 351885:                  PUSH   J
41841 @ 351888:                  ASSVAL
41842 @ 351889:                  LINE   6988 "regression-compile-tmp/imp918s.imp"
41843 @ 351927:                  PUSH   PTYPEP
41844 @ 351930:                  PUSH   PTYPE
41845 @ 351933:                  ASSVAL
41846 @ 351934:                  LINE   6988 "regression-compile-tmp/imp918s.imp"
41847 @ 351972:                  PUSH   PRECP
41848 @ 351975:                  PUSH   PREC
41849 @ 351978:                  ASSVAL

  6989           %IF TYPE<=2 %OR TYPE=6 %THEN ELSIZE=BYTES(PRECP) %C
  6990                                  %ELSE ELSIZE=ACC
41850 @ 351979:                  LINE   6989 "regression-compile-tmp/imp918s.imp"
41851 @ 352017:                  PUSH   TYPE
41852 @ 352020:                  PUSHI  #0x00000002
41853 @ 352025:                  JUMPIF <= L_0005
41854 @ 352029:                  PUSH   TYPE
41855 @ 352032:                  PUSHI  #0x00000006
41856 @ 352037:                  JUMPIF # L_0004
41857 @ 352041:                  LOCATE L_0005
41858 @ 352044:                  PUSH   ELSIZE
41859 @ 352047:                  PUSH   BYTES
41860 @ 352050:                  PUSH   PRECP
41861 @ 352053:                  ACCESS
41862 @ 352054:                  ASSVAL
41863 @ 352055:                  GOTO   L_0003
41864 @ 352058:                  LOCATE L_0004
41865 @ 352061:                  PUSH   ELSIZE
41866 @ 352064:                  PUSH   ACC
41867 @ 352067:                  ASSVAL
41868 @ 352068:                  LOCATE L_0003

  6991           ARRNAME=A(P);                   ! NAME OF ENTITY
41869 @ 352071:                  LINE   6991 "regression-compile-tmp/imp918s.imp"
41870 @ 352109:                  PUSH   ARRNAME
41871 @ 352112:                  PUSH   A
41872 @ 352115:                  PUSH   P
41873 @ 352118:                  ACCESS
41874 @ 352119:                  ASSVAL

  6992           NAMINF=TAGS(ARRNAME)
41875 @ 352120:                  LINE   6992 "regression-compile-tmp/imp918s.imp"
41876 @ 352158:                  PUSH   NAMINF
41877 @ 352161:                  PUSH   TAGS
41878 @ 352164:                  PUSH   ARRNAME
41879 @ 352167:                  ACCESS
41880 @ 352168:                  ASSVAL

  6993           FAULT(29,ARRNAME) %IF ARR=3;    ! ARRAYFORMAT USED AS ARRAY
41881 @ 352169:                  LINE   6993 "regression-compile-tmp/imp918s.imp"
41882 @ 352207:                  PUSH   ARR
41883 @ 352210:                  PUSHI  #0x00000003
41884 @ 352215:                  JUMPIF # L_0004
41885 @ 352219:                  PUSH   FAULT
41886 @ 352222:                  PUSHI  #0x0000001d
41887 @ 352227:                  ASSPAR
41888 @ 352228:                  PUSH   ARRNAME
41889 @ 352231:                  ASSPAR
41890 @ 352232:                  CALL  
41891 @ 352233:                  LOCATE L_0004

  6994           NAMINF=-2 %IF ARRP>2 %OR TYPE=6;! SWITCHES&ARRAYS IN RECORDS 
41892 @ 352236:                  LINE   6994 "regression-compile-tmp/imp918s.imp"
41893 @ 352274:                  PUSH   ARRP
41894 @ 352277:                  PUSHI  #0x00000002
41895 @ 352282:                  JUMPIF > L_0005
41896 @ 352286:                  PUSH   TYPE
41897 @ 352289:                  PUSHI  #0x00000006
41898 @ 352294:                  JUMPIF # L_0004
41899 @ 352298:                  LOCATE L_0005
41900 @ 352301:                  PUSH   NAMINF
41901 @ 352304:                  PUSHI  #0x00000002
41902 @ 352309:                  NEGATE
41903 @ 352310:                  ASSVAL
41904 @ 352311:                  LOCATE L_0004

  6995           ARRP=ARRP&X'F';                 ! NOT OPTIMISED
41905 @ 352314:                  LINE   6995 "regression-compile-tmp/imp918s.imp"
41906 @ 352352:                  PUSH   ARRP
41907 @ 352355:                  PUSH   ARRP
41908 @ 352358:                  PUSHI  #0x0000000f
41909 @ 352363:                  AND   
41910 @ 352364:                  ASSVAL

  6996           TEST APP(Q);                    ! COUNT NO OF SUBSCRIPTS
  6997  !
  6998  ! CHECK CORRECT NO OF SUBSCRIPTS PROVIDED. HOWEVER ENTITIES DECLARED
  6999  ! AS %<TYPE>ARRAYNAME HAVE NO DIMENSION . THIS SECTION SETS THE
  7000  ! DIMENSION FROM THE FIRST USE OF THE NAME.
  7001  !
41911 @ 352365:                  LINE   6996 "regression-compile-tmp/imp918s.imp"
41912 @ 352403:                  PUSH   TESTAPP
41913 @ 352406:                  PUSH   Q
41914 @ 352409:                  ASSPAR
41915 @ 352410:                  CALL  

  7002           %IF JJ=0 %THEN %START;        ! 0 DIMENSIONS = NOT KNOWN
41916 @ 352411:                  LINE   7002 "regression-compile-tmp/imp918s.imp"
41917 @ 352449:                  PUSH   JJ
41918 @ 352452:                  PUSHI  #0x00000000
41919 @ 352457:                  JUMPIF # L_0004

  7003              REPLACE1(TCELL,FROM1(TCELL)!Q);! DIMSN IS BOTTOM 4 BITS OF TAG
41920 @ 352461:                  LINE   7003 "regression-compile-tmp/imp918s.imp"
41921 @ 352499:                  PUSH   REPLACE1
41922 @ 352502:                  PUSH   TCELL
41923 @ 352505:                  ASSPAR
41924 @ 352506:                  PUSH   FROM1
41925 @ 352509:                  PUSH   TCELL
41926 @ 352512:                  ASSPAR
41927 @ 352513:                  CALL  
41928 @ 352514:                  PUSH   Q
41929 @ 352517:                  OR    
41930 @ 352518:                  ASSPAR
41931 @ 352519:                  CALL  

  7004              JJ=Q
41932 @ 352520:                  LINE   7004 "regression-compile-tmp/imp918s.imp"
41933 @ 352558:                  PUSH   JJ
41934 @ 352561:                  PUSH   Q
41935 @ 352564:                  ASSVAL

  7005           %FINISH
41936 @ 352565:                  LINE   7005 "regression-compile-tmp/imp918s.imp"
41937 @ 352603:                  LOCATE L_0004

  7006           %IF JJ>2 %THEN CYC BITS=CYCBITS!128; ! XTRA REG FOR DV BASE
41938 @ 352606:                  LINE   7006 "regression-compile-tmp/imp918s.imp"
41939 @ 352644:                  PUSH   JJ
41940 @ 352647:                  PUSHI  #0x00000002
41941 @ 352652:                  JUMPIF <= L_0004
41942 @ 352656:                  PUSH   CYCBITS
41943 @ 352659:                  PUSH   CYCBITS
41944 @ 352662:                  PUSHI  #0x00000080
41945 @ 352667:                  OR    
41946 @ 352668:                  ASSVAL
41947 @ 352669:                  LOCATE L_0004

  7007           %IF JJ=Q#0 %AND CHECKS=0 %THEN %START;  ! IN LINE CODE
  7008  !
  7009  ! FOR IN-LINE CODE WE SET UP A CHAIN OF REVERSE POLISH OPERATIONS TO
  7010  ! EVALUATE THE VARIOUS SUBSCRIPTS,MULTIPLY BY THE MULTIPLIERS AND
  7011  ! ADD THEM TOGETHER. THE FINAL OPERATION IS TO CONVERT FROM ELEMENTS
  7012  ! TO BYTES. THIS LAST OPERATION IS DONE FIRST.
  7013  !
  7014  !%if USE MC = 1 %start
  7015  !         *XC_DVREG(16),DVREG;          ! CLEAR LISTHEADS
  7016  !%finish
41948 @ 352672:                  LINE   7007 "regression-compile-tmp/imp918s.imp"
41949 @ 352710:                  PUSH   JJ
41950 @ 352713:                  PUSH   Q
41951 @ 352716:                  JUMPIFD # L_0004
41952 @ 352720:                  PUSHI  #0x00000000
41953 @ 352725:                  JUMPIF = L_0004
41954 @ 352729:                  PUSH   CHECKS
41955 @ 352732:                  PUSHI  #0x00000000
41956 @ 352737:                  JUMPIF # L_0004

  7017           XTYPE=0; BOT3=0
41957 @ 352741:                  LINE   7017 "regression-compile-tmp/imp918s.imp"
41958 @ 352779:                  PUSH   XTYPE
41959 @ 352782:                  PUSHI  #0x00000000
41960 @ 352787:                  ASSVAL
41961 @ 352788:                  LINE   7017 "regression-compile-tmp/imp918s.imp"
41962 @ 352826:                  PUSH   BOT3
41963 @ 352829:                  PUSHI  #0x00000000
41964 @ 352834:                  ASSVAL

  7018           %IF PRECP#1 %THEN %START;     ! BYTE ARRAYS - NO FINAL MULTIPLY
41965 @ 352835:                  LINE   7018 "regression-compile-tmp/imp918s.imp"
41966 @ 352873:                  PUSH   PRECP
41967 @ 352876:                  PUSHI  #0x00000001
41968 @ 352881:                  JUMPIF = L_0007

  7019              XTYPE=1;                   ! NOTE 1 XTRA OPERATION
41969 @ 352885:                  LINE   7019 "regression-compile-tmp/imp918s.imp"
41970 @ 352923:                  PUSH   XTYPE
41971 @ 352926:                  PUSHI  #0x00000001
41972 @ 352931:                  ASSVAL

  7020              %IF TYPEP=5 %AND NAM#0 %THEN %START; ! ELSIZE NOT KNOWN
41973 @ 352932:                  LINE   7020 "regression-compile-tmp/imp918s.imp"
41974 @ 352970:                  PUSH   TYPEP
41975 @ 352973:                  PUSHI  #0x00000005
41976 @ 352978:                  JUMPIF # L_000a
41977 @ 352982:                  PUSH   NAM
41978 @ 352985:                  PUSHI  #0x00000000
41979 @ 352990:                  JUMPIF = L_000a

  7021                 OPTYPE=3; JJJ=BS
41980 @ 352994:                  LINE   7021 "regression-compile-tmp/imp918s.imp"
41981 @ 353032:                  PUSH   OPTYPE
41982 @ 353035:                  PUSHI  #0x00000003
41983 @ 353040:                  ASSVAL
41984 @ 353041:                  LINE   7021 "regression-compile-tmp/imp918s.imp"
41985 @ 353079:                  PUSH   JJJ
41986 @ 353082:                  PUSH   BS
41987 @ 353085:                  ASSVAL

  7022                 KKK=DP<<16!2;           ! OPERAND 2ND HALFWORD OF DP
41988 @ 353086:                  LINE   7022 "regression-compile-tmp/imp918s.imp"
41989 @ 353124:                  PUSH   KKK
41990 @ 353127:                  PUSH   DP
41991 @ 353130:                  PUSHI  #0x00000010
41992 @ 353135:                  LSH   
41993 @ 353136:                  PUSHI  #0x00000002
41994 @ 353141:                  OR    
41995 @ 353142:                  ASSVAL

  7023                 ELSIZE=0
41996 @ 353143:                  LINE   7023 "regression-compile-tmp/imp918s.imp"
41997 @ 353181:                  PUSH   ELSIZE
41998 @ 353184:                  PUSHI  #0x00000000
41999 @ 353189:                  ASSVAL

  7024              %FINISH %ELSE %START;      ! ELSIZE KNOWN
42000 @ 353190:                  LINE   7024 "regression-compile-tmp/imp918s.imp"
42001 @ 353228:                  GOTO   L_0009
42002 @ 353231:                  LOCATE L_000a

  7025                  OPTYPE=0; JJJ=0
42003 @ 353234:                  LINE   7025 "regression-compile-tmp/imp918s.imp"
42004 @ 353272:                  PUSH   OPTYPE
42005 @ 353275:                  PUSHI  #0x00000000
42006 @ 353280:                  ASSVAL
42007 @ 353281:                  LINE   7025 "regression-compile-tmp/imp918s.imp"
42008 @ 353319:                  PUSH   JJJ
42009 @ 353322:                  PUSHI  #0x00000000
42010 @ 353327:                  ASSVAL

  7026                  KKK=ELSIZE;            ! OPERAND A CONSTANT
42011 @ 353328:                  LINE   7026 "regression-compile-tmp/imp918s.imp"
42012 @ 353366:                  PUSH   KKK
42013 @ 353369:                  PUSH   ELSIZE
42014 @ 353372:                  ASSVAL

  7027              %FINISH
42015 @ 353373:                  LINE   7027 "regression-compile-tmp/imp918s.imp"
42016 @ 353411:                  LOCATE L_0009

  7028              PUSH(HEAD3,28,0);          ! OPERATOR  (=MH)
42017 @ 353414:                  LINE   7028 "regression-compile-tmp/imp918s.imp"
42018 @ 353452:                  PUSH   PUSH
42019 @ 353455:                  PUSH   HEAD3
42020 @ 353458:                  ASSPAR
42021 @ 353459:                  PUSHI  #0x0000001c
42022 @ 353464:                  ASSPAR
42023 @ 353465:                  PUSHI  #0x00000000
42024 @ 353470:                  ASSPAR
42025 @ 353471:                  CALL  

  7029              %IF BOT3=0 %THEN BOT3=HEAD3
42026 @ 353472:                  LINE   7029 "regression-compile-tmp/imp918s.imp"
42027 @ 353510:                  PUSH   BOT3
42028 @ 353513:                  PUSHI  #0x00000000
42029 @ 353518:                  JUMPIF # L_000a
42030 @ 353522:                  PUSH   BOT3
42031 @ 353525:                  PUSH   HEAD3
42032 @ 353528:                  ASSVAL
42033 @ 353529:                  LOCATE L_000a

  7030             PUSH123(HEAD3,((OPTYPE&1)*20+1)<<16!JJJ<<8!OPTYPE,KKK,NAMINF)
42034 @ 353532:                  LINE   7030 "regression-compile-tmp/imp918s.imp"
42035 @ 353570:                  PUSH   PUSH123
42036 @ 353573:                  PUSH   HEAD3
42037 @ 353576:                  ASSPAR
42038 @ 353577:                  PUSH   OPTYPE
42039 @ 353580:                  PUSHI  #0x00000001
42040 @ 353585:                  AND   
42041 @ 353586:                  PUSHI  #0x00000014
42042 @ 353591:                  MUL   
42043 @ 353592:                  PUSHI  #0x00000001
42044 @ 353597:                  ADD   
42045 @ 353598:                  PUSHI  #0x00000010
42046 @ 353603:                  LSH   
42047 @ 353604:                  PUSH   JJJ
42048 @ 353607:                  PUSHI  #0x00000008
42049 @ 353612:                  LSH   
42050 @ 353613:                  OR    
42051 @ 353614:                  PUSH   OPTYPE
42052 @ 353617:                  OR    
42053 @ 353618:                  ASSPAR
42054 @ 353619:                  PUSH   KKK
42055 @ 353622:                  ASSPAR
42056 @ 353623:                  PUSH   NAMINF
42057 @ 353626:                  ASSPAR
42058 @ 353627:                  CALL  

  7031           %FINISH
  7032  !
  7033  ! NOW PROCESS THE SUBSCRIPTS CALLINR TORP TO CONVERT THE EXPRESSIONS
  7034  ! TO REVERSE POLISH AND ADDING THE EXTRA OPERATIONS. IF THE FIRST
  7035  ! SUBSCRIPT IS A CONSTANT AND THE ITEM LENGTH IS KNOWN AT COMPLIE TIME
  7036  ! THE OPERATION CAN BE SUPPRESSED AND THE CONSTANT TRANSFERRED TO THE
  7037  ! DISPLACEMENT FIELD OF THE FINAL INSTRUCTION. THIS SAVES 8 BYTES.
  7038  ! A SPECIAL MODE (5) FOR TORP TRANSFERS ANY CONSTANT TO GLOBAL ADISP
  7039  !
42059 @ 353628:                  LINE   7031 "regression-compile-tmp/imp918s.imp"
42060 @ 353666:                  LOCATE L_0007

  7040           P=PP+2; JJJ=5;                ! MODE FOR TORP FOR 1ST EXPRSN
42061 @ 353669:                  LINE   7040 "regression-compile-tmp/imp918s.imp"
42062 @ 353707:                  PUSH   P
42063 @ 353710:                  PUSH   PP
42064 @ 353713:                  PUSHI  #0x00000002
42065 @ 353718:                  ADD   
42066 @ 353719:                  ASSVAL
42067 @ 353720:                  LINE   7040 "regression-compile-tmp/imp918s.imp"
42068 @ 353758:                  PUSH   JJJ
42069 @ 353761:                  PUSHI  #0x00000005
42070 @ 353766:                  ASSVAL

  7041           %IF TYPEP=5 %AND ELSIZE=0 %THEN JJJ=1; ! ADDR OR NORMAL MODE
42071 @ 353767:                  LINE   7041 "regression-compile-tmp/imp918s.imp"
42072 @ 353805:                  PUSH   TYPEP
42073 @ 353808:                  PUSHI  #0x00000005
42074 @ 353813:                  JUMPIF # L_0007
42075 @ 353817:                  PUSH   ELSIZE
42076 @ 353820:                  PUSHI  #0x00000000
42077 @ 353825:                  JUMPIF # L_0007
42078 @ 353829:                  PUSH   JJJ
42079 @ 353832:                  PUSHI  #0x00000001
42080 @ 353837:                  ASSVAL
42081 @ 353838:                  LOCATE L_0007

  7042           %CYCLE KK=1,1,JJ;             ! THROUGH THE SUBSCRIPTS
42082 @ 353841:                  LINE   7042 "regression-compile-tmp/imp918s.imp"
42083 @ 353879:                  PUSH   KK
42084 @ 353882:                  PUSHI  #0x00000001
42085 @ 353887:                  PUSH   JJ
42086 @ 353890:                  PUSHI  #0x00000001
42087 @ 353895:                  FOR    L_0006

  7043              P=P+2; BOT2=0
42088 @ 353898:                  LINE   7043 "regression-compile-tmp/imp918s.imp"
42089 @ 353936:                  PUSH   P
42090 @ 353939:                  PUSH   P
42091 @ 353942:                  PUSHI  #0x00000002
42092 @ 353947:                  ADD   
42093 @ 353948:                  ASSVAL
42094 @ 353949:                  LINE   7043 "regression-compile-tmp/imp918s.imp"
42095 @ 353987:                  PUSH   BOT2
42096 @ 353990:                  PUSHI  #0x00000000
42097 @ 353995:                  ASSVAL

  7044              TORP(HEAD2,BOT2,NOPS,JJJ); ! SUBSCRIPT TO REVERSE POLISH
42098 @ 353996:                  LINE   7044 "regression-compile-tmp/imp918s.imp"
42099 @ 354034:                  PUSH   TORP
42100 @ 354037:                  PUSH   HEAD2
42101 @ 354040:                  ASSPAR
42102 @ 354041:                  PUSH   BOT2
42103 @ 354044:                  ASSPAR
42104 @ 354045:                  PUSH   NOPS
42105 @ 354048:                  ASSPAR
42106 @ 354049:                  PUSH   JJJ
42107 @ 354052:                  ASSPAR
42108 @ 354053:                  CALL  

  7045              P=P+1
  7046  !
  7047  ! TWO DIMENSION ARRAYS HAVE THE MULTIPLIER IN WORD 4 OF HEAD
  7048  ! ALL OTHER MULTIPLIERS ARE DOPE VECTOR ITEMS (OPTYPE=3)
  7049  !
42109 @ 354054:                  LINE   7045 "regression-compile-tmp/imp918s.imp"
42110 @ 354092:                  PUSH   P
42111 @ 354095:                  PUSH   P
42112 @ 354098:                  PUSHI  #0x00000001
42113 @ 354103:                  ADD   
42114 @ 354104:                  ASSVAL

  7050              %IF JJ=2 %THEN OPTYPE=9 %AND RR=DP+14 %ELSE %START
42115 @ 354105:                  LINE   7050 "regression-compile-tmp/imp918s.imp"
42116 @ 354143:                  PUSH   JJ
42117 @ 354146:                  PUSHI  #0x00000002
42118 @ 354151:                  JUMPIF # L_000a
42119 @ 354155:                  PUSH   OPTYPE
42120 @ 354158:                  PUSHI  #0x00000009
42121 @ 354163:                  ASSVAL
42122 @ 354164:                  PUSH   RR
42123 @ 354167:                  PUSH   DP
42124 @ 354170:                  PUSHI  #0x0000000e
42125 @ 354175:                  ADD   
42126 @ 354176:                  ASSVAL
42127 @ 354177:                  GOTO   L_0009
42128 @ 354180:                  LOCATE L_000a

  7051                 OPTYPE=3; RR=(12*KK-10)!(DP<<16)
42129 @ 354183:                  LINE   7051 "regression-compile-tmp/imp918s.imp"
42130 @ 354221:                  PUSH   OPTYPE
42131 @ 354224:                  PUSHI  #0x00000003
42132 @ 354229:                  ASSVAL
42133 @ 354230:                  LINE   7051 "regression-compile-tmp/imp918s.imp"
42134 @ 354268:                  PUSH   RR
42135 @ 354271:                  PUSHI  #0x0000000c
42136 @ 354276:                  PUSH   KK
42137 @ 354279:                  MUL   
42138 @ 354280:                  PUSHI  #0x0000000a
42139 @ 354285:                  SUB   
42140 @ 354286:                  PUSH   DP
42141 @ 354289:                  PUSHI  #0x00000010
42142 @ 354294:                  LSH   
42143 @ 354295:                  OR    
42144 @ 354296:                  ASSVAL

  7052              %FINISH
  7053  !
  7054  ! N SUBSCRIPTS WILL REQUIRE (N-1) MULTIPLICATIONS AND ADDITIONS
  7055  !
42145 @ 354297:                  LINE   7052 "regression-compile-tmp/imp918s.imp"
42146 @ 354335:                  LOCATE L_0009

  7056              %IF KK>1 %THEN %START
42147 @ 354338:                  LINE   7056 "regression-compile-tmp/imp918s.imp"
42148 @ 354376:                  PUSH   KK
42149 @ 354379:                  PUSHI  #0x00000001
42150 @ 354384:                  JUMPIF <= L_000a

  7057                 NOPS=NOPS+2
42151 @ 354388:                  LINE   7057 "regression-compile-tmp/imp918s.imp"
42152 @ 354426:                  PUSH   NOPS
42153 @ 354429:                  PUSH   NOPS
42154 @ 354432:                  PUSHI  #0x00000002
42155 @ 354437:                  ADD   
42156 @ 354438:                  ASSVAL

  7058                 PUSH(HEAD3,15,0) %IF HEAD1#0;! 15=ADD
42157 @ 354439:                  LINE   7058 "regression-compile-tmp/imp918s.imp"
42158 @ 354477:                  PUSH   HEAD1
42159 @ 354480:                  PUSHI  #0x00000000
42160 @ 354485:                  JUMPIF = L_000d
42161 @ 354489:                  PUSH   PUSH
42162 @ 354492:                  PUSH   HEAD3
42163 @ 354495:                  ASSPAR
42164 @ 354496:                  PUSHI  #0x0000000f
42165 @ 354501:                  ASSPAR
42166 @ 354502:                  PUSHI  #0x00000000
42167 @ 354507:                  ASSPAR
42168 @ 354508:                  CALL  
42169 @ 354509:                  LOCATE L_000d

  7059                 %IF BOT3=0 %THEN BOT3=HEAD3
  7060  !
  7061  ! N.B. THE FIRST SUFFIX CAN BE OPTIMISED OUT OF EXISTENCE IF IT IS
  7062  ! A SHORT CONSTANT AND THE CORRESPONDING ADDITION MUST THEN BE OMITTED
  7063  !
42170 @ 354512:                  LINE   7059 "regression-compile-tmp/imp918s.imp"
42171 @ 354550:                  PUSH   BOT3
42172 @ 354553:                  PUSHI  #0x00000000
42173 @ 354558:                  JUMPIF # L_000d
42174 @ 354562:                  PUSH   BOT3
42175 @ 354565:                  PUSH   HEAD3
42176 @ 354568:                  ASSVAL
42177 @ 354569:                  LOCATE L_000d

  7064                 PUSH(HEAD3,28,0);       ! MH
42178 @ 354572:                  LINE   7064 "regression-compile-tmp/imp918s.imp"
42179 @ 354610:                  PUSH   PUSH
42180 @ 354613:                  PUSH   HEAD3
42181 @ 354616:                  ASSPAR
42182 @ 354617:                  PUSHI  #0x0000001c
42183 @ 354622:                  ASSPAR
42184 @ 354623:                  PUSHI  #0x00000000
42185 @ 354628:                  ASSPAR
42186 @ 354629:                  CALL  

  7065                 %IF BOT3=0 %THEN BOT3=HEAD3
42187 @ 354630:                  LINE   7065 "regression-compile-tmp/imp918s.imp"
42188 @ 354668:                  PUSH   BOT3
42189 @ 354671:                  PUSHI  #0x00000000
42190 @ 354676:                  JUMPIF # L_000d
42191 @ 354680:                  PUSH   BOT3
42192 @ 354683:                  PUSH   HEAD3
42193 @ 354686:                  ASSVAL
42194 @ 354687:                  LOCATE L_000d

  7066                 PUSH123(HEAD3,21<<16!BS<<8!OPTYPE,RR,NAMINF);! MULTIPLIER
42195 @ 354690:                  LINE   7066 "regression-compile-tmp/imp918s.imp"
42196 @ 354728:                  PUSH   PUSH123
42197 @ 354731:                  PUSH   HEAD3
42198 @ 354734:                  ASSPAR
42199 @ 354735:                  PUSHI  #0x00000015
42200 @ 354740:                  PUSHI  #0x00000010
42201 @ 354745:                  LSH   
42202 @ 354746:                  PUSH   BS
42203 @ 354749:                  PUSHI  #0x00000008
42204 @ 354754:                  LSH   
42205 @ 354755:                  OR    
42206 @ 354756:                  PUSH   OPTYPE
42207 @ 354759:                  OR    
42208 @ 354760:                  ASSPAR
42209 @ 354761:                  PUSH   RR
42210 @ 354764:                  ASSPAR
42211 @ 354765:                  PUSH   NAMINF
42212 @ 354768:                  ASSPAR
42213 @ 354769:                  CALL  

  7067              %FINISH %ELSE DIS=ADISP*ELSIZE
42214 @ 354770:                  LINE   7067 "regression-compile-tmp/imp918s.imp"
42215 @ 354808:                  GOTO   L_0009
42216 @ 354811:                  LOCATE L_000a
42217 @ 354814:                  PUSH   DIS
42218 @ 354817:                  PUSH   ADISP
42219 @ 354820:                  PUSH   ELSIZE
42220 @ 354823:                  MUL   
42221 @ 354824:                  ASSVAL
42222 @ 354825:                  LOCATE L_0009

  7068              JJJ=1;                     ! SBSCRPTS XCEPT 1ST NORMAL MODE
  7069  !            CONCAT (HEAD1,HEAD2);      ! OPERANDS TO MAIN LIST
42223 @ 354828:                  LINE   7068 "regression-compile-tmp/imp918s.imp"
42224 @ 354866:                  PUSH   JJJ
42225 @ 354869:                  PUSHI  #0x00000001
42226 @ 354874:                  ASSVAL

  7070              %IF HEAD1=0 %THEN HEAD1=HEAD2 %ELSE %C
  7071                 SHORTINTEGER(ADDR(ASLIST(BOT1))+14)=HEAD2
42227 @ 354875:                  LINE   7070 "regression-compile-tmp/imp918s.imp"
42228 @ 354913:                  PUSH   HEAD1
42229 @ 354916:                  PUSHI  #0x00000000
42230 @ 354921:                  JUMPIF # L_000a
42231 @ 354925:                  PUSH   HEAD1
42232 @ 354928:                  PUSH   HEAD2
42233 @ 354931:                  ASSVAL
42234 @ 354932:                  GOTO   L_0009
42235 @ 354935:                  LOCATE L_000a
42236 @ 354938:                  PUSH   SHORTINTEGER
42237 @ 354941:                  PUSH   ADDR
42238 @ 354944:                  PUSH   ASLIST
42239 @ 354947:                  PUSH   BOT1
42240 @ 354950:                  ACCESS
42241 @ 354951:                  ASSPAR
42242 @ 354952:                  CALL  
42243 @ 354953:                  PUSHI  #0x0000000e
42244 @ 354958:                  ADD   
42245 @ 354959:                  ASSPAR
42246 @ 354960:                  CALL  
42247 @ 354961:                  PUSH   HEAD2
42248 @ 354964:                  ASSVAL
42249 @ 354965:                  LOCATE L_0009

  7072              BOT1=BOT2; HEAD2=0
42250 @ 354968:                  LINE   7072 "regression-compile-tmp/imp918s.imp"
42251 @ 355006:                  PUSH   BOT1
42252 @ 355009:                  PUSH   BOT2
42253 @ 355012:                  ASSVAL
42254 @ 355013:                  LINE   7072 "regression-compile-tmp/imp918s.imp"
42255 @ 355051:                  PUSH   HEAD2
42256 @ 355054:                  PUSHI  #0x00000000
42257 @ 355059:                  ASSVAL

  7073           %REPEAT
  7074  !
  7075  ! ADD OPERATORS TO THE BACK OF OPERANDS AND EVALUATE
  7076  !
42258 @ 355060:                  LINE   7073 "regression-compile-tmp/imp918s.imp"
42259 @ 355098:                  REPEAT L_0006
42260 @ 355101:                  LOCATE L_0007

  7077           CLEAR LIST(HEAD3) %IF HEAD1=0;! THROW AWAY OPERATORS IF NO OPND
  7078  !         CONCAT(HEAD1,HEAD3);          ! OPERATORS  LINKED ON
42261 @ 355104:                  LINE   7077 "regression-compile-tmp/imp918s.imp"
42262 @ 355142:                  PUSH   HEAD1
42263 @ 355145:                  PUSHI  #0x00000000
42264 @ 355150:                  JUMPIF # L_0007
42265 @ 355154:                  PUSH   CLEARLIST
42266 @ 355157:                  PUSH   HEAD3
42267 @ 355160:                  ASSPAR
42268 @ 355161:                  CALL  
42269 @ 355162:                  LOCATE L_0007

  7079           %IF HEAD3#0 %START
42270 @ 355165:                  LINE   7079 "regression-compile-tmp/imp918s.imp"
42271 @ 355203:                  PUSH   HEAD3
42272 @ 355206:                  PUSHI  #0x00000000
42273 @ 355211:                  JUMPIF = L_0007

  7080              SHORTINTEGER(ADDR(ASLIST(BOT1))+14)=HEAD3
42274 @ 355215:                  LINE   7080 "regression-compile-tmp/imp918s.imp"
42275 @ 355253:                  PUSH   SHORTINTEGER
42276 @ 355256:                  PUSH   ADDR
42277 @ 355259:                  PUSH   ASLIST
42278 @ 355262:                  PUSH   BOT1
42279 @ 355265:                  ACCESS
42280 @ 355266:                  ASSPAR
42281 @ 355267:                  CALL  
42282 @ 355268:                  PUSHI  #0x0000000e
42283 @ 355273:                  ADD   
42284 @ 355274:                  ASSPAR
42285 @ 355275:                  CALL  
42286 @ 355276:                  PUSH   HEAD3
42287 @ 355279:                  ASSVAL

  7081              BOT1=BOT3
42288 @ 355280:                  LINE   7081 "regression-compile-tmp/imp918s.imp"
42289 @ 355318:                  PUSH   BOT1
42290 @ 355321:                  PUSH   BOT3
42291 @ 355324:                  ASSVAL

  7082           %FINISH
42292 @ 355325:                  LINE   7082 "regression-compile-tmp/imp918s.imp"
42293 @ 355363:                  LOCATE L_0007

  7083           PP=P; NOPS=NOPS+XTYPE
42294 @ 355366:                  LINE   7083 "regression-compile-tmp/imp918s.imp"
42295 @ 355404:                  PUSH   PP
42296 @ 355407:                  PUSH   P
42297 @ 355410:                  ASSVAL
42298 @ 355411:                  LINE   7083 "regression-compile-tmp/imp918s.imp"
42299 @ 355449:                  PUSH   NOPS
42300 @ 355452:                  PUSH   NOPS
42301 @ 355455:                  PUSH   XTYPE
42302 @ 355458:                  ADD   
42303 @ 355459:                  ASSVAL

  7084           EXPOP(HEAD1,-1,NOPS,5);       ! EVALUATE THE REVERSE POLISH LIST
42304 @ 355460:                  LINE   7084 "regression-compile-tmp/imp918s.imp"
42305 @ 355498:                  PUSH   EXPOP
42306 @ 355501:                  PUSH   HEAD1
42307 @ 355504:                  ASSPAR
42308 @ 355505:                  PUSHI  #0x00000001
42309 @ 355510:                  NEGATE
42310 @ 355511:                  ASSPAR
42311 @ 355512:                  PUSH   NOPS
42312 @ 355515:                  ASSPAR
42313 @ 355516:                  PUSHI  #0x00000005
42314 @ 355521:                  ASSPAR
42315 @ 355522:                  CALL  

  7085           P=PP
42316 @ 355523:                  LINE   7085 "regression-compile-tmp/imp918s.imp"
42317 @ 355561:                  PUSH   P
42318 @ 355564:                  PUSH   PP
42319 @ 355567:                  ASSVAL

  7086           DISP=DIS; INDEX=NEST
  7087  !
  7088  ! REGISTER INDEX AND DSIPLACEMENT NOW DEFINE THE ARRAY RELATIVE POSITION
  7089  ! OF REQUIRED ELEMENT. ALL THAT REMAINS IS TO SET UP OR FIND A SUITABLE
  7090  ! BASE REGISTER TO POINT TO A(0).
  7091  !
  7092  !         CLEAR LIST(HEAD1);            ! RETURN SPACE
42320 @ 355568:                  LINE   7086 "regression-compile-tmp/imp918s.imp"
42321 @ 355606:                  PUSH   DISP
42322 @ 355609:                  PUSH   DIS
42323 @ 355612:                  ASSVAL
42324 @ 355613:                  LINE   7086 "regression-compile-tmp/imp918s.imp"
42325 @ 355651:                  PUSH   INDEX
42326 @ 355654:                  PUSH   NEST
42327 @ 355657:                  ASSVAL

  7093           %IF HEAD1#0 %START
42328 @ 355658:                  LINE   7093 "regression-compile-tmp/imp918s.imp"
42329 @ 355696:                  PUSH   HEAD1
42330 @ 355699:                  PUSHI  #0x00000000
42331 @ 355704:                  JUMPIF = L_0007

  7094              SHORTINTEGER(ADDR(ASLIST(BOT1))+14)=ASL
42332 @ 355708:                  LINE   7094 "regression-compile-tmp/imp918s.imp"
42333 @ 355746:                  PUSH   SHORTINTEGER
42334 @ 355749:                  PUSH   ADDR
42335 @ 355752:                  PUSH   ASLIST
42336 @ 355755:                  PUSH   BOT1
42337 @ 355758:                  ACCESS
42338 @ 355759:                  ASSPAR
42339 @ 355760:                  CALL  
42340 @ 355761:                  PUSHI  #0x0000000e
42341 @ 355766:                  ADD   
42342 @ 355767:                  ASSPAR
42343 @ 355768:                  CALL  
42344 @ 355769:                  PUSH   ASL
42345 @ 355772:                  ASSVAL

  7095              ASL=HEAD1
42346 @ 355773:                  LINE   7095 "regression-compile-tmp/imp918s.imp"
42347 @ 355811:                  PUSH   ASL
42348 @ 355814:                  PUSH   HEAD1
42349 @ 355817:                  ASSVAL

  7096           %FINISH
42350 @ 355818:                  LINE   7096 "regression-compile-tmp/imp918s.imp"
42351 @ 355856:                  LOCATE L_0007

  7097           %IF ARRP>=2 %THEN %START;     ! VECTOR ACCESED VIA LEVEL POINTER
42352 @ 355859:                  LINE   7097 "regression-compile-tmp/imp918s.imp"
42353 @ 355897:                  PUSH   ARRP
42354 @ 355900:                  PUSHI  #0x00000002
42355 @ 355905:                  JUMPIF < L_0007

  7098              DISP=DISP+BASIC DISP
42356 @ 355909:                  LINE   7098 "regression-compile-tmp/imp918s.imp"
42357 @ 355947:                  PUSH   DISP
42358 @ 355950:                  PUSH   DISP
42359 @ 355953:                  PUSH   BASICDISP
42360 @ 355956:                  ADD   
42361 @ 355957:                  ASSVAL

  7099              BASE=BS
42362 @ 355958:                  LINE   7099 "regression-compile-tmp/imp918s.imp"
42363 @ 355996:                  PUSH   BASE
42364 @ 355999:                  PUSH   BS
42365 @ 356002:                  ASSVAL

  7100           %FINISH %ELSE %START
42366 @ 356003:                  LINE   7100 "regression-compile-tmp/imp918s.imp"
42367 @ 356041:                  GOTO   L_0006
42368 @ 356044:                  LOCATE L_0007

  7101              FIND USE(BASE,1,8,NAMINF)
42369 @ 356047:                  LINE   7101 "regression-compile-tmp/imp918s.imp"
42370 @ 356085:                  PUSH   FINDUSE
42371 @ 356088:                  PUSH   BASE
42372 @ 356091:                  ASSPAR
42373 @ 356092:                  PUSHI  #0x00000001
42374 @ 356097:                  ASSPAR
42375 @ 356098:                  PUSHI  #0x00000008
42376 @ 356103:                  ASSPAR
42377 @ 356104:                  PUSH   NAMINF
42378 @ 356107:                  ASSPAR
42379 @ 356108:                  CALL  

  7102              %IF BASE<=0 %START;        ! BASE REG NOT ALREADY SET
42380 @ 356109:                  LINE   7102 "regression-compile-tmp/imp918s.imp"
42381 @ 356147:                  PUSH   BASE
42382 @ 356150:                  PUSHI  #0x00000000
42383 @ 356155:                  JUMPIF > L_000a

  7103                 REGISTER(INDEX)=1 %IF INDEX#0 %AND REGISTER(INDEX)=0
42384 @ 356159:                  LINE   7103 "regression-compile-tmp/imp918s.imp"
42385 @ 356197:                  PUSH   INDEX
42386 @ 356200:                  PUSHI  #0x00000000
42387 @ 356205:                  JUMPIF = L_000d
42388 @ 356209:                  PUSH   REGISTER
42389 @ 356212:                  PUSH   INDEX
42390 @ 356215:                  ACCESS
42391 @ 356216:                  PUSHI  #0x00000000
42392 @ 356221:                  JUMPIF # L_000d
42393 @ 356225:                  PUSH   REGISTER
42394 @ 356228:                  PUSH   INDEX
42395 @ 356231:                  ACCESS
42396 @ 356232:                  PUSHI  #0x00000001
42397 @ 356237:                  ASSVAL
42398 @ 356238:                  LOCATE L_000d

  7104                 FIND REG(ADDREG,BASE)
42399 @ 356241:                  LINE   7104 "regression-compile-tmp/imp918s.imp"
42400 @ 356279:                  PUSH   FINDREG
42401 @ 356282:                  PUSHI  #0xffff0e01
42402 @ 356287:                  ASSPAR
42403 @ 356288:                  PUSH   BASE
42404 @ 356291:                  ASSPAR
42405 @ 356292:                  CALL  

  7105                 DUMP(X'58',BASE,DP,0,BS);!  L  BASE,=A(A(0))
42406 @ 356293:                  LINE   7105 "regression-compile-tmp/imp918s.imp"
42407 @ 356331:                  PUSH   DUMP
42408 @ 356334:                  PUSHI  #0x00000058
42409 @ 356339:                  ASSPAR
42410 @ 356340:                  PUSH   BASE
42411 @ 356343:                  ASSPAR
42412 @ 356344:                  PUSH   DP
42413 @ 356347:                  ASSPAR
42414 @ 356348:                  PUSHI  #0x00000000
42415 @ 356353:                  ASSPAR
42416 @ 356354:                  PUSH   BS
42417 @ 356357:                  ASSPAR
42418 @ 356358:                  CALL  

  7106                 REGISTER(INDEX)=0 %IF INDEX#0 %AND REGISTER(INDEX)>0
42419 @ 356359:                  LINE   7106 "regression-compile-tmp/imp918s.imp"
42420 @ 356397:                  PUSH   INDEX
42421 @ 356400:                  PUSHI  #0x00000000
42422 @ 356405:                  JUMPIF = L_000d
42423 @ 356409:                  PUSH   REGISTER
42424 @ 356412:                  PUSH   INDEX
42425 @ 356415:                  ACCESS
42426 @ 356416:                  PUSHI  #0x00000000
42427 @ 356421:                  JUMPIF <= L_000d
42428 @ 356425:                  PUSH   REGISTER
42429 @ 356428:                  PUSH   INDEX
42430 @ 356431:                  ACCESS
42431 @ 356432:                  PUSHI  #0x00000000
42432 @ 356437:                  ASSVAL
42433 @ 356438:                  LOCATE L_000d

  7107                 %IF NAMINF <0 %THEN FORGET(BASE) %ELSE %C
  7108                                    SET USE(BASE,8,NAMINF)
42434 @ 356441:                  LINE   7107 "regression-compile-tmp/imp918s.imp"
42435 @ 356479:                  PUSH   NAMINF
42436 @ 356482:                  PUSHI  #0x00000000
42437 @ 356487:                  JUMPIF >= L_000d
42438 @ 356491:                  PUSH   FORGET
42439 @ 356494:                  PUSH   BASE
42440 @ 356497:                  ASSPAR
42441 @ 356498:                  CALL  
42442 @ 356499:                  GOTO   L_000c
42443 @ 356502:                  LOCATE L_000d
42444 @ 356505:                  PUSH   SETUSE
42445 @ 356508:                  PUSH   BASE
42446 @ 356511:                  ASSPAR
42447 @ 356512:                  PUSHI  #0x00000008
42448 @ 356517:                  ASSPAR
42449 @ 356518:                  PUSH   NAMINF
42450 @ 356521:                  ASSPAR
42451 @ 356522:                  CALL  
42452 @ 356523:                  LOCATE L_000c

  7109              %FINISH
42453 @ 356526:                  LINE   7109 "regression-compile-tmp/imp918s.imp"
42454 @ 356564:                  LOCATE L_000a

  7110           %FINISH
42455 @ 356567:                  LINE   7110 "regression-compile-tmp/imp918s.imp"
42456 @ 356605:                  LOCATE L_0006

  7111           %FINISH %ELSE %START
42457 @ 356608:                  LINE   7111 "regression-compile-tmp/imp918s.imp"
42458 @ 356646:                  GOTO   L_0003
42459 @ 356649:                  LOCATE L_0004

  7112           %IF JJ#Q %OR Q=0 %THEN %START;! DIMENSIONALITY ERROR
42460 @ 356652:                  LINE   7112 "regression-compile-tmp/imp918s.imp"
42461 @ 356690:                  PUSH   JJ
42462 @ 356693:                  PUSH   Q
42463 @ 356696:                  JUMPIF # L_0008
42464 @ 356700:                  PUSH   Q
42465 @ 356703:                  PUSHI  #0x00000000
42466 @ 356708:                  JUMPIF # L_0007
42467 @ 356712:                  LOCATE L_0008

  7113              FAULT(19,ARRNAME)
42468 @ 356715:                  LINE   7113 "regression-compile-tmp/imp918s.imp"
42469 @ 356753:                  PUSH   FAULT
42470 @ 356756:                  PUSHI  #0x00000013
42471 @ 356761:                  ASSPAR
42472 @ 356762:                  PUSH   ARRNAME
42473 @ 356765:                  ASSPAR
42474 @ 356766:                  CALL  

  7114              P=P+1; SKIP APP
42475 @ 356767:                  LINE   7114 "regression-compile-tmp/imp918s.imp"
42476 @ 356805:                  PUSH   P
42477 @ 356808:                  PUSH   P
42478 @ 356811:                  PUSHI  #0x00000001
42479 @ 356816:                  ADD   
42480 @ 356817:                  ASSVAL
42481 @ 356818:                  LINE   7114 "regression-compile-tmp/imp918s.imp"
42482 @ 356856:                  PUSH   SKIPAPP
42483 @ 356859:                  CALL  

  7115              BASE=15
42484 @ 356860:                  LINE   7115 "regression-compile-tmp/imp918s.imp"
42485 @ 356898:                  PUSH   BASE
42486 @ 356901:                  PUSHI  #0x0000000f
42487 @ 356906:                  ASSVAL

  7116           %FINISH %ELSE %START
  7117  !
  7118  ! THREE DIFFERENT SUBROUTINES ARE USED:-
  7119  ! PERM7 CHECKS SWITCHES WITH GR1 HOLDING SUFFIX &GR2 POINTING AT VECTOR
  7120  ! PERM23 CHECKS 1D ARRAYS. GR1 HAS SUFFIX & GR3 POINTS TO ARRAYHEAD
  7121  ! PERM24 CHECKS MULTI-DIMENSION ARRAYS. GR1 POINT TO BACK OF LIST OF
  7122  !         SUFFICES AND GR2 POINT TO ARRAYHEAD
  7123  !
42488 @ 356907:                  LINE   7116 "regression-compile-tmp/imp918s.imp"
42489 @ 356945:                  GOTO   L_0006
42490 @ 356948:                  LOCATE L_0007

  7124              DIS=0; P=PP+2
42491 @ 356951:                  LINE   7124 "regression-compile-tmp/imp918s.imp"
42492 @ 356989:                  PUSH   DIS
42493 @ 356992:                  PUSHI  #0x00000000
42494 @ 356997:                  ASSVAL
42495 @ 356998:                  LINE   7124 "regression-compile-tmp/imp918s.imp"
42496 @ 357036:                  PUSH   P
42497 @ 357039:                  PUSH   PP
42498 @ 357042:                  PUSHI  #0x00000002
42499 @ 357047:                  ADD   
42500 @ 357048:                  ASSVAL

  7125              CLAIM THIS REG(1);         ! FORCE PRESERVATION OF CONTENTS
42501 @ 357049:                  LINE   7125 "regression-compile-tmp/imp918s.imp"
42502 @ 357087:                  PUSH   CLAIMTHISREG
42503 @ 357090:                  PUSHI  #0x00000001
42504 @ 357095:                  ASSPAR
42505 @ 357096:                  CALL  

  7126              REGISTER(1)=0
42506 @ 357097:                  LINE   7126 "regression-compile-tmp/imp918s.imp"
42507 @ 357135:                  PUSH   REGISTER
42508 @ 357138:                  PUSHI  #0x00000001
42509 @ 357143:                  ACCESS
42510 @ 357144:                  PUSHI  #0x00000000
42511 @ 357149:                  ASSVAL

  7127              %IF JJ=1 %THEN %START;     ! 1D+SWITCHES
42512 @ 357150:                  LINE   7127 "regression-compile-tmp/imp918s.imp"
42513 @ 357188:                  PUSH   JJ
42514 @ 357191:                  PUSHI  #0x00000001
42515 @ 357196:                  JUMPIF # L_000a

  7128                 CSEXP(1,1); P=P+1
42516 @ 357200:                  LINE   7128 "regression-compile-tmp/imp918s.imp"
42517 @ 357238:                  PUSH   CSEXP
42518 @ 357241:                  PUSHI  #0x00000001
42519 @ 357246:                  ASSPAR
42520 @ 357247:                  PUSHI  #0x00000001
42521 @ 357252:                  ASSPAR
42522 @ 357253:                  CALL  
42523 @ 357254:                  LINE   7128 "regression-compile-tmp/imp918s.imp"
42524 @ 357292:                  PUSH   P
42525 @ 357295:                  PUSH   P
42526 @ 357298:                  PUSHI  #0x00000001
42527 @ 357303:                  ADD   
42528 @ 357304:                  ASSVAL

  7129              %FINISH %ELSE %START
  7130                                         ! MULTI-DIMENSION 
42529 @ 357305:                  LINE   7129 "regression-compile-tmp/imp918s.imp"
42530 @ 357343:                  GOTO   L_0009
42531 @ 357346:                  LOCATE L_000a

  7131                 GET WSP(RR,JJ)
42532 @ 357349:                  LINE   7131 "regression-compile-tmp/imp918s.imp"
42533 @ 357387:                  PUSH   GETWSP
42534 @ 357390:                  PUSH   RR
42535 @ 357393:                  ASSPAR
42536 @ 357394:                  PUSH   JJ
42537 @ 357397:                  ASSPAR
42538 @ 357398:                  CALL  

  7132                 %CYCLE PP=0,1,JJ-1;     ! THROUGH LIST OF SUFFICES
42539 @ 357399:                  LINE   7132 "regression-compile-tmp/imp918s.imp"
42540 @ 357437:                  PUSH   PP
42541 @ 357440:                  PUSHI  #0x00000001
42542 @ 357445:                  PUSH   JJ
42543 @ 357448:                  PUSHI  #0x00000001
42544 @ 357453:                  SUB   
42545 @ 357454:                  PUSHI  #0x00000000
42546 @ 357459:                  FOR    L_000c

  7133                    CSEXP(-1,1); P=P+1;  ! EVALUATE SUFFIX
42547 @ 357462:                  LINE   7133 "regression-compile-tmp/imp918s.imp"
42548 @ 357500:                  PUSH   CSEXP
42549 @ 357503:                  PUSHI  #0x00000001
42550 @ 357508:                  NEGATE
42551 @ 357509:                  ASSPAR
42552 @ 357510:                  PUSHI  #0x00000001
42553 @ 357515:                  ASSPAR
42554 @ 357516:                  CALL  
42555 @ 357517:                  LINE   7133 "regression-compile-tmp/imp918s.imp"
42556 @ 357555:                  PUSH   P
42557 @ 357558:                  PUSH   P
42558 @ 357561:                  PUSHI  #0x00000001
42559 @ 357566:                  ADD   
42560 @ 357567:                  ASSVAL

  7134                    DUMP(1,NEST,RR+PP<<2,0,RBASE);! AND PUT INTO WK-AREA
42561 @ 357568:                  LINE   7134 "regression-compile-tmp/imp918s.imp"
42562 @ 357606:                  PUSH   DUMP
42563 @ 357609:                  PUSHI  #0x00000001
42564 @ 357614:                  ASSPAR
42565 @ 357615:                  PUSH   NEST
42566 @ 357618:                  ASSPAR
42567 @ 357619:                  PUSH   RR
42568 @ 357622:                  PUSH   PP
42569 @ 357625:                  PUSHI  #0x00000002
42570 @ 357630:                  LSH   
42571 @ 357631:                  ADD   
42572 @ 357632:                  ASSPAR
42573 @ 357633:                  PUSHI  #0x00000000
42574 @ 357638:                  ASSPAR
42575 @ 357639:                  PUSH   RBASE
42576 @ 357642:                  ASSPAR
42577 @ 357643:                  CALL  

  7135                 %REPEAT
42578 @ 357644:                  LINE   7135 "regression-compile-tmp/imp918s.imp"
42579 @ 357682:                  REPEAT L_000c
42580 @ 357685:                  LOCATE L_000d

  7136                 DUMP(0,1,RR+PP<<2,0,RBASE);!LA  1,<BACK OF WORK AREA>
42581 @ 357688:                  LINE   7136 "regression-compile-tmp/imp918s.imp"
42582 @ 357726:                  PUSH   DUMP
42583 @ 357729:                  PUSHI  #0x00000000
42584 @ 357734:                  ASSPAR
42585 @ 357735:                  PUSHI  #0x00000001
42586 @ 357740:                  ASSPAR
42587 @ 357741:                  PUSH   RR
42588 @ 357744:                  PUSH   PP
42589 @ 357747:                  PUSHI  #0x00000002
42590 @ 357752:                  LSH   
42591 @ 357753:                  ADD   
42592 @ 357754:                  ASSPAR
42593 @ 357755:                  PUSHI  #0x00000000
42594 @ 357760:                  ASSPAR
42595 @ 357761:                  PUSH   RBASE
42596 @ 357764:                  ASSPAR
42597 @ 357765:                  CALL  

  7137                 FORGET(1)
42598 @ 357766:                  LINE   7137 "regression-compile-tmp/imp918s.imp"
42599 @ 357804:                  PUSH   FORGET
42600 @ 357807:                  PUSHI  #0x00000001
42601 @ 357812:                  ASSPAR
42602 @ 357813:                  CALL  

  7138              %FINISH
42603 @ 357814:                  LINE   7138 "regression-compile-tmp/imp918s.imp"
42604 @ 357852:                  LOCATE L_0009

  7139              %IF JJ=1 %AND TYPEP#6 %THEN JJJ=3 %ELSE JJJ=2
42605 @ 357855:                  LINE   7139 "regression-compile-tmp/imp918s.imp"
42606 @ 357893:                  PUSH   JJ
42607 @ 357896:                  PUSHI  #0x00000001
42608 @ 357901:                  JUMPIF # L_000a
42609 @ 357905:                  PUSH   TYPEP
42610 @ 357908:                  PUSHI  #0x00000006
42611 @ 357913:                  JUMPIF = L_000a
42612 @ 357917:                  PUSH   JJJ
42613 @ 357920:                  PUSHI  #0x00000003
42614 @ 357925:                  ASSVAL
42615 @ 357926:                  GOTO   L_0009
42616 @ 357929:                  LOCATE L_000a
42617 @ 357932:                  PUSH   JJJ
42618 @ 357935:                  PUSHI  #0x00000002
42619 @ 357940:                  ASSVAL
42620 @ 357941:                  LOCATE L_0009

  7140              REGISTER(1)=1;             ! PROTECT REG ALREADY SET
42621 @ 357944:                  LINE   7140 "regression-compile-tmp/imp918s.imp"
42622 @ 357982:                  PUSH   REGISTER
42623 @ 357985:                  PUSHI  #0x00000001
42624 @ 357990:                  ACCESS
42625 @ 357991:                  PUSHI  #0x00000001
42626 @ 357996:                  ASSVAL

  7141              CLAIM THIS REG(JJJ)
42627 @ 357997:                  LINE   7141 "regression-compile-tmp/imp918s.imp"
42628 @ 358035:                  PUSH   CLAIMTHISREG
42629 @ 358038:                  PUSH   JJJ
42630 @ 358041:                  ASSPAR
42631 @ 358042:                  CALL  

  7142              REGISTER(JJJ)=0
42632 @ 358043:                  LINE   7142 "regression-compile-tmp/imp918s.imp"
42633 @ 358081:                  PUSH   REGISTER
42634 @ 358084:                  PUSH   JJJ
42635 @ 358087:                  ACCESS
42636 @ 358088:                  PUSHI  #0x00000000
42637 @ 358093:                  ASSVAL

  7143              %IF TYPEP=6 %THEN BS=0 %AND DP=BASIC DISP;!SWITCHES SPECIAL
42638 @ 358094:                  LINE   7143 "regression-compile-tmp/imp918s.imp"
42639 @ 358132:                  PUSH   TYPEP
42640 @ 358135:                  PUSHI  #0x00000006
42641 @ 358140:                  JUMPIF # L_000a
42642 @ 358144:                  PUSH   BS
42643 @ 358147:                  PUSHI  #0x00000000
42644 @ 358152:                  ASSVAL
42645 @ 358153:                  PUSH   DP
42646 @ 358156:                  PUSH   BASICDISP
42647 @ 358159:                  ASSVAL
42648 @ 358160:                  LOCATE L_000a

  7144              DUMP(0,JJJ,DP,0,BS);       ! ADDR HEAD TO GR3(1D) OR GR2(MD)
42649 @ 358163:                  LINE   7144 "regression-compile-tmp/imp918s.imp"
42650 @ 358201:                  PUSH   DUMP
42651 @ 358204:                  PUSHI  #0x00000000
42652 @ 358209:                  ASSPAR
42653 @ 358210:                  PUSH   JJJ
42654 @ 358213:                  ASSPAR
42655 @ 358214:                  PUSH   DP
42656 @ 358217:                  ASSPAR
42657 @ 358218:                  PUSHI  #0x00000000
42658 @ 358223:                  ASSPAR
42659 @ 358224:                  PUSH   BS
42660 @ 358227:                  ASSPAR
42661 @ 358228:                  CALL  

  7145              %IF TYPEP=6 %THEN PRX(X'5A',2,GLA,0,0) %AND JJJ=19
42662 @ 358229:                  LINE   7145 "regression-compile-tmp/imp918s.imp"
42663 @ 358267:                  PUSH   TYPEP
42664 @ 358270:                  PUSHI  #0x00000006
42665 @ 358275:                  JUMPIF # L_000a
42666 @ 358279:                  PUSH   PRX
42667 @ 358282:                  PUSHI  #0x0000005a
42668 @ 358287:                  ASSPAR
42669 @ 358288:                  PUSHI  #0x00000002
42670 @ 358293:                  ASSPAR
42671 @ 358294:                  PUSHI  #0x0000000d
42672 @ 358299:                  ASSPAR
42673 @ 358300:                  PUSHI  #0x00000000
42674 @ 358305:                  ASSPAR
42675 @ 358306:                  PUSHI  #0x00000000
42676 @ 358311:                  ASSPAR
42677 @ 358312:                  CALL  
42678 @ 358313:                  PUSH   JJJ
42679 @ 358316:                  PUSHI  #0x00000013
42680 @ 358321:                  ASSVAL
42681 @ 358322:                  LOCATE L_000a

  7146              REGISTER(1)=0
42682 @ 358325:                  LINE   7146 "regression-compile-tmp/imp918s.imp"
42683 @ 358363:                  PUSH   REGISTER
42684 @ 358366:                  PUSHI  #0x00000001
42685 @ 358371:                  ACCESS
42686 @ 358372:                  PUSHI  #0x00000000
42687 @ 358377:                  ASSVAL

  7147              PPJ(26-JJJ);               ! TO CHECKING SUBROUTINE
42688 @ 358378:                  LINE   7147 "regression-compile-tmp/imp918s.imp"
42689 @ 358416:                  PUSH   PPJ
42690 @ 358419:                  PUSHI  #0x0000001a
42691 @ 358424:                  PUSH   JJJ
42692 @ 358427:                  SUB   
42693 @ 358428:                  ASSPAR
42694 @ 358429:                  CALL  

  7148              BASE=15
42695 @ 358430:                  LINE   7148 "regression-compile-tmp/imp918s.imp"
42696 @ 358468:                  PUSH   BASE
42697 @ 358471:                  PUSHI  #0x0000000f
42698 @ 358476:                  ASSVAL

  7149              %IF ARRP=3 %THEN PRR(X'1A',1,15) %AND BASE=0
42699 @ 358477:                  LINE   7149 "regression-compile-tmp/imp918s.imp"
42700 @ 358515:                  PUSH   ARRP
42701 @ 358518:                  PUSHI  #0x00000003
42702 @ 358523:                  JUMPIF # L_000a
42703 @ 358527:                  PUSH   PRR
42704 @ 358530:                  PUSHI  #0x0000001a
42705 @ 358535:                  ASSPAR
42706 @ 358536:                  PUSHI  #0x00000001
42707 @ 358541:                  ASSPAR
42708 @ 358542:                  PUSHI  #0x0000000f
42709 @ 358547:                  ASSPAR
42710 @ 358548:                  CALL  
42711 @ 358549:                  PUSH   BASE
42712 @ 358552:                  PUSHI  #0x00000000
42713 @ 358557:                  ASSVAL
42714 @ 358558:                  LOCATE L_000a

  7150           %FINISH
42715 @ 358561:                  LINE   7150 "regression-compile-tmp/imp918s.imp"
42716 @ 358599:                  LOCATE L_0006

  7151           INDEX=1; DISP=0
42717 @ 358602:                  LINE   7151 "regression-compile-tmp/imp918s.imp"
42718 @ 358640:                  PUSH   INDEX
42719 @ 358643:                  PUSHI  #0x00000001
42720 @ 358648:                  ASSVAL
42721 @ 358649:                  LINE   7151 "regression-compile-tmp/imp918s.imp"
42722 @ 358687:                  PUSH   DISP
42723 @ 358690:                  PUSHI  #0x00000000
42724 @ 358695:                  ASSVAL

  7152           %FINISH
42725 @ 358696:                  LINE   7152 "regression-compile-tmp/imp918s.imp"
42726 @ 358734:                  LOCATE L_0003

  7153           ACC=ELSIZE
42727 @ 358737:                  LINE   7153 "regression-compile-tmp/imp918s.imp"
42728 @ 358775:                  PUSH   ACC
42729 @ 358778:                  PUSH   ELSIZE
42730 @ 358781:                  ASSVAL

  7154           PTYPE=PTYPEP;! UNPACK
  7155  !%if USE MC = 1 %start
  7156  !            *L_1,PTYPE; *CVD_1,0(11)
  7157  !            *UNPK_ROUT(5),5(3,11)
  7158  !            *NC_ROUT(5),MASK1
  7159  !%finish
42731 @ 358782:                  LINE   7154 "regression-compile-tmp/imp918s.imp"
42732 @ 358820:                  PUSH   PTYPE
42733 @ 358823:                  PUSH   PTYPEP
42734 @ 358826:                  ASSVAL

  7160           J=JJ
42735 @ 358827:                  LINE   7160 "regression-compile-tmp/imp918s.imp"
42736 @ 358865:                  PUSH   J
42737 @ 358868:                  PUSH   JJ
42738 @ 358871:                  ASSVAL

  7161           %END;                         ! OF ROUTINE CANAME
  7162  
42739 @ 358872:                  LINE   7161 "regression-compile-tmp/imp918s.imp"
42740 @ 358910:               END    _lev0id0_CSS_CANAME {lev=3 --> 2}

  7163  %ROUTINE CNAME(%INTEGER Z, REG)
  7164  !***********************************************************************
  7165  !*       THIS IS THE MAIN ROUTINE FOR PROCESSING NAMES.CANAME,CSNAME   *
  7166  !*       AND CRNAME ARE ONLY CALLED FROM HERE,THE NAME (AND ANY PARAMS *
  7167  !*       OR SUBNAMES) ARE INDEXED BY P WHICH IS ADVANCED.              *
  7168  !*       Z SPECIFIES ACTION AS FOLLOWS:-                               *
  7169  !*       Z=0 COMPILE A ROUTINE CALL                                    *
  7170  !*       Z=1 SET BASE,INDEX AND DISP FOR A 'STORE' OPERATION           *
  7171  !*       Z=2 FETCH NAME TO 'REG'                                       *
  7172  !*       Z=3 SET ADDR(NAME) IN REG FOR PASSING BY NAME (TOP BYTE SET)  *
  7173  !*       Z=4 AS FOR Z=3 BUT TOP BYTE MUST BE CLEAR (USED FOR 'ADDR' FN)*
  7174  !*       Z=5 IF NAME IS IN A REGISTER THEN AS Z=2 ELSE SET BASE ETC    *
  7175  !*       Z=6 STORE 'REG' (CONTAINS POINTER) INTO POINTER VARIABLE      *
  7176  !*       Z=7->Label11  NOT NOW USED                                         *
  7177  !*       Z=12 SET BASE AND DISP TO POINT TO ARRAYHEAD                  *
  7178  !*       Z=13 SET REG TO POINT TO 4 WORD ROUTINE DISCRIPTOR            *
  7179  !*              (INTERNAL ROUTINES FIRST CREATE THE DISCRIPTOR)        *
  7180  !*       Z=14 STORE 'REG' INTO A RECORD NAME VARIABLE                  *
  7181  !*       Z=15 SET 'REG' TO POINT TO A RECORD                           *
  7182  !*       Z=16 SET BASE AND DISP (BUT NOT INDEX) FOR RECORD             *
  7183  !*                                                                     *
  7184  !*       REG (WHERE APPROPRIATE) IS SET AS FOLLOWS:-                   *
  7185  !*       >=0  A REGISTER                                               *
  7186  !*       -1   MEANS CHOOSE ANY REGISTER                                *
  7187  !*       -2   MEANS CHOOSE ANY REGISTER EXCEPT GR0                     *
  7188  !*       IF A REGISTER IS CHOSEN THEN NEST IS SET WITH CHOICE          *
  7189  !***********************************************************************
42741 @ 358911:               LINE   7163 "regression-compile-tmp/imp918s.imp"
42742 @ 358949:               DEF    CNAME (_lev0id0_CSS_CNAME) p1=V_0188 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
42743 @ 358966:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
42744 @ 358967:                     DEF    Z p1=V_0203 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
42745 @ 358980:                     DEF    REG p1=V_0204 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
42746 @ 358995:                  FINISH ) {lev=3}

  7190  %INTEGER JJ, JJJ, KK, RR, LEVELP, DISPP, REGP, NAMEP, PP, SAVESL,  %C
  7191              FNAME
42747 @ 358996:                  LINE   7190 "regression-compile-tmp/imp918s.imp"
42748 @ 359034:                  DEF    JJ p1=V_0205 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
42749 @ 359048:                  DEF    JJJ p1=V_0206 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
42750 @ 359063:                  DEF    KK p1=V_0207 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
42751 @ 359077:                  DEF    RR p1=V_0208 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
42752 @ 359091:                  DEF    LEVELP p1=V_0209 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
42753 @ 359109:                  DEF    DISPP p1=V_020a 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
42754 @ 359126:                  DEF    REGP p1=V_020b 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
42755 @ 359142:                  DEF    NAMEP p1=V_020c 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
42756 @ 359159:                  DEF    PP p1=V_020d 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
42757 @ 359173:                  DEF    SAVESL p1=V_020e 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
42758 @ 359191:                  DEF    FNAME p1=V_020f 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

  7192  %LONGREAL WORK
42759 @ 359208:                  LINE   7192 "regression-compile-tmp/imp918s.imp"
42760 @ 359246:                  DEF    WORK p1=V_0210 a/tf=21 b/format=4 c/ostate=0  type=2 (real) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  7193  %SWITCH S, FUNNY(12:16), SW(0:8), MOD(0:7)
42761 @ 359262:                  LINE   7193 "regression-compile-tmp/imp918s.imp"
42762 @ 359300:                  PUSHI  #0x0000000c
42763 @ 359305:                  PUSHI  #0x00000010
42764 @ 359310:                  BOUNDS
42765 @ 359311:                  DEF    S p1=V_0211 a/tf=6 b/format=0 c/ostate=0  type=0 (<type:0>) form=6 (switch) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
42766 @ 359324:                  DEF    FUNNY p1=V_0212 a/tf=6 b/format=0 c/ostate=0  type=0 (<type:0>) form=6 (switch) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
42767 @ 359341:                  PUSHI  #0x00000000
42768 @ 359346:                  PUSHI  #0x00000008
42769 @ 359351:                  BOUNDS
42770 @ 359352:                  DEF    SW p1=V_0213 a/tf=6 b/format=0 c/ostate=0  type=0 (<type:0>) form=6 (switch) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
42771 @ 359366:                  PUSHI  #0x00000000
42772 @ 359371:                  PUSHI  #0x00000007
42773 @ 359376:                  BOUNDS
42774 @ 359377:                  DEF    MOD p1=V_0214 a/tf=6 b/format=0 c/ostate=0  type=0 (<type:0>) form=6 (switch) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  7194           FNAME=A(P)
42775 @ 359392:                  LINE   7194 "regression-compile-tmp/imp918s.imp"
42776 @ 359430:                  PUSH   FNAME
42777 @ 359433:                  PUSH   A
42778 @ 359436:                  PUSH   P
42779 @ 359439:                  ACCESS
42780 @ 359440:                  ASSVAL

  7195  Label2:       TCELL=TAGS(FNAME)
  7196  !%if USE MC = 1 %start
  7197  !         *L_1,TCELL; *LTR_1,1; *BC_8,<4>
  7198  !         *XC_PTYPE(20),PTYPE
  7199  !         *A_1,ASLIST
  7200  !         *UNPK_WORK(5),2(3,1)
  7201  !         *LH_0,0(1,0)
  7202  !         *ST_0,PTYPE
  7203  !         *MVN_USEBITS+3(1),WORK
  7204  !         *MVN_OLDI+3(1),WORK+1
  7205  !         *MVN_I+3(1),WORK+2
  7206  !         *MVN_J+3(1),WORK+3
  7207  !         *OI_2(1),X'80';                ! SET USE BIT
  7208  !         *MVC_SNDISP(8),4(1)
  7209  !         *CVD_0,WORK
  7210  !         *UNPK_ROUT(5),WORK+5(3)
  7211  !         *NC_ROUT(5),MASK1
  7212  !%finish
42781 @ 359441:                  LINE   7195 "regression-compile-tmp/imp918s.imp"
42782 @ 359479:                  LABEL  L_0215
42783 @ 359482:                  LINE   7195 "regression-compile-tmp/imp918s.imp"
42784 @ 359520:                  PUSH   TCELL
42785 @ 359523:                  PUSH   TAGS
42786 @ 359526:                  PUSH   FNAME
42787 @ 359529:                  ACCESS
42788 @ 359530:                  ASSVAL

  7213           SAVESL=ACC
42789 @ 359531:                  LINE   7213 "regression-compile-tmp/imp918s.imp"
42790 @ 359569:                  PUSH   SAVESL
42791 @ 359572:                  PUSH   ACC
42792 @ 359575:                  ASSVAL

  7214           %IF CSSMODE=0 %AND ROUT=0 %THEN OPTSAVE(2,Z,PTYPE,FNAME)
42793 @ 359576:                  LINE   7214 "regression-compile-tmp/imp918s.imp"
42794 @ 359614:                  PUSH   CSSMODE
42795 @ 359617:                  PUSHI  #0x00000000
42796 @ 359622:                  JUMPIF # L_0004
42797 @ 359626:                  PUSH   ROUT
42798 @ 359629:                  PUSHI  #0x00000000
42799 @ 359634:                  JUMPIF # L_0004
42800 @ 359638:                  PUSH   OPTSAVE
42801 @ 359641:                  PUSHI  #0x00000002
42802 @ 359646:                  ASSPAR
42803 @ 359647:                  PUSH   Z
42804 @ 359650:                  ASSPAR
42805 @ 359651:                  PUSH   PTYPE
42806 @ 359654:                  ASSPAR
42807 @ 359655:                  PUSH   FNAME
42808 @ 359658:                  ASSPAR
42809 @ 359659:                  CALL  
42810 @ 359660:                  LOCATE L_0004

  7215           ->Label3
42811 @ 359663:                  LINE   7215 "regression-compile-tmp/imp918s.imp"
42812 @ 359701:                  JUMP   L_0216

  7216  Label4:       FAULT(16, FNAME)
42813 @ 359704:                  LINE   7216 "regression-compile-tmp/imp918s.imp"
42814 @ 359742:                  LABEL  L_0217
42815 @ 359745:                  LINE   7216 "regression-compile-tmp/imp918s.imp"
42816 @ 359783:                  PUSH   FAULT
42817 @ 359786:                  PUSHI  #0x00000010
42818 @ 359791:                  ASSPAR
42819 @ 359792:                  PUSH   FNAME
42820 @ 359795:                  ASSPAR
42821 @ 359796:                  CALL  

  7217           I=LEVEL;  J=0;  K=FNAME
42822 @ 359797:                  LINE   7217 "regression-compile-tmp/imp918s.imp"
42823 @ 359835:                  PUSH   I
42824 @ 359838:                  PUSH   LEVEL
42825 @ 359841:                  ASSVAL
42826 @ 359842:                  LINE   7217 "regression-compile-tmp/imp918s.imp"
42827 @ 359880:                  PUSH   J
42828 @ 359883:                  PUSHI  #0x00000000
42829 @ 359888:                  ASSVAL
42830 @ 359889:                  LINE   7217 "regression-compile-tmp/imp918s.imp"
42831 @ 359927:                  PUSH   K
42832 @ 359930:                  PUSH   FNAME
42833 @ 359933:                  ASSVAL

  7218           PTYPE=7;  STORE TAG(K, N)
42834 @ 359934:                  LINE   7218 "regression-compile-tmp/imp918s.imp"
42835 @ 359972:                  PUSH   PTYPE
42836 @ 359975:                  PUSHI  #0x00000007
42837 @ 359980:                  ASSVAL
42838 @ 359981:                  LINE   7218 "regression-compile-tmp/imp918s.imp"
42839 @ 360019:                  PUSH   STORETAG
42840 @ 360022:                  PUSH   K
42841 @ 360025:                  ASSPAR
42842 @ 360026:                  PUSH   N
42843 @ 360029:                  ASSPAR
42844 @ 360030:                  CALL  

  7219           K=N;  N=N+4;  ->Label2
42845 @ 360031:                  LINE   7219 "regression-compile-tmp/imp918s.imp"
42846 @ 360069:                  PUSH   K
42847 @ 360072:                  PUSH   N
42848 @ 360075:                  ASSVAL
42849 @ 360076:                  LINE   7219 "regression-compile-tmp/imp918s.imp"
42850 @ 360114:                  PUSH   N
42851 @ 360117:                  PUSH   N
42852 @ 360120:                  PUSHI  #0x00000004
42853 @ 360125:                  ADD   
42854 @ 360126:                  ASSVAL
42855 @ 360127:                  LINE   7219 "regression-compile-tmp/imp918s.imp"
42856 @ 360165:                  JUMP   L_0215

  7220  Label3:       JJ=J;  JJ=0 %IF JJ=15
42857 @ 360168:                  LINE   7220 "regression-compile-tmp/imp918s.imp"
42858 @ 360206:                  LABEL  L_0216
42859 @ 360209:                  LINE   7220 "regression-compile-tmp/imp918s.imp"
42860 @ 360247:                  PUSH   JJ
42861 @ 360250:                  PUSH   J
42862 @ 360253:                  ASSVAL
42863 @ 360254:                  LINE   7220 "regression-compile-tmp/imp918s.imp"
42864 @ 360292:                  PUSH   JJ
42865 @ 360295:                  PUSHI  #0x0000000f
42866 @ 360300:                  JUMPIF # L_0004
42867 @ 360304:                  PUSH   JJ
42868 @ 360307:                  PUSHI  #0x00000000
42869 @ 360312:                  ASSVAL
42870 @ 360313:                  LOCATE L_0004

  7221           NAMEP=TCELL
42871 @ 360316:                  LINE   7221 "regression-compile-tmp/imp918s.imp"
42872 @ 360354:                  PUSH   NAMEP
42873 @ 360357:                  PUSH   TCELL
42874 @ 360360:                  ASSVAL

  7222           LEVELP=I;  DISPP=K
42875 @ 360361:                  LINE   7222 "regression-compile-tmp/imp918s.imp"
42876 @ 360399:                  PUSH   LEVELP
42877 @ 360402:                  PUSH   I
42878 @ 360405:                  ASSVAL
42879 @ 360406:                  LINE   7222 "regression-compile-tmp/imp918s.imp"
42880 @ 360444:                  PUSH   DISPP
42881 @ 360447:                  PUSH   K
42882 @ 360450:                  ASSVAL

  7223           FAULT(29, FNAME) %IF PREC>3 %AND             %C
  7224                      (Z=1 %OR ((Z=3 %OR Z=4) %AND ARR=0))    %AND REG#99
42883 @ 360451:                  LINE   7223 "regression-compile-tmp/imp918s.imp"
42884 @ 360489:                  PUSH   PREC
42885 @ 360492:                  PUSHI  #0x00000003
42886 @ 360497:                  JUMPIF <= L_0004
42887 @ 360501:                  PUSH   Z
42888 @ 360504:                  PUSHI  #0x00000001
42889 @ 360509:                  JUMPIF = L_0005
42890 @ 360513:                  PUSH   Z
42891 @ 360516:                  PUSHI  #0x00000003
42892 @ 360521:                  JUMPIF = L_0006
42893 @ 360525:                  PUSH   Z
42894 @ 360528:                  PUSHI  #0x00000004
42895 @ 360533:                  JUMPIF # L_0004
42896 @ 360537:                  LOCATE L_0006
42897 @ 360540:                  PUSH   ARR
42898 @ 360543:                  PUSHI  #0x00000000
42899 @ 360548:                  JUMPIF # L_0004
42900 @ 360552:                  LOCATE L_0005
42901 @ 360555:                  PUSH   REG
42902 @ 360558:                  PUSHI  #0x00000063
42903 @ 360563:                  JUMPIF = L_0004
42904 @ 360567:                  PUSH   FAULT
42905 @ 360570:                  PUSHI  #0x0000001d
42906 @ 360575:                  ASSPAR
42907 @ 360576:                  PUSH   FNAME
42908 @ 360579:                  ASSPAR
42909 @ 360580:                  CALL  
42910 @ 360581:                  LOCATE L_0004

  7225           PREC=PREC&3
42911 @ 360584:                  LINE   7225 "regression-compile-tmp/imp918s.imp"
42912 @ 360622:                  PUSH   PREC
42913 @ 360625:                  PUSH   PREC
42914 @ 360628:                  PUSHI  #0x00000003
42915 @ 360633:                  AND   
42916 @ 360634:                  ASSVAL

  7226           ->Label502 %IF TYPE=7
42917 @ 360635:                  LINE   7226 "regression-compile-tmp/imp918s.imp"
42918 @ 360673:                  PUSH   TYPE
42919 @ 360676:                  PUSHI  #0x00000007
42920 @ 360681:                  JUMPIF # L_0004
42921 @ 360685:                  JUMP   L_0218
42922 @ 360688:                  LOCATE L_0004

  7227           ->Label500 %IF Z=0 %AND (ROUT#1 %OR 0#TYPE#6)
42923 @ 360691:                  LINE   7227 "regression-compile-tmp/imp918s.imp"
42924 @ 360729:                  PUSH   Z
42925 @ 360732:                  PUSHI  #0x00000000
42926 @ 360737:                  JUMPIF # L_0004
42927 @ 360741:                  PUSH   ROUT
42928 @ 360744:                  PUSHI  #0x00000001
42929 @ 360749:                  JUMPIF # L_0005
42930 @ 360753:                  PUSHI  #0x00000000
42931 @ 360758:                  PUSH   TYPE
42932 @ 360761:                  JUMPIFD = L_0004
42933 @ 360765:                  PUSHI  #0x00000006
42934 @ 360770:                  JUMPIF = L_0004
42935 @ 360774:                  LOCATE L_0005
42936 @ 360777:                  JUMP   L_0219
42937 @ 360780:                  LOCATE L_0004

  7228           ->FUNNY(Z) %IF Z>=10
42938 @ 360783:                  LINE   7228 "regression-compile-tmp/imp918s.imp"
42939 @ 360821:                  PUSH   Z
42940 @ 360824:                  PUSHI  #0x0000000a
42941 @ 360829:                  JUMPIF < L_0004
42942 @ 360833:                  PUSH   Z
42943 @ 360836:                  SJUMP  530
42944 @ 360839:                  LOCATE L_0004

  7229           ->RTCALL %IF ROUT=1
42945 @ 360842:                  LINE   7229 "regression-compile-tmp/imp918s.imp"
42946 @ 360880:                  PUSH   ROUT
42947 @ 360883:                  PUSHI  #0x00000001
42948 @ 360888:                  JUMPIF # L_0004
42949 @ 360892:                  JUMP   L_021a
42950 @ 360895:                  LOCATE L_0004

  7230           ->SW(TYPE)
42951 @ 360898:                  LINE   7230 "regression-compile-tmp/imp918s.imp"
42952 @ 360936:                  PUSH   TYPE
42953 @ 360939:                  SJUMP  531

  7231  Label500:
42954 @ 360942:                  LINE   7231 "regression-compile-tmp/imp918s.imp"
42955 @ 360980:                  LABEL  L_0219

  7232           FAULT(17, FNAME) %UNLESS TYPE=7;  ->Label502
42956 @ 360983:                  LINE   7232 "regression-compile-tmp/imp918s.imp"
42957 @ 361021:                  PUSH   TYPE
42958 @ 361024:                  PUSHI  #0x00000007
42959 @ 361029:                  JUMPIF = L_0004
42960 @ 361033:                  PUSH   FAULT
42961 @ 361036:                  PUSHI  #0x00000011
42962 @ 361041:                  ASSPAR
42963 @ 361042:                  PUSH   FNAME
42964 @ 361045:                  ASSPAR
42965 @ 361046:                  CALL  
42966 @ 361047:                  LOCATE L_0004
42967 @ 361050:                  LINE   7232 "regression-compile-tmp/imp918s.imp"
42968 @ 361088:                  JUMP   L_0218

  7233  SW(6):
  7234  
42969 @ 361091:                  LINE   7233 "regression-compile-tmp/imp918s.imp"
42970 @ 361129:                  PUSHI  #0x00000006
42971 @ 361134:                  SLABEL 531

  7235  SW(4):                                  !RECORD FORMAT NAME
42972 @ 361137:                  LINE   7235 "regression-compile-tmp/imp918s.imp"
42973 @ 361175:                  PUSHI  #0x00000004
42974 @ 361180:                  SLABEL 531

  7236           FAULT(20, FNAME)
42975 @ 361183:                  LINE   7236 "regression-compile-tmp/imp918s.imp"
42976 @ 361221:                  PUSH   FAULT
42977 @ 361224:                  PUSHI  #0x00000014
42978 @ 361229:                  ASSPAR
42979 @ 361230:                  PUSH   FNAME
42980 @ 361233:                  ASSPAR
42981 @ 361234:                  CALL  

  7237  SW(7):
  7238  
42982 @ 361235:                  LINE   7237 "regression-compile-tmp/imp918s.imp"
42983 @ 361273:                  PUSHI  #0x00000007
42984 @ 361278:                  SLABEL 531

  7239  Label502:     P=P+1;                         ! NAME NOT SET
42985 @ 361281:                  LINE   7239 "regression-compile-tmp/imp918s.imp"
42986 @ 361319:                  LABEL  L_0218
42987 @ 361322:                  LINE   7239 "regression-compile-tmp/imp918s.imp"
42988 @ 361360:                  PUSH   P
42989 @ 361363:                  PUSH   P
42990 @ 361366:                  PUSHI  #0x00000001
42991 @ 361371:                  ADD   
42992 @ 361372:                  ASSVAL

  7240           NEST=0;  BASE=I;  DISP=K;  INDEX=0
42993 @ 361373:                  LINE   7240 "regression-compile-tmp/imp918s.imp"
42994 @ 361411:                  PUSH   NEST
42995 @ 361414:                  PUSHI  #0x00000000
42996 @ 361419:                  ASSVAL
42997 @ 361420:                  LINE   7240 "regression-compile-tmp/imp918s.imp"
42998 @ 361458:                  PUSH   BASE
42999 @ 361461:                  PUSH   I
43000 @ 361464:                  ASSVAL
43001 @ 361465:                  LINE   7240 "regression-compile-tmp/imp918s.imp"
43002 @ 361503:                  PUSH   DISP
43003 @ 361506:                  PUSH   K
43004 @ 361509:                  ASSVAL
43005 @ 361510:                  LINE   7240 "regression-compile-tmp/imp918s.imp"
43006 @ 361548:                  PUSH   INDEX
43007 @ 361551:                  PUSHI  #0x00000000
43008 @ 361556:                  ASSVAL

  7241           PTYPE=1; ! UNPACK
  7242  !%if USE MC = 1 %start
  7243  !            *L_1,PTYPE; *CVD_1,0(11)
  7244  !            *UNPK_ROUT(5),5(3,11)
  7245  !            *NC_ROUT(5),MASK1
  7246  !%finish
43009 @ 361557:                  LINE   7241 "regression-compile-tmp/imp918s.imp"
43010 @ 361595:                  PUSH   PTYPE
43011 @ 361598:                  PUSHI  #0x00000001
43012 @ 361603:                  ASSVAL

  7247           SKIP APP;  ->Label1
43013 @ 361604:                  LINE   7247 "regression-compile-tmp/imp918s.imp"
43014 @ 361642:                  PUSH   SKIPAPP
43015 @ 361645:                  CALL  
43016 @ 361646:                  LINE   7247 "regression-compile-tmp/imp918s.imp"
43017 @ 361684:                  JUMP   L_021b

  7248  FUNNY(12):                              ! SET BASE & DISP FOR ARRAYHEAD
43018 @ 361687:                  LINE   7248 "regression-compile-tmp/imp918s.imp"
43019 @ 361725:                  PUSHI  #0x0000000c
43020 @ 361730:                  SLABEL 530

  7249           ->SW(3) %IF TYPE=3 %AND (ARR=0 %OR A(P+1)=1)
43021 @ 361733:                  LINE   7249 "regression-compile-tmp/imp918s.imp"
43022 @ 361771:                  PUSH   TYPE
43023 @ 361774:                  PUSHI  #0x00000003
43024 @ 361779:                  JUMPIF # L_0004
43025 @ 361783:                  PUSH   ARR
43026 @ 361786:                  PUSHI  #0x00000000
43027 @ 361791:                  JUMPIF = L_0005
43028 @ 361795:                  PUSH   A
43029 @ 361798:                  PUSH   P
43030 @ 361801:                  PUSHI  #0x00000001
43031 @ 361806:                  ADD   
43032 @ 361807:                  ACCESS
43033 @ 361808:                  PUSHI  #0x00000001
43034 @ 361813:                  JUMPIF # L_0004
43035 @ 361817:                  LOCATE L_0005
43036 @ 361820:                  PUSHI  #0x00000003
43037 @ 361825:                  SJUMP  531
43038 @ 361828:                  LOCATE L_0004

  7250           ->Label1202 %IF PTYPE=SNPT
43039 @ 361831:                  LINE   7250 "regression-compile-tmp/imp918s.imp"
43040 @ 361869:                  PUSH   PTYPE
43041 @ 361872:                  PUSHI  #0x00002716
43042 @ 361877:                  JUMPIF # L_0004
43043 @ 361881:                  JUMP   L_021c
43044 @ 361884:                  LOCATE L_0004

  7251           BASE=I;  INDEX=0;  DISP=K
43045 @ 361887:                  LINE   7251 "regression-compile-tmp/imp918s.imp"
43046 @ 361925:                  PUSH   BASE
43047 @ 361928:                  PUSH   I
43048 @ 361931:                  ASSVAL
43049 @ 361932:                  LINE   7251 "regression-compile-tmp/imp918s.imp"
43050 @ 361970:                  PUSH   INDEX
43051 @ 361973:                  PUSHI  #0x00000000
43052 @ 361978:                  ASSVAL
43053 @ 361979:                  LINE   7251 "regression-compile-tmp/imp918s.imp"
43054 @ 362017:                  PUSH   DISP
43055 @ 362020:                  PUSH   K
43056 @ 362023:                  ASSVAL

  7252  S(12):                                  ! ARRAYS IN RECORDS BY NAME
43057 @ 362024:                  LINE   7252 "regression-compile-tmp/imp918s.imp"
43058 @ 362062:                  PUSHI  #0x0000000c
43059 @ 362067:                  SLABEL 529

  7253           FAULT(219, FNAME) %UNLESS INDEX=0
43060 @ 362070:                  LINE   7253 "regression-compile-tmp/imp918s.imp"
43061 @ 362108:                  PUSH   INDEX
43062 @ 362111:                  PUSHI  #0x00000000
43063 @ 362116:                  JUMPIF = L_0004
43064 @ 362120:                  PUSH   FAULT
43065 @ 362123:                  PUSHI  #0x000000db
43066 @ 362128:                  ASSPAR
43067 @ 362129:                  PUSH   FNAME
43068 @ 362132:                  ASSPAR
43069 @ 362133:                  CALL  
43070 @ 362134:                  LOCATE L_0004

  7254           %UNLESS 0<=DISP<=4095 %THEN ADJUST INDEX(0, BASE, DISP)
43071 @ 362137:                  LINE   7254 "regression-compile-tmp/imp918s.imp"
43072 @ 362175:                  PUSHI  #0x00000000
43073 @ 362180:                  PUSH   DISP
43074 @ 362183:                  JUMPIFD > L_0005
43075 @ 362187:                  PUSHI  #0x00000fff
43076 @ 362192:                  JUMPIF <= L_0004
43077 @ 362196:                  LOCATE L_0005
43078 @ 362199:                  PUSH   ADJUSTINDEX
43079 @ 362202:                  PUSHI  #0x00000000
43080 @ 362207:                  ASSPAR
43081 @ 362208:                  PUSH   BASE
43082 @ 362211:                  ASSPAR
43083 @ 362212:                  PUSH   DISP
43084 @ 362215:                  ASSPAR
43085 @ 362216:                  CALL  
43086 @ 362217:                  LOCATE L_0004

  7255           ->Label91
43087 @ 362220:                  LINE   7255 "regression-compile-tmp/imp918s.imp"
43088 @ 362258:                  JUMP   L_021d

  7256  Label1202:    CSNAME(12, REG);  ->Label91
43089 @ 362261:                  LINE   7256 "regression-compile-tmp/imp918s.imp"
43090 @ 362299:                  LABEL  L_021c
43091 @ 362302:                  LINE   7256 "regression-compile-tmp/imp918s.imp"
43092 @ 362340:                  PUSH   CSNAME
43093 @ 362343:                  PUSHI  #0x0000000c
43094 @ 362348:                  ASSPAR
43095 @ 362349:                  PUSH   REG
43096 @ 362352:                  ASSPAR
43097 @ 362353:                  CALL  
43098 @ 362354:                  LINE   7256 "regression-compile-tmp/imp918s.imp"
43099 @ 362392:                  JUMP   L_021d

  7257  FUNNY(13):                              ! LOAD ADDR FOR RT-TYPE
43100 @ 362395:                  LINE   7257 "regression-compile-tmp/imp918s.imp"
43101 @ 362433:                  PUSHI  #0x0000000d
43102 @ 362438:                  SLABEL 530

  7258           %IF PTYPE=SNPT %THEN ->Label1302
43103 @ 362441:                  LINE   7258 "regression-compile-tmp/imp918s.imp"
43104 @ 362479:                  PUSH   PTYPE
43105 @ 362482:                  PUSHI  #0x00002716
43106 @ 362487:                  JUMPIF # L_0004
43107 @ 362491:                  JUMP   L_021e
43108 @ 362494:                  LOCATE L_0004

  7259           ->Label500 %UNLESS ROUT=1
43109 @ 362497:                  LINE   7259 "regression-compile-tmp/imp918s.imp"
43110 @ 362535:                  PUSH   ROUT
43111 @ 362538:                  PUSHI  #0x00000001
43112 @ 362543:                  JUMPIF = L_0004
43113 @ 362547:                  JUMP   L_0219
43114 @ 362550:                  LOCATE L_0004

  7260           DISP=4*(SNDISP&X'FFFF')
43115 @ 362553:                  LINE   7260 "regression-compile-tmp/imp918s.imp"
43116 @ 362591:                  PUSH   DISP
43117 @ 362594:                  PUSHI  #0x00000004
43118 @ 362599:                  PUSH   SNDISP
43119 @ 362602:                  PUSHI  #0x0000ffff
43120 @ 362607:                  AND   
43121 @ 362608:                  MUL   
43122 @ 362609:                  ASSVAL

  7261           %IF NAM&1#0 %THEN %START
43123 @ 362610:                  LINE   7261 "regression-compile-tmp/imp918s.imp"
43124 @ 362648:                  PUSH   NAM
43125 @ 362651:                  PUSHI  #0x00000001
43126 @ 362656:                  AND   
43127 @ 362657:                  PUSHI  #0x00000000
43128 @ 362662:                  JUMPIF = L_0004

  7262              BASE=I; JJJ=X'58'
43129 @ 362666:                  LINE   7262 "regression-compile-tmp/imp918s.imp"
43130 @ 362704:                  PUSH   BASE
43131 @ 362707:                  PUSH   I
43132 @ 362710:                  ASSVAL
43133 @ 362711:                  LINE   7262 "regression-compile-tmp/imp918s.imp"
43134 @ 362749:                  PUSH   JJJ
43135 @ 362752:                  PUSHI  #0x00000058
43136 @ 362757:                  ASSVAL

  7263           %FINISH %ELSE %START
43137 @ 362758:                  LINE   7263 "regression-compile-tmp/imp918s.imp"
43138 @ 362796:                  GOTO   L_0003
43139 @ 362799:                  LOCATE L_0004

  7264              %IF J=14 %THEN BASE=GLA %ELSE %START;! INTERNAL
43140 @ 362802:                  LINE   7264 "regression-compile-tmp/imp918s.imp"
43141 @ 362840:                  PUSH   J
43142 @ 362843:                  PUSHI  #0x0000000e
43143 @ 362848:                  JUMPIF # L_0007
43144 @ 362852:                  PUSH   BASE
43145 @ 362855:                  PUSHI  #0x0000000d
43146 @ 362860:                  ASSVAL
43147 @ 362861:                  GOTO   L_0006
43148 @ 362864:                  LOCATE L_0007

  7265                 GET WSP(DISP, 4)
43149 @ 362867:                  LINE   7265 "regression-compile-tmp/imp918s.imp"
43150 @ 362905:                  PUSH   GETWSP
43151 @ 362908:                  PUSH   DISP
43152 @ 362911:                  ASSPAR
43153 @ 362912:                  PUSHI  #0x00000004
43154 @ 362917:                  ASSPAR
43155 @ 362918:                  CALL  

  7266                 JJJ=14;  %IF REGISTER(14)#0 %THEN FIND REG(GR1, JJJ)
43156 @ 362919:                  LINE   7266 "regression-compile-tmp/imp918s.imp"
43157 @ 362957:                  PUSH   JJJ
43158 @ 362960:                  PUSHI  #0x0000000e
43159 @ 362965:                  ASSVAL
43160 @ 362966:                  LINE   7266 "regression-compile-tmp/imp918s.imp"
43161 @ 363004:                  PUSH   REGISTER
43162 @ 363007:                  PUSHI  #0x0000000e
43163 @ 363012:                  ACCESS
43164 @ 363013:                  PUSHI  #0x00000000
43165 @ 363018:                  JUMPIF = L_000a
43166 @ 363022:                  PUSH   FINDREG
43167 @ 363025:                  PUSHI  #0x0001010f
43168 @ 363030:                  ASSPAR
43169 @ 363031:                  PUSH   JJJ
43170 @ 363034:                  ASSPAR
43171 @ 363035:                  CALL  
43172 @ 363036:                  LOCATE L_000a

  7267                 RT JUMP(X'41', JJJ, TCELL, JJJ)
43173 @ 363039:                  LINE   7267 "regression-compile-tmp/imp918s.imp"
43174 @ 363077:                  PUSH   RTJUMP
43175 @ 363080:                  PUSHI  #0x00000041
43176 @ 363085:                  ASSPAR
43177 @ 363086:                  PUSH   JJJ
43178 @ 363089:                  ASSPAR
43179 @ 363090:                  PUSH   TCELL
43180 @ 363093:                  ASSPAR
43181 @ 363094:                  PUSH   JJJ
43182 @ 363097:                  ASSPAR
43183 @ 363098:                  CALL  

  7268                 DUMPM(X'90', 12, 13, RBASE, DISP)
43184 @ 363099:                  LINE   7268 "regression-compile-tmp/imp918s.imp"
43185 @ 363137:                  PUSH   DUMPM
43186 @ 363140:                  PUSHI  #0x00000090
43187 @ 363145:                  ASSPAR
43188 @ 363146:                  PUSHI  #0x0000000c
43189 @ 363151:                  ASSPAR
43190 @ 363152:                  PUSHI  #0x0000000d
43191 @ 363157:                  ASSPAR
43192 @ 363158:                  PUSH   RBASE
43193 @ 363161:                  ASSPAR
43194 @ 363162:                  PUSH   DISP
43195 @ 363165:                  ASSPAR
43196 @ 363166:                  CALL  

  7269                 PRX(X'50', JJJ, 0, RBASE, DISP+8)
43197 @ 363167:                  LINE   7269 "regression-compile-tmp/imp918s.imp"
43198 @ 363205:                  PUSH   PRX
43199 @ 363208:                  PUSHI  #0x00000050
43200 @ 363213:                  ASSPAR
43201 @ 363214:                  PUSH   JJJ
43202 @ 363217:                  ASSPAR
43203 @ 363218:                  PUSHI  #0x00000000
43204 @ 363223:                  ASSPAR
43205 @ 363224:                  PUSH   RBASE
43206 @ 363227:                  ASSPAR
43207 @ 363228:                  PUSH   DISP
43208 @ 363231:                  PUSHI  #0x00000008
43209 @ 363236:                  ADD   
43210 @ 363237:                  ASSPAR
43211 @ 363238:                  CALL  

  7270                 PRX(X'50', WSPR, 0, RBASE, DISP+12)
43212 @ 363239:                  LINE   7270 "regression-compile-tmp/imp918s.imp"
43213 @ 363277:                  PUSH   PRX
43214 @ 363280:                  PUSHI  #0x00000050
43215 @ 363285:                  ASSPAR
43216 @ 363286:                  PUSHI  #0x0000000b
43217 @ 363291:                  ASSPAR
43218 @ 363292:                  PUSHI  #0x00000000
43219 @ 363297:                  ASSPAR
43220 @ 363298:                  PUSH   RBASE
43221 @ 363301:                  ASSPAR
43222 @ 363302:                  PUSH   DISP
43223 @ 363305:                  PUSHI  #0x0000000c
43224 @ 363310:                  ADD   
43225 @ 363311:                  ASSPAR
43226 @ 363312:                  CALL  

  7271                 BASE=RBASE
43227 @ 363313:                  LINE   7271 "regression-compile-tmp/imp918s.imp"
43228 @ 363351:                  PUSH   BASE
43229 @ 363354:                  PUSH   RBASE
43230 @ 363357:                  ASSVAL

  7272                 FORGET(JJJ)
43231 @ 363358:                  LINE   7272 "regression-compile-tmp/imp918s.imp"
43232 @ 363396:                  PUSH   FORGET
43233 @ 363399:                  PUSH   JJJ
43234 @ 363402:                  ASSPAR
43235 @ 363403:                  CALL  

  7273              %FINISH
43236 @ 363404:                  LINE   7273 "regression-compile-tmp/imp918s.imp"
43237 @ 363442:                  LOCATE L_0006

  7274              JJJ=X'41'
43238 @ 363445:                  LINE   7274 "regression-compile-tmp/imp918s.imp"
43239 @ 363483:                  PUSH   JJJ
43240 @ 363486:                  PUSHI  #0x00000041
43241 @ 363491:                  ASSVAL

  7275           %FINISH
43242 @ 363492:                  LINE   7275 "regression-compile-tmp/imp918s.imp"
43243 @ 363530:                  LOCATE L_0003

  7276           DUMP(JJJ, REG, DISP, 0, BASE)
43244 @ 363533:                  LINE   7276 "regression-compile-tmp/imp918s.imp"
43245 @ 363571:                  PUSH   DUMP
43246 @ 363574:                  PUSH   JJJ
43247 @ 363577:                  ASSPAR
43248 @ 363578:                  PUSH   REG
43249 @ 363581:                  ASSPAR
43250 @ 363582:                  PUSH   DISP
43251 @ 363585:                  ASSPAR
43252 @ 363586:                  PUSHI  #0x00000000
43253 @ 363591:                  ASSPAR
43254 @ 363592:                  PUSH   BASE
43255 @ 363595:                  ASSPAR
43256 @ 363596:                  CALL  

  7277           NEST=REG %IF REG>=0;  ->Label91
43257 @ 363597:                  LINE   7277 "regression-compile-tmp/imp918s.imp"
43258 @ 363635:                  PUSH   REG
43259 @ 363638:                  PUSHI  #0x00000000
43260 @ 363643:                  JUMPIF < L_0004
43261 @ 363647:                  PUSH   NEST
43262 @ 363650:                  PUSH   REG
43263 @ 363653:                  ASSVAL
43264 @ 363654:                  LOCATE L_0004
43265 @ 363657:                  LINE   7277 "regression-compile-tmp/imp918s.imp"
43266 @ 363695:                  JUMP   L_021d

  7278  Label1302:    CSNAME(Z, REG);  ->Label6
43267 @ 363698:                  LINE   7278 "regression-compile-tmp/imp918s.imp"
43268 @ 363736:                  LABEL  L_021e
43269 @ 363739:                  LINE   7278 "regression-compile-tmp/imp918s.imp"
43270 @ 363777:                  PUSH   CSNAME
43271 @ 363780:                  PUSH   Z
43272 @ 363783:                  ASSPAR
43273 @ 363784:                  PUSH   REG
43274 @ 363787:                  ASSPAR
43275 @ 363788:                  CALL  
43276 @ 363789:                  LINE   7278 "regression-compile-tmp/imp918s.imp"
43277 @ 363827:                  JUMP   L_021f

  7279  S(14):   FAULT(67, FNAME) %UNLESS TYPE=3 %AND ARR=0
43278 @ 363830:                  LINE   7279 "regression-compile-tmp/imp918s.imp"
43279 @ 363868:                  PUSHI  #0x0000000e
43280 @ 363873:                  SLABEL 529
43281 @ 363876:                  LINE   7279 "regression-compile-tmp/imp918s.imp"
43282 @ 363914:                  PUSH   TYPE
43283 @ 363917:                  PUSHI  #0x00000003
43284 @ 363922:                  JUMPIF # L_0005
43285 @ 363926:                  PUSH   ARR
43286 @ 363929:                  PUSHI  #0x00000000
43287 @ 363934:                  JUMPIF = L_0004
43288 @ 363938:                  LOCATE L_0005
43289 @ 363941:                  PUSH   FAULT
43290 @ 363944:                  PUSHI  #0x00000043
43291 @ 363949:                  ASSPAR
43292 @ 363950:                  PUSH   FNAME
43293 @ 363953:                  ASSPAR
43294 @ 363954:                  CALL  
43295 @ 363955:                  LOCATE L_0004

  7280           P=P-2;  ->Label602
43296 @ 363958:                  LINE   7280 "regression-compile-tmp/imp918s.imp"
43297 @ 363996:                  PUSH   P
43298 @ 363999:                  PUSH   P
43299 @ 364002:                  PUSHI  #0x00000002
43300 @ 364007:                  SUB   
43301 @ 364008:                  ASSVAL
43302 @ 364009:                  LINE   7280 "regression-compile-tmp/imp918s.imp"
43303 @ 364047:                  JUMP   L_0220

  7281  Label1401:    FAULT(67, FNAME) %UNLESS TYPE=7;  ->Label502
43304 @ 364050:                  LINE   7281 "regression-compile-tmp/imp918s.imp"
43305 @ 364088:                  LABEL  L_0221
43306 @ 364091:                  LINE   7281 "regression-compile-tmp/imp918s.imp"
43307 @ 364129:                  PUSH   TYPE
43308 @ 364132:                  PUSHI  #0x00000007
43309 @ 364137:                  JUMPIF = L_0004
43310 @ 364141:                  PUSH   FAULT
43311 @ 364144:                  PUSHI  #0x00000043
43312 @ 364149:                  ASSPAR
43313 @ 364150:                  PUSH   FNAME
43314 @ 364153:                  ASSPAR
43315 @ 364154:                  CALL  
43316 @ 364155:                  LOCATE L_0004
43317 @ 364158:                  LINE   7281 "regression-compile-tmp/imp918s.imp"
43318 @ 364196:                  JUMP   L_0218

  7282  S(16):
  7283  
43319 @ 364199:                  LINE   7282 "regression-compile-tmp/imp918s.imp"
43320 @ 364237:                  PUSHI  #0x00000010
43321 @ 364242:                  SLABEL 529

  7284  S(15):   ->Label1401 %UNLESS TYPE=3
43322 @ 364245:                  LINE   7284 "regression-compile-tmp/imp918s.imp"
43323 @ 364283:                  PUSHI  #0x0000000f
43324 @ 364288:                  SLABEL 529
43325 @ 364291:                  LINE   7284 "regression-compile-tmp/imp918s.imp"
43326 @ 364329:                  PUSH   TYPE
43327 @ 364332:                  PUSHI  #0x00000003
43328 @ 364337:                  JUMPIF = L_0004
43329 @ 364341:                  JUMP   L_0221
43330 @ 364344:                  LOCATE L_0004

  7285           P=P+1
43331 @ 364347:                  LINE   7285 "regression-compile-tmp/imp918s.imp"
43332 @ 364385:                  PUSH   P
43333 @ 364388:                  PUSH   P
43334 @ 364391:                  PUSHI  #0x00000001
43335 @ 364396:                  ADD   
43336 @ 364397:                  ASSVAL

  7286           %IF Z=16 %AND INDEX=0 %AND DISP<=4095 %AND NAM=0 %THEN ->Label9005
43337 @ 364398:                  LINE   7286 "regression-compile-tmp/imp918s.imp"
43338 @ 364436:                  PUSH   Z
43339 @ 364439:                  PUSHI  #0x00000010
43340 @ 364444:                  JUMPIF # L_0004
43341 @ 364448:                  PUSH   INDEX
43342 @ 364451:                  PUSHI  #0x00000000
43343 @ 364456:                  JUMPIF # L_0004
43344 @ 364460:                  PUSH   DISP
43345 @ 364463:                  PUSHI  #0x00000fff
43346 @ 364468:                  JUMPIF > L_0004
43347 @ 364472:                  PUSH   NAM
43348 @ 364475:                  PUSHI  #0x00000000
43349 @ 364480:                  JUMPIF # L_0004
43350 @ 364484:                  JUMP   L_0222
43351 @ 364487:                  LOCATE L_0004

  7287           P=P-3;  KK=3;  ->Label605 %IF Z=15
43352 @ 364490:                  LINE   7287 "regression-compile-tmp/imp918s.imp"
43353 @ 364528:                  PUSH   P
43354 @ 364531:                  PUSH   P
43355 @ 364534:                  PUSHI  #0x00000003
43356 @ 364539:                  SUB   
43357 @ 364540:                  ASSVAL
43358 @ 364541:                  LINE   7287 "regression-compile-tmp/imp918s.imp"
43359 @ 364579:                  PUSH   KK
43360 @ 364582:                  PUSHI  #0x00000003
43361 @ 364587:                  ASSVAL
43362 @ 364588:                  LINE   7287 "regression-compile-tmp/imp918s.imp"
43363 @ 364626:                  PUSH   Z
43364 @ 364629:                  PUSHI  #0x0000000f
43365 @ 364634:                  JUMPIF # L_0004
43366 @ 364638:                  JUMP   L_0223
43367 @ 364641:                  LOCATE L_0004

  7288           KK=1;  ->Label605 %IF NAM=1
43368 @ 364644:                  LINE   7288 "regression-compile-tmp/imp918s.imp"
43369 @ 364682:                  PUSH   KK
43370 @ 364685:                  PUSHI  #0x00000001
43371 @ 364690:                  ASSVAL
43372 @ 364691:                  LINE   7288 "regression-compile-tmp/imp918s.imp"
43373 @ 364729:                  PUSH   NAM
43374 @ 364732:                  PUSHI  #0x00000001
43375 @ 364737:                  JUMPIF # L_0004
43376 @ 364741:                  JUMP   L_0223
43377 @ 364744:                  LOCATE L_0004

  7289           DUMP(0, REG, DISP, INDEX, BASE)
43378 @ 364747:                  LINE   7289 "regression-compile-tmp/imp918s.imp"
43379 @ 364785:                  PUSH   DUMP
43380 @ 364788:                  PUSHI  #0x00000000
43381 @ 364793:                  ASSPAR
43382 @ 364794:                  PUSH   REG
43383 @ 364797:                  ASSPAR
43384 @ 364798:                  PUSH   DISP
43385 @ 364801:                  ASSPAR
43386 @ 364802:                  PUSH   INDEX
43387 @ 364805:                  ASSPAR
43388 @ 364806:                  PUSH   BASE
43389 @ 364809:                  ASSPAR
43390 @ 364810:                  CALL  

  7290           REG=NEST %IF REG<0
43391 @ 364811:                  LINE   7290 "regression-compile-tmp/imp918s.imp"
43392 @ 364849:                  PUSH   REG
43393 @ 364852:                  PUSHI  #0x00000000
43394 @ 364857:                  JUMPIF >= L_0004
43395 @ 364861:                  PUSH   REG
43396 @ 364864:                  PUSH   NEST
43397 @ 364867:                  ASSVAL
43398 @ 364868:                  LOCATE L_0004

  7291           DISP=0;  INDEX=0;  BASE=REG
43399 @ 364871:                  LINE   7291 "regression-compile-tmp/imp918s.imp"
43400 @ 364909:                  PUSH   DISP
43401 @ 364912:                  PUSHI  #0x00000000
43402 @ 364917:                  ASSVAL
43403 @ 364918:                  LINE   7291 "regression-compile-tmp/imp918s.imp"
43404 @ 364956:                  PUSH   INDEX
43405 @ 364959:                  PUSHI  #0x00000000
43406 @ 364964:                  ASSVAL
43407 @ 364965:                  LINE   7291 "regression-compile-tmp/imp918s.imp"
43408 @ 365003:                  PUSH   BASE
43409 @ 365006:                  PUSH   REG
43410 @ 365009:                  ASSVAL

  7292           FORGET(REG);  P=P+3;  ->Label9005
43411 @ 365010:                  LINE   7292 "regression-compile-tmp/imp918s.imp"
43412 @ 365048:                  PUSH   FORGET
43413 @ 365051:                  PUSH   REG
43414 @ 365054:                  ASSPAR
43415 @ 365055:                  CALL  
43416 @ 365056:                  LINE   7292 "regression-compile-tmp/imp918s.imp"
43417 @ 365094:                  PUSH   P
43418 @ 365097:                  PUSH   P
43419 @ 365100:                  PUSHI  #0x00000003
43420 @ 365105:                  ADD   
43421 @ 365106:                  ASSVAL
43422 @ 365107:                  LINE   7292 "regression-compile-tmp/imp918s.imp"
43423 @ 365145:                  JUMP   L_0222

  7293  FUNNY(15):                              ! FETCH RECORD NAME
43424 @ 365148:                  LINE   7293 "regression-compile-tmp/imp918s.imp"
43425 @ 365186:                  PUSHI  #0x0000000f
43426 @ 365191:                  SLABEL 530

  7294           ->Label1302 %IF PTYPE=SNPT
43427 @ 365194:                  LINE   7294 "regression-compile-tmp/imp918s.imp"
43428 @ 365232:                  PUSH   PTYPE
43429 @ 365235:                  PUSHI  #0x00002716
43430 @ 365240:                  JUMPIF # L_0004
43431 @ 365244:                  JUMP   L_021e
43432 @ 365247:                  LOCATE L_0004

  7295  FUNNY(16):                              ! SET BASE & DISP
43433 @ 365250:                  LINE   7295 "regression-compile-tmp/imp918s.imp"
43434 @ 365288:                  PUSHI  #0x00000010
43435 @ 365293:                  SLABEL 530

  7296  FUNNY(14):                              ! STORE INTO RECORD NAME
43436 @ 365296:                  LINE   7296 "regression-compile-tmp/imp918s.imp"
43437 @ 365334:                  PUSHI  #0x0000000e
43438 @ 365339:                  SLABEL 530

  7297           PP=P;  ->Label1401 %UNLESS TYPE=3
43439 @ 365342:                  LINE   7297 "regression-compile-tmp/imp918s.imp"
43440 @ 365380:                  PUSH   PP
43441 @ 365383:                  PUSH   P
43442 @ 365386:                  ASSVAL
43443 @ 365387:                  LINE   7297 "regression-compile-tmp/imp918s.imp"
43444 @ 365425:                  PUSH   TYPE
43445 @ 365428:                  PUSHI  #0x00000003
43446 @ 365433:                  JUMPIF = L_0004
43447 @ 365437:                  JUMP   L_0221
43448 @ 365440:                  LOCATE L_0004

  7298  SW(3):                                 ! RECORD
43449 @ 365443:                  LINE   7298 "regression-compile-tmp/imp918s.imp"
43450 @ 365481:                  PUSHI  #0x00000003
43451 @ 365486:                  SLABEL 531

  7299           %IF NAM=1 %AND ARR=0 %THEN JJJ=1 %ELSE JJJ=0
43452 @ 365489:                  LINE   7299 "regression-compile-tmp/imp918s.imp"
43453 @ 365527:                  PUSH   NAM
43454 @ 365530:                  PUSHI  #0x00000001
43455 @ 365535:                  JUMPIF # L_0004
43456 @ 365539:                  PUSH   ARR
43457 @ 365542:                  PUSHI  #0x00000000
43458 @ 365547:                  JUMPIF # L_0004
43459 @ 365551:                  PUSH   JJJ
43460 @ 365554:                  PUSHI  #0x00000001
43461 @ 365559:                  ASSVAL
43462 @ 365560:                  GOTO   L_0003
43463 @ 365563:                  LOCATE L_0004
43464 @ 365566:                  PUSH   JJJ
43465 @ 365569:                  PUSHI  #0x00000000
43466 @ 365574:                  ASSVAL
43467 @ 365575:                  LOCATE L_0003

  7300           CRNAME(Z, REG, JJJ, NAMEP, I, 0, K)
43468 @ 365578:                  LINE   7300 "regression-compile-tmp/imp918s.imp"
43469 @ 365616:                  PUSH   CRNAME
43470 @ 365619:                  PUSH   Z
43471 @ 365622:                  ASSPAR
43472 @ 365623:                  PUSH   REG
43473 @ 365626:                  ASSPAR
43474 @ 365627:                  PUSH   JJJ
43475 @ 365630:                  ASSPAR
43476 @ 365631:                  PUSH   NAMEP
43477 @ 365634:                  ASSPAR
43478 @ 365635:                  PUSH   I
43479 @ 365638:                  ASSPAR
43480 @ 365639:                  PUSHI  #0x00000000
43481 @ 365644:                  ASSPAR
43482 @ 365645:                  PUSH   K
43483 @ 365648:                  ASSPAR
43484 @ 365649:                  CALL  

  7301           ->S(Z) %IF Z>=10
43485 @ 365650:                  LINE   7301 "regression-compile-tmp/imp918s.imp"
43486 @ 365688:                  PUSH   Z
43487 @ 365691:                  PUSHI  #0x0000000a
43488 @ 365696:                  JUMPIF < L_0004
43489 @ 365700:                  PUSH   Z
43490 @ 365703:                  SJUMP  529
43491 @ 365706:                  LOCATE L_0004

  7302           ->Label5020 %IF TYPE=5
43492 @ 365709:                  LINE   7302 "regression-compile-tmp/imp918s.imp"
43493 @ 365747:                  PUSH   TYPE
43494 @ 365750:                  PUSHI  #0x00000005
43495 @ 365755:                  JUMPIF # L_0004
43496 @ 365759:                  JUMP   L_0224
43497 @ 365762:                  LOCATE L_0004

  7303           ->Label502 %IF TYPE=7
43498 @ 365765:                  LINE   7303 "regression-compile-tmp/imp918s.imp"
43499 @ 365803:                  PUSH   TYPE
43500 @ 365806:                  PUSHI  #0x00000007
43501 @ 365811:                  JUMPIF # L_0004
43502 @ 365815:                  JUMP   L_0218
43503 @ 365818:                  LOCATE L_0004

  7304           ->Label601
43504 @ 365821:                  LINE   7304 "regression-compile-tmp/imp918s.imp"
43505 @ 365859:                  JUMP   L_0225

  7305  SW(5):                                  ! TYPE =STRING
  7306  !        1) STRINGS ARE NEVER IN REGISTERS
  7307  !        2) BML &DML MUST BE SET ON Z=1
  7308  !        3) TOP BYTE MUST BE SET ON Z=3
  7309  !        4) TOP BYTE MUST BE CLEARED  ON Z=4
43506 @ 365862:                  LINE   7305 "regression-compile-tmp/imp918s.imp"
43507 @ 365900:                  PUSHI  #0x00000005
43508 @ 365905:                  SLABEL 531

  7310           ->STRARR %IF ARR>=1
43509 @ 365908:                  LINE   7310 "regression-compile-tmp/imp918s.imp"
43510 @ 365946:                  PUSH   ARR
43511 @ 365949:                  PUSHI  #0x00000001
43512 @ 365954:                  JUMPIF < L_0004
43513 @ 365958:                  JUMP   L_0226
43514 @ 365961:                  LOCATE L_0004

  7311           BASE=I;  INDEX=0;  DISP=K
43515 @ 365964:                  LINE   7311 "regression-compile-tmp/imp918s.imp"
43516 @ 366002:                  PUSH   BASE
43517 @ 366005:                  PUSH   I
43518 @ 366008:                  ASSVAL
43519 @ 366009:                  LINE   7311 "regression-compile-tmp/imp918s.imp"
43520 @ 366047:                  PUSH   INDEX
43521 @ 366050:                  PUSHI  #0x00000000
43522 @ 366055:                  ASSVAL
43523 @ 366056:                  LINE   7311 "regression-compile-tmp/imp918s.imp"
43524 @ 366094:                  PUSH   DISP
43525 @ 366097:                  PUSH   K
43526 @ 366100:                  ASSVAL

  7312  Label5001:    %IF NAM=1 %THEN %START
43527 @ 366101:                  LINE   7312 "regression-compile-tmp/imp918s.imp"
43528 @ 366139:                  LABEL  L_0227
43529 @ 366142:                  LINE   7312 "regression-compile-tmp/imp918s.imp"
43530 @ 366180:                  PUSH   NAM
43531 @ 366183:                  PUSHI  #0x00000001
43532 @ 366188:                  JUMPIF # L_0004

  7313              BML=BASE;  DML=DISP;        ! LMAX IN TOP BYTE OF POINTER
43533 @ 366192:                  LINE   7313 "regression-compile-tmp/imp918s.imp"
43534 @ 366230:                  PUSH   BML
43535 @ 366233:                  PUSH   BASE
43536 @ 366236:                  ASSVAL
43537 @ 366237:                  LINE   7313 "regression-compile-tmp/imp918s.imp"
43538 @ 366275:                  PUSH   DML
43539 @ 366278:                  PUSH   DISP
43540 @ 366281:                  ASSVAL

  7314           %FINISH %ELSE %START
43541 @ 366282:                  LINE   7314 "regression-compile-tmp/imp918s.imp"
43542 @ 366320:                  GOTO   L_0003
43543 @ 366323:                  LOCATE L_0004

  7315              BML=-1;  DML=SAVESL-1
43544 @ 366326:                  LINE   7315 "regression-compile-tmp/imp918s.imp"
43545 @ 366364:                  PUSH   BML
43546 @ 366367:                  PUSHI  #0x00000001
43547 @ 366372:                  NEGATE
43548 @ 366373:                  ASSVAL
43549 @ 366374:                  LINE   7315 "regression-compile-tmp/imp918s.imp"
43550 @ 366412:                  PUSH   DML
43551 @ 366415:                  PUSH   SAVESL
43552 @ 366418:                  PUSHI  #0x00000001
43553 @ 366423:                  SUB   
43554 @ 366424:                  ASSVAL

  7316           %FINISH
43555 @ 366425:                  LINE   7316 "regression-compile-tmp/imp918s.imp"
43556 @ 366463:                  LOCATE L_0003

  7317  Label5002:    ->Label601 %UNLESS Z=3 %AND NAM=0
43557 @ 366466:                  LINE   7317 "regression-compile-tmp/imp918s.imp"
43558 @ 366504:                  LABEL  L_0228
43559 @ 366507:                  LINE   7317 "regression-compile-tmp/imp918s.imp"
43560 @ 366545:                  PUSH   Z
43561 @ 366548:                  PUSHI  #0x00000003
43562 @ 366553:                  JUMPIF # L_0005
43563 @ 366557:                  PUSH   NAM
43564 @ 366560:                  PUSHI  #0x00000000
43565 @ 366565:                  JUMPIF = L_0004
43566 @ 366569:                  LOCATE L_0005
43567 @ 366572:                  JUMP   L_0225
43568 @ 366575:                  LOCATE L_0004

  7318           DUMP(0, REG, DISP, INDEX, BASE)
43569 @ 366578:                  LINE   7318 "regression-compile-tmp/imp918s.imp"
43570 @ 366616:                  PUSH   DUMP
43571 @ 366619:                  PUSHI  #0x00000000
43572 @ 366624:                  ASSPAR
43573 @ 366625:                  PUSH   REG
43574 @ 366628:                  ASSPAR
43575 @ 366629:                  PUSH   DISP
43576 @ 366632:                  ASSPAR
43577 @ 366633:                  PUSH   INDEX
43578 @ 366636:                  ASSPAR
43579 @ 366637:                  PUSH   BASE
43580 @ 366640:                  ASSPAR
43581 @ 366641:                  CALL  

  7319           REG=NEST %IF REG<0
43582 @ 366642:                  LINE   7319 "regression-compile-tmp/imp918s.imp"
43583 @ 366680:                  PUSH   REG
43584 @ 366683:                  PUSHI  #0x00000000
43585 @ 366688:                  JUMPIF >= L_0004
43586 @ 366692:                  PUSH   REG
43587 @ 366695:                  PUSH   NEST
43588 @ 366698:                  ASSVAL
43589 @ 366699:                  LOCATE L_0004

  7320           FORGET(REG);  JJJ=DML<<24
43590 @ 366702:                  LINE   7320 "regression-compile-tmp/imp918s.imp"
43591 @ 366740:                  PUSH   FORGET
43592 @ 366743:                  PUSH   REG
43593 @ 366746:                  ASSPAR
43594 @ 366747:                  CALL  
43595 @ 366748:                  LINE   7320 "regression-compile-tmp/imp918s.imp"
43596 @ 366786:                  PUSH   JJJ
43597 @ 366789:                  PUSH   DML
43598 @ 366792:                  PUSHI  #0x00000018
43599 @ 366797:                  LSH   
43600 @ 366798:                  ASSVAL

  7321           STORE CONST(JJ, KK, 4, ADDR(JJJ))
43601 @ 366799:                  LINE   7321 "regression-compile-tmp/imp918s.imp"
43602 @ 366837:                  PUSH   STORECONST
43603 @ 366840:                  PUSH   JJ
43604 @ 366843:                  ASSPAR
43605 @ 366844:                  PUSH   KK
43606 @ 366847:                  ASSPAR
43607 @ 366848:                  PUSHI  #0x00000004
43608 @ 366853:                  ASSPAR
43609 @ 366854:                  PUSH   ADDR
43610 @ 366857:                  PUSH   JJJ
43611 @ 366860:                  ASSPAR
43612 @ 366861:                  CALL  
43613 @ 366862:                  ASSPAR
43614 @ 366863:                  CALL  

  7322           REGP=REGISTER(REG); REGISTER(REG)=1
43615 @ 366864:                  LINE   7322 "regression-compile-tmp/imp918s.imp"
43616 @ 366902:                  PUSH   REGP
43617 @ 366905:                  PUSH   REGISTER
43618 @ 366908:                  PUSH   REG
43619 @ 366911:                  ACCESS
43620 @ 366912:                  ASSVAL
43621 @ 366913:                  LINE   7322 "regression-compile-tmp/imp918s.imp"
43622 @ 366951:                  PUSH   REGISTER
43623 @ 366954:                  PUSH   REG
43624 @ 366957:                  ACCESS
43625 @ 366958:                  PUSHI  #0x00000001
43626 @ 366963:                  ASSVAL

  7323           DUMP(X'56', REG, KK, 0, JJ);   !  0  REG,=MAXL<<24
43627 @ 366964:                  LINE   7323 "regression-compile-tmp/imp918s.imp"
43628 @ 367002:                  PUSH   DUMP
43629 @ 367005:                  PUSHI  #0x00000056
43630 @ 367010:                  ASSPAR
43631 @ 367011:                  PUSH   REG
43632 @ 367014:                  ASSPAR
43633 @ 367015:                  PUSH   KK
43634 @ 367018:                  ASSPAR
43635 @ 367019:                  PUSHI  #0x00000000
43636 @ 367024:                  ASSPAR
43637 @ 367025:                  PUSH   JJ
43638 @ 367028:                  ASSPAR
43639 @ 367029:                  CALL  

  7324           REGISTER(REG)=REGP
43640 @ 367030:                  LINE   7324 "regression-compile-tmp/imp918s.imp"
43641 @ 367068:                  PUSH   REGISTER
43642 @ 367071:                  PUSH   REG
43643 @ 367074:                  ACCESS
43644 @ 367075:                  PUSH   REGP
43645 @ 367078:                  ASSVAL

  7325           ->Label9
43646 @ 367079:                  LINE   7325 "regression-compile-tmp/imp918s.imp"
43647 @ 367117:                  JUMP   L_0229

  7326  STRARR:                                 ! STRINGARRAYS & 
  7327                                          !STRINGARRAYNAMES
43648 @ 367120:                  LINE   7326 "regression-compile-tmp/imp918s.imp"
43649 @ 367158:                  LABEL  L_0226

  7328           CANAME(ARR, I, K, SNDISP)
43650 @ 367161:                  LINE   7328 "regression-compile-tmp/imp918s.imp"
43651 @ 367199:                  PUSH   CANAME
43652 @ 367202:                  PUSH   ARR
43653 @ 367205:                  ASSPAR
43654 @ 367206:                  PUSH   I
43655 @ 367209:                  ASSPAR
43656 @ 367210:                  PUSH   K
43657 @ 367213:                  ASSPAR
43658 @ 367214:                  PUSH   SNDISP
43659 @ 367217:                  ASSPAR
43660 @ 367218:                  CALL  

  7329           BML=-1;  DML=SAVESL-1
43661 @ 367219:                  LINE   7329 "regression-compile-tmp/imp918s.imp"
43662 @ 367257:                  PUSH   BML
43663 @ 367260:                  PUSHI  #0x00000001
43664 @ 367265:                  NEGATE
43665 @ 367266:                  ASSVAL
43666 @ 367267:                  LINE   7329 "regression-compile-tmp/imp918s.imp"
43667 @ 367305:                  PUSH   DML
43668 @ 367308:                  PUSH   SAVESL
43669 @ 367311:                  PUSHI  #0x00000001
43670 @ 367316:                  SUB   
43671 @ 367317:                  ASSVAL

  7330  Label5111:    %IF NAM=1 %AND (Z=1 %OR Z=3) %THEN %START
43672 @ 367318:                  LINE   7330 "regression-compile-tmp/imp918s.imp"
43673 @ 367356:                  LABEL  L_022a
43674 @ 367359:                  LINE   7330 "regression-compile-tmp/imp918s.imp"
43675 @ 367397:                  PUSH   NAM
43676 @ 367400:                  PUSHI  #0x00000001
43677 @ 367405:                  JUMPIF # L_0004
43678 @ 367409:                  PUSH   Z
43679 @ 367412:                  PUSHI  #0x00000001
43680 @ 367417:                  JUMPIF = L_0005
43681 @ 367421:                  PUSH   Z
43682 @ 367424:                  PUSHI  #0x00000003
43683 @ 367429:                  JUMPIF # L_0004
43684 @ 367433:                  LOCATE L_0005

  7331              %IF Z=1 %THEN %START
43685 @ 367436:                  LINE   7331 "regression-compile-tmp/imp918s.imp"
43686 @ 367474:                  PUSH   Z
43687 @ 367477:                  PUSHI  #0x00000001
43688 @ 367482:                  JUMPIF # L_0007

  7332                 REGISTER(BASE)=1 %IF REGISTER(BASE)=0
43689 @ 367486:                  LINE   7332 "regression-compile-tmp/imp918s.imp"
43690 @ 367524:                  PUSH   REGISTER
43691 @ 367527:                  PUSH   BASE
43692 @ 367530:                  ACCESS
43693 @ 367531:                  PUSHI  #0x00000000
43694 @ 367536:                  JUMPIF # L_000a
43695 @ 367540:                  PUSH   REGISTER
43696 @ 367543:                  PUSH   BASE
43697 @ 367546:                  ACCESS
43698 @ 367547:                  PUSHI  #0x00000001
43699 @ 367552:                  ASSVAL
43700 @ 367553:                  LOCATE L_000a

  7333                 REGISTER(INDEX)=1
43701 @ 367556:                  LINE   7333 "regression-compile-tmp/imp918s.imp"
43702 @ 367594:                  PUSH   REGISTER
43703 @ 367597:                  PUSH   INDEX
43704 @ 367600:                  ACCESS
43705 @ 367601:                  PUSHI  #0x00000001
43706 @ 367606:                  ASSVAL

  7334              %FINISH %ELSE %START
43707 @ 367607:                  LINE   7334 "regression-compile-tmp/imp918s.imp"
43708 @ 367645:                  GOTO   L_0006
43709 @ 367648:                  LOCATE L_0007

  7335                 DUMP(0, REG, DISP, INDEX, BASE)
43710 @ 367651:                  LINE   7335 "regression-compile-tmp/imp918s.imp"
43711 @ 367689:                  PUSH   DUMP
43712 @ 367692:                  PUSHI  #0x00000000
43713 @ 367697:                  ASSPAR
43714 @ 367698:                  PUSH   REG
43715 @ 367701:                  ASSPAR
43716 @ 367702:                  PUSH   DISP
43717 @ 367705:                  ASSPAR
43718 @ 367706:                  PUSH   INDEX
43719 @ 367709:                  ASSPAR
43720 @ 367710:                  PUSH   BASE
43721 @ 367713:                  ASSPAR
43722 @ 367714:                  CALL  

  7336                 REG=NEST %IF REG<0
43723 @ 367715:                  LINE   7336 "regression-compile-tmp/imp918s.imp"
43724 @ 367753:                  PUSH   REG
43725 @ 367756:                  PUSHI  #0x00000000
43726 @ 367761:                  JUMPIF >= L_000a
43727 @ 367765:                  PUSH   REG
43728 @ 367768:                  PUSH   NEST
43729 @ 367771:                  ASSVAL
43730 @ 367772:                  LOCATE L_000a

  7337                 FORGET(REG)
43731 @ 367775:                  LINE   7337 "regression-compile-tmp/imp918s.imp"
43732 @ 367813:                  PUSH   FORGET
43733 @ 367816:                  PUSH   REG
43734 @ 367819:                  ASSPAR
43735 @ 367820:                  CALL  

  7338                 REGISTER(REG)=1
43736 @ 367821:                  LINE   7338 "regression-compile-tmp/imp918s.imp"
43737 @ 367859:                  PUSH   REGISTER
43738 @ 367862:                  PUSH   REG
43739 @ 367865:                  ACCESS
43740 @ 367866:                  PUSHI  #0x00000001
43741 @ 367871:                  ASSVAL

  7339              %FINISH
43742 @ 367872:                  LINE   7339 "regression-compile-tmp/imp918s.imp"
43743 @ 367910:                  LOCATE L_0006

  7340              LOAD DV(RR, LEVELP, DISPP, NAMEP)
43744 @ 367913:                  LINE   7340 "regression-compile-tmp/imp918s.imp"
43745 @ 367951:                  PUSH   LOADDV
43746 @ 367954:                  PUSH   RR
43747 @ 367957:                  ASSPAR
43748 @ 367958:                  PUSH   LEVELP
43749 @ 367961:                  ASSPAR
43750 @ 367962:                  PUSH   DISPP
43751 @ 367965:                  ASSPAR
43752 @ 367966:                  PUSH   NAMEP
43753 @ 367969:                  ASSPAR
43754 @ 367970:                  CALL  

  7341              FINDREG(GR0, JJ);  FORGET(JJ)
43755 @ 367971:                  LINE   7341 "regression-compile-tmp/imp918s.imp"
43756 @ 368009:                  PUSH   FINDREG
43757 @ 368012:                  PUSHI  #0x00010f1e
43758 @ 368017:                  ASSPAR
43759 @ 368018:                  PUSH   JJ
43760 @ 368021:                  ASSPAR
43761 @ 368022:                  CALL  
43762 @ 368023:                  LINE   7341 "regression-compile-tmp/imp918s.imp"
43763 @ 368061:                  PUSH   FORGET
43764 @ 368064:                  PUSH   JJ
43765 @ 368067:                  ASSPAR
43766 @ 368068:                  CALL  

  7342              DUMP(X'58', JJ, 0, 0, RR);  ! LOAD ITEM LENGTH
43767 @ 368069:                  LINE   7342 "regression-compile-tmp/imp918s.imp"
43768 @ 368107:                  PUSH   DUMP
43769 @ 368110:                  PUSHI  #0x00000058
43770 @ 368115:                  ASSPAR
43771 @ 368116:                  PUSH   JJ
43772 @ 368119:                  ASSPAR
43773 @ 368120:                  PUSHI  #0x00000000
43774 @ 368125:                  ASSPAR
43775 @ 368126:                  PUSHI  #0x00000000
43776 @ 368131:                  ASSPAR
43777 @ 368132:                  PUSH   RR
43778 @ 368135:                  ASSPAR
43779 @ 368136:                  CALL  

  7343              PRR(6, JJ, 0);              ! BCTR  TO TAKE 1 OFF
43780 @ 368137:                  LINE   7343 "regression-compile-tmp/imp918s.imp"
43781 @ 368175:                  PUSH   PRR
43782 @ 368178:                  PUSHI  #0x00000006
43783 @ 368183:                  ASSPAR
43784 @ 368184:                  PUSH   JJ
43785 @ 368187:                  ASSPAR
43786 @ 368188:                  PUSHI  #0x00000000
43787 @ 368193:                  ASSPAR
43788 @ 368194:                  CALL  

  7344              %IF Z=1 %THEN %START
43789 @ 368195:                  LINE   7344 "regression-compile-tmp/imp918s.imp"
43790 @ 368233:                  PUSH   Z
43791 @ 368236:                  PUSHI  #0x00000001
43792 @ 368241:                  JUMPIF # L_0007

  7345                 PRX(X'42', JJ, WSPR, 0, 0);   ! STC  LMAX,0(WSPR)
43793 @ 368245:                  LINE   7345 "regression-compile-tmp/imp918s.imp"
43794 @ 368283:                  PUSH   PRX
43795 @ 368286:                  PUSHI  #0x00000042
43796 @ 368291:                  ASSPAR
43797 @ 368292:                  PUSH   JJ
43798 @ 368295:                  ASSPAR
43799 @ 368296:                  PUSHI  #0x0000000b
43800 @ 368301:                  ASSPAR
43801 @ 368302:                  PUSHI  #0x00000000
43802 @ 368307:                  ASSPAR
43803 @ 368308:                  PUSHI  #0x00000000
43804 @ 368313:                  ASSPAR
43805 @ 368314:                  CALL  

  7346                 BML=WSPR;  DML=0
43806 @ 368315:                  LINE   7346 "regression-compile-tmp/imp918s.imp"
43807 @ 368353:                  PUSH   BML
43808 @ 368356:                  PUSHI  #0x0000000b
43809 @ 368361:                  ASSVAL
43810 @ 368362:                  LINE   7346 "regression-compile-tmp/imp918s.imp"
43811 @ 368400:                  PUSH   DML
43812 @ 368403:                  PUSHI  #0x00000000
43813 @ 368408:                  ASSVAL

  7347                 REGISTER(BASE)=0 %IF REGISTER(BASE)>0
43814 @ 368409:                  LINE   7347 "regression-compile-tmp/imp918s.imp"
43815 @ 368447:                  PUSH   REGISTER
43816 @ 368450:                  PUSH   BASE
43817 @ 368453:                  ACCESS
43818 @ 368454:                  PUSHI  #0x00000000
43819 @ 368459:                  JUMPIF <= L_000a
43820 @ 368463:                  PUSH   REGISTER
43821 @ 368466:                  PUSH   BASE
43822 @ 368469:                  ACCESS
43823 @ 368470:                  PUSHI  #0x00000000
43824 @ 368475:                  ASSVAL
43825 @ 368476:                  LOCATE L_000a

  7348                 REGISTER(INDEX)=0
43826 @ 368479:                  LINE   7348 "regression-compile-tmp/imp918s.imp"
43827 @ 368517:                  PUSH   REGISTER
43828 @ 368520:                  PUSH   INDEX
43829 @ 368523:                  ACCESS
43830 @ 368524:                  PUSHI  #0x00000000
43831 @ 368529:                  ASSVAL

  7349              %FINISH %ELSE %START
43832 @ 368530:                  LINE   7349 "regression-compile-tmp/imp918s.imp"
43833 @ 368568:                  GOTO   L_0006
43834 @ 368571:                  LOCATE L_0007

  7350                 PRX(X'89', JJ, 0, 0, 24);! SLL 24
43835 @ 368574:                  LINE   7350 "regression-compile-tmp/imp918s.imp"
43836 @ 368612:                  PUSH   PRX
43837 @ 368615:                  PUSHI  #0x00000089
43838 @ 368620:                  ASSPAR
43839 @ 368621:                  PUSH   JJ
43840 @ 368624:                  ASSPAR
43841 @ 368625:                  PUSHI  #0x00000000
43842 @ 368630:                  ASSPAR
43843 @ 368631:                  PUSHI  #0x00000000
43844 @ 368636:                  ASSPAR
43845 @ 368637:                  PUSHI  #0x00000018
43846 @ 368642:                  ASSPAR
43847 @ 368643:                  CALL  

  7351                 PRR(X'16', REG, JJ);     ! OR REG,JJ
43848 @ 368644:                  LINE   7351 "regression-compile-tmp/imp918s.imp"
43849 @ 368682:                  PUSH   PRR
43850 @ 368685:                  PUSHI  #0x00000016
43851 @ 368690:                  ASSPAR
43852 @ 368691:                  PUSH   REG
43853 @ 368694:                  ASSPAR
43854 @ 368695:                  PUSH   JJ
43855 @ 368698:                  ASSPAR
43856 @ 368699:                  CALL  

  7352                 REGISTER(REG)=0
43857 @ 368700:                  LINE   7352 "regression-compile-tmp/imp918s.imp"
43858 @ 368738:                  PUSH   REGISTER
43859 @ 368741:                  PUSH   REG
43860 @ 368744:                  ACCESS
43861 @ 368745:                  PUSHI  #0x00000000
43862 @ 368750:                  ASSVAL

  7353              %FINISH
43863 @ 368751:                  LINE   7353 "regression-compile-tmp/imp918s.imp"
43864 @ 368789:                  LOCATE L_0006

  7354              ->Label9
43865 @ 368792:                  LINE   7354 "regression-compile-tmp/imp918s.imp"
43866 @ 368830:                  JUMP   L_0229

  7355           %FINISH
43867 @ 368833:                  LINE   7355 "regression-compile-tmp/imp918s.imp"
43868 @ 368871:                  LOCATE L_0004

  7356           NAM=0;  ->Label5002;                ! ORDINARY ARRAYS ACC KNOWN
43869 @ 368874:                  LINE   7356 "regression-compile-tmp/imp918s.imp"
43870 @ 368912:                  PUSH   NAM
43871 @ 368915:                  PUSHI  #0x00000000
43872 @ 368920:                  ASSVAL
43873 @ 368921:                  LINE   7356 "regression-compile-tmp/imp918s.imp"
43874 @ 368959:                  JUMP   L_0228

  7357  Label5020:                                   ! STRINGS IN RECORDS
43875 @ 368962:                  LINE   7357 "regression-compile-tmp/imp918s.imp"
43876 @ 369000:                  LABEL  L_0224

  7358           NAMEP=-1;  SAVESL=ACC
43877 @ 369003:                  LINE   7358 "regression-compile-tmp/imp918s.imp"
43878 @ 369041:                  PUSH   NAMEP
43879 @ 369044:                  PUSHI  #0x00000001
43880 @ 369049:                  NEGATE
43881 @ 369050:                  ASSVAL
43882 @ 369051:                  LINE   7358 "regression-compile-tmp/imp918s.imp"
43883 @ 369089:                  PUSH   SAVESL
43884 @ 369092:                  PUSH   ACC
43885 @ 369095:                  ASSVAL

  7359           LEVELP=BML;  DISPP=DML;        ! SET BY CRNAME TO ARRAYHEAD
43886 @ 369096:                  LINE   7359 "regression-compile-tmp/imp918s.imp"
43887 @ 369134:                  PUSH   LEVELP
43888 @ 369137:                  PUSH   BML
43889 @ 369140:                  ASSVAL
43890 @ 369141:                  LINE   7359 "regression-compile-tmp/imp918s.imp"
43891 @ 369179:                  PUSH   DISPP
43892 @ 369182:                  PUSH   DML
43893 @ 369185:                  ASSVAL

  7360           ->Label5111 %IF ARR=1;              ! NOW AS NORMAL STRINGARRAYS
43894 @ 369186:                  LINE   7360 "regression-compile-tmp/imp918s.imp"
43895 @ 369224:                  PUSH   ARR
43896 @ 369227:                  PUSHI  #0x00000001
43897 @ 369232:                  JUMPIF # L_0004
43898 @ 369236:                  JUMP   L_022a
43899 @ 369239:                  LOCATE L_0004

  7361           %IF NAM=1 %AND INDEX>0 %THEN %START
43900 @ 369242:                  LINE   7361 "regression-compile-tmp/imp918s.imp"
43901 @ 369280:                  PUSH   NAM
43902 @ 369283:                  PUSHI  #0x00000001
43903 @ 369288:                  JUMPIF # L_0004
43904 @ 369292:                  PUSH   INDEX
43905 @ 369295:                  PUSHI  #0x00000000
43906 @ 369300:                  JUMPIF <= L_0004

  7362              PRR(X'1A', INDEX, BASE);    ! VERY MESSY  STRINGNAME IN A
43907 @ 369304:                  LINE   7362 "regression-compile-tmp/imp918s.imp"
43908 @ 369342:                  PUSH   PRR
43909 @ 369345:                  PUSHI  #0x0000001a
43910 @ 369350:                  ASSPAR
43911 @ 369351:                  PUSH   INDEX
43912 @ 369354:                  ASSPAR
43913 @ 369355:                  PUSH   BASE
43914 @ 369358:                  ASSPAR
43915 @ 369359:                  CALL  

  7363              FORGET(INDEX);  BASE=INDEX; ! RECORDARRAY MUST MAKE LMAX
43916 @ 369360:                  LINE   7363 "regression-compile-tmp/imp918s.imp"
43917 @ 369398:                  PUSH   FORGET
43918 @ 369401:                  PUSH   INDEX
43919 @ 369404:                  ASSPAR
43920 @ 369405:                  CALL  
43921 @ 369406:                  LINE   7363 "regression-compile-tmp/imp918s.imp"
43922 @ 369444:                  PUSH   BASE
43923 @ 369447:                  PUSH   INDEX
43924 @ 369450:                  ASSVAL

  7364              CCSTATE=-1
43925 @ 369451:                  LINE   7364 "regression-compile-tmp/imp918s.imp"
43926 @ 369489:                  PUSH   CCSTATE
43927 @ 369492:                  PUSHI  #0x00000001
43928 @ 369497:                  NEGATE
43929 @ 369498:                  ASSVAL

  7365              INDEX=0
43930 @ 369499:                  LINE   7365 "regression-compile-tmp/imp918s.imp"
43931 @ 369537:                  PUSH   INDEX
43932 @ 369540:                  PUSHI  #0x00000000
43933 @ 369545:                  ASSVAL

  7366           %FINISH;                       ! BYTE DIRECTLY ADDRESSABLE
43934 @ 369546:                  LINE   7366 "regression-compile-tmp/imp918s.imp"
43935 @ 369584:                  LOCATE L_0004

  7367           ->Label5001;                        ! NOW AS NORMAL STRINGS
43936 @ 369587:                  LINE   7367 "regression-compile-tmp/imp918s.imp"
43937 @ 369625:                  JUMP   L_0227

  7368  SW(8):                                  ! REGISTER VARIABLE
43938 @ 369628:                  LINE   7368 "regression-compile-tmp/imp918s.imp"
43939 @ 369666:                  PUSHI  #0x00000008
43940 @ 369671:                  SLABEL 531

  7369           FAULT(29, FNAME) %UNLESS Z=2 %OR Z=5 %OR KFORM#M'RG'
  7370                                          !ONLY FETCH MAKES SENSE
43941 @ 369674:                  LINE   7369 "regression-compile-tmp/imp918s.imp"
43942 @ 369712:                  PUSH   Z
43943 @ 369715:                  PUSHI  #0x00000002
43944 @ 369720:                  JUMPIF = L_0004
43945 @ 369724:                  PUSH   Z
43946 @ 369727:                  PUSHI  #0x00000005
43947 @ 369732:                  JUMPIF = L_0004
43948 @ 369736:                  PUSH   KFORM
43949 @ 369739:                  PUSHI  #0x00005247
43950 @ 369744:                  JUMPIF # L_0004
43951 @ 369748:                  PUSH   FAULT
43952 @ 369751:                  PUSHI  #0x0000001d
43953 @ 369756:                  ASSPAR
43954 @ 369757:                  PUSH   FNAME
43955 @ 369760:                  ASSPAR
43956 @ 369761:                  CALL  
43957 @ 369762:                  LOCATE L_0004

  7371           ABORT %IF REGISTER(K)>=0
43958 @ 369765:                  LINE   7371 "regression-compile-tmp/imp918s.imp"
43959 @ 369803:                  PUSH   REGISTER
43960 @ 369806:                  PUSH   K
43961 @ 369809:                  ACCESS
43962 @ 369810:                  PUSHI  #0x00000000
43963 @ 369815:                  JUMPIF < L_0004
43964 @ 369819:                  PUSH   ABORT
43965 @ 369822:                  CALL  
43966 @ 369823:                  LOCATE L_0004

  7372           %IF Z=1 %OR 3<=Z<=4 %THEN K=SNDISP %AND ->Label600
43967 @ 369826:                  LINE   7372 "regression-compile-tmp/imp918s.imp"
43968 @ 369864:                  PUSH   Z
43969 @ 369867:                  PUSHI  #0x00000001
43970 @ 369872:                  JUMPIF = L_0005
43971 @ 369876:                  PUSHI  #0x00000003
43972 @ 369881:                  PUSH   Z
43973 @ 369884:                  JUMPIFD > L_0004
43974 @ 369888:                  PUSHI  #0x00000004
43975 @ 369893:                  JUMPIF > L_0004
43976 @ 369897:                  LOCATE L_0005
43977 @ 369900:                  PUSH   K
43978 @ 369903:                  PUSH   SNDISP
43979 @ 369906:                  ASSVAL
43980 @ 369907:                  JUMP   L_022b
43981 @ 369910:                  LOCATE L_0004

  7373           %IF REG<0 %THEN NEST=K %ELSE %START
43982 @ 369913:                  LINE   7373 "regression-compile-tmp/imp918s.imp"
43983 @ 369951:                  PUSH   REG
43984 @ 369954:                  PUSHI  #0x00000000
43985 @ 369959:                  JUMPIF >= L_0004
43986 @ 369963:                  PUSH   NEST
43987 @ 369966:                  PUSH   K
43988 @ 369969:                  ASSVAL
43989 @ 369970:                  GOTO   L_0003
43990 @ 369973:                  LOCATE L_0004

  7374              PRR(X'18', REG, K) %UNLESS REG=K
43991 @ 369976:                  LINE   7374 "regression-compile-tmp/imp918s.imp"
43992 @ 370014:                  PUSH   REG
43993 @ 370017:                  PUSH   K
43994 @ 370020:                  JUMPIF = L_0007
43995 @ 370024:                  PUSH   PRR
43996 @ 370027:                  PUSHI  #0x00000018
43997 @ 370032:                  ASSPAR
43998 @ 370033:                  PUSH   REG
43999 @ 370036:                  ASSPAR
44000 @ 370037:                  PUSH   K
44001 @ 370040:                  ASSPAR
44002 @ 370041:                  CALL  
44003 @ 370042:                  LOCATE L_0007

  7375           %FINISH
44004 @ 370045:                  LINE   7375 "regression-compile-tmp/imp918s.imp"
44005 @ 370083:                  LOCATE L_0003

  7376           ->Label9
  7377  ! SECTION TO DEAL WITH ALL NAMES INVOLVING ROUTINE CALL
44006 @ 370086:                  LINE   7376 "regression-compile-tmp/imp918s.imp"
44007 @ 370124:                  JUMP   L_0229

  7378  RTCALL:                                 ! FIRST CHECK
44008 @ 370127:                  LINE   7378 "regression-compile-tmp/imp918s.imp"
44009 @ 370165:                  LABEL  L_021a

  7379           %IF TYPE=0 %AND Z#0 %THEN FAULT(23, FNAME) %AND ->Label502
  7380                                          ! RT NAME IN EXPRSN
44010 @ 370168:                  LINE   7379 "regression-compile-tmp/imp918s.imp"
44011 @ 370206:                  PUSH   TYPE
44012 @ 370209:                  PUSHI  #0x00000000
44013 @ 370214:                  JUMPIF # L_0004
44014 @ 370218:                  PUSH   Z
44015 @ 370221:                  PUSHI  #0x00000000
44016 @ 370226:                  JUMPIF = L_0004
44017 @ 370230:                  PUSH   FAULT
44018 @ 370233:                  PUSHI  #0x00000017
44019 @ 370238:                  ASSPAR
44020 @ 370239:                  PUSH   FNAME
44021 @ 370242:                  ASSPAR
44022 @ 370243:                  CALL  
44023 @ 370244:                  JUMP   L_0218
44024 @ 370247:                  LOCATE L_0004

  7381           %IF PTYPE=SNPT %THEN %START
44025 @ 370250:                  LINE   7381 "regression-compile-tmp/imp918s.imp"
44026 @ 370288:                  PUSH   PTYPE
44027 @ 370291:                  PUSHI  #0x00002716
44028 @ 370296:                  JUMPIF # L_0004

  7382              CSNAME(Z, REG);             ! SPECIAL NAME
44029 @ 370300:                  LINE   7382 "regression-compile-tmp/imp918s.imp"
44030 @ 370338:                  PUSH   CSNAME
44031 @ 370341:                  PUSH   Z
44032 @ 370344:                  ASSPAR
44033 @ 370345:                  PUSH   REG
44034 @ 370348:                  ASSPAR
44035 @ 370349:                  CALL  

  7383              ->Label202 %IF ROUT=1 %AND NAM>=1 %AND Z#0
44036 @ 370350:                  LINE   7383 "regression-compile-tmp/imp918s.imp"
44037 @ 370388:                  PUSH   ROUT
44038 @ 370391:                  PUSHI  #0x00000001
44039 @ 370396:                  JUMPIF # L_0007
44040 @ 370400:                  PUSH   NAM
44041 @ 370403:                  PUSHI  #0x00000001
44042 @ 370408:                  JUMPIF < L_0007
44043 @ 370412:                  PUSH   Z
44044 @ 370415:                  PUSHI  #0x00000000
44045 @ 370420:                  JUMPIF = L_0007
44046 @ 370424:                  JUMP   L_022c
44047 @ 370427:                  LOCATE L_0007

  7384              ->Label6
44048 @ 370430:                  LINE   7384 "regression-compile-tmp/imp918s.imp"
44049 @ 370468:                  JUMP   L_021f

  7385           %FINISH
44050 @ 370471:                  LINE   7385 "regression-compile-tmp/imp918s.imp"
44051 @ 370509:                  LOCATE L_0004

  7386           %IF KFORM&4095=1000 %THEN FAULT(21, FNAME) %AND ->Label502
  7387                                          ! USE BEFORE %SPEC GIVEN
44052 @ 370512:                  LINE   7386 "regression-compile-tmp/imp918s.imp"
44053 @ 370550:                  PUSH   KFORM
44054 @ 370553:                  PUSHI  #0x00000fff
44055 @ 370558:                  AND   
44056 @ 370559:                  PUSHI  #0x000003e8
44057 @ 370564:                  JUMPIF # L_0004
44058 @ 370568:                  PUSH   FAULT
44059 @ 370571:                  PUSHI  #0x00000015
44060 @ 370576:                  ASSPAR
44061 @ 370577:                  PUSH   FNAME
44062 @ 370580:                  ASSPAR
44063 @ 370581:                  CALL  
44064 @ 370582:                  JUMP   L_0218
44065 @ 370585:                  LOCATE L_0004

  7388           CRCALL(TCELL);  P=P+1;        ! DEAL WITH PARAMS
44066 @ 370588:                  LINE   7388 "regression-compile-tmp/imp918s.imp"
44067 @ 370626:                  PUSH   CRCALL
44068 @ 370629:                  PUSH   TCELL
44069 @ 370632:                  ASSPAR
44070 @ 370633:                  CALL  
44071 @ 370634:                  LINE   7388 "regression-compile-tmp/imp918s.imp"
44072 @ 370672:                  PUSH   P
44073 @ 370675:                  PUSH   P
44074 @ 370678:                  PUSHI  #0x00000001
44075 @ 370683:                  ADD   
44076 @ 370684:                  ASSVAL

  7389           ->Label1 %IF PTYPE=10000 %OR PTYPE=11000
44077 @ 370685:                  LINE   7389 "regression-compile-tmp/imp918s.imp"
44078 @ 370723:                  PUSH   PTYPE
44079 @ 370726:                  PUSHI  #0x00002710
44080 @ 370731:                  JUMPIF = L_0005
44081 @ 370735:                  PUSH   PTYPE
44082 @ 370738:                  PUSHI  #0x00002af8
44083 @ 370743:                  JUMPIF # L_0004
44084 @ 370747:                  LOCATE L_0005
44085 @ 370750:                  JUMP   L_021b
44086 @ 370753:                  LOCATE L_0004

  7390           ->Label201 %IF NAM>1;               ! MAPS
44087 @ 370756:                  LINE   7390 "regression-compile-tmp/imp918s.imp"
44088 @ 370794:                  PUSH   NAM
44089 @ 370797:                  PUSHI  #0x00000001
44090 @ 370802:                  JUMPIF <= L_0004
44091 @ 370806:                  JUMP   L_022d
44092 @ 370809:                  LOCATE L_0004

  7391           %UNLESS Z=2 %OR Z=5 %THEN %START;   ! FUNCTIONS
44093 @ 370812:                  LINE   7391 "regression-compile-tmp/imp918s.imp"
44094 @ 370850:                  PUSH   Z
44095 @ 370853:                  PUSHI  #0x00000002
44096 @ 370858:                  JUMPIF = L_0004
44097 @ 370862:                  PUSH   Z
44098 @ 370865:                  PUSHI  #0x00000005
44099 @ 370870:                  JUMPIF = L_0004

  7392              FAULT(29, FNAME);  BASE=0
44100 @ 370874:                  LINE   7392 "regression-compile-tmp/imp918s.imp"
44101 @ 370912:                  PUSH   FAULT
44102 @ 370915:                  PUSHI  #0x0000001d
44103 @ 370920:                  ASSPAR
44104 @ 370921:                  PUSH   FNAME
44105 @ 370924:                  ASSPAR
44106 @ 370925:                  CALL  
44107 @ 370926:                  LINE   7392 "regression-compile-tmp/imp918s.imp"
44108 @ 370964:                  PUSH   BASE
44109 @ 370967:                  PUSHI  #0x00000000
44110 @ 370972:                  ASSVAL

  7393              INDEX=0;  DISP=0
44111 @ 370973:                  LINE   7393 "regression-compile-tmp/imp918s.imp"
44112 @ 371011:                  PUSH   INDEX
44113 @ 371014:                  PUSHI  #0x00000000
44114 @ 371019:                  ASSVAL
44115 @ 371020:                  LINE   7393 "regression-compile-tmp/imp918s.imp"
44116 @ 371058:                  PUSH   DISP
44117 @ 371061:                  PUSHI  #0x00000000
44118 @ 371066:                  ASSVAL

  7394           %FINISH
44119 @ 371067:                  LINE   7394 "regression-compile-tmp/imp918s.imp"
44120 @ 371105:                  LOCATE L_0004

  7395           ->STRFUN %IF TYPE=5;  P=P-2
44121 @ 371108:                  LINE   7395 "regression-compile-tmp/imp918s.imp"
44122 @ 371146:                  PUSH   TYPE
44123 @ 371149:                  PUSHI  #0x00000005
44124 @ 371154:                  JUMPIF # L_0004
44125 @ 371158:                  JUMP   L_022e
44126 @ 371161:                  LOCATE L_0004
44127 @ 371164:                  LINE   7395 "regression-compile-tmp/imp918s.imp"
44128 @ 371202:                  PUSH   P
44129 @ 371205:                  PUSH   P
44130 @ 371208:                  PUSHI  #0x00000002
44131 @ 371213:                  SUB   
44132 @ 371214:                  ASSVAL

  7396           %IF TYPE=2 %THEN REGP=2 %AND JJ=18 %ELSE REGP=1 %AND JJ=1
44133 @ 371215:                  LINE   7396 "regression-compile-tmp/imp918s.imp"
44134 @ 371253:                  PUSH   TYPE
44135 @ 371256:                  PUSHI  #0x00000002
44136 @ 371261:                  JUMPIF # L_0004
44137 @ 371265:                  PUSH   REGP
44138 @ 371268:                  PUSHI  #0x00000002
44139 @ 371273:                  ASSVAL
44140 @ 371274:                  PUSH   JJ
44141 @ 371277:                  PUSHI  #0x00000012
44142 @ 371282:                  ASSVAL
44143 @ 371283:                  GOTO   L_0003
44144 @ 371286:                  LOCATE L_0004
44145 @ 371289:                  PUSH   REGP
44146 @ 371292:                  PUSHI  #0x00000001
44147 @ 371297:                  ASSVAL
44148 @ 371298:                  PUSH   JJ
44149 @ 371301:                  PUSHI  #0x00000001
44150 @ 371306:                  ASSVAL
44151 @ 371307:                  LOCATE L_0003

  7397           NAMEP=0;  ->SWOP
44152 @ 371310:                  LINE   7397 "regression-compile-tmp/imp918s.imp"
44153 @ 371348:                  PUSH   NAMEP
44154 @ 371351:                  PUSHI  #0x00000000
44155 @ 371356:                  ASSVAL
44156 @ 371357:                  LINE   7397 "regression-compile-tmp/imp918s.imp"
44157 @ 371395:                  JUMP   L_022f

  7398  STRFUN:  DISP=0;  INDEX=0;  BASE=1;  ->Label1
44158 @ 371398:                  LINE   7398 "regression-compile-tmp/imp918s.imp"
44159 @ 371436:                  LABEL  L_022e
44160 @ 371439:                  LINE   7398 "regression-compile-tmp/imp918s.imp"
44161 @ 371477:                  PUSH   DISP
44162 @ 371480:                  PUSHI  #0x00000000
44163 @ 371485:                  ASSVAL
44164 @ 371486:                  LINE   7398 "regression-compile-tmp/imp918s.imp"
44165 @ 371524:                  PUSH   INDEX
44166 @ 371527:                  PUSHI  #0x00000000
44167 @ 371532:                  ASSVAL
44168 @ 371533:                  LINE   7398 "regression-compile-tmp/imp918s.imp"
44169 @ 371571:                  PUSH   BASE
44170 @ 371574:                  PUSHI  #0x00000001
44171 @ 371579:                  ASSVAL
44172 @ 371580:                  LINE   7398 "regression-compile-tmp/imp918s.imp"
44173 @ 371618:                  JUMP   L_021b

  7399  Label201:                                    ! USER DEFINED MAPS
44174 @ 371621:                  LINE   7399 "regression-compile-tmp/imp918s.imp"
44175 @ 371659:                  LABEL  L_022d

  7400           DISP=0;  INDEX=0;  BASE=1
44176 @ 371662:                  LINE   7400 "regression-compile-tmp/imp918s.imp"
44177 @ 371700:                  PUSH   DISP
44178 @ 371703:                  PUSHI  #0x00000000
44179 @ 371708:                  ASSVAL
44180 @ 371709:                  LINE   7400 "regression-compile-tmp/imp918s.imp"
44181 @ 371747:                  PUSH   INDEX
44182 @ 371750:                  PUSHI  #0x00000000
44183 @ 371755:                  ASSVAL
44184 @ 371756:                  LINE   7400 "regression-compile-tmp/imp918s.imp"
44185 @ 371794:                  PUSH   BASE
44186 @ 371797:                  PUSHI  #0x00000001
44187 @ 371802:                  ASSVAL

  7401  Label202:                                    ! BUILT IN MAPS
44188 @ 371803:                  LINE   7401 "regression-compile-tmp/imp918s.imp"
44189 @ 371841:                  LABEL  L_022c

  7402           %IF PREC = 2 %THEN WARN(LINE)
44190 @ 371844:                  LINE   7402 "regression-compile-tmp/imp918s.imp"
44191 @ 371882:                  PUSH   PREC
44192 @ 371885:                  PUSHI  #0x00000002
44193 @ 371890:                  JUMPIF # L_0004
44194 @ 371894:                  PUSH   WARN
44195 @ 371897:                  PUSH   LINE
44196 @ 371900:                  ASSPAR
44197 @ 371901:                  CALL  
44198 @ 371902:                  LOCATE L_0004

  7403           NAM=0;  NAMEP=0;  P=P-2
44199 @ 371905:                  LINE   7403 "regression-compile-tmp/imp918s.imp"
44200 @ 371943:                  PUSH   NAM
44201 @ 371946:                  PUSHI  #0x00000000
44202 @ 371951:                  ASSVAL
44203 @ 371952:                  LINE   7403 "regression-compile-tmp/imp918s.imp"
44204 @ 371990:                  PUSH   NAMEP
44205 @ 371993:                  PUSHI  #0x00000000
44206 @ 371998:                  ASSVAL
44207 @ 371999:                  LINE   7403 "regression-compile-tmp/imp918s.imp"
44208 @ 372037:                  PUSH   P
44209 @ 372040:                  PUSH   P
44210 @ 372043:                  PUSHI  #0x00000002
44211 @ 372048:                  SUB   
44212 @ 372049:                  ASSVAL

  7404           %IF TYPE#5 %THEN ->Label601
44213 @ 372050:                  LINE   7404 "regression-compile-tmp/imp918s.imp"
44214 @ 372088:                  PUSH   TYPE
44215 @ 372091:                  PUSHI  #0x00000005
44216 @ 372096:                  JUMPIF = L_0004
44217 @ 372100:                  JUMP   L_0225
44218 @ 372103:                  LOCATE L_0004

  7405           BML=-1;  DML=255;              ! STRING MAPS
44219 @ 372106:                  LINE   7405 "regression-compile-tmp/imp918s.imp"
44220 @ 372144:                  PUSH   BML
44221 @ 372147:                  PUSHI  #0x00000001
44222 @ 372152:                  NEGATE
44223 @ 372153:                  ASSVAL
44224 @ 372154:                  LINE   7405 "regression-compile-tmp/imp918s.imp"
44225 @ 372192:                  PUSH   DML
44226 @ 372195:                  PUSHI  #0x000000ff
44227 @ 372200:                  ASSVAL

  7406           ->Label5002
44228 @ 372201:                  LINE   7406 "regression-compile-tmp/imp918s.imp"
44229 @ 372239:                  JUMP   L_0228

  7407  SW(0):                                  ! %NAME PARAMETERS NO TYPE
  7408                                          ! ALLOW FETCH ADDR OPERATIONS
  7409                                          ! AND SPECIAL FOR BUILTIN MAPS
44230 @ 372242:                  LINE   7407 "regression-compile-tmp/imp918s.imp"
44231 @ 372280:                  PUSHI  #0x00000000
44232 @ 372285:                  SLABEL 531

  7410           %UNLESS 3<=Z<=4 %OR (Z=1 %AND REG=99) %THEN %START
44233 @ 372288:                  LINE   7410 "regression-compile-tmp/imp918s.imp"
44234 @ 372326:                  PUSHI  #0x00000003
44235 @ 372331:                  PUSH   Z
44236 @ 372334:                  JUMPIFD > L_0005
44237 @ 372338:                  PUSHI  #0x00000004
44238 @ 372343:                  JUMPIF <= L_0004
44239 @ 372347:                  LOCATE L_0005
44240 @ 372350:                  PUSH   Z
44241 @ 372353:                  PUSHI  #0x00000001
44242 @ 372358:                  JUMPIF # L_0005
44243 @ 372362:                  PUSH   REG
44244 @ 372365:                  PUSHI  #0x00000063
44245 @ 372370:                  JUMPIF = L_0004
44246 @ 372374:                  LOCATE L_0005

  7411              FAULT(12, FNAME);  TYPE=1
44247 @ 372377:                  LINE   7411 "regression-compile-tmp/imp918s.imp"
44248 @ 372415:                  PUSH   FAULT
44249 @ 372418:                  PUSHI  #0x0000000c
44250 @ 372423:                  ASSPAR
44251 @ 372424:                  PUSH   FNAME
44252 @ 372427:                  ASSPAR
44253 @ 372428:                  CALL  
44254 @ 372429:                  LINE   7411 "regression-compile-tmp/imp918s.imp"
44255 @ 372467:                  PUSH   TYPE
44256 @ 372470:                  PUSHI  #0x00000001
44257 @ 372475:                  ASSVAL

  7412           %FINISH
44258 @ 372476:                  LINE   7412 "regression-compile-tmp/imp918s.imp"
44259 @ 372514:                  LOCATE L_0004

  7413  SW(1):                                  ! TYPE =INTEGER
44260 @ 372517:                  LINE   7413 "regression-compile-tmp/imp918s.imp"
44261 @ 372555:                  PUSHI  #0x00000001
44262 @ 372560:                  SLABEL 531

  7414  SW(2):                                  ! TYPE=REAL
44263 @ 372563:                  LINE   7414 "regression-compile-tmp/imp918s.imp"
44264 @ 372601:                  PUSHI  #0x00000002
44265 @ 372606:                  SLABEL 531

  7415           ->Label600 %IF ARR=0
44266 @ 372609:                  LINE   7415 "regression-compile-tmp/imp918s.imp"
44267 @ 372647:                  PUSH   ARR
44268 @ 372650:                  PUSHI  #0x00000000
44269 @ 372655:                  JUMPIF # L_0004
44270 @ 372659:                  JUMP   L_022b
44271 @ 372662:                  LOCATE L_0004

  7416           CANAME(ARR, I, K, SNDISP)
44272 @ 372665:                  LINE   7416 "regression-compile-tmp/imp918s.imp"
44273 @ 372703:                  PUSH   CANAME
44274 @ 372706:                  PUSH   ARR
44275 @ 372709:                  ASSPAR
44276 @ 372710:                  PUSH   I
44277 @ 372713:                  ASSPAR
44278 @ 372714:                  PUSH   K
44279 @ 372717:                  ASSPAR
44280 @ 372718:                  PUSH   SNDISP
44281 @ 372721:                  ASSPAR
44282 @ 372722:                  CALL  

  7417           NAM=0;  ->Label601
  7418  !
  7419                                          ! GENERAL FETCHING & STORING 
  7420                                          !SECTION
44283 @ 372723:                  LINE   7417 "regression-compile-tmp/imp918s.imp"
44284 @ 372761:                  PUSH   NAM
44285 @ 372764:                  PUSHI  #0x00000000
44286 @ 372769:                  ASSVAL
44287 @ 372770:                  LINE   7417 "regression-compile-tmp/imp918s.imp"
44288 @ 372808:                  JUMP   L_0225

  7421  Label600:     BASE=I;  INDEX=0;  DISP=K
44289 @ 372811:                  LINE   7421 "regression-compile-tmp/imp918s.imp"
44290 @ 372849:                  LABEL  L_022b
44291 @ 372852:                  LINE   7421 "regression-compile-tmp/imp918s.imp"
44292 @ 372890:                  PUSH   BASE
44293 @ 372893:                  PUSH   I
44294 @ 372896:                  ASSVAL
44295 @ 372897:                  LINE   7421 "regression-compile-tmp/imp918s.imp"
44296 @ 372935:                  PUSH   INDEX
44297 @ 372938:                  PUSHI  #0x00000000
44298 @ 372943:                  ASSVAL
44299 @ 372944:                  LINE   7421 "regression-compile-tmp/imp918s.imp"
44300 @ 372982:                  PUSH   DISP
44301 @ 372985:                  PUSH   K
44302 @ 372988:                  ASSVAL

  7422  Label601:     ->Label602 %IF Z=6
44303 @ 372989:                  LINE   7422 "regression-compile-tmp/imp918s.imp"
44304 @ 373027:                  LABEL  L_0225
44305 @ 373030:                  LINE   7422 "regression-compile-tmp/imp918s.imp"
44306 @ 373068:                  PUSH   Z
44307 @ 373071:                  PUSHI  #0x00000006
44308 @ 373076:                  JUMPIF # L_0004
44309 @ 373080:                  JUMP   L_0220
44310 @ 373083:                  LOCATE L_0004

  7423           JJJ=Z;  JJJ=JJJ-3 %IF JJJ>3
44311 @ 373086:                  LINE   7423 "regression-compile-tmp/imp918s.imp"
44312 @ 373124:                  PUSH   JJJ
44313 @ 373127:                  PUSH   Z
44314 @ 373130:                  ASSVAL
44315 @ 373131:                  LINE   7423 "regression-compile-tmp/imp918s.imp"
44316 @ 373169:                  PUSH   JJJ
44317 @ 373172:                  PUSHI  #0x00000003
44318 @ 373177:                  JUMPIF <= L_0004
44319 @ 373181:                  PUSH   JJJ
44320 @ 373184:                  PUSH   JJJ
44321 @ 373187:                  PUSHI  #0x00000003
44322 @ 373192:                  SUB   
44323 @ 373193:                  ASSVAL
44324 @ 373194:                  LOCATE L_0004

  7424           JJJ=TYPE<<3+2*(PREC&3)+JJJ-8
44325 @ 373197:                  LINE   7424 "regression-compile-tmp/imp918s.imp"
44326 @ 373235:                  PUSH   JJJ
44327 @ 373238:                  PUSH   TYPE
44328 @ 373241:                  PUSHI  #0x00000003
44329 @ 373246:                  LSH   
44330 @ 373247:                  PUSHI  #0x00000002
44331 @ 373252:                  PUSH   PREC
44332 @ 373255:                  PUSHI  #0x00000003
44333 @ 373260:                  AND   
44334 @ 373261:                  MUL   
44335 @ 373262:                  ADD   
44336 @ 373263:                  PUSH   JJJ
44337 @ 373266:                  ADD   
44338 @ 373267:                  PUSHI  #0x00000008
44339 @ 373272:                  SUB   
44340 @ 373273:                  ASSVAL

  7425           KK=Z;  KK=2 %IF Z=5
44341 @ 373274:                  LINE   7425 "regression-compile-tmp/imp918s.imp"
44342 @ 373312:                  PUSH   KK
44343 @ 373315:                  PUSH   Z
44344 @ 373318:                  ASSVAL
44345 @ 373319:                  LINE   7425 "regression-compile-tmp/imp918s.imp"
44346 @ 373357:                  PUSH   Z
44347 @ 373360:                  PUSHI  #0x00000005
44348 @ 373365:                  JUMPIF # L_0004
44349 @ 373369:                  PUSH   KK
44350 @ 373372:                  PUSHI  #0x00000002
44351 @ 373377:                  ASSVAL
44352 @ 373378:                  LOCATE L_0004

  7426  Label605:     NAMEP=0 %UNLESS INDEX=0 %AND DISP=DISPP %AND BASE=LEVELP
44353 @ 373381:                  LINE   7426 "regression-compile-tmp/imp918s.imp"
44354 @ 373419:                  LABEL  L_0223
44355 @ 373422:                  LINE   7426 "regression-compile-tmp/imp918s.imp"
44356 @ 373460:                  PUSH   INDEX
44357 @ 373463:                  PUSHI  #0x00000000
44358 @ 373468:                  JUMPIF # L_0005
44359 @ 373472:                  PUSH   DISP
44360 @ 373475:                  PUSH   DISPP
44361 @ 373478:                  JUMPIF # L_0005
44362 @ 373482:                  PUSH   BASE
44363 @ 373485:                  PUSH   LEVELP
44364 @ 373488:                  JUMPIF = L_0004
44365 @ 373492:                  LOCATE L_0005
44366 @ 373495:                  PUSH   NAMEP
44367 @ 373498:                  PUSHI  #0x00000000
44368 @ 373503:                  ASSVAL
44369 @ 373504:                  LOCATE L_0004

  7427           ->MOD(NAM<<2!KK&3)
44370 @ 373507:                  LINE   7427 "regression-compile-tmp/imp918s.imp"
44371 @ 373545:                  PUSH   NAM
44372 @ 373548:                  PUSHI  #0x00000002
44373 @ 373553:                  LSH   
44374 @ 373554:                  PUSH   KK
44375 @ 373557:                  PUSHI  #0x00000003
44376 @ 373562:                  AND   
44377 @ 373563:                  OR    
44378 @ 373564:                  SJUMP  532

  7428  Label602:     FAULT(17, FNAME) %IF NAM=0
44379 @ 373567:                  LINE   7428 "regression-compile-tmp/imp918s.imp"
44380 @ 373605:                  LABEL  L_0220
44381 @ 373608:                  LINE   7428 "regression-compile-tmp/imp918s.imp"
44382 @ 373646:                  PUSH   NAM
44383 @ 373649:                  PUSHI  #0x00000000
44384 @ 373654:                  JUMPIF # L_0004
44385 @ 373658:                  PUSH   FAULT
44386 @ 373661:                  PUSHI  #0x00000011
44387 @ 373666:                  ASSPAR
44388 @ 373667:                  PUSH   FNAME
44389 @ 373670:                  ASSPAR
44390 @ 373671:                  CALL  
44391 @ 373672:                  LOCATE L_0004

  7429           DUMP(1, REG, DISP, INDEX, BASE);  ->Label9
44392 @ 373675:                  LINE   7429 "regression-compile-tmp/imp918s.imp"
44393 @ 373713:                  PUSH   DUMP
44394 @ 373716:                  PUSHI  #0x00000001
44395 @ 373721:                  ASSPAR
44396 @ 373722:                  PUSH   REG
44397 @ 373725:                  ASSPAR
44398 @ 373726:                  PUSH   DISP
44399 @ 373729:                  ASSPAR
44400 @ 373730:                  PUSH   INDEX
44401 @ 373733:                  ASSPAR
44402 @ 373734:                  PUSH   BASE
44403 @ 373737:                  ASSPAR
44404 @ 373738:                  CALL  
44405 @ 373739:                  LINE   7429 "regression-compile-tmp/imp918s.imp"
44406 @ 373777:                  JUMP   L_0229

  7430  MOD(1):                                 ! SCALAR STORE
44407 @ 373780:                  LINE   7430 "regression-compile-tmp/imp918s.imp"
44408 @ 373818:                  PUSHI  #0x00000001
44409 @ 373823:                  SLABEL 532

  7431           ->Label9
44410 @ 373826:                  LINE   7431 "regression-compile-tmp/imp918s.imp"
44411 @ 373864:                  JUMP   L_0229

  7432  MOD(2):                                 ! SCALAR FETCH
44412 @ 373867:                  LINE   7432 "regression-compile-tmp/imp918s.imp"
44413 @ 373905:                  PUSHI  #0x00000002
44414 @ 373910:                  SLABEL 532

  7433  MOD(6):                                 ! SCALARNAME FETCH
44415 @ 373913:                  LINE   7433 "regression-compile-tmp/imp918s.imp"
44416 @ 373951:                  PUSHI  #0x00000006
44417 @ 373956:                  SLABEL 532

  7434           ->Label610 %IF NAMEP=0 %OR CHECKSP#0
  7435  ! HAVE A SIMPLE NAME SO LOOK AT REGISTER POINTED AT BY REGP TO SEE
  7436  ! IF THE LOAD (&UNASSIGNED CHECK) CAN BE AVOIDED
44418 @ 373959:                  LINE   7434 "regression-compile-tmp/imp918s.imp"
44419 @ 373997:                  PUSH   NAMEP
44420 @ 374000:                  PUSHI  #0x00000000
44421 @ 374005:                  JUMPIF = L_0005
44422 @ 374009:                  PUSH   CHECKSP
44423 @ 374012:                  PUSHI  #0x00000000
44424 @ 374017:                  JUMPIF = L_0004
44425 @ 374021:                  LOCATE L_0005
44426 @ 374024:                  JUMP   L_0230
44427 @ 374027:                  LOCATE L_0004

  7437           FIND USE(JJ, TYPE&3, 3, NAMEP)
44428 @ 374030:                  LINE   7437 "regression-compile-tmp/imp918s.imp"
44429 @ 374068:                  PUSH   FINDUSE
44430 @ 374071:                  PUSH   JJ
44431 @ 374074:                  ASSPAR
44432 @ 374075:                  PUSH   TYPE
44433 @ 374078:                  PUSHI  #0x00000003
44434 @ 374083:                  AND   
44435 @ 374084:                  ASSPAR
44436 @ 374085:                  PUSHI  #0x00000003
44437 @ 374090:                  ASSPAR
44438 @ 374091:                  PUSH   NAMEP
44439 @ 374094:                  ASSPAR
44440 @ 374095:                  CALL  

  7438           ->Label610 %IF JJ<0;  REGP=JJ&15
  7439  ! HAVE FOUND VARIABLE IN REGISTER. MANOEVRE IT TO REQUIRED REGISTER
44441 @ 374096:                  LINE   7438 "regression-compile-tmp/imp918s.imp"
44442 @ 374134:                  PUSH   JJ
44443 @ 374137:                  PUSHI  #0x00000000
44444 @ 374142:                  JUMPIF >= L_0004
44445 @ 374146:                  JUMP   L_0230
44446 @ 374149:                  LOCATE L_0004
44447 @ 374152:                  LINE   7438 "regression-compile-tmp/imp918s.imp"
44448 @ 374190:                  PUSH   REGP
44449 @ 374193:                  PUSH   JJ
44450 @ 374196:                  PUSHI  #0x0000000f
44451 @ 374201:                  AND   
44452 @ 374202:                  ASSVAL

  7440  SWOP:
44453 @ 374203:                  LINE   7440 "regression-compile-tmp/imp918s.imp"
44454 @ 374241:                  LABEL  L_022f

  7441           %IF REG<0 %THEN %START
44455 @ 374244:                  LINE   7441 "regression-compile-tmp/imp918s.imp"
44456 @ 374282:                  PUSH   REG
44457 @ 374285:                  PUSHI  #0x00000000
44458 @ 374290:                  JUMPIF >= L_0004

  7442              %IF REGISTER(JJ)=0 %THEN %START
44459 @ 374294:                  LINE   7442 "regression-compile-tmp/imp918s.imp"
44460 @ 374332:                  PUSH   REGISTER
44461 @ 374335:                  PUSH   JJ
44462 @ 374338:                  ACCESS
44463 @ 374339:                  PUSHI  #0x00000000
44464 @ 374344:                  JUMPIF # L_0007

  7443                 NEST=REGP;  ->Label9
44465 @ 374348:                  LINE   7443 "regression-compile-tmp/imp918s.imp"
44466 @ 374386:                  PUSH   NEST
44467 @ 374389:                  PUSH   REGP
44468 @ 374392:                  ASSVAL
44469 @ 374393:                  LINE   7443 "regression-compile-tmp/imp918s.imp"
44470 @ 374431:                  JUMP   L_0229

  7444              %FINISH;                    ! CAN USE IT AS FOUND
44471 @ 374434:                  LINE   7444 "regression-compile-tmp/imp918s.imp"
44472 @ 374472:                  LOCATE L_0007

  7445              %IF JJ>=16 %THEN FIND REG(FR0, REG) %C
  7446                 %ELSE FINDREG(GR0, REG)
44473 @ 374475:                  LINE   7445 "regression-compile-tmp/imp918s.imp"
44474 @ 374513:                  PUSH   JJ
44475 @ 374516:                  PUSHI  #0x00000010
44476 @ 374521:                  JUMPIF < L_0007
44477 @ 374525:                  PUSH   FINDREG
44478 @ 374528:                  PUSHI  #0xfffe1610
44479 @ 374533:                  ASSPAR
44480 @ 374534:                  PUSH   REG
44481 @ 374537:                  ASSPAR
44482 @ 374538:                  CALL  
44483 @ 374539:                  GOTO   L_0006
44484 @ 374542:                  LOCATE L_0007
44485 @ 374545:                  PUSH   FINDREG
44486 @ 374548:                  PUSHI  #0x00010f1e
44487 @ 374553:                  ASSPAR
44488 @ 374554:                  PUSH   REG
44489 @ 374557:                  ASSPAR
44490 @ 374558:                  CALL  
44491 @ 374559:                  LOCATE L_0006

  7447           %FINISH
  7448  ! MOVE TO NEW REGISTER ALLOWING FOR STRINGS AND ALL TYPES OF ADDRESSES
44492 @ 374562:                  LINE   7447 "regression-compile-tmp/imp918s.imp"
44493 @ 374600:                  LOCATE L_0004

  7449           %IF REG#REGP %THEN %START
44494 @ 374603:                  LINE   7449 "regression-compile-tmp/imp918s.imp"
44495 @ 374641:                  PUSH   REG
44496 @ 374644:                  PUSH   REGP
44497 @ 374647:                  JUMPIF = L_0004

  7450              PRR((JJ>>4+1)<<4+8, REG, REGP);  ! LR OR LDR
44498 @ 374651:                  LINE   7450 "regression-compile-tmp/imp918s.imp"
44499 @ 374689:                  PUSH   PRR
44500 @ 374692:                  PUSH   JJ
44501 @ 374695:                  PUSHI  #0x00000004
44502 @ 374700:                  RSH   
44503 @ 374701:                  PUSHI  #0x00000001
44504 @ 374706:                  ADD   
44505 @ 374707:                  PUSHI  #0x00000004
44506 @ 374712:                  LSH   
44507 @ 374713:                  PUSHI  #0x00000008
44508 @ 374718:                  ADD   
44509 @ 374719:                  ASSPAR
44510 @ 374720:                  PUSH   REG
44511 @ 374723:                  ASSPAR
44512 @ 374724:                  PUSH   REGP
44513 @ 374727:                  ASSPAR
44514 @ 374728:                  CALL  

  7451              KK=GRUSE(JJ)
44515 @ 374729:                  LINE   7451 "regression-compile-tmp/imp918s.imp"
44516 @ 374767:                  PUSH   KK
44517 @ 374770:                  PUSH   GRUSE
44518 @ 374773:                  PUSH   JJ
44519 @ 374776:                  ACCESS
44520 @ 374777:                  ASSVAL

  7452              JJ=JJ&16!REG
44521 @ 374778:                  LINE   7452 "regression-compile-tmp/imp918s.imp"
44522 @ 374816:                  PUSH   JJ
44523 @ 374819:                  PUSH   JJ
44524 @ 374822:                  PUSHI  #0x00000010
44525 @ 374827:                  AND   
44526 @ 374828:                  PUSH   REG
44527 @ 374831:                  OR    
44528 @ 374832:                  ASSVAL

  7453              FORGET(JJ);                 ! REMEMBER ORIGINAL REGISTER
44529 @ 374833:                  LINE   7453 "regression-compile-tmp/imp918s.imp"
44530 @ 374871:                  PUSH   FORGET
44531 @ 374874:                  PUSH   JJ
44532 @ 374877:                  ASSPAR
44533 @ 374878:                  CALL  

  7454              %IF NAMEP>0 %AND REGISTER(JJ)>=0 %C
  7455                 %THEN SET USE(JJ, KK, NAMEP)
44534 @ 374879:                  LINE   7454 "regression-compile-tmp/imp918s.imp"
44535 @ 374917:                  PUSH   NAMEP
44536 @ 374920:                  PUSHI  #0x00000000
44537 @ 374925:                  JUMPIF <= L_0007
44538 @ 374929:                  PUSH   REGISTER
44539 @ 374932:                  PUSH   JJ
44540 @ 374935:                  ACCESS
44541 @ 374936:                  PUSHI  #0x00000000
44542 @ 374941:                  JUMPIF < L_0007
44543 @ 374945:                  PUSH   SETUSE
44544 @ 374948:                  PUSH   JJ
44545 @ 374951:                  ASSPAR
44546 @ 374952:                  PUSH   KK
44547 @ 374955:                  ASSPAR
44548 @ 374956:                  PUSH   NAMEP
44549 @ 374959:                  ASSPAR
44550 @ 374960:                  CALL  
44551 @ 374961:                  LOCATE L_0007

  7456           %FINISH
44552 @ 374964:                  LINE   7456 "regression-compile-tmp/imp918s.imp"
44553 @ 375002:                  LOCATE L_0004

  7457           NEST=REG;  ->Label9
44554 @ 375005:                  LINE   7457 "regression-compile-tmp/imp918s.imp"
44555 @ 375043:                  PUSH   NEST
44556 @ 375046:                  PUSH   REG
44557 @ 375049:                  ASSVAL
44558 @ 375050:                  LINE   7457 "regression-compile-tmp/imp918s.imp"
44559 @ 375088:                  JUMP   L_0229

  7458  Label610:     ->NAMETYPE %IF NAM=1
44560 @ 375091:                  LINE   7458 "regression-compile-tmp/imp918s.imp"
44561 @ 375129:                  LABEL  L_0230
44562 @ 375132:                  LINE   7458 "regression-compile-tmp/imp918s.imp"
44563 @ 375170:                  PUSH   NAM
44564 @ 375173:                  PUSHI  #0x00000001
44565 @ 375178:                  JUMPIF # L_0004
44566 @ 375182:                  JUMP   L_0231
44567 @ 375185:                  LOCATE L_0004

  7459  GENFETCH:->DELAY %IF Z=5 %AND (UNASS=0 %OR 1<=PREC<=2)
44568 @ 375188:                  LINE   7459 "regression-compile-tmp/imp918s.imp"
44569 @ 375226:                  LABEL  L_0232
44570 @ 375229:                  LINE   7459 "regression-compile-tmp/imp918s.imp"
44571 @ 375267:                  PUSH   Z
44572 @ 375270:                  PUSHI  #0x00000005
44573 @ 375275:                  JUMPIF # L_0004
44574 @ 375279:                  PUSH   UNASS
44575 @ 375282:                  PUSHI  #0x00000000
44576 @ 375287:                  JUMPIF = L_0005
44577 @ 375291:                  PUSHI  #0x00000001
44578 @ 375296:                  PUSH   PREC
44579 @ 375299:                  JUMPIFD > L_0004
44580 @ 375303:                  PUSHI  #0x00000002
44581 @ 375308:                  JUMPIF > L_0004
44582 @ 375312:                  LOCATE L_0005
44583 @ 375315:                  JUMP   L_0233
44584 @ 375318:                  LOCATE L_0004

  7460           ->DELAY %IF TYPE=5
44585 @ 375321:                  LINE   7460 "regression-compile-tmp/imp918s.imp"
44586 @ 375359:                  PUSH   TYPE
44587 @ 375362:                  PUSHI  #0x00000005
44588 @ 375367:                  JUMPIF # L_0004
44589 @ 375371:                  JUMP   L_0233
44590 @ 375374:                  LOCATE L_0004

  7461           DUMP(JJJ, REG, DISP, INDEX, BASE)
44591 @ 375377:                  LINE   7461 "regression-compile-tmp/imp918s.imp"
44592 @ 375415:                  PUSH   DUMP
44593 @ 375418:                  PUSH   JJJ
44594 @ 375421:                  ASSPAR
44595 @ 375422:                  PUSH   REG
44596 @ 375425:                  ASSPAR
44597 @ 375426:                  PUSH   DISP
44598 @ 375429:                  ASSPAR
44599 @ 375430:                  PUSH   INDEX
44600 @ 375433:                  ASSPAR
44601 @ 375434:                  PUSH   BASE
44602 @ 375437:                  ASSPAR
44603 @ 375438:                  CALL  

  7462           REG=NEST %IF REG<0
44604 @ 375439:                  LINE   7462 "regression-compile-tmp/imp918s.imp"
44605 @ 375477:                  PUSH   REG
44606 @ 375480:                  PUSHI  #0x00000000
44607 @ 375485:                  JUMPIF >= L_0004
44608 @ 375489:                  PUSH   REG
44609 @ 375492:                  PUSH   NEST
44610 @ 375495:                  ASSVAL
44611 @ 375496:                  LOCATE L_0004

  7463           %IF UNASS=1 %AND Z#3 %AND BASE#GLA %AND 1<=TYPE<=2 %C
  7464              %AND (PREC=0 %OR PREC=3) %THEN %START
44612 @ 375499:                  LINE   7463 "regression-compile-tmp/imp918s.imp"
44613 @ 375537:                  PUSH   UNASS
44614 @ 375540:                  PUSHI  #0x00000001
44615 @ 375545:                  JUMPIF # L_0004
44616 @ 375549:                  PUSH   Z
44617 @ 375552:                  PUSHI  #0x00000003
44618 @ 375557:                  JUMPIF = L_0004
44619 @ 375561:                  PUSH   BASE
44620 @ 375564:                  PUSHI  #0x0000000d
44621 @ 375569:                  JUMPIF = L_0004
44622 @ 375573:                  PUSHI  #0x00000001
44623 @ 375578:                  PUSH   TYPE
44624 @ 375581:                  JUMPIFD > L_0004
44625 @ 375585:                  PUSHI  #0x00000002
44626 @ 375590:                  JUMPIF > L_0004
44627 @ 375594:                  PUSH   PREC
44628 @ 375597:                  PUSHI  #0x00000000
44629 @ 375602:                  JUMPIF = L_0005
44630 @ 375606:                  PUSH   PREC
44631 @ 375609:                  PUSHI  #0x00000003
44632 @ 375614:                  JUMPIF # L_0004
44633 @ 375618:                  LOCATE L_0005

  7465              PRX((TYPE-1)*(2-PREC>>1)*16+X'59', REG, 0, CODER, 216)
44634 @ 375621:                  LINE   7465 "regression-compile-tmp/imp918s.imp"
44635 @ 375659:                  PUSH   PRX
44636 @ 375662:                  PUSH   TYPE
44637 @ 375665:                  PUSHI  #0x00000001
44638 @ 375670:                  SUB   
44639 @ 375671:                  PUSHI  #0x00000002
44640 @ 375676:                  PUSH   PREC
44641 @ 375679:                  PUSHI  #0x00000001
44642 @ 375684:                  RSH   
44643 @ 375685:                  SUB   
44644 @ 375686:                  MUL   
44645 @ 375687:                  PUSHI  #0x00000010
44646 @ 375692:                  MUL   
44647 @ 375693:                  PUSHI  #0x00000059
44648 @ 375698:                  ADD   
44649 @ 375699:                  ASSPAR
44650 @ 375700:                  PUSH   REG
44651 @ 375703:                  ASSPAR
44652 @ 375704:                  PUSHI  #0x00000000
44653 @ 375709:                  ASSPAR
44654 @ 375710:                  PUSHI  #0x0000000c
44655 @ 375715:                  ASSPAR
44656 @ 375716:                  PUSHI  #0x000000d8
44657 @ 375721:                  ASSPAR
44658 @ 375722:                  CALL  

  7466              CCSTATE=-1
44659 @ 375723:                  LINE   7466 "regression-compile-tmp/imp918s.imp"
44660 @ 375761:                  PUSH   CCSTATE
44661 @ 375764:                  PUSHI  #0x00000001
44662 @ 375769:                  NEGATE
44663 @ 375770:                  ASSVAL

  7467              PCONST(X'4780C028')
44664 @ 375771:                  LINE   7467 "regression-compile-tmp/imp918s.imp"
44665 @ 375809:                  PUSH   PCONST
44666 @ 375812:                  PUSHI  #0x4780c028
44667 @ 375817:                  ASSPAR
44668 @ 375818:                  CALL  

  7468           %FINISH;                       ! BE UNASS VAR USED
44669 @ 375819:                  LINE   7468 "regression-compile-tmp/imp918s.imp"
44670 @ 375857:                  LOCATE L_0004

  7469           %IF NAMEP=0 %THEN JJJ=1 %ELSE JJJ=3
44671 @ 375860:                  LINE   7469 "regression-compile-tmp/imp918s.imp"
44672 @ 375898:                  PUSH   NAMEP
44673 @ 375901:                  PUSHI  #0x00000000
44674 @ 375906:                  JUMPIF # L_0004
44675 @ 375910:                  PUSH   JJJ
44676 @ 375913:                  PUSHI  #0x00000001
44677 @ 375918:                  ASSVAL
44678 @ 375919:                  GOTO   L_0003
44679 @ 375922:                  LOCATE L_0004
44680 @ 375925:                  PUSH   JJJ
44681 @ 375928:                  PUSHI  #0x00000003
44682 @ 375933:                  ASSVAL
44683 @ 375934:                  LOCATE L_0003

  7470           %IF JJJ=1 %AND PREC=1 %THEN JJJ=2 %AND NAMEP=-2
  7471  !         SET USE((TYPE&2)<<3+REG, JJJ, NAMEP)
44684 @ 375937:                  LINE   7470 "regression-compile-tmp/imp918s.imp"
44685 @ 375975:                  PUSH   JJJ
44686 @ 375978:                  PUSHI  #0x00000001
44687 @ 375983:                  JUMPIF # L_0004
44688 @ 375987:                  PUSH   PREC
44689 @ 375990:                  PUSHI  #0x00000001
44690 @ 375995:                  JUMPIF # L_0004
44691 @ 375999:                  PUSH   JJJ
44692 @ 376002:                  PUSHI  #0x00000002
44693 @ 376007:                  ASSVAL
44694 @ 376008:                  PUSH   NAMEP
44695 @ 376011:                  PUSHI  #0x00000002
44696 @ 376016:                  NEGATE
44697 @ 376017:                  ASSVAL
44698 @ 376018:                  LOCATE L_0004

  7472           KK=(TYPE&2)<<3+REG
44699 @ 376021:                  LINE   7472 "regression-compile-tmp/imp918s.imp"
44700 @ 376059:                  PUSH   KK
44701 @ 376062:                  PUSH   TYPE
44702 @ 376065:                  PUSHI  #0x00000002
44703 @ 376070:                  AND   
44704 @ 376071:                  PUSHI  #0x00000003
44705 @ 376076:                  LSH   
44706 @ 376077:                  PUSH   REG
44707 @ 376080:                  ADD   
44708 @ 376081:                  ASSVAL

  7473           CCSTATE=-1 %IF CCSTATE&255=KK
44709 @ 376082:                  LINE   7473 "regression-compile-tmp/imp918s.imp"
44710 @ 376120:                  PUSH   CCSTATE
44711 @ 376123:                  PUSHI  #0x000000ff
44712 @ 376128:                  AND   
44713 @ 376129:                  PUSH   KK
44714 @ 376132:                  JUMPIF # L_0004
44715 @ 376136:                  PUSH   CCSTATE
44716 @ 376139:                  PUSHI  #0x00000001
44717 @ 376144:                  NEGATE
44718 @ 376145:                  ASSVAL
44719 @ 376146:                  LOCATE L_0004

  7474           %IF REGISTER(KK)>=0 %THEN GRUSE(KK)=JJJ %AND GRINF(KK)=NAMEP
44720 @ 376149:                  LINE   7474 "regression-compile-tmp/imp918s.imp"
44721 @ 376187:                  PUSH   REGISTER
44722 @ 376190:                  PUSH   KK
44723 @ 376193:                  ACCESS
44724 @ 376194:                  PUSHI  #0x00000000
44725 @ 376199:                  JUMPIF < L_0004
44726 @ 376203:                  PUSH   GRUSE
44727 @ 376206:                  PUSH   KK
44728 @ 376209:                  ACCESS
44729 @ 376210:                  PUSH   JJJ
44730 @ 376213:                  ASSVAL
44731 @ 376214:                  PUSH   GRINF
44732 @ 376217:                  PUSH   KK
44733 @ 376220:                  ACCESS
44734 @ 376221:                  PUSH   NAMEP
44735 @ 376224:                  ASSVAL
44736 @ 376225:                  LOCATE L_0004

  7475           GRAT(KK)=CA
44737 @ 376228:                  LINE   7475 "regression-compile-tmp/imp918s.imp"
44738 @ 376266:                  PUSH   GRAT
44739 @ 376269:                  PUSH   KK
44740 @ 376272:                  ACCESS
44741 @ 376273:                  PUSH   CA
44742 @ 376276:                  ASSVAL

  7476           ->Label9
44743 @ 376277:                  LINE   7476 "regression-compile-tmp/imp918s.imp"
44744 @ 376315:                  JUMP   L_0229

  7477  DELAY:   NEST=-1;  ->Label9
44745 @ 376318:                  LINE   7477 "regression-compile-tmp/imp918s.imp"
44746 @ 376356:                  LABEL  L_0233
44747 @ 376359:                  LINE   7477 "regression-compile-tmp/imp918s.imp"
44748 @ 376397:                  PUSH   NEST
44749 @ 376400:                  PUSHI  #0x00000001
44750 @ 376405:                  NEGATE
44751 @ 376406:                  ASSVAL
44752 @ 376407:                  LINE   7477 "regression-compile-tmp/imp918s.imp"
44753 @ 376445:                  JUMP   L_0229

  7478  MOD(4):                                 ! SCALAR NAME FETCH ADDR
44754 @ 376448:                  LINE   7478 "regression-compile-tmp/imp918s.imp"
44755 @ 376486:                  PUSHI  #0x00000004
44756 @ 376491:                  SLABEL 532

  7479  MOD(7):                                 ! SACALR NAME FETCH POINTER
44757 @ 376494:                  LINE   7479 "regression-compile-tmp/imp918s.imp"
44758 @ 376532:                  PUSHI  #0x00000007
44759 @ 376537:                  SLABEL 532

  7480           JJJ=2;  ->Label621
44760 @ 376540:                  LINE   7480 "regression-compile-tmp/imp918s.imp"
44761 @ 376578:                  PUSH   JJJ
44762 @ 376581:                  PUSHI  #0x00000002
44763 @ 376586:                  ASSVAL
44764 @ 376587:                  LINE   7480 "regression-compile-tmp/imp918s.imp"
44765 @ 376625:                  JUMP   L_0234

  7481  MOD(0):                                 ! SCALAR FETCH POINTER
44766 @ 376628:                  LINE   7481 "regression-compile-tmp/imp918s.imp"
44767 @ 376666:                  PUSHI  #0x00000000
44768 @ 376671:                  SLABEL 532

  7482  MOD(3):                                 ! SCALAR FETCH ADDR
44769 @ 376674:                  LINE   7482 "regression-compile-tmp/imp918s.imp"
44770 @ 376712:                  PUSHI  #0x00000003
44771 @ 376717:                  SLABEL 532

  7483           JJJ=0
44772 @ 376720:                  LINE   7483 "regression-compile-tmp/imp918s.imp"
44773 @ 376758:                  PUSH   JJJ
44774 @ 376761:                  PUSHI  #0x00000000
44775 @ 376766:                  ASSVAL

  7484  Label621:     ->GENADDR %IF NAMEP=0
  7485  ! MUST BEWARE OF STMNTS LIKE BYTEINTEGER(ADDR(I)+2)=...
  7486  ! WHICH CAN CHANGE LOCAL VARIABLES (I) IN CORE. BIMSTR IS SET FOR ANY
  7487  ! STATEMENT CONTAINING A STORE INTO A BUILTIN MAP. WHEN THIS FLAG IS
  7488  ! SET ANY 'FETCH ADDRESS' OPERATION MUST BE TREATED AS A STORE
44776 @ 376767:                  LINE   7484 "regression-compile-tmp/imp918s.imp"
44777 @ 376805:                  LABEL  L_0234
44778 @ 376808:                  LINE   7484 "regression-compile-tmp/imp918s.imp"
44779 @ 376846:                  PUSH   NAMEP
44780 @ 376849:                  PUSHI  #0x00000000
44781 @ 376854:                  JUMPIF # L_0004
44782 @ 376858:                  JUMP   L_0235
44783 @ 376861:                  LOCATE L_0004

  7489           %IF BIMSTR#0 %THEN NOTE ASSMENT(-1, 2, FNAME)
44784 @ 376864:                  LINE   7489 "regression-compile-tmp/imp918s.imp"
44785 @ 376902:                  PUSH   BIMSTR
44786 @ 376905:                  PUSHI  #0x00000000
44787 @ 376910:                  JUMPIF = L_0004
44788 @ 376914:                  PUSH   NOTEASSMENT
44789 @ 376917:                  PUSHI  #0x00000001
44790 @ 376922:                  NEGATE
44791 @ 376923:                  ASSPAR
44792 @ 376924:                  PUSHI  #0x00000002
44793 @ 376929:                  ASSPAR
44794 @ 376930:                  PUSH   FNAME
44795 @ 376933:                  ASSPAR
44796 @ 376934:                  CALL  
44797 @ 376935:                  LOCATE L_0004

  7490           FIND USE(REGP, 1, 7, NAMEP)
44798 @ 376938:                  LINE   7490 "regression-compile-tmp/imp918s.imp"
44799 @ 376976:                  PUSH   FINDUSE
44800 @ 376979:                  PUSH   REGP
44801 @ 376982:                  ASSPAR
44802 @ 376983:                  PUSHI  #0x00000001
44803 @ 376988:                  ASSPAR
44804 @ 376989:                  PUSHI  #0x00000007
44805 @ 376994:                  ASSPAR
44806 @ 376995:                  PUSH   NAMEP
44807 @ 376998:                  ASSPAR
44808 @ 376999:                  CALL  

  7491           ->GENADDR %UNLESS REGP>=0
44809 @ 377000:                  LINE   7491 "regression-compile-tmp/imp918s.imp"
44810 @ 377038:                  PUSH   REGP
44811 @ 377041:                  PUSHI  #0x00000000
44812 @ 377046:                  JUMPIF >= L_0004
44813 @ 377050:                  JUMP   L_0235
44814 @ 377053:                  LOCATE L_0004

  7492           JJ=REGP;  ->SWOP
44815 @ 377056:                  LINE   7492 "regression-compile-tmp/imp918s.imp"
44816 @ 377094:                  PUSH   JJ
44817 @ 377097:                  PUSH   REGP
44818 @ 377100:                  ASSVAL
44819 @ 377101:                  LINE   7492 "regression-compile-tmp/imp918s.imp"
44820 @ 377139:                  JUMP   L_022f

  7493  GENADDR: DUMP(JJJ, REG, DISP, INDEX, BASE)
44821 @ 377142:                  LINE   7493 "regression-compile-tmp/imp918s.imp"
44822 @ 377180:                  LABEL  L_0235
44823 @ 377183:                  LINE   7493 "regression-compile-tmp/imp918s.imp"
44824 @ 377221:                  PUSH   DUMP
44825 @ 377224:                  PUSH   JJJ
44826 @ 377227:                  ASSPAR
44827 @ 377228:                  PUSH   REG
44828 @ 377231:                  ASSPAR
44829 @ 377232:                  PUSH   DISP
44830 @ 377235:                  ASSPAR
44831 @ 377236:                  PUSH   INDEX
44832 @ 377239:                  ASSPAR
44833 @ 377240:                  PUSH   BASE
44834 @ 377243:                  ASSPAR
44835 @ 377244:                  CALL  

  7494           REG=NEST %IF REG<0
44836 @ 377245:                  LINE   7494 "regression-compile-tmp/imp918s.imp"
44837 @ 377283:                  PUSH   REG
44838 @ 377286:                  PUSHI  #0x00000000
44839 @ 377291:                  JUMPIF >= L_0004
44840 @ 377295:                  PUSH   REG
44841 @ 377298:                  PUSH   NEST
44842 @ 377301:                  ASSVAL
44843 @ 377302:                  LOCATE L_0004

  7495           %IF Z=4 %AND JJJ=2 %AND TYPE&3=0 %THEN %START
44844 @ 377305:                  LINE   7495 "regression-compile-tmp/imp918s.imp"
44845 @ 377343:                  PUSH   Z
44846 @ 377346:                  PUSHI  #0x00000004
44847 @ 377351:                  JUMPIF # L_0004
44848 @ 377355:                  PUSH   JJJ
44849 @ 377358:                  PUSHI  #0x00000002
44850 @ 377363:                  JUMPIF # L_0004
44851 @ 377367:                  PUSH   TYPE
44852 @ 377370:                  PUSHI  #0x00000003
44853 @ 377375:                  AND   
44854 @ 377376:                  PUSHI  #0x00000000
44855 @ 377381:                  JUMPIF # L_0004

  7496              PRX(X'54', REG, GLA, 0, 60);! N REG,=X'00FFFFFF'
44856 @ 377385:                  LINE   7496 "regression-compile-tmp/imp918s.imp"
44857 @ 377423:                  PUSH   PRX
44858 @ 377426:                  PUSHI  #0x00000054
44859 @ 377431:                  ASSPAR
44860 @ 377432:                  PUSH   REG
44861 @ 377435:                  ASSPAR
44862 @ 377436:                  PUSHI  #0x0000000d
44863 @ 377441:                  ASSPAR
44864 @ 377442:                  PUSHI  #0x00000000
44865 @ 377447:                  ASSPAR
44866 @ 377448:                  PUSHI  #0x0000003c
44867 @ 377453:                  ASSPAR
44868 @ 377454:                  CALL  

  7497              NAMEP=0
44869 @ 377455:                  LINE   7497 "regression-compile-tmp/imp918s.imp"
44870 @ 377493:                  PUSH   NAMEP
44871 @ 377496:                  PUSHI  #0x00000000
44872 @ 377501:                  ASSVAL

  7498           %FINISH
44873 @ 377502:                  LINE   7498 "regression-compile-tmp/imp918s.imp"
44874 @ 377540:                  LOCATE L_0004

  7499           %IF NAMEP=0 %THEN JJJ=0 %ELSE JJJ=7
44875 @ 377543:                  LINE   7499 "regression-compile-tmp/imp918s.imp"
44876 @ 377581:                  PUSH   NAMEP
44877 @ 377584:                  PUSHI  #0x00000000
44878 @ 377589:                  JUMPIF # L_0004
44879 @ 377593:                  PUSH   JJJ
44880 @ 377596:                  PUSHI  #0x00000000
44881 @ 377601:                  ASSVAL
44882 @ 377602:                  GOTO   L_0003
44883 @ 377605:                  LOCATE L_0004
44884 @ 377608:                  PUSH   JJJ
44885 @ 377611:                  PUSHI  #0x00000007
44886 @ 377616:                  ASSVAL
44887 @ 377617:                  LOCATE L_0003

  7500           SET USE(REG, JJJ, NAMEP);  ->Label9
44888 @ 377620:                  LINE   7500 "regression-compile-tmp/imp918s.imp"
44889 @ 377658:                  PUSH   SETUSE
44890 @ 377661:                  PUSH   REG
44891 @ 377664:                  ASSPAR
44892 @ 377665:                  PUSH   JJJ
44893 @ 377668:                  ASSPAR
44894 @ 377669:                  PUSH   NAMEP
44895 @ 377672:                  ASSPAR
44896 @ 377673:                  CALL  
44897 @ 377674:                  LINE   7500 "regression-compile-tmp/imp918s.imp"
44898 @ 377712:                  JUMP   L_0229

  7501  MOD(5):                                 ! SCALAR NAME STORE
44899 @ 377715:                  LINE   7501 "regression-compile-tmp/imp918s.imp"
44900 @ 377753:                  PUSHI  #0x00000005
44901 @ 377758:                  SLABEL 532

  7502  NAMETYPE:->Label630 %UNLESS NAMEP#0
44902 @ 377761:                  LINE   7502 "regression-compile-tmp/imp918s.imp"
44903 @ 377799:                  LABEL  L_0231
44904 @ 377802:                  LINE   7502 "regression-compile-tmp/imp918s.imp"
44905 @ 377840:                  PUSH   NAMEP
44906 @ 377843:                  PUSHI  #0x00000000
44907 @ 377848:                  JUMPIF # L_0004
44908 @ 377852:                  JUMP   L_0236
44909 @ 377855:                  LOCATE L_0004

  7503           FIND USE(REGP, 1, 7, NAMEP)
44910 @ 377858:                  LINE   7503 "regression-compile-tmp/imp918s.imp"
44911 @ 377896:                  PUSH   FINDUSE
44912 @ 377899:                  PUSH   REGP
44913 @ 377902:                  ASSPAR
44914 @ 377903:                  PUSHI  #0x00000001
44915 @ 377908:                  ASSPAR
44916 @ 377909:                  PUSHI  #0x00000007
44917 @ 377914:                  ASSPAR
44918 @ 377915:                  PUSH   NAMEP
44919 @ 377918:                  ASSPAR
44920 @ 377919:                  CALL  

  7504           ->Label631 %IF REGP>0
44921 @ 377920:                  LINE   7504 "regression-compile-tmp/imp918s.imp"
44922 @ 377958:                  PUSH   REGP
44923 @ 377961:                  PUSHI  #0x00000000
44924 @ 377966:                  JUMPIF <= L_0004
44925 @ 377970:                  JUMP   L_0237
44926 @ 377973:                  LOCATE L_0004

  7505  Label630:     FIND REG(ADDREG, REGP)
44927 @ 377976:                  LINE   7505 "regression-compile-tmp/imp918s.imp"
44928 @ 378014:                  LABEL  L_0236
44929 @ 378017:                  LINE   7505 "regression-compile-tmp/imp918s.imp"
44930 @ 378055:                  PUSH   FINDREG
44931 @ 378058:                  PUSHI  #0xffff0e01
44932 @ 378063:                  ASSPAR
44933 @ 378064:                  PUSH   REGP
44934 @ 378067:                  ASSPAR
44935 @ 378068:                  CALL  

  7506           DUMP(X'58', REGP, DISP, INDEX, BASE);    ! ADDR TO REGP
44936 @ 378069:                  LINE   7506 "regression-compile-tmp/imp918s.imp"
44937 @ 378107:                  PUSH   DUMP
44938 @ 378110:                  PUSHI  #0x00000058
44939 @ 378115:                  ASSPAR
44940 @ 378116:                  PUSH   REGP
44941 @ 378119:                  ASSPAR
44942 @ 378120:                  PUSH   DISP
44943 @ 378123:                  ASSPAR
44944 @ 378124:                  PUSH   INDEX
44945 @ 378127:                  ASSPAR
44946 @ 378128:                  PUSH   BASE
44947 @ 378131:                  ASSPAR
44948 @ 378132:                  CALL  

  7507           %IF NAMEP=0 %THEN RR=0 %ELSE RR=7
44949 @ 378133:                  LINE   7507 "regression-compile-tmp/imp918s.imp"
44950 @ 378171:                  PUSH   NAMEP
44951 @ 378174:                  PUSHI  #0x00000000
44952 @ 378179:                  JUMPIF # L_0004
44953 @ 378183:                  PUSH   RR
44954 @ 378186:                  PUSHI  #0x00000000
44955 @ 378191:                  ASSVAL
44956 @ 378192:                  GOTO   L_0003
44957 @ 378195:                  LOCATE L_0004
44958 @ 378198:                  PUSH   RR
44959 @ 378201:                  PUSHI  #0x00000007
44960 @ 378206:                  ASSVAL
44961 @ 378207:                  LOCATE L_0003

  7508           SET USE(REGP, RR, NAMEP)
44962 @ 378210:                  LINE   7508 "regression-compile-tmp/imp918s.imp"
44963 @ 378248:                  PUSH   SETUSE
44964 @ 378251:                  PUSH   REGP
44965 @ 378254:                  ASSPAR
44966 @ 378255:                  PUSH   RR
44967 @ 378258:                  ASSPAR
44968 @ 378259:                  PUSH   NAMEP
44969 @ 378262:                  ASSPAR
44970 @ 378263:                  CALL  

  7509  Label631:     INDEX=0;  BASE=REGP;  DISP=0
44971 @ 378264:                  LINE   7509 "regression-compile-tmp/imp918s.imp"
44972 @ 378302:                  LABEL  L_0237
44973 @ 378305:                  LINE   7509 "regression-compile-tmp/imp918s.imp"
44974 @ 378343:                  PUSH   INDEX
44975 @ 378346:                  PUSHI  #0x00000000
44976 @ 378351:                  ASSVAL
44977 @ 378352:                  LINE   7509 "regression-compile-tmp/imp918s.imp"
44978 @ 378390:                  PUSH   BASE
44979 @ 378393:                  PUSH   REGP
44980 @ 378396:                  ASSVAL
44981 @ 378397:                  LINE   7509 "regression-compile-tmp/imp918s.imp"
44982 @ 378435:                  PUSH   DISP
44983 @ 378438:                  PUSHI  #0x00000000
44984 @ 378443:                  ASSVAL

  7510           ->GENFETCH %UNLESS Z=1 %OR Z>10
44985 @ 378444:                  LINE   7510 "regression-compile-tmp/imp918s.imp"
44986 @ 378482:                  PUSH   Z
44987 @ 378485:                  PUSHI  #0x00000001
44988 @ 378490:                  JUMPIF = L_0004
44989 @ 378494:                  PUSH   Z
44990 @ 378497:                  PUSHI  #0x0000000a
44991 @ 378502:                  JUMPIF > L_0004
44992 @ 378506:                  JUMP   L_0232
44993 @ 378509:                  LOCATE L_0004

  7511  Label9:       ->Label1 %UNLESS ARR=0
44994 @ 378512:                  LINE   7511 "regression-compile-tmp/imp918s.imp"
44995 @ 378550:                  LABEL  L_0229
44996 @ 378553:                  LINE   7511 "regression-compile-tmp/imp918s.imp"
44997 @ 378591:                  PUSH   ARR
44998 @ 378594:                  PUSHI  #0x00000000
44999 @ 378599:                  JUMPIF = L_0004
45000 @ 378603:                  JUMP   L_021b
45001 @ 378606:                  LOCATE L_0004

  7512  Label91:      P=P+1
45002 @ 378609:                  LINE   7512 "regression-compile-tmp/imp918s.imp"
45003 @ 378647:                  LABEL  L_021d
45004 @ 378650:                  LINE   7512 "regression-compile-tmp/imp918s.imp"
45005 @ 378688:                  PUSH   P
45006 @ 378691:                  PUSH   P
45007 @ 378694:                  PUSHI  #0x00000001
45008 @ 378699:                  ADD   
45009 @ 378700:                  ASSVAL

  7513           ->Label6 %IF A(P)=2
45010 @ 378701:                  LINE   7513 "regression-compile-tmp/imp918s.imp"
45011 @ 378739:                  PUSH   A
45012 @ 378742:                  PUSH   P
45013 @ 378745:                  ACCESS
45014 @ 378746:                  PUSHI  #0x00000002
45015 @ 378751:                  JUMPIF # L_0004
45016 @ 378755:                  JUMP   L_021f
45017 @ 378758:                  LOCATE L_0004

  7514           FAULT(19, FNAME)
45018 @ 378761:                  LINE   7514 "regression-compile-tmp/imp918s.imp"
45019 @ 378799:                  PUSH   FAULT
45020 @ 378802:                  PUSHI  #0x00000013
45021 @ 378807:                  ASSPAR
45022 @ 378808:                  PUSH   FNAME
45023 @ 378811:                  ASSPAR
45024 @ 378812:                  CALL  

  7515           SKIP APP;  ->Label1
45025 @ 378813:                  LINE   7515 "regression-compile-tmp/imp918s.imp"
45026 @ 378851:                  PUSH   SKIPAPP
45027 @ 378854:                  CALL  
45028 @ 378855:                  LINE   7515 "regression-compile-tmp/imp918s.imp"
45029 @ 378893:                  JUMP   L_021b

  7516  Label6:       P=P+1
45030 @ 378896:                  LINE   7516 "regression-compile-tmp/imp918s.imp"
45031 @ 378934:                  LABEL  L_021f
45032 @ 378937:                  LINE   7516 "regression-compile-tmp/imp918s.imp"
45033 @ 378975:                  PUSH   P
45034 @ 378978:                  PUSH   P
45035 @ 378981:                  PUSHI  #0x00000001
45036 @ 378986:                  ADD   
45037 @ 378987:                  ASSVAL

  7517  Label1:       P=P+1;  ->Label9005 %IF A(P-1)=2
45038 @ 378988:                  LINE   7517 "regression-compile-tmp/imp918s.imp"
45039 @ 379026:                  LABEL  L_021b
45040 @ 379029:                  LINE   7517 "regression-compile-tmp/imp918s.imp"
45041 @ 379067:                  PUSH   P
45042 @ 379070:                  PUSH   P
45043 @ 379073:                  PUSHI  #0x00000001
45044 @ 379078:                  ADD   
45045 @ 379079:                  ASSVAL
45046 @ 379080:                  LINE   7517 "regression-compile-tmp/imp918s.imp"
45047 @ 379118:                  PUSH   A
45048 @ 379121:                  PUSH   P
45049 @ 379124:                  PUSHI  #0x00000001
45050 @ 379129:                  SUB   
45051 @ 379130:                  ACCESS
45052 @ 379131:                  PUSHI  #0x00000002
45053 @ 379136:                  JUMPIF # L_0004
45054 @ 379140:                  JUMP   L_0222
45055 @ 379143:                  LOCATE L_0004

  7518           FAULT(69, FNAME);  ->Label91
45056 @ 379146:                  LINE   7518 "regression-compile-tmp/imp918s.imp"
45057 @ 379184:                  PUSH   FAULT
45058 @ 379187:                  PUSHI  #0x00000045
45059 @ 379192:                  ASSPAR
45060 @ 379193:                  PUSH   FNAME
45061 @ 379196:                  ASSPAR
45062 @ 379197:                  CALL  
45063 @ 379198:                  LINE   7518 "regression-compile-tmp/imp918s.imp"
45064 @ 379236:                  JUMP   L_021d

  7519  Label9005: %END
45065 @ 379239:                  LINE   7519 "regression-compile-tmp/imp918s.imp"
45066 @ 379277:                  LABEL  L_0222
45067 @ 379280:                  LINE   7519 "regression-compile-tmp/imp918s.imp"
45068 @ 379318:               END    _lev0id0_CSS_CNAME {lev=3 --> 2}

  7520           %ROUTINE CRCALL(%INTEGER TCELLP)
  7521           {%SHORTROUTINE}
  7522  !***********************************************************************
  7523  !*       COMPILE A ROUTINE OR FN CALL                                  *
  7524  !*       THE PROCEDURE CONSIST OF THREE PARTS:-                        *
  7525  !*       A) PLANT THE PARAMETER (IF ANY)                               *
  7526  !*       B) ENTER THE ROUTINE OR FN                                    *
  7527  !*       C) FORGET ANY REGISTERS WHICH HOLD ENTITIES THAT CAN BE       *
  7528  !*          ALTERED BY THE CALLED PROCEDURE.                           *
  7529  !*       ALSO CONTAINS A SPECIAL FOR CALLS OF IOCP & MONITOR           *
  7530  !*       ROUTINE TAGS ARE AS FOLLOWS:-                                 *
  7531  !*       SNDISP = WORD(!) DISPLACEMENT OF EP(REF)FROM HEAD OF CODE(GLA)*
  7532  !*        (OR)  = LISTHEAD OF OUTSTANDING FORWARD REFS                 *
  7533  !*       KFORM  = PSIMPLE<<12 ! NO OF PARAMS                           *
  7534  !*       K      = LIST OF FORMAL PARAMETER DESCRIPTIONS                *
  7535  !***********************************************************************
45069 @ 379319:               LINE   7520 "regression-compile-tmp/imp918s.imp"
45070 @ 379357:               DEF    CRCALL (_lev0id0_CSS_CRCALL) p1=V_0187 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
45071 @ 379375:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
45072 @ 379376:                     DEF    TCELLP p1=V_0203 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
45073 @ 379394:                  FINISH ) {lev=3}

  7536           %INTEGER KK,II,III,QQQ,SCA,JJ,JJJ,NPARMS,PT,LP,KKK,PSIZE, %C
  7537                    SAVEFPTR,PSIMPLE,RTNAME,R1,R2,TL,MOVEPTR,RDISP,CLINK
45074 @ 379395:                  LINE   7536 "regression-compile-tmp/imp918s.imp"
45075 @ 379433:                  DEF    KK p1=V_0204 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
45076 @ 379447:                  DEF    II p1=V_0205 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
45077 @ 379461:                  DEF    III p1=V_0206 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
45078 @ 379476:                  DEF    QQQ p1=V_0207 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
45079 @ 379491:                  DEF    SCA p1=V_0208 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
45080 @ 379506:                  DEF    JJ p1=V_0209 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
45081 @ 379520:                  DEF    JJJ p1=V_020a 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
45082 @ 379535:                  DEF    NPARMS p1=V_020b 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
45083 @ 379553:                  DEF    PT p1=V_020c 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
45084 @ 379567:                  DEF    LP p1=V_020d 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
45085 @ 379581:                  DEF    KKK p1=V_020e 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
45086 @ 379596:                  DEF    PSIZE p1=V_020f 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
45087 @ 379613:                  DEF    SAVEFPTR p1=V_0210 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
45088 @ 379633:                  DEF    PSIMPLE p1=V_0211 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
45089 @ 379652:                  DEF    RTNAME p1=V_0212 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
45090 @ 379670:                  DEF    R1 p1=V_0213 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
45091 @ 379684:                  DEF    R2 p1=V_0214 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
45092 @ 379698:                  DEF    TL p1=V_0215 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
45093 @ 379712:                  DEF    MOVEPTR p1=V_0216 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
45094 @ 379731:                  DEF    RDISP p1=V_0217 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
45095 @ 379748:                  DEF    CLINK p1=V_0218 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

  7538           %OWNSHORTINTEGER FPTR
45096 @ 379765:                  LINE   7538 "regression-compile-tmp/imp918s.imp"
45097 @ 379803:                  DEF    FPTR p1=V_0219 a/tf=11 b/format=3 c/ostate=21  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=1 (own) spec=0 indirect=0 unass=1
45098 @ 379819:                  INIT   1

  7539           SAVE IRS(RBASE+4)
  7540  !
  7541  ! IF ANY ROUTINE HAS FUNCTIONS IN ITS PARAMETER LIST THIS ROUTINE
  7542  ! WILL BE CALLED RECURSIVELY. FPTR KEEPS TRACK OF PARAMETERS AHEAD OF
  7543  ! THE STACK TOP WHICH MUST BE PROTECTED
  7544  !
45099 @ 379822:                  LINE   7539 "regression-compile-tmp/imp918s.imp"
45100 @ 379860:                  PUSH   SAVEIRS
45101 @ 379863:                  PUSH   RBASE
45102 @ 379866:                  PUSHI  #0x00000004
45103 @ 379871:                  ADD   
45104 @ 379872:                  ASSPAR
45105 @ 379873:                  CALL  

  7545           SAVEFPTR=FPTR; R1=4; R2=14
45106 @ 379874:                  LINE   7545 "regression-compile-tmp/imp918s.imp"
45107 @ 379912:                  PUSH   SAVEFPTR
45108 @ 379915:                  PUSH   FPTR
45109 @ 379918:                  ASSVAL
45110 @ 379919:                  LINE   7545 "regression-compile-tmp/imp918s.imp"
45111 @ 379957:                  PUSH   R1
45112 @ 379960:                  PUSHI  #0x00000004
45113 @ 379965:                  ASSVAL
45114 @ 379966:                  LINE   7545 "regression-compile-tmp/imp918s.imp"
45115 @ 380004:                  PUSH   R2
45116 @ 380007:                  PUSHI  #0x0000000e
45117 @ 380012:                  ASSVAL

  7546           LP=I;JJJ=J; CLINK=K; KKK=CLINK; TL=OLDI
45118 @ 380013:                  LINE   7546 "regression-compile-tmp/imp918s.imp"
45119 @ 380051:                  PUSH   LP
45120 @ 380054:                  PUSH   I
45121 @ 380057:                  ASSVAL
45122 @ 380058:                  LINE   7546 "regression-compile-tmp/imp918s.imp"
45123 @ 380096:                  PUSH   JJJ
45124 @ 380099:                  PUSH   J
45125 @ 380102:                  ASSVAL
45126 @ 380103:                  LINE   7546 "regression-compile-tmp/imp918s.imp"
45127 @ 380141:                  PUSH   CLINK
45128 @ 380144:                  PUSH   K
45129 @ 380147:                  ASSVAL
45130 @ 380148:                  LINE   7546 "regression-compile-tmp/imp918s.imp"
45131 @ 380186:                  PUSH   KKK
45132 @ 380189:                  PUSH   CLINK
45133 @ 380192:                  ASSVAL
45134 @ 380193:                  LINE   7546 "regression-compile-tmp/imp918s.imp"
45135 @ 380231:                  PUSH   TL
45136 @ 380234:                  PUSH   OLDI
45137 @ 380237:                  ASSVAL

  7547           RDISP=4*(SNDISP&X'FFFF'); PSIMPLE=KFORM>>12
45138 @ 380238:                  LINE   7547 "regression-compile-tmp/imp918s.imp"
45139 @ 380276:                  PUSH   RDISP
45140 @ 380279:                  PUSHI  #0x00000004
45141 @ 380284:                  PUSH   SNDISP
45142 @ 380287:                  PUSHI  #0x0000ffff
45143 @ 380292:                  AND   
45144 @ 380293:                  MUL   
45145 @ 380294:                  ASSVAL
45146 @ 380295:                  LINE   7547 "regression-compile-tmp/imp918s.imp"
45147 @ 380333:                  PUSH   PSIMPLE
45148 @ 380336:                  PUSH   KFORM
45149 @ 380339:                  PUSHI  #0x0000000c
45150 @ 380344:                  RSH   
45151 @ 380345:                  ASSVAL

  7548           MOVEPTR=(FPTR+7)&(-8)
45152 @ 380346:                  LINE   7548 "regression-compile-tmp/imp918s.imp"
45153 @ 380384:                  PUSH   MOVEPTR
45154 @ 380387:                  PUSH   FPTR
45155 @ 380390:                  PUSHI  #0x00000007
45156 @ 380395:                  ADD   
45157 @ 380396:                  PUSHI  #0x00000008
45158 @ 380401:                  NEGATE
45159 @ 380402:                  AND   
45160 @ 380403:                  ASSVAL

  7549           %IF FPTR>64 %THEN MOVER(WSPR,MOVEPTR)
  7550                                         ! ADVANCE WSP IF ALREADY IN THE
45161 @ 380404:                  LINE   7549 "regression-compile-tmp/imp918s.imp"
45162 @ 380442:                  PUSH   FPTR
45163 @ 380445:                  PUSHI  #0x00000040
45164 @ 380450:                  JUMPIF <= L_0004
45165 @ 380454:                  PUSH   MOVER
45166 @ 380457:                  PUSHI  #0x0000000b
45167 @ 380462:                  ASSPAR
45168 @ 380463:                  PUSH   MOVEPTR
45169 @ 380466:                  ASSPAR
45170 @ 380467:                  CALL  
45171 @ 380468:                  LOCATE L_0004

  7551           FPTR=0;RTNAME=A(P);PT=PTYPE;  ! MIDDLE OF A RT CALL
45172 @ 380471:                  LINE   7551 "regression-compile-tmp/imp918s.imp"
45173 @ 380509:                  PUSH   FPTR
45174 @ 380512:                  PUSHI  #0x00000000
45175 @ 380517:                  ASSVAL
45176 @ 380518:                  LINE   7551 "regression-compile-tmp/imp918s.imp"
45177 @ 380556:                  PUSH   RTNAME
45178 @ 380559:                  PUSH   A
45179 @ 380562:                  PUSH   P
45180 @ 380565:                  ACCESS
45181 @ 380566:                  ASSVAL
45182 @ 380567:                  LINE   7551 "regression-compile-tmp/imp918s.imp"
45183 @ 380605:                  PUSH   PT
45184 @ 380608:                  PUSH   PTYPE
45185 @ 380611:                  ASSVAL

  7552           %IF TCELLP<0 %THEN %START;   ! CALL OF IOCP
45186 @ 380612:                  LINE   7552 "regression-compile-tmp/imp918s.imp"
45187 @ 380650:                  PUSH   TCELLP
45188 @ 380653:                  PUSHI  #0x00000000
45189 @ 380658:                  JUMPIF >= L_0004

  7553              PT=10000;JJJ=14; PSIMPLE=0
45190 @ 380662:                  LINE   7553 "regression-compile-tmp/imp918s.imp"
45191 @ 380700:                  PUSH   PT
45192 @ 380703:                  PUSHI  #0x00002710
45193 @ 380708:                  ASSVAL
45194 @ 380709:                  LINE   7553 "regression-compile-tmp/imp918s.imp"
45195 @ 380747:                  PUSH   JJJ
45196 @ 380750:                  PUSHI  #0x0000000e
45197 @ 380755:                  ASSVAL
45198 @ 380756:                  LINE   7553 "regression-compile-tmp/imp918s.imp"
45199 @ 380794:                  PUSH   PSIMPLE
45200 @ 380797:                  PUSHI  #0x00000000
45201 @ 380802:                  ASSVAL

  7554              %IF TCELLP=-1 %THEN %START
45202 @ 380803:                  LINE   7554 "regression-compile-tmp/imp918s.imp"
45203 @ 380841:                  PUSH   TCELLP
45204 @ 380844:                  PUSHI  #0x00000001
45205 @ 380849:                  NEGATE
45206 @ 380850:                  JUMPIF # L_0007

  7555                 RDISP=IOCP1; NPARMS=2; R2=1
45207 @ 380854:                  LINE   7555 "regression-compile-tmp/imp918s.imp"
45208 @ 380892:                  PUSH   RDISP
45209 @ 380895:                  PUSH   IOCP1
45210 @ 380898:                  ASSVAL
45211 @ 380899:                  LINE   7555 "regression-compile-tmp/imp918s.imp"
45212 @ 380937:                  PUSH   NPARMS
45213 @ 380940:                  PUSHI  #0x00000002
45214 @ 380945:                  ASSVAL
45215 @ 380946:                  LINE   7555 "regression-compile-tmp/imp918s.imp"
45216 @ 380984:                  PUSH   R2
45217 @ 380987:                  PUSHI  #0x00000001
45218 @ 380992:                  ASSVAL

  7556              %FINISH %ELSE %START
45219 @ 380993:                  LINE   7556 "regression-compile-tmp/imp918s.imp"
45220 @ 381031:                  GOTO   L_0006
45221 @ 381034:                  LOCATE L_0007

  7557                  RDISP=IMPMON1; NPARMS=0
45222 @ 381037:                  LINE   7557 "regression-compile-tmp/imp918s.imp"
45223 @ 381075:                  PUSH   RDISP
45224 @ 381078:                  PUSH   IMPMON1
45225 @ 381081:                  ASSVAL
45226 @ 381082:                  LINE   7557 "regression-compile-tmp/imp918s.imp"
45227 @ 381120:                  PUSH   NPARMS
45228 @ 381123:                  PUSHI  #0x00000000
45229 @ 381128:                  ASSVAL

  7558              %FINISH
45230 @ 381129:                  LINE   7558 "regression-compile-tmp/imp918s.imp"
45231 @ 381167:                  LOCATE L_0006

  7559              -> ENTRY SEQ
45232 @ 381170:                  LINE   7559 "regression-compile-tmp/imp918s.imp"
45233 @ 381208:                  JUMP   L_021a

  7560           %FINISH
  7561  !
  7562  ! NOW CHECK THAT THE RIGHT NUMBER OF PARAMETERS HAVE BEEN PROVIDED
  7563  !
45234 @ 381211:                  LINE   7560 "regression-compile-tmp/imp918s.imp"
45235 @ 381249:                  LOCATE L_0004

  7564           P=P+1
45236 @ 381252:                  LINE   7564 "regression-compile-tmp/imp918s.imp"
45237 @ 381290:                  PUSH   P
45238 @ 381293:                  PUSH   P
45239 @ 381296:                  PUSHI  #0x00000001
45240 @ 381301:                  ADD   
45241 @ 381302:                  ASSVAL

  7565           NPARMS=KFORM&4095
45242 @ 381303:                  LINE   7565 "regression-compile-tmp/imp918s.imp"
45243 @ 381341:                  PUSH   NPARMS
45244 @ 381344:                  PUSH   KFORM
45245 @ 381347:                  PUSHI  #0x00000fff
45246 @ 381352:                  AND   
45247 @ 381353:                  ASSVAL

  7566           %IF NPARMS=0 %START
45248 @ 381354:                  LINE   7566 "regression-compile-tmp/imp918s.imp"
45249 @ 381392:                  PUSH   NPARMS
45250 @ 381395:                  PUSHI  #0x00000000
45251 @ 381400:                  JUMPIF # L_0004

  7567              ->ENTRY SEQ %IF A(P)=2
45252 @ 381404:                  LINE   7567 "regression-compile-tmp/imp918s.imp"
45253 @ 381442:                  PUSH   A
45254 @ 381445:                  PUSH   P
45255 @ 381448:                  ACCESS
45256 @ 381449:                  PUSHI  #0x00000002
45257 @ 381454:                  JUMPIF # L_0007
45258 @ 381458:                  JUMP   L_021a
45259 @ 381461:                  LOCATE L_0007

  7568              FAULT(19,RTNAME);          ! WRONG NO OF PARAMETERS GIVEN
45260 @ 381464:                  LINE   7568 "regression-compile-tmp/imp918s.imp"
45261 @ 381502:                  PUSH   FAULT
45262 @ 381505:                  PUSHI  #0x00000013
45263 @ 381510:                  ASSPAR
45264 @ 381511:                  PUSH   RTNAME
45265 @ 381514:                  ASSPAR
45266 @ 381515:                  CALL  

  7569              SKIP APP; P=P-1
45267 @ 381516:                  LINE   7569 "regression-compile-tmp/imp918s.imp"
45268 @ 381554:                  PUSH   SKIPAPP
45269 @ 381557:                  CALL  
45270 @ 381558:                  LINE   7569 "regression-compile-tmp/imp918s.imp"
45271 @ 381596:                  PUSH   P
45272 @ 381599:                  PUSH   P
45273 @ 381602:                  PUSHI  #0x00000001
45274 @ 381607:                  SUB   
45275 @ 381608:                  ASSVAL

  7570              %RETURN
45276 @ 381609:                  LINE   7570 "regression-compile-tmp/imp918s.imp"
45277 @ 381647:                  RETURN

  7571           %FINISH
  7572  !
  7573  ! A ROUTINE IS DEEMED TO HAVE SIMPLE PARAMETERS IF THEY CAN BE LOADED
  7574  ! INTO GRS 0 UP AND PLANTED IN THE SAME 'STM' THAT STORES THE REGISTERS
  7575  ! THIS IS CHECKED AT ROUTINESPEC TIME. ONLY THE REGISTERS NEED BE
  7576  ! LOOKED AT HERE.
  7577  !
45278 @ 381648:                  LINE   7571 "regression-compile-tmp/imp918s.imp"
45279 @ 381686:                  LOCATE L_0004

  7578           II=0
45280 @ 381689:                  LINE   7578 "regression-compile-tmp/imp918s.imp"
45281 @ 381727:                  PUSH   II
45282 @ 381730:                  PUSHI  #0x00000000
45283 @ 381735:                  ASSVAL

  7579           %WHILE PSIMPLE=1 %AND II<NPARMS %CYCLE
45284 @ 381736:                  LINE   7579 "regression-compile-tmp/imp918s.imp"
45285 @ 381774:                  LOCATE L_0003
45286 @ 381777:                  PUSH   PSIMPLE
45287 @ 381780:                  PUSHI  #0x00000001
45288 @ 381785:                  JUMPIF # L_0004
45289 @ 381789:                  PUSH   II
45290 @ 381792:                  PUSH   NPARMS
45291 @ 381795:                  JUMPIF >= L_0004

  7580              PSIMPLE=0 %UNLESS REGISTER(II)=0
45292 @ 381799:                  LINE   7580 "regression-compile-tmp/imp918s.imp"
45293 @ 381837:                  PUSH   REGISTER
45294 @ 381840:                  PUSH   II
45295 @ 381843:                  ACCESS
45296 @ 381844:                  PUSHI  #0x00000000
45297 @ 381849:                  JUMPIF = L_0007
45298 @ 381853:                  PUSH   PSIMPLE
45299 @ 381856:                  PUSHI  #0x00000000
45300 @ 381861:                  ASSVAL
45301 @ 381862:                  LOCATE L_0007

  7581              II=II+1
45302 @ 381865:                  LINE   7581 "regression-compile-tmp/imp918s.imp"
45303 @ 381903:                  PUSH   II
45304 @ 381906:                  PUSH   II
45305 @ 381909:                  PUSHI  #0x00000001
45306 @ 381914:                  ADD   
45307 @ 381915:                  ASSVAL

  7582           %REPEAT
45308 @ 381916:                  LINE   7582 "regression-compile-tmp/imp918s.imp"
45309 @ 381954:                  REPEAT L_0003
45310 @ 381957:                  LOCATE L_0004

  7583           %IF PSIMPLE#0 %THEN %START
45311 @ 381960:                  LINE   7583 "regression-compile-tmp/imp918s.imp"
45312 @ 381998:                  PUSH   PSIMPLE
45313 @ 382001:                  PUSHI  #0x00000000
45314 @ 382006:                  JUMPIF = L_0004

  7584              R2=-1
45315 @ 382010:                  LINE   7584 "regression-compile-tmp/imp918s.imp"
45316 @ 382048:                  PUSH   R2
45317 @ 382051:                  PUSHI  #0x00000001
45318 @ 382056:                  NEGATE
45319 @ 382057:                  ASSVAL

  7585              R1=NPARMS %IF NPARMS>4
45320 @ 382058:                  LINE   7585 "regression-compile-tmp/imp918s.imp"
45321 @ 382096:                  PUSH   NPARMS
45322 @ 382099:                  PUSHI  #0x00000004
45323 @ 382104:                  JUMPIF <= L_0007
45324 @ 382108:                  PUSH   R1
45325 @ 382111:                  PUSH   NPARMS
45326 @ 382114:                  ASSVAL
45327 @ 382115:                  LOCATE L_0007

  7586           %FINISH
45328 @ 382118:                  LINE   7586 "regression-compile-tmp/imp918s.imp"
45329 @ 382156:                  LOCATE L_0004

  7587           ->FIRSTP
  7588  !
45330 @ 382159:                  LINE   7587 "regression-compile-tmp/imp918s.imp"
45331 @ 382197:                  JUMP   L_021b

  7589  NEXT PARM:CLINK=SHORTINTEGER(ADDR(ASLIST(CLINK))+14)
45332 @ 382200:                  LINE   7589 "regression-compile-tmp/imp918s.imp"
45333 @ 382238:                  LABEL  L_021c
45334 @ 382241:                  LINE   7589 "regression-compile-tmp/imp918s.imp"
45335 @ 382279:                  PUSH   CLINK
45336 @ 382282:                  PUSH   SHORTINTEGER
45337 @ 382285:                  PUSH   ADDR
45338 @ 382288:                  PUSH   ASLIST
45339 @ 382291:                  PUSH   CLINK
45340 @ 382294:                  ACCESS
45341 @ 382295:                  ASSPAR
45342 @ 382296:                  CALL  
45343 @ 382297:                  PUSHI  #0x0000000e
45344 @ 382302:                  ADD   
45345 @ 382303:                  ASSPAR
45346 @ 382304:                  CALL  
45347 @ 382305:                  ASSVAL

  7590           %IF CLINK=0 %THEN %START
45348 @ 382306:                  LINE   7590 "regression-compile-tmp/imp918s.imp"
45349 @ 382344:                  PUSH   CLINK
45350 @ 382347:                  PUSHI  #0x00000000
45351 @ 382352:                  JUMPIF # L_0004

  7591              %IF A(P)=2 %THEN ->ENTRY SEQ
45352 @ 382356:                  LINE   7591 "regression-compile-tmp/imp918s.imp"
45353 @ 382394:                  PUSH   A
45354 @ 382397:                  PUSH   P
45355 @ 382400:                  ACCESS
45356 @ 382401:                  PUSHI  #0x00000002
45357 @ 382406:                  JUMPIF # L_0007
45358 @ 382410:                  JUMP   L_021a
45359 @ 382413:                  LOCATE L_0007

  7592              FAULT(19,RTNAME)
45360 @ 382416:                  LINE   7592 "regression-compile-tmp/imp918s.imp"
45361 @ 382454:                  PUSH   FAULT
45362 @ 382457:                  PUSHI  #0x00000013
45363 @ 382462:                  ASSPAR
45364 @ 382463:                  PUSH   RTNAME
45365 @ 382466:                  ASSPAR
45366 @ 382467:                  CALL  

  7593              SKIP APP; P=P-1
45367 @ 382468:                  LINE   7593 "regression-compile-tmp/imp918s.imp"
45368 @ 382506:                  PUSH   SKIPAPP
45369 @ 382509:                  CALL  
45370 @ 382510:                  LINE   7593 "regression-compile-tmp/imp918s.imp"
45371 @ 382548:                  PUSH   P
45372 @ 382551:                  PUSH   P
45373 @ 382554:                  PUSHI  #0x00000001
45374 @ 382559:                  SUB   
45375 @ 382560:                  ASSVAL

  7594              %RETURN
45376 @ 382561:                  LINE   7594 "regression-compile-tmp/imp918s.imp"
45377 @ 382599:                  RETURN

  7595           %FINISH
45378 @ 382600:                  LINE   7595 "regression-compile-tmp/imp918s.imp"
45379 @ 382638:                  LOCATE L_0004

  7596  FIRSTP:
  7597  !         FROM12(CLINK,PTYPE,II)
  7598  !%if USE MC = 1 %start
  7599  !         *L_1,CLINK; *A_1,ASLIST
  7600  !         *LM_2,3,0(1); *ST_2,PTYPE; *ST_3,II
  7601  !%finish
45380 @ 382641:                  LINE   7596 "regression-compile-tmp/imp918s.imp"
45381 @ 382679:                  LABEL  L_021b

  7602           FPTR=II&X'FFFF'
45382 @ 382682:                  LINE   7602 "regression-compile-tmp/imp918s.imp"
45383 @ 382720:                  PUSH   FPTR
45384 @ 382723:                  PUSH   II
45385 @ 382726:                  PUSHI  #0x0000ffff
45386 @ 382731:                  AND   
45387 @ 382732:                  ASSVAL

  7603           PSIZE=II>>16
45388 @ 382733:                  LINE   7603 "regression-compile-tmp/imp918s.imp"
45389 @ 382771:                  PUSH   PSIZE
45390 @ 382774:                  PUSH   II
45391 @ 382777:                  PUSHI  #0x00000010
45392 @ 382782:                  RSH   
45393 @ 382783:                  ASSVAL

  7604           %IF A(P)=2 %THEN FAULT(19,RTNAME) %AND ->ENTRY SEQ
45394 @ 382784:                  LINE   7604 "regression-compile-tmp/imp918s.imp"
45395 @ 382822:                  PUSH   A
45396 @ 382825:                  PUSH   P
45397 @ 382828:                  ACCESS
45398 @ 382829:                  PUSHI  #0x00000002
45399 @ 382834:                  JUMPIF # L_0004
45400 @ 382838:                  PUSH   FAULT
45401 @ 382841:                  PUSHI  #0x00000013
45402 @ 382846:                  ASSPAR
45403 @ 382847:                  PUSH   RTNAME
45404 @ 382850:                  ASSPAR
45405 @ 382851:                  CALL  
45406 @ 382852:                  JUMP   L_021a
45407 @ 382855:                  LOCATE L_0004

  7605           P=P+1;! UNPACK
  7606  !%if USE MC = 1 %start
  7607  !            *L_1,PTYPE; *CVD_1,0(11)
  7608  !            *UNPK_ROUT(5),5(3,11)
  7609  !            *NC_ROUT(5),MASK1
  7610  !%finish
45408 @ 382858:                  LINE   7605 "regression-compile-tmp/imp918s.imp"
45409 @ 382896:                  PUSH   P
45410 @ 382899:                  PUSH   P
45411 @ 382902:                  PUSHI  #0x00000001
45412 @ 382907:                  ADD   
45413 @ 382908:                  ASSVAL

  7611           II=TYPE;III=PREC
45414 @ 382909:                  LINE   7611 "regression-compile-tmp/imp918s.imp"
45415 @ 382947:                  PUSH   II
45416 @ 382950:                  PUSH   TYPE
45417 @ 382953:                  ASSVAL
45418 @ 382954:                  LINE   7611 "regression-compile-tmp/imp918s.imp"
45419 @ 382992:                  PUSH   III
45420 @ 382995:                  PUSH   PREC
45421 @ 382998:                  ASSVAL

  7612           JJ=(NAM<<1!ARR)&3
45422 @ 382999:                  LINE   7612 "regression-compile-tmp/imp918s.imp"
45423 @ 383037:                  PUSH   JJ
45424 @ 383040:                  PUSH   NAM
45425 @ 383043:                  PUSHI  #0x00000001
45426 @ 383048:                  LSH   
45427 @ 383049:                  PUSH   ARR
45428 @ 383052:                  OR    
45429 @ 383053:                  PUSHI  #0x00000003
45430 @ 383058:                  AND   
45431 @ 383059:                  ASSVAL

  7613           %UNLESS (JJ=0 %AND ROUT=0) %OR %C
  7614             (A(P+2)=4 %AND A(P+3)=1 %AND A(P+A(P+1)+1)=2) %START
45432 @ 383060:                  LINE   7613 "regression-compile-tmp/imp918s.imp"
45433 @ 383098:                  PUSH   JJ
45434 @ 383101:                  PUSHI  #0x00000000
45435 @ 383106:                  JUMPIF # L_0005
45436 @ 383110:                  PUSH   ROUT
45437 @ 383113:                  PUSHI  #0x00000000
45438 @ 383118:                  JUMPIF = L_0004
45439 @ 383122:                  LOCATE L_0005
45440 @ 383125:                  PUSH   A
45441 @ 383128:                  PUSH   P
45442 @ 383131:                  PUSHI  #0x00000002
45443 @ 383136:                  ADD   
45444 @ 383137:                  ACCESS
45445 @ 383138:                  PUSHI  #0x00000004
45446 @ 383143:                  JUMPIF # L_0005
45447 @ 383147:                  PUSH   A
45448 @ 383150:                  PUSH   P
45449 @ 383153:                  PUSHI  #0x00000003
45450 @ 383158:                  ADD   
45451 @ 383159:                  ACCESS
45452 @ 383160:                  PUSHI  #0x00000001
45453 @ 383165:                  JUMPIF # L_0005
45454 @ 383169:                  PUSH   A
45455 @ 383172:                  PUSH   P
45456 @ 383175:                  PUSH   A
45457 @ 383178:                  PUSH   P
45458 @ 383181:                  PUSHI  #0x00000001
45459 @ 383186:                  ADD   
45460 @ 383187:                  ACCESS
45461 @ 383188:                  ADD   
45462 @ 383189:                  PUSHI  #0x00000001
45463 @ 383194:                  ADD   
45464 @ 383195:                  ACCESS
45465 @ 383196:                  PUSHI  #0x00000002
45466 @ 383201:                  JUMPIF = L_0004
45467 @ 383205:                  LOCATE L_0005

  7615              SKIP EXP; FAULT(22,0)
45468 @ 383208:                  LINE   7615 "regression-compile-tmp/imp918s.imp"
45469 @ 383246:                  PUSH   SKIPEXP
45470 @ 383249:                  CALL  
45471 @ 383250:                  LINE   7615 "regression-compile-tmp/imp918s.imp"
45472 @ 383288:                  PUSH   FAULT
45473 @ 383291:                  PUSHI  #0x00000016
45474 @ 383296:                  ASSPAR
45475 @ 383297:                  PUSHI  #0x00000000
45476 @ 383302:                  ASSPAR
45477 @ 383303:                  CALL  

  7616              ->NEXT PARM
45478 @ 383304:                  LINE   7616 "regression-compile-tmp/imp918s.imp"
45479 @ 383342:                  JUMP   L_021c

  7617           %FINISH
45480 @ 383345:                  LINE   7617 "regression-compile-tmp/imp918s.imp"
45481 @ 383383:                  LOCATE L_0004

  7618           %IF PSIMPLE#0 %THEN %START
45482 @ 383386:                  LINE   7618 "regression-compile-tmp/imp918s.imp"
45483 @ 383424:                  PUSH   PSIMPLE
45484 @ 383427:                  PUSHI  #0x00000000
45485 @ 383432:                  JUMPIF = L_0004

  7619              R2=R2+1
45486 @ 383436:                  LINE   7619 "regression-compile-tmp/imp918s.imp"
45487 @ 383474:                  PUSH   R2
45488 @ 383477:                  PUSH   R2
45489 @ 383480:                  PUSHI  #0x00000001
45490 @ 383485:                  ADD   
45491 @ 383486:                  ASSVAL

  7620              %IF JJ=0 %THEN CSEXP(R2,1) %ELSE %START
45492 @ 383487:                  LINE   7620 "regression-compile-tmp/imp918s.imp"
45493 @ 383525:                  PUSH   JJ
45494 @ 383528:                  PUSHI  #0x00000000
45495 @ 383533:                  JUMPIF # L_0007
45496 @ 383537:                  PUSH   CSEXP
45497 @ 383540:                  PUSH   R2
45498 @ 383543:                  ASSPAR
45499 @ 383544:                  PUSHI  #0x00000001
45500 @ 383549:                  ASSPAR
45501 @ 383550:                  CALL  
45502 @ 383551:                  GOTO   L_0006
45503 @ 383554:                  LOCATE L_0007

  7621                 P=P+4; CNAME(3,R2)
45504 @ 383557:                  LINE   7621 "regression-compile-tmp/imp918s.imp"
45505 @ 383595:                  PUSH   P
45506 @ 383598:                  PUSH   P
45507 @ 383601:                  PUSHI  #0x00000004
45508 @ 383606:                  ADD   
45509 @ 383607:                  ASSVAL
45510 @ 383608:                  LINE   7621 "regression-compile-tmp/imp918s.imp"
45511 @ 383646:                  PUSH   CNAME
45512 @ 383649:                  PUSHI  #0x00000003
45513 @ 383654:                  ASSPAR
45514 @ 383655:                  PUSH   R2
45515 @ 383658:                  ASSPAR
45516 @ 383659:                  CALL  

  7622                 FAULT(22,0) %UNLESS II=TYPE %AND III=PREC
45517 @ 383660:                  LINE   7622 "regression-compile-tmp/imp918s.imp"
45518 @ 383698:                  PUSH   II
45519 @ 383701:                  PUSH   TYPE
45520 @ 383704:                  JUMPIF # L_000b
45521 @ 383708:                  PUSH   III
45522 @ 383711:                  PUSH   PREC
45523 @ 383714:                  JUMPIF = L_000a
45524 @ 383718:                  LOCATE L_000b
45525 @ 383721:                  PUSH   FAULT
45526 @ 383724:                  PUSHI  #0x00000016
45527 @ 383729:                  ASSPAR
45528 @ 383730:                  PUSHI  #0x00000000
45529 @ 383735:                  ASSPAR
45530 @ 383736:                  CALL  
45531 @ 383737:                  LOCATE L_000a

  7623                 P=P+1
45532 @ 383740:                  LINE   7623 "regression-compile-tmp/imp918s.imp"
45533 @ 383778:                  PUSH   P
45534 @ 383781:                  PUSH   P
45535 @ 383784:                  PUSHI  #0x00000001
45536 @ 383789:                  ADD   
45537 @ 383790:                  ASSVAL

  7624              %FINISH
45538 @ 383791:                  LINE   7624 "regression-compile-tmp/imp918s.imp"
45539 @ 383829:                  LOCATE L_0006

  7625              GRUSE(R2)=15
45540 @ 383832:                  LINE   7625 "regression-compile-tmp/imp918s.imp"
45541 @ 383870:                  PUSH   GRUSE
45542 @ 383873:                  PUSH   R2
45543 @ 383876:                  ACCESS
45544 @ 383877:                  PUSHI  #0x0000000f
45545 @ 383882:                  ASSVAL

  7626              REGISTER(R2)=1
45546 @ 383883:                  LINE   7626 "regression-compile-tmp/imp918s.imp"
45547 @ 383921:                  PUSH   REGISTER
45548 @ 383924:                  PUSH   R2
45549 @ 383927:                  ACCESS
45550 @ 383928:                  PUSHI  #0x00000001
45551 @ 383933:                  ASSVAL

  7627              -> NEXT PARM
45552 @ 383934:                  LINE   7627 "regression-compile-tmp/imp918s.imp"
45553 @ 383972:                  JUMP   L_021c

  7628           %FINISH
  7629  !
  7630  ! FOR RT TYPE PARAMS, PASS 1 WORD POINTING TO 4 WORDS SET
  7631  ! UP AS CODE,GLA,EP ADDR & ENVIRONMENT
  7632  !
45554 @ 383975:                  LINE   7628 "regression-compile-tmp/imp918s.imp"
45555 @ 384013:                  LOCATE L_0004

  7633           %IF ROUT=1 %THEN %START
45556 @ 384016:                  LINE   7633 "regression-compile-tmp/imp918s.imp"
45557 @ 384054:                  PUSH   ROUT
45558 @ 384057:                  PUSHI  #0x00000001
45559 @ 384062:                  JUMPIF # L_0004

  7634              II=PTYPE; P=P+4
45560 @ 384066:                  LINE   7634 "regression-compile-tmp/imp918s.imp"
45561 @ 384104:                  PUSH   II
45562 @ 384107:                  PUSH   PTYPE
45563 @ 384110:                  ASSVAL
45564 @ 384111:                  LINE   7634 "regression-compile-tmp/imp918s.imp"
45565 @ 384149:                  PUSH   P
45566 @ 384152:                  PUSH   P
45567 @ 384155:                  PUSHI  #0x00000004
45568 @ 384160:                  ADD   
45569 @ 384161:                  ASSVAL

  7635              CNAME(13,-1);              ! SET UP 4 WDS & SET PTR
45570 @ 384162:                  LINE   7635 "regression-compile-tmp/imp918s.imp"
45571 @ 384200:                  PUSH   CNAME
45572 @ 384203:                  PUSHI  #0x0000000d
45573 @ 384208:                  ASSPAR
45574 @ 384209:                  PUSHI  #0x00000001
45575 @ 384214:                  NEGATE
45576 @ 384215:                  ASSPAR
45577 @ 384216:                  CALL  

  7636              FAULT(22,0) %IF 1000#II-PTYPE#0;! PREC&TYPE SIMILAR
45578 @ 384217:                  LINE   7636 "regression-compile-tmp/imp918s.imp"
45579 @ 384255:                  PUSHI  #0x000003e8
45580 @ 384260:                  PUSH   II
45581 @ 384263:                  PUSH   PTYPE
45582 @ 384266:                  SUB   
45583 @ 384267:                  JUMPIFD = L_0007
45584 @ 384271:                  PUSHI  #0x00000000
45585 @ 384276:                  JUMPIF = L_0007
45586 @ 384280:                  PUSH   FAULT
45587 @ 384283:                  PUSHI  #0x00000016
45588 @ 384288:                  ASSPAR
45589 @ 384289:                  PUSHI  #0x00000000
45590 @ 384294:                  ASSPAR
45591 @ 384295:                  CALL  
45592 @ 384296:                  LOCATE L_0007

  7637              P=P+1
45593 @ 384299:                  LINE   7637 "regression-compile-tmp/imp918s.imp"
45594 @ 384337:                  PUSH   P
45595 @ 384340:                  PUSH   P
45596 @ 384343:                  PUSHI  #0x00000001
45597 @ 384348:                  ADD   
45598 @ 384349:                  ASSVAL

  7638              PRX(X'50',NEST,0,WSPR,FPTR);! STUFF OFF POINTER
45599 @ 384350:                  LINE   7638 "regression-compile-tmp/imp918s.imp"
45600 @ 384388:                  PUSH   PRX
45601 @ 384391:                  PUSHI  #0x00000050
45602 @ 384396:                  ASSPAR
45603 @ 384397:                  PUSH   NEST
45604 @ 384400:                  ASSPAR
45605 @ 384401:                  PUSHI  #0x00000000
45606 @ 384406:                  ASSPAR
45607 @ 384407:                  PUSHI  #0x0000000b
45608 @ 384412:                  ASSPAR
45609 @ 384413:                  PUSH   FPTR
45610 @ 384416:                  ASSPAR
45611 @ 384417:                  CALL  

  7639           %FINISH %ELSE %START;         ! NAME & VALUE PARAMETERS
  7640  !
  7641  ! FOR ARRAYNAME PARAMETERS THE NO OF DIMENSIONS OF THE ARRAY IS
  7642  ! DEDUCED FROM THE FIRST CALL AND STORED IN STREAM3 OF THE PARAMETER
  7643  ! LIST. ON ANY SUBSEQUENT CALL ONLY ARRAYS OF THE SAME DIMENSION CAN
  7644  ! BE PASSED
  7645  !
45612 @ 384418:                  LINE   7639 "regression-compile-tmp/imp918s.imp"
45613 @ 384456:                  GOTO   L_0003
45614 @ 384459:                  LOCATE L_0004

  7646              %IF JJ=0 %THEN KK=2 %AND ACC=PSIZE %ELSE KK=1
45615 @ 384462:                  LINE   7646 "regression-compile-tmp/imp918s.imp"
45616 @ 384500:                  PUSH   JJ
45617 @ 384503:                  PUSHI  #0x00000000
45618 @ 384508:                  JUMPIF # L_0007
45619 @ 384512:                  PUSH   KK
45620 @ 384515:                  PUSHI  #0x00000002
45621 @ 384520:                  ASSVAL
45622 @ 384521:                  PUSH   ACC
45623 @ 384524:                  PUSH   PSIZE
45624 @ 384527:                  ASSVAL
45625 @ 384528:                  GOTO   L_0006
45626 @ 384531:                  LOCATE L_0007
45627 @ 384534:                  PUSH   KK
45628 @ 384537:                  PUSHI  #0x00000001
45629 @ 384542:                  ASSVAL
45630 @ 384543:                  LOCATE L_0006

  7647              %IF PTYPE=5 %THEN ACC=ACC-1
45631 @ 384546:                  LINE   7647 "regression-compile-tmp/imp918s.imp"
45632 @ 384584:                  PUSH   PTYPE
45633 @ 384587:                  PUSHI  #0x00000005
45634 @ 384592:                  JUMPIF # L_0007
45635 @ 384596:                  PUSH   ACC
45636 @ 384599:                  PUSH   ACC
45637 @ 384602:                  PUSHI  #0x00000001
45638 @ 384607:                  SUB   
45639 @ 384608:                  ASSVAL
45640 @ 384609:                  LOCATE L_0007

  7648              QQQ=FROM3(CLINK); J=QQQ;   ! GET NO OF DIMENSIONS
45641 @ 384612:                  LINE   7648 "regression-compile-tmp/imp918s.imp"
45642 @ 384650:                  PUSH   QQQ
45643 @ 384653:                  PUSH   FROM3
45644 @ 384656:                  PUSH   CLINK
45645 @ 384659:                  ASSPAR
45646 @ 384660:                  CALL  
45647 @ 384661:                  ASSVAL
45648 @ 384662:                  LINE   7648 "regression-compile-tmp/imp918s.imp"
45649 @ 384700:                  PUSH   J
45650 @ 384703:                  PUSH   QQQ
45651 @ 384706:                  ASSVAL

  7649              ASSIGN(KK,WSPR<<16!FPTR);  ! ASSIGN 1='==', 2='='
45652 @ 384707:                  LINE   7649 "regression-compile-tmp/imp918s.imp"
45653 @ 384745:                  PUSH   ASSIGN
45654 @ 384748:                  PUSH   KK
45655 @ 384751:                  ASSPAR
45656 @ 384752:                  PUSHI  #0x0000000b
45657 @ 384757:                  PUSHI  #0x00000010
45658 @ 384762:                  LSH   
45659 @ 384763:                  PUSH   FPTR
45660 @ 384766:                  OR    
45661 @ 384767:                  ASSPAR
45662 @ 384768:                  CALL  

  7650              %IF JJ=3 %AND QQQ=0 %THEN REPLACE3(CLINK,J)
45663 @ 384769:                  LINE   7650 "regression-compile-tmp/imp918s.imp"
45664 @ 384807:                  PUSH   JJ
45665 @ 384810:                  PUSHI  #0x00000003
45666 @ 384815:                  JUMPIF # L_0007
45667 @ 384819:                  PUSH   QQQ
45668 @ 384822:                  PUSHI  #0x00000000
45669 @ 384827:                  JUMPIF # L_0007
45670 @ 384831:                  PUSH   REPLACE3
45671 @ 384834:                  PUSH   CLINK
45672 @ 384837:                  ASSPAR
45673 @ 384838:                  PUSH   J
45674 @ 384841:                  ASSPAR
45675 @ 384842:                  CALL  
45676 @ 384843:                  LOCATE L_0007

  7651           %FINISH
45677 @ 384846:                  LINE   7651 "regression-compile-tmp/imp918s.imp"
45678 @ 384884:                  LOCATE L_0003

  7652           -> NEXT PARM
45679 @ 384887:                  LINE   7652 "regression-compile-tmp/imp918s.imp"
45680 @ 384925:                  JUMP   L_021c

  7653  ENTRY SEQ:                             ! CODE FOR RT ENTRY
45681 @ 384928:                  LINE   7653 "regression-compile-tmp/imp918s.imp"
45682 @ 384966:                  LABEL  L_021a

  7654           %IF R2=14 %AND REGISTER(14)!GRUSE(14)=0 %THEN R2=13
  7655  !
  7656  ! SIMPLE PARAMETERS SHOULD BE IN GRS 0 UP AWAITING STORAGE. IF HOWEVER
  7657  ! THERE WAS A FUNCTION CALL AMONG THE ACTUAL PARAMETERS SOME MAY HAVE
  7658  ! BEEN STORED ALREADY. THIS CASE MUST BE CHECKED FOR, AND IF FOUND,
  7659  ! ROUTINE SAVE IRS CALLED TO STORE ANY REMAINING PARAMETERS.
  7660  !
45683 @ 384969:                  LINE   7654 "regression-compile-tmp/imp918s.imp"
45684 @ 385007:                  PUSH   R2
45685 @ 385010:                  PUSHI  #0x0000000e
45686 @ 385015:                  JUMPIF # L_0004
45687 @ 385019:                  PUSH   REGISTER
45688 @ 385022:                  PUSHI  #0x0000000e
45689 @ 385027:                  ACCESS
45690 @ 385028:                  PUSH   GRUSE
45691 @ 385031:                  PUSHI  #0x0000000e
45692 @ 385036:                  ACCESS
45693 @ 385037:                  OR    
45694 @ 385038:                  PUSHI  #0x00000000
45695 @ 385043:                  JUMPIF # L_0004
45696 @ 385047:                  PUSH   R2
45697 @ 385050:                  PUSHI  #0x0000000d
45698 @ 385055:                  ASSVAL
45699 @ 385056:                  LOCATE L_0004

  7661           JJ=0
45700 @ 385059:                  LINE   7661 "regression-compile-tmp/imp918s.imp"
45701 @ 385097:                  PUSH   JJ
45702 @ 385100:                  PUSHI  #0x00000000
45703 @ 385105:                  ASSVAL

  7662           %WHILE PSIMPLE#0 %AND JJ<NPARMS %CYCLE
45704 @ 385106:                  LINE   7662 "regression-compile-tmp/imp918s.imp"
45705 @ 385144:                  LOCATE L_0003
45706 @ 385147:                  PUSH   PSIMPLE
45707 @ 385150:                  PUSHI  #0x00000000
45708 @ 385155:                  JUMPIF = L_0004
45709 @ 385159:                  PUSH   JJ
45710 @ 385162:                  PUSH   NPARMS
45711 @ 385165:                  JUMPIF >= L_0004

  7663              %IF GRUSE(JJ)=15 %THEN REGISTER(JJ)=0 %ELSE %START
45712 @ 385169:                  LINE   7663 "regression-compile-tmp/imp918s.imp"
45713 @ 385207:                  PUSH   GRUSE
45714 @ 385210:                  PUSH   JJ
45715 @ 385213:                  ACCESS
45716 @ 385214:                  PUSHI  #0x0000000f
45717 @ 385219:                  JUMPIF # L_0007
45718 @ 385223:                  PUSH   REGISTER
45719 @ 385226:                  PUSH   JJ
45720 @ 385229:                  ACCESS
45721 @ 385230:                  PUSHI  #0x00000000
45722 @ 385235:                  ASSVAL
45723 @ 385236:                  GOTO   L_0006
45724 @ 385239:                  LOCATE L_0007

  7664                 KK=JJ-1;                 ! RESET REGISTER FOR REGS FREED
45725 @ 385242:                  LINE   7664 "regression-compile-tmp/imp918s.imp"
45726 @ 385280:                  PUSH   KK
45727 @ 385283:                  PUSH   JJ
45728 @ 385286:                  PUSHI  #0x00000001
45729 @ 385291:                  SUB   
45730 @ 385292:                  ASSVAL

  7665                 REGISTER(KK)=1 %AND KK=KK-1 %WHILE KK>=0
45731 @ 385293:                  LINE   7665 "regression-compile-tmp/imp918s.imp"
45732 @ 385331:                  LOCATE L_0009
45733 @ 385334:                  PUSH   KK
45734 @ 385337:                  PUSHI  #0x00000000
45735 @ 385342:                  JUMPIF < L_000a
45736 @ 385346:                  PUSH   REGISTER
45737 @ 385349:                  PUSH   KK
45738 @ 385352:                  ACCESS
45739 @ 385353:                  PUSHI  #0x00000001
45740 @ 385358:                  ASSVAL
45741 @ 385359:                  PUSH   KK
45742 @ 385362:                  PUSH   KK
45743 @ 385365:                  PUSHI  #0x00000001
45744 @ 385370:                  SUB   
45745 @ 385371:                  ASSVAL
45746 @ 385372:                  REPEAT L_0009
45747 @ 385375:                  LOCATE L_000a

  7666                 R2=14; PSIMPLE=0
45748 @ 385378:                  LINE   7666 "regression-compile-tmp/imp918s.imp"
45749 @ 385416:                  PUSH   R2
45750 @ 385419:                  PUSHI  #0x0000000e
45751 @ 385424:                  ASSVAL
45752 @ 385425:                  LINE   7666 "regression-compile-tmp/imp918s.imp"
45753 @ 385463:                  PUSH   PSIMPLE
45754 @ 385466:                  PUSHI  #0x00000000
45755 @ 385471:                  ASSVAL

  7667                 SAVE IRS(RBASE+4)
45756 @ 385472:                  LINE   7667 "regression-compile-tmp/imp918s.imp"
45757 @ 385510:                  PUSH   SAVEIRS
45758 @ 385513:                  PUSH   RBASE
45759 @ 385516:                  PUSHI  #0x00000004
45760 @ 385521:                  ADD   
45761 @ 385522:                  ASSPAR
45762 @ 385523:                  CALL  

  7668              %FINISH
45763 @ 385524:                  LINE   7668 "regression-compile-tmp/imp918s.imp"
45764 @ 385562:                  LOCATE L_0006

  7669              JJ=JJ+1
45765 @ 385565:                  LINE   7669 "regression-compile-tmp/imp918s.imp"
45766 @ 385603:                  PUSH   JJ
45767 @ 385606:                  PUSH   JJ
45768 @ 385609:                  PUSHI  #0x00000001
45769 @ 385614:                  ADD   
45770 @ 385615:                  ASSVAL

  7670           %REPEAT
  7671  !
45771 @ 385616:                  LINE   7670 "regression-compile-tmp/imp918s.imp"
45772 @ 385654:                  REPEAT L_0003
45773 @ 385657:                  LOCATE L_0004

  7672           SCA=CA; PCONST(0);            ! WILL CONTAIN THE 'STM'
45774 @ 385660:                  LINE   7672 "regression-compile-tmp/imp918s.imp"
45775 @ 385698:                  PUSH   SCA
45776 @ 385701:                  PUSH   CA
45777 @ 385704:                  ASSVAL
45778 @ 385705:                  LINE   7672 "regression-compile-tmp/imp918s.imp"
45779 @ 385743:                  PUSH   PCONST
45780 @ 385746:                  PUSHI  #0x00000000
45781 @ 385751:                  ASSPAR
45782 @ 385752:                  CALL  

  7673           PTYPE=PT;! UNPACK
  7674  !%if USE MC = 1 %start
  7675  !            *L_1,PTYPE; *CVD_1,0(11)
  7676  !            *UNPK_ROUT(5),5(3,11)
  7677  !            *NC_ROUT(5),MASK1
  7678  !%finish
45783 @ 385753:                  LINE   7673 "regression-compile-tmp/imp918s.imp"
45784 @ 385791:                  PUSH   PTYPE
45785 @ 385794:                  PUSH   PT
45786 @ 385797:                  ASSVAL

  7679           %UNLESS JJJ=14 %OR NAM&1=1 %START
45787 @ 385798:                  LINE   7679 "regression-compile-tmp/imp918s.imp"
45788 @ 385836:                  PUSH   JJJ
45789 @ 385839:                  PUSHI  #0x0000000e
45790 @ 385844:                  JUMPIF = L_0004
45791 @ 385848:                  PUSH   NAM
45792 @ 385851:                  PUSHI  #0x00000001
45793 @ 385856:                  AND   
45794 @ 385857:                  PUSHI  #0x00000001
45795 @ 385862:                  JUMPIF = L_0004

  7680              NMDECS=NMDECS!2
45796 @ 385866:                  LINE   7680 "regression-compile-tmp/imp918s.imp"
45797 @ 385904:                  PUSH   NMDECS
45798 @ 385907:                  PUSH   NMDECS
45799 @ 385910:                  PUSHI  #0x00000002
45800 @ 385915:                  OR    
45801 @ 385916:                  ASSVAL

  7681              J=JJJ; OLDI=TL
45802 @ 385917:                  LINE   7681 "regression-compile-tmp/imp918s.imp"
45803 @ 385955:                  PUSH   J
45804 @ 385958:                  PUSH   JJJ
45805 @ 385961:                  ASSVAL
45806 @ 385962:                  LINE   7681 "regression-compile-tmp/imp918s.imp"
45807 @ 386000:                  PUSH   OLDI
45808 @ 386003:                  PUSH   TL
45809 @ 386006:                  ASSVAL

  7682              RT JUMP(X'45',15,TCELLP,10)
45810 @ 386007:                  LINE   7682 "regression-compile-tmp/imp918s.imp"
45811 @ 386045:                  PUSH   RTJUMP
45812 @ 386048:                  PUSHI  #0x00000045
45813 @ 386053:                  ASSPAR
45814 @ 386054:                  PUSHI  #0x0000000f
45815 @ 386059:                  ASSPAR
45816 @ 386060:                  PUSH   TCELLP
45817 @ 386063:                  ASSPAR
45818 @ 386064:                  PUSHI  #0x0000000a
45819 @ 386069:                  ASSPAR
45820 @ 386070:                  CALL  

  7683           %FINISH %ELSE %START
45821 @ 386071:                  LINE   7683 "regression-compile-tmp/imp918s.imp"
45822 @ 386109:                  GOTO   L_0003
45823 @ 386112:                  LOCATE L_0004

  7684              %IF NAM&1=0 %THEN %START;        ! EXTERNAL CALL
45824 @ 386115:                  LINE   7684 "regression-compile-tmp/imp918s.imp"
45825 @ 386153:                  PUSH   NAM
45826 @ 386156:                  PUSHI  #0x00000001
45827 @ 386161:                  AND   
45828 @ 386162:                  PUSHI  #0x00000000
45829 @ 386167:                  JUMPIF # L_0007

  7685                 JJ=RDISP; TL=0;             ! NOTHING GLOBAL TO XTRN
45830 @ 386171:                  LINE   7685 "regression-compile-tmp/imp918s.imp"
45831 @ 386209:                  PUSH   JJ
45832 @ 386212:                  PUSH   RDISP
45833 @ 386215:                  ASSVAL
45834 @ 386216:                  LINE   7685 "regression-compile-tmp/imp918s.imp"
45835 @ 386254:                  PUSH   TL
45836 @ 386257:                  PUSHI  #0x00000000
45837 @ 386262:                  ASSVAL

  7686                 DUMPM(X'98',12,14,GLA,JJ);    ! LM 12,14,EP
45838 @ 386263:                  LINE   7686 "regression-compile-tmp/imp918s.imp"
45839 @ 386301:                  PUSH   DUMPM
45840 @ 386304:                  PUSHI  #0x00000098
45841 @ 386309:                  ASSPAR
45842 @ 386310:                  PUSHI  #0x0000000c
45843 @ 386315:                  ASSPAR
45844 @ 386316:                  PUSHI  #0x0000000e
45845 @ 386321:                  ASSPAR
45846 @ 386322:                  PUSHI  #0x0000000d
45847 @ 386327:                  ASSPAR
45848 @ 386328:                  PUSH   JJ
45849 @ 386331:                  ASSPAR
45850 @ 386332:                  CALL  

  7687              %FINISH %ELSE %START;            ! RT PARAM CALLED
  7688                                               ! ENVIRONMENT MUST BE LOADED
45851 @ 386333:                  LINE   7687 "regression-compile-tmp/imp918s.imp"
45852 @ 386371:                  GOTO   L_0006
45853 @ 386374:                  LOCATE L_0007

  7689                 DUMP(X'58',15,RDISP,0,LP);  ! LOAD PTR TO RT HEAD
45854 @ 386377:                  LINE   7689 "regression-compile-tmp/imp918s.imp"
45855 @ 386415:                  PUSH   DUMP
45856 @ 386418:                  PUSHI  #0x00000058
45857 @ 386423:                  ASSPAR
45858 @ 386424:                  PUSHI  #0x0000000f
45859 @ 386429:                  ASSPAR
45860 @ 386430:                  PUSH   RDISP
45861 @ 386433:                  ASSPAR
45862 @ 386434:                  PUSHI  #0x00000000
45863 @ 386439:                  ASSPAR
45864 @ 386440:                  PUSH   LP
45865 @ 386443:                  ASSPAR
45866 @ 386444:                  CALL  

  7690                 PRX(X'98',12,15,15,0);        ! LOAD HEAD
45867 @ 386445:                  LINE   7690 "regression-compile-tmp/imp918s.imp"
45868 @ 386483:                  PUSH   PRX
45869 @ 386486:                  PUSHI  #0x00000098
45870 @ 386491:                  ASSPAR
45871 @ 386492:                  PUSHI  #0x0000000c
45872 @ 386497:                  ASSPAR
45873 @ 386498:                  PUSHI  #0x0000000f
45874 @ 386503:                  ASSPAR
45875 @ 386504:                  PUSHI  #0x0000000f
45876 @ 386509:                  ASSPAR
45877 @ 386510:                  PUSHI  #0x00000000
45878 @ 386515:                  ASSPAR
45879 @ 386516:                  CALL  

  7691                 PRX(X'98',5,10,15,20);        ! LOAD UP ENVIRONMENT
45880 @ 386517:                  LINE   7691 "regression-compile-tmp/imp918s.imp"
45881 @ 386555:                  PUSH   PRX
45882 @ 386558:                  PUSHI  #0x00000098
45883 @ 386563:                  ASSPAR
45884 @ 386564:                  PUSHI  #0x00000005
45885 @ 386569:                  ASSPAR
45886 @ 386570:                  PUSHI  #0x0000000a
45887 @ 386575:                  ASSPAR
45888 @ 386576:                  PUSHI  #0x0000000f
45889 @ 386581:                  ASSPAR
45890 @ 386582:                  PUSHI  #0x00000014
45891 @ 386587:                  ASSPAR
45892 @ 386588:                  CALL  

  7692              %FINISH
45893 @ 386589:                  LINE   7692 "regression-compile-tmp/imp918s.imp"
45894 @ 386627:                  LOCATE L_0006

  7693              PLANT(X'5FE');                   ! BALR 15,14
45895 @ 386630:                  LINE   7693 "regression-compile-tmp/imp918s.imp"
45896 @ 386668:                  PUSH   PLANT
45897 @ 386671:                  PUSHI  #0x000005fe
45898 @ 386676:                  ASSPAR
45899 @ 386677:                  CALL  

  7694           %FINISH
  7695  !
  7696  ! NOW UPDATE REGISTERS AND GLOBAL FLAGS
  7697  !
45900 @ 386678:                  LINE   7694 "regression-compile-tmp/imp918s.imp"
45901 @ 386716:                  LOCATE L_0003

  7698           MONE=1; CYC BITS=CYC BITS!8;  ! 'RT CALL' BIT
45902 @ 386719:                  LINE   7698 "regression-compile-tmp/imp918s.imp"
45903 @ 386757:                  PUSH   MONE
45904 @ 386760:                  PUSHI  #0x00000001
45905 @ 386765:                  ASSVAL
45906 @ 386766:                  LINE   7698 "regression-compile-tmp/imp918s.imp"
45907 @ 386804:                  PUSH   CYCBITS
45908 @ 386807:                  PUSH   CYCBITS
45909 @ 386810:                  PUSHI  #0x00000008
45910 @ 386815:                  OR    
45911 @ 386816:                  ASSVAL

  7699           CYC BITS=CYC BITS!(1<<20)<<TL
45912 @ 386817:                  LINE   7699 "regression-compile-tmp/imp918s.imp"
45913 @ 386855:                  PUSH   CYCBITS
45914 @ 386858:                  PUSH   CYCBITS
45915 @ 386861:                  PUSHI  #0x00000001
45916 @ 386866:                  PUSHI  #0x00000014
45917 @ 386871:                  LSH   
45918 @ 386872:                  PUSH   TL
45919 @ 386875:                  LSH   
45920 @ 386876:                  OR    
45921 @ 386877:                  ASSVAL

  7700           FAULT(201,0) %UNLESS REGISTER(15)=0
45922 @ 386878:                  LINE   7700 "regression-compile-tmp/imp918s.imp"
45923 @ 386916:                  PUSH   REGISTER
45924 @ 386919:                  PUSHI  #0x0000000f
45925 @ 386924:                  ACCESS
45926 @ 386925:                  PUSHI  #0x00000000
45927 @ 386930:                  JUMPIF = L_0004
45928 @ 386934:                  PUSH   FAULT
45929 @ 386937:                  PUSHI  #0x000000c9
45930 @ 386942:                  ASSPAR
45931 @ 386943:                  PUSHI  #0x00000000
45932 @ 386948:                  ASSPAR
45933 @ 386949:                  CALL  
45934 @ 386950:                  LOCATE L_0004

  7701           CCSTATE=-1
45935 @ 386953:                  LINE   7701 "regression-compile-tmp/imp918s.imp"
45936 @ 386991:                  PUSH   CCSTATE
45937 @ 386994:                  PUSHI  #0x00000001
45938 @ 386999:                  NEGATE
45939 @ 387000:                  ASSVAL

  7702           FORGETM(8)
45940 @ 387001:                  LINE   7702 "regression-compile-tmp/imp918s.imp"
45941 @ 387039:                  PUSH   FORGETM
45942 @ 387042:                  PUSHI  #0x00000008
45943 @ 387047:                  ASSPAR
45944 @ 387048:                  CALL  

  7703           SET USE(15,12,CA) %IF SBFLAG=0 %AND CA-CODEBASE>4095-MARGIN
45945 @ 387049:                  LINE   7703 "regression-compile-tmp/imp918s.imp"
45946 @ 387087:                  PUSH   SBFLAG
45947 @ 387090:                  PUSHI  #0x00000000
45948 @ 387095:                  JUMPIF # L_0004
45949 @ 387099:                  PUSH   CA
45950 @ 387102:                  PUSH   CODEBASE
45951 @ 387105:                  SUB   
45952 @ 387106:                  PUSHI  #0x00000fff
45953 @ 387111:                  PUSH   MARGIN
45954 @ 387114:                  SUB   
45955 @ 387115:                  JUMPIF <= L_0004
45956 @ 387119:                  PUSH   SETUSE
45957 @ 387122:                  PUSHI  #0x0000000f
45958 @ 387127:                  ASSPAR
45959 @ 387128:                  PUSHI  #0x0000000c
45960 @ 387133:                  ASSPAR
45961 @ 387134:                  PUSH   CA
45962 @ 387137:                  ASSPAR
45963 @ 387138:                  CALL  
45964 @ 387139:                  LOCATE L_0004

  7704           %IF R2<R1 %THEN JJJ=14 %ELSE JJJ=R2
45965 @ 387142:                  LINE   7704 "regression-compile-tmp/imp918s.imp"
45966 @ 387180:                  PUSH   R2
45967 @ 387183:                  PUSH   R1
45968 @ 387186:                  JUMPIF >= L_0004
45969 @ 387190:                  PUSH   JJJ
45970 @ 387193:                  PUSHI  #0x0000000e
45971 @ 387198:                  ASSVAL
45972 @ 387199:                  GOTO   L_0003
45973 @ 387202:                  LOCATE L_0004
45974 @ 387205:                  PUSH   JJJ
45975 @ 387208:                  PUSH   R2
45976 @ 387211:                  ASSVAL
45977 @ 387212:                  LOCATE L_0003

  7705           %CYCLE JJ=R1,1,JJJ
45978 @ 387215:                  LINE   7705 "regression-compile-tmp/imp918s.imp"
45979 @ 387253:                  PUSH   JJ
45980 @ 387256:                  PUSHI  #0x00000001
45981 @ 387261:                  PUSH   JJJ
45982 @ 387264:                  PUSH   R1
45983 @ 387267:                  FOR    L_0003

  7706              %IF REGISTER(JJ)=0 %THEN %START
45984 @ 387270:                  LINE   7706 "regression-compile-tmp/imp918s.imp"
45985 @ 387308:                  PUSH   REGISTER
45986 @ 387311:                  PUSH   JJ
45987 @ 387314:                  ACCESS
45988 @ 387315:                  PUSHI  #0x00000000
45989 @ 387320:                  JUMPIF # L_0007

  7707                 KK=GRUSE(JJ)
45990 @ 387324:                  LINE   7707 "regression-compile-tmp/imp918s.imp"
45991 @ 387362:                  PUSH   KK
45992 @ 387365:                  PUSH   GRUSE
45993 @ 387368:                  PUSH   JJ
45994 @ 387371:                  ACCESS
45995 @ 387372:                  ASSVAL

  7708                 %UNLESS 1<=KK<=2 %OR KK=8 %OR 10<=KK<=12 %THEN %START
45996 @ 387373:                  LINE   7708 "regression-compile-tmp/imp918s.imp"
45997 @ 387411:                  PUSHI  #0x00000001
45998 @ 387416:                  PUSH   KK
45999 @ 387419:                  JUMPIFD > L_000b
46000 @ 387423:                  PUSHI  #0x00000002
46001 @ 387428:                  JUMPIF <= L_000a
46002 @ 387432:                  LOCATE L_000b
46003 @ 387435:                  PUSH   KK
46004 @ 387438:                  PUSHI  #0x00000008
46005 @ 387443:                  JUMPIF = L_000a
46006 @ 387447:                  PUSHI  #0x0000000a
46007 @ 387452:                  PUSH   KK
46008 @ 387455:                  JUMPIFD > L_000b
46009 @ 387459:                  PUSHI  #0x0000000c
46010 @ 387464:                  JUMPIF <= L_000a
46011 @ 387468:                  LOCATE L_000b

  7709                    II=0
46012 @ 387471:                  LINE   7709 "regression-compile-tmp/imp918s.imp"
46013 @ 387509:                  PUSH   II
46014 @ 387512:                  PUSHI  #0x00000000
46015 @ 387517:                  ASSVAL

  7710                    %IF KK=7 %THEN II=FROM1(GRINF(JJ))>>8&15;! LEVEL OF DECLN
46016 @ 387518:                  LINE   7710 "regression-compile-tmp/imp918s.imp"
46017 @ 387556:                  PUSH   KK
46018 @ 387559:                  PUSHI  #0x00000007
46019 @ 387564:                  JUMPIF # L_000d
46020 @ 387568:                  PUSH   II
46021 @ 387571:                  PUSH   FROM1
46022 @ 387574:                  PUSH   GRINF
46023 @ 387577:                  PUSH   JJ
46024 @ 387580:                  ACCESS
46025 @ 387581:                  ASSPAR
46026 @ 387582:                  CALL  
46027 @ 387583:                  PUSHI  #0x00000008
46028 @ 387588:                  RSH   
46029 @ 387589:                  PUSHI  #0x0000000f
46030 @ 387594:                  AND   
46031 @ 387595:                  ASSVAL
46032 @ 387596:                  LOCATE L_000d

  7711                    GRUSE(JJ)=0 %UNLESS II>TL;!  NAME CAN NOT BE ALTERED
46033 @ 387599:                  LINE   7711 "regression-compile-tmp/imp918s.imp"
46034 @ 387637:                  PUSH   II
46035 @ 387640:                  PUSH   TL
46036 @ 387643:                  JUMPIF > L_000d
46037 @ 387647:                  PUSH   GRUSE
46038 @ 387650:                  PUSH   JJ
46039 @ 387653:                  ACCESS
46040 @ 387654:                  PUSHI  #0x00000000
46041 @ 387659:                  ASSVAL
46042 @ 387660:                  LOCATE L_000d

  7712                 %FINISH
46043 @ 387663:                  LINE   7712 "regression-compile-tmp/imp918s.imp"
46044 @ 387701:                  LOCATE L_000a

  7713              %FINISH
46045 @ 387704:                  LINE   7713 "regression-compile-tmp/imp918s.imp"
46046 @ 387742:                  LOCATE L_0007

  7714           %REPEAT
46047 @ 387745:                  LINE   7714 "regression-compile-tmp/imp918s.imp"
46048 @ 387783:                  REPEAT L_0003
46049 @ 387786:                  LOCATE L_0004

  7715           R1=R1+1 %WHILE REGISTER(R1)=0 %AND GRUSE(R1)<=1
46050 @ 387789:                  LINE   7715 "regression-compile-tmp/imp918s.imp"
46051 @ 387827:                  LOCATE L_0003
46052 @ 387830:                  PUSH   REGISTER
46053 @ 387833:                  PUSH   R1
46054 @ 387836:                  ACCESS
46055 @ 387837:                  PUSHI  #0x00000000
46056 @ 387842:                  JUMPIF # L_0004
46057 @ 387846:                  PUSH   GRUSE
46058 @ 387849:                  PUSH   R1
46059 @ 387852:                  ACCESS
46060 @ 387853:                  PUSHI  #0x00000001
46061 @ 387858:                  JUMPIF > L_0004
46062 @ 387862:                  PUSH   R1
46063 @ 387865:                  PUSH   R1
46064 @ 387868:                  PUSHI  #0x00000001
46065 @ 387873:                  ADD   
46066 @ 387874:                  ASSVAL
46067 @ 387875:                  REPEAT L_0003
46068 @ 387878:                  LOCATE L_0004

  7716           PLUG(1,SCA,X'9000'!R1<<4!R2)
46069 @ 387881:                  LINE   7716 "regression-compile-tmp/imp918s.imp"
46070 @ 387919:                  PUSH   PLUG
46071 @ 387922:                  PUSHI  #0x00000001
46072 @ 387927:                  ASSPAR
46073 @ 387928:                  PUSH   SCA
46074 @ 387931:                  ASSPAR
46075 @ 387932:                  PUSHI  #0x00009000
46076 @ 387937:                  PUSH   R1
46077 @ 387940:                  PUSHI  #0x00000004
46078 @ 387945:                  LSH   
46079 @ 387946:                  OR    
46080 @ 387947:                  PUSH   R2
46081 @ 387950:                  OR    
46082 @ 387951:                  ASSPAR
46083 @ 387952:                  CALL  

  7717           PLUG(1,SCA+2,WSPR<<12!R1<<2)
46084 @ 387953:                  LINE   7717 "regression-compile-tmp/imp918s.imp"
46085 @ 387991:                  PUSH   PLUG
46086 @ 387994:                  PUSHI  #0x00000001
46087 @ 387999:                  ASSPAR
46088 @ 388000:                  PUSH   SCA
46089 @ 388003:                  PUSHI  #0x00000002
46090 @ 388008:                  ADD   
46091 @ 388009:                  ASSPAR
46092 @ 388010:                  PUSHI  #0x0000000b
46093 @ 388015:                  PUSHI  #0x0000000c
46094 @ 388020:                  LSH   
46095 @ 388021:                  PUSH   R1
46096 @ 388024:                  PUSHI  #0x00000002
46097 @ 388029:                  LSH   
46098 @ 388030:                  OR    
46099 @ 388031:                  ASSPAR
46100 @ 388032:                  CALL  

  7718           FPTR=SAVEFPTR
46101 @ 388033:                  LINE   7718 "regression-compile-tmp/imp918s.imp"
46102 @ 388071:                  PUSH   FPTR
46103 @ 388074:                  PUSH   SAVEFPTR
46104 @ 388077:                  ASSVAL

  7719           %IF FPTR>64 %THEN %START
46105 @ 388078:                  LINE   7719 "regression-compile-tmp/imp918s.imp"
46106 @ 388116:                  PUSH   FPTR
46107 @ 388119:                  PUSHI  #0x00000040
46108 @ 388124:                  JUMPIF <= L_0004

  7720             REGISTER(1)=1;          !PROTECT PROGS WITH GLA>4096
46109 @ 388128:                  LINE   7720 "regression-compile-tmp/imp918s.imp"
46110 @ 388166:                  PUSH   REGISTER
46111 @ 388169:                  PUSHI  #0x00000001
46112 @ 388174:                  ACCESS
46113 @ 388175:                  PUSHI  #0x00000001
46114 @ 388180:                  ASSVAL

  7721             MOVER(WSPR,-MOVEPTR);!STEP BACK STACK PTR
46115 @ 388181:                  LINE   7721 "regression-compile-tmp/imp918s.imp"
46116 @ 388219:                  PUSH   MOVER
46117 @ 388222:                  PUSHI  #0x0000000b
46118 @ 388227:                  ASSPAR
46119 @ 388228:                  PUSH   MOVEPTR
46120 @ 388231:                  NEGATE
46121 @ 388232:                  ASSPAR
46122 @ 388233:                  CALL  

  7722             REGISTER(1)=0
46123 @ 388234:                  LINE   7722 "regression-compile-tmp/imp918s.imp"
46124 @ 388272:                  PUSH   REGISTER
46125 @ 388275:                  PUSHI  #0x00000001
46126 @ 388280:                  ACCESS
46127 @ 388281:                  PUSHI  #0x00000000
46128 @ 388286:                  ASSVAL

  7723             %FINISH
46129 @ 388287:                  LINE   7723 "regression-compile-tmp/imp918s.imp"
46130 @ 388325:                  LOCATE L_0004

  7724           %END
46131 @ 388328:                  LINE   7724 "regression-compile-tmp/imp918s.imp"
46132 @ 388366:               END    _lev0id0_CSS_CRCALL {lev=3 --> 2}

  7725           %ROUTINE RT JUMP(%INTEGER CODE,R1,LINK,WKREG)
  7726  !***********************************************************************
  7727  !*       PLANTS A 'BAL' TO THE APPROPIATE ENTRY ADDRESS IN ASL(LINK)   *
  7728  !*       DIFFERENT FROM NORMAL JUMPS AS ADDRESS CAN BE BEFORE ((GR10)).*
  7729  !*       IF ROUTINE HAS BEEN SPECIFIED BUT NOT DESCRIBED THE JUMP CAN  *
  7730  !*       NOT BE PLANTED AND IS LINKED INTO A LIST HEADED BY ASL(LINK)  *
  7731  !*       TO AWAIT FILLING (BY ' RHEAD ') WHEN THE BODY IS GIVEN.       *
  7732  !*       THE FORMAT OF AN ENTRY IS :-                                  *
  7733  !*       S1(32 BITS) = VALUE IN BASE REGISTER( GR10)                   *
  7734  !*       S2(32 BITS) = ADDRESS OF JUMP TO BE FILLED                    *
  7735  !*       S3(16 BITS) = FLAG (0 FOR LONG JUMP,#0 SHORT JUMP)            *
  7736  !*       THE CODING ASSUMES I,J&OLDI ARE SET UP FOR THE CALLED ROUTINE *
  7737  !***********************************************************************
  7738           {%SHORTROUTINE}
46133 @ 388367:               LINE   7725 "regression-compile-tmp/imp918s.imp"
46134 @ 388405:               DEF    RTJUMP (_lev0id0_CSS_RTJUMP) p1=V_0193 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
46135 @ 388423:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
46136 @ 388424:                     DEF    CODE p1=V_0203 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
46137 @ 388440:                     DEF    R1 p1=V_0204 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
46138 @ 388454:                     DEF    LINK p1=V_0205 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
46139 @ 388470:                     DEF    WKREG p1=V_0206 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
46140 @ 388487:                  FINISH ) {lev=3}

  7739           %INTEGER DP,AD,XD
46141 @ 388488:                  LINE   7739 "regression-compile-tmp/imp918s.imp"
46142 @ 388526:                  DEF    DP p1=V_0207 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
46143 @ 388540:                  DEF    AD p1=V_0208 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
46144 @ 388554:                  DEF    XD p1=V_0209 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

  7740           XD=0; AD=ADDR(ASLIST(LINK))+4;!  TO SNDISP FIELD OF TAGS
46145 @ 388568:                  LINE   7740 "regression-compile-tmp/imp918s.imp"
46146 @ 388606:                  PUSH   XD
46147 @ 388609:                  PUSHI  #0x00000000
46148 @ 388614:                  ASSVAL
46149 @ 388615:                  LINE   7740 "regression-compile-tmp/imp918s.imp"
46150 @ 388653:                  PUSH   AD
46151 @ 388656:                  PUSH   ADDR
46152 @ 388659:                  PUSH   ASLIST
46153 @ 388662:                  PUSH   LINK
46154 @ 388665:                  ACCESS
46155 @ 388666:                  ASSPAR
46156 @ 388667:                  CALL  
46157 @ 388668:                  PUSHI  #0x00000004
46158 @ 388673:                  ADD   
46159 @ 388674:                  ASSVAL

  7741           DP=4*(SHORTINTEGER(AD)&X'FFFF')-CODEBASE
46160 @ 388675:                  LINE   7741 "regression-compile-tmp/imp918s.imp"
46161 @ 388713:                  PUSH   DP
46162 @ 388716:                  PUSHI  #0x00000004
46163 @ 388721:                  PUSH   SHORTINTEGER
46164 @ 388724:                  PUSH   AD
46165 @ 388727:                  ASSPAR
46166 @ 388728:                  CALL  
46167 @ 388729:                  PUSHI  #0x0000ffff
46168 @ 388734:                  AND   
46169 @ 388735:                  MUL   
46170 @ 388736:                  PUSH   CODEBASE
46171 @ 388739:                  SUB   
46172 @ 388740:                  ASSVAL

  7742           PRR(X'18',WKREG,10) %UNLESS WKREG=10 %OR(J#15 %AND 0<DP<4095)
46173 @ 388741:                  LINE   7742 "regression-compile-tmp/imp918s.imp"
46174 @ 388779:                  PUSH   WKREG
46175 @ 388782:                  PUSHI  #0x0000000a
46176 @ 388787:                  JUMPIF = L_0004
46177 @ 388791:                  PUSH   J
46178 @ 388794:                  PUSHI  #0x0000000f
46179 @ 388799:                  JUMPIF = L_0005
46180 @ 388803:                  PUSHI  #0x00000000
46181 @ 388808:                  PUSH   DP
46182 @ 388811:                  JUMPIFD >= L_0005
46183 @ 388815:                  PUSHI  #0x00000fff
46184 @ 388820:                  JUMPIF < L_0004
46185 @ 388824:                  LOCATE L_0005
46186 @ 388827:                  PUSH   PRR
46187 @ 388830:                  PUSHI  #0x00000018
46188 @ 388835:                  ASSPAR
46189 @ 388836:                  PUSH   WKREG
46190 @ 388839:                  ASSPAR
46191 @ 388840:                  PUSHI  #0x0000000a
46192 @ 388845:                  ASSPAR
46193 @ 388846:                  CALL  
46194 @ 388847:                  LOCATE L_0004

  7743           %IF J=15 %THEN %START;        ! RT BODY NOT GIVEN YET
46195 @ 388850:                  LINE   7743 "regression-compile-tmp/imp918s.imp"
46196 @ 388888:                  PUSH   J
46197 @ 388891:                  PUSHI  #0x0000000f
46198 @ 388896:                  JUMPIF # L_0004

  7744              %IF SBFLAG=1 %AND OLDI=LEVEL %THEN XD=1 %AND WKREG=10
46199 @ 388900:                  LINE   7744 "regression-compile-tmp/imp918s.imp"
46200 @ 388938:                  PUSH   SBFLAG
46201 @ 388941:                  PUSHI  #0x00000001
46202 @ 388946:                  JUMPIF # L_0007
46203 @ 388950:                  PUSH   OLDI
46204 @ 388953:                  PUSH   LEVEL
46205 @ 388956:                  JUMPIF # L_0007
46206 @ 388960:                  PUSH   XD
46207 @ 388963:                  PUSHI  #0x00000001
46208 @ 388968:                  ASSVAL
46209 @ 388969:                  PUSH   WKREG
46210 @ 388972:                  PUSHI  #0x0000000a
46211 @ 388977:                  ASSVAL
46212 @ 388978:                  LOCATE L_0007

  7745              DP=0
46213 @ 388981:                  LINE   7745 "regression-compile-tmp/imp918s.imp"
46214 @ 389019:                  PUSH   DP
46215 @ 389022:                  PUSHI  #0x00000000
46216 @ 389027:                  ASSVAL

  7746              PUSH123(SHORT INTEGER(AD),CODEBASE,CA,XD) %IF CSSMODE#0
46217 @ 389028:                  LINE   7746 "regression-compile-tmp/imp918s.imp"
46218 @ 389066:                  PUSH   CSSMODE
46219 @ 389069:                  PUSHI  #0x00000000
46220 @ 389074:                  JUMPIF = L_0007
46221 @ 389078:                  PUSH   PUSH123
46222 @ 389081:                  PUSH   SHORTINTEGER
46223 @ 389084:                  PUSH   AD
46224 @ 389087:                  ASSPAR
46225 @ 389088:                  CALL  
46226 @ 389089:                  ASSPAR
46227 @ 389090:                  PUSH   CODEBASE
46228 @ 389093:                  ASSPAR
46229 @ 389094:                  PUSH   CA
46230 @ 389097:                  ASSPAR
46231 @ 389098:                  PUSH   XD
46232 @ 389101:                  ASSPAR
46233 @ 389102:                  CALL  
46234 @ 389103:                  LOCATE L_0007

  7747              PRX(X'5A',WKREG,CODER,0,0) %IF XD=0
46235 @ 389106:                  LINE   7747 "regression-compile-tmp/imp918s.imp"
46236 @ 389144:                  PUSH   XD
46237 @ 389147:                  PUSHI  #0x00000000
46238 @ 389152:                  JUMPIF # L_0007
46239 @ 389156:                  PUSH   PRX
46240 @ 389159:                  PUSHI  #0x0000005a
46241 @ 389164:                  ASSPAR
46242 @ 389165:                  PUSH   WKREG
46243 @ 389168:                  ASSPAR
46244 @ 389169:                  PUSHI  #0x0000000c
46245 @ 389174:                  ASSPAR
46246 @ 389175:                  PUSHI  #0x00000000
46247 @ 389180:                  ASSPAR
46248 @ 389181:                  PUSHI  #0x00000000
46249 @ 389186:                  ASSPAR
46250 @ 389187:                  CALL  
46251 @ 389188:                  LOCATE L_0007

  7748           %FINISH %ELSE %START;          ! BODY GIVEN AND ADDRESS KNOWN
46252 @ 389191:                  LINE   7748 "regression-compile-tmp/imp918s.imp"
46253 @ 389229:                  GOTO   L_0003
46254 @ 389232:                  LOCATE L_0004

  7749              %IF 0<DP<4095 %THEN WKREG=10 %ELSE ADJUST INDEX(1,WKREG,DP)
46255 @ 389235:                  LINE   7749 "regression-compile-tmp/imp918s.imp"
46256 @ 389273:                  PUSHI  #0x00000000
46257 @ 389278:                  PUSH   DP
46258 @ 389281:                  JUMPIFD >= L_0007
46259 @ 389285:                  PUSHI  #0x00000fff
46260 @ 389290:                  JUMPIF >= L_0007
46261 @ 389294:                  PUSH   WKREG
46262 @ 389297:                  PUSHI  #0x0000000a
46263 @ 389302:                  ASSVAL
46264 @ 389303:                  GOTO   L_0006
46265 @ 389306:                  LOCATE L_0007
46266 @ 389309:                  PUSH   ADJUSTINDEX
46267 @ 389312:                  PUSHI  #0x00000001
46268 @ 389317:                  ASSPAR
46269 @ 389318:                  PUSH   WKREG
46270 @ 389321:                  ASSPAR
46271 @ 389322:                  PUSH   DP
46272 @ 389325:                  ASSPAR
46273 @ 389326:                  CALL  
46274 @ 389327:                  LOCATE L_0006

  7750           %FINISH
46275 @ 389330:                  LINE   7750 "regression-compile-tmp/imp918s.imp"
46276 @ 389368:                  LOCATE L_0003

  7751           PRX(CODE,R1,WKREG,0,DP&4095)
46277 @ 389371:                  LINE   7751 "regression-compile-tmp/imp918s.imp"
46278 @ 389409:                  PUSH   PRX
46279 @ 389412:                  PUSH   CODE
46280 @ 389415:                  ASSPAR
46281 @ 389416:                  PUSH   R1
46282 @ 389419:                  ASSPAR
46283 @ 389420:                  PUSH   WKREG
46284 @ 389423:                  ASSPAR
46285 @ 389424:                  PUSHI  #0x00000000
46286 @ 389429:                  ASSPAR
46287 @ 389430:                  PUSH   DP
46288 @ 389433:                  PUSHI  #0x00000fff
46289 @ 389438:                  AND   
46290 @ 389439:                  ASSPAR
46291 @ 389440:                  CALL  

  7752           %END
46292 @ 389441:                  LINE   7752 "regression-compile-tmp/imp918s.imp"
46293 @ 389479:               END    _lev0id0_CSS_RTJUMP {lev=3 --> 2}

  7753           %ROUTINE SKIP EXP
  7754           {%SHORTROUTINE}
  7755  !***********************************************************************
  7756  !*       SKIPS OVER THE EXPRESSION POINTED AT BY P. USED FOR ERROR     *
  7757  !*       RECOVERY AND TO EXTRACT INFORMATION ABOUT THE EXPRESSION.     *
  7758  !*       FFLAG IS SET IF THERE ARE ANY FUNCTIONS IN THE EXPRESSION     *
  7759  !*        SENOPS COUNTS THE OPERATORS IN THE EXPRESSION                *
  7760  !*        SEFOP HOLD THE FIRST OPERATOR.                               *
  7761  !***********************************************************************
46294 @ 389480:               LINE   7753 "regression-compile-tmp/imp918s.imp"
46295 @ 389518:               DEF    SKIPEXP (_lev0id0_CSS_SKIPEXP) p1=V_019c 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
46296 @ 389537:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
46297 @ 389538:                  FINISH ) {lev=3}

  7762           %BYTEINTEGER OPTYPE
46298 @ 389539:                  LINE   7762 "regression-compile-tmp/imp918s.imp"
46299 @ 389577:                  DEF    OPTYPE p1=V_0203 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0

  7763           %INTEGER J
46300 @ 389595:                  LINE   7763 "regression-compile-tmp/imp918s.imp"
46301 @ 389633:                  DEF    J p1=V_0204 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

  7764           P=P+2;                         ! TO P<+'>
46302 @ 389646:                  LINE   7764 "regression-compile-tmp/imp918s.imp"
46303 @ 389684:                  PUSH   P
46304 @ 389687:                  PUSH   P
46305 @ 389690:                  PUSHI  #0x00000002
46306 @ 389695:                  ADD   
46307 @ 389696:                  ASSVAL

  7765           %CYCLE;                        ! DOWN THE LIST OF OPERATORS
46308 @ 389697:                  LINE   7765 "regression-compile-tmp/imp918s.imp"
46309 @ 389735:                  LOCATE L_0003

  7766             OPTYPE=A(P+1);               ! ALT OF P<OPERAND>
46310 @ 389738:                  LINE   7766 "regression-compile-tmp/imp918s.imp"
46311 @ 389776:                  PUSH   OPTYPE
46312 @ 389779:                  PUSH   A
46313 @ 389782:                  PUSH   P
46314 @ 389785:                  PUSHI  #0x00000001
46315 @ 389790:                  ADD   
46316 @ 389791:                  ACCESS
46317 @ 389792:                  ASSVAL

  7767             P=P+2
46318 @ 389793:                  LINE   7767 "regression-compile-tmp/imp918s.imp"
46319 @ 389831:                  PUSH   P
46320 @ 389834:                  PUSH   P
46321 @ 389837:                  PUSHI  #0x00000002
46322 @ 389842:                  ADD   
46323 @ 389843:                  ASSVAL

  7768              %IF OPTYPE=0 %OR OPTYPE>4 %THEN ABORT
46324 @ 389844:                  LINE   7768 "regression-compile-tmp/imp918s.imp"
46325 @ 389882:                  PUSH   OPTYPE
46326 @ 389885:                  PUSHI  #0x00000000
46327 @ 389890:                  JUMPIF = L_0008
46328 @ 389894:                  PUSH   OPTYPE
46329 @ 389897:                  PUSHI  #0x00000004
46330 @ 389902:                  JUMPIF <= L_0007
46331 @ 389906:                  LOCATE L_0008
46332 @ 389909:                  PUSH   ABORT
46333 @ 389912:                  CALL  
46334 @ 389913:                  LOCATE L_0007

  7769             %IF OPTYPE>=3 %THEN SKIP EXP;! SUB EXPRESSIONS
  7770  !
46335 @ 389916:                  LINE   7769 "regression-compile-tmp/imp918s.imp"
46336 @ 389954:                  PUSH   OPTYPE
46337 @ 389957:                  PUSHI  #0x00000003
46338 @ 389962:                  JUMPIF < L_0007
46339 @ 389966:                  PUSH   SKIPEXP
46340 @ 389969:                  CALL  
46341 @ 389970:                  LOCATE L_0007

  7771             %IF OPTYPE=2 %THEN %START;   ! OPERAND IS A CONSTANT
46342 @ 389973:                  LINE   7771 "regression-compile-tmp/imp918s.imp"
46343 @ 390011:                  PUSH   OPTYPE
46344 @ 390014:                  PUSHI  #0x00000002
46345 @ 390019:                  JUMPIF # L_0007

  7772                J=A(P)&7;                 ! CONSTANT TYPE
46346 @ 390023:                  LINE   7772 "regression-compile-tmp/imp918s.imp"
46347 @ 390061:                  PUSH   J
46348 @ 390064:                  PUSH   A
46349 @ 390067:                  PUSH   P
46350 @ 390070:                  ACCESS
46351 @ 390071:                  PUSHI  #0x00000007
46352 @ 390076:                  AND   
46353 @ 390077:                  ASSVAL

  7773                %IF J=1 %THEN P=P+3;      ! INTEGER CONSTANT
46354 @ 390078:                  LINE   7773 "regression-compile-tmp/imp918s.imp"
46355 @ 390116:                  PUSH   J
46356 @ 390119:                  PUSHI  #0x00000001
46357 @ 390124:                  JUMPIF # L_000a
46358 @ 390128:                  PUSH   P
46359 @ 390131:                  PUSH   P
46360 @ 390134:                  PUSHI  #0x00000003
46361 @ 390139:                  ADD   
46362 @ 390140:                  ASSVAL
46363 @ 390141:                  LOCATE L_000a

  7774                %IF J=2 %THEN P=P+5;      ! REAL CONSTANT
46364 @ 390144:                  LINE   7774 "regression-compile-tmp/imp918s.imp"
46365 @ 390182:                  PUSH   J
46366 @ 390185:                  PUSHI  #0x00000002
46367 @ 390190:                  JUMPIF # L_000a
46368 @ 390194:                  PUSH   P
46369 @ 390197:                  PUSH   P
46370 @ 390200:                  PUSHI  #0x00000005
46371 @ 390205:                  ADD   
46372 @ 390206:                  ASSVAL
46373 @ 390207:                  LOCATE L_000a

  7775                %IF J=5 %THEN P=P+(A(P+1)+1)>>1+2
46374 @ 390210:                  LINE   7775 "regression-compile-tmp/imp918s.imp"
46375 @ 390248:                  PUSH   J
46376 @ 390251:                  PUSHI  #0x00000005
46377 @ 390256:                  JUMPIF # L_000a
46378 @ 390260:                  PUSH   P
46379 @ 390263:                  PUSH   P
46380 @ 390266:                  PUSH   A
46381 @ 390269:                  PUSH   P
46382 @ 390272:                  PUSHI  #0x00000001
46383 @ 390277:                  ADD   
46384 @ 390278:                  ACCESS
46385 @ 390279:                  PUSHI  #0x00000001
46386 @ 390284:                  ADD   
46387 @ 390285:                  PUSHI  #0x00000001
46388 @ 390290:                  RSH   
46389 @ 390291:                  ADD   
46390 @ 390292:                  PUSHI  #0x00000002
46391 @ 390297:                  ADD   
46392 @ 390298:                  ASSVAL
46393 @ 390299:                  LOCATE L_000a

  7776                %IF A(P)=1 %THEN %START;  ! IMPLIED MULTIPLICATION
46394 @ 390302:                  LINE   7776 "regression-compile-tmp/imp918s.imp"
46395 @ 390340:                  PUSH   A
46396 @ 390343:                  PUSH   P
46397 @ 390346:                  ACCESS
46398 @ 390347:                  PUSHI  #0x00000001
46399 @ 390352:                  JUMPIF # L_000a

  7777                   OPTYPE=1;              ! TO PROCESS THE NAME
46400 @ 390356:                  LINE   7777 "regression-compile-tmp/imp918s.imp"
46401 @ 390394:                  PUSH   OPTYPE
46402 @ 390397:                  PUSHI  #0x00000001
46403 @ 390402:                  ASSVAL

  7778                %FINISH
46404 @ 390403:                  LINE   7778 "regression-compile-tmp/imp918s.imp"
46405 @ 390441:                  LOCATE L_000a

  7779                P=P+1
46406 @ 390444:                  LINE   7779 "regression-compile-tmp/imp918s.imp"
46407 @ 390482:                  PUSH   P
46408 @ 390485:                  PUSH   P
46409 @ 390488:                  PUSHI  #0x00000001
46410 @ 390493:                  ADD   
46411 @ 390494:                  ASSVAL

  7780             %FINISH
  7781  !
46412 @ 390495:                  LINE   7780 "regression-compile-tmp/imp918s.imp"
46413 @ 390533:                  LOCATE L_0007

  7782             %IF OPTYPE=1 %THEN %START;   ! NAME
46414 @ 390536:                  LINE   7782 "regression-compile-tmp/imp918s.imp"
46415 @ 390574:                  PUSH   OPTYPE
46416 @ 390577:                  PUSHI  #0x00000001
46417 @ 390582:                  JUMPIF # L_0007

  7783                J=ADDR(ASLIST(TAGS(A(P))))
46418 @ 390586:                  LINE   7783 "regression-compile-tmp/imp918s.imp"
46419 @ 390624:                  PUSH   J
46420 @ 390627:                  PUSH   ADDR
46421 @ 390630:                  PUSH   ASLIST
46422 @ 390633:                  PUSH   TAGS
46423 @ 390636:                  PUSH   A
46424 @ 390639:                  PUSH   P
46425 @ 390642:                  ACCESS
46426 @ 390643:                  ACCESS
46427 @ 390644:                  ACCESS
46428 @ 390645:                  ASSPAR
46429 @ 390646:                  CALL  
46430 @ 390647:                  ASSVAL

  7784                FFLAG=1 %IF SNPT#SHORT INTEGER(J)>=10000;! ROUT IN PTYPE
46431 @ 390648:                  LINE   7784 "regression-compile-tmp/imp918s.imp"
46432 @ 390686:                  PUSHI  #0x00002716
46433 @ 390691:                  PUSH   SHORTINTEGER
46434 @ 390694:                  PUSH   J
46435 @ 390697:                  ASSPAR
46436 @ 390698:                  CALL  
46437 @ 390699:                  JUMPIFD = L_000a
46438 @ 390703:                  PUSHI  #0x00002710
46439 @ 390708:                  JUMPIF < L_000a
46440 @ 390712:                  PUSH   FFLAG
46441 @ 390715:                  PUSHI  #0x00000001
46442 @ 390720:                  ASSVAL
46443 @ 390721:                  LOCATE L_000a

  7785                P=P-1
46444 @ 390724:                  LINE   7785 "regression-compile-tmp/imp918s.imp"
46445 @ 390762:                  PUSH   P
46446 @ 390765:                  PUSH   P
46447 @ 390768:                  PUSHI  #0x00000001
46448 @ 390773:                  SUB   
46449 @ 390774:                  ASSVAL

  7786                %CYCLE                     ;! TILL NO ENAME
46450 @ 390775:                  LINE   7786 "regression-compile-tmp/imp918s.imp"
46451 @ 390813:                  LOCATE L_0009

  7787                   P=P+2
46452 @ 390816:                  LINE   7787 "regression-compile-tmp/imp918s.imp"
46453 @ 390854:                  PUSH   P
46454 @ 390857:                  PUSH   P
46455 @ 390860:                  PUSHI  #0x00000002
46456 @ 390865:                  ADD   
46457 @ 390866:                  ASSVAL

  7788                   %IF A(P)=2 %THEN P=P+1 %ELSE SKIP APP
46458 @ 390867:                  LINE   7788 "regression-compile-tmp/imp918s.imp"
46459 @ 390905:                  PUSH   A
46460 @ 390908:                  PUSH   P
46461 @ 390911:                  ACCESS
46462 @ 390912:                  PUSHI  #0x00000002
46463 @ 390917:                  JUMPIF # L_000d
46464 @ 390921:                  PUSH   P
46465 @ 390924:                  PUSH   P
46466 @ 390927:                  PUSHI  #0x00000001
46467 @ 390932:                  ADD   
46468 @ 390933:                  ASSVAL
46469 @ 390934:                  GOTO   L_000c
46470 @ 390937:                  LOCATE L_000d
46471 @ 390940:                  PUSH   SKIPAPP
46472 @ 390943:                  CALL  
46473 @ 390944:                  LOCATE L_000c

  7789                %REPEAT %UNTIL A(P)=2
46474 @ 390947:                  LINE   7789 "regression-compile-tmp/imp918s.imp"
46475 @ 390985:                  PUSH   A
46476 @ 390988:                  PUSH   P
46477 @ 390991:                  ACCESS
46478 @ 390992:                  PUSHI  #0x00000002
46479 @ 390997:                  JUMPIF = L_000a
46480 @ 391001:                  REPEAT L_0009
46481 @ 391004:                  LOCATE L_000a

  7790                P=P+1
46482 @ 391007:                  LINE   7790 "regression-compile-tmp/imp918s.imp"
46483 @ 391045:                  PUSH   P
46484 @ 391048:                  PUSH   P
46485 @ 391051:                  PUSHI  #0x00000001
46486 @ 391056:                  ADD   
46487 @ 391057:                  ASSVAL

  7791             %FINISH
  7792  !
46488 @ 391058:                  LINE   7791 "regression-compile-tmp/imp918s.imp"
46489 @ 391096:                  LOCATE L_0007

  7793             P=P+1
46490 @ 391099:                  LINE   7793 "regression-compile-tmp/imp918s.imp"
46491 @ 391137:                  PUSH   P
46492 @ 391140:                  PUSH   P
46493 @ 391143:                  PUSHI  #0x00000001
46494 @ 391148:                  ADD   
46495 @ 391149:                  ASSVAL

  7794             %IF A(P-1)=2 %THEN %EXIT;    ! NO MORE REST OF EXP
46496 @ 391150:                  LINE   7794 "regression-compile-tmp/imp918s.imp"
46497 @ 391188:                  PUSH   A
46498 @ 391191:                  PUSH   P
46499 @ 391194:                  PUSHI  #0x00000001
46500 @ 391199:                  SUB   
46501 @ 391200:                  ACCESS
46502 @ 391201:                  PUSHI  #0x00000002
46503 @ 391206:                  JUMPIF # L_0007
46504 @ 391210:                  GOTO   L_0004
46505 @ 391213:                  LOCATE L_0007

  7795           %REPEAT
46506 @ 391216:                  LINE   7795 "regression-compile-tmp/imp918s.imp"
46507 @ 391254:                  REPEAT L_0003
46508 @ 391257:                  LOCATE L_0004

  7796           %END;                        ! OF ROUTINE SKIP EXP
46509 @ 391260:                  LINE   7796 "regression-compile-tmp/imp918s.imp"
46510 @ 391298:               END    _lev0id0_CSS_SKIPEXP {lev=3 --> 2}

  7797            %ROUTINE SKIP APP;           ! SKIPS ACTUAL PARAMETER PART
46511 @ 391299:               LINE   7797 "regression-compile-tmp/imp918s.imp"
46512 @ 391337:               DEF    SKIPAPP (_lev0id0_CSS_SKIPAPP) p1=V_017d 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
46513 @ 391356:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
46514 @ 391357:                  FINISH ) {lev=3}

  7798           %WHILE A(P)=1 %THEN P=P+1 %AND SKIP EXP
46515 @ 391358:                  LINE   7798 "regression-compile-tmp/imp918s.imp"
46516 @ 391396:                  LOCATE L_0003
46517 @ 391399:                  PUSH   A
46518 @ 391402:                  PUSH   P
46519 @ 391405:                  ACCESS
46520 @ 391406:                  PUSHI  #0x00000001
46521 @ 391411:                  JUMPIF # L_0004
46522 @ 391415:                  PUSH   P
46523 @ 391418:                  PUSH   P
46524 @ 391421:                  PUSHI  #0x00000001
46525 @ 391426:                  ADD   
46526 @ 391427:                  ASSVAL
46527 @ 391428:                  PUSH   SKIPEXP
46528 @ 391431:                  CALL  
46529 @ 391432:                  REPEAT L_0003
46530 @ 391435:                  LOCATE L_0004

  7799           P=P+1
46531 @ 391438:                  LINE   7799 "regression-compile-tmp/imp918s.imp"
46532 @ 391476:                  PUSH   P
46533 @ 391479:                  PUSH   P
46534 @ 391482:                  PUSHI  #0x00000001
46535 @ 391487:                  ADD   
46536 @ 391488:                  ASSVAL

  7800            %END
46537 @ 391489:                  LINE   7800 "regression-compile-tmp/imp918s.imp"
46538 @ 391527:               END    _lev0id0_CSS_SKIPAPP {lev=3 --> 2}

  7801                 %INTEGERFN TSEXP(%INTEGERNAME CODE,%INTEGER RTMODE)
  7802           {%SHORTROUTINE}
46539 @ 391528:               LINE   7801 "regression-compile-tmp/imp918s.imp"
46540 @ 391566:               DEF    TSEXP (_lev0id0_CSS_TSEXP) p1=V_01ab a/tf=18 b/format=1 c/ostate=10  type=1 (integer) form=8 (function) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=1 unass=0
46541 @ 391583:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
46542 @ 391584:                     DEF    CODE p1=V_0203 a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
46543 @ 391600:                     DEF    RTMODE p1=V_0204 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
46544 @ 391618:                  FINISH ) {lev=3}

  7803           %INTEGER KK,PP,QQ,REXP
46545 @ 391619:                  LINE   7803 "regression-compile-tmp/imp918s.imp"
46546 @ 391657:                  DEF    KK p1=V_0205 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
46547 @ 391671:                  DEF    PP p1=V_0206 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
46548 @ 391685:                  DEF    QQ p1=V_0207 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
46549 @ 391699:                  DEF    REXP p1=V_0208 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

  7804           %SWITCH SW(1:4)
46550 @ 391715:                  LINE   7804 "regression-compile-tmp/imp918s.imp"
46551 @ 391753:                  PUSHI  #0x00000001
46552 @ 391758:                  PUSHI  #0x00000004
46553 @ 391763:                  BOUNDS
46554 @ 391764:                  DEF    SW p1=V_0209 a/tf=6 b/format=0 c/ostate=0  type=0 (<type:0>) form=6 (switch) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  7805           TYPE=1; PP=P; REXP=2-A(P+1+A(P+1)); P=P+2
46555 @ 391778:                  LINE   7805 "regression-compile-tmp/imp918s.imp"
46556 @ 391816:                  PUSH   TYPE
46557 @ 391819:                  PUSHI  #0x00000001
46558 @ 391824:                  ASSVAL
46559 @ 391825:                  LINE   7805 "regression-compile-tmp/imp918s.imp"
46560 @ 391863:                  PUSH   PP
46561 @ 391866:                  PUSH   P
46562 @ 391869:                  ASSVAL
46563 @ 391870:                  LINE   7805 "regression-compile-tmp/imp918s.imp"
46564 @ 391908:                  PUSH   REXP
46565 @ 391911:                  PUSHI  #0x00000002
46566 @ 391916:                  PUSH   A
46567 @ 391919:                  PUSH   P
46568 @ 391922:                  PUSHI  #0x00000001
46569 @ 391927:                  ADD   
46570 @ 391928:                  PUSH   A
46571 @ 391931:                  PUSH   P
46572 @ 391934:                  PUSHI  #0x00000001
46573 @ 391939:                  ADD   
46574 @ 391940:                  ACCESS
46575 @ 391941:                  ADD   
46576 @ 391942:                  ACCESS
46577 @ 391943:                  SUB   
46578 @ 391944:                  ASSVAL
46579 @ 391945:                  LINE   7805 "regression-compile-tmp/imp918s.imp"
46580 @ 391983:                  PUSH   P
46581 @ 391986:                  PUSH   P
46582 @ 391989:                  PUSHI  #0x00000002
46583 @ 391994:                  ADD   
46584 @ 391995:                  ASSVAL

  7806           ->Label9 %IF 1#A(P)#4; ->SW(A(P+1))
46585 @ 391996:                  LINE   7806 "regression-compile-tmp/imp918s.imp"
46586 @ 392034:                  PUSHI  #0x00000001
46587 @ 392039:                  PUSH   A
46588 @ 392042:                  PUSH   P
46589 @ 392045:                  ACCESS
46590 @ 392046:                  JUMPIFD = L_0004
46591 @ 392050:                  PUSHI  #0x00000004
46592 @ 392055:                  JUMPIF = L_0004
46593 @ 392059:                  JUMP   L_020a
46594 @ 392062:                  LOCATE L_0004
46595 @ 392065:                  LINE   7806 "regression-compile-tmp/imp918s.imp"
46596 @ 392103:                  PUSH   A
46597 @ 392106:                  PUSH   P
46598 @ 392109:                  PUSHI  #0x00000001
46599 @ 392114:                  ADD   
46600 @ 392115:                  ACCESS
46601 @ 392116:                  SJUMP  521

  7807  SW(1):   P=P+2; CODE=A(P); REDUCE TAG(RTMODE)
46602 @ 392119:                  LINE   7807 "regression-compile-tmp/imp918s.imp"
46603 @ 392157:                  PUSHI  #0x00000001
46604 @ 392162:                  SLABEL 521
46605 @ 392165:                  LINE   7807 "regression-compile-tmp/imp918s.imp"
46606 @ 392203:                  PUSH   P
46607 @ 392206:                  PUSH   P
46608 @ 392209:                  PUSHI  #0x00000002
46609 @ 392214:                  ADD   
46610 @ 392215:                  ASSVAL
46611 @ 392216:                  LINE   7807 "regression-compile-tmp/imp918s.imp"
46612 @ 392254:                  PUSH   CODE
46613 @ 392257:                  PUSH   A
46614 @ 392260:                  PUSH   P
46615 @ 392263:                  ACCESS
46616 @ 392264:                  ASSVAL
46617 @ 392265:                  LINE   7807 "regression-compile-tmp/imp918s.imp"
46618 @ 392303:                  PUSH   REDUCETAG
46619 @ 392306:                  PUSH   RTMODE
46620 @ 392309:                  ASSPAR
46621 @ 392310:                  CALL  

  7808           ->Label30 %IF TYPE=3
46622 @ 392311:                  LINE   7808 "regression-compile-tmp/imp918s.imp"
46623 @ 392349:                  PUSH   TYPE
46624 @ 392352:                  PUSHI  #0x00000003
46625 @ 392357:                  JUMPIF # L_0004
46626 @ 392361:                  JUMP   L_020b
46627 @ 392364:                  LOCATE L_0004

  7809           ->Label9 %IF K>4095
46628 @ 392367:                  LINE   7809 "regression-compile-tmp/imp918s.imp"
46629 @ 392405:                  PUSH   K
46630 @ 392408:                  PUSHI  #0x00000fff
46631 @ 392413:                  JUMPIF <= L_0004
46632 @ 392417:                  JUMP   L_020a
46633 @ 392420:                  LOCATE L_0004

  7810           ->Label9 %UNLESS A(P+1)=2 =A(P+2); ! NO APP OR ENAME
46634 @ 392423:                  LINE   7810 "regression-compile-tmp/imp918s.imp"
46635 @ 392461:                  PUSH   A
46636 @ 392464:                  PUSH   P
46637 @ 392467:                  PUSHI  #0x00000001
46638 @ 392472:                  ADD   
46639 @ 392473:                  ACCESS
46640 @ 392474:                  PUSHI  #0x00000002
46641 @ 392479:                  JUMPIFD # L_0005
46642 @ 392483:                  PUSH   A
46643 @ 392486:                  PUSH   P
46644 @ 392489:                  PUSHI  #0x00000002
46645 @ 392494:                  ADD   
46646 @ 392495:                  ACCESS
46647 @ 392496:                  JUMPIF = L_0004
46648 @ 392500:                  LOCATE L_0005
46649 @ 392503:                  JUMP   L_020a
46650 @ 392506:                  LOCATE L_0004

  7811           ->Label9 %UNLESS ROUT=0
46651 @ 392509:                  LINE   7811 "regression-compile-tmp/imp918s.imp"
46652 @ 392547:                  PUSH   ROUT
46653 @ 392550:                  PUSHI  #0x00000000
46654 @ 392555:                  JUMPIF = L_0004
46655 @ 392559:                  JUMP   L_020a
46656 @ 392562:                  LOCATE L_0004

  7812           ->Label20 %IF TYPE=5
46657 @ 392565:                  LINE   7812 "regression-compile-tmp/imp918s.imp"
46658 @ 392603:                  PUSH   TYPE
46659 @ 392606:                  PUSHI  #0x00000005
46660 @ 392611:                  JUMPIF # L_0004
46661 @ 392615:                  JUMP   L_020c
46662 @ 392618:                  LOCATE L_0004

  7813           ->Label9 %UNLESS TYPE=1
46663 @ 392621:                  LINE   7813 "regression-compile-tmp/imp918s.imp"
46664 @ 392659:                  PUSH   TYPE
46665 @ 392662:                  PUSHI  #0x00000001
46666 @ 392667:                  JUMPIF = L_0004
46667 @ 392671:                  JUMP   L_020a
46668 @ 392674:                  LOCATE L_0004

  7814           ->Label11 %IF A(P+3)=2;            ! NO RST OF EXPS
46669 @ 392677:                  LINE   7814 "regression-compile-tmp/imp918s.imp"
46670 @ 392715:                  PUSH   A
46671 @ 392718:                  PUSH   P
46672 @ 392721:                  PUSHI  #0x00000003
46673 @ 392726:                  ADD   
46674 @ 392727:                  ACCESS
46675 @ 392728:                  PUSHI  #0x00000002
46676 @ 392733:                  JUMPIF # L_0004
46677 @ 392737:                  JUMP   L_020d
46678 @ 392740:                  LOCATE L_0004

  7815           ->Label9 %UNLESS NAM=0 %AND ARR=0 %AND A(P+5)=2
46679 @ 392743:                  LINE   7815 "regression-compile-tmp/imp918s.imp"
46680 @ 392781:                  PUSH   NAM
46681 @ 392784:                  PUSHI  #0x00000000
46682 @ 392789:                  JUMPIF # L_0005
46683 @ 392793:                  PUSH   ARR
46684 @ 392796:                  PUSHI  #0x00000000
46685 @ 392801:                  JUMPIF # L_0005
46686 @ 392805:                  PUSH   A
46687 @ 392808:                  PUSH   P
46688 @ 392811:                  PUSHI  #0x00000005
46689 @ 392816:                  ADD   
46690 @ 392817:                  ACCESS
46691 @ 392818:                  PUSHI  #0x00000002
46692 @ 392823:                  JUMPIF = L_0004
46693 @ 392827:                  LOCATE L_0005
46694 @ 392830:                  JUMP   L_020a
46695 @ 392833:                  LOCATE L_0004

  7816           QQ=A(P+4); ->Label9 %UNLESS 1<QQ<=5 %OR QQ=9;! OPERATOR
46696 @ 392836:                  LINE   7816 "regression-compile-tmp/imp918s.imp"
46697 @ 392874:                  PUSH   QQ
46698 @ 392877:                  PUSH   A
46699 @ 392880:                  PUSH   P
46700 @ 392883:                  PUSHI  #0x00000004
46701 @ 392888:                  ADD   
46702 @ 392889:                  ACCESS
46703 @ 392890:                  ASSVAL
46704 @ 392891:                  LINE   7816 "regression-compile-tmp/imp918s.imp"
46705 @ 392929:                  PUSHI  #0x00000001
46706 @ 392934:                  PUSH   QQ
46707 @ 392937:                  JUMPIFD >= L_0005
46708 @ 392941:                  PUSHI  #0x00000005
46709 @ 392946:                  JUMPIF <= L_0004
46710 @ 392950:                  LOCATE L_0005
46711 @ 392953:                  PUSH   QQ
46712 @ 392956:                  PUSHI  #0x00000009
46713 @ 392961:                  JUMPIF = L_0004
46714 @ 392965:                  JUMP   L_020a
46715 @ 392968:                  LOCATE L_0004

  7817           ->Label9 %UNLESS A(P+6)&7=1 %AND A(P+7)=0 %AND A(P+8)>>8=0 %C
  7818           %AND A(P+9)=2=A(P+10)
46716 @ 392971:                  LINE   7817 "regression-compile-tmp/imp918s.imp"
46717 @ 393009:                  PUSH   A
46718 @ 393012:                  PUSH   P
46719 @ 393015:                  PUSHI  #0x00000006
46720 @ 393020:                  ADD   
46721 @ 393021:                  ACCESS
46722 @ 393022:                  PUSHI  #0x00000007
46723 @ 393027:                  AND   
46724 @ 393028:                  PUSHI  #0x00000001
46725 @ 393033:                  JUMPIF # L_0005
46726 @ 393037:                  PUSH   A
46727 @ 393040:                  PUSH   P
46728 @ 393043:                  PUSHI  #0x00000007
46729 @ 393048:                  ADD   
46730 @ 393049:                  ACCESS
46731 @ 393050:                  PUSHI  #0x00000000
46732 @ 393055:                  JUMPIF # L_0005
46733 @ 393059:                  PUSH   A
46734 @ 393062:                  PUSH   P
46735 @ 393065:                  PUSHI  #0x00000008
46736 @ 393070:                  ADD   
46737 @ 393071:                  ACCESS
46738 @ 393072:                  PUSHI  #0x00000008
46739 @ 393077:                  RSH   
46740 @ 393078:                  PUSHI  #0x00000000
46741 @ 393083:                  JUMPIF # L_0005
46742 @ 393087:                  PUSH   A
46743 @ 393090:                  PUSH   P
46744 @ 393093:                  PUSHI  #0x00000009
46745 @ 393098:                  ADD   
46746 @ 393099:                  ACCESS
46747 @ 393100:                  PUSHI  #0x00000002
46748 @ 393105:                  JUMPIFD # L_0005
46749 @ 393109:                  PUSH   A
46750 @ 393112:                  PUSH   P
46751 @ 393115:                  PUSHI  #0x0000000a
46752 @ 393120:                  ADD   
46753 @ 393121:                  ACCESS
46754 @ 393122:                  JUMPIF = L_0004
46755 @ 393126:                  LOCATE L_0005
46756 @ 393129:                  JUMP   L_020a
46757 @ 393132:                  LOCATE L_0004

  7819           CODE=A(P+8); P=P+11; %RESULT=100*(QQ-1)
46758 @ 393135:                  LINE   7819 "regression-compile-tmp/imp918s.imp"
46759 @ 393173:                  PUSH   CODE
46760 @ 393176:                  PUSH   A
46761 @ 393179:                  PUSH   P
46762 @ 393182:                  PUSHI  #0x00000008
46763 @ 393187:                  ADD   
46764 @ 393188:                  ACCESS
46765 @ 393189:                  ASSVAL
46766 @ 393190:                  LINE   7819 "regression-compile-tmp/imp918s.imp"
46767 @ 393228:                  PUSH   P
46768 @ 393231:                  PUSH   P
46769 @ 393234:                  PUSHI  #0x0000000b
46770 @ 393239:                  ADD   
46771 @ 393240:                  ASSVAL
46772 @ 393241:                  LINE   7819 "regression-compile-tmp/imp918s.imp"
46773 @ 393279:                  PUSHI  #0x00000064
46774 @ 393284:                  PUSH   QQ
46775 @ 393287:                  PUSHI  #0x00000001
46776 @ 393292:                  SUB   
46777 @ 393293:                  MUL   
46778 @ 393294:                  RESULT

  7820  Label11:
46779 @ 393295:                  LINE   7820 "regression-compile-tmp/imp918s.imp"
46780 @ 393333:                  LABEL  L_020d

  7821           P=P+4; %RESULT=10+PREC+100*NAM
46781 @ 393336:                  LINE   7821 "regression-compile-tmp/imp918s.imp"
46782 @ 393374:                  PUSH   P
46783 @ 393377:                  PUSH   P
46784 @ 393380:                  PUSHI  #0x00000004
46785 @ 393385:                  ADD   
46786 @ 393386:                  ASSVAL
46787 @ 393387:                  LINE   7821 "regression-compile-tmp/imp918s.imp"
46788 @ 393425:                  PUSHI  #0x0000000a
46789 @ 393430:                  PUSH   PREC
46790 @ 393433:                  ADD   
46791 @ 393434:                  PUSHI  #0x00000064
46792 @ 393439:                  PUSH   NAM
46793 @ 393442:                  MUL   
46794 @ 393443:                  ADD   
46795 @ 393444:                  RESULT

  7822  Label20:      ->Label9 %UNLESS A(P+3)=2
46796 @ 393445:                  LINE   7822 "regression-compile-tmp/imp918s.imp"
46797 @ 393483:                  LABEL  L_020c
46798 @ 393486:                  LINE   7822 "regression-compile-tmp/imp918s.imp"
46799 @ 393524:                  PUSH   A
46800 @ 393527:                  PUSH   P
46801 @ 393530:                  PUSHI  #0x00000003
46802 @ 393535:                  ADD   
46803 @ 393536:                  ACCESS
46804 @ 393537:                  PUSHI  #0x00000002
46805 @ 393542:                  JUMPIF = L_0004
46806 @ 393546:                  JUMP   L_020a
46807 @ 393549:                  LOCATE L_0004

  7823           P=P+4; %RESULT=20
46808 @ 393552:                  LINE   7823 "regression-compile-tmp/imp918s.imp"
46809 @ 393590:                  PUSH   P
46810 @ 393593:                  PUSH   P
46811 @ 393596:                  PUSHI  #0x00000004
46812 @ 393601:                  ADD   
46813 @ 393602:                  ASSVAL
46814 @ 393603:                  LINE   7823 "regression-compile-tmp/imp918s.imp"
46815 @ 393641:                  PUSHI  #0x00000014
46816 @ 393646:                  RESULT

  7824  Label30:      QQ=COPY RECORD TAG(KK)
46817 @ 393647:                  LINE   7824 "regression-compile-tmp/imp918s.imp"
46818 @ 393685:                  LABEL  L_020b
46819 @ 393688:                  LINE   7824 "regression-compile-tmp/imp918s.imp"
46820 @ 393726:                  PUSH   QQ
46821 @ 393729:                  PUSH   COPYRECORDTAG
46822 @ 393732:                  PUSH   KK
46823 @ 393735:                  ASSPAR
46824 @ 393736:                  CALL  
46825 @ 393737:                  ASSVAL

  7825           %IF QQ=0 %AND A(P+1)=2 %THEN %RESULT=30
46826 @ 393738:                  LINE   7825 "regression-compile-tmp/imp918s.imp"
46827 @ 393776:                  PUSH   QQ
46828 @ 393779:                  PUSHI  #0x00000000
46829 @ 393784:                  JUMPIF # L_0004
46830 @ 393788:                  PUSH   A
46831 @ 393791:                  PUSH   P
46832 @ 393794:                  PUSHI  #0x00000001
46833 @ 393799:                  ADD   
46834 @ 393800:                  ACCESS
46835 @ 393801:                  PUSHI  #0x00000002
46836 @ 393806:                  JUMPIF # L_0004
46837 @ 393810:                  PUSHI  #0x0000001e
46838 @ 393815:                  RESULT
46839 @ 393816:                  LOCATE L_0004

  7826           ->Label9
46840 @ 393819:                  LINE   7826 "regression-compile-tmp/imp918s.imp"
46841 @ 393857:                  JUMP   L_020a

  7827  SW(2):   TYPE=A(P+2)&7
46842 @ 393860:                  LINE   7827 "regression-compile-tmp/imp918s.imp"
46843 @ 393898:                  PUSHI  #0x00000002
46844 @ 393903:                  SLABEL 521
46845 @ 393906:                  LINE   7827 "regression-compile-tmp/imp918s.imp"
46846 @ 393944:                  PUSH   TYPE
46847 @ 393947:                  PUSH   A
46848 @ 393950:                  PUSH   P
46849 @ 393953:                  PUSHI  #0x00000002
46850 @ 393958:                  ADD   
46851 @ 393959:                  ACCESS
46852 @ 393960:                  PUSHI  #0x00000007
46853 @ 393965:                  AND   
46854 @ 393966:                  ASSVAL

  7828           %IF TYPE=5 %AND REXP=0 %AND A(P+3)=0 %AND A(P+4)=2 %C
  7829              %THEN CODE=0 %AND P=P+6 %AND %RESULT=1;! """"
46855 @ 393967:                  LINE   7828 "regression-compile-tmp/imp918s.imp"
46856 @ 394005:                  PUSH   TYPE
46857 @ 394008:                  PUSHI  #0x00000005
46858 @ 394013:                  JUMPIF # L_0004
46859 @ 394017:                  PUSH   REXP
46860 @ 394020:                  PUSHI  #0x00000000
46861 @ 394025:                  JUMPIF # L_0004
46862 @ 394029:                  PUSH   A
46863 @ 394032:                  PUSH   P
46864 @ 394035:                  PUSHI  #0x00000003
46865 @ 394040:                  ADD   
46866 @ 394041:                  ACCESS
46867 @ 394042:                  PUSHI  #0x00000000
46868 @ 394047:                  JUMPIF # L_0004
46869 @ 394051:                  PUSH   A
46870 @ 394054:                  PUSH   P
46871 @ 394057:                  PUSHI  #0x00000004
46872 @ 394062:                  ADD   
46873 @ 394063:                  ACCESS
46874 @ 394064:                  PUSHI  #0x00000002
46875 @ 394069:                  JUMPIF # L_0004
46876 @ 394073:                  PUSH   CODE
46877 @ 394076:                  PUSHI  #0x00000000
46878 @ 394081:                  ASSVAL
46879 @ 394082:                  PUSH   P
46880 @ 394085:                  PUSH   P
46881 @ 394088:                  PUSHI  #0x00000006
46882 @ 394093:                  ADD   
46883 @ 394094:                  ASSVAL
46884 @ 394095:                  PUSHI  #0x00000001
46885 @ 394100:                  RESULT
46886 @ 394101:                  LOCATE L_0004

  7830           ->Label9 %UNLESS TYPE=1 %AND A(P+5)=2; ! NO IMPLIED MULT
46887 @ 394104:                  LINE   7830 "regression-compile-tmp/imp918s.imp"
46888 @ 394142:                  PUSH   TYPE
46889 @ 394145:                  PUSHI  #0x00000001
46890 @ 394150:                  JUMPIF # L_0005
46891 @ 394154:                  PUSH   A
46892 @ 394157:                  PUSH   P
46893 @ 394160:                  PUSHI  #0x00000005
46894 @ 394165:                  ADD   
46895 @ 394166:                  ACCESS
46896 @ 394167:                  PUSHI  #0x00000002
46897 @ 394172:                  JUMPIF = L_0004
46898 @ 394176:                  LOCATE L_0005
46899 @ 394179:                  JUMP   L_020a
46900 @ 394182:                  LOCATE L_0004

  7831           ->Label21 %IF REXP=1
  7832  !%if USE MC = 1 %start
  7833  !         **1,P; *AR_1,1; *LA_1,A+36(1)
  7834  !         *MVC_KK(4),0(1)
  7835  !%finish
46901 @ 394185:                  LINE   7831 "regression-compile-tmp/imp918s.imp"
46902 @ 394223:                  PUSH   REXP
46903 @ 394226:                  PUSHI  #0x00000001
46904 @ 394231:                  JUMPIF # L_0004
46905 @ 394235:                  JUMP   L_020e
46906 @ 394238:                  LOCATE L_0004

  7836           CODE=KK
46907 @ 394241:                  LINE   7836 "regression-compile-tmp/imp918s.imp"
46908 @ 394279:                  PUSH   CODE
46909 @ 394282:                  PUSH   KK
46910 @ 394285:                  ASSVAL

  7837           P=P+7
46911 @ 394286:                  LINE   7837 "regression-compile-tmp/imp918s.imp"
46912 @ 394324:                  PUSH   P
46913 @ 394327:                  PUSH   P
46914 @ 394330:                  PUSHI  #0x00000007
46915 @ 394335:                  ADD   
46916 @ 394336:                  ASSVAL

  7838           ->Label9 %UNLESS KK>>12=0
46917 @ 394337:                  LINE   7838 "regression-compile-tmp/imp918s.imp"
46918 @ 394375:                  PUSH   KK
46919 @ 394378:                  PUSHI  #0x0000000c
46920 @ 394383:                  RSH   
46921 @ 394384:                  PUSHI  #0x00000000
46922 @ 394389:                  JUMPIF = L_0004
46923 @ 394393:                  JUMP   L_020a
46924 @ 394396:                  LOCATE L_0004

  7839           %RESULT=1 %IF 256>CODE
46925 @ 394399:                  LINE   7839 "regression-compile-tmp/imp918s.imp"
46926 @ 394437:                  PUSHI  #0x00000100
46927 @ 394442:                  PUSH   CODE
46928 @ 394445:                  JUMPIF <= L_0004
46929 @ 394449:                  PUSHI  #0x00000001
46930 @ 394454:                  RESULT
46931 @ 394455:                  LOCATE L_0004

  7840           %RESULT=2
46932 @ 394458:                  LINE   7840 "regression-compile-tmp/imp918s.imp"
46933 @ 394496:                  PUSHI  #0x00000002
46934 @ 394501:                  RESULT

  7841  Label21:      %IF A(P+7)=12 %THEN TYPE=5
46935 @ 394502:                  LINE   7841 "regression-compile-tmp/imp918s.imp"
46936 @ 394540:                  LABEL  L_020e
46937 @ 394543:                  LINE   7841 "regression-compile-tmp/imp918s.imp"
46938 @ 394581:                  PUSH   A
46939 @ 394584:                  PUSH   P
46940 @ 394587:                  PUSHI  #0x00000007
46941 @ 394592:                  ADD   
46942 @ 394593:                  ACCESS
46943 @ 394594:                  PUSHI  #0x0000000c
46944 @ 394599:                  JUMPIF # L_0004
46945 @ 394603:                  PUSH   TYPE
46946 @ 394606:                  PUSHI  #0x00000005
46947 @ 394611:                  ASSVAL
46948 @ 394612:                  LOCATE L_0004

  7842  SW(3):SW(4):Label9:P=PP; %RESULT=0
46949 @ 394615:                  LINE   7842 "regression-compile-tmp/imp918s.imp"
46950 @ 394653:                  PUSHI  #0x00000003
46951 @ 394658:                  SLABEL 521
46952 @ 394661:                  LINE   7842 "regression-compile-tmp/imp918s.imp"
46953 @ 394699:                  PUSHI  #0x00000004
46954 @ 394704:                  SLABEL 521
46955 @ 394707:                  LINE   7842 "regression-compile-tmp/imp918s.imp"
46956 @ 394745:                  LABEL  L_020a
46957 @ 394748:                  LINE   7842 "regression-compile-tmp/imp918s.imp"
46958 @ 394786:                  PUSH   P
46959 @ 394789:                  PUSH   PP
46960 @ 394792:                  ASSVAL
46961 @ 394793:                  LINE   7842 "regression-compile-tmp/imp918s.imp"
46962 @ 394831:                  PUSHI  #0x00000000
46963 @ 394836:                  RESULT

  7843                 %END
46964 @ 394837:                  LINE   7843 "regression-compile-tmp/imp918s.imp"
46965 @ 394875:               END    _lev0id0_CSS_TSEXP {lev=3 --> 2}

  7844           %ROUTINE     MOVE R(%INTEGER R,N)
  7845           {%SHORTROUTINE}
  7846  !***********************************************************************
  7847  !*       ADVANCE OR RETARD ADDRESS IN REGISTER 'R' BY N BYTES          *
  7848  !***********************************************************************
46966 @ 394876:               LINE   7844 "regression-compile-tmp/imp918s.imp"
46967 @ 394914:               DEF    MOVER (_lev0id0_CSS_MOVER) p1=V_0184 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
46968 @ 394931:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
46969 @ 394932:                     DEF    R p1=V_0203 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
46970 @ 394945:                     DEF    N p1=V_0204 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
46971 @ 394958:                  FINISH ) {lev=3}

  7849           %INTEGER CODE,BASE,D
46972 @ 394959:                  LINE   7849 "regression-compile-tmp/imp918s.imp"
46973 @ 394997:                  DEF    CODE p1=V_0205 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
46974 @ 395013:                  DEF    BASE p1=V_0206 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
46975 @ 395029:                  DEF    D p1=V_0207 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

  7850           CODE=0; BASE=R; D=N
46976 @ 395042:                  LINE   7850 "regression-compile-tmp/imp918s.imp"
46977 @ 395080:                  PUSH   CODE
46978 @ 395083:                  PUSHI  #0x00000000
46979 @ 395088:                  ASSVAL
46980 @ 395089:                  LINE   7850 "regression-compile-tmp/imp918s.imp"
46981 @ 395127:                  PUSH   BASE
46982 @ 395130:                  PUSH   R
46983 @ 395133:                  ASSVAL
46984 @ 395134:                  LINE   7850 "regression-compile-tmp/imp918s.imp"
46985 @ 395172:                  PUSH   D
46986 @ 395175:                  PUSH   N
46987 @ 395178:                  ASSVAL

  7851           %IF N<0 %THEN %START;            ! STORE CONST & USE SH
46988 @ 395179:                  LINE   7851 "regression-compile-tmp/imp918s.imp"
46989 @ 395217:                  PUSH   N
46990 @ 395220:                  PUSHI  #0x00000000
46991 @ 395225:                  JUMPIF >= L_0004

  7852              CODE=X'4B'; N=|N|
46992 @ 395229:                  LINE   7852 "regression-compile-tmp/imp918s.imp"
46993 @ 395267:                  PUSH   CODE
46994 @ 395270:                  PUSHI  #0x0000004b
46995 @ 395275:                  ASSVAL
46996 @ 395276:                  LINE   7852 "regression-compile-tmp/imp918s.imp"
46997 @ 395314:                  PUSH   N
46998 @ 395317:                  PUSH   N
46999 @ 395320:                  MOD   
47000 @ 395321:                  ASSVAL

  7853              CCSTATE=-1
47001 @ 395322:                  LINE   7853 "regression-compile-tmp/imp918s.imp"
47002 @ 395360:                  PUSH   CCSTATE
47003 @ 395363:                  PUSHI  #0x00000001
47004 @ 395368:                  NEGATE
47005 @ 395369:                  ASSVAL

  7854              STORE CONST(BASE,D,2,ADDR(N)+2)
47006 @ 395370:                  LINE   7854 "regression-compile-tmp/imp918s.imp"
47007 @ 395408:                  PUSH   STORECONST
47008 @ 395411:                  PUSH   BASE
47009 @ 395414:                  ASSPAR
47010 @ 395415:                  PUSH   D
47011 @ 395418:                  ASSPAR
47012 @ 395419:                  PUSHI  #0x00000002
47013 @ 395424:                  ASSPAR
47014 @ 395425:                  PUSH   ADDR
47015 @ 395428:                  PUSH   N
47016 @ 395431:                  ASSPAR
47017 @ 395432:                  CALL  
47018 @ 395433:                  PUSHI  #0x00000002
47019 @ 395438:                  ADD   
47020 @ 395439:                  ASSPAR
47021 @ 395440:                  CALL  

  7855           %FINISH
47022 @ 395441:                  LINE   7855 "regression-compile-tmp/imp918s.imp"
47023 @ 395479:                  LOCATE L_0004

  7856              DUMP(CODE,R,D,0,BASE);        ! LA OR SH -ZERO SORTED
47024 @ 395482:                  LINE   7856 "regression-compile-tmp/imp918s.imp"
47025 @ 395520:                  PUSH   DUMP
47026 @ 395523:                  PUSH   CODE
47027 @ 395526:                  ASSPAR
47028 @ 395527:                  PUSH   R
47029 @ 395530:                  ASSPAR
47030 @ 395531:                  PUSH   D
47031 @ 395534:                  ASSPAR
47032 @ 395535:                  PUSHI  #0x00000000
47033 @ 395540:                  ASSPAR
47034 @ 395541:                  PUSH   BASE
47035 @ 395544:                  ASSPAR
47036 @ 395545:                  CALL  

  7857           %END
47037 @ 395546:                  LINE   7857 "regression-compile-tmp/imp918s.imp"
47038 @ 395584:               END    _lev0id0_CSS_MOVER {lev=3 --> 2}

  7858           %ROUTINE BULK M(%INTEGER MODE,L,B1,D1,B2,D2)
  7859           {%SHORTROUTINE}
  7860  !***********************************************************************
  7861  !*       PLANT CODE TO MOVE L BYTES (L KNOWN AT COMPILE TIME) FROM     *
  7862  !*       D1(B1)  TO D2(B2)                                             *
  7863  !*       IF MODE =0 SET L BYTES TO D2(0 OR X'80')                      *
  7864  !*                                                                     *
  7865  !*       L MAY BE GREATER THAN 4095                                    *
  7866  !***********************************************************************
47039 @ 395585:               LINE   7858 "regression-compile-tmp/imp918s.imp"
47040 @ 395623:               DEF    BULKM (_lev0id0_CSS_BULKM) p1=V_016f 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
47041 @ 395640:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
47042 @ 395641:                     DEF    MODE p1=V_0203 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
47043 @ 395657:                     DEF    L p1=V_0204 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
47044 @ 395670:                     DEF    B1 p1=V_0205 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
47045 @ 395684:                     DEF    D1 p1=V_0206 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
47046 @ 395698:                     DEF    B2 p1=V_0207 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
47047 @ 395712:                     DEF    D2 p1=V_0208 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
47048 @ 395726:                  FINISH ) {lev=3}

  7867           %ROUTINESPEC UPDATE(%INTEGERNAME WI,DI)
47049 @ 395727:                  LINE   7867 "regression-compile-tmp/imp918s.imp"
47050 @ 395765:                  DEF    UPDATE (_lev0id0_CSS_BULKM_UPDATE) p1=V_0209 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
47051 @ 395783:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
47052 @ 395784:                     DEF    WI p1=V_020a a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
47053 @ 395798:                     DEF    DI p1=V_020b a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
47054 @ 395812:                  FINISH ) {lev=3}

  7868           %INTEGER I,J,W1,W2,OPCODE,CONST
47055 @ 395813:                  LINE   7868 "regression-compile-tmp/imp918s.imp"
47056 @ 395851:                  DEF    I p1=V_020a 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
47057 @ 395864:                  DEF    J p1=V_020b 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
47058 @ 395877:                  DEF    W1 p1=V_020c 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
47059 @ 395891:                  DEF    W2 p1=V_020d 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
47060 @ 395905:                  DEF    OPCODE p1=V_020e 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
47061 @ 395923:                  DEF    CONST p1=V_020f 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

  7869           W1=B1; W2=B2
47062 @ 395940:                  LINE   7869 "regression-compile-tmp/imp918s.imp"
47063 @ 395978:                  PUSH   W1
47064 @ 395981:                  PUSH   B1
47065 @ 395984:                  ASSVAL
47066 @ 395985:                  LINE   7869 "regression-compile-tmp/imp918s.imp"
47067 @ 396023:                  PUSH   W2
47068 @ 396026:                  PUSH   B2
47069 @ 396029:                  ASSVAL

  7870           OPCODE=X'D2'
47070 @ 396030:                  LINE   7870 "regression-compile-tmp/imp918s.imp"
47071 @ 396068:                  PUSH   OPCODE
47072 @ 396071:                  PUSHI  #0x000000d2
47073 @ 396076:                  ASSVAL

  7871           %IF L+D1> 4092 %THEN UPDATE(W1,D1)
47074 @ 396077:                  LINE   7871 "regression-compile-tmp/imp918s.imp"
47075 @ 396115:                  PUSH   L
47076 @ 396118:                  PUSH   D1
47077 @ 396121:                  ADD   
47078 @ 396122:                  PUSHI  #0x00000ffc
47079 @ 396127:                  JUMPIF <= L_0004
47080 @ 396131:                  PUSH   UPDATE
47081 @ 396134:                  PUSH   W1
47082 @ 396137:                  ASSPAR
47083 @ 396138:                  PUSH   D1
47084 @ 396141:                  ASSPAR
47085 @ 396142:                  CALL  
47086 @ 396143:                  LOCATE L_0004

  7872           %IF MODE#0 %AND L+D2>4092 %THEN UPDATE(W2,D2)
  7873  !
47087 @ 396146:                  LINE   7872 "regression-compile-tmp/imp918s.imp"
47088 @ 396184:                  PUSH   MODE
47089 @ 396187:                  PUSHI  #0x00000000
47090 @ 396192:                  JUMPIF = L_0004
47091 @ 396196:                  PUSH   L
47092 @ 396199:                  PUSH   D2
47093 @ 396202:                  ADD   
47094 @ 396203:                  PUSHI  #0x00000ffc
47095 @ 396208:                  JUMPIF <= L_0004
47096 @ 396212:                  PUSH   UPDATE
47097 @ 396215:                  PUSH   W2
47098 @ 396218:                  ASSPAR
47099 @ 396219:                  PUSH   D2
47100 @ 396222:                  ASSPAR
47101 @ 396223:                  CALL  
47102 @ 396224:                  LOCATE L_0004

  7874           %IF MODE=0 %THEN %START;      ! PROPAGATE CONSTANT
47103 @ 396227:                  LINE   7874 "regression-compile-tmp/imp918s.imp"
47104 @ 396265:                  PUSH   MODE
47105 @ 396268:                  PUSHI  #0x00000000
47106 @ 396273:                  JUMPIF # L_0004

  7875              J=L; W2=W1
47107 @ 396277:                  LINE   7875 "regression-compile-tmp/imp918s.imp"
47108 @ 396315:                  PUSH   J
47109 @ 396318:                  PUSH   L
47110 @ 396321:                  ASSVAL
47111 @ 396322:                  LINE   7875 "regression-compile-tmp/imp918s.imp"
47112 @ 396360:                  PUSH   W2
47113 @ 396363:                  PUSH   W1
47114 @ 396366:                  ASSVAL

  7876              CONST=D2; D2=D1
47115 @ 396367:                  LINE   7876 "regression-compile-tmp/imp918s.imp"
47116 @ 396405:                  PUSH   CONST
47117 @ 396408:                  PUSH   D2
47118 @ 396411:                  ASSVAL
47119 @ 396412:                  LINE   7876 "regression-compile-tmp/imp918s.imp"
47120 @ 396450:                  PUSH   D2
47121 @ 396453:                  PUSH   D1
47122 @ 396456:                  ASSVAL

  7877           %IF CONST=0 %AND L<=32 %THEN %START
47123 @ 396457:                  LINE   7877 "regression-compile-tmp/imp918s.imp"
47124 @ 396495:                  PUSH   CONST
47125 @ 396498:                  PUSHI  #0x00000000
47126 @ 396503:                  JUMPIF # L_0007
47127 @ 396507:                  PUSH   L
47128 @ 396510:                  PUSHI  #0x00000020
47129 @ 396515:                  JUMPIF > L_0007

  7878                 CCSTATE=-1
47130 @ 396519:                  LINE   7878 "regression-compile-tmp/imp918s.imp"
47131 @ 396557:                  PUSH   CCSTATE
47132 @ 396560:                  PUSHI  #0x00000001
47133 @ 396565:                  NEGATE
47134 @ 396566:                  ASSVAL

  7879                 OPCODE=X'D7';           ! CAN USE XC
47135 @ 396567:                  LINE   7879 "regression-compile-tmp/imp918s.imp"
47136 @ 396605:                  PUSH   OPCODE
47137 @ 396608:                  PUSHI  #0x000000d7
47138 @ 396613:                  ASSVAL

  7880              %FINISH %ELSE %START;      ! USE MVI & MVC TO PROPOGATE
47139 @ 396614:                  LINE   7880 "regression-compile-tmp/imp918s.imp"
47140 @ 396652:                  GOTO   L_0006
47141 @ 396655:                  LOCATE L_0007

  7881                 PSI(X'92',CONST,W1,D1)
47142 @ 396658:                  LINE   7881 "regression-compile-tmp/imp918s.imp"
47143 @ 396696:                  PUSH   PSI
47144 @ 396699:                  PUSHI  #0x00000092
47145 @ 396704:                  ASSPAR
47146 @ 396705:                  PUSH   CONST
47147 @ 396708:                  ASSPAR
47148 @ 396709:                  PUSH   W1
47149 @ 396712:                  ASSPAR
47150 @ 396713:                  PUSH   D1
47151 @ 396716:                  ASSPAR
47152 @ 396717:                  CALL  

  7882                 L=L-1; D1=D1+1
47153 @ 396718:                  LINE   7882 "regression-compile-tmp/imp918s.imp"
47154 @ 396756:                  PUSH   L
47155 @ 396759:                  PUSH   L
47156 @ 396762:                  PUSHI  #0x00000001
47157 @ 396767:                  SUB   
47158 @ 396768:                  ASSVAL
47159 @ 396769:                  LINE   7882 "regression-compile-tmp/imp918s.imp"
47160 @ 396807:                  PUSH   D1
47161 @ 396810:                  PUSH   D1
47162 @ 396813:                  PUSHI  #0x00000001
47163 @ 396818:                  ADD   
47164 @ 396819:                  ASSVAL

  7883              %FINISH
47165 @ 396820:                  LINE   7883 "regression-compile-tmp/imp918s.imp"
47166 @ 396858:                  LOCATE L_0006

  7884           %FINISH
  7885  !
  7886  !        END OF PREPARATION - CYCLE ROUND PLANTING MVC
  7887  !
47167 @ 396861:                  LINE   7884 "regression-compile-tmp/imp918s.imp"
47168 @ 396899:                  LOCATE L_0004

  7888           %WHILE L>0 %CYCLE
47169 @ 396902:                  LINE   7888 "regression-compile-tmp/imp918s.imp"
47170 @ 396940:                  LOCATE L_0003
47171 @ 396943:                  PUSH   L
47172 @ 396946:                  PUSHI  #0x00000000
47173 @ 396951:                  JUMPIF <= L_0004

  7889              %IF L>256 %THEN J=256 %ELSE J=L
47174 @ 396955:                  LINE   7889 "regression-compile-tmp/imp918s.imp"
47175 @ 396993:                  PUSH   L
47176 @ 396996:                  PUSHI  #0x00000100
47177 @ 397001:                  JUMPIF <= L_0007
47178 @ 397005:                  PUSH   J
47179 @ 397008:                  PUSHI  #0x00000100
47180 @ 397013:                  ASSVAL
47181 @ 397014:                  GOTO   L_0006
47182 @ 397017:                  LOCATE L_0007
47183 @ 397020:                  PUSH   J
47184 @ 397023:                  PUSH   L
47185 @ 397026:                  ASSVAL
47186 @ 397027:                  LOCATE L_0006

  7890              %IF D1>4092 %THEN %START
47187 @ 397030:                  LINE   7890 "regression-compile-tmp/imp918s.imp"
47188 @ 397068:                  PUSH   D1
47189 @ 397071:                  PUSHI  #0x00000ffc
47190 @ 397076:                  JUMPIF <= L_0007

  7891                 I=D1; UPDATE(W1,D1)
47191 @ 397080:                  LINE   7891 "regression-compile-tmp/imp918s.imp"
47192 @ 397118:                  PUSH   I
47193 @ 397121:                  PUSH   D1
47194 @ 397124:                  ASSVAL
47195 @ 397125:                  LINE   7891 "regression-compile-tmp/imp918s.imp"
47196 @ 397163:                  PUSH   UPDATE
47197 @ 397166:                  PUSH   W1
47198 @ 397169:                  ASSPAR
47199 @ 397170:                  PUSH   D1
47200 @ 397173:                  ASSPAR
47201 @ 397174:                  CALL  

  7892                 %IF W2=W1 %THEN D2=D2-I+D1;! OVERLAPPING PROPAGATION W1=W2
47202 @ 397175:                  LINE   7892 "regression-compile-tmp/imp918s.imp"
47203 @ 397213:                  PUSH   W2
47204 @ 397216:                  PUSH   W1
47205 @ 397219:                  JUMPIF # L_000a
47206 @ 397223:                  PUSH   D2
47207 @ 397226:                  PUSH   D2
47208 @ 397229:                  PUSH   I
47209 @ 397232:                  SUB   
47210 @ 397233:                  PUSH   D1
47211 @ 397236:                  ADD   
47212 @ 397237:                  ASSVAL
47213 @ 397238:                  LOCATE L_000a

  7893              %FINISH
47214 @ 397241:                  LINE   7893 "regression-compile-tmp/imp918s.imp"
47215 @ 397279:                  LOCATE L_0007

  7894              %IF D2>4092 %THEN UPDATE(W2,D2)
47216 @ 397282:                  LINE   7894 "regression-compile-tmp/imp918s.imp"
47217 @ 397320:                  PUSH   D2
47218 @ 397323:                  PUSHI  #0x00000ffc
47219 @ 397328:                  JUMPIF <= L_0007
47220 @ 397332:                  PUSH   UPDATE
47221 @ 397335:                  PUSH   W2
47222 @ 397338:                  ASSPAR
47223 @ 397339:                  PUSH   D2
47224 @ 397342:                  ASSPAR
47225 @ 397343:                  CALL  
47226 @ 397344:                  LOCATE L_0007

  7895              PSS(OPCODE,J,W1,D1,W2,D2)
47227 @ 397347:                  LINE   7895 "regression-compile-tmp/imp918s.imp"
47228 @ 397385:                  PUSH   PSS
47229 @ 397388:                  PUSH   OPCODE
47230 @ 397391:                  ASSPAR
47231 @ 397392:                  PUSH   J
47232 @ 397395:                  ASSPAR
47233 @ 397396:                  PUSH   W1
47234 @ 397399:                  ASSPAR
47235 @ 397400:                  PUSH   D1
47236 @ 397403:                  ASSPAR
47237 @ 397404:                  PUSH   W2
47238 @ 397407:                  ASSPAR
47239 @ 397408:                  PUSH   D2
47240 @ 397411:                  ASSPAR
47241 @ 397412:                  CALL  

  7896              D1=D1+J
47242 @ 397413:                  LINE   7896 "regression-compile-tmp/imp918s.imp"
47243 @ 397451:                  PUSH   D1
47244 @ 397454:                  PUSH   D1
47245 @ 397457:                  PUSH   J
47246 @ 397460:                  ADD   
47247 @ 397461:                  ASSVAL

  7897              D2=D2+J
47248 @ 397462:                  LINE   7897 "regression-compile-tmp/imp918s.imp"
47249 @ 397500:                  PUSH   D2
47250 @ 397503:                  PUSH   D2
47251 @ 397506:                  PUSH   J
47252 @ 397509:                  ADD   
47253 @ 397510:                  ASSVAL

  7898              L=L-J
47254 @ 397511:                  LINE   7898 "regression-compile-tmp/imp918s.imp"
47255 @ 397549:                  PUSH   L
47256 @ 397552:                  PUSH   L
47257 @ 397555:                  PUSH   J
47258 @ 397558:                  SUB   
47259 @ 397559:                  ASSVAL

  7899           %REPEAT
  7900  !
47260 @ 397560:                  LINE   7899 "regression-compile-tmp/imp918s.imp"
47261 @ 397598:                  REPEAT L_0003
47262 @ 397601:                  LOCATE L_0004

  7901           REGISTER(W1)=0 %IF REGISTER(W1)>0
47263 @ 397604:                  LINE   7901 "regression-compile-tmp/imp918s.imp"
47264 @ 397642:                  PUSH   REGISTER
47265 @ 397645:                  PUSH   W1
47266 @ 397648:                  ACCESS
47267 @ 397649:                  PUSHI  #0x00000000
47268 @ 397654:                  JUMPIF <= L_0004
47269 @ 397658:                  PUSH   REGISTER
47270 @ 397661:                  PUSH   W1
47271 @ 397664:                  ACCESS
47272 @ 397665:                  PUSHI  #0x00000000
47273 @ 397670:                  ASSVAL
47274 @ 397671:                  LOCATE L_0004

  7902           REGISTER(W2)=0 %IF REGISTER(W2)>0
47275 @ 397674:                  LINE   7902 "regression-compile-tmp/imp918s.imp"
47276 @ 397712:                  PUSH   REGISTER
47277 @ 397715:                  PUSH   W2
47278 @ 397718:                  ACCESS
47279 @ 397719:                  PUSHI  #0x00000000
47280 @ 397724:                  JUMPIF <= L_0004
47281 @ 397728:                  PUSH   REGISTER
47282 @ 397731:                  PUSH   W2
47283 @ 397734:                  ACCESS
47284 @ 397735:                  PUSHI  #0x00000000
47285 @ 397740:                  ASSVAL
47286 @ 397741:                  LOCATE L_0004

  7903           %RETURN
47287 @ 397744:                  LINE   7903 "regression-compile-tmp/imp918s.imp"
47288 @ 397782:                  RETURN

  7904           %ROUTINE     UPDATE(%INTEGERNAME WI,DI)
47289 @ 397783:                  LINE   7904 "regression-compile-tmp/imp918s.imp"
47290 @ 397821:                  DEF    UPDATE (_lev0id0_CSS_BULKM_UPDATE) p1=V_0209 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
47291 @ 397839:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
47292 @ 397840:                        DEF    WI p1=V_0210 a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
47293 @ 397854:                        DEF    DI p1=V_0211 a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
47294 @ 397868:                     FINISH ) {lev=4}

  7905           %INTEGER WK,J
47295 @ 397869:                     LINE   7905 "regression-compile-tmp/imp918s.imp"
47296 @ 397907:                     DEF    WK p1=V_0212 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
47297 @ 397921:                     DEF    J p1=V_0213 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

  7906           WK=WI
47298 @ 397934:                     LINE   7906 "regression-compile-tmp/imp918s.imp"
47299 @ 397972:                     PUSH   WK
47300 @ 397975:                     PUSH   WI
47301 @ 397978:                     ASSVAL

  7907           %IF REGISTER(WK)<0 %THEN FIND REG(GR1,WK)
47302 @ 397979:                     LINE   7907 "regression-compile-tmp/imp918s.imp"
47303 @ 398017:                     PUSH   REGISTER
47304 @ 398020:                     PUSH   WK
47305 @ 398023:                     ACCESS
47306 @ 398024:                     PUSHI  #0x00000000
47307 @ 398029:                     JUMPIF >= L_0004
47308 @ 398033:                     PUSH   FINDREG
47309 @ 398036:                     PUSHI  #0x0001010f
47310 @ 398041:                     ASSPAR
47311 @ 398042:                     PUSH   WK
47312 @ 398045:                     ASSPAR
47313 @ 398046:                     CALL  
47314 @ 398047:                     LOCATE L_0004

  7908           %IF DI<4092 %THEN J=DI %ELSE J=4092
47315 @ 398050:                     LINE   7908 "regression-compile-tmp/imp918s.imp"
47316 @ 398088:                     PUSH   DI
47317 @ 398091:                     PUSHI  #0x00000ffc
47318 @ 398096:                     JUMPIF >= L_0004
47319 @ 398100:                     PUSH   J
47320 @ 398103:                     PUSH   DI
47321 @ 398106:                     ASSVAL
47322 @ 398107:                     GOTO   L_0003
47323 @ 398110:                     LOCATE L_0004
47324 @ 398113:                     PUSH   J
47325 @ 398116:                     PUSHI  #0x00000ffc
47326 @ 398121:                     ASSVAL
47327 @ 398122:                     LOCATE L_0003

  7909           DUMP(0,WK,J,0,WI)
47328 @ 398125:                     LINE   7909 "regression-compile-tmp/imp918s.imp"
47329 @ 398163:                     PUSH   DUMP
47330 @ 398166:                     PUSHI  #0x00000000
47331 @ 398171:                     ASSPAR
47332 @ 398172:                     PUSH   WK
47333 @ 398175:                     ASSPAR
47334 @ 398176:                     PUSH   J
47335 @ 398179:                     ASSPAR
47336 @ 398180:                     PUSHI  #0x00000000
47337 @ 398185:                     ASSPAR
47338 @ 398186:                     PUSH   WI
47339 @ 398189:                     ASSPAR
47340 @ 398190:                     CALL  

  7910           FORGET(WK)
47341 @ 398191:                     LINE   7910 "regression-compile-tmp/imp918s.imp"
47342 @ 398229:                     PUSH   FORGET
47343 @ 398232:                     PUSH   WK
47344 @ 398235:                     ASSPAR
47345 @ 398236:                     CALL  

  7911           DI=DI-J; WI=WK
47346 @ 398237:                     LINE   7911 "regression-compile-tmp/imp918s.imp"
47347 @ 398275:                     PUSH   DI
47348 @ 398278:                     PUSH   DI
47349 @ 398281:                     PUSH   J
47350 @ 398284:                     SUB   
47351 @ 398285:                     ASSVAL
47352 @ 398286:                     LINE   7911 "regression-compile-tmp/imp918s.imp"
47353 @ 398324:                     PUSH   WI
47354 @ 398327:                     PUSH   WK
47355 @ 398330:                     ASSVAL

  7912           %END
47356 @ 398331:                     LINE   7912 "regression-compile-tmp/imp918s.imp"
47357 @ 398369:                  END    _lev0id0_CSS_BULKM_UPDATE {lev=4 --> 3}

  7913           %END;                         ! OF ROUTINE BULK M
47358 @ 398370:                  LINE   7913 "regression-compile-tmp/imp918s.imp"
47359 @ 398408:               END    _lev0id0_CSS_BULKM {lev=3 --> 2}

  7914           %ROUTINE     CBPAIR(%INTEGERNAME LB,UB)
  7915           {%SHORTROUTINE}
  7916  !***********************************************************************
  7917  !*       EXTRACT UPPER AND LOWER BOUNDS FROM A CONSTANT BOUND PAIR     *
  7918  !***********************************************************************
47360 @ 398409:               LINE   7914 "regression-compile-tmp/imp918s.imp"
47361 @ 398447:               DEF    CBPAIR (_lev0id0_CSS_CBPAIR) p1=V_016a 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
47362 @ 398465:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
47363 @ 398466:                     DEF    LB p1=V_0203 a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
47364 @ 398480:                     DEF    UB p1=V_0204 a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
47365 @ 398494:                  FINISH ) {lev=3}

  7919           %INTEGER KK,KKK,JJ,BP
47366 @ 398495:                  LINE   7919 "regression-compile-tmp/imp918s.imp"
47367 @ 398533:                  DEF    KK p1=V_0205 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
47368 @ 398547:                  DEF    KKK p1=V_0206 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
47369 @ 398562:                  DEF    JJ p1=V_0207 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
47370 @ 398576:                  DEF    BP p1=V_0208 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

  7920           P=P+1; KK=0
47371 @ 398590:                  LINE   7920 "regression-compile-tmp/imp918s.imp"
47372 @ 398628:                  PUSH   P
47373 @ 398631:                  PUSH   P
47374 @ 398634:                  PUSHI  #0x00000001
47375 @ 398639:                  ADD   
47376 @ 398640:                  ASSVAL
47377 @ 398641:                  LINE   7920 "regression-compile-tmp/imp918s.imp"
47378 @ 398679:                  PUSH   KK
47379 @ 398682:                  PUSHI  #0x00000000
47380 @ 398687:                  ASSVAL

  7921           %CYCLE JJ=1,1,2
47381 @ 398688:                  LINE   7921 "regression-compile-tmp/imp918s.imp"
47382 @ 398726:                  PUSH   JJ
47383 @ 398729:                  PUSHI  #0x00000001
47384 @ 398734:                  PUSHI  #0x00000002
47385 @ 398739:                  PUSHI  #0x00000001
47386 @ 398744:                  FOR    L_0003

  7922             KKK=KK
47387 @ 398747:                  LINE   7922 "regression-compile-tmp/imp918s.imp"
47388 @ 398785:                  PUSH   KKK
47389 @ 398788:                  PUSH   KK
47390 @ 398791:                  ASSVAL

  7923             %IF A(P)=2 %THEN KK=-1 %ELSE KK=1;  ! EXTRACT SIGN
47391 @ 398792:                  LINE   7923 "regression-compile-tmp/imp918s.imp"
47392 @ 398830:                  PUSH   A
47393 @ 398833:                  PUSH   P
47394 @ 398836:                  ACCESS
47395 @ 398837:                  PUSHI  #0x00000002
47396 @ 398842:                  JUMPIF # L_0007
47397 @ 398846:                  PUSH   KK
47398 @ 398849:                  PUSHI  #0x00000001
47399 @ 398854:                  NEGATE
47400 @ 398855:                  ASSVAL
47401 @ 398856:                  GOTO   L_0006
47402 @ 398859:                  LOCATE L_0007
47403 @ 398862:                  PUSH   KK
47404 @ 398865:                  PUSHI  #0x00000001
47405 @ 398870:                  ASSVAL
47406 @ 398871:                  LOCATE L_0006

  7924             FROM AR4(P+2,BP)
47407 @ 398874:                  LINE   7924 "regression-compile-tmp/imp918s.imp"
47408 @ 398912:                  PUSH   FROMAR4
47409 @ 398915:                  PUSH   P
47410 @ 398918:                  PUSHI  #0x00000002
47411 @ 398923:                  ADD   
47412 @ 398924:                  ASSPAR
47413 @ 398925:                  PUSH   BP
47414 @ 398928:                  ASSPAR
47415 @ 398929:                  CALL  

  7925             KK=KK*BP
47416 @ 398930:                  LINE   7925 "regression-compile-tmp/imp918s.imp"
47417 @ 398968:                  PUSH   KK
47418 @ 398971:                  PUSH   KK
47419 @ 398974:                  PUSH   BP
47420 @ 398977:                  MUL   
47421 @ 398978:                  ASSVAL

  7926             P=P+4
47422 @ 398979:                  LINE   7926 "regression-compile-tmp/imp918s.imp"
47423 @ 399017:                  PUSH   P
47424 @ 399020:                  PUSH   P
47425 @ 399023:                  PUSHI  #0x00000004
47426 @ 399028:                  ADD   
47427 @ 399029:                  ASSVAL

  7927           %REPEAT
47428 @ 399030:                  LINE   7927 "regression-compile-tmp/imp918s.imp"
47429 @ 399068:                  REPEAT L_0003
47430 @ 399071:                  LOCATE L_0004

  7928           %IF KKK>KK %THEN FAULT(43,0) %AND KK=KKK
47431 @ 399074:                  LINE   7928 "regression-compile-tmp/imp918s.imp"
47432 @ 399112:                  PUSH   KKK
47433 @ 399115:                  PUSH   KK
47434 @ 399118:                  JUMPIF <= L_0004
47435 @ 399122:                  PUSH   FAULT
47436 @ 399125:                  PUSHI  #0x0000002b
47437 @ 399130:                  ASSPAR
47438 @ 399131:                  PUSHI  #0x00000000
47439 @ 399136:                  ASSPAR
47440 @ 399137:                  CALL  
47441 @ 399138:                  PUSH   KK
47442 @ 399141:                  PUSH   KKK
47443 @ 399144:                  ASSVAL
47444 @ 399145:                  LOCATE L_0004

  7929           LB=KKK; UB=KK
47445 @ 399148:                  LINE   7929 "regression-compile-tmp/imp918s.imp"
47446 @ 399186:                  PUSH   LB
47447 @ 399189:                  PUSH   KKK
47448 @ 399192:                  ASSVAL
47449 @ 399193:                  LINE   7929 "regression-compile-tmp/imp918s.imp"
47450 @ 399231:                  PUSH   UB
47451 @ 399234:                  PUSH   KK
47452 @ 399237:                  ASSVAL

  7930           %END
47453 @ 399238:                  LINE   7930 "regression-compile-tmp/imp918s.imp"
47454 @ 399276:               END    _lev0id0_CSS_CBPAIR {lev=3 --> 2}

  7931           %ROUTINE GET WSP(%INTEGERNAME PLACE,%INTEGER SIZE)
  7932           {%SHORTROUTINE}
  7933  !***********************************************************************
  7934  !*       FIND OR CREATE A TEMPORARY VARIABLE OF 'SIZE' WORDS           *
  7935  !*       SIZE=0 FOR STRING TEMPORARIES (260 BYTES)                     *
  7936  !***********************************************************************
47455 @ 399277:               LINE   7931 "regression-compile-tmp/imp918s.imp"
47456 @ 399315:               DEF    GETWSP (_lev0id0_CSS_GETWSP) p1=V_0185 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
47457 @ 399333:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
47458 @ 399334:                     DEF    PLACE p1=V_0203 a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
47459 @ 399351:                     DEF    SIZE p1=V_0204 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
47460 @ 399367:                  FINISH ) {lev=3}

  7937           %INTEGER J,K
47461 @ 399368:                  LINE   7937 "regression-compile-tmp/imp918s.imp"
47462 @ 399406:                  DEF    J p1=V_0205 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
47463 @ 399419:                  DEF    K p1=V_0206 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

  7938           SIZE=0 %IF SIZE>7
  7939  !%if USE MC = 1 %start
  7940  !         *TR_SIZE+3(1),WSPTRTAB1
  7941  !%finish
47464 @ 399432:                  LINE   7938 "regression-compile-tmp/imp918s.imp"
47465 @ 399470:                  PUSH   SIZE
47466 @ 399473:                  PUSHI  #0x00000007
47467 @ 399478:                  JUMPIF <= L_0004
47468 @ 399482:                  PUSH   SIZE
47469 @ 399485:                  PUSHI  #0x00000000
47470 @ 399490:                  ASSVAL
47471 @ 399491:                  LOCATE L_0004

  7942           POP(AVL WSP(SIZE,LEVEL),J,K)
47472 @ 399494:                  LINE   7942 "regression-compile-tmp/imp918s.imp"
47473 @ 399532:                  PUSH   POP
47474 @ 399535:                  PUSH   AVLWSP
47475 @ 399538:                  PUSH   SIZE
47476 @ 399541:                  INDEX 
47477 @ 399542:                  PUSH   LEVEL
47478 @ 399545:                  ACCESS
47479 @ 399546:                  ASSPAR
47480 @ 399547:                  PUSH   J
47481 @ 399550:                  ASSPAR
47482 @ 399551:                  PUSH   K
47483 @ 399554:                  ASSPAR
47484 @ 399555:                  CALL  

  7943           %IF K<=0 %THEN %START;        ! MUST CREATE TEMPORARY
47485 @ 399556:                  LINE   7943 "regression-compile-tmp/imp918s.imp"
47486 @ 399594:                  PUSH   K
47487 @ 399597:                  PUSHI  #0x00000000
47488 @ 399602:                  JUMPIF > L_0004

  7944              %IF SIZE=2 %THEN N=(N+7)&(-8);    ! DBLE WRD BNDRY!
47489 @ 399606:                  LINE   7944 "regression-compile-tmp/imp918s.imp"
47490 @ 399644:                  PUSH   SIZE
47491 @ 399647:                  PUSHI  #0x00000002
47492 @ 399652:                  JUMPIF # L_0007
47493 @ 399656:                  PUSH   N
47494 @ 399659:                  PUSH   N
47495 @ 399662:                  PUSHI  #0x00000007
47496 @ 399667:                  ADD   
47497 @ 399668:                  PUSHI  #0x00000008
47498 @ 399673:                  NEGATE
47499 @ 399674:                  AND   
47500 @ 399675:                  ASSVAL
47501 @ 399676:                  LOCATE L_0007

  7945              K=N
47502 @ 399679:                  LINE   7945 "regression-compile-tmp/imp918s.imp"
47503 @ 399717:                  PUSH   K
47504 @ 399720:                  PUSH   N
47505 @ 399723:                  ASSVAL

  7946              %IF SIZE=0 %THEN N=N+260 %ELSE N=N+SIZE<<2
47506 @ 399724:                  LINE   7946 "regression-compile-tmp/imp918s.imp"
47507 @ 399762:                  PUSH   SIZE
47508 @ 399765:                  PUSHI  #0x00000000
47509 @ 399770:                  JUMPIF # L_0007
47510 @ 399774:                  PUSH   N
47511 @ 399777:                  PUSH   N
47512 @ 399780:                  PUSHI  #0x00000104
47513 @ 399785:                  ADD   
47514 @ 399786:                  ASSVAL
47515 @ 399787:                  GOTO   L_0006
47516 @ 399790:                  LOCATE L_0007
47517 @ 399793:                  PUSH   N
47518 @ 399796:                  PUSH   N
47519 @ 399799:                  PUSH   SIZE
47520 @ 399802:                  PUSHI  #0x00000002
47521 @ 399807:                  LSH   
47522 @ 399808:                  ADD   
47523 @ 399809:                  ASSVAL
47524 @ 399810:                  LOCATE L_0006

  7947           %FINISH
47525 @ 399813:                  LINE   7947 "regression-compile-tmp/imp918s.imp"
47526 @ 399851:                  LOCATE L_0004

  7948           PLACE=K
  7949  !
  7950  ! NORMALLY TEMPORARIES ARE RETURN ON EXITING FROM CSS. WITH STRINGS
  7951  ! THEY ARE RETURNED AS SOON AS POSSIBLE TO TRY AND SAVE SPACE
  7952  !
47527 @ 399854:                  LINE   7948 "regression-compile-tmp/imp918s.imp"
47528 @ 399892:                  PUSH   PLACE
47529 @ 399895:                  PUSH   K
47530 @ 399898:                  ASSVAL

  7953           PUSH(TWSPHEAD,K,SIZE) %UNLESS SIZE=0
47531 @ 399899:                  LINE   7953 "regression-compile-tmp/imp918s.imp"
47532 @ 399937:                  PUSH   SIZE
47533 @ 399940:                  PUSHI  #0x00000000
47534 @ 399945:                  JUMPIF = L_0004
47535 @ 399949:                  PUSH   PUSH
47536 @ 399952:                  PUSH   TWSPHEAD
47537 @ 399955:                  ASSPAR
47538 @ 399956:                  PUSH   K
47539 @ 399959:                  ASSPAR
47540 @ 399960:                  PUSH   SIZE
47541 @ 399963:                  ASSPAR
47542 @ 399964:                  CALL  
47543 @ 399965:                  LOCATE L_0004

  7954           %END
47544 @ 399968:                  LINE   7954 "regression-compile-tmp/imp918s.imp"
47545 @ 400006:               END    _lev0id0_CSS_GETWSP {lev=3 --> 2}

  7955           %ROUTINE RETURN WSP(%INTEGER PLACE,SIZE)
  7956           {%SHORTROUTINE}
47546 @ 400007:               LINE   7955 "regression-compile-tmp/imp918s.imp"
47547 @ 400045:               DEF    RETURNWSP (_lev0id0_CSS_RETURNWSP) p1=V_0186 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
47548 @ 400066:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
47549 @ 400067:                     DEF    PLACE p1=V_0203 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
47550 @ 400084:                     DEF    SIZE p1=V_0204 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
47551 @ 400100:                  FINISH ) {lev=3}

  7957           SIZE=0 %IF SIZE>7
  7958  !%if USE MC = 1 %start
  7959  !         *TR_SIZE+3(1),WSPTRTAB1
  7960  !%finish
47552 @ 400101:                  LINE   7957 "regression-compile-tmp/imp918s.imp"
47553 @ 400139:                  PUSH   SIZE
47554 @ 400142:                  PUSHI  #0x00000007
47555 @ 400147:                  JUMPIF <= L_0004
47556 @ 400151:                  PUSH   SIZE
47557 @ 400154:                  PUSHI  #0x00000000
47558 @ 400159:                  ASSVAL
47559 @ 400160:                  LOCATE L_0004

  7961           PUSH(AVL WSP(SIZE,LEVEL),0,PLACE)
47560 @ 400163:                  LINE   7961 "regression-compile-tmp/imp918s.imp"
47561 @ 400201:                  PUSH   PUSH
47562 @ 400204:                  PUSH   AVLWSP
47563 @ 400207:                  PUSH   SIZE
47564 @ 400210:                  INDEX 
47565 @ 400211:                  PUSH   LEVEL
47566 @ 400214:                  ACCESS
47567 @ 400215:                  ASSPAR
47568 @ 400216:                  PUSHI  #0x00000000
47569 @ 400221:                  ASSPAR
47570 @ 400222:                  PUSH   PLACE
47571 @ 400225:                  ASSPAR
47572 @ 400226:                  CALL  

  7962           %END
47573 @ 400227:                  LINE   7962 "regression-compile-tmp/imp918s.imp"
47574 @ 400265:               END    _lev0id0_CSS_RETURNWSP {lev=3 --> 2}

  7963           %ROUTINE SETLINE
  7964  !***********************************************************************
  7965  !*       UPDATE THE LINE NO IF THIS STATEMENT HAS A DIFFERENT SOURCE   *
  7966  !*       LINE NO THAN THE LAST STATEMENT. IF IN DIAGNOSTIC MODE THE    *
  7967  !*       MONITOR IS CALLED ALSO TO KEEP IT INFORMED OF THE EXECUTION   *
  7968  !*       OF THE OBJECT PROGRAM.                                        *
  7969  !***********************************************************************
  7970           {%SHORTROUTINE}
47575 @ 400266:               LINE   7963 "regression-compile-tmp/imp918s.imp"
47576 @ 400304:               DEF    SETLINE (_lev0id0_CSS_SETLINE) p1=V_016c 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
47577 @ 400323:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
47578 @ 400324:                  FINISH ) {lev=3}

  7971           %INTEGER K,AT
47579 @ 400325:                  LINE   7971 "regression-compile-tmp/imp918s.imp"
47580 @ 400363:                  DEF    K p1=V_0203 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
47581 @ 400376:                  DEF    AT p1=V_0204 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

  7972           %OWNINTEGER VALUE
47582 @ 400390:                  LINE   7972 "regression-compile-tmp/imp918s.imp"
47583 @ 400428:                  DEF    VALUE p1=V_0205 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
47584 @ 400445:                  INIT   1

  7973           %IF LINENOS=1 %THEN %START
47585 @ 400448:                  LINE   7973 "regression-compile-tmp/imp918s.imp"
47586 @ 400486:                  PUSH   LINENOS
47587 @ 400489:                  PUSHI  #0x00000001
47588 @ 400494:                  JUMPIF # L_0004

  7974              K=LINE&255
47589 @ 400498:                  LINE   7974 "regression-compile-tmp/imp918s.imp"
47590 @ 400536:                  PUSH   K
47591 @ 400539:                  PUSH   LINE
47592 @ 400542:                  PUSHI  #0x000000ff
47593 @ 400547:                  AND   
47594 @ 400548:                  ASSVAL

  7975              MONE=1 %IF K=0
47595 @ 400549:                  LINE   7975 "regression-compile-tmp/imp918s.imp"
47596 @ 400587:                  PUSH   K
47597 @ 400590:                  PUSHI  #0x00000000
47598 @ 400595:                  JUMPIF # L_0007
47599 @ 400599:                  PUSH   MONE
47600 @ 400602:                  PUSHI  #0x00000001
47601 @ 400607:                  ASSVAL
47602 @ 400608:                  LOCATE L_0007

  7976              PSI(X'92',K,GLA,23) %UNLESS K=VALUE %AND MONE=0
47603 @ 400611:                  LINE   7976 "regression-compile-tmp/imp918s.imp"
47604 @ 400649:                  PUSH   K
47605 @ 400652:                  PUSH   VALUE
47606 @ 400655:                  JUMPIF # L_0008
47607 @ 400659:                  PUSH   MONE
47608 @ 400662:                  PUSHI  #0x00000000
47609 @ 400667:                  JUMPIF = L_0007
47610 @ 400671:                  LOCATE L_0008
47611 @ 400674:                  PUSH   PSI
47612 @ 400677:                  PUSHI  #0x00000092
47613 @ 400682:                  ASSPAR
47614 @ 400683:                  PUSH   K
47615 @ 400686:                  ASSPAR
47616 @ 400687:                  PUSHI  #0x0000000d
47617 @ 400692:                  ASSPAR
47618 @ 400693:                  PUSHI  #0x00000017
47619 @ 400698:                  ASSPAR
47620 @ 400699:                  CALL  
47621 @ 400700:                  LOCATE L_0007

  7977              VALUE=K
47622 @ 400703:                  LINE   7977 "regression-compile-tmp/imp918s.imp"
47623 @ 400741:                  PUSH   VALUE
47624 @ 400744:                  PUSH   K
47625 @ 400747:                  ASSVAL

  7978              %IF MONE#0 %THEN PSI(X'92',LINE>>8,GLA,22);   ! MVI
47626 @ 400748:                  LINE   7978 "regression-compile-tmp/imp918s.imp"
47627 @ 400786:                  PUSH   MONE
47628 @ 400789:                  PUSHI  #0x00000000
47629 @ 400794:                  JUMPIF = L_0007
47630 @ 400798:                  PUSH   PSI
47631 @ 400801:                  PUSHI  #0x00000092
47632 @ 400806:                  ASSPAR
47633 @ 400807:                  PUSH   LINE
47634 @ 400810:                  PUSHI  #0x00000008
47635 @ 400815:                  RSH   
47636 @ 400816:                  ASSPAR
47637 @ 400817:                  PUSHI  #0x0000000d
47638 @ 400822:                  ASSPAR
47639 @ 400823:                  PUSHI  #0x00000016
47640 @ 400828:                  ASSPAR
47641 @ 400829:                  CALL  
47642 @ 400830:                  LOCATE L_0007

  7979              %IF DIAGS2#0 %THEN %START
47643 @ 400833:                  LINE   7979 "regression-compile-tmp/imp918s.imp"
47644 @ 400871:                  PUSH   DIAGS2
47645 @ 400874:                  PUSHI  #0x00000000
47646 @ 400879:                  JUMPIF = L_0007

  7980                 %IF IMPMON1<10 %THEN CXREF(0,-2,0,AT) %AND IMPMON1=AT
47647 @ 400883:                  LINE   7980 "regression-compile-tmp/imp918s.imp"
47648 @ 400921:                  PUSH   IMPMON1
47649 @ 400924:                  PUSHI  #0x0000000a
47650 @ 400929:                  JUMPIF >= L_000a
47651 @ 400933:                  PUSH   CXREF
47652 @ 400936:                  PUSHI  #0x00000000
47653 @ 400941:                  ASSPAR
47654 @ 400942:                  PUSHI  #0x00000002
47655 @ 400947:                  NEGATE
47656 @ 400948:                  ASSPAR
47657 @ 400949:                  PUSHI  #0x00000000
47658 @ 400954:                  ASSPAR
47659 @ 400955:                  PUSH   AT
47660 @ 400958:                  ASSPAR
47661 @ 400959:                  CALL  
47662 @ 400960:                  PUSH   IMPMON1
47663 @ 400963:                  PUSH   AT
47664 @ 400966:                  ASSVAL
47665 @ 400967:                  LOCATE L_000a

  7981                 CRCALL(-2);             ! CALL THE ONLINE MONITOR
47666 @ 400970:                  LINE   7981 "regression-compile-tmp/imp918s.imp"
47667 @ 401008:                  PUSH   CRCALL
47668 @ 401011:                  PUSHI  #0x00000002
47669 @ 401016:                  NEGATE
47670 @ 401017:                  ASSPAR
47671 @ 401018:                  CALL  

  7982              %FINISH
47672 @ 401019:                  LINE   7982 "regression-compile-tmp/imp918s.imp"
47673 @ 401057:                  LOCATE L_0007

  7983              MONE=0
47674 @ 401060:                  LINE   7983 "regression-compile-tmp/imp918s.imp"
47675 @ 401098:                  PUSH   MONE
47676 @ 401101:                  PUSHI  #0x00000000
47677 @ 401106:                  ASSVAL

  7984            %FINISH
47678 @ 401107:                  LINE   7984 "regression-compile-tmp/imp918s.imp"
47679 @ 401145:                  LOCATE L_0004

  7985            %END
47680 @ 401148:                  LINE   7985 "regression-compile-tmp/imp918s.imp"
47681 @ 401186:               END    _lev0id0_CSS_SETLINE {lev=3 --> 2}

  7986           %ROUTINE     CHECK CAPACITY(%INTEGER REG,DIS,X,LEVEL)
  7987           {%SHORTROUTINE}
  7988  !***********************************************************************
  7989  !*       CHECK THAT THE ASSIGNMENT JUST MADE DID NOT EXCEED THE        *
  7990  !*       CAPACITY OF THE VARIABLE(BYTES  AND SHORTS ONLY)              *
  7991  !***********************************************************************
47682 @ 401187:               LINE   7986 "regression-compile-tmp/imp918s.imp"
47683 @ 401225:               DEF    CHECKCAPACITY (_lev0id0_CSS_CHECKCAPACITY) p1=V_01aa 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
47684 @ 401250:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
47685 @ 401251:                     DEF    REG p1=V_0203 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
47686 @ 401266:                     DEF    DIS p1=V_0204 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
47687 @ 401281:                     DEF    X p1=V_0205 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
47688 @ 401294:                     DEF    LEVEL p1=V_0206 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
47689 @ 401311:                  FINISH ) {lev=3}

  7992           %INTEGER MASK
47690 @ 401312:                  LINE   7992 "regression-compile-tmp/imp918s.imp"
47691 @ 401350:                  DEF    MASK p1=V_0207 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

  7993           %IF 1<=PREC<=2 %THEN %START
47692 @ 401366:                  LINE   7993 "regression-compile-tmp/imp918s.imp"
47693 @ 401404:                  PUSHI  #0x00000001
47694 @ 401409:                  PUSH   PREC
47695 @ 401412:                  JUMPIFD > L_0004
47696 @ 401416:                  PUSHI  #0x00000002
47697 @ 401421:                  JUMPIF > L_0004

  7994              CCSTATE=-1
47698 @ 401425:                  LINE   7994 "regression-compile-tmp/imp918s.imp"
47699 @ 401463:                  PUSH   CCSTATE
47700 @ 401466:                  PUSHI  #0x00000001
47701 @ 401471:                  NEGATE
47702 @ 401472:                  ASSVAL

  7995              %IF PREC=1 %THEN PRX(X'55',REG,0,GLA,24) %AND MASK=2 %C
  7996                         %ELSE DUMP(X'49',REG,DIS,X,LEVEL) %AND MASK=7
47703 @ 401473:                  LINE   7995 "regression-compile-tmp/imp918s.imp"
47704 @ 401511:                  PUSH   PREC
47705 @ 401514:                  PUSHI  #0x00000001
47706 @ 401519:                  JUMPIF # L_0007
47707 @ 401523:                  PUSH   PRX
47708 @ 401526:                  PUSHI  #0x00000055
47709 @ 401531:                  ASSPAR
47710 @ 401532:                  PUSH   REG
47711 @ 401535:                  ASSPAR
47712 @ 401536:                  PUSHI  #0x00000000
47713 @ 401541:                  ASSPAR
47714 @ 401542:                  PUSHI  #0x0000000d
47715 @ 401547:                  ASSPAR
47716 @ 401548:                  PUSHI  #0x00000018
47717 @ 401553:                  ASSPAR
47718 @ 401554:                  CALL  
47719 @ 401555:                  PUSH   MASK
47720 @ 401558:                  PUSHI  #0x00000002
47721 @ 401563:                  ASSVAL
47722 @ 401564:                  GOTO   L_0006
47723 @ 401567:                  LOCATE L_0007
47724 @ 401570:                  PUSH   DUMP
47725 @ 401573:                  PUSHI  #0x00000049
47726 @ 401578:                  ASSPAR
47727 @ 401579:                  PUSH   REG
47728 @ 401582:                  ASSPAR
47729 @ 401583:                  PUSH   DIS
47730 @ 401586:                  ASSPAR
47731 @ 401587:                  PUSH   X
47732 @ 401590:                  ASSPAR
47733 @ 401591:                  PUSH   LEVEL
47734 @ 401594:                  ASSPAR
47735 @ 401595:                  CALL  
47736 @ 401596:                  PUSH   MASK
47737 @ 401599:                  PUSHI  #0x00000007
47738 @ 401604:                  ASSVAL
47739 @ 401605:                  LOCATE L_0006

  7997              PRX(X'47',MASK,12,0,88);     ! BC MASK,CAPACITY EXCEEDED
47740 @ 401608:                  LINE   7997 "regression-compile-tmp/imp918s.imp"
47741 @ 401646:                  PUSH   PRX
47742 @ 401649:                  PUSHI  #0x00000047
47743 @ 401654:                  ASSPAR
47744 @ 401655:                  PUSH   MASK
47745 @ 401658:                  ASSPAR
47746 @ 401659:                  PUSHI  #0x0000000c
47747 @ 401664:                  ASSPAR
47748 @ 401665:                  PUSHI  #0x00000000
47749 @ 401670:                  ASSPAR
47750 @ 401671:                  PUSHI  #0x00000058
47751 @ 401676:                  ASSPAR
47752 @ 401677:                  CALL  

  7998           %FINISH
47753 @ 401678:                  LINE   7998 "regression-compile-tmp/imp918s.imp"
47754 @ 401716:                  LOCATE L_0004

  7999           %END
  8000  !
  8001  !***********************************************************************
  8002  !*       REGISTER ALLOCATING ROUTINES                                  *
  8003  !*       THE REGISTERS ARE HELD ON A LIST FROM 0->Label22 COVERING          *
  8004  !*       THE 16 GENERAL REGISTERS AND THE FOUR FLOATING REGISTERS.     *
  8005  !*       A FLOATING REGISTER MAY BE DEFINED BY (TYPE=2,REG=0,2,4,6) OR *
  8006  !*       (TYPE =1,REG=16,18,20,22). BOTH ARE  VALID. THE FREE LIST IS  *
  8007  !*       SEARCHED IN DIFFERENT WAYS SO THAT THE MORE VOLATILE REGISTERS*
  8008  !*       I.E. GRS 0-3 AND GR15 ARE USED FOR SHORT-TERM PURPOSES AND    *
  8009  !*       THE SAFE REGISTERS(GRS 4-14) ARE USED WHEN THE PURPOSE MAY    *
  8010  !*       HAVE SOME LONG TERM VALUE.                                    *
  8011  !***********************************************************************
  8012  !
47755 @ 401719:                  LINE   7999 "regression-compile-tmp/imp918s.imp"
47756 @ 401757:               END    _lev0id0_CSS_CHECKCAPACITY {lev=3 --> 2}

  8013           %ROUTINE FORGET(%INTEGER REG)
47757 @ 401758:               LINE   8013 "regression-compile-tmp/imp918s.imp"
47758 @ 401796:               DEF    FORGET (_lev0id0_CSS_FORGET) p1=V_01b0 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
47759 @ 401814:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
47760 @ 401815:                     DEF    REG p1=V_0203 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
47761 @ 401830:                  FINISH ) {lev=3}

  8014           CCSTATE=-1 %IF CCSTATE&255=REG
47762 @ 401831:                  LINE   8014 "regression-compile-tmp/imp918s.imp"
47763 @ 401869:                  PUSH   CCSTATE
47764 @ 401872:                  PUSHI  #0x000000ff
47765 @ 401877:                  AND   
47766 @ 401878:                  PUSH   REG
47767 @ 401881:                  JUMPIF # L_0004
47768 @ 401885:                  PUSH   CCSTATE
47769 @ 401888:                  PUSHI  #0x00000001
47770 @ 401893:                  NEGATE
47771 @ 401894:                  ASSVAL
47772 @ 401895:                  LOCATE L_0004

  8015           %IF REGISTER(REG)>= 0 %THEN GRUSE(REG)=0 %AND GRINF(REG)=0
47773 @ 401898:                  LINE   8015 "regression-compile-tmp/imp918s.imp"
47774 @ 401936:                  PUSH   REGISTER
47775 @ 401939:                  PUSH   REG
47776 @ 401942:                  ACCESS
47777 @ 401943:                  PUSHI  #0x00000000
47778 @ 401948:                  JUMPIF < L_0004
47779 @ 401952:                  PUSH   GRUSE
47780 @ 401955:                  PUSH   REG
47781 @ 401958:                  ACCESS
47782 @ 401959:                  PUSHI  #0x00000000
47783 @ 401964:                  ASSVAL
47784 @ 401965:                  PUSH   GRINF
47785 @ 401968:                  PUSH   REG
47786 @ 401971:                  ACCESS
47787 @ 401972:                  PUSHI  #0x00000000
47788 @ 401977:                  ASSVAL
47789 @ 401978:                  LOCATE L_0004

  8016           %END
47790 @ 401981:                  LINE   8016 "regression-compile-tmp/imp918s.imp"
47791 @ 402019:               END    _lev0id0_CSS_FORGET {lev=3 --> 2}

  8017           %ROUTINE FREE AND FORGET(%INTEGER REG)
47792 @ 402020:               LINE   8017 "regression-compile-tmp/imp918s.imp"
47793 @ 402058:               DEF    FREEANDFORGET (_lev0id0_CSS_FREEANDFORGET) p1=V_0174 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
47794 @ 402083:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
47795 @ 402084:                     DEF    REG p1=V_0203 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
47796 @ 402099:                  FINISH ) {lev=3}

  8018           CCSTATE=-1 %IF CCSTATE&255=REG
47797 @ 402100:                  LINE   8018 "regression-compile-tmp/imp918s.imp"
47798 @ 402138:                  PUSH   CCSTATE
47799 @ 402141:                  PUSHI  #0x000000ff
47800 @ 402146:                  AND   
47801 @ 402147:                  PUSH   REG
47802 @ 402150:                  JUMPIF # L_0004
47803 @ 402154:                  PUSH   CCSTATE
47804 @ 402157:                  PUSHI  #0x00000001
47805 @ 402162:                  NEGATE
47806 @ 402163:                  ASSVAL
47807 @ 402164:                  LOCATE L_0004

  8019           %IF REGISTER(REG)>=0 %THEN  REGISTER(REG)=0 %AND %C
  8020                  GRUSE(REG)=0 %AND GRINF(REG)=0
47808 @ 402167:                  LINE   8019 "regression-compile-tmp/imp918s.imp"
47809 @ 402205:                  PUSH   REGISTER
47810 @ 402208:                  PUSH   REG
47811 @ 402211:                  ACCESS
47812 @ 402212:                  PUSHI  #0x00000000
47813 @ 402217:                  JUMPIF < L_0004
47814 @ 402221:                  PUSH   REGISTER
47815 @ 402224:                  PUSH   REG
47816 @ 402227:                  ACCESS
47817 @ 402228:                  PUSHI  #0x00000000
47818 @ 402233:                  ASSVAL
47819 @ 402234:                  PUSH   GRUSE
47820 @ 402237:                  PUSH   REG
47821 @ 402240:                  ACCESS
47822 @ 402241:                  PUSHI  #0x00000000
47823 @ 402246:                  ASSVAL
47824 @ 402247:                  PUSH   GRINF
47825 @ 402250:                  PUSH   REG
47826 @ 402253:                  ACCESS
47827 @ 402254:                  PUSHI  #0x00000000
47828 @ 402259:                  ASSVAL
47829 @ 402260:                  LOCATE L_0004

  8021           %END
47830 @ 402263:                  LINE   8021 "regression-compile-tmp/imp918s.imp"
47831 @ 402301:               END    _lev0id0_CSS_FREEANDFORGET {lev=3 --> 2}

  8022           %ROUTINE FORGETM(%INTEGER UPPER)
  8023           {%SHORTROUTINE}
  8024  !***********************************************************************
  8025  !*       FORGETS A BLOCK OF REGISTERS DEFINED BY UPPER AND THE         *
  8026  !*       GLOBAL ARRAY GRMAP                                            *
  8027  !*       UPPER= 3   FOR   GRS 0-3                                      *
  8028  !*       UPPER= 4   FOR   GRS  0-3  AND 15                             *
  8029  !*       UPPER= 8   FOR   GRS  0-3  AND 15  PLUS ALL FRS               *
  8030  !*       UPPER=14   FOR   GRS  0-8,14,15  AND ALL FRS                  *
  8031  !***********************************************************************
47832 @ 402302:               LINE   8022 "regression-compile-tmp/imp918s.imp"
47833 @ 402340:               DEF    FORGETM (_lev0id0_CSS_FORGETM) p1=V_01b1 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
47834 @ 402359:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
47835 @ 402360:                     DEF    UPPER p1=V_0203 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
47836 @ 402377:                  FINISH ) {lev=3}

  8032           %INTEGER I,J,REG,U
47837 @ 402378:                  LINE   8032 "regression-compile-tmp/imp918s.imp"
47838 @ 402416:                  DEF    I p1=V_0204 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
47839 @ 402429:                  DEF    J p1=V_0205 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
47840 @ 402442:                  DEF    REG p1=V_0206 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
47841 @ 402457:                  DEF    U p1=V_0207 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

  8033           %CYCLE I=0,1,UPPER
47842 @ 402470:                  LINE   8033 "regression-compile-tmp/imp918s.imp"
47843 @ 402508:                  PUSH   I
47844 @ 402511:                  PUSHI  #0x00000001
47845 @ 402516:                  PUSH   UPPER
47846 @ 402519:                  PUSHI  #0x00000000
47847 @ 402524:                  FOR    L_0003

  8034              REG=GRMAP(I)
47848 @ 402527:                  LINE   8034 "regression-compile-tmp/imp918s.imp"
47849 @ 402565:                  PUSH   REG
47850 @ 402568:                  PUSH   GRMAP
47851 @ 402571:                  PUSH   I
47852 @ 402574:                  ACCESS
47853 @ 402575:                  ASSVAL

  8035              CCSTATE=-1 %IF CCSTATE&255=REG
47854 @ 402576:                  LINE   8035 "regression-compile-tmp/imp918s.imp"
47855 @ 402614:                  PUSH   CCSTATE
47856 @ 402617:                  PUSHI  #0x000000ff
47857 @ 402622:                  AND   
47858 @ 402623:                  PUSH   REG
47859 @ 402626:                  JUMPIF # L_0007
47860 @ 402630:                  PUSH   CCSTATE
47861 @ 402633:                  PUSHI  #0x00000001
47862 @ 402638:                  NEGATE
47863 @ 402639:                  ASSVAL
47864 @ 402640:                  LOCATE L_0007

  8036              %IF REGISTER(REG)=0 %THEN GRUSE(REG)=0 %AND GRINF(REG)=0
47865 @ 402643:                  LINE   8036 "regression-compile-tmp/imp918s.imp"
47866 @ 402681:                  PUSH   REGISTER
47867 @ 402684:                  PUSH   REG
47868 @ 402687:                  ACCESS
47869 @ 402688:                  PUSHI  #0x00000000
47870 @ 402693:                  JUMPIF # L_0007
47871 @ 402697:                  PUSH   GRUSE
47872 @ 402700:                  PUSH   REG
47873 @ 402703:                  ACCESS
47874 @ 402704:                  PUSHI  #0x00000000
47875 @ 402709:                  ASSVAL
47876 @ 402710:                  PUSH   GRINF
47877 @ 402713:                  PUSH   REG
47878 @ 402716:                  ACCESS
47879 @ 402717:                  PUSHI  #0x00000000
47880 @ 402722:                  ASSVAL
47881 @ 402723:                  LOCATE L_0007

  8037           %REPEAT
47882 @ 402726:                  LINE   8037 "regression-compile-tmp/imp918s.imp"
47883 @ 402764:                  REPEAT L_0003
47884 @ 402767:                  LOCATE L_0004

  8038           %END
47885 @ 402770:                  LINE   8038 "regression-compile-tmp/imp918s.imp"
47886 @ 402808:               END    _lev0id0_CSS_FORGETM {lev=3 --> 2}

  8039           %ROUTINE SAVE IRS(%INTEGER UPPER)
  8040           {%SHORTROUTINE}
  8041  !***********************************************************************
  8042  !*       INSPECTS THE REGISTERS DEFINED BY UPPER AND THE GLOBAL        *
  8043  !*       ARRAY 'GRMAP'. ANY INTERMEDIATE RESULTS IN THESE REGISTERS    *
  8044  !*       ARE TRANSFERED TO CORE BY 'BOOT OUT'                          *
  8045  !*       UPPER=4 FOR GRS 1-3 & 15   (CORRUPTED BY PERM)                *
  8046  !*       UPPER=8 FOR GRS 1-3 & 15 +FRS 0-6  (CORRUPTED BY FN CALL)     *
  8047  !***********************************************************************
47887 @ 402809:               LINE   8039 "regression-compile-tmp/imp918s.imp"
47888 @ 402847:               DEF    SAVEIRS (_lev0id0_CSS_SAVEIRS) p1=V_0175 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
47889 @ 402866:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
47890 @ 402867:                     DEF    UPPER p1=V_0203 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
47891 @ 402884:                  FINISH ) {lev=3}

  8048           %INTEGER I,REG
47892 @ 402885:                  LINE   8048 "regression-compile-tmp/imp918s.imp"
47893 @ 402923:                  DEF    I p1=V_0204 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
47894 @ 402936:                  DEF    REG p1=V_0205 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

  8049           %CYCLE I=0,1,UPPER
47895 @ 402951:                  LINE   8049 "regression-compile-tmp/imp918s.imp"
47896 @ 402989:                  PUSH   I
47897 @ 402992:                  PUSHI  #0x00000001
47898 @ 402997:                  PUSH   UPPER
47899 @ 403000:                  PUSHI  #0x00000000
47900 @ 403005:                  FOR    L_0003

  8050             REG=GRMAP(I)
47901 @ 403008:                  LINE   8050 "regression-compile-tmp/imp918s.imp"
47902 @ 403046:                  PUSH   REG
47903 @ 403049:                  PUSH   GRMAP
47904 @ 403052:                  PUSH   I
47905 @ 403055:                  ACCESS
47906 @ 403056:                  ASSVAL

  8051             BOOT OUT(REG) %IF REGISTER(REG)=1
47907 @ 403057:                  LINE   8051 "regression-compile-tmp/imp918s.imp"
47908 @ 403095:                  PUSH   REGISTER
47909 @ 403098:                  PUSH   REG
47910 @ 403101:                  ACCESS
47911 @ 403102:                  PUSHI  #0x00000001
47912 @ 403107:                  JUMPIF # L_0007
47913 @ 403111:                  PUSH   BOOTOUT
47914 @ 403114:                  PUSH   REG
47915 @ 403117:                  ASSPAR
47916 @ 403118:                  CALL  
47917 @ 403119:                  LOCATE L_0007

  8052           %REPEAT
47918 @ 403122:                  LINE   8052 "regression-compile-tmp/imp918s.imp"
47919 @ 403160:                  REPEAT L_0003
47920 @ 403163:                  LOCATE L_0004

  8053           %END
47921 @ 403166:                  LINE   8053 "regression-compile-tmp/imp918s.imp"
47922 @ 403204:               END    _lev0id0_CSS_SAVEIRS {lev=3 --> 2}

  8054           %ROUTINE SET USE(%INTEGER R,U,I)
  8055  !***********************************************************************
  8056  !*       NOTE THAT THE USE OF REGISTER 'R' IS NOW 'U' & 'I'            *
  8057  !***********************************************************************
47923 @ 403205:               LINE   8054 "regression-compile-tmp/imp918s.imp"
47924 @ 403243:               DEF    SETUSE (_lev0id0_CSS_SETUSE) p1=V_0171 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
47925 @ 403261:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
47926 @ 403262:                     DEF    R p1=V_0203 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
47927 @ 403275:                     DEF    U p1=V_0204 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
47928 @ 403288:                     DEF    I p1=V_0205 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
47929 @ 403301:                  FINISH ) {lev=3}

  8058           CCSTATE=-1 %IF CCSTATE&255=R
47930 @ 403302:                  LINE   8058 "regression-compile-tmp/imp918s.imp"
47931 @ 403340:                  PUSH   CCSTATE
47932 @ 403343:                  PUSHI  #0x000000ff
47933 @ 403348:                  AND   
47934 @ 403349:                  PUSH   R
47935 @ 403352:                  JUMPIF # L_0004
47936 @ 403356:                  PUSH   CCSTATE
47937 @ 403359:                  PUSHI  #0x00000001
47938 @ 403364:                  NEGATE
47939 @ 403365:                  ASSVAL
47940 @ 403366:                  LOCATE L_0004

  8059           %IF REGISTER(R)>=0 %THEN  GRUSE(R)=U %AND GRINF(R)=I%C
  8060               %AND GRAT(R)=CA
47941 @ 403369:                  LINE   8059 "regression-compile-tmp/imp918s.imp"
47942 @ 403407:                  PUSH   REGISTER
47943 @ 403410:                  PUSH   R
47944 @ 403413:                  ACCESS
47945 @ 403414:                  PUSHI  #0x00000000
47946 @ 403419:                  JUMPIF < L_0004
47947 @ 403423:                  PUSH   GRUSE
47948 @ 403426:                  PUSH   R
47949 @ 403429:                  ACCESS
47950 @ 403430:                  PUSH   U
47951 @ 403433:                  ASSVAL
47952 @ 403434:                  PUSH   GRINF
47953 @ 403437:                  PUSH   R
47954 @ 403440:                  ACCESS
47955 @ 403441:                  PUSH   I
47956 @ 403444:                  ASSVAL
47957 @ 403445:                  PUSH   GRAT
47958 @ 403448:                  PUSH   R
47959 @ 403451:                  ACCESS
47960 @ 403452:                  PUSH   CA
47961 @ 403455:                  ASSVAL
47962 @ 403456:                  LOCATE L_0004

  8061           %END
47963 @ 403459:                  LINE   8061 "regression-compile-tmp/imp918s.imp"
47964 @ 403497:               END    _lev0id0_CSS_SETUSE {lev=3 --> 2}

  8062           %ROUTINE BOOT OUT(%INTEGER REG)
  8063           {%SHORTROUTINE}
  8064  !***********************************************************************
  8065  !*       IF THE SPECIFIED REGISTER CONTAINS AN INTERMEDIATE RESULT     *
  8066  !*       (USE=1) OR PARAMETER EN-ROUTE TO A ROUTINE (USE=15) THEN FREE *
  8067  !*       THE REGISTER BY TRANSFERRING ITS CONTENTS TO CORE             *
  8068  !***********************************************************************
47965 @ 403498:               LINE   8062 "regression-compile-tmp/imp918s.imp"
47966 @ 403536:               DEF    BOOTOUT (_lev0id0_CSS_BOOTOUT) p1=V_0176 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
47967 @ 403555:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
47968 @ 403556:                     DEF    REG p1=V_0203 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
47969 @ 403571:                  FINISH ) {lev=3}

  8069           %INTEGER J,USE,BASE
47970 @ 403572:                  LINE   8069 "regression-compile-tmp/imp918s.imp"
47971 @ 403610:                  DEF    J p1=V_0204 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
47972 @ 403623:                  DEF    USE p1=V_0205 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
47973 @ 403638:                  DEF    BASE p1=V_0206 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

  8070           %RECORD(RD)%NAME OPND
47974 @ 403654:                  LINE   8070 "regression-compile-tmp/imp918s.imp"
47975 @ 403692:                  DEF    OPND p1=V_0207 a/tf=42 b/format=1be c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  8071           USE=GRUSE(REG)
47976 @ 403708:                  LINE   8071 "regression-compile-tmp/imp918s.imp"
47977 @ 403746:                  PUSH   USE
47978 @ 403749:                  PUSH   GRUSE
47979 @ 403752:                  PUSH   REG
47980 @ 403755:                  ACCESS
47981 @ 403756:                  ASSVAL

  8072           %IF USE=1 %OR USE=15 %THEN %START
47982 @ 403757:                  LINE   8072 "regression-compile-tmp/imp918s.imp"
47983 @ 403795:                  PUSH   USE
47984 @ 403798:                  PUSHI  #0x00000001
47985 @ 403803:                  JUMPIF = L_0005
47986 @ 403807:                  PUSH   USE
47987 @ 403810:                  PUSHI  #0x0000000f
47988 @ 403815:                  JUMPIF # L_0004
47989 @ 403819:                  LOCATE L_0005

  8073              %IF USE=15 %THEN BASE=WSPR %AND J=REG<<2+64 %ELSE %START
47990 @ 403822:                  LINE   8073 "regression-compile-tmp/imp918s.imp"
47991 @ 403860:                  PUSH   USE
47992 @ 403863:                  PUSHI  #0x0000000f
47993 @ 403868:                  JUMPIF # L_0007
47994 @ 403872:                  PUSH   BASE
47995 @ 403875:                  PUSHI  #0x0000000b
47996 @ 403880:                  ASSVAL
47997 @ 403881:                  PUSH   J
47998 @ 403884:                  PUSH   REG
47999 @ 403887:                  PUSHI  #0x00000002
48000 @ 403892:                  LSH   
48001 @ 403893:                  PUSHI  #0x00000040
48002 @ 403898:                  ADD   
48003 @ 403899:                  ASSVAL
48004 @ 403900:                  GOTO   L_0006
48005 @ 403903:                  LOCATE L_0007

  8074  ABORT %UNLESS ADDR(ASLIST(0))<=GRINF(REG)<=ADDR(ASLIST(32752))
48006 @ 403906:                  LINE   8074 "regression-compile-tmp/imp918s.imp"
48007 @ 403944:                  PUSH   ADDR
48008 @ 403947:                  PUSH   ASLIST
48009 @ 403950:                  PUSHI  #0x00000000
48010 @ 403955:                  ACCESS
48011 @ 403956:                  ASSPAR
48012 @ 403957:                  CALL  
48013 @ 403958:                  PUSH   GRINF
48014 @ 403961:                  PUSH   REG
48015 @ 403964:                  ACCESS
48016 @ 403965:                  JUMPIFD > L_000b
48017 @ 403969:                  PUSH   ADDR
48018 @ 403972:                  PUSH   ASLIST
48019 @ 403975:                  PUSHI  #0x00007ff0
48020 @ 403980:                  ACCESS
48021 @ 403981:                  ASSPAR
48022 @ 403982:                  CALL  
48023 @ 403983:                  JUMPIF <= L_000a
48024 @ 403987:                  LOCATE L_000b
48025 @ 403990:                  PUSH   ABORT
48026 @ 403993:                  CALL  
48027 @ 403994:                  LOCATE L_000a

  8075                 OPND==RECORD(GRINF(REG))
48028 @ 403997:                  LINE   8075 "regression-compile-tmp/imp918s.imp"
48029 @ 404035:                  PUSH   OPND
48030 @ 404038:                  PUSH   RECORD
48031 @ 404041:                  PUSH   GRINF
48032 @ 404044:                  PUSH   REG
48033 @ 404047:                  ACCESS
48034 @ 404048:                  ASSPAR
48035 @ 404049:                  CALL  
48036 @ 404050:                  ASSREF

  8076                 %RETURN %UNLESS OPND_FLAG=9 %AND OPND_D<0
48037 @ 404051:                  LINE   8076 "regression-compile-tmp/imp918s.imp"
48038 @ 404089:                  PUSH   OPND
48039 @ 404092:                  SELECT 3
48040 @ 404095:                  PUSHI  #0x00000009
48041 @ 404100:                  JUMPIF # L_000b
48042 @ 404104:                  PUSH   OPND
48043 @ 404107:                  SELECT 4
48044 @ 404110:                  PUSHI  #0x00000000
48045 @ 404115:                  JUMPIF < L_000a
48046 @ 404119:                  LOCATE L_000b
48047 @ 404122:                  RETURN
48048 @ 404123:                  LOCATE L_000a

  8077                 GET WSP(J,1+REG>>4)
48049 @ 404126:                  LINE   8077 "regression-compile-tmp/imp918s.imp"
48050 @ 404164:                  PUSH   GETWSP
48051 @ 404167:                  PUSH   J
48052 @ 404170:                  ASSPAR
48053 @ 404171:                  PUSHI  #0x00000001
48054 @ 404176:                  PUSH   REG
48055 @ 404179:                  PUSHI  #0x00000004
48056 @ 404184:                  RSH   
48057 @ 404185:                  ADD   
48058 @ 404186:                  ASSPAR
48059 @ 404187:                  CALL  

  8078                 OPND_XB=RBASE; OPND_D=J; BASE=RBASE
48060 @ 404188:                  LINE   8078 "regression-compile-tmp/imp918s.imp"
48061 @ 404226:                  PUSH   OPND
48062 @ 404229:                  SELECT 2
48063 @ 404232:                  PUSH   RBASE
48064 @ 404235:                  ASSVAL
48065 @ 404236:                  LINE   8078 "regression-compile-tmp/imp918s.imp"
48066 @ 404274:                  PUSH   OPND
48067 @ 404277:                  SELECT 4
48068 @ 404280:                  PUSH   J
48069 @ 404283:                  ASSVAL
48070 @ 404284:                  LINE   8078 "regression-compile-tmp/imp918s.imp"
48071 @ 404322:                  PUSH   BASE
48072 @ 404325:                  PUSH   RBASE
48073 @ 404328:                  ASSVAL

  8079              %FINISH
48074 @ 404329:                  LINE   8079 "regression-compile-tmp/imp918s.imp"
48075 @ 404367:                  LOCATE L_0006

  8080              DUMP(X'50'+REG&16,REG&15,J,0,BASE)
48076 @ 404370:                  LINE   8080 "regression-compile-tmp/imp918s.imp"
48077 @ 404408:                  PUSH   DUMP
48078 @ 404411:                  PUSHI  #0x00000050
48079 @ 404416:                  PUSH   REG
48080 @ 404419:                  PUSHI  #0x00000010
48081 @ 404424:                  AND   
48082 @ 404425:                  ADD   
48083 @ 404426:                  ASSPAR
48084 @ 404427:                  PUSH   REG
48085 @ 404430:                  PUSHI  #0x0000000f
48086 @ 404435:                  AND   
48087 @ 404436:                  ASSPAR
48088 @ 404437:                  PUSH   J
48089 @ 404440:                  ASSPAR
48090 @ 404441:                  PUSHI  #0x00000000
48091 @ 404446:                  ASSPAR
48092 @ 404447:                  PUSH   BASE
48093 @ 404450:                  ASSPAR
48094 @ 404451:                  CALL  

  8081              FREE AND FORGET(REG)
48095 @ 404452:                  LINE   8081 "regression-compile-tmp/imp918s.imp"
48096 @ 404490:                  PUSH   FREEANDFORGET
48097 @ 404493:                  PUSH   REG
48098 @ 404496:                  ASSPAR
48099 @ 404497:                  CALL  

  8082           %FINISH
48100 @ 404498:                  LINE   8082 "regression-compile-tmp/imp918s.imp"
48101 @ 404536:                  LOCATE L_0004

  8083           %END
48102 @ 404539:                  LINE   8083 "regression-compile-tmp/imp918s.imp"
48103 @ 404577:               END    _lev0id0_CSS_BOOTOUT {lev=3 --> 2}

  8084  %ROUTINE FINDREG(%INTEGER CONTROL, %INTEGERNAME REG)
  8085  {%SHORTROUTINE}
48104 @ 404578:               LINE   8084 "regression-compile-tmp/imp918s.imp"
48105 @ 404616:               DEF    FINDREG (_lev0id0_CSS_FINDREG) p1=V_01af 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
48106 @ 404635:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
48107 @ 404636:                     DEF    CONTROL p1=V_0203 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
48108 @ 404655:                     DEF    REG p1=V_0204 a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
48109 @ 404670:                  FINISH ) {lev=3}

  8086  %INTEGER I, J, K, LAST, LAT, AND, AD
48110 @ 404671:                  LINE   8086 "regression-compile-tmp/imp918s.imp"
48111 @ 404709:                  DEF    I p1=V_0205 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
48112 @ 404722:                  DEF    J p1=V_0206 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
48113 @ 404735:                  DEF    K p1=V_0207 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
48114 @ 404748:                  DEF    LAST p1=V_0208 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
48115 @ 404764:                  DEF    LAT p1=V_0209 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
48116 @ 404779:                  DEF    AND p1=V_020a 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
48117 @ 404794:                  DEF    AD p1=V_020b 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

  8087           %IF CONTROL=FR0 %THEN AND=31 %ELSE AND=15
48118 @ 404808:                  LINE   8087 "regression-compile-tmp/imp918s.imp"
48119 @ 404846:                  PUSH   CONTROL
48120 @ 404849:                  PUSHI  #0xfffe1610
48121 @ 404854:                  JUMPIF # L_0004
48122 @ 404858:                  PUSH   AND
48123 @ 404861:                  PUSHI  #0x0000001f
48124 @ 404866:                  ASSVAL
48125 @ 404867:                  GOTO   L_0003
48126 @ 404870:                  LOCATE L_0004
48127 @ 404873:                  PUSH   AND
48128 @ 404876:                  PUSHI  #0x0000000f
48129 @ 404881:                  ASSVAL
48130 @ 404882:                  LOCATE L_0003

  8088           AD=ADDR(CONTROL);  LAST=-1;  LAT=CA
48131 @ 404885:                  LINE   8088 "regression-compile-tmp/imp918s.imp"
48132 @ 404923:                  PUSH   AD
48133 @ 404926:                  PUSH   ADDR
48134 @ 404929:                  PUSH   CONTROL
48135 @ 404932:                  ASSPAR
48136 @ 404933:                  CALL  
48137 @ 404934:                  ASSVAL
48138 @ 404935:                  LINE   8088 "regression-compile-tmp/imp918s.imp"
48139 @ 404973:                  PUSH   LAST
48140 @ 404976:                  PUSHI  #0x00000001
48141 @ 404981:                  NEGATE
48142 @ 404982:                  ASSVAL
48143 @ 404983:                  LINE   8088 "regression-compile-tmp/imp918s.imp"
48144 @ 405021:                  PUSH   LAT
48145 @ 405024:                  PUSH   CA
48146 @ 405027:                  ASSVAL

  8089           %CYCLE J=0, 1, 1
48147 @ 405028:                  LINE   8089 "regression-compile-tmp/imp918s.imp"
48148 @ 405066:                  PUSH   J
48149 @ 405069:                  PUSHI  #0x00000001
48150 @ 405074:                  PUSHI  #0x00000001
48151 @ 405079:                  PUSHI  #0x00000000
48152 @ 405084:                  FOR    L_0003

  8090              %CYCLE K=BYTE INTEGER(AD+2), SHORT INTEGER(AD),  %C
  8091                 BYTE INTEGER(AD+3)
48153 @ 405087:                  LINE   8090 "regression-compile-tmp/imp918s.imp"
48154 @ 405125:                  PUSH   K
48155 @ 405128:                  PUSH   SHORTINTEGER
48156 @ 405131:                  PUSH   AD
48157 @ 405134:                  ASSPAR
48158 @ 405135:                  CALL  
48159 @ 405136:                  PUSH   BYTEINTEGER
48160 @ 405139:                  PUSH   AD
48161 @ 405142:                  PUSHI  #0x00000003
48162 @ 405147:                  ADD   
48163 @ 405148:                  ASSPAR
48164 @ 405149:                  CALL  
48165 @ 405150:                  PUSH   BYTEINTEGER
48166 @ 405153:                  PUSH   AD
48167 @ 405156:                  PUSHI  #0x00000002
48168 @ 405161:                  ADD   
48169 @ 405162:                  ASSPAR
48170 @ 405163:                  CALL  
48171 @ 405164:                  FOR    L_0006

  8092                 I=K&AND
48172 @ 405167:                  LINE   8092 "regression-compile-tmp/imp918s.imp"
48173 @ 405205:                  PUSH   I
48174 @ 405208:                  PUSH   K
48175 @ 405211:                  PUSH   AND
48176 @ 405214:                  AND   
48177 @ 405215:                  ASSVAL

  8093                 BOOT OUT(I) %IF REGISTER(I)=1 %AND J>0
48178 @ 405216:                  LINE   8093 "regression-compile-tmp/imp918s.imp"
48179 @ 405254:                  PUSH   REGISTER
48180 @ 405257:                  PUSH   I
48181 @ 405260:                  ACCESS
48182 @ 405261:                  PUSHI  #0x00000001
48183 @ 405266:                  JUMPIF # L_000a
48184 @ 405270:                  PUSH   J
48185 @ 405273:                  PUSHI  #0x00000000
48186 @ 405278:                  JUMPIF <= L_000a
48187 @ 405282:                  PUSH   BOOTOUT
48188 @ 405285:                  PUSH   I
48189 @ 405288:                  ASSPAR
48190 @ 405289:                  CALL  
48191 @ 405290:                  LOCATE L_000a

  8094                 %IF REGISTER(I)=0 %THEN %START
48192 @ 405293:                  LINE   8094 "regression-compile-tmp/imp918s.imp"
48193 @ 405331:                  PUSH   REGISTER
48194 @ 405334:                  PUSH   I
48195 @ 405337:                  ACCESS
48196 @ 405338:                  PUSHI  #0x00000000
48197 @ 405343:                  JUMPIF # L_000a

  8095                    ->FOUND %IF GRUSE(I)<=1 %OR J>0
48198 @ 405347:                  LINE   8095 "regression-compile-tmp/imp918s.imp"
48199 @ 405385:                  PUSH   GRUSE
48200 @ 405388:                  PUSH   I
48201 @ 405391:                  ACCESS
48202 @ 405392:                  PUSHI  #0x00000001
48203 @ 405397:                  JUMPIF <= L_000e
48204 @ 405401:                  PUSH   J
48205 @ 405404:                  PUSHI  #0x00000000
48206 @ 405409:                  JUMPIF <= L_000d
48207 @ 405413:                  LOCATE L_000e
48208 @ 405416:                  JUMP   L_020c
48209 @ 405419:                  LOCATE L_000d

  8096                    %IF GRAT(I)<LAT %THEN  LAST=I %AND LAT=GRAT(I)
48210 @ 405422:                  LINE   8096 "regression-compile-tmp/imp918s.imp"
48211 @ 405460:                  PUSH   GRAT
48212 @ 405463:                  PUSH   I
48213 @ 405466:                  ACCESS
48214 @ 405467:                  PUSH   LAT
48215 @ 405470:                  JUMPIF >= L_000d
48216 @ 405474:                  PUSH   LAST
48217 @ 405477:                  PUSH   I
48218 @ 405480:                  ASSVAL
48219 @ 405481:                  PUSH   LAT
48220 @ 405484:                  PUSH   GRAT
48221 @ 405487:                  PUSH   I
48222 @ 405490:                  ACCESS
48223 @ 405491:                  ASSVAL
48224 @ 405492:                  LOCATE L_000d

  8097                 %FINISH
48225 @ 405495:                  LINE   8097 "regression-compile-tmp/imp918s.imp"
48226 @ 405533:                  LOCATE L_000a

  8098              %REPEAT
48227 @ 405536:                  LINE   8098 "regression-compile-tmp/imp918s.imp"
48228 @ 405574:                  REPEAT L_0006
48229 @ 405577:                  LOCATE L_0007

  8099              I=LAST
48230 @ 405580:                  LINE   8099 "regression-compile-tmp/imp918s.imp"
48231 @ 405618:                  PUSH   I
48232 @ 405621:                  PUSH   LAST
48233 @ 405624:                  ASSVAL

  8100              %IF J=0 %AND LAST>0 %THEN ->FOUND
48234 @ 405625:                  LINE   8100 "regression-compile-tmp/imp918s.imp"
48235 @ 405663:                  PUSH   J
48236 @ 405666:                  PUSHI  #0x00000000
48237 @ 405671:                  JUMPIF # L_0007
48238 @ 405675:                  PUSH   LAST
48239 @ 405678:                  PUSHI  #0x00000000
48240 @ 405683:                  JUMPIF <= L_0007
48241 @ 405687:                  JUMP   L_020c
48242 @ 405690:                  LOCATE L_0007

  8101           %REPEAT
48243 @ 405693:                  LINE   8101 "regression-compile-tmp/imp918s.imp"
48244 @ 405731:                  REPEAT L_0003
48245 @ 405734:                  LOCATE L_0004

  8102           %IF CONTROL=CLMABL %THEN I=1 %ELSE ABORT
48246 @ 405737:                  LINE   8102 "regression-compile-tmp/imp918s.imp"
48247 @ 405775:                  PUSH   CONTROL
48248 @ 405778:                  PUSHI  #0x0001050e
48249 @ 405783:                  JUMPIF # L_0004
48250 @ 405787:                  PUSH   I
48251 @ 405790:                  PUSHI  #0x00000001
48252 @ 405795:                  ASSVAL
48253 @ 405796:                  GOTO   L_0003
48254 @ 405799:                  LOCATE L_0004
48255 @ 405802:                  PUSH   ABORT
48256 @ 405805:                  CALL  
48257 @ 405806:                  LOCATE L_0003

  8103  FOUND:   REG=I&15
48258 @ 405809:                  LINE   8103 "regression-compile-tmp/imp918s.imp"
48259 @ 405847:                  LABEL  L_020c
48260 @ 405850:                  LINE   8103 "regression-compile-tmp/imp918s.imp"
48261 @ 405888:                  PUSH   REG
48262 @ 405891:                  PUSH   I
48263 @ 405894:                  PUSHI  #0x0000000f
48264 @ 405899:                  AND   
48265 @ 405900:                  ASSVAL

  8104           %IF CONTROL=SAFE %THEN CYC BITS=CYCBITS!128
  8105                                          ! SAFE REG REQD
48266 @ 405901:                  LINE   8104 "regression-compile-tmp/imp918s.imp"
48267 @ 405939:                  PUSH   CONTROL
48268 @ 405942:                  PUSHI  #0xffff0e04
48269 @ 405947:                  JUMPIF # L_0004
48270 @ 405951:                  PUSH   CYCBITS
48271 @ 405954:                  PUSH   CYCBITS
48272 @ 405957:                  PUSHI  #0x00000080
48273 @ 405962:                  OR    
48274 @ 405963:                  ASSVAL
48275 @ 405964:                  LOCATE L_0004

  8106  %END
48276 @ 405967:                  LINE   8106 "regression-compile-tmp/imp918s.imp"
48277 @ 406005:               END    _lev0id0_CSS_FINDREG {lev=3 --> 2}

  8107  %ROUTINE CLAIM(%INTEGER CONTROL, %INTEGERNAME REG)
  8108  {%SHORTROUTINE}
48278 @ 406006:               LINE   8107 "regression-compile-tmp/imp918s.imp"
48279 @ 406044:               DEF    CLAIM (_lev0id0_CSS_CLAIM) p1=V_01ae 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
48280 @ 406061:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
48281 @ 406062:                     DEF    CONTROL p1=V_0203 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
48282 @ 406081:                     DEF    REG p1=V_0204 a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
48283 @ 406096:                  FINISH ) {lev=3}

  8109  %INTEGER I
48284 @ 406097:                  LINE   8109 "regression-compile-tmp/imp918s.imp"
48285 @ 406135:                  DEF    I p1=V_0205 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

  8110           FIND REG(CONTROL, I)
48286 @ 406148:                  LINE   8110 "regression-compile-tmp/imp918s.imp"
48287 @ 406186:                  PUSH   FINDREG
48288 @ 406189:                  PUSH   CONTROL
48289 @ 406192:                  ASSPAR
48290 @ 406193:                  PUSH   I
48291 @ 406196:                  ASSPAR
48292 @ 406197:                  CALL  

  8111           %IF CONTROL=FR0 %THEN I=I+16
48293 @ 406198:                  LINE   8111 "regression-compile-tmp/imp918s.imp"
48294 @ 406236:                  PUSH   CONTROL
48295 @ 406239:                  PUSHI  #0xfffe1610
48296 @ 406244:                  JUMPIF # L_0004
48297 @ 406248:                  PUSH   I
48298 @ 406251:                  PUSH   I
48299 @ 406254:                  PUSHI  #0x00000010
48300 @ 406259:                  ADD   
48301 @ 406260:                  ASSVAL
48302 @ 406261:                  LOCATE L_0004

  8112           REGISTER(I)=1
48303 @ 406264:                  LINE   8112 "regression-compile-tmp/imp918s.imp"
48304 @ 406302:                  PUSH   REGISTER
48305 @ 406305:                  PUSH   I
48306 @ 406308:                  ACCESS
48307 @ 406309:                  PUSHI  #0x00000001
48308 @ 406314:                  ASSVAL

  8113           REG=I&15
48309 @ 406315:                  LINE   8113 "regression-compile-tmp/imp918s.imp"
48310 @ 406353:                  PUSH   REG
48311 @ 406356:                  PUSH   I
48312 @ 406359:                  PUSHI  #0x0000000f
48313 @ 406364:                  AND   
48314 @ 406365:                  ASSVAL

  8114  %END
48315 @ 406366:                  LINE   8114 "regression-compile-tmp/imp918s.imp"
48316 @ 406404:               END    _lev0id0_CSS_CLAIM {lev=3 --> 2}

  8115  %ROUTINE CLAIM THIS REG(%INTEGER REG)
  8116  {%SHORTROUTINE}
  8117  !***********************************************************************
  8118  !*       CLAIMS THE REGISTER AND PRESERVES CONTENTS IF                 *
  8119  !*       THE REGISTER IS ALREADY CLAIMED                               *
  8120  !***********************************************************************
48317 @ 406405:               LINE   8115 "regression-compile-tmp/imp918s.imp"
48318 @ 406443:               DEF    CLAIMTHISREG (_lev0id0_CSS_CLAIMTHISREG) p1=V_01ad 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
48319 @ 406467:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
48320 @ 406468:                     DEF    REG p1=V_0203 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
48321 @ 406483:                  FINISH ) {lev=3}

  8121           BOOT OUT(REG) %IF REGISTER(REG)=1
48322 @ 406484:                  LINE   8121 "regression-compile-tmp/imp918s.imp"
48323 @ 406522:                  PUSH   REGISTER
48324 @ 406525:                  PUSH   REG
48325 @ 406528:                  ACCESS
48326 @ 406529:                  PUSHI  #0x00000001
48327 @ 406534:                  JUMPIF # L_0004
48328 @ 406538:                  PUSH   BOOTOUT
48329 @ 406541:                  PUSH   REG
48330 @ 406544:                  ASSPAR
48331 @ 406545:                  CALL  
48332 @ 406546:                  LOCATE L_0004

  8122           %IF REGISTER(REG)#0 %THEN ABORT
48333 @ 406549:                  LINE   8122 "regression-compile-tmp/imp918s.imp"
48334 @ 406587:                  PUSH   REGISTER
48335 @ 406590:                  PUSH   REG
48336 @ 406593:                  ACCESS
48337 @ 406594:                  PUSHI  #0x00000000
48338 @ 406599:                  JUMPIF = L_0004
48339 @ 406603:                  PUSH   ABORT
48340 @ 406606:                  CALL  
48341 @ 406607:                  LOCATE L_0004

  8123           REGISTER(REG)=1
48342 @ 406610:                  LINE   8123 "regression-compile-tmp/imp918s.imp"
48343 @ 406648:                  PUSH   REGISTER
48344 @ 406651:                  PUSH   REG
48345 @ 406654:                  ACCESS
48346 @ 406655:                  PUSHI  #0x00000001
48347 @ 406660:                  ASSVAL

  8124  %END
48348 @ 406661:                  LINE   8124 "regression-compile-tmp/imp918s.imp"
48349 @ 406699:               END    _lev0id0_CSS_CLAIMTHISREG {lev=3 --> 2}

  8125  %ROUTINE FIND USE(%INTEGERNAME REG, %INTEGER TYPE, USE, INF)
48350 @ 406700:               LINE   8125 "regression-compile-tmp/imp918s.imp"
48351 @ 406738:               DEF    FINDUSE (_lev0id0_CSS_FINDUSE) p1=V_01ac 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
48352 @ 406757:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
48353 @ 406758:                     DEF    REG p1=V_0203 a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
48354 @ 406773:                     DEF    TYPE p1=V_0204 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
48355 @ 406789:                     DEF    USE p1=V_0205 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
48356 @ 406804:                     DEF    INF p1=V_0206 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
48357 @ 406819:                  FINISH ) {lev=3}

  8126  %INTEGER I, L, U, J
48358 @ 406820:                  LINE   8126 "regression-compile-tmp/imp918s.imp"
48359 @ 406858:                  DEF    I p1=V_0207 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
48360 @ 406871:                  DEF    L p1=V_0208 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
48361 @ 406884:                  DEF    U p1=V_0209 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
48362 @ 406897:                  DEF    J p1=V_020a 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

  8127  %CONSTINTEGERARRAY FMAP(1:16)=4,8,12,16,20,24,28,32,56,60,0,
  8128                                 48,64,72,80,88;
48363 @ 406910:                  LINE   8127 "regression-compile-tmp/imp918s.imp"
48364 @ 406948:                  PUSHI  #0x00000001
48365 @ 406953:                  PUSHI  #0x00000010
48366 @ 406958:                  BOUNDS
48367 @ 406959:                  DEF    FMAP p1=V_020b 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
48368 @ 406975:                  PUSHI  #0x00000004
48369 @ 406980:                  INIT   1
48370 @ 406983:                  PUSHI  #0x00000008
48371 @ 406988:                  INIT   1
48372 @ 406991:                  PUSHI  #0x0000000c
48373 @ 406996:                  INIT   1
48374 @ 406999:                  PUSHI  #0x00000010
48375 @ 407004:                  INIT   1
48376 @ 407007:                  PUSHI  #0x00000014
48377 @ 407012:                  INIT   1
48378 @ 407015:                  PUSHI  #0x00000018
48379 @ 407020:                  INIT   1
48380 @ 407023:                  PUSHI  #0x0000001c
48381 @ 407028:                  INIT   1
48382 @ 407031:                  PUSHI  #0x00000020
48383 @ 407036:                  INIT   1
48384 @ 407039:                  PUSHI  #0x00000038
48385 @ 407044:                  INIT   1
48386 @ 407047:                  PUSHI  #0x0000003c
48387 @ 407052:                  INIT   1
48388 @ 407055:                  PUSHI  #0x00000000
48389 @ 407060:                  INIT   1
48390 @ 407063:                  PUSHI  #0x00000030
48391 @ 407068:                  INIT   1
48392 @ 407071:                  PUSHI  #0x00000040
48393 @ 407076:                  INIT   1
48394 @ 407079:                  PUSHI  #0x00000048
48395 @ 407084:                  INIT   1
48396 @ 407087:                  PUSHI  #0x00000050
48397 @ 407092:                  INIT   1
48398 @ 407095:                  PUSHI  #0x00000058
48399 @ 407100:                  INIT   1

  8129           %IF TYPE=2 %THEN L=52 %AND U=64 %ELSE L=4 %AND U=48
  8130  !         %CYCLE J=L,1,U
  8131  !            I=FMAP(J)
  8132  !            %IF GRUSE(I)=USE %AND(GRINF(I)=INF%OR INF=-1) %THEN ->HIT
  8133  !         %REPEAT
  8134  !%if USE MC = 1 %start
  8135  !         *L_1,L; *LA_2,4;*L_3,U
  8136  !         *L_15,FMAP; *SR_0,0; *BCTR_0,0
  8137  !         *LM_4,5,USE
  8138  !AGN:     *L_14,0(1,15);                 ! I=FMAP(J)*4
  8139  !         *C_4,GRUSE+16(14); *BC_7,<REP>
  8140  !         *C_5,GRINF+16(14); *BC_8,<HIT>
  8141  !         *CR_0,5; *BC_8,<HIT>
  8142  !REP:     *BXLE_1,2,<AGN>
  8143  !%finish
48400 @ 407103:                  LINE   8129 "regression-compile-tmp/imp918s.imp"
48401 @ 407141:                  PUSH   TYPE
48402 @ 407144:                  PUSHI  #0x00000002
48403 @ 407149:                  JUMPIF # L_0004
48404 @ 407153:                  PUSH   L
48405 @ 407156:                  PUSHI  #0x00000034
48406 @ 407161:                  ASSVAL
48407 @ 407162:                  PUSH   U
48408 @ 407165:                  PUSHI  #0x00000040
48409 @ 407170:                  ASSVAL
48410 @ 407171:                  GOTO   L_0003
48411 @ 407174:                  LOCATE L_0004
48412 @ 407177:                  PUSH   L
48413 @ 407180:                  PUSHI  #0x00000004
48414 @ 407185:                  ASSVAL
48415 @ 407186:                  PUSH   U
48416 @ 407189:                  PUSHI  #0x00000030
48417 @ 407194:                  ASSVAL
48418 @ 407195:                  LOCATE L_0003

  8144           REG=-1
48419 @ 407198:                  LINE   8144 "regression-compile-tmp/imp918s.imp"
48420 @ 407236:                  PUSH   REG
48421 @ 407239:                  PUSHI  #0x00000001
48422 @ 407244:                  NEGATE
48423 @ 407245:                  ASSVAL

  8145           %RETURN
48424 @ 407246:                  LINE   8145 "regression-compile-tmp/imp918s.imp"
48425 @ 407284:                  RETURN

  8146  HIT:
  8147  !         GRAT(I)=CA
  8148  !         REG=I
  8149  !%if USE MC = 1 %start
  8150  !         *L_0,CA; *ST_0,GRAT+16(14)
  8151  !         *SRL_14,2; *L_1,REG; *ST_14,0(1)
  8152  !%finish
48426 @ 407285:                  LINE   8146 "regression-compile-tmp/imp918s.imp"
48427 @ 407323:                  LABEL  L_020c

  8153  %END
48428 @ 407326:                  LINE   8153 "regression-compile-tmp/imp918s.imp"
48429 @ 407364:               END    _lev0id0_CSS_FINDUSE {lev=3 --> 2}

  8154  %ROUTINE FIND SEQ(%INTEGERNAME ONE, TWO)
  8155  {%SHORTROUTINE}
  8156  !***********************************************************************
  8157  !*       FINDS TWO REGISTERS FOR LM OR STM THAT ARE ADJACENT           *
  8158  !*       ALLOWING FOR WRAP AROUND. NOT USED VERY MUCH SO IS FAIRLY     *
  8159  !*       PRIMITIVE COMPARED TO 'FIND REG'                              *
  8160  !***********************************************************************
48430 @ 407365:               LINE   8154 "regression-compile-tmp/imp918s.imp"
48431 @ 407403:               DEF    FINDSEQ (_lev0id0_CSS_FINDSEQ) p1=V_01b2 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
48432 @ 407422:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
48433 @ 407423:                     DEF    ONE p1=V_0203 a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
48434 @ 407438:                     DEF    TWO p1=V_0204 a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
48435 @ 407453:                  FINISH ) {lev=3}

  8161  %INTEGER J, P1, P2, K
48436 @ 407454:                  LINE   8161 "regression-compile-tmp/imp918s.imp"
48437 @ 407492:                  DEF    J p1=V_0205 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
48438 @ 407505:                  DEF    P1 p1=V_0206 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
48439 @ 407519:                  DEF    P2 p1=V_0207 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
48440 @ 407533:                  DEF    K p1=V_0208 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

  8162           %CYCLE K=0, 1, 1
48441 @ 407546:                  LINE   8162 "regression-compile-tmp/imp918s.imp"
48442 @ 407584:                  PUSH   K
48443 @ 407587:                  PUSHI  #0x00000001
48444 @ 407592:                  PUSHI  #0x00000001
48445 @ 407597:                  PUSHI  #0x00000000
48446 @ 407602:                  FOR    L_0003

  8163              %CYCLE J=14, 1, RBASE+31;   ! TWO PASSES THROUGH GRS
48447 @ 407605:                  LINE   8163 "regression-compile-tmp/imp918s.imp"
48448 @ 407643:                  PUSH   J
48449 @ 407646:                  PUSHI  #0x00000001
48450 @ 407651:                  PUSH   RBASE
48451 @ 407654:                  PUSHI  #0x0000001f
48452 @ 407659:                  ADD   
48453 @ 407660:                  PUSHI  #0x0000000e
48454 @ 407665:                  FOR    L_0006

  8164                 P1=J&15;  P2=(J+1)&15
48455 @ 407668:                  LINE   8164 "regression-compile-tmp/imp918s.imp"
48456 @ 407706:                  PUSH   P1
48457 @ 407709:                  PUSH   J
48458 @ 407712:                  PUSHI  #0x0000000f
48459 @ 407717:                  AND   
48460 @ 407718:                  ASSVAL
48461 @ 407719:                  LINE   8164 "regression-compile-tmp/imp918s.imp"
48462 @ 407757:                  PUSH   P2
48463 @ 407760:                  PUSH   J
48464 @ 407763:                  PUSHI  #0x00000001
48465 @ 407768:                  ADD   
48466 @ 407769:                  PUSHI  #0x0000000f
48467 @ 407774:                  AND   
48468 @ 407775:                  ASSVAL

  8165                 ->FOUND %IF REGISTER(P1)=0 %AND REGISTER(P2)=0 %C
  8166                    %AND (J>=30 %OR GRUSE(P1)<=1>=GRUSE(P2))
48469 @ 407776:                  LINE   8165 "regression-compile-tmp/imp918s.imp"
48470 @ 407814:                  PUSH   REGISTER
48471 @ 407817:                  PUSH   P1
48472 @ 407820:                  ACCESS
48473 @ 407821:                  PUSHI  #0x00000000
48474 @ 407826:                  JUMPIF # L_000a
48475 @ 407830:                  PUSH   REGISTER
48476 @ 407833:                  PUSH   P2
48477 @ 407836:                  ACCESS
48478 @ 407837:                  PUSHI  #0x00000000
48479 @ 407842:                  JUMPIF # L_000a
48480 @ 407846:                  PUSH   J
48481 @ 407849:                  PUSHI  #0x0000001e
48482 @ 407854:                  JUMPIF >= L_000b
48483 @ 407858:                  PUSH   GRUSE
48484 @ 407861:                  PUSH   P1
48485 @ 407864:                  ACCESS
48486 @ 407865:                  PUSHI  #0x00000001
48487 @ 407870:                  JUMPIFD > L_000a
48488 @ 407874:                  PUSH   GRUSE
48489 @ 407877:                  PUSH   P2
48490 @ 407880:                  ACCESS
48491 @ 407881:                  JUMPIF < L_000a
48492 @ 407885:                  LOCATE L_000b
48493 @ 407888:                  JUMP   L_0209
48494 @ 407891:                  LOCATE L_000a

  8167              %REPEAT
48495 @ 407894:                  LINE   8167 "regression-compile-tmp/imp918s.imp"
48496 @ 407932:                  REPEAT L_0006
48497 @ 407935:                  LOCATE L_0007

  8168              SAVEIRS(4)
48498 @ 407938:                  LINE   8168 "regression-compile-tmp/imp918s.imp"
48499 @ 407976:                  PUSH   SAVEIRS
48500 @ 407979:                  PUSHI  #0x00000004
48501 @ 407984:                  ASSPAR
48502 @ 407985:                  CALL  

  8169           %REPEAT
48503 @ 407986:                  LINE   8169 "regression-compile-tmp/imp918s.imp"
48504 @ 408024:                  REPEAT L_0003
48505 @ 408027:                  LOCATE L_0004

  8170           ABORT;                         ! ALMOST INCONCEIVABLE!
48506 @ 408030:                  LINE   8170 "regression-compile-tmp/imp918s.imp"
48507 @ 408068:                  PUSH   ABORT
48508 @ 408071:                  CALL  

  8171  FOUND:   ONE=P1;  TWO=P2
48509 @ 408072:                  LINE   8171 "regression-compile-tmp/imp918s.imp"
48510 @ 408110:                  LABEL  L_0209
48511 @ 408113:                  LINE   8171 "regression-compile-tmp/imp918s.imp"
48512 @ 408151:                  PUSH   ONE
48513 @ 408154:                  PUSH   P1
48514 @ 408157:                  ASSVAL
48515 @ 408158:                  LINE   8171 "regression-compile-tmp/imp918s.imp"
48516 @ 408196:                  PUSH   TWO
48517 @ 408199:                  PUSH   P2
48518 @ 408202:                  ASSVAL

  8172  %END
  8173  !******END OF REGISTER ALLOCATING ROUTINES*******
  8174  !
  8175  !
  8176  !***********************************************************************
  8177  !*           START OF TAG HANDLING ROUTINES                            *
  8178  !*       TAGS TAKE THE FORM                                            *
  8179  !*       S1=PTYPE<<16!USEBITS<<12!LEVEL<<8!BASEREG<<14!DIMENSN         *
  8180  !*       S2=SECONDARY DISP<<16!ITEM SIZE                               *
  8181  !*       S3=PRIMARY DISP<<16!FORM                                      *
  8182  !*       WHERE:-                                                       *
  8183  !*       PTYPE=ROUT,NAM,ARR,PREC & TYPE PACKED INTO 16 BITS            *
  8184  !*       USEBITS(L-R)= ANY USE,STORED,ADDRESSED,READ                   *
  8185  !*       LEVEL=TEXTUAL LEVEL OF DECLARATION                            *
  8186  !*       BASEREG & DIMENSN ARE OBVIOUS                                 *
  8187  !*                                                                     * 
  8188  !*       SNDARY DISP(SIGNED)= DISP OF A0 FROM LEVEL PTR                *
  8189  !*       PRMY DISP= POSITION OF ITEM OR ITS POINTER IN STACK FRAME     *
  8190  !*       FORM=POINTER TO FORMAT(RECORDS) OR VALUE (%CONSTS)            *
  8191  !***********************************************************************
  8192  !
48519 @ 408203:                  LINE   8172 "regression-compile-tmp/imp918s.imp"
48520 @ 408241:               END    _lev0id0_CSS_FINDSEQ {lev=3 --> 2}

  8193  %ROUTINE NOTE ASSMENT(%INTEGER REG, ASSOP, VAR)
  8194  {%SHORTROUTINE}
  8195  !***********************************************************************
  8196  !*       NOTES THE ASSIGNMENT TO SCALAR 'VAR'.  THIS INVOLVES REMOVING *
  8197  !*       OLD COPIES FROM REGISTERS TO AVOID CONFUSING OLD AND NEW VALUE*
  8198  !*       ASSOP =1 FOR'==',=2 FOR '=',=3 FOR '<-'                       *
  8199  !***********************************************************************
48521 @ 408242:               LINE   8193 "regression-compile-tmp/imp918s.imp"
48522 @ 408280:               DEF    NOTEASSMENT (_lev0id0_CSS_NOTEASSMENT) p1=V_01b6 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
48523 @ 408303:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
48524 @ 408304:                     DEF    REG p1=V_0203 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
48525 @ 408319:                     DEF    ASSOP p1=V_0204 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
48526 @ 408336:                     DEF    VAR p1=V_0205 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
48527 @ 408351:                  FINISH ) {lev=3}

  8200  %INTEGER I, J, K, L, U, AND, STEP, CCS
48528 @ 408352:                  LINE   8200 "regression-compile-tmp/imp918s.imp"
48529 @ 408390:                  DEF    I p1=V_0206 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
48530 @ 408403:                  DEF    J p1=V_0207 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
48531 @ 408416:                  DEF    K p1=V_0208 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
48532 @ 408429:                  DEF    L p1=V_0209 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
48533 @ 408442:                  DEF    U p1=V_020a 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
48534 @ 408455:                  DEF    AND p1=V_020b 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
48535 @ 408470:                  DEF    STEP p1=V_020c 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
48536 @ 408486:                  DEF    CCS p1=V_020d 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

  8201           %IF VAR=CUR CYC VAR %THEN CYC BITS=CYC BITS!32
48537 @ 408501:                  LINE   8201 "regression-compile-tmp/imp918s.imp"
48538 @ 408539:                  PUSH   VAR
48539 @ 408542:                  PUSH   CURCYCVAR
48540 @ 408545:                  JUMPIF # L_0004
48541 @ 408549:                  PUSH   CYCBITS
48542 @ 408552:                  PUSH   CYCBITS
48543 @ 408555:                  PUSHI  #0x00000020
48544 @ 408560:                  OR    
48545 @ 408561:                  ASSVAL
48546 @ 408562:                  LOCATE L_0004

  8202           K=TAGS(VAR);  L=14;  U=RBASE+15;  AND=15;  STEP=1
48547 @ 408565:                  LINE   8202 "regression-compile-tmp/imp918s.imp"
48548 @ 408603:                  PUSH   K
48549 @ 408606:                  PUSH   TAGS
48550 @ 408609:                  PUSH   VAR
48551 @ 408612:                  ACCESS
48552 @ 408613:                  ASSVAL
48553 @ 408614:                  LINE   8202 "regression-compile-tmp/imp918s.imp"
48554 @ 408652:                  PUSH   L
48555 @ 408655:                  PUSHI  #0x0000000e
48556 @ 408660:                  ASSVAL
48557 @ 408661:                  LINE   8202 "regression-compile-tmp/imp918s.imp"
48558 @ 408699:                  PUSH   U
48559 @ 408702:                  PUSH   RBASE
48560 @ 408705:                  PUSHI  #0x0000000f
48561 @ 408710:                  ADD   
48562 @ 408711:                  ASSVAL
48563 @ 408712:                  LINE   8202 "regression-compile-tmp/imp918s.imp"
48564 @ 408750:                  PUSH   AND
48565 @ 408753:                  PUSHI  #0x0000000f
48566 @ 408758:                  ASSVAL
48567 @ 408759:                  LINE   8202 "regression-compile-tmp/imp918s.imp"
48568 @ 408797:                  PUSH   STEP
48569 @ 408800:                  PUSHI  #0x00000001
48570 @ 408805:                  ASSVAL

  8203           %IF TYPE=2 %AND ASSOP#1 %THEN %START
48571 @ 408806:                  LINE   8203 "regression-compile-tmp/imp918s.imp"
48572 @ 408844:                  PUSH   TYPE
48573 @ 408847:                  PUSHI  #0x00000002
48574 @ 408852:                  JUMPIF # L_0004
48575 @ 408856:                  PUSH   ASSOP
48576 @ 408859:                  PUSHI  #0x00000001
48577 @ 408864:                  JUMPIF = L_0004

  8204              L=16;  U=22;  AND=31;  STEP=2;  REG=REG!16
48578 @ 408868:                  LINE   8204 "regression-compile-tmp/imp918s.imp"
48579 @ 408906:                  PUSH   L
48580 @ 408909:                  PUSHI  #0x00000010
48581 @ 408914:                  ASSVAL
48582 @ 408915:                  LINE   8204 "regression-compile-tmp/imp918s.imp"
48583 @ 408953:                  PUSH   U
48584 @ 408956:                  PUSHI  #0x00000016
48585 @ 408961:                  ASSVAL
48586 @ 408962:                  LINE   8204 "regression-compile-tmp/imp918s.imp"
48587 @ 409000:                  PUSH   AND
48588 @ 409003:                  PUSHI  #0x0000001f
48589 @ 409008:                  ASSVAL
48590 @ 409009:                  LINE   8204 "regression-compile-tmp/imp918s.imp"
48591 @ 409047:                  PUSH   STEP
48592 @ 409050:                  PUSHI  #0x00000002
48593 @ 409055:                  ASSVAL
48594 @ 409056:                  LINE   8204 "regression-compile-tmp/imp918s.imp"
48595 @ 409094:                  PUSH   REG
48596 @ 409097:                  PUSH   REG
48597 @ 409100:                  PUSHI  #0x00000010
48598 @ 409105:                  OR    
48599 @ 409106:                  ASSVAL

  8205           %FINISH
48600 @ 409107:                  LINE   8205 "regression-compile-tmp/imp918s.imp"
48601 @ 409145:                  LOCATE L_0004

  8206           %IF CCSTATE&255=REG %THEN CCS=CCSTATE %ELSE CCS=0
48602 @ 409148:                  LINE   8206 "regression-compile-tmp/imp918s.imp"
48603 @ 409186:                  PUSH   CCSTATE
48604 @ 409189:                  PUSHI  #0x000000ff
48605 @ 409194:                  AND   
48606 @ 409195:                  PUSH   REG
48607 @ 409198:                  JUMPIF # L_0004
48608 @ 409202:                  PUSH   CCS
48609 @ 409205:                  PUSH   CCSTATE
48610 @ 409208:                  ASSVAL
48611 @ 409209:                  GOTO   L_0003
48612 @ 409212:                  LOCATE L_0004
48613 @ 409215:                  PUSH   CCS
48614 @ 409218:                  PUSHI  #0x00000000
48615 @ 409223:                  ASSVAL
48616 @ 409224:                  LOCATE L_0003

  8207           %CYCLE I=L, STEP, U;  J=I&AND
48617 @ 409227:                  LINE   8207 "regression-compile-tmp/imp918s.imp"
48618 @ 409265:                  PUSH   I
48619 @ 409268:                  PUSH   STEP
48620 @ 409271:                  PUSH   U
48621 @ 409274:                  PUSH   L
48622 @ 409277:                  FOR    L_0003
48623 @ 409280:                  LINE   8207 "regression-compile-tmp/imp918s.imp"
48624 @ 409318:                  PUSH   J
48625 @ 409321:                  PUSH   I
48626 @ 409324:                  PUSH   AND
48627 @ 409327:                  AND   
48628 @ 409328:                  ASSVAL

  8208              FORGET(J) %C
  8209                 %IF K=GRINF(J)&X'FFFF' %AND REGISTER(J)=0 %AND (GRUSE( %C
  8210                 J)=3 %OR GRUSE(J)=9 %OR (GRUSE(J)=7 %AND ASSOP=1))
48629 @ 409329:                  LINE   8208 "regression-compile-tmp/imp918s.imp"
48630 @ 409367:                  PUSH   K
48631 @ 409370:                  PUSH   GRINF
48632 @ 409373:                  PUSH   J
48633 @ 409376:                  ACCESS
48634 @ 409377:                  PUSHI  #0x0000ffff
48635 @ 409382:                  AND   
48636 @ 409383:                  JUMPIF # L_0007
48637 @ 409387:                  PUSH   REGISTER
48638 @ 409390:                  PUSH   J
48639 @ 409393:                  ACCESS
48640 @ 409394:                  PUSHI  #0x00000000
48641 @ 409399:                  JUMPIF # L_0007
48642 @ 409403:                  PUSH   GRUSE
48643 @ 409406:                  PUSH   J
48644 @ 409409:                  ACCESS
48645 @ 409410:                  PUSHI  #0x00000003
48646 @ 409415:                  JUMPIF = L_0008
48647 @ 409419:                  PUSH   GRUSE
48648 @ 409422:                  PUSH   J
48649 @ 409425:                  ACCESS
48650 @ 409426:                  PUSHI  #0x00000009
48651 @ 409431:                  JUMPIF = L_0008
48652 @ 409435:                  PUSH   GRUSE
48653 @ 409438:                  PUSH   J
48654 @ 409441:                  ACCESS
48655 @ 409442:                  PUSHI  #0x00000007
48656 @ 409447:                  JUMPIF # L_0007
48657 @ 409451:                  PUSH   ASSOP
48658 @ 409454:                  PUSHI  #0x00000001
48659 @ 409459:                  JUMPIF # L_0007
48660 @ 409463:                  LOCATE L_0008
48661 @ 409466:                  PUSH   FORGET
48662 @ 409469:                  PUSH   J
48663 @ 409472:                  ASSPAR
48664 @ 409473:                  CALL  
48665 @ 409474:                  LOCATE L_0007

  8211           %REPEAT
48666 @ 409477:                  LINE   8211 "regression-compile-tmp/imp918s.imp"
48667 @ 409515:                  REPEAT L_0003
48668 @ 409518:                  LOCATE L_0004

  8212           ->Label99 %IF REG<0 %OR (GRUSE(REG)=2 %AND 0<=GRINF(REG)<=2)
48669 @ 409521:                  LINE   8212 "regression-compile-tmp/imp918s.imp"
48670 @ 409559:                  PUSH   REG
48671 @ 409562:                  PUSHI  #0x00000000
48672 @ 409567:                  JUMPIF < L_0005
48673 @ 409571:                  PUSH   GRUSE
48674 @ 409574:                  PUSH   REG
48675 @ 409577:                  ACCESS
48676 @ 409578:                  PUSHI  #0x00000002
48677 @ 409583:                  JUMPIF # L_0004
48678 @ 409587:                  PUSHI  #0x00000000
48679 @ 409592:                  PUSH   GRINF
48680 @ 409595:                  PUSH   REG
48681 @ 409598:                  ACCESS
48682 @ 409599:                  JUMPIFD > L_0004
48683 @ 409603:                  PUSHI  #0x00000002
48684 @ 409608:                  JUMPIF > L_0004
48685 @ 409612:                  LOCATE L_0005
48686 @ 409615:                  JUMP   L_020e
48687 @ 409618:                  LOCATE L_0004

  8213           ->Label99 %IF ASSOP=3 %OR REGISTER(REG)<0
48688 @ 409621:                  LINE   8213 "regression-compile-tmp/imp918s.imp"
48689 @ 409659:                  PUSH   ASSOP
48690 @ 409662:                  PUSHI  #0x00000003
48691 @ 409667:                  JUMPIF = L_0005
48692 @ 409671:                  PUSH   REGISTER
48693 @ 409674:                  PUSH   REG
48694 @ 409677:                  ACCESS
48695 @ 409678:                  PUSHI  #0x00000000
48696 @ 409683:                  JUMPIF >= L_0004
48697 @ 409687:                  LOCATE L_0005
48698 @ 409690:                  JUMP   L_020e
48699 @ 409693:                  LOCATE L_0004

  8214           %IF ASSOP=1 %THEN J=7 %ELSE J=3
  8215  !         SET USE(REG, J, K)
48700 @ 409696:                  LINE   8214 "regression-compile-tmp/imp918s.imp"
48701 @ 409734:                  PUSH   ASSOP
48702 @ 409737:                  PUSHI  #0x00000001
48703 @ 409742:                  JUMPIF # L_0004
48704 @ 409746:                  PUSH   J
48705 @ 409749:                  PUSHI  #0x00000007
48706 @ 409754:                  ASSVAL
48707 @ 409755:                  GOTO   L_0003
48708 @ 409758:                  LOCATE L_0004
48709 @ 409761:                  PUSH   J
48710 @ 409764:                  PUSHI  #0x00000003
48711 @ 409769:                  ASSVAL
48712 @ 409770:                  LOCATE L_0003

  8216           GRUSE(REG)=J; GRINF(REG)=K; GRAT(REG)=CA
48713 @ 409773:                  LINE   8216 "regression-compile-tmp/imp918s.imp"
48714 @ 409811:                  PUSH   GRUSE
48715 @ 409814:                  PUSH   REG
48716 @ 409817:                  ACCESS
48717 @ 409818:                  PUSH   J
48718 @ 409821:                  ASSVAL
48719 @ 409822:                  LINE   8216 "regression-compile-tmp/imp918s.imp"
48720 @ 409860:                  PUSH   GRINF
48721 @ 409863:                  PUSH   REG
48722 @ 409866:                  ACCESS
48723 @ 409867:                  PUSH   K
48724 @ 409870:                  ASSVAL
48725 @ 409871:                  LINE   8216 "regression-compile-tmp/imp918s.imp"
48726 @ 409909:                  PUSH   GRAT
48727 @ 409912:                  PUSH   REG
48728 @ 409915:                  ACCESS
48729 @ 409916:                  PUSH   CA
48730 @ 409919:                  ASSVAL

  8217           CCSTATE=CCS %UNLESS CCS=0
48731 @ 409920:                  LINE   8217 "regression-compile-tmp/imp918s.imp"
48732 @ 409958:                  PUSH   CCS
48733 @ 409961:                  PUSHI  #0x00000000
48734 @ 409966:                  JUMPIF = L_0004
48735 @ 409970:                  PUSH   CCSTATE
48736 @ 409973:                  PUSH   CCS
48737 @ 409976:                  ASSVAL
48738 @ 409977:                  LOCATE L_0004

  8218  Label99: %END
48739 @ 409980:                  LINE   8218 "regression-compile-tmp/imp918s.imp"
48740 @ 410018:                  LABEL  L_020e
48741 @ 410021:                  LINE   8218 "regression-compile-tmp/imp918s.imp"
48742 @ 410059:               END    _lev0id0_CSS_NOTEASSMENT {lev=3 --> 2}

  8219  %ROUTINE STORE TAG(%INTEGER KK, SLINK)
48743 @ 410060:               LINE   8219 "regression-compile-tmp/imp918s.imp"
48744 @ 410098:               DEF    STORETAG (_lev0id0_CSS_STORETAG) p1=V_0199 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
48745 @ 410118:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
48746 @ 410119:                     DEF    KK p1=V_0203 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
48747 @ 410133:                     DEF    SLINK p1=V_0204 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
48748 @ 410150:                  FINISH ) {lev=3}

  8220  %INTEGER Q
48749 @ 410151:                  LINE   8220 "regression-compile-tmp/imp918s.imp"
48750 @ 410189:                  DEF    Q p1=V_0205 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

  8221           Q=PTYPE<<16!LEVEL<<8!RBASE<<4!J
48751 @ 410202:                  LINE   8221 "regression-compile-tmp/imp918s.imp"
48752 @ 410240:                  PUSH   Q
48753 @ 410243:                  PUSH   PTYPE
48754 @ 410246:                  PUSHI  #0x00000010
48755 @ 410251:                  LSH   
48756 @ 410252:                  PUSH   LEVEL
48757 @ 410255:                  PUSHI  #0x00000008
48758 @ 410260:                  LSH   
48759 @ 410261:                  OR    
48760 @ 410262:                  PUSH   RBASE
48761 @ 410265:                  PUSHI  #0x00000004
48762 @ 410270:                  LSH   
48763 @ 410271:                  OR    
48764 @ 410272:                  PUSH   J
48765 @ 410275:                  OR    
48766 @ 410276:                  ASSVAL

  8222           SLINK=SLINK<<16!KFORM&X'FFFF'
48767 @ 410277:                  LINE   8222 "regression-compile-tmp/imp918s.imp"
48768 @ 410315:                  PUSH   SLINK
48769 @ 410318:                  PUSH   SLINK
48770 @ 410321:                  PUSHI  #0x00000010
48771 @ 410326:                  LSH   
48772 @ 410327:                  PUSH   KFORM
48773 @ 410330:                  PUSHI  #0x0000ffff
48774 @ 410335:                  AND   
48775 @ 410336:                  OR    
48776 @ 410337:                  ASSVAL

  8223           PUSH123(TAGS(KK), Q, INTEGER(ADDR(SNDISP)), SLINK)
48777 @ 410338:                  LINE   8223 "regression-compile-tmp/imp918s.imp"
48778 @ 410376:                  PUSH   PUSH123
48779 @ 410379:                  PUSH   TAGS
48780 @ 410382:                  PUSH   KK
48781 @ 410385:                  ACCESS
48782 @ 410386:                  ASSPAR
48783 @ 410387:                  PUSH   Q
48784 @ 410390:                  ASSPAR
48785 @ 410391:                  PUSH   INTEGER
48786 @ 410394:                  PUSH   ADDR
48787 @ 410397:                  PUSH   SNDISP
48788 @ 410400:                  ASSPAR
48789 @ 410401:                  CALL  
48790 @ 410402:                  ASSPAR
48791 @ 410403:                  CALL  
48792 @ 410404:                  ASSPAR
48793 @ 410405:                  PUSH   SLINK
48794 @ 410408:                  ASSPAR
48795 @ 410409:                  CALL  

  8224           SHORTINTEGER(ADDR(ASLIST(TAGS(KK)))+12)=NAMES(LEVEL)
48796 @ 410410:                  LINE   8224 "regression-compile-tmp/imp918s.imp"
48797 @ 410448:                  PUSH   SHORTINTEGER
48798 @ 410451:                  PUSH   ADDR
48799 @ 410454:                  PUSH   ASLIST
48800 @ 410457:                  PUSH   TAGS
48801 @ 410460:                  PUSH   KK
48802 @ 410463:                  ACCESS
48803 @ 410464:                  ACCESS
48804 @ 410465:                  ASSPAR
48805 @ 410466:                  CALL  
48806 @ 410467:                  PUSHI  #0x0000000c
48807 @ 410472:                  ADD   
48808 @ 410473:                  ASSPAR
48809 @ 410474:                  CALL  
48810 @ 410475:                  PUSH   NAMES
48811 @ 410478:                  PUSH   LEVEL
48812 @ 410481:                  ACCESS
48813 @ 410482:                  ASSVAL

  8225           NAMES(LEVEL)=KK
48814 @ 410483:                  LINE   8225 "regression-compile-tmp/imp918s.imp"
48815 @ 410521:                  PUSH   NAMES
48816 @ 410524:                  PUSH   LEVEL
48817 @ 410527:                  ACCESS
48818 @ 410528:                  PUSH   KK
48819 @ 410531:                  ASSVAL

  8226  %END
48820 @ 410532:                  LINE   8226 "regression-compile-tmp/imp918s.imp"
48821 @ 410570:               END    _lev0id0_CSS_STORETAG {lev=3 --> 2}

  8227  %ROUTINE TEST APP(%INTEGERNAME NUM)
  8228  {%SHORTROUTINE}
  8229  !***********************************************************************
  8230  !*       THIS ROUTINE COUNTS THE NUMBER OF ACTUAL PARAMETERS           *
  8231  !*       WHICH IT RETURNS IN NUM.                                      *
  8232  !***********************************************************************
48822 @ 410571:               LINE   8227 "regression-compile-tmp/imp918s.imp"
48823 @ 410609:               DEF    TESTAPP (_lev0id0_CSS_TESTAPP) p1=V_017b 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
48824 @ 410628:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
48825 @ 410629:                     DEF    NUM p1=V_0203 a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
48826 @ 410644:                  FINISH ) {lev=3}

  8233  %INTEGER PP, Q
48827 @ 410645:                  LINE   8233 "regression-compile-tmp/imp918s.imp"
48828 @ 410683:                  DEF    PP p1=V_0204 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
48829 @ 410697:                  DEF    Q p1=V_0205 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

  8234           Q=0;  PP=P;  P=P+1;            ! P ON NAME AT ENTRY
48830 @ 410710:                  LINE   8234 "regression-compile-tmp/imp918s.imp"
48831 @ 410748:                  PUSH   Q
48832 @ 410751:                  PUSHI  #0x00000000
48833 @ 410756:                  ASSVAL
48834 @ 410757:                  LINE   8234 "regression-compile-tmp/imp918s.imp"
48835 @ 410795:                  PUSH   PP
48836 @ 410798:                  PUSH   P
48837 @ 410801:                  ASSVAL
48838 @ 410802:                  LINE   8234 "regression-compile-tmp/imp918s.imp"
48839 @ 410840:                  PUSH   P
48840 @ 410843:                  PUSH   P
48841 @ 410846:                  PUSHI  #0x00000001
48842 @ 410851:                  ADD   
48843 @ 410852:                  ASSVAL

  8235           %WHILE A(P)=1 %CYCLE;          ! NO (MORE) PARAMETERS
48844 @ 410853:                  LINE   8235 "regression-compile-tmp/imp918s.imp"
48845 @ 410891:                  LOCATE L_0003
48846 @ 410894:                  PUSH   A
48847 @ 410897:                  PUSH   P
48848 @ 410900:                  ACCESS
48849 @ 410901:                  PUSHI  #0x00000001
48850 @ 410906:                  JUMPIF # L_0004

  8236              P=P+1;  Q=Q+1
48851 @ 410910:                  LINE   8236 "regression-compile-tmp/imp918s.imp"
48852 @ 410948:                  PUSH   P
48853 @ 410951:                  PUSH   P
48854 @ 410954:                  PUSHI  #0x00000001
48855 @ 410959:                  ADD   
48856 @ 410960:                  ASSVAL
48857 @ 410961:                  LINE   8236 "regression-compile-tmp/imp918s.imp"
48858 @ 410999:                  PUSH   Q
48859 @ 411002:                  PUSH   Q
48860 @ 411005:                  PUSHI  #0x00000001
48861 @ 411010:                  ADD   
48862 @ 411011:                  ASSVAL

  8237              SKIP EXP
48863 @ 411012:                  LINE   8237 "regression-compile-tmp/imp918s.imp"
48864 @ 411050:                  PUSH   SKIPEXP
48865 @ 411053:                  CALL  

  8238           %REPEAT
48866 @ 411054:                  LINE   8238 "regression-compile-tmp/imp918s.imp"
48867 @ 411092:                  REPEAT L_0003
48868 @ 411095:                  LOCATE L_0004

  8239           P=PP;  NUM=Q
48869 @ 411098:                  LINE   8239 "regression-compile-tmp/imp918s.imp"
48870 @ 411136:                  PUSH   P
48871 @ 411139:                  PUSH   PP
48872 @ 411142:                  ASSVAL
48873 @ 411143:                  LINE   8239 "regression-compile-tmp/imp918s.imp"
48874 @ 411181:                  PUSH   NUM
48875 @ 411184:                  PUSH   Q
48876 @ 411187:                  ASSVAL

  8240  %END
48877 @ 411188:                  LINE   8240 "regression-compile-tmp/imp918s.imp"
48878 @ 411226:               END    _lev0id0_CSS_TESTAPP {lev=3 --> 2}

  8241  %ROUTINE COPY TAG(%INTEGER KK)
48879 @ 411227:               LINE   8241 "regression-compile-tmp/imp918s.imp"
48880 @ 411265:               DEF    COPYTAG (_lev0id0_CSS_COPYTAG) p1=V_018f 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
48881 @ 411284:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
48882 @ 411285:                     DEF    KK p1=V_0203 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
48883 @ 411299:                  FINISH ) {lev=3}

  8242  %LONGREAL WORK
48884 @ 411300:                  LINE   8242 "regression-compile-tmp/imp918s.imp"
48885 @ 411338:                  DEF    WORK p1=V_0204 a/tf=21 b/format=4 c/ostate=0  type=2 (real) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  8243           TCELL=TAGS(KK)
  8244  !%if USE MC = 1 %start
  8245  !         *XC_PTYPE(20),PTYPE
  8246  !         *L_1,TCELL
  8247  !         *LTR_1,1;  *BC_8,<NOTSET>
  8248  !         *A_1,ASLIST
  8249  !         *UNPK_WORK(5),2(3,1)
  8250  !         *LH_0,0(1,0)
  8251  !         *ST_0,PTYPE
  8252  !         *MVN_USEBITS+3(1),WORK
  8253  !         *MVN_OLDI+3(1),WORK+1
  8254  !         *MVN_I+3(1),WORK+2
  8255  !         *MVN_J+3(1),WORK+3
  8256  !         *OI_2(1),X'80';                ! SET USE BIT
  8257  !         *MVC_SNDISP(8),4(1)
  8258  !         *CVD_0,WORK
  8259  !         *UNPK_ROUT(5),WORK+5(3)
  8260  !         *NC_ROUT(5),MASK1
  8261  !%finish
48886 @ 411354:                  LINE   8243 "regression-compile-tmp/imp918s.imp"
48887 @ 411392:                  PUSH   TCELL
48888 @ 411395:                  PUSH   TAGS
48889 @ 411398:                  PUSH   KK
48890 @ 411401:                  ACCESS
48891 @ 411402:                  ASSVAL

  8262           %RETURN
  8263  !%if USE MC = 1 %start
48892 @ 411403:                  LINE   8262 "regression-compile-tmp/imp918s.imp"
48893 @ 411441:                  RETURN

  8264  NOTSET:
  8265  !         *MVI_PTYPE+3,7
  8266  !         *MVI_I,255
  8267  !         *MVC_I+1(11),I
  8268  !         *XC_ROUT(4),ROUT
  8269  !%finish
48894 @ 411442:                  LINE   8264 "regression-compile-tmp/imp918s.imp"
48895 @ 411480:                  LABEL  L_0205

  8270           TYPE=7
48896 @ 411483:                  LINE   8270 "regression-compile-tmp/imp918s.imp"
48897 @ 411521:                  PUSH   TYPE
48898 @ 411524:                  PUSHI  #0x00000007
48899 @ 411529:                  ASSVAL

  8271  %END
48900 @ 411530:                  LINE   8271 "regression-compile-tmp/imp918s.imp"
48901 @ 411568:               END    _lev0id0_CSS_COPYTAG {lev=3 --> 2}

  8272  %ROUTINE REDUCE TAG(%INTEGER MODE)
  8273  {%SHORTROUTINE}
  8274  !***********************************************************************
  8275  !*       AS COPY TAG FOR NAME AT A(P) EXCEPT:-                         *
  8276  !*       1) SPECIAL NAMES HAVE THEIR CORRECT PREC & TYPE SUBSTITUTED   *
  8277  !*       2) RECORD ELEMENTS OF SIMPLE RECORDS ARE REDUCED TO A         *
  8278  !*              SIMPLE BASE/OFFSET SITUATION.                          *
  8279  !***********************************************************************
48902 @ 411569:               LINE   8272 "regression-compile-tmp/imp918s.imp"
48903 @ 411607:               DEF    REDUCETAG (_lev0id0_CSS_REDUCETAG) p1=V_0190 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
48904 @ 411628:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
48905 @ 411629:                     DEF    MODE p1=V_0203 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
48906 @ 411645:                  FINISH ) {lev=3}

  8280  %INTEGER PTYPEP, QQ, PP, NAMP, JJ, RDISP, SUBS
48907 @ 411646:                  LINE   8280 "regression-compile-tmp/imp918s.imp"
48908 @ 411684:                  DEF    PTYPEP p1=V_0204 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
48909 @ 411702:                  DEF    QQ p1=V_0205 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
48910 @ 411716:                  DEF    PP p1=V_0206 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
48911 @ 411730:                  DEF    NAMP p1=V_0207 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
48912 @ 411746:                  DEF    JJ p1=V_0208 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
48913 @ 411760:                  DEF    RDISP p1=V_0209 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
48914 @ 411777:                  DEF    SUBS p1=V_020a 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

  8281           PP=P;  COPY TAG(A(P))
48915 @ 411793:                  LINE   8281 "regression-compile-tmp/imp918s.imp"
48916 @ 411831:                  PUSH   PP
48917 @ 411834:                  PUSH   P
48918 @ 411837:                  ASSVAL
48919 @ 411838:                  LINE   8281 "regression-compile-tmp/imp918s.imp"
48920 @ 411876:                  PUSH   COPYTAG
48921 @ 411879:                  PUSH   A
48922 @ 411882:                  PUSH   P
48923 @ 411885:                  ACCESS
48924 @ 411886:                  ASSPAR
48925 @ 411887:                  CALL  

  8282           %IF PTYPE=SNPT %THEN %START
48926 @ 411888:                  LINE   8282 "regression-compile-tmp/imp918s.imp"
48927 @ 411926:                  PUSH   PTYPE
48928 @ 411929:                  PUSHI  #0x00002716
48929 @ 411934:                  JUMPIF # L_0004

  8283              PTYPE=TSNAME(K); ! UNPACK
  8284  !%if USE MC = 1 %start
  8285  !            *L_1,PTYPE; *CVD_1,0(11)
  8286  !            *UNPK_ROUT(5),5(3,11)
  8287  !            *NC_ROUT(5),MASK1
  8288  !%finish
48930 @ 411938:                  LINE   8283 "regression-compile-tmp/imp918s.imp"
48931 @ 411976:                  PUSH   PTYPE
48932 @ 411979:                  PUSH   TSNAME
48933 @ 411982:                  PUSH   K
48934 @ 411985:                  ACCESS
48935 @ 411986:                  ASSVAL

  8289              ROUT=1
48936 @ 411987:                  LINE   8289 "regression-compile-tmp/imp918s.imp"
48937 @ 412025:                  PUSH   ROUT
48938 @ 412028:                  PUSHI  #0x00000001
48939 @ 412033:                  ASSVAL

  8290           %FINISH;                       ! TO AVOID CHECKING PARAMS
48940 @ 412034:                  LINE   8290 "regression-compile-tmp/imp918s.imp"
48941 @ 412072:                  LOCATE L_0004

  8291           %UNLESS TYPE=3 %AND A(P+1)=2 %AND A(P+2)=1 %C
  8292              %AND A(P+4)=2=A(P+5) %THEN ->OUT
  8293  ! NO APP &SINGLE SIMPLE ENAME
48942 @ 412075:                  LINE   8291 "regression-compile-tmp/imp918s.imp"
48943 @ 412113:                  PUSH   TYPE
48944 @ 412116:                  PUSHI  #0x00000003
48945 @ 412121:                  JUMPIF # L_0005
48946 @ 412125:                  PUSH   A
48947 @ 412128:                  PUSH   P
48948 @ 412131:                  PUSHI  #0x00000001
48949 @ 412136:                  ADD   
48950 @ 412137:                  ACCESS
48951 @ 412138:                  PUSHI  #0x00000002
48952 @ 412143:                  JUMPIF # L_0005
48953 @ 412147:                  PUSH   A
48954 @ 412150:                  PUSH   P
48955 @ 412153:                  PUSHI  #0x00000002
48956 @ 412158:                  ADD   
48957 @ 412159:                  ACCESS
48958 @ 412160:                  PUSHI  #0x00000001
48959 @ 412165:                  JUMPIF # L_0005
48960 @ 412169:                  PUSH   A
48961 @ 412172:                  PUSH   P
48962 @ 412175:                  PUSHI  #0x00000004
48963 @ 412180:                  ADD   
48964 @ 412181:                  ACCESS
48965 @ 412182:                  PUSHI  #0x00000002
48966 @ 412187:                  JUMPIFD # L_0005
48967 @ 412191:                  PUSH   A
48968 @ 412194:                  PUSH   P
48969 @ 412197:                  PUSHI  #0x00000005
48970 @ 412202:                  ADD   
48971 @ 412203:                  ACCESS
48972 @ 412204:                  JUMPIF = L_0004
48973 @ 412208:                  LOCATE L_0005
48974 @ 412211:                  JUMP   L_020b
48975 @ 412214:                  LOCATE L_0004

  8294           NAMP=NAM
48976 @ 412217:                  LINE   8294 "regression-compile-tmp/imp918s.imp"
48977 @ 412255:                  PUSH   NAMP
48978 @ 412258:                  PUSH   NAM
48979 @ 412261:                  ASSVAL

  8295           RDISP=K
48980 @ 412262:                  LINE   8295 "regression-compile-tmp/imp918s.imp"
48981 @ 412300:                  PUSH   RDISP
48982 @ 412303:                  PUSH   K
48983 @ 412306:                  ASSVAL

  8296           PTYPEP=PTYPE;  QQ=COPY RECORD TAG(SUBS)
48984 @ 412307:                  LINE   8296 "regression-compile-tmp/imp918s.imp"
48985 @ 412345:                  PUSH   PTYPEP
48986 @ 412348:                  PUSH   PTYPE
48987 @ 412351:                  ASSVAL
48988 @ 412352:                  LINE   8296 "regression-compile-tmp/imp918s.imp"
48989 @ 412390:                  PUSH   QQ
48990 @ 412393:                  PUSH   COPYRECORDTAG
48991 @ 412396:                  PUSH   SUBS
48992 @ 412399:                  ASSPAR
48993 @ 412400:                  CALL  
48994 @ 412401:                  ASSVAL

  8297           %UNLESS QQ>0 %AND ARR=0 %AND TYPE#3  %AND SUBS=1 %THEN ->RESET
48995 @ 412402:                  LINE   8297 "regression-compile-tmp/imp918s.imp"
48996 @ 412440:                  PUSH   QQ
48997 @ 412443:                  PUSHI  #0x00000000
48998 @ 412448:                  JUMPIF <= L_0005
48999 @ 412452:                  PUSH   ARR
49000 @ 412455:                  PUSHI  #0x00000000
49001 @ 412460:                  JUMPIF # L_0005
49002 @ 412464:                  PUSH   TYPE
49003 @ 412467:                  PUSHI  #0x00000003
49004 @ 412472:                  JUMPIF = L_0005
49005 @ 412476:                  PUSH   SUBS
49006 @ 412479:                  PUSHI  #0x00000001
49007 @ 412484:                  JUMPIF = L_0004
49008 @ 412488:                  LOCATE L_0005
49009 @ 412491:                  JUMP   L_020c
49010 @ 412494:                  LOCATE L_0004

  8298           %IF NAMP=0 %THEN K=K+RDISP %ELSE %START
49011 @ 412497:                  LINE   8298 "regression-compile-tmp/imp918s.imp"
49012 @ 412535:                  PUSH   NAMP
49013 @ 412538:                  PUSHI  #0x00000000
49014 @ 412543:                  JUMPIF # L_0004
49015 @ 412547:                  PUSH   K
49016 @ 412550:                  PUSH   K
49017 @ 412553:                  PUSH   RDISP
49018 @ 412556:                  ADD   
49019 @ 412557:                  ASSVAL
49020 @ 412558:                  GOTO   L_0003
49021 @ 412561:                  LOCATE L_0004

  8299              FIND USE(JJ, 1, 7, TAGS(A(PP)))
49022 @ 412564:                  LINE   8299 "regression-compile-tmp/imp918s.imp"
49023 @ 412602:                  PUSH   FINDUSE
49024 @ 412605:                  PUSH   JJ
49025 @ 412608:                  ASSPAR
49026 @ 412609:                  PUSHI  #0x00000001
49027 @ 412614:                  ASSPAR
49028 @ 412615:                  PUSHI  #0x00000007
49029 @ 412620:                  ASSPAR
49030 @ 412621:                  PUSH   TAGS
49031 @ 412624:                  PUSH   A
49032 @ 412627:                  PUSH   PP
49033 @ 412630:                  ACCESS
49034 @ 412631:                  ACCESS
49035 @ 412632:                  ASSPAR
49036 @ 412633:                  CALL  

  8300              %IF JJ>0 %THEN I=JJ %ELSE %START
49037 @ 412634:                  LINE   8300 "regression-compile-tmp/imp918s.imp"
49038 @ 412672:                  PUSH   JJ
49039 @ 412675:                  PUSHI  #0x00000000
49040 @ 412680:                  JUMPIF <= L_0007
49041 @ 412684:                  PUSH   I
49042 @ 412687:                  PUSH   JJ
49043 @ 412690:                  ASSVAL
49044 @ 412691:                  GOTO   L_0006
49045 @ 412694:                  LOCATE L_0007

  8301                 ->RESET %UNLESS MODE#0
49046 @ 412697:                  LINE   8301 "regression-compile-tmp/imp918s.imp"
49047 @ 412735:                  PUSH   MODE
49048 @ 412738:                  PUSHI  #0x00000000
49049 @ 412743:                  JUMPIF # L_000a
49050 @ 412747:                  JUMP   L_020c
49051 @ 412750:                  LOCATE L_000a

  8302                 %CYCLE JJ=14,-1,4
49052 @ 412753:                  LINE   8302 "regression-compile-tmp/imp918s.imp"
49053 @ 412791:                  PUSH   JJ
49054 @ 412794:                  PUSHI  #0x00000001
49055 @ 412799:                  NEGATE
49056 @ 412800:                  PUSHI  #0x00000004
49057 @ 412805:                  PUSHI  #0x0000000e
49058 @ 412810:                  FOR    L_0009

  8303                    %IF REGISTER(JJ)=0 %AND GRUSE(JJ)<=1 %START
49059 @ 412813:                  LINE   8303 "regression-compile-tmp/imp918s.imp"
49060 @ 412851:                  PUSH   REGISTER
49061 @ 412854:                  PUSH   JJ
49062 @ 412857:                  ACCESS
49063 @ 412858:                  PUSHI  #0x00000000
49064 @ 412863:                  JUMPIF # L_000d
49065 @ 412867:                  PUSH   GRUSE
49066 @ 412870:                  PUSH   JJ
49067 @ 412873:                  ACCESS
49068 @ 412874:                  PUSHI  #0x00000001
49069 @ 412879:                  JUMPIF > L_000d

  8304                       DUMP(X'58',JJ,RDISP,0,I)
49070 @ 412883:                  LINE   8304 "regression-compile-tmp/imp918s.imp"
49071 @ 412921:                  PUSH   DUMP
49072 @ 412924:                  PUSHI  #0x00000058
49073 @ 412929:                  ASSPAR
49074 @ 412930:                  PUSH   JJ
49075 @ 412933:                  ASSPAR
49076 @ 412934:                  PUSH   RDISP
49077 @ 412937:                  ASSPAR
49078 @ 412938:                  PUSHI  #0x00000000
49079 @ 412943:                  ASSPAR
49080 @ 412944:                  PUSH   I
49081 @ 412947:                  ASSPAR
49082 @ 412948:                  CALL  

  8305                       SET USE(JJ,7,TAGS(A(PP)))
49083 @ 412949:                  LINE   8305 "regression-compile-tmp/imp918s.imp"
49084 @ 412987:                  PUSH   SETUSE
49085 @ 412990:                  PUSH   JJ
49086 @ 412993:                  ASSPAR
49087 @ 412994:                  PUSHI  #0x00000007
49088 @ 412999:                  ASSPAR
49089 @ 413000:                  PUSH   TAGS
49090 @ 413003:                  PUSH   A
49091 @ 413006:                  PUSH   PP
49092 @ 413009:                  ACCESS
49093 @ 413010:                  ACCESS
49094 @ 413011:                  ASSPAR
49095 @ 413012:                  CALL  

  8306                       P=PP+3; I=JJ; %RETURN
49096 @ 413013:                  LINE   8306 "regression-compile-tmp/imp918s.imp"
49097 @ 413051:                  PUSH   P
49098 @ 413054:                  PUSH   PP
49099 @ 413057:                  PUSHI  #0x00000003
49100 @ 413062:                  ADD   
49101 @ 413063:                  ASSVAL
49102 @ 413064:                  LINE   8306 "regression-compile-tmp/imp918s.imp"
49103 @ 413102:                  PUSH   I
49104 @ 413105:                  PUSH   JJ
49105 @ 413108:                  ASSVAL
49106 @ 413109:                  LINE   8306 "regression-compile-tmp/imp918s.imp"
49107 @ 413147:                  RETURN

  8307                    %FINISH
49108 @ 413148:                  LINE   8307 "regression-compile-tmp/imp918s.imp"
49109 @ 413186:                  LOCATE L_000d

  8308                 %REPEAT
49110 @ 413189:                  LINE   8308 "regression-compile-tmp/imp918s.imp"
49111 @ 413227:                  REPEAT L_0009
49112 @ 413230:                  LOCATE L_000a

  8309                 ->RESET
49113 @ 413233:                  LINE   8309 "regression-compile-tmp/imp918s.imp"
49114 @ 413271:                  JUMP   L_020c

  8310              %FINISH
49115 @ 413274:                  LINE   8310 "regression-compile-tmp/imp918s.imp"
49116 @ 413312:                  LOCATE L_0006

  8311           %FINISH;  P=PP+3;  %RETURN
49117 @ 413315:                  LINE   8311 "regression-compile-tmp/imp918s.imp"
49118 @ 413353:                  LOCATE L_0003
49119 @ 413356:                  LINE   8311 "regression-compile-tmp/imp918s.imp"
49120 @ 413394:                  PUSH   P
49121 @ 413397:                  PUSH   PP
49122 @ 413400:                  PUSHI  #0x00000003
49123 @ 413405:                  ADD   
49124 @ 413406:                  ASSVAL
49125 @ 413407:                  LINE   8311 "regression-compile-tmp/imp918s.imp"
49126 @ 413445:                  RETURN

  8312  RESET:   P=PP;  COPY TAG(A(P))
49127 @ 413446:                  LINE   8312 "regression-compile-tmp/imp918s.imp"
49128 @ 413484:                  LABEL  L_020c
49129 @ 413487:                  LINE   8312 "regression-compile-tmp/imp918s.imp"
49130 @ 413525:                  PUSH   P
49131 @ 413528:                  PUSH   PP
49132 @ 413531:                  ASSVAL
49133 @ 413532:                  LINE   8312 "regression-compile-tmp/imp918s.imp"
49134 @ 413570:                  PUSH   COPYTAG
49135 @ 413573:                  PUSH   A
49136 @ 413576:                  PUSH   P
49137 @ 413579:                  ACCESS
49138 @ 413580:                  ASSPAR
49139 @ 413581:                  CALL  

  8313  OUT: %END
49140 @ 413582:                  LINE   8313 "regression-compile-tmp/imp918s.imp"
49141 @ 413620:                  LABEL  L_020b
49142 @ 413623:                  LINE   8313 "regression-compile-tmp/imp918s.imp"
49143 @ 413661:               END    _lev0id0_CSS_REDUCETAG {lev=3 --> 2}

  8314  %ROUTINE REPLACE TAG(%INTEGER KK)
  8315  {%SHORTROUTINE}
49144 @ 413662:               LINE   8314 "regression-compile-tmp/imp918s.imp"
49145 @ 413700:               DEF    REPLACETAG (_lev0id0_CSS_REPLACETAG) p1=V_0191 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
49146 @ 413722:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
49147 @ 413723:                     DEF    KK p1=V_0203 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
49148 @ 413737:                  FINISH ) {lev=3}

  8316  %INTEGER P, Q
49149 @ 413738:                  LINE   8316 "regression-compile-tmp/imp918s.imp"
49150 @ 413776:                  DEF    P p1=V_0204 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
49151 @ 413789:                  DEF    Q p1=V_0205 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

  8317           P=TAGS(KK)
49152 @ 413802:                  LINE   8317 "regression-compile-tmp/imp918s.imp"
49153 @ 413840:                  PUSH   P
49154 @ 413843:                  PUSH   TAGS
49155 @ 413846:                  PUSH   KK
49156 @ 413849:                  ACCESS
49157 @ 413850:                  ASSVAL

  8318           Q=PTYPE<<16!USEBITS<<12!OLDI<<8!I<<4!J
49158 @ 413851:                  LINE   8318 "regression-compile-tmp/imp918s.imp"
49159 @ 413889:                  PUSH   Q
49160 @ 413892:                  PUSH   PTYPE
49161 @ 413895:                  PUSHI  #0x00000010
49162 @ 413900:                  LSH   
49163 @ 413901:                  PUSH   USEBITS
49164 @ 413904:                  PUSHI  #0x0000000c
49165 @ 413909:                  LSH   
49166 @ 413910:                  OR    
49167 @ 413911:                  PUSH   OLDI
49168 @ 413914:                  PUSHI  #0x00000008
49169 @ 413919:                  LSH   
49170 @ 413920:                  OR    
49171 @ 413921:                  PUSH   I
49172 @ 413924:                  PUSHI  #0x00000004
49173 @ 413929:                  LSH   
49174 @ 413930:                  OR    
49175 @ 413931:                  PUSH   J
49176 @ 413934:                  OR    
49177 @ 413935:                  ASSVAL

  8319           REPLACE123(P, Q, INTEGER(ADDR(SNDISP)), INTEGER(ADDR(K)))
49178 @ 413936:                  LINE   8319 "regression-compile-tmp/imp918s.imp"
49179 @ 413974:                  PUSH   REPLACE123
49180 @ 413977:                  PUSH   P
49181 @ 413980:                  ASSPAR
49182 @ 413981:                  PUSH   Q
49183 @ 413984:                  ASSPAR
49184 @ 413985:                  PUSH   INTEGER
49185 @ 413988:                  PUSH   ADDR
49186 @ 413991:                  PUSH   SNDISP
49187 @ 413994:                  ASSPAR
49188 @ 413995:                  CALL  
49189 @ 413996:                  ASSPAR
49190 @ 413997:                  CALL  
49191 @ 413998:                  ASSPAR
49192 @ 413999:                  PUSH   INTEGER
49193 @ 414002:                  PUSH   ADDR
49194 @ 414005:                  PUSH   K
49195 @ 414008:                  ASSPAR
49196 @ 414009:                  CALL  
49197 @ 414010:                  ASSPAR
49198 @ 414011:                  CALL  
49199 @ 414012:                  ASSPAR
49200 @ 414013:                  CALL  

  8320  %END
49201 @ 414014:                  LINE   8320 "regression-compile-tmp/imp918s.imp"
49202 @ 414052:               END    _lev0id0_CSS_REPLACETAG {lev=3 --> 2}

  8321  %ROUTINE UNPACK
49203 @ 414053:               LINE   8321 "regression-compile-tmp/imp918s.imp"
49204 @ 414091:               DEF    UNPACK (_lev0id0_CSS_UNPACK) p1=V_019d 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
49205 @ 414109:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
49206 @ 414110:                  FINISH ) {lev=3}

  8322  %LONGREAL WORK
  8323  !%if USE MC = 1 %start
  8324  !         *L_1,PTYPE;  *CVD_1,WORK
  8325  !         *UNPK_ROUT(5),WORK+5(3)
  8326  !         *NC_ROUT(5),MASK1
  8327  !%finish
49207 @ 414111:                  LINE   8322 "regression-compile-tmp/imp918s.imp"
49208 @ 414149:                  DEF    WORK p1=V_0203 a/tf=21 b/format=4 c/ostate=0  type=2 (real) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  8328  %END
49209 @ 414165:                  LINE   8328 "regression-compile-tmp/imp918s.imp"
49210 @ 414203:               END    _lev0id0_CSS_UNPACK {lev=3 --> 2}

  8329  %ROUTINE PACK(%INTEGERNAME PTYPE)
49211 @ 414204:               LINE   8329 "regression-compile-tmp/imp918s.imp"
49212 @ 414242:               DEF    PACK (_lev0id0_CSS_PACK) p1=V_019e 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
49213 @ 414258:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
49214 @ 414259:                     DEF    PTYPE p1=V_0203 a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
49215 @ 414276:                  FINISH ) {lev=3}

  8330  %LONGREAL WORK
  8331  !%if USE MC = 1 %start
  8332  !         %MCODE
  8333  !         *PACK_WORK(8),ROUT(5)
  8334  !         *OI_WORK+7,X'0C'     ;         !VALID SIGN
  8335  !         *CVB_1,WORK
  8336  !         *L_2,PTYPE;  *ST_1,0(2)
  8337  !%finish
49216 @ 414277:                  LINE   8330 "regression-compile-tmp/imp918s.imp"
49217 @ 414315:                  DEF    WORK p1=V_0204 a/tf=21 b/format=4 c/ostate=0  type=2 (real) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  8338  %END
49218 @ 414331:                  LINE   8338 "regression-compile-tmp/imp918s.imp"
49219 @ 414369:               END    _lev0id0_CSS_PACK {lev=3 --> 2}

  8339  %ROUTINE PPJ(%INTEGER N)
  8340  ! PLANT A 'BAL' TO PERM SUBROUTINE N0 'N'
49220 @ 414370:               LINE   8339 "regression-compile-tmp/imp918s.imp"
49221 @ 414408:               DEF    PPJ (_lev0id0_CSS_PPJ) p1=V_01a8 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
49222 @ 414423:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
49223 @ 414424:                     DEF    N p1=V_0203 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
49224 @ 414437:                  FINISH ) {lev=3}

  8341  %INTEGER I
49225 @ 414438:                  LINE   8341 "regression-compile-tmp/imp918s.imp"
49226 @ 414476:                  DEF    I p1=V_0204 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

  8342           CCSTATE=-1
49227 @ 414489:                  LINE   8342 "regression-compile-tmp/imp918s.imp"
49228 @ 414527:                  PUSH   CCSTATE
49229 @ 414530:                  PUSHI  #0x00000001
49230 @ 414535:                  NEGATE
49231 @ 414536:                  ASSVAL

  8343           CYC BITS=CYC BITS!4;           ! SET 'PERM' BIT
49232 @ 414537:                  LINE   8343 "regression-compile-tmp/imp918s.imp"
49233 @ 414575:                  PUSH   CYCBITS
49234 @ 414578:                  PUSH   CYCBITS
49235 @ 414581:                  PUSHI  #0x00000004
49236 @ 414586:                  OR    
49237 @ 414587:                  ASSVAL

  8344           %IF 20<=N<=24 %THEN I=4 %ELSE I=8
49238 @ 414588:                  LINE   8344 "regression-compile-tmp/imp918s.imp"
49239 @ 414626:                  PUSHI  #0x00000014
49240 @ 414631:                  PUSH   N
49241 @ 414634:                  JUMPIFD > L_0004
49242 @ 414638:                  PUSHI  #0x00000018
49243 @ 414643:                  JUMPIF > L_0004
49244 @ 414647:                  PUSH   I
49245 @ 414650:                  PUSHI  #0x00000004
49246 @ 414655:                  ASSVAL
49247 @ 414656:                  GOTO   L_0003
49248 @ 414659:                  LOCATE L_0004
49249 @ 414662:                  PUSH   I
49250 @ 414665:                  PUSHI  #0x00000008
49251 @ 414670:                  ASSVAL
49252 @ 414671:                  LOCATE L_0003

  8345           SAVE IRS(I)
49253 @ 414674:                  LINE   8345 "regression-compile-tmp/imp918s.imp"
49254 @ 414712:                  PUSH   SAVEIRS
49255 @ 414715:                  PUSH   I
49256 @ 414718:                  ASSPAR
49257 @ 414719:                  CALL  

  8346           FAULT(202, 0) %UNLESS REGISTER(15)=0
49258 @ 414720:                  LINE   8346 "regression-compile-tmp/imp918s.imp"
49259 @ 414758:                  PUSH   REGISTER
49260 @ 414761:                  PUSHI  #0x0000000f
49261 @ 414766:                  ACCESS
49262 @ 414767:                  PUSHI  #0x00000000
49263 @ 414772:                  JUMPIF = L_0004
49264 @ 414776:                  PUSH   FAULT
49265 @ 414779:                  PUSHI  #0x000000ca
49266 @ 414784:                  ASSPAR
49267 @ 414785:                  PUSHI  #0x00000000
49268 @ 414790:                  ASSPAR
49269 @ 414791:                  CALL  
49270 @ 414792:                  LOCATE L_0004

  8347           PCONST(X'45F0C000'!N<<2);      ! BAL 15,PN
49271 @ 414795:                  LINE   8347 "regression-compile-tmp/imp918s.imp"
49272 @ 414833:                  PUSH   PCONST
49273 @ 414836:                  PUSHI  #0x45f0c000
49274 @ 414841:                  PUSH   N
49275 @ 414844:                  PUSHI  #0x00000002
49276 @ 414849:                  LSH   
49277 @ 414850:                  OR    
49278 @ 414851:                  ASSPAR
49279 @ 414852:                  CALL  

  8348           FORGETM(I)
49280 @ 414853:                  LINE   8348 "regression-compile-tmp/imp918s.imp"
49281 @ 414891:                  PUSH   FORGETM
49282 @ 414894:                  PUSH   I
49283 @ 414897:                  ASSPAR
49284 @ 414898:                  CALL  

  8349           SET USE(15, 12, CA) %C
  8350              %IF SBFLAG=0 %AND I#4 %AND CA-CODEBASE>4095-MARGIN
49285 @ 414899:                  LINE   8349 "regression-compile-tmp/imp918s.imp"
49286 @ 414937:                  PUSH   SBFLAG
49287 @ 414940:                  PUSHI  #0x00000000
49288 @ 414945:                  JUMPIF # L_0004
49289 @ 414949:                  PUSH   I
49290 @ 414952:                  PUSHI  #0x00000004
49291 @ 414957:                  JUMPIF = L_0004
49292 @ 414961:                  PUSH   CA
49293 @ 414964:                  PUSH   CODEBASE
49294 @ 414967:                  SUB   
49295 @ 414968:                  PUSHI  #0x00000fff
49296 @ 414973:                  PUSH   MARGIN
49297 @ 414976:                  SUB   
49298 @ 414977:                  JUMPIF <= L_0004
49299 @ 414981:                  PUSH   SETUSE
49300 @ 414984:                  PUSHI  #0x0000000f
49301 @ 414989:                  ASSPAR
49302 @ 414990:                  PUSHI  #0x0000000c
49303 @ 414995:                  ASSPAR
49304 @ 414996:                  PUSH   CA
49305 @ 414999:                  ASSPAR
49306 @ 415000:                  CALL  
49307 @ 415001:                  LOCATE L_0004

  8351  %END
49308 @ 415004:                  LINE   8351 "regression-compile-tmp/imp918s.imp"
49309 @ 415042:               END    _lev0id0_CSS_PPJ {lev=3 --> 2}

  8352  %ROUTINE ADJUST INDEX(%INTEGER MODE, %INTEGERNAME INDEX, DISP)
  8353  {%SHORTROUTINE}
  8354  !***********************************************************************
  8355  !*       THIS IS THE GENERAL SOLUTION TO LACK OF ADDRESSABILITY. IT IS *
  8356  !*       CALLED WHEN DISP IS OUTSIDE THE RANGE 0->Label4095 AND MANIPULATES *
  8357  !*       INDEX ACCORDINGLY. FREQUENTLY INDEX=0 (NO INDEXING) WHEN THE  *
  8358  !*       SOLUTION IS TRIVIAL. MODE=0 IF INDEX MUST BE COPIED BEFORE    *
  8359  !*       BEING ADJUSTED.                                               *
  8360  !***********************************************************************
49310 @ 415043:               LINE   8352 "regression-compile-tmp/imp918s.imp"
49311 @ 415081:               DEF    ADJUSTINDEX (_lev0id0_CSS_ADJUSTINDEX) p1=V_018b 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
49312 @ 415104:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
49313 @ 415105:                     DEF    MODE p1=V_0203 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
49314 @ 415121:                     DEF    INDEX p1=V_0204 a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
49315 @ 415138:                     DEF    DISP p1=V_0205 a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
49316 @ 415154:                  FINISH ) {lev=3}

  8361  %INTEGER J, K, D, PN
49317 @ 415155:                  LINE   8361 "regression-compile-tmp/imp918s.imp"
49318 @ 415193:                  DEF    J p1=V_0206 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
49319 @ 415206:                  DEF    K p1=V_0207 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
49320 @ 415219:                  DEF    D p1=V_0208 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
49321 @ 415232:                  DEF    PN p1=V_0209 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

  8362           FIND REG(GR1, J);              ! MAY NOT BE NEEDED
49322 @ 415246:                  LINE   8362 "regression-compile-tmp/imp918s.imp"
49323 @ 415284:                  PUSH   FINDREG
49324 @ 415287:                  PUSHI  #0x0001010f
49325 @ 415292:                  ASSPAR
49326 @ 415293:                  PUSH   J
49327 @ 415296:                  ASSPAR
49328 @ 415297:                  CALL  

  8363           CYC BITS=CYC BITS!16;          ! USES MULTIPLE OF 4K
49329 @ 415298:                  LINE   8363 "regression-compile-tmp/imp918s.imp"
49330 @ 415336:                  PUSH   CYCBITS
49331 @ 415339:                  PUSH   CYCBITS
49332 @ 415342:                  PUSHI  #0x00000010
49333 @ 415347:                  OR    
49334 @ 415348:                  ASSVAL

  8364           %IF DISP>0 %THEN %START
49335 @ 415349:                  LINE   8364 "regression-compile-tmp/imp918s.imp"
49336 @ 415387:                  PUSH   DISP
49337 @ 415390:                  PUSHI  #0x00000000
49338 @ 415395:                  JUMPIF <= L_0004

  8365              K=X'5A';  D=DISP
49339 @ 415399:                  LINE   8365 "regression-compile-tmp/imp918s.imp"
49340 @ 415437:                  PUSH   K
49341 @ 415440:                  PUSHI  #0x0000005a
49342 @ 415445:                  ASSVAL
49343 @ 415446:                  LINE   8365 "regression-compile-tmp/imp918s.imp"
49344 @ 415484:                  PUSH   D
49345 @ 415487:                  PUSH   DISP
49346 @ 415490:                  ASSVAL

  8366           %FINISH %ELSE %START
49347 @ 415491:                  LINE   8366 "regression-compile-tmp/imp918s.imp"
49348 @ 415529:                  GOTO   L_0003
49349 @ 415532:                  LOCATE L_0004

  8367              K=X'5B';  D=4095-DISP
49350 @ 415535:                  LINE   8367 "regression-compile-tmp/imp918s.imp"
49351 @ 415573:                  PUSH   K
49352 @ 415576:                  PUSHI  #0x0000005b
49353 @ 415581:                  ASSVAL
49354 @ 415582:                  LINE   8367 "regression-compile-tmp/imp918s.imp"
49355 @ 415620:                  PUSH   D
49356 @ 415623:                  PUSHI  #0x00000fff
49357 @ 415628:                  PUSH   DISP
49358 @ 415631:                  SUB   
49359 @ 415632:                  ASSVAL

  8368           %FINISH
49360 @ 415633:                  LINE   8368 "regression-compile-tmp/imp918s.imp"
49361 @ 415671:                  LOCATE L_0003

  8369           PN=D>>12;  FAULT(98, 0) %IF PN>63
49362 @ 415674:                  LINE   8369 "regression-compile-tmp/imp918s.imp"
49363 @ 415712:                  PUSH   PN
49364 @ 415715:                  PUSH   D
49365 @ 415718:                  PUSHI  #0x0000000c
49366 @ 415723:                  RSH   
49367 @ 415724:                  ASSVAL
49368 @ 415725:                  LINE   8369 "regression-compile-tmp/imp918s.imp"
49369 @ 415763:                  PUSH   PN
49370 @ 415766:                  PUSHI  #0x0000003f
49371 @ 415771:                  JUMPIF <= L_0004
49372 @ 415775:                  PUSH   FAULT
49373 @ 415778:                  PUSHI  #0x00000062
49374 @ 415783:                  ASSPAR
49375 @ 415784:                  PUSHI  #0x00000000
49376 @ 415789:                  ASSPAR
49377 @ 415790:                  CALL  
49378 @ 415791:                  LOCATE L_0004

  8370           %IF INDEX=0 %AND DISP>0 %THEN %START
49379 @ 415794:                  LINE   8370 "regression-compile-tmp/imp918s.imp"
49380 @ 415832:                  PUSH   INDEX
49381 @ 415835:                  PUSHI  #0x00000000
49382 @ 415840:                  JUMPIF # L_0004
49383 @ 415844:                  PUSH   DISP
49384 @ 415847:                  PUSHI  #0x00000000
49385 @ 415852:                  JUMPIF <= L_0004

  8371              FIND USE(INDEX, 1, 11, PN); ! LOOK FOR 4K MULTIPLE
49386 @ 415856:                  LINE   8371 "regression-compile-tmp/imp918s.imp"
49387 @ 415894:                  PUSH   FINDUSE
49388 @ 415897:                  PUSH   INDEX
49389 @ 415900:                  ASSPAR
49390 @ 415901:                  PUSHI  #0x00000001
49391 @ 415906:                  ASSPAR
49392 @ 415907:                  PUSHI  #0x0000000b
49393 @ 415912:                  ASSPAR
49394 @ 415913:                  PUSH   PN
49395 @ 415916:                  ASSPAR
49396 @ 415917:                  CALL  

  8372              ->Label98 %IF INDEX>0
49397 @ 415918:                  LINE   8372 "regression-compile-tmp/imp918s.imp"
49398 @ 415956:                  PUSH   INDEX
49399 @ 415959:                  PUSHI  #0x00000000
49400 @ 415964:                  JUMPIF <= L_0007
49401 @ 415968:                  JUMP   L_020a
49402 @ 415971:                  LOCATE L_0007

  8373              SET USE(J, 11, PN)
49403 @ 415974:                  LINE   8373 "regression-compile-tmp/imp918s.imp"
49404 @ 416012:                  PUSH   SETUSE
49405 @ 416015:                  PUSH   J
49406 @ 416018:                  ASSPAR
49407 @ 416019:                  PUSHI  #0x0000000b
49408 @ 416024:                  ASSPAR
49409 @ 416025:                  PUSH   PN
49410 @ 416028:                  ASSPAR
49411 @ 416029:                  CALL  

  8374              INDEX=J;  K=X'58'
49412 @ 416030:                  LINE   8374 "regression-compile-tmp/imp918s.imp"
49413 @ 416068:                  PUSH   INDEX
49414 @ 416071:                  PUSH   J
49415 @ 416074:                  ASSVAL
49416 @ 416075:                  LINE   8374 "regression-compile-tmp/imp918s.imp"
49417 @ 416113:                  PUSH   K
49418 @ 416116:                  PUSHI  #0x00000058
49419 @ 416121:                  ASSVAL

  8375           %FINISH %ELSE %START
49420 @ 416122:                  LINE   8375 "regression-compile-tmp/imp918s.imp"
49421 @ 416160:                  GOTO   L_0003
49422 @ 416163:                  LOCATE L_0004

  8376              %IF MODE=0 %OR INDEX=0 %THEN %START
49423 @ 416166:                  LINE   8376 "regression-compile-tmp/imp918s.imp"
49424 @ 416204:                  PUSH   MODE
49425 @ 416207:                  PUSHI  #0x00000000
49426 @ 416212:                  JUMPIF = L_0008
49427 @ 416216:                  PUSH   INDEX
49428 @ 416219:                  PUSHI  #0x00000000
49429 @ 416224:                  JUMPIF # L_0007
49430 @ 416228:                  LOCATE L_0008

  8377                 %IF MODE=0 %THEN PRR(X'18', J, INDEX) %ELSE %START
49431 @ 416231:                  LINE   8377 "regression-compile-tmp/imp918s.imp"
49432 @ 416269:                  PUSH   MODE
49433 @ 416272:                  PUSHI  #0x00000000
49434 @ 416277:                  JUMPIF # L_000a
49435 @ 416281:                  PUSH   PRR
49436 @ 416284:                  PUSHI  #0x00000018
49437 @ 416289:                  ASSPAR
49438 @ 416290:                  PUSH   J
49439 @ 416293:                  ASSPAR
49440 @ 416294:                  PUSH   INDEX
49441 @ 416297:                  ASSPAR
49442 @ 416298:                  CALL  
49443 @ 416299:                  GOTO   L_0009
49444 @ 416302:                  LOCATE L_000a

  8378                    PRR(X'1F', J, J)
49445 @ 416305:                  LINE   8378 "regression-compile-tmp/imp918s.imp"
49446 @ 416343:                  PUSH   PRR
49447 @ 416346:                  PUSHI  #0x0000001f
49448 @ 416351:                  ASSPAR
49449 @ 416352:                  PUSH   J
49450 @ 416355:                  ASSPAR
49451 @ 416356:                  PUSH   J
49452 @ 416359:                  ASSPAR
49453 @ 416360:                  CALL  

  8379                    CCSTATE=-1
49454 @ 416361:                  LINE   8379 "regression-compile-tmp/imp918s.imp"
49455 @ 416399:                  PUSH   CCSTATE
49456 @ 416402:                  PUSHI  #0x00000001
49457 @ 416407:                  NEGATE
49458 @ 416408:                  ASSVAL

  8380                 %FINISH
49459 @ 416409:                  LINE   8380 "regression-compile-tmp/imp918s.imp"
49460 @ 416447:                  LOCATE L_0009

  8381                 INDEX=J
49461 @ 416450:                  LINE   8381 "regression-compile-tmp/imp918s.imp"
49462 @ 416488:                  PUSH   INDEX
49463 @ 416491:                  PUSH   J
49464 @ 416494:                  ASSVAL

  8382              %FINISH
49465 @ 416495:                  LINE   8382 "regression-compile-tmp/imp918s.imp"
49466 @ 416533:                  LOCATE L_0007

  8383              FORGET(INDEX) %UNLESS GRUSE(INDEX)<=1
49467 @ 416536:                  LINE   8383 "regression-compile-tmp/imp918s.imp"
49468 @ 416574:                  PUSH   GRUSE
49469 @ 416577:                  PUSH   INDEX
49470 @ 416580:                  ACCESS
49471 @ 416581:                  PUSHI  #0x00000001
49472 @ 416586:                  JUMPIF <= L_0007
49473 @ 416590:                  PUSH   FORGET
49474 @ 416593:                  PUSH   INDEX
49475 @ 416596:                  ASSPAR
49476 @ 416597:                  CALL  
49477 @ 416598:                  LOCATE L_0007

  8384           %FINISH
49478 @ 416601:                  LINE   8384 "regression-compile-tmp/imp918s.imp"
49479 @ 416639:                  LOCATE L_0003

  8385           PRX(K, INDEX, CODER, 0, PN<<2+PTBASE)
49480 @ 416642:                  LINE   8385 "regression-compile-tmp/imp918s.imp"
49481 @ 416680:                  PUSH   PRX
49482 @ 416683:                  PUSH   K
49483 @ 416686:                  ASSPAR
49484 @ 416687:                  PUSH   INDEX
49485 @ 416690:                  ASSPAR
49486 @ 416691:                  PUSHI  #0x0000000c
49487 @ 416696:                  ASSPAR
49488 @ 416697:                  PUSHI  #0x00000000
49489 @ 416702:                  ASSPAR
49490 @ 416703:                  PUSH   PN
49491 @ 416706:                  PUSHI  #0x00000002
49492 @ 416711:                  LSH   
49493 @ 416712:                  PUSHI  #0x00000100
49494 @ 416717:                  ADD   
49495 @ 416718:                  ASSPAR
49496 @ 416719:                  CALL  

  8386  Label98:      DISP=DISP&4095
49497 @ 416720:                  LINE   8386 "regression-compile-tmp/imp918s.imp"
49498 @ 416758:                  LABEL  L_020a
49499 @ 416761:                  LINE   8386 "regression-compile-tmp/imp918s.imp"
49500 @ 416799:                  PUSH   DISP
49501 @ 416802:                  PUSH   DISP
49502 @ 416805:                  PUSHI  #0x00000fff
49503 @ 416810:                  AND   
49504 @ 416811:                  ASSVAL

  8387  %END
49505 @ 416812:                  LINE   8387 "regression-compile-tmp/imp918s.imp"
49506 @ 416850:               END    _lev0id0_CSS_ADJUSTINDEX {lev=3 --> 2}

  8388  %ROUTINE DUMP(%INTEGER CODE, REG, DIS, X, LEVEL)
  8389  {%SHORTROUTINE}
  8390                                          ! CODE=8*(TYPE-1)+2*(PREC&3)+Z
49507 @ 416851:               LINE   8388 "regression-compile-tmp/imp918s.imp"
49508 @ 416889:               DEF    DUMP (_lev0id0_CSS_DUMP) p1=V_01a1 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
49509 @ 416905:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
49510 @ 416906:                     DEF    CODE p1=V_0203 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
49511 @ 416922:                     DEF    REG p1=V_0204 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
49512 @ 416937:                     DEF    DIS p1=V_0205 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
49513 @ 416952:                     DEF    X p1=V_0206 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
49514 @ 416965:                     DEF    LEVEL p1=V_0207 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
49515 @ 416982:                  FINISH ) {lev=3}

  8391  %INTEGER K
49516 @ 416983:                  LINE   8391 "regression-compile-tmp/imp918s.imp"
49517 @ 417021:                  DEF    K p1=V_0208 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

  8392  %BYTEINTEGER ANDR;  ANDR=0
49518 @ 417034:                  LINE   8392 "regression-compile-tmp/imp918s.imp"
49519 @ 417072:                  DEF    ANDR p1=V_0209 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
49520 @ 417088:                  LINE   8392 "regression-compile-tmp/imp918s.imp"
49521 @ 417126:                  PUSH   ANDR
49522 @ 417129:                  PUSHI  #0x00000000
49523 @ 417134:                  ASSVAL

  8393  %CONSTBYTEINTEGERARRAY OPCODE(0:16)=X'41',
  8394           X'50',X'58',X'42',X'43',X'40',X'48',X'59',X'49',
  8395           X'70',X'78',0(4),X'60',X'68'
49524 @ 417135:                  LINE   8393 "regression-compile-tmp/imp918s.imp"
49525 @ 417173:                  PUSHI  #0x00000000
49526 @ 417178:                  PUSHI  #0x00000010
49527 @ 417183:                  BOUNDS
49528 @ 417184:                  DEF    OPCODE p1=V_020a 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
49529 @ 417202:                  PUSHI  #0x00000041
49530 @ 417207:                  INIT   1
49531 @ 417210:                  PUSHI  #0x00000050
49532 @ 417215:                  INIT   1
49533 @ 417218:                  PUSHI  #0x00000058
49534 @ 417223:                  INIT   1
49535 @ 417226:                  PUSHI  #0x00000042
49536 @ 417231:                  INIT   1
49537 @ 417234:                  PUSHI  #0x00000043
49538 @ 417239:                  INIT   1
49539 @ 417242:                  PUSHI  #0x00000040
49540 @ 417247:                  INIT   1
49541 @ 417250:                  PUSHI  #0x00000048
49542 @ 417255:                  INIT   1
49543 @ 417258:                  PUSHI  #0x00000059
49544 @ 417263:                  INIT   1
49545 @ 417266:                  PUSHI  #0x00000049
49546 @ 417271:                  INIT   1
49547 @ 417274:                  PUSHI  #0x00000070
49548 @ 417279:                  INIT   1
49549 @ 417282:                  PUSHI  #0x00000078
49550 @ 417287:                  INIT   1
49551 @ 417290:                  PUSHI  #0x00000000
49552 @ 417295:                  INIT   4
49553 @ 417298:                  PUSHI  #0x00000060
49554 @ 417303:                  INIT   1
49555 @ 417306:                  PUSHI  #0x00000068
49556 @ 417311:                  INIT   1

  8396           CODE=OPCODE(CODE) %IF CODE<=16
49557 @ 417314:                  LINE   8396 "regression-compile-tmp/imp918s.imp"
49558 @ 417352:                  PUSH   CODE
49559 @ 417355:                  PUSHI  #0x00000010
49560 @ 417360:                  JUMPIF > L_0004
49561 @ 417364:                  PUSH   CODE
49562 @ 417367:                  PUSH   OPCODE
49563 @ 417370:                  PUSH   CODE
49564 @ 417373:                  ACCESS
49565 @ 417374:                  ASSVAL
49566 @ 417375:                  LOCATE L_0004

  8397           FAULT(216,0) %IF CODE<X'40';        ! IN 'RR' RANGE
49567 @ 417378:                  LINE   8397 "regression-compile-tmp/imp918s.imp"
49568 @ 417416:                  PUSH   CODE
49569 @ 417419:                  PUSHI  #0x00000040
49570 @ 417424:                  JUMPIF >= L_0004
49571 @ 417428:                  PUSH   FAULT
49572 @ 417431:                  PUSHI  #0x000000d8
49573 @ 417436:                  ASSPAR
49574 @ 417437:                  PUSHI  #0x00000000
49575 @ 417442:                  ASSPAR
49576 @ 417443:                  CALL  
49577 @ 417444:                  LOCATE L_0004

  8398           %UNLESS 0<=DIS<=4095 %C
  8399              %THEN ADJUST INDEX(REGISTER(X)+1, X, DIS)
49578 @ 417447:                  LINE   8398 "regression-compile-tmp/imp918s.imp"
49579 @ 417485:                  PUSHI  #0x00000000
49580 @ 417490:                  PUSH   DIS
49581 @ 417493:                  JUMPIFD > L_0005
49582 @ 417497:                  PUSHI  #0x00000fff
49583 @ 417502:                  JUMPIF <= L_0004
49584 @ 417506:                  LOCATE L_0005
49585 @ 417509:                  PUSH   ADJUSTINDEX
49586 @ 417512:                  PUSH   REGISTER
49587 @ 417515:                  PUSH   X
49588 @ 417518:                  ACCESS
49589 @ 417519:                  PUSHI  #0x00000001
49590 @ 417524:                  ADD   
49591 @ 417525:                  ASSPAR
49592 @ 417526:                  PUSH   X
49593 @ 417529:                  ASSPAR
49594 @ 417530:                  PUSH   DIS
49595 @ 417533:                  ASSPAR
49596 @ 417534:                  CALL  
49597 @ 417535:                  LOCATE L_0004

  8400           ->REG KNOWN %IF REG>=0
49598 @ 417538:                  LINE   8400 "regression-compile-tmp/imp918s.imp"
49599 @ 417576:                  PUSH   REG
49600 @ 417579:                  PUSHI  #0x00000000
49601 @ 417584:                  JUMPIF < L_0004
49602 @ 417588:                  JUMP   L_020b
49603 @ 417591:                  LOCATE L_0004

  8401           %IF CODE=X'43' %START;         ! TRY TO AVOID CLEARING A REG
49604 @ 417594:                  LINE   8401 "regression-compile-tmp/imp918s.imp"
49605 @ 417632:                  PUSH   CODE
49606 @ 417635:                  PUSHI  #0x00000043
49607 @ 417640:                  JUMPIF # L_0004

  8402              K=-1-REG;                   ! 0 OR 1 IF ADDR MODE
49608 @ 417644:                  LINE   8402 "regression-compile-tmp/imp918s.imp"
49609 @ 417682:                  PUSH   K
49610 @ 417685:                  PUSHI  #0x00000001
49611 @ 417690:                  NEGATE
49612 @ 417691:                  PUSH   REG
49613 @ 417694:                  SUB   
49614 @ 417695:                  ASSVAL

  8403              %WHILE REG<0 %AND K<=15 %CYCLE
49615 @ 417696:                  LINE   8403 "regression-compile-tmp/imp918s.imp"
49616 @ 417734:                  LOCATE L_0006
49617 @ 417737:                  PUSH   REG
49618 @ 417740:                  PUSHI  #0x00000000
49619 @ 417745:                  JUMPIF >= L_0007
49620 @ 417749:                  PUSH   K
49621 @ 417752:                  PUSHI  #0x0000000f
49622 @ 417757:                  JUMPIF > L_0007

  8404                 %IF REGISTER(K)=0 %AND GRUSE(K)=2 %AND GRINF(K)<=255 %C
  8405                     %THEN NEST=K %AND REG=NEST
49623 @ 417761:                  LINE   8404 "regression-compile-tmp/imp918s.imp"
49624 @ 417799:                  PUSH   REGISTER
49625 @ 417802:                  PUSH   K
49626 @ 417805:                  ACCESS
49627 @ 417806:                  PUSHI  #0x00000000
49628 @ 417811:                  JUMPIF # L_000a
49629 @ 417815:                  PUSH   GRUSE
49630 @ 417818:                  PUSH   K
49631 @ 417821:                  ACCESS
49632 @ 417822:                  PUSHI  #0x00000002
49633 @ 417827:                  JUMPIF # L_000a
49634 @ 417831:                  PUSH   GRINF
49635 @ 417834:                  PUSH   K
49636 @ 417837:                  ACCESS
49637 @ 417838:                  PUSHI  #0x000000ff
49638 @ 417843:                  JUMPIF > L_000a
49639 @ 417847:                  PUSH   NEST
49640 @ 417850:                  PUSH   K
49641 @ 417853:                  ASSVAL
49642 @ 417854:                  PUSH   REG
49643 @ 417857:                  PUSH   NEST
49644 @ 417860:                  ASSVAL
49645 @ 417861:                  LOCATE L_000a

  8406                 K=K+1
49646 @ 417864:                  LINE   8406 "regression-compile-tmp/imp918s.imp"
49647 @ 417902:                  PUSH   K
49648 @ 417905:                  PUSH   K
49649 @ 417908:                  PUSHI  #0x00000001
49650 @ 417913:                  ADD   
49651 @ 417914:                  ASSVAL

  8407              %REPEAT
49652 @ 417915:                  LINE   8407 "regression-compile-tmp/imp918s.imp"
49653 @ 417953:                  REPEAT L_0006
49654 @ 417956:                  LOCATE L_0007

  8408           %FINISH
49655 @ 417959:                  LINE   8408 "regression-compile-tmp/imp918s.imp"
49656 @ 417997:                  LOCATE L_0004

  8409           %IF REG=-1 %THEN K=GR0 %ELSE K=GR1
49657 @ 418000:                  LINE   8409 "regression-compile-tmp/imp918s.imp"
49658 @ 418038:                  PUSH   REG
49659 @ 418041:                  PUSHI  #0x00000001
49660 @ 418046:                  NEGATE
49661 @ 418047:                  JUMPIF # L_0004
49662 @ 418051:                  PUSH   K
49663 @ 418054:                  PUSHI  #0x00010f1e
49664 @ 418059:                  ASSVAL
49665 @ 418060:                  GOTO   L_0003
49666 @ 418063:                  LOCATE L_0004
49667 @ 418066:                  PUSH   K
49668 @ 418069:                  PUSHI  #0x0001010f
49669 @ 418074:                  ASSVAL
49670 @ 418075:                  LOCATE L_0003

  8410           %IF 96<=CODE<=127 %THEN K=FR0
49671 @ 418078:                  LINE   8410 "regression-compile-tmp/imp918s.imp"
49672 @ 418116:                  PUSHI  #0x00000060
49673 @ 418121:                  PUSH   CODE
49674 @ 418124:                  JUMPIFD > L_0004
49675 @ 418128:                  PUSHI  #0x0000007f
49676 @ 418133:                  JUMPIF > L_0004
49677 @ 418137:                  PUSH   K
49678 @ 418140:                  PUSHI  #0xfffe1610
49679 @ 418145:                  ASSVAL
49680 @ 418146:                  LOCATE L_0004

  8411           %IF REG<0 %THEN FIND REG(K, REG) %AND NEST=REG
49681 @ 418149:                  LINE   8411 "regression-compile-tmp/imp918s.imp"
49682 @ 418187:                  PUSH   REG
49683 @ 418190:                  PUSHI  #0x00000000
49684 @ 418195:                  JUMPIF >= L_0004
49685 @ 418199:                  PUSH   FINDREG
49686 @ 418202:                  PUSH   K
49687 @ 418205:                  ASSPAR
49688 @ 418206:                  PUSH   REG
49689 @ 418209:                  ASSPAR
49690 @ 418210:                  CALL  
49691 @ 418211:                  PUSH   NEST
49692 @ 418214:                  PUSH   REG
49693 @ 418217:                  ASSVAL
49694 @ 418218:                  LOCATE L_0004

  8412  REGKNOWN:->IC %IF CODE=X'43';           ! BYTES NEED SPECIAL CARE
49695 @ 418221:                  LINE   8412 "regression-compile-tmp/imp918s.imp"
49696 @ 418259:                  LABEL  L_020b
49697 @ 418262:                  LINE   8412 "regression-compile-tmp/imp918s.imp"
49698 @ 418300:                  PUSH   CODE
49699 @ 418303:                  PUSHI  #0x00000043
49700 @ 418308:                  JUMPIF # L_0004
49701 @ 418312:                  JUMP   L_020c
49702 @ 418315:                  LOCATE L_0004

  8413           ->NORMAL %UNLESS CODE=X'41' %AND DIS=0;  ! OPTIMISE LA
49703 @ 418318:                  LINE   8413 "regression-compile-tmp/imp918s.imp"
49704 @ 418356:                  PUSH   CODE
49705 @ 418359:                  PUSHI  #0x00000041
49706 @ 418364:                  JUMPIF # L_0005
49707 @ 418368:                  PUSH   DIS
49708 @ 418371:                  PUSHI  #0x00000000
49709 @ 418376:                  JUMPIF = L_0004
49710 @ 418380:                  LOCATE L_0005
49711 @ 418383:                  JUMP   L_020d
49712 @ 418386:                  LOCATE L_0004

  8414           ->ZERO %IF X=0=LEVEL
49713 @ 418389:                  LINE   8414 "regression-compile-tmp/imp918s.imp"
49714 @ 418427:                  PUSH   X
49715 @ 418430:                  PUSHI  #0x00000000
49716 @ 418435:                  JUMPIFD # L_0004
49717 @ 418439:                  PUSH   LEVEL
49718 @ 418442:                  JUMPIF # L_0004
49719 @ 418446:                  JUMP   L_020e
49720 @ 418449:                  LOCATE L_0004

  8415           ->SWOP %IF LEVEL=0 %OR X=0
49721 @ 418452:                  LINE   8415 "regression-compile-tmp/imp918s.imp"
49722 @ 418490:                  PUSH   LEVEL
49723 @ 418493:                  PUSHI  #0x00000000
49724 @ 418498:                  JUMPIF = L_0005
49725 @ 418502:                  PUSH   X
49726 @ 418505:                  PUSHI  #0x00000000
49727 @ 418510:                  JUMPIF # L_0004
49728 @ 418514:                  LOCATE L_0005
49729 @ 418517:                  JUMP   L_020f
49730 @ 418520:                  LOCATE L_0004

  8416           ->NORMAL %IF X#REG#LEVEL
49731 @ 418523:                  LINE   8416 "regression-compile-tmp/imp918s.imp"
49732 @ 418561:                  PUSH   X
49733 @ 418564:                  PUSH   REG
49734 @ 418567:                  JUMPIFD = L_0004
49735 @ 418571:                  PUSH   LEVEL
49736 @ 418574:                  JUMPIF = L_0004
49737 @ 418578:                  JUMP   L_020d
49738 @ 418581:                  LOCATE L_0004

  8417           PRR(X'1A', REG, X+LEVEL-REG);  CCSTATE=1<<16!REG;  ->Label99
49739 @ 418584:                  LINE   8417 "regression-compile-tmp/imp918s.imp"
49740 @ 418622:                  PUSH   PRR
49741 @ 418625:                  PUSHI  #0x0000001a
49742 @ 418630:                  ASSPAR
49743 @ 418631:                  PUSH   REG
49744 @ 418634:                  ASSPAR
49745 @ 418635:                  PUSH   X
49746 @ 418638:                  PUSH   LEVEL
49747 @ 418641:                  ADD   
49748 @ 418642:                  PUSH   REG
49749 @ 418645:                  SUB   
49750 @ 418646:                  ASSPAR
49751 @ 418647:                  CALL  
49752 @ 418648:                  LINE   8417 "regression-compile-tmp/imp918s.imp"
49753 @ 418686:                  PUSH   CCSTATE
49754 @ 418689:                  PUSHI  #0x00000001
49755 @ 418694:                  PUSHI  #0x00000010
49756 @ 418699:                  LSH   
49757 @ 418700:                  PUSH   REG
49758 @ 418703:                  OR    
49759 @ 418704:                  ASSVAL
49760 @ 418705:                  LINE   8417 "regression-compile-tmp/imp918s.imp"
49761 @ 418743:                  JUMP   L_0210

  8418  ZERO:    PRR(X'1F', REG, REG);  CCSTATE=1<<16!REG;  ->Label99
49762 @ 418746:                  LINE   8418 "regression-compile-tmp/imp918s.imp"
49763 @ 418784:                  LABEL  L_020e
49764 @ 418787:                  LINE   8418 "regression-compile-tmp/imp918s.imp"
49765 @ 418825:                  PUSH   PRR
49766 @ 418828:                  PUSHI  #0x0000001f
49767 @ 418833:                  ASSPAR
49768 @ 418834:                  PUSH   REG
49769 @ 418837:                  ASSPAR
49770 @ 418838:                  PUSH   REG
49771 @ 418841:                  ASSPAR
49772 @ 418842:                  CALL  
49773 @ 418843:                  LINE   8418 "regression-compile-tmp/imp918s.imp"
49774 @ 418881:                  PUSH   CCSTATE
49775 @ 418884:                  PUSHI  #0x00000001
49776 @ 418889:                  PUSHI  #0x00000010
49777 @ 418894:                  LSH   
49778 @ 418895:                  PUSH   REG
49779 @ 418898:                  OR    
49780 @ 418899:                  ASSVAL
49781 @ 418900:                  LINE   8418 "regression-compile-tmp/imp918s.imp"
49782 @ 418938:                  JUMP   L_0210

  8419  SWOP:    PRR(X'18', REG, X+LEVEL) %UNLESS REG=X+LEVEL;  ->Label99
49783 @ 418941:                  LINE   8419 "regression-compile-tmp/imp918s.imp"
49784 @ 418979:                  LABEL  L_020f
49785 @ 418982:                  LINE   8419 "regression-compile-tmp/imp918s.imp"
49786 @ 419020:                  PUSH   REG
49787 @ 419023:                  PUSH   X
49788 @ 419026:                  PUSH   LEVEL
49789 @ 419029:                  ADD   
49790 @ 419030:                  JUMPIF = L_0004
49791 @ 419034:                  PUSH   PRR
49792 @ 419037:                  PUSHI  #0x00000018
49793 @ 419042:                  ASSPAR
49794 @ 419043:                  PUSH   REG
49795 @ 419046:                  ASSPAR
49796 @ 419047:                  PUSH   X
49797 @ 419050:                  PUSH   LEVEL
49798 @ 419053:                  ADD   
49799 @ 419054:                  ASSPAR
49800 @ 419055:                  CALL  
49801 @ 419056:                  LOCATE L_0004
49802 @ 419059:                  LINE   8419 "regression-compile-tmp/imp918s.imp"
49803 @ 419097:                  JUMP   L_0210

  8420  IC:      ->NORMAL %IF GRUSE(REG)=2 %AND GRINF(REG)<=255
49804 @ 419100:                  LINE   8420 "regression-compile-tmp/imp918s.imp"
49805 @ 419138:                  LABEL  L_020c
49806 @ 419141:                  LINE   8420 "regression-compile-tmp/imp918s.imp"
49807 @ 419179:                  PUSH   GRUSE
49808 @ 419182:                  PUSH   REG
49809 @ 419185:                  ACCESS
49810 @ 419186:                  PUSHI  #0x00000002
49811 @ 419191:                  JUMPIF # L_0004
49812 @ 419195:                  PUSH   GRINF
49813 @ 419198:                  PUSH   REG
49814 @ 419201:                  ACCESS
49815 @ 419202:                  PUSHI  #0x000000ff
49816 @ 419207:                  JUMPIF > L_0004
49817 @ 419211:                  JUMP   L_020d
49818 @ 419214:                  LOCATE L_0004

  8421           CCSTATE=-1
49819 @ 419217:                  LINE   8421 "regression-compile-tmp/imp918s.imp"
49820 @ 419255:                  PUSH   CCSTATE
49821 @ 419258:                  PUSHI  #0x00000001
49822 @ 419263:                  NEGATE
49823 @ 419264:                  ASSVAL

  8422           %IF REG=0 %OR X#REG#LEVEL %THEN PRR(X'1F', REG, REG) %C
  8423              %ELSE ANDR=1
49824 @ 419265:                  LINE   8422 "regression-compile-tmp/imp918s.imp"
49825 @ 419303:                  PUSH   REG
49826 @ 419306:                  PUSHI  #0x00000000
49827 @ 419311:                  JUMPIF = L_0005
49828 @ 419315:                  PUSH   X
49829 @ 419318:                  PUSH   REG
49830 @ 419321:                  JUMPIFD = L_0004
49831 @ 419325:                  PUSH   LEVEL
49832 @ 419328:                  JUMPIF = L_0004
49833 @ 419332:                  LOCATE L_0005
49834 @ 419335:                  PUSH   PRR
49835 @ 419338:                  PUSHI  #0x0000001f
49836 @ 419343:                  ASSPAR
49837 @ 419344:                  PUSH   REG
49838 @ 419347:                  ASSPAR
49839 @ 419348:                  PUSH   REG
49840 @ 419351:                  ASSPAR
49841 @ 419352:                  CALL  
49842 @ 419353:                  GOTO   L_0003
49843 @ 419356:                  LOCATE L_0004
49844 @ 419359:                  PUSH   ANDR
49845 @ 419362:                  PUSHI  #0x00000001
49846 @ 419367:                  ASSVAL
49847 @ 419368:                  LOCATE L_0003

  8424  NORMAL:  PRX(CODE, REG, X, LEVEL, DIS)
49848 @ 419371:                  LINE   8424 "regression-compile-tmp/imp918s.imp"
49849 @ 419409:                  LABEL  L_020d
49850 @ 419412:                  LINE   8424 "regression-compile-tmp/imp918s.imp"
49851 @ 419450:                  PUSH   PRX
49852 @ 419453:                  PUSH   CODE
49853 @ 419456:                  ASSPAR
49854 @ 419457:                  PUSH   REG
49855 @ 419460:                  ASSPAR
49856 @ 419461:                  PUSH   X
49857 @ 419464:                  ASSPAR
49858 @ 419465:                  PUSH   LEVEL
49859 @ 419468:                  ASSPAR
49860 @ 419469:                  PUSH   DIS
49861 @ 419472:                  ASSPAR
49862 @ 419473:                  CALL  

  8425           %IF ANDR#0 %THEN %START
49863 @ 419474:                  LINE   8425 "regression-compile-tmp/imp918s.imp"
49864 @ 419512:                  PUSH   ANDR
49865 @ 419515:                  PUSHI  #0x00000000
49866 @ 419520:                  JUMPIF = L_0004

  8426              PRX(X'54', REG, 0, GLA, 24)
49867 @ 419524:                  LINE   8426 "regression-compile-tmp/imp918s.imp"
49868 @ 419562:                  PUSH   PRX
49869 @ 419565:                  PUSHI  #0x00000054
49870 @ 419570:                  ASSPAR
49871 @ 419571:                  PUSH   REG
49872 @ 419574:                  ASSPAR
49873 @ 419575:                  PUSHI  #0x00000000
49874 @ 419580:                  ASSPAR
49875 @ 419581:                  PUSHI  #0x0000000d
49876 @ 419586:                  ASSPAR
49877 @ 419587:                  PUSHI  #0x00000018
49878 @ 419592:                  ASSPAR
49879 @ 419593:                  CALL  

  8427              CCSTATE=2<<16!REG
49880 @ 419594:                  LINE   8427 "regression-compile-tmp/imp918s.imp"
49881 @ 419632:                  PUSH   CCSTATE
49882 @ 419635:                  PUSHI  #0x00000002
49883 @ 419640:                  PUSHI  #0x00000010
49884 @ 419645:                  LSH   
49885 @ 419646:                  PUSH   REG
49886 @ 419649:                  OR    
49887 @ 419650:                  ASSVAL

  8428           %FINISH
49888 @ 419651:                  LINE   8428 "regression-compile-tmp/imp918s.imp"
49889 @ 419689:                  LOCATE L_0004

  8429  Label99: %END
49890 @ 419692:                  LINE   8429 "regression-compile-tmp/imp918s.imp"
49891 @ 419730:                  LABEL  L_0210
49892 @ 419733:                  LINE   8429 "regression-compile-tmp/imp918s.imp"
49893 @ 419771:               END    _lev0id0_CSS_DUMP {lev=3 --> 2}

  8430  %ROUTINE DUMPSI(%INTEGER OPCODE, L, B, D)
  8431  {%SHORTROUTINE}
49894 @ 419772:               LINE   8430 "regression-compile-tmp/imp918s.imp"
49895 @ 419810:               DEF    DUMPSI (_lev0id0_CSS_DUMPSI) p1=V_01a3 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
49896 @ 419828:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
49897 @ 419829:                     DEF    OPCODE p1=V_0203 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
49898 @ 419847:                     DEF    L p1=V_0204 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
49899 @ 419860:                     DEF    B p1=V_0205 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
49900 @ 419873:                     DEF    D p1=V_0206 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
49901 @ 419886:                  FINISH ) {lev=3}

  8432           %IF D>4095 %THEN ADJUST INDEX(REGISTER(B)+1, B, D)
49902 @ 419887:                  LINE   8432 "regression-compile-tmp/imp918s.imp"
49903 @ 419925:                  PUSH   D
49904 @ 419928:                  PUSHI  #0x00000fff
49905 @ 419933:                  JUMPIF <= L_0004
49906 @ 419937:                  PUSH   ADJUSTINDEX
49907 @ 419940:                  PUSH   REGISTER
49908 @ 419943:                  PUSH   B
49909 @ 419946:                  ACCESS
49910 @ 419947:                  PUSHI  #0x00000001
49911 @ 419952:                  ADD   
49912 @ 419953:                  ASSPAR
49913 @ 419954:                  PUSH   B
49914 @ 419957:                  ASSPAR
49915 @ 419958:                  PUSH   D
49916 @ 419961:                  ASSPAR
49917 @ 419962:                  CALL  
49918 @ 419963:                  LOCATE L_0004

  8433           PSI(OPCODE, L, B, D)
49919 @ 419966:                  LINE   8433 "regression-compile-tmp/imp918s.imp"
49920 @ 420004:                  PUSH   PSI
49921 @ 420007:                  PUSH   OPCODE
49922 @ 420010:                  ASSPAR
49923 @ 420011:                  PUSH   L
49924 @ 420014:                  ASSPAR
49925 @ 420015:                  PUSH   B
49926 @ 420018:                  ASSPAR
49927 @ 420019:                  PUSH   D
49928 @ 420022:                  ASSPAR
49929 @ 420023:                  CALL  

  8434  %END
49930 @ 420024:                  LINE   8434 "regression-compile-tmp/imp918s.imp"
49931 @ 420062:               END    _lev0id0_CSS_DUMPSI {lev=3 --> 2}

  8435  %ROUTINE DUMPM(%INTEGER OPCODE, R1, R2, B, D)
  8436  {%SHORTROUTINE}
49932 @ 420063:               LINE   8435 "regression-compile-tmp/imp918s.imp"
49933 @ 420101:               DEF    DUMPM (_lev0id0_CSS_DUMPM) p1=V_01a2 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
49934 @ 420118:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
49935 @ 420119:                     DEF    OPCODE p1=V_0203 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
49936 @ 420137:                     DEF    R1 p1=V_0204 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
49937 @ 420151:                     DEF    R2 p1=V_0205 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
49938 @ 420165:                     DEF    B p1=V_0206 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
49939 @ 420178:                     DEF    D p1=V_0207 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
49940 @ 420191:                  FINISH ) {lev=3}

  8437           %IF D>4095 %THEN %START
49941 @ 420192:                  LINE   8437 "regression-compile-tmp/imp918s.imp"
49942 @ 420230:                  PUSH   D
49943 @ 420233:                  PUSHI  #0x00000fff
49944 @ 420238:                  JUMPIF <= L_0004

  8438              ADJUST INDEX(REGISTER(B)+1, B, D)
49945 @ 420242:                  LINE   8438 "regression-compile-tmp/imp918s.imp"
49946 @ 420280:                  PUSH   ADJUSTINDEX
49947 @ 420283:                  PUSH   REGISTER
49948 @ 420286:                  PUSH   B
49949 @ 420289:                  ACCESS
49950 @ 420290:                  PUSHI  #0x00000001
49951 @ 420295:                  ADD   
49952 @ 420296:                  ASSPAR
49953 @ 420297:                  PUSH   B
49954 @ 420300:                  ASSPAR
49955 @ 420301:                  PUSH   D
49956 @ 420304:                  ASSPAR
49957 @ 420305:                  CALL  

  8439           %FINISH
49958 @ 420306:                  LINE   8439 "regression-compile-tmp/imp918s.imp"
49959 @ 420344:                  LOCATE L_0004

  8440           PRX(OPCODE, R1, R2, B, D)
49960 @ 420347:                  LINE   8440 "regression-compile-tmp/imp918s.imp"
49961 @ 420385:                  PUSH   PRX
49962 @ 420388:                  PUSH   OPCODE
49963 @ 420391:                  ASSPAR
49964 @ 420392:                  PUSH   R1
49965 @ 420395:                  ASSPAR
49966 @ 420396:                  PUSH   R2
49967 @ 420399:                  ASSPAR
49968 @ 420400:                  PUSH   B
49969 @ 420403:                  ASSPAR
49970 @ 420404:                  PUSH   D
49971 @ 420407:                  ASSPAR
49972 @ 420408:                  CALL  

  8441  %END
49973 @ 420409:                  LINE   8441 "regression-compile-tmp/imp918s.imp"
49974 @ 420447:               END    _lev0id0_CSS_DUMPM {lev=3 --> 2}

  8442  %ROUTINE DUMPSS(%INTEGER OP,L,B1,D1,B2,D2)
  8443  {%SHORTROUTINE}
49975 @ 420448:               LINE   8442 "regression-compile-tmp/imp918s.imp"
49976 @ 420486:               DEF    DUMPSS (_lev0id0_CSS_DUMPSS) p1=V_01a4 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
49977 @ 420504:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
49978 @ 420505:                     DEF    OP p1=V_0203 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
49979 @ 420519:                     DEF    L p1=V_0204 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
49980 @ 420532:                     DEF    B1 p1=V_0205 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
49981 @ 420546:                     DEF    D1 p1=V_0206 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
49982 @ 420560:                     DEF    B2 p1=V_0207 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
49983 @ 420574:                     DEF    D2 p1=V_0208 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
49984 @ 420588:                  FINISH ) {lev=3}

  8444           %IF D1>4095 %THEN %C
  8445              ADJUST INDEX(0,B1,D1)
49985 @ 420589:                  LINE   8444 "regression-compile-tmp/imp918s.imp"
49986 @ 420627:                  PUSH   D1
49987 @ 420630:                  PUSHI  #0x00000fff
49988 @ 420635:                  JUMPIF <= L_0004
49989 @ 420639:                  PUSH   ADJUSTINDEX
49990 @ 420642:                  PUSHI  #0x00000000
49991 @ 420647:                  ASSPAR
49992 @ 420648:                  PUSH   B1
49993 @ 420651:                  ASSPAR
49994 @ 420652:                  PUSH   D1
49995 @ 420655:                  ASSPAR
49996 @ 420656:                  CALL  
49997 @ 420657:                  LOCATE L_0004

  8446           %IF D2>4095 %THEN %C
  8447              ADJUST INDEX(0,B2,D2)
49998 @ 420660:                  LINE   8446 "regression-compile-tmp/imp918s.imp"
49999 @ 420698:                  PUSH   D2
50000 @ 420701:                  PUSHI  #0x00000fff
50001 @ 420706:                  JUMPIF <= L_0004
50002 @ 420710:                  PUSH   ADJUSTINDEX
50003 @ 420713:                  PUSHI  #0x00000000
50004 @ 420718:                  ASSPAR
50005 @ 420719:                  PUSH   B2
50006 @ 420722:                  ASSPAR
50007 @ 420723:                  PUSH   D2
50008 @ 420726:                  ASSPAR
50009 @ 420727:                  CALL  
50010 @ 420728:                  LOCATE L_0004

  8448           PSS(OP,L,B1,D1,B2,D2)
50011 @ 420731:                  LINE   8448 "regression-compile-tmp/imp918s.imp"
50012 @ 420769:                  PUSH   PSS
50013 @ 420772:                  PUSH   OP
50014 @ 420775:                  ASSPAR
50015 @ 420776:                  PUSH   L
50016 @ 420779:                  ASSPAR
50017 @ 420780:                  PUSH   B1
50018 @ 420783:                  ASSPAR
50019 @ 420784:                  PUSH   D1
50020 @ 420787:                  ASSPAR
50021 @ 420788:                  PUSH   B2
50022 @ 420791:                  ASSPAR
50023 @ 420792:                  PUSH   D2
50024 @ 420795:                  ASSPAR
50025 @ 420796:                  CALL  

  8449  %END
50026 @ 420797:                  LINE   8449 "regression-compile-tmp/imp918s.imp"
50027 @ 420835:               END    _lev0id0_CSS_DUMPSS {lev=3 --> 2}

  8450           %END;                      ! OF ROUTINE CSS
  8451  !%if INCLUDE DELSTART = 1 %start
50028 @ 420836:               LINE   8450 "regression-compile-tmp/imp918s.imp"
50029 @ 420874:            END    _lev0id0_CSS {lev=2 --> 1}

  8452  %ROUTINE CONSTLIST
  8453  {%SHORTROUTINE}
50030 @ 420875:            LINE   8452 "regression-compile-tmp/imp918s.imp"
50031 @ 420913:            DEF    CONSTLIST (_lev0id0_CONSTLIST) p1=V_0148 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
50032 @ 420934:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
50033 @ 420935:               FINISH ) {lev=2}

  8454  %INTEGER PRECP, NCONST, RF, J, K, LPUTP, KK, SIGN, RQ, BPTR,  %C
  8455              TYPEP, ACC, RP, SHR
50034 @ 420936:               LINE   8454 "regression-compile-tmp/imp918s.imp"
50035 @ 420974:               DEF    PRECP p1=V_0162 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
50036 @ 420991:               DEF    NCONST p1=V_0163 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
50037 @ 421009:               DEF    RF p1=V_0164 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
50038 @ 421023:               DEF    J p1=V_0165 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
50039 @ 421036:               DEF    K p1=V_0166 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
50040 @ 421049:               DEF    LPUTP p1=V_0167 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
50041 @ 421066:               DEF    KK p1=V_0168 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
50042 @ 421080:               DEF    SIGN p1=V_0169 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
50043 @ 421096:               DEF    RQ p1=V_016a 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
50044 @ 421110:               DEF    BPTR p1=V_016b 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
50045 @ 421126:               DEF    TYPEP p1=V_016c 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
50046 @ 421143:               DEF    ACC p1=V_016d 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
50047 @ 421158:               DEF    RP p1=V_016e 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
50048 @ 421172:               DEF    SHR p1=V_016f 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

  8456  %INTEGERNAME CONSTP
50049 @ 421187:               LINE   8456 "regression-compile-tmp/imp918s.imp"
50050 @ 421225:               DEF    CONSTP p1=V_0170 a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  8457  %BYTEINTEGER CHAR
50051 @ 421243:               LINE   8457 "regression-compile-tmp/imp918s.imp"
50052 @ 421281:               DEF    CHAR p1=V_0171 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0

  8458  %LONGREAL C
50053 @ 421297:               LINE   8458 "regression-compile-tmp/imp918s.imp"
50054 @ 421335:               DEF    C p1=V_0172 a/tf=21 b/format=4 c/ostate=0  type=2 (real) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  8459  %BYTEINTEGERARRAY BUFFER(0:264)
50055 @ 421348:               LINE   8459 "regression-compile-tmp/imp918s.imp"
50056 @ 421386:               DEF    BUFFER p1=V_0173 a/tf=1b b/format=2 c/ostate=100  type=1 (integer) form=11 (array) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
50057 @ 421404:               PUSHI  #0x00000000
50058 @ 421409:               PUSHI  #0x00000108
50059 @ 421414:               DIM    0001 0001

  8460  %ROUTINESPEC OUT(%INTEGER L, IA)
50060 @ 421420:               LINE   8460 "regression-compile-tmp/imp918s.imp"
50061 @ 421458:               DEF    OUT (_lev0id0_CONSTLIST_OUT) p1=V_0174 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
50062 @ 421473:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
50063 @ 421474:                  DEF    L p1=V_0175 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
50064 @ 421487:                  DEF    IA p1=V_0176 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
50065 @ 421501:               FINISH ) {lev=2}

  8461           NCONST=0;  BPTR=0
50066 @ 421502:               LINE   8461 "regression-compile-tmp/imp918s.imp"
50067 @ 421540:               PUSH   NCONST
50068 @ 421543:               PUSHI  #0x00000000
50069 @ 421548:               ASSVAL
50070 @ 421549:               LINE   8461 "regression-compile-tmp/imp918s.imp"
50071 @ 421587:               PUSH   BPTR
50072 @ 421590:               PUSHI  #0x00000000
50073 @ 421595:               ASSVAL

  8462           SHR=A(2)&3;                    ! 0='%CONST'
50074 @ 421596:               LINE   8462 "regression-compile-tmp/imp918s.imp"
50075 @ 421634:               PUSH   SHR
50076 @ 421637:               PUSH   A
50077 @ 421640:               PUSHI  #0x00000002
50078 @ 421645:               ACCESS
50079 @ 421646:               PUSHI  #0x00000003
50080 @ 421651:               AND   
50081 @ 421652:               ASSVAL

  8463           %IF SHR=0 %THEN CONSTP==SSTL %AND LPUTP=4 %ELSE%C
  8464                           CONSTP==CONSTPTR %AND LPUTP=5
50082 @ 421653:               LINE   8463 "regression-compile-tmp/imp918s.imp"
50083 @ 421691:               PUSH   SHR
50084 @ 421694:               PUSHI  #0x00000000
50085 @ 421699:               JUMPIF # L_0004
50086 @ 421703:               PUSH   CONSTP
50087 @ 421706:               PUSH   SSTL
50088 @ 421709:               ASSREF
50089 @ 421710:               PUSH   LPUTP
50090 @ 421713:               PUSHI  #0x00000004
50091 @ 421718:               ASSVAL
50092 @ 421719:               GOTO   L_0003
50093 @ 421722:               LOCATE L_0004
50094 @ 421725:               PUSH   CONSTP
50095 @ 421728:               PUSH   CONSTPTR
50096 @ 421731:               ASSREF
50097 @ 421732:               PUSH   LPUTP
50098 @ 421735:               PUSHI  #0x00000005
50099 @ 421740:               ASSVAL
50100 @ 421741:               LOCATE L_0003

  8465           CONSTP=(CONSTP+7)&(-8);        ! RELEVANT PTR TO D.W. BOUNDRY
50101 @ 421744:               LINE   8465 "regression-compile-tmp/imp918s.imp"
50102 @ 421782:               PUSH   CONSTP
50103 @ 421785:               PUSH   CONSTP
50104 @ 421788:               PUSHI  #0x00000007
50105 @ 421793:               ADD   
50106 @ 421794:               PUSHI  #0x00000008
50107 @ 421799:               NEGATE
50108 @ 421800:               AND   
50109 @ 421801:               ASSVAL

  8466           TOAR4(R+2, CONSTP)
50110 @ 421802:               LINE   8466 "regression-compile-tmp/imp918s.imp"
50111 @ 421840:               PUSH   TOAR4
50112 @ 421843:               PUSH   R
50113 @ 421846:               PUSHI  #0x00000002
50114 @ 421851:               ADD   
50115 @ 421852:               ASSPAR
50116 @ 421853:               PUSH   CONSTP
50117 @ 421856:               ASSPAR
50118 @ 421857:               CALL  

  8467           RP=R;  R=R+4
50119 @ 421858:               LINE   8467 "regression-compile-tmp/imp918s.imp"
50120 @ 421896:               PUSH   RP
50121 @ 421899:               PUSH   R
50122 @ 421902:               ASSVAL
50123 @ 421903:               LINE   8467 "regression-compile-tmp/imp918s.imp"
50124 @ 421941:               PUSH   R
50125 @ 421944:               PUSH   R
50126 @ 421947:               PUSHI  #0x00000004
50127 @ 421952:               ADD   
50128 @ 421953:               ASSVAL

  8468           TYPEP=TYPEFLAG(A(4));  PRECP=TYPEP>>3
50129 @ 421954:               LINE   8468 "regression-compile-tmp/imp918s.imp"
50130 @ 421992:               PUSH   TYPEP
50131 @ 421995:               PUSH   TYPEFLAG
50132 @ 421998:               PUSH   A
50133 @ 422001:               PUSHI  #0x00000004
50134 @ 422006:               ACCESS
50135 @ 422007:               ACCESS
50136 @ 422008:               ASSVAL
50137 @ 422009:               LINE   8468 "regression-compile-tmp/imp918s.imp"
50138 @ 422047:               PUSH   PRECP
50139 @ 422050:               PUSH   TYPEP
50140 @ 422053:               PUSHI  #0x00000003
50141 @ 422058:               RSH   
50142 @ 422059:               ASSVAL

  8469           TYPEP=TYPEP&7
50143 @ 422060:               LINE   8469 "regression-compile-tmp/imp918s.imp"
50144 @ 422098:               PUSH   TYPEP
50145 @ 422101:               PUSH   TYPEP
50146 @ 422104:               PUSHI  #0x00000007
50147 @ 422109:               AND   
50148 @ 422110:               ASSVAL

  8470           PRECP=3 %IF TYPEP=2 %AND ALL LONG=1
50149 @ 422111:               LINE   8470 "regression-compile-tmp/imp918s.imp"
50150 @ 422149:               PUSH   TYPEP
50151 @ 422152:               PUSHI  #0x00000002
50152 @ 422157:               JUMPIF # L_0004
50153 @ 422161:               PUSH   ALLLONG
50154 @ 422164:               PUSHI  #0x00000001
50155 @ 422169:               JUMPIF # L_0004
50156 @ 422173:               PUSH   PRECP
50157 @ 422176:               PUSHI  #0x00000003
50158 @ 422181:               ASSVAL
50159 @ 422182:               LOCATE L_0004

  8471           %IF TYPEP=5 %THEN  ACC=A(6) %ELSE ACC=BYTES(PRECP)
50160 @ 422185:               LINE   8471 "regression-compile-tmp/imp918s.imp"
50161 @ 422223:               PUSH   TYPEP
50162 @ 422226:               PUSHI  #0x00000005
50163 @ 422231:               JUMPIF # L_0004
50164 @ 422235:               PUSH   ACC
50165 @ 422238:               PUSH   A
50166 @ 422241:               PUSHI  #0x00000006
50167 @ 422246:               ACCESS
50168 @ 422247:               ASSVAL
50169 @ 422248:               GOTO   L_0003
50170 @ 422251:               LOCATE L_0004
50171 @ 422254:               PUSH   ACC
50172 @ 422257:               PUSH   BYTES
50173 @ 422260:               PUSH   PRECP
50174 @ 422263:               ACCESS
50175 @ 422264:               ASSVAL
50176 @ 422265:               LOCATE L_0003

  8472  Label6:       RQ=Q;  CHAR=BYTE INTEGER(Q)
50177 @ 422268:               LINE   8472 "regression-compile-tmp/imp918s.imp"
50178 @ 422306:               LABEL  L_0175
50179 @ 422309:               LINE   8472 "regression-compile-tmp/imp918s.imp"
50180 @ 422347:               PUSH   RQ
50181 @ 422350:               PUSH   Q
50182 @ 422353:               ASSVAL
50183 @ 422354:               LINE   8472 "regression-compile-tmp/imp918s.imp"
50184 @ 422392:               PUSH   CHAR
50185 @ 422395:               PUSH   BYTEINTEGER
50186 @ 422398:               PUSH   Q
50187 @ 422401:               ASSPAR
50188 @ 422402:               CALL  
50189 @ 422403:               ASSVAL

  8473           SIGN=1
50190 @ 422404:               LINE   8473 "regression-compile-tmp/imp918s.imp"
50191 @ 422442:               PUSH   SIGN
50192 @ 422445:               PUSHI  #0x00000001
50193 @ 422450:               ASSVAL

  8474           %IF CHAR='-' %THEN SIGN=-1
50194 @ 422451:               LINE   8474 "regression-compile-tmp/imp918s.imp"
50195 @ 422489:               PUSH   CHAR
50196 @ 422492:               PUSHI  #0x0000002d
50197 @ 422497:               JUMPIF # L_0004
50198 @ 422501:               PUSH   SIGN
50199 @ 422504:               PUSHI  #0x00000001
50200 @ 422509:               NEGATE
50201 @ 422510:               ASSVAL
50202 @ 422511:               LOCATE L_0004

  8475           %IF CHAR='+' %OR CHAR='-' %THEN Q=Q+1
50203 @ 422514:               LINE   8475 "regression-compile-tmp/imp918s.imp"
50204 @ 422552:               PUSH   CHAR
50205 @ 422555:               PUSHI  #0x0000002b
50206 @ 422560:               JUMPIF = L_0005
50207 @ 422564:               PUSH   CHAR
50208 @ 422567:               PUSHI  #0x0000002d
50209 @ 422572:               JUMPIF # L_0004
50210 @ 422576:               LOCATE L_0005
50211 @ 422579:               PUSH   Q
50212 @ 422582:               PUSH   Q
50213 @ 422585:               PUSHI  #0x00000001
50214 @ 422590:               ADD   
50215 @ 422591:               ASSVAL
50216 @ 422592:               LOCATE L_0004

  8476           CONST(0);  RF=1
50217 @ 422595:               LINE   8476 "regression-compile-tmp/imp918s.imp"
50218 @ 422633:               PUSH   CONST
50219 @ 422636:               PUSHI  #0x00000000
50220 @ 422641:               ASSPAR
50221 @ 422642:               CALL  
50222 @ 422643:               LINE   8476 "regression-compile-tmp/imp918s.imp"
50223 @ 422681:               PUSH   RF
50224 @ 422684:               PUSHI  #0x00000001
50225 @ 422689:               ASSVAL

  8477           ->Label98 %IF HIT=0
50226 @ 422690:               LINE   8477 "regression-compile-tmp/imp918s.imp"
50227 @ 422728:               PUSH   HIT
50228 @ 422731:               PUSHI  #0x00000000
50229 @ 422736:               JUMPIF # L_0004
50230 @ 422740:               JUMP   L_0176
50231 @ 422743:               LOCATE L_0004

  8478           ->Label1 %UNLESS BYTE INTEGER(Q)='('
50232 @ 422746:               LINE   8478 "regression-compile-tmp/imp918s.imp"
50233 @ 422784:               PUSH   BYTEINTEGER
50234 @ 422787:               PUSH   Q
50235 @ 422790:               ASSPAR
50236 @ 422791:               CALL  
50237 @ 422792:               PUSHI  #0x00000028
50238 @ 422797:               JUMPIF = L_0004
50239 @ 422801:               JUMP   L_0177
50240 @ 422804:               LOCATE L_0004

  8479           J=S;  Q=Q+1;  C=CVALUE;  K=CTYPE
50241 @ 422807:               LINE   8479 "regression-compile-tmp/imp918s.imp"
50242 @ 422845:               PUSH   J
50243 @ 422848:               PUSH   S
50244 @ 422851:               ASSVAL
50245 @ 422852:               LINE   8479 "regression-compile-tmp/imp918s.imp"
50246 @ 422890:               PUSH   Q
50247 @ 422893:               PUSH   Q
50248 @ 422896:               PUSHI  #0x00000001
50249 @ 422901:               ADD   
50250 @ 422902:               ASSVAL
50251 @ 422903:               LINE   8479 "regression-compile-tmp/imp918s.imp"
50252 @ 422941:               PUSH   C
50253 @ 422944:               PUSH   CVALUE
50254 @ 422947:               ASSVAL
50255 @ 422948:               LINE   8479 "regression-compile-tmp/imp918s.imp"
50256 @ 422986:               PUSH   K
50257 @ 422989:               PUSH   CTYPE
50258 @ 422992:               ASSVAL

  8480           CONST(2)
50259 @ 422993:               LINE   8480 "regression-compile-tmp/imp918s.imp"
50260 @ 423031:               PUSH   CONST
50261 @ 423034:               PUSHI  #0x00000002
50262 @ 423039:               ASSPAR
50263 @ 423040:               CALL  

  8481           ->Label98 %UNLESS HIT=1 %AND S>0 %AND BYTE INTEGER(Q)=')'
50264 @ 423041:               LINE   8481 "regression-compile-tmp/imp918s.imp"
50265 @ 423079:               PUSH   HIT
50266 @ 423082:               PUSHI  #0x00000001
50267 @ 423087:               JUMPIF # L_0005
50268 @ 423091:               PUSH   S
50269 @ 423094:               PUSHI  #0x00000000
50270 @ 423099:               JUMPIF <= L_0005
50271 @ 423103:               PUSH   BYTEINTEGER
50272 @ 423106:               PUSH   Q
50273 @ 423109:               ASSPAR
50274 @ 423110:               CALL  
50275 @ 423111:               PUSHI  #0x00000029
50276 @ 423116:               JUMPIF = L_0004
50277 @ 423120:               LOCATE L_0005
50278 @ 423123:               JUMP   L_0176
50279 @ 423126:               LOCATE L_0004

  8482           Q=Q+1
50280 @ 423129:               LINE   8482 "regression-compile-tmp/imp918s.imp"
50281 @ 423167:               PUSH   Q
50282 @ 423170:               PUSH   Q
50283 @ 423173:               PUSHI  #0x00000001
50284 @ 423178:               ADD   
50285 @ 423179:               ASSVAL

  8483           CVALUE=C;  RF=S;  S=J;  CTYPE=K
50286 @ 423180:               LINE   8483 "regression-compile-tmp/imp918s.imp"
50287 @ 423218:               PUSH   CVALUE
50288 @ 423221:               PUSH   C
50289 @ 423224:               ASSVAL
50290 @ 423225:               LINE   8483 "regression-compile-tmp/imp918s.imp"
50291 @ 423263:               PUSH   RF
50292 @ 423266:               PUSH   S
50293 @ 423269:               ASSVAL
50294 @ 423270:               LINE   8483 "regression-compile-tmp/imp918s.imp"
50295 @ 423308:               PUSH   S
50296 @ 423311:               PUSH   J
50297 @ 423314:               ASSVAL
50298 @ 423315:               LINE   8483 "regression-compile-tmp/imp918s.imp"
50299 @ 423353:               PUSH   CTYPE
50300 @ 423356:               PUSH   K
50301 @ 423359:               ASSVAL

  8484  Label1:       %IF TYPEP=5 %THEN %START
50302 @ 423360:               LINE   8484 "regression-compile-tmp/imp918s.imp"
50303 @ 423398:               LABEL  L_0177
50304 @ 423401:               LINE   8484 "regression-compile-tmp/imp918s.imp"
50305 @ 423439:               PUSH   TYPEP
50306 @ 423442:               PUSHI  #0x00000005
50307 @ 423447:               JUMPIF # L_0004

  8485              %IF CTYPE#5 %THEN %START
50308 @ 423451:               LINE   8485 "regression-compile-tmp/imp918s.imp"
50309 @ 423489:               PUSH   CTYPE
50310 @ 423492:               PUSHI  #0x00000005
50311 @ 423497:               JUMPIF = L_0007

  8486                 ->Label98 %UNLESS CTYPE=1 %AND S<127
50312 @ 423501:               LINE   8486 "regression-compile-tmp/imp918s.imp"
50313 @ 423539:               PUSH   CTYPE
50314 @ 423542:               PUSHI  #0x00000001
50315 @ 423547:               JUMPIF # L_000b
50316 @ 423551:               PUSH   S
50317 @ 423554:               PUSHI  #0x0000007f
50318 @ 423559:               JUMPIF < L_000a
50319 @ 423563:               LOCATE L_000b
50320 @ 423566:               JUMP   L_0176
50321 @ 423569:               LOCATE L_000a

  8487                 A(RP+6)=S<<8;  S=1 %UNLESS S=0;  A(RP+5)=S
50322 @ 423572:               LINE   8487 "regression-compile-tmp/imp918s.imp"
50323 @ 423610:               PUSH   A
50324 @ 423613:               PUSH   RP
50325 @ 423616:               PUSHI  #0x00000006
50326 @ 423621:               ADD   
50327 @ 423622:               ACCESS
50328 @ 423623:               PUSH   S
50329 @ 423626:               PUSHI  #0x00000008
50330 @ 423631:               LSH   
50331 @ 423632:               ASSVAL
50332 @ 423633:               LINE   8487 "regression-compile-tmp/imp918s.imp"
50333 @ 423671:               PUSH   S
50334 @ 423674:               PUSHI  #0x00000000
50335 @ 423679:               JUMPIF = L_000a
50336 @ 423683:               PUSH   S
50337 @ 423686:               PUSHI  #0x00000001
50338 @ 423691:               ASSVAL
50339 @ 423692:               LOCATE L_000a
50340 @ 423695:               LINE   8487 "regression-compile-tmp/imp918s.imp"
50341 @ 423733:               PUSH   A
50342 @ 423736:               PUSH   RP
50343 @ 423739:               PUSHI  #0x00000005
50344 @ 423744:               ADD   
50345 @ 423745:               ACCESS
50346 @ 423746:               PUSH   S
50347 @ 423749:               ASSVAL

  8488              %FINISH
50348 @ 423750:               LINE   8488 "regression-compile-tmp/imp918s.imp"
50349 @ 423788:               LOCATE L_0007

  8489              ->Label98 %UNLESS SIGN=1 %AND ACC>=A(RP+5)
50350 @ 423791:               LINE   8489 "regression-compile-tmp/imp918s.imp"
50351 @ 423829:               PUSH   SIGN
50352 @ 423832:               PUSHI  #0x00000001
50353 @ 423837:               JUMPIF # L_0008
50354 @ 423841:               PUSH   ACC
50355 @ 423844:               PUSH   A
50356 @ 423847:               PUSH   RP
50357 @ 423850:               PUSHI  #0x00000005
50358 @ 423855:               ADD   
50359 @ 423856:               ACCESS
50360 @ 423857:               JUMPIF >= L_0007
50361 @ 423861:               LOCATE L_0008
50362 @ 423864:               JUMP   L_0176
50363 @ 423867:               LOCATE L_0007

  8490           %FINISH %ELSE %START
50364 @ 423870:               LINE   8490 "regression-compile-tmp/imp918s.imp"
50365 @ 423908:               GOTO   L_0003
50366 @ 423911:               LOCATE L_0004

  8491              %IF CTYPE=5 %THEN ->Label98
50367 @ 423914:               LINE   8491 "regression-compile-tmp/imp918s.imp"
50368 @ 423952:               PUSH   CTYPE
50369 @ 423955:               PUSHI  #0x00000005
50370 @ 423960:               JUMPIF # L_0007
50371 @ 423964:               JUMP   L_0176
50372 @ 423967:               LOCATE L_0007

  8492              %IF TYPEP=2 %THEN %START
50373 @ 423970:               LINE   8492 "regression-compile-tmp/imp918s.imp"
50374 @ 424008:               PUSH   TYPEP
50375 @ 424011:               PUSHI  #0x00000002
50376 @ 424016:               JUMPIF # L_0007

  8493                 %IF CTYPE=1 %THEN CVALUE=S
50377 @ 424020:               LINE   8493 "regression-compile-tmp/imp918s.imp"
50378 @ 424058:               PUSH   CTYPE
50379 @ 424061:               PUSHI  #0x00000001
50380 @ 424066:               JUMPIF # L_000a
50381 @ 424070:               PUSH   CVALUE
50382 @ 424073:               PUSH   S
50383 @ 424076:               ASSVAL
50384 @ 424077:               LOCATE L_000a

  8494                 %IF SIGN<0 %THEN CVALUE=-CVALUE
50385 @ 424080:               LINE   8494 "regression-compile-tmp/imp918s.imp"
50386 @ 424118:               PUSH   SIGN
50387 @ 424121:               PUSHI  #0x00000000
50388 @ 424126:               JUMPIF >= L_000a
50389 @ 424130:               PUSH   CVALUE
50390 @ 424133:               PUSH   CVALUE
50391 @ 424136:               NEGATE
50392 @ 424137:               ASSVAL
50393 @ 424138:               LOCATE L_000a

  8495                 J=ADDR(CVALUE)
50394 @ 424141:               LINE   8495 "regression-compile-tmp/imp918s.imp"
50395 @ 424179:               PUSH   J
50396 @ 424182:               PUSH   ADDR
50397 @ 424185:               PUSH   CVALUE
50398 @ 424188:               ASSPAR
50399 @ 424189:               CALL  
50400 @ 424190:               ASSVAL

  8496              %FINISH %ELSE %START
50401 @ 424191:               LINE   8496 "regression-compile-tmp/imp918s.imp"
50402 @ 424229:               GOTO   L_0006
50403 @ 424232:               LOCATE L_0007

  8497                 S=S*SIGN
50404 @ 424235:               LINE   8497 "regression-compile-tmp/imp918s.imp"
50405 @ 424273:               PUSH   S
50406 @ 424276:               PUSH   S
50407 @ 424279:               PUSH   SIGN
50408 @ 424282:               MUL   
50409 @ 424283:               ASSVAL

  8498                 %IF (PRECP=1 %AND S&X'FFFFFF00'#0) %OR %C
  8499                     (PRECP=2 %AND (|S|)&X'FFFF0000'#0) %THEN ->Label98
50410 @ 424284:               LINE   8498 "regression-compile-tmp/imp918s.imp"
50411 @ 424322:               PUSH   PRECP
50412 @ 424325:               PUSHI  #0x00000001
50413 @ 424330:               JUMPIF # L_000c
50414 @ 424334:               PUSH   S
50415 @ 424337:               PUSHI  #0xffffff00
50416 @ 424342:               AND   
50417 @ 424343:               PUSHI  #0x00000000
50418 @ 424348:               JUMPIF # L_000b
50419 @ 424352:               LOCATE L_000c
50420 @ 424355:               PUSH   PRECP
50421 @ 424358:               PUSHI  #0x00000002
50422 @ 424363:               JUMPIF # L_000a
50423 @ 424367:               PUSH   S
50424 @ 424370:               MOD   
50425 @ 424371:               PUSHI  #0xffff0000
50426 @ 424376:               AND   
50427 @ 424377:               PUSHI  #0x00000000
50428 @ 424382:               JUMPIF = L_000a
50429 @ 424386:               LOCATE L_000b
50430 @ 424389:               JUMP   L_0176
50431 @ 424392:               LOCATE L_000a

  8500                 J=ADDR(S)+4-ACC
50432 @ 424395:               LINE   8500 "regression-compile-tmp/imp918s.imp"
50433 @ 424433:               PUSH   J
50434 @ 424436:               PUSH   ADDR
50435 @ 424439:               PUSH   S
50436 @ 424442:               ASSPAR
50437 @ 424443:               CALL  
50438 @ 424444:               PUSHI  #0x00000004
50439 @ 424449:               ADD   
50440 @ 424450:               PUSH   ACC
50441 @ 424453:               SUB   
50442 @ 424454:               ASSVAL

  8501              %FINISH
50443 @ 424455:               LINE   8501 "regression-compile-tmp/imp918s.imp"
50444 @ 424493:               LOCATE L_0006

  8502           %FINISH
50445 @ 424496:               LINE   8502 "regression-compile-tmp/imp918s.imp"
50446 @ 424534:               LOCATE L_0003

  8503           %CYCLE KK=1, 1, RF
50447 @ 424537:               LINE   8503 "regression-compile-tmp/imp918s.imp"
50448 @ 424575:               PUSH   KK
50449 @ 424578:               PUSHI  #0x00000001
50450 @ 424583:               PUSH   RF
50451 @ 424586:               PUSHI  #0x00000001
50452 @ 424591:               FOR    L_0003

  8504              %IF TYPEP=5 %THEN OUT(ACC+1, ADDR(A(RP+5))+1) %ELSE %START
  8505  !%if USE MC = 1 %start
  8506  !               **1,@BUFFER(BPTR);  *L_2,J
  8507  !               *MVC_0(8,1),0(2);        ! MOVE IN CONSTANT RUBBISH
  8508  !%finish
50453 @ 424594:               LINE   8504 "regression-compile-tmp/imp918s.imp"
50454 @ 424632:               PUSH   TYPEP
50455 @ 424635:               PUSHI  #0x00000005
50456 @ 424640:               JUMPIF # L_0007
50457 @ 424644:               PUSH   OUT
50458 @ 424647:               PUSH   ACC
50459 @ 424650:               PUSHI  #0x00000001
50460 @ 424655:               ADD   
50461 @ 424656:               ASSPAR
50462 @ 424657:               PUSH   ADDR
50463 @ 424660:               PUSH   A
50464 @ 424663:               PUSH   RP
50465 @ 424666:               PUSHI  #0x00000005
50466 @ 424671:               ADD   
50467 @ 424672:               ACCESS
50468 @ 424673:               ASSPAR
50469 @ 424674:               CALL  
50470 @ 424675:               PUSHI  #0x00000001
50471 @ 424680:               ADD   
50472 @ 424681:               ASSPAR
50473 @ 424682:               CALL  
50474 @ 424683:               GOTO   L_0006
50475 @ 424686:               LOCATE L_0007

  8509                 BPTR=BPTR+ACC
50476 @ 424689:               LINE   8509 "regression-compile-tmp/imp918s.imp"
50477 @ 424727:               PUSH   BPTR
50478 @ 424730:               PUSH   BPTR
50479 @ 424733:               PUSH   ACC
50480 @ 424736:               ADD   
50481 @ 424737:               ASSVAL

  8510                 %IF BPTR=256 %THEN OUT(256, ADDR(BUFFER(0)))
50482 @ 424738:               LINE   8510 "regression-compile-tmp/imp918s.imp"
50483 @ 424776:               PUSH   BPTR
50484 @ 424779:               PUSHI  #0x00000100
50485 @ 424784:               JUMPIF # L_000a
50486 @ 424788:               PUSH   OUT
50487 @ 424791:               PUSHI  #0x00000100
50488 @ 424796:               ASSPAR
50489 @ 424797:               PUSH   ADDR
50490 @ 424800:               PUSH   BUFFER
50491 @ 424803:               PUSHI  #0x00000000
50492 @ 424808:               ACCESS
50493 @ 424809:               ASSPAR
50494 @ 424810:               CALL  
50495 @ 424811:               ASSPAR
50496 @ 424812:               CALL  
50497 @ 424813:               LOCATE L_000a

  8511              %FINISH;  NCONST=NCONST+1
50498 @ 424816:               LINE   8511 "regression-compile-tmp/imp918s.imp"
50499 @ 424854:               LOCATE L_0006
50500 @ 424857:               LINE   8511 "regression-compile-tmp/imp918s.imp"
50501 @ 424895:               PUSH   NCONST
50502 @ 424898:               PUSH   NCONST
50503 @ 424901:               PUSHI  #0x00000001
50504 @ 424906:               ADD   
50505 @ 424907:               ASSVAL

  8512           %REPEAT;  R=RP+4
50506 @ 424908:               LINE   8512 "regression-compile-tmp/imp918s.imp"
50507 @ 424946:               REPEAT L_0003
50508 @ 424949:               LOCATE L_0004
50509 @ 424952:               LINE   8512 "regression-compile-tmp/imp918s.imp"
50510 @ 424990:               PUSH   R
50511 @ 424993:               PUSH   RP
50512 @ 424996:               PUSHI  #0x00000004
50513 @ 425001:               ADD   
50514 @ 425002:               ASSVAL

  8513           ->Label99 %UNLESS BYTE INTEGER(Q)=',';  Q=Q+1
50515 @ 425003:               LINE   8513 "regression-compile-tmp/imp918s.imp"
50516 @ 425041:               PUSH   BYTEINTEGER
50517 @ 425044:               PUSH   Q
50518 @ 425047:               ASSPAR
50519 @ 425048:               CALL  
50520 @ 425049:               PUSHI  #0x0000002c
50521 @ 425054:               JUMPIF = L_0004
50522 @ 425058:               JUMP   L_0178
50523 @ 425061:               LOCATE L_0004
50524 @ 425064:               LINE   8513 "regression-compile-tmp/imp918s.imp"
50525 @ 425102:               PUSH   Q
50526 @ 425105:               PUSH   Q
50527 @ 425108:               PUSHI  #0x00000001
50528 @ 425113:               ADD   
50529 @ 425114:               ASSVAL

  8514           ->Label6 %UNLESS BYTE INTEGER(Q)=10
50530 @ 425115:               LINE   8514 "regression-compile-tmp/imp918s.imp"
50531 @ 425153:               PUSH   BYTEINTEGER
50532 @ 425156:               PUSH   Q
50533 @ 425159:               ASSPAR
50534 @ 425160:               CALL  
50535 @ 425161:               PUSHI  #0x0000000a
50536 @ 425166:               JUMPIF = L_0004
50537 @ 425170:               JUMP   L_0175
50538 @ 425173:               LOCATE L_0004

  8515           READ LINE(0,0);  Q=ADDR(CC(1));  ->Label6
50539 @ 425176:               LINE   8515 "regression-compile-tmp/imp918s.imp"
50540 @ 425214:               PUSH   READLINE
50541 @ 425217:               PUSHI  #0x00000000
50542 @ 425222:               ASSPAR
50543 @ 425223:               PUSHI  #0x00000000
50544 @ 425228:               ASSPAR
50545 @ 425229:               CALL  
50546 @ 425230:               LINE   8515 "regression-compile-tmp/imp918s.imp"
50547 @ 425268:               PUSH   Q
50548 @ 425271:               PUSH   ADDR
50549 @ 425274:               PUSH   CC
50550 @ 425277:               PUSHI  #0x00000001
50551 @ 425282:               ACCESS
50552 @ 425283:               ASSPAR
50553 @ 425284:               CALL  
50554 @ 425285:               ASSVAL
50555 @ 425286:               LINE   8515 "regression-compile-tmp/imp918s.imp"
50556 @ 425324:               JUMP   L_0175

  8516  Label98:      Q=RQ
50557 @ 425327:               LINE   8516 "regression-compile-tmp/imp918s.imp"
50558 @ 425365:               LABEL  L_0176
50559 @ 425368:               LINE   8516 "regression-compile-tmp/imp918s.imp"
50560 @ 425406:               PUSH   Q
50561 @ 425409:               PUSH   RQ
50562 @ 425412:               ASSVAL

  8517  Label99:      R=RP+4;  TOAR4(RP, NCONST)
50563 @ 425413:               LINE   8517 "regression-compile-tmp/imp918s.imp"
50564 @ 425451:               LABEL  L_0178
50565 @ 425454:               LINE   8517 "regression-compile-tmp/imp918s.imp"
50566 @ 425492:               PUSH   R
50567 @ 425495:               PUSH   RP
50568 @ 425498:               PUSHI  #0x00000004
50569 @ 425503:               ADD   
50570 @ 425504:               ASSVAL
50571 @ 425505:               LINE   8517 "regression-compile-tmp/imp918s.imp"
50572 @ 425543:               PUSH   TOAR4
50573 @ 425546:               PUSH   RP
50574 @ 425549:               ASSPAR
50575 @ 425550:               PUSH   NCONST
50576 @ 425553:               ASSPAR
50577 @ 425554:               CALL  

  8518           %IF TYPEP#5 %AND BPTR>0 %THEN OUT(BPTR, ADDR(BUFFER(0)))
50578 @ 425555:               LINE   8518 "regression-compile-tmp/imp918s.imp"
50579 @ 425593:               PUSH   TYPEP
50580 @ 425596:               PUSHI  #0x00000005
50581 @ 425601:               JUMPIF = L_0004
50582 @ 425605:               PUSH   BPTR
50583 @ 425608:               PUSHI  #0x00000000
50584 @ 425613:               JUMPIF <= L_0004
50585 @ 425617:               PUSH   OUT
50586 @ 425620:               PUSH   BPTR
50587 @ 425623:               ASSPAR
50588 @ 425624:               PUSH   ADDR
50589 @ 425627:               PUSH   BUFFER
50590 @ 425630:               PUSHI  #0x00000000
50591 @ 425635:               ACCESS
50592 @ 425636:               ASSPAR
50593 @ 425637:               CALL  
50594 @ 425638:               ASSPAR
50595 @ 425639:               CALL  
50596 @ 425640:               LOCATE L_0004

  8519           CONSTP=(CONSTP+3)&(-4)
50597 @ 425643:               LINE   8519 "regression-compile-tmp/imp918s.imp"
50598 @ 425681:               PUSH   CONSTP
50599 @ 425684:               PUSH   CONSTP
50600 @ 425687:               PUSHI  #0x00000003
50601 @ 425692:               ADD   
50602 @ 425693:               PUSHI  #0x00000004
50603 @ 425698:               NEGATE
50604 @ 425699:               AND   
50605 @ 425700:               ASSVAL

  8520           ->Label999
50606 @ 425701:               LINE   8520 "regression-compile-tmp/imp918s.imp"
50607 @ 425739:               JUMP   L_0179

  8521  %ROUTINE OUT(%INTEGER L, IA)
50608 @ 425742:               LINE   8521 "regression-compile-tmp/imp918s.imp"
50609 @ 425780:               DEF    OUT (_lev0id0_CONSTLIST_OUT) p1=V_0174 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
50610 @ 425795:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
50611 @ 425796:                     DEF    L p1=V_017a 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
50612 @ 425809:                     DEF    IA p1=V_017b 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
50613 @ 425823:                  FINISH ) {lev=3}

  8522           LPUT(LPUTP, L, CONSTP, IA) %IF INHCODE=0
50614 @ 425824:                  LINE   8522 "regression-compile-tmp/imp918s.imp"
50615 @ 425862:                  PUSH   INHCODE
50616 @ 425865:                  PUSHI  #0x00000000
50617 @ 425870:                  JUMPIF # L_0004
50618 @ 425874:                  PUSH   LPUT
50619 @ 425877:                  PUSH   LPUTP
50620 @ 425880:                  ASSPAR
50621 @ 425881:                  PUSH   L
50622 @ 425884:                  ASSPAR
50623 @ 425885:                  PUSH   CONSTP
50624 @ 425888:                  ASSPAR
50625 @ 425889:                  PUSH   IA
50626 @ 425892:                  ASSPAR
50627 @ 425893:                  CALL  
50628 @ 425894:                  LOCATE L_0004

  8523           CONSTP=CONSTP+L
50629 @ 425897:                  LINE   8523 "regression-compile-tmp/imp918s.imp"
50630 @ 425935:                  PUSH   CONSTP
50631 @ 425938:                  PUSH   CONSTP
50632 @ 425941:                  PUSH   L
50633 @ 425944:                  ADD   
50634 @ 425945:                  ASSVAL

  8524           BPTR=0
50635 @ 425946:                  LINE   8524 "regression-compile-tmp/imp918s.imp"
50636 @ 425984:                  PUSH   BPTR
50637 @ 425987:                  PUSHI  #0x00000000
50638 @ 425992:                  ASSVAL

  8525  %END
50639 @ 425993:                  LINE   8525 "regression-compile-tmp/imp918s.imp"
50640 @ 426031:               END    _lev0id0_CONSTLIST_OUT {lev=3 --> 2}

  8526  Label999: %END
50641 @ 426032:               LINE   8526 "regression-compile-tmp/imp918s.imp"
50642 @ 426070:               LABEL  L_0179
50643 @ 426073:               LINE   8526 "regression-compile-tmp/imp918s.imp"
50644 @ 426111:            END    _lev0id0_CONSTLIST {lev=2 --> 1}

  8527  %ROUTINE TEXTTEXT
50645 @ 426112:            LINE   8527 "regression-compile-tmp/imp918s.imp"
50646 @ 426150:            DEF    TEXTTEXT (_lev0id0_TEXTTEXT) p1=V_0149 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
50647 @ 426170:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
50648 @ 426171:               FINISH ) {lev=2}

  8528  %INTEGER J, QU, ARAD
50649 @ 426172:               LINE   8528 "regression-compile-tmp/imp918s.imp"
50650 @ 426210:               DEF    J p1=V_0162 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
50651 @ 426223:               DEF    QU p1=V_0163 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
50652 @ 426237:               DEF    ARAD p1=V_0164 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

  8529           S=R; HIT=0
50653 @ 426253:               LINE   8529 "regression-compile-tmp/imp918s.imp"
50654 @ 426291:               PUSH   S
50655 @ 426294:               PUSH   R
50656 @ 426297:               ASSVAL
50657 @ 426298:               LINE   8529 "regression-compile-tmp/imp918s.imp"
50658 @ 426336:               PUSH   HIT
50659 @ 426339:               PUSHI  #0x00000000
50660 @ 426344:               ASSVAL

  8530           J=0; ARAD=ADDR(A(R+1))
50661 @ 426345:               LINE   8530 "regression-compile-tmp/imp918s.imp"
50662 @ 426383:               PUSH   J
50663 @ 426386:               PUSHI  #0x00000000
50664 @ 426391:               ASSVAL
50665 @ 426392:               LINE   8530 "regression-compile-tmp/imp918s.imp"
50666 @ 426430:               PUSH   ARAD
50667 @ 426433:               PUSH   ADDR
50668 @ 426436:               PUSH   A
50669 @ 426439:               PUSH   R
50670 @ 426442:               PUSHI  #0x00000001
50671 @ 426447:               ADD   
50672 @ 426448:               ACCESS
50673 @ 426449:               ASSPAR
50674 @ 426450:               CALL  
50675 @ 426451:               ASSVAL

  8531           %RETURN %UNLESS I=M'''' %OR I=34;! FAIL UNLESS  INITIAL QUOTE
50676 @ 426452:               LINE   8531 "regression-compile-tmp/imp918s.imp"
50677 @ 426490:               PUSH   I
50678 @ 426493:               PUSHI  #0x00000027
50679 @ 426498:               JUMPIF = L_0004
50680 @ 426502:               PUSH   I
50681 @ 426505:               PUSHI  #0x00000022
50682 @ 426510:               JUMPIF = L_0004
50683 @ 426514:               RETURN
50684 @ 426515:               LOCATE L_0004

  8532           QU=I; Q=Q+1
50685 @ 426518:               LINE   8532 "regression-compile-tmp/imp918s.imp"
50686 @ 426556:               PUSH   QU
50687 @ 426559:               PUSH   I
50688 @ 426562:               ASSVAL
50689 @ 426563:               LINE   8532 "regression-compile-tmp/imp918s.imp"
50690 @ 426601:               PUSH   Q
50691 @ 426604:               PUSH   Q
50692 @ 426607:               PUSHI  #0x00000001
50693 @ 426612:               ADD   
50694 @ 426613:               ASSVAL

  8533           %CYCLE
50695 @ 426614:               LINE   8533 "regression-compile-tmp/imp918s.imp"
50696 @ 426652:               LOCATE L_0003

  8534              I=BYTE INTEGER(Q)
50697 @ 426655:               LINE   8534 "regression-compile-tmp/imp918s.imp"
50698 @ 426693:               PUSH   I
50699 @ 426696:               PUSH   BYTEINTEGER
50700 @ 426699:               PUSH   Q
50701 @ 426702:               ASSPAR
50702 @ 426703:               CALL  
50703 @ 426704:               ASSVAL

  8535              %IF I=QU %THEN %START
50704 @ 426705:               LINE   8535 "regression-compile-tmp/imp918s.imp"
50705 @ 426743:               PUSH   I
50706 @ 426746:               PUSH   QU
50707 @ 426749:               JUMPIF # L_0007

  8536                 Q=Q+1
50708 @ 426753:               LINE   8536 "regression-compile-tmp/imp918s.imp"
50709 @ 426791:               PUSH   Q
50710 @ 426794:               PUSH   Q
50711 @ 426797:               PUSHI  #0x00000001
50712 @ 426802:               ADD   
50713 @ 426803:               ASSVAL

  8537                 %IF BYTE INTEGER(Q)#QU %THEN %EXIT
50714 @ 426804:               LINE   8537 "regression-compile-tmp/imp918s.imp"
50715 @ 426842:               PUSH   BYTEINTEGER
50716 @ 426845:               PUSH   Q
50717 @ 426848:               ASSPAR
50718 @ 426849:               CALL  
50719 @ 426850:               PUSH   QU
50720 @ 426853:               JUMPIF = L_000a
50721 @ 426857:               GOTO   L_0004
50722 @ 426860:               LOCATE L_000a

  8538              %FINISH
50723 @ 426863:               LINE   8538 "regression-compile-tmp/imp918s.imp"
50724 @ 426901:               LOCATE L_0007

  8539              BYTEINTEGER(ARAD)=I
50725 @ 426904:               LINE   8539 "regression-compile-tmp/imp918s.imp"
50726 @ 426942:               PUSH   BYTEINTEGER
50727 @ 426945:               PUSH   ARAD
50728 @ 426948:               ASSPAR
50729 @ 426949:               CALL  
50730 @ 426950:               PUSH   I
50731 @ 426953:               ASSVAL

  8540              ARAD=ARAD+1; J=J+1
50732 @ 426954:               LINE   8540 "regression-compile-tmp/imp918s.imp"
50733 @ 426992:               PUSH   ARAD
50734 @ 426995:               PUSH   ARAD
50735 @ 426998:               PUSHI  #0x00000001
50736 @ 427003:               ADD   
50737 @ 427004:               ASSVAL
50738 @ 427005:               LINE   8540 "regression-compile-tmp/imp918s.imp"
50739 @ 427043:               PUSH   J
50740 @ 427046:               PUSH   J
50741 @ 427049:               PUSHI  #0x00000001
50742 @ 427054:               ADD   
50743 @ 427055:               ASSVAL

  8541              %IF I=10 %THEN READ LINE(1,QU) %ELSE Q=Q+1
50744 @ 427056:               LINE   8541 "regression-compile-tmp/imp918s.imp"
50745 @ 427094:               PUSH   I
50746 @ 427097:               PUSHI  #0x0000000a
50747 @ 427102:               JUMPIF # L_0007
50748 @ 427106:               PUSH   READLINE
50749 @ 427109:               PUSHI  #0x00000001
50750 @ 427114:               ASSPAR
50751 @ 427115:               PUSH   QU
50752 @ 427118:               ASSPAR
50753 @ 427119:               CALL  
50754 @ 427120:               GOTO   L_0006
50755 @ 427123:               LOCATE L_0007
50756 @ 427126:               PUSH   Q
50757 @ 427129:               PUSH   Q
50758 @ 427132:               PUSHI  #0x00000001
50759 @ 427137:               ADD   
50760 @ 427138:               ASSVAL
50761 @ 427139:               LOCATE L_0006

  8542              FAULT(106,0) %IF J>=256
50762 @ 427142:               LINE   8542 "regression-compile-tmp/imp918s.imp"
50763 @ 427180:               PUSH   J
50764 @ 427183:               PUSHI  #0x00000100
50765 @ 427188:               JUMPIF < L_0007
50766 @ 427192:               PUSH   FAULT
50767 @ 427195:               PUSHI  #0x0000006a
50768 @ 427200:               ASSPAR
50769 @ 427201:               PUSHI  #0x00000000
50770 @ 427206:               ASSPAR
50771 @ 427207:               CALL  
50772 @ 427208:               LOCATE L_0007

  8543           %REPEAT
50773 @ 427211:               LINE   8543 "regression-compile-tmp/imp918s.imp"
50774 @ 427249:               REPEAT L_0003
50775 @ 427252:               LOCATE L_0004

  8544           A(S)=J;   HIT=1
50776 @ 427255:               LINE   8544 "regression-compile-tmp/imp918s.imp"
50777 @ 427293:               PUSH   A
50778 @ 427296:               PUSH   S
50779 @ 427299:               ACCESS
50780 @ 427300:               PUSH   J
50781 @ 427303:               ASSVAL
50782 @ 427304:               LINE   8544 "regression-compile-tmp/imp918s.imp"
50783 @ 427342:               PUSH   HIT
50784 @ 427345:               PUSHI  #0x00000001
50785 @ 427350:               ASSVAL

  8545           R=R+(J+1)>>1
50786 @ 427351:               LINE   8545 "regression-compile-tmp/imp918s.imp"
50787 @ 427389:               PUSH   R
50788 @ 427392:               PUSH   R
50789 @ 427395:               PUSH   J
50790 @ 427398:               PUSHI  #0x00000001
50791 @ 427403:               ADD   
50792 @ 427404:               PUSHI  #0x00000001
50793 @ 427409:               RSH   
50794 @ 427410:               ADD   
50795 @ 427411:               ASSVAL

  8546  %END
  8547  !%finish
50796 @ 427412:               LINE   8546 "regression-compile-tmp/imp918s.imp"
50797 @ 427450:            END    _lev0id0_TEXTTEXT {lev=2 --> 1}

  8548           %ROUTINE     TOAR4(%INTEGER PTR,VALUE)
  8549  !%if USE MC = 1 %start
  8550  !         **1,@A(PTR)
  8551  !         *MVC_0(4,1),VALUE
  8552  !%finish
50798 @ 427451:            LINE   8548 "regression-compile-tmp/imp918s.imp"
50799 @ 427489:            DEF    TOAR4 (_lev0id0_TOAR4) p1=V_014e 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
50800 @ 427506:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
50801 @ 427507:                  DEF    PTR p1=V_0162 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
50802 @ 427522:                  DEF    VALUE p1=V_0163 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
50803 @ 427539:               FINISH ) {lev=2}

  8553           %END
50804 @ 427540:               LINE   8553 "regression-compile-tmp/imp918s.imp"
50805 @ 427578:            END    _lev0id0_TOAR4 {lev=2 --> 1}

  8554           %ROUTINE     TOAR8(%INTEGER PTR,%LONGREAL VALUE)
  8555  
  8556  !%if USE MC = 1 %start
  8557  !         **1,@A(PTR)
  8558  !         *MVC_0(8,1),VALUE
  8559  !%finish
50806 @ 427579:            LINE   8554 "regression-compile-tmp/imp918s.imp"
50807 @ 427617:            DEF    TOAR8 (_lev0id0_TOAR8) p1=V_014d 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
50808 @ 427634:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
50809 @ 427635:                  DEF    PTR p1=V_0162 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
50810 @ 427650:                  DEF    VALUE p1=V_0163 a/tf=21 b/format=4 c/ostate=0  type=2 (real) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
50811 @ 427667:               FINISH ) {lev=2}

  8560           %END
50812 @ 427668:               LINE   8560 "regression-compile-tmp/imp918s.imp"
50813 @ 427706:            END    _lev0id0_TOAR8 {lev=2 --> 1}

  8561           %ROUTINE     FROMAR4(%INTEGER PTR,%INTEGERNAME VALUE)
  8562  !%if USE MC = 1 %start
  8563  !         **1,@A(PTR)
  8564  !         *L_2,VALUE
  8565  !         *MVC_0(4,2),0(1)
  8566  !%finish
50814 @ 427707:            LINE   8561 "regression-compile-tmp/imp918s.imp"
50815 @ 427745:            DEF    FROMAR4 (_lev0id0_FROMAR4) p1=V_014c 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
50816 @ 427764:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
50817 @ 427765:                  DEF    PTR p1=V_0162 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
50818 @ 427780:                  DEF    VALUE p1=V_0163 a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
50819 @ 427797:               FINISH ) {lev=2}

  8567           %END
50820 @ 427798:               LINE   8567 "regression-compile-tmp/imp918s.imp"
50821 @ 427836:            END    _lev0id0_FROMAR4 {lev=2 --> 1}

  8568           %ROUTINE     FROMAR8(%INTEGER PTR,%LONGREALNAME VALUE)
  8569  
  8570  !%if USE MC = 1 %start
  8571  !         **1,@A(PTR)
  8572  !         *L_2,VALUE
  8573  !         *MVC_0(8,2),0(1)
  8574  !%finish
50822 @ 427837:            LINE   8568 "regression-compile-tmp/imp918s.imp"
50823 @ 427875:            DEF    FROMAR8 (_lev0id0_FROMAR8) p1=V_014b 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
50824 @ 427894:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
50825 @ 427895:                  DEF    PTR p1=V_0162 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
50826 @ 427910:                  DEF    VALUE p1=V_0163 a/tf=22 b/format=4 c/ostate=0  type=2 (real) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
50827 @ 427927:               FINISH ) {lev=2}

  8575           %END
  8576  !%if INCLUDE DELSTART = 1 %start
50828 @ 427928:               LINE   8575 "regression-compile-tmp/imp918s.imp"
50829 @ 427966:            END    _lev0id0_FROMAR8 {lev=2 --> 1}

  8577  %ROUTINE CONST(%INTEGER MODE)
  8578  !***********************************************************************
  8579  !*       SYNTAX CHECK AND EVALUATE ALL THE FORMS OF IMP CONSTANT       *
  8580  !*       MODE#0 FOR INTEGER CONSTANTS =0 FOR ANY SORT OF CONSTANT      *
  8581  !***********************************************************************
50830 @ 427967:            LINE   8577 "regression-compile-tmp/imp918s.imp"
50831 @ 428005:            DEF    CONST (_lev0id0_CONST) p1=V_0147 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
50832 @ 428022:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
50833 @ 428023:                  DEF    MODE p1=V_0162 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
50834 @ 428039:               FINISH ) {lev=2}

  8582  %INTEGER Z,T;%LONGREAL X
50835 @ 428040:               LINE   8582 "regression-compile-tmp/imp918s.imp"
50836 @ 428078:               DEF    Z p1=V_0163 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
50837 @ 428091:               DEF    T p1=V_0164 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
50838 @ 428104:               LINE   8582 "regression-compile-tmp/imp918s.imp"
50839 @ 428142:               DEF    X p1=V_0165 a/tf=21 b/format=4 c/ostate=0  type=2 (real) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  8583           HIT=0
50840 @ 428155:               LINE   8583 "regression-compile-tmp/imp918s.imp"
50841 @ 428193:               PUSH   HIT
50842 @ 428196:               PUSHI  #0x00000000
50843 @ 428201:               ASSVAL

  8584           CVALUE=0;  I=BYTE INTEGER(Q)
50844 @ 428202:               LINE   8584 "regression-compile-tmp/imp918s.imp"
50845 @ 428240:               PUSH   CVALUE
50846 @ 428243:               PUSHI  #0x00000000
50847 @ 428248:               ASSVAL
50848 @ 428249:               LINE   8584 "regression-compile-tmp/imp918s.imp"
50849 @ 428287:               PUSH   I
50850 @ 428290:               PUSH   BYTEINTEGER
50851 @ 428293:               PUSH   Q
50852 @ 428296:               ASSPAR
50853 @ 428297:               CALL  
50854 @ 428298:               ASSVAL

  8585           S=0;  ->N %IF M'0'<=I<=M'9'
50855 @ 428299:               LINE   8585 "regression-compile-tmp/imp918s.imp"
50856 @ 428337:               PUSH   S
50857 @ 428340:               PUSHI  #0x00000000
50858 @ 428345:               ASSVAL
50859 @ 428346:               LINE   8585 "regression-compile-tmp/imp918s.imp"
50860 @ 428384:               PUSHI  #0x00000030
50861 @ 428389:               PUSH   I
50862 @ 428392:               JUMPIFD > L_0004
50863 @ 428396:               PUSHI  #0x00000039
50864 @ 428401:               JUMPIF > L_0004
50865 @ 428405:               JUMP   L_0166
50866 @ 428408:               LOCATE L_0004

  8586           ->DOT %IF I='.' %AND MODE=0 %AND '0'<=BYTE INTEGER(Q+1)<='9'
  8587                                          ! 1 DIDT MIN
50867 @ 428411:               LINE   8586 "regression-compile-tmp/imp918s.imp"
50868 @ 428449:               PUSH   I
50869 @ 428452:               PUSHI  #0x0000002e
50870 @ 428457:               JUMPIF # L_0004
50871 @ 428461:               PUSH   MODE
50872 @ 428464:               PUSHI  #0x00000000
50873 @ 428469:               JUMPIF # L_0004
50874 @ 428473:               PUSHI  #0x00000030
50875 @ 428478:               PUSH   BYTEINTEGER
50876 @ 428481:               PUSH   Q
50877 @ 428484:               PUSHI  #0x00000001
50878 @ 428489:               ADD   
50879 @ 428490:               ASSPAR
50880 @ 428491:               CALL  
50881 @ 428492:               JUMPIFD > L_0004
50882 @ 428496:               PUSHI  #0x00000039
50883 @ 428501:               JUMPIF > L_0004
50884 @ 428505:               JUMP   L_0167
50885 @ 428508:               LOCATE L_0004

  8588           CTYPE=1
50886 @ 428511:               LINE   8588 "regression-compile-tmp/imp918s.imp"
50887 @ 428549:               PUSH   CTYPE
50888 @ 428552:               PUSHI  #0x00000001
50889 @ 428557:               ASSVAL

  8589           ->PI %IF I='$'
50890 @ 428558:               LINE   8589 "regression-compile-tmp/imp918s.imp"
50891 @ 428596:               PUSH   I
50892 @ 428599:               PUSHI  #0x00000024
50893 @ 428604:               JUMPIF # L_0004
50894 @ 428608:               JUMP   L_0168
50895 @ 428611:               LOCATE L_0004

  8590           ->STR %IF I=M''''
50896 @ 428614:               LINE   8590 "regression-compile-tmp/imp918s.imp"
50897 @ 428652:               PUSH   I
50898 @ 428655:               PUSHI  #0x00000027
50899 @ 428660:               JUMPIF # L_0004
50900 @ 428664:               JUMP   L_0169
50901 @ 428667:               LOCATE L_0004

  8591           ->STR2 %IF I=34
50902 @ 428670:               LINE   8591 "regression-compile-tmp/imp918s.imp"
50903 @ 428708:               PUSH   I
50904 @ 428711:               PUSHI  #0x00000022
50905 @ 428716:               JUMPIF # L_0004
50906 @ 428720:               JUMP   L_016a
50907 @ 428723:               LOCATE L_0004

  8592           %RETURN %UNLESS BYTE INTEGER(Q+1)=M'''';  Q=Q+2
50908 @ 428726:               LINE   8592 "regression-compile-tmp/imp918s.imp"
50909 @ 428764:               PUSH   BYTEINTEGER
50910 @ 428767:               PUSH   Q
50911 @ 428770:               PUSHI  #0x00000001
50912 @ 428775:               ADD   
50913 @ 428776:               ASSPAR
50914 @ 428777:               CALL  
50915 @ 428778:               PUSHI  #0x00000027
50916 @ 428783:               JUMPIF = L_0004
50917 @ 428787:               RETURN
50918 @ 428788:               LOCATE L_0004
50919 @ 428791:               LINE   8592 "regression-compile-tmp/imp918s.imp"
50920 @ 428829:               PUSH   Q
50921 @ 428832:               PUSH   Q
50922 @ 428835:               PUSHI  #0x00000002
50923 @ 428840:               ADD   
50924 @ 428841:               ASSVAL

  8593           ->HEX %IF I='X'
50925 @ 428842:               LINE   8593 "regression-compile-tmp/imp918s.imp"
50926 @ 428880:               PUSH   I
50927 @ 428883:               PUSHI  #0x00000058
50928 @ 428888:               JUMPIF # L_0004
50929 @ 428892:               JUMP   L_016b
50930 @ 428895:               LOCATE L_0004

  8594           ->MULT %IF I='M'
50931 @ 428898:               LINE   8594 "regression-compile-tmp/imp918s.imp"
50932 @ 428936:               PUSH   I
50933 @ 428939:               PUSHI  #0x0000004d
50934 @ 428944:               JUMPIF # L_0004
50935 @ 428948:               JUMP   L_016c
50936 @ 428951:               LOCATE L_0004

  8595           ->BIN %IF I=M'B'
50937 @ 428954:               LINE   8595 "regression-compile-tmp/imp918s.imp"
50938 @ 428992:               PUSH   I
50939 @ 428995:               PUSHI  #0x00000042
50940 @ 429000:               JUMPIF # L_0004
50941 @ 429004:               JUMP   L_016d
50942 @ 429007:               LOCATE L_0004

  8596           ->RHEX %IF I='R' %AND MODE=0
50943 @ 429010:               LINE   8596 "regression-compile-tmp/imp918s.imp"
50944 @ 429048:               PUSH   I
50945 @ 429051:               PUSHI  #0x00000052
50946 @ 429056:               JUMPIF # L_0004
50947 @ 429060:               PUSH   MODE
50948 @ 429063:               PUSHI  #0x00000000
50949 @ 429068:               JUMPIF # L_0004
50950 @ 429072:               JUMP   L_016e
50951 @ 429075:               LOCATE L_0004

  8597           ->OCT %IF I='K'
50952 @ 429078:               LINE   8597 "regression-compile-tmp/imp918s.imp"
50953 @ 429116:               PUSH   I
50954 @ 429119:               PUSHI  #0x0000004b
50955 @ 429124:               JUMPIF # L_0004
50956 @ 429128:               JUMP   L_016f
50957 @ 429131:               LOCATE L_0004

  8598           Q=Q-2;  %RETURN
50958 @ 429134:               LINE   8598 "regression-compile-tmp/imp918s.imp"
50959 @ 429172:               PUSH   Q
50960 @ 429175:               PUSH   Q
50961 @ 429178:               PUSHI  #0x00000002
50962 @ 429183:               SUB   
50963 @ 429184:               ASSVAL
50964 @ 429185:               LINE   8598 "regression-compile-tmp/imp918s.imp"
50965 @ 429223:               RETURN

  8599  PI:      Q=Q+1;                         ! '$'=3.14159ETC
  8600  !%if USE MC = 1 %start
  8601  !         *MVC_CVALUE(8),PI1
  8602  !%finish
50966 @ 429224:               LINE   8599 "regression-compile-tmp/imp918s.imp"
50967 @ 429262:               LABEL  L_0168
50968 @ 429265:               LINE   8599 "regression-compile-tmp/imp918s.imp"
50969 @ 429303:               PUSH   Q
50970 @ 429306:               PUSH   Q
50971 @ 429309:               PUSHI  #0x00000001
50972 @ 429314:               ADD   
50973 @ 429315:               ASSVAL

  8603           %IF MODE=0 %THEN CTYPE=2 %AND HIT=1
50974 @ 429316:               LINE   8603 "regression-compile-tmp/imp918s.imp"
50975 @ 429354:               PUSH   MODE
50976 @ 429357:               PUSHI  #0x00000000
50977 @ 429362:               JUMPIF # L_0004
50978 @ 429366:               PUSH   CTYPE
50979 @ 429369:               PUSHI  #0x00000002
50980 @ 429374:               ASSVAL
50981 @ 429375:               PUSH   HIT
50982 @ 429378:               PUSHI  #0x00000001
50983 @ 429383:               ASSVAL
50984 @ 429384:               LOCATE L_0004

  8604           WARN(LINE)
50985 @ 429387:               LINE   8604 "regression-compile-tmp/imp918s.imp"
50986 @ 429425:               PUSH   WARN
50987 @ 429428:               PUSH   LINE
50988 @ 429431:               ASSPAR
50989 @ 429432:               CALL  

  8605           %RETURN
50990 @ 429433:               LINE   8605 "regression-compile-tmp/imp918s.imp"
50991 @ 429471:               RETURN

  8606  STR:     A(R)=5;  R=R+1
50992 @ 429472:               LINE   8606 "regression-compile-tmp/imp918s.imp"
50993 @ 429510:               LABEL  L_0169
50994 @ 429513:               LINE   8606 "regression-compile-tmp/imp918s.imp"
50995 @ 429551:               PUSH   A
50996 @ 429554:               PUSH   R
50997 @ 429557:               ACCESS
50998 @ 429558:               PUSHI  #0x00000005
50999 @ 429563:               ASSVAL
51000 @ 429564:               LINE   8606 "regression-compile-tmp/imp918s.imp"
51001 @ 429602:               PUSH   R
51002 @ 429605:               PUSH   R
51003 @ 429608:               PUSHI  #0x00000001
51004 @ 429613:               ADD   
51005 @ 429614:               ASSVAL

  8607           TEXTTEXT
51006 @ 429615:               LINE   8607 "regression-compile-tmp/imp918s.imp"
51007 @ 429653:               PUSH   TEXTTEXT
51008 @ 429656:               CALL  

  8608           %IF A(S)>1 %THEN CTYPE=5 %AND %RETURN
51009 @ 429657:               LINE   8608 "regression-compile-tmp/imp918s.imp"
51010 @ 429695:               PUSH   A
51011 @ 429698:               PUSH   S
51012 @ 429701:               ACCESS
51013 @ 429702:               PUSHI  #0x00000001
51014 @ 429707:               JUMPIF <= L_0004
51015 @ 429711:               PUSH   CTYPE
51016 @ 429714:               PUSHI  #0x00000005
51017 @ 429719:               ASSVAL
51018 @ 429720:               RETURN
51019 @ 429721:               LOCATE L_0004

  8609           R=S-1
51020 @ 429724:               LINE   8609 "regression-compile-tmp/imp918s.imp"
51021 @ 429762:               PUSH   R
51022 @ 429765:               PUSH   S
51023 @ 429768:               PUSHI  #0x00000001
51024 @ 429773:               SUB   
51025 @ 429774:               ASSVAL

  8610           %IF A(S)=0 %THEN S=0 %ELSE S=A(S+1)>>8
51026 @ 429775:               LINE   8610 "regression-compile-tmp/imp918s.imp"
51027 @ 429813:               PUSH   A
51028 @ 429816:               PUSH   S
51029 @ 429819:               ACCESS
51030 @ 429820:               PUSHI  #0x00000000
51031 @ 429825:               JUMPIF # L_0004
51032 @ 429829:               PUSH   S
51033 @ 429832:               PUSHI  #0x00000000
51034 @ 429837:               ASSVAL
51035 @ 429838:               GOTO   L_0003
51036 @ 429841:               LOCATE L_0004
51037 @ 429844:               PUSH   S
51038 @ 429847:               PUSH   A
51039 @ 429850:               PUSH   S
51040 @ 429853:               PUSHI  #0x00000001
51041 @ 429858:               ADD   
51042 @ 429859:               ACCESS
51043 @ 429860:               PUSHI  #0x00000008
51044 @ 429865:               RSH   
51045 @ 429866:               ASSVAL
51046 @ 429867:               LOCATE L_0003

  8611           HIT=1; %RETURN
51047 @ 429870:               LINE   8611 "regression-compile-tmp/imp918s.imp"
51048 @ 429908:               PUSH   HIT
51049 @ 429911:               PUSHI  #0x00000001
51050 @ 429916:               ASSVAL
51051 @ 429917:               LINE   8611 "regression-compile-tmp/imp918s.imp"
51052 @ 429955:               RETURN

  8612  STR2:                                   ! DOUBLE QUOTED STRING
51053 @ 429956:               LINE   8612 "regression-compile-tmp/imp918s.imp"
51054 @ 429994:               LABEL  L_016a

  8613           A(R)=5; R=R+1; TEXTTEXT
51055 @ 429997:               LINE   8613 "regression-compile-tmp/imp918s.imp"
51056 @ 430035:               PUSH   A
51057 @ 430038:               PUSH   R
51058 @ 430041:               ACCESS
51059 @ 430042:               PUSHI  #0x00000005
51060 @ 430047:               ASSVAL
51061 @ 430048:               LINE   8613 "regression-compile-tmp/imp918s.imp"
51062 @ 430086:               PUSH   R
51063 @ 430089:               PUSH   R
51064 @ 430092:               PUSHI  #0x00000001
51065 @ 430097:               ADD   
51066 @ 430098:               ASSVAL
51067 @ 430099:               LINE   8613 "regression-compile-tmp/imp918s.imp"
51068 @ 430137:               PUSH   TEXTTEXT
51069 @ 430140:               CALL  

  8614           CTYPE=5; %RETURN
51070 @ 430141:               LINE   8614 "regression-compile-tmp/imp918s.imp"
51071 @ 430179:               PUSH   CTYPE
51072 @ 430182:               PUSHI  #0x00000005
51073 @ 430187:               ASSVAL
51074 @ 430188:               LINE   8614 "regression-compile-tmp/imp918s.imp"
51075 @ 430226:               RETURN

  8615  HEX:     T=0;                           ! HEX CONSTANTS
51076 @ 430227:               LINE   8615 "regression-compile-tmp/imp918s.imp"
51077 @ 430265:               LABEL  L_016b
51078 @ 430268:               LINE   8615 "regression-compile-tmp/imp918s.imp"
51079 @ 430306:               PUSH   T
51080 @ 430309:               PUSHI  #0x00000000
51081 @ 430314:               ASSVAL

  8616           %CYCLE
51082 @ 430315:               LINE   8616 "regression-compile-tmp/imp918s.imp"
51083 @ 430353:               LOCATE L_0003

  8617              I=BYTE INTEGER(Q); Q=Q+1; T=T+1
51084 @ 430356:               LINE   8617 "regression-compile-tmp/imp918s.imp"
51085 @ 430394:               PUSH   I
51086 @ 430397:               PUSH   BYTEINTEGER
51087 @ 430400:               PUSH   Q
51088 @ 430403:               ASSPAR
51089 @ 430404:               CALL  
51090 @ 430405:               ASSVAL
51091 @ 430406:               LINE   8617 "regression-compile-tmp/imp918s.imp"
51092 @ 430444:               PUSH   Q
51093 @ 430447:               PUSH   Q
51094 @ 430450:               PUSHI  #0x00000001
51095 @ 430455:               ADD   
51096 @ 430456:               ASSVAL
51097 @ 430457:               LINE   8617 "regression-compile-tmp/imp918s.imp"
51098 @ 430495:               PUSH   T
51099 @ 430498:               PUSH   T
51100 @ 430501:               PUSHI  #0x00000001
51101 @ 430506:               ADD   
51102 @ 430507:               ASSVAL

  8618              %EXIT %IF I=M''''
51103 @ 430508:               LINE   8618 "regression-compile-tmp/imp918s.imp"
51104 @ 430546:               PUSH   I
51105 @ 430549:               PUSHI  #0x00000027
51106 @ 430554:               JUMPIF # L_0007
51107 @ 430558:               GOTO   L_0004
51108 @ 430561:               LOCATE L_0007

  8619              %RETURN %UNLESS ('0'<=I<='9' %OR 'A'<=I<='F') %AND T<9
51109 @ 430564:               LINE   8619 "regression-compile-tmp/imp918s.imp"
51110 @ 430602:               PUSHI  #0x00000030
51111 @ 430607:               PUSH   I
51112 @ 430610:               JUMPIFD > L_000a
51113 @ 430614:               PUSHI  #0x00000039
51114 @ 430619:               JUMPIF <= L_0009
51115 @ 430623:               LOCATE L_000a
51116 @ 430626:               PUSHI  #0x00000041
51117 @ 430631:               PUSH   I
51118 @ 430634:               JUMPIFD > L_0008
51119 @ 430638:               PUSHI  #0x00000046
51120 @ 430643:               JUMPIF > L_0008
51121 @ 430647:               LOCATE L_0009
51122 @ 430650:               PUSH   T
51123 @ 430653:               PUSHI  #0x00000009
51124 @ 430658:               JUMPIF < L_0007
51125 @ 430662:               LOCATE L_0008
51126 @ 430665:               RETURN
51127 @ 430666:               LOCATE L_0007

  8620              S=S<<4+I&15+9*I>>6
51128 @ 430669:               LINE   8620 "regression-compile-tmp/imp918s.imp"
51129 @ 430707:               PUSH   S
51130 @ 430710:               PUSH   S
51131 @ 430713:               PUSHI  #0x00000004
51132 @ 430718:               LSH   
51133 @ 430719:               PUSH   I
51134 @ 430722:               PUSHI  #0x0000000f
51135 @ 430727:               AND   
51136 @ 430728:               ADD   
51137 @ 430729:               PUSHI  #0x00000009
51138 @ 430734:               PUSH   I
51139 @ 430737:               PUSHI  #0x00000006
51140 @ 430742:               RSH   
51141 @ 430743:               MUL   
51142 @ 430744:               ADD   
51143 @ 430745:               ASSVAL

  8621           %REPEAT
51144 @ 430746:               LINE   8621 "regression-compile-tmp/imp918s.imp"
51145 @ 430784:               REPEAT L_0003
51146 @ 430787:               LOCATE L_0004

  8622           HIT=1; %RETURN
51147 @ 430790:               LINE   8622 "regression-compile-tmp/imp918s.imp"
51148 @ 430828:               PUSH   HIT
51149 @ 430831:               PUSHI  #0x00000001
51150 @ 430836:               ASSVAL
51151 @ 430837:               LINE   8622 "regression-compile-tmp/imp918s.imp"
51152 @ 430875:               RETURN

  8623  RHEX:                                   ! REAL HEX CONSTANTS
51153 @ 430876:               LINE   8623 "regression-compile-tmp/imp918s.imp"
51154 @ 430914:               LABEL  L_016e

  8624           T=0
51155 @ 430917:               LINE   8624 "regression-compile-tmp/imp918s.imp"
51156 @ 430955:               PUSH   T
51157 @ 430958:               PUSHI  #0x00000000
51158 @ 430963:               ASSVAL

  8625           %CYCLE
51159 @ 430964:               LINE   8625 "regression-compile-tmp/imp918s.imp"
51160 @ 431002:               LOCATE L_0003

  8626              I=BYTE INTEGER(Q); Q=Q+1
51161 @ 431005:               LINE   8626 "regression-compile-tmp/imp918s.imp"
51162 @ 431043:               PUSH   I
51163 @ 431046:               PUSH   BYTEINTEGER
51164 @ 431049:               PUSH   Q
51165 @ 431052:               ASSPAR
51166 @ 431053:               CALL  
51167 @ 431054:               ASSVAL
51168 @ 431055:               LINE   8626 "regression-compile-tmp/imp918s.imp"
51169 @ 431093:               PUSH   Q
51170 @ 431096:               PUSH   Q
51171 @ 431099:               PUSHI  #0x00000001
51172 @ 431104:               ADD   
51173 @ 431105:               ASSVAL

  8627              %IF T=8 %THEN INTEGER(ADDR(CVALUE))=S %AND S=0
51174 @ 431106:               LINE   8627 "regression-compile-tmp/imp918s.imp"
51175 @ 431144:               PUSH   T
51176 @ 431147:               PUSHI  #0x00000008
51177 @ 431152:               JUMPIF # L_0007
51178 @ 431156:               PUSH   INTEGER
51179 @ 431159:               PUSH   ADDR
51180 @ 431162:               PUSH   CVALUE
51181 @ 431165:               ASSPAR
51182 @ 431166:               CALL  
51183 @ 431167:               ASSPAR
51184 @ 431168:               CALL  
51185 @ 431169:               PUSH   S
51186 @ 431172:               ASSVAL
51187 @ 431173:               PUSH   S
51188 @ 431176:               PUSHI  #0x00000000
51189 @ 431181:               ASSVAL
51190 @ 431182:               LOCATE L_0007

  8628              %EXIT %IF I=M''''; T=T+1
51191 @ 431185:               LINE   8628 "regression-compile-tmp/imp918s.imp"
51192 @ 431223:               PUSH   I
51193 @ 431226:               PUSHI  #0x00000027
51194 @ 431231:               JUMPIF # L_0007
51195 @ 431235:               GOTO   L_0004
51196 @ 431238:               LOCATE L_0007
51197 @ 431241:               LINE   8628 "regression-compile-tmp/imp918s.imp"
51198 @ 431279:               PUSH   T
51199 @ 431282:               PUSH   T
51200 @ 431285:               PUSHI  #0x00000001
51201 @ 431290:               ADD   
51202 @ 431291:               ASSVAL

  8629              %RETURN %UNLESS '0'<=I<='9' %OR 'A'<=I<='F'
51203 @ 431292:               LINE   8629 "regression-compile-tmp/imp918s.imp"
51204 @ 431330:               PUSHI  #0x00000030
51205 @ 431335:               PUSH   I
51206 @ 431338:               JUMPIFD > L_0008
51207 @ 431342:               PUSHI  #0x00000039
51208 @ 431347:               JUMPIF <= L_0007
51209 @ 431351:               LOCATE L_0008
51210 @ 431354:               PUSHI  #0x00000041
51211 @ 431359:               PUSH   I
51212 @ 431362:               JUMPIFD > L_0008
51213 @ 431366:               PUSHI  #0x00000046
51214 @ 431371:               JUMPIF <= L_0007
51215 @ 431375:               LOCATE L_0008
51216 @ 431378:               RETURN
51217 @ 431379:               LOCATE L_0007

  8630              S=S<<4+I&15+9*I>>6
51218 @ 431382:               LINE   8630 "regression-compile-tmp/imp918s.imp"
51219 @ 431420:               PUSH   S
51220 @ 431423:               PUSH   S
51221 @ 431426:               PUSHI  #0x00000004
51222 @ 431431:               LSH   
51223 @ 431432:               PUSH   I
51224 @ 431435:               PUSHI  #0x0000000f
51225 @ 431440:               AND   
51226 @ 431441:               ADD   
51227 @ 431442:               PUSHI  #0x00000009
51228 @ 431447:               PUSH   I
51229 @ 431450:               PUSHI  #0x00000006
51230 @ 431455:               RSH   
51231 @ 431456:               MUL   
51232 @ 431457:               ADD   
51233 @ 431458:               ASSVAL

  8631           %REPEAT
51234 @ 431459:               LINE   8631 "regression-compile-tmp/imp918s.imp"
51235 @ 431497:               REPEAT L_0003
51236 @ 431500:               LOCATE L_0004

  8632           %RETURN %UNLESS T=8 %OR T=16
51237 @ 431503:               LINE   8632 "regression-compile-tmp/imp918s.imp"
51238 @ 431541:               PUSH   T
51239 @ 431544:               PUSHI  #0x00000008
51240 @ 431549:               JUMPIF = L_0004
51241 @ 431553:               PUSH   T
51242 @ 431556:               PUSHI  #0x00000010
51243 @ 431561:               JUMPIF = L_0004
51244 @ 431565:               RETURN
51245 @ 431566:               LOCATE L_0004

  8633           INTEGER(ADDR(CVALUE)+4)=S
51246 @ 431569:               LINE   8633 "regression-compile-tmp/imp918s.imp"
51247 @ 431607:               PUSH   INTEGER
51248 @ 431610:               PUSH   ADDR
51249 @ 431613:               PUSH   CVALUE
51250 @ 431616:               ASSPAR
51251 @ 431617:               CALL  
51252 @ 431618:               PUSHI  #0x00000004
51253 @ 431623:               ADD   
51254 @ 431624:               ASSPAR
51255 @ 431625:               CALL  
51256 @ 431626:               PUSH   S
51257 @ 431629:               ASSVAL

  8634           HIT=1; CTYPE=2; %RETURN
51258 @ 431630:               LINE   8634 "regression-compile-tmp/imp918s.imp"
51259 @ 431668:               PUSH   HIT
51260 @ 431671:               PUSHI  #0x00000001
51261 @ 431676:               ASSVAL
51262 @ 431677:               LINE   8634 "regression-compile-tmp/imp918s.imp"
51263 @ 431715:               PUSH   CTYPE
51264 @ 431718:               PUSHI  #0x00000002
51265 @ 431723:               ASSVAL
51266 @ 431724:               LINE   8634 "regression-compile-tmp/imp918s.imp"
51267 @ 431762:               RETURN

  8635  OCT:                                    ! OCTAL CONSTANTS
51268 @ 431763:               LINE   8635 "regression-compile-tmp/imp918s.imp"
51269 @ 431801:               LABEL  L_016f

  8636           T=0
51270 @ 431804:               LINE   8636 "regression-compile-tmp/imp918s.imp"
51271 @ 431842:               PUSH   T
51272 @ 431845:               PUSHI  #0x00000000
51273 @ 431850:               ASSVAL

  8637           %CYCLE
51274 @ 431851:               LINE   8637 "regression-compile-tmp/imp918s.imp"
51275 @ 431889:               LOCATE L_0003

  8638              I=BYTE INTEGER(Q); Q=Q+1; T=T+1
51276 @ 431892:               LINE   8638 "regression-compile-tmp/imp918s.imp"
51277 @ 431930:               PUSH   I
51278 @ 431933:               PUSH   BYTEINTEGER
51279 @ 431936:               PUSH   Q
51280 @ 431939:               ASSPAR
51281 @ 431940:               CALL  
51282 @ 431941:               ASSVAL
51283 @ 431942:               LINE   8638 "regression-compile-tmp/imp918s.imp"
51284 @ 431980:               PUSH   Q
51285 @ 431983:               PUSH   Q
51286 @ 431986:               PUSHI  #0x00000001
51287 @ 431991:               ADD   
51288 @ 431992:               ASSVAL
51289 @ 431993:               LINE   8638 "regression-compile-tmp/imp918s.imp"
51290 @ 432031:               PUSH   T
51291 @ 432034:               PUSH   T
51292 @ 432037:               PUSHI  #0x00000001
51293 @ 432042:               ADD   
51294 @ 432043:               ASSVAL

  8639              %EXIT %IF I=M''''
51295 @ 432044:               LINE   8639 "regression-compile-tmp/imp918s.imp"
51296 @ 432082:               PUSH   I
51297 @ 432085:               PUSHI  #0x00000027
51298 @ 432090:               JUMPIF # L_0007
51299 @ 432094:               GOTO   L_0004
51300 @ 432097:               LOCATE L_0007

  8640              %RETURN %UNLESS '0'<=I<='7' %AND T<12
51301 @ 432100:               LINE   8640 "regression-compile-tmp/imp918s.imp"
51302 @ 432138:               PUSHI  #0x00000030
51303 @ 432143:               PUSH   I
51304 @ 432146:               JUMPIFD > L_0008
51305 @ 432150:               PUSHI  #0x00000037
51306 @ 432155:               JUMPIF > L_0008
51307 @ 432159:               PUSH   T
51308 @ 432162:               PUSHI  #0x0000000c
51309 @ 432167:               JUMPIF < L_0007
51310 @ 432171:               LOCATE L_0008
51311 @ 432174:               RETURN
51312 @ 432175:               LOCATE L_0007

  8641              S=S<<3!(I&7)
51313 @ 432178:               LINE   8641 "regression-compile-tmp/imp918s.imp"
51314 @ 432216:               PUSH   S
51315 @ 432219:               PUSH   S
51316 @ 432222:               PUSHI  #0x00000003
51317 @ 432227:               LSH   
51318 @ 432228:               PUSH   I
51319 @ 432231:               PUSHI  #0x00000007
51320 @ 432236:               AND   
51321 @ 432237:               OR    
51322 @ 432238:               ASSVAL

  8642           %REPEAT
51323 @ 432239:               LINE   8642 "regression-compile-tmp/imp918s.imp"
51324 @ 432277:               REPEAT L_0003
51325 @ 432280:               LOCATE L_0004

  8643           HIT=1; %RETURN
51326 @ 432283:               LINE   8643 "regression-compile-tmp/imp918s.imp"
51327 @ 432321:               PUSH   HIT
51328 @ 432324:               PUSHI  #0x00000001
51329 @ 432329:               ASSVAL
51330 @ 432330:               LINE   8643 "regression-compile-tmp/imp918s.imp"
51331 @ 432368:               RETURN

  8644  MULT:    T=0;                           ! MULTIPLE CONSTANTS
51332 @ 432369:               LINE   8644 "regression-compile-tmp/imp918s.imp"
51333 @ 432407:               LABEL  L_016c
51334 @ 432410:               LINE   8644 "regression-compile-tmp/imp918s.imp"
51335 @ 432448:               PUSH   T
51336 @ 432451:               PUSHI  #0x00000000
51337 @ 432456:               ASSVAL

  8645           %CYCLE
51338 @ 432457:               LINE   8645 "regression-compile-tmp/imp918s.imp"
51339 @ 432495:               LOCATE L_0003

  8646              I=BYTE INTEGER(Q); Q=Q+1; T=T+1
51340 @ 432498:               LINE   8646 "regression-compile-tmp/imp918s.imp"
51341 @ 432536:               PUSH   I
51342 @ 432539:               PUSH   BYTEINTEGER
51343 @ 432542:               PUSH   Q
51344 @ 432545:               ASSPAR
51345 @ 432546:               CALL  
51346 @ 432547:               ASSVAL
51347 @ 432548:               LINE   8646 "regression-compile-tmp/imp918s.imp"
51348 @ 432586:               PUSH   Q
51349 @ 432589:               PUSH   Q
51350 @ 432592:               PUSHI  #0x00000001
51351 @ 432597:               ADD   
51352 @ 432598:               ASSVAL
51353 @ 432599:               LINE   8646 "regression-compile-tmp/imp918s.imp"
51354 @ 432637:               PUSH   T
51355 @ 432640:               PUSH   T
51356 @ 432643:               PUSHI  #0x00000001
51357 @ 432648:               ADD   
51358 @ 432649:               ASSVAL

  8647              %IF I=M'''' %THEN %START
51359 @ 432650:               LINE   8647 "regression-compile-tmp/imp918s.imp"
51360 @ 432688:               PUSH   I
51361 @ 432691:               PUSHI  #0x00000027
51362 @ 432696:               JUMPIF # L_0007

  8648                 %IF BYTE INTEGER(Q)#M'''' %THEN %EXIT %ELSE Q=Q+1
51363 @ 432700:               LINE   8648 "regression-compile-tmp/imp918s.imp"
51364 @ 432738:               PUSH   BYTEINTEGER
51365 @ 432741:               PUSH   Q
51366 @ 432744:               ASSPAR
51367 @ 432745:               CALL  
51368 @ 432746:               PUSHI  #0x00000027
51369 @ 432751:               JUMPIF = L_000a
51370 @ 432755:               GOTO   L_0004
51371 @ 432758:               LOCATE L_000a
51372 @ 432761:               PUSH   Q
51373 @ 432764:               PUSH   Q
51374 @ 432767:               PUSHI  #0x00000001
51375 @ 432772:               ADD   
51376 @ 432773:               ASSVAL

  8649              %FINISH
51377 @ 432774:               LINE   8649 "regression-compile-tmp/imp918s.imp"
51378 @ 432812:               LOCATE L_0007

  8650              %RETURN %IF T>=5
51379 @ 432815:               LINE   8650 "regression-compile-tmp/imp918s.imp"
51380 @ 432853:               PUSH   T
51381 @ 432856:               PUSHI  #0x00000005
51382 @ 432861:               JUMPIF < L_0007
51383 @ 432865:               RETURN
51384 @ 432866:               LOCATE L_0007

  8651              S=S<<8!I
51385 @ 432869:               LINE   8651 "regression-compile-tmp/imp918s.imp"
51386 @ 432907:               PUSH   S
51387 @ 432910:               PUSH   S
51388 @ 432913:               PUSHI  #0x00000008
51389 @ 432918:               LSH   
51390 @ 432919:               PUSH   I
51391 @ 432922:               OR    
51392 @ 432923:               ASSVAL

  8652           %REPEAT
51393 @ 432924:               LINE   8652 "regression-compile-tmp/imp918s.imp"
51394 @ 432962:               REPEAT L_0003
51395 @ 432965:               LOCATE L_0004

  8653           HIT=1; %RETURN
51396 @ 432968:               LINE   8653 "regression-compile-tmp/imp918s.imp"
51397 @ 433006:               PUSH   HIT
51398 @ 433009:               PUSHI  #0x00000001
51399 @ 433014:               ASSVAL
51400 @ 433015:               LINE   8653 "regression-compile-tmp/imp918s.imp"
51401 @ 433053:               RETURN

  8654  BIN:     T=0;                           ! BINARY CONST
51402 @ 433054:               LINE   8654 "regression-compile-tmp/imp918s.imp"
51403 @ 433092:               LABEL  L_016d
51404 @ 433095:               LINE   8654 "regression-compile-tmp/imp918s.imp"
51405 @ 433133:               PUSH   T
51406 @ 433136:               PUSHI  #0x00000000
51407 @ 433141:               ASSVAL

  8655           %CYCLE
51408 @ 433142:               LINE   8655 "regression-compile-tmp/imp918s.imp"
51409 @ 433180:               LOCATE L_0003

  8656              I=BYTE INTEGER(Q); Q=Q+1; T=T+1
51410 @ 433183:               LINE   8656 "regression-compile-tmp/imp918s.imp"
51411 @ 433221:               PUSH   I
51412 @ 433224:               PUSH   BYTEINTEGER
51413 @ 433227:               PUSH   Q
51414 @ 433230:               ASSPAR
51415 @ 433231:               CALL  
51416 @ 433232:               ASSVAL
51417 @ 433233:               LINE   8656 "regression-compile-tmp/imp918s.imp"
51418 @ 433271:               PUSH   Q
51419 @ 433274:               PUSH   Q
51420 @ 433277:               PUSHI  #0x00000001
51421 @ 433282:               ADD   
51422 @ 433283:               ASSVAL
51423 @ 433284:               LINE   8656 "regression-compile-tmp/imp918s.imp"
51424 @ 433322:               PUSH   T
51425 @ 433325:               PUSH   T
51426 @ 433328:               PUSHI  #0x00000001
51427 @ 433333:               ADD   
51428 @ 433334:               ASSVAL

  8657              %EXIT %IF I=M''''
51429 @ 433335:               LINE   8657 "regression-compile-tmp/imp918s.imp"
51430 @ 433373:               PUSH   I
51431 @ 433376:               PUSHI  #0x00000027
51432 @ 433381:               JUMPIF # L_0007
51433 @ 433385:               GOTO   L_0004
51434 @ 433388:               LOCATE L_0007

  8658              %RETURN %UNLESS '0'<=I<='1' %AND T<33
51435 @ 433391:               LINE   8658 "regression-compile-tmp/imp918s.imp"
51436 @ 433429:               PUSHI  #0x00000030
51437 @ 433434:               PUSH   I
51438 @ 433437:               JUMPIFD > L_0008
51439 @ 433441:               PUSHI  #0x00000031
51440 @ 433446:               JUMPIF > L_0008
51441 @ 433450:               PUSH   T
51442 @ 433453:               PUSHI  #0x00000021
51443 @ 433458:               JUMPIF < L_0007
51444 @ 433462:               LOCATE L_0008
51445 @ 433465:               RETURN
51446 @ 433466:               LOCATE L_0007

  8659              S=S<<1!I&1
51447 @ 433469:               LINE   8659 "regression-compile-tmp/imp918s.imp"
51448 @ 433507:               PUSH   S
51449 @ 433510:               PUSH   S
51450 @ 433513:               PUSHI  #0x00000001
51451 @ 433518:               LSH   
51452 @ 433519:               PUSH   I
51453 @ 433522:               PUSHI  #0x00000001
51454 @ 433527:               AND   
51455 @ 433528:               OR    
51456 @ 433529:               ASSVAL

  8660           %REPEAT
51457 @ 433530:               LINE   8660 "regression-compile-tmp/imp918s.imp"
51458 @ 433568:               REPEAT L_0003
51459 @ 433571:               LOCATE L_0004

  8661           HIT=1; %RETURN
51460 @ 433574:               LINE   8661 "regression-compile-tmp/imp918s.imp"
51461 @ 433612:               PUSH   HIT
51462 @ 433615:               PUSHI  #0x00000001
51463 @ 433620:               ASSVAL
51464 @ 433621:               LINE   8661 "regression-compile-tmp/imp918s.imp"
51465 @ 433659:               RETURN

  8662  N:                                      ! CONSTANT STARTS WITH DIGIT
51466 @ 433660:               LINE   8662 "regression-compile-tmp/imp918s.imp"
51467 @ 433698:               LABEL  L_0166

  8663           %CYCLE
51468 @ 433701:               LINE   8663 "regression-compile-tmp/imp918s.imp"
51469 @ 433739:               LOCATE L_0003

  8664              %IF S>X'7FFFFFF' %THEN ->BIGN
51470 @ 433742:               LINE   8664 "regression-compile-tmp/imp918s.imp"
51471 @ 433780:               PUSH   S
51472 @ 433783:               PUSHI  #0x07ffffff
51473 @ 433788:               JUMPIF <= L_0007
51474 @ 433792:               JUMP   L_0170
51475 @ 433795:               LOCATE L_0007

  8665              S=10*S+I&15
51476 @ 433798:               LINE   8665 "regression-compile-tmp/imp918s.imp"
51477 @ 433836:               PUSH   S
51478 @ 433839:               PUSHI  #0x0000000a
51479 @ 433844:               PUSH   S
51480 @ 433847:               MUL   
51481 @ 433848:               PUSH   I
51482 @ 433851:               PUSHI  #0x0000000f
51483 @ 433856:               AND   
51484 @ 433857:               ADD   
51485 @ 433858:               ASSVAL

  8666              Q=Q+1; I=BYTEINTEGER(Q)
51486 @ 433859:               LINE   8666 "regression-compile-tmp/imp918s.imp"
51487 @ 433897:               PUSH   Q
51488 @ 433900:               PUSH   Q
51489 @ 433903:               PUSHI  #0x00000001
51490 @ 433908:               ADD   
51491 @ 433909:               ASSVAL
51492 @ 433910:               LINE   8666 "regression-compile-tmp/imp918s.imp"
51493 @ 433948:               PUSH   I
51494 @ 433951:               PUSH   BYTEINTEGER
51495 @ 433954:               PUSH   Q
51496 @ 433957:               ASSPAR
51497 @ 433958:               CALL  
51498 @ 433959:               ASSVAL

  8667           %REPEAT %UNTIL I<M'0' %OR I>M'9'
51499 @ 433960:               LINE   8667 "regression-compile-tmp/imp918s.imp"
51500 @ 433998:               PUSH   I
51501 @ 434001:               PUSHI  #0x00000030
51502 @ 434006:               JUMPIF < L_0004
51503 @ 434010:               PUSH   I
51504 @ 434013:               PUSHI  #0x00000039
51505 @ 434018:               JUMPIF > L_0004
51506 @ 434022:               REPEAT L_0003
51507 @ 434025:               LOCATE L_0004

  8668           %IF I='.' %OR I='@' %THEN CVALUE=S %AND ->FTEST
51508 @ 434028:               LINE   8668 "regression-compile-tmp/imp918s.imp"
51509 @ 434066:               PUSH   I
51510 @ 434069:               PUSHI  #0x0000002e
51511 @ 434074:               JUMPIF = L_0005
51512 @ 434078:               PUSH   I
51513 @ 434081:               PUSHI  #0x00000040
51514 @ 434086:               JUMPIF # L_0004
51515 @ 434090:               LOCATE L_0005
51516 @ 434093:               PUSH   CVALUE
51517 @ 434096:               PUSH   S
51518 @ 434099:               ASSVAL
51519 @ 434100:               JUMP   L_0171
51520 @ 434103:               LOCATE L_0004

  8669           CTYPE=1; HIT=1; %RETURN
51521 @ 434106:               LINE   8669 "regression-compile-tmp/imp918s.imp"
51522 @ 434144:               PUSH   CTYPE
51523 @ 434147:               PUSHI  #0x00000001
51524 @ 434152:               ASSVAL
51525 @ 434153:               LINE   8669 "regression-compile-tmp/imp918s.imp"
51526 @ 434191:               PUSH   HIT
51527 @ 434194:               PUSHI  #0x00000001
51528 @ 434199:               ASSVAL
51529 @ 434200:               LINE   8669 "regression-compile-tmp/imp918s.imp"
51530 @ 434238:               RETURN

  8670  BIGN:    CVALUE=S;                      ! NUMERIC CONSTANTS TOO BIG
  8671                                          ! FOR EVALUATION IN INTEGERS
51531 @ 434239:               LINE   8670 "regression-compile-tmp/imp918s.imp"
51532 @ 434277:               LABEL  L_0170
51533 @ 434280:               LINE   8670 "regression-compile-tmp/imp918s.imp"
51534 @ 434318:               PUSH   CVALUE
51535 @ 434321:               PUSH   S
51536 @ 434324:               ASSVAL

  8672           %CYCLE
51537 @ 434325:               LINE   8672 "regression-compile-tmp/imp918s.imp"
51538 @ 434363:               LOCATE L_0003

  8673              CVALUE=10*CVALUE+(I&15)
51539 @ 434366:               LINE   8673 "regression-compile-tmp/imp918s.imp"
51540 @ 434404:               PUSH   CVALUE
51541 @ 434407:               PUSHI  #0x0000000a
51542 @ 434412:               PUSH   CVALUE
51543 @ 434415:               MUL   
51544 @ 434416:               PUSH   I
51545 @ 434419:               PUSHI  #0x0000000f
51546 @ 434424:               AND   
51547 @ 434425:               ADD   
51548 @ 434426:               ASSVAL

  8674              Q=Q+1; I=BYTE INTEGER(Q);             ! ONTO NEXT CHAR
51549 @ 434427:               LINE   8674 "regression-compile-tmp/imp918s.imp"
51550 @ 434465:               PUSH   Q
51551 @ 434468:               PUSH   Q
51552 @ 434471:               PUSHI  #0x00000001
51553 @ 434476:               ADD   
51554 @ 434477:               ASSVAL
51555 @ 434478:               LINE   8674 "regression-compile-tmp/imp918s.imp"
51556 @ 434516:               PUSH   I
51557 @ 434519:               PUSH   BYTEINTEGER
51558 @ 434522:               PUSH   Q
51559 @ 434525:               ASSPAR
51560 @ 434526:               CALL  
51561 @ 434527:               ASSVAL

  8675           %REPEAT %UNTIL I<M'0' %OR I>M'9'
51562 @ 434528:               LINE   8675 "regression-compile-tmp/imp918s.imp"
51563 @ 434566:               PUSH   I
51564 @ 434569:               PUSHI  #0x00000030
51565 @ 434574:               JUMPIF < L_0004
51566 @ 434578:               PUSH   I
51567 @ 434581:               PUSHI  #0x00000039
51568 @ 434586:               JUMPIF > L_0004
51569 @ 434590:               REPEAT L_0003
51570 @ 434593:               LOCATE L_0004

  8676  FTEST:   ->ALPHA %UNLESS MODE=0 %AND I='.'
51571 @ 434596:               LINE   8676 "regression-compile-tmp/imp918s.imp"
51572 @ 434634:               LABEL  L_0171
51573 @ 434637:               LINE   8676 "regression-compile-tmp/imp918s.imp"
51574 @ 434675:               PUSH   MODE
51575 @ 434678:               PUSHI  #0x00000000
51576 @ 434683:               JUMPIF # L_0005
51577 @ 434687:               PUSH   I
51578 @ 434690:               PUSHI  #0x0000002e
51579 @ 434695:               JUMPIF = L_0004
51580 @ 434699:               LOCATE L_0005
51581 @ 434702:               JUMP   L_0172
51582 @ 434705:               LOCATE L_0004

  8677  DOT:     Q=Q+1;  X=10; I=BYTE INTEGER(Q)
51583 @ 434708:               LINE   8677 "regression-compile-tmp/imp918s.imp"
51584 @ 434746:               LABEL  L_0167
51585 @ 434749:               LINE   8677 "regression-compile-tmp/imp918s.imp"
51586 @ 434787:               PUSH   Q
51587 @ 434790:               PUSH   Q
51588 @ 434793:               PUSHI  #0x00000001
51589 @ 434798:               ADD   
51590 @ 434799:               ASSVAL
51591 @ 434800:               LINE   8677 "regression-compile-tmp/imp918s.imp"
51592 @ 434838:               PUSH   X
51593 @ 434841:               PUSHI  #0x0000000a
51594 @ 434846:               ASSVAL
51595 @ 434847:               LINE   8677 "regression-compile-tmp/imp918s.imp"
51596 @ 434885:               PUSH   I
51597 @ 434888:               PUSH   BYTEINTEGER
51598 @ 434891:               PUSH   Q
51599 @ 434894:               ASSPAR
51600 @ 434895:               CALL  
51601 @ 434896:               ASSVAL

  8678           %WHILE M'0'<=I<=M'9' %CYCLE
51602 @ 434897:               LINE   8678 "regression-compile-tmp/imp918s.imp"
51603 @ 434935:               LOCATE L_0003
51604 @ 434938:               PUSHI  #0x00000030
51605 @ 434943:               PUSH   I
51606 @ 434946:               JUMPIFD > L_0004
51607 @ 434950:               PUSHI  #0x00000039
51608 @ 434955:               JUMPIF > L_0004

  8679              CVALUE=CVALUE+(I&15)/X
51609 @ 434959:               LINE   8679 "regression-compile-tmp/imp918s.imp"
51610 @ 434997:               PUSH   CVALUE
51611 @ 435000:               PUSH   CVALUE
51612 @ 435003:               PUSH   I
51613 @ 435006:               PUSHI  #0x0000000f
51614 @ 435011:               AND   
51615 @ 435012:               PUSH   X
51616 @ 435015:               DIVIDE
51617 @ 435016:               ADD   
51618 @ 435017:               ASSVAL

  8680              X=10.0*X; Q=Q+1; I=BYTE INTEGER(Q)
51619 @ 435018:               LINE   8680 "regression-compile-tmp/imp918s.imp"
51620 @ 435056:               PUSH   X
51621 @ 435059:               PUSHR  code=0 len=4 "10.0"
51622 @ 435067:               PUSH   X
51623 @ 435070:               MUL   
51624 @ 435071:               ASSVAL
51625 @ 435072:               LINE   8680 "regression-compile-tmp/imp918s.imp"
51626 @ 435110:               PUSH   Q
51627 @ 435113:               PUSH   Q
51628 @ 435116:               PUSHI  #0x00000001
51629 @ 435121:               ADD   
51630 @ 435122:               ASSVAL
51631 @ 435123:               LINE   8680 "regression-compile-tmp/imp918s.imp"
51632 @ 435161:               PUSH   I
51633 @ 435164:               PUSH   BYTEINTEGER
51634 @ 435167:               PUSH   Q
51635 @ 435170:               ASSPAR
51636 @ 435171:               CALL  
51637 @ 435172:               ASSVAL

  8681           %REPEAT
51638 @ 435173:               LINE   8681 "regression-compile-tmp/imp918s.imp"
51639 @ 435211:               REPEAT L_0003
51640 @ 435214:               LOCATE L_0004

  8682  ALPHA:                                  ! TEST FOR EXPONENT
51641 @ 435217:               LINE   8682 "regression-compile-tmp/imp918s.imp"
51642 @ 435255:               LABEL  L_0172

  8683           %IF MODE=0 %AND BYTE INTEGER(Q)='@' %THEN %START
51643 @ 435258:               LINE   8683 "regression-compile-tmp/imp918s.imp"
51644 @ 435296:               PUSH   MODE
51645 @ 435299:               PUSHI  #0x00000000
51646 @ 435304:               JUMPIF # L_0004
51647 @ 435308:               PUSH   BYTEINTEGER
51648 @ 435311:               PUSH   Q
51649 @ 435314:               ASSPAR
51650 @ 435315:               CALL  
51651 @ 435316:               PUSHI  #0x00000040
51652 @ 435321:               JUMPIF # L_0004

  8684              Q=Q+1;  X=CVALUE
51653 @ 435325:               LINE   8684 "regression-compile-tmp/imp918s.imp"
51654 @ 435363:               PUSH   Q
51655 @ 435366:               PUSH   Q
51656 @ 435369:               PUSHI  #0x00000001
51657 @ 435374:               ADD   
51658 @ 435375:               ASSVAL
51659 @ 435376:               LINE   8684 "regression-compile-tmp/imp918s.imp"
51660 @ 435414:               PUSH   X
51661 @ 435417:               PUSH   CVALUE
51662 @ 435420:               ASSVAL

  8685              Z=1; I=BYTE INTEGER(Q)
51663 @ 435421:               LINE   8685 "regression-compile-tmp/imp918s.imp"
51664 @ 435459:               PUSH   Z
51665 @ 435462:               PUSHI  #0x00000001
51666 @ 435467:               ASSVAL
51667 @ 435468:               LINE   8685 "regression-compile-tmp/imp918s.imp"
51668 @ 435506:               PUSH   I
51669 @ 435509:               PUSH   BYTEINTEGER
51670 @ 435512:               PUSH   Q
51671 @ 435515:               ASSPAR
51672 @ 435516:               CALL  
51673 @ 435517:               ASSVAL

  8686              %IF I='-' %THEN Z=-1
51674 @ 435518:               LINE   8686 "regression-compile-tmp/imp918s.imp"
51675 @ 435556:               PUSH   I
51676 @ 435559:               PUSHI  #0x0000002d
51677 @ 435564:               JUMPIF # L_0007
51678 @ 435568:               PUSH   Z
51679 @ 435571:               PUSHI  #0x00000001
51680 @ 435576:               NEGATE
51681 @ 435577:               ASSVAL
51682 @ 435578:               LOCATE L_0007

  8687              %IF I='+' %OR I='-' %THEN Q=Q+1
51683 @ 435581:               LINE   8687 "regression-compile-tmp/imp918s.imp"
51684 @ 435619:               PUSH   I
51685 @ 435622:               PUSHI  #0x0000002b
51686 @ 435627:               JUMPIF = L_0008
51687 @ 435631:               PUSH   I
51688 @ 435634:               PUSHI  #0x0000002d
51689 @ 435639:               JUMPIF # L_0007
51690 @ 435643:               LOCATE L_0008
51691 @ 435646:               PUSH   Q
51692 @ 435649:               PUSH   Q
51693 @ 435652:               PUSHI  #0x00000001
51694 @ 435657:               ADD   
51695 @ 435658:               ASSVAL
51696 @ 435659:               LOCATE L_0007

  8688              CONST(2)
51697 @ 435662:               LINE   8688 "regression-compile-tmp/imp918s.imp"
51698 @ 435700:               PUSH   CONST
51699 @ 435703:               PUSHI  #0x00000002
51700 @ 435708:               ASSPAR
51701 @ 435709:               CALL  

  8689              %IF HIT=0 %THEN %RETURN
51702 @ 435710:               LINE   8689 "regression-compile-tmp/imp918s.imp"
51703 @ 435748:               PUSH   HIT
51704 @ 435751:               PUSHI  #0x00000000
51705 @ 435756:               JUMPIF # L_0007
51706 @ 435760:               RETURN
51707 @ 435761:               LOCATE L_0007

  8690               S=S*Z
51708 @ 435764:               LINE   8690 "regression-compile-tmp/imp918s.imp"
51709 @ 435802:               PUSH   S
51710 @ 435805:               PUSH   S
51711 @ 435808:               PUSH   Z
51712 @ 435811:               MUL   
51713 @ 435812:               ASSVAL

  8691              %IF S=-99 %THEN CVALUE=0 %ELSE CVALUE=X*10^^S
51714 @ 435813:               LINE   8691 "regression-compile-tmp/imp918s.imp"
51715 @ 435851:               PUSH   S
51716 @ 435854:               PUSHI  #0x00000063
51717 @ 435859:               NEGATE
51718 @ 435860:               JUMPIF # L_0007
51719 @ 435864:               PUSH   CVALUE
51720 @ 435867:               PUSHI  #0x00000000
51721 @ 435872:               ASSVAL
51722 @ 435873:               GOTO   L_0006
51723 @ 435876:               LOCATE L_0007
51724 @ 435879:               PUSH   CVALUE
51725 @ 435882:               PUSH   X
51726 @ 435885:               PUSHI  #0x0000000a
51727 @ 435890:               PUSH   S
51728 @ 435893:               IEXP  
51729 @ 435894:               MUL   
51730 @ 435895:               ASSVAL
51731 @ 435896:               LOCATE L_0006

  8692           %FINISH
  8693                                          ! SEE IF IT IS INTEGER
51732 @ 435899:               LINE   8692 "regression-compile-tmp/imp918s.imp"
51733 @ 435937:               LOCATE L_0004

  8694  FIX:     %COMMENT SEE IF IT IS INTEGER
51734 @ 435940:               LINE   8694 "regression-compile-tmp/imp918s.imp"
51735 @ 435978:               LABEL  L_0173

  8695           -> TOO BIG %IF CVALUE>IMAX
  8696  !
  8697  ! THE NEXT LINE IS HAND CODED TO AVOID CALLING IN FRACPT ETC ON 370
  8698  !
  8699  !         ->Label41 %IF FRACPT(CVALUE)=0
  8700  !
  8701  !%if USE MC = 1 %start
  8702  !         *LD_0,CVALUE
  8703  !         *LDR_2,0
  8704  !         *AW_0,208(12);                 ! -X'4E000000000000000'
  8705  !         *AD_0,192(12);                 ! =D'0'
  8706  !         *SDR_2,0
  8707  !         *BC_8,<41>
  8708  !%finish
51736 @ 435981:               LINE   8695 "regression-compile-tmp/imp918s.imp"
51737 @ 436019:               PUSH   CVALUE
51738 @ 436022:               PUSH   IMAX
51739 @ 436025:               JUMPIF <= L_0004
51740 @ 436029:               JUMP   L_0174
51741 @ 436032:               LOCATE L_0004

  8709  TOO BIG: ->Label150 %UNLESS MODE=0
51742 @ 436035:               LINE   8709 "regression-compile-tmp/imp918s.imp"
51743 @ 436073:               LABEL  L_0174
51744 @ 436076:               LINE   8709 "regression-compile-tmp/imp918s.imp"
51745 @ 436114:               PUSH   MODE
51746 @ 436117:               PUSHI  #0x00000000
51747 @ 436122:               JUMPIF = L_0004
51748 @ 436126:               JUMP   L_0175
51749 @ 436129:               LOCATE L_0004

  8710  Label40:      CTYPE=2; HIT=1; %RETURN
  8711  !%if USE MC = 1 %start
  8712  !41:      *LD_0,CVALUE
  8713  !         *AD_0,192(12);          ! AD_0,=D'0.5'
  8714  !         *AW_0,208(12)
  8715  !         *STD_0,0(11)
  8716  !         *MVC_S(4),4(11);        ! S=INT(CVALUE)
  8717  !%finish
51750 @ 436132:               LINE   8710 "regression-compile-tmp/imp918s.imp"
51751 @ 436170:               LABEL  L_0176
51752 @ 436173:               LINE   8710 "regression-compile-tmp/imp918s.imp"
51753 @ 436211:               PUSH   CTYPE
51754 @ 436214:               PUSHI  #0x00000002
51755 @ 436219:               ASSVAL
51756 @ 436220:               LINE   8710 "regression-compile-tmp/imp918s.imp"
51757 @ 436258:               PUSH   HIT
51758 @ 436261:               PUSHI  #0x00000001
51759 @ 436266:               ASSVAL
51760 @ 436267:               LINE   8710 "regression-compile-tmp/imp918s.imp"
51761 @ 436305:               RETURN

  8718  Label99:      CTYPE=1; HIT=1; %RETURN
51762 @ 436306:               LINE   8718 "regression-compile-tmp/imp918s.imp"
51763 @ 436344:               LABEL  L_0177
51764 @ 436347:               LINE   8718 "regression-compile-tmp/imp918s.imp"
51765 @ 436385:               PUSH   CTYPE
51766 @ 436388:               PUSHI  #0x00000001
51767 @ 436393:               ASSVAL
51768 @ 436394:               LINE   8718 "regression-compile-tmp/imp918s.imp"
51769 @ 436432:               PUSH   HIT
51770 @ 436435:               PUSHI  #0x00000001
51771 @ 436440:               ASSVAL
51772 @ 436441:               LINE   8718 "regression-compile-tmp/imp918s.imp"
51773 @ 436479:               RETURN

  8719  Label150:     HIT=0;                        ! FAILURE
51774 @ 436480:               LINE   8719 "regression-compile-tmp/imp918s.imp"
51775 @ 436518:               LABEL  L_0175
51776 @ 436521:               LINE   8719 "regression-compile-tmp/imp918s.imp"
51777 @ 436559:               PUSH   HIT
51778 @ 436562:               PUSHI  #0x00000000
51779 @ 436567:               ASSVAL

  8720           %END
51780 @ 436568:               LINE   8720 "regression-compile-tmp/imp918s.imp"
51781 @ 436606:            END    _lev0id0_CONST {lev=2 --> 1}

  8721           %ROUTINE PNAME
51782 @ 436607:            LINE   8721 "regression-compile-tmp/imp918s.imp"
51783 @ 436645:            DEF    PNAME (_lev0id0_PNAME) p1=V_0146 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
51784 @ 436662:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
51785 @ 436663:               FINISH ) {lev=2}

  8722           {%SHORTROUTINE}; HIT=0; NUM=0
  8723  !%if USE MC = 1 %start
  8724  !         *L_6,Q
  8725  !         *L_3,TRTABS
  8726  !         *SR_1,1; *LR_2,1; *ST_1,NUM
  8727  !         *STM_1,2,0(11)
  8728  !         *TRT_0(255,6),0(3)
  8729  !         *LR_0,1; *SR_1,6;              ! LENGTH IN GR1
  8730  !%finish
  8731  
  8732  !%if USE MC = 1 %start
  8733  !         *BC_8,<3>;                     ! ZERO LENGTH = NOT A NAME
  8734  !         *BCT_2,*+8
  8735  !         *BC_15,<3>;                    ! NAME END IN QUOTE =FAIL
  8736  !         *L_14,LETT; *L_3,NEXT; *AR_3,14
  8737  !         *STC_1,0(3);                   ! MOVE IN LENGTH
  8738  !         *EX_1,<NAMMOVE>;               ! MOVE IN CHARS (+1 XTRA)
  8739  !         *EX_1,<MOVEP>
  8740  !         *LR_6,0; *ST_6,Q;              ! UPDATE TEXT POINTER
  8741  !         *LH_2,0(11); *MH_2,HH1
  8742  !         *LH_0,2(11); *MH_0,HH1+2; *ALR_2,0
  8743  !         *LH_0,4(11); *MH_0,HH2; *ALR_2,0
  8744  !         *LH_0,6(11); *MH_0,HH2+2; *ALR_2,0
  8745  !         *LR_4,2;                       ! INITIAL HASH VALUE
  8746  !         *SRL_2,9; *STC_2,NUM+3
  8747  !         *OI_NUM+3,2; *NI_NUM+3,62
  8748  !         *L_15,WORD; *L_5,NNAMES
  8749  !         *LA_0,0(5,5)
  8750  !         *ALR_4,4
  8751  !LOOKL:   *NR_4,0;                       ! TO KEEP WITHIN WORD
  8752  !         *LH_2,0(4,15);                 ! GET WORD(I)
  8753  !         *LTR_2,2; *BC_8,<NEWNAME>;     ! EMPTY HOLE FOR NEW NAME
  8754  !         *AR_2,14; *EX_1,<NAMCOMP>;     ! COMPARE
  8755  !         *BC_8,<FOUND>
  8756  !         *A_4,NUM
  8757  !         *BCT_5,<LOOKL>
  8758  !%finish
51786 @ 436664:               LINE   8722 "regression-compile-tmp/imp918s.imp"
51787 @ 436702:               PUSH   HIT
51788 @ 436705:               PUSHI  #0x00000000
51789 @ 436710:               ASSVAL
51790 @ 436711:               LINE   8722 "regression-compile-tmp/imp918s.imp"
51791 @ 436749:               PUSH   NUM
51792 @ 436752:               PUSHI  #0x00000000
51793 @ 436757:               ASSVAL

  8759           FAULT(104,0)
  8760  !%if USE MC = 1 %start
  8761  !NAMCOMP: *CLC_0(1,2),0(3)
  8762  !NAMMOVE: *MVC_1(1,3),0(6)
  8763  !MOVEP:   *MVC_0(1,11),0(3)
  8764  !%finish
51794 @ 436758:               LINE   8759 "regression-compile-tmp/imp918s.imp"
51795 @ 436796:               PUSH   FAULT
51796 @ 436799:               PUSHI  #0x00000068
51797 @ 436804:               ASSPAR
51798 @ 436805:               PUSHI  #0x00000000
51799 @ 436810:               ASSPAR
51800 @ 436811:               CALL  

  8765  DFULL:   FAULT(103,0)
  8766  !%if USE MC = 1 %start
  8767  !NEWNAME: *SR_3,14; *STH_3,0(4,15)
  8768  !         *LA_3,1(1,3); *ST_3,NEXT;      ! UPDATE NEXT TO INCLUDE NEWNAME
  8769  !         *CH_3,DSIZE; *BC_2,<DFULL>
  8770  !FOUND:   *SRL_4,1; *L_2,R; *AR_2,2
  8771  !         *STH_4,A+30(2)
  8772  !%finish
51801 @ 436812:               LINE   8765 "regression-compile-tmp/imp918s.imp"
51802 @ 436850:               LABEL  L_0162
51803 @ 436853:               LINE   8765 "regression-compile-tmp/imp918s.imp"
51804 @ 436891:               PUSH   FAULT
51805 @ 436894:               PUSHI  #0x00000067
51806 @ 436899:               ASSPAR
51807 @ 436900:               PUSHI  #0x00000000
51808 @ 436905:               ASSPAR
51809 @ 436906:               CALL  

  8773           HIT=1
51810 @ 436907:               LINE   8773 "regression-compile-tmp/imp918s.imp"
51811 @ 436945:               PUSH   HIT
51812 @ 436948:               PUSHI  #0x00000001
51813 @ 436953:               ASSVAL

  8774  Label3:       %END
  8775  !%finish
51814 @ 436954:               LINE   8774 "regression-compile-tmp/imp918s.imp"
51815 @ 436992:               LABEL  L_0163
51816 @ 436995:               LINE   8774 "regression-compile-tmp/imp918s.imp"
51817 @ 437033:            END    _lev0id0_PNAME {lev=2 --> 1}

  8776  Label8:        %BEGIN
  8777           {%SHORTROUTINE}
51818 @ 437034:            LINE   8776 "regression-compile-tmp/imp918s.imp"
51819 @ 437072:            LABEL  L_0158
51820 @ 437075:            LINE   8776 "regression-compile-tmp/imp918s.imp"
51821 @ 437113:            BEGIN  _lev0id0_lev1id16 {lev=1 --> 2}

  8778           %INTEGER I,J,K
51822 @ 437114:               LINE   8778 "regression-compile-tmp/imp918s.imp"
51823 @ 437152:               DEF    I p1=V_0162 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
51824 @ 437165:               DEF    J p1=V_0163 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
51825 @ 437178:               DEF    K p1=V_0164 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

  8779  Label1:       FETCH AR
51826 @ 437191:               LINE   8779 "regression-compile-tmp/imp918s.imp"
51827 @ 437229:               LABEL  L_0165
51828 @ 437232:               LINE   8779 "regression-compile-tmp/imp918s.imp"
51829 @ 437270:               PUSH   FETCHAR
51830 @ 437273:               CALL  

  8780           STMTSHELD=STMTSHELD+1
51831 @ 437274:               LINE   8780 "regression-compile-tmp/imp918s.imp"
51832 @ 437312:               PUSH   STMTSHELD
51833 @ 437315:               PUSH   STMTSHELD
51834 @ 437318:               PUSHI  #0x00000001
51835 @ 437323:               ADD   
51836 @ 437324:               ASSVAL

  8781           STPTRS(STMTSHELD)=1
51837 @ 437325:               LINE   8781 "regression-compile-tmp/imp918s.imp"
51838 @ 437363:               PUSH   STPTRS
51839 @ 437366:               PUSH   STMTSHELD
51840 @ 437369:               ACCESS
51841 @ 437370:               PUSHI  #0x00000001
51842 @ 437375:               ASSVAL

  8782           STOPSTM=1 %UNLESS A(1)<=6 %OR A(1)=14
51843 @ 437376:               LINE   8782 "regression-compile-tmp/imp918s.imp"
51844 @ 437414:               PUSH   A
51845 @ 437417:               PUSHI  #0x00000001
51846 @ 437422:               ACCESS
51847 @ 437423:               PUSHI  #0x00000006
51848 @ 437428:               JUMPIF <= L_0004
51849 @ 437432:               PUSH   A
51850 @ 437435:               PUSHI  #0x00000001
51851 @ 437440:               ACCESS
51852 @ 437441:               PUSHI  #0x0000000e
51853 @ 437446:               JUMPIF = L_0004
51854 @ 437450:               PUSH   STOPSTM
51855 @ 437453:               PUSHI  #0x00000001
51856 @ 437458:               ASSVAL
51857 @ 437459:               LOCATE L_0004

  8783  Label20:      %IF STOPSTM#0 %OR CHECKSP#0 %THEN ->Label10
51858 @ 437462:               LINE   8783 "regression-compile-tmp/imp918s.imp"
51859 @ 437500:               LABEL  L_0166
51860 @ 437503:               LINE   8783 "regression-compile-tmp/imp918s.imp"
51861 @ 437541:               PUSH   STOPSTM
51862 @ 437544:               PUSHI  #0x00000000
51863 @ 437549:               JUMPIF # L_0005
51864 @ 437553:               PUSH   CHECKSP
51865 @ 437556:               PUSHI  #0x00000000
51866 @ 437561:               JUMPIF = L_0004
51867 @ 437565:               LOCATE L_0005
51868 @ 437568:               JUMP   L_0167
51869 @ 437571:               LOCATE L_0004

  8784           STORE AR(I); ->Label10 %IF I=0
51870 @ 437574:               LINE   8784 "regression-compile-tmp/imp918s.imp"
51871 @ 437612:               PUSH   STOREAR
51872 @ 437615:               PUSH   I
51873 @ 437618:               ASSPAR
51874 @ 437619:               CALL  
51875 @ 437620:               LINE   8784 "regression-compile-tmp/imp918s.imp"
51876 @ 437658:               PUSH   I
51877 @ 437661:               PUSHI  #0x00000000
51878 @ 437666:               JUMPIF # L_0004
51879 @ 437670:               JUMP   L_0167
51880 @ 437673:               LOCATE L_0004

  8785           STPTRS(STMTSHELD)=TOPPTR-R
51881 @ 437676:               LINE   8785 "regression-compile-tmp/imp918s.imp"
51882 @ 437714:               PUSH   STPTRS
51883 @ 437717:               PUSH   STMTSHELD
51884 @ 437720:               ACCESS
51885 @ 437721:               PUSH   TOPPTR
51886 @ 437724:               PUSH   R
51887 @ 437727:               SUB   
51888 @ 437728:               ASSVAL

  8786           ->Label1
51889 @ 437729:               LINE   8786 "regression-compile-tmp/imp918s.imp"
51890 @ 437767:               JUMP   L_0165

  8787  Label10:      CSS(STPTRS(1),1)
  8788  !         CHECK ASL %IF PRINTMAP#0
51891 @ 437770:               LINE   8787 "regression-compile-tmp/imp918s.imp"
51892 @ 437808:               LABEL  L_0167
51893 @ 437811:               LINE   8787 "regression-compile-tmp/imp918s.imp"
51894 @ 437849:               PUSH   CSS
51895 @ 437852:               PUSH   STPTRS
51896 @ 437855:               PUSHI  #0x00000001
51897 @ 437860:               ACCESS
51898 @ 437861:               ASSPAR
51899 @ 437862:               PUSHI  #0x00000001
51900 @ 437867:               ASSPAR
51901 @ 437868:               CALL  

  8789           %IF DCOMP#0 %AND CA>CABUF %THEN %START
51902 @ 437869:               LINE   8789 "regression-compile-tmp/imp918s.imp"
51903 @ 437907:               PUSH   DCOMP
51904 @ 437910:               PUSHI  #0x00000000
51905 @ 437915:               JUMPIF = L_0004
51906 @ 437919:               PUSH   CA
51907 @ 437922:               PUSH   CABUF
51908 @ 437925:               JUMPIF <= L_0004

  8790              CODE OUT
51909 @ 437929:               LINE   8790 "regression-compile-tmp/imp918s.imp"
51910 @ 437967:               PUSH   CODEOUT
51911 @ 437970:               CALL  

  8791              PRINT USE
51912 @ 437971:               LINE   8791 "regression-compile-tmp/imp918s.imp"
51913 @ 438009:               PUSH   PRINTUSE
51914 @ 438012:               CALL  

  8792           %FINISH
51915 @ 438013:               LINE   8792 "regression-compile-tmp/imp918s.imp"
51916 @ 438051:               LOCATE L_0004

  8793           STMTSHELD=STMTSHELD-1
51917 @ 438054:               LINE   8793 "regression-compile-tmp/imp918s.imp"
51918 @ 438092:               PUSH   STMTSHELD
51919 @ 438095:               PUSH   STMTSHELD
51920 @ 438098:               PUSHI  #0x00000001
51921 @ 438103:               SUB   
51922 @ 438104:               ASSVAL

  8794           %IF STMTSHELD=0 %THEN %START
51923 @ 438105:               LINE   8794 "regression-compile-tmp/imp918s.imp"
51924 @ 438143:               PUSH   STMTSHELD
51925 @ 438146:               PUSHI  #0x00000000
51926 @ 438151:               JUMPIF # L_0004

  8795           STOPSTM=0
51927 @ 438155:               LINE   8795 "regression-compile-tmp/imp918s.imp"
51928 @ 438193:               PUSH   STOPSTM
51929 @ 438196:               PUSHI  #0x00000000
51930 @ 438201:               ASSVAL

  8796           TOPPTR=500; ->Label1; %FINISH
51931 @ 438202:               LINE   8796 "regression-compile-tmp/imp918s.imp"
51932 @ 438240:               PUSH   TOPPTR
51933 @ 438243:               PUSHI  #0x000001f4
51934 @ 438248:               ASSVAL
51935 @ 438249:               LINE   8796 "regression-compile-tmp/imp918s.imp"
51936 @ 438287:               JUMP   L_0165
51937 @ 438290:               LINE   8796 "regression-compile-tmp/imp918s.imp"
51938 @ 438328:               LOCATE L_0004

  8797           %IF STMTSHELD=1 %THEN %START
51939 @ 438331:               LINE   8797 "regression-compile-tmp/imp918s.imp"
51940 @ 438369:               PUSH   STMTSHELD
51941 @ 438372:               PUSHI  #0x00000001
51942 @ 438377:               JUMPIF # L_0004

  8798            STPTRS(1)=1
51943 @ 438381:               LINE   8798 "regression-compile-tmp/imp918s.imp"
51944 @ 438419:               PUSH   STPTRS
51945 @ 438422:               PUSHI  #0x00000001
51946 @ 438427:               ACCESS
51947 @ 438428:               PUSHI  #0x00000001
51948 @ 438433:               ASSVAL

  8799           TOPPTR=500; ->Label20; %FINISH
51949 @ 438434:               LINE   8799 "regression-compile-tmp/imp918s.imp"
51950 @ 438472:               PUSH   TOPPTR
51951 @ 438475:               PUSHI  #0x000001f4
51952 @ 438480:               ASSVAL
51953 @ 438481:               LINE   8799 "regression-compile-tmp/imp918s.imp"
51954 @ 438519:               JUMP   L_0166
51955 @ 438522:               LINE   8799 "regression-compile-tmp/imp918s.imp"
51956 @ 438560:               LOCATE L_0004

  8800           J=STPTRS(2)-STPTRS(1)
  8801  !         %CYCLE I=500,1,TOPPTR-J
  8802  !         A(I)=A(I+J)
  8803  !         %REPEAT
51957 @ 438563:               LINE   8800 "regression-compile-tmp/imp918s.imp"
51958 @ 438601:               PUSH   J
51959 @ 438604:               PUSH   STPTRS
51960 @ 438607:               PUSHI  #0x00000002
51961 @ 438612:               ACCESS
51962 @ 438613:               PUSH   STPTRS
51963 @ 438616:               PUSHI  #0x00000001
51964 @ 438621:               ACCESS
51965 @ 438622:               SUB   
51966 @ 438623:               ASSVAL

  8804           TOPPTR=TOPPTR-J
  8805  !%if USE MC = 1 %start
  8806  !         *L_3,A; *LA_3,1000(3)
  8807  !         *L_2,J; *AR_2,2; *AR_2,3
  8808  !         *L_1,TOPPTR; *AR_1,1; *LA_0,998; *SR_1,0
  8809  !         *LA_0,256
  8810  !M2:      *SR_1,0; *BC_4,<M3>
  8811  !         *MVC_0(256,3),0(2); *BC_8,<M4>
  8812  !         *AR_3,0; *AR_2,0; *BC_15,<M2>
  8813  !M5:      *MVC_0(1,3),0(2)
  8814  !M3:      *BCTR_1,0; *EX_1,<M5>
  8815  !%finish
51967 @ 438624:               LINE   8804 "regression-compile-tmp/imp918s.imp"
51968 @ 438662:               PUSH   TOPPTR
51969 @ 438665:               PUSH   TOPPTR
51970 @ 438668:               PUSH   J
51971 @ 438671:               SUB   
51972 @ 438672:               ASSVAL

  8816  M4:      %CYCLE I=1,1,STMTSHELD-1
51973 @ 438673:               LINE   8816 "regression-compile-tmp/imp918s.imp"
51974 @ 438711:               LABEL  L_0168
51975 @ 438714:               LINE   8816 "regression-compile-tmp/imp918s.imp"
51976 @ 438752:               PUSH   I
51977 @ 438755:               PUSHI  #0x00000001
51978 @ 438760:               PUSH   STMTSHELD
51979 @ 438763:               PUSHI  #0x00000001
51980 @ 438768:               SUB   
51981 @ 438769:               PUSHI  #0x00000001
51982 @ 438774:               FOR    L_0003

  8817           STPTRS(I)=STPTRS(I+1)-J
51983 @ 438777:               LINE   8817 "regression-compile-tmp/imp918s.imp"
51984 @ 438815:               PUSH   STPTRS
51985 @ 438818:               PUSH   I
51986 @ 438821:               ACCESS
51987 @ 438822:               PUSH   STPTRS
51988 @ 438825:               PUSH   I
51989 @ 438828:               PUSHI  #0x00000001
51990 @ 438833:               ADD   
51991 @ 438834:               ACCESS
51992 @ 438835:               PUSH   J
51993 @ 438838:               SUB   
51994 @ 438839:               ASSVAL

  8818           %REPEAT; STPTRS(STMTSHELD)=1; ->Label20
51995 @ 438840:               LINE   8818 "regression-compile-tmp/imp918s.imp"
51996 @ 438878:               REPEAT L_0003
51997 @ 438881:               LOCATE L_0004
51998 @ 438884:               LINE   8818 "regression-compile-tmp/imp918s.imp"
51999 @ 438922:               PUSH   STPTRS
52000 @ 438925:               PUSH   STMTSHELD
52001 @ 438928:               ACCESS
52002 @ 438929:               PUSHI  #0x00000001
52003 @ 438934:               ASSVAL
52004 @ 438935:               LINE   8818 "regression-compile-tmp/imp918s.imp"
52005 @ 438973:               JUMP   L_0166

  8819           %END
52006 @ 438976:               LINE   8819 "regression-compile-tmp/imp918s.imp"
52007 @ 439014:            END    _lev0id0_lev1id16 {lev=2 --> 1}

  8820           %ROUTINE FETCH AR
  8821           {%SHORTROUTINE}
  8822  !%if INCLUDE DELSTART = 1 %start
52008 @ 439015:            LINE   8820 "regression-compile-tmp/imp918s.imp"
52009 @ 439053:            DEF    FETCHAR (_lev0id0_FETCHAR) p1=V_010a 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
52010 @ 439072:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
52011 @ 439073:               FINISH ) {lev=2}

  8823  Label1:       %IF Q>=LENGTH %THEN READ LINE(0,0) %AND Q=ADDR(CC(1))
52012 @ 439074:               LINE   8823 "regression-compile-tmp/imp918s.imp"
52013 @ 439112:               LABEL  L_0162
52014 @ 439115:               LINE   8823 "regression-compile-tmp/imp918s.imp"
52015 @ 439153:               PUSH   Q
52016 @ 439156:               PUSH   LENGTH
52017 @ 439159:               JUMPIF < L_0004
52018 @ 439163:               PUSH   READLINE
52019 @ 439166:               PUSHI  #0x00000000
52020 @ 439171:               ASSPAR
52021 @ 439172:               PUSHI  #0x00000000
52022 @ 439177:               ASSPAR
52023 @ 439178:               CALL  
52024 @ 439179:               PUSH   Q
52025 @ 439182:               PUSH   ADDR
52026 @ 439185:               PUSH   CC
52027 @ 439188:               PUSHI  #0x00000001
52028 @ 439193:               ACCESS
52029 @ 439194:               ASSPAR
52030 @ 439195:               CALL  
52031 @ 439196:               ASSVAL
52032 @ 439197:               LOCATE L_0004

  8824           R=1; OLDLINE=LINE; A(0)=LINE; QMAX=Q
52033 @ 439200:               LINE   8824 "regression-compile-tmp/imp918s.imp"
52034 @ 439238:               PUSH   R
52035 @ 439241:               PUSHI  #0x00000001
52036 @ 439246:               ASSVAL
52037 @ 439247:               LINE   8824 "regression-compile-tmp/imp918s.imp"
52038 @ 439285:               PUSH   OLDLINE
52039 @ 439288:               PUSH   LINE
52040 @ 439291:               ASSVAL
52041 @ 439292:               LINE   8824 "regression-compile-tmp/imp918s.imp"
52042 @ 439330:               PUSH   A
52043 @ 439333:               PUSHI  #0x00000000
52044 @ 439338:               ACCESS
52045 @ 439339:               PUSH   LINE
52046 @ 439342:               ASSVAL
52047 @ 439343:               LINE   8824 "regression-compile-tmp/imp918s.imp"
52048 @ 439381:               PUSH   QMAX
52049 @ 439384:               PUSH   Q
52050 @ 439387:               ASSVAL

  8825           COMPARE
52051 @ 439388:               LINE   8825 "regression-compile-tmp/imp918s.imp"
52052 @ 439426:               PUSH   COMPARE
52053 @ 439429:               CALL  

  8826           %IF R>ARSIZE %AND R>ARSIZE+300*CHECKSP %THEN FAULT(102,0)
52054 @ 439430:               LINE   8826 "regression-compile-tmp/imp918s.imp"
52055 @ 439468:               PUSH   R
52056 @ 439471:               PUSH   ARSIZE
52057 @ 439474:               JUMPIF <= L_0004
52058 @ 439478:               PUSH   R
52059 @ 439481:               PUSH   ARSIZE
52060 @ 439484:               PUSHI  #0x0000012c
52061 @ 439489:               PUSH   CHECKSP
52062 @ 439492:               MUL   
52063 @ 439493:               ADD   
52064 @ 439494:               JUMPIF <= L_0004
52065 @ 439498:               PUSH   FAULT
52066 @ 439501:               PUSHI  #0x00000066
52067 @ 439506:               ASSPAR
52068 @ 439507:               PUSHI  #0x00000000
52069 @ 439512:               ASSPAR
52070 @ 439513:               CALL  
52071 @ 439514:               LOCATE L_0004

  8827           %IF HIT=0 %THEN %START
52072 @ 439517:               LINE   8827 "regression-compile-tmp/imp918s.imp"
52073 @ 439555:               PUSH   HIT
52074 @ 439558:               PUSHI  #0x00000000
52075 @ 439563:               JUMPIF # L_0004

  8828           FAULT(100,0); ->Label1
52076 @ 439567:               LINE   8828 "regression-compile-tmp/imp918s.imp"
52077 @ 439605:               PUSH   FAULT
52078 @ 439608:               PUSHI  #0x00000064
52079 @ 439613:               ASSPAR
52080 @ 439614:               PUSHI  #0x00000000
52081 @ 439619:               ASSPAR
52082 @ 439620:               CALL  
52083 @ 439621:               LINE   8828 "regression-compile-tmp/imp918s.imp"
52084 @ 439659:               JUMP   L_0162

  8829           %FINISH
52085 @ 439662:               LINE   8829 "regression-compile-tmp/imp918s.imp"
52086 @ 439700:               LOCATE L_0004

  8830           ->Label1 %IF  A(1)=10 %OR A(1)=29
  8831  !%finish
52087 @ 439703:               LINE   8830 "regression-compile-tmp/imp918s.imp"
52088 @ 439741:               PUSH   A
52089 @ 439744:               PUSHI  #0x00000001
52090 @ 439749:               ACCESS
52091 @ 439750:               PUSHI  #0x0000000a
52092 @ 439755:               JUMPIF = L_0005
52093 @ 439759:               PUSH   A
52094 @ 439762:               PUSHI  #0x00000001
52095 @ 439767:               ACCESS
52096 @ 439768:               PUSHI  #0x0000001d
52097 @ 439773:               JUMPIF # L_0004
52098 @ 439777:               LOCATE L_0005
52099 @ 439780:               JUMP   L_0162
52100 @ 439783:               LOCATE L_0004

  8832           STMTS=STMTS+1
52101 @ 439786:               LINE   8832 "regression-compile-tmp/imp918s.imp"
52102 @ 439824:               PUSH   STMTS
52103 @ 439827:               PUSH   STMTS
52104 @ 439830:               PUSHI  #0x00000001
52105 @ 439835:               ADD   
52106 @ 439836:               ASSVAL

  8833           %END
52107 @ 439837:               LINE   8833 "regression-compile-tmp/imp918s.imp"
52108 @ 439875:            END    _lev0id0_FETCHAR {lev=2 --> 1}

  8834           %ROUTINE STORE AR(%INTEGERNAME SUCCESS)
  8835           {%SHORTROUTINE}
52109 @ 439876:            LINE   8834 "regression-compile-tmp/imp918s.imp"
52110 @ 439914:            DEF    STOREAR (_lev0id0_STOREAR) p1=V_010b 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
52111 @ 439933:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
52112 @ 439934:                  DEF    SUCCESS p1=V_0162 a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
52113 @ 439953:               FINISH ) {lev=2}

  8836           %INTEGER I
52114 @ 439954:               LINE   8836 "regression-compile-tmp/imp918s.imp"
52115 @ 439992:               DEF    I p1=V_0163 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

  8837           SUCCESS=0
52116 @ 440005:               LINE   8837 "regression-compile-tmp/imp918s.imp"
52117 @ 440043:               PUSH   SUCCESS
52118 @ 440046:               PUSHI  #0x00000000
52119 @ 440051:               ASSVAL

  8838           %RETURN %IF STMTSHELD>=14 %OR R+TOPPTR>=799
  8839  !         %CYCLE I=0,1,R
  8840  !         A(TOPPTR+I)=A(I)
  8841  !         %REPEAT
  8842  !%if USE MC = 1 %start
  8843  !         *L_2,A; *L_3,TOPPTR
  8844  !         *AR_3,3; *AR_3,2
  8845  !         *LA_1,1; *A_1,R; *AR_1,1
  8846  !         *LA_0,256
  8847  !M2:      *SR_1,0; *BC_4,<M3>
  8848  !         *MVC_0(256,3),0(2); *BC_8,<M4>
  8849  !         *AR_3,0; *AR_2,0; *BC_15,<M2>
  8850  !M5:      *MVC_0(1,3),0(2)
  8851  !M3:      *BCTR_1,0; *EX_1,<M5>
  8852  !%finish
52120 @ 440052:               LINE   8838 "regression-compile-tmp/imp918s.imp"
52121 @ 440090:               PUSH   STMTSHELD
52122 @ 440093:               PUSHI  #0x0000000e
52123 @ 440098:               JUMPIF >= L_0005
52124 @ 440102:               PUSH   R
52125 @ 440105:               PUSH   TOPPTR
52126 @ 440108:               ADD   
52127 @ 440109:               PUSHI  #0x0000031f
52128 @ 440114:               JUMPIF < L_0004
52129 @ 440118:               LOCATE L_0005
52130 @ 440121:               RETURN
52131 @ 440122:               LOCATE L_0004

  8853  M4:      TOPPTR=TOPPTR+R+1
52132 @ 440125:               LINE   8853 "regression-compile-tmp/imp918s.imp"
52133 @ 440163:               LABEL  L_0164
52134 @ 440166:               LINE   8853 "regression-compile-tmp/imp918s.imp"
52135 @ 440204:               PUSH   TOPPTR
52136 @ 440207:               PUSH   TOPPTR
52137 @ 440210:               PUSH   R
52138 @ 440213:               ADD   
52139 @ 440214:               PUSHI  #0x00000001
52140 @ 440219:               ADD   
52141 @ 440220:               ASSVAL

  8854           SUCCESS=1
52142 @ 440221:               LINE   8854 "regression-compile-tmp/imp918s.imp"
52143 @ 440259:               PUSH   SUCCESS
52144 @ 440262:               PUSHI  #0x00000001
52145 @ 440267:               ASSVAL

  8855           %END
  8856  !%if INCLUDE DELSTART = 1 %start
52146 @ 440268:               LINE   8855 "regression-compile-tmp/imp918s.imp"
52147 @ 440306:            END    _lev0id0_STOREAR {lev=2 --> 1}

  8857           %ROUTINE     READ LINE(%BYTEINTEGER N,CHAR)
  8858           {%SHORTROUTINE}
52148 @ 440307:            LINE   8857 "regression-compile-tmp/imp918s.imp"
52149 @ 440345:            DEF    READLINE (_lev0id0_READLINE) p1=V_014a 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
52150 @ 440365:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
52151 @ 440366:                  DEF    N p1=V_0162 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
52152 @ 440379:                  DEF    CHAR p1=V_0163 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
52153 @ 440395:               FINISH ) {lev=2}

  8859           %ROUTINESPEC GET LINE
52154 @ 440396:               LINE   8859 "regression-compile-tmp/imp918s.imp"
52155 @ 440434:               DEF    GETLINE (_lev0id0_READLINE_GETLINE) p1=V_0164 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
52156 @ 440453:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
52157 @ 440454:               FINISH ) {lev=2}

  8860           %OWNINTEGER LAST=-1
52158 @ 440455:               LINE   8860 "regression-compile-tmp/imp918s.imp"
52159 @ 440493:               PUSHI  #0xffffffff
52160 @ 440498:               DEF    LAST p1=V_0165 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
52161 @ 440514:               INIT   1

  8861           %BYTEINTEGER NP
52162 @ 440517:               LINE   8861 "regression-compile-tmp/imp918s.imp"
52163 @ 440555:               DEF    NP p1=V_0166 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0

  8862           {%REGISTER}%integer ATRTABS
52164 @ 440569:               LINE   8862 "regression-compile-tmp/imp918s.imp"
52165 @ 440607:               DEF    ATRTABS p1=V_0167 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

  8863           %OWNINTEGER M127=127
52166 @ 440626:               LINE   8863 "regression-compile-tmp/imp918s.imp"
52167 @ 440664:               PUSHI  #0x0000007f
52168 @ 440669:               DEF    M127 p1=V_0168 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
52169 @ 440685:               INIT   1

  8864           {%REGISTER}%integer DEL
52170 @ 440688:               LINE   8864 "regression-compile-tmp/imp918s.imp"
52171 @ 440726:               DEF    DEL p1=V_0169 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

  8865           %INTEGER LL,L73,PAD
52172 @ 440741:               LINE   8865 "regression-compile-tmp/imp918s.imp"
52173 @ 440779:               DEF    LL p1=V_016a 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
52174 @ 440793:               DEF    L73 p1=V_016b 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
52175 @ 440808:               DEF    PAD p1=V_016c 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

  8866           %CONSTBYTEINTEGERARRAY TR(0:127)=1,0(9),1,0(117)
52176 @ 440823:               LINE   8866 "regression-compile-tmp/imp918s.imp"
52177 @ 440861:               PUSHI  #0x00000000
52178 @ 440866:               PUSHI  #0x0000007f
52179 @ 440871:               BOUNDS
52180 @ 440872:               DEF    TR p1=V_016d 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
52181 @ 440886:               PUSHI  #0x00000001
52182 @ 440891:               INIT   1
52183 @ 440894:               PUSHI  #0x00000000
52184 @ 440899:               INIT   9
52185 @ 440902:               PUSHI  #0x00000001
52186 @ 440907:               INIT   1
52187 @ 440910:               PUSHI  #0x00000000
52188 @ 440915:               INIT   117

  8867           %BYTEINTEGERARRAY TLINE(0:255)
52189 @ 440918:               LINE   8867 "regression-compile-tmp/imp918s.imp"
52190 @ 440956:               DEF    TLINE p1=V_016e a/tf=1b b/format=2 c/ostate=100  type=1 (integer) form=11 (array) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
52191 @ 440973:               PUSHI  #0x00000000
52192 @ 440978:               PUSHI  #0x000000ff
52193 @ 440983:               DIM    0001 0001

  8868           ATRTABS=ADDR(TRTABS(0))
52194 @ 440989:               LINE   8868 "regression-compile-tmp/imp918s.imp"
52195 @ 441027:               PUSH   ATRTABS
52196 @ 441030:               PUSH   ADDR
52197 @ 441033:               PUSH   TRTABS
52198 @ 441036:               PUSHI  #0x00000000
52199 @ 441041:               ACCESS
52200 @ 441042:               ASSPAR
52201 @ 441043:               CALL  
52202 @ 441044:               ASSVAL

  8869           NP=N; LENGTH=1; LENGTHP=1
52203 @ 441045:               LINE   8869 "regression-compile-tmp/imp918s.imp"
52204 @ 441083:               PUSH   NP
52205 @ 441086:               PUSH   N
52206 @ 441089:               ASSVAL
52207 @ 441090:               LINE   8869 "regression-compile-tmp/imp918s.imp"
52208 @ 441128:               PUSH   LENGTH
52209 @ 441131:               PUSHI  #0x00000001
52210 @ 441136:               ASSVAL
52211 @ 441137:               LINE   8869 "regression-compile-tmp/imp918s.imp"
52212 @ 441175:               PUSH   LENGTHP
52213 @ 441178:               PUSHI  #0x00000001
52214 @ 441183:               ASSVAL

  8870           DEL=0; QMAX=ADDR(CC(1))
52215 @ 441184:               LINE   8870 "regression-compile-tmp/imp918s.imp"
52216 @ 441222:               PUSH   DEL
52217 @ 441225:               PUSHI  #0x00000000
52218 @ 441230:               ASSVAL
52219 @ 441231:               LINE   8870 "regression-compile-tmp/imp918s.imp"
52220 @ 441269:               PUSH   QMAX
52221 @ 441272:               PUSH   ADDR
52222 @ 441275:               PUSH   CC
52223 @ 441278:               PUSHI  #0x00000001
52224 @ 441283:               ACCESS
52225 @ 441284:               ASSPAR
52226 @ 441285:               CALL  
52227 @ 441286:               ASSVAL

  8871  Label1:       LENGTH=LENGTH-1
52228 @ 441287:               LINE   8871 "regression-compile-tmp/imp918s.imp"
52229 @ 441325:               LABEL  L_016f
52230 @ 441328:               LINE   8871 "regression-compile-tmp/imp918s.imp"
52231 @ 441366:               PUSH   LENGTH
52232 @ 441369:               PUSH   LENGTH
52233 @ 441372:               PUSHI  #0x00000001
52234 @ 441377:               SUB   
52235 @ 441378:               ASSVAL

  8872  Label2:                                     ! READ IN A LINE
52236 @ 441379:               LINE   8872 "regression-compile-tmp/imp918s.imp"
52237 @ 441417:               LABEL  L_0170

  8873           %IF FILE ADDR=0 %THEN GET LINE %ELSE %START
52238 @ 441420:               LINE   8873 "regression-compile-tmp/imp918s.imp"
52239 @ 441458:               PUSH   FILEADDR
52240 @ 441461:               PUSHI  #0x00000000
52241 @ 441466:               JUMPIF # L_0004
52242 @ 441470:               PUSH   GETLINE
52243 @ 441473:               CALL  
52244 @ 441474:               GOTO   L_0003
52245 @ 441477:               LOCATE L_0004

  8874              LL=FILE END-FILE PTR-1
52246 @ 441480:               LINE   8874 "regression-compile-tmp/imp918s.imp"
52247 @ 441518:               PUSH   LL
52248 @ 441521:               PUSH   FILEEND
52249 @ 441524:               PUSH   FILEPTR
52250 @ 441527:               SUB   
52251 @ 441528:               PUSHI  #0x00000001
52252 @ 441533:               SUB   
52253 @ 441534:               ASSVAL

  8875              %MONITOR {9} %IF LL<0
  8876  !%if USE MC = 1 %start
  8877  !            *L_14,LL; *LA_15,255
  8878  !            *L_3,FILEPTR; *L_4,TR; *SR_1,1
  8879  !            *CR_14,15; *BC_10,*+6; *LR_15,14
  8880  !            *EX_15,<TRTP>
  8881  !            *BC_7,*+8; *LA_1,0(15,3)
  8882  !            *LA_15,1(1); *SR_1,3
  8883  !            *L_4,TLINE; *EX_1,<MOVEP>
  8884  !            *LA_1,1(1); *ST_1,LL
  8885  !            *ST_15,FILEPTR; *IC_1,73(4); *ST_1,L73
  8886  !            *ST_4,PAD; *MVI_73(4),10
  8887  !%finish
52254 @ 441535:               LINE   8875 "regression-compile-tmp/imp918s.imp"
52255 @ 441573:               PUSH   LL
52256 @ 441576:               PUSHI  #0x00000000
52257 @ 441581:               JUMPIF >= L_0007
52258 @ 441585:               MONITOR
52259 @ 441586:               LOCATE L_0007

  8888           %FINISH
  8889  !%if USE MC = 1 %start
  8890  !         *L_4,CC; *A_4,LENGTH;      ! SET POINTER TO CC FORRCL
  8891  !         *L_1,TLINE;                ! POINTER TO RAW LINE
  8892  !         *L_0,LL; *AR_0,1;          !ADDR OF LAST CHAR
  8893  !         *SR_2,2;                   ! TO RECEIVE CHAR TYPE FROM TRT
  8894  !         *CLI_NP,0; *BC_8,<NEXT>;      ! TEXT MODE SEPARATE
  8895  !         *MVI_1187(5),0; *MVI_1192(5),0; *BC_15,<TNEXT>
  8896  !UNFIN:   *S_4,CC; *ST_4,LENGTH; *BC_15,<2>
  8897  !NEXT:    *LA_1,1(0,1)
  8898  !SAME:    *TRT_0(255,1),768(5);         ! EXTRACT NEXT VALID CHAR
  8899  !         *CR_1,0; *BC_12,<TAB>(2);     ! SWITCH ON CHAR
  8900  !TAB:     *BC_15,<UNFIN>;               ! UNLESS ENDOFLINE WITHOUT NL
  8901  !         *BC_15,<QUOTE>
  8902  !         *BC_15,<SP>
  8903  !         *BC_15,<NL>
  8904  !         *BC_15,<PERCENT>
  8905  !         *BC_15,<NONALPHA>
  8906  !         *BC_15,<ALPHA>
  8907  !         *BC_15,<MAP>
  8908  !QUOTE:   *XI_NP,1
  8909  !         *MVC_CHAR(1),0(1);             ! SAVE STRING OPENING CHAR
  8910  !         *MVC_1(1,4),CHAR
  8911  !         *LA_1,1(0,1); *LA_4,1(0,4)
  8912  !         *MVI_1281(5),0;               ! TRTAB TO SKIP 7
  8913  !         *MVI_1192(5),0;               ! TRTAB TO SKIP PERCENT
  8914  !         *MVI_1187(5),0; *BC_15,<TCOM>;! TRTAB TO SKIP SPACE
  8915  !SP:      *SR_6,6
  8916  !         *TRT_0(255,1),897(5);         ! NEXT VALID NON SPACE
  8917  !         *CR_1,0; *BC_12,<TAB>(2);     ! SWITCH ON CHAR
  8918  !         *BC_15,<UNFIN>
  8919  !NL:      *SR_6,6                       ;! DEL=0
  8920  !         *MVI_1(4),10;                 ! MOVE IN NEWLINE
  8921  !         *LA_4,1(0,4); *BC_15,<ENDLINE>
  8922  !PERCENT: *LA_6,128;                    ! DEL=128
  8923  !         *LA_1,1(0,1)
  8924  !         *LNR_3,1
  8925  !         *LR_15,1
  8926  !         *TRT_0(39,1),1026(5)
  8927  !         *BC_8,<SAME>
  8928  !         *AR_3,1
  8929  !         *BC_8,<SAME>
  8930  !         *EX_3,<MOVE>
  8931  !         *EX_3,<ULINE>
  8932  !         *LA_4,0(3,4)
  8933  !         *N_2,M127
  8934  !         *BC_7,<TAB>(2)
  8935  !         *BC_15,<SAME>
  8936  !TRTP:    *TRT_0(1,3),0(4)
  8937  !MOVEP:   *MVC_1(1,4),0(3)
  8938  !MOVE:    *MVC_1(0,4),0(15)
  8939  !ULINE:   *OC_1(0,4),0(5);              ! OR WITH X'80'
  8940  !NONALPHA:*SR_6,6;                      ! DEL=0
  8941  !ENBLOCK: *LNR_3,1;*LR_15,1
  8942  !         *TRT_0(255,1),1155(5);        !TEST FOR ALPHANUMERICS
  8943  !         *AR_3,1
  8944  !         *EX_3,<MOVE>;                 ! QUICKER TO MOVE 1 TOO MANY
  8945  !         *LA_4,0(3,4)
  8946  !         *N_2,M127
  8947  !         *BC_7,<TAB>(2)
  8948  !         *BC_15,<SAME>
  8949  !ALPHA:   *LTR_6,6;                     ! -> ENBLOCK %IF DEL=0
  8950  !         *BC_8,<ENBLOCK>
  8951  !         *MVC_1(1,4),0(1)
  8952  !         *OI_1(4),128
  8953  !         *LA_4,1(0,4);*BC_15,<NEXT>
  8954  !MAP:     *SR_6,6;                      ! DEL=0
  8955  !         *MVI_1(4),92;                 ! MAP TWIDDLES INTO '\'
  8956  !         *LA_4,1(0,4); *BC_15,<NEXT>
  8957  !TUNFIN:  *S_4,CC; *ST_4,LENGTH; *BC_15,<2>
  8958  !TNEXT:   *LA_1,1(0,1)
  8959  !%finish
52260 @ 441589:               LINE   8888 "regression-compile-tmp/imp918s.imp"
52261 @ 441627:               LOCATE L_0003

  8960  TSAME:
  8961  !%if USE MC = 1 %start
  8962  !         *TRT_0(255,1),768(5);         ! EXTRACT NEXT VALID CHAR
  8963  !         *CR_1,0; *BC_12,<TTAB>(2);    ! SWITCH ON CHAR
  8964  !TTAB:    *BC_15,<TUNFIN>
  8965  !         *BC_15,<TQUOTE>
  8966  !         *BC_15,<TCOM>
  8967  !         *BC_15,<TNL>
  8968  !         *BC_15,<TCOM>
  8969  !         *BC_15,<TCOM>
  8970  !         *BC_15,<TCOM>
  8971  !         *BC_15,<TCOM>
  8972  !%finish
52262 @ 441630:               LINE   8960 "regression-compile-tmp/imp918s.imp"
52263 @ 441668:               LABEL  L_0171

  8973  TQUOTE:
  8974  !%if USE MC = 1 %start
  8975  !         *MVC_1(1,4),0(1)
  8976  !         *LA_4,1(0,4)
  8977  !         *CLC_CHAR(1),0(1)
  8978  !         *BC_7,<TNEXT>;                 ! NOT THE CLOSING CHAR
  8979  !         *XI_NP,1
  8980  !         *MVI_1281(5),28;              ! TRTAB AS INITIALISED FOR \
  8981  !         *MVI_1187(5),8;               ! TRTAB AS INITIALISED
  8982  !         *MVI_1192(5),16;              ! TRTAB AS INITIALISED
  8983  !         *SR_6,6;
  8984  !         *BC_15,<NEXT>
  8985  !TCOM:    *LNR_3,1; *LR_15,1
  8986  !         *TRT_0(255,1),1155(5)
  8987  !         *AR_3,1; *EX_3,<MOVE>;        ! MOVES ONE MORE THAN NEEDED
  8988  !         *LA_4,0(3,4); *N_2,M127
  8989  !         *BC_7,<TTAB>(2); *BC_15,<TSAME>
  8990  !TNL:     *CLI_0(4),32;                 ! CHECK FOR TRAILING SPACES
  8991  !         *BC_7,<TNL2>
  8992  !         *BCT_4,<TNL>
  8993  !TNL2:    *MVI_1(4),10;                 ! MOVE IN NEWLINE
  8994  !         *MVI_1281(5),28;              ! TRTAB AS INITIALISED FOR \
  8995  !         *MVI_1192(5),16; *MVI_1187(5),8;! TRTAB AS INITIALISED
  8996  !         *LA_4,1(0,4)
  8997  !ENDLINE: *S_4,CC; *ST_4,LENGTH
  8998  !%finish
52264 @ 441671:               LINE   8973 "regression-compile-tmp/imp918s.imp"
52265 @ 441709:               LABEL  L_0172

  8999           ->Label1 %IF LENGTH=LENGTHP %AND N=0;! IGNORE NL IN PRGRMODE
52266 @ 441712:               LINE   8999 "regression-compile-tmp/imp918s.imp"
52267 @ 441750:               PUSH   LENGTH
52268 @ 441753:               PUSH   LENGTHP
52269 @ 441756:               JUMPIF # L_0004
52270 @ 441760:               PUSH   N
52271 @ 441763:               PUSHI  #0x00000000
52272 @ 441768:               JUMPIF # L_0004
52273 @ 441772:               JUMP   L_016f
52274 @ 441775:               LOCATE L_0004

  9000           -> NOLIST %IF LIST=0
52275 @ 441778:               LINE   9000 "regression-compile-tmp/imp918s.imp"
52276 @ 441816:               PUSH   LIST
52277 @ 441819:               PUSHI  #0x00000000
52278 @ 441824:               JUMPIF # L_0004
52279 @ 441828:               JUMP   L_0173
52280 @ 441831:               LOCATE L_0004

  9001           NEWLINE; %IF LINE=LAST %THEN %START
52281 @ 441834:               LINE   9001 "regression-compile-tmp/imp918s.imp"
52282 @ 441872:               PUSH   NEWLINE
52283 @ 441875:               CALL  
52284 @ 441876:               LINE   9001 "regression-compile-tmp/imp918s.imp"
52285 @ 441914:               PUSH   LINE
52286 @ 441917:               PUSH   LAST
52287 @ 441920:               JUMPIF # L_0004

  9002           SPACES(5);PRINT SYMBOL('C')
52288 @ 441924:               LINE   9002 "regression-compile-tmp/imp918s.imp"
52289 @ 441962:               PUSH   SPACES
52290 @ 441965:               PUSHI  #0x00000005
52291 @ 441970:               ASSPAR
52292 @ 441971:               CALL  
52293 @ 441972:               LINE   9002 "regression-compile-tmp/imp918s.imp"
52294 @ 442010:               PUSH   PRINTSYMBOL
52295 @ 442013:               PUSHI  #0x00000043
52296 @ 442018:               ASSPAR
52297 @ 442019:               CALL  

  9003           %IF PRINTMAP=1 %THEN SPACES(3*LEVEL+5) %ELSE SPACES(4*LEVEL)
52298 @ 442020:               LINE   9003 "regression-compile-tmp/imp918s.imp"
52299 @ 442058:               PUSH   PRINTMAP
52300 @ 442061:               PUSHI  #0x00000001
52301 @ 442066:               JUMPIF # L_0007
52302 @ 442070:               PUSH   SPACES
52303 @ 442073:               PUSHI  #0x00000003
52304 @ 442078:               PUSH   LEVEL
52305 @ 442081:               MUL   
52306 @ 442082:               PUSHI  #0x00000005
52307 @ 442087:               ADD   
52308 @ 442088:               ASSPAR
52309 @ 442089:               CALL  
52310 @ 442090:               GOTO   L_0006
52311 @ 442093:               LOCATE L_0007
52312 @ 442096:               PUSH   SPACES
52313 @ 442099:               PUSHI  #0x00000004
52314 @ 442104:               PUSH   LEVEL
52315 @ 442107:               MUL   
52316 @ 442108:               ASSPAR
52317 @ 442109:               CALL  
52318 @ 442110:               LOCATE L_0006

  9004           %FINISH %ELSE %START
52319 @ 442113:               LINE   9004 "regression-compile-tmp/imp918s.imp"
52320 @ 442151:               GOTO   L_0003
52321 @ 442154:               LOCATE L_0004

  9005           WRITE(LINE+1,5)
52322 @ 442157:               LINE   9005 "regression-compile-tmp/imp918s.imp"
52323 @ 442195:               PUSH   WRITE
52324 @ 442198:               PUSH   LINE
52325 @ 442201:               PUSHI  #0x00000001
52326 @ 442206:               ADD   
52327 @ 442207:               ASSPAR
52328 @ 442208:               PUSHI  #0x00000005
52329 @ 442213:               ASSPAR
52330 @ 442214:               CALL  

  9006           LAST=LINE
52331 @ 442215:               LINE   9006 "regression-compile-tmp/imp918s.imp"
52332 @ 442253:               PUSH   LAST
52333 @ 442256:               PUSH   LINE
52334 @ 442259:               ASSVAL

  9007           PRINTSYMBOL(M'''') %IF N=1
52335 @ 442260:               LINE   9007 "regression-compile-tmp/imp918s.imp"
52336 @ 442298:               PUSH   N
52337 @ 442301:               PUSHI  #0x00000001
52338 @ 442306:               JUMPIF # L_0007
52339 @ 442310:               PUSH   PRINTSYMBOL
52340 @ 442313:               PUSHI  #0x00000027
52341 @ 442318:               ASSPAR
52342 @ 442319:               CALL  
52343 @ 442320:               LOCATE L_0007

  9008           SPACES(2-N)
52344 @ 442323:               LINE   9008 "regression-compile-tmp/imp918s.imp"
52345 @ 442361:               PUSH   SPACES
52346 @ 442364:               PUSHI  #0x00000002
52347 @ 442369:               PUSH   N
52348 @ 442372:               SUB   
52349 @ 442373:               ASSPAR
52350 @ 442374:               CALL  

  9009           %IF PRINTMAP=1 %THEN PRHEX(CA,5)
52351 @ 442375:               LINE   9009 "regression-compile-tmp/imp918s.imp"
52352 @ 442413:               PUSH   PRINTMAP
52353 @ 442416:               PUSHI  #0x00000001
52354 @ 442421:               JUMPIF # L_0007
52355 @ 442425:               PUSH   PRHEX
52356 @ 442428:               PUSH   CA
52357 @ 442431:               ASSPAR
52358 @ 442432:               PUSHI  #0x00000005
52359 @ 442437:               ASSPAR
52360 @ 442438:               CALL  
52361 @ 442439:               LOCATE L_0007

  9010           SPACES((4-PRINTMAP)*LEVEL-2)
52362 @ 442442:               LINE   9010 "regression-compile-tmp/imp918s.imp"
52363 @ 442480:               PUSH   SPACES
52364 @ 442483:               PUSHI  #0x00000004
52365 @ 442488:               PUSH   PRINTMAP
52366 @ 442491:               SUB   
52367 @ 442492:               PUSH   LEVEL
52368 @ 442495:               MUL   
52369 @ 442496:               PUSHI  #0x00000002
52370 @ 442501:               SUB   
52371 @ 442502:               ASSPAR
52372 @ 442503:               CALL  

  9011           %FINISH
52373 @ 442504:               LINE   9011 "regression-compile-tmp/imp918s.imp"
52374 @ 442542:               LOCATE L_0003

  9012           TLINE(73)=L73; BYTE INTEGER(PAD)=LL-1
52375 @ 442545:               LINE   9012 "regression-compile-tmp/imp918s.imp"
52376 @ 442583:               PUSH   TLINE
52377 @ 442586:               PUSHI  #0x00000049
52378 @ 442591:               ACCESS
52379 @ 442592:               PUSH   L73
52380 @ 442595:               ASSVAL
52381 @ 442596:               LINE   9012 "regression-compile-tmp/imp918s.imp"
52382 @ 442634:               PUSH   BYTEINTEGER
52383 @ 442637:               PUSH   PAD
52384 @ 442640:               ASSPAR
52385 @ 442641:               CALL  
52386 @ 442642:               PUSH   LL
52387 @ 442645:               PUSHI  #0x00000001
52388 @ 442650:               SUB   
52389 @ 442651:               ASSVAL

  9013           IOCP(15,PAD);       ! PRINTSTRING EXCEPT FINAL NL
52390 @ 442652:               LINE   9013 "regression-compile-tmp/imp918s.imp"
52391 @ 442690:               PUSH   IOCP
52392 @ 442693:               PUSHI  #0x0000000f
52393 @ 442698:               ASSPAR
52394 @ 442699:               PUSH   PAD
52395 @ 442702:               ASSPAR
52396 @ 442703:               CALL  

  9014  NOLIST:
52397 @ 442704:               LINE   9014 "regression-compile-tmp/imp918s.imp"
52398 @ 442742:               LABEL  L_0173

  9015           ->Label5 %UNLESS LENGTH>=2 %AND CC(LENGTH-1)=195;!%C   AT LINE EDN
52399 @ 442745:               LINE   9015 "regression-compile-tmp/imp918s.imp"
52400 @ 442783:               PUSH   LENGTH
52401 @ 442786:               PUSHI  #0x00000002
52402 @ 442791:               JUMPIF < L_0005
52403 @ 442795:               PUSH   CC
52404 @ 442798:               PUSH   LENGTH
52405 @ 442801:               PUSHI  #0x00000001
52406 @ 442806:               SUB   
52407 @ 442807:               ACCESS
52408 @ 442808:               PUSHI  #0x000000c3
52409 @ 442813:               JUMPIF = L_0004
52410 @ 442817:               LOCATE L_0005
52411 @ 442820:               JUMP   L_0174
52412 @ 442823:               LOCATE L_0004

  9016           LENGTH=LENGTH-2; LENGTHP=LENGTHP+1
52413 @ 442826:               LINE   9016 "regression-compile-tmp/imp918s.imp"
52414 @ 442864:               PUSH   LENGTH
52415 @ 442867:               PUSH   LENGTH
52416 @ 442870:               PUSHI  #0x00000002
52417 @ 442875:               SUB   
52418 @ 442876:               ASSVAL
52419 @ 442877:               LINE   9016 "regression-compile-tmp/imp918s.imp"
52420 @ 442915:               PUSH   LENGTHP
52421 @ 442918:               PUSH   LENGTHP
52422 @ 442921:               PUSHI  #0x00000001
52423 @ 442926:               ADD   
52424 @ 442927:               ASSVAL

  9017  Label20:      %COMMENT ALL THE FOLLOWING IS TO SKIP NLS AFTER '%C'
52425 @ 442928:               LINE   9017 "regression-compile-tmp/imp918s.imp"
52426 @ 442966:               LABEL  L_0175

  9018           GET LINE
  9019  !%if USE MC = 1 %start
  9020  !         *L_4,CC; *A_4,LENGTH;      ! SET POINTER TO CC FORRCL
  9021  !         *L_1,TLINE;                 ! POINTER TO RAW LINE
  9022  !         *L_0,LL; *AR_0,1;          ! ADDR OF LAST CHAR
  9023  !         *SR_2,2;                   ! TO RECEIVE CHAR TYPE FROM TRT
  9024  !NEXTP:   *LA_1,1(0,1); *TM_0(1),128
  9025  !         *BC_1,<NEXTP>; *CLI_0(1),10
  9026  !         *BC_8,<20>; *BC_15,<SAME>
  9027  !%finish
52427 @ 442969:               LINE   9018 "regression-compile-tmp/imp918s.imp"
52428 @ 443007:               PUSH   GETLINE
52429 @ 443010:               CALL  

  9028  Label5:       LINE=LINE+1
52430 @ 443011:               LINE   9028 "regression-compile-tmp/imp918s.imp"
52431 @ 443049:               LABEL  L_0174
52432 @ 443052:               LINE   9028 "regression-compile-tmp/imp918s.imp"
52433 @ 443090:               PUSH   LINE
52434 @ 443093:               PUSH   LINE
52435 @ 443096:               PUSHI  #0x00000001
52436 @ 443101:               ADD   
52437 @ 443102:               ASSVAL

  9029           FAULT(101,0) %IF LENGTH>=CCSIZE
  9030  !%if USE MC = 1 %start
  9031  !         *L_4,LENGTH; *A_4,CC
  9032  !         *ST_4,LENGTH
  9033  !         *XC_1(3,4),1(4);              !CLEAR BEYOND NL
  9034  !%finish
52438 @ 443103:               LINE   9029 "regression-compile-tmp/imp918s.imp"
52439 @ 443141:               PUSH   LENGTH
52440 @ 443144:               PUSH   CCSIZE
52441 @ 443147:               JUMPIF < L_0004
52442 @ 443151:               PUSH   FAULT
52443 @ 443154:               PUSHI  #0x00000065
52444 @ 443159:               ASSPAR
52445 @ 443160:               PUSHI  #0x00000000
52446 @ 443165:               ASSPAR
52447 @ 443166:               CALL  
52448 @ 443167:               LOCATE L_0004

  9035           Q=ADDR(CC(1))
52449 @ 443170:               LINE   9035 "regression-compile-tmp/imp918s.imp"
52450 @ 443208:               PUSH   Q
52451 @ 443211:               PUSH   ADDR
52452 @ 443214:               PUSH   CC
52453 @ 443217:               PUSHI  #0x00000001
52454 @ 443222:               ACCESS
52455 @ 443223:               ASSPAR
52456 @ 443224:               CALL  
52457 @ 443225:               ASSVAL

  9036           %RETURN
52458 @ 443226:               LINE   9036 "regression-compile-tmp/imp918s.imp"
52459 @ 443264:               RETURN

  9037           %ROUTINE GET LINE
52460 @ 443265:               LINE   9037 "regression-compile-tmp/imp918s.imp"
52461 @ 443303:               DEF    GETLINE (_lev0id0_READLINE_GETLINE) p1=V_0164 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
52462 @ 443322:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
52463 @ 443323:                  FINISH ) {lev=3}

  9038           %INTEGER J,K
52464 @ 443324:                  LINE   9038 "regression-compile-tmp/imp918s.imp"
52465 @ 443362:                  DEF    J p1=V_0176 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
52466 @ 443375:                  DEF    K p1=V_0177 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

  9039           %IF FILE ADDR=0 %THEN %START;  ! SOURCE NOT A 'CLEAN' FILE
52467 @ 443388:                  LINE   9039 "regression-compile-tmp/imp918s.imp"
52468 @ 443426:                  PUSH   FILEADDR
52469 @ 443429:                  PUSHI  #0x00000000
52470 @ 443434:                  JUMPIF # L_0004

  9040              IOCP(6,0);                  ! RECONSTRUCT A SOURCE LINE
  9041  !%if USE MC = 1 %start
  9042  !            *L_2,TLINE;                  ! TO RECEIVE A COPY
  9043  !            *SR_3,3; *IC_3,0(1);        ! LENGTH
  9044  !            *EX_3,<MOVE>;               ! MAKE COPY OF LINE
  9045  !            *ST_3,LL;                   ! LL=LENGTH+1
  9046  !%finish
52471 @ 443438:                  LINE   9040 "regression-compile-tmp/imp918s.imp"
52472 @ 443476:                  PUSH   IOCP
52473 @ 443479:                  PUSHI  #0x00000006
52474 @ 443484:                  ASSPAR
52475 @ 443485:                  PUSHI  #0x00000000
52476 @ 443490:                  ASSPAR
52477 @ 443491:                  CALL  

  9047              L73=TLINE(73)
52478 @ 443492:                  LINE   9047 "regression-compile-tmp/imp918s.imp"
52479 @ 443530:                  PUSH   L73
52480 @ 443533:                  PUSH   TLINE
52481 @ 443536:                  PUSHI  #0x00000049
52482 @ 443541:                  ACCESS
52483 @ 443542:                  ASSVAL

  9048             IOCP(14,0)
  9049  !%if USE MC = 1 %start
  9050  !           *ST_1,PAD
  9051  !%finish
52484 @ 443543:                  LINE   9048 "regression-compile-tmp/imp918s.imp"
52485 @ 443581:                  PUSH   IOCP
52486 @ 443584:                  PUSHI  #0x0000000e
52487 @ 443589:                  ASSPAR
52488 @ 443590:                  PUSHI  #0x00000000
52489 @ 443595:                  ASSPAR
52490 @ 443596:                  CALL  

  9052           %FINISH %ELSE %START
52491 @ 443597:                  LINE   9052 "regression-compile-tmp/imp918s.imp"
52492 @ 443635:                  GOTO   L_0003
52493 @ 443638:                  LOCATE L_0004

  9053              LL=FILE END-FILE PTR-1
52494 @ 443641:                  LINE   9053 "regression-compile-tmp/imp918s.imp"
52495 @ 443679:                  PUSH   LL
52496 @ 443682:                  PUSH   FILEEND
52497 @ 443685:                  PUSH   FILEPTR
52498 @ 443688:                  SUB   
52499 @ 443689:                  PUSHI  #0x00000001
52500 @ 443694:                  SUB   
52501 @ 443695:                  ASSVAL

  9054              %IF LL<0 %THEN %MONITOR {99}
  9055  !            LL=0
  9056  !            %CYCLE
  9057  !               K=BYTE INTEGER(FILEPTR); ! NEXT CHAR FROM SORCE FILE
  9058  !               FILE PTR=FILE PTR+1
  9059  !               TLINE(LL+1)=K
  9060  !               LL=LL+1 %IF LL<250
  9061  !            %REPEAT %UNTIL K=NL %OR K=0
  9062  !            L73=TLINE(73);              ! SAVE 73 CHARACTER
  9063  !            TLINE(73)=10
  9064  !            PAD=ADDR(TLINE(0))
  9065  !%if USE MC = 1 %start
  9066  !            *L_14,LL; *LA_15,255
  9067  !            *L_3,FILEPTR; *L_4,TR; *SR_1,1;! TRT DOES NOT CLEAR R1!
  9068  !            *CR_14,15; *BC_10,*+6; *LR_15,14
  9069  !            *EX_15,<TRTP>
  9070  !            *BC_7,*+8; *LA_1,0(15,3)
  9071  !            *LA_15,1(1); *SR_1,3;       ! LL-1 IN R1
  9072  !            *L_4,TLINE; *EX_1,<MOVEP>
  9073  !            *LA_1,1(1); *ST_1,LL
  9074  !            *ST_15,FILEPTR
  9075  !            *IC_1,73(4); *ST_1,L73
  9076  !         *ST_4,PAD; *MVI_73(4),10
  9077  !%finish
52502 @ 443696:                  LINE   9054 "regression-compile-tmp/imp918s.imp"
52503 @ 443734:                  PUSH   LL
52504 @ 443737:                  PUSHI  #0x00000000
52505 @ 443742:                  JUMPIF >= L_0007
52506 @ 443746:                  MONITOR
52507 @ 443747:                  LOCATE L_0007

  9078           %FINISH
52508 @ 443750:                  LINE   9078 "regression-compile-tmp/imp918s.imp"
52509 @ 443788:                  LOCATE L_0003

  9079           %RETURN
  9080  !%if USE MC = 1 %start
  9081  !MOVE:    *MVC_0(1,2),0(1)
  9082  !TRTP:    *TRT_0(1,3),0(4)
  9083  !MOVEP:   *MVC_1(1,4),0(3)
  9084  !%finish
52510 @ 443791:                  LINE   9079 "regression-compile-tmp/imp918s.imp"
52511 @ 443829:                  RETURN

  9085           %END
52512 @ 443830:                  LINE   9085 "regression-compile-tmp/imp918s.imp"
52513 @ 443868:               END    _lev0id0_READLINE_GETLINE {lev=3 --> 2}

  9086           %END
52514 @ 443869:               LINE   9086 "regression-compile-tmp/imp918s.imp"
52515 @ 443907:            END    _lev0id0_READLINE {lev=2 --> 1}

  9087                 %ROUTINE COMPARE
  9088           {%SHORTROUTINE}
52516 @ 443908:            LINE   9087 "regression-compile-tmp/imp918s.imp"
52517 @ 443946:            DEF    COMPARE (_lev0id0_COMPARE) p1=V_0145 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
52518 @ 443965:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
52519 @ 443966:               FINISH ) {lev=2}

  9089           %INTEGER RA,RQ,RR,RS
52520 @ 443967:               LINE   9089 "regression-compile-tmp/imp918s.imp"
52521 @ 444005:               DEF    RA p1=V_0162 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
52522 @ 444019:               DEF    RQ p1=V_0163 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
52523 @ 444033:               DEF    RR p1=V_0164 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
52524 @ 444047:               DEF    RS p1=V_0165 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

  9090           %SHORTINTEGER RP,PP,ALT,MARKER
52525 @ 444061:               LINE   9090 "regression-compile-tmp/imp918s.imp"
52526 @ 444099:               DEF    RP p1=V_0166 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
52527 @ 444113:               DEF    PP p1=V_0167 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
52528 @ 444127:               DEF    ALT p1=V_0168 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
52529 @ 444142:               DEF    MARKER p1=V_0169 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0

  9091           %OWNINTEGER THIRTYTWO=32
  9092  
  9093  
  9094  
  9095  
  9096  
  9097  
  9098  ! GENERATED ON 27/04/77
52530 @ 444160:               LINE   9091 "regression-compile-tmp/imp918s.imp"
52531 @ 444198:               PUSHI  #0x00000020
52532 @ 444203:               DEF    THIRTYTWO p1=V_016a a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
52533 @ 444224:               INIT   1

  9099  %CONSTSHORTINTEGERARRAY SYMBOL( 1059: 2900)= 299,   301,   296,   297,  {   1062
  9100     289,   300,   713, 50694, 54734, 52421, 54227,  1495, 51401, 52421,  {   1072
  9101    1493, 52948, 51660,  1987, 53197, 52677, 52948,  1993, 52948, 50631,  {   1082
  9102   50642,  1234, 50625, 52228, 49881, 54469,  1491, 51407, 53972,  1228,  {   1092
  9103   53198, 50950, 54228, 53961, 52935,  2002, 53205, 54473, 52933,   710,  {   1102
  9104   52739, 52673, 53252, 52929, 52677,  1746, 50627, 53202, 50181, 49618,  {   1112
  9105   53953, 55561, 49618, 53953, 55758, 49613, 50441, 53190, 53458, 53191,  {   1122
  9106   53953, 52486, 53190, 50889, 52421,  1743, 50892, 51667, 54279, 53190,  {   1132
  9107   52675, 53188, 50438, 50895, 53965, 49620,  1235, 53445, 49923, 49614,  {   1142
  9108   50178, 53202,  1742, 53202, 52673, 52225, 14852, 53445, 53965,  1225,  {   1152
  9109   53187, 53254, 52673, 51662, 50640,   975, 55246,  2245, 55508, 50642,  {   1162
  9110   52929, 52233, 50648, 54482, 51662, 54217, 49925, 50127, 52947, 54274,  {   1172
  9111   11582,  1235, 54479, 53253, 54228, 49618, 54281, 54472, 50638, 54228,  {   1182
  9112   49618, 54276, 54472, 50638,  1475, 55747, 52421,  2516, 51397, 52931,  {   1192
  9113   55747, 52421,  2501, 52435, 50643, 54465, 53972,  1221, 52435, 50433,  {   1202
  9114   24325, 50646, 50638, 54273, 15622, 54233, 54228, 50637,  1988, 55758,  {   1212
  9115   49613, 51651,   316,   318,   298,   336,  1104, 21844, 24327, 21843,  {   1222
  9116   18766, 18218, 11268, 17490, 20304,   320,  2512, 53961, 52948, 54469,  {   1232
  9117   55508,  1746, 50644, 54738, 52742, 53957, 54229, 52436,  1997, 53198,  {   1242
  9118   51668, 53202,  1221, 55497, 54278, 53957, 53445, 49620,   965, 52932,  {   1252
  9119    1490, 50625, 52435,  1474, 50631, 51662,  1478, 49621, 52436,  1734,  {   1262
  9120   51662, 51667, 51206, 54231, 51668, 50120,  1228, 51667, 54279, 54224,  {   1272
  9121   50627, 51649, 52231, 54482, 54739, 54469, 50183, 53458, 53191, 53953,  {   1282
  9122   52488, 53957, 51145, 54228, 50642,  1485, 50127, 50373,  1987, 53198,  {   1292
  9123   54482, 53196,  1732, 50630, 51662, 50434, 53198,  2624,  2610,-11008,  {   1302
  9124   24576, 30791,  2618,-11008, 24576, 30793,  2624, 18416, 12296,  2686,  {   1312
  9125    2640, 18416, 12300,  2035,  2754,  2035,  4152,  2650, 18416, 12308,  {   1322
  9126    2035,  2686,  2668,-11008, 24576, 30795,  2035,  2708,-11008, 24576,  {   1332
  9127   30797,  2686,-11008, 24576, 30799,  2035,  2708,-11008, 24576, 30799,  {   1342
  9128    2708,  2702, 18416, 12300,  2035,  2754,  2035,  4152,  2708, 18416,  {   1352
  9129   12296,  2732,  2732, 18416, 12336, 18416, 12384,  2035,  2624, 18416,  {   1362
  9130   12340,  2035,  2732,  2754,  2748, 18416, 12388,  2035,  2624, 18416,  {   1372
  9131   12292,  2754, 18416, 12296,  2784,  2778,-11008, 24576, 30795,  2035,  {   1382
  9132    2708,  2035,  2784,-11008, 24576, 30797,  2784, 18416, 12296,  2808,  {   1392
  9133    2802,-11008, 24576, 30801,  2035,  2708, 18416, 12292,  2808, 18416,  {   1402
  9134   12296,  2824,  2818,-11008, 24576, 30801,  2824, 18416, 12296,  2842,  {   1412
  9135    2834,-11007, 24576, 30803,  2842,-11003, 24576, 30806,  2860,  2852,  {   1422
  9136  -11004, 24576, 30813,  2860,-11004, 24576, 30819,  2878,  2870,-11008,  {   1432
  9137   24576, 30799,  2878,-11002, 24576, 30825,  2950,  2888,-11002, 24576,  {   1442
  9138   30833,  2896,-11005, 24576, 30841,  2910,-11005, 24576, 30846,-11002,  {   1452
  9139   24576, 30833,  2924,-11004, 24576, 30851,-11002, 24576, 30833,  2938,  {   1462
  9140  -11005, 24576, 30857,-11005, 24576, 30841,  2950,-11003, 24576, 30862,  {   1472
  9141    2035,  5106,  2970,  2960,-11002, 24576, 30869,  2970,  2035,  2878,  {   1482
  9142    2035,  2970,  2988,  2980,-11007, 24576, 30877,  2988,-11006, 24576,  {   1492
  9143   30880,  3036,  3000,  2035,  2950,  2035,  3084,  3010,  2035,  2878,  {   1502
  9144    2035,  3100,  3018,-11005, 24576, 30884,  3036,-11003, 24576, 30889,  {   1512
  9145    2035,  3068,-11005, 24576, 30884,  3050,  3044, 18416, 12316,  3050,  {   1522
  9146   18416, 12300,  3068,  3058, 18416, 12316,  3068, 18416, 12300,  2035,  {   1532
  9147    2754,  3084,  3078,-11004, 24576, 30896,  3084, 18416, 12296,  3100,  {   1542
  9148    3094,-11005, 24576, 30884,  3100, 18416, 12296,  3124,  3110,-11000,  {   1552
  9149   24576, 30902,  3118,-11005, 24576, 30884,  3124, 18416, 12296,  3158,  {   1562
  9150    3152,-11008, 24576, 30795,  2035,  2988, 18416, 12332,  2035,  3158,  {   1572
  9151  -11008, 24576, 30797,  3158, 18416, 12296,  3184,  3178,  2035,  2808,  {   1582
  9152    2035,  2988, 18416, 12332, 18416, 12292,  3184, 18416, 12296,  3224,  {   1592
  9153    3194,-11000, 24576, 30912,  3202,-11003, 24576, 30922,  3210,-11003,  {   1602
  9154   24576, 30929,  3218,-11002, 24576, 30936,  3224, 18416, 12296,  3240,  {   1612
  9155    3234,-11003, 24576, 30944,  3240, 18416, 12296,  3344,  3274,-11003,  {   1622
  9156   24576, 30944, 18416, 12300,-11008, 24576, 30795,  2035,  4466,  2035,  {   1632
  9157    4442,-11008, 24576, 30797,  3314,-11005, 24576, 30951, 18416, 12336,  {   1642
  9158   18416, 12300,  2035,  4132, 18416, 12340,-11008, 24576, 30795, 18416,  {   1652
  9159   12300,-11008, 24576, 30797,  3344, 18416, 12336,  2035,  3616, 18416,  {   1662
  9160   12340,-11008, 24576, 30795, 18416, 12300,-11008, 24576, 30797,  3386,  {   1672
  9161    3364,  2035,  2708, 18416, 12396,  2035,  2708,  2035,  3386,  3386,  {   1682
  9162  -11008, 24576, 30795,  2035,  3344,  2035,  3404,-11008, 24576, 30797,  {   1692
  9163    3404,  3398, 18416, 12396,  2035,  2708,  3404, 18416, 12296,  3444,  {   1702
  9164    3422,-11006, 24576, 30956,  2035,  3344,  2035,  3444,  3438,-11007,  {   1712
  9165   24576, 30960,  2035,  3344,  2035,  3468,  3444, 18416, 12296,  3468,  {   1722
  9166    3462,-11006, 24576, 30956,  2035,  3344, 18416, 12292,  3468, 18416,  {   1732
  9167   12296,  3492,  3486,-11007, 24576, 30960,  2035,  3344, 18416, 12292,  {   1742
  9168    3492, 18416, 12296,  3510,  3504, 18416, 12392,  2035,  2708,  3510,  {   1752
  9169   18416, 12296,  3526,  3520,-11005, 24576, 30951,  3526, 18416, 12296,  {   1762
  9170    3544,  3536,-11005, 24576, 30857,  3544,-11003, 24576, 30963,  3578,  {   1772
  9171    3572,-11008, 24576, 30801,  2035,  2708,-11008, 24576, 30970,  2035,  {   1782
  9172    2708, 18416, 12292,  3578, 18416, 12296,  3616,  3592,-11005, 24576,  {   1792
  9173   30972, 18416, 12328,  3604,-11005, 24576, 30977, 18416, 12328,  3616,  {   1802
  9174  -11003, 24576, 30982, 18416, 12328,  3644,  3628,  2035,  3100, 18416,  {   1812
  9175   12332,  3644,-11004, 24576, 30896,  2035,  3224,  2035,  3644,  3660,  {   1822
  9176    3660, 18416, 12332,  2035,  4196,  2035,  3660,  3680,  3674,-11008,  {   1832
  9177   24576, 30801,  2035,  3644,  3680, 18416, 12296,  3732,  3708, 18416,  {   1842
  9178   12336, 18416, 12332,  2035,  4236, 18416, 12340,  2035,  3732, 18416,  {   1852
  9179   12320,  3732,-11004, 24576, 30896, 18416, 12300,  2035,  3802,  2035,  {   1862
  9180    5132, 18416, 12312,  3768,  3762,-11008, 24576, 30801, 18416, 12336,  {   1872
  9181   18416, 12332,  2035,  4236, 18416, 12340, 18416, 12292,  3768, 18416,  {   1882
  9182   12296,  3802,  3778,-11006, 24576, 30989,  3786,-11001, 24576, 30993,  {   1892
  9183    3794,-11000, 24576, 31002,  3802,-11004, 24576, 31012,  3840,  3840,  {   1902
  9184  -11008, 24576, 30795,  2035,  2600, 18416, 12304,-11008, 24576, 30970,  {   1912
  9185    2035,  2600, 18416, 12304,-11008, 24576, 30797,  3864,  3858,-11008,  {   1922
  9186   24576, 30801, 18416, 12316, 18416, 12292,  3864, 18416, 12296,  3890,  {   1932
  9187    3890, 18416, 12316,  2035,  3840,-11007, 24576, 31018,  2035,  3036,  {   1942
  9188    2035,  3890,  3910,  3904,-11008, 24576, 30801,  2035,  3864,  3910,  {   1952
  9189   18416, 12296,  3932,  3920,-11005, 24576, 31021,  3926, 18416, 12316,  {   1962
  9190    3932, 18416, 12296,  3960,  3954,-11008, 24576, 30801, 18416, 12332,  {   1972
  9191    2035,  3802, 18416, 12292,  3960, 18416, 12296,  4012,  3970,-11008,  {   1982
  9192   24576, 30970,  3988,  2035,  2824,  2035,  3344,  2035,  3404, 18416,  {   1992
  9193   12320,  4006,  2035,  2842,  2035,  3344,  2035,  3404, 18416, 12320,  {   2002
  9194    4012, 18416, 12320,  4054,  4022,-11004, 24576, 31026,  4030,-11000,  {   2012
  9195   24576, 31032,  4054,-11005, 24576, 31042, 18416, 12336,  2035,  5164,  {   2022
  9196   18416, 12340,  2035,  4104,  4084,  4064,-11004, 24576, 31047,  4072,  {   2032
  9197  -11000, 24576, 31053,  4084,-11005, 24576, 31042,  2035,  5164,  4104,  {   2042
  9198    4098,-11006, 24576, 30956,  2035,  5164,  4104, 18416, 12296,  4132,  {   2052
  9199    4114,-11000, 24576, 31063,  4126,-11005, 24576, 31073,  2035,  5164,  {   2062
  9200    4132, 18416, 12296,  4152,  4146,-11008, 24576, 31078, 18416, 12300,  {   2072
  9201    4152, 18416, 12296,  4180,  4174,-11008, 24576, 31078, 18416, 12300,  {   2082
  9202    2035,  2754,  2035,  4152,  4180, 18416, 12296,  4196,  4190,-11004,  {   2092
  9203   24576, 31080,  4196, 18416, 12296,  4236,  4204,  2035,  3802,  4236,  {   2102
  9204  -11008, 24576, 30795,  2035,  2708,-11008, 24576, 30970,  2035,  2708,  {   2112
  9205    2035,  3544,-11008, 24576, 30797,  4260,  4254,-11008, 24576, 31086,  {   2122
  9206   18416, 12384, 18416, 12308,  4260, 18416, 12296,  4296,  4274,-11003,  {   2132
  9207   24576, 31088, 18416, 12380,  4282,-11001, 24576, 30993,  4290,-11002,  {   2142
  9208   24576, 31095,  4296, 18416, 12296,  4348,  4342, 18416, 12300,  2035,  {   2152
  9209    2754,  2035,  4152,-11008, 24576, 31086,  2035,  2708,-11008, 24576,  {   2162
  9210   30801,  2035,  2708,-11008, 24576, 30801,  2035,  2708,  4348, 18416,  {   2172
  9211   12296,  4442,  4360,  2035,  2878,  2035,  3680,  4392,-11003, 24576,  {   2182
  9212   30889, 18416, 12332,-11008, 24576, 30795, 18416, 12300,-11008, 24576,  {   2192
  9213   30797, 18416, 12320,  4442,-11003, 24576, 30889,-11004, 24576, 30896,  {   2202
  9214   18416, 12336, 18416, 12300,  2035,  3802, 18416, 12340,-11008, 24576,  {   2212
  9215   30795, 18416, 12300,-11008, 24576, 30797, 18416, 12320,  4466,  4460,  {   2222
  9216  -11008, 24576, 30801,  2035,  4466, 18416, 12292,  4466, 18416, 12296,  {   2232
  9217    4606,  4482,  2035,  2878,  2035,  3100, 18416, 12332,  4506,  2035,  {   2242
  9218    2878,-11004, 24576, 30896, 18416, 12332,  2035,  3802,  2035,  3932,  {   2252
  9219    4528,-11003, 24576, 30889,  2035,  3068,-11005, 24576, 30884, 18416,  {   2262
  9220   12332,  4556,-11003, 24576, 30889, 18416, 12332,-11008, 24576, 30795,  {   2272
  9221   18416, 12300,-11008, 24576, 30797,  4606,-11003, 24576, 30889,-11004,  {   2282
  9222   24576, 30896, 18416, 12336, 18416, 12332,  2035,  3802,  2035,  3932,  {   2292
  9223   18416, 12340,-11008, 24576, 30795, 18416, 12300,-11008, 24576, 30797,  {   2302
  9224    4648,  4618, 18416, 12300,  2035,  4974,  4636,-11008, 24576, 31103,  {   2312
  9225    2035,  3036,-11008, 24576, 31105,  4648,-11008, 24576, 31107,  2035,  {   2322
  9226    4974,  4704,  4682, 18416, 12316,-11008, 24576, 30795, 18416, 12316,  {   2332
  9227  -11008, 24576, 30801, 18416, 12316,-11008, 24576, 30797,  4704,  2035,  {   2342
  9228    4606,-11008, 24576, 30795, 18416, 12316,-11008, 24576, 30797,  4726,  {   2352
  9229    4716,  2035,  4606,  2035,  5106,  4726, 18416, 12316,  2035,  4726,  {   2362
  9230    4780,  4756,-11008, 24576, 30795, 18416, 12316,-11008, 24576, 30801,  {   2372
  9231   18416, 12316,-11008, 24576, 30797,  4774,-11008, 24576, 30795, 18416,  {   2382
  9232   12316,-11008, 24576, 30797,  4780, 18416, 12296,  4800,  4794,-11008,  {   2392
  9233   24576, 30801, 18416, 12304,  4800, 18416, 12296,  4818,  4808,  2035,  {   2402
  9234    4606,  4818, 18416, 12316,  2035,  5106,  4974,  4840, 18416, 12344,  {   2412
  9235   18416, 12316,-11008, 24576, 30801, 18416, 12316,  4860, 18416, 12348,  {   2422
  9236   18416, 12316,-11008, 24576, 30801,  2035,  4704,  4890, 18416, 12352,  {   2432
  9237   18416, 12316,-11008, 24576, 30801, 18416, 12316,-11008, 24576, 30801,  {   2442
  9238    2035,  4800,  4904, 18416, 12356,  2035,  4800,  2035,  4780,  4924,  {   2452
  9239   18416, 12360, 18416, 12316,-11008, 24576, 30801,  2035,  4800,  4944,  {   2462
  9240   18416, 12364,  2035,  4648,-11008, 24576, 30801,  2035,  4800,  4964,  {   2472
  9241   18416, 12368,  2035,  4648,-11008, 24576, 30801,  2035,  4648,  4974,  {   2482
  9242   18416, 12372, 18416, 12316,  5006,  4988,-11008, 24576, 30791, 18416,  {   2492
  9243   12316,  5000,-11008, 24576, 30793, 18416, 12316,  5006, 18416, 12296,  {   2502
  9244    5106,  5042,-11008, 24576, 31107, 18416, 12316,-11008, 24576, 30801,  {   2512
  9245    2035,  5148, 18416, 12300,  2035,  2754,  2035,  4152,  5060,-11007,  {   2522
  9246   24576, 31018,-11008, 24576, 31109, 18416, 12316,  5070, 18416, 12376,  {   2532
  9247    2035,  4818,  5082,-11005, 24576, 31111, 18416, 12304,  5094,-11002,  {   2542
  9248   24576, 31116, 18416, 12316,  5106,-11005, 24576, 31124, 18416, 12316,  {   2552
  9249    5132,  5126,-11008, 24576, 30795, 18416, 12316,-11008, 24576, 30797,  {   2562
  9250    5132, 18416, 12296,  5148,  5142,-11008, 24576, 31086,  5148, 18416,  {   2572
  9251   12296,  5164,  5158,-11008, 24576, 31129,  5164, 18416, 12296,  5276,  {   2582
  9252    5196, 18416, 12336, 18416, 12300,  2035,  2754,  2035,  4152, 18416,  {   2592
  9253   12340,  2035,  3492,  2035,  4084,  5208,-11007, 24576, 31018,  2035,  {   2602
  9254    3050,  5224,-11000, 24576, 31131, 18416, 12328,  2035,  4084,  5232,  {   2612
  9255  -11003, 24576, 31141,  5248,-11003, 24576, 31148, 18416, 12392,  2035,  {   2622
  9256    2708,  5260,-11002, 24576, 31155,  2035,  3910,  5268,-11005, 24576,  {   2632
  9257   31021,  5276,-11005, 24576, 31163,  5802,  5296, 18416, 12336,  2035,  {   2642
  9258    5164, 18416, 12340,  2035,  3960,  5312,-11004, 24576, 31047,  2035,  {   2652
  9259    4296, 18416, 12320,  5324,-11003, 24576, 31168, 18416, 12320,  5336,  {   2662
  9260   18416, 12316,-11008, 24576, 30970,  5366,  2035,  2824, 18416, 12336,  {   2672
  9261    2035,  3344,  2035,  3404, 18416, 12340,  2035,  4012, 18416, 12320,  {   2682
  9262    5396,  2035,  2842, 18416, 12336,  2035,  3344,  2035,  3404, 18416,  {   2692
  9263   12340,  2035,  4054, 18416, 12320,  5410,  2035,  2878,  2035,  3616,  {   2702
  9264   18416, 12320,  5426,-11006, 24576, 31175,  2035,  3184, 18416, 12320,  {   2712
  9265    5460, 18416, 12336,  2035,  4260,  2035,  2950, 18416, 12340,  2035,  {   2722
  9266    3510, 18416, 12300,  2035,  3124, 18416, 12320,  5470,  2035,  2860,  {   2732
  9267   18416, 12324,  5486,-11004, 24576, 31179,  2035,  3526, 18416, 12320,  {   2742
  9268    5498,-11004, 24576, 31185, 18416, 12320,  5514,-11004, 24576, 31191,  {   2752
  9269    2035,  3864, 18416, 12320,  5530,-11003, 24576, 31197,  2035,  4104,  {   2762
  9270   18416, 12320,  5554,-11003, 24576, 31204, 18416, 12332,  2035,  3802,  {   2772
  9271    2035,  3932, 18416, 12320,  5566,-11005, 24576, 31211, 18416, 12320,  {   2782
  9272    5576,  2035,  3768,  2035,  4348,  5596,-11005, 24576, 30951, 18416,  {   2792
  9273   12300,  2035,  3124, 18416, 12320,  5618,-11002, 24576, 31216,-11005,  {   2802
  9274   24576, 30884, 18416, 12300, 18416, 12320,  5640,-11002, 24576, 31224,  {   2812
  9275  -11002, 24576, 31232, 18416, 12380, 18416, 12320,  5664,-11001, 24576,  {   2822
  9276   31240, 18416, 12380, 18416, 12300,  2035,  5106, 18416, 12320,  5676,  {   2832
  9277  -11004, 24576, 31249, 18416, 12320,  5694,-11004, 24576, 30851,-11002,  {   2842
  9278   24576, 30869, 18416, 12320,  5714,-11008, 24576, 31107, 18416, 12380,  {   2852
  9279    2035,  5006, 18416, 12320,  5730,-11002, 24576, 31255, 18416, 12308,  {   2862
  9280   18416, 12320,  5750,-11003, 24576, 31263, 18416, 12380,  2035,  3578,  {   2872
  9281   18416, 12320,  5766,-11003, 24576, 30889,  2035,  3240, 18416, 12320,  {   2882
  9282    5796,-11007, 24576, 31270,  2035,  4180, 18416, 12316,  2035,  3840,  {   2892
  9283  -11004, 24576, 31026, 18416, 12320,  5802, 18416, 12320;
52534 @ 444227:               LINE   9099 "regression-compile-tmp/imp918s.imp"
52535 @ 444265:               PUSHI  #0x00000423
52536 @ 444270:               PUSHI  #0x00000b54
52537 @ 444275:               BOUNDS
52538 @ 444276:               DEF    SYMBOL p1=V_016b a/tf=1b b/format=3 c/ostate=112  type=1 (integer) form=11 (array) special=2 (short-integer) linkage=2 (constant) spec=0 indirect=1 unass=0
52539 @ 444294:               PUSHI  #0x0000012b
52540 @ 444299:               INIT   1
52541 @ 444302:               PUSHI  #0x0000012d
52542 @ 444307:               INIT   1
52543 @ 444310:               PUSHI  #0x00000128
52544 @ 444315:               INIT   1
52545 @ 444318:               PUSHI  #0x00000129
52546 @ 444323:               INIT   1
52547 @ 444326:               PUSHI  #0x00000121
52548 @ 444331:               INIT   1
52549 @ 444334:               PUSHI  #0x0000012c
52550 @ 444339:               INIT   1
52551 @ 444342:               PUSHI  #0x000002c9
52552 @ 444347:               INIT   1
52553 @ 444350:               PUSHI  #0x0000c606
52554 @ 444355:               INIT   1
52555 @ 444358:               PUSHI  #0x0000d5ce
52556 @ 444363:               INIT   1
52557 @ 444366:               PUSHI  #0x0000ccc5
52558 @ 444371:               INIT   1
52559 @ 444374:               PUSHI  #0x0000d3d3
52560 @ 444379:               INIT   1
52561 @ 444382:               PUSHI  #0x000005d7
52562 @ 444387:               INIT   1
52563 @ 444390:               PUSHI  #0x0000c8c9
52564 @ 444395:               INIT   1
52565 @ 444398:               PUSHI  #0x0000ccc5
52566 @ 444403:               INIT   1
52567 @ 444406:               PUSHI  #0x000005d5
52568 @ 444411:               INIT   1
52569 @ 444414:               PUSHI  #0x0000ced4
52570 @ 444419:               INIT   1
52571 @ 444422:               PUSHI  #0x0000c9cc
52572 @ 444427:               INIT   1
52573 @ 444430:               PUSHI  #0x000007c3
52574 @ 444435:               INIT   1
52575 @ 444438:               PUSHI  #0x0000cfcd
52576 @ 444443:               INIT   1
52577 @ 444446:               PUSHI  #0x0000cdc5
52578 @ 444451:               INIT   1
52579 @ 444454:               PUSHI  #0x0000ced4
52580 @ 444459:               INIT   1
52581 @ 444462:               PUSHI  #0x000007c9
52582 @ 444467:               INIT   1
52583 @ 444470:               PUSHI  #0x0000ced4
52584 @ 444475:               INIT   1
52585 @ 444478:               PUSHI  #0x0000c5c7
52586 @ 444483:               INIT   1
52587 @ 444486:               PUSHI  #0x0000c5d2
52588 @ 444491:               INIT   1
52589 @ 444494:               PUSHI  #0x000004d2
52590 @ 444499:               INIT   1
52591 @ 444502:               PUSHI  #0x0000c5c1
52592 @ 444507:               INIT   1
52593 @ 444510:               PUSHI  #0x0000cc04
52594 @ 444515:               INIT   1
52595 @ 444518:               PUSHI  #0x0000c2d9
52596 @ 444523:               INIT   1
52597 @ 444526:               PUSHI  #0x0000d4c5
52598 @ 444531:               INIT   1
52599 @ 444534:               PUSHI  #0x000005d3
52600 @ 444539:               INIT   1
52601 @ 444542:               PUSHI  #0x0000c8cf
52602 @ 444547:               INIT   1
52603 @ 444550:               PUSHI  #0x0000d2d4
52604 @ 444555:               INIT   1
52605 @ 444558:               PUSHI  #0x000004cc
52606 @ 444563:               INIT   1
52607 @ 444566:               PUSHI  #0x0000cfce
52608 @ 444571:               INIT   1
52609 @ 444574:               PUSHI  #0x0000c706
52610 @ 444579:               INIT   1
52611 @ 444582:               PUSHI  #0x0000d3d4
52612 @ 444587:               INIT   1
52613 @ 444590:               PUSHI  #0x0000d2c9
52614 @ 444595:               INIT   1
52615 @ 444598:               PUSHI  #0x0000cec7
52616 @ 444603:               INIT   1
52617 @ 444606:               PUSHI  #0x000007d2
52618 @ 444611:               INIT   1
52619 @ 444614:               PUSHI  #0x0000cfd5
52620 @ 444619:               INIT   1
52621 @ 444622:               PUSHI  #0x0000d4c9
52622 @ 444627:               INIT   1
52623 @ 444630:               PUSHI  #0x0000cec5
52624 @ 444635:               INIT   1
52625 @ 444638:               PUSHI  #0x000002c6
52626 @ 444643:               INIT   1
52627 @ 444646:               PUSHI  #0x0000ce03
52628 @ 444651:               INIT   1
52629 @ 444654:               PUSHI  #0x0000cdc1
52630 @ 444659:               INIT   1
52631 @ 444662:               PUSHI  #0x0000d004
52632 @ 444667:               INIT   1
52633 @ 444670:               PUSHI  #0x0000cec1
52634 @ 444675:               INIT   1
52635 @ 444678:               PUSHI  #0x0000cdc5
52636 @ 444683:               INIT   1
52637 @ 444686:               PUSHI  #0x000006d2
52638 @ 444691:               INIT   1
52639 @ 444694:               PUSHI  #0x0000c5c3
52640 @ 444699:               INIT   1
52641 @ 444702:               PUSHI  #0x0000cfd2
52642 @ 444707:               INIT   1
52643 @ 444710:               PUSHI  #0x0000c405
52644 @ 444715:               INIT   1
52645 @ 444718:               PUSHI  #0x0000c1d2
52646 @ 444723:               INIT   1
52647 @ 444726:               PUSHI  #0x0000d2c1
52648 @ 444731:               INIT   1
52649 @ 444734:               PUSHI  #0x0000d909
52650 @ 444739:               INIT   1
52651 @ 444742:               PUSHI  #0x0000c1d2
52652 @ 444747:               INIT   1
52653 @ 444750:               PUSHI  #0x0000d2c1
52654 @ 444755:               INIT   1
52655 @ 444758:               PUSHI  #0x0000d9ce
52656 @ 444763:               INIT   1
52657 @ 444766:               PUSHI  #0x0000c1cd
52658 @ 444771:               INIT   1
52659 @ 444774:               PUSHI  #0x0000c509
52660 @ 444779:               INIT   1
52661 @ 444782:               PUSHI  #0x0000cfc6
52662 @ 444787:               INIT   1
52663 @ 444790:               PUSHI  #0x0000d0d2
52664 @ 444795:               INIT   1
52665 @ 444798:               PUSHI  #0x0000cfc7
52666 @ 444803:               INIT   1
52667 @ 444806:               PUSHI  #0x0000d2c1
52668 @ 444811:               INIT   1
52669 @ 444814:               PUSHI  #0x0000cd06
52670 @ 444819:               INIT   1
52671 @ 444822:               PUSHI  #0x0000cfc6
52672 @ 444827:               INIT   1
52673 @ 444830:               PUSHI  #0x0000c6c9
52674 @ 444835:               INIT   1
52675 @ 444838:               PUSHI  #0x0000ccc5
52676 @ 444843:               INIT   1
52677 @ 444846:               PUSHI  #0x000006cf
52678 @ 444851:               INIT   1
52679 @ 444854:               PUSHI  #0x0000c6cc
52680 @ 444859:               INIT   1
52681 @ 444862:               PUSHI  #0x0000c9d3
52682 @ 444867:               INIT   1
52683 @ 444870:               PUSHI  #0x0000d407
52684 @ 444875:               INIT   1
52685 @ 444878:               PUSHI  #0x0000cfc6
52686 @ 444883:               INIT   1
52687 @ 444886:               PUSHI  #0x0000cdc3
52688 @ 444891:               INIT   1
52689 @ 444894:               PUSHI  #0x0000cfc4
52690 @ 444899:               INIT   1
52691 @ 444902:               PUSHI  #0x0000c506
52692 @ 444907:               INIT   1
52693 @ 444910:               PUSHI  #0x0000c6cf
52694 @ 444915:               INIT   1
52695 @ 444918:               PUSHI  #0x0000d2cd
52696 @ 444923:               INIT   1
52697 @ 444926:               PUSHI  #0x0000c1d4
52698 @ 444931:               INIT   1
52699 @ 444934:               PUSHI  #0x000004d3
52700 @ 444939:               INIT   1
52701 @ 444942:               PUSHI  #0x0000d0c5
52702 @ 444947:               INIT   1
52703 @ 444950:               PUSHI  #0x0000c303
52704 @ 444955:               INIT   1
52705 @ 444958:               PUSHI  #0x0000c1ce
52706 @ 444963:               INIT   1
52707 @ 444966:               PUSHI  #0x0000c402
52708 @ 444971:               INIT   1
52709 @ 444974:               PUSHI  #0x0000cfd2
52710 @ 444979:               INIT   1
52711 @ 444982:               PUSHI  #0x000006ce
52712 @ 444987:               INIT   1
52713 @ 444990:               PUSHI  #0x0000cfd2
52714 @ 444995:               INIT   1
52715 @ 444998:               PUSHI  #0x0000cdc1
52716 @ 445003:               INIT   1
52717 @ 445006:               PUSHI  #0x0000cc01
52718 @ 445011:               INIT   1
52719 @ 445014:               PUSHI  #0x00003a04
52720 @ 445019:               INIT   1
52721 @ 445022:               PUSHI  #0x0000d0c5
52722 @ 445027:               INIT   1
52723 @ 445030:               PUSHI  #0x0000d2cd
52724 @ 445035:               INIT   1
52725 @ 445038:               PUSHI  #0x000004c9
52726 @ 445043:               INIT   1
52727 @ 445046:               PUSHI  #0x0000cfc3
52728 @ 445051:               INIT   1
52729 @ 445054:               PUSHI  #0x0000d006
52730 @ 445059:               INIT   1
52731 @ 445062:               PUSHI  #0x0000cdc1
52732 @ 445067:               INIT   1
52733 @ 445070:               PUSHI  #0x0000c9ce
52734 @ 445075:               INIT   1
52735 @ 445078:               PUSHI  #0x0000c5d0
52736 @ 445083:               INIT   1
52737 @ 445086:               PUSHI  #0x000003cf
52738 @ 445091:               INIT   1
52739 @ 445094:               PUSHI  #0x0000d7ce
52740 @ 445099:               INIT   1
52741 @ 445102:               PUSHI  #0x000008c5
52742 @ 445107:               INIT   1
52743 @ 445110:               PUSHI  #0x0000d8d4
52744 @ 445115:               INIT   1
52745 @ 445118:               PUSHI  #0x0000c5d2
52746 @ 445123:               INIT   1
52747 @ 445126:               PUSHI  #0x0000cec1
52748 @ 445131:               INIT   1
52749 @ 445134:               PUSHI  #0x0000cc09
52750 @ 445139:               INIT   1
52751 @ 445142:               PUSHI  #0x0000c5d8
52752 @ 445147:               INIT   1
52753 @ 445150:               PUSHI  #0x0000d4d2
52754 @ 445155:               INIT   1
52755 @ 445158:               PUSHI  #0x0000c9ce
52756 @ 445163:               INIT   1
52757 @ 445166:               PUSHI  #0x0000d3c9
52758 @ 445171:               INIT   1
52759 @ 445174:               PUSHI  #0x0000c305
52760 @ 445179:               INIT   1
52761 @ 445182:               PUSHI  #0x0000c3cf
52762 @ 445187:               INIT   1
52763 @ 445190:               PUSHI  #0x0000ced3
52764 @ 445195:               INIT   1
52765 @ 445198:               PUSHI  #0x0000d402
52766 @ 445203:               INIT   1
52767 @ 445206:               PUSHI  #0x00002d3e
52768 @ 445211:               INIT   1
52769 @ 445214:               PUSHI  #0x000004d3
52770 @ 445219:               INIT   1
52771 @ 445222:               PUSHI  #0x0000d4cf
52772 @ 445227:               INIT   1
52773 @ 445230:               PUSHI  #0x0000d005
52774 @ 445235:               INIT   1
52775 @ 445238:               PUSHI  #0x0000d3d4
52776 @ 445243:               INIT   1
52777 @ 445246:               PUSHI  #0x0000c1d2
52778 @ 445251:               INIT   1
52779 @ 445254:               PUSHI  #0x0000d409
52780 @ 445259:               INIT   1
52781 @ 445262:               PUSHI  #0x0000d4c8
52782 @ 445267:               INIT   1
52783 @ 445270:               PUSHI  #0x0000c5ce
52784 @ 445275:               INIT   1
52785 @ 445278:               PUSHI  #0x0000d3d4
52786 @ 445283:               INIT   1
52787 @ 445286:               PUSHI  #0x0000c1d2
52788 @ 445291:               INIT   1
52789 @ 445294:               PUSHI  #0x0000d404
52790 @ 445299:               INIT   1
52791 @ 445302:               PUSHI  #0x0000d4c8
52792 @ 445307:               INIT   1
52793 @ 445310:               PUSHI  #0x0000c5ce
52794 @ 445315:               INIT   1
52795 @ 445318:               PUSHI  #0x000005c3
52796 @ 445323:               INIT   1
52797 @ 445326:               PUSHI  #0x0000d9c3
52798 @ 445331:               INIT   1
52799 @ 445334:               PUSHI  #0x0000ccc5
52800 @ 445339:               INIT   1
52801 @ 445342:               PUSHI  #0x000009d4
52802 @ 445347:               INIT   1
52803 @ 445350:               PUSHI  #0x0000c8c5
52804 @ 445355:               INIT   1
52805 @ 445358:               PUSHI  #0x0000cec3
52806 @ 445363:               INIT   1
52807 @ 445366:               PUSHI  #0x0000d9c3
52808 @ 445371:               INIT   1
52809 @ 445374:               PUSHI  #0x0000ccc5
52810 @ 445379:               INIT   1
52811 @ 445382:               PUSHI  #0x000009c5
52812 @ 445387:               INIT   1
52813 @ 445390:               PUSHI  #0x0000ccd3
52814 @ 445395:               INIT   1
52815 @ 445398:               PUSHI  #0x0000c5d3
52816 @ 445403:               INIT   1
52817 @ 445406:               PUSHI  #0x0000d4c1
52818 @ 445411:               INIT   1
52819 @ 445414:               PUSHI  #0x0000d2d4
52820 @ 445419:               INIT   1
52821 @ 445422:               PUSHI  #0x000004c5
52822 @ 445427:               INIT   1
52823 @ 445430:               PUSHI  #0x0000ccd3
52824 @ 445435:               INIT   1
52825 @ 445438:               PUSHI  #0x0000c501
52826 @ 445443:               INIT   1
52827 @ 445446:               PUSHI  #0x00005f05
52828 @ 445451:               INIT   1
52829 @ 445454:               PUSHI  #0x0000c5d6
52830 @ 445459:               INIT   1
52831 @ 445462:               PUSHI  #0x0000c5ce
52832 @ 445467:               INIT   1
52833 @ 445470:               PUSHI  #0x0000d401
52834 @ 445475:               INIT   1
52835 @ 445478:               PUSHI  #0x00003d06
52836 @ 445483:               INIT   1
52837 @ 445486:               PUSHI  #0x0000d3d9
52838 @ 445491:               INIT   1
52839 @ 445494:               PUSHI  #0x0000d3d4
52840 @ 445499:               INIT   1
52841 @ 445502:               PUSHI  #0x0000c5cd
52842 @ 445507:               INIT   1
52843 @ 445510:               PUSHI  #0x000007c4
52844 @ 445515:               INIT   1
52845 @ 445518:               PUSHI  #0x0000d9ce
52846 @ 445523:               INIT   1
52847 @ 445526:               PUSHI  #0x0000c1cd
52848 @ 445531:               INIT   1
52849 @ 445534:               PUSHI  #0x0000c9c3
52850 @ 445539:               INIT   1
52851 @ 445542:               PUSHI  #0x0000013c
52852 @ 445547:               INIT   1
52853 @ 445550:               PUSHI  #0x0000013e
52854 @ 445555:               INIT   1
52855 @ 445558:               PUSHI  #0x0000012a
52856 @ 445563:               INIT   1
52857 @ 445566:               PUSHI  #0x00000150
52858 @ 445571:               INIT   1
52859 @ 445574:               PUSHI  #0x00000450
52860 @ 445579:               INIT   1
52861 @ 445582:               PUSHI  #0x00005554
52862 @ 445587:               INIT   1
52863 @ 445590:               PUSHI  #0x00005f07
52864 @ 445595:               INIT   1
52865 @ 445598:               PUSHI  #0x00005553
52866 @ 445603:               INIT   1
52867 @ 445606:               PUSHI  #0x0000494e
52868 @ 445611:               INIT   1
52869 @ 445614:               PUSHI  #0x0000472a
52870 @ 445619:               INIT   1
52871 @ 445622:               PUSHI  #0x00002c04
52872 @ 445627:               INIT   1
52873 @ 445630:               PUSHI  #0x00004452
52874 @ 445635:               INIT   1
52875 @ 445638:               PUSHI  #0x00004f50
52876 @ 445643:               INIT   1
52877 @ 445646:               PUSHI  #0x00000140
52878 @ 445651:               INIT   1
52879 @ 445654:               PUSHI  #0x000009d0
52880 @ 445659:               INIT   1
52881 @ 445662:               PUSHI  #0x0000d2c9
52882 @ 445667:               INIT   1
52883 @ 445670:               PUSHI  #0x0000ced4
52884 @ 445675:               INIT   1
52885 @ 445678:               PUSHI  #0x0000d4c5
52886 @ 445683:               INIT   1
52887 @ 445686:               PUSHI  #0x0000d8d4
52888 @ 445691:               INIT   1
52889 @ 445694:               PUSHI  #0x000006d2
52890 @ 445699:               INIT   1
52891 @ 445702:               PUSHI  #0x0000c5d4
52892 @ 445707:               INIT   1
52893 @ 445710:               PUSHI  #0x0000d5d2
52894 @ 445715:               INIT   1
52895 @ 445718:               PUSHI  #0x0000ce06
52896 @ 445723:               INIT   1
52897 @ 445726:               PUSHI  #0x0000d2c5
52898 @ 445731:               INIT   1
52899 @ 445734:               PUSHI  #0x0000d3d5
52900 @ 445739:               INIT   1
52901 @ 445742:               PUSHI  #0x0000ccd4
52902 @ 445747:               INIT   1
52903 @ 445750:               PUSHI  #0x000007cd
52904 @ 445755:               INIT   1
52905 @ 445758:               PUSHI  #0x0000cfce
52906 @ 445763:               INIT   1
52907 @ 445766:               PUSHI  #0x0000c9d4
52908 @ 445771:               INIT   1
52909 @ 445774:               PUSHI  #0x0000cfd2
52910 @ 445779:               INIT   1
52911 @ 445782:               PUSHI  #0x000004c5
52912 @ 445787:               INIT   1
52913 @ 445790:               PUSHI  #0x0000d8c9
52914 @ 445795:               INIT   1
52915 @ 445798:               PUSHI  #0x0000d406
52916 @ 445803:               INIT   1
52917 @ 445806:               PUSHI  #0x0000d2c5
52918 @ 445811:               INIT   1
52919 @ 445814:               PUSHI  #0x0000d0c5
52920 @ 445819:               INIT   1
52921 @ 445822:               PUSHI  #0x0000c1d4
52922 @ 445827:               INIT   1
52923 @ 445830:               PUSHI  #0x000003c5
52924 @ 445835:               INIT   1
52925 @ 445838:               PUSHI  #0x0000cec4
52926 @ 445843:               INIT   1
52927 @ 445846:               PUSHI  #0x000005d2
52928 @ 445851:               INIT   1
52929 @ 445854:               PUSHI  #0x0000c5c1
52930 @ 445859:               INIT   1
52931 @ 445862:               PUSHI  #0x0000ccd3
52932 @ 445867:               INIT   1
52933 @ 445870:               PUSHI  #0x000005c2
52934 @ 445875:               INIT   1
52935 @ 445878:               PUSHI  #0x0000c5c7
52936 @ 445883:               INIT   1
52937 @ 445886:               PUSHI  #0x0000c9ce
52938 @ 445891:               INIT   1
52939 @ 445894:               PUSHI  #0x000005c6
52940 @ 445899:               INIT   1
52941 @ 445902:               PUSHI  #0x0000c1d5
52942 @ 445907:               INIT   1
52943 @ 445910:               PUSHI  #0x0000ccd4
52944 @ 445915:               INIT   1
52945 @ 445918:               PUSHI  #0x000006c6
52946 @ 445923:               INIT   1
52947 @ 445926:               PUSHI  #0x0000c9ce
52948 @ 445931:               INIT   1
52949 @ 445934:               PUSHI  #0x0000c9d3
52950 @ 445939:               INIT   1
52951 @ 445942:               PUSHI  #0x0000c806
52952 @ 445947:               INIT   1
52953 @ 445950:               PUSHI  #0x0000d3d7
52954 @ 445955:               INIT   1
52955 @ 445958:               PUSHI  #0x0000c9d4
52956 @ 445963:               INIT   1
52957 @ 445966:               PUSHI  #0x0000c3c8
52958 @ 445971:               INIT   1
52959 @ 445974:               PUSHI  #0x000004cc
52960 @ 445979:               INIT   1
52961 @ 445982:               PUSHI  #0x0000c9d3
52962 @ 445987:               INIT   1
52963 @ 445990:               PUSHI  #0x0000d407
52964 @ 445995:               INIT   1
52965 @ 445998:               PUSHI  #0x0000d3d0
52966 @ 446003:               INIT   1
52967 @ 446006:               PUSHI  #0x0000c5c3
52968 @ 446011:               INIT   1
52969 @ 446014:               PUSHI  #0x0000c9c1
52970 @ 446019:               INIT   1
52971 @ 446022:               PUSHI  #0x0000cc07
52972 @ 446027:               INIT   1
52973 @ 446030:               PUSHI  #0x0000d4d2
52974 @ 446035:               INIT   1
52975 @ 446038:               PUSHI  #0x0000d5d3
52976 @ 446043:               INIT   1
52977 @ 446046:               PUSHI  #0x0000d4c5
52978 @ 446051:               INIT   1
52979 @ 446054:               PUSHI  #0x0000c407
52980 @ 446059:               INIT   1
52981 @ 446062:               PUSHI  #0x0000d0d2
52982 @ 446067:               INIT   1
52983 @ 446070:               PUSHI  #0x0000cfc7
52984 @ 446075:               INIT   1
52985 @ 446078:               PUSHI  #0x0000d2c1
52986 @ 446083:               INIT   1
52987 @ 446086:               PUSHI  #0x0000cd08
52988 @ 446091:               INIT   1
52989 @ 446094:               PUSHI  #0x0000d2c5
52990 @ 446099:               INIT   1
52991 @ 446102:               PUSHI  #0x0000c7c9
52992 @ 446107:               INIT   1
52993 @ 446110:               PUSHI  #0x0000d3d4
52994 @ 446115:               INIT   1
52995 @ 446118:               PUSHI  #0x0000c5d2
52996 @ 446123:               INIT   1
52997 @ 446126:               PUSHI  #0x000005cd
52998 @ 446131:               INIT   1
52999 @ 446134:               PUSHI  #0x0000c3cf
53000 @ 446139:               INIT   1
53001 @ 446142:               PUSHI  #0x0000c4c5
53002 @ 446147:               INIT   1
53003 @ 446150:               PUSHI  #0x000007c3
53004 @ 446155:               INIT   1
53005 @ 446158:               PUSHI  #0x0000cfce
53006 @ 446163:               INIT   1
53007 @ 446166:               PUSHI  #0x0000d4d2
53008 @ 446171:               INIT   1
53009 @ 446174:               PUSHI  #0x0000cfcc
53010 @ 446179:               INIT   1
53011 @ 446182:               PUSHI  #0x000006c4
53012 @ 446187:               INIT   1
53013 @ 446190:               PUSHI  #0x0000c5c6
53014 @ 446195:               INIT   1
53015 @ 446198:               PUSHI  #0x0000c9ce
53016 @ 446203:               INIT   1
53017 @ 446206:               PUSHI  #0x0000c502
53018 @ 446211:               INIT   1
53019 @ 446214:               PUSHI  #0x0000cfce
53020 @ 446219:               INIT   1
53021 @ 446222:               PUSHI  #0x00000a40
53022 @ 446227:               INIT   1
53023 @ 446230:               PUSHI  #0x00000a32
53024 @ 446235:               INIT   1
53025 @ 446238:               PUSHI  #0xffffd500
53026 @ 446243:               INIT   1
53027 @ 446246:               PUSHI  #0x00006000
53028 @ 446251:               INIT   1
53029 @ 446254:               PUSHI  #0x00007847
53030 @ 446259:               INIT   1
53031 @ 446262:               PUSHI  #0x00000a3a
53032 @ 446267:               INIT   1
53033 @ 446270:               PUSHI  #0xffffd500
53034 @ 446275:               INIT   1
53035 @ 446278:               PUSHI  #0x00006000
53036 @ 446283:               INIT   1
53037 @ 446286:               PUSHI  #0x00007849
53038 @ 446291:               INIT   1
53039 @ 446294:               PUSHI  #0x00000a40
53040 @ 446299:               INIT   1
53041 @ 446302:               PUSHI  #0x000047f0
53042 @ 446307:               INIT   1
53043 @ 446310:               PUSHI  #0x00003008
53044 @ 446315:               INIT   1
53045 @ 446318:               PUSHI  #0x00000a7e
53046 @ 446323:               INIT   1
53047 @ 446326:               PUSHI  #0x00000a50
53048 @ 446331:               INIT   1
53049 @ 446334:               PUSHI  #0x000047f0
53050 @ 446339:               INIT   1
53051 @ 446342:               PUSHI  #0x0000300c
53052 @ 446347:               INIT   1
53053 @ 446350:               PUSHI  #0x000007f3
53054 @ 446355:               INIT   1
53055 @ 446358:               PUSHI  #0x00000ac2
53056 @ 446363:               INIT   1
53057 @ 446366:               PUSHI  #0x000007f3
53058 @ 446371:               INIT   1
53059 @ 446374:               PUSHI  #0x00001038
53060 @ 446379:               INIT   1
53061 @ 446382:               PUSHI  #0x00000a5a
53062 @ 446387:               INIT   1
53063 @ 446390:               PUSHI  #0x000047f0
53064 @ 446395:               INIT   1
53065 @ 446398:               PUSHI  #0x00003014
53066 @ 446403:               INIT   1
53067 @ 446406:               PUSHI  #0x000007f3
53068 @ 446411:               INIT   1
53069 @ 446414:               PUSHI  #0x00000a7e
53070 @ 446419:               INIT   1
53071 @ 446422:               PUSHI  #0x00000a6c
53072 @ 446427:               INIT   1
53073 @ 446430:               PUSHI  #0xffffd500
53074 @ 446435:               INIT   1
53075 @ 446438:               PUSHI  #0x00006000
53076 @ 446443:               INIT   1
53077 @ 446446:               PUSHI  #0x0000784b
53078 @ 446451:               INIT   1
53079 @ 446454:               PUSHI  #0x000007f3
53080 @ 446459:               INIT   1
53081 @ 446462:               PUSHI  #0x00000a94
53082 @ 446467:               INIT   1
53083 @ 446470:               PUSHI  #0xffffd500
53084 @ 446475:               INIT   1
53085 @ 446478:               PUSHI  #0x00006000
53086 @ 446483:               INIT   1
53087 @ 446486:               PUSHI  #0x0000784d
53088 @ 446491:               INIT   1
53089 @ 446494:               PUSHI  #0x00000a7e
53090 @ 446499:               INIT   1
53091 @ 446502:               PUSHI  #0xffffd500
53092 @ 446507:               INIT   1
53093 @ 446510:               PUSHI  #0x00006000
53094 @ 446515:               INIT   1
53095 @ 446518:               PUSHI  #0x0000784f
53096 @ 446523:               INIT   1
53097 @ 446526:               PUSHI  #0x000007f3
53098 @ 446531:               INIT   1
53099 @ 446534:               PUSHI  #0x00000a94
53100 @ 446539:               INIT   1
53101 @ 446542:               PUSHI  #0xffffd500
53102 @ 446547:               INIT   1
53103 @ 446550:               PUSHI  #0x00006000
53104 @ 446555:               INIT   1
53105 @ 446558:               PUSHI  #0x0000784f
53106 @ 446563:               INIT   1
53107 @ 446566:               PUSHI  #0x00000a94
53108 @ 446571:               INIT   1
53109 @ 446574:               PUSHI  #0x00000a8e
53110 @ 446579:               INIT   1
53111 @ 446582:               PUSHI  #0x000047f0
53112 @ 446587:               INIT   1
53113 @ 446590:               PUSHI  #0x0000300c
53114 @ 446595:               INIT   1
53115 @ 446598:               PUSHI  #0x000007f3
53116 @ 446603:               INIT   1
53117 @ 446606:               PUSHI  #0x00000ac2
53118 @ 446611:               INIT   1
53119 @ 446614:               PUSHI  #0x000007f3
53120 @ 446619:               INIT   1
53121 @ 446622:               PUSHI  #0x00001038
53122 @ 446627:               INIT   1
53123 @ 446630:               PUSHI  #0x00000a94
53124 @ 446635:               INIT   1
53125 @ 446638:               PUSHI  #0x000047f0
53126 @ 446643:               INIT   1
53127 @ 446646:               PUSHI  #0x00003008
53128 @ 446651:               INIT   1
53129 @ 446654:               PUSHI  #0x00000aac
53130 @ 446659:               INIT   1
53131 @ 446662:               PUSHI  #0x00000aac
53132 @ 446667:               INIT   1
53133 @ 446670:               PUSHI  #0x000047f0
53134 @ 446675:               INIT   1
53135 @ 446678:               PUSHI  #0x00003030
53136 @ 446683:               INIT   1
53137 @ 446686:               PUSHI  #0x000047f0
53138 @ 446691:               INIT   1
53139 @ 446694:               PUSHI  #0x00003060
53140 @ 446699:               INIT   1
53141 @ 446702:               PUSHI  #0x000007f3
53142 @ 446707:               INIT   1
53143 @ 446710:               PUSHI  #0x00000a40
53144 @ 446715:               INIT   1
53145 @ 446718:               PUSHI  #0x000047f0
53146 @ 446723:               INIT   1
53147 @ 446726:               PUSHI  #0x00003034
53148 @ 446731:               INIT   1
53149 @ 446734:               PUSHI  #0x000007f3
53150 @ 446739:               INIT   1
53151 @ 446742:               PUSHI  #0x00000aac
53152 @ 446747:               INIT   1
53153 @ 446750:               PUSHI  #0x00000ac2
53154 @ 446755:               INIT   1
53155 @ 446758:               PUSHI  #0x00000abc
53156 @ 446763:               INIT   1
53157 @ 446766:               PUSHI  #0x000047f0
53158 @ 446771:               INIT   1
53159 @ 446774:               PUSHI  #0x00003064
53160 @ 446779:               INIT   1
53161 @ 446782:               PUSHI  #0x000007f3
53162 @ 446787:               INIT   1
53163 @ 446790:               PUSHI  #0x00000a40
53164 @ 446795:               INIT   1
53165 @ 446798:               PUSHI  #0x000047f0
53166 @ 446803:               INIT   1
53167 @ 446806:               PUSHI  #0x00003004
53168 @ 446811:               INIT   1
53169 @ 446814:               PUSHI  #0x00000ac2
53170 @ 446819:               INIT   1
53171 @ 446822:               PUSHI  #0x000047f0
53172 @ 446827:               INIT   1
53173 @ 446830:               PUSHI  #0x00003008
53174 @ 446835:               INIT   1
53175 @ 446838:               PUSHI  #0x00000ae0
53176 @ 446843:               INIT   1
53177 @ 446846:               PUSHI  #0x00000ada
53178 @ 446851:               INIT   1
53179 @ 446854:               PUSHI  #0xffffd500
53180 @ 446859:               INIT   1
53181 @ 446862:               PUSHI  #0x00006000
53182 @ 446867:               INIT   1
53183 @ 446870:               PUSHI  #0x0000784b
53184 @ 446875:               INIT   1
53185 @ 446878:               PUSHI  #0x000007f3
53186 @ 446883:               INIT   1
53187 @ 446886:               PUSHI  #0x00000a94
53188 @ 446891:               INIT   1
53189 @ 446894:               PUSHI  #0x000007f3
53190 @ 446899:               INIT   1
53191 @ 446902:               PUSHI  #0x00000ae0
53192 @ 446907:               INIT   1
53193 @ 446910:               PUSHI  #0xffffd500
53194 @ 446915:               INIT   1
53195 @ 446918:               PUSHI  #0x00006000
53196 @ 446923:               INIT   1
53197 @ 446926:               PUSHI  #0x0000784d
53198 @ 446931:               INIT   1
53199 @ 446934:               PUSHI  #0x00000ae0
53200 @ 446939:               INIT   1
53201 @ 446942:               PUSHI  #0x000047f0
53202 @ 446947:               INIT   1
53203 @ 446950:               PUSHI  #0x00003008
53204 @ 446955:               INIT   1
53205 @ 446958:               PUSHI  #0x00000af8
53206 @ 446963:               INIT   1
53207 @ 446966:               PUSHI  #0x00000af2
53208 @ 446971:               INIT   1
53209 @ 446974:               PUSHI  #0xffffd500
53210 @ 446979:               INIT   1
53211 @ 446982:               PUSHI  #0x00006000
53212 @ 446987:               INIT   1
53213 @ 446990:               PUSHI  #0x00007851
53214 @ 446995:               INIT   1
53215 @ 446998:               PUSHI  #0x000007f3
53216 @ 447003:               INIT   1
53217 @ 447006:               PUSHI  #0x00000a94
53218 @ 447011:               INIT   1
53219 @ 447014:               PUSHI  #0x000047f0
53220 @ 447019:               INIT   1
53221 @ 447022:               PUSHI  #0x00003004
53222 @ 447027:               INIT   1
53223 @ 447030:               PUSHI  #0x00000af8
53224 @ 447035:               INIT   1
53225 @ 447038:               PUSHI  #0x000047f0
53226 @ 447043:               INIT   1
53227 @ 447046:               PUSHI  #0x00003008
53228 @ 447051:               INIT   1
53229 @ 447054:               PUSHI  #0x00000b08
53230 @ 447059:               INIT   1
53231 @ 447062:               PUSHI  #0x00000b02
53232 @ 447067:               INIT   1
53233 @ 447070:               PUSHI  #0xffffd500
53234 @ 447075:               INIT   1
53235 @ 447078:               PUSHI  #0x00006000
53236 @ 447083:               INIT   1
53237 @ 447086:               PUSHI  #0x00007851
53238 @ 447091:               INIT   1
53239 @ 447094:               PUSHI  #0x00000b08
53240 @ 447099:               INIT   1
53241 @ 447102:               PUSHI  #0x000047f0
53242 @ 447107:               INIT   1
53243 @ 447110:               PUSHI  #0x00003008
53244 @ 447115:               INIT   1
53245 @ 447118:               PUSHI  #0x00000b1a
53246 @ 447123:               INIT   1
53247 @ 447126:               PUSHI  #0x00000b12
53248 @ 447131:               INIT   1
53249 @ 447134:               PUSHI  #0xffffd501
53250 @ 447139:               INIT   1
53251 @ 447142:               PUSHI  #0x00006000
53252 @ 447147:               INIT   1
53253 @ 447150:               PUSHI  #0x00007853
53254 @ 447155:               INIT   1
53255 @ 447158:               PUSHI  #0x00000b1a
53256 @ 447163:               INIT   1
53257 @ 447166:               PUSHI  #0xffffd505
53258 @ 447171:               INIT   1
53259 @ 447174:               PUSHI  #0x00006000
53260 @ 447179:               INIT   1
53261 @ 447182:               PUSHI  #0x00007856
53262 @ 447187:               INIT   1
53263 @ 447190:               PUSHI  #0x00000b2c
53264 @ 447195:               INIT   1
53265 @ 447198:               PUSHI  #0x00000b24
53266 @ 447203:               INIT   1
53267 @ 447206:               PUSHI  #0xffffd504
53268 @ 447211:               INIT   1
53269 @ 447214:               PUSHI  #0x00006000
53270 @ 447219:               INIT   1
53271 @ 447222:               PUSHI  #0x0000785d
53272 @ 447227:               INIT   1
53273 @ 447230:               PUSHI  #0x00000b2c
53274 @ 447235:               INIT   1
53275 @ 447238:               PUSHI  #0xffffd504
53276 @ 447243:               INIT   1
53277 @ 447246:               PUSHI  #0x00006000
53278 @ 447251:               INIT   1
53279 @ 447254:               PUSHI  #0x00007863
53280 @ 447259:               INIT   1
53281 @ 447262:               PUSHI  #0x00000b3e
53282 @ 447267:               INIT   1
53283 @ 447270:               PUSHI  #0x00000b36
53284 @ 447275:               INIT   1
53285 @ 447278:               PUSHI  #0xffffd500
53286 @ 447283:               INIT   1
53287 @ 447286:               PUSHI  #0x00006000
53288 @ 447291:               INIT   1
53289 @ 447294:               PUSHI  #0x0000784f
53290 @ 447299:               INIT   1
53291 @ 447302:               PUSHI  #0x00000b3e
53292 @ 447307:               INIT   1
53293 @ 447310:               PUSHI  #0xffffd506
53294 @ 447315:               INIT   1
53295 @ 447318:               PUSHI  #0x00006000
53296 @ 447323:               INIT   1
53297 @ 447326:               PUSHI  #0x00007869
53298 @ 447331:               INIT   1
53299 @ 447334:               PUSHI  #0x00000b86
53300 @ 447339:               INIT   1
53301 @ 447342:               PUSHI  #0x00000b48
53302 @ 447347:               INIT   1
53303 @ 447350:               PUSHI  #0xffffd506
53304 @ 447355:               INIT   1
53305 @ 447358:               PUSHI  #0x00006000
53306 @ 447363:               INIT   1
53307 @ 447366:               PUSHI  #0x00007871
53308 @ 447371:               INIT   1
53309 @ 447374:               PUSHI  #0x00000b50
53310 @ 447379:               INIT   1
53311 @ 447382:               PUSHI  #0xffffd503
53312 @ 447387:               INIT   1
53313 @ 447390:               PUSHI  #0x00006000
53314 @ 447395:               INIT   1
53315 @ 447398:               PUSHI  #0x00007879
53316 @ 447403:               INIT   1
53317 @ 447406:               PUSHI  #0x00000b5e
53318 @ 447411:               INIT   1
53319 @ 447414:               PUSHI  #0xffffd503
53320 @ 447419:               INIT   1
53321 @ 447422:               PUSHI  #0x00006000
53322 @ 447427:               INIT   1
53323 @ 447430:               PUSHI  #0x0000787e
53324 @ 447435:               INIT   1
53325 @ 447438:               PUSHI  #0xffffd506
53326 @ 447443:               INIT   1
53327 @ 447446:               PUSHI  #0x00006000
53328 @ 447451:               INIT   1
53329 @ 447454:               PUSHI  #0x00007871
53330 @ 447459:               INIT   1
53331 @ 447462:               PUSHI  #0x00000b6c
53332 @ 447467:               INIT   1
53333 @ 447470:               PUSHI  #0xffffd504
53334 @ 447475:               INIT   1
53335 @ 447478:               PUSHI  #0x00006000
53336 @ 447483:               INIT   1
53337 @ 447486:               PUSHI  #0x00007883
53338 @ 447491:               INIT   1
53339 @ 447494:               PUSHI  #0xffffd506
53340 @ 447499:               INIT   1
53341 @ 447502:               PUSHI  #0x00006000
53342 @ 447507:               INIT   1
53343 @ 447510:               PUSHI  #0x00007871
53344 @ 447515:               INIT   1
53345 @ 447518:               PUSHI  #0x00000b7a
53346 @ 447523:               INIT   1
53347 @ 447526:               PUSHI  #0xffffd503
53348 @ 447531:               INIT   1
53349 @ 447534:               PUSHI  #0x00006000
53350 @ 447539:               INIT   1
53351 @ 447542:               PUSHI  #0x00007889
53352 @ 447547:               INIT   1
53353 @ 447550:               PUSHI  #0xffffd503
53354 @ 447555:               INIT   1
53355 @ 447558:               PUSHI  #0x00006000
53356 @ 447563:               INIT   1
53357 @ 447566:               PUSHI  #0x00007879
53358 @ 447571:               INIT   1
53359 @ 447574:               PUSHI  #0x00000b86
53360 @ 447579:               INIT   1
53361 @ 447582:               PUSHI  #0xffffd505
53362 @ 447587:               INIT   1
53363 @ 447590:               PUSHI  #0x00006000
53364 @ 447595:               INIT   1
53365 @ 447598:               PUSHI  #0x0000788e
53366 @ 447603:               INIT   1
53367 @ 447606:               PUSHI  #0x000007f3
53368 @ 447611:               INIT   1
53369 @ 447614:               PUSHI  #0x000013f2
53370 @ 447619:               INIT   1
53371 @ 447622:               PUSHI  #0x00000b9a
53372 @ 447627:               INIT   1
53373 @ 447630:               PUSHI  #0x00000b90
53374 @ 447635:               INIT   1
53375 @ 447638:               PUSHI  #0xffffd506
53376 @ 447643:               INIT   1
53377 @ 447646:               PUSHI  #0x00006000
53378 @ 447651:               INIT   1
53379 @ 447654:               PUSHI  #0x00007895
53380 @ 447659:               INIT   1
53381 @ 447662:               PUSHI  #0x00000b9a
53382 @ 447667:               INIT   1
53383 @ 447670:               PUSHI  #0x000007f3
53384 @ 447675:               INIT   1
53385 @ 447678:               PUSHI  #0x00000b3e
53386 @ 447683:               INIT   1
53387 @ 447686:               PUSHI  #0x000007f3
53388 @ 447691:               INIT   1
53389 @ 447694:               PUSHI  #0x00000b9a
53390 @ 447699:               INIT   1
53391 @ 447702:               PUSHI  #0x00000bac
53392 @ 447707:               INIT   1
53393 @ 447710:               PUSHI  #0x00000ba4
53394 @ 447715:               INIT   1
53395 @ 447718:               PUSHI  #0xffffd501
53396 @ 447723:               INIT   1
53397 @ 447726:               PUSHI  #0x00006000
53398 @ 447731:               INIT   1
53399 @ 447734:               PUSHI  #0x0000789d
53400 @ 447739:               INIT   1
53401 @ 447742:               PUSHI  #0x00000bac
53402 @ 447747:               INIT   1
53403 @ 447750:               PUSHI  #0xffffd502
53404 @ 447755:               INIT   1
53405 @ 447758:               PUSHI  #0x00006000
53406 @ 447763:               INIT   1
53407 @ 447766:               PUSHI  #0x000078a0
53408 @ 447771:               INIT   1
53409 @ 447774:               PUSHI  #0x00000bdc
53410 @ 447779:               INIT   1
53411 @ 447782:               PUSHI  #0x00000bb8
53412 @ 447787:               INIT   1
53413 @ 447790:               PUSHI  #0x000007f3
53414 @ 447795:               INIT   1
53415 @ 447798:               PUSHI  #0x00000b86
53416 @ 447803:               INIT   1
53417 @ 447806:               PUSHI  #0x000007f3
53418 @ 447811:               INIT   1
53419 @ 447814:               PUSHI  #0x00000c0c
53420 @ 447819:               INIT   1
53421 @ 447822:               PUSHI  #0x00000bc2
53422 @ 447827:               INIT   1
53423 @ 447830:               PUSHI  #0x000007f3
53424 @ 447835:               INIT   1
53425 @ 447838:               PUSHI  #0x00000b3e
53426 @ 447843:               INIT   1
53427 @ 447846:               PUSHI  #0x000007f3
53428 @ 447851:               INIT   1
53429 @ 447854:               PUSHI  #0x00000c1c
53430 @ 447859:               INIT   1
53431 @ 447862:               PUSHI  #0x00000bca
53432 @ 447867:               INIT   1
53433 @ 447870:               PUSHI  #0xffffd503
53434 @ 447875:               INIT   1
53435 @ 447878:               PUSHI  #0x00006000
53436 @ 447883:               INIT   1
53437 @ 447886:               PUSHI  #0x000078a4
53438 @ 447891:               INIT   1
53439 @ 447894:               PUSHI  #0x00000bdc
53440 @ 447899:               INIT   1
53441 @ 447902:               PUSHI  #0xffffd505
53442 @ 447907:               INIT   1
53443 @ 447910:               PUSHI  #0x00006000
53444 @ 447915:               INIT   1
53445 @ 447918:               PUSHI  #0x000078a9
53446 @ 447923:               INIT   1
53447 @ 447926:               PUSHI  #0x000007f3
53448 @ 447931:               INIT   1
53449 @ 447934:               PUSHI  #0x00000bfc
53450 @ 447939:               INIT   1
53451 @ 447942:               PUSHI  #0xffffd503
53452 @ 447947:               INIT   1
53453 @ 447950:               PUSHI  #0x00006000
53454 @ 447955:               INIT   1
53455 @ 447958:               PUSHI  #0x000078a4
53456 @ 447963:               INIT   1
53457 @ 447966:               PUSHI  #0x00000bea
53458 @ 447971:               INIT   1
53459 @ 447974:               PUSHI  #0x00000be4
53460 @ 447979:               INIT   1
53461 @ 447982:               PUSHI  #0x000047f0
53462 @ 447987:               INIT   1
53463 @ 447990:               PUSHI  #0x0000301c
53464 @ 447995:               INIT   1
53465 @ 447998:               PUSHI  #0x00000bea
53466 @ 448003:               INIT   1
53467 @ 448006:               PUSHI  #0x000047f0
53468 @ 448011:               INIT   1
53469 @ 448014:               PUSHI  #0x0000300c
53470 @ 448019:               INIT   1
53471 @ 448022:               PUSHI  #0x00000bfc
53472 @ 448027:               INIT   1
53473 @ 448030:               PUSHI  #0x00000bf2
53474 @ 448035:               INIT   1
53475 @ 448038:               PUSHI  #0x000047f0
53476 @ 448043:               INIT   1
53477 @ 448046:               PUSHI  #0x0000301c
53478 @ 448051:               INIT   1
53479 @ 448054:               PUSHI  #0x00000bfc
53480 @ 448059:               INIT   1
53481 @ 448062:               PUSHI  #0x000047f0
53482 @ 448067:               INIT   1
53483 @ 448070:               PUSHI  #0x0000300c
53484 @ 448075:               INIT   1
53485 @ 448078:               PUSHI  #0x000007f3
53486 @ 448083:               INIT   1
53487 @ 448086:               PUSHI  #0x00000ac2
53488 @ 448091:               INIT   1
53489 @ 448094:               PUSHI  #0x00000c0c
53490 @ 448099:               INIT   1
53491 @ 448102:               PUSHI  #0x00000c06
53492 @ 448107:               INIT   1
53493 @ 448110:               PUSHI  #0xffffd504
53494 @ 448115:               INIT   1
53495 @ 448118:               PUSHI  #0x00006000
53496 @ 448123:               INIT   1
53497 @ 448126:               PUSHI  #0x000078b0
53498 @ 448131:               INIT   1
53499 @ 448134:               PUSHI  #0x00000c0c
53500 @ 448139:               INIT   1
53501 @ 448142:               PUSHI  #0x000047f0
53502 @ 448147:               INIT   1
53503 @ 448150:               PUSHI  #0x00003008
53504 @ 448155:               INIT   1
53505 @ 448158:               PUSHI  #0x00000c1c
53506 @ 448163:               INIT   1
53507 @ 448166:               PUSHI  #0x00000c16
53508 @ 448171:               INIT   1
53509 @ 448174:               PUSHI  #0xffffd503
53510 @ 448179:               INIT   1
53511 @ 448182:               PUSHI  #0x00006000
53512 @ 448187:               INIT   1
53513 @ 448190:               PUSHI  #0x000078a4
53514 @ 448195:               INIT   1
53515 @ 448198:               PUSHI  #0x00000c1c
53516 @ 448203:               INIT   1
53517 @ 448206:               PUSHI  #0x000047f0
53518 @ 448211:               INIT   1
53519 @ 448214:               PUSHI  #0x00003008
53520 @ 448219:               INIT   1
53521 @ 448222:               PUSHI  #0x00000c34
53522 @ 448227:               INIT   1
53523 @ 448230:               PUSHI  #0x00000c26
53524 @ 448235:               INIT   1
53525 @ 448238:               PUSHI  #0xffffd508
53526 @ 448243:               INIT   1
53527 @ 448246:               PUSHI  #0x00006000
53528 @ 448251:               INIT   1
53529 @ 448254:               PUSHI  #0x000078b6
53530 @ 448259:               INIT   1
53531 @ 448262:               PUSHI  #0x00000c2e
53532 @ 448267:               INIT   1
53533 @ 448270:               PUSHI  #0xffffd503
53534 @ 448275:               INIT   1
53535 @ 448278:               PUSHI  #0x00006000
53536 @ 448283:               INIT   1
53537 @ 448286:               PUSHI  #0x000078a4
53538 @ 448291:               INIT   1
53539 @ 448294:               PUSHI  #0x00000c34
53540 @ 448299:               INIT   1
53541 @ 448302:               PUSHI  #0x000047f0
53542 @ 448307:               INIT   1
53543 @ 448310:               PUSHI  #0x00003008
53544 @ 448315:               INIT   1
53545 @ 448318:               PUSHI  #0x00000c56
53546 @ 448323:               INIT   1
53547 @ 448326:               PUSHI  #0x00000c50
53548 @ 448331:               INIT   1
53549 @ 448334:               PUSHI  #0xffffd500
53550 @ 448339:               INIT   1
53551 @ 448342:               PUSHI  #0x00006000
53552 @ 448347:               INIT   1
53553 @ 448350:               PUSHI  #0x0000784b
53554 @ 448355:               INIT   1
53555 @ 448358:               PUSHI  #0x000007f3
53556 @ 448363:               INIT   1
53557 @ 448366:               PUSHI  #0x00000bac
53558 @ 448371:               INIT   1
53559 @ 448374:               PUSHI  #0x000047f0
53560 @ 448379:               INIT   1
53561 @ 448382:               PUSHI  #0x0000302c
53562 @ 448387:               INIT   1
53563 @ 448390:               PUSHI  #0x000007f3
53564 @ 448395:               INIT   1
53565 @ 448398:               PUSHI  #0x00000c56
53566 @ 448403:               INIT   1
53567 @ 448406:               PUSHI  #0xffffd500
53568 @ 448411:               INIT   1
53569 @ 448414:               PUSHI  #0x00006000
53570 @ 448419:               INIT   1
53571 @ 448422:               PUSHI  #0x0000784d
53572 @ 448427:               INIT   1
53573 @ 448430:               PUSHI  #0x00000c56
53574 @ 448435:               INIT   1
53575 @ 448438:               PUSHI  #0x000047f0
53576 @ 448443:               INIT   1
53577 @ 448446:               PUSHI  #0x00003008
53578 @ 448451:               INIT   1
53579 @ 448454:               PUSHI  #0x00000c70
53580 @ 448459:               INIT   1
53581 @ 448462:               PUSHI  #0x00000c6a
53582 @ 448467:               INIT   1
53583 @ 448470:               PUSHI  #0x000007f3
53584 @ 448475:               INIT   1
53585 @ 448478:               PUSHI  #0x00000af8
53586 @ 448483:               INIT   1
53587 @ 448486:               PUSHI  #0x000007f3
53588 @ 448491:               INIT   1
53589 @ 448494:               PUSHI  #0x00000bac
53590 @ 448499:               INIT   1
53591 @ 448502:               PUSHI  #0x000047f0
53592 @ 448507:               INIT   1
53593 @ 448510:               PUSHI  #0x0000302c
53594 @ 448515:               INIT   1
53595 @ 448518:               PUSHI  #0x000047f0
53596 @ 448523:               INIT   1
53597 @ 448526:               PUSHI  #0x00003004
53598 @ 448531:               INIT   1
53599 @ 448534:               PUSHI  #0x00000c70
53600 @ 448539:               INIT   1
53601 @ 448542:               PUSHI  #0x000047f0
53602 @ 448547:               INIT   1
53603 @ 448550:               PUSHI  #0x00003008
53604 @ 448555:               INIT   1
53605 @ 448558:               PUSHI  #0x00000c98
53606 @ 448563:               INIT   1
53607 @ 448566:               PUSHI  #0x00000c7a
53608 @ 448571:               INIT   1
53609 @ 448574:               PUSHI  #0xffffd508
53610 @ 448579:               INIT   1
53611 @ 448582:               PUSHI  #0x00006000
53612 @ 448587:               INIT   1
53613 @ 448590:               PUSHI  #0x000078c0
53614 @ 448595:               INIT   1
53615 @ 448598:               PUSHI  #0x00000c82
53616 @ 448603:               INIT   1
53617 @ 448606:               PUSHI  #0xffffd505
53618 @ 448611:               INIT   1
53619 @ 448614:               PUSHI  #0x00006000
53620 @ 448619:               INIT   1
53621 @ 448622:               PUSHI  #0x000078ca
53622 @ 448627:               INIT   1
53623 @ 448630:               PUSHI  #0x00000c8a
53624 @ 448635:               INIT   1
53625 @ 448638:               PUSHI  #0xffffd505
53626 @ 448643:               INIT   1
53627 @ 448646:               PUSHI  #0x00006000
53628 @ 448651:               INIT   1
53629 @ 448654:               PUSHI  #0x000078d1
53630 @ 448659:               INIT   1
53631 @ 448662:               PUSHI  #0x00000c92
53632 @ 448667:               INIT   1
53633 @ 448670:               PUSHI  #0xffffd506
53634 @ 448675:               INIT   1
53635 @ 448678:               PUSHI  #0x00006000
53636 @ 448683:               INIT   1
53637 @ 448686:               PUSHI  #0x000078d8
53638 @ 448691:               INIT   1
53639 @ 448694:               PUSHI  #0x00000c98
53640 @ 448699:               INIT   1
53641 @ 448702:               PUSHI  #0x000047f0
53642 @ 448707:               INIT   1
53643 @ 448710:               PUSHI  #0x00003008
53644 @ 448715:               INIT   1
53645 @ 448718:               PUSHI  #0x00000ca8
53646 @ 448723:               INIT   1
53647 @ 448726:               PUSHI  #0x00000ca2
53648 @ 448731:               INIT   1
53649 @ 448734:               PUSHI  #0xffffd505
53650 @ 448739:               INIT   1
53651 @ 448742:               PUSHI  #0x00006000
53652 @ 448747:               INIT   1
53653 @ 448750:               PUSHI  #0x000078e0
53654 @ 448755:               INIT   1
53655 @ 448758:               PUSHI  #0x00000ca8
53656 @ 448763:               INIT   1
53657 @ 448766:               PUSHI  #0x000047f0
53658 @ 448771:               INIT   1
53659 @ 448774:               PUSHI  #0x00003008
53660 @ 448779:               INIT   1
53661 @ 448782:               PUSHI  #0x00000d10
53662 @ 448787:               INIT   1
53663 @ 448790:               PUSHI  #0x00000cca
53664 @ 448795:               INIT   1
53665 @ 448798:               PUSHI  #0xffffd505
53666 @ 448803:               INIT   1
53667 @ 448806:               PUSHI  #0x00006000
53668 @ 448811:               INIT   1
53669 @ 448814:               PUSHI  #0x000078e0
53670 @ 448819:               INIT   1
53671 @ 448822:               PUSHI  #0x000047f0
53672 @ 448827:               INIT   1
53673 @ 448830:               PUSHI  #0x0000300c
53674 @ 448835:               INIT   1
53675 @ 448838:               PUSHI  #0xffffd500
53676 @ 448843:               INIT   1
53677 @ 448846:               PUSHI  #0x00006000
53678 @ 448851:               INIT   1
53679 @ 448854:               PUSHI  #0x0000784b
53680 @ 448859:               INIT   1
53681 @ 448862:               PUSHI  #0x000007f3
53682 @ 448867:               INIT   1
53683 @ 448870:               PUSHI  #0x00001172
53684 @ 448875:               INIT   1
53685 @ 448878:               PUSHI  #0x000007f3
53686 @ 448883:               INIT   1
53687 @ 448886:               PUSHI  #0x0000115a
53688 @ 448891:               INIT   1
53689 @ 448894:               PUSHI  #0xffffd500
53690 @ 448899:               INIT   1
53691 @ 448902:               PUSHI  #0x00006000
53692 @ 448907:               INIT   1
53693 @ 448910:               PUSHI  #0x0000784d
53694 @ 448915:               INIT   1
53695 @ 448918:               PUSHI  #0x00000cf2
53696 @ 448923:               INIT   1
53697 @ 448926:               PUSHI  #0xffffd503
53698 @ 448931:               INIT   1
53699 @ 448934:               PUSHI  #0x00006000
53700 @ 448939:               INIT   1
53701 @ 448942:               PUSHI  #0x000078e7
53702 @ 448947:               INIT   1
53703 @ 448950:               PUSHI  #0x000047f0
53704 @ 448955:               INIT   1
53705 @ 448958:               PUSHI  #0x00003030
53706 @ 448963:               INIT   1
53707 @ 448966:               PUSHI  #0x000047f0
53708 @ 448971:               INIT   1
53709 @ 448974:               PUSHI  #0x0000300c
53710 @ 448979:               INIT   1
53711 @ 448982:               PUSHI  #0x000007f3
53712 @ 448987:               INIT   1
53713 @ 448990:               PUSHI  #0x00001024
53714 @ 448995:               INIT   1
53715 @ 448998:               PUSHI  #0x000047f0
53716 @ 449003:               INIT   1
53717 @ 449006:               PUSHI  #0x00003034
53718 @ 449011:               INIT   1
53719 @ 449014:               PUSHI  #0xffffd500
53720 @ 449019:               INIT   1
53721 @ 449022:               PUSHI  #0x00006000
53722 @ 449027:               INIT   1
53723 @ 449030:               PUSHI  #0x0000784b
53724 @ 449035:               INIT   1
53725 @ 449038:               PUSHI  #0x000047f0
53726 @ 449043:               INIT   1
53727 @ 449046:               PUSHI  #0x0000300c
53728 @ 449051:               INIT   1
53729 @ 449054:               PUSHI  #0xffffd500
53730 @ 449059:               INIT   1
53731 @ 449062:               PUSHI  #0x00006000
53732 @ 449067:               INIT   1
53733 @ 449070:               PUSHI  #0x0000784d
53734 @ 449075:               INIT   1
53735 @ 449078:               PUSHI  #0x00000d10
53736 @ 449083:               INIT   1
53737 @ 449086:               PUSHI  #0x000047f0
53738 @ 449091:               INIT   1
53739 @ 449094:               PUSHI  #0x00003030
53740 @ 449099:               INIT   1
53741 @ 449102:               PUSHI  #0x000007f3
53742 @ 449107:               INIT   1
53743 @ 449110:               PUSHI  #0x00000e20
53744 @ 449115:               INIT   1
53745 @ 449118:               PUSHI  #0x000047f0
53746 @ 449123:               INIT   1
53747 @ 449126:               PUSHI  #0x00003034
53748 @ 449131:               INIT   1
53749 @ 449134:               PUSHI  #0xffffd500
53750 @ 449139:               INIT   1
53751 @ 449142:               PUSHI  #0x00006000
53752 @ 449147:               INIT   1
53753 @ 449150:               PUSHI  #0x0000784b
53754 @ 449155:               INIT   1
53755 @ 449158:               PUSHI  #0x000047f0
53756 @ 449163:               INIT   1
53757 @ 449166:               PUSHI  #0x0000300c
53758 @ 449171:               INIT   1
53759 @ 449174:               PUSHI  #0xffffd500
53760 @ 449179:               INIT   1
53761 @ 449182:               PUSHI  #0x00006000
53762 @ 449187:               INIT   1
53763 @ 449190:               PUSHI  #0x0000784d
53764 @ 449195:               INIT   1
53765 @ 449198:               PUSHI  #0x00000d3a
53766 @ 449203:               INIT   1
53767 @ 449206:               PUSHI  #0x00000d24
53768 @ 449211:               INIT   1
53769 @ 449214:               PUSHI  #0x000007f3
53770 @ 449219:               INIT   1
53771 @ 449222:               PUSHI  #0x00000a94
53772 @ 449227:               INIT   1
53773 @ 449230:               PUSHI  #0x000047f0
53774 @ 449235:               INIT   1
53775 @ 449238:               PUSHI  #0x0000306c
53776 @ 449243:               INIT   1
53777 @ 449246:               PUSHI  #0x000007f3
53778 @ 449251:               INIT   1
53779 @ 449254:               PUSHI  #0x00000a94
53780 @ 449259:               INIT   1
53781 @ 449262:               PUSHI  #0x000007f3
53782 @ 449267:               INIT   1
53783 @ 449270:               PUSHI  #0x00000d3a
53784 @ 449275:               INIT   1
53785 @ 449278:               PUSHI  #0x00000d3a
53786 @ 449283:               INIT   1
53787 @ 449286:               PUSHI  #0xffffd500
53788 @ 449291:               INIT   1
53789 @ 449294:               PUSHI  #0x00006000
53790 @ 449299:               INIT   1
53791 @ 449302:               PUSHI  #0x0000784b
53792 @ 449307:               INIT   1
53793 @ 449310:               PUSHI  #0x000007f3
53794 @ 449315:               INIT   1
53795 @ 449318:               PUSHI  #0x00000d10
53796 @ 449323:               INIT   1
53797 @ 449326:               PUSHI  #0x000007f3
53798 @ 449331:               INIT   1
53799 @ 449334:               PUSHI  #0x00000d4c
53800 @ 449339:               INIT   1
53801 @ 449342:               PUSHI  #0xffffd500
53802 @ 449347:               INIT   1
53803 @ 449350:               PUSHI  #0x00006000
53804 @ 449355:               INIT   1
53805 @ 449358:               PUSHI  #0x0000784d
53806 @ 449363:               INIT   1
53807 @ 449366:               PUSHI  #0x00000d4c
53808 @ 449371:               INIT   1
53809 @ 449374:               PUSHI  #0x00000d46
53810 @ 449379:               INIT   1
53811 @ 449382:               PUSHI  #0x000047f0
53812 @ 449387:               INIT   1
53813 @ 449390:               PUSHI  #0x0000306c
53814 @ 449395:               INIT   1
53815 @ 449398:               PUSHI  #0x000007f3
53816 @ 449403:               INIT   1
53817 @ 449406:               PUSHI  #0x00000a94
53818 @ 449411:               INIT   1
53819 @ 449414:               PUSHI  #0x00000d4c
53820 @ 449419:               INIT   1
53821 @ 449422:               PUSHI  #0x000047f0
53822 @ 449427:               INIT   1
53823 @ 449430:               PUSHI  #0x00003008
53824 @ 449435:               INIT   1
53825 @ 449438:               PUSHI  #0x00000d74
53826 @ 449443:               INIT   1
53827 @ 449446:               PUSHI  #0x00000d5e
53828 @ 449451:               INIT   1
53829 @ 449454:               PUSHI  #0xffffd502
53830 @ 449459:               INIT   1
53831 @ 449462:               PUSHI  #0x00006000
53832 @ 449467:               INIT   1
53833 @ 449470:               PUSHI  #0x000078ec
53834 @ 449475:               INIT   1
53835 @ 449478:               PUSHI  #0x000007f3
53836 @ 449483:               INIT   1
53837 @ 449486:               PUSHI  #0x00000d10
53838 @ 449491:               INIT   1
53839 @ 449494:               PUSHI  #0x000007f3
53840 @ 449499:               INIT   1
53841 @ 449502:               PUSHI  #0x00000d74
53842 @ 449507:               INIT   1
53843 @ 449510:               PUSHI  #0x00000d6e
53844 @ 449515:               INIT   1
53845 @ 449518:               PUSHI  #0xffffd501
53846 @ 449523:               INIT   1
53847 @ 449526:               PUSHI  #0x00006000
53848 @ 449531:               INIT   1
53849 @ 449534:               PUSHI  #0x000078f0
53850 @ 449539:               INIT   1
53851 @ 449542:               PUSHI  #0x000007f3
53852 @ 449547:               INIT   1
53853 @ 449550:               PUSHI  #0x00000d10
53854 @ 449555:               INIT   1
53855 @ 449558:               PUSHI  #0x000007f3
53856 @ 449563:               INIT   1
53857 @ 449566:               PUSHI  #0x00000d8c
53858 @ 449571:               INIT   1
53859 @ 449574:               PUSHI  #0x00000d74
53860 @ 449579:               INIT   1
53861 @ 449582:               PUSHI  #0x000047f0
53862 @ 449587:               INIT   1
53863 @ 449590:               PUSHI  #0x00003008
53864 @ 449595:               INIT   1
53865 @ 449598:               PUSHI  #0x00000d8c
53866 @ 449603:               INIT   1
53867 @ 449606:               PUSHI  #0x00000d86
53868 @ 449611:               INIT   1
53869 @ 449614:               PUSHI  #0xffffd502
53870 @ 449619:               INIT   1
53871 @ 449622:               PUSHI  #0x00006000
53872 @ 449627:               INIT   1
53873 @ 449630:               PUSHI  #0x000078ec
53874 @ 449635:               INIT   1
53875 @ 449638:               PUSHI  #0x000007f3
53876 @ 449643:               INIT   1
53877 @ 449646:               PUSHI  #0x00000d10
53878 @ 449651:               INIT   1
53879 @ 449654:               PUSHI  #0x000047f0
53880 @ 449659:               INIT   1
53881 @ 449662:               PUSHI  #0x00003004
53882 @ 449667:               INIT   1
53883 @ 449670:               PUSHI  #0x00000d8c
53884 @ 449675:               INIT   1
53885 @ 449678:               PUSHI  #0x000047f0
53886 @ 449683:               INIT   1
53887 @ 449686:               PUSHI  #0x00003008
53888 @ 449691:               INIT   1
53889 @ 449694:               PUSHI  #0x00000da4
53890 @ 449699:               INIT   1
53891 @ 449702:               PUSHI  #0x00000d9e
53892 @ 449707:               INIT   1
53893 @ 449710:               PUSHI  #0xffffd501
53894 @ 449715:               INIT   1
53895 @ 449718:               PUSHI  #0x00006000
53896 @ 449723:               INIT   1
53897 @ 449726:               PUSHI  #0x000078f0
53898 @ 449731:               INIT   1
53899 @ 449734:               PUSHI  #0x000007f3
53900 @ 449739:               INIT   1
53901 @ 449742:               PUSHI  #0x00000d10
53902 @ 449747:               INIT   1
53903 @ 449750:               PUSHI  #0x000047f0
53904 @ 449755:               INIT   1
53905 @ 449758:               PUSHI  #0x00003004
53906 @ 449763:               INIT   1
53907 @ 449766:               PUSHI  #0x00000da4
53908 @ 449771:               INIT   1
53909 @ 449774:               PUSHI  #0x000047f0
53910 @ 449779:               INIT   1
53911 @ 449782:               PUSHI  #0x00003008
53912 @ 449787:               INIT   1
53913 @ 449790:               PUSHI  #0x00000db6
53914 @ 449795:               INIT   1
53915 @ 449798:               PUSHI  #0x00000db0
53916 @ 449803:               INIT   1
53917 @ 449806:               PUSHI  #0x000047f0
53918 @ 449811:               INIT   1
53919 @ 449814:               PUSHI  #0x00003068
53920 @ 449819:               INIT   1
53921 @ 449822:               PUSHI  #0x000007f3
53922 @ 449827:               INIT   1
53923 @ 449830:               PUSHI  #0x00000a94
53924 @ 449835:               INIT   1
53925 @ 449838:               PUSHI  #0x00000db6
53926 @ 449843:               INIT   1
53927 @ 449846:               PUSHI  #0x000047f0
53928 @ 449851:               INIT   1
53929 @ 449854:               PUSHI  #0x00003008
53930 @ 449859:               INIT   1
53931 @ 449862:               PUSHI  #0x00000dc6
53932 @ 449867:               INIT   1
53933 @ 449870:               PUSHI  #0x00000dc0
53934 @ 449875:               INIT   1
53935 @ 449878:               PUSHI  #0xffffd503
53936 @ 449883:               INIT   1
53937 @ 449886:               PUSHI  #0x00006000
53938 @ 449891:               INIT   1
53939 @ 449894:               PUSHI  #0x000078e7
53940 @ 449899:               INIT   1
53941 @ 449902:               PUSHI  #0x00000dc6
53942 @ 449907:               INIT   1
53943 @ 449910:               PUSHI  #0x000047f0
53944 @ 449915:               INIT   1
53945 @ 449918:               PUSHI  #0x00003008
53946 @ 449923:               INIT   1
53947 @ 449926:               PUSHI  #0x00000dd8
53948 @ 449931:               INIT   1
53949 @ 449934:               PUSHI  #0x00000dd0
53950 @ 449939:               INIT   1
53951 @ 449942:               PUSHI  #0xffffd503
53952 @ 449947:               INIT   1
53953 @ 449950:               PUSHI  #0x00006000
53954 @ 449955:               INIT   1
53955 @ 449958:               PUSHI  #0x00007889
53956 @ 449963:               INIT   1
53957 @ 449966:               PUSHI  #0x00000dd8
53958 @ 449971:               INIT   1
53959 @ 449974:               PUSHI  #0xffffd505
53960 @ 449979:               INIT   1
53961 @ 449982:               PUSHI  #0x00006000
53962 @ 449987:               INIT   1
53963 @ 449990:               PUSHI  #0x000078f3
53964 @ 449995:               INIT   1
53965 @ 449998:               PUSHI  #0x00000dfa
53966 @ 450003:               INIT   1
53967 @ 450006:               PUSHI  #0x00000df4
53968 @ 450011:               INIT   1
53969 @ 450014:               PUSHI  #0xffffd500
53970 @ 450019:               INIT   1
53971 @ 450022:               PUSHI  #0x00006000
53972 @ 450027:               INIT   1
53973 @ 450030:               PUSHI  #0x00007851
53974 @ 450035:               INIT   1
53975 @ 450038:               PUSHI  #0x000007f3
53976 @ 450043:               INIT   1
53977 @ 450046:               PUSHI  #0x00000a94
53978 @ 450051:               INIT   1
53979 @ 450054:               PUSHI  #0xffffd500
53980 @ 450059:               INIT   1
53981 @ 450062:               PUSHI  #0x00006000
53982 @ 450067:               INIT   1
53983 @ 450070:               PUSHI  #0x000078fa
53984 @ 450075:               INIT   1
53985 @ 450078:               PUSHI  #0x000007f3
53986 @ 450083:               INIT   1
53987 @ 450086:               PUSHI  #0x00000a94
53988 @ 450091:               INIT   1
53989 @ 450094:               PUSHI  #0x000047f0
53990 @ 450099:               INIT   1
53991 @ 450102:               PUSHI  #0x00003004
53992 @ 450107:               INIT   1
53993 @ 450110:               PUSHI  #0x00000dfa
53994 @ 450115:               INIT   1
53995 @ 450118:               PUSHI  #0x000047f0
53996 @ 450123:               INIT   1
53997 @ 450126:               PUSHI  #0x00003008
53998 @ 450131:               INIT   1
53999 @ 450134:               PUSHI  #0x00000e20
54000 @ 450139:               INIT   1
54001 @ 450142:               PUSHI  #0x00000e08
54002 @ 450147:               INIT   1
54003 @ 450150:               PUSHI  #0xffffd503
54004 @ 450155:               INIT   1
54005 @ 450158:               PUSHI  #0x00006000
54006 @ 450163:               INIT   1
54007 @ 450166:               PUSHI  #0x000078fc
54008 @ 450171:               INIT   1
54009 @ 450174:               PUSHI  #0x000047f0
54010 @ 450179:               INIT   1
54011 @ 450182:               PUSHI  #0x00003028
54012 @ 450187:               INIT   1
54013 @ 450190:               PUSHI  #0x00000e14
54014 @ 450195:               INIT   1
54015 @ 450198:               PUSHI  #0xffffd503
54016 @ 450203:               INIT   1
54017 @ 450206:               PUSHI  #0x00006000
54018 @ 450211:               INIT   1
54019 @ 450214:               PUSHI  #0x00007901
54020 @ 450219:               INIT   1
54021 @ 450222:               PUSHI  #0x000047f0
54022 @ 450227:               INIT   1
54023 @ 450230:               PUSHI  #0x00003028
54024 @ 450235:               INIT   1
54025 @ 450238:               PUSHI  #0x00000e20
54026 @ 450243:               INIT   1
54027 @ 450246:               PUSHI  #0xffffd505
54028 @ 450251:               INIT   1
54029 @ 450254:               PUSHI  #0x00006000
54030 @ 450259:               INIT   1
54031 @ 450262:               PUSHI  #0x00007906
54032 @ 450267:               INIT   1
54033 @ 450270:               PUSHI  #0x000047f0
54034 @ 450275:               INIT   1
54035 @ 450278:               PUSHI  #0x00003028
54036 @ 450283:               INIT   1
54037 @ 450286:               PUSHI  #0x00000e3c
54038 @ 450291:               INIT   1
54039 @ 450294:               PUSHI  #0x00000e2c
54040 @ 450299:               INIT   1
54041 @ 450302:               PUSHI  #0x000007f3
54042 @ 450307:               INIT   1
54043 @ 450310:               PUSHI  #0x00000c1c
54044 @ 450315:               INIT   1
54045 @ 450318:               PUSHI  #0x000047f0
54046 @ 450323:               INIT   1
54047 @ 450326:               PUSHI  #0x0000302c
54048 @ 450331:               INIT   1
54049 @ 450334:               PUSHI  #0x00000e3c
54050 @ 450339:               INIT   1
54051 @ 450342:               PUSHI  #0xffffd504
54052 @ 450347:               INIT   1
54053 @ 450350:               PUSHI  #0x00006000
54054 @ 450355:               INIT   1
54055 @ 450358:               PUSHI  #0x000078b0
54056 @ 450363:               INIT   1
54057 @ 450366:               PUSHI  #0x000007f3
54058 @ 450371:               INIT   1
54059 @ 450374:               PUSHI  #0x00000c98
54060 @ 450379:               INIT   1
54061 @ 450382:               PUSHI  #0x000007f3
54062 @ 450387:               INIT   1
54063 @ 450390:               PUSHI  #0x00000e3c
54064 @ 450395:               INIT   1
54065 @ 450398:               PUSHI  #0x00000e4c
54066 @ 450403:               INIT   1
54067 @ 450406:               PUSHI  #0x00000e4c
54068 @ 450411:               INIT   1
54069 @ 450414:               PUSHI  #0x000047f0
54070 @ 450419:               INIT   1
54071 @ 450422:               PUSHI  #0x0000302c
54072 @ 450427:               INIT   1
54073 @ 450430:               PUSHI  #0x000007f3
54074 @ 450435:               INIT   1
54075 @ 450438:               PUSHI  #0x00001064
54076 @ 450443:               INIT   1
54077 @ 450446:               PUSHI  #0x000007f3
54078 @ 450451:               INIT   1
54079 @ 450454:               PUSHI  #0x00000e4c
54080 @ 450459:               INIT   1
54081 @ 450462:               PUSHI  #0x00000e60
54082 @ 450467:               INIT   1
54083 @ 450470:               PUSHI  #0x00000e5a
54084 @ 450475:               INIT   1
54085 @ 450478:               PUSHI  #0xffffd500
54086 @ 450483:               INIT   1
54087 @ 450486:               PUSHI  #0x00006000
54088 @ 450491:               INIT   1
54089 @ 450494:               PUSHI  #0x00007851
54090 @ 450499:               INIT   1
54091 @ 450502:               PUSHI  #0x000007f3
54092 @ 450507:               INIT   1
54093 @ 450510:               PUSHI  #0x00000e3c
54094 @ 450515:               INIT   1
54095 @ 450518:               PUSHI  #0x00000e60
54096 @ 450523:               INIT   1
54097 @ 450526:               PUSHI  #0x000047f0
54098 @ 450531:               INIT   1
54099 @ 450534:               PUSHI  #0x00003008
54100 @ 450539:               INIT   1
54101 @ 450542:               PUSHI  #0x00000e94
54102 @ 450547:               INIT   1
54103 @ 450550:               PUSHI  #0x00000e7c
54104 @ 450555:               INIT   1
54105 @ 450558:               PUSHI  #0x000047f0
54106 @ 450563:               INIT   1
54107 @ 450566:               PUSHI  #0x00003030
54108 @ 450571:               INIT   1
54109 @ 450574:               PUSHI  #0x000047f0
54110 @ 450579:               INIT   1
54111 @ 450582:               PUSHI  #0x0000302c
54112 @ 450587:               INIT   1
54113 @ 450590:               PUSHI  #0x000007f3
54114 @ 450595:               INIT   1
54115 @ 450598:               PUSHI  #0x0000108c
54116 @ 450603:               INIT   1
54117 @ 450606:               PUSHI  #0x000047f0
54118 @ 450611:               INIT   1
54119 @ 450614:               PUSHI  #0x00003034
54120 @ 450619:               INIT   1
54121 @ 450622:               PUSHI  #0x000007f3
54122 @ 450627:               INIT   1
54123 @ 450630:               PUSHI  #0x00000e94
54124 @ 450635:               INIT   1
54125 @ 450638:               PUSHI  #0x000047f0
54126 @ 450643:               INIT   1
54127 @ 450646:               PUSHI  #0x00003020
54128 @ 450651:               INIT   1
54129 @ 450654:               PUSHI  #0x00000e94
54130 @ 450659:               INIT   1
54131 @ 450662:               PUSHI  #0xffffd504
54132 @ 450667:               INIT   1
54133 @ 450670:               PUSHI  #0x00006000
54134 @ 450675:               INIT   1
54135 @ 450678:               PUSHI  #0x000078b0
54136 @ 450683:               INIT   1
54137 @ 450686:               PUSHI  #0x000047f0
54138 @ 450691:               INIT   1
54139 @ 450694:               PUSHI  #0x0000300c
54140 @ 450699:               INIT   1
54141 @ 450702:               PUSHI  #0x000007f3
54142 @ 450707:               INIT   1
54143 @ 450710:               PUSHI  #0x00000eda
54144 @ 450715:               INIT   1
54145 @ 450718:               PUSHI  #0x000007f3
54146 @ 450723:               INIT   1
54147 @ 450726:               PUSHI  #0x0000140c
54148 @ 450731:               INIT   1
54149 @ 450734:               PUSHI  #0x000047f0
54150 @ 450739:               INIT   1
54151 @ 450742:               PUSHI  #0x00003018
54152 @ 450747:               INIT   1
54153 @ 450750:               PUSHI  #0x00000eb8
54154 @ 450755:               INIT   1
54155 @ 450758:               PUSHI  #0x00000eb2
54156 @ 450763:               INIT   1
54157 @ 450766:               PUSHI  #0xffffd500
54158 @ 450771:               INIT   1
54159 @ 450774:               PUSHI  #0x00006000
54160 @ 450779:               INIT   1
54161 @ 450782:               PUSHI  #0x00007851
54162 @ 450787:               INIT   1
54163 @ 450790:               PUSHI  #0x000047f0
54164 @ 450795:               INIT   1
54165 @ 450798:               PUSHI  #0x00003030
54166 @ 450803:               INIT   1
54167 @ 450806:               PUSHI  #0x000047f0
54168 @ 450811:               INIT   1
54169 @ 450814:               PUSHI  #0x0000302c
54170 @ 450819:               INIT   1
54171 @ 450822:               PUSHI  #0x000007f3
54172 @ 450827:               INIT   1
54173 @ 450830:               PUSHI  #0x0000108c
54174 @ 450835:               INIT   1
54175 @ 450838:               PUSHI  #0x000047f0
54176 @ 450843:               INIT   1
54177 @ 450846:               PUSHI  #0x00003034
54178 @ 450851:               INIT   1
54179 @ 450854:               PUSHI  #0x000047f0
54180 @ 450859:               INIT   1
54181 @ 450862:               PUSHI  #0x00003004
54182 @ 450867:               INIT   1
54183 @ 450870:               PUSHI  #0x00000eb8
54184 @ 450875:               INIT   1
54185 @ 450878:               PUSHI  #0x000047f0
54186 @ 450883:               INIT   1
54187 @ 450886:               PUSHI  #0x00003008
54188 @ 450891:               INIT   1
54189 @ 450894:               PUSHI  #0x00000eda
54190 @ 450899:               INIT   1
54191 @ 450902:               PUSHI  #0x00000ec2
54192 @ 450907:               INIT   1
54193 @ 450910:               PUSHI  #0xffffd502
54194 @ 450915:               INIT   1
54195 @ 450918:               PUSHI  #0x00006000
54196 @ 450923:               INIT   1
54197 @ 450926:               PUSHI  #0x0000790d
54198 @ 450931:               INIT   1
54199 @ 450934:               PUSHI  #0x00000eca
54200 @ 450939:               INIT   1
54201 @ 450942:               PUSHI  #0xffffd507
54202 @ 450947:               INIT   1
54203 @ 450950:               PUSHI  #0x00006000
54204 @ 450955:               INIT   1
54205 @ 450958:               PUSHI  #0x00007911
54206 @ 450963:               INIT   1
54207 @ 450966:               PUSHI  #0x00000ed2
54208 @ 450971:               INIT   1
54209 @ 450974:               PUSHI  #0xffffd508
54210 @ 450979:               INIT   1
54211 @ 450982:               PUSHI  #0x00006000
54212 @ 450987:               INIT   1
54213 @ 450990:               PUSHI  #0x0000791a
54214 @ 450995:               INIT   1
54215 @ 450998:               PUSHI  #0x00000eda
54216 @ 451003:               INIT   1
54217 @ 451006:               PUSHI  #0xffffd504
54218 @ 451011:               INIT   1
54219 @ 451014:               PUSHI  #0x00006000
54220 @ 451019:               INIT   1
54221 @ 451022:               PUSHI  #0x00007924
54222 @ 451027:               INIT   1
54223 @ 451030:               PUSHI  #0x00000f00
54224 @ 451035:               INIT   1
54225 @ 451038:               PUSHI  #0x00000f00
54226 @ 451043:               INIT   1
54227 @ 451046:               PUSHI  #0xffffd500
54228 @ 451051:               INIT   1
54229 @ 451054:               PUSHI  #0x00006000
54230 @ 451059:               INIT   1
54231 @ 451062:               PUSHI  #0x0000784b
54232 @ 451067:               INIT   1
54233 @ 451070:               PUSHI  #0x000007f3
54234 @ 451075:               INIT   1
54235 @ 451078:               PUSHI  #0x00000a28
54236 @ 451083:               INIT   1
54237 @ 451086:               PUSHI  #0x000047f0
54238 @ 451091:               INIT   1
54239 @ 451094:               PUSHI  #0x00003010
54240 @ 451099:               INIT   1
54241 @ 451102:               PUSHI  #0xffffd500
54242 @ 451107:               INIT   1
54243 @ 451110:               PUSHI  #0x00006000
54244 @ 451115:               INIT   1
54245 @ 451118:               PUSHI  #0x000078fa
54246 @ 451123:               INIT   1
54247 @ 451126:               PUSHI  #0x000007f3
54248 @ 451131:               INIT   1
54249 @ 451134:               PUSHI  #0x00000a28
54250 @ 451139:               INIT   1
54251 @ 451142:               PUSHI  #0x000047f0
54252 @ 451147:               INIT   1
54253 @ 451150:               PUSHI  #0x00003010
54254 @ 451155:               INIT   1
54255 @ 451158:               PUSHI  #0xffffd500
54256 @ 451163:               INIT   1
54257 @ 451166:               PUSHI  #0x00006000
54258 @ 451171:               INIT   1
54259 @ 451174:               PUSHI  #0x0000784d
54260 @ 451179:               INIT   1
54261 @ 451182:               PUSHI  #0x00000f18
54262 @ 451187:               INIT   1
54263 @ 451190:               PUSHI  #0x00000f12
54264 @ 451195:               INIT   1
54265 @ 451198:               PUSHI  #0xffffd500
54266 @ 451203:               INIT   1
54267 @ 451206:               PUSHI  #0x00006000
54268 @ 451211:               INIT   1
54269 @ 451214:               PUSHI  #0x00007851
54270 @ 451219:               INIT   1
54271 @ 451222:               PUSHI  #0x000047f0
54272 @ 451227:               INIT   1
54273 @ 451230:               PUSHI  #0x0000301c
54274 @ 451235:               INIT   1
54275 @ 451238:               PUSHI  #0x000047f0
54276 @ 451243:               INIT   1
54277 @ 451246:               PUSHI  #0x00003004
54278 @ 451251:               INIT   1
54279 @ 451254:               PUSHI  #0x00000f18
54280 @ 451259:               INIT   1
54281 @ 451262:               PUSHI  #0x000047f0
54282 @ 451267:               INIT   1
54283 @ 451270:               PUSHI  #0x00003008
54284 @ 451275:               INIT   1
54285 @ 451278:               PUSHI  #0x00000f32
54286 @ 451283:               INIT   1
54287 @ 451286:               PUSHI  #0x00000f32
54288 @ 451291:               INIT   1
54289 @ 451294:               PUSHI  #0x000047f0
54290 @ 451299:               INIT   1
54291 @ 451302:               PUSHI  #0x0000301c
54292 @ 451307:               INIT   1
54293 @ 451310:               PUSHI  #0x000007f3
54294 @ 451315:               INIT   1
54295 @ 451318:               PUSHI  #0x00000f00
54296 @ 451323:               INIT   1
54297 @ 451326:               PUSHI  #0xffffd501
54298 @ 451331:               INIT   1
54299 @ 451334:               PUSHI  #0x00006000
54300 @ 451339:               INIT   1
54301 @ 451342:               PUSHI  #0x0000792a
54302 @ 451347:               INIT   1
54303 @ 451350:               PUSHI  #0x000007f3
54304 @ 451355:               INIT   1
54305 @ 451358:               PUSHI  #0x00000bdc
54306 @ 451363:               INIT   1
54307 @ 451366:               PUSHI  #0x000007f3
54308 @ 451371:               INIT   1
54309 @ 451374:               PUSHI  #0x00000f32
54310 @ 451379:               INIT   1
54311 @ 451382:               PUSHI  #0x00000f46
54312 @ 451387:               INIT   1
54313 @ 451390:               PUSHI  #0x00000f40
54314 @ 451395:               INIT   1
54315 @ 451398:               PUSHI  #0xffffd500
54316 @ 451403:               INIT   1
54317 @ 451406:               PUSHI  #0x00006000
54318 @ 451411:               INIT   1
54319 @ 451414:               PUSHI  #0x00007851
54320 @ 451419:               INIT   1
54321 @ 451422:               PUSHI  #0x000007f3
54322 @ 451427:               INIT   1
54323 @ 451430:               PUSHI  #0x00000f18
54324 @ 451435:               INIT   1
54325 @ 451438:               PUSHI  #0x00000f46
54326 @ 451443:               INIT   1
54327 @ 451446:               PUSHI  #0x000047f0
54328 @ 451451:               INIT   1
54329 @ 451454:               PUSHI  #0x00003008
54330 @ 451459:               INIT   1
54331 @ 451462:               PUSHI  #0x00000f5c
54332 @ 451467:               INIT   1
54333 @ 451470:               PUSHI  #0x00000f50
54334 @ 451475:               INIT   1
54335 @ 451478:               PUSHI  #0xffffd503
54336 @ 451483:               INIT   1
54337 @ 451486:               PUSHI  #0x00006000
54338 @ 451491:               INIT   1
54339 @ 451494:               PUSHI  #0x0000792d
54340 @ 451499:               INIT   1
54341 @ 451502:               PUSHI  #0x00000f56
54342 @ 451507:               INIT   1
54343 @ 451510:               PUSHI  #0x000047f0
54344 @ 451515:               INIT   1
54345 @ 451518:               PUSHI  #0x0000301c
54346 @ 451523:               INIT   1
54347 @ 451526:               PUSHI  #0x00000f5c
54348 @ 451531:               INIT   1
54349 @ 451534:               PUSHI  #0x000047f0
54350 @ 451539:               INIT   1
54351 @ 451542:               PUSHI  #0x00003008
54352 @ 451547:               INIT   1
54353 @ 451550:               PUSHI  #0x00000f78
54354 @ 451555:               INIT   1
54355 @ 451558:               PUSHI  #0x00000f72
54356 @ 451563:               INIT   1
54357 @ 451566:               PUSHI  #0xffffd500
54358 @ 451571:               INIT   1
54359 @ 451574:               PUSHI  #0x00006000
54360 @ 451579:               INIT   1
54361 @ 451582:               PUSHI  #0x00007851
54362 @ 451587:               INIT   1
54363 @ 451590:               PUSHI  #0x000047f0
54364 @ 451595:               INIT   1
54365 @ 451598:               PUSHI  #0x0000302c
54366 @ 451603:               INIT   1
54367 @ 451606:               PUSHI  #0x000007f3
54368 @ 451611:               INIT   1
54369 @ 451614:               PUSHI  #0x00000eda
54370 @ 451619:               INIT   1
54371 @ 451622:               PUSHI  #0x000047f0
54372 @ 451627:               INIT   1
54373 @ 451630:               PUSHI  #0x00003004
54374 @ 451635:               INIT   1
54375 @ 451638:               PUSHI  #0x00000f78
54376 @ 451643:               INIT   1
54377 @ 451646:               PUSHI  #0x000047f0
54378 @ 451651:               INIT   1
54379 @ 451654:               PUSHI  #0x00003008
54380 @ 451659:               INIT   1
54381 @ 451662:               PUSHI  #0x00000fac
54382 @ 451667:               INIT   1
54383 @ 451670:               PUSHI  #0x00000f82
54384 @ 451675:               INIT   1
54385 @ 451678:               PUSHI  #0xffffd500
54386 @ 451683:               INIT   1
54387 @ 451686:               PUSHI  #0x00006000
54388 @ 451691:               INIT   1
54389 @ 451694:               PUSHI  #0x000078fa
54390 @ 451699:               INIT   1
54391 @ 451702:               PUSHI  #0x00000f94
54392 @ 451707:               INIT   1
54393 @ 451710:               PUSHI  #0x000007f3
54394 @ 451715:               INIT   1
54395 @ 451718:               PUSHI  #0x00000b08
54396 @ 451723:               INIT   1
54397 @ 451726:               PUSHI  #0x000007f3
54398 @ 451731:               INIT   1
54399 @ 451734:               PUSHI  #0x00000d10
54400 @ 451739:               INIT   1
54401 @ 451742:               PUSHI  #0x000007f3
54402 @ 451747:               INIT   1
54403 @ 451750:               PUSHI  #0x00000d4c
54404 @ 451755:               INIT   1
54405 @ 451758:               PUSHI  #0x000047f0
54406 @ 451763:               INIT   1
54407 @ 451766:               PUSHI  #0x00003020
54408 @ 451771:               INIT   1
54409 @ 451774:               PUSHI  #0x00000fa6
54410 @ 451779:               INIT   1
54411 @ 451782:               PUSHI  #0x000007f3
54412 @ 451787:               INIT   1
54413 @ 451790:               PUSHI  #0x00000b1a
54414 @ 451795:               INIT   1
54415 @ 451798:               PUSHI  #0x000007f3
54416 @ 451803:               INIT   1
54417 @ 451806:               PUSHI  #0x00000d10
54418 @ 451811:               INIT   1
54419 @ 451814:               PUSHI  #0x000007f3
54420 @ 451819:               INIT   1
54421 @ 451822:               PUSHI  #0x00000d4c
54422 @ 451827:               INIT   1
54423 @ 451830:               PUSHI  #0x000047f0
54424 @ 451835:               INIT   1
54425 @ 451838:               PUSHI  #0x00003020
54426 @ 451843:               INIT   1
54427 @ 451846:               PUSHI  #0x00000fac
54428 @ 451851:               INIT   1
54429 @ 451854:               PUSHI  #0x000047f0
54430 @ 451859:               INIT   1
54431 @ 451862:               PUSHI  #0x00003020
54432 @ 451867:               INIT   1
54433 @ 451870:               PUSHI  #0x00000fd6
54434 @ 451875:               INIT   1
54435 @ 451878:               PUSHI  #0x00000fb6
54436 @ 451883:               INIT   1
54437 @ 451886:               PUSHI  #0xffffd504
54438 @ 451891:               INIT   1
54439 @ 451894:               PUSHI  #0x00006000
54440 @ 451899:               INIT   1
54441 @ 451902:               PUSHI  #0x00007932
54442 @ 451907:               INIT   1
54443 @ 451910:               PUSHI  #0x00000fbe
54444 @ 451915:               INIT   1
54445 @ 451918:               PUSHI  #0xffffd508
54446 @ 451923:               INIT   1
54447 @ 451926:               PUSHI  #0x00006000
54448 @ 451931:               INIT   1
54449 @ 451934:               PUSHI  #0x00007938
54450 @ 451939:               INIT   1
54451 @ 451942:               PUSHI  #0x00000fd6
54452 @ 451947:               INIT   1
54453 @ 451950:               PUSHI  #0xffffd503
54454 @ 451955:               INIT   1
54455 @ 451958:               PUSHI  #0x00006000
54456 @ 451963:               INIT   1
54457 @ 451966:               PUSHI  #0x00007942
54458 @ 451971:               INIT   1
54459 @ 451974:               PUSHI  #0x000047f0
54460 @ 451979:               INIT   1
54461 @ 451982:               PUSHI  #0x00003030
54462 @ 451987:               INIT   1
54463 @ 451990:               PUSHI  #0x000007f3
54464 @ 451995:               INIT   1
54465 @ 451998:               PUSHI  #0x0000142c
54466 @ 452003:               INIT   1
54467 @ 452006:               PUSHI  #0x000047f0
54468 @ 452011:               INIT   1
54469 @ 452014:               PUSHI  #0x00003034
54470 @ 452019:               INIT   1
54471 @ 452022:               PUSHI  #0x000007f3
54472 @ 452027:               INIT   1
54473 @ 452030:               PUSHI  #0x00001008
54474 @ 452035:               INIT   1
54475 @ 452038:               PUSHI  #0x00000ff4
54476 @ 452043:               INIT   1
54477 @ 452046:               PUSHI  #0x00000fe0
54478 @ 452051:               INIT   1
54479 @ 452054:               PUSHI  #0xffffd504
54480 @ 452059:               INIT   1
54481 @ 452062:               PUSHI  #0x00006000
54482 @ 452067:               INIT   1
54483 @ 452070:               PUSHI  #0x00007947
54484 @ 452075:               INIT   1
54485 @ 452078:               PUSHI  #0x00000fe8
54486 @ 452083:               INIT   1
54487 @ 452086:               PUSHI  #0xffffd508
54488 @ 452091:               INIT   1
54489 @ 452094:               PUSHI  #0x00006000
54490 @ 452099:               INIT   1
54491 @ 452102:               PUSHI  #0x0000794d
54492 @ 452107:               INIT   1
54493 @ 452110:               PUSHI  #0x00000ff4
54494 @ 452115:               INIT   1
54495 @ 452118:               PUSHI  #0xffffd503
54496 @ 452123:               INIT   1
54497 @ 452126:               PUSHI  #0x00006000
54498 @ 452131:               INIT   1
54499 @ 452134:               PUSHI  #0x00007942
54500 @ 452139:               INIT   1
54501 @ 452142:               PUSHI  #0x000007f3
54502 @ 452147:               INIT   1
54503 @ 452150:               PUSHI  #0x0000142c
54504 @ 452155:               INIT   1
54505 @ 452158:               PUSHI  #0x00001008
54506 @ 452163:               INIT   1
54507 @ 452166:               PUSHI  #0x00001002
54508 @ 452171:               INIT   1
54509 @ 452174:               PUSHI  #0xffffd502
54510 @ 452179:               INIT   1
54511 @ 452182:               PUSHI  #0x00006000
54512 @ 452187:               INIT   1
54513 @ 452190:               PUSHI  #0x000078ec
54514 @ 452195:               INIT   1
54515 @ 452198:               PUSHI  #0x000007f3
54516 @ 452203:               INIT   1
54517 @ 452206:               PUSHI  #0x0000142c
54518 @ 452211:               INIT   1
54519 @ 452214:               PUSHI  #0x00001008
54520 @ 452219:               INIT   1
54521 @ 452222:               PUSHI  #0x000047f0
54522 @ 452227:               INIT   1
54523 @ 452230:               PUSHI  #0x00003008
54524 @ 452235:               INIT   1
54525 @ 452238:               PUSHI  #0x00001024
54526 @ 452243:               INIT   1
54527 @ 452246:               PUSHI  #0x00001012
54528 @ 452251:               INIT   1
54529 @ 452254:               PUSHI  #0xffffd508
54530 @ 452259:               INIT   1
54531 @ 452262:               PUSHI  #0x00006000
54532 @ 452267:               INIT   1
54533 @ 452270:               PUSHI  #0x00007957
54534 @ 452275:               INIT   1
54535 @ 452278:               PUSHI  #0x0000101e
54536 @ 452283:               INIT   1
54537 @ 452286:               PUSHI  #0xffffd503
54538 @ 452291:               INIT   1
54539 @ 452294:               PUSHI  #0x00006000
54540 @ 452299:               INIT   1
54541 @ 452302:               PUSHI  #0x00007961
54542 @ 452307:               INIT   1
54543 @ 452310:               PUSHI  #0x000007f3
54544 @ 452315:               INIT   1
54545 @ 452318:               PUSHI  #0x0000142c
54546 @ 452323:               INIT   1
54547 @ 452326:               PUSHI  #0x00001024
54548 @ 452331:               INIT   1
54549 @ 452334:               PUSHI  #0x000047f0
54550 @ 452339:               INIT   1
54551 @ 452342:               PUSHI  #0x00003008
54552 @ 452347:               INIT   1
54553 @ 452350:               PUSHI  #0x00001038
54554 @ 452355:               INIT   1
54555 @ 452358:               PUSHI  #0x00001032
54556 @ 452363:               INIT   1
54557 @ 452366:               PUSHI  #0xffffd500
54558 @ 452371:               INIT   1
54559 @ 452374:               PUSHI  #0x00006000
54560 @ 452379:               INIT   1
54561 @ 452382:               PUSHI  #0x00007966
54562 @ 452387:               INIT   1
54563 @ 452390:               PUSHI  #0x000047f0
54564 @ 452395:               INIT   1
54565 @ 452398:               PUSHI  #0x0000300c
54566 @ 452403:               INIT   1
54567 @ 452406:               PUSHI  #0x00001038
54568 @ 452411:               INIT   1
54569 @ 452414:               PUSHI  #0x000047f0
54570 @ 452419:               INIT   1
54571 @ 452422:               PUSHI  #0x00003008
54572 @ 452427:               INIT   1
54573 @ 452430:               PUSHI  #0x00001054
54574 @ 452435:               INIT   1
54575 @ 452438:               PUSHI  #0x0000104e
54576 @ 452443:               INIT   1
54577 @ 452446:               PUSHI  #0xffffd500
54578 @ 452451:               INIT   1
54579 @ 452454:               PUSHI  #0x00006000
54580 @ 452459:               INIT   1
54581 @ 452462:               PUSHI  #0x00007966
54582 @ 452467:               INIT   1
54583 @ 452470:               PUSHI  #0x000047f0
54584 @ 452475:               INIT   1
54585 @ 452478:               PUSHI  #0x0000300c
54586 @ 452483:               INIT   1
54587 @ 452486:               PUSHI  #0x000007f3
54588 @ 452491:               INIT   1
54589 @ 452494:               PUSHI  #0x00000ac2
54590 @ 452499:               INIT   1
54591 @ 452502:               PUSHI  #0x000007f3
54592 @ 452507:               INIT   1
54593 @ 452510:               PUSHI  #0x00001038
54594 @ 452515:               INIT   1
54595 @ 452518:               PUSHI  #0x00001054
54596 @ 452523:               INIT   1
54597 @ 452526:               PUSHI  #0x000047f0
54598 @ 452531:               INIT   1
54599 @ 452534:               PUSHI  #0x00003008
54600 @ 452539:               INIT   1
54601 @ 452542:               PUSHI  #0x00001064
54602 @ 452547:               INIT   1
54603 @ 452550:               PUSHI  #0x0000105e
54604 @ 452555:               INIT   1
54605 @ 452558:               PUSHI  #0xffffd504
54606 @ 452563:               INIT   1
54607 @ 452566:               PUSHI  #0x00006000
54608 @ 452571:               INIT   1
54609 @ 452574:               PUSHI  #0x00007968
54610 @ 452579:               INIT   1
54611 @ 452582:               PUSHI  #0x00001064
54612 @ 452587:               INIT   1
54613 @ 452590:               PUSHI  #0x000047f0
54614 @ 452595:               INIT   1
54615 @ 452598:               PUSHI  #0x00003008
54616 @ 452603:               INIT   1
54617 @ 452606:               PUSHI  #0x0000108c
54618 @ 452611:               INIT   1
54619 @ 452614:               PUSHI  #0x0000106c
54620 @ 452619:               INIT   1
54621 @ 452622:               PUSHI  #0x000007f3
54622 @ 452627:               INIT   1
54623 @ 452630:               PUSHI  #0x00000eda
54624 @ 452635:               INIT   1
54625 @ 452638:               PUSHI  #0x0000108c
54626 @ 452643:               INIT   1
54627 @ 452646:               PUSHI  #0xffffd500
54628 @ 452651:               INIT   1
54629 @ 452654:               PUSHI  #0x00006000
54630 @ 452659:               INIT   1
54631 @ 452662:               PUSHI  #0x0000784b
54632 @ 452667:               INIT   1
54633 @ 452670:               PUSHI  #0x000007f3
54634 @ 452675:               INIT   1
54635 @ 452678:               PUSHI  #0x00000a94
54636 @ 452683:               INIT   1
54637 @ 452686:               PUSHI  #0xffffd500
54638 @ 452691:               INIT   1
54639 @ 452694:               PUSHI  #0x00006000
54640 @ 452699:               INIT   1
54641 @ 452702:               PUSHI  #0x000078fa
54642 @ 452707:               INIT   1
54643 @ 452710:               PUSHI  #0x000007f3
54644 @ 452715:               INIT   1
54645 @ 452718:               PUSHI  #0x00000a94
54646 @ 452723:               INIT   1
54647 @ 452726:               PUSHI  #0x000007f3
54648 @ 452731:               INIT   1
54649 @ 452734:               PUSHI  #0x00000dd8
54650 @ 452739:               INIT   1
54651 @ 452742:               PUSHI  #0xffffd500
54652 @ 452747:               INIT   1
54653 @ 452750:               PUSHI  #0x00006000
54654 @ 452755:               INIT   1
54655 @ 452758:               PUSHI  #0x0000784d
54656 @ 452763:               INIT   1
54657 @ 452766:               PUSHI  #0x000010a4
54658 @ 452771:               INIT   1
54659 @ 452774:               PUSHI  #0x0000109e
54660 @ 452779:               INIT   1
54661 @ 452782:               PUSHI  #0xffffd500
54662 @ 452787:               INIT   1
54663 @ 452790:               PUSHI  #0x00006000
54664 @ 452795:               INIT   1
54665 @ 452798:               PUSHI  #0x0000796e
54666 @ 452803:               INIT   1
54667 @ 452806:               PUSHI  #0x000047f0
54668 @ 452811:               INIT   1
54669 @ 452814:               PUSHI  #0x00003060
54670 @ 452819:               INIT   1
54671 @ 452822:               PUSHI  #0x000047f0
54672 @ 452827:               INIT   1
54673 @ 452830:               PUSHI  #0x00003014
54674 @ 452835:               INIT   1
54675 @ 452838:               PUSHI  #0x000010a4
54676 @ 452843:               INIT   1
54677 @ 452846:               PUSHI  #0x000047f0
54678 @ 452851:               INIT   1
54679 @ 452854:               PUSHI  #0x00003008
54680 @ 452859:               INIT   1
54681 @ 452862:               PUSHI  #0x000010c8
54682 @ 452867:               INIT   1
54683 @ 452870:               PUSHI  #0x000010b2
54684 @ 452875:               INIT   1
54685 @ 452878:               PUSHI  #0xffffd505
54686 @ 452883:               INIT   1
54687 @ 452886:               PUSHI  #0x00006000
54688 @ 452891:               INIT   1
54689 @ 452894:               PUSHI  #0x00007970
54690 @ 452899:               INIT   1
54691 @ 452902:               PUSHI  #0x000047f0
54692 @ 452907:               INIT   1
54693 @ 452910:               PUSHI  #0x0000305c
54694 @ 452915:               INIT   1
54695 @ 452918:               PUSHI  #0x000010ba
54696 @ 452923:               INIT   1
54697 @ 452926:               PUSHI  #0xffffd507
54698 @ 452931:               INIT   1
54699 @ 452934:               PUSHI  #0x00006000
54700 @ 452939:               INIT   1
54701 @ 452942:               PUSHI  #0x00007911
54702 @ 452947:               INIT   1
54703 @ 452950:               PUSHI  #0x000010c2
54704 @ 452955:               INIT   1
54705 @ 452958:               PUSHI  #0xffffd506
54706 @ 452963:               INIT   1
54707 @ 452966:               PUSHI  #0x00006000
54708 @ 452971:               INIT   1
54709 @ 452974:               PUSHI  #0x00007977
54710 @ 452979:               INIT   1
54711 @ 452982:               PUSHI  #0x000010c8
54712 @ 452987:               INIT   1
54713 @ 452990:               PUSHI  #0x000047f0
54714 @ 452995:               INIT   1
54715 @ 452998:               PUSHI  #0x00003008
54716 @ 453003:               INIT   1
54717 @ 453006:               PUSHI  #0x000010fc
54718 @ 453011:               INIT   1
54719 @ 453014:               PUSHI  #0x000010f6
54720 @ 453019:               INIT   1
54721 @ 453022:               PUSHI  #0x000047f0
54722 @ 453027:               INIT   1
54723 @ 453030:               PUSHI  #0x0000300c
54724 @ 453035:               INIT   1
54725 @ 453038:               PUSHI  #0x000007f3
54726 @ 453043:               INIT   1
54727 @ 453046:               PUSHI  #0x00000ac2
54728 @ 453051:               INIT   1
54729 @ 453054:               PUSHI  #0x000007f3
54730 @ 453059:               INIT   1
54731 @ 453062:               PUSHI  #0x00001038
54732 @ 453067:               INIT   1
54733 @ 453070:               PUSHI  #0xffffd500
54734 @ 453075:               INIT   1
54735 @ 453078:               PUSHI  #0x00006000
54736 @ 453083:               INIT   1
54737 @ 453086:               PUSHI  #0x0000796e
54738 @ 453091:               INIT   1
54739 @ 453094:               PUSHI  #0x000007f3
54740 @ 453099:               INIT   1
54741 @ 453102:               PUSHI  #0x00000a94
54742 @ 453107:               INIT   1
54743 @ 453110:               PUSHI  #0xffffd500
54744 @ 453115:               INIT   1
54745 @ 453118:               PUSHI  #0x00006000
54746 @ 453123:               INIT   1
54747 @ 453126:               PUSHI  #0x00007851
54748 @ 453131:               INIT   1
54749 @ 453134:               PUSHI  #0x000007f3
54750 @ 453139:               INIT   1
54751 @ 453142:               PUSHI  #0x00000a94
54752 @ 453147:               INIT   1
54753 @ 453150:               PUSHI  #0xffffd500
54754 @ 453155:               INIT   1
54755 @ 453158:               PUSHI  #0x00006000
54756 @ 453163:               INIT   1
54757 @ 453166:               PUSHI  #0x00007851
54758 @ 453171:               INIT   1
54759 @ 453174:               PUSHI  #0x000007f3
54760 @ 453179:               INIT   1
54761 @ 453182:               PUSHI  #0x00000a94
54762 @ 453187:               INIT   1
54763 @ 453190:               PUSHI  #0x000010fc
54764 @ 453195:               INIT   1
54765 @ 453198:               PUSHI  #0x000047f0
54766 @ 453203:               INIT   1
54767 @ 453206:               PUSHI  #0x00003008
54768 @ 453211:               INIT   1
54769 @ 453214:               PUSHI  #0x0000115a
54770 @ 453219:               INIT   1
54771 @ 453222:               PUSHI  #0x00001108
54772 @ 453227:               INIT   1
54773 @ 453230:               PUSHI  #0x000007f3
54774 @ 453235:               INIT   1
54775 @ 453238:               PUSHI  #0x00000b3e
54776 @ 453243:               INIT   1
54777 @ 453246:               PUSHI  #0x000007f3
54778 @ 453251:               INIT   1
54779 @ 453254:               PUSHI  #0x00000e60
54780 @ 453259:               INIT   1
54781 @ 453262:               PUSHI  #0x00001128
54782 @ 453267:               INIT   1
54783 @ 453270:               PUSHI  #0xffffd505
54784 @ 453275:               INIT   1
54785 @ 453278:               PUSHI  #0x00006000
54786 @ 453283:               INIT   1
54787 @ 453286:               PUSHI  #0x000078a9
54788 @ 453291:               INIT   1
54789 @ 453294:               PUSHI  #0x000047f0
54790 @ 453299:               INIT   1
54791 @ 453302:               PUSHI  #0x0000302c
54792 @ 453307:               INIT   1
54793 @ 453310:               PUSHI  #0xffffd500
54794 @ 453315:               INIT   1
54795 @ 453318:               PUSHI  #0x00006000
54796 @ 453323:               INIT   1
54797 @ 453326:               PUSHI  #0x0000784b
54798 @ 453331:               INIT   1
54799 @ 453334:               PUSHI  #0x000047f0
54800 @ 453339:               INIT   1
54801 @ 453342:               PUSHI  #0x0000300c
54802 @ 453347:               INIT   1
54803 @ 453350:               PUSHI  #0xffffd500
54804 @ 453355:               INIT   1
54805 @ 453358:               PUSHI  #0x00006000
54806 @ 453363:               INIT   1
54807 @ 453366:               PUSHI  #0x0000784d
54808 @ 453371:               INIT   1
54809 @ 453374:               PUSHI  #0x000047f0
54810 @ 453379:               INIT   1
54811 @ 453382:               PUSHI  #0x00003020
54812 @ 453387:               INIT   1
54813 @ 453390:               PUSHI  #0x0000115a
54814 @ 453395:               INIT   1
54815 @ 453398:               PUSHI  #0xffffd505
54816 @ 453403:               INIT   1
54817 @ 453406:               PUSHI  #0x00006000
54818 @ 453411:               INIT   1
54819 @ 453414:               PUSHI  #0x000078a9
54820 @ 453419:               INIT   1
54821 @ 453422:               PUSHI  #0xffffd504
54822 @ 453427:               INIT   1
54823 @ 453430:               PUSHI  #0x00006000
54824 @ 453435:               INIT   1
54825 @ 453438:               PUSHI  #0x000078b0
54826 @ 453443:               INIT   1
54827 @ 453446:               PUSHI  #0x000047f0
54828 @ 453451:               INIT   1
54829 @ 453454:               PUSHI  #0x00003030
54830 @ 453459:               INIT   1
54831 @ 453462:               PUSHI  #0x000047f0
54832 @ 453467:               INIT   1
54833 @ 453470:               PUSHI  #0x0000300c
54834 @ 453475:               INIT   1
54835 @ 453478:               PUSHI  #0x000007f3
54836 @ 453483:               INIT   1
54837 @ 453486:               PUSHI  #0x00000eda
54838 @ 453491:               INIT   1
54839 @ 453494:               PUSHI  #0x000047f0
54840 @ 453499:               INIT   1
54841 @ 453502:               PUSHI  #0x00003034
54842 @ 453507:               INIT   1
54843 @ 453510:               PUSHI  #0xffffd500
54844 @ 453515:               INIT   1
54845 @ 453518:               PUSHI  #0x00006000
54846 @ 453523:               INIT   1
54847 @ 453526:               PUSHI  #0x0000784b
54848 @ 453531:               INIT   1
54849 @ 453534:               PUSHI  #0x000047f0
54850 @ 453539:               INIT   1
54851 @ 453542:               PUSHI  #0x0000300c
54852 @ 453547:               INIT   1
54853 @ 453550:               PUSHI  #0xffffd500
54854 @ 453555:               INIT   1
54855 @ 453558:               PUSHI  #0x00006000
54856 @ 453563:               INIT   1
54857 @ 453566:               PUSHI  #0x0000784d
54858 @ 453571:               INIT   1
54859 @ 453574:               PUSHI  #0x000047f0
54860 @ 453579:               INIT   1
54861 @ 453582:               PUSHI  #0x00003020
54862 @ 453587:               INIT   1
54863 @ 453590:               PUSHI  #0x00001172
54864 @ 453595:               INIT   1
54865 @ 453598:               PUSHI  #0x0000116c
54866 @ 453603:               INIT   1
54867 @ 453606:               PUSHI  #0xffffd500
54868 @ 453611:               INIT   1
54869 @ 453614:               PUSHI  #0x00006000
54870 @ 453619:               INIT   1
54871 @ 453622:               PUSHI  #0x00007851
54872 @ 453627:               INIT   1
54873 @ 453630:               PUSHI  #0x000007f3
54874 @ 453635:               INIT   1
54875 @ 453638:               PUSHI  #0x00001172
54876 @ 453643:               INIT   1
54877 @ 453646:               PUSHI  #0x000047f0
54878 @ 453651:               INIT   1
54879 @ 453654:               PUSHI  #0x00003004
54880 @ 453659:               INIT   1
54881 @ 453662:               PUSHI  #0x00001172
54882 @ 453667:               INIT   1
54883 @ 453670:               PUSHI  #0x000047f0
54884 @ 453675:               INIT   1
54885 @ 453678:               PUSHI  #0x00003008
54886 @ 453683:               INIT   1
54887 @ 453686:               PUSHI  #0x000011fe
54888 @ 453691:               INIT   1
54889 @ 453694:               PUSHI  #0x00001182
54890 @ 453699:               INIT   1
54891 @ 453702:               PUSHI  #0x000007f3
54892 @ 453707:               INIT   1
54893 @ 453710:               PUSHI  #0x00000b3e
54894 @ 453715:               INIT   1
54895 @ 453718:               PUSHI  #0x000007f3
54896 @ 453723:               INIT   1
54897 @ 453726:               PUSHI  #0x00000c1c
54898 @ 453731:               INIT   1
54899 @ 453734:               PUSHI  #0x000047f0
54900 @ 453739:               INIT   1
54901 @ 453742:               PUSHI  #0x0000302c
54902 @ 453747:               INIT   1
54903 @ 453750:               PUSHI  #0x0000119a
54904 @ 453755:               INIT   1
54905 @ 453758:               PUSHI  #0x000007f3
54906 @ 453763:               INIT   1
54907 @ 453766:               PUSHI  #0x00000b3e
54908 @ 453771:               INIT   1
54909 @ 453774:               PUSHI  #0xffffd504
54910 @ 453779:               INIT   1
54911 @ 453782:               PUSHI  #0x00006000
54912 @ 453787:               INIT   1
54913 @ 453790:               PUSHI  #0x000078b0
54914 @ 453795:               INIT   1
54915 @ 453798:               PUSHI  #0x000047f0
54916 @ 453803:               INIT   1
54917 @ 453806:               PUSHI  #0x0000302c
54918 @ 453811:               INIT   1
54919 @ 453814:               PUSHI  #0x000007f3
54920 @ 453819:               INIT   1
54921 @ 453822:               PUSHI  #0x00000eda
54922 @ 453827:               INIT   1
54923 @ 453830:               PUSHI  #0x000007f3
54924 @ 453835:               INIT   1
54925 @ 453838:               PUSHI  #0x00000f5c
54926 @ 453843:               INIT   1
54927 @ 453846:               PUSHI  #0x000011b0
54928 @ 453851:               INIT   1
54929 @ 453854:               PUSHI  #0xffffd505
54930 @ 453859:               INIT   1
54931 @ 453862:               PUSHI  #0x00006000
54932 @ 453867:               INIT   1
54933 @ 453870:               PUSHI  #0x000078a9
54934 @ 453875:               INIT   1
54935 @ 453878:               PUSHI  #0x000007f3
54936 @ 453883:               INIT   1
54937 @ 453886:               PUSHI  #0x00000bfc
54938 @ 453891:               INIT   1
54939 @ 453894:               PUSHI  #0xffffd503
54940 @ 453899:               INIT   1
54941 @ 453902:               PUSHI  #0x00006000
54942 @ 453907:               INIT   1
54943 @ 453910:               PUSHI  #0x000078a4
54944 @ 453915:               INIT   1
54945 @ 453918:               PUSHI  #0x000047f0
54946 @ 453923:               INIT   1
54947 @ 453926:               PUSHI  #0x0000302c
54948 @ 453931:               INIT   1
54949 @ 453934:               PUSHI  #0x000011cc
54950 @ 453939:               INIT   1
54951 @ 453942:               PUSHI  #0xffffd505
54952 @ 453947:               INIT   1
54953 @ 453950:               PUSHI  #0x00006000
54954 @ 453955:               INIT   1
54955 @ 453958:               PUSHI  #0x000078a9
54956 @ 453963:               INIT   1
54957 @ 453966:               PUSHI  #0x000047f0
54958 @ 453971:               INIT   1
54959 @ 453974:               PUSHI  #0x0000302c
54960 @ 453979:               INIT   1
54961 @ 453982:               PUSHI  #0xffffd500
54962 @ 453987:               INIT   1
54963 @ 453990:               PUSHI  #0x00006000
54964 @ 453995:               INIT   1
54965 @ 453998:               PUSHI  #0x0000784b
54966 @ 454003:               INIT   1
54967 @ 454006:               PUSHI  #0x000047f0
54968 @ 454011:               INIT   1
54969 @ 454014:               PUSHI  #0x0000300c
54970 @ 454019:               INIT   1
54971 @ 454022:               PUSHI  #0xffffd500
54972 @ 454027:               INIT   1
54973 @ 454030:               PUSHI  #0x00006000
54974 @ 454035:               INIT   1
54975 @ 454038:               PUSHI  #0x0000784d
54976 @ 454043:               INIT   1
54977 @ 454046:               PUSHI  #0x000011fe
54978 @ 454051:               INIT   1
54979 @ 454054:               PUSHI  #0xffffd505
54980 @ 454059:               INIT   1
54981 @ 454062:               PUSHI  #0x00006000
54982 @ 454067:               INIT   1
54983 @ 454070:               PUSHI  #0x000078a9
54984 @ 454075:               INIT   1
54985 @ 454078:               PUSHI  #0xffffd504
54986 @ 454083:               INIT   1
54987 @ 454086:               PUSHI  #0x00006000
54988 @ 454091:               INIT   1
54989 @ 454094:               PUSHI  #0x000078b0
54990 @ 454099:               INIT   1
54991 @ 454102:               PUSHI  #0x000047f0
54992 @ 454107:               INIT   1
54993 @ 454110:               PUSHI  #0x00003030
54994 @ 454115:               INIT   1
54995 @ 454118:               PUSHI  #0x000047f0
54996 @ 454123:               INIT   1
54997 @ 454126:               PUSHI  #0x0000302c
54998 @ 454131:               INIT   1
54999 @ 454134:               PUSHI  #0x000007f3
55000 @ 454139:               INIT   1
55001 @ 454142:               PUSHI  #0x00000eda
55002 @ 454147:               INIT   1
55003 @ 454150:               PUSHI  #0x000007f3
55004 @ 454155:               INIT   1
55005 @ 454158:               PUSHI  #0x00000f5c
55006 @ 454163:               INIT   1
55007 @ 454166:               PUSHI  #0x000047f0
55008 @ 454171:               INIT   1
55009 @ 454174:               PUSHI  #0x00003034
55010 @ 454179:               INIT   1
55011 @ 454182:               PUSHI  #0xffffd500
55012 @ 454187:               INIT   1
55013 @ 454190:               PUSHI  #0x00006000
55014 @ 454195:               INIT   1
55015 @ 454198:               PUSHI  #0x0000784b
55016 @ 454203:               INIT   1
55017 @ 454206:               PUSHI  #0x000047f0
55018 @ 454211:               INIT   1
55019 @ 454214:               PUSHI  #0x0000300c
55020 @ 454219:               INIT   1
55021 @ 454222:               PUSHI  #0xffffd500
55022 @ 454227:               INIT   1
55023 @ 454230:               PUSHI  #0x00006000
55024 @ 454235:               INIT   1
55025 @ 454238:               PUSHI  #0x0000784d
55026 @ 454243:               INIT   1
55027 @ 454246:               PUSHI  #0x00001228
55028 @ 454251:               INIT   1
55029 @ 454254:               PUSHI  #0x0000120a
55030 @ 454259:               INIT   1
55031 @ 454262:               PUSHI  #0x000047f0
55032 @ 454267:               INIT   1
55033 @ 454270:               PUSHI  #0x0000300c
55034 @ 454275:               INIT   1
55035 @ 454278:               PUSHI  #0x000007f3
55036 @ 454283:               INIT   1
55037 @ 454286:               PUSHI  #0x0000136e
55038 @ 454291:               INIT   1
55039 @ 454294:               PUSHI  #0x0000121c
55040 @ 454299:               INIT   1
55041 @ 454302:               PUSHI  #0xffffd500
55042 @ 454307:               INIT   1
55043 @ 454310:               PUSHI  #0x00006000
55044 @ 454315:               INIT   1
55045 @ 454318:               PUSHI  #0x0000797f
55046 @ 454323:               INIT   1
55047 @ 454326:               PUSHI  #0x000007f3
55048 @ 454331:               INIT   1
55049 @ 454334:               PUSHI  #0x00000bdc
55050 @ 454339:               INIT   1
55051 @ 454342:               PUSHI  #0xffffd500
55052 @ 454347:               INIT   1
55053 @ 454350:               PUSHI  #0x00006000
55054 @ 454355:               INIT   1
55055 @ 454358:               PUSHI  #0x00007981
55056 @ 454363:               INIT   1
55057 @ 454366:               PUSHI  #0x00001228
55058 @ 454371:               INIT   1
55059 @ 454374:               PUSHI  #0xffffd500
55060 @ 454379:               INIT   1
55061 @ 454382:               PUSHI  #0x00006000
55062 @ 454387:               INIT   1
55063 @ 454390:               PUSHI  #0x00007983
55064 @ 454395:               INIT   1
55065 @ 454398:               PUSHI  #0x000007f3
55066 @ 454403:               INIT   1
55067 @ 454406:               PUSHI  #0x0000136e
55068 @ 454411:               INIT   1
55069 @ 454414:               PUSHI  #0x00001260
55070 @ 454419:               INIT   1
55071 @ 454422:               PUSHI  #0x0000124a
55072 @ 454427:               INIT   1
55073 @ 454430:               PUSHI  #0x000047f0
55074 @ 454435:               INIT   1
55075 @ 454438:               PUSHI  #0x0000301c
55076 @ 454443:               INIT   1
55077 @ 454446:               PUSHI  #0xffffd500
55078 @ 454451:               INIT   1
55079 @ 454454:               PUSHI  #0x00006000
55080 @ 454459:               INIT   1
55081 @ 454462:               PUSHI  #0x0000784b
55082 @ 454467:               INIT   1
55083 @ 454470:               PUSHI  #0x000047f0
55084 @ 454475:               INIT   1
55085 @ 454478:               PUSHI  #0x0000301c
55086 @ 454483:               INIT   1
55087 @ 454486:               PUSHI  #0xffffd500
55088 @ 454491:               INIT   1
55089 @ 454494:               PUSHI  #0x00006000
55090 @ 454499:               INIT   1
55091 @ 454502:               PUSHI  #0x00007851
55092 @ 454507:               INIT   1
55093 @ 454510:               PUSHI  #0x000047f0
55094 @ 454515:               INIT   1
55095 @ 454518:               PUSHI  #0x0000301c
55096 @ 454523:               INIT   1
55097 @ 454526:               PUSHI  #0xffffd500
55098 @ 454531:               INIT   1
55099 @ 454534:               PUSHI  #0x00006000
55100 @ 454539:               INIT   1
55101 @ 454542:               PUSHI  #0x0000784d
55102 @ 454547:               INIT   1
55103 @ 454550:               PUSHI  #0x00001260
55104 @ 454555:               INIT   1
55105 @ 454558:               PUSHI  #0x000007f3
55106 @ 454563:               INIT   1
55107 @ 454566:               PUSHI  #0x000011fe
55108 @ 454571:               INIT   1
55109 @ 454574:               PUSHI  #0xffffd500
55110 @ 454579:               INIT   1
55111 @ 454582:               PUSHI  #0x00006000
55112 @ 454587:               INIT   1
55113 @ 454590:               PUSHI  #0x0000784b
55114 @ 454595:               INIT   1
55115 @ 454598:               PUSHI  #0x000047f0
55116 @ 454603:               INIT   1
55117 @ 454606:               PUSHI  #0x0000301c
55118 @ 454611:               INIT   1
55119 @ 454614:               PUSHI  #0xffffd500
55120 @ 454619:               INIT   1
55121 @ 454622:               PUSHI  #0x00006000
55122 @ 454627:               INIT   1
55123 @ 454630:               PUSHI  #0x0000784d
55124 @ 454635:               INIT   1
55125 @ 454638:               PUSHI  #0x00001276
55126 @ 454643:               INIT   1
55127 @ 454646:               PUSHI  #0x0000126c
55128 @ 454651:               INIT   1
55129 @ 454654:               PUSHI  #0x000007f3
55130 @ 454659:               INIT   1
55131 @ 454662:               PUSHI  #0x000011fe
55132 @ 454667:               INIT   1
55133 @ 454670:               PUSHI  #0x000007f3
55134 @ 454675:               INIT   1
55135 @ 454678:               PUSHI  #0x000013f2
55136 @ 454683:               INIT   1
55137 @ 454686:               PUSHI  #0x00001276
55138 @ 454691:               INIT   1
55139 @ 454694:               PUSHI  #0x000047f0
55140 @ 454699:               INIT   1
55141 @ 454702:               PUSHI  #0x0000301c
55142 @ 454707:               INIT   1
55143 @ 454710:               PUSHI  #0x000007f3
55144 @ 454715:               INIT   1
55145 @ 454718:               PUSHI  #0x00001276
55146 @ 454723:               INIT   1
55147 @ 454726:               PUSHI  #0x000012ac
55148 @ 454731:               INIT   1
55149 @ 454734:               PUSHI  #0x00001294
55150 @ 454739:               INIT   1
55151 @ 454742:               PUSHI  #0xffffd500
55152 @ 454747:               INIT   1
55153 @ 454750:               PUSHI  #0x00006000
55154 @ 454755:               INIT   1
55155 @ 454758:               PUSHI  #0x0000784b
55156 @ 454763:               INIT   1
55157 @ 454766:               PUSHI  #0x000047f0
55158 @ 454771:               INIT   1
55159 @ 454774:               PUSHI  #0x0000301c
55160 @ 454779:               INIT   1
55161 @ 454782:               PUSHI  #0xffffd500
55162 @ 454787:               INIT   1
55163 @ 454790:               PUSHI  #0x00006000
55164 @ 454795:               INIT   1
55165 @ 454798:               PUSHI  #0x00007851
55166 @ 454803:               INIT   1
55167 @ 454806:               PUSHI  #0x000047f0
55168 @ 454811:               INIT   1
55169 @ 454814:               PUSHI  #0x0000301c
55170 @ 454819:               INIT   1
55171 @ 454822:               PUSHI  #0xffffd500
55172 @ 454827:               INIT   1
55173 @ 454830:               PUSHI  #0x00006000
55174 @ 454835:               INIT   1
55175 @ 454838:               PUSHI  #0x0000784d
55176 @ 454843:               INIT   1
55177 @ 454846:               PUSHI  #0x000012a6
55178 @ 454851:               INIT   1
55179 @ 454854:               PUSHI  #0xffffd500
55180 @ 454859:               INIT   1
55181 @ 454862:               PUSHI  #0x00006000
55182 @ 454867:               INIT   1
55183 @ 454870:               PUSHI  #0x0000784b
55184 @ 454875:               INIT   1
55185 @ 454878:               PUSHI  #0x000047f0
55186 @ 454883:               INIT   1
55187 @ 454886:               PUSHI  #0x0000301c
55188 @ 454891:               INIT   1
55189 @ 454894:               PUSHI  #0xffffd500
55190 @ 454899:               INIT   1
55191 @ 454902:               PUSHI  #0x00006000
55192 @ 454907:               INIT   1
55193 @ 454910:               PUSHI  #0x0000784d
55194 @ 454915:               INIT   1
55195 @ 454918:               PUSHI  #0x000012ac
55196 @ 454923:               INIT   1
55197 @ 454926:               PUSHI  #0x000047f0
55198 @ 454931:               INIT   1
55199 @ 454934:               PUSHI  #0x00003008
55200 @ 454939:               INIT   1
55201 @ 454942:               PUSHI  #0x000012c0
55202 @ 454947:               INIT   1
55203 @ 454950:               PUSHI  #0x000012ba
55204 @ 454955:               INIT   1
55205 @ 454958:               PUSHI  #0xffffd500
55206 @ 454963:               INIT   1
55207 @ 454966:               PUSHI  #0x00006000
55208 @ 454971:               INIT   1
55209 @ 454974:               PUSHI  #0x00007851
55210 @ 454979:               INIT   1
55211 @ 454982:               PUSHI  #0x000047f0
55212 @ 454987:               INIT   1
55213 @ 454990:               PUSHI  #0x00003010
55214 @ 454995:               INIT   1
55215 @ 454998:               PUSHI  #0x000012c0
55216 @ 455003:               INIT   1
55217 @ 455006:               PUSHI  #0x000047f0
55218 @ 455011:               INIT   1
55219 @ 455014:               PUSHI  #0x00003008
55220 @ 455019:               INIT   1
55221 @ 455022:               PUSHI  #0x000012d2
55222 @ 455027:               INIT   1
55223 @ 455030:               PUSHI  #0x000012c8
55224 @ 455035:               INIT   1
55225 @ 455038:               PUSHI  #0x000007f3
55226 @ 455043:               INIT   1
55227 @ 455046:               PUSHI  #0x000011fe
55228 @ 455051:               INIT   1
55229 @ 455054:               PUSHI  #0x000012d2
55230 @ 455059:               INIT   1
55231 @ 455062:               PUSHI  #0x000047f0
55232 @ 455067:               INIT   1
55233 @ 455070:               PUSHI  #0x0000301c
55234 @ 455075:               INIT   1
55235 @ 455078:               PUSHI  #0x000007f3
55236 @ 455083:               INIT   1
55237 @ 455086:               PUSHI  #0x000013f2
55238 @ 455091:               INIT   1
55239 @ 455094:               PUSHI  #0x0000136e
55240 @ 455099:               INIT   1
55241 @ 455102:               PUSHI  #0x000012e8
55242 @ 455107:               INIT   1
55243 @ 455110:               PUSHI  #0x000047f0
55244 @ 455115:               INIT   1
55245 @ 455118:               PUSHI  #0x00003038
55246 @ 455123:               INIT   1
55247 @ 455126:               PUSHI  #0x000047f0
55248 @ 455131:               INIT   1
55249 @ 455134:               PUSHI  #0x0000301c
55250 @ 455139:               INIT   1
55251 @ 455142:               PUSHI  #0xffffd500
55252 @ 455147:               INIT   1
55253 @ 455150:               PUSHI  #0x00006000
55254 @ 455155:               INIT   1
55255 @ 455158:               PUSHI  #0x00007851
55256 @ 455163:               INIT   1
55257 @ 455166:               PUSHI  #0x000047f0
55258 @ 455171:               INIT   1
55259 @ 455174:               PUSHI  #0x0000301c
55260 @ 455179:               INIT   1
55261 @ 455182:               PUSHI  #0x000012fc
55262 @ 455187:               INIT   1
55263 @ 455190:               PUSHI  #0x000047f0
55264 @ 455195:               INIT   1
55265 @ 455198:               PUSHI  #0x0000303c
55266 @ 455203:               INIT   1
55267 @ 455206:               PUSHI  #0x000047f0
55268 @ 455211:               INIT   1
55269 @ 455214:               PUSHI  #0x0000301c
55270 @ 455219:               INIT   1
55271 @ 455222:               PUSHI  #0xffffd500
55272 @ 455227:               INIT   1
55273 @ 455230:               PUSHI  #0x00006000
55274 @ 455235:               INIT   1
55275 @ 455238:               PUSHI  #0x00007851
55276 @ 455243:               INIT   1
55277 @ 455246:               PUSHI  #0x000007f3
55278 @ 455251:               INIT   1
55279 @ 455254:               PUSHI  #0x00001260
55280 @ 455259:               INIT   1
55281 @ 455262:               PUSHI  #0x0000131a
55282 @ 455267:               INIT   1
55283 @ 455270:               PUSHI  #0x000047f0
55284 @ 455275:               INIT   1
55285 @ 455278:               PUSHI  #0x00003040
55286 @ 455283:               INIT   1
55287 @ 455286:               PUSHI  #0x000047f0
55288 @ 455291:               INIT   1
55289 @ 455294:               PUSHI  #0x0000301c
55290 @ 455299:               INIT   1
55291 @ 455302:               PUSHI  #0xffffd500
55292 @ 455307:               INIT   1
55293 @ 455310:               PUSHI  #0x00006000
55294 @ 455315:               INIT   1
55295 @ 455318:               PUSHI  #0x00007851
55296 @ 455323:               INIT   1
55297 @ 455326:               PUSHI  #0x000047f0
55298 @ 455331:               INIT   1
55299 @ 455334:               PUSHI  #0x0000301c
55300 @ 455339:               INIT   1
55301 @ 455342:               PUSHI  #0xffffd500
55302 @ 455347:               INIT   1
55303 @ 455350:               PUSHI  #0x00006000
55304 @ 455355:               INIT   1
55305 @ 455358:               PUSHI  #0x00007851
55306 @ 455363:               INIT   1
55307 @ 455366:               PUSHI  #0x000007f3
55308 @ 455371:               INIT   1
55309 @ 455374:               PUSHI  #0x000012c0
55310 @ 455379:               INIT   1
55311 @ 455382:               PUSHI  #0x00001328
55312 @ 455387:               INIT   1
55313 @ 455390:               PUSHI  #0x000047f0
55314 @ 455395:               INIT   1
55315 @ 455398:               PUSHI  #0x00003044
55316 @ 455403:               INIT   1
55317 @ 455406:               PUSHI  #0x000007f3
55318 @ 455411:               INIT   1
55319 @ 455414:               PUSHI  #0x000012c0
55320 @ 455419:               INIT   1
55321 @ 455422:               PUSHI  #0x000007f3
55322 @ 455427:               INIT   1
55323 @ 455430:               PUSHI  #0x000012ac
55324 @ 455435:               INIT   1
55325 @ 455438:               PUSHI  #0x0000133c
55326 @ 455443:               INIT   1
55327 @ 455446:               PUSHI  #0x000047f0
55328 @ 455451:               INIT   1
55329 @ 455454:               PUSHI  #0x00003048
55330 @ 455459:               INIT   1
55331 @ 455462:               PUSHI  #0x000047f0
55332 @ 455467:               INIT   1
55333 @ 455470:               PUSHI  #0x0000301c
55334 @ 455475:               INIT   1
55335 @ 455478:               PUSHI  #0xffffd500
55336 @ 455483:               INIT   1
55337 @ 455486:               PUSHI  #0x00006000
55338 @ 455491:               INIT   1
55339 @ 455494:               PUSHI  #0x00007851
55340 @ 455499:               INIT   1
55341 @ 455502:               PUSHI  #0x000007f3
55342 @ 455507:               INIT   1
55343 @ 455510:               PUSHI  #0x000012c0
55344 @ 455515:               INIT   1
55345 @ 455518:               PUSHI  #0x00001350
55346 @ 455523:               INIT   1
55347 @ 455526:               PUSHI  #0x000047f0
55348 @ 455531:               INIT   1
55349 @ 455534:               PUSHI  #0x0000304c
55350 @ 455539:               INIT   1
55351 @ 455542:               PUSHI  #0x000007f3
55352 @ 455547:               INIT   1
55353 @ 455550:               PUSHI  #0x00001228
55354 @ 455555:               INIT   1
55355 @ 455558:               PUSHI  #0xffffd500
55356 @ 455563:               INIT   1
55357 @ 455566:               PUSHI  #0x00006000
55358 @ 455571:               INIT   1
55359 @ 455574:               PUSHI  #0x00007851
55360 @ 455579:               INIT   1
55361 @ 455582:               PUSHI  #0x000007f3
55362 @ 455587:               INIT   1
55363 @ 455590:               PUSHI  #0x000012c0
55364 @ 455595:               INIT   1
55365 @ 455598:               PUSHI  #0x00001364
55366 @ 455603:               INIT   1
55367 @ 455606:               PUSHI  #0x000047f0
55368 @ 455611:               INIT   1
55369 @ 455614:               PUSHI  #0x00003050
55370 @ 455619:               INIT   1
55371 @ 455622:               PUSHI  #0x000007f3
55372 @ 455627:               INIT   1
55373 @ 455630:               PUSHI  #0x00001228
55374 @ 455635:               INIT   1
55375 @ 455638:               PUSHI  #0xffffd500
55376 @ 455643:               INIT   1
55377 @ 455646:               PUSHI  #0x00006000
55378 @ 455651:               INIT   1
55379 @ 455654:               PUSHI  #0x00007851
55380 @ 455659:               INIT   1
55381 @ 455662:               PUSHI  #0x000007f3
55382 @ 455667:               INIT   1
55383 @ 455670:               PUSHI  #0x00001228
55384 @ 455675:               INIT   1
55385 @ 455678:               PUSHI  #0x0000136e
55386 @ 455683:               INIT   1
55387 @ 455686:               PUSHI  #0x000047f0
55388 @ 455691:               INIT   1
55389 @ 455694:               PUSHI  #0x00003054
55390 @ 455699:               INIT   1
55391 @ 455702:               PUSHI  #0x000047f0
55392 @ 455707:               INIT   1
55393 @ 455710:               PUSHI  #0x0000301c
55394 @ 455715:               INIT   1
55395 @ 455718:               PUSHI  #0x0000138e
55396 @ 455723:               INIT   1
55397 @ 455726:               PUSHI  #0x0000137c
55398 @ 455731:               INIT   1
55399 @ 455734:               PUSHI  #0xffffd500
55400 @ 455739:               INIT   1
55401 @ 455742:               PUSHI  #0x00006000
55402 @ 455747:               INIT   1
55403 @ 455750:               PUSHI  #0x00007847
55404 @ 455755:               INIT   1
55405 @ 455758:               PUSHI  #0x000047f0
55406 @ 455763:               INIT   1
55407 @ 455766:               PUSHI  #0x0000301c
55408 @ 455771:               INIT   1
55409 @ 455774:               PUSHI  #0x00001388
55410 @ 455779:               INIT   1
55411 @ 455782:               PUSHI  #0xffffd500
55412 @ 455787:               INIT   1
55413 @ 455790:               PUSHI  #0x00006000
55414 @ 455795:               INIT   1
55415 @ 455798:               PUSHI  #0x00007849
55416 @ 455803:               INIT   1
55417 @ 455806:               PUSHI  #0x000047f0
55418 @ 455811:               INIT   1
55419 @ 455814:               PUSHI  #0x0000301c
55420 @ 455819:               INIT   1
55421 @ 455822:               PUSHI  #0x0000138e
55422 @ 455827:               INIT   1
55423 @ 455830:               PUSHI  #0x000047f0
55424 @ 455835:               INIT   1
55425 @ 455838:               PUSHI  #0x00003008
55426 @ 455843:               INIT   1
55427 @ 455846:               PUSHI  #0x000013f2
55428 @ 455851:               INIT   1
55429 @ 455854:               PUSHI  #0x000013b2
55430 @ 455859:               INIT   1
55431 @ 455862:               PUSHI  #0xffffd500
55432 @ 455867:               INIT   1
55433 @ 455870:               PUSHI  #0x00006000
55434 @ 455875:               INIT   1
55435 @ 455878:               PUSHI  #0x00007983
55436 @ 455883:               INIT   1
55437 @ 455886:               PUSHI  #0x000047f0
55438 @ 455891:               INIT   1
55439 @ 455894:               PUSHI  #0x0000301c
55440 @ 455899:               INIT   1
55441 @ 455902:               PUSHI  #0xffffd500
55442 @ 455907:               INIT   1
55443 @ 455910:               PUSHI  #0x00006000
55444 @ 455915:               INIT   1
55445 @ 455918:               PUSHI  #0x00007851
55446 @ 455923:               INIT   1
55447 @ 455926:               PUSHI  #0x000007f3
55448 @ 455931:               INIT   1
55449 @ 455934:               PUSHI  #0x0000141c
55450 @ 455939:               INIT   1
55451 @ 455942:               PUSHI  #0x000047f0
55452 @ 455947:               INIT   1
55453 @ 455950:               PUSHI  #0x0000300c
55454 @ 455955:               INIT   1
55455 @ 455958:               PUSHI  #0x000007f3
55456 @ 455963:               INIT   1
55457 @ 455966:               PUSHI  #0x00000ac2
55458 @ 455971:               INIT   1
55459 @ 455974:               PUSHI  #0x000007f3
55460 @ 455979:               INIT   1
55461 @ 455982:               PUSHI  #0x00001038
55462 @ 455987:               INIT   1
55463 @ 455990:               PUSHI  #0x000013c4
55464 @ 455995:               INIT   1
55465 @ 455998:               PUSHI  #0xffffd501
55466 @ 456003:               INIT   1
55467 @ 456006:               PUSHI  #0x00006000
55468 @ 456011:               INIT   1
55469 @ 456014:               PUSHI  #0x0000792a
55470 @ 456019:               INIT   1
55471 @ 456022:               PUSHI  #0xffffd500
55472 @ 456027:               INIT   1
55473 @ 456030:               PUSHI  #0x00006000
55474 @ 456035:               INIT   1
55475 @ 456038:               PUSHI  #0x00007985
55476 @ 456043:               INIT   1
55477 @ 456046:               PUSHI  #0x000047f0
55478 @ 456051:               INIT   1
55479 @ 456054:               PUSHI  #0x0000301c
55480 @ 456059:               INIT   1
55481 @ 456062:               PUSHI  #0x000013ce
55482 @ 456067:               INIT   1
55483 @ 456070:               PUSHI  #0x000047f0
55484 @ 456075:               INIT   1
55485 @ 456078:               PUSHI  #0x00003058
55486 @ 456083:               INIT   1
55487 @ 456086:               PUSHI  #0x000007f3
55488 @ 456091:               INIT   1
55489 @ 456094:               PUSHI  #0x000012d2
55490 @ 456099:               INIT   1
55491 @ 456102:               PUSHI  #0x000013da
55492 @ 456107:               INIT   1
55493 @ 456110:               PUSHI  #0xffffd503
55494 @ 456115:               INIT   1
55495 @ 456118:               PUSHI  #0x00006000
55496 @ 456123:               INIT   1
55497 @ 456126:               PUSHI  #0x00007987
55498 @ 456131:               INIT   1
55499 @ 456134:               PUSHI  #0x000047f0
55500 @ 456139:               INIT   1
55501 @ 456142:               PUSHI  #0x00003010
55502 @ 456147:               INIT   1
55503 @ 456150:               PUSHI  #0x000013e6
55504 @ 456155:               INIT   1
55505 @ 456158:               PUSHI  #0xffffd506
55506 @ 456163:               INIT   1
55507 @ 456166:               PUSHI  #0x00006000
55508 @ 456171:               INIT   1
55509 @ 456174:               PUSHI  #0x0000798c
55510 @ 456179:               INIT   1
55511 @ 456182:               PUSHI  #0x000047f0
55512 @ 456187:               INIT   1
55513 @ 456190:               PUSHI  #0x0000301c
55514 @ 456195:               INIT   1
55515 @ 456198:               PUSHI  #0x000013f2
55516 @ 456203:               INIT   1
55517 @ 456206:               PUSHI  #0xffffd503
55518 @ 456211:               INIT   1
55519 @ 456214:               PUSHI  #0x00006000
55520 @ 456219:               INIT   1
55521 @ 456222:               PUSHI  #0x00007994
55522 @ 456227:               INIT   1
55523 @ 456230:               PUSHI  #0x000047f0
55524 @ 456235:               INIT   1
55525 @ 456238:               PUSHI  #0x0000301c
55526 @ 456243:               INIT   1
55527 @ 456246:               PUSHI  #0x0000140c
55528 @ 456251:               INIT   1
55529 @ 456254:               PUSHI  #0x00001406
55530 @ 456259:               INIT   1
55531 @ 456262:               PUSHI  #0xffffd500
55532 @ 456267:               INIT   1
55533 @ 456270:               PUSHI  #0x00006000
55534 @ 456275:               INIT   1
55535 @ 456278:               PUSHI  #0x0000784b
55536 @ 456283:               INIT   1
55537 @ 456286:               PUSHI  #0x000047f0
55538 @ 456291:               INIT   1
55539 @ 456294:               PUSHI  #0x0000301c
55540 @ 456299:               INIT   1
55541 @ 456302:               PUSHI  #0xffffd500
55542 @ 456307:               INIT   1
55543 @ 456310:               PUSHI  #0x00006000
55544 @ 456315:               INIT   1
55545 @ 456318:               PUSHI  #0x0000784d
55546 @ 456323:               INIT   1
55547 @ 456326:               PUSHI  #0x0000140c
55548 @ 456331:               INIT   1
55549 @ 456334:               PUSHI  #0x000047f0
55550 @ 456339:               INIT   1
55551 @ 456342:               PUSHI  #0x00003008
55552 @ 456347:               INIT   1
55553 @ 456350:               PUSHI  #0x0000141c
55554 @ 456355:               INIT   1
55555 @ 456358:               PUSHI  #0x00001416
55556 @ 456363:               INIT   1
55557 @ 456366:               PUSHI  #0xffffd500
55558 @ 456371:               INIT   1
55559 @ 456374:               PUSHI  #0x00006000
55560 @ 456379:               INIT   1
55561 @ 456382:               PUSHI  #0x0000796e
55562 @ 456387:               INIT   1
55563 @ 456390:               PUSHI  #0x0000141c
55564 @ 456395:               INIT   1
55565 @ 456398:               PUSHI  #0x000047f0
55566 @ 456403:               INIT   1
55567 @ 456406:               PUSHI  #0x00003008
55568 @ 456411:               INIT   1
55569 @ 456414:               PUSHI  #0x0000142c
55570 @ 456419:               INIT   1
55571 @ 456422:               PUSHI  #0x00001426
55572 @ 456427:               INIT   1
55573 @ 456430:               PUSHI  #0xffffd500
55574 @ 456435:               INIT   1
55575 @ 456438:               PUSHI  #0x00006000
55576 @ 456443:               INIT   1
55577 @ 456446:               PUSHI  #0x00007999
55578 @ 456451:               INIT   1
55579 @ 456454:               PUSHI  #0x0000142c
55580 @ 456459:               INIT   1
55581 @ 456462:               PUSHI  #0x000047f0
55582 @ 456467:               INIT   1
55583 @ 456470:               PUSHI  #0x00003008
55584 @ 456475:               INIT   1
55585 @ 456478:               PUSHI  #0x0000149c
55586 @ 456483:               INIT   1
55587 @ 456486:               PUSHI  #0x0000144c
55588 @ 456491:               INIT   1
55589 @ 456494:               PUSHI  #0x000047f0
55590 @ 456499:               INIT   1
55591 @ 456502:               PUSHI  #0x00003030
55592 @ 456507:               INIT   1
55593 @ 456510:               PUSHI  #0x000047f0
55594 @ 456515:               INIT   1
55595 @ 456518:               PUSHI  #0x0000300c
55596 @ 456523:               INIT   1
55597 @ 456526:               PUSHI  #0x000007f3
55598 @ 456531:               INIT   1
55599 @ 456534:               PUSHI  #0x00000ac2
55600 @ 456539:               INIT   1
55601 @ 456542:               PUSHI  #0x000007f3
55602 @ 456547:               INIT   1
55603 @ 456550:               PUSHI  #0x00001038
55604 @ 456555:               INIT   1
55605 @ 456558:               PUSHI  #0x000047f0
55606 @ 456563:               INIT   1
55607 @ 456566:               PUSHI  #0x00003034
55608 @ 456571:               INIT   1
55609 @ 456574:               PUSHI  #0x000007f3
55610 @ 456579:               INIT   1
55611 @ 456582:               PUSHI  #0x00000da4
55612 @ 456587:               INIT   1
55613 @ 456590:               PUSHI  #0x000007f3
55614 @ 456595:               INIT   1
55615 @ 456598:               PUSHI  #0x00000ff4
55616 @ 456603:               INIT   1
55617 @ 456606:               PUSHI  #0x00001458
55618 @ 456611:               INIT   1
55619 @ 456614:               PUSHI  #0xffffd501
55620 @ 456619:               INIT   1
55621 @ 456622:               PUSHI  #0x00006000
55622 @ 456627:               INIT   1
55623 @ 456630:               PUSHI  #0x0000792a
55624 @ 456635:               INIT   1
55625 @ 456638:               PUSHI  #0x000007f3
55626 @ 456643:               INIT   1
55627 @ 456646:               PUSHI  #0x00000bea
55628 @ 456651:               INIT   1
55629 @ 456654:               PUSHI  #0x00001468
55630 @ 456659:               INIT   1
55631 @ 456662:               PUSHI  #0xffffd508
55632 @ 456667:               INIT   1
55633 @ 456670:               PUSHI  #0x00006000
55634 @ 456675:               INIT   1
55635 @ 456678:               PUSHI  #0x0000799b
55636 @ 456683:               INIT   1
55637 @ 456686:               PUSHI  #0x000047f0
55638 @ 456691:               INIT   1
55639 @ 456694:               PUSHI  #0x00003028
55640 @ 456699:               INIT   1
55641 @ 456702:               PUSHI  #0x000007f3
55642 @ 456707:               INIT   1
55643 @ 456710:               PUSHI  #0x00000ff4
55644 @ 456715:               INIT   1
55645 @ 456718:               PUSHI  #0x00001470
55646 @ 456723:               INIT   1
55647 @ 456726:               PUSHI  #0xffffd505
55648 @ 456731:               INIT   1
55649 @ 456734:               PUSHI  #0x00006000
55650 @ 456739:               INIT   1
55651 @ 456742:               PUSHI  #0x000079a5
55652 @ 456747:               INIT   1
55653 @ 456750:               PUSHI  #0x00001480
55654 @ 456755:               INIT   1
55655 @ 456758:               PUSHI  #0xffffd505
55656 @ 456763:               INIT   1
55657 @ 456766:               PUSHI  #0x00006000
55658 @ 456771:               INIT   1
55659 @ 456774:               PUSHI  #0x000079ac
55660 @ 456779:               INIT   1
55661 @ 456782:               PUSHI  #0x000047f0
55662 @ 456787:               INIT   1
55663 @ 456790:               PUSHI  #0x00003068
55664 @ 456795:               INIT   1
55665 @ 456798:               PUSHI  #0x000007f3
55666 @ 456803:               INIT   1
55667 @ 456806:               PUSHI  #0x00000a94
55668 @ 456811:               INIT   1
55669 @ 456814:               PUSHI  #0x0000148c
55670 @ 456819:               INIT   1
55671 @ 456822:               PUSHI  #0xffffd506
55672 @ 456827:               INIT   1
55673 @ 456830:               PUSHI  #0x00006000
55674 @ 456835:               INIT   1
55675 @ 456838:               PUSHI  #0x000079b3
55676 @ 456843:               INIT   1
55677 @ 456846:               PUSHI  #0x000007f3
55678 @ 456851:               INIT   1
55679 @ 456854:               PUSHI  #0x00000f46
55680 @ 456859:               INIT   1
55681 @ 456862:               PUSHI  #0x00001494
55682 @ 456867:               INIT   1
55683 @ 456870:               PUSHI  #0xffffd503
55684 @ 456875:               INIT   1
55685 @ 456878:               PUSHI  #0x00006000
55686 @ 456883:               INIT   1
55687 @ 456886:               PUSHI  #0x0000792d
55688 @ 456891:               INIT   1
55689 @ 456894:               PUSHI  #0x0000149c
55690 @ 456899:               INIT   1
55691 @ 456902:               PUSHI  #0xffffd503
55692 @ 456907:               INIT   1
55693 @ 456910:               PUSHI  #0x00006000
55694 @ 456915:               INIT   1
55695 @ 456918:               PUSHI  #0x000079bb
55696 @ 456923:               INIT   1
55697 @ 456926:               PUSHI  #0x000016aa
55698 @ 456931:               INIT   1
55699 @ 456934:               PUSHI  #0x000014b0
55700 @ 456939:               INIT   1
55701 @ 456942:               PUSHI  #0x000047f0
55702 @ 456947:               INIT   1
55703 @ 456950:               PUSHI  #0x00003030
55704 @ 456955:               INIT   1
55705 @ 456958:               PUSHI  #0x000007f3
55706 @ 456963:               INIT   1
55707 @ 456966:               PUSHI  #0x0000142c
55708 @ 456971:               INIT   1
55709 @ 456974:               PUSHI  #0x000047f0
55710 @ 456979:               INIT   1
55711 @ 456982:               PUSHI  #0x00003034
55712 @ 456987:               INIT   1
55713 @ 456990:               PUSHI  #0x000007f3
55714 @ 456995:               INIT   1
55715 @ 456998:               PUSHI  #0x00000f78
55716 @ 457003:               INIT   1
55717 @ 457006:               PUSHI  #0x000014c0
55718 @ 457011:               INIT   1
55719 @ 457014:               PUSHI  #0xffffd504
55720 @ 457019:               INIT   1
55721 @ 457022:               PUSHI  #0x00006000
55722 @ 457027:               INIT   1
55723 @ 457030:               PUSHI  #0x00007947
55724 @ 457035:               INIT   1
55725 @ 457038:               PUSHI  #0x000007f3
55726 @ 457043:               INIT   1
55727 @ 457046:               PUSHI  #0x000010c8
55728 @ 457051:               INIT   1
55729 @ 457054:               PUSHI  #0x000047f0
55730 @ 457059:               INIT   1
55731 @ 457062:               PUSHI  #0x00003020
55732 @ 457067:               INIT   1
55733 @ 457070:               PUSHI  #0x000014cc
55734 @ 457075:               INIT   1
55735 @ 457078:               PUSHI  #0xffffd505
55736 @ 457083:               INIT   1
55737 @ 457086:               PUSHI  #0x00006000
55738 @ 457091:               INIT   1
55739 @ 457094:               PUSHI  #0x000079c0
55740 @ 457099:               INIT   1
55741 @ 457102:               PUSHI  #0x000047f0
55742 @ 457107:               INIT   1
55743 @ 457110:               PUSHI  #0x00003020
55744 @ 457115:               INIT   1
55745 @ 457118:               PUSHI  #0x000014d8
55746 @ 457123:               INIT   1
55747 @ 457126:               PUSHI  #0x000047f0
55748 @ 457131:               INIT   1
55749 @ 457134:               PUSHI  #0x0000301c
55750 @ 457139:               INIT   1
55751 @ 457142:               PUSHI  #0xffffd500
55752 @ 457147:               INIT   1
55753 @ 457150:               PUSHI  #0x00006000
55754 @ 457155:               INIT   1
55755 @ 457158:               PUSHI  #0x000078fa
55756 @ 457163:               INIT   1
55757 @ 457166:               PUSHI  #0x000014f6
55758 @ 457171:               INIT   1
55759 @ 457174:               PUSHI  #0x000007f3
55760 @ 457179:               INIT   1
55761 @ 457182:               PUSHI  #0x00000b08
55762 @ 457187:               INIT   1
55763 @ 457190:               PUSHI  #0x000047f0
55764 @ 457195:               INIT   1
55765 @ 457198:               PUSHI  #0x00003030
55766 @ 457203:               INIT   1
55767 @ 457206:               PUSHI  #0x000007f3
55768 @ 457211:               INIT   1
55769 @ 457214:               PUSHI  #0x00000d10
55770 @ 457219:               INIT   1
55771 @ 457222:               PUSHI  #0x000007f3
55772 @ 457227:               INIT   1
55773 @ 457230:               PUSHI  #0x00000d4c
55774 @ 457235:               INIT   1
55775 @ 457238:               PUSHI  #0x000047f0
55776 @ 457243:               INIT   1
55777 @ 457246:               PUSHI  #0x00003034
55778 @ 457251:               INIT   1
55779 @ 457254:               PUSHI  #0x000007f3
55780 @ 457259:               INIT   1
55781 @ 457262:               PUSHI  #0x00000fac
55782 @ 457267:               INIT   1
55783 @ 457270:               PUSHI  #0x000047f0
55784 @ 457275:               INIT   1
55785 @ 457278:               PUSHI  #0x00003020
55786 @ 457283:               INIT   1
55787 @ 457286:               PUSHI  #0x00001514
55788 @ 457291:               INIT   1
55789 @ 457294:               PUSHI  #0x000007f3
55790 @ 457299:               INIT   1
55791 @ 457302:               PUSHI  #0x00000b1a
55792 @ 457307:               INIT   1
55793 @ 457310:               PUSHI  #0x000047f0
55794 @ 457315:               INIT   1
55795 @ 457318:               PUSHI  #0x00003030
55796 @ 457323:               INIT   1
55797 @ 457326:               PUSHI  #0x000007f3
55798 @ 457331:               INIT   1
55799 @ 457334:               PUSHI  #0x00000d10
55800 @ 457339:               INIT   1
55801 @ 457342:               PUSHI  #0x000007f3
55802 @ 457347:               INIT   1
55803 @ 457350:               PUSHI  #0x00000d4c
55804 @ 457355:               INIT   1
55805 @ 457358:               PUSHI  #0x000047f0
55806 @ 457363:               INIT   1
55807 @ 457366:               PUSHI  #0x00003034
55808 @ 457371:               INIT   1
55809 @ 457374:               PUSHI  #0x000007f3
55810 @ 457379:               INIT   1
55811 @ 457382:               PUSHI  #0x00000fd6
55812 @ 457387:               INIT   1
55813 @ 457390:               PUSHI  #0x000047f0
55814 @ 457395:               INIT   1
55815 @ 457398:               PUSHI  #0x00003020
55816 @ 457403:               INIT   1
55817 @ 457406:               PUSHI  #0x00001522
55818 @ 457411:               INIT   1
55819 @ 457414:               PUSHI  #0x000007f3
55820 @ 457419:               INIT   1
55821 @ 457422:               PUSHI  #0x00000b3e
55822 @ 457427:               INIT   1
55823 @ 457430:               PUSHI  #0x000007f3
55824 @ 457435:               INIT   1
55825 @ 457438:               PUSHI  #0x00000e20
55826 @ 457443:               INIT   1
55827 @ 457446:               PUSHI  #0x000047f0
55828 @ 457451:               INIT   1
55829 @ 457454:               PUSHI  #0x00003020
55830 @ 457459:               INIT   1
55831 @ 457462:               PUSHI  #0x00001532
55832 @ 457467:               INIT   1
55833 @ 457470:               PUSHI  #0xffffd502
55834 @ 457475:               INIT   1
55835 @ 457478:               PUSHI  #0x00006000
55836 @ 457483:               INIT   1
55837 @ 457486:               PUSHI  #0x000079c7
55838 @ 457491:               INIT   1
55839 @ 457494:               PUSHI  #0x000007f3
55840 @ 457499:               INIT   1
55841 @ 457502:               PUSHI  #0x00000c70
55842 @ 457507:               INIT   1
55843 @ 457510:               PUSHI  #0x000047f0
55844 @ 457515:               INIT   1
55845 @ 457518:               PUSHI  #0x00003020
55846 @ 457523:               INIT   1
55847 @ 457526:               PUSHI  #0x00001554
55848 @ 457531:               INIT   1
55849 @ 457534:               PUSHI  #0x000047f0
55850 @ 457539:               INIT   1
55851 @ 457542:               PUSHI  #0x00003030
55852 @ 457547:               INIT   1
55853 @ 457550:               PUSHI  #0x000007f3
55854 @ 457555:               INIT   1
55855 @ 457558:               PUSHI  #0x000010a4
55856 @ 457563:               INIT   1
55857 @ 457566:               PUSHI  #0x000007f3
55858 @ 457571:               INIT   1
55859 @ 457574:               PUSHI  #0x00000b86
55860 @ 457579:               INIT   1
55861 @ 457582:               PUSHI  #0x000047f0
55862 @ 457587:               INIT   1
55863 @ 457590:               PUSHI  #0x00003034
55864 @ 457595:               INIT   1
55865 @ 457598:               PUSHI  #0x000007f3
55866 @ 457603:               INIT   1
55867 @ 457606:               PUSHI  #0x00000db6
55868 @ 457611:               INIT   1
55869 @ 457614:               PUSHI  #0x000047f0
55870 @ 457619:               INIT   1
55871 @ 457622:               PUSHI  #0x0000300c
55872 @ 457627:               INIT   1
55873 @ 457630:               PUSHI  #0x000007f3
55874 @ 457635:               INIT   1
55875 @ 457638:               PUSHI  #0x00000c34
55876 @ 457643:               INIT   1
55877 @ 457646:               PUSHI  #0x000047f0
55878 @ 457651:               INIT   1
55879 @ 457654:               PUSHI  #0x00003020
55880 @ 457659:               INIT   1
55881 @ 457662:               PUSHI  #0x0000155e
55882 @ 457667:               INIT   1
55883 @ 457670:               PUSHI  #0x000007f3
55884 @ 457675:               INIT   1
55885 @ 457678:               PUSHI  #0x00000b2c
55886 @ 457683:               INIT   1
55887 @ 457686:               PUSHI  #0x000047f0
55888 @ 457691:               INIT   1
55889 @ 457694:               PUSHI  #0x00003024
55890 @ 457699:               INIT   1
55891 @ 457702:               PUSHI  #0x0000156e
55892 @ 457707:               INIT   1
55893 @ 457710:               PUSHI  #0xffffd504
55894 @ 457715:               INIT   1
55895 @ 457718:               PUSHI  #0x00006000
55896 @ 457723:               INIT   1
55897 @ 457726:               PUSHI  #0x000079cb
55898 @ 457731:               INIT   1
55899 @ 457734:               PUSHI  #0x000007f3
55900 @ 457739:               INIT   1
55901 @ 457742:               PUSHI  #0x00000dc6
55902 @ 457747:               INIT   1
55903 @ 457750:               PUSHI  #0x000047f0
55904 @ 457755:               INIT   1
55905 @ 457758:               PUSHI  #0x00003020
55906 @ 457763:               INIT   1
55907 @ 457766:               PUSHI  #0x0000157a
55908 @ 457771:               INIT   1
55909 @ 457774:               PUSHI  #0xffffd504
55910 @ 457779:               INIT   1
55911 @ 457782:               PUSHI  #0x00006000
55912 @ 457787:               INIT   1
55913 @ 457790:               PUSHI  #0x000079d1
55914 @ 457795:               INIT   1
55915 @ 457798:               PUSHI  #0x000047f0
55916 @ 457803:               INIT   1
55917 @ 457806:               PUSHI  #0x00003020
55918 @ 457811:               INIT   1
55919 @ 457814:               PUSHI  #0x0000158a
55920 @ 457819:               INIT   1
55921 @ 457822:               PUSHI  #0xffffd504
55922 @ 457827:               INIT   1
55923 @ 457830:               PUSHI  #0x00006000
55924 @ 457835:               INIT   1
55925 @ 457838:               PUSHI  #0x000079d7
55926 @ 457843:               INIT   1
55927 @ 457846:               PUSHI  #0x000007f3
55928 @ 457851:               INIT   1
55929 @ 457854:               PUSHI  #0x00000f18
55930 @ 457859:               INIT   1
55931 @ 457862:               PUSHI  #0x000047f0
55932 @ 457867:               INIT   1
55933 @ 457870:               PUSHI  #0x00003020
55934 @ 457875:               INIT   1
55935 @ 457878:               PUSHI  #0x0000159a
55936 @ 457883:               INIT   1
55937 @ 457886:               PUSHI  #0xffffd505
55938 @ 457891:               INIT   1
55939 @ 457894:               PUSHI  #0x00006000
55940 @ 457899:               INIT   1
55941 @ 457902:               PUSHI  #0x000079dd
55942 @ 457907:               INIT   1
55943 @ 457910:               PUSHI  #0x000007f3
55944 @ 457915:               INIT   1
55945 @ 457918:               PUSHI  #0x00001008
55946 @ 457923:               INIT   1
55947 @ 457926:               PUSHI  #0x000047f0
55948 @ 457931:               INIT   1
55949 @ 457934:               PUSHI  #0x00003020
55950 @ 457939:               INIT   1
55951 @ 457942:               PUSHI  #0x000015b2
55952 @ 457947:               INIT   1
55953 @ 457950:               PUSHI  #0xffffd505
55954 @ 457955:               INIT   1
55955 @ 457958:               PUSHI  #0x00006000
55956 @ 457963:               INIT   1
55957 @ 457966:               PUSHI  #0x000079e4
55958 @ 457971:               INIT   1
55959 @ 457974:               PUSHI  #0x000047f0
55960 @ 457979:               INIT   1
55961 @ 457982:               PUSHI  #0x0000302c
55962 @ 457987:               INIT   1
55963 @ 457990:               PUSHI  #0x000007f3
55964 @ 457995:               INIT   1
55965 @ 457998:               PUSHI  #0x00000eda
55966 @ 458003:               INIT   1
55967 @ 458006:               PUSHI  #0x000007f3
55968 @ 458011:               INIT   1
55969 @ 458014:               PUSHI  #0x00000f5c
55970 @ 458019:               INIT   1
55971 @ 458022:               PUSHI  #0x000047f0
55972 @ 458027:               INIT   1
55973 @ 458030:               PUSHI  #0x00003020
55974 @ 458035:               INIT   1
55975 @ 458038:               PUSHI  #0x000015be
55976 @ 458043:               INIT   1
55977 @ 458046:               PUSHI  #0xffffd503
55978 @ 458051:               INIT   1
55979 @ 458054:               PUSHI  #0x00006000
55980 @ 458059:               INIT   1
55981 @ 458062:               PUSHI  #0x000079eb
55982 @ 458067:               INIT   1
55983 @ 458070:               PUSHI  #0x000047f0
55984 @ 458075:               INIT   1
55985 @ 458078:               PUSHI  #0x00003020
55986 @ 458083:               INIT   1
55987 @ 458086:               PUSHI  #0x000015c8
55988 @ 458091:               INIT   1
55989 @ 458094:               PUSHI  #0x000007f3
55990 @ 458099:               INIT   1
55991 @ 458102:               PUSHI  #0x00000eb8
55992 @ 458107:               INIT   1
55993 @ 458110:               PUSHI  #0x000007f3
55994 @ 458115:               INIT   1
55995 @ 458118:               PUSHI  #0x000010fc
55996 @ 458123:               INIT   1
55997 @ 458126:               PUSHI  #0x000015dc
55998 @ 458131:               INIT   1
55999 @ 458134:               PUSHI  #0xffffd503
56000 @ 458139:               INIT   1
56001 @ 458142:               PUSHI  #0x00006000
56002 @ 458147:               INIT   1
56003 @ 458150:               PUSHI  #0x000078e7
56004 @ 458155:               INIT   1
56005 @ 458158:               PUSHI  #0x000047f0
56006 @ 458163:               INIT   1
56007 @ 458166:               PUSHI  #0x0000300c
56008 @ 458171:               INIT   1
56009 @ 458174:               PUSHI  #0x000007f3
56010 @ 458179:               INIT   1
56011 @ 458182:               PUSHI  #0x00000c34
56012 @ 458187:               INIT   1
56013 @ 458190:               PUSHI  #0x000047f0
56014 @ 458195:               INIT   1
56015 @ 458198:               PUSHI  #0x00003020
56016 @ 458203:               INIT   1
56017 @ 458206:               PUSHI  #0x000015f2
56018 @ 458211:               INIT   1
56019 @ 458214:               PUSHI  #0xffffd506
56020 @ 458219:               INIT   1
56021 @ 458222:               PUSHI  #0x00006000
56022 @ 458227:               INIT   1
56023 @ 458230:               PUSHI  #0x000079f0
56024 @ 458235:               INIT   1
56025 @ 458238:               PUSHI  #0xffffd503
56026 @ 458243:               INIT   1
56027 @ 458246:               PUSHI  #0x00006000
56028 @ 458251:               INIT   1
56029 @ 458254:               PUSHI  #0x000078a4
56030 @ 458259:               INIT   1
56031 @ 458262:               PUSHI  #0x000047f0
56032 @ 458267:               INIT   1
56033 @ 458270:               PUSHI  #0x0000300c
56034 @ 458275:               INIT   1
56035 @ 458278:               PUSHI  #0x000047f0
56036 @ 458283:               INIT   1
56037 @ 458286:               PUSHI  #0x00003020
56038 @ 458291:               INIT   1
56039 @ 458294:               PUSHI  #0x00001608
56040 @ 458299:               INIT   1
56041 @ 458302:               PUSHI  #0xffffd506
56042 @ 458307:               INIT   1
56043 @ 458310:               PUSHI  #0x00006000
56044 @ 458315:               INIT   1
56045 @ 458318:               PUSHI  #0x000079f8
56046 @ 458323:               INIT   1
56047 @ 458326:               PUSHI  #0xffffd506
56048 @ 458331:               INIT   1
56049 @ 458334:               PUSHI  #0x00006000
56050 @ 458339:               INIT   1
56051 @ 458342:               PUSHI  #0x00007a00
56052 @ 458347:               INIT   1
56053 @ 458350:               PUSHI  #0x000047f0
56054 @ 458355:               INIT   1
56055 @ 458358:               PUSHI  #0x0000305c
56056 @ 458363:               INIT   1
56057 @ 458366:               PUSHI  #0x000047f0
56058 @ 458371:               INIT   1
56059 @ 458374:               PUSHI  #0x00003020
56060 @ 458379:               INIT   1
56061 @ 458382:               PUSHI  #0x00001620
56062 @ 458387:               INIT   1
56063 @ 458390:               PUSHI  #0xffffd507
56064 @ 458395:               INIT   1
56065 @ 458398:               PUSHI  #0x00006000
56066 @ 458403:               INIT   1
56067 @ 458406:               PUSHI  #0x00007a08
56068 @ 458411:               INIT   1
56069 @ 458414:               PUSHI  #0x000047f0
56070 @ 458419:               INIT   1
56071 @ 458422:               PUSHI  #0x0000305c
56072 @ 458427:               INIT   1
56073 @ 458430:               PUSHI  #0x000047f0
56074 @ 458435:               INIT   1
56075 @ 458438:               PUSHI  #0x0000300c
56076 @ 458443:               INIT   1
56077 @ 458446:               PUSHI  #0x000007f3
56078 @ 458451:               INIT   1
56079 @ 458454:               PUSHI  #0x000013f2
56080 @ 458459:               INIT   1
56081 @ 458462:               PUSHI  #0x000047f0
56082 @ 458467:               INIT   1
56083 @ 458470:               PUSHI  #0x00003020
56084 @ 458475:               INIT   1
56085 @ 458478:               PUSHI  #0x0000162c
56086 @ 458483:               INIT   1
56087 @ 458486:               PUSHI  #0xffffd504
56088 @ 458491:               INIT   1
56089 @ 458494:               PUSHI  #0x00006000
56090 @ 458499:               INIT   1
56091 @ 458502:               PUSHI  #0x00007a11
56092 @ 458507:               INIT   1
56093 @ 458510:               PUSHI  #0x000047f0
56094 @ 458515:               INIT   1
56095 @ 458518:               PUSHI  #0x00003020
56096 @ 458523:               INIT   1
56097 @ 458526:               PUSHI  #0x0000163e
56098 @ 458531:               INIT   1
56099 @ 458534:               PUSHI  #0xffffd504
56100 @ 458539:               INIT   1
56101 @ 458542:               PUSHI  #0x00006000
56102 @ 458547:               INIT   1
56103 @ 458550:               PUSHI  #0x00007883
56104 @ 458555:               INIT   1
56105 @ 458558:               PUSHI  #0xffffd506
56106 @ 458563:               INIT   1
56107 @ 458566:               PUSHI  #0x00006000
56108 @ 458571:               INIT   1
56109 @ 458574:               PUSHI  #0x00007895
56110 @ 458579:               INIT   1
56111 @ 458582:               PUSHI  #0x000047f0
56112 @ 458587:               INIT   1
56113 @ 458590:               PUSHI  #0x00003020
56114 @ 458595:               INIT   1
56115 @ 458598:               PUSHI  #0x00001652
56116 @ 458603:               INIT   1
56117 @ 458606:               PUSHI  #0xffffd500
56118 @ 458611:               INIT   1
56119 @ 458614:               PUSHI  #0x00006000
56120 @ 458619:               INIT   1
56121 @ 458622:               PUSHI  #0x00007983
56122 @ 458627:               INIT   1
56123 @ 458630:               PUSHI  #0x000047f0
56124 @ 458635:               INIT   1
56125 @ 458638:               PUSHI  #0x0000305c
56126 @ 458643:               INIT   1
56127 @ 458646:               PUSHI  #0x000007f3
56128 @ 458651:               INIT   1
56129 @ 458654:               PUSHI  #0x0000138e
56130 @ 458659:               INIT   1
56131 @ 458662:               PUSHI  #0x000047f0
56132 @ 458667:               INIT   1
56133 @ 458670:               PUSHI  #0x00003020
56134 @ 458675:               INIT   1
56135 @ 458678:               PUSHI  #0x00001662
56136 @ 458683:               INIT   1
56137 @ 458686:               PUSHI  #0xffffd506
56138 @ 458691:               INIT   1
56139 @ 458694:               PUSHI  #0x00006000
56140 @ 458699:               INIT   1
56141 @ 458702:               PUSHI  #0x00007a17
56142 @ 458707:               INIT   1
56143 @ 458710:               PUSHI  #0x000047f0
56144 @ 458715:               INIT   1
56145 @ 458718:               PUSHI  #0x00003014
56146 @ 458723:               INIT   1
56147 @ 458726:               PUSHI  #0x000047f0
56148 @ 458731:               INIT   1
56149 @ 458734:               PUSHI  #0x00003020
56150 @ 458739:               INIT   1
56151 @ 458742:               PUSHI  #0x00001676
56152 @ 458747:               INIT   1
56153 @ 458750:               PUSHI  #0xffffd505
56154 @ 458755:               INIT   1
56155 @ 458758:               PUSHI  #0x00006000
56156 @ 458763:               INIT   1
56157 @ 458766:               PUSHI  #0x00007a1f
56158 @ 458771:               INIT   1
56159 @ 458774:               PUSHI  #0x000047f0
56160 @ 458779:               INIT   1
56161 @ 458782:               PUSHI  #0x0000305c
56162 @ 458787:               INIT   1
56163 @ 458790:               PUSHI  #0x000007f3
56164 @ 458795:               INIT   1
56165 @ 458798:               PUSHI  #0x00000dfa
56166 @ 458803:               INIT   1
56167 @ 458806:               PUSHI  #0x000047f0
56168 @ 458811:               INIT   1
56169 @ 458814:               PUSHI  #0x00003020
56170 @ 458819:               INIT   1
56171 @ 458822:               PUSHI  #0x00001686
56172 @ 458827:               INIT   1
56173 @ 458830:               PUSHI  #0xffffd505
56174 @ 458835:               INIT   1
56175 @ 458838:               PUSHI  #0x00006000
56176 @ 458843:               INIT   1
56177 @ 458846:               PUSHI  #0x000078a9
56178 @ 458851:               INIT   1
56179 @ 458854:               PUSHI  #0x000007f3
56180 @ 458859:               INIT   1
56181 @ 458862:               PUSHI  #0x00000ca8
56182 @ 458867:               INIT   1
56183 @ 458870:               PUSHI  #0x000047f0
56184 @ 458875:               INIT   1
56185 @ 458878:               PUSHI  #0x00003020
56186 @ 458883:               INIT   1
56187 @ 458886:               PUSHI  #0x000016a4
56188 @ 458891:               INIT   1
56189 @ 458894:               PUSHI  #0xffffd501
56190 @ 458899:               INIT   1
56191 @ 458902:               PUSHI  #0x00006000
56192 @ 458907:               INIT   1
56193 @ 458910:               PUSHI  #0x00007a26
56194 @ 458915:               INIT   1
56195 @ 458918:               PUSHI  #0x000007f3
56196 @ 458923:               INIT   1
56197 @ 458926:               PUSHI  #0x00001054
56198 @ 458931:               INIT   1
56199 @ 458934:               PUSHI  #0x000047f0
56200 @ 458939:               INIT   1
56201 @ 458942:               PUSHI  #0x0000301c
56202 @ 458947:               INIT   1
56203 @ 458950:               PUSHI  #0x000007f3
56204 @ 458955:               INIT   1
56205 @ 458958:               PUSHI  #0x00000f00
56206 @ 458963:               INIT   1
56207 @ 458966:               PUSHI  #0xffffd504
56208 @ 458971:               INIT   1
56209 @ 458974:               PUSHI  #0x00006000
56210 @ 458979:               INIT   1
56211 @ 458982:               PUSHI  #0x00007932
56212 @ 458987:               INIT   1
56213 @ 458990:               PUSHI  #0x000047f0
56214 @ 458995:               INIT   1
56215 @ 458998:               PUSHI  #0x00003020
56216 @ 459003:               INIT   1
56217 @ 459006:               PUSHI  #0x000016aa
56218 @ 459011:               INIT   1
56219 @ 459014:               PUSHI  #0x000047f0
56220 @ 459019:               INIT   1
56221 @ 459022:               PUSHI  #0x00003020
56222 @ 459027:               INIT   1

  9284  %CONSTSHORTINTEGERARRAY SALT(0: 29)= 5802,
  9285   5278, 5296, 5312, 5324, 5336, 5366, 5396, 5410, 5426, 5460,
  9286   5470, 5486, 5498, 5514, 5530, 5554, 5566, 5576, 5596, 5618,
  9287   5640, 5664, 5676, 5694, 5714, 5730, 5750, 5766, 5796;
56223 @ 459030:               LINE   9284 "regression-compile-tmp/imp918s.imp"
56224 @ 459068:               PUSHI  #0x00000000
56225 @ 459073:               PUSHI  #0x0000001d
56226 @ 459078:               BOUNDS
56227 @ 459079:               DEF    SALT p1=V_016c a/tf=1b b/format=3 c/ostate=112  type=1 (integer) form=11 (array) special=2 (short-integer) linkage=2 (constant) spec=0 indirect=1 unass=0
56228 @ 459095:               PUSHI  #0x000016aa
56229 @ 459100:               INIT   1
56230 @ 459103:               PUSHI  #0x0000149e
56231 @ 459108:               INIT   1
56232 @ 459111:               PUSHI  #0x000014b0
56233 @ 459116:               INIT   1
56234 @ 459119:               PUSHI  #0x000014c0
56235 @ 459124:               INIT   1
56236 @ 459127:               PUSHI  #0x000014cc
56237 @ 459132:               INIT   1
56238 @ 459135:               PUSHI  #0x000014d8
56239 @ 459140:               INIT   1
56240 @ 459143:               PUSHI  #0x000014f6
56241 @ 459148:               INIT   1
56242 @ 459151:               PUSHI  #0x00001514
56243 @ 459156:               INIT   1
56244 @ 459159:               PUSHI  #0x00001522
56245 @ 459164:               INIT   1
56246 @ 459167:               PUSHI  #0x00001532
56247 @ 459172:               INIT   1
56248 @ 459175:               PUSHI  #0x00001554
56249 @ 459180:               INIT   1
56250 @ 459183:               PUSHI  #0x0000155e
56251 @ 459188:               INIT   1
56252 @ 459191:               PUSHI  #0x0000156e
56253 @ 459196:               INIT   1
56254 @ 459199:               PUSHI  #0x0000157a
56255 @ 459204:               INIT   1
56256 @ 459207:               PUSHI  #0x0000158a
56257 @ 459212:               INIT   1
56258 @ 459215:               PUSHI  #0x0000159a
56259 @ 459220:               INIT   1
56260 @ 459223:               PUSHI  #0x000015b2
56261 @ 459228:               INIT   1
56262 @ 459231:               PUSHI  #0x000015be
56263 @ 459236:               INIT   1
56264 @ 459239:               PUSHI  #0x000015c8
56265 @ 459244:               INIT   1
56266 @ 459247:               PUSHI  #0x000015dc
56267 @ 459252:               INIT   1
56268 @ 459255:               PUSHI  #0x000015f2
56269 @ 459260:               INIT   1
56270 @ 459263:               PUSHI  #0x00001608
56271 @ 459268:               INIT   1
56272 @ 459271:               PUSHI  #0x00001620
56273 @ 459276:               INIT   1
56274 @ 459279:               PUSHI  #0x0000162c
56275 @ 459284:               INIT   1
56276 @ 459287:               PUSHI  #0x0000163e
56277 @ 459292:               INIT   1
56278 @ 459295:               PUSHI  #0x00001652
56279 @ 459300:               INIT   1
56280 @ 459303:               PUSHI  #0x00001662
56281 @ 459308:               INIT   1
56282 @ 459311:               PUSHI  #0x00001676
56283 @ 459316:               INIT   1
56284 @ 459319:               PUSHI  #0x00001686
56285 @ 459324:               INIT   1
56286 @ 459327:               PUSHI  #0x000016a4
56287 @ 459332:               INIT   1

  9288  {%REGISTER SYMAD(7)}%integer SYMAD
56288 @ 459335:               LINE   9288 "regression-compile-tmp/imp918s.imp"
56289 @ 459373:               DEF    SYMAD p1=V_016d 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

  9289  {%REGISTER QP(6)}%integer QP
  9290  !%if USE MC = 1 %start
  9291  !         *L_7,SYMBOL; *L_6,Q
  9292  !         *BAL_1,<HASHSTART>
  9293  !%finish
56290 @ 459390:               LINE   9289 "regression-compile-tmp/imp918s.imp"
56291 @ 459428:               DEF    QP p1=V_016e 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

  9294           Q=QP
56292 @ 459442:               LINE   9294 "regression-compile-tmp/imp918s.imp"
56293 @ 459480:               PUSH   Q
56294 @ 459483:               PUSH   QP
56295 @ 459486:               ASSVAL

  9295           %RETURN
56296 @ 459487:               LINE   9295 "regression-compile-tmp/imp918s.imp"
56297 @ 459525:               RETURN

  9296  HASHSTART:                             ! USE 1ST CHAR TO INDEX PHRASE SS
  9297  !%if USE MC = 1 %start
  9298  !         *ST_1,0(0,11);                ! SAVE RETURN ADDR BUT NOT LOCALS
  9299  !         *LA_11,32(0,11);              ! CLAIM SPACE TO CONFORM W.START
  9300  !         *L_2,R; *ST_2,RR; *ST_6,RQ;   ! RQ=Q;!RR=R
  9301  !         *LA_3,1(0,2); *ST_3,R;        ! R=R+1
  9302  !         *SR_1,1; *IC_1,0(6);          ! R1=CC(Q)=1ST CHAR OF STMNT
  9303  !         *L_3,HASHALT; *IC_1,0(3,1);   ! R1=A(R)=1ST ALT WORTH TRYING
  9304  !         *STH_1,ALT;                   ! ALT    =ALTNO
  9305  !         *L_3,SALT
  9306  !         *LH_0,0(0,3); *STH_0,RP
  9307  !         *AR_1,1; *LH_2,0(3,1);        ! P=SALT(ALT)
  9308  !         *LA_1,2(0,2);                 ! RS=1ST ALT IS 2 BYTES ON
  9309  !         *LH_0,0(2,7); *ST_0,RA;       ! RA=PTR TO NEXT ALT OF SS
  9310  !         *BC_15,<12>
  9311  !START:   *LM_15,4,RA;                  ! CURRENT LOCALS
  9312  !         *STM_14,4,0(11);              ! SAVE RETURN ADDR+LOCALS
  9313  !         *LA_11,32(0,11);              ! CLAIM WORKSPACE
  9314  !         *L_0,P; *STH_0,PP
  9315  !         *BC_15,<COMM>
  9316  !%finish
56298 @ 459526:               LINE   9296 "regression-compile-tmp/imp918s.imp"
56299 @ 459564:               LABEL  L_016f

  9317  Label999:                                    ! REPEATEING PHRASES
  9318  !%if USE MC = 1 %start
  9319  !         *L_1,RR; *AR_1,1
  9320  !         *LH_0,ALT; *STH_0,A+30(1)
  9321  !         *LH_0,PP; *ST_0,P
  9322  !%finish
56300 @ 459567:               LINE   9317 "regression-compile-tmp/imp918s.imp"
56301 @ 459605:               LABEL  L_0170

  9323  COMM:
  9324           %COMMENT  ROUTINE REALLY STARTS HERE
  9325  !%if USE MC = 1 %start
  9326  !         *L_1,R; *ST_1,RR; *ST_6,RQ;   !RQ=Q  RR=R
  9327  !         *LA_2,1(0,1); *ST_2,R;        ! R=R+1
  9328  !         *LA_0,1; *STH_0,ALT;          ! ALT=1
  9329  !         *L_1,P
  9330  !         *LH_0,0(1,7); *STH_0,RP;       ! RP=SYMBOL(P)
  9331  !         *LH_0,2(1,7); *ST_0,RA;       ! RA=SYMBOL(P+1)
  9332  !         *LA_1,4(0,1); *BC_15,<12>;    ! RS=1ST ALTRNTIVE IS 4 BYTES ON
56302 @ 459608:               LINE   9323 "regression-compile-tmp/imp918s.imp"
56303 @ 459646:               LABEL  L_0171

  9333  Label1:
  9334  !         *LA_1,1; *A_1,R
  9335  !         *ST_1,R;                      ! R=R+1
  9336  !%finish
56304 @ 459649:               LINE   9333 "regression-compile-tmp/imp918s.imp"
56305 @ 459687:               LABEL  L_0172

  9337  Label2:                                     !RETURN HERE AFTER SUCCESS
  9338  !%if USE MC = 1 %start
  9339  !         *C_6,QMAX
  9340  !        *BC_12,<NOUPD>; *ST_6,QMAX
  9341  !%finish
56306 @ 459690:               LINE   9337 "regression-compile-tmp/imp918s.imp"
56307 @ 459728:               LABEL  L_0173

  9342  NOUPD:
  9343  !%if USE MC = 1 %start
  9344  !         *L_1,RS; *LA_1,4(0,1);        ! ! UPDATE RS TO NEXT PHRASE%C
  9345  !                                         ! WHICH IN GENERAL WILL BE 4
  9346  !                                         ! BYTES ON DOWN THE TABLE.
  9347  !                                         ! ONLY LITERALS DIFFER
  9348  !12:      *C_1,RA; *BC_8,<8>;           !  ->SUCCESS %IF RA=RS
  9349  !         *ST_1,RS;                     !  RS=RS+1
  9350  !         *LA_3,<TABLE>
  9351  !%finish
56308 @ 459731:               LINE   9342 "regression-compile-tmp/imp918s.imp"
56309 @ 459769:               LABEL  L_0174

  9352  TESTP:                                 ! THE BASIC COMPARISON SEQUENCE
  9353                                         ! EXECUTE THE NEXT INSTRUCTION IN
  9354                                         ! THE TABLE FOR P-TYPE THIS BR3
  9355                                         ! FOR A RECURSIVE CALL.BIP-TYPE
  9356                                         ! BRANCHES VIA TABLE.LITERAL IS
  9357                                         ! THE APPROPRIATE CLC
  9358  !%if USE MC = 1 %start
  9359  !         *EX_0,0(1,7);                 ! CLC IN SYMBOL
  9360  !         *BC_7,<3>;                    ! LITERAL NOT FOUND
  9361  !         *AH_6,0(1,7);                 ! ADD 1ST HALFWORD OF CLC
  9362  !         *A_6,QUICK;                   ! AND A CORRECTING FACTOR TO
  9363  !        *C_6,QMAX; *BC_12,<NOUPD1>; *ST_6,QMAX
  9364  !%finish
56310 @ 459772:               LINE   9352 "regression-compile-tmp/imp918s.imp"
56311 @ 459810:               LABEL  L_0175

  9365  NOUPD1:
  9366  !%if USE MC = 1 %start
  9367  !         *LA_1,6(0,1);                 !  LITERALS NEXT PHRASE 6BYTES ON
  9368  !         *C_1,RA; *BC_8,<8>;           !  ->SUCCESS %IF RA=RS
  9369  !         *ST_1,RS
  9370  !%finish
56312 @ 459813:               LINE   9365 "regression-compile-tmp/imp918s.imp"
56313 @ 459851:               LABEL  L_0176

  9371           ->TESTP;                      ! ON TO NEXT PHRASE
  9372  !%if USE MC = 1 %start
  9373  !4:       *LH_2,2(1,7);                ! POINTER TO PHRASE
  9374  !         *ST_2,P;                      ! P=ITEM
  9375  !         *BAL_14,<START>;              ! PSEUDO RECURSIVE CALL
  9376  !         *CLI_HIT,0; *BC_8,<3>;         ! BIP NOT FOUND
  9377  !%finish
  9378                                          ! IF BIP FOUND CAN USE REGS
  9379                                          ! LEFT SET UP AT LAST RTRN:
  9380  !%if USE MC = 1 %start
  9381  !         *LA_1,4(2);                    ! UPDATE RS
  9382  !         *CR_1,15; *BC_8,<8>;           ! ->SUCCESS IF RA=RS
  9383  !         *ST_1,RS; *LA_3,<TABLE>; *BC_15,<TESTP>
56314 @ 459854:               LINE   9371 "regression-compile-tmp/imp918s.imp"
56315 @ 459892:               JUMP   L_0175

  9384  U3:
  9385  !         *C_6,QMAX; *BC_12,<3>; *ST_6,QMAX
  9386  !%finish
56316 @ 459895:               LINE   9384 "regression-compile-tmp/imp918s.imp"
56317 @ 459933:               LABEL  L_0177

  9387  Label3:                                    !FAILURE TRY NEXT ALTERNATIVE
  9388  !%if USE MC = 1 %start
  9389  !         *L_2,RA; *CH_2,RP;            ! ->Label7 %IF RA=RP (UTTER FAILURE
  9390  !         *BC_8,<7>;                    ! AS NO MORE ALTS LEFT TO TRY)
  9391  !         *L_15,RR; *L_6,RQ;            ! Q=RQ--R=RR
  9392  !         *LA_0,1(0,15); *ST_0,R;       ! R=R+1--
  9393  !         *LH_3,ALT
  9394  !         *LA_3,1(0,3); *STH_3,ALT;     ! ALT=ALT+1  = NEXT ALT
  9395  !         *LA_1,2(0,2);                 ! NEW RS 2 ON FROM OLD RS(=RA)
  9396  !         *LH_0,0(2,7); *ST_0,RA;       ! NEW RA=SYMBOL(OLD RA)
  9397  !         *ST_1,RS
  9398  !         *LA_3,<TABLE>; ->TESTP
  9399  !%finish
56318 @ 459936:               LINE   9387 "regression-compile-tmp/imp918s.imp"
56319 @ 459974:               LABEL  L_0178

  9400  NULL:                                  ! PHRASE NULL-CAN BE MADE FAST.AS
  9401                                         ! ALWAYS LAST & ALWAYS SUCCESSFUL
56320 @ 459977:               LINE   9400 "regression-compile-tmp/imp918s.imp"
56321 @ 460015:               LABEL  L_0179

  9402  Label8:       HIT=1                         ;!SUCCESS
56322 @ 460018:               LINE   9402 "regression-compile-tmp/imp918s.imp"
56323 @ 460056:               LABEL  L_017a
56324 @ 460059:               LINE   9402 "regression-compile-tmp/imp918s.imp"
56325 @ 460097:               PUSH   HIT
56326 @ 460100:               PUSHI  #0x00000001
56327 @ 460105:               ASSVAL

  9403  RTRN:                                  ! PSEUDO RECURSIVE RETURN
  9404  !%if USE MC = 1 %start
  9405  !         *L_1,RR; *AR_1,1
  9406  !         *LH_0,ALT; *STH_0,A+30(1);    ! A(RR)=ALT MATCHED
  9407  !         *S_11,THIRTYTWO;              ! RESET THE STACK POINTER
  9408  !         *LM_14,4,0(11);               ! RETURN ADDR ETC
  9409  !         *STM_15,4,RA;                 ! RESTORE OLD LOCALS
  9410  !         *BCR_15,14    ;               ! AND EXIT
  9411  !%finish
56328 @ 460106:               LINE   9403 "regression-compile-tmp/imp918s.imp"
56329 @ 460144:               LABEL  L_017b

  9412  Label7:       HIT=0;->RTRN                  ;!COMPLETE AND UTTER FAILURE
  9413  !%if USE MC = 1 %start
  9414  !TABLE:   *BC_15,<4>
  9415  !         *BC_15,<999>
  9416  !         *BC_15,<NULL>;                ! THE BIP %NULL
  9417  !         *BC_15,<1001>  ;              !TREE FOR BIPS
  9418  !         *BC_15,<1002>
  9419  !         *BC_15,<1003>
  9420  !         *BC_15,<1004>
  9421  !         *BC_15,<1005>
  9422  !         *BC_15,<1006>
  9423  !         *BC_15,<1007>
  9424  !         *BC_15,<1008>
  9425  !         *BC_15,<1009>
  9426  !         *BC_15,<1010>
  9427  !         *BC_15,<1011>
  9428  !         *BC_15,<1012>
  9429  !         *BC_15,<1013>
  9430  !         *BC_15,<1014>
  9431  !         *BC_15,<1015>
  9432  !         *BC_15,<1016>
  9433  !         *BC_15,<1017>
  9434  !         *BC_15,<1018>
  9435  !         *BC_15,<1019>
  9436  !         *BC_15,<1020>
  9437  !         *BC_15,<1021>
  9438  !         *BC_15,<1022>
  9439  !         *BC_15,<1023>
  9440  !         *BC_15,<1024>
  9441  !         *BC_15,<1025>
  9442  !%finish
56330 @ 460147:               LINE   9412 "regression-compile-tmp/imp918s.imp"
56331 @ 460185:               LABEL  L_017c
56332 @ 460188:               LINE   9412 "regression-compile-tmp/imp918s.imp"
56333 @ 460226:               PUSH   HIT
56334 @ 460229:               PUSHI  #0x00000000
56335 @ 460234:               ASSVAL
56336 @ 460235:               LINE   9412 "regression-compile-tmp/imp918s.imp"
56337 @ 460273:               JUMP   L_017b

  9443  Label1001:                                  !BIP NAME
56338 @ 460276:               LINE   9443 "regression-compile-tmp/imp918s.imp"
56339 @ 460314:               LABEL  L_017d

  9444           ->Label3 %UNLESS 'A'<=BYTEINTEGER(QP)
  9445  !%if USE MC = 1 %start
  9446  !         *L_3,TRTABS
  9447  !         *SR_1,1; *LR_2,1; *ST_1,NUM
  9448  !         *STM_1,2,0(11)
  9449  !         *TRT_0(255,6),0(3)
  9450  !         *LR_0,1; *SR_1,6;              ! LENGTH IN GR1
  9451  !         *BC_8,<3>;                     ! ZERO LENGTH = NOT A NAME
  9452  !         *BCT_2,*+8
  9453  !         *BC_15,<U3>;                   ! NAME END IN QUOTE =FAIL
  9454  !         *L_14,LETT; *L_3,NEXT; *AR_3,14
  9455  !         *STC_1,0(3);                   ! MOVE IN LENGTH
  9456  !         *EX_1,<NAMMOVE>;               ! MOVE IN CHARS (+1 XTRA)
  9457  !         *EX_1,<MOVEP>
  9458  !         *LR_6,0;                       ! UPDATE TEXT POINTER
  9459  !         *LH_2,0(11); *MH_2,HH1
  9460  !         *LH_0,2(11); *MH_0,HH1+2; *ALR_2,0
  9461  !         *LH_0,4(11); *MH_0,HH2; *ALR_2,0
  9462  !         *LH_0,6(11); *MH_0,HH2+2; *ALR_2,0
  9463  !         *LR_4,2;                       ! INITIAL HASH VALUE
  9464  !         *SRL_2,9; *STC_2,NUM+3
  9465  !         *OI_NUM+3,2; *NI_NUM+3,62
  9466  !         *L_15,WORD; *L_5,NNAMES
  9467  !         *LA_0,0(5,5)
  9468  !         *ALR_4,4
  9469  !LOOKL:   *NR_4,0;                       ! TO KEEP WITHIN WORD
  9470  !         *LH_2,0(4,15);                 ! GET WORD(I)
  9471  !         *LTR_2,2; *BC_8,<NEWNAME>;     ! EMPTY HOLE FOR NEW NAME
  9472  !         *AR_2,14; *EX_1,<NAMCOMP>;     ! COMPARE
  9473  !         *BC_8,<FOUND>
  9474  !         *A_4,NUM
  9475  !         *BCT_5,<LOOKL>
  9476  !%finish
56340 @ 460317:               LINE   9444 "regression-compile-tmp/imp918s.imp"
56341 @ 460355:               PUSHI  #0x00000041
56342 @ 460360:               PUSH   BYTEINTEGER
56343 @ 460363:               PUSH   QP
56344 @ 460366:               ASSPAR
56345 @ 460367:               CALL  
56346 @ 460368:               JUMPIF <= L_0004
56347 @ 460372:               JUMP   L_0178
56348 @ 460375:               LOCATE L_0004

  9477           FAULT(104,0)
  9478  !%if USE MC = 1 %start
  9479  !NAMCOMP: *CLC_0(1,2),0(3)
  9480  !NAMMOVE: *MVC_1(1,3),0(6)
  9481  !MOVEP:   *MVC_0(1,11),0(3)
  9482  !%finish
56349 @ 460378:               LINE   9477 "regression-compile-tmp/imp918s.imp"
56350 @ 460416:               PUSH   FAULT
56351 @ 460419:               PUSHI  #0x00000068
56352 @ 460424:               ASSPAR
56353 @ 460425:               PUSHI  #0x00000000
56354 @ 460430:               ASSPAR
56355 @ 460431:               CALL  

  9483  DFULL:   FAULT(103,0)
  9484  !%if USE MC = 1 %start
  9485  !NEWNAME: *SR_3,14; *STH_3,0(4,15)
  9486  !         *LA_3,1(1,3); *ST_3,NEXT;      ! UPDATE NEXT TO INCLUDE NEWNAME
  9487  !         *CH_3,DSIZE; *BC_2,<DFULL>
  9488  !FOUND:   *SRL_4,1; *L_2,R; *AR_2,2
  9489  !         *STH_4,A+30(2)
  9490  !%finish
56356 @ 460432:               LINE   9483 "regression-compile-tmp/imp918s.imp"
56357 @ 460470:               LABEL  L_017e
56358 @ 460473:               LINE   9483 "regression-compile-tmp/imp918s.imp"
56359 @ 460511:               PUSH   FAULT
56360 @ 460514:               PUSHI  #0x00000067
56361 @ 460519:               ASSPAR
56362 @ 460520:               PUSHI  #0x00000000
56363 @ 460525:               ASSPAR
56364 @ 460526:               CALL  

  9491           HIT=1; ->Label1
56365 @ 460527:               LINE   9491 "regression-compile-tmp/imp918s.imp"
56366 @ 460565:               PUSH   HIT
56367 @ 460568:               PUSHI  #0x00000001
56368 @ 460573:               ASSVAL
56369 @ 460574:               LINE   9491 "regression-compile-tmp/imp918s.imp"
56370 @ 460612:               JUMP   L_0172

  9492  Label1020:                                  ! SET UP UC FOR LOOK UP &CHECK'_'
56371 @ 460615:               LINE   9492 "regression-compile-tmp/imp918s.imp"
56372 @ 460653:               LABEL  L_017f

  9493           I=BYTE INTEGER(QP)
56373 @ 460656:               LINE   9493 "regression-compile-tmp/imp918s.imp"
56374 @ 460694:               PUSH   I
56375 @ 460697:               PUSH   BYTEINTEGER
56376 @ 460700:               PUSH   QP
56377 @ 460703:               ASSPAR
56378 @ 460704:               CALL  
56379 @ 460705:               ASSVAL

  9494           ->Label3 %UNLESS 'A'<=I<='Z'
56380 @ 460706:               LINE   9494 "regression-compile-tmp/imp918s.imp"
56381 @ 460744:               PUSHI  #0x00000041
56382 @ 460749:               PUSH   I
56383 @ 460752:               JUMPIFD > L_0005
56384 @ 460756:               PUSHI  #0x0000005a
56385 @ 460761:               JUMPIF <= L_0004
56386 @ 460765:               LOCATE L_0005
56387 @ 460768:               JUMP   L_0178
56388 @ 460771:               LOCATE L_0004

  9495           S=I; J=1
56389 @ 460774:               LINE   9495 "regression-compile-tmp/imp918s.imp"
56390 @ 460812:               PUSH   S
56391 @ 460815:               PUSH   I
56392 @ 460818:               ASSVAL
56393 @ 460819:               LINE   9495 "regression-compile-tmp/imp918s.imp"
56394 @ 460857:               PUSH   J
56395 @ 460860:               PUSHI  #0x00000001
56396 @ 460865:               ASSVAL

  9496  Label200:     QP=QP+1; I=BYTE INTEGER(QP)
56397 @ 460866:               LINE   9496 "regression-compile-tmp/imp918s.imp"
56398 @ 460904:               LABEL  L_0180
56399 @ 460907:               LINE   9496 "regression-compile-tmp/imp918s.imp"
56400 @ 460945:               PUSH   QP
56401 @ 460948:               PUSH   QP
56402 @ 460951:               PUSHI  #0x00000001
56403 @ 460956:               ADD   
56404 @ 460957:               ASSVAL
56405 @ 460958:               LINE   9496 "regression-compile-tmp/imp918s.imp"
56406 @ 460996:               PUSH   I
56407 @ 460999:               PUSH   BYTEINTEGER
56408 @ 461002:               PUSH   QP
56409 @ 461005:               ASSPAR
56410 @ 461006:               CALL  
56411 @ 461007:               ASSVAL

  9497           ->Label201 %UNLESS 'A'<=I<='Z'
56412 @ 461008:               LINE   9497 "regression-compile-tmp/imp918s.imp"
56413 @ 461046:               PUSHI  #0x00000041
56414 @ 461051:               PUSH   I
56415 @ 461054:               JUMPIFD > L_0005
56416 @ 461058:               PUSHI  #0x0000005a
56417 @ 461063:               JUMPIF <= L_0004
56418 @ 461067:               LOCATE L_0005
56419 @ 461070:               JUMP   L_0181
56420 @ 461073:               LOCATE L_0004

  9498           S=S<<8!I;J=J+1; ->Label200
56421 @ 461076:               LINE   9498 "regression-compile-tmp/imp918s.imp"
56422 @ 461114:               PUSH   S
56423 @ 461117:               PUSH   S
56424 @ 461120:               PUSHI  #0x00000008
56425 @ 461125:               LSH   
56426 @ 461126:               PUSH   I
56427 @ 461129:               OR    
56428 @ 461130:               ASSVAL
56429 @ 461131:               LINE   9498 "regression-compile-tmp/imp918s.imp"
56430 @ 461169:               PUSH   J
56431 @ 461172:               PUSH   J
56432 @ 461175:               PUSHI  #0x00000001
56433 @ 461180:               ADD   
56434 @ 461181:               ASSVAL
56435 @ 461182:               LINE   9498 "regression-compile-tmp/imp918s.imp"
56436 @ 461220:               JUMP   L_0180

  9499  Label201:     ->Label3 %UNLESS I='_' %AND J<=4
56437 @ 461223:               LINE   9499 "regression-compile-tmp/imp918s.imp"
56438 @ 461261:               LABEL  L_0181
56439 @ 461264:               LINE   9499 "regression-compile-tmp/imp918s.imp"
56440 @ 461302:               PUSH   I
56441 @ 461305:               PUSHI  #0x0000005f
56442 @ 461310:               JUMPIF # L_0005
56443 @ 461314:               PUSH   J
56444 @ 461317:               PUSHI  #0x00000004
56445 @ 461322:               JUMPIF <= L_0004
56446 @ 461326:               LOCATE L_0005
56447 @ 461329:               JUMP   L_0178
56448 @ 461332:               LOCATE L_0004

  9500           QP=QP+1; ->Label2
56449 @ 461335:               LINE   9500 "regression-compile-tmp/imp918s.imp"
56450 @ 461373:               PUSH   QP
56451 @ 461376:               PUSH   QP
56452 @ 461379:               PUSHI  #0x00000001
56453 @ 461384:               ADD   
56454 @ 461385:               ASSVAL
56455 @ 461386:               LINE   9500 "regression-compile-tmp/imp918s.imp"
56456 @ 461424:               JUMP   L_0173

  9501  Label1002:                                  ! INTEGER CONSTANT
  9502  !%if USE MC = 1 %start
  9503  !         *MVI_CTYPE,2; -> 301
  9504  !%finish
56457 @ 461427:               LINE   9501 "regression-compile-tmp/imp918s.imp"
56458 @ 461465:               LABEL  L_0182

  9505  Label1003:                                  !BIP CONST
  9506  !%if USE MC = 1 %start
  9507  !         *MVI_CTYPE,0
  9508  !301:     *SR_1,1
  9509  !        *IC_1,0(0,6);                   ! PICK UP NEXT CHAR
  9510  !         *A_1,TRTABS;                  ! CHECK A CONST IS POSSIBLE
  9511  !         *CLI_256(1),28;*BC_8,<3>;     !QUICK TEST FOR CONST.
  9512  !%finish
56459 @ 461468:               LINE   9505 "regression-compile-tmp/imp918s.imp"
56460 @ 461506:               LABEL  L_0183

  9513           Q=QP; CONST(CTYPE); QP=Q
56461 @ 461509:               LINE   9513 "regression-compile-tmp/imp918s.imp"
56462 @ 461547:               PUSH   Q
56463 @ 461550:               PUSH   QP
56464 @ 461553:               ASSVAL
56465 @ 461554:               LINE   9513 "regression-compile-tmp/imp918s.imp"
56466 @ 461592:               PUSH   CONST
56467 @ 461595:               PUSH   CTYPE
56468 @ 461598:               ASSPAR
56469 @ 461599:               CALL  
56470 @ 461600:               LINE   9513 "regression-compile-tmp/imp918s.imp"
56471 @ 461638:               PUSH   QP
56472 @ 461641:               PUSH   Q
56473 @ 461644:               ASSVAL

  9514           %IF HIT=0 %THEN ->U3
56474 @ 461645:               LINE   9514 "regression-compile-tmp/imp918s.imp"
56475 @ 461683:               PUSH   HIT
56476 @ 461686:               PUSHI  #0x00000000
56477 @ 461691:               JUMPIF # L_0004
56478 @ 461695:               JUMP   L_0177
56479 @ 461698:               LOCATE L_0004

  9515           ->Label1 %IF CTYPE=5
56480 @ 461701:               LINE   9515 "regression-compile-tmp/imp918s.imp"
56481 @ 461739:               PUSH   CTYPE
56482 @ 461742:               PUSHI  #0x00000005
56483 @ 461747:               JUMPIF # L_0004
56484 @ 461751:               JUMP   L_0172
56485 @ 461754:               LOCATE L_0004

  9516           ->Label26 %IF CTYPE=2;             ! %REAL
56486 @ 461757:               LINE   9516 "regression-compile-tmp/imp918s.imp"
56487 @ 461795:               PUSH   CTYPE
56488 @ 461798:               PUSHI  #0x00000002
56489 @ 461803:               JUMPIF # L_0004
56490 @ 461807:               JUMP   L_0184
56491 @ 461810:               LOCATE L_0004

  9517           A(R)=1
56492 @ 461813:               LINE   9517 "regression-compile-tmp/imp918s.imp"
56493 @ 461851:               PUSH   A
56494 @ 461854:               PUSH   R
56495 @ 461857:               ACCESS
56496 @ 461858:               PUSHI  #0x00000001
56497 @ 461863:               ASSVAL

  9518           A(R+1)<-S>>16; A(R+2)<-S; R=R+3; ->Label2
56498 @ 461864:               LINE   9518 "regression-compile-tmp/imp918s.imp"
56499 @ 461902:               PUSH   A
56500 @ 461905:               PUSH   R
56501 @ 461908:               PUSHI  #0x00000001
56502 @ 461913:               ADD   
56503 @ 461914:               ACCESS
56504 @ 461915:               PUSH   S
56505 @ 461918:               PUSHI  #0x00000010
56506 @ 461923:               RSH   
56507 @ 461924:               JAM   
56508 @ 461925:               LINE   9518 "regression-compile-tmp/imp918s.imp"
56509 @ 461963:               PUSH   A
56510 @ 461966:               PUSH   R
56511 @ 461969:               PUSHI  #0x00000002
56512 @ 461974:               ADD   
56513 @ 461975:               ACCESS
56514 @ 461976:               PUSH   S
56515 @ 461979:               JAM   
56516 @ 461980:               LINE   9518 "regression-compile-tmp/imp918s.imp"
56517 @ 462018:               PUSH   R
56518 @ 462021:               PUSH   R
56519 @ 462024:               PUSHI  #0x00000003
56520 @ 462029:               ADD   
56521 @ 462030:               ASSVAL
56522 @ 462031:               LINE   9518 "regression-compile-tmp/imp918s.imp"
56523 @ 462069:               JUMP   L_0173

  9519  Label26:      A(R)=2; TOAR8(R+1,CVALUE); R=R+5; ->Label2
56524 @ 462072:               LINE   9519 "regression-compile-tmp/imp918s.imp"
56525 @ 462110:               LABEL  L_0184
56526 @ 462113:               LINE   9519 "regression-compile-tmp/imp918s.imp"
56527 @ 462151:               PUSH   A
56528 @ 462154:               PUSH   R
56529 @ 462157:               ACCESS
56530 @ 462158:               PUSHI  #0x00000002
56531 @ 462163:               ASSVAL
56532 @ 462164:               LINE   9519 "regression-compile-tmp/imp918s.imp"
56533 @ 462202:               PUSH   TOAR8
56534 @ 462205:               PUSH   R
56535 @ 462208:               PUSHI  #0x00000001
56536 @ 462213:               ADD   
56537 @ 462214:               ASSPAR
56538 @ 462215:               PUSH   CVALUE
56539 @ 462218:               ASSPAR
56540 @ 462219:               CALL  
56541 @ 462220:               LINE   9519 "regression-compile-tmp/imp918s.imp"
56542 @ 462258:               PUSH   R
56543 @ 462261:               PUSH   R
56544 @ 462264:               PUSHI  #0x00000005
56545 @ 462269:               ADD   
56546 @ 462270:               ASSVAL
56547 @ 462271:               LINE   9519 "regression-compile-tmp/imp918s.imp"
56548 @ 462309:               JUMP   L_0173

  9520  Label1005:                                  !BIP N
  9521  !%if USE MC = 1 %start
  9522  !         *L_3,TRTABS
  9523  !         *TRT_0(10,6),256(3)
  9524  !         *BC_8,<3>;                    ! TOO LONG
  9525  !         *LR_0,1;                       ! UPDATE Q
  9526  !         *SR_1,6; *BC_8,<3>;           ! ZERO LENGTH->FAILURE
  9527  !         *BCTR_1,0;  *EX_1,<PK>;       !PACK
  9528  !         *OI_7(11),15;                 !POSITIVE SIGN
  9529  !         *CVB_2,0(0,11);               ! BINARY IN R2
  9530  !         *L_1,R;  *AR_1,1
  9531  !         *LR_6,0;                      ! FINISH UPDATING Q
  9532  !         *STH_2,A+30(1);                  ! A(R)=N
  9533  !         *SRA_2,15;  *BC_8,<1>
  9534  !%finish
56549 @ 462312:               LINE   9520 "regression-compile-tmp/imp918s.imp"
56550 @ 462350:               LABEL  L_0185

  9535           ->Label3
  9536  !%if USE MC = 1 %start
  9537  !PK:      *PACK_0(8,11),0(0,6)
  9538  !%finish
56551 @ 462353:               LINE   9535 "regression-compile-tmp/imp918s.imp"
56552 @ 462391:               JUMP   L_0178

  9539  Label1004:                                  !BIP CONSTLIST
56553 @ 462394:               LINE   9539 "regression-compile-tmp/imp918s.imp"
56554 @ 462432:               LABEL  L_0186

  9540           Q=QP; CONSTLIST; QP=Q; ->Label1
56555 @ 462435:               LINE   9540 "regression-compile-tmp/imp918s.imp"
56556 @ 462473:               PUSH   Q
56557 @ 462476:               PUSH   QP
56558 @ 462479:               ASSVAL
56559 @ 462480:               LINE   9540 "regression-compile-tmp/imp918s.imp"
56560 @ 462518:               PUSH   CONSTLIST
56561 @ 462521:               CALL  
56562 @ 462522:               LINE   9540 "regression-compile-tmp/imp918s.imp"
56563 @ 462560:               PUSH   QP
56564 @ 462563:               PUSH   Q
56565 @ 462566:               ASSVAL
56566 @ 462567:               LINE   9540 "regression-compile-tmp/imp918s.imp"
56567 @ 462605:               JUMP   L_0172

  9541  Label1006:                                  !BIP S
  9542  !%if USE MC = 1 %start
  9543  !         *CLI_0(6),10; *BC_8,<2>;      ! ->Label2 %IF I='NL'
  9544  !         *CLI_0(6),59; *BC_7,<3>;      ! -> 3 %UNLESS I=;
  9545  !         *LA_6,1(0,6)
  9546  !         *LA_1,4(0,1); *BC_15,<12>
  9547  !%finish
56568 @ 462608:               LINE   9541 "regression-compile-tmp/imp918s.imp"
56569 @ 462646:               LABEL  L_0187

  9548  Label1007:                                  !BIP TEXT (=COMMENT TEXT)
  9549  !%if USE MC = 1 %start
  9550  !         *L_3,TRTABS
  9551  !31:      *TRT_0(255,6),512(3)
  9552  !         *BC_8,<30>;                   ! TEXT LONGER THAN 255 CHARS
  9553  !         *LR_6,1; ->Label2
  9554  !30:      *LA_6,256(0,6); ->Label31
  9555  !%finish
56570 @ 462649:               LINE   9548 "regression-compile-tmp/imp918s.imp"
56571 @ 462687:               LABEL  L_0188

  9556  Label1008:                                  !BIP TEXTTEXT
56572 @ 462690:               LINE   9556 "regression-compile-tmp/imp918s.imp"
56573 @ 462728:               LABEL  L_0189

  9557           I=BYTE INTEGER(QP)
56574 @ 462731:               LINE   9557 "regression-compile-tmp/imp918s.imp"
56575 @ 462769:               PUSH   I
56576 @ 462772:               PUSH   BYTEINTEGER
56577 @ 462775:               PUSH   QP
56578 @ 462778:               ASSPAR
56579 @ 462779:               CALL  
56580 @ 462780:               ASSVAL

  9558           Q=QP; TEXTTEXT; QP=Q
56581 @ 462781:               LINE   9558 "regression-compile-tmp/imp918s.imp"
56582 @ 462819:               PUSH   Q
56583 @ 462822:               PUSH   QP
56584 @ 462825:               ASSVAL
56585 @ 462826:               LINE   9558 "regression-compile-tmp/imp918s.imp"
56586 @ 462864:               PUSH   TEXTTEXT
56587 @ 462867:               CALL  
56588 @ 462868:               LINE   9558 "regression-compile-tmp/imp918s.imp"
56589 @ 462906:               PUSH   QP
56590 @ 462909:               PUSH   Q
56591 @ 462912:               ASSVAL

  9559           ->Label3 %IF HIT=0;->Label1
56592 @ 462913:               LINE   9559 "regression-compile-tmp/imp918s.imp"
56593 @ 462951:               PUSH   HIT
56594 @ 462954:               PUSHI  #0x00000000
56595 @ 462959:               JUMPIF # L_0004
56596 @ 462963:               JUMP   L_0178
56597 @ 462966:               LOCATE L_0004
56598 @ 462969:               LINE   9559 "regression-compile-tmp/imp918s.imp"
56599 @ 463007:               JUMP   L_0172

  9560  Label1009:                                  !BIP NAMELIST
  9561           ! GIVES AR IN FORM NNAMES,NAME1,....NAMEN
56600 @ 463010:               LINE   9560 "regression-compile-tmp/imp918s.imp"
56601 @ 463048:               LABEL  L_018a

  9562           ->Label3 %IF BYTEINTEGER(QP)<'A'
56602 @ 463051:               LINE   9562 "regression-compile-tmp/imp918s.imp"
56603 @ 463089:               PUSH   BYTEINTEGER
56604 @ 463092:               PUSH   QP
56605 @ 463095:               ASSPAR
56606 @ 463096:               CALL  
56607 @ 463097:               PUSHI  #0x00000041
56608 @ 463102:               JUMPIF >= L_0004
56609 @ 463106:               JUMP   L_0178
56610 @ 463109:               LOCATE L_0004

  9563           U=R; V=1; R=R+1
56611 @ 463112:               LINE   9563 "regression-compile-tmp/imp918s.imp"
56612 @ 463150:               PUSH   U
56613 @ 463153:               PUSH   R
56614 @ 463156:               ASSVAL
56615 @ 463157:               LINE   9563 "regression-compile-tmp/imp918s.imp"
56616 @ 463195:               PUSH   V
56617 @ 463198:               PUSHI  #0x00000001
56618 @ 463203:               ASSVAL
56619 @ 463204:               LINE   9563 "regression-compile-tmp/imp918s.imp"
56620 @ 463242:               PUSH   R
56621 @ 463245:               PUSH   R
56622 @ 463248:               PUSHI  #0x00000001
56623 @ 463253:               ADD   
56624 @ 463254:               ASSVAL

  9564           Q=QP; PNAME; QP=Q; ->Label3 %IF HIT=0
56625 @ 463255:               LINE   9564 "regression-compile-tmp/imp918s.imp"
56626 @ 463293:               PUSH   Q
56627 @ 463296:               PUSH   QP
56628 @ 463299:               ASSVAL
56629 @ 463300:               LINE   9564 "regression-compile-tmp/imp918s.imp"
56630 @ 463338:               PUSH   PNAME
56631 @ 463341:               CALL  
56632 @ 463342:               LINE   9564 "regression-compile-tmp/imp918s.imp"
56633 @ 463380:               PUSH   QP
56634 @ 463383:               PUSH   Q
56635 @ 463386:               ASSVAL
56636 @ 463387:               LINE   9564 "regression-compile-tmp/imp918s.imp"
56637 @ 463425:               PUSH   HIT
56638 @ 463428:               PUSHI  #0x00000000
56639 @ 463433:               JUMPIF # L_0004
56640 @ 463437:               JUMP   L_0178
56641 @ 463440:               LOCATE L_0004

  9565  Label90:      ->Label91 %UNLESS BYTE INTEGER(QP)=','
56642 @ 463443:               LINE   9565 "regression-compile-tmp/imp918s.imp"
56643 @ 463481:               LABEL  L_018b
56644 @ 463484:               LINE   9565 "regression-compile-tmp/imp918s.imp"
56645 @ 463522:               PUSH   BYTEINTEGER
56646 @ 463525:               PUSH   QP
56647 @ 463528:               ASSPAR
56648 @ 463529:               CALL  
56649 @ 463530:               PUSHI  #0x0000002c
56650 @ 463535:               JUMPIF = L_0004
56651 @ 463539:               JUMP   L_018c
56652 @ 463542:               LOCATE L_0004

  9566           QP=QP+1; R=R+1
56653 @ 463545:               LINE   9566 "regression-compile-tmp/imp918s.imp"
56654 @ 463583:               PUSH   QP
56655 @ 463586:               PUSH   QP
56656 @ 463589:               PUSHI  #0x00000001
56657 @ 463594:               ADD   
56658 @ 463595:               ASSVAL
56659 @ 463596:               LINE   9566 "regression-compile-tmp/imp918s.imp"
56660 @ 463634:               PUSH   R
56661 @ 463637:               PUSH   R
56662 @ 463640:               PUSHI  #0x00000001
56663 @ 463645:               ADD   
56664 @ 463646:               ASSVAL

  9567           ->U3 %IF BYTEINTEGER(QP)<'A'
56665 @ 463647:               LINE   9567 "regression-compile-tmp/imp918s.imp"
56666 @ 463685:               PUSH   BYTEINTEGER
56667 @ 463688:               PUSH   QP
56668 @ 463691:               ASSPAR
56669 @ 463692:               CALL  
56670 @ 463693:               PUSHI  #0x00000041
56671 @ 463698:               JUMPIF >= L_0004
56672 @ 463702:               JUMP   L_0177
56673 @ 463705:               LOCATE L_0004

  9568           Q=QP; PNAME; QP=Q
56674 @ 463708:               LINE   9568 "regression-compile-tmp/imp918s.imp"
56675 @ 463746:               PUSH   Q
56676 @ 463749:               PUSH   QP
56677 @ 463752:               ASSVAL
56678 @ 463753:               LINE   9568 "regression-compile-tmp/imp918s.imp"
56679 @ 463791:               PUSH   PNAME
56680 @ 463794:               CALL  
56681 @ 463795:               LINE   9568 "regression-compile-tmp/imp918s.imp"
56682 @ 463833:               PUSH   QP
56683 @ 463836:               PUSH   Q
56684 @ 463839:               ASSVAL

  9569           ->Label92 %IF HIT=0; V=V+1; ->Label90
56685 @ 463840:               LINE   9569 "regression-compile-tmp/imp918s.imp"
56686 @ 463878:               PUSH   HIT
56687 @ 463881:               PUSHI  #0x00000000
56688 @ 463886:               JUMPIF # L_0004
56689 @ 463890:               JUMP   L_018d
56690 @ 463893:               LOCATE L_0004
56691 @ 463896:               LINE   9569 "regression-compile-tmp/imp918s.imp"
56692 @ 463934:               PUSH   V
56693 @ 463937:               PUSH   V
56694 @ 463940:               PUSHI  #0x00000001
56695 @ 463945:               ADD   
56696 @ 463946:               ASSVAL
56697 @ 463947:               LINE   9569 "regression-compile-tmp/imp918s.imp"
56698 @ 463985:               JUMP   L_018b

  9570  Label92:      R=R-1; QP=QP-1
56699 @ 463988:               LINE   9570 "regression-compile-tmp/imp918s.imp"
56700 @ 464026:               LABEL  L_018d
56701 @ 464029:               LINE   9570 "regression-compile-tmp/imp918s.imp"
56702 @ 464067:               PUSH   R
56703 @ 464070:               PUSH   R
56704 @ 464073:               PUSHI  #0x00000001
56705 @ 464078:               SUB   
56706 @ 464079:               ASSVAL
56707 @ 464080:               LINE   9570 "regression-compile-tmp/imp918s.imp"
56708 @ 464118:               PUSH   QP
56709 @ 464121:               PUSH   QP
56710 @ 464124:               PUSHI  #0x00000001
56711 @ 464129:               SUB   
56712 @ 464130:               ASSVAL

  9571  Label91:      A(U)=V; ->Label1
56713 @ 464131:               LINE   9571 "regression-compile-tmp/imp918s.imp"
56714 @ 464169:               LABEL  L_018c
56715 @ 464172:               LINE   9571 "regression-compile-tmp/imp918s.imp"
56716 @ 464210:               PUSH   A
56717 @ 464213:               PUSH   U
56718 @ 464216:               ACCESS
56719 @ 464217:               PUSH   V
56720 @ 464220:               ASSVAL
56721 @ 464221:               LINE   9571 "regression-compile-tmp/imp918s.imp"
56722 @ 464259:               JUMP   L_0172

  9572  Label1010:                        ! BIP HOLE
  9573  !%if USE MC = 1 %start
  9574  !         *L_15,R
  9575  !         *STH_15,MARKER;               ! MARKER=R
  9576  !         *LA_15,1(0,15);*ST_15,R;      ! R=R+1
  9577  !         *LA_1,4(0,1);                 ! ADVANCE POINTER TO SYMBOL
  9578  !         *C_1,RA; *BC_8,<8>;           ! AS FOR SUCCESS
  9579  !         *ST_1,RS; ->TESTP;            ! BACK INTO NORMAL PAT
  9580  !%finish
56723 @ 464262:               LINE   9572 "regression-compile-tmp/imp918s.imp"
56724 @ 464300:               LABEL  L_018e

  9581  Label1011:                        !BIP MARK
  9582  !%if USE MC = 1 %start
  9583  !         *LH_15,MARKER
  9584  !         *L_14,R; *SR_14,15;           !  R-MARKER
  9585  !         *AR_15,15
  9586  !         *STH_14,A+30(15);                !  A(MARKER)=R-MARKER
  9587  !         *LA_1,4(0,1);                 !  ADVANCE POINTER
  9588  !         *C_1,RA; *BC_8,<8>;           !  ?END OF PHRASE
  9589  !         *ST_1,RS; ->TESTP;            !  TO NORMAL PATH
  9590  !%finish
56725 @ 464303:               LINE   9581 "regression-compile-tmp/imp918s.imp"
56726 @ 464341:               LABEL  L_018f

  9591  Label1012:                                  !BIP UCRR - RR FORMAT
  9592  !%if USE MC = 1 %start
  9593  !         *CLI_S+3,'R';*BC_8,<124>
  9594  !%finish
56727 @ 464344:               LINE   9591 "regression-compile-tmp/imp918s.imp"
56728 @ 464382:               LABEL  L_0190

  9595           %CYCLE I=0,1,2
56729 @ 464385:               LINE   9595 "regression-compile-tmp/imp918s.imp"
56730 @ 464423:               PUSH   I
56731 @ 464426:               PUSHI  #0x00000001
56732 @ 464431:               PUSHI  #0x00000002
56733 @ 464436:               PUSHI  #0x00000000
56734 @ 464441:               FOR    L_0003

  9596           ->Label120 %IF S=NEM(I)
56735 @ 464444:               LINE   9596 "regression-compile-tmp/imp918s.imp"
56736 @ 464482:               PUSH   S
56737 @ 464485:               PUSH   NEM
56738 @ 464488:               PUSH   I
56739 @ 464491:               ACCESS
56740 @ 464492:               JUMPIF # L_0007
56741 @ 464496:               JUMP   L_0191
56742 @ 464499:               LOCATE L_0007

  9597           %REPEAT; ->Label3
56743 @ 464502:               LINE   9597 "regression-compile-tmp/imp918s.imp"
56744 @ 464540:               REPEAT L_0003
56745 @ 464543:               LOCATE L_0004
56746 @ 464546:               LINE   9597 "regression-compile-tmp/imp918s.imp"
56747 @ 464584:               JUMP   L_0178

  9598  Label120:     A(R)=OPC(I)&63; ->Label1
56748 @ 464587:               LINE   9598 "regression-compile-tmp/imp918s.imp"
56749 @ 464625:               LABEL  L_0191
56750 @ 464628:               LINE   9598 "regression-compile-tmp/imp918s.imp"
56751 @ 464666:               PUSH   A
56752 @ 464669:               PUSH   R
56753 @ 464672:               ACCESS
56754 @ 464673:               PUSH   OPC
56755 @ 464676:               PUSH   I
56756 @ 464679:               ACCESS
56757 @ 464680:               PUSHI  #0x0000003f
56758 @ 464685:               AND   
56759 @ 464686:               ASSVAL
56760 @ 464687:               LINE   9598 "regression-compile-tmp/imp918s.imp"
56761 @ 464725:               JUMP   L_0172

  9599  Label124:       J=S>>8; %CYCLE I=2,1,48
56762 @ 464728:               LINE   9599 "regression-compile-tmp/imp918s.imp"
56763 @ 464766:               LABEL  L_0192
56764 @ 464769:               LINE   9599 "regression-compile-tmp/imp918s.imp"
56765 @ 464807:               PUSH   J
56766 @ 464810:               PUSH   S
56767 @ 464813:               PUSHI  #0x00000008
56768 @ 464818:               RSH   
56769 @ 464819:               ASSVAL
56770 @ 464820:               LINE   9599 "regression-compile-tmp/imp918s.imp"
56771 @ 464858:               PUSH   I
56772 @ 464861:               PUSHI  #0x00000001
56773 @ 464866:               PUSHI  #0x00000030
56774 @ 464871:               PUSHI  #0x00000002
56775 @ 464876:               FOR    L_0003

  9600           ->Label120 %IF J=NEM(I)
56776 @ 464879:               LINE   9600 "regression-compile-tmp/imp918s.imp"
56777 @ 464917:               PUSH   J
56778 @ 464920:               PUSH   NEM
56779 @ 464923:               PUSH   I
56780 @ 464926:               ACCESS
56781 @ 464927:               JUMPIF # L_0007
56782 @ 464931:               JUMP   L_0191
56783 @ 464934:               LOCATE L_0007

  9601           %REPEAT; ->Label3
56784 @ 464937:               LINE   9601 "regression-compile-tmp/imp918s.imp"
56785 @ 464975:               REPEAT L_0003
56786 @ 464978:               LOCATE L_0004
56787 @ 464981:               LINE   9601 "regression-compile-tmp/imp918s.imp"
56788 @ 465019:               JUMP   L_0178

  9602  Label1013:                                  !BIP UCRX - RX FORMAT
56789 @ 465022:               LINE   9602 "regression-compile-tmp/imp918s.imp"
56790 @ 465060:               LABEL  L_0193

  9603           J=18; K=64
56791 @ 465063:               LINE   9603 "regression-compile-tmp/imp918s.imp"
56792 @ 465101:               PUSH   J
56793 @ 465104:               PUSHI  #0x00000012
56794 @ 465109:               ASSVAL
56795 @ 465110:               LINE   9603 "regression-compile-tmp/imp918s.imp"
56796 @ 465148:               PUSH   K
56797 @ 465151:               PUSHI  #0x00000040
56798 @ 465156:               ASSVAL

  9604  Label131:
56799 @ 465157:               LINE   9604 "regression-compile-tmp/imp918s.imp"
56800 @ 465195:               LABEL  L_0194

  9605           %CYCLE I=J,1,K
56801 @ 465198:               LINE   9605 "regression-compile-tmp/imp918s.imp"
56802 @ 465236:               PUSH   I
56803 @ 465239:               PUSHI  #0x00000001
56804 @ 465244:               PUSH   K
56805 @ 465247:               PUSH   J
56806 @ 465250:               FOR    L_0003

  9606           ->Label130 %IF S=NEM(I)
56807 @ 465253:               LINE   9606 "regression-compile-tmp/imp918s.imp"
56808 @ 465291:               PUSH   S
56809 @ 465294:               PUSH   NEM
56810 @ 465297:               PUSH   I
56811 @ 465300:               ACCESS
56812 @ 465301:               JUMPIF # L_0007
56813 @ 465305:               JUMP   L_0195
56814 @ 465308:               LOCATE L_0007

  9607           %REPEAT; ->Label3
56815 @ 465311:               LINE   9607 "regression-compile-tmp/imp918s.imp"
56816 @ 465349:               REPEAT L_0003
56817 @ 465352:               LOCATE L_0004
56818 @ 465355:               LINE   9607 "regression-compile-tmp/imp918s.imp"
56819 @ 465393:               JUMP   L_0178

  9608  Label130:     A(R)=OPC(I); ->Label1
56820 @ 465396:               LINE   9608 "regression-compile-tmp/imp918s.imp"
56821 @ 465434:               LABEL  L_0195
56822 @ 465437:               LINE   9608 "regression-compile-tmp/imp918s.imp"
56823 @ 465475:               PUSH   A
56824 @ 465478:               PUSH   R
56825 @ 465481:               ACCESS
56826 @ 465482:               PUSH   OPC
56827 @ 465485:               PUSH   I
56828 @ 465488:               ACCESS
56829 @ 465489:               ASSVAL
56830 @ 465490:               LINE   9608 "regression-compile-tmp/imp918s.imp"
56831 @ 465528:               JUMP   L_0172

  9609  Label1014:                                  !BIP UCRS    RRS FORMAT
56832 @ 465531:               LINE   9609 "regression-compile-tmp/imp918s.imp"
56833 @ 465569:               LABEL  L_0196

  9610           J=66; K=69; ->Label131
56834 @ 465572:               LINE   9610 "regression-compile-tmp/imp918s.imp"
56835 @ 465610:               PUSH   J
56836 @ 465613:               PUSHI  #0x00000042
56837 @ 465618:               ASSVAL
56838 @ 465619:               LINE   9610 "regression-compile-tmp/imp918s.imp"
56839 @ 465657:               PUSH   K
56840 @ 465660:               PUSHI  #0x00000045
56841 @ 465665:               ASSVAL
56842 @ 465666:               LINE   9610 "regression-compile-tmp/imp918s.imp"
56843 @ 465704:               JUMP   L_0194

  9611  Label1015:                                  !PHRASE UCSI STORE IMMEDIATE
56844 @ 465707:               LINE   9611 "regression-compile-tmp/imp918s.imp"
56845 @ 465745:               LABEL  L_0197

  9612           J=71; K=83; ->Label131
56846 @ 465748:               LINE   9612 "regression-compile-tmp/imp918s.imp"
56847 @ 465786:               PUSH   J
56848 @ 465789:               PUSHI  #0x00000047
56849 @ 465794:               ASSVAL
56850 @ 465795:               LINE   9612 "regression-compile-tmp/imp918s.imp"
56851 @ 465833:               PUSH   K
56852 @ 465836:               PUSHI  #0x00000053
56853 @ 465841:               ASSVAL
56854 @ 465842:               LINE   9612 "regression-compile-tmp/imp918s.imp"
56855 @ 465880:               JUMP   L_0194

  9613  Label1016:                                  !PHRASE UCSHIFT
  9614  !%if USE MC = 1 %start
  9615  !         *CLI_S+3,'A';*BC_8,<161>
  9616  !         *CLI_S+3,'L';*BC_7,<3>
  9617  !%finish
56856 @ 465883:               LINE   9613 "regression-compile-tmp/imp918s.imp"
56857 @ 465921:               LABEL  L_0198

  9618  Label161:     J=85;K=92; ->Label131
56858 @ 465924:               LINE   9618 "regression-compile-tmp/imp918s.imp"
56859 @ 465962:               LABEL  L_0199
56860 @ 465965:               LINE   9618 "regression-compile-tmp/imp918s.imp"
56861 @ 466003:               PUSH   J
56862 @ 466006:               PUSHI  #0x00000055
56863 @ 466011:               ASSVAL
56864 @ 466012:               LINE   9618 "regression-compile-tmp/imp918s.imp"
56865 @ 466050:               PUSH   K
56866 @ 466053:               PUSHI  #0x0000005c
56867 @ 466058:               ASSVAL
56868 @ 466059:               LINE   9618 "regression-compile-tmp/imp918s.imp"
56869 @ 466097:               JUMP   L_0194

  9619  Label1017:                                  !PHRASE UCSS - STORE-TO-STORE
56870 @ 466100:               LINE   9619 "regression-compile-tmp/imp918s.imp"
56871 @ 466138:               LABEL  L_019a

  9620           J=94; K=106; ->Label131
56872 @ 466141:               LINE   9620 "regression-compile-tmp/imp918s.imp"
56873 @ 466179:               PUSH   J
56874 @ 466182:               PUSHI  #0x0000005e
56875 @ 466187:               ASSVAL
56876 @ 466188:               LINE   9620 "regression-compile-tmp/imp918s.imp"
56877 @ 466226:               PUSH   K
56878 @ 466229:               PUSHI  #0x0000006a
56879 @ 466234:               ASSVAL
56880 @ 466235:               LINE   9620 "regression-compile-tmp/imp918s.imp"
56881 @ 466273:               JUMP   L_0194

  9621  Label1018:                                  !PHRASE UCPD PACKED DECIMAL
56882 @ 466276:               LINE   9621 "regression-compile-tmp/imp918s.imp"
56883 @ 466314:               LABEL  L_019b

  9622           J=108; K=116; ->Label131
56884 @ 466317:               LINE   9622 "regression-compile-tmp/imp918s.imp"
56885 @ 466355:               PUSH   J
56886 @ 466358:               PUSHI  #0x0000006c
56887 @ 466363:               ASSVAL
56888 @ 466364:               LINE   9622 "regression-compile-tmp/imp918s.imp"
56889 @ 466402:               PUSH   K
56890 @ 466405:               PUSHI  #0x00000074
56891 @ 466410:               ASSVAL
56892 @ 466411:               LINE   9622 "regression-compile-tmp/imp918s.imp"
56893 @ 466449:               JUMP   L_0194

  9623  Label1019:                                  !UCSPEC - THE FUNNIES.
56894 @ 466452:               LINE   9623 "regression-compile-tmp/imp918s.imp"
56895 @ 466490:               LABEL  L_019c

  9624           J=118; K=120; ->Label131
56896 @ 466493:               LINE   9624 "regression-compile-tmp/imp918s.imp"
56897 @ 466531:               PUSH   J
56898 @ 466534:               PUSHI  #0x00000076
56899 @ 466539:               ASSVAL
56900 @ 466540:               LINE   9624 "regression-compile-tmp/imp918s.imp"
56901 @ 466578:               PUSH   K
56902 @ 466581:               PUSHI  #0x00000078
56903 @ 466586:               ASSVAL
56904 @ 466587:               LINE   9624 "regression-compile-tmp/imp918s.imp"
56905 @ 466625:               JUMP   L_0194

  9625  Label1021:                                     ! P<CHKIMPS>
56906 @ 466628:               LINE   9625 "regression-compile-tmp/imp918s.imp"
56907 @ 466666:               LABEL  L_019d

  9626           ->Label3 %UNLESS IMPS=1; ->Label2
  9627                
56908 @ 466669:               LINE   9626 "regression-compile-tmp/imp918s.imp"
56909 @ 466707:               PUSH   IMPS
56910 @ 466710:               PUSHI  #0x00000001
56911 @ 466715:               JUMPIF = L_0004
56912 @ 466719:               JUMP   L_0178
56913 @ 466722:               LOCATE L_0004
56914 @ 466725:               LINE   9626 "regression-compile-tmp/imp918s.imp"
56915 @ 466763:               JUMP   L_0173

  9628  Label1022:                                   ! P(+')=+,-,\,0;
  9629  !         I=BYTEINTEGER(QP)
  9630  !         %IF I='+' %THEN A(R)=1 %AND QP=QP+1 %AND ->Label1
  9631  !         %IF I='-' %THEN A(R)=2 %AND QP=QP+1 %AND ->Label1
  9632  !         %IF I='\' %THEN QP=QP+1 %AND A(R)=3 %AND ->Label1
  9633  !         A(R)=4
  9634  !         ->Label1
  9635  !%if USE MC = 1 %start
  9636  !         *CLI_0(6),'+'; *BC_8,<10221>
  9637  !         *CLI_0(6),'-'; *BC_8,<10222>
  9638  !         *CLI_0(6),'\'; *BC_8,<10223>
  9639  !         *LA_3,4; *L_2,R; *LA_2,1(2); *ST_2,R
  9640  !         *AR_2,2; *STH_3,A+28(2)
  9641  !         *LA_1,4(1); *BC_15,<12>
  9642  !%finish
56916 @ 466766:               LINE   9628 "regression-compile-tmp/imp918s.imp"
56917 @ 466804:               LABEL  L_019e

  9643  Label10221:   A(R)=1; QP=QP+1; ->Label1
56918 @ 466807:               LINE   9643 "regression-compile-tmp/imp918s.imp"
56919 @ 466845:               LABEL  L_019f
56920 @ 466848:               LINE   9643 "regression-compile-tmp/imp918s.imp"
56921 @ 466886:               PUSH   A
56922 @ 466889:               PUSH   R
56923 @ 466892:               ACCESS
56924 @ 466893:               PUSHI  #0x00000001
56925 @ 466898:               ASSVAL
56926 @ 466899:               LINE   9643 "regression-compile-tmp/imp918s.imp"
56927 @ 466937:               PUSH   QP
56928 @ 466940:               PUSH   QP
56929 @ 466943:               PUSHI  #0x00000001
56930 @ 466948:               ADD   
56931 @ 466949:               ASSVAL
56932 @ 466950:               LINE   9643 "regression-compile-tmp/imp918s.imp"
56933 @ 466988:               JUMP   L_0172

  9644  Label10222:   A(R)=2; QP=QP+1; ->Label1
56934 @ 466991:               LINE   9644 "regression-compile-tmp/imp918s.imp"
56935 @ 467029:               LABEL  L_01a0
56936 @ 467032:               LINE   9644 "regression-compile-tmp/imp918s.imp"
56937 @ 467070:               PUSH   A
56938 @ 467073:               PUSH   R
56939 @ 467076:               ACCESS
56940 @ 467077:               PUSHI  #0x00000002
56941 @ 467082:               ASSVAL
56942 @ 467083:               LINE   9644 "regression-compile-tmp/imp918s.imp"
56943 @ 467121:               PUSH   QP
56944 @ 467124:               PUSH   QP
56945 @ 467127:               PUSHI  #0x00000001
56946 @ 467132:               ADD   
56947 @ 467133:               ASSVAL
56948 @ 467134:               LINE   9644 "regression-compile-tmp/imp918s.imp"
56949 @ 467172:               JUMP   L_0172

  9645  Label10223:   A(R)=3; QP=QP+1; ->Label1
56950 @ 467175:               LINE   9645 "regression-compile-tmp/imp918s.imp"
56951 @ 467213:               LABEL  L_01a1
56952 @ 467216:               LINE   9645 "regression-compile-tmp/imp918s.imp"
56953 @ 467254:               PUSH   A
56954 @ 467257:               PUSH   R
56955 @ 467260:               ACCESS
56956 @ 467261:               PUSHI  #0x00000003
56957 @ 467266:               ASSVAL
56958 @ 467267:               LINE   9645 "regression-compile-tmp/imp918s.imp"
56959 @ 467305:               PUSH   QP
56960 @ 467308:               PUSH   QP
56961 @ 467311:               PUSHI  #0x00000001
56962 @ 467316:               ADD   
56963 @ 467317:               ASSVAL
56964 @ 467318:               LINE   9645 "regression-compile-tmp/imp918s.imp"
56965 @ 467356:               JUMP   L_0172

  9646  Label1023:                                   ! P(OP)=**,+,-,!!,!,*,//,/,
  9647                                          ! &,>>,<<,.;
56966 @ 467359:               LINE   9646 "regression-compile-tmp/imp918s.imp"
56967 @ 467397:               LABEL  L_01a2

  9648           I=BYTEINTEGER(QP)
56968 @ 467400:               LINE   9648 "regression-compile-tmp/imp918s.imp"
56969 @ 467438:               PUSH   I
56970 @ 467441:               PUSH   BYTEINTEGER
56971 @ 467444:               PUSH   QP
56972 @ 467447:               ASSPAR
56973 @ 467448:               CALL  
56974 @ 467449:               ASSVAL

  9649           ->Label3 %UNLESS X'80000000'>>(I-32)&X'4237000A'#0
56975 @ 467450:               LINE   9649 "regression-compile-tmp/imp918s.imp"
56976 @ 467488:               PUSHI  #0x80000000
56977 @ 467493:               PUSH   I
56978 @ 467496:               PUSHI  #0x00000020
56979 @ 467501:               SUB   
56980 @ 467502:               RSH   
56981 @ 467503:               PUSHI  #0x4237000a
56982 @ 467508:               AND   
56983 @ 467509:               PUSHI  #0x00000000
56984 @ 467514:               JUMPIF # L_0004
56985 @ 467518:               JUMP   L_0178
56986 @ 467521:               LOCATE L_0004

  9650           QP=QP+1
56987 @ 467524:               LINE   9650 "regression-compile-tmp/imp918s.imp"
56988 @ 467562:               PUSH   QP
56989 @ 467565:               PUSH   QP
56990 @ 467568:               PUSHI  #0x00000001
56991 @ 467573:               ADD   
56992 @ 467574:               ASSVAL

  9651           %IF I='+' %THEN A(R)=2 %AND ->Label1
56993 @ 467575:               LINE   9651 "regression-compile-tmp/imp918s.imp"
56994 @ 467613:               PUSH   I
56995 @ 467616:               PUSHI  #0x0000002b
56996 @ 467621:               JUMPIF # L_0004
56997 @ 467625:               PUSH   A
56998 @ 467628:               PUSH   R
56999 @ 467631:               ACCESS
57000 @ 467632:               PUSHI  #0x00000002
57001 @ 467637:               ASSVAL
57002 @ 467638:               JUMP   L_0172
57003 @ 467641:               LOCATE L_0004

  9652           %IF I='-' %THEN A(R)=3 %AND ->Label1
57004 @ 467644:               LINE   9652 "regression-compile-tmp/imp918s.imp"
57005 @ 467682:               PUSH   I
57006 @ 467685:               PUSHI  #0x0000002d
57007 @ 467690:               JUMPIF # L_0004
57008 @ 467694:               PUSH   A
57009 @ 467697:               PUSH   R
57010 @ 467700:               ACCESS
57011 @ 467701:               PUSHI  #0x00000003
57012 @ 467706:               ASSVAL
57013 @ 467707:               JUMP   L_0172
57014 @ 467710:               LOCATE L_0004

  9653           J=BYTEINTEGER(QP)
57015 @ 467713:               LINE   9653 "regression-compile-tmp/imp918s.imp"
57016 @ 467751:               PUSH   J
57017 @ 467754:               PUSH   BYTEINTEGER
57018 @ 467757:               PUSH   QP
57019 @ 467760:               ASSPAR
57020 @ 467761:               CALL  
57021 @ 467762:               ASSVAL

  9654           %IF I='*' %THEN %START
57022 @ 467763:               LINE   9654 "regression-compile-tmp/imp918s.imp"
57023 @ 467801:               PUSH   I
57024 @ 467804:               PUSHI  #0x0000002a
57025 @ 467809:               JUMPIF # L_0004

  9655              %IF J#I %THEN A(R)=6 %AND ->Label1
57026 @ 467813:               LINE   9655 "regression-compile-tmp/imp918s.imp"
57027 @ 467851:               PUSH   J
57028 @ 467854:               PUSH   I
57029 @ 467857:               JUMPIF = L_0007
57030 @ 467861:               PUSH   A
57031 @ 467864:               PUSH   R
57032 @ 467867:               ACCESS
57033 @ 467868:               PUSHI  #0x00000006
57034 @ 467873:               ASSVAL
57035 @ 467874:               JUMP   L_0172
57036 @ 467877:               LOCATE L_0007

  9656              A(R)=1; QP=QP+1; ->Label1
57037 @ 467880:               LINE   9656 "regression-compile-tmp/imp918s.imp"
57038 @ 467918:               PUSH   A
57039 @ 467921:               PUSH   R
57040 @ 467924:               ACCESS
57041 @ 467925:               PUSHI  #0x00000001
57042 @ 467930:               ASSVAL
57043 @ 467931:               LINE   9656 "regression-compile-tmp/imp918s.imp"
57044 @ 467969:               PUSH   QP
57045 @ 467972:               PUSH   QP
57046 @ 467975:               PUSHI  #0x00000001
57047 @ 467980:               ADD   
57048 @ 467981:               ASSVAL
57049 @ 467982:               LINE   9656 "regression-compile-tmp/imp918s.imp"
57050 @ 468020:               JUMP   L_0172

  9657           %FINISH
57051 @ 468023:               LINE   9657 "regression-compile-tmp/imp918s.imp"
57052 @ 468061:               LOCATE L_0004

  9658           %IF I='/' %THEN %START
57053 @ 468064:               LINE   9658 "regression-compile-tmp/imp918s.imp"
57054 @ 468102:               PUSH   I
57055 @ 468105:               PUSHI  #0x0000002f
57056 @ 468110:               JUMPIF # L_0004

  9659              %IF J#I %THEN A(R)=8 %AND ->Label1
57057 @ 468114:               LINE   9659 "regression-compile-tmp/imp918s.imp"
57058 @ 468152:               PUSH   J
57059 @ 468155:               PUSH   I
57060 @ 468158:               JUMPIF = L_0007
57061 @ 468162:               PUSH   A
57062 @ 468165:               PUSH   R
57063 @ 468168:               ACCESS
57064 @ 468169:               PUSHI  #0x00000008
57065 @ 468174:               ASSVAL
57066 @ 468175:               JUMP   L_0172
57067 @ 468178:               LOCATE L_0007

  9660              A(R)=7; QP=QP+1; ->Label1
57068 @ 468181:               LINE   9660 "regression-compile-tmp/imp918s.imp"
57069 @ 468219:               PUSH   A
57070 @ 468222:               PUSH   R
57071 @ 468225:               ACCESS
57072 @ 468226:               PUSHI  #0x00000007
57073 @ 468231:               ASSVAL
57074 @ 468232:               LINE   9660 "regression-compile-tmp/imp918s.imp"
57075 @ 468270:               PUSH   QP
57076 @ 468273:               PUSH   QP
57077 @ 468276:               PUSHI  #0x00000001
57078 @ 468281:               ADD   
57079 @ 468282:               ASSVAL
57080 @ 468283:               LINE   9660 "regression-compile-tmp/imp918s.imp"
57081 @ 468321:               JUMP   L_0172

  9661           %FINISH
57082 @ 468324:               LINE   9661 "regression-compile-tmp/imp918s.imp"
57083 @ 468362:               LOCATE L_0004

  9662           %IF I='!' %THEN %START
57084 @ 468365:               LINE   9662 "regression-compile-tmp/imp918s.imp"
57085 @ 468403:               PUSH   I
57086 @ 468406:               PUSHI  #0x00000021
57087 @ 468411:               JUMPIF # L_0004

  9663              %IF J#I %THEN A(R)=5 %AND ->Label1
57088 @ 468415:               LINE   9663 "regression-compile-tmp/imp918s.imp"
57089 @ 468453:               PUSH   J
57090 @ 468456:               PUSH   I
57091 @ 468459:               JUMPIF = L_0007
57092 @ 468463:               PUSH   A
57093 @ 468466:               PUSH   R
57094 @ 468469:               ACCESS
57095 @ 468470:               PUSHI  #0x00000005
57096 @ 468475:               ASSVAL
57097 @ 468476:               JUMP   L_0172
57098 @ 468479:               LOCATE L_0007

  9664              A(R)=4; QP=QP+1; ->Label1
57099 @ 468482:               LINE   9664 "regression-compile-tmp/imp918s.imp"
57100 @ 468520:               PUSH   A
57101 @ 468523:               PUSH   R
57102 @ 468526:               ACCESS
57103 @ 468527:               PUSHI  #0x00000004
57104 @ 468532:               ASSVAL
57105 @ 468533:               LINE   9664 "regression-compile-tmp/imp918s.imp"
57106 @ 468571:               PUSH   QP
57107 @ 468574:               PUSH   QP
57108 @ 468577:               PUSHI  #0x00000001
57109 @ 468582:               ADD   
57110 @ 468583:               ASSVAL
57111 @ 468584:               LINE   9664 "regression-compile-tmp/imp918s.imp"
57112 @ 468622:               JUMP   L_0172

  9665           %FINISH
57113 @ 468625:               LINE   9665 "regression-compile-tmp/imp918s.imp"
57114 @ 468663:               LOCATE L_0004

  9666           %IF I='&' %THEN A(R)=9 %AND ->Label1
57115 @ 468666:               LINE   9666 "regression-compile-tmp/imp918s.imp"
57116 @ 468704:               PUSH   I
57117 @ 468707:               PUSHI  #0x00000026
57118 @ 468712:               JUMPIF # L_0004
57119 @ 468716:               PUSH   A
57120 @ 468719:               PUSH   R
57121 @ 468722:               ACCESS
57122 @ 468723:               PUSHI  #0x00000009
57123 @ 468728:               ASSVAL
57124 @ 468729:               JUMP   L_0172
57125 @ 468732:               LOCATE L_0004

  9667           %IF I='.' %THEN A(R)=12 %AND ->Label1
57126 @ 468735:               LINE   9667 "regression-compile-tmp/imp918s.imp"
57127 @ 468773:               PUSH   I
57128 @ 468776:               PUSHI  #0x0000002e
57129 @ 468781:               JUMPIF # L_0004
57130 @ 468785:               PUSH   A
57131 @ 468788:               PUSH   R
57132 @ 468791:               ACCESS
57133 @ 468792:               PUSHI  #0x0000000c
57134 @ 468797:               ASSVAL
57135 @ 468798:               JUMP   L_0172
57136 @ 468801:               LOCATE L_0004

  9668           %IF I=J='<' %THEN A(R)=11 %AND QP=QP+1 %AND ->Label1
57137 @ 468804:               LINE   9668 "regression-compile-tmp/imp918s.imp"
57138 @ 468842:               PUSH   I
57139 @ 468845:               PUSH   J
57140 @ 468848:               JUMPIFD # L_0004
57141 @ 468852:               PUSHI  #0x0000003c
57142 @ 468857:               JUMPIF # L_0004
57143 @ 468861:               PUSH   A
57144 @ 468864:               PUSH   R
57145 @ 468867:               ACCESS
57146 @ 468868:               PUSHI  #0x0000000b
57147 @ 468873:               ASSVAL
57148 @ 468874:               PUSH   QP
57149 @ 468877:               PUSH   QP
57150 @ 468880:               PUSHI  #0x00000001
57151 @ 468885:               ADD   
57152 @ 468886:               ASSVAL
57153 @ 468887:               JUMP   L_0172
57154 @ 468890:               LOCATE L_0004

  9669           %IF I=J='>' %THEN A(R)=10 %AND QP=QP+1 %AND ->Label1
57155 @ 468893:               LINE   9669 "regression-compile-tmp/imp918s.imp"
57156 @ 468931:               PUSH   I
57157 @ 468934:               PUSH   J
57158 @ 468937:               JUMPIFD # L_0004
57159 @ 468941:               PUSHI  #0x0000003e
57160 @ 468946:               JUMPIF # L_0004
57161 @ 468950:               PUSH   A
57162 @ 468953:               PUSH   R
57163 @ 468956:               ACCESS
57164 @ 468957:               PUSHI  #0x0000000a
57165 @ 468962:               ASSVAL
57166 @ 468963:               PUSH   QP
57167 @ 468966:               PUSH   QP
57168 @ 468969:               PUSHI  #0x00000001
57169 @ 468974:               ADD   
57170 @ 468975:               ASSVAL
57171 @ 468976:               JUMP   L_0172
57172 @ 468979:               LOCATE L_0004

  9670           ->Label3
57173 @ 468982:               LINE   9670 "regression-compile-tmp/imp918s.imp"
57174 @ 469020:               JUMP   L_0178

  9671  Label1024:                                   ! P(ASSOP)='==','=','<-','->'
57175 @ 469023:               LINE   9671 "regression-compile-tmp/imp918s.imp"
57176 @ 469061:               LABEL  L_01a3

  9672           I=BYTEINTEGER(QP)
57177 @ 469064:               LINE   9672 "regression-compile-tmp/imp918s.imp"
57178 @ 469102:               PUSH   I
57179 @ 469105:               PUSH   BYTEINTEGER
57180 @ 469108:               PUSH   QP
57181 @ 469111:               ASSPAR
57182 @ 469112:               CALL  
57183 @ 469113:               ASSVAL

  9673           ->Label3 %UNLESS X'80000000'>>(I-32)&X'4000C'#0
57184 @ 469114:               LINE   9673 "regression-compile-tmp/imp918s.imp"
57185 @ 469152:               PUSHI  #0x80000000
57186 @ 469157:               PUSH   I
57187 @ 469160:               PUSHI  #0x00000020
57188 @ 469165:               SUB   
57189 @ 469166:               RSH   
57190 @ 469167:               PUSHI  #0x0004000c
57191 @ 469172:               AND   
57192 @ 469173:               PUSHI  #0x00000000
57193 @ 469178:               JUMPIF # L_0004
57194 @ 469182:               JUMP   L_0178
57195 @ 469185:               LOCATE L_0004

  9674           QP=QP+1; J=BYTEINTEGER(QP)
57196 @ 469188:               LINE   9674 "regression-compile-tmp/imp918s.imp"
57197 @ 469226:               PUSH   QP
57198 @ 469229:               PUSH   QP
57199 @ 469232:               PUSHI  #0x00000001
57200 @ 469237:               ADD   
57201 @ 469238:               ASSVAL
57202 @ 469239:               LINE   9674 "regression-compile-tmp/imp918s.imp"
57203 @ 469277:               PUSH   J
57204 @ 469280:               PUSH   BYTEINTEGER
57205 @ 469283:               PUSH   QP
57206 @ 469286:               ASSPAR
57207 @ 469287:               CALL  
57208 @ 469288:               ASSVAL

  9675           %IF I='=' %THEN %START
57209 @ 469289:               LINE   9675 "regression-compile-tmp/imp918s.imp"
57210 @ 469327:               PUSH   I
57211 @ 469330:               PUSHI  #0x0000003d
57212 @ 469335:               JUMPIF # L_0004

  9676              %IF J=I %THEN QP=QP+1 %AND  A(R)=1 %AND ->Label1
57213 @ 469339:               LINE   9676 "regression-compile-tmp/imp918s.imp"
57214 @ 469377:               PUSH   J
57215 @ 469380:               PUSH   I
57216 @ 469383:               JUMPIF # L_0007
57217 @ 469387:               PUSH   QP
57218 @ 469390:               PUSH   QP
57219 @ 469393:               PUSHI  #0x00000001
57220 @ 469398:               ADD   
57221 @ 469399:               ASSVAL
57222 @ 469400:               PUSH   A
57223 @ 469403:               PUSH   R
57224 @ 469406:               ACCESS
57225 @ 469407:               PUSHI  #0x00000001
57226 @ 469412:               ASSVAL
57227 @ 469413:               JUMP   L_0172
57228 @ 469416:               LOCATE L_0007

  9677              A(R)=2; ->Label1
57229 @ 469419:               LINE   9677 "regression-compile-tmp/imp918s.imp"
57230 @ 469457:               PUSH   A
57231 @ 469460:               PUSH   R
57232 @ 469463:               ACCESS
57233 @ 469464:               PUSHI  #0x00000002
57234 @ 469469:               ASSVAL
57235 @ 469470:               LINE   9677 "regression-compile-tmp/imp918s.imp"
57236 @ 469508:               JUMP   L_0172

  9678           %FINISH
57237 @ 469511:               LINE   9678 "regression-compile-tmp/imp918s.imp"
57238 @ 469549:               LOCATE L_0004

  9679           %IF I='<' %AND J='-' %THEN A(R)=3 %AND QP=QP+1 %AND ->Label1
57239 @ 469552:               LINE   9679 "regression-compile-tmp/imp918s.imp"
57240 @ 469590:               PUSH   I
57241 @ 469593:               PUSHI  #0x0000003c
57242 @ 469598:               JUMPIF # L_0004
57243 @ 469602:               PUSH   J
57244 @ 469605:               PUSHI  #0x0000002d
57245 @ 469610:               JUMPIF # L_0004
57246 @ 469614:               PUSH   A
57247 @ 469617:               PUSH   R
57248 @ 469620:               ACCESS
57249 @ 469621:               PUSHI  #0x00000003
57250 @ 469626:               ASSVAL
57251 @ 469627:               PUSH   QP
57252 @ 469630:               PUSH   QP
57253 @ 469633:               PUSHI  #0x00000001
57254 @ 469638:               ADD   
57255 @ 469639:               ASSVAL
57256 @ 469640:               JUMP   L_0172
57257 @ 469643:               LOCATE L_0004

  9680           %IF I='-' %AND J='>' %THEN A(R)=4 %AND QP=QP+1 %AND ->Label1
57258 @ 469646:               LINE   9680 "regression-compile-tmp/imp918s.imp"
57259 @ 469684:               PUSH   I
57260 @ 469687:               PUSHI  #0x0000002d
57261 @ 469692:               JUMPIF # L_0004
57262 @ 469696:               PUSH   J
57263 @ 469699:               PUSHI  #0x0000003e
57264 @ 469704:               JUMPIF # L_0004
57265 @ 469708:               PUSH   A
57266 @ 469711:               PUSH   R
57267 @ 469714:               ACCESS
57268 @ 469715:               PUSHI  #0x00000004
57269 @ 469720:               ASSVAL
57270 @ 469721:               PUSH   QP
57271 @ 469724:               PUSH   QP
57272 @ 469727:               PUSHI  #0x00000001
57273 @ 469732:               ADD   
57274 @ 469733:               ASSVAL
57275 @ 469734:               JUMP   L_0172
57276 @ 469737:               LOCATE L_0004

  9681           ->Label3
  9682  
57277 @ 469740:               LINE   9681 "regression-compile-tmp/imp918s.imp"
57278 @ 469778:               JUMP   L_0178

  9683  Label1025:                                   ! P(COMP)= =,>=,>,#,<=,<,\=,->
57279 @ 469781:               LINE   9683 "regression-compile-tmp/imp918s.imp"
57280 @ 469819:               LABEL  L_01a4

  9684           I=BYTEINTEGER(QP)
57281 @ 469822:               LINE   9684 "regression-compile-tmp/imp918s.imp"
57282 @ 469860:               PUSH   I
57283 @ 469863:               PUSH   BYTEINTEGER
57284 @ 469866:               PUSH   QP
57285 @ 469869:               ASSPAR
57286 @ 469870:               CALL  
57287 @ 469871:               ASSVAL

  9685           ->Label3 %UNLESS I=92 %OR %C
  9686              X'80000000'>>(I-32)&X'1004000E'#0
57288 @ 469872:               LINE   9685 "regression-compile-tmp/imp918s.imp"
57289 @ 469910:               PUSH   I
57290 @ 469913:               PUSHI  #0x0000005c
57291 @ 469918:               JUMPIF = L_0004
57292 @ 469922:               PUSHI  #0x80000000
57293 @ 469927:               PUSH   I
57294 @ 469930:               PUSHI  #0x00000020
57295 @ 469935:               SUB   
57296 @ 469936:               RSH   
57297 @ 469937:               PUSHI  #0x1004000e
57298 @ 469942:               AND   
57299 @ 469943:               PUSHI  #0x00000000
57300 @ 469948:               JUMPIF # L_0004
57301 @ 469952:               JUMP   L_0178
57302 @ 469955:               LOCATE L_0004

  9687           QP=QP+1
57303 @ 469958:               LINE   9687 "regression-compile-tmp/imp918s.imp"
57304 @ 469996:               PUSH   QP
57305 @ 469999:               PUSH   QP
57306 @ 470002:               PUSHI  #0x00000001
57307 @ 470007:               ADD   
57308 @ 470008:               ASSVAL

  9688           %IF I='=' %THEN A(R)=1 %AND ->Label1
57309 @ 470009:               LINE   9688 "regression-compile-tmp/imp918s.imp"
57310 @ 470047:               PUSH   I
57311 @ 470050:               PUSHI  #0x0000003d
57312 @ 470055:               JUMPIF # L_0004
57313 @ 470059:               PUSH   A
57314 @ 470062:               PUSH   R
57315 @ 470065:               ACCESS
57316 @ 470066:               PUSHI  #0x00000001
57317 @ 470071:               ASSVAL
57318 @ 470072:               JUMP   L_0172
57319 @ 470075:               LOCATE L_0004

  9689           %IF I='#' %THEN A(R)=4 %AND ->Label1
57320 @ 470078:               LINE   9689 "regression-compile-tmp/imp918s.imp"
57321 @ 470116:               PUSH   I
57322 @ 470119:               PUSHI  #0x00000023
57323 @ 470124:               JUMPIF # L_0004
57324 @ 470128:               PUSH   A
57325 @ 470131:               PUSH   R
57326 @ 470134:               ACCESS
57327 @ 470135:               PUSHI  #0x00000004
57328 @ 470140:               ASSVAL
57329 @ 470141:               JUMP   L_0172
57330 @ 470144:               LOCATE L_0004

  9690           J=BYTEINTEGER(QP)
57331 @ 470147:               LINE   9690 "regression-compile-tmp/imp918s.imp"
57332 @ 470185:               PUSH   J
57333 @ 470188:               PUSH   BYTEINTEGER
57334 @ 470191:               PUSH   QP
57335 @ 470194:               ASSPAR
57336 @ 470195:               CALL  
57337 @ 470196:               ASSVAL

  9691           %IF I='>' %THEN %START
57338 @ 470197:               LINE   9691 "regression-compile-tmp/imp918s.imp"
57339 @ 470235:               PUSH   I
57340 @ 470238:               PUSHI  #0x0000003e
57341 @ 470243:               JUMPIF # L_0004

  9692              %IF J='=' %THEN QP=QP+1 %AND A(R)=2 %AND ->Label1
57342 @ 470247:               LINE   9692 "regression-compile-tmp/imp918s.imp"
57343 @ 470285:               PUSH   J
57344 @ 470288:               PUSHI  #0x0000003d
57345 @ 470293:               JUMPIF # L_0007
57346 @ 470297:               PUSH   QP
57347 @ 470300:               PUSH   QP
57348 @ 470303:               PUSHI  #0x00000001
57349 @ 470308:               ADD   
57350 @ 470309:               ASSVAL
57351 @ 470310:               PUSH   A
57352 @ 470313:               PUSH   R
57353 @ 470316:               ACCESS
57354 @ 470317:               PUSHI  #0x00000002
57355 @ 470322:               ASSVAL
57356 @ 470323:               JUMP   L_0172
57357 @ 470326:               LOCATE L_0007

  9693              A(R)=3; ->Label1
57358 @ 470329:               LINE   9693 "regression-compile-tmp/imp918s.imp"
57359 @ 470367:               PUSH   A
57360 @ 470370:               PUSH   R
57361 @ 470373:               ACCESS
57362 @ 470374:               PUSHI  #0x00000003
57363 @ 470379:               ASSVAL
57364 @ 470380:               LINE   9693 "regression-compile-tmp/imp918s.imp"
57365 @ 470418:               JUMP   L_0172

  9694           %FINISH
57366 @ 470421:               LINE   9694 "regression-compile-tmp/imp918s.imp"
57367 @ 470459:               LOCATE L_0004

  9695           %IF I='<' %THEN %START
57368 @ 470462:               LINE   9695 "regression-compile-tmp/imp918s.imp"
57369 @ 470500:               PUSH   I
57370 @ 470503:               PUSHI  #0x0000003c
57371 @ 470508:               JUMPIF # L_0004

  9696              %IF J='=' %THEN QP=QP+1 %AND A(R)=5 %AND ->Label1
57372 @ 470512:               LINE   9696 "regression-compile-tmp/imp918s.imp"
57373 @ 470550:               PUSH   J
57374 @ 470553:               PUSHI  #0x0000003d
57375 @ 470558:               JUMPIF # L_0007
57376 @ 470562:               PUSH   QP
57377 @ 470565:               PUSH   QP
57378 @ 470568:               PUSHI  #0x00000001
57379 @ 470573:               ADD   
57380 @ 470574:               ASSVAL
57381 @ 470575:               PUSH   A
57382 @ 470578:               PUSH   R
57383 @ 470581:               ACCESS
57384 @ 470582:               PUSHI  #0x00000005
57385 @ 470587:               ASSVAL
57386 @ 470588:               JUMP   L_0172
57387 @ 470591:               LOCATE L_0007

  9697              A(R)=6; ->Label1
57388 @ 470594:               LINE   9697 "regression-compile-tmp/imp918s.imp"
57389 @ 470632:               PUSH   A
57390 @ 470635:               PUSH   R
57391 @ 470638:               ACCESS
57392 @ 470639:               PUSHI  #0x00000006
57393 @ 470644:               ASSVAL
57394 @ 470645:               LINE   9697 "regression-compile-tmp/imp918s.imp"
57395 @ 470683:               JUMP   L_0172

  9698           %FINISH
57396 @ 470686:               LINE   9698 "regression-compile-tmp/imp918s.imp"
57397 @ 470724:               LOCATE L_0004

  9699           %IF I=92 %AND J='=' %THEN QP=QP+1 %AND A(R)=7 %AND ->Label1
57398 @ 470727:               LINE   9699 "regression-compile-tmp/imp918s.imp"
57399 @ 470765:               PUSH   I
57400 @ 470768:               PUSHI  #0x0000005c
57401 @ 470773:               JUMPIF # L_0004
57402 @ 470777:               PUSH   J
57403 @ 470780:               PUSHI  #0x0000003d
57404 @ 470785:               JUMPIF # L_0004
57405 @ 470789:               PUSH   QP
57406 @ 470792:               PUSH   QP
57407 @ 470795:               PUSHI  #0x00000001
57408 @ 470800:               ADD   
57409 @ 470801:               ASSVAL
57410 @ 470802:               PUSH   A
57411 @ 470805:               PUSH   R
57412 @ 470808:               ACCESS
57413 @ 470809:               PUSHI  #0x00000007
57414 @ 470814:               ASSVAL
57415 @ 470815:               JUMP   L_0172
57416 @ 470818:               LOCATE L_0004

  9700           %IF I='-' %AND J='>' %THEN QP=QP+1 %AND A(R)=8 %AND ->Label1
57417 @ 470821:               LINE   9700 "regression-compile-tmp/imp918s.imp"
57418 @ 470859:               PUSH   I
57419 @ 470862:               PUSHI  #0x0000002d
57420 @ 470867:               JUMPIF # L_0004
57421 @ 470871:               PUSH   J
57422 @ 470874:               PUSHI  #0x0000003e
57423 @ 470879:               JUMPIF # L_0004
57424 @ 470883:               PUSH   QP
57425 @ 470886:               PUSH   QP
57426 @ 470889:               PUSHI  #0x00000001
57427 @ 470894:               ADD   
57428 @ 470895:               ASSVAL
57429 @ 470896:               PUSH   A
57430 @ 470899:               PUSH   R
57431 @ 470902:               ACCESS
57432 @ 470903:               PUSHI  #0x00000008
57433 @ 470908:               ASSVAL
57434 @ 470909:               JUMP   L_0172
57435 @ 470912:               LOCATE L_0004

  9701           ->Label3
57436 @ 470915:               LINE   9701 "regression-compile-tmp/imp918s.imp"
57437 @ 470953:               JUMP   L_0178

  9702  %END                    ;! OF ROUTINE 'COMPARE'
  9703  !%finish
57438 @ 470956:               LINE   9702 "regression-compile-tmp/imp918s.imp"
57439 @ 470994:            END    _lev0id0_COMPARE {lev=2 --> 1}

  9704           %ENDOFPROGRAM
57440 @ 470995:            LINE   9704 "regression-compile-tmp/imp918s.imp"
57441 @ 471033:         END    _lev0id0 {lev=1 --> 0}
57442 @ 471034:         END     {lev=0 --> -1}
57443 @ 471035: 

