
     1  !%ROUTINESPEC READ SYMBOL(%INTEGERNAME I)
     2  !%INTEGERFNSPEC NEXT SYMBOL
     3  !%ROUTINESPEC SKIP SYMBOL
     4  !%ROUTINESPEC PRINT SYMBOL(%INTEGER I)
     5  !%ROUTINESPEC READ(%INTEGERNAME I)
     6  !%ROUTINESPEC WRITE(%INTEGER I,J)
     7  !%ROUTINESPEC SPACE
     8  !%ROUTINESPEC SPACES(%INTEGER I)
     9  !%ROUTINESPEC NEWLINE
    10  !%ROUTINESPEC NEWLINES(%INTEGER I)
    11  !%ROUTINESPEC NEWPAGE
    12  
    13  %BEGIN
503 @ 4405:         LINE   13 "regression-compile-tmp/skimp77.imp"
504 @ 4443:         BEGIN  _lev0id0 {lev=0 --> 1}

    14  %ROUTINESPEC READ PS
505 @ 4444:            LINE   14 "regression-compile-tmp/skimp77.imp"
506 @ 4482:            DEF    READPS (_lev0id0_READPS) 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 @ 4500:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
508 @ 4501:            FINISH ) {lev=1}

    15  %ROUTINESPEC READ LINE
509 @ 4502:            LINE   15 "regression-compile-tmp/skimp77.imp"
510 @ 4540:            DEF    READLINE (_lev0id0_READLINE) 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 @ 4560:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
512 @ 4561:            FINISH ) {lev=1}

    16  %INTEGERFNSPEC COMPARE
513 @ 4562:            LINE   16 "regression-compile-tmp/skimp77.imp"
514 @ 4600:            DEF    COMPARE (_lev0id0_COMPARE) p1=V_0083 a/tf=18 b/format=1 c/ostate=18  type=1 (integer) form=8 (function) special=0 (<special:0>) linkage=0 (auto) spec=1 indirect=1 unass=0
515 @ 4619:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
516 @ 4620:            FINISH ) {lev=1}

    17  %ROUTINESPEC SS
517 @ 4621:            LINE   17 "regression-compile-tmp/skimp77.imp"
518 @ 4659:            DEF    SS (_lev0id0_SS) 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
519 @ 4673:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
520 @ 4674:            FINISH ) {lev=1}

    18  %ROUTINESPEC FAULT(%INTEGER A,B,C,D)
521 @ 4675:            LINE   18 "regression-compile-tmp/skimp77.imp"
522 @ 4713:            DEF    FAULT (_lev0id0_FAULT) p1=V_0085 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
523 @ 4730:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
524 @ 4731:               DEF    A p1=V_0086 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
525 @ 4744:               DEF    B p1=V_0087 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
526 @ 4757:               DEF    C p1=V_0088 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
527 @ 4770:               DEF    D 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
528 @ 4783:            FINISH ) {lev=1}

    19  %INTEGERFNSPEC CHNEXT
529 @ 4784:            LINE   19 "regression-compile-tmp/skimp77.imp"
530 @ 4822:            DEF    CHNEXT (_lev0id0_CHNEXT) p1=V_0086 a/tf=18 b/format=1 c/ostate=18  type=1 (integer) form=8 (function) special=0 (<special:0>) linkage=0 (auto) spec=1 indirect=1 unass=0
531 @ 4840:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
532 @ 4841:            FINISH ) {lev=1}

    20  %INTEGERFNSPEC NEWCELL
533 @ 4842:            LINE   20 "regression-compile-tmp/skimp77.imp"
534 @ 4880:            DEF    NEWCELL (_lev0id0_NEWCELL) p1=V_0087 a/tf=18 b/format=1 c/ostate=18  type=1 (integer) form=8 (function) special=0 (<special:0>) linkage=0 (auto) spec=1 indirect=1 unass=0
535 @ 4899:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
536 @ 4900:            FINISH ) {lev=1}

    21  %INTEGERFNSPEC RETURN CELL(%INTEGER I)
537 @ 4901:            LINE   21 "regression-compile-tmp/skimp77.imp"
538 @ 4939:            DEF    RETURNCELL (_lev0id0_RETURNCELL) p1=V_0088 a/tf=18 b/format=1 c/ostate=18  type=1 (integer) form=8 (function) special=0 (<special:0>) linkage=0 (auto) spec=1 indirect=1 unass=0
539 @ 4961:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
540 @ 4962:               DEF    I 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
541 @ 4975:            FINISH ) {lev=1}

    22  %ROUTINESPEC PRINT NAME(%INTEGER I)
542 @ 4976:            LINE   22 "regression-compile-tmp/skimp77.imp"
543 @ 5014:            DEF    PRINTNAME (_lev0id0_PRINTNAME) p1=V_0089 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
544 @ 5035:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
545 @ 5036:               DEF    I 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
546 @ 5049:            FINISH ) {lev=1}

    23  %INTEGER AP,APP,TP,PSP,ASL,BTN,CTN,CHP,FAULTS,LEVEL,CA,COMP,SCF
547 @ 5050:            LINE   23 "regression-compile-tmp/skimp77.imp"
548 @ 5088:            DEF    AP 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
549 @ 5102:            DEF    APP 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
550 @ 5117:            DEF    TP 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
551 @ 5131:            DEF    PSP 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
552 @ 5146:            DEF    ASL 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
553 @ 5161:            DEF    BTN 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
554 @ 5176:            DEF    CTN 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
555 @ 5191:            DEF    CHP 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
556 @ 5206:            DEF    FAULTS 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
557 @ 5224:            DEF    LEVEL 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
558 @ 5241:            DEF    CA 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
559 @ 5255:            DEF    COMP p1=V_0095 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
560 @ 5271:            DEF    SCF p1=V_0096 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

    24  %INTEGERARRAY PS(-1000:-600)                 ;! REDUCED PHRASE STRUCTURE
561 @ 5286:            LINE   24 "regression-compile-tmp/skimp77.imp"
562 @ 5324:            DEF    PS p1=V_0097 a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
563 @ 5338:            PUSHI  #0x000003e8
564 @ 5343:            NEGATE
565 @ 5344:            PUSHI  #0x00000258
566 @ 5349:            NEGATE
567 @ 5350:            DIM    0001 0001

    25  %INTEGERARRAY TAG,LINK(0:1023)               ;! TAGS LISTS
568 @ 5356:            LINE   25 "regression-compile-tmp/skimp77.imp"
569 @ 5394:            DEF    TAG p1=V_0098 a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
570 @ 5409:            DEF    LINK p1=V_0099 a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
571 @ 5425:            PUSHI  #0x00000000
572 @ 5430:            PUSHI  #0x000003ff
573 @ 5435:            DIM    0001 0002

    26  %INTEGERARRAY A(1:200)                       ;! ANALYSIS RECORD
574 @ 5441:            LINE   26 "regression-compile-tmp/skimp77.imp"
575 @ 5479:            DEF    A p1=V_009a a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
576 @ 5492:            PUSHI  #0x00000001
577 @ 5497:            PUSHI  #0x000000c8
578 @ 5502:            DIM    0001 0001

    27  %INTEGERARRAY T(1:300)                       ;! SOURCE TEXT
579 @ 5508:            LINE   27 "regression-compile-tmp/skimp77.imp"
580 @ 5546:            DEF    T p1=V_009b a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
581 @ 5559:            PUSHI  #0x00000001
582 @ 5564:            PUSHI  #0x0000012c
583 @ 5569:            DIM    0001 0001

    28  %INTEGERARRAY BAT,COT(0:1023)                ;! BRANCH, CONST TABLES
584 @ 5575:            LINE   28 "regression-compile-tmp/skimp77.imp"
585 @ 5613:            DEF    BAT p1=V_009c a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
586 @ 5628:            DEF    COT p1=V_009d a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
587 @ 5643:            PUSHI  #0x00000000
588 @ 5648:            PUSHI  #0x000003ff
589 @ 5653:            DIM    0001 0002

    29  %INTEGERARRAY CH(1:512)                      ;! NAME CHAR TABLE
590 @ 5659:            LINE   29 "regression-compile-tmp/skimp77.imp"
591 @ 5697:            DEF    CH p1=V_009e a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
592 @ 5711:            PUSHI  #0x00000001
593 @ 5716:            PUSHI  #0x00000200
594 @ 5721:            DIM    0001 0001

    30  %INTEGERARRAY JUMP,STAR,BRT,NAME,RTP,BR,CHPP,START,RAD(0:15)  ;! LEVEL INFORMATION
595 @ 5727:            LINE   30 "regression-compile-tmp/skimp77.imp"
596 @ 5765:            DEF    JUMP p1=V_009f a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
597 @ 5781:            DEF    STAR p1=V_00a0 a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
598 @ 5797:            DEF    BRT p1=V_00a1 a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
599 @ 5812:            DEF    NAME p1=V_00a2 a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
600 @ 5828:            DEF    RTP p1=V_00a3 a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
601 @ 5843:            DEF    BR p1=V_00a4 a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
602 @ 5857:            DEF    CHPP p1=V_00a5 a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
603 @ 5873:            DEF    START p1=V_00a6 a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
604 @ 5890:            DEF    RAD p1=V_00a7 a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
605 @ 5905:            PUSHI  #0x00000000
606 @ 5910:            PUSHI  #0x0000000f
607 @ 5915:            DIM    0001 0009

    31  %INTEGERARRAY TRUE,FALSE(1:6)                ;! CONDITIONAL BRANCH INSTRUCTIONS
608 @ 5921:            LINE   31 "regression-compile-tmp/skimp77.imp"
609 @ 5959:            DEF    TRUE p1=V_00a8 a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
610 @ 5975:            DEF    FALSE p1=V_00a9 a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
611 @ 5992:            PUSHI  #0x00000001
612 @ 5997:            PUSHI  #0x00000006
613 @ 6002:            DIM    0001 0002

    32  %INTEGERARRAY PREC,UCN(1:12)                 ;! OPERATOR PRECEDENCES, TYPES
614 @ 6008:            LINE   32 "regression-compile-tmp/skimp77.imp"
615 @ 6046:            DEF    PREC p1=V_00aa a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
616 @ 6062:            DEF    UCN p1=V_00ab a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
617 @ 6077:            PUSHI  #0x00000001
618 @ 6082:            PUSHI  #0x0000000c
619 @ 6087:            DIM    0001 0002

    33  %INTEGERARRAY OPR(0:12)                      ;! MACHINE OPERATIONS
620 @ 6093:            LINE   33 "regression-compile-tmp/skimp77.imp"
621 @ 6131:            DEF    OPR p1=V_00ac a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
622 @ 6146:            PUSHI  #0x00000000
623 @ 6151:            PUSHI  #0x0000000c
624 @ 6156:            DIM    0001 0001

    34  %INTEGERARRAY PT,PN,PTC(1:15)                ;! FOR RT SPECS, HEADINGS
625 @ 6162:            LINE   34 "regression-compile-tmp/skimp77.imp"
626 @ 6200:            DEF    PT p1=V_00ad a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
627 @ 6214:            DEF    PN p1=V_00ae a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
628 @ 6228:            DEF    PTC p1=V_00af a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
629 @ 6243:            PUSHI  #0x00000001
630 @ 6248:            PUSHI  #0x0000000f
631 @ 6253:            DIM    0001 0003

    35       READ PS                             ;! READ IN AND REDUCE PHRASE STRUCTURE
632 @ 6259:            LINE   35 "regression-compile-tmp/skimp77.imp"
633 @ 6297:            PUSH   READPS
634 @ 6300:            CALL  

    36       ASL=0                               ;! CLEAR HASHING AREA &
635 @ 6301:            LINE   36 "regression-compile-tmp/skimp77.imp"
636 @ 6339:            PUSH   ASL
637 @ 6342:            PUSHI  #0x00000000
638 @ 6347:            ASSVAL

    37  L10:  TAG(ASL)=0                          ;!  CREATE AVAILABLE SPACE LIST
639 @ 6348:            LINE   37 "regression-compile-tmp/skimp77.imp"
640 @ 6386:            LABEL  L_00b0
641 @ 6389:            LINE   37 "regression-compile-tmp/skimp77.imp"
642 @ 6427:            PUSH   TAG
643 @ 6430:            PUSH   ASL
644 @ 6433:            ACCESS
645 @ 6434:            PUSHI  #0x00000000
646 @ 6439:            ASSVAL

    38       LINK(ASL)=0                         ;!  IN REMAINDER
647 @ 6440:            LINE   38 "regression-compile-tmp/skimp77.imp"
648 @ 6478:            PUSH   LINK
649 @ 6481:            PUSH   ASL
650 @ 6484:            ACCESS
651 @ 6485:            PUSHI  #0x00000000
652 @ 6490:            ASSVAL

    39       %IF ASL>=256 %AND ASL<1023 %THEN LINK(ASL)=ASL+1
653 @ 6491:            LINE   39 "regression-compile-tmp/skimp77.imp"
654 @ 6529:            PUSH   ASL
655 @ 6532:            PUSHI  #0x00000100
656 @ 6537:            JUMPIF < L_0004
657 @ 6541:            PUSH   ASL
658 @ 6544:            PUSHI  #0x000003ff
659 @ 6549:            JUMPIF >= L_0004
660 @ 6553:            PUSH   LINK
661 @ 6556:            PUSH   ASL
662 @ 6559:            ACCESS
663 @ 6560:            PUSH   ASL
664 @ 6563:            PUSHI  #0x00000001
665 @ 6568:            ADD   
666 @ 6569:            ASSVAL
667 @ 6570:            LOCATE L_0004

    40       ASL=ASL+1
668 @ 6573:            LINE   40 "regression-compile-tmp/skimp77.imp"
669 @ 6611:            PUSH   ASL
670 @ 6614:            PUSH   ASL
671 @ 6617:            PUSHI  #0x00000001
672 @ 6622:            ADD   
673 @ 6623:            ASSVAL

    41       %IF ASL<=1023 %THEN ->L10
674 @ 6624:            LINE   41 "regression-compile-tmp/skimp77.imp"
675 @ 6662:            PUSH   ASL
676 @ 6665:            PUSHI  #0x000003ff
677 @ 6670:            JUMPIF > L_0004
678 @ 6674:            JUMP   L_00b0
679 @ 6677:            LOCATE L_0004

    42       ASL=256                             ;! AVAILABLE SPACE LIST POINTER
680 @ 6680:            LINE   42 "regression-compile-tmp/skimp77.imp"
681 @ 6718:            PUSH   ASL
682 @ 6721:            PUSHI  #0x00000100
683 @ 6726:            ASSVAL

    43       BR(0)=M'BR0'                        ;! BASE REGISTER MNEMONICS
684 @ 6727:            LINE   43 "regression-compile-tmp/skimp77.imp"
685 @ 6765:            PUSH   BR
686 @ 6768:            PUSHI  #0x00000000
687 @ 6773:            ACCESS
688 @ 6774:            PUSHI  #0x00425230
689 @ 6779:            ASSVAL

    44       BR(1)=M'BR1'
690 @ 6780:            LINE   44 "regression-compile-tmp/skimp77.imp"
691 @ 6818:            PUSH   BR
692 @ 6821:            PUSHI  #0x00000001
693 @ 6826:            ACCESS
694 @ 6827:            PUSHI  #0x00425231
695 @ 6832:            ASSVAL

    45       BR(2)=M'BR2'
696 @ 6833:            LINE   45 "regression-compile-tmp/skimp77.imp"
697 @ 6871:            PUSH   BR
698 @ 6874:            PUSHI  #0x00000002
699 @ 6879:            ACCESS
700 @ 6880:            PUSHI  #0x00425232
701 @ 6885:            ASSVAL

    46       BR(3)=M'BR3'
702 @ 6886:            LINE   46 "regression-compile-tmp/skimp77.imp"
703 @ 6924:            PUSH   BR
704 @ 6927:            PUSHI  #0x00000003
705 @ 6932:            ACCESS
706 @ 6933:            PUSHI  #0x00425233
707 @ 6938:            ASSVAL

    47       BR(4)=M'BR4'
708 @ 6939:            LINE   47 "regression-compile-tmp/skimp77.imp"
709 @ 6977:            PUSH   BR
710 @ 6980:            PUSHI  #0x00000004
711 @ 6985:            ACCESS
712 @ 6986:            PUSHI  #0x00425234
713 @ 6991:            ASSVAL

    48       BR(5)=M'BR5'
714 @ 6992:            LINE   48 "regression-compile-tmp/skimp77.imp"
715 @ 7030:            PUSH   BR
716 @ 7033:            PUSHI  #0x00000005
717 @ 7038:            ACCESS
718 @ 7039:            PUSHI  #0x00425235
719 @ 7044:            ASSVAL

    49       BR(6)=M'BR6'
720 @ 7045:            LINE   49 "regression-compile-tmp/skimp77.imp"
721 @ 7083:            PUSH   BR
722 @ 7086:            PUSHI  #0x00000006
723 @ 7091:            ACCESS
724 @ 7092:            PUSHI  #0x00425236
725 @ 7097:            ASSVAL

    50       BR(7)=M'BR7'
726 @ 7098:            LINE   50 "regression-compile-tmp/skimp77.imp"
727 @ 7136:            PUSH   BR
728 @ 7139:            PUSHI  #0x00000007
729 @ 7144:            ACCESS
730 @ 7145:            PUSHI  #0x00425237
731 @ 7150:            ASSVAL

    51       BR(8)=M'BR8'
732 @ 7151:            LINE   51 "regression-compile-tmp/skimp77.imp"
733 @ 7189:            PUSH   BR
734 @ 7192:            PUSHI  #0x00000008
735 @ 7197:            ACCESS
736 @ 7198:            PUSHI  #0x00425238
737 @ 7203:            ASSVAL

    52       BR(9)=M'BR9'
738 @ 7204:            LINE   52 "regression-compile-tmp/skimp77.imp"
739 @ 7242:            PUSH   BR
740 @ 7245:            PUSHI  #0x00000009
741 @ 7250:            ACCESS
742 @ 7251:            PUSHI  #0x00425239
743 @ 7256:            ASSVAL

    53       BR(10)=M'BR10'
744 @ 7257:            LINE   53 "regression-compile-tmp/skimp77.imp"
745 @ 7295:            PUSH   BR
746 @ 7298:            PUSHI  #0x0000000a
747 @ 7303:            ACCESS
748 @ 7304:            PUSHI  #0x42523130
749 @ 7309:            ASSVAL

    54       BR(11)=M'BR11'
750 @ 7310:            LINE   54 "regression-compile-tmp/skimp77.imp"
751 @ 7348:            PUSH   BR
752 @ 7351:            PUSHI  #0x0000000b
753 @ 7356:            ACCESS
754 @ 7357:            PUSHI  #0x42523131
755 @ 7362:            ASSVAL

    55       BR(12)=M'BR12'
756 @ 7363:            LINE   55 "regression-compile-tmp/skimp77.imp"
757 @ 7401:            PUSH   BR
758 @ 7404:            PUSHI  #0x0000000c
759 @ 7409:            ACCESS
760 @ 7410:            PUSHI  #0x42523132
761 @ 7415:            ASSVAL

    56       BR(13)=M'BR13'
762 @ 7416:            LINE   56 "regression-compile-tmp/skimp77.imp"
763 @ 7454:            PUSH   BR
764 @ 7457:            PUSHI  #0x0000000d
765 @ 7462:            ACCESS
766 @ 7463:            PUSHI  #0x42523133
767 @ 7468:            ASSVAL

    57       BR(14)=M'BR14'
768 @ 7469:            LINE   57 "regression-compile-tmp/skimp77.imp"
769 @ 7507:            PUSH   BR
770 @ 7510:            PUSHI  #0x0000000e
771 @ 7515:            ACCESS
772 @ 7516:            PUSHI  #0x42523134
773 @ 7521:            ASSVAL

    58       BR(15)=M'BR15'
774 @ 7522:            LINE   58 "regression-compile-tmp/skimp77.imp"
775 @ 7560:            PUSH   BR
776 @ 7563:            PUSHI  #0x0000000f
777 @ 7568:            ACCESS
778 @ 7569:            PUSHI  #0x42523135
779 @ 7574:            ASSVAL

    59       TRUE(1)=M'BZ'                       ;! CONDITIONAL BRANCH MNEMONICS
780 @ 7575:            LINE   59 "regression-compile-tmp/skimp77.imp"
781 @ 7613:            PUSH   TRUE
782 @ 7616:            PUSHI  #0x00000001
783 @ 7621:            ACCESS
784 @ 7622:            PUSHI  #0x0000425a
785 @ 7627:            ASSVAL

    60       FALSE(1)=M'BNZ'
786 @ 7628:            LINE   60 "regression-compile-tmp/skimp77.imp"
787 @ 7666:            PUSH   FALSE
788 @ 7669:            PUSHI  #0x00000001
789 @ 7674:            ACCESS
790 @ 7675:            PUSHI  #0x00424e5a
791 @ 7680:            ASSVAL

    61       TRUE(2)=M'BNZ'
792 @ 7681:            LINE   61 "regression-compile-tmp/skimp77.imp"
793 @ 7719:            PUSH   TRUE
794 @ 7722:            PUSHI  #0x00000002
795 @ 7727:            ACCESS
796 @ 7728:            PUSHI  #0x00424e5a
797 @ 7733:            ASSVAL

    62       FALSE(2)=M'BZ'
798 @ 7734:            LINE   62 "regression-compile-tmp/skimp77.imp"
799 @ 7772:            PUSH   FALSE
800 @ 7775:            PUSHI  #0x00000002
801 @ 7780:            ACCESS
802 @ 7781:            PUSHI  #0x0000425a
803 @ 7786:            ASSVAL

    63       TRUE(3)=M'BNG'
804 @ 7787:            LINE   63 "regression-compile-tmp/skimp77.imp"
805 @ 7825:            PUSH   TRUE
806 @ 7828:            PUSHI  #0x00000003
807 @ 7833:            ACCESS
808 @ 7834:            PUSHI  #0x00424e47
809 @ 7839:            ASSVAL

    64       FALSE(3)=M'BG'
810 @ 7840:            LINE   64 "regression-compile-tmp/skimp77.imp"
811 @ 7878:            PUSH   FALSE
812 @ 7881:            PUSHI  #0x00000003
813 @ 7886:            ACCESS
814 @ 7887:            PUSHI  #0x00004247
815 @ 7892:            ASSVAL

    65       TRUE(4)=M'BL'
816 @ 7893:            LINE   65 "regression-compile-tmp/skimp77.imp"
817 @ 7931:            PUSH   TRUE
818 @ 7934:            PUSHI  #0x00000004
819 @ 7939:            ACCESS
820 @ 7940:            PUSHI  #0x0000424c
821 @ 7945:            ASSVAL

    66       FALSE(4)=M'BNL'
822 @ 7946:            LINE   66 "regression-compile-tmp/skimp77.imp"
823 @ 7984:            PUSH   FALSE
824 @ 7987:            PUSHI  #0x00000004
825 @ 7992:            ACCESS
826 @ 7993:            PUSHI  #0x00424e4c
827 @ 7998:            ASSVAL

    67       TRUE(5)=M'BNL'
828 @ 7999:            LINE   67 "regression-compile-tmp/skimp77.imp"
829 @ 8037:            PUSH   TRUE
830 @ 8040:            PUSHI  #0x00000005
831 @ 8045:            ACCESS
832 @ 8046:            PUSHI  #0x00424e4c
833 @ 8051:            ASSVAL

    68       FALSE(5)=M'BL'
834 @ 8052:            LINE   68 "regression-compile-tmp/skimp77.imp"
835 @ 8090:            PUSH   FALSE
836 @ 8093:            PUSHI  #0x00000005
837 @ 8098:            ACCESS
838 @ 8099:            PUSHI  #0x0000424c
839 @ 8104:            ASSVAL

    69       TRUE(6)=M'BG'
840 @ 8105:            LINE   69 "regression-compile-tmp/skimp77.imp"
841 @ 8143:            PUSH   TRUE
842 @ 8146:            PUSHI  #0x00000006
843 @ 8151:            ACCESS
844 @ 8152:            PUSHI  #0x00004247
845 @ 8157:            ASSVAL

    70       FALSE(6)=M'BNG'
846 @ 8158:            LINE   70 "regression-compile-tmp/skimp77.imp"
847 @ 8196:            PUSH   FALSE
848 @ 8199:            PUSHI  #0x00000006
849 @ 8204:            ACCESS
850 @ 8205:            PUSHI  #0x00424e47
851 @ 8210:            ASSVAL

    71       PREC(1)=3                           ;! OPERATOR PRECEDENCES
852 @ 8211:            LINE   71 "regression-compile-tmp/skimp77.imp"
853 @ 8249:            PUSH   PREC
854 @ 8252:            PUSHI  #0x00000001
855 @ 8257:            ACCESS
856 @ 8258:            PUSHI  #0x00000003
857 @ 8263:            ASSVAL

    72       PREC(2)=3                           ;! 4 : HIGHEST
858 @ 8264:            LINE   72 "regression-compile-tmp/skimp77.imp"
859 @ 8302:            PUSH   PREC
860 @ 8305:            PUSHI  #0x00000002
861 @ 8310:            ACCESS
862 @ 8311:            PUSHI  #0x00000003
863 @ 8316:            ASSVAL

    73       PREC(3)=2                           ;! 1 : LOWEST
864 @ 8317:            LINE   73 "regression-compile-tmp/skimp77.imp"
865 @ 8355:            PUSH   PREC
866 @ 8358:            PUSHI  #0x00000003
867 @ 8363:            ACCESS
868 @ 8364:            PUSHI  #0x00000002
869 @ 8369:            ASSVAL

    74       PREC(4)=1
870 @ 8370:            LINE   74 "regression-compile-tmp/skimp77.imp"
871 @ 8408:            PUSH   PREC
872 @ 8411:            PUSHI  #0x00000004
873 @ 8416:            ACCESS
874 @ 8417:            PUSHI  #0x00000001
875 @ 8422:            ASSVAL

    75       PREC(5)=1
876 @ 8423:            LINE   75 "regression-compile-tmp/skimp77.imp"
877 @ 8461:            PUSH   PREC
878 @ 8464:            PUSHI  #0x00000005
879 @ 8469:            ACCESS
880 @ 8470:            PUSHI  #0x00000001
881 @ 8475:            ASSVAL

    76       PREC(6)=3
882 @ 8476:            LINE   76 "regression-compile-tmp/skimp77.imp"
883 @ 8514:            PUSH   PREC
884 @ 8517:            PUSHI  #0x00000006
885 @ 8522:            ACCESS
886 @ 8523:            PUSHI  #0x00000003
887 @ 8528:            ASSVAL

    77       PREC(7)=2
888 @ 8529:            LINE   77 "regression-compile-tmp/skimp77.imp"
889 @ 8567:            PUSH   PREC
890 @ 8570:            PUSHI  #0x00000007
891 @ 8575:            ACCESS
892 @ 8576:            PUSHI  #0x00000002
893 @ 8581:            ASSVAL

    78       PREC(8)=2
894 @ 8582:            LINE   78 "regression-compile-tmp/skimp77.imp"
895 @ 8620:            PUSH   PREC
896 @ 8623:            PUSHI  #0x00000008
897 @ 8628:            ACCESS
898 @ 8629:            PUSHI  #0x00000002
899 @ 8634:            ASSVAL

    79       PREC(9)=1
900 @ 8635:            LINE   79 "regression-compile-tmp/skimp77.imp"
901 @ 8673:            PUSH   PREC
902 @ 8676:            PUSHI  #0x00000009
903 @ 8681:            ACCESS
904 @ 8682:            PUSHI  #0x00000001
905 @ 8687:            ASSVAL

    80       PREC(10)=1
906 @ 8688:            LINE   80 "regression-compile-tmp/skimp77.imp"
907 @ 8726:            PUSH   PREC
908 @ 8729:            PUSHI  #0x0000000a
909 @ 8734:            ACCESS
910 @ 8735:            PUSHI  #0x00000001
911 @ 8740:            ASSVAL

    81       PREC(11)=1
912 @ 8741:            LINE   81 "regression-compile-tmp/skimp77.imp"
913 @ 8779:            PUSH   PREC
914 @ 8782:            PUSHI  #0x0000000b
915 @ 8787:            ACCESS
916 @ 8788:            PUSHI  #0x00000001
917 @ 8793:            ASSVAL

    82       PREC(12)=4
918 @ 8794:            LINE   82 "regression-compile-tmp/skimp77.imp"
919 @ 8832:            PUSH   PREC
920 @ 8835:            PUSHI  #0x0000000c
921 @ 8840:            ACCESS
922 @ 8841:            PUSHI  #0x00000004
923 @ 8846:            ASSVAL

    83       OPR(0)=M'LOAD'                      ;! MACHINE INSTRUCTION MNEMONICS
924 @ 8847:            LINE   83 "regression-compile-tmp/skimp77.imp"
925 @ 8885:            PUSH   OPR
926 @ 8888:            PUSHI  #0x00000000
927 @ 8893:            ACCESS
928 @ 8894:            PUSHI  #0x4c4f4144
929 @ 8899:            ASSVAL

    84       OPR(1)=M'SHL'
930 @ 8900:            LINE   84 "regression-compile-tmp/skimp77.imp"
931 @ 8938:            PUSH   OPR
932 @ 8941:            PUSHI  #0x00000001
933 @ 8946:            ACCESS
934 @ 8947:            PUSHI  #0x0053484c
935 @ 8952:            ASSVAL

    85       OPR(2)=M'SHR'
936 @ 8953:            LINE   85 "regression-compile-tmp/skimp77.imp"
937 @ 8991:            PUSH   OPR
938 @ 8994:            PUSHI  #0x00000002
939 @ 8999:            ACCESS
940 @ 9000:            PUSHI  #0x00534852
941 @ 9005:            ASSVAL

    86       OPR(3)=M'AND'
942 @ 9006:            LINE   86 "regression-compile-tmp/skimp77.imp"
943 @ 9044:            PUSH   OPR
944 @ 9047:            PUSHI  #0x00000003
945 @ 9052:            ACCESS
946 @ 9053:            PUSHI  #0x00414e44
947 @ 9058:            ASSVAL

    87       OPR(4)=M'XOR'
948 @ 9059:            LINE   87 "regression-compile-tmp/skimp77.imp"
949 @ 9097:            PUSH   OPR
950 @ 9100:            PUSHI  #0x00000004
951 @ 9105:            ACCESS
952 @ 9106:            PUSHI  #0x00584f52
953 @ 9111:            ASSVAL

    88       OPR(5)=M'OR'
954 @ 9112:            LINE   88 "regression-compile-tmp/skimp77.imp"
955 @ 9150:            PUSH   OPR
956 @ 9153:            PUSHI  #0x00000005
957 @ 9158:            ACCESS
958 @ 9159:            PUSHI  #0x00004f52
959 @ 9164:            ASSVAL

    89       OPR(6)=M'EXP'
960 @ 9165:            LINE   89 "regression-compile-tmp/skimp77.imp"
961 @ 9203:            PUSH   OPR
962 @ 9206:            PUSHI  #0x00000006
963 @ 9211:            ACCESS
964 @ 9212:            PUSHI  #0x00455850
965 @ 9217:            ASSVAL

    90       OPR(7)=M'DIV'
966 @ 9218:            LINE   90 "regression-compile-tmp/skimp77.imp"
967 @ 9256:            PUSH   OPR
968 @ 9259:            PUSHI  #0x00000007
969 @ 9264:            ACCESS
970 @ 9265:            PUSHI  #0x00444956
971 @ 9270:            ASSVAL

    91       OPR(8)=M'MLT'
972 @ 9271:            LINE   91 "regression-compile-tmp/skimp77.imp"
973 @ 9309:            PUSH   OPR
974 @ 9312:            PUSHI  #0x00000008
975 @ 9317:            ACCESS
976 @ 9318:            PUSHI  #0x004d4c54
977 @ 9323:            ASSVAL

    92       OPR(9)=M'ADD'
978 @ 9324:            LINE   92 "regression-compile-tmp/skimp77.imp"
979 @ 9362:            PUSH   OPR
980 @ 9365:            PUSHI  #0x00000009
981 @ 9370:            ACCESS
982 @ 9371:            PUSHI  #0x00414444
983 @ 9376:            ASSVAL

    93       OPR(10)=M'SUB'
984 @ 9377:            LINE   93 "regression-compile-tmp/skimp77.imp"
985 @ 9415:            PUSH   OPR
986 @ 9418:            PUSHI  #0x0000000a
987 @ 9423:            ACCESS
988 @ 9424:            PUSHI  #0x00535542
989 @ 9429:            ASSVAL

    94       OPR(11)=M'NEG'
990 @ 9430:            LINE   94 "regression-compile-tmp/skimp77.imp"
991 @ 9468:            PUSH   OPR
992 @ 9471:            PUSHI  #0x0000000b
993 @ 9476:            ACCESS
994 @ 9477:            PUSHI  #0x004e4547
995 @ 9482:            ASSVAL

    95       OPR(12)=M'NOT'
996 @ 9483:            LINE   95 "regression-compile-tmp/skimp77.imp"
997 @ 9521:            PUSH   OPR
998 @ 9524:            PUSHI  #0x0000000c
999 @ 9529:            ACCESS
1000 @ 9530:            PUSHI  #0x004e4f54
1001 @ 9535:            ASSVAL

    96       UCN(1)=3                            ;! OPERATOR TYPES
1002 @ 9536:            LINE   96 "regression-compile-tmp/skimp77.imp"
1003 @ 9574:            PUSH   UCN
1004 @ 9577:            PUSHI  #0x00000001
1005 @ 9582:            ACCESS
1006 @ 9583:            PUSHI  #0x00000003
1007 @ 9588:            ASSVAL

    97       UCN(2)=3                            ;! 1 : UNARY
1008 @ 9589:            LINE   97 "regression-compile-tmp/skimp77.imp"
1009 @ 9627:            PUSH   UCN
1010 @ 9630:            PUSHI  #0x00000002
1011 @ 9635:            ACCESS
1012 @ 9636:            PUSHI  #0x00000003
1013 @ 9641:            ASSVAL

    98       UCN(3)=2                            ;! 2 : BINARY COMMUTATIVE
1014 @ 9642:            LINE   98 "regression-compile-tmp/skimp77.imp"
1015 @ 9680:            PUSH   UCN
1016 @ 9683:            PUSHI  #0x00000003
1017 @ 9688:            ACCESS
1018 @ 9689:            PUSHI  #0x00000002
1019 @ 9694:            ASSVAL

    99       UCN(3)=2                            ;! 3 : BINARY NON-COMMUTATIVE
1020 @ 9695:            LINE   99 "regression-compile-tmp/skimp77.imp"
1021 @ 9733:            PUSH   UCN
1022 @ 9736:            PUSHI  #0x00000003
1023 @ 9741:            ACCESS
1024 @ 9742:            PUSHI  #0x00000002
1025 @ 9747:            ASSVAL

   100       UCN(4)=2
1026 @ 9748:            LINE   100 "regression-compile-tmp/skimp77.imp"
1027 @ 9786:            PUSH   UCN
1028 @ 9789:            PUSHI  #0x00000004
1029 @ 9794:            ACCESS
1030 @ 9795:            PUSHI  #0x00000002
1031 @ 9800:            ASSVAL

   101       UCN(5)=2
1032 @ 9801:            LINE   101 "regression-compile-tmp/skimp77.imp"
1033 @ 9839:            PUSH   UCN
1034 @ 9842:            PUSHI  #0x00000005
1035 @ 9847:            ACCESS
1036 @ 9848:            PUSHI  #0x00000002
1037 @ 9853:            ASSVAL

   102       UCN(6)=3
1038 @ 9854:            LINE   102 "regression-compile-tmp/skimp77.imp"
1039 @ 9892:            PUSH   UCN
1040 @ 9895:            PUSHI  #0x00000006
1041 @ 9900:            ACCESS
1042 @ 9901:            PUSHI  #0x00000003
1043 @ 9906:            ASSVAL

   103       UCN(7)=3
1044 @ 9907:            LINE   103 "regression-compile-tmp/skimp77.imp"
1045 @ 9945:            PUSH   UCN
1046 @ 9948:            PUSHI  #0x00000007
1047 @ 9953:            ACCESS
1048 @ 9954:            PUSHI  #0x00000003
1049 @ 9959:            ASSVAL

   104       UCN(8)=2
1050 @ 9960:            LINE   104 "regression-compile-tmp/skimp77.imp"
1051 @ 9998:            PUSH   UCN
1052 @ 10001:            PUSHI  #0x00000008
1053 @ 10006:            ACCESS
1054 @ 10007:            PUSHI  #0x00000002
1055 @ 10012:            ASSVAL

   105       UCN(9)=2
1056 @ 10013:            LINE   105 "regression-compile-tmp/skimp77.imp"
1057 @ 10051:            PUSH   UCN
1058 @ 10054:            PUSHI  #0x00000009
1059 @ 10059:            ACCESS
1060 @ 10060:            PUSHI  #0x00000002
1061 @ 10065:            ASSVAL

   106       UCN(10)=3
1062 @ 10066:            LINE   106 "regression-compile-tmp/skimp77.imp"
1063 @ 10104:            PUSH   UCN
1064 @ 10107:            PUSHI  #0x0000000a
1065 @ 10112:            ACCESS
1066 @ 10113:            PUSHI  #0x00000003
1067 @ 10118:            ASSVAL

   107       UCN(11)=1
1068 @ 10119:            LINE   107 "regression-compile-tmp/skimp77.imp"
1069 @ 10157:            PUSH   UCN
1070 @ 10160:            PUSHI  #0x0000000b
1071 @ 10165:            ACCESS
1072 @ 10166:            PUSHI  #0x00000001
1073 @ 10171:            ASSVAL

   108       UCN(12)=1
1074 @ 10172:            LINE   108 "regression-compile-tmp/skimp77.imp"
1075 @ 10210:            PUSH   UCN
1076 @ 10213:            PUSHI  #0x0000000c
1077 @ 10218:            ACCESS
1078 @ 10219:            PUSHI  #0x00000001
1079 @ 10224:            ASSVAL

   109       BTN=0                               ;! BRANCH TABLE POINTER
1080 @ 10225:            LINE   109 "regression-compile-tmp/skimp77.imp"
1081 @ 10263:            PUSH   BTN
1082 @ 10266:            PUSHI  #0x00000000
1083 @ 10271:            ASSVAL

   110       CTN=0                               ;! CONSTANT TABLE POINTER
1084 @ 10272:            LINE   110 "regression-compile-tmp/skimp77.imp"
1085 @ 10310:            PUSH   CTN
1086 @ 10313:            PUSHI  #0x00000000
1087 @ 10318:            ASSVAL

   111       CHP=1                               ;! NAME CHARACTER TABLE POINTER
1088 @ 10319:            LINE   111 "regression-compile-tmp/skimp77.imp"
1089 @ 10357:            PUSH   CHP
1090 @ 10360:            PUSHI  #0x00000001
1091 @ 10365:            ASSVAL

   112       FAULTS=0                            ;! FAULT COUNT
1092 @ 10366:            LINE   112 "regression-compile-tmp/skimp77.imp"
1093 @ 10404:            PUSH   FAULTS
1094 @ 10407:            PUSHI  #0x00000000
1095 @ 10412:            ASSVAL

   113       LEVEL=0                             ;! TEXTUAL LEVEL
1096 @ 10413:            LINE   113 "regression-compile-tmp/skimp77.imp"
1097 @ 10451:            PUSH   LEVEL
1098 @ 10454:            PUSHI  #0x00000000
1099 @ 10459:            ASSVAL

   114       SCF=0                               ;! CONDITION FLAG
1100 @ 10460:            LINE   114 "regression-compile-tmp/skimp77.imp"
1101 @ 10498:            PUSH   SCF
1102 @ 10501:            PUSHI  #0x00000000
1103 @ 10506:            ASSVAL

   115       JUMP(0)=0                           ;! JUMP LIST POINTER
1104 @ 10507:            LINE   115 "regression-compile-tmp/skimp77.imp"
1105 @ 10545:            PUSH   JUMP
1106 @ 10548:            PUSHI  #0x00000000
1107 @ 10553:            ACCESS
1108 @ 10554:            PUSHI  #0x00000000
1109 @ 10559:            ASSVAL

   116       STAR(0)=0                           ;! STORAGE ALLOCATION POSITION IN COT
1110 @ 10560:            LINE   116 "regression-compile-tmp/skimp77.imp"
1111 @ 10598:            PUSH   STAR
1112 @ 10601:            PUSHI  #0x00000000
1113 @ 10606:            ACCESS
1114 @ 10607:            PUSHI  #0x00000000
1115 @ 10612:            ASSVAL

   117       NAME(0)=0                           ;! NAME LIST POINTER
1116 @ 10613:            LINE   117 "regression-compile-tmp/skimp77.imp"
1117 @ 10651:            PUSH   NAME
1118 @ 10654:            PUSHI  #0x00000000
1119 @ 10659:            ACCESS
1120 @ 10660:            PUSHI  #0x00000000
1121 @ 10665:            ASSVAL

   118       RTP(0)=-1                           ;! ROUTINE TYPE
1122 @ 10666:            LINE   118 "regression-compile-tmp/skimp77.imp"
1123 @ 10704:            PUSH   RTP
1124 @ 10707:            PUSHI  #0x00000000
1125 @ 10712:            ACCESS
1126 @ 10713:            PUSHI  #0x00000001
1127 @ 10718:            NEGATE
1128 @ 10719:            ASSVAL

   119       CHPP(0)=0                           ;! NAME CHARACTER TABLE POSITION
1129 @ 10720:            LINE   119 "regression-compile-tmp/skimp77.imp"
1130 @ 10758:            PUSH   CHPP
1131 @ 10761:            PUSHI  #0x00000000
1132 @ 10766:            ACCESS
1133 @ 10767:            PUSHI  #0x00000000
1134 @ 10772:            ASSVAL

   120       START(0)=0                          ;! START/FINISH LIST
1135 @ 10773:            LINE   120 "regression-compile-tmp/skimp77.imp"
1136 @ 10811:            PUSH   START
1137 @ 10814:            PUSHI  #0x00000000
1138 @ 10819:            ACCESS
1139 @ 10820:            PUSHI  #0x00000000
1140 @ 10825:            ASSVAL

   121       RAD(0)=10                           ;! NEXT RELATIVE ADDRESS TO BE ALLOCATED
1141 @ 10826:            LINE   121 "regression-compile-tmp/skimp77.imp"
1142 @ 10864:            PUSH   RAD
1143 @ 10867:            PUSHI  #0x00000000
1144 @ 10872:            ACCESS
1145 @ 10873:            PUSHI  #0x0000000a
1146 @ 10878:            ASSVAL

   122       CA=0                                ;! CURRENT CODE DUMPING ADDRESS
1147 @ 10879:            LINE   122 "regression-compile-tmp/skimp77.imp"
1148 @ 10917:            PUSH   CA
1149 @ 10920:            PUSHI  #0x00000000
1150 @ 10925:            ASSVAL

   123       PRINT SYMBOL('P')
1151 @ 10926:            LINE   123 "regression-compile-tmp/skimp77.imp"
1152 @ 10964:            PUSH   PRINTSYMBOL
1153 @ 10967:            PUSHI  #0x00000050
1154 @ 10972:            ASSPAR
1155 @ 10973:            CALL  

   124       PRINT SYMBOL('R')
1156 @ 10974:            LINE   124 "regression-compile-tmp/skimp77.imp"
1157 @ 11012:            PUSH   PRINTSYMBOL
1158 @ 11015:            PUSHI  #0x00000052
1159 @ 11020:            ASSPAR
1160 @ 11021:            CALL  

   125       PRINT SYMBOL('G')
1161 @ 11022:            LINE   125 "regression-compile-tmp/skimp77.imp"
1162 @ 11060:            PUSH   PRINTSYMBOL
1163 @ 11063:            PUSHI  #0x00000047
1164 @ 11068:            ASSPAR
1165 @ 11069:            CALL  

   126       PRINT SYMBOL(':')
   127  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !
1166 @ 11070:            LINE   126 "regression-compile-tmp/skimp77.imp"
1167 @ 11108:            PUSH   PRINTSYMBOL
1168 @ 11111:            PUSHI  #0x0000003a
1169 @ 11116:            ASSPAR
1170 @ 11117:            CALL  

   128  L1:   READ LINE
1171 @ 11118:            LINE   128 "regression-compile-tmp/skimp77.imp"
1172 @ 11156:            LABEL  L_00b1
1173 @ 11159:            LINE   128 "regression-compile-tmp/skimp77.imp"
1174 @ 11197:            PUSH   READLINE
1175 @ 11200:            CALL  

   129       TP=1                                      ;! TEXT POINTER
1176 @ 11201:            LINE   129 "regression-compile-tmp/skimp77.imp"
1177 @ 11239:            PUSH   TP
1178 @ 11242:            PUSHI  #0x00000001
1179 @ 11247:            ASSVAL

   130  L2:   %IF T(TP)='!' %THEN ->L3                   ;! COMMENT - SKIP TO END
1180 @ 11248:            LINE   130 "regression-compile-tmp/skimp77.imp"
1181 @ 11286:            LABEL  L_00b2
1182 @ 11289:            LINE   130 "regression-compile-tmp/skimp77.imp"
1183 @ 11327:            PUSH   T
1184 @ 11330:            PUSH   TP
1185 @ 11333:            ACCESS
1186 @ 11334:            PUSHI  #0x00000021
1187 @ 11339:            JUMPIF # L_0004
1188 @ 11343:            JUMP   L_00b3
1189 @ 11346:            LOCATE L_0004

   131       PSP=-1000                                 ;! START OF <SS> IN PHRASE STRUCTURE TABLES
1190 @ 11349:            LINE   131 "regression-compile-tmp/skimp77.imp"
1191 @ 11387:            PUSH   PSP
1192 @ 11390:            PUSHI  #0x000003e8
1193 @ 11395:            NEGATE
1194 @ 11396:            ASSVAL

   132       AP=1
1195 @ 11397:            LINE   132 "regression-compile-tmp/skimp77.imp"
1196 @ 11435:            PUSH   AP
1197 @ 11438:            PUSHI  #0x00000001
1198 @ 11443:            ASSVAL

   133       %IF COMPARE=1 %THEN %START                ;! SUCCESSFUL ANALYSIS
1199 @ 11444:            LINE   133 "regression-compile-tmp/skimp77.imp"
1200 @ 11482:            PUSH   COMPARE
1201 @ 11485:            CALL  
1202 @ 11486:            PUSHI  #0x00000001
1203 @ 11491:            JUMPIF # L_0004

   134          AP=1                                   ;! ANALYSIS RECORD POINTER
1204 @ 11495:            LINE   134 "regression-compile-tmp/skimp77.imp"
1205 @ 11533:            PUSH   AP
1206 @ 11536:            PUSHI  #0x00000001
1207 @ 11541:            ASSVAL

   135          SS                                     ;! PROCESS SOURCE STATEMENT
1208 @ 11542:            LINE   135 "regression-compile-tmp/skimp77.imp"
1209 @ 11580:            PUSH   SS
1210 @ 11583:            CALL  

   136          %IF T(TP-1)=';' %THEN ->L2              ;! FURTHER STATEMENT ON THIS LINE
1211 @ 11584:            LINE   136 "regression-compile-tmp/skimp77.imp"
1212 @ 11622:            PUSH   T
1213 @ 11625:            PUSH   TP
1214 @ 11628:            PUSHI  #0x00000001
1215 @ 11633:            SUB   
1216 @ 11634:            ACCESS
1217 @ 11635:            PUSHI  #0x0000003b
1218 @ 11640:            JUMPIF # L_0007
1219 @ 11644:            JUMP   L_00b2
1220 @ 11647:            LOCATE L_0007

   137          ->L1 ; %FINISH                          ;! GO TO READ NEXT LINE
1221 @ 11650:            LINE   137 "regression-compile-tmp/skimp77.imp"
1222 @ 11688:            JUMP   L_00b1
1223 @ 11691:            LINE   137 "regression-compile-tmp/skimp77.imp"
1224 @ 11729:            LOCATE L_0004

   138       FAULT(M'SYNT',M'AX ?',M'    ',M'    ')    ;! UNSUCCESSFUL ANALYSIS
1225 @ 11732:            LINE   138 "regression-compile-tmp/skimp77.imp"
1226 @ 11770:            PUSH   FAULT
1227 @ 11773:            PUSHI  #0x53594e54
1228 @ 11778:            ASSPAR
1229 @ 11779:            PUSHI  #0x4158203f
1230 @ 11784:            ASSPAR
1231 @ 11785:            PUSHI  #0x20202020
1232 @ 11790:            ASSPAR
1233 @ 11791:            PUSHI  #0x20202020
1234 @ 11796:            ASSPAR
1235 @ 11797:            CALL  

   139  L5:   %IF T(TP)=10 %THEN ->L1                    ;! NEWLINE - READ NEXT LINE
1236 @ 11798:            LINE   139 "regression-compile-tmp/skimp77.imp"
1237 @ 11836:            LABEL  L_00b4
1238 @ 11839:            LINE   139 "regression-compile-tmp/skimp77.imp"
1239 @ 11877:            PUSH   T
1240 @ 11880:            PUSH   TP
1241 @ 11883:            ACCESS
1242 @ 11884:            PUSHI  #0x0000000a
1243 @ 11889:            JUMPIF # L_0004
1244 @ 11893:            JUMP   L_00b1
1245 @ 11896:            LOCATE L_0004

   140       %IF T(TP)=';' %THEN %START                ;! END OF STATEMENT
1246 @ 11899:            LINE   140 "regression-compile-tmp/skimp77.imp"
1247 @ 11937:            PUSH   T
1248 @ 11940:            PUSH   TP
1249 @ 11943:            ACCESS
1250 @ 11944:            PUSHI  #0x0000003b
1251 @ 11949:            JUMPIF # L_0004

   141          TP=TP+1                                ;! TP TO START OF NEXT STATEMENT
1252 @ 11953:            LINE   141 "regression-compile-tmp/skimp77.imp"
1253 @ 11991:            PUSH   TP
1254 @ 11994:            PUSH   TP
1255 @ 11997:            PUSHI  #0x00000001
1256 @ 12002:            ADD   
1257 @ 12003:            ASSVAL

   142          ->L2 ; %FINISH                          ;! GO TO EXAMINE NEXT STATEMENT
1258 @ 12004:            LINE   142 "regression-compile-tmp/skimp77.imp"
1259 @ 12042:            JUMP   L_00b2
1260 @ 12045:            LINE   142 "regression-compile-tmp/skimp77.imp"
1261 @ 12083:            LOCATE L_0004

   143  L3:   TP=TP+1                                   ;! SKIP TO NEXT CHARACTER OF STATEMENT
1262 @ 12086:            LINE   143 "regression-compile-tmp/skimp77.imp"
1263 @ 12124:            LABEL  L_00b3
1264 @ 12127:            LINE   143 "regression-compile-tmp/skimp77.imp"
1265 @ 12165:            PUSH   TP
1266 @ 12168:            PUSH   TP
1267 @ 12171:            PUSHI  #0x00000001
1268 @ 12176:            ADD   
1269 @ 12177:            ASSVAL

   144       ->L5
   145  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
1270 @ 12178:            LINE   144 "regression-compile-tmp/skimp77.imp"
1271 @ 12216:            JUMP   L_00b4

   146  %ROUTINE READ PS
   147  ! READ IN AND REDUCE PHRASE STRUCTURE
1272 @ 12219:            LINE   146 "regression-compile-tmp/skimp77.imp"
1273 @ 12257:            DEF    READPS (_lev0id0_READPS) 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
1274 @ 12275:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
1275 @ 12276:               FINISH ) {lev=2}

   148  %INTEGER PNP,ALT,P,I,J,K
1276 @ 12277:               LINE   148 "regression-compile-tmp/skimp77.imp"
1277 @ 12315:               DEF    PNP p1=V_00b5 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
1278 @ 12330:               DEF    ALT p1=V_00b6 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
1279 @ 12345:               DEF    P p1=V_00b7 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
1280 @ 12358:               DEF    I p1=V_00b8 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
1281 @ 12371:               DEF    J p1=V_00b9 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
1282 @ 12384:               DEF    K p1=V_00ba a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   149  %INTEGERARRAY PN,PSP(256:300)    ;! PHRASE NAME CHARS & POINTERS TO START OF PHRASES IN PS
1283 @ 12397:               LINE   149 "regression-compile-tmp/skimp77.imp"
1284 @ 12435:               DEF    PN p1=V_00bb a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
1285 @ 12449:               DEF    PSP p1=V_00bc a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
1286 @ 12464:               PUSHI  #0x00000100
1287 @ 12469:               PUSHI  #0x0000012c
1288 @ 12474:               DIM    0001 0002

   150  %ROUTINESPEC INSERT LIT
1289 @ 12480:               LINE   150 "regression-compile-tmp/skimp77.imp"
1290 @ 12518:               DEF    INSERTLIT (_lev0id0_READPS_INSERTLIT) p1=V_00bd 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
1291 @ 12539:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
1292 @ 12540:               FINISH ) {lev=2}

   151  %INTEGERFNSPEC GET PN
1293 @ 12541:               LINE   151 "regression-compile-tmp/skimp77.imp"
1294 @ 12579:               DEF    GETPN (_lev0id0_READPS_GETPN) p1=V_00be a/tf=18 b/format=1 c/ostate=18  type=1 (integer) form=8 (function) special=0 (<special:0>) linkage=0 (auto) spec=1 indirect=1 unass=0
1295 @ 12596:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
1296 @ 12597:               FINISH ) {lev=2}

   152       PNP=256                               ;! PN POINTER
1297 @ 12598:               LINE   152 "regression-compile-tmp/skimp77.imp"
1298 @ 12636:               PUSH   PNP
1299 @ 12639:               PUSHI  #0x00000100
1300 @ 12644:               ASSVAL

   153       P=-1000                               ;! PS POINTER
1301 @ 12645:               LINE   153 "regression-compile-tmp/skimp77.imp"
1302 @ 12683:               PUSH   P
1303 @ 12686:               PUSHI  #0x000003e8
1304 @ 12691:               NEGATE
1305 @ 12692:               ASSVAL

   154  L1:   READ SYMBOL(I)
1306 @ 12693:               LINE   154 "regression-compile-tmp/skimp77.imp"
1307 @ 12731:               LABEL  L_00bf
1308 @ 12734:               LINE   154 "regression-compile-tmp/skimp77.imp"
1309 @ 12772:               PUSH   READSYMBOL
1310 @ 12775:               PUSH   I
1311 @ 12778:               ASSPAR
1312 @ 12779:               CALL  

   155       %IF I='B' %THEN %START                ;! BUILT-IN PHRASE
1313 @ 12780:               LINE   155 "regression-compile-tmp/skimp77.imp"
1314 @ 12818:               PUSH   I
1315 @ 12821:               PUSHI  #0x00000042
1316 @ 12826:               JUMPIF # L_0004

   156  L2:      READ SYMBOL(I)                        ;! SKIP TO <
1317 @ 12830:               LINE   156 "regression-compile-tmp/skimp77.imp"
1318 @ 12868:               LABEL  L_00c0
1319 @ 12871:               LINE   156 "regression-compile-tmp/skimp77.imp"
1320 @ 12909:               PUSH   READSYMBOL
1321 @ 12912:               PUSH   I
1322 @ 12915:               ASSPAR
1323 @ 12916:               CALL  

   157          %IF I\='<' %THEN ->L2
1324 @ 12917:               LINE   157 "regression-compile-tmp/skimp77.imp"
1325 @ 12955:               PUSH   I
1326 @ 12958:               PUSHI  #0x0000003c
1327 @ 12963:               JUMPIF = L_0007
1328 @ 12967:               JUMP   L_00c0
1329 @ 12970:               LOCATE L_0007

   158          J=GET PN                           ;! READ PHRASE NAME & GET POSITION IN PSP
1330 @ 12973:               LINE   158 "regression-compile-tmp/skimp77.imp"
1331 @ 13011:               PUSH   J
1332 @ 13014:               PUSH   GETPN
1333 @ 13017:               CALL  
1334 @ 13018:               ASSVAL

   159  L3:      READ SYMBOL(I)                        ;! SKIP TO =
1335 @ 13019:               LINE   159 "regression-compile-tmp/skimp77.imp"
1336 @ 13057:               LABEL  L_00c1
1337 @ 13060:               LINE   159 "regression-compile-tmp/skimp77.imp"
1338 @ 13098:               PUSH   READSYMBOL
1339 @ 13101:               PUSH   I
1340 @ 13104:               ASSPAR
1341 @ 13105:               CALL  

   160          %IF I\='=' %THEN ->L3
1342 @ 13106:               LINE   160 "regression-compile-tmp/skimp77.imp"
1343 @ 13144:               PUSH   I
1344 @ 13147:               PUSHI  #0x0000003d
1345 @ 13152:               JUMPIF = L_0007
1346 @ 13156:               JUMP   L_00c1
1347 @ 13159:               LOCATE L_0007

   161          READ(K)                            ;! READ PHRASE NUMBER
1348 @ 13162:               LINE   161 "regression-compile-tmp/skimp77.imp"
1349 @ 13200:               PUSH   READ
1350 @ 13203:               PUSH   K
1351 @ 13206:               ASSPAR
1352 @ 13207:               CALL  

   162          PSP(J)=K                           ;! FILL IN PHRASE NUMBER
1353 @ 13208:               LINE   162 "regression-compile-tmp/skimp77.imp"
1354 @ 13246:               PUSH   PSP
1355 @ 13249:               PUSH   J
1356 @ 13252:               ACCESS
1357 @ 13253:               PUSH   K
1358 @ 13256:               ASSVAL

   163          ->L1 ; %FINISH                      ;! GO TO DEAL WITH NEXT PHRASE
1359 @ 13257:               LINE   163 "regression-compile-tmp/skimp77.imp"
1360 @ 13295:               JUMP   L_00bf
1361 @ 13298:               LINE   163 "regression-compile-tmp/skimp77.imp"
1362 @ 13336:               LOCATE L_0004

   164       %IF I='P' %THEN %START                ;! PHRASE
1363 @ 13339:               LINE   164 "regression-compile-tmp/skimp77.imp"
1364 @ 13377:               PUSH   I
1365 @ 13380:               PUSHI  #0x00000050
1366 @ 13385:               JUMPIF # L_0004

   165  L4:      READ SYMBOL(I)                        ;! SKIP TO <
1367 @ 13389:               LINE   165 "regression-compile-tmp/skimp77.imp"
1368 @ 13427:               LABEL  L_00c2
1369 @ 13430:               LINE   165 "regression-compile-tmp/skimp77.imp"
1370 @ 13468:               PUSH   READSYMBOL
1371 @ 13471:               PUSH   I
1372 @ 13474:               ASSPAR
1373 @ 13475:               CALL  

   166          %IF I\='<' %THEN ->L4
1374 @ 13476:               LINE   166 "regression-compile-tmp/skimp77.imp"
1375 @ 13514:               PUSH   I
1376 @ 13517:               PUSHI  #0x0000003c
1377 @ 13522:               JUMPIF = L_0007
1378 @ 13526:               JUMP   L_00c2
1379 @ 13529:               LOCATE L_0007

   167          PSP(GET PN)=P                      ;! READ PHRASE NAME & FILL IN PS POSITION
1380 @ 13532:               LINE   167 "regression-compile-tmp/skimp77.imp"
1381 @ 13570:               PUSH   PSP
1382 @ 13573:               PUSH   GETPN
1383 @ 13576:               CALL  
1384 @ 13577:               ACCESS
1385 @ 13578:               PUSH   P
1386 @ 13581:               ASSVAL

   168  L7:      ALT=P                              ;! REMEMBER START POSITION IN PS OF THIS ALTERNATIVE
1387 @ 13582:               LINE   168 "regression-compile-tmp/skimp77.imp"
1388 @ 13620:               LABEL  L_00c3
1389 @ 13623:               LINE   168 "regression-compile-tmp/skimp77.imp"
1390 @ 13661:               PUSH   ALT
1391 @ 13664:               PUSH   P
1392 @ 13667:               ASSVAL

   169  L6:      P=P+1                              ;! NEXT PS POSITION
1393 @ 13668:               LINE   169 "regression-compile-tmp/skimp77.imp"
1394 @ 13706:               LABEL  L_00c4
1395 @ 13709:               LINE   169 "regression-compile-tmp/skimp77.imp"
1396 @ 13747:               PUSH   P
1397 @ 13750:               PUSH   P
1398 @ 13753:               PUSHI  #0x00000001
1399 @ 13758:               ADD   
1400 @ 13759:               ASSVAL

   170  L5:      READ SYMBOL(I)                        ;! START OF NEXT ITEM IN THIS ALTERNATIVE
1401 @ 13760:               LINE   170 "regression-compile-tmp/skimp77.imp"
1402 @ 13798:               LABEL  L_00c5
1403 @ 13801:               LINE   170 "regression-compile-tmp/skimp77.imp"
1404 @ 13839:               PUSH   READSYMBOL
1405 @ 13842:               PUSH   I
1406 @ 13845:               ASSPAR
1407 @ 13846:               CALL  

   171          %IF I='''' %THEN %START            ;! LITERAL TEXT
1408 @ 13847:               LINE   171 "regression-compile-tmp/skimp77.imp"
1409 @ 13885:               PUSH   I
1410 @ 13888:               PUSHI  #0x00000027
1411 @ 13893:               JUMPIF # L_0007

   172             INSERT LIT                      ;! READ LITERAL & INSERT IN PS
1412 @ 13897:               LINE   172 "regression-compile-tmp/skimp77.imp"
1413 @ 13935:               PUSH   INSERTLIT
1414 @ 13938:               CALL  

   173             ->L5 ; %FINISH                   ;! GO FOR NEXT ITEM
1415 @ 13939:               LINE   173 "regression-compile-tmp/skimp77.imp"
1416 @ 13977:               JUMP   L_00c5
1417 @ 13980:               LINE   173 "regression-compile-tmp/skimp77.imp"
1418 @ 14018:               LOCATE L_0007

   174          %IF I='<' %THEN %START             ;! ITEM IS A PHRASE NAME
1419 @ 14021:               LINE   174 "regression-compile-tmp/skimp77.imp"
1420 @ 14059:               PUSH   I
1421 @ 14062:               PUSHI  #0x0000003c
1422 @ 14067:               JUMPIF # L_0007

   175             PS(P)=GET PN                    ;! READ PHRASE NAME & FILL IN PS WITH PSP POSITION
1423 @ 14071:               LINE   175 "regression-compile-tmp/skimp77.imp"
1424 @ 14109:               PUSH   PS
1425 @ 14112:               PUSH   P
1426 @ 14115:               ACCESS
1427 @ 14116:               PUSH   GETPN
1428 @ 14119:               CALL  
1429 @ 14120:               ASSVAL

   176             ->L6 ; %FINISH                   ;! GO FOR NEXT ITEM
1430 @ 14121:               LINE   176 "regression-compile-tmp/skimp77.imp"
1431 @ 14159:               JUMP   L_00c4
1432 @ 14162:               LINE   176 "regression-compile-tmp/skimp77.imp"
1433 @ 14200:               LOCATE L_0007

   177          %IF I=',' %THEN %START             ;! END OF THIS ALTERNATIVE
1434 @ 14203:               LINE   177 "regression-compile-tmp/skimp77.imp"
1435 @ 14241:               PUSH   I
1436 @ 14244:               PUSHI  #0x0000002c
1437 @ 14249:               JUMPIF # L_0007

   178             PS(ALT)=P                       ;! FILL IN POINTER TO END OF ALTERNATIVE
1438 @ 14253:               LINE   178 "regression-compile-tmp/skimp77.imp"
1439 @ 14291:               PUSH   PS
1440 @ 14294:               PUSH   ALT
1441 @ 14297:               ACCESS
1442 @ 14298:               PUSH   P
1443 @ 14301:               ASSVAL

   179             ->L7 ; %FINISH                   ;! GO FOR START OF NEXT ALTERNATIVE
1444 @ 14302:               LINE   179 "regression-compile-tmp/skimp77.imp"
1445 @ 14340:               JUMP   L_00c3
1446 @ 14343:               LINE   179 "regression-compile-tmp/skimp77.imp"
1447 @ 14381:               LOCATE L_0007

   180          %IF I=';' %THEN %START             ;! END OF PHRASE DEFINITION
1448 @ 14384:               LINE   180 "regression-compile-tmp/skimp77.imp"
1449 @ 14422:               PUSH   I
1450 @ 14425:               PUSHI  #0x0000003b
1451 @ 14430:               JUMPIF # L_0007

   181             PS(ALT)=P                       ;! FILL IN POINTER TO END OF ALTERNATIVE
1452 @ 14434:               LINE   181 "regression-compile-tmp/skimp77.imp"
1453 @ 14472:               PUSH   PS
1454 @ 14475:               PUSH   ALT
1455 @ 14478:               ACCESS
1456 @ 14479:               PUSH   P
1457 @ 14482:               ASSVAL

   182             PS(P)=0                         ;! FILL IN END OF PHRASE MARKER
1458 @ 14483:               LINE   182 "regression-compile-tmp/skimp77.imp"
1459 @ 14521:               PUSH   PS
1460 @ 14524:               PUSH   P
1461 @ 14527:               ACCESS
1462 @ 14528:               PUSHI  #0x00000000
1463 @ 14533:               ASSVAL

   183             P=P+1                           ;! NEXT PS POSITION FOR START OF NEXT PHRASE DEFINITION
1464 @ 14534:               LINE   183 "regression-compile-tmp/skimp77.imp"
1465 @ 14572:               PUSH   P
1466 @ 14575:               PUSH   P
1467 @ 14578:               PUSHI  #0x00000001
1468 @ 14583:               ADD   
1469 @ 14584:               ASSVAL

   184             ->L1 ; %FINISH                   ;! GO FOR NEXT PHRASE
1470 @ 14585:               LINE   184 "regression-compile-tmp/skimp77.imp"
1471 @ 14623:               JUMP   L_00bf
1472 @ 14626:               LINE   184 "regression-compile-tmp/skimp77.imp"
1473 @ 14664:               LOCATE L_0007

   185          ->L5 ; %FINISH                      ;! SKIP TO SOMETHING SIGNIFICANT
1474 @ 14667:               LINE   185 "regression-compile-tmp/skimp77.imp"
1475 @ 14705:               JUMP   L_00c5
1476 @ 14708:               LINE   185 "regression-compile-tmp/skimp77.imp"
1477 @ 14746:               LOCATE L_0004

   186       %IF I='E' %THEN %START                ;! END OF PHRASE STRUCTURE DEFINITIONS
1478 @ 14749:               LINE   186 "regression-compile-tmp/skimp77.imp"
1479 @ 14787:               PUSH   I
1480 @ 14790:               PUSHI  #0x00000045
1481 @ 14795:               JUMPIF # L_0004

   187          I=-1000                            ;! REPLACE ALL POINTERS TO PSP WITH CORRECT PS POINTERS
1482 @ 14799:               LINE   187 "regression-compile-tmp/skimp77.imp"
1483 @ 14837:               PUSH   I
1484 @ 14840:               PUSHI  #0x000003e8
1485 @ 14845:               NEGATE
1486 @ 14846:               ASSVAL

   188  L8:      %IF PS(I)>=256 %THEN PS(I)=PSP(PS(I))
1487 @ 14847:               LINE   188 "regression-compile-tmp/skimp77.imp"
1488 @ 14885:               LABEL  L_00c6
1489 @ 14888:               LINE   188 "regression-compile-tmp/skimp77.imp"
1490 @ 14926:               PUSH   PS
1491 @ 14929:               PUSH   I
1492 @ 14932:               ACCESS
1493 @ 14933:               PUSHI  #0x00000100
1494 @ 14938:               JUMPIF < L_0007
1495 @ 14942:               PUSH   PS
1496 @ 14945:               PUSH   I
1497 @ 14948:               ACCESS
1498 @ 14949:               PUSH   PSP
1499 @ 14952:               PUSH   PS
1500 @ 14955:               PUSH   I
1501 @ 14958:               ACCESS
1502 @ 14959:               ACCESS
1503 @ 14960:               ASSVAL
1504 @ 14961:               LOCATE L_0007

   189          I=I+1
1505 @ 14964:               LINE   189 "regression-compile-tmp/skimp77.imp"
1506 @ 15002:               PUSH   I
1507 @ 15005:               PUSH   I
1508 @ 15008:               PUSHI  #0x00000001
1509 @ 15013:               ADD   
1510 @ 15014:               ASSVAL

   190          %IF I\=P %THEN ->L8
1511 @ 15015:               LINE   190 "regression-compile-tmp/skimp77.imp"
1512 @ 15053:               PUSH   I
1513 @ 15056:               PUSH   P
1514 @ 15059:               JUMPIF = L_0007
1515 @ 15063:               JUMP   L_00c6
1516 @ 15066:               LOCATE L_0007

   191          %RETURN ; %FINISH
1517 @ 15069:               LINE   191 "regression-compile-tmp/skimp77.imp"
1518 @ 15107:               RETURN
1519 @ 15108:               LINE   191 "regression-compile-tmp/skimp77.imp"
1520 @ 15146:               LOCATE L_0004

   192       ->L1                                   ;! SKIP TO SOMETHING SIGNIFICANT
   193  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !
1521 @ 15149:               LINE   192 "regression-compile-tmp/skimp77.imp"
1522 @ 15187:               JUMP   L_00bf

   194  %ROUTINE INSERT LIT
   195  ! INSERT LITERAL TEXT INTO 'PS'
1523 @ 15190:               LINE   194 "regression-compile-tmp/skimp77.imp"
1524 @ 15228:               DEF    INSERTLIT (_lev0id0_READPS_INSERTLIT) p1=V_00bd 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
1525 @ 15249:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
1526 @ 15250:                  FINISH ) {lev=3}

   196  %INTEGER SH,I
1527 @ 15251:                  LINE   196 "regression-compile-tmp/skimp77.imp"
1528 @ 15289:                  DEF    SH p1=V_00c7 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
1529 @ 15303:                  DEF    I p1=V_00c8 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   197       SH=0                                  ;! % SHIFT VALUE TO 0
1530 @ 15316:                  LINE   197 "regression-compile-tmp/skimp77.imp"
1531 @ 15354:                  PUSH   SH
1532 @ 15357:                  PUSHI  #0x00000000
1533 @ 15362:                  ASSVAL

   198  L1:   READ SYMBOL(I)
1534 @ 15363:                  LINE   198 "regression-compile-tmp/skimp77.imp"
1535 @ 15401:                  LABEL  L_00c9
1536 @ 15404:                  LINE   198 "regression-compile-tmp/skimp77.imp"
1537 @ 15442:                  PUSH   READSYMBOL
1538 @ 15445:                  PUSH   I
1539 @ 15448:                  ASSPAR
1540 @ 15449:                  CALL  

   199       %IF I='''' %THEN %START
1541 @ 15450:                  LINE   199 "regression-compile-tmp/skimp77.imp"
1542 @ 15488:                  PUSH   I
1543 @ 15491:                  PUSHI  #0x00000027
1544 @ 15496:                  JUMPIF # L_0004

   200          %IF NEXT SYMBOL\='''' %THEN %RETURN    ;! END OF LITERAL
1545 @ 15500:                  LINE   200 "regression-compile-tmp/skimp77.imp"
1546 @ 15538:                  PUSH   NEXTSYMBOL
1547 @ 15541:                  CALL  
1548 @ 15542:                  PUSHI  #0x00000027
1549 @ 15547:                  JUMPIF = L_0007
1550 @ 15551:                  RETURN
1551 @ 15552:                  LOCATE L_0007

   201          READ SYMBOL(I)                    ;! QUOTE INSIDE LITERAL - IGNORE ONE
1552 @ 15555:                  LINE   201 "regression-compile-tmp/skimp77.imp"
1553 @ 15593:                  PUSH   READSYMBOL
1554 @ 15596:                  PUSH   I
1555 @ 15599:                  ASSPAR
1556 @ 15600:                  CALL  

   202          %FINISH
1557 @ 15601:                  LINE   202 "regression-compile-tmp/skimp77.imp"
1558 @ 15639:                  LOCATE L_0004

   203       %IF I='%' %THEN SH=128 %ELSE %START   ;! SHIFT VALUE TO 128 FOR %
1559 @ 15642:                  LINE   203 "regression-compile-tmp/skimp77.imp"
1560 @ 15680:                  PUSH   I
1561 @ 15683:                  PUSHI  #0x00000025
1562 @ 15688:                  JUMPIF # L_0004
1563 @ 15692:                  PUSH   SH
1564 @ 15695:                  PUSHI  #0x00000080
1565 @ 15700:                  ASSVAL
1566 @ 15701:                  GOTO   L_0003
1567 @ 15704:                  LOCATE L_0004

   204          %IF I<'A' %OR I>'Z' %THEN SH=0     ;! END OF KEYWORD - SHIFT VALUE TO 0
1568 @ 15707:                  LINE   204 "regression-compile-tmp/skimp77.imp"
1569 @ 15745:                  PUSH   I
1570 @ 15748:                  PUSHI  #0x00000041
1571 @ 15753:                  JUMPIF < L_0008
1572 @ 15757:                  PUSH   I
1573 @ 15760:                  PUSHI  #0x0000005a
1574 @ 15765:                  JUMPIF <= L_0007
1575 @ 15769:                  LOCATE L_0008
1576 @ 15772:                  PUSH   SH
1577 @ 15775:                  PUSHI  #0x00000000
1578 @ 15780:                  ASSVAL
1579 @ 15781:                  LOCATE L_0007

   205          PS(P)=I+SH                     ;! STORE SHIFTED (POSSIBLY) CHAR IN PS
1580 @ 15784:                  LINE   205 "regression-compile-tmp/skimp77.imp"
1581 @ 15822:                  PUSH   PS
1582 @ 15825:                  PUSH   P
1583 @ 15828:                  ACCESS
1584 @ 15829:                  PUSH   I
1585 @ 15832:                  PUSH   SH
1586 @ 15835:                  ADD   
1587 @ 15836:                  ASSVAL

   206          P=P+1                          ;! MOVE TO NEXT POSITION IN PS
1588 @ 15837:                  LINE   206 "regression-compile-tmp/skimp77.imp"
1589 @ 15875:                  PUSH   P
1590 @ 15878:                  PUSH   P
1591 @ 15881:                  PUSHI  #0x00000001
1592 @ 15886:                  ADD   
1593 @ 15887:                  ASSVAL

   207          %FINISH
1594 @ 15888:                  LINE   207 "regression-compile-tmp/skimp77.imp"
1595 @ 15926:                  LOCATE L_0003

   208       ->L1
1596 @ 15929:                  LINE   208 "regression-compile-tmp/skimp77.imp"
1597 @ 15967:                  JUMP   L_00c9

   209  %END
   210  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !
1598 @ 15970:                  LINE   209 "regression-compile-tmp/skimp77.imp"
1599 @ 16008:               END    _lev0id0_READPS_INSERTLIT {lev=3 --> 2}

   211  %INTEGERFN GET PN
   212  ! READ IN PHRASE NAME AND GET INDEX IN 'PSP'
1600 @ 16009:               LINE   211 "regression-compile-tmp/skimp77.imp"
1601 @ 16047:               DEF    GETPN (_lev0id0_READPS_GETPN) p1=V_00be a/tf=18 b/format=1 c/ostate=10  type=1 (integer) form=8 (function) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=1 unass=0
1602 @ 16064:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
1603 @ 16065:                  FINISH ) {lev=3}

   213  %INTEGER NP,S,I
1604 @ 16066:                  LINE   213 "regression-compile-tmp/skimp77.imp"
1605 @ 16104:                  DEF    NP p1=V_00c7 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
1606 @ 16118:                  DEF    S p1=V_00c8 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
1607 @ 16131:                  DEF    I p1=V_00c9 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   214       NP=0                            ;! TO ACCUMULATE PHRASE NAME CHARS
1608 @ 16144:                  LINE   214 "regression-compile-tmp/skimp77.imp"
1609 @ 16182:                  PUSH   NP
1610 @ 16185:                  PUSHI  #0x00000000
1611 @ 16190:                  ASSVAL

   215       S=24                            ;! INITIAL SHIFT VALUE TO PACK CHARS
1612 @ 16191:                  LINE   215 "regression-compile-tmp/skimp77.imp"
1613 @ 16229:                  PUSH   S
1614 @ 16232:                  PUSHI  #0x00000018
1615 @ 16237:                  ASSVAL

   216  L1:   READ SYMBOL(I)
1616 @ 16238:                  LINE   216 "regression-compile-tmp/skimp77.imp"
1617 @ 16276:                  LABEL  L_00ca
1618 @ 16279:                  LINE   216 "regression-compile-tmp/skimp77.imp"
1619 @ 16317:                  PUSH   READSYMBOL
1620 @ 16320:                  PUSH   I
1621 @ 16323:                  ASSPAR
1622 @ 16324:                  CALL  

   217       %IF I\='>' %THEN %START         ;! NOT END OF NAME YET
1623 @ 16325:                  LINE   217 "regression-compile-tmp/skimp77.imp"
1624 @ 16363:                  PUSH   I
1625 @ 16366:                  PUSHI  #0x0000003e
1626 @ 16371:                  JUMPIF = L_0004

   218          NP=NP!I<<S                   ;! PACK NEXT CHAR OF PHRASE NAME
1627 @ 16375:                  LINE   218 "regression-compile-tmp/skimp77.imp"
1628 @ 16413:                  PUSH   NP
1629 @ 16416:                  PUSH   NP
1630 @ 16419:                  PUSH   I
1631 @ 16422:                  PUSH   S
1632 @ 16425:                  LSH   
1633 @ 16426:                  OR    
1634 @ 16427:                  ASSVAL

   219          S=S-8                        ;! REDUCE SHIFT VALUE FOR NEXT CHAR
1635 @ 16428:                  LINE   219 "regression-compile-tmp/skimp77.imp"
1636 @ 16466:                  PUSH   S
1637 @ 16469:                  PUSH   S
1638 @ 16472:                  PUSHI  #0x00000008
1639 @ 16477:                  SUB   
1640 @ 16478:                  ASSVAL

   220          ->L1 ; %FINISH
1641 @ 16479:                  LINE   220 "regression-compile-tmp/skimp77.imp"
1642 @ 16517:                  JUMP   L_00ca
1643 @ 16520:                  LINE   220 "regression-compile-tmp/skimp77.imp"
1644 @ 16558:                  LOCATE L_0004

   221       %IF PNP\=256 %THEN %START       ;! NOT FIRST PHRASE NAME
1645 @ 16561:                  LINE   221 "regression-compile-tmp/skimp77.imp"
1646 @ 16599:                  PUSH   PNP
1647 @ 16602:                  PUSHI  #0x00000100
1648 @ 16607:                  JUMPIF = L_0004

   222          I=256                        ;! SCAN NAMES TO FIND IF ALREADY IN
1649 @ 16611:                  LINE   222 "regression-compile-tmp/skimp77.imp"
1650 @ 16649:                  PUSH   I
1651 @ 16652:                  PUSHI  #0x00000100
1652 @ 16657:                  ASSVAL

   223  L2:      %IF NP=PN(I) %THEN %RESULT=I
1653 @ 16658:                  LINE   223 "regression-compile-tmp/skimp77.imp"
1654 @ 16696:                  LABEL  L_00cb
1655 @ 16699:                  LINE   223 "regression-compile-tmp/skimp77.imp"
1656 @ 16737:                  PUSH   NP
1657 @ 16740:                  PUSH   PN
1658 @ 16743:                  PUSH   I
1659 @ 16746:                  ACCESS
1660 @ 16747:                  JUMPIF # L_0007
1661 @ 16751:                  PUSH   I
1662 @ 16754:                  RESULT
1663 @ 16755:                  LOCATE L_0007

   224          I=I+1
1664 @ 16758:                  LINE   224 "regression-compile-tmp/skimp77.imp"
1665 @ 16796:                  PUSH   I
1666 @ 16799:                  PUSH   I
1667 @ 16802:                  PUSHI  #0x00000001
1668 @ 16807:                  ADD   
1669 @ 16808:                  ASSVAL

   225          %IF I\=PNP %THEN ->L2
1670 @ 16809:                  LINE   225 "regression-compile-tmp/skimp77.imp"
1671 @ 16847:                  PUSH   I
1672 @ 16850:                  PUSH   PNP
1673 @ 16853:                  JUMPIF = L_0007
1674 @ 16857:                  JUMP   L_00cb
1675 @ 16860:                  LOCATE L_0007

   226          %FINISH
1676 @ 16863:                  LINE   226 "regression-compile-tmp/skimp77.imp"
1677 @ 16901:                  LOCATE L_0004

   227       PN(PNP)=NP                      ;! INSERT NEW NAME IN DICTIONARY
1678 @ 16904:                  LINE   227 "regression-compile-tmp/skimp77.imp"
1679 @ 16942:                  PUSH   PN
1680 @ 16945:                  PUSH   PNP
1681 @ 16948:                  ACCESS
1682 @ 16949:                  PUSH   NP
1683 @ 16952:                  ASSVAL

   228       PSP(PNP)=99999                  ;! UNDEFINED PHRASE MARKER
1684 @ 16953:                  LINE   228 "regression-compile-tmp/skimp77.imp"
1685 @ 16991:                  PUSH   PSP
1686 @ 16994:                  PUSH   PNP
1687 @ 16997:                  ACCESS
1688 @ 16998:                  PUSHI  #0x0001869f
1689 @ 17003:                  ASSVAL

   229       PNP=PNP+1                       ;! MOVE TO NEXT DICTIONARY POSITION
1690 @ 17004:                  LINE   229 "regression-compile-tmp/skimp77.imp"
1691 @ 17042:                  PUSH   PNP
1692 @ 17045:                  PUSH   PNP
1693 @ 17048:                  PUSHI  #0x00000001
1694 @ 17053:                  ADD   
1695 @ 17054:                  ASSVAL

   230       %RESULT=PNP-1
1696 @ 17055:                  LINE   230 "regression-compile-tmp/skimp77.imp"
1697 @ 17093:                  PUSH   PNP
1698 @ 17096:                  PUSHI  #0x00000001
1699 @ 17101:                  SUB   
1700 @ 17102:                  RESULT

   231  %END
1701 @ 17103:                  LINE   231 "regression-compile-tmp/skimp77.imp"
1702 @ 17141:               END    _lev0id0_READPS_GETPN {lev=3 --> 2}

   232  %END
   233  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
1703 @ 17142:               LINE   232 "regression-compile-tmp/skimp77.imp"
1704 @ 17180:            END    _lev0id0_READPS {lev=2 --> 1}

   234  %ROUTINE READ LINE
   235  ! LEXICAL PHASE - READ & CLEAN UP NEXT LINE OF TEXT
1705 @ 17181:            LINE   234 "regression-compile-tmp/skimp77.imp"
1706 @ 17219:            DEF    READLINE (_lev0id0_READLINE) 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
1707 @ 17239:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
1708 @ 17240:               FINISH ) {lev=2}

   236  %ROUTINESPEC STORE(%INTEGER I)
1709 @ 17241:               LINE   236 "regression-compile-tmp/skimp77.imp"
1710 @ 17279:               DEF    STORE (_lev0id0_READLINE_STORE) p1=V_00b5 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
1711 @ 17296:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
1712 @ 17297:                  DEF    I p1=V_00b6 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
1713 @ 17310:               FINISH ) {lev=2}

   237  %INTEGER SH,I
1714 @ 17311:               LINE   237 "regression-compile-tmp/skimp77.imp"
1715 @ 17349:               DEF    SH p1=V_00b6 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
1716 @ 17363:               DEF    I p1=V_00b7 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   238       NEWLINES(2)
1717 @ 17376:               LINE   238 "regression-compile-tmp/skimp77.imp"
1718 @ 17414:               PUSH   NEWLINES
1719 @ 17417:               PUSHI  #0x00000002
1720 @ 17422:               ASSPAR
1721 @ 17423:               CALL  

   239       PRINT SYMBOL(';')
1722 @ 17424:               LINE   239 "regression-compile-tmp/skimp77.imp"
1723 @ 17462:               PUSH   PRINTSYMBOL
1724 @ 17465:               PUSHI  #0x0000003b
1725 @ 17470:               ASSPAR
1726 @ 17471:               CALL  

   240       SH=0                                ;! % & LITERAL SHIFT VALUE TO 0
1727 @ 17472:               LINE   240 "regression-compile-tmp/skimp77.imp"
1728 @ 17510:               PUSH   SH
1729 @ 17513:               PUSHI  #0x00000000
1730 @ 17518:               ASSVAL

   241       TP=1                                ;! POINTER TO TEXT ARRAY T
1731 @ 17519:               LINE   241 "regression-compile-tmp/skimp77.imp"
1732 @ 17557:               PUSH   TP
1733 @ 17560:               PUSHI  #0x00000001
1734 @ 17565:               ASSVAL

   242  L1:   READ SYMBOL(I)
1735 @ 17566:               LINE   242 "regression-compile-tmp/skimp77.imp"
1736 @ 17604:               LABEL  L_00b8
1737 @ 17607:               LINE   242 "regression-compile-tmp/skimp77.imp"
1738 @ 17645:               PUSH   READSYMBOL
1739 @ 17648:               PUSH   I
1740 @ 17651:               ASSPAR
1741 @ 17652:               CALL  

   243       %IF I=10 %AND TP=1 %THEN ->L1
1742 @ 17653:               LINE   243 "regression-compile-tmp/skimp77.imp"
1743 @ 17691:               PUSH   I
1744 @ 17694:               PUSHI  #0x0000000a
1745 @ 17699:               JUMPIF # L_0004
1746 @ 17703:               PUSH   TP
1747 @ 17706:               PUSHI  #0x00000001
1748 @ 17711:               JUMPIF # L_0004
1749 @ 17715:               JUMP   L_00b8
1750 @ 17718:               LOCATE L_0004

   244       PRINT SYMBOL(I)
1751 @ 17721:               LINE   244 "regression-compile-tmp/skimp77.imp"
1752 @ 17759:               PUSH   PRINTSYMBOL
1753 @ 17762:               PUSH   I
1754 @ 17765:               ASSPAR
1755 @ 17766:               CALL  

   245       %IF I='''' %THEN %START
1756 @ 17767:               LINE   245 "regression-compile-tmp/skimp77.imp"
1757 @ 17805:               PUSH   I
1758 @ 17808:               PUSHI  #0x00000027
1759 @ 17813:               JUMPIF # L_0004

   246          SH=128                           ;! SHIFT VALUE FOR LITERAL
1760 @ 17817:               LINE   246 "regression-compile-tmp/skimp77.imp"
1761 @ 17855:               PUSH   SH
1762 @ 17858:               PUSHI  #0x00000080
1763 @ 17863:               ASSVAL

   247  L2:      STORE(I)                         ;! STORE SHIFTED CHAR IN TEXT ARRAY
1764 @ 17864:               LINE   247 "regression-compile-tmp/skimp77.imp"
1765 @ 17902:               LABEL  L_00b9
1766 @ 17905:               LINE   247 "regression-compile-tmp/skimp77.imp"
1767 @ 17943:               PUSH   STORE
1768 @ 17946:               PUSH   I
1769 @ 17949:               ASSPAR
1770 @ 17950:               CALL  

   248          READ SYMBOL(I)
1771 @ 17951:               LINE   248 "regression-compile-tmp/skimp77.imp"
1772 @ 17989:               PUSH   READSYMBOL
1773 @ 17992:               PUSH   I
1774 @ 17995:               ASSPAR
1775 @ 17996:               CALL  

   249          PRINT SYMBOL(I)
1776 @ 17997:               LINE   249 "regression-compile-tmp/skimp77.imp"
1777 @ 18035:               PUSH   PRINTSYMBOL
1778 @ 18038:               PUSH   I
1779 @ 18041:               ASSPAR
1780 @ 18042:               CALL  

   250          %IF I=10 %THEN PRINT SYMBOL(';')
1781 @ 18043:               LINE   250 "regression-compile-tmp/skimp77.imp"
1782 @ 18081:               PUSH   I
1783 @ 18084:               PUSHI  #0x0000000a
1784 @ 18089:               JUMPIF # L_0007
1785 @ 18093:               PUSH   PRINTSYMBOL
1786 @ 18096:               PUSHI  #0x0000003b
1787 @ 18101:               ASSPAR
1788 @ 18102:               CALL  
1789 @ 18103:               LOCATE L_0007

   251          %IF I\='''' %THEN ->L2            ;! NOT END OF LITERAL YET
1790 @ 18106:               LINE   251 "regression-compile-tmp/skimp77.imp"
1791 @ 18144:               PUSH   I
1792 @ 18147:               PUSHI  #0x00000027
1793 @ 18152:               JUMPIF = L_0007
1794 @ 18156:               JUMP   L_00b9
1795 @ 18159:               LOCATE L_0007

   252          READ SYMBOL(I)
1796 @ 18162:               LINE   252 "regression-compile-tmp/skimp77.imp"
1797 @ 18200:               PUSH   READSYMBOL
1798 @ 18203:               PUSH   I
1799 @ 18206:               ASSPAR
1800 @ 18207:               CALL  

   253          PRINT SYMBOL(I)
1801 @ 18208:               LINE   253 "regression-compile-tmp/skimp77.imp"
1802 @ 18246:               PUSH   PRINTSYMBOL
1803 @ 18249:               PUSH   I
1804 @ 18252:               ASSPAR
1805 @ 18253:               CALL  

   254          %IF I='''' %THEN ->L2             ;! QUOTE IN LITERAL - IGNORE ONE
1806 @ 18254:               LINE   254 "regression-compile-tmp/skimp77.imp"
1807 @ 18292:               PUSH   I
1808 @ 18295:               PUSHI  #0x00000027
1809 @ 18300:               JUMPIF # L_0007
1810 @ 18304:               JUMP   L_00b9
1811 @ 18307:               LOCATE L_0007

   255          SH=0                             ;! SHIFT VALUE TO 0 FOR END OF LITERAL
1812 @ 18310:               LINE   255 "regression-compile-tmp/skimp77.imp"
1813 @ 18348:               PUSH   SH
1814 @ 18351:               PUSHI  #0x00000000
1815 @ 18356:               ASSVAL

   256          STORE('''')                      ;! STORE UNSHIFTED VALUE TO MARK END
1816 @ 18357:               LINE   256 "regression-compile-tmp/skimp77.imp"
1817 @ 18395:               PUSH   STORE
1818 @ 18398:               PUSHI  #0x00000027
1819 @ 18403:               ASSPAR
1820 @ 18404:               CALL  

   257          %FINISH
1821 @ 18405:               LINE   257 "regression-compile-tmp/skimp77.imp"
1822 @ 18443:               LOCATE L_0004

   258       %IF I='%' %THEN SH=128 %ELSE %START ;! SHIFT VALUE TO 128 FOR KEYWORD
1823 @ 18446:               LINE   258 "regression-compile-tmp/skimp77.imp"
1824 @ 18484:               PUSH   I
1825 @ 18487:               PUSHI  #0x00000025
1826 @ 18492:               JUMPIF # L_0004
1827 @ 18496:               PUSH   SH
1828 @ 18499:               PUSHI  #0x00000080
1829 @ 18504:               ASSVAL
1830 @ 18505:               GOTO   L_0003
1831 @ 18508:               LOCATE L_0004

   259          %IF I<'A' %OR I>'Z' %THEN SH=0   ;! SHIFT VALUE TO 0 FOR END OF KEYWORD
1832 @ 18511:               LINE   259 "regression-compile-tmp/skimp77.imp"
1833 @ 18549:               PUSH   I
1834 @ 18552:               PUSHI  #0x00000041
1835 @ 18557:               JUMPIF < L_0008
1836 @ 18561:               PUSH   I
1837 @ 18564:               PUSHI  #0x0000005a
1838 @ 18569:               JUMPIF <= L_0007
1839 @ 18573:               LOCATE L_0008
1840 @ 18576:               PUSH   SH
1841 @ 18579:               PUSHI  #0x00000000
1842 @ 18584:               ASSVAL
1843 @ 18585:               LOCATE L_0007

   260          %IF I\=' ' %THEN %START          ;! IGNORE SPACES
1844 @ 18588:               LINE   260 "regression-compile-tmp/skimp77.imp"
1845 @ 18626:               PUSH   I
1846 @ 18629:               PUSHI  #0x00000020
1847 @ 18634:               JUMPIF = L_0007

   261             STORE(I)
1848 @ 18638:               LINE   261 "regression-compile-tmp/skimp77.imp"
1849 @ 18676:               PUSH   STORE
1850 @ 18679:               PUSH   I
1851 @ 18682:               ASSPAR
1852 @ 18683:               CALL  

   262             %IF I=10 %THEN %START         ;! NEWLINE CHAR
1853 @ 18684:               LINE   262 "regression-compile-tmp/skimp77.imp"
1854 @ 18722:               PUSH   I
1855 @ 18725:               PUSHI  #0x0000000a
1856 @ 18730:               JUMPIF # L_000a

   263                %IF T(TP-2)='C'+128 %THEN %START
1857 @ 18734:               LINE   263 "regression-compile-tmp/skimp77.imp"
1858 @ 18772:               PUSH   T
1859 @ 18775:               PUSH   TP
1860 @ 18778:               PUSHI  #0x00000002
1861 @ 18783:               SUB   
1862 @ 18784:               ACCESS
1863 @ 18785:               PUSHI  #0x00000043
1864 @ 18790:               PUSHI  #0x00000080
1865 @ 18795:               ADD   
1866 @ 18796:               JUMPIF # L_000d

   264                   TP=TP-2
1867 @ 18800:               LINE   264 "regression-compile-tmp/skimp77.imp"
1868 @ 18838:               PUSH   TP
1869 @ 18841:               PUSH   TP
1870 @ 18844:               PUSHI  #0x00000002
1871 @ 18849:               SUB   
1872 @ 18850:               ASSVAL

   265                   PRINT SYMBOL(';')
1873 @ 18851:               LINE   265 "regression-compile-tmp/skimp77.imp"
1874 @ 18889:               PUSH   PRINTSYMBOL
1875 @ 18892:               PUSHI  #0x0000003b
1876 @ 18897:               ASSPAR
1877 @ 18898:               CALL  

   266                   %FINISH %ELSE %RETURN
1878 @ 18899:               LINE   266 "regression-compile-tmp/skimp77.imp"
1879 @ 18937:               GOTO   L_000c
1880 @ 18940:               LOCATE L_000d
1881 @ 18943:               RETURN
1882 @ 18944:               LOCATE L_000c

   267                %FINISH
1883 @ 18947:               LINE   267 "regression-compile-tmp/skimp77.imp"
1884 @ 18985:               LOCATE L_000a

   268             %FINISH
1885 @ 18988:               LINE   268 "regression-compile-tmp/skimp77.imp"
1886 @ 19026:               LOCATE L_0007

   269          %FINISH
1887 @ 19029:               LINE   269 "regression-compile-tmp/skimp77.imp"
1888 @ 19067:               LOCATE L_0003

   270       ->L1
   271  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !
1889 @ 19070:               LINE   270 "regression-compile-tmp/skimp77.imp"
1890 @ 19108:               JUMP   L_00b8

   272  %ROUTINE STORE(%INTEGER I)
   273  ! STORE (POSSIBLY) SHIFTED CHARACTER IN TEXT ARRAY & CHECK LINE NOT TOO LONG
1891 @ 19111:               LINE   272 "regression-compile-tmp/skimp77.imp"
1892 @ 19149:               DEF    STORE (_lev0id0_READLINE_STORE) p1=V_00b5 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
1893 @ 19166:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
1894 @ 19167:                     DEF    I p1=V_00ba a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
1895 @ 19180:                  FINISH ) {lev=3}

   274       %IF TP>300 %THEN %START
1896 @ 19181:                  LINE   274 "regression-compile-tmp/skimp77.imp"
1897 @ 19219:                  PUSH   TP
1898 @ 19222:                  PUSHI  #0x0000012c
1899 @ 19227:                  JUMPIF <= L_0004

   275          FAULT(M'STAT',M'MNT ',M'TOO ',M'LONG')
1900 @ 19231:                  LINE   275 "regression-compile-tmp/skimp77.imp"
1901 @ 19269:                  PUSH   FAULT
1902 @ 19272:                  PUSHI  #0x53544154
1903 @ 19277:                  ASSPAR
1904 @ 19278:                  PUSHI  #0x4d4e5420
1905 @ 19283:                  ASSPAR
1906 @ 19284:                  PUSHI  #0x544f4f20
1907 @ 19289:                  ASSPAR
1908 @ 19290:                  PUSHI  #0x4c4f4e47
1909 @ 19295:                  ASSPAR
1910 @ 19296:                  CALL  

   276          TP=1
1911 @ 19297:                  LINE   276 "regression-compile-tmp/skimp77.imp"
1912 @ 19335:                  PUSH   TP
1913 @ 19338:                  PUSHI  #0x00000001
1914 @ 19343:                  ASSVAL

   277          %FINISH
1915 @ 19344:                  LINE   277 "regression-compile-tmp/skimp77.imp"
1916 @ 19382:                  LOCATE L_0004

   278       T(TP)=I+SH                      ;! STORE CHAR IN TEXT ARRAY
1917 @ 19385:                  LINE   278 "regression-compile-tmp/skimp77.imp"
1918 @ 19423:                  PUSH   T
1919 @ 19426:                  PUSH   TP
1920 @ 19429:                  ACCESS
1921 @ 19430:                  PUSH   I
1922 @ 19433:                  PUSH   SH
1923 @ 19436:                  ADD   
1924 @ 19437:                  ASSVAL

   279       TP=TP+1                         ;! MOVE TO NEXT POSITION
1925 @ 19438:                  LINE   279 "regression-compile-tmp/skimp77.imp"
1926 @ 19476:                  PUSH   TP
1927 @ 19479:                  PUSH   TP
1928 @ 19482:                  PUSHI  #0x00000001
1929 @ 19487:                  ADD   
1930 @ 19488:                  ASSVAL

   280  %END
1931 @ 19489:                  LINE   280 "regression-compile-tmp/skimp77.imp"
1932 @ 19527:               END    _lev0id0_READLINE_STORE {lev=3 --> 2}

   281  %END
   282  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
1933 @ 19528:               LINE   281 "regression-compile-tmp/skimp77.imp"
1934 @ 19566:            END    _lev0id0_READLINE {lev=2 --> 1}

   283  %INTEGERFN COMPARE
   284  ! ANALYSE PHRASE
1935 @ 19567:            LINE   283 "regression-compile-tmp/skimp77.imp"
1936 @ 19605:            DEF    COMPARE (_lev0id0_COMPARE) p1=V_0083 a/tf=18 b/format=1 c/ostate=10  type=1 (integer) form=8 (function) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=1 unass=0
1937 @ 19624:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
1938 @ 19625:               FINISH ) {lev=2}

   285  %INTEGERFNSPEC NAME            ;! BUILT-IN PHRASE NAME
1939 @ 19626:               LINE   285 "regression-compile-tmp/skimp77.imp"
1940 @ 19664:               DEF    NAME (_lev0id0_COMPARE_NAME) p1=V_00b5 a/tf=18 b/format=1 c/ostate=18  type=1 (integer) form=8 (function) special=0 (<special:0>) linkage=0 (auto) spec=1 indirect=1 unass=0
1941 @ 19680:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
1942 @ 19681:               FINISH ) {lev=2}

   286  %INTEGERFNSPEC CNST            ;! BUILT-IN PHRASE <CNST>
1943 @ 19682:               LINE   286 "regression-compile-tmp/skimp77.imp"
1944 @ 19720:               DEF    CNST (_lev0id0_COMPARE_CNST) p1=V_00b6 a/tf=18 b/format=1 c/ostate=18  type=1 (integer) form=8 (function) special=0 (<special:0>) linkage=0 (auto) spec=1 indirect=1 unass=0
1945 @ 19736:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
1946 @ 19737:               FINISH ) {lev=2}

   287  %INTEGER APP,TPP,PSPP,AE,N
1947 @ 19738:               LINE   287 "regression-compile-tmp/skimp77.imp"
1948 @ 19776:               DEF    APP p1=V_00b7 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
1949 @ 19791:               DEF    TPP p1=V_00b8 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
1950 @ 19806:               DEF    PSPP p1=V_00b9 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
1951 @ 19822:               DEF    AE p1=V_00ba a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
1952 @ 19836:               DEF    N p1=V_00bb a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   288       TPP=TP                              ;! PRESERVE INITIAL TEXT POINTER
1953 @ 19849:               LINE   288 "regression-compile-tmp/skimp77.imp"
1954 @ 19887:               PUSH   TPP
1955 @ 19890:               PUSH   TP
1956 @ 19893:               ASSVAL

   289       APP=AP                              ;! PRESERVE INITIAL ANALYSIS RECORD
1957 @ 19894:               LINE   289 "regression-compile-tmp/skimp77.imp"
1958 @ 19932:               PUSH   APP
1959 @ 19935:               PUSH   AP
1960 @ 19938:               ASSVAL

   290       A(AP)=1                             ;! ALTERNATIVE 1 FIRST
1961 @ 19939:               LINE   290 "regression-compile-tmp/skimp77.imp"
1962 @ 19977:               PUSH   A
1963 @ 19980:               PUSH   AP
1964 @ 19983:               ACCESS
1965 @ 19984:               PUSHI  #0x00000001
1966 @ 19989:               ASSVAL

   291  L11:  AE=PS(PSP)                          ;! POINTER TO END OF ALTERNATIVE
1967 @ 19990:               LINE   291 "regression-compile-tmp/skimp77.imp"
1968 @ 20028:               LABEL  L_00bc
1969 @ 20031:               LINE   291 "regression-compile-tmp/skimp77.imp"
1970 @ 20069:               PUSH   AE
1971 @ 20072:               PUSH   PS
1972 @ 20075:               PUSH   PSP
1973 @ 20078:               ACCESS
1974 @ 20079:               ASSVAL

   292       PSP=PSP+1                           ;! FIRST ITEM OF ALTERNATIVE DEFN
1975 @ 20080:               LINE   292 "regression-compile-tmp/skimp77.imp"
1976 @ 20118:               PUSH   PSP
1977 @ 20121:               PUSH   PSP
1978 @ 20124:               PUSHI  #0x00000001
1979 @ 20129:               ADD   
1980 @ 20130:               ASSVAL

   293  L12:  %IF PSP=AE %THEN %RESULT=1          ;! END OF ALT REACHED - SUCCESS
1981 @ 20131:               LINE   293 "regression-compile-tmp/skimp77.imp"
1982 @ 20169:               LABEL  L_00bd
1983 @ 20172:               LINE   293 "regression-compile-tmp/skimp77.imp"
1984 @ 20210:               PUSH   PSP
1985 @ 20213:               PUSH   AE
1986 @ 20216:               JUMPIF # L_0004
1987 @ 20220:               PUSHI  #0x00000001
1988 @ 20225:               RESULT
1989 @ 20226:               LOCATE L_0004

   294       N=PS(PSP)                           ;! NEXT ITEM OF ALT DEFN
1990 @ 20229:               LINE   294 "regression-compile-tmp/skimp77.imp"
1991 @ 20267:               PUSH   N
1992 @ 20270:               PUSH   PS
1993 @ 20273:               PUSH   PSP
1994 @ 20276:               ACCESS
1995 @ 20277:               ASSVAL

   295       PSP=PSP+1                           ;! FOR FOLLOWING ITEM
1996 @ 20278:               LINE   295 "regression-compile-tmp/skimp77.imp"
1997 @ 20316:               PUSH   PSP
1998 @ 20319:               PUSH   PSP
1999 @ 20322:               PUSHI  #0x00000001
2000 @ 20327:               ADD   
2001 @ 20328:               ASSVAL

   296       %IF N<0 %THEN %START                ;! SUB-PHRASE
2002 @ 20329:               LINE   296 "regression-compile-tmp/skimp77.imp"
2003 @ 20367:               PUSH   N
2004 @ 20370:               PUSHI  #0x00000000
2005 @ 20375:               JUMPIF >= L_0004

   297          PSPP=PSP                         ;! PRESERVE PS POINTER
2006 @ 20379:               LINE   297 "regression-compile-tmp/skimp77.imp"
2007 @ 20417:               PUSH   PSPP
2008 @ 20420:               PUSH   PSP
2009 @ 20423:               ASSVAL

   298          PSP=N                            ;! POINTER TO DEFN OF SUB-PHRASE
2010 @ 20424:               LINE   298 "regression-compile-tmp/skimp77.imp"
2011 @ 20462:               PUSH   PSP
2012 @ 20465:               PUSH   N
2013 @ 20468:               ASSVAL

   299          AP=AP+1                          ;! NEXT ANALYSIS RECORD POSITION
2014 @ 20469:               LINE   299 "regression-compile-tmp/skimp77.imp"
2015 @ 20507:               PUSH   AP
2016 @ 20510:               PUSH   AP
2017 @ 20513:               PUSHI  #0x00000001
2018 @ 20518:               ADD   
2019 @ 20519:               ASSVAL

   300          N=COMPARE                        ;! RECURSIVE COMPARISON FOR SUB-PHRASE
2020 @ 20520:               LINE   300 "regression-compile-tmp/skimp77.imp"
2021 @ 20558:               PUSH   N
2022 @ 20561:               PUSH   COMPARE
2023 @ 20564:               CALL  
2024 @ 20565:               ASSVAL

   301          PSP=PSPP                         ;! RESTORE PS POINTER
2025 @ 20566:               LINE   301 "regression-compile-tmp/skimp77.imp"
2026 @ 20604:               PUSH   PSP
2027 @ 20607:               PUSH   PSPP
2028 @ 20610:               ASSVAL

   302          %IF N=1 %THEN ->L12               ;! SUCCESSFUL COMPARISON - GO FOR NEXT ITEM
2029 @ 20611:               LINE   302 "regression-compile-tmp/skimp77.imp"
2030 @ 20649:               PUSH   N
2031 @ 20652:               PUSHI  #0x00000001
2032 @ 20657:               JUMPIF # L_0007
2033 @ 20661:               JUMP   L_00bd
2034 @ 20664:               LOCATE L_0007

   303          ->L13 ; %FINISH                   ;! UNSUCCESSFUL - GO FOR NEXT ALTERNATIVE
2035 @ 20667:               LINE   303 "regression-compile-tmp/skimp77.imp"
2036 @ 20705:               JUMP   L_00be
2037 @ 20708:               LINE   303 "regression-compile-tmp/skimp77.imp"
2038 @ 20746:               LOCATE L_0004

   304       %IF N=1 %THEN %START                ;! BUILT-IN PHRASE <NAME>
2039 @ 20749:               LINE   304 "regression-compile-tmp/skimp77.imp"
2040 @ 20787:               PUSH   N
2041 @ 20790:               PUSHI  #0x00000001
2042 @ 20795:               JUMPIF # L_0004

   305          %IF NAME=1 %THEN ->L12            ;! SUCCESS
2043 @ 20799:               LINE   305 "regression-compile-tmp/skimp77.imp"
2044 @ 20837:               PUSH   NAME
2045 @ 20840:               CALL  
2046 @ 20841:               PUSHI  #0x00000001
2047 @ 20846:               JUMPIF # L_0007
2048 @ 20850:               JUMP   L_00bd
2049 @ 20853:               LOCATE L_0007

   306          ->L13 ; %FINISH                   ;! FAILURE
2050 @ 20856:               LINE   306 "regression-compile-tmp/skimp77.imp"
2051 @ 20894:               JUMP   L_00be
2052 @ 20897:               LINE   306 "regression-compile-tmp/skimp77.imp"
2053 @ 20935:               LOCATE L_0004

   307       %IF N=2 %THEN %START                ;! BUILT-IN PHRASE CNST
2054 @ 20938:               LINE   307 "regression-compile-tmp/skimp77.imp"
2055 @ 20976:               PUSH   N
2056 @ 20979:               PUSHI  #0x00000002
2057 @ 20984:               JUMPIF # L_0004

   308          %IF CNST=1 %THEN ->L12            ;! SUCCESS
2058 @ 20988:               LINE   308 "regression-compile-tmp/skimp77.imp"
2059 @ 21026:               PUSH   CNST
2060 @ 21029:               CALL  
2061 @ 21030:               PUSHI  #0x00000001
2062 @ 21035:               JUMPIF # L_0007
2063 @ 21039:               JUMP   L_00bd
2064 @ 21042:               LOCATE L_0007

   309          ->L13 ; %FINISH                   ;! FAILURE
2065 @ 21045:               LINE   309 "regression-compile-tmp/skimp77.imp"
2066 @ 21083:               JUMP   L_00be
2067 @ 21086:               LINE   309 "regression-compile-tmp/skimp77.imp"
2068 @ 21124:               LOCATE L_0004

   310       %IF N=T(TP) %THEN %START            ;! LITERAL - MATCHES SOURCE CHAR
2069 @ 21127:               LINE   310 "regression-compile-tmp/skimp77.imp"
2070 @ 21165:               PUSH   N
2071 @ 21168:               PUSH   T
2072 @ 21171:               PUSH   TP
2073 @ 21174:               ACCESS
2074 @ 21175:               JUMPIF # L_0004

   311          TP=TP+1                          ;! MOVE TO NEXT SOURCE CHAR
2075 @ 21179:               LINE   311 "regression-compile-tmp/skimp77.imp"
2076 @ 21217:               PUSH   TP
2077 @ 21220:               PUSH   TP
2078 @ 21223:               PUSHI  #0x00000001
2079 @ 21228:               ADD   
2080 @ 21229:               ASSVAL

   312          ->L12 ; %FINISH                   ;! GO FOR NEXT ITEM
2081 @ 21230:               LINE   312 "regression-compile-tmp/skimp77.imp"
2082 @ 21268:               JUMP   L_00bd
2083 @ 21271:               LINE   312 "regression-compile-tmp/skimp77.imp"
2084 @ 21309:               LOCATE L_0004

   313  L13:  %IF PS(AE)=0 %THEN %RESULT=0        ;! END OF PHRASE
2085 @ 21312:               LINE   313 "regression-compile-tmp/skimp77.imp"
2086 @ 21350:               LABEL  L_00be
2087 @ 21353:               LINE   313 "regression-compile-tmp/skimp77.imp"
2088 @ 21391:               PUSH   PS
2089 @ 21394:               PUSH   AE
2090 @ 21397:               ACCESS
2091 @ 21398:               PUSHI  #0x00000000
2092 @ 21403:               JUMPIF # L_0004
2093 @ 21407:               PUSHI  #0x00000000
2094 @ 21412:               RESULT
2095 @ 21413:               LOCATE L_0004

   314       PSP=AE                              ;! START OF DEFN OF NEXT ALTERNATIVE
2096 @ 21416:               LINE   314 "regression-compile-tmp/skimp77.imp"
2097 @ 21454:               PUSH   PSP
2098 @ 21457:               PUSH   AE
2099 @ 21460:               ASSVAL

   315       TP=TPP                              ;! BACKTRACK SOURCE TEXT
2100 @ 21461:               LINE   315 "regression-compile-tmp/skimp77.imp"
2101 @ 21499:               PUSH   TP
2102 @ 21502:               PUSH   TPP
2103 @ 21505:               ASSVAL

   316       AP=APP                              ;!  AND ANALYSIS RECORD POINTERS
2104 @ 21506:               LINE   316 "regression-compile-tmp/skimp77.imp"
2105 @ 21544:               PUSH   AP
2106 @ 21547:               PUSH   APP
2107 @ 21550:               ASSVAL

   317       A(AP)=A(AP)+1                       ;! COUNT ALTERNATIVE NUMBER ON ONE
2108 @ 21551:               LINE   317 "regression-compile-tmp/skimp77.imp"
2109 @ 21589:               PUSH   A
2110 @ 21592:               PUSH   AP
2111 @ 21595:               ACCESS
2112 @ 21596:               PUSH   A
2113 @ 21599:               PUSH   AP
2114 @ 21602:               ACCESS
2115 @ 21603:               PUSHI  #0x00000001
2116 @ 21608:               ADD   
2117 @ 21609:               ASSVAL

   318       ->L11                                ;! GO TO ANALYSE NEW ALTERNATIVE
   319  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !
2118 @ 21610:               LINE   318 "regression-compile-tmp/skimp77.imp"
2119 @ 21648:               JUMP   L_00bc

   320  %INTEGERFN NAME
   321  ! RECOGNISE AND INSERT NAME IN HASHING AREA OF TAG/LINK ARRAYS
2120 @ 21651:               LINE   320 "regression-compile-tmp/skimp77.imp"
2121 @ 21689:               DEF    NAME (_lev0id0_COMPARE_NAME) p1=V_00b5 a/tf=18 b/format=1 c/ostate=10  type=1 (integer) form=8 (function) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=1 unass=0
2122 @ 21705:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
2123 @ 21706:                  FINISH ) {lev=3}

   322  %INTEGER I,J,K,L,M,N
2124 @ 21707:                  LINE   322 "regression-compile-tmp/skimp77.imp"
2125 @ 21745:                  DEF    I p1=V_00bf a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2126 @ 21758:                  DEF    J p1=V_00c0 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2127 @ 21771:                  DEF    K p1=V_00c1 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2128 @ 21784:                  DEF    L p1=V_00c2 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2129 @ 21797:                  DEF    M p1=V_00c3 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2130 @ 21810:                  DEF    N p1=V_00c4 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   323       I=T(TP)                             ;! FIRST SOURCE CHAR
2131 @ 21823:                  LINE   323 "regression-compile-tmp/skimp77.imp"
2132 @ 21861:                  PUSH   I
2133 @ 21864:                  PUSH   T
2134 @ 21867:                  PUSH   TP
2135 @ 21870:                  ACCESS
2136 @ 21871:                  ASSVAL

   324       %IF I<'A' %OR I>'Z' %OR (I='M' %AND T(TP+1)=''''+128) %THENRESULT=0
   325                                           ;! FAILURE - NOT A LETTER OR AN M-TYPE CONSTANT
2137 @ 21872:                  LINE   324 "regression-compile-tmp/skimp77.imp"
2138 @ 21910:                  PUSH   I
2139 @ 21913:                  PUSHI  #0x00000041
2140 @ 21918:                  JUMPIF < L_0005
2141 @ 21922:                  PUSH   I
2142 @ 21925:                  PUSHI  #0x0000005a
2143 @ 21930:                  JUMPIF > L_0005
2144 @ 21934:                  PUSH   I
2145 @ 21937:                  PUSHI  #0x0000004d
2146 @ 21942:                  JUMPIF # L_0004
2147 @ 21946:                  PUSH   T
2148 @ 21949:                  PUSH   TP
2149 @ 21952:                  PUSHI  #0x00000001
2150 @ 21957:                  ADD   
2151 @ 21958:                  ACCESS
2152 @ 21959:                  PUSHI  #0x00000027
2153 @ 21964:                  PUSHI  #0x00000080
2154 @ 21969:                  ADD   
2155 @ 21970:                  JUMPIF # L_0004
2156 @ 21974:                  LOCATE L_0005
2157 @ 21977:                  PUSHI  #0x00000000
2158 @ 21982:                  RESULT
2159 @ 21983:                  LOCATE L_0004

   326       J=CHP                               ;! NEXT POSITION IN CHARACTER ARRAY
2160 @ 21986:                  LINE   326 "regression-compile-tmp/skimp77.imp"
2161 @ 22024:                  PUSH   J
2162 @ 22027:                  PUSH   CHP
2163 @ 22030:                  ASSVAL

   327       K=I<<16                             ;! LEAVE HOLE FOR LENGTH & PACK FIRST CHAR
2164 @ 22031:                  LINE   327 "regression-compile-tmp/skimp77.imp"
2165 @ 22069:                  PUSH   K
2166 @ 22072:                  PUSH   I
2167 @ 22075:                  PUSHI  #0x00000010
2168 @ 22080:                  LSH   
2169 @ 22081:                  ASSVAL

   328       L=1                                 ;! NO OF CHARS
2170 @ 22082:                  LINE   328 "regression-compile-tmp/skimp77.imp"
2171 @ 22120:                  PUSH   L
2172 @ 22123:                  PUSHI  #0x00000001
2173 @ 22128:                  ASSVAL

   329       M=8                                 ;! NEXT SHIFT VALUE FOR PACKING
2174 @ 22129:                  LINE   329 "regression-compile-tmp/skimp77.imp"
2175 @ 22167:                  PUSH   M
2176 @ 22170:                  PUSHI  #0x00000008
2177 @ 22175:                  ASSVAL

   330       N=I                                 ;! SUM VALUE OF CHARS FOR HASHING
2178 @ 22176:                  LINE   330 "regression-compile-tmp/skimp77.imp"
2179 @ 22214:                  PUSH   N
2180 @ 22217:                  PUSH   I
2181 @ 22220:                  ASSVAL

   331  L1:   TP=TP+1
2182 @ 22221:                  LINE   331 "regression-compile-tmp/skimp77.imp"
2183 @ 22259:                  LABEL  L_00c5
2184 @ 22262:                  LINE   331 "regression-compile-tmp/skimp77.imp"
2185 @ 22300:                  PUSH   TP
2186 @ 22303:                  PUSH   TP
2187 @ 22306:                  PUSHI  #0x00000001
2188 @ 22311:                  ADD   
2189 @ 22312:                  ASSVAL

   332       I=T(TP)                             ;! NEXT CHAR FROM TEXT ARRAY
2190 @ 22313:                  LINE   332 "regression-compile-tmp/skimp77.imp"
2191 @ 22351:                  PUSH   I
2192 @ 22354:                  PUSH   T
2193 @ 22357:                  PUSH   TP
2194 @ 22360:                  ACCESS
2195 @ 22361:                  ASSVAL

   333       %IF ('0'<=I %AND I<='9') %OR ('A'<=I %AND I<='Z') %THEN %START
   334                                           ;! A DIGIT OR A LETTER
2196 @ 22362:                  LINE   333 "regression-compile-tmp/skimp77.imp"
2197 @ 22400:                  PUSHI  #0x00000030
2198 @ 22405:                  PUSH   I
2199 @ 22408:                  JUMPIF > L_0006
2200 @ 22412:                  PUSH   I
2201 @ 22415:                  PUSHI  #0x00000039
2202 @ 22420:                  JUMPIF <= L_0005
2203 @ 22424:                  LOCATE L_0006
2204 @ 22427:                  PUSHI  #0x00000041
2205 @ 22432:                  PUSH   I
2206 @ 22435:                  JUMPIF > L_0004
2207 @ 22439:                  PUSH   I
2208 @ 22442:                  PUSHI  #0x0000005a
2209 @ 22447:                  JUMPIF > L_0004
2210 @ 22451:                  LOCATE L_0005

   335          K=K!I<<M                         ;! PACK NEXT LETTER
2211 @ 22454:                  LINE   335 "regression-compile-tmp/skimp77.imp"
2212 @ 22492:                  PUSH   K
2213 @ 22495:                  PUSH   K
2214 @ 22498:                  PUSH   I
2215 @ 22501:                  PUSH   M
2216 @ 22504:                  LSH   
2217 @ 22505:                  OR    
2218 @ 22506:                  ASSVAL

   336          L=L+1                            ;! CHARACTER COUNT
2219 @ 22507:                  LINE   336 "regression-compile-tmp/skimp77.imp"
2220 @ 22545:                  PUSH   L
2221 @ 22548:                  PUSH   L
2222 @ 22551:                  PUSHI  #0x00000001
2223 @ 22556:                  ADD   
2224 @ 22557:                  ASSVAL

   337          M=M-8                            ;! NEXT SHIFT
2225 @ 22558:                  LINE   337 "regression-compile-tmp/skimp77.imp"
2226 @ 22596:                  PUSH   M
2227 @ 22599:                  PUSH   M
2228 @ 22602:                  PUSHI  #0x00000008
2229 @ 22607:                  SUB   
2230 @ 22608:                  ASSVAL

   338          N=N+I                            ;! SUM OF LETTERS
2231 @ 22609:                  LINE   338 "regression-compile-tmp/skimp77.imp"
2232 @ 22647:                  PUSH   N
2233 @ 22650:                  PUSH   N
2234 @ 22653:                  PUSH   I
2235 @ 22656:                  ADD   
2236 @ 22657:                  ASSVAL

   339          %IF M<0 %THEN %START             ;! PACKED WORD OF CHARS FULL
2237 @ 22658:                  LINE   339 "regression-compile-tmp/skimp77.imp"
2238 @ 22696:                  PUSH   M
2239 @ 22699:                  PUSHI  #0x00000000
2240 @ 22704:                  JUMPIF >= L_0007

   340             CH(CH NEXT)=K                 ;! STORE WORD IN CHAR ARRAY
2241 @ 22708:                  LINE   340 "regression-compile-tmp/skimp77.imp"
2242 @ 22746:                  PUSH   CH
2243 @ 22749:                  PUSH   CHNEXT
2244 @ 22752:                  CALL  
2245 @ 22753:                  ACCESS
2246 @ 22754:                  PUSH   K
2247 @ 22757:                  ASSVAL

   341             K=0                           ;! PACKING WORD TO ZERO
2248 @ 22758:                  LINE   341 "regression-compile-tmp/skimp77.imp"
2249 @ 22796:                  PUSH   K
2250 @ 22799:                  PUSHI  #0x00000000
2251 @ 22804:                  ASSVAL

   342             M=24                          ;! NEW SHIFT VALUE
2252 @ 22805:                  LINE   342 "regression-compile-tmp/skimp77.imp"
2253 @ 22843:                  PUSH   M
2254 @ 22846:                  PUSHI  #0x00000018
2255 @ 22851:                  ASSVAL

   343             %FINISH
2256 @ 22852:                  LINE   343 "regression-compile-tmp/skimp77.imp"
2257 @ 22890:                  LOCATE L_0007

   344          ->L1 ; %FINISH                    ;! GO FOR NEXT CHAR
2258 @ 22893:                  LINE   344 "regression-compile-tmp/skimp77.imp"
2259 @ 22931:                  JUMP   L_00c5
2260 @ 22934:                  LINE   344 "regression-compile-tmp/skimp77.imp"
2261 @ 22972:                  LOCATE L_0004

   345       %IF K\=0 %THEN CH(CH NEXT)=K        ;! STORE ANY REMAINING CHARS IN CHAR ARRAY
2262 @ 22975:                  LINE   345 "regression-compile-tmp/skimp77.imp"
2263 @ 23013:                  PUSH   K
2264 @ 23016:                  PUSHI  #0x00000000
2265 @ 23021:                  JUMPIF = L_0004
2266 @ 23025:                  PUSH   CH
2267 @ 23028:                  PUSH   CHNEXT
2268 @ 23031:                  CALL  
2269 @ 23032:                  ACCESS
2270 @ 23033:                  PUSH   K
2271 @ 23036:                  ASSVAL
2272 @ 23037:                  LOCATE L_0004

   346       CH(J)=CH(J)!L<<24                   ;! FILL IN LENGTH IN HOLE LEFT IN FIRST WORD
2273 @ 23040:                  LINE   346 "regression-compile-tmp/skimp77.imp"
2274 @ 23078:                  PUSH   CH
2275 @ 23081:                  PUSH   J
2276 @ 23084:                  ACCESS
2277 @ 23085:                  PUSH   CH
2278 @ 23088:                  PUSH   J
2279 @ 23091:                  ACCESS
2280 @ 23092:                  PUSH   L
2281 @ 23095:                  PUSHI  #0x00000018
2282 @ 23100:                  LSH   
2283 @ 23101:                  OR    
2284 @ 23102:                  ASSVAL

   347       I=(N&15)<<4!N>>4&15                 ;! HASH VALUE
2285 @ 23103:                  LINE   347 "regression-compile-tmp/skimp77.imp"
2286 @ 23141:                  PUSH   I
2287 @ 23144:                  PUSH   N
2288 @ 23147:                  PUSHI  #0x0000000f
2289 @ 23152:                  AND   
2290 @ 23153:                  PUSHI  #0x00000004
2291 @ 23158:                  LSH   
2292 @ 23159:                  PUSH   N
2293 @ 23162:                  PUSHI  #0x00000004
2294 @ 23167:                  RSH   
2295 @ 23168:                  PUSHI  #0x0000000f
2296 @ 23173:                  AND   
2297 @ 23174:                  OR    
2298 @ 23175:                  ASSVAL

   348       K=I                                 ;! SCAN DICTIONARY FOR NAME
2299 @ 23176:                  LINE   348 "regression-compile-tmp/skimp77.imp"
2300 @ 23214:                  PUSH   K
2301 @ 23217:                  PUSH   I
2302 @ 23220:                  ASSVAL

   349  L2:   %IF TAG(K)\=0 %THEN %START          ;! A NAME IN THIS POSITION
2303 @ 23221:                  LINE   349 "regression-compile-tmp/skimp77.imp"
2304 @ 23259:                  LABEL  L_00c6
2305 @ 23262:                  LINE   349 "regression-compile-tmp/skimp77.imp"
2306 @ 23300:                  PUSH   TAG
2307 @ 23303:                  PUSH   K
2308 @ 23306:                  ACCESS
2309 @ 23307:                  PUSHI  #0x00000000
2310 @ 23312:                  JUMPIF = L_0004

   350          L=TAG(K)                         ;! CHAR ARRAY POSITION
2311 @ 23316:                  LINE   350 "regression-compile-tmp/skimp77.imp"
2312 @ 23354:                  PUSH   L
2313 @ 23357:                  PUSH   TAG
2314 @ 23360:                  PUSH   K
2315 @ 23363:                  ACCESS
2316 @ 23364:                  ASSVAL

   351          M=J                              ;! CHAR ARRAY POSITION OF NEW NAME
2317 @ 23365:                  LINE   351 "regression-compile-tmp/skimp77.imp"
2318 @ 23403:                  PUSH   M
2319 @ 23406:                  PUSH   J
2320 @ 23409:                  ASSVAL

   352  L4:      %IF CH(L)=CH(M) %THEN %START     ;! PACKED WORDS MATCH
2321 @ 23410:                  LINE   352 "regression-compile-tmp/skimp77.imp"
2322 @ 23448:                  LABEL  L_00c7
2323 @ 23451:                  LINE   352 "regression-compile-tmp/skimp77.imp"
2324 @ 23489:                  PUSH   CH
2325 @ 23492:                  PUSH   L
2326 @ 23495:                  ACCESS
2327 @ 23496:                  PUSH   CH
2328 @ 23499:                  PUSH   M
2329 @ 23502:                  ACCESS
2330 @ 23503:                  JUMPIF # L_0007

   353             M=M+1                         ;! NEXT WORD OF NEW NAME
2331 @ 23507:                  LINE   353 "regression-compile-tmp/skimp77.imp"
2332 @ 23545:                  PUSH   M
2333 @ 23548:                  PUSH   M
2334 @ 23551:                  PUSHI  #0x00000001
2335 @ 23556:                  ADD   
2336 @ 23557:                  ASSVAL

   354             %IF M=CHP %THEN %START        ;! NAMES MATCH
2337 @ 23558:                  LINE   354 "regression-compile-tmp/skimp77.imp"
2338 @ 23596:                  PUSH   M
2339 @ 23599:                  PUSH   CHP
2340 @ 23602:                  JUMPIF # L_000a

   355                CHP=J                      ;! MOVE CHP BACK SINCE NAME ALREADY IN
2341 @ 23606:                  LINE   355 "regression-compile-tmp/skimp77.imp"
2342 @ 23644:                  PUSH   CHP
2343 @ 23647:                  PUSH   J
2344 @ 23650:                  ASSVAL

   356                ->L3 ; %FINISH
2345 @ 23651:                  LINE   356 "regression-compile-tmp/skimp77.imp"
2346 @ 23689:                  JUMP   L_00c8
2347 @ 23692:                  LINE   356 "regression-compile-tmp/skimp77.imp"
2348 @ 23730:                  LOCATE L_000a

   357             L=L+1                         ;! NEXT WORD OF OLD NAME
2349 @ 23733:                  LINE   357 "regression-compile-tmp/skimp77.imp"
2350 @ 23771:                  PUSH   L
2351 @ 23774:                  PUSH   L
2352 @ 23777:                  PUSHI  #0x00000001
2353 @ 23782:                  ADD   
2354 @ 23783:                  ASSVAL

   358             ->L4 ; %FINISH                 ;! GO FOR NEXT WORD
2355 @ 23784:                  LINE   358 "regression-compile-tmp/skimp77.imp"
2356 @ 23822:                  JUMP   L_00c7
2357 @ 23825:                  LINE   358 "regression-compile-tmp/skimp77.imp"
2358 @ 23863:                  LOCATE L_0007

   359          K=(K+1)&255                      ;! NO MATCH SO TRY NEXT DICTIONARY POSITION
2359 @ 23866:                  LINE   359 "regression-compile-tmp/skimp77.imp"
2360 @ 23904:                  PUSH   K
2361 @ 23907:                  PUSH   K
2362 @ 23910:                  PUSHI  #0x00000001
2363 @ 23915:                  ADD   
2364 @ 23916:                  PUSHI  #0x000000ff
2365 @ 23921:                  AND   
2366 @ 23922:                  ASSVAL

   360          %IF K=I %THEN %START             ;! STARTING POSITION REACHED AGAIN
2367 @ 23923:                  LINE   360 "regression-compile-tmp/skimp77.imp"
2368 @ 23961:                  PUSH   K
2369 @ 23964:                  PUSH   I
2370 @ 23967:                  JUMPIF # L_0007

   361             FAULT(M'DICT',M'IONA',M'RY F',M'ULL ')
2371 @ 23971:                  LINE   361 "regression-compile-tmp/skimp77.imp"
2372 @ 24009:                  PUSH   FAULT
2373 @ 24012:                  PUSHI  #0x44494354
2374 @ 24017:                  ASSPAR
2375 @ 24018:                  PUSHI  #0x494f4e41
2376 @ 24023:                  ASSPAR
2377 @ 24024:                  PUSHI  #0x52592046
2378 @ 24029:                  ASSPAR
2379 @ 24030:                  PUSHI  #0x554c4c20
2380 @ 24035:                  ASSPAR
2381 @ 24036:                  CALL  

   362             %STOP ; %FINISH
2382 @ 24037:                  LINE   362 "regression-compile-tmp/skimp77.imp"
2383 @ 24075:                  STOP  
2384 @ 24076:                  LINE   362 "regression-compile-tmp/skimp77.imp"
2385 @ 24114:                  LOCATE L_0007

   363          ->L2 ; %FINISH
2386 @ 24117:                  LINE   363 "regression-compile-tmp/skimp77.imp"
2387 @ 24155:                  JUMP   L_00c6
2388 @ 24158:                  LINE   363 "regression-compile-tmp/skimp77.imp"
2389 @ 24196:                  LOCATE L_0004

   364       TAG(K)=J                            ;! STORE CHAR ARRAY POSITION OF NAME
2390 @ 24199:                  LINE   364 "regression-compile-tmp/skimp77.imp"
2391 @ 24237:                  PUSH   TAG
2392 @ 24240:                  PUSH   K
2393 @ 24243:                  ACCESS
2394 @ 24244:                  PUSH   J
2395 @ 24247:                  ASSVAL

   365  L3:   AP=AP+1                             ;! NEXT ANALYSIS RECORD POSITION
2396 @ 24248:                  LINE   365 "regression-compile-tmp/skimp77.imp"
2397 @ 24286:                  LABEL  L_00c8
2398 @ 24289:                  LINE   365 "regression-compile-tmp/skimp77.imp"
2399 @ 24327:                  PUSH   AP
2400 @ 24330:                  PUSH   AP
2401 @ 24333:                  PUSHI  #0x00000001
2402 @ 24338:                  ADD   
2403 @ 24339:                  ASSVAL

   366       A(AP)=K                             ;! STORE IDENTIFICATION NO OF NAME
2404 @ 24340:                  LINE   366 "regression-compile-tmp/skimp77.imp"
2405 @ 24378:                  PUSH   A
2406 @ 24381:                  PUSH   AP
2407 @ 24384:                  ACCESS
2408 @ 24385:                  PUSH   K
2409 @ 24388:                  ASSVAL

   367       %RESULT=1                           ;! SUCCESS
2410 @ 24389:                  LINE   367 "regression-compile-tmp/skimp77.imp"
2411 @ 24427:                  PUSHI  #0x00000001
2412 @ 24432:                  RESULT

   368  %END
   369  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !
2413 @ 24433:                  LINE   368 "regression-compile-tmp/skimp77.imp"
2414 @ 24471:               END    _lev0id0_COMPARE_NAME {lev=3 --> 2}

   370  %INTEGERFN CNST
   371  ! RECOGNISE INTEGER AND LITERAL TEXT CONSTANTS
2415 @ 24472:               LINE   370 "regression-compile-tmp/skimp77.imp"
2416 @ 24510:               DEF    CNST (_lev0id0_COMPARE_CNST) p1=V_00b6 a/tf=18 b/format=1 c/ostate=10  type=1 (integer) form=8 (function) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=1 unass=0
2417 @ 24526:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
2418 @ 24527:                  FINISH ) {lev=3}

   372  %INTEGER I,J,K
2419 @ 24528:                  LINE   372 "regression-compile-tmp/skimp77.imp"
2420 @ 24566:                  DEF    I p1=V_00bf a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2421 @ 24579:                  DEF    J p1=V_00c0 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2422 @ 24592:                  DEF    K p1=V_00c1 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   373       I=T(TP)                             ;! FIRST CHAR
2423 @ 24605:                  LINE   373 "regression-compile-tmp/skimp77.imp"
2424 @ 24643:                  PUSH   I
2425 @ 24646:                  PUSH   T
2426 @ 24649:                  PUSH   TP
2427 @ 24652:                  ACCESS
2428 @ 24653:                  ASSVAL

   374       %IF I='M' %AND T(TP+1)=''''+128 %THEN %START  ;! M-TYPE CONSTANT
2429 @ 24654:                  LINE   374 "regression-compile-tmp/skimp77.imp"
2430 @ 24692:                  PUSH   I
2431 @ 24695:                  PUSHI  #0x0000004d
2432 @ 24700:                  JUMPIF # L_0004
2433 @ 24704:                  PUSH   T
2434 @ 24707:                  PUSH   TP
2435 @ 24710:                  PUSHI  #0x00000001
2436 @ 24715:                  ADD   
2437 @ 24716:                  ACCESS
2438 @ 24717:                  PUSHI  #0x00000027
2439 @ 24722:                  PUSHI  #0x00000080
2440 @ 24727:                  ADD   
2441 @ 24728:                  JUMPIF # L_0004

   375          TP=TP+1                          ;! IGNORE THE M
2442 @ 24732:                  LINE   375 "regression-compile-tmp/skimp77.imp"
2443 @ 24770:                  PUSH   TP
2444 @ 24773:                  PUSH   TP
2445 @ 24776:                  PUSHI  #0x00000001
2446 @ 24781:                  ADD   
2447 @ 24782:                  ASSVAL

   376          I=T(TP)
2448 @ 24783:                  LINE   376 "regression-compile-tmp/skimp77.imp"
2449 @ 24821:                  PUSH   I
2450 @ 24824:                  PUSH   T
2451 @ 24827:                  PUSH   TP
2452 @ 24830:                  ACCESS
2453 @ 24831:                  ASSVAL

   377          %FINISH
2454 @ 24832:                  LINE   377 "regression-compile-tmp/skimp77.imp"
2455 @ 24870:                  LOCATE L_0004

   378       %IF I=''''+128 %THEN %START         ;! START OF A LITERAL
2456 @ 24873:                  LINE   378 "regression-compile-tmp/skimp77.imp"
2457 @ 24911:                  PUSH   I
2458 @ 24914:                  PUSHI  #0x00000027
2459 @ 24919:                  PUSHI  #0x00000080
2460 @ 24924:                  ADD   
2461 @ 24925:                  JUMPIF # L_0004

   379          J=0                              ;! TO ACCUMULATE LITERAL VALUE
2462 @ 24929:                  LINE   379 "regression-compile-tmp/skimp77.imp"
2463 @ 24967:                  PUSH   J
2464 @ 24970:                  PUSHI  #0x00000000
2465 @ 24975:                  ASSVAL

   380          K=0                              ;! CHARACTER COUNT
2466 @ 24976:                  LINE   380 "regression-compile-tmp/skimp77.imp"
2467 @ 25014:                  PUSH   K
2468 @ 25017:                  PUSHI  #0x00000000
2469 @ 25022:                  ASSVAL

   381  L1:      TP=TP+1
2470 @ 25023:                  LINE   381 "regression-compile-tmp/skimp77.imp"
2471 @ 25061:                  LABEL  L_00c2
2472 @ 25064:                  LINE   381 "regression-compile-tmp/skimp77.imp"
2473 @ 25102:                  PUSH   TP
2474 @ 25105:                  PUSH   TP
2475 @ 25108:                  PUSHI  #0x00000001
2476 @ 25113:                  ADD   
2477 @ 25114:                  ASSVAL

   382          I=T(TP)                          ;! NEXT CHAR
2478 @ 25115:                  LINE   382 "regression-compile-tmp/skimp77.imp"
2479 @ 25153:                  PUSH   I
2480 @ 25156:                  PUSH   T
2481 @ 25159:                  PUSH   TP
2482 @ 25162:                  ACCESS
2483 @ 25163:                  ASSVAL

   383          %IF I\='''' %THEN %START         ;! NOT END OF LITERAL
2484 @ 25164:                  LINE   383 "regression-compile-tmp/skimp77.imp"
2485 @ 25202:                  PUSH   I
2486 @ 25205:                  PUSHI  #0x00000027
2487 @ 25210:                  JUMPIF = L_0007

   384             J=J<<8!I&127                  ;! PACK CHAR
2488 @ 25214:                  LINE   384 "regression-compile-tmp/skimp77.imp"
2489 @ 25252:                  PUSH   J
2490 @ 25255:                  PUSH   J
2491 @ 25258:                  PUSHI  #0x00000008
2492 @ 25263:                  LSH   
2493 @ 25264:                  PUSH   I
2494 @ 25267:                  PUSHI  #0x0000007f
2495 @ 25272:                  AND   
2496 @ 25273:                  OR    
2497 @ 25274:                  ASSVAL

   385             K=K+1                         ;! COUNT CHAR
2498 @ 25275:                  LINE   385 "regression-compile-tmp/skimp77.imp"
2499 @ 25313:                  PUSH   K
2500 @ 25316:                  PUSH   K
2501 @ 25319:                  PUSHI  #0x00000001
2502 @ 25324:                  ADD   
2503 @ 25325:                  ASSVAL

   386             ->L1 ; %FINISH
2504 @ 25326:                  LINE   386 "regression-compile-tmp/skimp77.imp"
2505 @ 25364:                  JUMP   L_00c2
2506 @ 25367:                  LINE   386 "regression-compile-tmp/skimp77.imp"
2507 @ 25405:                  LOCATE L_0007

   387          TP=TP+1                          ;! POINTER AFTER QUOTE
2508 @ 25408:                  LINE   387 "regression-compile-tmp/skimp77.imp"
2509 @ 25446:                  PUSH   TP
2510 @ 25449:                  PUSH   TP
2511 @ 25452:                  PUSHI  #0x00000001
2512 @ 25457:                  ADD   
2513 @ 25458:                  ASSVAL

   388          %IF K>4 %THEN FAULT(M'STRI',M'NG T',M'OO L',M'ONG ')
2514 @ 25459:                  LINE   388 "regression-compile-tmp/skimp77.imp"
2515 @ 25497:                  PUSH   K
2516 @ 25500:                  PUSHI  #0x00000004
2517 @ 25505:                  JUMPIF <= L_0007
2518 @ 25509:                  PUSH   FAULT
2519 @ 25512:                  PUSHI  #0x53545249
2520 @ 25517:                  ASSPAR
2521 @ 25518:                  PUSHI  #0x4e472054
2522 @ 25523:                  ASSPAR
2523 @ 25524:                  PUSHI  #0x4f4f204c
2524 @ 25529:                  ASSPAR
2525 @ 25530:                  PUSHI  #0x4f4e4720
2526 @ 25535:                  ASSPAR
2527 @ 25536:                  CALL  
2528 @ 25537:                  LOCATE L_0007

   389          ->L2 ; %FINISH
2529 @ 25540:                  LINE   389 "regression-compile-tmp/skimp77.imp"
2530 @ 25578:                  JUMP   L_00c3
2531 @ 25581:                  LINE   389 "regression-compile-tmp/skimp77.imp"
2532 @ 25619:                  LOCATE L_0004

   390       %IF I<'0' %OR I>'9' %THEN %RESULT=0 ;! NOT A CONSTANT
2533 @ 25622:                  LINE   390 "regression-compile-tmp/skimp77.imp"
2534 @ 25660:                  PUSH   I
2535 @ 25663:                  PUSHI  #0x00000030
2536 @ 25668:                  JUMPIF < L_0005
2537 @ 25672:                  PUSH   I
2538 @ 25675:                  PUSHI  #0x00000039
2539 @ 25680:                  JUMPIF <= L_0004
2540 @ 25684:                  LOCATE L_0005
2541 @ 25687:                  PUSHI  #0x00000000
2542 @ 25692:                  RESULT
2543 @ 25693:                  LOCATE L_0004

   391       J=0
2544 @ 25696:                  LINE   391 "regression-compile-tmp/skimp77.imp"
2545 @ 25734:                  PUSH   J
2546 @ 25737:                  PUSHI  #0x00000000
2547 @ 25742:                  ASSVAL

   392  L3:   J=10*J+I-'0'                        ;! ACCUMULATE DECIMAL VALUE
2548 @ 25743:                  LINE   392 "regression-compile-tmp/skimp77.imp"
2549 @ 25781:                  LABEL  L_00c4
2550 @ 25784:                  LINE   392 "regression-compile-tmp/skimp77.imp"
2551 @ 25822:                  PUSH   J
2552 @ 25825:                  PUSHI  #0x0000000a
2553 @ 25830:                  PUSH   J
2554 @ 25833:                  MUL   
2555 @ 25834:                  PUSH   I
2556 @ 25837:                  ADD   
2557 @ 25838:                  PUSHI  #0x00000030
2558 @ 25843:                  SUB   
2559 @ 25844:                  ASSVAL

   393       TP=TP+1
2560 @ 25845:                  LINE   393 "regression-compile-tmp/skimp77.imp"
2561 @ 25883:                  PUSH   TP
2562 @ 25886:                  PUSH   TP
2563 @ 25889:                  PUSHI  #0x00000001
2564 @ 25894:                  ADD   
2565 @ 25895:                  ASSVAL

   394       I=T(TP)                             ;! NEXT CHAR
2566 @ 25896:                  LINE   394 "regression-compile-tmp/skimp77.imp"
2567 @ 25934:                  PUSH   I
2568 @ 25937:                  PUSH   T
2569 @ 25940:                  PUSH   TP
2570 @ 25943:                  ACCESS
2571 @ 25944:                  ASSVAL

   395       %IF '0'<=I %AND I<='9' %THEN ->L3    ;! A DIGIT - STILL PART OF CONSTANT
2572 @ 25945:                  LINE   395 "regression-compile-tmp/skimp77.imp"
2573 @ 25983:                  PUSHI  #0x00000030
2574 @ 25988:                  PUSH   I
2575 @ 25991:                  JUMPIF > L_0004
2576 @ 25995:                  PUSH   I
2577 @ 25998:                  PUSHI  #0x00000039
2578 @ 26003:                  JUMPIF > L_0004
2579 @ 26007:                  JUMP   L_00c4
2580 @ 26010:                  LOCATE L_0004

   396  L2:   AP=AP+1                             ;! NEXT ANALYSIS RECORD POSITION
2581 @ 26013:                  LINE   396 "regression-compile-tmp/skimp77.imp"
2582 @ 26051:                  LABEL  L_00c3
2583 @ 26054:                  LINE   396 "regression-compile-tmp/skimp77.imp"
2584 @ 26092:                  PUSH   AP
2585 @ 26095:                  PUSH   AP
2586 @ 26098:                  PUSHI  #0x00000001
2587 @ 26103:                  ADD   
2588 @ 26104:                  ASSVAL

   397       A(AP)=J                             ;! FILL IN VALUE OF CONSTANT
2589 @ 26105:                  LINE   397 "regression-compile-tmp/skimp77.imp"
2590 @ 26143:                  PUSH   A
2591 @ 26146:                  PUSH   AP
2592 @ 26149:                  ACCESS
2593 @ 26150:                  PUSH   J
2594 @ 26153:                  ASSVAL

   398       %RESULT=1                           ;! SUCCESS
2595 @ 26154:                  LINE   398 "regression-compile-tmp/skimp77.imp"
2596 @ 26192:                  PUSHI  #0x00000001
2597 @ 26197:                  RESULT

   399  %END
2598 @ 26198:                  LINE   399 "regression-compile-tmp/skimp77.imp"
2599 @ 26236:               END    _lev0id0_COMPARE_CNST {lev=3 --> 2}

   400  %END
   401  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
2600 @ 26237:               LINE   400 "regression-compile-tmp/skimp77.imp"
2601 @ 26275:            END    _lev0id0_COMPARE {lev=2 --> 1}

   402  %ROUTINE SS
   403  ! COMPILE SOURCE STATEMENT
2602 @ 26276:            LINE   402 "regression-compile-tmp/skimp77.imp"
2603 @ 26314:            DEF    SS (_lev0id0_SS) 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
2604 @ 26328:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
2605 @ 26329:               FINISH ) {lev=2}

   404  %ROUTINESPEC UI
2606 @ 26330:               LINE   404 "regression-compile-tmp/skimp77.imp"
2607 @ 26368:               DEF    UI (_lev0id0_SS_UI) p1=V_00b5 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
2608 @ 26382:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
2609 @ 26383:               FINISH ) {lev=2}

   405  %ROUTINESPEC SCCOND(%INTEGERNAME LABEL)
2610 @ 26384:               LINE   405 "regression-compile-tmp/skimp77.imp"
2611 @ 26422:               DEF    SCCOND (_lev0id0_SS_SCCOND) p1=V_00b6 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
2612 @ 26440:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
2613 @ 26441:                  DEF    LABEL p1=V_00b7 a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2614 @ 26458:               FINISH ) {lev=2}

   406  %ROUTINESPEC SEXPR
2615 @ 26459:               LINE   406 "regression-compile-tmp/skimp77.imp"
2616 @ 26497:               DEF    SEXPR (_lev0id0_SS_SEXPR) p1=V_00b7 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
2617 @ 26514:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
2618 @ 26515:               FINISH ) {lev=2}

   407  %INTEGERFNSPEC FIND LABEL
2619 @ 26516:               LINE   407 "regression-compile-tmp/skimp77.imp"
2620 @ 26554:               DEF    FINDLABEL (_lev0id0_SS_FINDLABEL) p1=V_00b8 a/tf=18 b/format=1 c/ostate=18  type=1 (integer) form=8 (function) special=0 (<special:0>) linkage=0 (auto) spec=1 indirect=1 unass=0
2621 @ 26575:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
2622 @ 26576:               FINISH ) {lev=2}

   408  %ROUTINESPEC CHECK
2623 @ 26577:               LINE   408 "regression-compile-tmp/skimp77.imp"
2624 @ 26615:               DEF    CHECK (_lev0id0_SS_CHECK) p1=V_00b9 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
2625 @ 26632:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
2626 @ 26633:               FINISH ) {lev=2}

   409  %ROUTINESPEC UNSET
2627 @ 26634:               LINE   409 "regression-compile-tmp/skimp77.imp"
2628 @ 26672:               DEF    UNSET (_lev0id0_SS_UNSET) p1=V_00ba 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
2629 @ 26689:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
2630 @ 26690:               FINISH ) {lev=2}

   410  %ROUTINESPEC PUSH START(%INTEGER FLAG,LABEL)
2631 @ 26691:               LINE   410 "regression-compile-tmp/skimp77.imp"
2632 @ 26729:               DEF    PUSHSTART (_lev0id0_SS_PUSHSTART) p1=V_00bb 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
2633 @ 26750:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
2634 @ 26751:                  DEF    FLAG p1=V_00bc a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2635 @ 26767:                  DEF    LABEL p1=V_00bd a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2636 @ 26784:               FINISH ) {lev=2}

   411  %INTEGERFNSPEC BT NEXT
2637 @ 26785:               LINE   411 "regression-compile-tmp/skimp77.imp"
2638 @ 26823:               DEF    BTNEXT (_lev0id0_SS_BTNEXT) p1=V_00bc a/tf=18 b/format=1 c/ostate=18  type=1 (integer) form=8 (function) special=0 (<special:0>) linkage=0 (auto) spec=1 indirect=1 unass=0
2639 @ 26841:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
2640 @ 26842:               FINISH ) {lev=2}

   412  %INTEGERFNSPEC CT NEXT
2641 @ 26843:               LINE   412 "regression-compile-tmp/skimp77.imp"
2642 @ 26881:               DEF    CTNEXT (_lev0id0_SS_CTNEXT) p1=V_00bd a/tf=18 b/format=1 c/ostate=18  type=1 (integer) form=8 (function) special=0 (<special:0>) linkage=0 (auto) spec=1 indirect=1 unass=0
2643 @ 26899:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
2644 @ 26900:               FINISH ) {lev=2}

   413  %INTEGERFNSPEC WS NEXT
2645 @ 26901:               LINE   413 "regression-compile-tmp/skimp77.imp"
2646 @ 26939:               DEF    WSNEXT (_lev0id0_SS_WSNEXT) p1=V_00be a/tf=18 b/format=1 c/ostate=18  type=1 (integer) form=8 (function) special=0 (<special:0>) linkage=0 (auto) spec=1 indirect=1 unass=0
2647 @ 26957:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
2648 @ 26958:               FINISH ) {lev=2}

   414  %ROUTINESPEC STORE TAG(%INTEGER NAME,FORM,TYPE,DIM,LEV,AD)
2649 @ 26959:               LINE   414 "regression-compile-tmp/skimp77.imp"
2650 @ 26997:               DEF    STORETAG (_lev0id0_SS_STORETAG) p1=V_00bf 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
2651 @ 27017:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
2652 @ 27018:                  DEF    NAME p1=V_00c0 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2653 @ 27034:                  DEF    FORM p1=V_00c1 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2654 @ 27050:                  DEF    TYPE p1=V_00c2 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2655 @ 27066:                  DEF    DIM p1=V_00c3 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2656 @ 27081:                  DEF    LEV p1=V_00c4 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2657 @ 27096:                  DEF    AD p1=V_00c5 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2658 @ 27110:               FINISH ) {lev=2}

   415  %ROUTINESPEC DUMP(%INTEGER OP,REG,BASE,DISP)
2659 @ 27111:               LINE   415 "regression-compile-tmp/skimp77.imp"
2660 @ 27149:               DEF    DUMP (_lev0id0_SS_DUMP) p1=V_00c0 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
2661 @ 27165:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
2662 @ 27166:                  DEF    OP p1=V_00c1 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2663 @ 27180:                  DEF    REG p1=V_00c2 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2664 @ 27195:                  DEF    BASE p1=V_00c3 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2665 @ 27211:                  DEF    DISP p1=V_00c4 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2666 @ 27227:               FINISH ) {lev=2}

   416  %ROUTINESPEC SKIP SEXPR
2667 @ 27228:               LINE   416 "regression-compile-tmp/skimp77.imp"
2668 @ 27266:               DEF    SKIPSEXPR (_lev0id0_SS_SKIPSEXPR) p1=V_00c1 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
2669 @ 27287:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
2670 @ 27288:               FINISH ) {lev=2}

   417  %ROUTINESPEC SKIP APP
2671 @ 27289:               LINE   417 "regression-compile-tmp/skimp77.imp"
2672 @ 27327:               DEF    SKIPAPP (_lev0id0_SS_SKIPAPP) p1=V_00c2 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
2673 @ 27346:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
2674 @ 27347:               FINISH ) {lev=2}

   418  %ROUTINESPEC RT
2675 @ 27348:               LINE   418 "regression-compile-tmp/skimp77.imp"
2676 @ 27386:               DEF    RT (_lev0id0_SS_RT) p1=V_00c3 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
2677 @ 27400:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
2678 @ 27401:               FINISH ) {lev=2}

   419  %ROUTINESPEC ARRAD
2679 @ 27402:               LINE   419 "regression-compile-tmp/skimp77.imp"
2680 @ 27440:               DEF    ARRAD (_lev0id0_SS_ARRAD) p1=V_00c4 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
2681 @ 27457:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
2682 @ 27458:               FINISH ) {lev=2}

   420  %ROUTINESPEC ENTER(%INTEGER TYPE,ALLOC)
2683 @ 27459:               LINE   420 "regression-compile-tmp/skimp77.imp"
2684 @ 27497:               DEF    ENTER (_lev0id0_SS_ENTER) p1=V_00c5 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
2685 @ 27514:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
2686 @ 27515:                  DEF    TYPE p1=V_00c6 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2687 @ 27531:                  DEF    ALLOC p1=V_00c7 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2688 @ 27548:               FINISH ) {lev=2}

   421  %ROUTINESPEC RETURN
2689 @ 27549:               LINE   421 "regression-compile-tmp/skimp77.imp"
2690 @ 27587:               DEF    RETURN (_lev0id0_SS_RETURN) p1=V_00c6 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
2691 @ 27605:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
2692 @ 27606:               FINISH ) {lev=2}

   422  %INTEGER I,J,K,L,M,N,P,Q,R,WS,LABEL
2693 @ 27607:               LINE   422 "regression-compile-tmp/skimp77.imp"
2694 @ 27645:               DEF    I p1=V_00c7 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2695 @ 27658:               DEF    J p1=V_00c8 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2696 @ 27671:               DEF    K p1=V_00c9 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2697 @ 27684:               DEF    L p1=V_00ca a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2698 @ 27697:               DEF    M p1=V_00cb a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2699 @ 27710:               DEF    N p1=V_00cc a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2700 @ 27723:               DEF    P p1=V_00cd a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2701 @ 27736:               DEF    Q p1=V_00ce a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2702 @ 27749:               DEF    R p1=V_00cf a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2703 @ 27762:               DEF    WS p1=V_00d0 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2704 @ 27776:               DEF    LABEL p1=V_00d1 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   423       I=A(AP)                             ;! ANALYSIS RECORD ENTRY
2705 @ 27793:               LINE   423 "regression-compile-tmp/skimp77.imp"
2706 @ 27831:               PUSH   I
2707 @ 27834:               PUSH   A
2708 @ 27837:               PUSH   AP
2709 @ 27840:               ACCESS
2710 @ 27841:               ASSVAL

   424       AP=AP+1                             ;! FOR FOLLOWING ENTRY
2711 @ 27842:               LINE   424 "regression-compile-tmp/skimp77.imp"
2712 @ 27880:               PUSH   AP
2713 @ 27883:               PUSH   AP
2714 @ 27886:               PUSHI  #0x00000001
2715 @ 27891:               ADD   
2716 @ 27892:               ASSVAL

   425       WS=2                                ;! SET WORKSPACE POINTER
2717 @ 27893:               LINE   425 "regression-compile-tmp/skimp77.imp"
2718 @ 27931:               PUSH   WS
2719 @ 27934:               PUSHI  #0x00000002
2720 @ 27939:               ASSVAL

   426       %IF I=1 %THEN ->L10                  ;! UNCONDITIONAL INSTRUCTION
2721 @ 27940:               LINE   426 "regression-compile-tmp/skimp77.imp"
2722 @ 27978:               PUSH   I
2723 @ 27981:               PUSHI  #0x00000001
2724 @ 27986:               JUMPIF # L_0004
2725 @ 27990:               JUMP   L_00d2
2726 @ 27993:               LOCATE L_0004

   427       %IF I=2 %THEN ->L20                  ;! CONDITIONAL STATEMENT
2727 @ 27996:               LINE   427 "regression-compile-tmp/skimp77.imp"
2728 @ 28034:               PUSH   I
2729 @ 28037:               PUSHI  #0x00000002
2730 @ 28042:               JUMPIF # L_0004
2731 @ 28046:               JUMP   L_00d3
2732 @ 28049:               LOCATE L_0004

   428       %IF I=3 %THEN ->L30                  ;! LABEL
2733 @ 28052:               LINE   428 "regression-compile-tmp/skimp77.imp"
2734 @ 28090:               PUSH   I
2735 @ 28093:               PUSHI  #0x00000003
2736 @ 28098:               JUMPIF # L_0004
2737 @ 28102:               JUMP   L_00d4
2738 @ 28105:               LOCATE L_0004

   429       %IF I=4 %THEN ->L40                  ;! %FINISH
2739 @ 28108:               LINE   429 "regression-compile-tmp/skimp77.imp"
2740 @ 28146:               PUSH   I
2741 @ 28149:               PUSHI  #0x00000004
2742 @ 28154:               JUMPIF # L_0004
2743 @ 28158:               JUMP   L_00d5
2744 @ 28161:               LOCATE L_0004

   430       %IF I=5 %THEN ->L50                  ;! DECLARATIONS
2745 @ 28164:               LINE   430 "regression-compile-tmp/skimp77.imp"
2746 @ 28202:               PUSH   I
2747 @ 28205:               PUSHI  #0x00000005
2748 @ 28210:               JUMPIF # L_0004
2749 @ 28214:               JUMP   L_00d6
2750 @ 28217:               LOCATE L_0004

   431       %IF I=6 %THEN ->L60                  ;! ROUTINE/FN SPEC
2751 @ 28220:               LINE   431 "regression-compile-tmp/skimp77.imp"
2752 @ 28258:               PUSH   I
2753 @ 28261:               PUSHI  #0x00000006
2754 @ 28266:               JUMPIF # L_0004
2755 @ 28270:               JUMP   L_00d7
2756 @ 28273:               LOCATE L_0004

   432       %IF I=7 %THEN ->L70                  ;! %END
2757 @ 28276:               LINE   432 "regression-compile-tmp/skimp77.imp"
2758 @ 28314:               PUSH   I
2759 @ 28317:               PUSHI  #0x00000007
2760 @ 28322:               JUMPIF # L_0004
2761 @ 28326:               JUMP   L_00d8
2762 @ 28329:               LOCATE L_0004

   433       %IF I=8 %THEN ->L80                  ;! %BEGIN
2763 @ 28332:               LINE   433 "regression-compile-tmp/skimp77.imp"
2764 @ 28370:               PUSH   I
2765 @ 28373:               PUSHI  #0x00000008
2766 @ 28378:               JUMPIF # L_0004
2767 @ 28382:               JUMP   L_00d9
2768 @ 28385:               LOCATE L_0004

   434       %IF I=9 %THEN ->L90                  ;! %ENDOFPROGRAM
2769 @ 28388:               LINE   434 "regression-compile-tmp/skimp77.imp"
2770 @ 28426:               PUSH   I
2771 @ 28429:               PUSHI  #0x00000009
2772 @ 28434:               JUMPIF # L_0004
2773 @ 28438:               JUMP   L_00da
2774 @ 28441:               LOCATE L_0004

   435       %RETURN                             ;! <SEP>
   436  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !
   437  ! UI
2775 @ 28444:               LINE   435 "regression-compile-tmp/skimp77.imp"
2776 @ 28482:               RETURN

   438  L10:  UI                                  ;! COMPILE UNCONDITIONAL INSTRUCTION
2777 @ 28483:               LINE   438 "regression-compile-tmp/skimp77.imp"
2778 @ 28521:               LABEL  L_00d2
2779 @ 28524:               LINE   438 "regression-compile-tmp/skimp77.imp"
2780 @ 28562:               PUSH   UI
2781 @ 28565:               CALL  

   439       %RETURN
   440  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !
   441  ! %IF . . . %THEN . . .  %ELSE
2782 @ 28566:               LINE   439 "regression-compile-tmp/skimp77.imp"
2783 @ 28604:               RETURN

   442  L20:  SCCOND(I)                           ;! COMPILE CONDITION
2784 @ 28605:               LINE   442 "regression-compile-tmp/skimp77.imp"
2785 @ 28643:               LABEL  L_00d3
2786 @ 28646:               LINE   442 "regression-compile-tmp/skimp77.imp"
2787 @ 28684:               PUSH   SCCOND
2788 @ 28687:               PUSH   I
2789 @ 28690:               ASSPAR
2790 @ 28691:               CALL  

   443       %IF A(AP)=2 %THEN %START            ;! AP ON <UI> - JUMP INSTRUCTION
2791 @ 28692:               LINE   443 "regression-compile-tmp/skimp77.imp"
2792 @ 28730:               PUSH   A
2793 @ 28733:               PUSH   AP
2794 @ 28736:               ACCESS
2795 @ 28737:               PUSHI  #0x00000002
2796 @ 28742:               JUMPIF # L_0004

   444          AP=AP+2                          ;! AP ON <ELSE>
2797 @ 28746:               LINE   444 "regression-compile-tmp/skimp77.imp"
2798 @ 28784:               PUSH   AP
2799 @ 28787:               PUSH   AP
2800 @ 28790:               PUSHI  #0x00000002
2801 @ 28795:               ADD   
2802 @ 28796:               ASSVAL

   445          J=-1                             ;! MARKER FOR 'JUMP'
2803 @ 28797:               LINE   445 "regression-compile-tmp/skimp77.imp"
2804 @ 28835:               PUSH   J
2805 @ 28838:               PUSHI  #0x00000001
2806 @ 28843:               NEGATE
2807 @ 28844:               ASSVAL

   446          %FINISH %ELSE %START             ;! NOT A JUMP
2808 @ 28845:               LINE   446 "regression-compile-tmp/skimp77.imp"
2809 @ 28883:               GOTO   L_0003
2810 @ 28886:               LOCATE L_0004

   447          %IF A(AP)=3 %THEN %START         ;! %START
2811 @ 28889:               LINE   447 "regression-compile-tmp/skimp77.imp"
2812 @ 28927:               PUSH   A
2813 @ 28930:               PUSH   AP
2814 @ 28933:               ACCESS
2815 @ 28934:               PUSHI  #0x00000003
2816 @ 28939:               JUMPIF # L_0007

   448             %IF A(AP+1)=1 %THEN FAULT(M'%STA',M'RT %',M'ELSE',M' ?  ')
2817 @ 28943:               LINE   448 "regression-compile-tmp/skimp77.imp"
2818 @ 28981:               PUSH   A
2819 @ 28984:               PUSH   AP
2820 @ 28987:               PUSHI  #0x00000001
2821 @ 28992:               ADD   
2822 @ 28993:               ACCESS
2823 @ 28994:               PUSHI  #0x00000001
2824 @ 28999:               JUMPIF # L_000a
2825 @ 29003:               PUSH   FAULT
2826 @ 29006:               PUSHI  #0x25535441
2827 @ 29011:               ASSPAR
2828 @ 29012:               PUSHI  #0x52542025
2829 @ 29017:               ASSPAR
2830 @ 29018:               PUSHI  #0x454c5345
2831 @ 29023:               ASSPAR
2832 @ 29024:               PUSHI  #0x203f2020
2833 @ 29029:               ASSPAR
2834 @ 29030:               CALL  
2835 @ 29031:               LOCATE L_000a

   449             PUSH START(0,I)
2836 @ 29034:               LINE   449 "regression-compile-tmp/skimp77.imp"
2837 @ 29072:               PUSH   PUSHSTART
2838 @ 29075:               PUSHI  #0x00000000
2839 @ 29080:               ASSPAR
2840 @ 29081:               PUSH   I
2841 @ 29084:               ASSPAR
2842 @ 29085:               CALL  

   450             %RETURN ; %FINISH
2843 @ 29086:               LINE   450 "regression-compile-tmp/skimp77.imp"
2844 @ 29124:               RETURN
2845 @ 29125:               LINE   450 "regression-compile-tmp/skimp77.imp"
2846 @ 29163:               LOCATE L_0007

   451          UI                               ;! COMPILE REMAINING UNCOND. INSTNS.
2847 @ 29166:               LINE   451 "regression-compile-tmp/skimp77.imp"
2848 @ 29204:               PUSH   UI
2849 @ 29207:               CALL  

   452          J=0                              ;! 'NOT JUMP' MARKER
2850 @ 29208:               LINE   452 "regression-compile-tmp/skimp77.imp"
2851 @ 29246:               PUSH   J
2852 @ 29249:               PUSHI  #0x00000000
2853 @ 29254:               ASSVAL

   453          %FINISH
2854 @ 29255:               LINE   453 "regression-compile-tmp/skimp77.imp"
2855 @ 29293:               LOCATE L_0003

   454       %IF A(AP)=1 %THEN %START            ;! <ELSE>-CLAUSE PRESENT
2856 @ 29296:               LINE   454 "regression-compile-tmp/skimp77.imp"
2857 @ 29334:               PUSH   A
2858 @ 29337:               PUSH   AP
2859 @ 29340:               ACCESS
2860 @ 29341:               PUSHI  #0x00000001
2861 @ 29346:               JUMPIF # L_0004

   455          %IF J=0 %THEN %START             ;! <UI> WAS NOT A JUMP
2862 @ 29350:               LINE   455 "regression-compile-tmp/skimp77.imp"
2863 @ 29388:               PUSH   J
2864 @ 29391:               PUSHI  #0x00000000
2865 @ 29396:               JUMPIF # L_0007

   456             J=BT NEXT                     ;! JUMP ROUND <ELSE>-CLAUSE <UI>
2866 @ 29400:               LINE   456 "regression-compile-tmp/skimp77.imp"
2867 @ 29438:               PUSH   J
2868 @ 29441:               PUSH   BTNEXT
2869 @ 29444:               CALL  
2870 @ 29445:               ASSVAL

   457             DUMP('B',0,M'BT',J)
2871 @ 29446:               LINE   457 "regression-compile-tmp/skimp77.imp"
2872 @ 29484:               PUSH   DUMP
2873 @ 29487:               PUSHI  #0x00000042
2874 @ 29492:               ASSPAR
2875 @ 29493:               PUSHI  #0x00000000
2876 @ 29498:               ASSPAR
2877 @ 29499:               PUSHI  #0x00004254
2878 @ 29504:               ASSPAR
2879 @ 29505:               PUSH   J
2880 @ 29508:               ASSPAR
2881 @ 29509:               CALL  

   458             %FINISH
2882 @ 29510:               LINE   458 "regression-compile-tmp/skimp77.imp"
2883 @ 29548:               LOCATE L_0007

   459          %IF I>=0 %THEN BAT(I)=CA         ;! FILL IN LABEL ON <ELSE>-CLAUSE <UI>
2884 @ 29551:               LINE   459 "regression-compile-tmp/skimp77.imp"
2885 @ 29589:               PUSH   I
2886 @ 29592:               PUSHI  #0x00000000
2887 @ 29597:               JUMPIF < L_0007
2888 @ 29601:               PUSH   BAT
2889 @ 29604:               PUSH   I
2890 @ 29607:               ACCESS
2891 @ 29608:               PUSH   CA
2892 @ 29611:               ASSVAL
2893 @ 29612:               LOCATE L_0007

   460          AP=AP+1                          ;! AP ON <UI>
2894 @ 29615:               LINE   460 "regression-compile-tmp/skimp77.imp"
2895 @ 29653:               PUSH   AP
2896 @ 29656:               PUSH   AP
2897 @ 29659:               PUSHI  #0x00000001
2898 @ 29664:               ADD   
2899 @ 29665:               ASSVAL

   461          %IF A(AP)=3 %THEN %START         ;! %START
2900 @ 29666:               LINE   461 "regression-compile-tmp/skimp77.imp"
2901 @ 29704:               PUSH   A
2902 @ 29707:               PUSH   AP
2903 @ 29710:               ACCESS
2904 @ 29711:               PUSHI  #0x00000003
2905 @ 29716:               JUMPIF # L_0007

   462             PUSH START(1,J)
2906 @ 29720:               LINE   462 "regression-compile-tmp/skimp77.imp"
2907 @ 29758:               PUSH   PUSHSTART
2908 @ 29761:               PUSHI  #0x00000001
2909 @ 29766:               ASSPAR
2910 @ 29767:               PUSH   J
2911 @ 29770:               ASSPAR
2912 @ 29771:               CALL  

   463             %RETURN ; %FINISH
2913 @ 29772:               LINE   463 "regression-compile-tmp/skimp77.imp"
2914 @ 29810:               RETURN
2915 @ 29811:               LINE   463 "regression-compile-tmp/skimp77.imp"
2916 @ 29849:               LOCATE L_0007

   464          UI                               ;! COMPILE REMAINING <UI>S
2917 @ 29852:               LINE   464 "regression-compile-tmp/skimp77.imp"
2918 @ 29890:               PUSH   UI
2919 @ 29893:               CALL  

   465          I=J                              ;! JUMP AROUND LABEL
2920 @ 29894:               LINE   465 "regression-compile-tmp/skimp77.imp"
2921 @ 29932:               PUSH   I
2922 @ 29935:               PUSH   J
2923 @ 29938:               ASSVAL

   466          %FINISH
2924 @ 29939:               LINE   466 "regression-compile-tmp/skimp77.imp"
2925 @ 29977:               LOCATE L_0004

   467       %IF I>=0 %THEN BAT(I)=CA            ;! TO BRANCH ROUND THE UI
2926 @ 29980:               LINE   467 "regression-compile-tmp/skimp77.imp"
2927 @ 30018:               PUSH   I
2928 @ 30021:               PUSHI  #0x00000000
2929 @ 30026:               JUMPIF < L_0004
2930 @ 30030:               PUSH   BAT
2931 @ 30033:               PUSH   I
2932 @ 30036:               ACCESS
2933 @ 30037:               PUSH   CA
2934 @ 30040:               ASSVAL
2935 @ 30041:               LOCATE L_0004

   468       %RETURN
   469  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !
   470  ! CONST: . . .
2936 @ 30044:               LINE   468 "regression-compile-tmp/skimp77.imp"
2937 @ 30082:               RETURN

   471  L30:  I=FIND LABEL                        ;! LOCATE/INSERT LABEL IN JUMP LIST
2938 @ 30083:               LINE   471 "regression-compile-tmp/skimp77.imp"
2939 @ 30121:               LABEL  L_00d4
2940 @ 30124:               LINE   471 "regression-compile-tmp/skimp77.imp"
2941 @ 30162:               PUSH   I
2942 @ 30165:               PUSH   FINDLABEL
2943 @ 30168:               CALL  
2944 @ 30169:               ASSVAL

   472       %IF I>=0 %THEN %START               ;! VALID LABEL
2945 @ 30170:               LINE   472 "regression-compile-tmp/skimp77.imp"
2946 @ 30208:               PUSH   I
2947 @ 30211:               PUSHI  #0x00000000
2948 @ 30216:               JUMPIF < L_0004

   473          %IF BAT(I)>=0 %THEN %START
2949 @ 30220:               LINE   473 "regression-compile-tmp/skimp77.imp"
2950 @ 30258:               PUSH   BAT
2951 @ 30261:               PUSH   I
2952 @ 30264:               ACCESS
2953 @ 30265:               PUSHI  #0x00000000
2954 @ 30270:               JUMPIF < L_0007

   474             WRITE(LABEL,1)
2955 @ 30274:               LINE   474 "regression-compile-tmp/skimp77.imp"
2956 @ 30312:               PUSH   WRITE
2957 @ 30315:               PUSH   LABEL
2958 @ 30318:               ASSPAR
2959 @ 30319:               PUSHI  #0x00000001
2960 @ 30324:               ASSPAR
2961 @ 30325:               CALL  

   475             SPACES(2)
2962 @ 30326:               LINE   475 "regression-compile-tmp/skimp77.imp"
2963 @ 30364:               PUSH   SPACES
2964 @ 30367:               PUSHI  #0x00000002
2965 @ 30372:               ASSPAR
2966 @ 30373:               CALL  

   476             FAULT(M'LABE',M'L SE',M'T TW',M'ICE ')
2967 @ 30374:               LINE   476 "regression-compile-tmp/skimp77.imp"
2968 @ 30412:               PUSH   FAULT
2969 @ 30415:               PUSHI  #0x4c414245
2970 @ 30420:               ASSPAR
2971 @ 30421:               PUSHI  #0x4c205345
2972 @ 30426:               ASSPAR
2973 @ 30427:               PUSHI  #0x54205457
2974 @ 30432:               ASSPAR
2975 @ 30433:               PUSHI  #0x49434520
2976 @ 30438:               ASSPAR
2977 @ 30439:               CALL  

   477             %FINISH
2978 @ 30440:               LINE   477 "regression-compile-tmp/skimp77.imp"
2979 @ 30478:               LOCATE L_0007

   478          BAT(I)=CA                        ;! FILL IN LABEL ADDRESS
2980 @ 30481:               LINE   478 "regression-compile-tmp/skimp77.imp"
2981 @ 30519:               PUSH   BAT
2982 @ 30522:               PUSH   I
2983 @ 30525:               ACCESS
2984 @ 30526:               PUSH   CA
2985 @ 30529:               ASSVAL

   479          %FINISH
2986 @ 30530:               LINE   479 "regression-compile-tmp/skimp77.imp"
2987 @ 30568:               LOCATE L_0004

   480       SS                                  ;! COMPILE STATEMENT AFTER LABEL
2988 @ 30571:               LINE   480 "regression-compile-tmp/skimp77.imp"
2989 @ 30609:               PUSH   SS
2990 @ 30612:               CALL  

   481       %RETURN
   482  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !
   483  ! %FINISH . . .
2991 @ 30613:               LINE   481 "regression-compile-tmp/skimp77.imp"
2992 @ 30651:               RETURN

   484  L40:  I=START(LEVEL)                           ;! LINK TO FIRST CELL IN START LIST
2993 @ 30652:               LINE   484 "regression-compile-tmp/skimp77.imp"
2994 @ 30690:               LABEL  L_00d5
2995 @ 30693:               LINE   484 "regression-compile-tmp/skimp77.imp"
2996 @ 30731:               PUSH   I
2997 @ 30734:               PUSH   START
2998 @ 30737:               PUSH   LEVEL
2999 @ 30740:               ACCESS
3000 @ 30741:               ASSVAL

   485       %IF I=0 %THEN %START                     ;! NO CELLS IN LIST
3001 @ 30742:               LINE   485 "regression-compile-tmp/skimp77.imp"
3002 @ 30780:               PUSH   I
3003 @ 30783:               PUSHI  #0x00000000
3004 @ 30788:               JUMPIF # L_0004

   486          FAULT(M'SPUR',M'IOUS',M' %FI',M'NISH')
3005 @ 30792:               LINE   486 "regression-compile-tmp/skimp77.imp"
3006 @ 30830:               PUSH   FAULT
3007 @ 30833:               PUSHI  #0x53505552
3008 @ 30838:               ASSPAR
3009 @ 30839:               PUSHI  #0x494f5553
3010 @ 30844:               ASSPAR
3011 @ 30845:               PUSHI  #0x20254649
3012 @ 30850:               ASSPAR
3013 @ 30851:               PUSHI  #0x4e495348
3014 @ 30856:               ASSPAR
3015 @ 30857:               CALL  

   487          %RETURN ; %FINISH
3016 @ 30858:               LINE   487 "regression-compile-tmp/skimp77.imp"
3017 @ 30896:               RETURN
3018 @ 30897:               LINE   487 "regression-compile-tmp/skimp77.imp"
3019 @ 30935:               LOCATE L_0004

   488       J=TAG(I)&65535                           ;! JUMP AROUND LABEL
3020 @ 30938:               LINE   488 "regression-compile-tmp/skimp77.imp"
3021 @ 30976:               PUSH   J
3022 @ 30979:               PUSH   TAG
3023 @ 30982:               PUSH   I
3024 @ 30985:               ACCESS
3025 @ 30986:               PUSHI  #0x0000ffff
3026 @ 30991:               AND   
3027 @ 30992:               ASSVAL

   489       K=TAG(I)>>16                             ;! BEFORE OR AFTER %ELSE MARKER
3028 @ 30993:               LINE   489 "regression-compile-tmp/skimp77.imp"
3029 @ 31031:               PUSH   K
3030 @ 31034:               PUSH   TAG
3031 @ 31037:               PUSH   I
3032 @ 31040:               ACCESS
3033 @ 31041:               PUSHI  #0x00000010
3034 @ 31046:               RSH   
3035 @ 31047:               ASSVAL

   490       START(LEVEL)=RETURN CELL(I)              ;! POP UP CELL
3036 @ 31048:               LINE   490 "regression-compile-tmp/skimp77.imp"
3037 @ 31086:               PUSH   START
3038 @ 31089:               PUSH   LEVEL
3039 @ 31092:               ACCESS
3040 @ 31093:               PUSH   RETURNCELL
3041 @ 31096:               PUSH   I
3042 @ 31099:               ASSPAR
3043 @ 31100:               CALL  
3044 @ 31101:               ASSVAL

   491       %IF A(AP)=1 %THEN %START                 ;! %ELSE PRESENT
3045 @ 31102:               LINE   491 "regression-compile-tmp/skimp77.imp"
3046 @ 31140:               PUSH   A
3047 @ 31143:               PUSH   AP
3048 @ 31146:               ACCESS
3049 @ 31147:               PUSHI  #0x00000001
3050 @ 31152:               JUMPIF # L_0004

   492          %IF K=1 %THEN FAULT(M'TWO ',M'%ELS',M'ES !',M'    ')
3051 @ 31156:               LINE   492 "regression-compile-tmp/skimp77.imp"
3052 @ 31194:               PUSH   K
3053 @ 31197:               PUSHI  #0x00000001
3054 @ 31202:               JUMPIF # L_0007
3055 @ 31206:               PUSH   FAULT
3056 @ 31209:               PUSHI  #0x54574f20
3057 @ 31214:               ASSPAR
3058 @ 31215:               PUSHI  #0x25454c53
3059 @ 31220:               ASSPAR
3060 @ 31221:               PUSHI  #0x45532021
3061 @ 31226:               ASSPAR
3062 @ 31227:               PUSHI  #0x20202020
3063 @ 31232:               ASSPAR
3064 @ 31233:               CALL  
3065 @ 31234:               LOCATE L_0007

   493          K=BT NEXT                             ;! JUMP AROUND <UI>
3066 @ 31237:               LINE   493 "regression-compile-tmp/skimp77.imp"
3067 @ 31275:               PUSH   K
3068 @ 31278:               PUSH   BTNEXT
3069 @ 31281:               CALL  
3070 @ 31282:               ASSVAL

   494          DUMP('B',0,M'BT',K)
3071 @ 31283:               LINE   494 "regression-compile-tmp/skimp77.imp"
3072 @ 31321:               PUSH   DUMP
3073 @ 31324:               PUSHI  #0x00000042
3074 @ 31329:               ASSPAR
3075 @ 31330:               PUSHI  #0x00000000
3076 @ 31335:               ASSPAR
3077 @ 31336:               PUSHI  #0x00004254
3078 @ 31341:               ASSPAR
3079 @ 31342:               PUSH   K
3080 @ 31345:               ASSPAR
3081 @ 31346:               CALL  

   495          %IF J\=65535 %THEN BAT(J)=CA          ;! FILL IN LABEL ON <UI> IF NECESSARY
3082 @ 31347:               LINE   495 "regression-compile-tmp/skimp77.imp"
3083 @ 31385:               PUSH   J
3084 @ 31388:               PUSHI  #0x0000ffff
3085 @ 31393:               JUMPIF = L_0007
3086 @ 31397:               PUSH   BAT
3087 @ 31400:               PUSH   J
3088 @ 31403:               ACCESS
3089 @ 31404:               PUSH   CA
3090 @ 31407:               ASSVAL
3091 @ 31408:               LOCATE L_0007

   496          AP=AP+1                               ;! AP ON <UI>
3092 @ 31411:               LINE   496 "regression-compile-tmp/skimp77.imp"
3093 @ 31449:               PUSH   AP
3094 @ 31452:               PUSH   AP
3095 @ 31455:               PUSHI  #0x00000001
3096 @ 31460:               ADD   
3097 @ 31461:               ASSVAL

   497          %IF A(AP)=3 %THEN %START              ;! %START
3098 @ 31462:               LINE   497 "regression-compile-tmp/skimp77.imp"
3099 @ 31500:               PUSH   A
3100 @ 31503:               PUSH   AP
3101 @ 31506:               ACCESS
3102 @ 31507:               PUSHI  #0x00000003
3103 @ 31512:               JUMPIF # L_0007

   498             PUSH START(1,K)
3104 @ 31516:               LINE   498 "regression-compile-tmp/skimp77.imp"
3105 @ 31554:               PUSH   PUSHSTART
3106 @ 31557:               PUSHI  #0x00000001
3107 @ 31562:               ASSPAR
3108 @ 31563:               PUSH   K
3109 @ 31566:               ASSPAR
3110 @ 31567:               CALL  

   499             %RETURN ; %FINISH
3111 @ 31568:               LINE   499 "regression-compile-tmp/skimp77.imp"
3112 @ 31606:               RETURN
3113 @ 31607:               LINE   499 "regression-compile-tmp/skimp77.imp"
3114 @ 31645:               LOCATE L_0007

   500          UI                                    ;! COMPILE REMAINING <UI>S
3115 @ 31648:               LINE   500 "regression-compile-tmp/skimp77.imp"
3116 @ 31686:               PUSH   UI
3117 @ 31689:               CALL  

   501          J=K                                   ;! JUMP AROUND LABEL
3118 @ 31690:               LINE   501 "regression-compile-tmp/skimp77.imp"
3119 @ 31728:               PUSH   J
3120 @ 31731:               PUSH   K
3121 @ 31734:               ASSVAL

   502          %FINISH
3122 @ 31735:               LINE   502 "regression-compile-tmp/skimp77.imp"
3123 @ 31773:               LOCATE L_0004

   503       %IF J\=65535 %THEN BAT(J)=CA             ;! FILL IN JUMP AROUND LABEL IF NECESSARY
3124 @ 31776:               LINE   503 "regression-compile-tmp/skimp77.imp"
3125 @ 31814:               PUSH   J
3126 @ 31817:               PUSHI  #0x0000ffff
3127 @ 31822:               JUMPIF = L_0004
3128 @ 31826:               PUSH   BAT
3129 @ 31829:               PUSH   J
3130 @ 31832:               ACCESS
3131 @ 31833:               PUSH   CA
3132 @ 31836:               ASSVAL
3133 @ 31837:               LOCATE L_0004

   504       %RETURN
   505  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !
   506  ! DECLARATIONS
3134 @ 31840:               LINE   504 "regression-compile-tmp/skimp77.imp"
3135 @ 31878:               RETURN

   507  L50:  %IF A(AP)=1 %THEN %START                        ;! <ARR> = %ARRAY
3136 @ 31879:               LINE   507 "regression-compile-tmp/skimp77.imp"
3137 @ 31917:               LABEL  L_00d6
3138 @ 31920:               LINE   507 "regression-compile-tmp/skimp77.imp"
3139 @ 31958:               PUSH   A
3140 @ 31961:               PUSH   AP
3141 @ 31964:               ACCESS
3142 @ 31965:               PUSHI  #0x00000001
3143 @ 31970:               JUMPIF # L_0004

   508          APP=AP                                       ;! SAVE AP
3144 @ 31974:               LINE   508 "regression-compile-tmp/skimp77.imp"
3145 @ 32012:               PUSH   APP
3146 @ 32015:               PUSH   AP
3147 @ 32018:               ASSVAL

   509  L51:     AP=AP+2                                      ;! AP ON <NAMS>
3148 @ 32019:               LINE   509 "regression-compile-tmp/skimp77.imp"
3149 @ 32057:               LABEL  L_00db
3150 @ 32060:               LINE   509 "regression-compile-tmp/skimp77.imp"
3151 @ 32098:               PUSH   AP
3152 @ 32101:               PUSH   AP
3153 @ 32104:               PUSHI  #0x00000002
3154 @ 32109:               ADD   
3155 @ 32110:               ASSVAL

   510          %IF A(AP)=1 %THEN ->L51                       ;! SKIP DOWN TO END OF LIST OF NAMES
3156 @ 32111:               LINE   510 "regression-compile-tmp/skimp77.imp"
3157 @ 32149:               PUSH   A
3158 @ 32152:               PUSH   AP
3159 @ 32155:               ACCESS
3160 @ 32156:               PUSHI  #0x00000001
3161 @ 32161:               JUMPIF # L_0007
3162 @ 32165:               JUMP   L_00db
3163 @ 32168:               LOCATE L_0007

   511          AP=AP+1                                      ;! AP ON <+-\>
3164 @ 32171:               LINE   511 "regression-compile-tmp/skimp77.imp"
3165 @ 32209:               PUSH   AP
3166 @ 32212:               PUSH   AP
3167 @ 32215:               PUSHI  #0x00000001
3168 @ 32220:               ADD   
3169 @ 32221:               ASSVAL

   512          SEXPR                                        ;! COMPILE EXPRESSION - LOWER BOUND
3170 @ 32222:               LINE   512 "regression-compile-tmp/skimp77.imp"
3171 @ 32260:               PUSH   SEXPR
3172 @ 32263:               CALL  

   513          DUMP(M'STR',M'ACC',BR(LEVEL),WS NEXT)        ;! STORE VALUE IN WORKSPACE
3173 @ 32264:               LINE   513 "regression-compile-tmp/skimp77.imp"
3174 @ 32302:               PUSH   DUMP
3175 @ 32305:               PUSHI  #0x00535452
3176 @ 32310:               ASSPAR
3177 @ 32311:               PUSHI  #0x00414343
3178 @ 32316:               ASSPAR
3179 @ 32317:               PUSH   BR
3180 @ 32320:               PUSH   LEVEL
3181 @ 32323:               ACCESS
3182 @ 32324:               ASSPAR
3183 @ 32325:               PUSH   WSNEXT
3184 @ 32328:               CALL  
3185 @ 32329:               ASSPAR
3186 @ 32330:               CALL  

   514          SEXPR                                        ;! COMPILE EXPRESSION - UPPER BOUND
3187 @ 32331:               LINE   514 "regression-compile-tmp/skimp77.imp"
3188 @ 32369:               PUSH   SEXPR
3189 @ 32372:               CALL  

   515          DUMP(M'LDA',M'ACC',M'ACC',1)                 ;! INCREMENT VALUE BY 1
3190 @ 32373:               LINE   515 "regression-compile-tmp/skimp77.imp"
3191 @ 32411:               PUSH   DUMP
3192 @ 32414:               PUSHI  #0x004c4441
3193 @ 32419:               ASSPAR
3194 @ 32420:               PUSHI  #0x00414343
3195 @ 32425:               ASSPAR
3196 @ 32426:               PUSHI  #0x00414343
3197 @ 32431:               ASSPAR
3198 @ 32432:               PUSHI  #0x00000001
3199 @ 32437:               ASSPAR
3200 @ 32438:               CALL  

   516          %IF A(AP)=1 %THEN %START                     ;! 2-DIM ARRAYS
3201 @ 32439:               LINE   516 "regression-compile-tmp/skimp77.imp"
3202 @ 32477:               PUSH   A
3203 @ 32480:               PUSH   AP
3204 @ 32483:               ACCESS
3205 @ 32484:               PUSHI  #0x00000001
3206 @ 32489:               JUMPIF # L_0007

   517             DUMP(M'SUB',M'ACC',BR(LEVEL),WS-1)        ;! PERFORM 2-DIM ARRAY DECLARATION CALCULATIONS
3207 @ 32493:               LINE   517 "regression-compile-tmp/skimp77.imp"
3208 @ 32531:               PUSH   DUMP
3209 @ 32534:               PUSHI  #0x00535542
3210 @ 32539:               ASSPAR
3211 @ 32540:               PUSHI  #0x00414343
3212 @ 32545:               ASSPAR
3213 @ 32546:               PUSH   BR
3214 @ 32549:               PUSH   LEVEL
3215 @ 32552:               ACCESS
3216 @ 32553:               ASSPAR
3217 @ 32554:               PUSH   WS
3218 @ 32557:               PUSHI  #0x00000001
3219 @ 32562:               SUB   
3220 @ 32563:               ASSPAR
3221 @ 32564:               CALL  

   518             DUMP(M'STR',M'ACC',BR(LEVEL),WS NEXT)
3222 @ 32565:               LINE   518 "regression-compile-tmp/skimp77.imp"
3223 @ 32603:               PUSH   DUMP
3224 @ 32606:               PUSHI  #0x00535452
3225 @ 32611:               ASSPAR
3226 @ 32612:               PUSHI  #0x00414343
3227 @ 32617:               ASSPAR
3228 @ 32618:               PUSH   BR
3229 @ 32621:               PUSH   LEVEL
3230 @ 32624:               ACCESS
3231 @ 32625:               ASSPAR
3232 @ 32626:               PUSH   WSNEXT
3233 @ 32629:               CALL  
3234 @ 32630:               ASSPAR
3235 @ 32631:               CALL  

   519             AP=AP+1
3236 @ 32632:               LINE   519 "regression-compile-tmp/skimp77.imp"
3237 @ 32670:               PUSH   AP
3238 @ 32673:               PUSH   AP
3239 @ 32676:               PUSHI  #0x00000001
3240 @ 32681:               ADD   
3241 @ 32682:               ASSVAL

   520             SEXPR                                     ;! LOWER BOUND EXPR FOR 2ND DIM
3242 @ 32683:               LINE   520 "regression-compile-tmp/skimp77.imp"
3243 @ 32721:               PUSH   SEXPR
3244 @ 32724:               CALL  

   521             DUMP(M'MLT',M'ACC',BR(LEVEL),WS-1)
3245 @ 32725:               LINE   521 "regression-compile-tmp/skimp77.imp"
3246 @ 32763:               PUSH   DUMP
3247 @ 32766:               PUSHI  #0x004d4c54
3248 @ 32771:               ASSPAR
3249 @ 32772:               PUSHI  #0x00414343
3250 @ 32777:               ASSPAR
3251 @ 32778:               PUSH   BR
3252 @ 32781:               PUSH   LEVEL
3253 @ 32784:               ACCESS
3254 @ 32785:               ASSPAR
3255 @ 32786:               PUSH   WS
3256 @ 32789:               PUSHI  #0x00000001
3257 @ 32794:               SUB   
3258 @ 32795:               ASSPAR
3259 @ 32796:               CALL  

   522             DUMP(M'STR',M'ACC',BR(LEVEL),WS NEXT)
3260 @ 32797:               LINE   522 "regression-compile-tmp/skimp77.imp"
3261 @ 32835:               PUSH   DUMP
3262 @ 32838:               PUSHI  #0x00535452
3263 @ 32843:               ASSPAR
3264 @ 32844:               PUSHI  #0x00414343
3265 @ 32849:               ASSPAR
3266 @ 32850:               PUSH   BR
3267 @ 32853:               PUSH   LEVEL
3268 @ 32856:               ACCESS
3269 @ 32857:               ASSPAR
3270 @ 32858:               PUSH   WSNEXT
3271 @ 32861:               CALL  
3272 @ 32862:               ASSPAR
3273 @ 32863:               CALL  

   523             SEXPR                                     ;! UPPER BOUND EXPR FOR 2ND DIM
3274 @ 32864:               LINE   523 "regression-compile-tmp/skimp77.imp"
3275 @ 32902:               PUSH   SEXPR
3276 @ 32905:               CALL  

   524             DUMP(M'LDA',M'ACC',M'ACC',1)
3277 @ 32906:               LINE   524 "regression-compile-tmp/skimp77.imp"
3278 @ 32944:               PUSH   DUMP
3279 @ 32947:               PUSHI  #0x004c4441
3280 @ 32952:               ASSPAR
3281 @ 32953:               PUSHI  #0x00414343
3282 @ 32958:               ASSPAR
3283 @ 32959:               PUSHI  #0x00414343
3284 @ 32964:               ASSPAR
3285 @ 32965:               PUSHI  #0x00000001
3286 @ 32970:               ASSPAR
3287 @ 32971:               CALL  

   525             DUMP(M'MLT',M'ACC',BR(LEVEL),WS-2)
3288 @ 32972:               LINE   525 "regression-compile-tmp/skimp77.imp"
3289 @ 33010:               PUSH   DUMP
3290 @ 33013:               PUSHI  #0x004d4c54
3291 @ 33018:               ASSPAR
3292 @ 33019:               PUSHI  #0x00414343
3293 @ 33024:               ASSPAR
3294 @ 33025:               PUSH   BR
3295 @ 33028:               PUSH   LEVEL
3296 @ 33031:               ACCESS
3297 @ 33032:               ASSPAR
3298 @ 33033:               PUSH   WS
3299 @ 33036:               PUSHI  #0x00000002
3300 @ 33041:               SUB   
3301 @ 33042:               ASSPAR
3302 @ 33043:               CALL  

   526             DUMP(M'STR',M'ACC',BR(LEVEL),WS NEXT)
3303 @ 33044:               LINE   526 "regression-compile-tmp/skimp77.imp"
3304 @ 33082:               PUSH   DUMP
3305 @ 33085:               PUSHI  #0x00535452
3306 @ 33090:               ASSPAR
3307 @ 33091:               PUSHI  #0x00414343
3308 @ 33096:               ASSPAR
3309 @ 33097:               PUSH   BR
3310 @ 33100:               PUSH   LEVEL
3311 @ 33103:               ACCESS
3312 @ 33104:               ASSPAR
3313 @ 33105:               PUSH   WSNEXT
3314 @ 33108:               CALL  
3315 @ 33109:               ASSPAR
3316 @ 33110:               CALL  

   527             WS=WS-4                                   ;! RESTORE WORKSPACE POINTER
3317 @ 33111:               LINE   527 "regression-compile-tmp/skimp77.imp"
3318 @ 33149:               PUSH   WS
3319 @ 33152:               PUSH   WS
3320 @ 33155:               PUSHI  #0x00000004
3321 @ 33160:               SUB   
3322 @ 33161:               ASSVAL

   528             I=2                                       ;! NO OF DIMS
3323 @ 33162:               LINE   528 "regression-compile-tmp/skimp77.imp"
3324 @ 33200:               PUSH   I
3325 @ 33203:               PUSHI  #0x00000002
3326 @ 33208:               ASSVAL

   529             %FINISH %ELSE %START                      ;! 1-DIM ARRAYS
3327 @ 33209:               LINE   529 "regression-compile-tmp/skimp77.imp"
3328 @ 33247:               GOTO   L_0006
3329 @ 33250:               LOCATE L_0007

   530             DUMP(M'STR',M'ACC',BR(LEVEL),WS NEXT)
3330 @ 33253:               LINE   530 "regression-compile-tmp/skimp77.imp"
3331 @ 33291:               PUSH   DUMP
3332 @ 33294:               PUSHI  #0x00535452
3333 @ 33299:               ASSPAR
3334 @ 33300:               PUSHI  #0x00414343
3335 @ 33305:               ASSPAR
3336 @ 33306:               PUSH   BR
3337 @ 33309:               PUSH   LEVEL
3338 @ 33312:               ACCESS
3339 @ 33313:               ASSPAR
3340 @ 33314:               PUSH   WSNEXT
3341 @ 33317:               CALL  
3342 @ 33318:               ASSPAR
3343 @ 33319:               CALL  

   531             WS=WS-2                                   ;! RESTORE WORKSPACE POINTER
3344 @ 33320:               LINE   531 "regression-compile-tmp/skimp77.imp"
3345 @ 33358:               PUSH   WS
3346 @ 33361:               PUSH   WS
3347 @ 33364:               PUSHI  #0x00000002
3348 @ 33369:               SUB   
3349 @ 33370:               ASSVAL

   532             I=1                                       ;! NO OF DIMS
3350 @ 33371:               LINE   532 "regression-compile-tmp/skimp77.imp"
3351 @ 33409:               PUSH   I
3352 @ 33412:               PUSHI  #0x00000001
3353 @ 33417:               ASSVAL

   533             %FINISH
3354 @ 33418:               LINE   533 "regression-compile-tmp/skimp77.imp"
3355 @ 33456:               LOCATE L_0006

   534          J=2                                          ;! TAG FOR 'ARRAY'
3356 @ 33459:               LINE   534 "regression-compile-tmp/skimp77.imp"
3357 @ 33497:               PUSH   J
3358 @ 33500:               PUSHI  #0x00000002
3359 @ 33505:               ASSVAL

   535          AP=APP                                       ;! RESTORE AP TO BEFORE LIST OF NAMES
3360 @ 33506:               LINE   535 "regression-compile-tmp/skimp77.imp"
3361 @ 33544:               PUSH   AP
3362 @ 33547:               PUSH   APP
3363 @ 33550:               ASSVAL

   536          %FINISH %ELSE %START                         ;! SCALAR DECLARATIONS
3364 @ 33551:               LINE   536 "regression-compile-tmp/skimp77.imp"
3365 @ 33589:               GOTO   L_0003
3366 @ 33592:               LOCATE L_0004

   537          I=0                                          ;! DIMS=0 FOR SCALARS
3367 @ 33595:               LINE   537 "regression-compile-tmp/skimp77.imp"
3368 @ 33633:               PUSH   I
3369 @ 33636:               PUSHI  #0x00000000
3370 @ 33641:               ASSVAL

   538          J=0                                          ;! TAG FOR SCALAR
3371 @ 33642:               LINE   538 "regression-compile-tmp/skimp77.imp"
3372 @ 33680:               PUSH   J
3373 @ 33683:               PUSHI  #0x00000000
3374 @ 33688:               ASSVAL

   539          %FINISH
3375 @ 33689:               LINE   539 "regression-compile-tmp/skimp77.imp"
3376 @ 33727:               LOCATE L_0003

   540  L52:  STORE TAG(A(AP+1),J,1,I,LEVEL,RAD(LEVEL))       ;! PUSHDOWN TAG FOR THIS NAME
3377 @ 33730:               LINE   540 "regression-compile-tmp/skimp77.imp"
3378 @ 33768:               LABEL  L_00dc
3379 @ 33771:               LINE   540 "regression-compile-tmp/skimp77.imp"
3380 @ 33809:               PUSH   STORETAG
3381 @ 33812:               PUSH   A
3382 @ 33815:               PUSH   AP
3383 @ 33818:               PUSHI  #0x00000001
3384 @ 33823:               ADD   
3385 @ 33824:               ACCESS
3386 @ 33825:               ASSPAR
3387 @ 33826:               PUSH   J
3388 @ 33829:               ASSPAR
3389 @ 33830:               PUSHI  #0x00000001
3390 @ 33835:               ASSPAR
3391 @ 33836:               PUSH   I
3392 @ 33839:               ASSPAR
3393 @ 33840:               PUSH   LEVEL
3394 @ 33843:               ASSPAR
3395 @ 33844:               PUSH   RAD
3396 @ 33847:               PUSH   LEVEL
3397 @ 33850:               ACCESS
3398 @ 33851:               ASSPAR
3399 @ 33852:               CALL  

   541       %IF I=0 %THEN RAD(LEVEL)=RAD(LEVEL)+1 %ELSE %START;! ONE RELATIVE LOCATION FOR SCALARS
3400 @ 33853:               LINE   541 "regression-compile-tmp/skimp77.imp"
3401 @ 33891:               PUSH   I
3402 @ 33894:               PUSHI  #0x00000000
3403 @ 33899:               JUMPIF # L_0004
3404 @ 33903:               PUSH   RAD
3405 @ 33906:               PUSH   LEVEL
3406 @ 33909:               ACCESS
3407 @ 33910:               PUSH   RAD
3408 @ 33913:               PUSH   LEVEL
3409 @ 33916:               ACCESS
3410 @ 33917:               PUSHI  #0x00000001
3411 @ 33922:               ADD   
3412 @ 33923:               ASSVAL
3413 @ 33924:               GOTO   L_0003
3414 @ 33927:               LOCATE L_0004

   542          %IF I=1 %THEN %START                         ;! 1-DIM ARRAYS
3415 @ 33930:               LINE   542 "regression-compile-tmp/skimp77.imp"
3416 @ 33968:               PUSH   I
3417 @ 33971:               PUSHI  #0x00000001
3418 @ 33976:               JUMPIF # L_0007

   543             DUMP(M'SUB',M'STP',BR(LEVEL),WS)
3419 @ 33980:               LINE   543 "regression-compile-tmp/skimp77.imp"
3420 @ 34018:               PUSH   DUMP
3421 @ 34021:               PUSHI  #0x00535542
3422 @ 34026:               ASSPAR
3423 @ 34027:               PUSHI  #0x00535450
3424 @ 34032:               ASSPAR
3425 @ 34033:               PUSH   BR
3426 @ 34036:               PUSH   LEVEL
3427 @ 34039:               ACCESS
3428 @ 34040:               ASSPAR
3429 @ 34041:               PUSH   WS
3430 @ 34044:               ASSPAR
3431 @ 34045:               CALL  

   544             DUMP(M'STR',M'STP',BR(LEVEL),RAD(LEVEL))
3432 @ 34046:               LINE   544 "regression-compile-tmp/skimp77.imp"
3433 @ 34084:               PUSH   DUMP
3434 @ 34087:               PUSHI  #0x00535452
3435 @ 34092:               ASSPAR
3436 @ 34093:               PUSHI  #0x00535450
3437 @ 34098:               ASSPAR
3438 @ 34099:               PUSH   BR
3439 @ 34102:               PUSH   LEVEL
3440 @ 34105:               ACCESS
3441 @ 34106:               ASSPAR
3442 @ 34107:               PUSH   RAD
3443 @ 34110:               PUSH   LEVEL
3444 @ 34113:               ACCESS
3445 @ 34114:               ASSPAR
3446 @ 34115:               CALL  

   545             DUMP(M'ADD',M'STP',BR(LEVEL),WS+1)
3447 @ 34116:               LINE   545 "regression-compile-tmp/skimp77.imp"
3448 @ 34154:               PUSH   DUMP
3449 @ 34157:               PUSHI  #0x00414444
3450 @ 34162:               ASSPAR
3451 @ 34163:               PUSHI  #0x00535450
3452 @ 34168:               ASSPAR
3453 @ 34169:               PUSH   BR
3454 @ 34172:               PUSH   LEVEL
3455 @ 34175:               ACCESS
3456 @ 34176:               ASSPAR
3457 @ 34177:               PUSH   WS
3458 @ 34180:               PUSHI  #0x00000001
3459 @ 34185:               ADD   
3460 @ 34186:               ASSPAR
3461 @ 34187:               CALL  

   546             %FINISH %ELSE %START                      ;! 2-DIM ARRAYS
3462 @ 34188:               LINE   546 "regression-compile-tmp/skimp77.imp"
3463 @ 34226:               GOTO   L_0006
3464 @ 34229:               LOCATE L_0007

   547             DUMP(M'LOAD',M'ACC',BR(LEVEL),WS+1)
3465 @ 34232:               LINE   547 "regression-compile-tmp/skimp77.imp"
3466 @ 34270:               PUSH   DUMP
3467 @ 34273:               PUSHI  #0x4c4f4144
3468 @ 34278:               ASSPAR
3469 @ 34279:               PUSHI  #0x00414343
3470 @ 34284:               ASSPAR
3471 @ 34285:               PUSH   BR
3472 @ 34288:               PUSH   LEVEL
3473 @ 34291:               ACCESS
3474 @ 34292:               ASSPAR
3475 @ 34293:               PUSH   WS
3476 @ 34296:               PUSHI  #0x00000001
3477 @ 34301:               ADD   
3478 @ 34302:               ASSPAR
3479 @ 34303:               CALL  

   548             DUMP(M'STR',M'ACC',BR(LEVEL),RAD(LEVEL))
3480 @ 34304:               LINE   548 "regression-compile-tmp/skimp77.imp"
3481 @ 34342:               PUSH   DUMP
3482 @ 34345:               PUSHI  #0x00535452
3483 @ 34350:               ASSPAR
3484 @ 34351:               PUSHI  #0x00414343
3485 @ 34356:               ASSPAR
3486 @ 34357:               PUSH   BR
3487 @ 34360:               PUSH   LEVEL
3488 @ 34363:               ACCESS
3489 @ 34364:               ASSPAR
3490 @ 34365:               PUSH   RAD
3491 @ 34368:               PUSH   LEVEL
3492 @ 34371:               ACCESS
3493 @ 34372:               ASSPAR
3494 @ 34373:               CALL  

   549             DUMP(M'SUB',M'STP',BR(LEVEL),WS+2)
3495 @ 34374:               LINE   549 "regression-compile-tmp/skimp77.imp"
3496 @ 34412:               PUSH   DUMP
3497 @ 34415:               PUSHI  #0x00535542
3498 @ 34420:               ASSPAR
3499 @ 34421:               PUSHI  #0x00535450
3500 @ 34426:               ASSPAR
3501 @ 34427:               PUSH   BR
3502 @ 34430:               PUSH   LEVEL
3503 @ 34433:               ACCESS
3504 @ 34434:               ASSPAR
3505 @ 34435:               PUSH   WS
3506 @ 34438:               PUSHI  #0x00000002
3507 @ 34443:               ADD   
3508 @ 34444:               ASSPAR
3509 @ 34445:               CALL  

   550             DUMP(M'LDA',M'ACC',M'STP',0)
3510 @ 34446:               LINE   550 "regression-compile-tmp/skimp77.imp"
3511 @ 34484:               PUSH   DUMP
3512 @ 34487:               PUSHI  #0x004c4441
3513 @ 34492:               ASSPAR
3514 @ 34493:               PUSHI  #0x00414343
3515 @ 34498:               ASSPAR
3516 @ 34499:               PUSHI  #0x00535450
3517 @ 34504:               ASSPAR
3518 @ 34505:               PUSHI  #0x00000000
3519 @ 34510:               ASSPAR
3520 @ 34511:               CALL  

   551             DUMP(M'SUB',M'ACC',BR(LEVEL),WS)
3521 @ 34512:               LINE   551 "regression-compile-tmp/skimp77.imp"
3522 @ 34550:               PUSH   DUMP
3523 @ 34553:               PUSHI  #0x00535542
3524 @ 34558:               ASSPAR
3525 @ 34559:               PUSHI  #0x00414343
3526 @ 34564:               ASSPAR
3527 @ 34565:               PUSH   BR
3528 @ 34568:               PUSH   LEVEL
3529 @ 34571:               ACCESS
3530 @ 34572:               ASSPAR
3531 @ 34573:               PUSH   WS
3532 @ 34576:               ASSPAR
3533 @ 34577:               CALL  

   552             DUMP(M'STR',M'ACC',BR(LEVEL),RAD(LEVEL)+1)
3534 @ 34578:               LINE   552 "regression-compile-tmp/skimp77.imp"
3535 @ 34616:               PUSH   DUMP
3536 @ 34619:               PUSHI  #0x00535452
3537 @ 34624:               ASSPAR
3538 @ 34625:               PUSHI  #0x00414343
3539 @ 34630:               ASSPAR
3540 @ 34631:               PUSH   BR
3541 @ 34634:               PUSH   LEVEL
3542 @ 34637:               ACCESS
3543 @ 34638:               ASSPAR
3544 @ 34639:               PUSH   RAD
3545 @ 34642:               PUSH   LEVEL
3546 @ 34645:               ACCESS
3547 @ 34646:               PUSHI  #0x00000001
3548 @ 34651:               ADD   
3549 @ 34652:               ASSPAR
3550 @ 34653:               CALL  

   553             DUMP(M'ADD',M'STP',BR(LEVEL),WS+3)
3551 @ 34654:               LINE   553 "regression-compile-tmp/skimp77.imp"
3552 @ 34692:               PUSH   DUMP
3553 @ 34695:               PUSHI  #0x00414444
3554 @ 34700:               ASSPAR
3555 @ 34701:               PUSHI  #0x00535450
3556 @ 34706:               ASSPAR
3557 @ 34707:               PUSH   BR
3558 @ 34710:               PUSH   LEVEL
3559 @ 34713:               ACCESS
3560 @ 34714:               ASSPAR
3561 @ 34715:               PUSH   WS
3562 @ 34718:               PUSHI  #0x00000003
3563 @ 34723:               ADD   
3564 @ 34724:               ASSPAR
3565 @ 34725:               CALL  

   554             %FINISH
3566 @ 34726:               LINE   554 "regression-compile-tmp/skimp77.imp"
3567 @ 34764:               LOCATE L_0006

   555          RAD(LEVEL)=RAD(LEVEL)+2                      ;! 2 RELATIVE LOCATIONS FOR ARRAYS
3568 @ 34767:               LINE   555 "regression-compile-tmp/skimp77.imp"
3569 @ 34805:               PUSH   RAD
3570 @ 34808:               PUSH   LEVEL
3571 @ 34811:               ACCESS
3572 @ 34812:               PUSH   RAD
3573 @ 34815:               PUSH   LEVEL
3574 @ 34818:               ACCESS
3575 @ 34819:               PUSHI  #0x00000002
3576 @ 34824:               ADD   
3577 @ 34825:               ASSVAL

   556          %FINISH
3578 @ 34826:               LINE   556 "regression-compile-tmp/skimp77.imp"
3579 @ 34864:               LOCATE L_0003

   557       AP=AP+2                                         ;! AP ON <NAMS>
3580 @ 34867:               LINE   557 "regression-compile-tmp/skimp77.imp"
3581 @ 34905:               PUSH   AP
3582 @ 34908:               PUSH   AP
3583 @ 34911:               PUSHI  #0x00000002
3584 @ 34916:               ADD   
3585 @ 34917:               ASSVAL

   558       %IF A(AP)=1 %THEN ->L52                          ;! MORE NAMES IN LIST OF NAMES
3586 @ 34918:               LINE   558 "regression-compile-tmp/skimp77.imp"
3587 @ 34956:               PUSH   A
3588 @ 34959:               PUSH   AP
3589 @ 34962:               ACCESS
3590 @ 34963:               PUSHI  #0x00000001
3591 @ 34968:               JUMPIF # L_0004
3592 @ 34972:               JUMP   L_00dc
3593 @ 34975:               LOCATE L_0004

   559       %RETURN
   560  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !
   561  ! RT SPEC? . . .
3594 @ 34978:               LINE   559 "regression-compile-tmp/skimp77.imp"
3595 @ 35016:               RETURN

   562  L60:  I=A(AP)-1                                          ;! ROUTINE/FN
3596 @ 35017:               LINE   562 "regression-compile-tmp/skimp77.imp"
3597 @ 35055:               LABEL  L_00d7
3598 @ 35058:               LINE   562 "regression-compile-tmp/skimp77.imp"
3599 @ 35096:               PUSH   I
3600 @ 35099:               PUSH   A
3601 @ 35102:               PUSH   AP
3602 @ 35105:               ACCESS
3603 @ 35106:               PUSHI  #0x00000001
3604 @ 35111:               SUB   
3605 @ 35112:               ASSVAL

   563       J=A(AP+1)                                          ;! SPEC ?
3606 @ 35113:               LINE   563 "regression-compile-tmp/skimp77.imp"
3607 @ 35151:               PUSH   J
3608 @ 35154:               PUSH   A
3609 @ 35157:               PUSH   AP
3610 @ 35160:               PUSHI  #0x00000001
3611 @ 35165:               ADD   
3612 @ 35166:               ACCESS
3613 @ 35167:               ASSVAL

   564       K=A(AP+2)                                          ;! NAME OF ROUTIINE OR FN
3614 @ 35168:               LINE   564 "regression-compile-tmp/skimp77.imp"
3615 @ 35206:               PUSH   K
3616 @ 35209:               PUSH   A
3617 @ 35212:               PUSH   AP
3618 @ 35215:               PUSHI  #0x00000002
3619 @ 35220:               ADD   
3620 @ 35221:               ACCESS
3621 @ 35222:               ASSVAL

   565       AP=AP+3                                            ;! AP ON <FPP>
3622 @ 35223:               LINE   565 "regression-compile-tmp/skimp77.imp"
3623 @ 35261:               PUSH   AP
3624 @ 35264:               PUSH   AP
3625 @ 35267:               PUSHI  #0x00000003
3626 @ 35272:               ADD   
3627 @ 35273:               ASSVAL

   566       L=0                                                ;! PARAMETER COUNT
3628 @ 35274:               LINE   566 "regression-compile-tmp/skimp77.imp"
3629 @ 35312:               PUSH   L
3630 @ 35315:               PUSHI  #0x00000000
3631 @ 35320:               ASSVAL

   567       M=10                                               ;! FIRST RELATIVE ADDRESS TO BE ALLOCATED
3632 @ 35321:               LINE   567 "regression-compile-tmp/skimp77.imp"
3633 @ 35359:               PUSH   M
3634 @ 35362:               PUSHI  #0x0000000a
3635 @ 35367:               ASSVAL

   568  L63:  %IF A(AP)=1 %THEN %START                           ;! PARAMETERS PRESENT
3636 @ 35368:               LINE   568 "regression-compile-tmp/skimp77.imp"
3637 @ 35406:               LABEL  L_00dd
3638 @ 35409:               LINE   568 "regression-compile-tmp/skimp77.imp"
3639 @ 35447:               PUSH   A
3640 @ 35450:               PUSH   AP
3641 @ 35453:               ACCESS
3642 @ 35454:               PUSHI  #0x00000001
3643 @ 35459:               JUMPIF # L_0004

   569          AP=AP+1                                         ;! AP ON <ARRN>
3644 @ 35463:               LINE   569 "regression-compile-tmp/skimp77.imp"
3645 @ 35501:               PUSH   AP
3646 @ 35504:               PUSH   AP
3647 @ 35507:               PUSHI  #0x00000001
3648 @ 35512:               ADD   
3649 @ 35513:               ASSVAL

   570          %IF A(AP)=1 %THEN N=3 %ELSE N=3-A(AP)           ;! SET TAG FOR PARAMETER FORM
3650 @ 35514:               LINE   570 "regression-compile-tmp/skimp77.imp"
3651 @ 35552:               PUSH   A
3652 @ 35555:               PUSH   AP
3653 @ 35558:               ACCESS
3654 @ 35559:               PUSHI  #0x00000001
3655 @ 35564:               JUMPIF # L_0007
3656 @ 35568:               PUSH   N
3657 @ 35571:               PUSHI  #0x00000003
3658 @ 35576:               ASSVAL
3659 @ 35577:               GOTO   L_0006
3660 @ 35580:               LOCATE L_0007
3661 @ 35583:               PUSH   N
3662 @ 35586:               PUSHI  #0x00000003
3663 @ 35591:               PUSH   A
3664 @ 35594:               PUSH   AP
3665 @ 35597:               ACCESS
3666 @ 35598:               SUB   
3667 @ 35599:               ASSVAL
3668 @ 35600:               LOCATE L_0006

   571          P=N<<28!1<<24!(LEVEL+1)<<16                     ;! SET UP PATTERN FOR WHOLE TAG
3669 @ 35603:               LINE   571 "regression-compile-tmp/skimp77.imp"
3670 @ 35641:               PUSH   P
3671 @ 35644:               PUSH   N
3672 @ 35647:               PUSHI  #0x0000001c
3673 @ 35652:               LSH   
3674 @ 35653:               PUSHI  #0x00000001
3675 @ 35658:               PUSHI  #0x00000018
3676 @ 35663:               LSH   
3677 @ 35664:               OR    
3678 @ 35665:               PUSH   LEVEL
3679 @ 35668:               PUSHI  #0x00000001
3680 @ 35673:               ADD   
3681 @ 35674:               PUSHI  #0x00000010
3682 @ 35679:               LSH   
3683 @ 35680:               OR    
3684 @ 35681:               ASSVAL

   572  L62:     L=L+1                                           ;! PARAMETER COUNT
3685 @ 35682:               LINE   572 "regression-compile-tmp/skimp77.imp"
3686 @ 35720:               LABEL  L_00de
3687 @ 35723:               LINE   572 "regression-compile-tmp/skimp77.imp"
3688 @ 35761:               PUSH   L
3689 @ 35764:               PUSH   L
3690 @ 35767:               PUSHI  #0x00000001
3691 @ 35772:               ADD   
3692 @ 35773:               ASSVAL

   573          %IF L>15 %THEN %START
3693 @ 35774:               LINE   573 "regression-compile-tmp/skimp77.imp"
3694 @ 35812:               PUSH   L
3695 @ 35815:               PUSHI  #0x0000000f
3696 @ 35820:               JUMPIF <= L_0007

   574             FAULT(M'TOO ',M'MANY',M' PAR',M'AMS ')
3697 @ 35824:               LINE   574 "regression-compile-tmp/skimp77.imp"
3698 @ 35862:               PUSH   FAULT
3699 @ 35865:               PUSHI  #0x544f4f20
3700 @ 35870:               ASSPAR
3701 @ 35871:               PUSHI  #0x4d414e59
3702 @ 35876:               ASSPAR
3703 @ 35877:               PUSHI  #0x20504152
3704 @ 35882:               ASSPAR
3705 @ 35883:               PUSHI  #0x414d5320
3706 @ 35888:               ASSPAR
3707 @ 35889:               CALL  

   575             ->L61 ; %FINISH                               ;! IGNORE SUPERFLUOUS PARAMS
3708 @ 35890:               LINE   575 "regression-compile-tmp/skimp77.imp"
3709 @ 35928:               JUMP   L_00df
3710 @ 35931:               LINE   575 "regression-compile-tmp/skimp77.imp"
3711 @ 35969:               LOCATE L_0007

   576          PT(L)=P!M                                       ;! STORE TAG FOR THIS PARAM
3712 @ 35972:               LINE   576 "regression-compile-tmp/skimp77.imp"
3713 @ 36010:               PUSH   PT
3714 @ 36013:               PUSH   L
3715 @ 36016:               ACCESS
3716 @ 36017:               PUSH   P
3717 @ 36020:               PUSH   M
3718 @ 36023:               OR    
3719 @ 36024:               ASSVAL

   577          PN(L)=A(AP+1)                                   ;! STORE THE NAMES IDENT. NO
3720 @ 36025:               LINE   577 "regression-compile-tmp/skimp77.imp"
3721 @ 36063:               PUSH   PN
3722 @ 36066:               PUSH   L
3723 @ 36069:               ACCESS
3724 @ 36070:               PUSH   A
3725 @ 36073:               PUSH   AP
3726 @ 36076:               PUSHI  #0x00000001
3727 @ 36081:               ADD   
3728 @ 36082:               ACCESS
3729 @ 36083:               ASSVAL

   578          %IF N=3 %THEN M=M+2 %ELSE M=M+1                 ;! NEXT RELATIVE ADDRESS
3730 @ 36084:               LINE   578 "regression-compile-tmp/skimp77.imp"
3731 @ 36122:               PUSH   N
3732 @ 36125:               PUSHI  #0x00000003
3733 @ 36130:               JUMPIF # L_0007
3734 @ 36134:               PUSH   M
3735 @ 36137:               PUSH   M
3736 @ 36140:               PUSHI  #0x00000002
3737 @ 36145:               ADD   
3738 @ 36146:               ASSVAL
3739 @ 36147:               GOTO   L_0006
3740 @ 36150:               LOCATE L_0007
3741 @ 36153:               PUSH   M
3742 @ 36156:               PUSH   M
3743 @ 36159:               PUSHI  #0x00000001
3744 @ 36164:               ADD   
3745 @ 36165:               ASSVAL
3746 @ 36166:               LOCATE L_0006

   579          AP=AP+2                                         ;! AP ON <NAMS>
3747 @ 36169:               LINE   579 "regression-compile-tmp/skimp77.imp"
3748 @ 36207:               PUSH   AP
3749 @ 36210:               PUSH   AP
3750 @ 36213:               PUSHI  #0x00000002
3751 @ 36218:               ADD   
3752 @ 36219:               ASSVAL

   580          %IF A(AP)=1 %THEN ->L62                          ;! MORE NAMES IN LIST
3753 @ 36220:               LINE   580 "regression-compile-tmp/skimp77.imp"
3754 @ 36258:               PUSH   A
3755 @ 36261:               PUSH   AP
3756 @ 36264:               ACCESS
3757 @ 36265:               PUSHI  #0x00000001
3758 @ 36270:               JUMPIF # L_0007
3759 @ 36274:               JUMP   L_00de
3760 @ 36277:               LOCATE L_0007

   581          AP=AP+1                                         ;! AP ON <FPS>
3761 @ 36280:               LINE   581 "regression-compile-tmp/skimp77.imp"
3762 @ 36318:               PUSH   AP
3763 @ 36321:               PUSH   AP
3764 @ 36324:               PUSHI  #0x00000001
3765 @ 36329:               ADD   
3766 @ 36330:               ASSVAL

   582          ->L63 ; %FINISH
3767 @ 36331:               LINE   582 "regression-compile-tmp/skimp77.imp"
3768 @ 36369:               JUMP   L_00dd
3769 @ 36372:               LINE   582 "regression-compile-tmp/skimp77.imp"
3770 @ 36410:               LOCATE L_0004

   583  L61:  N=LINK(K)                                          ;! LINK TO TAG FOR NAME OF ROUTINE OR FN
3771 @ 36413:               LINE   583 "regression-compile-tmp/skimp77.imp"
3772 @ 36451:               LABEL  L_00df
3773 @ 36454:               LINE   583 "regression-compile-tmp/skimp77.imp"
3774 @ 36492:               PUSH   N
3775 @ 36495:               PUSH   LINK
3776 @ 36498:               PUSH   K
3777 @ 36501:               ACCESS
3778 @ 36502:               ASSVAL

   584       %IF N=0 %OR TAG(N)>>16&15<LEVEL %THEN %START       ;! NAME NOT SET OR SET AT LOWER LEVEL
3779 @ 36503:               LINE   584 "regression-compile-tmp/skimp77.imp"
3780 @ 36541:               PUSH   N
3781 @ 36544:               PUSHI  #0x00000000
3782 @ 36549:               JUMPIF = L_0005
3783 @ 36553:               PUSH   TAG
3784 @ 36556:               PUSH   N
3785 @ 36559:               ACCESS
3786 @ 36560:               PUSHI  #0x00000010
3787 @ 36565:               RSH   
3788 @ 36566:               PUSHI  #0x0000000f
3789 @ 36571:               AND   
3790 @ 36572:               PUSH   LEVEL
3791 @ 36575:               JUMPIF >= L_0004
3792 @ 36579:               LOCATE L_0005

   585          %IF L>0 %THEN %START                            ;! PARAMETERS PRESENT
3793 @ 36582:               LINE   585 "regression-compile-tmp/skimp77.imp"
3794 @ 36620:               PUSH   L
3795 @ 36623:               PUSHI  #0x00000000
3796 @ 36628:               JUMPIF <= L_0007

   586             P=1                                          ;! PARAMETER COUNT
3797 @ 36632:               LINE   586 "regression-compile-tmp/skimp77.imp"
3798 @ 36670:               PUSH   P
3799 @ 36673:               PUSHI  #0x00000001
3800 @ 36678:               ASSVAL

   587             Q=K                                          ;! 'INSERT AFTER' POINTER
3801 @ 36679:               LINE   587 "regression-compile-tmp/skimp77.imp"
3802 @ 36717:               PUSH   Q
3803 @ 36720:               PUSH   K
3804 @ 36723:               ASSVAL

   588  L64:        R=NEWCELL                                    ;! PUSHDOWN TAG FOR PARAMETER
3805 @ 36724:               LINE   588 "regression-compile-tmp/skimp77.imp"
3806 @ 36762:               LABEL  L_00e0
3807 @ 36765:               LINE   588 "regression-compile-tmp/skimp77.imp"
3808 @ 36803:               PUSH   R
3809 @ 36806:               PUSH   NEWCELL
3810 @ 36809:               CALL  
3811 @ 36810:               ASSVAL

   589             TAG(R)=PT(P)
3812 @ 36811:               LINE   589 "regression-compile-tmp/skimp77.imp"
3813 @ 36849:               PUSH   TAG
3814 @ 36852:               PUSH   R
3815 @ 36855:               ACCESS
3816 @ 36856:               PUSH   PT
3817 @ 36859:               PUSH   P
3818 @ 36862:               ACCESS
3819 @ 36863:               ASSVAL

   590             LINK(R)=LINK(Q)
3820 @ 36864:               LINE   590 "regression-compile-tmp/skimp77.imp"
3821 @ 36902:               PUSH   LINK
3822 @ 36905:               PUSH   R
3823 @ 36908:               ACCESS
3824 @ 36909:               PUSH   LINK
3825 @ 36912:               PUSH   Q
3826 @ 36915:               ACCESS
3827 @ 36916:               ASSVAL

   591             PTC(P)=R                                     ;! SAVE POINTER TO TAG CELL
3828 @ 36917:               LINE   591 "regression-compile-tmp/skimp77.imp"
3829 @ 36955:               PUSH   PTC
3830 @ 36958:               PUSH   P
3831 @ 36961:               ACCESS
3832 @ 36962:               PUSH   R
3833 @ 36965:               ASSVAL

   592             LINK(Q)=R
3834 @ 36966:               LINE   592 "regression-compile-tmp/skimp77.imp"
3835 @ 37004:               PUSH   LINK
3836 @ 37007:               PUSH   Q
3837 @ 37010:               ACCESS
3838 @ 37011:               PUSH   R
3839 @ 37014:               ASSVAL

   593             Q=R                                          ;! NEW VALUE FOR 'INSERT AFTER' POINTER
3840 @ 37015:               LINE   593 "regression-compile-tmp/skimp77.imp"
3841 @ 37053:               PUSH   Q
3842 @ 37056:               PUSH   R
3843 @ 37059:               ASSVAL

   594             P=P+1                                        ;! PARAMETER COUNT
3844 @ 37060:               LINE   594 "regression-compile-tmp/skimp77.imp"
3845 @ 37098:               PUSH   P
3846 @ 37101:               PUSH   P
3847 @ 37104:               PUSHI  #0x00000001
3848 @ 37109:               ADD   
3849 @ 37110:               ASSVAL

   595             %IF P<=L %THEN ->L64                          ;! MORE PARAMETERS YET
3850 @ 37111:               LINE   595 "regression-compile-tmp/skimp77.imp"
3851 @ 37149:               PUSH   P
3852 @ 37152:               PUSH   L
3853 @ 37155:               JUMPIF > L_000a
3854 @ 37159:               JUMP   L_00e0
3855 @ 37162:               LOCATE L_000a

   596             %FINISH
3856 @ 37165:               LINE   596 "regression-compile-tmp/skimp77.imp"
3857 @ 37203:               LOCATE L_0007

   597          STORE TAG(K,4,I,L,LEVEL,BT NEXT)                ;! PUSHDOWN TAG FOR NAME OF ROUTINE OR FN
3858 @ 37206:               LINE   597 "regression-compile-tmp/skimp77.imp"
3859 @ 37244:               PUSH   STORETAG
3860 @ 37247:               PUSH   K
3861 @ 37250:               ASSPAR
3862 @ 37251:               PUSHI  #0x00000004
3863 @ 37256:               ASSPAR
3864 @ 37257:               PUSH   I
3865 @ 37260:               ASSPAR
3866 @ 37261:               PUSH   L
3867 @ 37264:               ASSPAR
3868 @ 37265:               PUSH   LEVEL
3869 @ 37268:               ASSPAR
3870 @ 37269:               PUSH   BTNEXT
3871 @ 37272:               CALL  
3872 @ 37273:               ASSPAR
3873 @ 37274:               CALL  

   598          %IF LEVEL=0 %THEN BAT(BTN-1)=K+65536            ;! FLAG FOR EXTERNAL SPECS
3874 @ 37275:               LINE   598 "regression-compile-tmp/skimp77.imp"
3875 @ 37313:               PUSH   LEVEL
3876 @ 37316:               PUSHI  #0x00000000
3877 @ 37321:               JUMPIF # L_0007
3878 @ 37325:               PUSH   BAT
3879 @ 37328:               PUSH   BTN
3880 @ 37331:               PUSHI  #0x00000001
3881 @ 37336:               SUB   
3882 @ 37337:               ACCESS
3883 @ 37338:               PUSH   K
3884 @ 37341:               PUSHI  #0x00010000
3885 @ 37346:               ADD   
3886 @ 37347:               ASSVAL
3887 @ 37348:               LOCATE L_0007

   599          %FINISH %ELSE %START                            ;! NAME ALREADY SET AT THIS LEVEL
3888 @ 37351:               LINE   599 "regression-compile-tmp/skimp77.imp"
3889 @ 37389:               GOTO   L_0003
3890 @ 37392:               LOCATE L_0004

   600          %IF J=2 %AND TAG(N)>>28=4 %THEN %START          ;! STATEMENT NOT A SPEC & FORM OF NAME IS RT
3891 @ 37395:               LINE   600 "regression-compile-tmp/skimp77.imp"
3892 @ 37433:               PUSH   J
3893 @ 37436:               PUSHI  #0x00000002
3894 @ 37441:               JUMPIF # L_0007
3895 @ 37445:               PUSH   TAG
3896 @ 37448:               PUSH   N
3897 @ 37451:               ACCESS
3898 @ 37452:               PUSHI  #0x0000001c
3899 @ 37457:               RSH   
3900 @ 37458:               PUSHI  #0x00000004
3901 @ 37463:               JUMPIF # L_0007

   601             %IF TAG(N)>>24&15\=I %THEN %START
3902 @ 37467:               LINE   601 "regression-compile-tmp/skimp77.imp"
3903 @ 37505:               PUSH   TAG
3904 @ 37508:               PUSH   N
3905 @ 37511:               ACCESS
3906 @ 37512:               PUSHI  #0x00000018
3907 @ 37517:               RSH   
3908 @ 37518:               PUSHI  #0x0000000f
3909 @ 37523:               AND   
3910 @ 37524:               PUSH   I
3911 @ 37527:               JUMPIF = L_000a

   602                PRINT NAME(K)
3912 @ 37531:               LINE   602 "regression-compile-tmp/skimp77.imp"
3913 @ 37569:               PUSH   PRINTNAME
3914 @ 37572:               PUSH   K
3915 @ 37575:               ASSPAR
3916 @ 37576:               CALL  

   603                FAULT(M'RT N',M'OT A',M'S SP',M'EC  ')
3917 @ 37577:               LINE   603 "regression-compile-tmp/skimp77.imp"
3918 @ 37615:               PUSH   FAULT
3919 @ 37618:               PUSHI  #0x5254204e
3920 @ 37623:               ASSPAR
3921 @ 37624:               PUSHI  #0x4f542041
3922 @ 37629:               ASSPAR
3923 @ 37630:               PUSHI  #0x53205350
3924 @ 37635:               ASSPAR
3925 @ 37636:               PUSHI  #0x45432020
3926 @ 37641:               ASSPAR
3927 @ 37642:               CALL  

   604                %FINISH
3928 @ 37643:               LINE   604 "regression-compile-tmp/skimp77.imp"
3929 @ 37681:               LOCATE L_000a

   605             %IF BAT(TAG(N)&65535)>=0 %THEN %START
3930 @ 37684:               LINE   605 "regression-compile-tmp/skimp77.imp"
3931 @ 37722:               PUSH   BAT
3932 @ 37725:               PUSH   TAG
3933 @ 37728:               PUSH   N
3934 @ 37731:               ACCESS
3935 @ 37732:               PUSHI  #0x0000ffff
3936 @ 37737:               AND   
3937 @ 37738:               ACCESS
3938 @ 37739:               PUSHI  #0x00000000
3939 @ 37744:               JUMPIF < L_000a

   606                PRINT NAME(K)
3940 @ 37748:               LINE   606 "regression-compile-tmp/skimp77.imp"
3941 @ 37786:               PUSH   PRINTNAME
3942 @ 37789:               PUSH   K
3943 @ 37792:               ASSPAR
3944 @ 37793:               CALL  

   607                FAULT(M'RT A',M'PPEA',M'RS T',M'WICE')
3945 @ 37794:               LINE   607 "regression-compile-tmp/skimp77.imp"
3946 @ 37832:               PUSH   FAULT
3947 @ 37835:               PUSHI  #0x52542041
3948 @ 37840:               ASSPAR
3949 @ 37841:               PUSHI  #0x50504541
3950 @ 37846:               ASSPAR
3951 @ 37847:               PUSHI  #0x52532054
3952 @ 37852:               ASSPAR
3953 @ 37853:               PUSHI  #0x57494345
3954 @ 37858:               ASSPAR
3955 @ 37859:               CALL  

   608                %FINISH
3956 @ 37860:               LINE   608 "regression-compile-tmp/skimp77.imp"
3957 @ 37898:               LOCATE L_000a

   609             P=TAG(N)>>20&15                              ;! NO OF PARAMS IN SPEC
3958 @ 37901:               LINE   609 "regression-compile-tmp/skimp77.imp"
3959 @ 37939:               PUSH   P
3960 @ 37942:               PUSH   TAG
3961 @ 37945:               PUSH   N
3962 @ 37948:               ACCESS
3963 @ 37949:               PUSHI  #0x00000014
3964 @ 37954:               RSH   
3965 @ 37955:               PUSHI  #0x0000000f
3966 @ 37960:               AND   
3967 @ 37961:               ASSVAL

   610             %IF L\=P %THEN %START
3968 @ 37962:               LINE   610 "regression-compile-tmp/skimp77.imp"
3969 @ 38000:               PUSH   L
3970 @ 38003:               PUSH   P
3971 @ 38006:               JUMPIF = L_000a

   611                FAULT(M'PARS',M' NOT',M' AS ',M'SPEC')
3972 @ 38010:               LINE   611 "regression-compile-tmp/skimp77.imp"
3973 @ 38048:               PUSH   FAULT
3974 @ 38051:               PUSHI  #0x50415253
3975 @ 38056:               ASSPAR
3976 @ 38057:               PUSHI  #0x204e4f54
3977 @ 38062:               ASSPAR
3978 @ 38063:               PUSHI  #0x20415320
3979 @ 38068:               ASSPAR
3980 @ 38069:               PUSHI  #0x53504543
3981 @ 38074:               ASSPAR
3982 @ 38075:               CALL  

   612                %IF L>P %THEN L=P                         ;! IGNORE SUPERFLUOUS PARAMS
3983 @ 38076:               LINE   612 "regression-compile-tmp/skimp77.imp"
3984 @ 38114:               PUSH   L
3985 @ 38117:               PUSH   P
3986 @ 38120:               JUMPIF <= L_000d
3987 @ 38124:               PUSH   L
3988 @ 38127:               PUSH   P
3989 @ 38130:               ASSVAL
3990 @ 38131:               LOCATE L_000d

   613                %FINISH
3991 @ 38134:               LINE   613 "regression-compile-tmp/skimp77.imp"
3992 @ 38172:               LOCATE L_000a

   614             %IF L>0 %THEN %START                         ;! PARAMS PRESENT
3993 @ 38175:               LINE   614 "regression-compile-tmp/skimp77.imp"
3994 @ 38213:               PUSH   L
3995 @ 38216:               PUSHI  #0x00000000
3996 @ 38221:               JUMPIF <= L_000a

   615                P=1                                       ;! PARAM COUNT
3997 @ 38225:               LINE   615 "regression-compile-tmp/skimp77.imp"
3998 @ 38263:               PUSH   P
3999 @ 38266:               PUSHI  #0x00000001
4000 @ 38271:               ASSVAL

   616                Q=LINK(N)                                 ;! LINK TO TAG OF FIRST PARAM
4001 @ 38272:               LINE   616 "regression-compile-tmp/skimp77.imp"
4002 @ 38310:               PUSH   Q
4003 @ 38313:               PUSH   LINK
4004 @ 38316:               PUSH   N
4005 @ 38319:               ACCESS
4006 @ 38320:               ASSVAL

   617  L67:           %IF PT(P)!TAG(Q)&15<<20\=TAG(Q) %THEN %START
4007 @ 38321:               LINE   617 "regression-compile-tmp/skimp77.imp"
4008 @ 38359:               LABEL  L_00e1
4009 @ 38362:               LINE   617 "regression-compile-tmp/skimp77.imp"
4010 @ 38400:               PUSH   PT
4011 @ 38403:               PUSH   P
4012 @ 38406:               ACCESS
4013 @ 38407:               PUSH   TAG
4014 @ 38410:               PUSH   Q
4015 @ 38413:               ACCESS
4016 @ 38414:               PUSHI  #0x0000000f
4017 @ 38419:               PUSHI  #0x00000014
4018 @ 38424:               LSH   
4019 @ 38425:               AND   
4020 @ 38426:               OR    
4021 @ 38427:               PUSH   TAG
4022 @ 38430:               PUSH   Q
4023 @ 38433:               ACCESS
4024 @ 38434:               JUMPIF = L_000d

   618                   PRINT NAME(PN(P))
4025 @ 38438:               LINE   618 "regression-compile-tmp/skimp77.imp"
4026 @ 38476:               PUSH   PRINTNAME
4027 @ 38479:               PUSH   PN
4028 @ 38482:               PUSH   P
4029 @ 38485:               ACCESS
4030 @ 38486:               ASSPAR
4031 @ 38487:               CALL  

   619                   FAULT(M'PAR ',M'NOT ',M'AS S',M'PEC ')
4032 @ 38488:               LINE   619 "regression-compile-tmp/skimp77.imp"
4033 @ 38526:               PUSH   FAULT
4034 @ 38529:               PUSHI  #0x50415220
4035 @ 38534:               ASSPAR
4036 @ 38535:               PUSHI  #0x4e4f5420
4037 @ 38540:               ASSPAR
4038 @ 38541:               PUSHI  #0x41532053
4039 @ 38546:               ASSPAR
4040 @ 38547:               PUSHI  #0x50454320
4041 @ 38552:               ASSPAR
4042 @ 38553:               CALL  

   620                   %FINISH
4043 @ 38554:               LINE   620 "regression-compile-tmp/skimp77.imp"
4044 @ 38592:               LOCATE L_000d

   621                PTC(P)=Q                                  ;! SAVE POINTER TO TAG CELL
4045 @ 38595:               LINE   621 "regression-compile-tmp/skimp77.imp"
4046 @ 38633:               PUSH   PTC
4047 @ 38636:               PUSH   P
4048 @ 38639:               ACCESS
4049 @ 38640:               PUSH   Q
4050 @ 38643:               ASSVAL

   622                P=P+1                                     ;! PARAM COUNT
4051 @ 38644:               LINE   622 "regression-compile-tmp/skimp77.imp"
4052 @ 38682:               PUSH   P
4053 @ 38685:               PUSH   P
4054 @ 38688:               PUSHI  #0x00000001
4055 @ 38693:               ADD   
4056 @ 38694:               ASSVAL

   623                Q=LINK(Q)                                 ;! NEXT TAG CELL
4057 @ 38695:               LINE   623 "regression-compile-tmp/skimp77.imp"
4058 @ 38733:               PUSH   Q
4059 @ 38736:               PUSH   LINK
4060 @ 38739:               PUSH   Q
4061 @ 38742:               ACCESS
4062 @ 38743:               ASSVAL

   624                %IF P<=L %THEN ->L67                       ;! MORE PARAMS
4063 @ 38744:               LINE   624 "regression-compile-tmp/skimp77.imp"
4064 @ 38782:               PUSH   P
4065 @ 38785:               PUSH   L
4066 @ 38788:               JUMPIF > L_000d
4067 @ 38792:               JUMP   L_00e1
4068 @ 38795:               LOCATE L_000d

   625                %FINISH
4069 @ 38798:               LINE   625 "regression-compile-tmp/skimp77.imp"
4070 @ 38836:               LOCATE L_000a

   626             %FINISH %ELSE %START
4071 @ 38839:               LINE   626 "regression-compile-tmp/skimp77.imp"
4072 @ 38877:               GOTO   L_0006
4073 @ 38880:               LOCATE L_0007

   627             PRINT NAME(K)
4074 @ 38883:               LINE   627 "regression-compile-tmp/skimp77.imp"
4075 @ 38921:               PUSH   PRINTNAME
4076 @ 38924:               PUSH   K
4077 @ 38927:               ASSPAR
4078 @ 38928:               CALL  

   628             FAULT(M'NAME',M' SET',M' TWI',M'CE  ')
4079 @ 38929:               LINE   628 "regression-compile-tmp/skimp77.imp"
4080 @ 38967:               PUSH   FAULT
4081 @ 38970:               PUSHI  #0x4e414d45
4082 @ 38975:               ASSPAR
4083 @ 38976:               PUSHI  #0x20534554
4084 @ 38981:               ASSPAR
4085 @ 38982:               PUSHI  #0x20545749
4086 @ 38987:               ASSPAR
4087 @ 38988:               PUSHI  #0x43452020
4088 @ 38993:               ASSPAR
4089 @ 38994:               CALL  

   629             %FINISH
4090 @ 38995:               LINE   629 "regression-compile-tmp/skimp77.imp"
4091 @ 39033:               LOCATE L_0006

   630          %FINISH
4092 @ 39036:               LINE   630 "regression-compile-tmp/skimp77.imp"
4093 @ 39074:               LOCATE L_0003

   631  L68:  %IF J=2 %THEN %START                               ;! STATEMENT NOT A SPEC
4094 @ 39077:               LINE   631 "regression-compile-tmp/skimp77.imp"
4095 @ 39115:               LABEL  L_00e2
4096 @ 39118:               LINE   631 "regression-compile-tmp/skimp77.imp"
4097 @ 39156:               PUSH   J
4098 @ 39159:               PUSHI  #0x00000002
4099 @ 39164:               JUMPIF # L_0004

   632          BRT(LEVEL)=BT NEXT                              ;! BRANCH ROUND ROUTINE OR FN
4100 @ 39168:               LINE   632 "regression-compile-tmp/skimp77.imp"
4101 @ 39206:               PUSH   BRT
4102 @ 39209:               PUSH   LEVEL
4103 @ 39212:               ACCESS
4104 @ 39213:               PUSH   BTNEXT
4105 @ 39216:               CALL  
4106 @ 39217:               ASSVAL

   633          DUMP('B',0,M'BT',BRT(LEVEL))
4107 @ 39218:               LINE   633 "regression-compile-tmp/skimp77.imp"
4108 @ 39256:               PUSH   DUMP
4109 @ 39259:               PUSHI  #0x00000042
4110 @ 39264:               ASSPAR
4111 @ 39265:               PUSHI  #0x00000000
4112 @ 39270:               ASSPAR
4113 @ 39271:               PUSHI  #0x00004254
4114 @ 39276:               ASSPAR
4115 @ 39277:               PUSH   BRT
4116 @ 39280:               PUSH   LEVEL
4117 @ 39283:               ACCESS
4118 @ 39284:               ASSPAR
4119 @ 39285:               CALL  

   634          BAT(TAG(LINK(K))&65535)=CA                      ;! FILL IN ADDRESS OF THIS ROUTINE OR FN
4120 @ 39286:               LINE   634 "regression-compile-tmp/skimp77.imp"
4121 @ 39324:               PUSH   BAT
4122 @ 39327:               PUSH   TAG
4123 @ 39330:               PUSH   LINK
4124 @ 39333:               PUSH   K
4125 @ 39336:               ACCESS
4126 @ 39337:               ACCESS
4127 @ 39338:               PUSHI  #0x0000ffff
4128 @ 39343:               AND   
4129 @ 39344:               ACCESS
4130 @ 39345:               PUSH   CA
4131 @ 39348:               ASSVAL

   635          %IF LEVEL=15 %THEN FAULT(M'TOO ',M'MANY',M' LEV',M'ELS ') %C
   636                                %ELSE LEVEL=LEVEL+1       ;! NEXT TEXTUAL LEVEL
4132 @ 39349:               LINE   635 "regression-compile-tmp/skimp77.imp"
4133 @ 39387:               PUSH   LEVEL
4134 @ 39390:               PUSHI  #0x0000000f
4135 @ 39395:               JUMPIF # L_0007
4136 @ 39399:               PUSH   FAULT
4137 @ 39402:               PUSHI  #0x544f4f20
4138 @ 39407:               ASSPAR
4139 @ 39408:               PUSHI  #0x4d414e59
4140 @ 39413:               ASSPAR
4141 @ 39414:               PUSHI  #0x204c4556
4142 @ 39419:               ASSPAR
4143 @ 39420:               PUSHI  #0x454c5320
4144 @ 39425:               ASSPAR
4145 @ 39426:               CALL  
4146 @ 39427:               GOTO   L_0006
4147 @ 39430:               LOCATE L_0007
4148 @ 39433:               PUSH   LEVEL
4149 @ 39436:               PUSH   LEVEL
4150 @ 39439:               PUSHI  #0x00000001
4151 @ 39444:               ADD   
4152 @ 39445:               ASSVAL
4153 @ 39446:               LOCATE L_0006

   637          ENTER(I,M)
4154 @ 39449:               LINE   637 "regression-compile-tmp/skimp77.imp"
4155 @ 39487:               PUSH   ENTER
4156 @ 39490:               PUSH   I
4157 @ 39493:               ASSPAR
4158 @ 39494:               PUSH   M
4159 @ 39497:               ASSPAR
4160 @ 39498:               CALL  

   638          %IF L>0 %THEN %START                            ;! PARAMS PRESENT
4161 @ 39499:               LINE   638 "regression-compile-tmp/skimp77.imp"
4162 @ 39537:               PUSH   L
4163 @ 39540:               PUSHI  #0x00000000
4164 @ 39545:               JUMPIF <= L_0007

   639             P=1                                          ;! PARAM COUNT
4165 @ 39549:               LINE   639 "regression-compile-tmp/skimp77.imp"
4166 @ 39587:               PUSH   P
4167 @ 39590:               PUSHI  #0x00000001
4168 @ 39595:               ASSVAL

   640  L69:        I=PT(P)                                      ;! PUSHDOWN TAGS FOR PARAMS
4169 @ 39596:               LINE   640 "regression-compile-tmp/skimp77.imp"
4170 @ 39634:               LABEL  L_00e3
4171 @ 39637:               LINE   640 "regression-compile-tmp/skimp77.imp"
4172 @ 39675:               PUSH   I
4173 @ 39678:               PUSH   PT
4174 @ 39681:               PUSH   P
4175 @ 39684:               ACCESS
4176 @ 39685:               ASSVAL

   641             %IF I>>28=3 %THEN STORE TAG(PN(P),3,1,0,LEVEL,PTC(P)) %C
   642                %ELSE STORE TAG(PN(P),I>>28,1,0,LEVEL,I&65535) ;! TREAT ARRAYNAMES SPECIALLY
4177 @ 39686:               LINE   641 "regression-compile-tmp/skimp77.imp"
4178 @ 39724:               PUSH   I
4179 @ 39727:               PUSHI  #0x0000001c
4180 @ 39732:               RSH   
4181 @ 39733:               PUSHI  #0x00000003
4182 @ 39738:               JUMPIF # L_000a
4183 @ 39742:               PUSH   STORETAG
4184 @ 39745:               PUSH   PN
4185 @ 39748:               PUSH   P
4186 @ 39751:               ACCESS
4187 @ 39752:               ASSPAR
4188 @ 39753:               PUSHI  #0x00000003
4189 @ 39758:               ASSPAR
4190 @ 39759:               PUSHI  #0x00000001
4191 @ 39764:               ASSPAR
4192 @ 39765:               PUSHI  #0x00000000
4193 @ 39770:               ASSPAR
4194 @ 39771:               PUSH   LEVEL
4195 @ 39774:               ASSPAR
4196 @ 39775:               PUSH   PTC
4197 @ 39778:               PUSH   P
4198 @ 39781:               ACCESS
4199 @ 39782:               ASSPAR
4200 @ 39783:               CALL  
4201 @ 39784:               GOTO   L_0009
4202 @ 39787:               LOCATE L_000a
4203 @ 39790:               PUSH   STORETAG
4204 @ 39793:               PUSH   PN
4205 @ 39796:               PUSH   P
4206 @ 39799:               ACCESS
4207 @ 39800:               ASSPAR
4208 @ 39801:               PUSH   I
4209 @ 39804:               PUSHI  #0x0000001c
4210 @ 39809:               RSH   
4211 @ 39810:               ASSPAR
4212 @ 39811:               PUSHI  #0x00000001
4213 @ 39816:               ASSPAR
4214 @ 39817:               PUSHI  #0x00000000
4215 @ 39822:               ASSPAR
4216 @ 39823:               PUSH   LEVEL
4217 @ 39826:               ASSPAR
4218 @ 39827:               PUSH   I
4219 @ 39830:               PUSHI  #0x0000ffff
4220 @ 39835:               AND   
4221 @ 39836:               ASSPAR
4222 @ 39837:               CALL  
4223 @ 39838:               LOCATE L_0009

   643             P=P+1
4224 @ 39841:               LINE   643 "regression-compile-tmp/skimp77.imp"
4225 @ 39879:               PUSH   P
4226 @ 39882:               PUSH   P
4227 @ 39885:               PUSHI  #0x00000001
4228 @ 39890:               ADD   
4229 @ 39891:               ASSVAL

   644             %IF P<=L %THEN ->L69                          ;! MORE PARAMS YET
4230 @ 39892:               LINE   644 "regression-compile-tmp/skimp77.imp"
4231 @ 39930:               PUSH   P
4232 @ 39933:               PUSH   L
4233 @ 39936:               JUMPIF > L_000a
4234 @ 39940:               JUMP   L_00e3
4235 @ 39943:               LOCATE L_000a

   645             %FINISH
4236 @ 39946:               LINE   645 "regression-compile-tmp/skimp77.imp"
4237 @ 39984:               LOCATE L_0007

   646          %FINISH
4238 @ 39987:               LINE   646 "regression-compile-tmp/skimp77.imp"
4239 @ 40025:               LOCATE L_0004

   647       %RETURN
   648  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !
   649  ! %END
4240 @ 40028:               LINE   647 "regression-compile-tmp/skimp77.imp"
4241 @ 40066:               RETURN

   650  L70:  CHECK                                       ;! CHECK LABELS & START/FINISH BLOCKS
4242 @ 40067:               LINE   650 "regression-compile-tmp/skimp77.imp"
4243 @ 40105:               LABEL  L_00d8
4244 @ 40108:               LINE   650 "regression-compile-tmp/skimp77.imp"
4245 @ 40146:               PUSH   CHECK
4246 @ 40149:               CALL  

   651       COT(STAR(LEVEL))=RAD(LEVEL)                 ;! STORE STATIC ALLOCATION FOR THIS LEVEL
4247 @ 40150:               LINE   651 "regression-compile-tmp/skimp77.imp"
4248 @ 40188:               PUSH   COT
4249 @ 40191:               PUSH   STAR
4250 @ 40194:               PUSH   LEVEL
4251 @ 40197:               ACCESS
4252 @ 40198:               ACCESS
4253 @ 40199:               PUSH   RAD
4254 @ 40202:               PUSH   LEVEL
4255 @ 40205:               ACCESS
4256 @ 40206:               ASSVAL

   652       UNSET                                       ;! UNSET NAMES DECLARED AT THIS LEVEL
4257 @ 40207:               LINE   652 "regression-compile-tmp/skimp77.imp"
4258 @ 40245:               PUSH   UNSET
4259 @ 40248:               CALL  

   653       CHP=CHPP(LEVEL)
4260 @ 40249:               LINE   653 "regression-compile-tmp/skimp77.imp"
4261 @ 40287:               PUSH   CHP
4262 @ 40290:               PUSH   CHPP
4263 @ 40293:               PUSH   LEVEL
4264 @ 40296:               ACCESS
4265 @ 40297:               ASSVAL

   654       %IF RTP(LEVEL)\=0 %THEN DUMP(M'STOP',0,0,0) ;! %STOP FOR FNS
4266 @ 40298:               LINE   654 "regression-compile-tmp/skimp77.imp"
4267 @ 40336:               PUSH   RTP
4268 @ 40339:               PUSH   LEVEL
4269 @ 40342:               ACCESS
4270 @ 40343:               PUSHI  #0x00000000
4271 @ 40348:               JUMPIF = L_0004
4272 @ 40352:               PUSH   DUMP
4273 @ 40355:               PUSHI  #0x53544f50
4274 @ 40360:               ASSPAR
4275 @ 40361:               PUSHI  #0x00000000
4276 @ 40366:               ASSPAR
4277 @ 40367:               PUSHI  #0x00000000
4278 @ 40372:               ASSPAR
4279 @ 40373:               PUSHI  #0x00000000
4280 @ 40378:               ASSPAR
4281 @ 40379:               CALL  
4282 @ 40380:               LOCATE L_0004

   655       RETURN                                      ;! DUMP %RETURN CODE
4283 @ 40383:               LINE   655 "regression-compile-tmp/skimp77.imp"
4284 @ 40421:               PUSH   RETURN
4285 @ 40424:               CALL  

   656       LEVEL=LEVEL-1                               ;! DECREMENT TEXTUAL LEVEL COUNT
4286 @ 40425:               LINE   656 "regression-compile-tmp/skimp77.imp"
4287 @ 40463:               PUSH   LEVEL
4288 @ 40466:               PUSH   LEVEL
4289 @ 40469:               PUSHI  #0x00000001
4290 @ 40474:               SUB   
4291 @ 40475:               ASSVAL

   657       %IF LEVEL<1 %THEN %START                    ;! NOT BACK AT OUTER LEVEL YET
4292 @ 40476:               LINE   657 "regression-compile-tmp/skimp77.imp"
4293 @ 40514:               PUSH   LEVEL
4294 @ 40517:               PUSHI  #0x00000001
4295 @ 40522:               JUMPIF >= L_0004

   658          FAULT(M'EXCE',M'SS %',M'END ',M'    ')
4296 @ 40526:               LINE   658 "regression-compile-tmp/skimp77.imp"
4297 @ 40564:               PUSH   FAULT
4298 @ 40567:               PUSHI  #0x45584345
4299 @ 40572:               ASSPAR
4300 @ 40573:               PUSHI  #0x53532025
4301 @ 40578:               ASSPAR
4302 @ 40579:               PUSHI  #0x454e4420
4303 @ 40584:               ASSPAR
4304 @ 40585:               PUSHI  #0x20202020
4305 @ 40590:               ASSPAR
4306 @ 40591:               CALL  

   659          ->L71 ; %FINISH                           ;! TREAT AS %ENDOFPROGRAM
4307 @ 40592:               LINE   659 "regression-compile-tmp/skimp77.imp"
4308 @ 40630:               JUMP   L_00e4
4309 @ 40633:               LINE   659 "regression-compile-tmp/skimp77.imp"
4310 @ 40671:               LOCATE L_0004

   660       BAT(BRT(LEVEL))=CA                          ;! FILL ADDR FOR BRANCH ROUND ROUTINE/FN
4311 @ 40674:               LINE   660 "regression-compile-tmp/skimp77.imp"
4312 @ 40712:               PUSH   BAT
4313 @ 40715:               PUSH   BRT
4314 @ 40718:               PUSH   LEVEL
4315 @ 40721:               ACCESS
4316 @ 40722:               ACCESS
4317 @ 40723:               PUSH   CA
4318 @ 40726:               ASSVAL

   661       %RETURN
   662  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !
   663  ! %BEGIN
4319 @ 40727:               LINE   661 "regression-compile-tmp/skimp77.imp"
4320 @ 40765:               RETURN

   664  L80:  %IF LEVEL\=0 %THEN %START
4321 @ 40766:               LINE   664 "regression-compile-tmp/skimp77.imp"
4322 @ 40804:               LABEL  L_00d9
4323 @ 40807:               LINE   664 "regression-compile-tmp/skimp77.imp"
4324 @ 40845:               PUSH   LEVEL
4325 @ 40848:               PUSHI  #0x00000000
4326 @ 40853:               JUMPIF = L_0004

   665          FAULT(M'%BEG',M'IN E',M'XTRA',M'    ')   ;! NO INTERNAL BLOCKS ALLOWED
4327 @ 40857:               LINE   665 "regression-compile-tmp/skimp77.imp"
4328 @ 40895:               PUSH   FAULT
4329 @ 40898:               PUSHI  #0x25424547
4330 @ 40903:               ASSPAR
4331 @ 40904:               PUSHI  #0x494e2045
4332 @ 40909:               ASSPAR
4333 @ 40910:               PUSHI  #0x58545241
4334 @ 40915:               ASSPAR
4335 @ 40916:               PUSHI  #0x20202020
4336 @ 40921:               ASSPAR
4337 @ 40922:               CALL  

   666          %RETURN ; %FINISH
4338 @ 40923:               LINE   666 "regression-compile-tmp/skimp77.imp"
4339 @ 40961:               RETURN
4340 @ 40962:               LINE   666 "regression-compile-tmp/skimp77.imp"
4341 @ 41000:               LOCATE L_0004

   667       %IF CA\=0 %OR RAD(0)\=10 %THEN %START
4342 @ 41003:               LINE   667 "regression-compile-tmp/skimp77.imp"
4343 @ 41041:               PUSH   CA
4344 @ 41044:               PUSHI  #0x00000000
4345 @ 41049:               JUMPIF # L_0005
4346 @ 41053:               PUSH   RAD
4347 @ 41056:               PUSHI  #0x00000000
4348 @ 41061:               ACCESS
4349 @ 41062:               PUSHI  #0x0000000a
4350 @ 41067:               JUMPIF = L_0004
4351 @ 41071:               LOCATE L_0005

   668          FAULT(M'%BEG',M'IN N',M'OT F',M'IRST')
4352 @ 41074:               LINE   668 "regression-compile-tmp/skimp77.imp"
4353 @ 41112:               PUSH   FAULT
4354 @ 41115:               PUSHI  #0x25424547
4355 @ 41120:               ASSPAR
4356 @ 41121:               PUSHI  #0x494e204e
4357 @ 41126:               ASSPAR
4358 @ 41127:               PUSHI  #0x4f542046
4359 @ 41132:               ASSPAR
4360 @ 41133:               PUSHI  #0x49525354
4361 @ 41138:               ASSPAR
4362 @ 41139:               CALL  

   669          %RETURN ; %FINISH
4363 @ 41140:               LINE   669 "regression-compile-tmp/skimp77.imp"
4364 @ 41178:               RETURN
4365 @ 41179:               LINE   669 "regression-compile-tmp/skimp77.imp"
4366 @ 41217:               LOCATE L_0004

   670       LEVEL=1                                ;! TEXTUAL LEVEL COUNT TO 1
4367 @ 41220:               LINE   670 "regression-compile-tmp/skimp77.imp"
4368 @ 41258:               PUSH   LEVEL
4369 @ 41261:               PUSHI  #0x00000001
4370 @ 41266:               ASSVAL

   671       ENTER(-1,10)
4371 @ 41267:               LINE   671 "regression-compile-tmp/skimp77.imp"
4372 @ 41305:               PUSH   ENTER
4373 @ 41308:               PUSHI  #0x00000001
4374 @ 41313:               NEGATE
4375 @ 41314:               ASSPAR
4376 @ 41315:               PUSHI  #0x0000000a
4377 @ 41320:               ASSPAR
4378 @ 41321:               CALL  

   672       %RETURN
   673  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !
   674  ! %ENDOFPROGRAM
4379 @ 41322:               LINE   672 "regression-compile-tmp/skimp77.imp"
4380 @ 41360:               RETURN

   675  L90:  CHECK                                  ;! CHECK LABELS & START/FINISHES
4381 @ 41361:               LINE   675 "regression-compile-tmp/skimp77.imp"
4382 @ 41399:               LABEL  L_00da
4383 @ 41402:               LINE   675 "regression-compile-tmp/skimp77.imp"
4384 @ 41440:               PUSH   CHECK
4385 @ 41443:               CALL  

   676       COT(STAR(LEVEL))=RAD(LEVEL)            ;! FILL IN STATIC ALLOCATION FOR OUTER BLOCK
4386 @ 41444:               LINE   676 "regression-compile-tmp/skimp77.imp"
4387 @ 41482:               PUSH   COT
4388 @ 41485:               PUSH   STAR
4389 @ 41488:               PUSH   LEVEL
4390 @ 41491:               ACCESS
4391 @ 41492:               ACCESS
4392 @ 41493:               PUSH   RAD
4393 @ 41496:               PUSH   LEVEL
4394 @ 41499:               ACCESS
4395 @ 41500:               ASSVAL

   677       UNSET                                  ;! UNSET NAMES DECLARED AT THIS LEVEL
4396 @ 41501:               LINE   677 "regression-compile-tmp/skimp77.imp"
4397 @ 41539:               PUSH   UNSET
4398 @ 41542:               CALL  

   678       %IF LEVEL\=1 %THEN FAULT(M'TOO ',M'FEW ',M'%END',M'S   ')
4399 @ 41543:               LINE   678 "regression-compile-tmp/skimp77.imp"
4400 @ 41581:               PUSH   LEVEL
4401 @ 41584:               PUSHI  #0x00000001
4402 @ 41589:               JUMPIF = L_0004
4403 @ 41593:               PUSH   FAULT
4404 @ 41596:               PUSHI  #0x544f4f20
4405 @ 41601:               ASSPAR
4406 @ 41602:               PUSHI  #0x46455720
4407 @ 41607:               ASSPAR
4408 @ 41608:               PUSHI  #0x25454e44
4409 @ 41613:               ASSPAR
4410 @ 41614:               PUSHI  #0x53202020
4411 @ 41619:               ASSPAR
4412 @ 41620:               CALL  
4413 @ 41621:               LOCATE L_0004

   679  L71:  DUMP(M'STOP',0,0,0)                    ;! %STOP
4414 @ 41624:               LINE   679 "regression-compile-tmp/skimp77.imp"
4415 @ 41662:               LABEL  L_00e4
4416 @ 41665:               LINE   679 "regression-compile-tmp/skimp77.imp"
4417 @ 41703:               PUSH   DUMP
4418 @ 41706:               PUSHI  #0x53544f50
4419 @ 41711:               ASSPAR
4420 @ 41712:               PUSHI  #0x00000000
4421 @ 41717:               ASSPAR
4422 @ 41718:               PUSHI  #0x00000000
4423 @ 41723:               ASSPAR
4424 @ 41724:               PUSHI  #0x00000000
4425 @ 41729:               ASSPAR
4426 @ 41730:               CALL  

   680       PRINT SYMBOL('B')                      ;! PRINT OUT BRANCH TABLE
4427 @ 41731:               LINE   680 "regression-compile-tmp/skimp77.imp"
4428 @ 41769:               PUSH   PRINTSYMBOL
4429 @ 41772:               PUSHI  #0x00000042
4430 @ 41777:               ASSPAR
4431 @ 41778:               CALL  

   681       PRINT SYMBOL('T')
4432 @ 41779:               LINE   681 "regression-compile-tmp/skimp77.imp"
4433 @ 41817:               PUSH   PRINTSYMBOL
4434 @ 41820:               PUSHI  #0x00000054
4435 @ 41825:               ASSPAR
4436 @ 41826:               CALL  

   682       PRINT SYMBOL(':')
4437 @ 41827:               LINE   682 "regression-compile-tmp/skimp77.imp"
4438 @ 41865:               PUSH   PRINTSYMBOL
4439 @ 41868:               PUSHI  #0x0000003a
4440 @ 41873:               ASSPAR
4441 @ 41874:               CALL  

   683       NEWLINE
4442 @ 41875:               LINE   683 "regression-compile-tmp/skimp77.imp"
4443 @ 41913:               PUSH   NEWLINE
4444 @ 41916:               CALL  

   684       CA=0
4445 @ 41917:               LINE   684 "regression-compile-tmp/skimp77.imp"
4446 @ 41955:               PUSH   CA
4447 @ 41958:               PUSHI  #0x00000000
4448 @ 41963:               ASSVAL

   685  L93:  %IF CA\=BTN %THEN %START
4449 @ 41964:               LINE   685 "regression-compile-tmp/skimp77.imp"
4450 @ 42002:               LABEL  L_00e5
4451 @ 42005:               LINE   685 "regression-compile-tmp/skimp77.imp"
4452 @ 42043:               PUSH   CA
4453 @ 42046:               PUSH   BTN
4454 @ 42049:               JUMPIF = L_0004

   686          DUMP('B',0,M'PRG',BAT(CA))          ;! BRANCH RELATIVE TO START OF PROGRAM
4455 @ 42053:               LINE   686 "regression-compile-tmp/skimp77.imp"
4456 @ 42091:               PUSH   DUMP
4457 @ 42094:               PUSHI  #0x00000042
4458 @ 42099:               ASSPAR
4459 @ 42100:               PUSHI  #0x00000000
4460 @ 42105:               ASSPAR
4461 @ 42106:               PUSHI  #0x00505247
4462 @ 42111:               ASSPAR
4463 @ 42112:               PUSH   BAT
4464 @ 42115:               PUSH   CA
4465 @ 42118:               ACCESS
4466 @ 42119:               ASSPAR
4467 @ 42120:               CALL  

   687          ->L93 ; %FINISH
4468 @ 42121:               LINE   687 "regression-compile-tmp/skimp77.imp"
4469 @ 42159:               JUMP   L_00e5
4470 @ 42162:               LINE   687 "regression-compile-tmp/skimp77.imp"
4471 @ 42200:               LOCATE L_0004

   688       PRINT SYMBOL('C')                      ;! PRINT OUT CONSTANT TABLE
4472 @ 42203:               LINE   688 "regression-compile-tmp/skimp77.imp"
4473 @ 42241:               PUSH   PRINTSYMBOL
4474 @ 42244:               PUSHI  #0x00000043
4475 @ 42249:               ASSPAR
4476 @ 42250:               CALL  

   689       PRINT SYMBOL('T')
4477 @ 42251:               LINE   689 "regression-compile-tmp/skimp77.imp"
4478 @ 42289:               PUSH   PRINTSYMBOL
4479 @ 42292:               PUSHI  #0x00000054
4480 @ 42297:               ASSPAR
4481 @ 42298:               CALL  

   690       PRINT SYMBOL(':')
4482 @ 42299:               LINE   690 "regression-compile-tmp/skimp77.imp"
4483 @ 42337:               PUSH   PRINTSYMBOL
4484 @ 42340:               PUSHI  #0x0000003a
4485 @ 42345:               ASSPAR
4486 @ 42346:               CALL  

   691       NEWLINE
4487 @ 42347:               LINE   691 "regression-compile-tmp/skimp77.imp"
4488 @ 42385:               PUSH   NEWLINE
4489 @ 42388:               CALL  

   692       I=0
4490 @ 42389:               LINE   692 "regression-compile-tmp/skimp77.imp"
4491 @ 42427:               PUSH   I
4492 @ 42430:               PUSHI  #0x00000000
4493 @ 42435:               ASSVAL

   693  L91:  %IF I\=CTN %THEN %START
4494 @ 42436:               LINE   693 "regression-compile-tmp/skimp77.imp"
4495 @ 42474:               LABEL  L_00e6
4496 @ 42477:               LINE   693 "regression-compile-tmp/skimp77.imp"
4497 @ 42515:               PUSH   I
4498 @ 42518:               PUSH   CTN
4499 @ 42521:               JUMPIF = L_0004

   694          WRITE(COT(I),10)
4500 @ 42525:               LINE   694 "regression-compile-tmp/skimp77.imp"
4501 @ 42563:               PUSH   WRITE
4502 @ 42566:               PUSH   COT
4503 @ 42569:               PUSH   I
4504 @ 42572:               ACCESS
4505 @ 42573:               ASSPAR
4506 @ 42574:               PUSHI  #0x0000000a
4507 @ 42579:               ASSPAR
4508 @ 42580:               CALL  

   695          NEWLINE
4509 @ 42581:               LINE   695 "regression-compile-tmp/skimp77.imp"
4510 @ 42619:               PUSH   NEWLINE
4511 @ 42622:               CALL  

   696          I=I+1
4512 @ 42623:               LINE   696 "regression-compile-tmp/skimp77.imp"
4513 @ 42661:               PUSH   I
4514 @ 42664:               PUSH   I
4515 @ 42667:               PUSHI  #0x00000001
4516 @ 42672:               ADD   
4517 @ 42673:               ASSVAL

   697          ->L91 ; %FINISH
4518 @ 42674:               LINE   697 "regression-compile-tmp/skimp77.imp"
4519 @ 42712:               JUMP   L_00e6
4520 @ 42715:               LINE   697 "regression-compile-tmp/skimp77.imp"
4521 @ 42753:               LOCATE L_0004

   698       PRINT SYMBOL(';')
4522 @ 42756:               LINE   698 "regression-compile-tmp/skimp77.imp"
4523 @ 42794:               PUSH   PRINTSYMBOL
4524 @ 42797:               PUSHI  #0x0000003b
4525 @ 42802:               ASSPAR
4526 @ 42803:               CALL  

   699       WRITE(FAULTS,1)                        ;! NUMBER OF PROGRAM FAULTS
4527 @ 42804:               LINE   699 "regression-compile-tmp/skimp77.imp"
4528 @ 42842:               PUSH   WRITE
4529 @ 42845:               PUSH   FAULTS
4530 @ 42848:               ASSPAR
4531 @ 42849:               PUSHI  #0x00000001
4532 @ 42854:               ASSPAR
4533 @ 42855:               CALL  

   700       FAULT(M' FAU',M'LTS ',M'IN P',M'ROGM')
4534 @ 42856:               LINE   700 "regression-compile-tmp/skimp77.imp"
4535 @ 42894:               PUSH   FAULT
4536 @ 42897:               PUSHI  #0x20464155
4537 @ 42902:               ASSPAR
4538 @ 42903:               PUSHI  #0x4c545320
4539 @ 42908:               ASSPAR
4540 @ 42909:               PUSHI  #0x494e2050
4541 @ 42914:               ASSPAR
4542 @ 42915:               PUSHI  #0x524f474d
4543 @ 42920:               ASSPAR
4544 @ 42921:               CALL  

   701       %STOP
   702  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
4545 @ 42922:               LINE   701 "regression-compile-tmp/skimp77.imp"
4546 @ 42960:               STOP  

   703  %ROUTINE UI
   704  ! COMPILE UNCONDITIONAL INSTRUCTION
4547 @ 42961:               LINE   703 "regression-compile-tmp/skimp77.imp"
4548 @ 42999:               DEF    UI (_lev0id0_SS_UI) p1=V_00b5 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
4549 @ 43013:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
4550 @ 43014:                  FINISH ) {lev=3}

   705  %INTEGER I,J,K,L
4551 @ 43015:                  LINE   705 "regression-compile-tmp/skimp77.imp"
4552 @ 43053:                  DEF    I p1=V_00e7 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
4553 @ 43066:                  DEF    J p1=V_00e8 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
4554 @ 43079:                  DEF    K p1=V_00e9 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
4555 @ 43092:                  DEF    L p1=V_00ea a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   706       I=A(AP)                            ;! NEXT ANALYSIS RECORD ENTRY
4556 @ 43105:                  LINE   706 "regression-compile-tmp/skimp77.imp"
4557 @ 43143:                  PUSH   I
4558 @ 43146:                  PUSH   A
4559 @ 43149:                  PUSH   AP
4560 @ 43152:                  ACCESS
4561 @ 43153:                  ASSVAL

   707       AP=AP+1
4562 @ 43154:                  LINE   707 "regression-compile-tmp/skimp77.imp"
4563 @ 43192:                  PUSH   AP
4564 @ 43195:                  PUSH   AP
4565 @ 43198:                  PUSHI  #0x00000001
4566 @ 43203:                  ADD   
4567 @ 43204:                  ASSVAL

   708       %IF I=1 %THEN ->L10                 ;! ROUTINE CALL OR ASSIGNMENT STATEMENT
4568 @ 43205:                  LINE   708 "regression-compile-tmp/skimp77.imp"
4569 @ 43243:                  PUSH   I
4570 @ 43246:                  PUSHI  #0x00000001
4571 @ 43251:                  JUMPIF # L_0004
4572 @ 43255:                  JUMP   L_00eb
4573 @ 43258:                  LOCATE L_0004

   709       %IF I=2 %THEN ->L20                 ;! JUMP INSTRUCTION
4574 @ 43261:                  LINE   709 "regression-compile-tmp/skimp77.imp"
4575 @ 43299:                  PUSH   I
4576 @ 43302:                  PUSHI  #0x00000002
4577 @ 43307:                  JUMPIF # L_0004
4578 @ 43311:                  JUMP   L_00ec
4579 @ 43314:                  LOCATE L_0004

   710       %IF I=3 %THEN ->L30                 ;! %START
4580 @ 43317:                  LINE   710 "regression-compile-tmp/skimp77.imp"
4581 @ 43355:                  PUSH   I
4582 @ 43358:                  PUSHI  #0x00000003
4583 @ 43363:                  JUMPIF # L_0004
4584 @ 43367:                  JUMP   L_00ed
4585 @ 43370:                  LOCATE L_0004

   711       %IF I=4 %THEN ->L40                 ;! %RETURN
4586 @ 43373:                  LINE   711 "regression-compile-tmp/skimp77.imp"
4587 @ 43411:                  PUSH   I
4588 @ 43414:                  PUSHI  #0x00000004
4589 @ 43419:                  JUMPIF # L_0004
4590 @ 43423:                  JUMP   L_00ee
4591 @ 43426:                  LOCATE L_0004

   712       %IF I=5 %THEN ->L50                 ;! %RESULT=
4592 @ 43429:                  LINE   712 "regression-compile-tmp/skimp77.imp"
4593 @ 43467:                  PUSH   I
4594 @ 43470:                  PUSHI  #0x00000005
4595 @ 43475:                  JUMPIF # L_0004
4596 @ 43479:                  JUMP   L_00ef
4597 @ 43482:                  LOCATE L_0004

   713       DUMP(M'STOP',0,0,0)                ;! %STOP
4598 @ 43485:                  LINE   713 "regression-compile-tmp/skimp77.imp"
4599 @ 43523:                  PUSH   DUMP
4600 @ 43526:                  PUSHI  #0x53544f50
4601 @ 43531:                  ASSPAR
4602 @ 43532:                  PUSHI  #0x00000000
4603 @ 43537:                  ASSPAR
4604 @ 43538:                  PUSHI  #0x00000000
4605 @ 43543:                  ASSPAR
4606 @ 43544:                  PUSHI  #0x00000000
4607 @ 43549:                  ASSPAR
4608 @ 43550:                  CALL  

   714       %RETURN
   715  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !
   716  ! NAME APP ASS
4609 @ 43551:                  LINE   714 "regression-compile-tmp/skimp77.imp"
4610 @ 43589:                  RETURN

   717  L10:  I=LINK(A(AP))                             ;! POINTER TO NAME TAGS
4611 @ 43590:                  LINE   717 "regression-compile-tmp/skimp77.imp"
4612 @ 43628:                  LABEL  L_00eb
4613 @ 43631:                  LINE   717 "regression-compile-tmp/skimp77.imp"
4614 @ 43669:                  PUSH   I
4615 @ 43672:                  PUSH   LINK
4616 @ 43675:                  PUSH   A
4617 @ 43678:                  PUSH   AP
4618 @ 43681:                  ACCESS
4619 @ 43682:                  ACCESS
4620 @ 43683:                  ASSVAL

   718       %IF I=0 %THEN %START
4621 @ 43684:                  LINE   718 "regression-compile-tmp/skimp77.imp"
4622 @ 43722:                  PUSH   I
4623 @ 43725:                  PUSHI  #0x00000000
4624 @ 43730:                  JUMPIF # L_0004

   719          PRINT NAME(A(AP))
4625 @ 43734:                  LINE   719 "regression-compile-tmp/skimp77.imp"
4626 @ 43772:                  PUSH   PRINTNAME
4627 @ 43775:                  PUSH   A
4628 @ 43778:                  PUSH   AP
4629 @ 43781:                  ACCESS
4630 @ 43782:                  ASSPAR
4631 @ 43783:                  CALL  

   720          FAULT(M'NAME',M' NOT',M' SET',0)
4632 @ 43784:                  LINE   720 "regression-compile-tmp/skimp77.imp"
4633 @ 43822:                  PUSH   FAULT
4634 @ 43825:                  PUSHI  #0x4e414d45
4635 @ 43830:                  ASSPAR
4636 @ 43831:                  PUSHI  #0x204e4f54
4637 @ 43836:                  ASSPAR
4638 @ 43837:                  PUSHI  #0x20534554
4639 @ 43842:                  ASSPAR
4640 @ 43843:                  PUSHI  #0x00000000
4641 @ 43848:                  ASSPAR
4642 @ 43849:                  CALL  

   721          %FINISH %ELSE I=TAG(I)                ;! NAME TAGS OR ZERO TO AVOID DIAGNOSTICS
4643 @ 43850:                  LINE   721 "regression-compile-tmp/skimp77.imp"
4644 @ 43888:                  GOTO   L_0003
4645 @ 43891:                  LOCATE L_0004
4646 @ 43894:                  PUSH   I
4647 @ 43897:                  PUSH   TAG
4648 @ 43900:                  PUSH   I
4649 @ 43903:                  ACCESS
4650 @ 43904:                  ASSVAL
4651 @ 43905:                  LOCATE L_0003

   722       J=AP                                      ;! PRESERVE ANALYSIS RECORD POINTER
4652 @ 43908:                  LINE   722 "regression-compile-tmp/skimp77.imp"
4653 @ 43946:                  PUSH   J
4654 @ 43949:                  PUSH   AP
4655 @ 43952:                  ASSVAL

   723       AP=AP+1                                   ;! AP ON <APP>
4656 @ 43953:                  LINE   723 "regression-compile-tmp/skimp77.imp"
4657 @ 43991:                  PUSH   AP
4658 @ 43994:                  PUSH   AP
4659 @ 43997:                  PUSHI  #0x00000001
4660 @ 44002:                  ADD   
4661 @ 44003:                  ASSVAL

   724       SKIP APP                                  ;! SKIP TO <ASS>
4662 @ 44004:                  LINE   724 "regression-compile-tmp/skimp77.imp"
4663 @ 44042:                  PUSH   SKIPAPP
4664 @ 44045:                  CALL  

   725       %IF A(AP)=2 %THEN %START                  ;! ROUTINE CALL
4665 @ 44046:                  LINE   725 "regression-compile-tmp/skimp77.imp"
4666 @ 44084:                  PUSH   A
4667 @ 44087:                  PUSH   AP
4668 @ 44090:                  ACCESS
4669 @ 44091:                  PUSHI  #0x00000002
4670 @ 44096:                  JUMPIF # L_0004

   726          %IF I>>24=64 %THEN %START              ;! 'FORM/TYPE' IS ROUTINE
4671 @ 44100:                  LINE   726 "regression-compile-tmp/skimp77.imp"
4672 @ 44138:                  PUSH   I
4673 @ 44141:                  PUSHI  #0x00000018
4674 @ 44146:                  RSH   
4675 @ 44147:                  PUSHI  #0x00000040
4676 @ 44152:                  JUMPIF # L_0007

   727             AP=J                                ;! RESTORE AP TO <NAME>
4677 @ 44156:                  LINE   727 "regression-compile-tmp/skimp77.imp"
4678 @ 44194:                  PUSH   AP
4679 @ 44197:                  PUSH   J
4680 @ 44200:                  ASSVAL

   728             RT                                  ;! CALL ROUTINE
4681 @ 44201:                  LINE   728 "regression-compile-tmp/skimp77.imp"
4682 @ 44239:                  PUSH   RT
4683 @ 44242:                  CALL  

   729             %FINISH %ELSE %START
4684 @ 44243:                  LINE   729 "regression-compile-tmp/skimp77.imp"
4685 @ 44281:                  GOTO   L_0006
4686 @ 44284:                  LOCATE L_0007

   730             %IF I\=0 %THEN %START
4687 @ 44287:                  LINE   730 "regression-compile-tmp/skimp77.imp"
4688 @ 44325:                  PUSH   I
4689 @ 44328:                  PUSHI  #0x00000000
4690 @ 44333:                  JUMPIF = L_000a

   731                PRINT NAME(A(J))
4691 @ 44337:                  LINE   731 "regression-compile-tmp/skimp77.imp"
4692 @ 44375:                  PUSH   PRINTNAME
4693 @ 44378:                  PUSH   A
4694 @ 44381:                  PUSH   J
4695 @ 44384:                  ACCESS
4696 @ 44385:                  ASSPAR
4697 @ 44386:                  CALL  

   732                FAULT(M'NOT ',M'ROUT',M'INE ',M'NAME')
4698 @ 44387:                  LINE   732 "regression-compile-tmp/skimp77.imp"
4699 @ 44425:                  PUSH   FAULT
4700 @ 44428:                  PUSHI  #0x4e4f5420
4701 @ 44433:                  ASSPAR
4702 @ 44434:                  PUSHI  #0x524f5554
4703 @ 44439:                  ASSPAR
4704 @ 44440:                  PUSHI  #0x494e4520
4705 @ 44445:                  ASSPAR
4706 @ 44446:                  PUSHI  #0x4e414d45
4707 @ 44451:                  ASSPAR
4708 @ 44452:                  CALL  

   733                %FINISH
4709 @ 44453:                  LINE   733 "regression-compile-tmp/skimp77.imp"
4710 @ 44491:                  LOCATE L_000a

   734             %FINISH
4711 @ 44494:                  LINE   734 "regression-compile-tmp/skimp77.imp"
4712 @ 44532:                  LOCATE L_0006

   735          AP=AP+1                                ;! AP AFTER <UI>
4713 @ 44535:                  LINE   735 "regression-compile-tmp/skimp77.imp"
4714 @ 44573:                  PUSH   AP
4715 @ 44576:                  PUSH   AP
4716 @ 44579:                  PUSHI  #0x00000001
4717 @ 44584:                  ADD   
4718 @ 44585:                  ASSVAL

   736          %RETURN ; %FINISH
4719 @ 44586:                  LINE   736 "regression-compile-tmp/skimp77.imp"
4720 @ 44624:                  RETURN
4721 @ 44625:                  LINE   736 "regression-compile-tmp/skimp77.imp"
4722 @ 44663:                  LOCATE L_0004

   737       K=I>>28                                   ;! 'FORM' OF NAME
4723 @ 44666:                  LINE   737 "regression-compile-tmp/skimp77.imp"
4724 @ 44704:                  PUSH   K
4725 @ 44707:                  PUSH   I
4726 @ 44710:                  PUSHI  #0x0000001c
4727 @ 44715:                  RSH   
4728 @ 44716:                  ASSVAL

   738       %IF K=4 %THEN %START
4729 @ 44717:                  LINE   738 "regression-compile-tmp/skimp77.imp"
4730 @ 44755:                  PUSH   K
4731 @ 44758:                  PUSHI  #0x00000004
4732 @ 44763:                  JUMPIF # L_0004

   739          PRINT NAME(A(J))
4733 @ 44767:                  LINE   739 "regression-compile-tmp/skimp77.imp"
4734 @ 44805:                  PUSH   PRINTNAME
4735 @ 44808:                  PUSH   A
4736 @ 44811:                  PUSH   J
4737 @ 44814:                  ACCESS
4738 @ 44815:                  ASSPAR
4739 @ 44816:                  CALL  

   740          FAULT(M'NAME',M' NOT',M' A D',M'ESTN') ;! ROUTINE/FN FORM
4740 @ 44817:                  LINE   740 "regression-compile-tmp/skimp77.imp"
4741 @ 44855:                  PUSH   FAULT
4742 @ 44858:                  PUSHI  #0x4e414d45
4743 @ 44863:                  ASSPAR
4744 @ 44864:                  PUSHI  #0x204e4f54
4745 @ 44869:                  ASSPAR
4746 @ 44870:                  PUSHI  #0x20412044
4747 @ 44875:                  ASSPAR
4748 @ 44876:                  PUSHI  #0x4553544e
4749 @ 44881:                  ASSPAR
4750 @ 44882:                  CALL  

   741          I=0                                    ;! CLEAR TAGS TO AVOID FURTHER DIAGNOSTIC
4751 @ 44883:                  LINE   741 "regression-compile-tmp/skimp77.imp"
4752 @ 44921:                  PUSH   I
4753 @ 44924:                  PUSHI  #0x00000000
4754 @ 44929:                  ASSVAL

   742          %FINISH
4755 @ 44930:                  LINE   742 "regression-compile-tmp/skimp77.imp"
4756 @ 44968:                  LOCATE L_0004

   743       AP=AP+1                                   ;! AP ON <+-\>
4757 @ 44971:                  LINE   743 "regression-compile-tmp/skimp77.imp"
4758 @ 45009:                  PUSH   AP
4759 @ 45012:                  PUSH   AP
4760 @ 45015:                  PUSHI  #0x00000001
4761 @ 45020:                  ADD   
4762 @ 45021:                  ASSVAL

   744       SEXPR
4763 @ 45022:                  LINE   744 "regression-compile-tmp/skimp77.imp"
4764 @ 45060:                  PUSH   SEXPR
4765 @ 45063:                  CALL  

   745       %IF I=0 %THEN %RETURN                     ;! LHS NAME NOT SET
4766 @ 45064:                  LINE   745 "regression-compile-tmp/skimp77.imp"
4767 @ 45102:                  PUSH   I
4768 @ 45105:                  PUSHI  #0x00000000
4769 @ 45110:                  JUMPIF # L_0004
4770 @ 45114:                  RETURN
4771 @ 45115:                  LOCATE L_0004

   746       %IF K>=2 %THEN %START                     ;! LHS AN ARRAY TYPE
4772 @ 45118:                  LINE   746 "regression-compile-tmp/skimp77.imp"
4773 @ 45156:                  PUSH   K
4774 @ 45159:                  PUSHI  #0x00000002
4775 @ 45164:                  JUMPIF < L_0004

   747          DUMP(M'STR',M'ACC',BR(LEVEL),WS NEXT)  ;! PRESERVE ACCUMMULATOR
4776 @ 45168:                  LINE   747 "regression-compile-tmp/skimp77.imp"
4777 @ 45206:                  PUSH   DUMP
4778 @ 45209:                  PUSHI  #0x00535452
4779 @ 45214:                  ASSPAR
4780 @ 45215:                  PUSHI  #0x00414343
4781 @ 45220:                  ASSPAR
4782 @ 45221:                  PUSH   BR
4783 @ 45224:                  PUSH   LEVEL
4784 @ 45227:                  ACCESS
4785 @ 45228:                  ASSPAR
4786 @ 45229:                  PUSH   WSNEXT
4787 @ 45232:                  CALL  
4788 @ 45233:                  ASSPAR
4789 @ 45234:                  CALL  

   748          K=AP                                   ;! PRESERVE AP
4790 @ 45235:                  LINE   748 "regression-compile-tmp/skimp77.imp"
4791 @ 45273:                  PUSH   K
4792 @ 45276:                  PUSH   AP
4793 @ 45279:                  ASSVAL

   749          AP=J                                    ;! RESTORE INITIALANAL REC POINTER
4794 @ 45280:                  LINE   749 "regression-compile-tmp/skimp77.imp"
4795 @ 45318:                  PUSH   AP
4796 @ 45321:                  PUSH   J
4797 @ 45324:                  ASSVAL

   750          ARRAD                                  ;! CALCULATE ARRAY ELEMENT ADDRESS
4798 @ 45325:                  LINE   750 "regression-compile-tmp/skimp77.imp"
4799 @ 45363:                  PUSH   ARRAD
4800 @ 45366:                  CALL  

   751          WS=WS-1                                ;! RESTORE WORKSPACE POINTER
4801 @ 45367:                  LINE   751 "regression-compile-tmp/skimp77.imp"
4802 @ 45405:                  PUSH   WS
4803 @ 45408:                  PUSH   WS
4804 @ 45411:                  PUSHI  #0x00000001
4805 @ 45416:                  SUB   
4806 @ 45417:                  ASSVAL

   752          DUMP(M'LOAD',M'WK',BR(LEVEL),WS)       ;! RESTORE ACCUMMULATOR
4807 @ 45418:                  LINE   752 "regression-compile-tmp/skimp77.imp"
4808 @ 45456:                  PUSH   DUMP
4809 @ 45459:                  PUSHI  #0x4c4f4144
4810 @ 45464:                  ASSPAR
4811 @ 45465:                  PUSHI  #0x0000574b
4812 @ 45470:                  ASSPAR
4813 @ 45471:                  PUSH   BR
4814 @ 45474:                  PUSH   LEVEL
4815 @ 45477:                  ACCESS
4816 @ 45478:                  ASSPAR
4817 @ 45479:                  PUSH   WS
4818 @ 45482:                  ASSPAR
4819 @ 45483:                  CALL  

   753          DUMP(M'STR',M'WK',M'ACC',0)            ;! DUMP ASSIGNMENT
4820 @ 45484:                  LINE   753 "regression-compile-tmp/skimp77.imp"
4821 @ 45522:                  PUSH   DUMP
4822 @ 45525:                  PUSHI  #0x00535452
4823 @ 45530:                  ASSPAR
4824 @ 45531:                  PUSHI  #0x0000574b
4825 @ 45536:                  ASSPAR
4826 @ 45537:                  PUSHI  #0x00414343
4827 @ 45542:                  ASSPAR
4828 @ 45543:                  PUSHI  #0x00000000
4829 @ 45548:                  ASSPAR
4830 @ 45549:                  CALL  

   754          AP=K                                   ;! RESTORE AP TO AFTER <UI>
4831 @ 45550:                  LINE   754 "regression-compile-tmp/skimp77.imp"
4832 @ 45588:                  PUSH   AP
4833 @ 45591:                  PUSH   K
4834 @ 45594:                  ASSVAL

   755          %RETURN ; %FINISH
4835 @ 45595:                  LINE   755 "regression-compile-tmp/skimp77.imp"
4836 @ 45633:                  RETURN
4837 @ 45634:                  LINE   755 "regression-compile-tmp/skimp77.imp"
4838 @ 45672:                  LOCATE L_0004

   756       %IF K=1 %THEN %START
4839 @ 45675:                  LINE   756 "regression-compile-tmp/skimp77.imp"
4840 @ 45713:                  PUSH   K
4841 @ 45716:                  PUSHI  #0x00000001
4842 @ 45721:                  JUMPIF # L_0004

   757          DUMP(M'LOAD',M'WK',BR(I>>16&15),I&65535);! INDIRECT ASSIGMENT
4843 @ 45725:                  LINE   757 "regression-compile-tmp/skimp77.imp"
4844 @ 45763:                  PUSH   DUMP
4845 @ 45766:                  PUSHI  #0x4c4f4144
4846 @ 45771:                  ASSPAR
4847 @ 45772:                  PUSHI  #0x0000574b
4848 @ 45777:                  ASSPAR
4849 @ 45778:                  PUSH   BR
4850 @ 45781:                  PUSH   I
4851 @ 45784:                  PUSHI  #0x00000010
4852 @ 45789:                  RSH   
4853 @ 45790:                  PUSHI  #0x0000000f
4854 @ 45795:                  AND   
4855 @ 45796:                  ACCESS
4856 @ 45797:                  ASSPAR
4857 @ 45798:                  PUSH   I
4858 @ 45801:                  PUSHI  #0x0000ffff
4859 @ 45806:                  AND   
4860 @ 45807:                  ASSPAR
4861 @ 45808:                  CALL  

   758          DUMP(M'STR',M'ACC',M'WK',0)
4862 @ 45809:                  LINE   758 "regression-compile-tmp/skimp77.imp"
4863 @ 45847:                  PUSH   DUMP
4864 @ 45850:                  PUSHI  #0x00535452
4865 @ 45855:                  ASSPAR
4866 @ 45856:                  PUSHI  #0x00414343
4867 @ 45861:                  ASSPAR
4868 @ 45862:                  PUSHI  #0x0000574b
4869 @ 45867:                  ASSPAR
4870 @ 45868:                  PUSHI  #0x00000000
4871 @ 45873:                  ASSPAR
4872 @ 45874:                  CALL  

   759          %FINISH %ELSE DUMP(M'STR',M'ACC',BR(I>>16&15),I&65535)
4873 @ 45875:                  LINE   759 "regression-compile-tmp/skimp77.imp"
4874 @ 45913:                  GOTO   L_0003
4875 @ 45916:                  LOCATE L_0004
4876 @ 45919:                  PUSH   DUMP
4877 @ 45922:                  PUSHI  #0x00535452
4878 @ 45927:                  ASSPAR
4879 @ 45928:                  PUSHI  #0x00414343
4880 @ 45933:                  ASSPAR
4881 @ 45934:                  PUSH   BR
4882 @ 45937:                  PUSH   I
4883 @ 45940:                  PUSHI  #0x00000010
4884 @ 45945:                  RSH   
4885 @ 45946:                  PUSHI  #0x0000000f
4886 @ 45951:                  AND   
4887 @ 45952:                  ACCESS
4888 @ 45953:                  ASSPAR
4889 @ 45954:                  PUSH   I
4890 @ 45957:                  PUSHI  #0x0000ffff
4891 @ 45962:                  AND   
4892 @ 45963:                  ASSPAR
4893 @ 45964:                  CALL  
4894 @ 45965:                  LOCATE L_0003

   760       %IF A(J+1)=1 %THEN %START
4895 @ 45968:                  LINE   760 "regression-compile-tmp/skimp77.imp"
4896 @ 46006:                  PUSH   A
4897 @ 46009:                  PUSH   J
4898 @ 46012:                  PUSHI  #0x00000001
4899 @ 46017:                  ADD   
4900 @ 46018:                  ACCESS
4901 @ 46019:                  PUSHI  #0x00000001
4902 @ 46024:                  JUMPIF # L_0004

   761          PRINT NAME(A(J))
4903 @ 46028:                  LINE   761 "regression-compile-tmp/skimp77.imp"
4904 @ 46066:                  PUSH   PRINTNAME
4905 @ 46069:                  PUSH   A
4906 @ 46072:                  PUSH   J
4907 @ 46075:                  ACCESS
4908 @ 46076:                  ASSPAR
4909 @ 46077:                  CALL  

   762          FAULT(M'SCAL',M'AR H',M'AS P',M'ARAM')
4910 @ 46078:                  LINE   762 "regression-compile-tmp/skimp77.imp"
4911 @ 46116:                  PUSH   FAULT
4912 @ 46119:                  PUSHI  #0x5343414c
4913 @ 46124:                  ASSPAR
4914 @ 46125:                  PUSHI  #0x41522048
4915 @ 46130:                  ASSPAR
4916 @ 46131:                  PUSHI  #0x41532050
4917 @ 46136:                  ASSPAR
4918 @ 46137:                  PUSHI  #0x4152414d
4919 @ 46142:                  ASSPAR
4920 @ 46143:                  CALL  

   763          %FINISH
4921 @ 46144:                  LINE   763 "regression-compile-tmp/skimp77.imp"
4922 @ 46182:                  LOCATE L_0004

   764       %RETURN
   765  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !
   766  ! -> CONST
4923 @ 46185:                  LINE   764 "regression-compile-tmp/skimp77.imp"
4924 @ 46223:                  RETURN

   767  L20:  DUMP('B',0,M'BT',FIND LABEL)              ;! SCAN/INSERT JUMP LIST AND DUMP JUMP
4925 @ 46224:                  LINE   767 "regression-compile-tmp/skimp77.imp"
4926 @ 46262:                  LABEL  L_00ec
4927 @ 46265:                  LINE   767 "regression-compile-tmp/skimp77.imp"
4928 @ 46303:                  PUSH   DUMP
4929 @ 46306:                  PUSHI  #0x00000042
4930 @ 46311:                  ASSPAR
4931 @ 46312:                  PUSHI  #0x00000000
4932 @ 46317:                  ASSPAR
4933 @ 46318:                  PUSHI  #0x00004254
4934 @ 46323:                  ASSPAR
4935 @ 46324:                  PUSH   FINDLABEL
4936 @ 46327:                  CALL  
4937 @ 46328:                  ASSPAR
4938 @ 46329:                  CALL  

   768       %RETURN
   769  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !
   770  ! %START
4939 @ 46330:                  LINE   768 "regression-compile-tmp/skimp77.imp"
4940 @ 46368:                  RETURN

   771  L30:  FAULT(M'%STA',M'RT ?',M'    ',M'    ')    ;! %START ALONE SHOULD NOT BE A SOURCE STATEMENT
4941 @ 46369:                  LINE   771 "regression-compile-tmp/skimp77.imp"
4942 @ 46407:                  LABEL  L_00ed
4943 @ 46410:                  LINE   771 "regression-compile-tmp/skimp77.imp"
4944 @ 46448:                  PUSH   FAULT
4945 @ 46451:                  PUSHI  #0x25535441
4946 @ 46456:                  ASSPAR
4947 @ 46457:                  PUSHI  #0x5254203f
4948 @ 46462:                  ASSPAR
4949 @ 46463:                  PUSHI  #0x20202020
4950 @ 46468:                  ASSPAR
4951 @ 46469:                  PUSHI  #0x20202020
4952 @ 46474:                  ASSPAR
4953 @ 46475:                  CALL  

   772       %RETURN
   773  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !
   774  ! %RETURN
4954 @ 46476:                  LINE   772 "regression-compile-tmp/skimp77.imp"
4955 @ 46514:                  RETURN

   775  L40:  %IF RTP(LEVEL)\=0 %THEN FAULT(M'%RET',M'URN ',M'CONT',M'EXT ')
4956 @ 46515:                  LINE   775 "regression-compile-tmp/skimp77.imp"
4957 @ 46553:                  LABEL  L_00ee
4958 @ 46556:                  LINE   775 "regression-compile-tmp/skimp77.imp"
4959 @ 46594:                  PUSH   RTP
4960 @ 46597:                  PUSH   LEVEL
4961 @ 46600:                  ACCESS
4962 @ 46601:                  PUSHI  #0x00000000
4963 @ 46606:                  JUMPIF = L_0004
4964 @ 46610:                  PUSH   FAULT
4965 @ 46613:                  PUSHI  #0x25524554
4966 @ 46618:                  ASSPAR
4967 @ 46619:                  PUSHI  #0x55524e20
4968 @ 46624:                  ASSPAR
4969 @ 46625:                  PUSHI  #0x434f4e54
4970 @ 46630:                  ASSPAR
4971 @ 46631:                  PUSHI  #0x45585420
4972 @ 46636:                  ASSPAR
4973 @ 46637:                  CALL  
4974 @ 46638:                  LOCATE L_0004

   776       RETURN                                    ;! DUMP %RETURN CODE  -  INCORRECT FOR FN
4975 @ 46641:                  LINE   776 "regression-compile-tmp/skimp77.imp"
4976 @ 46679:                  PUSH   RETURN
4977 @ 46682:                  CALL  

   777       %RETURN
   778  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !
   779  ! %RESULT=
4978 @ 46683:                  LINE   777 "regression-compile-tmp/skimp77.imp"
4979 @ 46721:                  RETURN

   780  L50:  I=RTP(LEVEL)                              ;! ROUTINE/FN TYPE
4980 @ 46722:                  LINE   780 "regression-compile-tmp/skimp77.imp"
4981 @ 46760:                  LABEL  L_00ef
4982 @ 46763:                  LINE   780 "regression-compile-tmp/skimp77.imp"
4983 @ 46801:                  PUSH   I
4984 @ 46804:                  PUSH   RTP
4985 @ 46807:                  PUSH   LEVEL
4986 @ 46810:                  ACCESS
4987 @ 46811:                  ASSVAL

   781       %IF I<=0 %THEN FAULT(M'%RES',M'ULT ',M'CONT',M'EXT ') ;! %BEGIN/%ROUTINE
4988 @ 46812:                  LINE   781 "regression-compile-tmp/skimp77.imp"
4989 @ 46850:                  PUSH   I
4990 @ 46853:                  PUSHI  #0x00000000
4991 @ 46858:                  JUMPIF > L_0004
4992 @ 46862:                  PUSH   FAULT
4993 @ 46865:                  PUSHI  #0x25524553
4994 @ 46870:                  ASSPAR
4995 @ 46871:                  PUSHI  #0x554c5420
4996 @ 46876:                  ASSPAR
4997 @ 46877:                  PUSHI  #0x434f4e54
4998 @ 46882:                  ASSPAR
4999 @ 46883:                  PUSHI  #0x45585420
5000 @ 46888:                  ASSPAR
5001 @ 46889:                  CALL  
5002 @ 46890:                  LOCATE L_0004

   782       SEXPR                                     ;! COMPILE RESULT EXPRESSION
5003 @ 46893:                  LINE   782 "regression-compile-tmp/skimp77.imp"
5004 @ 46931:                  PUSH   SEXPR
5005 @ 46934:                  CALL  

   783       RETURN                                    ;! LEAVE RESULT IN ACC & DUMP RETURN CODE
5006 @ 46935:                  LINE   783 "regression-compile-tmp/skimp77.imp"
5007 @ 46973:                  PUSH   RETURN
5008 @ 46976:                  CALL  

   784  %END
   785  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
5009 @ 46977:                  LINE   784 "regression-compile-tmp/skimp77.imp"
5010 @ 47015:               END    _lev0id0_SS_UI {lev=3 --> 2}

   786  %ROUTINE SEXPR
   787  ! COMPILE ARITHMETIC EXPRESSION
5011 @ 47016:               LINE   786 "regression-compile-tmp/skimp77.imp"
5012 @ 47054:               DEF    SEXPR (_lev0id0_SS_SEXPR) p1=V_00b7 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
5013 @ 47071:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
5014 @ 47072:                  FINISH ) {lev=3}

   788  %ROUTINESPEC TORP
5015 @ 47073:                  LINE   788 "regression-compile-tmp/skimp77.imp"
5016 @ 47111:                  DEF    TORP (_lev0id0_SS_SEXPR_TORP) p1=V_00e7 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
5017 @ 47127:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
5018 @ 47128:                  FINISH ) {lev=3}

   789  %ROUTINESPEC PSEVAL
5019 @ 47129:                  LINE   789 "regression-compile-tmp/skimp77.imp"
5020 @ 47167:                  DEF    PSEVAL (_lev0id0_SS_SEXPR_PSEVAL) p1=V_00e8 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
5021 @ 47185:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
5022 @ 47186:                  FINISH ) {lev=3}

   790  %ROUTINESPEC EVAL(%INTEGER P)
5023 @ 47187:                  LINE   790 "regression-compile-tmp/skimp77.imp"
5024 @ 47225:                  DEF    EVAL (_lev0id0_SS_SEXPR_EVAL) p1=V_00e9 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
5025 @ 47241:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
5026 @ 47242:                     DEF    P p1=V_00ea a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
5027 @ 47255:                  FINISH ) {lev=3}

   791  %INTEGER RPP,APP
5028 @ 47256:                  LINE   791 "regression-compile-tmp/skimp77.imp"
5029 @ 47294:                  DEF    RPP p1=V_00ea a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
5030 @ 47309:                  DEF    APP p1=V_00eb a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   792  %INTEGERARRAY RP,PT(1:32)                   ;! REVERSE POLISH, POINTER/TYPE ARRAYS
5031 @ 47324:                  LINE   792 "regression-compile-tmp/skimp77.imp"
5032 @ 47362:                  DEF    RP p1=V_00ec a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
5033 @ 47376:                  DEF    PT p1=V_00ed a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
5034 @ 47390:                  PUSHI  #0x00000001
5035 @ 47395:                  PUSHI  #0x00000020
5036 @ 47400:                  DIM    0001 0002

   793       RPP=1                                  ;! RP POINTER
5037 @ 47406:                  LINE   793 "regression-compile-tmp/skimp77.imp"
5038 @ 47444:                  PUSH   RPP
5039 @ 47447:                  PUSHI  #0x00000001
5040 @ 47452:                  ASSVAL

   794       TORP                                   ;! EXPR TO REV POLISH
5041 @ 47453:                  LINE   794 "regression-compile-tmp/skimp77.imp"
5042 @ 47491:                  PUSH   TORP
5043 @ 47494:                  CALL  

   795       %IF SCF=1 %THEN %START                 ;! PART OF A SIMPLE CONDITION
5044 @ 47495:                  LINE   795 "regression-compile-tmp/skimp77.imp"
5045 @ 47533:                  PUSH   SCF
5046 @ 47536:                  PUSHI  #0x00000001
5047 @ 47541:                  JUMPIF # L_0004

   796          SCF=0                               ;! RESET FLAG
5048 @ 47545:                  LINE   796 "regression-compile-tmp/skimp77.imp"
5049 @ 47583:                  PUSH   SCF
5050 @ 47586:                  PUSHI  #0x00000000
5051 @ 47591:                  ASSVAL

   797          COMP=A(AP)                          ;! COMPARATOR NUMBER
5052 @ 47592:                  LINE   797 "regression-compile-tmp/skimp77.imp"
5053 @ 47630:                  PUSH   COMP
5054 @ 47633:                  PUSH   A
5055 @ 47636:                  PUSH   AP
5056 @ 47639:                  ACCESS
5057 @ 47640:                  ASSVAL

   798          %IF A(AP+3)=0 %AND A(AP+4)=2 %THEN AP=AP+5 %ELSE %START
5058 @ 47641:                  LINE   798 "regression-compile-tmp/skimp77.imp"
5059 @ 47679:                  PUSH   A
5060 @ 47682:                  PUSH   AP
5061 @ 47685:                  PUSHI  #0x00000003
5062 @ 47690:                  ADD   
5063 @ 47691:                  ACCESS
5064 @ 47692:                  PUSHI  #0x00000000
5065 @ 47697:                  JUMPIF # L_0007
5066 @ 47701:                  PUSH   A
5067 @ 47704:                  PUSH   AP
5068 @ 47707:                  PUSHI  #0x00000004
5069 @ 47712:                  ADD   
5070 @ 47713:                  ACCESS
5071 @ 47714:                  PUSHI  #0x00000002
5072 @ 47719:                  JUMPIF # L_0007
5073 @ 47723:                  PUSH   AP
5074 @ 47726:                  PUSH   AP
5075 @ 47729:                  PUSHI  #0x00000005
5076 @ 47734:                  ADD   
5077 @ 47735:                  ASSVAL
5078 @ 47736:                  GOTO   L_0006
5079 @ 47739:                  LOCATE L_0007

   799             AP=AP+1                          ;! 2ND EXPR NON-ZERO
5080 @ 47742:                  LINE   799 "regression-compile-tmp/skimp77.imp"
5081 @ 47780:                  PUSH   AP
5082 @ 47783:                  PUSH   AP
5083 @ 47786:                  PUSHI  #0x00000001
5084 @ 47791:                  ADD   
5085 @ 47792:                  ASSVAL

   800             TORP                             ;! 2ND EXPRESSION TO REVERSE POLISH
5086 @ 47793:                  LINE   800 "regression-compile-tmp/skimp77.imp"
5087 @ 47831:                  PUSH   TORP
5088 @ 47834:                  CALL  

   801             RP(RPP)=10                       ;! CODE FOR '-' I.E. (1ST-2ND)
5089 @ 47835:                  LINE   801 "regression-compile-tmp/skimp77.imp"
5090 @ 47873:                  PUSH   RP
5091 @ 47876:                  PUSH   RPP
5092 @ 47879:                  ACCESS
5093 @ 47880:                  PUSHI  #0x0000000a
5094 @ 47885:                  ASSVAL

   802             PT(RPP)=1                        ;! FLAG=OPERATOR
5095 @ 47886:                  LINE   802 "regression-compile-tmp/skimp77.imp"
5096 @ 47924:                  PUSH   PT
5097 @ 47927:                  PUSH   RPP
5098 @ 47930:                  ACCESS
5099 @ 47931:                  PUSHI  #0x00000001
5100 @ 47936:                  ASSVAL

   803             RPP=RPP+1                        ;! INCREMENT RP POINTER
5101 @ 47937:                  LINE   803 "regression-compile-tmp/skimp77.imp"
5102 @ 47975:                  PUSH   RPP
5103 @ 47978:                  PUSH   RPP
5104 @ 47981:                  PUSHI  #0x00000001
5105 @ 47986:                  ADD   
5106 @ 47987:                  ASSVAL

   804             %FINISH
5107 @ 47988:                  LINE   804 "regression-compile-tmp/skimp77.imp"
5108 @ 48026:                  LOCATE L_0006

   805          %FINISH
5109 @ 48029:                  LINE   805 "regression-compile-tmp/skimp77.imp"
5110 @ 48067:                  LOCATE L_0004

   806       APP=AP                                 ;! SAVE FINAL ANAL REC POINTER
5111 @ 48070:                  LINE   806 "regression-compile-tmp/skimp77.imp"
5112 @ 48108:                  PUSH   APP
5113 @ 48111:                  PUSH   AP
5114 @ 48114:                  ASSVAL

   807       PSEVAL                                 ;! PSEUDO-EVALUATE EXPRESSION
5115 @ 48115:                  LINE   807 "regression-compile-tmp/skimp77.imp"
5116 @ 48153:                  PUSH   PSEVAL
5117 @ 48156:                  CALL  

   808       EVAL(RPP-1)                            ;! DUMP CODE FOR EXPR EVALUATION
5118 @ 48157:                  LINE   808 "regression-compile-tmp/skimp77.imp"
5119 @ 48195:                  PUSH   EVAL
5120 @ 48198:                  PUSH   RPP
5121 @ 48201:                  PUSHI  #0x00000001
5122 @ 48206:                  SUB   
5123 @ 48207:                  ASSPAR
5124 @ 48208:                  CALL  

   809       AP=APP                                 ;! RESTORE FINAL ANAL REC POINTER
   810  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !
5125 @ 48209:                  LINE   809 "regression-compile-tmp/skimp77.imp"
5126 @ 48247:                  PUSH   AP
5127 @ 48250:                  PUSH   APP
5128 @ 48253:                  ASSVAL

   811  %ROUTINE TORP
   812  ! TRANSFORM EXPRESSION TO REVERSE POLISH
5129 @ 48254:                  LINE   811 "regression-compile-tmp/skimp77.imp"
5130 @ 48292:                  DEF    TORP (_lev0id0_SS_SEXPR_TORP) p1=V_00e7 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
5131 @ 48308:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
5132 @ 48309:                     FINISH ) {lev=4}

   813  %ROUTINESPEC STORE(%INTEGER I,J)
5133 @ 48310:                     LINE   813 "regression-compile-tmp/skimp77.imp"
5134 @ 48348:                     DEF    STORE (_lev0id0_SS_SEXPR_TORP_STORE) p1=V_00ee 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
5135 @ 48365:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
5136 @ 48366:                        DEF    I p1=V_00ef a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
5137 @ 48379:                        DEF    J p1=V_00f0 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
5138 @ 48392:                     FINISH ) {lev=4}

   814  %INTEGERARRAY OP(1:4)
5139 @ 48393:                     LINE   814 "regression-compile-tmp/skimp77.imp"
5140 @ 48431:                     DEF    OP p1=V_00ef a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
5141 @ 48445:                     PUSHI  #0x00000001
5142 @ 48450:                     PUSHI  #0x00000004
5143 @ 48455:                     DIM    0001 0001

   815  %INTEGER OPP,I
5144 @ 48461:                     LINE   815 "regression-compile-tmp/skimp77.imp"
5145 @ 48499:                     DEF    OPP p1=V_00f0 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
5146 @ 48514:                     DEF    I p1=V_00f1 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   816       OPP=0                              ;! OPERATOR STACK POINTER
5147 @ 48527:                     LINE   816 "regression-compile-tmp/skimp77.imp"
5148 @ 48565:                     PUSH   OPP
5149 @ 48568:                     PUSHI  #0x00000000
5150 @ 48573:                     ASSVAL

   817       I=A(AP)                            ;! <+-\>
5151 @ 48574:                     LINE   817 "regression-compile-tmp/skimp77.imp"
5152 @ 48612:                     PUSH   I
5153 @ 48615:                     PUSH   A
5154 @ 48618:                     PUSH   AP
5155 @ 48621:                     ACCESS
5156 @ 48622:                     ASSVAL

   818       AP=AP+1
5157 @ 48623:                     LINE   818 "regression-compile-tmp/skimp77.imp"
5158 @ 48661:                     PUSH   AP
5159 @ 48664:                     PUSH   AP
5160 @ 48667:                     PUSHI  #0x00000001
5161 @ 48672:                     ADD   
5162 @ 48673:                     ASSVAL

   819       %IF I=1 %OR I=4 %THEN ->L1          ;! + OR NULL
5163 @ 48674:                     LINE   819 "regression-compile-tmp/skimp77.imp"
5164 @ 48712:                     PUSH   I
5165 @ 48715:                     PUSHI  #0x00000001
5166 @ 48720:                     JUMPIF = L_0005
5167 @ 48724:                     PUSH   I
5168 @ 48727:                     PUSHI  #0x00000004
5169 @ 48732:                     JUMPIF # L_0004
5170 @ 48736:                     LOCATE L_0005
5171 @ 48739:                     JUMP   L_00f2
5172 @ 48742:                     LOCATE L_0004

   820       I=I+9                              ;! CODES FOR - & \
5173 @ 48745:                     LINE   820 "regression-compile-tmp/skimp77.imp"
5174 @ 48783:                     PUSH   I
5175 @ 48786:                     PUSH   I
5176 @ 48789:                     PUSHI  #0x00000009
5177 @ 48794:                     ADD   
5178 @ 48795:                     ASSVAL

   821  L3:   OPP=OPP+1                          ;! STACK OPERATOR
5179 @ 48796:                     LINE   821 "regression-compile-tmp/skimp77.imp"
5180 @ 48834:                     LABEL  L_00f3
5181 @ 48837:                     LINE   821 "regression-compile-tmp/skimp77.imp"
5182 @ 48875:                     PUSH   OPP
5183 @ 48878:                     PUSH   OPP
5184 @ 48881:                     PUSHI  #0x00000001
5185 @ 48886:                     ADD   
5186 @ 48887:                     ASSVAL

   822       OP(OPP)=I
5187 @ 48888:                     LINE   822 "regression-compile-tmp/skimp77.imp"
5188 @ 48926:                     PUSH   OP
5189 @ 48929:                     PUSH   OPP
5190 @ 48932:                     ACCESS
5191 @ 48933:                     PUSH   I
5192 @ 48936:                     ASSVAL

   823  L1:   I=A(AP)                            ;! <OPD>
5193 @ 48937:                     LINE   823 "regression-compile-tmp/skimp77.imp"
5194 @ 48975:                     LABEL  L_00f2
5195 @ 48978:                     LINE   823 "regression-compile-tmp/skimp77.imp"
5196 @ 49016:                     PUSH   I
5197 @ 49019:                     PUSH   A
5198 @ 49022:                     PUSH   AP
5199 @ 49025:                     ACCESS
5200 @ 49026:                     ASSVAL

   824       %IF I=3 %THEN %START               ;! SUB-EXPRESSION
5201 @ 49027:                     LINE   824 "regression-compile-tmp/skimp77.imp"
5202 @ 49065:                     PUSH   I
5203 @ 49068:                     PUSHI  #0x00000003
5204 @ 49073:                     JUMPIF # L_0004

   825          AP=AP+1                         ;! AP TO <+-\>
5205 @ 49077:                     LINE   825 "regression-compile-tmp/skimp77.imp"
5206 @ 49115:                     PUSH   AP
5207 @ 49118:                     PUSH   AP
5208 @ 49121:                     PUSHI  #0x00000001
5209 @ 49126:                     ADD   
5210 @ 49127:                     ASSVAL

   826          TORP                            ;! TRANSFORM SUB-EXPR TO REV POL
5211 @ 49128:                     LINE   826 "regression-compile-tmp/skimp77.imp"
5212 @ 49166:                     PUSH   TORP
5213 @ 49169:                     CALL  

   827          %FINISH %ELSE %START
5214 @ 49170:                     LINE   827 "regression-compile-tmp/skimp77.imp"
5215 @ 49208:                     GOTO   L_0003
5216 @ 49211:                     LOCATE L_0004

   828          STORE(AP,0)                     ;! STORE ANAL REC POSITION OF OPERAND
5217 @ 49214:                     LINE   828 "regression-compile-tmp/skimp77.imp"
5218 @ 49252:                     PUSH   STORE
5219 @ 49255:                     PUSH   AP
5220 @ 49258:                     ASSPAR
5221 @ 49259:                     PUSHI  #0x00000000
5222 @ 49264:                     ASSPAR
5223 @ 49265:                     CALL  

   829          AP=AP+2                         ;! AP ON <APP> OR AFTER <CNST>
5224 @ 49266:                     LINE   829 "regression-compile-tmp/skimp77.imp"
5225 @ 49304:                     PUSH   AP
5226 @ 49307:                     PUSH   AP
5227 @ 49310:                     PUSHI  #0x00000002
5228 @ 49315:                     ADD   
5229 @ 49316:                     ASSVAL

   830          %IF I=1 %THEN SKIP APP          ;! OPERAND A NAME
5230 @ 49317:                     LINE   830 "regression-compile-tmp/skimp77.imp"
5231 @ 49355:                     PUSH   I
5232 @ 49358:                     PUSHI  #0x00000001
5233 @ 49363:                     JUMPIF # L_0007
5234 @ 49367:                     PUSH   SKIPAPP
5235 @ 49370:                     CALL  
5236 @ 49371:                     LOCATE L_0007

   831          %FINISH
5237 @ 49374:                     LINE   831 "regression-compile-tmp/skimp77.imp"
5238 @ 49412:                     LOCATE L_0003

   832       %IF A(AP)=2 %THEN %START           ;! END OF <EXPR>
5239 @ 49415:                     LINE   832 "regression-compile-tmp/skimp77.imp"
5240 @ 49453:                     PUSH   A
5241 @ 49456:                     PUSH   AP
5242 @ 49459:                     ACCESS
5243 @ 49460:                     PUSHI  #0x00000002
5244 @ 49465:                     JUMPIF # L_0004

   833          AP=AP+1                         ;! AP AFTER EXPRESSION
5245 @ 49469:                     LINE   833 "regression-compile-tmp/skimp77.imp"
5246 @ 49507:                     PUSH   AP
5247 @ 49510:                     PUSH   AP
5248 @ 49513:                     PUSHI  #0x00000001
5249 @ 49518:                     ADD   
5250 @ 49519:                     ASSVAL

   834  L2:      %IF OPP=0 %THEN %RETURN         ;! OPERATOR STACK EMPTIED
5251 @ 49520:                     LINE   834 "regression-compile-tmp/skimp77.imp"
5252 @ 49558:                     LABEL  L_00f4
5253 @ 49561:                     LINE   834 "regression-compile-tmp/skimp77.imp"
5254 @ 49599:                     PUSH   OPP
5255 @ 49602:                     PUSHI  #0x00000000
5256 @ 49607:                     JUMPIF # L_0007
5257 @ 49611:                     RETURN
5258 @ 49612:                     LOCATE L_0007

   835          STORE(OP(OPP),1)                ;! UNSTACK REMAINING OPERATORS
5259 @ 49615:                     LINE   835 "regression-compile-tmp/skimp77.imp"
5260 @ 49653:                     PUSH   STORE
5261 @ 49656:                     PUSH   OP
5262 @ 49659:                     PUSH   OPP
5263 @ 49662:                     ACCESS
5264 @ 49663:                     ASSPAR
5265 @ 49664:                     PUSHI  #0x00000001
5266 @ 49669:                     ASSPAR
5267 @ 49670:                     CALL  

   836          OPP=OPP-1
5268 @ 49671:                     LINE   836 "regression-compile-tmp/skimp77.imp"
5269 @ 49709:                     PUSH   OPP
5270 @ 49712:                     PUSH   OPP
5271 @ 49715:                     PUSHI  #0x00000001
5272 @ 49720:                     SUB   
5273 @ 49721:                     ASSVAL

   837          ->L2 ; %FINISH
5274 @ 49722:                     LINE   837 "regression-compile-tmp/skimp77.imp"
5275 @ 49760:                     JUMP   L_00f4
5276 @ 49763:                     LINE   837 "regression-compile-tmp/skimp77.imp"
5277 @ 49801:                     LOCATE L_0004

   838       I=A(AP+1)                          ;! <OP>
5278 @ 49804:                     LINE   838 "regression-compile-tmp/skimp77.imp"
5279 @ 49842:                     PUSH   I
5280 @ 49845:                     PUSH   A
5281 @ 49848:                     PUSH   AP
5282 @ 49851:                     PUSHI  #0x00000001
5283 @ 49856:                     ADD   
5284 @ 49857:                     ACCESS
5285 @ 49858:                     ASSVAL

   839       AP=AP+2                            ;! AP ON <EXPR>
5286 @ 49859:                     LINE   839 "regression-compile-tmp/skimp77.imp"
5287 @ 49897:                     PUSH   AP
5288 @ 49900:                     PUSH   AP
5289 @ 49903:                     PUSHI  #0x00000002
5290 @ 49908:                     ADD   
5291 @ 49909:                     ASSVAL

   840  L4:   %IF OPP=0 %OR PREC(I)>PREC(OP(OPP)) %THEN ->L3 ;! OP STACK EMPTY OR NEW OP HIGHER PREC
5292 @ 49910:                     LINE   840 "regression-compile-tmp/skimp77.imp"
5293 @ 49948:                     LABEL  L_00f5
5294 @ 49951:                     LINE   840 "regression-compile-tmp/skimp77.imp"
5295 @ 49989:                     PUSH   OPP
5296 @ 49992:                     PUSHI  #0x00000000
5297 @ 49997:                     JUMPIF = L_0005
5298 @ 50001:                     PUSH   PREC
5299 @ 50004:                     PUSH   I
5300 @ 50007:                     ACCESS
5301 @ 50008:                     PUSH   PREC
5302 @ 50011:                     PUSH   OP
5303 @ 50014:                     PUSH   OPP
5304 @ 50017:                     ACCESS
5305 @ 50018:                     ACCESS
5306 @ 50019:                     JUMPIF <= L_0004
5307 @ 50023:                     LOCATE L_0005
5308 @ 50026:                     JUMP   L_00f3
5309 @ 50029:                     LOCATE L_0004

   841       STORE(OP(OPP),1)                   ;! UNSTACK TOP OPERATOR
5310 @ 50032:                     LINE   841 "regression-compile-tmp/skimp77.imp"
5311 @ 50070:                     PUSH   STORE
5312 @ 50073:                     PUSH   OP
5313 @ 50076:                     PUSH   OPP
5314 @ 50079:                     ACCESS
5315 @ 50080:                     ASSPAR
5316 @ 50081:                     PUSHI  #0x00000001
5317 @ 50086:                     ASSPAR
5318 @ 50087:                     CALL  

   842       OPP=OPP-1
5319 @ 50088:                     LINE   842 "regression-compile-tmp/skimp77.imp"
5320 @ 50126:                     PUSH   OPP
5321 @ 50129:                     PUSH   OPP
5322 @ 50132:                     PUSHI  #0x00000001
5323 @ 50137:                     SUB   
5324 @ 50138:                     ASSVAL

   843       ->L4
   844  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !
5325 @ 50139:                     LINE   843 "regression-compile-tmp/skimp77.imp"
5326 @ 50177:                     JUMP   L_00f5

   845  %ROUTINE STORE(%INTEGER I,J)
   846  ! STORE IN RP & PT ARRAYS, I=ANAL REC PTR , J= OP/OPD FLAG
5327 @ 50180:                     LINE   845 "regression-compile-tmp/skimp77.imp"
5328 @ 50218:                     DEF    STORE (_lev0id0_SS_SEXPR_TORP_STORE) p1=V_00ee 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
5329 @ 50235:                        START  ( FORMAL PARAMETERS  {lev=5 --> 6, nested=0 --> 1}
5330 @ 50236:                           DEF    I p1=V_00f6 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
5331 @ 50249:                           DEF    J p1=V_00f7 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
5332 @ 50262:                        FINISH ) {lev=5}

   847       %IF RPP>32 %THEN %START             ;! REV POL ARRAY FULL
5333 @ 50263:                        LINE   847 "regression-compile-tmp/skimp77.imp"
5334 @ 50301:                        PUSH   RPP
5335 @ 50304:                        PUSHI  #0x00000020
5336 @ 50309:                        JUMPIF <= L_0004

   848          FAULT(M'EXPR',M' TOO',M' LON',M'G   ')
5337 @ 50313:                        LINE   848 "regression-compile-tmp/skimp77.imp"
5338 @ 50351:                        PUSH   FAULT
5339 @ 50354:                        PUSHI  #0x45585052
5340 @ 50359:                        ASSPAR
5341 @ 50360:                        PUSHI  #0x20544f4f
5342 @ 50365:                        ASSPAR
5343 @ 50366:                        PUSHI  #0x204c4f4e
5344 @ 50371:                        ASSPAR
5345 @ 50372:                        PUSHI  #0x47202020
5346 @ 50377:                        ASSPAR
5347 @ 50378:                        CALL  

   849          RPP=1                            ;! IN ORDER TO CONTINUE
5348 @ 50379:                        LINE   849 "regression-compile-tmp/skimp77.imp"
5349 @ 50417:                        PUSH   RPP
5350 @ 50420:                        PUSHI  #0x00000001
5351 @ 50425:                        ASSVAL

   850          %FINISH
5352 @ 50426:                        LINE   850 "regression-compile-tmp/skimp77.imp"
5353 @ 50464:                        LOCATE L_0004

   851       RP(RPP)=I                           ;! STORE OP/OPD
5354 @ 50467:                        LINE   851 "regression-compile-tmp/skimp77.imp"
5355 @ 50505:                        PUSH   RP
5356 @ 50508:                        PUSH   RPP
5357 @ 50511:                        ACCESS
5358 @ 50512:                        PUSH   I
5359 @ 50515:                        ASSVAL

   852       PT(RPP)=J                           ;! STORE FLAG
5360 @ 50516:                        LINE   852 "regression-compile-tmp/skimp77.imp"
5361 @ 50554:                        PUSH   PT
5362 @ 50557:                        PUSH   RPP
5363 @ 50560:                        ACCESS
5364 @ 50561:                        PUSH   J
5365 @ 50564:                        ASSVAL

   853       RPP=RPP+1                           ;! NEXT POSITION
5366 @ 50565:                        LINE   853 "regression-compile-tmp/skimp77.imp"
5367 @ 50603:                        PUSH   RPP
5368 @ 50606:                        PUSH   RPP
5369 @ 50609:                        PUSHI  #0x00000001
5370 @ 50614:                        ADD   
5371 @ 50615:                        ASSVAL

   854  %END
5372 @ 50616:                        LINE   854 "regression-compile-tmp/skimp77.imp"
5373 @ 50654:                     END    _lev0id0_SS_SEXPR_TORP_STORE {lev=5 --> 4}

   855  %END
   856  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !
5374 @ 50655:                     LINE   855 "regression-compile-tmp/skimp77.imp"
5375 @ 50693:                  END    _lev0id0_SS_SEXPR_TORP {lev=4 --> 3}

   857  %ROUTINE PSEVAL
   858  ! PSEUDO-EVALUATION, CHECKING OPERANDS
5376 @ 50694:                  LINE   857 "regression-compile-tmp/skimp77.imp"
5377 @ 50732:                  DEF    PSEVAL (_lev0id0_SS_SEXPR_PSEVAL) p1=V_00e8 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
5378 @ 50750:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
5379 @ 50751:                     FINISH ) {lev=4}

   859  %INTEGERARRAY PST(1:32)                      ;! OPERAND POINTER STACK
5380 @ 50752:                     LINE   859 "regression-compile-tmp/skimp77.imp"
5381 @ 50790:                     DEF    PST p1=V_00ee a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
5382 @ 50805:                     PUSHI  #0x00000001
5383 @ 50810:                     PUSHI  #0x00000020
5384 @ 50815:                     DIM    0001 0001

   860  %INTEGER PSTP,I,J,K
5385 @ 50821:                     LINE   860 "regression-compile-tmp/skimp77.imp"
5386 @ 50859:                     DEF    PSTP p1=V_00ef a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
5387 @ 50875:                     DEF    I p1=V_00f0 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
5388 @ 50888:                     DEF    J p1=V_00f1 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
5389 @ 50901:                     DEF    K p1=V_00f2 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   861       PSTP=0                                  ;! PST POINTER
5390 @ 50914:                     LINE   861 "regression-compile-tmp/skimp77.imp"
5391 @ 50952:                     PUSH   PSTP
5392 @ 50955:                     PUSHI  #0x00000000
5393 @ 50960:                     ASSVAL

   862       I=1                                     ;! REV POL ARRAY POINTER
5394 @ 50961:                     LINE   862 "regression-compile-tmp/skimp77.imp"
5395 @ 50999:                     PUSH   I
5396 @ 51002:                     PUSHI  #0x00000001
5397 @ 51007:                     ASSVAL

   863  L3:   AP=RP(I)                                ;! ANAL REC POSITION OF OPERAND
5398 @ 51008:                     LINE   863 "regression-compile-tmp/skimp77.imp"
5399 @ 51046:                     LABEL  L_00f3
5400 @ 51049:                     LINE   863 "regression-compile-tmp/skimp77.imp"
5401 @ 51087:                     PUSH   AP
5402 @ 51090:                     PUSH   RP
5403 @ 51093:                     PUSH   I
5404 @ 51096:                     ACCESS
5405 @ 51097:                     ASSVAL

   864       %IF A(AP)=1 %THEN %START                ;! OPERAND A NAME
5406 @ 51098:                     LINE   864 "regression-compile-tmp/skimp77.imp"
5407 @ 51136:                     PUSH   A
5408 @ 51139:                     PUSH   AP
5409 @ 51142:                     ACCESS
5410 @ 51143:                     PUSHI  #0x00000001
5411 @ 51148:                     JUMPIF # L_0004

   865          J=LINK(A(AP+1))                      ;! LINK TO TAG OF NAME
5412 @ 51152:                     LINE   865 "regression-compile-tmp/skimp77.imp"
5413 @ 51190:                     PUSH   J
5414 @ 51193:                     PUSH   LINK
5415 @ 51196:                     PUSH   A
5416 @ 51199:                     PUSH   AP
5417 @ 51202:                     PUSHI  #0x00000001
5418 @ 51207:                     ADD   
5419 @ 51208:                     ACCESS
5420 @ 51209:                     ACCESS
5421 @ 51210:                     ASSVAL

   866          %IF J=0 %THEN %START
5422 @ 51211:                     LINE   866 "regression-compile-tmp/skimp77.imp"
5423 @ 51249:                     PUSH   J
5424 @ 51252:                     PUSHI  #0x00000000
5425 @ 51257:                     JUMPIF # L_0007

   867             PRINT NAME(A(AP+1))
5426 @ 51261:                     LINE   867 "regression-compile-tmp/skimp77.imp"
5427 @ 51299:                     PUSH   PRINTNAME
5428 @ 51302:                     PUSH   A
5429 @ 51305:                     PUSH   AP
5430 @ 51308:                     PUSHI  #0x00000001
5431 @ 51313:                     ADD   
5432 @ 51314:                     ACCESS
5433 @ 51315:                     ASSPAR
5434 @ 51316:                     CALL  

   868             FAULT(M'NAME',M' NOT',M' SET',0)
5435 @ 51317:                     LINE   868 "regression-compile-tmp/skimp77.imp"
5436 @ 51355:                     PUSH   FAULT
5437 @ 51358:                     PUSHI  #0x4e414d45
5438 @ 51363:                     ASSPAR
5439 @ 51364:                     PUSHI  #0x204e4f54
5440 @ 51369:                     ASSPAR
5441 @ 51370:                     PUSHI  #0x20534554
5442 @ 51375:                     ASSPAR
5443 @ 51376:                     PUSHI  #0x00000000
5444 @ 51381:                     ASSPAR
5445 @ 51382:                     CALL  

   869             K=0                               ;! DUMMY TAG VALUE
5446 @ 51383:                     LINE   869 "regression-compile-tmp/skimp77.imp"
5447 @ 51421:                     PUSH   K
5448 @ 51424:                     PUSHI  #0x00000000
5449 @ 51429:                     ASSVAL

   870             ->L1 ; %FINISH
5450 @ 51430:                     LINE   870 "regression-compile-tmp/skimp77.imp"
5451 @ 51468:                     JUMP   L_00f4
5452 @ 51471:                     LINE   870 "regression-compile-tmp/skimp77.imp"
5453 @ 51509:                     LOCATE L_0007

   871          K=TAG(J)                             ;! TAG OF NAME
5454 @ 51512:                     LINE   871 "regression-compile-tmp/skimp77.imp"
5455 @ 51550:                     PUSH   K
5456 @ 51553:                     PUSH   TAG
5457 @ 51556:                     PUSH   J
5458 @ 51559:                     ACCESS
5459 @ 51560:                     ASSVAL

   872          J=K>>28                              ;! 'FORM' OF NAME
5460 @ 51561:                     LINE   872 "regression-compile-tmp/skimp77.imp"
5461 @ 51599:                     PUSH   J
5462 @ 51602:                     PUSH   K
5463 @ 51605:                     PUSHI  #0x0000001c
5464 @ 51610:                     RSH   
5465 @ 51611:                     ASSVAL

   873          %IF J>1 %THEN %START                 ;! ARRAY OR ROUTINE/FN TYPE
5466 @ 51612:                     LINE   873 "regression-compile-tmp/skimp77.imp"
5467 @ 51650:                     PUSH   J
5468 @ 51653:                     PUSHI  #0x00000001
5469 @ 51658:                     JUMPIF <= L_0007

   874             RP(I)=AP+1                        ;! STORE ANAL REC POSITION OF <NAME>
5470 @ 51662:                     LINE   874 "regression-compile-tmp/skimp77.imp"
5471 @ 51700:                     PUSH   RP
5472 @ 51703:                     PUSH   I
5473 @ 51706:                     ACCESS
5474 @ 51707:                     PUSH   AP
5475 @ 51710:                     PUSHI  #0x00000001
5476 @ 51715:                     ADD   
5477 @ 51716:                     ASSVAL

   875             %IF J=4 %THEN %START              ;! NAME IS ROUTINE/FN TYPE
5478 @ 51717:                     LINE   875 "regression-compile-tmp/skimp77.imp"
5479 @ 51755:                     PUSH   J
5480 @ 51758:                     PUSHI  #0x00000004
5481 @ 51763:                     JUMPIF # L_000a

   876                %IF K>>24&15=0 %THEN %START
5482 @ 51767:                     LINE   876 "regression-compile-tmp/skimp77.imp"
5483 @ 51805:                     PUSH   K
5484 @ 51808:                     PUSHI  #0x00000018
5485 @ 51813:                     RSH   
5486 @ 51814:                     PUSHI  #0x0000000f
5487 @ 51819:                     AND   
5488 @ 51820:                     PUSHI  #0x00000000
5489 @ 51825:                     JUMPIF # L_000d

   877                   PRINT NAME(A(AP+1))
5490 @ 51829:                     LINE   877 "regression-compile-tmp/skimp77.imp"
5491 @ 51867:                     PUSH   PRINTNAME
5492 @ 51870:                     PUSH   A
5493 @ 51873:                     PUSH   AP
5494 @ 51876:                     PUSHI  #0x00000001
5495 @ 51881:                     ADD   
5496 @ 51882:                     ACCESS
5497 @ 51883:                     ASSPAR
5498 @ 51884:                     CALL  

   878                   FAULT(M'RT N',M'AME ',M'IN E',M'XPR ')
5499 @ 51885:                     LINE   878 "regression-compile-tmp/skimp77.imp"
5500 @ 51923:                     PUSH   FAULT
5501 @ 51926:                     PUSHI  #0x5254204e
5502 @ 51931:                     ASSPAR
5503 @ 51932:                     PUSHI  #0x414d4520
5504 @ 51937:                     ASSPAR
5505 @ 51938:                     PUSHI  #0x494e2045
5506 @ 51943:                     ASSPAR
5507 @ 51944:                     PUSHI  #0x58505220
5508 @ 51949:                     ASSPAR
5509 @ 51950:                     CALL  

   879                   K=0                         ;! DUMMY TAG VALUE
5510 @ 51951:                     LINE   879 "regression-compile-tmp/skimp77.imp"
5511 @ 51989:                     PUSH   K
5512 @ 51992:                     PUSHI  #0x00000000
5513 @ 51997:                     ASSVAL

   880                   ->L1 ; %FINISH
5514 @ 51998:                     LINE   880 "regression-compile-tmp/skimp77.imp"
5515 @ 52036:                     JUMP   L_00f4
5516 @ 52039:                     LINE   880 "regression-compile-tmp/skimp77.imp"
5517 @ 52077:                     LOCATE L_000d

   881                PT(I)=-1                       ;! FLAG FOR FUNCTION
5518 @ 52080:                     LINE   881 "regression-compile-tmp/skimp77.imp"
5519 @ 52118:                     PUSH   PT
5520 @ 52121:                     PUSH   I
5521 @ 52124:                     ACCESS
5522 @ 52125:                     PUSHI  #0x00000001
5523 @ 52130:                     NEGATE
5524 @ 52131:                     ASSVAL

   882                %FINISH %ELSE PT(I)=-2         ;! FLAG FOR ARRAY
5525 @ 52132:                     LINE   882 "regression-compile-tmp/skimp77.imp"
5526 @ 52170:                     GOTO   L_0009
5527 @ 52173:                     LOCATE L_000a
5528 @ 52176:                     PUSH   PT
5529 @ 52179:                     PUSH   I
5530 @ 52182:                     ACCESS
5531 @ 52183:                     PUSHI  #0x00000002
5532 @ 52188:                     NEGATE
5533 @ 52189:                     ASSVAL
5534 @ 52190:                     LOCATE L_0009

   883             ->L2 ; %FINISH                     ;! GO TO STACK POINTER
5535 @ 52193:                     LINE   883 "regression-compile-tmp/skimp77.imp"
5536 @ 52231:                     JUMP   L_00f5
5537 @ 52234:                     LINE   883 "regression-compile-tmp/skimp77.imp"
5538 @ 52272:                     LOCATE L_0007

   884          %IF A(AP+2)=1 %THEN %START
5539 @ 52275:                     LINE   884 "regression-compile-tmp/skimp77.imp"
5540 @ 52313:                     PUSH   A
5541 @ 52316:                     PUSH   AP
5542 @ 52319:                     PUSHI  #0x00000002
5543 @ 52324:                     ADD   
5544 @ 52325:                     ACCESS
5545 @ 52326:                     PUSHI  #0x00000001
5546 @ 52331:                     JUMPIF # L_0007

   885             PRINT NAME(A(AP+1))
5547 @ 52335:                     LINE   885 "regression-compile-tmp/skimp77.imp"
5548 @ 52373:                     PUSH   PRINTNAME
5549 @ 52376:                     PUSH   A
5550 @ 52379:                     PUSH   AP
5551 @ 52382:                     PUSHI  #0x00000001
5552 @ 52387:                     ADD   
5553 @ 52388:                     ACCESS
5554 @ 52389:                     ASSPAR
5555 @ 52390:                     CALL  

   886             FAULT(M'SCAL',M'AR H',M'AS P',M'ARAM')
5556 @ 52391:                     LINE   886 "regression-compile-tmp/skimp77.imp"
5557 @ 52429:                     PUSH   FAULT
5558 @ 52432:                     PUSHI  #0x5343414c
5559 @ 52437:                     ASSPAR
5560 @ 52438:                     PUSHI  #0x41522048
5561 @ 52443:                     ASSPAR
5562 @ 52444:                     PUSHI  #0x41532050
5563 @ 52449:                     ASSPAR
5564 @ 52450:                     PUSHI  #0x4152414d
5565 @ 52455:                     ASSPAR
5566 @ 52456:                     CALL  

   887             %FINISH
5567 @ 52457:                     LINE   887 "regression-compile-tmp/skimp77.imp"
5568 @ 52495:                     LOCATE L_0007

   888  L1:      RP(I)=K                              ;! STORE TAG OF NAME FOR SCALARS
5569 @ 52498:                     LINE   888 "regression-compile-tmp/skimp77.imp"
5570 @ 52536:                     LABEL  L_00f4
5571 @ 52539:                     LINE   888 "regression-compile-tmp/skimp77.imp"
5572 @ 52577:                     PUSH   RP
5573 @ 52580:                     PUSH   I
5574 @ 52583:                     ACCESS
5575 @ 52584:                     PUSH   K
5576 @ 52587:                     ASSVAL

   889          PT(I)=-3                             ;! FLAG FOR SCALARS
5577 @ 52588:                     LINE   889 "regression-compile-tmp/skimp77.imp"
5578 @ 52626:                     PUSH   PT
5579 @ 52629:                     PUSH   I
5580 @ 52632:                     ACCESS
5581 @ 52633:                     PUSHI  #0x00000003
5582 @ 52638:                     NEGATE
5583 @ 52639:                     ASSVAL

   890          %FINISH %ELSE %START                 ;! OPERAND IS A <CNST>
5584 @ 52640:                     LINE   890 "regression-compile-tmp/skimp77.imp"
5585 @ 52678:                     GOTO   L_0003
5586 @ 52681:                     LOCATE L_0004

   891          RP(I)=A(AP+1)                        ;! STORE VALUE OF CONSTANT
5587 @ 52684:                     LINE   891 "regression-compile-tmp/skimp77.imp"
5588 @ 52722:                     PUSH   RP
5589 @ 52725:                     PUSH   I
5590 @ 52728:                     ACCESS
5591 @ 52729:                     PUSH   A
5592 @ 52732:                     PUSH   AP
5593 @ 52735:                     PUSHI  #0x00000001
5594 @ 52740:                     ADD   
5595 @ 52741:                     ACCESS
5596 @ 52742:                     ASSVAL

   892          PT(I)=-4                             ;! FLAG FOR CONSTANTS
5597 @ 52743:                     LINE   892 "regression-compile-tmp/skimp77.imp"
5598 @ 52781:                     PUSH   PT
5599 @ 52784:                     PUSH   I
5600 @ 52787:                     ACCESS
5601 @ 52788:                     PUSHI  #0x00000004
5602 @ 52793:                     NEGATE
5603 @ 52794:                     ASSVAL

   893          %FINISH
5604 @ 52795:                     LINE   893 "regression-compile-tmp/skimp77.imp"
5605 @ 52833:                     LOCATE L_0003

   894  L2:   PSTP=PSTP+1                             ;! STACK OPERAND POINTER
5606 @ 52836:                     LINE   894 "regression-compile-tmp/skimp77.imp"
5607 @ 52874:                     LABEL  L_00f5
5608 @ 52877:                     LINE   894 "regression-compile-tmp/skimp77.imp"
5609 @ 52915:                     PUSH   PSTP
5610 @ 52918:                     PUSH   PSTP
5611 @ 52921:                     PUSHI  #0x00000001
5612 @ 52926:                     ADD   
5613 @ 52927:                     ASSVAL

   895  L4:   PST(PSTP)=I
5614 @ 52928:                     LINE   895 "regression-compile-tmp/skimp77.imp"
5615 @ 52966:                     LABEL  L_00f6
5616 @ 52969:                     LINE   895 "regression-compile-tmp/skimp77.imp"
5617 @ 53007:                     PUSH   PST
5618 @ 53010:                     PUSH   PSTP
5619 @ 53013:                     ACCESS
5620 @ 53014:                     PUSH   I
5621 @ 53017:                     ASSVAL

   896       I=I+1                                   ;! REV POL ARRAY POINTER
5622 @ 53018:                     LINE   896 "regression-compile-tmp/skimp77.imp"
5623 @ 53056:                     PUSH   I
5624 @ 53059:                     PUSH   I
5625 @ 53062:                     PUSHI  #0x00000001
5626 @ 53067:                     ADD   
5627 @ 53068:                     ASSVAL

   897       %IF I<RPP %THEN %START                  ;! NOT END OF REV POL YET
5628 @ 53069:                     LINE   897 "regression-compile-tmp/skimp77.imp"
5629 @ 53107:                     PUSH   I
5630 @ 53110:                     PUSH   RPP
5631 @ 53113:                     JUMPIF >= L_0004

   898          %IF PT(I)=0 %THEN ->L3                ;! AN OPERAND IS NEXT
5632 @ 53117:                     LINE   898 "regression-compile-tmp/skimp77.imp"
5633 @ 53155:                     PUSH   PT
5634 @ 53158:                     PUSH   I
5635 @ 53161:                     ACCESS
5636 @ 53162:                     PUSHI  #0x00000000
5637 @ 53167:                     JUMPIF # L_0007
5638 @ 53171:                     JUMP   L_00f3
5639 @ 53174:                     LOCATE L_0007

   899          %IF RP(I)<=10 %THEN %START           ;! BINARY OPERATORS
5640 @ 53177:                     LINE   899 "regression-compile-tmp/skimp77.imp"
5641 @ 53215:                     PUSH   RP
5642 @ 53218:                     PUSH   I
5643 @ 53221:                     ACCESS
5644 @ 53222:                     PUSHI  #0x0000000a
5645 @ 53227:                     JUMPIF > L_0007

   900             PSTP=PSTP-1                       ;! PSEUDO-EVALUATE POINTERS
5646 @ 53231:                     LINE   900 "regression-compile-tmp/skimp77.imp"
5647 @ 53269:                     PUSH   PSTP
5648 @ 53272:                     PUSH   PSTP
5649 @ 53275:                     PUSHI  #0x00000001
5650 @ 53280:                     SUB   
5651 @ 53281:                     ASSVAL

   901             PT(I)=PST(PSTP)                   ;! STACK POINTER TO RESULT
5652 @ 53282:                     LINE   901 "regression-compile-tmp/skimp77.imp"
5653 @ 53320:                     PUSH   PT
5654 @ 53323:                     PUSH   I
5655 @ 53326:                     ACCESS
5656 @ 53327:                     PUSH   PST
5657 @ 53330:                     PUSH   PSTP
5658 @ 53333:                     ACCESS
5659 @ 53334:                     ASSVAL

   902             %FINISH
5660 @ 53335:                     LINE   902 "regression-compile-tmp/skimp77.imp"
5661 @ 53373:                     LOCATE L_0007

   903          ->L4 ; %FINISH
5662 @ 53376:                     LINE   903 "regression-compile-tmp/skimp77.imp"
5663 @ 53414:                     JUMP   L_00f6
5664 @ 53417:                     LINE   903 "regression-compile-tmp/skimp77.imp"
5665 @ 53455:                     LOCATE L_0004

   904  %END
   905  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !
5666 @ 53458:                     LINE   904 "regression-compile-tmp/skimp77.imp"
5667 @ 53496:                  END    _lev0id0_SS_SEXPR_PSEVAL {lev=4 --> 3}

   906  %ROUTINE EVAL(%INTEGER P)
   907  ! DUMP CODE FOR EVALUATION OF EXPRESSION
5668 @ 53497:                  LINE   906 "regression-compile-tmp/skimp77.imp"
5669 @ 53535:                  DEF    EVAL (_lev0id0_SS_SEXPR_EVAL) p1=V_00e9 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
5670 @ 53551:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
5671 @ 53552:                        DEF    P p1=V_00ee a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
5672 @ 53565:                     FINISH ) {lev=4}

   908  %ROUTINESPEC OPN(%INTEGER OP,L)
5673 @ 53566:                     LINE   908 "regression-compile-tmp/skimp77.imp"
5674 @ 53604:                     DEF    OPN (_lev0id0_SS_SEXPR_EVAL_OPN) p1=V_00ef 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
5675 @ 53619:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
5676 @ 53620:                        DEF    OP p1=V_00f0 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
5677 @ 53634:                        DEF    L p1=V_00f1 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
5678 @ 53647:                     FINISH ) {lev=4}

   909  %INTEGER I,J,K
5679 @ 53648:                     LINE   909 "regression-compile-tmp/skimp77.imp"
5680 @ 53686:                     DEF    I p1=V_00f0 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
5681 @ 53699:                     DEF    J p1=V_00f1 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
5682 @ 53712:                     DEF    K p1=V_00f2 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   910       I=PT(P)                                       ;! POINTER/TYPE OF LAST REV POL ENTRY
5683 @ 53725:                     LINE   910 "regression-compile-tmp/skimp77.imp"
5684 @ 53763:                     PUSH   I
5685 @ 53766:                     PUSH   PT
5686 @ 53769:                     PUSH   P
5687 @ 53772:                     ACCESS
5688 @ 53773:                     ASSVAL

   911       %IF I<0 %THEN %START                          ;! OPERAND
5689 @ 53774:                     LINE   911 "regression-compile-tmp/skimp77.imp"
5690 @ 53812:                     PUSH   I
5691 @ 53815:                     PUSHI  #0x00000000
5692 @ 53820:                     JUMPIF >= L_0004

   912          OPN(0,P)                                   ;! LOAD OPERAND
5693 @ 53824:                     LINE   912 "regression-compile-tmp/skimp77.imp"
5694 @ 53862:                     PUSH   OPN
5695 @ 53865:                     PUSHI  #0x00000000
5696 @ 53870:                     ASSPAR
5697 @ 53871:                     PUSH   P
5698 @ 53874:                     ASSPAR
5699 @ 53875:                     CALL  

   913          %RETURN ; %FINISH
5700 @ 53876:                     LINE   913 "regression-compile-tmp/skimp77.imp"
5701 @ 53914:                     RETURN
5702 @ 53915:                     LINE   913 "regression-compile-tmp/skimp77.imp"
5703 @ 53953:                     LOCATE L_0004

   914       J=RP(P)                                       ;! OPERATOR
5704 @ 53956:                     LINE   914 "regression-compile-tmp/skimp77.imp"
5705 @ 53994:                     PUSH   J
5706 @ 53997:                     PUSH   RP
5707 @ 54000:                     PUSH   P
5708 @ 54003:                     ACCESS
5709 @ 54004:                     ASSVAL

   915       K=P-1                                         ;! START OF 2ND OPERAND
5710 @ 54005:                     LINE   915 "regression-compile-tmp/skimp77.imp"
5711 @ 54043:                     PUSH   K
5712 @ 54046:                     PUSH   P
5713 @ 54049:                     PUSHI  #0x00000001
5714 @ 54054:                     SUB   
5715 @ 54055:                     ASSVAL

   916       %IF UCN(J)=1 %THEN %START                     ;! UNARY OPERATOR
5716 @ 54056:                     LINE   916 "regression-compile-tmp/skimp77.imp"
5717 @ 54094:                     PUSH   UCN
5718 @ 54097:                     PUSH   J
5719 @ 54100:                     ACCESS
5720 @ 54101:                     PUSHI  #0x00000001
5721 @ 54106:                     JUMPIF # L_0004

   917          %IF PT(K)>=-2 %THEN EVAL(K) %ELSE OPN(0,K) ;! EVAL IF NODE OTHERWISE LOAD OPERAND
5722 @ 54110:                     LINE   917 "regression-compile-tmp/skimp77.imp"
5723 @ 54148:                     PUSH   PT
5724 @ 54151:                     PUSH   K
5725 @ 54154:                     ACCESS
5726 @ 54155:                     PUSHI  #0x00000002
5727 @ 54160:                     NEGATE
5728 @ 54161:                     JUMPIF < L_0007
5729 @ 54165:                     PUSH   EVAL
5730 @ 54168:                     PUSH   K
5731 @ 54171:                     ASSPAR
5732 @ 54172:                     CALL  
5733 @ 54173:                     GOTO   L_0006
5734 @ 54176:                     LOCATE L_0007
5735 @ 54179:                     PUSH   OPN
5736 @ 54182:                     PUSHI  #0x00000000
5737 @ 54187:                     ASSPAR
5738 @ 54188:                     PUSH   K
5739 @ 54191:                     ASSPAR
5740 @ 54192:                     CALL  
5741 @ 54193:                     LOCATE L_0006

   918          DUMP(OPR(J),M'ACC',0,0)                    ;! DUMP UNARY OPERATION
5742 @ 54196:                     LINE   918 "regression-compile-tmp/skimp77.imp"
5743 @ 54234:                     PUSH   DUMP
5744 @ 54237:                     PUSH   OPR
5745 @ 54240:                     PUSH   J
5746 @ 54243:                     ACCESS
5747 @ 54244:                     ASSPAR
5748 @ 54245:                     PUSHI  #0x00414343
5749 @ 54250:                     ASSPAR
5750 @ 54251:                     PUSHI  #0x00000000
5751 @ 54256:                     ASSPAR
5752 @ 54257:                     PUSHI  #0x00000000
5753 @ 54262:                     ASSPAR
5754 @ 54263:                     CALL  

   919          %RETURN ; %FINISH
5755 @ 54264:                     LINE   919 "regression-compile-tmp/skimp77.imp"
5756 @ 54302:                     RETURN
5757 @ 54303:                     LINE   919 "regression-compile-tmp/skimp77.imp"
5758 @ 54341:                     LOCATE L_0004

   920       %IF PT(I)>=-2 %THEN %START                    ;! FIRST OPERAND A NODE
5759 @ 54344:                     LINE   920 "regression-compile-tmp/skimp77.imp"
5760 @ 54382:                     PUSH   PT
5761 @ 54385:                     PUSH   I
5762 @ 54388:                     ACCESS
5763 @ 54389:                     PUSHI  #0x00000002
5764 @ 54394:                     NEGATE
5765 @ 54395:                     JUMPIF < L_0004

   921          %IF PT(K)>=-2 %THEN %START                 ;! SECOND OPERAND A NODE
5766 @ 54399:                     LINE   921 "regression-compile-tmp/skimp77.imp"
5767 @ 54437:                     PUSH   PT
5768 @ 54440:                     PUSH   K
5769 @ 54443:                     ACCESS
5770 @ 54444:                     PUSHI  #0x00000002
5771 @ 54449:                     NEGATE
5772 @ 54450:                     JUMPIF < L_0007

   922             EVAL(K)                                 ;! EVALUATE 2ND OPERAND
5773 @ 54454:                     LINE   922 "regression-compile-tmp/skimp77.imp"
5774 @ 54492:                     PUSH   EVAL
5775 @ 54495:                     PUSH   K
5776 @ 54498:                     ASSPAR
5777 @ 54499:                     CALL  

   923             DUMP(M'STR',M'ACC',BR(LEVEL),WS NEXT)   ;!  & STORE IT IN WORKSPACE
5778 @ 54500:                     LINE   923 "regression-compile-tmp/skimp77.imp"
5779 @ 54538:                     PUSH   DUMP
5780 @ 54541:                     PUSHI  #0x00535452
5781 @ 54546:                     ASSPAR
5782 @ 54547:                     PUSHI  #0x00414343
5783 @ 54552:                     ASSPAR
5784 @ 54553:                     PUSH   BR
5785 @ 54556:                     PUSH   LEVEL
5786 @ 54559:                     ACCESS
5787 @ 54560:                     ASSPAR
5788 @ 54561:                     PUSH   WSNEXT
5789 @ 54564:                     CALL  
5790 @ 54565:                     ASSPAR
5791 @ 54566:                     CALL  

   924             EVAL(I)                                 ;! EVALUATE 1ST OPERAND
5792 @ 54567:                     LINE   924 "regression-compile-tmp/skimp77.imp"
5793 @ 54605:                     PUSH   EVAL
5794 @ 54608:                     PUSH   I
5795 @ 54611:                     ASSPAR
5796 @ 54612:                     CALL  

   925             WS=WS-1                                 ;! RESTORE WORKSPACE POINTER
5797 @ 54613:                     LINE   925 "regression-compile-tmp/skimp77.imp"
5798 @ 54651:                     PUSH   WS
5799 @ 54654:                     PUSH   WS
5800 @ 54657:                     PUSHI  #0x00000001
5801 @ 54662:                     SUB   
5802 @ 54663:                     ASSVAL

   926             DUMP(OPR(J),M'ACC',BR(LEVEL),WS)        ;! DUMP OPERATION
5803 @ 54664:                     LINE   926 "regression-compile-tmp/skimp77.imp"
5804 @ 54702:                     PUSH   DUMP
5805 @ 54705:                     PUSH   OPR
5806 @ 54708:                     PUSH   J
5807 @ 54711:                     ACCESS
5808 @ 54712:                     ASSPAR
5809 @ 54713:                     PUSHI  #0x00414343
5810 @ 54718:                     ASSPAR
5811 @ 54719:                     PUSH   BR
5812 @ 54722:                     PUSH   LEVEL
5813 @ 54725:                     ACCESS
5814 @ 54726:                     ASSPAR
5815 @ 54727:                     PUSH   WS
5816 @ 54730:                     ASSPAR
5817 @ 54731:                     CALL  

   927             %FINISH %ELSE %START                    ;! 2ND OPERAND NOT A NODE
5818 @ 54732:                     LINE   927 "regression-compile-tmp/skimp77.imp"
5819 @ 54770:                     GOTO   L_0006
5820 @ 54773:                     LOCATE L_0007

   928             EVAL(I)                                 ;! EVALUATE 1ST OPERAND
5821 @ 54776:                     LINE   928 "regression-compile-tmp/skimp77.imp"
5822 @ 54814:                     PUSH   EVAL
5823 @ 54817:                     PUSH   I
5824 @ 54820:                     ASSPAR
5825 @ 54821:                     CALL  

   929             OPN(J,K)                                ;! OPERATION WITH 2ND OPERAND
5826 @ 54822:                     LINE   929 "regression-compile-tmp/skimp77.imp"
5827 @ 54860:                     PUSH   OPN
5828 @ 54863:                     PUSH   J
5829 @ 54866:                     ASSPAR
5830 @ 54867:                     PUSH   K
5831 @ 54870:                     ASSPAR
5832 @ 54871:                     CALL  

   930             %FINISH
5833 @ 54872:                     LINE   930 "regression-compile-tmp/skimp77.imp"
5834 @ 54910:                     LOCATE L_0006

   931          %FINISH %ELSE %START                       ;! 1ST OPERAND NOT A NODE
5835 @ 54913:                     LINE   931 "regression-compile-tmp/skimp77.imp"
5836 @ 54951:                     GOTO   L_0003
5837 @ 54954:                     LOCATE L_0004

   932          %IF PT(K)>=-2 %THEN %START                 ;! 2ND OPERAND A NODE
5838 @ 54957:                     LINE   932 "regression-compile-tmp/skimp77.imp"
5839 @ 54995:                     PUSH   PT
5840 @ 54998:                     PUSH   K
5841 @ 55001:                     ACCESS
5842 @ 55002:                     PUSHI  #0x00000002
5843 @ 55007:                     NEGATE
5844 @ 55008:                     JUMPIF < L_0007

   933             EVAL(K)                                 ;! EVALUATE 2ND OPERAND
5845 @ 55012:                     LINE   933 "regression-compile-tmp/skimp77.imp"
5846 @ 55050:                     PUSH   EVAL
5847 @ 55053:                     PUSH   K
5848 @ 55056:                     ASSPAR
5849 @ 55057:                     CALL  

   934             %IF UCN(J)=2 %THEN %START               ;! OPERATOR IS COMMUTATIVE
5850 @ 55058:                     LINE   934 "regression-compile-tmp/skimp77.imp"
5851 @ 55096:                     PUSH   UCN
5852 @ 55099:                     PUSH   J
5853 @ 55102:                     ACCESS
5854 @ 55103:                     PUSHI  #0x00000002
5855 @ 55108:                     JUMPIF # L_000a

   935                OPN(J,I)                             ;! OPERATION WITH 1ST OPERAND
5856 @ 55112:                     LINE   935 "regression-compile-tmp/skimp77.imp"
5857 @ 55150:                     PUSH   OPN
5858 @ 55153:                     PUSH   J
5859 @ 55156:                     ASSPAR
5860 @ 55157:                     PUSH   I
5861 @ 55160:                     ASSPAR
5862 @ 55161:                     CALL  

   936                %RETURN ; %FINISH
5863 @ 55162:                     LINE   936 "regression-compile-tmp/skimp77.imp"
5864 @ 55200:                     RETURN
5865 @ 55201:                     LINE   936 "regression-compile-tmp/skimp77.imp"
5866 @ 55239:                     LOCATE L_000a

   937             DUMP(M'STR',M'ACC',BR(LEVEL),WS NEXT)   ;! STORE VALUE OF 2ND OPERAND IN WORKSPACE
5867 @ 55242:                     LINE   937 "regression-compile-tmp/skimp77.imp"
5868 @ 55280:                     PUSH   DUMP
5869 @ 55283:                     PUSHI  #0x00535452
5870 @ 55288:                     ASSPAR
5871 @ 55289:                     PUSHI  #0x00414343
5872 @ 55294:                     ASSPAR
5873 @ 55295:                     PUSH   BR
5874 @ 55298:                     PUSH   LEVEL
5875 @ 55301:                     ACCESS
5876 @ 55302:                     ASSPAR
5877 @ 55303:                     PUSH   WSNEXT
5878 @ 55306:                     CALL  
5879 @ 55307:                     ASSPAR
5880 @ 55308:                     CALL  

   938             OPN(0,I)                                ;! LOAD 1ST OPERAND
5881 @ 55309:                     LINE   938 "regression-compile-tmp/skimp77.imp"
5882 @ 55347:                     PUSH   OPN
5883 @ 55350:                     PUSHI  #0x00000000
5884 @ 55355:                     ASSPAR
5885 @ 55356:                     PUSH   I
5886 @ 55359:                     ASSPAR
5887 @ 55360:                     CALL  

   939             WS=WS-1                                 ;! RESTORE WORKSPACE POINTER
5888 @ 55361:                     LINE   939 "regression-compile-tmp/skimp77.imp"
5889 @ 55399:                     PUSH   WS
5890 @ 55402:                     PUSH   WS
5891 @ 55405:                     PUSHI  #0x00000001
5892 @ 55410:                     SUB   
5893 @ 55411:                     ASSVAL

   940             DUMP(OPR(J),M'ACC',BR(LEVEL),WS)        ;! DUMP OPERATION WITH 2ND OPERAND
5894 @ 55412:                     LINE   940 "regression-compile-tmp/skimp77.imp"
5895 @ 55450:                     PUSH   DUMP
5896 @ 55453:                     PUSH   OPR
5897 @ 55456:                     PUSH   J
5898 @ 55459:                     ACCESS
5899 @ 55460:                     ASSPAR
5900 @ 55461:                     PUSHI  #0x00414343
5901 @ 55466:                     ASSPAR
5902 @ 55467:                     PUSH   BR
5903 @ 55470:                     PUSH   LEVEL
5904 @ 55473:                     ACCESS
5905 @ 55474:                     ASSPAR
5906 @ 55475:                     PUSH   WS
5907 @ 55478:                     ASSPAR
5908 @ 55479:                     CALL  

   941             %FINISH %ELSE %START                    ;! 2ND OPERAND NOT A NODE
5909 @ 55480:                     LINE   941 "regression-compile-tmp/skimp77.imp"
5910 @ 55518:                     GOTO   L_0006
5911 @ 55521:                     LOCATE L_0007

   942             OPN(0,I)                                ;! LOAD 1ST OPERAND
5912 @ 55524:                     LINE   942 "regression-compile-tmp/skimp77.imp"
5913 @ 55562:                     PUSH   OPN
5914 @ 55565:                     PUSHI  #0x00000000
5915 @ 55570:                     ASSPAR
5916 @ 55571:                     PUSH   I
5917 @ 55574:                     ASSPAR
5918 @ 55575:                     CALL  

   943             OPN(J,K)                                ;! OPERATION WITH 2ND OPERAND
5919 @ 55576:                     LINE   943 "regression-compile-tmp/skimp77.imp"
5920 @ 55614:                     PUSH   OPN
5921 @ 55617:                     PUSH   J
5922 @ 55620:                     ASSPAR
5923 @ 55621:                     PUSH   K
5924 @ 55624:                     ASSPAR
5925 @ 55625:                     CALL  

   944             %FINISH
5926 @ 55626:                     LINE   944 "regression-compile-tmp/skimp77.imp"
5927 @ 55664:                     LOCATE L_0006

   945          %FINISH
5928 @ 55667:                     LINE   945 "regression-compile-tmp/skimp77.imp"
5929 @ 55705:                     LOCATE L_0003

   946       %RETURN
   947  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !
5930 @ 55708:                     LINE   946 "regression-compile-tmp/skimp77.imp"
5931 @ 55746:                     RETURN

   948  %ROUTINE OPN(%INTEGER OP,L)
   949  ! DUMP SIMPLE OPERATION, OP=OPERATOR, L=RP POSITION OF OPERAND
5932 @ 55747:                     LINE   948 "regression-compile-tmp/skimp77.imp"
5933 @ 55785:                     DEF    OPN (_lev0id0_SS_SEXPR_EVAL_OPN) p1=V_00ef 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
5934 @ 55800:                        START  ( FORMAL PARAMETERS  {lev=5 --> 6, nested=0 --> 1}
5935 @ 55801:                           DEF    OP p1=V_00f3 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
5936 @ 55815:                           DEF    L p1=V_00f4 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
5937 @ 55828:                        FINISH ) {lev=5}

   950  %INTEGER I,J
5938 @ 55829:                        LINE   950 "regression-compile-tmp/skimp77.imp"
5939 @ 55867:                        DEF    I p1=V_00f5 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
5940 @ 55880:                        DEF    J p1=V_00f6 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   951       I=PT(L)                                         ;! KIND OF OPERAND
5941 @ 55893:                        LINE   951 "regression-compile-tmp/skimp77.imp"
5942 @ 55931:                        PUSH   I
5943 @ 55934:                        PUSH   PT
5944 @ 55937:                        PUSH   L
5945 @ 55940:                        ACCESS
5946 @ 55941:                        ASSVAL

   952       AP=RP(L)                                        ;! ANAL REC POINTER OR NAME TAGS
5947 @ 55942:                        LINE   952 "regression-compile-tmp/skimp77.imp"
5948 @ 55980:                        PUSH   AP
5949 @ 55983:                        PUSH   RP
5950 @ 55986:                        PUSH   L
5951 @ 55989:                        ACCESS
5952 @ 55990:                        ASSVAL

   953       %IF I=-1 %THEN %START                           ;! ROUTINE/FN TYPE
5953 @ 55991:                        LINE   953 "regression-compile-tmp/skimp77.imp"
5954 @ 56029:                        PUSH   I
5955 @ 56032:                        PUSHI  #0x00000001
5956 @ 56037:                        NEGATE
5957 @ 56038:                        JUMPIF # L_0004

   954          RT                                           ;! DUMP CALL ON FUNCTION
5958 @ 56042:                        LINE   954 "regression-compile-tmp/skimp77.imp"
5959 @ 56080:                        PUSH   RT
5960 @ 56083:                        CALL  

   955          %RETURN ; %FINISH
5961 @ 56084:                        LINE   955 "regression-compile-tmp/skimp77.imp"
5962 @ 56122:                        RETURN
5963 @ 56123:                        LINE   955 "regression-compile-tmp/skimp77.imp"
5964 @ 56161:                        LOCATE L_0004

   956       %IF I=-2 %THEN %START                           ;! ARRAY ACCESS
5965 @ 56164:                        LINE   956 "regression-compile-tmp/skimp77.imp"
5966 @ 56202:                        PUSH   I
5967 @ 56205:                        PUSHI  #0x00000002
5968 @ 56210:                        NEGATE
5969 @ 56211:                        JUMPIF # L_0004

   957          ARRAD                                        ;! CALCULATE ARRAY ELEMENT ADDRESS
5970 @ 56215:                        LINE   957 "regression-compile-tmp/skimp77.imp"
5971 @ 56253:                        PUSH   ARRAD
5972 @ 56256:                        CALL  

   958          DUMP(M'LOAD',M'ACC',M'ACC',0)                ;! LOAD VALUE
5973 @ 56257:                        LINE   958 "regression-compile-tmp/skimp77.imp"
5974 @ 56295:                        PUSH   DUMP
5975 @ 56298:                        PUSHI  #0x4c4f4144
5976 @ 56303:                        ASSPAR
5977 @ 56304:                        PUSHI  #0x00414343
5978 @ 56309:                        ASSPAR
5979 @ 56310:                        PUSHI  #0x00414343
5980 @ 56315:                        ASSPAR
5981 @ 56316:                        PUSHI  #0x00000000
5982 @ 56321:                        ASSPAR
5983 @ 56322:                        CALL  

   959          %RETURN ; %FINISH
5984 @ 56323:                        LINE   959 "regression-compile-tmp/skimp77.imp"
5985 @ 56361:                        RETURN
5986 @ 56362:                        LINE   959 "regression-compile-tmp/skimp77.imp"
5987 @ 56400:                        LOCATE L_0004

   960       %IF I=-3 %THEN %START                           ;! SCALAR TYPE
5988 @ 56403:                        LINE   960 "regression-compile-tmp/skimp77.imp"
5989 @ 56441:                        PUSH   I
5990 @ 56444:                        PUSHI  #0x00000003
5991 @ 56449:                        NEGATE
5992 @ 56450:                        JUMPIF # L_0004

   961          %IF AP>>28=1 %THEN %START                    ;! %NAME TYPE
5993 @ 56454:                        LINE   961 "regression-compile-tmp/skimp77.imp"
5994 @ 56492:                        PUSH   AP
5995 @ 56495:                        PUSHI  #0x0000001c
5996 @ 56500:                        RSH   
5997 @ 56501:                        PUSHI  #0x00000001
5998 @ 56506:                        JUMPIF # L_0007

   962             DUMP(M'LOAD',M'WK',BR(AP>>16&15),AP&65535) ;! LOAD INDIRECT
5999 @ 56510:                        LINE   962 "regression-compile-tmp/skimp77.imp"
6000 @ 56548:                        PUSH   DUMP
6001 @ 56551:                        PUSHI  #0x4c4f4144
6002 @ 56556:                        ASSPAR
6003 @ 56557:                        PUSHI  #0x0000574b
6004 @ 56562:                        ASSPAR
6005 @ 56563:                        PUSH   BR
6006 @ 56566:                        PUSH   AP
6007 @ 56569:                        PUSHI  #0x00000010
6008 @ 56574:                        RSH   
6009 @ 56575:                        PUSHI  #0x0000000f
6010 @ 56580:                        AND   
6011 @ 56581:                        ACCESS
6012 @ 56582:                        ASSPAR
6013 @ 56583:                        PUSH   AP
6014 @ 56586:                        PUSHI  #0x0000ffff
6015 @ 56591:                        AND   
6016 @ 56592:                        ASSPAR
6017 @ 56593:                        CALL  

   963             DUMP(OPR(OP),M'ACC',M'WK',0)
6018 @ 56594:                        LINE   963 "regression-compile-tmp/skimp77.imp"
6019 @ 56632:                        PUSH   DUMP
6020 @ 56635:                        PUSH   OPR
6021 @ 56638:                        PUSH   OP
6022 @ 56641:                        ACCESS
6023 @ 56642:                        ASSPAR
6024 @ 56643:                        PUSHI  #0x00414343
6025 @ 56648:                        ASSPAR
6026 @ 56649:                        PUSHI  #0x0000574b
6027 @ 56654:                        ASSPAR
6028 @ 56655:                        PUSHI  #0x00000000
6029 @ 56660:                        ASSPAR
6030 @ 56661:                        CALL  

   964             %FINISH %ELSE DUMP(OPR(OP),M'ACC',BR(AP>>16&15),AP&65535)
6031 @ 56662:                        LINE   964 "regression-compile-tmp/skimp77.imp"
6032 @ 56700:                        GOTO   L_0006
6033 @ 56703:                        LOCATE L_0007
6034 @ 56706:                        PUSH   DUMP
6035 @ 56709:                        PUSH   OPR
6036 @ 56712:                        PUSH   OP
6037 @ 56715:                        ACCESS
6038 @ 56716:                        ASSPAR
6039 @ 56717:                        PUSHI  #0x00414343
6040 @ 56722:                        ASSPAR
6041 @ 56723:                        PUSH   BR
6042 @ 56726:                        PUSH   AP
6043 @ 56729:                        PUSHI  #0x00000010
6044 @ 56734:                        RSH   
6045 @ 56735:                        PUSHI  #0x0000000f
6046 @ 56740:                        AND   
6047 @ 56741:                        ACCESS
6048 @ 56742:                        ASSPAR
6049 @ 56743:                        PUSH   AP
6050 @ 56746:                        PUSHI  #0x0000ffff
6051 @ 56751:                        AND   
6052 @ 56752:                        ASSPAR
6053 @ 56753:                        CALL  
6054 @ 56754:                        LOCATE L_0006

   965          %RETURN ; %FINISH
6055 @ 56757:                        LINE   965 "regression-compile-tmp/skimp77.imp"
6056 @ 56795:                        RETURN
6057 @ 56796:                        LINE   965 "regression-compile-tmp/skimp77.imp"
6058 @ 56834:                        LOCATE L_0004

   966       %IF OP\=0 %OR AP>65535 %THEN %START             ;! CONSTANT NOT 'LDA'-ABLE
6059 @ 56837:                        LINE   966 "regression-compile-tmp/skimp77.imp"
6060 @ 56875:                        PUSH   OP
6061 @ 56878:                        PUSHI  #0x00000000
6062 @ 56883:                        JUMPIF # L_0005
6063 @ 56887:                        PUSH   AP
6064 @ 56890:                        PUSHI  #0x0000ffff
6065 @ 56895:                        JUMPIF <= L_0004
6066 @ 56899:                        LOCATE L_0005

   967          J=CT NEXT                                    ;! NEXT HOLE IN CONSTANT TABLE
6067 @ 56902:                        LINE   967 "regression-compile-tmp/skimp77.imp"
6068 @ 56940:                        PUSH   J
6069 @ 56943:                        PUSH   CTNEXT
6070 @ 56946:                        CALL  
6071 @ 56947:                        ASSVAL

   968          COT(J)=AP                                    ;! STORE VALUE
6072 @ 56948:                        LINE   968 "regression-compile-tmp/skimp77.imp"
6073 @ 56986:                        PUSH   COT
6074 @ 56989:                        PUSH   J
6075 @ 56992:                        ACCESS
6076 @ 56993:                        PUSH   AP
6077 @ 56996:                        ASSVAL

   969          DUMP(OPR(OP),M'ACC',M'CT',J)
6078 @ 56997:                        LINE   969 "regression-compile-tmp/skimp77.imp"
6079 @ 57035:                        PUSH   DUMP
6080 @ 57038:                        PUSH   OPR
6081 @ 57041:                        PUSH   OP
6082 @ 57044:                        ACCESS
6083 @ 57045:                        ASSPAR
6084 @ 57046:                        PUSHI  #0x00414343
6085 @ 57051:                        ASSPAR
6086 @ 57052:                        PUSHI  #0x00004354
6087 @ 57057:                        ASSPAR
6088 @ 57058:                        PUSH   J
6089 @ 57061:                        ASSPAR
6090 @ 57062:                        CALL  

   970          %FINISH %ELSE DUMP(M'LDA',M'ACC',0,AP)
6091 @ 57063:                        LINE   970 "regression-compile-tmp/skimp77.imp"
6092 @ 57101:                        GOTO   L_0003
6093 @ 57104:                        LOCATE L_0004
6094 @ 57107:                        PUSH   DUMP
6095 @ 57110:                        PUSHI  #0x004c4441
6096 @ 57115:                        ASSPAR
6097 @ 57116:                        PUSHI  #0x00414343
6098 @ 57121:                        ASSPAR
6099 @ 57122:                        PUSHI  #0x00000000
6100 @ 57127:                        ASSPAR
6101 @ 57128:                        PUSH   AP
6102 @ 57131:                        ASSPAR
6103 @ 57132:                        CALL  
6104 @ 57133:                        LOCATE L_0003

   971  %END
6105 @ 57136:                        LINE   971 "regression-compile-tmp/skimp77.imp"
6106 @ 57174:                     END    _lev0id0_SS_SEXPR_EVAL_OPN {lev=5 --> 4}

   972  %END
6107 @ 57175:                     LINE   972 "regression-compile-tmp/skimp77.imp"
6108 @ 57213:                  END    _lev0id0_SS_SEXPR_EVAL {lev=4 --> 3}

   973  %END
   974  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
6109 @ 57214:                  LINE   973 "regression-compile-tmp/skimp77.imp"
6110 @ 57252:               END    _lev0id0_SS_SEXPR {lev=3 --> 2}

   975  %ROUTINE SKIP SEXPR
   976  ! SKIP PAST <+-\><OPD><EXPR> IN ANALYSIS RECORD, AP INITIALLY ON <+-\>
6111 @ 57253:               LINE   975 "regression-compile-tmp/skimp77.imp"
6112 @ 57291:               DEF    SKIPSEXPR (_lev0id0_SS_SKIPSEXPR) p1=V_00c1 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
6113 @ 57312:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
6114 @ 57313:                  FINISH ) {lev=3}

   977  L1:   AP=AP+2                                       ;! AP ON <OPD>+1
6115 @ 57314:                  LINE   977 "regression-compile-tmp/skimp77.imp"
6116 @ 57352:                  LABEL  L_00e7
6117 @ 57355:                  LINE   977 "regression-compile-tmp/skimp77.imp"
6118 @ 57393:                  PUSH   AP
6119 @ 57396:                  PUSH   AP
6120 @ 57399:                  PUSHI  #0x00000002
6121 @ 57404:                  ADD   
6122 @ 57405:                  ASSVAL

   978       %IF A(AP-1)=3 %THEN SKIP SEXPR %ELSE %START   ;! SKIP SUB-EXPR ELSE <NAME> OR <CNST>
6123 @ 57406:                  LINE   978 "regression-compile-tmp/skimp77.imp"
6124 @ 57444:                  PUSH   A
6125 @ 57447:                  PUSH   AP
6126 @ 57450:                  PUSHI  #0x00000001
6127 @ 57455:                  SUB   
6128 @ 57456:                  ACCESS
6129 @ 57457:                  PUSHI  #0x00000003
6130 @ 57462:                  JUMPIF # L_0004
6131 @ 57466:                  PUSH   SKIPSEXPR
6132 @ 57469:                  CALL  
6133 @ 57470:                  GOTO   L_0003
6134 @ 57473:                  LOCATE L_0004

   979          AP=AP+1                                    ;! AP ON <APP> OR AFTER <CNST>
6135 @ 57476:                  LINE   979 "regression-compile-tmp/skimp77.imp"
6136 @ 57514:                  PUSH   AP
6137 @ 57517:                  PUSH   AP
6138 @ 57520:                  PUSHI  #0x00000001
6139 @ 57525:                  ADD   
6140 @ 57526:                  ASSVAL

   980          %IF A(AP-2)=1 %THEN SKIP APP               ;! OPERAND IS A NAME
6141 @ 57527:                  LINE   980 "regression-compile-tmp/skimp77.imp"
6142 @ 57565:                  PUSH   A
6143 @ 57568:                  PUSH   AP
6144 @ 57571:                  PUSHI  #0x00000002
6145 @ 57576:                  SUB   
6146 @ 57577:                  ACCESS
6147 @ 57578:                  PUSHI  #0x00000001
6148 @ 57583:                  JUMPIF # L_0007
6149 @ 57587:                  PUSH   SKIPAPP
6150 @ 57590:                  CALL  
6151 @ 57591:                  LOCATE L_0007

   981          %FINISH
6152 @ 57594:                  LINE   981 "regression-compile-tmp/skimp77.imp"
6153 @ 57632:                  LOCATE L_0003

   982       AP=AP+1                                       ;! AP AFTER <EXPR>
6154 @ 57635:                  LINE   982 "regression-compile-tmp/skimp77.imp"
6155 @ 57673:                  PUSH   AP
6156 @ 57676:                  PUSH   AP
6157 @ 57679:                  PUSHI  #0x00000001
6158 @ 57684:                  ADD   
6159 @ 57685:                  ASSVAL

   983       %IF A(AP-1)=1 %THEN ->L1                       ;! MORE OPERANDS
6160 @ 57686:                  LINE   983 "regression-compile-tmp/skimp77.imp"
6161 @ 57724:                  PUSH   A
6162 @ 57727:                  PUSH   AP
6163 @ 57730:                  PUSHI  #0x00000001
6164 @ 57735:                  SUB   
6165 @ 57736:                  ACCESS
6166 @ 57737:                  PUSHI  #0x00000001
6167 @ 57742:                  JUMPIF # L_0004
6168 @ 57746:                  JUMP   L_00e7
6169 @ 57749:                  LOCATE L_0004

   984  %END
   985  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
6170 @ 57752:                  LINE   984 "regression-compile-tmp/skimp77.imp"
6171 @ 57790:               END    _lev0id0_SS_SKIPSEXPR {lev=3 --> 2}

   986  %ROUTINE SKIP APP
   987  ! SKIP PAST <APP> IN ANALYSIS RECORD
6172 @ 57791:               LINE   986 "regression-compile-tmp/skimp77.imp"
6173 @ 57829:               DEF    SKIPAPP (_lev0id0_SS_SKIPAPP) p1=V_00c2 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
6174 @ 57848:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
6175 @ 57849:                  FINISH ) {lev=3}

   988  L1:   AP=AP+1                                       ;! POINTER TO <APP>+1 OR <EXPS>+1
6176 @ 57850:                  LINE   988 "regression-compile-tmp/skimp77.imp"
6177 @ 57888:                  LABEL  L_00e7
6178 @ 57891:                  LINE   988 "regression-compile-tmp/skimp77.imp"
6179 @ 57929:                  PUSH   AP
6180 @ 57932:                  PUSH   AP
6181 @ 57935:                  PUSHI  #0x00000001
6182 @ 57940:                  ADD   
6183 @ 57941:                  ASSVAL

   989       %IF A(AP-1)=1 %THEN %START                    ;! EXPRESSIONS TO SKIP
6184 @ 57942:                  LINE   989 "regression-compile-tmp/skimp77.imp"
6185 @ 57980:                  PUSH   A
6186 @ 57983:                  PUSH   AP
6187 @ 57986:                  PUSHI  #0x00000001
6188 @ 57991:                  SUB   
6189 @ 57992:                  ACCESS
6190 @ 57993:                  PUSHI  #0x00000001
6191 @ 57998:                  JUMPIF # L_0004

   990          SKIP SEXPR
6192 @ 58002:                  LINE   990 "regression-compile-tmp/skimp77.imp"
6193 @ 58040:                  PUSH   SKIPSEXPR
6194 @ 58043:                  CALL  

   991          ->L1 ; %FINISH
6195 @ 58044:                  LINE   991 "regression-compile-tmp/skimp77.imp"
6196 @ 58082:                  JUMP   L_00e7
6197 @ 58085:                  LINE   991 "regression-compile-tmp/skimp77.imp"
6198 @ 58123:                  LOCATE L_0004

   992  %END
   993  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
6199 @ 58126:                  LINE   992 "regression-compile-tmp/skimp77.imp"
6200 @ 58164:               END    _lev0id0_SS_SKIPAPP {lev=3 --> 2}

   994  %ROUTINE SCCOND(%INTEGERNAME LABEL)
   995  ! COMPILE CONDITION I.E. <SC><COND>, LABEL SET FOR POSITION AFTER UI
6201 @ 58165:               LINE   994 "regression-compile-tmp/skimp77.imp"
6202 @ 58203:               DEF    SCCOND (_lev0id0_SS_SCCOND) p1=V_00b6 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
6203 @ 58221:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
6204 @ 58222:                     DEF    LABEL p1=V_00e7 a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
6205 @ 58239:                  FINISH ) {lev=3}

   996  %ROUTINESPEC SC
6206 @ 58240:                  LINE   996 "regression-compile-tmp/skimp77.imp"
6207 @ 58278:                  DEF    SC (_lev0id0_SS_SCCOND_SC) p1=V_00e8 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
6208 @ 58292:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
6209 @ 58293:                  FINISH ) {lev=3}

   997  %ROUTINESPEC COND
6210 @ 58294:                  LINE   997 "regression-compile-tmp/skimp77.imp"
6211 @ 58332:                  DEF    COND (_lev0id0_SS_SCCOND_COND) p1=V_00e9 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
6212 @ 58348:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
6213 @ 58349:                  FINISH ) {lev=3}

   998  %ROUTINESPEC STORE(%INTEGER FT)
6214 @ 58350:                  LINE   998 "regression-compile-tmp/skimp77.imp"
6215 @ 58388:                  DEF    STORE (_lev0id0_SS_SCCOND_STORE) p1=V_00ea 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
6216 @ 58405:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
6217 @ 58406:                     DEF    FT p1=V_00eb a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
6218 @ 58420:                  FINISH ) {lev=3}

   999  %INTEGER I,J,K,L,APP
6219 @ 58421:                  LINE   999 "regression-compile-tmp/skimp77.imp"
6220 @ 58459:                  DEF    I p1=V_00eb a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
6221 @ 58472:                  DEF    J p1=V_00ec a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
6222 @ 58485:                  DEF    K p1=V_00ed a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
6223 @ 58498:                  DEF    L p1=V_00ee a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
6224 @ 58511:                  DEF    APP p1=V_00ef a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  1000  %INTEGERARRAY CAP,LVL,TF,JMP,LBL(1:16)             ;! ANAL REC POINTERS, NESTING LEVEL,
  1001                                                     ;!  TRUE/FALSE, JUMP & LABEL ARRAYS
6225 @ 58526:                  LINE   1000 "regression-compile-tmp/skimp77.imp"
6226 @ 58564:                  DEF    CAP p1=V_00f0 a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
6227 @ 58579:                  DEF    LVL p1=V_00f1 a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
6228 @ 58594:                  DEF    TF p1=V_00f2 a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
6229 @ 58608:                  DEF    JMP p1=V_00f3 a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
6230 @ 58623:                  DEF    LBL p1=V_00f4 a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
6231 @ 58638:                  PUSHI  #0x00000001
6232 @ 58643:                  PUSHI  #0x00000010
6233 @ 58648:                  DIM    0001 0005

  1002       I=1                                           ;! INDEX TO ARRAYS
6234 @ 58654:                  LINE   1002 "regression-compile-tmp/skimp77.imp"
6235 @ 58692:                  PUSH   I
6236 @ 58695:                  PUSHI  #0x00000001
6237 @ 58700:                  ASSVAL

  1003       L=0                                           ;! NESTING LEVEL
6238 @ 58701:                  LINE   1003 "regression-compile-tmp/skimp77.imp"
6239 @ 58739:                  PUSH   L
6240 @ 58742:                  PUSHI  #0x00000000
6241 @ 58747:                  ASSVAL

  1004       SC                                            ;! PROCESS <SC>
6242 @ 58748:                  LINE   1004 "regression-compile-tmp/skimp77.imp"
6243 @ 58786:                  PUSH   SC
6244 @ 58789:                  CALL  

  1005       COND                                          ;! PROCESS <COND>
6245 @ 58790:                  LINE   1005 "regression-compile-tmp/skimp77.imp"
6246 @ 58828:                  PUSH   COND
6247 @ 58831:                  CALL  

  1006       APP=AP                                        ;! PRESERVE FINAL ANAL REC POINTER
6248 @ 58832:                  LINE   1006 "regression-compile-tmp/skimp77.imp"
6249 @ 58870:                  PUSH   APP
6250 @ 58873:                  PUSH   AP
6251 @ 58876:                  ASSVAL

  1007       L=-1
6252 @ 58877:                  LINE   1007 "regression-compile-tmp/skimp77.imp"
6253 @ 58915:                  PUSH   L
6254 @ 58918:                  PUSHI  #0x00000001
6255 @ 58923:                  NEGATE
6256 @ 58924:                  ASSVAL

  1008       STORE(1)                                      ;! PSEUDO-FALSE AT LEVEL -1
6257 @ 58925:                  LINE   1008 "regression-compile-tmp/skimp77.imp"
6258 @ 58963:                  PUSH   STORE
6259 @ 58966:                  PUSHI  #0x00000001
6260 @ 58971:                  ASSPAR
6261 @ 58972:                  CALL  

  1009       L=-2
6262 @ 58973:                  LINE   1009 "regression-compile-tmp/skimp77.imp"
6263 @ 59011:                  PUSH   L
6264 @ 59014:                  PUSHI  #0x00000002
6265 @ 59019:                  NEGATE
6266 @ 59020:                  ASSVAL

  1010       STORE(2)                                      ;! PSEUDO-TRUE AT LEVEL -2
6267 @ 59021:                  LINE   1010 "regression-compile-tmp/skimp77.imp"
6268 @ 59059:                  PUSH   STORE
6269 @ 59062:                  PUSHI  #0x00000002
6270 @ 59067:                  ASSPAR
6271 @ 59068:                  CALL  

  1011       K=I-1                                         ;! LAST POSITION FILLED IN IN ARRAYS
6272 @ 59069:                  LINE   1011 "regression-compile-tmp/skimp77.imp"
6273 @ 59107:                  PUSH   K
6274 @ 59110:                  PUSH   I
6275 @ 59113:                  PUSHI  #0x00000001
6276 @ 59118:                  SUB   
6277 @ 59119:                  ASSVAL

  1012       I=1
6278 @ 59120:                  LINE   1012 "regression-compile-tmp/skimp77.imp"
6279 @ 59158:                  PUSH   I
6280 @ 59161:                  PUSHI  #0x00000001
6281 @ 59166:                  ASSVAL

  1013  L2:   J=I                                           ;! FIND POSITIONS TO JUMP TO
6282 @ 59167:                  LINE   1013 "regression-compile-tmp/skimp77.imp"
6283 @ 59205:                  LABEL  L_00f5
6284 @ 59208:                  LINE   1013 "regression-compile-tmp/skimp77.imp"
6285 @ 59246:                  PUSH   J
6286 @ 59249:                  PUSH   I
6287 @ 59252:                  ASSVAL

  1014  L1:   J=J+1                                         ;!    AFTER COMPARISONS
6288 @ 59253:                  LINE   1014 "regression-compile-tmp/skimp77.imp"
6289 @ 59291:                  LABEL  L_00f6
6290 @ 59294:                  LINE   1014 "regression-compile-tmp/skimp77.imp"
6291 @ 59332:                  PUSH   J
6292 @ 59335:                  PUSH   J
6293 @ 59338:                  PUSHI  #0x00000001
6294 @ 59343:                  ADD   
6295 @ 59344:                  ASSVAL

  1015       %IF LVL(J)>=LVL(I) %OR TF(J)=TF(I) %THEN ->L1  ;! SKIP HIGHER LEVELS ETC
6296 @ 59345:                  LINE   1015 "regression-compile-tmp/skimp77.imp"
6297 @ 59383:                  PUSH   LVL
6298 @ 59386:                  PUSH   J
6299 @ 59389:                  ACCESS
6300 @ 59390:                  PUSH   LVL
6301 @ 59393:                  PUSH   I
6302 @ 59396:                  ACCESS
6303 @ 59397:                  JUMPIF >= L_0005
6304 @ 59401:                  PUSH   TF
6305 @ 59404:                  PUSH   J
6306 @ 59407:                  ACCESS
6307 @ 59408:                  PUSH   TF
6308 @ 59411:                  PUSH   I
6309 @ 59414:                  ACCESS
6310 @ 59415:                  JUMPIF # L_0004
6311 @ 59419:                  LOCATE L_0005
6312 @ 59422:                  JUMP   L_00f6
6313 @ 59425:                  LOCATE L_0004

  1016       JMP(I)=J                                      ;! JUMP TO COMPARISON POSITION J
6314 @ 59428:                  LINE   1016 "regression-compile-tmp/skimp77.imp"
6315 @ 59466:                  PUSH   JMP
6316 @ 59469:                  PUSH   I
6317 @ 59472:                  ACCESS
6318 @ 59473:                  PUSH   J
6319 @ 59476:                  ASSVAL

  1017       I=I+1
6320 @ 59477:                  LINE   1017 "regression-compile-tmp/skimp77.imp"
6321 @ 59515:                  PUSH   I
6322 @ 59518:                  PUSH   I
6323 @ 59521:                  PUSHI  #0x00000001
6324 @ 59526:                  ADD   
6325 @ 59527:                  ASSVAL

  1018       %IF I<K %THEN ->L2                             ;! MORE JUMPS TO FILL IN YET
6326 @ 59528:                  LINE   1018 "regression-compile-tmp/skimp77.imp"
6327 @ 59566:                  PUSH   I
6328 @ 59569:                  PUSH   K
6329 @ 59572:                  JUMPIF >= L_0004
6330 @ 59576:                  JUMP   L_00f5
6331 @ 59579:                  LOCATE L_0004

  1019       %IF A(AP)\=2 %THEN ->L3                        ;! UI NOT A JUMP INSTRUCTION
6332 @ 59582:                  LINE   1019 "regression-compile-tmp/skimp77.imp"
6333 @ 59620:                  PUSH   A
6334 @ 59623:                  PUSH   AP
6335 @ 59626:                  ACCESS
6336 @ 59627:                  PUSHI  #0x00000002
6337 @ 59632:                  JUMPIF = L_0004
6338 @ 59636:                  JUMP   L_00f7
6339 @ 59639:                  LOCATE L_0004

  1020       AP=AP+1                                       ;! TO <CONST>
6340 @ 59642:                  LINE   1020 "regression-compile-tmp/skimp77.imp"
6341 @ 59680:                  PUSH   AP
6342 @ 59683:                  PUSH   AP
6343 @ 59686:                  PUSHI  #0x00000001
6344 @ 59691:                  ADD   
6345 @ 59692:                  ASSVAL

  1021       J=K-1                                         ;! LAST POSITION FILLED IN
6346 @ 59693:                  LINE   1021 "regression-compile-tmp/skimp77.imp"
6347 @ 59731:                  PUSH   J
6348 @ 59734:                  PUSH   K
6349 @ 59737:                  PUSHI  #0x00000001
6350 @ 59742:                  SUB   
6351 @ 59743:                  ASSVAL

  1022       TF(J)=2                                       ;! SET AS 'TRUE'
6352 @ 59744:                  LINE   1022 "regression-compile-tmp/skimp77.imp"
6353 @ 59782:                  PUSH   TF
6354 @ 59785:                  PUSH   J
6355 @ 59788:                  ACCESS
6356 @ 59789:                  PUSHI  #0x00000002
6357 @ 59794:                  ASSVAL

  1023       JMP(J)=J                                      ;! SET JUMP AS THE UI JUMP
6358 @ 59795:                  LINE   1023 "regression-compile-tmp/skimp77.imp"
6359 @ 59833:                  PUSH   JMP
6360 @ 59836:                  PUSH   J
6361 @ 59839:                  ACCESS
6362 @ 59840:                  PUSH   J
6363 @ 59843:                  ASSVAL

  1024       LBL(J)=FIND LABEL                             ;! FILL IN BRANCH TABLE POSITION
6364 @ 59844:                  LINE   1024 "regression-compile-tmp/skimp77.imp"
6365 @ 59882:                  PUSH   LBL
6366 @ 59885:                  PUSH   J
6367 @ 59888:                  ACCESS
6368 @ 59889:                  PUSH   FINDLABEL
6369 @ 59892:                  CALL  
6370 @ 59893:                  ASSVAL

  1025  L3:   I=1                                           ;! FILL IN PSEUDO-LABELS FOR INNER JUMPS
6371 @ 59894:                  LINE   1025 "regression-compile-tmp/skimp77.imp"
6372 @ 59932:                  LABEL  L_00f7
6373 @ 59935:                  LINE   1025 "regression-compile-tmp/skimp77.imp"
6374 @ 59973:                  PUSH   I
6375 @ 59976:                  PUSHI  #0x00000001
6376 @ 59981:                  ASSVAL

  1026  L4:   %IF LBL(JMP(I))<0 %THEN LBL(JMP(I))=BT NEXT   ;! NEXT BAT POSITION
6377 @ 59982:                  LINE   1026 "regression-compile-tmp/skimp77.imp"
6378 @ 60020:                  LABEL  L_00f8
6379 @ 60023:                  LINE   1026 "regression-compile-tmp/skimp77.imp"
6380 @ 60061:                  PUSH   LBL
6381 @ 60064:                  PUSH   JMP
6382 @ 60067:                  PUSH   I
6383 @ 60070:                  ACCESS
6384 @ 60071:                  ACCESS
6385 @ 60072:                  PUSHI  #0x00000000
6386 @ 60077:                  JUMPIF >= L_0004
6387 @ 60081:                  PUSH   LBL
6388 @ 60084:                  PUSH   JMP
6389 @ 60087:                  PUSH   I
6390 @ 60090:                  ACCESS
6391 @ 60091:                  ACCESS
6392 @ 60092:                  PUSH   BTNEXT
6393 @ 60095:                  CALL  
6394 @ 60096:                  ASSVAL
6395 @ 60097:                  LOCATE L_0004

  1027       I=I+1
6396 @ 60100:                  LINE   1027 "regression-compile-tmp/skimp77.imp"
6397 @ 60138:                  PUSH   I
6398 @ 60141:                  PUSH   I
6399 @ 60144:                  PUSHI  #0x00000001
6400 @ 60149:                  ADD   
6401 @ 60150:                  ASSVAL

  1028       %IF I<K %THEN ->L4                             ;! MORE TO FILL IN
6402 @ 60151:                  LINE   1028 "regression-compile-tmp/skimp77.imp"
6403 @ 60189:                  PUSH   I
6404 @ 60192:                  PUSH   K
6405 @ 60195:                  JUMPIF >= L_0004
6406 @ 60199:                  JUMP   L_00f8
6407 @ 60202:                  LOCATE L_0004

  1029       I=1
6408 @ 60205:                  LINE   1029 "regression-compile-tmp/skimp77.imp"
6409 @ 60243:                  PUSH   I
6410 @ 60246:                  PUSHI  #0x00000001
6411 @ 60251:                  ASSVAL

  1030  L7:   AP=CAP(I)                                     ;! ANAL REC POINTER FOR 1ST EXPR OF COMP
6412 @ 60252:                  LINE   1030 "regression-compile-tmp/skimp77.imp"
6413 @ 60290:                  LABEL  L_00f9
6414 @ 60293:                  LINE   1030 "regression-compile-tmp/skimp77.imp"
6415 @ 60331:                  PUSH   AP
6416 @ 60334:                  PUSH   CAP
6417 @ 60337:                  PUSH   I
6418 @ 60340:                  ACCESS
6419 @ 60341:                  ASSVAL

  1031       SCF=1                                         ;! SET FLAG FOR SEXPR
6420 @ 60342:                  LINE   1031 "regression-compile-tmp/skimp77.imp"
6421 @ 60380:                  PUSH   SCF
6422 @ 60383:                  PUSHI  #0x00000001
6423 @ 60388:                  ASSVAL

  1032       SEXPR                                         ;! TO EVALUATE (1ST - 2ND)
6424 @ 60389:                  LINE   1032 "regression-compile-tmp/skimp77.imp"
6425 @ 60427:                  PUSH   SEXPR
6426 @ 60430:                  CALL  

  1033       %IF TF(I)=1 %THEN L=FALSE(COMP) %ELSE L=TRUE(COMP)
6427 @ 60431:                  LINE   1033 "regression-compile-tmp/skimp77.imp"
6428 @ 60469:                  PUSH   TF
6429 @ 60472:                  PUSH   I
6430 @ 60475:                  ACCESS
6431 @ 60476:                  PUSHI  #0x00000001
6432 @ 60481:                  JUMPIF # L_0004
6433 @ 60485:                  PUSH   L
6434 @ 60488:                  PUSH   FALSE
6435 @ 60491:                  PUSH   COMP
6436 @ 60494:                  ACCESS
6437 @ 60495:                  ASSVAL
6438 @ 60496:                  GOTO   L_0003
6439 @ 60499:                  LOCATE L_0004
6440 @ 60502:                  PUSH   L
6441 @ 60505:                  PUSH   TRUE
6442 @ 60508:                  PUSH   COMP
6443 @ 60511:                  ACCESS
6444 @ 60512:                  ASSVAL
6445 @ 60513:                  LOCATE L_0003

  1034       DUMP(L,M'ACC',M'BT',LBL(JMP(I)))              ;! BRANCH TO REQUIRED POSITION
6446 @ 60516:                  LINE   1034 "regression-compile-tmp/skimp77.imp"
6447 @ 60554:                  PUSH   DUMP
6448 @ 60557:                  PUSH   L
6449 @ 60560:                  ASSPAR
6450 @ 60561:                  PUSHI  #0x00414343
6451 @ 60566:                  ASSPAR
6452 @ 60567:                  PUSHI  #0x00004254
6453 @ 60572:                  ASSPAR
6454 @ 60573:                  PUSH   LBL
6455 @ 60576:                  PUSH   JMP
6456 @ 60579:                  PUSH   I
6457 @ 60582:                  ACCESS
6458 @ 60583:                  ACCESS
6459 @ 60584:                  ASSPAR
6460 @ 60585:                  CALL  

  1035       %IF LBL(I)>=0 %AND (I\=K-1 %OR TF(I)=1) %THEN BAT(LBL(I))=CA
6461 @ 60586:                  LINE   1035 "regression-compile-tmp/skimp77.imp"
6462 @ 60624:                  PUSH   LBL
6463 @ 60627:                  PUSH   I
6464 @ 60630:                  ACCESS
6465 @ 60631:                  PUSHI  #0x00000000
6466 @ 60636:                  JUMPIF < L_0004
6467 @ 60640:                  PUSH   I
6468 @ 60643:                  PUSH   K
6469 @ 60646:                  PUSHI  #0x00000001
6470 @ 60651:                  SUB   
6471 @ 60652:                  JUMPIF # L_0005
6472 @ 60656:                  PUSH   TF
6473 @ 60659:                  PUSH   I
6474 @ 60662:                  ACCESS
6475 @ 60663:                  PUSHI  #0x00000001
6476 @ 60668:                  JUMPIF # L_0004
6477 @ 60672:                  LOCATE L_0005
6478 @ 60675:                  PUSH   BAT
6479 @ 60678:                  PUSH   LBL
6480 @ 60681:                  PUSH   I
6481 @ 60684:                  ACCESS
6482 @ 60685:                  ACCESS
6483 @ 60686:                  PUSH   CA
6484 @ 60689:                  ASSVAL
6485 @ 60690:                  LOCATE L_0004

  1036       I=I+1                                         ;!         FILL IN LABEL ADDRESS
6486 @ 60693:                  LINE   1036 "regression-compile-tmp/skimp77.imp"
6487 @ 60731:                  PUSH   I
6488 @ 60734:                  PUSH   I
6489 @ 60737:                  PUSHI  #0x00000001
6490 @ 60742:                  ADD   
6491 @ 60743:                  ASSVAL

  1037       %IF I<K %THEN ->L7                             ;! MORE COMPARISONS YET
6492 @ 60744:                  LINE   1037 "regression-compile-tmp/skimp77.imp"
6493 @ 60782:                  PUSH   I
6494 @ 60785:                  PUSH   K
6495 @ 60788:                  JUMPIF >= L_0004
6496 @ 60792:                  JUMP   L_00f9
6497 @ 60795:                  LOCATE L_0004

  1038       LABEL=LBL(K)                                  ;! FINAL LABEL
6498 @ 60798:                  LINE   1038 "regression-compile-tmp/skimp77.imp"
6499 @ 60836:                  PUSH   LABEL
6500 @ 60839:                  PUSH   LBL
6501 @ 60842:                  PUSH   K
6502 @ 60845:                  ACCESS
6503 @ 60846:                  ASSVAL

  1039       AP=APP                                        ;! FINAL ANALYSIS RECORD POINTER
  1040  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !
6504 @ 60847:                  LINE   1039 "regression-compile-tmp/skimp77.imp"
6505 @ 60885:                  PUSH   AP
6506 @ 60888:                  PUSH   APP
6507 @ 60891:                  ASSVAL

  1041  %ROUTINE STORE(%INTEGER FT)
  1042  ! STORE LEVEL & TRUE/FALSE FLAG
6508 @ 60892:                  LINE   1041 "regression-compile-tmp/skimp77.imp"
6509 @ 60930:                  DEF    STORE (_lev0id0_SS_SCCOND_STORE) p1=V_00ea 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
6510 @ 60947:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
6511 @ 60948:                        DEF    FT p1=V_00fa a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
6512 @ 60962:                     FINISH ) {lev=4}

  1043       %IF I>16 %THEN %START                     ;! ARRAYS FULL
6513 @ 60963:                     LINE   1043 "regression-compile-tmp/skimp77.imp"
6514 @ 61001:                     PUSH   I
6515 @ 61004:                     PUSHI  #0x00000010
6516 @ 61009:                     JUMPIF <= L_0004

  1044          FAULT(M'COND',M'N TO',M'O LO',M'NG  ')
6517 @ 61013:                     LINE   1044 "regression-compile-tmp/skimp77.imp"
6518 @ 61051:                     PUSH   FAULT
6519 @ 61054:                     PUSHI  #0x434f4e44
6520 @ 61059:                     ASSPAR
6521 @ 61060:                     PUSHI  #0x4e20544f
6522 @ 61065:                     ASSPAR
6523 @ 61066:                     PUSHI  #0x4f204c4f
6524 @ 61071:                     ASSPAR
6525 @ 61072:                     PUSHI  #0x4e472020
6526 @ 61077:                     ASSPAR
6527 @ 61078:                     CALL  

  1045          I=1                                    ;! TO CONTINUE
6528 @ 61079:                     LINE   1045 "regression-compile-tmp/skimp77.imp"
6529 @ 61117:                     PUSH   I
6530 @ 61120:                     PUSHI  #0x00000001
6531 @ 61125:                     ASSVAL

  1046          %FINISH
6532 @ 61126:                     LINE   1046 "regression-compile-tmp/skimp77.imp"
6533 @ 61164:                     LOCATE L_0004

  1047       LVL(I)=L                                  ;! SAVE NESTING LEVEL
6534 @ 61167:                     LINE   1047 "regression-compile-tmp/skimp77.imp"
6535 @ 61205:                     PUSH   LVL
6536 @ 61208:                     PUSH   I
6537 @ 61211:                     ACCESS
6538 @ 61212:                     PUSH   L
6539 @ 61215:                     ASSVAL

  1048       TF(I)=FT                                  ;! SAVE TRUE/FALSE FLAG
6540 @ 61216:                     LINE   1048 "regression-compile-tmp/skimp77.imp"
6541 @ 61254:                     PUSH   TF
6542 @ 61257:                     PUSH   I
6543 @ 61260:                     ACCESS
6544 @ 61261:                     PUSH   FT
6545 @ 61264:                     ASSVAL

  1049       LBL(I)=-1                                 ;! SET 'LABEL NOT FILLED IN YET' FLAG
6546 @ 61265:                     LINE   1049 "regression-compile-tmp/skimp77.imp"
6547 @ 61303:                     PUSH   LBL
6548 @ 61306:                     PUSH   I
6549 @ 61309:                     ACCESS
6550 @ 61310:                     PUSHI  #0x00000001
6551 @ 61315:                     NEGATE
6552 @ 61316:                     ASSVAL

  1050       I=I+1                                     ;! NEXT ARRAY POSITION
6553 @ 61317:                     LINE   1050 "regression-compile-tmp/skimp77.imp"
6554 @ 61355:                     PUSH   I
6555 @ 61358:                     PUSH   I
6556 @ 61361:                     PUSHI  #0x00000001
6557 @ 61366:                     ADD   
6558 @ 61367:                     ASSVAL

  1051  %END
  1052  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !
6559 @ 61368:                     LINE   1051 "regression-compile-tmp/skimp77.imp"
6560 @ 61406:                  END    _lev0id0_SS_SCCOND_STORE {lev=4 --> 3}

  1053  %ROUTINE SC
6561 @ 61407:                  LINE   1053 "regression-compile-tmp/skimp77.imp"
6562 @ 61445:                  DEF    SC (_lev0id0_SS_SCCOND_SC) p1=V_00e8 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
6563 @ 61459:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
6564 @ 61460:                     FINISH ) {lev=4}

  1054       AP=AP+1
6565 @ 61461:                     LINE   1054 "regression-compile-tmp/skimp77.imp"
6566 @ 61499:                     PUSH   AP
6567 @ 61502:                     PUSH   AP
6568 @ 61505:                     PUSHI  #0x00000001
6569 @ 61510:                     ADD   
6570 @ 61511:                     ASSVAL

  1055       %IF A(AP-1)=2 %THEN %START
6571 @ 61512:                     LINE   1055 "regression-compile-tmp/skimp77.imp"
6572 @ 61550:                     PUSH   A
6573 @ 61553:                     PUSH   AP
6574 @ 61556:                     PUSHI  #0x00000001
6575 @ 61561:                     SUB   
6576 @ 61562:                     ACCESS
6577 @ 61563:                     PUSHI  #0x00000002
6578 @ 61568:                     JUMPIF # L_0004

  1056          L=L+1                               ;! NESTING LEVEL UP 1 FOR SUB-CONDITION
6579 @ 61572:                     LINE   1056 "regression-compile-tmp/skimp77.imp"
6580 @ 61610:                     PUSH   L
6581 @ 61613:                     PUSH   L
6582 @ 61616:                     PUSHI  #0x00000001
6583 @ 61621:                     ADD   
6584 @ 61622:                     ASSVAL

  1057          SC                                  ;! PROCESS SUB-<SC>
6585 @ 61623:                     LINE   1057 "regression-compile-tmp/skimp77.imp"
6586 @ 61661:                     PUSH   SC
6587 @ 61664:                     CALL  

  1058          COND                                ;! PROCESS SUB-<COND>
6588 @ 61665:                     LINE   1058 "regression-compile-tmp/skimp77.imp"
6589 @ 61703:                     PUSH   COND
6590 @ 61706:                     CALL  

  1059          L=L-1                               ;! NESTING LEVEL DOWN AFTER SUB-CONDITION
6591 @ 61707:                     LINE   1059 "regression-compile-tmp/skimp77.imp"
6592 @ 61745:                     PUSH   L
6593 @ 61748:                     PUSH   L
6594 @ 61751:                     PUSHI  #0x00000001
6595 @ 61756:                     SUB   
6596 @ 61757:                     ASSVAL

  1060          %FINISH %ELSE %START
6597 @ 61758:                     LINE   1060 "regression-compile-tmp/skimp77.imp"
6598 @ 61796:                     GOTO   L_0003
6599 @ 61799:                     LOCATE L_0004

  1061          CAP(I)=AP                           ;! ANAL REC POINTER FOR SIMPLE COMPARISON
6600 @ 61802:                     LINE   1061 "regression-compile-tmp/skimp77.imp"
6601 @ 61840:                     PUSH   CAP
6602 @ 61843:                     PUSH   I
6603 @ 61846:                     ACCESS
6604 @ 61847:                     PUSH   AP
6605 @ 61850:                     ASSVAL

  1062          SKIP SEXPR                          ;! SKIP 1ST EXPR OF COMPARISON
6606 @ 61851:                     LINE   1062 "regression-compile-tmp/skimp77.imp"
6607 @ 61889:                     PUSH   SKIPSEXPR
6608 @ 61892:                     CALL  

  1063          AP=AP+1                             ;! SKIP COMPARATOR
6609 @ 61893:                     LINE   1063 "regression-compile-tmp/skimp77.imp"
6610 @ 61931:                     PUSH   AP
6611 @ 61934:                     PUSH   AP
6612 @ 61937:                     PUSHI  #0x00000001
6613 @ 61942:                     ADD   
6614 @ 61943:                     ASSVAL

  1064          SKIP SEXPR                          ;! SKIP 2ND EXPR
6615 @ 61944:                     LINE   1064 "regression-compile-tmp/skimp77.imp"
6616 @ 61982:                     PUSH   SKIPSEXPR
6617 @ 61985:                     CALL  

  1065          %FINISH
6618 @ 61986:                     LINE   1065 "regression-compile-tmp/skimp77.imp"
6619 @ 62024:                     LOCATE L_0003

  1066  %END
  1067  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !
6620 @ 62027:                     LINE   1066 "regression-compile-tmp/skimp77.imp"
6621 @ 62065:                  END    _lev0id0_SS_SCCOND_SC {lev=4 --> 3}

  1068  %ROUTINE COND
  1069  ! PROCESS <COND> FOR SIMPLE COMPARISONS
6622 @ 62066:                  LINE   1068 "regression-compile-tmp/skimp77.imp"
6623 @ 62104:                  DEF    COND (_lev0id0_SS_SCCOND_COND) p1=V_00e9 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
6624 @ 62120:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
6625 @ 62121:                     FINISH ) {lev=4}

  1070  %INTEGER I
6626 @ 62122:                     LINE   1070 "regression-compile-tmp/skimp77.imp"
6627 @ 62160:                     DEF    I p1=V_00fa a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  1071       I=A(AP)                                ;! <COND>
6628 @ 62173:                     LINE   1071 "regression-compile-tmp/skimp77.imp"
6629 @ 62211:                     PUSH   I
6630 @ 62214:                     PUSH   A
6631 @ 62217:                     PUSH   AP
6632 @ 62220:                     ACCESS
6633 @ 62221:                     ASSVAL

  1072       AP=AP+1                                ;! AP ON <SC>
6634 @ 62222:                     LINE   1072 "regression-compile-tmp/skimp77.imp"
6635 @ 62260:                     PUSH   AP
6636 @ 62263:                     PUSH   AP
6637 @ 62266:                     PUSHI  #0x00000001
6638 @ 62271:                     ADD   
6639 @ 62272:                     ASSVAL

  1073       %IF I\=3 %THEN %START                  ;! NOT NULL ALTERNATIVE OF <COND>
6640 @ 62273:                     LINE   1073 "regression-compile-tmp/skimp77.imp"
6641 @ 62311:                     PUSH   I
6642 @ 62314:                     PUSHI  #0x00000003
6643 @ 62319:                     JUMPIF = L_0004

  1074  L1:      STORE(I)                            ;! SAVE %AND OR %OR TYPE OF CONDITION
6644 @ 62323:                     LINE   1074 "regression-compile-tmp/skimp77.imp"
6645 @ 62361:                     LABEL  L_00fb
6646 @ 62364:                     LINE   1074 "regression-compile-tmp/skimp77.imp"
6647 @ 62402:                     PUSH   STORE
6648 @ 62405:                     PUSH   I
6649 @ 62408:                     ASSPAR
6650 @ 62409:                     CALL  

  1075          SC                                  ;! PROCESS <SC>
6651 @ 62410:                     LINE   1075 "regression-compile-tmp/skimp77.imp"
6652 @ 62448:                     PUSH   SC
6653 @ 62451:                     CALL  

  1076          AP=AP+1                             ;! POINTER ON <ANDC>+1 OR <ORC>+1
6654 @ 62452:                     LINE   1076 "regression-compile-tmp/skimp77.imp"
6655 @ 62490:                     PUSH   AP
6656 @ 62493:                     PUSH   AP
6657 @ 62496:                     PUSHI  #0x00000001
6658 @ 62501:                     ADD   
6659 @ 62502:                     ASSVAL

  1077          %IF A(AP-1)=1 %THEN ->L1             ;! MORE %ANDS OR %ORS
6660 @ 62503:                     LINE   1077 "regression-compile-tmp/skimp77.imp"
6661 @ 62541:                     PUSH   A
6662 @ 62544:                     PUSH   AP
6663 @ 62547:                     PUSHI  #0x00000001
6664 @ 62552:                     SUB   
6665 @ 62553:                     ACCESS
6666 @ 62554:                     PUSHI  #0x00000001
6667 @ 62559:                     JUMPIF # L_0007
6668 @ 62563:                     JUMP   L_00fb
6669 @ 62566:                     LOCATE L_0007

  1078          %FINISH
6670 @ 62569:                     LINE   1078 "regression-compile-tmp/skimp77.imp"
6671 @ 62607:                     LOCATE L_0004

  1079  %END
6672 @ 62610:                     LINE   1079 "regression-compile-tmp/skimp77.imp"
6673 @ 62648:                  END    _lev0id0_SS_SCCOND_COND {lev=4 --> 3}

  1080  %END
  1081  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
6674 @ 62649:                  LINE   1080 "regression-compile-tmp/skimp77.imp"
6675 @ 62687:               END    _lev0id0_SS_SCCOND {lev=3 --> 2}

  1082  %ROUTINE CHECK
  1083  ! CHECK LABELS ALL SET & STARTS MATCH FINISHES
6676 @ 62688:               LINE   1082 "regression-compile-tmp/skimp77.imp"
6677 @ 62726:               DEF    CHECK (_lev0id0_SS_CHECK) p1=V_00b9 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
6678 @ 62743:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
6679 @ 62744:                  FINISH ) {lev=3}

  1084  %INTEGER I,J
6680 @ 62745:                  LINE   1084 "regression-compile-tmp/skimp77.imp"
6681 @ 62783:                  DEF    I p1=V_00e7 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
6682 @ 62796:                  DEF    J p1=V_00e8 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  1085       I=JUMP(LEVEL)                              ;! POINTER TO JUMP LIST FOR THIS LEVEL
6683 @ 62809:                  LINE   1085 "regression-compile-tmp/skimp77.imp"
6684 @ 62847:                  PUSH   I
6685 @ 62850:                  PUSH   JUMP
6686 @ 62853:                  PUSH   LEVEL
6687 @ 62856:                  ACCESS
6688 @ 62857:                  ASSVAL

  1086  L1:   %IF I\=0 %THEN %START                      ;! NO LABELS OR JUMPS USED AT THIS LEVEL
6689 @ 62858:                  LINE   1086 "regression-compile-tmp/skimp77.imp"
6690 @ 62896:                  LABEL  L_00e9
6691 @ 62899:                  LINE   1086 "regression-compile-tmp/skimp77.imp"
6692 @ 62937:                  PUSH   I
6693 @ 62940:                  PUSHI  #0x00000000
6694 @ 62945:                  JUMPIF = L_0004

  1087          %IF BAT(TAG(I)&65535)<0 %THEN %START    ;! LABEL SET INCORRECTLY
6695 @ 62949:                  LINE   1087 "regression-compile-tmp/skimp77.imp"
6696 @ 62987:                  PUSH   BAT
6697 @ 62990:                  PUSH   TAG
6698 @ 62993:                  PUSH   I
6699 @ 62996:                  ACCESS
6700 @ 62997:                  PUSHI  #0x0000ffff
6701 @ 63002:                  AND   
6702 @ 63003:                  ACCESS
6703 @ 63004:                  PUSHI  #0x00000000
6704 @ 63009:                  JUMPIF >= L_0007

  1088             WRITE(TAG(I)>>16,1)                  ;! PRINT OUT LABEL NO OF LABEL NOT SET
6705 @ 63013:                  LINE   1088 "regression-compile-tmp/skimp77.imp"
6706 @ 63051:                  PUSH   WRITE
6707 @ 63054:                  PUSH   TAG
6708 @ 63057:                  PUSH   I
6709 @ 63060:                  ACCESS
6710 @ 63061:                  PUSHI  #0x00000010
6711 @ 63066:                  RSH   
6712 @ 63067:                  ASSPAR
6713 @ 63068:                  PUSHI  #0x00000001
6714 @ 63073:                  ASSPAR
6715 @ 63074:                  CALL  

  1089             FAULT(M' LAB',M'EL N',M'OT S',M'ET  ')
6716 @ 63075:                  LINE   1089 "regression-compile-tmp/skimp77.imp"
6717 @ 63113:                  PUSH   FAULT
6718 @ 63116:                  PUSHI  #0x204c4142
6719 @ 63121:                  ASSPAR
6720 @ 63122:                  PUSHI  #0x454c204e
6721 @ 63127:                  ASSPAR
6722 @ 63128:                  PUSHI  #0x4f542053
6723 @ 63133:                  ASSPAR
6724 @ 63134:                  PUSHI  #0x45542020
6725 @ 63139:                  ASSPAR
6726 @ 63140:                  CALL  

  1090             %FINISH
6727 @ 63141:                  LINE   1090 "regression-compile-tmp/skimp77.imp"
6728 @ 63179:                  LOCATE L_0007

  1091          I=RETURN CELL(I)                        ;! RETURN JUMP LIST CELL TO ASL
6729 @ 63182:                  LINE   1091 "regression-compile-tmp/skimp77.imp"
6730 @ 63220:                  PUSH   I
6731 @ 63223:                  PUSH   RETURNCELL
6732 @ 63226:                  PUSH   I
6733 @ 63229:                  ASSPAR
6734 @ 63230:                  CALL  
6735 @ 63231:                  ASSVAL

  1092          ->L1 ; %FINISH
6736 @ 63232:                  LINE   1092 "regression-compile-tmp/skimp77.imp"
6737 @ 63270:                  JUMP   L_00e9
6738 @ 63273:                  LINE   1092 "regression-compile-tmp/skimp77.imp"
6739 @ 63311:                  LOCATE L_0004

  1093       I=START(LEVEL)                             ;! LINK TO START LIST
6740 @ 63314:                  LINE   1093 "regression-compile-tmp/skimp77.imp"
6741 @ 63352:                  PUSH   I
6742 @ 63355:                  PUSH   START
6743 @ 63358:                  PUSH   LEVEL
6744 @ 63361:                  ACCESS
6745 @ 63362:                  ASSVAL

  1094  L2:   %IF I\=0 %THEN %START                      ;! A CELL STILL IN LIST
6746 @ 63363:                  LINE   1094 "regression-compile-tmp/skimp77.imp"
6747 @ 63401:                  LABEL  L_00ea
6748 @ 63404:                  LINE   1094 "regression-compile-tmp/skimp77.imp"
6749 @ 63442:                  PUSH   I
6750 @ 63445:                  PUSHI  #0x00000000
6751 @ 63450:                  JUMPIF = L_0004

  1095          FAULT(M'%FIN',M'ISH ',M'MISS',M'ING ')
6752 @ 63454:                  LINE   1095 "regression-compile-tmp/skimp77.imp"
6753 @ 63492:                  PUSH   FAULT
6754 @ 63495:                  PUSHI  #0x2546494e
6755 @ 63500:                  ASSPAR
6756 @ 63501:                  PUSHI  #0x49534820
6757 @ 63506:                  ASSPAR
6758 @ 63507:                  PUSHI  #0x4d495353
6759 @ 63512:                  ASSPAR
6760 @ 63513:                  PUSHI  #0x494e4720
6761 @ 63518:                  ASSPAR
6762 @ 63519:                  CALL  

  1096          I=RETURN CELL(I)                        ;! POP UP CELL
6763 @ 63520:                  LINE   1096 "regression-compile-tmp/skimp77.imp"
6764 @ 63558:                  PUSH   I
6765 @ 63561:                  PUSH   RETURNCELL
6766 @ 63564:                  PUSH   I
6767 @ 63567:                  ASSPAR
6768 @ 63568:                  CALL  
6769 @ 63569:                  ASSVAL

  1097          ->L2 ; %FINISH
6770 @ 63570:                  LINE   1097 "regression-compile-tmp/skimp77.imp"
6771 @ 63608:                  JUMP   L_00ea
6772 @ 63611:                  LINE   1097 "regression-compile-tmp/skimp77.imp"
6773 @ 63649:                  LOCATE L_0004

  1098  %END
  1099  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
6774 @ 63652:                  LINE   1098 "regression-compile-tmp/skimp77.imp"
6775 @ 63690:               END    _lev0id0_SS_CHECK {lev=3 --> 2}

  1100  %ROUTINE UNSET
  1101  ! UNSET NAMES AND CHECK FOR MISSING ROUTINES
6776 @ 63691:               LINE   1100 "regression-compile-tmp/skimp77.imp"
6777 @ 63729:               DEF    UNSET (_lev0id0_SS_UNSET) p1=V_00ba 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
6778 @ 63746:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
6779 @ 63747:                  FINISH ) {lev=3}

  1102  %INTEGER I,J,K
6780 @ 63748:                  LINE   1102 "regression-compile-tmp/skimp77.imp"
6781 @ 63786:                  DEF    I p1=V_00e7 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
6782 @ 63799:                  DEF    J p1=V_00e8 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
6783 @ 63812:                  DEF    K p1=V_00e9 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  1103       I=NAME(LEVEL)                               ;! NAME LIST POINTER
6784 @ 63825:                  LINE   1103 "regression-compile-tmp/skimp77.imp"
6785 @ 63863:                  PUSH   I
6786 @ 63866:                  PUSH   NAME
6787 @ 63869:                  PUSH   LEVEL
6788 @ 63872:                  ACCESS
6789 @ 63873:                  ASSVAL

  1104  L1:   %IF I\=0 %THEN %START                       ;! UNSET NAMES DECLARED AT THIS LEVEL
6790 @ 63874:                  LINE   1104 "regression-compile-tmp/skimp77.imp"
6791 @ 63912:                  LABEL  L_00ea
6792 @ 63915:                  LINE   1104 "regression-compile-tmp/skimp77.imp"
6793 @ 63953:                  PUSH   I
6794 @ 63956:                  PUSHI  #0x00000000
6795 @ 63961:                  JUMPIF = L_0004

  1105          J=TAG(I)                                 ;! NAME IDENT NO
6796 @ 63965:                  LINE   1105 "regression-compile-tmp/skimp77.imp"
6797 @ 64003:                  PUSH   J
6798 @ 64006:                  PUSH   TAG
6799 @ 64009:                  PUSH   I
6800 @ 64012:                  ACCESS
6801 @ 64013:                  ASSVAL

  1106          K=TAG(LINK(J))                           ;! TAG WORD AT TOP OF LIST
6802 @ 64014:                  LINE   1106 "regression-compile-tmp/skimp77.imp"
6803 @ 64052:                  PUSH   K
6804 @ 64055:                  PUSH   TAG
6805 @ 64058:                  PUSH   LINK
6806 @ 64061:                  PUSH   J
6807 @ 64064:                  ACCESS
6808 @ 64065:                  ACCESS
6809 @ 64066:                  ASSVAL

  1107          LINK(J)=RETURN CELL(LINK(J))             ;! POP UP CELL
6810 @ 64067:                  LINE   1107 "regression-compile-tmp/skimp77.imp"
6811 @ 64105:                  PUSH   LINK
6812 @ 64108:                  PUSH   J
6813 @ 64111:                  ACCESS
6814 @ 64112:                  PUSH   RETURNCELL
6815 @ 64115:                  PUSH   LINK
6816 @ 64118:                  PUSH   J
6817 @ 64121:                  ACCESS
6818 @ 64122:                  ASSPAR
6819 @ 64123:                  CALL  
6820 @ 64124:                  ASSVAL

  1108          %IF K>>28=4 %THEN %START                 ;! ROUTINE/FN TYPE
6821 @ 64125:                  LINE   1108 "regression-compile-tmp/skimp77.imp"
6822 @ 64163:                  PUSH   K
6823 @ 64166:                  PUSHI  #0x0000001c
6824 @ 64171:                  RSH   
6825 @ 64172:                  PUSHI  #0x00000004
6826 @ 64177:                  JUMPIF # L_0007

  1109             %IF BAT(K&65535)<0 %THEN %START
6827 @ 64181:                  LINE   1109 "regression-compile-tmp/skimp77.imp"
6828 @ 64219:                  PUSH   BAT
6829 @ 64222:                  PUSH   K
6830 @ 64225:                  PUSHI  #0x0000ffff
6831 @ 64230:                  AND   
6832 @ 64231:                  ACCESS
6833 @ 64232:                  PUSHI  #0x00000000
6834 @ 64237:                  JUMPIF >= L_000a

  1110                PRINT NAME(J)
6835 @ 64241:                  LINE   1110 "regression-compile-tmp/skimp77.imp"
6836 @ 64279:                  PUSH   PRINTNAME
6837 @ 64282:                  PUSH   J
6838 @ 64285:                  ASSPAR
6839 @ 64286:                  CALL  

  1111                FAULT(M'ROUT',M'INE ',M'MISS',M'ING ')
6840 @ 64287:                  LINE   1111 "regression-compile-tmp/skimp77.imp"
6841 @ 64325:                  PUSH   FAULT
6842 @ 64328:                  PUSHI  #0x524f5554
6843 @ 64333:                  ASSPAR
6844 @ 64334:                  PUSHI  #0x494e4520
6845 @ 64339:                  ASSPAR
6846 @ 64340:                  PUSHI  #0x4d495353
6847 @ 64345:                  ASSPAR
6848 @ 64346:                  PUSHI  #0x494e4720
6849 @ 64351:                  ASSPAR
6850 @ 64352:                  CALL  

  1112                %FINISH
6851 @ 64353:                  LINE   1112 "regression-compile-tmp/skimp77.imp"
6852 @ 64391:                  LOCATE L_000a

  1113             K=K>>20&15                            ;! NO OF PARAMS
6853 @ 64394:                  LINE   1113 "regression-compile-tmp/skimp77.imp"
6854 @ 64432:                  PUSH   K
6855 @ 64435:                  PUSH   K
6856 @ 64438:                  PUSHI  #0x00000014
6857 @ 64443:                  RSH   
6858 @ 64444:                  PUSHI  #0x0000000f
6859 @ 64449:                  AND   
6860 @ 64450:                  ASSVAL

  1114  L2:         %IF K\=0 %THEN %START                 ;! PARAMS PRESENT
6861 @ 64451:                  LINE   1114 "regression-compile-tmp/skimp77.imp"
6862 @ 64489:                  LABEL  L_00eb
6863 @ 64492:                  LINE   1114 "regression-compile-tmp/skimp77.imp"
6864 @ 64530:                  PUSH   K
6865 @ 64533:                  PUSHI  #0x00000000
6866 @ 64538:                  JUMPIF = L_000a

  1115                LINK(J)=RETURN CELL(LINK(J))       ;! POP UP CELLS
6867 @ 64542:                  LINE   1115 "regression-compile-tmp/skimp77.imp"
6868 @ 64580:                  PUSH   LINK
6869 @ 64583:                  PUSH   J
6870 @ 64586:                  ACCESS
6871 @ 64587:                  PUSH   RETURNCELL
6872 @ 64590:                  PUSH   LINK
6873 @ 64593:                  PUSH   J
6874 @ 64596:                  ACCESS
6875 @ 64597:                  ASSPAR
6876 @ 64598:                  CALL  
6877 @ 64599:                  ASSVAL

  1116                K=K-1                              ;! PARAM COUNT
6878 @ 64600:                  LINE   1116 "regression-compile-tmp/skimp77.imp"
6879 @ 64638:                  PUSH   K
6880 @ 64641:                  PUSH   K
6881 @ 64644:                  PUSHI  #0x00000001
6882 @ 64649:                  SUB   
6883 @ 64650:                  ASSVAL

  1117                ->L2 ; %FINISH
6884 @ 64651:                  LINE   1117 "regression-compile-tmp/skimp77.imp"
6885 @ 64689:                  JUMP   L_00eb
6886 @ 64692:                  LINE   1117 "regression-compile-tmp/skimp77.imp"
6887 @ 64730:                  LOCATE L_000a

  1118             %FINISH
6888 @ 64733:                  LINE   1118 "regression-compile-tmp/skimp77.imp"
6889 @ 64771:                  LOCATE L_0007

  1119          %IF LINK(J)=0 %THEN TAG(J)=0             ;! A PREVIOUS DECLARATION OF SAME NAME
6890 @ 64774:                  LINE   1119 "regression-compile-tmp/skimp77.imp"
6891 @ 64812:                  PUSH   LINK
6892 @ 64815:                  PUSH   J
6893 @ 64818:                  ACCESS
6894 @ 64819:                  PUSHI  #0x00000000
6895 @ 64824:                  JUMPIF # L_0007
6896 @ 64828:                  PUSH   TAG
6897 @ 64831:                  PUSH   J
6898 @ 64834:                  ACCESS
6899 @ 64835:                  PUSHI  #0x00000000
6900 @ 64840:                  ASSVAL
6901 @ 64841:                  LOCATE L_0007

  1120          I=RETURN CELL(I)                         ;! RETURN NAME LIST CELL
6902 @ 64844:                  LINE   1120 "regression-compile-tmp/skimp77.imp"
6903 @ 64882:                  PUSH   I
6904 @ 64885:                  PUSH   RETURNCELL
6905 @ 64888:                  PUSH   I
6906 @ 64891:                  ASSPAR
6907 @ 64892:                  CALL  
6908 @ 64893:                  ASSVAL

  1121          ->L1 ; %FINISH
6909 @ 64894:                  LINE   1121 "regression-compile-tmp/skimp77.imp"
6910 @ 64932:                  JUMP   L_00ea
6911 @ 64935:                  LINE   1121 "regression-compile-tmp/skimp77.imp"
6912 @ 64973:                  LOCATE L_0004

  1122  %END
  1123  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
6913 @ 64976:                  LINE   1122 "regression-compile-tmp/skimp77.imp"
6914 @ 65014:               END    _lev0id0_SS_UNSET {lev=3 --> 2}

  1124  %ROUTINE PUSH START(%INTEGER FLAG,LABEL)
  1125  ! PUSHDOWN START/FINISH BLOCK INFORMATION
6915 @ 65015:               LINE   1124 "regression-compile-tmp/skimp77.imp"
6916 @ 65053:               DEF    PUSHSTART (_lev0id0_SS_PUSHSTART) p1=V_00bb 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
6917 @ 65074:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
6918 @ 65075:                     DEF    FLAG p1=V_00e7 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
6919 @ 65091:                     DEF    LABEL p1=V_00e8 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
6920 @ 65108:                  FINISH ) {lev=3}

  1126  %INTEGER I
6921 @ 65109:                  LINE   1126 "regression-compile-tmp/skimp77.imp"
6922 @ 65147:                  DEF    I p1=V_00e9 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  1127       I=NEWCELL
6923 @ 65160:                  LINE   1127 "regression-compile-tmp/skimp77.imp"
6924 @ 65198:                  PUSH   I
6925 @ 65201:                  PUSH   NEWCELL
6926 @ 65204:                  CALL  
6927 @ 65205:                  ASSVAL

  1128       TAG(I)=FLAG<<16!LABEL&65535                 ;! PACK FLAG & LABEL
6928 @ 65206:                  LINE   1128 "regression-compile-tmp/skimp77.imp"
6929 @ 65244:                  PUSH   TAG
6930 @ 65247:                  PUSH   I
6931 @ 65250:                  ACCESS
6932 @ 65251:                  PUSH   FLAG
6933 @ 65254:                  PUSHI  #0x00000010
6934 @ 65259:                  LSH   
6935 @ 65260:                  PUSH   LABEL
6936 @ 65263:                  PUSHI  #0x0000ffff
6937 @ 65268:                  AND   
6938 @ 65269:                  OR    
6939 @ 65270:                  ASSVAL

  1129       LINK(I)=START(LEVEL)                        ;! PUSH CELL DOWN
6940 @ 65271:                  LINE   1129 "regression-compile-tmp/skimp77.imp"
6941 @ 65309:                  PUSH   LINK
6942 @ 65312:                  PUSH   I
6943 @ 65315:                  ACCESS
6944 @ 65316:                  PUSH   START
6945 @ 65319:                  PUSH   LEVEL
6946 @ 65322:                  ACCESS
6947 @ 65323:                  ASSVAL

  1130       START(LEVEL)=I                              ;!  ONTO START LIST
6948 @ 65324:                  LINE   1130 "regression-compile-tmp/skimp77.imp"
6949 @ 65362:                  PUSH   START
6950 @ 65365:                  PUSH   LEVEL
6951 @ 65368:                  ACCESS
6952 @ 65369:                  PUSH   I
6953 @ 65372:                  ASSVAL

  1131  %END
  1132  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
6954 @ 65373:                  LINE   1131 "regression-compile-tmp/skimp77.imp"
6955 @ 65411:               END    _lev0id0_SS_PUSHSTART {lev=3 --> 2}

  1133  %ROUTINE ENTER(%INTEGER TYPE,ALLOC)
  1134  ! DUMP CODE FOR NEW LEVEL & INITIALISE LEVEL ARRAYS
6956 @ 65412:               LINE   1133 "regression-compile-tmp/skimp77.imp"
6957 @ 65450:               DEF    ENTER (_lev0id0_SS_ENTER) p1=V_00c5 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
6958 @ 65467:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
6959 @ 65468:                     DEF    TYPE p1=V_00e7 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
6960 @ 65484:                     DEF    ALLOC p1=V_00e8 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
6961 @ 65501:                  FINISH ) {lev=3}

  1135  %INTEGER I
6962 @ 65502:                  LINE   1135 "regression-compile-tmp/skimp77.imp"
6963 @ 65540:                  DEF    I p1=V_00e9 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  1136       DUMP(M'STR',BR(LEVEL),M'STP',0)            ;! ENTRY SEQUENCE
6964 @ 65553:                  LINE   1136 "regression-compile-tmp/skimp77.imp"
6965 @ 65591:                  PUSH   DUMP
6966 @ 65594:                  PUSHI  #0x00535452
6967 @ 65599:                  ASSPAR
6968 @ 65600:                  PUSH   BR
6969 @ 65603:                  PUSH   LEVEL
6970 @ 65606:                  ACCESS
6971 @ 65607:                  ASSPAR
6972 @ 65608:                  PUSHI  #0x00535450
6973 @ 65613:                  ASSPAR
6974 @ 65614:                  PUSHI  #0x00000000
6975 @ 65619:                  ASSPAR
6976 @ 65620:                  CALL  

  1137       DUMP(M'LDA',BR(LEVEL),M'STP',0)
6977 @ 65621:                  LINE   1137 "regression-compile-tmp/skimp77.imp"
6978 @ 65659:                  PUSH   DUMP
6979 @ 65662:                  PUSHI  #0x004c4441
6980 @ 65667:                  ASSPAR
6981 @ 65668:                  PUSH   BR
6982 @ 65671:                  PUSH   LEVEL
6983 @ 65674:                  ACCESS
6984 @ 65675:                  ASSPAR
6985 @ 65676:                  PUSHI  #0x00535450
6986 @ 65681:                  ASSPAR
6987 @ 65682:                  PUSHI  #0x00000000
6988 @ 65687:                  ASSPAR
6989 @ 65688:                  CALL  

  1138       DUMP(M'STR',M'WK',M'STP',1)
6990 @ 65689:                  LINE   1138 "regression-compile-tmp/skimp77.imp"
6991 @ 65727:                  PUSH   DUMP
6992 @ 65730:                  PUSHI  #0x00535452
6993 @ 65735:                  ASSPAR
6994 @ 65736:                  PUSHI  #0x0000574b
6995 @ 65741:                  ASSPAR
6996 @ 65742:                  PUSHI  #0x00535450
6997 @ 65747:                  ASSPAR
6998 @ 65748:                  PUSHI  #0x00000001
6999 @ 65753:                  ASSPAR
7000 @ 65754:                  CALL  

  1139       I=CT NEXT                                  ;! STATIC ALLOCATION HOLE IN CONST TABLE
7001 @ 65755:                  LINE   1139 "regression-compile-tmp/skimp77.imp"
7002 @ 65793:                  PUSH   I
7003 @ 65796:                  PUSH   CTNEXT
7004 @ 65799:                  CALL  
7005 @ 65800:                  ASSVAL

  1140       DUMP(M'ADD',M'STP',M'CT',I)
7006 @ 65801:                  LINE   1140 "regression-compile-tmp/skimp77.imp"
7007 @ 65839:                  PUSH   DUMP
7008 @ 65842:                  PUSHI  #0x00414444
7009 @ 65847:                  ASSPAR
7010 @ 65848:                  PUSHI  #0x00535450
7011 @ 65853:                  ASSPAR
7012 @ 65854:                  PUSHI  #0x00004354
7013 @ 65859:                  ASSPAR
7014 @ 65860:                  PUSH   I
7015 @ 65863:                  ASSPAR
7016 @ 65864:                  CALL  

  1141       STAR(LEVEL)=I                             ;! REMEMBER POSITION OF HOLE
7017 @ 65865:                  LINE   1141 "regression-compile-tmp/skimp77.imp"
7018 @ 65903:                  PUSH   STAR
7019 @ 65906:                  PUSH   LEVEL
7020 @ 65909:                  ACCESS
7021 @ 65910:                  PUSH   I
7022 @ 65913:                  ASSVAL

  1142       JUMP(LEVEL)=0                              ;! NO JUMPS AT NEW LEVEL YET
7023 @ 65914:                  LINE   1142 "regression-compile-tmp/skimp77.imp"
7024 @ 65952:                  PUSH   JUMP
7025 @ 65955:                  PUSH   LEVEL
7026 @ 65958:                  ACCESS
7027 @ 65959:                  PUSHI  #0x00000000
7028 @ 65964:                  ASSVAL

  1143       NAME(LEVEL)=0                              ;! NO NAMES AT NEW LEVEL YET
7029 @ 65965:                  LINE   1143 "regression-compile-tmp/skimp77.imp"
7030 @ 66003:                  PUSH   NAME
7031 @ 66006:                  PUSH   LEVEL
7032 @ 66009:                  ACCESS
7033 @ 66010:                  PUSHI  #0x00000000
7034 @ 66015:                  ASSVAL

  1144       RTP(LEVEL)=TYPE                            ;! BLOCK/ROUTINE/FN TYPE
7035 @ 66016:                  LINE   1144 "regression-compile-tmp/skimp77.imp"
7036 @ 66054:                  PUSH   RTP
7037 @ 66057:                  PUSH   LEVEL
7038 @ 66060:                  ACCESS
7039 @ 66061:                  PUSH   TYPE
7040 @ 66064:                  ASSVAL

  1145       CHPP(LEVEL)=CHP                            ;! SAVE CHARACTER ARRAY POINTER
7041 @ 66065:                  LINE   1145 "regression-compile-tmp/skimp77.imp"
7042 @ 66103:                  PUSH   CHPP
7043 @ 66106:                  PUSH   LEVEL
7044 @ 66109:                  ACCESS
7045 @ 66110:                  PUSH   CHP
7046 @ 66113:                  ASSVAL

  1146       START(LEVEL)=0                             ;! NO START/FINISH BLOCKS YET
7047 @ 66114:                  LINE   1146 "regression-compile-tmp/skimp77.imp"
7048 @ 66152:                  PUSH   START
7049 @ 66155:                  PUSH   LEVEL
7050 @ 66158:                  ACCESS
7051 @ 66159:                  PUSHI  #0x00000000
7052 @ 66164:                  ASSVAL

  1147       RAD(LEVEL)=ALLOC                           ;! NEXT RELATIVE ADDRESS TO BE ASSIGNED
7053 @ 66165:                  LINE   1147 "regression-compile-tmp/skimp77.imp"
7054 @ 66203:                  PUSH   RAD
7055 @ 66206:                  PUSH   LEVEL
7056 @ 66209:                  ACCESS
7057 @ 66210:                  PUSH   ALLOC
7058 @ 66213:                  ASSVAL

  1148  %END
  1149  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
7059 @ 66214:                  LINE   1148 "regression-compile-tmp/skimp77.imp"
7060 @ 66252:               END    _lev0id0_SS_ENTER {lev=3 --> 2}

  1150  %ROUTINE RETURN
  1151  ! DUMP CODE FOR %RETURN
7061 @ 66253:               LINE   1150 "regression-compile-tmp/skimp77.imp"
7062 @ 66291:               DEF    RETURN (_lev0id0_SS_RETURN) p1=V_00c6 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
7063 @ 66309:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
7064 @ 66310:                  FINISH ) {lev=3}

  1152       DUMP(M'LDA',M'STP',BR(LEVEL),0)             ;! RESTORE DIJKSTRA DISPLAY
7065 @ 66311:                  LINE   1152 "regression-compile-tmp/skimp77.imp"
7066 @ 66349:                  PUSH   DUMP
7067 @ 66352:                  PUSHI  #0x004c4441
7068 @ 66357:                  ASSPAR
7069 @ 66358:                  PUSHI  #0x00535450
7070 @ 66363:                  ASSPAR
7071 @ 66364:                  PUSH   BR
7072 @ 66367:                  PUSH   LEVEL
7073 @ 66370:                  ACCESS
7074 @ 66371:                  ASSPAR
7075 @ 66372:                  PUSHI  #0x00000000
7076 @ 66377:                  ASSPAR
7077 @ 66378:                  CALL  

  1153       DUMP(M'LOAD',BR(LEVEL),M'STP',0)
7078 @ 66379:                  LINE   1153 "regression-compile-tmp/skimp77.imp"
7079 @ 66417:                  PUSH   DUMP
7080 @ 66420:                  PUSHI  #0x4c4f4144
7081 @ 66425:                  ASSPAR
7082 @ 66426:                  PUSH   BR
7083 @ 66429:                  PUSH   LEVEL
7084 @ 66432:                  ACCESS
7085 @ 66433:                  ASSPAR
7086 @ 66434:                  PUSHI  #0x00535450
7087 @ 66439:                  ASSPAR
7088 @ 66440:                  PUSHI  #0x00000000
7089 @ 66445:                  ASSPAR
7090 @ 66446:                  CALL  

  1154       DUMP(M'LOAD',M'WK',M'STP',1)
7091 @ 66447:                  LINE   1154 "regression-compile-tmp/skimp77.imp"
7092 @ 66485:                  PUSH   DUMP
7093 @ 66488:                  PUSHI  #0x4c4f4144
7094 @ 66493:                  ASSPAR
7095 @ 66494:                  PUSHI  #0x0000574b
7096 @ 66499:                  ASSPAR
7097 @ 66500:                  PUSHI  #0x00535450
7098 @ 66505:                  ASSPAR
7099 @ 66506:                  PUSHI  #0x00000001
7100 @ 66511:                  ASSPAR
7101 @ 66512:                  CALL  

  1155       DUMP('B',0,M'WK',0)                         ;! BRANCH TO RETURN ADDRESS
7102 @ 66513:                  LINE   1155 "regression-compile-tmp/skimp77.imp"
7103 @ 66551:                  PUSH   DUMP
7104 @ 66554:                  PUSHI  #0x00000042
7105 @ 66559:                  ASSPAR
7106 @ 66560:                  PUSHI  #0x00000000
7107 @ 66565:                  ASSPAR
7108 @ 66566:                  PUSHI  #0x0000574b
7109 @ 66571:                  ASSPAR
7110 @ 66572:                  PUSHI  #0x00000000
7111 @ 66577:                  ASSPAR
7112 @ 66578:                  CALL  

  1156  %END
  1157  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
7113 @ 66579:                  LINE   1156 "regression-compile-tmp/skimp77.imp"
7114 @ 66617:               END    _lev0id0_SS_RETURN {lev=3 --> 2}

  1158  %ROUTINE RT
  1159  ! DUMP CODE FOR A ROUTINE OR FUNCTION CALL
7115 @ 66618:               LINE   1158 "regression-compile-tmp/skimp77.imp"
7116 @ 66656:               DEF    RT (_lev0id0_SS_RT) p1=V_00c3 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
7117 @ 66670:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
7118 @ 66671:                  FINISH ) {lev=3}

  1160  %INTEGER I,J,K,L,M,N,P
7119 @ 66672:                  LINE   1160 "regression-compile-tmp/skimp77.imp"
7120 @ 66710:                  DEF    I p1=V_00e7 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
7121 @ 66723:                  DEF    J p1=V_00e8 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
7122 @ 66736:                  DEF    K p1=V_00e9 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
7123 @ 66749:                  DEF    L p1=V_00ea a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
7124 @ 66762:                  DEF    M p1=V_00eb a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
7125 @ 66775:                  DEF    N p1=V_00ec a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
7126 @ 66788:                  DEF    P p1=V_00ed a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  1161       I=LINK(A(AP))                                      ;! LINK TO TAG FOR NAME
7127 @ 66801:                  LINE   1161 "regression-compile-tmp/skimp77.imp"
7128 @ 66839:                  PUSH   I
7129 @ 66842:                  PUSH   LINK
7130 @ 66845:                  PUSH   A
7131 @ 66848:                  PUSH   AP
7132 @ 66851:                  ACCESS
7133 @ 66852:                  ACCESS
7134 @ 66853:                  ASSVAL

  1162       AP=AP+1                                            ;! AP ON <APP>
7135 @ 66854:                  LINE   1162 "regression-compile-tmp/skimp77.imp"
7136 @ 66892:                  PUSH   AP
7137 @ 66895:                  PUSH   AP
7138 @ 66898:                  PUSHI  #0x00000001
7139 @ 66903:                  ADD   
7140 @ 66904:                  ASSVAL

  1163       J=TAG(I)                                           ;! TAG OF NAME
7141 @ 66905:                  LINE   1163 "regression-compile-tmp/skimp77.imp"
7142 @ 66943:                  PUSH   J
7143 @ 66946:                  PUSH   TAG
7144 @ 66949:                  PUSH   I
7145 @ 66952:                  ACCESS
7146 @ 66953:                  ASSVAL

  1164       K=J>>20&15+1                                       ;! NO OF PARAMS +1
7147 @ 66954:                  LINE   1164 "regression-compile-tmp/skimp77.imp"
7148 @ 66992:                  PUSH   K
7149 @ 66995:                  PUSH   J
7150 @ 66998:                  PUSHI  #0x00000014
7151 @ 67003:                  RSH   
7152 @ 67004:                  PUSHI  #0x0000000f
7153 @ 67009:                  AND   
7154 @ 67010:                  PUSHI  #0x00000001
7155 @ 67015:                  ADD   
7156 @ 67016:                  ASSVAL

  1165  L1:   K=K-1                                              ;! COUNT PARAMS
7157 @ 67017:                  LINE   1165 "regression-compile-tmp/skimp77.imp"
7158 @ 67055:                  LABEL  L_00ee
7159 @ 67058:                  LINE   1165 "regression-compile-tmp/skimp77.imp"
7160 @ 67096:                  PUSH   K
7161 @ 67099:                  PUSH   K
7162 @ 67102:                  PUSHI  #0x00000001
7163 @ 67107:                  SUB   
7164 @ 67108:                  ASSVAL

  1166       AP=AP+1                                            ;! AP ON <APP>+1
7165 @ 67109:                  LINE   1166 "regression-compile-tmp/skimp77.imp"
7166 @ 67147:                  PUSH   AP
7167 @ 67150:                  PUSH   AP
7168 @ 67153:                  PUSHI  #0x00000001
7169 @ 67158:                  ADD   
7170 @ 67159:                  ASSVAL

  1167       %IF A(AP-1)=2 %THEN %START                         ;! PARAMS ABSENT OR NO MORE TO PROCESS
7171 @ 67160:                  LINE   1167 "regression-compile-tmp/skimp77.imp"
7172 @ 67198:                  PUSH   A
7173 @ 67201:                  PUSH   AP
7174 @ 67204:                  PUSHI  #0x00000001
7175 @ 67209:                  SUB   
7176 @ 67210:                  ACCESS
7177 @ 67211:                  PUSHI  #0x00000002
7178 @ 67216:                  JUMPIF # L_0004

  1168          DUMP(M'BAL',M'WK',M'BT',J&65535)                ;! DUMP BRANCH TO ROUTINE/FN
7179 @ 67220:                  LINE   1168 "regression-compile-tmp/skimp77.imp"
7180 @ 67258:                  PUSH   DUMP
7181 @ 67261:                  PUSHI  #0x0042414c
7182 @ 67266:                  ASSPAR
7183 @ 67267:                  PUSHI  #0x0000574b
7184 @ 67272:                  ASSPAR
7185 @ 67273:                  PUSHI  #0x00004254
7186 @ 67278:                  ASSPAR
7187 @ 67279:                  PUSH   J
7188 @ 67282:                  PUSHI  #0x0000ffff
7189 @ 67287:                  AND   
7190 @ 67288:                  ASSPAR
7191 @ 67289:                  CALL  

  1169          %IF K>0 %THEN FAULT(M'TOO ',M'FEW ',M'PARA',M'MS  ')
7192 @ 67290:                  LINE   1169 "regression-compile-tmp/skimp77.imp"
7193 @ 67328:                  PUSH   K
7194 @ 67331:                  PUSHI  #0x00000000
7195 @ 67336:                  JUMPIF <= L_0007
7196 @ 67340:                  PUSH   FAULT
7197 @ 67343:                  PUSHI  #0x544f4f20
7198 @ 67348:                  ASSPAR
7199 @ 67349:                  PUSHI  #0x46455720
7200 @ 67354:                  ASSPAR
7201 @ 67355:                  PUSHI  #0x50415241
7202 @ 67360:                  ASSPAR
7203 @ 67361:                  PUSHI  #0x4d532020
7204 @ 67366:                  ASSPAR
7205 @ 67367:                  CALL  
7206 @ 67368:                  LOCATE L_0007

  1170          %RETURN ; %FINISH
7207 @ 67371:                  LINE   1170 "regression-compile-tmp/skimp77.imp"
7208 @ 67409:                  RETURN
7209 @ 67410:                  LINE   1170 "regression-compile-tmp/skimp77.imp"
7210 @ 67448:                  LOCATE L_0004

  1171       %IF K<=0 %THEN %START                              ;! MORE PARAMS THAN SPEC
7211 @ 67451:                  LINE   1171 "regression-compile-tmp/skimp77.imp"
7212 @ 67489:                  PUSH   K
7213 @ 67492:                  PUSHI  #0x00000000
7214 @ 67497:                  JUMPIF > L_0004

  1172          %IF K=0 %THEN FAULT(M'TOO ',M'MANY',M' PAR',M'AMS ') ;! ONLY MONITOR ONCE
7215 @ 67501:                  LINE   1172 "regression-compile-tmp/skimp77.imp"
7216 @ 67539:                  PUSH   K
7217 @ 67542:                  PUSHI  #0x00000000
7218 @ 67547:                  JUMPIF # L_0007
7219 @ 67551:                  PUSH   FAULT
7220 @ 67554:                  PUSHI  #0x544f4f20
7221 @ 67559:                  ASSPAR
7222 @ 67560:                  PUSHI  #0x4d414e59
7223 @ 67565:                  ASSPAR
7224 @ 67566:                  PUSHI  #0x20504152
7225 @ 67571:                  ASSPAR
7226 @ 67572:                  PUSHI  #0x414d5320
7227 @ 67577:                  ASSPAR
7228 @ 67578:                  CALL  
7229 @ 67579:                  LOCATE L_0007

  1173          ->L2 ; %FINISH
7230 @ 67582:                  LINE   1173 "regression-compile-tmp/skimp77.imp"
7231 @ 67620:                  JUMP   L_00ef
7232 @ 67623:                  LINE   1173 "regression-compile-tmp/skimp77.imp"
7233 @ 67661:                  LOCATE L_0004

  1174       I=LINK(I)                                          ;! LINK TO NEXT PARAM CELL
7234 @ 67664:                  LINE   1174 "regression-compile-tmp/skimp77.imp"
7235 @ 67702:                  PUSH   I
7236 @ 67705:                  PUSH   LINK
7237 @ 67708:                  PUSH   I
7238 @ 67711:                  ACCESS
7239 @ 67712:                  ASSVAL

  1175       L=TAG(I)                                           ;! TAG OF PARAM
7240 @ 67713:                  LINE   1175 "regression-compile-tmp/skimp77.imp"
7241 @ 67751:                  PUSH   L
7242 @ 67754:                  PUSH   TAG
7243 @ 67757:                  PUSH   I
7244 @ 67760:                  ACCESS
7245 @ 67761:                  ASSVAL

  1176       %IF L>>28=0 %THEN %START                           ;! SCALAR VALUE
7246 @ 67762:                  LINE   1176 "regression-compile-tmp/skimp77.imp"
7247 @ 67800:                  PUSH   L
7248 @ 67803:                  PUSHI  #0x0000001c
7249 @ 67808:                  RSH   
7250 @ 67809:                  PUSHI  #0x00000000
7251 @ 67814:                  JUMPIF # L_0004

  1177          SEXPR                                           ;! COMPILE EXPRESSION
7252 @ 67818:                  LINE   1177 "regression-compile-tmp/skimp77.imp"
7253 @ 67856:                  PUSH   SEXPR
7254 @ 67859:                  CALL  

  1178          ->L3 ; %FINISH
7255 @ 67860:                  LINE   1178 "regression-compile-tmp/skimp77.imp"
7256 @ 67898:                  JUMP   L_00f0
7257 @ 67901:                  LINE   1178 "regression-compile-tmp/skimp77.imp"
7258 @ 67939:                  LOCATE L_0004

  1179       %IF A(AP)=4 %AND A(AP+1)=1 %THEN ->L4               ;! <+-\> IS NULL & <OPD> IS A NAME
7259 @ 67942:                  LINE   1179 "regression-compile-tmp/skimp77.imp"
7260 @ 67980:                  PUSH   A
7261 @ 67983:                  PUSH   AP
7262 @ 67986:                  ACCESS
7263 @ 67987:                  PUSHI  #0x00000004
7264 @ 67992:                  JUMPIF # L_0004
7265 @ 67996:                  PUSH   A
7266 @ 67999:                  PUSH   AP
7267 @ 68002:                  PUSHI  #0x00000001
7268 @ 68007:                  ADD   
7269 @ 68008:                  ACCESS
7270 @ 68009:                  PUSHI  #0x00000001
7271 @ 68014:                  JUMPIF # L_0004
7272 @ 68018:                  JUMP   L_00f1
7273 @ 68021:                  LOCATE L_0004

  1180  L5:   FAULT(M'NOT ',M'A NA',M'ME P',M'ARAM')
7274 @ 68024:                  LINE   1180 "regression-compile-tmp/skimp77.imp"
7275 @ 68062:                  LABEL  L_00f2
7276 @ 68065:                  LINE   1180 "regression-compile-tmp/skimp77.imp"
7277 @ 68103:                  PUSH   FAULT
7278 @ 68106:                  PUSHI  #0x4e4f5420
7279 @ 68111:                  ASSPAR
7280 @ 68112:                  PUSHI  #0x41204e41
7281 @ 68117:                  ASSPAR
7282 @ 68118:                  PUSHI  #0x4d452050
7283 @ 68123:                  ASSPAR
7284 @ 68124:                  PUSHI  #0x4152414d
7285 @ 68129:                  ASSPAR
7286 @ 68130:                  CALL  

  1181  L2:   SKIP SEXPR                                         ;! SKIP INVALID PARAM TO CONTINUE
7287 @ 68131:                  LINE   1181 "regression-compile-tmp/skimp77.imp"
7288 @ 68169:                  LABEL  L_00ef
7289 @ 68172:                  LINE   1181 "regression-compile-tmp/skimp77.imp"
7290 @ 68210:                  PUSH   SKIPSEXPR
7291 @ 68213:                  CALL  

  1182       ->L1
7292 @ 68214:                  LINE   1182 "regression-compile-tmp/skimp77.imp"
7293 @ 68252:                  JUMP   L_00ee

  1183  L4:   M=LINK(A(AP+2))                                    ;! LINK TO TAG FOR PARAM NAME
7294 @ 68255:                  LINE   1183 "regression-compile-tmp/skimp77.imp"
7295 @ 68293:                  LABEL  L_00f1
7296 @ 68296:                  LINE   1183 "regression-compile-tmp/skimp77.imp"
7297 @ 68334:                  PUSH   M
7298 @ 68337:                  PUSH   LINK
7299 @ 68340:                  PUSH   A
7300 @ 68343:                  PUSH   AP
7301 @ 68346:                  PUSHI  #0x00000002
7302 @ 68351:                  ADD   
7303 @ 68352:                  ACCESS
7304 @ 68353:                  ACCESS
7305 @ 68354:                  ASSVAL

  1184       %IF M=0 %THEN %START
7306 @ 68355:                  LINE   1184 "regression-compile-tmp/skimp77.imp"
7307 @ 68393:                  PUSH   M
7308 @ 68396:                  PUSHI  #0x00000000
7309 @ 68401:                  JUMPIF # L_0004

  1185          PRINT NAME(A(AP+2))
7310 @ 68405:                  LINE   1185 "regression-compile-tmp/skimp77.imp"
7311 @ 68443:                  PUSH   PRINTNAME
7312 @ 68446:                  PUSH   A
7313 @ 68449:                  PUSH   AP
7314 @ 68452:                  PUSHI  #0x00000002
7315 @ 68457:                  ADD   
7316 @ 68458:                  ACCESS
7317 @ 68459:                  ASSPAR
7318 @ 68460:                  CALL  

  1186          FAULT(M'NAME',M' NOT',M' SET',M'    ')
7319 @ 68461:                  LINE   1186 "regression-compile-tmp/skimp77.imp"
7320 @ 68499:                  PUSH   FAULT
7321 @ 68502:                  PUSHI  #0x4e414d45
7322 @ 68507:                  ASSPAR
7323 @ 68508:                  PUSHI  #0x204e4f54
7324 @ 68513:                  ASSPAR
7325 @ 68514:                  PUSHI  #0x20534554
7326 @ 68519:                  ASSPAR
7327 @ 68520:                  PUSHI  #0x20202020
7328 @ 68525:                  ASSPAR
7329 @ 68526:                  CALL  

  1187          ->L2 ; %FINISH
7330 @ 68527:                  LINE   1187 "regression-compile-tmp/skimp77.imp"
7331 @ 68565:                  JUMP   L_00ef
7332 @ 68568:                  LINE   1187 "regression-compile-tmp/skimp77.imp"
7333 @ 68606:                  LOCATE L_0004

  1188       N=TAG(M)                                           ;! TAG OF PARAM NAME
7334 @ 68609:                  LINE   1188 "regression-compile-tmp/skimp77.imp"
7335 @ 68647:                  PUSH   N
7336 @ 68650:                  PUSH   TAG
7337 @ 68653:                  PUSH   M
7338 @ 68656:                  ACCESS
7339 @ 68657:                  ASSVAL

  1189       %IF L>>28=1 %THEN %START                           ;! PARAM IS SCALAR NAME TYPE
7340 @ 68658:                  LINE   1189 "regression-compile-tmp/skimp77.imp"
7341 @ 68696:                  PUSH   L
7342 @ 68699:                  PUSHI  #0x0000001c
7343 @ 68704:                  RSH   
7344 @ 68705:                  PUSHI  #0x00000001
7345 @ 68710:                  JUMPIF # L_0004

  1190          %IF N>>28=4 %THEN %START                        ;! ACTUAL NAME IS ROUTINE/FN TYPE
7346 @ 68714:                  LINE   1190 "regression-compile-tmp/skimp77.imp"
7347 @ 68752:                  PUSH   N
7348 @ 68755:                  PUSHI  #0x0000001c
7349 @ 68760:                  RSH   
7350 @ 68761:                  PUSHI  #0x00000004
7351 @ 68766:                  JUMPIF # L_0007

  1191             PRINT NAME(A(AP+2))
7352 @ 68770:                  LINE   1191 "regression-compile-tmp/skimp77.imp"
7353 @ 68808:                  PUSH   PRINTNAME
7354 @ 68811:                  PUSH   A
7355 @ 68814:                  PUSH   AP
7356 @ 68817:                  PUSHI  #0x00000002
7357 @ 68822:                  ADD   
7358 @ 68823:                  ACCESS
7359 @ 68824:                  ASSPAR
7360 @ 68825:                  CALL  

  1192             ->L5 ; %FINISH
7361 @ 68826:                  LINE   1192 "regression-compile-tmp/skimp77.imp"
7362 @ 68864:                  JUMP   L_00f2
7363 @ 68867:                  LINE   1192 "regression-compile-tmp/skimp77.imp"
7364 @ 68905:                  LOCATE L_0007

  1193          %IF N>>28>=2 %THEN %START                       ;! ACTUAL NAME IS AN ARRAY
7365 @ 68908:                  LINE   1193 "regression-compile-tmp/skimp77.imp"
7366 @ 68946:                  PUSH   N
7367 @ 68949:                  PUSHI  #0x0000001c
7368 @ 68954:                  RSH   
7369 @ 68955:                  PUSHI  #0x00000002
7370 @ 68960:                  JUMPIF < L_0007

  1194             AP=AP+2                                      ;! AP ON <NAME>
7371 @ 68964:                  LINE   1194 "regression-compile-tmp/skimp77.imp"
7372 @ 69002:                  PUSH   AP
7373 @ 69005:                  PUSH   AP
7374 @ 69008:                  PUSHI  #0x00000002
7375 @ 69013:                  ADD   
7376 @ 69014:                  ASSVAL

  1195             ARRAD                                        ;! CALCULATE ARRAY ELEMENT ADDRESS
7377 @ 69015:                  LINE   1195 "regression-compile-tmp/skimp77.imp"
7378 @ 69053:                  PUSH   ARRAD
7379 @ 69056:                  CALL  

  1196             AP=AP+1                                      ;! AP ON <EXPR>+1 - SHOULD BE <EXPS>
7380 @ 69057:                  LINE   1196 "regression-compile-tmp/skimp77.imp"
7381 @ 69095:                  PUSH   AP
7382 @ 69098:                  PUSH   AP
7383 @ 69101:                  PUSHI  #0x00000001
7384 @ 69106:                  ADD   
7385 @ 69107:                  ASSVAL

  1197             %IF A(AP-1)=1 %THEN ->L5                      ;! FURTHER OPERAND - INVALID
7386 @ 69108:                  LINE   1197 "regression-compile-tmp/skimp77.imp"
7387 @ 69146:                  PUSH   A
7388 @ 69149:                  PUSH   AP
7389 @ 69152:                  PUSHI  #0x00000001
7390 @ 69157:                  SUB   
7391 @ 69158:                  ACCESS
7392 @ 69159:                  PUSHI  #0x00000001
7393 @ 69164:                  JUMPIF # L_000a
7394 @ 69168:                  JUMP   L_00f2
7395 @ 69171:                  LOCATE L_000a

  1198             ->L3 ; %FINISH
7396 @ 69174:                  LINE   1198 "regression-compile-tmp/skimp77.imp"
7397 @ 69212:                  JUMP   L_00f0
7398 @ 69215:                  LINE   1198 "regression-compile-tmp/skimp77.imp"
7399 @ 69253:                  LOCATE L_0007

  1199          %IF A(AP+3)=1 %THEN %START                      ;! <APP> NOT NULL
7400 @ 69256:                  LINE   1199 "regression-compile-tmp/skimp77.imp"
7401 @ 69294:                  PUSH   A
7402 @ 69297:                  PUSH   AP
7403 @ 69300:                  PUSHI  #0x00000003
7404 @ 69305:                  ADD   
7405 @ 69306:                  ACCESS
7406 @ 69307:                  PUSHI  #0x00000001
7407 @ 69312:                  JUMPIF # L_0007

  1200             PRINT NAME(A(AP+2))
7408 @ 69316:                  LINE   1200 "regression-compile-tmp/skimp77.imp"
7409 @ 69354:                  PUSH   PRINTNAME
7410 @ 69357:                  PUSH   A
7411 @ 69360:                  PUSH   AP
7412 @ 69363:                  PUSHI  #0x00000002
7413 @ 69368:                  ADD   
7414 @ 69369:                  ACCESS
7415 @ 69370:                  ASSPAR
7416 @ 69371:                  CALL  

  1201             FAULT(M'SCAL',M'AR H',M'AS P',M'ARAM')
7417 @ 69372:                  LINE   1201 "regression-compile-tmp/skimp77.imp"
7418 @ 69410:                  PUSH   FAULT
7419 @ 69413:                  PUSHI  #0x5343414c
7420 @ 69418:                  ASSPAR
7421 @ 69419:                  PUSHI  #0x41522048
7422 @ 69424:                  ASSPAR
7423 @ 69425:                  PUSHI  #0x41532050
7424 @ 69430:                  ASSPAR
7425 @ 69431:                  PUSHI  #0x4152414d
7426 @ 69436:                  ASSPAR
7427 @ 69437:                  CALL  

  1202             ->L2 ; %FINISH
7428 @ 69438:                  LINE   1202 "regression-compile-tmp/skimp77.imp"
7429 @ 69476:                  JUMP   L_00ef
7430 @ 69479:                  LINE   1202 "regression-compile-tmp/skimp77.imp"
7431 @ 69517:                  LOCATE L_0007

  1203          %IF A(AP+4)=1 %THEN ->L5                         ;! FURTHER OPERANDS - INVALID
7432 @ 69520:                  LINE   1203 "regression-compile-tmp/skimp77.imp"
7433 @ 69558:                  PUSH   A
7434 @ 69561:                  PUSH   AP
7435 @ 69564:                  PUSHI  #0x00000004
7436 @ 69569:                  ADD   
7437 @ 69570:                  ACCESS
7438 @ 69571:                  PUSHI  #0x00000001
7439 @ 69576:                  JUMPIF # L_0007
7440 @ 69580:                  JUMP   L_00f2
7441 @ 69583:                  LOCATE L_0007

  1204          %IF N>>28=1 %THEN P=M'LOAD' %ELSE P=M'LDA'      ;! LOAD FOR NAME TYPE & LDA FOR VALUE TYPE
7442 @ 69586:                  LINE   1204 "regression-compile-tmp/skimp77.imp"
7443 @ 69624:                  PUSH   N
7444 @ 69627:                  PUSHI  #0x0000001c
7445 @ 69632:                  RSH   
7446 @ 69633:                  PUSHI  #0x00000001
7447 @ 69638:                  JUMPIF # L_0007
7448 @ 69642:                  PUSH   P
7449 @ 69645:                  PUSHI  #0x4c4f4144
7450 @ 69650:                  ASSVAL
7451 @ 69651:                  GOTO   L_0006
7452 @ 69654:                  LOCATE L_0007
7453 @ 69657:                  PUSH   P
7454 @ 69660:                  PUSHI  #0x004c4441
7455 @ 69665:                  ASSVAL
7456 @ 69666:                  LOCATE L_0006

  1205          DUMP(P,M'ACC',BR(N>>16&15),N&65535)
7457 @ 69669:                  LINE   1205 "regression-compile-tmp/skimp77.imp"
7458 @ 69707:                  PUSH   DUMP
7459 @ 69710:                  PUSH   P
7460 @ 69713:                  ASSPAR
7461 @ 69714:                  PUSHI  #0x00414343
7462 @ 69719:                  ASSPAR
7463 @ 69720:                  PUSH   BR
7464 @ 69723:                  PUSH   N
7465 @ 69726:                  PUSHI  #0x00000010
7466 @ 69731:                  RSH   
7467 @ 69732:                  PUSHI  #0x0000000f
7468 @ 69737:                  AND   
7469 @ 69738:                  ACCESS
7470 @ 69739:                  ASSPAR
7471 @ 69740:                  PUSH   N
7472 @ 69743:                  PUSHI  #0x0000ffff
7473 @ 69748:                  AND   
7474 @ 69749:                  ASSPAR
7475 @ 69750:                  CALL  

  1206          %FINISH %ELSE %START                            ;! PARAM IS ARRAY NAME
7476 @ 69751:                  LINE   1206 "regression-compile-tmp/skimp77.imp"
7477 @ 69789:                  GOTO   L_0003
7478 @ 69792:                  LOCATE L_0004

  1207          %IF A(AP+3)\=2 %OR A(AP+4)\=2 %THEN ->L5         ;! <APP> NOT NULL OR MORE OPERANDS
7479 @ 69795:                  LINE   1207 "regression-compile-tmp/skimp77.imp"
7480 @ 69833:                  PUSH   A
7481 @ 69836:                  PUSH   AP
7482 @ 69839:                  PUSHI  #0x00000003
7483 @ 69844:                  ADD   
7484 @ 69845:                  ACCESS
7485 @ 69846:                  PUSHI  #0x00000002
7486 @ 69851:                  JUMPIF # L_0008
7487 @ 69855:                  PUSH   A
7488 @ 69858:                  PUSH   AP
7489 @ 69861:                  PUSHI  #0x00000004
7490 @ 69866:                  ADD   
7491 @ 69867:                  ACCESS
7492 @ 69868:                  PUSHI  #0x00000002
7493 @ 69873:                  JUMPIF = L_0007
7494 @ 69877:                  LOCATE L_0008
7495 @ 69880:                  JUMP   L_00f2
7496 @ 69883:                  LOCATE L_0007

  1208          %IF N>>28&2=0 %THEN %START                      ;! 'FORM' OF ACTUAL IS NOT ARRAY
7497 @ 69886:                  LINE   1208 "regression-compile-tmp/skimp77.imp"
7498 @ 69924:                  PUSH   N
7499 @ 69927:                  PUSHI  #0x0000001c
7500 @ 69932:                  RSH   
7501 @ 69933:                  PUSHI  #0x00000002
7502 @ 69938:                  AND   
7503 @ 69939:                  PUSHI  #0x00000000
7504 @ 69944:                  JUMPIF # L_0007

  1209             PRINT NAME(A(AP+2))
7505 @ 69948:                  LINE   1209 "regression-compile-tmp/skimp77.imp"
7506 @ 69986:                  PUSH   PRINTNAME
7507 @ 69989:                  PUSH   A
7508 @ 69992:                  PUSH   AP
7509 @ 69995:                  PUSHI  #0x00000002
7510 @ 70000:                  ADD   
7511 @ 70001:                  ACCESS
7512 @ 70002:                  ASSPAR
7513 @ 70003:                  CALL  

  1210             FAULT(M'NOT ',M'AN A',M'RRAY',M' NME')
7514 @ 70004:                  LINE   1210 "regression-compile-tmp/skimp77.imp"
7515 @ 70042:                  PUSH   FAULT
7516 @ 70045:                  PUSHI  #0x4e4f5420
7517 @ 70050:                  ASSPAR
7518 @ 70051:                  PUSHI  #0x414e2041
7519 @ 70056:                  ASSPAR
7520 @ 70057:                  PUSHI  #0x52524159
7521 @ 70062:                  ASSPAR
7522 @ 70063:                  PUSHI  #0x204e4d45
7523 @ 70068:                  ASSPAR
7524 @ 70069:                  CALL  

  1211             ->L2 ; %FINISH
7525 @ 70070:                  LINE   1211 "regression-compile-tmp/skimp77.imp"
7526 @ 70108:                  JUMP   L_00ef
7527 @ 70111:                  LINE   1211 "regression-compile-tmp/skimp77.imp"
7528 @ 70149:                  LOCATE L_0007

  1212          %IF N>>28=3 %THEN %START                        ;! ACTUAL IS ARRAY NAME
7529 @ 70152:                  LINE   1212 "regression-compile-tmp/skimp77.imp"
7530 @ 70190:                  PUSH   N
7531 @ 70193:                  PUSHI  #0x0000001c
7532 @ 70198:                  RSH   
7533 @ 70199:                  PUSHI  #0x00000003
7534 @ 70204:                  JUMPIF # L_0007

  1213             M=N&65535                                    ;! POINTER TO TAG CELL OF PARAM LIST
7535 @ 70208:                  LINE   1213 "regression-compile-tmp/skimp77.imp"
7536 @ 70246:                  PUSH   M
7537 @ 70249:                  PUSH   N
7538 @ 70252:                  PUSHI  #0x0000ffff
7539 @ 70257:                  AND   
7540 @ 70258:                  ASSVAL

  1214             N=TAG(M)                                     ;! CORRECT TAG FOR PARAM
7541 @ 70259:                  LINE   1214 "regression-compile-tmp/skimp77.imp"
7542 @ 70297:                  PUSH   N
7543 @ 70300:                  PUSH   TAG
7544 @ 70303:                  PUSH   M
7545 @ 70306:                  ACCESS
7546 @ 70307:                  ASSVAL

  1215             %FINISH
7547 @ 70308:                  LINE   1215 "regression-compile-tmp/skimp77.imp"
7548 @ 70346:                  LOCATE L_0007

  1216          %IF N>>20&15\=L>>20&15 %THEN %START             ;! DIMENSIONS DIFFERENT
7549 @ 70349:                  LINE   1216 "regression-compile-tmp/skimp77.imp"
7550 @ 70387:                  PUSH   N
7551 @ 70390:                  PUSHI  #0x00000014
7552 @ 70395:                  RSH   
7553 @ 70396:                  PUSHI  #0x0000000f
7554 @ 70401:                  AND   
7555 @ 70402:                  PUSH   L
7556 @ 70405:                  PUSHI  #0x00000014
7557 @ 70410:                  RSH   
7558 @ 70411:                  PUSHI  #0x0000000f
7559 @ 70416:                  AND   
7560 @ 70417:                  JUMPIF = L_0007

  1217             %IF L>>20&15=0 %THEN %START                  ;! FORMAL PARAM DIMENSION UNKNOWN
7561 @ 70421:                  LINE   1217 "regression-compile-tmp/skimp77.imp"
7562 @ 70459:                  PUSH   L
7563 @ 70462:                  PUSHI  #0x00000014
7564 @ 70467:                  RSH   
7565 @ 70468:                  PUSHI  #0x0000000f
7566 @ 70473:                  AND   
7567 @ 70474:                  PUSHI  #0x00000000
7568 @ 70479:                  JUMPIF # L_000a

  1218                L=TAG(I)!N&15<<20                         ;! FILL FORMAL TAG WITH DIMENSION
7569 @ 70483:                  LINE   1218 "regression-compile-tmp/skimp77.imp"
7570 @ 70521:                  PUSH   L
7571 @ 70524:                  PUSH   TAG
7572 @ 70527:                  PUSH   I
7573 @ 70530:                  ACCESS
7574 @ 70531:                  PUSH   N
7575 @ 70534:                  PUSHI  #0x0000000f
7576 @ 70539:                  PUSHI  #0x00000014
7577 @ 70544:                  LSH   
7578 @ 70545:                  AND   
7579 @ 70546:                  OR    
7580 @ 70547:                  ASSVAL

  1219                TAG(I)=L                                  ;!  OF ACTUAL PARAM
7581 @ 70548:                  LINE   1219 "regression-compile-tmp/skimp77.imp"
7582 @ 70586:                  PUSH   TAG
7583 @ 70589:                  PUSH   I
7584 @ 70592:                  ACCESS
7585 @ 70593:                  PUSH   L
7586 @ 70596:                  ASSVAL

  1220                %FINISH %ELSE %START                      ;! DIMENSION OF FORMAL KNOWN
7587 @ 70597:                  LINE   1220 "regression-compile-tmp/skimp77.imp"
7588 @ 70635:                  GOTO   L_0009
7589 @ 70638:                  LOCATE L_000a

  1221                %IF N>>20&15=0 %THEN TAG(M)=TAG(M)!L&15<<20 %ELSE %START
  1222                                                          ;! FILL IN DIMENSION OF ACTUAL IF UNKNOWN
7590 @ 70641:                  LINE   1221 "regression-compile-tmp/skimp77.imp"
7591 @ 70679:                  PUSH   N
7592 @ 70682:                  PUSHI  #0x00000014
7593 @ 70687:                  RSH   
7594 @ 70688:                  PUSHI  #0x0000000f
7595 @ 70693:                  AND   
7596 @ 70694:                  PUSHI  #0x00000000
7597 @ 70699:                  JUMPIF # L_000d
7598 @ 70703:                  PUSH   TAG
7599 @ 70706:                  PUSH   M
7600 @ 70709:                  ACCESS
7601 @ 70710:                  PUSH   TAG
7602 @ 70713:                  PUSH   M
7603 @ 70716:                  ACCESS
7604 @ 70717:                  PUSH   L
7605 @ 70720:                  PUSHI  #0x0000000f
7606 @ 70725:                  PUSHI  #0x00000014
7607 @ 70730:                  LSH   
7608 @ 70731:                  AND   
7609 @ 70732:                  OR    
7610 @ 70733:                  ASSVAL
7611 @ 70734:                  GOTO   L_000c
7612 @ 70737:                  LOCATE L_000d

  1223                   PRINT NAME(A(AP+2))
7613 @ 70740:                  LINE   1223 "regression-compile-tmp/skimp77.imp"
7614 @ 70778:                  PUSH   PRINTNAME
7615 @ 70781:                  PUSH   A
7616 @ 70784:                  PUSH   AP
7617 @ 70787:                  PUSHI  #0x00000002
7618 @ 70792:                  ADD   
7619 @ 70793:                  ACCESS
7620 @ 70794:                  ASSPAR
7621 @ 70795:                  CALL  

  1224                   FAULT(M'ARRA',M'Y DI',M'MENS',M'ION?')
7622 @ 70796:                  LINE   1224 "regression-compile-tmp/skimp77.imp"
7623 @ 70834:                  PUSH   FAULT
7624 @ 70837:                  PUSHI  #0x41525241
7625 @ 70842:                  ASSPAR
7626 @ 70843:                  PUSHI  #0x59204449
7627 @ 70848:                  ASSPAR
7628 @ 70849:                  PUSHI  #0x4d454e53
7629 @ 70854:                  ASSPAR
7630 @ 70855:                  PUSHI  #0x494f4e3f
7631 @ 70860:                  ASSPAR
7632 @ 70861:                  CALL  

  1225                   ->L2 ; %FINISH
7633 @ 70862:                  LINE   1225 "regression-compile-tmp/skimp77.imp"
7634 @ 70900:                  JUMP   L_00ef
7635 @ 70903:                  LINE   1225 "regression-compile-tmp/skimp77.imp"
7636 @ 70941:                  LOCATE L_000c

  1226                %FINISH
7637 @ 70944:                  LINE   1226 "regression-compile-tmp/skimp77.imp"
7638 @ 70982:                  LOCATE L_0009

  1227             %FINISH
7639 @ 70985:                  LINE   1227 "regression-compile-tmp/skimp77.imp"
7640 @ 71023:                  LOCATE L_0007

  1228          DUMP(M'LOAD',M'ACC',BR(N>>16&15),N&65535)
7641 @ 71026:                  LINE   1228 "regression-compile-tmp/skimp77.imp"
7642 @ 71064:                  PUSH   DUMP
7643 @ 71067:                  PUSHI  #0x4c4f4144
7644 @ 71072:                  ASSPAR
7645 @ 71073:                  PUSHI  #0x00414343
7646 @ 71078:                  ASSPAR
7647 @ 71079:                  PUSH   BR
7648 @ 71082:                  PUSH   N
7649 @ 71085:                  PUSHI  #0x00000010
7650 @ 71090:                  RSH   
7651 @ 71091:                  PUSHI  #0x0000000f
7652 @ 71096:                  AND   
7653 @ 71097:                  ACCESS
7654 @ 71098:                  ASSPAR
7655 @ 71099:                  PUSH   N
7656 @ 71102:                  PUSHI  #0x0000ffff
7657 @ 71107:                  AND   
7658 @ 71108:                  ASSPAR
7659 @ 71109:                  CALL  

  1229          %IF L>>20&15\=1 %THEN %START                    ;! NOT 1-DIM ARRAY
7660 @ 71110:                  LINE   1229 "regression-compile-tmp/skimp77.imp"
7661 @ 71148:                  PUSH   L
7662 @ 71151:                  PUSHI  #0x00000014
7663 @ 71156:                  RSH   
7664 @ 71157:                  PUSHI  #0x0000000f
7665 @ 71162:                  AND   
7666 @ 71163:                  PUSHI  #0x00000001
7667 @ 71168:                  JUMPIF = L_0007

  1230             DUMP(M'STR',M'ACC',M'STP',L&65535)
7668 @ 71172:                  LINE   1230 "regression-compile-tmp/skimp77.imp"
7669 @ 71210:                  PUSH   DUMP
7670 @ 71213:                  PUSHI  #0x00535452
7671 @ 71218:                  ASSPAR
7672 @ 71219:                  PUSHI  #0x00414343
7673 @ 71224:                  ASSPAR
7674 @ 71225:                  PUSHI  #0x00535450
7675 @ 71230:                  ASSPAR
7676 @ 71231:                  PUSH   L
7677 @ 71234:                  PUSHI  #0x0000ffff
7678 @ 71239:                  AND   
7679 @ 71240:                  ASSPAR
7680 @ 71241:                  CALL  

  1231             DUMP(M'LOAD',M'ACC',BR(N>>16&15),N&65535+1)
7681 @ 71242:                  LINE   1231 "regression-compile-tmp/skimp77.imp"
7682 @ 71280:                  PUSH   DUMP
7683 @ 71283:                  PUSHI  #0x4c4f4144
7684 @ 71288:                  ASSPAR
7685 @ 71289:                  PUSHI  #0x00414343
7686 @ 71294:                  ASSPAR
7687 @ 71295:                  PUSH   BR
7688 @ 71298:                  PUSH   N
7689 @ 71301:                  PUSHI  #0x00000010
7690 @ 71306:                  RSH   
7691 @ 71307:                  PUSHI  #0x0000000f
7692 @ 71312:                  AND   
7693 @ 71313:                  ACCESS
7694 @ 71314:                  ASSPAR
7695 @ 71315:                  PUSH   N
7696 @ 71318:                  PUSHI  #0x0000ffff
7697 @ 71323:                  AND   
7698 @ 71324:                  PUSHI  #0x00000001
7699 @ 71329:                  ADD   
7700 @ 71330:                  ASSPAR
7701 @ 71331:                  CALL  

  1232             L=L+1
7702 @ 71332:                  LINE   1232 "regression-compile-tmp/skimp77.imp"
7703 @ 71370:                  PUSH   L
7704 @ 71373:                  PUSH   L
7705 @ 71376:                  PUSHI  #0x00000001
7706 @ 71381:                  ADD   
7707 @ 71382:                  ASSVAL

  1233             %FINISH
7708 @ 71383:                  LINE   1233 "regression-compile-tmp/skimp77.imp"
7709 @ 71421:                  LOCATE L_0007

  1234          %FINISH
7710 @ 71424:                  LINE   1234 "regression-compile-tmp/skimp77.imp"
7711 @ 71462:                  LOCATE L_0003

  1235       AP=AP+5                                            ;! AP ON <EXPS>
7712 @ 71465:                  LINE   1235 "regression-compile-tmp/skimp77.imp"
7713 @ 71503:                  PUSH   AP
7714 @ 71506:                  PUSH   AP
7715 @ 71509:                  PUSHI  #0x00000005
7716 @ 71514:                  ADD   
7717 @ 71515:                  ASSVAL

  1236  L3:   DUMP(M'STR',M'ACC',M'STP',L&65535)
7718 @ 71516:                  LINE   1236 "regression-compile-tmp/skimp77.imp"
7719 @ 71554:                  LABEL  L_00f0
7720 @ 71557:                  LINE   1236 "regression-compile-tmp/skimp77.imp"
7721 @ 71595:                  PUSH   DUMP
7722 @ 71598:                  PUSHI  #0x00535452
7723 @ 71603:                  ASSPAR
7724 @ 71604:                  PUSHI  #0x00414343
7725 @ 71609:                  ASSPAR
7726 @ 71610:                  PUSHI  #0x00535450
7727 @ 71615:                  ASSPAR
7728 @ 71616:                  PUSH   L
7729 @ 71619:                  PUSHI  #0x0000ffff
7730 @ 71624:                  AND   
7731 @ 71625:                  ASSPAR
7732 @ 71626:                  CALL  

  1237       ->L1
7733 @ 71627:                  LINE   1237 "regression-compile-tmp/skimp77.imp"
7734 @ 71665:                  JUMP   L_00ee

  1238  %END
  1239  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
7735 @ 71668:                  LINE   1238 "regression-compile-tmp/skimp77.imp"
7736 @ 71706:               END    _lev0id0_SS_RT {lev=3 --> 2}

  1240  %ROUTINE ARRAD
  1241  ! DUMP CODE TO CALCULATE ARRAY ELEMENT ADDRESS
7737 @ 71707:               LINE   1240 "regression-compile-tmp/skimp77.imp"
7738 @ 71745:               DEF    ARRAD (_lev0id0_SS_ARRAD) p1=V_00c4 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
7739 @ 71762:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
7740 @ 71763:                  FINISH ) {lev=3}

  1242  %INTEGER I,J,K,L
7741 @ 71764:                  LINE   1242 "regression-compile-tmp/skimp77.imp"
7742 @ 71802:                  DEF    I p1=V_00e7 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
7743 @ 71815:                  DEF    J p1=V_00e8 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
7744 @ 71828:                  DEF    K p1=V_00e9 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
7745 @ 71841:                  DEF    L p1=V_00ea a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  1243       L=A(AP)
7746 @ 71854:                  LINE   1243 "regression-compile-tmp/skimp77.imp"
7747 @ 71892:                  PUSH   L
7748 @ 71895:                  PUSH   A
7749 @ 71898:                  PUSH   AP
7750 @ 71901:                  ACCESS
7751 @ 71902:                  ASSVAL

  1244       I=LINK(L)                                          ;! LINK TO TAG FOR NAME OF ARRAY
7752 @ 71903:                  LINE   1244 "regression-compile-tmp/skimp77.imp"
7753 @ 71941:                  PUSH   I
7754 @ 71944:                  PUSH   LINK
7755 @ 71947:                  PUSH   L
7756 @ 71950:                  ACCESS
7757 @ 71951:                  ASSVAL

  1245       J=TAG(I)
7758 @ 71952:                  LINE   1245 "regression-compile-tmp/skimp77.imp"
7759 @ 71990:                  PUSH   J
7760 @ 71993:                  PUSH   TAG
7761 @ 71996:                  PUSH   I
7762 @ 71999:                  ACCESS
7763 @ 72000:                  ASSVAL

  1246       %IF J>>28=3 %THEN %START                           ;! NAME IS AN ARRAY NAME
7764 @ 72001:                  LINE   1246 "regression-compile-tmp/skimp77.imp"
7765 @ 72039:                  PUSH   J
7766 @ 72042:                  PUSHI  #0x0000001c
7767 @ 72047:                  RSH   
7768 @ 72048:                  PUSHI  #0x00000003
7769 @ 72053:                  JUMPIF # L_0004

  1247          I=J&65535                                       ;! SUBSTITUTE CORRECT TAG VALUE
7770 @ 72057:                  LINE   1247 "regression-compile-tmp/skimp77.imp"
7771 @ 72095:                  PUSH   I
7772 @ 72098:                  PUSH   J
7773 @ 72101:                  PUSHI  #0x0000ffff
7774 @ 72106:                  AND   
7775 @ 72107:                  ASSVAL

  1248          J=TAG(I)
7776 @ 72108:                  LINE   1248 "regression-compile-tmp/skimp77.imp"
7777 @ 72146:                  PUSH   J
7778 @ 72149:                  PUSH   TAG
7779 @ 72152:                  PUSH   I
7780 @ 72155:                  ACCESS
7781 @ 72156:                  ASSVAL

  1249          %FINISH
7782 @ 72157:                  LINE   1249 "regression-compile-tmp/skimp77.imp"
7783 @ 72195:                  LOCATE L_0004

  1250       AP=AP+2                                            ;! AP ON <APP>+1
7784 @ 72198:                  LINE   1250 "regression-compile-tmp/skimp77.imp"
7785 @ 72236:                  PUSH   AP
7786 @ 72239:                  PUSH   AP
7787 @ 72242:                  PUSHI  #0x00000002
7788 @ 72247:                  ADD   
7789 @ 72248:                  ASSVAL

  1251       %IF A(AP-1)=1 %THEN %START                         ;! INDEXES PRESENT
7790 @ 72249:                  LINE   1251 "regression-compile-tmp/skimp77.imp"
7791 @ 72287:                  PUSH   A
7792 @ 72290:                  PUSH   AP
7793 @ 72293:                  PUSHI  #0x00000001
7794 @ 72298:                  SUB   
7795 @ 72299:                  ACCESS
7796 @ 72300:                  PUSHI  #0x00000001
7797 @ 72305:                  JUMPIF # L_0004

  1252          SEXPR                                           ;! COMPILE EXPR FOR FIRST INDEX
7798 @ 72309:                  LINE   1252 "regression-compile-tmp/skimp77.imp"
7799 @ 72347:                  PUSH   SEXPR
7800 @ 72350:                  CALL  

  1253          AP=AP+1                                         ;! AP ON <EXPS>+1
7801 @ 72351:                  LINE   1253 "regression-compile-tmp/skimp77.imp"
7802 @ 72389:                  PUSH   AP
7803 @ 72392:                  PUSH   AP
7804 @ 72395:                  PUSHI  #0x00000001
7805 @ 72400:                  ADD   
7806 @ 72401:                  ASSVAL

  1254          %IF A(AP-1)=1 %THEN %START                      ;! 2ND INDEX PRESENT
7807 @ 72402:                  LINE   1254 "regression-compile-tmp/skimp77.imp"
7808 @ 72440:                  PUSH   A
7809 @ 72443:                  PUSH   AP
7810 @ 72446:                  PUSHI  #0x00000001
7811 @ 72451:                  SUB   
7812 @ 72452:                  ACCESS
7813 @ 72453:                  PUSHI  #0x00000001
7814 @ 72458:                  JUMPIF # L_0007

  1255             DUMP(M'STR',M'ACC',BR(LEVEL),WS NEXT)        ;! STORE 1ST INDEX IN WORKSPACE
7815 @ 72462:                  LINE   1255 "regression-compile-tmp/skimp77.imp"
7816 @ 72500:                  PUSH   DUMP
7817 @ 72503:                  PUSHI  #0x00535452
7818 @ 72508:                  ASSPAR
7819 @ 72509:                  PUSHI  #0x00414343
7820 @ 72514:                  ASSPAR
7821 @ 72515:                  PUSH   BR
7822 @ 72518:                  PUSH   LEVEL
7823 @ 72521:                  ACCESS
7824 @ 72522:                  ASSPAR
7825 @ 72523:                  PUSH   WSNEXT
7826 @ 72526:                  CALL  
7827 @ 72527:                  ASSPAR
7828 @ 72528:                  CALL  

  1256             SEXPR                                        ;! COMPILE EXPR FOR 2ND INDEX
7829 @ 72529:                  LINE   1256 "regression-compile-tmp/skimp77.imp"
7830 @ 72567:                  PUSH   SEXPR
7831 @ 72570:                  CALL  

  1257             %IF A(AP)=1 %THEN %START                     ;! 3RD INDEX PRESENT
7832 @ 72571:                  LINE   1257 "regression-compile-tmp/skimp77.imp"
7833 @ 72609:                  PUSH   A
7834 @ 72612:                  PUSH   AP
7835 @ 72615:                  ACCESS
7836 @ 72616:                  PUSHI  #0x00000001
7837 @ 72621:                  JUMPIF # L_000a

  1258                PRINT NAME(L)
7838 @ 72625:                  LINE   1258 "regression-compile-tmp/skimp77.imp"
7839 @ 72663:                  PUSH   PRINTNAME
7840 @ 72666:                  PUSH   L
7841 @ 72669:                  ASSPAR
7842 @ 72670:                  CALL  

  1259                FAULT(M'TOO ',M'MANY',M' IND',M'EXES')
7843 @ 72671:                  LINE   1259 "regression-compile-tmp/skimp77.imp"
7844 @ 72709:                  PUSH   FAULT
7845 @ 72712:                  PUSHI  #0x544f4f20
7846 @ 72717:                  ASSPAR
7847 @ 72718:                  PUSHI  #0x4d414e59
7848 @ 72723:                  ASSPAR
7849 @ 72724:                  PUSHI  #0x20494e44
7850 @ 72729:                  ASSPAR
7851 @ 72730:                  PUSHI  #0x45584553
7852 @ 72735:                  ASSPAR
7853 @ 72736:                  CALL  

  1260                SKIP APP                                  ;! SKIP EXCESS INDEXES
7854 @ 72737:                  LINE   1260 "regression-compile-tmp/skimp77.imp"
7855 @ 72775:                  PUSH   SKIPAPP
7856 @ 72778:                  CALL  

  1261                %FINISH %ELSE AP=AP+1                     ;! AP AFTER EXPRESSION
7857 @ 72779:                  LINE   1261 "regression-compile-tmp/skimp77.imp"
7858 @ 72817:                  GOTO   L_0009
7859 @ 72820:                  LOCATE L_000a
7860 @ 72823:                  PUSH   AP
7861 @ 72826:                  PUSH   AP
7862 @ 72829:                  PUSHI  #0x00000001
7863 @ 72834:                  ADD   
7864 @ 72835:                  ASSVAL
7865 @ 72836:                  LOCATE L_0009

  1262             DUMP(M'MLT',M'ACC',BR(J>>16&15),J&65535)
7866 @ 72839:                  LINE   1262 "regression-compile-tmp/skimp77.imp"
7867 @ 72877:                  PUSH   DUMP
7868 @ 72880:                  PUSHI  #0x004d4c54
7869 @ 72885:                  ASSPAR
7870 @ 72886:                  PUSHI  #0x00414343
7871 @ 72891:                  ASSPAR
7872 @ 72892:                  PUSH   BR
7873 @ 72895:                  PUSH   J
7874 @ 72898:                  PUSHI  #0x00000010
7875 @ 72903:                  RSH   
7876 @ 72904:                  PUSHI  #0x0000000f
7877 @ 72909:                  AND   
7878 @ 72910:                  ACCESS
7879 @ 72911:                  ASSPAR
7880 @ 72912:                  PUSH   J
7881 @ 72915:                  PUSHI  #0x0000ffff
7882 @ 72920:                  AND   
7883 @ 72921:                  ASSPAR
7884 @ 72922:                  CALL  

  1263             WS=WS-1                                      ;! RESTORE WORKSPACE POINTER
7885 @ 72923:                  LINE   1263 "regression-compile-tmp/skimp77.imp"
7886 @ 72961:                  PUSH   WS
7887 @ 72964:                  PUSH   WS
7888 @ 72967:                  PUSHI  #0x00000001
7889 @ 72972:                  SUB   
7890 @ 72973:                  ASSVAL

  1264             DUMP(M'ADD',M'ACC',BR(LEVEL),WS)
7891 @ 72974:                  LINE   1264 "regression-compile-tmp/skimp77.imp"
7892 @ 73012:                  PUSH   DUMP
7893 @ 73015:                  PUSHI  #0x00414444
7894 @ 73020:                  ASSPAR
7895 @ 73021:                  PUSHI  #0x00414343
7896 @ 73026:                  ASSPAR
7897 @ 73027:                  PUSH   BR
7898 @ 73030:                  PUSH   LEVEL
7899 @ 73033:                  ACCESS
7900 @ 73034:                  ASSPAR
7901 @ 73035:                  PUSH   WS
7902 @ 73038:                  ASSPAR
7903 @ 73039:                  CALL  

  1265             DUMP(M'ADD',M'ACC',BR(J>>16&15),J&65535+1)
7904 @ 73040:                  LINE   1265 "regression-compile-tmp/skimp77.imp"
7905 @ 73078:                  PUSH   DUMP
7906 @ 73081:                  PUSHI  #0x00414444
7907 @ 73086:                  ASSPAR
7908 @ 73087:                  PUSHI  #0x00414343
7909 @ 73092:                  ASSPAR
7910 @ 73093:                  PUSH   BR
7911 @ 73096:                  PUSH   J
7912 @ 73099:                  PUSHI  #0x00000010
7913 @ 73104:                  RSH   
7914 @ 73105:                  PUSHI  #0x0000000f
7915 @ 73110:                  AND   
7916 @ 73111:                  ACCESS
7917 @ 73112:                  ASSPAR
7918 @ 73113:                  PUSH   J
7919 @ 73116:                  PUSHI  #0x0000ffff
7920 @ 73121:                  AND   
7921 @ 73122:                  PUSHI  #0x00000001
7922 @ 73127:                  ADD   
7923 @ 73128:                  ASSPAR
7924 @ 73129:                  CALL  

  1266             K=2                                          ;! DIMENSION MARKER
7925 @ 73130:                  LINE   1266 "regression-compile-tmp/skimp77.imp"
7926 @ 73168:                  PUSH   K
7927 @ 73171:                  PUSHI  #0x00000002
7928 @ 73176:                  ASSVAL

  1267             %FINISH %ELSE %START                         ;! ONLY ONE INDEX PRESENT
7929 @ 73177:                  LINE   1267 "regression-compile-tmp/skimp77.imp"
7930 @ 73215:                  GOTO   L_0006
7931 @ 73218:                  LOCATE L_0007

  1268             DUMP(M'ADD',M'ACC',BR(J>>16&15),J&65535)
7932 @ 73221:                  LINE   1268 "regression-compile-tmp/skimp77.imp"
7933 @ 73259:                  PUSH   DUMP
7934 @ 73262:                  PUSHI  #0x00414444
7935 @ 73267:                  ASSPAR
7936 @ 73268:                  PUSHI  #0x00414343
7937 @ 73273:                  ASSPAR
7938 @ 73274:                  PUSH   BR
7939 @ 73277:                  PUSH   J
7940 @ 73280:                  PUSHI  #0x00000010
7941 @ 73285:                  RSH   
7942 @ 73286:                  PUSHI  #0x0000000f
7943 @ 73291:                  AND   
7944 @ 73292:                  ACCESS
7945 @ 73293:                  ASSPAR
7946 @ 73294:                  PUSH   J
7947 @ 73297:                  PUSHI  #0x0000ffff
7948 @ 73302:                  AND   
7949 @ 73303:                  ASSPAR
7950 @ 73304:                  CALL  

  1269             K=1                                          ;! DIMENSION MARKER
7951 @ 73305:                  LINE   1269 "regression-compile-tmp/skimp77.imp"
7952 @ 73343:                  PUSH   K
7953 @ 73346:                  PUSHI  #0x00000001
7954 @ 73351:                  ASSVAL

  1270             %FINISH
7955 @ 73352:                  LINE   1270 "regression-compile-tmp/skimp77.imp"
7956 @ 73390:                  LOCATE L_0006

  1271          %IF K\=J>>20&15 %THEN %START                    ;! DIMS FOUND DO NOT AGREE WITH TAG
7957 @ 73393:                  LINE   1271 "regression-compile-tmp/skimp77.imp"
7958 @ 73431:                  PUSH   K
7959 @ 73434:                  PUSH   J
7960 @ 73437:                  PUSHI  #0x00000014
7961 @ 73442:                  RSH   
7962 @ 73443:                  PUSHI  #0x0000000f
7963 @ 73448:                  AND   
7964 @ 73449:                  JUMPIF = L_0007

  1272             %IF J>>20&15=0 %THEN TAG(I)=TAG(I)!K<<20 %ELSE %C
  1273                PRINT NAME(L)
7965 @ 73453:                  LINE   1272 "regression-compile-tmp/skimp77.imp"
7966 @ 73491:                  PUSH   J
7967 @ 73494:                  PUSHI  #0x00000014
7968 @ 73499:                  RSH   
7969 @ 73500:                  PUSHI  #0x0000000f
7970 @ 73505:                  AND   
7971 @ 73506:                  PUSHI  #0x00000000
7972 @ 73511:                  JUMPIF # L_000a
7973 @ 73515:                  PUSH   TAG
7974 @ 73518:                  PUSH   I
7975 @ 73521:                  ACCESS
7976 @ 73522:                  PUSH   TAG
7977 @ 73525:                  PUSH   I
7978 @ 73528:                  ACCESS
7979 @ 73529:                  PUSH   K
7980 @ 73532:                  PUSHI  #0x00000014
7981 @ 73537:                  LSH   
7982 @ 73538:                  OR    
7983 @ 73539:                  ASSVAL
7984 @ 73540:                  GOTO   L_0009
7985 @ 73543:                  LOCATE L_000a
7986 @ 73546:                  PUSH   PRINTNAME
7987 @ 73549:                  PUSH   L
7988 @ 73552:                  ASSPAR
7989 @ 73553:                  CALL  
7990 @ 73554:                  LOCATE L_0009

  1274                FAULT(M'ARRA',M'Y DI',M'MENS',M'ION?')    ;! FILL IN DIMS IF UNKNOWN
7991 @ 73557:                  LINE   1274 "regression-compile-tmp/skimp77.imp"
7992 @ 73595:                  PUSH   FAULT
7993 @ 73598:                  PUSHI  #0x41525241
7994 @ 73603:                  ASSPAR
7995 @ 73604:                  PUSHI  #0x59204449
7996 @ 73609:                  ASSPAR
7997 @ 73610:                  PUSHI  #0x4d454e53
7998 @ 73615:                  ASSPAR
7999 @ 73616:                  PUSHI  #0x494f4e3f
8000 @ 73621:                  ASSPAR
8001 @ 73622:                  CALL  

  1275             %FINISH
8002 @ 73623:                  LINE   1275 "regression-compile-tmp/skimp77.imp"
8003 @ 73661:                  LOCATE L_0007

  1276          %FINISH %ELSE %START
8004 @ 73664:                  LINE   1276 "regression-compile-tmp/skimp77.imp"
8005 @ 73702:                  GOTO   L_0003
8006 @ 73705:                  LOCATE L_0004

  1277          PRINT NAME(L)
8007 @ 73708:                  LINE   1277 "regression-compile-tmp/skimp77.imp"
8008 @ 73746:                  PUSH   PRINTNAME
8009 @ 73749:                  PUSH   L
8010 @ 73752:                  ASSPAR
8011 @ 73753:                  CALL  

  1278          FAULT(M'NO A',M'RRAY',M' IND',M'EXES')
8012 @ 73754:                  LINE   1278 "regression-compile-tmp/skimp77.imp"
8013 @ 73792:                  PUSH   FAULT
8014 @ 73795:                  PUSHI  #0x4e4f2041
8015 @ 73800:                  ASSPAR
8016 @ 73801:                  PUSHI  #0x52524159
8017 @ 73806:                  ASSPAR
8018 @ 73807:                  PUSHI  #0x20494e44
8019 @ 73812:                  ASSPAR
8020 @ 73813:                  PUSHI  #0x45584553
8021 @ 73818:                  ASSPAR
8022 @ 73819:                  CALL  

  1279          %FINISH
8023 @ 73820:                  LINE   1279 "regression-compile-tmp/skimp77.imp"
8024 @ 73858:                  LOCATE L_0003

  1280  %END
  1281  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
8025 @ 73861:                  LINE   1280 "regression-compile-tmp/skimp77.imp"
8026 @ 73899:               END    _lev0id0_SS_ARRAD {lev=3 --> 2}

  1282  %INTEGERFN BT NEXT
  1283  ! ALLOCATE NEXT POSITION IN BRANCH TABLE
8027 @ 73900:               LINE   1282 "regression-compile-tmp/skimp77.imp"
8028 @ 73938:               DEF    BTNEXT (_lev0id0_SS_BTNEXT) p1=V_00bc a/tf=18 b/format=1 c/ostate=10  type=1 (integer) form=8 (function) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=1 unass=0
8029 @ 73956:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
8030 @ 73957:                  FINISH ) {lev=3}

  1284       %IF BTN>1023 %THEN %START                 ;! FULL
8031 @ 73958:                  LINE   1284 "regression-compile-tmp/skimp77.imp"
8032 @ 73996:                  PUSH   BTN
8033 @ 73999:                  PUSHI  #0x000003ff
8034 @ 74004:                  JUMPIF <= L_0004

  1285          FAULT(M'TOO ',M'MANY',M'LABE',M'LS  ')
8035 @ 74008:                  LINE   1285 "regression-compile-tmp/skimp77.imp"
8036 @ 74046:                  PUSH   FAULT
8037 @ 74049:                  PUSHI  #0x544f4f20
8038 @ 74054:                  ASSPAR
8039 @ 74055:                  PUSHI  #0x4d414e59
8040 @ 74060:                  ASSPAR
8041 @ 74061:                  PUSHI  #0x4c414245
8042 @ 74066:                  ASSPAR
8043 @ 74067:                  PUSHI  #0x4c532020
8044 @ 74072:                  ASSPAR
8045 @ 74073:                  CALL  

  1286          BTN=0                                  ;! TRY TO CONTINUE
8046 @ 74074:                  LINE   1286 "regression-compile-tmp/skimp77.imp"
8047 @ 74112:                  PUSH   BTN
8048 @ 74115:                  PUSHI  #0x00000000
8049 @ 74120:                  ASSVAL

  1287          %FINISH
8050 @ 74121:                  LINE   1287 "regression-compile-tmp/skimp77.imp"
8051 @ 74159:                  LOCATE L_0004

  1288       BAT(BTN)=-1                               ;! MARKER FOR ADDRESS NOT FILLED IN YET
8052 @ 74162:                  LINE   1288 "regression-compile-tmp/skimp77.imp"
8053 @ 74200:                  PUSH   BAT
8054 @ 74203:                  PUSH   BTN
8055 @ 74206:                  ACCESS
8056 @ 74207:                  PUSHI  #0x00000001
8057 @ 74212:                  NEGATE
8058 @ 74213:                  ASSVAL

  1289       BTN=BTN+1                                 ;! NEXT POSITION
8059 @ 74214:                  LINE   1289 "regression-compile-tmp/skimp77.imp"
8060 @ 74252:                  PUSH   BTN
8061 @ 74255:                  PUSH   BTN
8062 @ 74258:                  PUSHI  #0x00000001
8063 @ 74263:                  ADD   
8064 @ 74264:                  ASSVAL

  1290       %RESULT=BTN-1                             ;! THIS POSITION
8065 @ 74265:                  LINE   1290 "regression-compile-tmp/skimp77.imp"
8066 @ 74303:                  PUSH   BTN
8067 @ 74306:                  PUSHI  #0x00000001
8068 @ 74311:                  SUB   
8069 @ 74312:                  RESULT

  1291  %END
  1292  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
8070 @ 74313:                  LINE   1291 "regression-compile-tmp/skimp77.imp"
8071 @ 74351:               END    _lev0id0_SS_BTNEXT {lev=3 --> 2}

  1293  %INTEGERFN CT NEXT
  1294  ! ALLOCATE NEXT POSITION IN CONSTANT TABLE
8072 @ 74352:               LINE   1293 "regression-compile-tmp/skimp77.imp"
8073 @ 74390:               DEF    CTNEXT (_lev0id0_SS_CTNEXT) p1=V_00bd a/tf=18 b/format=1 c/ostate=10  type=1 (integer) form=8 (function) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=1 unass=0
8074 @ 74408:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
8075 @ 74409:                  FINISH ) {lev=3}

  1295       %IF CTN>1023 %THEN %START                 ;! FULL
8076 @ 74410:                  LINE   1295 "regression-compile-tmp/skimp77.imp"
8077 @ 74448:                  PUSH   CTN
8078 @ 74451:                  PUSHI  #0x000003ff
8079 @ 74456:                  JUMPIF <= L_0004

  1296          FAULT(M'TOO ',M'MANY',M' CON',M'STS ')
8080 @ 74460:                  LINE   1296 "regression-compile-tmp/skimp77.imp"
8081 @ 74498:                  PUSH   FAULT
8082 @ 74501:                  PUSHI  #0x544f4f20
8083 @ 74506:                  ASSPAR
8084 @ 74507:                  PUSHI  #0x4d414e59
8085 @ 74512:                  ASSPAR
8086 @ 74513:                  PUSHI  #0x20434f4e
8087 @ 74518:                  ASSPAR
8088 @ 74519:                  PUSHI  #0x53545320
8089 @ 74524:                  ASSPAR
8090 @ 74525:                  CALL  

  1297          CTN=0                                  ;! TRY TO CONTINUE
8091 @ 74526:                  LINE   1297 "regression-compile-tmp/skimp77.imp"
8092 @ 74564:                  PUSH   CTN
8093 @ 74567:                  PUSHI  #0x00000000
8094 @ 74572:                  ASSVAL

  1298          %FINISH
8095 @ 74573:                  LINE   1298 "regression-compile-tmp/skimp77.imp"
8096 @ 74611:                  LOCATE L_0004

  1299       CTN=CTN+1                                 ;! NEXT POSITION
8097 @ 74614:                  LINE   1299 "regression-compile-tmp/skimp77.imp"
8098 @ 74652:                  PUSH   CTN
8099 @ 74655:                  PUSH   CTN
8100 @ 74658:                  PUSHI  #0x00000001
8101 @ 74663:                  ADD   
8102 @ 74664:                  ASSVAL

  1300       %RESULT=CTN-1                             ;! THIS POSITION
8103 @ 74665:                  LINE   1300 "regression-compile-tmp/skimp77.imp"
8104 @ 74703:                  PUSH   CTN
8105 @ 74706:                  PUSHI  #0x00000001
8106 @ 74711:                  SUB   
8107 @ 74712:                  RESULT

  1301  %END
  1302  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
8108 @ 74713:                  LINE   1301 "regression-compile-tmp/skimp77.imp"
8109 @ 74751:               END    _lev0id0_SS_CTNEXT {lev=3 --> 2}

  1303  %INTEGERFN WS NEXT
  1304  ! ALLOCATE NEXT WORK SPACE POSITION
8110 @ 74752:               LINE   1303 "regression-compile-tmp/skimp77.imp"
8111 @ 74790:               DEF    WSNEXT (_lev0id0_SS_WSNEXT) p1=V_00be a/tf=18 b/format=1 c/ostate=10  type=1 (integer) form=8 (function) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=1 unass=0
8112 @ 74808:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
8113 @ 74809:                  FINISH ) {lev=3}

  1305       WS=WS+1
8114 @ 74810:                  LINE   1305 "regression-compile-tmp/skimp77.imp"
8115 @ 74848:                  PUSH   WS
8116 @ 74851:                  PUSH   WS
8117 @ 74854:                  PUSHI  #0x00000001
8118 @ 74859:                  ADD   
8119 @ 74860:                  ASSVAL

  1306       %IF WS=11 %THEN FAULT(M'COMP',M'ILER',M' WKS',M'PACE')
8120 @ 74861:                  LINE   1306 "regression-compile-tmp/skimp77.imp"
8121 @ 74899:                  PUSH   WS
8122 @ 74902:                  PUSHI  #0x0000000b
8123 @ 74907:                  JUMPIF # L_0004
8124 @ 74911:                  PUSH   FAULT
8125 @ 74914:                  PUSHI  #0x434f4d50
8126 @ 74919:                  ASSPAR
8127 @ 74920:                  PUSHI  #0x494c4552
8128 @ 74925:                  ASSPAR
8129 @ 74926:                  PUSHI  #0x20574b53
8130 @ 74931:                  ASSPAR
8131 @ 74932:                  PUSHI  #0x50414345
8132 @ 74937:                  ASSPAR
8133 @ 74938:                  CALL  
8134 @ 74939:                  LOCATE L_0004

  1307       %RESULT=WS-1
8135 @ 74942:                  LINE   1307 "regression-compile-tmp/skimp77.imp"
8136 @ 74980:                  PUSH   WS
8137 @ 74983:                  PUSHI  #0x00000001
8138 @ 74988:                  SUB   
8139 @ 74989:                  RESULT

  1308  %END
  1309  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
8140 @ 74990:                  LINE   1308 "regression-compile-tmp/skimp77.imp"
8141 @ 75028:               END    _lev0id0_SS_WSNEXT {lev=3 --> 2}

  1310  %INTEGERFN FIND LABEL
  1311  ! CHECK & LOCATE OR INSERT LABEL IN JUMP LIST FOR THIS LEVEL
8142 @ 75029:               LINE   1310 "regression-compile-tmp/skimp77.imp"
8143 @ 75067:               DEF    FINDLABEL (_lev0id0_SS_FINDLABEL) p1=V_00b8 a/tf=18 b/format=1 c/ostate=10  type=1 (integer) form=8 (function) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=1 unass=0
8144 @ 75088:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
8145 @ 75089:                  FINISH ) {lev=3}

  1312  %INTEGER I,J
8146 @ 75090:                  LINE   1312 "regression-compile-tmp/skimp77.imp"
8147 @ 75128:                  DEF    I p1=V_00e7 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8148 @ 75141:                  DEF    J p1=V_00e8 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  1313       LABEL=A(AP)                               ;! VALUE OF CONST
8149 @ 75154:                  LINE   1313 "regression-compile-tmp/skimp77.imp"
8150 @ 75192:                  PUSH   LABEL
8151 @ 75195:                  PUSH   A
8152 @ 75198:                  PUSH   AP
8153 @ 75201:                  ACCESS
8154 @ 75202:                  ASSVAL

  1314       AP=AP+1                                   ;! AFTER <CONST>
8155 @ 75203:                  LINE   1314 "regression-compile-tmp/skimp77.imp"
8156 @ 75241:                  PUSH   AP
8157 @ 75244:                  PUSH   AP
8158 @ 75247:                  PUSHI  #0x00000001
8159 @ 75252:                  ADD   
8160 @ 75253:                  ASSVAL

  1315       %IF LABEL>>16\=0 %THEN %START             ;! INVALID LABEL NUMBER
8161 @ 75254:                  LINE   1315 "regression-compile-tmp/skimp77.imp"
8162 @ 75292:                  PUSH   LABEL
8163 @ 75295:                  PUSHI  #0x00000010
8164 @ 75300:                  RSH   
8165 @ 75301:                  PUSHI  #0x00000000
8166 @ 75306:                  JUMPIF = L_0004

  1316          WRITE(LABEL,1)
8167 @ 75310:                  LINE   1316 "regression-compile-tmp/skimp77.imp"
8168 @ 75348:                  PUSH   WRITE
8169 @ 75351:                  PUSH   LABEL
8170 @ 75354:                  ASSPAR
8171 @ 75355:                  PUSHI  #0x00000001
8172 @ 75360:                  ASSPAR
8173 @ 75361:                  CALL  

  1317          SPACES(2)
8174 @ 75362:                  LINE   1317 "regression-compile-tmp/skimp77.imp"
8175 @ 75400:                  PUSH   SPACES
8176 @ 75403:                  PUSHI  #0x00000002
8177 @ 75408:                  ASSPAR
8178 @ 75409:                  CALL  

  1318          FAULT(M'INVA',M'LID ',M'LABE',M'L   ')
8179 @ 75410:                  LINE   1318 "regression-compile-tmp/skimp77.imp"
8180 @ 75448:                  PUSH   FAULT
8181 @ 75451:                  PUSHI  #0x494e5641
8182 @ 75456:                  ASSPAR
8183 @ 75457:                  PUSHI  #0x4c494420
8184 @ 75462:                  ASSPAR
8185 @ 75463:                  PUSHI  #0x4c414245
8186 @ 75468:                  ASSPAR
8187 @ 75469:                  PUSHI  #0x4c202020
8188 @ 75474:                  ASSPAR
8189 @ 75475:                  CALL  

  1319          %RESULT=-1                             ;! 'FAULTY' RESULT
8190 @ 75476:                  LINE   1319 "regression-compile-tmp/skimp77.imp"
8191 @ 75514:                  PUSHI  #0x00000001
8192 @ 75519:                  NEGATE
8193 @ 75520:                  RESULT

  1320          %FINISH
8194 @ 75521:                  LINE   1320 "regression-compile-tmp/skimp77.imp"
8195 @ 75559:                  LOCATE L_0004

  1321       I=JUMP(LEVEL)                             ;! JUMP LIST POINTER
8196 @ 75562:                  LINE   1321 "regression-compile-tmp/skimp77.imp"
8197 @ 75600:                  PUSH   I
8198 @ 75603:                  PUSH   JUMP
8199 @ 75606:                  PUSH   LEVEL
8200 @ 75609:                  ACCESS
8201 @ 75610:                  ASSVAL

  1322  L1:   %IF I\=0 %THEN %START                     ;! SOMETHING IN LIST
8202 @ 75611:                  LINE   1322 "regression-compile-tmp/skimp77.imp"
8203 @ 75649:                  LABEL  L_00e9
8204 @ 75652:                  LINE   1322 "regression-compile-tmp/skimp77.imp"
8205 @ 75690:                  PUSH   I
8206 @ 75693:                  PUSHI  #0x00000000
8207 @ 75698:                  JUMPIF = L_0004

  1323          %IF LABEL=TAG(I)>>16 %THEN %RESULT=TAG(I)&65535 ;! LABEL ALREADY IN
8208 @ 75702:                  LINE   1323 "regression-compile-tmp/skimp77.imp"
8209 @ 75740:                  PUSH   LABEL
8210 @ 75743:                  PUSH   TAG
8211 @ 75746:                  PUSH   I
8212 @ 75749:                  ACCESS
8213 @ 75750:                  PUSHI  #0x00000010
8214 @ 75755:                  RSH   
8215 @ 75756:                  JUMPIF # L_0007
8216 @ 75760:                  PUSH   TAG
8217 @ 75763:                  PUSH   I
8218 @ 75766:                  ACCESS
8219 @ 75767:                  PUSHI  #0x0000ffff
8220 @ 75772:                  AND   
8221 @ 75773:                  RESULT
8222 @ 75774:                  LOCATE L_0007

  1324          I=LINK(I)                              ;! NEXT CELL IN LIST
8223 @ 75777:                  LINE   1324 "regression-compile-tmp/skimp77.imp"
8224 @ 75815:                  PUSH   I
8225 @ 75818:                  PUSH   LINK
8226 @ 75821:                  PUSH   I
8227 @ 75824:                  ACCESS
8228 @ 75825:                  ASSVAL

  1325          ->L1 ; %FINISH
8229 @ 75826:                  LINE   1325 "regression-compile-tmp/skimp77.imp"
8230 @ 75864:                  JUMP   L_00e9
8231 @ 75867:                  LINE   1325 "regression-compile-tmp/skimp77.imp"
8232 @ 75905:                  LOCATE L_0004

  1326       I=NEWCELL                                 ;! LABEL NOT IN LIST SO GET NEW CELL
8233 @ 75908:                  LINE   1326 "regression-compile-tmp/skimp77.imp"
8234 @ 75946:                  PUSH   I
8235 @ 75949:                  PUSH   NEWCELL
8236 @ 75952:                  CALL  
8237 @ 75953:                  ASSVAL

  1327       J=BT NEXT                                 ;! GET NEXT BRANCH TABLE POSITION
8238 @ 75954:                  LINE   1327 "regression-compile-tmp/skimp77.imp"
8239 @ 75992:                  PUSH   J
8240 @ 75995:                  PUSH   BTNEXT
8241 @ 75998:                  CALL  
8242 @ 75999:                  ASSVAL

  1328       TAG(I)=LABEL<<16!J                        ;! FILL IN LIST ENTRY
8243 @ 76000:                  LINE   1328 "regression-compile-tmp/skimp77.imp"
8244 @ 76038:                  PUSH   TAG
8245 @ 76041:                  PUSH   I
8246 @ 76044:                  ACCESS
8247 @ 76045:                  PUSH   LABEL
8248 @ 76048:                  PUSHI  #0x00000010
8249 @ 76053:                  LSH   
8250 @ 76054:                  PUSH   J
8251 @ 76057:                  OR    
8252 @ 76058:                  ASSVAL

  1329       LINK(I)=JUMP(LEVEL)                       ;! PUSHDOWN ONTO JUMP LIST
8253 @ 76059:                  LINE   1329 "regression-compile-tmp/skimp77.imp"
8254 @ 76097:                  PUSH   LINK
8255 @ 76100:                  PUSH   I
8256 @ 76103:                  ACCESS
8257 @ 76104:                  PUSH   JUMP
8258 @ 76107:                  PUSH   LEVEL
8259 @ 76110:                  ACCESS
8260 @ 76111:                  ASSVAL

  1330       JUMP(LEVEL)=I                             ;! NEW JUMP LIST POINTER
8261 @ 76112:                  LINE   1330 "regression-compile-tmp/skimp77.imp"
8262 @ 76150:                  PUSH   JUMP
8263 @ 76153:                  PUSH   LEVEL
8264 @ 76156:                  ACCESS
8265 @ 76157:                  PUSH   I
8266 @ 76160:                  ASSVAL

  1331       %RESULT=J                                 ;! NEW BRANCH TABLE POSITION
8267 @ 76161:                  LINE   1331 "regression-compile-tmp/skimp77.imp"
8268 @ 76199:                  PUSH   J
8269 @ 76202:                  RESULT

  1332  %END
  1333  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
8270 @ 76203:                  LINE   1332 "regression-compile-tmp/skimp77.imp"
8271 @ 76241:               END    _lev0id0_SS_FINDLABEL {lev=3 --> 2}

  1334  %ROUTINE STORE TAG(%INTEGER NAM,FORM,TYPE,DIM,LEV,AD)
  1335  ! STORE TAGS I.E. SET NAME & CHECK NOT SET ALREADY
8272 @ 76242:               LINE   1334 "regression-compile-tmp/skimp77.imp"
8273 @ 76280:               DEF    STORETAG (_lev0id0_SS_STORETAG) p1=V_00bf 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
8274 @ 76300:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
8275 @ 76301:                     DEF    NAM p1=V_00e7 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8276 @ 76316:                     DEF    FORM p1=V_00e8 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8277 @ 76332:                     DEF    TYPE p1=V_00e9 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8278 @ 76348:                     DEF    DIM p1=V_00ea a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8279 @ 76363:                     DEF    LEV p1=V_00eb a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8280 @ 76378:                     DEF    AD p1=V_00ec a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8281 @ 76392:                  FINISH ) {lev=3}

  1336  %INTEGER M,N
8282 @ 76393:                  LINE   1336 "regression-compile-tmp/skimp77.imp"
8283 @ 76431:                  DEF    M p1=V_00ed a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8284 @ 76444:                  DEF    N p1=V_00ee a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  1337       M=LINK(NAM)                               ;! POINTER TO EXISTING TAGS WORD FOR THIS
8285 @ 76457:                  LINE   1337 "regression-compile-tmp/skimp77.imp"
8286 @ 76495:                  PUSH   M
8287 @ 76498:                  PUSH   LINK
8288 @ 76501:                  PUSH   NAM
8289 @ 76504:                  ACCESS
8290 @ 76505:                  ASSVAL

  1338       %IF M\=0 %AND LEV=TAG(M)>>16&15 %AND FORM\=4 %THEN %START
8291 @ 76506:                  LINE   1338 "regression-compile-tmp/skimp77.imp"
8292 @ 76544:                  PUSH   M
8293 @ 76547:                  PUSHI  #0x00000000
8294 @ 76552:                  JUMPIF = L_0004
8295 @ 76556:                  PUSH   LEV
8296 @ 76559:                  PUSH   TAG
8297 @ 76562:                  PUSH   M
8298 @ 76565:                  ACCESS
8299 @ 76566:                  PUSHI  #0x00000010
8300 @ 76571:                  RSH   
8301 @ 76572:                  PUSHI  #0x0000000f
8302 @ 76577:                  AND   
8303 @ 76578:                  JUMPIF # L_0004
8304 @ 76582:                  PUSH   FORM
8305 @ 76585:                  PUSHI  #0x00000004
8306 @ 76590:                  JUMPIF = L_0004

  1339          PRINT NAME(NAM)
8307 @ 76594:                  LINE   1339 "regression-compile-tmp/skimp77.imp"
8308 @ 76632:                  PUSH   PRINTNAME
8309 @ 76635:                  PUSH   NAM
8310 @ 76638:                  ASSPAR
8311 @ 76639:                  CALL  

  1340          FAULT(M'NAME',M' SET',M' TWI',M'CE  ')
8312 @ 76640:                  LINE   1340 "regression-compile-tmp/skimp77.imp"
8313 @ 76678:                  PUSH   FAULT
8314 @ 76681:                  PUSHI  #0x4e414d45
8315 @ 76686:                  ASSPAR
8316 @ 76687:                  PUSHI  #0x20534554
8317 @ 76692:                  ASSPAR
8318 @ 76693:                  PUSHI  #0x20545749
8319 @ 76698:                  ASSPAR
8320 @ 76699:                  PUSHI  #0x43452020
8321 @ 76704:                  ASSPAR
8322 @ 76705:                  CALL  

  1341          %RETURN ; %FINISH
8323 @ 76706:                  LINE   1341 "regression-compile-tmp/skimp77.imp"
8324 @ 76744:                  RETURN
8325 @ 76745:                  LINE   1341 "regression-compile-tmp/skimp77.imp"
8326 @ 76783:                  LOCATE L_0004

  1342       N=NEWCELL                                 ;! NEW CELL FOR TAGS
8327 @ 76786:                  LINE   1342 "regression-compile-tmp/skimp77.imp"
8328 @ 76824:                  PUSH   N
8329 @ 76827:                  PUSH   NEWCELL
8330 @ 76830:                  CALL  
8331 @ 76831:                  ASSVAL

  1343       TAG(N)=FORM<<28!TYPE<<24!DIM<<20!LEV<<16!AD ;! FILL IN TAGS
8332 @ 76832:                  LINE   1343 "regression-compile-tmp/skimp77.imp"
8333 @ 76870:                  PUSH   TAG
8334 @ 76873:                  PUSH   N
8335 @ 76876:                  ACCESS
8336 @ 76877:                  PUSH   FORM
8337 @ 76880:                  PUSHI  #0x0000001c
8338 @ 76885:                  LSH   
8339 @ 76886:                  PUSH   TYPE
8340 @ 76889:                  PUSHI  #0x00000018
8341 @ 76894:                  LSH   
8342 @ 76895:                  OR    
8343 @ 76896:                  PUSH   DIM
8344 @ 76899:                  PUSHI  #0x00000014
8345 @ 76904:                  LSH   
8346 @ 76905:                  OR    
8347 @ 76906:                  PUSH   LEV
8348 @ 76909:                  PUSHI  #0x00000010
8349 @ 76914:                  LSH   
8350 @ 76915:                  OR    
8351 @ 76916:                  PUSH   AD
8352 @ 76919:                  OR    
8353 @ 76920:                  ASSVAL

  1344       LINK(N)=LINK(NAM)                         ;! PUSHDOWN ONTO TAGS LIST FOR THIS NAME
8354 @ 76921:                  LINE   1344 "regression-compile-tmp/skimp77.imp"
8355 @ 76959:                  PUSH   LINK
8356 @ 76962:                  PUSH   N
8357 @ 76965:                  ACCESS
8358 @ 76966:                  PUSH   LINK
8359 @ 76969:                  PUSH   NAM
8360 @ 76972:                  ACCESS
8361 @ 76973:                  ASSVAL

  1345       LINK(NAM)=N
8362 @ 76974:                  LINE   1345 "regression-compile-tmp/skimp77.imp"
8363 @ 77012:                  PUSH   LINK
8364 @ 77015:                  PUSH   NAM
8365 @ 77018:                  ACCESS
8366 @ 77019:                  PUSH   N
8367 @ 77022:                  ASSVAL

  1346       N=NEWCELL
8368 @ 77023:                  LINE   1346 "regression-compile-tmp/skimp77.imp"
8369 @ 77061:                  PUSH   N
8370 @ 77064:                  PUSH   NEWCELL
8371 @ 77067:                  CALL  
8372 @ 77068:                  ASSVAL

  1347       TAG(N)=NAM                                ;! PUSHDOWN NEW CELL ONTO NAME LIST
8373 @ 77069:                  LINE   1347 "regression-compile-tmp/skimp77.imp"
8374 @ 77107:                  PUSH   TAG
8375 @ 77110:                  PUSH   N
8376 @ 77113:                  ACCESS
8377 @ 77114:                  PUSH   NAM
8378 @ 77117:                  ASSVAL

  1348       LINK(N)=NAME(LEVEL)                       ;!  FOR NAMES DECLARED AT THIS LEVEL
8379 @ 77118:                  LINE   1348 "regression-compile-tmp/skimp77.imp"
8380 @ 77156:                  PUSH   LINK
8381 @ 77159:                  PUSH   N
8382 @ 77162:                  ACCESS
8383 @ 77163:                  PUSH   NAME
8384 @ 77166:                  PUSH   LEVEL
8385 @ 77169:                  ACCESS
8386 @ 77170:                  ASSVAL

  1349       NAME(LEVEL)=N
8387 @ 77171:                  LINE   1349 "regression-compile-tmp/skimp77.imp"
8388 @ 77209:                  PUSH   NAME
8389 @ 77212:                  PUSH   LEVEL
8390 @ 77215:                  ACCESS
8391 @ 77216:                  PUSH   N
8392 @ 77219:                  ASSVAL

  1350  %END
  1351  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
8393 @ 77220:                  LINE   1350 "regression-compile-tmp/skimp77.imp"
8394 @ 77258:               END    _lev0id0_SS_STORETAG {lev=3 --> 2}

  1352  %ROUTINE DUMP(%INTEGER OP,REG,BASE,DISP)
  1353  ! PRINT OUT CURRENT ADDRESS, OPERATION MNEMONIC & OPERANDS
8395 @ 77259:               LINE   1352 "regression-compile-tmp/skimp77.imp"
8396 @ 77297:               DEF    DUMP (_lev0id0_SS_DUMP) p1=V_00c0 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
8397 @ 77313:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
8398 @ 77314:                     DEF    OP p1=V_00e7 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8399 @ 77328:                     DEF    REG p1=V_00e8 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8400 @ 77343:                     DEF    BASE p1=V_00e9 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8401 @ 77359:                     DEF    DISP p1=V_00ea a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8402 @ 77375:                  FINISH ) {lev=3}

  1354  %ROUTINESPEC PMN(%INTEGER I)
8403 @ 77376:                  LINE   1354 "regression-compile-tmp/skimp77.imp"
8404 @ 77414:                  DEF    PMN (_lev0id0_SS_DUMP_PMN) p1=V_00eb 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
8405 @ 77429:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
8406 @ 77430:                     DEF    I p1=V_00ec a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8407 @ 77443:                  FINISH ) {lev=3}

  1355  %INTEGER COM
8408 @ 77444:                  LINE   1355 "regression-compile-tmp/skimp77.imp"
8409 @ 77482:                  DEF    COM p1=V_00ec a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  1356       SPACES(10)
8410 @ 77497:                  LINE   1356 "regression-compile-tmp/skimp77.imp"
8411 @ 77535:                  PUSH   SPACES
8412 @ 77538:                  PUSHI  #0x0000000a
8413 @ 77543:                  ASSPAR
8414 @ 77544:                  CALL  

  1357       COM=' '
8415 @ 77545:                  LINE   1357 "regression-compile-tmp/skimp77.imp"
8416 @ 77583:                  PUSH   COM
8417 @ 77586:                  PUSHI  #0x00000020
8418 @ 77591:                  ASSVAL

  1358       PMN(OP)                                   ;! OPERATOR MNEMONIC
8419 @ 77592:                  LINE   1358 "regression-compile-tmp/skimp77.imp"
8420 @ 77630:                  PUSH   PMN
8421 @ 77633:                  PUSH   OP
8422 @ 77636:                  ASSPAR
8423 @ 77637:                  CALL  

  1359       COM=','
8424 @ 77638:                  LINE   1359 "regression-compile-tmp/skimp77.imp"
8425 @ 77676:                  PUSH   COM
8426 @ 77679:                  PUSHI  #0x0000002c
8427 @ 77684:                  ASSVAL

  1360       PMN(REG)                                  ;! REGISTER MNEMONIC
8428 @ 77685:                  LINE   1360 "regression-compile-tmp/skimp77.imp"
8429 @ 77723:                  PUSH   PMN
8430 @ 77726:                  PUSH   REG
8431 @ 77729:                  ASSPAR
8432 @ 77730:                  CALL  

  1361       %IF DISP>=65536 %THEN %START
8433 @ 77731:                  LINE   1361 "regression-compile-tmp/skimp77.imp"
8434 @ 77769:                  PUSH   DISP
8435 @ 77772:                  PUSHI  #0x00010000
8436 @ 77777:                  JUMPIF < L_0004

  1362          PRINT SYMBOL(',')
8437 @ 77781:                  LINE   1362 "regression-compile-tmp/skimp77.imp"
8438 @ 77819:                  PUSH   PRINTSYMBOL
8439 @ 77822:                  PUSHI  #0x0000002c
8440 @ 77827:                  ASSPAR
8441 @ 77828:                  CALL  

  1363          SPACES(7)
8442 @ 77829:                  LINE   1363 "regression-compile-tmp/skimp77.imp"
8443 @ 77867:                  PUSH   SPACES
8444 @ 77870:                  PUSHI  #0x00000007
8445 @ 77875:                  ASSPAR
8446 @ 77876:                  CALL  

  1364          PRINT NAME(DISP-65536)
8447 @ 77877:                  LINE   1364 "regression-compile-tmp/skimp77.imp"
8448 @ 77915:                  PUSH   PRINTNAME
8449 @ 77918:                  PUSH   DISP
8450 @ 77921:                  PUSHI  #0x00010000
8451 @ 77926:                  SUB   
8452 @ 77927:                  ASSPAR
8453 @ 77928:                  CALL  

  1365          %FINISH %ELSE %START
8454 @ 77929:                  LINE   1365 "regression-compile-tmp/skimp77.imp"
8455 @ 77967:                  GOTO   L_0003
8456 @ 77970:                  LOCATE L_0004

  1366          %IF BASE=M'BT' %OR BASE=M'CT' %OR BASE=M'PRG' %THEN %START
8457 @ 77973:                  LINE   1366 "regression-compile-tmp/skimp77.imp"
8458 @ 78011:                  PUSH   BASE
8459 @ 78014:                  PUSHI  #0x00004254
8460 @ 78019:                  JUMPIF = L_0008
8461 @ 78023:                  PUSH   BASE
8462 @ 78026:                  PUSHI  #0x00004354
8463 @ 78031:                  JUMPIF = L_0008
8464 @ 78035:                  PUSH   BASE
8465 @ 78038:                  PUSHI  #0x00505247
8466 @ 78043:                  JUMPIF # L_0007
8467 @ 78047:                  LOCATE L_0008

  1367             PRINT SYMBOL(',')
8468 @ 78050:                  LINE   1367 "regression-compile-tmp/skimp77.imp"
8469 @ 78088:                  PUSH   PRINTSYMBOL
8470 @ 78091:                  PUSHI  #0x0000002c
8471 @ 78096:                  ASSPAR
8472 @ 78097:                  CALL  

  1368             SPACES(7)
8473 @ 78098:                  LINE   1368 "regression-compile-tmp/skimp77.imp"
8474 @ 78136:                  PUSH   SPACES
8475 @ 78139:                  PUSHI  #0x00000007
8476 @ 78144:                  ASSPAR
8477 @ 78145:                  CALL  

  1369             %FINISH
8478 @ 78146:                  LINE   1369 "regression-compile-tmp/skimp77.imp"
8479 @ 78184:                  LOCATE L_0007

  1370          PMN(BASE)                              ;! BASE MNEMONIC
8480 @ 78187:                  LINE   1370 "regression-compile-tmp/skimp77.imp"
8481 @ 78225:                  PUSH   PMN
8482 @ 78228:                  PUSH   BASE
8483 @ 78231:                  ASSPAR
8484 @ 78232:                  CALL  

  1371          WRITE(DISP,1)                          ;! DISPLACEMENT
8485 @ 78233:                  LINE   1371 "regression-compile-tmp/skimp77.imp"
8486 @ 78271:                  PUSH   WRITE
8487 @ 78274:                  PUSH   DISP
8488 @ 78277:                  ASSPAR
8489 @ 78278:                  PUSHI  #0x00000001
8490 @ 78283:                  ASSPAR
8491 @ 78284:                  CALL  

  1372          %FINISH
8492 @ 78285:                  LINE   1372 "regression-compile-tmp/skimp77.imp"
8493 @ 78323:                  LOCATE L_0003

  1373       NEWLINE
8494 @ 78326:                  LINE   1373 "regression-compile-tmp/skimp77.imp"
8495 @ 78364:                  PUSH   NEWLINE
8496 @ 78367:                  CALL  

  1374       CA=CA+1                                   ;! INCREMENT CURRENT ADDRESS COUNT
  1375  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !
8497 @ 78368:                  LINE   1374 "regression-compile-tmp/skimp77.imp"
8498 @ 78406:                  PUSH   CA
8499 @ 78409:                  PUSH   CA
8500 @ 78412:                  PUSHI  #0x00000001
8501 @ 78417:                  ADD   
8502 @ 78418:                  ASSVAL

  1376  %ROUTINE PMN(%INTEGER I)
  1377  ! PRINT MNEMONIC - CHARS INTO ONE WORD
8503 @ 78419:                  LINE   1376 "regression-compile-tmp/skimp77.imp"
8504 @ 78457:                  DEF    PMN (_lev0id0_SS_DUMP_PMN) p1=V_00eb 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
8505 @ 78472:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
8506 @ 78473:                        DEF    I p1=V_00ed a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8507 @ 78486:                     FINISH ) {lev=4}

  1378  %INTEGER J,K,L
8508 @ 78487:                     LINE   1378 "regression-compile-tmp/skimp77.imp"
8509 @ 78525:                     DEF    J p1=V_00ee a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8510 @ 78538:                     DEF    K p1=V_00ef a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8511 @ 78551:                     DEF    L p1=V_00f0 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  1379       J=2                                   ;! AT LEAST TWO SPACES
8512 @ 78564:                     LINE   1379 "regression-compile-tmp/skimp77.imp"
8513 @ 78602:                     PUSH   J
8514 @ 78605:                     PUSHI  #0x00000002
8515 @ 78610:                     ASSVAL

  1380       K=24                                  ;! FIRST SHIFT VALUE
8516 @ 78611:                     LINE   1380 "regression-compile-tmp/skimp77.imp"
8517 @ 78649:                     PUSH   K
8518 @ 78652:                     PUSHI  #0x00000018
8519 @ 78657:                     ASSVAL

  1381  L1:   L=I>>K&255                            ;! UNPACK NEXT CHARACTER
8520 @ 78658:                     LINE   1381 "regression-compile-tmp/skimp77.imp"
8521 @ 78696:                     LABEL  L_00f1
8522 @ 78699:                     LINE   1381 "regression-compile-tmp/skimp77.imp"
8523 @ 78737:                     PUSH   L
8524 @ 78740:                     PUSH   I
8525 @ 78743:                     PUSH   K
8526 @ 78746:                     RSH   
8527 @ 78747:                     PUSHI  #0x000000ff
8528 @ 78752:                     AND   
8529 @ 78753:                     ASSVAL

  1382       %IF L=0 %THEN J=J+1 %ELSE PRINT SYMBOL(L)
8530 @ 78754:                     LINE   1382 "regression-compile-tmp/skimp77.imp"
8531 @ 78792:                     PUSH   L
8532 @ 78795:                     PUSHI  #0x00000000
8533 @ 78800:                     JUMPIF # L_0004
8534 @ 78804:                     PUSH   J
8535 @ 78807:                     PUSH   J
8536 @ 78810:                     PUSHI  #0x00000001
8537 @ 78815:                     ADD   
8538 @ 78816:                     ASSVAL
8539 @ 78817:                     GOTO   L_0003
8540 @ 78820:                     LOCATE L_0004
8541 @ 78823:                     PUSH   PRINTSYMBOL
8542 @ 78826:                     PUSH   L
8543 @ 78829:                     ASSPAR
8544 @ 78830:                     CALL  
8545 @ 78831:                     LOCATE L_0003

  1383       K=K-8                                 ;! NEXT SHIFT VALUE
8546 @ 78834:                     LINE   1383 "regression-compile-tmp/skimp77.imp"
8547 @ 78872:                     PUSH   K
8548 @ 78875:                     PUSH   K
8549 @ 78878:                     PUSHI  #0x00000008
8550 @ 78883:                     SUB   
8551 @ 78884:                     ASSVAL

  1384       %IF K>=0 %THEN ->L1                    ;! MORE CHARS POSSIBLY YET
8552 @ 78885:                     LINE   1384 "regression-compile-tmp/skimp77.imp"
8553 @ 78923:                     PUSH   K
8554 @ 78926:                     PUSHI  #0x00000000
8555 @ 78931:                     JUMPIF < L_0004
8556 @ 78935:                     JUMP   L_00f1
8557 @ 78938:                     LOCATE L_0004

  1385       %IF I=M'BT' %OR I=M'CT' %OR I=M'PRG' %THEN %C
  1386             PRINT SYMBOL('+') %ELSE %START
8558 @ 78941:                     LINE   1385 "regression-compile-tmp/skimp77.imp"
8559 @ 78979:                     PUSH   I
8560 @ 78982:                     PUSHI  #0x00004254
8561 @ 78987:                     JUMPIF = L_0005
8562 @ 78991:                     PUSH   I
8563 @ 78994:                     PUSHI  #0x00004354
8564 @ 78999:                     JUMPIF = L_0005
8565 @ 79003:                     PUSH   I
8566 @ 79006:                     PUSHI  #0x00505247
8567 @ 79011:                     JUMPIF # L_0004
8568 @ 79015:                     LOCATE L_0005
8569 @ 79018:                     PUSH   PRINTSYMBOL
8570 @ 79021:                     PUSHI  #0x0000002b
8571 @ 79026:                     ASSPAR
8572 @ 79027:                     CALL  
8573 @ 79028:                     GOTO   L_0003
8574 @ 79031:                     LOCATE L_0004

  1387          PRINT SYMBOL(COM)
8575 @ 79034:                     LINE   1387 "regression-compile-tmp/skimp77.imp"
8576 @ 79072:                     PUSH   PRINTSYMBOL
8577 @ 79075:                     PUSH   COM
8578 @ 79078:                     ASSPAR
8579 @ 79079:                     CALL  

  1388          SPACES(J)                          ;! TO ALLIGN FIELDS CORRECTLY
8580 @ 79080:                     LINE   1388 "regression-compile-tmp/skimp77.imp"
8581 @ 79118:                     PUSH   SPACES
8582 @ 79121:                     PUSH   J
8583 @ 79124:                     ASSPAR
8584 @ 79125:                     CALL  

  1389          %FINISH
8585 @ 79126:                     LINE   1389 "regression-compile-tmp/skimp77.imp"
8586 @ 79164:                     LOCATE L_0003

  1390  %END
8587 @ 79167:                     LINE   1390 "regression-compile-tmp/skimp77.imp"
8588 @ 79205:                  END    _lev0id0_SS_DUMP_PMN {lev=4 --> 3}

  1391  %END
8589 @ 79206:                  LINE   1391 "regression-compile-tmp/skimp77.imp"
8590 @ 79244:               END    _lev0id0_SS_DUMP {lev=3 --> 2}

  1392  %END
  1393  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
8591 @ 79245:               LINE   1392 "regression-compile-tmp/skimp77.imp"
8592 @ 79283:            END    _lev0id0_SS {lev=2 --> 1}

  1394  %ROUTINE FAULT(%INTEGER A,B,C,D)
  1395  ! MONITOR FAULT - A 'PRINT STRING' ROUTINE
8593 @ 79284:            LINE   1394 "regression-compile-tmp/skimp77.imp"
8594 @ 79322:            DEF    FAULT (_lev0id0_FAULT) p1=V_0085 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
8595 @ 79339:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8596 @ 79340:                  DEF    A p1=V_00b5 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8597 @ 79353:                  DEF    B p1=V_00b6 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8598 @ 79366:                  DEF    C p1=V_00b7 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8599 @ 79379:                  DEF    D p1=V_00b8 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8600 @ 79392:               FINISH ) {lev=2}

  1396  %ROUTINESPEC OUT(%INTEGER I)
8601 @ 79393:               LINE   1396 "regression-compile-tmp/skimp77.imp"
8602 @ 79431:               DEF    OUT (_lev0id0_FAULT_OUT) p1=V_00b9 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
8603 @ 79446:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8604 @ 79447:                  DEF    I p1=V_00ba a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8605 @ 79460:               FINISH ) {lev=2}

  1397       OUT(A)
8606 @ 79461:               LINE   1397 "regression-compile-tmp/skimp77.imp"
8607 @ 79499:               PUSH   OUT
8608 @ 79502:               PUSH   A
8609 @ 79505:               ASSPAR
8610 @ 79506:               CALL  

  1398       OUT(B)
8611 @ 79507:               LINE   1398 "regression-compile-tmp/skimp77.imp"
8612 @ 79545:               PUSH   OUT
8613 @ 79548:               PUSH   B
8614 @ 79551:               ASSPAR
8615 @ 79552:               CALL  

  1399       OUT(C)
8616 @ 79553:               LINE   1399 "regression-compile-tmp/skimp77.imp"
8617 @ 79591:               PUSH   OUT
8618 @ 79594:               PUSH   C
8619 @ 79597:               ASSPAR
8620 @ 79598:               CALL  

  1400       OUT(D)
8621 @ 79599:               LINE   1400 "regression-compile-tmp/skimp77.imp"
8622 @ 79637:               PUSH   OUT
8623 @ 79640:               PUSH   D
8624 @ 79643:               ASSPAR
8625 @ 79644:               CALL  

  1401       NEWLINE
8626 @ 79645:               LINE   1401 "regression-compile-tmp/skimp77.imp"
8627 @ 79683:               PUSH   NEWLINE
8628 @ 79686:               CALL  

  1402       FAULTS=FAULTS+1                     ;! INCREMENT FAULT COUNT
  1403  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !
8629 @ 79687:               LINE   1402 "regression-compile-tmp/skimp77.imp"
8630 @ 79725:               PUSH   FAULTS
8631 @ 79728:               PUSH   FAULTS
8632 @ 79731:               PUSHI  #0x00000001
8633 @ 79736:               ADD   
8634 @ 79737:               ASSVAL

  1404  %ROUTINE OUT(%INTEGER I)
  1405  ! PRINT OUT PACKED CHARS
8635 @ 79738:               LINE   1404 "regression-compile-tmp/skimp77.imp"
8636 @ 79776:               DEF    OUT (_lev0id0_FAULT_OUT) p1=V_00b9 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
8637 @ 79791:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
8638 @ 79792:                     DEF    I p1=V_00ba a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8639 @ 79805:                  FINISH ) {lev=3}

  1406       PRINT SYMBOL(I>>24) %if I>>24 # 0
8640 @ 79806:                  LINE   1406 "regression-compile-tmp/skimp77.imp"
8641 @ 79844:                  PUSH   I
8642 @ 79847:                  PUSHI  #0x00000018
8643 @ 79852:                  RSH   
8644 @ 79853:                  PUSHI  #0x00000000
8645 @ 79858:                  JUMPIF = L_0004
8646 @ 79862:                  PUSH   PRINTSYMBOL
8647 @ 79865:                  PUSH   I
8648 @ 79868:                  PUSHI  #0x00000018
8649 @ 79873:                  RSH   
8650 @ 79874:                  ASSPAR
8651 @ 79875:                  CALL  
8652 @ 79876:                  LOCATE L_0004

  1407       PRINT SYMBOL(I>>16&255) %if I>>16&255 # 0
8653 @ 79879:                  LINE   1407 "regression-compile-tmp/skimp77.imp"
8654 @ 79917:                  PUSH   I
8655 @ 79920:                  PUSHI  #0x00000010
8656 @ 79925:                  RSH   
8657 @ 79926:                  PUSHI  #0x000000ff
8658 @ 79931:                  AND   
8659 @ 79932:                  PUSHI  #0x00000000
8660 @ 79937:                  JUMPIF = L_0004
8661 @ 79941:                  PUSH   PRINTSYMBOL
8662 @ 79944:                  PUSH   I
8663 @ 79947:                  PUSHI  #0x00000010
8664 @ 79952:                  RSH   
8665 @ 79953:                  PUSHI  #0x000000ff
8666 @ 79958:                  AND   
8667 @ 79959:                  ASSPAR
8668 @ 79960:                  CALL  
8669 @ 79961:                  LOCATE L_0004

  1408       PRINT SYMBOL(I>>8&255) %if I>>8&255 # 0
8670 @ 79964:                  LINE   1408 "regression-compile-tmp/skimp77.imp"
8671 @ 80002:                  PUSH   I
8672 @ 80005:                  PUSHI  #0x00000008
8673 @ 80010:                  RSH   
8674 @ 80011:                  PUSHI  #0x000000ff
8675 @ 80016:                  AND   
8676 @ 80017:                  PUSHI  #0x00000000
8677 @ 80022:                  JUMPIF = L_0004
8678 @ 80026:                  PUSH   PRINTSYMBOL
8679 @ 80029:                  PUSH   I
8680 @ 80032:                  PUSHI  #0x00000008
8681 @ 80037:                  RSH   
8682 @ 80038:                  PUSHI  #0x000000ff
8683 @ 80043:                  AND   
8684 @ 80044:                  ASSPAR
8685 @ 80045:                  CALL  
8686 @ 80046:                  LOCATE L_0004

  1409       PRINT SYMBOL(I&255) %if I&255 # 0
8687 @ 80049:                  LINE   1409 "regression-compile-tmp/skimp77.imp"
8688 @ 80087:                  PUSH   I
8689 @ 80090:                  PUSHI  #0x000000ff
8690 @ 80095:                  AND   
8691 @ 80096:                  PUSHI  #0x00000000
8692 @ 80101:                  JUMPIF = L_0004
8693 @ 80105:                  PUSH   PRINTSYMBOL
8694 @ 80108:                  PUSH   I
8695 @ 80111:                  PUSHI  #0x000000ff
8696 @ 80116:                  AND   
8697 @ 80117:                  ASSPAR
8698 @ 80118:                  CALL  
8699 @ 80119:                  LOCATE L_0004

  1410  %END
8700 @ 80122:                  LINE   1410 "regression-compile-tmp/skimp77.imp"
8701 @ 80160:               END    _lev0id0_FAULT_OUT {lev=3 --> 2}

  1411  %END
  1412  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
8702 @ 80161:               LINE   1411 "regression-compile-tmp/skimp77.imp"
8703 @ 80199:            END    _lev0id0_FAULT {lev=2 --> 1}

  1413  %INTEGERFN CH NEXT
  1414  ! ALLOCATE NEXT POSITION IN 'CH' ARRAY
8704 @ 80200:            LINE   1413 "regression-compile-tmp/skimp77.imp"
8705 @ 80238:            DEF    CHNEXT (_lev0id0_CHNEXT) p1=V_0086 a/tf=18 b/format=1 c/ostate=10  type=1 (integer) form=8 (function) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=1 unass=0
8706 @ 80256:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8707 @ 80257:               FINISH ) {lev=2}

  1415       %IF CHP>512 %THEN %START            ;! CHARACTER ARRAY FULL
8708 @ 80258:               LINE   1415 "regression-compile-tmp/skimp77.imp"
8709 @ 80296:               PUSH   CHP
8710 @ 80299:               PUSHI  #0x00000200
8711 @ 80304:               JUMPIF <= L_0004

  1416          FAULT(M'NAME',M'S TO',M'O LO',M'NG  ')
8712 @ 80308:               LINE   1416 "regression-compile-tmp/skimp77.imp"
8713 @ 80346:               PUSH   FAULT
8714 @ 80349:               PUSHI  #0x4e414d45
8715 @ 80354:               ASSPAR
8716 @ 80355:               PUSHI  #0x5320544f
8717 @ 80360:               ASSPAR
8718 @ 80361:               PUSHI  #0x4f204c4f
8719 @ 80366:               ASSPAR
8720 @ 80367:               PUSHI  #0x4e472020
8721 @ 80372:               ASSPAR
8722 @ 80373:               CALL  

  1417          %STOP ; %FINISH
8723 @ 80374:               LINE   1417 "regression-compile-tmp/skimp77.imp"
8724 @ 80412:               STOP  
8725 @ 80413:               LINE   1417 "regression-compile-tmp/skimp77.imp"
8726 @ 80451:               LOCATE L_0004

  1418       CHP=CHP+1
8727 @ 80454:               LINE   1418 "regression-compile-tmp/skimp77.imp"
8728 @ 80492:               PUSH   CHP
8729 @ 80495:               PUSH   CHP
8730 @ 80498:               PUSHI  #0x00000001
8731 @ 80503:               ADD   
8732 @ 80504:               ASSVAL

  1419       %RESULT=CHP-1
8733 @ 80505:               LINE   1419 "regression-compile-tmp/skimp77.imp"
8734 @ 80543:               PUSH   CHP
8735 @ 80546:               PUSHI  #0x00000001
8736 @ 80551:               SUB   
8737 @ 80552:               RESULT

  1420  %END
  1421  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
8738 @ 80553:               LINE   1420 "regression-compile-tmp/skimp77.imp"
8739 @ 80591:            END    _lev0id0_CHNEXT {lev=2 --> 1}

  1422  %INTEGERFN NEWCELL
  1423  ! ALLOCATE NEW CELL FOR LIST PROCESSING
8740 @ 80592:            LINE   1422 "regression-compile-tmp/skimp77.imp"
8741 @ 80630:            DEF    NEWCELL (_lev0id0_NEWCELL) p1=V_0087 a/tf=18 b/format=1 c/ostate=10  type=1 (integer) form=8 (function) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=1 unass=0
8742 @ 80649:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8743 @ 80650:               FINISH ) {lev=2}

  1424  %INTEGER I
8744 @ 80651:               LINE   1424 "regression-compile-tmp/skimp77.imp"
8745 @ 80689:               DEF    I p1=V_00b5 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  1425       %IF ASL=0 %THEN %START              ;! END OF AVAILABLE SPACE LIST
8746 @ 80702:               LINE   1425 "regression-compile-tmp/skimp77.imp"
8747 @ 80740:               PUSH   ASL
8748 @ 80743:               PUSHI  #0x00000000
8749 @ 80748:               JUMPIF # L_0004

  1426          FAULT(M'ASL ',M'EMPT',M'Y   ',M'   ')
8750 @ 80752:               LINE   1426 "regression-compile-tmp/skimp77.imp"
8751 @ 80790:               PUSH   FAULT
8752 @ 80793:               PUSHI  #0x41534c20
8753 @ 80798:               ASSPAR
8754 @ 80799:               PUSHI  #0x454d5054
8755 @ 80804:               ASSPAR
8756 @ 80805:               PUSHI  #0x59202020
8757 @ 80810:               ASSPAR
8758 @ 80811:               PUSHI  #0x00202020
8759 @ 80816:               ASSPAR
8760 @ 80817:               CALL  

  1427          %STOP ; %FINISH
8761 @ 80818:               LINE   1427 "regression-compile-tmp/skimp77.imp"
8762 @ 80856:               STOP  
8763 @ 80857:               LINE   1427 "regression-compile-tmp/skimp77.imp"
8764 @ 80895:               LOCATE L_0004

  1428       I=ASL                               ;! POINTER TO TOP CELL OF ASL
8765 @ 80898:               LINE   1428 "regression-compile-tmp/skimp77.imp"
8766 @ 80936:               PUSH   I
8767 @ 80939:               PUSH   ASL
8768 @ 80942:               ASSVAL

  1429       ASL=LINK(ASL)                       ;! ASL POINTER TO NEXT CELL DOWN
8769 @ 80943:               LINE   1429 "regression-compile-tmp/skimp77.imp"
8770 @ 80981:               PUSH   ASL
8771 @ 80984:               PUSH   LINK
8772 @ 80987:               PUSH   ASL
8773 @ 80990:               ACCESS
8774 @ 80991:               ASSVAL

  1430       TAG(I)=0                            ;! CLEAR NEW CELL OUT
8775 @ 80992:               LINE   1430 "regression-compile-tmp/skimp77.imp"
8776 @ 81030:               PUSH   TAG
8777 @ 81033:               PUSH   I
8778 @ 81036:               ACCESS
8779 @ 81037:               PUSHI  #0x00000000
8780 @ 81042:               ASSVAL

  1431       LINK(I)=0
8781 @ 81043:               LINE   1431 "regression-compile-tmp/skimp77.imp"
8782 @ 81081:               PUSH   LINK
8783 @ 81084:               PUSH   I
8784 @ 81087:               ACCESS
8785 @ 81088:               PUSHI  #0x00000000
8786 @ 81093:               ASSVAL

  1432       %RESULT=I                           ;! INDEX TO NEW CELL
8787 @ 81094:               LINE   1432 "regression-compile-tmp/skimp77.imp"
8788 @ 81132:               PUSH   I
8789 @ 81135:               RESULT

  1433  %END
  1434  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
8790 @ 81136:               LINE   1433 "regression-compile-tmp/skimp77.imp"
8791 @ 81174:            END    _lev0id0_NEWCELL {lev=2 --> 1}

  1435  %INTEGERFN RETURN CELL(%INTEGER I)
  1436  ! DEALLOCATE CELL AND RETURN IT TO ASL
8792 @ 81175:            LINE   1435 "regression-compile-tmp/skimp77.imp"
8793 @ 81213:            DEF    RETURNCELL (_lev0id0_RETURNCELL) p1=V_0088 a/tf=18 b/format=1 c/ostate=10  type=1 (integer) form=8 (function) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=1 unass=0
8794 @ 81235:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8795 @ 81236:                  DEF    I p1=V_00b5 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8796 @ 81249:               FINISH ) {lev=2}

  1437  %INTEGER J
8797 @ 81250:               LINE   1437 "regression-compile-tmp/skimp77.imp"
8798 @ 81288:               DEF    J p1=V_00b6 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  1438       J=LINK(I)                           ;! PRESENT LINK VALUE OF CELL
8799 @ 81301:               LINE   1438 "regression-compile-tmp/skimp77.imp"
8800 @ 81339:               PUSH   J
8801 @ 81342:               PUSH   LINK
8802 @ 81345:               PUSH   I
8803 @ 81348:               ACCESS
8804 @ 81349:               ASSVAL

  1439       LINK(I)=ASL                         ;! LINK TO TOP OF ASL
8805 @ 81350:               LINE   1439 "regression-compile-tmp/skimp77.imp"
8806 @ 81388:               PUSH   LINK
8807 @ 81391:               PUSH   I
8808 @ 81394:               ACCESS
8809 @ 81395:               PUSH   ASL
8810 @ 81398:               ASSVAL

  1440       ASL=I                               ;! ASL POINTER TO RETURNED CELL
8811 @ 81399:               LINE   1440 "regression-compile-tmp/skimp77.imp"
8812 @ 81437:               PUSH   ASL
8813 @ 81440:               PUSH   I
8814 @ 81443:               ASSVAL

  1441       %RESULT=J                           ;! RETURN VALUE OF LINK
8815 @ 81444:               LINE   1441 "regression-compile-tmp/skimp77.imp"
8816 @ 81482:               PUSH   J
8817 @ 81485:               RESULT

  1442  %END
  1443  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
8818 @ 81486:               LINE   1442 "regression-compile-tmp/skimp77.imp"
8819 @ 81524:            END    _lev0id0_RETURNCELL {lev=2 --> 1}

  1444  %ROUTINE PRINT NAME(%INTEGER I)
  1445  ! PRINT NAME FROM HASH POSITION
8820 @ 81525:            LINE   1444 "regression-compile-tmp/skimp77.imp"
8821 @ 81563:            DEF    PRINTNAME (_lev0id0_PRINTNAME) p1=V_0089 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
8822 @ 81584:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8823 @ 81585:                  DEF    I p1=V_00b5 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8824 @ 81598:               FINISH ) {lev=2}

  1446  %INTEGER J,K,L,M
8825 @ 81599:               LINE   1446 "regression-compile-tmp/skimp77.imp"
8826 @ 81637:               DEF    J p1=V_00b6 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8827 @ 81650:               DEF    K p1=V_00b7 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8828 @ 81663:               DEF    L p1=V_00b8 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8829 @ 81676:               DEF    M p1=V_00b9 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  1447       J=TAG(I)                             ;! POINTER TO CH ARRAY
8830 @ 81689:               LINE   1447 "regression-compile-tmp/skimp77.imp"
8831 @ 81727:               PUSH   J
8832 @ 81730:               PUSH   TAG
8833 @ 81733:               PUSH   I
8834 @ 81736:               ACCESS
8835 @ 81737:               ASSVAL

  1448       K=CH(J)                              ;! LENGTH & FIRST 3 CHARS
8836 @ 81738:               LINE   1448 "regression-compile-tmp/skimp77.imp"
8837 @ 81776:               PUSH   K
8838 @ 81779:               PUSH   CH
8839 @ 81782:               PUSH   J
8840 @ 81785:               ACCESS
8841 @ 81786:               ASSVAL

  1449       L=K>>24                              ;! NUMBER OF CHARS IN NAME
8842 @ 81787:               LINE   1449 "regression-compile-tmp/skimp77.imp"
8843 @ 81825:               PUSH   L
8844 @ 81828:               PUSH   K
8845 @ 81831:               PUSHI  #0x00000018
8846 @ 81836:               RSH   
8847 @ 81837:               ASSVAL

  1450       M=16                                 ;! FIRST SHIFT VALUE
8848 @ 81838:               LINE   1450 "regression-compile-tmp/skimp77.imp"
8849 @ 81876:               PUSH   M
8850 @ 81879:               PUSHI  #0x00000010
8851 @ 81884:               ASSVAL

  1451  L1:   PRINT SYMBOL(K>>M&255)
8852 @ 81885:               LINE   1451 "regression-compile-tmp/skimp77.imp"
8853 @ 81923:               LABEL  L_00ba
8854 @ 81926:               LINE   1451 "regression-compile-tmp/skimp77.imp"
8855 @ 81964:               PUSH   PRINTSYMBOL
8856 @ 81967:               PUSH   K
8857 @ 81970:               PUSH   M
8858 @ 81973:               RSH   
8859 @ 81974:               PUSHI  #0x000000ff
8860 @ 81979:               AND   
8861 @ 81980:               ASSPAR
8862 @ 81981:               CALL  

  1452       L=L-1
8863 @ 81982:               LINE   1452 "regression-compile-tmp/skimp77.imp"
8864 @ 82020:               PUSH   L
8865 @ 82023:               PUSH   L
8866 @ 82026:               PUSHI  #0x00000001
8867 @ 82031:               SUB   
8868 @ 82032:               ASSVAL

  1453       %IF L=0 %THEN %START
8869 @ 82033:               LINE   1453 "regression-compile-tmp/skimp77.imp"
8870 @ 82071:               PUSH   L
8871 @ 82074:               PUSHI  #0x00000000
8872 @ 82079:               JUMPIF # L_0004

  1454          SPACES(2)
8873 @ 82083:               LINE   1454 "regression-compile-tmp/skimp77.imp"
8874 @ 82121:               PUSH   SPACES
8875 @ 82124:               PUSHI  #0x00000002
8876 @ 82129:               ASSPAR
8877 @ 82130:               CALL  

  1455          %RETURN ; %FINISH
8878 @ 82131:               LINE   1455 "regression-compile-tmp/skimp77.imp"
8879 @ 82169:               RETURN
8880 @ 82170:               LINE   1455 "regression-compile-tmp/skimp77.imp"
8881 @ 82208:               LOCATE L_0004

  1456       M=M-8                                ;! NEXT SHIFT VALUE
8882 @ 82211:               LINE   1456 "regression-compile-tmp/skimp77.imp"
8883 @ 82249:               PUSH   M
8884 @ 82252:               PUSH   M
8885 @ 82255:               PUSHI  #0x00000008
8886 @ 82260:               SUB   
8887 @ 82261:               ASSVAL

  1457       %IF M<0 %THEN %START
8888 @ 82262:               LINE   1457 "regression-compile-tmp/skimp77.imp"
8889 @ 82300:               PUSH   M
8890 @ 82303:               PUSHI  #0x00000000
8891 @ 82308:               JUMPIF >= L_0004

  1458          J=J+1
8892 @ 82312:               LINE   1458 "regression-compile-tmp/skimp77.imp"
8893 @ 82350:               PUSH   J
8894 @ 82353:               PUSH   J
8895 @ 82356:               PUSHI  #0x00000001
8896 @ 82361:               ADD   
8897 @ 82362:               ASSVAL

  1459          K=CH(J)                           ;! NEXT WORD OF CHARS
8898 @ 82363:               LINE   1459 "regression-compile-tmp/skimp77.imp"
8899 @ 82401:               PUSH   K
8900 @ 82404:               PUSH   CH
8901 @ 82407:               PUSH   J
8902 @ 82410:               ACCESS
8903 @ 82411:               ASSVAL

  1460          M=24
8904 @ 82412:               LINE   1460 "regression-compile-tmp/skimp77.imp"
8905 @ 82450:               PUSH   M
8906 @ 82453:               PUSHI  #0x00000018
8907 @ 82458:               ASSVAL

  1461          %FINISH
8908 @ 82459:               LINE   1461 "regression-compile-tmp/skimp77.imp"
8909 @ 82497:               LOCATE L_0004

  1462       ->L1
8910 @ 82500:               LINE   1462 "regression-compile-tmp/skimp77.imp"
8911 @ 82538:               JUMP   L_00ba

  1463  %END
  1464  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
8912 @ 82541:               LINE   1463 "regression-compile-tmp/skimp77.imp"
8913 @ 82579:            END    _lev0id0_PRINTNAME {lev=2 --> 1}

  1465  %ENDOFPROGRAM
  1466  
  1467  
8914 @ 82580:            LINE   1465 "regression-compile-tmp/skimp77.imp"
8915 @ 82618:         END    _lev0id0 {lev=1 --> 0}
8916 @ 82619:         END     {lev=0 --> -1}
8917 @ 82620: 

