
     1  %begin
     2  !%externalstring(255)%fnspec itos(%integer i,n)
     3  !%externalroutinespec openinput(%integer stream, %string(255) filename)
     4  !%externalroutinespec openoutput(%integer stream, %string(255) filename)
     5  
503 @ 4405:         LINE   1 "regression-compile-tmp/gpm.imp"
504 @ 4439:         BEGIN  _lev0id0 {lev=0 --> 1}

     6  %routinespec load
505 @ 4440:            LINE   6 "regression-compile-tmp/gpm.imp"
506 @ 4474:            DEF    LOAD (_lev0id0_LOAD) p1=V_0081 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
507 @ 4490:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
508 @ 4491:            FINISH ) {lev=1}

     7  %routinespec nextch
509 @ 4492:            LINE   7 "regression-compile-tmp/gpm.imp"
510 @ 4526:            DEF    NEXTCH (_lev0id0_NEXTCH) p1=V_0082 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
511 @ 4544:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
512 @ 4545:            FINISH ) {lev=1}

     8  %routinespec find(%integer x)
513 @ 4546:            LINE   8 "regression-compile-tmp/gpm.imp"
514 @ 4580:            DEF    FIND (_lev0id0_FIND) p1=V_0083 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
515 @ 4596:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
516 @ 4597:               DEF    X p1=V_0084 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
517 @ 4610:            FINISH ) {lev=1}

     9  %routinespec monitor(%integer n)
518 @ 4611:            LINE   9 "regression-compile-tmp/gpm.imp"
519 @ 4645:            DEF    MONITOR (_lev0id0_MONITOR) p1=V_0084 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
520 @ 4664:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
521 @ 4665:               DEF    N p1=V_0085 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
522 @ 4678:            FINISH ) {lev=1}

    10  %constinteger marker=16_ffffc000
523 @ 4679:            LINE   10 "regression-compile-tmp/gpm.imp"

    11  %conststring(1) snl = "
    12  "
524 @ 4713:            LINE   11 "regression-compile-tmp/gpm.imp"
525 @ 4747:            PUSHS  "\n"
526 @ 4750:            DEF    SNL p1=V_0085 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
527 @ 4765:            INIT   1

    13  %ownshortintegerarray st(0:10000)=%c
    14     -1,4,'d','e','f',-1,
    15     0,4,'v','a','l',-2,
    16     6,7,'u','p','d','a','t','e',-3,
    17     12,4,'b','i','n',-4,
    18     21,4,'d','e','c',-5,
    19     27,4,'b','a','r',-6,
    20     0(9962)
528 @ 4768:            LINE   13 "regression-compile-tmp/gpm.imp"
529 @ 4802:            PUSHI  #0x00000000
530 @ 4807:            PUSHI  #0x00002710
531 @ 4812:            BOUNDS
532 @ 4813:            DEF    ST p1=V_0086 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
533 @ 4827:            PUSHI  #0xffffffff
534 @ 4832:            INIT   1
535 @ 4835:            PUSHI  #0x00000004
536 @ 4840:            INIT   1
537 @ 4843:            PUSHI  #0x00000064
538 @ 4848:            INIT   1
539 @ 4851:            PUSHI  #0x00000065
540 @ 4856:            INIT   1
541 @ 4859:            PUSHI  #0x00000066
542 @ 4864:            INIT   1
543 @ 4867:            PUSHI  #0xffffffff
544 @ 4872:            INIT   1
545 @ 4875:            PUSHI  #0x00000000
546 @ 4880:            INIT   1
547 @ 4883:            PUSHI  #0x00000004
548 @ 4888:            INIT   1
549 @ 4891:            PUSHI  #0x00000076
550 @ 4896:            INIT   1
551 @ 4899:            PUSHI  #0x00000061
552 @ 4904:            INIT   1
553 @ 4907:            PUSHI  #0x0000006c
554 @ 4912:            INIT   1
555 @ 4915:            PUSHI  #0xfffffffe
556 @ 4920:            INIT   1
557 @ 4923:            PUSHI  #0x00000006
558 @ 4928:            INIT   1
559 @ 4931:            PUSHI  #0x00000007
560 @ 4936:            INIT   1
561 @ 4939:            PUSHI  #0x00000075
562 @ 4944:            INIT   1
563 @ 4947:            PUSHI  #0x00000070
564 @ 4952:            INIT   1
565 @ 4955:            PUSHI  #0x00000064
566 @ 4960:            INIT   1
567 @ 4963:            PUSHI  #0x00000061
568 @ 4968:            INIT   1
569 @ 4971:            PUSHI  #0x00000074
570 @ 4976:            INIT   1
571 @ 4979:            PUSHI  #0x00000065
572 @ 4984:            INIT   1
573 @ 4987:            PUSHI  #0xfffffffd
574 @ 4992:            INIT   1
575 @ 4995:            PUSHI  #0x0000000c
576 @ 5000:            INIT   1
577 @ 5003:            PUSHI  #0x00000004
578 @ 5008:            INIT   1
579 @ 5011:            PUSHI  #0x00000062
580 @ 5016:            INIT   1
581 @ 5019:            PUSHI  #0x00000069
582 @ 5024:            INIT   1
583 @ 5027:            PUSHI  #0x0000006e
584 @ 5032:            INIT   1
585 @ 5035:            PUSHI  #0xfffffffc
586 @ 5040:            INIT   1
587 @ 5043:            PUSHI  #0x00000015
588 @ 5048:            INIT   1
589 @ 5051:            PUSHI  #0x00000004
590 @ 5056:            INIT   1
591 @ 5059:            PUSHI  #0x00000064
592 @ 5064:            INIT   1
593 @ 5067:            PUSHI  #0x00000065
594 @ 5072:            INIT   1
595 @ 5075:            PUSHI  #0x00000063
596 @ 5080:            INIT   1
597 @ 5083:            PUSHI  #0xfffffffb
598 @ 5088:            INIT   1
599 @ 5091:            PUSHI  #0x0000001b
600 @ 5096:            INIT   1
601 @ 5099:            PUSHI  #0x00000004
602 @ 5104:            INIT   1
603 @ 5107:            PUSHI  #0x00000062
604 @ 5112:            INIT   1
605 @ 5115:            PUSHI  #0x00000061
606 @ 5120:            INIT   1
607 @ 5123:            PUSHI  #0x00000072
608 @ 5128:            INIT   1
609 @ 5131:            PUSHI  #0xfffffffa
610 @ 5136:            INIT   1
611 @ 5139:            PUSHI  #0x00000000
612 @ 5144:            INIT   9962

    21  %owninteger e=33, s=39
613 @ 5147:            LINE   21 "regression-compile-tmp/gpm.imp"
614 @ 5181:            PUSHI  #0x00000021
615 @ 5186:            DEF    E p1=V_0087 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
616 @ 5199:            INIT   1
617 @ 5202:            PUSHI  #0x00000027
618 @ 5207:            DEF    S p1=V_0088 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
619 @ 5220:            INIT   1

    22  %integer a, w, w1, h, p, f, c, q, e0, f0, h0, r
620 @ 5223:            LINE   22 "regression-compile-tmp/gpm.imp"
621 @ 5257:            DEF    A p1=V_0089 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
622 @ 5270:            DEF    W p1=V_008a a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
623 @ 5283:            DEF    W1 p1=V_008b a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
624 @ 5297:            DEF    H p1=V_008c a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
625 @ 5310:            DEF    P p1=V_008d a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
626 @ 5323:            DEF    F p1=V_008e a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
627 @ 5336:            DEF    C p1=V_008f a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
628 @ 5349:            DEF    Q 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
629 @ 5362:            DEF    E0 p1=V_0091 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
630 @ 5376:            DEF    F0 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
631 @ 5390:            DEF    H0 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
632 @ 5404:            DEF    R 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

    23  %string(63) filename
633 @ 5417:            LINE   23 "regression-compile-tmp/gpm.imp"
634 @ 5451:            DEF    FILENAME p1=V_0095 a/tf=31 b/format=3f c/ostate=0  type=3 (string) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

    24  %switch mcm(1:6)
    25  
635 @ 5471:            LINE   24 "regression-compile-tmp/gpm.imp"
636 @ 5505:            PUSHI  #0x00000001
637 @ 5510:            PUSHI  #0x00000006
638 @ 5515:            BOUNDS
639 @ 5516:            DEF    MCM p1=V_0096 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

    26    %on %event {0,} 9 %start
640 @ 5531:            LINE   26 "regression-compile-tmp/gpm.imp"
641 @ 5565:            ON     MASK=0200 L_0004

    27      %if eventno{event_event} = 9 %then %start
642 @ 5571:            LINE   27 "regression-compile-tmp/gpm.imp"
643 @ 5605:            PUSH   EVENTNO
644 @ 5608:            CALL  
645 @ 5609:            PUSHI  #0x00000009
646 @ 5614:            JUMPIF # L_0007

    28        select input(0)
647 @ 5618:            LINE   28 "regression-compile-tmp/gpm.imp"
648 @ 5652:            PUSH   SELECTINPUT
649 @ 5655:            PUSHI  #0x00000000
650 @ 5660:            ASSPAR
651 @ 5661:            CALL  

    29        ->start
652 @ 5662:            LINE   29 "regression-compile-tmp/gpm.imp"
653 @ 5696:            JUMP   L_0097

    30      %finish %else print string(snl."GPM terminated".snl)
654 @ 5699:            LINE   30 "regression-compile-tmp/gpm.imp"
655 @ 5733:            LOCATE L_0007
656 @ 5736:            PUSH   PRINTSTRING
657 @ 5739:            PUSH   SNL
658 @ 5742:            PUSHS  "GPM terminated"
659 @ 5758:            CONCAT
660 @ 5759:            PUSH   SNL
661 @ 5762:            CONCAT
662 @ 5763:            ASSPAR
663 @ 5764:            CALL  

    31      %stop
664 @ 5765:            LINE   31 "regression-compile-tmp/gpm.imp"
665 @ 5799:            STOP  

    32    %finish
    33  
666 @ 5800:            LINE   32 "regression-compile-tmp/gpm.imp"
667 @ 5834:            LOCATE L_0004

    34     a=0
668 @ 5837:            LINE   34 "regression-compile-tmp/gpm.imp"
669 @ 5871:            PUSH   A
670 @ 5874:            PUSHI  #0x00000000
671 @ 5879:            ASSVAL

    35     w=0
672 @ 5880:            LINE   35 "regression-compile-tmp/gpm.imp"
673 @ 5914:            PUSH   W
674 @ 5917:            PUSHI  #0x00000000
675 @ 5922:            ASSVAL

    36     w1=0
676 @ 5923:            LINE   36 "regression-compile-tmp/gpm.imp"
677 @ 5957:            PUSH   W1
678 @ 5960:            PUSHI  #0x00000000
679 @ 5965:            ASSVAL

    37     h=0
680 @ 5966:            LINE   37 "regression-compile-tmp/gpm.imp"
681 @ 6000:            PUSH   H
682 @ 6003:            PUSHI  #0x00000000
683 @ 6008:            ASSVAL

    38     p=0
684 @ 6009:            LINE   38 "regression-compile-tmp/gpm.imp"
685 @ 6043:            PUSH   P
686 @ 6046:            PUSHI  #0x00000000
687 @ 6051:            ASSVAL

    39     f=0
688 @ 6052:            LINE   39 "regression-compile-tmp/gpm.imp"
689 @ 6086:            PUSH   F
690 @ 6089:            PUSHI  #0x00000000
691 @ 6094:            ASSVAL

    40     c=0
692 @ 6095:            LINE   40 "regression-compile-tmp/gpm.imp"
693 @ 6129:            PUSH   C
694 @ 6132:            PUSHI  #0x00000000
695 @ 6137:            ASSVAL

    41     q=1
    42  
696 @ 6138:            LINE   41 "regression-compile-tmp/gpm.imp"
697 @ 6172:            PUSH   Q
698 @ 6175:            PUSHI  #0x00000001
699 @ 6180:            ASSVAL

    43  start:nextch
700 @ 6181:            LINE   43 "regression-compile-tmp/gpm.imp"
701 @ 6215:            LABEL  L_0097
702 @ 6218:            LINE   43 "regression-compile-tmp/gpm.imp"
703 @ 6252:            PUSH   NEXTCH
704 @ 6255:            CALL  

    44     %if a='@' %then %start
705 @ 6256:            LINE   44 "regression-compile-tmp/gpm.imp"
706 @ 6290:            PUSH   A
707 @ 6293:            PUSHI  #0x00000040
708 @ 6298:            JUMPIF # L_0004

    45       read(filename)
709 @ 6302:            LINE   45 "regression-compile-tmp/gpm.imp"
710 @ 6336:            PUSH   READ
711 @ 6339:            PUSH   FILENAME
712 @ 6342:            ASSPAR
713 @ 6343:            CALL  

    46       openinput(1,filename)
714 @ 6344:            LINE   46 "regression-compile-tmp/gpm.imp"
715 @ 6378:            PUSH   OPENINPUT
716 @ 6381:            PUSHI  #0x00000001
717 @ 6386:            ASSPAR
718 @ 6387:            PUSH   FILENAME
719 @ 6390:            ASSPAR
720 @ 6391:            CALL  

    47       select input(1)
721 @ 6392:            LINE   47 "regression-compile-tmp/gpm.imp"
722 @ 6426:            PUSH   SELECTINPUT
723 @ 6429:            PUSHI  #0x00000001
724 @ 6434:            ASSPAR
725 @ 6435:            CALL  

    48       ->start ; %finish
