
     1  %const %string (1) SNL ="
     2  "
503 @ 4405:         LINE   1 "regression-compile-tmp/compare.imp"
504 @ 4443:         PUSHS  "\n"
505 @ 4446:         DEF    SNL p1=V_0081 a/tf=31 b/format=1 c/ostate=12  type=3 (string) form=1 (simple) special=0 (<special:0>) linkage=2 (constant) spec=0 indirect=1 unass=0
506 @ 4461:         INIT   1

     3  %begin
507 @ 4464:         LINE   3 "regression-compile-tmp/compare.imp"
508 @ 4502:         BEGIN  _lev0id0 {lev=0 --> 1}

     4     %const %integer TRUE = 1, FALSE = 0
509 @ 4503:            LINE   4 "regression-compile-tmp/compare.imp"

     5     %constant %integer  A stream = 1, B stream = 2
510 @ 4541:            LINE   5 "regression-compile-tmp/compare.imp"

     6     %ownstring (255) A file, B file, pr, left, right
511 @ 4579:            LINE   6 "regression-compile-tmp/compare.imp"
512 @ 4617:            DEF    AFILE p1=V_0082 a/tf=31 b/format=ff c/ostate=21  type=3 (string) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
513 @ 4634:            INIT   1
514 @ 4637:            DEF    BFILE p1=V_0083 a/tf=31 b/format=ff c/ostate=21  type=3 (string) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
515 @ 4654:            INIT   1
516 @ 4657:            DEF    PR p1=V_0084 a/tf=31 b/format=ff c/ostate=21  type=3 (string) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
517 @ 4671:            INIT   1
518 @ 4674:            DEF    LEFT p1=V_0085 a/tf=31 b/format=ff c/ostate=21  type=3 (string) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
519 @ 4690:            INIT   1
520 @ 4693:            DEF    RIGHT p1=V_0086 a/tf=31 b/format=ff c/ostate=21  type=3 (string) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
521 @ 4710:            INIT   1

     7     %ownstring (255) %array File('A':'B')
522 @ 4713:            LINE   7 "regression-compile-tmp/compare.imp"
523 @ 4751:            PUSHI  #0x00000041
524 @ 4756:            PUSHI  #0x00000042
525 @ 4761:            BOUNDS
526 @ 4762:            DEF    FILE p1=V_0087 a/tf=3b b/format=ff c/ostate=121  type=3 (string) form=11 (array) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
527 @ 4778:            INIT   2

     8     %owninteger %array Base('A':'B')
528 @ 4781:            LINE   8 "regression-compile-tmp/compare.imp"
529 @ 4819:            PUSHI  #0x00000041
530 @ 4824:            PUSHI  #0x00000042
531 @ 4829:            BOUNDS
532 @ 4830:            DEF    BASE p1=V_0088 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
533 @ 4846:            INIT   2

     9     %owninteger A count, B count
534 @ 4849:            LINE   9 "regression-compile-tmp/compare.imp"
535 @ 4887:            DEF    ACOUNT p1=V_0089 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
536 @ 4905:            INIT   1
537 @ 4908:            DEF    BCOUNT p1=V_008a 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
538 @ 4926:            INIT   1

    10     %owninteger A num, B num
    11  
539 @ 4929:            LINE   10 "regression-compile-tmp/compare.imp"
540 @ 4967:            DEF    ANUM p1=V_008b 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
541 @ 4983:            INIT   1
542 @ 4986:            DEF    BNUM p1=V_008c 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
543 @ 5002:            INIT   1

    12     %const %integer Max Lines = 512, Max Line Width = 128
544 @ 5005:            LINE   12 "regression-compile-tmp/compare.imp"

    13     %byte %integer %array AA, BB (1:Max Lines*Max Line Width)
    14  
545 @ 5043:            LINE   13 "regression-compile-tmp/compare.imp"
546 @ 5081:            DEF    AA p1=V_008d 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
547 @ 5095:            DEF    BB p1=V_008e 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
548 @ 5109:            PUSHI  #0x00000001
549 @ 5114:            PUSHI  #0x00000200
550 @ 5119:            PUSHI  #0x00000080
551 @ 5124:            MUL   
552 @ 5125:            DIM    0001 0002

    15     %integer%fn  input ended
553 @ 5131:            LINE   15 "regression-compile-tmp/compare.imp"
554 @ 5169:            DEF    INPUTENDED (_lev0id0_INPUTENDED) p1=V_008f 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
555 @ 5191:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
556 @ 5192:               FINISH ) {lev=2}

    16        %integer ch
557 @ 5193:               LINE   16 "regression-compile-tmp/compare.imp"
558 @ 5231:               DEF    CH p1=V_0090 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

    17        %on %event 9 %start
559 @ 5245:               LINE   17 "regression-compile-tmp/compare.imp"
560 @ 5283:               ON     MASK=0200 L_0004

    18           %result = TRUE
561 @ 5289:               LINE   18 "regression-compile-tmp/compare.imp"
562 @ 5327:               PUSHI  #0x00000001
563 @ 5332:               RESULT

    19        %finish
564 @ 5333:               LINE   19 "regression-compile-tmp/compare.imp"
565 @ 5371:               LOCATE L_0004

    20        ch = next symbol
566 @ 5374:               LINE   20 "regression-compile-tmp/compare.imp"
567 @ 5412:               PUSH   CH
568 @ 5415:               PUSH   NEXTSYMBOL
569 @ 5418:               CALL  
570 @ 5419:               ASSVAL

    21        %result = FALSE
571 @ 5420:               LINE   21 "regression-compile-tmp/compare.imp"
572 @ 5458:               PUSHI  #0x00000000
573 @ 5463:               RESULT

    22     %end
    23  
574 @ 5464:               LINE   22 "regression-compile-tmp/compare.imp"
575 @ 5502:            END    _lev0id0_INPUTENDED {lev=2 --> 1}

    24     %routine  Rd line (%string (*) %name s)
576 @ 5503:            LINE   24 "regression-compile-tmp/compare.imp"
577 @ 5541:            DEF    RDLINE (_lev0id0_RDLINE) p1=V_0090 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
578 @ 5559:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
579 @ 5560:                  DEF    S p1=V_0091 a/tf=32 b/format=0 c/ostate=0  type=3 (string) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
580 @ 5573:               FINISH ) {lev=2}

    25        %integer ch
581 @ 5574:               LINE   25 "regression-compile-tmp/compare.imp"
582 @ 5612:               DEF    CH p1=V_0092 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

    26        s = ""
583 @ 5626:               LINE   26 "regression-compile-tmp/compare.imp"
584 @ 5664:               PUSH   S
585 @ 5667:               PUSHS  ""
586 @ 5669:               ASSVAL

    27        %cycle
587 @ 5670:               LINE   27 "regression-compile-tmp/compare.imp"
588 @ 5708:               LOCATE L_0003

    28           read symbol (ch)
589 @ 5711:               LINE   28 "regression-compile-tmp/compare.imp"
590 @ 5749:               PUSH   READSYMBOL
591 @ 5752:               PUSH   CH
592 @ 5755:               ASSPAR
593 @ 5756:               CALL  

    29           %exit %if ch = nl %or LENGTH(s) = Max Line Width
