
     1  !IMP syntax checker - based on M68000 IMP compiler
     2  !                              (qv for fuller annotation)
     3  !  Hamish Dewar  Computer Science   Edinburgh University  1983
     4  !
     5  %constinteger MAXNAME=127
503 @ 4405:         LINE   5 "regression-compile-tmp/chimp.imp"

     6  %recordformat EDFILE(%integer start1,lim1, {part 1}
     7                                start2,lim2, {part2}
     8                                lim, {VMLIM}
     9                                lbeg,fp,change,flag,
    10                                line  {line number of current pos},
    11                                diff  {diff between LINE and ROW},
    12                                shift {right shift of window on file},
    13                  %byteinteger  top  {top row of sub_window},
    14                                win  {floating top},
    15                                bot  {bottom row +1 of sub_window},
    16                                min  {minimum window size},
    17                                row  {last row position},
    18                                col  {last col position},
    19               %string(maxname) name)
    20  !
504 @ 4441:         LINE   6 "regression-compile-tmp/chimp.imp"
505 @ 4477:         DEF    EDFILE p1=V_0081 a/tf=44 b/format=81 c/ostate=0  type=4 (record) form=4 (record-format) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
506 @ 4495:         START  ( RECORDFORMAT
507 @ 4496:            DEF    START1 p1=V_0000 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
508 @ 4514:            DEF    LIM1 p1=V_0000 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
509 @ 4530:            DEF    START2 p1=V_0000 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
510 @ 4548:            DEF    LIM2 p1=V_0000 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
511 @ 4564:            DEF    LIM p1=V_0000 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
512 @ 4579:            DEF    LBEG p1=V_0000 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
513 @ 4595:            DEF    FP p1=V_0000 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
514 @ 4609:            DEF    CHANGE p1=V_0000 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
515 @ 4627:            DEF    FLAG p1=V_0000 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
516 @ 4643:            DEF    LINE p1=V_0000 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
517 @ 4659:            DEF    DIFF p1=V_0000 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
518 @ 4675:            DEF    SHIFT p1=V_0000 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
519 @ 4692:            DEF    TOP p1=V_0000 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
520 @ 4707:            DEF    WIN p1=V_0000 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
521 @ 4722:            DEF    BOT p1=V_0000 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
522 @ 4737:            DEF    MIN p1=V_0000 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
523 @ 4752:            DEF    ROW p1=V_0000 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
524 @ 4767:            DEF    COL p1=V_0000 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
525 @ 4782:            DEF    NAME p1=V_0000 a/tf=31 b/format=7f c/ostate=0  type=3 (string) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
526 @ 4798:         FINISH ) 

    21  %external%routine EDI(%record(edfile)%name main,sec,
    22                        %string(255) message)
527 @ 4799:         LINE   21 "regression-compile-tmp/chimp.imp"
528 @ 4835:         DEF    EDI (_EDI) p1=V_0082 a/tf=7 b/format=0 c/ostate=23  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=3 (external) spec=0 indirect=0 unass=1
529 @ 4850:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
530 @ 4851:               DEF    MAIN p1=V_0083 a/tf=42 b/format=81 c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
531 @ 4867:               DEF    SEC p1=V_0084 a/tf=42 b/format=81 c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
532 @ 4882:               DEF    MESSAGE p1=V_0085 a/tf=31 b/format=ff c/ostate=0  type=3 (string) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
533 @ 4901:            FINISH ) {lev=1}

    23  %end
    24                        
534 @ 4902:            LINE   23 "regression-compile-tmp/chimp.imp"
535 @ 4938:         END    _EDI {lev=1 --> 0}

    25  %external%routine CONNECT EDFILE(%record(edfile)%name f)
536 @ 4939:         LINE   25 "regression-compile-tmp/chimp.imp"
537 @ 4975:         DEF    CONNECTEDFILE (_CONNECTEDFILE) p1=V_0083 a/tf=7 b/format=0 c/ostate=23  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=3 (external) spec=0 indirect=0 unass=1
538 @ 5000:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
539 @ 5001:               DEF    F p1=V_0084 a/tf=42 b/format=81 c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
540 @ 5014:            FINISH ) {lev=1}

    26  %end
    27  
541 @ 5015:            LINE   26 "regression-compile-tmp/chimp.imp"
542 @ 5051:         END    _CONNECTEDFILE {lev=1 --> 0}

    28  %external%routine DISCONNECT EDFILE(%record(edfile)%name f)
543 @ 5052:         LINE   28 "regression-compile-tmp/chimp.imp"
544 @ 5088:         DEF    DISCONNECTEDFILE (_DISCONNECTEDFILE) p1=V_0084 a/tf=7 b/format=0 c/ostate=23  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=3 (external) spec=0 indirect=0 unass=1
545 @ 5116:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
546 @ 5117:               DEF    F p1=V_0085 a/tf=42 b/format=81 c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
547 @ 5130:            FINISH ) {lev=1}

    29  %end
    30  
    31  
    32  !%external%routine%spec EDI(%record(edfile)%name main,sec,
    33  !                         %string(255) message)
    34  !%external%routine%spec CONNECT EDFILE(%record(edfile)%name f)
    35  !%external%routine%spec DISCONNECT EDFILE(%record(edfile)%name f)
    36  
    37  !
    38  !$IF VAX
548 @ 5131:            LINE   29 "regression-compile-tmp/chimp.imp"
549 @ 5167:         END    _DISCONNECTEDFILE {lev=1 --> 0}

    39  %conststring(13) permfile="ECCE_PERM"
    40  !$IF AMDAHL
    41  {%conststring(18) permfile="ERCLIB:VECCE.IPERM"
    42  !$FINISH
    43  
    44  !!  control
550 @ 5168:         LINE   39 "regression-compile-tmp/chimp.imp"
551 @ 5204:         PUSHS  "ECCE_PERM"
552 @ 5215:         DEF    PERMFILE p1=V_0085 a/tf=31 b/format=d c/ostate=12  type=3 (string) form=1 (simple) special=0 (<special:0>) linkage=2 (constant) spec=0 indirect=1 unass=0
553 @ 5235:         INIT   1

    45  %constinteger logbit=   16_00040000 {print log},
    46                warnbit=  16_00020000 {print warnings},
    47                nonsbit=  16_00010000 {print nonstandard reports},
    48                DICTLIST= 16_00001000 {list dict entries},
    49                EXPLIST=  16_00000800 {list EXP entries}
554 @ 5238:         LINE   45 "regression-compile-tmp/chimp.imp"

    50  %owninteger control=warnbit+nonsbit
    51  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
555 @ 5274:         LINE   50 "regression-compile-tmp/chimp.imp"
556 @ 5310:         PUSHI  #0x00030000
557 @ 5315:         DEF    CONTROL p1=V_0086 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
558 @ 5334:         INIT   1

    52  %externalroutine ECCECI(%record(edfile)%name main)
    53  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
559 @ 5337:         LINE   52 "regression-compile-tmp/chimp.imp"
560 @ 5373:         DEF    ECCECI (_ECCECI) p1=V_0087 a/tf=7 b/format=0 c/ostate=23  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=3 (external) spec=0 indirect=0 unass=1
561 @ 5391:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
562 @ 5392:               DEF    MAIN p1=V_0088 a/tf=42 b/format=81 c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
563 @ 5408:            FINISH ) {lev=1}

    54  %ownstring(maxname) extraname
564 @ 5409:            LINE   54 "regression-compile-tmp/chimp.imp"
565 @ 5445:            DEF    EXTRANAME p1=V_0089 a/tf=31 b/format=7f c/ostate=21  type=3 (string) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
566 @ 5466:            INIT   1

    55  %ownrecord(edfile) extra=0,null=0
567 @ 5469:            LINE   55 "regression-compile-tmp/chimp.imp"
568 @ 5505:            PUSHI  #0x00000000
569 @ 5510:            DEF    EXTRA p1=V_008a a/tf=41 b/format=81 c/ostate=21  type=4 (record) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
570 @ 5527:            INIT   1
571 @ 5530:            PUSHI  #0x00000000
572 @ 5535:            DEF    NULL p1=V_008b a/tf=41 b/format=81 c/ostate=21  type=4 (record) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
573 @ 5551:            INIT   1

    56  %integer curstart,curlim
574 @ 5554:            LINE   56 "regression-compile-tmp/chimp.imp"
575 @ 5590:            DEF    CURSTART 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
576 @ 5610:            DEF    CURLIM 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

    57  %integer nonstop
577 @ 5628:            LINE   57 "regression-compile-tmp/chimp.imp"
578 @ 5664:            DEF    NONSTOP 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

    58  %owninteger change=0
    59  !!  Fault numbers
579 @ 5683:            LINE   58 "regression-compile-tmp/chimp.imp"
580 @ 5719:            PUSHI  #0x00000000
581 @ 5724:            DEF    CHANGE p1=V_008f a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
582 @ 5742:            INIT   1

    60  %constinteger FORMERR=0, ATOMERR=1, NAMERR=2, CATERR=3, SIZERR=4,
    61                ASSERR=5, TYPERR=6, DUPERR=7,
    62                NOSTART=8, NOCYCLE=9,
    63                ORDERERR=10, MATCHERR=11, RANGERR=12, NONLITERAL=13,
    64                BOUNDSERR=14, ACCESSERR=15, NOTINLOOP=16,
    65                NOTINROUT=17, NOTINFUN=18, NOTINPRED=19,
    66                PLEXERR=20, NOIF=21, NONSTAND=22, NOTIN=23,
    67                INDEXERR=24,
    68                MOPERR=27, NOTERM=28, NONSTARTER=29,
    69                NONVAR=30, NONREF=31, TOOMANY=32, TOOFEW=33,
    70                UNWANTED=34, NOPARM=35, UNENDING=37,
    71                SELFREF=38
583 @ 5745:            LINE   60 "regression-compile-tmp/chimp.imp"

    72  %constinteger NOEND=40, NOBEGIN=41,
    73                IDMISSING=42, NOFINISH=43, NOREPEAT=44,
    74                COUNTERR=45, NORESULT=46
584 @ 5781:            LINE   72 "regression-compile-tmp/chimp.imp"

    75  %constinteger ERRMAX=46
585 @ 5817:            LINE   75 "regression-compile-tmp/chimp.imp"

    76  %constinteger POINT=64,WARN=128
586 @ 5853:            LINE   76 "regression-compile-tmp/chimp.imp"

    77  %owninteger FAULTNUM=0
587 @ 5889:            LINE   77 "regression-compile-tmp/chimp.imp"
588 @ 5925:            PUSHI  #0x00000000
589 @ 5930:            DEF    FAULTNUM p1=V_0090 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
590 @ 5950:            INIT   1

    78  %owninteger FAULTS=0;          !fault count
    79  !
591 @ 5953:            LINE   78 "regression-compile-tmp/chimp.imp"
592 @ 5989:            PUSHI  #0x00000000
593 @ 5994:            DEF    FAULTS p1=V_0091 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
594 @ 6012:            INIT   1

    80  %constinteger MAXINT=16_7FFFFFFF, MININT=\MAXINT,
    81                MAX10=maxint//10, MAXDIG=maxint-max10*10
595 @ 6015:            LINE   80 "regression-compile-tmp/chimp.imp"

    82  %constinteger FALSE=0, TRUE=1
596 @ 6051:            LINE   82 "regression-compile-tmp/chimp.imp"

    83  %integer I
    84  !
    85  !!  Program statistics
597 @ 6087:            LINE   83 "regression-compile-tmp/chimp.imp"
598 @ 6123:            DEF    I p1=V_0092 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

    86  %owninteger STATEMENTS=0;           !statement count
    87  !%owninteger ATOMS=0;                !atom count
    88  !%owninteger IDENTATOMS=0;           !identifier count
    89  !%owninteger NUMATOMS=0;             !numeric atom count
    90  !%owninteger MISSES=0;               !ident mismatches
    91  !%owninteger ZAPS=0
    92  !
    93  !!!!!!!!!!!!!!!!   Operand Representation  !!!!!!!!!!!!!!!!!!!
    94  
599 @ 6136:            LINE   86 "regression-compile-tmp/chimp.imp"
600 @ 6172:            PUSHI  #0x00000000
601 @ 6177:            DEF    STATEMENTS p1=V_0093 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
602 @ 6199:            INIT   1

    95  %constinteger SMALLMIN=-1000, SMALLMAX=1000,
    96                LITMIN=smallmax+1, LITMAX=smallmax+1000,
    97                D0=litmax+1, D1=d0+1, D2=d0+2, D6=d0+6, D7=d0+7,
    98                A0=d0+8, A1=a0+1, A6=a0+6, A7=a0+7,
    99                INDA0=a0+8,
   100                POSTA0=inda0+8, POSTA7=posta0+7,
   101                PREA0=posta0+8, PREA7=prea0+7,
   102                DICTMIN=prea0+8, DICTMAX=prea0+1200,
   103                LABMIN=dictmax+1, LAB1=labmin+1, LABMAX=labmin+20,
   104                EXPMIN=labmax+1, EXPMAX=labmax+300,
   105                UNDEF=expmax+1, AD=16_4000
603 @ 6202:            LINE   95 "regression-compile-tmp/chimp.imp"

   106  %constinteger MAXDREG=d0+4, MAXAREG=a0+3
604 @ 6238:            LINE   106 "regression-compile-tmp/chimp.imp"

   107  %constinteger D0B=1, D1B=2, D2B=4,
   108                A0B=16_100, A1B=16_200, A2B=16_400
605 @ 6274:            LINE   107 "regression-compile-tmp/chimp.imp"

   109  %constinteger ALLREGS=2_0000111100011111;  !a3:a0 & d4:d0
606 @ 6310:            LINE   109 "regression-compile-tmp/chimp.imp"

   110  %owninteger FREE=allregs
607 @ 6346:            LINE   110 "regression-compile-tmp/chimp.imp"
608 @ 6382:            PUSHI  #0x00000f1f
609 @ 6387:            DEF    FREE p1=V_0094 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
610 @ 6403:            INIT   1

   111  %constinteger NULLTYPE=dictmin,
   112                RECY=nulltype+1, ARRY=recy+1, STRINGY=arry+1,
   113                REALY=stringy+1, INTY=realy+1,
   114                CHARTYPE=inty+1, BOOLTYPE=chartype+1,
   115                FALSECONST=booltype+1, TRUECONST=booltype+2,
   116                INTTYPE=trueconst+1, SHORTTYPE=inttype+1,
   117                HALFTYPE=shorttype+1, BYTETYPE=halftype+1,
   118                MITETYPE=bytetype+1, BITTYPE=MITETYPE+1,
   119                LONGINTTYPE=bittype+1,
   120                REALTYPE=longinttype+1, LONGREALTYPE=realtype+1
611 @ 6406:            LINE   111 "regression-compile-tmp/chimp.imp"

   121  %constinteger PURETYPE=8191, DIRECT=8192, INDIRECT=16384
612 @ 6442:            LINE   121 "regression-compile-tmp/chimp.imp"

   122  %constinteger ANYINT=inty+direct, ANYINTVAR=inty+indirect,
   123                ANYSTRING=stringy+direct, ANYSTRINGVAR=stringy+indirect
613 @ 6478:            LINE   122 "regression-compile-tmp/chimp.imp"

   124  %constinteger ANYNAME=nulltype+indirect
   125  
   126  !
614 @ 6514:            LINE   124 "regression-compile-tmp/chimp.imp"

   127  %owninteger dictshown=dictmin
   128  
   129  !!!!!!!!!!!!!!!!!!!!!!!   Big Literals  !!!!!!!!!!!!!!!!!!!!!!!
615 @ 6550:            LINE   127 "regression-compile-tmp/chimp.imp"
616 @ 6586:            PUSHI  #0x000007f9
617 @ 6591:            DEF    DICTSHOWN p1=V_0095 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
618 @ 6612:            INIT   1

   130  %owninteger LITPOS=litmin, SLITPOS=litmax
619 @ 6615:            LINE   130 "regression-compile-tmp/chimp.imp"
620 @ 6651:            PUSHI  #0x000003e9
621 @ 6656:            DEF    LITPOS p1=V_0096 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
622 @ 6674:            INIT   1
623 @ 6677:            PUSHI  #0x000007d0
624 @ 6682:            DEF    SLITPOS p1=V_0097 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
625 @ 6701:            INIT   1

   131  %integerarray LITSTORE(litmin:litmax)
   132  !
   133  !!!!!!!!!!!!!!!!!!!!!!!!!!  MODE VALUES  !!!!!!!!!!!!!!!!!!!!!!!!!
   134  !Size codes:
626 @ 6704:            LINE   131 "regression-compile-tmp/chimp.imp"
627 @ 6740:            DEF    LITSTORE 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
628 @ 6760:            PUSHI  #0x000003e9
629 @ 6765:            PUSHI  #0x000007d0
630 @ 6770:            DIM    0001 0001

   135  %constinteger bytesize=1, wordsize=2, longsize=3
631 @ 6776:            LINE   135 "regression-compile-tmp/chimp.imp"

   136  %constinteger sizemask=16_C0, sizeshift=6
   137  !Address modes:
632 @ 6812:            LINE   136 "regression-compile-tmp/chimp.imp"

   138  %constinteger dmode=0, amode=2_001000,
   139                indmode=2_010000, postmode=2_011000, premode=2_100000,
   140                dispmode=2_101000, indexmode=2_110000, absmode=2_111000,
   141                pcmode=2_111010, litmode=2_111100
633 @ 6848:            LINE   138 "regression-compile-tmp/chimp.imp"

   142  %constinteger ownmode=dispmode+6;  !d(A6)
   143  !
   144  !!!!!!!!!!!!!!!!!!!!!!!!  Identifiers  !!!!!!!!!!!!!!!!!!!!!!!!
   145  !
634 @ 6884:            LINE   142 "regression-compile-tmp/chimp.imp"

   146  %recordformat OBJINFO %C
   147    (%integer flags,type,
   148      (%integer extra, %byteinteger spare,mode %or %integer low),
   149     %integer val)
635 @ 6920:            LINE   146 "regression-compile-tmp/chimp.imp"
636 @ 6956:            DEF    OBJINFO p1=V_0099 a/tf=44 b/format=99 c/ostate=0  type=4 (record) form=4 (record-format) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
637 @ 6975:            START  ( RECORDFORMAT
638 @ 6976:               DEF    FLAGS p1=V_0000 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
639 @ 6993:               DEF    TYPE p1=V_0000 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
640 @ 7009:               ALTALT ~A ALTBEG
641 @ 7011:               DEF    EXTRA p1=V_0000 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
642 @ 7028:               DEF    SPARE p1=V_0000 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
643 @ 7045:               DEF    MODE p1=V_0000 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
644 @ 7061:               ALTALT ~C ALT
645 @ 7063:               DEF    LOW p1=V_0000 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
646 @ 7078:               ALTALT ~B ALTEND
647 @ 7080:               DEF    VAL p1=V_0000 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
648 @ 7095:            FINISH ) 

   150  %recordformat IDENTINFO %C
   151    ((%integer flags,type,
   152      (%integer extra, %byteinteger spare,mode %or %integer low),
   153     %integer val %or %record(objinfo) details),
   154     %integer text,link)
   155  !
   156  ! Significance of FLAGS:
649 @ 7096:            LINE   150 "regression-compile-tmp/chimp.imp"
650 @ 7132:            DEF    IDENTINFO p1=V_009a a/tf=44 b/format=9a c/ostate=0  type=4 (record) form=4 (record-format) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
651 @ 7153:            START  ( RECORDFORMAT
652 @ 7154:               ALTALT ~A ALTBEG
653 @ 7156:               DEF    FLAGS p1=V_0000 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
654 @ 7173:               DEF    TYPE p1=V_0000 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
655 @ 7189:               ALTALT ~A ALTBEG
656 @ 7191:               DEF    EXTRA p1=V_0000 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
657 @ 7208:               DEF    SPARE p1=V_0000 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
658 @ 7225:               DEF    MODE p1=V_0000 a/tf=11 b/format=2 c/ostate=0  type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
659 @ 7241:               ALTALT ~C ALT
660 @ 7243:               DEF    LOW p1=V_0000 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
661 @ 7258:               ALTALT ~B ALTEND
662 @ 7260:               DEF    VAL p1=V_0000 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
663 @ 7275:               ALTALT ~C ALT
664 @ 7277:               DEF    DETAILS p1=V_0000 a/tf=41 b/format=99 c/ostate=0  type=4 (record) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
665 @ 7296:               ALTALT ~B ALTEND
666 @ 7298:               DEF    TEXT p1=V_0000 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
667 @ 7314:               DEF    LINK p1=V_0000 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
668 @ 7330:            FINISH ) 

   157  %constinteger VAR=16_0001, LAB=16_0002, PROC=16_0004, STATIC=16_0008,
   158                SPEC=16_0010, EXT=16_0020, PARM=16_0040, MORE=16_0080,
   159                TYPEID=16_0100, OKFLAG=16_0200, ALT=16_0800,
   160                RFLAG=16_1000,WFLAG=16_2000
   161  !
   162  ! Significance of VAL:
   163  !  for literal               : the actual value
   164  !  for variable              : machine address (displacement)
   165  !  for undefined label       : reference chain
   166  !  for undefined procedure   :       "
   167  !  for base type             : (index to) range
   168  !  for record type           : size of record in bytes
   169  !
   170  !  Identifier dictionary:
669 @ 7331:            LINE   157 "regression-compile-tmp/chimp.imp"

   171  %record(identinfo)%array DICT(d0:labmax)
   172  !  indexing DICT:
670 @ 7367:            LINE   171 "regression-compile-tmp/chimp.imp"
671 @ 7403:            DEF    DICT p1=V_009b a/tf=4b b/format=9a c/ostate=100  type=4 (record) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
672 @ 7419:            PUSHI  #0x000007d1
673 @ 7424:            PUSHI  #0x00000cb6
674 @ 7429:            DIM    0001 0001

   173  %owninteger DLIM=trueconst+1;         !dict limit (up)
675 @ 7435:            LINE   173 "regression-compile-tmp/chimp.imp"
676 @ 7471:            PUSHI  #0x00000803
677 @ 7476:            DEF    DLIM p1=V_009c a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
678 @ 7492:            INIT   1

   174  %owninteger DLIM0
679 @ 7495:            LINE   174 "regression-compile-tmp/chimp.imp"
680 @ 7531:            DEF    DLIM0 p1=V_009d a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
681 @ 7548:            INIT   1

   175  %owninteger PERMLIM=dictmin
682 @ 7551:            LINE   175 "regression-compile-tmp/chimp.imp"
683 @ 7587:            PUSHI  #0x000007f9
684 @ 7592:            DEF    PERMLIM p1=V_009e a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
685 @ 7611:            INIT   1

   176  %owninteger DMIN=dictmax-1;       !dict upper limit (down)
   177  
   178  !  Text of identifiers (indexed by _TEXT):
686 @ 7614:            LINE   176 "regression-compile-tmp/chimp.imp"
687 @ 7650:            PUSHI  #0x00000ca0
688 @ 7655:            DEF    DMIN p1=V_009f a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
689 @ 7671:            INIT   1

   179  %constinteger CHARBOUND=6000
690 @ 7674:            LINE   179 "regression-compile-tmp/chimp.imp"

   180  %byteintegerarray CHAR(0:charbound)
691 @ 7710:            LINE   180 "regression-compile-tmp/chimp.imp"
692 @ 7746:            DEF    CHAR p1=V_00a0 a/tf=1b b/format=2 c/ostate=100  type=1 (integer) form=11 (array) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
693 @ 7762:            PUSHI  #0x00000000
694 @ 7767:            PUSHI  #0x00001770
695 @ 7772:            DIM    0001 0001

   181  %integer CHARBASE,CHARLIM,CHARMIN;  !pointers
696 @ 7778:            LINE   181 "regression-compile-tmp/chimp.imp"
697 @ 7814:            DEF    CHARBASE p1=V_00a1 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
698 @ 7834:            DEF    CHARLIM p1=V_00a2 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
699 @ 7853:            DEF    CHARMIN p1=V_00a3 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   182  %integer NEWLEN
   183  
   184  !  Hash index to DICT:
700 @ 7872:            LINE   182 "regression-compile-tmp/chimp.imp"
701 @ 7908:            DEF    NEWLEN p1=V_00a4 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   185  %integerarray HASHINDEX(0:255)
702 @ 7926:            LINE   185 "regression-compile-tmp/chimp.imp"
703 @ 7962:            DEF    HASHINDEX 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
704 @ 7983:            PUSHI  #0x00000000
705 @ 7988:            PUSHI  #0x000000ff
706 @ 7993:            DIM    0001 0001

   186  %integername HEAD;                  !head of ident search list
   187  !
   188  !!!!!!!!!!!!!!!!!!!!!  Complex operands  !!!!!!!!!!!!!!!!!!!!!!!
   189  !%recordformat EXPINFO(%integer act,x,y)
   190  !%record(expinfo)%array EXP(expmin:expmax)
707 @ 7999:            LINE   186 "regression-compile-tmp/chimp.imp"
708 @ 8035:            DEF    HEAD p1=V_00a6 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

   191  %owninteger EXPLO=expmax+1, OLDEXPLO=expmax+1
709 @ 8051:            LINE   191 "regression-compile-tmp/chimp.imp"
710 @ 8087:            PUSHI  #0x00000de3
711 @ 8092:            DEF    EXPLO p1=V_00a7 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
712 @ 8109:            INIT   1
713 @ 8112:            PUSHI  #0x00000de3
714 @ 8117:            DEF    OLDEXPLO p1=V_00a8 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
715 @ 8137:            INIT   1

   192  %constinteger NP0=expmin
716 @ 8140:            LINE   192 "regression-compile-tmp/chimp.imp"

   193  %owninteger NP,CONDNP,INSTNP
   194  
   195  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   196  !!!!!!!!!!!!!!!!!!  Keywords and operators  !!!!!!!!!!!!!!!!!!!!
   197  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   198  !*!!!!!!!  Keyword codes -- used by KEYGEN to produce tables  !!
717 @ 8176:            LINE   193 "regression-compile-tmp/chimp.imp"
718 @ 8212:            DEF    NP p1=V_00a9 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
719 @ 8226:            INIT   1
720 @ 8229:            DEF    CONDNP p1=V_00aa a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
721 @ 8247:            INIT   1
722 @ 8250:            DEF    INSTNP p1=V_00ab a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
723 @ 8268:            INIT   1

   199  %constinteger END=1 {end},
   200    REPEAT=2       {repeat},
   201    FINISH=3       {finish},
   202    ELSE=4         {else},
   203    BEGIN=5        {begin},
   204    EXIT=6         {exit_1,continue_0},
   205    RETURN=7       {return},
   206    TF=8           {true_1,false_0},
   207    RESULT=9       {result},
   208    STOP=10        {stop},
   209    GOTO=11        {goto},
   210    SIGNAL=12      {signal},
   211    MONITOR=13     {monitor},
   212    ON=15          {on},
   213    IU=16          {if_0,unless_1},
   214    WHILE=17       {while},
   215    UNTIL=18       {until_1},
   216    FOR=19         {for},
   217    THEN=20        {then},
   218    START=21       {start},
   219    CYCLE=22       {cycle},
   220    KEYLABEL=23    {label},
   221    PREFIX=24 {const_9,constant_9,own_8,external_40,system_40,dynamic_40},
   222    KRANGE=25      {short_1,half_2,byte_3,mite_4,bit_5},
   223    KEYLONG=26     {long},
   224    KEYINTEGER=27  {integer},
   225    KEYREAL=28     {real},
   226    KEYSTRING=29   {string},
   227    KEYRECORD=30   {record},
   228    KEYFORMAT=31   {format},
   229    FNMAP=32       {fn_0,function_0,map_1},
   230    RPRED=33       {routine_0,predicate_1},
   231    KEYSPEC=34     {spec},
   232    KEYARRAY=35    {array},
   233    KEYNAME=36     {name},
   234    KEYSWITCH=37   {switch},
   235    OF=38          {of},
   236    KEYFILE=39     {file},
   237    PROGRAM=40     {program},
   238    KEYLIST=41     {list},
   239    KEYCONTROL=42  {control},
   240    COMMENT=43     {comment},
   241    KEYEVENT=44    {event},
   242    INCLUDE=45     {include},
   243    ALIAS=46       {alias},
   244    KEYNOT=47      {not},
   245    KEYAND=64      {and},
   246    KEYOR=65       {or}
724 @ 8271:            LINE   199 "regression-compile-tmp/chimp.imp"

   247  %CONSTintegerARRAY SYMINIT(97:122) =  %C
   248    2, 15, 27, 57, 64, 87,118,122,126,  1,  1,141,154,168,175,184,
   249    1,199,230,270,278,  1,288,  1,  1,  1
   250  
725 @ 8307:            LINE   247 "regression-compile-tmp/chimp.imp"
726 @ 8343:            PUSHI  #0x00000061
727 @ 8348:            PUSHI  #0x0000007a
728 @ 8353:            BOUNDS
729 @ 8354:            DEF    SYMINIT p1=V_00ac a/tf=1b b/format=1 c/ostate=112  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=2 (constant) spec=0 indirect=1 unass=0
730 @ 8373:            PUSHI  #0x00000002
731 @ 8378:            INIT   1
732 @ 8381:            PUSHI  #0x0000000f
733 @ 8386:            INIT   1
734 @ 8389:            PUSHI  #0x0000001b
735 @ 8394:            INIT   1
736 @ 8397:            PUSHI  #0x00000039
737 @ 8402:            INIT   1
738 @ 8405:            PUSHI  #0x00000040
739 @ 8410:            INIT   1
740 @ 8413:            PUSHI  #0x00000057
741 @ 8418:            INIT   1
742 @ 8421:            PUSHI  #0x00000076
743 @ 8426:            INIT   1
744 @ 8429:            PUSHI  #0x0000007a
745 @ 8434:            INIT   1
746 @ 8437:            PUSHI  #0x0000007e
747 @ 8442:            INIT   1
748 @ 8445:            PUSHI  #0x00000001
749 @ 8450:            INIT   1
750 @ 8453:            PUSHI  #0x00000001
751 @ 8458:            INIT   1
752 @ 8461:            PUSHI  #0x0000008d
753 @ 8466:            INIT   1
754 @ 8469:            PUSHI  #0x0000009a
755 @ 8474:            INIT   1
756 @ 8477:            PUSHI  #0x000000a8
757 @ 8482:            INIT   1
758 @ 8485:            PUSHI  #0x000000af
759 @ 8490:            INIT   1
760 @ 8493:            PUSHI  #0x000000b8
761 @ 8498:            INIT   1
762 @ 8501:            PUSHI  #0x00000001
763 @ 8506:            INIT   1
764 @ 8509:            PUSHI  #0x000000c7
765 @ 8514:            INIT   1
766 @ 8517:            PUSHI  #0x000000e6
767 @ 8522:            INIT   1
768 @ 8525:            PUSHI  #0x0000010e
769 @ 8530:            INIT   1
770 @ 8533:            PUSHI  #0x00000116
771 @ 8538:            INIT   1
772 @ 8541:            PUSHI  #0x00000001
773 @ 8546:            INIT   1
774 @ 8549:            PUSHI  #0x00000120
775 @ 8554:            INIT   1
776 @ 8557:            PUSHI  #0x00000001
777 @ 8562:            INIT   1
778 @ 8565:            PUSHI  #0x00000001
779 @ 8570:            INIT   1
780 @ 8573:            PUSHI  #0x00000001
781 @ 8578:            INIT   1

   251  %CONSTBYTEINTEGERARRAY SYMBOL(1:292) =  %C
   252  128,114,114, 97,121,163,108,105, 97,115,174,110,100,192,101,103,
   253  105,110,133,121,116,101,153,105,116,153,111,110,116,105,110,117,
   254  101,134,121, 99,108,101,150,109,109,101,110,116,171,115,116, 97,
   255  110,116,152,152,114,111,108,170,121,110, 97,109,105, 99,152,110,
   256  100,129,108,115,101,132,120,105,116,134,118,101,110,116,172,116,
   257  101,114,110, 97,108,152,105,110,105,115,104,131, 97,108,115,101,
   258  136,111,114,109, 97,116,159,110,160,117,110, 99,116,105,111,110,
   259  160,147,108,101,167,111,116,111,139, 97,108,102,153,102,144,110,
   260  116,101,103,101,114,155, 99,108,117,100,101,173, 97, 98,101,108,
   261  151,111,110,103,154,105,115,116,169,111,110,105,116,111,114,141,
   262  105,116,101,153, 97,112,160, 97,109,101,164,111,116,175,110,143,
   263  119,110,152,102,166,114,193,114,101,100,105, 99, 97,116,101,161,
   264  111,103,114, 97,109,168,101,112,101, 97,116,130,111,117,116,105,
   265  110,101,161,116,117,114,110,135,115,117,108,116,137, 97,108,156,
   266   99,111,114,100,158,116,111,112,138,105,103,110, 97,108,140,121,
   267  115,116,101,109,152,104,111,114,116,153,112,101, 99,162,119,105,
   268  116, 99,104,165, 97,114,116,149,114,105,110,103,157,114,117,101,
   269  136,104,101,110,148,110,108,101,115,115,144,116,105,108,146,104,
   270  105,108,101,145
   271  
782 @ 8581:            LINE   251 "regression-compile-tmp/chimp.imp"
783 @ 8617:            PUSHI  #0x00000001
784 @ 8622:            PUSHI  #0x00000124
785 @ 8627:            BOUNDS
786 @ 8628:            DEF    SYMBOL p1=V_00ad a/tf=1b b/format=2 c/ostate=112  type=1 (integer) form=11 (array) special=1 (byte-integer) linkage=2 (constant) spec=0 indirect=1 unass=0
787 @ 8646:            PUSHI  #0x00000080
788 @ 8651:            INIT   1
789 @ 8654:            PUSHI  #0x00000072
790 @ 8659:            INIT   1
791 @ 8662:            PUSHI  #0x00000072
792 @ 8667:            INIT   1
793 @ 8670:            PUSHI  #0x00000061
794 @ 8675:            INIT   1
795 @ 8678:            PUSHI  #0x00000079
796 @ 8683:            INIT   1
797 @ 8686:            PUSHI  #0x000000a3
798 @ 8691:            INIT   1
799 @ 8694:            PUSHI  #0x0000006c
800 @ 8699:            INIT   1
801 @ 8702:            PUSHI  #0x00000069
802 @ 8707:            INIT   1
803 @ 8710:            PUSHI  #0x00000061
804 @ 8715:            INIT   1
805 @ 8718:            PUSHI  #0x00000073
806 @ 8723:            INIT   1
807 @ 8726:            PUSHI  #0x000000ae
808 @ 8731:            INIT   1
809 @ 8734:            PUSHI  #0x0000006e
810 @ 8739:            INIT   1
811 @ 8742:            PUSHI  #0x00000064
812 @ 8747:            INIT   1
813 @ 8750:            PUSHI  #0x000000c0
814 @ 8755:            INIT   1
815 @ 8758:            PUSHI  #0x00000065
816 @ 8763:            INIT   1
817 @ 8766:            PUSHI  #0x00000067
818 @ 8771:            INIT   1
819 @ 8774:            PUSHI  #0x00000069
820 @ 8779:            INIT   1
821 @ 8782:            PUSHI  #0x0000006e
822 @ 8787:            INIT   1
823 @ 8790:            PUSHI  #0x00000085
824 @ 8795:            INIT   1
825 @ 8798:            PUSHI  #0x00000079
826 @ 8803:            INIT   1
827 @ 8806:            PUSHI  #0x00000074
828 @ 8811:            INIT   1
829 @ 8814:            PUSHI  #0x00000065
830 @ 8819:            INIT   1
831 @ 8822:            PUSHI  #0x00000099
832 @ 8827:            INIT   1
833 @ 8830:            PUSHI  #0x00000069
834 @ 8835:            INIT   1
835 @ 8838:            PUSHI  #0x00000074
836 @ 8843:            INIT   1
837 @ 8846:            PUSHI  #0x00000099
838 @ 8851:            INIT   1
839 @ 8854:            PUSHI  #0x0000006f
840 @ 8859:            INIT   1
841 @ 8862:            PUSHI  #0x0000006e
842 @ 8867:            INIT   1
843 @ 8870:            PUSHI  #0x00000074
844 @ 8875:            INIT   1
845 @ 8878:            PUSHI  #0x00000069
846 @ 8883:            INIT   1
847 @ 8886:            PUSHI  #0x0000006e
848 @ 8891:            INIT   1
849 @ 8894:            PUSHI  #0x00000075
850 @ 8899:            INIT   1
851 @ 8902:            PUSHI  #0x00000065
852 @ 8907:            INIT   1
853 @ 8910:            PUSHI  #0x00000086
854 @ 8915:            INIT   1
855 @ 8918:            PUSHI  #0x00000079
856 @ 8923:            INIT   1
857 @ 8926:            PUSHI  #0x00000063
858 @ 8931:            INIT   1
859 @ 8934:            PUSHI  #0x0000006c
860 @ 8939:            INIT   1
861 @ 8942:            PUSHI  #0x00000065
862 @ 8947:            INIT   1
863 @ 8950:            PUSHI  #0x00000096
864 @ 8955:            INIT   1
865 @ 8958:            PUSHI  #0x0000006d
866 @ 8963:            INIT   1
867 @ 8966:            PUSHI  #0x0000006d
868 @ 8971:            INIT   1
869 @ 8974:            PUSHI  #0x00000065
870 @ 8979:            INIT   1
871 @ 8982:            PUSHI  #0x0000006e
872 @ 8987:            INIT   1
873 @ 8990:            PUSHI  #0x00000074
874 @ 8995:            INIT   1
875 @ 8998:            PUSHI  #0x000000ab
876 @ 9003:            INIT   1
877 @ 9006:            PUSHI  #0x00000073
878 @ 9011:            INIT   1
879 @ 9014:            PUSHI  #0x00000074
880 @ 9019:            INIT   1
881 @ 9022:            PUSHI  #0x00000061
882 @ 9027:            INIT   1
883 @ 9030:            PUSHI  #0x0000006e
884 @ 9035:            INIT   1
885 @ 9038:            PUSHI  #0x00000074
886 @ 9043:            INIT   1
887 @ 9046:            PUSHI  #0x00000098
888 @ 9051:            INIT   1
889 @ 9054:            PUSHI  #0x00000098
890 @ 9059:            INIT   1
891 @ 9062:            PUSHI  #0x00000072
892 @ 9067:            INIT   1
893 @ 9070:            PUSHI  #0x0000006f
894 @ 9075:            INIT   1
895 @ 9078:            PUSHI  #0x0000006c
896 @ 9083:            INIT   1
897 @ 9086:            PUSHI  #0x000000aa
898 @ 9091:            INIT   1
899 @ 9094:            PUSHI  #0x00000079
900 @ 9099:            INIT   1
901 @ 9102:            PUSHI  #0x0000006e
902 @ 9107:            INIT   1
903 @ 9110:            PUSHI  #0x00000061
904 @ 9115:            INIT   1
905 @ 9118:            PUSHI  #0x0000006d
906 @ 9123:            INIT   1
907 @ 9126:            PUSHI  #0x00000069
908 @ 9131:            INIT   1
909 @ 9134:            PUSHI  #0x00000063
910 @ 9139:            INIT   1
911 @ 9142:            PUSHI  #0x00000098
912 @ 9147:            INIT   1
913 @ 9150:            PUSHI  #0x0000006e
914 @ 9155:            INIT   1
915 @ 9158:            PUSHI  #0x00000064
916 @ 9163:            INIT   1
917 @ 9166:            PUSHI  #0x00000081
918 @ 9171:            INIT   1
919 @ 9174:            PUSHI  #0x0000006c
920 @ 9179:            INIT   1
921 @ 9182:            PUSHI  #0x00000073
922 @ 9187:            INIT   1
923 @ 9190:            PUSHI  #0x00000065
924 @ 9195:            INIT   1
925 @ 9198:            PUSHI  #0x00000084
926 @ 9203:            INIT   1
927 @ 9206:            PUSHI  #0x00000078
928 @ 9211:            INIT   1
929 @ 9214:            PUSHI  #0x00000069
930 @ 9219:            INIT   1
931 @ 9222:            PUSHI  #0x00000074
932 @ 9227:            INIT   1
933 @ 9230:            PUSHI  #0x00000086
934 @ 9235:            INIT   1
935 @ 9238:            PUSHI  #0x00000076
936 @ 9243:            INIT   1
937 @ 9246:            PUSHI  #0x00000065
938 @ 9251:            INIT   1
939 @ 9254:            PUSHI  #0x0000006e
940 @ 9259:            INIT   1
941 @ 9262:            PUSHI  #0x00000074
942 @ 9267:            INIT   1
943 @ 9270:            PUSHI  #0x000000ac
944 @ 9275:            INIT   1
945 @ 9278:            PUSHI  #0x00000074
946 @ 9283:            INIT   1
947 @ 9286:            PUSHI  #0x00000065
948 @ 9291:            INIT   1
949 @ 9294:            PUSHI  #0x00000072
950 @ 9299:            INIT   1
951 @ 9302:            PUSHI  #0x0000006e
952 @ 9307:            INIT   1
953 @ 9310:            PUSHI  #0x00000061
954 @ 9315:            INIT   1
955 @ 9318:            PUSHI  #0x0000006c
956 @ 9323:            INIT   1
957 @ 9326:            PUSHI  #0x00000098
958 @ 9331:            INIT   1
959 @ 9334:            PUSHI  #0x00000069
960 @ 9339:            INIT   1
961 @ 9342:            PUSHI  #0x0000006e
962 @ 9347:            INIT   1
963 @ 9350:            PUSHI  #0x00000069
964 @ 9355:            INIT   1
965 @ 9358:            PUSHI  #0x00000073
966 @ 9363:            INIT   1
967 @ 9366:            PUSHI  #0x00000068
968 @ 9371:            INIT   1
969 @ 9374:            PUSHI  #0x00000083
970 @ 9379:            INIT   1
971 @ 9382:            PUSHI  #0x00000061
972 @ 9387:            INIT   1
973 @ 9390:            PUSHI  #0x0000006c
974 @ 9395:            INIT   1
975 @ 9398:            PUSHI  #0x00000073
976 @ 9403:            INIT   1
977 @ 9406:            PUSHI  #0x00000065
978 @ 9411:            INIT   1
979 @ 9414:            PUSHI  #0x00000088
980 @ 9419:            INIT   1
981 @ 9422:            PUSHI  #0x0000006f
982 @ 9427:            INIT   1
983 @ 9430:            PUSHI  #0x00000072
984 @ 9435:            INIT   1
985 @ 9438:            PUSHI  #0x0000006d
986 @ 9443:            INIT   1
987 @ 9446:            PUSHI  #0x00000061
988 @ 9451:            INIT   1
989 @ 9454:            PUSHI  #0x00000074
990 @ 9459:            INIT   1
991 @ 9462:            PUSHI  #0x0000009f
992 @ 9467:            INIT   1
993 @ 9470:            PUSHI  #0x0000006e
994 @ 9475:            INIT   1
995 @ 9478:            PUSHI  #0x000000a0
996 @ 9483:            INIT   1
997 @ 9486:            PUSHI  #0x00000075
998 @ 9491:            INIT   1
999 @ 9494:            PUSHI  #0x0000006e
1000 @ 9499:            INIT   1
1001 @ 9502:            PUSHI  #0x00000063
1002 @ 9507:            INIT   1
1003 @ 9510:            PUSHI  #0x00000074
1004 @ 9515:            INIT   1
1005 @ 9518:            PUSHI  #0x00000069
1006 @ 9523:            INIT   1
1007 @ 9526:            PUSHI  #0x0000006f
1008 @ 9531:            INIT   1
1009 @ 9534:            PUSHI  #0x0000006e
1010 @ 9539:            INIT   1
1011 @ 9542:            PUSHI  #0x000000a0
1012 @ 9547:            INIT   1
1013 @ 9550:            PUSHI  #0x00000093
1014 @ 9555:            INIT   1
1015 @ 9558:            PUSHI  #0x0000006c
1016 @ 9563:            INIT   1
1017 @ 9566:            PUSHI  #0x00000065
1018 @ 9571:            INIT   1
1019 @ 9574:            PUSHI  #0x000000a7
1020 @ 9579:            INIT   1
1021 @ 9582:            PUSHI  #0x0000006f
1022 @ 9587:            INIT   1
1023 @ 9590:            PUSHI  #0x00000074
1024 @ 9595:            INIT   1
1025 @ 9598:            PUSHI  #0x0000006f
1026 @ 9603:            INIT   1
1027 @ 9606:            PUSHI  #0x0000008b
1028 @ 9611:            INIT   1
1029 @ 9614:            PUSHI  #0x00000061
1030 @ 9619:            INIT   1
1031 @ 9622:            PUSHI  #0x0000006c
1032 @ 9627:            INIT   1
1033 @ 9630:            PUSHI  #0x00000066
1034 @ 9635:            INIT   1
1035 @ 9638:            PUSHI  #0x00000099
1036 @ 9643:            INIT   1
1037 @ 9646:            PUSHI  #0x00000066
1038 @ 9651:            INIT   1
1039 @ 9654:            PUSHI  #0x00000090
1040 @ 9659:            INIT   1
1041 @ 9662:            PUSHI  #0x0000006e
1042 @ 9667:            INIT   1
1043 @ 9670:            PUSHI  #0x00000074
1044 @ 9675:            INIT   1
1045 @ 9678:            PUSHI  #0x00000065
1046 @ 9683:            INIT   1
1047 @ 9686:            PUSHI  #0x00000067
1048 @ 9691:            INIT   1
1049 @ 9694:            PUSHI  #0x00000065
1050 @ 9699:            INIT   1
1051 @ 9702:            PUSHI  #0x00000072
1052 @ 9707:            INIT   1
1053 @ 9710:            PUSHI  #0x0000009b
1054 @ 9715:            INIT   1
1055 @ 9718:            PUSHI  #0x00000063
1056 @ 9723:            INIT   1
1057 @ 9726:            PUSHI  #0x0000006c
1058 @ 9731:            INIT   1
1059 @ 9734:            PUSHI  #0x00000075
1060 @ 9739:            INIT   1
1061 @ 9742:            PUSHI  #0x00000064
1062 @ 9747:            INIT   1
1063 @ 9750:            PUSHI  #0x00000065
1064 @ 9755:            INIT   1
1065 @ 9758:            PUSHI  #0x000000ad
1066 @ 9763:            INIT   1
1067 @ 9766:            PUSHI  #0x00000061
1068 @ 9771:            INIT   1
1069 @ 9774:            PUSHI  #0x00000062
1070 @ 9779:            INIT   1
1071 @ 9782:            PUSHI  #0x00000065
1072 @ 9787:            INIT   1
1073 @ 9790:            PUSHI  #0x0000006c
1074 @ 9795:            INIT   1
1075 @ 9798:            PUSHI  #0x00000097
1076 @ 9803:            INIT   1
1077 @ 9806:            PUSHI  #0x0000006f
1078 @ 9811:            INIT   1
1079 @ 9814:            PUSHI  #0x0000006e
1080 @ 9819:            INIT   1
1081 @ 9822:            PUSHI  #0x00000067
1082 @ 9827:            INIT   1
1083 @ 9830:            PUSHI  #0x0000009a
1084 @ 9835:            INIT   1
1085 @ 9838:            PUSHI  #0x00000069
1086 @ 9843:            INIT   1
1087 @ 9846:            PUSHI  #0x00000073
1088 @ 9851:            INIT   1
1089 @ 9854:            PUSHI  #0x00000074
1090 @ 9859:            INIT   1
1091 @ 9862:            PUSHI  #0x000000a9
1092 @ 9867:            INIT   1
1093 @ 9870:            PUSHI  #0x0000006f
1094 @ 9875:            INIT   1
1095 @ 9878:            PUSHI  #0x0000006e
1096 @ 9883:            INIT   1
1097 @ 9886:            PUSHI  #0x00000069
1098 @ 9891:            INIT   1
1099 @ 9894:            PUSHI  #0x00000074
1100 @ 9899:            INIT   1
1101 @ 9902:            PUSHI  #0x0000006f
1102 @ 9907:            INIT   1
1103 @ 9910:            PUSHI  #0x00000072
1104 @ 9915:            INIT   1
1105 @ 9918:            PUSHI  #0x0000008d
1106 @ 9923:            INIT   1
1107 @ 9926:            PUSHI  #0x00000069
1108 @ 9931:            INIT   1
1109 @ 9934:            PUSHI  #0x00000074
1110 @ 9939:            INIT   1
1111 @ 9942:            PUSHI  #0x00000065
1112 @ 9947:            INIT   1
1113 @ 9950:            PUSHI  #0x00000099
1114 @ 9955:            INIT   1
1115 @ 9958:            PUSHI  #0x00000061
1116 @ 9963:            INIT   1
1117 @ 9966:            PUSHI  #0x00000070
1118 @ 9971:            INIT   1
1119 @ 9974:            PUSHI  #0x000000a0
1120 @ 9979:            INIT   1
1121 @ 9982:            PUSHI  #0x00000061
1122 @ 9987:            INIT   1
1123 @ 9990:            PUSHI  #0x0000006d
1124 @ 9995:            INIT   1
1125 @ 9998:            PUSHI  #0x00000065
1126 @ 10003:            INIT   1
1127 @ 10006:            PUSHI  #0x000000a4
1128 @ 10011:            INIT   1
1129 @ 10014:            PUSHI  #0x0000006f
1130 @ 10019:            INIT   1
1131 @ 10022:            PUSHI  #0x00000074
1132 @ 10027:            INIT   1
1133 @ 10030:            PUSHI  #0x000000af
1134 @ 10035:            INIT   1
1135 @ 10038:            PUSHI  #0x0000006e
1136 @ 10043:            INIT   1
1137 @ 10046:            PUSHI  #0x0000008f
1138 @ 10051:            INIT   1
1139 @ 10054:            PUSHI  #0x00000077
1140 @ 10059:            INIT   1
1141 @ 10062:            PUSHI  #0x0000006e
1142 @ 10067:            INIT   1
1143 @ 10070:            PUSHI  #0x00000098
1144 @ 10075:            INIT   1
1145 @ 10078:            PUSHI  #0x00000066
1146 @ 10083:            INIT   1
1147 @ 10086:            PUSHI  #0x000000a6
1148 @ 10091:            INIT   1
1149 @ 10094:            PUSHI  #0x00000072
1150 @ 10099:            INIT   1
1151 @ 10102:            PUSHI  #0x000000c1
1152 @ 10107:            INIT   1
1153 @ 10110:            PUSHI  #0x00000072
1154 @ 10115:            INIT   1
1155 @ 10118:            PUSHI  #0x00000065
1156 @ 10123:            INIT   1
1157 @ 10126:            PUSHI  #0x00000064
1158 @ 10131:            INIT   1
1159 @ 10134:            PUSHI  #0x00000069
1160 @ 10139:            INIT   1
1161 @ 10142:            PUSHI  #0x00000063
1162 @ 10147:            INIT   1
1163 @ 10150:            PUSHI  #0x00000061
1164 @ 10155:            INIT   1
1165 @ 10158:            PUSHI  #0x00000074
1166 @ 10163:            INIT   1
1167 @ 10166:            PUSHI  #0x00000065
1168 @ 10171:            INIT   1
1169 @ 10174:            PUSHI  #0x000000a1
1170 @ 10179:            INIT   1
1171 @ 10182:            PUSHI  #0x0000006f
1172 @ 10187:            INIT   1
1173 @ 10190:            PUSHI  #0x00000067
1174 @ 10195:            INIT   1
1175 @ 10198:            PUSHI  #0x00000072
1176 @ 10203:            INIT   1
1177 @ 10206:            PUSHI  #0x00000061
1178 @ 10211:            INIT   1
1179 @ 10214:            PUSHI  #0x0000006d
1180 @ 10219:            INIT   1
1181 @ 10222:            PUSHI  #0x000000a8
1182 @ 10227:            INIT   1
1183 @ 10230:            PUSHI  #0x00000065
1184 @ 10235:            INIT   1
1185 @ 10238:            PUSHI  #0x00000070
1186 @ 10243:            INIT   1
1187 @ 10246:            PUSHI  #0x00000065
1188 @ 10251:            INIT   1
1189 @ 10254:            PUSHI  #0x00000061
1190 @ 10259:            INIT   1
1191 @ 10262:            PUSHI  #0x00000074
1192 @ 10267:            INIT   1
1193 @ 10270:            PUSHI  #0x00000082
1194 @ 10275:            INIT   1
1195 @ 10278:            PUSHI  #0x0000006f
1196 @ 10283:            INIT   1
1197 @ 10286:            PUSHI  #0x00000075
1198 @ 10291:            INIT   1
1199 @ 10294:            PUSHI  #0x00000074
1200 @ 10299:            INIT   1
1201 @ 10302:            PUSHI  #0x00000069
1202 @ 10307:            INIT   1
1203 @ 10310:            PUSHI  #0x0000006e
1204 @ 10315:            INIT   1
1205 @ 10318:            PUSHI  #0x00000065
1206 @ 10323:            INIT   1
1207 @ 10326:            PUSHI  #0x000000a1
1208 @ 10331:            INIT   1
1209 @ 10334:            PUSHI  #0x00000074
1210 @ 10339:            INIT   1
1211 @ 10342:            PUSHI  #0x00000075
1212 @ 10347:            INIT   1
1213 @ 10350:            PUSHI  #0x00000072
1214 @ 10355:            INIT   1
1215 @ 10358:            PUSHI  #0x0000006e
1216 @ 10363:            INIT   1
1217 @ 10366:            PUSHI  #0x00000087
1218 @ 10371:            INIT   1
1219 @ 10374:            PUSHI  #0x00000073
1220 @ 10379:            INIT   1
1221 @ 10382:            PUSHI  #0x00000075
1222 @ 10387:            INIT   1
1223 @ 10390:            PUSHI  #0x0000006c
1224 @ 10395:            INIT   1
1225 @ 10398:            PUSHI  #0x00000074
1226 @ 10403:            INIT   1
1227 @ 10406:            PUSHI  #0x00000089
1228 @ 10411:            INIT   1
1229 @ 10414:            PUSHI  #0x00000061
1230 @ 10419:            INIT   1
1231 @ 10422:            PUSHI  #0x0000006c
1232 @ 10427:            INIT   1
1233 @ 10430:            PUSHI  #0x0000009c
1234 @ 10435:            INIT   1
1235 @ 10438:            PUSHI  #0x00000063
1236 @ 10443:            INIT   1
1237 @ 10446:            PUSHI  #0x0000006f
1238 @ 10451:            INIT   1
1239 @ 10454:            PUSHI  #0x00000072
1240 @ 10459:            INIT   1
1241 @ 10462:            PUSHI  #0x00000064
1242 @ 10467:            INIT   1
1243 @ 10470:            PUSHI  #0x0000009e
1244 @ 10475:            INIT   1
1245 @ 10478:            PUSHI  #0x00000074
1246 @ 10483:            INIT   1
1247 @ 10486:            PUSHI  #0x0000006f
1248 @ 10491:            INIT   1
1249 @ 10494:            PUSHI  #0x00000070
1250 @ 10499:            INIT   1
1251 @ 10502:            PUSHI  #0x0000008a
1252 @ 10507:            INIT   1
1253 @ 10510:            PUSHI  #0x00000069
1254 @ 10515:            INIT   1
1255 @ 10518:            PUSHI  #0x00000067
1256 @ 10523:            INIT   1
1257 @ 10526:            PUSHI  #0x0000006e
1258 @ 10531:            INIT   1
1259 @ 10534:            PUSHI  #0x00000061
1260 @ 10539:            INIT   1
1261 @ 10542:            PUSHI  #0x0000006c
1262 @ 10547:            INIT   1
1263 @ 10550:            PUSHI  #0x0000008c
1264 @ 10555:            INIT   1
1265 @ 10558:            PUSHI  #0x00000079
1266 @ 10563:            INIT   1
1267 @ 10566:            PUSHI  #0x00000073
1268 @ 10571:            INIT   1
1269 @ 10574:            PUSHI  #0x00000074
1270 @ 10579:            INIT   1
1271 @ 10582:            PUSHI  #0x00000065
1272 @ 10587:            INIT   1
1273 @ 10590:            PUSHI  #0x0000006d
1274 @ 10595:            INIT   1
1275 @ 10598:            PUSHI  #0x00000098
1276 @ 10603:            INIT   1
1277 @ 10606:            PUSHI  #0x00000068
1278 @ 10611:            INIT   1
1279 @ 10614:            PUSHI  #0x0000006f
1280 @ 10619:            INIT   1
1281 @ 10622:            PUSHI  #0x00000072
1282 @ 10627:            INIT   1
1283 @ 10630:            PUSHI  #0x00000074
1284 @ 10635:            INIT   1
1285 @ 10638:            PUSHI  #0x00000099
1286 @ 10643:            INIT   1
1287 @ 10646:            PUSHI  #0x00000070
1288 @ 10651:            INIT   1
1289 @ 10654:            PUSHI  #0x00000065
1290 @ 10659:            INIT   1
1291 @ 10662:            PUSHI  #0x00000063
1292 @ 10667:            INIT   1
1293 @ 10670:            PUSHI  #0x000000a2
1294 @ 10675:            INIT   1
1295 @ 10678:            PUSHI  #0x00000077
1296 @ 10683:            INIT   1
1297 @ 10686:            PUSHI  #0x00000069
1298 @ 10691:            INIT   1
1299 @ 10694:            PUSHI  #0x00000074
1300 @ 10699:            INIT   1
1301 @ 10702:            PUSHI  #0x00000063
1302 @ 10707:            INIT   1
1303 @ 10710:            PUSHI  #0x00000068
1304 @ 10715:            INIT   1
1305 @ 10718:            PUSHI  #0x000000a5
1306 @ 10723:            INIT   1
1307 @ 10726:            PUSHI  #0x00000061
1308 @ 10731:            INIT   1
1309 @ 10734:            PUSHI  #0x00000072
1310 @ 10739:            INIT   1
1311 @ 10742:            PUSHI  #0x00000074
1312 @ 10747:            INIT   1
1313 @ 10750:            PUSHI  #0x00000095
1314 @ 10755:            INIT   1
1315 @ 10758:            PUSHI  #0x00000072
1316 @ 10763:            INIT   1
1317 @ 10766:            PUSHI  #0x00000069
1318 @ 10771:            INIT   1
1319 @ 10774:            PUSHI  #0x0000006e
1320 @ 10779:            INIT   1
1321 @ 10782:            PUSHI  #0x00000067
1322 @ 10787:            INIT   1
1323 @ 10790:            PUSHI  #0x0000009d
1324 @ 10795:            INIT   1
1325 @ 10798:            PUSHI  #0x00000072
1326 @ 10803:            INIT   1
1327 @ 10806:            PUSHI  #0x00000075
1328 @ 10811:            INIT   1
1329 @ 10814:            PUSHI  #0x00000065
1330 @ 10819:            INIT   1
1331 @ 10822:            PUSHI  #0x00000088
1332 @ 10827:            INIT   1
1333 @ 10830:            PUSHI  #0x00000068
1334 @ 10835:            INIT   1
1335 @ 10838:            PUSHI  #0x00000065
1336 @ 10843:            INIT   1
1337 @ 10846:            PUSHI  #0x0000006e
1338 @ 10851:            INIT   1
1339 @ 10854:            PUSHI  #0x00000094
1340 @ 10859:            INIT   1
1341 @ 10862:            PUSHI  #0x0000006e
1342 @ 10867:            INIT   1
1343 @ 10870:            PUSHI  #0x0000006c
1344 @ 10875:            INIT   1
1345 @ 10878:            PUSHI  #0x00000065
1346 @ 10883:            INIT   1
1347 @ 10886:            PUSHI  #0x00000073
1348 @ 10891:            INIT   1
1349 @ 10894:            PUSHI  #0x00000073
1350 @ 10899:            INIT   1
1351 @ 10902:            PUSHI  #0x00000090
1352 @ 10907:            INIT   1
1353 @ 10910:            PUSHI  #0x00000074
1354 @ 10915:            INIT   1
1355 @ 10918:            PUSHI  #0x00000069
1356 @ 10923:            INIT   1
1357 @ 10926:            PUSHI  #0x0000006c
1358 @ 10931:            INIT   1
1359 @ 10934:            PUSHI  #0x00000092
1360 @ 10939:            INIT   1
1361 @ 10942:            PUSHI  #0x00000068
1362 @ 10947:            INIT   1
1363 @ 10950:            PUSHI  #0x00000069
1364 @ 10955:            INIT   1
1365 @ 10958:            PUSHI  #0x0000006c
1366 @ 10963:            INIT   1
1367 @ 10966:            PUSHI  #0x00000065
1368 @ 10971:            INIT   1
1369 @ 10974:            PUSHI  #0x00000091
1370 @ 10979:            INIT   1

   272  %CONSTBYTEINTEGERARRAY ALTDISP(1:292) =  %C
   273    0,  5,  0,  0,  0,  0,  5,  0,  0,  0,  0,  0,  0,  0,  5,  0,
   274    0,  0,  0,  4,  0,  0,  3,  0,  0,  5,  8, 12, 17, 23,  0,  0,
   275    0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  4,
   276    0,  0,  9,  9,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0, 40,  3,
   277    0,  0,  4,  0,  0,  0,  4,  8,  0,  1,  0,  0,  0,  0,  0,  0,
   278    0,  0,  0,  0,  0, 40,  6, 27,  0,  0,  0,  0,  5,  0,  0,  0,
   279    0,  6,  0, 14,  0,  0,  0,  2,  0,  0,  0,  0,  0,  0,  0,  0,
   280    0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  2,  2,  0,  0,
   281    6,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  5,  0,  0,  0,
   282    0,  4,  0,  0,  0,  0,  0,  0,  0,  7,  0,  0,  0,  0,  0,  0,
   283    4,  0,  0,  4,  0,  0,  1,  4,  0,  0,  0,  0,  0,  0,  2,  0,
   284    3,  0,  8,  2,  0,  0,  0,  0,  8,  0,  0,  0,  0,  0,  0,  1,
   285    0,  0,  0,  0,  0,  0,  6, 12,  0,  0,  0,  0,  0,  0,  0,  0,
   286    0,  0,  0,  5,  0,  0,  0,  0,  5,  0,  0,  0,  0,  3,  0,  0,
   287    0,  0,  0,  0,  0,  4, 30,  0,  0,  6,  0,  0,  0,  0,  0,  6,
   288    0,  0,  0,  0, 40,  5,  0,  0,  0,  1,  4,  0,  0,  0,  0,  0,
   289    0,  0,  0,  0,  4,  0,  0,  0,  0,  0,  0,  0,  0,  4,  0,  0,
   290    1,  0,  0,  0,  0,  0,  5,  0,  0,  0,  1,  0,  0,  0,  1,  0,
   291    0,  0,  0,  0
   292  
   293  
   294  !*!!!!!!   end of generated tables    !!!!!!!!!!!!!!!!!!!!!!!!!!!
   295  !
1371 @ 10982:            LINE   272 "regression-compile-tmp/chimp.imp"
1372 @ 11018:            PUSHI  #0x00000001
1373 @ 11023:            PUSHI  #0x00000124
1374 @ 11028:            BOUNDS
1375 @ 11029:            DEF    ALTDISP p1=V_00ae a/tf=1b b/format=2 c/ostate=112  type=1 (integer) form=11 (array) special=1 (byte-integer) linkage=2 (constant) spec=0 indirect=1 unass=0
1376 @ 11048:            PUSHI  #0x00000000
1377 @ 11053:            INIT   1
1378 @ 11056:            PUSHI  #0x00000005
1379 @ 11061:            INIT   1
1380 @ 11064:            PUSHI  #0x00000000
1381 @ 11069:            INIT   1
1382 @ 11072:            PUSHI  #0x00000000
1383 @ 11077:            INIT   1
1384 @ 11080:            PUSHI  #0x00000000
1385 @ 11085:            INIT   1
1386 @ 11088:            PUSHI  #0x00000000
1387 @ 11093:            INIT   1
1388 @ 11096:            PUSHI  #0x00000005
1389 @ 11101:            INIT   1
1390 @ 11104:            PUSHI  #0x00000000
1391 @ 11109:            INIT   1
1392 @ 11112:            PUSHI  #0x00000000
1393 @ 11117:            INIT   1
1394 @ 11120:            PUSHI  #0x00000000
1395 @ 11125:            INIT   1
1396 @ 11128:            PUSHI  #0x00000000
1397 @ 11133:            INIT   1
1398 @ 11136:            PUSHI  #0x00000000
1399 @ 11141:            INIT   1
1400 @ 11144:            PUSHI  #0x00000000
1401 @ 11149:            INIT   1
1402 @ 11152:            PUSHI  #0x00000000
1403 @ 11157:            INIT   1
1404 @ 11160:            PUSHI  #0x00000005
1405 @ 11165:            INIT   1
1406 @ 11168:            PUSHI  #0x00000000
1407 @ 11173:            INIT   1
1408 @ 11176:            PUSHI  #0x00000000
1409 @ 11181:            INIT   1
1410 @ 11184:            PUSHI  #0x00000000
1411 @ 11189:            INIT   1
1412 @ 11192:            PUSHI  #0x00000000
1413 @ 11197:            INIT   1
1414 @ 11200:            PUSHI  #0x00000004
1415 @ 11205:            INIT   1
1416 @ 11208:            PUSHI  #0x00000000
1417 @ 11213:            INIT   1
1418 @ 11216:            PUSHI  #0x00000000
1419 @ 11221:            INIT   1
1420 @ 11224:            PUSHI  #0x00000003
1421 @ 11229:            INIT   1
1422 @ 11232:            PUSHI  #0x00000000
1423 @ 11237:            INIT   1
1424 @ 11240:            PUSHI  #0x00000000
1425 @ 11245:            INIT   1
1426 @ 11248:            PUSHI  #0x00000005
1427 @ 11253:            INIT   1
1428 @ 11256:            PUSHI  #0x00000008
1429 @ 11261:            INIT   1
1430 @ 11264:            PUSHI  #0x0000000c
1431 @ 11269:            INIT   1
1432 @ 11272:            PUSHI  #0x00000011
1433 @ 11277:            INIT   1
1434 @ 11280:            PUSHI  #0x00000017
1435 @ 11285:            INIT   1
1436 @ 11288:            PUSHI  #0x00000000
1437 @ 11293:            INIT   1
1438 @ 11296:            PUSHI  #0x00000000
1439 @ 11301:            INIT   1
1440 @ 11304:            PUSHI  #0x00000000
1441 @ 11309:            INIT   1
1442 @ 11312:            PUSHI  #0x00000000
1443 @ 11317:            INIT   1
1444 @ 11320:            PUSHI  #0x00000000
1445 @ 11325:            INIT   1
1446 @ 11328:            PUSHI  #0x00000000
1447 @ 11333:            INIT   1
1448 @ 11336:            PUSHI  #0x00000000
1449 @ 11341:            INIT   1
1450 @ 11344:            PUSHI  #0x00000000
1451 @ 11349:            INIT   1
1452 @ 11352:            PUSHI  #0x00000000
1453 @ 11357:            INIT   1
1454 @ 11360:            PUSHI  #0x00000000
1455 @ 11365:            INIT   1
1456 @ 11368:            PUSHI  #0x00000000
1457 @ 11373:            INIT   1
1458 @ 11376:            PUSHI  #0x00000000
1459 @ 11381:            INIT   1
1460 @ 11384:            PUSHI  #0x00000000
1461 @ 11389:            INIT   1
1462 @ 11392:            PUSHI  #0x00000000
1463 @ 11397:            INIT   1
1464 @ 11400:            PUSHI  #0x00000000
1465 @ 11405:            INIT   1
1466 @ 11408:            PUSHI  #0x00000000
1467 @ 11413:            INIT   1
1468 @ 11416:            PUSHI  #0x00000000
1469 @ 11421:            INIT   1
1470 @ 11424:            PUSHI  #0x00000004
1471 @ 11429:            INIT   1
1472 @ 11432:            PUSHI  #0x00000000
1473 @ 11437:            INIT   1
1474 @ 11440:            PUSHI  #0x00000000
1475 @ 11445:            INIT   1
1476 @ 11448:            PUSHI  #0x00000009
1477 @ 11453:            INIT   1
1478 @ 11456:            PUSHI  #0x00000009
1479 @ 11461:            INIT   1
1480 @ 11464:            PUSHI  #0x00000000
1481 @ 11469:            INIT   1
1482 @ 11472:            PUSHI  #0x00000000
1483 @ 11477:            INIT   1
1484 @ 11480:            PUSHI  #0x00000000
1485 @ 11485:            INIT   1
1486 @ 11488:            PUSHI  #0x00000000
1487 @ 11493:            INIT   1
1488 @ 11496:            PUSHI  #0x00000000
1489 @ 11501:            INIT   1
1490 @ 11504:            PUSHI  #0x00000000
1491 @ 11509:            INIT   1
1492 @ 11512:            PUSHI  #0x00000000
1493 @ 11517:            INIT   1
1494 @ 11520:            PUSHI  #0x00000000
1495 @ 11525:            INIT   1
1496 @ 11528:            PUSHI  #0x00000000
1497 @ 11533:            INIT   1
1498 @ 11536:            PUSHI  #0x00000000
1499 @ 11541:            INIT   1
1500 @ 11544:            PUSHI  #0x00000028
1501 @ 11549:            INIT   1
1502 @ 11552:            PUSHI  #0x00000003
1503 @ 11557:            INIT   1
1504 @ 11560:            PUSHI  #0x00000000
1505 @ 11565:            INIT   1
1506 @ 11568:            PUSHI  #0x00000000
1507 @ 11573:            INIT   1
1508 @ 11576:            PUSHI  #0x00000004
1509 @ 11581:            INIT   1
1510 @ 11584:            PUSHI  #0x00000000
1511 @ 11589:            INIT   1
1512 @ 11592:            PUSHI  #0x00000000
1513 @ 11597:            INIT   1
1514 @ 11600:            PUSHI  #0x00000000
1515 @ 11605:            INIT   1
1516 @ 11608:            PUSHI  #0x00000004
1517 @ 11613:            INIT   1
1518 @ 11616:            PUSHI  #0x00000008
1519 @ 11621:            INIT   1
1520 @ 11624:            PUSHI  #0x00000000
1521 @ 11629:            INIT   1
1522 @ 11632:            PUSHI  #0x00000001
1523 @ 11637:            INIT   1
1524 @ 11640:            PUSHI  #0x00000000
1525 @ 11645:            INIT   1
1526 @ 11648:            PUSHI  #0x00000000
1527 @ 11653:            INIT   1
1528 @ 11656:            PUSHI  #0x00000000
1529 @ 11661:            INIT   1
1530 @ 11664:            PUSHI  #0x00000000
1531 @ 11669:            INIT   1
1532 @ 11672:            PUSHI  #0x00000000
1533 @ 11677:            INIT   1
1534 @ 11680:            PUSHI  #0x00000000
1535 @ 11685:            INIT   1
1536 @ 11688:            PUSHI  #0x00000000
1537 @ 11693:            INIT   1
1538 @ 11696:            PUSHI  #0x00000000
1539 @ 11701:            INIT   1
1540 @ 11704:            PUSHI  #0x00000000
1541 @ 11709:            INIT   1
1542 @ 11712:            PUSHI  #0x00000000
1543 @ 11717:            INIT   1
1544 @ 11720:            PUSHI  #0x00000000
1545 @ 11725:            INIT   1
1546 @ 11728:            PUSHI  #0x00000028
1547 @ 11733:            INIT   1
1548 @ 11736:            PUSHI  #0x00000006
1549 @ 11741:            INIT   1
1550 @ 11744:            PUSHI  #0x0000001b
1551 @ 11749:            INIT   1
1552 @ 11752:            PUSHI  #0x00000000
1553 @ 11757:            INIT   1
1554 @ 11760:            PUSHI  #0x00000000
1555 @ 11765:            INIT   1
1556 @ 11768:            PUSHI  #0x00000000
1557 @ 11773:            INIT   1
1558 @ 11776:            PUSHI  #0x00000000
1559 @ 11781:            INIT   1
1560 @ 11784:            PUSHI  #0x00000005
1561 @ 11789:            INIT   1
1562 @ 11792:            PUSHI  #0x00000000
1563 @ 11797:            INIT   1
1564 @ 11800:            PUSHI  #0x00000000
1565 @ 11805:            INIT   1
1566 @ 11808:            PUSHI  #0x00000000
1567 @ 11813:            INIT   1
1568 @ 11816:            PUSHI  #0x00000000
1569 @ 11821:            INIT   1
1570 @ 11824:            PUSHI  #0x00000006
1571 @ 11829:            INIT   1
1572 @ 11832:            PUSHI  #0x00000000
1573 @ 11837:            INIT   1
1574 @ 11840:            PUSHI  #0x0000000e
1575 @ 11845:            INIT   1
1576 @ 11848:            PUSHI  #0x00000000
1577 @ 11853:            INIT   1
1578 @ 11856:            PUSHI  #0x00000000
1579 @ 11861:            INIT   1
1580 @ 11864:            PUSHI  #0x00000000
1581 @ 11869:            INIT   1
1582 @ 11872:            PUSHI  #0x00000002
1583 @ 11877:            INIT   1
1584 @ 11880:            PUSHI  #0x00000000
1585 @ 11885:            INIT   1
1586 @ 11888:            PUSHI  #0x00000000
1587 @ 11893:            INIT   1
1588 @ 11896:            PUSHI  #0x00000000
1589 @ 11901:            INIT   1
1590 @ 11904:            PUSHI  #0x00000000
1591 @ 11909:            INIT   1
1592 @ 11912:            PUSHI  #0x00000000
1593 @ 11917:            INIT   1
1594 @ 11920:            PUSHI  #0x00000000
1595 @ 11925:            INIT   1
1596 @ 11928:            PUSHI  #0x00000000
1597 @ 11933:            INIT   1
1598 @ 11936:            PUSHI  #0x00000000
1599 @ 11941:            INIT   1
1600 @ 11944:            PUSHI  #0x00000000
1601 @ 11949:            INIT   1
1602 @ 11952:            PUSHI  #0x00000000
1603 @ 11957:            INIT   1
1604 @ 11960:            PUSHI  #0x00000000
1605 @ 11965:            INIT   1
1606 @ 11968:            PUSHI  #0x00000000
1607 @ 11973:            INIT   1
1608 @ 11976:            PUSHI  #0x00000000
1609 @ 11981:            INIT   1
1610 @ 11984:            PUSHI  #0x00000000
1611 @ 11989:            INIT   1
1612 @ 11992:            PUSHI  #0x00000000
1613 @ 11997:            INIT   1
1614 @ 12000:            PUSHI  #0x00000000
1615 @ 12005:            INIT   1
1616 @ 12008:            PUSHI  #0x00000000
1617 @ 12013:            INIT   1
1618 @ 12016:            PUSHI  #0x00000000
1619 @ 12021:            INIT   1
1620 @ 12024:            PUSHI  #0x00000000
1621 @ 12029:            INIT   1
1622 @ 12032:            PUSHI  #0x00000000
1623 @ 12037:            INIT   1
1624 @ 12040:            PUSHI  #0x00000002
1625 @ 12045:            INIT   1
1626 @ 12048:            PUSHI  #0x00000002
1627 @ 12053:            INIT   1
1628 @ 12056:            PUSHI  #0x00000000
1629 @ 12061:            INIT   1
1630 @ 12064:            PUSHI  #0x00000000
1631 @ 12069:            INIT   1
1632 @ 12072:            PUSHI  #0x00000006
1633 @ 12077:            INIT   1
1634 @ 12080:            PUSHI  #0x00000000
1635 @ 12085:            INIT   1
1636 @ 12088:            PUSHI  #0x00000000
1637 @ 12093:            INIT   1
1638 @ 12096:            PUSHI  #0x00000000
1639 @ 12101:            INIT   1
1640 @ 12104:            PUSHI  #0x00000000
1641 @ 12109:            INIT   1
1642 @ 12112:            PUSHI  #0x00000000
1643 @ 12117:            INIT   1
1644 @ 12120:            PUSHI  #0x00000000
1645 @ 12125:            INIT   1
1646 @ 12128:            PUSHI  #0x00000000
1647 @ 12133:            INIT   1
1648 @ 12136:            PUSHI  #0x00000000
1649 @ 12141:            INIT   1
1650 @ 12144:            PUSHI  #0x00000000
1651 @ 12149:            INIT   1
1652 @ 12152:            PUSHI  #0x00000000
1653 @ 12157:            INIT   1
1654 @ 12160:            PUSHI  #0x00000000
1655 @ 12165:            INIT   1
1656 @ 12168:            PUSHI  #0x00000005
1657 @ 12173:            INIT   1
1658 @ 12176:            PUSHI  #0x00000000
1659 @ 12181:            INIT   1
1660 @ 12184:            PUSHI  #0x00000000
1661 @ 12189:            INIT   1
1662 @ 12192:            PUSHI  #0x00000000
1663 @ 12197:            INIT   1
1664 @ 12200:            PUSHI  #0x00000000
1665 @ 12205:            INIT   1
1666 @ 12208:            PUSHI  #0x00000004
1667 @ 12213:            INIT   1
1668 @ 12216:            PUSHI  #0x00000000
1669 @ 12221:            INIT   1
1670 @ 12224:            PUSHI  #0x00000000
1671 @ 12229:            INIT   1
1672 @ 12232:            PUSHI  #0x00000000
1673 @ 12237:            INIT   1
1674 @ 12240:            PUSHI  #0x00000000
1675 @ 12245:            INIT   1
1676 @ 12248:            PUSHI  #0x00000000
1677 @ 12253:            INIT   1
1678 @ 12256:            PUSHI  #0x00000000
1679 @ 12261:            INIT   1
1680 @ 12264:            PUSHI  #0x00000000
1681 @ 12269:            INIT   1
1682 @ 12272:            PUSHI  #0x00000007
1683 @ 12277:            INIT   1
1684 @ 12280:            PUSHI  #0x00000000
1685 @ 12285:            INIT   1
1686 @ 12288:            PUSHI  #0x00000000
1687 @ 12293:            INIT   1
1688 @ 12296:            PUSHI  #0x00000000
1689 @ 12301:            INIT   1
1690 @ 12304:            PUSHI  #0x00000000
1691 @ 12309:            INIT   1
1692 @ 12312:            PUSHI  #0x00000000
1693 @ 12317:            INIT   1
1694 @ 12320:            PUSHI  #0x00000000
1695 @ 12325:            INIT   1
1696 @ 12328:            PUSHI  #0x00000004
1697 @ 12333:            INIT   1
1698 @ 12336:            PUSHI  #0x00000000
1699 @ 12341:            INIT   1
1700 @ 12344:            PUSHI  #0x00000000
1701 @ 12349:            INIT   1
1702 @ 12352:            PUSHI  #0x00000004
1703 @ 12357:            INIT   1
1704 @ 12360:            PUSHI  #0x00000000
1705 @ 12365:            INIT   1
1706 @ 12368:            PUSHI  #0x00000000
1707 @ 12373:            INIT   1
1708 @ 12376:            PUSHI  #0x00000001
1709 @ 12381:            INIT   1
1710 @ 12384:            PUSHI  #0x00000004
1711 @ 12389:            INIT   1
1712 @ 12392:            PUSHI  #0x00000000
1713 @ 12397:            INIT   1
1714 @ 12400:            PUSHI  #0x00000000
1715 @ 12405:            INIT   1
1716 @ 12408:            PUSHI  #0x00000000
1717 @ 12413:            INIT   1
1718 @ 12416:            PUSHI  #0x00000000
1719 @ 12421:            INIT   1
1720 @ 12424:            PUSHI  #0x00000000
1721 @ 12429:            INIT   1
1722 @ 12432:            PUSHI  #0x00000000
1723 @ 12437:            INIT   1
1724 @ 12440:            PUSHI  #0x00000002
1725 @ 12445:            INIT   1
1726 @ 12448:            PUSHI  #0x00000000
1727 @ 12453:            INIT   1
1728 @ 12456:            PUSHI  #0x00000003
1729 @ 12461:            INIT   1
1730 @ 12464:            PUSHI  #0x00000000
1731 @ 12469:            INIT   1
1732 @ 12472:            PUSHI  #0x00000008
1733 @ 12477:            INIT   1
1734 @ 12480:            PUSHI  #0x00000002
1735 @ 12485:            INIT   1
1736 @ 12488:            PUSHI  #0x00000000
1737 @ 12493:            INIT   1
1738 @ 12496:            PUSHI  #0x00000000
1739 @ 12501:            INIT   1
1740 @ 12504:            PUSHI  #0x00000000
1741 @ 12509:            INIT   1
1742 @ 12512:            PUSHI  #0x00000000
1743 @ 12517:            INIT   1
1744 @ 12520:            PUSHI  #0x00000008
1745 @ 12525:            INIT   1
1746 @ 12528:            PUSHI  #0x00000000
1747 @ 12533:            INIT   1
1748 @ 12536:            PUSHI  #0x00000000
1749 @ 12541:            INIT   1
1750 @ 12544:            PUSHI  #0x00000000
1751 @ 12549:            INIT   1
1752 @ 12552:            PUSHI  #0x00000000
1753 @ 12557:            INIT   1
1754 @ 12560:            PUSHI  #0x00000000
1755 @ 12565:            INIT   1
1756 @ 12568:            PUSHI  #0x00000000
1757 @ 12573:            INIT   1
1758 @ 12576:            PUSHI  #0x00000001
1759 @ 12581:            INIT   1
1760 @ 12584:            PUSHI  #0x00000000
1761 @ 12589:            INIT   1
1762 @ 12592:            PUSHI  #0x00000000
1763 @ 12597:            INIT   1
1764 @ 12600:            PUSHI  #0x00000000
1765 @ 12605:            INIT   1
1766 @ 12608:            PUSHI  #0x00000000
1767 @ 12613:            INIT   1
1768 @ 12616:            PUSHI  #0x00000000
1769 @ 12621:            INIT   1
1770 @ 12624:            PUSHI  #0x00000000
1771 @ 12629:            INIT   1
1772 @ 12632:            PUSHI  #0x00000006
1773 @ 12637:            INIT   1
1774 @ 12640:            PUSHI  #0x0000000c
1775 @ 12645:            INIT   1
1776 @ 12648:            PUSHI  #0x00000000
1777 @ 12653:            INIT   1
1778 @ 12656:            PUSHI  #0x00000000
1779 @ 12661:            INIT   1
1780 @ 12664:            PUSHI  #0x00000000
1781 @ 12669:            INIT   1
1782 @ 12672:            PUSHI  #0x00000000
1783 @ 12677:            INIT   1
1784 @ 12680:            PUSHI  #0x00000000
1785 @ 12685:            INIT   1
1786 @ 12688:            PUSHI  #0x00000000
1787 @ 12693:            INIT   1
1788 @ 12696:            PUSHI  #0x00000000
1789 @ 12701:            INIT   1
1790 @ 12704:            PUSHI  #0x00000000
1791 @ 12709:            INIT   1
1792 @ 12712:            PUSHI  #0x00000000
1793 @ 12717:            INIT   1
1794 @ 12720:            PUSHI  #0x00000000
1795 @ 12725:            INIT   1
1796 @ 12728:            PUSHI  #0x00000000
1797 @ 12733:            INIT   1
1798 @ 12736:            PUSHI  #0x00000005
1799 @ 12741:            INIT   1
1800 @ 12744:            PUSHI  #0x00000000
1801 @ 12749:            INIT   1
1802 @ 12752:            PUSHI  #0x00000000
1803 @ 12757:            INIT   1
1804 @ 12760:            PUSHI  #0x00000000
1805 @ 12765:            INIT   1
1806 @ 12768:            PUSHI  #0x00000000
1807 @ 12773:            INIT   1
1808 @ 12776:            PUSHI  #0x00000005
1809 @ 12781:            INIT   1
1810 @ 12784:            PUSHI  #0x00000000
1811 @ 12789:            INIT   1
1812 @ 12792:            PUSHI  #0x00000000
1813 @ 12797:            INIT   1
1814 @ 12800:            PUSHI  #0x00000000
1815 @ 12805:            INIT   1
1816 @ 12808:            PUSHI  #0x00000000
1817 @ 12813:            INIT   1
1818 @ 12816:            PUSHI  #0x00000003
1819 @ 12821:            INIT   1
1820 @ 12824:            PUSHI  #0x00000000
1821 @ 12829:            INIT   1
1822 @ 12832:            PUSHI  #0x00000000
1823 @ 12837:            INIT   1
1824 @ 12840:            PUSHI  #0x00000000
1825 @ 12845:            INIT   1
1826 @ 12848:            PUSHI  #0x00000000
1827 @ 12853:            INIT   1
1828 @ 12856:            PUSHI  #0x00000000
1829 @ 12861:            INIT   1
1830 @ 12864:            PUSHI  #0x00000000
1831 @ 12869:            INIT   1
1832 @ 12872:            PUSHI  #0x00000000
1833 @ 12877:            INIT   1
1834 @ 12880:            PUSHI  #0x00000004
1835 @ 12885:            INIT   1
1836 @ 12888:            PUSHI  #0x0000001e
1837 @ 12893:            INIT   1
1838 @ 12896:            PUSHI  #0x00000000
1839 @ 12901:            INIT   1
1840 @ 12904:            PUSHI  #0x00000000
1841 @ 12909:            INIT   1
1842 @ 12912:            PUSHI  #0x00000006
1843 @ 12917:            INIT   1
1844 @ 12920:            PUSHI  #0x00000000
1845 @ 12925:            INIT   1
1846 @ 12928:            PUSHI  #0x00000000
1847 @ 12933:            INIT   1
1848 @ 12936:            PUSHI  #0x00000000
1849 @ 12941:            INIT   1
1850 @ 12944:            PUSHI  #0x00000000
1851 @ 12949:            INIT   1
1852 @ 12952:            PUSHI  #0x00000000
1853 @ 12957:            INIT   1
1854 @ 12960:            PUSHI  #0x00000006
1855 @ 12965:            INIT   1
1856 @ 12968:            PUSHI  #0x00000000
1857 @ 12973:            INIT   1
1858 @ 12976:            PUSHI  #0x00000000
1859 @ 12981:            INIT   1
1860 @ 12984:            PUSHI  #0x00000000
1861 @ 12989:            INIT   1
1862 @ 12992:            PUSHI  #0x00000000
1863 @ 12997:            INIT   1
1864 @ 13000:            PUSHI  #0x00000028
1865 @ 13005:            INIT   1
1866 @ 13008:            PUSHI  #0x00000005
1867 @ 13013:            INIT   1
1868 @ 13016:            PUSHI  #0x00000000
1869 @ 13021:            INIT   1
1870 @ 13024:            PUSHI  #0x00000000
1871 @ 13029:            INIT   1
1872 @ 13032:            PUSHI  #0x00000000
1873 @ 13037:            INIT   1
1874 @ 13040:            PUSHI  #0x00000001
1875 @ 13045:            INIT   1
1876 @ 13048:            PUSHI  #0x00000004
1877 @ 13053:            INIT   1
1878 @ 13056:            PUSHI  #0x00000000
1879 @ 13061:            INIT   1
1880 @ 13064:            PUSHI  #0x00000000
1881 @ 13069:            INIT   1
1882 @ 13072:            PUSHI  #0x00000000
1883 @ 13077:            INIT   1
1884 @ 13080:            PUSHI  #0x00000000
1885 @ 13085:            INIT   1
1886 @ 13088:            PUSHI  #0x00000000
1887 @ 13093:            INIT   1
1888 @ 13096:            PUSHI  #0x00000000
1889 @ 13101:            INIT   1
1890 @ 13104:            PUSHI  #0x00000000
1891 @ 13109:            INIT   1
1892 @ 13112:            PUSHI  #0x00000000
1893 @ 13117:            INIT   1
1894 @ 13120:            PUSHI  #0x00000000
1895 @ 13125:            INIT   1
1896 @ 13128:            PUSHI  #0x00000004
1897 @ 13133:            INIT   1
1898 @ 13136:            PUSHI  #0x00000000
1899 @ 13141:            INIT   1
1900 @ 13144:            PUSHI  #0x00000000
1901 @ 13149:            INIT   1
1902 @ 13152:            PUSHI  #0x00000000
1903 @ 13157:            INIT   1
1904 @ 13160:            PUSHI  #0x00000000
1905 @ 13165:            INIT   1
1906 @ 13168:            PUSHI  #0x00000000
1907 @ 13173:            INIT   1
1908 @ 13176:            PUSHI  #0x00000000
1909 @ 13181:            INIT   1
1910 @ 13184:            PUSHI  #0x00000000
1911 @ 13189:            INIT   1
1912 @ 13192:            PUSHI  #0x00000000
1913 @ 13197:            INIT   1
1914 @ 13200:            PUSHI  #0x00000004
1915 @ 13205:            INIT   1
1916 @ 13208:            PUSHI  #0x00000000
1917 @ 13213:            INIT   1
1918 @ 13216:            PUSHI  #0x00000000
1919 @ 13221:            INIT   1
1920 @ 13224:            PUSHI  #0x00000001
1921 @ 13229:            INIT   1
1922 @ 13232:            PUSHI  #0x00000000
1923 @ 13237:            INIT   1
1924 @ 13240:            PUSHI  #0x00000000
1925 @ 13245:            INIT   1
1926 @ 13248:            PUSHI  #0x00000000
1927 @ 13253:            INIT   1
1928 @ 13256:            PUSHI  #0x00000000
1929 @ 13261:            INIT   1
1930 @ 13264:            PUSHI  #0x00000000
1931 @ 13269:            INIT   1
1932 @ 13272:            PUSHI  #0x00000005
1933 @ 13277:            INIT   1
1934 @ 13280:            PUSHI  #0x00000000
1935 @ 13285:            INIT   1
1936 @ 13288:            PUSHI  #0x00000000
1937 @ 13293:            INIT   1
1938 @ 13296:            PUSHI  #0x00000000
1939 @ 13301:            INIT   1
1940 @ 13304:            PUSHI  #0x00000001
1941 @ 13309:            INIT   1
1942 @ 13312:            PUSHI  #0x00000000
1943 @ 13317:            INIT   1
1944 @ 13320:            PUSHI  #0x00000000
1945 @ 13325:            INIT   1
1946 @ 13328:            PUSHI  #0x00000000
1947 @ 13333:            INIT   1
1948 @ 13336:            PUSHI  #0x00000001
1949 @ 13341:            INIT   1
1950 @ 13344:            PUSHI  #0x00000000
1951 @ 13349:            INIT   1
1952 @ 13352:            PUSHI  #0x00000000
1953 @ 13357:            INIT   1
1954 @ 13360:            PUSHI  #0x00000000
1955 @ 13365:            INIT   1
1956 @ 13368:            PUSHI  #0x00000000
1957 @ 13373:            INIT   1
1958 @ 13376:            PUSHI  #0x00000000
1959 @ 13381:            INIT   1

   296  %constinteger TERMINATOR=52, CONST=53, IDENT=54,
   297                AREF=55, RECREF=56,
   298                MODSIGN=57,
   299                COLON=58, COMMA=59, RIGHT=60, RIGHTBRACKET=61,
   300                DUD=63
   301  
   302  !Operators (in banks of 8 acc to rank)
1960 @ 13384:            LINE   296 "regression-compile-tmp/chimp.imp"

   303  %constinteger BOOLAND=64, BOOLOR=65, BOOLNOT=66,
   304                FLOAT=67, IMOD=68, FMOD=69
1961 @ 13420:            LINE   303 "regression-compile-tmp/chimp.imp"

   305  %constinteger EQUALS=70, NOTEQ=71, LESSEQ=72,
   306                LESS=73, GREATEQ=74, GREATER=75,
   307                EQEQ=76, NOTEQEQ=77, RESOLVE=79
1962 @ 13456:            LINE   305 "regression-compile-tmp/chimp.imp"

   308  %constinteger PLUS=80, MINUS=81, LOGOR=82,
   309                LOGXOR=83, CONCAT=84
1963 @ 13492:            LINE   308 "regression-compile-tmp/chimp.imp"

   310  %constinteger MULT=88, FDIV=89, IDIV=90,
   311                LOGAND=91
1964 @ 13528:            LINE   310 "regression-compile-tmp/chimp.imp"

   312  %constinteger FPOWER=96, IPOWER=97,
   313                LSHIFT=100, RSHIFT=101, LOGNOT=102
1965 @ 13564:            LINE   312 "regression-compile-tmp/chimp.imp"

   314  %constinteger FCALL=106, MCALL=107
1966 @ 13600:            LINE   314 "regression-compile-tmp/chimp.imp"

   315  %constinteger ATOMMAX=107
   316  
   317  ! Instruction actions:
1967 @ 13636:            LINE   315 "regression-compile-tmp/chimp.imp"

   318  %constinteger swgoto=35, rcall=mcall+2,
   319                assign=41, jamassign=42, plusass=43,
   320                compare=44, jump=45, label=46, adecl=47
1968 @ 13672:            LINE   318 "regression-compile-tmp/chimp.imp"

   321  %constinteger actmax=49
   322  !
   323  !Branch cases ( = machine condition-code)
1969 @ 13708:            LINE   321 "regression-compile-tmp/chimp.imp"

   324  %constinteger EQ=2_0111, NE=2_0110,
   325                GT=2_1110, LE=2_1111,
   326                LT=2_1101, GE=2_1100,
   327                CC=2_0100, CS=2_0101
1970 @ 13744:            LINE   324 "regression-compile-tmp/chimp.imp"

   328  %constinteger DOUBLE=16
   329  
   330  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   331  ! Perm procedure identifiers which are recognised explicitly and
   332  !  either implemented in-line or mapped to system entry-point
1971 @ 13780:            LINE   328 "regression-compile-tmp/chimp.imp"

   333  %constinteger DSHORT=dictmin+6, DLENGTH=dshort+1, DCHARNO=dlength+1,
   334                DADDR=dcharno+1, DTOSTR=daddr+1,
   335                DREM=dtostr+1,
   336                DNEXTSYM=drem+1, DREADSYM=dnextsym+1,
   337                DPRINTSTR=dreadsym+3,
   338                DREAD=dictmin+27,
   339                DNEWLINE=dictmin+41
   340  !System entry-points used explicitly
1972 @ 13816:            LINE   333 "regression-compile-tmp/chimp.imp"

   341  %constinteger SIGENTRY=16_1114, SCOMPENTRY=16_1128,
   342                BOUNDENTRY=16_1134, AGETENTRY=16_1138,
   343                INDEXENTRY=16_113C, IREADENTRY=16_1118
   344  
   345  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   346  
1973 @ 13852:            LINE   341 "regression-compile-tmp/chimp.imp"

   347  %owninteger STARTS=0, CYCLES=0
1974 @ 13888:            LINE   347 "regression-compile-tmp/chimp.imp"
1975 @ 13924:            PUSHI  #0x00000000
1976 @ 13929:            DEF    STARTS p1=V_00af a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
1977 @ 13947:            INIT   1
1978 @ 13950:            PUSHI  #0x00000000
1979 @ 13955:            DEF    CYCLES p1=V_00b0 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
1980 @ 13973:            INIT   1

   348  %owninteger LOOPLAB=0
1981 @ 13976:            LINE   348 "regression-compile-tmp/chimp.imp"
1982 @ 14012:            PUSHI  #0x00000000
1983 @ 14017:            DEF    LOOPLAB p1=V_00b1 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
1984 @ 14036:            INIT   1

   349  %owninteger CURLAB=lab1
   350  !
1985 @ 14039:            LINE   349 "regression-compile-tmp/chimp.imp"
1986 @ 14075:            PUSHI  #0x00000ca3
1987 @ 14080:            DEF    CURLAB p1=V_00b2 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
1988 @ 14098:            INIT   1

   351  %recordformat BLOCKINF(%integer sp, delta, fortemps, flags, type,
   352                    localdpos, parlim, localtext, localpc,
   353                    localspc, pidpos, access, forward, events,
   354                    eventpc, faults, return, shorts)
   355  !Flag bits (VAR=1 from D_FLAGS)
1989 @ 14101:            LINE   351 "regression-compile-tmp/chimp.imp"
1990 @ 14137:            DEF    BLOCKINF p1=V_00b3 a/tf=44 b/format=b3 c/ostate=0  type=4 (record) form=4 (record-format) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
1991 @ 14157:            START  ( RECORDFORMAT
1992 @ 14158:               DEF    SP p1=V_0000 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
1993 @ 14172:               DEF    DELTA p1=V_0000 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
1994 @ 14189:               DEF    FORTEMPS p1=V_0000 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
1995 @ 14209:               DEF    FLAGS p1=V_0000 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
1996 @ 14226:               DEF    TYPE p1=V_0000 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
1997 @ 14242:               DEF    LOCALDPOS p1=V_0000 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
1998 @ 14263:               DEF    PARLIM p1=V_0000 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
1999 @ 14281:               DEF    LOCALTEXT p1=V_0000 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2000 @ 14302:               DEF    LOCALPC p1=V_0000 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2001 @ 14321:               DEF    LOCALSPC p1=V_0000 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2002 @ 14341:               DEF    PIDPOS p1=V_0000 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2003 @ 14359:               DEF    ACCESS p1=V_0000 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2004 @ 14377:               DEF    FORWARD p1=V_0000 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2005 @ 14396:               DEF    EVENTS p1=V_0000 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2006 @ 14414:               DEF    EVENTPC p1=V_0000 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2007 @ 14433:               DEF    FAULTS p1=V_0000 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2008 @ 14451:               DEF    RETURN p1=V_0000 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2009 @ 14469:               DEF    SHORTS p1=V_0000 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2010 @ 14487:            FINISH ) 

   356  %constinteger WRONGCC=2, NONLOCALREF=4, DYNARRAY=8
2011 @ 14488:            LINE   356 "regression-compile-tmp/chimp.imp"

   357  %constinteger HADON=16_10, HADINST=16_20
   358  
2012 @ 14524:            LINE   357 "regression-compile-tmp/chimp.imp"

   359  %constinteger OUTERLEVEL=0, MAXLEVEL=16
2013 @ 14560:            LINE   359 "regression-compile-tmp/chimp.imp"

   360  %owninteger LEVEL=outerlevel;        !current block level
2014 @ 14596:            LINE   360 "regression-compile-tmp/chimp.imp"
2015 @ 14632:            PUSHI  #0x00000000
2016 @ 14637:            DEF    LEVEL p1=V_00b4 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
2017 @ 14654:            INIT   1

   361  %record(blockinf) C;                !info for current block
2018 @ 14657:            LINE   361 "regression-compile-tmp/chimp.imp"
2019 @ 14693:            DEF    C p1=V_00b5 a/tf=41 b/format=b3 c/ostate=0  type=4 (record) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   362  %record(blockinf)%array HOLD(0:maxlevel-1); !info for global blocks
   363  
   364  ! Final core image
2020 @ 14706:            LINE   362 "regression-compile-tmp/chimp.imp"
2021 @ 14742:            DEF    HOLD p1=V_00b6 a/tf=4b b/format=b3 c/ostate=100  type=4 (record) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2022 @ 14758:            PUSHI  #0x00000000
2023 @ 14763:            PUSHI  #0x00000010
2024 @ 14768:            PUSHI  #0x00000001
2025 @ 14773:            SUB   
2026 @ 14774:            DIM    0001 0001

   365  %constinteger PUREBOUND=0, OWNBASE=purebound+1,
   366                FINALBOUND=ownbase+8191
2027 @ 14780:            LINE   365 "regression-compile-tmp/chimp.imp"

   367  %byteintegerarray FINAL(0:finalbound);  !for switch info only
2028 @ 14816:            LINE   367 "regression-compile-tmp/chimp.imp"
2029 @ 14852:            DEF    FINAL p1=V_00b7 a/tf=1b b/format=2 c/ostate=100  type=1 (integer) form=11 (array) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
2030 @ 14869:            PUSHI  #0x00000000
2031 @ 14874:            PUSHI  #0x00002000
2032 @ 14879:            DIM    0001 0001

   368  %owninteger FINALAD=2, OWNAD=ownbase
   369  !%owninteger FIRSTENTRY=finalbound, FIRSTDPOS=dictmax
   370  !%ownintegername CONSTAD;  !== ownad or finalad
   371  !%owninteger CONSTBOUND=purebound;   !for const/code
   372  !                     =finalbound;  !for own
2033 @ 14885:            LINE   368 "regression-compile-tmp/chimp.imp"
2034 @ 14921:            PUSHI  #0x00000002
2035 @ 14926:            DEF    FINALAD p1=V_00b8 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
2036 @ 14945:            INIT   1
2037 @ 14948:            PUSHI  #0x00000001
2038 @ 14953:            DEF    OWNAD p1=V_00b9 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
2039 @ 14970:            INIT   1

   373  %owninteger PC=0, SPC=finalbound;  !for switch info
   374  
   375  !Recognition:-
2040 @ 14973:            LINE   373 "regression-compile-tmp/chimp.imp"
2041 @ 15009:            PUSHI  #0x00000000
2042 @ 15014:            DEF    PC p1=V_00ba a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
2043 @ 15028:            INIT   1
2044 @ 15031:            PUSHI  #0x00002000
2045 @ 15036:            DEF    SPC p1=V_00bb a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
2046 @ 15051:            INIT   1

   376  %constinteger CASEMASK=95, CASEBIT=32; !for case conversion
   377  
   378  !Memo variables for current statement:-
2047 @ 15054:            LINE   376 "regression-compile-tmp/chimp.imp"

   379  %owninteger ITEM=0;          !current operand
2048 @ 15090:            LINE   379 "regression-compile-tmp/chimp.imp"
2049 @ 15126:            PUSHI  #0x00000000
2050 @ 15131:            DEF    ITEM p1=V_00bc a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
2051 @ 15147:            INIT   1

   380  %record(objinfo) T;          !full typeinfo for ITEM
2052 @ 15150:            LINE   380 "regression-compile-tmp/chimp.imp"
2053 @ 15186:            DEF    T p1=V_00bd a/tf=41 b/format=99 c/ostate=0  type=4 (record) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   381  %record(identinfo)%name DITEM
2054 @ 15199:            LINE   381 "regression-compile-tmp/chimp.imp"
2055 @ 15235:            DEF    DITEM p1=V_00be a/tf=42 b/format=9a c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   382  %owninteger ELEMENTS; !range details
2056 @ 15252:            LINE   382 "regression-compile-tmp/chimp.imp"
2057 @ 15288:            DEF    ELEMENTS p1=V_00bf a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
2058 @ 15308:            INIT   1

   383  %owninteger HASH
2059 @ 15311:            LINE   383 "regression-compile-tmp/chimp.imp"
2060 @ 15347:            DEF    HASH p1=V_00c0 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
2061 @ 15363:            INIT   1

   384  %owninteger SPECCING=0, MCODING=0
2062 @ 15366:            LINE   384 "regression-compile-tmp/chimp.imp"
2063 @ 15402:            PUSHI  #0x00000000
2064 @ 15407:            DEF    SPECCING p1=V_00c1 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
2065 @ 15427:            INIT   1
2066 @ 15430:            PUSHI  #0x00000000
2067 @ 15435:            DEF    MCODING p1=V_00c2 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
2068 @ 15454:            INIT   1

   385  %owninteger DECLMODE, DSIZE
2069 @ 15457:            LINE   385 "regression-compile-tmp/chimp.imp"
2070 @ 15493:            DEF    DECLMODE p1=V_00c3 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
2071 @ 15513:            INIT   1
2072 @ 15516:            DEF    DSIZE p1=V_00c4 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
2073 @ 15533:            INIT   1

   386  %ownrecord(identinfo) D;            !declaration details
   387  
   388  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   389  
   390  !!  Source file input and listing
2074 @ 15536:            LINE   386 "regression-compile-tmp/chimp.imp"
2075 @ 15572:            DEF    D p1=V_00c5 a/tf=41 b/format=9a c/ostate=21  type=4 (record) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
2076 @ 15585:            INIT   1

   391  %owninteger ATOM=0;                 !current lexical atom
2077 @ 15588:            LINE   391 "regression-compile-tmp/chimp.imp"
2078 @ 15624:            PUSHI  #0x00000000
2079 @ 15629:            DEF    ATOM p1=V_00c6 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
2080 @ 15645:            INIT   1

   392  %owninteger MATCHED=1;              !indic that atom has been matched
2081 @ 15648:            LINE   392 "regression-compile-tmp/chimp.imp"
2082 @ 15684:            PUSHI  #0x00000001
2083 @ 15689:            DEF    MATCHED p1=V_00c7 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
2084 @ 15708:            INIT   1

   393  %owninteger SYM=nl;                 !current input symbol
2085 @ 15711:            LINE   393 "regression-compile-tmp/chimp.imp"
2086 @ 15747:            PUSHI  #0x0000000a
2087 @ 15752:            DEF    SYM p1=V_00c8 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
2088 @ 15767:            INIT   1

   394  %owninteger LINE=0;                 !current line number
2089 @ 15770:            LINE   394 "regression-compile-tmp/chimp.imp"
2090 @ 15806:            PUSHI  #0x00000000
2091 @ 15811:            DEF    LINE p1=V_00c9 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
2092 @ 15827:            INIT   1

   395  %owninteger MAINLINE=0
2093 @ 15830:            LINE   395 "regression-compile-tmp/chimp.imp"
2094 @ 15866:            PUSHI  #0x00000000
2095 @ 15871:            DEF    MAINLINE p1=V_00ca a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
2096 @ 15891:            INIT   1

   396  %owninteger DIAGLINE=-9999
2097 @ 15894:            LINE   396 "regression-compile-tmp/chimp.imp"
2098 @ 15930:            PUSHI  #0xffffd8f1
2099 @ 15935:            DEF    DIAGLINE p1=V_00cb a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
2100 @ 15955:            INIT   1

   397  %owninteger PROLINE=0
2101 @ 15958:            LINE   397 "regression-compile-tmp/chimp.imp"
2102 @ 15994:            PUSHI  #0x00000000
2103 @ 15999:            DEF    PROLINE p1=V_00cc a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
2104 @ 16018:            INIT   1

   398  %owninteger MODESYM='&';            !space or '+' or '&' or '"'
   399  !%owninteger OUTCOL=0;               !output line position
   400  !   Pointers to source file:
2105 @ 16021:            LINE   398 "regression-compile-tmp/chimp.imp"
2106 @ 16057:            PUSHI  #0x00000026
2107 @ 16062:            DEF    MODESYM p1=V_00cd a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
2108 @ 16081:            INIT   1

   401  %owninteger LINESTART=0
2109 @ 16084:            LINE   401 "regression-compile-tmp/chimp.imp"
2110 @ 16120:            PUSHI  #0x00000000
2111 @ 16125:            DEF    LINESTART p1=V_00ce a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
2112 @ 16146:            INIT   1

   402  %owninteger FP=0;                   !(file pointer) current position
2113 @ 16149:            LINE   402 "regression-compile-tmp/chimp.imp"
2114 @ 16185:            PUSHI  #0x00000000
2115 @ 16190:            DEF    FP p1=V_00cf a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
2116 @ 16204:            INIT   1

   403  %owninteger CHARS=0
2117 @ 16207:            LINE   403 "regression-compile-tmp/chimp.imp"
2118 @ 16243:            PUSHI  #0x00000000
2119 @ 16248:            DEF    CHARS p1=V_00d0 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
2120 @ 16265:            INIT   1

   404  %owninteger ATOMP=0;                !start of current atom
2121 @ 16268:            LINE   404 "regression-compile-tmp/chimp.imp"
2122 @ 16304:            PUSHI  #0x00000000
2123 @ 16309:            DEF    ATOMP p1=V_00d1 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
2124 @ 16326:            INIT   1

   405  %owninteger FAULTP=0;               !fault position
2125 @ 16329:            LINE   405 "regression-compile-tmp/chimp.imp"
2126 @ 16365:            PUSHI  #0x00000000
2127 @ 16370:            DEF    FAULTP p1=V_00d2 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
2128 @ 16388:            INIT   1

   406  %owninteger MAINFP
2129 @ 16391:            LINE   406 "regression-compile-tmp/chimp.imp"
2130 @ 16427:            DEF    MAINFP p1=V_00d3 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
2131 @ 16445:            INIT   1

   407  %owninteger STRINGP,EXPP
2132 @ 16448:            LINE   407 "regression-compile-tmp/chimp.imp"
2133 @ 16484:            DEF    STRINGP p1=V_00d4 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
2134 @ 16503:            INIT   1
2135 @ 16506:            DEF    EXPP p1=V_00d5 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
2136 @ 16522:            INIT   1

   408  %owninteger listout=0
   409  !
   410  !! Listing, diagnostic and report routines
   411  !
2137 @ 16525:            LINE   408 "regression-compile-tmp/chimp.imp"
2138 @ 16561:            PUSHI  #0x00000000
2139 @ 16566:            DEF    LISTOUT p1=V_00d6 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
2140 @ 16585:            INIT   1

   412  %ownstring(255) rep=""
   413  !
2141 @ 16588:            LINE   412 "regression-compile-tmp/chimp.imp"
2142 @ 16624:            PUSHS  ""
2143 @ 16626:            DEF    REP p1=V_00d7 a/tf=31 b/format=ff c/ostate=21  type=3 (string) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
2144 @ 16641:            INIT   1

   414  %routine NEWLINE
2145 @ 16644:            LINE   414 "regression-compile-tmp/chimp.imp"
2146 @ 16680:            DEF    NEWLINE (_ECCECI_NEWLINE) p1=V_00d8 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
2147 @ 16699:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
2148 @ 16700:               FINISH ) {lev=2}

   415    print string(rep);  print symbol(nl)
2149 @ 16701:               LINE   415 "regression-compile-tmp/chimp.imp"
2150 @ 16737:               PUSH   PRINTSTRING
2151 @ 16740:               PUSH   REP
2152 @ 16743:               ASSPAR
2153 @ 16744:               CALL  
2154 @ 16745:               LINE   415 "regression-compile-tmp/chimp.imp"
2155 @ 16781:               PUSH   PRINTSYMBOL
2156 @ 16784:               PUSHI  #0x0000000a
2157 @ 16789:               ASSPAR
2158 @ 16790:               CALL  

   416    rep = ""
2159 @ 16791:               LINE   416 "regression-compile-tmp/chimp.imp"
2160 @ 16827:               PUSH   REP
2161 @ 16830:               PUSHS  ""
2162 @ 16832:               ASSVAL

   417  %end
   418  !
2163 @ 16833:               LINE   417 "regression-compile-tmp/chimp.imp"
2164 @ 16869:            END    _ECCECI_NEWLINE {lev=2 --> 1}

   419  %routine PUT SYM(%integer k)
2165 @ 16870:            LINE   419 "regression-compile-tmp/chimp.imp"
2166 @ 16906:            DEF    PUTSYM (_ECCECI_PUTSYM) p1=V_00d9 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
2167 @ 16924:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
2168 @ 16925:                  DEF    K p1=V_00da a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2169 @ 16938:               FINISH ) {lev=2}

   420    rep = rep.tostring(k) %if length(rep) < 132
2170 @ 16939:               LINE   420 "regression-compile-tmp/chimp.imp"
2171 @ 16975:               PUSH   LENGTH
2172 @ 16978:               PUSH   REP
2173 @ 16981:               ASSPAR
2174 @ 16982:               CALL  
2175 @ 16983:               PUSHI  #0x00000084
2176 @ 16988:               JUMPIF >= L_0004
2177 @ 16992:               PUSH   REP
2178 @ 16995:               PUSH   REP
2179 @ 16998:               PUSH   TOSTRING
2180 @ 17001:               PUSH   K
2181 @ 17004:               ASSPAR
2182 @ 17005:               CALL  
2183 @ 17006:               CONCAT
2184 @ 17007:               ASSVAL
2185 @ 17008:               LOCATE L_0004

   421  %end
   422  !
2186 @ 17011:               LINE   421 "regression-compile-tmp/chimp.imp"
2187 @ 17047:            END    _ECCECI_PUTSYM {lev=2 --> 1}

   423  %routine PRINT STRING(%string(255) s)
2188 @ 17048:            LINE   423 "regression-compile-tmp/chimp.imp"
2189 @ 17084:            DEF    PRINTSTRING (_ECCECI_PRINTSTRING) p1=V_00da 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
2190 @ 17107:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
2191 @ 17108:                  DEF    S p1=V_00db a/tf=31 b/format=ff c/ostate=0  type=3 (string) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2192 @ 17121:               FINISH ) {lev=2}

   424    rep = rep.s %if length(rep) < 132
2193 @ 17122:               LINE   424 "regression-compile-tmp/chimp.imp"
2194 @ 17158:               PUSH   LENGTH
2195 @ 17161:               PUSH   REP
2196 @ 17164:               ASSPAR
2197 @ 17165:               CALL  
2198 @ 17166:               PUSHI  #0x00000084
2199 @ 17171:               JUMPIF >= L_0004
2200 @ 17175:               PUSH   REP
2201 @ 17178:               PUSH   REP
2202 @ 17181:               PUSH   S
2203 @ 17184:               CONCAT
2204 @ 17185:               ASSVAL
2205 @ 17186:               LOCATE L_0004

   425  %end
   426  !
2206 @ 17189:               LINE   425 "regression-compile-tmp/chimp.imp"
2207 @ 17225:            END    _ECCECI_PRINTSTRING {lev=2 --> 1}

   427  %routine SPACES(%integer n)
2208 @ 17226:            LINE   427 "regression-compile-tmp/chimp.imp"
2209 @ 17262:            DEF    SPACES (_ECCECI_SPACES) p1=V_00db 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
2210 @ 17280:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
2211 @ 17281:                  DEF    N p1=V_00dc a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2212 @ 17294:               FINISH ) {lev=2}

   428    %while n > 0 %cycle
2213 @ 17295:               LINE   428 "regression-compile-tmp/chimp.imp"
2214 @ 17331:               LOCATE L_0003
2215 @ 17334:               PUSH   N
2216 @ 17337:               PUSHI  #0x00000000
2217 @ 17342:               JUMPIF <= L_0004

   429      rep = rep." ";  n = n-1
2218 @ 17346:               LINE   429 "regression-compile-tmp/chimp.imp"
2219 @ 17382:               PUSH   REP
2220 @ 17385:               PUSH   REP
2221 @ 17388:               PUSHS  " "
2222 @ 17391:               CONCAT
2223 @ 17392:               ASSVAL
2224 @ 17393:               LINE   429 "regression-compile-tmp/chimp.imp"
2225 @ 17429:               PUSH   N
2226 @ 17432:               PUSH   N
2227 @ 17435:               PUSHI  #0x00000001
2228 @ 17440:               SUB   
2229 @ 17441:               ASSVAL

   430    %repeat
2230 @ 17442:               LINE   430 "regression-compile-tmp/chimp.imp"
2231 @ 17478:               REPEAT L_0003
2232 @ 17481:               LOCATE L_0004

   431  %end
   432  !
2233 @ 17484:               LINE   431 "regression-compile-tmp/chimp.imp"
2234 @ 17520:            END    _ECCECI_SPACES {lev=2 --> 1}

   433  %routine WRITE(%integer val,p)
2235 @ 17521:            LINE   433 "regression-compile-tmp/chimp.imp"
2236 @ 17557:            DEF    WRITE (_ECCECI_WRITE) p1=V_00dc 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
2237 @ 17574:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
2238 @ 17575:                  DEF    VAL p1=V_00dd a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2239 @ 17590:                  DEF    P p1=V_00de a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2240 @ 17603:               FINISH ) {lev=2}

   434  %routine PD(%integer v)
2241 @ 17604:               LINE   434 "regression-compile-tmp/chimp.imp"
2242 @ 17640:               DEF    PD (_ECCECI_WRITE_PD) p1=V_00df 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
2243 @ 17654:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
2244 @ 17655:                     DEF    V p1=V_00e0 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2245 @ 17668:                  FINISH ) {lev=3}

   435    p = p-1
2246 @ 17669:                  LINE   435 "regression-compile-tmp/chimp.imp"
2247 @ 17705:                  PUSH   P
2248 @ 17708:                  PUSH   P
2249 @ 17711:                  PUSHI  #0x00000001
2250 @ 17716:                  SUB   
2251 @ 17717:                  ASSVAL

   436    pd(v//10) %and v = v-v//10*10 %if v <= -10
2252 @ 17718:                  LINE   436 "regression-compile-tmp/chimp.imp"
2253 @ 17754:                  PUSH   V
2254 @ 17757:                  PUSHI  #0x0000000a
2255 @ 17762:                  NEGATE
2256 @ 17763:                  JUMPIF > L_0004
2257 @ 17767:                  PUSH   PD
2258 @ 17770:                  PUSH   V
2259 @ 17773:                  PUSHI  #0x0000000a
2260 @ 17778:                  QUOT  
2261 @ 17779:                  ASSPAR
2262 @ 17780:                  CALL  
2263 @ 17781:                  PUSH   V
2264 @ 17784:                  PUSH   V
2265 @ 17787:                  PUSH   V
2266 @ 17790:                  PUSHI  #0x0000000a
2267 @ 17795:                  QUOT  
2268 @ 17796:                  PUSHI  #0x0000000a
2269 @ 17801:                  MUL   
2270 @ 17802:                  SUB   
2271 @ 17803:                  ASSVAL
2272 @ 17804:                  LOCATE L_0004

   437    spaces(p) %and p = 0 %if p > 0
2273 @ 17807:                  LINE   437 "regression-compile-tmp/chimp.imp"
2274 @ 17843:                  PUSH   P
2275 @ 17846:                  PUSHI  #0x00000000
2276 @ 17851:                  JUMPIF <= L_0004
2277 @ 17855:                  PUSH   SPACES
2278 @ 17858:                  PUSH   P
2279 @ 17861:                  ASSPAR
2280 @ 17862:                  CALL  
2281 @ 17863:                  PUSH   P
2282 @ 17866:                  PUSHI  #0x00000000
2283 @ 17871:                  ASSVAL
2284 @ 17872:                  LOCATE L_0004

   438    put sym('0'-v)
2285 @ 17875:                  LINE   438 "regression-compile-tmp/chimp.imp"
2286 @ 17911:                  PUSH   PUTSYM
2287 @ 17914:                  PUSHI  #0x00000030
2288 @ 17919:                  PUSH   V
2289 @ 17922:                  SUB   
2290 @ 17923:                  ASSPAR
2291 @ 17924:                  CALL  

   439  %end
2292 @ 17925:                  LINE   439 "regression-compile-tmp/chimp.imp"
2293 @ 17961:               END    _ECCECI_WRITE_PD {lev=3 --> 2}

   440    %if val < 0 %start
2294 @ 17962:               LINE   440 "regression-compile-tmp/chimp.imp"
2295 @ 17998:               PUSH   VAL
2296 @ 18001:               PUSHI  #0x00000000
2297 @ 18006:               JUMPIF >= L_0004

   441      put sym('-');  pd(val)
2298 @ 18010:               LINE   441 "regression-compile-tmp/chimp.imp"
2299 @ 18046:               PUSH   PUTSYM
2300 @ 18049:               PUSHI  #0x0000002d
2301 @ 18054:               ASSPAR
2302 @ 18055:               CALL  
2303 @ 18056:               LINE   441 "regression-compile-tmp/chimp.imp"
2304 @ 18092:               PUSH   PD
2305 @ 18095:               PUSH   VAL
2306 @ 18098:               ASSPAR
2307 @ 18099:               CALL  

   442    %finish %else pd(-val)
2308 @ 18100:               LINE   442 "regression-compile-tmp/chimp.imp"
2309 @ 18136:               GOTO   L_0003
2310 @ 18139:               LOCATE L_0004
2311 @ 18142:               PUSH   PD
2312 @ 18145:               PUSH   VAL
2313 @ 18148:               NEGATE
2314 @ 18149:               ASSPAR
2315 @ 18150:               CALL  
2316 @ 18151:               LOCATE L_0003

   443  %end
   444  
   445  !%routine put ident(%integer t)
   446  !  rep = rep.string(charbase+t)
   447  !!%integer l
   448  !  t = t+charbase
   449  !  l = byteinteger(t);  l = 11 %if l > 11
   450  !  %while l > 0 %cycle
   451  !    l = l-1;  t = t+1
   452  !    put sym(byteinteger(t))
   453  !  %repeat
   454  !%end
   455  !
   456  !%routine mark at(%integer col)
   457  !  put sym(' ') %while outcol < col;  put sym('|')
   458  !%end
   459  !
   460  !%routine show dict(%integer from)
   461  !%integer f,i
   462  !%record(identinfo) d
   463  !%constbyteintegerarray flagsym(0:7) =
   464  !  'V','L','P','O','S','E', 'A', 'M'
   465  !%constbyteintegerarray dsym(0:3) =
   466  !  ' ','D','I','!'
   467  !%conststring(6)%array typetext(0:7) =
   468  !  "NULL  ", "RECORD", "ARRAY ", "STRING",
   469  !  "REALY ", "INTY  ", "CHAR  ", "BOOL  "
   470  !  %return %if from >= dlim
   471  !  newline %and outcol = 0 %if outcol # 0
   472  !  print string("          __identifier___flags___type___extra___value___")
   473  !  newline;  outcol = 0
   474  !  %cycle
   475  !    spaces(5);  outcol = 5
   476  !    pdec(from);  mark at(10)
   477  !    d = dict(from)
   478  !    put sym(' ')
   479  !    put ident(d_text)
   480  !    mark at(23)
   481  !    %for i = 7,-1,0 %cycle
   482  !      %if d_flags>>i&1 = 0 %then put sym(' ') %c
   483  !      %else put sym(flagsym(i))
   484  !    %repeat
   485  !    put sym('|')
   486  !    i = d_type-nulltype
   487  !    %if 0 <= i <= 7 %then printstring(typetext(i)) %c
   488  !    %else putsym(dsym(d_type>>13)) %and pdec(d_type&puretype)
   489  !    mark at(39)
   490  !    put sym(' ');  pdec(d_extra);  mark at(47)
   491  !    put sym(' ');  pdec(d_val);  mark at(56)
   492  !    newline;  outcol = 0
   493  !    from = from+1
   494  !  %repeat %until from = dlim
   495  !  print string("          +----------------------------------------------+")
   496  !  newline;  outcol = 0
   497  !%end
   498  !
   499  !%routine show exp(%integer from,to)
   500  !![out of date]
   501  !%conststring(7)%array acttext(0:63) =
   502  !  "?0", "?1", "ADD", "SUB",
   503  !  "?4", "LOGAND", "LOGOR", "LOGXOR",
   504  !  "NEGATE", "LOGNOT", "LSHIFT", "RSHIFT",
   505  !  "IABS", "FABS", "?14", "?15",
   506  !  "MULT", "IDIV", "IPOWER", "FPLUS",
   507  !  "FMINUS", "FMULT", "FDIV", "FPOWER",
   508  !  "FNEGATE", "FLOAT", "CONCAT", "BOOLNOT",
   509  !  "BOOLAND", "BOOLOR", "MEMBER", "MODULO",
   510  !  "RECREF", "AREF", "INDRECT", "SWJUMP",
   511  !  "FCALL", "MCALL", "?38", "RCALL",
   512  !  "?40", "ASSIGN", "JAMASS", "PLUSASS",
   513  !  "COMPARE", "JUMP", "LABEL", "ADECL",
   514  !  "?48", "?49", "?50", "?51",
   515  !  "?52", "?53", "?54", "?55",
   516  !  "?56", "?57", "?58", "?59",
   517  !  "?60", "?61", "?62", "?63"
   518  !%routine put operand(%integer i)
   519  !  %if dictmin <= i <= dictmax %then put ident(dict(i)_text) %else pdec(i)
   520  !%end
   521  !  %return %if from >= np
   522  !  newline %and outcol = 0 %if outcol # 0
   523  !  print string("          __action_____first_______second____")
   524  !  newline;  outcol = 0
   525  !  %cycle
   526  !    spaces(5);  outcol = 5
   527  !    pdec(from);  mark at(10)
   528  !    put sym(' ');  printstring(acttext(exp(from)_act&63))
   529  !    mark at(20);  put sym(' ')
   530  !    put operand(exp(from)_x)
   531  !    mark at(32);  put sym(' ')
   532  !    put operand(exp(from)_y)
   533  !    mark at(44)
   534  !    newline;  outcol = 0
   535  !    from = from+1
   536  !    %if from = to %start
   537  !      from = explo
   538  !      %exit %if from >= oldexplo
   539  !      printstring("          |---------------------------------|")
   540  !      newline;  outcol = 0
   541  !    %finish
   542  !  %repeat %until from >= oldexplo
   543  !  oldexplo = explo
   544  !  print string("          +---------------------------------+")
   545  !  newline;  outcol = 0
   546  !%end
   547  !
   548  !! Fault reporting
   549  !
2317 @ 18154:               LINE   443 "regression-compile-tmp/chimp.imp"
2318 @ 18190:            END    _ECCECI_WRITE {lev=2 --> 1}

   550  %routine REPORT(%integer n,joker)
2319 @ 18191:            LINE   550 "regression-compile-tmp/chimp.imp"
2320 @ 18227:            DEF    REPORT (_ECCECI_REPORT) p1=V_00dd 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
2321 @ 18245:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
2322 @ 18246:                  DEF    N p1=V_00de a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2323 @ 18259:                  DEF    JOKER p1=V_00df a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2324 @ 18276:               FINISH ) {lev=2}

   551  %integer mark,start,errline,k,editfp
2325 @ 18277:               LINE   551 "regression-compile-tmp/chimp.imp"
2326 @ 18313:               DEF    MARK p1=V_00e0 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2327 @ 18329:               DEF    START p1=V_00e1 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2328 @ 18346:               DEF    ERRLINE p1=V_00e2 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2329 @ 18365:               DEF    K p1=V_00e3 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2330 @ 18378:               DEF    EDITFP p1=V_00e4 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   552  %routine PRINT IDENT(%integer x)
2331 @ 18396:               LINE   552 "regression-compile-tmp/chimp.imp"
2332 @ 18432:               DEF    PRINTIDENT (_ECCECI_REPORT_PRINTIDENT) p1=V_00e5 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
2333 @ 18454:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
2334 @ 18455:                     DEF    X p1=V_00e6 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2335 @ 18468:                  FINISH ) {lev=3}

   553    put sym('"')
2336 @ 18469:                  LINE   553 "regression-compile-tmp/chimp.imp"
2337 @ 18505:                  PUSH   PUTSYM
2338 @ 18508:                  PUSHI  #0x00000022
2339 @ 18513:                  ASSPAR
2340 @ 18514:                  CALL  

   554    print string(string(dict(x)_text+charbase))
2341 @ 18515:                  LINE   554 "regression-compile-tmp/chimp.imp"
2342 @ 18551:                  PUSH   PRINTSTRING
2343 @ 18554:                  PUSH   STRING
2344 @ 18557:                  PUSH   DICT
2345 @ 18560:                  PUSH   X
2346 @ 18563:                  ACCESS
2347 @ 18564:                  SELECT 9
2348 @ 18567:                  PUSH   CHARBASE
2349 @ 18570:                  ADD   
2350 @ 18571:                  ASSPAR
2351 @ 18572:                  CALL  
2352 @ 18573:                  ASSPAR
2353 @ 18574:                  CALL  

   555    put sym('"')
2354 @ 18575:                  LINE   555 "regression-compile-tmp/chimp.imp"
2355 @ 18611:                  PUSH   PUTSYM
2356 @ 18614:                  PUSHI  #0x00000022
2357 @ 18619:                  ASSPAR
2358 @ 18620:                  CALL  

   556  %end
2359 @ 18621:                  LINE   556 "regression-compile-tmp/chimp.imp"
2360 @ 18657:               END    _ECCECI_REPORT_PRINTIDENT {lev=3 --> 2}

   557  %routine PRINT TEXT(%integer x,stream)
2361 @ 18658:               LINE   557 "regression-compile-tmp/chimp.imp"
2362 @ 18694:               DEF    PRINTTEXT (_ECCECI_REPORT_PRINTTEXT) p1=V_00e6 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
2363 @ 18715:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
2364 @ 18716:                     DEF    X 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
2365 @ 18729:                     DEF    STREAM 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
2366 @ 18747:                  FINISH ) {lev=3}

   558  %constinteger esc=27
2367 @ 18748:                  LINE   558 "regression-compile-tmp/chimp.imp"

   559  %integer k,p
2368 @ 18784:                  LINE   559 "regression-compile-tmp/chimp.imp"
2369 @ 18820:                  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
2370 @ 18833:                  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

   560  %switch s(0:errmax)
2371 @ 18846:                  LINE   560 "regression-compile-tmp/chimp.imp"
2372 @ 18882:                  PUSHI  #0x00000000
2373 @ 18887:                  PUSHI  #0x0000002e
2374 @ 18892:                  BOUNDS
2375 @ 18893:                  DEF    S p1=V_00eb a/tf=6 b/format=0 c/ostate=0  type=0 (<type:0>) form=6 (switch) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   561    put sym(mark)
2376 @ 18906:                  LINE   561 "regression-compile-tmp/chimp.imp"
2377 @ 18942:                  PUSH   PUTSYM
2378 @ 18945:                  PUSH   MARK
2379 @ 18948:                  ASSPAR
2380 @ 18949:                  CALL  

   562    write(line,4)
2381 @ 18950:                  LINE   562 "regression-compile-tmp/chimp.imp"
2382 @ 18986:                  PUSH   WRITE
2383 @ 18989:                  PUSH   LINE
2384 @ 18992:                  ASSPAR
2385 @ 18993:                  PUSHI  #0x00000004
2386 @ 18998:                  ASSPAR
2387 @ 18999:                  CALL  

   563    put sym(modesym);  put sym(' ')
2388 @ 19000:                  LINE   563 "regression-compile-tmp/chimp.imp"
2389 @ 19036:                  PUSH   PUTSYM
2390 @ 19039:                  PUSH   MODESYM
2391 @ 19042:                  ASSPAR
2392 @ 19043:                  CALL  
2393 @ 19044:                  LINE   563 "regression-compile-tmp/chimp.imp"
2394 @ 19080:                  PUSH   PUTSYM
2395 @ 19083:                  PUSHI  #0x00000020
2396 @ 19088:                  ASSPAR
2397 @ 19089:                  CALL  

   564    ->s(n&63)
2398 @ 19090:                  LINE   564 "regression-compile-tmp/chimp.imp"
2399 @ 19126:                  PUSH   N
2400 @ 19129:                  PUSHI  #0x0000003f
2401 @ 19134:                  AND   
2402 @ 19135:                  SJUMP  235

   565  s(formerr):   printstring("Faulty form");   -> print
2403 @ 19138:                  LINE   565 "regression-compile-tmp/chimp.imp"
2404 @ 19174:                  PUSHI  #0x00000000
2405 @ 19179:                  SLABEL 235
2406 @ 19182:                  LINE   565 "regression-compile-tmp/chimp.imp"
2407 @ 19218:                  PUSH   PRINTSTRING
2408 @ 19221:                  PUSHS  "Faulty form"
2409 @ 19234:                  ASSPAR
2410 @ 19235:                  CALL  
2411 @ 19236:                  LINE   565 "regression-compile-tmp/chimp.imp"
2412 @ 19272:                  JUMP   L_00ec

   566  s(atomerr):   printstring("Unknown atom");  -> print
2413 @ 19275:                  LINE   566 "regression-compile-tmp/chimp.imp"
2414 @ 19311:                  PUSHI  #0x00000001
2415 @ 19316:                  SLABEL 235
2416 @ 19319:                  LINE   566 "regression-compile-tmp/chimp.imp"
2417 @ 19355:                  PUSH   PRINTSTRING
2418 @ 19358:                  PUSHS  "Unknown atom"
2419 @ 19372:                  ASSPAR
2420 @ 19373:                  CALL  
2421 @ 19374:                  LINE   566 "regression-compile-tmp/chimp.imp"
2422 @ 19410:                  JUMP   L_00ec

   567  s(namerr):    printstring("Unknown name");  -> print
2423 @ 19413:                  LINE   567 "regression-compile-tmp/chimp.imp"
2424 @ 19449:                  PUSHI  #0x00000002
2425 @ 19454:                  SLABEL 235
2426 @ 19457:                  LINE   567 "regression-compile-tmp/chimp.imp"
2427 @ 19493:                  PUSH   PRINTSTRING
2428 @ 19496:                  PUSHS  "Unknown name"
2429 @ 19510:                  ASSPAR
2430 @ 19511:                  CALL  
2431 @ 19512:                  LINE   567 "regression-compile-tmp/chimp.imp"
2432 @ 19548:                  JUMP   L_00ec

   568  s(caterr):    printstring("Unsuitable");    -> print
2433 @ 19551:                  LINE   568 "regression-compile-tmp/chimp.imp"
2434 @ 19587:                  PUSHI  #0x00000003
2435 @ 19592:                  SLABEL 235
2436 @ 19595:                  LINE   568 "regression-compile-tmp/chimp.imp"
2437 @ 19631:                  PUSH   PRINTSTRING
2438 @ 19634:                  PUSHS  "Unsuitable"
2439 @ 19646:                  ASSPAR
2440 @ 19647:                  CALL  
2441 @ 19648:                  LINE   568 "regression-compile-tmp/chimp.imp"
2442 @ 19684:                  JUMP   L_00ec

   569  s(sizerr):    printstring("Size");          -> print
2443 @ 19687:                  LINE   569 "regression-compile-tmp/chimp.imp"
2444 @ 19723:                  PUSHI  #0x00000004
2445 @ 19728:                  SLABEL 235
2446 @ 19731:                  LINE   569 "regression-compile-tmp/chimp.imp"
2447 @ 19767:                  PUSH   PRINTSTRING
2448 @ 19770:                  PUSHS  "Size"
2449 @ 19776:                  ASSPAR
2450 @ 19777:                  CALL  
2451 @ 19778:                  LINE   569 "regression-compile-tmp/chimp.imp"
2452 @ 19814:                  JUMP   L_00ec

   570  s(typerr):    printstring("Wrong type");    -> print
2453 @ 19817:                  LINE   570 "regression-compile-tmp/chimp.imp"
2454 @ 19853:                  PUSHI  #0x00000006
2455 @ 19858:                  SLABEL 235
2456 @ 19861:                  LINE   570 "regression-compile-tmp/chimp.imp"
2457 @ 19897:                  PUSH   PRINTSTRING
2458 @ 19900:                  PUSHS  "Wrong type"
2459 @ 19912:                  ASSPAR
2460 @ 19913:                  CALL  
2461 @ 19914:                  LINE   570 "regression-compile-tmp/chimp.imp"
2462 @ 19950:                  JUMP   L_00ec

   571  s(boundserr): printstring("Inside out");    -> print
2463 @ 19953:                  LINE   571 "regression-compile-tmp/chimp.imp"
2464 @ 19989:                  PUSHI  #0x0000000e
2465 @ 19994:                  SLABEL 235
2466 @ 19997:                  LINE   571 "regression-compile-tmp/chimp.imp"
2467 @ 20033:                  PUSH   PRINTSTRING
2468 @ 20036:                  PUSHS  "Inside out"
2469 @ 20048:                  ASSPAR
2470 @ 20049:                  CALL  
2471 @ 20050:                  LINE   571 "regression-compile-tmp/chimp.imp"
2472 @ 20086:                  JUMP   L_00ec

   572  s(unending):  printstring("Endless loop");  -> print
2473 @ 20089:                  LINE   572 "regression-compile-tmp/chimp.imp"
2474 @ 20125:                  PUSHI  #0x00000025
2475 @ 20130:                  SLABEL 235
2476 @ 20133:                  LINE   572 "regression-compile-tmp/chimp.imp"
2477 @ 20169:                  PUSH   PRINTSTRING
2478 @ 20172:                  PUSHS  "Endless loop"
2479 @ 20186:                  ASSPAR
2480 @ 20187:                  CALL  
2481 @ 20188:                  LINE   572 "regression-compile-tmp/chimp.imp"
2482 @ 20224:                  JUMP   L_00ec

   573  s(indexerr):  printstring("Index");         -> print
2483 @ 20227:                  LINE   573 "regression-compile-tmp/chimp.imp"
2484 @ 20263:                  PUSHI  #0x00000018
2485 @ 20268:                  SLABEL 235
2486 @ 20271:                  LINE   573 "regression-compile-tmp/chimp.imp"
2487 @ 20307:                  PUSH   PRINTSTRING
2488 @ 20310:                  PUSHS  "Index"
2489 @ 20317:                  ASSPAR
2490 @ 20318:                  CALL  
2491 @ 20319:                  LINE   573 "regression-compile-tmp/chimp.imp"
2492 @ 20355:                  JUMP   L_00ec

   574  s(accesserr): printstring("Not accessible");-> print
2493 @ 20358:                  LINE   574 "regression-compile-tmp/chimp.imp"
2494 @ 20394:                  PUSHI  #0x0000000f
2495 @ 20399:                  SLABEL 235
2496 @ 20402:                  LINE   574 "regression-compile-tmp/chimp.imp"
2497 @ 20438:                  PUSH   PRINTSTRING
2498 @ 20441:                  PUSHS  "Not accessible"
2499 @ 20457:                  ASSPAR
2500 @ 20458:                  CALL  
2501 @ 20459:                  LINE   574 "regression-compile-tmp/chimp.imp"
2502 @ 20495:                  JUMP   L_00ec

   575  s(notinloop): printstring("Not in loop");   -> print
2503 @ 20498:                  LINE   575 "regression-compile-tmp/chimp.imp"
2504 @ 20534:                  PUSHI  #0x00000010
2505 @ 20539:                  SLABEL 235
2506 @ 20542:                  LINE   575 "regression-compile-tmp/chimp.imp"
2507 @ 20578:                  PUSH   PRINTSTRING
2508 @ 20581:                  PUSHS  "Not in loop"
2509 @ 20594:                  ASSPAR
2510 @ 20595:                  CALL  
2511 @ 20596:                  LINE   575 "regression-compile-tmp/chimp.imp"
2512 @ 20632:                  JUMP   L_00ec

   576  s(notinrout): printstring("Not in routine");-> print
2513 @ 20635:                  LINE   576 "regression-compile-tmp/chimp.imp"
2514 @ 20671:                  PUSHI  #0x00000011
2515 @ 20676:                  SLABEL 235
2516 @ 20679:                  LINE   576 "regression-compile-tmp/chimp.imp"
2517 @ 20715:                  PUSH   PRINTSTRING
2518 @ 20718:                  PUSHS  "Not in routine"
2519 @ 20734:                  ASSPAR
2520 @ 20735:                  CALL  
2521 @ 20736:                  LINE   576 "regression-compile-tmp/chimp.imp"
2522 @ 20772:                  JUMP   L_00ec

   577  s(notinfun):  printstring("Not in fn/map"); -> print
2523 @ 20775:                  LINE   577 "regression-compile-tmp/chimp.imp"
2524 @ 20811:                  PUSHI  #0x00000012
2525 @ 20816:                  SLABEL 235
2526 @ 20819:                  LINE   577 "regression-compile-tmp/chimp.imp"
2527 @ 20855:                  PUSH   PRINTSTRING
2528 @ 20858:                  PUSHS  "Not in fn/map"
2529 @ 20873:                  ASSPAR
2530 @ 20874:                  CALL  
2531 @ 20875:                  LINE   577 "regression-compile-tmp/chimp.imp"
2532 @ 20911:                  JUMP   L_00ec

   578  s(notinpred): printstring("Not in pred");   -> print
2533 @ 20914:                  LINE   578 "regression-compile-tmp/chimp.imp"
2534 @ 20950:                  PUSHI  #0x00000013
2535 @ 20955:                  SLABEL 235
2536 @ 20958:                  LINE   578 "regression-compile-tmp/chimp.imp"
2537 @ 20994:                  PUSH   PRINTSTRING
2538 @ 20997:                  PUSHS  "Not in pred"
2539 @ 21010:                  ASSPAR
2540 @ 21011:                  CALL  
2541 @ 21012:                  LINE   578 "regression-compile-tmp/chimp.imp"
2542 @ 21048:                  JUMP   L_00ec

   579  s(plexerr):   printstring("Too complex!");  -> print
2543 @ 21051:                  LINE   579 "regression-compile-tmp/chimp.imp"
2544 @ 21087:                  PUSHI  #0x00000014
2545 @ 21092:                  SLABEL 235
2546 @ 21095:                  LINE   579 "regression-compile-tmp/chimp.imp"
2547 @ 21131:                  PUSH   PRINTSTRING
2548 @ 21134:                  PUSHS  "Too complex!"
2549 @ 21148:                  ASSPAR
2550 @ 21149:                  CALL  
2551 @ 21150:                  LINE   579 "regression-compile-tmp/chimp.imp"
2552 @ 21186:                  JUMP   L_00ec

   580  s(duperr):    printstring("Duplicate");     -> print
2553 @ 21189:                  LINE   580 "regression-compile-tmp/chimp.imp"
2554 @ 21225:                  PUSHI  #0x00000007
2555 @ 21230:                  SLABEL 235
2556 @ 21233:                  LINE   580 "regression-compile-tmp/chimp.imp"
2557 @ 21269:                  PUSH   PRINTSTRING
2558 @ 21272:                  PUSHS  "Duplicate"
2559 @ 21283:                  ASSPAR
2560 @ 21284:                  CALL  
2561 @ 21285:                  LINE   580 "regression-compile-tmp/chimp.imp"
2562 @ 21321:                  JUMP   L_00ec

   581  s(ordererr):  printstring("Out of order");  -> print
2563 @ 21324:                  LINE   581 "regression-compile-tmp/chimp.imp"
2564 @ 21360:                  PUSHI  #0x0000000a
2565 @ 21365:                  SLABEL 235
2566 @ 21368:                  LINE   581 "regression-compile-tmp/chimp.imp"
2567 @ 21404:                  PUSH   PRINTSTRING
2568 @ 21407:                  PUSHS  "Out of order"
2569 @ 21421:                  ASSPAR
2570 @ 21422:                  CALL  
2571 @ 21423:                  LINE   581 "regression-compile-tmp/chimp.imp"
2572 @ 21459:                  JUMP   L_00ec

   582  s(matcherr):  printstring("Mismatch");      -> print
2573 @ 21462:                  LINE   582 "regression-compile-tmp/chimp.imp"
2574 @ 21498:                  PUSHI  #0x0000000b
2575 @ 21503:                  SLABEL 235
2576 @ 21506:                  LINE   582 "regression-compile-tmp/chimp.imp"
2577 @ 21542:                  PUSH   PRINTSTRING
2578 @ 21545:                  PUSHS  "Mismatch"
2579 @ 21555:                  ASSPAR
2580 @ 21556:                  CALL  
2581 @ 21557:                  LINE   582 "regression-compile-tmp/chimp.imp"
2582 @ 21593:                  JUMP   L_00ec

   583  s(rangerr):   printstring("Out of range");  -> print
2583 @ 21596:                  LINE   583 "regression-compile-tmp/chimp.imp"
2584 @ 21632:                  PUSHI  #0x0000000c
2585 @ 21637:                  SLABEL 235
2586 @ 21640:                  LINE   583 "regression-compile-tmp/chimp.imp"
2587 @ 21676:                  PUSH   PRINTSTRING
2588 @ 21679:                  PUSHS  "Out of range"
2589 @ 21693:                  ASSPAR
2590 @ 21694:                  CALL  
2591 @ 21695:                  LINE   583 "regression-compile-tmp/chimp.imp"
2592 @ 21731:                  JUMP   L_00ec

   584  s(nonliteral):printstring("Not literal");   -> print
2593 @ 21734:                  LINE   584 "regression-compile-tmp/chimp.imp"
2594 @ 21770:                  PUSHI  #0x0000000d
2595 @ 21775:                  SLABEL 235
2596 @ 21778:                  LINE   584 "regression-compile-tmp/chimp.imp"
2597 @ 21814:                  PUSH   PRINTSTRING
2598 @ 21817:                  PUSHS  "Not literal"
2599 @ 21830:                  ASSPAR
2600 @ 21831:                  CALL  
2601 @ 21832:                  LINE   584 "regression-compile-tmp/chimp.imp"
2602 @ 21868:                  JUMP   L_00ec

   585  s(nonstand):  printstring("Nonstandard");   -> print
2603 @ 21871:                  LINE   585 "regression-compile-tmp/chimp.imp"
2604 @ 21907:                  PUSHI  #0x00000016
2605 @ 21912:                  SLABEL 235
2606 @ 21915:                  LINE   585 "regression-compile-tmp/chimp.imp"
2607 @ 21951:                  PUSH   PRINTSTRING
2608 @ 21954:                  PUSHS  "Nonstandard"
2609 @ 21967:                  ASSPAR
2610 @ 21968:                  CALL  
2611 @ 21969:                  LINE   585 "regression-compile-tmp/chimp.imp"
2612 @ 22005:                  JUMP   L_00ec

   586  s(notin):     printstring("Not in yet");    -> print
2613 @ 22008:                  LINE   586 "regression-compile-tmp/chimp.imp"
2614 @ 22044:                  PUSHI  #0x00000017
2615 @ 22049:                  SLABEL 235
2616 @ 22052:                  LINE   586 "regression-compile-tmp/chimp.imp"
2617 @ 22088:                  PUSH   PRINTSTRING
2618 @ 22091:                  PUSHS  "Not in yet"
2619 @ 22103:                  ASSPAR
2620 @ 22104:                  CALL  
2621 @ 22105:                  LINE   586 "regression-compile-tmp/chimp.imp"
2622 @ 22141:                  JUMP   L_00ec

   587  s(moperr):    printstring("Faulty operand");-> print
2623 @ 22144:                  LINE   587 "regression-compile-tmp/chimp.imp"
2624 @ 22180:                  PUSHI  #0x0000001b
2625 @ 22185:                  SLABEL 235
2626 @ 22188:                  LINE   587 "regression-compile-tmp/chimp.imp"
2627 @ 22224:                  PUSH   PRINTSTRING
2628 @ 22227:                  PUSHS  "Faulty operand"
2629 @ 22243:                  ASSPAR
2630 @ 22244:                  CALL  
2631 @ 22245:                  LINE   587 "regression-compile-tmp/chimp.imp"
2632 @ 22281:                  JUMP   L_00ec

   588  s(nocycle):   printstring("Missing %CYCLE"); -> print
2633 @ 22284:                  LINE   588 "regression-compile-tmp/chimp.imp"
2634 @ 22320:                  PUSHI  #0x00000009
2635 @ 22325:                  SLABEL 235
2636 @ 22328:                  LINE   588 "regression-compile-tmp/chimp.imp"
2637 @ 22364:                  PUSH   PRINTSTRING
2638 @ 22367:                  PUSHS  "Missing %CYCLE"
2639 @ 22383:                  ASSPAR
2640 @ 22384:                  CALL  
2641 @ 22385:                  LINE   588 "regression-compile-tmp/chimp.imp"
2642 @ 22421:                  JUMP   L_00ec

   589  s(nostart):   printstring("Missing %START"); -> print
2643 @ 22424:                  LINE   589 "regression-compile-tmp/chimp.imp"
2644 @ 22460:                  PUSHI  #0x00000008
2645 @ 22465:                  SLABEL 235
2646 @ 22468:                  LINE   589 "regression-compile-tmp/chimp.imp"
2647 @ 22504:                  PUSH   PRINTSTRING
2648 @ 22507:                  PUSHS  "Missing %START"
2649 @ 22523:                  ASSPAR
2650 @ 22524:                  CALL  
2651 @ 22525:                  LINE   589 "regression-compile-tmp/chimp.imp"
2652 @ 22561:                  JUMP   L_00ec

   590  s(noif):      printstring("Missing %IF");    -> print
2653 @ 22564:                  LINE   590 "regression-compile-tmp/chimp.imp"
2654 @ 22600:                  PUSHI  #0x00000015
2655 @ 22605:                  SLABEL 235
2656 @ 22608:                  LINE   590 "regression-compile-tmp/chimp.imp"
2657 @ 22644:                  PUSH   PRINTSTRING
2658 @ 22647:                  PUSHS  "Missing %IF"
2659 @ 22660:                  ASSPAR
2660 @ 22661:                  CALL  
2661 @ 22662:                  LINE   590 "regression-compile-tmp/chimp.imp"
2662 @ 22698:                  JUMP   L_00ec

   591  s(noterm):    printstring("';' missing");    -> print
2663 @ 22701:                  LINE   591 "regression-compile-tmp/chimp.imp"
2664 @ 22737:                  PUSHI  #0x0000001c
2665 @ 22742:                  SLABEL 235
2666 @ 22745:                  LINE   591 "regression-compile-tmp/chimp.imp"
2667 @ 22781:                  PUSH   PRINTSTRING
2668 @ 22784:                  PUSHS  "';' missing"
2669 @ 22797:                  ASSPAR
2670 @ 22798:                  CALL  
2671 @ 22799:                  LINE   591 "regression-compile-tmp/chimp.imp"
2672 @ 22835:                  JUMP   L_00ec

   592  s(nonstarter):printstring("Non-starter");    -> print
2673 @ 22838:                  LINE   592 "regression-compile-tmp/chimp.imp"
2674 @ 22874:                  PUSHI  #0x0000001d
2675 @ 22879:                  SLABEL 235
2676 @ 22882:                  LINE   592 "regression-compile-tmp/chimp.imp"
2677 @ 22918:                  PUSH   PRINTSTRING
2678 @ 22921:                  PUSHS  "Non-starter"
2679 @ 22934:                  ASSPAR
2680 @ 22935:                  CALL  
2681 @ 22936:                  LINE   592 "regression-compile-tmp/chimp.imp"
2682 @ 22972:                  JUMP   L_00ec

   593  s(nonvar):    printstring("Not variable");   -> print
2683 @ 22975:                  LINE   593 "regression-compile-tmp/chimp.imp"
2684 @ 23011:                  PUSHI  #0x0000001e
2685 @ 23016:                  SLABEL 235
2686 @ 23019:                  LINE   593 "regression-compile-tmp/chimp.imp"
2687 @ 23055:                  PUSH   PRINTSTRING
2688 @ 23058:                  PUSHS  "Not variable"
2689 @ 23072:                  ASSPAR
2690 @ 23073:                  CALL  
2691 @ 23074:                  LINE   593 "regression-compile-tmp/chimp.imp"
2692 @ 23110:                  JUMP   L_00ec

   594  s(nonref):    printstring("Not reference");  -> print
2693 @ 23113:                  LINE   594 "regression-compile-tmp/chimp.imp"
2694 @ 23149:                  PUSHI  #0x0000001f
2695 @ 23154:                  SLABEL 235
2696 @ 23157:                  LINE   594 "regression-compile-tmp/chimp.imp"
2697 @ 23193:                  PUSH   PRINTSTRING
2698 @ 23196:                  PUSHS  "Not reference"
2699 @ 23211:                  ASSPAR
2700 @ 23212:                  CALL  
2701 @ 23213:                  LINE   594 "regression-compile-tmp/chimp.imp"
2702 @ 23249:                  JUMP   L_00ec

   595  s(noparm):    printstring("No parameters");  -> print
2703 @ 23252:                  LINE   595 "regression-compile-tmp/chimp.imp"
2704 @ 23288:                  PUSHI  #0x00000023
2705 @ 23293:                  SLABEL 235
2706 @ 23296:                  LINE   595 "regression-compile-tmp/chimp.imp"
2707 @ 23332:                  PUSH   PRINTSTRING
2708 @ 23335:                  PUSHS  "No parameters"
2709 @ 23350:                  ASSPAR
2710 @ 23351:                  CALL  
2711 @ 23352:                  LINE   595 "regression-compile-tmp/chimp.imp"
2712 @ 23388:                  JUMP   L_00ec

   596  s(toofew):    printstring("Too few");        -> print
2713 @ 23391:                  LINE   596 "regression-compile-tmp/chimp.imp"
2714 @ 23427:                  PUSHI  #0x00000021
2715 @ 23432:                  SLABEL 235
2716 @ 23435:                  LINE   596 "regression-compile-tmp/chimp.imp"
2717 @ 23471:                  PUSH   PRINTSTRING
2718 @ 23474:                  PUSHS  "Too few"
2719 @ 23483:                  ASSPAR
2720 @ 23484:                  CALL  
2721 @ 23485:                  LINE   596 "regression-compile-tmp/chimp.imp"
2722 @ 23521:                  JUMP   L_00ec

   597  s(unwanted):  printstring("Unwanted");       -> print
2723 @ 23524:                  LINE   597 "regression-compile-tmp/chimp.imp"
2724 @ 23560:                  PUSHI  #0x00000022
2725 @ 23565:                  SLABEL 235
2726 @ 23568:                  LINE   597 "regression-compile-tmp/chimp.imp"
2727 @ 23604:                  PUSH   PRINTSTRING
2728 @ 23607:                  PUSHS  "Unwanted"
2729 @ 23617:                  ASSPAR
2730 @ 23618:                  CALL  
2731 @ 23619:                  LINE   597 "regression-compile-tmp/chimp.imp"
2732 @ 23655:                  JUMP   L_00ec

   598  s(toomany):   printstring("Too many");       -> print
2733 @ 23658:                  LINE   598 "regression-compile-tmp/chimp.imp"
2734 @ 23694:                  PUSHI  #0x00000020
2735 @ 23699:                  SLABEL 235
2736 @ 23702:                  LINE   598 "regression-compile-tmp/chimp.imp"
2737 @ 23738:                  PUSH   PRINTSTRING
2738 @ 23741:                  PUSHS  "Too many"
2739 @ 23751:                  ASSPAR
2740 @ 23752:                  CALL  
2741 @ 23753:                  LINE   598 "regression-compile-tmp/chimp.imp"
2742 @ 23789:                  JUMP   L_00ec

   599  s(selfref):   printstring("Self-reference"); -> print
2743 @ 23792:                  LINE   599 "regression-compile-tmp/chimp.imp"
2744 @ 23828:                  PUSHI  #0x00000026
2745 @ 23833:                  SLABEL 235
2746 @ 23836:                  LINE   599 "regression-compile-tmp/chimp.imp"
2747 @ 23872:                  PUSH   PRINTSTRING
2748 @ 23875:                  PUSHS  "Self-reference"
2749 @ 23891:                  ASSPAR
2750 @ 23892:                  CALL  
2751 @ 23893:                  LINE   599 "regression-compile-tmp/chimp.imp"
2752 @ 23929:                  JUMP   L_00ec

   600  s(nobegin):   printstring("Extra %END");     -> print
2753 @ 23932:                  LINE   600 "regression-compile-tmp/chimp.imp"
2754 @ 23968:                  PUSHI  #0x00000029
2755 @ 23973:                  SLABEL 235
2756 @ 23976:                  LINE   600 "regression-compile-tmp/chimp.imp"
2757 @ 24012:                  PUSH   PRINTSTRING
2758 @ 24015:                  PUSHS  "Extra %END"
2759 @ 24027:                  ASSPAR
2760 @ 24028:                  CALL  
2761 @ 24029:                  LINE   600 "regression-compile-tmp/chimp.imp"
2762 @ 24065:                  JUMP   L_00ec

   601  print:
2763 @ 24068:                  LINE   601 "regression-compile-tmp/chimp.imp"
2764 @ 24104:                  LABEL  L_00ec

   602    spaces(21-length(rep))
2765 @ 24107:                  LINE   602 "regression-compile-tmp/chimp.imp"
2766 @ 24143:                  PUSH   SPACES
2767 @ 24146:                  PUSHI  #0x00000015
2768 @ 24151:                  PUSH   LENGTH
2769 @ 24154:                  PUSH   REP
2770 @ 24157:                  ASSPAR
2771 @ 24158:                  CALL  
2772 @ 24159:                  SUB   
2773 @ 24160:                  ASSPAR
2774 @ 24161:                  CALL  

   603    p = start
2775 @ 24162:                  LINE   603 "regression-compile-tmp/chimp.imp"
2776 @ 24198:                  PUSH   P
2777 @ 24201:                  PUSH   START
2778 @ 24204:                  ASSVAL

   604    %if p < faultp-50 %then p = faultp-47 %and printstring("...") %c
   605    %else put sym(' ')
2779 @ 24205:                  LINE   604 "regression-compile-tmp/chimp.imp"
2780 @ 24241:                  PUSH   P
2781 @ 24244:                  PUSH   FAULTP
2782 @ 24247:                  PUSHI  #0x00000032
2783 @ 24252:                  SUB   
2784 @ 24253:                  JUMPIF >= L_0004
2785 @ 24257:                  PUSH   P
2786 @ 24260:                  PUSH   FAULTP
2787 @ 24263:                  PUSHI  #0x0000002f
2788 @ 24268:                  SUB   
2789 @ 24269:                  ASSVAL
2790 @ 24270:                  PUSH   PRINTSTRING
2791 @ 24273:                  PUSHS  "..."
2792 @ 24278:                  ASSPAR
2793 @ 24279:                  CALL  
2794 @ 24280:                  GOTO   L_0003
2795 @ 24283:                  LOCATE L_0004
2796 @ 24286:                  PUSH   PUTSYM
2797 @ 24289:                  PUSHI  #0x00000020
2798 @ 24294:                  ASSPAR
2799 @ 24295:                  CALL  
2800 @ 24296:                  LOCATE L_0003

   606    %cycle
2801 @ 24299:                  LINE   606 "regression-compile-tmp/chimp.imp"
2802 @ 24335:                  LOCATE L_0003

   607      k = byteinteger(p);  p = p+1
2803 @ 24338:                  LINE   607 "regression-compile-tmp/chimp.imp"
2804 @ 24374:                  PUSH   K
2805 @ 24377:                  PUSH   BYTEINTEGER
2806 @ 24380:                  PUSH   P
2807 @ 24383:                  ASSPAR
2808 @ 24384:                  CALL  
2809 @ 24385:                  ASSVAL
2810 @ 24386:                  LINE   607 "regression-compile-tmp/chimp.imp"
2811 @ 24422:                  PUSH   P
2812 @ 24425:                  PUSH   P
2813 @ 24428:                  PUSHI  #0x00000001
2814 @ 24433:                  ADD   
2815 @ 24434:                  ASSVAL

   608      %if p = faultp %start
   609  !$IF VAX
2816 @ 24435:                  LINE   608 "regression-compile-tmp/chimp.imp"
2817 @ 24471:                  PUSH   P
2818 @ 24474:                  PUSH   FAULTP
2819 @ 24477:                  JUMPIF # L_0007

   610        put sym(esc) %and put sym('F') %if stream = 0
   611  !$FINISH
2820 @ 24481:                  LINE   610 "regression-compile-tmp/chimp.imp"
2821 @ 24517:                  PUSH   STREAM
2822 @ 24520:                  PUSHI  #0x00000000
2823 @ 24525:                  JUMPIF # L_000a
2824 @ 24529:                  PUSH   PUTSYM
2825 @ 24532:                  PUSHI  #0x0000001b
2826 @ 24537:                  ASSPAR
2827 @ 24538:                  CALL  
2828 @ 24539:                  PUSH   PUTSYM
2829 @ 24542:                  PUSHI  #0x00000046
2830 @ 24547:                  ASSPAR
2831 @ 24548:                  CALL  
2832 @ 24549:                  LOCATE L_000a

   612        put sym('~')
   613  !$IF VAX
2833 @ 24552:                  LINE   612 "regression-compile-tmp/chimp.imp"
2834 @ 24588:                  PUSH   PUTSYM
2835 @ 24591:                  PUSHI  #0x0000007e
2836 @ 24596:                  ASSPAR
2837 @ 24597:                  CALL  

   614        put sym(esc) %and put sym('G') %if stream = 0
   615  !$FINISH
2838 @ 24598:                  LINE   614 "regression-compile-tmp/chimp.imp"
2839 @ 24634:                  PUSH   STREAM
2840 @ 24637:                  PUSHI  #0x00000000
2841 @ 24642:                  JUMPIF # L_000a
2842 @ 24646:                  PUSH   PUTSYM
2843 @ 24649:                  PUSHI  #0x0000001b
2844 @ 24654:                  ASSPAR
2845 @ 24655:                  CALL  
2846 @ 24656:                  PUSH   PUTSYM
2847 @ 24659:                  PUSHI  #0x00000047
2848 @ 24664:                  ASSPAR
2849 @ 24665:                  CALL  
2850 @ 24666:                  LOCATE L_000a

   616      %finish
2851 @ 24669:                  LINE   616 "regression-compile-tmp/chimp.imp"
2852 @ 24705:                  LOCATE L_0007

   617      %exit %if k = nl
2853 @ 24708:                  LINE   617 "regression-compile-tmp/chimp.imp"
2854 @ 24744:                  PUSH   K
2855 @ 24747:                  PUSHI  #0x0000000a
2856 @ 24752:                  JUMPIF # L_0007
2857 @ 24756:                  GOTO   L_0004
2858 @ 24759:                  LOCATE L_0007

   618      %if ' ' <= k <= '~' %then put sym(k) %c
   619      %else put sym('[') %and write(k,-1) %and put sym(']')
2859 @ 24762:                  LINE   618 "regression-compile-tmp/chimp.imp"
2860 @ 24798:                  PUSHI  #0x00000020
2861 @ 24803:                  PUSH   K
2862 @ 24806:                  JUMPIFD > L_0007
2863 @ 24810:                  PUSHI  #0x0000007e
2864 @ 24815:                  JUMPIF > L_0007
2865 @ 24819:                  PUSH   PUTSYM
2866 @ 24822:                  PUSH   K
2867 @ 24825:                  ASSPAR
2868 @ 24826:                  CALL  
2869 @ 24827:                  GOTO   L_0006
2870 @ 24830:                  LOCATE L_0007
2871 @ 24833:                  PUSH   PUTSYM
2872 @ 24836:                  PUSHI  #0x0000005b
2873 @ 24841:                  ASSPAR
2874 @ 24842:                  CALL  
2875 @ 24843:                  PUSH   WRITE
2876 @ 24846:                  PUSH   K
2877 @ 24849:                  ASSPAR
2878 @ 24850:                  PUSHI  #0x00000001
2879 @ 24855:                  NEGATE
2880 @ 24856:                  ASSPAR
2881 @ 24857:                  CALL  
2882 @ 24858:                  PUSH   PUTSYM
2883 @ 24861:                  PUSHI  #0x0000005d
2884 @ 24866:                  ASSPAR
2885 @ 24867:                  CALL  
2886 @ 24868:                  LOCATE L_0006

   620    %repeat
2887 @ 24871:                  LINE   620 "regression-compile-tmp/chimp.imp"
2888 @ 24907:                  REPEAT L_0003
2889 @ 24910:                  LOCATE L_0004

   621    %return
2890 @ 24913:                  LINE   621 "regression-compile-tmp/chimp.imp"
2891 @ 24949:                  RETURN

   622  s(noend):     printstring("%END");           ->mend
2892 @ 24950:                  LINE   622 "regression-compile-tmp/chimp.imp"
2893 @ 24986:                  PUSHI  #0x00000028
2894 @ 24991:                  SLABEL 235
2895 @ 24994:                  LINE   622 "regression-compile-tmp/chimp.imp"
2896 @ 25030:                  PUSH   PRINTSTRING
2897 @ 25033:                  PUSHS  "%END"
2898 @ 25039:                  ASSPAR
2899 @ 25040:                  CALL  
2900 @ 25041:                  LINE   622 "regression-compile-tmp/chimp.imp"
2901 @ 25077:                  JUMP   L_00ed

   623  s(noresult):  printstring("Result");         ->mend
2902 @ 25080:                  LINE   623 "regression-compile-tmp/chimp.imp"
2903 @ 25116:                  PUSHI  #0x0000002e
2904 @ 25121:                  SLABEL 235
2905 @ 25124:                  LINE   623 "regression-compile-tmp/chimp.imp"
2906 @ 25160:                  PUSH   PRINTSTRING
2907 @ 25163:                  PUSHS  "Result"
2908 @ 25171:                  ASSPAR
2909 @ 25172:                  CALL  
2910 @ 25173:                  LINE   623 "regression-compile-tmp/chimp.imp"
2911 @ 25209:                  JUMP   L_00ed

   624  s(nofinish):  printstring("%FINISH");        ->mend0
2912 @ 25212:                  LINE   624 "regression-compile-tmp/chimp.imp"
2913 @ 25248:                  PUSHI  #0x0000002b
2914 @ 25253:                  SLABEL 235
2915 @ 25256:                  LINE   624 "regression-compile-tmp/chimp.imp"
2916 @ 25292:                  PUSH   PRINTSTRING
2917 @ 25295:                  PUSHS  "%FINISH"
2918 @ 25304:                  ASSPAR
2919 @ 25305:                  CALL  
2920 @ 25306:                  LINE   624 "regression-compile-tmp/chimp.imp"
2921 @ 25342:                  JUMP   L_00ee

   625  s(norepeat):  printstring("%REPEAT")
2922 @ 25345:                  LINE   625 "regression-compile-tmp/chimp.imp"
2923 @ 25381:                  PUSHI  #0x0000002c
2924 @ 25386:                  SLABEL 235
2925 @ 25389:                  LINE   625 "regression-compile-tmp/chimp.imp"
2926 @ 25425:                  PUSH   PRINTSTRING
2927 @ 25428:                  PUSHS  "%REPEAT"
2928 @ 25437:                  ASSPAR
2929 @ 25438:                  CALL  

   626  mend0:        printstring(" etc") %if curlab > lab1+2
2930 @ 25439:                  LINE   626 "regression-compile-tmp/chimp.imp"
2931 @ 25475:                  LABEL  L_00ee
2932 @ 25478:                  LINE   626 "regression-compile-tmp/chimp.imp"
2933 @ 25514:                  PUSH   CURLAB
2934 @ 25517:                  PUSHI  #0x00000ca3
2935 @ 25522:                  PUSHI  #0x00000002
2936 @ 25527:                  ADD   
2937 @ 25528:                  JUMPIF <= L_0004
2938 @ 25532:                  PUSH   PRINTSTRING
2939 @ 25535:                  PUSHS  " etc"
2940 @ 25541:                  ASSPAR
2941 @ 25542:                  CALL  
2942 @ 25543:                  LOCATE L_0004

   627                -> mend
2943 @ 25546:                  LINE   627 "regression-compile-tmp/chimp.imp"
2944 @ 25582:                  JUMP   L_00ed

   628  s(idmissing):
2945 @ 25585:                  LINE   628 "regression-compile-tmp/chimp.imp"
2946 @ 25621:                  PUSHI  #0x0000002a
2947 @ 25626:                  SLABEL 235

   629    %cycle
   630  !    newline %and spaces(8) %and outcol = 8 %if outcol > 50
2948 @ 25629:                  LINE   629 "regression-compile-tmp/chimp.imp"
2949 @ 25665:                  LOCATE L_0003

   631      put sym(' ')
2950 @ 25668:                  LINE   631 "regression-compile-tmp/chimp.imp"
2951 @ 25704:                  PUSH   PUTSYM
2952 @ 25707:                  PUSHI  #0x00000020
2953 @ 25712:                  ASSPAR
2954 @ 25713:                  CALL  

   632      print ident(x)
2955 @ 25714:                  LINE   632 "regression-compile-tmp/chimp.imp"
2956 @ 25750:                  PUSH   PRINTIDENT
2957 @ 25753:                  PUSH   X
2958 @ 25756:                  ASSPAR
2959 @ 25757:                  CALL  

   633      print string("(?)") %if dict(x)_flags&spec = 0;  !switch
2960 @ 25758:                  LINE   633 "regression-compile-tmp/chimp.imp"
2961 @ 25794:                  PUSH   DICT
2962 @ 25797:                  PUSH   X
2963 @ 25800:                  ACCESS
2964 @ 25801:                  SELECT 1
2965 @ 25804:                  PUSHI  #0x00000010
2966 @ 25809:                  AND   
2967 @ 25810:                  PUSHI  #0x00000000
2968 @ 25815:                  JUMPIF # L_0007
2969 @ 25819:                  PUSH   PRINTSTRING
2970 @ 25822:                  PUSHS  "(?)"
2971 @ 25827:                  ASSPAR
2972 @ 25828:                  CALL  
2973 @ 25829:                  LOCATE L_0007

   634      x = dict(x)_val
2974 @ 25832:                  LINE   634 "regression-compile-tmp/chimp.imp"
2975 @ 25868:                  PUSH   X
2976 @ 25871:                  PUSH   DICT
2977 @ 25874:                  PUSH   X
2978 @ 25877:                  ACCESS
2979 @ 25878:                  SELECT 7
2980 @ 25881:                  ASSVAL

   635    %repeat %until x = 0
2981 @ 25882:                  LINE   635 "regression-compile-tmp/chimp.imp"
2982 @ 25918:                  PUSH   X
2983 @ 25921:                  PUSHI  #0x00000000
2984 @ 25926:                  JUMPIF = L_0004
2985 @ 25930:                  REPEAT L_0003
2986 @ 25933:                  LOCATE L_0004

   636  mend:
2987 @ 25936:                  LINE   636 "regression-compile-tmp/chimp.imp"
2988 @ 25972:                  LABEL  L_00ed

   637    printstring(" missing")
2989 @ 25975:                  LINE   637 "regression-compile-tmp/chimp.imp"
2990 @ 26011:                  PUSH   PRINTSTRING
2991 @ 26014:                  PUSHS  " missing"
2992 @ 26024:                  ASSPAR
2993 @ 26025:                  CALL  

   638    %if c_type # 0 %start
2994 @ 26026:                  LINE   638 "regression-compile-tmp/chimp.imp"
2995 @ 26062:                  PUSH   C
2996 @ 26065:                  SELECT 5
2997 @ 26068:                  PUSHI  #0x00000000
2998 @ 26073:                  JUMPIF = L_0004

   639      print string(" at END of ")
2999 @ 26077:                  LINE   639 "regression-compile-tmp/chimp.imp"
3000 @ 26113:                  PUSH   PRINTSTRING
3001 @ 26116:                  PUSHS  " at END of "
3002 @ 26129:                  ASSPAR
3003 @ 26130:                  CALL  

   640      print ident(c_pidpos)
3004 @ 26131:                  LINE   640 "regression-compile-tmp/chimp.imp"
3005 @ 26167:                  PUSH   PRINTIDENT
3006 @ 26170:                  PUSH   C
3007 @ 26173:                  SELECT 11
3008 @ 26176:                  ASSPAR
3009 @ 26177:                  CALL  

   641    %finish %else n = 0
3010 @ 26178:                  LINE   641 "regression-compile-tmp/chimp.imp"
3011 @ 26214:                  GOTO   L_0003
3012 @ 26217:                  LOCATE L_0004
3013 @ 26220:                  PUSH   N
3014 @ 26223:                  PUSHI  #0x00000000
3015 @ 26228:                  ASSVAL
3016 @ 26229:                  LOCATE L_0003

   642    %return
3017 @ 26232:                  LINE   642 "regression-compile-tmp/chimp.imp"
3018 @ 26268:                  RETURN

   643  s(counterr):
3019 @ 26269:                  LINE   643 "regression-compile-tmp/chimp.imp"
3020 @ 26305:                  PUSHI  #0x0000002d
3021 @ 26310:                  SLABEL 235

   644    %if elements < 0 %start
3022 @ 26313:                  LINE   644 "regression-compile-tmp/chimp.imp"
3023 @ 26349:                  PUSH   ELEMENTS
3024 @ 26352:                  PUSHI  #0x00000000
3025 @ 26357:                  JUMPIF >= L_0004

   645      write(-elements,0);  printstring(" extra")
3026 @ 26361:                  LINE   645 "regression-compile-tmp/chimp.imp"
3027 @ 26397:                  PUSH   WRITE
3028 @ 26400:                  PUSH   ELEMENTS
3029 @ 26403:                  NEGATE
3030 @ 26404:                  ASSPAR
3031 @ 26405:                  PUSHI  #0x00000000
3032 @ 26410:                  ASSPAR
3033 @ 26411:                  CALL  
3034 @ 26412:                  LINE   645 "regression-compile-tmp/chimp.imp"
3035 @ 26448:                  PUSH   PRINTSTRING
3036 @ 26451:                  PUSHS  " extra"
3037 @ 26459:                  ASSPAR
3038 @ 26460:                  CALL  

   646    %finish %else %start
3039 @ 26461:                  LINE   646 "regression-compile-tmp/chimp.imp"
3040 @ 26497:                  GOTO   L_0003
3041 @ 26500:                  LOCATE L_0004

   647      write(elements,0);  printstring(" missing")
3042 @ 26503:                  LINE   647 "regression-compile-tmp/chimp.imp"
3043 @ 26539:                  PUSH   WRITE
3044 @ 26542:                  PUSH   ELEMENTS
3045 @ 26545:                  ASSPAR
3046 @ 26546:                  PUSHI  #0x00000000
3047 @ 26551:                  ASSPAR
3048 @ 26552:                  CALL  
3049 @ 26553:                  LINE   647 "regression-compile-tmp/chimp.imp"
3050 @ 26589:                  PUSH   PRINTSTRING
3051 @ 26592:                  PUSHS  " missing"
3052 @ 26602:                  ASSPAR
3053 @ 26603:                  CALL  

   648    %finish
3054 @ 26604:                  LINE   648 "regression-compile-tmp/chimp.imp"
3055 @ 26640:                  LOCATE L_0003

   649    printstring(" value(s) for ")
3056 @ 26643:                  LINE   649 "regression-compile-tmp/chimp.imp"
3057 @ 26679:                  PUSH   PRINTSTRING
3058 @ 26682:                  PUSHS  " value(s) for "
3059 @ 26698:                  ASSPAR
3060 @ 26699:                  CALL  

   650    print ident(x)
3061 @ 26700:                  LINE   650 "regression-compile-tmp/chimp.imp"
3062 @ 26736:                  PUSH   PRINTIDENT
3063 @ 26739:                  PUSH   X
3064 @ 26742:                  ASSPAR
3065 @ 26743:                  CALL  

   651    %return
3066 @ 26744:                  LINE   651 "regression-compile-tmp/chimp.imp"
3067 @ 26780:                  RETURN

   652  s(asserr):
3068 @ 26781:                  LINE   652 "regression-compile-tmp/chimp.imp"
3069 @ 26817:                  PUSHI  #0x00000005
3070 @ 26822:                  SLABEL 235

   653    print ident(x)
3071 @ 26825:                  LINE   653 "regression-compile-tmp/chimp.imp"
3072 @ 26861:                  PUSH   PRINTIDENT
3073 @ 26864:                  PUSH   X
3074 @ 26867:                  ASSPAR
3075 @ 26868:                  CALL  

   654    print string(" void")
3076 @ 26869:                  LINE   654 "regression-compile-tmp/chimp.imp"
3077 @ 26905:                  PUSH   PRINTSTRING
3078 @ 26908:                  PUSHS  " void"
3079 @ 26915:                  ASSPAR
3080 @ 26916:                  CALL  

   655  %end
   656  
   657  !Warning or error
3081 @ 26917:                  LINE   655 "regression-compile-tmp/chimp.imp"
3082 @ 26953:               END    _ECCECI_REPORT_PRINTTEXT {lev=3 --> 2}

   658    mark = '?'
3083 @ 26954:               LINE   658 "regression-compile-tmp/chimp.imp"
3084 @ 26990:               PUSH   MARK
3085 @ 26993:               PUSHI  #0x0000003f
3086 @ 26998:               ASSVAL

   659    %if n&warn = 0 %start
3087 @ 26999:               LINE   659 "regression-compile-tmp/chimp.imp"
3088 @ 27035:               PUSH   N
3089 @ 27038:               PUSHI  #0x00000080
3090 @ 27043:               AND   
3091 @ 27044:               PUSHI  #0x00000000
3092 @ 27049:               JUMPIF # L_0004

   660      mark = '*'
3093 @ 27053:               LINE   660 "regression-compile-tmp/chimp.imp"
3094 @ 27089:               PUSH   MARK
3095 @ 27092:               PUSHI  #0x0000002a
3096 @ 27097:               ASSVAL

   661      c_faults = c_faults+1;  faults = faults+1
3097 @ 27098:               LINE   661 "regression-compile-tmp/chimp.imp"
3098 @ 27134:               PUSH   C
3099 @ 27137:               SELECT 16
3100 @ 27140:               PUSH   C
3101 @ 27143:               SELECT 16
3102 @ 27146:               PUSHI  #0x00000001
3103 @ 27151:               ADD   
3104 @ 27152:               ASSVAL
3105 @ 27153:               LINE   661 "regression-compile-tmp/chimp.imp"
3106 @ 27189:               PUSH   FAULTS
3107 @ 27192:               PUSH   FAULTS
3108 @ 27195:               PUSHI  #0x00000001
3109 @ 27200:               ADD   
3110 @ 27201:               ASSVAL

   662    %finish
3111 @ 27202:               LINE   662 "regression-compile-tmp/chimp.imp"
3112 @ 27238:               LOCATE L_0004

   663    faultnum = 0;  c_access = -1
   664  !Ignore uncorrected earlier error
3113 @ 27241:               LINE   663 "regression-compile-tmp/chimp.imp"
3114 @ 27277:               PUSH   FAULTNUM
3115 @ 27280:               PUSHI  #0x00000000
3116 @ 27285:               ASSVAL
3117 @ 27286:               LINE   663 "regression-compile-tmp/chimp.imp"
3118 @ 27322:               PUSH   C
3119 @ 27325:               SELECT 12
3120 @ 27328:               PUSHI  #0x00000001
3121 @ 27333:               NEGATE
3122 @ 27334:               ASSVAL

   665    %return %if main_start1 <= fp < change
   666  !Track back if before current line
3123 @ 27335:               LINE   665 "regression-compile-tmp/chimp.imp"
3124 @ 27371:               PUSH   MAIN
3125 @ 27374:               SELECT 1
3126 @ 27377:               PUSH   FP
3127 @ 27380:               JUMPIFD > L_0004
3128 @ 27384:               PUSH   CHANGE
3129 @ 27387:               JUMPIF >= L_0004
3130 @ 27391:               RETURN
3131 @ 27392:               LOCATE L_0004

   667    start = linestart;  errline = line
3132 @ 27395:               LINE   667 "regression-compile-tmp/chimp.imp"
3133 @ 27431:               PUSH   START
3134 @ 27434:               PUSH   LINESTART
3135 @ 27437:               ASSVAL
3136 @ 27438:               LINE   667 "regression-compile-tmp/chimp.imp"
3137 @ 27474:               PUSH   ERRLINE
3138 @ 27477:               PUSH   LINE
3139 @ 27480:               ASSVAL

   668    %if n&point = 0 %then faultp = 0 %else %start
3140 @ 27481:               LINE   668 "regression-compile-tmp/chimp.imp"
3141 @ 27517:               PUSH   N
3142 @ 27520:               PUSHI  #0x00000040
3143 @ 27525:               AND   
3144 @ 27526:               PUSHI  #0x00000000
3145 @ 27531:               JUMPIF # L_0004
3146 @ 27535:               PUSH   FAULTP
3147 @ 27538:               PUSHI  #0x00000000
3148 @ 27543:               ASSVAL
3149 @ 27544:               GOTO   L_0003
3150 @ 27547:               LOCATE L_0004

   669      faultp = joker %if joker > 0
3151 @ 27550:               LINE   669 "regression-compile-tmp/chimp.imp"
3152 @ 27586:               PUSH   JOKER
3153 @ 27589:               PUSHI  #0x00000000
3154 @ 27594:               JUMPIF <= L_0007
3155 @ 27598:               PUSH   FAULTP
3156 @ 27601:               PUSH   JOKER
3157 @ 27604:               ASSVAL
3158 @ 27605:               LOCATE L_0007

   670      %while faultp <= start %cycle
3159 @ 27608:               LINE   670 "regression-compile-tmp/chimp.imp"
3160 @ 27644:               LOCATE L_0006
3161 @ 27647:               PUSH   FAULTP
3162 @ 27650:               PUSH   START
3163 @ 27653:               JUMPIF > L_0007

   671        start = start-1
3164 @ 27657:               LINE   671 "regression-compile-tmp/chimp.imp"
3165 @ 27693:               PUSH   START
3166 @ 27696:               PUSH   START
3167 @ 27699:               PUSHI  #0x00000001
3168 @ 27704:               SUB   
3169 @ 27705:               ASSVAL

   672        errline = errline-1 %if byteinteger(start) = nl
3170 @ 27706:               LINE   672 "regression-compile-tmp/chimp.imp"
3171 @ 27742:               PUSH   BYTEINTEGER
3172 @ 27745:               PUSH   START
3173 @ 27748:               ASSPAR
3174 @ 27749:               CALL  
3175 @ 27750:               PUSHI  #0x0000000a
3176 @ 27755:               JUMPIF # L_000a
3177 @ 27759:               PUSH   ERRLINE
3178 @ 27762:               PUSH   ERRLINE
3179 @ 27765:               PUSHI  #0x00000001
3180 @ 27770:               SUB   
3181 @ 27771:               ASSVAL
3182 @ 27772:               LOCATE L_000a

   673      %repeat
3183 @ 27775:               LINE   673 "regression-compile-tmp/chimp.imp"
3184 @ 27811:               REPEAT L_0006
3185 @ 27814:               LOCATE L_0007

   674      start = start-1 %while start # curstart %and byteinteger(start-1) # nl
3186 @ 27817:               LINE   674 "regression-compile-tmp/chimp.imp"
3187 @ 27853:               LOCATE L_0006
3188 @ 27856:               PUSH   START
3189 @ 27859:               PUSH   CURSTART
3190 @ 27862:               JUMPIF = L_0007
3191 @ 27866:               PUSH   BYTEINTEGER
3192 @ 27869:               PUSH   START
3193 @ 27872:               PUSHI  #0x00000001
3194 @ 27877:               SUB   
3195 @ 27878:               ASSPAR
3196 @ 27879:               CALL  
3197 @ 27880:               PUSHI  #0x0000000a
3198 @ 27885:               JUMPIF = L_0007
3199 @ 27889:               PUSH   START
3200 @ 27892:               PUSH   START
3201 @ 27895:               PUSHI  #0x00000001
3202 @ 27900:               SUB   
3203 @ 27901:               ASSVAL
3204 @ 27902:               REPEAT L_0006
3205 @ 27905:               LOCATE L_0007

   675    %finish
3206 @ 27908:               LINE   675 "regression-compile-tmp/chimp.imp"
3207 @ 27944:               LOCATE L_0003

   676    editfp = start;  editfp = faultp-1 %if faultp > start
3208 @ 27947:               LINE   676 "regression-compile-tmp/chimp.imp"
3209 @ 27983:               PUSH   EDITFP
3210 @ 27986:               PUSH   START
3211 @ 27989:               ASSVAL
3212 @ 27990:               LINE   676 "regression-compile-tmp/chimp.imp"
3213 @ 28026:               PUSH   FAULTP
3214 @ 28029:               PUSH   START
3215 @ 28032:               JUMPIF <= L_0004
3216 @ 28036:               PUSH   EDITFP
3217 @ 28039:               PUSH   FAULTP
3218 @ 28042:               PUSHI  #0x00000001
3219 @ 28047:               SUB   
3220 @ 28048:               ASSVAL
3221 @ 28049:               LOCATE L_0004

   677    editfp = mainfp %if curlim = extra_lim2
3222 @ 28052:               LINE   677 "regression-compile-tmp/chimp.imp"
3223 @ 28088:               PUSH   CURLIM
3224 @ 28091:               PUSH   EXTRA
3225 @ 28094:               SELECT 4
3226 @ 28097:               JUMPIF # L_0004
3227 @ 28101:               PUSH   EDITFP
3228 @ 28104:               PUSH   MAINFP
3229 @ 28107:               ASSVAL
3230 @ 28108:               LOCATE L_0004

   678    start = start+1 %while byteinteger(start) = ' '
3231 @ 28111:               LINE   678 "regression-compile-tmp/chimp.imp"
3232 @ 28147:               LOCATE L_0003
3233 @ 28150:               PUSH   BYTEINTEGER
3234 @ 28153:               PUSH   START
3235 @ 28156:               ASSPAR
3236 @ 28157:               CALL  
3237 @ 28158:               PUSHI  #0x00000020
3238 @ 28163:               JUMPIF # L_0004
3239 @ 28167:               PUSH   START
3240 @ 28170:               PUSH   START
3241 @ 28173:               PUSHI  #0x00000001
3242 @ 28178:               ADD   
3243 @ 28179:               ASSVAL
3244 @ 28180:               REPEAT L_0003
3245 @ 28183:               LOCATE L_0004

   679    print text(joker,0)
3246 @ 28186:               LINE   679 "regression-compile-tmp/chimp.imp"
3247 @ 28222:               PUSH   PRINTTEXT
3248 @ 28225:               PUSH   JOKER
3249 @ 28228:               ASSPAR
3250 @ 28229:               PUSHI  #0x00000000
3251 @ 28234:               ASSPAR
3252 @ 28235:               CALL  

   680    newline %and %return %if n&warn # 0 %or nonstop # 0
3253 @ 28236:               LINE   680 "regression-compile-tmp/chimp.imp"
3254 @ 28272:               PUSH   N
3255 @ 28275:               PUSHI  #0x00000080
3256 @ 28280:               AND   
3257 @ 28281:               PUSHI  #0x00000000
3258 @ 28286:               JUMPIF # L_0005
3259 @ 28290:               PUSH   NONSTOP
3260 @ 28293:               PUSHI  #0x00000000
3261 @ 28298:               JUMPIF = L_0004
3262 @ 28302:               LOCATE L_0005
3263 @ 28305:               PUSH   NEWLINE
3264 @ 28308:               CALL  
3265 @ 28309:               RETURN
3266 @ 28310:               LOCATE L_0004

   681    main_fp = editfp;  main_line = line
3267 @ 28313:               LINE   681 "regression-compile-tmp/chimp.imp"
3268 @ 28349:               PUSH   MAIN
3269 @ 28352:               SELECT 7
3270 @ 28355:               PUSH   EDITFP
3271 @ 28358:               ASSVAL
3272 @ 28359:               LINE   681 "regression-compile-tmp/chimp.imp"
3273 @ 28395:               PUSH   MAIN
3274 @ 28398:               SELECT 10
3275 @ 28401:               PUSH   LINE
3276 @ 28404:               ASSVAL

   682    %if change # 0 %then main_change = 16_7FFFFFFE
3277 @ 28405:               LINE   682 "regression-compile-tmp/chimp.imp"
3278 @ 28441:               PUSH   CHANGE
3279 @ 28444:               PUSHI  #0x00000000
3280 @ 28449:               JUMPIF = L_0004
3281 @ 28453:               PUSH   MAIN
3282 @ 28456:               SELECT 8
3283 @ 28459:               PUSHI  #0x7ffffffe
3284 @ 28464:               ASSVAL
3285 @ 28465:               LOCATE L_0004

   683    edi(main,null,rep)
3286 @ 28468:               LINE   683 "regression-compile-tmp/chimp.imp"
3287 @ 28504:               PUSH   EDI
3288 @ 28507:               PUSH   MAIN
3289 @ 28510:               ASSPAR
3290 @ 28511:               PUSH   NULL
3291 @ 28514:               ASSPAR
3292 @ 28515:               PUSH   REP
3293 @ 28518:               ASSPAR
3294 @ 28519:               CALL  

   684    rep = ""
3295 @ 28520:               LINE   684 "regression-compile-tmp/chimp.imp"
3296 @ 28556:               PUSH   REP
3297 @ 28559:               PUSHS  ""
3298 @ 28561:               ASSVAL

   685    nonstop = 1 %if main_flag = 'I'
3299 @ 28562:               LINE   685 "regression-compile-tmp/chimp.imp"
3300 @ 28598:               PUSH   MAIN
3301 @ 28601:               SELECT 9
3302 @ 28604:               PUSHI  #0x00000049
3303 @ 28609:               JUMPIF # L_0004
3304 @ 28613:               PUSH   NONSTOP
3305 @ 28616:               PUSHI  #0x00000001
3306 @ 28621:               ASSVAL
3307 @ 28622:               LOCATE L_0004

   686    %stop %if main_flag < 0
3308 @ 28625:               LINE   686 "regression-compile-tmp/chimp.imp"
3309 @ 28661:               PUSH   MAIN
3310 @ 28664:               SELECT 9
3311 @ 28667:               PUSHI  #0x00000000
3312 @ 28672:               JUMPIF >= L_0004
3313 @ 28676:               STOP  
3314 @ 28677:               LOCATE L_0004

   687    %signal 12 %if main_change < 16_7FFFFFFE {change made}
3315 @ 28680:               LINE   687 "regression-compile-tmp/chimp.imp"
3316 @ 28716:               PUSH   MAIN
3317 @ 28719:               SELECT 8
3318 @ 28722:               PUSHI  #0x7ffffffe
3319 @ 28727:               JUMPIF >= L_0004
3320 @ 28731:               EVENT  000c
3321 @ 28734:               LOCATE L_0004

   688   %end;  !report
   689  
3322 @ 28737:               LINE   688 "regression-compile-tmp/chimp.imp"
3323 @ 28773:            END    _ECCECI_REPORT {lev=2 --> 1}

   690  %routine CROAK(%string(255) s)
3324 @ 28774:            LINE   690 "regression-compile-tmp/chimp.imp"
3325 @ 28810:            DEF    CROAK (_ECCECI_CROAK) p1=V_00de 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
3326 @ 28827:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
3327 @ 28828:                  DEF    S p1=V_00df a/tf=31 b/format=ff c/ostate=0  type=3 (string) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
3328 @ 28841:               FINISH ) {lev=2}

   691    print string("** ".s.".  Checking abandoned at line ")
3329 @ 28842:               LINE   691 "regression-compile-tmp/chimp.imp"
3330 @ 28878:               PUSH   PRINTSTRING
3331 @ 28881:               PUSHS  "** "
3332 @ 28886:               PUSH   S
3333 @ 28889:               CONCAT
3334 @ 28890:               PUSHS  ".  Checking abandoned at line "
3335 @ 28922:               CONCAT
3336 @ 28923:               ASSPAR
3337 @ 28924:               CALL  

   692    write(line,0);  newline
3338 @ 28925:               LINE   692 "regression-compile-tmp/chimp.imp"
3339 @ 28961:               PUSH   WRITE
3340 @ 28964:               PUSH   LINE
3341 @ 28967:               ASSPAR
3342 @ 28968:               PUSHI  #0x00000000
3343 @ 28973:               ASSPAR
3344 @ 28974:               CALL  
3345 @ 28975:               LINE   692 "regression-compile-tmp/chimp.imp"
3346 @ 29011:               PUSH   NEWLINE
3347 @ 29014:               CALL  

   693    nonstop = -999
3348 @ 29015:               LINE   693 "regression-compile-tmp/chimp.imp"
3349 @ 29051:               PUSH   NONSTOP
3350 @ 29054:               PUSHI  #0x000003e7
3351 @ 29059:               NEGATE
3352 @ 29060:               ASSVAL

   694    %signal 12
3353 @ 29061:               LINE   694 "regression-compile-tmp/chimp.imp"
3354 @ 29097:               EVENT  000c

   695  %end
   696  
3355 @ 29100:               LINE   695 "regression-compile-tmp/chimp.imp"
3356 @ 29136:            END    _ECCECI_CROAK {lev=2 --> 1}

   697  %routine FAULT(%integer n)
   698  !Note fault number and position of (earliest) fault
   699  ! for subsequent reporting (warnings and weak errors)
3357 @ 29137:            LINE   697 "regression-compile-tmp/chimp.imp"
3358 @ 29173:            DEF    FAULT (_ECCECI_FAULT) p1=V_00df 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
3359 @ 29190:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
3360 @ 29191:                  DEF    N p1=V_00e0 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
3361 @ 29204:               FINISH ) {lev=2}

   700    faultnum = n %and faultp = atomp %if faultnum = 0
3362 @ 29205:               LINE   700 "regression-compile-tmp/chimp.imp"
3363 @ 29241:               PUSH   FAULTNUM
3364 @ 29244:               PUSHI  #0x00000000
3365 @ 29249:               JUMPIF # L_0004
3366 @ 29253:               PUSH   FAULTNUM
3367 @ 29256:               PUSH   N
3368 @ 29259:               ASSVAL
3369 @ 29260:               PUSH   FAULTP
3370 @ 29263:               PUSH   ATOMP
3371 @ 29266:               ASSVAL
3372 @ 29267:               LOCATE L_0004

   701  %end
3373 @ 29270:               LINE   701 "regression-compile-tmp/chimp.imp"
3374 @ 29306:            END    _ECCECI_FAULT {lev=2 --> 1}

   702  %routine EXPFAULT(%integer n)
3375 @ 29307:            LINE   702 "regression-compile-tmp/chimp.imp"
3376 @ 29343:            DEF    EXPFAULT (_ECCECI_EXPFAULT) p1=V_00e0 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
3377 @ 29363:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
3378 @ 29364:                  DEF    N p1=V_00e1 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
3379 @ 29377:               FINISH ) {lev=2}

   703    faultnum = n!point %and faultp = expp %if faultnum = 0 %or expp < faultp
3380 @ 29378:               LINE   703 "regression-compile-tmp/chimp.imp"
3381 @ 29414:               PUSH   FAULTNUM
3382 @ 29417:               PUSHI  #0x00000000
3383 @ 29422:               JUMPIF = L_0005
3384 @ 29426:               PUSH   EXPP
3385 @ 29429:               PUSH   FAULTP
3386 @ 29432:               JUMPIF >= L_0004
3387 @ 29436:               LOCATE L_0005
3388 @ 29439:               PUSH   FAULTNUM
3389 @ 29442:               PUSH   N
3390 @ 29445:               PUSHI  #0x00000040
3391 @ 29450:               OR    
3392 @ 29451:               ASSVAL
3393 @ 29452:               PUSH   FAULTP
3394 @ 29455:               PUSH   EXPP
3395 @ 29458:               ASSVAL
3396 @ 29459:               LOCATE L_0004

   704  %end
   705  
3397 @ 29462:               LINE   704 "regression-compile-tmp/chimp.imp"
3398 @ 29498:            END    _ECCECI_EXPFAULT {lev=2 --> 1}

   706  %constinteger pred=1, uparr=1<<1, nocomma=1<<2, overload=1<<3,
   707                ranges=1<<4, nolength=1<<5, initass=1<<6, kgoto=1<<7,
   708                hyphen=1<<8, naming=1<<9, klabel=1<<10, ibmhex=1<<11,
   709                oldcycle=1<<12, loop2=1<<13
3399 @ 29499:            LINE   706 "regression-compile-tmp/chimp.imp"

   710  %routine NONSTANDARD(%integer case)
3400 @ 29535:            LINE   710 "regression-compile-tmp/chimp.imp"
3401 @ 29571:            DEF    NONSTANDARD (_ECCECI_NONSTANDARD) p1=V_00e1 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
3402 @ 29594:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
3403 @ 29595:                  DEF    CASE p1=V_00e2 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
3404 @ 29611:               FINISH ) {lev=2}

   711  %owninteger hadit=0
3405 @ 29612:               LINE   711 "regression-compile-tmp/chimp.imp"
3406 @ 29648:               PUSHI  #0x00000000
3407 @ 29653:               DEF    HADIT p1=V_00e3 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
3408 @ 29670:               INIT   1

   712    %if control&nonsbit # 0 %and case&hadit = 0 %start
3409 @ 29673:               LINE   712 "regression-compile-tmp/chimp.imp"
3410 @ 29709:               PUSH   CONTROL
3411 @ 29712:               PUSHI  #0x00010000
3412 @ 29717:               AND   
3413 @ 29718:               PUSHI  #0x00000000
3414 @ 29723:               JUMPIF = L_0004
3415 @ 29727:               PUSH   CASE
3416 @ 29730:               PUSH   HADIT
3417 @ 29733:               AND   
3418 @ 29734:               PUSHI  #0x00000000
3419 @ 29739:               JUMPIF # L_0004

   713      hadit = hadit+case
3420 @ 29743:               LINE   713 "regression-compile-tmp/chimp.imp"
3421 @ 29779:               PUSH   HADIT
3422 @ 29782:               PUSH   HADIT
3423 @ 29785:               PUSH   CASE
3424 @ 29788:               ADD   
3425 @ 29789:               ASSVAL

   714      fault(nonstand+point+warn)
3426 @ 29790:               LINE   714 "regression-compile-tmp/chimp.imp"
3427 @ 29826:               PUSH   FAULT
3428 @ 29829:               PUSHI  #0x00000016
3429 @ 29834:               PUSHI  #0x00000040
3430 @ 29839:               ADD   
3431 @ 29840:               PUSHI  #0x00000080
3432 @ 29845:               ADD   
3433 @ 29846:               ASSPAR
3434 @ 29847:               CALL  

   715    %finish
3435 @ 29848:               LINE   715 "regression-compile-tmp/chimp.imp"
3436 @ 29884:               LOCATE L_0004

   716  %end
   717  
3437 @ 29887:               LINE   716 "regression-compile-tmp/chimp.imp"
3438 @ 29923:            END    _ECCECI_NONSTANDARD {lev=2 --> 1}

   718  %routine ERROR(%integer case)
3439 @ 29924:            LINE   718 "regression-compile-tmp/chimp.imp"
3440 @ 29960:            DEF    ERROR (_ECCECI_ERROR) p1=V_00e2 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
3441 @ 29977:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
3442 @ 29978:                  DEF    CASE p1=V_00e3 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
3443 @ 29994:               FINISH ) {lev=2}

   719    report(case,atomp)
3444 @ 29995:               LINE   719 "regression-compile-tmp/chimp.imp"
3445 @ 30031:               PUSH   REPORT
3446 @ 30034:               PUSH   CASE
3447 @ 30037:               ASSPAR
3448 @ 30038:               PUSH   ATOMP
3449 @ 30041:               ASSPAR
3450 @ 30042:               CALL  

   720    %signal 14
3451 @ 30043:               LINE   720 "regression-compile-tmp/chimp.imp"
3452 @ 30079:               EVENT  000e

   721  %end
   722  
3453 @ 30082:               LINE   721 "regression-compile-tmp/chimp.imp"
3454 @ 30118:            END    _ECCECI_ERROR {lev=2 --> 1}

   723  %routine NAME ERROR
   724  !check if the culprit has occurred before
   725  !and, if not, add it to the pool of unknowns stored at the
   726  !far end of the dictionary.
3455 @ 30119:            LINE   723 "regression-compile-tmp/chimp.imp"
3456 @ 30155:            DEF    NAMEERROR (_ECCECI_NAMEERROR) p1=V_00e3 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
3457 @ 30176:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
3458 @ 30177:               FINISH ) {lev=2}

   727    %while item < 0 %c
   728       %and string(dict(-item)_text+charbase) # string(charlim) %cycle
3459 @ 30178:               LINE   727 "regression-compile-tmp/chimp.imp"
3460 @ 30214:               LOCATE L_0003
3461 @ 30217:               PUSH   ITEM
3462 @ 30220:               PUSHI  #0x00000000
3463 @ 30225:               JUMPIF >= L_0004
3464 @ 30229:               PUSH   STRING
3465 @ 30232:               PUSH   DICT
3466 @ 30235:               PUSH   ITEM
3467 @ 30238:               NEGATE
3468 @ 30239:               ACCESS
3469 @ 30240:               SELECT 9
3470 @ 30243:               PUSH   CHARBASE
3471 @ 30246:               ADD   
3472 @ 30247:               ASSPAR
3473 @ 30248:               CALL  
3474 @ 30249:               PUSH   STRING
3475 @ 30252:               PUSH   CHARLIM
3476 @ 30255:               ASSPAR
3477 @ 30256:               CALL  
3478 @ 30257:               JUMPIF = L_0004

   729       item = dict(-item)_link
3479 @ 30261:               LINE   729 "regression-compile-tmp/chimp.imp"
3480 @ 30297:               PUSH   ITEM
3481 @ 30300:               PUSH   DICT
3482 @ 30303:               PUSH   ITEM
3483 @ 30306:               NEGATE
3484 @ 30307:               ACCESS
3485 @ 30308:               SELECT 10
3486 @ 30311:               ASSVAL

   730    %repeat
3487 @ 30312:               LINE   730 "regression-compile-tmp/chimp.imp"
3488 @ 30348:               REPEAT L_0003
3489 @ 30351:               LOCATE L_0004

   731    %if item >= 0 %start;  !first time
3490 @ 30354:               LINE   731 "regression-compile-tmp/chimp.imp"
3491 @ 30390:               PUSH   ITEM
3492 @ 30393:               PUSHI  #0x00000000
3493 @ 30398:               JUMPIF < L_0004

   732      report(namerr+point,atomp)
3494 @ 30402:               LINE   732 "regression-compile-tmp/chimp.imp"
3495 @ 30438:               PUSH   REPORT
3496 @ 30441:               PUSHI  #0x00000002
3497 @ 30446:               PUSHI  #0x00000040
3498 @ 30451:               ADD   
3499 @ 30452:               ASSPAR
3500 @ 30453:               PUSH   ATOMP
3501 @ 30456:               ASSPAR
3502 @ 30457:               CALL  

   733      %if charmin-newlen-80 >= charlim %start
3503 @ 30458:               LINE   733 "regression-compile-tmp/chimp.imp"
3504 @ 30494:               PUSH   CHARMIN
3505 @ 30497:               PUSH   NEWLEN
3506 @ 30500:               SUB   
3507 @ 30501:               PUSHI  #0x00000050
3508 @ 30506:               SUB   
3509 @ 30507:               PUSH   CHARLIM
3510 @ 30510:               JUMPIF < L_0007

   734        dmin = dmin-1
3511 @ 30514:               LINE   734 "regression-compile-tmp/chimp.imp"
3512 @ 30550:               PUSH   DMIN
3513 @ 30553:               PUSH   DMIN
3514 @ 30556:               PUSHI  #0x00000001
3515 @ 30561:               SUB   
3516 @ 30562:               ASSVAL

   735        charmin = charmin-newlen-1
3517 @ 30563:               LINE   735 "regression-compile-tmp/chimp.imp"
3518 @ 30599:               PUSH   CHARMIN
3519 @ 30602:               PUSH   CHARMIN
3520 @ 30605:               PUSH   NEWLEN
3521 @ 30608:               SUB   
3522 @ 30609:               PUSHI  #0x00000001
3523 @ 30614:               SUB   
3524 @ 30615:               ASSVAL

   736        string(charmin) = string(charlim)
3525 @ 30616:               LINE   736 "regression-compile-tmp/chimp.imp"
3526 @ 30652:               PUSH   STRING
3527 @ 30655:               PUSH   CHARMIN
3528 @ 30658:               ASSPAR
3529 @ 30659:               CALL  
3530 @ 30660:               PUSH   STRING
3531 @ 30663:               PUSH   CHARLIM
3532 @ 30666:               ASSPAR
3533 @ 30667:               CALL  
3534 @ 30668:               ASSVAL

   737        dict(dmin)_text = charmin-charbase
3535 @ 30669:               LINE   737 "regression-compile-tmp/chimp.imp"
3536 @ 30705:               PUSH   DICT
3537 @ 30708:               PUSH   DMIN
3538 @ 30711:               ACCESS
3539 @ 30712:               SELECT 9
3540 @ 30715:               PUSH   CHARMIN
3541 @ 30718:               PUSH   CHARBASE
3542 @ 30721:               SUB   
3543 @ 30722:               ASSVAL

   738        head == dict(head)_link %while head > 0;  !find last link
3544 @ 30723:               LINE   738 "regression-compile-tmp/chimp.imp"
3545 @ 30759:               LOCATE L_0009
3546 @ 30762:               PUSH   HEAD
3547 @ 30765:               PUSHI  #0x00000000
3548 @ 30770:               JUMPIF <= L_000a
3549 @ 30774:               PUSH   HEAD
3550 @ 30777:               PUSH   DICT
3551 @ 30780:               PUSH   HEAD
3552 @ 30783:               ACCESS
3553 @ 30784:               SELECT 10
3554 @ 30787:               ASSREF
3555 @ 30788:               REPEAT L_0009
3556 @ 30791:               LOCATE L_000a

   739        dict(dmin)_link = head;  head = -dmin
3557 @ 30794:               LINE   739 "regression-compile-tmp/chimp.imp"
3558 @ 30830:               PUSH   DICT
3559 @ 30833:               PUSH   DMIN
3560 @ 30836:               ACCESS
3561 @ 30837:               SELECT 10
3562 @ 30840:               PUSH   HEAD
3563 @ 30843:               ASSVAL
3564 @ 30844:               LINE   739 "regression-compile-tmp/chimp.imp"
3565 @ 30880:               PUSH   HEAD
3566 @ 30883:               PUSH   DMIN
3567 @ 30886:               NEGATE
3568 @ 30887:               ASSVAL

   740      %finish
3569 @ 30888:               LINE   740 "regression-compile-tmp/chimp.imp"
3570 @ 30924:               LOCATE L_0007

   741    %finish
3571 @ 30927:               LINE   741 "regression-compile-tmp/chimp.imp"
3572 @ 30963:               LOCATE L_0004

   742    %signal 14
3573 @ 30966:               LINE   742 "regression-compile-tmp/chimp.imp"
3574 @ 31002:               EVENT  000e

   743  %end
   744  
3575 @ 31005:               LINE   743 "regression-compile-tmp/chimp.imp"
3576 @ 31041:            END    _ECCECI_NAMEERROR {lev=2 --> 1}

   745  %routine SYNTAX ERROR
3577 @ 31042:            LINE   745 "regression-compile-tmp/chimp.imp"
3578 @ 31078:            DEF    SYNTAXERROR (_ECCECI_SYNTAXERROR) p1=V_00e4 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
3579 @ 31101:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
3580 @ 31102:               FINISH ) {lev=2}

   746  %integer e
3581 @ 31103:               LINE   746 "regression-compile-tmp/chimp.imp"
3582 @ 31139:               DEF    E p1=V_00e5 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   747    e = formerr+point;  e = atomerr+point %if atom = dud
3583 @ 31152:               LINE   747 "regression-compile-tmp/chimp.imp"
3584 @ 31188:               PUSH   E
3585 @ 31191:               PUSHI  #0x00000000
3586 @ 31196:               PUSHI  #0x00000040
3587 @ 31201:               ADD   
3588 @ 31202:               ASSVAL
3589 @ 31203:               LINE   747 "regression-compile-tmp/chimp.imp"
3590 @ 31239:               PUSH   ATOM
3591 @ 31242:               PUSHI  #0x0000003f
3592 @ 31247:               JUMPIF # L_0004
3593 @ 31251:               PUSH   E
3594 @ 31254:               PUSHI  #0x00000001
3595 @ 31259:               PUSHI  #0x00000040
3596 @ 31264:               ADD   
3597 @ 31265:               ASSVAL
3598 @ 31266:               LOCATE L_0004

   748    report(e,atomp)
3599 @ 31269:               LINE   748 "regression-compile-tmp/chimp.imp"
3600 @ 31305:               PUSH   REPORT
3601 @ 31308:               PUSH   E
3602 @ 31311:               ASSPAR
3603 @ 31312:               PUSH   ATOMP
3604 @ 31315:               ASSPAR
3605 @ 31316:               CALL  

   749    %signal 14
3606 @ 31317:               LINE   749 "regression-compile-tmp/chimp.imp"
3607 @ 31353:               EVENT  000e

   750  %end
   751  
   752  !!!!!!!!!!!!!!!!!!!!   CELL  CONSTRUCTORS  !!!!!!!!!!!!!!!!!!!
   753  !
   754  !%integerfn litref(%integer v)
   755  !%integer i
   756  !  %result = v %if smallmin <= v <= smallmax
   757  !  litstore(litpos) = v
   758  !  i = litmin-1
   759  !  i = i+1 %until litstore(i) = v
   760  !  %if i = litpos %start
   761  !    litpos = litpos+1
   762  !    croak("Too many literals") %if litpos >= slitpos
   763  !  %finish
   764  !  %result = i
   765  !%end
   766  
   767  !%integerfn litval(%integer v)
   768  !  %result = v %if v <= smallmax
   769  !  %result = litstore(v)
   770  !%end
   771  
3608 @ 31356:               LINE   750 "regression-compile-tmp/chimp.imp"
3609 @ 31392:            END    _ECCECI_SYNTAXERROR {lev=2 --> 1}

   772  %integerfn floated(%integer item)
3610 @ 31393:            LINE   772 "regression-compile-tmp/chimp.imp"
3611 @ 31429:            DEF    FLOATED (_ECCECI_FLOATED) p1=V_00e5 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
3612 @ 31448:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
3613 @ 31449:                  DEF    ITEM p1=V_00e6 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
3614 @ 31465:               FINISH ) {lev=2}

   773    %result = 0 %if item = 0
3615 @ 31466:               LINE   773 "regression-compile-tmp/chimp.imp"
3616 @ 31502:               PUSH   ITEM
3617 @ 31505:               PUSHI  #0x00000000
3618 @ 31510:               JUMPIF # L_0004
3619 @ 31514:               PUSHI  #0x00000000
3620 @ 31519:               RESULT
3621 @ 31520:               LOCATE L_0004

   774    %result = explo;!expref(float,item,0)
3622 @ 31523:               LINE   774 "regression-compile-tmp/chimp.imp"
3623 @ 31559:               PUSH   EXPLO
3624 @ 31562:               RESULT

   775  %end
   776  
   777  !%predicate is short (%integer v)
   778  !  %true %if -32768 <= v <= 32767
   779  !  %false
   780  !%end
   781  
   782  !%predicate is mite (%integer v)
   783  !  %true %if -128 <= v <= 127
   784  !  %false
   785  !%end
   786  
   787  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   788  !!!!!!!!!!!!!!!!!    CODE  GENERATION   !!!!!!!!!!!!!!!!!!!!!!!!
   789  !
3625 @ 31563:               LINE   775 "regression-compile-tmp/chimp.imp"
3626 @ 31599:            END    _ECCECI_FLOATED {lev=2 --> 1}

   790  %routine forget
3627 @ 31600:            LINE   790 "regression-compile-tmp/chimp.imp"
3628 @ 31636:            DEF    FORGET (_ECCECI_FORGET) p1=V_00e6 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
3629 @ 31654:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
3630 @ 31655:               FINISH ) {lev=2}

   791  %end
3631 @ 31656:               LINE   791 "regression-compile-tmp/chimp.imp"
3632 @ 31692:            END    _ECCECI_FORGET {lev=2 --> 1}

   792  %routine forget all
3633 @ 31693:            LINE   792 "regression-compile-tmp/chimp.imp"
3634 @ 31729:            DEF    FORGETALL (_ECCECI_FORGETALL) 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
3635 @ 31750:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
3636 @ 31751:               FINISH ) {lev=2}

   793  %integer i,j
3637 @ 31752:               LINE   793 "regression-compile-tmp/chimp.imp"
3638 @ 31788:               DEF    I 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
3639 @ 31801:               DEF    J 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

   794    litpos = litmin;  explo = expmax+1;  oldexplo = explo
3640 @ 31814:               LINE   794 "regression-compile-tmp/chimp.imp"
3641 @ 31850:               PUSH   LITPOS
3642 @ 31853:               PUSHI  #0x000003e9
3643 @ 31858:               ASSVAL
3644 @ 31859:               LINE   794 "regression-compile-tmp/chimp.imp"
3645 @ 31895:               PUSH   EXPLO
3646 @ 31898:               PUSHI  #0x00000de2
3647 @ 31903:               PUSHI  #0x00000001
3648 @ 31908:               ADD   
3649 @ 31909:               ASSVAL
3650 @ 31910:               LINE   794 "regression-compile-tmp/chimp.imp"
3651 @ 31946:               PUSH   OLDEXPLO
3652 @ 31949:               PUSH   EXPLO
3653 @ 31952:               ASSVAL

   795  %end
   796  !
3654 @ 31953:               LINE   795 "regression-compile-tmp/chimp.imp"
3655 @ 31989:            END    _ECCECI_FORGETALL {lev=2 --> 1}

   797  %routine set label(%integer b)
3656 @ 31990:            LINE   797 "regression-compile-tmp/chimp.imp"
3657 @ 32026:            DEF    SETLABEL (_ECCECI_SETLABEL) 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
3658 @ 32046:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
3659 @ 32047:                  DEF    B 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
3660 @ 32060:               FINISH ) {lev=2}

   798  %end;  !set label
3661 @ 32061:               LINE   798 "regression-compile-tmp/chimp.imp"
3662 @ 32097:            END    _ECCECI_SETLABEL {lev=2 --> 1}

   799  %routine set user label(%integer dpos)
3663 @ 32098:            LINE   799 "regression-compile-tmp/chimp.imp"
3664 @ 32134:            DEF    SETUSERLABEL (_ECCECI_SETUSERLABEL) 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
3665 @ 32158:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
3666 @ 32159:                  DEF    DPOS 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
3667 @ 32175:               FINISH ) {lev=2}

   800  %end
3668 @ 32176:               LINE   800 "regression-compile-tmp/chimp.imp"
3669 @ 32212:            END    _ECCECI_SETUSERLABEL {lev=2 --> 1}

   801  %routine compile(%integer from,to)
   802  !  show exp(from,to) %if control&explist # 0
3670 @ 32213:            LINE   801 "regression-compile-tmp/chimp.imp"
3671 @ 32249:            DEF    COMPILE (_ECCECI_COMPILE) 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
3672 @ 32268:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
3673 @ 32269:                  DEF    FROM 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
3674 @ 32285:                  DEF    TO 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
3675 @ 32299:               FINISH ) {lev=2}

   803    np = np0
3676 @ 32300:               LINE   803 "regression-compile-tmp/chimp.imp"
3677 @ 32336:               PUSH   NP
3678 @ 32339:               PUSHI  #0x00000cb7
3679 @ 32344:               ASSVAL

   804  %end
3680 @ 32345:               LINE   804 "regression-compile-tmp/chimp.imp"
3681 @ 32381:            END    _ECCECI_COMPILE {lev=2 --> 1}

   805  %routine compile entry
3682 @ 32382:            LINE   805 "regression-compile-tmp/chimp.imp"
3683 @ 32418:            DEF    COMPILEENTRY (_ECCECI_COMPILEENTRY) 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
3684 @ 32442:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
3685 @ 32443:               FINISH ) {lev=2}

   806  %end
3686 @ 32444:               LINE   806 "regression-compile-tmp/chimp.imp"
3687 @ 32480:            END    _ECCECI_COMPILEENTRY {lev=2 --> 1}

   807  %routine compile end
3688 @ 32481:            LINE   807 "regression-compile-tmp/chimp.imp"
3689 @ 32517:            DEF    COMPILEEND (_ECCECI_COMPILEEND) p1=V_00ec 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
3690 @ 32539:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
3691 @ 32540:               FINISH ) {lev=2}

   808  %end;  !compile end
   809  !!!!!!!!!!!!!!!  end of Code Generation  !!!!!!!!!!!!!!!!!!!!!!!
   810  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   811  
3692 @ 32541:               LINE   808 "regression-compile-tmp/chimp.imp"
3693 @ 32577:            END    _ECCECI_COMPILEEND {lev=2 --> 1}

   812  %routine PUT3(%integer act,x,y)
   813  !  exp(np)_act = act;  exp(np)_x = x;  exp(np)_y = y
   814  !  np = np+1
3694 @ 32578:            LINE   812 "regression-compile-tmp/chimp.imp"
3695 @ 32614:            DEF    PUT3 (_ECCECI_PUT3) p1=V_00ed 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
3696 @ 32630:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
3697 @ 32631:                  DEF    ACT 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
3698 @ 32646:                  DEF    X 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
3699 @ 32659:                  DEF    Y 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
3700 @ 32672:               FINISH ) {lev=2}

   815  %end
   816  !
3701 @ 32673:               LINE   815 "regression-compile-tmp/chimp.imp"
3702 @ 32709:            END    _ECCECI_PUT3 {lev=2 --> 1}

   817  %routine PUT2(%integer act,x)
3703 @ 32710:            LINE   817 "regression-compile-tmp/chimp.imp"
3704 @ 32746:            DEF    PUT2 (_ECCECI_PUT2) 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
3705 @ 32762:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
3706 @ 32763:                  DEF    ACT 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
3707 @ 32778:                  DEF    X 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
3708 @ 32791:               FINISH ) {lev=2}

   818  %end
   819  !
3709 @ 32792:               LINE   818 "regression-compile-tmp/chimp.imp"
3710 @ 32828:            END    _ECCECI_PUT2 {lev=2 --> 1}

   820  %integerfn TEMPVAR
3711 @ 32829:            LINE   820 "regression-compile-tmp/chimp.imp"
3712 @ 32865:            DEF    TEMPVAR (_ECCECI_TEMPVAR) p1=V_00ef 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
3713 @ 32884:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
3714 @ 32885:               FINISH ) {lev=2}

   821    %result = dlim
3715 @ 32886:               LINE   821 "regression-compile-tmp/chimp.imp"
3716 @ 32922:               PUSH   DLIM
3717 @ 32925:               RESULT

   822  %end
   823  
3718 @ 32926:               LINE   822 "regression-compile-tmp/chimp.imp"
3719 @ 32962:            END    _ECCECI_TEMPVAR {lev=2 --> 1}

   824  %routine OPEN BLOCK(%integer pidpos)
3720 @ 32963:            LINE   824 "regression-compile-tmp/chimp.imp"
3721 @ 32999:            DEF    OPENBLOCK (_ECCECI_OPENBLOCK) p1=V_00f0 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
3722 @ 33020:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
3723 @ 33021:                  DEF    PIDPOS 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
3724 @ 33039:               FINISH ) {lev=2}

   825    forget;  !a bit extreme
3725 @ 33040:               LINE   825 "regression-compile-tmp/chimp.imp"
3726 @ 33076:               PUSH   FORGET
3727 @ 33079:               CALL  

   826    croak("Too many levels") %if level = maxlevel
3728 @ 33080:               LINE   826 "regression-compile-tmp/chimp.imp"
3729 @ 33116:               PUSH   LEVEL
3730 @ 33119:               PUSHI  #0x00000010
3731 @ 33124:               JUMPIF # L_0004
3732 @ 33128:               PUSH   CROAK
3733 @ 33131:               PUSHS  "Too many levels"
3734 @ 33148:               ASSPAR
3735 @ 33149:               CALL  
3736 @ 33150:               LOCATE L_0004

   827    hold(level) = c;  level = level+1
3737 @ 33153:               LINE   827 "regression-compile-tmp/chimp.imp"
3738 @ 33189:               PUSH   HOLD
3739 @ 33192:               PUSH   LEVEL
3740 @ 33195:               ACCESS
3741 @ 33196:               PUSH   C
3742 @ 33199:               ASSVAL
3743 @ 33200:               LINE   827 "regression-compile-tmp/chimp.imp"
3744 @ 33236:               PUSH   LEVEL
3745 @ 33239:               PUSH   LEVEL
3746 @ 33242:               PUSHI  #0x00000001
3747 @ 33247:               ADD   
3748 @ 33248:               ASSVAL

   828    c = 0
3749 @ 33249:               LINE   828 "regression-compile-tmp/chimp.imp"
3750 @ 33285:               PUSH   C
3751 @ 33288:               PUSHI  #0x00000000
3752 @ 33293:               ASSVAL

   829    starts = 0;  cycles = 0
3753 @ 33294:               LINE   829 "regression-compile-tmp/chimp.imp"
3754 @ 33330:               PUSH   STARTS
3755 @ 33333:               PUSHI  #0x00000000
3756 @ 33338:               ASSVAL
3757 @ 33339:               LINE   829 "regression-compile-tmp/chimp.imp"
3758 @ 33375:               PUSH   CYCLES
3759 @ 33378:               PUSHI  #0x00000000
3760 @ 33383:               ASSVAL

   830    curlab = lab1;  looplab = 0
3761 @ 33384:               LINE   830 "regression-compile-tmp/chimp.imp"
3762 @ 33420:               PUSH   CURLAB
3763 @ 33423:               PUSHI  #0x00000ca3
3764 @ 33428:               ASSVAL
3765 @ 33429:               LINE   830 "regression-compile-tmp/chimp.imp"
3766 @ 33465:               PUSH   LOOPLAB
3767 @ 33468:               PUSHI  #0x00000000
3768 @ 33473:               ASSVAL

   831    forget all
3769 @ 33474:               LINE   831 "regression-compile-tmp/chimp.imp"
3770 @ 33510:               PUSH   FORGETALL
3771 @ 33513:               CALL  

   832    c_flags = 0;  c_type = d_type
3772 @ 33514:               LINE   832 "regression-compile-tmp/chimp.imp"
3773 @ 33550:               PUSH   C
3774 @ 33553:               SELECT 4
3775 @ 33556:               PUSHI  #0x00000000
3776 @ 33561:               ASSVAL
3777 @ 33562:               LINE   832 "regression-compile-tmp/chimp.imp"
3778 @ 33598:               PUSH   C
3779 @ 33601:               SELECT 5
3780 @ 33604:               PUSH   D
3781 @ 33607:               SELECT 2
3782 @ 33610:               ASSVAL

   833    c_pidpos = pidpos
3783 @ 33611:               LINE   833 "regression-compile-tmp/chimp.imp"
3784 @ 33647:               PUSH   C
3785 @ 33650:               SELECT 11
3786 @ 33653:               PUSH   PIDPOS
3787 @ 33656:               ASSVAL

   834    c_localdpos = dlim;  c_parlim = dlim;  c_localtext = charlim
3788 @ 33657:               LINE   834 "regression-compile-tmp/chimp.imp"
3789 @ 33693:               PUSH   C
3790 @ 33696:               SELECT 6
3791 @ 33699:               PUSH   DLIM
3792 @ 33702:               ASSVAL
3793 @ 33703:               LINE   834 "regression-compile-tmp/chimp.imp"
3794 @ 33739:               PUSH   C
3795 @ 33742:               SELECT 7
3796 @ 33745:               PUSH   DLIM
3797 @ 33748:               ASSVAL
3798 @ 33749:               LINE   834 "regression-compile-tmp/chimp.imp"
3799 @ 33785:               PUSH   C
3800 @ 33788:               SELECT 8
3801 @ 33791:               PUSH   CHARLIM
3802 @ 33794:               ASSVAL

   835    c_localpc = pc;  c_localspc = spc
3803 @ 33795:               LINE   835 "regression-compile-tmp/chimp.imp"
3804 @ 33831:               PUSH   C
3805 @ 33834:               SELECT 9
3806 @ 33837:               PUSH   PC
3807 @ 33840:               ASSVAL
3808 @ 33841:               LINE   835 "regression-compile-tmp/chimp.imp"
3809 @ 33877:               PUSH   C
3810 @ 33880:               SELECT 10
3811 @ 33883:               PUSH   SPC
3812 @ 33886:               ASSVAL

   836    c_access = 1
3813 @ 33887:               LINE   836 "regression-compile-tmp/chimp.imp"
3814 @ 33923:               PUSH   C
3815 @ 33926:               SELECT 12
3816 @ 33929:               PUSHI  #0x00000001
3817 @ 33934:               ASSVAL

   837  %end;  !OPEN BLOCK
   838  
3818 @ 33935:               LINE   837 "regression-compile-tmp/chimp.imp"
3819 @ 33971:            END    _ECCECI_OPENBLOCK {lev=2 --> 1}

   839  %routine CLOSE BLOCK
3820 @ 33972:            LINE   839 "regression-compile-tmp/chimp.imp"
3821 @ 34008:            DEF    CLOSEBLOCK (_ECCECI_CLOSEBLOCK) p1=V_00f1 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
3822 @ 34030:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
3823 @ 34031:               FINISH ) {lev=2}

   840  %integer i
3824 @ 34032:               LINE   840 "regression-compile-tmp/chimp.imp"
3825 @ 34068:               DEF    I 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

   841  %integer miss,dpos
3826 @ 34081:               LINE   841 "regression-compile-tmp/chimp.imp"
3827 @ 34117:               DEF    MISS 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
3828 @ 34133:               DEF    DPOS 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

   842  %integername p
3829 @ 34149:               LINE   842 "regression-compile-tmp/chimp.imp"
3830 @ 34185:               DEF    P p1=V_00f5 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

   843  %record(identinfo)%name dp
   844    !Check identifier usage
3831 @ 34198:               LINE   843 "regression-compile-tmp/chimp.imp"
3832 @ 34234:               DEF    DP p1=V_00f6 a/tf=42 b/format=9a c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   845    miss = 0;  p == miss
3833 @ 34248:               LINE   845 "regression-compile-tmp/chimp.imp"
3834 @ 34284:               PUSH   MISS
3835 @ 34287:               PUSHI  #0x00000000
3836 @ 34292:               ASSVAL
3837 @ 34293:               LINE   845 "regression-compile-tmp/chimp.imp"
3838 @ 34329:               PUSH   P
3839 @ 34332:               PUSH   MISS
3840 @ 34335:               ASSREF

   846    dpos = c_localdpos
3841 @ 34336:               LINE   846 "regression-compile-tmp/chimp.imp"
3842 @ 34372:               PUSH   DPOS
3843 @ 34375:               PUSH   C
3844 @ 34378:               SELECT 6
3845 @ 34381:               ASSVAL

   847    %while dpos # dlim %cycle
3846 @ 34382:               LINE   847 "regression-compile-tmp/chimp.imp"
3847 @ 34418:               LOCATE L_0003
3848 @ 34421:               PUSH   DPOS
3849 @ 34424:               PUSH   DLIM
3850 @ 34427:               JUMPIF = L_0004

   848      dp == dict(dpos)
   849  !    %if (dp_xtype = ptrxtype %and dp_type = dpos)
3851 @ 34431:               LINE   848 "regression-compile-tmp/chimp.imp"
3852 @ 34467:               PUSH   DP
3853 @ 34470:               PUSH   DICT
3854 @ 34473:               PUSH   DPOS
3855 @ 34476:               ACCESS
3856 @ 34477:               ASSREF

   850      %if dp_flags&(proc+lab) # 0 %and dp_flags&(ext+spec) = spec %start
3857 @ 34478:               LINE   850 "regression-compile-tmp/chimp.imp"
3858 @ 34514:               PUSH   DP
3859 @ 34517:               SELECT 1
3860 @ 34520:               PUSHI  #0x00000004
3861 @ 34525:               PUSHI  #0x00000002
3862 @ 34530:               ADD   
3863 @ 34531:               AND   
3864 @ 34532:               PUSHI  #0x00000000
3865 @ 34537:               JUMPIF = L_0007
3866 @ 34541:               PUSH   DP
3867 @ 34544:               SELECT 1
3868 @ 34547:               PUSHI  #0x00000020
3869 @ 34552:               PUSHI  #0x00000010
3870 @ 34557:               ADD   
3871 @ 34558:               AND   
3872 @ 34559:               PUSHI  #0x00000010
3873 @ 34564:               JUMPIF # L_0007

   851            p = dpos;  p == dp_val;  p = 0
3874 @ 34568:               LINE   851 "regression-compile-tmp/chimp.imp"
3875 @ 34604:               PUSH   P
3876 @ 34607:               PUSH   DPOS
3877 @ 34610:               ASSVAL
3878 @ 34611:               LINE   851 "regression-compile-tmp/chimp.imp"
3879 @ 34647:               PUSH   P
3880 @ 34650:               PUSH   DP
3881 @ 34653:               SELECT 7
3882 @ 34656:               ASSREF
3883 @ 34657:               LINE   851 "regression-compile-tmp/chimp.imp"
3884 @ 34693:               PUSH   P
3885 @ 34696:               PUSHI  #0x00000000
3886 @ 34701:               ASSVAL

   852      %finish
   853  !    %if hashindex(dp_spare) = dpos %start
   854  !      dp_link = dict(dp_link)_link %while dp_link >= c_localdpos
   855  !      hashindex(dp_spare) = dp_link
   856  !    %finish
   857  !    dpos = dp_xtype %if dp_type = 0 %and dp_xtype > dpos;  !skip fields
3887 @ 34702:               LINE   852 "regression-compile-tmp/chimp.imp"
3888 @ 34738:               LOCATE L_0007

   858      dpos = dpos+1
3889 @ 34741:               LINE   858 "regression-compile-tmp/chimp.imp"
3890 @ 34777:               PUSH   DPOS
3891 @ 34780:               PUSH   DPOS
3892 @ 34783:               PUSHI  #0x00000001
3893 @ 34788:               ADD   
3894 @ 34789:               ASSVAL

   859    %repeat
3895 @ 34790:               LINE   859 "regression-compile-tmp/chimp.imp"
3896 @ 34826:               REPEAT L_0003
3897 @ 34829:               LOCATE L_0004

   860    report(idmissing,miss) %if miss # 0
3898 @ 34832:               LINE   860 "regression-compile-tmp/chimp.imp"
3899 @ 34868:               PUSH   MISS
3900 @ 34871:               PUSHI  #0x00000000
3901 @ 34876:               JUMPIF = L_0004
3902 @ 34880:               PUSH   REPORT
3903 @ 34883:               PUSHI  #0x0000002a
3904 @ 34888:               ASSPAR
3905 @ 34889:               PUSH   MISS
3906 @ 34892:               ASSPAR
3907 @ 34893:               CALL  
3908 @ 34894:               LOCATE L_0004

   861    compile end
3909 @ 34897:               LINE   861 "regression-compile-tmp/chimp.imp"
3910 @ 34933:               PUSH   COMPILEEND
3911 @ 34936:               CALL  

   862    pc = c_localpc;  spc = c_localspc
3912 @ 34937:               LINE   862 "regression-compile-tmp/chimp.imp"
3913 @ 34973:               PUSH   PC
3914 @ 34976:               PUSH   C
3915 @ 34979:               SELECT 9
3916 @ 34982:               ASSVAL
3917 @ 34983:               LINE   862 "regression-compile-tmp/chimp.imp"
3918 @ 35019:               PUSH   SPC
3919 @ 35022:               PUSH   C
3920 @ 35025:               SELECT 10
3921 @ 35028:               ASSVAL

   863    dlim = c_parlim;  charlim = c_localtext
3922 @ 35029:               LINE   863 "regression-compile-tmp/chimp.imp"
3923 @ 35065:               PUSH   DLIM
3924 @ 35068:               PUSH   C
3925 @ 35071:               SELECT 7
3926 @ 35074:               ASSVAL
3927 @ 35075:               LINE   863 "regression-compile-tmp/chimp.imp"
3928 @ 35111:               PUSH   CHARLIM
3929 @ 35114:               PUSH   C
3930 @ 35117:               SELECT 8
3931 @ 35120:               ASSVAL

   864    %for i = 0,1,255 %cycle
3932 @ 35121:               LINE   864 "regression-compile-tmp/chimp.imp"
3933 @ 35157:               PUSH   I
3934 @ 35160:               PUSHI  #0x00000001
3935 @ 35165:               PUSHI  #0x000000ff
3936 @ 35170:               PUSHI  #0x00000000
3937 @ 35175:               FOR    L_0003

   865       hashindex(i) = dict(hashindex(i))_link %while hashindex(i) >= c_localdpos
3938 @ 35178:               LINE   865 "regression-compile-tmp/chimp.imp"
3939 @ 35214:               LOCATE L_0006
3940 @ 35217:               PUSH   HASHINDEX
3941 @ 35220:               PUSH   I
3942 @ 35223:               ACCESS
3943 @ 35224:               PUSH   C
3944 @ 35227:               SELECT 6
3945 @ 35230:               JUMPIF < L_0007
3946 @ 35234:               PUSH   HASHINDEX
3947 @ 35237:               PUSH   I
3948 @ 35240:               ACCESS
3949 @ 35241:               PUSH   DICT
3950 @ 35244:               PUSH   HASHINDEX
3951 @ 35247:               PUSH   I
3952 @ 35250:               ACCESS
3953 @ 35251:               ACCESS
3954 @ 35252:               SELECT 10
3955 @ 35255:               ASSVAL
3956 @ 35256:               REPEAT L_0006
3957 @ 35259:               LOCATE L_0007

   866    %repeat
3958 @ 35262:               LINE   866 "regression-compile-tmp/chimp.imp"
3959 @ 35298:               REPEAT L_0003
3960 @ 35301:               LOCATE L_0004

   867    level = level-1;  c = hold(level)
3961 @ 35304:               LINE   867 "regression-compile-tmp/chimp.imp"
3962 @ 35340:               PUSH   LEVEL
3963 @ 35343:               PUSH   LEVEL
3964 @ 35346:               PUSHI  #0x00000001
3965 @ 35351:               SUB   
3966 @ 35352:               ASSVAL
3967 @ 35353:               LINE   867 "regression-compile-tmp/chimp.imp"
3968 @ 35389:               PUSH   C
3969 @ 35392:               PUSH   HOLD
3970 @ 35395:               PUSH   LEVEL
3971 @ 35398:               ACCESS
3972 @ 35399:               ASSVAL

   868    starts = 0;  cycles = 0
3973 @ 35400:               LINE   868 "regression-compile-tmp/chimp.imp"
3974 @ 35436:               PUSH   STARTS
3975 @ 35439:               PUSHI  #0x00000000
3976 @ 35444:               ASSVAL
3977 @ 35445:               LINE   868 "regression-compile-tmp/chimp.imp"
3978 @ 35481:               PUSH   CYCLES
3979 @ 35484:               PUSHI  #0x00000000
3980 @ 35489:               ASSVAL

   869  %end;  !CLOSE BLOCK
   870  
   871  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   872  !!!!!!!!!!!!!!!!!!!!  Source input  !!!!!!!!!!!!!!!!!!!!!!!!!!!!
   873  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   874  !
3981 @ 35490:               LINE   869 "regression-compile-tmp/chimp.imp"
3982 @ 35526:            END    _ECCECI_CLOSEBLOCK {lev=2 --> 1}

   875  %routine SWITCH INPUT
   876  !  croak("Input ended") %if fp = main_lim2
3983 @ 35527:            LINE   875 "regression-compile-tmp/chimp.imp"
3984 @ 35563:            DEF    SWITCHINPUT (_ECCECI_SWITCHINPUT) p1=V_00f2 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
3985 @ 35586:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
3986 @ 35587:               FINISH ) {lev=2}

   877    %signal 12 %if fp = main_lim2
3987 @ 35588:               LINE   877 "regression-compile-tmp/chimp.imp"
3988 @ 35624:               PUSH   FP
3989 @ 35627:               PUSH   MAIN
3990 @ 35630:               SELECT 4
3991 @ 35633:               JUMPIF # L_0004
3992 @ 35637:               EVENT  000c
3993 @ 35640:               LOCATE L_0004

   878    %if nonstop < 0 %start;  !perming
3994 @ 35643:               LINE   878 "regression-compile-tmp/chimp.imp"
3995 @ 35679:               PUSH   NONSTOP
3996 @ 35682:               PUSHI  #0x00000000
3997 @ 35687:               JUMPIF >= L_0004

   879      nonstop = nonstop+3;  permlim = dlim
3998 @ 35691:               LINE   879 "regression-compile-tmp/chimp.imp"
3999 @ 35727:               PUSH   NONSTOP
4000 @ 35730:               PUSH   NONSTOP
4001 @ 35733:               PUSHI  #0x00000003
4002 @ 35738:               ADD   
4003 @ 35739:               ASSVAL
4004 @ 35740:               LINE   879 "regression-compile-tmp/chimp.imp"
4005 @ 35776:               PUSH   PERMLIM
4006 @ 35779:               PUSH   DLIM
4007 @ 35782:               ASSVAL

   880      c_localdpos = dlim;  c_parlim = dlim
4008 @ 35783:               LINE   880 "regression-compile-tmp/chimp.imp"
4009 @ 35819:               PUSH   C
4010 @ 35822:               SELECT 6
4011 @ 35825:               PUSH   DLIM
4012 @ 35828:               ASSVAL
4013 @ 35829:               LINE   880 "regression-compile-tmp/chimp.imp"
4014 @ 35865:               PUSH   C
4015 @ 35868:               SELECT 7
4016 @ 35871:               PUSH   DLIM
4017 @ 35874:               ASSVAL

   881      statements = 0
4018 @ 35875:               LINE   881 "regression-compile-tmp/chimp.imp"
4019 @ 35911:               PUSH   STATEMENTS
4020 @ 35914:               PUSHI  #0x00000000
4021 @ 35919:               ASSVAL

   882    %finish
4022 @ 35920:               LINE   882 "regression-compile-tmp/chimp.imp"
4023 @ 35956:               LOCATE L_0004

   883    %if fp # main_lim1 %start
4024 @ 35959:               LINE   883 "regression-compile-tmp/chimp.imp"
4025 @ 35995:               PUSH   FP
4026 @ 35998:               PUSH   MAIN
4027 @ 36001:               SELECT 2
4028 @ 36004:               JUMPIF = L_0004

   884      nonstop = nonstop-1
4029 @ 36008:               LINE   884 "regression-compile-tmp/chimp.imp"
4030 @ 36044:               PUSH   NONSTOP
4031 @ 36047:               PUSH   NONSTOP
4032 @ 36050:               PUSHI  #0x00000001
4033 @ 36055:               SUB   
4034 @ 36056:               ASSVAL

   885      fp = mainfp;  line = mainline
4035 @ 36057:               LINE   885 "regression-compile-tmp/chimp.imp"
4036 @ 36093:               PUSH   FP
4037 @ 36096:               PUSH   MAINFP
4038 @ 36099:               ASSVAL
4039 @ 36100:               LINE   885 "regression-compile-tmp/chimp.imp"
4040 @ 36136:               PUSH   LINE
4041 @ 36139:               PUSH   MAINLINE
4042 @ 36142:               ASSVAL

   886      curstart = main_start1;  curlim = main_lim1
4043 @ 36143:               LINE   886 "regression-compile-tmp/chimp.imp"
4044 @ 36179:               PUSH   CURSTART
4045 @ 36182:               PUSH   MAIN
4046 @ 36185:               SELECT 1
4047 @ 36188:               ASSVAL
4048 @ 36189:               LINE   886 "regression-compile-tmp/chimp.imp"
4049 @ 36225:               PUSH   CURLIM
4050 @ 36228:               PUSH   MAIN
4051 @ 36231:               SELECT 2
4052 @ 36234:               ASSVAL

   887    %finish %else fp = main_start2
4053 @ 36235:               LINE   887 "regression-compile-tmp/chimp.imp"
4054 @ 36271:               GOTO   L_0003
4055 @ 36274:               LOCATE L_0004
4056 @ 36277:               PUSH   FP
4057 @ 36280:               PUSH   MAIN
4058 @ 36283:               SELECT 3
4059 @ 36286:               ASSVAL
4060 @ 36287:               LOCATE L_0003

   888    %if main_start2 <= fp <= main_lim2 %start
4061 @ 36290:               LINE   888 "regression-compile-tmp/chimp.imp"
4062 @ 36326:               PUSH   MAIN
4063 @ 36329:               SELECT 3
4064 @ 36332:               PUSH   FP
4065 @ 36335:               JUMPIFD > L_0004
4066 @ 36339:               PUSH   MAIN
4067 @ 36342:               SELECT 4
4068 @ 36345:               JUMPIF > L_0004

   889      curstart = main_start2;  curlim = main_lim2
4069 @ 36349:               LINE   889 "regression-compile-tmp/chimp.imp"
4070 @ 36385:               PUSH   CURSTART
4071 @ 36388:               PUSH   MAIN
4072 @ 36391:               SELECT 3
4073 @ 36394:               ASSVAL
4074 @ 36395:               LINE   889 "regression-compile-tmp/chimp.imp"
4075 @ 36431:               PUSH   CURLIM
4076 @ 36434:               PUSH   MAIN
4077 @ 36437:               SELECT 4
4078 @ 36440:               ASSVAL

   890    %finish
4079 @ 36441:               LINE   890 "regression-compile-tmp/chimp.imp"
4080 @ 36477:               LOCATE L_0004

   891    modesym = ' ';  sym = nl
4081 @ 36480:               LINE   891 "regression-compile-tmp/chimp.imp"
4082 @ 36516:               PUSH   MODESYM
4083 @ 36519:               PUSHI  #0x00000020
4084 @ 36524:               ASSVAL
4085 @ 36525:               LINE   891 "regression-compile-tmp/chimp.imp"
4086 @ 36561:               PUSH   SYM
4087 @ 36564:               PUSHI  #0x0000000a
4088 @ 36569:               ASSVAL

   892  %end
   893  
4089 @ 36570:               LINE   892 "regression-compile-tmp/chimp.imp"
4090 @ 36606:            END    _ECCECI_SWITCHINPUT {lev=2 --> 1}

   894  %routine READ LINE
   895  ! Read (or otherwise make available) the next source line
   896  !     Skip remnant of previous line if SYM # NL        *NB*
   897  !     Set LINESTART to point to start of new line
4091 @ 36607:            LINE   894 "regression-compile-tmp/chimp.imp"
4092 @ 36643:            DEF    READLINE (_ECCECI_READLINE) p1=V_00f3 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
4093 @ 36663:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
4094 @ 36664:               FINISH ) {lev=2}

   898    report(faultnum,faultp) %if faultnum # 0
4095 @ 36665:               LINE   898 "regression-compile-tmp/chimp.imp"
4096 @ 36701:               PUSH   FAULTNUM
4097 @ 36704:               PUSHI  #0x00000000
4098 @ 36709:               JUMPIF = L_0004
4099 @ 36713:               PUSH   REPORT
4100 @ 36716:               PUSH   FAULTNUM
4101 @ 36719:               ASSPAR
4102 @ 36720:               PUSH   FAULTP
4103 @ 36723:               ASSPAR
4104 @ 36724:               CALL  
4105 @ 36725:               LOCATE L_0004

   899    %while sym # nl %cycle;               !Skip remnant
4106 @ 36728:               LINE   899 "regression-compile-tmp/chimp.imp"
4107 @ 36764:               LOCATE L_0003
4108 @ 36767:               PUSH   SYM
4109 @ 36770:               PUSHI  #0x0000000a
4110 @ 36775:               JUMPIF = L_0004

   900      sym = byteinteger(fp);  fp = fp+1
4111 @ 36779:               LINE   900 "regression-compile-tmp/chimp.imp"
4112 @ 36815:               PUSH   SYM
4113 @ 36818:               PUSH   BYTEINTEGER
4114 @ 36821:               PUSH   FP
4115 @ 36824:               ASSPAR
4116 @ 36825:               CALL  
4117 @ 36826:               ASSVAL
4118 @ 36827:               LINE   900 "regression-compile-tmp/chimp.imp"
4119 @ 36863:               PUSH   FP
4120 @ 36866:               PUSH   FP
4121 @ 36869:               PUSHI  #0x00000001
4122 @ 36874:               ADD   
4123 @ 36875:               ASSVAL

   901    %repeat
4124 @ 36876:               LINE   901 "regression-compile-tmp/chimp.imp"
4125 @ 36912:               REPEAT L_0003
4126 @ 36915:               LOCATE L_0004

   902    %while fp = curlim %cycle
4127 @ 36918:               LINE   902 "regression-compile-tmp/chimp.imp"
4128 @ 36954:               LOCATE L_0003
4129 @ 36957:               PUSH   FP
4130 @ 36960:               PUSH   CURLIM
4131 @ 36963:               JUMPIF # L_0004

   903      switch input
4132 @ 36967:               LINE   903 "regression-compile-tmp/chimp.imp"
4133 @ 37003:               PUSH   SWITCHINPUT
4134 @ 37006:               CALL  

   904    %repeat
4135 @ 37007:               LINE   904 "regression-compile-tmp/chimp.imp"
4136 @ 37043:               REPEAT L_0003
4137 @ 37046:               LOCATE L_0004

   905    line = line+1;  linestart = fp
4138 @ 37049:               LINE   905 "regression-compile-tmp/chimp.imp"
4139 @ 37085:               PUSH   LINE
4140 @ 37088:               PUSH   LINE
4141 @ 37091:               PUSHI  #0x00000001
4142 @ 37096:               ADD   
4143 @ 37097:               ASSVAL
4144 @ 37098:               LINE   905 "regression-compile-tmp/chimp.imp"
4145 @ 37134:               PUSH   LINESTART
4146 @ 37137:               PUSH   FP
4147 @ 37140:               ASSVAL

   906    sym = 0
4148 @ 37141:               LINE   906 "regression-compile-tmp/chimp.imp"
4149 @ 37177:               PUSH   SYM
4150 @ 37180:               PUSHI  #0x00000000
4151 @ 37185:               ASSVAL

   907  %end;  !READ LINE
   908  !
   909  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   910  !!!!!!!!!!!!!!!!!!!!  Lexical processing  !!!!!!!!!!!!!!!!!!!!!!
   911  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   912  
4152 @ 37186:               LINE   907 "regression-compile-tmp/chimp.imp"
4153 @ 37222:            END    _ECCECI_READLINE {lev=2 --> 1}

   913  %owninteger percent=0, subatom=0
   914  !
   915  !Aliases:
4154 @ 37223:            LINE   913 "regression-compile-tmp/chimp.imp"
4155 @ 37259:            PUSHI  #0x00000000
4156 @ 37264:            DEF    PERCENT p1=V_00f4 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
4157 @ 37283:            INIT   1
4158 @ 37286:            PUSHI  #0x00000000
4159 @ 37291:            DEF    SUBATOM p1=V_00f5 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
4160 @ 37310:            INIT   1

   916  %constinteger ARROW=resolve
4161 @ 37313:            LINE   916 "regression-compile-tmp/chimp.imp"

   917  %constinteger EXCLAM=logor, EXCLAM2=logxor, DOT=concat
4162 @ 37349:            LINE   917 "regression-compile-tmp/chimp.imp"

   918  %constinteger STAR=mult, SLASH=fdiv, SLASH2=idiv,
   919                AMPERSAND=logand
4163 @ 37385:            LINE   918 "regression-compile-tmp/chimp.imp"

   920  %constinteger BACKSLASH=fpower, BACKSLASH2=ipower,
   921                UPARROW=fpower,   UPARROW2=ipower,
   922                TILDE=lognot
4164 @ 37421:            LINE   920 "regression-compile-tmp/chimp.imp"

   923  %constinteger LEFT=aref, UNDERLINE=recref, LEFTBRACKET=106
   924  
4165 @ 37457:            LINE   923 "regression-compile-tmp/chimp.imp"

   925  %constinteger SIMPLE=104, MAJOR=plus,
   926                SCOND=equals, COND=keyand
   927  !
   928  ! Type compatibility vectors:
4166 @ 37493:            LINE   925 "regression-compile-tmp/chimp.imp"

   929  %constinteger RECOK=1<<0, ARROK=1<<1, STRINGOK=1<<2,
   930                REALOK=1<<3, INTOK=1<<4, CHAROK=1<<5, 
   931                BOOLOK=1<<6, ENUMOK=1<<7, SETOK=1<<8
4167 @ 37529:            LINE   929 "regression-compile-tmp/chimp.imp"

   932  %constinteger ZNOP=1<<9, REFONLY=1<<10, VARONLY=1<<11
4168 @ 37565:            LINE   932 "regression-compile-tmp/chimp.imp"

   933  %constinteger ARITHOK=intok+realok,
   934                ORDOK=intok+charok+boolok+enumok,
   935                ANY=realok+ordok+stringok+arrok+recok
   936  !
4169 @ 37601:            LINE   933 "regression-compile-tmp/chimp.imp"

   937  %constintegerarray opbits(64:atommax) =
   938    {BOOLAND}    boolok,
   939    {BOOLOR}     boolok,
   940                 0, 0, 0, 0,
   941    {EQUALS}     any,
   942    {NOTEQ}      any,
   943    {LESSEQ}     setok+stringok+ordok+realok,
   944    {LESS}       stringok+ordok+realok,
   945    {GREATEQ}    setok+stringok+ordok+realok,
   946    {GREATER}    stringok+ordok+realok,
   947                 any,
   948                 any,
   949                 0,
   950    {RESOLVE}    stringok,
   951    {PLUS}       znop+setok+arithok,
   952    {MINUS}      znop+setok+arithok,
   953    {LOGOR}      znop+intok,
   954    {LOGXOR}     znop+intok,
   955    {CONCAT}     stringok,
   956                 0, 0, 0,
   957    {MULT}       arithok,
   958    {FDIV}       arithok,
   959    {IDIV}       intok,
   960    {LOGAND}     intok,
   961                 0, 0, 0, 0,
   962    {FPOWER}     arithok,
   963    {IPOWER}     intok,
   964                 0, 0,
   965    {LSHIFT}     znop+intok,
   966    {RSHIFT}     znop+intok,
   967    {LOGNOT}     intok,
   968                 0,
   969    {AREF}       arrok,
   970    {RECREF}     recok,
   971    {}           0, 0
   972  !
4170 @ 37637:            LINE   937 "regression-compile-tmp/chimp.imp"
4171 @ 37673:            PUSHI  #0x00000040
4172 @ 37678:            PUSHI  #0x0000006b
4173 @ 37683:            BOUNDS
4174 @ 37684:            DEF    OPBITS p1=V_00f6 a/tf=1b b/format=1 c/ostate=112  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=2 (constant) spec=0 indirect=1 unass=0
4175 @ 37702:            PUSHI  #0x00000040
4176 @ 37707:            INIT   1
4177 @ 37710:            PUSHI  #0x00000040
4178 @ 37715:            INIT   1
4179 @ 37718:            PUSHI  #0x00000000
4180 @ 37723:            INIT   1
4181 @ 37726:            PUSHI  #0x00000000
4182 @ 37731:            INIT   1
4183 @ 37734:            PUSHI  #0x00000000
4184 @ 37739:            INIT   1
4185 @ 37742:            PUSHI  #0x00000000
4186 @ 37747:            INIT   1
4187 @ 37750:            PUSHI  #0x000000ff
4188 @ 37755:            INIT   1
4189 @ 37758:            PUSHI  #0x000000ff
4190 @ 37763:            INIT   1
4191 @ 37766:            PUSHI  #0x000001fc
4192 @ 37771:            INIT   1
4193 @ 37774:            PUSHI  #0x000000fc
4194 @ 37779:            INIT   1
4195 @ 37782:            PUSHI  #0x000001fc
4196 @ 37787:            INIT   1
4197 @ 37790:            PUSHI  #0x000000fc
4198 @ 37795:            INIT   1
4199 @ 37798:            PUSHI  #0x000000ff
4200 @ 37803:            INIT   1
4201 @ 37806:            PUSHI  #0x000000ff
4202 @ 37811:            INIT   1
4203 @ 37814:            PUSHI  #0x00000000
4204 @ 37819:            INIT   1
4205 @ 37822:            PUSHI  #0x00000004
4206 @ 37827:            INIT   1
4207 @ 37830:            PUSHI  #0x00000318
4208 @ 37835:            INIT   1
4209 @ 37838:            PUSHI  #0x00000318
4210 @ 37843:            INIT   1
4211 @ 37846:            PUSHI  #0x00000210
4212 @ 37851:            INIT   1
4213 @ 37854:            PUSHI  #0x00000210
4214 @ 37859:            INIT   1
4215 @ 37862:            PUSHI  #0x00000004
4216 @ 37867:            INIT   1
4217 @ 37870:            PUSHI  #0x00000000
4218 @ 37875:            INIT   1
4219 @ 37878:            PUSHI  #0x00000000
4220 @ 37883:            INIT   1
4221 @ 37886:            PUSHI  #0x00000000
4222 @ 37891:            INIT   1
4223 @ 37894:            PUSHI  #0x00000018
4224 @ 37899:            INIT   1
4225 @ 37902:            PUSHI  #0x00000018
4226 @ 37907:            INIT   1
4227 @ 37910:            PUSHI  #0x00000010
4228 @ 37915:            INIT   1
4229 @ 37918:            PUSHI  #0x00000010
4230 @ 37923:            INIT   1
4231 @ 37926:            PUSHI  #0x00000000
4232 @ 37931:            INIT   1
4233 @ 37934:            PUSHI  #0x00000000
4234 @ 37939:            INIT   1
4235 @ 37942:            PUSHI  #0x00000000
4236 @ 37947:            INIT   1
4237 @ 37950:            PUSHI  #0x00000000
4238 @ 37955:            INIT   1
4239 @ 37958:            PUSHI  #0x00000018
4240 @ 37963:            INIT   1
4241 @ 37966:            PUSHI  #0x00000010
4242 @ 37971:            INIT   1
4243 @ 37974:            PUSHI  #0x00000000
4244 @ 37979:            INIT   1
4245 @ 37982:            PUSHI  #0x00000000
4246 @ 37987:            INIT   1
4247 @ 37990:            PUSHI  #0x00000210
4248 @ 37995:            INIT   1
4249 @ 37998:            PUSHI  #0x00000210
4250 @ 38003:            INIT   1
4251 @ 38006:            PUSHI  #0x00000010
4252 @ 38011:            INIT   1
4253 @ 38014:            PUSHI  #0x00000000
4254 @ 38019:            INIT   1
4255 @ 38022:            PUSHI  #0x00000002
4256 @ 38027:            INIT   1
4257 @ 38030:            PUSHI  #0x00000001
4258 @ 38035:            INIT   1
4259 @ 38038:            PUSHI  #0x00000000
4260 @ 38043:            INIT   1
4261 @ 38046:            PUSHI  #0x00000000
4262 @ 38051:            INIT   1

   973  %integerfn NEXT ATOM
   974  !Encode next atom from source file
   975  ![Time-critical]
4263 @ 38054:            LINE   973 "regression-compile-tmp/chimp.imp"
4264 @ 38090:            DEF    NEXTATOM (_ECCECI_NEXTATOM) p1=V_00f7 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
4265 @ 38110:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
4266 @ 38111:               FINISH ) {lev=2}

   976  %switch s(0:255)
4267 @ 38112:               LINE   976 "regression-compile-tmp/chimp.imp"
4268 @ 38148:               PUSHI  #0x00000000
4269 @ 38153:               PUSHI  #0x000000ff
4270 @ 38158:               BOUNDS
4271 @ 38159:               DEF    S p1=V_00f8 a/tf=6 b/format=0 c/ostate=0  type=0 (<type:0>) form=6 (switch) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   977  %constinteger tab=9
4272 @ 38172:               LINE   977 "regression-compile-tmp/chimp.imp"

   978  %integer i,j,p,radix,digits
4273 @ 38208:               LINE   978 "regression-compile-tmp/chimp.imp"
4274 @ 38244:               DEF    I p1=V_00f9 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
4275 @ 38257:               DEF    J 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
4276 @ 38270:               DEF    P p1=V_00fb a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
4277 @ 38283:               DEF    RADIX p1=V_00fc a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
4278 @ 38300:               DEF    DIGITS p1=V_00fd a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   979  %real rval
4279 @ 38318:               LINE   979 "regression-compile-tmp/chimp.imp"
4280 @ 38354:               DEF    RVAL p1=V_00fe a/tf=21 b/format=1 c/ostate=0  type=2 (real) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   980  %constbyteintegerarray map(0:127) =
   981    0 ('0'),
   982    '0','1','2','3','4','5','6','7','8','9',
   983    0, 0, 0, 0, 0, 0, 0,
   984    'a','b','c','d','e','f','g','h','i','j','k','l','m',
   985    'n','o','p','q','r','s','t','u','v','w','x','y','z',
   986    0, 0, 0, 0, 0, 0,
   987    'a','b','c','d','e','f','g','h','i','j','k','l','m',
   988    'n','o','p','q','r','s','t','u','v','w','x','y','z',
   989    0, 0, 0, 0, 0
   990  
4281 @ 38370:               LINE   980 "regression-compile-tmp/chimp.imp"
4282 @ 38406:               PUSHI  #0x00000000
4283 @ 38411:               PUSHI  #0x0000007f
4284 @ 38416:               BOUNDS
4285 @ 38417:               DEF    MAP p1=V_00ff a/tf=1b b/format=2 c/ostate=112  type=1 (integer) form=11 (array) special=1 (byte-integer) linkage=2 (constant) spec=0 indirect=1 unass=0
4286 @ 38432:               PUSHI  #0x00000000
4287 @ 38437:               INIT   48
4288 @ 38440:               PUSHI  #0x00000030
4289 @ 38445:               INIT   1
4290 @ 38448:               PUSHI  #0x00000031
4291 @ 38453:               INIT   1
4292 @ 38456:               PUSHI  #0x00000032
4293 @ 38461:               INIT   1
4294 @ 38464:               PUSHI  #0x00000033
4295 @ 38469:               INIT   1
4296 @ 38472:               PUSHI  #0x00000034
4297 @ 38477:               INIT   1
4298 @ 38480:               PUSHI  #0x00000035
4299 @ 38485:               INIT   1
4300 @ 38488:               PUSHI  #0x00000036
4301 @ 38493:               INIT   1
4302 @ 38496:               PUSHI  #0x00000037
4303 @ 38501:               INIT   1
4304 @ 38504:               PUSHI  #0x00000038
4305 @ 38509:               INIT   1
4306 @ 38512:               PUSHI  #0x00000039
4307 @ 38517:               INIT   1
4308 @ 38520:               PUSHI  #0x00000000
4309 @ 38525:               INIT   1
4310 @ 38528:               PUSHI  #0x00000000
4311 @ 38533:               INIT   1
4312 @ 38536:               PUSHI  #0x00000000
4313 @ 38541:               INIT   1
4314 @ 38544:               PUSHI  #0x00000000
4315 @ 38549:               INIT   1
4316 @ 38552:               PUSHI  #0x00000000
4317 @ 38557:               INIT   1
4318 @ 38560:               PUSHI  #0x00000000
4319 @ 38565:               INIT   1
4320 @ 38568:               PUSHI  #0x00000000
4321 @ 38573:               INIT   1
4322 @ 38576:               PUSHI  #0x00000061
4323 @ 38581:               INIT   1
4324 @ 38584:               PUSHI  #0x00000062
4325 @ 38589:               INIT   1
4326 @ 38592:               PUSHI  #0x00000063
4327 @ 38597:               INIT   1
4328 @ 38600:               PUSHI  #0x00000064
4329 @ 38605:               INIT   1
4330 @ 38608:               PUSHI  #0x00000065
4331 @ 38613:               INIT   1
4332 @ 38616:               PUSHI  #0x00000066
4333 @ 38621:               INIT   1
4334 @ 38624:               PUSHI  #0x00000067
4335 @ 38629:               INIT   1
4336 @ 38632:               PUSHI  #0x00000068
4337 @ 38637:               INIT   1
4338 @ 38640:               PUSHI  #0x00000069
4339 @ 38645:               INIT   1
4340 @ 38648:               PUSHI  #0x0000006a
4341 @ 38653:               INIT   1
4342 @ 38656:               PUSHI  #0x0000006b
4343 @ 38661:               INIT   1
4344 @ 38664:               PUSHI  #0x0000006c
4345 @ 38669:               INIT   1
4346 @ 38672:               PUSHI  #0x0000006d
4347 @ 38677:               INIT   1
4348 @ 38680:               PUSHI  #0x0000006e
4349 @ 38685:               INIT   1
4350 @ 38688:               PUSHI  #0x0000006f
4351 @ 38693:               INIT   1
4352 @ 38696:               PUSHI  #0x00000070
4353 @ 38701:               INIT   1
4354 @ 38704:               PUSHI  #0x00000071
4355 @ 38709:               INIT   1
4356 @ 38712:               PUSHI  #0x00000072
4357 @ 38717:               INIT   1
4358 @ 38720:               PUSHI  #0x00000073
4359 @ 38725:               INIT   1
4360 @ 38728:               PUSHI  #0x00000074
4361 @ 38733:               INIT   1
4362 @ 38736:               PUSHI  #0x00000075
4363 @ 38741:               INIT   1
4364 @ 38744:               PUSHI  #0x00000076
4365 @ 38749:               INIT   1
4366 @ 38752:               PUSHI  #0x00000077
4367 @ 38757:               INIT   1
4368 @ 38760:               PUSHI  #0x00000078
4369 @ 38765:               INIT   1
4370 @ 38768:               PUSHI  #0x00000079
4371 @ 38773:               INIT   1
4372 @ 38776:               PUSHI  #0x0000007a
4373 @ 38781:               INIT   1
4374 @ 38784:               PUSHI  #0x00000000
4375 @ 38789:               INIT   1
4376 @ 38792:               PUSHI  #0x00000000
4377 @ 38797:               INIT   1
4378 @ 38800:               PUSHI  #0x00000000
4379 @ 38805:               INIT   1
4380 @ 38808:               PUSHI  #0x00000000
4381 @ 38813:               INIT   1
4382 @ 38816:               PUSHI  #0x00000000
4383 @ 38821:               INIT   1
4384 @ 38824:               PUSHI  #0x00000000
4385 @ 38829:               INIT   1
4386 @ 38832:               PUSHI  #0x00000061
4387 @ 38837:               INIT   1
4388 @ 38840:               PUSHI  #0x00000062
4389 @ 38845:               INIT   1
4390 @ 38848:               PUSHI  #0x00000063
4391 @ 38853:               INIT   1
4392 @ 38856:               PUSHI  #0x00000064
4393 @ 38861:               INIT   1
4394 @ 38864:               PUSHI  #0x00000065
4395 @ 38869:               INIT   1
4396 @ 38872:               PUSHI  #0x00000066
4397 @ 38877:               INIT   1
4398 @ 38880:               PUSHI  #0x00000067
4399 @ 38885:               INIT   1
4400 @ 38888:               PUSHI  #0x00000068
4401 @ 38893:               INIT   1
4402 @ 38896:               PUSHI  #0x00000069
4403 @ 38901:               INIT   1
4404 @ 38904:               PUSHI  #0x0000006a
4405 @ 38909:               INIT   1
4406 @ 38912:               PUSHI  #0x0000006b
4407 @ 38917:               INIT   1
4408 @ 38920:               PUSHI  #0x0000006c
4409 @ 38925:               INIT   1
4410 @ 38928:               PUSHI  #0x0000006d
4411 @ 38933:               INIT   1
4412 @ 38936:               PUSHI  #0x0000006e
4413 @ 38941:               INIT   1
4414 @ 38944:               PUSHI  #0x0000006f
4415 @ 38949:               INIT   1
4416 @ 38952:               PUSHI  #0x00000070
4417 @ 38957:               INIT   1
4418 @ 38960:               PUSHI  #0x00000071
4419 @ 38965:               INIT   1
4420 @ 38968:               PUSHI  #0x00000072
4421 @ 38973:               INIT   1
4422 @ 38976:               PUSHI  #0x00000073
4423 @ 38981:               INIT   1
4424 @ 38984:               PUSHI  #0x00000074
4425 @ 38989:               INIT   1
4426 @ 38992:               PUSHI  #0x00000075
4427 @ 38997:               INIT   1
4428 @ 39000:               PUSHI  #0x00000076
4429 @ 39005:               INIT   1
4430 @ 39008:               PUSHI  #0x00000077
4431 @ 39013:               INIT   1
4432 @ 39016:               PUSHI  #0x00000078
4433 @ 39021:               INIT   1
4434 @ 39024:               PUSHI  #0x00000079
4435 @ 39029:               INIT   1
4436 @ 39032:               PUSHI  #0x0000007a
4437 @ 39037:               INIT   1
4438 @ 39040:               PUSHI  #0x00000000
4439 @ 39045:               INIT   1
4440 @ 39048:               PUSHI  #0x00000000
4441 @ 39053:               INIT   1
4442 @ 39056:               PUSHI  #0x00000000
4443 @ 39061:               INIT   1
4444 @ 39064:               PUSHI  #0x00000000
4445 @ 39069:               INIT   1
4446 @ 39072:               PUSHI  #0x00000000
4447 @ 39077:               INIT   1

   991  %routine assemble real
4448 @ 39080:               LINE   991 "regression-compile-tmp/chimp.imp"
4449 @ 39116:               DEF    ASSEMBLEREAL (_ECCECI_NEXTATOM_ASSEMBLEREAL) p1=V_0100 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
4450 @ 39140:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
4451 @ 39141:                  FINISH ) {lev=3}

   992    j = 0
4452 @ 39142:                  LINE   992 "regression-compile-tmp/chimp.imp"
4453 @ 39178:                  PUSH   J
4454 @ 39181:                  PUSHI  #0x00000000
4455 @ 39186:                  ASSVAL

   993    %cycle
4456 @ 39187:                  LINE   993 "regression-compile-tmp/chimp.imp"
4457 @ 39223:                  LOCATE L_0003

   994      %cycle
4458 @ 39226:                  LINE   994 "regression-compile-tmp/chimp.imp"
4459 @ 39262:                  LOCATE L_0006

   995        sym = byteinteger(fp);  fp = fp+1
4460 @ 39265:                  LINE   995 "regression-compile-tmp/chimp.imp"
4461 @ 39301:                  PUSH   SYM
4462 @ 39304:                  PUSH   BYTEINTEGER
4463 @ 39307:                  PUSH   FP
4464 @ 39310:                  ASSPAR
4465 @ 39311:                  CALL  
4466 @ 39312:                  ASSVAL
4467 @ 39313:                  LINE   995 "regression-compile-tmp/chimp.imp"
4468 @ 39349:                  PUSH   FP
4469 @ 39352:                  PUSH   FP
4470 @ 39355:                  PUSHI  #0x00000001
4471 @ 39360:                  ADD   
4472 @ 39361:                  ASSVAL

   996      %repeat %until sym # ' '
4473 @ 39362:                  LINE   996 "regression-compile-tmp/chimp.imp"
4474 @ 39398:                  PUSH   SYM
4475 @ 39401:                  PUSHI  #0x00000020
4476 @ 39406:                  JUMPIF # L_0007
4477 @ 39410:                  REPEAT L_0006
4478 @ 39413:                  LOCATE L_0007

   997      i = sym-'0'
4479 @ 39416:                  LINE   997 "regression-compile-tmp/chimp.imp"
4480 @ 39452:                  PUSH   I
4481 @ 39455:                  PUSH   SYM
4482 @ 39458:                  PUSHI  #0x00000030
4483 @ 39463:                  SUB   
4484 @ 39464:                  ASSVAL

   998      %return %unless 0 <= i < radix
4485 @ 39465:                  LINE   998 "regression-compile-tmp/chimp.imp"
4486 @ 39501:                  PUSHI  #0x00000000
4487 @ 39506:                  PUSH   I
4488 @ 39509:                  JUMPIFD > L_0008
4489 @ 39513:                  PUSH   RADIX
4490 @ 39516:                  JUMPIF < L_0007
4491 @ 39520:                  LOCATE L_0008
4492 @ 39523:                  RETURN
4493 @ 39524:                  LOCATE L_0007

   999      rval = rval*radix+i;  j = j+1
4494 @ 39527:                  LINE   999 "regression-compile-tmp/chimp.imp"
4495 @ 39563:                  PUSH   RVAL
4496 @ 39566:                  PUSH   RVAL
4497 @ 39569:                  PUSH   RADIX
4498 @ 39572:                  MUL   
4499 @ 39573:                  PUSH   I
4500 @ 39576:                  ADD   
4501 @ 39577:                  ASSVAL
4502 @ 39578:                  LINE   999 "regression-compile-tmp/chimp.imp"
4503 @ 39614:                  PUSH   J
4504 @ 39617:                  PUSH   J
4505 @ 39620:                  PUSHI  #0x00000001
4506 @ 39625:                  ADD   
4507 @ 39626:                  ASSVAL

  1000    %repeat
4508 @ 39627:                  LINE   1000 "regression-compile-tmp/chimp.imp"
4509 @ 39663:                  REPEAT L_0003

  1001  %end
  1002  
  1003  !  atoms = atoms+1
4510 @ 39666:                  LINE   1001 "regression-compile-tmp/chimp.imp"
4511 @ 39702:               END    _ECCECI_NEXTATOM_ASSEMBLEREAL {lev=3 --> 2}

  1004    matched = 0
4512 @ 39703:               LINE   1004 "regression-compile-tmp/chimp.imp"
4513 @ 39739:               PUSH   MATCHED
4514 @ 39742:               PUSHI  #0x00000000
4515 @ 39747:               ASSVAL

  1005  again: s(tab):
4516 @ 39748:               LINE   1005 "regression-compile-tmp/chimp.imp"
4517 @ 39784:               LABEL  L_0101
4518 @ 39787:               LINE   1005 "regression-compile-tmp/chimp.imp"
4519 @ 39823:               PUSHI  #0x00000009
4520 @ 39828:               SLABEL 248

  1006    read line %if sym = nl
4521 @ 39831:               LINE   1006 "regression-compile-tmp/chimp.imp"
4522 @ 39867:               PUSH   SYM
4523 @ 39870:               PUSHI  #0x0000000a
4524 @ 39875:               JUMPIF # L_0004
4525 @ 39879:               PUSH   READLINE
4526 @ 39882:               CALL  
4527 @ 39883:               LOCATE L_0004

  1007    %cycle
4528 @ 39886:               LINE   1007 "regression-compile-tmp/chimp.imp"
4529 @ 39922:               LOCATE L_0003

  1008      sym = byteinteger(fp);  fp = fp+1
4530 @ 39925:               LINE   1008 "regression-compile-tmp/chimp.imp"
4531 @ 39961:               PUSH   SYM
4532 @ 39964:               PUSH   BYTEINTEGER
4533 @ 39967:               PUSH   FP
4534 @ 39970:               ASSPAR
4535 @ 39971:               CALL  
4536 @ 39972:               ASSVAL
4537 @ 39973:               LINE   1008 "regression-compile-tmp/chimp.imp"
4538 @ 40009:               PUSH   FP
4539 @ 40012:               PUSH   FP
4540 @ 40015:               PUSHI  #0x00000001
4541 @ 40020:               ADD   
4542 @ 40021:               ASSVAL

  1009    %repeat %until sym # ' '
4543 @ 40022:               LINE   1009 "regression-compile-tmp/chimp.imp"
4544 @ 40058:               PUSH   SYM
4545 @ 40061:               PUSHI  #0x00000020
4546 @ 40066:               JUMPIF # L_0004
4547 @ 40070:               REPEAT L_0003
4548 @ 40073:               LOCATE L_0004

  1010    atomp = fp;     !(actually one after)
4549 @ 40076:               LINE   1010 "regression-compile-tmp/chimp.imp"
4550 @ 40112:               PUSH   ATOMP
4551 @ 40115:               PUSH   FP
4552 @ 40118:               ASSVAL

  1011    -> s(sym)
4553 @ 40119:               LINE   1011 "regression-compile-tmp/chimp.imp"
4554 @ 40155:               PUSH   SYM
4555 @ 40158:               SJUMP  248

  1012  linebreak: s(nl):
4556 @ 40161:               LINE   1012 "regression-compile-tmp/chimp.imp"
4557 @ 40197:               LABEL  L_0102
4558 @ 40200:               LINE   1012 "regression-compile-tmp/chimp.imp"
4559 @ 40236:               PUSHI  #0x0000000a
4560 @ 40241:               SLABEL 248

  1013    %result = terminator %if atom # comma
4561 @ 40244:               LINE   1013 "regression-compile-tmp/chimp.imp"
4562 @ 40280:               PUSH   ATOM
4563 @ 40283:               PUSHI  #0x0000003b
4564 @ 40288:               JUMPIF = L_0004
4565 @ 40292:               PUSHI  #0x00000034
4566 @ 40297:               RESULT
4567 @ 40298:               LOCATE L_0004

  1014    -> again
  1015  
4568 @ 40301:               LINE   1014 "regression-compile-tmp/chimp.imp"
4569 @ 40337:               JUMP   L_0101

  1016  s('{'):
4570 @ 40340:               LINE   1016 "regression-compile-tmp/chimp.imp"
4571 @ 40376:               PUSHI  #0x0000007b
4572 @ 40381:               SLABEL 248

  1017    %cycle
4573 @ 40384:               LINE   1017 "regression-compile-tmp/chimp.imp"
4574 @ 40420:               LOCATE L_0003

  1018      sym = byteinteger(fp);  fp = fp+1
4575 @ 40423:               LINE   1018 "regression-compile-tmp/chimp.imp"
4576 @ 40459:               PUSH   SYM
4577 @ 40462:               PUSH   BYTEINTEGER
4578 @ 40465:               PUSH   FP
4579 @ 40468:               ASSPAR
4580 @ 40469:               CALL  
4581 @ 40470:               ASSVAL
4582 @ 40471:               LINE   1018 "regression-compile-tmp/chimp.imp"
4583 @ 40507:               PUSH   FP
4584 @ 40510:               PUSH   FP
4585 @ 40513:               PUSHI  #0x00000001
4586 @ 40518:               ADD   
4587 @ 40519:               ASSVAL

  1019      -> linebreak %if sym = nl
4588 @ 40520:               LINE   1019 "regression-compile-tmp/chimp.imp"
4589 @ 40556:               PUSH   SYM
4590 @ 40559:               PUSHI  #0x0000000a
4591 @ 40564:               JUMPIF # L_0007
4592 @ 40568:               JUMP   L_0102
4593 @ 40571:               LOCATE L_0007

  1020    %repeat %until sym = '}'
4594 @ 40574:               LINE   1020 "regression-compile-tmp/chimp.imp"
4595 @ 40610:               PUSH   SYM
4596 @ 40613:               PUSHI  #0x0000007d
4597 @ 40618:               JUMPIF = L_0004
4598 @ 40622:               REPEAT L_0003
4599 @ 40625:               LOCATE L_0004

  1021    -> again
  1022  
4600 @ 40628:               LINE   1021 "regression-compile-tmp/chimp.imp"
4601 @ 40664:               JUMP   L_0101

  1023  s('+'): %result = plus
4602 @ 40667:               LINE   1023 "regression-compile-tmp/chimp.imp"
4603 @ 40703:               PUSHI  #0x0000002b
4604 @ 40708:               SLABEL 248
4605 @ 40711:               LINE   1023 "regression-compile-tmp/chimp.imp"
4606 @ 40747:               PUSHI  #0x00000050
4607 @ 40752:               RESULT

  1024  s('-'): fp = fp+1 %and %result = arrow %if byteinteger(fp) = '>'
4608 @ 40753:               LINE   1024 "regression-compile-tmp/chimp.imp"
4609 @ 40789:               PUSHI  #0x0000002d
4610 @ 40794:               SLABEL 248
4611 @ 40797:               LINE   1024 "regression-compile-tmp/chimp.imp"
4612 @ 40833:               PUSH   BYTEINTEGER
4613 @ 40836:               PUSH   FP
4614 @ 40839:               ASSPAR
4615 @ 40840:               CALL  
4616 @ 40841:               PUSHI  #0x0000003e
4617 @ 40846:               JUMPIF # L_0004
4618 @ 40850:               PUSH   FP
4619 @ 40853:               PUSH   FP
4620 @ 40856:               PUSHI  #0x00000001
4621 @ 40861:               ADD   
4622 @ 40862:               ASSVAL
4623 @ 40863:               PUSHI  #0x0000004f
4624 @ 40868:               RESULT
4625 @ 40869:               LOCATE L_0004

  1025          -> again %if byteinteger(fp) = nl
4626 @ 40872:               LINE   1025 "regression-compile-tmp/chimp.imp"
4627 @ 40908:               PUSH   BYTEINTEGER
4628 @ 40911:               PUSH   FP
4629 @ 40914:               ASSPAR
4630 @ 40915:               CALL  
4631 @ 40916:               PUSHI  #0x0000000a
4632 @ 40921:               JUMPIF # L_0004
4633 @ 40925:               JUMP   L_0101
4634 @ 40928:               LOCATE L_0004

  1026          %result = minus
4635 @ 40931:               LINE   1026 "regression-compile-tmp/chimp.imp"
4636 @ 40967:               PUSHI  #0x00000051
4637 @ 40972:               RESULT

  1027  s('*'): %result = star
4638 @ 40973:               LINE   1027 "regression-compile-tmp/chimp.imp"
4639 @ 41009:               PUSHI  #0x0000002a
4640 @ 41014:               SLABEL 248
4641 @ 41017:               LINE   1027 "regression-compile-tmp/chimp.imp"
4642 @ 41053:               PUSHI  #0x00000058
4643 @ 41058:               RESULT

  1028  s('/'): fp = fp+1 %and %result = slash2 %if byteinteger(fp) = '/'
4644 @ 41059:               LINE   1028 "regression-compile-tmp/chimp.imp"
4645 @ 41095:               PUSHI  #0x0000002f
4646 @ 41100:               SLABEL 248
4647 @ 41103:               LINE   1028 "regression-compile-tmp/chimp.imp"
4648 @ 41139:               PUSH   BYTEINTEGER
4649 @ 41142:               PUSH   FP
4650 @ 41145:               ASSPAR
4651 @ 41146:               CALL  
4652 @ 41147:               PUSHI  #0x0000002f
4653 @ 41152:               JUMPIF # L_0004
4654 @ 41156:               PUSH   FP
4655 @ 41159:               PUSH   FP
4656 @ 41162:               PUSHI  #0x00000001
4657 @ 41167:               ADD   
4658 @ 41168:               ASSVAL
4659 @ 41169:               PUSHI  #0x0000005a
4660 @ 41174:               RESULT
4661 @ 41175:               LOCATE L_0004

  1029          %result = slash
4662 @ 41178:               LINE   1029 "regression-compile-tmp/chimp.imp"
4663 @ 41214:               PUSHI  #0x00000059
4664 @ 41219:               RESULT

  1030  s('\'): fp = fp+1 %and %result = backslash2 %if byteinteger(fp) = '\'
4665 @ 41220:               LINE   1030 "regression-compile-tmp/chimp.imp"
4666 @ 41256:               PUSHI  #0x0000005c
4667 @ 41261:               SLABEL 248
4668 @ 41264:               LINE   1030 "regression-compile-tmp/chimp.imp"
4669 @ 41300:               PUSH   BYTEINTEGER
4670 @ 41303:               PUSH   FP
4671 @ 41306:               ASSPAR
4672 @ 41307:               CALL  
4673 @ 41308:               PUSHI  #0x0000005c
4674 @ 41313:               JUMPIF # L_0004
4675 @ 41317:               PUSH   FP
4676 @ 41320:               PUSH   FP
4677 @ 41323:               PUSHI  #0x00000001
4678 @ 41328:               ADD   
4679 @ 41329:               ASSVAL
4680 @ 41330:               PUSHI  #0x00000061
4681 @ 41335:               RESULT
4682 @ 41336:               LOCATE L_0004

  1031          %result = backslash
4683 @ 41339:               LINE   1031 "regression-compile-tmp/chimp.imp"
4684 @ 41375:               PUSHI  #0x00000060
4685 @ 41380:               RESULT

  1032  s('^'): nonstandard(uparr)
4686 @ 41381:               LINE   1032 "regression-compile-tmp/chimp.imp"
4687 @ 41417:               PUSHI  #0x0000005e
4688 @ 41422:               SLABEL 248
4689 @ 41425:               LINE   1032 "regression-compile-tmp/chimp.imp"
4690 @ 41461:               PUSH   NONSTANDARD
4691 @ 41464:               PUSHI  #0x00000002
4692 @ 41469:               ASSPAR
4693 @ 41470:               CALL  

  1033          fp = fp+1 %and %result = uparrow2 %if byteinteger(fp) = '^'
4694 @ 41471:               LINE   1033 "regression-compile-tmp/chimp.imp"
4695 @ 41507:               PUSH   BYTEINTEGER
4696 @ 41510:               PUSH   FP
4697 @ 41513:               ASSPAR
4698 @ 41514:               CALL  
4699 @ 41515:               PUSHI  #0x0000005e
4700 @ 41520:               JUMPIF # L_0004
4701 @ 41524:               PUSH   FP
4702 @ 41527:               PUSH   FP
4703 @ 41530:               PUSHI  #0x00000001
4704 @ 41535:               ADD   
4705 @ 41536:               ASSVAL
4706 @ 41537:               PUSHI  #0x00000061
4707 @ 41542:               RESULT
4708 @ 41543:               LOCATE L_0004

  1034          %result = uparrow
4709 @ 41546:               LINE   1034 "regression-compile-tmp/chimp.imp"
4710 @ 41582:               PUSHI  #0x00000060
4711 @ 41587:               RESULT

  1035  s('!'): fp = fp+1 %and %result = exclam2 %if byteinteger(fp) = '!'
4712 @ 41588:               LINE   1035 "regression-compile-tmp/chimp.imp"
4713 @ 41624:               PUSHI  #0x00000021
4714 @ 41629:               SLABEL 248
4715 @ 41632:               LINE   1035 "regression-compile-tmp/chimp.imp"
4716 @ 41668:               PUSH   BYTEINTEGER
4717 @ 41671:               PUSH   FP
4718 @ 41674:               ASSPAR
4719 @ 41675:               CALL  
4720 @ 41676:               PUSHI  #0x00000021
4721 @ 41681:               JUMPIF # L_0004
4722 @ 41685:               PUSH   FP
4723 @ 41688:               PUSH   FP
4724 @ 41691:               PUSHI  #0x00000001
4725 @ 41696:               ADD   
4726 @ 41697:               ASSVAL
4727 @ 41698:               PUSHI  #0x00000053
4728 @ 41703:               RESULT
4729 @ 41704:               LOCATE L_0004

  1036          %result = exclam
4730 @ 41707:               LINE   1036 "regression-compile-tmp/chimp.imp"
4731 @ 41743:               PUSHI  #0x00000052
4732 @ 41748:               RESULT

  1037  s('&'): %result = ampersand
4733 @ 41749:               LINE   1037 "regression-compile-tmp/chimp.imp"
4734 @ 41785:               PUSHI  #0x00000026
4735 @ 41790:               SLABEL 248
4736 @ 41793:               LINE   1037 "regression-compile-tmp/chimp.imp"
4737 @ 41829:               PUSHI  #0x0000005b
4738 @ 41834:               RESULT

  1038  s('.'): %result = dot
4739 @ 41835:               LINE   1038 "regression-compile-tmp/chimp.imp"
4740 @ 41871:               PUSHI  #0x0000002e
4741 @ 41876:               SLABEL 248
4742 @ 41879:               LINE   1038 "regression-compile-tmp/chimp.imp"
4743 @ 41915:               PUSHI  #0x00000054
4744 @ 41920:               RESULT

  1039  s('='): fp = fp+1 %and %result = eqeq %if byteinteger(fp) = '='
4745 @ 41921:               LINE   1039 "regression-compile-tmp/chimp.imp"
4746 @ 41957:               PUSHI  #0x0000003d
4747 @ 41962:               SLABEL 248
4748 @ 41965:               LINE   1039 "regression-compile-tmp/chimp.imp"
4749 @ 42001:               PUSH   BYTEINTEGER
4750 @ 42004:               PUSH   FP
4751 @ 42007:               ASSPAR
4752 @ 42008:               CALL  
4753 @ 42009:               PUSHI  #0x0000003d
4754 @ 42014:               JUMPIF # L_0004
4755 @ 42018:               PUSH   FP
4756 @ 42021:               PUSH   FP
4757 @ 42024:               PUSHI  #0x00000001
4758 @ 42029:               ADD   
4759 @ 42030:               ASSVAL
4760 @ 42031:               PUSHI  #0x0000004c
4761 @ 42036:               RESULT
4762 @ 42037:               LOCATE L_0004

  1040          %result = equals
4763 @ 42040:               LINE   1040 "regression-compile-tmp/chimp.imp"
4764 @ 42076:               PUSHI  #0x00000046
4765 @ 42081:               RESULT

  1041  s('#'): fp = fp+1 %and %result = noteqeq %if byteinteger(fp) = '#'
4766 @ 42082:               LINE   1041 "regression-compile-tmp/chimp.imp"
4767 @ 42118:               PUSHI  #0x00000023
4768 @ 42123:               SLABEL 248
4769 @ 42126:               LINE   1041 "regression-compile-tmp/chimp.imp"
4770 @ 42162:               PUSH   BYTEINTEGER
4771 @ 42165:               PUSH   FP
4772 @ 42168:               ASSPAR
4773 @ 42169:               CALL  
4774 @ 42170:               PUSHI  #0x00000023
4775 @ 42175:               JUMPIF # L_0004
4776 @ 42179:               PUSH   FP
4777 @ 42182:               PUSH   FP
4778 @ 42185:               PUSHI  #0x00000001
4779 @ 42190:               ADD   
4780 @ 42191:               ASSVAL
4781 @ 42192:               PUSHI  #0x0000004d
4782 @ 42197:               RESULT
4783 @ 42198:               LOCATE L_0004

  1042          %result = noteq
4784 @ 42201:               LINE   1042 "regression-compile-tmp/chimp.imp"
4785 @ 42237:               PUSHI  #0x00000047
4786 @ 42242:               RESULT

  1043  s('<'): fp = fp+1 %and %result = lesseq %if byteinteger(fp) = '='
4787 @ 42243:               LINE   1043 "regression-compile-tmp/chimp.imp"
4788 @ 42279:               PUSHI  #0x0000003c
4789 @ 42284:               SLABEL 248
4790 @ 42287:               LINE   1043 "regression-compile-tmp/chimp.imp"
4791 @ 42323:               PUSH   BYTEINTEGER
4792 @ 42326:               PUSH   FP
4793 @ 42329:               ASSPAR
4794 @ 42330:               CALL  
4795 @ 42331:               PUSHI  #0x0000003d
4796 @ 42336:               JUMPIF # L_0004
4797 @ 42340:               PUSH   FP
4798 @ 42343:               PUSH   FP
4799 @ 42346:               PUSHI  #0x00000001
4800 @ 42351:               ADD   
4801 @ 42352:               ASSVAL
4802 @ 42353:               PUSHI  #0x00000048
4803 @ 42358:               RESULT
4804 @ 42359:               LOCATE L_0004

  1044          fp = fp+1 %and %result = noteq %if byteinteger(fp) = '>'
4805 @ 42362:               LINE   1044 "regression-compile-tmp/chimp.imp"
4806 @ 42398:               PUSH   BYTEINTEGER
4807 @ 42401:               PUSH   FP
4808 @ 42404:               ASSPAR
4809 @ 42405:               CALL  
4810 @ 42406:               PUSHI  #0x0000003e
4811 @ 42411:               JUMPIF # L_0004
4812 @ 42415:               PUSH   FP
4813 @ 42418:               PUSH   FP
4814 @ 42421:               PUSHI  #0x00000001
4815 @ 42426:               ADD   
4816 @ 42427:               ASSVAL
4817 @ 42428:               PUSHI  #0x00000047
4818 @ 42433:               RESULT
4819 @ 42434:               LOCATE L_0004

  1045          fp = fp+1 %and %result = lshift %if byteinteger(fp) = '<'
4820 @ 42437:               LINE   1045 "regression-compile-tmp/chimp.imp"
4821 @ 42473:               PUSH   BYTEINTEGER
4822 @ 42476:               PUSH   FP
4823 @ 42479:               ASSPAR
4824 @ 42480:               CALL  
4825 @ 42481:               PUSHI  #0x0000003c
4826 @ 42486:               JUMPIF # L_0004
4827 @ 42490:               PUSH   FP
4828 @ 42493:               PUSH   FP
4829 @ 42496:               PUSHI  #0x00000001
4830 @ 42501:               ADD   
4831 @ 42502:               ASSVAL
4832 @ 42503:               PUSHI  #0x00000064
4833 @ 42508:               RESULT
4834 @ 42509:               LOCATE L_0004

  1046          %result = less
4835 @ 42512:               LINE   1046 "regression-compile-tmp/chimp.imp"
4836 @ 42548:               PUSHI  #0x00000049
4837 @ 42553:               RESULT

  1047  s('>'): fp = fp+1 %and %result = greateq %if byteinteger(fp) = '='
4838 @ 42554:               LINE   1047 "regression-compile-tmp/chimp.imp"
4839 @ 42590:               PUSHI  #0x0000003e
4840 @ 42595:               SLABEL 248
4841 @ 42598:               LINE   1047 "regression-compile-tmp/chimp.imp"
4842 @ 42634:               PUSH   BYTEINTEGER
4843 @ 42637:               PUSH   FP
4844 @ 42640:               ASSPAR
4845 @ 42641:               CALL  
4846 @ 42642:               PUSHI  #0x0000003d
4847 @ 42647:               JUMPIF # L_0004
4848 @ 42651:               PUSH   FP
4849 @ 42654:               PUSH   FP
4850 @ 42657:               PUSHI  #0x00000001
4851 @ 42662:               ADD   
4852 @ 42663:               ASSVAL
4853 @ 42664:               PUSHI  #0x0000004a
4854 @ 42669:               RESULT
4855 @ 42670:               LOCATE L_0004

  1048          fp = fp+1 %and %result = rshift %if byteinteger(fp) = '>'
4856 @ 42673:               LINE   1048 "regression-compile-tmp/chimp.imp"
4857 @ 42709:               PUSH   BYTEINTEGER
4858 @ 42712:               PUSH   FP
4859 @ 42715:               ASSPAR
4860 @ 42716:               CALL  
4861 @ 42717:               PUSHI  #0x0000003e
4862 @ 42722:               JUMPIF # L_0004
4863 @ 42726:               PUSH   FP
4864 @ 42729:               PUSH   FP
4865 @ 42732:               PUSHI  #0x00000001
4866 @ 42737:               ADD   
4867 @ 42738:               ASSVAL
4868 @ 42739:               PUSHI  #0x00000065
4869 @ 42744:               RESULT
4870 @ 42745:               LOCATE L_0004

  1049          %result = greater
4871 @ 42748:               LINE   1049 "regression-compile-tmp/chimp.imp"
4872 @ 42784:               PUSHI  #0x0000004b
4873 @ 42789:               RESULT

  1050  s('_'): %result = underline
4874 @ 42790:               LINE   1050 "regression-compile-tmp/chimp.imp"
4875 @ 42826:               PUSHI  #0x0000005f
4876 @ 42831:               SLABEL 248
4877 @ 42834:               LINE   1050 "regression-compile-tmp/chimp.imp"
4878 @ 42870:               PUSHI  #0x00000038
4879 @ 42875:               RESULT

  1051  s(':'): %result = colon
4880 @ 42876:               LINE   1051 "regression-compile-tmp/chimp.imp"
4881 @ 42912:               PUSHI  #0x0000003a
4882 @ 42917:               SLABEL 248
4883 @ 42920:               LINE   1051 "regression-compile-tmp/chimp.imp"
4884 @ 42956:               PUSHI  #0x0000003a
4885 @ 42961:               RESULT

  1052  s(','): %result = comma
4886 @ 42962:               LINE   1052 "regression-compile-tmp/chimp.imp"
4887 @ 42998:               PUSHI  #0x0000002c
4888 @ 43003:               SLABEL 248
4889 @ 43006:               LINE   1052 "regression-compile-tmp/chimp.imp"
4890 @ 43042:               PUSHI  #0x0000003b
4891 @ 43047:               RESULT

  1053  s(';'): %result = terminator
4892 @ 43048:               LINE   1053 "regression-compile-tmp/chimp.imp"
4893 @ 43084:               PUSHI  #0x0000003b
4894 @ 43089:               SLABEL 248
4895 @ 43092:               LINE   1053 "regression-compile-tmp/chimp.imp"
4896 @ 43128:               PUSHI  #0x00000034
4897 @ 43133:               RESULT

  1054  s('('): %result = left
4898 @ 43134:               LINE   1054 "regression-compile-tmp/chimp.imp"
4899 @ 43170:               PUSHI  #0x00000028
4900 @ 43175:               SLABEL 248
4901 @ 43178:               LINE   1054 "regression-compile-tmp/chimp.imp"
4902 @ 43214:               PUSHI  #0x00000037
4903 @ 43219:               RESULT

  1055  s(')'): %result = right
4904 @ 43220:               LINE   1055 "regression-compile-tmp/chimp.imp"
4905 @ 43256:               PUSHI  #0x00000029
4906 @ 43261:               SLABEL 248
4907 @ 43264:               LINE   1055 "regression-compile-tmp/chimp.imp"
4908 @ 43300:               PUSHI  #0x0000003c
4909 @ 43305:               RESULT

  1056  s('|'): %result = modsign
  1057  
4910 @ 43306:               LINE   1056 "regression-compile-tmp/chimp.imp"
4911 @ 43342:               PUSHI  #0x0000007c
4912 @ 43347:               SLABEL 248
4913 @ 43350:               LINE   1056 "regression-compile-tmp/chimp.imp"
4914 @ 43386:               PUSHI  #0x00000039
4915 @ 43391:               RESULT

  1058  s('E'): s('e'):
4916 @ 43392:               LINE   1058 "regression-compile-tmp/chimp.imp"
4917 @ 43428:               PUSHI  #0x00000045
4918 @ 43433:               SLABEL 248
4919 @ 43436:               LINE   1058 "regression-compile-tmp/chimp.imp"
4920 @ 43472:               PUSHI  #0x00000065
4921 @ 43477:               SLABEL 248

  1059    fp = fp+1 %and -> stringconst %if byteinteger(fp) = '"'
4922 @ 43480:               LINE   1059 "regression-compile-tmp/chimp.imp"
4923 @ 43516:               PUSH   BYTEINTEGER
4924 @ 43519:               PUSH   FP
4925 @ 43522:               ASSPAR
4926 @ 43523:               CALL  
4927 @ 43524:               PUSHI  #0x00000022
4928 @ 43529:               JUMPIF # L_0004
4929 @ 43533:               PUSH   FP
4930 @ 43536:               PUSH   FP
4931 @ 43539:               PUSHI  #0x00000001
4932 @ 43544:               ADD   
4933 @ 43545:               ASSVAL
4934 @ 43546:               JUMP   L_0103
4935 @ 43549:               LOCATE L_0004

  1060  s('M'): s('m'): s('C'): s('c'):
4936 @ 43552:               LINE   1060 "regression-compile-tmp/chimp.imp"
4937 @ 43588:               PUSHI  #0x0000004d
4938 @ 43593:               SLABEL 248
4939 @ 43596:               LINE   1060 "regression-compile-tmp/chimp.imp"
4940 @ 43632:               PUSHI  #0x0000006d
4941 @ 43637:               SLABEL 248
4942 @ 43640:               LINE   1060 "regression-compile-tmp/chimp.imp"
4943 @ 43676:               PUSHI  #0x00000043
4944 @ 43681:               SLABEL 248
4945 @ 43684:               LINE   1060 "regression-compile-tmp/chimp.imp"
4946 @ 43720:               PUSHI  #0x00000063
4947 @ 43725:               SLABEL 248

  1061    fp = fp+1 %and -> charconst %if byteinteger(fp) = ''''
4948 @ 43728:               LINE   1061 "regression-compile-tmp/chimp.imp"
4949 @ 43764:               PUSH   BYTEINTEGER
4950 @ 43767:               PUSH   FP
4951 @ 43770:               ASSPAR
4952 @ 43771:               CALL  
4953 @ 43772:               PUSHI  #0x00000027
4954 @ 43777:               JUMPIF # L_0004
4955 @ 43781:               PUSH   FP
4956 @ 43784:               PUSH   FP
4957 @ 43787:               PUSHI  #0x00000001
4958 @ 43792:               ADD   
4959 @ 43793:               ASSVAL
4960 @ 43794:               JUMP   L_0104
4961 @ 43797:               LOCATE L_0004

  1062  s('A'):s('B'):s('D'):s('F'):s('G'):s('H'):
4962 @ 43800:               LINE   1062 "regression-compile-tmp/chimp.imp"
4963 @ 43836:               PUSHI  #0x00000041
4964 @ 43841:               SLABEL 248
4965 @ 43844:               LINE   1062 "regression-compile-tmp/chimp.imp"
4966 @ 43880:               PUSHI  #0x00000042
4967 @ 43885:               SLABEL 248
4968 @ 43888:               LINE   1062 "regression-compile-tmp/chimp.imp"
4969 @ 43924:               PUSHI  #0x00000044
4970 @ 43929:               SLABEL 248
4971 @ 43932:               LINE   1062 "regression-compile-tmp/chimp.imp"
4972 @ 43968:               PUSHI  #0x00000046
4973 @ 43973:               SLABEL 248
4974 @ 43976:               LINE   1062 "regression-compile-tmp/chimp.imp"
4975 @ 44012:               PUSHI  #0x00000047
4976 @ 44017:               SLABEL 248
4977 @ 44020:               LINE   1062 "regression-compile-tmp/chimp.imp"
4978 @ 44056:               PUSHI  #0x00000048
4979 @ 44061:               SLABEL 248

  1063  s('I'):s('J'):s('K'):s('L'):s('N'):s('O'):s('P'):
4980 @ 44064:               LINE   1063 "regression-compile-tmp/chimp.imp"
4981 @ 44100:               PUSHI  #0x00000049
4982 @ 44105:               SLABEL 248
4983 @ 44108:               LINE   1063 "regression-compile-tmp/chimp.imp"
4984 @ 44144:               PUSHI  #0x0000004a
4985 @ 44149:               SLABEL 248
4986 @ 44152:               LINE   1063 "regression-compile-tmp/chimp.imp"
4987 @ 44188:               PUSHI  #0x0000004b
4988 @ 44193:               SLABEL 248
4989 @ 44196:               LINE   1063 "regression-compile-tmp/chimp.imp"
4990 @ 44232:               PUSHI  #0x0000004c
4991 @ 44237:               SLABEL 248
4992 @ 44240:               LINE   1063 "regression-compile-tmp/chimp.imp"
4993 @ 44276:               PUSHI  #0x0000004e
4994 @ 44281:               SLABEL 248
4995 @ 44284:               LINE   1063 "regression-compile-tmp/chimp.imp"
4996 @ 44320:               PUSHI  #0x0000004f
4997 @ 44325:               SLABEL 248
4998 @ 44328:               LINE   1063 "regression-compile-tmp/chimp.imp"
4999 @ 44364:               PUSHI  #0x00000050
5000 @ 44369:               SLABEL 248

  1064  s('Q'):s('R'):s('S'):s('T'):s('U'):s('V'):s('W'):s('X'):
5001 @ 44372:               LINE   1064 "regression-compile-tmp/chimp.imp"
5002 @ 44408:               PUSHI  #0x00000051
5003 @ 44413:               SLABEL 248
5004 @ 44416:               LINE   1064 "regression-compile-tmp/chimp.imp"
5005 @ 44452:               PUSHI  #0x00000052
5006 @ 44457:               SLABEL 248
5007 @ 44460:               LINE   1064 "regression-compile-tmp/chimp.imp"
5008 @ 44496:               PUSHI  #0x00000053
5009 @ 44501:               SLABEL 248
5010 @ 44504:               LINE   1064 "regression-compile-tmp/chimp.imp"
5011 @ 44540:               PUSHI  #0x00000054
5012 @ 44545:               SLABEL 248
5013 @ 44548:               LINE   1064 "regression-compile-tmp/chimp.imp"
5014 @ 44584:               PUSHI  #0x00000055
5015 @ 44589:               SLABEL 248
5016 @ 44592:               LINE   1064 "regression-compile-tmp/chimp.imp"
5017 @ 44628:               PUSHI  #0x00000056
5018 @ 44633:               SLABEL 248
5019 @ 44636:               LINE   1064 "regression-compile-tmp/chimp.imp"
5020 @ 44672:               PUSHI  #0x00000057
5021 @ 44677:               SLABEL 248
5022 @ 44680:               LINE   1064 "regression-compile-tmp/chimp.imp"
5023 @ 44716:               PUSHI  #0x00000058
5024 @ 44721:               SLABEL 248

  1065  s('Y'):s('Z'):s('a'):s('b'):s('d'):s('f'):
5025 @ 44724:               LINE   1065 "regression-compile-tmp/chimp.imp"
5026 @ 44760:               PUSHI  #0x00000059
5027 @ 44765:               SLABEL 248
5028 @ 44768:               LINE   1065 "regression-compile-tmp/chimp.imp"
5029 @ 44804:               PUSHI  #0x0000005a
5030 @ 44809:               SLABEL 248
5031 @ 44812:               LINE   1065 "regression-compile-tmp/chimp.imp"
5032 @ 44848:               PUSHI  #0x00000061
5033 @ 44853:               SLABEL 248
5034 @ 44856:               LINE   1065 "regression-compile-tmp/chimp.imp"
5035 @ 44892:               PUSHI  #0x00000062
5036 @ 44897:               SLABEL 248
5037 @ 44900:               LINE   1065 "regression-compile-tmp/chimp.imp"
5038 @ 44936:               PUSHI  #0x00000064
5039 @ 44941:               SLABEL 248
5040 @ 44944:               LINE   1065 "regression-compile-tmp/chimp.imp"
5041 @ 44980:               PUSHI  #0x00000066
5042 @ 44985:               SLABEL 248

  1066  s('g'):s('h'):s('i'):s('j'):s('k'):s('l'):s('n'):
5043 @ 44988:               LINE   1066 "regression-compile-tmp/chimp.imp"
5044 @ 45024:               PUSHI  #0x00000067
5045 @ 45029:               SLABEL 248
5046 @ 45032:               LINE   1066 "regression-compile-tmp/chimp.imp"
5047 @ 45068:               PUSHI  #0x00000068
5048 @ 45073:               SLABEL 248
5049 @ 45076:               LINE   1066 "regression-compile-tmp/chimp.imp"
5050 @ 45112:               PUSHI  #0x00000069
5051 @ 45117:               SLABEL 248
5052 @ 45120:               LINE   1066 "regression-compile-tmp/chimp.imp"
5053 @ 45156:               PUSHI  #0x0000006a
5054 @ 45161:               SLABEL 248
5055 @ 45164:               LINE   1066 "regression-compile-tmp/chimp.imp"
5056 @ 45200:               PUSHI  #0x0000006b
5057 @ 45205:               SLABEL 248
5058 @ 45208:               LINE   1066 "regression-compile-tmp/chimp.imp"
5059 @ 45244:               PUSHI  #0x0000006c
5060 @ 45249:               SLABEL 248
5061 @ 45252:               LINE   1066 "regression-compile-tmp/chimp.imp"
5062 @ 45288:               PUSHI  #0x0000006e
5063 @ 45293:               SLABEL 248

  1067  s('o'):s('p'):s('q'):s('r'):s('s'):s('t'):s('u'):s('v'):
5064 @ 45296:               LINE   1067 "regression-compile-tmp/chimp.imp"
5065 @ 45332:               PUSHI  #0x0000006f
5066 @ 45337:               SLABEL 248
5067 @ 45340:               LINE   1067 "regression-compile-tmp/chimp.imp"
5068 @ 45376:               PUSHI  #0x00000070
5069 @ 45381:               SLABEL 248
5070 @ 45384:               LINE   1067 "regression-compile-tmp/chimp.imp"
5071 @ 45420:               PUSHI  #0x00000071
5072 @ 45425:               SLABEL 248
5073 @ 45428:               LINE   1067 "regression-compile-tmp/chimp.imp"
5074 @ 45464:               PUSHI  #0x00000072
5075 @ 45469:               SLABEL 248
5076 @ 45472:               LINE   1067 "regression-compile-tmp/chimp.imp"
5077 @ 45508:               PUSHI  #0x00000073
5078 @ 45513:               SLABEL 248
5079 @ 45516:               LINE   1067 "regression-compile-tmp/chimp.imp"
5080 @ 45552:               PUSHI  #0x00000074
5081 @ 45557:               SLABEL 248
5082 @ 45560:               LINE   1067 "regression-compile-tmp/chimp.imp"
5083 @ 45596:               PUSHI  #0x00000075
5084 @ 45601:               SLABEL 248
5085 @ 45604:               LINE   1067 "regression-compile-tmp/chimp.imp"
5086 @ 45640:               PUSHI  #0x00000076
5087 @ 45645:               SLABEL 248

  1068  s('w'):s('x'):s('y'):s('z'):
5088 @ 45648:               LINE   1068 "regression-compile-tmp/chimp.imp"
5089 @ 45684:               PUSHI  #0x00000077
5090 @ 45689:               SLABEL 248
5091 @ 45692:               LINE   1068 "regression-compile-tmp/chimp.imp"
5092 @ 45728:               PUSHI  #0x00000078
5093 @ 45733:               SLABEL 248
5094 @ 45736:               LINE   1068 "regression-compile-tmp/chimp.imp"
5095 @ 45772:               PUSHI  #0x00000079
5096 @ 45777:               SLABEL 248
5097 @ 45780:               LINE   1068 "regression-compile-tmp/chimp.imp"
5098 @ 45816:               PUSHI  #0x0000007a
5099 @ 45821:               SLABEL 248

  1069    -> keyword %if percent # 0
  1070  !  identatoms = identatoms+1
5100 @ 45824:               LINE   1069 "regression-compile-tmp/chimp.imp"
5101 @ 45860:               PUSH   PERCENT
5102 @ 45863:               PUSHI  #0x00000000
5103 @ 45868:               JUMPIF = L_0004
5104 @ 45872:               JUMP   L_0105
5105 @ 45875:               LOCATE L_0004

  1071    newlen = charlim+1;  hash = sym!casebit;  !lower-case (if letter)
5106 @ 45878:               LINE   1071 "regression-compile-tmp/chimp.imp"
5107 @ 45914:               PUSH   NEWLEN
5108 @ 45917:               PUSH   CHARLIM
5109 @ 45920:               PUSHI  #0x00000001
5110 @ 45925:               ADD   
5111 @ 45926:               ASSVAL
5112 @ 45927:               LINE   1071 "regression-compile-tmp/chimp.imp"
5113 @ 45963:               PUSH   HASH
5114 @ 45966:               PUSH   SYM
5115 @ 45969:               PUSHI  #0x00000020
5116 @ 45974:               OR    
5117 @ 45975:               ASSVAL

  1072    byteinteger(newlen) = hash
5118 @ 45976:               LINE   1072 "regression-compile-tmp/chimp.imp"
5119 @ 46012:               PUSH   BYTEINTEGER
5120 @ 46015:               PUSH   NEWLEN
5121 @ 46018:               ASSPAR
5122 @ 46019:               CALL  
5123 @ 46020:               PUSH   HASH
5124 @ 46023:               ASSVAL

  1073    %cycle
5125 @ 46024:               LINE   1073 "regression-compile-tmp/chimp.imp"
5126 @ 46060:               LOCATE L_0003

  1074      sym = byteinteger(fp);  fp = fp+1
5127 @ 46063:               LINE   1074 "regression-compile-tmp/chimp.imp"
5128 @ 46099:               PUSH   SYM
5129 @ 46102:               PUSH   BYTEINTEGER
5130 @ 46105:               PUSH   FP
5131 @ 46108:               ASSPAR
5132 @ 46109:               CALL  
5133 @ 46110:               ASSVAL
5134 @ 46111:               LINE   1074 "regression-compile-tmp/chimp.imp"
5135 @ 46147:               PUSH   FP
5136 @ 46150:               PUSH   FP
5137 @ 46153:               PUSHI  #0x00000001
5138 @ 46158:               ADD   
5139 @ 46159:               ASSVAL

  1075    %repeat %until sym # ' '
  1076  !$IF AMDAHL
  1077  {  %if sym = '''' %start
  1078  {    radix = 16 %and -> ibm %if hash = 'x'
  1079  {    radix = 8 %and -> ibm %if hash = 'k'
  1080  {    radix = 2 %and -> ibm %if hash = 'b'
  1081  {  %finish
  1082  !$FINISH
5140 @ 46160:               LINE   1075 "regression-compile-tmp/chimp.imp"
5141 @ 46196:               PUSH   SYM
5142 @ 46199:               PUSHI  #0x00000020
5143 @ 46204:               JUMPIF # L_0004
5144 @ 46208:               REPEAT L_0003
5145 @ 46211:               LOCATE L_0004

  1083    sym = map(sym)
5146 @ 46214:               LINE   1083 "regression-compile-tmp/chimp.imp"
5147 @ 46250:               PUSH   SYM
5148 @ 46253:               PUSH   MAP
5149 @ 46256:               PUSH   SYM
5150 @ 46259:               ACCESS
5151 @ 46260:               ASSVAL

  1084    %if sym # 0 %start
5152 @ 46261:               LINE   1084 "regression-compile-tmp/chimp.imp"
5153 @ 46297:               PUSH   SYM
5154 @ 46300:               PUSHI  #0x00000000
5155 @ 46305:               JUMPIF = L_0004

  1085      %cycle
5156 @ 46309:               LINE   1085 "regression-compile-tmp/chimp.imp"
5157 @ 46345:               LOCATE L_0006

  1086        newlen = newlen+1;  byteinteger(newlen) = sym
5158 @ 46348:               LINE   1086 "regression-compile-tmp/chimp.imp"
5159 @ 46384:               PUSH   NEWLEN
5160 @ 46387:               PUSH   NEWLEN
5161 @ 46390:               PUSHI  #0x00000001
5162 @ 46395:               ADD   
5163 @ 46396:               ASSVAL
5164 @ 46397:               LINE   1086 "regression-compile-tmp/chimp.imp"
5165 @ 46433:               PUSH   BYTEINTEGER
5166 @ 46436:               PUSH   NEWLEN
5167 @ 46439:               ASSPAR
5168 @ 46440:               CALL  
5169 @ 46441:               PUSH   SYM
5170 @ 46444:               ASSVAL

  1087        hash = hash<<1!!sym
5171 @ 46445:               LINE   1087 "regression-compile-tmp/chimp.imp"
5172 @ 46481:               PUSH   HASH
5173 @ 46484:               PUSH   HASH
5174 @ 46487:               PUSHI  #0x00000001
5175 @ 46492:               LSH   
5176 @ 46493:               PUSH   SYM
5177 @ 46496:               XOR   
5178 @ 46497:               ASSVAL

  1088        %cycle
5179 @ 46498:               LINE   1088 "regression-compile-tmp/chimp.imp"
5180 @ 46534:               LOCATE L_0009

  1089          sym = byteinteger(fp);  fp = fp+1
5181 @ 46537:               LINE   1089 "regression-compile-tmp/chimp.imp"
5182 @ 46573:               PUSH   SYM
5183 @ 46576:               PUSH   BYTEINTEGER
5184 @ 46579:               PUSH   FP
5185 @ 46582:               ASSPAR
5186 @ 46583:               CALL  
5187 @ 46584:               ASSVAL
5188 @ 46585:               LINE   1089 "regression-compile-tmp/chimp.imp"
5189 @ 46621:               PUSH   FP
5190 @ 46624:               PUSH   FP
5191 @ 46627:               PUSHI  #0x00000001
5192 @ 46632:               ADD   
5193 @ 46633:               ASSVAL

  1090        %repeat %until sym # ' '
5194 @ 46634:               LINE   1090 "regression-compile-tmp/chimp.imp"
5195 @ 46670:               PUSH   SYM
5196 @ 46673:               PUSHI  #0x00000020
5197 @ 46678:               JUMPIF # L_000a
5198 @ 46682:               REPEAT L_0009
5199 @ 46685:               LOCATE L_000a

  1091        sym = map(sym)
5200 @ 46688:               LINE   1091 "regression-compile-tmp/chimp.imp"
5201 @ 46724:               PUSH   SYM
5202 @ 46727:               PUSH   MAP
5203 @ 46730:               PUSH   SYM
5204 @ 46733:               ACCESS
5205 @ 46734:               ASSVAL

  1092      %repeat %until sym = 0
5206 @ 46735:               LINE   1092 "regression-compile-tmp/chimp.imp"
5207 @ 46771:               PUSH   SYM
5208 @ 46774:               PUSHI  #0x00000000
5209 @ 46779:               JUMPIF = L_0007
5210 @ 46783:               REPEAT L_0006
5211 @ 46786:               LOCATE L_0007

  1093    %finish
5212 @ 46789:               LINE   1093 "regression-compile-tmp/chimp.imp"
5213 @ 46825:               LOCATE L_0004

  1094    fp = fp-1
5214 @ 46828:               LINE   1094 "regression-compile-tmp/chimp.imp"
5215 @ 46864:               PUSH   FP
5216 @ 46867:               PUSH   FP
5217 @ 46870:               PUSHI  #0x00000001
5218 @ 46875:               SUB   
5219 @ 46876:               ASSVAL

  1095    newlen = newlen-charlim;  byteinteger(charlim) = newlen
5220 @ 46877:               LINE   1095 "regression-compile-tmp/chimp.imp"
5221 @ 46913:               PUSH   NEWLEN
5222 @ 46916:               PUSH   NEWLEN
5223 @ 46919:               PUSH   CHARLIM
5224 @ 46922:               SUB   
5225 @ 46923:               ASSVAL
5226 @ 46924:               LINE   1095 "regression-compile-tmp/chimp.imp"
5227 @ 46960:               PUSH   BYTEINTEGER
5228 @ 46963:               PUSH   CHARLIM
5229 @ 46966:               ASSPAR
5230 @ 46967:               CALL  
5231 @ 46968:               PUSH   NEWLEN
5232 @ 46971:               ASSVAL

  1096    head == hashindex(hash&255)
5233 @ 46972:               LINE   1096 "regression-compile-tmp/chimp.imp"
5234 @ 47008:               PUSH   HEAD
5235 @ 47011:               PUSH   HASHINDEX
5236 @ 47014:               PUSH   HASH
5237 @ 47017:               PUSHI  #0x000000ff
5238 @ 47022:               AND   
5239 @ 47023:               ACCESS
5240 @ 47024:               ASSREF

  1097    item = head
5241 @ 47025:               LINE   1097 "regression-compile-tmp/chimp.imp"
5242 @ 47061:               PUSH   ITEM
5243 @ 47064:               PUSH   HEAD
5244 @ 47067:               ASSVAL

  1098    %if item > 0 %start
5245 @ 47068:               LINE   1098 "regression-compile-tmp/chimp.imp"
5246 @ 47104:               PUSH   ITEM
5247 @ 47107:               PUSHI  #0x00000000
5248 @ 47112:               JUMPIF <= L_0004

  1099      %cycle
5249 @ 47116:               LINE   1099 "regression-compile-tmp/chimp.imp"
5250 @ 47152:               LOCATE L_0006

  1100        %result = ident %if item <= 0
5251 @ 47155:               LINE   1100 "regression-compile-tmp/chimp.imp"
5252 @ 47191:               PUSH   ITEM
5253 @ 47194:               PUSHI  #0x00000000
5254 @ 47199:               JUMPIF > L_000a
5255 @ 47203:               PUSHI  #0x00000036
5256 @ 47208:               RESULT
5257 @ 47209:               LOCATE L_000a

  1101        ditem == dict(item)
5258 @ 47212:               LINE   1101 "regression-compile-tmp/chimp.imp"
5259 @ 47248:               PUSH   DITEM
5260 @ 47251:               PUSH   DICT
5261 @ 47254:               PUSH   ITEM
5262 @ 47257:               ACCESS
5263 @ 47258:               ASSREF

  1102        %exit %if string(ditem_text+charbase) = string(charlim)
  1103  !      misses = misses+1
5264 @ 47259:               LINE   1102 "regression-compile-tmp/chimp.imp"
5265 @ 47295:               PUSH   STRING
5266 @ 47298:               PUSH   DITEM
5267 @ 47301:               SELECT 9
5268 @ 47304:               PUSH   CHARBASE
5269 @ 47307:               ADD   
5270 @ 47308:               ASSPAR
5271 @ 47309:               CALL  
5272 @ 47310:               PUSH   STRING
5273 @ 47313:               PUSH   CHARLIM
5274 @ 47316:               ASSPAR
5275 @ 47317:               CALL  
5276 @ 47318:               JUMPIF # L_000a
5277 @ 47322:               GOTO   L_0007
5278 @ 47325:               LOCATE L_000a

  1104        item = ditem_link
5279 @ 47328:               LINE   1104 "regression-compile-tmp/chimp.imp"
5280 @ 47364:               PUSH   ITEM
5281 @ 47367:               PUSH   DITEM
5282 @ 47370:               SELECT 10
5283 @ 47373:               ASSVAL

  1105      %repeat %until item <= 0
5284 @ 47374:               LINE   1105 "regression-compile-tmp/chimp.imp"
5285 @ 47410:               PUSH   ITEM
5286 @ 47413:               PUSHI  #0x00000000
5287 @ 47418:               JUMPIF <= L_0007
5288 @ 47422:               REPEAT L_0006
5289 @ 47425:               LOCATE L_0007

  1106    %finish
5290 @ 47428:               LINE   1106 "regression-compile-tmp/chimp.imp"
5291 @ 47464:               LOCATE L_0004

  1107    %result = ident
  1108  
5292 @ 47467:               LINE   1107 "regression-compile-tmp/chimp.imp"
5293 @ 47503:               PUSHI  #0x00000036
5294 @ 47508:               RESULT

  1109  s('%'):
5295 @ 47509:               LINE   1109 "regression-compile-tmp/chimp.imp"
5296 @ 47545:               PUSHI  #0x00000025
5297 @ 47550:               SLABEL 248

  1110    sym = byteinteger(fp)
5298 @ 47553:               LINE   1110 "regression-compile-tmp/chimp.imp"
5299 @ 47589:               PUSH   SYM
5300 @ 47592:               PUSH   BYTEINTEGER
5301 @ 47595:               PUSH   FP
5302 @ 47598:               ASSPAR
5303 @ 47599:               CALL  
5304 @ 47600:               ASSVAL

  1111    -> again %unless 'a' <= sym!casebit <= 'z'
5305 @ 47601:               LINE   1111 "regression-compile-tmp/chimp.imp"
5306 @ 47637:               PUSHI  #0x00000061
5307 @ 47642:               PUSH   SYM
5308 @ 47645:               PUSHI  #0x00000020
5309 @ 47650:               OR    
5310 @ 47651:               JUMPIFD > L_0005
5311 @ 47655:               PUSHI  #0x0000007a
5312 @ 47660:               JUMPIF <= L_0004
5313 @ 47664:               LOCATE L_0005
5314 @ 47667:               JUMP   L_0101
5315 @ 47670:               LOCATE L_0004

  1112    fp = fp+1
5316 @ 47673:               LINE   1112 "regression-compile-tmp/chimp.imp"
5317 @ 47709:               PUSH   FP
5318 @ 47712:               PUSH   FP
5319 @ 47715:               PUSHI  #0x00000001
5320 @ 47720:               ADD   
5321 @ 47721:               ASSVAL

  1113  keyword:
5322 @ 47722:               LINE   1113 "regression-compile-tmp/chimp.imp"
5323 @ 47758:               LABEL  L_0105

  1114    percent = 0
5324 @ 47761:               LINE   1114 "regression-compile-tmp/chimp.imp"
5325 @ 47797:               PUSH   PERCENT
5326 @ 47800:               PUSHI  #0x00000000
5327 @ 47805:               ASSVAL

  1115    p = syminit(sym!casebit)
5328 @ 47806:               LINE   1115 "regression-compile-tmp/chimp.imp"
5329 @ 47842:               PUSH   P
5330 @ 47845:               PUSH   SYMINIT
5331 @ 47848:               PUSH   SYM
5332 @ 47851:               PUSHI  #0x00000020
5333 @ 47856:               OR    
5334 @ 47857:               ACCESS
5335 @ 47858:               ASSVAL

  1116    %cycle
  1117  !     %cycle
  1118  !       sym = byteinteger(fp)!casebit
  1119  !       %exit %if symbol(p) # sym
5336 @ 47859:               LINE   1116 "regression-compile-tmp/chimp.imp"
5337 @ 47895:               LOCATE L_0003

  1120      %while symbol(p) = byteinteger(fp)!casebit %cycle
5338 @ 47898:               LINE   1120 "regression-compile-tmp/chimp.imp"
5339 @ 47934:               LOCATE L_0006
5340 @ 47937:               PUSH   SYMBOL
5341 @ 47940:               PUSH   P
5342 @ 47943:               ACCESS
5343 @ 47944:               PUSH   BYTEINTEGER
5344 @ 47947:               PUSH   FP
5345 @ 47950:               ASSPAR
5346 @ 47951:               CALL  
5347 @ 47952:               PUSHI  #0x00000020
5348 @ 47957:               OR    
5349 @ 47958:               JUMPIF # L_0007

  1121        p = p+1;  fp = fp+1
5350 @ 47962:               LINE   1121 "regression-compile-tmp/chimp.imp"
5351 @ 47998:               PUSH   P
5352 @ 48001:               PUSH   P
5353 @ 48004:               PUSHI  #0x00000001
5354 @ 48009:               ADD   
5355 @ 48010:               ASSVAL
5356 @ 48011:               LINE   1121 "regression-compile-tmp/chimp.imp"
5357 @ 48047:               PUSH   FP
5358 @ 48050:               PUSH   FP
5359 @ 48053:               PUSHI  #0x00000001
5360 @ 48058:               ADD   
5361 @ 48059:               ASSVAL

  1122      %repeat
5362 @ 48060:               LINE   1122 "regression-compile-tmp/chimp.imp"
5363 @ 48096:               REPEAT L_0006
5364 @ 48099:               LOCATE L_0007

  1123      %exit %if symbol(p) >= 128
5365 @ 48102:               LINE   1123 "regression-compile-tmp/chimp.imp"
5366 @ 48138:               PUSH   SYMBOL
5367 @ 48141:               PUSH   P
5368 @ 48144:               ACCESS
5369 @ 48145:               PUSHI  #0x00000080
5370 @ 48150:               JUMPIF < L_0007
5371 @ 48154:               GOTO   L_0004
5372 @ 48157:               LOCATE L_0007

  1124      atom = altdisp(p)
5373 @ 48160:               LINE   1124 "regression-compile-tmp/chimp.imp"
5374 @ 48196:               PUSH   ATOM
5375 @ 48199:               PUSH   ALTDISP
5376 @ 48202:               PUSH   P
5377 @ 48205:               ACCESS
5378 @ 48206:               ASSVAL

  1125      %if atom = 0 %start
5379 @ 48207:               LINE   1125 "regression-compile-tmp/chimp.imp"
5380 @ 48243:               PUSH   ATOM
5381 @ 48246:               PUSHI  #0x00000000
5382 @ 48251:               JUMPIF # L_0007

  1126        %result = dud %unless sym!casebit = 'c' %and byteinteger(fp) = nl
5383 @ 48255:               LINE   1126 "regression-compile-tmp/chimp.imp"
5384 @ 48291:               PUSH   SYM
5385 @ 48294:               PUSHI  #0x00000020
5386 @ 48299:               OR    
5387 @ 48300:               PUSHI  #0x00000063
5388 @ 48305:               JUMPIF # L_000b
5389 @ 48309:               PUSH   BYTEINTEGER
5390 @ 48312:               PUSH   FP
5391 @ 48315:               ASSPAR
5392 @ 48316:               CALL  
5393 @ 48317:               PUSHI  #0x0000000a
5394 @ 48322:               JUMPIF = L_000a
5395 @ 48326:               LOCATE L_000b
5396 @ 48329:               PUSHI  #0x0000003f
5397 @ 48334:               RESULT
5398 @ 48335:               LOCATE L_000a

  1127        read line
5399 @ 48338:               LINE   1127 "regression-compile-tmp/chimp.imp"
5400 @ 48374:               PUSH   READLINE
5401 @ 48377:               CALL  

  1128        ->again
5402 @ 48378:               LINE   1128 "regression-compile-tmp/chimp.imp"
5403 @ 48414:               JUMP   L_0101

  1129      %finish
5404 @ 48417:               LINE   1129 "regression-compile-tmp/chimp.imp"
5405 @ 48453:               LOCATE L_0007

  1130      p = p+atom
5406 @ 48456:               LINE   1130 "regression-compile-tmp/chimp.imp"
5407 @ 48492:               PUSH   P
5408 @ 48495:               PUSH   P
5409 @ 48498:               PUSH   ATOM
5410 @ 48501:               ADD   
5411 @ 48502:               ASSVAL

  1131    %repeat
5412 @ 48503:               LINE   1131 "regression-compile-tmp/chimp.imp"
5413 @ 48539:               REPEAT L_0003
5414 @ 48542:               LOCATE L_0004

  1132    percent = 1 %if 'a' <= byteinteger(fp)!casebit <= 'z'
5415 @ 48545:               LINE   1132 "regression-compile-tmp/chimp.imp"
5416 @ 48581:               PUSHI  #0x00000061
5417 @ 48586:               PUSH   BYTEINTEGER
5418 @ 48589:               PUSH   FP
5419 @ 48592:               ASSPAR
5420 @ 48593:               CALL  
5421 @ 48594:               PUSHI  #0x00000020
5422 @ 48599:               OR    
5423 @ 48600:               JUMPIFD > L_0004
5424 @ 48604:               PUSHI  #0x0000007a
5425 @ 48609:               JUMPIF > L_0004
5426 @ 48613:               PUSH   PERCENT
5427 @ 48616:               PUSHI  #0x00000001
5428 @ 48621:               ASSVAL
5429 @ 48622:               LOCATE L_0004

  1133    subatom = altdisp(p)
5430 @ 48625:               LINE   1133 "regression-compile-tmp/chimp.imp"
5431 @ 48661:               PUSH   SUBATOM
5432 @ 48664:               PUSH   ALTDISP
5433 @ 48667:               PUSH   P
5434 @ 48670:               ACCESS
5435 @ 48671:               ASSVAL

  1134    atom = symbol(p)-128
5436 @ 48672:               LINE   1134 "regression-compile-tmp/chimp.imp"
5437 @ 48708:               PUSH   ATOM
5438 @ 48711:               PUSH   SYMBOL
5439 @ 48714:               PUSH   P
5440 @ 48717:               ACCESS
5441 @ 48718:               PUSHI  #0x00000080
5442 @ 48723:               SUB   
5443 @ 48724:               ASSVAL

  1135    %result = dud %if atom = 0
5444 @ 48725:               LINE   1135 "regression-compile-tmp/chimp.imp"
5445 @ 48761:               PUSH   ATOM
5446 @ 48764:               PUSHI  #0x00000000
5447 @ 48769:               JUMPIF # L_0004
5448 @ 48773:               PUSHI  #0x0000003f
5449 @ 48778:               RESULT
5450 @ 48779:               LOCATE L_0004

  1136    %result = atom
  1137  
  1138  !$IF AMDAHL
  1139  {ibm:
  1140  {  nonstandard(ibmhex)
  1141  {  item = -1;  t_val = 0
  1142  {  -> ibm1
  1143  !$FINISH
5451 @ 48782:               LINE   1136 "regression-compile-tmp/chimp.imp"
5452 @ 48818:               PUSH   ATOM
5453 @ 48821:               RESULT

  1144  s('0'):s('1'):s('2'):s('3'):s('4'):s('5'):s('6'):s('7'):s('8'):s('9'):
5454 @ 48822:               LINE   1144 "regression-compile-tmp/chimp.imp"
5455 @ 48858:               PUSHI  #0x00000030
5456 @ 48863:               SLABEL 248
5457 @ 48866:               LINE   1144 "regression-compile-tmp/chimp.imp"
5458 @ 48902:               PUSHI  #0x00000031
5459 @ 48907:               SLABEL 248
5460 @ 48910:               LINE   1144 "regression-compile-tmp/chimp.imp"
5461 @ 48946:               PUSHI  #0x00000032
5462 @ 48951:               SLABEL 248
5463 @ 48954:               LINE   1144 "regression-compile-tmp/chimp.imp"
5464 @ 48990:               PUSHI  #0x00000033
5465 @ 48995:               SLABEL 248
5466 @ 48998:               LINE   1144 "regression-compile-tmp/chimp.imp"
5467 @ 49034:               PUSHI  #0x00000034
5468 @ 49039:               SLABEL 248
5469 @ 49042:               LINE   1144 "regression-compile-tmp/chimp.imp"
5470 @ 49078:               PUSHI  #0x00000035
5471 @ 49083:               SLABEL 248
5472 @ 49086:               LINE   1144 "regression-compile-tmp/chimp.imp"
5473 @ 49122:               PUSHI  #0x00000036
5474 @ 49127:               SLABEL 248
5475 @ 49130:               LINE   1144 "regression-compile-tmp/chimp.imp"
5476 @ 49166:               PUSHI  #0x00000037
5477 @ 49171:               SLABEL 248
5478 @ 49174:               LINE   1144 "regression-compile-tmp/chimp.imp"
5479 @ 49210:               PUSHI  #0x00000038
5480 @ 49215:               SLABEL 248
5481 @ 49218:               LINE   1144 "regression-compile-tmp/chimp.imp"
5482 @ 49254:               PUSHI  #0x00000039
5483 @ 49259:               SLABEL 248

  1145    item = 0;  t_type = inty
5484 @ 49262:               LINE   1145 "regression-compile-tmp/chimp.imp"
5485 @ 49298:               PUSH   ITEM
5486 @ 49301:               PUSHI  #0x00000000
5487 @ 49306:               ASSVAL
5488 @ 49307:               LINE   1145 "regression-compile-tmp/chimp.imp"
5489 @ 49343:               PUSH   T
5490 @ 49346:               SELECT 2
5491 @ 49349:               PUSHI  #0x000007fe
5492 @ 49354:               ASSVAL

  1146    radix = 10;  t_val = sym-'0'
5493 @ 49355:               LINE   1146 "regression-compile-tmp/chimp.imp"
5494 @ 49391:               PUSH   RADIX
5495 @ 49394:               PUSHI  #0x0000000a
5496 @ 49399:               ASSVAL
5497 @ 49400:               LINE   1146 "regression-compile-tmp/chimp.imp"
5498 @ 49436:               PUSH   T
5499 @ 49439:               SELECT 7
5500 @ 49442:               PUSH   SYM
5501 @ 49445:               PUSHI  #0x00000030
5502 @ 49450:               SUB   
5503 @ 49451:               ASSVAL

  1147  ibm1:
5504 @ 49452:               LINE   1147 "regression-compile-tmp/chimp.imp"
5505 @ 49488:               LABEL  L_0106

  1148    %cycle
5506 @ 49491:               LINE   1148 "regression-compile-tmp/chimp.imp"
5507 @ 49527:               LOCATE L_0003

  1149      %cycle
5508 @ 49530:               LINE   1149 "regression-compile-tmp/chimp.imp"
5509 @ 49566:               LOCATE L_0006

  1150        %cycle
5510 @ 49569:               LINE   1150 "regression-compile-tmp/chimp.imp"
5511 @ 49605:               LOCATE L_0009

  1151          sym = byteinteger(fp);  fp = fp+1
5512 @ 49608:               LINE   1151 "regression-compile-tmp/chimp.imp"
5513 @ 49644:               PUSH   SYM
5514 @ 49647:               PUSH   BYTEINTEGER
5515 @ 49650:               PUSH   FP
5516 @ 49653:               ASSPAR
5517 @ 49654:               CALL  
5518 @ 49655:               ASSVAL
5519 @ 49656:               LINE   1151 "regression-compile-tmp/chimp.imp"
5520 @ 49692:               PUSH   FP
5521 @ 49695:               PUSH   FP
5522 @ 49698:               PUSHI  #0x00000001
5523 @ 49703:               ADD   
5524 @ 49704:               ASSVAL

  1152        %repeat %until sym # ' '
5525 @ 49705:               LINE   1152 "regression-compile-tmp/chimp.imp"
5526 @ 49741:               PUSH   SYM
5527 @ 49744:               PUSHI  #0x00000020
5528 @ 49749:               JUMPIF # L_000a
5529 @ 49753:               REPEAT L_0009
5530 @ 49756:               LOCATE L_000a

  1153        i = sym-'0'
5531 @ 49759:               LINE   1153 "regression-compile-tmp/chimp.imp"
5532 @ 49795:               PUSH   I
5533 @ 49798:               PUSH   SYM
5534 @ 49801:               PUSHI  #0x00000030
5535 @ 49806:               SUB   
5536 @ 49807:               ASSVAL

  1154        %if radix = 10 %start
5537 @ 49808:               LINE   1154 "regression-compile-tmp/chimp.imp"
5538 @ 49844:               PUSH   RADIX
5539 @ 49847:               PUSHI  #0x0000000a
5540 @ 49852:               JUMPIF # L_000a

  1155          %exit %if i < 0 %or i >= 10
5541 @ 49856:               LINE   1155 "regression-compile-tmp/chimp.imp"
5542 @ 49892:               PUSH   I
5543 @ 49895:               PUSHI  #0x00000000
5544 @ 49900:               JUMPIF < L_000e
5545 @ 49904:               PUSH   I
5546 @ 49907:               PUSHI  #0x0000000a
5547 @ 49912:               JUMPIF < L_000d
5548 @ 49916:               LOCATE L_000e
5549 @ 49919:               GOTO   L_0007
5550 @ 49922:               LOCATE L_000d

  1156          %if t_val > max10 %or (t_val=max10 %and i > maxdig) %start
5551 @ 49925:               LINE   1156 "regression-compile-tmp/chimp.imp"
5552 @ 49961:               PUSH   T
5553 @ 49964:               SELECT 7
5554 @ 49967:               PUSHI  #0x0ccccccc
5555 @ 49972:               JUMPIF > L_000e
5556 @ 49976:               PUSH   T
5557 @ 49979:               SELECT 7
5558 @ 49982:               PUSHI  #0x0ccccccc
5559 @ 49987:               JUMPIF # L_000d
5560 @ 49991:               PUSH   I
5561 @ 49994:               PUSHI  #0x00000007
5562 @ 49999:               JUMPIF <= L_000d
5563 @ 50003:               LOCATE L_000e

  1157            t_type = realy;  rval = t_val
5564 @ 50006:               LINE   1157 "regression-compile-tmp/chimp.imp"
5565 @ 50042:               PUSH   T
5566 @ 50045:               SELECT 2
5567 @ 50048:               PUSHI  #0x000007fd
5568 @ 50053:               ASSVAL
5569 @ 50054:               LINE   1157 "regression-compile-tmp/chimp.imp"
5570 @ 50090:               PUSH   RVAL
5571 @ 50093:               PUSH   T
5572 @ 50096:               SELECT 7
5573 @ 50099:               ASSVAL

  1158            assemble real
5574 @ 50100:               LINE   1158 "regression-compile-tmp/chimp.imp"
5575 @ 50136:               PUSH   ASSEMBLEREAL
5576 @ 50139:               CALL  

  1159            %exit
5577 @ 50140:               LINE   1159 "regression-compile-tmp/chimp.imp"
5578 @ 50176:               GOTO   L_0007

  1160          %finish
5579 @ 50179:               LINE   1160 "regression-compile-tmp/chimp.imp"
5580 @ 50215:               LOCATE L_000d

  1161          t_val = t_val*10+i
5581 @ 50218:               LINE   1161 "regression-compile-tmp/chimp.imp"
5582 @ 50254:               PUSH   T
5583 @ 50257:               SELECT 7
5584 @ 50260:               PUSH   T
5585 @ 50263:               SELECT 7
5586 @ 50266:               PUSHI  #0x0000000a
5587 @ 50271:               MUL   
5588 @ 50272:               PUSH   I
5589 @ 50275:               ADD   
5590 @ 50276:               ASSVAL

  1162        %finish %else %start
5591 @ 50277:               LINE   1162 "regression-compile-tmp/chimp.imp"
5592 @ 50313:               GOTO   L_0009
5593 @ 50316:               LOCATE L_000a

  1163          i = sym!casebit-'a'+10 %if i >= 10
5594 @ 50319:               LINE   1163 "regression-compile-tmp/chimp.imp"
5595 @ 50355:               PUSH   I
5596 @ 50358:               PUSHI  #0x0000000a
5597 @ 50363:               JUMPIF < L_000d
5598 @ 50367:               PUSH   I
5599 @ 50370:               PUSH   SYM
5600 @ 50373:               PUSHI  #0x00000020
5601 @ 50378:               OR    
5602 @ 50379:               PUSHI  #0x00000061
5603 @ 50384:               SUB   
5604 @ 50385:               PUSHI  #0x0000000a
5605 @ 50390:               ADD   
5606 @ 50391:               ASSVAL
5607 @ 50392:               LOCATE L_000d

  1164          %exit %if i < 0 %or i >= radix
5608 @ 50395:               LINE   1164 "regression-compile-tmp/chimp.imp"
5609 @ 50431:               PUSH   I
5610 @ 50434:               PUSHI  #0x00000000
5611 @ 50439:               JUMPIF < L_000e
5612 @ 50443:               PUSH   I
5613 @ 50446:               PUSH   RADIX
5614 @ 50449:               JUMPIF < L_000d
5615 @ 50453:               LOCATE L_000e
5616 @ 50456:               GOTO   L_0007
5617 @ 50459:               LOCATE L_000d

  1165          j = radix
5618 @ 50462:               LINE   1165 "regression-compile-tmp/chimp.imp"
5619 @ 50498:               PUSH   J
5620 @ 50501:               PUSH   RADIX
5621 @ 50504:               ASSVAL

  1166          %cycle
5622 @ 50505:               LINE   1166 "regression-compile-tmp/chimp.imp"
5623 @ 50541:               LOCATE L_000c

  1167            i = i+t_val %if j&1 # 0
5624 @ 50544:               LINE   1167 "regression-compile-tmp/chimp.imp"
5625 @ 50580:               PUSH   J
5626 @ 50583:               PUSHI  #0x00000001
5627 @ 50588:               AND   
5628 @ 50589:               PUSHI  #0x00000000
5629 @ 50594:               JUMPIF = L_0010
5630 @ 50598:               PUSH   I
5631 @ 50601:               PUSH   I
5632 @ 50604:               PUSH   T
5633 @ 50607:               SELECT 7
5634 @ 50610:               ADD   
5635 @ 50611:               ASSVAL
5636 @ 50612:               LOCATE L_0010

  1168            t_val = t_val<<1;  j = j>>1
5637 @ 50615:               LINE   1168 "regression-compile-tmp/chimp.imp"
5638 @ 50651:               PUSH   T
5639 @ 50654:               SELECT 7
5640 @ 50657:               PUSH   T
5641 @ 50660:               SELECT 7
5642 @ 50663:               PUSHI  #0x00000001
5643 @ 50668:               LSH   
5644 @ 50669:               ASSVAL
5645 @ 50670:               LINE   1168 "regression-compile-tmp/chimp.imp"
5646 @ 50706:               PUSH   J
5647 @ 50709:               PUSH   J
5648 @ 50712:               PUSHI  #0x00000001
5649 @ 50717:               RSH   
5650 @ 50718:               ASSVAL

  1169          %repeat %until j = 0
5651 @ 50719:               LINE   1169 "regression-compile-tmp/chimp.imp"
5652 @ 50755:               PUSH   J
5653 @ 50758:               PUSHI  #0x00000000
5654 @ 50763:               JUMPIF = L_000d
5655 @ 50767:               REPEAT L_000c
5656 @ 50770:               LOCATE L_000d

  1170          t_val = i
5657 @ 50773:               LINE   1170 "regression-compile-tmp/chimp.imp"
5658 @ 50809:               PUSH   T
5659 @ 50812:               SELECT 7
5660 @ 50815:               PUSH   I
5661 @ 50818:               ASSVAL

  1171        %finish
5662 @ 50819:               LINE   1171 "regression-compile-tmp/chimp.imp"
5663 @ 50855:               LOCATE L_0009

  1172      %repeat
5664 @ 50858:               LINE   1172 "regression-compile-tmp/chimp.imp"
5665 @ 50894:               REPEAT L_0006
5666 @ 50897:               LOCATE L_0007

  1173      %exit %unless sym = '_'
5667 @ 50900:               LINE   1173 "regression-compile-tmp/chimp.imp"
5668 @ 50936:               PUSH   SYM
5669 @ 50939:               PUSHI  #0x0000005f
5670 @ 50944:               JUMPIF = L_0007
5671 @ 50948:               GOTO   L_0004
5672 @ 50951:               LOCATE L_0007

  1174      radix = t_val
5673 @ 50954:               LINE   1174 "regression-compile-tmp/chimp.imp"
5674 @ 50990:               PUSH   RADIX
5675 @ 50993:               PUSH   T
5676 @ 50996:               SELECT 7
5677 @ 50999:               ASSVAL

  1175      %result = dud %if radix = 0
5678 @ 51000:               LINE   1175 "regression-compile-tmp/chimp.imp"
5679 @ 51036:               PUSH   RADIX
5680 @ 51039:               PUSHI  #0x00000000
5681 @ 51044:               JUMPIF # L_0007
5682 @ 51048:               PUSHI  #0x0000003f
5683 @ 51053:               RESULT
5684 @ 51054:               LOCATE L_0007

  1176      t_val = 0
5685 @ 51057:               LINE   1176 "regression-compile-tmp/chimp.imp"
5686 @ 51093:               PUSH   T
5687 @ 51096:               SELECT 7
5688 @ 51099:               PUSHI  #0x00000000
5689 @ 51104:               ASSVAL

  1177    %repeat
5690 @ 51105:               LINE   1177 "regression-compile-tmp/chimp.imp"
5691 @ 51141:               REPEAT L_0003
5692 @ 51144:               LOCATE L_0004

  1178    %if sym = '.' %start
5693 @ 51147:               LINE   1178 "regression-compile-tmp/chimp.imp"
5694 @ 51183:               PUSH   SYM
5695 @ 51186:               PUSHI  #0x0000002e
5696 @ 51191:               JUMPIF # L_0004

  1179      t_type = realy %and rval = t_val %if t_type = inty
5697 @ 51195:               LINE   1179 "regression-compile-tmp/chimp.imp"
5698 @ 51231:               PUSH   T
5699 @ 51234:               SELECT 2
5700 @ 51237:               PUSHI  #0x000007fe
5701 @ 51242:               JUMPIF # L_0007
5702 @ 51246:               PUSH   T
5703 @ 51249:               SELECT 2
5704 @ 51252:               PUSHI  #0x000007fd
5705 @ 51257:               ASSVAL
5706 @ 51258:               PUSH   RVAL
5707 @ 51261:               PUSH   T
5708 @ 51264:               SELECT 7
5709 @ 51267:               ASSVAL
5710 @ 51268:               LOCATE L_0007

  1180      assemble real
5711 @ 51271:               LINE   1180 "regression-compile-tmp/chimp.imp"
5712 @ 51307:               PUSH   ASSEMBLEREAL
5713 @ 51310:               CALL  

  1181      %result = dud %if j = 0
5714 @ 51311:               LINE   1181 "regression-compile-tmp/chimp.imp"
5715 @ 51347:               PUSH   J
5716 @ 51350:               PUSHI  #0x00000000
5717 @ 51355:               JUMPIF # L_0007
5718 @ 51359:               PUSHI  #0x0000003f
5719 @ 51364:               RESULT
5720 @ 51365:               LOCATE L_0007

  1182      rval = rval/radix\j
5721 @ 51368:               LINE   1182 "regression-compile-tmp/chimp.imp"
5722 @ 51404:               PUSH   RVAL
5723 @ 51407:               PUSH   RVAL
5724 @ 51410:               PUSH   RADIX
5725 @ 51413:               PUSH   J
5726 @ 51416:               REXP  
5727 @ 51417:               DIVIDE
5728 @ 51418:               ASSVAL

  1183    %finish
  1184  !  %if t_type = realy %start;  !vax->ieee
  1185  !    t_val = integer(addr(rval))
  1186  !    t_val = t_val<<16+t_val>>16-16_01000000
  1187  !  %finish
  1188  !  numatoms = numatoms+1
  1189  !$IF AMDAHL
  1190  {  %if item < 0 %start
  1191  {    %result = dud %if sym # ''''
  1192  {    item = 0
  1193  {  %finish %else %start
  1194  {    fp = fp-1;  sym = 0
  1195  {  %finish
  1196  !$IF VAX OR APM
5729 @ 51419:               LINE   1183 "regression-compile-tmp/chimp.imp"
5730 @ 51455:               LOCATE L_0004

  1197    fp = fp-1;  sym = 0
  1198  !$FINISH
5731 @ 51458:               LINE   1197 "regression-compile-tmp/chimp.imp"
5732 @ 51494:               PUSH   FP
5733 @ 51497:               PUSH   FP
5734 @ 51500:               PUSHI  #0x00000001
5735 @ 51505:               SUB   
5736 @ 51506:               ASSVAL
5737 @ 51507:               LINE   1197 "regression-compile-tmp/chimp.imp"
5738 @ 51543:               PUSH   SYM
5739 @ 51546:               PUSHI  #0x00000000
5740 @ 51551:               ASSVAL

  1199    %result = const
  1200  
5741 @ 51552:               LINE   1199 "regression-compile-tmp/chimp.imp"
5742 @ 51588:               PUSHI  #0x00000035
5743 @ 51593:               RESULT

  1201  s(''''):
5744 @ 51594:               LINE   1201 "regression-compile-tmp/chimp.imp"
5745 @ 51630:               PUSHI  #0x00000027
5746 @ 51635:               SLABEL 248

  1202  charconst:
5747 @ 51638:               LINE   1202 "regression-compile-tmp/chimp.imp"
5748 @ 51674:               LABEL  L_0104

  1203    item = 0;  t_type = inty
5749 @ 51677:               LINE   1203 "regression-compile-tmp/chimp.imp"
5750 @ 51713:               PUSH   ITEM
5751 @ 51716:               PUSHI  #0x00000000
5752 @ 51721:               ASSVAL
5753 @ 51722:               LINE   1203 "regression-compile-tmp/chimp.imp"
5754 @ 51758:               PUSH   T
5755 @ 51761:               SELECT 2
5756 @ 51764:               PUSHI  #0x000007fe
5757 @ 51769:               ASSVAL

  1204    t_val = 0
5758 @ 51770:               LINE   1204 "regression-compile-tmp/chimp.imp"
5759 @ 51806:               PUSH   T
5760 @ 51809:               SELECT 7
5761 @ 51812:               PUSHI  #0x00000000
5762 @ 51817:               ASSVAL

  1205    %cycle
5763 @ 51818:               LINE   1205 "regression-compile-tmp/chimp.imp"
5764 @ 51854:               LOCATE L_0003

  1206      sym = byteinteger(fp);  fp = fp+1
5765 @ 51857:               LINE   1206 "regression-compile-tmp/chimp.imp"
5766 @ 51893:               PUSH   SYM
5767 @ 51896:               PUSH   BYTEINTEGER
5768 @ 51899:               PUSH   FP
5769 @ 51902:               ASSPAR
5770 @ 51903:               CALL  
5771 @ 51904:               ASSVAL
5772 @ 51905:               LINE   1206 "regression-compile-tmp/chimp.imp"
5773 @ 51941:               PUSH   FP
5774 @ 51944:               PUSH   FP
5775 @ 51947:               PUSHI  #0x00000001
5776 @ 51952:               ADD   
5777 @ 51953:               ASSVAL

  1207      %result = dud %if sym = nl;  !?allow
5778 @ 51954:               LINE   1207 "regression-compile-tmp/chimp.imp"
5779 @ 51990:               PUSH   SYM
5780 @ 51993:               PUSHI  #0x0000000a
5781 @ 51998:               JUMPIF # L_0007
5782 @ 52002:               PUSHI  #0x0000003f
5783 @ 52007:               RESULT
5784 @ 52008:               LOCATE L_0007

  1208      %if sym = '''' %start
5785 @ 52011:               LINE   1208 "regression-compile-tmp/chimp.imp"
5786 @ 52047:               PUSH   SYM
5787 @ 52050:               PUSHI  #0x00000027
5788 @ 52055:               JUMPIF # L_0007

  1209        %exit %unless byteinteger(fp) = ''''
5789 @ 52059:               LINE   1209 "regression-compile-tmp/chimp.imp"
5790 @ 52095:               PUSH   BYTEINTEGER
5791 @ 52098:               PUSH   FP
5792 @ 52101:               ASSPAR
5793 @ 52102:               CALL  
5794 @ 52103:               PUSHI  #0x00000027
5795 @ 52108:               JUMPIF = L_000a
5796 @ 52112:               GOTO   L_0004
5797 @ 52115:               LOCATE L_000a

  1210        fp = fp+1
5798 @ 52118:               LINE   1210 "regression-compile-tmp/chimp.imp"
5799 @ 52154:               PUSH   FP
5800 @ 52157:               PUSH   FP
5801 @ 52160:               PUSHI  #0x00000001
5802 @ 52165:               ADD   
5803 @ 52166:               ASSVAL

  1211      %finish
5804 @ 52167:               LINE   1211 "regression-compile-tmp/chimp.imp"
5805 @ 52203:               LOCATE L_0007

  1212      t_val = t_val<<8+sym
5806 @ 52206:               LINE   1212 "regression-compile-tmp/chimp.imp"
5807 @ 52242:               PUSH   T
5808 @ 52245:               SELECT 7
5809 @ 52248:               PUSH   T
5810 @ 52251:               SELECT 7
5811 @ 52254:               PUSHI  #0x00000008
5812 @ 52259:               LSH   
5813 @ 52260:               PUSH   SYM
5814 @ 52263:               ADD   
5815 @ 52264:               ASSVAL

  1213    %repeat
5816 @ 52265:               LINE   1213 "regression-compile-tmp/chimp.imp"
5817 @ 52301:               REPEAT L_0003
5818 @ 52304:               LOCATE L_0004

  1214    %result = const %if t_val # 0
5819 @ 52307:               LINE   1214 "regression-compile-tmp/chimp.imp"
5820 @ 52343:               PUSH   T
5821 @ 52346:               SELECT 7
5822 @ 52349:               PUSHI  #0x00000000
5823 @ 52354:               JUMPIF = L_0004
5824 @ 52358:               PUSHI  #0x00000035
5825 @ 52363:               RESULT
5826 @ 52364:               LOCATE L_0004

  1215    %result = dud
  1216  
5827 @ 52367:               LINE   1215 "regression-compile-tmp/chimp.imp"
5828 @ 52403:               PUSHI  #0x0000003f
5829 @ 52408:               RESULT

  1217  s('"'):
5830 @ 52409:               LINE   1217 "regression-compile-tmp/chimp.imp"
5831 @ 52445:               PUSHI  #0x00000022
5832 @ 52450:               SLABEL 248

  1218  stringconst:
5833 @ 52453:               LINE   1218 "regression-compile-tmp/chimp.imp"
5834 @ 52489:               LABEL  L_0103

  1219    item = 0;  t_type = stringy
5835 @ 52492:               LINE   1219 "regression-compile-tmp/chimp.imp"
5836 @ 52528:               PUSH   ITEM
5837 @ 52531:               PUSHI  #0x00000000
5838 @ 52536:               ASSVAL
5839 @ 52537:               LINE   1219 "regression-compile-tmp/chimp.imp"
5840 @ 52573:               PUSH   T
5841 @ 52576:               SELECT 2
5842 @ 52579:               PUSHI  #0x000007fc
5843 @ 52584:               ASSVAL

  1220    stringp = atomp;  !for include
5844 @ 52585:               LINE   1220 "regression-compile-tmp/chimp.imp"
5845 @ 52621:               PUSH   STRINGP
5846 @ 52624:               PUSH   ATOMP
5847 @ 52627:               ASSVAL

  1221    t_val = 0
5848 @ 52628:               LINE   1221 "regression-compile-tmp/chimp.imp"
5849 @ 52664:               PUSH   T
5850 @ 52667:               SELECT 7
5851 @ 52670:               PUSHI  #0x00000000
5852 @ 52675:               ASSVAL

  1222    i = line;  j = linestart
5853 @ 52676:               LINE   1222 "regression-compile-tmp/chimp.imp"
5854 @ 52712:               PUSH   I
5855 @ 52715:               PUSH   LINE
5856 @ 52718:               ASSVAL
5857 @ 52719:               LINE   1222 "regression-compile-tmp/chimp.imp"
5858 @ 52755:               PUSH   J
5859 @ 52758:               PUSH   LINESTART
5860 @ 52761:               ASSVAL

  1223    %cycle
5861 @ 52762:               LINE   1223 "regression-compile-tmp/chimp.imp"
5862 @ 52798:               LOCATE L_0003

  1224      sym = byteinteger(fp);  fp = fp+1
5863 @ 52801:               LINE   1224 "regression-compile-tmp/chimp.imp"
5864 @ 52837:               PUSH   SYM
5865 @ 52840:               PUSH   BYTEINTEGER
5866 @ 52843:               PUSH   FP
5867 @ 52846:               ASSPAR
5868 @ 52847:               CALL  
5869 @ 52848:               ASSVAL
5870 @ 52849:               LINE   1224 "regression-compile-tmp/chimp.imp"
5871 @ 52885:               PUSH   FP
5872 @ 52888:               PUSH   FP
5873 @ 52891:               PUSHI  #0x00000001
5874 @ 52896:               ADD   
5875 @ 52897:               ASSVAL

  1225      %if sym = '"' %start
5876 @ 52898:               LINE   1225 "regression-compile-tmp/chimp.imp"
5877 @ 52934:               PUSH   SYM
5878 @ 52937:               PUSHI  #0x00000022
5879 @ 52942:               JUMPIF # L_0007

  1226        %exit %if byteinteger(fp) # '"'
5880 @ 52946:               LINE   1226 "regression-compile-tmp/chimp.imp"
5881 @ 52982:               PUSH   BYTEINTEGER
5882 @ 52985:               PUSH   FP
5883 @ 52988:               ASSPAR
5884 @ 52989:               CALL  
5885 @ 52990:               PUSHI  #0x00000022
5886 @ 52995:               JUMPIF = L_000a
5887 @ 52999:               GOTO   L_0004
5888 @ 53002:               LOCATE L_000a

  1227        fp = fp+1
5889 @ 53005:               LINE   1227 "regression-compile-tmp/chimp.imp"
5890 @ 53041:               PUSH   FP
5891 @ 53044:               PUSH   FP
5892 @ 53047:               PUSHI  #0x00000001
5893 @ 53052:               ADD   
5894 @ 53053:               ASSVAL

  1228      %finish
5895 @ 53054:               LINE   1228 "regression-compile-tmp/chimp.imp"
5896 @ 53090:               LOCATE L_0007

  1229      t_val = t_val+1
5897 @ 53093:               LINE   1229 "regression-compile-tmp/chimp.imp"
5898 @ 53129:               PUSH   T
5899 @ 53132:               SELECT 7
5900 @ 53135:               PUSH   T
5901 @ 53138:               SELECT 7
5902 @ 53141:               PUSHI  #0x00000001
5903 @ 53146:               ADD   
5904 @ 53147:               ASSVAL

  1230      %if t_val > 255 %start
5905 @ 53148:               LINE   1230 "regression-compile-tmp/chimp.imp"
5906 @ 53184:               PUSH   T
5907 @ 53187:               SELECT 7
5908 @ 53190:               PUSHI  #0x000000ff
5909 @ 53195:               JUMPIF <= L_0007

  1231        sym = 0
5910 @ 53199:               LINE   1231 "regression-compile-tmp/chimp.imp"
5911 @ 53235:               PUSH   SYM
5912 @ 53238:               PUSHI  #0x00000000
5913 @ 53243:               ASSVAL

  1232        fp = atomp;  linestart = j
5914 @ 53244:               LINE   1232 "regression-compile-tmp/chimp.imp"
5915 @ 53280:               PUSH   FP
5916 @ 53283:               PUSH   ATOMP
5917 @ 53286:               ASSVAL
5918 @ 53287:               LINE   1232 "regression-compile-tmp/chimp.imp"
5919 @ 53323:               PUSH   LINESTART
5920 @ 53326:               PUSH   J
5921 @ 53329:               ASSVAL

  1233        %result = dud
5922 @ 53330:               LINE   1233 "regression-compile-tmp/chimp.imp"
5923 @ 53366:               PUSHI  #0x0000003f
5924 @ 53371:               RESULT

  1234      %finish
5925 @ 53372:               LINE   1234 "regression-compile-tmp/chimp.imp"
5926 @ 53408:               LOCATE L_0007

  1235      read line %if sym = nl
5927 @ 53411:               LINE   1235 "regression-compile-tmp/chimp.imp"
5928 @ 53447:               PUSH   SYM
5929 @ 53450:               PUSHI  #0x0000000a
5930 @ 53455:               JUMPIF # L_0007
5931 @ 53459:               PUSH   READLINE
5932 @ 53462:               CALL  
5933 @ 53463:               LOCATE L_0007

  1236    %repeat
5934 @ 53466:               LINE   1236 "regression-compile-tmp/chimp.imp"
5935 @ 53502:               REPEAT L_0003
5936 @ 53505:               LOCATE L_0004

  1237    %result = const
  1238  
5937 @ 53508:               LINE   1237 "regression-compile-tmp/chimp.imp"
5938 @ 53544:               PUSHI  #0x00000035
5939 @ 53549:               RESULT

  1239  s(*):
5940 @ 53550:               LINE   1239 "regression-compile-tmp/chimp.imp"
5941 @ 53586:               DEFSW  248

  1240    %result = dud
5942 @ 53589:               LINE   1240 "regression-compile-tmp/chimp.imp"
5943 @ 53625:               PUSHI  #0x0000003f
5944 @ 53630:               RESULT

  1241  %end;  !NEXT ATOM
  1242  
5945 @ 53631:               LINE   1241 "regression-compile-tmp/chimp.imp"
5946 @ 53667:            END    _ECCECI_NEXTATOM {lev=2 --> 1}

  1243  %routine LOOKUP FIELD IDENT(%integer list)
5947 @ 53668:            LINE   1243 "regression-compile-tmp/chimp.imp"
5948 @ 53704:            DEF    LOOKUPFIELDIDENT (_ECCECI_LOOKUPFIELDIDENT) p1=V_00f8 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
5949 @ 53732:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
5950 @ 53733:                  DEF    LIST p1=V_00f9 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
5951 @ 53749:               FINISH ) {lev=2}

  1244    item = list;  %return %if item = 0
5952 @ 53750:               LINE   1244 "regression-compile-tmp/chimp.imp"
5953 @ 53786:               PUSH   ITEM
5954 @ 53789:               PUSH   LIST
5955 @ 53792:               ASSVAL
5956 @ 53793:               LINE   1244 "regression-compile-tmp/chimp.imp"
5957 @ 53829:               PUSH   ITEM
5958 @ 53832:               PUSHI  #0x00000000
5959 @ 53837:               JUMPIF # L_0004
5960 @ 53841:               RETURN
5961 @ 53842:               LOCATE L_0004

  1245    %cycle
5962 @ 53845:               LINE   1245 "regression-compile-tmp/chimp.imp"
5963 @ 53881:               LOCATE L_0003

  1246      ditem == dict(item)
5964 @ 53884:               LINE   1246 "regression-compile-tmp/chimp.imp"
5965 @ 53920:               PUSH   DITEM
5966 @ 53923:               PUSH   DICT
5967 @ 53926:               PUSH   ITEM
5968 @ 53929:               ACCESS
5969 @ 53930:               ASSREF

  1247      %if ditem_flags&typeid = 0 %start
5970 @ 53931:               LINE   1247 "regression-compile-tmp/chimp.imp"
5971 @ 53967:               PUSH   DITEM
5972 @ 53970:               SELECT 1
5973 @ 53973:               PUSHI  #0x00000100
5974 @ 53978:               AND   
5975 @ 53979:               PUSHI  #0x00000000
5976 @ 53984:               JUMPIF # L_0007

  1248        %return %if string(ditem_text+charbase) = string(charlim)
5977 @ 53988:               LINE   1248 "regression-compile-tmp/chimp.imp"
5978 @ 54024:               PUSH   STRING
5979 @ 54027:               PUSH   DITEM
5980 @ 54030:               SELECT 9
5981 @ 54033:               PUSH   CHARBASE
5982 @ 54036:               ADD   
5983 @ 54037:               ASSPAR
5984 @ 54038:               CALL  
5985 @ 54039:               PUSH   STRING
5986 @ 54042:               PUSH   CHARLIM
5987 @ 54045:               ASSPAR
5988 @ 54046:               CALL  
5989 @ 54047:               JUMPIF # L_000a
5990 @ 54051:               RETURN
5991 @ 54052:               LOCATE L_000a

  1249        %exit %if ditem_flags&more = 0
5992 @ 54055:               LINE   1249 "regression-compile-tmp/chimp.imp"
5993 @ 54091:               PUSH   DITEM
5994 @ 54094:               SELECT 1
5995 @ 54097:               PUSHI  #0x00000080
5996 @ 54102:               AND   
5997 @ 54103:               PUSHI  #0x00000000
5998 @ 54108:               JUMPIF # L_000a
5999 @ 54112:               GOTO   L_0004
6000 @ 54115:               LOCATE L_000a

  1250      %finish
6001 @ 54118:               LINE   1250 "regression-compile-tmp/chimp.imp"
6002 @ 54154:               LOCATE L_0007

  1251      item = item+1;  !misses = misses+1
6003 @ 54157:               LINE   1251 "regression-compile-tmp/chimp.imp"
6004 @ 54193:               PUSH   ITEM
6005 @ 54196:               PUSH   ITEM
6006 @ 54199:               PUSHI  #0x00000001
6007 @ 54204:               ADD   
6008 @ 54205:               ASSVAL

  1252    %repeat
6009 @ 54206:               LINE   1252 "regression-compile-tmp/chimp.imp"
6010 @ 54242:               REPEAT L_0003
6011 @ 54245:               LOCATE L_0004

  1253    item = 0
6012 @ 54248:               LINE   1253 "regression-compile-tmp/chimp.imp"
6013 @ 54284:               PUSH   ITEM
6014 @ 54287:               PUSHI  #0x00000000
6015 @ 54292:               ASSVAL

  1254  %end
  1255  
6016 @ 54293:               LINE   1254 "regression-compile-tmp/chimp.imp"
6017 @ 54329:            END    _ECCECI_LOOKUPFIELDIDENT {lev=2 --> 1}

  1256  %predicate A (%integer k)
  1257  !Basic atom-testing predicate
6018 @ 54330:            LINE   1256 "regression-compile-tmp/chimp.imp"
6019 @ 54366:            DEF    A (_ECCECI_A) p1=V_00f9 a/tf=a b/format=0 c/ostate=0  type=0 (<type:0>) form=10 (predicate) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
6020 @ 54379:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
6021 @ 54380:                  DEF    K 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
6022 @ 54393:               FINISH ) {lev=2}

  1258    atom = next atom %if matched # 0
6023 @ 54394:               LINE   1258 "regression-compile-tmp/chimp.imp"
6024 @ 54430:               PUSH   MATCHED
6025 @ 54433:               PUSHI  #0x00000000
6026 @ 54438:               JUMPIF = L_0004
6027 @ 54442:               PUSH   ATOM
6028 @ 54445:               PUSH   NEXTATOM
6029 @ 54448:               CALL  
6030 @ 54449:               ASSVAL
6031 @ 54450:               LOCATE L_0004

  1259    %false %if k # atom
6032 @ 54453:               LINE   1259 "regression-compile-tmp/chimp.imp"
6033 @ 54489:               PUSH   K
6034 @ 54492:               PUSH   ATOM
6035 @ 54495:               JUMPIF = L_0004
6036 @ 54499:               FALSE 
6037 @ 54500:               LOCATE L_0004

  1260    matched = 1
6038 @ 54503:               LINE   1260 "regression-compile-tmp/chimp.imp"
6039 @ 54539:               PUSH   MATCHED
6040 @ 54542:               PUSHI  #0x00000001
6041 @ 54547:               ASSVAL

  1261    %true
6042 @ 54548:               LINE   1261 "regression-compile-tmp/chimp.imp"
6043 @ 54584:               TRUE  

  1262  %end
  1263  
6044 @ 54585:               LINE   1262 "regression-compile-tmp/chimp.imp"
6045 @ 54621:            END    _ECCECI_A {lev=2 --> 1}

  1264  %routine GET(%integer k)
6046 @ 54622:            LINE   1264 "regression-compile-tmp/chimp.imp"
6047 @ 54658:            DEF    GET (_ECCECI_GET) p1=V_00fa 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
6048 @ 54673:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
6049 @ 54674:                  DEF    K p1=V_00fb a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
6050 @ 54687:               FINISH ) {lev=2}

  1265    atom = next atom %if matched # 0
6051 @ 54688:               LINE   1265 "regression-compile-tmp/chimp.imp"
6052 @ 54724:               PUSH   MATCHED
6053 @ 54727:               PUSHI  #0x00000000
6054 @ 54732:               JUMPIF = L_0004
6055 @ 54736:               PUSH   ATOM
6056 @ 54739:               PUSH   NEXTATOM
6057 @ 54742:               CALL  
6058 @ 54743:               ASSVAL
6059 @ 54744:               LOCATE L_0004

  1266    matched = 1
6060 @ 54747:               LINE   1266 "regression-compile-tmp/chimp.imp"
6061 @ 54783:               PUSH   MATCHED
6062 @ 54786:               PUSHI  #0x00000001
6063 @ 54791:               ASSVAL

  1267    %return %if atom = k
6064 @ 54792:               LINE   1267 "regression-compile-tmp/chimp.imp"
6065 @ 54828:               PUSH   ATOM
6066 @ 54831:               PUSH   K
6067 @ 54834:               JUMPIF # L_0004
6068 @ 54838:               RETURN
6069 @ 54839:               LOCATE L_0004

  1268    syntax error %if atom = dud
6070 @ 54842:               LINE   1268 "regression-compile-tmp/chimp.imp"
6071 @ 54878:               PUSH   ATOM
6072 @ 54881:               PUSHI  #0x0000003f
6073 @ 54886:               JUMPIF # L_0004
6074 @ 54890:               PUSH   SYNTAXERROR
6075 @ 54893:               CALL  
6076 @ 54894:               LOCATE L_0004

  1269    faultp = atomp;  report(formerr+point,-k)
6077 @ 54897:               LINE   1269 "regression-compile-tmp/chimp.imp"
6078 @ 54933:               PUSH   FAULTP
6079 @ 54936:               PUSH   ATOMP
6080 @ 54939:               ASSVAL
6081 @ 54940:               LINE   1269 "regression-compile-tmp/chimp.imp"
6082 @ 54976:               PUSH   REPORT
6083 @ 54979:               PUSHI  #0x00000000
6084 @ 54984:               PUSHI  #0x00000040
6085 @ 54989:               ADD   
6086 @ 54990:               ASSPAR
6087 @ 54991:               PUSH   K
6088 @ 54994:               NEGATE
6089 @ 54995:               ASSPAR
6090 @ 54996:               CALL  

  1270    %signal 14
6091 @ 54997:               LINE   1270 "regression-compile-tmp/chimp.imp"
6092 @ 55033:               EVENT  000e

  1271  %end
  1272  
6093 @ 55036:               LINE   1271 "regression-compile-tmp/chimp.imp"
6094 @ 55072:            END    _ECCECI_GET {lev=2 --> 1}

  1273  %routine ALLOW(%integer k)
6095 @ 55073:            LINE   1273 "regression-compile-tmp/chimp.imp"
6096 @ 55109:            DEF    ALLOW (_ECCECI_ALLOW) p1=V_00fb 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
6097 @ 55126:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
6098 @ 55127:                  DEF    K p1=V_00fc a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
6099 @ 55140:               FINISH ) {lev=2}

  1274    %if a(k) %start
6100 @ 55141:               LINE   1274 "regression-compile-tmp/chimp.imp"
6101 @ 55177:               PUSH   A
6102 @ 55180:               PUSH   K
6103 @ 55183:               ASSPAR
6104 @ 55184:               CALL  
6105 @ 55185:               bf     L_0004

  1275    %finish
6106 @ 55188:               LINE   1275 "regression-compile-tmp/chimp.imp"
6107 @ 55224:               LOCATE L_0004

  1276  %end
  1277  
6108 @ 55227:               LINE   1276 "regression-compile-tmp/chimp.imp"
6109 @ 55263:            END    _ECCECI_ALLOW {lev=2 --> 1}

  1278  %routine DECLARE
6110 @ 55264:            LINE   1278 "regression-compile-tmp/chimp.imp"
6111 @ 55300:            DEF    DECLARE (_ECCECI_DECLARE) p1=V_00fc 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
6112 @ 55319:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
6113 @ 55320:               FINISH ) {lev=2}

  1279    %if speccing = 0 %start;  !not within spec params
6114 @ 55321:               LINE   1279 "regression-compile-tmp/chimp.imp"
6115 @ 55357:               PUSH   SPECCING
6116 @ 55360:               PUSHI  #0x00000000
6117 @ 55365:               JUMPIF # L_0004

  1280      %if item >= c_localdpos %start;  !there already
6118 @ 55369:               LINE   1280 "regression-compile-tmp/chimp.imp"
6119 @ 55405:               PUSH   ITEM
6120 @ 55408:               PUSH   C
6121 @ 55411:               SELECT 6
6122 @ 55414:               JUMPIF < L_0007

  1281        %if d_flags&spec = 0 %and d_flags+spec = ditem_flags %c
  1282        %and ditem_type = d_type %start
6123 @ 55418:               LINE   1281 "regression-compile-tmp/chimp.imp"
6124 @ 55454:               PUSH   D
6125 @ 55457:               SELECT 1
6126 @ 55460:               PUSHI  #0x00000010
6127 @ 55465:               AND   
6128 @ 55466:               PUSHI  #0x00000000
6129 @ 55471:               JUMPIF # L_000a
6130 @ 55475:               PUSH   D
6131 @ 55478:               SELECT 1
6132 @ 55481:               PUSHI  #0x00000010
6133 @ 55486:               ADD   
6134 @ 55487:               PUSH   DITEM
6135 @ 55490:               SELECT 1
6136 @ 55493:               JUMPIF # L_000a
6137 @ 55497:               PUSH   DITEM
6138 @ 55500:               SELECT 2
6139 @ 55503:               PUSH   D
6140 @ 55506:               SELECT 2
6141 @ 55509:               JUMPIF # L_000a

  1283          ditem_flags = ditem_flags-spec
6142 @ 55513:               LINE   1283 "regression-compile-tmp/chimp.imp"
6143 @ 55549:               PUSH   DITEM
6144 @ 55552:               SELECT 1
6145 @ 55555:               PUSH   DITEM
6146 @ 55558:               SELECT 1
6147 @ 55561:               PUSHI  #0x00000010
6148 @ 55566:               SUB   
6149 @ 55567:               ASSVAL

  1284          %return
6150 @ 55568:               LINE   1284 "regression-compile-tmp/chimp.imp"
6151 @ 55604:               RETURN

  1285        %finish
6152 @ 55605:               LINE   1285 "regression-compile-tmp/chimp.imp"
6153 @ 55641:               LOCATE L_000a

  1286        fault(duperr+point)
6154 @ 55644:               LINE   1286 "regression-compile-tmp/chimp.imp"
6155 @ 55680:               PUSH   FAULT
6156 @ 55683:               PUSHI  #0x00000007
6157 @ 55688:               PUSHI  #0x00000040
6158 @ 55693:               ADD   
6159 @ 55694:               ASSPAR
6160 @ 55695:               CALL  

  1287      %finish
6161 @ 55696:               LINE   1287 "regression-compile-tmp/chimp.imp"
6162 @ 55732:               LOCATE L_0007

  1288      d_link = head;  head = dlim;  !insert in list
  1289  !    d_spare = hash&255
6163 @ 55735:               LINE   1288 "regression-compile-tmp/chimp.imp"
6164 @ 55771:               PUSH   D
6165 @ 55774:               SELECT 10
6166 @ 55777:               PUSH   HEAD
6167 @ 55780:               ASSVAL
6168 @ 55781:               LINE   1288 "regression-compile-tmp/chimp.imp"
6169 @ 55817:               PUSH   HEAD
6170 @ 55820:               PUSH   DLIM
6171 @ 55823:               ASSVAL

  1290      %if item > 0 %then d_text = ditem_text %c
  1291      %else %start
6172 @ 55824:               LINE   1290 "regression-compile-tmp/chimp.imp"
6173 @ 55860:               PUSH   ITEM
6174 @ 55863:               PUSHI  #0x00000000
6175 @ 55868:               JUMPIF <= L_0007
6176 @ 55872:               PUSH   D
6177 @ 55875:               SELECT 9
6178 @ 55878:               PUSH   DITEM
6179 @ 55881:               SELECT 9
6180 @ 55884:               ASSVAL
6181 @ 55885:               GOTO   L_0006
6182 @ 55888:               LOCATE L_0007

  1292        d_text = charlim-charbase;  charlim = charlim+newlen+1
6183 @ 55891:               LINE   1292 "regression-compile-tmp/chimp.imp"
6184 @ 55927:               PUSH   D
6185 @ 55930:               SELECT 9
6186 @ 55933:               PUSH   CHARLIM
6187 @ 55936:               PUSH   CHARBASE
6188 @ 55939:               SUB   
6189 @ 55940:               ASSVAL
6190 @ 55941:               LINE   1292 "regression-compile-tmp/chimp.imp"
6191 @ 55977:               PUSH   CHARLIM
6192 @ 55980:               PUSH   CHARLIM
6193 @ 55983:               PUSH   NEWLEN
6194 @ 55986:               ADD   
6195 @ 55987:               PUSHI  #0x00000001
6196 @ 55992:               ADD   
6197 @ 55993:               ASSVAL

  1293        croak("Identifier space exhausted") %if charlim+80 >= charmin
6198 @ 55994:               LINE   1293 "regression-compile-tmp/chimp.imp"
6199 @ 56030:               PUSH   CHARLIM
6200 @ 56033:               PUSHI  #0x00000050
6201 @ 56038:               ADD   
6202 @ 56039:               PUSH   CHARMIN
6203 @ 56042:               JUMPIF < L_000a
6204 @ 56046:               PUSH   CROAK
6205 @ 56049:               PUSHS  "Identifier space exhausted"
6206 @ 56077:               ASSPAR
6207 @ 56078:               CALL  
6208 @ 56079:               LOCATE L_000a

  1294      %finish
6209 @ 56082:               LINE   1294 "regression-compile-tmp/chimp.imp"
6210 @ 56118:               LOCATE L_0006

  1295    %finish %else d_text = 0
6211 @ 56121:               LINE   1295 "regression-compile-tmp/chimp.imp"
6212 @ 56157:               GOTO   L_0003
6213 @ 56160:               LOCATE L_0004
6214 @ 56163:               PUSH   D
6215 @ 56166:               SELECT 9
6216 @ 56169:               PUSHI  #0x00000000
6217 @ 56174:               ASSVAL
6218 @ 56175:               LOCATE L_0003

  1296    item = dlim;  ditem == dict(item)
6219 @ 56178:               LINE   1296 "regression-compile-tmp/chimp.imp"
6220 @ 56214:               PUSH   ITEM
6221 @ 56217:               PUSH   DLIM
6222 @ 56220:               ASSVAL
6223 @ 56221:               LINE   1296 "regression-compile-tmp/chimp.imp"
6224 @ 56257:               PUSH   DITEM
6225 @ 56260:               PUSH   DICT
6226 @ 56263:               PUSH   ITEM
6227 @ 56266:               ACCESS
6228 @ 56267:               ASSREF

  1297    ditem = d
6229 @ 56268:               LINE   1297 "regression-compile-tmp/chimp.imp"
6230 @ 56304:               PUSH   DITEM
6231 @ 56307:               PUSH   D
6232 @ 56310:               ASSVAL

  1298    dlim = dlim+1;  croak("Too many identifiers") %if dlim >= dmin
6233 @ 56311:               LINE   1298 "regression-compile-tmp/chimp.imp"
6234 @ 56347:               PUSH   DLIM
6235 @ 56350:               PUSH   DLIM
6236 @ 56353:               PUSHI  #0x00000001
6237 @ 56358:               ADD   
6238 @ 56359:               ASSVAL
6239 @ 56360:               LINE   1298 "regression-compile-tmp/chimp.imp"
6240 @ 56396:               PUSH   DLIM
6241 @ 56399:               PUSH   DMIN
6242 @ 56402:               JUMPIF < L_0004
6243 @ 56406:               PUSH   CROAK
6244 @ 56409:               PUSHS  "Too many identifiers"
6245 @ 56431:               ASSPAR
6246 @ 56432:               CALL  
6247 @ 56433:               LOCATE L_0004

  1299  %end;  !DECLARE
  1300  
6248 @ 56436:               LINE   1299 "regression-compile-tmp/chimp.imp"
6249 @ 56472:            END    _ECCECI_DECLARE {lev=2 --> 1}

  1301  %routine DECLARE ANON
6250 @ 56473:            LINE   1301 "regression-compile-tmp/chimp.imp"
6251 @ 56509:            DEF    DECLAREANON (_ECCECI_DECLAREANON) p1=V_00fd 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
6252 @ 56532:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
6253 @ 56533:               FINISH ) {lev=2}

  1302    d_text = 0;  d_link = 0
6254 @ 56534:               LINE   1302 "regression-compile-tmp/chimp.imp"
6255 @ 56570:               PUSH   D
6256 @ 56573:               SELECT 9
6257 @ 56576:               PUSHI  #0x00000000
6258 @ 56581:               ASSVAL
6259 @ 56582:               LINE   1302 "regression-compile-tmp/chimp.imp"
6260 @ 56618:               PUSH   D
6261 @ 56621:               SELECT 10
6262 @ 56624:               PUSHI  #0x00000000
6263 @ 56629:               ASSVAL

  1303    dict(dlim) = d
6264 @ 56630:               LINE   1303 "regression-compile-tmp/chimp.imp"
6265 @ 56666:               PUSH   DICT
6266 @ 56669:               PUSH   DLIM
6267 @ 56672:               ACCESS
6268 @ 56673:               PUSH   D
6269 @ 56676:               ASSVAL

  1304    dlim = dlim+1;  croak("Too many identifiers") %if dlim >= dmin
6270 @ 56677:               LINE   1304 "regression-compile-tmp/chimp.imp"
6271 @ 56713:               PUSH   DLIM
6272 @ 56716:               PUSH   DLIM
6273 @ 56719:               PUSHI  #0x00000001
6274 @ 56724:               ADD   
6275 @ 56725:               ASSVAL
6276 @ 56726:               LINE   1304 "regression-compile-tmp/chimp.imp"
6277 @ 56762:               PUSH   DLIM
6278 @ 56765:               PUSH   DMIN
6279 @ 56768:               JUMPIF < L_0004
6280 @ 56772:               PUSH   CROAK
6281 @ 56775:               PUSHS  "Too many identifiers"
6282 @ 56797:               ASSPAR
6283 @ 56798:               CALL  
6284 @ 56799:               LOCATE L_0004

  1305  %end
  1306  
6285 @ 56802:               LINE   1305 "regression-compile-tmp/chimp.imp"
6286 @ 56838:            END    _ECCECI_DECLAREANON {lev=2 --> 1}

  1307  %owninteger jammy
6287 @ 56839:            LINE   1307 "regression-compile-tmp/chimp.imp"
6288 @ 56875:            DEF    JAMMY p1=V_00fe a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
6289 @ 56892:            INIT   1

  1308  %predicate A ASSOP
6290 @ 56895:            LINE   1308 "regression-compile-tmp/chimp.imp"
6291 @ 56931:            DEF    AASSOP (_ECCECI_AASSOP) p1=V_00ff a/tf=a b/format=0 c/ostate=0  type=0 (<type:0>) form=10 (predicate) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
6292 @ 56949:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
6293 @ 56950:               FINISH ) {lev=2}

  1309    atom = next atom %if matched # 0
6294 @ 56951:               LINE   1309 "regression-compile-tmp/chimp.imp"
6295 @ 56987:               PUSH   MATCHED
6296 @ 56990:               PUSHI  #0x00000000
6297 @ 56995:               JUMPIF = L_0004
6298 @ 56999:               PUSH   ATOM
6299 @ 57002:               PUSH   NEXTATOM
6300 @ 57005:               CALL  
6301 @ 57006:               ASSVAL
6302 @ 57007:               LOCATE L_0004

  1310    %if atom # equals %and atom # eqeq %start
6303 @ 57010:               LINE   1310 "regression-compile-tmp/chimp.imp"
6304 @ 57046:               PUSH   ATOM
6305 @ 57049:               PUSHI  #0x00000046
6306 @ 57054:               JUMPIF = L_0004
6307 @ 57058:               PUSH   ATOM
6308 @ 57061:               PUSHI  #0x0000004c
6309 @ 57066:               JUMPIF = L_0004

  1311      %false %unless atom = less %and byteinteger(fp) = '-'
6310 @ 57070:               LINE   1311 "regression-compile-tmp/chimp.imp"
6311 @ 57106:               PUSH   ATOM
6312 @ 57109:               PUSHI  #0x00000049
6313 @ 57114:               JUMPIF # L_0008
6314 @ 57118:               PUSH   BYTEINTEGER
6315 @ 57121:               PUSH   FP
6316 @ 57124:               ASSPAR
6317 @ 57125:               CALL  
6318 @ 57126:               PUSHI  #0x0000002d
6319 @ 57131:               JUMPIF = L_0007
6320 @ 57135:               LOCATE L_0008
6321 @ 57138:               FALSE 
6322 @ 57139:               LOCATE L_0007

  1312      jammy = 2;  fp = fp+1
6323 @ 57142:               LINE   1312 "regression-compile-tmp/chimp.imp"
6324 @ 57178:               PUSH   JAMMY
6325 @ 57181:               PUSHI  #0x00000002
6326 @ 57186:               ASSVAL
6327 @ 57187:               LINE   1312 "regression-compile-tmp/chimp.imp"
6328 @ 57223:               PUSH   FP
6329 @ 57226:               PUSH   FP
6330 @ 57229:               PUSHI  #0x00000001
6331 @ 57234:               ADD   
6332 @ 57235:               ASSVAL

  1313    %finish %else jammy = 0
6333 @ 57236:               LINE   1313 "regression-compile-tmp/chimp.imp"
6334 @ 57272:               GOTO   L_0003
6335 @ 57275:               LOCATE L_0004
6336 @ 57278:               PUSH   JAMMY
6337 @ 57281:               PUSHI  #0x00000000
6338 @ 57286:               ASSVAL
6339 @ 57287:               LOCATE L_0003

  1314    matched = 1
6340 @ 57290:               LINE   1314 "regression-compile-tmp/chimp.imp"
6341 @ 57326:               PUSH   MATCHED
6342 @ 57329:               PUSHI  #0x00000001
6343 @ 57334:               ASSVAL

  1315    %true
6344 @ 57335:               LINE   1315 "regression-compile-tmp/chimp.imp"
6345 @ 57371:               TRUE  

  1316  %end
  1317  
  1318  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1319  !!!!!!!!!!!!!!!!!!!!  Expressions  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1320  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1321  
6346 @ 57372:               LINE   1316 "regression-compile-tmp/chimp.imp"
6347 @ 57408:            END    _ECCECI_AASSOP {lev=2 --> 1}

  1322  %owninteger literal=0
6348 @ 57409:            LINE   1322 "regression-compile-tmp/chimp.imp"
6349 @ 57445:            PUSHI  #0x00000000
6350 @ 57450:            DEF    LITERAL p1=V_0100 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
6351 @ 57469:            INIT   1

  1323  %routinespec get EXPRESSION(%integer rank,control)
  1324  
6352 @ 57472:            LINE   1323 "regression-compile-tmp/chimp.imp"
6353 @ 57508:            DEF    GETEXPRESSION (_ECCECI_GETEXPRESSION) p1=V_0101 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
6354 @ 57533:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
6355 @ 57534:               DEF    RANK p1=V_0102 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
6356 @ 57550:               DEF    CONTROL p1=V_0103 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
6357 @ 57569:            FINISH ) {lev=1}

  1325  %integerfn COMPAT(%integer control)
6358 @ 57570:            LINE   1325 "regression-compile-tmp/chimp.imp"
6359 @ 57606:            DEF    COMPAT (_ECCECI_COMPAT) p1=V_0102 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
6360 @ 57624:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
6361 @ 57625:                  DEF    CONTROL p1=V_0103 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
6362 @ 57644:               FINISH ) {lev=2}

  1326    %if t_type = inty %start
6363 @ 57645:               LINE   1326 "regression-compile-tmp/chimp.imp"
6364 @ 57681:               PUSH   T
6365 @ 57684:               SELECT 2
6366 @ 57687:               PUSHI  #0x000007fe
6367 @ 57692:               JUMPIF # L_0004

  1327      %if control&intok = 0 %and control&realok # 0 %start
6368 @ 57696:               LINE   1327 "regression-compile-tmp/chimp.imp"
6369 @ 57732:               PUSH   CONTROL
6370 @ 57735:               PUSHI  #0x00000010
6371 @ 57740:               AND   
6372 @ 57741:               PUSHI  #0x00000000
6373 @ 57746:               JUMPIF # L_0007
6374 @ 57750:               PUSH   CONTROL
6375 @ 57753:               PUSHI  #0x00000008
6376 @ 57758:               AND   
6377 @ 57759:               PUSHI  #0x00000000
6378 @ 57764:               JUMPIF = L_0007

  1328        item = floated(item)
6379 @ 57768:               LINE   1328 "regression-compile-tmp/chimp.imp"
6380 @ 57804:               PUSH   ITEM
6381 @ 57807:               PUSH   FLOATED
6382 @ 57810:               PUSH   ITEM
6383 @ 57813:               ASSPAR
6384 @ 57814:               CALL  
6385 @ 57815:               ASSVAL

  1329        t_type = realy
6386 @ 57816:               LINE   1329 "regression-compile-tmp/chimp.imp"
6387 @ 57852:               PUSH   T
6388 @ 57855:               SELECT 2
6389 @ 57858:               PUSHI  #0x000007fd
6390 @ 57863:               ASSVAL

  1330      %finish
6391 @ 57864:               LINE   1330 "regression-compile-tmp/chimp.imp"
6392 @ 57900:               LOCATE L_0007

  1331      %result = control&(intok+realok)
6393 @ 57903:               LINE   1331 "regression-compile-tmp/chimp.imp"
6394 @ 57939:               PUSH   CONTROL
6395 @ 57942:               PUSHI  #0x00000010
6396 @ 57947:               PUSHI  #0x00000008
6397 @ 57952:               ADD   
6398 @ 57953:               AND   
6399 @ 57954:               RESULT

  1332    %finish
6400 @ 57955:               LINE   1332 "regression-compile-tmp/chimp.imp"
6401 @ 57991:               LOCATE L_0004

  1333    %result = control&(boolok>>(booltype-t_type)) %if t_type <= booltype
6402 @ 57994:               LINE   1333 "regression-compile-tmp/chimp.imp"
6403 @ 58030:               PUSH   T
6404 @ 58033:               SELECT 2
6405 @ 58036:               PUSHI  #0x00000800
6406 @ 58041:               JUMPIF > L_0004
6407 @ 58045:               PUSH   CONTROL
6408 @ 58048:               PUSHI  #0x00000040
6409 @ 58053:               PUSHI  #0x00000800
6410 @ 58058:               PUSH   T
6411 @ 58061:               SELECT 2
6412 @ 58064:               SUB   
6413 @ 58065:               RSH   
6414 @ 58066:               AND   
6415 @ 58067:               RESULT
6416 @ 58068:               LOCATE L_0004

  1334    %result = control&enumok %if t_type < direct
6417 @ 58071:               LINE   1334 "regression-compile-tmp/chimp.imp"
6418 @ 58107:               PUSH   T
6419 @ 58110:               SELECT 2
6420 @ 58113:               PUSHI  #0x00002000
6421 @ 58118:               JUMPIF >= L_0004
6422 @ 58122:               PUSH   CONTROL
6423 @ 58125:               PUSHI  #0x00000080
6424 @ 58130:               AND   
6425 @ 58131:               RESULT
6426 @ 58132:               LOCATE L_0004

  1335    %result = control&arrok
6427 @ 58135:               LINE   1335 "regression-compile-tmp/chimp.imp"
6428 @ 58171:               PUSH   CONTROL
6429 @ 58174:               PUSHI  #0x00000002
6430 @ 58179:               AND   
6431 @ 58180:               RESULT

  1336  %end
  1337  !
6432 @ 58181:               LINE   1336 "regression-compile-tmp/chimp.imp"
6433 @ 58217:            END    _ECCECI_COMPAT {lev=2 --> 1}

  1338  %integerfn LISTMATCH(%integer alist,blist)
6434 @ 58218:            LINE   1338 "regression-compile-tmp/chimp.imp"
6435 @ 58254:            DEF    LISTMATCH (_ECCECI_LISTMATCH) p1=V_0103 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
6436 @ 58275:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
6437 @ 58276:                  DEF    ALIST p1=V_0104 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
6438 @ 58293:                  DEF    BLIST p1=V_0105 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
6439 @ 58310:               FINISH ) {lev=2}

  1339  %record(identinfo)%name ap,bp
6440 @ 58311:               LINE   1339 "regression-compile-tmp/chimp.imp"
6441 @ 58347:               DEF    AP p1=V_0106 a/tf=42 b/format=9a c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
6442 @ 58361:               DEF    BP p1=V_0107 a/tf=42 b/format=9a c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  1340    %result = 1 %if alist = blist
6443 @ 58375:               LINE   1340 "regression-compile-tmp/chimp.imp"
6444 @ 58411:               PUSH   ALIST
6445 @ 58414:               PUSH   BLIST
6446 @ 58417:               JUMPIF # L_0004
6447 @ 58421:               PUSHI  #0x00000001
6448 @ 58426:               RESULT
6449 @ 58427:               LOCATE L_0004

  1341    %result = 0 %if alist < dictmin %or blist < dictmin
6450 @ 58430:               LINE   1341 "regression-compile-tmp/chimp.imp"
6451 @ 58466:               PUSH   ALIST
6452 @ 58469:               PUSHI  #0x000007f9
6453 @ 58474:               JUMPIF < L_0005
6454 @ 58478:               PUSH   BLIST
6455 @ 58481:               PUSHI  #0x000007f9
6456 @ 58486:               JUMPIF >= L_0004
6457 @ 58490:               LOCATE L_0005
6458 @ 58493:               PUSHI  #0x00000000
6459 @ 58498:               RESULT
6460 @ 58499:               LOCATE L_0004

  1342    %cycle
6461 @ 58502:               LINE   1342 "regression-compile-tmp/chimp.imp"
6462 @ 58538:               LOCATE L_0003

  1343      ap == dict(alist);  bp == dict(blist)
6463 @ 58541:               LINE   1343 "regression-compile-tmp/chimp.imp"
6464 @ 58577:               PUSH   AP
6465 @ 58580:               PUSH   DICT
6466 @ 58583:               PUSH   ALIST
6467 @ 58586:               ACCESS
6468 @ 58587:               ASSREF
6469 @ 58588:               LINE   1343 "regression-compile-tmp/chimp.imp"
6470 @ 58624:               PUSH   BP
6471 @ 58627:               PUSH   DICT
6472 @ 58630:               PUSH   BLIST
6473 @ 58633:               ACCESS
6474 @ 58634:               ASSREF

  1344      %result = 0 %if ap_type # bp_type;  !for now
6475 @ 58635:               LINE   1344 "regression-compile-tmp/chimp.imp"
6476 @ 58671:               PUSH   AP
6477 @ 58674:               SELECT 2
6478 @ 58677:               PUSH   BP
6479 @ 58680:               SELECT 2
6480 @ 58683:               JUMPIF = L_0007
6481 @ 58687:               PUSHI  #0x00000000
6482 @ 58692:               RESULT
6483 @ 58693:               LOCATE L_0007

  1345      alist = alist+1;  blist = blist+1
6484 @ 58696:               LINE   1345 "regression-compile-tmp/chimp.imp"
6485 @ 58732:               PUSH   ALIST
6486 @ 58735:               PUSH   ALIST
6487 @ 58738:               PUSHI  #0x00000001
6488 @ 58743:               ADD   
6489 @ 58744:               ASSVAL
6490 @ 58745:               LINE   1345 "regression-compile-tmp/chimp.imp"
6491 @ 58781:               PUSH   BLIST
6492 @ 58784:               PUSH   BLIST
6493 @ 58787:               PUSHI  #0x00000001
6494 @ 58792:               ADD   
6495 @ 58793:               ASSVAL

  1346    %repeat %until ap_flags&bp_flags&more = 0
6496 @ 58794:               LINE   1346 "regression-compile-tmp/chimp.imp"
6497 @ 58830:               PUSH   AP
6498 @ 58833:               SELECT 1
6499 @ 58836:               PUSH   BP
6500 @ 58839:               SELECT 1
6501 @ 58842:               AND   
6502 @ 58843:               PUSHI  #0x00000080
6503 @ 58848:               AND   
6504 @ 58849:               PUSHI  #0x00000000
6505 @ 58854:               JUMPIF = L_0004
6506 @ 58858:               REPEAT L_0003
6507 @ 58861:               LOCATE L_0004

  1347    %result = 0 %if ap_flags&more # 0 %or bp_flags&more # 0;  !for now
6508 @ 58864:               LINE   1347 "regression-compile-tmp/chimp.imp"
6509 @ 58900:               PUSH   AP
6510 @ 58903:               SELECT 1
6511 @ 58906:               PUSHI  #0x00000080
6512 @ 58911:               AND   
6513 @ 58912:               PUSHI  #0x00000000
6514 @ 58917:               JUMPIF # L_0005
6515 @ 58921:               PUSH   BP
6516 @ 58924:               SELECT 1
6517 @ 58927:               PUSHI  #0x00000080
6518 @ 58932:               AND   
6519 @ 58933:               PUSHI  #0x00000000
6520 @ 58938:               JUMPIF = L_0004
6521 @ 58942:               LOCATE L_0005
6522 @ 58945:               PUSHI  #0x00000000
6523 @ 58950:               RESULT
6524 @ 58951:               LOCATE L_0004

  1348    %result = 1
6525 @ 58954:               LINE   1348 "regression-compile-tmp/chimp.imp"
6526 @ 58990:               PUSHI  #0x00000001
6527 @ 58995:               RESULT

  1349  %end
  1350  !
6528 @ 58996:               LINE   1349 "regression-compile-tmp/chimp.imp"
6529 @ 59032:            END    _ECCECI_LISTMATCH {lev=2 --> 1}

  1351  %routine GET REFERENCE(%integer reftype)
6530 @ 59033:            LINE   1351 "regression-compile-tmp/chimp.imp"
6531 @ 59069:            DEF    GETREFERENCE (_ECCECI_GETREFERENCE) p1=V_0104 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
6532 @ 59093:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
6533 @ 59094:                  DEF    REFTYPE p1=V_0105 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
6534 @ 59113:               FINISH ) {lev=2}

  1352  %integer type,temp
6535 @ 59114:               LINE   1352 "regression-compile-tmp/chimp.imp"
6536 @ 59150:               DEF    TYPE p1=V_0106 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
6537 @ 59166:               DEF    TEMP p1=V_0107 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  1353    get EXPRESSION(simple,refonly+any)
6538 @ 59182:               LINE   1353 "regression-compile-tmp/chimp.imp"
6539 @ 59218:               PUSH   GETEXPRESSION
6540 @ 59221:               PUSHI  #0x00000068
6541 @ 59226:               ASSPAR
6542 @ 59227:               PUSHI  #0x00000400
6543 @ 59232:               PUSHI  #0x000000ff
6544 @ 59237:               ADD   
6545 @ 59238:               ASSPAR
6546 @ 59239:               CALL  

  1354    type = ditem_type&puretype;  reftype = reftype&puretype
6547 @ 59240:               LINE   1354 "regression-compile-tmp/chimp.imp"
6548 @ 59276:               PUSH   TYPE
6549 @ 59279:               PUSH   DITEM
6550 @ 59282:               SELECT 2
6551 @ 59285:               PUSHI  #0x00001fff
6552 @ 59290:               AND   
6553 @ 59291:               ASSVAL
6554 @ 59292:               LINE   1354 "regression-compile-tmp/chimp.imp"
6555 @ 59328:               PUSH   REFTYPE
6556 @ 59331:               PUSH   REFTYPE
6557 @ 59334:               PUSHI  #0x00001fff
6558 @ 59339:               AND   
6559 @ 59340:               ASSVAL

  1355    %return %if reftype = type
6560 @ 59341:               LINE   1355 "regression-compile-tmp/chimp.imp"
6561 @ 59377:               PUSH   REFTYPE
6562 @ 59380:               PUSH   TYPE
6563 @ 59383:               JUMPIF # L_0004
6564 @ 59387:               RETURN
6565 @ 59388:               LOCATE L_0004

  1356    %if type < reftype %start
6566 @ 59391:               LINE   1356 "regression-compile-tmp/chimp.imp"
6567 @ 59427:               PUSH   TYPE
6568 @ 59430:               PUSH   REFTYPE
6569 @ 59433:               JUMPIF >= L_0004

  1357      temp = type;  type = reftype;  reftype = temp
6570 @ 59437:               LINE   1357 "regression-compile-tmp/chimp.imp"
6571 @ 59473:               PUSH   TEMP
6572 @ 59476:               PUSH   TYPE
6573 @ 59479:               ASSVAL
6574 @ 59480:               LINE   1357 "regression-compile-tmp/chimp.imp"
6575 @ 59516:               PUSH   TYPE
6576 @ 59519:               PUSH   REFTYPE
6577 @ 59522:               ASSVAL
6578 @ 59523:               LINE   1357 "regression-compile-tmp/chimp.imp"
6579 @ 59559:               PUSH   REFTYPE
6580 @ 59562:               PUSH   TEMP
6581 @ 59565:               ASSVAL

  1358    %finish
6582 @ 59566:               LINE   1358 "regression-compile-tmp/chimp.imp"
6583 @ 59602:               LOCATE L_0004

  1359    %return %if reftype = nulltype;  !untyped %name
6584 @ 59605:               LINE   1359 "regression-compile-tmp/chimp.imp"
6585 @ 59641:               PUSH   REFTYPE
6586 @ 59644:               PUSHI  #0x000007f9
6587 @ 59649:               JUMPIF # L_0004
6588 @ 59653:               RETURN
6589 @ 59654:               LOCATE L_0004

  1360    type = dict(type)_type
6590 @ 59657:               LINE   1360 "regression-compile-tmp/chimp.imp"
6591 @ 59693:               PUSH   TYPE
6592 @ 59696:               PUSH   DICT
6593 @ 59699:               PUSH   TYPE
6594 @ 59702:               ACCESS
6595 @ 59703:               SELECT 2
6596 @ 59706:               ASSVAL

  1361    %return %if type <= inty %and type = reftype
6597 @ 59707:               LINE   1361 "regression-compile-tmp/chimp.imp"
6598 @ 59743:               PUSH   TYPE
6599 @ 59746:               PUSHI  #0x000007fe
6600 @ 59751:               JUMPIF > L_0004
6601 @ 59755:               PUSH   TYPE
6602 @ 59758:               PUSH   REFTYPE
6603 @ 59761:               JUMPIF # L_0004
6604 @ 59765:               RETURN
6605 @ 59766:               LOCATE L_0004

  1362    %return %if type >= direct %and type = dict(reftype)_type;  !aname
6606 @ 59769:               LINE   1362 "regression-compile-tmp/chimp.imp"
6607 @ 59805:               PUSH   TYPE
6608 @ 59808:               PUSHI  #0x00002000
6609 @ 59813:               JUMPIF < L_0004
6610 @ 59817:               PUSH   TYPE
6611 @ 59820:               PUSH   DICT
6612 @ 59823:               PUSH   REFTYPE
6613 @ 59826:               ACCESS
6614 @ 59827:               SELECT 2
6615 @ 59830:               JUMPIF # L_0004
6616 @ 59834:               RETURN
6617 @ 59835:               LOCATE L_0004

  1363    expfault(typerr+point)
6618 @ 59838:               LINE   1363 "regression-compile-tmp/chimp.imp"
6619 @ 59874:               PUSH   EXPFAULT
6620 @ 59877:               PUSHI  #0x00000006
6621 @ 59882:               PUSHI  #0x00000040
6622 @ 59887:               ADD   
6623 @ 59888:               ASSPAR
6624 @ 59889:               CALL  

  1364  %end
  1365  !
6625 @ 59890:               LINE   1364 "regression-compile-tmp/chimp.imp"
6626 @ 59926:            END    _ECCECI_GETREFERENCE {lev=2 --> 1}

  1366  %routine GET VALUE(%integer valtype)
6627 @ 59927:            LINE   1366 "regression-compile-tmp/chimp.imp"
6628 @ 59963:            DEF    GETVALUE (_ECCECI_GETVALUE) p1=V_0105 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
6629 @ 59983:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
6630 @ 59984:                  DEF    VALTYPE p1=V_0106 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
6631 @ 60003:               FINISH ) {lev=2}

  1367  %record(identinfo)%name dp,p
6632 @ 60004:               LINE   1367 "regression-compile-tmp/chimp.imp"
6633 @ 60040:               DEF    DP p1=V_0107 a/tf=42 b/format=9a c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
6634 @ 60054:               DEF    P p1=V_0108 a/tf=42 b/format=9a c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  1368    get EXPRESSION(major,any)
6635 @ 60067:               LINE   1368 "regression-compile-tmp/chimp.imp"
6636 @ 60103:               PUSH   GETEXPRESSION
6637 @ 60106:               PUSHI  #0x00000050
6638 @ 60111:               ASSPAR
6639 @ 60112:               PUSHI  #0x000000ff
6640 @ 60117:               ASSPAR
6641 @ 60118:               CALL  

  1369    valtype = valtype&puretype
6642 @ 60119:               LINE   1369 "regression-compile-tmp/chimp.imp"
6643 @ 60155:               PUSH   VALTYPE
6644 @ 60158:               PUSH   VALTYPE
6645 @ 60161:               PUSHI  #0x00001fff
6646 @ 60166:               AND   
6647 @ 60167:               ASSVAL

  1370    dp == dict(valtype)
6648 @ 60168:               LINE   1370 "regression-compile-tmp/chimp.imp"
6649 @ 60204:               PUSH   DP
6650 @ 60207:               PUSH   DICT
6651 @ 60210:               PUSH   VALTYPE
6652 @ 60213:               ACCESS
6653 @ 60214:               ASSREF

  1371    %if t_type # dp_type %start;  !base types differ
6654 @ 60215:               LINE   1371 "regression-compile-tmp/chimp.imp"
6655 @ 60251:               PUSH   T
6656 @ 60254:               SELECT 2
6657 @ 60257:               PUSH   DP
6658 @ 60260:               SELECT 2
6659 @ 60263:               JUMPIF = L_0004

  1372      %return %if item = 0 = t_val;  !zero
6660 @ 60267:               LINE   1372 "regression-compile-tmp/chimp.imp"
6661 @ 60303:               PUSH   ITEM
6662 @ 60306:               PUSHI  #0x00000000
6663 @ 60311:               JUMPIFD # L_0007
6664 @ 60315:               PUSH   T
6665 @ 60318:               SELECT 7
6666 @ 60321:               JUMPIF # L_0007
6667 @ 60325:               RETURN
6668 @ 60326:               LOCATE L_0007

  1373      %if dp_type = realy %and t_type = inty %start
  1374        !float
6669 @ 60329:               LINE   1373 "regression-compile-tmp/chimp.imp"
6670 @ 60365:               PUSH   DP
6671 @ 60368:               SELECT 2
6672 @ 60371:               PUSHI  #0x000007fd
6673 @ 60376:               JUMPIF # L_0007
6674 @ 60380:               PUSH   T
6675 @ 60383:               SELECT 2
6676 @ 60386:               PUSHI  #0x000007fe
6677 @ 60391:               JUMPIF # L_0007

  1375        t_type = realy
6678 @ 60395:               LINE   1375 "regression-compile-tmp/chimp.imp"
6679 @ 60431:               PUSH   T
6680 @ 60434:               SELECT 2
6681 @ 60437:               PUSHI  #0x000007fd
6682 @ 60442:               ASSVAL

  1376        %return
6683 @ 60443:               LINE   1376 "regression-compile-tmp/chimp.imp"
6684 @ 60479:               RETURN

  1377      %finish
6685 @ 60480:               LINE   1377 "regression-compile-tmp/chimp.imp"
6686 @ 60516:               LOCATE L_0007

  1378    %else %if t_type >= inty;  !scalar
6687 @ 60519:               LINE   1378 "regression-compile-tmp/chimp.imp"
6688 @ 60555:               GOTO   L_0003
6689 @ 60558:               LOCATE L_0004
6690 @ 60561:               PUSH   T
6691 @ 60564:               SELECT 2
6692 @ 60567:               PUSHI  #0x000007fe
6693 @ 60572:               JUMPIF < L_0004

  1379      %if item = 0 %start
6694 @ 60576:               LINE   1379 "regression-compile-tmp/chimp.imp"
6695 @ 60612:               PUSH   ITEM
6696 @ 60615:               PUSHI  #0x00000000
6697 @ 60620:               JUMPIF # L_0007

  1380        %return %if dp_low <= t_val <= dp_val
6698 @ 60624:               LINE   1380 "regression-compile-tmp/chimp.imp"
6699 @ 60660:               PUSH   DP
6700 @ 60663:               SELECT 6
6701 @ 60666:               PUSH   T
6702 @ 60669:               SELECT 7
6703 @ 60672:               JUMPIFD > L_000a
6704 @ 60676:               PUSH   DP
6705 @ 60679:               SELECT 7
6706 @ 60682:               JUMPIF > L_000a
6707 @ 60686:               RETURN
6708 @ 60687:               LOCATE L_000a

  1381        jammy = jammy!1 %if jammy >= 0
6709 @ 60690:               LINE   1381 "regression-compile-tmp/chimp.imp"
6710 @ 60726:               PUSH   JAMMY
6711 @ 60729:               PUSHI  #0x00000000
6712 @ 60734:               JUMPIF < L_000a
6713 @ 60738:               PUSH   JAMMY
6714 @ 60741:               PUSH   JAMMY
6715 @ 60744:               PUSHI  #0x00000001
6716 @ 60749:               OR    
6717 @ 60750:               ASSVAL
6718 @ 60751:               LOCATE L_000a

  1382      %finish %else %start
6719 @ 60754:               LINE   1382 "regression-compile-tmp/chimp.imp"
6720 @ 60790:               GOTO   L_0006
6721 @ 60793:               LOCATE L_0007

  1383        %if t_low >= dp_low %start
6722 @ 60796:               LINE   1383 "regression-compile-tmp/chimp.imp"
6723 @ 60832:               PUSH   T
6724 @ 60835:               SELECT 6
6725 @ 60838:               PUSH   DP
6726 @ 60841:               SELECT 6
6727 @ 60844:               JUMPIF < L_000a

  1384          %return %if t_val <= dp_val
6728 @ 60848:               LINE   1384 "regression-compile-tmp/chimp.imp"
6729 @ 60884:               PUSH   T
6730 @ 60887:               SELECT 7
6731 @ 60890:               PUSH   DP
6732 @ 60893:               SELECT 7
6733 @ 60896:               JUMPIF > L_000d
6734 @ 60900:               RETURN
6735 @ 60901:               LOCATE L_000d

  1385          jammy = jammy!1 %if jammy >= 0
6736 @ 60904:               LINE   1385 "regression-compile-tmp/chimp.imp"
6737 @ 60940:               PUSH   JAMMY
6738 @ 60943:               PUSHI  #0x00000000
6739 @ 60948:               JUMPIF < L_000d
6740 @ 60952:               PUSH   JAMMY
6741 @ 60955:               PUSH   JAMMY
6742 @ 60958:               PUSHI  #0x00000001
6743 @ 60963:               OR    
6744 @ 60964:               ASSVAL
6745 @ 60965:               LOCATE L_000d

  1386          %return %if t_low <= dp_val
6746 @ 60968:               LINE   1386 "regression-compile-tmp/chimp.imp"
6747 @ 61004:               PUSH   T
6748 @ 61007:               SELECT 6
6749 @ 61010:               PUSH   DP
6750 @ 61013:               SELECT 7
6751 @ 61016:               JUMPIF > L_000d
6752 @ 61020:               RETURN
6753 @ 61021:               LOCATE L_000d

  1387        %finish %else %start
6754 @ 61024:               LINE   1387 "regression-compile-tmp/chimp.imp"
6755 @ 61060:               GOTO   L_0009
6756 @ 61063:               LOCATE L_000a

  1388          jammy = jammy!1 %if jammy >= 0
6757 @ 61066:               LINE   1388 "regression-compile-tmp/chimp.imp"
6758 @ 61102:               PUSH   JAMMY
6759 @ 61105:               PUSHI  #0x00000000
6760 @ 61110:               JUMPIF < L_000d
6761 @ 61114:               PUSH   JAMMY
6762 @ 61117:               PUSH   JAMMY
6763 @ 61120:               PUSHI  #0x00000001
6764 @ 61125:               OR    
6765 @ 61126:               ASSVAL
6766 @ 61127:               LOCATE L_000d

  1389          %return %if t_val >= dp_low
6767 @ 61130:               LINE   1389 "regression-compile-tmp/chimp.imp"
6768 @ 61166:               PUSH   T
6769 @ 61169:               SELECT 7
6770 @ 61172:               PUSH   DP
6771 @ 61175:               SELECT 6
6772 @ 61178:               JUMPIF < L_000d
6773 @ 61182:               RETURN
6774 @ 61183:               LOCATE L_000d

  1390        %finish
6775 @ 61186:               LINE   1390 "regression-compile-tmp/chimp.imp"
6776 @ 61222:               LOCATE L_0009

  1391      %finish
6777 @ 61225:               LINE   1391 "regression-compile-tmp/chimp.imp"
6778 @ 61261:               LOCATE L_0006

  1392      expfault(rangerr+point) %if jammy < 2
6779 @ 61264:               LINE   1392 "regression-compile-tmp/chimp.imp"
6780 @ 61300:               PUSH   JAMMY
6781 @ 61303:               PUSHI  #0x00000002
6782 @ 61308:               JUMPIF >= L_0007
6783 @ 61312:               PUSH   EXPFAULT
6784 @ 61315:               PUSHI  #0x0000000c
6785 @ 61320:               PUSHI  #0x00000040
6786 @ 61325:               ADD   
6787 @ 61326:               ASSPAR
6788 @ 61327:               CALL  
6789 @ 61328:               LOCATE L_0007

  1393      %return
6790 @ 61331:               LINE   1393 "regression-compile-tmp/chimp.imp"
6791 @ 61367:               RETURN

  1394    %else %if t_type = stringy
6792 @ 61368:               LINE   1394 "regression-compile-tmp/chimp.imp"
6793 @ 61404:               LOCATE L_0004
6794 @ 61407:               PUSH   T
6795 @ 61410:               SELECT 2
6796 @ 61413:               PUSHI  #0x000007fc
6797 @ 61418:               JUMPIF # L_0004

  1395      %if t_val > dp_val %start;  !VALUE = LENGTH*
6798 @ 61422:               LINE   1395 "regression-compile-tmp/chimp.imp"
6799 @ 61458:               PUSH   T
6800 @ 61461:               SELECT 7
6801 @ 61464:               PUSH   DP
6802 @ 61467:               SELECT 7
6803 @ 61470:               JUMPIF <= L_0007

  1396        jammy = jammy!1 %if jammy >= 0
6804 @ 61474:               LINE   1396 "regression-compile-tmp/chimp.imp"
6805 @ 61510:               PUSH   JAMMY
6806 @ 61513:               PUSHI  #0x00000000
6807 @ 61518:               JUMPIF < L_000a
6808 @ 61522:               PUSH   JAMMY
6809 @ 61525:               PUSH   JAMMY
6810 @ 61528:               PUSHI  #0x00000001
6811 @ 61533:               OR    
6812 @ 61534:               ASSVAL
6813 @ 61535:               LOCATE L_000a

  1397        expfault(rangerr+point) %if item = 0 %and jammy < 2
6814 @ 61538:               LINE   1397 "regression-compile-tmp/chimp.imp"
6815 @ 61574:               PUSH   ITEM
6816 @ 61577:               PUSHI  #0x00000000
6817 @ 61582:               JUMPIF # L_000a
6818 @ 61586:               PUSH   JAMMY
6819 @ 61589:               PUSHI  #0x00000002
6820 @ 61594:               JUMPIF >= L_000a
6821 @ 61598:               PUSH   EXPFAULT
6822 @ 61601:               PUSHI  #0x0000000c
6823 @ 61606:               PUSHI  #0x00000040
6824 @ 61611:               ADD   
6825 @ 61612:               ASSPAR
6826 @ 61613:               CALL  
6827 @ 61614:               LOCATE L_000a

  1398      %finish
6828 @ 61617:               LINE   1398 "regression-compile-tmp/chimp.imp"
6829 @ 61653:               LOCATE L_0007

  1399      %return
6830 @ 61656:               LINE   1399 "regression-compile-tmp/chimp.imp"
6831 @ 61692:               RETURN

  1400    %else %if t_type = recy
6832 @ 61693:               LINE   1400 "regression-compile-tmp/chimp.imp"
6833 @ 61729:               LOCATE L_0004
6834 @ 61732:               PUSH   T
6835 @ 61735:               SELECT 2
6836 @ 61738:               PUSHI  #0x000007fa
6837 @ 61743:               JUMPIF # L_0004

  1401      %return %if t_extra = dp_extra
6838 @ 61747:               LINE   1401 "regression-compile-tmp/chimp.imp"
6839 @ 61783:               PUSH   T
6840 @ 61786:               SELECT 3
6841 @ 61789:               PUSH   DP
6842 @ 61792:               SELECT 3
6843 @ 61795:               JUMPIF # L_0007
6844 @ 61799:               RETURN
6845 @ 61800:               LOCATE L_0007

  1402      jammy = jammy!1 %and %return %if jammy >= 2
  1403      !partial assignment?
6846 @ 61803:               LINE   1402 "regression-compile-tmp/chimp.imp"
6847 @ 61839:               PUSH   JAMMY
6848 @ 61842:               PUSHI  #0x00000002
6849 @ 61847:               JUMPIF < L_0007
6850 @ 61851:               PUSH   JAMMY
6851 @ 61854:               PUSH   JAMMY
6852 @ 61857:               PUSHI  #0x00000001
6853 @ 61862:               OR    
6854 @ 61863:               ASSVAL
6855 @ 61864:               RETURN
6856 @ 61865:               LOCATE L_0007

  1404    %else %if t_type = realy
6857 @ 61868:               LINE   1404 "regression-compile-tmp/chimp.imp"
6858 @ 61904:               GOTO   L_0003
6859 @ 61907:               LOCATE L_0004
6860 @ 61910:               PUSH   T
6861 @ 61913:               SELECT 2
6862 @ 61916:               PUSHI  #0x000007fd
6863 @ 61921:               JUMPIF # L_0004

  1405      %return
6864 @ 61925:               LINE   1405 "regression-compile-tmp/chimp.imp"
6865 @ 61961:               RETURN

  1406    %finish
6866 @ 61962:               LINE   1406 "regression-compile-tmp/chimp.imp"
6867 @ 61998:               LOCATE L_0004
6868 @ 62001:               LOCATE L_0003

  1407    expfault(typerr+point)
6869 @ 62004:               LINE   1407 "regression-compile-tmp/chimp.imp"
6870 @ 62040:               PUSH   EXPFAULT
6871 @ 62043:               PUSHI  #0x00000006
6872 @ 62048:               PUSHI  #0x00000040
6873 @ 62053:               ADD   
6874 @ 62054:               ASSPAR
6875 @ 62055:               CALL  

  1408  %end;  !GET VALUE
  1409  !
6876 @ 62056:               LINE   1408 "regression-compile-tmp/chimp.imp"
6877 @ 62092:            END    _ECCECI_GETVALUE {lev=2 --> 1}

  1410  %routine GET LITERAL(%integer littype)
6878 @ 62093:            LINE   1410 "regression-compile-tmp/chimp.imp"
6879 @ 62129:            DEF    GETLITERAL (_ECCECI_GETLITERAL) p1=V_0106 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
6880 @ 62151:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
6881 @ 62152:                  DEF    LITTYPE p1=V_0107 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
6882 @ 62171:               FINISH ) {lev=2}

  1411    literal = literal+1
6883 @ 62172:               LINE   1411 "regression-compile-tmp/chimp.imp"
6884 @ 62208:               PUSH   LITERAL
6885 @ 62211:               PUSH   LITERAL
6886 @ 62214:               PUSHI  #0x00000001
6887 @ 62219:               ADD   
6888 @ 62220:               ASSVAL

  1412    get VALUE(littype)
6889 @ 62221:               LINE   1412 "regression-compile-tmp/chimp.imp"
6890 @ 62257:               PUSH   GETVALUE
6891 @ 62260:               PUSH   LITTYPE
6892 @ 62263:               ASSPAR
6893 @ 62264:               CALL  

  1413    literal = literal-1
6894 @ 62265:               LINE   1413 "regression-compile-tmp/chimp.imp"
6895 @ 62301:               PUSH   LITERAL
6896 @ 62304:               PUSH   LITERAL
6897 @ 62307:               PUSHI  #0x00000001
6898 @ 62312:               SUB   
6899 @ 62313:               ASSVAL

  1414  %end
  1415  !
6900 @ 62314:               LINE   1414 "regression-compile-tmp/chimp.imp"
6901 @ 62350:            END    _ECCECI_GETLITERAL {lev=2 --> 1}

  1416  %routine GET LITINT
6902 @ 62351:            LINE   1416 "regression-compile-tmp/chimp.imp"
6903 @ 62387:            DEF    GETLITINT (_ECCECI_GETLITINT) p1=V_0107 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
6904 @ 62408:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
6905 @ 62409:               FINISH ) {lev=2}

  1417    literal = literal+1
6906 @ 62410:               LINE   1417 "regression-compile-tmp/chimp.imp"
6907 @ 62446:               PUSH   LITERAL
6908 @ 62449:               PUSH   LITERAL
6909 @ 62452:               PUSHI  #0x00000001
6910 @ 62457:               ADD   
6911 @ 62458:               ASSVAL

  1418    get EXPRESSION(major,intok)
6912 @ 62459:               LINE   1418 "regression-compile-tmp/chimp.imp"
6913 @ 62495:               PUSH   GETEXPRESSION
6914 @ 62498:               PUSHI  #0x00000050
6915 @ 62503:               ASSPAR
6916 @ 62504:               PUSHI  #0x00000010
6917 @ 62509:               ASSPAR
6918 @ 62510:               CALL  

  1419    literal = literal-1
6919 @ 62511:               LINE   1419 "regression-compile-tmp/chimp.imp"
6920 @ 62547:               PUSH   LITERAL
6921 @ 62550:               PUSH   LITERAL
6922 @ 62553:               PUSHI  #0x00000001
6923 @ 62558:               SUB   
6924 @ 62559:               ASSVAL

  1420  %end
  1421  !
6925 @ 62560:               LINE   1420 "regression-compile-tmp/chimp.imp"
6926 @ 62596:            END    _ECCECI_GETLITINT {lev=2 --> 1}

  1422  %routine GET LITSTRING
6927 @ 62597:            LINE   1422 "regression-compile-tmp/chimp.imp"
6928 @ 62633:            DEF    GETLITSTRING (_ECCECI_GETLITSTRING) p1=V_0108 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
6929 @ 62657:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
6930 @ 62658:               FINISH ) {lev=2}

  1423  %integer holditem
  1424  !Must be quoted string (for %alias and %include)
6931 @ 62659:               LINE   1423 "regression-compile-tmp/chimp.imp"
6932 @ 62695:               DEF    HOLDITEM p1=V_0109 a/tf=11 b/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    holditem = item;  !preserve
6933 @ 62715:               LINE   1425 "regression-compile-tmp/chimp.imp"
6934 @ 62751:               PUSH   HOLDITEM
6935 @ 62754:               PUSH   ITEM
6936 @ 62757:               ASSVAL

  1426    get(const)
6937 @ 62758:               LINE   1426 "regression-compile-tmp/chimp.imp"
6938 @ 62794:               PUSH   GET
6939 @ 62797:               PUSHI  #0x00000035
6940 @ 62802:               ASSPAR
6941 @ 62803:               CALL  

  1427    error(typerr+point) %if t_type # stringy
6942 @ 62804:               LINE   1427 "regression-compile-tmp/chimp.imp"
6943 @ 62840:               PUSH   T
6944 @ 62843:               SELECT 2
6945 @ 62846:               PUSHI  #0x000007fc
6946 @ 62851:               JUMPIF = L_0004
6947 @ 62855:               PUSH   ERROR
6948 @ 62858:               PUSHI  #0x00000006
6949 @ 62863:               PUSHI  #0x00000040
6950 @ 62868:               ADD   
6951 @ 62869:               ASSPAR
6952 @ 62870:               CALL  
6953 @ 62871:               LOCATE L_0004

  1428    item = holditem;  !restore
6954 @ 62874:               LINE   1428 "regression-compile-tmp/chimp.imp"
6955 @ 62910:               PUSH   ITEM
6956 @ 62913:               PUSH   HOLDITEM
6957 @ 62916:               ASSVAL

  1429  %end
  1430  !
6958 @ 62917:               LINE   1429 "regression-compile-tmp/chimp.imp"
6959 @ 62953:            END    _ECCECI_GETLITSTRING {lev=2 --> 1}

  1431  %routine GET PARMLIST
6960 @ 62954:            LINE   1431 "regression-compile-tmp/chimp.imp"
6961 @ 62990:            DEF    GETPARMLIST (_ECCECI_GETPARMLIST) p1=V_0109 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
6962 @ 63013:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
6963 @ 63014:               FINISH ) {lev=2}

  1432  %record(identinfo)%name hp,dp
6964 @ 63015:               LINE   1432 "regression-compile-tmp/chimp.imp"
6965 @ 63051:               DEF    HP p1=V_010a a/tf=42 b/format=9a c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
6966 @ 63065:               DEF    DP p1=V_010b a/tf=42 b/format=9a c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  1433  %integer i,j,headitem,headact,dpos,case,procnp,first
6967 @ 63079:               LINE   1433 "regression-compile-tmp/chimp.imp"
6968 @ 63115:               DEF    I p1=V_010c a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
6969 @ 63128:               DEF    J p1=V_010d a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
6970 @ 63141:               DEF    HEADITEM p1=V_010e a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
6971 @ 63161:               DEF    HEADACT p1=V_010f a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
6972 @ 63180:               DEF    DPOS p1=V_0110 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
6973 @ 63196:               DEF    CASE p1=V_0111 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
6974 @ 63212:               DEF    PROCNP p1=V_0112 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
6975 @ 63230:               DEF    FIRST p1=V_0113 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  1434    headitem = item;  hp == ditem
6976 @ 63247:               LINE   1434 "regression-compile-tmp/chimp.imp"
6977 @ 63283:               PUSH   HEADITEM
6978 @ 63286:               PUSH   ITEM
6979 @ 63289:               ASSVAL
6980 @ 63290:               LINE   1434 "regression-compile-tmp/chimp.imp"
6981 @ 63326:               PUSH   HP
6982 @ 63329:               PUSH   DITEM
6983 @ 63332:               ASSREF

  1435    headact = rcall
  1436    !stack procedure ident
  1437  !  procnp = np;  put3(headact,headitem,0)
6984 @ 63333:               LINE   1435 "regression-compile-tmp/chimp.imp"
6985 @ 63369:               PUSH   HEADACT
6986 @ 63372:               PUSHI  #0x0000006d
6987 @ 63377:               ASSVAL

  1438    i = 0;  first = 1
6988 @ 63378:               LINE   1438 "regression-compile-tmp/chimp.imp"
6989 @ 63414:               PUSH   I
6990 @ 63417:               PUSHI  #0x00000000
6991 @ 63422:               ASSVAL
6992 @ 63423:               LINE   1438 "regression-compile-tmp/chimp.imp"
6993 @ 63459:               PUSH   FIRST
6994 @ 63462:               PUSHI  #0x00000001
6995 @ 63467:               ASSVAL

  1439    dpos = headitem;  dp == hp
6996 @ 63468:               LINE   1439 "regression-compile-tmp/chimp.imp"
6997 @ 63504:               PUSH   DPOS
6998 @ 63507:               PUSH   HEADITEM
6999 @ 63510:               ASSVAL
7000 @ 63511:               LINE   1439 "regression-compile-tmp/chimp.imp"
7001 @ 63547:               PUSH   DP
7002 @ 63550:               PUSH   HP
7003 @ 63553:               ASSREF

  1440    %cycle
  1441    !Set up expression state from formal param details
7004 @ 63554:               LINE   1440 "regression-compile-tmp/chimp.imp"
7005 @ 63590:               LOCATE L_0003

  1442      error(toomany+point) %if dp_flags&more = 0
7006 @ 63593:               LINE   1442 "regression-compile-tmp/chimp.imp"
7007 @ 63629:               PUSH   DP
7008 @ 63632:               SELECT 1
7009 @ 63635:               PUSHI  #0x00000080
7010 @ 63640:               AND   
7011 @ 63641:               PUSHI  #0x00000000
7012 @ 63646:               JUMPIF # L_0007
7013 @ 63650:               PUSH   ERROR
7014 @ 63653:               PUSHI  #0x00000020
7015 @ 63658:               PUSHI  #0x00000040
7016 @ 63663:               ADD   
7017 @ 63664:               ASSPAR
7018 @ 63665:               CALL  
7019 @ 63666:               LOCATE L_0007

  1443      dpos = dpos+1 %and dp == dict(dpos) %until dp_flags&parm # 0
7020 @ 63669:               LINE   1443 "regression-compile-tmp/chimp.imp"
7021 @ 63705:               LOCATE L_0006
7022 @ 63708:               PUSH   DPOS
7023 @ 63711:               PUSH   DPOS
7024 @ 63714:               PUSHI  #0x00000001
7025 @ 63719:               ADD   
7026 @ 63720:               ASSVAL
7027 @ 63721:               PUSH   DP
7028 @ 63724:               PUSH   DICT
7029 @ 63727:               PUSH   DPOS
7030 @ 63730:               ACCESS
7031 @ 63731:               ASSREF
7032 @ 63732:               PUSH   DP
7033 @ 63735:               SELECT 1
7034 @ 63738:               PUSHI  #0x00000040
7035 @ 63743:               AND   
7036 @ 63744:               PUSHI  #0x00000000
7037 @ 63749:               JUMPIF # L_0007
7038 @ 63753:               REPEAT L_0006
7039 @ 63756:               LOCATE L_0007

  1444      %if dp_flags&proc # 0 %start
7040 @ 63759:               LINE   1444 "regression-compile-tmp/chimp.imp"
7041 @ 63795:               PUSH   DP
7042 @ 63798:               SELECT 1
7043 @ 63801:               PUSHI  #0x00000004
7044 @ 63806:               AND   
7045 @ 63807:               PUSHI  #0x00000000
7046 @ 63812:               JUMPIF = L_0007

  1445        get(ident)
7047 @ 63816:               LINE   1445 "regression-compile-tmp/chimp.imp"
7048 @ 63852:               PUSH   GET
7049 @ 63855:               PUSHI  #0x00000036
7050 @ 63860:               ASSPAR
7051 @ 63861:               CALL  

  1446        name error %if item <= 0
7052 @ 63862:               LINE   1446 "regression-compile-tmp/chimp.imp"
7053 @ 63898:               PUSH   ITEM
7054 @ 63901:               PUSHI  #0x00000000
7055 @ 63906:               JUMPIF > L_000a
7056 @ 63910:               PUSH   NAMEERROR
7057 @ 63913:               CALL  
7058 @ 63914:               LOCATE L_000a

  1447        fault(typerr+point) %if ditem_flags&proc = 0;  !for now
7059 @ 63917:               LINE   1447 "regression-compile-tmp/chimp.imp"
7060 @ 63953:               PUSH   DITEM
7061 @ 63956:               SELECT 1
7062 @ 63959:               PUSHI  #0x00000004
7063 @ 63964:               AND   
7064 @ 63965:               PUSHI  #0x00000000
7065 @ 63970:               JUMPIF # L_000a
7066 @ 63974:               PUSH   FAULT
7067 @ 63977:               PUSHI  #0x00000006
7068 @ 63982:               PUSHI  #0x00000040
7069 @ 63987:               ADD   
7070 @ 63988:               ASSPAR
7071 @ 63989:               CALL  
7072 @ 63990:               LOCATE L_000a

  1448        fault(caterr+point) %if item > headitem
7073 @ 63993:               LINE   1448 "regression-compile-tmp/chimp.imp"
7074 @ 64029:               PUSH   ITEM
7075 @ 64032:               PUSH   HEADITEM
7076 @ 64035:               JUMPIF <= L_000a
7077 @ 64039:               PUSH   FAULT
7078 @ 64042:               PUSHI  #0x00000003
7079 @ 64047:               PUSHI  #0x00000040
7080 @ 64052:               ADD   
7081 @ 64053:               ASSPAR
7082 @ 64054:               CALL  
7083 @ 64055:               LOCATE L_000a

  1449      %else %if dp_type < indirect;  !value
  1450  !      %if pp_type&numericmask # 0 %then case = i&7 %and i = i+1 %c
  1451  !      %else case = i>>3+8 %and i = i+8
7084 @ 64058:               LINE   1449 "regression-compile-tmp/chimp.imp"
7085 @ 64094:               GOTO   L_0006
7086 @ 64097:               LOCATE L_0007
7087 @ 64100:               PUSH   DP
7088 @ 64103:               SELECT 2
7089 @ 64106:               PUSHI  #0x00004000
7090 @ 64111:               JUMPIF >= L_0007

  1452        case = i&7;  i = i+1
7091 @ 64115:               LINE   1452 "regression-compile-tmp/chimp.imp"
7092 @ 64151:               PUSH   CASE
7093 @ 64154:               PUSH   I
7094 @ 64157:               PUSHI  #0x00000007
7095 @ 64162:               AND   
7096 @ 64163:               ASSVAL
7097 @ 64164:               LINE   1452 "regression-compile-tmp/chimp.imp"
7098 @ 64200:               PUSH   I
7099 @ 64203:               PUSH   I
7100 @ 64206:               PUSHI  #0x00000001
7101 @ 64211:               ADD   
7102 @ 64212:               ASSVAL

  1453        get VALUE(dp_type)
7103 @ 64213:               LINE   1453 "regression-compile-tmp/chimp.imp"
7104 @ 64249:               PUSH   GETVALUE
7105 @ 64252:               PUSH   DP
7106 @ 64255:               SELECT 2
7107 @ 64258:               ASSPAR
7108 @ 64259:               CALL  

  1454      %finish %else %start;  !name or proc
7109 @ 64260:               LINE   1454 "regression-compile-tmp/chimp.imp"
7110 @ 64296:               GOTO   L_0006
7111 @ 64299:               LOCATE L_0007

  1455        case = i>>3+8;  i = i+8
7112 @ 64302:               LINE   1455 "regression-compile-tmp/chimp.imp"
7113 @ 64338:               PUSH   CASE
7114 @ 64341:               PUSH   I
7115 @ 64344:               PUSHI  #0x00000003
7116 @ 64349:               RSH   
7117 @ 64350:               PUSHI  #0x00000008
7118 @ 64355:               ADD   
7119 @ 64356:               ASSVAL
7120 @ 64357:               LINE   1455 "regression-compile-tmp/chimp.imp"
7121 @ 64393:               PUSH   I
7122 @ 64396:               PUSH   I
7123 @ 64399:               PUSHI  #0x00000008
7124 @ 64404:               ADD   
7125 @ 64405:               ASSVAL

  1456        get REFERENCE(dp_type)
7126 @ 64406:               LINE   1456 "regression-compile-tmp/chimp.imp"
7127 @ 64442:               PUSH   GETREFERENCE
7128 @ 64445:               PUSH   DP
7129 @ 64448:               SELECT 2
7130 @ 64451:               ASSPAR
7131 @ 64452:               CALL  

  1457      %finish
  1458  !    case = case<<8+headact
  1459  !    item = litref(t_val) %if item = 0
  1460  !    j = np-1
  1461  !    %if first = 0 %start
  1462  !      j = np
  1463  !      !NB Don't re-order parameters for implicits
  1464  !      %if item >= expmin %and headitem > dnewline %start
  1465  !        %while j > procnp %and exp(j-1)_y < expmin %cycle
  1466  !          exp(j)_act = exp(j-1)_act;  exp(j)_y = exp(j-1)_y
  1467  !          j = j-1
  1468  !        %repeat
  1469  !      %finish
  1470  !      exp(np)_x = 0;  np = np+1
  1471  !    %finish
  1472  !    exp(j)_act =  case;  exp(j)_y = item
  1473  !    first = 0
7132 @ 64453:               LINE   1457 "regression-compile-tmp/chimp.imp"
7133 @ 64489:               LOCATE L_0006

  1474    %repeat %until %not a(comma)
  1475  !  %if hp_type # nulltype %start
  1476  !    i = explo
  1477  !    %while i <= expmax %cycle
  1478  !      %if exp(i)_x = headitem %start;  ![enough?]
  1479  !        item = i;  j = procnp
  1480  !        %cycle
  1481  !          %exit %if exp(i)_y # exp(j)_y
  1482  !          i = i+1;  j = j+1
  1483  !          ->okf %if j >= np
  1484  !        %repeat
  1485  !      %finish
  1486  !      i = i+1
  1487  !    %repeat
  1488  !    %cycle
  1489  !      explo = explo-1;  np = np-1
  1490  !      exp(explo) = exp(np)
  1491  !    %repeat %until np = procnp
7134 @ 64492:               LINE   1474 "regression-compile-tmp/chimp.imp"
7135 @ 64528:               PUSH   A
7136 @ 64531:               PUSHI  #0x0000003b
7137 @ 64536:               ASSPAR
7138 @ 64537:               CALL  
7139 @ 64538:               bf     L_0004
7140 @ 64541:               REPEAT L_0003
7141 @ 64544:               LOCATE L_0004

  1492      item = explo
  1493  !okf:np = procnp
  1494  !  %finish
7142 @ 64547:               LINE   1492 "regression-compile-tmp/chimp.imp"
7143 @ 64583:               PUSH   ITEM
7144 @ 64586:               PUSH   EXPLO
7145 @ 64589:               ASSVAL

  1495  %end;  !get PARMLIST
  1496  
7146 @ 64590:               LINE   1495 "regression-compile-tmp/chimp.imp"
7147 @ 64626:            END    _ECCECI_GETPARMLIST {lev=2 --> 1}

  1497  %routine GET RESOLUTION
7148 @ 64627:            LINE   1497 "regression-compile-tmp/chimp.imp"
7149 @ 64663:            DEF    GETRESOLUTION (_ECCECI_GETRESOLUTION) p1=V_010a a/tf=7 b/format=0 c/ostate=0  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
7150 @ 64688:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
7151 @ 64689:               FINISH ) {lev=2}

  1498    %if %not a(left) %start
7152 @ 64690:               LINE   1498 "regression-compile-tmp/chimp.imp"
7153 @ 64726:               PUSH   A
7154 @ 64729:               PUSHI  #0x00000037
7155 @ 64734:               ASSPAR
7156 @ 64735:               CALL  
7157 @ 64736:               bt     L_0004

  1499      get REFERENCE(anystringvar)
7158 @ 64739:               LINE   1499 "regression-compile-tmp/chimp.imp"
7159 @ 64775:               PUSH   GETREFERENCE
7160 @ 64778:               PUSHI  #0x000047fc
7161 @ 64783:               ASSPAR
7162 @ 64784:               CALL  

  1500      get(dot)
7163 @ 64785:               LINE   1500 "regression-compile-tmp/chimp.imp"
7164 @ 64821:               PUSH   GET
7165 @ 64824:               PUSHI  #0x00000054
7166 @ 64829:               ASSPAR
7167 @ 64830:               CALL  

  1501      get(left)
7168 @ 64831:               LINE   1501 "regression-compile-tmp/chimp.imp"
7169 @ 64867:               PUSH   GET
7170 @ 64870:               PUSHI  #0x00000037
7171 @ 64875:               ASSPAR
7172 @ 64876:               CALL  

  1502    %finish
7173 @ 64877:               LINE   1502 "regression-compile-tmp/chimp.imp"
7174 @ 64913:               LOCATE L_0004

  1503    get VALUE(anystring)
7175 @ 64916:               LINE   1503 "regression-compile-tmp/chimp.imp"
7176 @ 64952:               PUSH   GETVALUE
7177 @ 64955:               PUSHI  #0x000027fc
7178 @ 64960:               ASSPAR
7179 @ 64961:               CALL  

  1504    get(right)
7180 @ 64962:               LINE   1504 "regression-compile-tmp/chimp.imp"
7181 @ 64998:               PUSH   GET
7182 @ 65001:               PUSHI  #0x0000003c
7183 @ 65006:               ASSPAR
7184 @ 65007:               CALL  

  1505    %if a(dot) %start
7185 @ 65008:               LINE   1505 "regression-compile-tmp/chimp.imp"
7186 @ 65044:               PUSH   A
7187 @ 65047:               PUSHI  #0x00000054
7188 @ 65052:               ASSPAR
7189 @ 65053:               CALL  
7190 @ 65054:               bf     L_0004

  1506      get REFERENCE(anystringvar)
7191 @ 65057:               LINE   1506 "regression-compile-tmp/chimp.imp"
7192 @ 65093:               PUSH   GETREFERENCE
7193 @ 65096:               PUSHI  #0x000047fc
7194 @ 65101:               ASSPAR
7195 @ 65102:               CALL  

  1507    %finish
7196 @ 65103:               LINE   1507 "regression-compile-tmp/chimp.imp"
7197 @ 65139:               LOCATE L_0004

  1508  %end
  1509  !
  1510  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1511  !
7198 @ 65142:               LINE   1508 "regression-compile-tmp/chimp.imp"
7199 @ 65178:            END    _ECCECI_GETRESOLUTION {lev=2 --> 1}

  1512  %routine GET EXPRESSION(%integer rank,control)
  1513  !Main expression recognition routine
  1514  !To bring together the treatment of all binary operators
  1515  ! and ensure fast recognition of simple expressions,
  1516  ! expressions of different levels are handled by
  1517  ! precedence techniques rather than syntactically
  1518  !CONTROL defines acceptability
7200 @ 65179:            LINE   1512 "regression-compile-tmp/chimp.imp"
7201 @ 65215:            DEF    GETEXPRESSION (_ECCECI_GETEXPRESSION) p1=V_0101 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
7202 @ 65240:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
7203 @ 65241:                  DEF    RANK p1=V_010b a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
7204 @ 65257:                  DEF    CONTROL p1=V_010c a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
7205 @ 65276:               FINISH ) {lev=2}

  1519  %integer type,f,opok,c1,op,atomp1,item1
7206 @ 65277:               LINE   1519 "regression-compile-tmp/chimp.imp"
7207 @ 65313:               DEF    TYPE p1=V_010d a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
7208 @ 65329:               DEF    F p1=V_010e a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
7209 @ 65342:               DEF    OPOK p1=V_010f a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
7210 @ 65358:               DEF    C1 p1=V_0110 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
7211 @ 65372:               DEF    OP p1=V_0111 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
7212 @ 65386:               DEF    ATOMP1 p1=V_0112 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
7213 @ 65404:               DEF    ITEM1 p1=V_0113 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  1520  %record(objinfo) t1
7214 @ 65421:               LINE   1520 "regression-compile-tmp/chimp.imp"
7215 @ 65457:               DEF    T1 p1=V_0114 a/tf=41 b/format=99 c/ostate=0  type=4 (record) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  1521  %record(identinfo)%name dp
  1522  
7216 @ 65471:               LINE   1521 "regression-compile-tmp/chimp.imp"
7217 @ 65507:               DEF    DP p1=V_0115 a/tf=42 b/format=9a c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  1523  %integerfn litval
7218 @ 65521:               LINE   1523 "regression-compile-tmp/chimp.imp"
7219 @ 65557:               DEF    LITVAL (_ECCECI_GETEXPRESSION_LITVAL) p1=V_0116 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
7220 @ 65575:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
7221 @ 65576:                  FINISH ) {lev=3}

  1524  %switch lit(64:atommax)
7222 @ 65577:                  LINE   1524 "regression-compile-tmp/chimp.imp"
7223 @ 65613:                  PUSHI  #0x00000040
7224 @ 65618:                  PUSHI  #0x0000006b
7225 @ 65623:                  BOUNDS
7226 @ 65624:                  DEF    LIT p1=V_0117 a/tf=6 b/format=0 c/ostate=0  type=0 (<type:0>) form=6 (switch) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  1525    -> lit(op)
7227 @ 65639:                  LINE   1525 "regression-compile-tmp/chimp.imp"
7228 @ 65675:                  PUSH   OP
7229 @ 65678:                  SJUMP  279

  1526  lit(plus):    %result = t1_val+t_val
7230 @ 65681:                  LINE   1526 "regression-compile-tmp/chimp.imp"
7231 @ 65717:                  PUSHI  #0x00000050
7232 @ 65722:                  SLABEL 279
7233 @ 65725:                  LINE   1526 "regression-compile-tmp/chimp.imp"
7234 @ 65761:                  PUSH   T1
7235 @ 65764:                  SELECT 7
7236 @ 65767:                  PUSH   T
7237 @ 65770:                  SELECT 7
7238 @ 65773:                  ADD   
7239 @ 65774:                  RESULT

  1527  lit(minus):   %result = t1_val-t_val
7240 @ 65775:                  LINE   1527 "regression-compile-tmp/chimp.imp"
7241 @ 65811:                  PUSHI  #0x00000051
7242 @ 65816:                  SLABEL 279
7243 @ 65819:                  LINE   1527 "regression-compile-tmp/chimp.imp"
7244 @ 65855:                  PUSH   T1
7245 @ 65858:                  SELECT 7
7246 @ 65861:                  PUSH   T
7247 @ 65864:                  SELECT 7
7248 @ 65867:                  SUB   
7249 @ 65868:                  RESULT

  1528  lit(mult):    %result = t1_val*t_val
7250 @ 65869:                  LINE   1528 "regression-compile-tmp/chimp.imp"
7251 @ 65905:                  PUSHI  #0x00000058
7252 @ 65910:                  SLABEL 279
7253 @ 65913:                  LINE   1528 "regression-compile-tmp/chimp.imp"
7254 @ 65949:                  PUSH   T1
7255 @ 65952:                  SELECT 7
7256 @ 65955:                  PUSH   T
7257 @ 65958:                  SELECT 7
7258 @ 65961:                  MUL   
7259 @ 65962:                  RESULT

  1529  lit(idiv):    %result = t1_val//t_val %if t_val # 0
7260 @ 65963:                  LINE   1529 "regression-compile-tmp/chimp.imp"
7261 @ 65999:                  PUSHI  #0x0000005a
7262 @ 66004:                  SLABEL 279
7263 @ 66007:                  LINE   1529 "regression-compile-tmp/chimp.imp"
7264 @ 66043:                  PUSH   T
7265 @ 66046:                  SELECT 7
7266 @ 66049:                  PUSHI  #0x00000000
7267 @ 66054:                  JUMPIF = L_0004
7268 @ 66058:                  PUSH   T1
7269 @ 66061:                  SELECT 7
7270 @ 66064:                  PUSH   T
7271 @ 66067:                  SELECT 7
7272 @ 66070:                  QUOT  
7273 @ 66071:                  RESULT
7274 @ 66072:                  LOCATE L_0004

  1530                fault(rangerr)
7275 @ 66075:                  LINE   1530 "regression-compile-tmp/chimp.imp"
7276 @ 66111:                  PUSH   FAULT
7277 @ 66114:                  PUSHI  #0x0000000c
7278 @ 66119:                  ASSPAR
7279 @ 66120:                  CALL  

  1531                %result = 0
7280 @ 66121:                  LINE   1531 "regression-compile-tmp/chimp.imp"
7281 @ 66157:                  PUSHI  #0x00000000
7282 @ 66162:                  RESULT

  1532  lit(logand):
7283 @ 66163:                  LINE   1532 "regression-compile-tmp/chimp.imp"
7284 @ 66199:                  PUSHI  #0x0000005b
7285 @ 66204:                  SLABEL 279

  1533  lit(booland): %result = t1_val&t_val
7286 @ 66207:                  LINE   1533 "regression-compile-tmp/chimp.imp"
7287 @ 66243:                  PUSHI  #0x00000040
7288 @ 66248:                  SLABEL 279
7289 @ 66251:                  LINE   1533 "regression-compile-tmp/chimp.imp"
7290 @ 66287:                  PUSH   T1
7291 @ 66290:                  SELECT 7
7292 @ 66293:                  PUSH   T
7293 @ 66296:                  SELECT 7
7294 @ 66299:                  AND   
7295 @ 66300:                  RESULT

  1534  lit(logor):
7296 @ 66301:                  LINE   1534 "regression-compile-tmp/chimp.imp"
7297 @ 66337:                  PUSHI  #0x00000052
7298 @ 66342:                  SLABEL 279

  1535  lit(boolor):  %result = t1_val!t_val
7299 @ 66345:                  LINE   1535 "regression-compile-tmp/chimp.imp"
7300 @ 66381:                  PUSHI  #0x00000041
7301 @ 66386:                  SLABEL 279
7302 @ 66389:                  LINE   1535 "regression-compile-tmp/chimp.imp"
7303 @ 66425:                  PUSH   T1
7304 @ 66428:                  SELECT 7
7305 @ 66431:                  PUSH   T
7306 @ 66434:                  SELECT 7
7307 @ 66437:                  OR    
7308 @ 66438:                  RESULT

  1536  lit(logxor):  %result = t1_val!!t_val
7309 @ 66439:                  LINE   1536 "regression-compile-tmp/chimp.imp"
7310 @ 66475:                  PUSHI  #0x00000053
7311 @ 66480:                  SLABEL 279
7312 @ 66483:                  LINE   1536 "regression-compile-tmp/chimp.imp"
7313 @ 66519:                  PUSH   T1
7314 @ 66522:                  SELECT 7
7315 @ 66525:                  PUSH   T
7316 @ 66528:                  SELECT 7
7317 @ 66531:                  XOR   
7318 @ 66532:                  RESULT

  1537  lit(lshift):  %result = t1_val<<t_val
7319 @ 66533:                  LINE   1537 "regression-compile-tmp/chimp.imp"
7320 @ 66569:                  PUSHI  #0x00000064
7321 @ 66574:                  SLABEL 279
7322 @ 66577:                  LINE   1537 "regression-compile-tmp/chimp.imp"
7323 @ 66613:                  PUSH   T1
7324 @ 66616:                  SELECT 7
7325 @ 66619:                  PUSH   T
7326 @ 66622:                  SELECT 7
7327 @ 66625:                  LSH   
7328 @ 66626:                  RESULT

  1538  lit(rshift):  %result = t1_val>>t_val
7329 @ 66627:                  LINE   1538 "regression-compile-tmp/chimp.imp"
7330 @ 66663:                  PUSHI  #0x00000065
7331 @ 66668:                  SLABEL 279
7332 @ 66671:                  LINE   1538 "regression-compile-tmp/chimp.imp"
7333 @ 66707:                  PUSH   T1
7334 @ 66710:                  SELECT 7
7335 @ 66713:                  PUSH   T
7336 @ 66716:                  SELECT 7
7337 @ 66719:                  RSH   
7338 @ 66720:                  RESULT

  1539  lit(boolnot): %result = t_val!!true
7339 @ 66721:                  LINE   1539 "regression-compile-tmp/chimp.imp"
7340 @ 66757:                  PUSHI  #0x00000042
7341 @ 66762:                  SLABEL 279
7342 @ 66765:                  LINE   1539 "regression-compile-tmp/chimp.imp"
7343 @ 66801:                  PUSH   T
7344 @ 66804:                  SELECT 7
7345 @ 66807:                  PUSHI  #0x00000001
7346 @ 66812:                  XOR   
7347 @ 66813:                  RESULT

  1540  lit(lognot):  %result = \t_val
  1541  !lit(negate):  %result = -t_val
7348 @ 66814:                  LINE   1540 "regression-compile-tmp/chimp.imp"
7349 @ 66850:                  PUSHI  #0x00000066
7350 @ 66855:                  SLABEL 279
7351 @ 66858:                  LINE   1540 "regression-compile-tmp/chimp.imp"
7352 @ 66894:                  PUSH   T
7353 @ 66897:                  SELECT 7
7354 @ 66900:                  NOT   
7355 @ 66901:                  RESULT

  1542  lit(equals):  %result = true %if t1_val = t_val
7356 @ 66902:                  LINE   1542 "regression-compile-tmp/chimp.imp"
7357 @ 66938:                  PUSHI  #0x00000046
7358 @ 66943:                  SLABEL 279
7359 @ 66946:                  LINE   1542 "regression-compile-tmp/chimp.imp"
7360 @ 66982:                  PUSH   T1
7361 @ 66985:                  SELECT 7
7362 @ 66988:                  PUSH   T
7363 @ 66991:                  SELECT 7
7364 @ 66994:                  JUMPIF # L_0004
7365 @ 66998:                  PUSHI  #0x00000001
7366 @ 67003:                  RESULT
7367 @ 67004:                  LOCATE L_0004

  1543                %result = false
7368 @ 67007:                  LINE   1543 "regression-compile-tmp/chimp.imp"
7369 @ 67043:                  PUSHI  #0x00000000
7370 @ 67048:                  RESULT

  1544  lit(noteq):   %result = true %if t1_val # t_val
7371 @ 67049:                  LINE   1544 "regression-compile-tmp/chimp.imp"
7372 @ 67085:                  PUSHI  #0x00000047
7373 @ 67090:                  SLABEL 279
7374 @ 67093:                  LINE   1544 "regression-compile-tmp/chimp.imp"
7375 @ 67129:                  PUSH   T1
7376 @ 67132:                  SELECT 7
7377 @ 67135:                  PUSH   T
7378 @ 67138:                  SELECT 7
7379 @ 67141:                  JUMPIF = L_0004
7380 @ 67145:                  PUSHI  #0x00000001
7381 @ 67150:                  RESULT
7382 @ 67151:                  LOCATE L_0004

  1545                %result = false
7383 @ 67154:                  LINE   1545 "regression-compile-tmp/chimp.imp"
7384 @ 67190:                  PUSHI  #0x00000000
7385 @ 67195:                  RESULT

  1546  lit(lesseq):  %result = true %if t1_val <= t_val
7386 @ 67196:                  LINE   1546 "regression-compile-tmp/chimp.imp"
7387 @ 67232:                  PUSHI  #0x00000048
7388 @ 67237:                  SLABEL 279
7389 @ 67240:                  LINE   1546 "regression-compile-tmp/chimp.imp"
7390 @ 67276:                  PUSH   T1
7391 @ 67279:                  SELECT 7
7392 @ 67282:                  PUSH   T
7393 @ 67285:                  SELECT 7
7394 @ 67288:                  JUMPIF > L_0004
7395 @ 67292:                  PUSHI  #0x00000001
7396 @ 67297:                  RESULT
7397 @ 67298:                  LOCATE L_0004

  1547                %result = false
7398 @ 67301:                  LINE   1547 "regression-compile-tmp/chimp.imp"
7399 @ 67337:                  PUSHI  #0x00000000
7400 @ 67342:                  RESULT

  1548  lit(less):    %result = true %if t1_val < t_val
7401 @ 67343:                  LINE   1548 "regression-compile-tmp/chimp.imp"
7402 @ 67379:                  PUSHI  #0x00000049
7403 @ 67384:                  SLABEL 279
7404 @ 67387:                  LINE   1548 "regression-compile-tmp/chimp.imp"
7405 @ 67423:                  PUSH   T1
7406 @ 67426:                  SELECT 7
7407 @ 67429:                  PUSH   T
7408 @ 67432:                  SELECT 7
7409 @ 67435:                  JUMPIF >= L_0004
7410 @ 67439:                  PUSHI  #0x00000001
7411 @ 67444:                  RESULT
7412 @ 67445:                  LOCATE L_0004

  1549                %result = false
7413 @ 67448:                  LINE   1549 "regression-compile-tmp/chimp.imp"
7414 @ 67484:                  PUSHI  #0x00000000
7415 @ 67489:                  RESULT

  1550  lit(greateq): %result = true %if t1_val >= t_val
7416 @ 67490:                  LINE   1550 "regression-compile-tmp/chimp.imp"
7417 @ 67526:                  PUSHI  #0x0000004a
7418 @ 67531:                  SLABEL 279
7419 @ 67534:                  LINE   1550 "regression-compile-tmp/chimp.imp"
7420 @ 67570:                  PUSH   T1
7421 @ 67573:                  SELECT 7
7422 @ 67576:                  PUSH   T
7423 @ 67579:                  SELECT 7
7424 @ 67582:                  JUMPIF < L_0004
7425 @ 67586:                  PUSHI  #0x00000001
7426 @ 67591:                  RESULT
7427 @ 67592:                  LOCATE L_0004

  1551                %result = false
7428 @ 67595:                  LINE   1551 "regression-compile-tmp/chimp.imp"
7429 @ 67631:                  PUSHI  #0x00000000
7430 @ 67636:                  RESULT

  1552  lit(greater): %result = true %if t1_val > t_val
7431 @ 67637:                  LINE   1552 "regression-compile-tmp/chimp.imp"
7432 @ 67673:                  PUSHI  #0x0000004b
7433 @ 67678:                  SLABEL 279
7434 @ 67681:                  LINE   1552 "regression-compile-tmp/chimp.imp"
7435 @ 67717:                  PUSH   T1
7436 @ 67720:                  SELECT 7
7437 @ 67723:                  PUSH   T
7438 @ 67726:                  SELECT 7
7439 @ 67729:                  JUMPIF <= L_0004
7440 @ 67733:                  PUSHI  #0x00000001
7441 @ 67738:                  RESULT
7442 @ 67739:                  LOCATE L_0004

  1553                %result = false
7443 @ 67742:                  LINE   1553 "regression-compile-tmp/chimp.imp"
7444 @ 67778:                  PUSHI  #0x00000000
7445 @ 67783:                  RESULT

  1554  lit(concat):  %result = t1_val+t_val
7446 @ 67784:                  LINE   1554 "regression-compile-tmp/chimp.imp"
7447 @ 67820:                  PUSHI  #0x00000054
7448 @ 67825:                  SLABEL 279
7449 @ 67828:                  LINE   1554 "regression-compile-tmp/chimp.imp"
7450 @ 67864:                  PUSH   T1
7451 @ 67867:                  SELECT 7
7452 @ 67870:                  PUSH   T
7453 @ 67873:                  SELECT 7
7454 @ 67876:                  ADD   
7455 @ 67877:                  RESULT

  1555  lit(*):       !report(notwhat,-op)
7456 @ 67878:                  LINE   1555 "regression-compile-tmp/chimp.imp"
7457 @ 67914:                  DEFSW  279

  1556                %result = 1
7458 @ 67917:                  LINE   1556 "regression-compile-tmp/chimp.imp"
7459 @ 67953:                  PUSHI  #0x00000001
7460 @ 67958:                  RESULT

  1557  %end
  1558  
  1559  !Get leading operand
7461 @ 67959:                  LINE   1557 "regression-compile-tmp/chimp.imp"
7462 @ 67995:               END    _ECCECI_GETEXPRESSION_LITVAL {lev=3 --> 2}

  1560    atom = next atom %if matched # 0
7463 @ 67996:               LINE   1560 "regression-compile-tmp/chimp.imp"
7464 @ 68032:               PUSH   MATCHED
7465 @ 68035:               PUSHI  #0x00000000
7466 @ 68040:               JUMPIF = L_0004
7467 @ 68044:               PUSH   ATOM
7468 @ 68047:               PUSH   NEXTATOM
7469 @ 68050:               CALL  
7470 @ 68051:               ASSVAL
7471 @ 68052:               LOCATE L_0004

  1561    atomp1 = atomp;  !note position for reports
7472 @ 68055:               LINE   1561 "regression-compile-tmp/chimp.imp"
7473 @ 68091:               PUSH   ATOMP1
7474 @ 68094:               PUSH   ATOMP
7475 @ 68097:               ASSVAL

  1562    %if atom = ident %start
7476 @ 68098:               LINE   1562 "regression-compile-tmp/chimp.imp"
7477 @ 68134:               PUSH   ATOM
7478 @ 68137:               PUSHI  #0x00000036
7479 @ 68142:               JUMPIF # L_0004

  1563      matched = 1
7480 @ 68146:               LINE   1563 "regression-compile-tmp/chimp.imp"
7481 @ 68182:               PUSH   MATCHED
7482 @ 68185:               PUSHI  #0x00000001
7483 @ 68190:               ASSVAL

  1564      name error %if item <= 0
7484 @ 68191:               LINE   1564 "regression-compile-tmp/chimp.imp"
7485 @ 68227:               PUSH   ITEM
7486 @ 68230:               PUSHI  #0x00000000
7487 @ 68235:               JUMPIF > L_0007
7488 @ 68239:               PUSH   NAMEERROR
7489 @ 68242:               CALL  
7490 @ 68243:               LOCATE L_0007

  1565      fault(selfref+point) %if item >= dlim0
7491 @ 68246:               LINE   1565 "regression-compile-tmp/chimp.imp"
7492 @ 68282:               PUSH   ITEM
7493 @ 68285:               PUSH   DLIM0
7494 @ 68288:               JUMPIF < L_0007
7495 @ 68292:               PUSH   FAULT
7496 @ 68295:               PUSHI  #0x00000026
7497 @ 68300:               PUSHI  #0x00000040
7498 @ 68305:               ADD   
7499 @ 68306:               ASSPAR
7500 @ 68307:               CALL  
7501 @ 68308:               LOCATE L_0007

  1566      type = ditem_type
7502 @ 68311:               LINE   1566 "regression-compile-tmp/chimp.imp"
7503 @ 68347:               PUSH   TYPE
7504 @ 68350:               PUSH   DITEM
7505 @ 68353:               SELECT 2
7506 @ 68356:               ASSVAL

  1567      %if control&(refonly+varonly) # 0 %start
7507 @ 68357:               LINE   1567 "regression-compile-tmp/chimp.imp"
7508 @ 68393:               PUSH   CONTROL
7509 @ 68396:               PUSHI  #0x00000400
7510 @ 68401:               PUSHI  #0x00000800
7511 @ 68406:               ADD   
7512 @ 68407:               AND   
7513 @ 68408:               PUSHI  #0x00000000
7514 @ 68413:               JUMPIF = L_0007

  1568        error(nonvar+point) %if control&varonly # 0 %and f&var = 0
7515 @ 68417:               LINE   1568 "regression-compile-tmp/chimp.imp"
7516 @ 68453:               PUSH   CONTROL
7517 @ 68456:               PUSHI  #0x00000800
7518 @ 68461:               AND   
7519 @ 68462:               PUSHI  #0x00000000
7520 @ 68467:               JUMPIF = L_000a
7521 @ 68471:               PUSH   F
7522 @ 68474:               PUSHI  #0x00000001
7523 @ 68479:               AND   
7524 @ 68480:               PUSHI  #0x00000000
7525 @ 68485:               JUMPIF # L_000a
7526 @ 68489:               PUSH   ERROR
7527 @ 68492:               PUSHI  #0x0000001e
7528 @ 68497:               PUSHI  #0x00000040
7529 @ 68502:               ADD   
7530 @ 68503:               ASSPAR
7531 @ 68504:               CALL  
7532 @ 68505:               LOCATE L_000a

  1569        error(nonref+point) %if type < direct
7533 @ 68508:               LINE   1569 "regression-compile-tmp/chimp.imp"
7534 @ 68544:               PUSH   TYPE
7535 @ 68547:               PUSHI  #0x00002000
7536 @ 68552:               JUMPIF >= L_000a
7537 @ 68556:               PUSH   ERROR
7538 @ 68559:               PUSHI  #0x0000001f
7539 @ 68564:               PUSHI  #0x00000040
7540 @ 68569:               ADD   
7541 @ 68570:               ASSPAR
7542 @ 68571:               CALL  
7543 @ 68572:               LOCATE L_000a

  1570      %finish
7544 @ 68575:               LINE   1570 "regression-compile-tmp/chimp.imp"
7545 @ 68611:               LOCATE L_0007

  1571      f = ditem_flags
7546 @ 68614:               LINE   1571 "regression-compile-tmp/chimp.imp"
7547 @ 68650:               PUSH   F
7548 @ 68653:               PUSH   DITEM
7549 @ 68656:               SELECT 1
7550 @ 68659:               ASSVAL

  1572      %if inty <= type <= booltype %and f&proc = 0 %start;  !literal
7551 @ 68660:               LINE   1572 "regression-compile-tmp/chimp.imp"
7552 @ 68696:               PUSHI  #0x000007fe
7553 @ 68701:               PUSH   TYPE
7554 @ 68704:               JUMPIFD > L_0007
7555 @ 68708:               PUSHI  #0x00000800
7556 @ 68713:               JUMPIF > L_0007
7557 @ 68717:               PUSH   F
7558 @ 68720:               PUSHI  #0x00000004
7559 @ 68725:               AND   
7560 @ 68726:               PUSHI  #0x00000000
7561 @ 68731:               JUMPIF # L_0007

  1573        item = 0;  t = ditem_details
7562 @ 68735:               LINE   1573 "regression-compile-tmp/chimp.imp"
7563 @ 68771:               PUSH   ITEM
7564 @ 68774:               PUSHI  #0x00000000
7565 @ 68779:               ASSVAL
7566 @ 68780:               LINE   1573 "regression-compile-tmp/chimp.imp"
7567 @ 68816:               PUSH   T
7568 @ 68819:               PUSH   DITEM
7569 @ 68822:               SELECT 8
7570 @ 68825:               ASSVAL

  1574      %else
7571 @ 68826:               LINE   1574 "regression-compile-tmp/chimp.imp"
7572 @ 68862:               GOTO   L_0006
7573 @ 68865:               LOCATE L_0007

  1575        fault(nonliteral+point) %if literal > 0
7574 @ 68868:               LINE   1575 "regression-compile-tmp/chimp.imp"
7575 @ 68904:               PUSH   LITERAL
7576 @ 68907:               PUSHI  #0x00000000
7577 @ 68912:               JUMPIF <= L_000a
7578 @ 68916:               PUSH   FAULT
7579 @ 68919:               PUSHI  #0x0000000d
7580 @ 68924:               PUSHI  #0x00000040
7581 @ 68929:               ADD   
7582 @ 68930:               ASSPAR
7583 @ 68931:               CALL  
7584 @ 68932:               LOCATE L_000a

  1576        %if f&proc # 0 %start
7585 @ 68935:               LINE   1576 "regression-compile-tmp/chimp.imp"
7586 @ 68971:               PUSH   F
7587 @ 68974:               PUSHI  #0x00000004
7588 @ 68979:               AND   
7589 @ 68980:               PUSHI  #0x00000000
7590 @ 68985:               JUMPIF = L_000a

  1577          ditem == dict(type) %and type = ditem_type %if f&parm # 0
7591 @ 68989:               LINE   1577 "regression-compile-tmp/chimp.imp"
7592 @ 69025:               PUSH   F
7593 @ 69028:               PUSHI  #0x00000040
7594 @ 69033:               AND   
7595 @ 69034:               PUSHI  #0x00000000
7596 @ 69039:               JUMPIF = L_000d
7597 @ 69043:               PUSH   DITEM
7598 @ 69046:               PUSH   DICT
7599 @ 69049:               PUSH   TYPE
7600 @ 69052:               ACCESS
7601 @ 69053:               ASSREF
7602 @ 69054:               PUSH   TYPE
7603 @ 69057:               PUSH   DITEM
7604 @ 69060:               SELECT 2
7605 @ 69063:               ASSVAL
7606 @ 69064:               LOCATE L_000d

  1578          error(caterr+point) %if type = nulltype;  !routine
7607 @ 69067:               LINE   1578 "regression-compile-tmp/chimp.imp"
7608 @ 69103:               PUSH   TYPE
7609 @ 69106:               PUSHI  #0x000007f9
7610 @ 69111:               JUMPIF # L_000d
7611 @ 69115:               PUSH   ERROR
7612 @ 69118:               PUSHI  #0x00000003
7613 @ 69123:               PUSHI  #0x00000040
7614 @ 69128:               ADD   
7615 @ 69129:               ASSPAR
7616 @ 69130:               CALL  
7617 @ 69131:               LOCATE L_000d

  1579          %if a(left) %start
7618 @ 69134:               LINE   1579 "regression-compile-tmp/chimp.imp"
7619 @ 69170:               PUSH   A
7620 @ 69173:               PUSHI  #0x00000037
7621 @ 69178:               ASSPAR
7622 @ 69179:               CALL  
7623 @ 69180:               bf     L_000d

  1580            dp == ditem
7624 @ 69183:               LINE   1580 "regression-compile-tmp/chimp.imp"
7625 @ 69219:               PUSH   DP
7626 @ 69222:               PUSH   DITEM
7627 @ 69225:               ASSREF

  1581            get PARMLIST;  get(right)
7628 @ 69226:               LINE   1581 "regression-compile-tmp/chimp.imp"
7629 @ 69262:               PUSH   GETPARMLIST
7630 @ 69265:               CALL  
7631 @ 69266:               LINE   1581 "regression-compile-tmp/chimp.imp"
7632 @ 69302:               PUSH   GET
7633 @ 69305:               PUSHI  #0x0000003c
7634 @ 69310:               ASSPAR
7635 @ 69311:               CALL  

  1582            ditem == dp
7636 @ 69312:               LINE   1582 "regression-compile-tmp/chimp.imp"
7637 @ 69348:               PUSH   DITEM
7638 @ 69351:               PUSH   DP
7639 @ 69354:               ASSREF

  1583          %else
7640 @ 69355:               LINE   1583 "regression-compile-tmp/chimp.imp"
7641 @ 69391:               GOTO   L_000c
7642 @ 69394:               LOCATE L_000d

  1584            error(toofew+point) %if ditem_flags&more # 0
7643 @ 69397:               LINE   1584 "regression-compile-tmp/chimp.imp"
7644 @ 69433:               PUSH   DITEM
7645 @ 69436:               SELECT 1
7646 @ 69439:               PUSHI  #0x00000080
7647 @ 69444:               AND   
7648 @ 69445:               PUSHI  #0x00000000
7649 @ 69450:               JUMPIF = L_0010
7650 @ 69454:               PUSH   ERROR
7651 @ 69457:               PUSHI  #0x00000021
7652 @ 69462:               PUSHI  #0x00000040
7653 @ 69467:               ADD   
7654 @ 69468:               ASSPAR
7655 @ 69469:               CALL  
7656 @ 69470:               LOCATE L_0010

  1585            item = explo;!expref(f&var+fcall,item,0)
7657 @ 69473:               LINE   1585 "regression-compile-tmp/chimp.imp"
7658 @ 69509:               PUSH   ITEM
7659 @ 69512:               PUSH   EXPLO
7660 @ 69515:               ASSVAL

  1586          %finish
7661 @ 69516:               LINE   1586 "regression-compile-tmp/chimp.imp"
7662 @ 69552:               LOCATE L_000c

  1587        %finish
7663 @ 69555:               LINE   1587 "regression-compile-tmp/chimp.imp"
7664 @ 69591:               LOCATE L_000a

  1588        %cycle
7665 @ 69594:               LINE   1588 "regression-compile-tmp/chimp.imp"
7666 @ 69630:               LOCATE L_0009

  1589          dp == dict(type&puretype);  t = dp_details
7667 @ 69633:               LINE   1589 "regression-compile-tmp/chimp.imp"
7668 @ 69669:               PUSH   DP
7669 @ 69672:               PUSH   DICT
7670 @ 69675:               PUSH   TYPE
7671 @ 69678:               PUSHI  #0x00001fff
7672 @ 69683:               AND   
7673 @ 69684:               ACCESS
7674 @ 69685:               ASSREF
7675 @ 69686:               LINE   1589 "regression-compile-tmp/chimp.imp"
7676 @ 69722:               PUSH   T
7677 @ 69725:               PUSH   DP
7678 @ 69728:               SELECT 8
7679 @ 69731:               ASSVAL

  1590          atom = next atom %if matched # 0
7680 @ 69732:               LINE   1590 "regression-compile-tmp/chimp.imp"
7681 @ 69768:               PUSH   MATCHED
7682 @ 69771:               PUSHI  #0x00000000
7683 @ 69776:               JUMPIF = L_000d
7684 @ 69780:               PUSH   ATOM
7685 @ 69783:               PUSH   NEXTATOM
7686 @ 69786:               CALL  
7687 @ 69787:               ASSVAL
7688 @ 69788:               LOCATE L_000d

  1591          %exit %if atom # underline %and atom # left
7689 @ 69791:               LINE   1591 "regression-compile-tmp/chimp.imp"
7690 @ 69827:               PUSH   ATOM
7691 @ 69830:               PUSHI  #0x00000038
7692 @ 69835:               JUMPIF = L_000d
7693 @ 69839:               PUSH   ATOM
7694 @ 69842:               PUSHI  #0x00000037
7695 @ 69847:               JUMPIF = L_000d
7696 @ 69851:               GOTO   L_000a
7697 @ 69854:               LOCATE L_000d

  1592          matched = 1
7698 @ 69857:               LINE   1592 "regression-compile-tmp/chimp.imp"
7699 @ 69893:               PUSH   MATCHED
7700 @ 69896:               PUSHI  #0x00000001
7701 @ 69901:               ASSVAL

  1593          item1 = item
7702 @ 69902:               LINE   1593 "regression-compile-tmp/chimp.imp"
7703 @ 69938:               PUSH   ITEM1
7704 @ 69941:               PUSH   ITEM
7705 @ 69944:               ASSVAL

  1594          %if atom = left %start
7706 @ 69945:               LINE   1594 "regression-compile-tmp/chimp.imp"
7707 @ 69981:               PUSH   ATOM
7708 @ 69984:               PUSHI  #0x00000037
7709 @ 69989:               JUMPIF # L_000d

  1595            %cycle
7710 @ 69993:               LINE   1595 "regression-compile-tmp/chimp.imp"
7711 @ 70029:               LOCATE L_000f

  1596              syntax error %if t_type < direct;  !element type
7712 @ 70032:               LINE   1596 "regression-compile-tmp/chimp.imp"
7713 @ 70068:               PUSH   T
7714 @ 70071:               SELECT 2
7715 @ 70074:               PUSHI  #0x00002000
7716 @ 70079:               JUMPIF >= L_0013
7717 @ 70083:               PUSH   SYNTAXERROR
7718 @ 70086:               CALL  
7719 @ 70087:               LOCATE L_0013

  1597              type = t_type
7720 @ 70090:               LINE   1597 "regression-compile-tmp/chimp.imp"
7721 @ 70126:               PUSH   TYPE
7722 @ 70129:               PUSH   T
7723 @ 70132:               SELECT 2
7724 @ 70135:               ASSVAL

  1598              get VALUE(t_val);  !index
7725 @ 70136:               LINE   1598 "regression-compile-tmp/chimp.imp"
7726 @ 70172:               PUSH   GETVALUE
7727 @ 70175:               PUSH   T
7728 @ 70178:               SELECT 7
7729 @ 70181:               ASSPAR
7730 @ 70182:               CALL  

  1599              item = explo;!expref(aref,item1,item,t_val)
7731 @ 70183:               LINE   1599 "regression-compile-tmp/chimp.imp"
7732 @ 70219:               PUSH   ITEM
7733 @ 70222:               PUSH   EXPLO
7734 @ 70225:               ASSVAL

  1600              ditem == dp
7735 @ 70226:               LINE   1600 "regression-compile-tmp/chimp.imp"
7736 @ 70262:               PUSH   DITEM
7737 @ 70265:               PUSH   DP
7738 @ 70268:               ASSREF

  1601              %exit %if %not a(comma)
7739 @ 70269:               LINE   1601 "regression-compile-tmp/chimp.imp"
7740 @ 70305:               PUSH   A
7741 @ 70308:               PUSHI  #0x0000003b
7742 @ 70313:               ASSPAR
7743 @ 70314:               CALL  
7744 @ 70315:               bt     L_0013
7745 @ 70318:               GOTO   L_0010
7746 @ 70321:               LOCATE L_0013

  1602              dp == dict(type&puretype);  t = dp_details
7747 @ 70324:               LINE   1602 "regression-compile-tmp/chimp.imp"
7748 @ 70360:               PUSH   DP
7749 @ 70363:               PUSH   DICT
7750 @ 70366:               PUSH   TYPE
7751 @ 70369:               PUSHI  #0x00001fff
7752 @ 70374:               AND   
7753 @ 70375:               ACCESS
7754 @ 70376:               ASSREF
7755 @ 70377:               LINE   1602 "regression-compile-tmp/chimp.imp"
7756 @ 70413:               PUSH   T
7757 @ 70416:               PUSH   DP
7758 @ 70419:               SELECT 8
7759 @ 70422:               ASSVAL

  1603              item1 = item
7760 @ 70423:               LINE   1603 "regression-compile-tmp/chimp.imp"
7761 @ 70459:               PUSH   ITEM1
7762 @ 70462:               PUSH   ITEM
7763 @ 70465:               ASSVAL

  1604            %repeat
7764 @ 70466:               LINE   1604 "regression-compile-tmp/chimp.imp"
7765 @ 70502:               REPEAT L_000f
7766 @ 70505:               LOCATE L_0010

  1605            get(right)
7767 @ 70508:               LINE   1605 "regression-compile-tmp/chimp.imp"
7768 @ 70544:               PUSH   GET
7769 @ 70547:               PUSHI  #0x0000003c
7770 @ 70552:               ASSPAR
7771 @ 70553:               CALL  

  1606          %else;  !rec subfield
7772 @ 70554:               LINE   1606 "regression-compile-tmp/chimp.imp"
7773 @ 70590:               GOTO   L_000c
7774 @ 70593:               LOCATE L_000d

  1607            syntax error %if t_type # recy
7775 @ 70596:               LINE   1607 "regression-compile-tmp/chimp.imp"
7776 @ 70632:               PUSH   T
7777 @ 70635:               SELECT 2
7778 @ 70638:               PUSHI  #0x000007fa
7779 @ 70643:               JUMPIF = L_0010
7780 @ 70647:               PUSH   SYNTAXERROR
7781 @ 70650:               CALL  
7782 @ 70651:               LOCATE L_0010

  1608            get(ident)
7783 @ 70654:               LINE   1608 "regression-compile-tmp/chimp.imp"
7784 @ 70690:               PUSH   GET
7785 @ 70693:               PUSHI  #0x00000036
7786 @ 70698:               ASSPAR
7787 @ 70699:               CALL  

  1609            lookup field ident(t_extra)
7788 @ 70700:               LINE   1609 "regression-compile-tmp/chimp.imp"
7789 @ 70736:               PUSH   LOOKUPFIELDIDENT
7790 @ 70739:               PUSH   T
7791 @ 70742:               SELECT 3
7792 @ 70745:               ASSPAR
7793 @ 70746:               CALL  

  1610            error(namerr+point) %if item <= 0
7794 @ 70747:               LINE   1610 "regression-compile-tmp/chimp.imp"
7795 @ 70783:               PUSH   ITEM
7796 @ 70786:               PUSHI  #0x00000000
7797 @ 70791:               JUMPIF > L_0010
7798 @ 70795:               PUSH   ERROR
7799 @ 70798:               PUSHI  #0x00000002
7800 @ 70803:               PUSHI  #0x00000040
7801 @ 70808:               ADD   
7802 @ 70809:               ASSPAR
7803 @ 70810:               CALL  
7804 @ 70811:               LOCATE L_0010

  1611            type = ditem_type
7805 @ 70814:               LINE   1611 "regression-compile-tmp/chimp.imp"
7806 @ 70850:               PUSH   TYPE
7807 @ 70853:               PUSH   DITEM
7808 @ 70856:               SELECT 2
7809 @ 70859:               ASSVAL

  1612            item = explo;!expref(recref,item,item1)
7810 @ 70860:               LINE   1612 "regression-compile-tmp/chimp.imp"
7811 @ 70896:               PUSH   ITEM
7812 @ 70899:               PUSH   EXPLO
7813 @ 70902:               ASSVAL

  1613          %finish
7814 @ 70903:               LINE   1613 "regression-compile-tmp/chimp.imp"
7815 @ 70939:               LOCATE L_000c

  1614        %repeat
7816 @ 70942:               LINE   1614 "regression-compile-tmp/chimp.imp"
7817 @ 70978:               REPEAT L_0009
7818 @ 70981:               LOCATE L_000a

  1615        -> final %if control&(varonly+refonly) # 0
7819 @ 70984:               LINE   1615 "regression-compile-tmp/chimp.imp"
7820 @ 71020:               PUSH   CONTROL
7821 @ 71023:               PUSHI  #0x00000800
7822 @ 71028:               PUSHI  #0x00000400
7823 @ 71033:               ADD   
7824 @ 71034:               AND   
7825 @ 71035:               PUSHI  #0x00000000
7826 @ 71040:               JUMPIF = L_000a
7827 @ 71044:               JUMP   L_0117
7828 @ 71047:               LOCATE L_000a

  1616      %finish
7829 @ 71050:               LINE   1616 "regression-compile-tmp/chimp.imp"
7830 @ 71086:               LOCATE L_0006

  1617    %else
7831 @ 71089:               LINE   1617 "regression-compile-tmp/chimp.imp"
7832 @ 71125:               GOTO   L_0003
7833 @ 71128:               LOCATE L_0004

  1618      error(nonvar+point) %if control&varonly # 0
7834 @ 71131:               LINE   1618 "regression-compile-tmp/chimp.imp"
7835 @ 71167:               PUSH   CONTROL
7836 @ 71170:               PUSHI  #0x00000800
7837 @ 71175:               AND   
7838 @ 71176:               PUSHI  #0x00000000
7839 @ 71181:               JUMPIF = L_0007
7840 @ 71185:               PUSH   ERROR
7841 @ 71188:               PUSHI  #0x0000001e
7842 @ 71193:               PUSHI  #0x00000040
7843 @ 71198:               ADD   
7844 @ 71199:               ASSPAR
7845 @ 71200:               CALL  
7846 @ 71201:               LOCATE L_0007

  1619      error(nonref+point) %if control&refonly # 0
7847 @ 71204:               LINE   1619 "regression-compile-tmp/chimp.imp"
7848 @ 71240:               PUSH   CONTROL
7849 @ 71243:               PUSHI  #0x00000400
7850 @ 71248:               AND   
7851 @ 71249:               PUSHI  #0x00000000
7852 @ 71254:               JUMPIF = L_0007
7853 @ 71258:               PUSH   ERROR
7854 @ 71261:               PUSHI  #0x0000001f
7855 @ 71266:               PUSHI  #0x00000040
7856 @ 71271:               ADD   
7857 @ 71272:               ASSPAR
7858 @ 71273:               CALL  
7859 @ 71274:               LOCATE L_0007

  1620      %if a(const) %start
7860 @ 71277:               LINE   1620 "regression-compile-tmp/chimp.imp"
7861 @ 71313:               PUSH   A
7862 @ 71316:               PUSHI  #0x00000035
7863 @ 71321:               ASSPAR
7864 @ 71322:               CALL  
7865 @ 71323:               bf     L_0007

  1621      %else %if atom = minus;  !leave unmatched
7866 @ 71326:               LINE   1621 "regression-compile-tmp/chimp.imp"
7867 @ 71362:               GOTO   L_0006
7868 @ 71365:               LOCATE L_0007
7869 @ 71368:               PUSH   ATOM
7870 @ 71371:               PUSHI  #0x00000051
7871 @ 71376:               JUMPIF # L_0007

  1622        item = 0;  t = 0;  t_type = inty
7872 @ 71380:               LINE   1622 "regression-compile-tmp/chimp.imp"
7873 @ 71416:               PUSH   ITEM
7874 @ 71419:               PUSHI  #0x00000000
7875 @ 71424:               ASSVAL
7876 @ 71425:               LINE   1622 "regression-compile-tmp/chimp.imp"
7877 @ 71461:               PUSH   T
7878 @ 71464:               PUSHI  #0x00000000
7879 @ 71469:               ASSVAL
7880 @ 71470:               LINE   1622 "regression-compile-tmp/chimp.imp"
7881 @ 71506:               PUSH   T
7882 @ 71509:               SELECT 2
7883 @ 71512:               PUSHI  #0x000007fe
7884 @ 71517:               ASSVAL

  1623      %else %if a(left)
7885 @ 71518:               LINE   1623 "regression-compile-tmp/chimp.imp"
7886 @ 71554:               GOTO   L_0006
7887 @ 71557:               LOCATE L_0007
7888 @ 71560:               PUSH   A
7889 @ 71563:               PUSHI  #0x00000037
7890 @ 71568:               ASSPAR
7891 @ 71569:               CALL  
7892 @ 71570:               bf     L_0007

  1624        %if rank < major %start;  !condition
7893 @ 71573:               LINE   1624 "regression-compile-tmp/chimp.imp"
7894 @ 71609:               PUSH   RANK
7895 @ 71612:               PUSHI  #0x00000050
7896 @ 71617:               JUMPIF >= L_000a

  1625          get EXPRESSION(cond,any)
7897 @ 71621:               LINE   1625 "regression-compile-tmp/chimp.imp"
7898 @ 71657:               PUSH   GETEXPRESSION
7899 @ 71660:               PUSHI  #0x00000040
7900 @ 71665:               ASSPAR
7901 @ 71666:               PUSHI  #0x000000ff
7902 @ 71671:               ASSPAR
7903 @ 71672:               CALL  

  1626        %finish %else %start
7904 @ 71673:               LINE   1626 "regression-compile-tmp/chimp.imp"
7905 @ 71709:               GOTO   L_0009
7906 @ 71712:               LOCATE L_000a

  1627          jammy = jammy-4
7907 @ 71715:               LINE   1627 "regression-compile-tmp/chimp.imp"
7908 @ 71751:               PUSH   JAMMY
7909 @ 71754:               PUSH   JAMMY
7910 @ 71757:               PUSHI  #0x00000004
7911 @ 71762:               SUB   
7912 @ 71763:               ASSVAL

  1628          c1 = control;  c1 = c1!intok %if c1&realok # 0
7913 @ 71764:               LINE   1628 "regression-compile-tmp/chimp.imp"
7914 @ 71800:               PUSH   C1
7915 @ 71803:               PUSH   CONTROL
7916 @ 71806:               ASSVAL
7917 @ 71807:               LINE   1628 "regression-compile-tmp/chimp.imp"
7918 @ 71843:               PUSH   C1
7919 @ 71846:               PUSHI  #0x00000008
7920 @ 71851:               AND   
7921 @ 71852:               PUSHI  #0x00000000
7922 @ 71857:               JUMPIF = L_000d
7923 @ 71861:               PUSH   C1
7924 @ 71864:               PUSH   C1
7925 @ 71867:               PUSHI  #0x00000010
7926 @ 71872:               OR    
7927 @ 71873:               ASSVAL
7928 @ 71874:               LOCATE L_000d

  1629          get EXPRESSION(major,c1)
7929 @ 71877:               LINE   1629 "regression-compile-tmp/chimp.imp"
7930 @ 71913:               PUSH   GETEXPRESSION
7931 @ 71916:               PUSHI  #0x00000050
7932 @ 71921:               ASSPAR
7933 @ 71922:               PUSH   C1
7934 @ 71925:               ASSPAR
7935 @ 71926:               CALL  

  1630          jammy = jammy+4
7936 @ 71927:               LINE   1630 "regression-compile-tmp/chimp.imp"
7937 @ 71963:               PUSH   JAMMY
7938 @ 71966:               PUSH   JAMMY
7939 @ 71969:               PUSHI  #0x00000004
7940 @ 71974:               ADD   
7941 @ 71975:               ASSVAL

  1631        %finish
7942 @ 71976:               LINE   1631 "regression-compile-tmp/chimp.imp"
7943 @ 72012:               LOCATE L_0009

  1632        get(right)
7944 @ 72015:               LINE   1632 "regression-compile-tmp/chimp.imp"
7945 @ 72051:               PUSH   GET
7946 @ 72054:               PUSHI  #0x0000003c
7947 @ 72059:               ASSPAR
7948 @ 72060:               CALL  

  1633      %else %if a(keynot)
7949 @ 72061:               LINE   1633 "regression-compile-tmp/chimp.imp"
7950 @ 72097:               GOTO   L_0006
7951 @ 72100:               LOCATE L_0007
7952 @ 72103:               PUSH   A
7953 @ 72106:               PUSHI  #0x0000002f
7954 @ 72111:               ASSPAR
7955 @ 72112:               CALL  
7956 @ 72113:               bf     L_0007

  1634        syntax error %if rank >= major
7957 @ 72116:               LINE   1634 "regression-compile-tmp/chimp.imp"
7958 @ 72152:               PUSH   RANK
7959 @ 72155:               PUSHI  #0x00000050
7960 @ 72160:               JUMPIF < L_000a
7961 @ 72164:               PUSH   SYNTAXERROR
7962 @ 72167:               CALL  
7963 @ 72168:               LOCATE L_000a

  1635        get EXPRESSION(scond,any)
7964 @ 72171:               LINE   1635 "regression-compile-tmp/chimp.imp"
7965 @ 72207:               PUSH   GETEXPRESSION
7966 @ 72210:               PUSHI  #0x00000046
7967 @ 72215:               ASSPAR
7968 @ 72216:               PUSHI  #0x000000ff
7969 @ 72221:               ASSPAR
7970 @ 72222:               CALL  

  1636        %if item = 0 %then t_val = t_val!!true %c
  1637        %else item = explo;!expref(boolnot,item,0)
7971 @ 72223:               LINE   1636 "regression-compile-tmp/chimp.imp"
7972 @ 72259:               PUSH   ITEM
7973 @ 72262:               PUSHI  #0x00000000
7974 @ 72267:               JUMPIF # L_000a
7975 @ 72271:               PUSH   T
7976 @ 72274:               SELECT 7
7977 @ 72277:               PUSH   T
7978 @ 72280:               SELECT 7
7979 @ 72283:               PUSHI  #0x00000001
7980 @ 72288:               XOR   
7981 @ 72289:               ASSVAL
7982 @ 72290:               GOTO   L_0009
7983 @ 72293:               LOCATE L_000a
7984 @ 72296:               PUSH   ITEM
7985 @ 72299:               PUSH   EXPLO
7986 @ 72302:               ASSVAL
7987 @ 72303:               LOCATE L_0009

  1638      %else %if atom = backslash
7988 @ 72306:               LINE   1638 "regression-compile-tmp/chimp.imp"
7989 @ 72342:               GOTO   L_0006
7990 @ 72345:               LOCATE L_0007
7991 @ 72348:               PUSH   ATOM
7992 @ 72351:               PUSHI  #0x00000060
7993 @ 72356:               JUMPIF # L_0007

  1639        item = 0;  t = 0;  t_type = inty
7994 @ 72360:               LINE   1639 "regression-compile-tmp/chimp.imp"
7995 @ 72396:               PUSH   ITEM
7996 @ 72399:               PUSHI  #0x00000000
7997 @ 72404:               ASSVAL
7998 @ 72405:               LINE   1639 "regression-compile-tmp/chimp.imp"
7999 @ 72441:               PUSH   T
8000 @ 72444:               PUSHI  #0x00000000
8001 @ 72449:               ASSVAL
8002 @ 72450:               LINE   1639 "regression-compile-tmp/chimp.imp"
8003 @ 72486:               PUSH   T
8004 @ 72489:               SELECT 2
8005 @ 72492:               PUSHI  #0x000007fe
8006 @ 72497:               ASSVAL

  1640        atom = tilde
8007 @ 72498:               LINE   1640 "regression-compile-tmp/chimp.imp"
8008 @ 72534:               PUSH   ATOM
8009 @ 72537:               PUSHI  #0x00000066
8010 @ 72542:               ASSVAL

  1641      %else %if a(modsign)
8011 @ 72543:               LINE   1641 "regression-compile-tmp/chimp.imp"
8012 @ 72579:               GOTO   L_0006
8013 @ 72582:               LOCATE L_0007
8014 @ 72585:               PUSH   A
8015 @ 72588:               PUSHI  #0x00000039
8016 @ 72593:               ASSPAR
8017 @ 72594:               CALL  
8018 @ 72595:               bf     L_0007

  1642        fault(typerr+point) %if control&arithok = 0
8019 @ 72598:               LINE   1642 "regression-compile-tmp/chimp.imp"
8020 @ 72634:               PUSH   CONTROL
8021 @ 72637:               PUSHI  #0x00000018
8022 @ 72642:               AND   
8023 @ 72643:               PUSHI  #0x00000000
8024 @ 72648:               JUMPIF # L_000a
8025 @ 72652:               PUSH   FAULT
8026 @ 72655:               PUSHI  #0x00000006
8027 @ 72660:               PUSHI  #0x00000040
8028 @ 72665:               ADD   
8029 @ 72666:               ASSPAR
8030 @ 72667:               CALL  
8031 @ 72668:               LOCATE L_000a

  1643        get EXPRESSION(major,arithok)
8032 @ 72671:               LINE   1643 "regression-compile-tmp/chimp.imp"
8033 @ 72707:               PUSH   GETEXPRESSION
8034 @ 72710:               PUSHI  #0x00000050
8035 @ 72715:               ASSPAR
8036 @ 72716:               PUSHI  #0x00000018
8037 @ 72721:               ASSPAR
8038 @ 72722:               CALL  

  1644        get(modsign)
8039 @ 72723:               LINE   1644 "regression-compile-tmp/chimp.imp"
8040 @ 72759:               PUSH   GET
8041 @ 72762:               PUSHI  #0x00000039
8042 @ 72767:               ASSPAR
8043 @ 72768:               CALL  

  1645        %if item = 0 %start
8044 @ 72769:               LINE   1645 "regression-compile-tmp/chimp.imp"
8045 @ 72805:               PUSH   ITEM
8046 @ 72808:               PUSHI  #0x00000000
8047 @ 72813:               JUMPIF # L_000a

  1646          %if t_val < 0 %start
8048 @ 72817:               LINE   1646 "regression-compile-tmp/chimp.imp"
8049 @ 72853:               PUSH   T
8050 @ 72856:               SELECT 7
8051 @ 72859:               PUSHI  #0x00000000
8052 @ 72864:               JUMPIF >= L_000d

  1647            %if t_val # minint %then t_val = -t_val %else expfault(rangerr)
8053 @ 72868:               LINE   1647 "regression-compile-tmp/chimp.imp"
8054 @ 72904:               PUSH   T
8055 @ 72907:               SELECT 7
8056 @ 72910:               PUSHI  #0x80000000
8057 @ 72915:               JUMPIF = L_0010
8058 @ 72919:               PUSH   T
8059 @ 72922:               SELECT 7
8060 @ 72925:               PUSH   T
8061 @ 72928:               SELECT 7
8062 @ 72931:               NEGATE
8063 @ 72932:               ASSVAL
8064 @ 72933:               GOTO   L_000f
8065 @ 72936:               LOCATE L_0010
8066 @ 72939:               PUSH   EXPFAULT
8067 @ 72942:               PUSHI  #0x0000000c
8068 @ 72947:               ASSPAR
8069 @ 72948:               CALL  
8070 @ 72949:               LOCATE L_000f

  1648          %finish
8071 @ 72952:               LINE   1648 "regression-compile-tmp/chimp.imp"
8072 @ 72988:               LOCATE L_000d

  1649        %else %if t_type = inty
8073 @ 72991:               LINE   1649 "regression-compile-tmp/chimp.imp"
8074 @ 73027:               GOTO   L_0009
8075 @ 73030:               LOCATE L_000a
8076 @ 73033:               PUSH   T
8077 @ 73036:               SELECT 2
8078 @ 73039:               PUSHI  #0x000007fe
8079 @ 73044:               JUMPIF # L_000a

  1650          item = explo;!expref(imod,item,0)
8080 @ 73048:               LINE   1650 "regression-compile-tmp/chimp.imp"
8081 @ 73084:               PUSH   ITEM
8082 @ 73087:               PUSH   EXPLO
8083 @ 73090:               ASSVAL

  1651        %else %if t_type = realy
8084 @ 73091:               LINE   1651 "regression-compile-tmp/chimp.imp"
8085 @ 73127:               GOTO   L_0009
8086 @ 73130:               LOCATE L_000a
8087 @ 73133:               PUSH   T
8088 @ 73136:               SELECT 2
8089 @ 73139:               PUSHI  #0x000007fd
8090 @ 73144:               JUMPIF # L_000a

  1652          item = explo;!expref(fmod,item,0)
8091 @ 73148:               LINE   1652 "regression-compile-tmp/chimp.imp"
8092 @ 73184:               PUSH   ITEM
8093 @ 73187:               PUSH   EXPLO
8094 @ 73190:               ASSVAL

  1653        %else
8095 @ 73191:               LINE   1653 "regression-compile-tmp/chimp.imp"
8096 @ 73227:               GOTO   L_0009
8097 @ 73230:               LOCATE L_000a

  1654          error(typerr)
8098 @ 73233:               LINE   1654 "regression-compile-tmp/chimp.imp"
8099 @ 73269:               PUSH   ERROR
8100 @ 73272:               PUSHI  #0x00000006
8101 @ 73277:               ASSPAR
8102 @ 73278:               CALL  

  1655        %finish
8103 @ 73279:               LINE   1655 "regression-compile-tmp/chimp.imp"
8104 @ 73315:               LOCATE L_0009

  1656      %else
8105 @ 73318:               LINE   1656 "regression-compile-tmp/chimp.imp"
8106 @ 73354:               GOTO   L_0006
8107 @ 73357:               LOCATE L_0007

  1657        syntax error
8108 @ 73360:               LINE   1657 "regression-compile-tmp/chimp.imp"
8109 @ 73396:               PUSH   SYNTAXERROR
8110 @ 73399:               CALL  

  1658      %finish
8111 @ 73400:               LINE   1658 "regression-compile-tmp/chimp.imp"
8112 @ 73436:               LOCATE L_0006

  1659    %finish
8113 @ 73439:               LINE   1659 "regression-compile-tmp/chimp.imp"
8114 @ 73475:               LOCATE L_0003

  1660    atom = next atom %if matched # 0
8115 @ 73478:               LINE   1660 "regression-compile-tmp/chimp.imp"
8116 @ 73514:               PUSH   MATCHED
8117 @ 73517:               PUSHI  #0x00000000
8118 @ 73522:               JUMPIF = L_0004
8119 @ 73526:               PUSH   ATOM
8120 @ 73529:               PUSH   NEXTATOM
8121 @ 73532:               CALL  
8122 @ 73533:               ASSVAL
8123 @ 73534:               LOCATE L_0004

  1661    %while atom >= rank %cycle
8124 @ 73537:               LINE   1661 "regression-compile-tmp/chimp.imp"
8125 @ 73573:               LOCATE L_0003
8126 @ 73576:               PUSH   ATOM
8127 @ 73579:               PUSH   RANK
8128 @ 73582:               JUMPIF < L_0004

  1662      op = atom;  matched = 1
8129 @ 73586:               LINE   1662 "regression-compile-tmp/chimp.imp"
8130 @ 73622:               PUSH   OP
8131 @ 73625:               PUSH   ATOM
8132 @ 73628:               ASSVAL
8133 @ 73629:               LINE   1662 "regression-compile-tmp/chimp.imp"
8134 @ 73665:               PUSH   MATCHED
8135 @ 73668:               PUSHI  #0x00000001
8136 @ 73673:               ASSVAL

  1663      opok = opbits(op);  c1 = compat(opok);  ![may change ITEM,T_TYPE]
8137 @ 73674:               LINE   1663 "regression-compile-tmp/chimp.imp"
8138 @ 73710:               PUSH   OPOK
8139 @ 73713:               PUSH   OPBITS
8140 @ 73716:               PUSH   OP
8141 @ 73719:               ACCESS
8142 @ 73720:               ASSVAL
8143 @ 73721:               LINE   1663 "regression-compile-tmp/chimp.imp"
8144 @ 73757:               PUSH   C1
8145 @ 73760:               PUSH   COMPAT
8146 @ 73763:               PUSH   OPOK
8147 @ 73766:               ASSPAR
8148 @ 73767:               CALL  
8149 @ 73768:               ASSVAL

  1664      fault(typerr+point) %if c1 = 0
8150 @ 73769:               LINE   1664 "regression-compile-tmp/chimp.imp"
8151 @ 73805:               PUSH   C1
8152 @ 73808:               PUSHI  #0x00000000
8153 @ 73813:               JUMPIF # L_0007
8154 @ 73817:               PUSH   FAULT
8155 @ 73820:               PUSHI  #0x00000006
8156 @ 73825:               PUSHI  #0x00000040
8157 @ 73830:               ADD   
8158 @ 73831:               ASSPAR
8159 @ 73832:               CALL  
8160 @ 73833:               LOCATE L_0007

  1665      item1 = item;  t1 = t
8161 @ 73836:               LINE   1665 "regression-compile-tmp/chimp.imp"
8162 @ 73872:               PUSH   ITEM1
8163 @ 73875:               PUSH   ITEM
8164 @ 73878:               ASSVAL
8165 @ 73879:               LINE   1665 "regression-compile-tmp/chimp.imp"
8166 @ 73915:               PUSH   T1
8167 @ 73918:               PUSH   T
8168 @ 73921:               ASSVAL

  1666      %if op >= major %start;  !non-conditional
8169 @ 73922:               LINE   1666 "regression-compile-tmp/chimp.imp"
8170 @ 73958:               PUSH   OP
8171 @ 73961:               PUSHI  #0x00000050
8172 @ 73966:               JUMPIF < L_0007

  1667        %if op = dot %then get EXPRESSION(dot,stringok) {right-associate} %c
  1668        %else get EXPRESSION(op&(\7)+8,c1)
8173 @ 73970:               LINE   1667 "regression-compile-tmp/chimp.imp"
8174 @ 74006:               PUSH   OP
8175 @ 74009:               PUSHI  #0x00000054
8176 @ 74014:               JUMPIF # L_000a
8177 @ 74018:               PUSH   GETEXPRESSION
8178 @ 74021:               PUSHI  #0x00000054
8179 @ 74026:               ASSPAR
8180 @ 74027:               PUSHI  #0x00000004
8181 @ 74032:               ASSPAR
8182 @ 74033:               CALL  
8183 @ 74034:               GOTO   L_0009
8184 @ 74037:               LOCATE L_000a
8185 @ 74040:               PUSH   GETEXPRESSION
8186 @ 74043:               PUSH   OP
8187 @ 74046:               PUSHI  #0x00000007
8188 @ 74051:               NOT   
8189 @ 74052:               AND   
8190 @ 74053:               PUSHI  #0x00000008
8191 @ 74058:               ADD   
8192 @ 74059:               ASSPAR
8193 @ 74060:               PUSH   C1
8194 @ 74063:               ASSPAR
8195 @ 74064:               CALL  
8196 @ 74065:               LOCATE L_0009

  1669        %if t_type = realy %and t1_type = inty %start
8197 @ 74068:               LINE   1669 "regression-compile-tmp/chimp.imp"
8198 @ 74104:               PUSH   T
8199 @ 74107:               SELECT 2
8200 @ 74110:               PUSHI  #0x000007fd
8201 @ 74115:               JUMPIF # L_000a
8202 @ 74119:               PUSH   T1
8203 @ 74122:               SELECT 2
8204 @ 74125:               PUSHI  #0x000007fe
8205 @ 74130:               JUMPIF # L_000a

  1670          item1 = floated(item1);  t1_type = realy
8206 @ 74134:               LINE   1670 "regression-compile-tmp/chimp.imp"
8207 @ 74170:               PUSH   ITEM1
8208 @ 74173:               PUSH   FLOATED
8209 @ 74176:               PUSH   ITEM1
8210 @ 74179:               ASSPAR
8211 @ 74180:               CALL  
8212 @ 74181:               ASSVAL
8213 @ 74182:               LINE   1670 "regression-compile-tmp/chimp.imp"
8214 @ 74218:               PUSH   T1
8215 @ 74221:               SELECT 2
8216 @ 74224:               PUSHI  #0x000007fd
8217 @ 74229:               ASSVAL

  1671        %finish
  1672  !      op = op+? %if t_type = realy %and opok&intok # 0
8218 @ 74230:               LINE   1671 "regression-compile-tmp/chimp.imp"
8219 @ 74266:               LOCATE L_000a

  1673      %else
8220 @ 74269:               LINE   1673 "regression-compile-tmp/chimp.imp"
8221 @ 74305:               GOTO   L_0006
8222 @ 74308:               LOCATE L_0007

  1674         %if op = resolve %start
8223 @ 74311:               LINE   1674 "regression-compile-tmp/chimp.imp"
8224 @ 74347:               PUSH   OP
8225 @ 74350:               PUSHI  #0x0000004f
8226 @ 74355:               JUMPIF # L_000a

  1675           get RESOLUTION
8227 @ 74359:               LINE   1675 "regression-compile-tmp/chimp.imp"
8228 @ 74395:               PUSH   GETRESOLUTION
8229 @ 74398:               CALL  

  1676        %else %if op >= eqeq
8230 @ 74399:               LINE   1676 "regression-compile-tmp/chimp.imp"
8231 @ 74435:               GOTO   L_0009
8232 @ 74438:               LOCATE L_000a
8233 @ 74441:               PUSH   OP
8234 @ 74444:               PUSHI  #0x0000004c
8235 @ 74449:               JUMPIF < L_000a

  1677          get EXPRESSION(simple,any+refonly)
8236 @ 74453:               LINE   1677 "regression-compile-tmp/chimp.imp"
8237 @ 74489:               PUSH   GETEXPRESSION
8238 @ 74492:               PUSHI  #0x00000068
8239 @ 74497:               ASSPAR
8240 @ 74498:               PUSHI  #0x000000ff
8241 @ 74503:               PUSHI  #0x00000400
8242 @ 74508:               ADD   
8243 @ 74509:               ASSPAR
8244 @ 74510:               CALL  

  1678        %else %if op >= equals
8245 @ 74511:               LINE   1678 "regression-compile-tmp/chimp.imp"
8246 @ 74547:               GOTO   L_0009
8247 @ 74550:               LOCATE L_000a
8248 @ 74553:               PUSH   OP
8249 @ 74556:               PUSHI  #0x00000046
8250 @ 74561:               JUMPIF < L_000a

  1679          get EXPRESSION(major,c1)
8251 @ 74565:               LINE   1679 "regression-compile-tmp/chimp.imp"
8252 @ 74601:               PUSH   GETEXPRESSION
8253 @ 74604:               PUSHI  #0x00000050
8254 @ 74609:               ASSPAR
8255 @ 74610:               PUSH   C1
8256 @ 74613:               ASSPAR
8257 @ 74614:               CALL  

  1680          %if equals <= atom < eqeq %start
8258 @ 74615:               LINE   1680 "regression-compile-tmp/chimp.imp"
8259 @ 74651:               PUSHI  #0x00000046
8260 @ 74656:               PUSH   ATOM
8261 @ 74659:               JUMPIFD > L_000d
8262 @ 74663:               PUSHI  #0x0000004c
8263 @ 74668:               JUMPIF >= L_000d

  1681            op = atom;  matched = 1
8264 @ 74672:               LINE   1681 "regression-compile-tmp/chimp.imp"
8265 @ 74708:               PUSH   OP
8266 @ 74711:               PUSH   ATOM
8267 @ 74714:               ASSVAL
8268 @ 74715:               LINE   1681 "regression-compile-tmp/chimp.imp"
8269 @ 74751:               PUSH   MATCHED
8270 @ 74754:               PUSHI  #0x00000001
8271 @ 74759:               ASSVAL

  1682            get EXPRESSION(major,c1)
8272 @ 74760:               LINE   1682 "regression-compile-tmp/chimp.imp"
8273 @ 74796:               PUSH   GETEXPRESSION
8274 @ 74799:               PUSHI  #0x00000050
8275 @ 74804:               ASSPAR
8276 @ 74805:               PUSH   C1
8277 @ 74808:               ASSPAR
8278 @ 74809:               CALL  

  1683          %finish
8279 @ 74810:               LINE   1683 "regression-compile-tmp/chimp.imp"
8280 @ 74846:               LOCATE L_000d

  1684          %if t_type = realy %and t1_type = inty %start
8281 @ 74849:               LINE   1684 "regression-compile-tmp/chimp.imp"
8282 @ 74885:               PUSH   T
8283 @ 74888:               SELECT 2
8284 @ 74891:               PUSHI  #0x000007fd
8285 @ 74896:               JUMPIF # L_000d
8286 @ 74900:               PUSH   T1
8287 @ 74903:               SELECT 2
8288 @ 74906:               PUSHI  #0x000007fe
8289 @ 74911:               JUMPIF # L_000d

  1685            item1 = floated(item1);  t1_type = realy
8290 @ 74915:               LINE   1685 "regression-compile-tmp/chimp.imp"
8291 @ 74951:               PUSH   ITEM1
8292 @ 74954:               PUSH   FLOATED
8293 @ 74957:               PUSH   ITEM1
8294 @ 74960:               ASSPAR
8295 @ 74961:               CALL  
8296 @ 74962:               ASSVAL
8297 @ 74963:               LINE   1685 "regression-compile-tmp/chimp.imp"
8298 @ 74999:               PUSH   T1
8299 @ 75002:               SELECT 2
8300 @ 75005:               PUSHI  #0x000007fd
8301 @ 75010:               ASSVAL

  1686          %finish
8302 @ 75011:               LINE   1686 "regression-compile-tmp/chimp.imp"
8303 @ 75047:               LOCATE L_000d

  1687        %else
8304 @ 75050:               LINE   1687 "regression-compile-tmp/chimp.imp"
8305 @ 75086:               GOTO   L_0009
8306 @ 75089:               LOCATE L_000a

  1688          get EXPRESSION(scond,any)
8307 @ 75092:               LINE   1688 "regression-compile-tmp/chimp.imp"
8308 @ 75128:               PUSH   GETEXPRESSION
8309 @ 75131:               PUSHI  #0x00000046
8310 @ 75136:               ASSPAR
8311 @ 75137:               PUSHI  #0x000000ff
8312 @ 75142:               ASSPAR
8313 @ 75143:               CALL  

  1689          %if atom >= cond %start
8314 @ 75144:               LINE   1689 "regression-compile-tmp/chimp.imp"
8315 @ 75180:               PUSH   ATOM
8316 @ 75183:               PUSHI  #0x00000040
8317 @ 75188:               JUMPIF < L_000d

  1690            syntax error %if atom # op
8318 @ 75192:               LINE   1690 "regression-compile-tmp/chimp.imp"
8319 @ 75228:               PUSH   ATOM
8320 @ 75231:               PUSH   OP
8321 @ 75234:               JUMPIF = L_0010
8322 @ 75238:               PUSH   SYNTAXERROR
8323 @ 75241:               CALL  
8324 @ 75242:               LOCATE L_0010

  1691          %finish
8325 @ 75245:               LINE   1691 "regression-compile-tmp/chimp.imp"
8326 @ 75281:               LOCATE L_000d

  1692        %finish
8327 @ 75284:               LINE   1692 "regression-compile-tmp/chimp.imp"
8328 @ 75320:               LOCATE L_0009

  1693        t_type = booltype
8329 @ 75323:               LINE   1693 "regression-compile-tmp/chimp.imp"
8330 @ 75359:               PUSH   T
8331 @ 75362:               SELECT 2
8332 @ 75365:               PUSHI  #0x00000800
8333 @ 75370:               ASSVAL

  1694        t_low = 0 %and t_val = 1 %if item # 0
8334 @ 75371:               LINE   1694 "regression-compile-tmp/chimp.imp"
8335 @ 75407:               PUSH   ITEM
8336 @ 75410:               PUSHI  #0x00000000
8337 @ 75415:               JUMPIF = L_000a
8338 @ 75419:               PUSH   T
8339 @ 75422:               SELECT 6
8340 @ 75425:               PUSHI  #0x00000000
8341 @ 75430:               ASSVAL
8342 @ 75431:               PUSH   T
8343 @ 75434:               SELECT 7
8344 @ 75437:               PUSHI  #0x00000001
8345 @ 75442:               ASSVAL
8346 @ 75443:               LOCATE L_000a

  1695      %finish
8347 @ 75446:               LINE   1695 "regression-compile-tmp/chimp.imp"
8348 @ 75482:               LOCATE L_0006

  1696      %if item1 = 0 %start;  !first operand literal
8349 @ 75485:               LINE   1696 "regression-compile-tmp/chimp.imp"
8350 @ 75521:               PUSH   ITEM1
8351 @ 75524:               PUSHI  #0x00000000
8352 @ 75529:               JUMPIF # L_0007

  1697        %if item = 0 %start;  !both literal
8353 @ 75533:               LINE   1697 "regression-compile-tmp/chimp.imp"
8354 @ 75569:               PUSH   ITEM
8355 @ 75572:               PUSHI  #0x00000000
8356 @ 75577:               JUMPIF # L_000a

  1698          t_val = litval
8357 @ 75581:               LINE   1698 "regression-compile-tmp/chimp.imp"
8358 @ 75617:               PUSH   T
8359 @ 75620:               SELECT 7
8360 @ 75623:               PUSH   LITVAL
8361 @ 75626:               CALL  
8362 @ 75627:               ASSVAL

  1699          %continue %if item = 0
  1700  !        item1 = litref(t1_val)
  1701  !     %else %if inverse(op) # 0;  !invertable
  1702  !        op = inverse(op)
  1703  !        temp = t;  t = t1;  t1 = temp;  !standardise order
  1704  !        item1 = item;  item = 0
8363 @ 75628:               LINE   1699 "regression-compile-tmp/chimp.imp"
8364 @ 75664:               PUSH   ITEM
8365 @ 75667:               PUSHI  #0x00000000
8366 @ 75672:               JUMPIF # L_000d
8367 @ 75676:               GOTO   L_0005
8368 @ 75679:               LOCATE L_000d

  1705        %else
  1706  !        item1 = litref(t1_val)
8369 @ 75682:               LINE   1705 "regression-compile-tmp/chimp.imp"
8370 @ 75718:               GOTO   L_0009
8371 @ 75721:               LOCATE L_000a

  1707        %finish
8372 @ 75724:               LINE   1707 "regression-compile-tmp/chimp.imp"
8373 @ 75760:               LOCATE L_0009

  1708      %finish
8374 @ 75763:               LINE   1708 "regression-compile-tmp/chimp.imp"
8375 @ 75799:               LOCATE L_0007

  1709      %if item = 0 %start;  !second operand literal
8376 @ 75802:               LINE   1709 "regression-compile-tmp/chimp.imp"
8377 @ 75838:               PUSH   ITEM
8378 @ 75841:               PUSHI  #0x00000000
8379 @ 75846:               JUMPIF # L_0007

  1710        %if op = minus %and t_type = inty %start;  !standardise
8380 @ 75850:               LINE   1710 "regression-compile-tmp/chimp.imp"
8381 @ 75886:               PUSH   OP
8382 @ 75889:               PUSHI  #0x00000051
8383 @ 75894:               JUMPIF # L_000a
8384 @ 75898:               PUSH   T
8385 @ 75901:               SELECT 2
8386 @ 75904:               PUSHI  #0x000007fe
8387 @ 75909:               JUMPIF # L_000a

  1711          t_val = -t_val %if t_val # minint;  op = plus
8388 @ 75913:               LINE   1711 "regression-compile-tmp/chimp.imp"
8389 @ 75949:               PUSH   T
8390 @ 75952:               SELECT 7
8391 @ 75955:               PUSHI  #0x80000000
8392 @ 75960:               JUMPIF = L_000d
8393 @ 75964:               PUSH   T
8394 @ 75967:               SELECT 7
8395 @ 75970:               PUSH   T
8396 @ 75973:               SELECT 7
8397 @ 75976:               NEGATE
8398 @ 75977:               ASSVAL
8399 @ 75978:               LOCATE L_000d
8400 @ 75981:               LINE   1711 "regression-compile-tmp/chimp.imp"
8401 @ 76017:               PUSH   OP
8402 @ 76020:               PUSHI  #0x00000050
8403 @ 76025:               ASSVAL

  1712        %finish
8404 @ 76026:               LINE   1712 "regression-compile-tmp/chimp.imp"
8405 @ 76062:               LOCATE L_000a

  1713        item = item1 %and %continue %if t_val = 0 %and opok&znop # 0
8406 @ 76065:               LINE   1713 "regression-compile-tmp/chimp.imp"
8407 @ 76101:               PUSH   T
8408 @ 76104:               SELECT 7
8409 @ 76107:               PUSHI  #0x00000000
8410 @ 76112:               JUMPIF # L_000a
8411 @ 76116:               PUSH   OPOK
8412 @ 76119:               PUSHI  #0x00000200
8413 @ 76124:               AND   
8414 @ 76125:               PUSHI  #0x00000000
8415 @ 76130:               JUMPIF = L_000a
8416 @ 76134:               PUSH   ITEM
8417 @ 76137:               PUSH   ITEM1
8418 @ 76140:               ASSVAL
8419 @ 76141:               GOTO   L_0005
8420 @ 76144:               LOCATE L_000a

  1714      %finish
8421 @ 76147:               LINE   1714 "regression-compile-tmp/chimp.imp"
8422 @ 76183:               LOCATE L_0007

  1715      item = explo;!expref(op,item1,item,t_val)
8423 @ 76186:               LINE   1715 "regression-compile-tmp/chimp.imp"
8424 @ 76222:               PUSH   ITEM
8425 @ 76225:               PUSH   EXPLO
8426 @ 76228:               ASSVAL

  1716      t_low = minint;  t_val = maxint;  !?real
8427 @ 76229:               LINE   1716 "regression-compile-tmp/chimp.imp"
8428 @ 76265:               PUSH   T
8429 @ 76268:               SELECT 6
8430 @ 76271:               PUSHI  #0x80000000
8431 @ 76276:               ASSVAL
8432 @ 76277:               LINE   1716 "regression-compile-tmp/chimp.imp"
8433 @ 76313:               PUSH   T
8434 @ 76316:               SELECT 7
8435 @ 76319:               PUSHI  #0x7fffffff
8436 @ 76324:               ASSVAL

  1717    %repeat
8437 @ 76325:               LINE   1717 "regression-compile-tmp/chimp.imp"
8438 @ 76361:               LOCATE L_0005
8439 @ 76364:               REPEAT L_0003
8440 @ 76367:               LOCATE L_0004

  1718  final:
8441 @ 76370:               LINE   1718 "regression-compile-tmp/chimp.imp"
8442 @ 76406:               LABEL  L_0117

  1719    expp = atomp1;  !restore to start
8443 @ 76409:               LINE   1719 "regression-compile-tmp/chimp.imp"
8444 @ 76445:               PUSH   EXPP
8445 @ 76448:               PUSH   ATOMP1
8446 @ 76451:               ASSVAL

  1720    expfault(typerr) %if compat(control) = 0
8447 @ 76452:               LINE   1720 "regression-compile-tmp/chimp.imp"
8448 @ 76488:               PUSH   COMPAT
8449 @ 76491:               PUSH   CONTROL
8450 @ 76494:               ASSPAR
8451 @ 76495:               CALL  
8452 @ 76496:               PUSHI  #0x00000000
8453 @ 76501:               JUMPIF # L_0004
8454 @ 76505:               PUSH   EXPFAULT
8455 @ 76508:               PUSHI  #0x00000006
8456 @ 76513:               ASSPAR
8457 @ 76514:               CALL  
8458 @ 76515:               LOCATE L_0004

  1721  %end;  !get EXPRESSION
  1722    
  1723  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1724  !!!!!!!!!!!!!!!!!!!!  Conditions and loops  !!!!!!!!!!!!!!!!!!!!
  1725  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1726  !
8459 @ 76518:               LINE   1721 "regression-compile-tmp/chimp.imp"
8460 @ 76554:            END    _ECCECI_GETEXPRESSION {lev=2 --> 1}

  1727  %routine GET CONDITION
8461 @ 76555:            LINE   1727 "regression-compile-tmp/chimp.imp"
8462 @ 76591:            DEF    GETCONDITION (_ECCECI_GETCONDITION) p1=V_010b a/tf=7 b/format=0 c/ostate=0  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8463 @ 76615:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8464 @ 76616:               FINISH ) {lev=2}

  1728  %integer polarity
8465 @ 76617:               LINE   1728 "regression-compile-tmp/chimp.imp"
8466 @ 76653:               DEF    POLARITY p1=V_010c a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  1729    polarity = subatom
8467 @ 76673:               LINE   1729 "regression-compile-tmp/chimp.imp"
8468 @ 76709:               PUSH   POLARITY
8469 @ 76712:               PUSH   SUBATOM
8470 @ 76715:               ASSVAL

  1730    condnp = np
8471 @ 76716:               LINE   1730 "regression-compile-tmp/chimp.imp"
8472 @ 76752:               PUSH   CONDNP
8473 @ 76755:               PUSH   NP
8474 @ 76758:               ASSVAL

  1731    get EXPRESSION(cond,any)
  1732  !  put3(jump+polarity,item,0)
8475 @ 76759:               LINE   1731 "regression-compile-tmp/chimp.imp"
8476 @ 76795:               PUSH   GETEXPRESSION
8477 @ 76798:               PUSHI  #0x00000040
8478 @ 76803:               ASSPAR
8479 @ 76804:               PUSHI  #0x000000ff
8480 @ 76809:               ASSPAR
8481 @ 76810:               CALL  

  1733  %end;  !get CONDITION
  1734  
8482 @ 76811:               LINE   1733 "regression-compile-tmp/chimp.imp"
8483 @ 76847:            END    _ECCECI_GETCONDITION {lev=2 --> 1}

  1735  %routine GET STATEMENTS(%integer stopper)
8484 @ 76848:            LINE   1735 "regression-compile-tmp/chimp.imp"
8485 @ 76884:            DEF    GETSTATEMENTS (_ECCECI_GETSTATEMENTS) p1=V_010c 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
8486 @ 76909:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8487 @ 76910:                  DEF    STOPPER p1=V_010d a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8488 @ 76929:               FINISH ) {lev=2}

  1736  %integer holdnp,holdlooplab
8489 @ 76930:               LINE   1736 "regression-compile-tmp/chimp.imp"
8490 @ 76966:               DEF    HOLDNP p1=V_010e a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8491 @ 76984:               DEF    HOLDLOOPLAB p1=V_010f a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  1737  %switch initial(0:atommax)
  1738  
8492 @ 77007:               LINE   1737 "regression-compile-tmp/chimp.imp"
8493 @ 77043:               PUSHI  #0x00000000
8494 @ 77048:               PUSHI  #0x0000006b
8495 @ 77053:               BOUNDS
8496 @ 77054:               DEF    INITIAL p1=V_0110 a/tf=6 b/format=0 c/ostate=0  type=0 (<type:0>) form=6 (switch) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  1739  %routine GET INSTRUCTION
8497 @ 77073:               LINE   1739 "regression-compile-tmp/chimp.imp"
8498 @ 77109:               DEF    GETINSTRUCTION (_ECCECI_GETSTATEMENTS_GETINSTRUCTION) p1=V_0111 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
8499 @ 77135:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
8500 @ 77136:                  FINISH ) {lev=3}

  1740  %integer item1,hold,act
8501 @ 77137:                  LINE   1740 "regression-compile-tmp/chimp.imp"
8502 @ 77173:                  DEF    ITEM1 p1=V_0112 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8503 @ 77190:                  DEF    HOLD p1=V_0113 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
8504 @ 77206:                  DEF    ACT p1=V_0114 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  1741  %record(identinfo)%name ditem1
8505 @ 77221:                  LINE   1741 "regression-compile-tmp/chimp.imp"
8506 @ 77257:                  DEF    DITEM1 p1=V_0115 a/tf=42 b/format=9a c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  1742  %routine putact
  1743  !  put3(act,t_val,hold)
8507 @ 77275:                  LINE   1742 "regression-compile-tmp/chimp.imp"
8508 @ 77311:                  DEF    PUTACT (_ECCECI_GETSTATEMENTS_GETINSTRUCTION_PUTACT) p1=V_0116 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
8509 @ 77329:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
8510 @ 77330:                     FINISH ) {lev=4}

  1744  %end
  1745  !
8511 @ 77331:                     LINE   1744 "regression-compile-tmp/chimp.imp"
8512 @ 77367:                  END    _ECCECI_GETSTATEMENTS_GETINSTRUCTION_PUTACT {lev=4 --> 3}

  1746    %if c_flags < hadinst %start;  !first in block
8513 @ 77368:                  LINE   1746 "regression-compile-tmp/chimp.imp"
8514 @ 77404:                  PUSH   C
8515 @ 77407:                  SELECT 4
8516 @ 77410:                  PUSHI  #0x00000020
8517 @ 77415:                  JUMPIF >= L_0004

  1747      c_flags = c_flags+hadinst
8518 @ 77419:                  LINE   1747 "regression-compile-tmp/chimp.imp"
8519 @ 77455:                  PUSH   C
8520 @ 77458:                  SELECT 4
8521 @ 77461:                  PUSH   C
8522 @ 77464:                  SELECT 4
8523 @ 77467:                  PUSHI  #0x00000020
8524 @ 77472:                  ADD   
8525 @ 77473:                  ASSVAL

  1748      fault(ordererr) %if level <= outerlevel
8526 @ 77474:                  LINE   1748 "regression-compile-tmp/chimp.imp"
8527 @ 77510:                  PUSH   LEVEL
8528 @ 77513:                  PUSHI  #0x00000000
8529 @ 77518:                  JUMPIF > L_0007
8530 @ 77522:                  PUSH   FAULT
8531 @ 77525:                  PUSHI  #0x0000000a
8532 @ 77530:                  ASSPAR
8533 @ 77531:                  CALL  
8534 @ 77532:                  LOCATE L_0007

  1749    %finish
8535 @ 77535:                  LINE   1749 "regression-compile-tmp/chimp.imp"
8536 @ 77571:                  LOCATE L_0004

  1750    instnp = np
8537 @ 77574:                  LINE   1750 "regression-compile-tmp/chimp.imp"
8538 @ 77610:                  PUSH   INSTNP
8539 @ 77613:                  PUSH   NP
8540 @ 77616:                  ASSVAL

  1751    %cycle
8541 @ 77617:                  LINE   1751 "regression-compile-tmp/chimp.imp"
8542 @ 77653:                  LOCATE L_0003

  1752      %if a(ident) %start
8543 @ 77656:                  LINE   1752 "regression-compile-tmp/chimp.imp"
8544 @ 77692:                  PUSH   A
8545 @ 77695:                  PUSHI  #0x00000036
8546 @ 77700:                  ASSPAR
8547 @ 77701:                  CALL  
8548 @ 77702:                  bf     L_0007

  1753        name error %if item <= 0
8549 @ 77705:                  LINE   1753 "regression-compile-tmp/chimp.imp"
8550 @ 77741:                  PUSH   ITEM
8551 @ 77744:                  PUSHI  #0x00000000
8552 @ 77749:                  JUMPIF > L_000a
8553 @ 77753:                  PUSH   NAMEERROR
8554 @ 77756:                  CALL  
8555 @ 77757:                  LOCATE L_000a

  1754        %if ditem_flags&var # 0 %start
8556 @ 77760:                  LINE   1754 "regression-compile-tmp/chimp.imp"
8557 @ 77796:                  PUSH   DITEM
8558 @ 77799:                  SELECT 1
8559 @ 77802:                  PUSHI  #0x00000001
8560 @ 77807:                  AND   
8561 @ 77808:                  PUSHI  #0x00000000
8562 @ 77813:                  JUMPIF = L_000a

  1755          matched = 0
8563 @ 77817:                  LINE   1755 "regression-compile-tmp/chimp.imp"
8564 @ 77853:                  PUSH   MATCHED
8565 @ 77856:                  PUSHI  #0x00000000
8566 @ 77861:                  ASSVAL

  1756          get EXPRESSION(simple,any)
8567 @ 77862:                  LINE   1756 "regression-compile-tmp/chimp.imp"
8568 @ 77898:                  PUSH   GETEXPRESSION
8569 @ 77901:                  PUSHI  #0x00000068
8570 @ 77906:                  ASSPAR
8571 @ 77907:                  PUSHI  #0x000000ff
8572 @ 77912:                  ASSPAR
8573 @ 77913:                  CALL  

  1757          item1 = item;  ditem1 == ditem
8574 @ 77914:                  LINE   1757 "regression-compile-tmp/chimp.imp"
8575 @ 77950:                  PUSH   ITEM1
8576 @ 77953:                  PUSH   ITEM
8577 @ 77956:                  ASSVAL
8578 @ 77957:                  LINE   1757 "regression-compile-tmp/chimp.imp"
8579 @ 77993:                  PUSH   DITEM1
8580 @ 77996:                  PUSH   DITEM
8581 @ 77999:                  ASSREF

  1758          %if a(equals) %start
8582 @ 78000:                  LINE   1758 "regression-compile-tmp/chimp.imp"
8583 @ 78036:                  PUSH   A
8584 @ 78039:                  PUSHI  #0x00000046
8585 @ 78044:                  ASSPAR
8586 @ 78045:                  CALL  
8587 @ 78046:                  bf     L_000d

  1759            get VALUE(ditem1_type)
  1760  !          put2(assign,item1)
8588 @ 78049:                  LINE   1759 "regression-compile-tmp/chimp.imp"
8589 @ 78085:                  PUSH   GETVALUE
8590 @ 78088:                  PUSH   DITEM1
8591 @ 78091:                  SELECT 2
8592 @ 78094:                  ASSPAR
8593 @ 78095:                  CALL  

  1761         %else %if a(eqeq)
8594 @ 78096:                  LINE   1761 "regression-compile-tmp/chimp.imp"
8595 @ 78132:                  GOTO   L_000c
8596 @ 78135:                  LOCATE L_000d
8597 @ 78138:                  PUSH   A
8598 @ 78141:                  PUSHI  #0x0000004c
8599 @ 78146:                  ASSPAR
8600 @ 78147:                  CALL  
8601 @ 78148:                  bf     L_000d

  1762            syntax error %if ditem1_type < indirect
8602 @ 78151:                  LINE   1762 "regression-compile-tmp/chimp.imp"
8603 @ 78187:                  PUSH   DITEM1
8604 @ 78190:                  SELECT 2
8605 @ 78193:                  PUSHI  #0x00004000
8606 @ 78198:                  JUMPIF >= L_0010
8607 @ 78202:                  PUSH   SYNTAXERROR
8608 @ 78205:                  CALL  
8609 @ 78206:                  LOCATE L_0010

  1763            get REFERENCE(ditem1_type)
8610 @ 78209:                  LINE   1763 "regression-compile-tmp/chimp.imp"
8611 @ 78245:                  PUSH   GETREFERENCE
8612 @ 78248:                  PUSH   DITEM1
8613 @ 78251:                  SELECT 2
8614 @ 78254:                  ASSPAR
8615 @ 78255:                  CALL  

  1764            item = item+ad %if item # 0
  1765  !          put2(assign,item1+ad)
8616 @ 78256:                  LINE   1764 "regression-compile-tmp/chimp.imp"
8617 @ 78292:                  PUSH   ITEM
8618 @ 78295:                  PUSHI  #0x00000000
8619 @ 78300:                  JUMPIF = L_0010
8620 @ 78304:                  PUSH   ITEM
8621 @ 78307:                  PUSH   ITEM
8622 @ 78310:                  PUSHI  #0x00004000
8623 @ 78315:                  ADD   
8624 @ 78316:                  ASSVAL
8625 @ 78317:                  LOCATE L_0010

  1766         %else %if atom = less %and byteinteger(fp) = '-'
8626 @ 78320:                  LINE   1766 "regression-compile-tmp/chimp.imp"
8627 @ 78356:                  GOTO   L_000c
8628 @ 78359:                  LOCATE L_000d
8629 @ 78362:                  PUSH   ATOM
8630 @ 78365:                  PUSHI  #0x00000049
8631 @ 78370:                  JUMPIF # L_000d
8632 @ 78374:                  PUSH   BYTEINTEGER
8633 @ 78377:                  PUSH   FP
8634 @ 78380:                  ASSPAR
8635 @ 78381:                  CALL  
8636 @ 78382:                  PUSHI  #0x0000002d
8637 @ 78387:                  JUMPIF # L_000d

  1767            fp = fp+1;  matched = 1
8638 @ 78391:                  LINE   1767 "regression-compile-tmp/chimp.imp"
8639 @ 78427:                  PUSH   FP
8640 @ 78430:                  PUSH   FP
8641 @ 78433:                  PUSHI  #0x00000001
8642 @ 78438:                  ADD   
8643 @ 78439:                  ASSVAL
8644 @ 78440:                  LINE   1767 "regression-compile-tmp/chimp.imp"
8645 @ 78476:                  PUSH   MATCHED
8646 @ 78479:                  PUSHI  #0x00000001
8647 @ 78484:                  ASSVAL

  1768            jammy = 2
8648 @ 78485:                  LINE   1768 "regression-compile-tmp/chimp.imp"
8649 @ 78521:                  PUSH   JAMMY
8650 @ 78524:                  PUSHI  #0x00000002
8651 @ 78529:                  ASSVAL

  1769            get VALUE(ditem1_type)
  1770  !          put2(jamassign,item1)
8652 @ 78530:                  LINE   1769 "regression-compile-tmp/chimp.imp"
8653 @ 78566:                  PUSH   GETVALUE
8654 @ 78569:                  PUSH   DITEM1
8655 @ 78572:                  SELECT 2
8656 @ 78575:                  ASSPAR
8657 @ 78576:                  CALL  

  1771          %else
8658 @ 78577:                  LINE   1771 "regression-compile-tmp/chimp.imp"
8659 @ 78613:                  GOTO   L_000c
8660 @ 78616:                  LOCATE L_000d

  1772            syntax error %if %not a(arrow)
8661 @ 78619:                  LINE   1772 "regression-compile-tmp/chimp.imp"
8662 @ 78655:                  PUSH   A
8663 @ 78658:                  PUSHI  #0x0000004f
8664 @ 78663:                  ASSPAR
8665 @ 78664:                  CALL  
8666 @ 78665:                  bt     L_0010
8667 @ 78668:                  PUSH   SYNTAXERROR
8668 @ 78671:                  CALL  
8669 @ 78672:                  LOCATE L_0010

  1773            get RESOLUTION
  1774  !          put2(resolve,item1)
8670 @ 78675:                  LINE   1773 "regression-compile-tmp/chimp.imp"
8671 @ 78711:                  PUSH   GETRESOLUTION
8672 @ 78714:                  CALL  

  1775          %finish
8673 @ 78715:                  LINE   1775 "regression-compile-tmp/chimp.imp"
8674 @ 78751:                  LOCATE L_000c

  1776        %else
8675 @ 78754:                  LINE   1776 "regression-compile-tmp/chimp.imp"
8676 @ 78790:                  GOTO   L_0009
8677 @ 78793:                  LOCATE L_000a

  1777          error(caterr+point) %if ditem_flags&proc = 0
8678 @ 78796:                  LINE   1777 "regression-compile-tmp/chimp.imp"
8679 @ 78832:                  PUSH   DITEM
8680 @ 78835:                  SELECT 1
8681 @ 78838:                  PUSHI  #0x00000004
8682 @ 78843:                  AND   
8683 @ 78844:                  PUSHI  #0x00000000
8684 @ 78849:                  JUMPIF # L_000d
8685 @ 78853:                  PUSH   ERROR
8686 @ 78856:                  PUSHI  #0x00000003
8687 @ 78861:                  PUSHI  #0x00000040
8688 @ 78866:                  ADD   
8689 @ 78867:                  ASSPAR
8690 @ 78868:                  CALL  
8691 @ 78869:                  LOCATE L_000d

  1778          ditem == dict(ditem_type) %if ditem_flags&parm # 0
8692 @ 78872:                  LINE   1778 "regression-compile-tmp/chimp.imp"
8693 @ 78908:                  PUSH   DITEM
8694 @ 78911:                  SELECT 1
8695 @ 78914:                  PUSHI  #0x00000040
8696 @ 78919:                  AND   
8697 @ 78920:                  PUSHI  #0x00000000
8698 @ 78925:                  JUMPIF = L_000d
8699 @ 78929:                  PUSH   DITEM
8700 @ 78932:                  PUSH   DICT
8701 @ 78935:                  PUSH   DITEM
8702 @ 78938:                  SELECT 2
8703 @ 78941:                  ACCESS
8704 @ 78942:                  ASSREF
8705 @ 78943:                  LOCATE L_000d

  1779          error(caterr+point) %if ditem_type # nulltype
8706 @ 78946:                  LINE   1779 "regression-compile-tmp/chimp.imp"
8707 @ 78982:                  PUSH   DITEM
8708 @ 78985:                  SELECT 2
8709 @ 78988:                  PUSHI  #0x000007f9
8710 @ 78993:                  JUMPIF = L_000d
8711 @ 78997:                  PUSH   ERROR
8712 @ 79000:                  PUSHI  #0x00000003
8713 @ 79005:                  PUSHI  #0x00000040
8714 @ 79010:                  ADD   
8715 @ 79011:                  ASSPAR
8716 @ 79012:                  CALL  
8717 @ 79013:                  LOCATE L_000d

  1780          %if a(left) %start
8718 @ 79016:                  LINE   1780 "regression-compile-tmp/chimp.imp"
8719 @ 79052:                  PUSH   A
8720 @ 79055:                  PUSHI  #0x00000037
8721 @ 79060:                  ASSPAR
8722 @ 79061:                  CALL  
8723 @ 79062:                  bf     L_000d

  1781            get PARMLIST;  get(right)
8724 @ 79065:                  LINE   1781 "regression-compile-tmp/chimp.imp"
8725 @ 79101:                  PUSH   GETPARMLIST
8726 @ 79104:                  CALL  
8727 @ 79105:                  LINE   1781 "regression-compile-tmp/chimp.imp"
8728 @ 79141:                  PUSH   GET
8729 @ 79144:                  PUSHI  #0x0000003c
8730 @ 79149:                  ASSPAR
8731 @ 79150:                  CALL  

  1782          %else;  !parameterless routine
8732 @ 79151:                  LINE   1782 "regression-compile-tmp/chimp.imp"
8733 @ 79187:                  GOTO   L_000c
8734 @ 79190:                  LOCATE L_000d

  1783            error(toofew+point) %if ditem_flags&more # 0
  1784  !          put3(rcall,item,0)
8735 @ 79193:                  LINE   1783 "regression-compile-tmp/chimp.imp"
8736 @ 79229:                  PUSH   DITEM
8737 @ 79232:                  SELECT 1
8738 @ 79235:                  PUSHI  #0x00000080
8739 @ 79240:                  AND   
8740 @ 79241:                  PUSHI  #0x00000000
8741 @ 79246:                  JUMPIF = L_0010
8742 @ 79250:                  PUSH   ERROR
8743 @ 79253:                  PUSHI  #0x00000021
8744 @ 79258:                  PUSHI  #0x00000040
8745 @ 79263:                  ADD   
8746 @ 79264:                  ASSPAR
8747 @ 79265:                  CALL  
8748 @ 79266:                  LOCATE L_0010

  1785          %finish
8749 @ 79269:                  LINE   1785 "regression-compile-tmp/chimp.imp"
8750 @ 79305:                  LOCATE L_000c

  1786        %finish
8751 @ 79308:                  LINE   1786 "regression-compile-tmp/chimp.imp"
8752 @ 79344:                  LOCATE L_0009

  1787      %finish %else %start
8753 @ 79347:                  LINE   1787 "regression-compile-tmp/chimp.imp"
8754 @ 79383:                  GOTO   L_0006
8755 @ 79386:                  LOCATE L_0007

  1788        act = atom;  hold = subatom;  t_val = 0
8756 @ 79389:                  LINE   1788 "regression-compile-tmp/chimp.imp"
8757 @ 79425:                  PUSH   ACT
8758 @ 79428:                  PUSH   ATOM
8759 @ 79431:                  ASSVAL
8760 @ 79432:                  LINE   1788 "regression-compile-tmp/chimp.imp"
8761 @ 79468:                  PUSH   HOLD
8762 @ 79471:                  PUSH   SUBATOM
8763 @ 79474:                  ASSVAL
8764 @ 79475:                  LINE   1788 "regression-compile-tmp/chimp.imp"
8765 @ 79511:                  PUSH   T
8766 @ 79514:                  SELECT 7
8767 @ 79517:                  PUSHI  #0x00000000
8768 @ 79522:                  ASSVAL

  1789        c_access = 0
8769 @ 79523:                  LINE   1789 "regression-compile-tmp/chimp.imp"
8770 @ 79559:                  PUSH   C
8771 @ 79562:                  SELECT 12
8772 @ 79565:                  PUSHI  #0x00000000
8773 @ 79570:                  ASSVAL

  1790        %if a(monitor) %start
8774 @ 79571:                  LINE   1790 "regression-compile-tmp/chimp.imp"
8775 @ 79607:                  PUSH   A
8776 @ 79610:                  PUSHI  #0x0000000d
8777 @ 79615:                  ASSPAR
8778 @ 79616:                  CALL  
8779 @ 79617:                  bf     L_000a

  1791          c_access = 1
  1792  !        fault(monitor<<8)
8780 @ 79620:                  LINE   1791 "regression-compile-tmp/chimp.imp"
8781 @ 79656:                  PUSH   C
8782 @ 79659:                  SELECT 12
8783 @ 79662:                  PUSHI  #0x00000001
8784 @ 79667:                  ASSVAL

  1793        %else %if a(exit);  !%exit, %continue
8785 @ 79668:                  LINE   1793 "regression-compile-tmp/chimp.imp"
8786 @ 79704:                  GOTO   L_0009
8787 @ 79707:                  LOCATE L_000a
8788 @ 79710:                  PUSH   A
8789 @ 79713:                  PUSHI  #0x00000006
8790 @ 79718:                  ASSPAR
8791 @ 79719:                  CALL  
8792 @ 79720:                  bf     L_000a

  1794          %if looplab = 0 %then fault(notinloop+point) %c
  1795          %else t_val = looplab %and putact
8793 @ 79723:                  LINE   1794 "regression-compile-tmp/chimp.imp"
8794 @ 79759:                  PUSH   LOOPLAB
8795 @ 79762:                  PUSHI  #0x00000000
8796 @ 79767:                  JUMPIF # L_000d
8797 @ 79771:                  PUSH   FAULT
8798 @ 79774:                  PUSHI  #0x00000010
8799 @ 79779:                  PUSHI  #0x00000040
8800 @ 79784:                  ADD   
8801 @ 79785:                  ASSPAR
8802 @ 79786:                  CALL  
8803 @ 79787:                  GOTO   L_000c
8804 @ 79790:                  LOCATE L_000d
8805 @ 79793:                  PUSH   T
8806 @ 79796:                  SELECT 7
8807 @ 79799:                  PUSH   LOOPLAB
8808 @ 79802:                  ASSVAL
8809 @ 79803:                  PUSH   PUTACT
8810 @ 79806:                  CALL  
8811 @ 79807:                  LOCATE L_000c

  1796          %exit
8812 @ 79810:                  LINE   1796 "regression-compile-tmp/chimp.imp"
8813 @ 79846:                  GOTO   L_0004

  1797        %else %if a(return)
8814 @ 79849:                  LINE   1797 "regression-compile-tmp/chimp.imp"
8815 @ 79885:                  LOCATE L_000a
8816 @ 79888:                  PUSH   A
8817 @ 79891:                  PUSHI  #0x00000007
8818 @ 79896:                  ASSPAR
8819 @ 79897:                  CALL  
8820 @ 79898:                  bf     L_000a

  1798          %if c_type # nulltype %then fault(notinrout+point) %c
  1799          %else putact
8821 @ 79901:                  LINE   1798 "regression-compile-tmp/chimp.imp"
8822 @ 79937:                  PUSH   C
8823 @ 79940:                  SELECT 5
8824 @ 79943:                  PUSHI  #0x000007f9
8825 @ 79948:                  JUMPIF = L_000d
8826 @ 79952:                  PUSH   FAULT
8827 @ 79955:                  PUSHI  #0x00000011
8828 @ 79960:                  PUSHI  #0x00000040
8829 @ 79965:                  ADD   
8830 @ 79966:                  ASSPAR
8831 @ 79967:                  CALL  
8832 @ 79968:                  GOTO   L_000c
8833 @ 79971:                  LOCATE L_000d
8834 @ 79974:                  PUSH   PUTACT
8835 @ 79977:                  CALL  
8836 @ 79978:                  LOCATE L_000c

  1800          %exit
8837 @ 79981:                  LINE   1800 "regression-compile-tmp/chimp.imp"
8838 @ 80017:                  GOTO   L_0004

  1801        %else %if a(result)
8839 @ 80020:                  LINE   1801 "regression-compile-tmp/chimp.imp"
8840 @ 80056:                  LOCATE L_000a
8841 @ 80059:                  PUSH   A
8842 @ 80062:                  PUSHI  #0x00000009
8843 @ 80067:                  ASSPAR
8844 @ 80068:                  CALL  
8845 @ 80069:                  bf     L_000a

  1802          error(notinfun+point) %if c_type <= nulltype
8846 @ 80072:                  LINE   1802 "regression-compile-tmp/chimp.imp"
8847 @ 80108:                  PUSH   C
8848 @ 80111:                  SELECT 5
8849 @ 80114:                  PUSHI  #0x000007f9
8850 @ 80119:                  JUMPIF > L_000d
8851 @ 80123:                  PUSH   ERROR
8852 @ 80126:                  PUSHI  #0x00000012
8853 @ 80131:                  PUSHI  #0x00000040
8854 @ 80136:                  ADD   
8855 @ 80137:                  ASSPAR
8856 @ 80138:                  CALL  
8857 @ 80139:                  LOCATE L_000d

  1803          syntax error %if %not a assop
8858 @ 80142:                  LINE   1803 "regression-compile-tmp/chimp.imp"
8859 @ 80178:                  PUSH   AASSOP
8860 @ 80181:                  CALL  
8861 @ 80182:                  bt     L_000d
8862 @ 80185:                  PUSH   SYNTAXERROR
8863 @ 80188:                  CALL  
8864 @ 80189:                  LOCATE L_000d

  1804          %if c_type < direct %start;  !function
8865 @ 80192:                  LINE   1804 "regression-compile-tmp/chimp.imp"
8866 @ 80228:                  PUSH   C
8867 @ 80231:                  SELECT 5
8868 @ 80234:                  PUSHI  #0x00002000
8869 @ 80239:                  JUMPIF >= L_000d

  1805            fault(caterr+point) %if atom = eqeq
8870 @ 80243:                  LINE   1805 "regression-compile-tmp/chimp.imp"
8871 @ 80279:                  PUSH   ATOM
8872 @ 80282:                  PUSHI  #0x0000004c
8873 @ 80287:                  JUMPIF # L_0010
8874 @ 80291:                  PUSH   FAULT
8875 @ 80294:                  PUSHI  #0x00000003
8876 @ 80299:                  PUSHI  #0x00000040
8877 @ 80304:                  ADD   
8878 @ 80305:                  ASSPAR
8879 @ 80306:                  CALL  
8880 @ 80307:                  LOCATE L_0010

  1806            get VALUE(c_type)
  1807  !          put2(result,0)
8881 @ 80310:                  LINE   1806 "regression-compile-tmp/chimp.imp"
8882 @ 80346:                  PUSH   GETVALUE
8883 @ 80349:                  PUSH   C
8884 @ 80352:                  SELECT 5
8885 @ 80355:                  ASSPAR
8886 @ 80356:                  CALL  

  1808          %else;  !map
8887 @ 80357:                  LINE   1808 "regression-compile-tmp/chimp.imp"
8888 @ 80393:                  GOTO   L_000c
8889 @ 80396:                  LOCATE L_000d

  1809            fault(caterr+point) %if atom # eqeq
8890 @ 80399:                  LINE   1809 "regression-compile-tmp/chimp.imp"
8891 @ 80435:                  PUSH   ATOM
8892 @ 80438:                  PUSHI  #0x0000004c
8893 @ 80443:                  JUMPIF = L_0010
8894 @ 80447:                  PUSH   FAULT
8895 @ 80450:                  PUSHI  #0x00000003
8896 @ 80455:                  PUSHI  #0x00000040
8897 @ 80460:                  ADD   
8898 @ 80461:                  ASSPAR
8899 @ 80462:                  CALL  
8900 @ 80463:                  LOCATE L_0010

  1810            get REFERENCE(c_type+(indirect-direct))
  1811  !          put2(result,0)
8901 @ 80466:                  LINE   1810 "regression-compile-tmp/chimp.imp"
8902 @ 80502:                  PUSH   GETREFERENCE
8903 @ 80505:                  PUSH   C
8904 @ 80508:                  SELECT 5
8905 @ 80511:                  PUSHI  #0x00004000
8906 @ 80516:                  PUSHI  #0x00002000
8907 @ 80521:                  SUB   
8908 @ 80522:                  ADD   
8909 @ 80523:                  ASSPAR
8910 @ 80524:                  CALL  

  1812          %finish
8911 @ 80525:                  LINE   1812 "regression-compile-tmp/chimp.imp"
8912 @ 80561:                  LOCATE L_000c

  1813          %exit
8913 @ 80564:                  LINE   1813 "regression-compile-tmp/chimp.imp"
8914 @ 80600:                  GOTO   L_0004

  1814        %else %if a(tf);  !%true, %false
8915 @ 80603:                  LINE   1814 "regression-compile-tmp/chimp.imp"
8916 @ 80639:                  LOCATE L_000a
8917 @ 80642:                  PUSH   A
8918 @ 80645:                  PUSHI  #0x00000008
8919 @ 80650:                  ASSPAR
8920 @ 80651:                  CALL  
8921 @ 80652:                  bf     L_000a

  1815          %if c_type # booltype %then fault(notinpred+point) %c
  1816          %else putact
8922 @ 80655:                  LINE   1815 "regression-compile-tmp/chimp.imp"
8923 @ 80691:                  PUSH   C
8924 @ 80694:                  SELECT 5
8925 @ 80697:                  PUSHI  #0x00000800
8926 @ 80702:                  JUMPIF = L_000d
8927 @ 80706:                  PUSH   FAULT
8928 @ 80709:                  PUSHI  #0x00000013
8929 @ 80714:                  PUSHI  #0x00000040
8930 @ 80719:                  ADD   
8931 @ 80720:                  ASSPAR
8932 @ 80721:                  CALL  
8933 @ 80722:                  GOTO   L_000c
8934 @ 80725:                  LOCATE L_000d
8935 @ 80728:                  PUSH   PUTACT
8936 @ 80731:                  CALL  
8937 @ 80732:                  LOCATE L_000c

  1817          %exit
8938 @ 80735:                  LINE   1817 "regression-compile-tmp/chimp.imp"
8939 @ 80771:                  GOTO   L_0004

  1818        %else %if a(arrow) %or a(goto)
8940 @ 80774:                  LINE   1818 "regression-compile-tmp/chimp.imp"
8941 @ 80810:                  LOCATE L_000a
8942 @ 80813:                  PUSH   A
8943 @ 80816:                  PUSHI  #0x0000004f
8944 @ 80821:                  ASSPAR
8945 @ 80822:                  CALL  
8946 @ 80823:                  bt     L_000b
8947 @ 80826:                  PUSH   A
8948 @ 80829:                  PUSHI  #0x0000000b
8949 @ 80834:                  ASSPAR
8950 @ 80835:                  CALL  
8951 @ 80836:                  bf     L_000a
8952 @ 80839:                  LOCATE L_000b

  1819          nonstandard(kgoto) %if atom = goto
8953 @ 80842:                  LINE   1819 "regression-compile-tmp/chimp.imp"
8954 @ 80878:                  PUSH   ATOM
8955 @ 80881:                  PUSHI  #0x0000000b
8956 @ 80886:                  JUMPIF # L_000d
8957 @ 80890:                  PUSH   NONSTANDARD
8958 @ 80893:                  PUSHI  #0x00000080
8959 @ 80898:                  ASSPAR
8960 @ 80899:                  CALL  
8961 @ 80900:                  LOCATE L_000d

  1820          get(ident)
8962 @ 80903:                  LINE   1820 "regression-compile-tmp/chimp.imp"
8963 @ 80939:                  PUSH   GET
8964 @ 80942:                  PUSHI  #0x00000036
8965 @ 80947:                  ASSPAR
8966 @ 80948:                  CALL  

  1821          %if byteinteger(fp) # '(' %start
8967 @ 80949:                  LINE   1821 "regression-compile-tmp/chimp.imp"
8968 @ 80985:                  PUSH   BYTEINTEGER
8969 @ 80988:                  PUSH   FP
8970 @ 80991:                  ASSPAR
8971 @ 80992:                  CALL  
8972 @ 80993:                  PUSHI  #0x00000028
8973 @ 80998:                  JUMPIF = L_000d

  1822            %if item < c_localdpos %or ditem_flags&lab = 0 %c
  1823            %or ditem_type # nulltype %start
8974 @ 81002:                  LINE   1822 "regression-compile-tmp/chimp.imp"
8975 @ 81038:                  PUSH   ITEM
8976 @ 81041:                  PUSH   C
8977 @ 81044:                  SELECT 6
8978 @ 81047:                  JUMPIF < L_0011
8979 @ 81051:                  PUSH   DITEM
8980 @ 81054:                  SELECT 1
8981 @ 81057:                  PUSHI  #0x00000002
8982 @ 81062:                  AND   
8983 @ 81063:                  PUSHI  #0x00000000
8984 @ 81068:                  JUMPIF = L_0011
8985 @ 81072:                  PUSH   DITEM
8986 @ 81075:                  SELECT 2
8987 @ 81078:                  PUSHI  #0x000007f9
8988 @ 81083:                  JUMPIF = L_0010
8989 @ 81087:                  LOCATE L_0011

  1824              d_flags = spec+lab;  d_type = nulltype
8990 @ 81090:                  LINE   1824 "regression-compile-tmp/chimp.imp"
8991 @ 81126:                  PUSH   D
8992 @ 81129:                  SELECT 1
8993 @ 81132:                  PUSHI  #0x00000010
8994 @ 81137:                  PUSHI  #0x00000002
8995 @ 81142:                  ADD   
8996 @ 81143:                  ASSVAL
8997 @ 81144:                  LINE   1824 "regression-compile-tmp/chimp.imp"
8998 @ 81180:                  PUSH   D
8999 @ 81183:                  SELECT 2
9000 @ 81186:                  PUSHI  #0x000007f9
9001 @ 81191:                  ASSVAL

  1825              declare
9002 @ 81192:                  LINE   1825 "regression-compile-tmp/chimp.imp"
9003 @ 81228:                  PUSH   DECLARE
9004 @ 81231:                  CALL  

  1826            %finish
  1827  !          put3(jump,item,0)
9005 @ 81232:                  LINE   1826 "regression-compile-tmp/chimp.imp"
9006 @ 81268:                  LOCATE L_0010

  1828          %finish %else %start
9007 @ 81271:                  LINE   1828 "regression-compile-tmp/chimp.imp"
9008 @ 81307:                  GOTO   L_000c
9009 @ 81310:                  LOCATE L_000d

  1829            name error %if item < c_localdpos
9010 @ 81313:                  LINE   1829 "regression-compile-tmp/chimp.imp"
9011 @ 81349:                  PUSH   ITEM
9012 @ 81352:                  PUSH   C
9013 @ 81355:                  SELECT 6
9014 @ 81358:                  JUMPIF >= L_0010
9015 @ 81362:                  PUSH   NAMEERROR
9016 @ 81365:                  CALL  
9017 @ 81366:                  LOCATE L_0010

  1830            syntax error %if ditem_flags&lab = 0 %or ditem_type = nulltype
9018 @ 81369:                  LINE   1830 "regression-compile-tmp/chimp.imp"
9019 @ 81405:                  PUSH   DITEM
9020 @ 81408:                  SELECT 1
9021 @ 81411:                  PUSHI  #0x00000002
9022 @ 81416:                  AND   
9023 @ 81417:                  PUSHI  #0x00000000
9024 @ 81422:                  JUMPIF = L_0011
9025 @ 81426:                  PUSH   DITEM
9026 @ 81429:                  SELECT 2
9027 @ 81432:                  PUSHI  #0x000007f9
9028 @ 81437:                  JUMPIF # L_0010
9029 @ 81441:                  LOCATE L_0011
9030 @ 81444:                  PUSH   SYNTAXERROR
9031 @ 81447:                  CALL  
9032 @ 81448:                  LOCATE L_0010

  1831            get(left)
9033 @ 81451:                  LINE   1831 "regression-compile-tmp/chimp.imp"
9034 @ 81487:                  PUSH   GET
9035 @ 81490:                  PUSHI  #0x00000037
9036 @ 81495:                  ASSPAR
9037 @ 81496:                  CALL  

  1832            get VALUE(ditem_type);  !index
9038 @ 81497:                  LINE   1832 "regression-compile-tmp/chimp.imp"
9039 @ 81533:                  PUSH   GETVALUE
9040 @ 81536:                  PUSH   DITEM
9041 @ 81539:                  SELECT 2
9042 @ 81542:                  ASSPAR
9043 @ 81543:                  CALL  

  1833            get(right)
9044 @ 81544:                  LINE   1833 "regression-compile-tmp/chimp.imp"
9045 @ 81580:                  PUSH   GET
9046 @ 81583:                  PUSHI  #0x0000003c
9047 @ 81588:                  ASSPAR
9048 @ 81589:                  CALL  

  1834          %finish
9049 @ 81590:                  LINE   1834 "regression-compile-tmp/chimp.imp"
9050 @ 81626:                  LOCATE L_000c

  1835          %exit
9051 @ 81629:                  LINE   1835 "regression-compile-tmp/chimp.imp"
9052 @ 81665:                  GOTO   L_0004

  1836        %else %if a(stop)
9053 @ 81668:                  LINE   1836 "regression-compile-tmp/chimp.imp"
9054 @ 81704:                  LOCATE L_000a
9055 @ 81707:                  PUSH   A
9056 @ 81710:                  PUSHI  #0x0000000a
9057 @ 81715:                  ASSPAR
9058 @ 81716:                  CALL  
9059 @ 81717:                  bf     L_000a

  1837          putact
9060 @ 81720:                  LINE   1837 "regression-compile-tmp/chimp.imp"
9061 @ 81756:                  PUSH   PUTACT
9062 @ 81759:                  CALL  

  1838          %exit
9063 @ 81760:                  LINE   1838 "regression-compile-tmp/chimp.imp"
9064 @ 81796:                  GOTO   L_0004

  1839        %else %if a(signal)
9065 @ 81799:                  LINE   1839 "regression-compile-tmp/chimp.imp"
9066 @ 81835:                  LOCATE L_000a
9067 @ 81838:                  PUSH   A
9068 @ 81841:                  PUSHI  #0x0000000c
9069 @ 81846:                  ASSPAR
9070 @ 81847:                  CALL  
9071 @ 81848:                  bf     L_000a

  1840          c_access = 1
9072 @ 81851:                  LINE   1840 "regression-compile-tmp/chimp.imp"
9073 @ 81887:                  PUSH   C
9074 @ 81890:                  SELECT 12
9075 @ 81893:                  PUSHI  #0x00000001
9076 @ 81898:                  ASSVAL

  1841          allow(keyevent)
9077 @ 81899:                  LINE   1841 "regression-compile-tmp/chimp.imp"
9078 @ 81935:                  PUSH   ALLOW
9079 @ 81938:                  PUSHI  #0x0000002c
9080 @ 81943:                  ASSPAR
9081 @ 81944:                  CALL  

  1842          get LITINT
9082 @ 81945:                  LINE   1842 "regression-compile-tmp/chimp.imp"
9083 @ 81981:                  PUSH   GETLITINT
9084 @ 81984:                  CALL  

  1843          expfault(rangerr+point) %unless 0 <= t_val <= 15
9085 @ 81985:                  LINE   1843 "regression-compile-tmp/chimp.imp"
9086 @ 82021:                  PUSHI  #0x00000000
9087 @ 82026:                  PUSH   T
9088 @ 82029:                  SELECT 7
9089 @ 82032:                  JUMPIFD > L_000e
9090 @ 82036:                  PUSHI  #0x0000000f
9091 @ 82041:                  JUMPIF <= L_000d
9092 @ 82045:                  LOCATE L_000e
9093 @ 82048:                  PUSH   EXPFAULT
9094 @ 82051:                  PUSHI  #0x0000000c
9095 @ 82056:                  PUSHI  #0x00000040
9096 @ 82061:                  ADD   
9097 @ 82062:                  ASSPAR
9098 @ 82063:                  CALL  
9099 @ 82064:                  LOCATE L_000d

  1844          hold = t_val;  t_val = 0
9100 @ 82067:                  LINE   1844 "regression-compile-tmp/chimp.imp"
9101 @ 82103:                  PUSH   HOLD
9102 @ 82106:                  PUSH   T
9103 @ 82109:                  SELECT 7
9104 @ 82112:                  ASSVAL
9105 @ 82113:                  LINE   1844 "regression-compile-tmp/chimp.imp"
9106 @ 82149:                  PUSH   T
9107 @ 82152:                  SELECT 7
9108 @ 82155:                  PUSHI  #0x00000000
9109 @ 82160:                  ASSVAL

  1845          get LITINT %if a(comma)
9110 @ 82161:                  LINE   1845 "regression-compile-tmp/chimp.imp"
9111 @ 82197:                  PUSH   A
9112 @ 82200:                  PUSHI  #0x0000003b
9113 @ 82205:                  ASSPAR
9114 @ 82206:                  CALL  
9115 @ 82207:                  bf     L_000d
9116 @ 82210:                  PUSH   GETLITINT
9117 @ 82213:                  CALL  
9118 @ 82214:                  LOCATE L_000d

  1846          hold = t_val<<4+hold
9119 @ 82217:                  LINE   1846 "regression-compile-tmp/chimp.imp"
9120 @ 82253:                  PUSH   HOLD
9121 @ 82256:                  PUSH   T
9122 @ 82259:                  SELECT 7
9123 @ 82262:                  PUSHI  #0x00000004
9124 @ 82267:                  LSH   
9125 @ 82268:                  PUSH   HOLD
9126 @ 82271:                  ADD   
9127 @ 82272:                  ASSVAL

  1847          item = 0;  t_val = 0
9128 @ 82273:                  LINE   1847 "regression-compile-tmp/chimp.imp"
9129 @ 82309:                  PUSH   ITEM
9130 @ 82312:                  PUSHI  #0x00000000
9131 @ 82317:                  ASSVAL
9132 @ 82318:                  LINE   1847 "regression-compile-tmp/chimp.imp"
9133 @ 82354:                  PUSH   T
9134 @ 82357:                  SELECT 7
9135 @ 82360:                  PUSHI  #0x00000000
9136 @ 82365:                  ASSVAL

  1848          get VALUE(anyint) %if a(comma)
  1849  !        put2(act,hold)
9137 @ 82366:                  LINE   1848 "regression-compile-tmp/chimp.imp"
9138 @ 82402:                  PUSH   A
9139 @ 82405:                  PUSHI  #0x0000003b
9140 @ 82410:                  ASSPAR
9141 @ 82411:                  CALL  
9142 @ 82412:                  bf     L_000d
9143 @ 82415:                  PUSH   GETVALUE
9144 @ 82418:                  PUSHI  #0x000027fe
9145 @ 82423:                  ASSPAR
9146 @ 82424:                  CALL  
9147 @ 82425:                  LOCATE L_000d

  1850          %exit
9148 @ 82428:                  LINE   1850 "regression-compile-tmp/chimp.imp"
9149 @ 82464:                  GOTO   L_0004

  1851        %else
9150 @ 82467:                  LINE   1851 "regression-compile-tmp/chimp.imp"
9151 @ 82503:                  LOCATE L_000a

  1852          syntax error
9152 @ 82506:                  LINE   1852 "regression-compile-tmp/chimp.imp"
9153 @ 82542:                  PUSH   SYNTAXERROR
9154 @ 82545:                  CALL  

  1853        %finish
9155 @ 82546:                  LINE   1853 "regression-compile-tmp/chimp.imp"
9156 @ 82582:                  LOCATE L_0009

  1854      %finish
9157 @ 82585:                  LINE   1854 "regression-compile-tmp/chimp.imp"
9158 @ 82621:                  LOCATE L_0006

  1855    %repeat %until %not a(keyand)
9159 @ 82624:                  LINE   1855 "regression-compile-tmp/chimp.imp"
9160 @ 82660:                  PUSH   A
9161 @ 82663:                  PUSHI  #0x00000040
9162 @ 82668:                  ASSPAR
9163 @ 82669:                  CALL  
9164 @ 82670:                  bf     L_0004
9165 @ 82673:                  REPEAT L_0003
9166 @ 82676:                  LOCATE L_0004

  1856  %end;  !GET INSTRUCTION
  1857  
9167 @ 82679:                  LINE   1856 "regression-compile-tmp/chimp.imp"
9168 @ 82715:               END    _ECCECI_GETSTATEMENTS_GETINSTRUCTION {lev=3 --> 2}

  1858  %routine GET FOR CLAUSE
9169 @ 82716:               LINE   1858 "regression-compile-tmp/chimp.imp"
9170 @ 82752:               DEF    GETFORCLAUSE (_ECCECI_GETSTATEMENTS_GETFORCLAUSE) p1=V_0112 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
9171 @ 82776:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
9172 @ 82777:                  FINISH ) {lev=3}

  1859  %integer loopvar,k,s,start,sval,i,inc,ival,e,n,temp
9173 @ 82778:                  LINE   1859 "regression-compile-tmp/chimp.imp"
9174 @ 82814:                  DEF    LOOPVAR p1=V_0113 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
9175 @ 82833:                  DEF    K p1=V_0114 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
9176 @ 82846:                  DEF    S p1=V_0115 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
9177 @ 82859:                  DEF    START p1=V_0116 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
9178 @ 82876:                  DEF    SVAL p1=V_0117 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
9179 @ 82892:                  DEF    I p1=V_0118 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
9180 @ 82905:                  DEF    INC p1=V_0119 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
9181 @ 82920:                  DEF    IVAL p1=V_011a a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
9182 @ 82936:                  DEF    E p1=V_011b a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
9183 @ 82949:                  DEF    N p1=V_011c a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
9184 @ 82962:                  DEF    TEMP p1=V_011d a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  1860  %integer eval
9185 @ 82978:                  LINE   1860 "regression-compile-tmp/chimp.imp"
9186 @ 83014:                  DEF    EVAL p1=V_011e a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  1861  %record(identinfo)%name dp
9187 @ 83030:                  LINE   1861 "regression-compile-tmp/chimp.imp"
9188 @ 83066:                  DEF    DP p1=V_011f a/tf=42 b/format=9a c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  1862    holdnp = np;  temp = 0
9189 @ 83080:                  LINE   1862 "regression-compile-tmp/chimp.imp"
9190 @ 83116:                  PUSH   HOLDNP
9191 @ 83119:                  PUSH   NP
9192 @ 83122:                  ASSVAL
9193 @ 83123:                  LINE   1862 "regression-compile-tmp/chimp.imp"
9194 @ 83159:                  PUSH   TEMP
9195 @ 83162:                  PUSHI  #0x00000000
9196 @ 83167:                  ASSVAL

  1863    dict(curlab)_val = 1;  !dummy
9197 @ 83168:                  LINE   1863 "regression-compile-tmp/chimp.imp"
9198 @ 83204:                  PUSH   DICT
9199 @ 83207:                  PUSH   CURLAB
9200 @ 83210:                  ACCESS
9201 @ 83211:                  SELECT 7
9202 @ 83214:                  PUSHI  #0x00000001
9203 @ 83219:                  ASSVAL

  1864    condnp = np
9204 @ 83220:                  LINE   1864 "regression-compile-tmp/chimp.imp"
9205 @ 83256:                  PUSH   CONDNP
9206 @ 83259:                  PUSH   NP
9207 @ 83262:                  ASSVAL

  1865    get(ident)
9208 @ 83263:                  LINE   1865 "regression-compile-tmp/chimp.imp"
9209 @ 83299:                  PUSH   GET
9210 @ 83302:                  PUSHI  #0x00000036
9211 @ 83307:                  ASSPAR
9212 @ 83308:                  CALL  

  1866    name error %if item <= 0
9213 @ 83309:                  LINE   1866 "regression-compile-tmp/chimp.imp"
9214 @ 83345:                  PUSH   ITEM
9215 @ 83348:                  PUSHI  #0x00000000
9216 @ 83353:                  JUMPIF > L_0004
9217 @ 83357:                  PUSH   NAMEERROR
9218 @ 83360:                  CALL  
9219 @ 83361:                  LOCATE L_0004

  1867    fault(typerr+point) %if dict(ditem_type&puretype)_type # inty
9220 @ 83364:                  LINE   1867 "regression-compile-tmp/chimp.imp"
9221 @ 83400:                  PUSH   DICT
9222 @ 83403:                  PUSH   DITEM
9223 @ 83406:                  SELECT 2
9224 @ 83409:                  PUSHI  #0x00001fff
9225 @ 83414:                  AND   
9226 @ 83415:                  ACCESS
9227 @ 83416:                  SELECT 2
9228 @ 83419:                  PUSHI  #0x000007fe
9229 @ 83424:                  JUMPIF = L_0004
9230 @ 83428:                  PUSH   FAULT
9231 @ 83431:                  PUSHI  #0x00000006
9232 @ 83436:                  PUSHI  #0x00000040
9233 @ 83441:                  ADD   
9234 @ 83442:                  ASSPAR
9235 @ 83443:                  CALL  
9236 @ 83444:                  LOCATE L_0004

  1868    fault(caterr+point+warn) %if ditem_type # direct+inttype
9237 @ 83447:                  LINE   1868 "regression-compile-tmp/chimp.imp"
9238 @ 83483:                  PUSH   DITEM
9239 @ 83486:                  SELECT 2
9240 @ 83489:                  PUSHI  #0x00002000
9241 @ 83494:                  PUSHI  #0x00000803
9242 @ 83499:                  ADD   
9243 @ 83500:                  JUMPIF = L_0004
9244 @ 83504:                  PUSH   FAULT
9245 @ 83507:                  PUSHI  #0x00000003
9246 @ 83512:                  PUSHI  #0x00000040
9247 @ 83517:                  ADD   
9248 @ 83518:                  PUSHI  #0x00000080
9249 @ 83523:                  ADD   
9250 @ 83524:                  ASSPAR
9251 @ 83525:                  CALL  
9252 @ 83526:                  LOCATE L_0004

  1869    loopvar = item;  dp == ditem
9253 @ 83529:                  LINE   1869 "regression-compile-tmp/chimp.imp"
9254 @ 83565:                  PUSH   LOOPVAR
9255 @ 83568:                  PUSH   ITEM
9256 @ 83571:                  ASSVAL
9257 @ 83572:                  LINE   1869 "regression-compile-tmp/chimp.imp"
9258 @ 83608:                  PUSH   DP
9259 @ 83611:                  PUSH   DITEM
9260 @ 83614:                  ASSREF

  1870    get(equals)
9261 @ 83615:                  LINE   1870 "regression-compile-tmp/chimp.imp"
9262 @ 83651:                  PUSH   GET
9263 @ 83654:                  PUSHI  #0x00000046
9264 @ 83659:                  ASSPAR
9265 @ 83660:                  CALL  

  1871    get VALUE(ditem_type)
9266 @ 83661:                  LINE   1871 "regression-compile-tmp/chimp.imp"
9267 @ 83697:                  PUSH   GETVALUE
9268 @ 83700:                  PUSH   DITEM
9269 @ 83703:                  SELECT 2
9270 @ 83706:                  ASSPAR
9271 @ 83707:                  CALL  

  1872    start = item;  sval = t_val
9272 @ 83708:                  LINE   1872 "regression-compile-tmp/chimp.imp"
9273 @ 83744:                  PUSH   START
9274 @ 83747:                  PUSH   ITEM
9275 @ 83750:                  ASSVAL
9276 @ 83751:                  LINE   1872 "regression-compile-tmp/chimp.imp"
9277 @ 83787:                  PUSH   SVAL
9278 @ 83790:                  PUSH   T
9279 @ 83793:                  SELECT 7
9280 @ 83796:                  ASSVAL

  1873    get(comma)
9281 @ 83797:                  LINE   1873 "regression-compile-tmp/chimp.imp"
9282 @ 83833:                  PUSH   GET
9283 @ 83836:                  PUSHI  #0x0000003b
9284 @ 83841:                  ASSPAR
9285 @ 83842:                  CALL  

  1874    get VALUE(anyint)
9286 @ 83843:                  LINE   1874 "regression-compile-tmp/chimp.imp"
9287 @ 83879:                  PUSH   GETVALUE
9288 @ 83882:                  PUSHI  #0x000027fe
9289 @ 83887:                  ASSPAR
9290 @ 83888:                  CALL  

  1875    inc = item;  ival = t_val
9291 @ 83889:                  LINE   1875 "regression-compile-tmp/chimp.imp"
9292 @ 83925:                  PUSH   INC
9293 @ 83928:                  PUSH   ITEM
9294 @ 83931:                  ASSVAL
9295 @ 83932:                  LINE   1875 "regression-compile-tmp/chimp.imp"
9296 @ 83968:                  PUSH   IVAL
9297 @ 83971:                  PUSH   T
9298 @ 83974:                  SELECT 7
9299 @ 83977:                  ASSVAL

  1876    expfault(rangerr+point) %and ival = 1 %if inc = 0 = ival
9300 @ 83978:                  LINE   1876 "regression-compile-tmp/chimp.imp"
9301 @ 84014:                  PUSH   INC
9302 @ 84017:                  PUSHI  #0x00000000
9303 @ 84022:                  JUMPIFD # L_0004
9304 @ 84026:                  PUSH   IVAL
9305 @ 84029:                  JUMPIF # L_0004
9306 @ 84033:                  PUSH   EXPFAULT
9307 @ 84036:                  PUSHI  #0x0000000c
9308 @ 84041:                  PUSHI  #0x00000040
9309 @ 84046:                  ADD   
9310 @ 84047:                  ASSPAR
9311 @ 84048:                  CALL  
9312 @ 84049:                  PUSH   IVAL
9313 @ 84052:                  PUSHI  #0x00000001
9314 @ 84057:                  ASSVAL
9315 @ 84058:                  LOCATE L_0004

  1877    get(comma)
9316 @ 84061:                  LINE   1877 "regression-compile-tmp/chimp.imp"
9317 @ 84097:                  PUSH   GET
9318 @ 84100:                  PUSHI  #0x0000003b
9319 @ 84105:                  ASSPAR
9320 @ 84106:                  CALL  

  1878    get VALUE(ditem_type)
  1879  !Deal with INC and replace START by START-INC
  1880  !  k = undef
  1881  !  k = exp(start)_y %if start >= expmin %and exp(start)_act = plus
9321 @ 84107:                  LINE   1878 "regression-compile-tmp/chimp.imp"
9322 @ 84143:                  PUSH   GETVALUE
9323 @ 84146:                  PUSH   DITEM
9324 @ 84149:                  SELECT 2
9325 @ 84152:                  ASSPAR
9326 @ 84153:                  CALL  

  1882    %if inc = 0 %start;  !literal increment
9327 @ 84154:                  LINE   1882 "regression-compile-tmp/chimp.imp"
9328 @ 84190:                  PUSH   INC
9329 @ 84193:                  PUSHI  #0x00000000
9330 @ 84198:                  JUMPIF # L_0004

  1883      i = 1;  !litref(ival)
9331 @ 84202:                  LINE   1883 "regression-compile-tmp/chimp.imp"
9332 @ 84238:                  PUSH   I
9333 @ 84241:                  PUSHI  #0x00000001
9334 @ 84246:                  ASSVAL

  1884      %if start = 0 %start;  !START and INC both literal
9335 @ 84247:                  LINE   1884 "regression-compile-tmp/chimp.imp"
9336 @ 84283:                  PUSH   START
9337 @ 84286:                  PUSHI  #0x00000000
9338 @ 84291:                  JUMPIF # L_0007

  1885        sval = sval-ival;  s = 1;  !litref(sval)
  1886  !   %else %if k <= litmax;  !START is x+lit
  1887  !      k = ival-litval(k)
  1888  !      s = exp(start)_x;  s = explo;!expref(plus,s,litref(k)) %if k # 0
9339 @ 84295:                  LINE   1885 "regression-compile-tmp/chimp.imp"
9340 @ 84331:                  PUSH   SVAL
9341 @ 84334:                  PUSH   SVAL
9342 @ 84337:                  PUSH   IVAL
9343 @ 84340:                  SUB   
9344 @ 84341:                  ASSVAL
9345 @ 84342:                  LINE   1885 "regression-compile-tmp/chimp.imp"
9346 @ 84378:                  PUSH   S
9347 @ 84381:                  PUSHI  #0x00000001
9348 @ 84386:                  ASSVAL

  1889      %else
9349 @ 84387:                  LINE   1889 "regression-compile-tmp/chimp.imp"
9350 @ 84423:                  GOTO   L_0006
9351 @ 84426:                  LOCATE L_0007

  1890        s = explo;!expref(plus,start,litref(-ival))
9352 @ 84429:                  LINE   1890 "regression-compile-tmp/chimp.imp"
9353 @ 84465:                  PUSH   S
9354 @ 84468:                  PUSH   EXPLO
9355 @ 84471:                  ASSVAL

  1891      %finish
9356 @ 84472:                  LINE   1891 "regression-compile-tmp/chimp.imp"
9357 @ 84508:                  LOCATE L_0006

  1892    %finish %else %start;  !allocate temp var
  1893  !    i = tempvar;  put3(assign,i,inc);  temp = temp-4
  1894  !    %if start = inc %start;  !identical
  1895  !      s = 0;  sval = 0
  1896  !   %else %if k = inc;  !START is x+INC
  1897  !      s = exp(start)_x
  1898  !    %else
  1899  !      s = start;  s = litref(sval) %if s = 0
9358 @ 84511:                  LINE   1892 "regression-compile-tmp/chimp.imp"
9359 @ 84547:                  GOTO   L_0003
9360 @ 84550:                  LOCATE L_0004

  1900        s = explo;!expref(minus,s,i)
  1901  !    %finish
9361 @ 84553:                  LINE   1900 "regression-compile-tmp/chimp.imp"
9362 @ 84589:                  PUSH   S
9363 @ 84592:                  PUSH   EXPLO
9364 @ 84595:                  ASSVAL

  1902    %finish
  1903  !  %if item = 0 %start;  !literal end-value
  1904  !    e = litref(t_val);  eval = t_val
  1905  !  %finish %else %start
  1906  !    e = tempvar;  put3(assign,e,item);  temp = temp-4
  1907  !  %finish
  1908  !  put3(assign,loopvar,s)
  1909  !  put3(label,curlab,0)
9365 @ 84596:                  LINE   1902 "regression-compile-tmp/chimp.imp"
9366 @ 84632:                  LOCATE L_0003

  1910    %if start!inc!item = 0 %start;  !all literal
9367 @ 84635:                  LINE   1910 "regression-compile-tmp/chimp.imp"
9368 @ 84671:                  PUSH   START
9369 @ 84674:                  PUSH   INC
9370 @ 84677:                  OR    
9371 @ 84678:                  PUSH   ITEM
9372 @ 84681:                  OR    
9373 @ 84682:                  PUSHI  #0x00000000
9374 @ 84687:                  JUMPIF # L_0004

  1911      k = t_val-sval;  n = k//ival
9375 @ 84691:                  LINE   1911 "regression-compile-tmp/chimp.imp"
9376 @ 84727:                  PUSH   K
9377 @ 84730:                  PUSH   T
9378 @ 84733:                  SELECT 7
9379 @ 84736:                  PUSH   SVAL
9380 @ 84739:                  SUB   
9381 @ 84740:                  ASSVAL
9382 @ 84741:                  LINE   1911 "regression-compile-tmp/chimp.imp"
9383 @ 84777:                  PUSH   N
9384 @ 84780:                  PUSH   K
9385 @ 84783:                  PUSH   IVAL
9386 @ 84786:                  QUOT  
9387 @ 84787:                  ASSVAL

  1912      fault(boundserr) %if n < 0
9388 @ 84788:                  LINE   1912 "regression-compile-tmp/chimp.imp"
9389 @ 84824:                  PUSH   N
9390 @ 84827:                  PUSHI  #0x00000000
9391 @ 84832:                  JUMPIF >= L_0007
9392 @ 84836:                  PUSH   FAULT
9393 @ 84839:                  PUSHI  #0x0000000e
9394 @ 84844:                  ASSPAR
9395 @ 84845:                  CALL  
9396 @ 84846:                  LOCATE L_0007

  1913      fault(unending) %if n*ival # k
  1914  !    %if 0 <= t_val <= 32767 %start
  1915  !      temp = loopvar
  1916  !    %finish
9397 @ 84849:                  LINE   1913 "regression-compile-tmp/chimp.imp"
9398 @ 84885:                  PUSH   N
9399 @ 84888:                  PUSH   IVAL
9400 @ 84891:                  MUL   
9401 @ 84892:                  PUSH   K
9402 @ 84895:                  JUMPIF = L_0007
9403 @ 84899:                  PUSH   FAULT
9404 @ 84902:                  PUSHI  #0x00000025
9405 @ 84907:                  ASSPAR
9406 @ 84908:                  CALL  
9407 @ 84909:                  LOCATE L_0007

  1917    %finish
  1918  !  %if temp <= 0 %start
  1919  !    c_fortemps = c_fortemps-temp;  !ie increment
  1920  !    put3(compare,loopvar,e)
  1921  !    put3(eq,0,curlab+1)
  1922  !  %finish
  1923  !  put3(plusass,loopvar,i)
  1924  !  compile(holdnp,np)
9408 @ 84912:                  LINE   1917 "regression-compile-tmp/chimp.imp"
9409 @ 84948:                  LOCATE L_0004

  1925  %end;  !get FORCLAUSE
  1926  
9410 @ 84951:                  LINE   1925 "regression-compile-tmp/chimp.imp"
9411 @ 84987:               END    _ECCECI_GETSTATEMENTS_GETFORCLAUSE {lev=3 --> 2}

  1927  %routine GET SWITCH INDEX
9412 @ 84988:               LINE   1927 "regression-compile-tmp/chimp.imp"
9413 @ 85024:               DEF    GETSWITCHINDEX (_ECCECI_GETSTATEMENTS_GETSWITCHINDEX) p1=V_0113 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
9414 @ 85050:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
9415 @ 85051:                  FINISH ) {lev=3}

  1928  %integer item1
9416 @ 85052:                  LINE   1928 "regression-compile-tmp/chimp.imp"
9417 @ 85088:                  DEF    ITEM1 p1=V_0114 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  1929  %record(identinfo)%name dp
9418 @ 85105:                  LINE   1929 "regression-compile-tmp/chimp.imp"
9419 @ 85141:                  DEF    DP p1=V_0115 a/tf=42 b/format=9a c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  1930    item1 = item;  dp == ditem
9420 @ 85155:                  LINE   1930 "regression-compile-tmp/chimp.imp"
9421 @ 85191:                  PUSH   ITEM1
9422 @ 85194:                  PUSH   ITEM
9423 @ 85197:                  ASSVAL
9424 @ 85198:                  LINE   1930 "regression-compile-tmp/chimp.imp"
9425 @ 85234:                  PUSH   DP
9426 @ 85237:                  PUSH   DITEM
9427 @ 85240:                  ASSREF

  1931    get(left)
9428 @ 85241:                  LINE   1931 "regression-compile-tmp/chimp.imp"
9429 @ 85277:                  PUSH   GET
9430 @ 85280:                  PUSHI  #0x00000037
9431 @ 85285:                  ASSPAR
9432 @ 85286:                  CALL  

  1932    item = 1
9433 @ 85287:                  LINE   1932 "regression-compile-tmp/chimp.imp"
9434 @ 85323:                  PUSH   ITEM
9435 @ 85326:                  PUSHI  #0x00000001
9436 @ 85331:                  ASSVAL

  1933    %if a(star) %start
9437 @ 85332:                  LINE   1933 "regression-compile-tmp/chimp.imp"
9438 @ 85368:                  PUSH   A
9439 @ 85371:                  PUSHI  #0x00000058
9440 @ 85376:                  ASSPAR
9441 @ 85377:                  CALL  
9442 @ 85378:                  bf     L_0004

  1934      fault(duperr+point) %if dp_spare # 0
9443 @ 85381:                  LINE   1934 "regression-compile-tmp/chimp.imp"
9444 @ 85417:                  PUSH   DP
9445 @ 85420:                  SELECT 4
9446 @ 85423:                  PUSHI  #0x00000000
9447 @ 85428:                  JUMPIF = L_0007
9448 @ 85432:                  PUSH   FAULT
9449 @ 85435:                  PUSHI  #0x00000007
9450 @ 85440:                  PUSHI  #0x00000040
9451 @ 85445:                  ADD   
9452 @ 85446:                  ASSPAR
9453 @ 85447:                  CALL  
9454 @ 85448:                  LOCATE L_0007

  1935      dp_spare = 1
9455 @ 85451:                  LINE   1935 "regression-compile-tmp/chimp.imp"
9456 @ 85487:                  PUSH   DP
9457 @ 85490:                  SELECT 4
9458 @ 85493:                  PUSHI  #0x00000001
9459 @ 85498:                  ASSVAL

  1936    %else
9460 @ 85499:                  LINE   1936 "regression-compile-tmp/chimp.imp"
9461 @ 85535:                  GOTO   L_0003
9462 @ 85538:                  LOCATE L_0004

  1937      get LITERAL(dp_type)
  1938     !beware faulty declaration or index
9463 @ 85541:                  LINE   1937 "regression-compile-tmp/chimp.imp"
9464 @ 85577:                  PUSH   GETLITERAL
9465 @ 85580:                  PUSH   DP
9466 @ 85583:                  SELECT 2
9467 @ 85586:                  ASSPAR
9468 @ 85587:                  CALL  

  1939      %if dp_type > inttype %and faultnum = 0 %start
9469 @ 85588:                  LINE   1939 "regression-compile-tmp/chimp.imp"
9470 @ 85624:                  PUSH   DP
9471 @ 85627:                  SELECT 2
9472 @ 85630:                  PUSHI  #0x00000803
9473 @ 85635:                  JUMPIF <= L_0007
9474 @ 85639:                  PUSH   FAULTNUM
9475 @ 85642:                  PUSHI  #0x00000000
9476 @ 85647:                  JUMPIF # L_0007

  1940        t_val = t_val-dict(dp_type)_low+dp_val
9477 @ 85651:                  LINE   1940 "regression-compile-tmp/chimp.imp"
9478 @ 85687:                  PUSH   T
9479 @ 85690:                  SELECT 7
9480 @ 85693:                  PUSH   T
9481 @ 85696:                  SELECT 7
9482 @ 85699:                  PUSH   DICT
9483 @ 85702:                  PUSH   DP
9484 @ 85705:                  SELECT 2
9485 @ 85708:                  ACCESS
9486 @ 85709:                  SELECT 6
9487 @ 85712:                  SUB   
9488 @ 85713:                  PUSH   DP
9489 @ 85716:                  SELECT 7
9490 @ 85719:                  ADD   
9491 @ 85720:                  ASSVAL

  1941        expfault(duperr+point) %if final(t_val) # 0
  1942  !      define jumps(final(t_val));  !in case of lit jumps
9492 @ 85721:                  LINE   1941 "regression-compile-tmp/chimp.imp"
9493 @ 85757:                  PUSH   FINAL
9494 @ 85760:                  PUSH   T
9495 @ 85763:                  SELECT 7
9496 @ 85766:                  ACCESS
9497 @ 85767:                  PUSHI  #0x00000000
9498 @ 85772:                  JUMPIF = L_000a
9499 @ 85776:                  PUSH   EXPFAULT
9500 @ 85779:                  PUSHI  #0x00000007
9501 @ 85784:                  PUSHI  #0x00000040
9502 @ 85789:                  ADD   
9503 @ 85790:                  ASSPAR
9504 @ 85791:                  CALL  
9505 @ 85792:                  LOCATE L_000a

  1943        final(t_val) = 1
9506 @ 85795:                  LINE   1943 "regression-compile-tmp/chimp.imp"
9507 @ 85831:                  PUSH   FINAL
9508 @ 85834:                  PUSH   T
9509 @ 85837:                  SELECT 7
9510 @ 85840:                  ACCESS
9511 @ 85841:                  PUSHI  #0x00000001
9512 @ 85846:                  ASSVAL

  1944      %finish
9513 @ 85847:                  LINE   1944 "regression-compile-tmp/chimp.imp"
9514 @ 85883:                  LOCATE L_0007

  1945    %finish
9515 @ 85886:                  LINE   1945 "regression-compile-tmp/chimp.imp"
9516 @ 85922:                  LOCATE L_0003

  1946    get(right)
9517 @ 85925:                  LINE   1946 "regression-compile-tmp/chimp.imp"
9518 @ 85961:                  PUSH   GET
9519 @ 85964:                  PUSHI  #0x0000003c
9520 @ 85969:                  ASSPAR
9521 @ 85970:                  CALL  

  1947    c_access = 1
9522 @ 85971:                  LINE   1947 "regression-compile-tmp/chimp.imp"
9523 @ 86007:                  PUSH   C
9524 @ 86010:                  SELECT 12
9525 @ 86013:                  PUSHI  #0x00000001
9526 @ 86018:                  ASSVAL

  1948  %end
  1949  
  1950  ![unsure of efficiency implications of trapping overflow lower down]
9527 @ 86019:                  LINE   1948 "regression-compile-tmp/chimp.imp"
9528 @ 86055:               END    _ECCECI_GETSTATEMENTS_GETSWITCHINDEX {lev=3 --> 2}

  1951  %on %event 1,14 %start
  1952  !$IF VAX
9529 @ 86056:               LINE   1951 "regression-compile-tmp/chimp.imp"
9530 @ 86092:               ON     MASK=4002 L_0004

  1953    report(rangerr,0) %if event_event = 1
  1954  !$IF AMDAHL
  1955  {  report(rangerr,0) %if eventinf>>8 = 1
  1956  !$FINISH
9531 @ 86098:               LINE   1953 "regression-compile-tmp/chimp.imp"
9532 @ 86134:               PUSH   EVENT
9533 @ 86137:               CALL  
9534 @ 86138:               SELECT 1
9535 @ 86141:               PUSHI  #0x00000001
9536 @ 86146:               JUMPIF # L_0007
9537 @ 86150:               PUSH   REPORT
9538 @ 86153:               PUSHI  #0x0000000c
9539 @ 86158:               ASSPAR
9540 @ 86159:               PUSHI  #0x00000000
9541 @ 86164:               ASSPAR
9542 @ 86165:               CALL  
9543 @ 86166:               LOCATE L_0007

  1957    -> skip
9544 @ 86169:               LINE   1957 "regression-compile-tmp/chimp.imp"
9545 @ 86205:               JUMP   L_0114

  1958  %finish
  1959  !!!!!!!!!!!!!!!!!!!  Start of new statement  !!!!!!!!!!!!!!!!!!!
9546 @ 86208:               LINE   1958 "regression-compile-tmp/chimp.imp"
9547 @ 86244:               LOCATE L_0004

  1960  next:
9548 @ 86247:               LINE   1960 "regression-compile-tmp/chimp.imp"
9549 @ 86283:               LABEL  L_0115

  1961    statements = statements+1
9550 @ 86286:               LINE   1961 "regression-compile-tmp/chimp.imp"
9551 @ 86322:               PUSH   STATEMENTS
9552 @ 86325:               PUSH   STATEMENTS
9553 @ 86328:               PUSHI  #0x00000001
9554 @ 86333:               ADD   
9555 @ 86334:               ASSVAL

  1962  next1:
9556 @ 86335:               LINE   1962 "regression-compile-tmp/chimp.imp"
9557 @ 86371:               LABEL  L_0116

  1963    report(faultnum,faultp) %if faultnum # 0
9558 @ 86374:               LINE   1963 "regression-compile-tmp/chimp.imp"
9559 @ 86410:               PUSH   FAULTNUM
9560 @ 86413:               PUSHI  #0x00000000
9561 @ 86418:               JUMPIF = L_0004
9562 @ 86422:               PUSH   REPORT
9563 @ 86425:               PUSH   FAULTNUM
9564 @ 86428:               ASSPAR
9565 @ 86429:               PUSH   FAULTP
9566 @ 86432:               ASSPAR
9567 @ 86433:               CALL  
9568 @ 86434:               LOCATE L_0004

  1964    d = 0;  declmode = 0;  dsize = 0
9569 @ 86437:               LINE   1964 "regression-compile-tmp/chimp.imp"
9570 @ 86473:               PUSH   D
9571 @ 86476:               PUSHI  #0x00000000
9572 @ 86481:               ASSVAL
9573 @ 86482:               LINE   1964 "regression-compile-tmp/chimp.imp"
9574 @ 86518:               PUSH   DECLMODE
9575 @ 86521:               PUSHI  #0x00000000
9576 @ 86526:               ASSVAL
9577 @ 86527:               LINE   1964 "regression-compile-tmp/chimp.imp"
9578 @ 86563:               PUSH   DSIZE
9579 @ 86566:               PUSHI  #0x00000000
9580 @ 86571:               ASSVAL

  1965    dlim0 = dlim;  elements = 0
9581 @ 86572:               LINE   1965 "regression-compile-tmp/chimp.imp"
9582 @ 86608:               PUSH   DLIM0
9583 @ 86611:               PUSH   DLIM
9584 @ 86614:               ASSVAL
9585 @ 86615:               LINE   1965 "regression-compile-tmp/chimp.imp"
9586 @ 86651:               PUSH   ELEMENTS
9587 @ 86654:               PUSHI  #0x00000000
9588 @ 86659:               ASSVAL

  1966    speccing = 0;  mcoding = 0
9589 @ 86660:               LINE   1966 "regression-compile-tmp/chimp.imp"
9590 @ 86696:               PUSH   SPECCING
9591 @ 86699:               PUSHI  #0x00000000
9592 @ 86704:               ASSVAL
9593 @ 86705:               LINE   1966 "regression-compile-tmp/chimp.imp"
9594 @ 86741:               PUSH   MCODING
9595 @ 86744:               PUSHI  #0x00000000
9596 @ 86749:               ASSVAL

  1967    literal = 0;  jammy = 0
9597 @ 86750:               LINE   1967 "regression-compile-tmp/chimp.imp"
9598 @ 86786:               PUSH   LITERAL
9599 @ 86789:               PUSHI  #0x00000000
9600 @ 86794:               ASSVAL
9601 @ 86795:               LINE   1967 "regression-compile-tmp/chimp.imp"
9602 @ 86831:               PUSH   JAMMY
9603 @ 86834:               PUSHI  #0x00000000
9604 @ 86839:               ASSVAL

  1968    dict(curlab)_val = 0;  dict(curlab+1)_val = 0
9605 @ 86840:               LINE   1968 "regression-compile-tmp/chimp.imp"
9606 @ 86876:               PUSH   DICT
9607 @ 86879:               PUSH   CURLAB
9608 @ 86882:               ACCESS
9609 @ 86883:               SELECT 7
9610 @ 86886:               PUSHI  #0x00000000
9611 @ 86891:               ASSVAL
9612 @ 86892:               LINE   1968 "regression-compile-tmp/chimp.imp"
9613 @ 86928:               PUSH   DICT
9614 @ 86931:               PUSH   CURLAB
9615 @ 86934:               PUSHI  #0x00000001
9616 @ 86939:               ADD   
9617 @ 86940:               ACCESS
9618 @ 86941:               SELECT 7
9619 @ 86944:               PUSHI  #0x00000000
9620 @ 86949:               ASSVAL

  1969    np = np0;  instnp = np0;  condnp = np0
  1970  !  constad == finalad;  constbound = purebound
9621 @ 86950:               LINE   1969 "regression-compile-tmp/chimp.imp"
9622 @ 86986:               PUSH   NP
9623 @ 86989:               PUSHI  #0x00000cb7
9624 @ 86994:               ASSVAL
9625 @ 86995:               LINE   1969 "regression-compile-tmp/chimp.imp"
9626 @ 87031:               PUSH   INSTNP
9627 @ 87034:               PUSHI  #0x00000cb7
9628 @ 87039:               ASSVAL
9629 @ 87040:               LINE   1969 "regression-compile-tmp/chimp.imp"
9630 @ 87076:               PUSH   CONDNP
9631 @ 87079:               PUSHI  #0x00000cb7
9632 @ 87084:               ASSVAL

  1971    %if explo < expmin+50 %or litpos > litmax-50 %start
  1972      !zaps = zaps+1;  zaps = zaps+999 %if litpos > litmax-50
9633 @ 87085:               LINE   1971 "regression-compile-tmp/chimp.imp"
9634 @ 87121:               PUSH   EXPLO
9635 @ 87124:               PUSHI  #0x00000cb7
9636 @ 87129:               PUSHI  #0x00000032
9637 @ 87134:               ADD   
9638 @ 87135:               JUMPIF < L_0005
9639 @ 87139:               PUSH   LITPOS
9640 @ 87142:               PUSHI  #0x000007d0
9641 @ 87147:               PUSHI  #0x00000032
9642 @ 87152:               SUB   
9643 @ 87153:               JUMPIF <= L_0004
9644 @ 87157:               LOCATE L_0005

  1973      forget all
9645 @ 87160:               LINE   1973 "regression-compile-tmp/chimp.imp"
9646 @ 87196:               PUSH   FORGETALL
9647 @ 87199:               CALL  

  1974    %finish
9648 @ 87200:               LINE   1974 "regression-compile-tmp/chimp.imp"
9649 @ 87236:               LOCATE L_0004

  1975    t_val = 0
  1976  !
9650 @ 87239:               LINE   1975 "regression-compile-tmp/chimp.imp"
9651 @ 87275:               PUSH   T
9652 @ 87278:               SELECT 7
9653 @ 87281:               PUSHI  #0x00000000
9654 @ 87286:               ASSVAL

  1977  initial(terminator):
9655 @ 87287:               LINE   1977 "regression-compile-tmp/chimp.imp"
9656 @ 87323:               PUSHI  #0x00000034
9657 @ 87328:               SLABEL 272

  1978    atom = next atom;  matched = 1
9658 @ 87331:               LINE   1978 "regression-compile-tmp/chimp.imp"
9659 @ 87367:               PUSH   ATOM
9660 @ 87370:               PUSH   NEXTATOM
9661 @ 87373:               CALL  
9662 @ 87374:               ASSVAL
9663 @ 87375:               LINE   1978 "regression-compile-tmp/chimp.imp"
9664 @ 87411:               PUSH   MATCHED
9665 @ 87414:               PUSHI  #0x00000001
9666 @ 87419:               ASSVAL

  1979    -> initial(atom)
9667 @ 87420:               LINE   1979 "regression-compile-tmp/chimp.imp"
9668 @ 87456:               PUSH   ATOM
9669 @ 87459:               SJUMP  272

  1980  initial(star): initial(exclam): initial(exclam2):
9670 @ 87462:               LINE   1980 "regression-compile-tmp/chimp.imp"
9671 @ 87498:               PUSHI  #0x00000058
9672 @ 87503:               SLABEL 272
9673 @ 87506:               LINE   1980 "regression-compile-tmp/chimp.imp"
9674 @ 87542:               PUSHI  #0x00000052
9675 @ 87547:               SLABEL 272
9676 @ 87550:               LINE   1980 "regression-compile-tmp/chimp.imp"
9677 @ 87586:               PUSHI  #0x00000053
9678 @ 87591:               SLABEL 272

  1981    read line
9679 @ 87594:               LINE   1981 "regression-compile-tmp/chimp.imp"
9680 @ 87630:               PUSH   READLINE
9681 @ 87633:               CALL  

  1982    -> next1
9682 @ 87634:               LINE   1982 "regression-compile-tmp/chimp.imp"
9683 @ 87670:               JUMP   L_0116

  1983  term:
9684 @ 87673:               LINE   1983 "regression-compile-tmp/chimp.imp"
9685 @ 87709:               LABEL  L_0117

  1984    get(terminator)
9686 @ 87712:               LINE   1984 "regression-compile-tmp/chimp.imp"
9687 @ 87748:               PUSH   GET
9688 @ 87751:               PUSHI  #0x00000034
9689 @ 87756:               ASSPAR
9690 @ 87757:               CALL  

  1985    -> next
  1986  
9691 @ 87758:               LINE   1985 "regression-compile-tmp/chimp.imp"
9692 @ 87794:               JUMP   L_0115

  1987  skip:
9693 @ 87797:               LINE   1987 "regression-compile-tmp/chimp.imp"
9694 @ 87833:               LABEL  L_0114

  1988    c_access = -1
9695 @ 87836:               LINE   1988 "regression-compile-tmp/chimp.imp"
9696 @ 87872:               PUSH   C
9697 @ 87875:               SELECT 12
9698 @ 87878:               PUSHI  #0x00000001
9699 @ 87883:               NEGATE
9700 @ 87884:               ASSVAL

  1989    %if atom # terminator %start
9701 @ 87885:               LINE   1989 "regression-compile-tmp/chimp.imp"
9702 @ 87921:               PUSH   ATOM
9703 @ 87924:               PUSHI  #0x00000034
9704 @ 87929:               JUMPIF = L_0004

  1990      %cycle
9705 @ 87933:               LINE   1990 "regression-compile-tmp/chimp.imp"
9706 @ 87969:               LOCATE L_0006

  1991        subatom = atom;  atom = next atom
9707 @ 87972:               LINE   1991 "regression-compile-tmp/chimp.imp"
9708 @ 88008:               PUSH   SUBATOM
9709 @ 88011:               PUSH   ATOM
9710 @ 88014:               ASSVAL
9711 @ 88015:               LINE   1991 "regression-compile-tmp/chimp.imp"
9712 @ 88051:               PUSH   ATOM
9713 @ 88054:               PUSH   NEXTATOM
9714 @ 88057:               CALL  
9715 @ 88058:               ASSVAL

  1992      %repeat %until atom = terminator
9716 @ 88059:               LINE   1992 "regression-compile-tmp/chimp.imp"
9717 @ 88095:               PUSH   ATOM
9718 @ 88098:               PUSHI  #0x00000034
9719 @ 88103:               JUMPIF = L_0007
9720 @ 88107:               REPEAT L_0006
9721 @ 88110:               LOCATE L_0007

  1993      starts = starts+1 %if subatom = start
9722 @ 88113:               LINE   1993 "regression-compile-tmp/chimp.imp"
9723 @ 88149:               PUSH   SUBATOM
9724 @ 88152:               PUSHI  #0x00000015
9725 @ 88157:               JUMPIF # L_0007
9726 @ 88161:               PUSH   STARTS
9727 @ 88164:               PUSH   STARTS
9728 @ 88167:               PUSHI  #0x00000001
9729 @ 88172:               ADD   
9730 @ 88173:               ASSVAL
9731 @ 88174:               LOCATE L_0007

  1994      cycles = cycles+1 %if subatom = cycle
9732 @ 88177:               LINE   1994 "regression-compile-tmp/chimp.imp"
9733 @ 88213:               PUSH   SUBATOM
9734 @ 88216:               PUSHI  #0x00000016
9735 @ 88221:               JUMPIF # L_0007
9736 @ 88225:               PUSH   CYCLES
9737 @ 88228:               PUSH   CYCLES
9738 @ 88231:               PUSHI  #0x00000001
9739 @ 88236:               ADD   
9740 @ 88237:               ASSVAL
9741 @ 88238:               LOCATE L_0007

  1995    %finish
9742 @ 88241:               LINE   1995 "regression-compile-tmp/chimp.imp"
9743 @ 88277:               LOCATE L_0004

  1996    -> next
  1997  
9744 @ 88280:               LINE   1996 "regression-compile-tmp/chimp.imp"
9745 @ 88316:               JUMP   L_0115

  1998  initial(dud):
9746 @ 88319:               LINE   1998 "regression-compile-tmp/chimp.imp"
9747 @ 88355:               PUSHI  #0x0000003f
9748 @ 88360:               SLABEL 272

  1999    syntax error;  !ie atom error
  2000  
9749 @ 88363:               LINE   1999 "regression-compile-tmp/chimp.imp"
9750 @ 88399:               PUSH   SYNTAXERROR
9751 @ 88402:               CALL  

  2001  initial(*):
9752 @ 88403:               LINE   2001 "regression-compile-tmp/chimp.imp"
9753 @ 88439:               DEFSW  272

  2002    error(nonstarter+point)
  2003  
9754 @ 88442:               LINE   2002 "regression-compile-tmp/chimp.imp"
9755 @ 88478:               PUSH   ERROR
9756 @ 88481:               PUSHI  #0x0000001d
9757 @ 88486:               PUSHI  #0x00000040
9758 @ 88491:               ADD   
9759 @ 88492:               ASSPAR
9760 @ 88493:               CALL  

  2004  initial(ident):
9761 @ 88494:               LINE   2004 "regression-compile-tmp/chimp.imp"
9762 @ 88530:               PUSHI  #0x00000036
9763 @ 88535:               SLABEL 272

  2005    %if byteinteger(fp) = ':' %start;  !simple label
9764 @ 88538:               LINE   2005 "regression-compile-tmp/chimp.imp"
9765 @ 88574:               PUSH   BYTEINTEGER
9766 @ 88577:               PUSH   FP
9767 @ 88580:               ASSPAR
9768 @ 88581:               CALL  
9769 @ 88582:               PUSHI  #0x0000003a
9770 @ 88587:               JUMPIF # L_0004

  2006      fp = fp+1
9771 @ 88591:               LINE   2006 "regression-compile-tmp/chimp.imp"
9772 @ 88627:               PUSH   FP
9773 @ 88630:               PUSH   FP
9774 @ 88633:               PUSHI  #0x00000001
9775 @ 88638:               ADD   
9776 @ 88639:               ASSVAL

  2007      d_flags = lab;  d_type = nulltype
9777 @ 88640:               LINE   2007 "regression-compile-tmp/chimp.imp"
9778 @ 88676:               PUSH   D
9779 @ 88679:               SELECT 1
9780 @ 88682:               PUSHI  #0x00000002
9781 @ 88687:               ASSVAL
9782 @ 88688:               LINE   2007 "regression-compile-tmp/chimp.imp"
9783 @ 88724:               PUSH   D
9784 @ 88727:               SELECT 2
9785 @ 88730:               PUSHI  #0x000007f9
9786 @ 88735:               ASSVAL

  2008      declare
9787 @ 88736:               LINE   2008 "regression-compile-tmp/chimp.imp"
9788 @ 88772:               PUSH   DECLARE
9789 @ 88775:               CALL  

  2009      set user label(item)
9790 @ 88776:               LINE   2009 "regression-compile-tmp/chimp.imp"
9791 @ 88812:               PUSH   SETUSERLABEL
9792 @ 88815:               PUSH   ITEM
9793 @ 88818:               ASSPAR
9794 @ 88819:               CALL  

  2010      ->next
9795 @ 88820:               LINE   2010 "regression-compile-tmp/chimp.imp"
9796 @ 88856:               JUMP   L_0115

  2011    %finish
9797 @ 88859:               LINE   2011 "regression-compile-tmp/chimp.imp"
9798 @ 88895:               LOCATE L_0004

  2012    name error %if item <= 0
9799 @ 88898:               LINE   2012 "regression-compile-tmp/chimp.imp"
9800 @ 88934:               PUSH   ITEM
9801 @ 88937:               PUSHI  #0x00000000
9802 @ 88942:               JUMPIF > L_0004
9803 @ 88946:               PUSH   NAMEERROR
9804 @ 88949:               CALL  
9805 @ 88950:               LOCATE L_0004

  2013    %if ditem_flags&lab # 0 %start
9806 @ 88953:               LINE   2013 "regression-compile-tmp/chimp.imp"
9807 @ 88989:               PUSH   DITEM
9808 @ 88992:               SELECT 1
9809 @ 88995:               PUSHI  #0x00000002
9810 @ 89000:               AND   
9811 @ 89001:               PUSHI  #0x00000000
9812 @ 89006:               JUMPIF = L_0004

  2014      get SWITCH INDEX
9813 @ 89010:               LINE   2014 "regression-compile-tmp/chimp.imp"
9814 @ 89046:               PUSH   GETSWITCHINDEX
9815 @ 89049:               CALL  

  2015      get(colon)
9816 @ 89050:               LINE   2015 "regression-compile-tmp/chimp.imp"
9817 @ 89086:               PUSH   GET
9818 @ 89089:               PUSHI  #0x0000003a
9819 @ 89094:               ASSPAR
9820 @ 89095:               CALL  

  2016      ->next
9821 @ 89096:               LINE   2016 "regression-compile-tmp/chimp.imp"
9822 @ 89132:               JUMP   L_0115

  2017    %finish
9823 @ 89135:               LINE   2017 "regression-compile-tmp/chimp.imp"
9824 @ 89171:               LOCATE L_0004

  2018  initial(return): initial(result): initial(tf):
9825 @ 89174:               LINE   2018 "regression-compile-tmp/chimp.imp"
9826 @ 89210:               PUSHI  #0x00000007
9827 @ 89215:               SLABEL 272
9828 @ 89218:               LINE   2018 "regression-compile-tmp/chimp.imp"
9829 @ 89254:               PUSHI  #0x00000009
9830 @ 89259:               SLABEL 272
9831 @ 89262:               LINE   2018 "regression-compile-tmp/chimp.imp"
9832 @ 89298:               PUSHI  #0x00000008
9833 @ 89303:               SLABEL 272

  2019  initial(stop): initial(signal): initial(monitor):
9834 @ 89306:               LINE   2019 "regression-compile-tmp/chimp.imp"
9835 @ 89342:               PUSHI  #0x0000000a
9836 @ 89347:               SLABEL 272
9837 @ 89350:               LINE   2019 "regression-compile-tmp/chimp.imp"
9838 @ 89386:               PUSHI  #0x0000000c
9839 @ 89391:               SLABEL 272
9840 @ 89394:               LINE   2019 "regression-compile-tmp/chimp.imp"
9841 @ 89430:               PUSHI  #0x0000000d
9842 @ 89435:               SLABEL 272

  2020  initial(exit): initial(goto): initial(arrow):
9843 @ 89438:               LINE   2020 "regression-compile-tmp/chimp.imp"
9844 @ 89474:               PUSHI  #0x00000006
9845 @ 89479:               SLABEL 272
9846 @ 89482:               LINE   2020 "regression-compile-tmp/chimp.imp"
9847 @ 89518:               PUSHI  #0x0000000b
9848 @ 89523:               SLABEL 272
9849 @ 89526:               LINE   2020 "regression-compile-tmp/chimp.imp"
9850 @ 89562:               PUSHI  #0x0000004f
9851 @ 89567:               SLABEL 272

  2021    matched = 0
9852 @ 89570:               LINE   2021 "regression-compile-tmp/chimp.imp"
9853 @ 89606:               PUSH   MATCHED
9854 @ 89609:               PUSHI  #0x00000000
9855 @ 89614:               ASSVAL

  2022    get INSTRUCTION
9856 @ 89615:               LINE   2022 "regression-compile-tmp/chimp.imp"
9857 @ 89651:               PUSH   GETINSTRUCTION
9858 @ 89654:               CALL  

  2023    -> next %if a(terminator)
9859 @ 89655:               LINE   2023 "regression-compile-tmp/chimp.imp"
9860 @ 89691:               PUSH   A
9861 @ 89694:               PUSHI  #0x00000034
9862 @ 89699:               ASSPAR
9863 @ 89700:               CALL  
9864 @ 89701:               bf     L_0004
9865 @ 89704:               JUMP   L_0115
9866 @ 89707:               LOCATE L_0004

  2024    c_access = 1
9867 @ 89710:               LINE   2024 "regression-compile-tmp/chimp.imp"
9868 @ 89746:               PUSH   C
9869 @ 89749:               SELECT 12
9870 @ 89752:               PUSHI  #0x00000001
9871 @ 89757:               ASSVAL

  2025    %if a(iu) %start
9872 @ 89758:               LINE   2025 "regression-compile-tmp/chimp.imp"
9873 @ 89794:               PUSH   A
9874 @ 89797:               PUSHI  #0x00000010
9875 @ 89802:               ASSPAR
9876 @ 89803:               CALL  
9877 @ 89804:               bf     L_0004

  2026      holdnp = np
9878 @ 89807:               LINE   2026 "regression-compile-tmp/chimp.imp"
9879 @ 89843:               PUSH   HOLDNP
9880 @ 89846:               PUSH   NP
9881 @ 89849:               ASSVAL

  2027      get CONDITION
  2028  !    compile(holdnp,np)
9882 @ 89850:               LINE   2027 "regression-compile-tmp/chimp.imp"
9883 @ 89886:               PUSH   GETCONDITION
9884 @ 89889:               CALL  

  2029    %else %if a(while)
9885 @ 89890:               LINE   2029 "regression-compile-tmp/chimp.imp"
9886 @ 89926:               GOTO   L_0003
9887 @ 89929:               LOCATE L_0004
9888 @ 89932:               PUSH   A
9889 @ 89935:               PUSHI  #0x00000011
9890 @ 89940:               ASSPAR
9891 @ 89941:               CALL  
9892 @ 89942:               bf     L_0004

  2030      holdnp = np
  2031  !    put3(label,curlab,0)
9893 @ 89945:               LINE   2030 "regression-compile-tmp/chimp.imp"
9894 @ 89981:               PUSH   HOLDNP
9895 @ 89984:               PUSH   NP
9896 @ 89987:               ASSVAL

  2032      get CONDITION
  2033  !    compile(holdnp,np)
  2034  !    put3(jump,curlab,0)
  2035  !    put3(label,curlab+1,0)
9897 @ 89988:               LINE   2032 "regression-compile-tmp/chimp.imp"
9898 @ 90024:               PUSH   GETCONDITION
9899 @ 90027:               CALL  

  2036    %else %if a(for)
9900 @ 90028:               LINE   2036 "regression-compile-tmp/chimp.imp"
9901 @ 90064:               GOTO   L_0003
9902 @ 90067:               LOCATE L_0004
9903 @ 90070:               PUSH   A
9904 @ 90073:               PUSHI  #0x00000013
9905 @ 90078:               ASSPAR
9906 @ 90079:               CALL  
9907 @ 90080:               bf     L_0004

  2037      get FOR CLAUSE
  2038  !    put3(jump,curlab,0)
  2039  !    put3(label,curlab+1,0)
9908 @ 90083:               LINE   2037 "regression-compile-tmp/chimp.imp"
9909 @ 90119:               PUSH   GETFORCLAUSE
9910 @ 90122:               CALL  

  2040    %else
9911 @ 90123:               LINE   2040 "regression-compile-tmp/chimp.imp"
9912 @ 90159:               GOTO   L_0003
9913 @ 90162:               LOCATE L_0004

  2041      syntax error %if %not a(until)
9914 @ 90165:               LINE   2041 "regression-compile-tmp/chimp.imp"
9915 @ 90201:               PUSH   A
9916 @ 90204:               PUSHI  #0x00000012
9917 @ 90209:               ASSPAR
9918 @ 90210:               CALL  
9919 @ 90211:               bt     L_0007
9920 @ 90214:               PUSH   SYNTAXERROR
9921 @ 90217:               CALL  
9922 @ 90218:               LOCATE L_0007

  2042      get CONDITION
9923 @ 90221:               LINE   2042 "regression-compile-tmp/chimp.imp"
9924 @ 90257:               PUSH   GETCONDITION
9925 @ 90260:               CALL  

  2043    %finish
9926 @ 90261:               LINE   2043 "regression-compile-tmp/chimp.imp"
9927 @ 90297:               LOCATE L_0003

  2044    -> term
  2045  
9928 @ 90300:               LINE   2044 "regression-compile-tmp/chimp.imp"
9929 @ 90336:               JUMP   L_0117

  2046  initial(iu):  !%if, %unless
9930 @ 90339:               LINE   2046 "regression-compile-tmp/chimp.imp"
9931 @ 90375:               PUSHI  #0x00000010
9932 @ 90380:               SLABEL 272

  2047    %cycle
9933 @ 90383:               LINE   2047 "regression-compile-tmp/chimp.imp"
9934 @ 90419:               LOCATE L_0003

  2048      holdnp = np
9935 @ 90422:               LINE   2048 "regression-compile-tmp/chimp.imp"
9936 @ 90458:               PUSH   HOLDNP
9937 @ 90461:               PUSH   NP
9938 @ 90464:               ASSVAL

  2049      get CONDITION
  2050  !    compile(holdnp,np)
9939 @ 90465:               LINE   2049 "regression-compile-tmp/chimp.imp"
9940 @ 90501:               PUSH   GETCONDITION
9941 @ 90504:               CALL  

  2051      %if a(then) %start
9942 @ 90505:               LINE   2051 "regression-compile-tmp/chimp.imp"
9943 @ 90541:               PUSH   A
9944 @ 90544:               PUSHI  #0x00000014
9945 @ 90549:               ASSPAR
9946 @ 90550:               CALL  
9947 @ 90551:               bf     L_0007

  2052        -> fudge %if a(start)
9948 @ 90554:               LINE   2052 "regression-compile-tmp/chimp.imp"
9949 @ 90590:               PUSH   A
9950 @ 90593:               PUSHI  #0x00000015
9951 @ 90598:               ASSPAR
9952 @ 90599:               CALL  
9953 @ 90600:               bf     L_000a
9954 @ 90603:               JUMP   L_0118
9955 @ 90606:               LOCATE L_000a

  2053        get INSTRUCTION
9956 @ 90609:               LINE   2053 "regression-compile-tmp/chimp.imp"
9957 @ 90645:               PUSH   GETINSTRUCTION
9958 @ 90648:               CALL  

  2054      %finish %else %start
9959 @ 90649:               LINE   2054 "regression-compile-tmp/chimp.imp"
9960 @ 90685:               GOTO   L_0006
9961 @ 90688:               LOCATE L_0007

  2055        get(start)
9962 @ 90691:               LINE   2055 "regression-compile-tmp/chimp.imp"
9963 @ 90727:               PUSH   GET
9964 @ 90730:               PUSHI  #0x00000015
9965 @ 90735:               ASSPAR
9966 @ 90736:               CALL  

  2056  fudge:
9967 @ 90737:               LINE   2056 "regression-compile-tmp/chimp.imp"
9968 @ 90773:               LABEL  L_0118

  2057        %cycle
9969 @ 90776:               LINE   2057 "regression-compile-tmp/chimp.imp"
9970 @ 90812:               LOCATE L_0009

  2058          get(terminator)
9971 @ 90815:               LINE   2058 "regression-compile-tmp/chimp.imp"
9972 @ 90851:               PUSH   GET
9973 @ 90854:               PUSHI  #0x00000034
9974 @ 90859:               ASSPAR
9975 @ 90860:               CALL  

  2059          curlab = curlab+2
9976 @ 90861:               LINE   2059 "regression-compile-tmp/chimp.imp"
9977 @ 90897:               PUSH   CURLAB
9978 @ 90900:               PUSH   CURLAB
9979 @ 90903:               PUSHI  #0x00000002
9980 @ 90908:               ADD   
9981 @ 90909:               ASSVAL

  2060          get STATEMENTS(else)
9982 @ 90910:               LINE   2060 "regression-compile-tmp/chimp.imp"
9983 @ 90946:               PUSH   GETSTATEMENTS
9984 @ 90949:               PUSHI  #0x00000004
9985 @ 90954:               ASSPAR
9986 @ 90955:               CALL  

  2061          curlab = curlab-2
9987 @ 90956:               LINE   2061 "regression-compile-tmp/chimp.imp"
9988 @ 90992:               PUSH   CURLAB
9989 @ 90995:               PUSH   CURLAB
9990 @ 90998:               PUSHI  #0x00000002
9991 @ 91003:               SUB   
9992 @ 91004:               ASSVAL

  2062          %exit %if atom # else;  !%finish ->
9993 @ 91005:               LINE   2062 "regression-compile-tmp/chimp.imp"
9994 @ 91041:               PUSH   ATOM
9995 @ 91044:               PUSHI  #0x00000004
9996 @ 91049:               JUMPIF = L_000d
9997 @ 91053:               GOTO   L_000a
9998 @ 91056:               LOCATE L_000d

  2063          get CONDITION %if a(iu)
9999 @ 91059:               LINE   2063 "regression-compile-tmp/chimp.imp"
10000 @ 91095:               PUSH   A
10001 @ 91098:               PUSHI  #0x00000010
10002 @ 91103:               ASSPAR
10003 @ 91104:               CALL  
10004 @ 91105:               bf     L_000d
10005 @ 91108:               PUSH   GETCONDITION
10006 @ 91111:               CALL  
10007 @ 91112:               LOCATE L_000d

  2064        %repeat
10008 @ 91115:               LINE   2064 "regression-compile-tmp/chimp.imp"
10009 @ 91151:               REPEAT L_0009
10010 @ 91154:               LOCATE L_000a

  2065        %return %if atom # finish
10011 @ 91157:               LINE   2065 "regression-compile-tmp/chimp.imp"
10012 @ 91193:               PUSH   ATOM
10013 @ 91196:               PUSHI  #0x00000003
10014 @ 91201:               JUMPIF = L_000a
10015 @ 91205:               RETURN
10016 @ 91206:               LOCATE L_000a

  2066      %finish
10017 @ 91209:               LINE   2066 "regression-compile-tmp/chimp.imp"
10018 @ 91245:               LOCATE L_0006

  2067      %exit %if %not a(else)
10019 @ 91248:               LINE   2067 "regression-compile-tmp/chimp.imp"
10020 @ 91284:               PUSH   A
10021 @ 91287:               PUSHI  #0x00000004
10022 @ 91292:               ASSPAR
10023 @ 91293:               CALL  
10024 @ 91294:               bt     L_0007
10025 @ 91297:               GOTO   L_0004
10026 @ 91300:               LOCATE L_0007

  2068      -> fudge %if a(start)
10027 @ 91303:               LINE   2068 "regression-compile-tmp/chimp.imp"
10028 @ 91339:               PUSH   A
10029 @ 91342:               PUSHI  #0x00000015
10030 @ 91347:               ASSPAR
10031 @ 91348:               CALL  
10032 @ 91349:               bf     L_0007
10033 @ 91352:               JUMP   L_0118
10034 @ 91355:               LOCATE L_0007

  2069      get INSTRUCTION %and %exit %if %not a(iu)
10035 @ 91358:               LINE   2069 "regression-compile-tmp/chimp.imp"
10036 @ 91394:               PUSH   A
10037 @ 91397:               PUSHI  #0x00000010
10038 @ 91402:               ASSPAR
10039 @ 91403:               CALL  
10040 @ 91404:               bt     L_0007
10041 @ 91407:               PUSH   GETINSTRUCTION
10042 @ 91410:               CALL  
10043 @ 91411:               GOTO   L_0004
10044 @ 91414:               LOCATE L_0007

  2070    %repeat
10045 @ 91417:               LINE   2070 "regression-compile-tmp/chimp.imp"
10046 @ 91453:               REPEAT L_0003
10047 @ 91456:               LOCATE L_0004

  2071    -> term
  2072  
10048 @ 91459:               LINE   2071 "regression-compile-tmp/chimp.imp"
10049 @ 91495:               JUMP   L_0117

  2073  initial(cycle):
10050 @ 91498:               LINE   2073 "regression-compile-tmp/chimp.imp"
10051 @ 91534:               PUSHI  #0x00000016
10052 @ 91539:               SLABEL 272

  2074    %if a(terminator) %start
10053 @ 91542:               LINE   2074 "regression-compile-tmp/chimp.imp"
10054 @ 91578:               PUSH   A
10055 @ 91581:               PUSHI  #0x00000034
10056 @ 91586:               ASSPAR
10057 @ 91587:               CALL  
10058 @ 91588:               bf     L_0004

  2075      holdlooplab = looplab;  looplab = curlab
10059 @ 91591:               LINE   2075 "regression-compile-tmp/chimp.imp"
10060 @ 91627:               PUSH   HOLDLOOPLAB
10061 @ 91630:               PUSH   LOOPLAB
10062 @ 91633:               ASSVAL
10063 @ 91634:               LINE   2075 "regression-compile-tmp/chimp.imp"
10064 @ 91670:               PUSH   LOOPLAB
10065 @ 91673:               PUSH   CURLAB
10066 @ 91676:               ASSVAL

  2076      curlab = curlab+2
10067 @ 91677:               LINE   2076 "regression-compile-tmp/chimp.imp"
10068 @ 91713:               PUSH   CURLAB
10069 @ 91716:               PUSH   CURLAB
10070 @ 91719:               PUSHI  #0x00000002
10071 @ 91724:               ADD   
10072 @ 91725:               ASSVAL

  2077      get STATEMENTS(repeat)
10073 @ 91726:               LINE   2077 "regression-compile-tmp/chimp.imp"
10074 @ 91762:               PUSH   GETSTATEMENTS
10075 @ 91765:               PUSHI  #0x00000002
10076 @ 91770:               ASSPAR
10077 @ 91771:               CALL  

  2078      curlab = curlab-2;  looplab = holdlooplab
10078 @ 91772:               LINE   2078 "regression-compile-tmp/chimp.imp"
10079 @ 91808:               PUSH   CURLAB
10080 @ 91811:               PUSH   CURLAB
10081 @ 91814:               PUSHI  #0x00000002
10082 @ 91819:               SUB   
10083 @ 91820:               ASSVAL
10084 @ 91821:               LINE   2078 "regression-compile-tmp/chimp.imp"
10085 @ 91857:               PUSH   LOOPLAB
10086 @ 91860:               PUSH   HOLDLOOPLAB
10087 @ 91863:               ASSVAL

  2079      %return %if atom # repeat
10088 @ 91864:               LINE   2079 "regression-compile-tmp/chimp.imp"
10089 @ 91900:               PUSH   ATOM
10090 @ 91903:               PUSHI  #0x00000002
10091 @ 91908:               JUMPIF = L_0007
10092 @ 91912:               RETURN
10093 @ 91913:               LOCATE L_0007

  2080      get CONDITION %if a(until)
10094 @ 91916:               LINE   2080 "regression-compile-tmp/chimp.imp"
10095 @ 91952:               PUSH   A
10096 @ 91955:               PUSHI  #0x00000012
10097 @ 91960:               ASSPAR
10098 @ 91961:               CALL  
10099 @ 91962:               bf     L_0007
10100 @ 91965:               PUSH   GETCONDITION
10101 @ 91968:               CALL  
10102 @ 91969:               LOCATE L_0007

  2081      -> term
10103 @ 91972:               LINE   2081 "regression-compile-tmp/chimp.imp"
10104 @ 92008:               JUMP   L_0117

  2082    %finish
10105 @ 92011:               LINE   2082 "regression-compile-tmp/chimp.imp"
10106 @ 92047:               LOCATE L_0004

  2083    nonstandard(oldcycle)
10107 @ 92050:               LINE   2083 "regression-compile-tmp/chimp.imp"
10108 @ 92086:               PUSH   NONSTANDARD
10109 @ 92089:               PUSHI  #0x00001000
10110 @ 92094:               ASSPAR
10111 @ 92095:               CALL  

  2084    get FOR CLAUSE
10112 @ 92096:               LINE   2084 "regression-compile-tmp/chimp.imp"
10113 @ 92132:               PUSH   GETFORCLAUSE
10114 @ 92135:               CALL  

  2085    -> for1
10115 @ 92136:               LINE   2085 "regression-compile-tmp/chimp.imp"
10116 @ 92172:               JUMP   L_0119

  2086  initial(while):
10117 @ 92175:               LINE   2086 "regression-compile-tmp/chimp.imp"
10118 @ 92211:               PUSHI  #0x00000011
10119 @ 92216:               SLABEL 272

  2087    holdnp = np
  2088  !  put3(label,curlab,0)
10120 @ 92219:               LINE   2087 "regression-compile-tmp/chimp.imp"
10121 @ 92255:               PUSH   HOLDNP
10122 @ 92258:               PUSH   NP
10123 @ 92261:               ASSVAL

  2089    get CONDITION
  2090  !  compile(holdnp,np)
10124 @ 92262:               LINE   2089 "regression-compile-tmp/chimp.imp"
10125 @ 92298:               PUSH   GETCONDITION
10126 @ 92301:               CALL  

  2091    get(cycle)
10127 @ 92302:               LINE   2091 "regression-compile-tmp/chimp.imp"
10128 @ 92338:               PUSH   GET
10129 @ 92341:               PUSHI  #0x00000016
10130 @ 92346:               ASSPAR
10131 @ 92347:               CALL  

  2092    get(terminator)
10132 @ 92348:               LINE   2092 "regression-compile-tmp/chimp.imp"
10133 @ 92384:               PUSH   GET
10134 @ 92387:               PUSHI  #0x00000034
10135 @ 92392:               ASSPAR
10136 @ 92393:               CALL  

  2093    holdlooplab = looplab;  looplab = curlab
10137 @ 92394:               LINE   2093 "regression-compile-tmp/chimp.imp"
10138 @ 92430:               PUSH   HOLDLOOPLAB
10139 @ 92433:               PUSH   LOOPLAB
10140 @ 92436:               ASSVAL
10141 @ 92437:               LINE   2093 "regression-compile-tmp/chimp.imp"
10142 @ 92473:               PUSH   LOOPLAB
10143 @ 92476:               PUSH   CURLAB
10144 @ 92479:               ASSVAL

  2094    curlab = curlab+2
10145 @ 92480:               LINE   2094 "regression-compile-tmp/chimp.imp"
10146 @ 92516:               PUSH   CURLAB
10147 @ 92519:               PUSH   CURLAB
10148 @ 92522:               PUSHI  #0x00000002
10149 @ 92527:               ADD   
10150 @ 92528:               ASSVAL

  2095    get STATEMENTS(repeat)
10151 @ 92529:               LINE   2095 "regression-compile-tmp/chimp.imp"
10152 @ 92565:               PUSH   GETSTATEMENTS
10153 @ 92568:               PUSHI  #0x00000002
10154 @ 92573:               ASSPAR
10155 @ 92574:               CALL  

  2096    curlab = curlab-2;  looplab = holdlooplab
10156 @ 92575:               LINE   2096 "regression-compile-tmp/chimp.imp"
10157 @ 92611:               PUSH   CURLAB
10158 @ 92614:               PUSH   CURLAB
10159 @ 92617:               PUSHI  #0x00000002
10160 @ 92622:               SUB   
10161 @ 92623:               ASSVAL
10162 @ 92624:               LINE   2096 "regression-compile-tmp/chimp.imp"
10163 @ 92660:               PUSH   LOOPLAB
10164 @ 92663:               PUSH   HOLDLOOPLAB
10165 @ 92666:               ASSVAL

  2097    %return %if atom # repeat
10166 @ 92667:               LINE   2097 "regression-compile-tmp/chimp.imp"
10167 @ 92703:               PUSH   ATOM
10168 @ 92706:               PUSHI  #0x00000002
10169 @ 92711:               JUMPIF = L_0004
10170 @ 92715:               RETURN
10171 @ 92716:               LOCATE L_0004

  2098    nonstandard(loop2) %and get CONDITION %if a(until)
  2099  !  put3(jump,curlab,0)
  2100  !  put3(label,curlab+1,0)
10172 @ 92719:               LINE   2098 "regression-compile-tmp/chimp.imp"
10173 @ 92755:               PUSH   A
10174 @ 92758:               PUSHI  #0x00000012
10175 @ 92763:               ASSPAR
10176 @ 92764:               CALL  
10177 @ 92765:               bf     L_0004
10178 @ 92768:               PUSH   NONSTANDARD
10179 @ 92771:               PUSHI  #0x00002000
10180 @ 92776:               ASSPAR
10181 @ 92777:               CALL  
10182 @ 92778:               PUSH   GETCONDITION
10183 @ 92781:               CALL  
10184 @ 92782:               LOCATE L_0004

  2101    ->term
10185 @ 92785:               LINE   2101 "regression-compile-tmp/chimp.imp"
10186 @ 92821:               JUMP   L_0117

  2102  initial(for):
10187 @ 92824:               LINE   2102 "regression-compile-tmp/chimp.imp"
10188 @ 92860:               PUSHI  #0x00000013
10189 @ 92865:               SLABEL 272

  2103    get FOR CLAUSE
10190 @ 92868:               LINE   2103 "regression-compile-tmp/chimp.imp"
10191 @ 92904:               PUSH   GETFORCLAUSE
10192 @ 92907:               CALL  

  2104    get(cycle)
10193 @ 92908:               LINE   2104 "regression-compile-tmp/chimp.imp"
10194 @ 92944:               PUSH   GET
10195 @ 92947:               PUSHI  #0x00000016
10196 @ 92952:               ASSPAR
10197 @ 92953:               CALL  

  2105  for1:
10198 @ 92954:               LINE   2105 "regression-compile-tmp/chimp.imp"
10199 @ 92990:               LABEL  L_0119

  2106    get(terminator)
10200 @ 92993:               LINE   2106 "regression-compile-tmp/chimp.imp"
10201 @ 93029:               PUSH   GET
10202 @ 93032:               PUSHI  #0x00000034
10203 @ 93037:               ASSPAR
10204 @ 93038:               CALL  

  2107    holdlooplab = looplab;  looplab = curlab
10205 @ 93039:               LINE   2107 "regression-compile-tmp/chimp.imp"
10206 @ 93075:               PUSH   HOLDLOOPLAB
10207 @ 93078:               PUSH   LOOPLAB
10208 @ 93081:               ASSVAL
10209 @ 93082:               LINE   2107 "regression-compile-tmp/chimp.imp"
10210 @ 93118:               PUSH   LOOPLAB
10211 @ 93121:               PUSH   CURLAB
10212 @ 93124:               ASSVAL

  2108    curlab = curlab+2
10213 @ 93125:               LINE   2108 "regression-compile-tmp/chimp.imp"
10214 @ 93161:               PUSH   CURLAB
10215 @ 93164:               PUSH   CURLAB
10216 @ 93167:               PUSHI  #0x00000002
10217 @ 93172:               ADD   
10218 @ 93173:               ASSVAL

  2109    get STATEMENTS(repeat)
10219 @ 93174:               LINE   2109 "regression-compile-tmp/chimp.imp"
10220 @ 93210:               PUSH   GETSTATEMENTS
10221 @ 93213:               PUSHI  #0x00000002
10222 @ 93218:               ASSPAR
10223 @ 93219:               CALL  

  2110    curlab = curlab-2;  looplab = holdlooplab
10224 @ 93220:               LINE   2110 "regression-compile-tmp/chimp.imp"
10225 @ 93256:               PUSH   CURLAB
10226 @ 93259:               PUSH   CURLAB
10227 @ 93262:               PUSHI  #0x00000002
10228 @ 93267:               SUB   
10229 @ 93268:               ASSVAL
10230 @ 93269:               LINE   2110 "regression-compile-tmp/chimp.imp"
10231 @ 93305:               PUSH   LOOPLAB
10232 @ 93308:               PUSH   HOLDLOOPLAB
10233 @ 93311:               ASSVAL

  2111    %return %if atom # repeat
  2112  !  put3(repeat,0,0)
10234 @ 93312:               LINE   2111 "regression-compile-tmp/chimp.imp"
10235 @ 93348:               PUSH   ATOM
10236 @ 93351:               PUSHI  #0x00000002
10237 @ 93356:               JUMPIF = L_0004
10238 @ 93360:               RETURN
10239 @ 93361:               LOCATE L_0004

  2113    -> term
  2114  
10240 @ 93364:               LINE   2113 "regression-compile-tmp/chimp.imp"
10241 @ 93400:               JUMP   L_0117

  2115  initial(on):
10242 @ 93403:               LINE   2115 "regression-compile-tmp/chimp.imp"
10243 @ 93439:               PUSHI  #0x0000000f
10244 @ 93444:               SLABEL 272

  2116    fault(ordererr+point) %if c_flags >= hadon %or level <= outerlevel
10245 @ 93447:               LINE   2116 "regression-compile-tmp/chimp.imp"
10246 @ 93483:               PUSH   C
10247 @ 93486:               SELECT 4
10248 @ 93489:               PUSHI  #0x00000010
10249 @ 93494:               JUMPIF >= L_0005
10250 @ 93498:               PUSH   LEVEL
10251 @ 93501:               PUSHI  #0x00000000
10252 @ 93506:               JUMPIF > L_0004
10253 @ 93510:               LOCATE L_0005
10254 @ 93513:               PUSH   FAULT
10255 @ 93516:               PUSHI  #0x0000000a
10256 @ 93521:               PUSHI  #0x00000040
10257 @ 93526:               ADD   
10258 @ 93527:               ASSPAR
10259 @ 93528:               CALL  
10260 @ 93529:               LOCATE L_0004

  2117    c_flags = c_flags!hadon
10261 @ 93532:               LINE   2117 "regression-compile-tmp/chimp.imp"
10262 @ 93568:               PUSH   C
10263 @ 93571:               SELECT 4
10264 @ 93574:               PUSH   C
10265 @ 93577:               SELECT 4
10266 @ 93580:               PUSHI  #0x00000010
10267 @ 93585:               OR    
10268 @ 93586:               ASSVAL

  2118    matched = 1
10269 @ 93587:               LINE   2118 "regression-compile-tmp/chimp.imp"
10270 @ 93623:               PUSH   MATCHED
10271 @ 93626:               PUSHI  #0x00000001
10272 @ 93631:               ASSVAL

  2119    allow(keyevent)
10273 @ 93632:               LINE   2119 "regression-compile-tmp/chimp.imp"
10274 @ 93668:               PUSH   ALLOW
10275 @ 93671:               PUSHI  #0x0000002c
10276 @ 93676:               ASSPAR
10277 @ 93677:               CALL  

  2120    %cycle
10278 @ 93678:               LINE   2120 "regression-compile-tmp/chimp.imp"
10279 @ 93714:               LOCATE L_0003

  2121      get LITINT
10280 @ 93717:               LINE   2121 "regression-compile-tmp/chimp.imp"
10281 @ 93753:               PUSH   GETLITINT
10282 @ 93756:               CALL  

  2122      expfault(rangerr+point) %unless 0 <= t_val <= 15
10283 @ 93757:               LINE   2122 "regression-compile-tmp/chimp.imp"
10284 @ 93793:               PUSHI  #0x00000000
10285 @ 93798:               PUSH   T
10286 @ 93801:               SELECT 7
10287 @ 93804:               JUMPIFD > L_0008
10288 @ 93808:               PUSHI  #0x0000000f
10289 @ 93813:               JUMPIF <= L_0007
10290 @ 93817:               LOCATE L_0008
10291 @ 93820:               PUSH   EXPFAULT
10292 @ 93823:               PUSHI  #0x0000000c
10293 @ 93828:               PUSHI  #0x00000040
10294 @ 93833:               ADD   
10295 @ 93834:               ASSPAR
10296 @ 93835:               CALL  
10297 @ 93836:               LOCATE L_0007

  2123      c_events = c_events!1<<t_val
10298 @ 93839:               LINE   2123 "regression-compile-tmp/chimp.imp"
10299 @ 93875:               PUSH   C
10300 @ 93878:               SELECT 14
10301 @ 93881:               PUSH   C
10302 @ 93884:               SELECT 14
10303 @ 93887:               PUSHI  #0x00000001
10304 @ 93892:               PUSH   T
10305 @ 93895:               SELECT 7
10306 @ 93898:               LSH   
10307 @ 93899:               OR    
10308 @ 93900:               ASSVAL

  2124    %repeat %until %not a(comma)
10309 @ 93901:               LINE   2124 "regression-compile-tmp/chimp.imp"
10310 @ 93937:               PUSH   A
10311 @ 93940:               PUSHI  #0x0000003b
10312 @ 93945:               ASSPAR
10313 @ 93946:               CALL  
10314 @ 93947:               bf     L_0004
10315 @ 93950:               REPEAT L_0003
10316 @ 93953:               LOCATE L_0004

  2125    get(start)
  2126  !  put3(on,0,0)
10317 @ 93956:               LINE   2125 "regression-compile-tmp/chimp.imp"
10318 @ 93992:               PUSH   GET
10319 @ 93995:               PUSHI  #0x00000015
10320 @ 94000:               ASSPAR
10321 @ 94001:               CALL  

  2127    curlab = curlab+2
10322 @ 94002:               LINE   2127 "regression-compile-tmp/chimp.imp"
10323 @ 94038:               PUSH   CURLAB
10324 @ 94041:               PUSH   CURLAB
10325 @ 94044:               PUSHI  #0x00000002
10326 @ 94049:               ADD   
10327 @ 94050:               ASSVAL

  2128    get STATEMENTS(finish)
10328 @ 94051:               LINE   2128 "regression-compile-tmp/chimp.imp"
10329 @ 94087:               PUSH   GETSTATEMENTS
10330 @ 94090:               PUSHI  #0x00000003
10331 @ 94095:               ASSPAR
10332 @ 94096:               CALL  

  2129    curlab = curlab-2
10333 @ 94097:               LINE   2129 "regression-compile-tmp/chimp.imp"
10334 @ 94133:               PUSH   CURLAB
10335 @ 94136:               PUSH   CURLAB
10336 @ 94139:               PUSHI  #0x00000002
10337 @ 94144:               SUB   
10338 @ 94145:               ASSVAL

  2130    %return %if atom # finish
10339 @ 94146:               LINE   2130 "regression-compile-tmp/chimp.imp"
10340 @ 94182:               PUSH   ATOM
10341 @ 94185:               PUSHI  #0x00000003
10342 @ 94190:               JUMPIF = L_0004
10343 @ 94194:               RETURN
10344 @ 94195:               LOCATE L_0004

  2131    -> term
  2132  !
10345 @ 94198:               LINE   2131 "regression-compile-tmp/chimp.imp"
10346 @ 94234:               JUMP   L_0117

  2133  initial(else):
10347 @ 94237:               LINE   2133 "regression-compile-tmp/chimp.imp"
10348 @ 94273:               PUSHI  #0x00000004
10349 @ 94278:               SLABEL 272

  2134    -> skip %if starts # 0
10350 @ 94281:               LINE   2134 "regression-compile-tmp/chimp.imp"
10351 @ 94317:               PUSH   STARTS
10352 @ 94320:               PUSHI  #0x00000000
10353 @ 94325:               JUMPIF = L_0004
10354 @ 94329:               JUMP   L_0114
10355 @ 94332:               LOCATE L_0004

  2135    %return %if stopper = else
10356 @ 94335:               LINE   2135 "regression-compile-tmp/chimp.imp"
10357 @ 94371:               PUSH   STOPPER
10358 @ 94374:               PUSHI  #0x00000004
10359 @ 94379:               JUMPIF # L_0004
10360 @ 94383:               RETURN
10361 @ 94384:               LOCATE L_0004

  2136    error(noif) %if stopper = finish
10362 @ 94387:               LINE   2136 "regression-compile-tmp/chimp.imp"
10363 @ 94423:               PUSH   STOPPER
10364 @ 94426:               PUSHI  #0x00000003
10365 @ 94431:               JUMPIF # L_0004
10366 @ 94435:               PUSH   ERROR
10367 @ 94438:               PUSHI  #0x00000015
10368 @ 94443:               ASSPAR
10369 @ 94444:               CALL  
10370 @ 94445:               LOCATE L_0004

  2137  initial(finish):
10371 @ 94448:               LINE   2137 "regression-compile-tmp/chimp.imp"
10372 @ 94484:               PUSHI  #0x00000003
10373 @ 94489:               SLABEL 272

  2138    starts = starts-1 %and -> skip %if starts # 0
10374 @ 94492:               LINE   2138 "regression-compile-tmp/chimp.imp"
10375 @ 94528:               PUSH   STARTS
10376 @ 94531:               PUSHI  #0x00000000
10377 @ 94536:               JUMPIF = L_0004
10378 @ 94540:               PUSH   STARTS
10379 @ 94543:               PUSH   STARTS
10380 @ 94546:               PUSHI  #0x00000001
10381 @ 94551:               SUB   
10382 @ 94552:               ASSVAL
10383 @ 94553:               JUMP   L_0114
10384 @ 94556:               LOCATE L_0004

  2139    %return %if stopper = finish %or stopper = else
10385 @ 94559:               LINE   2139 "regression-compile-tmp/chimp.imp"
10386 @ 94595:               PUSH   STOPPER
10387 @ 94598:               PUSHI  #0x00000003
10388 @ 94603:               JUMPIF = L_0005
10389 @ 94607:               PUSH   STOPPER
10390 @ 94610:               PUSHI  #0x00000004
10391 @ 94615:               JUMPIF # L_0004
10392 @ 94619:               LOCATE L_0005
10393 @ 94622:               RETURN
10394 @ 94623:               LOCATE L_0004

  2140    error(nostart)
10395 @ 94626:               LINE   2140 "regression-compile-tmp/chimp.imp"
10396 @ 94662:               PUSH   ERROR
10397 @ 94665:               PUSHI  #0x00000008
10398 @ 94670:               ASSPAR
10399 @ 94671:               CALL  

  2141  initial(repeat):
10400 @ 94672:               LINE   2141 "regression-compile-tmp/chimp.imp"
10401 @ 94708:               PUSHI  #0x00000002
10402 @ 94713:               SLABEL 272

  2142    cycles = cycles-1 %and -> skip %if cycles # 0
10403 @ 94716:               LINE   2142 "regression-compile-tmp/chimp.imp"
10404 @ 94752:               PUSH   CYCLES
10405 @ 94755:               PUSHI  #0x00000000
10406 @ 94760:               JUMPIF = L_0004
10407 @ 94764:               PUSH   CYCLES
10408 @ 94767:               PUSH   CYCLES
10409 @ 94770:               PUSHI  #0x00000001
10410 @ 94775:               SUB   
10411 @ 94776:               ASSVAL
10412 @ 94777:               JUMP   L_0114
10413 @ 94780:               LOCATE L_0004

  2143    %return %if stopper = repeat
10414 @ 94783:               LINE   2143 "regression-compile-tmp/chimp.imp"
10415 @ 94819:               PUSH   STOPPER
10416 @ 94822:               PUSHI  #0x00000002
10417 @ 94827:               JUMPIF # L_0004
10418 @ 94831:               RETURN
10419 @ 94832:               LOCATE L_0004

  2144    error(nocycle)
  2145  
  2146  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  2147  !!!!!!!!!!!!!!!!!!!!  Declarations  !!!!!!!!!!!!!!!!!!!!!!!!!!!!
  2148  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  2149  !
10420 @ 94835:               LINE   2144 "regression-compile-tmp/chimp.imp"
10421 @ 94871:               PUSH   ERROR
10422 @ 94874:               PUSHI  #0x00000009
10423 @ 94879:               ASSPAR
10424 @ 94880:               CALL  

  2150  %integerfn NEWATYPE(%integer eltype,xtype)
10425 @ 94881:               LINE   2150 "regression-compile-tmp/chimp.imp"
10426 @ 94917:               DEF    NEWATYPE (_ECCECI_GETSTATEMENTS_NEWATYPE) p1=V_011a 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
10427 @ 94937:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
10428 @ 94938:                     DEF    ELTYPE p1=V_011b a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
10429 @ 94956:                     DEF    XTYPE p1=V_011c a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
10430 @ 94973:                  FINISH ) {lev=3}

  2151  %integer dpos
10431 @ 94974:                  LINE   2151 "regression-compile-tmp/chimp.imp"
10432 @ 95010:                  DEF    DPOS p1=V_011d a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  2152  %record(identinfo)%name dp
10433 @ 95026:                  LINE   2152 "regression-compile-tmp/chimp.imp"
10434 @ 95062:                  DEF    DP p1=V_011e a/tf=42 b/format=9a c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  2153  %ownrecord(identinfo) d=0
10435 @ 95076:                  LINE   2153 "regression-compile-tmp/chimp.imp"
10436 @ 95112:                  PUSHI  #0x00000000
10437 @ 95117:                  DEF    D p1=V_011f a/tf=41 b/format=9a c/ostate=21  type=4 (record) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
10438 @ 95130:                  INIT   1

  2154    dpos = dictmin
10439 @ 95133:                  LINE   2154 "regression-compile-tmp/chimp.imp"
10440 @ 95169:                  PUSH   DPOS
10441 @ 95172:                  PUSHI  #0x000007f9
10442 @ 95177:                  ASSVAL

  2155    %cycle
10443 @ 95178:                  LINE   2155 "regression-compile-tmp/chimp.imp"
10444 @ 95214:                  LOCATE L_0003

  2156      dp == dict(dpos)
10445 @ 95217:                  LINE   2156 "regression-compile-tmp/chimp.imp"
10446 @ 95253:                  PUSH   DP
10447 @ 95256:                  PUSH   DICT
10448 @ 95259:                  PUSH   DPOS
10449 @ 95262:                  ACCESS
10450 @ 95263:                  ASSREF

  2157      %result = dpos+direct %if dp_flags&typeid # 0 %c
  2158                     %and dp_type = eltype %and dp_val = xtype
10451 @ 95264:                  LINE   2157 "regression-compile-tmp/chimp.imp"
10452 @ 95300:                  PUSH   DP
10453 @ 95303:                  SELECT 1
10454 @ 95306:                  PUSHI  #0x00000100
10455 @ 95311:                  AND   
10456 @ 95312:                  PUSHI  #0x00000000
10457 @ 95317:                  JUMPIF = L_0007
10458 @ 95321:                  PUSH   DP
10459 @ 95324:                  SELECT 2
10460 @ 95327:                  PUSH   ELTYPE
10461 @ 95330:                  JUMPIF # L_0007
10462 @ 95334:                  PUSH   DP
10463 @ 95337:                  SELECT 7
10464 @ 95340:                  PUSH   XTYPE
10465 @ 95343:                  JUMPIF # L_0007
10466 @ 95347:                  PUSH   DPOS
10467 @ 95350:                  PUSHI  #0x00002000
10468 @ 95355:                  ADD   
10469 @ 95356:                  RESULT
10470 @ 95357:                  LOCATE L_0007

  2159      dpos = dpos+1
10471 @ 95360:                  LINE   2159 "regression-compile-tmp/chimp.imp"
10472 @ 95396:                  PUSH   DPOS
10473 @ 95399:                  PUSH   DPOS
10474 @ 95402:                  PUSHI  #0x00000001
10475 @ 95407:                  ADD   
10476 @ 95408:                  ASSVAL

  2160    %repeat %until dpos = dlim
10477 @ 95409:                  LINE   2160 "regression-compile-tmp/chimp.imp"
10478 @ 95445:                  PUSH   DPOS
10479 @ 95448:                  PUSH   DLIM
10480 @ 95451:                  JUMPIF = L_0004
10481 @ 95455:                  REPEAT L_0003
10482 @ 95458:                  LOCATE L_0004

  2161    d_flags = typeid;  d_type = eltype;  d_val = xtype
10483 @ 95461:                  LINE   2161 "regression-compile-tmp/chimp.imp"
10484 @ 95497:                  PUSH   D
10485 @ 95500:                  SELECT 1
10486 @ 95503:                  PUSHI  #0x00000100
10487 @ 95508:                  ASSVAL
10488 @ 95509:                  LINE   2161 "regression-compile-tmp/chimp.imp"
10489 @ 95545:                  PUSH   D
10490 @ 95548:                  SELECT 2
10491 @ 95551:                  PUSH   ELTYPE
10492 @ 95554:                  ASSVAL
10493 @ 95555:                  LINE   2161 "regression-compile-tmp/chimp.imp"
10494 @ 95591:                  PUSH   D
10495 @ 95594:                  SELECT 7
10496 @ 95597:                  PUSH   XTYPE
10497 @ 95600:                  ASSVAL

  2162    dict(dpos) = d
10498 @ 95601:                  LINE   2162 "regression-compile-tmp/chimp.imp"
10499 @ 95637:                  PUSH   DICT
10500 @ 95640:                  PUSH   DPOS
10501 @ 95643:                  ACCESS
10502 @ 95644:                  PUSH   D
10503 @ 95647:                  ASSVAL

  2163    dlim = dlim+1;  croak("Too many identifers") %if dlim >= dmin
10504 @ 95648:                  LINE   2163 "regression-compile-tmp/chimp.imp"
10505 @ 95684:                  PUSH   DLIM
10506 @ 95687:                  PUSH   DLIM
10507 @ 95690:                  PUSHI  #0x00000001
10508 @ 95695:                  ADD   
10509 @ 95696:                  ASSVAL
10510 @ 95697:                  LINE   2163 "regression-compile-tmp/chimp.imp"
10511 @ 95733:                  PUSH   DLIM
10512 @ 95736:                  PUSH   DMIN
10513 @ 95739:                  JUMPIF < L_0004
10514 @ 95743:                  PUSH   CROAK
10515 @ 95746:                  PUSHS  "Too many identifers"
10516 @ 95767:                  ASSPAR
10517 @ 95768:                  CALL  
10518 @ 95769:                  LOCATE L_0004

  2164    %result = dpos+direct
10519 @ 95772:                  LINE   2164 "regression-compile-tmp/chimp.imp"
10520 @ 95808:                  PUSH   DPOS
10521 @ 95811:                  PUSHI  #0x00002000
10522 @ 95816:                  ADD   
10523 @ 95817:                  RESULT

  2165  %end
  2166  !
10524 @ 95818:                  LINE   2165 "regression-compile-tmp/chimp.imp"
10525 @ 95854:               END    _ECCECI_GETSTATEMENTS_NEWATYPE {lev=3 --> 2}

  2167  %integerfn NEWSTYPE(%integer max)
10526 @ 95855:               LINE   2167 "regression-compile-tmp/chimp.imp"
10527 @ 95891:               DEF    NEWSTYPE (_ECCECI_GETSTATEMENTS_NEWSTYPE) p1=V_011b 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
10528 @ 95911:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
10529 @ 95912:                     DEF    MAX p1=V_011c a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
10530 @ 95927:                  FINISH ) {lev=3}

  2168  %integer dpos
10531 @ 95928:                  LINE   2168 "regression-compile-tmp/chimp.imp"
10532 @ 95964:                  DEF    DPOS p1=V_011d a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  2169  %record(identinfo)%name dp
10533 @ 95980:                  LINE   2169 "regression-compile-tmp/chimp.imp"
10534 @ 96016:                  DEF    DP p1=V_011e a/tf=42 b/format=9a c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  2170  %ownrecord(identinfo) d=0
10535 @ 96030:                  LINE   2170 "regression-compile-tmp/chimp.imp"
10536 @ 96066:                  PUSHI  #0x00000000
10537 @ 96071:                  DEF    D p1=V_011f a/tf=41 b/format=9a c/ostate=21  type=4 (record) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
10538 @ 96084:                  INIT   1

  2171    dpos = dictmin
10539 @ 96087:                  LINE   2171 "regression-compile-tmp/chimp.imp"
10540 @ 96123:                  PUSH   DPOS
10541 @ 96126:                  PUSHI  #0x000007f9
10542 @ 96131:                  ASSVAL

  2172    %cycle
10543 @ 96132:                  LINE   2172 "regression-compile-tmp/chimp.imp"
10544 @ 96168:                  LOCATE L_0003

  2173      dp == dict(dpos)
10545 @ 96171:                  LINE   2173 "regression-compile-tmp/chimp.imp"
10546 @ 96207:                  PUSH   DP
10547 @ 96210:                  PUSH   DICT
10548 @ 96213:                  PUSH   DPOS
10549 @ 96216:                  ACCESS
10550 @ 96217:                  ASSREF

  2174      %result = dpos %if dp_type = stringy %and dp_val = max
10551 @ 96218:                  LINE   2174 "regression-compile-tmp/chimp.imp"
10552 @ 96254:                  PUSH   DP
10553 @ 96257:                  SELECT 2
10554 @ 96260:                  PUSHI  #0x000007fc
10555 @ 96265:                  JUMPIF # L_0007
10556 @ 96269:                  PUSH   DP
10557 @ 96272:                  SELECT 7
10558 @ 96275:                  PUSH   MAX
10559 @ 96278:                  JUMPIF # L_0007
10560 @ 96282:                  PUSH   DPOS
10561 @ 96285:                  RESULT
10562 @ 96286:                  LOCATE L_0007

  2175      dpos = dpos+1
10563 @ 96289:                  LINE   2175 "regression-compile-tmp/chimp.imp"
10564 @ 96325:                  PUSH   DPOS
10565 @ 96328:                  PUSH   DPOS
10566 @ 96331:                  PUSHI  #0x00000001
10567 @ 96336:                  ADD   
10568 @ 96337:                  ASSVAL

  2176    %repeat %until dpos = dlim
10569 @ 96338:                  LINE   2176 "regression-compile-tmp/chimp.imp"
10570 @ 96374:                  PUSH   DPOS
10571 @ 96377:                  PUSH   DLIM
10572 @ 96380:                  JUMPIF = L_0004
10573 @ 96384:                  REPEAT L_0003
10574 @ 96387:                  LOCATE L_0004

  2177    d_flags = typeid;  d_type = stringy
10575 @ 96390:                  LINE   2177 "regression-compile-tmp/chimp.imp"
10576 @ 96426:                  PUSH   D
10577 @ 96429:                  SELECT 1
10578 @ 96432:                  PUSHI  #0x00000100
10579 @ 96437:                  ASSVAL
10580 @ 96438:                  LINE   2177 "regression-compile-tmp/chimp.imp"
10581 @ 96474:                  PUSH   D
10582 @ 96477:                  SELECT 2
10583 @ 96480:                  PUSHI  #0x000007fc
10584 @ 96485:                  ASSVAL

  2178    d_val = max
10585 @ 96486:                  LINE   2178 "regression-compile-tmp/chimp.imp"
10586 @ 96522:                  PUSH   D
10587 @ 96525:                  SELECT 7
10588 @ 96528:                  PUSH   MAX
10589 @ 96531:                  ASSVAL

  2179    dict(dpos) = d
10590 @ 96532:                  LINE   2179 "regression-compile-tmp/chimp.imp"
10591 @ 96568:                  PUSH   DICT
10592 @ 96571:                  PUSH   DPOS
10593 @ 96574:                  ACCESS
10594 @ 96575:                  PUSH   D
10595 @ 96578:                  ASSVAL

  2180    dlim = dlim+1;  croak("Too many identifers") %if dlim >= dmin
10596 @ 96579:                  LINE   2180 "regression-compile-tmp/chimp.imp"
10597 @ 96615:                  PUSH   DLIM
10598 @ 96618:                  PUSH   DLIM
10599 @ 96621:                  PUSHI  #0x00000001
10600 @ 96626:                  ADD   
10601 @ 96627:                  ASSVAL
10602 @ 96628:                  LINE   2180 "regression-compile-tmp/chimp.imp"
10603 @ 96664:                  PUSH   DLIM
10604 @ 96667:                  PUSH   DMIN
10605 @ 96670:                  JUMPIF < L_0004
10606 @ 96674:                  PUSH   CROAK
10607 @ 96677:                  PUSHS  "Too many identifers"
10608 @ 96698:                  ASSPAR
10609 @ 96699:                  CALL  
10610 @ 96700:                  LOCATE L_0004

  2181    %result = dpos
10611 @ 96703:                  LINE   2181 "regression-compile-tmp/chimp.imp"
10612 @ 96739:                  PUSH   DPOS
10613 @ 96742:                  RESULT

  2182  %end
  2183  !
10614 @ 96743:                  LINE   2182 "regression-compile-tmp/chimp.imp"
10615 @ 96779:               END    _ECCECI_GETSTATEMENTS_NEWSTYPE {lev=3 --> 2}

  2184  %integerfn NEWRANGE(%integer type,lower,upper)
10616 @ 96780:               LINE   2184 "regression-compile-tmp/chimp.imp"
10617 @ 96816:               DEF    NEWRANGE (_ECCECI_GETSTATEMENTS_NEWRANGE) p1=V_011c 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
10618 @ 96836:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
10619 @ 96837:                     DEF    TYPE p1=V_011d a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
10620 @ 96853:                     DEF    LOWER p1=V_011e a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
10621 @ 96870:                     DEF    UPPER p1=V_011f a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
10622 @ 96887:                  FINISH ) {lev=3}

  2185  %integer dpos
10623 @ 96888:                  LINE   2185 "regression-compile-tmp/chimp.imp"
10624 @ 96924:                  DEF    DPOS p1=V_0120 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  2186  %record(identinfo)%name dp
10625 @ 96940:                  LINE   2186 "regression-compile-tmp/chimp.imp"
10626 @ 96976:                  DEF    DP p1=V_0121 a/tf=42 b/format=9a c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  2187  %ownrecord(identinfo) d=0
10627 @ 96990:                  LINE   2187 "regression-compile-tmp/chimp.imp"
10628 @ 97026:                  PUSHI  #0x00000000
10629 @ 97031:                  DEF    D p1=V_0122 a/tf=41 b/format=9a c/ostate=21  type=4 (record) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
10630 @ 97044:                  INIT   1

  2188    fault(boundserr) %and upper = lower %if lower > upper
10631 @ 97047:                  LINE   2188 "regression-compile-tmp/chimp.imp"
10632 @ 97083:                  PUSH   LOWER
10633 @ 97086:                  PUSH   UPPER
10634 @ 97089:                  JUMPIF <= L_0004
10635 @ 97093:                  PUSH   FAULT
10636 @ 97096:                  PUSHI  #0x0000000e
10637 @ 97101:                  ASSPAR
10638 @ 97102:                  CALL  
10639 @ 97103:                  PUSH   UPPER
10640 @ 97106:                  PUSH   LOWER
10641 @ 97109:                  ASSVAL
10642 @ 97110:                  LOCATE L_0004

  2189    elements = maxint
10643 @ 97113:                  LINE   2189 "regression-compile-tmp/chimp.imp"
10644 @ 97149:                  PUSH   ELEMENTS
10645 @ 97152:                  PUSHI  #0x7fffffff
10646 @ 97157:                  ASSVAL

  2190    elements = upper-lower %if upper!!lower >= 0 %c
  2191      %or minint+upper-lower < 0
10647 @ 97158:                  LINE   2190 "regression-compile-tmp/chimp.imp"
10648 @ 97194:                  PUSH   UPPER
10649 @ 97197:                  PUSH   LOWER
10650 @ 97200:                  XOR   
10651 @ 97201:                  PUSHI  #0x00000000
10652 @ 97206:                  JUMPIF >= L_0005
10653 @ 97210:                  PUSHI  #0x80000000
10654 @ 97215:                  PUSH   UPPER
10655 @ 97218:                  ADD   
10656 @ 97219:                  PUSH   LOWER
10657 @ 97222:                  SUB   
10658 @ 97223:                  PUSHI  #0x00000000
10659 @ 97228:                  JUMPIF >= L_0004
10660 @ 97232:                  LOCATE L_0005
10661 @ 97235:                  PUSH   ELEMENTS
10662 @ 97238:                  PUSH   UPPER
10663 @ 97241:                  PUSH   LOWER
10664 @ 97244:                  SUB   
10665 @ 97245:                  ASSVAL
10666 @ 97246:                  LOCATE L_0004

  2192    elements = elements+1 %if elements # maxint
10667 @ 97249:                  LINE   2192 "regression-compile-tmp/chimp.imp"
10668 @ 97285:                  PUSH   ELEMENTS
10669 @ 97288:                  PUSHI  #0x7fffffff
10670 @ 97293:                  JUMPIF = L_0004
10671 @ 97297:                  PUSH   ELEMENTS
10672 @ 97300:                  PUSH   ELEMENTS
10673 @ 97303:                  PUSHI  #0x00000001
10674 @ 97308:                  ADD   
10675 @ 97309:                  ASSVAL
10676 @ 97310:                  LOCATE L_0004

  2193    dpos = dictmin
10677 @ 97313:                  LINE   2193 "regression-compile-tmp/chimp.imp"
10678 @ 97349:                  PUSH   DPOS
10679 @ 97352:                  PUSHI  #0x000007f9
10680 @ 97357:                  ASSVAL

  2194    %cycle
10681 @ 97358:                  LINE   2194 "regression-compile-tmp/chimp.imp"
10682 @ 97394:                  LOCATE L_0003

  2195      dp == dict(dpos)
10683 @ 97397:                  LINE   2195 "regression-compile-tmp/chimp.imp"
10684 @ 97433:                  PUSH   DP
10685 @ 97436:                  PUSH   DICT
10686 @ 97439:                  PUSH   DPOS
10687 @ 97442:                  ACCESS
10688 @ 97443:                  ASSREF

  2196      %result = dpos %if dp_flags = typeid %and dp_type = type %c
  2197                     %and dp_low = lower %and dp_val = upper
10689 @ 97444:                  LINE   2196 "regression-compile-tmp/chimp.imp"
10690 @ 97480:                  PUSH   DP
10691 @ 97483:                  SELECT 1
10692 @ 97486:                  PUSHI  #0x00000100
10693 @ 97491:                  JUMPIF # L_0007
10694 @ 97495:                  PUSH   DP
10695 @ 97498:                  SELECT 2
10696 @ 97501:                  PUSH   TYPE
10697 @ 97504:                  JUMPIF # L_0007
10698 @ 97508:                  PUSH   DP
10699 @ 97511:                  SELECT 6
10700 @ 97514:                  PUSH   LOWER
10701 @ 97517:                  JUMPIF # L_0007
10702 @ 97521:                  PUSH   DP
10703 @ 97524:                  SELECT 7
10704 @ 97527:                  PUSH   UPPER
10705 @ 97530:                  JUMPIF # L_0007
10706 @ 97534:                  PUSH   DPOS
10707 @ 97537:                  RESULT
10708 @ 97538:                  LOCATE L_0007

  2198      dpos = dpos+1
10709 @ 97541:                  LINE   2198 "regression-compile-tmp/chimp.imp"
10710 @ 97577:                  PUSH   DPOS
10711 @ 97580:                  PUSH   DPOS
10712 @ 97583:                  PUSHI  #0x00000001
10713 @ 97588:                  ADD   
10714 @ 97589:                  ASSVAL

  2199    %repeat %until dpos = dlim
10715 @ 97590:                  LINE   2199 "regression-compile-tmp/chimp.imp"
10716 @ 97626:                  PUSH   DPOS
10717 @ 97629:                  PUSH   DLIM
10718 @ 97632:                  JUMPIF = L_0004
10719 @ 97636:                  REPEAT L_0003
10720 @ 97639:                  LOCATE L_0004

  2200    d_flags = typeid;  d_type = type
10721 @ 97642:                  LINE   2200 "regression-compile-tmp/chimp.imp"
10722 @ 97678:                  PUSH   D
10723 @ 97681:                  SELECT 1
10724 @ 97684:                  PUSHI  #0x00000100
10725 @ 97689:                  ASSVAL
10726 @ 97690:                  LINE   2200 "regression-compile-tmp/chimp.imp"
10727 @ 97726:                  PUSH   D
10728 @ 97729:                  SELECT 2
10729 @ 97732:                  PUSH   TYPE
10730 @ 97735:                  ASSVAL

  2201    d_low = lower;  d_val = upper
10731 @ 97736:                  LINE   2201 "regression-compile-tmp/chimp.imp"
10732 @ 97772:                  PUSH   D
10733 @ 97775:                  SELECT 6
10734 @ 97778:                  PUSH   LOWER
10735 @ 97781:                  ASSVAL
10736 @ 97782:                  LINE   2201 "regression-compile-tmp/chimp.imp"
10737 @ 97818:                  PUSH   D
10738 @ 97821:                  SELECT 7
10739 @ 97824:                  PUSH   UPPER
10740 @ 97827:                  ASSVAL

  2202    dict(dpos) = d
10741 @ 97828:                  LINE   2202 "regression-compile-tmp/chimp.imp"
10742 @ 97864:                  PUSH   DICT
10743 @ 97867:                  PUSH   DPOS
10744 @ 97870:                  ACCESS
10745 @ 97871:                  PUSH   D
10746 @ 97874:                  ASSVAL

  2203    dlim = dlim+1;  croak("Too many identifers") %if dlim >= dmin
10747 @ 97875:                  LINE   2203 "regression-compile-tmp/chimp.imp"
10748 @ 97911:                  PUSH   DLIM
10749 @ 97914:                  PUSH   DLIM
10750 @ 97917:                  PUSHI  #0x00000001
10751 @ 97922:                  ADD   
10752 @ 97923:                  ASSVAL
10753 @ 97924:                  LINE   2203 "regression-compile-tmp/chimp.imp"
10754 @ 97960:                  PUSH   DLIM
10755 @ 97963:                  PUSH   DMIN
10756 @ 97966:                  JUMPIF < L_0004
10757 @ 97970:                  PUSH   CROAK
10758 @ 97973:                  PUSHS  "Too many identifers"
10759 @ 97994:                  ASSPAR
10760 @ 97995:                  CALL  
10761 @ 97996:                  LOCATE L_0004

  2204    %result = dpos
10762 @ 97999:                  LINE   2204 "regression-compile-tmp/chimp.imp"
10763 @ 98035:                  PUSH   DPOS
10764 @ 98038:                  RESULT

  2205  %end
  2206  
10765 @ 98039:                  LINE   2205 "regression-compile-tmp/chimp.imp"
10766 @ 98075:               END    _ECCECI_GETSTATEMENTS_NEWRANGE {lev=3 --> 2}

  2207  %routine GET LITBOUNDS
10767 @ 98076:               LINE   2207 "regression-compile-tmp/chimp.imp"
10768 @ 98112:               DEF    GETLITBOUNDS (_ECCECI_GETSTATEMENTS_GETLITBOUNDS) p1=V_011d 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
10769 @ 98136:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
10770 @ 98137:                  FINISH ) {lev=3}

  2208  %integer lower
10771 @ 98138:                  LINE   2208 "regression-compile-tmp/chimp.imp"
10772 @ 98174:                  DEF    LOWER p1=V_011e a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  2209    get(left)
10773 @ 98191:                  LINE   2209 "regression-compile-tmp/chimp.imp"
10774 @ 98227:                  PUSH   GET
10775 @ 98230:                  PUSHI  #0x00000037
10776 @ 98235:                  ASSPAR
10777 @ 98236:                  CALL  

  2210    get LITINT;  lower = t_val
10778 @ 98237:                  LINE   2210 "regression-compile-tmp/chimp.imp"
10779 @ 98273:                  PUSH   GETLITINT
10780 @ 98276:                  CALL  
10781 @ 98277:                  LINE   2210 "regression-compile-tmp/chimp.imp"
10782 @ 98313:                  PUSH   LOWER
10783 @ 98316:                  PUSH   T
10784 @ 98319:                  SELECT 7
10785 @ 98322:                  ASSVAL

  2211    get(colon)
10786 @ 98323:                  LINE   2211 "regression-compile-tmp/chimp.imp"
10787 @ 98359:                  PUSH   GET
10788 @ 98362:                  PUSHI  #0x0000003a
10789 @ 98367:                  ASSPAR
10790 @ 98368:                  CALL  

  2212    get LITINT;
10791 @ 98369:                  LINE   2212 "regression-compile-tmp/chimp.imp"
10792 @ 98405:                  PUSH   GETLITINT
10793 @ 98408:                  CALL  

  2213    get(right)
10794 @ 98409:                  LINE   2213 "regression-compile-tmp/chimp.imp"
10795 @ 98445:                  PUSH   GET
10796 @ 98448:                  PUSHI  #0x0000003c
10797 @ 98453:                  ASSPAR
10798 @ 98454:                  CALL  

  2214    t_low = lower
10799 @ 98455:                  LINE   2214 "regression-compile-tmp/chimp.imp"
10800 @ 98491:                  PUSH   T
10801 @ 98494:                  SELECT 6
10802 @ 98497:                  PUSH   LOWER
10803 @ 98500:                  ASSVAL

  2215    item = newrange(inty,t_low,t_val);  !always integer at present
10804 @ 98501:                  LINE   2215 "regression-compile-tmp/chimp.imp"
10805 @ 98537:                  PUSH   ITEM
10806 @ 98540:                  PUSH   NEWRANGE
10807 @ 98543:                  PUSHI  #0x000007fe
10808 @ 98548:                  ASSPAR
10809 @ 98549:                  PUSH   T
10810 @ 98552:                  SELECT 6
10811 @ 98555:                  ASSPAR
10812 @ 98556:                  PUSH   T
10813 @ 98559:                  SELECT 7
10814 @ 98562:                  ASSPAR
10815 @ 98563:                  CALL  
10816 @ 98564:                  ASSVAL

  2216  %end
  2217  
10817 @ 98565:                  LINE   2216 "regression-compile-tmp/chimp.imp"
10818 @ 98601:               END    _ECCECI_GETSTATEMENTS_GETLITBOUNDS {lev=3 --> 2}

  2218  %routine GET IDENT
10819 @ 98602:               LINE   2218 "regression-compile-tmp/chimp.imp"
10820 @ 98638:               DEF    GETIDENT (_ECCECI_GETSTATEMENTS_GETIDENT) p1=V_011e 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
10821 @ 98658:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
10822 @ 98659:                  FINISH ) {lev=3}

  2219    dlim0 = dlim
10823 @ 98660:                  LINE   2219 "regression-compile-tmp/chimp.imp"
10824 @ 98696:                  PUSH   DLIM0
10825 @ 98699:                  PUSH   DLIM
10826 @ 98702:                  ASSVAL

  2220    get(ident)
10827 @ 98703:                  LINE   2220 "regression-compile-tmp/chimp.imp"
10828 @ 98739:                  PUSH   GET
10829 @ 98742:                  PUSHI  #0x00000036
10830 @ 98747:                  ASSPAR
10831 @ 98748:                  CALL  

  2221    declare
10832 @ 98749:                  LINE   2221 "regression-compile-tmp/chimp.imp"
10833 @ 98785:                  PUSH   DECLARE
10834 @ 98788:                  CALL  

  2222    get LITSTRING %if d_flags&ext # 0 %and a(alias)
10835 @ 98789:                  LINE   2222 "regression-compile-tmp/chimp.imp"
10836 @ 98825:                  PUSH   D
10837 @ 98828:                  SELECT 1
10838 @ 98831:                  PUSHI  #0x00000020
10839 @ 98836:                  AND   
10840 @ 98837:                  PUSHI  #0x00000000
10841 @ 98842:                  JUMPIF = L_0004
10842 @ 98846:                  PUSH   A
10843 @ 98849:                  PUSHI  #0x0000002e
10844 @ 98854:                  ASSPAR
10845 @ 98855:                  CALL  
10846 @ 98856:                  bf     L_0004
10847 @ 98859:                  PUSH   GETLITSTRING
10848 @ 98862:                  CALL  
10849 @ 98863:                  LOCATE L_0004

  2223  %end
  2224  
10850 @ 98866:                  LINE   2223 "regression-compile-tmp/chimp.imp"
10851 @ 98902:               END    _ECCECI_GETSTATEMENTS_GETIDENT {lev=3 --> 2}

  2225  %routine GET IDENTLIST
10852 @ 98903:               LINE   2225 "regression-compile-tmp/chimp.imp"
10853 @ 98939:               DEF    GETIDENTLIST (_ECCECI_GETSTATEMENTS_GETIDENTLIST) p1=V_011f 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
10854 @ 98963:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
10855 @ 98964:                  FINISH ) {lev=3}

  2226    dlim0 = dlim
10856 @ 98965:                  LINE   2226 "regression-compile-tmp/chimp.imp"
10857 @ 99001:                  PUSH   DLIM0
10858 @ 99004:                  PUSH   DLIM
10859 @ 99007:                  ASSVAL

  2227    %cycle
10860 @ 99008:                  LINE   2227 "regression-compile-tmp/chimp.imp"
10861 @ 99044:                  LOCATE L_0003

  2228      get(ident)
10862 @ 99047:                  LINE   2228 "regression-compile-tmp/chimp.imp"
10863 @ 99083:                  PUSH   GET
10864 @ 99086:                  PUSHI  #0x00000036
10865 @ 99091:                  ASSPAR
10866 @ 99092:                  CALL  

  2229      declare
10867 @ 99093:                  LINE   2229 "regression-compile-tmp/chimp.imp"
10868 @ 99129:                  PUSH   DECLARE
10869 @ 99132:                  CALL  

  2230      get LITSTRING %if d_flags&ext # 0 %and a(alias)
10870 @ 99133:                  LINE   2230 "regression-compile-tmp/chimp.imp"
10871 @ 99169:                  PUSH   D
10872 @ 99172:                  SELECT 1
10873 @ 99175:                  PUSHI  #0x00000020
10874 @ 99180:                  AND   
10875 @ 99181:                  PUSHI  #0x00000000
10876 @ 99186:                  JUMPIF = L_0007
10877 @ 99190:                  PUSH   A
10878 @ 99193:                  PUSHI  #0x0000002e
10879 @ 99198:                  ASSPAR
10880 @ 99199:                  CALL  
10881 @ 99200:                  bf     L_0007
10882 @ 99203:                  PUSH   GETLITSTRING
10883 @ 99206:                  CALL  
10884 @ 99207:                  LOCATE L_0007

  2231     %repeat %until %not a(comma)
10885 @ 99210:                  LINE   2231 "regression-compile-tmp/chimp.imp"
10886 @ 99246:                  PUSH   A
10887 @ 99249:                  PUSHI  #0x0000003b
10888 @ 99254:                  ASSPAR
10889 @ 99255:                  CALL  
10890 @ 99256:                  bf     L_0004
10891 @ 99259:                  REPEAT L_0003
10892 @ 99262:                  LOCATE L_0004

  2232  %end
  2233  
10893 @ 99265:                  LINE   2232 "regression-compile-tmp/chimp.imp"
10894 @ 99301:               END    _ECCECI_GETSTATEMENTS_GETIDENTLIST {lev=3 --> 2}

  2234  %routine GET TYPE(%integer flags)
10895 @ 99302:               LINE   2234 "regression-compile-tmp/chimp.imp"
10896 @ 99338:               DEF    GETTYPE (_ECCECI_GETSTATEMENTS_GETTYPE) p1=V_0120 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
10897 @ 99357:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
10898 @ 99358:                     DEF    FLAGS p1=V_0121 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
10899 @ 99375:                  FINISH ) {lev=3}

  2235  %owninteger fbase
10900 @ 99376:                  LINE   2235 "regression-compile-tmp/chimp.imp"
10901 @ 99412:                  DEF    FBASE p1=V_0122 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
10902 @ 99429:                  INIT   1

  2236  %ownrecord(identinfo)%name formp,fieldp
  2237  !
10903 @ 99432:                  LINE   2236 "regression-compile-tmp/chimp.imp"
10904 @ 99468:                  DEF    FORMP p1=V_0123 a/tf=42 b/format=9a c/ostate=21  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
10905 @ 99485:                  INIT   1
10906 @ 99488:                  DEF    FIELDP p1=V_0124 a/tf=42 b/format=9a c/ostate=21  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
10907 @ 99506:                  INIT   1

  2238  %routine GET FORMATDEF;  !(%integername base)
10908 @ 99509:                  LINE   2238 "regression-compile-tmp/chimp.imp"
10909 @ 99545:                  DEF    GETFORMATDEF (_ECCECI_GETSTATEMENTS_GETTYPE_GETFORMATDEF) p1=V_0125 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
10910 @ 99569:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
10911 @ 99570:                     FINISH ) {lev=4}

  2239  %integer disp,max,base
10912 @ 99571:                     LINE   2239 "regression-compile-tmp/chimp.imp"
10913 @ 99607:                     DEF    DISP p1=V_0126 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
10914 @ 99623:                     DEF    MAX p1=V_0127 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
10915 @ 99638:                     DEF    BASE p1=V_0128 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  2240  %routine GET FIELD IDENT
10916 @ 99654:                     LINE   2240 "regression-compile-tmp/chimp.imp"
10917 @ 99690:                     DEF    GETFIELDIDENT (_ECCECI_GETSTATEMENTS_GETTYPE_GETFORMATDEF_GETFIELDIDENT) p1=V_0129 a/tf=7 b/format=0 c/ostate=0  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
10918 @ 99715:                        START  ( FORMAL PARAMETERS  {lev=5 --> 6, nested=0 --> 1}
10919 @ 99716:                        FINISH ) {lev=5}

  2241    get(ident)
10920 @ 99717:                        LINE   2241 "regression-compile-tmp/chimp.imp"
10921 @ 99753:                        PUSH   GET
10922 @ 99756:                        PUSHI  #0x00000036
10923 @ 99761:                        ASSPAR
10924 @ 99762:                        CALL  

  2242    %if item > 0 %then d_text = ditem_text %c
  2243    %else %start
10925 @ 99763:                        LINE   2242 "regression-compile-tmp/chimp.imp"
10926 @ 99799:                        PUSH   ITEM
10927 @ 99802:                        PUSHI  #0x00000000
10928 @ 99807:                        JUMPIF <= L_0004
10929 @ 99811:                        PUSH   D
10930 @ 99814:                        SELECT 9
10931 @ 99817:                        PUSH   DITEM
10932 @ 99820:                        SELECT 9
10933 @ 99823:                        ASSVAL
10934 @ 99824:                        GOTO   L_0003
10935 @ 99827:                        LOCATE L_0004

  2244      d_text = charlim-charbase;  charlim = charlim+newlen+1
10936 @ 99830:                        LINE   2244 "regression-compile-tmp/chimp.imp"
10937 @ 99866:                        PUSH   D
10938 @ 99869:                        SELECT 9
10939 @ 99872:                        PUSH   CHARLIM
10940 @ 99875:                        PUSH   CHARBASE
10941 @ 99878:                        SUB   
10942 @ 99879:                        ASSVAL
10943 @ 99880:                        LINE   2244 "regression-compile-tmp/chimp.imp"
10944 @ 99916:                        PUSH   CHARLIM
10945 @ 99919:                        PUSH   CHARLIM
10946 @ 99922:                        PUSH   NEWLEN
10947 @ 99925:                        ADD   
10948 @ 99926:                        PUSHI  #0x00000001
10949 @ 99931:                        ADD   
10950 @ 99932:                        ASSVAL

  2245      croak("Identifier space exhausted") %if charlim+80 >= charmin
10951 @ 99933:                        LINE   2245 "regression-compile-tmp/chimp.imp"
10952 @ 99969:                        PUSH   CHARLIM
10953 @ 99972:                        PUSHI  #0x00000050
10954 @ 99977:                        ADD   
10955 @ 99978:                        PUSH   CHARMIN
10956 @ 99981:                        JUMPIF < L_0007
10957 @ 99985:                        PUSH   CROAK
10958 @ 99988:                        PUSHS  "Identifier space exhausted"
10959 @ 100016:                        ASSPAR
10960 @ 100017:                        CALL  
10961 @ 100018:                        LOCATE L_0007

  2246    %finish
10962 @ 100021:                        LINE   2246 "regression-compile-tmp/chimp.imp"
10963 @ 100057:                        LOCATE L_0003

  2247    ditem == dict(dlim);  fieldp == ditem
10964 @ 100060:                        LINE   2247 "regression-compile-tmp/chimp.imp"
10965 @ 100096:                        PUSH   DITEM
10966 @ 100099:                        PUSH   DICT
10967 @ 100102:                        PUSH   DLIM
10968 @ 100105:                        ACCESS
10969 @ 100106:                        ASSREF
10970 @ 100107:                        LINE   2247 "regression-compile-tmp/chimp.imp"
10971 @ 100143:                        PUSH   FIELDP
10972 @ 100146:                        PUSH   DITEM
10973 @ 100149:                        ASSREF

  2248    ditem = d
10974 @ 100150:                        LINE   2248 "regression-compile-tmp/chimp.imp"
10975 @ 100186:                        PUSH   DITEM
10976 @ 100189:                        PUSH   D
10977 @ 100192:                        ASSVAL

  2249    %if formp_extra = 0 %then formp_extra = dlim %c
  2250    %else %start
  2251  !    lookup field ident(formp_extra)
  2252  !    fault(duperr+point) %and item = dlim %if item # dlim
10978 @ 100193:                        LINE   2249 "regression-compile-tmp/chimp.imp"
10979 @ 100229:                        PUSH   FORMP
10980 @ 100232:                        SELECT 3
10981 @ 100235:                        PUSHI  #0x00000000
10982 @ 100240:                        JUMPIF # L_0004
10983 @ 100244:                        PUSH   FORMP
10984 @ 100247:                        SELECT 3
10985 @ 100250:                        PUSH   DLIM
10986 @ 100253:                        ASSVAL
10987 @ 100254:                        GOTO   L_0003
10988 @ 100257:                        LOCATE L_0004

  2253    %finish
10989 @ 100260:                        LINE   2253 "regression-compile-tmp/chimp.imp"
10990 @ 100296:                        LOCATE L_0003

  2254    dlim = dlim+1;  croak("Too many identifiers") %if dlim >= dmin
10991 @ 100299:                        LINE   2254 "regression-compile-tmp/chimp.imp"
10992 @ 100335:                        PUSH   DLIM
10993 @ 100338:                        PUSH   DLIM
10994 @ 100341:                        PUSHI  #0x00000001
10995 @ 100346:                        ADD   
10996 @ 100347:                        ASSVAL
10997 @ 100348:                        LINE   2254 "regression-compile-tmp/chimp.imp"
10998 @ 100384:                        PUSH   DLIM
10999 @ 100387:                        PUSH   DMIN
11000 @ 100390:                        JUMPIF < L_0004
11001 @ 100394:                        PUSH   CROAK
11002 @ 100397:                        PUSHS  "Too many identifiers"
11003 @ 100419:                        ASSPAR
11004 @ 100420:                        CALL  
11005 @ 100421:                        LOCATE L_0004

  2255  %end
11006 @ 100424:                        LINE   2255 "regression-compile-tmp/chimp.imp"
11007 @ 100460:                     END    _ECCECI_GETSTATEMENTS_GETTYPE_GETFORMATDEF_GETFIELDIDENT {lev=5 --> 4}

  2256  %routine get UNIT
11008 @ 100461:                     LINE   2256 "regression-compile-tmp/chimp.imp"
11009 @ 100497:                     DEF    GETUNIT (_ECCECI_GETSTATEMENTS_GETTYPE_GETFORMATDEF_GETUNIT) p1=V_012a a/tf=7 b/format=0 c/ostate=0  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
11010 @ 100516:                        START  ( FORMAL PARAMETERS  {lev=5 --> 6, nested=0 --> 1}
11011 @ 100517:                        FINISH ) {lev=5}

  2257    %cycle
11012 @ 100518:                        LINE   2257 "regression-compile-tmp/chimp.imp"
11013 @ 100554:                        LOCATE L_0003

  2258      %if a(left) %start
11014 @ 100557:                        LINE   2258 "regression-compile-tmp/chimp.imp"
11015 @ 100593:                        PUSH   A
11016 @ 100596:                        PUSHI  #0x00000037
11017 @ 100601:                        ASSPAR
11018 @ 100602:                        CALL  
11019 @ 100603:                        bf     L_0007

  2259        get FORMATDEF;  get(right)
11020 @ 100606:                        LINE   2259 "regression-compile-tmp/chimp.imp"
11021 @ 100642:                        PUSH   GETFORMATDEF
11022 @ 100645:                        CALL  
11023 @ 100646:                        LINE   2259 "regression-compile-tmp/chimp.imp"
11024 @ 100682:                        PUSH   GET
11025 @ 100685:                        PUSHI  #0x0000003c
11026 @ 100690:                        ASSPAR
11027 @ 100691:                        CALL  

  2260        %return %if %not a(comma)
11028 @ 100692:                        LINE   2260 "regression-compile-tmp/chimp.imp"
11029 @ 100728:                        PUSH   A
11030 @ 100731:                        PUSHI  #0x0000003b
11031 @ 100736:                        ASSPAR
11032 @ 100737:                        CALL  
11033 @ 100738:                        bt     L_000a
11034 @ 100741:                        RETURN
11035 @ 100742:                        LOCATE L_000a

  2261      %else
11036 @ 100745:                        LINE   2261 "regression-compile-tmp/chimp.imp"
11037 @ 100781:                        GOTO   L_0006
11038 @ 100784:                        LOCATE L_0007

  2262        get TYPE(static+more)
11039 @ 100787:                        LINE   2262 "regression-compile-tmp/chimp.imp"
11040 @ 100823:                        PUSH   GETTYPE
11041 @ 100826:                        PUSHI  #0x00000008
11042 @ 100831:                        PUSHI  #0x00000080
11043 @ 100836:                        ADD   
11044 @ 100837:                        ASSPAR
11045 @ 100838:                        CALL  

  2263        %if d_flags&parm = 0 %start;  !not array
11046 @ 100839:                        LINE   2263 "regression-compile-tmp/chimp.imp"
11047 @ 100875:                        PUSH   D
11048 @ 100878:                        SELECT 1
11049 @ 100881:                        PUSHI  #0x00000040
11050 @ 100886:                        AND   
11051 @ 100887:                        PUSHI  #0x00000000
11052 @ 100892:                        JUMPIF # L_000a

  2264          %cycle
11053 @ 100896:                        LINE   2264 "regression-compile-tmp/chimp.imp"
11054 @ 100932:                        LOCATE L_000c

  2265            disp = disp+1 %if disp&1 # 0 %and dsize # 1
11055 @ 100935:                        LINE   2265 "regression-compile-tmp/chimp.imp"
11056 @ 100971:                        PUSH   DISP
11057 @ 100974:                        PUSHI  #0x00000001
11058 @ 100979:                        AND   
11059 @ 100980:                        PUSHI  #0x00000000
11060 @ 100985:                        JUMPIF = L_0010
11061 @ 100989:                        PUSH   DSIZE
11062 @ 100992:                        PUSHI  #0x00000001
11063 @ 100997:                        JUMPIF = L_0010
11064 @ 101001:                        PUSH   DISP
11065 @ 101004:                        PUSH   DISP
11066 @ 101007:                        PUSHI  #0x00000001
11067 @ 101012:                        ADD   
11068 @ 101013:                        ASSVAL
11069 @ 101014:                        LOCATE L_0010

  2266            d_val = disp
11070 @ 101017:                        LINE   2266 "regression-compile-tmp/chimp.imp"
11071 @ 101053:                        PUSH   D
11072 @ 101056:                        SELECT 7
11073 @ 101059:                        PUSH   DISP
11074 @ 101062:                        ASSVAL

  2267            disp = disp+dsize
11075 @ 101063:                        LINE   2267 "regression-compile-tmp/chimp.imp"
11076 @ 101099:                        PUSH   DISP
11077 @ 101102:                        PUSH   DISP
11078 @ 101105:                        PUSH   DSIZE
11079 @ 101108:                        ADD   
11080 @ 101109:                        ASSVAL

  2268            get FIELD IDENT
11081 @ 101110:                        LINE   2268 "regression-compile-tmp/chimp.imp"
11082 @ 101146:                        PUSH   GETFIELDIDENT
11083 @ 101149:                        CALL  

  2269            %return %if %not a(comma)
11084 @ 101150:                        LINE   2269 "regression-compile-tmp/chimp.imp"
11085 @ 101186:                        PUSH   A
11086 @ 101189:                        PUSHI  #0x0000003b
11087 @ 101194:                        ASSPAR
11088 @ 101195:                        CALL  
11089 @ 101196:                        bt     L_0010
11090 @ 101199:                        RETURN
11091 @ 101200:                        LOCATE L_0010

  2270            atom = next atom
11092 @ 101203:                        LINE   2270 "regression-compile-tmp/chimp.imp"
11093 @ 101239:                        PUSH   ATOM
11094 @ 101242:                        PUSH   NEXTATOM
11095 @ 101245:                        CALL  
11096 @ 101246:                        ASSVAL

  2271          %repeat %until atom # ident
11097 @ 101247:                        LINE   2271 "regression-compile-tmp/chimp.imp"
11098 @ 101283:                        PUSH   ATOM
11099 @ 101286:                        PUSHI  #0x00000036
11100 @ 101291:                        JUMPIF # L_000d
11101 @ 101295:                        REPEAT L_000c
11102 @ 101298:                        LOCATE L_000d

  2272        %else;  !array
11103 @ 101301:                        LINE   2272 "regression-compile-tmp/chimp.imp"
11104 @ 101337:                        GOTO   L_0009
11105 @ 101340:                        LOCATE L_000a

  2273          d_flags = d_flags-parm
11106 @ 101343:                        LINE   2273 "regression-compile-tmp/chimp.imp"
11107 @ 101379:                        PUSH   D
11108 @ 101382:                        SELECT 1
11109 @ 101385:                        PUSH   D
11110 @ 101388:                        SELECT 1
11111 @ 101391:                        PUSHI  #0x00000040
11112 @ 101396:                        SUB   
11113 @ 101397:                        ASSVAL

  2274          disp = disp+1 %if disp&1 # 0;  d_val = disp
11114 @ 101398:                        LINE   2274 "regression-compile-tmp/chimp.imp"
11115 @ 101434:                        PUSH   DISP
11116 @ 101437:                        PUSHI  #0x00000001
11117 @ 101442:                        AND   
11118 @ 101443:                        PUSHI  #0x00000000
11119 @ 101448:                        JUMPIF = L_000d
11120 @ 101452:                        PUSH   DISP
11121 @ 101455:                        PUSH   DISP
11122 @ 101458:                        PUSHI  #0x00000001
11123 @ 101463:                        ADD   
11124 @ 101464:                        ASSVAL
11125 @ 101465:                        LOCATE L_000d
11126 @ 101468:                        LINE   2274 "regression-compile-tmp/chimp.imp"
11127 @ 101504:                        PUSH   D
11128 @ 101507:                        SELECT 7
11129 @ 101510:                        PUSH   DISP
11130 @ 101513:                        ASSVAL

  2275          get FIELD IDENT
11131 @ 101514:                        LINE   2275 "regression-compile-tmp/chimp.imp"
11132 @ 101550:                        PUSH   GETFIELDIDENT
11133 @ 101553:                        CALL  

  2276          get LITBOUNDS
11134 @ 101554:                        LINE   2276 "regression-compile-tmp/chimp.imp"
11135 @ 101590:                        PUSH   GETLITBOUNDS
11136 @ 101593:                        CALL  

  2277          fieldp_type = newatype(d_type,item)
11137 @ 101594:                        LINE   2277 "regression-compile-tmp/chimp.imp"
11138 @ 101630:                        PUSH   FIELDP
11139 @ 101633:                        SELECT 2
11140 @ 101636:                        PUSH   NEWATYPE
11141 @ 101639:                        PUSH   D
11142 @ 101642:                        SELECT 2
11143 @ 101645:                        ASSPAR
11144 @ 101646:                        PUSH   ITEM
11145 @ 101649:                        ASSPAR
11146 @ 101650:                        CALL  
11147 @ 101651:                        ASSVAL

  2278          disp = disp+dsize*elements
11148 @ 101652:                        LINE   2278 "regression-compile-tmp/chimp.imp"
11149 @ 101688:                        PUSH   DISP
11150 @ 101691:                        PUSH   DISP
11151 @ 101694:                        PUSH   DSIZE
11152 @ 101697:                        PUSH   ELEMENTS
11153 @ 101700:                        MUL   
11154 @ 101701:                        ADD   
11155 @ 101702:                        ASSVAL

  2279          %return %if %not a(comma)
11156 @ 101703:                        LINE   2279 "regression-compile-tmp/chimp.imp"
11157 @ 101739:                        PUSH   A
11158 @ 101742:                        PUSHI  #0x0000003b
11159 @ 101747:                        ASSPAR
11160 @ 101748:                        CALL  
11161 @ 101749:                        bt     L_000d
11162 @ 101752:                        RETURN
11163 @ 101753:                        LOCATE L_000d

  2280        %finish
11164 @ 101756:                        LINE   2280 "regression-compile-tmp/chimp.imp"
11165 @ 101792:                        LOCATE L_0009

  2281      %finish
11166 @ 101795:                        LINE   2281 "regression-compile-tmp/chimp.imp"
11167 @ 101831:                        LOCATE L_0006

  2282    %repeat
11168 @ 101834:                        LINE   2282 "regression-compile-tmp/chimp.imp"
11169 @ 101870:                        REPEAT L_0003

  2283  %end
11170 @ 101873:                        LINE   2283 "regression-compile-tmp/chimp.imp"
11171 @ 101909:                     END    _ECCECI_GETSTATEMENTS_GETTYPE_GETFORMATDEF_GETUNIT {lev=5 --> 4}

  2284    max = 0;  base = 0
11172 @ 101910:                     LINE   2284 "regression-compile-tmp/chimp.imp"
11173 @ 101946:                     PUSH   MAX
11174 @ 101949:                     PUSHI  #0x00000000
11175 @ 101954:                     ASSVAL
11176 @ 101955:                     LINE   2284 "regression-compile-tmp/chimp.imp"
11177 @ 101991:                     PUSH   BASE
11178 @ 101994:                     PUSHI  #0x00000000
11179 @ 101999:                     ASSVAL

  2285    %cycle
11180 @ 102000:                     LINE   2285 "regression-compile-tmp/chimp.imp"
11181 @ 102036:                     LOCATE L_0003

  2286      disp = base
11182 @ 102039:                     LINE   2286 "regression-compile-tmp/chimp.imp"
11183 @ 102075:                     PUSH   DISP
11184 @ 102078:                     PUSH   BASE
11185 @ 102081:                     ASSVAL

  2287      get UNIT
11186 @ 102082:                     LINE   2287 "regression-compile-tmp/chimp.imp"
11187 @ 102118:                     PUSH   GETUNIT
11188 @ 102121:                     CALL  

  2288      max = disp %if max < disp
11189 @ 102122:                     LINE   2288 "regression-compile-tmp/chimp.imp"
11190 @ 102158:                     PUSH   MAX
11191 @ 102161:                     PUSH   DISP
11192 @ 102164:                     JUMPIF >= L_0007
11193 @ 102168:                     PUSH   MAX
11194 @ 102171:                     PUSH   DISP
11195 @ 102174:                     ASSVAL
11196 @ 102175:                     LOCATE L_0007

  2289    %repeat %until %not a(keyor)
11197 @ 102178:                     LINE   2289 "regression-compile-tmp/chimp.imp"
11198 @ 102214:                     PUSH   A
11199 @ 102217:                     PUSHI  #0x00000041
11200 @ 102222:                     ASSPAR
11201 @ 102223:                     CALL  
11202 @ 102224:                     bf     L_0004
11203 @ 102227:                     REPEAT L_0003
11204 @ 102230:                     LOCATE L_0004

  2290    base = max
11205 @ 102233:                     LINE   2290 "regression-compile-tmp/chimp.imp"
11206 @ 102269:                     PUSH   BASE
11207 @ 102272:                     PUSH   MAX
11208 @ 102275:                     ASSVAL

  2291  %end;  !get FORMATDEF
  2292  
11209 @ 102276:                     LINE   2291 "regression-compile-tmp/chimp.imp"
11210 @ 102312:                  END    _ECCECI_GETSTATEMENTS_GETTYPE_GETFORMATDEF {lev=4 --> 3}

  2293    dsize = 0;  d_mode = 0;  d_val = 0
11211 @ 102313:                  LINE   2293 "regression-compile-tmp/chimp.imp"
11212 @ 102349:                  PUSH   DSIZE
11213 @ 102352:                  PUSHI  #0x00000000
11214 @ 102357:                  ASSVAL
11215 @ 102358:                  LINE   2293 "regression-compile-tmp/chimp.imp"
11216 @ 102394:                  PUSH   D
11217 @ 102397:                  SELECT 5
11218 @ 102400:                  PUSHI  #0x00000000
11219 @ 102405:                  ASSVAL
11220 @ 102406:                  LINE   2293 "regression-compile-tmp/chimp.imp"
11221 @ 102442:                  PUSH   D
11222 @ 102445:                  SELECT 7
11223 @ 102448:                  PUSHI  #0x00000000
11224 @ 102453:                  ASSVAL

  2294    d_type = nulltype
11225 @ 102454:                  LINE   2294 "regression-compile-tmp/chimp.imp"
11226 @ 102490:                  PUSH   D
11227 @ 102493:                  SELECT 2
11228 @ 102496:                  PUSHI  #0x000007f9
11229 @ 102501:                  ASSVAL

  2295    %if a(rpred) %start;  !%routine,(%integerfn)
11230 @ 102502:                  LINE   2295 "regression-compile-tmp/chimp.imp"
11231 @ 102538:                  PUSH   A
11232 @ 102541:                  PUSHI  #0x00000021
11233 @ 102546:                  ASSPAR
11234 @ 102547:                  CALL  
11235 @ 102548:                  bf     L_0004

  2296      flags = flags&(\static) %if flags&ext # 0
11236 @ 102551:                  LINE   2296 "regression-compile-tmp/chimp.imp"
11237 @ 102587:                  PUSH   FLAGS
11238 @ 102590:                  PUSHI  #0x00000020
11239 @ 102595:                  AND   
11240 @ 102596:                  PUSHI  #0x00000000
11241 @ 102601:                  JUMPIF = L_0007
11242 @ 102605:                  PUSH   FLAGS
11243 @ 102608:                  PUSH   FLAGS
11244 @ 102611:                  PUSHI  #0x00000008
11245 @ 102616:                  NOT   
11246 @ 102617:                  AND   
11247 @ 102618:                  ASSVAL
11248 @ 102619:                  LOCATE L_0007

  2297      syntax error %if flags&static # 0
11249 @ 102622:                  LINE   2297 "regression-compile-tmp/chimp.imp"
11250 @ 102658:                  PUSH   FLAGS
11251 @ 102661:                  PUSHI  #0x00000008
11252 @ 102666:                  AND   
11253 @ 102667:                  PUSHI  #0x00000000
11254 @ 102672:                  JUMPIF = L_0007
11255 @ 102676:                  PUSH   SYNTAXERROR
11256 @ 102679:                  CALL  
11257 @ 102680:                  LOCATE L_0007

  2298      nonstandard(pred) %and d_type = booltype %if subatom # 0
11258 @ 102683:                  LINE   2298 "regression-compile-tmp/chimp.imp"
11259 @ 102719:                  PUSH   SUBATOM
11260 @ 102722:                  PUSHI  #0x00000000
11261 @ 102727:                  JUMPIF = L_0007
11262 @ 102731:                  PUSH   NONSTANDARD
11263 @ 102734:                  PUSHI  #0x00000001
11264 @ 102739:                  ASSPAR
11265 @ 102740:                  CALL  
11266 @ 102741:                  PUSH   D
11267 @ 102744:                  SELECT 2
11268 @ 102747:                  PUSHI  #0x00000800
11269 @ 102752:                  ASSVAL
11270 @ 102753:                  LOCATE L_0007

  2299      d_flags = flags+proc;  declmode = declmode+pcmode
11271 @ 102756:                  LINE   2299 "regression-compile-tmp/chimp.imp"
11272 @ 102792:                  PUSH   D
11273 @ 102795:                  SELECT 1
11274 @ 102798:                  PUSH   FLAGS
11275 @ 102801:                  PUSHI  #0x00000004
11276 @ 102806:                  ADD   
11277 @ 102807:                  ASSVAL
11278 @ 102808:                  LINE   2299 "regression-compile-tmp/chimp.imp"
11279 @ 102844:                  PUSH   DECLMODE
11280 @ 102847:                  PUSH   DECLMODE
11281 @ 102850:                  PUSHI  #0x0000003a
11282 @ 102855:                  ADD   
11283 @ 102856:                  ASSVAL

  2300      %return
11284 @ 102857:                  LINE   2300 "regression-compile-tmp/chimp.imp"
11285 @ 102893:                  RETURN

  2301    %finish
11286 @ 102894:                  LINE   2301 "regression-compile-tmp/chimp.imp"
11287 @ 102930:                  LOCATE L_0004

  2302    %if a(krange) %start;                 !%byte,%short,%half,%mite
11288 @ 102933:                  LINE   2302 "regression-compile-tmp/chimp.imp"
11289 @ 102969:                  PUSH   A
11290 @ 102972:                  PUSHI  #0x00000019
11291 @ 102977:                  ASSPAR
11292 @ 102978:                  CALL  
11293 @ 102979:                  bf     L_0004

  2303      d_type = inttype+subatom;  dsize = 1
11294 @ 102982:                  LINE   2303 "regression-compile-tmp/chimp.imp"
11295 @ 103018:                  PUSH   D
11296 @ 103021:                  SELECT 2
11297 @ 103024:                  PUSHI  #0x00000803
11298 @ 103029:                  PUSH   SUBATOM
11299 @ 103032:                  ADD   
11300 @ 103033:                  ASSVAL
11301 @ 103034:                  LINE   2303 "regression-compile-tmp/chimp.imp"
11302 @ 103070:                  PUSH   DSIZE
11303 @ 103073:                  PUSHI  #0x00000001
11304 @ 103078:                  ASSVAL

  2304      dsize = 2 %if d_type = shorttype %or d_type = halftype
11305 @ 103079:                  LINE   2304 "regression-compile-tmp/chimp.imp"
11306 @ 103115:                  PUSH   D
11307 @ 103118:                  SELECT 2
11308 @ 103121:                  PUSHI  #0x00000804
11309 @ 103126:                  JUMPIF = L_0008
11310 @ 103130:                  PUSH   D
11311 @ 103133:                  SELECT 2
11312 @ 103136:                  PUSHI  #0x00000805
11313 @ 103141:                  JUMPIF # L_0007
11314 @ 103145:                  LOCATE L_0008
11315 @ 103148:                  PUSH   DSIZE
11316 @ 103151:                  PUSHI  #0x00000002
11317 @ 103156:                  ASSVAL
11318 @ 103157:                  LOCATE L_0007

  2305      nonstandard(ranges) %if d_type >= mitetype
11319 @ 103160:                  LINE   2305 "regression-compile-tmp/chimp.imp"
11320 @ 103196:                  PUSH   D
11321 @ 103199:                  SELECT 2
11322 @ 103202:                  PUSHI  #0x00000807
11323 @ 103207:                  JUMPIF < L_0007
11324 @ 103211:                  PUSH   NONSTANDARD
11325 @ 103214:                  PUSHI  #0x00000010
11326 @ 103219:                  ASSPAR
11327 @ 103220:                  CALL  
11328 @ 103221:                  LOCATE L_0007

  2306      allow(keyinteger)
11329 @ 103224:                  LINE   2306 "regression-compile-tmp/chimp.imp"
11330 @ 103260:                  PUSH   ALLOW
11331 @ 103263:                  PUSHI  #0x0000001b
11332 @ 103268:                  ASSPAR
11333 @ 103269:                  CALL  

  2307    %else %if a(keyinteger);                    !%integer
11334 @ 103270:                  LINE   2307 "regression-compile-tmp/chimp.imp"
11335 @ 103306:                  GOTO   L_0003
11336 @ 103309:                  LOCATE L_0004
11337 @ 103312:                  PUSH   A
11338 @ 103315:                  PUSHI  #0x0000001b
11339 @ 103320:                  ASSPAR
11340 @ 103321:                  CALL  
11341 @ 103322:                  bf     L_0004

  2308      d_type = inttype;  dsize = 4
11342 @ 103325:                  LINE   2308 "regression-compile-tmp/chimp.imp"
11343 @ 103361:                  PUSH   D
11344 @ 103364:                  SELECT 2
11345 @ 103367:                  PUSHI  #0x00000803
11346 @ 103372:                  ASSVAL
11347 @ 103373:                  LINE   2308 "regression-compile-tmp/chimp.imp"
11348 @ 103409:                  PUSH   DSIZE
11349 @ 103412:                  PUSHI  #0x00000004
11350 @ 103417:                  ASSVAL

  2309      atom = next atom
11351 @ 103418:                  LINE   2309 "regression-compile-tmp/chimp.imp"
11352 @ 103454:                  PUSH   ATOM
11353 @ 103457:                  PUSH   NEXTATOM
11354 @ 103460:                  CALL  
11355 @ 103461:                  ASSVAL

  2310      %if atom = left %start
11356 @ 103462:                  LINE   2310 "regression-compile-tmp/chimp.imp"
11357 @ 103498:                  PUSH   ATOM
11358 @ 103501:                  PUSHI  #0x00000037
11359 @ 103506:                  JUMPIF # L_0007

  2311        get LITBOUNDS
11360 @ 103510:                  LINE   2311 "regression-compile-tmp/chimp.imp"
11361 @ 103546:                  PUSH   GETLITBOUNDS
11362 @ 103549:                  CALL  

  2312        d_type = item
11363 @ 103550:                  LINE   2312 "regression-compile-tmp/chimp.imp"
11364 @ 103586:                  PUSH   D
11365 @ 103589:                  SELECT 2
11366 @ 103592:                  PUSH   ITEM
11367 @ 103595:                  ASSVAL

  2313        dsize = 2 %if elements <= 65536 %and t_low >= -32768
11368 @ 103596:                  LINE   2313 "regression-compile-tmp/chimp.imp"
11369 @ 103632:                  PUSH   ELEMENTS
11370 @ 103635:                  PUSHI  #0x00010000
11371 @ 103640:                  JUMPIF > L_000a
11372 @ 103644:                  PUSH   T
11373 @ 103647:                  SELECT 6
11374 @ 103650:                  PUSHI  #0x00008000
11375 @ 103655:                  NEGATE
11376 @ 103656:                  JUMPIF < L_000a
11377 @ 103660:                  PUSH   DSIZE
11378 @ 103663:                  PUSHI  #0x00000002
11379 @ 103668:                  ASSVAL
11380 @ 103669:                  LOCATE L_000a

  2314        dsize = 1 %if elements <= 256 %and t_low >= -128
11381 @ 103672:                  LINE   2314 "regression-compile-tmp/chimp.imp"
11382 @ 103708:                  PUSH   ELEMENTS
11383 @ 103711:                  PUSHI  #0x00000100
11384 @ 103716:                  JUMPIF > L_000a
11385 @ 103720:                  PUSH   T
11386 @ 103723:                  SELECT 6
11387 @ 103726:                  PUSHI  #0x00000080
11388 @ 103731:                  NEGATE
11389 @ 103732:                  JUMPIF < L_000a
11390 @ 103736:                  PUSH   DSIZE
11391 @ 103739:                  PUSHI  #0x00000001
11392 @ 103744:                  ASSVAL
11393 @ 103745:                  LOCATE L_000a

  2315      %finish
11394 @ 103748:                  LINE   2315 "regression-compile-tmp/chimp.imp"
11395 @ 103784:                  LOCATE L_0007

  2316    %else %if a(keylong);                   !%long
11396 @ 103787:                  LINE   2316 "regression-compile-tmp/chimp.imp"
11397 @ 103823:                  GOTO   L_0003
11398 @ 103826:                  LOCATE L_0004
11399 @ 103829:                  PUSH   A
11400 @ 103832:                  PUSHI  #0x0000001a
11401 @ 103837:                  ASSPAR
11402 @ 103838:                  CALL  
11403 @ 103839:                  bf     L_0004

  2317      d_type = longinttype;  dsize = 8
11404 @ 103842:                  LINE   2317 "regression-compile-tmp/chimp.imp"
11405 @ 103878:                  PUSH   D
11406 @ 103881:                  SELECT 2
11407 @ 103884:                  PUSHI  #0x00000809
11408 @ 103889:                  ASSVAL
11409 @ 103890:                  LINE   2317 "regression-compile-tmp/chimp.imp"
11410 @ 103926:                  PUSH   DSIZE
11411 @ 103929:                  PUSHI  #0x00000008
11412 @ 103934:                  ASSVAL

  2318      d_type = longrealtype %and get(keyreal) %if %not a(keyinteger)
11413 @ 103935:                  LINE   2318 "regression-compile-tmp/chimp.imp"
11414 @ 103971:                  PUSH   A
11415 @ 103974:                  PUSHI  #0x0000001b
11416 @ 103979:                  ASSPAR
11417 @ 103980:                  CALL  
11418 @ 103981:                  bt     L_0007
11419 @ 103984:                  PUSH   D
11420 @ 103987:                  SELECT 2
11421 @ 103990:                  PUSHI  #0x0000080b
11422 @ 103995:                  ASSVAL
11423 @ 103996:                  PUSH   GET
11424 @ 103999:                  PUSHI  #0x0000001c
11425 @ 104004:                  ASSPAR
11426 @ 104005:                  CALL  
11427 @ 104006:                  LOCATE L_0007

  2319    %else %if a(keyreal);                   !%real
11428 @ 104009:                  LINE   2319 "regression-compile-tmp/chimp.imp"
11429 @ 104045:                  GOTO   L_0003
11430 @ 104048:                  LOCATE L_0004
11431 @ 104051:                  PUSH   A
11432 @ 104054:                  PUSHI  #0x0000001c
11433 @ 104059:                  ASSPAR
11434 @ 104060:                  CALL  
11435 @ 104061:                  bf     L_0004

  2320      d_type = realtype;  dsize = 4
11436 @ 104064:                  LINE   2320 "regression-compile-tmp/chimp.imp"
11437 @ 104100:                  PUSH   D
11438 @ 104103:                  SELECT 2
11439 @ 104106:                  PUSHI  #0x0000080a
11440 @ 104111:                  ASSVAL
11441 @ 104112:                  LINE   2320 "regression-compile-tmp/chimp.imp"
11442 @ 104148:                  PUSH   DSIZE
11443 @ 104151:                  PUSHI  #0x00000004
11444 @ 104156:                  ASSVAL

  2321    %else %if a(keystring);                 !%string
11445 @ 104157:                  LINE   2321 "regression-compile-tmp/chimp.imp"
11446 @ 104193:                  GOTO   L_0003
11447 @ 104196:                  LOCATE L_0004
11448 @ 104199:                  PUSH   A
11449 @ 104202:                  PUSHI  #0x0000001d
11450 @ 104207:                  ASSPAR
11451 @ 104208:                  CALL  
11452 @ 104209:                  bf     L_0004

  2322      d_type = stringy
11453 @ 104212:                  LINE   2322 "regression-compile-tmp/chimp.imp"
11454 @ 104248:                  PUSH   D
11455 @ 104251:                  SELECT 2
11456 @ 104254:                  PUSHI  #0x000007fc
11457 @ 104259:                  ASSVAL

  2323      t_val = 255;  dsize = 256
11458 @ 104260:                  LINE   2323 "regression-compile-tmp/chimp.imp"
11459 @ 104296:                  PUSH   T
11460 @ 104299:                  SELECT 7
11461 @ 104302:                  PUSHI  #0x000000ff
11462 @ 104307:                  ASSVAL
11463 @ 104308:                  LINE   2323 "regression-compile-tmp/chimp.imp"
11464 @ 104344:                  PUSH   DSIZE
11465 @ 104347:                  PUSHI  #0x00000100
11466 @ 104352:                  ASSVAL

  2324      %if a(left) %start
11467 @ 104353:                  LINE   2324 "regression-compile-tmp/chimp.imp"
11468 @ 104389:                  PUSH   A
11469 @ 104392:                  PUSHI  #0x00000037
11470 @ 104397:                  ASSPAR
11471 @ 104398:                  CALL  
11472 @ 104399:                  bf     L_0007

  2325        t_val = 0
11473 @ 104402:                  LINE   2325 "regression-compile-tmp/chimp.imp"
11474 @ 104438:                  PUSH   T
11475 @ 104441:                  SELECT 7
11476 @ 104444:                  PUSHI  #0x00000000
11477 @ 104449:                  ASSVAL

  2326        %if %not a(star) %start
11478 @ 104450:                  LINE   2326 "regression-compile-tmp/chimp.imp"
11479 @ 104486:                  PUSH   A
11480 @ 104489:                  PUSHI  #0x00000058
11481 @ 104494:                  ASSPAR
11482 @ 104495:                  CALL  
11483 @ 104496:                  bt     L_000a

  2327          get LITINT
11484 @ 104499:                  LINE   2327 "regression-compile-tmp/chimp.imp"
11485 @ 104535:                  PUSH   GETLITINT
11486 @ 104538:                  CALL  

  2328          expfault(rangerr+point) %and t_val = 255 %unless 0 < t_val <= 255
11487 @ 104539:                  LINE   2328 "regression-compile-tmp/chimp.imp"
11488 @ 104575:                  PUSHI  #0x00000000
11489 @ 104580:                  PUSH   T
11490 @ 104583:                  SELECT 7
11491 @ 104586:                  JUMPIFD >= L_000e
11492 @ 104590:                  PUSHI  #0x000000ff
11493 @ 104595:                  JUMPIF <= L_000d
11494 @ 104599:                  LOCATE L_000e
11495 @ 104602:                  PUSH   EXPFAULT
11496 @ 104605:                  PUSHI  #0x0000000c
11497 @ 104610:                  PUSHI  #0x00000040
11498 @ 104615:                  ADD   
11499 @ 104616:                  ASSPAR
11500 @ 104617:                  CALL  
11501 @ 104618:                  PUSH   T
11502 @ 104621:                  SELECT 7
11503 @ 104624:                  PUSHI  #0x000000ff
11504 @ 104629:                  ASSVAL
11505 @ 104630:                  LOCATE L_000d

  2329        %finish
11506 @ 104633:                  LINE   2329 "regression-compile-tmp/chimp.imp"
11507 @ 104669:                  LOCATE L_000a

  2330        get(right)
11508 @ 104672:                  LINE   2330 "regression-compile-tmp/chimp.imp"
11509 @ 104708:                  PUSH   GET
11510 @ 104711:                  PUSHI  #0x0000003c
11511 @ 104716:                  ASSPAR
11512 @ 104717:                  CALL  

  2331      %finish %else nonstandard(nolength)
11513 @ 104718:                  LINE   2331 "regression-compile-tmp/chimp.imp"
11514 @ 104754:                  GOTO   L_0006
11515 @ 104757:                  LOCATE L_0007
11516 @ 104760:                  PUSH   NONSTANDARD
11517 @ 104763:                  PUSHI  #0x00000020
11518 @ 104768:                  ASSPAR
11519 @ 104769:                  CALL  
11520 @ 104770:                  LOCATE L_0006

  2332      %if t_val # 0 %start
11521 @ 104773:                  LINE   2332 "regression-compile-tmp/chimp.imp"
11522 @ 104809:                  PUSH   T
11523 @ 104812:                  SELECT 7
11524 @ 104815:                  PUSHI  #0x00000000
11525 @ 104820:                  JUMPIF = L_0007

  2333        d_type = newstype(t_val)
11526 @ 104824:                  LINE   2333 "regression-compile-tmp/chimp.imp"
11527 @ 104860:                  PUSH   D
11528 @ 104863:                  SELECT 2
11529 @ 104866:                  PUSH   NEWSTYPE
11530 @ 104869:                  PUSH   T
11531 @ 104872:                  SELECT 7
11532 @ 104875:                  ASSPAR
11533 @ 104876:                  CALL  
11534 @ 104877:                  ASSVAL

  2334        dsize = (t_val+2)&(\1);  !+1 & evened up
11535 @ 104878:                  LINE   2334 "regression-compile-tmp/chimp.imp"
11536 @ 104914:                  PUSH   DSIZE
11537 @ 104917:                  PUSH   T
11538 @ 104920:                  SELECT 7
11539 @ 104923:                  PUSHI  #0x00000002
11540 @ 104928:                  ADD   
11541 @ 104929:                  PUSHI  #0x00000001
11542 @ 104934:                  NOT   
11543 @ 104935:                  AND   
11544 @ 104936:                  ASSVAL

  2335      %finish
11545 @ 104937:                  LINE   2335 "regression-compile-tmp/chimp.imp"
11546 @ 104973:                  LOCATE L_0007

  2336    %else %if a(keyrecord);                    !%record
11547 @ 104976:                  LINE   2336 "regression-compile-tmp/chimp.imp"
11548 @ 105012:                  GOTO   L_0003
11549 @ 105015:                  LOCATE L_0004
11550 @ 105018:                  PUSH   A
11551 @ 105021:                  PUSHI  #0x0000001e
11552 @ 105026:                  ASSPAR
11553 @ 105027:                  CALL  
11554 @ 105028:                  bf     L_0004

  2337      d_type = recy
11555 @ 105031:                  LINE   2337 "regression-compile-tmp/chimp.imp"
11556 @ 105067:                  PUSH   D
11557 @ 105070:                  SELECT 2
11558 @ 105073:                  PUSHI  #0x000007fa
11559 @ 105078:                  ASSVAL

  2338      %if a(keyformat) %start
11560 @ 105079:                  LINE   2338 "regression-compile-tmp/chimp.imp"
11561 @ 105115:                  PUSH   A
11562 @ 105118:                  PUSHI  #0x0000001f
11563 @ 105123:                  ASSPAR
11564 @ 105124:                  CALL  
11565 @ 105125:                  bf     L_0007

  2339        syntax error %if flags&(static+ext) # 0
11566 @ 105128:                  LINE   2339 "regression-compile-tmp/chimp.imp"
11567 @ 105164:                  PUSH   FLAGS
11568 @ 105167:                  PUSHI  #0x00000008
11569 @ 105172:                  PUSHI  #0x00000020
11570 @ 105177:                  ADD   
11571 @ 105178:                  AND   
11572 @ 105179:                  PUSHI  #0x00000000
11573 @ 105184:                  JUMPIF = L_000a
11574 @ 105188:                  PUSH   SYNTAXERROR
11575 @ 105191:                  CALL  
11576 @ 105192:                  LOCATE L_000a

  2340        %if a(keyspec) %start
11577 @ 105195:                  LINE   2340 "regression-compile-tmp/chimp.imp"
11578 @ 105231:                  PUSH   A
11579 @ 105234:                  PUSHI  #0x00000022
11580 @ 105239:                  ASSPAR
11581 @ 105240:                  CALL  
11582 @ 105241:                  bf     L_000a

  2341          d_flags = typeid+spec
11583 @ 105244:                  LINE   2341 "regression-compile-tmp/chimp.imp"
11584 @ 105280:                  PUSH   D
11585 @ 105283:                  SELECT 1
11586 @ 105286:                  PUSHI  #0x00000100
11587 @ 105291:                  PUSHI  #0x00000010
11588 @ 105296:                  ADD   
11589 @ 105297:                  ASSVAL

  2342          get IDENT
11590 @ 105298:                  LINE   2342 "regression-compile-tmp/chimp.imp"
11591 @ 105334:                  PUSH   GETIDENT
11592 @ 105337:                  CALL  

  2343        %finish %else %start
11593 @ 105338:                  LINE   2343 "regression-compile-tmp/chimp.imp"
11594 @ 105374:                  GOTO   L_0009
11595 @ 105377:                  LOCATE L_000a

  2344          d_flags = typeid
11596 @ 105380:                  LINE   2344 "regression-compile-tmp/chimp.imp"
11597 @ 105416:                  PUSH   D
11598 @ 105419:                  SELECT 1
11599 @ 105422:                  PUSHI  #0x00000100
11600 @ 105427:                  ASSVAL

  2345          get IDENT
11601 @ 105428:                  LINE   2345 "regression-compile-tmp/chimp.imp"
11602 @ 105464:                  PUSH   GETIDENT
11603 @ 105467:                  CALL  

  2346          formp == ditem
11604 @ 105468:                  LINE   2346 "regression-compile-tmp/chimp.imp"
11605 @ 105504:                  PUSH   FORMP
11606 @ 105507:                  PUSH   DITEM
11607 @ 105510:                  ASSREF

  2347          get(left)
11608 @ 105511:                  LINE   2347 "regression-compile-tmp/chimp.imp"
11609 @ 105547:                  PUSH   GET
11610 @ 105550:                  PUSHI  #0x00000037
11611 @ 105555:                  ASSPAR
11612 @ 105556:                  CALL  

  2348          fbase = 0
11613 @ 105557:                  LINE   2348 "regression-compile-tmp/chimp.imp"
11614 @ 105593:                  PUSH   FBASE
11615 @ 105596:                  PUSHI  #0x00000000
11616 @ 105601:                  ASSVAL

  2349          get FORMATDEF
11617 @ 105602:                  LINE   2349 "regression-compile-tmp/chimp.imp"
11618 @ 105638:                  PUSH   GETFORMATDEF
11619 @ 105641:                  CALL  

  2350          fieldp_flags = fieldp_flags-more
11620 @ 105642:                  LINE   2350 "regression-compile-tmp/chimp.imp"
11621 @ 105678:                  PUSH   FIELDP
11622 @ 105681:                  SELECT 1
11623 @ 105684:                  PUSH   FIELDP
11624 @ 105687:                  SELECT 1
11625 @ 105690:                  PUSHI  #0x00000080
11626 @ 105695:                  SUB   
11627 @ 105696:                  ASSVAL

  2351          get(right)
11628 @ 105697:                  LINE   2351 "regression-compile-tmp/chimp.imp"
11629 @ 105733:                  PUSH   GET
11630 @ 105736:                  PUSHI  #0x0000003c
11631 @ 105741:                  ASSPAR
11632 @ 105742:                  CALL  

  2352        %finish
11633 @ 105743:                  LINE   2352 "regression-compile-tmp/chimp.imp"
11634 @ 105779:                  LOCATE L_0009

  2353        d_flags = typeid
11635 @ 105782:                  LINE   2353 "regression-compile-tmp/chimp.imp"
11636 @ 105818:                  PUSH   D
11637 @ 105821:                  SELECT 1
11638 @ 105824:                  PUSHI  #0x00000100
11639 @ 105829:                  ASSVAL

  2354        %return
11640 @ 105830:                  LINE   2354 "regression-compile-tmp/chimp.imp"
11641 @ 105866:                  RETURN

  2355      %finish
11642 @ 105867:                  LINE   2355 "regression-compile-tmp/chimp.imp"
11643 @ 105903:                  LOCATE L_0007

  2356      get(left)
11644 @ 105906:                  LINE   2356 "regression-compile-tmp/chimp.imp"
11645 @ 105942:                  PUSH   GET
11646 @ 105945:                  PUSHI  #0x00000037
11647 @ 105950:                  ASSPAR
11648 @ 105951:                  CALL  

  2357      %if %not a(star) %start
11649 @ 105952:                  LINE   2357 "regression-compile-tmp/chimp.imp"
11650 @ 105988:                  PUSH   A
11651 @ 105991:                  PUSHI  #0x00000058
11652 @ 105996:                  ASSPAR
11653 @ 105997:                  CALL  
11654 @ 105998:                  bt     L_0007

  2358        %if %not a(ident) %start
11655 @ 106001:                  LINE   2358 "regression-compile-tmp/chimp.imp"
11656 @ 106037:                  PUSH   A
11657 @ 106040:                  PUSHI  #0x00000036
11658 @ 106045:                  ASSPAR
11659 @ 106046:                  CALL  
11660 @ 106047:                  bt     L_000a

  2359          get FORMATDEF
11661 @ 106050:                  LINE   2359 "regression-compile-tmp/chimp.imp"
11662 @ 106086:                  PUSH   GETFORMATDEF
11663 @ 106089:                  CALL  

  2360          fieldp_flags = fieldp_flags-more
11664 @ 106090:                  LINE   2360 "regression-compile-tmp/chimp.imp"
11665 @ 106126:                  PUSH   FIELDP
11666 @ 106129:                  SELECT 1
11667 @ 106132:                  PUSH   FIELDP
11668 @ 106135:                  SELECT 1
11669 @ 106138:                  PUSHI  #0x00000080
11670 @ 106143:                  SUB   
11671 @ 106144:                  ASSVAL

  2361          get(right)
11672 @ 106145:                  LINE   2361 "regression-compile-tmp/chimp.imp"
11673 @ 106181:                  PUSH   GET
11674 @ 106184:                  PUSHI  #0x0000003c
11675 @ 106189:                  ASSPAR
11676 @ 106190:                  CALL  

  2362          d_flags = typeid
11677 @ 106191:                  LINE   2362 "regression-compile-tmp/chimp.imp"
11678 @ 106227:                  PUSH   D
11679 @ 106230:                  SELECT 1
11680 @ 106233:                  PUSHI  #0x00000100
11681 @ 106238:                  ASSVAL

  2363          declare anon
11682 @ 106239:                  LINE   2363 "regression-compile-tmp/chimp.imp"
11683 @ 106275:                  PUSH   DECLAREANON
11684 @ 106278:                  CALL  

  2364        %finish
11685 @ 106279:                  LINE   2364 "regression-compile-tmp/chimp.imp"
11686 @ 106315:                  LOCATE L_000a

  2365        name error %if item <= 0
11687 @ 106318:                  LINE   2365 "regression-compile-tmp/chimp.imp"
11688 @ 106354:                  PUSH   ITEM
11689 @ 106357:                  PUSHI  #0x00000000
11690 @ 106362:                  JUMPIF > L_000a
11691 @ 106366:                  PUSH   NAMEERROR
11692 @ 106369:                  CALL  
11693 @ 106370:                  LOCATE L_000a

  2366        syntax error %if ditem_type # recy
11694 @ 106373:                  LINE   2366 "regression-compile-tmp/chimp.imp"
11695 @ 106409:                  PUSH   DITEM
11696 @ 106412:                  SELECT 2
11697 @ 106415:                  PUSHI  #0x000007fa
11698 @ 106420:                  JUMPIF = L_000a
11699 @ 106424:                  PUSH   SYNTAXERROR
11700 @ 106427:                  CALL  
11701 @ 106428:                  LOCATE L_000a

  2367        d_type = item;  dsize = ditem_val
11702 @ 106431:                  LINE   2367 "regression-compile-tmp/chimp.imp"
11703 @ 106467:                  PUSH   D
11704 @ 106470:                  SELECT 2
11705 @ 106473:                  PUSH   ITEM
11706 @ 106476:                  ASSVAL
11707 @ 106477:                  LINE   2367 "regression-compile-tmp/chimp.imp"
11708 @ 106513:                  PUSH   DSIZE
11709 @ 106516:                  PUSH   DITEM
11710 @ 106519:                  SELECT 7
11711 @ 106522:                  ASSVAL

  2368      %finish
11712 @ 106523:                  LINE   2368 "regression-compile-tmp/chimp.imp"
11713 @ 106559:                  LOCATE L_0007

  2369      get(right)
11714 @ 106562:                  LINE   2369 "regression-compile-tmp/chimp.imp"
11715 @ 106598:                  PUSH   GET
11716 @ 106601:                  PUSHI  #0x0000003c
11717 @ 106606:                  ASSPAR
11718 @ 106607:                  CALL  

  2370    %else
11719 @ 106608:                  LINE   2370 "regression-compile-tmp/chimp.imp"
11720 @ 106644:                  GOTO   L_0003
11721 @ 106647:                  LOCATE L_0004

  2371      syntax error %if atom # keyname;            !untyped %name
11722 @ 106650:                  LINE   2371 "regression-compile-tmp/chimp.imp"
11723 @ 106686:                  PUSH   ATOM
11724 @ 106689:                  PUSHI  #0x00000024
11725 @ 106694:                  JUMPIF = L_0007
11726 @ 106698:                  PUSH   SYNTAXERROR
11727 @ 106701:                  CALL  
11728 @ 106702:                  LOCATE L_0007

  2372    %finish
  2373    !End of basic type info: set item size in DECLMODE
11729 @ 106705:                  LINE   2372 "regression-compile-tmp/chimp.imp"
11730 @ 106741:                  LOCATE L_0003

  2374    %if dsize <= 4 %start
11731 @ 106744:                  LINE   2374 "regression-compile-tmp/chimp.imp"
11732 @ 106780:                  PUSH   DSIZE
11733 @ 106783:                  PUSHI  #0x00000004
11734 @ 106788:                  JUMPIF > L_0004

  2375      %if dsize <= 2 %then declmode = dsize<<sizeshift %c
  2376      %else declmode = longsize<<sizeshift
11735 @ 106792:                  LINE   2375 "regression-compile-tmp/chimp.imp"
11736 @ 106828:                  PUSH   DSIZE
11737 @ 106831:                  PUSHI  #0x00000002
11738 @ 106836:                  JUMPIF > L_0007
11739 @ 106840:                  PUSH   DECLMODE
11740 @ 106843:                  PUSH   DSIZE
11741 @ 106846:                  PUSHI  #0x00000006
11742 @ 106851:                  LSH   
11743 @ 106852:                  ASSVAL
11744 @ 106853:                  GOTO   L_0006
11745 @ 106856:                  LOCATE L_0007
11746 @ 106859:                  PUSH   DECLMODE
11747 @ 106862:                  PUSHI  #0x00000003
11748 @ 106867:                  PUSHI  #0x00000006
11749 @ 106872:                  LSH   
11750 @ 106873:                  ASSVAL
11751 @ 106874:                  LOCATE L_0006

  2377    %finish
  2378    !Appendages
11752 @ 106877:                  LINE   2377 "regression-compile-tmp/chimp.imp"
11753 @ 106913:                  LOCATE L_0004

  2379    %if a(fnmap) %start;  !%fn, %map
11754 @ 106916:                  LINE   2379 "regression-compile-tmp/chimp.imp"
11755 @ 106952:                  PUSH   A
11756 @ 106955:                  PUSHI  #0x00000020
11757 @ 106960:                  ASSPAR
11758 @ 106961:                  CALL  
11759 @ 106962:                  bf     L_0004

  2380      flags = flags&(\static) %if flags&ext # 0
11760 @ 106965:                  LINE   2380 "regression-compile-tmp/chimp.imp"
11761 @ 107001:                  PUSH   FLAGS
11762 @ 107004:                  PUSHI  #0x00000020
11763 @ 107009:                  AND   
11764 @ 107010:                  PUSHI  #0x00000000
11765 @ 107015:                  JUMPIF = L_0007
11766 @ 107019:                  PUSH   FLAGS
11767 @ 107022:                  PUSH   FLAGS
11768 @ 107025:                  PUSHI  #0x00000008
11769 @ 107030:                  NOT   
11770 @ 107031:                  AND   
11771 @ 107032:                  ASSVAL
11772 @ 107033:                  LOCATE L_0007

  2381      syntax error %if flags&static # 0
11773 @ 107036:                  LINE   2381 "regression-compile-tmp/chimp.imp"
11774 @ 107072:                  PUSH   FLAGS
11775 @ 107075:                  PUSHI  #0x00000008
11776 @ 107080:                  AND   
11777 @ 107081:                  PUSHI  #0x00000000
11778 @ 107086:                  JUMPIF = L_0007
11779 @ 107090:                  PUSH   SYNTAXERROR
11780 @ 107093:                  CALL  
11781 @ 107094:                  LOCATE L_0007

  2382      flags = flags+var %and d_type = d_type+direct %if subatom # 0;  !map
11782 @ 107097:                  LINE   2382 "regression-compile-tmp/chimp.imp"
11783 @ 107133:                  PUSH   SUBATOM
11784 @ 107136:                  PUSHI  #0x00000000
11785 @ 107141:                  JUMPIF = L_0007
11786 @ 107145:                  PUSH   FLAGS
11787 @ 107148:                  PUSH   FLAGS
11788 @ 107151:                  PUSHI  #0x00000001
11789 @ 107156:                  ADD   
11790 @ 107157:                  ASSVAL
11791 @ 107158:                  PUSH   D
11792 @ 107161:                  SELECT 2
11793 @ 107164:                  PUSH   D
11794 @ 107167:                  SELECT 2
11795 @ 107170:                  PUSHI  #0x00002000
11796 @ 107175:                  ADD   
11797 @ 107176:                  ASSVAL
11798 @ 107177:                  LOCATE L_0007

  2383      d_flags = flags+proc;  declmode = declmode+pcmode
11799 @ 107180:                  LINE   2383 "regression-compile-tmp/chimp.imp"
11800 @ 107216:                  PUSH   D
11801 @ 107219:                  SELECT 1
11802 @ 107222:                  PUSH   FLAGS
11803 @ 107225:                  PUSHI  #0x00000004
11804 @ 107230:                  ADD   
11805 @ 107231:                  ASSVAL
11806 @ 107232:                  LINE   2383 "regression-compile-tmp/chimp.imp"
11807 @ 107268:                  PUSH   DECLMODE
11808 @ 107271:                  PUSH   DECLMODE
11809 @ 107274:                  PUSHI  #0x0000003a
11810 @ 107279:                  ADD   
11811 @ 107280:                  ASSVAL

  2384      %return
11812 @ 107281:                  LINE   2384 "regression-compile-tmp/chimp.imp"
11813 @ 107317:                  RETURN

  2385    %finish
11814 @ 107318:                  LINE   2385 "regression-compile-tmp/chimp.imp"
11815 @ 107354:                  LOCATE L_0004

  2386    d_type = d_type+direct
11816 @ 107357:                  LINE   2386 "regression-compile-tmp/chimp.imp"
11817 @ 107393:                  PUSH   D
11818 @ 107396:                  SELECT 2
11819 @ 107399:                  PUSH   D
11820 @ 107402:                  SELECT 2
11821 @ 107405:                  PUSHI  #0x00002000
11822 @ 107410:                  ADD   
11823 @ 107411:                  ASSVAL

  2387    %while a(keyarray) %or a(keyname) %cycle
11824 @ 107412:                  LINE   2387 "regression-compile-tmp/chimp.imp"
11825 @ 107448:                  LOCATE L_0003
11826 @ 107451:                  PUSH   A
11827 @ 107454:                  PUSHI  #0x00000023
11828 @ 107459:                  ASSPAR
11829 @ 107460:                  CALL  
11830 @ 107461:                  bt     L_0005
11831 @ 107464:                  PUSH   A
11832 @ 107467:                  PUSHI  #0x00000024
11833 @ 107472:                  ASSPAR
11834 @ 107473:                  CALL  
11835 @ 107474:                  bf     L_0004
11836 @ 107477:                  LOCATE L_0005

  2388      %if atom = keyarray %start;                  !%array
11837 @ 107480:                  LINE   2388 "regression-compile-tmp/chimp.imp"
11838 @ 107516:                  PUSH   ATOM
11839 @ 107519:                  PUSHI  #0x00000023
11840 @ 107524:                  JUMPIF # L_0007

  2389        nonstandard(naming) %if d_type >= indirect
11841 @ 107528:                  LINE   2389 "regression-compile-tmp/chimp.imp"
11842 @ 107564:                  PUSH   D
11843 @ 107567:                  SELECT 2
11844 @ 107570:                  PUSHI  #0x00004000
11845 @ 107575:                  JUMPIF < L_000a
11846 @ 107579:                  PUSH   NONSTANDARD
11847 @ 107582:                  PUSHI  #0x00000200
11848 @ 107587:                  ASSPAR
11849 @ 107588:                  CALL  
11850 @ 107589:                  LOCATE L_000a

  2390        %if %not a(keyname) %start
11851 @ 107592:                  LINE   2390 "regression-compile-tmp/chimp.imp"
11852 @ 107628:                  PUSH   A
11853 @ 107631:                  PUSHI  #0x00000024
11854 @ 107636:                  ASSPAR
11855 @ 107637:                  CALL  
11856 @ 107638:                  bt     L_000a

  2391          syntax error %if flags&parm # 0
11857 @ 107641:                  LINE   2391 "regression-compile-tmp/chimp.imp"
11858 @ 107677:                  PUSH   FLAGS
11859 @ 107680:                  PUSHI  #0x00000040
11860 @ 107685:                  AND   
11861 @ 107686:                  PUSHI  #0x00000000
11862 @ 107691:                  JUMPIF = L_000d
11863 @ 107695:                  PUSH   SYNTAXERROR
11864 @ 107698:                  CALL  
11865 @ 107699:                  LOCATE L_000d

  2392          flags = flags+parm;  !as indic
11866 @ 107702:                  LINE   2392 "regression-compile-tmp/chimp.imp"
11867 @ 107738:                  PUSH   FLAGS
11868 @ 107741:                  PUSH   FLAGS
11869 @ 107744:                  PUSHI  #0x00000040
11870 @ 107749:                  ADD   
11871 @ 107750:                  ASSVAL

  2393          %exit
11872 @ 107751:                  LINE   2393 "regression-compile-tmp/chimp.imp"
11873 @ 107787:                  GOTO   L_0004

  2394        %finish
11874 @ 107790:                  LINE   2394 "regression-compile-tmp/chimp.imp"
11875 @ 107826:                  LOCATE L_000a

  2395        d_type = newatype(d_type,inty)
11876 @ 107829:                  LINE   2395 "regression-compile-tmp/chimp.imp"
11877 @ 107865:                  PUSH   D
11878 @ 107868:                  SELECT 2
11879 @ 107871:                  PUSH   NEWATYPE
11880 @ 107874:                  PUSH   D
11881 @ 107877:                  SELECT 2
11882 @ 107880:                  ASSPAR
11883 @ 107881:                  PUSHI  #0x000007fe
11884 @ 107886:                  ASSPAR
11885 @ 107887:                  CALL  
11886 @ 107888:                  ASSVAL

  2396      %finish
11887 @ 107889:                  LINE   2396 "regression-compile-tmp/chimp.imp"
11888 @ 107925:                  LOCATE L_0007

  2397      syntax error %if d_type >= indirect
11889 @ 107928:                  LINE   2397 "regression-compile-tmp/chimp.imp"
11890 @ 107964:                  PUSH   D
11891 @ 107967:                  SELECT 2
11892 @ 107970:                  PUSHI  #0x00004000
11893 @ 107975:                  JUMPIF < L_0007
11894 @ 107979:                  PUSH   SYNTAXERROR
11895 @ 107982:                  CALL  
11896 @ 107983:                  LOCATE L_0007

  2398      d_type = d_type+(indirect-direct)
11897 @ 107986:                  LINE   2398 "regression-compile-tmp/chimp.imp"
11898 @ 108022:                  PUSH   D
11899 @ 108025:                  SELECT 2
11900 @ 108028:                  PUSH   D
11901 @ 108031:                  SELECT 2
11902 @ 108034:                  PUSHI  #0x00004000
11903 @ 108039:                  PUSHI  #0x00002000
11904 @ 108044:                  SUB   
11905 @ 108045:                  ADD   
11906 @ 108046:                  ASSVAL

  2399      dsize = 4
11907 @ 108047:                  LINE   2399 "regression-compile-tmp/chimp.imp"
11908 @ 108083:                  PUSH   DSIZE
11909 @ 108086:                  PUSHI  #0x00000004
11910 @ 108091:                  ASSVAL

  2400    %repeat
11911 @ 108092:                  LINE   2400 "regression-compile-tmp/chimp.imp"
11912 @ 108128:                  REPEAT L_0003
11913 @ 108131:                  LOCATE L_0004

  2401    d_flags = flags!!var
11914 @ 108134:                  LINE   2401 "regression-compile-tmp/chimp.imp"
11915 @ 108170:                  PUSH   D
11916 @ 108173:                  SELECT 1
11917 @ 108176:                  PUSH   FLAGS
11918 @ 108179:                  PUSHI  #0x00000001
11919 @ 108184:                  XOR   
11920 @ 108185:                  ASSVAL

  2402  %end;  !GET TYPE
  2403  !
11921 @ 108186:                  LINE   2402 "regression-compile-tmp/chimp.imp"
11922 @ 108222:               END    _ECCECI_GETSTATEMENTS_GETTYPE {lev=3 --> 2}

  2404  %routine GET OWN ARRAY DECLARATION
11923 @ 108223:               LINE   2404 "regression-compile-tmp/chimp.imp"
11924 @ 108259:               DEF    GETOWNARRAYDECLARATION (_ECCECI_GETSTATEMENTS_GETOWNARRAYDECLARATION) p1=V_0121 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
11925 @ 108293:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
11926 @ 108294:                  FINISH ) {lev=3}

  2405  %integer holdval,dpos
11927 @ 108295:                  LINE   2405 "regression-compile-tmp/chimp.imp"
11928 @ 108331:                  DEF    HOLDVAL p1=V_0122 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
11929 @ 108350:                  DEF    DPOS p1=V_0123 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  2406  %record(identinfo)%name dp
  2407  !  constad = constad+1 %if constad&1 # 0
  2408  !  d_val = constad
  2409  !  d_val = d_val-ownbase %if d_val >= ownbase
11930 @ 108366:                  LINE   2406 "regression-compile-tmp/chimp.imp"
11931 @ 108402:                  DEF    DP p1=V_0124 a/tf=42 b/format=9a c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  2410    get IDENT
11932 @ 108416:                  LINE   2410 "regression-compile-tmp/chimp.imp"
11933 @ 108452:                  PUSH   GETIDENT
11934 @ 108455:                  CALL  

  2411    dpos = item;  dp == ditem
11935 @ 108456:                  LINE   2411 "regression-compile-tmp/chimp.imp"
11936 @ 108492:                  PUSH   DPOS
11937 @ 108495:                  PUSH   ITEM
11938 @ 108498:                  ASSVAL
11939 @ 108499:                  LINE   2411 "regression-compile-tmp/chimp.imp"
11940 @ 108535:                  PUSH   DP
11941 @ 108538:                  PUSH   DITEM
11942 @ 108541:                  ASSREF

  2412    get LITBOUNDS
11943 @ 108542:                  LINE   2412 "regression-compile-tmp/chimp.imp"
11944 @ 108578:                  PUSH   GETLITBOUNDS
11945 @ 108581:                  CALL  

  2413    dp_type = newatype(d_type,item)
11946 @ 108582:                  LINE   2413 "regression-compile-tmp/chimp.imp"
11947 @ 108618:                  PUSH   DP
11948 @ 108621:                  SELECT 2
11949 @ 108624:                  PUSH   NEWATYPE
11950 @ 108627:                  PUSH   D
11951 @ 108630:                  SELECT 2
11952 @ 108633:                  ASSPAR
11953 @ 108634:                  PUSH   ITEM
11954 @ 108637:                  ASSPAR
11955 @ 108638:                  CALL  
11956 @ 108639:                  ASSVAL

  2414    %if a assop %start
11957 @ 108640:                  LINE   2414 "regression-compile-tmp/chimp.imp"
11958 @ 108676:                  PUSH   AASSOP
11959 @ 108679:                  CALL  
11960 @ 108680:                  bf     L_0004

  2415      allow(terminator)
11961 @ 108683:                  LINE   2415 "regression-compile-tmp/chimp.imp"
11962 @ 108719:                  PUSH   ALLOW
11963 @ 108722:                  PUSHI  #0x00000034
11964 @ 108727:                  ASSPAR
11965 @ 108728:                  CALL  

  2416      %cycle
11966 @ 108729:                  LINE   2416 "regression-compile-tmp/chimp.imp"
11967 @ 108765:                  LOCATE L_0006

  2417        get LITERAL(d_type)
11968 @ 108768:                  LINE   2417 "regression-compile-tmp/chimp.imp"
11969 @ 108804:                  PUSH   GETLITERAL
11970 @ 108807:                  PUSH   D
11971 @ 108810:                  SELECT 2
11972 @ 108813:                  ASSPAR
11973 @ 108814:                  CALL  

  2418        faultnum = rangerr+point+warn %if faultnum = rangerr+point
11974 @ 108815:                  LINE   2418 "regression-compile-tmp/chimp.imp"
11975 @ 108851:                  PUSH   FAULTNUM
11976 @ 108854:                  PUSHI  #0x0000000c
11977 @ 108859:                  PUSHI  #0x00000040
11978 @ 108864:                  ADD   
11979 @ 108865:                  JUMPIF # L_000a
11980 @ 108869:                  PUSH   FAULTNUM
11981 @ 108872:                  PUSHI  #0x0000000c
11982 @ 108877:                  PUSHI  #0x00000040
11983 @ 108882:                  ADD   
11984 @ 108883:                  PUSHI  #0x00000080
11985 @ 108888:                  ADD   
11986 @ 108889:                  ASSVAL
11987 @ 108890:                  LOCATE L_000a

  2419        holdval = t_val
11988 @ 108893:                  LINE   2419 "regression-compile-tmp/chimp.imp"
11989 @ 108929:                  PUSH   HOLDVAL
11990 @ 108932:                  PUSH   T
11991 @ 108935:                  SELECT 7
11992 @ 108938:                  ASSVAL

  2420        t_val = 1
11993 @ 108939:                  LINE   2420 "regression-compile-tmp/chimp.imp"
11994 @ 108975:                  PUSH   T
11995 @ 108978:                  SELECT 7
11996 @ 108981:                  PUSHI  #0x00000001
11997 @ 108986:                  ASSVAL

  2421        %if a(left) %start
11998 @ 108987:                  LINE   2421 "regression-compile-tmp/chimp.imp"
11999 @ 109023:                  PUSH   A
12000 @ 109026:                  PUSHI  #0x00000037
12001 @ 109031:                  ASSPAR
12002 @ 109032:                  CALL  
12003 @ 109033:                  bf     L_000a

  2422          t_val = elements
12004 @ 109036:                  LINE   2422 "regression-compile-tmp/chimp.imp"
12005 @ 109072:                  PUSH   T
12006 @ 109075:                  SELECT 7
12007 @ 109078:                  PUSH   ELEMENTS
12008 @ 109081:                  ASSVAL

  2423          get LITINT %if %not a(star)
12009 @ 109082:                  LINE   2423 "regression-compile-tmp/chimp.imp"
12010 @ 109118:                  PUSH   A
12011 @ 109121:                  PUSHI  #0x00000058
12012 @ 109126:                  ASSPAR
12013 @ 109127:                  CALL  
12014 @ 109128:                  bt     L_000d
12015 @ 109131:                  PUSH   GETLITINT
12016 @ 109134:                  CALL  
12017 @ 109135:                  LOCATE L_000d

  2424          get(right)
12018 @ 109138:                  LINE   2424 "regression-compile-tmp/chimp.imp"
12019 @ 109174:                  PUSH   GET
12020 @ 109177:                  PUSHI  #0x0000003c
12021 @ 109182:                  ASSPAR
12022 @ 109183:                  CALL  

  2425        %finish
  2426  !      plant const(holdval,t_val)
12023 @ 109184:                  LINE   2425 "regression-compile-tmp/chimp.imp"
12024 @ 109220:                  LOCATE L_000a

  2427        elements = elements-t_val
12025 @ 109223:                  LINE   2427 "regression-compile-tmp/chimp.imp"
12026 @ 109259:                  PUSH   ELEMENTS
12027 @ 109262:                  PUSH   ELEMENTS
12028 @ 109265:                  PUSH   T
12029 @ 109268:                  SELECT 7
12030 @ 109271:                  SUB   
12031 @ 109272:                  ASSVAL

  2428      %repeat %until %not a(comma)
12032 @ 109273:                  LINE   2428 "regression-compile-tmp/chimp.imp"
12033 @ 109309:                  PUSH   A
12034 @ 109312:                  PUSHI  #0x0000003b
12035 @ 109317:                  ASSPAR
12036 @ 109318:                  CALL  
12037 @ 109319:                  bf     L_0007
12038 @ 109322:                  REPEAT L_0006
12039 @ 109325:                  LOCATE L_0007

  2429      report(counterr,dpos) %if elements # 0 %and faultnum = 0
12040 @ 109328:                  LINE   2429 "regression-compile-tmp/chimp.imp"
12041 @ 109364:                  PUSH   ELEMENTS
12042 @ 109367:                  PUSHI  #0x00000000
12043 @ 109372:                  JUMPIF = L_0007
12044 @ 109376:                  PUSH   FAULTNUM
12045 @ 109379:                  PUSHI  #0x00000000
12046 @ 109384:                  JUMPIF # L_0007
12047 @ 109388:                  PUSH   REPORT
12048 @ 109391:                  PUSHI  #0x0000002d
12049 @ 109396:                  ASSPAR
12050 @ 109397:                  PUSH   DPOS
12051 @ 109400:                  ASSPAR
12052 @ 109401:                  CALL  
12053 @ 109402:                  LOCATE L_0007

  2430    %finish
  2431  !  plant const(0,elements) %if elements > 0
12054 @ 109405:                  LINE   2430 "regression-compile-tmp/chimp.imp"
12055 @ 109441:                  LOCATE L_0004

  2432  %end;  !get OWN ADECL
  2433  
12056 @ 109444:                  LINE   2432 "regression-compile-tmp/chimp.imp"
12057 @ 109480:               END    _ECCECI_GETSTATEMENTS_GETOWNARRAYDECLARATION {lev=3 --> 2}

  2434  %routine GET ARRAY DECLARATION
  2435  !ie get IDENTLISTS and BOUNDS
12058 @ 109481:               LINE   2434 "regression-compile-tmp/chimp.imp"
12059 @ 109517:               DEF    GETARRAYDECLARATION (_ECCECI_GETSTATEMENTS_GETARRAYDECLARATION) p1=V_0122 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
12060 @ 109548:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
12061 @ 109549:                  FINISH ) {lev=3}

  2436  %integer i,dlim1,hold,holdval,type
  2437  
  2438  !%routine put bound pair
  2439  !  hold = litref(holdval) %if hold = 0
  2440  !  item = litref(t_val) %if item = 0
  2441  !  put3(r,hold,item);  !(range),lower,upper
  2442  !%end
  2443  
12062 @ 109550:                  LINE   2436 "regression-compile-tmp/chimp.imp"
12063 @ 109586:                  DEF    I p1=V_0123 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
12064 @ 109599:                  DEF    DLIM1 p1=V_0124 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
12065 @ 109616:                  DEF    HOLD p1=V_0125 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
12066 @ 109632:                  DEF    HOLDVAL p1=V_0126 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
12067 @ 109651:                  DEF    TYPE p1=V_0127 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  2444  %routine GET BOUNDS
12068 @ 109667:                  LINE   2444 "regression-compile-tmp/chimp.imp"
12069 @ 109703:                  DEF    GETBOUNDS (_ECCECI_GETSTATEMENTS_GETARRAYDECLARATION_GETBOUNDS) p1=V_0128 a/tf=7 b/format=0 c/ostate=0  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
12070 @ 109724:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
12071 @ 109725:                     FINISH ) {lev=4}

  2445  %integer range
12072 @ 109726:                     LINE   2445 "regression-compile-tmp/chimp.imp"
12073 @ 109762:                     DEF    RANGE p1=V_0129 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  2446    get VALUE(anyint)
12074 @ 109779:                     LINE   2446 "regression-compile-tmp/chimp.imp"
12075 @ 109815:                     PUSH   GETVALUE
12076 @ 109818:                     PUSHI  #0x000027fe
12077 @ 109823:                     ASSPAR
12078 @ 109824:                     CALL  

  2447    hold = item;  t_val = minint %if hold # 0
12079 @ 109825:                     LINE   2447 "regression-compile-tmp/chimp.imp"
12080 @ 109861:                     PUSH   HOLD
12081 @ 109864:                     PUSH   ITEM
12082 @ 109867:                     ASSVAL
12083 @ 109868:                     LINE   2447 "regression-compile-tmp/chimp.imp"
12084 @ 109904:                     PUSH   HOLD
12085 @ 109907:                     PUSHI  #0x00000000
12086 @ 109912:                     JUMPIF = L_0004
12087 @ 109916:                     PUSH   T
12088 @ 109919:                     SELECT 7
12089 @ 109922:                     PUSHI  #0x80000000
12090 @ 109927:                     ASSVAL
12091 @ 109928:                     LOCATE L_0004

  2448    holdval = t_val
12092 @ 109931:                     LINE   2448 "regression-compile-tmp/chimp.imp"
12093 @ 109967:                     PUSH   HOLDVAL
12094 @ 109970:                     PUSH   T
12095 @ 109973:                     SELECT 7
12096 @ 109976:                     ASSVAL

  2449    get(colon)
12097 @ 109977:                     LINE   2449 "regression-compile-tmp/chimp.imp"
12098 @ 110013:                     PUSH   GET
12099 @ 110016:                     PUSHI  #0x0000003a
12100 @ 110021:                     ASSPAR
12101 @ 110022:                     CALL  

  2450    get VALUE(anyint)
12102 @ 110023:                     LINE   2450 "regression-compile-tmp/chimp.imp"
12103 @ 110059:                     PUSH   GETVALUE
12104 @ 110062:                     PUSHI  #0x000027fe
12105 @ 110067:                     ASSPAR
12106 @ 110068:                     CALL  

  2451    t_val = maxint %if item # 0
12107 @ 110069:                     LINE   2451 "regression-compile-tmp/chimp.imp"
12108 @ 110105:                     PUSH   ITEM
12109 @ 110108:                     PUSHI  #0x00000000
12110 @ 110113:                     JUMPIF = L_0004
12111 @ 110117:                     PUSH   T
12112 @ 110120:                     SELECT 7
12113 @ 110123:                     PUSHI  #0x7fffffff
12114 @ 110128:                     ASSVAL
12115 @ 110129:                     LOCATE L_0004

  2452    range = newrange(inty,holdval,t_val)
12116 @ 110132:                     LINE   2452 "regression-compile-tmp/chimp.imp"
12117 @ 110168:                     PUSH   RANGE
12118 @ 110171:                     PUSH   NEWRANGE
12119 @ 110174:                     PUSHI  #0x000007fe
12120 @ 110179:                     ASSPAR
12121 @ 110180:                     PUSH   HOLDVAL
12122 @ 110183:                     ASSPAR
12123 @ 110184:                     PUSH   T
12124 @ 110187:                     SELECT 7
12125 @ 110190:                     ASSPAR
12126 @ 110191:                     CALL  
12127 @ 110192:                     ASSVAL

  2453    GET BOUNDS %if a(comma)
12128 @ 110193:                     LINE   2453 "regression-compile-tmp/chimp.imp"
12129 @ 110229:                     PUSH   A
12130 @ 110232:                     PUSHI  #0x0000003b
12131 @ 110237:                     ASSPAR
12132 @ 110238:                     CALL  
12133 @ 110239:                     bf     L_0004
12134 @ 110242:                     PUSH   GETBOUNDS
12135 @ 110245:                     CALL  
12136 @ 110246:                     LOCATE L_0004

  2454    type = newatype(type,range)
12137 @ 110249:                     LINE   2454 "regression-compile-tmp/chimp.imp"
12138 @ 110285:                     PUSH   TYPE
12139 @ 110288:                     PUSH   NEWATYPE
12140 @ 110291:                     PUSH   TYPE
12141 @ 110294:                     ASSPAR
12142 @ 110295:                     PUSH   RANGE
12143 @ 110298:                     ASSPAR
12144 @ 110299:                     CALL  
12145 @ 110300:                     ASSVAL

  2455  %end
  2456  
12146 @ 110301:                     LINE   2455 "regression-compile-tmp/chimp.imp"
12147 @ 110337:                  END    _ECCECI_GETSTATEMENTS_GETARRAYDECLARATION_GETBOUNDS {lev=4 --> 3}

  2457  %cycle
12148 @ 110338:                  LINE   2457 "regression-compile-tmp/chimp.imp"
12149 @ 110374:                  LOCATE L_0003

  2458    type = d_type
12150 @ 110377:                  LINE   2458 "regression-compile-tmp/chimp.imp"
12151 @ 110413:                  PUSH   TYPE
12152 @ 110416:                  PUSH   D
12153 @ 110419:                  SELECT 2
12154 @ 110422:                  ASSVAL

  2459    get IDENTLIST
12155 @ 110423:                  LINE   2459 "regression-compile-tmp/chimp.imp"
12156 @ 110459:                  PUSH   GETIDENTLIST
12157 @ 110462:                  CALL  

  2460    dlim1 = dlim
12158 @ 110463:                  LINE   2460 "regression-compile-tmp/chimp.imp"
12159 @ 110499:                  PUSH   DLIM1
12160 @ 110502:                  PUSH   DLIM
12161 @ 110505:                  ASSVAL

  2461    get(left)
12162 @ 110506:                  LINE   2461 "regression-compile-tmp/chimp.imp"
12163 @ 110542:                  PUSH   GET
12164 @ 110545:                  PUSHI  #0x00000037
12165 @ 110550:                  ASSPAR
12166 @ 110551:                  CALL  

  2462    GET BOUNDS
12167 @ 110552:                  LINE   2462 "regression-compile-tmp/chimp.imp"
12168 @ 110588:                  PUSH   GETBOUNDS
12169 @ 110591:                  CALL  

  2463    get(right)
  2464  !  %if hold = 0 = item {both literal} %and np = np0 {1-dim} %c
  2465  !  %and elements <= 32767 {safe to multiply?} %c
  2466  !  %and (elements*dsize*(dlim-dpos))<<1-c_sp-c_delta <= 32000 %start
  2467  !     d_par = parref(inty,0,r,0)
  2468  !  %finish %else %start
  2469  !    put bound pair
  2470  !     d_par = 0
  2471  !    i = np
  2472  !    %while i # np0 %cycle
  2473  !      i = i-1
  2474  !       d_par = parref(inty,0,exp(i)_act,d_par)
  2475  !    %repeat
  2476  !    exp(np0)_act = adecl
  2477  !  %finish
  2478  !  i = np
12170 @ 110592:                  LINE   2463 "regression-compile-tmp/chimp.imp"
12171 @ 110628:                  PUSH   GET
12172 @ 110631:                  PUSHI  #0x0000003c
12173 @ 110636:                  ASSPAR
12174 @ 110637:                  CALL  

  2479    %while dlim0 # dlim1 %cycle
  2480  !    %if i = np0 %start
  2481  !      c_delta = c_delta-elements*dsize
  2482  !      c_delta = c_delta-1 %if c_delta&1 # 0
  2483  !      dict(dlim0)_flags = dict(dlim0)_flags!static
  2484  !    %finish %else %start
  2485  !      np = i;  compile(np0,np0)
  2486  !      c_flags = c_flags!dynarray
  2487  !    %finish
  2488  !    dict(dlim0)_val = c_sp+c_delta
12175 @ 110638:                  LINE   2479 "regression-compile-tmp/chimp.imp"
12176 @ 110674:                  LOCATE L_0006
12177 @ 110677:                  PUSH   DLIM0
12178 @ 110680:                  PUSH   DLIM1
12179 @ 110683:                  JUMPIF = L_0007

  2489      dict(dlim0)_type = type
12180 @ 110687:                  LINE   2489 "regression-compile-tmp/chimp.imp"
12181 @ 110723:                  PUSH   DICT
12182 @ 110726:                  PUSH   DLIM0
12183 @ 110729:                  ACCESS
12184 @ 110730:                  SELECT 2
12185 @ 110733:                  PUSH   TYPE
12186 @ 110736:                  ASSVAL

  2490      dlim0 = dlim0+1
12187 @ 110737:                  LINE   2490 "regression-compile-tmp/chimp.imp"
12188 @ 110773:                  PUSH   DLIM0
12189 @ 110776:                  PUSH   DLIM0
12190 @ 110779:                  PUSHI  #0x00000001
12191 @ 110784:                  ADD   
12192 @ 110785:                  ASSVAL

  2491    %repeat
12193 @ 110786:                  LINE   2491 "regression-compile-tmp/chimp.imp"
12194 @ 110822:                  REPEAT L_0006
12195 @ 110825:                  LOCATE L_0007

  2492  %repeat %until %not a(comma)
12196 @ 110828:                  LINE   2492 "regression-compile-tmp/chimp.imp"
12197 @ 110864:                  PUSH   A
12198 @ 110867:                  PUSHI  #0x0000003b
12199 @ 110872:                  ASSPAR
12200 @ 110873:                  CALL  
12201 @ 110874:                  bf     L_0004
12202 @ 110877:                  REPEAT L_0003
12203 @ 110880:                  LOCATE L_0004

  2493  %end;  !get BOUNDS
  2494  
12204 @ 110883:                  LINE   2493 "regression-compile-tmp/chimp.imp"
12205 @ 110919:               END    _ECCECI_GETSTATEMENTS_GETARRAYDECLARATION {lev=3 --> 2}

  2495  %routine GET PARMDEF
12206 @ 110920:               LINE   2495 "regression-compile-tmp/chimp.imp"
12207 @ 110956:               DEF    GETPARMDEF (_ECCECI_GETSTATEMENTS_GETPARMDEF) p1=V_0123 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
12208 @ 110978:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
12209 @ 110979:                  FINISH ) {lev=3}

  2496  %integer headitem,dpos,dlim1
12210 @ 110980:                  LINE   2496 "regression-compile-tmp/chimp.imp"
12211 @ 111016:                  DEF    HEADITEM p1=V_0124 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
12212 @ 111036:                  DEF    DPOS p1=V_0125 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
12213 @ 111052:                  DEF    DLIM1 p1=V_0126 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  2497  %record(identinfo)%name headditem,dp
12214 @ 111069:                  LINE   2497 "regression-compile-tmp/chimp.imp"
12215 @ 111105:                  DEF    HEADDITEM p1=V_0127 a/tf=42 b/format=9a c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
12216 @ 111126:                  DEF    DP p1=V_0128 a/tf=42 b/format=9a c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  2498  %integerfn PARMMATCH(%integer apos)
12217 @ 111140:                  LINE   2498 "regression-compile-tmp/chimp.imp"
12218 @ 111176:                  DEF    PARMMATCH (_ECCECI_GETSTATEMENTS_GETPARMDEF_PARMMATCH) p1=V_0129 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
12219 @ 111197:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
12220 @ 111198:                        DEF    APOS p1=V_012a a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
12221 @ 111214:                     FINISH ) {lev=4}

  2499  %integer bpos
12222 @ 111215:                     LINE   2499 "regression-compile-tmp/chimp.imp"
12223 @ 111251:                     DEF    BPOS p1=V_012b a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  2500  %record(identinfo)%name ap,bp
12224 @ 111267:                     LINE   2500 "regression-compile-tmp/chimp.imp"
12225 @ 111303:                     DEF    AP p1=V_012c a/tf=42 b/format=9a c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
12226 @ 111317:                     DEF    BP p1=V_012d a/tf=42 b/format=9a c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  2501    bpos = dlim1
12227 @ 111331:                     LINE   2501 "regression-compile-tmp/chimp.imp"
12228 @ 111367:                     PUSH   BPOS
12229 @ 111370:                     PUSH   DLIM1
12230 @ 111373:                     ASSVAL

  2502    ap == dict(apos)
12231 @ 111374:                     LINE   2502 "regression-compile-tmp/chimp.imp"
12232 @ 111410:                     PUSH   AP
12233 @ 111413:                     PUSH   DICT
12234 @ 111416:                     PUSH   APOS
12235 @ 111419:                     ACCESS
12236 @ 111420:                     ASSREF

  2503    %while bpos # dlim %cycle
12237 @ 111421:                     LINE   2503 "regression-compile-tmp/chimp.imp"
12238 @ 111457:                     LOCATE L_0003
12239 @ 111460:                     PUSH   BPOS
12240 @ 111463:                     PUSH   DLIM
12241 @ 111466:                     JUMPIF = L_0004

  2504      %result = 0 %if ap_flags&more = 0
12242 @ 111470:                     LINE   2504 "regression-compile-tmp/chimp.imp"
12243 @ 111506:                     PUSH   AP
12244 @ 111509:                     SELECT 1
12245 @ 111512:                     PUSHI  #0x00000080
12246 @ 111517:                     AND   
12247 @ 111518:                     PUSHI  #0x00000000
12248 @ 111523:                     JUMPIF # L_0007
12249 @ 111527:                     PUSHI  #0x00000000
12250 @ 111532:                     RESULT
12251 @ 111533:                     LOCATE L_0007

  2505      apos = apos+1 %and ap == dict(apos) %until ap_flags&parm # 0
12252 @ 111536:                     LINE   2505 "regression-compile-tmp/chimp.imp"
12253 @ 111572:                     LOCATE L_0006
12254 @ 111575:                     PUSH   APOS
12255 @ 111578:                     PUSH   APOS
12256 @ 111581:                     PUSHI  #0x00000001
12257 @ 111586:                     ADD   
12258 @ 111587:                     ASSVAL
12259 @ 111588:                     PUSH   AP
12260 @ 111591:                     PUSH   DICT
12261 @ 111594:                     PUSH   APOS
12262 @ 111597:                     ACCESS
12263 @ 111598:                     ASSREF
12264 @ 111599:                     PUSH   AP
12265 @ 111602:                     SELECT 1
12266 @ 111605:                     PUSHI  #0x00000040
12267 @ 111610:                     AND   
12268 @ 111611:                     PUSHI  #0x00000000
12269 @ 111616:                     JUMPIF # L_0007
12270 @ 111620:                     REPEAT L_0006
12271 @ 111623:                     LOCATE L_0007

  2506      bp == dict(bpos)
12272 @ 111626:                     LINE   2506 "regression-compile-tmp/chimp.imp"
12273 @ 111662:                     PUSH   BP
12274 @ 111665:                     PUSH   DICT
12275 @ 111668:                     PUSH   BPOS
12276 @ 111671:                     ACCESS
12277 @ 111672:                     ASSREF

  2507      %result = 0 %if ap_type # bp_type;  !for now
12278 @ 111673:                     LINE   2507 "regression-compile-tmp/chimp.imp"
12279 @ 111709:                     PUSH   AP
12280 @ 111712:                     SELECT 2
12281 @ 111715:                     PUSH   BP
12282 @ 111718:                     SELECT 2
12283 @ 111721:                     JUMPIF = L_0007
12284 @ 111725:                     PUSHI  #0x00000000
12285 @ 111730:                     RESULT
12286 @ 111731:                     LOCATE L_0007

  2508      bpos = bpos+1
12287 @ 111734:                     LINE   2508 "regression-compile-tmp/chimp.imp"
12288 @ 111770:                     PUSH   BPOS
12289 @ 111773:                     PUSH   BPOS
12290 @ 111776:                     PUSHI  #0x00000001
12291 @ 111781:                     ADD   
12292 @ 111782:                     ASSVAL

  2509    %repeat
12293 @ 111783:                     LINE   2509 "regression-compile-tmp/chimp.imp"
12294 @ 111819:                     REPEAT L_0003
12295 @ 111822:                     LOCATE L_0004

  2510    %result = 1 %if ap_flags&more = 0
12296 @ 111825:                     LINE   2510 "regression-compile-tmp/chimp.imp"
12297 @ 111861:                     PUSH   AP
12298 @ 111864:                     SELECT 1
12299 @ 111867:                     PUSHI  #0x00000080
12300 @ 111872:                     AND   
12301 @ 111873:                     PUSHI  #0x00000000
12302 @ 111878:                     JUMPIF # L_0004
12303 @ 111882:                     PUSHI  #0x00000001
12304 @ 111887:                     RESULT
12305 @ 111888:                     LOCATE L_0004

  2511    %result = 0
12306 @ 111891:                     LINE   2511 "regression-compile-tmp/chimp.imp"
12307 @ 111927:                     PUSHI  #0x00000000
12308 @ 111932:                     RESULT

  2512  %end
  2513  !
12309 @ 111933:                     LINE   2512 "regression-compile-tmp/chimp.imp"
12310 @ 111969:                  END    _ECCECI_GETSTATEMENTS_GETPARMDEF_PARMMATCH {lev=4 --> 3}

  2514    headitem = item;  headditem == ditem
12311 @ 111970:                  LINE   2514 "regression-compile-tmp/chimp.imp"
12312 @ 112006:                  PUSH   HEADITEM
12313 @ 112009:                  PUSH   ITEM
12314 @ 112012:                  ASSVAL
12315 @ 112013:                  LINE   2514 "regression-compile-tmp/chimp.imp"
12316 @ 112049:                  PUSH   HEADDITEM
12317 @ 112052:                  PUSH   DITEM
12318 @ 112055:                  ASSREF

  2515    dlim1 = dlim
12319 @ 112056:                  LINE   2515 "regression-compile-tmp/chimp.imp"
12320 @ 112092:                  PUSH   DLIM1
12321 @ 112095:                  PUSH   DLIM
12322 @ 112098:                  ASSVAL

  2516    %if a(left) %start
12323 @ 112099:                  LINE   2516 "regression-compile-tmp/chimp.imp"
12324 @ 112135:                  PUSH   A
12325 @ 112138:                  PUSHI  #0x00000037
12326 @ 112143:                  ASSPAR
12327 @ 112144:                  CALL  
12328 @ 112145:                  bf     L_0004

  2517      %cycle
12329 @ 112148:                  LINE   2517 "regression-compile-tmp/chimp.imp"
12330 @ 112184:                  LOCATE L_0006

  2518        get TYPE(parm!more) %if atom # ident
12331 @ 112187:                  LINE   2518 "regression-compile-tmp/chimp.imp"
12332 @ 112223:                  PUSH   ATOM
12333 @ 112226:                  PUSHI  #0x00000036
12334 @ 112231:                  JUMPIF = L_000a
12335 @ 112235:                  PUSH   GETTYPE
12336 @ 112238:                  PUSHI  #0x00000040
12337 @ 112243:                  PUSHI  #0x00000080
12338 @ 112248:                  OR    
12339 @ 112249:                  ASSPAR
12340 @ 112250:                  CALL  
12341 @ 112251:                  LOCATE L_000a

  2519        %if d_flags&proc = 0 %start
12342 @ 112254:                  LINE   2519 "regression-compile-tmp/chimp.imp"
12343 @ 112290:                  PUSH   D
12344 @ 112293:                  SELECT 1
12345 @ 112296:                  PUSHI  #0x00000004
12346 @ 112301:                  AND   
12347 @ 112302:                  PUSHI  #0x00000000
12348 @ 112307:                  JUMPIF # L_000a

  2520          get IDENT
12349 @ 112311:                  LINE   2520 "regression-compile-tmp/chimp.imp"
12350 @ 112347:                  PUSH   GETIDENT
12351 @ 112350:                  CALL  

  2521          %exit %if %not a(comma) %and atom = right
12352 @ 112351:                  LINE   2521 "regression-compile-tmp/chimp.imp"
12353 @ 112387:                  PUSH   A
12354 @ 112390:                  PUSHI  #0x0000003b
12355 @ 112395:                  ASSPAR
12356 @ 112396:                  CALL  
12357 @ 112397:                  bt     L_000d
12358 @ 112400:                  PUSH   ATOM
12359 @ 112403:                  PUSHI  #0x0000003c
12360 @ 112408:                  JUMPIF # L_000d
12361 @ 112412:                  GOTO   L_0007
12362 @ 112415:                  LOCATE L_000d

  2522          %if atom # comma %then nonstandard(nocomma) %c
  2523          %else atom = next atom
12363 @ 112418:                  LINE   2522 "regression-compile-tmp/chimp.imp"
12364 @ 112454:                  PUSH   ATOM
12365 @ 112457:                  PUSHI  #0x0000003b
12366 @ 112462:                  JUMPIF = L_000d
12367 @ 112466:                  PUSH   NONSTANDARD
12368 @ 112469:                  PUSHI  #0x00000004
12369 @ 112474:                  ASSPAR
12370 @ 112475:                  CALL  
12371 @ 112476:                  GOTO   L_000c
12372 @ 112479:                  LOCATE L_000d
12373 @ 112482:                  PUSH   ATOM
12374 @ 112485:                  PUSH   NEXTATOM
12375 @ 112488:                  CALL  
12376 @ 112489:                  ASSVAL
12377 @ 112490:                  LOCATE L_000c

  2524        %finish %else %start
12378 @ 112493:                  LINE   2524 "regression-compile-tmp/chimp.imp"
12379 @ 112529:                  GOTO   L_0009
12380 @ 112532:                  LOCATE L_000a

  2525          get IDENT
12381 @ 112535:                  LINE   2525 "regression-compile-tmp/chimp.imp"
12382 @ 112571:                  PUSH   GETIDENT
12383 @ 112574:                  CALL  

  2526          speccing = speccing+2
12384 @ 112575:                  LINE   2526 "regression-compile-tmp/chimp.imp"
12385 @ 112611:                  PUSH   SPECCING
12386 @ 112614:                  PUSH   SPECCING
12387 @ 112617:                  PUSHI  #0x00000002
12388 @ 112622:                  ADD   
12389 @ 112623:                  ASSVAL

  2527          get PARMDEF
12390 @ 112624:                  LINE   2527 "regression-compile-tmp/chimp.imp"
12391 @ 112660:                  PUSH   GETPARMDEF
12392 @ 112663:                  CALL  

  2528          speccing = speccing-2
12393 @ 112664:                  LINE   2528 "regression-compile-tmp/chimp.imp"
12394 @ 112700:                  PUSH   SPECCING
12395 @ 112703:                  PUSH   SPECCING
12396 @ 112706:                  PUSHI  #0x00000002
12397 @ 112711:                  SUB   
12398 @ 112712:                  ASSVAL

  2529          %exit %if %not a(comma)
12399 @ 112713:                  LINE   2529 "regression-compile-tmp/chimp.imp"
12400 @ 112749:                  PUSH   A
12401 @ 112752:                  PUSHI  #0x0000003b
12402 @ 112757:                  ASSPAR
12403 @ 112758:                  CALL  
12404 @ 112759:                  bt     L_000d
12405 @ 112762:                  GOTO   L_0007
12406 @ 112765:                  LOCATE L_000d

  2530        %finish
12407 @ 112768:                  LINE   2530 "regression-compile-tmp/chimp.imp"
12408 @ 112804:                  LOCATE L_0009

  2531      %repeat
12409 @ 112807:                  LINE   2531 "regression-compile-tmp/chimp.imp"
12410 @ 112843:                  REPEAT L_0006
12411 @ 112846:                  LOCATE L_0007

  2532      dict(dlim-1)_flags = dict(dlim-1)_flags-more
12412 @ 112849:                  LINE   2532 "regression-compile-tmp/chimp.imp"
12413 @ 112885:                  PUSH   DICT
12414 @ 112888:                  PUSH   DLIM
12415 @ 112891:                  PUSHI  #0x00000001
12416 @ 112896:                  SUB   
12417 @ 112897:                  ACCESS
12418 @ 112898:                  SELECT 1
12419 @ 112901:                  PUSH   DICT
12420 @ 112904:                  PUSH   DLIM
12421 @ 112907:                  PUSHI  #0x00000001
12422 @ 112912:                  SUB   
12423 @ 112913:                  ACCESS
12424 @ 112914:                  SELECT 1
12425 @ 112917:                  PUSHI  #0x00000080
12426 @ 112922:                  SUB   
12427 @ 112923:                  ASSVAL

  2533      get(right)
12428 @ 112924:                  LINE   2533 "regression-compile-tmp/chimp.imp"
12429 @ 112960:                  PUSH   GET
12430 @ 112963:                  PUSHI  #0x0000003c
12431 @ 112968:                  ASSPAR
12432 @ 112969:                  CALL  

  2534    %finish
12433 @ 112970:                  LINE   2534 "regression-compile-tmp/chimp.imp"
12434 @ 113006:                  LOCATE L_0004

  2535    %if speccing >= 2 %start
12435 @ 113009:                  LINE   2535 "regression-compile-tmp/chimp.imp"
12436 @ 113045:                  PUSH   SPECCING
12437 @ 113048:                  PUSHI  #0x00000002
12438 @ 113053:                  JUMPIF < L_0004

  2536      dpos = dictmin
12439 @ 113057:                  LINE   2536 "regression-compile-tmp/chimp.imp"
12440 @ 113093:                  PUSH   DPOS
12441 @ 113096:                  PUSHI  #0x000007f9
12442 @ 113101:                  ASSVAL

  2537      %cycle
12443 @ 113102:                  LINE   2537 "regression-compile-tmp/chimp.imp"
12444 @ 113138:                  LOCATE L_0006

  2538        dp == dict(dpos)
12445 @ 113141:                  LINE   2538 "regression-compile-tmp/chimp.imp"
12446 @ 113177:                  PUSH   DP
12447 @ 113180:                  PUSH   DICT
12448 @ 113183:                  PUSH   DPOS
12449 @ 113186:                  ACCESS
12450 @ 113187:                  ASSREF

  2539        %if dp_flags&proc # 0 %and dp_type = headditem_type %start
12451 @ 113188:                  LINE   2539 "regression-compile-tmp/chimp.imp"
12452 @ 113224:                  PUSH   DP
12453 @ 113227:                  SELECT 1
12454 @ 113230:                  PUSHI  #0x00000004
12455 @ 113235:                  AND   
12456 @ 113236:                  PUSHI  #0x00000000
12457 @ 113241:                  JUMPIF = L_000a
12458 @ 113245:                  PUSH   DP
12459 @ 113248:                  SELECT 2
12460 @ 113251:                  PUSH   HEADDITEM
12461 @ 113254:                  SELECT 2
12462 @ 113257:                  JUMPIF # L_000a

  2540          %if parmmatch(dpos) # 0 %start
12463 @ 113261:                  LINE   2540 "regression-compile-tmp/chimp.imp"
12464 @ 113297:                  PUSH   PARMMATCH
12465 @ 113300:                  PUSH   DPOS
12466 @ 113303:                  ASSPAR
12467 @ 113304:                  CALL  
12468 @ 113305:                  PUSHI  #0x00000000
12469 @ 113310:                  JUMPIF = L_000d

  2541            headditem_type = dpos;  dlim = dlim1
12470 @ 113314:                  LINE   2541 "regression-compile-tmp/chimp.imp"
12471 @ 113350:                  PUSH   HEADDITEM
12472 @ 113353:                  SELECT 2
12473 @ 113356:                  PUSH   DPOS
12474 @ 113359:                  ASSVAL
12475 @ 113360:                  LINE   2541 "regression-compile-tmp/chimp.imp"
12476 @ 113396:                  PUSH   DLIM
12477 @ 113399:                  PUSH   DLIM1
12478 @ 113402:                  ASSVAL

  2542            %return
12479 @ 113403:                  LINE   2542 "regression-compile-tmp/chimp.imp"
12480 @ 113439:                  RETURN

  2543          %finish
12481 @ 113440:                  LINE   2543 "regression-compile-tmp/chimp.imp"
12482 @ 113476:                  LOCATE L_000d

  2544        %finish
12483 @ 113479:                  LINE   2544 "regression-compile-tmp/chimp.imp"
12484 @ 113515:                  LOCATE L_000a

  2545        dpos = dpos+1
12485 @ 113518:                  LINE   2545 "regression-compile-tmp/chimp.imp"
12486 @ 113554:                  PUSH   DPOS
12487 @ 113557:                  PUSH   DPOS
12488 @ 113560:                  PUSHI  #0x00000001
12489 @ 113565:                  ADD   
12490 @ 113566:                  ASSVAL

  2546      %repeat %until dpos >= headitem
12491 @ 113567:                  LINE   2546 "regression-compile-tmp/chimp.imp"
12492 @ 113603:                  PUSH   DPOS
12493 @ 113606:                  PUSH   HEADITEM
12494 @ 113609:                  JUMPIF >= L_0007
12495 @ 113613:                  REPEAT L_0006
12496 @ 113616:                  LOCATE L_0007

  2547      fault(caterr);  dlim = dlim1
12497 @ 113619:                  LINE   2547 "regression-compile-tmp/chimp.imp"
12498 @ 113655:                  PUSH   FAULT
12499 @ 113658:                  PUSHI  #0x00000003
12500 @ 113663:                  ASSPAR
12501 @ 113664:                  CALL  
12502 @ 113665:                  LINE   2547 "regression-compile-tmp/chimp.imp"
12503 @ 113701:                  PUSH   DLIM
12504 @ 113704:                  PUSH   DLIM1
12505 @ 113707:                  ASSVAL

  2548      %return
12506 @ 113708:                  LINE   2548 "regression-compile-tmp/chimp.imp"
12507 @ 113744:                  RETURN

  2549    %finish
12508 @ 113745:                  LINE   2549 "regression-compile-tmp/chimp.imp"
12509 @ 113781:                  LOCATE L_0004

  2550    %if speccing = 0 %and headditem_flags&spec # 0 %start
12510 @ 113784:                  LINE   2550 "regression-compile-tmp/chimp.imp"
12511 @ 113820:                  PUSH   SPECCING
12512 @ 113823:                  PUSHI  #0x00000000
12513 @ 113828:                  JUMPIF # L_0004
12514 @ 113832:                  PUSH   HEADDITEM
12515 @ 113835:                  SELECT 1
12516 @ 113838:                  PUSHI  #0x00000010
12517 @ 113843:                  AND   
12518 @ 113844:                  PUSHI  #0x00000000
12519 @ 113849:                  JUMPIF = L_0004

  2551      headditem_flags = headditem_flags-spec
12520 @ 113853:                  LINE   2551 "regression-compile-tmp/chimp.imp"
12521 @ 113889:                  PUSH   HEADDITEM
12522 @ 113892:                  SELECT 1
12523 @ 113895:                  PUSH   HEADDITEM
12524 @ 113898:                  SELECT 1
12525 @ 113901:                  PUSHI  #0x00000010
12526 @ 113906:                  SUB   
12527 @ 113907:                  ASSVAL

  2552      fault(matcherr) %if parmmatch(headitem) = 0
12528 @ 113908:                  LINE   2552 "regression-compile-tmp/chimp.imp"
12529 @ 113944:                  PUSH   PARMMATCH
12530 @ 113947:                  PUSH   HEADITEM
12531 @ 113950:                  ASSPAR
12532 @ 113951:                  CALL  
12533 @ 113952:                  PUSHI  #0x00000000
12534 @ 113957:                  JUMPIF # L_0007
12535 @ 113961:                  PUSH   FAULT
12536 @ 113964:                  PUSHI  #0x0000000b
12537 @ 113969:                  ASSPAR
12538 @ 113970:                  CALL  
12539 @ 113971:                  LOCATE L_0007

  2553    %else
12540 @ 113974:                  LINE   2553 "regression-compile-tmp/chimp.imp"
12541 @ 114010:                  GOTO   L_0003
12542 @ 114013:                  LOCATE L_0004

  2554      headditem_flags = headditem_flags!more %if dlim # dlim1
12543 @ 114016:                  LINE   2554 "regression-compile-tmp/chimp.imp"
12544 @ 114052:                  PUSH   DLIM
12545 @ 114055:                  PUSH   DLIM1
12546 @ 114058:                  JUMPIF = L_0007
12547 @ 114062:                  PUSH   HEADDITEM
12548 @ 114065:                  SELECT 1
12549 @ 114068:                  PUSH   HEADDITEM
12550 @ 114071:                  SELECT 1
12551 @ 114074:                  PUSHI  #0x00000080
12552 @ 114079:                  OR    
12553 @ 114080:                  ASSVAL
12554 @ 114081:                  LOCATE L_0007

  2555    %finish
12555 @ 114084:                  LINE   2555 "regression-compile-tmp/chimp.imp"
12556 @ 114120:                  LOCATE L_0003

  2556  %end;  !get PARMDEF
  2557  
12557 @ 114123:                  LINE   2556 "regression-compile-tmp/chimp.imp"
12558 @ 114159:               END    _ECCECI_GETSTATEMENTS_GETPARMDEF {lev=3 --> 2}

  2558  initial(keylabel):  nonstandard(klabel)
12559 @ 114160:               LINE   2558 "regression-compile-tmp/chimp.imp"
12560 @ 114196:               PUSHI  #0x00000017
12561 @ 114201:               SLABEL 272
12562 @ 114204:               LINE   2558 "regression-compile-tmp/chimp.imp"
12563 @ 114240:               PUSH   NONSTANDARD
12564 @ 114243:               PUSHI  #0x00000400
12565 @ 114248:               ASSPAR
12566 @ 114249:               CALL  

  2559    d_flags = lab+spec;  d_type = nulltype
12567 @ 114250:               LINE   2559 "regression-compile-tmp/chimp.imp"
12568 @ 114286:               PUSH   D
12569 @ 114289:               SELECT 1
12570 @ 114292:               PUSHI  #0x00000002
12571 @ 114297:               PUSHI  #0x00000010
12572 @ 114302:               ADD   
12573 @ 114303:               ASSVAL
12574 @ 114304:               LINE   2559 "regression-compile-tmp/chimp.imp"
12575 @ 114340:               PUSH   D
12576 @ 114343:               SELECT 2
12577 @ 114346:               PUSHI  #0x000007f9
12578 @ 114351:               ASSVAL

  2560    get IDENTLIST
12579 @ 114352:               LINE   2560 "regression-compile-tmp/chimp.imp"
12580 @ 114388:               PUSH   GETIDENTLIST
12581 @ 114391:               CALL  

  2561    -> term
  2562  
12582 @ 114392:               LINE   2561 "regression-compile-tmp/chimp.imp"
12583 @ 114428:               JUMP   L_0117

  2563  initial(prefix):
12584 @ 114431:               LINE   2563 "regression-compile-tmp/chimp.imp"
12585 @ 114467:               PUSHI  #0x00000018
12586 @ 114472:               SLABEL 272

  2564    d_flags = subatom;  ! !wflag!okflag
  2565  !  fault(prefix<<8) %if d_flags&extmask # 0
12587 @ 114475:               LINE   2564 "regression-compile-tmp/chimp.imp"
12588 @ 114511:               PUSH   D
12589 @ 114514:               SELECT 1
12590 @ 114517:               PUSH   SUBATOM
12591 @ 114520:               ASSVAL

  2566    atom = next atom
12592 @ 114521:               LINE   2566 "regression-compile-tmp/chimp.imp"
12593 @ 114557:               PUSH   ATOM
12594 @ 114560:               PUSH   NEXTATOM
12595 @ 114563:               CALL  
12596 @ 114564:               ASSVAL

  2567  initial(krange): initial(keylong):
12597 @ 114565:               LINE   2567 "regression-compile-tmp/chimp.imp"
12598 @ 114601:               PUSHI  #0x00000019
12599 @ 114606:               SLABEL 272
12600 @ 114609:               LINE   2567 "regression-compile-tmp/chimp.imp"
12601 @ 114645:               PUSHI  #0x0000001a
12602 @ 114650:               SLABEL 272

  2568  initial(keyinteger): initial(keyreal):
12603 @ 114653:               LINE   2568 "regression-compile-tmp/chimp.imp"
12604 @ 114689:               PUSHI  #0x0000001b
12605 @ 114694:               SLABEL 272
12606 @ 114697:               LINE   2568 "regression-compile-tmp/chimp.imp"
12607 @ 114733:               PUSHI  #0x0000001c
12608 @ 114738:               SLABEL 272

  2569  initial(keystring):  initial(keyrecord):
12609 @ 114741:               LINE   2569 "regression-compile-tmp/chimp.imp"
12610 @ 114777:               PUSHI  #0x0000001d
12611 @ 114782:               SLABEL 272
12612 @ 114785:               LINE   2569 "regression-compile-tmp/chimp.imp"
12613 @ 114821:               PUSHI  #0x0000001e
12614 @ 114826:               SLABEL 272

  2570  initial(rpred):
12615 @ 114829:               LINE   2570 "regression-compile-tmp/chimp.imp"
12616 @ 114865:               PUSHI  #0x00000021
12617 @ 114870:               SLABEL 272

  2571    matched = 0
12618 @ 114873:               LINE   2571 "regression-compile-tmp/chimp.imp"
12619 @ 114909:               PUSH   MATCHED
12620 @ 114912:               PUSHI  #0x00000000
12621 @ 114917:               ASSVAL

  2572    get TYPE(d_flags)
12622 @ 114918:               LINE   2572 "regression-compile-tmp/chimp.imp"
12623 @ 114954:               PUSH   GETTYPE
12624 @ 114957:               PUSH   D
12625 @ 114960:               SELECT 1
12626 @ 114963:               ASSPAR
12627 @ 114964:               CALL  

  2573    %if a(keyspec) %start
12628 @ 114965:               LINE   2573 "regression-compile-tmp/chimp.imp"
12629 @ 115001:               PUSH   A
12630 @ 115004:               PUSHI  #0x00000022
12631 @ 115009:               ASSPAR
12632 @ 115010:               CALL  
12633 @ 115011:               bf     L_0004

  2574      %if a(left) %start
12634 @ 115014:               LINE   2574 "regression-compile-tmp/chimp.imp"
12635 @ 115050:               PUSH   A
12636 @ 115053:               PUSHI  #0x00000037
12637 @ 115058:               ASSPAR
12638 @ 115059:               CALL  
12639 @ 115060:               bf     L_0007

  2575        get LITINT;  get(right)
12640 @ 115063:               LINE   2575 "regression-compile-tmp/chimp.imp"
12641 @ 115099:               PUSH   GETLITINT
12642 @ 115102:               CALL  
12643 @ 115103:               LINE   2575 "regression-compile-tmp/chimp.imp"
12644 @ 115139:               PUSH   GET
12645 @ 115142:               PUSHI  #0x0000003c
12646 @ 115147:               ASSPAR
12647 @ 115148:               CALL  

  2576        declmode = declmode&sizemask+absmode
12648 @ 115149:               LINE   2576 "regression-compile-tmp/chimp.imp"
12649 @ 115185:               PUSH   DECLMODE
12650 @ 115188:               PUSH   DECLMODE
12651 @ 115191:               PUSHI  #0x000000c0
12652 @ 115196:               AND   
12653 @ 115197:               PUSHI  #0x00000038
12654 @ 115202:               ADD   
12655 @ 115203:               ASSVAL

  2577        d_val = t_val
12656 @ 115204:               LINE   2577 "regression-compile-tmp/chimp.imp"
12657 @ 115240:               PUSH   D
12658 @ 115243:               SELECT 7
12659 @ 115246:               PUSH   T
12660 @ 115249:               SELECT 7
12661 @ 115252:               ASSVAL

  2578        get IDENT
12662 @ 115253:               LINE   2578 "regression-compile-tmp/chimp.imp"
12663 @ 115289:               PUSH   GETIDENT
12664 @ 115292:               CALL  

  2579        speccing = 1 %and get PARMDEF %if d_flags&proc # 0
12665 @ 115293:               LINE   2579 "regression-compile-tmp/chimp.imp"
12666 @ 115329:               PUSH   D
12667 @ 115332:               SELECT 1
12668 @ 115335:               PUSHI  #0x00000004
12669 @ 115340:               AND   
12670 @ 115341:               PUSHI  #0x00000000
12671 @ 115346:               JUMPIF = L_000a
12672 @ 115350:               PUSH   SPECCING
12673 @ 115353:               PUSHI  #0x00000001
12674 @ 115358:               ASSVAL
12675 @ 115359:               PUSH   GETPARMDEF
12676 @ 115362:               CALL  
12677 @ 115363:               LOCATE L_000a

  2580        -> term
12678 @ 115366:               LINE   2580 "regression-compile-tmp/chimp.imp"
12679 @ 115402:               JUMP   L_0117

  2581      %finish
12680 @ 115405:               LINE   2581 "regression-compile-tmp/chimp.imp"
12681 @ 115441:               LOCATE L_0007

  2582      d_flags = d_flags+spec
12682 @ 115444:               LINE   2582 "regression-compile-tmp/chimp.imp"
12683 @ 115480:               PUSH   D
12684 @ 115483:               SELECT 1
12685 @ 115486:               PUSH   D
12686 @ 115489:               SELECT 1
12687 @ 115492:               PUSHI  #0x00000010
12688 @ 115497:               ADD   
12689 @ 115498:               ASSVAL

  2583      get IDENTLIST %and -> term %if d_flags&proc = 0
12690 @ 115499:               LINE   2583 "regression-compile-tmp/chimp.imp"
12691 @ 115535:               PUSH   D
12692 @ 115538:               SELECT 1
12693 @ 115541:               PUSHI  #0x00000004
12694 @ 115546:               AND   
12695 @ 115547:               PUSHI  #0x00000000
12696 @ 115552:               JUMPIF # L_0007
12697 @ 115556:               PUSH   GETIDENTLIST
12698 @ 115559:               CALL  
12699 @ 115560:               JUMP   L_0117
12700 @ 115563:               LOCATE L_0007

  2584    %finish
12701 @ 115566:               LINE   2584 "regression-compile-tmp/chimp.imp"
12702 @ 115602:               LOCATE L_0004

  2585    %if d_flags&proc # 0 %start
12703 @ 115605:               LINE   2585 "regression-compile-tmp/chimp.imp"
12704 @ 115641:               PUSH   D
12705 @ 115644:               SELECT 1
12706 @ 115647:               PUSHI  #0x00000004
12707 @ 115652:               AND   
12708 @ 115653:               PUSHI  #0x00000000
12709 @ 115658:               JUMPIF = L_0004

  2586      get(ident)
12710 @ 115662:               LINE   2586 "regression-compile-tmp/chimp.imp"
12711 @ 115698:               PUSH   GET
12712 @ 115701:               PUSHI  #0x00000036
12713 @ 115706:               ASSPAR
12714 @ 115707:               CALL  

  2587      %if item >= c_localdpos %and ditem_type = d_type %c
  2588      %and ditem_flags&proc # 0 %start
12715 @ 115708:               LINE   2587 "regression-compile-tmp/chimp.imp"
12716 @ 115744:               PUSH   ITEM
12717 @ 115747:               PUSH   C
12718 @ 115750:               SELECT 6
12719 @ 115753:               JUMPIF < L_0007
12720 @ 115757:               PUSH   DITEM
12721 @ 115760:               SELECT 2
12722 @ 115763:               PUSH   D
12723 @ 115766:               SELECT 2
12724 @ 115769:               JUMPIF # L_0007
12725 @ 115773:               PUSH   DITEM
12726 @ 115776:               SELECT 1
12727 @ 115779:               PUSHI  #0x00000004
12728 @ 115784:               AND   
12729 @ 115785:               PUSHI  #0x00000000
12730 @ 115790:               JUMPIF = L_0007

  2589        %if ditem_flags&spec = 0 %or d_flags&spec # 0 %start
12731 @ 115794:               LINE   2589 "regression-compile-tmp/chimp.imp"
12732 @ 115830:               PUSH   DITEM
12733 @ 115833:               SELECT 1
12734 @ 115836:               PUSHI  #0x00000010
12735 @ 115841:               AND   
12736 @ 115842:               PUSHI  #0x00000000
12737 @ 115847:               JUMPIF = L_000b
12738 @ 115851:               PUSH   D
12739 @ 115854:               SELECT 1
12740 @ 115857:               PUSHI  #0x00000010
12741 @ 115862:               AND   
12742 @ 115863:               PUSHI  #0x00000000
12743 @ 115868:               JUMPIF = L_000a
12744 @ 115872:               LOCATE L_000b

  2590          item = 0;  d_flags = d_flags+alt
12745 @ 115875:               LINE   2590 "regression-compile-tmp/chimp.imp"
12746 @ 115911:               PUSH   ITEM
12747 @ 115914:               PUSHI  #0x00000000
12748 @ 115919:               ASSVAL
12749 @ 115920:               LINE   2590 "regression-compile-tmp/chimp.imp"
12750 @ 115956:               PUSH   D
12751 @ 115959:               SELECT 1
12752 @ 115962:               PUSH   D
12753 @ 115965:               SELECT 1
12754 @ 115968:               PUSHI  #0x00000800
12755 @ 115973:               ADD   
12756 @ 115974:               ASSVAL

  2591          declare
12757 @ 115975:               LINE   2591 "regression-compile-tmp/chimp.imp"
12758 @ 116011:               PUSH   DECLARE
12759 @ 116014:               CALL  

  2592        %finish
12760 @ 116015:               LINE   2592 "regression-compile-tmp/chimp.imp"
12761 @ 116051:               LOCATE L_000a

  2593      %finish %else declare
12762 @ 116054:               LINE   2593 "regression-compile-tmp/chimp.imp"
12763 @ 116090:               GOTO   L_0006
12764 @ 116093:               LOCATE L_0007
12765 @ 116096:               PUSH   DECLARE
12766 @ 116099:               CALL  
12767 @ 116100:               LOCATE L_0006

  2594      get LITSTRING %if d_flags&ext # 0 %and a(alias)
12768 @ 116103:               LINE   2594 "regression-compile-tmp/chimp.imp"
12769 @ 116139:               PUSH   D
12770 @ 116142:               SELECT 1
12771 @ 116145:               PUSHI  #0x00000020
12772 @ 116150:               AND   
12773 @ 116151:               PUSHI  #0x00000000
12774 @ 116156:               JUMPIF = L_0007
12775 @ 116160:               PUSH   A
12776 @ 116163:               PUSHI  #0x0000002e
12777 @ 116168:               ASSPAR
12778 @ 116169:               CALL  
12779 @ 116170:               bf     L_0007
12780 @ 116173:               PUSH   GETLITSTRING
12781 @ 116176:               CALL  
12782 @ 116177:               LOCATE L_0007

  2595      %if d_flags&spec # 0 %start
12783 @ 116180:               LINE   2595 "regression-compile-tmp/chimp.imp"
12784 @ 116216:               PUSH   D
12785 @ 116219:               SELECT 1
12786 @ 116222:               PUSHI  #0x00000010
12787 @ 116227:               AND   
12788 @ 116228:               PUSHI  #0x00000000
12789 @ 116233:               JUMPIF = L_0007

  2596        speccing = 1
12790 @ 116237:               LINE   2596 "regression-compile-tmp/chimp.imp"
12791 @ 116273:               PUSH   SPECCING
12792 @ 116276:               PUSHI  #0x00000001
12793 @ 116281:               ASSVAL

  2597        get PARMDEF
12794 @ 116282:               LINE   2597 "regression-compile-tmp/chimp.imp"
12795 @ 116318:               PUSH   GETPARMDEF
12796 @ 116321:               CALL  

  2598      %finish %else %start
12797 @ 116322:               LINE   2598 "regression-compile-tmp/chimp.imp"
12798 @ 116358:               GOTO   L_0006
12799 @ 116361:               LOCATE L_0007

  2599        open block(item)
12800 @ 116364:               LINE   2599 "regression-compile-tmp/chimp.imp"
12801 @ 116400:               PUSH   OPENBLOCK
12802 @ 116403:               PUSH   ITEM
12803 @ 116406:               ASSPAR
12804 @ 116407:               CALL  

  2600        get PARMDEF
12805 @ 116408:               LINE   2600 "regression-compile-tmp/chimp.imp"
12806 @ 116444:               PUSH   GETPARMDEF
12807 @ 116447:               CALL  

  2601        c_parlim = dlim
12808 @ 116448:               LINE   2601 "regression-compile-tmp/chimp.imp"
12809 @ 116484:               PUSH   C
12810 @ 116487:               SELECT 7
12811 @ 116490:               PUSH   DLIM
12812 @ 116493:               ASSVAL

  2602        compile entry
12813 @ 116494:               LINE   2602 "regression-compile-tmp/chimp.imp"
12814 @ 116530:               PUSH   COMPILEENTRY
12815 @ 116533:               CALL  

  2603        get(terminator)
12816 @ 116534:               LINE   2603 "regression-compile-tmp/chimp.imp"
12817 @ 116570:               PUSH   GET
12818 @ 116573:               PUSHI  #0x00000034
12819 @ 116578:               ASSPAR
12820 @ 116579:               CALL  

  2604        get STATEMENTS(end)
  2605  !      %if c_access > 0 %start
  2606  !        report(noresult,0) %if c_type > nulltype;  !fn/map/pred
  2607  !      %finish
12821 @ 116580:               LINE   2604 "regression-compile-tmp/chimp.imp"
12822 @ 116616:               PUSH   GETSTATEMENTS
12823 @ 116619:               PUSHI  #0x00000001
12824 @ 116624:               ASSPAR
12825 @ 116625:               CALL  

  2608        close block
12826 @ 116626:               LINE   2608 "regression-compile-tmp/chimp.imp"
12827 @ 116662:               PUSH   CLOSEBLOCK
12828 @ 116665:               CALL  

  2609      %finish
12829 @ 116666:               LINE   2609 "regression-compile-tmp/chimp.imp"
12830 @ 116702:               LOCATE L_0006

  2610    %else %if d_flags = typeid {dealt with}
12831 @ 116705:               LINE   2610 "regression-compile-tmp/chimp.imp"
12832 @ 116741:               GOTO   L_0003
12833 @ 116744:               LOCATE L_0004
12834 @ 116747:               PUSH   D
12835 @ 116750:               SELECT 1
12836 @ 116753:               PUSHI  #0x00000100
12837 @ 116758:               JUMPIF # L_0004

  2611    %else %if d_flags&parm # 0;  !array
12838 @ 116762:               LINE   2611 "regression-compile-tmp/chimp.imp"
12839 @ 116798:               GOTO   L_0003
12840 @ 116801:               LOCATE L_0004
12841 @ 116804:               PUSH   D
12842 @ 116807:               SELECT 1
12843 @ 116810:               PUSHI  #0x00000040
12844 @ 116815:               AND   
12845 @ 116816:               PUSHI  #0x00000000
12846 @ 116821:               JUMPIF = L_0004

  2612      d_flags = d_flags-parm
12847 @ 116825:               LINE   2612 "regression-compile-tmp/chimp.imp"
12848 @ 116861:               PUSH   D
12849 @ 116864:               SELECT 1
12850 @ 116867:               PUSH   D
12851 @ 116870:               SELECT 1
12852 @ 116873:               PUSHI  #0x00000040
12853 @ 116878:               SUB   
12854 @ 116879:               ASSVAL

  2613      %if d_flags&static # 0 %start
12855 @ 116880:               LINE   2613 "regression-compile-tmp/chimp.imp"
12856 @ 116916:               PUSH   D
12857 @ 116919:               SELECT 1
12858 @ 116922:               PUSHI  #0x00000008
12859 @ 116927:               AND   
12860 @ 116928:               PUSHI  #0x00000000
12861 @ 116933:               JUMPIF = L_0007

  2614        get OWN ARRAY DECLARATION
12862 @ 116937:               LINE   2614 "regression-compile-tmp/chimp.imp"
12863 @ 116973:               PUSH   GETOWNARRAYDECLARATION
12864 @ 116976:               CALL  

  2615      %finish %else %start
12865 @ 116977:               LINE   2615 "regression-compile-tmp/chimp.imp"
12866 @ 117013:               GOTO   L_0006
12867 @ 117016:               LOCATE L_0007

  2616        %if d_flags&static = 0 %and c_flags >= hadon %start
12868 @ 117019:               LINE   2616 "regression-compile-tmp/chimp.imp"
12869 @ 117055:               PUSH   D
12870 @ 117058:               SELECT 1
12871 @ 117061:               PUSHI  #0x00000008
12872 @ 117066:               AND   
12873 @ 117067:               PUSHI  #0x00000000
12874 @ 117072:               JUMPIF # L_000a
12875 @ 117076:               PUSH   C
12876 @ 117079:               SELECT 4
12877 @ 117082:               PUSHI  #0x00000010
12878 @ 117087:               JUMPIF < L_000a

  2617          fault(ordererr);  c_flags = c_flags&(\(hadon+hadinst))
12879 @ 117091:               LINE   2617 "regression-compile-tmp/chimp.imp"
12880 @ 117127:               PUSH   FAULT
12881 @ 117130:               PUSHI  #0x0000000a
12882 @ 117135:               ASSPAR
12883 @ 117136:               CALL  
12884 @ 117137:               LINE   2617 "regression-compile-tmp/chimp.imp"
12885 @ 117173:               PUSH   C
12886 @ 117176:               SELECT 4
12887 @ 117179:               PUSH   C
12888 @ 117182:               SELECT 4
12889 @ 117185:               PUSHI  #0x00000010
12890 @ 117190:               PUSHI  #0x00000020
12891 @ 117195:               ADD   
12892 @ 117196:               NOT   
12893 @ 117197:               AND   
12894 @ 117198:               ASSVAL

  2618        %finish
12895 @ 117199:               LINE   2618 "regression-compile-tmp/chimp.imp"
12896 @ 117235:               LOCATE L_000a

  2619        get ARRAY DECLARATION
12897 @ 117238:               LINE   2619 "regression-compile-tmp/chimp.imp"
12898 @ 117274:               PUSH   GETARRAYDECLARATION
12899 @ 117277:               CALL  

  2620      %finish
12900 @ 117278:               LINE   2620 "regression-compile-tmp/chimp.imp"
12901 @ 117314:               LOCATE L_0006

  2621    %else %if d_flags = static {const}
12902 @ 117317:               LINE   2621 "regression-compile-tmp/chimp.imp"
12903 @ 117353:               GOTO   L_0003
12904 @ 117356:               LOCATE L_0004
12905 @ 117359:               PUSH   D
12906 @ 117362:               SELECT 1
12907 @ 117365:               PUSHI  #0x00000008
12908 @ 117370:               JUMPIF # L_0004

  2622      d_type = dict(d_type&puretype)_type
12909 @ 117374:               LINE   2622 "regression-compile-tmp/chimp.imp"
12910 @ 117410:               PUSH   D
12911 @ 117413:               SELECT 2
12912 @ 117416:               PUSH   DICT
12913 @ 117419:               PUSH   D
12914 @ 117422:               SELECT 2
12915 @ 117425:               PUSHI  #0x00001fff
12916 @ 117430:               AND   
12917 @ 117431:               ACCESS
12918 @ 117432:               SELECT 2
12919 @ 117435:               ASSVAL

  2623      d_type = d_type+direct %if d_type = recy %or d_type = stringy
12920 @ 117436:               LINE   2623 "regression-compile-tmp/chimp.imp"
12921 @ 117472:               PUSH   D
12922 @ 117475:               SELECT 2
12923 @ 117478:               PUSHI  #0x000007fa
12924 @ 117483:               JUMPIF = L_0008
12925 @ 117487:               PUSH   D
12926 @ 117490:               SELECT 2
12927 @ 117493:               PUSHI  #0x000007fc
12928 @ 117498:               JUMPIF # L_0007
12929 @ 117502:               LOCATE L_0008
12930 @ 117505:               PUSH   D
12931 @ 117508:               SELECT 2
12932 @ 117511:               PUSH   D
12933 @ 117514:               SELECT 2
12934 @ 117517:               PUSHI  #0x00002000
12935 @ 117522:               ADD   
12936 @ 117523:               ASSVAL
12937 @ 117524:               LOCATE L_0007

  2624      %cycle
12938 @ 117527:               LINE   2624 "regression-compile-tmp/chimp.imp"
12939 @ 117563:               LOCATE L_0006

  2625        get IDENT
12940 @ 117566:               LINE   2625 "regression-compile-tmp/chimp.imp"
12941 @ 117602:               PUSH   GETIDENT
12942 @ 117605:               CALL  

  2626        syntax error %if %not a assop
12943 @ 117606:               LINE   2626 "regression-compile-tmp/chimp.imp"
12944 @ 117642:               PUSH   AASSOP
12945 @ 117645:               CALL  
12946 @ 117646:               bt     L_000a
12947 @ 117649:               PUSH   SYNTAXERROR
12948 @ 117652:               CALL  
12949 @ 117653:               LOCATE L_000a

  2627        get LITERAL(d_type)
12950 @ 117656:               LINE   2627 "regression-compile-tmp/chimp.imp"
12951 @ 117692:               PUSH   GETLITERAL
12952 @ 117695:               PUSH   D
12953 @ 117698:               SELECT 2
12954 @ 117701:               ASSPAR
12955 @ 117702:               CALL  

  2628        faultnum = rangerr+point+warn %if faultnum = rangerr+point
12956 @ 117703:               LINE   2628 "regression-compile-tmp/chimp.imp"
12957 @ 117739:               PUSH   FAULTNUM
12958 @ 117742:               PUSHI  #0x0000000c
12959 @ 117747:               PUSHI  #0x00000040
12960 @ 117752:               ADD   
12961 @ 117753:               JUMPIF # L_000a
12962 @ 117757:               PUSH   FAULTNUM
12963 @ 117760:               PUSHI  #0x0000000c
12964 @ 117765:               PUSHI  #0x00000040
12965 @ 117770:               ADD   
12966 @ 117771:               PUSHI  #0x00000080
12967 @ 117776:               ADD   
12968 @ 117777:               ASSVAL
12969 @ 117778:               LOCATE L_000a

  2629        dict(dlim-1)_val = t_val
12970 @ 117781:               LINE   2629 "regression-compile-tmp/chimp.imp"
12971 @ 117817:               PUSH   DICT
12972 @ 117820:               PUSH   DLIM
12973 @ 117823:               PUSHI  #0x00000001
12974 @ 117828:               SUB   
12975 @ 117829:               ACCESS
12976 @ 117830:               SELECT 7
12977 @ 117833:               PUSH   T
12978 @ 117836:               SELECT 7
12979 @ 117839:               ASSVAL

  2630      %repeat %until %not a(comma)
12980 @ 117840:               LINE   2630 "regression-compile-tmp/chimp.imp"
12981 @ 117876:               PUSH   A
12982 @ 117879:               PUSHI  #0x0000003b
12983 @ 117884:               ASSPAR
12984 @ 117885:               CALL  
12985 @ 117886:               bf     L_0007
12986 @ 117889:               REPEAT L_0006
12987 @ 117892:               LOCATE L_0007

  2631    %else %if d_flags&static # 0 {own}
  2632  !    constad == ownad;  constbound = finalbound
12988 @ 117895:               LINE   2631 "regression-compile-tmp/chimp.imp"
12989 @ 117931:               GOTO   L_0003
12990 @ 117934:               LOCATE L_0004
12991 @ 117937:               PUSH   D
12992 @ 117940:               SELECT 1
12993 @ 117943:               PUSHI  #0x00000008
12994 @ 117948:               AND   
12995 @ 117949:               PUSHI  #0x00000000
12996 @ 117954:               JUMPIF = L_0004

  2633      declmode = declmode+ownmode
12997 @ 117958:               LINE   2633 "regression-compile-tmp/chimp.imp"
12998 @ 117994:               PUSH   DECLMODE
12999 @ 117997:               PUSH   DECLMODE
13000 @ 118000:               PUSHI  #0x0000002e
13001 @ 118005:               ADD   
13002 @ 118006:               ASSVAL

  2634      %cycle
  2635  !      constad = constad+1 %if constad&1 # 0 %and dsize # 1
  2636  !      t_val = constad-ownbase
13003 @ 118007:               LINE   2634 "regression-compile-tmp/chimp.imp"
13004 @ 118043:               LOCATE L_0006

  2637        get IDENT
13005 @ 118046:               LINE   2637 "regression-compile-tmp/chimp.imp"
13006 @ 118082:               PUSH   GETIDENT
13007 @ 118085:               CALL  

  2638        t_val = 0
13008 @ 118086:               LINE   2638 "regression-compile-tmp/chimp.imp"
13009 @ 118122:               PUSH   T
13010 @ 118125:               SELECT 7
13011 @ 118128:               PUSHI  #0x00000000
13012 @ 118133:               ASSVAL

  2639        %if a assop %start
  2640  !        %if d_flags&direct = 0
13013 @ 118134:               LINE   2639 "regression-compile-tmp/chimp.imp"
13014 @ 118170:               PUSH   AASSOP
13015 @ 118173:               CALL  
13016 @ 118174:               bf     L_000a

  2641          get LITERAL(d_type)
13017 @ 118177:               LINE   2641 "regression-compile-tmp/chimp.imp"
13018 @ 118213:               PUSH   GETLITERAL
13019 @ 118216:               PUSH   D
13020 @ 118219:               SELECT 2
13021 @ 118222:               ASSPAR
13022 @ 118223:               CALL  

  2642          faultnum = rangerr+point+warn %if faultnum = rangerr+point
13023 @ 118224:               LINE   2642 "regression-compile-tmp/chimp.imp"
13024 @ 118260:               PUSH   FAULTNUM
13025 @ 118263:               PUSHI  #0x0000000c
13026 @ 118268:               PUSHI  #0x00000040
13027 @ 118273:               ADD   
13028 @ 118274:               JUMPIF # L_000d
13029 @ 118278:               PUSH   FAULTNUM
13030 @ 118281:               PUSHI  #0x0000000c
13031 @ 118286:               PUSHI  #0x00000040
13032 @ 118291:               ADD   
13033 @ 118292:               PUSHI  #0x00000080
13034 @ 118297:               ADD   
13035 @ 118298:               ASSVAL
13036 @ 118299:               LOCATE L_000d

  2643        %finish
13037 @ 118302:               LINE   2643 "regression-compile-tmp/chimp.imp"
13038 @ 118338:               LOCATE L_000a

  2644        elements = 1
  2645      !      plant const(t_val,1)
13039 @ 118341:               LINE   2644 "regression-compile-tmp/chimp.imp"
13040 @ 118377:               PUSH   ELEMENTS
13041 @ 118380:               PUSHI  #0x00000001
13042 @ 118385:               ASSVAL

  2646      %repeat %until %not a(comma)
13043 @ 118386:               LINE   2646 "regression-compile-tmp/chimp.imp"
13044 @ 118422:               PUSH   A
13045 @ 118425:               PUSHI  #0x0000003b
13046 @ 118430:               ASSPAR
13047 @ 118431:               CALL  
13048 @ 118432:               bf     L_0007
13049 @ 118435:               REPEAT L_0006
13050 @ 118438:               LOCATE L_0007

  2647    %else;      !dynamic variable
  2648  !    declmode = declmode+dispmode+level
13051 @ 118441:               LINE   2647 "regression-compile-tmp/chimp.imp"
13052 @ 118477:               GOTO   L_0003
13053 @ 118480:               LOCATE L_0004

  2649      %if d_flags&static = 0 %and c_flags >= hadon %start
13054 @ 118483:               LINE   2649 "regression-compile-tmp/chimp.imp"
13055 @ 118519:               PUSH   D
13056 @ 118522:               SELECT 1
13057 @ 118525:               PUSHI  #0x00000008
13058 @ 118530:               AND   
13059 @ 118531:               PUSHI  #0x00000000
13060 @ 118536:               JUMPIF # L_0007
13061 @ 118540:               PUSH   C
13062 @ 118543:               SELECT 4
13063 @ 118546:               PUSHI  #0x00000010
13064 @ 118551:               JUMPIF < L_0007

  2650        fault(ordererr);  c_flags = c_flags&(\(hadon+hadinst))
13065 @ 118555:               LINE   2650 "regression-compile-tmp/chimp.imp"
13066 @ 118591:               PUSH   FAULT
13067 @ 118594:               PUSHI  #0x0000000a
13068 @ 118599:               ASSPAR
13069 @ 118600:               CALL  
13070 @ 118601:               LINE   2650 "regression-compile-tmp/chimp.imp"
13071 @ 118637:               PUSH   C
13072 @ 118640:               SELECT 4
13073 @ 118643:               PUSH   C
13074 @ 118646:               SELECT 4
13075 @ 118649:               PUSHI  #0x00000010
13076 @ 118654:               PUSHI  #0x00000020
13077 @ 118659:               ADD   
13078 @ 118660:               NOT   
13079 @ 118661:               AND   
13080 @ 118662:               ASSVAL

  2651      %finish
13081 @ 118663:               LINE   2651 "regression-compile-tmp/chimp.imp"
13082 @ 118699:               LOCATE L_0007

  2652      %cycle
  2653  !problematic c_delta = c_delta-1 %if c_delta&1 # 0 %and dsize # 1
13083 @ 118702:               LINE   2652 "regression-compile-tmp/chimp.imp"
13084 @ 118738:               LOCATE L_0006

  2654        c_delta = c_delta-dsize
13085 @ 118741:               LINE   2654 "regression-compile-tmp/chimp.imp"
13086 @ 118777:               PUSH   C
13087 @ 118780:               SELECT 2
13088 @ 118783:               PUSH   C
13089 @ 118786:               SELECT 2
13090 @ 118789:               PUSH   DSIZE
13091 @ 118792:               SUB   
13092 @ 118793:               ASSVAL

  2655        c_delta = c_delta-1 %if c_delta&1 # 0
13093 @ 118794:               LINE   2655 "regression-compile-tmp/chimp.imp"
13094 @ 118830:               PUSH   C
13095 @ 118833:               SELECT 2
13096 @ 118836:               PUSHI  #0x00000001
13097 @ 118841:               AND   
13098 @ 118842:               PUSHI  #0x00000000
13099 @ 118847:               JUMPIF = L_000a
13100 @ 118851:               PUSH   C
13101 @ 118854:               SELECT 2
13102 @ 118857:               PUSH   C
13103 @ 118860:               SELECT 2
13104 @ 118863:               PUSHI  #0x00000001
13105 @ 118868:               SUB   
13106 @ 118869:               ASSVAL
13107 @ 118870:               LOCATE L_000a

  2656        t_val = c_sp+c_delta
13108 @ 118873:               LINE   2656 "regression-compile-tmp/chimp.imp"
13109 @ 118909:               PUSH   T
13110 @ 118912:               SELECT 7
13111 @ 118915:               PUSH   C
13112 @ 118918:               SELECT 1
13113 @ 118921:               PUSH   C
13114 @ 118924:               SELECT 2
13115 @ 118927:               ADD   
13116 @ 118928:               ASSVAL

  2657        get IDENT
13117 @ 118929:               LINE   2657 "regression-compile-tmp/chimp.imp"
13118 @ 118965:               PUSH   GETIDENT
13119 @ 118968:               CALL  

  2658        %if a assop %start
13120 @ 118969:               LINE   2658 "regression-compile-tmp/chimp.imp"
13121 @ 119005:               PUSH   AASSOP
13122 @ 119008:               CALL  
13123 @ 119009:               bf     L_000a

  2659          nonstandard(initass)
13124 @ 119012:               LINE   2659 "regression-compile-tmp/chimp.imp"
13125 @ 119048:               PUSH   NONSTANDARD
13126 @ 119051:               PUSHI  #0x00000040
13127 @ 119056:               ASSPAR
13128 @ 119057:               CALL  

  2660          %if d_type >= indirect %start
13129 @ 119058:               LINE   2660 "regression-compile-tmp/chimp.imp"
13130 @ 119094:               PUSH   D
13131 @ 119097:               SELECT 2
13132 @ 119100:               PUSHI  #0x00004000
13133 @ 119105:               JUMPIF < L_000d

  2661            fault(caterr+point) %if atom # eqeq
13134 @ 119109:               LINE   2661 "regression-compile-tmp/chimp.imp"
13135 @ 119145:               PUSH   ATOM
13136 @ 119148:               PUSHI  #0x0000004c
13137 @ 119153:               JUMPIF = L_0010
13138 @ 119157:               PUSH   FAULT
13139 @ 119160:               PUSHI  #0x00000003
13140 @ 119165:               PUSHI  #0x00000040
13141 @ 119170:               ADD   
13142 @ 119171:               ASSPAR
13143 @ 119172:               CALL  
13144 @ 119173:               LOCATE L_0010

  2662            get REFERENCE(d_type)
13145 @ 119176:               LINE   2662 "regression-compile-tmp/chimp.imp"
13146 @ 119212:               PUSH   GETREFERENCE
13147 @ 119215:               PUSH   D
13148 @ 119218:               SELECT 2
13149 @ 119221:               ASSPAR
13150 @ 119222:               CALL  

  2663            item = item+ad %if item # 0
  2664  !          put3(assign,dlim-1+ad,item)
13151 @ 119223:               LINE   2663 "regression-compile-tmp/chimp.imp"
13152 @ 119259:               PUSH   ITEM
13153 @ 119262:               PUSHI  #0x00000000
13154 @ 119267:               JUMPIF = L_0010
13155 @ 119271:               PUSH   ITEM
13156 @ 119274:               PUSH   ITEM
13157 @ 119277:               PUSHI  #0x00004000
13158 @ 119282:               ADD   
13159 @ 119283:               ASSVAL
13160 @ 119284:               LOCATE L_0010

  2665          %finish %else %start
13161 @ 119287:               LINE   2665 "regression-compile-tmp/chimp.imp"
13162 @ 119323:               GOTO   L_000c
13163 @ 119326:               LOCATE L_000d

  2666            fault(caterr+point) %if atom = eqeq
13164 @ 119329:               LINE   2666 "regression-compile-tmp/chimp.imp"
13165 @ 119365:               PUSH   ATOM
13166 @ 119368:               PUSHI  #0x0000004c
13167 @ 119373:               JUMPIF # L_0010
13168 @ 119377:               PUSH   FAULT
13169 @ 119380:               PUSHI  #0x00000003
13170 @ 119385:               PUSHI  #0x00000040
13171 @ 119390:               ADD   
13172 @ 119391:               ASSPAR
13173 @ 119392:               CALL  
13174 @ 119393:               LOCATE L_0010

  2667            get VALUE(d_type)
  2668  !          put2(assign,dlim-1)
13175 @ 119396:               LINE   2667 "regression-compile-tmp/chimp.imp"
13176 @ 119432:               PUSH   GETVALUE
13177 @ 119435:               PUSH   D
13178 @ 119438:               SELECT 2
13179 @ 119441:               ASSPAR
13180 @ 119442:               CALL  

  2669          %finish
  2670  !        compile(np0,np0)
13181 @ 119443:               LINE   2669 "regression-compile-tmp/chimp.imp"
13182 @ 119479:               LOCATE L_000c

  2671        %finish
13183 @ 119482:               LINE   2671 "regression-compile-tmp/chimp.imp"
13184 @ 119518:               LOCATE L_000a

  2672      %repeat %until %not a(comma)
13185 @ 119521:               LINE   2672 "regression-compile-tmp/chimp.imp"
13186 @ 119557:               PUSH   A
13187 @ 119560:               PUSHI  #0x0000003b
13188 @ 119565:               ASSPAR
13189 @ 119566:               CALL  
13190 @ 119567:               bf     L_0007
13191 @ 119570:               REPEAT L_0006
13192 @ 119573:               LOCATE L_0007

  2673    %finish
13193 @ 119576:               LINE   2673 "regression-compile-tmp/chimp.imp"
13194 @ 119612:               LOCATE L_0003

  2674    -> term
  2675  
13195 @ 119615:               LINE   2674 "regression-compile-tmp/chimp.imp"
13196 @ 119651:               JUMP   L_0117

  2676  %routine GET SWITCH DECLARATION
13197 @ 119654:               LINE   2676 "regression-compile-tmp/chimp.imp"
13198 @ 119690:               DEF    GETSWITCHDECLARATION (_ECCECI_GETSTATEMENTS_GETSWITCHDECLARATION) p1=V_0124 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
13199 @ 119722:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
13200 @ 119723:                  FINISH ) {lev=3}

  2677  %integer i,j,dlim1
13201 @ 119724:                  LINE   2677 "regression-compile-tmp/chimp.imp"
13202 @ 119760:                  DEF    I p1=V_0125 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
13203 @ 119773:                  DEF    J p1=V_0126 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
13204 @ 119786:                  DEF    DLIM1 p1=V_0127 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  2678    matched = 1
13205 @ 119803:                  LINE   2678 "regression-compile-tmp/chimp.imp"
13206 @ 119839:                  PUSH   MATCHED
13207 @ 119842:                  PUSHI  #0x00000001
13208 @ 119847:                  ASSVAL

  2679    %cycle
13209 @ 119848:                  LINE   2679 "regression-compile-tmp/chimp.imp"
13210 @ 119884:                  LOCATE L_0003

  2680      d_flags = lab;  d_type = nulltype
13211 @ 119887:                  LINE   2680 "regression-compile-tmp/chimp.imp"
13212 @ 119923:                  PUSH   D
13213 @ 119926:                  SELECT 1
13214 @ 119929:                  PUSHI  #0x00000002
13215 @ 119934:                  ASSVAL
13216 @ 119935:                  LINE   2680 "regression-compile-tmp/chimp.imp"
13217 @ 119971:                  PUSH   D
13218 @ 119974:                  SELECT 2
13219 @ 119977:                  PUSHI  #0x000007f9
13220 @ 119982:                  ASSVAL

  2681      declmode = pcmode+wordsize<<sizeshift
13221 @ 119983:                  LINE   2681 "regression-compile-tmp/chimp.imp"
13222 @ 120019:                  PUSH   DECLMODE
13223 @ 120022:                  PUSHI  #0x0000003a
13224 @ 120027:                  PUSHI  #0x00000002
13225 @ 120032:                  PUSHI  #0x00000006
13226 @ 120037:                  LSH   
13227 @ 120038:                  ADD   
13228 @ 120039:                  ASSVAL

  2682      get IDENTLIST
13229 @ 120040:                  LINE   2682 "regression-compile-tmp/chimp.imp"
13230 @ 120076:                  PUSH   GETIDENTLIST
13231 @ 120079:                  CALL  

  2683      dlim1 = dlim
13232 @ 120080:                  LINE   2683 "regression-compile-tmp/chimp.imp"
13233 @ 120116:                  PUSH   DLIM1
13234 @ 120119:                  PUSH   DLIM
13235 @ 120122:                  ASSVAL

  2684      get LITBOUNDS
13236 @ 120123:                  LINE   2684 "regression-compile-tmp/chimp.imp"
13237 @ 120159:                  PUSH   GETLITBOUNDS
13238 @ 120162:                  CALL  

  2685      %cycle;  !For each ident in group
13239 @ 120163:                  LINE   2685 "regression-compile-tmp/chimp.imp"
13240 @ 120199:                  LOCATE L_0006

  2686        %exit %if spc-elements <= 0;  !ignore if too many
13241 @ 120202:                  LINE   2686 "regression-compile-tmp/chimp.imp"
13242 @ 120238:                  PUSH   SPC
13243 @ 120241:                  PUSH   ELEMENTS
13244 @ 120244:                  SUB   
13245 @ 120245:                  PUSHI  #0x00000000
13246 @ 120250:                  JUMPIF > L_000a
13247 @ 120254:                  GOTO   L_0007
13248 @ 120257:                  LOCATE L_000a

  2687        %for i = 1,1,elements %cycle
13249 @ 120260:                  LINE   2687 "regression-compile-tmp/chimp.imp"
13250 @ 120296:                  PUSH   I
13251 @ 120299:                  PUSHI  #0x00000001
13252 @ 120304:                  PUSH   ELEMENTS
13253 @ 120307:                  PUSHI  #0x00000001
13254 @ 120312:                  FOR    L_0009

  2688          spc = spc-1;  final(spc) = 0
13255 @ 120315:                  LINE   2688 "regression-compile-tmp/chimp.imp"
13256 @ 120351:                  PUSH   SPC
13257 @ 120354:                  PUSH   SPC
13258 @ 120357:                  PUSHI  #0x00000001
13259 @ 120362:                  SUB   
13260 @ 120363:                  ASSVAL
13261 @ 120364:                  LINE   2688 "regression-compile-tmp/chimp.imp"
13262 @ 120400:                  PUSH   FINAL
13263 @ 120403:                  PUSH   SPC
13264 @ 120406:                  ACCESS
13265 @ 120407:                  PUSHI  #0x00000000
13266 @ 120412:                  ASSVAL

  2689        %repeat
13267 @ 120413:                  LINE   2689 "regression-compile-tmp/chimp.imp"
13268 @ 120449:                  REPEAT L_0009
13269 @ 120452:                  LOCATE L_000a

  2690        dict(dlim0)_val = spc
13270 @ 120455:                  LINE   2690 "regression-compile-tmp/chimp.imp"
13271 @ 120491:                  PUSH   DICT
13272 @ 120494:                  PUSH   DLIM0
13273 @ 120497:                  ACCESS
13274 @ 120498:                  SELECT 7
13275 @ 120501:                  PUSH   SPC
13276 @ 120504:                  ASSVAL

  2691        dict(dlim0)_type = item
13277 @ 120505:                  LINE   2691 "regression-compile-tmp/chimp.imp"
13278 @ 120541:                  PUSH   DICT
13279 @ 120544:                  PUSH   DLIM0
13280 @ 120547:                  ACCESS
13281 @ 120548:                  SELECT 2
13282 @ 120551:                  PUSH   ITEM
13283 @ 120554:                  ASSVAL

  2692        dlim0 = dlim0+1
13284 @ 120555:                  LINE   2692 "regression-compile-tmp/chimp.imp"
13285 @ 120591:                  PUSH   DLIM0
13286 @ 120594:                  PUSH   DLIM0
13287 @ 120597:                  PUSHI  #0x00000001
13288 @ 120602:                  ADD   
13289 @ 120603:                  ASSVAL

  2693      %repeat %until dlim0 = dlim1
13290 @ 120604:                  LINE   2693 "regression-compile-tmp/chimp.imp"
13291 @ 120640:                  PUSH   DLIM0
13292 @ 120643:                  PUSH   DLIM1
13293 @ 120646:                  JUMPIF = L_0007
13294 @ 120650:                  REPEAT L_0006
13295 @ 120653:                  LOCATE L_0007

  2694    %repeat %until %not a(comma)
13296 @ 120656:                  LINE   2694 "regression-compile-tmp/chimp.imp"
13297 @ 120692:                  PUSH   A
13298 @ 120695:                  PUSHI  #0x0000003b
13299 @ 120700:                  ASSPAR
13300 @ 120701:                  CALL  
13301 @ 120702:                  bf     L_0004
13302 @ 120705:                  REPEAT L_0003
13303 @ 120708:                  LOCATE L_0004

  2695  %end
13304 @ 120711:                  LINE   2695 "regression-compile-tmp/chimp.imp"
13305 @ 120747:               END    _ECCECI_GETSTATEMENTS_GETSWITCHDECLARATION {lev=3 --> 2}

  2696  initial(keyswitch):
13306 @ 120748:               LINE   2696 "regression-compile-tmp/chimp.imp"
13307 @ 120784:               PUSHI  #0x00000025
13308 @ 120789:               SLABEL 272

  2697    get SWITCH DECLARATION
13309 @ 120792:               LINE   2697 "regression-compile-tmp/chimp.imp"
13310 @ 120828:               PUSH   GETSWITCHDECLARATION
13311 @ 120831:               CALL  

  2698    ->term
  2699  
  2700  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  2701  !!!!!!!!!!!!!!!  Control statements  !!!!!!!!!!!!!!!!!!!!!!!!!!!
  2702  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  2703  !
13312 @ 120832:               LINE   2698 "regression-compile-tmp/chimp.imp"
13313 @ 120868:               JUMP   L_0117

  2704  initial(keycontrol):
13314 @ 120871:               LINE   2704 "regression-compile-tmp/chimp.imp"
13315 @ 120907:               PUSHI  #0x0000002a
13316 @ 120912:               SLABEL 272

  2705    get LITINT
13317 @ 120915:               LINE   2705 "regression-compile-tmp/chimp.imp"
13318 @ 120951:               PUSH   GETLITINT
13319 @ 120954:               CALL  

  2706    control = 0 %if t_val = 0
13320 @ 120955:               LINE   2706 "regression-compile-tmp/chimp.imp"
13321 @ 120991:               PUSH   T
13322 @ 120994:               SELECT 7
13323 @ 120997:               PUSHI  #0x00000000
13324 @ 121002:               JUMPIF # L_0004
13325 @ 121006:               PUSH   CONTROL
13326 @ 121009:               PUSHI  #0x00000000
13327 @ 121014:               ASSVAL
13328 @ 121015:               LOCATE L_0004

  2707    control = control!!t_val
13329 @ 121018:               LINE   2707 "regression-compile-tmp/chimp.imp"
13330 @ 121054:               PUSH   CONTROL
13331 @ 121057:               PUSH   CONTROL
13332 @ 121060:               PUSH   T
13333 @ 121063:               SELECT 7
13334 @ 121066:               XOR   
13335 @ 121067:               ASSVAL

  2708    ->term
  2709  
13336 @ 121068:               LINE   2708 "regression-compile-tmp/chimp.imp"
13337 @ 121104:               JUMP   L_0117

  2710  initial(include):
13338 @ 121107:               LINE   2710 "regression-compile-tmp/chimp.imp"
13339 @ 121143:               PUSHI  #0x0000002d
13340 @ 121148:               SLABEL 272

  2711    get LITSTRING
13341 @ 121151:               LINE   2711 "regression-compile-tmp/chimp.imp"
13342 @ 121187:               PUSH   GETLITSTRING
13343 @ 121190:               CALL  

  2712    extra_name = ""
13344 @ 121191:               LINE   2712 "regression-compile-tmp/chimp.imp"
13345 @ 121227:               PUSH   EXTRA
13346 @ 121230:               SELECT 19
13347 @ 121233:               PUSHS  ""
13348 @ 121235:               ASSVAL

  2713    %while t_val > 0 %cycle
13349 @ 121236:               LINE   2713 "regression-compile-tmp/chimp.imp"
13350 @ 121272:               LOCATE L_0003
13351 @ 121275:               PUSH   T
13352 @ 121278:               SELECT 7
13353 @ 121281:               PUSHI  #0x00000000
13354 @ 121286:               JUMPIF <= L_0004

  2714      extra_name = extra_name.tostring(byteinteger(atomp))
13355 @ 121290:               LINE   2714 "regression-compile-tmp/chimp.imp"
13356 @ 121326:               PUSH   EXTRA
13357 @ 121329:               SELECT 19
13358 @ 121332:               PUSH   EXTRA
13359 @ 121335:               SELECT 19
13360 @ 121338:               PUSH   TOSTRING
13361 @ 121341:               PUSH   BYTEINTEGER
13362 @ 121344:               PUSH   ATOMP
13363 @ 121347:               ASSPAR
13364 @ 121348:               CALL  
13365 @ 121349:               ASSPAR
13366 @ 121350:               CALL  
13367 @ 121351:               CONCAT
13368 @ 121352:               ASSVAL

  2715      atomp = atomp+1;  t_val = t_val-1
13369 @ 121353:               LINE   2715 "regression-compile-tmp/chimp.imp"
13370 @ 121389:               PUSH   ATOMP
13371 @ 121392:               PUSH   ATOMP
13372 @ 121395:               PUSHI  #0x00000001
13373 @ 121400:               ADD   
13374 @ 121401:               ASSVAL
13375 @ 121402:               LINE   2715 "regression-compile-tmp/chimp.imp"
13376 @ 121438:               PUSH   T
13377 @ 121441:               SELECT 7
13378 @ 121444:               PUSH   T
13379 @ 121447:               SELECT 7
13380 @ 121450:               PUSHI  #0x00000001
13381 @ 121455:               SUB   
13382 @ 121456:               ASSVAL

  2716    %repeat
13383 @ 121457:               LINE   2716 "regression-compile-tmp/chimp.imp"
13384 @ 121493:               REPEAT L_0003
13385 @ 121496:               LOCATE L_0004

  2717    get(terminator)
13386 @ 121499:               LINE   2717 "regression-compile-tmp/chimp.imp"
13387 @ 121535:               PUSH   GET
13388 @ 121538:               PUSHI  #0x00000034
13389 @ 121543:               ASSPAR
13390 @ 121544:               CALL  

  2718    %if faultnum = 0 %start
13391 @ 121545:               LINE   2718 "regression-compile-tmp/chimp.imp"
13392 @ 121581:               PUSH   FAULTNUM
13393 @ 121584:               PUSHI  #0x00000000
13394 @ 121589:               JUMPIF # L_0004

  2719      connect edfile(extra)
13395 @ 121593:               LINE   2719 "regression-compile-tmp/chimp.imp"
13396 @ 121629:               PUSH   CONNECTEDFILE
13397 @ 121632:               PUSH   EXTRA
13398 @ 121635:               ASSPAR
13399 @ 121636:               CALL  

  2720      nonstop = -999 %and %signal 12 %if extra_flag # 0
13400 @ 121637:               LINE   2720 "regression-compile-tmp/chimp.imp"
13401 @ 121673:               PUSH   EXTRA
13402 @ 121676:               SELECT 9
13403 @ 121679:               PUSHI  #0x00000000
13404 @ 121684:               JUMPIF = L_0007
13405 @ 121688:               PUSH   NONSTOP
13406 @ 121691:               PUSHI  #0x000003e7
13407 @ 121696:               NEGATE
13408 @ 121697:               ASSVAL
13409 @ 121698:               EVENT  000c
13410 @ 121701:               LOCATE L_0007

  2721      mainfp = fp;  mainline = line
13411 @ 121704:               LINE   2721 "regression-compile-tmp/chimp.imp"
13412 @ 121740:               PUSH   MAINFP
13413 @ 121743:               PUSH   FP
13414 @ 121746:               ASSVAL
13415 @ 121747:               LINE   2721 "regression-compile-tmp/chimp.imp"
13416 @ 121783:               PUSH   MAINLINE
13417 @ 121786:               PUSH   LINE
13418 @ 121789:               ASSVAL

  2722      line = 0;  sym = nl
13419 @ 121790:               LINE   2722 "regression-compile-tmp/chimp.imp"
13420 @ 121826:               PUSH   LINE
13421 @ 121829:               PUSHI  #0x00000000
13422 @ 121834:               ASSVAL
13423 @ 121835:               LINE   2722 "regression-compile-tmp/chimp.imp"
13424 @ 121871:               PUSH   SYM
13425 @ 121874:               PUSHI  #0x0000000a
13426 @ 121879:               ASSVAL

  2723      fp = extra_start2;  curstart = fp;  curlim = extra_lim2
13427 @ 121880:               LINE   2723 "regression-compile-tmp/chimp.imp"
13428 @ 121916:               PUSH   FP
13429 @ 121919:               PUSH   EXTRA
13430 @ 121922:               SELECT 3
13431 @ 121925:               ASSVAL
13432 @ 121926:               LINE   2723 "regression-compile-tmp/chimp.imp"
13433 @ 121962:               PUSH   CURSTART
13434 @ 121965:               PUSH   FP
13435 @ 121968:               ASSVAL
13436 @ 121969:               LINE   2723 "regression-compile-tmp/chimp.imp"
13437 @ 122005:               PUSH   CURLIM
13438 @ 122008:               PUSH   EXTRA
13439 @ 122011:               SELECT 4
13440 @ 122014:               ASSVAL

  2724      modesym = '&';  nonstop = nonstop+1
13441 @ 122015:               LINE   2724 "regression-compile-tmp/chimp.imp"
13442 @ 122051:               PUSH   MODESYM
13443 @ 122054:               PUSHI  #0x00000026
13444 @ 122059:               ASSVAL
13445 @ 122060:               LINE   2724 "regression-compile-tmp/chimp.imp"
13446 @ 122096:               PUSH   NONSTOP
13447 @ 122099:               PUSH   NONSTOP
13448 @ 122102:               PUSHI  #0x00000001
13449 @ 122107:               ADD   
13450 @ 122108:               ASSVAL

  2725    %finish
13451 @ 122109:               LINE   2725 "regression-compile-tmp/chimp.imp"
13452 @ 122145:               LOCATE L_0004

  2726    ->next
  2727  
13453 @ 122148:               LINE   2726 "regression-compile-tmp/chimp.imp"
13454 @ 122184:               JUMP   L_0115

  2728  initial(keylist):
13455 @ 122187:               LINE   2728 "regression-compile-tmp/chimp.imp"
13456 @ 122223:               PUSHI  #0x00000029
13457 @ 122228:               SLABEL 272

  2729    ->term
  2730  
13458 @ 122231:               LINE   2729 "regression-compile-tmp/chimp.imp"
13459 @ 122267:               JUMP   L_0117

  2731  initial(begin):
13460 @ 122270:               LINE   2731 "regression-compile-tmp/chimp.imp"
13461 @ 122306:               PUSHI  #0x00000005
13462 @ 122311:               SLABEL 272

  2732    c_sp = -8
13463 @ 122314:               LINE   2732 "regression-compile-tmp/chimp.imp"
13464 @ 122350:               PUSH   C
13465 @ 122353:               SELECT 1
13466 @ 122356:               PUSHI  #0x00000008
13467 @ 122361:               NEGATE
13468 @ 122362:               ASSVAL

  2733    get(terminator)
13469 @ 122363:               LINE   2733 "regression-compile-tmp/chimp.imp"
13470 @ 122399:               PUSH   GET
13471 @ 122402:               PUSHI  #0x00000034
13472 @ 122407:               ASSPAR
13473 @ 122408:               CALL  

  2734    open block(0)
13474 @ 122409:               LINE   2734 "regression-compile-tmp/chimp.imp"
13475 @ 122445:               PUSH   OPENBLOCK
13476 @ 122448:               PUSHI  #0x00000000
13477 @ 122453:               ASSPAR
13478 @ 122454:               CALL  

  2735    get STATEMENTS(0)
13479 @ 122455:               LINE   2735 "regression-compile-tmp/chimp.imp"
13480 @ 122491:               PUSH   GETSTATEMENTS
13481 @ 122494:               PUSHI  #0x00000000
13482 @ 122499:               ASSPAR
13483 @ 122500:               CALL  

  2736    close block
13484 @ 122501:               LINE   2736 "regression-compile-tmp/chimp.imp"
13485 @ 122537:               PUSH   CLOSEBLOCK
13486 @ 122540:               CALL  

  2737    -> term %if stopper >= 0
13487 @ 122541:               LINE   2737 "regression-compile-tmp/chimp.imp"
13488 @ 122577:               PUSH   STOPPER
13489 @ 122580:               PUSHI  #0x00000000
13490 @ 122585:               JUMPIF < L_0004
13491 @ 122589:               JUMP   L_0117
13492 @ 122592:               LOCATE L_0004

  2738    %return
  2739  
13493 @ 122595:               LINE   2738 "regression-compile-tmp/chimp.imp"
13494 @ 122631:               RETURN

  2740  initial(end):
13495 @ 122632:               LINE   2740 "regression-compile-tmp/chimp.imp"
13496 @ 122668:               PUSHI  #0x00000001
13497 @ 122673:               SLABEL 272

  2741    %if %not a(of) %start
13498 @ 122676:               LINE   2741 "regression-compile-tmp/chimp.imp"
13499 @ 122712:               PUSH   A
13500 @ 122715:               PUSHI  #0x00000026
13501 @ 122720:               ASSPAR
13502 @ 122721:               CALL  
13503 @ 122722:               bt     L_0004

  2742      fault(nofinish) %if stopper = else %or stopper = finish
13504 @ 122725:               LINE   2742 "regression-compile-tmp/chimp.imp"
13505 @ 122761:               PUSH   STOPPER
13506 @ 122764:               PUSHI  #0x00000004
13507 @ 122769:               JUMPIF = L_0008
13508 @ 122773:               PUSH   STOPPER
13509 @ 122776:               PUSHI  #0x00000003
13510 @ 122781:               JUMPIF # L_0007
13511 @ 122785:               LOCATE L_0008
13512 @ 122788:               PUSH   FAULT
13513 @ 122791:               PUSHI  #0x0000002b
13514 @ 122796:               ASSPAR
13515 @ 122797:               CALL  
13516 @ 122798:               LOCATE L_0007

  2743      fault(norepeat) %if stopper = repeat
13517 @ 122801:               LINE   2743 "regression-compile-tmp/chimp.imp"
13518 @ 122837:               PUSH   STOPPER
13519 @ 122840:               PUSHI  #0x00000002
13520 @ 122845:               JUMPIF # L_0007
13521 @ 122849:               PUSH   FAULT
13522 @ 122852:               PUSHI  #0x0000002c
13523 @ 122857:               ASSPAR
13524 @ 122858:               CALL  
13525 @ 122859:               LOCATE L_0007

  2744      %return %if stopper >= 0
13526 @ 122862:               LINE   2744 "regression-compile-tmp/chimp.imp"
13527 @ 122898:               PUSH   STOPPER
13528 @ 122901:               PUSHI  #0x00000000
13529 @ 122906:               JUMPIF < L_0007
13530 @ 122910:               RETURN
13531 @ 122911:               LOCATE L_0007

  2745      fault(nobegin)
13532 @ 122914:               LINE   2745 "regression-compile-tmp/chimp.imp"
13533 @ 122950:               PUSH   FAULT
13534 @ 122953:               PUSHI  #0x00000029
13535 @ 122958:               ASSPAR
13536 @ 122959:               CALL  

  2746      ->term
13537 @ 122960:               LINE   2746 "regression-compile-tmp/chimp.imp"
13538 @ 122996:               JUMP   L_0117

  2747    %finish
13539 @ 122999:               LINE   2747 "regression-compile-tmp/chimp.imp"
13540 @ 123035:               LOCATE L_0004

  2748    %if a(keylist) %start
13541 @ 123038:               LINE   2748 "regression-compile-tmp/chimp.imp"
13542 @ 123074:               PUSH   A
13543 @ 123077:               PUSHI  #0x00000029
13544 @ 123082:               ASSPAR
13545 @ 123083:               CALL  
13546 @ 123084:               bf     L_0004

  2749      ->term
13547 @ 123087:               LINE   2749 "regression-compile-tmp/chimp.imp"
13548 @ 123123:               JUMP   L_0117

  2750    %finish
13549 @ 123126:               LINE   2750 "regression-compile-tmp/chimp.imp"
13550 @ 123162:               LOCATE L_0004

  2751    %if a(keyfile) %start
13551 @ 123165:               LINE   2751 "regression-compile-tmp/chimp.imp"
13552 @ 123201:               PUSH   A
13553 @ 123204:               PUSHI  #0x00000027
13554 @ 123209:               ASSPAR
13555 @ 123210:               CALL  
13556 @ 123211:               bf     L_0004

  2752      %if curlim = extra_lim2 %start
13557 @ 123214:               LINE   2752 "regression-compile-tmp/chimp.imp"
13558 @ 123250:               PUSH   CURLIM
13559 @ 123253:               PUSH   EXTRA
13560 @ 123256:               SELECT 4
13561 @ 123259:               JUMPIF # L_0007

  2753        switch input
13562 @ 123263:               LINE   2753 "regression-compile-tmp/chimp.imp"
13563 @ 123299:               PUSH   SWITCHINPUT
13564 @ 123302:               CALL  

  2754        ->next
13565 @ 123303:               LINE   2754 "regression-compile-tmp/chimp.imp"
13566 @ 123339:               JUMP   L_0115

  2755      %finish
13567 @ 123342:               LINE   2755 "regression-compile-tmp/chimp.imp"
13568 @ 123378:               LOCATE L_0007

  2756    %finish %else get(program)
13569 @ 123381:               LINE   2756 "regression-compile-tmp/chimp.imp"
13570 @ 123417:               GOTO   L_0003
13571 @ 123420:               LOCATE L_0004
13572 @ 123423:               PUSH   GET
13573 @ 123426:               PUSHI  #0x00000028
13574 @ 123431:               ASSPAR
13575 @ 123432:               CALL  
13576 @ 123433:               LOCATE L_0003

  2757  %end;  !GET STATEMENTS
  2758  
13577 @ 123436:               LINE   2757 "regression-compile-tmp/chimp.imp"
13578 @ 123472:            END    _ECCECI_GETSTATEMENTS {lev=2 --> 1}

  2759  %routine INIT(%integer t,l,h)
13579 @ 123473:            LINE   2759 "regression-compile-tmp/chimp.imp"
13580 @ 123509:            DEF    INIT (_ECCECI_INIT) p1=V_010d 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
13581 @ 123525:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
13582 @ 123526:                  DEF    T p1=V_010e a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
13583 @ 123539:                  DEF    L p1=V_010f a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
13584 @ 123552:                  DEF    H p1=V_0110 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
13585 @ 123565:               FINISH ) {lev=2}

  2760    d_flags = typeid;  d_type = t;  d_low = l;  d_val = h
13586 @ 123566:               LINE   2760 "regression-compile-tmp/chimp.imp"
13587 @ 123602:               PUSH   D
13588 @ 123605:               SELECT 1
13589 @ 123608:               PUSHI  #0x00000100
13590 @ 123613:               ASSVAL
13591 @ 123614:               LINE   2760 "regression-compile-tmp/chimp.imp"
13592 @ 123650:               PUSH   D
13593 @ 123653:               SELECT 2
13594 @ 123656:               PUSH   T
13595 @ 123659:               ASSVAL
13596 @ 123660:               LINE   2760 "regression-compile-tmp/chimp.imp"
13597 @ 123696:               PUSH   D
13598 @ 123699:               SELECT 6
13599 @ 123702:               PUSH   L
13600 @ 123705:               ASSVAL
13601 @ 123706:               LINE   2760 "regression-compile-tmp/chimp.imp"
13602 @ 123742:               PUSH   D
13603 @ 123745:               SELECT 7
13604 @ 123748:               PUSH   H
13605 @ 123751:               ASSVAL

  2761    dict(dlim) = d;  dlim = dlim+1
13606 @ 123752:               LINE   2761 "regression-compile-tmp/chimp.imp"
13607 @ 123788:               PUSH   DICT
13608 @ 123791:               PUSH   DLIM
13609 @ 123794:               ACCESS
13610 @ 123795:               PUSH   D
13611 @ 123798:               ASSVAL
13612 @ 123799:               LINE   2761 "regression-compile-tmp/chimp.imp"
13613 @ 123835:               PUSH   DLIM
13614 @ 123838:               PUSH   DLIM
13615 @ 123841:               PUSHI  #0x00000001
13616 @ 123846:               ADD   
13617 @ 123847:               ASSVAL

  2762  %end
  2763  
13618 @ 123848:               LINE   2762 "regression-compile-tmp/chimp.imp"
13619 @ 123884:            END    _ECCECI_INIT {lev=2 --> 1}

  2764  %on %event 12 %start
13620 @ 123885:            LINE   2764 "regression-compile-tmp/chimp.imp"
13621 @ 123921:            ON     MASK=1000 L_0004

  2765    -> printout %if fp = main_lim2
13622 @ 123927:            LINE   2765 "regression-compile-tmp/chimp.imp"
13623 @ 123963:            PUSH   FP
13624 @ 123966:            PUSH   MAIN
13625 @ 123969:            SELECT 4
13626 @ 123972:            JUMPIF # L_0007
13627 @ 123976:            JUMP   L_010e
13628 @ 123979:            LOCATE L_0007

  2766    -> ended %if main_flag < 0 %or nonstop = -999;  !abandon or CROAK
13629 @ 123982:            LINE   2766 "regression-compile-tmp/chimp.imp"
13630 @ 124018:            PUSH   MAIN
13631 @ 124021:            SELECT 9
13632 @ 124024:            PUSHI  #0x00000000
13633 @ 124029:            JUMPIF < L_0008
13634 @ 124033:            PUSH   NONSTOP
13635 @ 124036:            PUSHI  #0x000003e7
13636 @ 124041:            NEGATE
13637 @ 124042:            JUMPIF # L_0007
13638 @ 124046:            LOCATE L_0008
13639 @ 124049:            JUMP   L_010f
13640 @ 124052:            LOCATE L_0007

  2767    change = main_change
13641 @ 124055:            LINE   2767 "regression-compile-tmp/chimp.imp"
13642 @ 124091:            PUSH   CHANGE
13643 @ 124094:            PUSH   MAIN
13644 @ 124097:            SELECT 8
13645 @ 124100:            ASSVAL

  2768  %finish
  2769  
13646 @ 124101:            LINE   2768 "regression-compile-tmp/chimp.imp"
13647 @ 124137:            LOCATE L_0004

  2770    printstring("  IMP Checker  ");  newline
13648 @ 124140:            LINE   2770 "regression-compile-tmp/chimp.imp"
13649 @ 124176:            PUSH   PRINTSTRING
13650 @ 124179:            PUSHS  "  IMP Checker  "
13651 @ 124196:            ASSPAR
13652 @ 124197:            CALL  
13653 @ 124198:            LINE   2770 "regression-compile-tmp/chimp.imp"
13654 @ 124234:            PUSH   NEWLINE
13655 @ 124237:            CALL  

  2771    hashindex(i) = 0 %for i = 0,1,255;  !hash table empty
13656 @ 124238:            LINE   2771 "regression-compile-tmp/chimp.imp"
13657 @ 124274:            PUSH   I
13658 @ 124277:            PUSHI  #0x00000001
13659 @ 124282:            PUSHI  #0x000000ff
13660 @ 124287:            PUSHI  #0x00000000
13661 @ 124292:            FOR    L_0003
13662 @ 124295:            PUSH   HASHINDEX
13663 @ 124298:            PUSH   I
13664 @ 124301:            ACCESS
13665 @ 124302:            PUSHI  #0x00000000
13666 @ 124307:            ASSVAL
13667 @ 124308:            REPEAT L_0003
13668 @ 124311:            LOCATE L_0004

  2772    charbase = addr(char(0));  byteinteger(charbase) = 0;  !for anon ident
13669 @ 124314:            LINE   2772 "regression-compile-tmp/chimp.imp"
13670 @ 124350:            PUSH   CHARBASE
13671 @ 124353:            PUSH   ADDR
13672 @ 124356:            PUSH   CHAR
13673 @ 124359:            PUSHI  #0x00000000
13674 @ 124364:            ACCESS
13675 @ 124365:            ASSPAR
13676 @ 124366:            CALL  
13677 @ 124367:            ASSVAL
13678 @ 124368:            LINE   2772 "regression-compile-tmp/chimp.imp"
13679 @ 124404:            PUSH   BYTEINTEGER
13680 @ 124407:            PUSH   CHARBASE
13681 @ 124410:            ASSPAR
13682 @ 124411:            CALL  
13683 @ 124412:            PUSHI  #0x00000000
13684 @ 124417:            ASSVAL

  2773    charlim = charbase+1
13685 @ 124418:            LINE   2773 "regression-compile-tmp/chimp.imp"
13686 @ 124454:            PUSH   CHARLIM
13687 @ 124457:            PUSH   CHARBASE
13688 @ 124460:            PUSHI  #0x00000001
13689 @ 124465:            ADD   
13690 @ 124466:            ASSVAL

  2774    charmin = charlim+charbound;  !(1 over top)
13691 @ 124467:            LINE   2774 "regression-compile-tmp/chimp.imp"
13692 @ 124503:            PUSH   CHARMIN
13693 @ 124506:            PUSH   CHARLIM
13694 @ 124509:            PUSHI  #0x00001770
13695 @ 124514:            ADD   
13696 @ 124515:            ASSVAL

  2775    dict(i)_val = 0 %for i = d0,1,labmax
13697 @ 124516:            LINE   2775 "regression-compile-tmp/chimp.imp"
13698 @ 124552:            PUSH   I
13699 @ 124555:            PUSHI  #0x00000001
13700 @ 124560:            PUSHI  #0x00000cb6
13701 @ 124565:            PUSHI  #0x000007d1
13702 @ 124570:            FOR    L_0003
13703 @ 124573:            PUSH   DICT
13704 @ 124576:            PUSH   I
13705 @ 124579:            ACCESS
13706 @ 124580:            SELECT 7
13707 @ 124583:            PUSHI  #0x00000000
13708 @ 124588:            ASSVAL
13709 @ 124589:            REPEAT L_0003
13710 @ 124592:            LOCATE L_0004

  2776    d_flags = typeid;  d_low = minint;  d_val = maxint
13711 @ 124595:            LINE   2776 "regression-compile-tmp/chimp.imp"
13712 @ 124631:            PUSH   D
13713 @ 124634:            SELECT 1
13714 @ 124637:            PUSHI  #0x00000100
13715 @ 124642:            ASSVAL
13716 @ 124643:            LINE   2776 "regression-compile-tmp/chimp.imp"
13717 @ 124679:            PUSH   D
13718 @ 124682:            SELECT 6
13719 @ 124685:            PUSHI  #0x80000000
13720 @ 124690:            ASSVAL
13721 @ 124691:            LINE   2776 "regression-compile-tmp/chimp.imp"
13722 @ 124727:            PUSH   D
13723 @ 124730:            SELECT 7
13724 @ 124733:            PUSHI  #0x7fffffff
13725 @ 124738:            ASSVAL

  2777    dmin = dictmax-1;  dlim = dictmin
13726 @ 124739:            LINE   2777 "regression-compile-tmp/chimp.imp"
13727 @ 124775:            PUSH   DMIN
13728 @ 124778:            PUSHI  #0x00000ca1
13729 @ 124783:            PUSHI  #0x00000001
13730 @ 124788:            SUB   
13731 @ 124789:            ASSVAL
13732 @ 124790:            LINE   2777 "regression-compile-tmp/chimp.imp"
13733 @ 124826:            PUSH   DLIM
13734 @ 124829:            PUSHI  #0x000007f9
13735 @ 124834:            ASSVAL

  2778    %cycle
13736 @ 124835:            LINE   2778 "regression-compile-tmp/chimp.imp"
13737 @ 124871:            LOCATE L_0003

  2779      d_type = dlim;  dict(dlim) = d
13738 @ 124874:            LINE   2779 "regression-compile-tmp/chimp.imp"
13739 @ 124910:            PUSH   D
13740 @ 124913:            SELECT 2
13741 @ 124916:            PUSH   DLIM
13742 @ 124919:            ASSVAL
13743 @ 124920:            LINE   2779 "regression-compile-tmp/chimp.imp"
13744 @ 124956:            PUSH   DICT
13745 @ 124959:            PUSH   DLIM
13746 @ 124962:            ACCESS
13747 @ 124963:            PUSH   D
13748 @ 124966:            ASSVAL

  2780      dlim = dlim+1
13749 @ 124967:            LINE   2780 "regression-compile-tmp/chimp.imp"
13750 @ 125003:            PUSH   DLIM
13751 @ 125006:            PUSH   DLIM
13752 @ 125009:            PUSHI  #0x00000001
13753 @ 125014:            ADD   
13754 @ 125015:            ASSVAL

  2781    %repeat %until dlim > booltype
13755 @ 125016:            LINE   2781 "regression-compile-tmp/chimp.imp"
13756 @ 125052:            PUSH   DLIM
13757 @ 125055:            PUSHI  #0x00000800
13758 @ 125060:            JUMPIF > L_0004
13759 @ 125064:            REPEAT L_0003
13760 @ 125067:            LOCATE L_0004

  2782    d_flags = 0
13761 @ 125070:            LINE   2782 "regression-compile-tmp/chimp.imp"
13762 @ 125106:            PUSH   D
13763 @ 125109:            SELECT 1
13764 @ 125112:            PUSHI  #0x00000000
13765 @ 125117:            ASSVAL

  2783    init(booltype,0,0)
13766 @ 125118:            LINE   2783 "regression-compile-tmp/chimp.imp"
13767 @ 125154:            PUSH   INIT
13768 @ 125157:            PUSHI  #0x00000800
13769 @ 125162:            ASSPAR
13770 @ 125163:            PUSHI  #0x00000000
13771 @ 125168:            ASSPAR
13772 @ 125169:            PUSHI  #0x00000000
13773 @ 125174:            ASSPAR
13774 @ 125175:            CALL  

  2784    init(booltype,0,1)
13775 @ 125176:            LINE   2784 "regression-compile-tmp/chimp.imp"
13776 @ 125212:            PUSH   INIT
13777 @ 125215:            PUSHI  #0x00000800
13778 @ 125220:            ASSPAR
13779 @ 125221:            PUSHI  #0x00000000
13780 @ 125226:            ASSPAR
13781 @ 125227:            PUSHI  #0x00000001
13782 @ 125232:            ASSPAR
13783 @ 125233:            CALL  

  2785    d_flags = typeid
13784 @ 125234:            LINE   2785 "regression-compile-tmp/chimp.imp"
13785 @ 125270:            PUSH   D
13786 @ 125273:            SELECT 1
13787 @ 125276:            PUSHI  #0x00000100
13788 @ 125281:            ASSVAL

  2786    init(inty,minint,maxint)
13789 @ 125282:            LINE   2786 "regression-compile-tmp/chimp.imp"
13790 @ 125318:            PUSH   INIT
13791 @ 125321:            PUSHI  #0x000007fe
13792 @ 125326:            ASSPAR
13793 @ 125327:            PUSHI  #0x80000000
13794 @ 125332:            ASSPAR
13795 @ 125333:            PUSHI  #0x7fffffff
13796 @ 125338:            ASSPAR
13797 @ 125339:            CALL  

  2787    init(inty,-32768,32767)
13798 @ 125340:            LINE   2787 "regression-compile-tmp/chimp.imp"
13799 @ 125376:            PUSH   INIT
13800 @ 125379:            PUSHI  #0x000007fe
13801 @ 125384:            ASSPAR
13802 @ 125385:            PUSHI  #0x00008000
13803 @ 125390:            NEGATE
13804 @ 125391:            ASSPAR
13805 @ 125392:            PUSHI  #0x00007fff
13806 @ 125397:            ASSPAR
13807 @ 125398:            CALL  

  2788    init(inty,0,65535)
13808 @ 125399:            LINE   2788 "regression-compile-tmp/chimp.imp"
13809 @ 125435:            PUSH   INIT
13810 @ 125438:            PUSHI  #0x000007fe
13811 @ 125443:            ASSPAR
13812 @ 125444:            PUSHI  #0x00000000
13813 @ 125449:            ASSPAR
13814 @ 125450:            PUSHI  #0x0000ffff
13815 @ 125455:            ASSPAR
13816 @ 125456:            CALL  

  2789    init(inty,0,255)
13817 @ 125457:            LINE   2789 "regression-compile-tmp/chimp.imp"
13818 @ 125493:            PUSH   INIT
13819 @ 125496:            PUSHI  #0x000007fe
13820 @ 125501:            ASSPAR
13821 @ 125502:            PUSHI  #0x00000000
13822 @ 125507:            ASSPAR
13823 @ 125508:            PUSHI  #0x000000ff
13824 @ 125513:            ASSPAR
13825 @ 125514:            CALL  

  2790    init(inty,-128,127)
13826 @ 125515:            LINE   2790 "regression-compile-tmp/chimp.imp"
13827 @ 125551:            PUSH   INIT
13828 @ 125554:            PUSHI  #0x000007fe
13829 @ 125559:            ASSPAR
13830 @ 125560:            PUSHI  #0x00000080
13831 @ 125565:            NEGATE
13832 @ 125566:            ASSPAR
13833 @ 125567:            PUSHI  #0x0000007f
13834 @ 125572:            ASSPAR
13835 @ 125573:            CALL  

  2791    init(inty,0,1)
13836 @ 125574:            LINE   2791 "regression-compile-tmp/chimp.imp"
13837 @ 125610:            PUSH   INIT
13838 @ 125613:            PUSHI  #0x000007fe
13839 @ 125618:            ASSPAR
13840 @ 125619:            PUSHI  #0x00000000
13841 @ 125624:            ASSPAR
13842 @ 125625:            PUSHI  #0x00000001
13843 @ 125630:            ASSPAR
13844 @ 125631:            CALL  

  2792    init(inty,minint,maxint)
13845 @ 125632:            LINE   2792 "regression-compile-tmp/chimp.imp"
13846 @ 125668:            PUSH   INIT
13847 @ 125671:            PUSHI  #0x000007fe
13848 @ 125676:            ASSPAR
13849 @ 125677:            PUSHI  #0x80000000
13850 @ 125682:            ASSPAR
13851 @ 125683:            PUSHI  #0x7fffffff
13852 @ 125688:            ASSPAR
13853 @ 125689:            CALL  

  2793    init(realy,minint,maxint)
13854 @ 125690:            LINE   2793 "regression-compile-tmp/chimp.imp"
13855 @ 125726:            PUSH   INIT
13856 @ 125729:            PUSHI  #0x000007fd
13857 @ 125734:            ASSPAR
13858 @ 125735:            PUSHI  #0x80000000
13859 @ 125740:            ASSPAR
13860 @ 125741:            PUSHI  #0x7fffffff
13861 @ 125746:            ASSPAR
13862 @ 125747:            CALL  

  2794    init(realy,minint,maxint)
13863 @ 125748:            LINE   2794 "regression-compile-tmp/chimp.imp"
13864 @ 125784:            PUSH   INIT
13865 @ 125787:            PUSHI  #0x000007fd
13866 @ 125792:            ASSPAR
13867 @ 125793:            PUSHI  #0x80000000
13868 @ 125798:            ASSPAR
13869 @ 125799:            PUSHI  #0x7fffffff
13870 @ 125804:            ASSPAR
13871 @ 125805:            CALL  

  2795    c = 0;  c_localdpos = dlim;  c_parlim = dlim
13872 @ 125806:            LINE   2795 "regression-compile-tmp/chimp.imp"
13873 @ 125842:            PUSH   C
13874 @ 125845:            PUSHI  #0x00000000
13875 @ 125850:            ASSVAL
13876 @ 125851:            LINE   2795 "regression-compile-tmp/chimp.imp"
13877 @ 125887:            PUSH   C
13878 @ 125890:            SELECT 6
13879 @ 125893:            PUSH   DLIM
13880 @ 125896:            ASSVAL
13881 @ 125897:            LINE   2795 "regression-compile-tmp/chimp.imp"
13882 @ 125933:            PUSH   C
13883 @ 125936:            SELECT 7
13884 @ 125939:            PUSH   DLIM
13885 @ 125942:            ASSVAL

  2796    level = outerlevel
13886 @ 125943:            LINE   2796 "regression-compile-tmp/chimp.imp"
13887 @ 125979:            PUSH   LEVEL
13888 @ 125982:            PUSHI  #0x00000000
13889 @ 125987:            ASSVAL

  2797    spc = finalbound
13890 @ 125988:            LINE   2797 "regression-compile-tmp/chimp.imp"
13891 @ 126024:            PUSH   SPC
13892 @ 126027:            PUSHI  #0x00002000
13893 @ 126032:            ASSVAL

  2798    faults = 0;  line = 0;  mainline = 0
  2799  !
13894 @ 126033:            LINE   2798 "regression-compile-tmp/chimp.imp"
13895 @ 126069:            PUSH   FAULTS
13896 @ 126072:            PUSHI  #0x00000000
13897 @ 126077:            ASSVAL
13898 @ 126078:            LINE   2798 "regression-compile-tmp/chimp.imp"
13899 @ 126114:            PUSH   LINE
13900 @ 126117:            PUSHI  #0x00000000
13901 @ 126122:            ASSVAL
13902 @ 126123:            LINE   2798 "regression-compile-tmp/chimp.imp"
13903 @ 126159:            PUSH   MAINLINE
13904 @ 126162:            PUSHI  #0x00000000
13905 @ 126167:            ASSVAL

  2800    mainfp = main_start1
13906 @ 126168:            LINE   2800 "regression-compile-tmp/chimp.imp"
13907 @ 126204:            PUSH   MAINFP
13908 @ 126207:            PUSH   MAIN
13909 @ 126210:            SELECT 1
13910 @ 126213:            ASSVAL

  2801    extra_name = permfile
13911 @ 126214:            LINE   2801 "regression-compile-tmp/chimp.imp"
13912 @ 126250:            PUSH   EXTRA
13913 @ 126253:            SELECT 19
13914 @ 126256:            PUSH   PERMFILE
13915 @ 126259:            ASSVAL

  2802    connect edfile(extra)
13916 @ 126260:            LINE   2802 "regression-compile-tmp/chimp.imp"
13917 @ 126296:            PUSH   CONNECTEDFILE
13918 @ 126299:            PUSH   EXTRA
13919 @ 126302:            ASSPAR
13920 @ 126303:            CALL  

  2803    nonstop = -999 %and %signal 12 %if extra_flag # 0
13921 @ 126304:            LINE   2803 "regression-compile-tmp/chimp.imp"
13922 @ 126340:            PUSH   EXTRA
13923 @ 126343:            SELECT 9
13924 @ 126346:            PUSHI  #0x00000000
13925 @ 126351:            JUMPIF = L_0004
13926 @ 126355:            PUSH   NONSTOP
13927 @ 126358:            PUSHI  #0x000003e7
13928 @ 126363:            NEGATE
13929 @ 126364:            ASSVAL
13930 @ 126365:            EVENT  000c
13931 @ 126368:            LOCATE L_0004

  2804    fp = extra_start2;  curstart = fp;  curlim = extra_lim2
13932 @ 126371:            LINE   2804 "regression-compile-tmp/chimp.imp"
13933 @ 126407:            PUSH   FP
13934 @ 126410:            PUSH   EXTRA
13935 @ 126413:            SELECT 3
13936 @ 126416:            ASSVAL
13937 @ 126417:            LINE   2804 "regression-compile-tmp/chimp.imp"
13938 @ 126453:            PUSH   CURSTART
13939 @ 126456:            PUSH   FP
13940 @ 126459:            ASSVAL
13941 @ 126460:            LINE   2804 "regression-compile-tmp/chimp.imp"
13942 @ 126496:            PUSH   CURLIM
13943 @ 126499:            PUSH   EXTRA
13944 @ 126502:            SELECT 4
13945 @ 126505:            ASSVAL

  2805    nonstop = -2;  nonstop = -1 %if main_flag = 'I'
13946 @ 126506:            LINE   2805 "regression-compile-tmp/chimp.imp"
13947 @ 126542:            PUSH   NONSTOP
13948 @ 126545:            PUSHI  #0x00000002
13949 @ 126550:            NEGATE
13950 @ 126551:            ASSVAL
13951 @ 126552:            LINE   2805 "regression-compile-tmp/chimp.imp"
13952 @ 126588:            PUSH   MAIN
13953 @ 126591:            SELECT 9
13954 @ 126594:            PUSHI  #0x00000049
13955 @ 126599:            JUMPIF # L_0004
13956 @ 126603:            PUSH   NONSTOP
13957 @ 126606:            PUSHI  #0x00000001
13958 @ 126611:            NEGATE
13959 @ 126612:            ASSVAL
13960 @ 126613:            LOCATE L_0004

  2806    sym = nl
13961 @ 126616:            LINE   2806 "regression-compile-tmp/chimp.imp"
13962 @ 126652:            PUSH   SYM
13963 @ 126655:            PUSHI  #0x0000000a
13964 @ 126660:            ASSVAL

  2807    get STATEMENTS(-1)
  2808  !  report(noend,0) %if level < mainlevel
  2809  !  report(nobegin,0) %if level > mainlevel
  2810  !  compile end %while level >= mainlevel
13965 @ 126661:            LINE   2807 "regression-compile-tmp/chimp.imp"
13966 @ 126697:            PUSH   GETSTATEMENTS
13967 @ 126700:            PUSHI  #0x00000001
13968 @ 126705:            NEGATE
13969 @ 126706:            ASSPAR
13970 @ 126707:            CALL  

  2811  printout:
  2812  !  time2 = cputime
13971 @ 126708:            LINE   2811 "regression-compile-tmp/chimp.imp"
13972 @ 126744:            LABEL  L_010e

  2813    %if faults = 0 %start
13973 @ 126747:            LINE   2813 "regression-compile-tmp/chimp.imp"
13974 @ 126783:            PUSH   FAULTS
13975 @ 126786:            PUSHI  #0x00000000
13976 @ 126791:            JUMPIF # L_0004

  2814      write(statements,1)
13977 @ 126795:            LINE   2814 "regression-compile-tmp/chimp.imp"
13978 @ 126831:            PUSH   WRITE
13979 @ 126834:            PUSH   STATEMENTS
13980 @ 126837:            ASSPAR
13981 @ 126838:            PUSHI  #0x00000001
13982 @ 126843:            ASSPAR
13983 @ 126844:            CALL  

  2815      print string(" statements checked  ")
13984 @ 126845:            LINE   2815 "regression-compile-tmp/chimp.imp"
13985 @ 126881:            PUSH   PRINTSTRING
13986 @ 126884:            PUSHS  " statements checked  "
13987 @ 126907:            ASSPAR
13988 @ 126908:            CALL  

  2816    %finish %else %start
13989 @ 126909:            LINE   2816 "regression-compile-tmp/chimp.imp"
13990 @ 126945:            GOTO   L_0003
13991 @ 126948:            LOCATE L_0004

  2817      write(faults,1)
13992 @ 126951:            LINE   2817 "regression-compile-tmp/chimp.imp"
13993 @ 126987:            PUSH   WRITE
13994 @ 126990:            PUSH   FAULTS
13995 @ 126993:            ASSPAR
13996 @ 126994:            PUSHI  #0x00000001
13997 @ 126999:            ASSPAR
13998 @ 127000:            CALL  

  2818      print string(" fault")
13999 @ 127001:            LINE   2818 "regression-compile-tmp/chimp.imp"
14000 @ 127037:            PUSH   PRINTSTRING
14001 @ 127040:            PUSHS  " fault"
14002 @ 127048:            ASSPAR
14003 @ 127049:            CALL  

  2819      put sym('s') %if faults > 1
14004 @ 127050:            LINE   2819 "regression-compile-tmp/chimp.imp"
14005 @ 127086:            PUSH   FAULTS
14006 @ 127089:            PUSHI  #0x00000001
14007 @ 127094:            JUMPIF <= L_0007
14008 @ 127098:            PUSH   PUTSYM
14009 @ 127101:            PUSHI  #0x00000073
14010 @ 127106:            ASSPAR
14011 @ 127107:            CALL  
14012 @ 127108:            LOCATE L_0007

  2820      print string(" reported  ")
14013 @ 127111:            LINE   2820 "regression-compile-tmp/chimp.imp"
14014 @ 127147:            PUSH   PRINTSTRING
14015 @ 127150:            PUSHS  " reported  "
14016 @ 127163:            ASSPAR
14017 @ 127164:            CALL  

  2821    %finish
14018 @ 127165:            LINE   2821 "regression-compile-tmp/chimp.imp"
14019 @ 127201:            LOCATE L_0003

  2822    newline
14020 @ 127204:            LINE   2822 "regression-compile-tmp/chimp.imp"
14021 @ 127240:            PUSH   NEWLINE
14022 @ 127243:            CALL  

  2823  ended:
14023 @ 127244:            LINE   2823 "regression-compile-tmp/chimp.imp"
14024 @ 127280:            LABEL  L_010f

  2824    newline;  !*for now to ensure message not erased*
  2825  !  %if control&logbit # 0 %start
  2826  !!    write(zaps,1);  print symbol('Z')
  2827  !    write(statements,1);  print symbol('S')
  2828  !    statements = 1 %if statements = 0
  2829  !    atoms = atoms+statements
  2830  !    print(atoms/statements,1,1);  print symbol('A')
  2831  !    print(numatoms/statements,1,1);  print symbol('N')
  2832  !    print(identatoms/statements,1,1);  print symbol('I')
  2833  !    print(misses/identatoms,1,2);  print symbol('H')
  2834  !    print((time2-time1)/statements,3,3);  print symbol('M')
  2835  !!    write(finalad,1);  print symbol('B')
  2836  !!    write(ownad-ownbase,1);  print symbol('O')
  2837  !    newline
  2838  !  %finish
  2839  
14025 @ 127283:            LINE   2824 "regression-compile-tmp/chimp.imp"
14026 @ 127319:            PUSH   NEWLINE
14027 @ 127322:            CALL  

  2840  %end;  !of ECCECI
  2841  
14028 @ 127323:            LINE   2840 "regression-compile-tmp/chimp.imp"
14029 @ 127359:         END    _ECCECI {lev=1 --> 0}

  2842  %BEGIN
14030 @ 127360:         LINE   2842 "regression-compile-tmp/chimp.imp"
14031 @ 127396:         BEGIN  _lev0id0 {lev=0 --> 1}

  2843  %END
  2844  
14032 @ 127397:            LINE   2843 "regression-compile-tmp/chimp.imp"
14033 @ 127433:         END    _lev0id0 {lev=1 --> 0}

  2845  %endoffile
14034 @ 127434:         LINE   2845 "regression-compile-tmp/chimp.imp"
14035 @ 127470:         END     {lev=0 --> -1}
14036 @ 127471: 