726 @ 6436:            LINE   48 "regression-compile-tmp/gpm.imp"
727 @ 6470:            JUMP   L_0097
728 @ 6473:            LINE   48 "regression-compile-tmp/gpm.imp"
729 @ 6507:            LOCATE L_0004

    49     %if a='/' %then %start
730 @ 6510:            LINE   49 "regression-compile-tmp/gpm.imp"
731 @ 6544:            PUSH   A
732 @ 6547:            PUSHI  #0x0000002f
733 @ 6552:            JUMPIF # L_0004

    50       read(filename)
734 @ 6556:            LINE   50 "regression-compile-tmp/gpm.imp"
735 @ 6590:            PUSH   READ
736 @ 6593:            PUSH   FILENAME
737 @ 6596:            ASSPAR
738 @ 6597:            CALL  

    51       openoutput(1,filename)
739 @ 6598:            LINE   51 "regression-compile-tmp/gpm.imp"
740 @ 6632:            PUSH   OPENOUTPUT
741 @ 6635:            PUSHI  #0x00000001
742 @ 6640:            ASSPAR
743 @ 6641:            PUSH   FILENAME
744 @ 6644:            ASSPAR
745 @ 6645:            CALL  

    52       select output(1)
746 @ 6646:            LINE   52 "regression-compile-tmp/gpm.imp"
747 @ 6680:            PUSH   SELECTOUTPUT
748 @ 6683:            PUSHI  #0x00000001
749 @ 6688:            ASSPAR
750 @ 6689:            CALL  

    53       ->start ; %finish
751 @ 6690:            LINE   53 "regression-compile-tmp/gpm.imp"
752 @ 6724:            JUMP   L_0097
753 @ 6727:            LINE   53 "regression-compile-tmp/gpm.imp"
754 @ 6761:            LOCATE L_0004

    54     %if a='<' %then q=q+1 %and ->q2
755 @ 6764:            LINE   54 "regression-compile-tmp/gpm.imp"
756 @ 6798:            PUSH   A
757 @ 6801:            PUSHI  #0x0000003c
758 @ 6806:            JUMPIF # L_0004
759 @ 6810:            PUSH   Q
760 @ 6813:            PUSH   Q
761 @ 6816:            PUSHI  #0x00000001
762 @ 6821:            ADD   
763 @ 6822:            ASSVAL
764 @ 6823:            JUMP   L_0098
765 @ 6826:            LOCATE L_0004

    55     %if a='$' %then ->fn
766 @ 6829:            LINE   55 "regression-compile-tmp/gpm.imp"
767 @ 6863:            PUSH   A
768 @ 6866:            PUSHI  #0x00000024
769 @ 6871:            JUMPIF # L_0004
770 @ 6875:            JUMP   L_0099
771 @ 6878:            LOCATE L_0004

    56     %if a=',' %then ->next item
772 @ 6881:            LINE   56 "regression-compile-tmp/gpm.imp"
773 @ 6915:            PUSH   A
774 @ 6918:            PUSHI  #0x0000002c
775 @ 6923:            JUMPIF # L_0004
776 @ 6927:            JUMP   L_009a
777 @ 6930:            LOCATE L_0004

    57     %if a=';' %then ->apply
778 @ 6933:            LINE   57 "regression-compile-tmp/gpm.imp"
779 @ 6967:            PUSH   A
780 @ 6970:            PUSHI  #0x0000003b
781 @ 6975:            JUMPIF # L_0004
782 @ 6979:            JUMP   L_009b
783 @ 6982:            LOCATE L_0004

    58     %if a='#' %then ->load arg
784 @ 6985:            LINE   58 "regression-compile-tmp/gpm.imp"
785 @ 7019:            PUSH   A
786 @ 7022:            PUSHI  #0x00000023
787 @ 7027:            JUMPIF # L_0004
788 @ 7031:            JUMP   L_009c
789 @ 7034:            LOCATE L_0004

    59     %if a=marker %then ->endfn
790 @ 7037:            LINE   59 "regression-compile-tmp/gpm.imp"
791 @ 7071:            PUSH   A
792 @ 7074:            PUSHI  #0xffffc000
793 @ 7079:            JUMPIF # L_0004
794 @ 7083:            JUMP   L_009d
795 @ 7086:            LOCATE L_0004

    60     %if a='>' %then ->exit
796 @ 7089:            LINE   60 "regression-compile-tmp/gpm.imp"
797 @ 7123:            PUSH   A
798 @ 7126:            PUSHI  #0x0000003e
799 @ 7131:            JUMPIF # L_0004
800 @ 7135:            JUMP   L_009e
801 @ 7138:            LOCATE L_0004

    61  copy:load
802 @ 7141:            LINE   61 "regression-compile-tmp/gpm.imp"
803 @ 7175:            LABEL  L_009f
804 @ 7178:            LINE   61 "regression-compile-tmp/gpm.imp"
805 @ 7212:            PUSH   LOAD
806 @ 7215:            CALL  

    62     %if q=1 %then ->start
807 @ 7216:            LINE   62 "regression-compile-tmp/gpm.imp"
808 @ 7250:            PUSH   Q
809 @ 7253:            PUSHI  #0x00000001
810 @ 7258:            JUMPIF # L_0004
811 @ 7262:            JUMP   L_0097
812 @ 7265:            LOCATE L_0004

    63  q2:nextch
813 @ 7268:            LINE   63 "regression-compile-tmp/gpm.imp"
814 @ 7302:            LABEL  L_0098
815 @ 7305:            LINE   63 "regression-compile-tmp/gpm.imp"
816 @ 7339:            PUSH   NEXTCH
817 @ 7342:            CALL  

    64     %if a='<' %then q=q+1 %and ->copy
818 @ 7343:            LINE   64 "regression-compile-tmp/gpm.imp"
819 @ 7377:            PUSH   A
820 @ 7380:            PUSHI  #0x0000003c
821 @ 7385:            JUMPIF # L_0004
822 @ 7389:            PUSH   Q
823 @ 7392:            PUSH   Q
824 @ 7395:            PUSHI  #0x00000001
825 @ 7400:            ADD   
826 @ 7401:            ASSVAL
827 @ 7402:            JUMP   L_009f
828 @ 7405:            LOCATE L_0004

    65     %if a#'>' %then ->copy
829 @ 7408:            LINE   65 "regression-compile-tmp/gpm.imp"
830 @ 7442:            PUSH   A
831 @ 7445:            PUSHI  #0x0000003e
832 @ 7450:            JUMPIF = L_0004
833 @ 7454:            JUMP   L_009f
834 @ 7457:            LOCATE L_0004

    66     q=q-1
835 @ 7460:            LINE   66 "regression-compile-tmp/gpm.imp"
836 @ 7494:            PUSH   Q
837 @ 7497:            PUSH   Q
838 @ 7500:            PUSHI  #0x00000001
839 @ 7505:            SUB   
840 @ 7506:            ASSVAL

    67     %if q=1 %then ->start %else ->copy
841 @ 7507:            LINE   67 "regression-compile-tmp/gpm.imp"
842 @ 7541:            PUSH   Q
843 @ 7544:            PUSHI  #0x00000001
844 @ 7549:            JUMPIF # L_0004
845 @ 7553:            JUMP   L_0097
846 @ 7556:            LOCATE L_0004
847 @ 7559:            JUMP   L_009f

    68  fn:st(s)=h
848 @ 7562:            LINE   68 "regression-compile-tmp/gpm.imp"
849 @ 7596:            LABEL  L_0099
850 @ 7599:            LINE   68 "regression-compile-tmp/gpm.imp"
851 @ 7633:            PUSH   ST
852 @ 7636:            PUSH   S
853 @ 7639:            ACCESS
854 @ 7640:            PUSH   H
855 @ 7643:            ASSVAL

    69     st(s+1)=f
856 @ 7644:            LINE   69 "regression-compile-tmp/gpm.imp"
857 @ 7678:            PUSH   ST
858 @ 7681:            PUSH   S
859 @ 7684:            PUSHI  #0x00000001
860 @ 7689:            ADD   
861 @ 7690:            ACCESS
862 @ 7691:            PUSH   F
863 @ 7694:            ASSVAL

    70     st(s+2)=0
864 @ 7695:            LINE   70 "regression-compile-tmp/gpm.imp"
865 @ 7729:            PUSH   ST
866 @ 7732:            PUSH   S
867 @ 7735:            PUSHI  #0x00000002
868 @ 7740:            ADD   
869 @ 7741:            ACCESS
870 @ 7742:            PUSHI  #0x00000000
871 @ 7747:            ASSVAL

    71     st(s+3)=0
872 @ 7748:            LINE   71 "regression-compile-tmp/gpm.imp"
873 @ 7782:            PUSH   ST
874 @ 7785:            PUSH   S
875 @ 7788:            PUSHI  #0x00000003
876 @ 7793:            ADD   
877 @ 7794:            ACCESS
878 @ 7795:            PUSHI  #0x00000000
879 @ 7800:            ASSVAL

    72     h=s+3
880 @ 7801:            LINE   72 "regression-compile-tmp/gpm.imp"
881 @ 7835:            PUSH   H
882 @ 7838:            PUSH   S
883 @ 7841:            PUSHI  #0x00000003
884 @ 7846:            ADD   
885 @ 7847:            ASSVAL

    73     f=s+1
886 @ 7848:            LINE   73 "regression-compile-tmp/gpm.imp"
887 @ 7882:            PUSH   F
888 @ 7885:            PUSH   S
889 @ 7888:            PUSHI  #0x00000001
890 @ 7893:            ADD   
891 @ 7894:            ASSVAL

    74     s=s+4
892 @ 7895:            LINE   74 "regression-compile-tmp/gpm.imp"
893 @ 7929:            PUSH   S
894 @ 7932:            PUSH   S
895 @ 7935:            PUSHI  #0x00000004
896 @ 7940:            ADD   
897 @ 7941:            ASSVAL

    75     ->start
    76  
898 @ 7942:            LINE   75 "regression-compile-tmp/gpm.imp"
899 @ 7976:            JUMP   L_0097

    77  next item:%if h=0 %then ->copy
900 @ 7979:            LINE   77 "regression-compile-tmp/gpm.imp"
901 @ 8013:            LABEL  L_009a
902 @ 8016:            LINE   77 "regression-compile-tmp/gpm.imp"
903 @ 8050:            PUSH   H
904 @ 8053:            PUSHI  #0x00000000
905 @ 8058:            JUMPIF # L_0004
906 @ 8062:            JUMP   L_009f
907 @ 8065:            LOCATE L_0004

    78     st(h)=s-h-st(h)
908 @ 8068:            LINE   78 "regression-compile-tmp/gpm.imp"
909 @ 8102:            PUSH   ST
910 @ 8105:            PUSH   H
911 @ 8108:            ACCESS
912 @ 8109:            PUSH   S
913 @ 8112:            PUSH   H
914 @ 8115:            SUB   
915 @ 8116:            PUSH   ST
916 @ 8119:            PUSH   H
917 @ 8122:            ACCESS
918 @ 8123:            SUB   
919 @ 8124:            ASSVAL

    79     st(s)=0
920 @ 8125:            LINE   79 "regression-compile-tmp/gpm.imp"
921 @ 8159:            PUSH   ST
922 @ 8162:            PUSH   S
923 @ 8165:            ACCESS
924 @ 8166:            PUSHI  #0x00000000
925 @ 8171:            ASSVAL

    80     h=s
926 @ 8172:            LINE   80 "regression-compile-tmp/gpm.imp"
927 @ 8206:            PUSH   H
928 @ 8209:            PUSH   S
929 @ 8212:            ASSVAL

    81     s=s+1
930 @ 8213:            LINE   81 "regression-compile-tmp/gpm.imp"
931 @ 8247:            PUSH   S
932 @ 8250:            PUSH   S
933 @ 8253:            PUSHI  #0x00000001
934 @ 8258:            ADD   
935 @ 8259:            ASSVAL

    82     ->start
    83  
936 @ 8260:            LINE   82 "regression-compile-tmp/gpm.imp"
937 @ 8294:            JUMP   L_0097

    84  apply:%if p>f %then monitor(1)
938 @ 8297:            LINE   84 "regression-compile-tmp/gpm.imp"
939 @ 8331:            LABEL  L_009b
940 @ 8334:            LINE   84 "regression-compile-tmp/gpm.imp"
941 @ 8368:            PUSH   P
942 @ 8371:            PUSH   F
943 @ 8374:            JUMPIF <= L_0004
944 @ 8378:            PUSH   MONITOR
945 @ 8381:            PUSHI  #0x00000001
946 @ 8386:            ASSPAR
947 @ 8387:            CALL  
948 @ 8388:            LOCATE L_0004

    85     %if h=0 %then ->copy
949 @ 8391:            LINE   85 "regression-compile-tmp/gpm.imp"
950 @ 8425:            PUSH   H
951 @ 8428:            PUSHI  #0x00000000
952 @ 8433:            JUMPIF # L_0004
953 @ 8437:            JUMP   L_009f
954 @ 8440:            LOCATE L_0004

    86     st(h)=s-h
955 @ 8443:            LINE   86 "regression-compile-tmp/gpm.imp"
956 @ 8477:            PUSH   ST
957 @ 8480:            PUSH   H
958 @ 8483:            ACCESS
959 @ 8484:            PUSH   S
960 @ 8487:            PUSH   H
961 @ 8490:            SUB   
962 @ 8491:            ASSVAL

    87     st(s)=marker