594 @ 5757:               LINE   29 "regression-compile-tmp/compare.imp"
595 @ 5795:               PUSH   CH
596 @ 5798:               PUSHI  #0x0000000a
597 @ 5803:               JUMPIF = L_0008
598 @ 5807:               PUSH   LENGTH
599 @ 5810:               PUSH   S
600 @ 5813:               ASSPAR
601 @ 5814:               CALL  
602 @ 5815:               PUSHI  #0x00000080
603 @ 5820:               JUMPIF # L_0007
604 @ 5824:               LOCATE L_0008
605 @ 5827:               GOTO   L_0004
606 @ 5830:               LOCATE L_0007

    30           s = s.tostring(ch)
607 @ 5833:               LINE   30 "regression-compile-tmp/compare.imp"
608 @ 5871:               PUSH   S
609 @ 5874:               PUSH   S
610 @ 5877:               PUSH   TOSTRING
611 @ 5880:               PUSH   CH
612 @ 5883:               ASSPAR
613 @ 5884:               CALL  
614 @ 5885:               CONCAT
615 @ 5886:               ASSVAL

    31        %repeat
616 @ 5887:               LINE   31 "regression-compile-tmp/compare.imp"
617 @ 5925:               REPEAT L_0003
618 @ 5928:               LOCATE L_0004

    32     %end
    33  
619 @ 5931:               LINE   32 "regression-compile-tmp/compare.imp"
620 @ 5969:            END    _lev0id0_RDLINE {lev=2 --> 1}

    34     %byte %integer %map  A (%integer i, j)
621 @ 5970:            LINE   34 "regression-compile-tmp/compare.imp"
622 @ 6008:            DEF    A (_lev0id0_A) p1=V_0091 a/tf=19 b/format=2 c/ostate=0  type=1 (integer) form=9 (map) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
623 @ 6021:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
624 @ 6022:                  DEF    I p1=V_0092 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
625 @ 6035:                  DEF    J p1=V_0093 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
626 @ 6048:               FINISH ) {lev=2}

    35        %result == AA (((Base('A') + i)&(Max Lines-1))*Max Line Width + j)
627 @ 6049:               LINE   35 "regression-compile-tmp/compare.imp"
628 @ 6087:               PUSH   AA
629 @ 6090:               PUSH   BASE
630 @ 6093:               PUSHI  #0x00000041
631 @ 6098:               ACCESS
632 @ 6099:               PUSH   I
633 @ 6102:               ADD   
634 @ 6103:               PUSHI  #0x00000200
635 @ 6108:               PUSHI  #0x00000001
636 @ 6113:               SUB   
637 @ 6114:               AND   
638 @ 6115:               PUSHI  #0x00000080
639 @ 6120:               MUL   
640 @ 6121:               PUSH   J
641 @ 6124:               ADD   
642 @ 6125:               ACCESS
643 @ 6126:               MAP   

    36     %end
    37  
644 @ 6127:               LINE   36 "regression-compile-tmp/compare.imp"
645 @ 6165:            END    _lev0id0_A {lev=2 --> 1}

    38     %byte %integer %map  B (%integer i, j)
646 @ 6166:            LINE   38 "regression-compile-tmp/compare.imp"
647 @ 6204:            DEF    B (_lev0id0_B) p1=V_0092 a/tf=19 b/format=2 c/ostate=0  type=1 (integer) form=9 (map) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
648 @ 6217:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
649 @ 6218:                  DEF    I p1=V_0093 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
650 @ 6231:                  DEF    J p1=V_0094 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
651 @ 6244:               FINISH ) {lev=2}

    39        %result == BB (((Base('B') + i)&(Max Lines-1))*Max Line Width + j)
652 @ 6245:               LINE   39 "regression-compile-tmp/compare.imp"
653 @ 6283:               PUSH   BB
654 @ 6286:               PUSH   BASE
655 @ 6289:               PUSHI  #0x00000042
656 @ 6294:               ACCESS
657 @ 6295:               PUSH   I
658 @ 6298:               ADD   
659 @ 6299:               PUSHI  #0x00000200
660 @ 6304:               PUSHI  #0x00000001
661 @ 6309:               SUB   
662 @ 6310:               AND   
663 @ 6311:               PUSHI  #0x00000080
664 @ 6316:               MUL   
665 @ 6317:               PUSH   J
666 @ 6320:               ADD   
667 @ 6321:               ACCESS
668 @ 6322:               MAP   

    40     %end
    41  
669 @ 6323:               LINE   40 "regression-compile-tmp/compare.imp"
670 @ 6361:            END    _lev0id0_B {lev=2 --> 1}

    42     %routine  refill (%byte %integer %map x (%integer i, j),
    43                       %integer n,
    44                       %integer %name count)
    45  
671 @ 6362:            LINE   42 "regression-compile-tmp/compare.imp"
672 @ 6400:            DEF    REFILL (_lev0id0_REFILL) p1=V_0093 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
673 @ 6418:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
674 @ 6419:                  DEF    X (PROCEDURE PARAMETER _lev0id0_REFILL_X) ***** REPLACEMENT CONTENDER ***** p1=V_0094 a/tf=19 b/format=2 c/ostate=0  type=1 (integer) form=9 (map) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
675 @ 6432:                  DEF    N p1=V_0095 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
676 @ 6445:                  DEF    COUNT p1=V_0096 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
677 @ 6462:               FINISH ) {lev=2}
678 @ 6463:               DEF    X (_lev0id0_REFILL_X) ***** MASTER ****** p1=V_0094 a/tf=19 b/format=2 c/ostate=8  type=1 (integer) form=9 (map) special=1 (byte-integer) linkage=0 (auto) spec=1 indirect=0 unass=0
679 @ 6476:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
680 @ 6477:                  DEF    I p1=V_0097 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
681 @ 6490:                  DEF    J p1=V_0098 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
682 @ 6503:               FINISH ) {lev=2}

    46        %integer i, j, ch
683 @ 6504:               LINE   46 "regression-compile-tmp/compare.imp"
684 @ 6542:               DEF    I p1=V_0097 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
685 @ 6555:               DEF    J p1=V_0098 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
686 @ 6568:               DEF    CH 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

    47        %for i = Max Lines+1-n, 1, Max Lines %cycle
687 @ 6582:               LINE   47 "regression-compile-tmp/compare.imp"
688 @ 6620:               PUSH   I
689 @ 6623:               PUSHI  #0x00000001
690 @ 6628:               PUSHI  #0x00000200
691 @ 6633:               PUSHI  #0x00000200
692 @ 6638:               PUSHI  #0x00000001
693 @ 6643:               ADD   
694 @ 6644:               PUSH   N
695 @ 6647:               SUB   
696 @ 6648:               FOR    L_0003

    48           %cycle
697 @ 6651:               LINE   48 "regression-compile-tmp/compare.imp"
698 @ 6689:               LOCATE L_0006

    49              %return %if input ended=TRUE
699 @ 6692:               LINE   49 "regression-compile-tmp/compare.imp"
700 @ 6730:               PUSH   INPUTENDED
701 @ 6733:               CALL  
702 @ 6734:               PUSHI  #0x00000001
703 @ 6739:               JUMPIF # L_000a
704 @ 6743:               RETURN
705 @ 6744:               LOCATE L_000a

    50              Read symbol (ch)
706 @ 6747:               LINE   50 "regression-compile-tmp/compare.imp"
707 @ 6785:               PUSH   READSYMBOL
708 @ 6788:               PUSH   CH
709 @ 6791:               ASSPAR
710 @ 6792:               CALL  

    51           %repeat %until ch # nl