963 @ 8492:            LINE   87 "regression-compile-tmp/gpm.imp"
964 @ 8526:            PUSH   ST
965 @ 8529:            PUSH   S
966 @ 8532:            ACCESS
967 @ 8533:            PUSHI  #0xffffc000
968 @ 8538:            ASSVAL

    88     h0=st(f-1)
969 @ 8539:            LINE   88 "regression-compile-tmp/gpm.imp"
970 @ 8573:            PUSH   H0
971 @ 8576:            PUSH   ST
972 @ 8579:            PUSH   F
973 @ 8582:            PUSHI  #0x00000001
974 @ 8587:            SUB   
975 @ 8588:            ACCESS
976 @ 8589:            ASSVAL

    89     f0=st(f)
977 @ 8590:            LINE   89 "regression-compile-tmp/gpm.imp"
978 @ 8624:            PUSH   F0
979 @ 8627:            PUSH   ST
980 @ 8630:            PUSH   F
981 @ 8633:            ACCESS
982 @ 8634:            ASSVAL

    90     st(f-1)=s-f+2
983 @ 8635:            LINE   90 "regression-compile-tmp/gpm.imp"
984 @ 8669:            PUSH   ST
985 @ 8672:            PUSH   F
986 @ 8675:            PUSHI  #0x00000001
987 @ 8680:            SUB   
988 @ 8681:            ACCESS
989 @ 8682:            PUSH   S
990 @ 8685:            PUSH   F
991 @ 8688:            SUB   
992 @ 8689:            PUSHI  #0x00000002
993 @ 8694:            ADD   
994 @ 8695:            ASSVAL

    91     st(f)=p
995 @ 8696:            LINE   91 "regression-compile-tmp/gpm.imp"
996 @ 8730:            PUSH   ST
997 @ 8733:            PUSH   F
998 @ 8736:            ACCESS
999 @ 8737:            PUSH   P
1000 @ 8740:            ASSVAL

    92     st(f+1)=c
1001 @ 8741:            LINE   92 "regression-compile-tmp/gpm.imp"
1002 @ 8775:            PUSH   ST
1003 @ 8778:            PUSH   F
1004 @ 8781:            PUSHI  #0x00000001
1005 @ 8786:            ADD   
1006 @ 8787:            ACCESS
1007 @ 8788:            PUSH   C
1008 @ 8791:            ASSVAL

    93     p=f
1009 @ 8792:            LINE   93 "regression-compile-tmp/gpm.imp"
1010 @ 8826:            PUSH   P
1011 @ 8829:            PUSH   F
1012 @ 8832:            ASSVAL

    94     f=f0
1013 @ 8833:            LINE   94 "regression-compile-tmp/gpm.imp"
1014 @ 8867:            PUSH   F
1015 @ 8870:            PUSH   F0
1016 @ 8873:            ASSVAL

    95     h=h0
1017 @ 8874:            LINE   95 "regression-compile-tmp/gpm.imp"
1018 @ 8908:            PUSH   H
1019 @ 8911:            PUSH   H0
1020 @ 8914:            ASSVAL

    96     s=s+1
1021 @ 8915:            LINE   96 "regression-compile-tmp/gpm.imp"
1022 @ 8949:            PUSH   S
1023 @ 8952:            PUSH   S
1024 @ 8955:            PUSHI  #0x00000001
1025 @ 8960:            ADD   
1026 @ 8961:            ASSVAL

    97     %unless h=0 %then st(h)=st(h)+st(p-1)
1027 @ 8962:            LINE   97 "regression-compile-tmp/gpm.imp"
1028 @ 8996:            PUSH   H
1029 @ 8999:            PUSHI  #0x00000000
1030 @ 9004:            JUMPIF = L_0004
1031 @ 9008:            PUSH   ST
1032 @ 9011:            PUSH   H
1033 @ 9014:            ACCESS
1034 @ 9015:            PUSH   ST
1035 @ 9018:            PUSH   H
1036 @ 9021:            ACCESS
1037 @ 9022:            PUSH   ST
1038 @ 9025:            PUSH   P
1039 @ 9028:            PUSHI  #0x00000001
1040 @ 9033:            SUB   
1041 @ 9034:            ACCESS
1042 @ 9035:            ADD   
1043 @ 9036:            ASSVAL
1044 @ 9037:            LOCATE L_0004

    98     find(p+2)
1045 @ 9040:            LINE   98 "regression-compile-tmp/gpm.imp"
1046 @ 9074:            PUSH   FIND
1047 @ 9077:            PUSH   P
1048 @ 9080:            PUSHI  #0x00000002
1049 @ 9085:            ADD   
1050 @ 9086:            ASSPAR
1051 @ 9087:            CALL  

    99     %if st(w)<0 %then ->mcm(-st(w))
1052 @ 9088:            LINE   99 "regression-compile-tmp/gpm.imp"
1053 @ 9122:            PUSH   ST
1054 @ 9125:            PUSH   W
1055 @ 9128:            ACCESS
1056 @ 9129:            PUSHI  #0x00000000
1057 @ 9134:            JUMPIF >= L_0004
1058 @ 9138:            PUSH   ST
1059 @ 9141:            PUSH   W
1060 @ 9144:            ACCESS
1061 @ 9145:            NEGATE
1062 @ 9146:            SJUMP  150
1063 @ 9149:            LOCATE L_0004

   100     c=w+1
1064 @ 9152:            LINE   100 "regression-compile-tmp/gpm.imp"
1065 @ 9186:            PUSH   C
1066 @ 9189:            PUSH   W
1067 @ 9192:            PUSHI  #0x00000001
1068 @ 9197:            ADD   
1069 @ 9198:            ASSVAL

   101     ->start
   102  
1070 @ 9199:            LINE   101 "regression-compile-tmp/gpm.imp"
1071 @ 9233:            JUMP   L_0097

   103  loadarg:%if p=0 %then %start
1072 @ 9236:            LINE   103 "regression-compile-tmp/gpm.imp"
1073 @ 9270:            LABEL  L_009c
1074 @ 9273:            LINE   103 "regression-compile-tmp/gpm.imp"
1075 @ 9307:            PUSH   P
1076 @ 9310:            PUSHI  #0x00000000
1077 @ 9315:            JUMPIF # L_0004

   104       %if h=0 %then ->copy %else monitor(2)
1078 @ 9319:            LINE   104 "regression-compile-tmp/gpm.imp"
1079 @ 9353:            PUSH   H
1080 @ 9356:            PUSHI  #0x00000000
1081 @ 9361:            JUMPIF # L_0007
1082 @ 9365:            JUMP   L_009f
1083 @ 9368:            LOCATE L_0007
1084 @ 9371:            PUSH   MONITOR
1085 @ 9374:            PUSHI  #0x00000002
1086 @ 9379:            ASSPAR
1087 @ 9380:            CALL  

   105       %finish
1088 @ 9381:            LINE   105 "regression-compile-tmp/gpm.imp"
1089 @ 9415:            LOCATE L_0004

   106     nextch
1090 @ 9418:            LINE   106 "regression-compile-tmp/gpm.imp"
1091 @ 9452:            PUSH   NEXTCH
1092 @ 9455:            CALL  

   107     w=p+2
1093 @ 9456:            LINE   107 "regression-compile-tmp/gpm.imp"
1094 @ 9490:            PUSH   W
1095 @ 9493:            PUSH   P
1096 @ 9496:            PUSHI  #0x00000002
1097 @ 9501:            ADD   
1098 @ 9502:            ASSVAL

   108     %if a<'0' %then monitor(3)
1099 @ 9503:            LINE   108 "regression-compile-tmp/gpm.imp"
1100 @ 9537:            PUSH   A
1101 @ 9540:            PUSHI  #0x00000030
1102 @ 9545:            JUMPIF >= L_0004
1103 @ 9549:            PUSH   MONITOR
1104 @ 9552:            PUSHI  #0x00000003
1105 @ 9557:            ASSPAR
1106 @ 9558:            CALL  
1107 @ 9559:            LOCATE L_0004

   109     %if a>'0' %then %start
1108 @ 9562:            LINE   109 "regression-compile-tmp/gpm.imp"
1109 @ 9596:            PUSH   A
1110 @ 9599:            PUSHI  #0x00000030
1111 @ 9604:            JUMPIF <= L_0004

   110       %for r=0,1,a-'0'-1 %cycle
1112 @ 9608:            LINE   110 "regression-compile-tmp/gpm.imp"
1113 @ 9642:            PUSH   R
1114 @ 9645:            PUSHI  #0x00000001
1115 @ 9650:            PUSH   A
1116 @ 9653:            PUSHI  #0x00000030
1117 @ 9658:            SUB   
1118 @ 9659:            PUSHI  #0x00000001
1119 @ 9664:            SUB   
1120 @ 9665:            PUSHI  #0x00000000
1121 @ 9670:            FOR    L_0006

   111       w=w+st(w)
1122 @ 9673:            LINE   111 "regression-compile-tmp/gpm.imp"
1123 @ 9707:            PUSH   W
1124 @ 9710:            PUSH   W
1125 @ 9713:            PUSH   ST
1126 @ 9716:            PUSH   W
1127 @ 9719:            ACCESS
1128 @ 9720:            ADD   
1129 @ 9721:            ASSVAL

   112       %if st(w)=marker %then monitor(4)
1130 @ 9722:            LINE   112 "regression-compile-tmp/gpm.imp"
1131 @ 9756:            PUSH   ST
1132 @ 9759:            PUSH   W
1133 @ 9762:            ACCESS
1134 @ 9763:            PUSHI  #0xffffc000
1135 @ 9768:            JUMPIF # L_000a
1136 @ 9772:            PUSH   MONITOR
1137 @ 9775:            PUSHI  #0x00000004
1138 @ 9780:            ASSPAR
1139 @ 9781:            CALL  
1140 @ 9782:            LOCATE L_000a

   113       %repeat
1141 @ 9785:            LINE   113 "regression-compile-tmp/gpm.imp"
1142 @ 9819:            REPEAT L_0006
1143 @ 9822:            LOCATE L_0007

   114       %finish
1144 @ 9825:            LINE   114 "regression-compile-tmp/gpm.imp"
1145 @ 9859:            LOCATE L_0004

   115     %for r=1,1,st(w)-1 %cycle
1146 @ 9862:            LINE   115 "regression-compile-tmp/gpm.imp"
1147 @ 9896:            PUSH   R
1148 @ 9899:            PUSHI  #0x00000001
1149 @ 9904:            PUSH   ST
1150 @ 9907:            PUSH   W
1151 @ 9910:            ACCESS
1152 @ 9911:            PUSHI  #0x00000001
1153 @ 9916:            SUB   
1154 @ 9917:            PUSHI  #0x00000001
1155 @ 9922:            FOR    L_0003

   116     a=st(w+r)
1156 @ 9925:            LINE   116 "regression-compile-tmp/gpm.imp"
1157 @ 9959:            PUSH   A
1158 @ 9962:            PUSH   ST
1159 @ 9965:            PUSH   W
1160 @ 9968:            PUSH   R
1161 @ 9971:            ADD   
1162 @ 9972:            ACCESS
1163 @ 9973:            ASSVAL

   117     load
1164 @ 9974:            LINE   117 "regression-compile-tmp/gpm.imp"
1165 @ 10008:            PUSH   LOAD
1166 @ 10011:            CALL  

   118     %repeat
1167 @ 10012:            LINE   118 "regression-compile-tmp/gpm.imp"
1168 @ 10046:            REPEAT L_0003
1169 @ 10049:            LOCATE L_0004

   119     ->start
   120  
1170 @ 10052:            LINE   119 "regression-compile-tmp/gpm.imp"
1171 @ 10086:            JUMP   L_0097

   121  endfn:%if f>p %then monitor(5)
1172 @ 10089:            LINE   121 "regression-compile-tmp/gpm.imp"
1173 @ 10123:            LABEL  L_009d
1174 @ 10126:            LINE   121 "regression-compile-tmp/gpm.imp"
1175 @ 10160:            PUSH   F
1176 @ 10163:            PUSH   P
1177 @ 10166:            JUMPIF <= L_0004
1178 @ 10170:            PUSH   MONITOR
1179 @ 10173:            PUSHI  #0x00000005
1180 @ 10178:            ASSPAR
1181 @ 10179:            CALL  
1182 @ 10180:            LOCATE L_0004

   122     st(s)=e
1183 @ 10183:            LINE   122 "regression-compile-tmp/gpm.imp"
1184 @ 10217:            PUSH   ST
1185 @ 10220:            PUSH   S
1186 @ 10223:            ACCESS
1187 @ 10224:            PUSH   E
1188 @ 10227:            ASSVAL

   123     a=s
1189 @ 10228:            LINE   123 "regression-compile-tmp/gpm.imp"
1190 @ 10262:            PUSH   A
1191 @ 10265:            PUSH   S
1192 @ 10268:            ASSVAL

   124     %while st(a)>=p-1+st(p-1) %cycle
1193 @ 10269:            LINE   124 "regression-compile-tmp/gpm.imp"
1194 @ 10303:            LOCATE L_0003
1195 @ 10306:            PUSH   ST
1196 @ 10309:            PUSH   A
1197 @ 10312:            ACCESS
1198 @ 10313:            PUSH   P
1199 @ 10316:            PUSHI  #0x00000001
1200 @ 10321:            SUB   
1201 @ 10322:            PUSH   ST
1202 @ 10325:            PUSH   P
1203 @ 10328:            PUSHI  #0x00000001
1204 @ 10333:            SUB   
1205 @ 10334:            ACCESS
1206 @ 10335:            ADD   
1207 @ 10336:            JUMPIF < L_0004

   125       e0=st(a)
1208 @ 10340:            LINE   125 "regression-compile-tmp/gpm.imp"
1209 @ 10374:            PUSH   E0
1210 @ 10377:            PUSH   ST
1211 @ 10380:            PUSH   A
1212 @ 10383:            ACCESS
1213 @ 10384:            ASSVAL

   126       st(a)=e0-st(p-1)
1214 @ 10385:            LINE   126 "regression-compile-tmp/gpm.imp"
1215 @ 10419:            PUSH   ST
1216 @ 10422:            PUSH   A
1217 @ 10425:            ACCESS
1218 @ 10426:            PUSH   E0
1219 @ 10429:            PUSH   ST
1220 @ 10432:            PUSH   P
1221 @ 10435:            PUSHI  #0x00000001
1222 @ 10440:            SUB   
1223 @ 10441:            ACCESS
1224 @ 10442:            SUB   
1225 @ 10443:            ASSVAL

   127       a=e0
1226 @ 10444:            LINE   127 "regression-compile-tmp/gpm.imp"
1227 @ 10478:            PUSH   A
1228 @ 10481:            PUSH   E0
1229 @ 10484:            ASSVAL

   128    %repeat
1230 @ 10485:            LINE   128 "regression-compile-tmp/gpm.imp"
1231 @ 10519:            REPEAT L_0003
1232 @ 10522:            LOCATE L_0004

   129     w=st(a)
1233 @ 10525:            LINE   129 "regression-compile-tmp/gpm.imp"
1234 @ 10559:            PUSH   W
1235 @ 10562:            PUSH   ST
1236 @ 10565:            PUSH   A
1237 @ 10568:            ACCESS
1238 @ 10569:            ASSVAL

   130     w=st(w) %while w>p-1
1239 @ 10570:            LINE   130 "regression-compile-tmp/gpm.imp"
1240 @ 10604:            LOCATE L_0003
1241 @ 10607:            PUSH   W
1242 @ 10610:            PUSH   P
1243 @ 10613:            PUSHI  #0x00000001
1244 @ 10618:            SUB   
1245 @ 10619:            JUMPIF <= L_0004
1246 @ 10623:            PUSH   W
1247 @ 10626:            PUSH   ST
1248 @ 10629:            PUSH   W
1249 @ 10632:            ACCESS
1250 @ 10633:            ASSVAL
1251 @ 10634:            REPEAT L_0003
1252 @ 10637:            LOCATE L_0004

   131     st(a)=w
1253 @ 10640:            LINE   131 "regression-compile-tmp/gpm.imp"
1254 @ 10674:            PUSH   ST
1255 @ 10677:            PUSH   A
1256 @ 10680:            ACCESS
1257 @ 10681:            PUSH   W
1258 @ 10684:            ASSVAL

   132     e=st(s)
1259 @ 10685:            LINE   132 "regression-compile-tmp/gpm.imp"
1260 @ 10719:            PUSH   E
1261 @ 10722:            PUSH   ST
1262 @ 10725:            PUSH   S
1263 @ 10728:            ACCESS
1264 @ 10729:            ASSVAL

   133     %unless h=0 %then %start
1265 @ 10730:            LINE   133 "regression-compile-tmp/gpm.imp"
1266 @ 10764:            PUSH   H
1267 @ 10767:            PUSHI  #0x00000000
1268 @ 10772:            JUMPIF = L_0004

   134       %if h>p %then h=h-st(p-1) %else st(h)=st(h)-st(p-1)
1269 @ 10776:            LINE   134 "regression-compile-tmp/gpm.imp"
1270 @ 10810:            PUSH   H
1271 @ 10813:            PUSH   P
1272 @ 10816:            JUMPIF <= L_0007
1273 @ 10820:            PUSH   H
1274 @ 10823:            PUSH   H
1275 @ 10826:            PUSH   ST
1276 @ 10829:            PUSH   P
1277 @ 10832:            PUSHI  #0x00000001
1278 @ 10837:            SUB   
1279 @ 10838:            ACCESS
1280 @ 10839:            SUB   
1281 @ 10840:            ASSVAL
1282 @ 10841:            GOTO   L_0006
1283 @ 10844:            LOCATE L_0007
1284 @ 10847:            PUSH   ST
1285 @ 10850:            PUSH   H
1286 @ 10853:            ACCESS
1287 @ 10854:            PUSH   ST
1288 @ 10857:            PUSH   H
1289 @ 10860:            ACCESS
1290 @ 10861:            PUSH   ST
1291 @ 10864:            PUSH   P
1292 @ 10867:            PUSHI  #0x00000001
1293 @ 10872:            SUB   
1294 @ 10873:            ACCESS
1295 @ 10874:            SUB   
1296 @ 10875:            ASSVAL
1297 @ 10876:            LOCATE L_0006

   135       %finish
1298 @ 10879:            LINE   135 "regression-compile-tmp/gpm.imp"
1299 @ 10913:            LOCATE L_0004

   136     a=p-1
1300 @ 10916:            LINE   136 "regression-compile-tmp/gpm.imp"
1301 @ 10950:            PUSH   A
1302 @ 10953:            PUSH   P
1303 @ 10956:            PUSHI  #0x00000001
1304 @ 10961:            SUB   
1305 @ 10962:            ASSVAL

   137     w=a+st(p-1)
1306 @ 10963:            LINE   137 "regression-compile-tmp/gpm.imp"
1307 @ 10997:            PUSH   W
1308 @ 11000:            PUSH   A
1309 @ 11003:            PUSH   ST
1310 @ 11006:            PUSH   P
1311 @ 11009:            PUSHI  #0x00000001
1312 @ 11014:            SUB   
1313 @ 11015:            ACCESS
1314 @ 11016:            ADD   
1315 @ 11017:            ASSVAL

   138     c=st(p+1)
1316 @ 11018:            LINE   138 "regression-compile-tmp/gpm.imp"
1317 @ 11052:            PUSH   C
1318 @ 11055:            PUSH   ST
1319 @ 11058:            PUSH   P
1320 @ 11061:            PUSHI  #0x00000001
1321 @ 11066:            ADD   
1322 @ 11067:            ACCESS
1323 @ 11068:            ASSVAL

   139     s=s-st(p-1)
1324 @ 11069:            LINE   139 "regression-compile-tmp/gpm.imp"
1325 @ 11103:            PUSH   S
1326 @ 11106:            PUSH   S
1327 @ 11109:            PUSH   ST
1328 @ 11112:            PUSH   P
1329 @ 11115:            PUSHI  #0x00000001
1330 @ 11120:            SUB   
1331 @ 11121:            ACCESS
1332 @ 11122:            SUB   
1333 @ 11123:            ASSVAL

   140     p=st(p)
1334 @ 11124:            LINE   140 "regression-compile-tmp/gpm.imp"
1335 @ 11158:            PUSH   P
1336 @ 11161:            PUSH   ST
1337 @ 11164:            PUSH   P
1338 @ 11167:            ACCESS
1339 @ 11168:            ASSVAL

   141     st(a)=st(w) %and a=a+1 %and w=w+1 %while a#s
1340 @ 11169:            LINE   141 "regression-compile-tmp/gpm.imp"
1341 @ 11203:            LOCATE L_0003
1342 @ 11206:            PUSH   A
1343 @ 11209:            PUSH   S
1344 @ 11212:            JUMPIF = L_0004
1345 @ 11216:            PUSH   ST
1346 @ 11219:            PUSH   A
1347 @ 11222:            ACCESS
1348 @ 11223:            PUSH   ST
1349 @ 11226:            PUSH   W
1350 @ 11229:            ACCESS
1351 @ 11230:            ASSVAL
1352 @ 11231:            PUSH   A
1353 @ 11234:            PUSH   A
1354 @ 11237:            PUSHI  #0x00000001
1355 @ 11242:            ADD   
1356 @ 11243:            ASSVAL
1357 @ 11244:            PUSH   W
1358 @ 11247:            PUSH   W
1359 @ 11250:            PUSHI  #0x00000001
1360 @ 11255:            ADD   
1361 @ 11256:            ASSVAL
1362 @ 11257:            REPEAT L_0003
1363 @ 11260:            LOCATE L_0004

   142     ->start
   143  
1364 @ 11263:            LINE   142 "regression-compile-tmp/gpm.imp"
1365 @ 11297:            JUMP   L_0097

   144  exit:%unless c=h=0 %then monitor(8)
1366 @ 11300:            LINE   144 "regression-compile-tmp/gpm.imp"
1367 @ 11334:            LABEL  L_009e
1368 @ 11337:            LINE   144 "regression-compile-tmp/gpm.imp"
1369 @ 11371:            PUSH   C
1370 @ 11374:            PUSH   H
1371 @ 11377:            JUMPIFD # L_0005
1372 @ 11381:            PUSHI  #0x00000000
1373 @ 11386:            JUMPIF = L_0004
1374 @ 11390:            LOCATE L_0005
1375 @ 11393:            PUSH   MONITOR
1376 @ 11396:            PUSHI  #0x00000008
1377 @ 11401:            ASSPAR
1378 @ 11402:            CALL  
1379 @ 11403:            LOCATE L_0004

   145     %stop
   146  
1380 @ 11406:            LINE   145 "regression-compile-tmp/gpm.imp"
1381 @ 11440:            STOP  

   147  mcm(1):! def
1382 @ 11441:            LINE   147 "regression-compile-tmp/gpm.imp"
1383 @ 11475:            PUSHI  #0x00000001
1384 @ 11480:            SLABEL 150

   148     %unless h=0 %then st(h)=st(h)-st(p-1)+6
1385 @ 11483:            LINE   148 "regression-compile-tmp/gpm.imp"
1386 @ 11517:            PUSH   H
1387 @ 11520:            PUSHI  #0x00000000
1388 @ 11525:            JUMPIF = L_0004
1389 @ 11529:            PUSH   ST
1390 @ 11532:            PUSH   H
1391 @ 11535:            ACCESS
1392 @ 11536:            PUSH   ST
1393 @ 11539:            PUSH   H
1394 @ 11542:            ACCESS
1395 @ 11543:            PUSH   ST
1396 @ 11546:            PUSH   P
1397 @ 11549:            PUSHI  #0x00000001
1398 @ 11554:            SUB   
1399 @ 11555:            ACCESS
1400 @ 11556:            SUB   
1401 @ 11557:            PUSHI  #0x00000006
1402 @ 11562:            ADD   
1403 @ 11563:            ASSVAL
1404 @ 11564:            LOCATE L_0004

   149     st(p-1)=6
1405 @ 11567:            LINE   149 "regression-compile-tmp/gpm.imp"
1406 @ 11601:            PUSH   ST
1407 @ 11604:            PUSH   P
1408 @ 11607:            PUSHI  #0x00000001
1409 @ 11612:            SUB   
1410 @ 11613:            ACCESS
1411 @ 11614:            PUSHI  #0x00000006
1412 @ 11619:            ASSVAL

   150     st(p+5)=e
1413 @ 11620:            LINE   150 "regression-compile-tmp/gpm.imp"
1414 @ 11654:            PUSH   ST
1415 @ 11657:            PUSH   P
1416 @ 11660:            PUSHI  #0x00000005
1417 @ 11665:            ADD   
1418 @ 11666:            ACCESS
1419 @ 11667:            PUSH   E
1420 @ 11670:            ASSVAL

   151     e=p+5
1421 @ 11671:            LINE   151 "regression-compile-tmp/gpm.imp"
1422 @ 11705:            PUSH   E
1423 @ 11708:            PUSH   P
1424 @ 11711:            PUSHI  #0x00000005
1425 @ 11716:            ADD   
1426 @ 11717:            ASSVAL

   152     ->endfn
   153  
1427 @ 11718:            LINE   152 "regression-compile-tmp/gpm.imp"
1428 @ 11752:            JUMP   L_009d

   154  mcm(2):! val
1429 @ 11755:            LINE   154 "regression-compile-tmp/gpm.imp"
1430 @ 11789:            PUSHI  #0x00000002
1431 @ 11794:            SLABEL 150

   155     find(p+6)
1432 @ 11797:            LINE   155 "regression-compile-tmp/gpm.imp"
1433 @ 11831:            PUSH   FIND
1434 @ 11834:            PUSH   P
1435 @ 11837:            PUSHI  #0x00000006
1436 @ 11842:            ADD   
1437 @ 11843:            ASSPAR
1438 @ 11844:            CALL  

   156     a=st(w+1) %and w=w+1 %and load %while st(w+1)#marker