711 @ 6793:               LINE   51 "regression-compile-tmp/compare.imp"
712 @ 6831:               PUSH   CH
713 @ 6834:               PUSHI  #0x0000000a
714 @ 6839:               JUMPIF # L_0007
715 @ 6843:               REPEAT L_0006
716 @ 6846:               LOCATE L_0007

    52           %for j = 1, 1, Max Line Width-1 %cycle
717 @ 6849:               LINE   52 "regression-compile-tmp/compare.imp"
718 @ 6887:               PUSH   J
719 @ 6890:               PUSHI  #0x00000001
720 @ 6895:               PUSHI  #0x00000080
721 @ 6900:               PUSHI  #0x00000001
722 @ 6905:               SUB   
723 @ 6906:               PUSHI  #0x00000001
724 @ 6911:               FOR    L_0006

    53              %exit %if ch = nl %OR CH<32
725 @ 6914:               LINE   53 "regression-compile-tmp/compare.imp"
726 @ 6952:               PUSH   CH
727 @ 6955:               PUSHI  #0x0000000a
728 @ 6960:               JUMPIF = L_000b
729 @ 6964:               PUSH   CH
730 @ 6967:               PUSHI  #0x00000020
731 @ 6972:               JUMPIF >= L_000a
732 @ 6976:               LOCATE L_000b
733 @ 6979:               GOTO   L_0007
734 @ 6982:               LOCATE L_000a

    54              x (i, j) = ch
735 @ 6985:               LINE   54 "regression-compile-tmp/compare.imp"
736 @ 7023:               PUSH   X
737 @ 7026:               PUSH   I
738 @ 7029:               ASSPAR
739 @ 7030:               PUSH   J
740 @ 7033:               ASSPAR
741 @ 7034:               CALL  
742 @ 7035:               PUSH   CH
743 @ 7038:               ASSVAL

    55              %return %if input ended=TRUE
744 @ 7039:               LINE   55 "regression-compile-tmp/compare.imp"
745 @ 7077:               PUSH   INPUTENDED
746 @ 7080:               CALL  
747 @ 7081:               PUSHI  #0x00000001
748 @ 7086:               JUMPIF # L_000a
749 @ 7090:               RETURN
750 @ 7091:               LOCATE L_000a

    56              Read symbol (ch)
751 @ 7094:               LINE   56 "regression-compile-tmp/compare.imp"
752 @ 7132:               PUSH   READSYMBOL
753 @ 7135:               PUSH   CH
754 @ 7138:               ASSPAR
755 @ 7139:               CALL  

    57           %repeat
756 @ 7140:               LINE   57 "regression-compile-tmp/compare.imp"
757 @ 7178:               REPEAT L_0006
758 @ 7181:               LOCATE L_0007

    58           x (i, j) = nl
759 @ 7184:               LINE   58 "regression-compile-tmp/compare.imp"
760 @ 7222:               PUSH   X
761 @ 7225:               PUSH   I
762 @ 7228:               ASSPAR
763 @ 7229:               PUSH   J
764 @ 7232:               ASSPAR
765 @ 7233:               CALL  
766 @ 7234:               PUSHI  #0x0000000a
767 @ 7239:               ASSVAL

    59           count = count + 1
768 @ 7240:               LINE   59 "regression-compile-tmp/compare.imp"
769 @ 7278:               PUSH   COUNT
770 @ 7281:               PUSH   COUNT
771 @ 7284:               PUSHI  #0x00000001
772 @ 7289:               ADD   
773 @ 7290:               ASSVAL

    60        %repeat
774 @ 7291:               LINE   60 "regression-compile-tmp/compare.imp"
775 @ 7329:               REPEAT L_0003
776 @ 7332:               LOCATE L_0004

    61     %end
    62  
777 @ 7335:               LINE   61 "regression-compile-tmp/compare.imp"
778 @ 7373:            END    _lev0id0_REFILL {lev=2 --> 1}

    63     %routine  print (%byte %integer %map x (%integer i, j),
    64                      %integer n,
    65                               flag)
    66  
779 @ 7374:            LINE   63 "regression-compile-tmp/compare.imp"
780 @ 7412:            DEF    PRINT (_lev0id0_PRINT) p1=V_0094 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
781 @ 7429:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
782 @ 7430:                  DEF    X (PROCEDURE PARAMETER _lev0id0_PRINT_X) ***** REPLACEMENT CONTENDER ***** p1=V_0095 a/tf=19 b/format=2 c/ostate=0  type=1 (integer) form=9 (map) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
783 @ 7443:                  DEF    N p1=V_0096 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
784 @ 7456:                  DEF    FLAG p1=V_0097 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
785 @ 7472:               FINISH ) {lev=2}
786 @ 7473:               DEF    X (_lev0id0_PRINT_X) ***** MASTER ****** p1=V_0095 a/tf=19 b/format=2 c/ostate=8  type=1 (integer) form=9 (map) special=1 (byte-integer) linkage=0 (auto) spec=1 indirect=0 unass=0
787 @ 7486:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
788 @ 7487:                  DEF    I p1=V_0098 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
789 @ 7500:                  DEF    J 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
790 @ 7513:               FINISH ) {lev=2}

    67        %integer i, j
791 @ 7514:               LINE   67 "regression-compile-tmp/compare.imp"
792 @ 7552:               DEF    I p1=V_0098 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
793 @ 7565:               DEF    J 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

    68        %for i = 1, 1, n %cycle