1439 @ 11845:            LINE   156 "regression-compile-tmp/gpm.imp"
1440 @ 11879:            LOCATE L_0003
1441 @ 11882:            PUSH   ST
1442 @ 11885:            PUSH   W
1443 @ 11888:            PUSHI  #0x00000001
1444 @ 11893:            ADD   
1445 @ 11894:            ACCESS
1446 @ 11895:            PUSHI  #0xffffc000
1447 @ 11900:            JUMPIF = L_0004
1448 @ 11904:            PUSH   A
1449 @ 11907:            PUSH   ST
1450 @ 11910:            PUSH   W
1451 @ 11913:            PUSHI  #0x00000001
1452 @ 11918:            ADD   
1453 @ 11919:            ACCESS
1454 @ 11920:            ASSVAL
1455 @ 11921:            PUSH   W
1456 @ 11924:            PUSH   W
1457 @ 11927:            PUSHI  #0x00000001
1458 @ 11932:            ADD   
1459 @ 11933:            ASSVAL
1460 @ 11934:            PUSH   LOAD
1461 @ 11937:            CALL  
1462 @ 11938:            REPEAT L_0003
1463 @ 11941:            LOCATE L_0004

   157     ->endfn
   158  
1464 @ 11944:            LINE   157 "regression-compile-tmp/gpm.imp"
1465 @ 11978:            JUMP   L_009d

   159  mcm(3):! update
1466 @ 11981:            LINE   159 "regression-compile-tmp/gpm.imp"
1467 @ 12015:            PUSHI  #0x00000003
1468 @ 12020:            SLABEL 150

   160     find(p+9)
1469 @ 12023:            LINE   160 "regression-compile-tmp/gpm.imp"
1470 @ 12057:            PUSH   FIND
1471 @ 12060:            PUSH   P
1472 @ 12063:            PUSHI  #0x00000009
1473 @ 12068:            ADD   
1474 @ 12069:            ASSPAR
1475 @ 12070:            CALL  

   161     a=p+9+st(p+9)
1476 @ 12071:            LINE   161 "regression-compile-tmp/gpm.imp"
1477 @ 12105:            PUSH   A
1478 @ 12108:            PUSH   P
1479 @ 12111:            PUSHI  #0x00000009
1480 @ 12116:            ADD   
1481 @ 12117:            PUSH   ST
1482 @ 12120:            PUSH   P
1483 @ 12123:            PUSHI  #0x00000009
1484 @ 12128:            ADD   
1485 @ 12129:            ACCESS
1486 @ 12130:            ADD   
1487 @ 12131:            ASSVAL

   162     %if st(a)>st(w) %then monitor(9)
1488 @ 12132:            LINE   162 "regression-compile-tmp/gpm.imp"
1489 @ 12166:            PUSH   ST
1490 @ 12169:            PUSH   A
1491 @ 12172:            ACCESS
1492 @ 12173:            PUSH   ST
1493 @ 12176:            PUSH   W
1494 @ 12179:            ACCESS
1495 @ 12180:            JUMPIF <= L_0004
1496 @ 12184:            PUSH   MONITOR
1497 @ 12187:            PUSHI  #0x00000009
1498 @ 12192:            ASSPAR
1499 @ 12193:            CALL  
1500 @ 12194:            LOCATE L_0004

   163     %for r=1,1,st(a) %cycle
1501 @ 12197:            LINE   163 "regression-compile-tmp/gpm.imp"
1502 @ 12231:            PUSH   R
1503 @ 12234:            PUSHI  #0x00000001
1504 @ 12239:            PUSH   ST
1505 @ 12242:            PUSH   A
1506 @ 12245:            ACCESS
1507 @ 12246:            PUSHI  #0x00000001
1508 @ 12251:            FOR    L_0003

   164     st(w+r)=st(a+r)
1509 @ 12254:            LINE   164 "regression-compile-tmp/gpm.imp"
1510 @ 12288:            PUSH   ST
1511 @ 12291:            PUSH   W
1512 @ 12294:            PUSH   R
1513 @ 12297:            ADD   
1514 @ 12298:            ACCESS
1515 @ 12299:            PUSH   ST
1516 @ 12302:            PUSH   A
1517 @ 12305:            PUSH   R
1518 @ 12308:            ADD   
1519 @ 12309:            ACCESS
1520 @ 12310:            ASSVAL

   165     %repeat
1521 @ 12311:            LINE   165 "regression-compile-tmp/gpm.imp"
1522 @ 12345:            REPEAT L_0003
1523 @ 12348:            LOCATE L_0004

   166     ->endfn
   167  
1524 @ 12351:            LINE   166 "regression-compile-tmp/gpm.imp"
1525 @ 12385:            JUMP   L_009d

   168  mcm(4):! bin
1526 @ 12388:            LINE   168 "regression-compile-tmp/gpm.imp"
1527 @ 12422:            PUSHI  #0x00000004
1528 @ 12427:            SLABEL 150

   169     w=0
1529 @ 12430:            LINE   169 "regression-compile-tmp/gpm.imp"
1530 @ 12464:            PUSH   W
1531 @ 12467:            PUSHI  #0x00000000
1532 @ 12472:            ASSVAL

   170     %if st(p+7)='+' %or st(p+7)='-' %then a=p+8 %else a=p+7
1533 @ 12473:            LINE   170 "regression-compile-tmp/gpm.imp"
1534 @ 12507:            PUSH   ST
1535 @ 12510:            PUSH   P
1536 @ 12513:            PUSHI  #0x00000007
1537 @ 12518:            ADD   
1538 @ 12519:            ACCESS
1539 @ 12520:            PUSHI  #0x0000002b
1540 @ 12525:            JUMPIF = L_0005
1541 @ 12529:            PUSH   ST
1542 @ 12532:            PUSH   P
1543 @ 12535:            PUSHI  #0x00000007
1544 @ 12540:            ADD   
1545 @ 12541:            ACCESS
1546 @ 12542:            PUSHI  #0x0000002d
1547 @ 12547:            JUMPIF # L_0004
1548 @ 12551:            LOCATE L_0005
1549 @ 12554:            PUSH   A
1550 @ 12557:            PUSH   P
1551 @ 12560:            PUSHI  #0x00000008
1552 @ 12565:            ADD   
1553 @ 12566:            ASSVAL
1554 @ 12567:            GOTO   L_0003
1555 @ 12570:            LOCATE L_0004
1556 @ 12573:            PUSH   A
1557 @ 12576:            PUSH   P
1558 @ 12579:            PUSHI  #0x00000007
1559 @ 12584:            ADD   
1560 @ 12585:            ASSVAL
1561 @ 12586:            LOCATE L_0003

   171     %while st(a)#marker %cycle
1562 @ 12589:            LINE   171 "regression-compile-tmp/gpm.imp"
1563 @ 12623:            LOCATE L_0003
1564 @ 12626:            PUSH   ST
1565 @ 12629:            PUSH   A
1566 @ 12632:            ACCESS
1567 @ 12633:            PUSHI  #0xffffc000
1568 @ 12638:            JUMPIF = L_0004

   172       %unless '0'<=st(a)<='9' %then monitor(10)
1569 @ 12642:            LINE   172 "regression-compile-tmp/gpm.imp"
1570 @ 12676:            PUSHI  #0x00000030
1571 @ 12681:            PUSH   ST
1572 @ 12684:            PUSH   A
1573 @ 12687:            ACCESS
1574 @ 12688:            JUMPIFD > L_0008
1575 @ 12692:            PUSHI  #0x00000039
1576 @ 12697:            JUMPIF <= L_0007
1577 @ 12701:            LOCATE L_0008
1578 @ 12704:            PUSH   MONITOR
1579 @ 12707:            PUSHI  #0x0000000a
1580 @ 12712:            ASSPAR
1581 @ 12713:            CALL  
1582 @ 12714:            LOCATE L_0007

   173       w=10*w+st(a)-'0'
1583 @ 12717:            LINE   173 "regression-compile-tmp/gpm.imp"
1584 @ 12751:            PUSH   W
1585 @ 12754:            PUSHI  #0x0000000a
1586 @ 12759:            PUSH   W
1587 @ 12762:            MUL   
1588 @ 12763:            PUSH   ST
1589 @ 12766:            PUSH   A
1590 @ 12769:            ACCESS
1591 @ 12770:            ADD   
1592 @ 12771:            PUSHI  #0x00000030
1593 @ 12776:            SUB   
1594 @ 12777:            ASSVAL

   174       a=a+1
1595 @ 12778:            LINE   174 "regression-compile-tmp/gpm.imp"
1596 @ 12812:            PUSH   A
1597 @ 12815:            PUSH   A
1598 @ 12818:            PUSHI  #0x00000001
1599 @ 12823:            ADD   
1600 @ 12824:            ASSVAL

   175       %repeat
1601 @ 12825:            LINE   175 "regression-compile-tmp/gpm.imp"
1602 @ 12859:            REPEAT L_0003
1603 @ 12862:            LOCATE L_0004

   176     %if st(p+7)='-' %then st(s)=-w %else st(s)=w
1604 @ 12865:            LINE   176 "regression-compile-tmp/gpm.imp"
1605 @ 12899:            PUSH   ST
1606 @ 12902:            PUSH   P
1607 @ 12905:            PUSHI  #0x00000007
1608 @ 12910:            ADD   
1609 @ 12911:            ACCESS
1610 @ 12912:            PUSHI  #0x0000002d
1611 @ 12917:            JUMPIF # L_0004
1612 @ 12921:            PUSH   ST
1613 @ 12924:            PUSH   S
1614 @ 12927:            ACCESS
1615 @ 12928:            PUSH   W
1616 @ 12931:            NEGATE
1617 @ 12932:            ASSVAL
1618 @ 12933:            GOTO   L_0003
1619 @ 12936:            LOCATE L_0004
1620 @ 12939:            PUSH   ST
1621 @ 12942:            PUSH   S
1622 @ 12945:            ACCESS
1623 @ 12946:            PUSH   W
1624 @ 12949:            ASSVAL
1625 @ 12950:            LOCATE L_0003

   177     s=s+1
1626 @ 12953:            LINE   177 "regression-compile-tmp/gpm.imp"
1627 @ 12987:            PUSH   S
1628 @ 12990:            PUSH   S
1629 @ 12993:            PUSHI  #0x00000001
1630 @ 12998:            ADD   
1631 @ 12999:            ASSVAL

   178     ->endfn
   179  
1632 @ 13000:            LINE   178 "regression-compile-tmp/gpm.imp"
1633 @ 13034:            JUMP   L_009d

   180  mcm(5):! dec
1634 @ 13037:            LINE   180 "regression-compile-tmp/gpm.imp"
1635 @ 13071:            PUSHI  #0x00000005
1636 @ 13076:            SLABEL 150

   181     w=st(p+7)
1637 @ 13079:            LINE   181 "regression-compile-tmp/gpm.imp"
1638 @ 13113:            PUSH   W
1639 @ 13116:            PUSH   ST
1640 @ 13119:            PUSH   P
1641 @ 13122:            PUSHI  #0x00000007
1642 @ 13127:            ADD   
1643 @ 13128:            ACCESS
1644 @ 13129:            ASSVAL

   182     %if w<0 %then w=-w %and a='-' %and load
1645 @ 13130:            LINE   182 "regression-compile-tmp/gpm.imp"
1646 @ 13164:            PUSH   W
1647 @ 13167:            PUSHI  #0x00000000
1648 @ 13172:            JUMPIF >= L_0004
1649 @ 13176:            PUSH   W
1650 @ 13179:            PUSH   W
1651 @ 13182:            NEGATE
1652 @ 13183:            ASSVAL
1653 @ 13184:            PUSH   A
1654 @ 13187:            PUSHI  #0x0000002d
1655 @ 13192:            ASSVAL
1656 @ 13193:            PUSH   LOAD
1657 @ 13196:            CALL  
1658 @ 13197:            LOCATE L_0004

   183     r=1
1659 @ 13200:            LINE   183 "regression-compile-tmp/gpm.imp"
1660 @ 13234:            PUSH   R
1661 @ 13237:            PUSHI  #0x00000001
1662 @ 13242:            ASSVAL

   184     r=10*r %while 10*r<=w
1663 @ 13243:            LINE   184 "regression-compile-tmp/gpm.imp"
1664 @ 13277:            LOCATE L_0003
1665 @ 13280:            PUSHI  #0x0000000a
1666 @ 13285:            PUSH   R
1667 @ 13288:            MUL   
1668 @ 13289:            PUSH   W
1669 @ 13292:            JUMPIF > L_0004
1670 @ 13296:            PUSH   R
1671 @ 13299:            PUSHI  #0x0000000a
1672 @ 13304:            PUSH   R
1673 @ 13307:            MUL   
1674 @ 13308:            ASSVAL
1675 @ 13309:            REPEAT L_0003
1676 @ 13312:            LOCATE L_0004

   185     a=w//r+'0' %and load %and w=w-r*(a-'0')%and r=r//10 %while r>=1
1677 @ 13315:            LINE   185 "regression-compile-tmp/gpm.imp"
1678 @ 13349:            LOCATE L_0003
1679 @ 13352:            PUSH   R
1680 @ 13355:            PUSHI  #0x00000001
1681 @ 13360:            JUMPIF < L_0004
1682 @ 13364:            PUSH   A
1683 @ 13367:            PUSH   W
1684 @ 13370:            PUSH   R
1685 @ 13373:            QUOT  
1686 @ 13374:            PUSHI  #0x00000030
1687 @ 13379:            ADD   
1688 @ 13380:            ASSVAL
1689 @ 13381:            PUSH   LOAD
1690 @ 13384:            CALL  
1691 @ 13385:            PUSH   W
1692 @ 13388:            PUSH   W
1693 @ 13391:            PUSH   R
1694 @ 13394:            PUSH   A
1695 @ 13397:            PUSHI  #0x00000030
1696 @ 13402:            SUB   
1697 @ 13403:            MUL   
1698 @ 13404:            SUB   
1699 @ 13405:            ASSVAL
1700 @ 13406:            PUSH   R
1701 @ 13409:            PUSH   R
1702 @ 13412:            PUSHI  #0x0000000a
1703 @ 13417:            QUOT  
1704 @ 13418:            ASSVAL
1705 @ 13419:            REPEAT L_0003
1706 @ 13422:            LOCATE L_0004

   186     ->endfn
   187  
1707 @ 13425:            LINE   186 "regression-compile-tmp/gpm.imp"
1708 @ 13459:            JUMP   L_009d

   188  mcm(6):! bar
1709 @ 13462:            LINE   188 "regression-compile-tmp/gpm.imp"
1710 @ 13496:            PUSHI  #0x00000006
1711 @ 13501:            SLABEL 150

   189     w=st(p+9)
1712 @ 13504:            LINE   189 "regression-compile-tmp/gpm.imp"
1713 @ 13538:            PUSH   W
1714 @ 13541:            PUSH   ST
1715 @ 13544:            PUSH   P
1716 @ 13547:            PUSHI  #0x00000009
1717 @ 13552:            ADD   
1718 @ 13553:            ACCESS
1719 @ 13554:            ASSVAL

   190     a=st(p+11)
1720 @ 13555:            LINE   190 "regression-compile-tmp/gpm.imp"
1721 @ 13589:            PUSH   A
1722 @ 13592:            PUSH   ST
1723 @ 13595:            PUSH   P
1724 @ 13598:            PUSHI  #0x0000000b
1725 @ 13603:            ADD   
1726 @ 13604:            ACCESS
1727 @ 13605:            ASSVAL

   191     %if st(p+7)='+' %then a=w+a
1728 @ 13606:            LINE   191 "regression-compile-tmp/gpm.imp"
1729 @ 13640:            PUSH   ST
1730 @ 13643:            PUSH   P
1731 @ 13646:            PUSHI  #0x00000007
1732 @ 13651:            ADD   
1733 @ 13652:            ACCESS
1734 @ 13653:            PUSHI  #0x0000002b
1735 @ 13658:            JUMPIF # L_0004
1736 @ 13662:            PUSH   A
1737 @ 13665:            PUSH   W
1738 @ 13668:            PUSH   A
1739 @ 13671:            ADD   
1740 @ 13672:            ASSVAL
1741 @ 13673:            LOCATE L_0004

   192     %if st(p+7)='-' %then a=w-a
1742 @ 13676:            LINE   192 "regression-compile-tmp/gpm.imp"
1743 @ 13710:            PUSH   ST
1744 @ 13713:            PUSH   P
1745 @ 13716:            PUSHI  #0x00000007
1746 @ 13721:            ADD   
1747 @ 13722:            ACCESS
1748 @ 13723:            PUSHI  #0x0000002d
1749 @ 13728:            JUMPIF # L_0004
1750 @ 13732:            PUSH   A
1751 @ 13735:            PUSH   W
1752 @ 13738:            PUSH   A
1753 @ 13741:            SUB   
1754 @ 13742:            ASSVAL
1755 @ 13743:            LOCATE L_0004

   193     %if st(p+7)='*' %then a=w*a
1756 @ 13746:            LINE   193 "regression-compile-tmp/gpm.imp"
1757 @ 13780:            PUSH   ST
1758 @ 13783:            PUSH   P
1759 @ 13786:            PUSHI  #0x00000007
1760 @ 13791:            ADD   
1761 @ 13792:            ACCESS
1762 @ 13793:            PUSHI  #0x0000002a
1763 @ 13798:            JUMPIF # L_0004
1764 @ 13802:            PUSH   A
1765 @ 13805:            PUSH   W
1766 @ 13808:            PUSH   A
1767 @ 13811:            MUL   
1768 @ 13812:            ASSVAL
1769 @ 13813:            LOCATE L_0004

   194     %if st(p+7)='/' %then a=w//a
1770 @ 13816:            LINE   194 "regression-compile-tmp/gpm.imp"
1771 @ 13850:            PUSH   ST
1772 @ 13853:            PUSH   P
1773 @ 13856:            PUSHI  #0x00000007
1774 @ 13861:            ADD   
1775 @ 13862:            ACCESS
1776 @ 13863:            PUSHI  #0x0000002f
1777 @ 13868:            JUMPIF # L_0004
1778 @ 13872:            PUSH   A
1779 @ 13875:            PUSH   W
1780 @ 13878:            PUSH   A
1781 @ 13881:            QUOT  
1782 @ 13882:            ASSVAL
1783 @ 13883:            LOCATE L_0004

   195     %if st(p+7)='r' %then a=w-w//a*a
1784 @ 13886:            LINE   195 "regression-compile-tmp/gpm.imp"
1785 @ 13920:            PUSH   ST
1786 @ 13923:            PUSH   P
1787 @ 13926:            PUSHI  #0x00000007
1788 @ 13931:            ADD   
1789 @ 13932:            ACCESS
1790 @ 13933:            PUSHI  #0x00000072
1791 @ 13938:            JUMPIF # L_0004
1792 @ 13942:            PUSH   A
1793 @ 13945:            PUSH   W
1794 @ 13948:            PUSH   W
1795 @ 13951:            PUSH   A
1796 @ 13954:            QUOT  
1797 @ 13955:            PUSH   A
1798 @ 13958:            MUL   
1799 @ 13959:            SUB   
1800 @ 13960:            ASSVAL
1801 @ 13961:            LOCATE L_0004

   196     load
1802 @ 13964:            LINE   196 "regression-compile-tmp/gpm.imp"
1803 @ 13998:            PUSH   LOAD
1804 @ 14001:            CALL  

   197     ->endfn
   198  
   199  {------------------------------------------------------------------------------}
   200  
1805 @ 14002:            LINE   197 "regression-compile-tmp/gpm.imp"
1806 @ 14036:            JUMP   L_009d

   201  %routine load
1807 @ 14039:            LINE   201 "regression-compile-tmp/gpm.imp"
1808 @ 14073:            DEF    LOAD (_lev0id0_LOAD) p1=V_0081 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
1809 @ 14089:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
1810 @ 14090:               FINISH ) {lev=2}

   202     %if h=0 %then print symbol(a) %else st(s)=a %and s=s+1
1811 @ 14091:               LINE   202 "regression-compile-tmp/gpm.imp"
1812 @ 14125:               PUSH   H
1813 @ 14128:               PUSHI  #0x00000000
1814 @ 14133:               JUMPIF # L_0004
1815 @ 14137:               PUSH   PRINTSYMBOL
1816 @ 14140:               PUSH   A
1817 @ 14143:               ASSPAR
1818 @ 14144:               CALL  
1819 @ 14145:               GOTO   L_0003
1820 @ 14148:               LOCATE L_0004
1821 @ 14151:               PUSH   ST
1822 @ 14154:               PUSH   S
1823 @ 14157:               ACCESS
1824 @ 14158:               PUSH   A
1825 @ 14161:               ASSVAL
1826 @ 14162:               PUSH   S
1827 @ 14165:               PUSH   S
1828 @ 14168:               PUSHI  #0x00000001
1829 @ 14173:               ADD   
1830 @ 14174:               ASSVAL
1831 @ 14175:               LOCATE L_0003

   203  %end
   204  
   205  {------------------------------------------------------------------------------}
   206  
1832 @ 14178:               LINE   203 "regression-compile-tmp/gpm.imp"
1833 @ 14212:            END    _lev0id0_LOAD {lev=2 --> 1}

   207  %routine nextch
1834 @ 14213:            LINE   207 "regression-compile-tmp/gpm.imp"
1835 @ 14247:            DEF    NEXTCH (_lev0id0_NEXTCH) p1=V_0082 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
1836 @ 14265:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
1837 @ 14266:               FINISH ) {lev=2}

   208     %if c=0 %then read symbol(a) %else a=st(c) %and c=c+1
1838 @ 14267:               LINE   208 "regression-compile-tmp/gpm.imp"
1839 @ 14301:               PUSH   C
1840 @ 14304:               PUSHI  #0x00000000
1841 @ 14309:               JUMPIF # L_0004
1842 @ 14313:               PUSH   READSYMBOL
1843 @ 14316:               PUSH   A
1844 @ 14319:               ASSPAR
1845 @ 14320:               CALL  
1846 @ 14321:               GOTO   L_0003
1847 @ 14324:               LOCATE L_0004
1848 @ 14327:               PUSH   A
1849 @ 14330:               PUSH   ST
1850 @ 14333:               PUSH   C
1851 @ 14336:               ACCESS
1852 @ 14337:               ASSVAL
1853 @ 14338:               PUSH   C
1854 @ 14341:               PUSH   C
1855 @ 14344:               PUSHI  #0x00000001
1856 @ 14349:               ADD   
1857 @ 14350:               ASSVAL
1858 @ 14351:               LOCATE L_0003

   209  %end
   210  
   211  {------------------------------------------------------------------------------}
   212  
1859 @ 14354:               LINE   209 "regression-compile-tmp/gpm.imp"
1860 @ 14388:            END    _lev0id0_NEXTCH {lev=2 --> 1}

   213  %routine find(%integer x)
1861 @ 14389:            LINE   213 "regression-compile-tmp/gpm.imp"
1862 @ 14423:            DEF    FIND (_lev0id0_FIND) p1=V_0083 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
1863 @ 14439:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
1864 @ 14440:                  DEF    X 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
1865 @ 14453:               FINISH ) {lev=2}

   214     a=e
1866 @ 14454:               LINE   214 "regression-compile-tmp/gpm.imp"
1867 @ 14488:               PUSH   A
1868 @ 14491:               PUSH   E
1869 @ 14494:               ASSVAL

   215     w=x
1870 @ 14495:               LINE   215 "regression-compile-tmp/gpm.imp"
1871 @ 14529:               PUSH   W
1872 @ 14532:               PUSH   X
1873 @ 14535:               ASSVAL

   216  again: %for r=0,1,st(w)-1 %cycle
1874 @ 14536:               LINE   216 "regression-compile-tmp/gpm.imp"
1875 @ 14570:               LABEL  L_00a1
1876 @ 14573:               LINE   216 "regression-compile-tmp/gpm.imp"
1877 @ 14607:               PUSH   R
1878 @ 14610:               PUSHI  #0x00000001
1879 @ 14615:               PUSH   ST
1880 @ 14618:               PUSH   W
1881 @ 14621:               ACCESS
1882 @ 14622:               PUSHI  #0x00000001
1883 @ 14627:               SUB   
1884 @ 14628:               PUSHI  #0x00000000
1885 @ 14633:               FOR    L_0003

   217        %if st(w+r)#st(a+r+1) %then ->next
1886 @ 14636:               LINE   217 "regression-compile-tmp/gpm.imp"
1887 @ 14670:               PUSH   ST
1888 @ 14673:               PUSH   W
1889 @ 14676:               PUSH   R
1890 @ 14679:               ADD   
1891 @ 14680:               ACCESS
1892 @ 14681:               PUSH   ST
1893 @ 14684:               PUSH   A
1894 @ 14687:               PUSH   R
1895 @ 14690:               ADD   
1896 @ 14691:               PUSHI  #0x00000001
1897 @ 14696:               ADD   
1898 @ 14697:               ACCESS
1899 @ 14698:               JUMPIF = L_0007
1900 @ 14702:               JUMP   L_00a2
1901 @ 14705:               LOCATE L_0007

   218     %repeat
1902 @ 14708:               LINE   218 "regression-compile-tmp/gpm.imp"
1903 @ 14742:               REPEAT L_0003
1904 @ 14745:               LOCATE L_0004

   219     w=a+1+st(w)
1905 @ 14748:               LINE   219 "regression-compile-tmp/gpm.imp"
1906 @ 14782:               PUSH   W
1907 @ 14785:               PUSH   A
1908 @ 14788:               PUSHI  #0x00000001
1909 @ 14793:               ADD   
1910 @ 14794:               PUSH   ST
1911 @ 14797:               PUSH   W
1912 @ 14800:               ACCESS
1913 @ 14801:               ADD   
1914 @ 14802:               ASSVAL

   220     %return
1915 @ 14803:               LINE   220 "regression-compile-tmp/gpm.imp"
1916 @ 14837:               RETURN

   221  next:a=st(a)
1917 @ 14838:               LINE   221 "regression-compile-tmp/gpm.imp"
1918 @ 14872:               LABEL  L_00a2
1919 @ 14875:               LINE   221 "regression-compile-tmp/gpm.imp"
1920 @ 14909:               PUSH   A
1921 @ 14912:               PUSH   ST
1922 @ 14915:               PUSH   A
1923 @ 14918:               ACCESS
1924 @ 14919:               ASSVAL

   222     ->again %unless a<0
1925 @ 14920:               LINE   222 "regression-compile-tmp/gpm.imp"
1926 @ 14954:               PUSH   A
1927 @ 14957:               PUSHI  #0x00000000
1928 @ 14962:               JUMPIF < L_0004
1929 @ 14966:               JUMP   L_00a1
1930 @ 14969:               LOCATE L_0004

   223     monitor(7)
1931 @ 14972:               LINE   223 "regression-compile-tmp/gpm.imp"
1932 @ 15006:               PUSH   MONITOR
1933 @ 15009:               PUSHI  #0x00000007
1934 @ 15014:               ASSPAR
1935 @ 15015:               CALL  

   224  %end
   225  
   226  {------------------------------------------------------------------------------}
   227  