794 @ 7578:               LINE   68 "regression-compile-tmp/compare.imp"
795 @ 7616:               PUSH   I
796 @ 7619:               PUSHI  #0x00000001
797 @ 7624:               PUSH   N
798 @ 7627:               PUSHI  #0x00000001
799 @ 7632:               FOR    L_0003

    69           Print string ("""".File(flag).""",")
800 @ 7635:               LINE   69 "regression-compile-tmp/compare.imp"
801 @ 7673:               PUSH   PRINTSTRING
802 @ 7676:               PUSHS  "\""
803 @ 7679:               PUSH   FILE
804 @ 7682:               PUSH   FLAG
805 @ 7685:               ACCESS
806 @ 7686:               CONCAT
807 @ 7687:               PUSHS  "\","
808 @ 7691:               CONCAT
809 @ 7692:               ASSPAR
810 @ 7693:               CALL  

    70           Write (Base(flag)+i+1, 5)
811 @ 7694:               LINE   70 "regression-compile-tmp/compare.imp"
812 @ 7732:               PUSH   WRITE
813 @ 7735:               PUSH   BASE
814 @ 7738:               PUSH   FLAG
815 @ 7741:               ACCESS
816 @ 7742:               PUSH   I
817 @ 7745:               ADD   
818 @ 7746:               PUSHI  #0x00000001
819 @ 7751:               ADD   
820 @ 7752:               ASSPAR
821 @ 7753:               PUSHI  #0x00000005
822 @ 7758:               ASSPAR
823 @ 7759:               CALL  

    71           Print string (": ")
824 @ 7760:               LINE   71 "regression-compile-tmp/compare.imp"
825 @ 7798:               PUSH   PRINTSTRING
826 @ 7801:               PUSHS  ": "
827 @ 7805:               ASSPAR
828 @ 7806:               CALL  

    72           j = 0
829 @ 7807:               LINE   72 "regression-compile-tmp/compare.imp"
830 @ 7845:               PUSH   J
831 @ 7848:               PUSHI  #0x00000000
832 @ 7853:               ASSVAL

    73           %cycle
833 @ 7854:               LINE   73 "regression-compile-tmp/compare.imp"
834 @ 7892:               LOCATE L_0006

    74             j = j + 1
835 @ 7895:               LINE   74 "regression-compile-tmp/compare.imp"
836 @ 7933:               PUSH   J
837 @ 7936:               PUSH   J
838 @ 7939:               PUSHI  #0x00000001
839 @ 7944:               ADD   
840 @ 7945:               ASSVAL

    75             %exit %if x (i, j) = nl
841 @ 7946:               LINE   75 "regression-compile-tmp/compare.imp"
842 @ 7984:               PUSH   X
843 @ 7987:               PUSH   I
844 @ 7990:               ASSPAR
845 @ 7991:               PUSH   J
846 @ 7994:               ASSPAR
847 @ 7995:               CALL  
848 @ 7996:               PUSHI  #0x0000000a
849 @ 8001:               JUMPIF # L_000a
850 @ 8005:               GOTO   L_0007
851 @ 8008:               LOCATE L_000a

    76             Print symbol (x (i, j))
852 @ 8011:               LINE   76 "regression-compile-tmp/compare.imp"
853 @ 8049:               PUSH   PRINTSYMBOL
854 @ 8052:               PUSH   X
855 @ 8055:               PUSH   I
856 @ 8058:               ASSPAR
857 @ 8059:               PUSH   J
858 @ 8062:               ASSPAR
859 @ 8063:               CALL  
860 @ 8064:               ASSPAR
861 @ 8065:               CALL  

    77             %if j=57 %then newline %and spaces(20) %and printsymbol(':')
862 @ 8066:               LINE   77 "regression-compile-tmp/compare.imp"
863 @ 8104:               PUSH   J
864 @ 8107:               PUSHI  #0x00000039
865 @ 8112:               JUMPIF # L_000a
866 @ 8116:               PUSH   NEWLINE
867 @ 8119:               CALL  
868 @ 8120:               PUSH   SPACES
869 @ 8123:               PUSHI  #0x00000014
870 @ 8128:               ASSPAR
871 @ 8129:               CALL  
872 @ 8130:               PUSH   PRINTSYMBOL
873 @ 8133:               PUSHI  #0x0000003a
874 @ 8138:               ASSPAR
875 @ 8139:               CALL  
876 @ 8140:               LOCATE L_000a

    78           %repeat
877 @ 8143:               LINE   78 "regression-compile-tmp/compare.imp"
878 @ 8181:               REPEAT L_0006
879 @ 8184:               LOCATE L_0007

    79           newline
880 @ 8187:               LINE   79 "regression-compile-tmp/compare.imp"
881 @ 8225:               PUSH   NEWLINE
882 @ 8228:               CALL  

    80        %repeat
883 @ 8229:               LINE   80 "regression-compile-tmp/compare.imp"
884 @ 8267:               REPEAT L_0003
885 @ 8270:               LOCATE L_0004

    81     %end
    82  
886 @ 8273:               LINE   81 "regression-compile-tmp/compare.imp"
887 @ 8311:            END    _lev0id0_PRINT {lev=2 --> 1}

    83     %integer%fn  lines match (%integer A line, B line)
    84  
888 @ 8312:            LINE   83 "regression-compile-tmp/compare.imp"
889 @ 8350:            DEF    LINESMATCH (_lev0id0_LINESMATCH) p1=V_0095 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
890 @ 8372:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
891 @ 8373:                  DEF    ALINE p1=V_0096 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
892 @ 8390:                  DEF    BLINE p1=V_0097 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
893 @ 8407:               FINISH ) {lev=2}

    85        %integer j
894 @ 8408:               LINE   85 "regression-compile-tmp/compare.imp"
895 @ 8446:               DEF    J p1=V_0098 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

    86        %if A line > A count %or B line > B count %start
896 @ 8459:               LINE   86 "regression-compile-tmp/compare.imp"
897 @ 8497:               PUSH   ALINE
898 @ 8500:               PUSH   ACOUNT
899 @ 8503:               JUMPIF > L_0005
900 @ 8507:               PUSH   BLINE
901 @ 8510:               PUSH   BCOUNT
902 @ 8513:               JUMPIF <= L_0004
903 @ 8517:               LOCATE L_0005

    87           %result = TRUE %if A line > A count %and B line > B count
904 @ 8520:               LINE   87 "regression-compile-tmp/compare.imp"
905 @ 8558:               PUSH   ALINE
906 @ 8561:               PUSH   ACOUNT
907 @ 8564:               JUMPIF <= L_0007
908 @ 8568:               PUSH   BLINE
909 @ 8571:               PUSH   BCOUNT
910 @ 8574:               JUMPIF <= L_0007
911 @ 8578:               PUSHI  #0x00000001
912 @ 8583:               RESULT
913 @ 8584:               LOCATE L_0007

    88           %result = FALSE
914 @ 8587:               LINE   88 "regression-compile-tmp/compare.imp"
915 @ 8625:               PUSHI  #0x00000000
916 @ 8630:               RESULT

    89        %finish
917 @ 8631:               LINE   89 "regression-compile-tmp/compare.imp"
918 @ 8669:               LOCATE L_0004

    90        %for j = 1, 1, Max Line Width %cycle
919 @ 8672:               LINE   90 "regression-compile-tmp/compare.imp"
920 @ 8710:               PUSH   J
921 @ 8713:               PUSHI  #0x00000001
922 @ 8718:               PUSHI  #0x00000080
923 @ 8723:               PUSHI  #0x00000001
924 @ 8728:               FOR    L_0003

    91           %result = FALSE %if A (A line, j) # B (B line, j)
925 @ 8731:               LINE   91 "regression-compile-tmp/compare.imp"
926 @ 8769:               PUSH   A
927 @ 8772:               PUSH   ALINE
928 @ 8775:               ASSPAR
929 @ 8776:               PUSH   J
930 @ 8779:               ASSPAR
931 @ 8780:               CALL  
932 @ 8781:               PUSH   B
933 @ 8784:               PUSH   BLINE
934 @ 8787:               ASSPAR
935 @ 8788:               PUSH   J
936 @ 8791:               ASSPAR
937 @ 8792:               CALL  
938 @ 8793:               JUMPIF = L_0007
939 @ 8797:               PUSHI  #0x00000000
940 @ 8802:               RESULT
941 @ 8803:               LOCATE L_0007

    92           %result = TRUE %if A (A line, j) = nl
942 @ 8806:               LINE   92 "regression-compile-tmp/compare.imp"
943 @ 8844:               PUSH   A
944 @ 8847:               PUSH   ALINE
945 @ 8850:               ASSPAR
946 @ 8851:               PUSH   J
947 @ 8854:               ASSPAR
948 @ 8855:               CALL  
949 @ 8856:               PUSHI  #0x0000000a
950 @ 8861:               JUMPIF # L_0007
951 @ 8865:               PUSHI  #0x00000001
952 @ 8870:               RESULT
953 @ 8871:               LOCATE L_0007

    93        %repeat
954 @ 8874:               LINE   93 "regression-compile-tmp/compare.imp"
955 @ 8912:               REPEAT L_0003
956 @ 8915:               LOCATE L_0004

    94        %result = TRUE
957 @ 8918:               LINE   94 "regression-compile-tmp/compare.imp"
958 @ 8956:               PUSHI  #0x00000001
959 @ 8961:               RESULT

    95     %end
    96  
960 @ 8962:               LINE   95 "regression-compile-tmp/compare.imp"
961 @ 9000:            END    _lev0id0_LINESMATCH {lev=2 --> 1}

    97     %routine  find match (%integer %name AL, BL)
    98  