1936 @ 15016:               LINE   224 "regression-compile-tmp/gpm.imp"
1937 @ 15050:            END    _lev0id0_FIND {lev=2 --> 1}

   228  %routine monitor(%integer n)
1938 @ 15051:            LINE   228 "regression-compile-tmp/gpm.imp"
1939 @ 15085:            DEF    MONITOR (_lev0id0_MONITOR) p1=V_0084 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
1940 @ 15104:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
1941 @ 15105:                  DEF    N 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
1942 @ 15118:               FINISH ) {lev=2}

   229  %routinespec item(%integer x)
1943 @ 15119:               LINE   229 "regression-compile-tmp/gpm.imp"
1944 @ 15153:               DEF    ITEM (_lev0id0_MONITOR_ITEM) p1=V_00a1 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
1945 @ 15169:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
1946 @ 15170:                  DEF    X 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
1947 @ 15183:               FINISH ) {lev=2}

   230  %switch fault(1:10)
   231  
1948 @ 15184:               LINE   230 "regression-compile-tmp/gpm.imp"
1949 @ 15218:               PUSHI  #0x00000001
1950 @ 15223:               PUSHI  #0x0000000a
1951 @ 15228:               BOUNDS
1952 @ 15229:               DEF    FAULT p1=V_00a2 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

   232     print string(snl."Monitor : ")
1953 @ 15246:               LINE   232 "regression-compile-tmp/gpm.imp"
1954 @ 15280:               PUSH   PRINTSTRING
1955 @ 15283:               PUSH   SNL
1956 @ 15286:               PUSHS  "Monitor : "
1957 @ 15298:               CONCAT
1958 @ 15299:               ASSPAR
1959 @ 15300:               CALL  

   233     ->fault(n)
   234  
1960 @ 15301:               LINE   233 "regression-compile-tmp/gpm.imp"
1961 @ 15335:               PUSH   N
1962 @ 15338:               SJUMP  162

   235  fault(1):print string("Unmatched semicolon in definition of ")
1963 @ 15341:               LINE   235 "regression-compile-tmp/gpm.imp"
1964 @ 15375:               PUSHI  #0x00000001
1965 @ 15380:               SLABEL 162
1966 @ 15383:               LINE   235 "regression-compile-tmp/gpm.imp"
1967 @ 15417:               PUSH   PRINTSTRING
1968 @ 15420:               PUSHS  "Unmatched semicolon in definition of "
1969 @ 15459:               ASSPAR
1970 @ 15460:               CALL  

   236     item(p+2)
1971 @ 15461:               LINE   236 "regression-compile-tmp/gpm.imp"
1972 @ 15495:               PUSH   ITEM
1973 @ 15498:               PUSH   P
1974 @ 15501:               PUSHI  #0x00000002
1975 @ 15506:               ADD   
1976 @ 15507:               ASSPAR
1977 @ 15508:               CALL  

   237     ->end
   238  
1978 @ 15509:               LINE   237 "regression-compile-tmp/gpm.imp"
1979 @ 15543:               JUMP   L_00a3

   239  fault(2):print string("Unquoted # in argument list of ")
1980 @ 15546:               LINE   239 "regression-compile-tmp/gpm.imp"
1981 @ 15580:               PUSHI  #0x00000002
1982 @ 15585:               SLABEL 162
1983 @ 15588:               LINE   239 "regression-compile-tmp/gpm.imp"
1984 @ 15622:               PUSH   PRINTSTRING
1985 @ 15625:               PUSHS  "Unquoted # in argument list of "
1986 @ 15658:               ASSPAR
1987 @ 15659:               CALL  

   240     item(f+2)
1988 @ 15660:               LINE   240 "regression-compile-tmp/gpm.imp"
1989 @ 15694:               PUSH   ITEM
1990 @ 15697:               PUSH   F
1991 @ 15700:               PUSHI  #0x00000002
1992 @ 15705:               ADD   
1993 @ 15706:               ASSPAR
1994 @ 15707:               CALL  

   241     ->end
   242  
1995 @ 15708:               LINE   241 "regression-compile-tmp/gpm.imp"
1996 @ 15742:               JUMP   L_00a3

   243  fault(3):print string("Impossible argument number in definition of ")
1997 @ 15745:               LINE   243 "regression-compile-tmp/gpm.imp"
1998 @ 15779:               PUSHI  #0x00000003
1999 @ 15784:               SLABEL 162
2000 @ 15787:               LINE   243 "regression-compile-tmp/gpm.imp"
2001 @ 15821:               PUSH   PRINTSTRING
2002 @ 15824:               PUSHS  "Impossible argument number in definition of "
2003 @ 15870:               ASSPAR
2004 @ 15871:               CALL  

   244     item(p+2)
2005 @ 15872:               LINE   244 "regression-compile-tmp/gpm.imp"
2006 @ 15906:               PUSH   ITEM
2007 @ 15909:               PUSH   P
2008 @ 15912:               PUSHI  #0x00000002
2009 @ 15917:               ADD   
2010 @ 15918:               ASSPAR
2011 @ 15919:               CALL  

   245     ->end
   246  
2012 @ 15920:               LINE   245 "regression-compile-tmp/gpm.imp"
2013 @ 15954:               JUMP   L_00a3

   247  fault(4):print string("No argument ")
2014 @ 15957:               LINE   247 "regression-compile-tmp/gpm.imp"
2015 @ 15991:               PUSHI  #0x00000004
2016 @ 15996:               SLABEL 162
2017 @ 15999:               LINE   247 "regression-compile-tmp/gpm.imp"
2018 @ 16033:               PUSH   PRINTSTRING
2019 @ 16036:               PUSHS  "No argument "
2020 @ 16050:               ASSPAR
2021 @ 16051:               CALL  

   248     print symbol(a)
2022 @ 16052:               LINE   248 "regression-compile-tmp/gpm.imp"
2023 @ 16086:               PUSH   PRINTSYMBOL
2024 @ 16089:               PUSH   A
2025 @ 16092:               ASSPAR
2026 @ 16093:               CALL  

   249     print string(" in call for ")
2027 @ 16094:               LINE   249 "regression-compile-tmp/gpm.imp"
2028 @ 16128:               PUSH   PRINTSTRING
2029 @ 16131:               PUSHS  " in call for "
2030 @ 16146:               ASSPAR
2031 @ 16147:               CALL  

   250     item(p+2)
2032 @ 16148:               LINE   250 "regression-compile-tmp/gpm.imp"
2033 @ 16182:               PUSH   ITEM
2034 @ 16185:               PUSH   P
2035 @ 16188:               PUSHI  #0x00000002
2036 @ 16193:               ADD   
2037 @ 16194:               ASSPAR
2038 @ 16195:               CALL  

   251     ->end
   252  
2039 @ 16196:               LINE   251 "regression-compile-tmp/gpm.imp"
2040 @ 16230:               JUMP   L_00a3

   253  fault(5):print string("Terminator in ")
2041 @ 16233:               LINE   253 "regression-compile-tmp/gpm.imp"
2042 @ 16267:               PUSHI  #0x00000005
2043 @ 16272:               SLABEL 162
2044 @ 16275:               LINE   253 "regression-compile-tmp/gpm.imp"
2045 @ 16309:               PUSH   PRINTSTRING
2046 @ 16312:               PUSHS  "Terminator in "
2047 @ 16328:               ASSPAR
2048 @ 16329:               CALL  

   254     %if c=0 %then print string("input stream; GPM error ?") %and ->end
2049 @ 16330:               LINE   254 "regression-compile-tmp/gpm.imp"
2050 @ 16364:               PUSH   C
2051 @ 16367:               PUSHI  #0x00000000
2052 @ 16372:               JUMPIF # L_0004
2053 @ 16376:               PUSH   PRINTSTRING
2054 @ 16379:               PUSHS  "input stream; GPM error ?"
2055 @ 16406:               ASSPAR
2056 @ 16407:               CALL  
2057 @ 16408:               JUMP   L_00a3
2058 @ 16411:               LOCATE L_0004

   255     print string("argument list for ")
2059 @ 16414:               LINE   255 "regression-compile-tmp/gpm.imp"
2060 @ 16448:               PUSH   PRINTSTRING
2061 @ 16451:               PUSHS  "argument list for "
2062 @ 16471:               ASSPAR
2063 @ 16472:               CALL  

   256     item(f+2)
2064 @ 16473:               LINE   256 "regression-compile-tmp/gpm.imp"
2065 @ 16507:               PUSH   ITEM
2066 @ 16510:               PUSH   F
2067 @ 16513:               PUSHI  #0x00000002
2068 @ 16518:               ADD   
2069 @ 16519:               ASSPAR
2070 @ 16520:               CALL  

   257     print string(snl."probably due to semicolon missing from definition of ")
2071 @ 16521:               LINE   257 "regression-compile-tmp/gpm.imp"
2072 @ 16555:               PUSH   PRINTSTRING
2073 @ 16558:               PUSH   SNL
2074 @ 16561:               PUSHS  "probably due to semicolon missing from definition of "
2075 @ 16616:               CONCAT
2076 @ 16617:               ASSPAR
2077 @ 16618:               CALL  

   258     item(p+2)
2078 @ 16619:               LINE   258 "regression-compile-tmp/gpm.imp"
2079 @ 16653:               PUSH   ITEM
2080 @ 16656:               PUSH   P
2081 @ 16659:               PUSHI  #0x00000002
2082 @ 16664:               ADD   
2083 @ 16665:               ASSPAR
2084 @ 16666:               CALL  

   259     ->end
   260  
2085 @ 16667:               LINE   259 "regression-compile-tmp/gpm.imp"
2086 @ 16701:               JUMP   L_00a3

   261  fault(6):print string("GPM error?")
2087 @ 16704:               LINE   261 "regression-compile-tmp/gpm.imp"
2088 @ 16738:               PUSHI  #0x00000006
2089 @ 16743:               SLABEL 162
2090 @ 16746:               LINE   261 "regression-compile-tmp/gpm.imp"
2091 @ 16780:               PUSH   PRINTSTRING
2092 @ 16783:               PUSHS  "GPM error?"
2093 @ 16795:               ASSPAR
2094 @ 16796:               CALL  

   262     ->end
   263  
2095 @ 16797:               LINE   262 "regression-compile-tmp/gpm.imp"
2096 @ 16831:               JUMP   L_00a3

   264  fault(7):print string("Undefined name ")
2097 @ 16834:               LINE   264 "regression-compile-tmp/gpm.imp"
2098 @ 16868:               PUSHI  #0x00000007
2099 @ 16873:               SLABEL 162
2100 @ 16876:               LINE   264 "regression-compile-tmp/gpm.imp"
2101 @ 16910:               PUSH   PRINTSTRING
2102 @ 16913:               PUSHS  "Undefined name "
2103 @ 16930:               ASSPAR
2104 @ 16931:               CALL  

   265     item(w)
2105 @ 16932:               LINE   265 "regression-compile-tmp/gpm.imp"
2106 @ 16966:               PUSH   ITEM
2107 @ 16969:               PUSH   W
2108 @ 16972:               ASSPAR
2109 @ 16973:               CALL  

   266     ->end
   267  
2110 @ 16974:               LINE   266 "regression-compile-tmp/gpm.imp"
2111 @ 17008:               JUMP   L_00a3

   268  fault(8):print string("Unmatched >; GPM error ?")
2112 @ 17011:               LINE   268 "regression-compile-tmp/gpm.imp"
2113 @ 17045:               PUSHI  #0x00000008
2114 @ 17050:               SLABEL 162
2115 @ 17053:               LINE   268 "regression-compile-tmp/gpm.imp"
2116 @ 17087:               PUSH   PRINTSTRING
2117 @ 17090:               PUSHS  "Unmatched >; GPM error ?"
2118 @ 17116:               ASSPAR
2119 @ 17117:               CALL  

   269     ->end
   270  
2120 @ 17118:               LINE   269 "regression-compile-tmp/gpm.imp"
2121 @ 17152:               JUMP   L_00a3

   271  fault(9):print string("Update argument too long for ")
2122 @ 17155:               LINE   271 "regression-compile-tmp/gpm.imp"
2123 @ 17189:               PUSHI  #0x00000009
2124 @ 17194:               SLABEL 162
2125 @ 17197:               LINE   271 "regression-compile-tmp/gpm.imp"
2126 @ 17231:               PUSH   PRINTSTRING
2127 @ 17234:               PUSHS  "Update argument too long for "
2128 @ 17265:               ASSPAR
2129 @ 17266:               CALL  

   272     item(p+9)
2130 @ 17267:               LINE   272 "regression-compile-tmp/gpm.imp"
2131 @ 17301:               PUSH   ITEM
2132 @ 17304:               PUSH   P
2133 @ 17307:               PUSHI  #0x00000009
2134 @ 17312:               ADD   
2135 @ 17313:               ASSPAR
2136 @ 17314:               CALL  

   273     ->end
   274  
2137 @ 17315:               LINE   273 "regression-compile-tmp/gpm.imp"
2138 @ 17349:               JUMP   L_00a3

   275  fault(10):print string("Non-digit in number ")
   276  
2139 @ 17352:               LINE   275 "regression-compile-tmp/gpm.imp"
2140 @ 17386:               PUSHI  #0x0000000a
2141 @ 17391:               SLABEL 162
2142 @ 17394:               LINE   275 "regression-compile-tmp/gpm.imp"
2143 @ 17428:               PUSH   PRINTSTRING
2144 @ 17431:               PUSHS  "Non-digit in number "
2145 @ 17453:               ASSPAR
2146 @ 17454:               CALL  

   277  end:
   278  
   279     ! general monitor
2147 @ 17455:               LINE   277 "regression-compile-tmp/gpm.imp"
2148 @ 17489:               LABEL  L_00a3

   280     w=20
2149 @ 17492:               LINE   280 "regression-compile-tmp/gpm.imp"
2150 @ 17526:               PUSH   W
2151 @ 17529:               PUSHI  #0x00000014
2152 @ 17534:               ASSVAL

   281     print string(snl."Current macros are :")
2153 @ 17535:               LINE   281 "regression-compile-tmp/gpm.imp"
2154 @ 17569:               PUSH   PRINTSTRING
2155 @ 17572:               PUSH   SNL
2156 @ 17575:               PUSHS  "Current macros are :"
2157 @ 17597:               CONCAT
2158 @ 17598:               ASSPAR
2159 @ 17599:               CALL  

   282     %while p#0 %or f#0 %cycle
2160 @ 17600:               LINE   282 "regression-compile-tmp/gpm.imp"
2161 @ 17634:               LOCATE L_0003
2162 @ 17637:               PUSH   P
2163 @ 17640:               PUSHI  #0x00000000
2164 @ 17645:               JUMPIF # L_0005
2165 @ 17649:               PUSH   F
2166 @ 17652:               PUSHI  #0x00000000
2167 @ 17657:               JUMPIF = L_0004
2168 @ 17661:               LOCATE L_0005

   283       %if p>f %then %start
2169 @ 17664:               LINE   283 "regression-compile-tmp/gpm.imp"
2170 @ 17698:               PUSH   P
2171 @ 17701:               PUSH   F
2172 @ 17704:               JUMPIF <= L_0007

   284         w1=p+2
2173 @ 17708:               LINE   284 "regression-compile-tmp/gpm.imp"
2174 @ 17742:               PUSH   W1
2175 @ 17745:               PUSH   P
2176 @ 17748:               PUSHI  #0x00000002
2177 @ 17753:               ADD   
2178 @ 17754:               ASSVAL

   285         p=st(p)
2179 @ 17755:               LINE   285 "regression-compile-tmp/gpm.imp"
2180 @ 17789:               PUSH   P
2181 @ 17792:               PUSH   ST
2182 @ 17795:               PUSH   P
2183 @ 17798:               ACCESS
2184 @ 17799:               ASSVAL

   286         print string(snl."already entered :  ")
2185 @ 17800:               LINE   286 "regression-compile-tmp/gpm.imp"
2186 @ 17834:               PUSH   PRINTSTRING
2187 @ 17837:               PUSH   SNL
2188 @ 17840:               PUSHS  "already entered :  "
2189 @ 17861:               CONCAT
2190 @ 17862:               ASSPAR
2191 @ 17863:               CALL  

   287       %finish %else %start
2192 @ 17864:               LINE   287 "regression-compile-tmp/gpm.imp"
2193 @ 17898:               GOTO   L_0006
2194 @ 17901:               LOCATE L_0007

   288         w1=f+2
2195 @ 17904:               LINE   288 "regression-compile-tmp/gpm.imp"
2196 @ 17938:               PUSH   W1
2197 @ 17941:               PUSH   F
2198 @ 17944:               PUSHI  #0x00000002
2199 @ 17949:               ADD   
2200 @ 17950:               ASSVAL

   289         f=st(f)
2201 @ 17951:               LINE   289 "regression-compile-tmp/gpm.imp"
2202 @ 17985:               PUSH   F
2203 @ 17988:               PUSH   ST
2204 @ 17991:               PUSH   F
2205 @ 17994:               ACCESS
2206 @ 17995:               ASSVAL

   290         print string(snl."not yet entered :  ")
2207 @ 17996:               LINE   290 "regression-compile-tmp/gpm.imp"
2208 @ 18030:               PUSH   PRINTSTRING
2209 @ 18033:               PUSH   SNL
2210 @ 18036:               PUSHS  "not yet entered :  "
2211 @ 18057:               CONCAT
2212 @ 18058:               ASSPAR
2213 @ 18059:               CALL  

   291       %finish
2214 @ 18060:               LINE   291 "regression-compile-tmp/gpm.imp"
2215 @ 18094:               LOCATE L_0006

   292       %for r=1,1,w %cycle
2216 @ 18097:               LINE   292 "regression-compile-tmp/gpm.imp"
2217 @ 18131:               PUSH   R
2218 @ 18134:               PUSHI  #0x00000001
2219 @ 18139:               PUSH   W
2220 @ 18142:               PUSHI  #0x00000001
2221 @ 18147:               FOR    L_0006

   293         item(w1)
2222 @ 18150:               LINE   293 "regression-compile-tmp/gpm.imp"
2223 @ 18184:               PUSH   ITEM
2224 @ 18187:               PUSH   W1
2225 @ 18190:               ASSPAR
2226 @ 18191:               CALL  

   294         %if st(w1)=0 %then %exit
2227 @ 18192:               LINE   294 "regression-compile-tmp/gpm.imp"
2228 @ 18226:               PUSH   ST
2229 @ 18229:               PUSH   W1
2230 @ 18232:               ACCESS
2231 @ 18233:               PUSHI  #0x00000000
2232 @ 18238:               JUMPIF # L_000a
2233 @ 18242:               GOTO   L_0007
2234 @ 18245:               LOCATE L_000a

   295         w1=w1+st(w1)
2235 @ 18248:               LINE   295 "regression-compile-tmp/gpm.imp"
2236 @ 18282:               PUSH   W1
2237 @ 18285:               PUSH   W1
2238 @ 18288:               PUSH   ST
2239 @ 18291:               PUSH   W1
2240 @ 18294:               ACCESS
2241 @ 18295:               ADD   
2242 @ 18296:               ASSVAL

   296         %if st(w1)=marker %then %exit
2243 @ 18297:               LINE   296 "regression-compile-tmp/gpm.imp"
2244 @ 18331:               PUSH   ST
2245 @ 18334:               PUSH   W1
2246 @ 18337:               ACCESS
2247 @ 18338:               PUSHI  #0xffffc000
2248 @ 18343:               JUMPIF # L_000a
2249 @ 18347:               GOTO   L_0007
2250 @ 18350:               LOCATE L_000a

   297         %unless w=1 %then %start
2251 @ 18353:               LINE   297 "regression-compile-tmp/gpm.imp"
2252 @ 18387:               PUSH   W
2253 @ 18390:               PUSHI  #0x00000001
2254 @ 18395:               JUMPIF = L_000a

   298           print string(snl."arg".itos(r,1)." :    ")
2255 @ 18399:               LINE   298 "regression-compile-tmp/gpm.imp"
2256 @ 18433:               PUSH   PRINTSTRING
2257 @ 18436:               PUSH   SNL
2258 @ 18439:               PUSHS  "arg"
2259 @ 18444:               CONCAT
2260 @ 18445:               PUSH   ITOS
2261 @ 18448:               PUSH   R
2262 @ 18451:               ASSPAR
2263 @ 18452:               PUSHI  #0x00000001
2264 @ 18457:               ASSPAR
2265 @ 18458:               CALL  
2266 @ 18459:               CONCAT
2267 @ 18460:               PUSHS  " :    "
2268 @ 18468:               CONCAT
2269 @ 18469:               ASSPAR
2270 @ 18470:               CALL  

   299         %finish
2271 @ 18471:               LINE   299 "regression-compile-tmp/gpm.imp"
2272 @ 18505:               LOCATE L_000a

   300       %repeat
2273 @ 18508:               LINE   300 "regression-compile-tmp/gpm.imp"
2274 @ 18542:               REPEAT L_0006
2275 @ 18545:               LOCATE L_0007

   301       w=1
2276 @ 18548:               LINE   301 "regression-compile-tmp/gpm.imp"
2277 @ 18582:               PUSH   W
2278 @ 18585:               PUSHI  #0x00000001
2279 @ 18590:               ASSVAL

   302       %repeat
2280 @ 18591:               LINE   302 "regression-compile-tmp/gpm.imp"
2281 @ 18625:               REPEAT L_0003
2282 @ 18628:               LOCATE L_0004

   303     print string(snl."End of monitor printing".snl)
2283 @ 18631:               LINE   303 "regression-compile-tmp/gpm.imp"
2284 @ 18665:               PUSH   PRINTSTRING
2285 @ 18668:               PUSH   SNL
2286 @ 18671:               PUSHS  "End of monitor printing"
2287 @ 18696:               CONCAT
2288 @ 18697:               PUSH   SNL
2289 @ 18700:               CONCAT
2290 @ 18701:               ASSPAR
2291 @ 18702:               CALL  

   304     %stop
   305  
2292 @ 18703:               LINE   304 "regression-compile-tmp/gpm.imp"
2293 @ 18737:               STOP  

   306  %routine item(%integer x)
2294 @ 18738:               LINE   306 "regression-compile-tmp/gpm.imp"
2295 @ 18772:               DEF    ITEM (_lev0id0_MONITOR_ITEM) p1=V_00a1 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
2296 @ 18788:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
2297 @ 18789:                     DEF    X 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
2298 @ 18802:                  FINISH ) {lev=3}

   307  %integer k,l
2299 @ 18803:                  LINE   307 "regression-compile-tmp/gpm.imp"
2300 @ 18837:                  DEF    K 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
2301 @ 18850:                  DEF    L 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

   308     %if st(x)=0 %then l=s-x-1 %else l=st(x)-1
2302 @ 18863:                  LINE   308 "regression-compile-tmp/gpm.imp"
2303 @ 18897:                  PUSH   ST
2304 @ 18900:                  PUSH   X
2305 @ 18903:                  ACCESS
2306 @ 18904:                  PUSHI  #0x00000000
2307 @ 18909:                  JUMPIF # L_0004
2308 @ 18913:                  PUSH   L
2309 @ 18916:                  PUSH   S
2310 @ 18919:                  PUSH   X
2311 @ 18922:                  SUB   
2312 @ 18923:                  PUSHI  #0x00000001
2313 @ 18928:                  SUB   
2314 @ 18929:                  ASSVAL
2315 @ 18930:                  GOTO   L_0003
2316 @ 18933:                  LOCATE L_0004
2317 @ 18936:                  PUSH   L
2318 @ 18939:                  PUSH   ST
2319 @ 18942:                  PUSH   X
2320 @ 18945:                  ACCESS
2321 @ 18946:                  PUSHI  #0x00000001
2322 @ 18951:                  SUB   
2323 @ 18952:                  ASSVAL
2324 @ 18953:                  LOCATE L_0003

   309     %if l>0 %then %start
2325 @ 18956:                  LINE   309 "regression-compile-tmp/gpm.imp"
2326 @ 18990:                  PUSH   L
2327 @ 18993:                  PUSHI  #0x00000000
2328 @ 18998:                  JUMPIF <= L_0004

   310       print symbol(st(x+k)) %for k=1, 1, l
2329 @ 19002:                  LINE   310 "regression-compile-tmp/gpm.imp"
2330 @ 19036:                  PUSH   K
2331 @ 19039:                  PUSHI  #0x00000001
2332 @ 19044:                  PUSH   L
2333 @ 19047:                  PUSHI  #0x00000001
2334 @ 19052:                  FOR    L_0006
2335 @ 19055:                  PUSH   PRINTSYMBOL
2336 @ 19058:                  PUSH   ST
2337 @ 19061:                  PUSH   X
2338 @ 19064:                  PUSH   K
2339 @ 19067:                  ADD   
2340 @ 19068:                  ACCESS
2341 @ 19069:                  ASSPAR
2342 @ 19070:                  CALL  
2343 @ 19071:                  REPEAT L_0006
2344 @ 19074:                  LOCATE L_0007

   311     %finish
2345 @ 19077:                  LINE   311 "regression-compile-tmp/gpm.imp"
2346 @ 19111:                  LOCATE L_0004

   312     %if st(x)=0 %then print string("...    (incomplete)")
2347 @ 19114:                  LINE   312 "regression-compile-tmp/gpm.imp"
2348 @ 19148:                  PUSH   ST
2349 @ 19151:                  PUSH   X
2350 @ 19154:                  ACCESS
2351 @ 19155:                  PUSHI  #0x00000000
2352 @ 19160:                  JUMPIF # L_0004
2353 @ 19164:                  PUSH   PRINTSTRING
2354 @ 19167:                  PUSHS  "...    (incomplete)"
2355 @ 19188:                  ASSPAR
2356 @ 19189:                  CALL  
2357 @ 19190:                  LOCATE L_0004

   313  %end
   314  
2358 @ 19193:                  LINE   313 "regression-compile-tmp/gpm.imp"
2359 @ 19227:               END    _lev0id0_MONITOR_ITEM {lev=3 --> 2}

   315  %end
   316  
2360 @ 19228:               LINE   315 "regression-compile-tmp/gpm.imp"
2361 @ 19262:            END    _lev0id0_MONITOR {lev=2 --> 1}

   317  %endofprogram
   318  
2362 @ 19263:            LINE   317 "regression-compile-tmp/gpm.imp"
2363 @ 19297:         END    _lev0id0 {lev=1 --> 0}
2364 @ 19298:         END     {lev=0 --> -1}
2365 @ 19299: 