962 @ 9001:            LINE   97 "regression-compile-tmp/compare.imp"
963 @ 9039:            DEF    FINDMATCH (_lev0id0_FINDMATCH) p1=V_0096 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
964 @ 9060:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
965 @ 9061:                  DEF    AL p1=V_0097 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
966 @ 9075:                  DEF    BL p1=V_0098 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
967 @ 9089:               FINISH ) {lev=2}

    99        %integer i, j
968 @ 9090:               LINE   99 "regression-compile-tmp/compare.imp"
969 @ 9128:               DEF    I 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
970 @ 9141:               DEF    J 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

   100        %for i = 1, 1, Max Lines %cycle
971 @ 9154:               LINE   100 "regression-compile-tmp/compare.imp"
972 @ 9192:               PUSH   I
973 @ 9195:               PUSHI  #0x00000001
974 @ 9200:               PUSHI  #0x00000200
975 @ 9205:               PUSHI  #0x00000001
976 @ 9210:               FOR    L_0003

   101           AL = i %and BL = i %and %return %if lines match (i, i)=TRUE
977 @ 9213:               LINE   101 "regression-compile-tmp/compare.imp"
978 @ 9251:               PUSH   LINESMATCH
979 @ 9254:               PUSH   I
980 @ 9257:               ASSPAR
981 @ 9258:               PUSH   I
982 @ 9261:               ASSPAR
983 @ 9262:               CALL  
984 @ 9263:               PUSHI  #0x00000001
985 @ 9268:               JUMPIF # L_0007
986 @ 9272:               PUSH   AL
987 @ 9275:               PUSH   I
988 @ 9278:               ASSVAL
989 @ 9279:               PUSH   BL
990 @ 9282:               PUSH   I
991 @ 9285:               ASSVAL
992 @ 9286:               RETURN
993 @ 9287:               LOCATE L_0007

   102           %if i > 1 %start
994 @ 9290:               LINE   102 "regression-compile-tmp/compare.imp"
995 @ 9328:               PUSH   I
996 @ 9331:               PUSHI  #0x00000001
997 @ 9336:               JUMPIF <= L_0007

   103              %for j = 1, 1, I - 1 %cycle
998 @ 9340:               LINE   103 "regression-compile-tmp/compare.imp"
999 @ 9378:               PUSH   J
1000 @ 9381:               PUSHI  #0x00000001
1001 @ 9386:               PUSH   I
1002 @ 9389:               PUSHI  #0x00000001
1003 @ 9394:               SUB   
1004 @ 9395:               PUSHI  #0x00000001
1005 @ 9400:               FOR    L_0009

   104                 AL = i %and BL = j %and %return %if lines match (i, j)=TRUE
1006 @ 9403:               LINE   104 "regression-compile-tmp/compare.imp"
1007 @ 9441:               PUSH   LINESMATCH
1008 @ 9444:               PUSH   I
1009 @ 9447:               ASSPAR
1010 @ 9448:               PUSH   J
1011 @ 9451:               ASSPAR
1012 @ 9452:               CALL  
1013 @ 9453:               PUSHI  #0x00000001
1014 @ 9458:               JUMPIF # L_000d
1015 @ 9462:               PUSH   AL
1016 @ 9465:               PUSH   I
1017 @ 9468:               ASSVAL
1018 @ 9469:               PUSH   BL
1019 @ 9472:               PUSH   J
1020 @ 9475:               ASSVAL
1021 @ 9476:               RETURN
1022 @ 9477:               LOCATE L_000d

   105                 AL = j %and BL = i %and %return %if lines match (j, i)=TRUE
1023 @ 9480:               LINE   105 "regression-compile-tmp/compare.imp"
1024 @ 9518:               PUSH   LINESMATCH
1025 @ 9521:               PUSH   J
1026 @ 9524:               ASSPAR
1027 @ 9525:               PUSH   I
1028 @ 9528:               ASSPAR
1029 @ 9529:               CALL  
1030 @ 9530:               PUSHI  #0x00000001
1031 @ 9535:               JUMPIF # L_000d
1032 @ 9539:               PUSH   AL
1033 @ 9542:               PUSH   J
1034 @ 9545:               ASSVAL
1035 @ 9546:               PUSH   BL
1036 @ 9549:               PUSH   I
1037 @ 9552:               ASSVAL
1038 @ 9553:               RETURN
1039 @ 9554:               LOCATE L_000d

   106              %repeat
1040 @ 9557:               LINE   106 "regression-compile-tmp/compare.imp"
1041 @ 9595:               REPEAT L_0009
1042 @ 9598:               LOCATE L_000a

   107           %finish
1043 @ 9601:               LINE   107 "regression-compile-tmp/compare.imp"
1044 @ 9639:               LOCATE L_0007

   108        %repeat
1045 @ 9642:               LINE   108 "regression-compile-tmp/compare.imp"
1046 @ 9680:               REPEAT L_0003
1047 @ 9683:               LOCATE L_0004

   109        AL = Max Lines+1; BL = Max Lines+1
1048 @ 9686:               LINE   109 "regression-compile-tmp/compare.imp"
1049 @ 9724:               PUSH   AL
1050 @ 9727:               PUSHI  #0x00000200
1051 @ 9732:               PUSHI  #0x00000001
1052 @ 9737:               ADD   
1053 @ 9738:               ASSVAL
1054 @ 9739:               LINE   109 "regression-compile-tmp/compare.imp"
1055 @ 9777:               PUSH   BL
1056 @ 9780:               PUSHI  #0x00000200
1057 @ 9785:               PUSHI  #0x00000001
1058 @ 9790:               ADD   
1059 @ 9791:               ASSVAL

   110     %end
   111  
   112  
1060 @ 9792:               LINE   110 "regression-compile-tmp/compare.imp"
1061 @ 9830:            END    _lev0id0_FINDMATCH {lev=2 --> 1}

   113  %integer fname len; 
   114  
1062 @ 9831:            LINE   113 "regression-compile-tmp/compare.imp"
1063 @ 9869:            DEF    FNAMELEN p1=V_0097 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   115  A num = Max Lines; B num = Max Lines
1064 @ 9889:            LINE   115 "regression-compile-tmp/compare.imp"
1065 @ 9927:            PUSH   ANUM
1066 @ 9930:            PUSHI  #0x00000200
1067 @ 9935:            ASSVAL
1068 @ 9936:            LINE   115 "regression-compile-tmp/compare.imp"
1069 @ 9974:            PUSH   BNUM
1070 @ 9977:            PUSHI  #0x00000200
1071 @ 9982:            ASSVAL

   116  Base('A') = 0; Base('B') = 0
1072 @ 9983:            LINE   116 "regression-compile-tmp/compare.imp"
1073 @ 10021:            PUSH   BASE
1074 @ 10024:            PUSHI  #0x00000041
1075 @ 10029:            ACCESS
1076 @ 10030:            PUSHI  #0x00000000
1077 @ 10035:            ASSVAL
1078 @ 10036:            LINE   116 "regression-compile-tmp/compare.imp"
1079 @ 10074:            PUSH   BASE
1080 @ 10077:            PUSHI  #0x00000042
1081 @ 10082:            ACCESS
1082 @ 10083:            PUSHI  #0x00000000
1083 @ 10088:            ASSVAL

   117  A count = 0; B count = 0
   118  
1084 @ 10089:            LINE   117 "regression-compile-tmp/compare.imp"
1085 @ 10127:            PUSH   ACOUNT
1086 @ 10130:            PUSHI  #0x00000000
1087 @ 10135:            ASSVAL
1088 @ 10136:            LINE   117 "regression-compile-tmp/compare.imp"
1089 @ 10174:            PUSH   BCOUNT
1090 @ 10177:            PUSHI  #0x00000000
1091 @ 10182:            ASSVAL

   119  %if cli param -> ("-h") %start
1092 @ 10183:            LINE   119 "regression-compile-tmp/compare.imp"
1093 @ 10221:            PUSH   CLIPARAM
1094 @ 10224:            CALL  
1095 @ 10225:            PUSHS  "-h"
1096 @ 10229:            RESOLVE flags=0004
1097 @ 10232:            bf     L_0004

   120    print string("Syntax: compare oldfile newfile".snl)
1098 @ 10235:            LINE   120 "regression-compile-tmp/compare.imp"
1099 @ 10273:            PUSH   PRINTSTRING
1100 @ 10276:            PUSHS  "Syntax: compare oldfile newfile"
1101 @ 10309:            PUSH   SNL
1102 @ 10312:            CONCAT
1103 @ 10313:            ASSPAR
1104 @ 10314:            CALL  

   121    %stop
1105 @ 10315:            LINE   121 "regression-compile-tmp/compare.imp"
1106 @ 10353:            STOP  

   122  %finish
   123  
1107 @ 10354:            LINE   122 "regression-compile-tmp/compare.imp"
1108 @ 10392:            LOCATE L_0004

   124  pr = "New file: "
   125  
1109 @ 10395:            LINE   124 "regression-compile-tmp/compare.imp"
1110 @ 10433:            PUSH   PR
1111 @ 10436:            PUSHS  "New file: "
1112 @ 10448:            ASSVAL

   126  %unless cli param -> A file.(" ").B file %start
1113 @ 10449:            LINE   126 "regression-compile-tmp/compare.imp"
1114 @ 10487:            PUSH   CLIPARAM
1115 @ 10490:            CALL  
1116 @ 10491:            PUSH   AFILE
1117 @ 10494:            PUSHS  " "
1118 @ 10497:            PUSH   BFILE
1119 @ 10500:            RESOLVE flags=0007
1120 @ 10503:            bt     L_0004

   127    A file = cli param
1121 @ 10506:            LINE   127 "regression-compile-tmp/compare.imp"
1122 @ 10544:            PUSH   AFILE
1123 @ 10547:            PUSH   CLIPARAM
1124 @ 10550:            CALL  
1125 @ 10551:            ASSVAL

   128    %if A file # "" %start
1126 @ 10552:            LINE   128 "regression-compile-tmp/compare.imp"
1127 @ 10590:            PUSH   AFILE
1128 @ 10593:            PUSHS  ""
1129 @ 10595:            JUMPIF = L_0007

   129     B file = ""; pr = "Against:  "
1130 @ 10599:            LINE   129 "regression-compile-tmp/compare.imp"
1131 @ 10637:            PUSH   BFILE
1132 @ 10640:            PUSHS  ""
1133 @ 10642:            ASSVAL
1134 @ 10643:            LINE   129 "regression-compile-tmp/compare.imp"
1135 @ 10681:            PUSH   PR
1136 @ 10684:            PUSHS  "Against:  "
1137 @ 10696:            ASSVAL

   130    %else
1138 @ 10697:            LINE   130 "regression-compile-tmp/compare.imp"
1139 @ 10735:            GOTO   L_0006
1140 @ 10738:            LOCATE L_0007

   131     A file = ""
1141 @ 10741:            LINE   131 "regression-compile-tmp/compare.imp"
1142 @ 10779:            PUSH   AFILE
1143 @ 10782:            PUSHS  ""
1144 @ 10784:            ASSVAL

   132     B file = ""
1145 @ 10785:            LINE   132 "regression-compile-tmp/compare.imp"
1146 @ 10823:            PUSH   BFILE
1147 @ 10826:            PUSHS  ""
1148 @ 10828:            ASSVAL

   133    %finish
1149 @ 10829:            LINE   133 "regression-compile-tmp/compare.imp"
1150 @ 10867:            LOCATE L_0006

   134  %finish
   135  
1151 @ 10870:            LINE   134 "regression-compile-tmp/compare.imp"
1152 @ 10908:            LOCATE L_0004

   136  A file <- left.right %while A file -> left.(" ").right
1153 @ 10911:            LINE   136 "regression-compile-tmp/compare.imp"
1154 @ 10949:            LOCATE L_0003
1155 @ 10952:            PUSH   AFILE
1156 @ 10955:            PUSH   LEFT
1157 @ 10958:            PUSHS  " "
1158 @ 10961:            PUSH   RIGHT
1159 @ 10964:            RESOLVE flags=0007
1160 @ 10967:            bf     L_0004
1161 @ 10970:            PUSH   AFILE
1162 @ 10973:            PUSH   LEFT
1163 @ 10976:            PUSH   RIGHT
1164 @ 10979:            CONCAT
1165 @ 10980:            JAM   
1166 @ 10981:            REPEAT L_0003
1167 @ 10984:            LOCATE L_0004

   137  B file <- left.right %while B file -> left.(" ").right
   138  
1168 @ 10987:            LINE   137 "regression-compile-tmp/compare.imp"
1169 @ 11025:            LOCATE L_0003
1170 @ 11028:            PUSH   BFILE
1171 @ 11031:            PUSH   LEFT
1172 @ 11034:            PUSHS  " "
1173 @ 11037:            PUSH   RIGHT
1174 @ 11040:            RESOLVE flags=0007
1175 @ 11043:            bf     L_0004
1176 @ 11046:            PUSH   BFILE
1177 @ 11049:            PUSH   LEFT
1178 @ 11052:            PUSH   RIGHT
1179 @ 11055:            CONCAT
1180 @ 11056:            JAM   
1181 @ 11057:            REPEAT L_0003
1182 @ 11060:            LOCATE L_0004

   139  File('A') = A file; File('B') = B file
   140  
1183 @ 11063:            LINE   139 "regression-compile-tmp/compare.imp"
1184 @ 11101:            PUSH   FILE
1185 @ 11104:            PUSHI  #0x00000041
1186 @ 11109:            ACCESS
1187 @ 11110:            PUSH   AFILE
1188 @ 11113:            ASSVAL
1189 @ 11114:            LINE   139 "regression-compile-tmp/compare.imp"
1190 @ 11152:            PUSH   FILE
1191 @ 11155:            PUSHI  #0x00000042
1192 @ 11160:            ACCESS
1193 @ 11161:            PUSH   BFILE
1194 @ 11164:            ASSVAL

   141  Prompt ("Old file: ")
1195 @ 11165:            LINE   141 "regression-compile-tmp/compare.imp"
1196 @ 11203:            PUSH   PROMPT
1197 @ 11206:            PUSHS  "Old file: "
1198 @ 11218:            ASSPAR
1199 @ 11219:            CALL  

   142  Rd line (A file) %while A file = ""
1200 @ 11220:            LINE   142 "regression-compile-tmp/compare.imp"
1201 @ 11258:            LOCATE L_0003
1202 @ 11261:            PUSH   AFILE
1203 @ 11264:            PUSHS  ""
1204 @ 11266:            JUMPIF # L_0004
1205 @ 11270:            PUSH   RDLINE
1206 @ 11273:            PUSH   AFILE
1207 @ 11276:            ASSPAR
1208 @ 11277:            CALL  
1209 @ 11278:            REPEAT L_0003
1210 @ 11281:            LOCATE L_0004

   143  Prompt (pr)
1211 @ 11284:            LINE   143 "regression-compile-tmp/compare.imp"
1212 @ 11322:            PUSH   PROMPT
1213 @ 11325:            PUSH   PR
1214 @ 11328:            ASSPAR
1215 @ 11329:            CALL  

   144  Rd line (B file) %while B file = ""
   145  
1216 @ 11330:            LINE   144 "regression-compile-tmp/compare.imp"
1217 @ 11368:            LOCATE L_0003
1218 @ 11371:            PUSH   BFILE
1219 @ 11374:            PUSHS  ""
1220 @ 11376:            JUMPIF # L_0004
1221 @ 11380:            PUSH   RDLINE
1222 @ 11383:            PUSH   BFILE
1223 @ 11386:            ASSPAR
1224 @ 11387:            CALL  
1225 @ 11388:            REPEAT L_0003
1226 @ 11391:            LOCATE L_0004

   146  fname len = LENGTH(A file)
1227 @ 11394:            LINE   146 "regression-compile-tmp/compare.imp"
1228 @ 11432:            PUSH   FNAMELEN
1229 @ 11435:            PUSH   LENGTH
1230 @ 11438:            PUSH   AFILE
1231 @ 11441:            ASSPAR
1232 @ 11442:            CALL  
1233 @ 11443:            ASSVAL

   147  %if fname len < LENGTH(B file) %then fname len = LENGTH(B file)
1234 @ 11444:            LINE   147 "regression-compile-tmp/compare.imp"
1235 @ 11482:            PUSH   FNAMELEN
1236 @ 11485:            PUSH   LENGTH
1237 @ 11488:            PUSH   BFILE
1238 @ 11491:            ASSPAR
1239 @ 11492:            CALL  
1240 @ 11493:            JUMPIF >= L_0004
1241 @ 11497:            PUSH   FNAMELEN
1242 @ 11500:            PUSH   LENGTH
1243 @ 11503:            PUSH   BFILE
1244 @ 11506:            ASSPAR
1245 @ 11507:            CALL  
1246 @ 11508:            ASSVAL
1247 @ 11509:            LOCATE L_0004

   148  %if fname len > 11 %then fname len = 11
   149  
1248 @ 11512:            LINE   148 "regression-compile-tmp/compare.imp"
1249 @ 11550:            PUSH   FNAMELEN
1250 @ 11553:            PUSHI  #0x0000000b
1251 @ 11558:            JUMPIF <= L_0004
1252 @ 11562:            PUSH   FNAMELEN
1253 @ 11565:            PUSHI  #0x0000000b
1254 @ 11570:            ASSVAL
1255 @ 11571:            LOCATE L_0004

   150  open input (A stream, A file)
1256 @ 11574:            LINE   150 "regression-compile-tmp/compare.imp"
1257 @ 11612:            PUSH   OPENINPUT
1258 @ 11615:            PUSHI  #0x00000001
1259 @ 11620:            ASSPAR
1260 @ 11621:            PUSH   AFILE
1261 @ 11624:            ASSPAR
1262 @ 11625:            CALL  

   151  open input (B stream, B file)
   152  
1263 @ 11626:            LINE   151 "regression-compile-tmp/compare.imp"
1264 @ 11664:            PUSH   OPENINPUT
1265 @ 11667:            PUSHI  #0x00000002
1266 @ 11672:            ASSPAR
1267 @ 11673:            PUSH   BFILE
1268 @ 11676:            ASSPAR
1269 @ 11677:            CALL  

   153  A file = "           ".A file
1270 @ 11678:            LINE   153 "regression-compile-tmp/compare.imp"
1271 @ 11716:            PUSH   AFILE
1272 @ 11719:            PUSHS  "           "
1273 @ 11732:            PUSH   AFILE
1274 @ 11735:            CONCAT
1275 @ 11736:            ASSVAL

   154  B file = "           ".B file
1276 @ 11737:            LINE   154 "regression-compile-tmp/compare.imp"
1277 @ 11775:            PUSH   BFILE
1278 @ 11778:            PUSHS  "           "
1279 @ 11791:            PUSH   BFILE
1280 @ 11794:            CONCAT
1281 @ 11795:            ASSVAL

   155  A file = SUBSTRING(A file, LENGTH(A file)-10, LENGTH(A file))
1282 @ 11796:            LINE   155 "regression-compile-tmp/compare.imp"
1283 @ 11834:            PUSH   AFILE
1284 @ 11837:            PUSH   SUBSTRING
1285 @ 11840:            PUSH   AFILE
1286 @ 11843:            ASSPAR
1287 @ 11844:            PUSH   LENGTH
1288 @ 11847:            PUSH   AFILE
1289 @ 11850:            ASSPAR
1290 @ 11851:            CALL  
1291 @ 11852:            PUSHI  #0x0000000a
1292 @ 11857:            SUB   
1293 @ 11858:            ASSPAR
1294 @ 11859:            PUSH   LENGTH
1295 @ 11862:            PUSH   AFILE
1296 @ 11865:            ASSPAR
1297 @ 11866:            CALL  
1298 @ 11867:            ASSPAR
1299 @ 11868:            CALL  
1300 @ 11869:            ASSVAL

   156  B file = SUBSTRING(B file, LENGTH(B file)-10, LENGTH(B file))
   157  
1301 @ 11870:            LINE   156 "regression-compile-tmp/compare.imp"
1302 @ 11908:            PUSH   BFILE
1303 @ 11911:            PUSH   SUBSTRING
1304 @ 11914:            PUSH   BFILE
1305 @ 11917:            ASSPAR
1306 @ 11918:            PUSH   LENGTH
1307 @ 11921:            PUSH   BFILE
1308 @ 11924:            ASSPAR
1309 @ 11925:            CALL  
1310 @ 11926:            PUSHI  #0x0000000a
1311 @ 11931:            SUB   
1312 @ 11932:            ASSPAR
1313 @ 11933:            PUSH   LENGTH
1314 @ 11936:            PUSH   BFILE
1315 @ 11939:            ASSPAR
1316 @ 11940:            CALL  
1317 @ 11941:            ASSPAR
1318 @ 11942:            CALL  
1319 @ 11943:            ASSVAL

   158  %cycle
1320 @ 11944:            LINE   158 "regression-compile-tmp/compare.imp"
1321 @ 11982:            LOCATE L_0003

   159     select input (A stream)
1322 @ 11985:            LINE   159 "regression-compile-tmp/compare.imp"
1323 @ 12023:            PUSH   SELECTINPUT
1324 @ 12026:            PUSHI  #0x00000001
1325 @ 12031:            ASSPAR
1326 @ 12032:            CALL  

   160     refill (A, A num, A count)
1327 @ 12033:            LINE   160 "regression-compile-tmp/compare.imp"
1328 @ 12071:            PUSH   REFILL
1329 @ 12074:            PUSH   A
1330 @ 12077:            ASSPAR
1331 @ 12078:            PUSH   ANUM
1332 @ 12081:            ASSPAR
1333 @ 12082:            PUSH   ACOUNT
1334 @ 12085:            ASSPAR
1335 @ 12086:            CALL  

   161     select input (B stream)
1336 @ 12087:            LINE   161 "regression-compile-tmp/compare.imp"
1337 @ 12125:            PUSH   SELECTINPUT
1338 @ 12128:            PUSHI  #0x00000002
1339 @ 12133:            ASSPAR
1340 @ 12134:            CALL  

   162     refill (B, B num, B count)
1341 @ 12135:            LINE   162 "regression-compile-tmp/compare.imp"
1342 @ 12173:            PUSH   REFILL
1343 @ 12176:            PUSH   B
1344 @ 12179:            ASSPAR
1345 @ 12180:            PUSH   BNUM
1346 @ 12183:            ASSPAR
1347 @ 12184:            PUSH   BCOUNT
1348 @ 12187:            ASSPAR
1349 @ 12188:            CALL  

   163     %exit %if A count <= 0 %and B count <= 0
1350 @ 12189:            LINE   163 "regression-compile-tmp/compare.imp"
1351 @ 12227:            PUSH   ACOUNT
1352 @ 12230:            PUSHI  #0x00000000
1353 @ 12235:            JUMPIF > L_0007
1354 @ 12239:            PUSH   BCOUNT
1355 @ 12242:            PUSHI  #0x00000000
1356 @ 12247:            JUMPIF > L_0007
1357 @ 12251:            GOTO   L_0004
1358 @ 12254:            LOCATE L_0007

   164     find match (A num, B num)
1359 @ 12257:            LINE   164 "regression-compile-tmp/compare.imp"
1360 @ 12295:            PUSH   FINDMATCH
1361 @ 12298:            PUSH   ANUM
1362 @ 12301:            ASSPAR
1363 @ 12302:            PUSH   BNUM
1364 @ 12305:            ASSPAR
1365 @ 12306:            CALL  

   165     %if A num # 1 %or B num # 1 %start
1366 @ 12307:            LINE   165 "regression-compile-tmp/compare.imp"
1367 @ 12345:            PUSH   ANUM
1368 @ 12348:            PUSHI  #0x00000001
1369 @ 12353:            JUMPIF # L_0008
1370 @ 12357:            PUSH   BNUM
1371 @ 12360:            PUSHI  #0x00000001
1372 @ 12365:            JUMPIF = L_0007
1373 @ 12369:            LOCATE L_0008

   166        print (A, A num-1, 'A')
1374 @ 12372:            LINE   166 "regression-compile-tmp/compare.imp"
1375 @ 12410:            PUSH   PRINT
1376 @ 12413:            PUSH   A
1377 @ 12416:            ASSPAR
1378 @ 12417:            PUSH   ANUM
1379 @ 12420:            PUSHI  #0x00000001
1380 @ 12425:            SUB   
1381 @ 12426:            ASSPAR
1382 @ 12427:            PUSHI  #0x00000041
1383 @ 12432:            ASSPAR
1384 @ 12433:            CALL  

   167        print (B, B num-1, 'B')
1385 @ 12434:            LINE   167 "regression-compile-tmp/compare.imp"
1386 @ 12472:            PUSH   PRINT
1387 @ 12475:            PUSH   B
1388 @ 12478:            ASSPAR
1389 @ 12479:            PUSH   BNUM
1390 @ 12482:            PUSHI  #0x00000001
1391 @ 12487:            SUB   
1392 @ 12488:            ASSPAR
1393 @ 12489:            PUSHI  #0x00000042
1394 @ 12494:            ASSPAR
1395 @ 12495:            CALL  

   168        Print string("---------------------".snl)
1396 @ 12496:            LINE   168 "regression-compile-tmp/compare.imp"
1397 @ 12534:            PUSH   PRINTSTRING
1398 @ 12537:            PUSHS  "---------------------"
1399 @ 12560:            PUSH   SNL
1400 @ 12563:            CONCAT
1401 @ 12564:            ASSPAR
1402 @ 12565:            CALL  

   169        %if A num > Max Lines %start
1403 @ 12566:            LINE   169 "regression-compile-tmp/compare.imp"
1404 @ 12604:            PUSH   ANUM
1405 @ 12607:            PUSHI  #0x00000200
1406 @ 12612:            JUMPIF <= L_000a

   170           Print string ("*** Mismatch too large")
1407 @ 12616:            LINE   170 "regression-compile-tmp/compare.imp"
1408 @ 12654:            PUSH   PRINTSTRING
1409 @ 12657:            PUSHS  "*** Mismatch too large"
1410 @ 12681:            ASSPAR
1411 @ 12682:            CALL  

   171           Newline
1412 @ 12683:            LINE   171 "regression-compile-tmp/compare.imp"
1413 @ 12721:            PUSH   NEWLINE
1414 @ 12724:            CALL  

   172           %stop
1415 @ 12725:            LINE   172 "regression-compile-tmp/compare.imp"
1416 @ 12763:            STOP  

   173        %finish
1417 @ 12764:            LINE   173 "regression-compile-tmp/compare.imp"
1418 @ 12802:            LOCATE L_000a

   174     %finish
1419 @ 12805:            LINE   174 "regression-compile-tmp/compare.imp"
1420 @ 12843:            LOCATE L_0007

   175     Base('A') = Base('A') + A num
1421 @ 12846:            LINE   175 "regression-compile-tmp/compare.imp"
1422 @ 12884:            PUSH   BASE
1423 @ 12887:            PUSHI  #0x00000041
1424 @ 12892:            ACCESS
1425 @ 12893:            PUSH   BASE
1426 @ 12896:            PUSHI  #0x00000041
1427 @ 12901:            ACCESS
1428 @ 12902:            PUSH   ANUM
1429 @ 12905:            ADD   
1430 @ 12906:            ASSVAL

   176     Base('B') = Base('B') + B num
1431 @ 12907:            LINE   176 "regression-compile-tmp/compare.imp"
1432 @ 12945:            PUSH   BASE
1433 @ 12948:            PUSHI  #0x00000042
1434 @ 12953:            ACCESS
1435 @ 12954:            PUSH   BASE
1436 @ 12957:            PUSHI  #0x00000042
1437 @ 12962:            ACCESS
1438 @ 12963:            PUSH   BNUM
1439 @ 12966:            ADD   
1440 @ 12967:            ASSVAL

   177     A count = A count - A num
1441 @ 12968:            LINE   177 "regression-compile-tmp/compare.imp"
1442 @ 13006:            PUSH   ACOUNT
1443 @ 13009:            PUSH   ACOUNT
1444 @ 13012:            PUSH   ANUM
1445 @ 13015:            SUB   
1446 @ 13016:            ASSVAL

   178     B count = B count - B num
1447 @ 13017:            LINE   178 "regression-compile-tmp/compare.imp"
1448 @ 13055:            PUSH   BCOUNT
1449 @ 13058:            PUSH   BCOUNT
1450 @ 13061:            PUSH   BNUM
1451 @ 13064:            SUB   
1452 @ 13065:            ASSVAL

   179  %repeat
   180  
1453 @ 13066:            LINE   179 "regression-compile-tmp/compare.imp"
1454 @ 13104:            REPEAT L_0003
1455 @ 13107:            LOCATE L_0004

   181  %end %of %program
   182  
1456 @ 13110:            LINE   181 "regression-compile-tmp/compare.imp"
1457 @ 13148:         END    _lev0id0 {lev=1 --> 0}
1458 @ 13149:         END     {lev=0 --> -1}
1459 @ 13150: 

REPLACING _lev0id0_REFILL_X from 674 @ 6419:
WITH: 678
# Found $DEF at 6463
# Found {START at 6476
# Found $DEF at 6477
# Found $DEF at 6490
# Found }FINISH at 6503
REPLACING _lev0id0_PRINT_X from 782 @ 7430:
WITH: 786
# Found $DEF at 7473
# Found {START at 7486
# Found $DEF at 7487
# Found $DEF at 7500
# Found }FINISH at 7513
