
     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/chimps.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 @ 4442:         LINE   6 "regression-compile-tmp/chimps.imp"
505 @ 4479:         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 @ 4497:         START  ( RECORDFORMAT
507 @ 4498:            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 @ 4516:            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 @ 4532:            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 @ 4550:            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 @ 4566:            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 @ 4581:            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 @ 4597:            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 @ 4611:            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 @ 4629:            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 @ 4645:            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 @ 4661:            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 @ 4677:            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 @ 4694:            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 @ 4709:            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 @ 4724:            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 @ 4739:            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 @ 4754:            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 @ 4769:            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 @ 4784:            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 @ 4800:         FINISH ) 

    21  %external%routine%spec EDI(%record(edfile)%name main,sec,
    22                           %string(255) message)
527 @ 4801:         LINE   21 "regression-compile-tmp/chimps.imp"
528 @ 4838:         DEF    EDI (_EDI) p1=V_0082 a/tf=7 b/format=0 c/ostate=2b  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=3 (external) spec=1 indirect=0 unass=1
529 @ 4853:         START  ( FORMAL PARAMETERS  {lev=0 --> 1, nested=0 --> 1}
530 @ 4854:            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 @ 4870:            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 @ 4885:            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 @ 4904:         FINISH ) {lev=0}

    23  %external%routine%spec CONNECT EDFILE(%record(edfile)%name f)
534 @ 4905:         LINE   23 "regression-compile-tmp/chimps.imp"
535 @ 4942:         DEF    CONNECTEDFILE (_CONNECTEDFILE) p1=V_0083 a/tf=7 b/format=0 c/ostate=2b  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=3 (external) spec=1 indirect=0 unass=1
536 @ 4967:         START  ( FORMAL PARAMETERS  {lev=0 --> 1, nested=0 --> 1}
537 @ 4968:            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
538 @ 4981:         FINISH ) {lev=0}

    24  %external%routine%spec DISCONNECT EDFILE(%record(edfile)%name f)
    25  !
    26  !$IF VAX
539 @ 4982:         LINE   24 "regression-compile-tmp/chimps.imp"
540 @ 5019:         DEF    DISCONNECTEDFILE (_DISCONNECTEDFILE) p1=V_0084 a/tf=7 b/format=0 c/ostate=2b  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=3 (external) spec=1 indirect=0 unass=1
541 @ 5047:         START  ( FORMAL PARAMETERS  {lev=0 --> 1, nested=0 --> 1}
542 @ 5048:            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
543 @ 5061:         FINISH ) {lev=0}

    27  %conststring(13) permfile="ECCE_PERM"
    28  !$IF AMDAHL
    29  {%conststring(18) permfile="ERCLIB:VECCE.IPERM"
    30  !$FINISH
    31  
    32  !!  control
544 @ 5062:         LINE   27 "regression-compile-tmp/chimps.imp"
545 @ 5099:         PUSHS  "ECCE_PERM"
546 @ 5110:         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
547 @ 5130:         INIT   1

    33  %constinteger logbit=   16_00040000 {print log},
    34                warnbit=  16_00020000 {print warnings},
    35                nonsbit=  16_00010000 {print nonstandard reports},
    36                DICTLIST= 16_00001000 {list dict entries},
    37                EXPLIST=  16_00000800 {list EXP entries}
548 @ 5133:         LINE   33 "regression-compile-tmp/chimps.imp"

    38  %owninteger control=warnbit+nonsbit
    39  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
549 @ 5170:         LINE   38 "regression-compile-tmp/chimps.imp"
550 @ 5207:         PUSHI  #0x00030000
551 @ 5212:         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
552 @ 5231:         INIT   1

    40  %externalroutine ECCECI(%record(edfile)%name main)
    41  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
553 @ 5234:         LINE   40 "regression-compile-tmp/chimps.imp"
554 @ 5271:         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
555 @ 5289:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
556 @ 5290:               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
557 @ 5306:            FINISH ) {lev=1}

    42  %ownstring(maxname) extraname
558 @ 5307:            LINE   42 "regression-compile-tmp/chimps.imp"
559 @ 5344:            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
560 @ 5365:            INIT   1

    43  %ownrecord(edfile) extra=0,null=0
561 @ 5368:            LINE   43 "regression-compile-tmp/chimps.imp"
562 @ 5405:            PUSHI  #0x00000000
563 @ 5410:            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
564 @ 5427:            INIT   1
565 @ 5430:            PUSHI  #0x00000000
566 @ 5435:            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
567 @ 5451:            INIT   1

    44  %integer curstart,curlim
568 @ 5454:            LINE   44 "regression-compile-tmp/chimps.imp"
569 @ 5491:            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
570 @ 5511:            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

    45  %integer nonstop
571 @ 5529:            LINE   45 "regression-compile-tmp/chimps.imp"
572 @ 5566:            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

    46  %owninteger change=0
    47  !!  Fault numbers
573 @ 5585:            LINE   46 "regression-compile-tmp/chimps.imp"
574 @ 5622:            PUSHI  #0x00000000
575 @ 5627:            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
576 @ 5645:            INIT   1

    48  %constinteger FORMERR=0, ATOMERR=1, NAMERR=2, CATERR=3, SIZERR=4,
    49                ASSERR=5, TYPERR=6, DUPERR=7,
    50                NOSTART=8, NOCYCLE=9,
    51                ORDERERR=10, MATCHERR=11, RANGERR=12, NONLITERAL=13,
    52                BOUNDSERR=14, ACCESSERR=15, NOTINLOOP=16,
    53                NOTINROUT=17, NOTINFUN=18, NOTINPRED=19,
    54                PLEXERR=20, NOIF=21, NONSTAND=22, NOTIN=23,
    55                INDEXERR=24,
    56                MOPERR=27, NOTERM=28, NONSTARTER=29,
    57                NONVAR=30, NONREF=31, TOOMANY=32, TOOFEW=33,
    58                UNWANTED=34, NOPARM=35, UNENDING=37,
    59                SELFREF=38
577 @ 5648:            LINE   48 "regression-compile-tmp/chimps.imp"

    60  %constinteger NOEND=40, NOBEGIN=41,
    61                IDMISSING=42, NOFINISH=43, NOREPEAT=44,
    62                COUNTERR=45, NORESULT=46
578 @ 5685:            LINE   60 "regression-compile-tmp/chimps.imp"

    63  %constinteger ERRMAX=46
579 @ 5722:            LINE   63 "regression-compile-tmp/chimps.imp"

    64  %constinteger POINT=64,WARN=128
580 @ 5759:            LINE   64 "regression-compile-tmp/chimps.imp"

    65  %owninteger FAULTNUM=0
581 @ 5796:            LINE   65 "regression-compile-tmp/chimps.imp"
582 @ 5833:            PUSHI  #0x00000000
583 @ 5838:            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
584 @ 5858:            INIT   1

    66  %owninteger FAULTS=0;          !fault count
    67  !
585 @ 5861:            LINE   66 "regression-compile-tmp/chimps.imp"
586 @ 5898:            PUSHI  #0x00000000
587 @ 5903:            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
588 @ 5921:            INIT   1

    68  %constinteger MAXINT=16_7FFFFFFF, MININT=\MAXINT,
    69                MAX10=maxint//10, MAXDIG=maxint-max10*10
589 @ 5924:            LINE   68 "regression-compile-tmp/chimps.imp"

    70  %constinteger FALSE=0, TRUE=1
590 @ 5961:            LINE   70 "regression-compile-tmp/chimps.imp"

    71  %integer I
    72  !
    73  !!  Program statistics
591 @ 5998:            LINE   71 "regression-compile-tmp/chimps.imp"
592 @ 6035:            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

    74  %owninteger STATEMENTS=0;           !statement count
    75  !%owninteger ATOMS=0;                !atom count
    76  !%owninteger IDENTATOMS=0;           !identifier count
    77  !%owninteger NUMATOMS=0;             !numeric atom count
    78  !%owninteger MISSES=0;               !ident mismatches
    79  !%owninteger ZAPS=0
    80  !
    81  !!!!!!!!!!!!!!!!   Operand Representation  !!!!!!!!!!!!!!!!!!!
    82  
593 @ 6048:            LINE   74 "regression-compile-tmp/chimps.imp"
594 @ 6085:            PUSHI  #0x00000000
595 @ 6090:            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
596 @ 6112:            INIT   1

    83  %constinteger SMALLMIN=-1000, SMALLMAX=1000,
    84                LITMIN=smallmax+1, LITMAX=smallmax+1000,
    85                D0=litmax+1, D1=d0+1, D2=d0+2, D6=d0+6, D7=d0+7,
    86                A0=d0+8, A1=a0+1, A6=a0+6, A7=a0+7,
    87                INDA0=a0+8,
    88                POSTA0=inda0+8, POSTA7=posta0+7,
    89                PREA0=posta0+8, PREA7=prea0+7,
    90                DICTMIN=prea0+8, DICTMAX=prea0+1200,
    91                LABMIN=dictmax+1, LAB1=labmin+1, LABMAX=labmin+20,
    92                EXPMIN=labmax+1, EXPMAX=labmax+300,
    93                UNDEF=expmax+1, AD=16_4000
597 @ 6115:            LINE   83 "regression-compile-tmp/chimps.imp"

    94  %constinteger MAXDREG=d0+4, MAXAREG=a0+3
598 @ 6152:            LINE   94 "regression-compile-tmp/chimps.imp"

    95  %constinteger D0B=1, D1B=2, D2B=4,
    96                A0B=16_100, A1B=16_200, A2B=16_400
599 @ 6189:            LINE   95 "regression-compile-tmp/chimps.imp"

    97  %constinteger ALLREGS=2_0000111100011111;  !a3:a0 & d4:d0
600 @ 6226:            LINE   97 "regression-compile-tmp/chimps.imp"

    98  %owninteger FREE=allregs
601 @ 6263:            LINE   98 "regression-compile-tmp/chimps.imp"
602 @ 6300:            PUSHI  #0x00000f1f
603 @ 6305:            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
604 @ 6321:            INIT   1

    99  %constinteger NULLTYPE=dictmin,
   100                RECY=nulltype+1, ARRY=recy+1, STRINGY=arry+1,
   101                REALY=stringy+1, INTY=realy+1,
   102                CHARTYPE=inty+1, BOOLTYPE=chartype+1,
   103                FALSECONST=booltype+1, TRUECONST=booltype+2,
   104                INTTYPE=trueconst+1, SHORTTYPE=inttype+1,
   105                HALFTYPE=shorttype+1, BYTETYPE=halftype+1,
   106                MITETYPE=bytetype+1, BITTYPE=MITETYPE+1,
   107                LONGINTTYPE=bittype+1,
   108                REALTYPE=longinttype+1, LONGREALTYPE=realtype+1
605 @ 6324:            LINE   99 "regression-compile-tmp/chimps.imp"

   109  %constinteger PURETYPE=8191, DIRECT=8192, INDIRECT=16384
606 @ 6361:            LINE   109 "regression-compile-tmp/chimps.imp"

   110  %constinteger ANYINT=inty+direct, ANYINTVAR=inty+indirect,
   111                ANYSTRING=stringy+direct, ANYSTRINGVAR=stringy+indirect
607 @ 6398:            LINE   110 "regression-compile-tmp/chimps.imp"

   112  %constinteger ANYNAME=nulltype+indirect
   113  
   114  !
608 @ 6435:            LINE   112 "regression-compile-tmp/chimps.imp"

   115  %owninteger dictshown=dictmin
   116  
   117  !!!!!!!!!!!!!!!!!!!!!!!   Big Literals  !!!!!!!!!!!!!!!!!!!!!!!
609 @ 6472:            LINE   115 "regression-compile-tmp/chimps.imp"
610 @ 6509:            PUSHI  #0x000007f9
611 @ 6514:            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
612 @ 6535:            INIT   1

   118  %owninteger LITPOS=litmin, SLITPOS=litmax
613 @ 6538:            LINE   118 "regression-compile-tmp/chimps.imp"
614 @ 6575:            PUSHI  #0x000003e9
615 @ 6580:            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
616 @ 6598:            INIT   1
617 @ 6601:            PUSHI  #0x000007d0
618 @ 6606:            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
619 @ 6625:            INIT   1

   119  %integerarray LITSTORE(litmin:litmax)
   120  !
   121  !!!!!!!!!!!!!!!!!!!!!!!!!!  MODE VALUES  !!!!!!!!!!!!!!!!!!!!!!!!!
   122  !Size codes:
620 @ 6628:            LINE   119 "regression-compile-tmp/chimps.imp"
621 @ 6665:            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
622 @ 6685:            PUSHI  #0x000003e9
623 @ 6690:            PUSHI  #0x000007d0
624 @ 6695:            DIM    0001 0001

   123  %constinteger bytesize=1, wordsize=2, longsize=3
625 @ 6701:            LINE   123 "regression-compile-tmp/chimps.imp"

   124  %constinteger sizemask=16_C0, sizeshift=6
   125  !Address modes:
626 @ 6738:            LINE   124 "regression-compile-tmp/chimps.imp"

   126  %constinteger dmode=0, amode=2_001000,
   127                indmode=2_010000, postmode=2_011000, premode=2_100000,
   128                dispmode=2_101000, indexmode=2_110000, absmode=2_111000,
   129                pcmode=2_111010, litmode=2_111100
627 @ 6775:            LINE   126 "regression-compile-tmp/chimps.imp"

   130  %constinteger ownmode=dispmode+6;  !d(A6)
   131  !
   132  !!!!!!!!!!!!!!!!!!!!!!!!  Identifiers  !!!!!!!!!!!!!!!!!!!!!!!!
   133  !
628 @ 6812:            LINE   130 "regression-compile-tmp/chimps.imp"

   134  %recordformat OBJINFO %C
   135    (%integer flags,type,
   136      (%integer extra, %byteinteger spare,mode %or %integer low),
   137     %integer val)
629 @ 6849:            LINE   134 "regression-compile-tmp/chimps.imp"
630 @ 6886:            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
631 @ 6905:            START  ( RECORDFORMAT
632 @ 6906:               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
633 @ 6923:               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
634 @ 6939:               ALTALT ~A ALTBEG
635 @ 6941:               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
636 @ 6958:               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
637 @ 6975:               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
638 @ 6991:               ALTALT ~C ALT
639 @ 6993:               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
640 @ 7008:               ALTALT ~B ALTEND
641 @ 7010:               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
642 @ 7025:            FINISH ) 

   138  %recordformat IDENTINFO %C
   139    ((%integer flags,type,
   140      (%integer extra, %byteinteger spare,mode %or %integer low),
   141     %integer val %or %record(objinfo) details),
   142     %integer text,link)
   143  !
   144  ! Significance of FLAGS:
643 @ 7026:            LINE   138 "regression-compile-tmp/chimps.imp"
644 @ 7063:            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
645 @ 7084:            START  ( RECORDFORMAT
646 @ 7085:               ALTALT ~A ALTBEG
647 @ 7087:               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
648 @ 7104:               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
649 @ 7120:               ALTALT ~A ALTBEG
650 @ 7122:               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
651 @ 7139:               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
652 @ 7156:               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
653 @ 7172:               ALTALT ~C ALT
654 @ 7174:               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
655 @ 7189:               ALTALT ~B ALTEND
656 @ 7191:               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
657 @ 7206:               ALTALT ~C ALT
658 @ 7208:               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
659 @ 7227:               ALTALT ~B ALTEND
660 @ 7229:               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
661 @ 7245:               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
662 @ 7261:            FINISH ) 

   145  %constinteger VAR=16_0001, LAB=16_0002, PROC=16_0004, STATIC=16_0008,
   146                SPEC=16_0010, EXT=16_0020, PARM=16_0040, MORE=16_0080,
   147                TYPEID=16_0100, OKFLAG=16_0200, ALT=16_0800,
   148                RFLAG=16_1000,WFLAG=16_2000
   149  !
   150  ! Significance of VAL:
   151  !  for literal               : the actual value
   152  !  for variable              : machine address (displacement)
   153  !  for undefined label       : reference chain
   154  !  for undefined procedure   :       "
   155  !  for base type             : (index to) range
   156  !  for record type           : size of record in bytes
   157  !
   158  !  Identifier dictionary:
663 @ 7262:            LINE   145 "regression-compile-tmp/chimps.imp"

   159  %record(identinfo)%array DICT(d0:labmax)
   160  !  indexing DICT:
664 @ 7299:            LINE   159 "regression-compile-tmp/chimps.imp"
665 @ 7336:            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
666 @ 7352:            PUSHI  #0x000007d1
667 @ 7357:            PUSHI  #0x00000cb6
668 @ 7362:            DIM    0001 0001

   161  %owninteger DLIM=trueconst+1;         !dict limit (up)
669 @ 7368:            LINE   161 "regression-compile-tmp/chimps.imp"
670 @ 7405:            PUSHI  #0x00000803
671 @ 7410:            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
672 @ 7426:            INIT   1

   162  %owninteger DLIM0
673 @ 7429:            LINE   162 "regression-compile-tmp/chimps.imp"
674 @ 7466:            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
675 @ 7483:            INIT   1

   163  %owninteger PERMLIM=dictmin
676 @ 7486:            LINE   163 "regression-compile-tmp/chimps.imp"
677 @ 7523:            PUSHI  #0x000007f9
678 @ 7528:            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
679 @ 7547:            INIT   1

   164  %owninteger DMIN=dictmax-1;       !dict upper limit (down)
   165  
   166  !  Text of identifiers (indexed by _TEXT):
680 @ 7550:            LINE   164 "regression-compile-tmp/chimps.imp"
681 @ 7587:            PUSHI  #0x00000ca0
682 @ 7592:            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
683 @ 7608:            INIT   1

   167  %constinteger CHARBOUND=6000
684 @ 7611:            LINE   167 "regression-compile-tmp/chimps.imp"

   168  %byteintegerarray CHAR(0:charbound)
685 @ 7648:            LINE   168 "regression-compile-tmp/chimps.imp"
686 @ 7685:            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
687 @ 7701:            PUSHI  #0x00000000
688 @ 7706:            PUSHI  #0x00001770
689 @ 7711:            DIM    0001 0001

   169  %integer CHARBASE,CHARLIM,CHARMIN;  !pointers
690 @ 7717:            LINE   169 "regression-compile-tmp/chimps.imp"
691 @ 7754:            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
692 @ 7774:            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
693 @ 7793:            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

   170  %integer NEWLEN
   171  
   172  !  Hash index to DICT:
694 @ 7812:            LINE   170 "regression-compile-tmp/chimps.imp"
695 @ 7849:            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

   173  %integerarray HASHINDEX(0:255)
696 @ 7867:            LINE   173 "regression-compile-tmp/chimps.imp"
697 @ 7904:            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
698 @ 7925:            PUSHI  #0x00000000
699 @ 7930:            PUSHI  #0x000000ff
700 @ 7935:            DIM    0001 0001

   174  %integername HEAD;                  !head of ident search list
   175  !
   176  !!!!!!!!!!!!!!!!!!!!!  Complex operands  !!!!!!!!!!!!!!!!!!!!!!!
   177  !%recordformat EXPINFO(%integer act,x,y)
   178  !%record(expinfo)%array EXP(expmin:expmax)
701 @ 7941:            LINE   174 "regression-compile-tmp/chimps.imp"
702 @ 7978:            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

   179  %owninteger EXPLO=expmax+1, OLDEXPLO=expmax+1
703 @ 7994:            LINE   179 "regression-compile-tmp/chimps.imp"
704 @ 8031:            PUSHI  #0x00000de3
705 @ 8036:            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
706 @ 8053:            INIT   1
707 @ 8056:            PUSHI  #0x00000de3
708 @ 8061:            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
709 @ 8081:            INIT   1

   180  %constinteger NP0=expmin
710 @ 8084:            LINE   180 "regression-compile-tmp/chimps.imp"

   181  %owninteger NP,CONDNP,INSTNP
   182  
   183  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   184  !!!!!!!!!!!!!!!!!!  Keywords and operators  !!!!!!!!!!!!!!!!!!!!
   185  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   186  !*!!!!!!!  Keyword codes -- used by KEYGEN to produce tables  !!
711 @ 8121:            LINE   181 "regression-compile-tmp/chimps.imp"
712 @ 8158:            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
713 @ 8172:            INIT   1
714 @ 8175:            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
715 @ 8193:            INIT   1
716 @ 8196:            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
717 @ 8214:            INIT   1

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

   235  %CONSTintegerARRAY SYMINIT(97:122) =  %C
   236    2, 15, 27, 57, 64, 87,118,122,126,  1,  1,141,154,168,175,184,
   237    1,199,230,270,278,  1,288,  1,  1,  1
   238  
719 @ 8254:            LINE   235 "regression-compile-tmp/chimps.imp"
720 @ 8291:            PUSHI  #0x00000061
721 @ 8296:            PUSHI  #0x0000007a
722 @ 8301:            BOUNDS
723 @ 8302:            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
724 @ 8321:            PUSHI  #0x00000002
725 @ 8326:            INIT   1
726 @ 8329:            PUSHI  #0x0000000f
727 @ 8334:            INIT   1
728 @ 8337:            PUSHI  #0x0000001b
729 @ 8342:            INIT   1
730 @ 8345:            PUSHI  #0x00000039
731 @ 8350:            INIT   1
732 @ 8353:            PUSHI  #0x00000040
733 @ 8358:            INIT   1
734 @ 8361:            PUSHI  #0x00000057
735 @ 8366:            INIT   1
736 @ 8369:            PUSHI  #0x00000076
737 @ 8374:            INIT   1
738 @ 8377:            PUSHI  #0x0000007a
739 @ 8382:            INIT   1
740 @ 8385:            PUSHI  #0x0000007e
741 @ 8390:            INIT   1
742 @ 8393:            PUSHI  #0x00000001
743 @ 8398:            INIT   1
744 @ 8401:            PUSHI  #0x00000001
745 @ 8406:            INIT   1
746 @ 8409:            PUSHI  #0x0000008d
747 @ 8414:            INIT   1
748 @ 8417:            PUSHI  #0x0000009a
749 @ 8422:            INIT   1
750 @ 8425:            PUSHI  #0x000000a8
751 @ 8430:            INIT   1
752 @ 8433:            PUSHI  #0x000000af
753 @ 8438:            INIT   1
754 @ 8441:            PUSHI  #0x000000b8
755 @ 8446:            INIT   1
756 @ 8449:            PUSHI  #0x00000001
757 @ 8454:            INIT   1
758 @ 8457:            PUSHI  #0x000000c7
759 @ 8462:            INIT   1
760 @ 8465:            PUSHI  #0x000000e6
761 @ 8470:            INIT   1
762 @ 8473:            PUSHI  #0x0000010e
763 @ 8478:            INIT   1
764 @ 8481:            PUSHI  #0x00000116
765 @ 8486:            INIT   1
766 @ 8489:            PUSHI  #0x00000001
767 @ 8494:            INIT   1
768 @ 8497:            PUSHI  #0x00000120
769 @ 8502:            INIT   1
770 @ 8505:            PUSHI  #0x00000001
771 @ 8510:            INIT   1
772 @ 8513:            PUSHI  #0x00000001
773 @ 8518:            INIT   1
774 @ 8521:            PUSHI  #0x00000001
775 @ 8526:            INIT   1

   239  %CONSTBYTEINTEGERARRAY SYMBOL(1:292) =  %C
   240  128,114,114, 97,121,163,108,105, 97,115,174,110,100,192,101,103,
   241  105,110,133,121,116,101,153,105,116,153,111,110,116,105,110,117,
   242  101,134,121, 99,108,101,150,109,109,101,110,116,171,115,116, 97,
   243  110,116,152,152,114,111,108,170,121,110, 97,109,105, 99,152,110,
   244  100,129,108,115,101,132,120,105,116,134,118,101,110,116,172,116,
   245  101,114,110, 97,108,152,105,110,105,115,104,131, 97,108,115,101,
   246  136,111,114,109, 97,116,159,110,160,117,110, 99,116,105,111,110,
   247  160,147,108,101,167,111,116,111,139, 97,108,102,153,102,144,110,
   248  116,101,103,101,114,155, 99,108,117,100,101,173, 97, 98,101,108,
   249  151,111,110,103,154,105,115,116,169,111,110,105,116,111,114,141,
   250  105,116,101,153, 97,112,160, 97,109,101,164,111,116,175,110,143,
   251  119,110,152,102,166,114,193,114,101,100,105, 99, 97,116,101,161,
   252  111,103,114, 97,109,168,101,112,101, 97,116,130,111,117,116,105,
   253  110,101,161,116,117,114,110,135,115,117,108,116,137, 97,108,156,
   254   99,111,114,100,158,116,111,112,138,105,103,110, 97,108,140,121,
   255  115,116,101,109,152,104,111,114,116,153,112,101, 99,162,119,105,
   256  116, 99,104,165, 97,114,116,149,114,105,110,103,157,114,117,101,
   257  136,104,101,110,148,110,108,101,115,115,144,116,105,108,146,104,
   258  105,108,101,145
   259  
776 @ 8529:            LINE   239 "regression-compile-tmp/chimps.imp"
777 @ 8566:            PUSHI  #0x00000001
778 @ 8571:            PUSHI  #0x00000124
779 @ 8576:            BOUNDS
780 @ 8577:            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
781 @ 8595:            PUSHI  #0x00000080
782 @ 8600:            INIT   1
783 @ 8603:            PUSHI  #0x00000072
784 @ 8608:            INIT   1
785 @ 8611:            PUSHI  #0x00000072
786 @ 8616:            INIT   1
787 @ 8619:            PUSHI  #0x00000061
788 @ 8624:            INIT   1
789 @ 8627:            PUSHI  #0x00000079
790 @ 8632:            INIT   1
791 @ 8635:            PUSHI  #0x000000a3
792 @ 8640:            INIT   1
793 @ 8643:            PUSHI  #0x0000006c
794 @ 8648:            INIT   1
795 @ 8651:            PUSHI  #0x00000069
796 @ 8656:            INIT   1
797 @ 8659:            PUSHI  #0x00000061
798 @ 8664:            INIT   1
799 @ 8667:            PUSHI  #0x00000073
800 @ 8672:            INIT   1
801 @ 8675:            PUSHI  #0x000000ae
802 @ 8680:            INIT   1
803 @ 8683:            PUSHI  #0x0000006e
804 @ 8688:            INIT   1
805 @ 8691:            PUSHI  #0x00000064
806 @ 8696:            INIT   1
807 @ 8699:            PUSHI  #0x000000c0
808 @ 8704:            INIT   1
809 @ 8707:            PUSHI  #0x00000065
810 @ 8712:            INIT   1
811 @ 8715:            PUSHI  #0x00000067
812 @ 8720:            INIT   1
813 @ 8723:            PUSHI  #0x00000069
814 @ 8728:            INIT   1
815 @ 8731:            PUSHI  #0x0000006e
816 @ 8736:            INIT   1
817 @ 8739:            PUSHI  #0x00000085
818 @ 8744:            INIT   1
819 @ 8747:            PUSHI  #0x00000079
820 @ 8752:            INIT   1
821 @ 8755:            PUSHI  #0x00000074
822 @ 8760:            INIT   1
823 @ 8763:            PUSHI  #0x00000065
824 @ 8768:            INIT   1
825 @ 8771:            PUSHI  #0x00000099
826 @ 8776:            INIT   1
827 @ 8779:            PUSHI  #0x00000069
828 @ 8784:            INIT   1
829 @ 8787:            PUSHI  #0x00000074
830 @ 8792:            INIT   1
831 @ 8795:            PUSHI  #0x00000099
832 @ 8800:            INIT   1
833 @ 8803:            PUSHI  #0x0000006f
834 @ 8808:            INIT   1
835 @ 8811:            PUSHI  #0x0000006e
836 @ 8816:            INIT   1
837 @ 8819:            PUSHI  #0x00000074
838 @ 8824:            INIT   1
839 @ 8827:            PUSHI  #0x00000069
840 @ 8832:            INIT   1
841 @ 8835:            PUSHI  #0x0000006e
842 @ 8840:            INIT   1
843 @ 8843:            PUSHI  #0x00000075
844 @ 8848:            INIT   1
845 @ 8851:            PUSHI  #0x00000065
846 @ 8856:            INIT   1
847 @ 8859:            PUSHI  #0x00000086
848 @ 8864:            INIT   1
849 @ 8867:            PUSHI  #0x00000079
850 @ 8872:            INIT   1
851 @ 8875:            PUSHI  #0x00000063
852 @ 8880:            INIT   1
853 @ 8883:            PUSHI  #0x0000006c
854 @ 8888:            INIT   1
855 @ 8891:            PUSHI  #0x00000065
856 @ 8896:            INIT   1
857 @ 8899:            PUSHI  #0x00000096
858 @ 8904:            INIT   1
859 @ 8907:            PUSHI  #0x0000006d
860 @ 8912:            INIT   1
861 @ 8915:            PUSHI  #0x0000006d
862 @ 8920:            INIT   1
863 @ 8923:            PUSHI  #0x00000065
864 @ 8928:            INIT   1
865 @ 8931:            PUSHI  #0x0000006e
866 @ 8936:            INIT   1
867 @ 8939:            PUSHI  #0x00000074
868 @ 8944:            INIT   1
869 @ 8947:            PUSHI  #0x000000ab
870 @ 8952:            INIT   1
871 @ 8955:            PUSHI  #0x00000073
872 @ 8960:            INIT   1
873 @ 8963:            PUSHI  #0x00000074
874 @ 8968:            INIT   1
875 @ 8971:            PUSHI  #0x00000061
876 @ 8976:            INIT   1
877 @ 8979:            PUSHI  #0x0000006e
878 @ 8984:            INIT   1
879 @ 8987:            PUSHI  #0x00000074
880 @ 8992:            INIT   1
881 @ 8995:            PUSHI  #0x00000098
882 @ 9000:            INIT   1
883 @ 9003:            PUSHI  #0x00000098
884 @ 9008:            INIT   1
885 @ 9011:            PUSHI  #0x00000072
886 @ 9016:            INIT   1
887 @ 9019:            PUSHI  #0x0000006f
888 @ 9024:            INIT   1
889 @ 9027:            PUSHI  #0x0000006c
890 @ 9032:            INIT   1
891 @ 9035:            PUSHI  #0x000000aa
892 @ 9040:            INIT   1
893 @ 9043:            PUSHI  #0x00000079
894 @ 9048:            INIT   1
895 @ 9051:            PUSHI  #0x0000006e
896 @ 9056:            INIT   1
897 @ 9059:            PUSHI  #0x00000061
898 @ 9064:            INIT   1
899 @ 9067:            PUSHI  #0x0000006d
900 @ 9072:            INIT   1
901 @ 9075:            PUSHI  #0x00000069
902 @ 9080:            INIT   1
903 @ 9083:            PUSHI  #0x00000063
904 @ 9088:            INIT   1
905 @ 9091:            PUSHI  #0x00000098
906 @ 9096:            INIT   1
907 @ 9099:            PUSHI  #0x0000006e
908 @ 9104:            INIT   1
909 @ 9107:            PUSHI  #0x00000064
910 @ 9112:            INIT   1
911 @ 9115:            PUSHI  #0x00000081
912 @ 9120:            INIT   1
913 @ 9123:            PUSHI  #0x0000006c
914 @ 9128:            INIT   1
915 @ 9131:            PUSHI  #0x00000073
916 @ 9136:            INIT   1
917 @ 9139:            PUSHI  #0x00000065
918 @ 9144:            INIT   1
919 @ 9147:            PUSHI  #0x00000084
920 @ 9152:            INIT   1
921 @ 9155:            PUSHI  #0x00000078
922 @ 9160:            INIT   1
923 @ 9163:            PUSHI  #0x00000069
924 @ 9168:            INIT   1
925 @ 9171:            PUSHI  #0x00000074
926 @ 9176:            INIT   1
927 @ 9179:            PUSHI  #0x00000086
928 @ 9184:            INIT   1
929 @ 9187:            PUSHI  #0x00000076
930 @ 9192:            INIT   1
931 @ 9195:            PUSHI  #0x00000065
932 @ 9200:            INIT   1
933 @ 9203:            PUSHI  #0x0000006e
934 @ 9208:            INIT   1
935 @ 9211:            PUSHI  #0x00000074
936 @ 9216:            INIT   1
937 @ 9219:            PUSHI  #0x000000ac
938 @ 9224:            INIT   1
939 @ 9227:            PUSHI  #0x00000074
940 @ 9232:            INIT   1
941 @ 9235:            PUSHI  #0x00000065
942 @ 9240:            INIT   1
943 @ 9243:            PUSHI  #0x00000072
944 @ 9248:            INIT   1
945 @ 9251:            PUSHI  #0x0000006e
946 @ 9256:            INIT   1
947 @ 9259:            PUSHI  #0x00000061
948 @ 9264:            INIT   1
949 @ 9267:            PUSHI  #0x0000006c
950 @ 9272:            INIT   1
951 @ 9275:            PUSHI  #0x00000098
952 @ 9280:            INIT   1
953 @ 9283:            PUSHI  #0x00000069
954 @ 9288:            INIT   1
955 @ 9291:            PUSHI  #0x0000006e
956 @ 9296:            INIT   1
957 @ 9299:            PUSHI  #0x00000069
958 @ 9304:            INIT   1
959 @ 9307:            PUSHI  #0x00000073
960 @ 9312:            INIT   1
961 @ 9315:            PUSHI  #0x00000068
962 @ 9320:            INIT   1
963 @ 9323:            PUSHI  #0x00000083
964 @ 9328:            INIT   1
965 @ 9331:            PUSHI  #0x00000061
966 @ 9336:            INIT   1
967 @ 9339:            PUSHI  #0x0000006c
968 @ 9344:            INIT   1
969 @ 9347:            PUSHI  #0x00000073
970 @ 9352:            INIT   1
971 @ 9355:            PUSHI  #0x00000065
972 @ 9360:            INIT   1
973 @ 9363:            PUSHI  #0x00000088
974 @ 9368:            INIT   1
975 @ 9371:            PUSHI  #0x0000006f
976 @ 9376:            INIT   1
977 @ 9379:            PUSHI  #0x00000072
978 @ 9384:            INIT   1
979 @ 9387:            PUSHI  #0x0000006d
980 @ 9392:            INIT   1
981 @ 9395:            PUSHI  #0x00000061
982 @ 9400:            INIT   1
983 @ 9403:            PUSHI  #0x00000074
984 @ 9408:            INIT   1
985 @ 9411:            PUSHI  #0x0000009f
986 @ 9416:            INIT   1
987 @ 9419:            PUSHI  #0x0000006e
988 @ 9424:            INIT   1
989 @ 9427:            PUSHI  #0x000000a0
990 @ 9432:            INIT   1
991 @ 9435:            PUSHI  #0x00000075
992 @ 9440:            INIT   1
993 @ 9443:            PUSHI  #0x0000006e
994 @ 9448:            INIT   1
995 @ 9451:            PUSHI  #0x00000063
996 @ 9456:            INIT   1
997 @ 9459:            PUSHI  #0x00000074
998 @ 9464:            INIT   1
999 @ 9467:            PUSHI  #0x00000069
1000 @ 9472:            INIT   1
1001 @ 9475:            PUSHI  #0x0000006f
1002 @ 9480:            INIT   1
1003 @ 9483:            PUSHI  #0x0000006e
1004 @ 9488:            INIT   1
1005 @ 9491:            PUSHI  #0x000000a0
1006 @ 9496:            INIT   1
1007 @ 9499:            PUSHI  #0x00000093
1008 @ 9504:            INIT   1
1009 @ 9507:            PUSHI  #0x0000006c
1010 @ 9512:            INIT   1
1011 @ 9515:            PUSHI  #0x00000065
1012 @ 9520:            INIT   1
1013 @ 9523:            PUSHI  #0x000000a7
1014 @ 9528:            INIT   1
1015 @ 9531:            PUSHI  #0x0000006f
1016 @ 9536:            INIT   1
1017 @ 9539:            PUSHI  #0x00000074
1018 @ 9544:            INIT   1
1019 @ 9547:            PUSHI  #0x0000006f
1020 @ 9552:            INIT   1
1021 @ 9555:            PUSHI  #0x0000008b
1022 @ 9560:            INIT   1
1023 @ 9563:            PUSHI  #0x00000061
1024 @ 9568:            INIT   1
1025 @ 9571:            PUSHI  #0x0000006c
1026 @ 9576:            INIT   1
1027 @ 9579:            PUSHI  #0x00000066
1028 @ 9584:            INIT   1
1029 @ 9587:            PUSHI  #0x00000099
1030 @ 9592:            INIT   1
1031 @ 9595:            PUSHI  #0x00000066
1032 @ 9600:            INIT   1
1033 @ 9603:            PUSHI  #0x00000090
1034 @ 9608:            INIT   1
1035 @ 9611:            PUSHI  #0x0000006e
1036 @ 9616:            INIT   1
1037 @ 9619:            PUSHI  #0x00000074
1038 @ 9624:            INIT   1
1039 @ 9627:            PUSHI  #0x00000065
1040 @ 9632:            INIT   1
1041 @ 9635:            PUSHI  #0x00000067
1042 @ 9640:            INIT   1
1043 @ 9643:            PUSHI  #0x00000065
1044 @ 9648:            INIT   1
1045 @ 9651:            PUSHI  #0x00000072
1046 @ 9656:            INIT   1
1047 @ 9659:            PUSHI  #0x0000009b
1048 @ 9664:            INIT   1
1049 @ 9667:            PUSHI  #0x00000063
1050 @ 9672:            INIT   1
1051 @ 9675:            PUSHI  #0x0000006c
1052 @ 9680:            INIT   1
1053 @ 9683:            PUSHI  #0x00000075
1054 @ 9688:            INIT   1
1055 @ 9691:            PUSHI  #0x00000064
1056 @ 9696:            INIT   1
1057 @ 9699:            PUSHI  #0x00000065
1058 @ 9704:            INIT   1
1059 @ 9707:            PUSHI  #0x000000ad
1060 @ 9712:            INIT   1
1061 @ 9715:            PUSHI  #0x00000061
1062 @ 9720:            INIT   1
1063 @ 9723:            PUSHI  #0x00000062
1064 @ 9728:            INIT   1
1065 @ 9731:            PUSHI  #0x00000065
1066 @ 9736:            INIT   1
1067 @ 9739:            PUSHI  #0x0000006c
1068 @ 9744:            INIT   1
1069 @ 9747:            PUSHI  #0x00000097
1070 @ 9752:            INIT   1
1071 @ 9755:            PUSHI  #0x0000006f
1072 @ 9760:            INIT   1
1073 @ 9763:            PUSHI  #0x0000006e
1074 @ 9768:            INIT   1
1075 @ 9771:            PUSHI  #0x00000067
1076 @ 9776:            INIT   1
1077 @ 9779:            PUSHI  #0x0000009a
1078 @ 9784:            INIT   1
1079 @ 9787:            PUSHI  #0x00000069
1080 @ 9792:            INIT   1
1081 @ 9795:            PUSHI  #0x00000073
1082 @ 9800:            INIT   1
1083 @ 9803:            PUSHI  #0x00000074
1084 @ 9808:            INIT   1
1085 @ 9811:            PUSHI  #0x000000a9
1086 @ 9816:            INIT   1
1087 @ 9819:            PUSHI  #0x0000006f
1088 @ 9824:            INIT   1
1089 @ 9827:            PUSHI  #0x0000006e
1090 @ 9832:            INIT   1
1091 @ 9835:            PUSHI  #0x00000069
1092 @ 9840:            INIT   1
1093 @ 9843:            PUSHI  #0x00000074
1094 @ 9848:            INIT   1
1095 @ 9851:            PUSHI  #0x0000006f
1096 @ 9856:            INIT   1
1097 @ 9859:            PUSHI  #0x00000072
1098 @ 9864:            INIT   1
1099 @ 9867:            PUSHI  #0x0000008d
1100 @ 9872:            INIT   1
1101 @ 9875:            PUSHI  #0x00000069
1102 @ 9880:            INIT   1
1103 @ 9883:            PUSHI  #0x00000074
1104 @ 9888:            INIT   1
1105 @ 9891:            PUSHI  #0x00000065
1106 @ 9896:            INIT   1
1107 @ 9899:            PUSHI  #0x00000099
1108 @ 9904:            INIT   1
1109 @ 9907:            PUSHI  #0x00000061
1110 @ 9912:            INIT   1
1111 @ 9915:            PUSHI  #0x00000070
1112 @ 9920:            INIT   1
1113 @ 9923:            PUSHI  #0x000000a0
1114 @ 9928:            INIT   1
1115 @ 9931:            PUSHI  #0x00000061
1116 @ 9936:            INIT   1
1117 @ 9939:            PUSHI  #0x0000006d
1118 @ 9944:            INIT   1
1119 @ 9947:            PUSHI  #0x00000065
1120 @ 9952:            INIT   1
1121 @ 9955:            PUSHI  #0x000000a4
1122 @ 9960:            INIT   1
1123 @ 9963:            PUSHI  #0x0000006f
1124 @ 9968:            INIT   1
1125 @ 9971:            PUSHI  #0x00000074
1126 @ 9976:            INIT   1
1127 @ 9979:            PUSHI  #0x000000af
1128 @ 9984:            INIT   1
1129 @ 9987:            PUSHI  #0x0000006e
1130 @ 9992:            INIT   1
1131 @ 9995:            PUSHI  #0x0000008f
1132 @ 10000:            INIT   1
1133 @ 10003:            PUSHI  #0x00000077
1134 @ 10008:            INIT   1
1135 @ 10011:            PUSHI  #0x0000006e
1136 @ 10016:            INIT   1
1137 @ 10019:            PUSHI  #0x00000098
1138 @ 10024:            INIT   1
1139 @ 10027:            PUSHI  #0x00000066
1140 @ 10032:            INIT   1
1141 @ 10035:            PUSHI  #0x000000a6
1142 @ 10040:            INIT   1
1143 @ 10043:            PUSHI  #0x00000072
1144 @ 10048:            INIT   1
1145 @ 10051:            PUSHI  #0x000000c1
1146 @ 10056:            INIT   1
1147 @ 10059:            PUSHI  #0x00000072
1148 @ 10064:            INIT   1
1149 @ 10067:            PUSHI  #0x00000065
1150 @ 10072:            INIT   1
1151 @ 10075:            PUSHI  #0x00000064
1152 @ 10080:            INIT   1
1153 @ 10083:            PUSHI  #0x00000069
1154 @ 10088:            INIT   1
1155 @ 10091:            PUSHI  #0x00000063
1156 @ 10096:            INIT   1
1157 @ 10099:            PUSHI  #0x00000061
1158 @ 10104:            INIT   1
1159 @ 10107:            PUSHI  #0x00000074
1160 @ 10112:            INIT   1
1161 @ 10115:            PUSHI  #0x00000065
1162 @ 10120:            INIT   1
1163 @ 10123:            PUSHI  #0x000000a1
1164 @ 10128:            INIT   1
1165 @ 10131:            PUSHI  #0x0000006f
1166 @ 10136:            INIT   1
1167 @ 10139:            PUSHI  #0x00000067
1168 @ 10144:            INIT   1
1169 @ 10147:            PUSHI  #0x00000072
1170 @ 10152:            INIT   1
1171 @ 10155:            PUSHI  #0x00000061
1172 @ 10160:            INIT   1
1173 @ 10163:            PUSHI  #0x0000006d
1174 @ 10168:            INIT   1
1175 @ 10171:            PUSHI  #0x000000a8
1176 @ 10176:            INIT   1
1177 @ 10179:            PUSHI  #0x00000065
1178 @ 10184:            INIT   1
1179 @ 10187:            PUSHI  #0x00000070
1180 @ 10192:            INIT   1
1181 @ 10195:            PUSHI  #0x00000065
1182 @ 10200:            INIT   1
1183 @ 10203:            PUSHI  #0x00000061
1184 @ 10208:            INIT   1
1185 @ 10211:            PUSHI  #0x00000074
1186 @ 10216:            INIT   1
1187 @ 10219:            PUSHI  #0x00000082
1188 @ 10224:            INIT   1
1189 @ 10227:            PUSHI  #0x0000006f
1190 @ 10232:            INIT   1
1191 @ 10235:            PUSHI  #0x00000075
1192 @ 10240:            INIT   1
1193 @ 10243:            PUSHI  #0x00000074
1194 @ 10248:            INIT   1
1195 @ 10251:            PUSHI  #0x00000069
1196 @ 10256:            INIT   1
1197 @ 10259:            PUSHI  #0x0000006e
1198 @ 10264:            INIT   1
1199 @ 10267:            PUSHI  #0x00000065
1200 @ 10272:            INIT   1
1201 @ 10275:            PUSHI  #0x000000a1
1202 @ 10280:            INIT   1
1203 @ 10283:            PUSHI  #0x00000074
1204 @ 10288:            INIT   1
1205 @ 10291:            PUSHI  #0x00000075
1206 @ 10296:            INIT   1
1207 @ 10299:            PUSHI  #0x00000072
1208 @ 10304:            INIT   1
1209 @ 10307:            PUSHI  #0x0000006e
1210 @ 10312:            INIT   1
1211 @ 10315:            PUSHI  #0x00000087
1212 @ 10320:            INIT   1
1213 @ 10323:            PUSHI  #0x00000073
1214 @ 10328:            INIT   1
1215 @ 10331:            PUSHI  #0x00000075
1216 @ 10336:            INIT   1
1217 @ 10339:            PUSHI  #0x0000006c
1218 @ 10344:            INIT   1
1219 @ 10347:            PUSHI  #0x00000074
1220 @ 10352:            INIT   1
1221 @ 10355:            PUSHI  #0x00000089
1222 @ 10360:            INIT   1
1223 @ 10363:            PUSHI  #0x00000061
1224 @ 10368:            INIT   1
1225 @ 10371:            PUSHI  #0x0000006c
1226 @ 10376:            INIT   1
1227 @ 10379:            PUSHI  #0x0000009c
1228 @ 10384:            INIT   1
1229 @ 10387:            PUSHI  #0x00000063
1230 @ 10392:            INIT   1
1231 @ 10395:            PUSHI  #0x0000006f
1232 @ 10400:            INIT   1
1233 @ 10403:            PUSHI  #0x00000072
1234 @ 10408:            INIT   1
1235 @ 10411:            PUSHI  #0x00000064
1236 @ 10416:            INIT   1
1237 @ 10419:            PUSHI  #0x0000009e
1238 @ 10424:            INIT   1
1239 @ 10427:            PUSHI  #0x00000074
1240 @ 10432:            INIT   1
1241 @ 10435:            PUSHI  #0x0000006f
1242 @ 10440:            INIT   1
1243 @ 10443:            PUSHI  #0x00000070
1244 @ 10448:            INIT   1
1245 @ 10451:            PUSHI  #0x0000008a
1246 @ 10456:            INIT   1
1247 @ 10459:            PUSHI  #0x00000069
1248 @ 10464:            INIT   1
1249 @ 10467:            PUSHI  #0x00000067
1250 @ 10472:            INIT   1
1251 @ 10475:            PUSHI  #0x0000006e
1252 @ 10480:            INIT   1
1253 @ 10483:            PUSHI  #0x00000061
1254 @ 10488:            INIT   1
1255 @ 10491:            PUSHI  #0x0000006c
1256 @ 10496:            INIT   1
1257 @ 10499:            PUSHI  #0x0000008c
1258 @ 10504:            INIT   1
1259 @ 10507:            PUSHI  #0x00000079
1260 @ 10512:            INIT   1
1261 @ 10515:            PUSHI  #0x00000073
1262 @ 10520:            INIT   1
1263 @ 10523:            PUSHI  #0x00000074
1264 @ 10528:            INIT   1
1265 @ 10531:            PUSHI  #0x00000065
1266 @ 10536:            INIT   1
1267 @ 10539:            PUSHI  #0x0000006d
1268 @ 10544:            INIT   1
1269 @ 10547:            PUSHI  #0x00000098
1270 @ 10552:            INIT   1
1271 @ 10555:            PUSHI  #0x00000068
1272 @ 10560:            INIT   1
1273 @ 10563:            PUSHI  #0x0000006f
1274 @ 10568:            INIT   1
1275 @ 10571:            PUSHI  #0x00000072
1276 @ 10576:            INIT   1
1277 @ 10579:            PUSHI  #0x00000074
1278 @ 10584:            INIT   1
1279 @ 10587:            PUSHI  #0x00000099
1280 @ 10592:            INIT   1
1281 @ 10595:            PUSHI  #0x00000070
1282 @ 10600:            INIT   1
1283 @ 10603:            PUSHI  #0x00000065
1284 @ 10608:            INIT   1
1285 @ 10611:            PUSHI  #0x00000063
1286 @ 10616:            INIT   1
1287 @ 10619:            PUSHI  #0x000000a2
1288 @ 10624:            INIT   1
1289 @ 10627:            PUSHI  #0x00000077
1290 @ 10632:            INIT   1
1291 @ 10635:            PUSHI  #0x00000069
1292 @ 10640:            INIT   1
1293 @ 10643:            PUSHI  #0x00000074
1294 @ 10648:            INIT   1
1295 @ 10651:            PUSHI  #0x00000063
1296 @ 10656:            INIT   1
1297 @ 10659:            PUSHI  #0x00000068
1298 @ 10664:            INIT   1
1299 @ 10667:            PUSHI  #0x000000a5
1300 @ 10672:            INIT   1
1301 @ 10675:            PUSHI  #0x00000061
1302 @ 10680:            INIT   1
1303 @ 10683:            PUSHI  #0x00000072
1304 @ 10688:            INIT   1
1305 @ 10691:            PUSHI  #0x00000074
1306 @ 10696:            INIT   1
1307 @ 10699:            PUSHI  #0x00000095
1308 @ 10704:            INIT   1
1309 @ 10707:            PUSHI  #0x00000072
1310 @ 10712:            INIT   1
1311 @ 10715:            PUSHI  #0x00000069
1312 @ 10720:            INIT   1
1313 @ 10723:            PUSHI  #0x0000006e
1314 @ 10728:            INIT   1
1315 @ 10731:            PUSHI  #0x00000067
1316 @ 10736:            INIT   1
1317 @ 10739:            PUSHI  #0x0000009d
1318 @ 10744:            INIT   1
1319 @ 10747:            PUSHI  #0x00000072
1320 @ 10752:            INIT   1
1321 @ 10755:            PUSHI  #0x00000075
1322 @ 10760:            INIT   1
1323 @ 10763:            PUSHI  #0x00000065
1324 @ 10768:            INIT   1
1325 @ 10771:            PUSHI  #0x00000088
1326 @ 10776:            INIT   1
1327 @ 10779:            PUSHI  #0x00000068
1328 @ 10784:            INIT   1
1329 @ 10787:            PUSHI  #0x00000065
1330 @ 10792:            INIT   1
1331 @ 10795:            PUSHI  #0x0000006e
1332 @ 10800:            INIT   1
1333 @ 10803:            PUSHI  #0x00000094
1334 @ 10808:            INIT   1
1335 @ 10811:            PUSHI  #0x0000006e
1336 @ 10816:            INIT   1
1337 @ 10819:            PUSHI  #0x0000006c
1338 @ 10824:            INIT   1
1339 @ 10827:            PUSHI  #0x00000065
1340 @ 10832:            INIT   1
1341 @ 10835:            PUSHI  #0x00000073
1342 @ 10840:            INIT   1
1343 @ 10843:            PUSHI  #0x00000073
1344 @ 10848:            INIT   1
1345 @ 10851:            PUSHI  #0x00000090
1346 @ 10856:            INIT   1
1347 @ 10859:            PUSHI  #0x00000074
1348 @ 10864:            INIT   1
1349 @ 10867:            PUSHI  #0x00000069
1350 @ 10872:            INIT   1
1351 @ 10875:            PUSHI  #0x0000006c
1352 @ 10880:            INIT   1
1353 @ 10883:            PUSHI  #0x00000092
1354 @ 10888:            INIT   1
1355 @ 10891:            PUSHI  #0x00000068
1356 @ 10896:            INIT   1
1357 @ 10899:            PUSHI  #0x00000069
1358 @ 10904:            INIT   1
1359 @ 10907:            PUSHI  #0x0000006c
1360 @ 10912:            INIT   1
1361 @ 10915:            PUSHI  #0x00000065
1362 @ 10920:            INIT   1
1363 @ 10923:            PUSHI  #0x00000091
1364 @ 10928:            INIT   1

   260  %CONSTBYTEINTEGERARRAY ALTDISP(1:292) =  %C
   261    0,  5,  0,  0,  0,  0,  5,  0,  0,  0,  0,  0,  0,  0,  5,  0,
   262    0,  0,  0,  4,  0,  0,  3,  0,  0,  5,  8, 12, 17, 23,  0,  0,
   263    0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  4,
   264    0,  0,  9,  9,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0, 40,  3,
   265    0,  0,  4,  0,  0,  0,  4,  8,  0,  1,  0,  0,  0,  0,  0,  0,
   266    0,  0,  0,  0,  0, 40,  6, 27,  0,  0,  0,  0,  5,  0,  0,  0,
   267    0,  6,  0, 14,  0,  0,  0,  2,  0,  0,  0,  0,  0,  0,  0,  0,
   268    0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  2,  2,  0,  0,
   269    6,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  5,  0,  0,  0,
   270    0,  4,  0,  0,  0,  0,  0,  0,  0,  7,  0,  0,  0,  0,  0,  0,
   271    4,  0,  0,  4,  0,  0,  1,  4,  0,  0,  0,  0,  0,  0,  2,  0,
   272    3,  0,  8,  2,  0,  0,  0,  0,  8,  0,  0,  0,  0,  0,  0,  1,
   273    0,  0,  0,  0,  0,  0,  6, 12,  0,  0,  0,  0,  0,  0,  0,  0,
   274    0,  0,  0,  5,  0,  0,  0,  0,  5,  0,  0,  0,  0,  3,  0,  0,
   275    0,  0,  0,  0,  0,  4, 30,  0,  0,  6,  0,  0,  0,  0,  0,  6,
   276    0,  0,  0,  0, 40,  5,  0,  0,  0,  1,  4,  0,  0,  0,  0,  0,
   277    0,  0,  0,  0,  4,  0,  0,  0,  0,  0,  0,  0,  0,  4,  0,  0,
   278    1,  0,  0,  0,  0,  0,  5,  0,  0,  0,  1,  0,  0,  0,  1,  0,
   279    0,  0,  0,  0
   280  
   281  
   282  !*!!!!!!   end of generated tables    !!!!!!!!!!!!!!!!!!!!!!!!!!!
   283  !
1365 @ 10931:            LINE   260 "regression-compile-tmp/chimps.imp"
1366 @ 10968:            PUSHI  #0x00000001
1367 @ 10973:            PUSHI  #0x00000124
1368 @ 10978:            BOUNDS
1369 @ 10979:            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
1370 @ 10998:            PUSHI  #0x00000000
1371 @ 11003:            INIT   1
1372 @ 11006:            PUSHI  #0x00000005
1373 @ 11011:            INIT   1
1374 @ 11014:            PUSHI  #0x00000000
1375 @ 11019:            INIT   1
1376 @ 11022:            PUSHI  #0x00000000
1377 @ 11027:            INIT   1
1378 @ 11030:            PUSHI  #0x00000000
1379 @ 11035:            INIT   1
1380 @ 11038:            PUSHI  #0x00000000
1381 @ 11043:            INIT   1
1382 @ 11046:            PUSHI  #0x00000005
1383 @ 11051:            INIT   1
1384 @ 11054:            PUSHI  #0x00000000
1385 @ 11059:            INIT   1
1386 @ 11062:            PUSHI  #0x00000000
1387 @ 11067:            INIT   1
1388 @ 11070:            PUSHI  #0x00000000
1389 @ 11075:            INIT   1
1390 @ 11078:            PUSHI  #0x00000000
1391 @ 11083:            INIT   1
1392 @ 11086:            PUSHI  #0x00000000
1393 @ 11091:            INIT   1
1394 @ 11094:            PUSHI  #0x00000000
1395 @ 11099:            INIT   1
1396 @ 11102:            PUSHI  #0x00000000
1397 @ 11107:            INIT   1
1398 @ 11110:            PUSHI  #0x00000005
1399 @ 11115:            INIT   1
1400 @ 11118:            PUSHI  #0x00000000
1401 @ 11123:            INIT   1
1402 @ 11126:            PUSHI  #0x00000000
1403 @ 11131:            INIT   1
1404 @ 11134:            PUSHI  #0x00000000
1405 @ 11139:            INIT   1
1406 @ 11142:            PUSHI  #0x00000000
1407 @ 11147:            INIT   1
1408 @ 11150:            PUSHI  #0x00000004
1409 @ 11155:            INIT   1
1410 @ 11158:            PUSHI  #0x00000000
1411 @ 11163:            INIT   1
1412 @ 11166:            PUSHI  #0x00000000
1413 @ 11171:            INIT   1
1414 @ 11174:            PUSHI  #0x00000003
1415 @ 11179:            INIT   1
1416 @ 11182:            PUSHI  #0x00000000
1417 @ 11187:            INIT   1
1418 @ 11190:            PUSHI  #0x00000000
1419 @ 11195:            INIT   1
1420 @ 11198:            PUSHI  #0x00000005
1421 @ 11203:            INIT   1
1422 @ 11206:            PUSHI  #0x00000008
1423 @ 11211:            INIT   1
1424 @ 11214:            PUSHI  #0x0000000c
1425 @ 11219:            INIT   1
1426 @ 11222:            PUSHI  #0x00000011
1427 @ 11227:            INIT   1
1428 @ 11230:            PUSHI  #0x00000017
1429 @ 11235:            INIT   1
1430 @ 11238:            PUSHI  #0x00000000
1431 @ 11243:            INIT   1
1432 @ 11246:            PUSHI  #0x00000000
1433 @ 11251:            INIT   1
1434 @ 11254:            PUSHI  #0x00000000
1435 @ 11259:            INIT   1
1436 @ 11262:            PUSHI  #0x00000000
1437 @ 11267:            INIT   1
1438 @ 11270:            PUSHI  #0x00000000
1439 @ 11275:            INIT   1
1440 @ 11278:            PUSHI  #0x00000000
1441 @ 11283:            INIT   1
1442 @ 11286:            PUSHI  #0x00000000
1443 @ 11291:            INIT   1
1444 @ 11294:            PUSHI  #0x00000000
1445 @ 11299:            INIT   1
1446 @ 11302:            PUSHI  #0x00000000
1447 @ 11307:            INIT   1
1448 @ 11310:            PUSHI  #0x00000000
1449 @ 11315:            INIT   1
1450 @ 11318:            PUSHI  #0x00000000
1451 @ 11323:            INIT   1
1452 @ 11326:            PUSHI  #0x00000000
1453 @ 11331:            INIT   1
1454 @ 11334:            PUSHI  #0x00000000
1455 @ 11339:            INIT   1
1456 @ 11342:            PUSHI  #0x00000000
1457 @ 11347:            INIT   1
1458 @ 11350:            PUSHI  #0x00000000
1459 @ 11355:            INIT   1
1460 @ 11358:            PUSHI  #0x00000000
1461 @ 11363:            INIT   1
1462 @ 11366:            PUSHI  #0x00000000
1463 @ 11371:            INIT   1
1464 @ 11374:            PUSHI  #0x00000004
1465 @ 11379:            INIT   1
1466 @ 11382:            PUSHI  #0x00000000
1467 @ 11387:            INIT   1
1468 @ 11390:            PUSHI  #0x00000000
1469 @ 11395:            INIT   1
1470 @ 11398:            PUSHI  #0x00000009
1471 @ 11403:            INIT   1
1472 @ 11406:            PUSHI  #0x00000009
1473 @ 11411:            INIT   1
1474 @ 11414:            PUSHI  #0x00000000
1475 @ 11419:            INIT   1
1476 @ 11422:            PUSHI  #0x00000000
1477 @ 11427:            INIT   1
1478 @ 11430:            PUSHI  #0x00000000
1479 @ 11435:            INIT   1
1480 @ 11438:            PUSHI  #0x00000000
1481 @ 11443:            INIT   1
1482 @ 11446:            PUSHI  #0x00000000
1483 @ 11451:            INIT   1
1484 @ 11454:            PUSHI  #0x00000000
1485 @ 11459:            INIT   1
1486 @ 11462:            PUSHI  #0x00000000
1487 @ 11467:            INIT   1
1488 @ 11470:            PUSHI  #0x00000000
1489 @ 11475:            INIT   1
1490 @ 11478:            PUSHI  #0x00000000
1491 @ 11483:            INIT   1
1492 @ 11486:            PUSHI  #0x00000000
1493 @ 11491:            INIT   1
1494 @ 11494:            PUSHI  #0x00000028
1495 @ 11499:            INIT   1
1496 @ 11502:            PUSHI  #0x00000003
1497 @ 11507:            INIT   1
1498 @ 11510:            PUSHI  #0x00000000
1499 @ 11515:            INIT   1
1500 @ 11518:            PUSHI  #0x00000000
1501 @ 11523:            INIT   1
1502 @ 11526:            PUSHI  #0x00000004
1503 @ 11531:            INIT   1
1504 @ 11534:            PUSHI  #0x00000000
1505 @ 11539:            INIT   1
1506 @ 11542:            PUSHI  #0x00000000
1507 @ 11547:            INIT   1
1508 @ 11550:            PUSHI  #0x00000000
1509 @ 11555:            INIT   1
1510 @ 11558:            PUSHI  #0x00000004
1511 @ 11563:            INIT   1
1512 @ 11566:            PUSHI  #0x00000008
1513 @ 11571:            INIT   1
1514 @ 11574:            PUSHI  #0x00000000
1515 @ 11579:            INIT   1
1516 @ 11582:            PUSHI  #0x00000001
1517 @ 11587:            INIT   1
1518 @ 11590:            PUSHI  #0x00000000
1519 @ 11595:            INIT   1
1520 @ 11598:            PUSHI  #0x00000000
1521 @ 11603:            INIT   1
1522 @ 11606:            PUSHI  #0x00000000
1523 @ 11611:            INIT   1
1524 @ 11614:            PUSHI  #0x00000000
1525 @ 11619:            INIT   1
1526 @ 11622:            PUSHI  #0x00000000
1527 @ 11627:            INIT   1
1528 @ 11630:            PUSHI  #0x00000000
1529 @ 11635:            INIT   1
1530 @ 11638:            PUSHI  #0x00000000
1531 @ 11643:            INIT   1
1532 @ 11646:            PUSHI  #0x00000000
1533 @ 11651:            INIT   1
1534 @ 11654:            PUSHI  #0x00000000
1535 @ 11659:            INIT   1
1536 @ 11662:            PUSHI  #0x00000000
1537 @ 11667:            INIT   1
1538 @ 11670:            PUSHI  #0x00000000
1539 @ 11675:            INIT   1
1540 @ 11678:            PUSHI  #0x00000028
1541 @ 11683:            INIT   1
1542 @ 11686:            PUSHI  #0x00000006
1543 @ 11691:            INIT   1
1544 @ 11694:            PUSHI  #0x0000001b
1545 @ 11699:            INIT   1
1546 @ 11702:            PUSHI  #0x00000000
1547 @ 11707:            INIT   1
1548 @ 11710:            PUSHI  #0x00000000
1549 @ 11715:            INIT   1
1550 @ 11718:            PUSHI  #0x00000000
1551 @ 11723:            INIT   1
1552 @ 11726:            PUSHI  #0x00000000
1553 @ 11731:            INIT   1
1554 @ 11734:            PUSHI  #0x00000005
1555 @ 11739:            INIT   1
1556 @ 11742:            PUSHI  #0x00000000
1557 @ 11747:            INIT   1
1558 @ 11750:            PUSHI  #0x00000000
1559 @ 11755:            INIT   1
1560 @ 11758:            PUSHI  #0x00000000
1561 @ 11763:            INIT   1
1562 @ 11766:            PUSHI  #0x00000000
1563 @ 11771:            INIT   1
1564 @ 11774:            PUSHI  #0x00000006
1565 @ 11779:            INIT   1
1566 @ 11782:            PUSHI  #0x00000000
1567 @ 11787:            INIT   1
1568 @ 11790:            PUSHI  #0x0000000e
1569 @ 11795:            INIT   1
1570 @ 11798:            PUSHI  #0x00000000
1571 @ 11803:            INIT   1
1572 @ 11806:            PUSHI  #0x00000000
1573 @ 11811:            INIT   1
1574 @ 11814:            PUSHI  #0x00000000
1575 @ 11819:            INIT   1
1576 @ 11822:            PUSHI  #0x00000002
1577 @ 11827:            INIT   1
1578 @ 11830:            PUSHI  #0x00000000
1579 @ 11835:            INIT   1
1580 @ 11838:            PUSHI  #0x00000000
1581 @ 11843:            INIT   1
1582 @ 11846:            PUSHI  #0x00000000
1583 @ 11851:            INIT   1
1584 @ 11854:            PUSHI  #0x00000000
1585 @ 11859:            INIT   1
1586 @ 11862:            PUSHI  #0x00000000
1587 @ 11867:            INIT   1
1588 @ 11870:            PUSHI  #0x00000000
1589 @ 11875:            INIT   1
1590 @ 11878:            PUSHI  #0x00000000
1591 @ 11883:            INIT   1
1592 @ 11886:            PUSHI  #0x00000000
1593 @ 11891:            INIT   1
1594 @ 11894:            PUSHI  #0x00000000
1595 @ 11899:            INIT   1
1596 @ 11902:            PUSHI  #0x00000000
1597 @ 11907:            INIT   1
1598 @ 11910:            PUSHI  #0x00000000
1599 @ 11915:            INIT   1
1600 @ 11918:            PUSHI  #0x00000000
1601 @ 11923:            INIT   1
1602 @ 11926:            PUSHI  #0x00000000
1603 @ 11931:            INIT   1
1604 @ 11934:            PUSHI  #0x00000000
1605 @ 11939:            INIT   1
1606 @ 11942:            PUSHI  #0x00000000
1607 @ 11947:            INIT   1
1608 @ 11950:            PUSHI  #0x00000000
1609 @ 11955:            INIT   1
1610 @ 11958:            PUSHI  #0x00000000
1611 @ 11963:            INIT   1
1612 @ 11966:            PUSHI  #0x00000000
1613 @ 11971:            INIT   1
1614 @ 11974:            PUSHI  #0x00000000
1615 @ 11979:            INIT   1
1616 @ 11982:            PUSHI  #0x00000000
1617 @ 11987:            INIT   1
1618 @ 11990:            PUSHI  #0x00000002
1619 @ 11995:            INIT   1
1620 @ 11998:            PUSHI  #0x00000002
1621 @ 12003:            INIT   1
1622 @ 12006:            PUSHI  #0x00000000
1623 @ 12011:            INIT   1
1624 @ 12014:            PUSHI  #0x00000000
1625 @ 12019:            INIT   1
1626 @ 12022:            PUSHI  #0x00000006
1627 @ 12027:            INIT   1
1628 @ 12030:            PUSHI  #0x00000000
1629 @ 12035:            INIT   1
1630 @ 12038:            PUSHI  #0x00000000
1631 @ 12043:            INIT   1
1632 @ 12046:            PUSHI  #0x00000000
1633 @ 12051:            INIT   1
1634 @ 12054:            PUSHI  #0x00000000
1635 @ 12059:            INIT   1
1636 @ 12062:            PUSHI  #0x00000000
1637 @ 12067:            INIT   1
1638 @ 12070:            PUSHI  #0x00000000
1639 @ 12075:            INIT   1
1640 @ 12078:            PUSHI  #0x00000000
1641 @ 12083:            INIT   1
1642 @ 12086:            PUSHI  #0x00000000
1643 @ 12091:            INIT   1
1644 @ 12094:            PUSHI  #0x00000000
1645 @ 12099:            INIT   1
1646 @ 12102:            PUSHI  #0x00000000
1647 @ 12107:            INIT   1
1648 @ 12110:            PUSHI  #0x00000000
1649 @ 12115:            INIT   1
1650 @ 12118:            PUSHI  #0x00000005
1651 @ 12123:            INIT   1
1652 @ 12126:            PUSHI  #0x00000000
1653 @ 12131:            INIT   1
1654 @ 12134:            PUSHI  #0x00000000
1655 @ 12139:            INIT   1
1656 @ 12142:            PUSHI  #0x00000000
1657 @ 12147:            INIT   1
1658 @ 12150:            PUSHI  #0x00000000
1659 @ 12155:            INIT   1
1660 @ 12158:            PUSHI  #0x00000004
1661 @ 12163:            INIT   1
1662 @ 12166:            PUSHI  #0x00000000
1663 @ 12171:            INIT   1
1664 @ 12174:            PUSHI  #0x00000000
1665 @ 12179:            INIT   1
1666 @ 12182:            PUSHI  #0x00000000
1667 @ 12187:            INIT   1
1668 @ 12190:            PUSHI  #0x00000000
1669 @ 12195:            INIT   1
1670 @ 12198:            PUSHI  #0x00000000
1671 @ 12203:            INIT   1
1672 @ 12206:            PUSHI  #0x00000000
1673 @ 12211:            INIT   1
1674 @ 12214:            PUSHI  #0x00000000
1675 @ 12219:            INIT   1
1676 @ 12222:            PUSHI  #0x00000007
1677 @ 12227:            INIT   1
1678 @ 12230:            PUSHI  #0x00000000
1679 @ 12235:            INIT   1
1680 @ 12238:            PUSHI  #0x00000000
1681 @ 12243:            INIT   1
1682 @ 12246:            PUSHI  #0x00000000
1683 @ 12251:            INIT   1
1684 @ 12254:            PUSHI  #0x00000000
1685 @ 12259:            INIT   1
1686 @ 12262:            PUSHI  #0x00000000
1687 @ 12267:            INIT   1
1688 @ 12270:            PUSHI  #0x00000000
1689 @ 12275:            INIT   1
1690 @ 12278:            PUSHI  #0x00000004
1691 @ 12283:            INIT   1
1692 @ 12286:            PUSHI  #0x00000000
1693 @ 12291:            INIT   1
1694 @ 12294:            PUSHI  #0x00000000
1695 @ 12299:            INIT   1
1696 @ 12302:            PUSHI  #0x00000004
1697 @ 12307:            INIT   1
1698 @ 12310:            PUSHI  #0x00000000
1699 @ 12315:            INIT   1
1700 @ 12318:            PUSHI  #0x00000000
1701 @ 12323:            INIT   1
1702 @ 12326:            PUSHI  #0x00000001
1703 @ 12331:            INIT   1
1704 @ 12334:            PUSHI  #0x00000004
1705 @ 12339:            INIT   1
1706 @ 12342:            PUSHI  #0x00000000
1707 @ 12347:            INIT   1
1708 @ 12350:            PUSHI  #0x00000000
1709 @ 12355:            INIT   1
1710 @ 12358:            PUSHI  #0x00000000
1711 @ 12363:            INIT   1
1712 @ 12366:            PUSHI  #0x00000000
1713 @ 12371:            INIT   1
1714 @ 12374:            PUSHI  #0x00000000
1715 @ 12379:            INIT   1
1716 @ 12382:            PUSHI  #0x00000000
1717 @ 12387:            INIT   1
1718 @ 12390:            PUSHI  #0x00000002
1719 @ 12395:            INIT   1
1720 @ 12398:            PUSHI  #0x00000000
1721 @ 12403:            INIT   1
1722 @ 12406:            PUSHI  #0x00000003
1723 @ 12411:            INIT   1
1724 @ 12414:            PUSHI  #0x00000000
1725 @ 12419:            INIT   1
1726 @ 12422:            PUSHI  #0x00000008
1727 @ 12427:            INIT   1
1728 @ 12430:            PUSHI  #0x00000002
1729 @ 12435:            INIT   1
1730 @ 12438:            PUSHI  #0x00000000
1731 @ 12443:            INIT   1
1732 @ 12446:            PUSHI  #0x00000000
1733 @ 12451:            INIT   1
1734 @ 12454:            PUSHI  #0x00000000
1735 @ 12459:            INIT   1
1736 @ 12462:            PUSHI  #0x00000000
1737 @ 12467:            INIT   1
1738 @ 12470:            PUSHI  #0x00000008
1739 @ 12475:            INIT   1
1740 @ 12478:            PUSHI  #0x00000000
1741 @ 12483:            INIT   1
1742 @ 12486:            PUSHI  #0x00000000
1743 @ 12491:            INIT   1
1744 @ 12494:            PUSHI  #0x00000000
1745 @ 12499:            INIT   1
1746 @ 12502:            PUSHI  #0x00000000
1747 @ 12507:            INIT   1
1748 @ 12510:            PUSHI  #0x00000000
1749 @ 12515:            INIT   1
1750 @ 12518:            PUSHI  #0x00000000
1751 @ 12523:            INIT   1
1752 @ 12526:            PUSHI  #0x00000001
1753 @ 12531:            INIT   1
1754 @ 12534:            PUSHI  #0x00000000
1755 @ 12539:            INIT   1
1756 @ 12542:            PUSHI  #0x00000000
1757 @ 12547:            INIT   1
1758 @ 12550:            PUSHI  #0x00000000
1759 @ 12555:            INIT   1
1760 @ 12558:            PUSHI  #0x00000000
1761 @ 12563:            INIT   1
1762 @ 12566:            PUSHI  #0x00000000
1763 @ 12571:            INIT   1
1764 @ 12574:            PUSHI  #0x00000000
1765 @ 12579:            INIT   1
1766 @ 12582:            PUSHI  #0x00000006
1767 @ 12587:            INIT   1
1768 @ 12590:            PUSHI  #0x0000000c
1769 @ 12595:            INIT   1
1770 @ 12598:            PUSHI  #0x00000000
1771 @ 12603:            INIT   1
1772 @ 12606:            PUSHI  #0x00000000
1773 @ 12611:            INIT   1
1774 @ 12614:            PUSHI  #0x00000000
1775 @ 12619:            INIT   1
1776 @ 12622:            PUSHI  #0x00000000
1777 @ 12627:            INIT   1
1778 @ 12630:            PUSHI  #0x00000000
1779 @ 12635:            INIT   1
1780 @ 12638:            PUSHI  #0x00000000
1781 @ 12643:            INIT   1
1782 @ 12646:            PUSHI  #0x00000000
1783 @ 12651:            INIT   1
1784 @ 12654:            PUSHI  #0x00000000
1785 @ 12659:            INIT   1
1786 @ 12662:            PUSHI  #0x00000000
1787 @ 12667:            INIT   1
1788 @ 12670:            PUSHI  #0x00000000
1789 @ 12675:            INIT   1
1790 @ 12678:            PUSHI  #0x00000000
1791 @ 12683:            INIT   1
1792 @ 12686:            PUSHI  #0x00000005
1793 @ 12691:            INIT   1
1794 @ 12694:            PUSHI  #0x00000000
1795 @ 12699:            INIT   1
1796 @ 12702:            PUSHI  #0x00000000
1797 @ 12707:            INIT   1
1798 @ 12710:            PUSHI  #0x00000000
1799 @ 12715:            INIT   1
1800 @ 12718:            PUSHI  #0x00000000
1801 @ 12723:            INIT   1
1802 @ 12726:            PUSHI  #0x00000005
1803 @ 12731:            INIT   1
1804 @ 12734:            PUSHI  #0x00000000
1805 @ 12739:            INIT   1
1806 @ 12742:            PUSHI  #0x00000000
1807 @ 12747:            INIT   1
1808 @ 12750:            PUSHI  #0x00000000
1809 @ 12755:            INIT   1
1810 @ 12758:            PUSHI  #0x00000000
1811 @ 12763:            INIT   1
1812 @ 12766:            PUSHI  #0x00000003
1813 @ 12771:            INIT   1
1814 @ 12774:            PUSHI  #0x00000000
1815 @ 12779:            INIT   1
1816 @ 12782:            PUSHI  #0x00000000
1817 @ 12787:            INIT   1
1818 @ 12790:            PUSHI  #0x00000000
1819 @ 12795:            INIT   1
1820 @ 12798:            PUSHI  #0x00000000
1821 @ 12803:            INIT   1
1822 @ 12806:            PUSHI  #0x00000000
1823 @ 12811:            INIT   1
1824 @ 12814:            PUSHI  #0x00000000
1825 @ 12819:            INIT   1
1826 @ 12822:            PUSHI  #0x00000000
1827 @ 12827:            INIT   1
1828 @ 12830:            PUSHI  #0x00000004
1829 @ 12835:            INIT   1
1830 @ 12838:            PUSHI  #0x0000001e
1831 @ 12843:            INIT   1
1832 @ 12846:            PUSHI  #0x00000000
1833 @ 12851:            INIT   1
1834 @ 12854:            PUSHI  #0x00000000
1835 @ 12859:            INIT   1
1836 @ 12862:            PUSHI  #0x00000006
1837 @ 12867:            INIT   1
1838 @ 12870:            PUSHI  #0x00000000
1839 @ 12875:            INIT   1
1840 @ 12878:            PUSHI  #0x00000000
1841 @ 12883:            INIT   1
1842 @ 12886:            PUSHI  #0x00000000
1843 @ 12891:            INIT   1
1844 @ 12894:            PUSHI  #0x00000000
1845 @ 12899:            INIT   1
1846 @ 12902:            PUSHI  #0x00000000
1847 @ 12907:            INIT   1
1848 @ 12910:            PUSHI  #0x00000006
1849 @ 12915:            INIT   1
1850 @ 12918:            PUSHI  #0x00000000
1851 @ 12923:            INIT   1
1852 @ 12926:            PUSHI  #0x00000000
1853 @ 12931:            INIT   1
1854 @ 12934:            PUSHI  #0x00000000
1855 @ 12939:            INIT   1
1856 @ 12942:            PUSHI  #0x00000000
1857 @ 12947:            INIT   1
1858 @ 12950:            PUSHI  #0x00000028
1859 @ 12955:            INIT   1
1860 @ 12958:            PUSHI  #0x00000005
1861 @ 12963:            INIT   1
1862 @ 12966:            PUSHI  #0x00000000
1863 @ 12971:            INIT   1
1864 @ 12974:            PUSHI  #0x00000000
1865 @ 12979:            INIT   1
1866 @ 12982:            PUSHI  #0x00000000
1867 @ 12987:            INIT   1
1868 @ 12990:            PUSHI  #0x00000001
1869 @ 12995:            INIT   1
1870 @ 12998:            PUSHI  #0x00000004
1871 @ 13003:            INIT   1
1872 @ 13006:            PUSHI  #0x00000000
1873 @ 13011:            INIT   1
1874 @ 13014:            PUSHI  #0x00000000
1875 @ 13019:            INIT   1
1876 @ 13022:            PUSHI  #0x00000000
1877 @ 13027:            INIT   1
1878 @ 13030:            PUSHI  #0x00000000
1879 @ 13035:            INIT   1
1880 @ 13038:            PUSHI  #0x00000000
1881 @ 13043:            INIT   1
1882 @ 13046:            PUSHI  #0x00000000
1883 @ 13051:            INIT   1
1884 @ 13054:            PUSHI  #0x00000000
1885 @ 13059:            INIT   1
1886 @ 13062:            PUSHI  #0x00000000
1887 @ 13067:            INIT   1
1888 @ 13070:            PUSHI  #0x00000000
1889 @ 13075:            INIT   1
1890 @ 13078:            PUSHI  #0x00000004
1891 @ 13083:            INIT   1
1892 @ 13086:            PUSHI  #0x00000000
1893 @ 13091:            INIT   1
1894 @ 13094:            PUSHI  #0x00000000
1895 @ 13099:            INIT   1
1896 @ 13102:            PUSHI  #0x00000000
1897 @ 13107:            INIT   1
1898 @ 13110:            PUSHI  #0x00000000
1899 @ 13115:            INIT   1
1900 @ 13118:            PUSHI  #0x00000000
1901 @ 13123:            INIT   1
1902 @ 13126:            PUSHI  #0x00000000
1903 @ 13131:            INIT   1
1904 @ 13134:            PUSHI  #0x00000000
1905 @ 13139:            INIT   1
1906 @ 13142:            PUSHI  #0x00000000
1907 @ 13147:            INIT   1
1908 @ 13150:            PUSHI  #0x00000004
1909 @ 13155:            INIT   1
1910 @ 13158:            PUSHI  #0x00000000
1911 @ 13163:            INIT   1
1912 @ 13166:            PUSHI  #0x00000000
1913 @ 13171:            INIT   1
1914 @ 13174:            PUSHI  #0x00000001
1915 @ 13179:            INIT   1
1916 @ 13182:            PUSHI  #0x00000000
1917 @ 13187:            INIT   1
1918 @ 13190:            PUSHI  #0x00000000
1919 @ 13195:            INIT   1
1920 @ 13198:            PUSHI  #0x00000000
1921 @ 13203:            INIT   1
1922 @ 13206:            PUSHI  #0x00000000
1923 @ 13211:            INIT   1
1924 @ 13214:            PUSHI  #0x00000000
1925 @ 13219:            INIT   1
1926 @ 13222:            PUSHI  #0x00000005
1927 @ 13227:            INIT   1
1928 @ 13230:            PUSHI  #0x00000000
1929 @ 13235:            INIT   1
1930 @ 13238:            PUSHI  #0x00000000
1931 @ 13243:            INIT   1
1932 @ 13246:            PUSHI  #0x00000000
1933 @ 13251:            INIT   1
1934 @ 13254:            PUSHI  #0x00000001
1935 @ 13259:            INIT   1
1936 @ 13262:            PUSHI  #0x00000000
1937 @ 13267:            INIT   1
1938 @ 13270:            PUSHI  #0x00000000
1939 @ 13275:            INIT   1
1940 @ 13278:            PUSHI  #0x00000000
1941 @ 13283:            INIT   1
1942 @ 13286:            PUSHI  #0x00000001
1943 @ 13291:            INIT   1
1944 @ 13294:            PUSHI  #0x00000000
1945 @ 13299:            INIT   1
1946 @ 13302:            PUSHI  #0x00000000
1947 @ 13307:            INIT   1
1948 @ 13310:            PUSHI  #0x00000000
1949 @ 13315:            INIT   1
1950 @ 13318:            PUSHI  #0x00000000
1951 @ 13323:            INIT   1
1952 @ 13326:            PUSHI  #0x00000000
1953 @ 13331:            INIT   1

   284  %constinteger TERMINATOR=52, CONST=53, IDENT=54,
   285                AREF=55, RECREF=56,
   286                MODSIGN=57,
   287                COLON=58, COMMA=59, RIGHT=60, RIGHTBRACKET=61,
   288                DUD=63
   289  
   290  !Operators (in banks of 8 acc to rank)
1954 @ 13334:            LINE   284 "regression-compile-tmp/chimps.imp"

   291  %constinteger BOOLAND=64, BOOLOR=65, BOOLNOT=66,
   292                FLOAT=67, IMOD=68, FMOD=69
1955 @ 13371:            LINE   291 "regression-compile-tmp/chimps.imp"

   293  %constinteger EQUALS=70, NOTEQ=71, LESSEQ=72,
   294                LESS=73, GREATEQ=74, GREATER=75,
   295                EQEQ=76, NOTEQEQ=77, RESOLVE=79
1956 @ 13408:            LINE   293 "regression-compile-tmp/chimps.imp"

   296  %constinteger PLUS=80, MINUS=81, LOGOR=82,
   297                LOGXOR=83, CONCAT=84
1957 @ 13445:            LINE   296 "regression-compile-tmp/chimps.imp"

   298  %constinteger MULT=88, FDIV=89, IDIV=90,
   299                LOGAND=91
1958 @ 13482:            LINE   298 "regression-compile-tmp/chimps.imp"

   300  %constinteger FPOWER=96, IPOWER=97,
   301                LSHIFT=100, RSHIFT=101, LOGNOT=102
1959 @ 13519:            LINE   300 "regression-compile-tmp/chimps.imp"

   302  %constinteger FCALL=106, MCALL=107
1960 @ 13556:            LINE   302 "regression-compile-tmp/chimps.imp"

   303  %constinteger ATOMMAX=107
   304  
   305  ! Instruction actions:
1961 @ 13593:            LINE   303 "regression-compile-tmp/chimps.imp"

   306  %constinteger swgoto=35, rcall=mcall+2,
   307                assign=41, jamassign=42, plusass=43,
   308                compare=44, jump=45, label=46, adecl=47
1962 @ 13630:            LINE   306 "regression-compile-tmp/chimps.imp"

   309  %constinteger actmax=49
   310  !
   311  !Branch cases ( = machine condition-code)
1963 @ 13667:            LINE   309 "regression-compile-tmp/chimps.imp"

   312  %constinteger EQ=2_0111, NE=2_0110,
   313                GT=2_1110, LE=2_1111,
   314                LT=2_1101, GE=2_1100,
   315                CC=2_0100, CS=2_0101
1964 @ 13704:            LINE   312 "regression-compile-tmp/chimps.imp"

   316  %constinteger DOUBLE=16
   317  
   318  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   319  ! Perm procedure identifiers which are recognised explicitly and
   320  !  either implemented in-line or mapped to system entry-point
1965 @ 13741:            LINE   316 "regression-compile-tmp/chimps.imp"

   321  %constinteger DSHORT=dictmin+6, DLENGTH=dshort+1, DCHARNO=dlength+1,
   322                DADDR=dcharno+1, DTOSTR=daddr+1,
   323                DREM=dtostr+1,
   324                DNEXTSYM=drem+1, DREADSYM=dnextsym+1,
   325                DPRINTSTR=dreadsym+3,
   326                DREAD=dictmin+27,
   327                DNEWLINE=dictmin+41
   328  !System entry-points used explicitly
1966 @ 13778:            LINE   321 "regression-compile-tmp/chimps.imp"

   329  %constinteger SIGENTRY=16_1114, SCOMPENTRY=16_1128,
   330                BOUNDENTRY=16_1134, AGETENTRY=16_1138,
   331                INDEXENTRY=16_113C, IREADENTRY=16_1118
   332  
   333  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   334  
1967 @ 13815:            LINE   329 "regression-compile-tmp/chimps.imp"

   335  %owninteger STARTS=0, CYCLES=0
1968 @ 13852:            LINE   335 "regression-compile-tmp/chimps.imp"
1969 @ 13889:            PUSHI  #0x00000000
1970 @ 13894:            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
1971 @ 13912:            INIT   1
1972 @ 13915:            PUSHI  #0x00000000
1973 @ 13920:            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
1974 @ 13938:            INIT   1

   336  %owninteger LOOPLAB=0
1975 @ 13941:            LINE   336 "regression-compile-tmp/chimps.imp"
1976 @ 13978:            PUSHI  #0x00000000
1977 @ 13983:            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
1978 @ 14002:            INIT   1

   337  %owninteger CURLAB=lab1
   338  !
1979 @ 14005:            LINE   337 "regression-compile-tmp/chimps.imp"
1980 @ 14042:            PUSHI  #0x00000ca3
1981 @ 14047:            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
1982 @ 14065:            INIT   1

   339  %recordformat BLOCKINF(%integer sp, delta, fortemps, flags, type,
   340                    localdpos, parlim, localtext, localpc,
   341                    localspc, pidpos, access, forward, events,
   342                    eventpc, faults, return, shorts)
   343  !Flag bits (VAR=1 from D_FLAGS)
1983 @ 14068:            LINE   339 "regression-compile-tmp/chimps.imp"
1984 @ 14105:            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
1985 @ 14125:            START  ( RECORDFORMAT
1986 @ 14126:               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
1987 @ 14140:               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
1988 @ 14157:               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
1989 @ 14177:               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
1990 @ 14194:               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
1991 @ 14210:               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
1992 @ 14231:               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
1993 @ 14249:               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
1994 @ 14270:               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
1995 @ 14289:               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
1996 @ 14309:               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
1997 @ 14327:               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
1998 @ 14345:               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
1999 @ 14364:               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
2000 @ 14382:               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
2001 @ 14401:               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
2002 @ 14419:               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
2003 @ 14437:               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
2004 @ 14455:            FINISH ) 

   344  %constinteger WRONGCC=2, NONLOCALREF=4, DYNARRAY=8
2005 @ 14456:            LINE   344 "regression-compile-tmp/chimps.imp"

   345  %constinteger HADON=16_10, HADINST=16_20
   346  
2006 @ 14493:            LINE   345 "regression-compile-tmp/chimps.imp"

   347  %constinteger OUTERLEVEL=0, MAXLEVEL=16
2007 @ 14530:            LINE   347 "regression-compile-tmp/chimps.imp"

   348  %owninteger LEVEL=outerlevel;        !current block level
2008 @ 14567:            LINE   348 "regression-compile-tmp/chimps.imp"
2009 @ 14604:            PUSHI  #0x00000000
2010 @ 14609:            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
2011 @ 14626:            INIT   1

   349  %record(blockinf) C;                !info for current block
2012 @ 14629:            LINE   349 "regression-compile-tmp/chimps.imp"
2013 @ 14666:            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

   350  %record(blockinf)%array HOLD(0:maxlevel-1); !info for global blocks
   351  
   352  ! Final core image
2014 @ 14679:            LINE   350 "regression-compile-tmp/chimps.imp"
2015 @ 14716:            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
2016 @ 14732:            PUSHI  #0x00000000
2017 @ 14737:            PUSHI  #0x00000010
2018 @ 14742:            PUSHI  #0x00000001
2019 @ 14747:            SUB   
2020 @ 14748:            DIM    0001 0001

   353  %constinteger PUREBOUND=0, OWNBASE=purebound+1,
   354                FINALBOUND=ownbase+8191
2021 @ 14754:            LINE   353 "regression-compile-tmp/chimps.imp"

   355  %byteintegerarray FINAL(0:finalbound);  !for switch info only
2022 @ 14791:            LINE   355 "regression-compile-tmp/chimps.imp"
2023 @ 14828:            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
2024 @ 14845:            PUSHI  #0x00000000
2025 @ 14850:            PUSHI  #0x00002000
2026 @ 14855:            DIM    0001 0001

   356  %owninteger FINALAD=2, OWNAD=ownbase
   357  !%owninteger FIRSTENTRY=finalbound, FIRSTDPOS=dictmax
   358  !%ownintegername CONSTAD;  !== ownad or finalad
   359  !%owninteger CONSTBOUND=purebound;   !for const/code
   360  !                     =finalbound;  !for own
2027 @ 14861:            LINE   356 "regression-compile-tmp/chimps.imp"
2028 @ 14898:            PUSHI  #0x00000002
2029 @ 14903:            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
2030 @ 14922:            INIT   1
2031 @ 14925:            PUSHI  #0x00000001
2032 @ 14930:            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
2033 @ 14947:            INIT   1

   361  %owninteger PC=0, SPC=finalbound;  !for switch info
   362  
   363  !Recognition:-
2034 @ 14950:            LINE   361 "regression-compile-tmp/chimps.imp"
2035 @ 14987:            PUSHI  #0x00000000
2036 @ 14992:            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
2037 @ 15006:            INIT   1
2038 @ 15009:            PUSHI  #0x00002000
2039 @ 15014:            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
2040 @ 15029:            INIT   1

   364  %constinteger CASEMASK=95, CASEBIT=32; !for case conversion
   365  
   366  !Memo variables for current statement:-
2041 @ 15032:            LINE   364 "regression-compile-tmp/chimps.imp"

   367  %owninteger ITEM=0;          !current operand
2042 @ 15069:            LINE   367 "regression-compile-tmp/chimps.imp"
2043 @ 15106:            PUSHI  #0x00000000
2044 @ 15111:            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
2045 @ 15127:            INIT   1

   368  %record(objinfo) T;          !full typeinfo for ITEM
2046 @ 15130:            LINE   368 "regression-compile-tmp/chimps.imp"
2047 @ 15167:            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

   369  %record(identinfo)%name DITEM
2048 @ 15180:            LINE   369 "regression-compile-tmp/chimps.imp"
2049 @ 15217:            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

   370  %owninteger ELEMENTS; !range details
2050 @ 15234:            LINE   370 "regression-compile-tmp/chimps.imp"
2051 @ 15271:            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
2052 @ 15291:            INIT   1

   371  %owninteger HASH
2053 @ 15294:            LINE   371 "regression-compile-tmp/chimps.imp"
2054 @ 15331:            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
2055 @ 15347:            INIT   1

   372  %owninteger SPECCING=0, MCODING=0
2056 @ 15350:            LINE   372 "regression-compile-tmp/chimps.imp"
2057 @ 15387:            PUSHI  #0x00000000
2058 @ 15392:            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
2059 @ 15412:            INIT   1
2060 @ 15415:            PUSHI  #0x00000000
2061 @ 15420:            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
2062 @ 15439:            INIT   1

   373  %owninteger DECLMODE, DSIZE
2063 @ 15442:            LINE   373 "regression-compile-tmp/chimps.imp"
2064 @ 15479:            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
2065 @ 15499:            INIT   1
2066 @ 15502:            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
2067 @ 15519:            INIT   1

   374  %ownrecord(identinfo) D;            !declaration details
   375  
   376  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   377  
   378  !!  Source file input and listing
2068 @ 15522:            LINE   374 "regression-compile-tmp/chimps.imp"
2069 @ 15559:            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
2070 @ 15572:            INIT   1

   379  %owninteger ATOM=0;                 !current lexical atom
2071 @ 15575:            LINE   379 "regression-compile-tmp/chimps.imp"
2072 @ 15612:            PUSHI  #0x00000000
2073 @ 15617:            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
2074 @ 15633:            INIT   1

   380  %owninteger MATCHED=1;              !indic that atom has been matched
2075 @ 15636:            LINE   380 "regression-compile-tmp/chimps.imp"
2076 @ 15673:            PUSHI  #0x00000001
2077 @ 15678:            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
2078 @ 15697:            INIT   1

   381  %owninteger SYM=nl;                 !current input symbol
2079 @ 15700:            LINE   381 "regression-compile-tmp/chimps.imp"
2080 @ 15737:            PUSHI  #0x0000000a
2081 @ 15742:            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
2082 @ 15757:            INIT   1

   382  %owninteger LINE=0;                 !current line number
2083 @ 15760:            LINE   382 "regression-compile-tmp/chimps.imp"
2084 @ 15797:            PUSHI  #0x00000000
2085 @ 15802:            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
2086 @ 15818:            INIT   1

   383  %owninteger MAINLINE=0
2087 @ 15821:            LINE   383 "regression-compile-tmp/chimps.imp"
2088 @ 15858:            PUSHI  #0x00000000
2089 @ 15863:            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
2090 @ 15883:            INIT   1

   384  %owninteger DIAGLINE=-9999
2091 @ 15886:            LINE   384 "regression-compile-tmp/chimps.imp"
2092 @ 15923:            PUSHI  #0xffffd8f1
2093 @ 15928:            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
2094 @ 15948:            INIT   1

   385  %owninteger PROLINE=0
2095 @ 15951:            LINE   385 "regression-compile-tmp/chimps.imp"
2096 @ 15988:            PUSHI  #0x00000000
2097 @ 15993:            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
2098 @ 16012:            INIT   1

   386  %owninteger MODESYM='&';            !space or '+' or '&' or '"'
   387  !%owninteger OUTCOL=0;               !output line position
   388  !   Pointers to source file:
2099 @ 16015:            LINE   386 "regression-compile-tmp/chimps.imp"
2100 @ 16052:            PUSHI  #0x00000026
2101 @ 16057:            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
2102 @ 16076:            INIT   1

   389  %owninteger LINESTART=0
2103 @ 16079:            LINE   389 "regression-compile-tmp/chimps.imp"
2104 @ 16116:            PUSHI  #0x00000000
2105 @ 16121:            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
2106 @ 16142:            INIT   1

   390  %owninteger FP=0;                   !(file pointer) current position
2107 @ 16145:            LINE   390 "regression-compile-tmp/chimps.imp"
2108 @ 16182:            PUSHI  #0x00000000
2109 @ 16187:            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
2110 @ 16201:            INIT   1

   391  %owninteger CHARS=0
2111 @ 16204:            LINE   391 "regression-compile-tmp/chimps.imp"
2112 @ 16241:            PUSHI  #0x00000000
2113 @ 16246:            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
2114 @ 16263:            INIT   1

   392  %owninteger ATOMP=0;                !start of current atom
2115 @ 16266:            LINE   392 "regression-compile-tmp/chimps.imp"
2116 @ 16303:            PUSHI  #0x00000000
2117 @ 16308:            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
2118 @ 16325:            INIT   1

   393  %owninteger FAULTP=0;               !fault position
2119 @ 16328:            LINE   393 "regression-compile-tmp/chimps.imp"
2120 @ 16365:            PUSHI  #0x00000000
2121 @ 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
2122 @ 16388:            INIT   1

   394  %owninteger MAINFP
2123 @ 16391:            LINE   394 "regression-compile-tmp/chimps.imp"
2124 @ 16428:            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
2125 @ 16446:            INIT   1

   395  %owninteger STRINGP,EXPP
2126 @ 16449:            LINE   395 "regression-compile-tmp/chimps.imp"
2127 @ 16486:            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
2128 @ 16505:            INIT   1
2129 @ 16508:            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
2130 @ 16524:            INIT   1

   396  %owninteger listout=0
   397  !
   398  !! Listing, diagnostic and report routines
   399  !
2131 @ 16527:            LINE   396 "regression-compile-tmp/chimps.imp"
2132 @ 16564:            PUSHI  #0x00000000
2133 @ 16569:            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
2134 @ 16588:            INIT   1

   400  %ownstring(255) rep=""
   401  !
2135 @ 16591:            LINE   400 "regression-compile-tmp/chimps.imp"
2136 @ 16628:            PUSHS  ""
2137 @ 16630:            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
2138 @ 16645:            INIT   1

   402  %routine NEWLINE
2139 @ 16648:            LINE   402 "regression-compile-tmp/chimps.imp"
2140 @ 16685:            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
2141 @ 16704:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
2142 @ 16705:               FINISH ) {lev=2}

   403    print string(rep);  print symbol(nl)
2143 @ 16706:               LINE   403 "regression-compile-tmp/chimps.imp"
2144 @ 16743:               PUSH   PRINTSTRING
2145 @ 16746:               PUSH   REP
2146 @ 16749:               ASSPAR
2147 @ 16750:               CALL  
2148 @ 16751:               LINE   403 "regression-compile-tmp/chimps.imp"
2149 @ 16788:               PUSH   PRINTSYMBOL
2150 @ 16791:               PUSHI  #0x0000000a
2151 @ 16796:               ASSPAR
2152 @ 16797:               CALL  

   404    rep = ""
2153 @ 16798:               LINE   404 "regression-compile-tmp/chimps.imp"
2154 @ 16835:               PUSH   REP
2155 @ 16838:               PUSHS  ""
2156 @ 16840:               ASSVAL

   405  %end
   406  !
2157 @ 16841:               LINE   405 "regression-compile-tmp/chimps.imp"
2158 @ 16878:            END    _ECCECI_NEWLINE {lev=2 --> 1}

   407  %routine PUT SYM(%integer k)
2159 @ 16879:            LINE   407 "regression-compile-tmp/chimps.imp"
2160 @ 16916:            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
2161 @ 16934:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
2162 @ 16935:                  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
2163 @ 16948:               FINISH ) {lev=2}

   408    rep = rep.tostring(k) %if length(rep) < 132
2164 @ 16949:               LINE   408 "regression-compile-tmp/chimps.imp"
2165 @ 16986:               PUSH   LENGTH
2166 @ 16989:               PUSH   REP
2167 @ 16992:               ASSPAR
2168 @ 16993:               CALL  
2169 @ 16994:               PUSHI  #0x00000084
2170 @ 16999:               JUMPIF >= L_0004
2171 @ 17003:               PUSH   REP
2172 @ 17006:               PUSH   REP
2173 @ 17009:               PUSH   TOSTRING
2174 @ 17012:               PUSH   K
2175 @ 17015:               ASSPAR
2176 @ 17016:               CALL  
2177 @ 17017:               CONCAT
2178 @ 17018:               ASSVAL
2179 @ 17019:               LOCATE L_0004

   409  %end
   410  !
2180 @ 17022:               LINE   409 "regression-compile-tmp/chimps.imp"
2181 @ 17059:            END    _ECCECI_PUTSYM {lev=2 --> 1}

   411  %routine PRINT STRING(%string(255) s)
2182 @ 17060:            LINE   411 "regression-compile-tmp/chimps.imp"
2183 @ 17097:            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
2184 @ 17120:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
2185 @ 17121:                  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
2186 @ 17134:               FINISH ) {lev=2}

   412    rep = rep.s %if length(rep) < 132
2187 @ 17135:               LINE   412 "regression-compile-tmp/chimps.imp"
2188 @ 17172:               PUSH   LENGTH
2189 @ 17175:               PUSH   REP
2190 @ 17178:               ASSPAR
2191 @ 17179:               CALL  
2192 @ 17180:               PUSHI  #0x00000084
2193 @ 17185:               JUMPIF >= L_0004
2194 @ 17189:               PUSH   REP
2195 @ 17192:               PUSH   REP
2196 @ 17195:               PUSH   S
2197 @ 17198:               CONCAT
2198 @ 17199:               ASSVAL
2199 @ 17200:               LOCATE L_0004

   413  %end
   414  !
2200 @ 17203:               LINE   413 "regression-compile-tmp/chimps.imp"
2201 @ 17240:            END    _ECCECI_PRINTSTRING {lev=2 --> 1}

   415  %routine SPACES(%integer n)
2202 @ 17241:            LINE   415 "regression-compile-tmp/chimps.imp"
2203 @ 17278:            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
2204 @ 17296:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
2205 @ 17297:                  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
2206 @ 17310:               FINISH ) {lev=2}

   416    %while n > 0 %cycle
2207 @ 17311:               LINE   416 "regression-compile-tmp/chimps.imp"
2208 @ 17348:               LOCATE L_0003
2209 @ 17351:               PUSH   N
2210 @ 17354:               PUSHI  #0x00000000
2211 @ 17359:               JUMPIF <= L_0004

   417      rep = rep." ";  n = n-1
2212 @ 17363:               LINE   417 "regression-compile-tmp/chimps.imp"
2213 @ 17400:               PUSH   REP
2214 @ 17403:               PUSH   REP
2215 @ 17406:               PUSHS  " "
2216 @ 17409:               CONCAT
2217 @ 17410:               ASSVAL
2218 @ 17411:               LINE   417 "regression-compile-tmp/chimps.imp"
2219 @ 17448:               PUSH   N
2220 @ 17451:               PUSH   N
2221 @ 17454:               PUSHI  #0x00000001
2222 @ 17459:               SUB   
2223 @ 17460:               ASSVAL

   418    %repeat
2224 @ 17461:               LINE   418 "regression-compile-tmp/chimps.imp"
2225 @ 17498:               REPEAT L_0003
2226 @ 17501:               LOCATE L_0004

   419  %end
   420  !
2227 @ 17504:               LINE   419 "regression-compile-tmp/chimps.imp"
2228 @ 17541:            END    _ECCECI_SPACES {lev=2 --> 1}

   421  %routine WRITE(%integer val,p)
2229 @ 17542:            LINE   421 "regression-compile-tmp/chimps.imp"
2230 @ 17579:            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
2231 @ 17596:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
2232 @ 17597:                  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
2233 @ 17612:                  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
2234 @ 17625:               FINISH ) {lev=2}

   422  %routine PD(%integer v)
2235 @ 17626:               LINE   422 "regression-compile-tmp/chimps.imp"
2236 @ 17663:               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
2237 @ 17677:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
2238 @ 17678:                     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
2239 @ 17691:                  FINISH ) {lev=3}

   423    p = p-1
2240 @ 17692:                  LINE   423 "regression-compile-tmp/chimps.imp"
2241 @ 17729:                  PUSH   P
2242 @ 17732:                  PUSH   P
2243 @ 17735:                  PUSHI  #0x00000001
2244 @ 17740:                  SUB   
2245 @ 17741:                  ASSVAL

   424    pd(v//10) %and v = v-v//10*10 %if v <= -10
2246 @ 17742:                  LINE   424 "regression-compile-tmp/chimps.imp"
2247 @ 17779:                  PUSH   V
2248 @ 17782:                  PUSHI  #0x0000000a
2249 @ 17787:                  NEGATE
2250 @ 17788:                  JUMPIF > L_0004
2251 @ 17792:                  PUSH   PD
2252 @ 17795:                  PUSH   V
2253 @ 17798:                  PUSHI  #0x0000000a
2254 @ 17803:                  QUOT  
2255 @ 17804:                  ASSPAR
2256 @ 17805:                  CALL  
2257 @ 17806:                  PUSH   V
2258 @ 17809:                  PUSH   V
2259 @ 17812:                  PUSH   V
2260 @ 17815:                  PUSHI  #0x0000000a
2261 @ 17820:                  QUOT  
2262 @ 17821:                  PUSHI  #0x0000000a
2263 @ 17826:                  MUL   
2264 @ 17827:                  SUB   
2265 @ 17828:                  ASSVAL
2266 @ 17829:                  LOCATE L_0004

   425    spaces(p) %and p = 0 %if p > 0
2267 @ 17832:                  LINE   425 "regression-compile-tmp/chimps.imp"
2268 @ 17869:                  PUSH   P
2269 @ 17872:                  PUSHI  #0x00000000
2270 @ 17877:                  JUMPIF <= L_0004
2271 @ 17881:                  PUSH   SPACES
2272 @ 17884:                  PUSH   P
2273 @ 17887:                  ASSPAR
2274 @ 17888:                  CALL  
2275 @ 17889:                  PUSH   P
2276 @ 17892:                  PUSHI  #0x00000000
2277 @ 17897:                  ASSVAL
2278 @ 17898:                  LOCATE L_0004

   426    put sym('0'-v)
2279 @ 17901:                  LINE   426 "regression-compile-tmp/chimps.imp"
2280 @ 17938:                  PUSH   PUTSYM
2281 @ 17941:                  PUSHI  #0x00000030
2282 @ 17946:                  PUSH   V
2283 @ 17949:                  SUB   
2284 @ 17950:                  ASSPAR
2285 @ 17951:                  CALL  

   427  %end
2286 @ 17952:                  LINE   427 "regression-compile-tmp/chimps.imp"
2287 @ 17989:               END    _ECCECI_WRITE_PD {lev=3 --> 2}

   428    %if val < 0 %start
2288 @ 17990:               LINE   428 "regression-compile-tmp/chimps.imp"
2289 @ 18027:               PUSH   VAL
2290 @ 18030:               PUSHI  #0x00000000
2291 @ 18035:               JUMPIF >= L_0004

   429      put sym('-');  pd(val)
2292 @ 18039:               LINE   429 "regression-compile-tmp/chimps.imp"
2293 @ 18076:               PUSH   PUTSYM
2294 @ 18079:               PUSHI  #0x0000002d
2295 @ 18084:               ASSPAR
2296 @ 18085:               CALL  
2297 @ 18086:               LINE   429 "regression-compile-tmp/chimps.imp"
2298 @ 18123:               PUSH   PD
2299 @ 18126:               PUSH   VAL
2300 @ 18129:               ASSPAR
2301 @ 18130:               CALL  

   430    %finish %else pd(-val)
2302 @ 18131:               LINE   430 "regression-compile-tmp/chimps.imp"
2303 @ 18168:               GOTO   L_0003
2304 @ 18171:               LOCATE L_0004
2305 @ 18174:               PUSH   PD
2306 @ 18177:               PUSH   VAL
2307 @ 18180:               NEGATE
2308 @ 18181:               ASSPAR
2309 @ 18182:               CALL  
2310 @ 18183:               LOCATE L_0003

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

   538  %routine REPORT(%integer n,joker)
2313 @ 18224:            LINE   538 "regression-compile-tmp/chimps.imp"
2314 @ 18261:            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
2315 @ 18279:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
2316 @ 18280:                  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
2317 @ 18293:                  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
2318 @ 18310:               FINISH ) {lev=2}

   539  %integer mark,start,errline,k,editfp
2319 @ 18311:               LINE   539 "regression-compile-tmp/chimps.imp"
2320 @ 18348:               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
2321 @ 18364:               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
2322 @ 18381:               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
2323 @ 18400:               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
2324 @ 18413:               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

   540  %routine PRINT IDENT(%integer x)
2325 @ 18431:               LINE   540 "regression-compile-tmp/chimps.imp"
2326 @ 18468:               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
2327 @ 18490:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
2328 @ 18491:                     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
2329 @ 18504:                  FINISH ) {lev=3}

   541    put sym('"')
2330 @ 18505:                  LINE   541 "regression-compile-tmp/chimps.imp"
2331 @ 18542:                  PUSH   PUTSYM
2332 @ 18545:                  PUSHI  #0x00000022
2333 @ 18550:                  ASSPAR
2334 @ 18551:                  CALL  

   542    print string(string(dict(x)_text+charbase))
2335 @ 18552:                  LINE   542 "regression-compile-tmp/chimps.imp"
2336 @ 18589:                  PUSH   PRINTSTRING
2337 @ 18592:                  PUSH   STRING
2338 @ 18595:                  PUSH   DICT
2339 @ 18598:                  PUSH   X
2340 @ 18601:                  ACCESS
2341 @ 18602:                  SELECT 9
2342 @ 18605:                  PUSH   CHARBASE
2343 @ 18608:                  ADD   
2344 @ 18609:                  ASSPAR
2345 @ 18610:                  CALL  
2346 @ 18611:                  ASSPAR
2347 @ 18612:                  CALL  

   543    put sym('"')
2348 @ 18613:                  LINE   543 "regression-compile-tmp/chimps.imp"
2349 @ 18650:                  PUSH   PUTSYM
2350 @ 18653:                  PUSHI  #0x00000022
2351 @ 18658:                  ASSPAR
2352 @ 18659:                  CALL  

   544  %end
2353 @ 18660:                  LINE   544 "regression-compile-tmp/chimps.imp"
2354 @ 18697:               END    _ECCECI_REPORT_PRINTIDENT {lev=3 --> 2}

   545  %routine PRINT TEXT(%integer x,stream)
2355 @ 18698:               LINE   545 "regression-compile-tmp/chimps.imp"
2356 @ 18735:               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
2357 @ 18756:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
2358 @ 18757:                     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
2359 @ 18770:                     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
2360 @ 18788:                  FINISH ) {lev=3}

   546  %constinteger esc=27
2361 @ 18789:                  LINE   546 "regression-compile-tmp/chimps.imp"

   547  %integer k,p
2362 @ 18826:                  LINE   547 "regression-compile-tmp/chimps.imp"
2363 @ 18863:                  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
2364 @ 18876:                  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

   548  %switch s(0:errmax)
2365 @ 18889:                  LINE   548 "regression-compile-tmp/chimps.imp"
2366 @ 18926:                  PUSHI  #0x00000000
2367 @ 18931:                  PUSHI  #0x0000002e
2368 @ 18936:                  BOUNDS
2369 @ 18937:                  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

   549    put sym(mark)
2370 @ 18950:                  LINE   549 "regression-compile-tmp/chimps.imp"
2371 @ 18987:                  PUSH   PUTSYM
2372 @ 18990:                  PUSH   MARK
2373 @ 18993:                  ASSPAR
2374 @ 18994:                  CALL  

   550    write(line,4)
2375 @ 18995:                  LINE   550 "regression-compile-tmp/chimps.imp"
2376 @ 19032:                  PUSH   WRITE
2377 @ 19035:                  PUSH   LINE
2378 @ 19038:                  ASSPAR
2379 @ 19039:                  PUSHI  #0x00000004
2380 @ 19044:                  ASSPAR
2381 @ 19045:                  CALL  

   551    put sym(modesym);  put sym(' ')
2382 @ 19046:                  LINE   551 "regression-compile-tmp/chimps.imp"
2383 @ 19083:                  PUSH   PUTSYM
2384 @ 19086:                  PUSH   MODESYM
2385 @ 19089:                  ASSPAR
2386 @ 19090:                  CALL  
2387 @ 19091:                  LINE   551 "regression-compile-tmp/chimps.imp"
2388 @ 19128:                  PUSH   PUTSYM
2389 @ 19131:                  PUSHI  #0x00000020
2390 @ 19136:                  ASSPAR
2391 @ 19137:                  CALL  

   552    ->s(n&63)
2392 @ 19138:                  LINE   552 "regression-compile-tmp/chimps.imp"
2393 @ 19175:                  PUSH   N
2394 @ 19178:                  PUSHI  #0x0000003f
2395 @ 19183:                  AND   
2396 @ 19184:                  SJUMP  235

   553  s(formerr):   printstring("Faulty form");   -> print
2397 @ 19187:                  LINE   553 "regression-compile-tmp/chimps.imp"
2398 @ 19224:                  PUSHI  #0x00000000
2399 @ 19229:                  SLABEL 235
2400 @ 19232:                  LINE   553 "regression-compile-tmp/chimps.imp"
2401 @ 19269:                  PUSH   PRINTSTRING
2402 @ 19272:                  PUSHS  "Faulty form"
2403 @ 19285:                  ASSPAR
2404 @ 19286:                  CALL  
2405 @ 19287:                  LINE   553 "regression-compile-tmp/chimps.imp"
2406 @ 19324:                  JUMP   L_00ec

   554  s(atomerr):   printstring("Unknown atom");  -> print
2407 @ 19327:                  LINE   554 "regression-compile-tmp/chimps.imp"
2408 @ 19364:                  PUSHI  #0x00000001
2409 @ 19369:                  SLABEL 235
2410 @ 19372:                  LINE   554 "regression-compile-tmp/chimps.imp"
2411 @ 19409:                  PUSH   PRINTSTRING
2412 @ 19412:                  PUSHS  "Unknown atom"
2413 @ 19426:                  ASSPAR
2414 @ 19427:                  CALL  
2415 @ 19428:                  LINE   554 "regression-compile-tmp/chimps.imp"
2416 @ 19465:                  JUMP   L_00ec

   555  s(namerr):    printstring("Unknown name");  -> print
2417 @ 19468:                  LINE   555 "regression-compile-tmp/chimps.imp"
2418 @ 19505:                  PUSHI  #0x00000002
2419 @ 19510:                  SLABEL 235
2420 @ 19513:                  LINE   555 "regression-compile-tmp/chimps.imp"
2421 @ 19550:                  PUSH   PRINTSTRING
2422 @ 19553:                  PUSHS  "Unknown name"
2423 @ 19567:                  ASSPAR
2424 @ 19568:                  CALL  
2425 @ 19569:                  LINE   555 "regression-compile-tmp/chimps.imp"
2426 @ 19606:                  JUMP   L_00ec

   556  s(caterr):    printstring("Unsuitable");    -> print
2427 @ 19609:                  LINE   556 "regression-compile-tmp/chimps.imp"
2428 @ 19646:                  PUSHI  #0x00000003
2429 @ 19651:                  SLABEL 235
2430 @ 19654:                  LINE   556 "regression-compile-tmp/chimps.imp"
2431 @ 19691:                  PUSH   PRINTSTRING
2432 @ 19694:                  PUSHS  "Unsuitable"
2433 @ 19706:                  ASSPAR
2434 @ 19707:                  CALL  
2435 @ 19708:                  LINE   556 "regression-compile-tmp/chimps.imp"
2436 @ 19745:                  JUMP   L_00ec

   557  s(sizerr):    printstring("Size");          -> print
2437 @ 19748:                  LINE   557 "regression-compile-tmp/chimps.imp"
2438 @ 19785:                  PUSHI  #0x00000004
2439 @ 19790:                  SLABEL 235
2440 @ 19793:                  LINE   557 "regression-compile-tmp/chimps.imp"
2441 @ 19830:                  PUSH   PRINTSTRING
2442 @ 19833:                  PUSHS  "Size"
2443 @ 19839:                  ASSPAR
2444 @ 19840:                  CALL  
2445 @ 19841:                  LINE   557 "regression-compile-tmp/chimps.imp"
2446 @ 19878:                  JUMP   L_00ec

   558  s(typerr):    printstring("Wrong type");    -> print
2447 @ 19881:                  LINE   558 "regression-compile-tmp/chimps.imp"
2448 @ 19918:                  PUSHI  #0x00000006
2449 @ 19923:                  SLABEL 235
2450 @ 19926:                  LINE   558 "regression-compile-tmp/chimps.imp"
2451 @ 19963:                  PUSH   PRINTSTRING
2452 @ 19966:                  PUSHS  "Wrong type"
2453 @ 19978:                  ASSPAR
2454 @ 19979:                  CALL  
2455 @ 19980:                  LINE   558 "regression-compile-tmp/chimps.imp"
2456 @ 20017:                  JUMP   L_00ec

   559  s(boundserr): printstring("Inside out");    -> print
2457 @ 20020:                  LINE   559 "regression-compile-tmp/chimps.imp"
2458 @ 20057:                  PUSHI  #0x0000000e
2459 @ 20062:                  SLABEL 235
2460 @ 20065:                  LINE   559 "regression-compile-tmp/chimps.imp"
2461 @ 20102:                  PUSH   PRINTSTRING
2462 @ 20105:                  PUSHS  "Inside out"
2463 @ 20117:                  ASSPAR
2464 @ 20118:                  CALL  
2465 @ 20119:                  LINE   559 "regression-compile-tmp/chimps.imp"
2466 @ 20156:                  JUMP   L_00ec

   560  s(unending):  printstring("Endless loop");  -> print
2467 @ 20159:                  LINE   560 "regression-compile-tmp/chimps.imp"
2468 @ 20196:                  PUSHI  #0x00000025
2469 @ 20201:                  SLABEL 235
2470 @ 20204:                  LINE   560 "regression-compile-tmp/chimps.imp"
2471 @ 20241:                  PUSH   PRINTSTRING
2472 @ 20244:                  PUSHS  "Endless loop"
2473 @ 20258:                  ASSPAR
2474 @ 20259:                  CALL  
2475 @ 20260:                  LINE   560 "regression-compile-tmp/chimps.imp"
2476 @ 20297:                  JUMP   L_00ec

   561  s(indexerr):  printstring("Index");         -> print
2477 @ 20300:                  LINE   561 "regression-compile-tmp/chimps.imp"
2478 @ 20337:                  PUSHI  #0x00000018
2479 @ 20342:                  SLABEL 235
2480 @ 20345:                  LINE   561 "regression-compile-tmp/chimps.imp"
2481 @ 20382:                  PUSH   PRINTSTRING
2482 @ 20385:                  PUSHS  "Index"
2483 @ 20392:                  ASSPAR
2484 @ 20393:                  CALL  
2485 @ 20394:                  LINE   561 "regression-compile-tmp/chimps.imp"
2486 @ 20431:                  JUMP   L_00ec

   562  s(accesserr): printstring("Not accessible");-> print
2487 @ 20434:                  LINE   562 "regression-compile-tmp/chimps.imp"
2488 @ 20471:                  PUSHI  #0x0000000f
2489 @ 20476:                  SLABEL 235
2490 @ 20479:                  LINE   562 "regression-compile-tmp/chimps.imp"
2491 @ 20516:                  PUSH   PRINTSTRING
2492 @ 20519:                  PUSHS  "Not accessible"
2493 @ 20535:                  ASSPAR
2494 @ 20536:                  CALL  
2495 @ 20537:                  LINE   562 "regression-compile-tmp/chimps.imp"
2496 @ 20574:                  JUMP   L_00ec

   563  s(notinloop): printstring("Not in loop");   -> print
2497 @ 20577:                  LINE   563 "regression-compile-tmp/chimps.imp"
2498 @ 20614:                  PUSHI  #0x00000010
2499 @ 20619:                  SLABEL 235
2500 @ 20622:                  LINE   563 "regression-compile-tmp/chimps.imp"
2501 @ 20659:                  PUSH   PRINTSTRING
2502 @ 20662:                  PUSHS  "Not in loop"
2503 @ 20675:                  ASSPAR
2504 @ 20676:                  CALL  
2505 @ 20677:                  LINE   563 "regression-compile-tmp/chimps.imp"
2506 @ 20714:                  JUMP   L_00ec

   564  s(notinrout): printstring("Not in routine");-> print
2507 @ 20717:                  LINE   564 "regression-compile-tmp/chimps.imp"
2508 @ 20754:                  PUSHI  #0x00000011
2509 @ 20759:                  SLABEL 235
2510 @ 20762:                  LINE   564 "regression-compile-tmp/chimps.imp"
2511 @ 20799:                  PUSH   PRINTSTRING
2512 @ 20802:                  PUSHS  "Not in routine"
2513 @ 20818:                  ASSPAR
2514 @ 20819:                  CALL  
2515 @ 20820:                  LINE   564 "regression-compile-tmp/chimps.imp"
2516 @ 20857:                  JUMP   L_00ec

   565  s(notinfun):  printstring("Not in fn/map"); -> print
2517 @ 20860:                  LINE   565 "regression-compile-tmp/chimps.imp"
2518 @ 20897:                  PUSHI  #0x00000012
2519 @ 20902:                  SLABEL 235
2520 @ 20905:                  LINE   565 "regression-compile-tmp/chimps.imp"
2521 @ 20942:                  PUSH   PRINTSTRING
2522 @ 20945:                  PUSHS  "Not in fn/map"
2523 @ 20960:                  ASSPAR
2524 @ 20961:                  CALL  
2525 @ 20962:                  LINE   565 "regression-compile-tmp/chimps.imp"
2526 @ 20999:                  JUMP   L_00ec

   566  s(notinpred): printstring("Not in pred");   -> print
2527 @ 21002:                  LINE   566 "regression-compile-tmp/chimps.imp"
2528 @ 21039:                  PUSHI  #0x00000013
2529 @ 21044:                  SLABEL 235
2530 @ 21047:                  LINE   566 "regression-compile-tmp/chimps.imp"
2531 @ 21084:                  PUSH   PRINTSTRING
2532 @ 21087:                  PUSHS  "Not in pred"
2533 @ 21100:                  ASSPAR
2534 @ 21101:                  CALL  
2535 @ 21102:                  LINE   566 "regression-compile-tmp/chimps.imp"
2536 @ 21139:                  JUMP   L_00ec

   567  s(plexerr):   printstring("Too complex!");  -> print
2537 @ 21142:                  LINE   567 "regression-compile-tmp/chimps.imp"
2538 @ 21179:                  PUSHI  #0x00000014
2539 @ 21184:                  SLABEL 235
2540 @ 21187:                  LINE   567 "regression-compile-tmp/chimps.imp"
2541 @ 21224:                  PUSH   PRINTSTRING
2542 @ 21227:                  PUSHS  "Too complex!"
2543 @ 21241:                  ASSPAR
2544 @ 21242:                  CALL  
2545 @ 21243:                  LINE   567 "regression-compile-tmp/chimps.imp"
2546 @ 21280:                  JUMP   L_00ec

   568  s(duperr):    printstring("Duplicate");     -> print
2547 @ 21283:                  LINE   568 "regression-compile-tmp/chimps.imp"
2548 @ 21320:                  PUSHI  #0x00000007
2549 @ 21325:                  SLABEL 235
2550 @ 21328:                  LINE   568 "regression-compile-tmp/chimps.imp"
2551 @ 21365:                  PUSH   PRINTSTRING
2552 @ 21368:                  PUSHS  "Duplicate"
2553 @ 21379:                  ASSPAR
2554 @ 21380:                  CALL  
2555 @ 21381:                  LINE   568 "regression-compile-tmp/chimps.imp"
2556 @ 21418:                  JUMP   L_00ec

   569  s(ordererr):  printstring("Out of order");  -> print
2557 @ 21421:                  LINE   569 "regression-compile-tmp/chimps.imp"
2558 @ 21458:                  PUSHI  #0x0000000a
2559 @ 21463:                  SLABEL 235
2560 @ 21466:                  LINE   569 "regression-compile-tmp/chimps.imp"
2561 @ 21503:                  PUSH   PRINTSTRING
2562 @ 21506:                  PUSHS  "Out of order"
2563 @ 21520:                  ASSPAR
2564 @ 21521:                  CALL  
2565 @ 21522:                  LINE   569 "regression-compile-tmp/chimps.imp"
2566 @ 21559:                  JUMP   L_00ec

   570  s(matcherr):  printstring("Mismatch");      -> print
2567 @ 21562:                  LINE   570 "regression-compile-tmp/chimps.imp"
2568 @ 21599:                  PUSHI  #0x0000000b
2569 @ 21604:                  SLABEL 235
2570 @ 21607:                  LINE   570 "regression-compile-tmp/chimps.imp"
2571 @ 21644:                  PUSH   PRINTSTRING
2572 @ 21647:                  PUSHS  "Mismatch"
2573 @ 21657:                  ASSPAR
2574 @ 21658:                  CALL  
2575 @ 21659:                  LINE   570 "regression-compile-tmp/chimps.imp"
2576 @ 21696:                  JUMP   L_00ec

   571  s(rangerr):   printstring("Out of range");  -> print
2577 @ 21699:                  LINE   571 "regression-compile-tmp/chimps.imp"
2578 @ 21736:                  PUSHI  #0x0000000c
2579 @ 21741:                  SLABEL 235
2580 @ 21744:                  LINE   571 "regression-compile-tmp/chimps.imp"
2581 @ 21781:                  PUSH   PRINTSTRING
2582 @ 21784:                  PUSHS  "Out of range"
2583 @ 21798:                  ASSPAR
2584 @ 21799:                  CALL  
2585 @ 21800:                  LINE   571 "regression-compile-tmp/chimps.imp"
2586 @ 21837:                  JUMP   L_00ec

   572  s(nonliteral):printstring("Not literal");   -> print
2587 @ 21840:                  LINE   572 "regression-compile-tmp/chimps.imp"
2588 @ 21877:                  PUSHI  #0x0000000d
2589 @ 21882:                  SLABEL 235
2590 @ 21885:                  LINE   572 "regression-compile-tmp/chimps.imp"
2591 @ 21922:                  PUSH   PRINTSTRING
2592 @ 21925:                  PUSHS  "Not literal"
2593 @ 21938:                  ASSPAR
2594 @ 21939:                  CALL  
2595 @ 21940:                  LINE   572 "regression-compile-tmp/chimps.imp"
2596 @ 21977:                  JUMP   L_00ec

   573  s(nonstand):  printstring("Nonstandard");   -> print
2597 @ 21980:                  LINE   573 "regression-compile-tmp/chimps.imp"
2598 @ 22017:                  PUSHI  #0x00000016
2599 @ 22022:                  SLABEL 235
2600 @ 22025:                  LINE   573 "regression-compile-tmp/chimps.imp"
2601 @ 22062:                  PUSH   PRINTSTRING
2602 @ 22065:                  PUSHS  "Nonstandard"
2603 @ 22078:                  ASSPAR
2604 @ 22079:                  CALL  
2605 @ 22080:                  LINE   573 "regression-compile-tmp/chimps.imp"
2606 @ 22117:                  JUMP   L_00ec

   574  s(notin):     printstring("Not in yet");    -> print
2607 @ 22120:                  LINE   574 "regression-compile-tmp/chimps.imp"
2608 @ 22157:                  PUSHI  #0x00000017
2609 @ 22162:                  SLABEL 235
2610 @ 22165:                  LINE   574 "regression-compile-tmp/chimps.imp"
2611 @ 22202:                  PUSH   PRINTSTRING
2612 @ 22205:                  PUSHS  "Not in yet"
2613 @ 22217:                  ASSPAR
2614 @ 22218:                  CALL  
2615 @ 22219:                  LINE   574 "regression-compile-tmp/chimps.imp"
2616 @ 22256:                  JUMP   L_00ec

   575  s(moperr):    printstring("Faulty operand");-> print
2617 @ 22259:                  LINE   575 "regression-compile-tmp/chimps.imp"
2618 @ 22296:                  PUSHI  #0x0000001b
2619 @ 22301:                  SLABEL 235
2620 @ 22304:                  LINE   575 "regression-compile-tmp/chimps.imp"
2621 @ 22341:                  PUSH   PRINTSTRING
2622 @ 22344:                  PUSHS  "Faulty operand"
2623 @ 22360:                  ASSPAR
2624 @ 22361:                  CALL  
2625 @ 22362:                  LINE   575 "regression-compile-tmp/chimps.imp"
2626 @ 22399:                  JUMP   L_00ec

   576  s(nocycle):   printstring("Missing %CYCLE"); -> print
2627 @ 22402:                  LINE   576 "regression-compile-tmp/chimps.imp"
2628 @ 22439:                  PUSHI  #0x00000009
2629 @ 22444:                  SLABEL 235
2630 @ 22447:                  LINE   576 "regression-compile-tmp/chimps.imp"
2631 @ 22484:                  PUSH   PRINTSTRING
2632 @ 22487:                  PUSHS  "Missing %CYCLE"
2633 @ 22503:                  ASSPAR
2634 @ 22504:                  CALL  
2635 @ 22505:                  LINE   576 "regression-compile-tmp/chimps.imp"
2636 @ 22542:                  JUMP   L_00ec

   577  s(nostart):   printstring("Missing %START"); -> print
2637 @ 22545:                  LINE   577 "regression-compile-tmp/chimps.imp"
2638 @ 22582:                  PUSHI  #0x00000008
2639 @ 22587:                  SLABEL 235
2640 @ 22590:                  LINE   577 "regression-compile-tmp/chimps.imp"
2641 @ 22627:                  PUSH   PRINTSTRING
2642 @ 22630:                  PUSHS  "Missing %START"
2643 @ 22646:                  ASSPAR
2644 @ 22647:                  CALL  
2645 @ 22648:                  LINE   577 "regression-compile-tmp/chimps.imp"
2646 @ 22685:                  JUMP   L_00ec

   578  s(noif):      printstring("Missing %IF");    -> print
2647 @ 22688:                  LINE   578 "regression-compile-tmp/chimps.imp"
2648 @ 22725:                  PUSHI  #0x00000015
2649 @ 22730:                  SLABEL 235
2650 @ 22733:                  LINE   578 "regression-compile-tmp/chimps.imp"
2651 @ 22770:                  PUSH   PRINTSTRING
2652 @ 22773:                  PUSHS  "Missing %IF"
2653 @ 22786:                  ASSPAR
2654 @ 22787:                  CALL  
2655 @ 22788:                  LINE   578 "regression-compile-tmp/chimps.imp"
2656 @ 22825:                  JUMP   L_00ec

   579  s(noterm):    printstring("';' missing");    -> print
2657 @ 22828:                  LINE   579 "regression-compile-tmp/chimps.imp"
2658 @ 22865:                  PUSHI  #0x0000001c
2659 @ 22870:                  SLABEL 235
2660 @ 22873:                  LINE   579 "regression-compile-tmp/chimps.imp"
2661 @ 22910:                  PUSH   PRINTSTRING
2662 @ 22913:                  PUSHS  "';' missing"
2663 @ 22926:                  ASSPAR
2664 @ 22927:                  CALL  
2665 @ 22928:                  LINE   579 "regression-compile-tmp/chimps.imp"
2666 @ 22965:                  JUMP   L_00ec

   580  s(nonstarter):printstring("Non-starter");    -> print
2667 @ 22968:                  LINE   580 "regression-compile-tmp/chimps.imp"
2668 @ 23005:                  PUSHI  #0x0000001d
2669 @ 23010:                  SLABEL 235
2670 @ 23013:                  LINE   580 "regression-compile-tmp/chimps.imp"
2671 @ 23050:                  PUSH   PRINTSTRING
2672 @ 23053:                  PUSHS  "Non-starter"
2673 @ 23066:                  ASSPAR
2674 @ 23067:                  CALL  
2675 @ 23068:                  LINE   580 "regression-compile-tmp/chimps.imp"
2676 @ 23105:                  JUMP   L_00ec

   581  s(nonvar):    printstring("Not variable");   -> print
2677 @ 23108:                  LINE   581 "regression-compile-tmp/chimps.imp"
2678 @ 23145:                  PUSHI  #0x0000001e
2679 @ 23150:                  SLABEL 235
2680 @ 23153:                  LINE   581 "regression-compile-tmp/chimps.imp"
2681 @ 23190:                  PUSH   PRINTSTRING
2682 @ 23193:                  PUSHS  "Not variable"
2683 @ 23207:                  ASSPAR
2684 @ 23208:                  CALL  
2685 @ 23209:                  LINE   581 "regression-compile-tmp/chimps.imp"
2686 @ 23246:                  JUMP   L_00ec

   582  s(nonref):    printstring("Not reference");  -> print
2687 @ 23249:                  LINE   582 "regression-compile-tmp/chimps.imp"
2688 @ 23286:                  PUSHI  #0x0000001f
2689 @ 23291:                  SLABEL 235
2690 @ 23294:                  LINE   582 "regression-compile-tmp/chimps.imp"
2691 @ 23331:                  PUSH   PRINTSTRING
2692 @ 23334:                  PUSHS  "Not reference"
2693 @ 23349:                  ASSPAR
2694 @ 23350:                  CALL  
2695 @ 23351:                  LINE   582 "regression-compile-tmp/chimps.imp"
2696 @ 23388:                  JUMP   L_00ec

   583  s(noparm):    printstring("No parameters");  -> print
2697 @ 23391:                  LINE   583 "regression-compile-tmp/chimps.imp"
2698 @ 23428:                  PUSHI  #0x00000023
2699 @ 23433:                  SLABEL 235
2700 @ 23436:                  LINE   583 "regression-compile-tmp/chimps.imp"
2701 @ 23473:                  PUSH   PRINTSTRING
2702 @ 23476:                  PUSHS  "No parameters"
2703 @ 23491:                  ASSPAR
2704 @ 23492:                  CALL  
2705 @ 23493:                  LINE   583 "regression-compile-tmp/chimps.imp"
2706 @ 23530:                  JUMP   L_00ec

   584  s(toofew):    printstring("Too few");        -> print
2707 @ 23533:                  LINE   584 "regression-compile-tmp/chimps.imp"
2708 @ 23570:                  PUSHI  #0x00000021
2709 @ 23575:                  SLABEL 235
2710 @ 23578:                  LINE   584 "regression-compile-tmp/chimps.imp"
2711 @ 23615:                  PUSH   PRINTSTRING
2712 @ 23618:                  PUSHS  "Too few"
2713 @ 23627:                  ASSPAR
2714 @ 23628:                  CALL  
2715 @ 23629:                  LINE   584 "regression-compile-tmp/chimps.imp"
2716 @ 23666:                  JUMP   L_00ec

   585  s(unwanted):  printstring("Unwanted");       -> print
2717 @ 23669:                  LINE   585 "regression-compile-tmp/chimps.imp"
2718 @ 23706:                  PUSHI  #0x00000022
2719 @ 23711:                  SLABEL 235
2720 @ 23714:                  LINE   585 "regression-compile-tmp/chimps.imp"
2721 @ 23751:                  PUSH   PRINTSTRING
2722 @ 23754:                  PUSHS  "Unwanted"
2723 @ 23764:                  ASSPAR
2724 @ 23765:                  CALL  
2725 @ 23766:                  LINE   585 "regression-compile-tmp/chimps.imp"
2726 @ 23803:                  JUMP   L_00ec

   586  s(toomany):   printstring("Too many");       -> print
2727 @ 23806:                  LINE   586 "regression-compile-tmp/chimps.imp"
2728 @ 23843:                  PUSHI  #0x00000020
2729 @ 23848:                  SLABEL 235
2730 @ 23851:                  LINE   586 "regression-compile-tmp/chimps.imp"
2731 @ 23888:                  PUSH   PRINTSTRING
2732 @ 23891:                  PUSHS  "Too many"
2733 @ 23901:                  ASSPAR
2734 @ 23902:                  CALL  
2735 @ 23903:                  LINE   586 "regression-compile-tmp/chimps.imp"
2736 @ 23940:                  JUMP   L_00ec

   587  s(selfref):   printstring("Self-reference"); -> print
2737 @ 23943:                  LINE   587 "regression-compile-tmp/chimps.imp"
2738 @ 23980:                  PUSHI  #0x00000026
2739 @ 23985:                  SLABEL 235
2740 @ 23988:                  LINE   587 "regression-compile-tmp/chimps.imp"
2741 @ 24025:                  PUSH   PRINTSTRING
2742 @ 24028:                  PUSHS  "Self-reference"
2743 @ 24044:                  ASSPAR
2744 @ 24045:                  CALL  
2745 @ 24046:                  LINE   587 "regression-compile-tmp/chimps.imp"
2746 @ 24083:                  JUMP   L_00ec

   588  s(nobegin):   printstring("Extra %END");     -> print
2747 @ 24086:                  LINE   588 "regression-compile-tmp/chimps.imp"
2748 @ 24123:                  PUSHI  #0x00000029
2749 @ 24128:                  SLABEL 235
2750 @ 24131:                  LINE   588 "regression-compile-tmp/chimps.imp"
2751 @ 24168:                  PUSH   PRINTSTRING
2752 @ 24171:                  PUSHS  "Extra %END"
2753 @ 24183:                  ASSPAR
2754 @ 24184:                  CALL  
2755 @ 24185:                  LINE   588 "regression-compile-tmp/chimps.imp"
2756 @ 24222:                  JUMP   L_00ec

   589  print:
2757 @ 24225:                  LINE   589 "regression-compile-tmp/chimps.imp"
2758 @ 24262:                  LABEL  L_00ec

   590    spaces(21-length(rep))
2759 @ 24265:                  LINE   590 "regression-compile-tmp/chimps.imp"
2760 @ 24302:                  PUSH   SPACES
2761 @ 24305:                  PUSHI  #0x00000015
2762 @ 24310:                  PUSH   LENGTH
2763 @ 24313:                  PUSH   REP
2764 @ 24316:                  ASSPAR
2765 @ 24317:                  CALL  
2766 @ 24318:                  SUB   
2767 @ 24319:                  ASSPAR
2768 @ 24320:                  CALL  

   591    p = start
2769 @ 24321:                  LINE   591 "regression-compile-tmp/chimps.imp"
2770 @ 24358:                  PUSH   P
2771 @ 24361:                  PUSH   START
2772 @ 24364:                  ASSVAL

   592    %if p < faultp-50 %then p = faultp-47 %and printstring("...") %c
   593    %else put sym(' ')
2773 @ 24365:                  LINE   592 "regression-compile-tmp/chimps.imp"
2774 @ 24402:                  PUSH   P
2775 @ 24405:                  PUSH   FAULTP
2776 @ 24408:                  PUSHI  #0x00000032
2777 @ 24413:                  SUB   
2778 @ 24414:                  JUMPIF >= L_0004
2779 @ 24418:                  PUSH   P
2780 @ 24421:                  PUSH   FAULTP
2781 @ 24424:                  PUSHI  #0x0000002f
2782 @ 24429:                  SUB   
2783 @ 24430:                  ASSVAL
2784 @ 24431:                  PUSH   PRINTSTRING
2785 @ 24434:                  PUSHS  "..."
2786 @ 24439:                  ASSPAR
2787 @ 24440:                  CALL  
2788 @ 24441:                  GOTO   L_0003
2789 @ 24444:                  LOCATE L_0004
2790 @ 24447:                  PUSH   PUTSYM
2791 @ 24450:                  PUSHI  #0x00000020
2792 @ 24455:                  ASSPAR
2793 @ 24456:                  CALL  
2794 @ 24457:                  LOCATE L_0003

   594    %cycle
2795 @ 24460:                  LINE   594 "regression-compile-tmp/chimps.imp"
2796 @ 24497:                  LOCATE L_0003

   595      k = byteinteger(p);  p = p+1
2797 @ 24500:                  LINE   595 "regression-compile-tmp/chimps.imp"
2798 @ 24537:                  PUSH   K
2799 @ 24540:                  PUSH   BYTEINTEGER
2800 @ 24543:                  PUSH   P
2801 @ 24546:                  ASSPAR
2802 @ 24547:                  CALL  
2803 @ 24548:                  ASSVAL
2804 @ 24549:                  LINE   595 "regression-compile-tmp/chimps.imp"
2805 @ 24586:                  PUSH   P
2806 @ 24589:                  PUSH   P
2807 @ 24592:                  PUSHI  #0x00000001
2808 @ 24597:                  ADD   
2809 @ 24598:                  ASSVAL

   596      %if p = faultp %start
   597  !$IF VAX
2810 @ 24599:                  LINE   596 "regression-compile-tmp/chimps.imp"
2811 @ 24636:                  PUSH   P
2812 @ 24639:                  PUSH   FAULTP
2813 @ 24642:                  JUMPIF # L_0007

   598        put sym(esc) %and put sym('F') %if stream = 0
   599  !$FINISH
2814 @ 24646:                  LINE   598 "regression-compile-tmp/chimps.imp"
2815 @ 24683:                  PUSH   STREAM
2816 @ 24686:                  PUSHI  #0x00000000
2817 @ 24691:                  JUMPIF # L_000a
2818 @ 24695:                  PUSH   PUTSYM
2819 @ 24698:                  PUSHI  #0x0000001b
2820 @ 24703:                  ASSPAR
2821 @ 24704:                  CALL  
2822 @ 24705:                  PUSH   PUTSYM
2823 @ 24708:                  PUSHI  #0x00000046
2824 @ 24713:                  ASSPAR
2825 @ 24714:                  CALL  
2826 @ 24715:                  LOCATE L_000a

   600        put sym('~')
   601  !$IF VAX
2827 @ 24718:                  LINE   600 "regression-compile-tmp/chimps.imp"
2828 @ 24755:                  PUSH   PUTSYM
2829 @ 24758:                  PUSHI  #0x0000007e
2830 @ 24763:                  ASSPAR
2831 @ 24764:                  CALL  

   602        put sym(esc) %and put sym('G') %if stream = 0
   603  !$FINISH
2832 @ 24765:                  LINE   602 "regression-compile-tmp/chimps.imp"
2833 @ 24802:                  PUSH   STREAM
2834 @ 24805:                  PUSHI  #0x00000000
2835 @ 24810:                  JUMPIF # L_000a
2836 @ 24814:                  PUSH   PUTSYM
2837 @ 24817:                  PUSHI  #0x0000001b
2838 @ 24822:                  ASSPAR
2839 @ 24823:                  CALL  
2840 @ 24824:                  PUSH   PUTSYM
2841 @ 24827:                  PUSHI  #0x00000047
2842 @ 24832:                  ASSPAR
2843 @ 24833:                  CALL  
2844 @ 24834:                  LOCATE L_000a

   604      %finish
2845 @ 24837:                  LINE   604 "regression-compile-tmp/chimps.imp"
2846 @ 24874:                  LOCATE L_0007

   605      %exit %if k = nl
2847 @ 24877:                  LINE   605 "regression-compile-tmp/chimps.imp"
2848 @ 24914:                  PUSH   K
2849 @ 24917:                  PUSHI  #0x0000000a
2850 @ 24922:                  JUMPIF # L_0007
2851 @ 24926:                  GOTO   L_0004
2852 @ 24929:                  LOCATE L_0007

   606      %if ' ' <= k <= '~' %then put sym(k) %c
   607      %else put sym('[') %and write(k,-1) %and put sym(']')
2853 @ 24932:                  LINE   606 "regression-compile-tmp/chimps.imp"
2854 @ 24969:                  PUSHI  #0x00000020
2855 @ 24974:                  PUSH   K
2856 @ 24977:                  JUMPIFD > L_0007
2857 @ 24981:                  PUSHI  #0x0000007e
2858 @ 24986:                  JUMPIF > L_0007
2859 @ 24990:                  PUSH   PUTSYM
2860 @ 24993:                  PUSH   K
2861 @ 24996:                  ASSPAR
2862 @ 24997:                  CALL  
2863 @ 24998:                  GOTO   L_0006
2864 @ 25001:                  LOCATE L_0007
2865 @ 25004:                  PUSH   PUTSYM
2866 @ 25007:                  PUSHI  #0x0000005b
2867 @ 25012:                  ASSPAR
2868 @ 25013:                  CALL  
2869 @ 25014:                  PUSH   WRITE
2870 @ 25017:                  PUSH   K
2871 @ 25020:                  ASSPAR
2872 @ 25021:                  PUSHI  #0x00000001
2873 @ 25026:                  NEGATE
2874 @ 25027:                  ASSPAR
2875 @ 25028:                  CALL  
2876 @ 25029:                  PUSH   PUTSYM
2877 @ 25032:                  PUSHI  #0x0000005d
2878 @ 25037:                  ASSPAR
2879 @ 25038:                  CALL  
2880 @ 25039:                  LOCATE L_0006

   608    %repeat
2881 @ 25042:                  LINE   608 "regression-compile-tmp/chimps.imp"
2882 @ 25079:                  REPEAT L_0003
2883 @ 25082:                  LOCATE L_0004

   609    %return
2884 @ 25085:                  LINE   609 "regression-compile-tmp/chimps.imp"
2885 @ 25122:                  RETURN

   610  s(noend):     printstring("%END");           ->mend
2886 @ 25123:                  LINE   610 "regression-compile-tmp/chimps.imp"
2887 @ 25160:                  PUSHI  #0x00000028
2888 @ 25165:                  SLABEL 235
2889 @ 25168:                  LINE   610 "regression-compile-tmp/chimps.imp"
2890 @ 25205:                  PUSH   PRINTSTRING
2891 @ 25208:                  PUSHS  "%END"
2892 @ 25214:                  ASSPAR
2893 @ 25215:                  CALL  
2894 @ 25216:                  LINE   610 "regression-compile-tmp/chimps.imp"
2895 @ 25253:                  JUMP   L_00ed

   611  s(noresult):  printstring("Result");         ->mend
2896 @ 25256:                  LINE   611 "regression-compile-tmp/chimps.imp"
2897 @ 25293:                  PUSHI  #0x0000002e
2898 @ 25298:                  SLABEL 235
2899 @ 25301:                  LINE   611 "regression-compile-tmp/chimps.imp"
2900 @ 25338:                  PUSH   PRINTSTRING
2901 @ 25341:                  PUSHS  "Result"
2902 @ 25349:                  ASSPAR
2903 @ 25350:                  CALL  
2904 @ 25351:                  LINE   611 "regression-compile-tmp/chimps.imp"
2905 @ 25388:                  JUMP   L_00ed

   612  s(nofinish):  printstring("%FINISH");        ->mend0
2906 @ 25391:                  LINE   612 "regression-compile-tmp/chimps.imp"
2907 @ 25428:                  PUSHI  #0x0000002b
2908 @ 25433:                  SLABEL 235
2909 @ 25436:                  LINE   612 "regression-compile-tmp/chimps.imp"
2910 @ 25473:                  PUSH   PRINTSTRING
2911 @ 25476:                  PUSHS  "%FINISH"
2912 @ 25485:                  ASSPAR
2913 @ 25486:                  CALL  
2914 @ 25487:                  LINE   612 "regression-compile-tmp/chimps.imp"
2915 @ 25524:                  JUMP   L_00ee

   613  s(norepeat):  printstring("%REPEAT")
2916 @ 25527:                  LINE   613 "regression-compile-tmp/chimps.imp"
2917 @ 25564:                  PUSHI  #0x0000002c
2918 @ 25569:                  SLABEL 235
2919 @ 25572:                  LINE   613 "regression-compile-tmp/chimps.imp"
2920 @ 25609:                  PUSH   PRINTSTRING
2921 @ 25612:                  PUSHS  "%REPEAT"
2922 @ 25621:                  ASSPAR
2923 @ 25622:                  CALL  

   614  mend0:        printstring(" etc") %if curlab > lab1+2
2924 @ 25623:                  LINE   614 "regression-compile-tmp/chimps.imp"
2925 @ 25660:                  LABEL  L_00ee
2926 @ 25663:                  LINE   614 "regression-compile-tmp/chimps.imp"
2927 @ 25700:                  PUSH   CURLAB
2928 @ 25703:                  PUSHI  #0x00000ca3
2929 @ 25708:                  PUSHI  #0x00000002
2930 @ 25713:                  ADD   
2931 @ 25714:                  JUMPIF <= L_0004
2932 @ 25718:                  PUSH   PRINTSTRING
2933 @ 25721:                  PUSHS  " etc"
2934 @ 25727:                  ASSPAR
2935 @ 25728:                  CALL  
2936 @ 25729:                  LOCATE L_0004

   615                -> mend
2937 @ 25732:                  LINE   615 "regression-compile-tmp/chimps.imp"
2938 @ 25769:                  JUMP   L_00ed

   616  s(idmissing):
2939 @ 25772:                  LINE   616 "regression-compile-tmp/chimps.imp"
2940 @ 25809:                  PUSHI  #0x0000002a
2941 @ 25814:                  SLABEL 235

   617    %cycle
   618  !    newline %and spaces(8) %and outcol = 8 %if outcol > 50
2942 @ 25817:                  LINE   617 "regression-compile-tmp/chimps.imp"
2943 @ 25854:                  LOCATE L_0003

   619      put sym(' ')
2944 @ 25857:                  LINE   619 "regression-compile-tmp/chimps.imp"
2945 @ 25894:                  PUSH   PUTSYM
2946 @ 25897:                  PUSHI  #0x00000020
2947 @ 25902:                  ASSPAR
2948 @ 25903:                  CALL  

   620      print ident(x)
2949 @ 25904:                  LINE   620 "regression-compile-tmp/chimps.imp"
2950 @ 25941:                  PUSH   PRINTIDENT
2951 @ 25944:                  PUSH   X
2952 @ 25947:                  ASSPAR
2953 @ 25948:                  CALL  

   621      print string("(?)") %if dict(x)_flags&spec = 0;  !switch
2954 @ 25949:                  LINE   621 "regression-compile-tmp/chimps.imp"
2955 @ 25986:                  PUSH   DICT
2956 @ 25989:                  PUSH   X
2957 @ 25992:                  ACCESS
2958 @ 25993:                  SELECT 1
2959 @ 25996:                  PUSHI  #0x00000010
2960 @ 26001:                  AND   
2961 @ 26002:                  PUSHI  #0x00000000
2962 @ 26007:                  JUMPIF # L_0007
2963 @ 26011:                  PUSH   PRINTSTRING
2964 @ 26014:                  PUSHS  "(?)"
2965 @ 26019:                  ASSPAR
2966 @ 26020:                  CALL  
2967 @ 26021:                  LOCATE L_0007

   622      x = dict(x)_val
2968 @ 26024:                  LINE   622 "regression-compile-tmp/chimps.imp"
2969 @ 26061:                  PUSH   X
2970 @ 26064:                  PUSH   DICT
2971 @ 26067:                  PUSH   X
2972 @ 26070:                  ACCESS
2973 @ 26071:                  SELECT 7
2974 @ 26074:                  ASSVAL

   623    %repeat %until x = 0
2975 @ 26075:                  LINE   623 "regression-compile-tmp/chimps.imp"
2976 @ 26112:                  PUSH   X
2977 @ 26115:                  PUSHI  #0x00000000
2978 @ 26120:                  JUMPIF = L_0004
2979 @ 26124:                  REPEAT L_0003
2980 @ 26127:                  LOCATE L_0004

   624  mend:
2981 @ 26130:                  LINE   624 "regression-compile-tmp/chimps.imp"
2982 @ 26167:                  LABEL  L_00ed

   625    printstring(" missing")
2983 @ 26170:                  LINE   625 "regression-compile-tmp/chimps.imp"
2984 @ 26207:                  PUSH   PRINTSTRING
2985 @ 26210:                  PUSHS  " missing"
2986 @ 26220:                  ASSPAR
2987 @ 26221:                  CALL  

   626    %if c_type # 0 %start
2988 @ 26222:                  LINE   626 "regression-compile-tmp/chimps.imp"
2989 @ 26259:                  PUSH   C
2990 @ 26262:                  SELECT 5
2991 @ 26265:                  PUSHI  #0x00000000
2992 @ 26270:                  JUMPIF = L_0004

   627      print string(" at END of ")
2993 @ 26274:                  LINE   627 "regression-compile-tmp/chimps.imp"
2994 @ 26311:                  PUSH   PRINTSTRING
2995 @ 26314:                  PUSHS  " at END of "
2996 @ 26327:                  ASSPAR
2997 @ 26328:                  CALL  

   628      print ident(c_pidpos)
2998 @ 26329:                  LINE   628 "regression-compile-tmp/chimps.imp"
2999 @ 26366:                  PUSH   PRINTIDENT
3000 @ 26369:                  PUSH   C
3001 @ 26372:                  SELECT 11
3002 @ 26375:                  ASSPAR
3003 @ 26376:                  CALL  

   629    %finish %else n = 0
3004 @ 26377:                  LINE   629 "regression-compile-tmp/chimps.imp"
3005 @ 26414:                  GOTO   L_0003
3006 @ 26417:                  LOCATE L_0004
3007 @ 26420:                  PUSH   N
3008 @ 26423:                  PUSHI  #0x00000000
3009 @ 26428:                  ASSVAL
3010 @ 26429:                  LOCATE L_0003

   630    %return
3011 @ 26432:                  LINE   630 "regression-compile-tmp/chimps.imp"
3012 @ 26469:                  RETURN

   631  s(counterr):
3013 @ 26470:                  LINE   631 "regression-compile-tmp/chimps.imp"
3014 @ 26507:                  PUSHI  #0x0000002d
3015 @ 26512:                  SLABEL 235

   632    %if elements < 0 %start
3016 @ 26515:                  LINE   632 "regression-compile-tmp/chimps.imp"
3017 @ 26552:                  PUSH   ELEMENTS
3018 @ 26555:                  PUSHI  #0x00000000
3019 @ 26560:                  JUMPIF >= L_0004

   633      write(-elements,0);  printstring(" extra")
3020 @ 26564:                  LINE   633 "regression-compile-tmp/chimps.imp"
3021 @ 26601:                  PUSH   WRITE
3022 @ 26604:                  PUSH   ELEMENTS
3023 @ 26607:                  NEGATE
3024 @ 26608:                  ASSPAR
3025 @ 26609:                  PUSHI  #0x00000000
3026 @ 26614:                  ASSPAR
3027 @ 26615:                  CALL  
3028 @ 26616:                  LINE   633 "regression-compile-tmp/chimps.imp"
3029 @ 26653:                  PUSH   PRINTSTRING
3030 @ 26656:                  PUSHS  " extra"
3031 @ 26664:                  ASSPAR
3032 @ 26665:                  CALL  

   634    %finish %else %start
3033 @ 26666:                  LINE   634 "regression-compile-tmp/chimps.imp"
3034 @ 26703:                  GOTO   L_0003
3035 @ 26706:                  LOCATE L_0004

   635      write(elements,0);  printstring(" missing")
3036 @ 26709:                  LINE   635 "regression-compile-tmp/chimps.imp"
3037 @ 26746:                  PUSH   WRITE
3038 @ 26749:                  PUSH   ELEMENTS
3039 @ 26752:                  ASSPAR
3040 @ 26753:                  PUSHI  #0x00000000
3041 @ 26758:                  ASSPAR
3042 @ 26759:                  CALL  
3043 @ 26760:                  LINE   635 "regression-compile-tmp/chimps.imp"
3044 @ 26797:                  PUSH   PRINTSTRING
3045 @ 26800:                  PUSHS  " missing"
3046 @ 26810:                  ASSPAR
3047 @ 26811:                  CALL  

   636    %finish
3048 @ 26812:                  LINE   636 "regression-compile-tmp/chimps.imp"
3049 @ 26849:                  LOCATE L_0003

   637    printstring(" value(s) for ")
3050 @ 26852:                  LINE   637 "regression-compile-tmp/chimps.imp"
3051 @ 26889:                  PUSH   PRINTSTRING
3052 @ 26892:                  PUSHS  " value(s) for "
3053 @ 26908:                  ASSPAR
3054 @ 26909:                  CALL  

   638    print ident(x)
3055 @ 26910:                  LINE   638 "regression-compile-tmp/chimps.imp"
3056 @ 26947:                  PUSH   PRINTIDENT
3057 @ 26950:                  PUSH   X
3058 @ 26953:                  ASSPAR
3059 @ 26954:                  CALL  

   639    %return
3060 @ 26955:                  LINE   639 "regression-compile-tmp/chimps.imp"
3061 @ 26992:                  RETURN

   640  s(asserr):
3062 @ 26993:                  LINE   640 "regression-compile-tmp/chimps.imp"
3063 @ 27030:                  PUSHI  #0x00000005
3064 @ 27035:                  SLABEL 235

   641    print ident(x)
3065 @ 27038:                  LINE   641 "regression-compile-tmp/chimps.imp"
3066 @ 27075:                  PUSH   PRINTIDENT
3067 @ 27078:                  PUSH   X
3068 @ 27081:                  ASSPAR
3069 @ 27082:                  CALL  

   642    print string(" void")
3070 @ 27083:                  LINE   642 "regression-compile-tmp/chimps.imp"
3071 @ 27120:                  PUSH   PRINTSTRING
3072 @ 27123:                  PUSHS  " void"
3073 @ 27130:                  ASSPAR
3074 @ 27131:                  CALL  

   643  %end
   644  
   645  !Warning or error
3075 @ 27132:                  LINE   643 "regression-compile-tmp/chimps.imp"
3076 @ 27169:               END    _ECCECI_REPORT_PRINTTEXT {lev=3 --> 2}

   646    mark = '?'
3077 @ 27170:               LINE   646 "regression-compile-tmp/chimps.imp"
3078 @ 27207:               PUSH   MARK
3079 @ 27210:               PUSHI  #0x0000003f
3080 @ 27215:               ASSVAL

   647    %if n&warn = 0 %start
3081 @ 27216:               LINE   647 "regression-compile-tmp/chimps.imp"
3082 @ 27253:               PUSH   N
3083 @ 27256:               PUSHI  #0x00000080
3084 @ 27261:               AND   
3085 @ 27262:               PUSHI  #0x00000000
3086 @ 27267:               JUMPIF # L_0004

   648      mark = '*'
3087 @ 27271:               LINE   648 "regression-compile-tmp/chimps.imp"
3088 @ 27308:               PUSH   MARK
3089 @ 27311:               PUSHI  #0x0000002a
3090 @ 27316:               ASSVAL

   649      c_faults = c_faults+1;  faults = faults+1
3091 @ 27317:               LINE   649 "regression-compile-tmp/chimps.imp"
3092 @ 27354:               PUSH   C
3093 @ 27357:               SELECT 16
3094 @ 27360:               PUSH   C
3095 @ 27363:               SELECT 16
3096 @ 27366:               PUSHI  #0x00000001
3097 @ 27371:               ADD   
3098 @ 27372:               ASSVAL
3099 @ 27373:               LINE   649 "regression-compile-tmp/chimps.imp"
3100 @ 27410:               PUSH   FAULTS
3101 @ 27413:               PUSH   FAULTS
3102 @ 27416:               PUSHI  #0x00000001
3103 @ 27421:               ADD   
3104 @ 27422:               ASSVAL

   650    %finish
3105 @ 27423:               LINE   650 "regression-compile-tmp/chimps.imp"
3106 @ 27460:               LOCATE L_0004

   651    faultnum = 0;  c_access = -1
   652  !Ignore uncorrected earlier error
3107 @ 27463:               LINE   651 "regression-compile-tmp/chimps.imp"
3108 @ 27500:               PUSH   FAULTNUM
3109 @ 27503:               PUSHI  #0x00000000
3110 @ 27508:               ASSVAL
3111 @ 27509:               LINE   651 "regression-compile-tmp/chimps.imp"
3112 @ 27546:               PUSH   C
3113 @ 27549:               SELECT 12
3114 @ 27552:               PUSHI  #0x00000001
3115 @ 27557:               NEGATE
3116 @ 27558:               ASSVAL

   653    %return %if main_start1 <= fp < change
   654  !Track back if before current line
3117 @ 27559:               LINE   653 "regression-compile-tmp/chimps.imp"
3118 @ 27596:               PUSH   MAIN
3119 @ 27599:               SELECT 1
3120 @ 27602:               PUSH   FP
3121 @ 27605:               JUMPIFD > L_0004
3122 @ 27609:               PUSH   CHANGE
3123 @ 27612:               JUMPIF >= L_0004
3124 @ 27616:               RETURN
3125 @ 27617:               LOCATE L_0004

   655    start = linestart;  errline = line
3126 @ 27620:               LINE   655 "regression-compile-tmp/chimps.imp"
3127 @ 27657:               PUSH   START
3128 @ 27660:               PUSH   LINESTART
3129 @ 27663:               ASSVAL
3130 @ 27664:               LINE   655 "regression-compile-tmp/chimps.imp"
3131 @ 27701:               PUSH   ERRLINE
3132 @ 27704:               PUSH   LINE
3133 @ 27707:               ASSVAL

   656    %if n&point = 0 %then faultp = 0 %else %start
3134 @ 27708:               LINE   656 "regression-compile-tmp/chimps.imp"
3135 @ 27745:               PUSH   N
3136 @ 27748:               PUSHI  #0x00000040
3137 @ 27753:               AND   
3138 @ 27754:               PUSHI  #0x00000000
3139 @ 27759:               JUMPIF # L_0004
3140 @ 27763:               PUSH   FAULTP
3141 @ 27766:               PUSHI  #0x00000000
3142 @ 27771:               ASSVAL
3143 @ 27772:               GOTO   L_0003
3144 @ 27775:               LOCATE L_0004

   657      faultp = joker %if joker > 0
3145 @ 27778:               LINE   657 "regression-compile-tmp/chimps.imp"
3146 @ 27815:               PUSH   JOKER
3147 @ 27818:               PUSHI  #0x00000000
3148 @ 27823:               JUMPIF <= L_0007
3149 @ 27827:               PUSH   FAULTP
3150 @ 27830:               PUSH   JOKER
3151 @ 27833:               ASSVAL
3152 @ 27834:               LOCATE L_0007

   658      %while faultp <= start %cycle
3153 @ 27837:               LINE   658 "regression-compile-tmp/chimps.imp"
3154 @ 27874:               LOCATE L_0006
3155 @ 27877:               PUSH   FAULTP
3156 @ 27880:               PUSH   START
3157 @ 27883:               JUMPIF > L_0007

   659        start = start-1
3158 @ 27887:               LINE   659 "regression-compile-tmp/chimps.imp"
3159 @ 27924:               PUSH   START
3160 @ 27927:               PUSH   START
3161 @ 27930:               PUSHI  #0x00000001
3162 @ 27935:               SUB   
3163 @ 27936:               ASSVAL

   660        errline = errline-1 %if byteinteger(start) = nl
3164 @ 27937:               LINE   660 "regression-compile-tmp/chimps.imp"
3165 @ 27974:               PUSH   BYTEINTEGER
3166 @ 27977:               PUSH   START
3167 @ 27980:               ASSPAR
3168 @ 27981:               CALL  
3169 @ 27982:               PUSHI  #0x0000000a
3170 @ 27987:               JUMPIF # L_000a
3171 @ 27991:               PUSH   ERRLINE
3172 @ 27994:               PUSH   ERRLINE
3173 @ 27997:               PUSHI  #0x00000001
3174 @ 28002:               SUB   
3175 @ 28003:               ASSVAL
3176 @ 28004:               LOCATE L_000a

   661      %repeat
3177 @ 28007:               LINE   661 "regression-compile-tmp/chimps.imp"
3178 @ 28044:               REPEAT L_0006
3179 @ 28047:               LOCATE L_0007

   662      start = start-1 %while start # curstart %and byteinteger(start-1) # nl
3180 @ 28050:               LINE   662 "regression-compile-tmp/chimps.imp"
3181 @ 28087:               LOCATE L_0006
3182 @ 28090:               PUSH   START
3183 @ 28093:               PUSH   CURSTART
3184 @ 28096:               JUMPIF = L_0007
3185 @ 28100:               PUSH   BYTEINTEGER
3186 @ 28103:               PUSH   START
3187 @ 28106:               PUSHI  #0x00000001
3188 @ 28111:               SUB   
3189 @ 28112:               ASSPAR
3190 @ 28113:               CALL  
3191 @ 28114:               PUSHI  #0x0000000a
3192 @ 28119:               JUMPIF = L_0007
3193 @ 28123:               PUSH   START
3194 @ 28126:               PUSH   START
3195 @ 28129:               PUSHI  #0x00000001
3196 @ 28134:               SUB   
3197 @ 28135:               ASSVAL
3198 @ 28136:               REPEAT L_0006
3199 @ 28139:               LOCATE L_0007

   663    %finish
3200 @ 28142:               LINE   663 "regression-compile-tmp/chimps.imp"
3201 @ 28179:               LOCATE L_0003

   664    editfp = start;  editfp = faultp-1 %if faultp > start
3202 @ 28182:               LINE   664 "regression-compile-tmp/chimps.imp"
3203 @ 28219:               PUSH   EDITFP
3204 @ 28222:               PUSH   START
3205 @ 28225:               ASSVAL
3206 @ 28226:               LINE   664 "regression-compile-tmp/chimps.imp"
3207 @ 28263:               PUSH   FAULTP
3208 @ 28266:               PUSH   START
3209 @ 28269:               JUMPIF <= L_0004
3210 @ 28273:               PUSH   EDITFP
3211 @ 28276:               PUSH   FAULTP
3212 @ 28279:               PUSHI  #0x00000001
3213 @ 28284:               SUB   
3214 @ 28285:               ASSVAL
3215 @ 28286:               LOCATE L_0004

   665    editfp = mainfp %if curlim = extra_lim2
3216 @ 28289:               LINE   665 "regression-compile-tmp/chimps.imp"
3217 @ 28326:               PUSH   CURLIM
3218 @ 28329:               PUSH   EXTRA
3219 @ 28332:               SELECT 4
3220 @ 28335:               JUMPIF # L_0004
3221 @ 28339:               PUSH   EDITFP
3222 @ 28342:               PUSH   MAINFP
3223 @ 28345:               ASSVAL
3224 @ 28346:               LOCATE L_0004

   666    start = start+1 %while byteinteger(start) = ' '
3225 @ 28349:               LINE   666 "regression-compile-tmp/chimps.imp"
3226 @ 28386:               LOCATE L_0003
3227 @ 28389:               PUSH   BYTEINTEGER
3228 @ 28392:               PUSH   START
3229 @ 28395:               ASSPAR
3230 @ 28396:               CALL  
3231 @ 28397:               PUSHI  #0x00000020
3232 @ 28402:               JUMPIF # L_0004
3233 @ 28406:               PUSH   START
3234 @ 28409:               PUSH   START
3235 @ 28412:               PUSHI  #0x00000001
3236 @ 28417:               ADD   
3237 @ 28418:               ASSVAL
3238 @ 28419:               REPEAT L_0003
3239 @ 28422:               LOCATE L_0004

   667    print text(joker,0)
3240 @ 28425:               LINE   667 "regression-compile-tmp/chimps.imp"
3241 @ 28462:               PUSH   PRINTTEXT
3242 @ 28465:               PUSH   JOKER
3243 @ 28468:               ASSPAR
3244 @ 28469:               PUSHI  #0x00000000
3245 @ 28474:               ASSPAR
3246 @ 28475:               CALL  

   668    newline %and %return %if n&warn # 0 %or nonstop # 0
3247 @ 28476:               LINE   668 "regression-compile-tmp/chimps.imp"
3248 @ 28513:               PUSH   N
3249 @ 28516:               PUSHI  #0x00000080
3250 @ 28521:               AND   
3251 @ 28522:               PUSHI  #0x00000000
3252 @ 28527:               JUMPIF # L_0005
3253 @ 28531:               PUSH   NONSTOP
3254 @ 28534:               PUSHI  #0x00000000
3255 @ 28539:               JUMPIF = L_0004
3256 @ 28543:               LOCATE L_0005
3257 @ 28546:               PUSH   NEWLINE
3258 @ 28549:               CALL  
3259 @ 28550:               RETURN
3260 @ 28551:               LOCATE L_0004

   669    main_fp = editfp;  main_line = line
3261 @ 28554:               LINE   669 "regression-compile-tmp/chimps.imp"
3262 @ 28591:               PUSH   MAIN
3263 @ 28594:               SELECT 7
3264 @ 28597:               PUSH   EDITFP
3265 @ 28600:               ASSVAL
3266 @ 28601:               LINE   669 "regression-compile-tmp/chimps.imp"
3267 @ 28638:               PUSH   MAIN
3268 @ 28641:               SELECT 10
3269 @ 28644:               PUSH   LINE
3270 @ 28647:               ASSVAL

   670    %if change # 0 %then main_change = 16_7FFFFFFE
3271 @ 28648:               LINE   670 "regression-compile-tmp/chimps.imp"
3272 @ 28685:               PUSH   CHANGE
3273 @ 28688:               PUSHI  #0x00000000
3274 @ 28693:               JUMPIF = L_0004
3275 @ 28697:               PUSH   MAIN
3276 @ 28700:               SELECT 8
3277 @ 28703:               PUSHI  #0x7ffffffe
3278 @ 28708:               ASSVAL
3279 @ 28709:               LOCATE L_0004

   671    edi(main,null,rep)
3280 @ 28712:               LINE   671 "regression-compile-tmp/chimps.imp"
3281 @ 28749:               PUSH   EDI
3282 @ 28752:               PUSH   MAIN
3283 @ 28755:               ASSPAR
3284 @ 28756:               PUSH   NULL
3285 @ 28759:               ASSPAR
3286 @ 28760:               PUSH   REP
3287 @ 28763:               ASSPAR
3288 @ 28764:               CALL  

   672    rep = ""
3289 @ 28765:               LINE   672 "regression-compile-tmp/chimps.imp"
3290 @ 28802:               PUSH   REP
3291 @ 28805:               PUSHS  ""
3292 @ 28807:               ASSVAL

   673    nonstop = 1 %if main_flag = 'I'
3293 @ 28808:               LINE   673 "regression-compile-tmp/chimps.imp"
3294 @ 28845:               PUSH   MAIN
3295 @ 28848:               SELECT 9
3296 @ 28851:               PUSHI  #0x00000049
3297 @ 28856:               JUMPIF # L_0004
3298 @ 28860:               PUSH   NONSTOP
3299 @ 28863:               PUSHI  #0x00000001
3300 @ 28868:               ASSVAL
3301 @ 28869:               LOCATE L_0004

   674    %stop %if main_flag < 0
3302 @ 28872:               LINE   674 "regression-compile-tmp/chimps.imp"
3303 @ 28909:               PUSH   MAIN
3304 @ 28912:               SELECT 9
3305 @ 28915:               PUSHI  #0x00000000
3306 @ 28920:               JUMPIF >= L_0004
3307 @ 28924:               STOP  
3308 @ 28925:               LOCATE L_0004

   675    %signal 12 %if main_change < 16_7FFFFFFE {change made}
3309 @ 28928:               LINE   675 "regression-compile-tmp/chimps.imp"
3310 @ 28965:               PUSH   MAIN
3311 @ 28968:               SELECT 8
3312 @ 28971:               PUSHI  #0x7ffffffe
3313 @ 28976:               JUMPIF >= L_0004
3314 @ 28980:               EVENT  000c
3315 @ 28983:               LOCATE L_0004

   676   %end;  !report
   677  
3316 @ 28986:               LINE   676 "regression-compile-tmp/chimps.imp"
3317 @ 29023:            END    _ECCECI_REPORT {lev=2 --> 1}

   678  %routine CROAK(%string(255) s)
3318 @ 29024:            LINE   678 "regression-compile-tmp/chimps.imp"
3319 @ 29061:            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
3320 @ 29078:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
3321 @ 29079:                  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
3322 @ 29092:               FINISH ) {lev=2}

   679    print string("** ".s.".  Checking abandoned at line ")
3323 @ 29093:               LINE   679 "regression-compile-tmp/chimps.imp"
3324 @ 29130:               PUSH   PRINTSTRING
3325 @ 29133:               PUSHS  "** "
3326 @ 29138:               PUSH   S
3327 @ 29141:               CONCAT
3328 @ 29142:               PUSHS  ".  Checking abandoned at line "
3329 @ 29174:               CONCAT
3330 @ 29175:               ASSPAR
3331 @ 29176:               CALL  

   680    write(line,0);  newline
3332 @ 29177:               LINE   680 "regression-compile-tmp/chimps.imp"
3333 @ 29214:               PUSH   WRITE
3334 @ 29217:               PUSH   LINE
3335 @ 29220:               ASSPAR
3336 @ 29221:               PUSHI  #0x00000000
3337 @ 29226:               ASSPAR
3338 @ 29227:               CALL  
3339 @ 29228:               LINE   680 "regression-compile-tmp/chimps.imp"
3340 @ 29265:               PUSH   NEWLINE
3341 @ 29268:               CALL  

   681    nonstop = -999
3342 @ 29269:               LINE   681 "regression-compile-tmp/chimps.imp"
3343 @ 29306:               PUSH   NONSTOP
3344 @ 29309:               PUSHI  #0x000003e7
3345 @ 29314:               NEGATE
3346 @ 29315:               ASSVAL

   682    %signal 12
3347 @ 29316:               LINE   682 "regression-compile-tmp/chimps.imp"
3348 @ 29353:               EVENT  000c

   683  %end
   684  
3349 @ 29356:               LINE   683 "regression-compile-tmp/chimps.imp"
3350 @ 29393:            END    _ECCECI_CROAK {lev=2 --> 1}

   685  %routine FAULT(%integer n)
   686  !Note fault number and position of (earliest) fault
   687  ! for subsequent reporting (warnings and weak errors)
3351 @ 29394:            LINE   685 "regression-compile-tmp/chimps.imp"
3352 @ 29431:            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
3353 @ 29448:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
3354 @ 29449:                  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
3355 @ 29462:               FINISH ) {lev=2}

   688    faultnum = n %and faultp = atomp %if faultnum = 0
3356 @ 29463:               LINE   688 "regression-compile-tmp/chimps.imp"
3357 @ 29500:               PUSH   FAULTNUM
3358 @ 29503:               PUSHI  #0x00000000
3359 @ 29508:               JUMPIF # L_0004
3360 @ 29512:               PUSH   FAULTNUM
3361 @ 29515:               PUSH   N
3362 @ 29518:               ASSVAL
3363 @ 29519:               PUSH   FAULTP
3364 @ 29522:               PUSH   ATOMP
3365 @ 29525:               ASSVAL
3366 @ 29526:               LOCATE L_0004

   689  %end
3367 @ 29529:               LINE   689 "regression-compile-tmp/chimps.imp"
3368 @ 29566:            END    _ECCECI_FAULT {lev=2 --> 1}

   690  %routine EXPFAULT(%integer n)
3369 @ 29567:            LINE   690 "regression-compile-tmp/chimps.imp"
3370 @ 29604:            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
3371 @ 29624:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
3372 @ 29625:                  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
3373 @ 29638:               FINISH ) {lev=2}

   691    faultnum = n!point %and faultp = expp %if faultnum = 0 %or expp < faultp
3374 @ 29639:               LINE   691 "regression-compile-tmp/chimps.imp"
3375 @ 29676:               PUSH   FAULTNUM
3376 @ 29679:               PUSHI  #0x00000000
3377 @ 29684:               JUMPIF = L_0005
3378 @ 29688:               PUSH   EXPP
3379 @ 29691:               PUSH   FAULTP
3380 @ 29694:               JUMPIF >= L_0004
3381 @ 29698:               LOCATE L_0005
3382 @ 29701:               PUSH   FAULTNUM
3383 @ 29704:               PUSH   N
3384 @ 29707:               PUSHI  #0x00000040
3385 @ 29712:               OR    
3386 @ 29713:               ASSVAL
3387 @ 29714:               PUSH   FAULTP
3388 @ 29717:               PUSH   EXPP
3389 @ 29720:               ASSVAL
3390 @ 29721:               LOCATE L_0004

   692  %end
   693  
3391 @ 29724:               LINE   692 "regression-compile-tmp/chimps.imp"
3392 @ 29761:            END    _ECCECI_EXPFAULT {lev=2 --> 1}

   694  %constinteger pred=1, uparr=1<<1, nocomma=1<<2, overload=1<<3,
   695                ranges=1<<4, nolength=1<<5, initass=1<<6, kgoto=1<<7,
   696                hyphen=1<<8, naming=1<<9, klabel=1<<10, ibmhex=1<<11,
   697                oldcycle=1<<12, loop2=1<<13
3393 @ 29762:            LINE   694 "regression-compile-tmp/chimps.imp"

   698  %routine NONSTANDARD(%integer case)
3394 @ 29799:            LINE   698 "regression-compile-tmp/chimps.imp"
3395 @ 29836:            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
3396 @ 29859:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
3397 @ 29860:                  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
3398 @ 29876:               FINISH ) {lev=2}

   699  %owninteger hadit=0
3399 @ 29877:               LINE   699 "regression-compile-tmp/chimps.imp"
3400 @ 29914:               PUSHI  #0x00000000
3401 @ 29919:               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
3402 @ 29936:               INIT   1

   700    %if control&nonsbit # 0 %and case&hadit = 0 %start
3403 @ 29939:               LINE   700 "regression-compile-tmp/chimps.imp"
3404 @ 29976:               PUSH   CONTROL
3405 @ 29979:               PUSHI  #0x00010000
3406 @ 29984:               AND   
3407 @ 29985:               PUSHI  #0x00000000
3408 @ 29990:               JUMPIF = L_0004
3409 @ 29994:               PUSH   CASE
3410 @ 29997:               PUSH   HADIT
3411 @ 30000:               AND   
3412 @ 30001:               PUSHI  #0x00000000
3413 @ 30006:               JUMPIF # L_0004

   701      hadit = hadit+case
3414 @ 30010:               LINE   701 "regression-compile-tmp/chimps.imp"
3415 @ 30047:               PUSH   HADIT
3416 @ 30050:               PUSH   HADIT
3417 @ 30053:               PUSH   CASE
3418 @ 30056:               ADD   
3419 @ 30057:               ASSVAL

   702      fault(nonstand+point+warn)
3420 @ 30058:               LINE   702 "regression-compile-tmp/chimps.imp"
3421 @ 30095:               PUSH   FAULT
3422 @ 30098:               PUSHI  #0x00000016
3423 @ 30103:               PUSHI  #0x00000040
3424 @ 30108:               ADD   
3425 @ 30109:               PUSHI  #0x00000080
3426 @ 30114:               ADD   
3427 @ 30115:               ASSPAR
3428 @ 30116:               CALL  

   703    %finish
3429 @ 30117:               LINE   703 "regression-compile-tmp/chimps.imp"
3430 @ 30154:               LOCATE L_0004

   704  %end
   705  
3431 @ 30157:               LINE   704 "regression-compile-tmp/chimps.imp"
3432 @ 30194:            END    _ECCECI_NONSTANDARD {lev=2 --> 1}

   706  %routine ERROR(%integer case)
3433 @ 30195:            LINE   706 "regression-compile-tmp/chimps.imp"
3434 @ 30232:            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
3435 @ 30249:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
3436 @ 30250:                  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
3437 @ 30266:               FINISH ) {lev=2}

   707    report(case,atomp)
3438 @ 30267:               LINE   707 "regression-compile-tmp/chimps.imp"
3439 @ 30304:               PUSH   REPORT
3440 @ 30307:               PUSH   CASE
3441 @ 30310:               ASSPAR
3442 @ 30311:               PUSH   ATOMP
3443 @ 30314:               ASSPAR
3444 @ 30315:               CALL  

   708    %signal 14
3445 @ 30316:               LINE   708 "regression-compile-tmp/chimps.imp"
3446 @ 30353:               EVENT  000e

   709  %end
   710  
3447 @ 30356:               LINE   709 "regression-compile-tmp/chimps.imp"
3448 @ 30393:            END    _ECCECI_ERROR {lev=2 --> 1}

   711  %routine NAME ERROR
   712  !check if the culprit has occurred before
   713  !and, if not, add it to the pool of unknowns stored at the
   714  !far end of the dictionary.
3449 @ 30394:            LINE   711 "regression-compile-tmp/chimps.imp"
3450 @ 30431:            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
3451 @ 30452:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
3452 @ 30453:               FINISH ) {lev=2}

   715    %while item < 0 %c
   716       %and string(dict(-item)_text+charbase) # string(charlim) %cycle
3453 @ 30454:               LINE   715 "regression-compile-tmp/chimps.imp"
3454 @ 30491:               LOCATE L_0003
3455 @ 30494:               PUSH   ITEM
3456 @ 30497:               PUSHI  #0x00000000
3457 @ 30502:               JUMPIF >= L_0004
3458 @ 30506:               PUSH   STRING
3459 @ 30509:               PUSH   DICT
3460 @ 30512:               PUSH   ITEM
3461 @ 30515:               NEGATE
3462 @ 30516:               ACCESS
3463 @ 30517:               SELECT 9
3464 @ 30520:               PUSH   CHARBASE
3465 @ 30523:               ADD   
3466 @ 30524:               ASSPAR
3467 @ 30525:               CALL  
3468 @ 30526:               PUSH   STRING
3469 @ 30529:               PUSH   CHARLIM
3470 @ 30532:               ASSPAR
3471 @ 30533:               CALL  
3472 @ 30534:               JUMPIF = L_0004

   717       item = dict(-item)_link
3473 @ 30538:               LINE   717 "regression-compile-tmp/chimps.imp"
3474 @ 30575:               PUSH   ITEM
3475 @ 30578:               PUSH   DICT
3476 @ 30581:               PUSH   ITEM
3477 @ 30584:               NEGATE
3478 @ 30585:               ACCESS
3479 @ 30586:               SELECT 10
3480 @ 30589:               ASSVAL

   718    %repeat
3481 @ 30590:               LINE   718 "regression-compile-tmp/chimps.imp"
3482 @ 30627:               REPEAT L_0003
3483 @ 30630:               LOCATE L_0004

   719    %if item >= 0 %start;  !first time
3484 @ 30633:               LINE   719 "regression-compile-tmp/chimps.imp"
3485 @ 30670:               PUSH   ITEM
3486 @ 30673:               PUSHI  #0x00000000
3487 @ 30678:               JUMPIF < L_0004

   720      report(namerr+point,atomp)
3488 @ 30682:               LINE   720 "regression-compile-tmp/chimps.imp"
3489 @ 30719:               PUSH   REPORT
3490 @ 30722:               PUSHI  #0x00000002
3491 @ 30727:               PUSHI  #0x00000040
3492 @ 30732:               ADD   
3493 @ 30733:               ASSPAR
3494 @ 30734:               PUSH   ATOMP
3495 @ 30737:               ASSPAR
3496 @ 30738:               CALL  

   721      %if charmin-newlen-80 >= charlim %start
3497 @ 30739:               LINE   721 "regression-compile-tmp/chimps.imp"
3498 @ 30776:               PUSH   CHARMIN
3499 @ 30779:               PUSH   NEWLEN
3500 @ 30782:               SUB   
3501 @ 30783:               PUSHI  #0x00000050
3502 @ 30788:               SUB   
3503 @ 30789:               PUSH   CHARLIM
3504 @ 30792:               JUMPIF < L_0007

   722        dmin = dmin-1
3505 @ 30796:               LINE   722 "regression-compile-tmp/chimps.imp"
3506 @ 30833:               PUSH   DMIN
3507 @ 30836:               PUSH   DMIN
3508 @ 30839:               PUSHI  #0x00000001
3509 @ 30844:               SUB   
3510 @ 30845:               ASSVAL

   723        charmin = charmin-newlen-1
3511 @ 30846:               LINE   723 "regression-compile-tmp/chimps.imp"
3512 @ 30883:               PUSH   CHARMIN
3513 @ 30886:               PUSH   CHARMIN
3514 @ 30889:               PUSH   NEWLEN
3515 @ 30892:               SUB   
3516 @ 30893:               PUSHI  #0x00000001
3517 @ 30898:               SUB   
3518 @ 30899:               ASSVAL

   724        string(charmin) = string(charlim)
3519 @ 30900:               LINE   724 "regression-compile-tmp/chimps.imp"
3520 @ 30937:               PUSH   STRING
3521 @ 30940:               PUSH   CHARMIN
3522 @ 30943:               ASSPAR
3523 @ 30944:               CALL  
3524 @ 30945:               PUSH   STRING
3525 @ 30948:               PUSH   CHARLIM
3526 @ 30951:               ASSPAR
3527 @ 30952:               CALL  
3528 @ 30953:               ASSVAL

   725        dict(dmin)_text = charmin-charbase
3529 @ 30954:               LINE   725 "regression-compile-tmp/chimps.imp"
3530 @ 30991:               PUSH   DICT
3531 @ 30994:               PUSH   DMIN
3532 @ 30997:               ACCESS
3533 @ 30998:               SELECT 9
3534 @ 31001:               PUSH   CHARMIN
3535 @ 31004:               PUSH   CHARBASE
3536 @ 31007:               SUB   
3537 @ 31008:               ASSVAL

   726        head == dict(head)_link %while head > 0;  !find last link
3538 @ 31009:               LINE   726 "regression-compile-tmp/chimps.imp"
3539 @ 31046:               LOCATE L_0009
3540 @ 31049:               PUSH   HEAD
3541 @ 31052:               PUSHI  #0x00000000
3542 @ 31057:               JUMPIF <= L_000a
3543 @ 31061:               PUSH   HEAD
3544 @ 31064:               PUSH   DICT
3545 @ 31067:               PUSH   HEAD
3546 @ 31070:               ACCESS
3547 @ 31071:               SELECT 10
3548 @ 31074:               ASSREF
3549 @ 31075:               REPEAT L_0009
3550 @ 31078:               LOCATE L_000a

   727        dict(dmin)_link = head;  head = -dmin
3551 @ 31081:               LINE   727 "regression-compile-tmp/chimps.imp"
3552 @ 31118:               PUSH   DICT
3553 @ 31121:               PUSH   DMIN
3554 @ 31124:               ACCESS
3555 @ 31125:               SELECT 10
3556 @ 31128:               PUSH   HEAD
3557 @ 31131:               ASSVAL
3558 @ 31132:               LINE   727 "regression-compile-tmp/chimps.imp"
3559 @ 31169:               PUSH   HEAD
3560 @ 31172:               PUSH   DMIN
3561 @ 31175:               NEGATE
3562 @ 31176:               ASSVAL

   728      %finish
3563 @ 31177:               LINE   728 "regression-compile-tmp/chimps.imp"
3564 @ 31214:               LOCATE L_0007

   729    %finish
3565 @ 31217:               LINE   729 "regression-compile-tmp/chimps.imp"
3566 @ 31254:               LOCATE L_0004

   730    %signal 14
3567 @ 31257:               LINE   730 "regression-compile-tmp/chimps.imp"
3568 @ 31294:               EVENT  000e

   731  %end
   732  
3569 @ 31297:               LINE   731 "regression-compile-tmp/chimps.imp"
3570 @ 31334:            END    _ECCECI_NAMEERROR {lev=2 --> 1}

   733  %routine SYNTAX ERROR
3571 @ 31335:            LINE   733 "regression-compile-tmp/chimps.imp"
3572 @ 31372:            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
3573 @ 31395:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
3574 @ 31396:               FINISH ) {lev=2}

   734  %integer e
3575 @ 31397:               LINE   734 "regression-compile-tmp/chimps.imp"
3576 @ 31434:               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

   735    e = formerr+point;  e = atomerr+point %if atom = dud
3577 @ 31447:               LINE   735 "regression-compile-tmp/chimps.imp"
3578 @ 31484:               PUSH   E
3579 @ 31487:               PUSHI  #0x00000000
3580 @ 31492:               PUSHI  #0x00000040
3581 @ 31497:               ADD   
3582 @ 31498:               ASSVAL
3583 @ 31499:               LINE   735 "regression-compile-tmp/chimps.imp"
3584 @ 31536:               PUSH   ATOM
3585 @ 31539:               PUSHI  #0x0000003f
3586 @ 31544:               JUMPIF # L_0004
3587 @ 31548:               PUSH   E
3588 @ 31551:               PUSHI  #0x00000001
3589 @ 31556:               PUSHI  #0x00000040
3590 @ 31561:               ADD   
3591 @ 31562:               ASSVAL
3592 @ 31563:               LOCATE L_0004

   736    report(e,atomp)
3593 @ 31566:               LINE   736 "regression-compile-tmp/chimps.imp"
3594 @ 31603:               PUSH   REPORT
3595 @ 31606:               PUSH   E
3596 @ 31609:               ASSPAR
3597 @ 31610:               PUSH   ATOMP
3598 @ 31613:               ASSPAR
3599 @ 31614:               CALL  

   737    %signal 14
3600 @ 31615:               LINE   737 "regression-compile-tmp/chimps.imp"
3601 @ 31652:               EVENT  000e

   738  %end
   739  
   740  !!!!!!!!!!!!!!!!!!!!   CELL  CONSTRUCTORS  !!!!!!!!!!!!!!!!!!!
   741  !
   742  !%integerfn litref(%integer v)
   743  !%integer i
   744  !  %result = v %if smallmin <= v <= smallmax
   745  !  litstore(litpos) = v
   746  !  i = litmin-1
   747  !  i = i+1 %until litstore(i) = v
   748  !  %if i = litpos %start
   749  !    litpos = litpos+1
   750  !    croak("Too many literals") %if litpos >= slitpos
   751  !  %finish
   752  !  %result = i
   753  !%end
   754  
   755  !%integerfn litval(%integer v)
   756  !  %result = v %if v <= smallmax
   757  !  %result = litstore(v)
   758  !%end
   759  
3602 @ 31655:               LINE   738 "regression-compile-tmp/chimps.imp"
3603 @ 31692:            END    _ECCECI_SYNTAXERROR {lev=2 --> 1}

   760  %integerfn floated(%integer item)
3604 @ 31693:            LINE   760 "regression-compile-tmp/chimps.imp"
3605 @ 31730:            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
3606 @ 31749:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
3607 @ 31750:                  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
3608 @ 31766:               FINISH ) {lev=2}

   761    %result = 0 %if item = 0
3609 @ 31767:               LINE   761 "regression-compile-tmp/chimps.imp"
3610 @ 31804:               PUSH   ITEM
3611 @ 31807:               PUSHI  #0x00000000
3612 @ 31812:               JUMPIF # L_0004
3613 @ 31816:               PUSHI  #0x00000000
3614 @ 31821:               RESULT
3615 @ 31822:               LOCATE L_0004

   762    %result = explo;!expref(float,item,0)
3616 @ 31825:               LINE   762 "regression-compile-tmp/chimps.imp"
3617 @ 31862:               PUSH   EXPLO
3618 @ 31865:               RESULT

   763  %end
   764  
   765  !%predicate is short (%integer v)
   766  !  %true %if -32768 <= v <= 32767
   767  !  %false
   768  !%end
   769  
   770  !%predicate is mite (%integer v)
   771  !  %true %if -128 <= v <= 127
   772  !  %false
   773  !%end
   774  
   775  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   776  !!!!!!!!!!!!!!!!!    CODE  GENERATION   !!!!!!!!!!!!!!!!!!!!!!!!
   777  !
3619 @ 31866:               LINE   763 "regression-compile-tmp/chimps.imp"
3620 @ 31903:            END    _ECCECI_FLOATED {lev=2 --> 1}

   778  %routine forget
3621 @ 31904:            LINE   778 "regression-compile-tmp/chimps.imp"
3622 @ 31941:            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
3623 @ 31959:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
3624 @ 31960:               FINISH ) {lev=2}

   779  %end
3625 @ 31961:               LINE   779 "regression-compile-tmp/chimps.imp"
3626 @ 31998:            END    _ECCECI_FORGET {lev=2 --> 1}

   780  %routine forget all
3627 @ 31999:            LINE   780 "regression-compile-tmp/chimps.imp"
3628 @ 32036:            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
3629 @ 32057:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
3630 @ 32058:               FINISH ) {lev=2}

   781  %integer i,j
3631 @ 32059:               LINE   781 "regression-compile-tmp/chimps.imp"
3632 @ 32096:               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
3633 @ 32109:               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

   782    litpos = litmin;  explo = expmax+1;  oldexplo = explo
3634 @ 32122:               LINE   782 "regression-compile-tmp/chimps.imp"
3635 @ 32159:               PUSH   LITPOS
3636 @ 32162:               PUSHI  #0x000003e9
3637 @ 32167:               ASSVAL
3638 @ 32168:               LINE   782 "regression-compile-tmp/chimps.imp"
3639 @ 32205:               PUSH   EXPLO
3640 @ 32208:               PUSHI  #0x00000de2
3641 @ 32213:               PUSHI  #0x00000001
3642 @ 32218:               ADD   
3643 @ 32219:               ASSVAL
3644 @ 32220:               LINE   782 "regression-compile-tmp/chimps.imp"
3645 @ 32257:               PUSH   OLDEXPLO
3646 @ 32260:               PUSH   EXPLO
3647 @ 32263:               ASSVAL

   783  %end
   784  !
3648 @ 32264:               LINE   783 "regression-compile-tmp/chimps.imp"
3649 @ 32301:            END    _ECCECI_FORGETALL {lev=2 --> 1}

   785  %routine set label(%integer b)
3650 @ 32302:            LINE   785 "regression-compile-tmp/chimps.imp"
3651 @ 32339:            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
3652 @ 32359:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
3653 @ 32360:                  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
3654 @ 32373:               FINISH ) {lev=2}

   786  %end;  !set label
3655 @ 32374:               LINE   786 "regression-compile-tmp/chimps.imp"
3656 @ 32411:            END    _ECCECI_SETLABEL {lev=2 --> 1}

   787  %routine set user label(%integer dpos)
3657 @ 32412:            LINE   787 "regression-compile-tmp/chimps.imp"
3658 @ 32449:            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
3659 @ 32473:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
3660 @ 32474:                  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
3661 @ 32490:               FINISH ) {lev=2}

   788  %end
3662 @ 32491:               LINE   788 "regression-compile-tmp/chimps.imp"
3663 @ 32528:            END    _ECCECI_SETUSERLABEL {lev=2 --> 1}

   789  %routine compile(%integer from,to)
   790  !  show exp(from,to) %if control&explist # 0
3664 @ 32529:            LINE   789 "regression-compile-tmp/chimps.imp"
3665 @ 32566:            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
3666 @ 32585:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
3667 @ 32586:                  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
3668 @ 32602:                  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
3669 @ 32616:               FINISH ) {lev=2}

   791    np = np0
3670 @ 32617:               LINE   791 "regression-compile-tmp/chimps.imp"
3671 @ 32654:               PUSH   NP
3672 @ 32657:               PUSHI  #0x00000cb7
3673 @ 32662:               ASSVAL

   792  %end
3674 @ 32663:               LINE   792 "regression-compile-tmp/chimps.imp"
3675 @ 32700:            END    _ECCECI_COMPILE {lev=2 --> 1}

   793  %routine compile entry
3676 @ 32701:            LINE   793 "regression-compile-tmp/chimps.imp"
3677 @ 32738:            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
3678 @ 32762:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
3679 @ 32763:               FINISH ) {lev=2}

   794  %end
3680 @ 32764:               LINE   794 "regression-compile-tmp/chimps.imp"
3681 @ 32801:            END    _ECCECI_COMPILEENTRY {lev=2 --> 1}

   795  %routine compile end
3682 @ 32802:            LINE   795 "regression-compile-tmp/chimps.imp"
3683 @ 32839:            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
3684 @ 32861:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
3685 @ 32862:               FINISH ) {lev=2}

   796  %end;  !compile end
   797  !!!!!!!!!!!!!!!  end of Code Generation  !!!!!!!!!!!!!!!!!!!!!!!
   798  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   799  
3686 @ 32863:               LINE   796 "regression-compile-tmp/chimps.imp"
3687 @ 32900:            END    _ECCECI_COMPILEEND {lev=2 --> 1}

   800  %routine PUT3(%integer act,x,y)
   801  !  exp(np)_act = act;  exp(np)_x = x;  exp(np)_y = y
   802  !  np = np+1
3688 @ 32901:            LINE   800 "regression-compile-tmp/chimps.imp"
3689 @ 32938:            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
3690 @ 32954:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
3691 @ 32955:                  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
3692 @ 32970:                  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
3693 @ 32983:                  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
3694 @ 32996:               FINISH ) {lev=2}

   803  %end
   804  !
3695 @ 32997:               LINE   803 "regression-compile-tmp/chimps.imp"
3696 @ 33034:            END    _ECCECI_PUT3 {lev=2 --> 1}

   805  %routine PUT2(%integer act,x)
3697 @ 33035:            LINE   805 "regression-compile-tmp/chimps.imp"
3698 @ 33072:            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
3699 @ 33088:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
3700 @ 33089:                  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
3701 @ 33104:                  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
3702 @ 33117:               FINISH ) {lev=2}

   806  %end
   807  !
3703 @ 33118:               LINE   806 "regression-compile-tmp/chimps.imp"
3704 @ 33155:            END    _ECCECI_PUT2 {lev=2 --> 1}

   808  %integerfn TEMPVAR
3705 @ 33156:            LINE   808 "regression-compile-tmp/chimps.imp"
3706 @ 33193:            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
3707 @ 33212:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
3708 @ 33213:               FINISH ) {lev=2}

   809    %result = dlim
3709 @ 33214:               LINE   809 "regression-compile-tmp/chimps.imp"
3710 @ 33251:               PUSH   DLIM
3711 @ 33254:               RESULT

   810  %end
   811  
3712 @ 33255:               LINE   810 "regression-compile-tmp/chimps.imp"
3713 @ 33292:            END    _ECCECI_TEMPVAR {lev=2 --> 1}

   812  %routine OPEN BLOCK(%integer pidpos)
3714 @ 33293:            LINE   812 "regression-compile-tmp/chimps.imp"
3715 @ 33330:            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
3716 @ 33351:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
3717 @ 33352:                  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
3718 @ 33370:               FINISH ) {lev=2}

   813    forget;  !a bit extreme
3719 @ 33371:               LINE   813 "regression-compile-tmp/chimps.imp"
3720 @ 33408:               PUSH   FORGET
3721 @ 33411:               CALL  

   814    croak("Too many levels") %if level = maxlevel
3722 @ 33412:               LINE   814 "regression-compile-tmp/chimps.imp"
3723 @ 33449:               PUSH   LEVEL
3724 @ 33452:               PUSHI  #0x00000010
3725 @ 33457:               JUMPIF # L_0004
3726 @ 33461:               PUSH   CROAK
3727 @ 33464:               PUSHS  "Too many levels"
3728 @ 33481:               ASSPAR
3729 @ 33482:               CALL  
3730 @ 33483:               LOCATE L_0004

   815    hold(level) = c;  level = level+1
3731 @ 33486:               LINE   815 "regression-compile-tmp/chimps.imp"
3732 @ 33523:               PUSH   HOLD
3733 @ 33526:               PUSH   LEVEL
3734 @ 33529:               ACCESS
3735 @ 33530:               PUSH   C
3736 @ 33533:               ASSVAL
3737 @ 33534:               LINE   815 "regression-compile-tmp/chimps.imp"
3738 @ 33571:               PUSH   LEVEL
3739 @ 33574:               PUSH   LEVEL
3740 @ 33577:               PUSHI  #0x00000001
3741 @ 33582:               ADD   
3742 @ 33583:               ASSVAL

   816    c = 0
3743 @ 33584:               LINE   816 "regression-compile-tmp/chimps.imp"
3744 @ 33621:               PUSH   C
3745 @ 33624:               PUSHI  #0x00000000
3746 @ 33629:               ASSVAL

   817    starts = 0;  cycles = 0
3747 @ 33630:               LINE   817 "regression-compile-tmp/chimps.imp"
3748 @ 33667:               PUSH   STARTS
3749 @ 33670:               PUSHI  #0x00000000
3750 @ 33675:               ASSVAL
3751 @ 33676:               LINE   817 "regression-compile-tmp/chimps.imp"
3752 @ 33713:               PUSH   CYCLES
3753 @ 33716:               PUSHI  #0x00000000
3754 @ 33721:               ASSVAL

   818    curlab = lab1;  looplab = 0
3755 @ 33722:               LINE   818 "regression-compile-tmp/chimps.imp"
3756 @ 33759:               PUSH   CURLAB
3757 @ 33762:               PUSHI  #0x00000ca3
3758 @ 33767:               ASSVAL
3759 @ 33768:               LINE   818 "regression-compile-tmp/chimps.imp"
3760 @ 33805:               PUSH   LOOPLAB
3761 @ 33808:               PUSHI  #0x00000000
3762 @ 33813:               ASSVAL

   819    forget all
3763 @ 33814:               LINE   819 "regression-compile-tmp/chimps.imp"
3764 @ 33851:               PUSH   FORGETALL
3765 @ 33854:               CALL  

   820    c_flags = 0;  c_type = d_type
3766 @ 33855:               LINE   820 "regression-compile-tmp/chimps.imp"
3767 @ 33892:               PUSH   C
3768 @ 33895:               SELECT 4
3769 @ 33898:               PUSHI  #0x00000000
3770 @ 33903:               ASSVAL
3771 @ 33904:               LINE   820 "regression-compile-tmp/chimps.imp"
3772 @ 33941:               PUSH   C
3773 @ 33944:               SELECT 5
3774 @ 33947:               PUSH   D
3775 @ 33950:               SELECT 2
3776 @ 33953:               ASSVAL

   821    c_pidpos = pidpos
3777 @ 33954:               LINE   821 "regression-compile-tmp/chimps.imp"
3778 @ 33991:               PUSH   C
3779 @ 33994:               SELECT 11
3780 @ 33997:               PUSH   PIDPOS
3781 @ 34000:               ASSVAL

   822    c_localdpos = dlim;  c_parlim = dlim;  c_localtext = charlim
3782 @ 34001:               LINE   822 "regression-compile-tmp/chimps.imp"
3783 @ 34038:               PUSH   C
3784 @ 34041:               SELECT 6
3785 @ 34044:               PUSH   DLIM
3786 @ 34047:               ASSVAL
3787 @ 34048:               LINE   822 "regression-compile-tmp/chimps.imp"
3788 @ 34085:               PUSH   C
3789 @ 34088:               SELECT 7
3790 @ 34091:               PUSH   DLIM
3791 @ 34094:               ASSVAL
3792 @ 34095:               LINE   822 "regression-compile-tmp/chimps.imp"
3793 @ 34132:               PUSH   C
3794 @ 34135:               SELECT 8
3795 @ 34138:               PUSH   CHARLIM
3796 @ 34141:               ASSVAL

   823    c_localpc = pc;  c_localspc = spc
3797 @ 34142:               LINE   823 "regression-compile-tmp/chimps.imp"
3798 @ 34179:               PUSH   C
3799 @ 34182:               SELECT 9
3800 @ 34185:               PUSH   PC
3801 @ 34188:               ASSVAL
3802 @ 34189:               LINE   823 "regression-compile-tmp/chimps.imp"
3803 @ 34226:               PUSH   C
3804 @ 34229:               SELECT 10
3805 @ 34232:               PUSH   SPC
3806 @ 34235:               ASSVAL

   824    c_access = 1
3807 @ 34236:               LINE   824 "regression-compile-tmp/chimps.imp"
3808 @ 34273:               PUSH   C
3809 @ 34276:               SELECT 12
3810 @ 34279:               PUSHI  #0x00000001
3811 @ 34284:               ASSVAL

   825  %end;  !OPEN BLOCK
   826  
3812 @ 34285:               LINE   825 "regression-compile-tmp/chimps.imp"
3813 @ 34322:            END    _ECCECI_OPENBLOCK {lev=2 --> 1}

   827  %routine CLOSE BLOCK
3814 @ 34323:            LINE   827 "regression-compile-tmp/chimps.imp"
3815 @ 34360:            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
3816 @ 34382:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
3817 @ 34383:               FINISH ) {lev=2}

   828  %integer i
3818 @ 34384:               LINE   828 "regression-compile-tmp/chimps.imp"
3819 @ 34421:               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

   829  %integer miss,dpos
3820 @ 34434:               LINE   829 "regression-compile-tmp/chimps.imp"
3821 @ 34471:               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
3822 @ 34487:               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

   830  %integername p
3823 @ 34503:               LINE   830 "regression-compile-tmp/chimps.imp"
3824 @ 34540:               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

   831  %record(identinfo)%name dp
   832    !Check identifier usage
3825 @ 34553:               LINE   831 "regression-compile-tmp/chimps.imp"
3826 @ 34590:               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

   833    miss = 0;  p == miss
3827 @ 34604:               LINE   833 "regression-compile-tmp/chimps.imp"
3828 @ 34641:               PUSH   MISS
3829 @ 34644:               PUSHI  #0x00000000
3830 @ 34649:               ASSVAL
3831 @ 34650:               LINE   833 "regression-compile-tmp/chimps.imp"
3832 @ 34687:               PUSH   P
3833 @ 34690:               PUSH   MISS
3834 @ 34693:               ASSREF

   834    dpos = c_localdpos
3835 @ 34694:               LINE   834 "regression-compile-tmp/chimps.imp"
3836 @ 34731:               PUSH   DPOS
3837 @ 34734:               PUSH   C
3838 @ 34737:               SELECT 6
3839 @ 34740:               ASSVAL

   835    %while dpos # dlim %cycle
3840 @ 34741:               LINE   835 "regression-compile-tmp/chimps.imp"
3841 @ 34778:               LOCATE L_0003
3842 @ 34781:               PUSH   DPOS
3843 @ 34784:               PUSH   DLIM
3844 @ 34787:               JUMPIF = L_0004

   836      dp == dict(dpos)
   837  !    %if (dp_xtype = ptrxtype %and dp_type = dpos)
3845 @ 34791:               LINE   836 "regression-compile-tmp/chimps.imp"
3846 @ 34828:               PUSH   DP
3847 @ 34831:               PUSH   DICT
3848 @ 34834:               PUSH   DPOS
3849 @ 34837:               ACCESS
3850 @ 34838:               ASSREF

   838      %if dp_flags&(proc+lab) # 0 %and dp_flags&(ext+spec) = spec %start
3851 @ 34839:               LINE   838 "regression-compile-tmp/chimps.imp"
3852 @ 34876:               PUSH   DP
3853 @ 34879:               SELECT 1
3854 @ 34882:               PUSHI  #0x00000004
3855 @ 34887:               PUSHI  #0x00000002
3856 @ 34892:               ADD   
3857 @ 34893:               AND   
3858 @ 34894:               PUSHI  #0x00000000
3859 @ 34899:               JUMPIF = L_0007
3860 @ 34903:               PUSH   DP
3861 @ 34906:               SELECT 1
3862 @ 34909:               PUSHI  #0x00000020
3863 @ 34914:               PUSHI  #0x00000010
3864 @ 34919:               ADD   
3865 @ 34920:               AND   
3866 @ 34921:               PUSHI  #0x00000010
3867 @ 34926:               JUMPIF # L_0007

   839            p = dpos;  p == dp_val;  p = 0
3868 @ 34930:               LINE   839 "regression-compile-tmp/chimps.imp"
3869 @ 34967:               PUSH   P
3870 @ 34970:               PUSH   DPOS
3871 @ 34973:               ASSVAL
3872 @ 34974:               LINE   839 "regression-compile-tmp/chimps.imp"
3873 @ 35011:               PUSH   P
3874 @ 35014:               PUSH   DP
3875 @ 35017:               SELECT 7
3876 @ 35020:               ASSREF
3877 @ 35021:               LINE   839 "regression-compile-tmp/chimps.imp"
3878 @ 35058:               PUSH   P
3879 @ 35061:               PUSHI  #0x00000000
3880 @ 35066:               ASSVAL

   840      %finish
   841  !    %if hashindex(dp_spare) = dpos %start
   842  !      dp_link = dict(dp_link)_link %while dp_link >= c_localdpos
   843  !      hashindex(dp_spare) = dp_link
   844  !    %finish
   845  !    dpos = dp_xtype %if dp_type = 0 %and dp_xtype > dpos;  !skip fields
3881 @ 35067:               LINE   840 "regression-compile-tmp/chimps.imp"
3882 @ 35104:               LOCATE L_0007

   846      dpos = dpos+1
3883 @ 35107:               LINE   846 "regression-compile-tmp/chimps.imp"
3884 @ 35144:               PUSH   DPOS
3885 @ 35147:               PUSH   DPOS
3886 @ 35150:               PUSHI  #0x00000001
3887 @ 35155:               ADD   
3888 @ 35156:               ASSVAL

   847    %repeat
3889 @ 35157:               LINE   847 "regression-compile-tmp/chimps.imp"
3890 @ 35194:               REPEAT L_0003
3891 @ 35197:               LOCATE L_0004

   848    report(idmissing,miss) %if miss # 0
3892 @ 35200:               LINE   848 "regression-compile-tmp/chimps.imp"
3893 @ 35237:               PUSH   MISS
3894 @ 35240:               PUSHI  #0x00000000
3895 @ 35245:               JUMPIF = L_0004
3896 @ 35249:               PUSH   REPORT
3897 @ 35252:               PUSHI  #0x0000002a
3898 @ 35257:               ASSPAR
3899 @ 35258:               PUSH   MISS
3900 @ 35261:               ASSPAR
3901 @ 35262:               CALL  
3902 @ 35263:               LOCATE L_0004

   849    compile end
3903 @ 35266:               LINE   849 "regression-compile-tmp/chimps.imp"
3904 @ 35303:               PUSH   COMPILEEND
3905 @ 35306:               CALL  

   850    pc = c_localpc;  spc = c_localspc
3906 @ 35307:               LINE   850 "regression-compile-tmp/chimps.imp"
3907 @ 35344:               PUSH   PC
3908 @ 35347:               PUSH   C
3909 @ 35350:               SELECT 9
3910 @ 35353:               ASSVAL
3911 @ 35354:               LINE   850 "regression-compile-tmp/chimps.imp"
3912 @ 35391:               PUSH   SPC
3913 @ 35394:               PUSH   C
3914 @ 35397:               SELECT 10
3915 @ 35400:               ASSVAL

   851    dlim = c_parlim;  charlim = c_localtext
3916 @ 35401:               LINE   851 "regression-compile-tmp/chimps.imp"
3917 @ 35438:               PUSH   DLIM
3918 @ 35441:               PUSH   C
3919 @ 35444:               SELECT 7
3920 @ 35447:               ASSVAL
3921 @ 35448:               LINE   851 "regression-compile-tmp/chimps.imp"
3922 @ 35485:               PUSH   CHARLIM
3923 @ 35488:               PUSH   C
3924 @ 35491:               SELECT 8
3925 @ 35494:               ASSVAL

   852    %for i = 0,1,255 %cycle
3926 @ 35495:               LINE   852 "regression-compile-tmp/chimps.imp"
3927 @ 35532:               PUSH   I
3928 @ 35535:               PUSHI  #0x00000001
3929 @ 35540:               PUSHI  #0x000000ff
3930 @ 35545:               PUSHI  #0x00000000
3931 @ 35550:               FOR    L_0003

   853       hashindex(i) = dict(hashindex(i))_link %while hashindex(i) >= c_localdpos
3932 @ 35553:               LINE   853 "regression-compile-tmp/chimps.imp"
3933 @ 35590:               LOCATE L_0006
3934 @ 35593:               PUSH   HASHINDEX
3935 @ 35596:               PUSH   I
3936 @ 35599:               ACCESS
3937 @ 35600:               PUSH   C
3938 @ 35603:               SELECT 6
3939 @ 35606:               JUMPIF < L_0007
3940 @ 35610:               PUSH   HASHINDEX
3941 @ 35613:               PUSH   I
3942 @ 35616:               ACCESS
3943 @ 35617:               PUSH   DICT
3944 @ 35620:               PUSH   HASHINDEX
3945 @ 35623:               PUSH   I
3946 @ 35626:               ACCESS
3947 @ 35627:               ACCESS
3948 @ 35628:               SELECT 10
3949 @ 35631:               ASSVAL
3950 @ 35632:               REPEAT L_0006
3951 @ 35635:               LOCATE L_0007

   854    %repeat
3952 @ 35638:               LINE   854 "regression-compile-tmp/chimps.imp"
3953 @ 35675:               REPEAT L_0003
3954 @ 35678:               LOCATE L_0004

   855    level = level-1;  c = hold(level)
3955 @ 35681:               LINE   855 "regression-compile-tmp/chimps.imp"
3956 @ 35718:               PUSH   LEVEL
3957 @ 35721:               PUSH   LEVEL
3958 @ 35724:               PUSHI  #0x00000001
3959 @ 35729:               SUB   
3960 @ 35730:               ASSVAL
3961 @ 35731:               LINE   855 "regression-compile-tmp/chimps.imp"
3962 @ 35768:               PUSH   C
3963 @ 35771:               PUSH   HOLD
3964 @ 35774:               PUSH   LEVEL
3965 @ 35777:               ACCESS
3966 @ 35778:               ASSVAL

   856    starts = 0;  cycles = 0
3967 @ 35779:               LINE   856 "regression-compile-tmp/chimps.imp"
3968 @ 35816:               PUSH   STARTS
3969 @ 35819:               PUSHI  #0x00000000
3970 @ 35824:               ASSVAL
3971 @ 35825:               LINE   856 "regression-compile-tmp/chimps.imp"
3972 @ 35862:               PUSH   CYCLES
3973 @ 35865:               PUSHI  #0x00000000
3974 @ 35870:               ASSVAL

   857  %end;  !CLOSE BLOCK
   858  
   859  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   860  !!!!!!!!!!!!!!!!!!!!  Source input  !!!!!!!!!!!!!!!!!!!!!!!!!!!!
   861  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   862  !
3975 @ 35871:               LINE   857 "regression-compile-tmp/chimps.imp"
3976 @ 35908:            END    _ECCECI_CLOSEBLOCK {lev=2 --> 1}

   863  %routine SWITCH INPUT
   864  !  croak("Input ended") %if fp = main_lim2
3977 @ 35909:            LINE   863 "regression-compile-tmp/chimps.imp"
3978 @ 35946:            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
3979 @ 35969:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
3980 @ 35970:               FINISH ) {lev=2}

   865    %signal 12 %if fp = main_lim2
3981 @ 35971:               LINE   865 "regression-compile-tmp/chimps.imp"
3982 @ 36008:               PUSH   FP
3983 @ 36011:               PUSH   MAIN
3984 @ 36014:               SELECT 4
3985 @ 36017:               JUMPIF # L_0004
3986 @ 36021:               EVENT  000c
3987 @ 36024:               LOCATE L_0004

   866    %if nonstop < 0 %start;  !perming
3988 @ 36027:               LINE   866 "regression-compile-tmp/chimps.imp"
3989 @ 36064:               PUSH   NONSTOP
3990 @ 36067:               PUSHI  #0x00000000
3991 @ 36072:               JUMPIF >= L_0004

   867      nonstop = nonstop+3;  permlim = dlim
3992 @ 36076:               LINE   867 "regression-compile-tmp/chimps.imp"
3993 @ 36113:               PUSH   NONSTOP
3994 @ 36116:               PUSH   NONSTOP
3995 @ 36119:               PUSHI  #0x00000003
3996 @ 36124:               ADD   
3997 @ 36125:               ASSVAL
3998 @ 36126:               LINE   867 "regression-compile-tmp/chimps.imp"
3999 @ 36163:               PUSH   PERMLIM
4000 @ 36166:               PUSH   DLIM
4001 @ 36169:               ASSVAL

   868      c_localdpos = dlim;  c_parlim = dlim
4002 @ 36170:               LINE   868 "regression-compile-tmp/chimps.imp"
4003 @ 36207:               PUSH   C
4004 @ 36210:               SELECT 6
4005 @ 36213:               PUSH   DLIM
4006 @ 36216:               ASSVAL
4007 @ 36217:               LINE   868 "regression-compile-tmp/chimps.imp"
4008 @ 36254:               PUSH   C
4009 @ 36257:               SELECT 7
4010 @ 36260:               PUSH   DLIM
4011 @ 36263:               ASSVAL

   869      statements = 0
4012 @ 36264:               LINE   869 "regression-compile-tmp/chimps.imp"
4013 @ 36301:               PUSH   STATEMENTS
4014 @ 36304:               PUSHI  #0x00000000
4015 @ 36309:               ASSVAL

   870    %finish
4016 @ 36310:               LINE   870 "regression-compile-tmp/chimps.imp"
4017 @ 36347:               LOCATE L_0004

   871    %if fp # main_lim1 %start
4018 @ 36350:               LINE   871 "regression-compile-tmp/chimps.imp"
4019 @ 36387:               PUSH   FP
4020 @ 36390:               PUSH   MAIN
4021 @ 36393:               SELECT 2
4022 @ 36396:               JUMPIF = L_0004

   872      nonstop = nonstop-1
4023 @ 36400:               LINE   872 "regression-compile-tmp/chimps.imp"
4024 @ 36437:               PUSH   NONSTOP
4025 @ 36440:               PUSH   NONSTOP
4026 @ 36443:               PUSHI  #0x00000001
4027 @ 36448:               SUB   
4028 @ 36449:               ASSVAL

   873      fp = mainfp;  line = mainline
4029 @ 36450:               LINE   873 "regression-compile-tmp/chimps.imp"
4030 @ 36487:               PUSH   FP
4031 @ 36490:               PUSH   MAINFP
4032 @ 36493:               ASSVAL
4033 @ 36494:               LINE   873 "regression-compile-tmp/chimps.imp"
4034 @ 36531:               PUSH   LINE
4035 @ 36534:               PUSH   MAINLINE
4036 @ 36537:               ASSVAL

   874      curstart = main_start1;  curlim = main_lim1
4037 @ 36538:               LINE   874 "regression-compile-tmp/chimps.imp"
4038 @ 36575:               PUSH   CURSTART
4039 @ 36578:               PUSH   MAIN
4040 @ 36581:               SELECT 1
4041 @ 36584:               ASSVAL
4042 @ 36585:               LINE   874 "regression-compile-tmp/chimps.imp"
4043 @ 36622:               PUSH   CURLIM
4044 @ 36625:               PUSH   MAIN
4045 @ 36628:               SELECT 2
4046 @ 36631:               ASSVAL

   875    %finish %else fp = main_start2
4047 @ 36632:               LINE   875 "regression-compile-tmp/chimps.imp"
4048 @ 36669:               GOTO   L_0003
4049 @ 36672:               LOCATE L_0004
4050 @ 36675:               PUSH   FP
4051 @ 36678:               PUSH   MAIN
4052 @ 36681:               SELECT 3
4053 @ 36684:               ASSVAL
4054 @ 36685:               LOCATE L_0003

   876    %if main_start2 <= fp <= main_lim2 %start
4055 @ 36688:               LINE   876 "regression-compile-tmp/chimps.imp"
4056 @ 36725:               PUSH   MAIN
4057 @ 36728:               SELECT 3
4058 @ 36731:               PUSH   FP
4059 @ 36734:               JUMPIFD > L_0004
4060 @ 36738:               PUSH   MAIN
4061 @ 36741:               SELECT 4
4062 @ 36744:               JUMPIF > L_0004

   877      curstart = main_start2;  curlim = main_lim2
4063 @ 36748:               LINE   877 "regression-compile-tmp/chimps.imp"
4064 @ 36785:               PUSH   CURSTART
4065 @ 36788:               PUSH   MAIN
4066 @ 36791:               SELECT 3
4067 @ 36794:               ASSVAL
4068 @ 36795:               LINE   877 "regression-compile-tmp/chimps.imp"
4069 @ 36832:               PUSH   CURLIM
4070 @ 36835:               PUSH   MAIN
4071 @ 36838:               SELECT 4
4072 @ 36841:               ASSVAL

   878    %finish
4073 @ 36842:               LINE   878 "regression-compile-tmp/chimps.imp"
4074 @ 36879:               LOCATE L_0004

   879    modesym = ' ';  sym = nl
4075 @ 36882:               LINE   879 "regression-compile-tmp/chimps.imp"
4076 @ 36919:               PUSH   MODESYM
4077 @ 36922:               PUSHI  #0x00000020
4078 @ 36927:               ASSVAL
4079 @ 36928:               LINE   879 "regression-compile-tmp/chimps.imp"
4080 @ 36965:               PUSH   SYM
4081 @ 36968:               PUSHI  #0x0000000a
4082 @ 36973:               ASSVAL

   880  %end
   881  
4083 @ 36974:               LINE   880 "regression-compile-tmp/chimps.imp"
4084 @ 37011:            END    _ECCECI_SWITCHINPUT {lev=2 --> 1}

   882  %routine READ LINE
   883  ! Read (or otherwise make available) the next source line
   884  !     Skip remnant of previous line if SYM # NL        *NB*
   885  !     Set LINESTART to point to start of new line
4085 @ 37012:            LINE   882 "regression-compile-tmp/chimps.imp"
4086 @ 37049:            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
4087 @ 37069:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
4088 @ 37070:               FINISH ) {lev=2}

   886    report(faultnum,faultp) %if faultnum # 0
4089 @ 37071:               LINE   886 "regression-compile-tmp/chimps.imp"
4090 @ 37108:               PUSH   FAULTNUM
4091 @ 37111:               PUSHI  #0x00000000
4092 @ 37116:               JUMPIF = L_0004
4093 @ 37120:               PUSH   REPORT
4094 @ 37123:               PUSH   FAULTNUM
4095 @ 37126:               ASSPAR
4096 @ 37127:               PUSH   FAULTP
4097 @ 37130:               ASSPAR
4098 @ 37131:               CALL  
4099 @ 37132:               LOCATE L_0004

   887    %while sym # nl %cycle;               !Skip remnant
4100 @ 37135:               LINE   887 "regression-compile-tmp/chimps.imp"
4101 @ 37172:               LOCATE L_0003
4102 @ 37175:               PUSH   SYM
4103 @ 37178:               PUSHI  #0x0000000a
4104 @ 37183:               JUMPIF = L_0004

   888      sym = byteinteger(fp);  fp = fp+1
4105 @ 37187:               LINE   888 "regression-compile-tmp/chimps.imp"
4106 @ 37224:               PUSH   SYM
4107 @ 37227:               PUSH   BYTEINTEGER
4108 @ 37230:               PUSH   FP
4109 @ 37233:               ASSPAR
4110 @ 37234:               CALL  
4111 @ 37235:               ASSVAL
4112 @ 37236:               LINE   888 "regression-compile-tmp/chimps.imp"
4113 @ 37273:               PUSH   FP
4114 @ 37276:               PUSH   FP
4115 @ 37279:               PUSHI  #0x00000001
4116 @ 37284:               ADD   
4117 @ 37285:               ASSVAL

   889    %repeat
4118 @ 37286:               LINE   889 "regression-compile-tmp/chimps.imp"
4119 @ 37323:               REPEAT L_0003
4120 @ 37326:               LOCATE L_0004

   890    %while fp = curlim %cycle
4121 @ 37329:               LINE   890 "regression-compile-tmp/chimps.imp"
4122 @ 37366:               LOCATE L_0003
4123 @ 37369:               PUSH   FP
4124 @ 37372:               PUSH   CURLIM
4125 @ 37375:               JUMPIF # L_0004

   891      switch input
4126 @ 37379:               LINE   891 "regression-compile-tmp/chimps.imp"
4127 @ 37416:               PUSH   SWITCHINPUT
4128 @ 37419:               CALL  

   892    %repeat
4129 @ 37420:               LINE   892 "regression-compile-tmp/chimps.imp"
4130 @ 37457:               REPEAT L_0003
4131 @ 37460:               LOCATE L_0004

   893    line = line+1;  linestart = fp
4132 @ 37463:               LINE   893 "regression-compile-tmp/chimps.imp"
4133 @ 37500:               PUSH   LINE
4134 @ 37503:               PUSH   LINE
4135 @ 37506:               PUSHI  #0x00000001
4136 @ 37511:               ADD   
4137 @ 37512:               ASSVAL
4138 @ 37513:               LINE   893 "regression-compile-tmp/chimps.imp"
4139 @ 37550:               PUSH   LINESTART
4140 @ 37553:               PUSH   FP
4141 @ 37556:               ASSVAL

   894    sym = 0
4142 @ 37557:               LINE   894 "regression-compile-tmp/chimps.imp"
4143 @ 37594:               PUSH   SYM
4144 @ 37597:               PUSHI  #0x00000000
4145 @ 37602:               ASSVAL

   895  %end;  !READ LINE
   896  !
   897  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   898  !!!!!!!!!!!!!!!!!!!!  Lexical processing  !!!!!!!!!!!!!!!!!!!!!!
   899  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   900  
4146 @ 37603:               LINE   895 "regression-compile-tmp/chimps.imp"
4147 @ 37640:            END    _ECCECI_READLINE {lev=2 --> 1}

   901  %owninteger percent=0, subatom=0
   902  !
   903  !Aliases:
4148 @ 37641:            LINE   901 "regression-compile-tmp/chimps.imp"
4149 @ 37678:            PUSHI  #0x00000000
4150 @ 37683:            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
4151 @ 37702:            INIT   1
4152 @ 37705:            PUSHI  #0x00000000
4153 @ 37710:            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
4154 @ 37729:            INIT   1

   904  %constinteger ARROW=resolve
4155 @ 37732:            LINE   904 "regression-compile-tmp/chimps.imp"

   905  %constinteger EXCLAM=logor, EXCLAM2=logxor, DOT=concat
4156 @ 37769:            LINE   905 "regression-compile-tmp/chimps.imp"

   906  %constinteger STAR=mult, SLASH=fdiv, SLASH2=idiv,
   907                AMPERSAND=logand
4157 @ 37806:            LINE   906 "regression-compile-tmp/chimps.imp"

   908  %constinteger BACKSLASH=fpower, BACKSLASH2=ipower,
   909                UPARROW=fpower,   UPARROW2=ipower,
   910                TILDE=lognot
4158 @ 37843:            LINE   908 "regression-compile-tmp/chimps.imp"

   911  %constinteger LEFT=aref, UNDERLINE=recref, LEFTBRACKET=106
   912  
4159 @ 37880:            LINE   911 "regression-compile-tmp/chimps.imp"

   913  %constinteger SIMPLE=104, MAJOR=plus,
   914                SCOND=equals, COND=keyand
   915  !
   916  ! Type compatibility vectors:
4160 @ 37917:            LINE   913 "regression-compile-tmp/chimps.imp"

   917  %constinteger RECOK=1<<0, ARROK=1<<1, STRINGOK=1<<2,
   918                REALOK=1<<3, INTOK=1<<4, CHAROK=1<<5, 
   919                BOOLOK=1<<6, ENUMOK=1<<7, SETOK=1<<8
4161 @ 37954:            LINE   917 "regression-compile-tmp/chimps.imp"

   920  %constinteger ZNOP=1<<9, REFONLY=1<<10, VARONLY=1<<11
4162 @ 37991:            LINE   920 "regression-compile-tmp/chimps.imp"

   921  %constinteger ARITHOK=intok+realok,
   922                ORDOK=intok+charok+boolok+enumok,
   923                ANY=realok+ordok+stringok+arrok+recok
   924  !
4163 @ 38028:            LINE   921 "regression-compile-tmp/chimps.imp"

   925  %constintegerarray opbits(64:atommax) =
   926    {BOOLAND}    boolok,
   927    {BOOLOR}     boolok,
   928                 0, 0, 0, 0,
   929    {EQUALS}     any,
   930    {NOTEQ}      any,
   931    {LESSEQ}     setok+stringok+ordok+realok,
   932    {LESS}       stringok+ordok+realok,
   933    {GREATEQ}    setok+stringok+ordok+realok,
   934    {GREATER}    stringok+ordok+realok,
   935                 any,
   936                 any,
   937                 0,
   938    {RESOLVE}    stringok,
   939    {PLUS}       znop+setok+arithok,
   940    {MINUS}      znop+setok+arithok,
   941    {LOGOR}      znop+intok,
   942    {LOGXOR}     znop+intok,
   943    {CONCAT}     stringok,
   944                 0, 0, 0,
   945    {MULT}       arithok,
   946    {FDIV}       arithok,
   947    {IDIV}       intok,
   948    {LOGAND}     intok,
   949                 0, 0, 0, 0,
   950    {FPOWER}     arithok,
   951    {IPOWER}     intok,
   952                 0, 0,
   953    {LSHIFT}     znop+intok,
   954    {RSHIFT}     znop+intok,
   955    {LOGNOT}     intok,
   956                 0,
   957    {AREF}       arrok,
   958    {RECREF}     recok,
   959    {}           0, 0
   960  !
4164 @ 38065:            LINE   925 "regression-compile-tmp/chimps.imp"
4165 @ 38102:            PUSHI  #0x00000040
4166 @ 38107:            PUSHI  #0x0000006b
4167 @ 38112:            BOUNDS
4168 @ 38113:            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
4169 @ 38131:            PUSHI  #0x00000040
4170 @ 38136:            INIT   1
4171 @ 38139:            PUSHI  #0x00000040
4172 @ 38144:            INIT   1
4173 @ 38147:            PUSHI  #0x00000000
4174 @ 38152:            INIT   1
4175 @ 38155:            PUSHI  #0x00000000
4176 @ 38160:            INIT   1
4177 @ 38163:            PUSHI  #0x00000000
4178 @ 38168:            INIT   1
4179 @ 38171:            PUSHI  #0x00000000
4180 @ 38176:            INIT   1
4181 @ 38179:            PUSHI  #0x000000ff
4182 @ 38184:            INIT   1
4183 @ 38187:            PUSHI  #0x000000ff
4184 @ 38192:            INIT   1
4185 @ 38195:            PUSHI  #0x000001fc
4186 @ 38200:            INIT   1
4187 @ 38203:            PUSHI  #0x000000fc
4188 @ 38208:            INIT   1
4189 @ 38211:            PUSHI  #0x000001fc
4190 @ 38216:            INIT   1
4191 @ 38219:            PUSHI  #0x000000fc
4192 @ 38224:            INIT   1
4193 @ 38227:            PUSHI  #0x000000ff
4194 @ 38232:            INIT   1
4195 @ 38235:            PUSHI  #0x000000ff
4196 @ 38240:            INIT   1
4197 @ 38243:            PUSHI  #0x00000000
4198 @ 38248:            INIT   1
4199 @ 38251:            PUSHI  #0x00000004
4200 @ 38256:            INIT   1
4201 @ 38259:            PUSHI  #0x00000318
4202 @ 38264:            INIT   1
4203 @ 38267:            PUSHI  #0x00000318
4204 @ 38272:            INIT   1
4205 @ 38275:            PUSHI  #0x00000210
4206 @ 38280:            INIT   1
4207 @ 38283:            PUSHI  #0x00000210
4208 @ 38288:            INIT   1
4209 @ 38291:            PUSHI  #0x00000004
4210 @ 38296:            INIT   1
4211 @ 38299:            PUSHI  #0x00000000
4212 @ 38304:            INIT   1
4213 @ 38307:            PUSHI  #0x00000000
4214 @ 38312:            INIT   1
4215 @ 38315:            PUSHI  #0x00000000
4216 @ 38320:            INIT   1
4217 @ 38323:            PUSHI  #0x00000018
4218 @ 38328:            INIT   1
4219 @ 38331:            PUSHI  #0x00000018
4220 @ 38336:            INIT   1
4221 @ 38339:            PUSHI  #0x00000010
4222 @ 38344:            INIT   1
4223 @ 38347:            PUSHI  #0x00000010
4224 @ 38352:            INIT   1
4225 @ 38355:            PUSHI  #0x00000000
4226 @ 38360:            INIT   1
4227 @ 38363:            PUSHI  #0x00000000
4228 @ 38368:            INIT   1
4229 @ 38371:            PUSHI  #0x00000000
4230 @ 38376:            INIT   1
4231 @ 38379:            PUSHI  #0x00000000
4232 @ 38384:            INIT   1
4233 @ 38387:            PUSHI  #0x00000018
4234 @ 38392:            INIT   1
4235 @ 38395:            PUSHI  #0x00000010
4236 @ 38400:            INIT   1
4237 @ 38403:            PUSHI  #0x00000000
4238 @ 38408:            INIT   1
4239 @ 38411:            PUSHI  #0x00000000
4240 @ 38416:            INIT   1
4241 @ 38419:            PUSHI  #0x00000210
4242 @ 38424:            INIT   1
4243 @ 38427:            PUSHI  #0x00000210
4244 @ 38432:            INIT   1
4245 @ 38435:            PUSHI  #0x00000010
4246 @ 38440:            INIT   1
4247 @ 38443:            PUSHI  #0x00000000
4248 @ 38448:            INIT   1
4249 @ 38451:            PUSHI  #0x00000002
4250 @ 38456:            INIT   1
4251 @ 38459:            PUSHI  #0x00000001
4252 @ 38464:            INIT   1
4253 @ 38467:            PUSHI  #0x00000000
4254 @ 38472:            INIT   1
4255 @ 38475:            PUSHI  #0x00000000
4256 @ 38480:            INIT   1

   961  %integerfn NEXT ATOM
   962  !Encode next atom from source file
   963  ![Time-critical]
4257 @ 38483:            LINE   961 "regression-compile-tmp/chimps.imp"
4258 @ 38520:            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
4259 @ 38540:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
4260 @ 38541:               FINISH ) {lev=2}

   964  %switch s(0:255)
4261 @ 38542:               LINE   964 "regression-compile-tmp/chimps.imp"
4262 @ 38579:               PUSHI  #0x00000000
4263 @ 38584:               PUSHI  #0x000000ff
4264 @ 38589:               BOUNDS
4265 @ 38590:               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

   965  %constinteger tab=9
4266 @ 38603:               LINE   965 "regression-compile-tmp/chimps.imp"

   966  %integer i,j,p,radix,digits
4267 @ 38640:               LINE   966 "regression-compile-tmp/chimps.imp"
4268 @ 38677:               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
4269 @ 38690:               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
4270 @ 38703:               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
4271 @ 38716:               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
4272 @ 38733:               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

   967  %real rval
4273 @ 38751:               LINE   967 "regression-compile-tmp/chimps.imp"
4274 @ 38788:               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

   968  %constbyteintegerarray map(0:127) =
   969    0 ('0'),
   970    '0','1','2','3','4','5','6','7','8','9',
   971    0, 0, 0, 0, 0, 0, 0,
   972    'a','b','c','d','e','f','g','h','i','j','k','l','m',
   973    'n','o','p','q','r','s','t','u','v','w','x','y','z',
   974    0, 0, 0, 0, 0, 0,
   975    'a','b','c','d','e','f','g','h','i','j','k','l','m',
   976    'n','o','p','q','r','s','t','u','v','w','x','y','z',
   977    0, 0, 0, 0, 0
   978  
4275 @ 38804:               LINE   968 "regression-compile-tmp/chimps.imp"
4276 @ 38841:               PUSHI  #0x00000000
4277 @ 38846:               PUSHI  #0x0000007f
4278 @ 38851:               BOUNDS
4279 @ 38852:               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
4280 @ 38867:               PUSHI  #0x00000000
4281 @ 38872:               INIT   48
4282 @ 38875:               PUSHI  #0x00000030
4283 @ 38880:               INIT   1
4284 @ 38883:               PUSHI  #0x00000031
4285 @ 38888:               INIT   1
4286 @ 38891:               PUSHI  #0x00000032
4287 @ 38896:               INIT   1
4288 @ 38899:               PUSHI  #0x00000033
4289 @ 38904:               INIT   1
4290 @ 38907:               PUSHI  #0x00000034
4291 @ 38912:               INIT   1
4292 @ 38915:               PUSHI  #0x00000035
4293 @ 38920:               INIT   1
4294 @ 38923:               PUSHI  #0x00000036
4295 @ 38928:               INIT   1
4296 @ 38931:               PUSHI  #0x00000037
4297 @ 38936:               INIT   1
4298 @ 38939:               PUSHI  #0x00000038
4299 @ 38944:               INIT   1
4300 @ 38947:               PUSHI  #0x00000039
4301 @ 38952:               INIT   1
4302 @ 38955:               PUSHI  #0x00000000
4303 @ 38960:               INIT   1
4304 @ 38963:               PUSHI  #0x00000000
4305 @ 38968:               INIT   1
4306 @ 38971:               PUSHI  #0x00000000
4307 @ 38976:               INIT   1
4308 @ 38979:               PUSHI  #0x00000000
4309 @ 38984:               INIT   1
4310 @ 38987:               PUSHI  #0x00000000
4311 @ 38992:               INIT   1
4312 @ 38995:               PUSHI  #0x00000000
4313 @ 39000:               INIT   1
4314 @ 39003:               PUSHI  #0x00000000
4315 @ 39008:               INIT   1
4316 @ 39011:               PUSHI  #0x00000061
4317 @ 39016:               INIT   1
4318 @ 39019:               PUSHI  #0x00000062
4319 @ 39024:               INIT   1
4320 @ 39027:               PUSHI  #0x00000063
4321 @ 39032:               INIT   1
4322 @ 39035:               PUSHI  #0x00000064
4323 @ 39040:               INIT   1
4324 @ 39043:               PUSHI  #0x00000065
4325 @ 39048:               INIT   1
4326 @ 39051:               PUSHI  #0x00000066
4327 @ 39056:               INIT   1
4328 @ 39059:               PUSHI  #0x00000067
4329 @ 39064:               INIT   1
4330 @ 39067:               PUSHI  #0x00000068
4331 @ 39072:               INIT   1
4332 @ 39075:               PUSHI  #0x00000069
4333 @ 39080:               INIT   1
4334 @ 39083:               PUSHI  #0x0000006a
4335 @ 39088:               INIT   1
4336 @ 39091:               PUSHI  #0x0000006b
4337 @ 39096:               INIT   1
4338 @ 39099:               PUSHI  #0x0000006c
4339 @ 39104:               INIT   1
4340 @ 39107:               PUSHI  #0x0000006d
4341 @ 39112:               INIT   1
4342 @ 39115:               PUSHI  #0x0000006e
4343 @ 39120:               INIT   1
4344 @ 39123:               PUSHI  #0x0000006f
4345 @ 39128:               INIT   1
4346 @ 39131:               PUSHI  #0x00000070
4347 @ 39136:               INIT   1
4348 @ 39139:               PUSHI  #0x00000071
4349 @ 39144:               INIT   1
4350 @ 39147:               PUSHI  #0x00000072
4351 @ 39152:               INIT   1
4352 @ 39155:               PUSHI  #0x00000073
4353 @ 39160:               INIT   1
4354 @ 39163:               PUSHI  #0x00000074
4355 @ 39168:               INIT   1
4356 @ 39171:               PUSHI  #0x00000075
4357 @ 39176:               INIT   1
4358 @ 39179:               PUSHI  #0x00000076
4359 @ 39184:               INIT   1
4360 @ 39187:               PUSHI  #0x00000077
4361 @ 39192:               INIT   1
4362 @ 39195:               PUSHI  #0x00000078
4363 @ 39200:               INIT   1
4364 @ 39203:               PUSHI  #0x00000079
4365 @ 39208:               INIT   1
4366 @ 39211:               PUSHI  #0x0000007a
4367 @ 39216:               INIT   1
4368 @ 39219:               PUSHI  #0x00000000
4369 @ 39224:               INIT   1
4370 @ 39227:               PUSHI  #0x00000000
4371 @ 39232:               INIT   1
4372 @ 39235:               PUSHI  #0x00000000
4373 @ 39240:               INIT   1
4374 @ 39243:               PUSHI  #0x00000000
4375 @ 39248:               INIT   1
4376 @ 39251:               PUSHI  #0x00000000
4377 @ 39256:               INIT   1
4378 @ 39259:               PUSHI  #0x00000000
4379 @ 39264:               INIT   1
4380 @ 39267:               PUSHI  #0x00000061
4381 @ 39272:               INIT   1
4382 @ 39275:               PUSHI  #0x00000062
4383 @ 39280:               INIT   1
4384 @ 39283:               PUSHI  #0x00000063
4385 @ 39288:               INIT   1
4386 @ 39291:               PUSHI  #0x00000064
4387 @ 39296:               INIT   1
4388 @ 39299:               PUSHI  #0x00000065
4389 @ 39304:               INIT   1
4390 @ 39307:               PUSHI  #0x00000066
4391 @ 39312:               INIT   1
4392 @ 39315:               PUSHI  #0x00000067
4393 @ 39320:               INIT   1
4394 @ 39323:               PUSHI  #0x00000068
4395 @ 39328:               INIT   1
4396 @ 39331:               PUSHI  #0x00000069
4397 @ 39336:               INIT   1
4398 @ 39339:               PUSHI  #0x0000006a
4399 @ 39344:               INIT   1
4400 @ 39347:               PUSHI  #0x0000006b
4401 @ 39352:               INIT   1
4402 @ 39355:               PUSHI  #0x0000006c
4403 @ 39360:               INIT   1
4404 @ 39363:               PUSHI  #0x0000006d
4405 @ 39368:               INIT   1
4406 @ 39371:               PUSHI  #0x0000006e
4407 @ 39376:               INIT   1
4408 @ 39379:               PUSHI  #0x0000006f
4409 @ 39384:               INIT   1
4410 @ 39387:               PUSHI  #0x00000070
4411 @ 39392:               INIT   1
4412 @ 39395:               PUSHI  #0x00000071
4413 @ 39400:               INIT   1
4414 @ 39403:               PUSHI  #0x00000072
4415 @ 39408:               INIT   1
4416 @ 39411:               PUSHI  #0x00000073
4417 @ 39416:               INIT   1
4418 @ 39419:               PUSHI  #0x00000074
4419 @ 39424:               INIT   1
4420 @ 39427:               PUSHI  #0x00000075
4421 @ 39432:               INIT   1
4422 @ 39435:               PUSHI  #0x00000076
4423 @ 39440:               INIT   1
4424 @ 39443:               PUSHI  #0x00000077
4425 @ 39448:               INIT   1
4426 @ 39451:               PUSHI  #0x00000078
4427 @ 39456:               INIT   1
4428 @ 39459:               PUSHI  #0x00000079
4429 @ 39464:               INIT   1
4430 @ 39467:               PUSHI  #0x0000007a
4431 @ 39472:               INIT   1
4432 @ 39475:               PUSHI  #0x00000000
4433 @ 39480:               INIT   1
4434 @ 39483:               PUSHI  #0x00000000
4435 @ 39488:               INIT   1
4436 @ 39491:               PUSHI  #0x00000000
4437 @ 39496:               INIT   1
4438 @ 39499:               PUSHI  #0x00000000
4439 @ 39504:               INIT   1
4440 @ 39507:               PUSHI  #0x00000000
4441 @ 39512:               INIT   1

   979  %routine assemble real
4442 @ 39515:               LINE   979 "regression-compile-tmp/chimps.imp"
4443 @ 39552:               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
4444 @ 39576:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
4445 @ 39577:                  FINISH ) {lev=3}

   980    j = 0
4446 @ 39578:                  LINE   980 "regression-compile-tmp/chimps.imp"
4447 @ 39615:                  PUSH   J
4448 @ 39618:                  PUSHI  #0x00000000
4449 @ 39623:                  ASSVAL

   981    %cycle
4450 @ 39624:                  LINE   981 "regression-compile-tmp/chimps.imp"
4451 @ 39661:                  LOCATE L_0003

   982      %cycle
4452 @ 39664:                  LINE   982 "regression-compile-tmp/chimps.imp"
4453 @ 39701:                  LOCATE L_0006

   983        sym = byteinteger(fp);  fp = fp+1
4454 @ 39704:                  LINE   983 "regression-compile-tmp/chimps.imp"
4455 @ 39741:                  PUSH   SYM
4456 @ 39744:                  PUSH   BYTEINTEGER
4457 @ 39747:                  PUSH   FP
4458 @ 39750:                  ASSPAR
4459 @ 39751:                  CALL  
4460 @ 39752:                  ASSVAL
4461 @ 39753:                  LINE   983 "regression-compile-tmp/chimps.imp"
4462 @ 39790:                  PUSH   FP
4463 @ 39793:                  PUSH   FP
4464 @ 39796:                  PUSHI  #0x00000001
4465 @ 39801:                  ADD   
4466 @ 39802:                  ASSVAL

   984      %repeat %until sym # ' '
4467 @ 39803:                  LINE   984 "regression-compile-tmp/chimps.imp"
4468 @ 39840:                  PUSH   SYM
4469 @ 39843:                  PUSHI  #0x00000020
4470 @ 39848:                  JUMPIF # L_0007
4471 @ 39852:                  REPEAT L_0006
4472 @ 39855:                  LOCATE L_0007

   985      i = sym-'0'
4473 @ 39858:                  LINE   985 "regression-compile-tmp/chimps.imp"
4474 @ 39895:                  PUSH   I
4475 @ 39898:                  PUSH   SYM
4476 @ 39901:                  PUSHI  #0x00000030
4477 @ 39906:                  SUB   
4478 @ 39907:                  ASSVAL

   986      %return %unless 0 <= i < radix
4479 @ 39908:                  LINE   986 "regression-compile-tmp/chimps.imp"
4480 @ 39945:                  PUSHI  #0x00000000
4481 @ 39950:                  PUSH   I
4482 @ 39953:                  JUMPIFD > L_0008
4483 @ 39957:                  PUSH   RADIX
4484 @ 39960:                  JUMPIF < L_0007
4485 @ 39964:                  LOCATE L_0008
4486 @ 39967:                  RETURN
4487 @ 39968:                  LOCATE L_0007

   987      rval = rval*radix+i;  j = j+1
4488 @ 39971:                  LINE   987 "regression-compile-tmp/chimps.imp"
4489 @ 40008:                  PUSH   RVAL
4490 @ 40011:                  PUSH   RVAL
4491 @ 40014:                  PUSH   RADIX
4492 @ 40017:                  MUL   
4493 @ 40018:                  PUSH   I
4494 @ 40021:                  ADD   
4495 @ 40022:                  ASSVAL
4496 @ 40023:                  LINE   987 "regression-compile-tmp/chimps.imp"
4497 @ 40060:                  PUSH   J
4498 @ 40063:                  PUSH   J
4499 @ 40066:                  PUSHI  #0x00000001
4500 @ 40071:                  ADD   
4501 @ 40072:                  ASSVAL

   988    %repeat
4502 @ 40073:                  LINE   988 "regression-compile-tmp/chimps.imp"
4503 @ 40110:                  REPEAT L_0003

   989  %end
   990  
   991  !  atoms = atoms+1
4504 @ 40113:                  LINE   989 "regression-compile-tmp/chimps.imp"
4505 @ 40150:               END    _ECCECI_NEXTATOM_ASSEMBLEREAL {lev=3 --> 2}

   992    matched = 0
4506 @ 40151:               LINE   992 "regression-compile-tmp/chimps.imp"
4507 @ 40188:               PUSH   MATCHED
4508 @ 40191:               PUSHI  #0x00000000
4509 @ 40196:               ASSVAL

   993  again: s(tab):
4510 @ 40197:               LINE   993 "regression-compile-tmp/chimps.imp"
4511 @ 40234:               LABEL  L_0101
4512 @ 40237:               LINE   993 "regression-compile-tmp/chimps.imp"
4513 @ 40274:               PUSHI  #0x00000009
4514 @ 40279:               SLABEL 248

   994    read line %if sym = nl
4515 @ 40282:               LINE   994 "regression-compile-tmp/chimps.imp"
4516 @ 40319:               PUSH   SYM
4517 @ 40322:               PUSHI  #0x0000000a
4518 @ 40327:               JUMPIF # L_0004
4519 @ 40331:               PUSH   READLINE
4520 @ 40334:               CALL  
4521 @ 40335:               LOCATE L_0004

   995    %cycle
4522 @ 40338:               LINE   995 "regression-compile-tmp/chimps.imp"
4523 @ 40375:               LOCATE L_0003

   996      sym = byteinteger(fp);  fp = fp+1
4524 @ 40378:               LINE   996 "regression-compile-tmp/chimps.imp"
4525 @ 40415:               PUSH   SYM
4526 @ 40418:               PUSH   BYTEINTEGER
4527 @ 40421:               PUSH   FP
4528 @ 40424:               ASSPAR
4529 @ 40425:               CALL  
4530 @ 40426:               ASSVAL
4531 @ 40427:               LINE   996 "regression-compile-tmp/chimps.imp"
4532 @ 40464:               PUSH   FP
4533 @ 40467:               PUSH   FP
4534 @ 40470:               PUSHI  #0x00000001
4535 @ 40475:               ADD   
4536 @ 40476:               ASSVAL

   997    %repeat %until sym # ' '
4537 @ 40477:               LINE   997 "regression-compile-tmp/chimps.imp"
4538 @ 40514:               PUSH   SYM
4539 @ 40517:               PUSHI  #0x00000020
4540 @ 40522:               JUMPIF # L_0004
4541 @ 40526:               REPEAT L_0003
4542 @ 40529:               LOCATE L_0004

   998    atomp = fp;     !(actually one after)
4543 @ 40532:               LINE   998 "regression-compile-tmp/chimps.imp"
4544 @ 40569:               PUSH   ATOMP
4545 @ 40572:               PUSH   FP
4546 @ 40575:               ASSVAL

   999    -> s(sym)
4547 @ 40576:               LINE   999 "regression-compile-tmp/chimps.imp"
4548 @ 40613:               PUSH   SYM
4549 @ 40616:               SJUMP  248

  1000  linebreak: s(nl):
4550 @ 40619:               LINE   1000 "regression-compile-tmp/chimps.imp"
4551 @ 40656:               LABEL  L_0102
4552 @ 40659:               LINE   1000 "regression-compile-tmp/chimps.imp"
4553 @ 40696:               PUSHI  #0x0000000a
4554 @ 40701:               SLABEL 248

  1001    %result = terminator %if atom # comma
4555 @ 40704:               LINE   1001 "regression-compile-tmp/chimps.imp"
4556 @ 40741:               PUSH   ATOM
4557 @ 40744:               PUSHI  #0x0000003b
4558 @ 40749:               JUMPIF = L_0004
4559 @ 40753:               PUSHI  #0x00000034
4560 @ 40758:               RESULT
4561 @ 40759:               LOCATE L_0004

  1002    -> again
  1003  
4562 @ 40762:               LINE   1002 "regression-compile-tmp/chimps.imp"
4563 @ 40799:               JUMP   L_0101

  1004  s('{'):
4564 @ 40802:               LINE   1004 "regression-compile-tmp/chimps.imp"
4565 @ 40839:               PUSHI  #0x0000007b
4566 @ 40844:               SLABEL 248

  1005    %cycle
4567 @ 40847:               LINE   1005 "regression-compile-tmp/chimps.imp"
4568 @ 40884:               LOCATE L_0003

  1006      sym = byteinteger(fp);  fp = fp+1
4569 @ 40887:               LINE   1006 "regression-compile-tmp/chimps.imp"
4570 @ 40924:               PUSH   SYM
4571 @ 40927:               PUSH   BYTEINTEGER
4572 @ 40930:               PUSH   FP
4573 @ 40933:               ASSPAR
4574 @ 40934:               CALL  
4575 @ 40935:               ASSVAL
4576 @ 40936:               LINE   1006 "regression-compile-tmp/chimps.imp"
4577 @ 40973:               PUSH   FP
4578 @ 40976:               PUSH   FP
4579 @ 40979:               PUSHI  #0x00000001
4580 @ 40984:               ADD   
4581 @ 40985:               ASSVAL

  1007      -> linebreak %if sym = nl
4582 @ 40986:               LINE   1007 "regression-compile-tmp/chimps.imp"
4583 @ 41023:               PUSH   SYM
4584 @ 41026:               PUSHI  #0x0000000a
4585 @ 41031:               JUMPIF # L_0007
4586 @ 41035:               JUMP   L_0102
4587 @ 41038:               LOCATE L_0007

  1008    %repeat %until sym = '}'
4588 @ 41041:               LINE   1008 "regression-compile-tmp/chimps.imp"
4589 @ 41078:               PUSH   SYM
4590 @ 41081:               PUSHI  #0x0000007d
4591 @ 41086:               JUMPIF = L_0004
4592 @ 41090:               REPEAT L_0003
4593 @ 41093:               LOCATE L_0004

  1009    -> again
  1010  
4594 @ 41096:               LINE   1009 "regression-compile-tmp/chimps.imp"
4595 @ 41133:               JUMP   L_0101

  1011  s('+'): %result = plus
4596 @ 41136:               LINE   1011 "regression-compile-tmp/chimps.imp"
4597 @ 41173:               PUSHI  #0x0000002b
4598 @ 41178:               SLABEL 248
4599 @ 41181:               LINE   1011 "regression-compile-tmp/chimps.imp"
4600 @ 41218:               PUSHI  #0x00000050
4601 @ 41223:               RESULT

  1012  s('-'): fp = fp+1 %and %result = arrow %if byteinteger(fp) = '>'
4602 @ 41224:               LINE   1012 "regression-compile-tmp/chimps.imp"
4603 @ 41261:               PUSHI  #0x0000002d
4604 @ 41266:               SLABEL 248
4605 @ 41269:               LINE   1012 "regression-compile-tmp/chimps.imp"
4606 @ 41306:               PUSH   BYTEINTEGER
4607 @ 41309:               PUSH   FP
4608 @ 41312:               ASSPAR
4609 @ 41313:               CALL  
4610 @ 41314:               PUSHI  #0x0000003e
4611 @ 41319:               JUMPIF # L_0004
4612 @ 41323:               PUSH   FP
4613 @ 41326:               PUSH   FP
4614 @ 41329:               PUSHI  #0x00000001
4615 @ 41334:               ADD   
4616 @ 41335:               ASSVAL
4617 @ 41336:               PUSHI  #0x0000004f
4618 @ 41341:               RESULT
4619 @ 41342:               LOCATE L_0004

  1013          -> again %if byteinteger(fp) = nl
4620 @ 41345:               LINE   1013 "regression-compile-tmp/chimps.imp"
4621 @ 41382:               PUSH   BYTEINTEGER
4622 @ 41385:               PUSH   FP
4623 @ 41388:               ASSPAR
4624 @ 41389:               CALL  
4625 @ 41390:               PUSHI  #0x0000000a
4626 @ 41395:               JUMPIF # L_0004
4627 @ 41399:               JUMP   L_0101
4628 @ 41402:               LOCATE L_0004

  1014          %result = minus
4629 @ 41405:               LINE   1014 "regression-compile-tmp/chimps.imp"
4630 @ 41442:               PUSHI  #0x00000051
4631 @ 41447:               RESULT

  1015  s('*'): %result = star
4632 @ 41448:               LINE   1015 "regression-compile-tmp/chimps.imp"
4633 @ 41485:               PUSHI  #0x0000002a
4634 @ 41490:               SLABEL 248
4635 @ 41493:               LINE   1015 "regression-compile-tmp/chimps.imp"
4636 @ 41530:               PUSHI  #0x00000058
4637 @ 41535:               RESULT

  1016  s('/'): fp = fp+1 %and %result = slash2 %if byteinteger(fp) = '/'
4638 @ 41536:               LINE   1016 "regression-compile-tmp/chimps.imp"
4639 @ 41573:               PUSHI  #0x0000002f
4640 @ 41578:               SLABEL 248
4641 @ 41581:               LINE   1016 "regression-compile-tmp/chimps.imp"
4642 @ 41618:               PUSH   BYTEINTEGER
4643 @ 41621:               PUSH   FP
4644 @ 41624:               ASSPAR
4645 @ 41625:               CALL  
4646 @ 41626:               PUSHI  #0x0000002f
4647 @ 41631:               JUMPIF # L_0004
4648 @ 41635:               PUSH   FP
4649 @ 41638:               PUSH   FP
4650 @ 41641:               PUSHI  #0x00000001
4651 @ 41646:               ADD   
4652 @ 41647:               ASSVAL
4653 @ 41648:               PUSHI  #0x0000005a
4654 @ 41653:               RESULT
4655 @ 41654:               LOCATE L_0004

  1017          %result = slash
4656 @ 41657:               LINE   1017 "regression-compile-tmp/chimps.imp"
4657 @ 41694:               PUSHI  #0x00000059
4658 @ 41699:               RESULT

  1018  s('\'): fp = fp+1 %and %result = backslash2 %if byteinteger(fp) = '\'
4659 @ 41700:               LINE   1018 "regression-compile-tmp/chimps.imp"
4660 @ 41737:               PUSHI  #0x0000005c
4661 @ 41742:               SLABEL 248
4662 @ 41745:               LINE   1018 "regression-compile-tmp/chimps.imp"
4663 @ 41782:               PUSH   BYTEINTEGER
4664 @ 41785:               PUSH   FP
4665 @ 41788:               ASSPAR
4666 @ 41789:               CALL  
4667 @ 41790:               PUSHI  #0x0000005c
4668 @ 41795:               JUMPIF # L_0004
4669 @ 41799:               PUSH   FP
4670 @ 41802:               PUSH   FP
4671 @ 41805:               PUSHI  #0x00000001
4672 @ 41810:               ADD   
4673 @ 41811:               ASSVAL
4674 @ 41812:               PUSHI  #0x00000061
4675 @ 41817:               RESULT
4676 @ 41818:               LOCATE L_0004

  1019          %result = backslash
4677 @ 41821:               LINE   1019 "regression-compile-tmp/chimps.imp"
4678 @ 41858:               PUSHI  #0x00000060
4679 @ 41863:               RESULT

  1020  s('^'): nonstandard(uparr)
4680 @ 41864:               LINE   1020 "regression-compile-tmp/chimps.imp"
4681 @ 41901:               PUSHI  #0x0000005e
4682 @ 41906:               SLABEL 248
4683 @ 41909:               LINE   1020 "regression-compile-tmp/chimps.imp"
4684 @ 41946:               PUSH   NONSTANDARD
4685 @ 41949:               PUSHI  #0x00000002
4686 @ 41954:               ASSPAR
4687 @ 41955:               CALL  

  1021          fp = fp+1 %and %result = uparrow2 %if byteinteger(fp) = '^'
4688 @ 41956:               LINE   1021 "regression-compile-tmp/chimps.imp"
4689 @ 41993:               PUSH   BYTEINTEGER
4690 @ 41996:               PUSH   FP
4691 @ 41999:               ASSPAR
4692 @ 42000:               CALL  
4693 @ 42001:               PUSHI  #0x0000005e
4694 @ 42006:               JUMPIF # L_0004
4695 @ 42010:               PUSH   FP
4696 @ 42013:               PUSH   FP
4697 @ 42016:               PUSHI  #0x00000001
4698 @ 42021:               ADD   
4699 @ 42022:               ASSVAL
4700 @ 42023:               PUSHI  #0x00000061
4701 @ 42028:               RESULT
4702 @ 42029:               LOCATE L_0004

  1022          %result = uparrow
4703 @ 42032:               LINE   1022 "regression-compile-tmp/chimps.imp"
4704 @ 42069:               PUSHI  #0x00000060
4705 @ 42074:               RESULT

  1023  s('!'): fp = fp+1 %and %result = exclam2 %if byteinteger(fp) = '!'
4706 @ 42075:               LINE   1023 "regression-compile-tmp/chimps.imp"
4707 @ 42112:               PUSHI  #0x00000021
4708 @ 42117:               SLABEL 248
4709 @ 42120:               LINE   1023 "regression-compile-tmp/chimps.imp"
4710 @ 42157:               PUSH   BYTEINTEGER
4711 @ 42160:               PUSH   FP
4712 @ 42163:               ASSPAR
4713 @ 42164:               CALL  
4714 @ 42165:               PUSHI  #0x00000021
4715 @ 42170:               JUMPIF # L_0004
4716 @ 42174:               PUSH   FP
4717 @ 42177:               PUSH   FP
4718 @ 42180:               PUSHI  #0x00000001
4719 @ 42185:               ADD   
4720 @ 42186:               ASSVAL
4721 @ 42187:               PUSHI  #0x00000053
4722 @ 42192:               RESULT
4723 @ 42193:               LOCATE L_0004

  1024          %result = exclam
4724 @ 42196:               LINE   1024 "regression-compile-tmp/chimps.imp"
4725 @ 42233:               PUSHI  #0x00000052
4726 @ 42238:               RESULT

  1025  s('&'): %result = ampersand
4727 @ 42239:               LINE   1025 "regression-compile-tmp/chimps.imp"
4728 @ 42276:               PUSHI  #0x00000026
4729 @ 42281:               SLABEL 248
4730 @ 42284:               LINE   1025 "regression-compile-tmp/chimps.imp"
4731 @ 42321:               PUSHI  #0x0000005b
4732 @ 42326:               RESULT

  1026  s('.'): %result = dot
4733 @ 42327:               LINE   1026 "regression-compile-tmp/chimps.imp"
4734 @ 42364:               PUSHI  #0x0000002e
4735 @ 42369:               SLABEL 248
4736 @ 42372:               LINE   1026 "regression-compile-tmp/chimps.imp"
4737 @ 42409:               PUSHI  #0x00000054
4738 @ 42414:               RESULT

  1027  s('='): fp = fp+1 %and %result = eqeq %if byteinteger(fp) = '='
4739 @ 42415:               LINE   1027 "regression-compile-tmp/chimps.imp"
4740 @ 42452:               PUSHI  #0x0000003d
4741 @ 42457:               SLABEL 248
4742 @ 42460:               LINE   1027 "regression-compile-tmp/chimps.imp"
4743 @ 42497:               PUSH   BYTEINTEGER
4744 @ 42500:               PUSH   FP
4745 @ 42503:               ASSPAR
4746 @ 42504:               CALL  
4747 @ 42505:               PUSHI  #0x0000003d
4748 @ 42510:               JUMPIF # L_0004
4749 @ 42514:               PUSH   FP
4750 @ 42517:               PUSH   FP
4751 @ 42520:               PUSHI  #0x00000001
4752 @ 42525:               ADD   
4753 @ 42526:               ASSVAL
4754 @ 42527:               PUSHI  #0x0000004c
4755 @ 42532:               RESULT
4756 @ 42533:               LOCATE L_0004

  1028          %result = equals
4757 @ 42536:               LINE   1028 "regression-compile-tmp/chimps.imp"
4758 @ 42573:               PUSHI  #0x00000046
4759 @ 42578:               RESULT

  1029  s('#'): fp = fp+1 %and %result = noteqeq %if byteinteger(fp) = '#'
4760 @ 42579:               LINE   1029 "regression-compile-tmp/chimps.imp"
4761 @ 42616:               PUSHI  #0x00000023
4762 @ 42621:               SLABEL 248
4763 @ 42624:               LINE   1029 "regression-compile-tmp/chimps.imp"
4764 @ 42661:               PUSH   BYTEINTEGER
4765 @ 42664:               PUSH   FP
4766 @ 42667:               ASSPAR
4767 @ 42668:               CALL  
4768 @ 42669:               PUSHI  #0x00000023
4769 @ 42674:               JUMPIF # L_0004
4770 @ 42678:               PUSH   FP
4771 @ 42681:               PUSH   FP
4772 @ 42684:               PUSHI  #0x00000001
4773 @ 42689:               ADD   
4774 @ 42690:               ASSVAL
4775 @ 42691:               PUSHI  #0x0000004d
4776 @ 42696:               RESULT
4777 @ 42697:               LOCATE L_0004

  1030          %result = noteq
4778 @ 42700:               LINE   1030 "regression-compile-tmp/chimps.imp"
4779 @ 42737:               PUSHI  #0x00000047
4780 @ 42742:               RESULT

  1031  s('<'): fp = fp+1 %and %result = lesseq %if byteinteger(fp) = '='
4781 @ 42743:               LINE   1031 "regression-compile-tmp/chimps.imp"
4782 @ 42780:               PUSHI  #0x0000003c
4783 @ 42785:               SLABEL 248
4784 @ 42788:               LINE   1031 "regression-compile-tmp/chimps.imp"
4785 @ 42825:               PUSH   BYTEINTEGER
4786 @ 42828:               PUSH   FP
4787 @ 42831:               ASSPAR
4788 @ 42832:               CALL  
4789 @ 42833:               PUSHI  #0x0000003d
4790 @ 42838:               JUMPIF # L_0004
4791 @ 42842:               PUSH   FP
4792 @ 42845:               PUSH   FP
4793 @ 42848:               PUSHI  #0x00000001
4794 @ 42853:               ADD   
4795 @ 42854:               ASSVAL
4796 @ 42855:               PUSHI  #0x00000048
4797 @ 42860:               RESULT
4798 @ 42861:               LOCATE L_0004

  1032          fp = fp+1 %and %result = noteq %if byteinteger(fp) = '>'
4799 @ 42864:               LINE   1032 "regression-compile-tmp/chimps.imp"
4800 @ 42901:               PUSH   BYTEINTEGER
4801 @ 42904:               PUSH   FP
4802 @ 42907:               ASSPAR
4803 @ 42908:               CALL  
4804 @ 42909:               PUSHI  #0x0000003e
4805 @ 42914:               JUMPIF # L_0004
4806 @ 42918:               PUSH   FP
4807 @ 42921:               PUSH   FP
4808 @ 42924:               PUSHI  #0x00000001
4809 @ 42929:               ADD   
4810 @ 42930:               ASSVAL
4811 @ 42931:               PUSHI  #0x00000047
4812 @ 42936:               RESULT
4813 @ 42937:               LOCATE L_0004

  1033          fp = fp+1 %and %result = lshift %if byteinteger(fp) = '<'
4814 @ 42940:               LINE   1033 "regression-compile-tmp/chimps.imp"
4815 @ 42977:               PUSH   BYTEINTEGER
4816 @ 42980:               PUSH   FP
4817 @ 42983:               ASSPAR
4818 @ 42984:               CALL  
4819 @ 42985:               PUSHI  #0x0000003c
4820 @ 42990:               JUMPIF # L_0004
4821 @ 42994:               PUSH   FP
4822 @ 42997:               PUSH   FP
4823 @ 43000:               PUSHI  #0x00000001
4824 @ 43005:               ADD   
4825 @ 43006:               ASSVAL
4826 @ 43007:               PUSHI  #0x00000064
4827 @ 43012:               RESULT
4828 @ 43013:               LOCATE L_0004

  1034          %result = less
4829 @ 43016:               LINE   1034 "regression-compile-tmp/chimps.imp"
4830 @ 43053:               PUSHI  #0x00000049
4831 @ 43058:               RESULT

  1035  s('>'): fp = fp+1 %and %result = greateq %if byteinteger(fp) = '='
4832 @ 43059:               LINE   1035 "regression-compile-tmp/chimps.imp"
4833 @ 43096:               PUSHI  #0x0000003e
4834 @ 43101:               SLABEL 248
4835 @ 43104:               LINE   1035 "regression-compile-tmp/chimps.imp"
4836 @ 43141:               PUSH   BYTEINTEGER
4837 @ 43144:               PUSH   FP
4838 @ 43147:               ASSPAR
4839 @ 43148:               CALL  
4840 @ 43149:               PUSHI  #0x0000003d
4841 @ 43154:               JUMPIF # L_0004
4842 @ 43158:               PUSH   FP
4843 @ 43161:               PUSH   FP
4844 @ 43164:               PUSHI  #0x00000001
4845 @ 43169:               ADD   
4846 @ 43170:               ASSVAL
4847 @ 43171:               PUSHI  #0x0000004a
4848 @ 43176:               RESULT
4849 @ 43177:               LOCATE L_0004

  1036          fp = fp+1 %and %result = rshift %if byteinteger(fp) = '>'
4850 @ 43180:               LINE   1036 "regression-compile-tmp/chimps.imp"
4851 @ 43217:               PUSH   BYTEINTEGER
4852 @ 43220:               PUSH   FP
4853 @ 43223:               ASSPAR
4854 @ 43224:               CALL  
4855 @ 43225:               PUSHI  #0x0000003e
4856 @ 43230:               JUMPIF # L_0004
4857 @ 43234:               PUSH   FP
4858 @ 43237:               PUSH   FP
4859 @ 43240:               PUSHI  #0x00000001
4860 @ 43245:               ADD   
4861 @ 43246:               ASSVAL
4862 @ 43247:               PUSHI  #0x00000065
4863 @ 43252:               RESULT
4864 @ 43253:               LOCATE L_0004

  1037          %result = greater
4865 @ 43256:               LINE   1037 "regression-compile-tmp/chimps.imp"
4866 @ 43293:               PUSHI  #0x0000004b
4867 @ 43298:               RESULT

  1038  s('_'): %result = underline
4868 @ 43299:               LINE   1038 "regression-compile-tmp/chimps.imp"
4869 @ 43336:               PUSHI  #0x0000005f
4870 @ 43341:               SLABEL 248
4871 @ 43344:               LINE   1038 "regression-compile-tmp/chimps.imp"
4872 @ 43381:               PUSHI  #0x00000038
4873 @ 43386:               RESULT

  1039  s(':'): %result = colon
4874 @ 43387:               LINE   1039 "regression-compile-tmp/chimps.imp"
4875 @ 43424:               PUSHI  #0x0000003a
4876 @ 43429:               SLABEL 248
4877 @ 43432:               LINE   1039 "regression-compile-tmp/chimps.imp"
4878 @ 43469:               PUSHI  #0x0000003a
4879 @ 43474:               RESULT

  1040  s(','): %result = comma
4880 @ 43475:               LINE   1040 "regression-compile-tmp/chimps.imp"
4881 @ 43512:               PUSHI  #0x0000002c
4882 @ 43517:               SLABEL 248
4883 @ 43520:               LINE   1040 "regression-compile-tmp/chimps.imp"
4884 @ 43557:               PUSHI  #0x0000003b
4885 @ 43562:               RESULT

  1041  s(';'): %result = terminator
4886 @ 43563:               LINE   1041 "regression-compile-tmp/chimps.imp"
4887 @ 43600:               PUSHI  #0x0000003b
4888 @ 43605:               SLABEL 248
4889 @ 43608:               LINE   1041 "regression-compile-tmp/chimps.imp"
4890 @ 43645:               PUSHI  #0x00000034
4891 @ 43650:               RESULT

  1042  s('('): %result = left
4892 @ 43651:               LINE   1042 "regression-compile-tmp/chimps.imp"
4893 @ 43688:               PUSHI  #0x00000028
4894 @ 43693:               SLABEL 248
4895 @ 43696:               LINE   1042 "regression-compile-tmp/chimps.imp"
4896 @ 43733:               PUSHI  #0x00000037
4897 @ 43738:               RESULT

  1043  s(')'): %result = right
4898 @ 43739:               LINE   1043 "regression-compile-tmp/chimps.imp"
4899 @ 43776:               PUSHI  #0x00000029
4900 @ 43781:               SLABEL 248
4901 @ 43784:               LINE   1043 "regression-compile-tmp/chimps.imp"
4902 @ 43821:               PUSHI  #0x0000003c
4903 @ 43826:               RESULT

  1044  s('|'): %result = modsign
  1045  
4904 @ 43827:               LINE   1044 "regression-compile-tmp/chimps.imp"
4905 @ 43864:               PUSHI  #0x0000007c
4906 @ 43869:               SLABEL 248
4907 @ 43872:               LINE   1044 "regression-compile-tmp/chimps.imp"
4908 @ 43909:               PUSHI  #0x00000039
4909 @ 43914:               RESULT

  1046  s('E'): s('e'):
4910 @ 43915:               LINE   1046 "regression-compile-tmp/chimps.imp"
4911 @ 43952:               PUSHI  #0x00000045
4912 @ 43957:               SLABEL 248
4913 @ 43960:               LINE   1046 "regression-compile-tmp/chimps.imp"
4914 @ 43997:               PUSHI  #0x00000065
4915 @ 44002:               SLABEL 248

  1047    fp = fp+1 %and -> stringconst %if byteinteger(fp) = '"'
4916 @ 44005:               LINE   1047 "regression-compile-tmp/chimps.imp"
4917 @ 44042:               PUSH   BYTEINTEGER
4918 @ 44045:               PUSH   FP
4919 @ 44048:               ASSPAR
4920 @ 44049:               CALL  
4921 @ 44050:               PUSHI  #0x00000022
4922 @ 44055:               JUMPIF # L_0004
4923 @ 44059:               PUSH   FP
4924 @ 44062:               PUSH   FP
4925 @ 44065:               PUSHI  #0x00000001
4926 @ 44070:               ADD   
4927 @ 44071:               ASSVAL
4928 @ 44072:               JUMP   L_0103
4929 @ 44075:               LOCATE L_0004

  1048  s('M'): s('m'): s('C'): s('c'):
4930 @ 44078:               LINE   1048 "regression-compile-tmp/chimps.imp"
4931 @ 44115:               PUSHI  #0x0000004d
4932 @ 44120:               SLABEL 248
4933 @ 44123:               LINE   1048 "regression-compile-tmp/chimps.imp"
4934 @ 44160:               PUSHI  #0x0000006d
4935 @ 44165:               SLABEL 248
4936 @ 44168:               LINE   1048 "regression-compile-tmp/chimps.imp"
4937 @ 44205:               PUSHI  #0x00000043
4938 @ 44210:               SLABEL 248
4939 @ 44213:               LINE   1048 "regression-compile-tmp/chimps.imp"
4940 @ 44250:               PUSHI  #0x00000063
4941 @ 44255:               SLABEL 248

  1049    fp = fp+1 %and -> charconst %if byteinteger(fp) = ''''
4942 @ 44258:               LINE   1049 "regression-compile-tmp/chimps.imp"
4943 @ 44295:               PUSH   BYTEINTEGER
4944 @ 44298:               PUSH   FP
4945 @ 44301:               ASSPAR
4946 @ 44302:               CALL  
4947 @ 44303:               PUSHI  #0x00000027
4948 @ 44308:               JUMPIF # L_0004
4949 @ 44312:               PUSH   FP
4950 @ 44315:               PUSH   FP
4951 @ 44318:               PUSHI  #0x00000001
4952 @ 44323:               ADD   
4953 @ 44324:               ASSVAL
4954 @ 44325:               JUMP   L_0104
4955 @ 44328:               LOCATE L_0004

  1050  s('A'):s('B'):s('D'):s('F'):s('G'):s('H'):
4956 @ 44331:               LINE   1050 "regression-compile-tmp/chimps.imp"
4957 @ 44368:               PUSHI  #0x00000041
4958 @ 44373:               SLABEL 248
4959 @ 44376:               LINE   1050 "regression-compile-tmp/chimps.imp"
4960 @ 44413:               PUSHI  #0x00000042
4961 @ 44418:               SLABEL 248
4962 @ 44421:               LINE   1050 "regression-compile-tmp/chimps.imp"
4963 @ 44458:               PUSHI  #0x00000044
4964 @ 44463:               SLABEL 248
4965 @ 44466:               LINE   1050 "regression-compile-tmp/chimps.imp"
4966 @ 44503:               PUSHI  #0x00000046
4967 @ 44508:               SLABEL 248
4968 @ 44511:               LINE   1050 "regression-compile-tmp/chimps.imp"
4969 @ 44548:               PUSHI  #0x00000047
4970 @ 44553:               SLABEL 248
4971 @ 44556:               LINE   1050 "regression-compile-tmp/chimps.imp"
4972 @ 44593:               PUSHI  #0x00000048
4973 @ 44598:               SLABEL 248

  1051  s('I'):s('J'):s('K'):s('L'):s('N'):s('O'):s('P'):
4974 @ 44601:               LINE   1051 "regression-compile-tmp/chimps.imp"
4975 @ 44638:               PUSHI  #0x00000049
4976 @ 44643:               SLABEL 248
4977 @ 44646:               LINE   1051 "regression-compile-tmp/chimps.imp"
4978 @ 44683:               PUSHI  #0x0000004a
4979 @ 44688:               SLABEL 248
4980 @ 44691:               LINE   1051 "regression-compile-tmp/chimps.imp"
4981 @ 44728:               PUSHI  #0x0000004b
4982 @ 44733:               SLABEL 248
4983 @ 44736:               LINE   1051 "regression-compile-tmp/chimps.imp"
4984 @ 44773:               PUSHI  #0x0000004c
4985 @ 44778:               SLABEL 248
4986 @ 44781:               LINE   1051 "regression-compile-tmp/chimps.imp"
4987 @ 44818:               PUSHI  #0x0000004e
4988 @ 44823:               SLABEL 248
4989 @ 44826:               LINE   1051 "regression-compile-tmp/chimps.imp"
4990 @ 44863:               PUSHI  #0x0000004f
4991 @ 44868:               SLABEL 248
4992 @ 44871:               LINE   1051 "regression-compile-tmp/chimps.imp"
4993 @ 44908:               PUSHI  #0x00000050
4994 @ 44913:               SLABEL 248

  1052  s('Q'):s('R'):s('S'):s('T'):s('U'):s('V'):s('W'):s('X'):
4995 @ 44916:               LINE   1052 "regression-compile-tmp/chimps.imp"
4996 @ 44953:               PUSHI  #0x00000051
4997 @ 44958:               SLABEL 248
4998 @ 44961:               LINE   1052 "regression-compile-tmp/chimps.imp"
4999 @ 44998:               PUSHI  #0x00000052
5000 @ 45003:               SLABEL 248
5001 @ 45006:               LINE   1052 "regression-compile-tmp/chimps.imp"
5002 @ 45043:               PUSHI  #0x00000053
5003 @ 45048:               SLABEL 248
5004 @ 45051:               LINE   1052 "regression-compile-tmp/chimps.imp"
5005 @ 45088:               PUSHI  #0x00000054
5006 @ 45093:               SLABEL 248
5007 @ 45096:               LINE   1052 "regression-compile-tmp/chimps.imp"
5008 @ 45133:               PUSHI  #0x00000055
5009 @ 45138:               SLABEL 248
5010 @ 45141:               LINE   1052 "regression-compile-tmp/chimps.imp"
5011 @ 45178:               PUSHI  #0x00000056
5012 @ 45183:               SLABEL 248
5013 @ 45186:               LINE   1052 "regression-compile-tmp/chimps.imp"
5014 @ 45223:               PUSHI  #0x00000057
5015 @ 45228:               SLABEL 248
5016 @ 45231:               LINE   1052 "regression-compile-tmp/chimps.imp"
5017 @ 45268:               PUSHI  #0x00000058
5018 @ 45273:               SLABEL 248

  1053  s('Y'):s('Z'):s('a'):s('b'):s('d'):s('f'):
5019 @ 45276:               LINE   1053 "regression-compile-tmp/chimps.imp"
5020 @ 45313:               PUSHI  #0x00000059
5021 @ 45318:               SLABEL 248
5022 @ 45321:               LINE   1053 "regression-compile-tmp/chimps.imp"
5023 @ 45358:               PUSHI  #0x0000005a
5024 @ 45363:               SLABEL 248
5025 @ 45366:               LINE   1053 "regression-compile-tmp/chimps.imp"
5026 @ 45403:               PUSHI  #0x00000061
5027 @ 45408:               SLABEL 248
5028 @ 45411:               LINE   1053 "regression-compile-tmp/chimps.imp"
5029 @ 45448:               PUSHI  #0x00000062
5030 @ 45453:               SLABEL 248
5031 @ 45456:               LINE   1053 "regression-compile-tmp/chimps.imp"
5032 @ 45493:               PUSHI  #0x00000064
5033 @ 45498:               SLABEL 248
5034 @ 45501:               LINE   1053 "regression-compile-tmp/chimps.imp"
5035 @ 45538:               PUSHI  #0x00000066
5036 @ 45543:               SLABEL 248

  1054  s('g'):s('h'):s('i'):s('j'):s('k'):s('l'):s('n'):
5037 @ 45546:               LINE   1054 "regression-compile-tmp/chimps.imp"
5038 @ 45583:               PUSHI  #0x00000067
5039 @ 45588:               SLABEL 248
5040 @ 45591:               LINE   1054 "regression-compile-tmp/chimps.imp"
5041 @ 45628:               PUSHI  #0x00000068
5042 @ 45633:               SLABEL 248
5043 @ 45636:               LINE   1054 "regression-compile-tmp/chimps.imp"
5044 @ 45673:               PUSHI  #0x00000069
5045 @ 45678:               SLABEL 248
5046 @ 45681:               LINE   1054 "regression-compile-tmp/chimps.imp"
5047 @ 45718:               PUSHI  #0x0000006a
5048 @ 45723:               SLABEL 248
5049 @ 45726:               LINE   1054 "regression-compile-tmp/chimps.imp"
5050 @ 45763:               PUSHI  #0x0000006b
5051 @ 45768:               SLABEL 248
5052 @ 45771:               LINE   1054 "regression-compile-tmp/chimps.imp"
5053 @ 45808:               PUSHI  #0x0000006c
5054 @ 45813:               SLABEL 248
5055 @ 45816:               LINE   1054 "regression-compile-tmp/chimps.imp"
5056 @ 45853:               PUSHI  #0x0000006e
5057 @ 45858:               SLABEL 248

  1055  s('o'):s('p'):s('q'):s('r'):s('s'):s('t'):s('u'):s('v'):
5058 @ 45861:               LINE   1055 "regression-compile-tmp/chimps.imp"
5059 @ 45898:               PUSHI  #0x0000006f
5060 @ 45903:               SLABEL 248
5061 @ 45906:               LINE   1055 "regression-compile-tmp/chimps.imp"
5062 @ 45943:               PUSHI  #0x00000070
5063 @ 45948:               SLABEL 248
5064 @ 45951:               LINE   1055 "regression-compile-tmp/chimps.imp"
5065 @ 45988:               PUSHI  #0x00000071
5066 @ 45993:               SLABEL 248
5067 @ 45996:               LINE   1055 "regression-compile-tmp/chimps.imp"
5068 @ 46033:               PUSHI  #0x00000072
5069 @ 46038:               SLABEL 248
5070 @ 46041:               LINE   1055 "regression-compile-tmp/chimps.imp"
5071 @ 46078:               PUSHI  #0x00000073
5072 @ 46083:               SLABEL 248
5073 @ 46086:               LINE   1055 "regression-compile-tmp/chimps.imp"
5074 @ 46123:               PUSHI  #0x00000074
5075 @ 46128:               SLABEL 248
5076 @ 46131:               LINE   1055 "regression-compile-tmp/chimps.imp"
5077 @ 46168:               PUSHI  #0x00000075
5078 @ 46173:               SLABEL 248
5079 @ 46176:               LINE   1055 "regression-compile-tmp/chimps.imp"
5080 @ 46213:               PUSHI  #0x00000076
5081 @ 46218:               SLABEL 248

  1056  s('w'):s('x'):s('y'):s('z'):
5082 @ 46221:               LINE   1056 "regression-compile-tmp/chimps.imp"
5083 @ 46258:               PUSHI  #0x00000077
5084 @ 46263:               SLABEL 248
5085 @ 46266:               LINE   1056 "regression-compile-tmp/chimps.imp"
5086 @ 46303:               PUSHI  #0x00000078
5087 @ 46308:               SLABEL 248
5088 @ 46311:               LINE   1056 "regression-compile-tmp/chimps.imp"
5089 @ 46348:               PUSHI  #0x00000079
5090 @ 46353:               SLABEL 248
5091 @ 46356:               LINE   1056 "regression-compile-tmp/chimps.imp"
5092 @ 46393:               PUSHI  #0x0000007a
5093 @ 46398:               SLABEL 248

  1057    -> keyword %if percent # 0
  1058  !  identatoms = identatoms+1
5094 @ 46401:               LINE   1057 "regression-compile-tmp/chimps.imp"
5095 @ 46438:               PUSH   PERCENT
5096 @ 46441:               PUSHI  #0x00000000
5097 @ 46446:               JUMPIF = L_0004
5098 @ 46450:               JUMP   L_0105
5099 @ 46453:               LOCATE L_0004

  1059    newlen = charlim+1;  hash = sym!casebit;  !lower-case (if letter)
5100 @ 46456:               LINE   1059 "regression-compile-tmp/chimps.imp"
5101 @ 46493:               PUSH   NEWLEN
5102 @ 46496:               PUSH   CHARLIM
5103 @ 46499:               PUSHI  #0x00000001
5104 @ 46504:               ADD   
5105 @ 46505:               ASSVAL
5106 @ 46506:               LINE   1059 "regression-compile-tmp/chimps.imp"
5107 @ 46543:               PUSH   HASH
5108 @ 46546:               PUSH   SYM
5109 @ 46549:               PUSHI  #0x00000020
5110 @ 46554:               OR    
5111 @ 46555:               ASSVAL

  1060    byteinteger(newlen) = hash
5112 @ 46556:               LINE   1060 "regression-compile-tmp/chimps.imp"
5113 @ 46593:               PUSH   BYTEINTEGER
5114 @ 46596:               PUSH   NEWLEN
5115 @ 46599:               ASSPAR
5116 @ 46600:               CALL  
5117 @ 46601:               PUSH   HASH
5118 @ 46604:               ASSVAL

  1061    %cycle
5119 @ 46605:               LINE   1061 "regression-compile-tmp/chimps.imp"
5120 @ 46642:               LOCATE L_0003

  1062      sym = byteinteger(fp);  fp = fp+1
5121 @ 46645:               LINE   1062 "regression-compile-tmp/chimps.imp"
5122 @ 46682:               PUSH   SYM
5123 @ 46685:               PUSH   BYTEINTEGER
5124 @ 46688:               PUSH   FP
5125 @ 46691:               ASSPAR
5126 @ 46692:               CALL  
5127 @ 46693:               ASSVAL
5128 @ 46694:               LINE   1062 "regression-compile-tmp/chimps.imp"
5129 @ 46731:               PUSH   FP
5130 @ 46734:               PUSH   FP
5131 @ 46737:               PUSHI  #0x00000001
5132 @ 46742:               ADD   
5133 @ 46743:               ASSVAL

  1063    %repeat %until sym # ' '
  1064  !$IF AMDAHL
  1065  {  %if sym = '''' %start
  1066  {    radix = 16 %and -> ibm %if hash = 'x'
  1067  {    radix = 8 %and -> ibm %if hash = 'k'
  1068  {    radix = 2 %and -> ibm %if hash = 'b'
  1069  {  %finish
  1070  !$FINISH
5134 @ 46744:               LINE   1063 "regression-compile-tmp/chimps.imp"
5135 @ 46781:               PUSH   SYM
5136 @ 46784:               PUSHI  #0x00000020
5137 @ 46789:               JUMPIF # L_0004
5138 @ 46793:               REPEAT L_0003
5139 @ 46796:               LOCATE L_0004

  1071    sym = map(sym)
5140 @ 46799:               LINE   1071 "regression-compile-tmp/chimps.imp"
5141 @ 46836:               PUSH   SYM
5142 @ 46839:               PUSH   MAP
5143 @ 46842:               PUSH   SYM
5144 @ 46845:               ACCESS
5145 @ 46846:               ASSVAL

  1072    %if sym # 0 %start
5146 @ 46847:               LINE   1072 "regression-compile-tmp/chimps.imp"
5147 @ 46884:               PUSH   SYM
5148 @ 46887:               PUSHI  #0x00000000
5149 @ 46892:               JUMPIF = L_0004

  1073      %cycle
5150 @ 46896:               LINE   1073 "regression-compile-tmp/chimps.imp"
5151 @ 46933:               LOCATE L_0006

  1074        newlen = newlen+1;  byteinteger(newlen) = sym
5152 @ 46936:               LINE   1074 "regression-compile-tmp/chimps.imp"
5153 @ 46973:               PUSH   NEWLEN
5154 @ 46976:               PUSH   NEWLEN
5155 @ 46979:               PUSHI  #0x00000001
5156 @ 46984:               ADD   
5157 @ 46985:               ASSVAL
5158 @ 46986:               LINE   1074 "regression-compile-tmp/chimps.imp"
5159 @ 47023:               PUSH   BYTEINTEGER
5160 @ 47026:               PUSH   NEWLEN
5161 @ 47029:               ASSPAR
5162 @ 47030:               CALL  
5163 @ 47031:               PUSH   SYM
5164 @ 47034:               ASSVAL

  1075        hash = hash<<1!!sym
5165 @ 47035:               LINE   1075 "regression-compile-tmp/chimps.imp"
5166 @ 47072:               PUSH   HASH
5167 @ 47075:               PUSH   HASH
5168 @ 47078:               PUSHI  #0x00000001
5169 @ 47083:               LSH   
5170 @ 47084:               PUSH   SYM
5171 @ 47087:               XOR   
5172 @ 47088:               ASSVAL

  1076        %cycle
5173 @ 47089:               LINE   1076 "regression-compile-tmp/chimps.imp"
5174 @ 47126:               LOCATE L_0009

  1077          sym = byteinteger(fp);  fp = fp+1
5175 @ 47129:               LINE   1077 "regression-compile-tmp/chimps.imp"
5176 @ 47166:               PUSH   SYM
5177 @ 47169:               PUSH   BYTEINTEGER
5178 @ 47172:               PUSH   FP
5179 @ 47175:               ASSPAR
5180 @ 47176:               CALL  
5181 @ 47177:               ASSVAL
5182 @ 47178:               LINE   1077 "regression-compile-tmp/chimps.imp"
5183 @ 47215:               PUSH   FP
5184 @ 47218:               PUSH   FP
5185 @ 47221:               PUSHI  #0x00000001
5186 @ 47226:               ADD   
5187 @ 47227:               ASSVAL

  1078        %repeat %until sym # ' '
5188 @ 47228:               LINE   1078 "regression-compile-tmp/chimps.imp"
5189 @ 47265:               PUSH   SYM
5190 @ 47268:               PUSHI  #0x00000020
5191 @ 47273:               JUMPIF # L_000a
5192 @ 47277:               REPEAT L_0009
5193 @ 47280:               LOCATE L_000a

  1079        sym = map(sym)
5194 @ 47283:               LINE   1079 "regression-compile-tmp/chimps.imp"
5195 @ 47320:               PUSH   SYM
5196 @ 47323:               PUSH   MAP
5197 @ 47326:               PUSH   SYM
5198 @ 47329:               ACCESS
5199 @ 47330:               ASSVAL

  1080      %repeat %until sym = 0
5200 @ 47331:               LINE   1080 "regression-compile-tmp/chimps.imp"
5201 @ 47368:               PUSH   SYM
5202 @ 47371:               PUSHI  #0x00000000
5203 @ 47376:               JUMPIF = L_0007
5204 @ 47380:               REPEAT L_0006
5205 @ 47383:               LOCATE L_0007

  1081    %finish
5206 @ 47386:               LINE   1081 "regression-compile-tmp/chimps.imp"
5207 @ 47423:               LOCATE L_0004

  1082    fp = fp-1
5208 @ 47426:               LINE   1082 "regression-compile-tmp/chimps.imp"
5209 @ 47463:               PUSH   FP
5210 @ 47466:               PUSH   FP
5211 @ 47469:               PUSHI  #0x00000001
5212 @ 47474:               SUB   
5213 @ 47475:               ASSVAL

  1083    newlen = newlen-charlim;  byteinteger(charlim) = newlen
5214 @ 47476:               LINE   1083 "regression-compile-tmp/chimps.imp"
5215 @ 47513:               PUSH   NEWLEN
5216 @ 47516:               PUSH   NEWLEN
5217 @ 47519:               PUSH   CHARLIM
5218 @ 47522:               SUB   
5219 @ 47523:               ASSVAL
5220 @ 47524:               LINE   1083 "regression-compile-tmp/chimps.imp"
5221 @ 47561:               PUSH   BYTEINTEGER
5222 @ 47564:               PUSH   CHARLIM
5223 @ 47567:               ASSPAR
5224 @ 47568:               CALL  
5225 @ 47569:               PUSH   NEWLEN
5226 @ 47572:               ASSVAL

  1084    head == hashindex(hash&255)
5227 @ 47573:               LINE   1084 "regression-compile-tmp/chimps.imp"
5228 @ 47610:               PUSH   HEAD
5229 @ 47613:               PUSH   HASHINDEX
5230 @ 47616:               PUSH   HASH
5231 @ 47619:               PUSHI  #0x000000ff
5232 @ 47624:               AND   
5233 @ 47625:               ACCESS
5234 @ 47626:               ASSREF

  1085    item = head
5235 @ 47627:               LINE   1085 "regression-compile-tmp/chimps.imp"
5236 @ 47664:               PUSH   ITEM
5237 @ 47667:               PUSH   HEAD
5238 @ 47670:               ASSVAL

  1086    %if item > 0 %start
5239 @ 47671:               LINE   1086 "regression-compile-tmp/chimps.imp"
5240 @ 47708:               PUSH   ITEM
5241 @ 47711:               PUSHI  #0x00000000
5242 @ 47716:               JUMPIF <= L_0004

  1087      %cycle
5243 @ 47720:               LINE   1087 "regression-compile-tmp/chimps.imp"
5244 @ 47757:               LOCATE L_0006

  1088        %result = ident %if item <= 0
5245 @ 47760:               LINE   1088 "regression-compile-tmp/chimps.imp"
5246 @ 47797:               PUSH   ITEM
5247 @ 47800:               PUSHI  #0x00000000
5248 @ 47805:               JUMPIF > L_000a
5249 @ 47809:               PUSHI  #0x00000036
5250 @ 47814:               RESULT
5251 @ 47815:               LOCATE L_000a

  1089        ditem == dict(item)
5252 @ 47818:               LINE   1089 "regression-compile-tmp/chimps.imp"
5253 @ 47855:               PUSH   DITEM
5254 @ 47858:               PUSH   DICT
5255 @ 47861:               PUSH   ITEM
5256 @ 47864:               ACCESS
5257 @ 47865:               ASSREF

  1090        %exit %if string(ditem_text+charbase) = string(charlim)
  1091  !      misses = misses+1
5258 @ 47866:               LINE   1090 "regression-compile-tmp/chimps.imp"
5259 @ 47903:               PUSH   STRING
5260 @ 47906:               PUSH   DITEM
5261 @ 47909:               SELECT 9
5262 @ 47912:               PUSH   CHARBASE
5263 @ 47915:               ADD   
5264 @ 47916:               ASSPAR
5265 @ 47917:               CALL  
5266 @ 47918:               PUSH   STRING
5267 @ 47921:               PUSH   CHARLIM
5268 @ 47924:               ASSPAR
5269 @ 47925:               CALL  
5270 @ 47926:               JUMPIF # L_000a
5271 @ 47930:               GOTO   L_0007
5272 @ 47933:               LOCATE L_000a

  1092        item = ditem_link
5273 @ 47936:               LINE   1092 "regression-compile-tmp/chimps.imp"
5274 @ 47973:               PUSH   ITEM
5275 @ 47976:               PUSH   DITEM
5276 @ 47979:               SELECT 10
5277 @ 47982:               ASSVAL

  1093      %repeat %until item <= 0
5278 @ 47983:               LINE   1093 "regression-compile-tmp/chimps.imp"
5279 @ 48020:               PUSH   ITEM
5280 @ 48023:               PUSHI  #0x00000000
5281 @ 48028:               JUMPIF <= L_0007
5282 @ 48032:               REPEAT L_0006
5283 @ 48035:               LOCATE L_0007

  1094    %finish
5284 @ 48038:               LINE   1094 "regression-compile-tmp/chimps.imp"
5285 @ 48075:               LOCATE L_0004

  1095    %result = ident
  1096  
5286 @ 48078:               LINE   1095 "regression-compile-tmp/chimps.imp"
5287 @ 48115:               PUSHI  #0x00000036
5288 @ 48120:               RESULT

  1097  s('%'):
5289 @ 48121:               LINE   1097 "regression-compile-tmp/chimps.imp"
5290 @ 48158:               PUSHI  #0x00000025
5291 @ 48163:               SLABEL 248

  1098    sym = byteinteger(fp)
5292 @ 48166:               LINE   1098 "regression-compile-tmp/chimps.imp"
5293 @ 48203:               PUSH   SYM
5294 @ 48206:               PUSH   BYTEINTEGER
5295 @ 48209:               PUSH   FP
5296 @ 48212:               ASSPAR
5297 @ 48213:               CALL  
5298 @ 48214:               ASSVAL

  1099    -> again %unless 'a' <= sym!casebit <= 'z'
5299 @ 48215:               LINE   1099 "regression-compile-tmp/chimps.imp"
5300 @ 48252:               PUSHI  #0x00000061
5301 @ 48257:               PUSH   SYM
5302 @ 48260:               PUSHI  #0x00000020
5303 @ 48265:               OR    
5304 @ 48266:               JUMPIFD > L_0005
5305 @ 48270:               PUSHI  #0x0000007a
5306 @ 48275:               JUMPIF <= L_0004
5307 @ 48279:               LOCATE L_0005
5308 @ 48282:               JUMP   L_0101
5309 @ 48285:               LOCATE L_0004

  1100    fp = fp+1
5310 @ 48288:               LINE   1100 "regression-compile-tmp/chimps.imp"
5311 @ 48325:               PUSH   FP
5312 @ 48328:               PUSH   FP
5313 @ 48331:               PUSHI  #0x00000001
5314 @ 48336:               ADD   
5315 @ 48337:               ASSVAL

  1101  keyword:
5316 @ 48338:               LINE   1101 "regression-compile-tmp/chimps.imp"
5317 @ 48375:               LABEL  L_0105

  1102    percent = 0
5318 @ 48378:               LINE   1102 "regression-compile-tmp/chimps.imp"
5319 @ 48415:               PUSH   PERCENT
5320 @ 48418:               PUSHI  #0x00000000
5321 @ 48423:               ASSVAL

  1103    p = syminit(sym!casebit)
5322 @ 48424:               LINE   1103 "regression-compile-tmp/chimps.imp"
5323 @ 48461:               PUSH   P
5324 @ 48464:               PUSH   SYMINIT
5325 @ 48467:               PUSH   SYM
5326 @ 48470:               PUSHI  #0x00000020
5327 @ 48475:               OR    
5328 @ 48476:               ACCESS
5329 @ 48477:               ASSVAL

  1104    %cycle
  1105  !     %cycle
  1106  !       sym = byteinteger(fp)!casebit
  1107  !       %exit %if symbol(p) # sym
5330 @ 48478:               LINE   1104 "regression-compile-tmp/chimps.imp"
5331 @ 48515:               LOCATE L_0003

  1108      %while symbol(p) = byteinteger(fp)!casebit %cycle
5332 @ 48518:               LINE   1108 "regression-compile-tmp/chimps.imp"
5333 @ 48555:               LOCATE L_0006
5334 @ 48558:               PUSH   SYMBOL
5335 @ 48561:               PUSH   P
5336 @ 48564:               ACCESS
5337 @ 48565:               PUSH   BYTEINTEGER
5338 @ 48568:               PUSH   FP
5339 @ 48571:               ASSPAR
5340 @ 48572:               CALL  
5341 @ 48573:               PUSHI  #0x00000020
5342 @ 48578:               OR    
5343 @ 48579:               JUMPIF # L_0007

  1109        p = p+1;  fp = fp+1
5344 @ 48583:               LINE   1109 "regression-compile-tmp/chimps.imp"
5345 @ 48620:               PUSH   P
5346 @ 48623:               PUSH   P
5347 @ 48626:               PUSHI  #0x00000001
5348 @ 48631:               ADD   
5349 @ 48632:               ASSVAL
5350 @ 48633:               LINE   1109 "regression-compile-tmp/chimps.imp"
5351 @ 48670:               PUSH   FP
5352 @ 48673:               PUSH   FP
5353 @ 48676:               PUSHI  #0x00000001
5354 @ 48681:               ADD   
5355 @ 48682:               ASSVAL

  1110      %repeat
5356 @ 48683:               LINE   1110 "regression-compile-tmp/chimps.imp"
5357 @ 48720:               REPEAT L_0006
5358 @ 48723:               LOCATE L_0007

  1111      %exit %if symbol(p) >= 128
5359 @ 48726:               LINE   1111 "regression-compile-tmp/chimps.imp"
5360 @ 48763:               PUSH   SYMBOL
5361 @ 48766:               PUSH   P
5362 @ 48769:               ACCESS
5363 @ 48770:               PUSHI  #0x00000080
5364 @ 48775:               JUMPIF < L_0007
5365 @ 48779:               GOTO   L_0004
5366 @ 48782:               LOCATE L_0007

  1112      atom = altdisp(p)
5367 @ 48785:               LINE   1112 "regression-compile-tmp/chimps.imp"
5368 @ 48822:               PUSH   ATOM
5369 @ 48825:               PUSH   ALTDISP
5370 @ 48828:               PUSH   P
5371 @ 48831:               ACCESS
5372 @ 48832:               ASSVAL

  1113      %if atom = 0 %start
5373 @ 48833:               LINE   1113 "regression-compile-tmp/chimps.imp"
5374 @ 48870:               PUSH   ATOM
5375 @ 48873:               PUSHI  #0x00000000
5376 @ 48878:               JUMPIF # L_0007

  1114        %result = dud %unless sym!casebit = 'c' %and byteinteger(fp) = nl
5377 @ 48882:               LINE   1114 "regression-compile-tmp/chimps.imp"
5378 @ 48919:               PUSH   SYM
5379 @ 48922:               PUSHI  #0x00000020
5380 @ 48927:               OR    
5381 @ 48928:               PUSHI  #0x00000063
5382 @ 48933:               JUMPIF # L_000b
5383 @ 48937:               PUSH   BYTEINTEGER
5384 @ 48940:               PUSH   FP
5385 @ 48943:               ASSPAR
5386 @ 48944:               CALL  
5387 @ 48945:               PUSHI  #0x0000000a
5388 @ 48950:               JUMPIF = L_000a
5389 @ 48954:               LOCATE L_000b
5390 @ 48957:               PUSHI  #0x0000003f
5391 @ 48962:               RESULT
5392 @ 48963:               LOCATE L_000a

  1115        read line
5393 @ 48966:               LINE   1115 "regression-compile-tmp/chimps.imp"
5394 @ 49003:               PUSH   READLINE
5395 @ 49006:               CALL  

  1116        ->again
5396 @ 49007:               LINE   1116 "regression-compile-tmp/chimps.imp"
5397 @ 49044:               JUMP   L_0101

  1117      %finish
5398 @ 49047:               LINE   1117 "regression-compile-tmp/chimps.imp"
5399 @ 49084:               LOCATE L_0007

  1118      p = p+atom
5400 @ 49087:               LINE   1118 "regression-compile-tmp/chimps.imp"
5401 @ 49124:               PUSH   P
5402 @ 49127:               PUSH   P
5403 @ 49130:               PUSH   ATOM
5404 @ 49133:               ADD   
5405 @ 49134:               ASSVAL

  1119    %repeat
5406 @ 49135:               LINE   1119 "regression-compile-tmp/chimps.imp"
5407 @ 49172:               REPEAT L_0003
5408 @ 49175:               LOCATE L_0004

  1120    percent = 1 %if 'a' <= byteinteger(fp)!casebit <= 'z'
5409 @ 49178:               LINE   1120 "regression-compile-tmp/chimps.imp"
5410 @ 49215:               PUSHI  #0x00000061
5411 @ 49220:               PUSH   BYTEINTEGER
5412 @ 49223:               PUSH   FP
5413 @ 49226:               ASSPAR
5414 @ 49227:               CALL  
5415 @ 49228:               PUSHI  #0x00000020
5416 @ 49233:               OR    
5417 @ 49234:               JUMPIFD > L_0004
5418 @ 49238:               PUSHI  #0x0000007a
5419 @ 49243:               JUMPIF > L_0004
5420 @ 49247:               PUSH   PERCENT
5421 @ 49250:               PUSHI  #0x00000001
5422 @ 49255:               ASSVAL
5423 @ 49256:               LOCATE L_0004

  1121    subatom = altdisp(p)
5424 @ 49259:               LINE   1121 "regression-compile-tmp/chimps.imp"
5425 @ 49296:               PUSH   SUBATOM
5426 @ 49299:               PUSH   ALTDISP
5427 @ 49302:               PUSH   P
5428 @ 49305:               ACCESS
5429 @ 49306:               ASSVAL

  1122    atom = symbol(p)-128
5430 @ 49307:               LINE   1122 "regression-compile-tmp/chimps.imp"
5431 @ 49344:               PUSH   ATOM
5432 @ 49347:               PUSH   SYMBOL
5433 @ 49350:               PUSH   P
5434 @ 49353:               ACCESS
5435 @ 49354:               PUSHI  #0x00000080
5436 @ 49359:               SUB   
5437 @ 49360:               ASSVAL

  1123    %result = dud %if atom = 0
5438 @ 49361:               LINE   1123 "regression-compile-tmp/chimps.imp"
5439 @ 49398:               PUSH   ATOM
5440 @ 49401:               PUSHI  #0x00000000
5441 @ 49406:               JUMPIF # L_0004
5442 @ 49410:               PUSHI  #0x0000003f
5443 @ 49415:               RESULT
5444 @ 49416:               LOCATE L_0004

  1124    %result = atom
  1125  
  1126  !$IF AMDAHL
  1127  {ibm:
  1128  {  nonstandard(ibmhex)
  1129  {  item = -1;  t_val = 0
  1130  {  -> ibm1
  1131  !$FINISH
5445 @ 49419:               LINE   1124 "regression-compile-tmp/chimps.imp"
5446 @ 49456:               PUSH   ATOM
5447 @ 49459:               RESULT

  1132  s('0'):s('1'):s('2'):s('3'):s('4'):s('5'):s('6'):s('7'):s('8'):s('9'):
5448 @ 49460:               LINE   1132 "regression-compile-tmp/chimps.imp"
5449 @ 49497:               PUSHI  #0x00000030
5450 @ 49502:               SLABEL 248
5451 @ 49505:               LINE   1132 "regression-compile-tmp/chimps.imp"
5452 @ 49542:               PUSHI  #0x00000031
5453 @ 49547:               SLABEL 248
5454 @ 49550:               LINE   1132 "regression-compile-tmp/chimps.imp"
5455 @ 49587:               PUSHI  #0x00000032
5456 @ 49592:               SLABEL 248
5457 @ 49595:               LINE   1132 "regression-compile-tmp/chimps.imp"
5458 @ 49632:               PUSHI  #0x00000033
5459 @ 49637:               SLABEL 248
5460 @ 49640:               LINE   1132 "regression-compile-tmp/chimps.imp"
5461 @ 49677:               PUSHI  #0x00000034
5462 @ 49682:               SLABEL 248
5463 @ 49685:               LINE   1132 "regression-compile-tmp/chimps.imp"
5464 @ 49722:               PUSHI  #0x00000035
5465 @ 49727:               SLABEL 248
5466 @ 49730:               LINE   1132 "regression-compile-tmp/chimps.imp"
5467 @ 49767:               PUSHI  #0x00000036
5468 @ 49772:               SLABEL 248
5469 @ 49775:               LINE   1132 "regression-compile-tmp/chimps.imp"
5470 @ 49812:               PUSHI  #0x00000037
5471 @ 49817:               SLABEL 248
5472 @ 49820:               LINE   1132 "regression-compile-tmp/chimps.imp"
5473 @ 49857:               PUSHI  #0x00000038
5474 @ 49862:               SLABEL 248
5475 @ 49865:               LINE   1132 "regression-compile-tmp/chimps.imp"
5476 @ 49902:               PUSHI  #0x00000039
5477 @ 49907:               SLABEL 248

  1133    item = 0;  t_type = inty
5478 @ 49910:               LINE   1133 "regression-compile-tmp/chimps.imp"
5479 @ 49947:               PUSH   ITEM
5480 @ 49950:               PUSHI  #0x00000000
5481 @ 49955:               ASSVAL
5482 @ 49956:               LINE   1133 "regression-compile-tmp/chimps.imp"
5483 @ 49993:               PUSH   T
5484 @ 49996:               SELECT 2
5485 @ 49999:               PUSHI  #0x000007fe
5486 @ 50004:               ASSVAL

  1134    radix = 10;  t_val = sym-'0'
5487 @ 50005:               LINE   1134 "regression-compile-tmp/chimps.imp"
5488 @ 50042:               PUSH   RADIX
5489 @ 50045:               PUSHI  #0x0000000a
5490 @ 50050:               ASSVAL
5491 @ 50051:               LINE   1134 "regression-compile-tmp/chimps.imp"
5492 @ 50088:               PUSH   T
5493 @ 50091:               SELECT 7
5494 @ 50094:               PUSH   SYM
5495 @ 50097:               PUSHI  #0x00000030
5496 @ 50102:               SUB   
5497 @ 50103:               ASSVAL

  1135  ibm1:
5498 @ 50104:               LINE   1135 "regression-compile-tmp/chimps.imp"
5499 @ 50141:               LABEL  L_0106

  1136    %cycle
5500 @ 50144:               LINE   1136 "regression-compile-tmp/chimps.imp"
5501 @ 50181:               LOCATE L_0003

  1137      %cycle
5502 @ 50184:               LINE   1137 "regression-compile-tmp/chimps.imp"
5503 @ 50221:               LOCATE L_0006

  1138        %cycle
5504 @ 50224:               LINE   1138 "regression-compile-tmp/chimps.imp"
5505 @ 50261:               LOCATE L_0009

  1139          sym = byteinteger(fp);  fp = fp+1
5506 @ 50264:               LINE   1139 "regression-compile-tmp/chimps.imp"
5507 @ 50301:               PUSH   SYM
5508 @ 50304:               PUSH   BYTEINTEGER
5509 @ 50307:               PUSH   FP
5510 @ 50310:               ASSPAR
5511 @ 50311:               CALL  
5512 @ 50312:               ASSVAL
5513 @ 50313:               LINE   1139 "regression-compile-tmp/chimps.imp"
5514 @ 50350:               PUSH   FP
5515 @ 50353:               PUSH   FP
5516 @ 50356:               PUSHI  #0x00000001
5517 @ 50361:               ADD   
5518 @ 50362:               ASSVAL

  1140        %repeat %until sym # ' '
5519 @ 50363:               LINE   1140 "regression-compile-tmp/chimps.imp"
5520 @ 50400:               PUSH   SYM
5521 @ 50403:               PUSHI  #0x00000020
5522 @ 50408:               JUMPIF # L_000a
5523 @ 50412:               REPEAT L_0009
5524 @ 50415:               LOCATE L_000a

  1141        i = sym-'0'
5525 @ 50418:               LINE   1141 "regression-compile-tmp/chimps.imp"
5526 @ 50455:               PUSH   I
5527 @ 50458:               PUSH   SYM
5528 @ 50461:               PUSHI  #0x00000030
5529 @ 50466:               SUB   
5530 @ 50467:               ASSVAL

  1142        %if radix = 10 %start
5531 @ 50468:               LINE   1142 "regression-compile-tmp/chimps.imp"
5532 @ 50505:               PUSH   RADIX
5533 @ 50508:               PUSHI  #0x0000000a
5534 @ 50513:               JUMPIF # L_000a

  1143          %exit %if i < 0 %or i >= 10
5535 @ 50517:               LINE   1143 "regression-compile-tmp/chimps.imp"
5536 @ 50554:               PUSH   I
5537 @ 50557:               PUSHI  #0x00000000
5538 @ 50562:               JUMPIF < L_000e
5539 @ 50566:               PUSH   I
5540 @ 50569:               PUSHI  #0x0000000a
5541 @ 50574:               JUMPIF < L_000d
5542 @ 50578:               LOCATE L_000e
5543 @ 50581:               GOTO   L_0007
5544 @ 50584:               LOCATE L_000d

  1144          %if t_val > max10 %or (t_val=max10 %and i > maxdig) %start
5545 @ 50587:               LINE   1144 "regression-compile-tmp/chimps.imp"
5546 @ 50624:               PUSH   T
5547 @ 50627:               SELECT 7
5548 @ 50630:               PUSHI  #0x0ccccccc
5549 @ 50635:               JUMPIF > L_000e
5550 @ 50639:               PUSH   T
5551 @ 50642:               SELECT 7
5552 @ 50645:               PUSHI  #0x0ccccccc
5553 @ 50650:               JUMPIF # L_000d
5554 @ 50654:               PUSH   I
5555 @ 50657:               PUSHI  #0x00000007
5556 @ 50662:               JUMPIF <= L_000d
5557 @ 50666:               LOCATE L_000e

  1145            t_type = realy;  rval = t_val
5558 @ 50669:               LINE   1145 "regression-compile-tmp/chimps.imp"
5559 @ 50706:               PUSH   T
5560 @ 50709:               SELECT 2
5561 @ 50712:               PUSHI  #0x000007fd
5562 @ 50717:               ASSVAL
5563 @ 50718:               LINE   1145 "regression-compile-tmp/chimps.imp"
5564 @ 50755:               PUSH   RVAL
5565 @ 50758:               PUSH   T
5566 @ 50761:               SELECT 7
5567 @ 50764:               ASSVAL

  1146            assemble real
5568 @ 50765:               LINE   1146 "regression-compile-tmp/chimps.imp"
5569 @ 50802:               PUSH   ASSEMBLEREAL
5570 @ 50805:               CALL  

  1147            %exit
5571 @ 50806:               LINE   1147 "regression-compile-tmp/chimps.imp"
5572 @ 50843:               GOTO   L_0007

  1148          %finish
5573 @ 50846:               LINE   1148 "regression-compile-tmp/chimps.imp"
5574 @ 50883:               LOCATE L_000d

  1149          t_val = t_val*10+i
5575 @ 50886:               LINE   1149 "regression-compile-tmp/chimps.imp"
5576 @ 50923:               PUSH   T
5577 @ 50926:               SELECT 7
5578 @ 50929:               PUSH   T
5579 @ 50932:               SELECT 7
5580 @ 50935:               PUSHI  #0x0000000a
5581 @ 50940:               MUL   
5582 @ 50941:               PUSH   I
5583 @ 50944:               ADD   
5584 @ 50945:               ASSVAL

  1150        %finish %else %start
5585 @ 50946:               LINE   1150 "regression-compile-tmp/chimps.imp"
5586 @ 50983:               GOTO   L_0009
5587 @ 50986:               LOCATE L_000a

  1151          i = sym!casebit-'a'+10 %if i >= 10
5588 @ 50989:               LINE   1151 "regression-compile-tmp/chimps.imp"
5589 @ 51026:               PUSH   I
5590 @ 51029:               PUSHI  #0x0000000a
5591 @ 51034:               JUMPIF < L_000d
5592 @ 51038:               PUSH   I
5593 @ 51041:               PUSH   SYM
5594 @ 51044:               PUSHI  #0x00000020
5595 @ 51049:               OR    
5596 @ 51050:               PUSHI  #0x00000061
5597 @ 51055:               SUB   
5598 @ 51056:               PUSHI  #0x0000000a
5599 @ 51061:               ADD   
5600 @ 51062:               ASSVAL
5601 @ 51063:               LOCATE L_000d

  1152          %exit %if i < 0 %or i >= radix
5602 @ 51066:               LINE   1152 "regression-compile-tmp/chimps.imp"
5603 @ 51103:               PUSH   I
5604 @ 51106:               PUSHI  #0x00000000
5605 @ 51111:               JUMPIF < L_000e
5606 @ 51115:               PUSH   I
5607 @ 51118:               PUSH   RADIX
5608 @ 51121:               JUMPIF < L_000d
5609 @ 51125:               LOCATE L_000e
5610 @ 51128:               GOTO   L_0007
5611 @ 51131:               LOCATE L_000d

  1153          j = radix
5612 @ 51134:               LINE   1153 "regression-compile-tmp/chimps.imp"
5613 @ 51171:               PUSH   J
5614 @ 51174:               PUSH   RADIX
5615 @ 51177:               ASSVAL

  1154          %cycle
5616 @ 51178:               LINE   1154 "regression-compile-tmp/chimps.imp"
5617 @ 51215:               LOCATE L_000c

  1155            i = i+t_val %if j&1 # 0
5618 @ 51218:               LINE   1155 "regression-compile-tmp/chimps.imp"
5619 @ 51255:               PUSH   J
5620 @ 51258:               PUSHI  #0x00000001
5621 @ 51263:               AND   
5622 @ 51264:               PUSHI  #0x00000000
5623 @ 51269:               JUMPIF = L_0010
5624 @ 51273:               PUSH   I
5625 @ 51276:               PUSH   I
5626 @ 51279:               PUSH   T
5627 @ 51282:               SELECT 7
5628 @ 51285:               ADD   
5629 @ 51286:               ASSVAL
5630 @ 51287:               LOCATE L_0010

  1156            t_val = t_val<<1;  j = j>>1
5631 @ 51290:               LINE   1156 "regression-compile-tmp/chimps.imp"
5632 @ 51327:               PUSH   T
5633 @ 51330:               SELECT 7
5634 @ 51333:               PUSH   T
5635 @ 51336:               SELECT 7
5636 @ 51339:               PUSHI  #0x00000001
5637 @ 51344:               LSH   
5638 @ 51345:               ASSVAL
5639 @ 51346:               LINE   1156 "regression-compile-tmp/chimps.imp"
5640 @ 51383:               PUSH   J
5641 @ 51386:               PUSH   J
5642 @ 51389:               PUSHI  #0x00000001
5643 @ 51394:               RSH   
5644 @ 51395:               ASSVAL

  1157          %repeat %until j = 0
5645 @ 51396:               LINE   1157 "regression-compile-tmp/chimps.imp"
5646 @ 51433:               PUSH   J
5647 @ 51436:               PUSHI  #0x00000000
5648 @ 51441:               JUMPIF = L_000d
5649 @ 51445:               REPEAT L_000c
5650 @ 51448:               LOCATE L_000d

  1158          t_val = i
5651 @ 51451:               LINE   1158 "regression-compile-tmp/chimps.imp"
5652 @ 51488:               PUSH   T
5653 @ 51491:               SELECT 7
5654 @ 51494:               PUSH   I
5655 @ 51497:               ASSVAL

  1159        %finish
5656 @ 51498:               LINE   1159 "regression-compile-tmp/chimps.imp"
5657 @ 51535:               LOCATE L_0009

  1160      %repeat
5658 @ 51538:               LINE   1160 "regression-compile-tmp/chimps.imp"
5659 @ 51575:               REPEAT L_0006
5660 @ 51578:               LOCATE L_0007

  1161      %exit %unless sym = '_'
5661 @ 51581:               LINE   1161 "regression-compile-tmp/chimps.imp"
5662 @ 51618:               PUSH   SYM
5663 @ 51621:               PUSHI  #0x0000005f
5664 @ 51626:               JUMPIF = L_0007
5665 @ 51630:               GOTO   L_0004
5666 @ 51633:               LOCATE L_0007

  1162      radix = t_val
5667 @ 51636:               LINE   1162 "regression-compile-tmp/chimps.imp"
5668 @ 51673:               PUSH   RADIX
5669 @ 51676:               PUSH   T
5670 @ 51679:               SELECT 7
5671 @ 51682:               ASSVAL

  1163      %result = dud %if radix = 0
5672 @ 51683:               LINE   1163 "regression-compile-tmp/chimps.imp"
5673 @ 51720:               PUSH   RADIX
5674 @ 51723:               PUSHI  #0x00000000
5675 @ 51728:               JUMPIF # L_0007
5676 @ 51732:               PUSHI  #0x0000003f
5677 @ 51737:               RESULT
5678 @ 51738:               LOCATE L_0007

  1164      t_val = 0
5679 @ 51741:               LINE   1164 "regression-compile-tmp/chimps.imp"
5680 @ 51778:               PUSH   T
5681 @ 51781:               SELECT 7
5682 @ 51784:               PUSHI  #0x00000000
5683 @ 51789:               ASSVAL

  1165    %repeat
5684 @ 51790:               LINE   1165 "regression-compile-tmp/chimps.imp"
5685 @ 51827:               REPEAT L_0003
5686 @ 51830:               LOCATE L_0004

  1166    %if sym = '.' %start
5687 @ 51833:               LINE   1166 "regression-compile-tmp/chimps.imp"
5688 @ 51870:               PUSH   SYM
5689 @ 51873:               PUSHI  #0x0000002e
5690 @ 51878:               JUMPIF # L_0004

  1167      t_type = realy %and rval = t_val %if t_type = inty
5691 @ 51882:               LINE   1167 "regression-compile-tmp/chimps.imp"
5692 @ 51919:               PUSH   T
5693 @ 51922:               SELECT 2
5694 @ 51925:               PUSHI  #0x000007fe
5695 @ 51930:               JUMPIF # L_0007
5696 @ 51934:               PUSH   T
5697 @ 51937:               SELECT 2
5698 @ 51940:               PUSHI  #0x000007fd
5699 @ 51945:               ASSVAL
5700 @ 51946:               PUSH   RVAL
5701 @ 51949:               PUSH   T
5702 @ 51952:               SELECT 7
5703 @ 51955:               ASSVAL
5704 @ 51956:               LOCATE L_0007

  1168      assemble real
5705 @ 51959:               LINE   1168 "regression-compile-tmp/chimps.imp"
5706 @ 51996:               PUSH   ASSEMBLEREAL
5707 @ 51999:               CALL  

  1169      %result = dud %if j = 0
5708 @ 52000:               LINE   1169 "regression-compile-tmp/chimps.imp"
5709 @ 52037:               PUSH   J
5710 @ 52040:               PUSHI  #0x00000000
5711 @ 52045:               JUMPIF # L_0007
5712 @ 52049:               PUSHI  #0x0000003f
5713 @ 52054:               RESULT
5714 @ 52055:               LOCATE L_0007

  1170      rval = rval/radix\j
5715 @ 52058:               LINE   1170 "regression-compile-tmp/chimps.imp"
5716 @ 52095:               PUSH   RVAL
5717 @ 52098:               PUSH   RVAL
5718 @ 52101:               PUSH   RADIX
5719 @ 52104:               PUSH   J
5720 @ 52107:               REXP  
5721 @ 52108:               DIVIDE
5722 @ 52109:               ASSVAL

  1171    %finish
  1172  !  %if t_type = realy %start;  !vax->ieee
  1173  !    t_val = integer(addr(rval))
  1174  !    t_val = t_val<<16+t_val>>16-16_01000000
  1175  !  %finish
  1176  !  numatoms = numatoms+1
  1177  !$IF AMDAHL
  1178  {  %if item < 0 %start
  1179  {    %result = dud %if sym # ''''
  1180  {    item = 0
  1181  {  %finish %else %start
  1182  {    fp = fp-1;  sym = 0
  1183  {  %finish
  1184  !$IF VAX OR APM
5723 @ 52110:               LINE   1171 "regression-compile-tmp/chimps.imp"
5724 @ 52147:               LOCATE L_0004

  1185    fp = fp-1;  sym = 0
  1186  !$FINISH
5725 @ 52150:               LINE   1185 "regression-compile-tmp/chimps.imp"
5726 @ 52187:               PUSH   FP
5727 @ 52190:               PUSH   FP
5728 @ 52193:               PUSHI  #0x00000001
5729 @ 52198:               SUB   
5730 @ 52199:               ASSVAL
5731 @ 52200:               LINE   1185 "regression-compile-tmp/chimps.imp"
5732 @ 52237:               PUSH   SYM
5733 @ 52240:               PUSHI  #0x00000000
5734 @ 52245:               ASSVAL

  1187    %result = const
  1188  
5735 @ 52246:               LINE   1187 "regression-compile-tmp/chimps.imp"
5736 @ 52283:               PUSHI  #0x00000035
5737 @ 52288:               RESULT

  1189  s(''''):
5738 @ 52289:               LINE   1189 "regression-compile-tmp/chimps.imp"
5739 @ 52326:               PUSHI  #0x00000027
5740 @ 52331:               SLABEL 248

  1190  charconst:
5741 @ 52334:               LINE   1190 "regression-compile-tmp/chimps.imp"
5742 @ 52371:               LABEL  L_0104

  1191    item = 0;  t_type = inty
5743 @ 52374:               LINE   1191 "regression-compile-tmp/chimps.imp"
5744 @ 52411:               PUSH   ITEM
5745 @ 52414:               PUSHI  #0x00000000
5746 @ 52419:               ASSVAL
5747 @ 52420:               LINE   1191 "regression-compile-tmp/chimps.imp"
5748 @ 52457:               PUSH   T
5749 @ 52460:               SELECT 2
5750 @ 52463:               PUSHI  #0x000007fe
5751 @ 52468:               ASSVAL

  1192    t_val = 0
5752 @ 52469:               LINE   1192 "regression-compile-tmp/chimps.imp"
5753 @ 52506:               PUSH   T
5754 @ 52509:               SELECT 7
5755 @ 52512:               PUSHI  #0x00000000
5756 @ 52517:               ASSVAL

  1193    %cycle
5757 @ 52518:               LINE   1193 "regression-compile-tmp/chimps.imp"
5758 @ 52555:               LOCATE L_0003

  1194      sym = byteinteger(fp);  fp = fp+1
5759 @ 52558:               LINE   1194 "regression-compile-tmp/chimps.imp"
5760 @ 52595:               PUSH   SYM
5761 @ 52598:               PUSH   BYTEINTEGER
5762 @ 52601:               PUSH   FP
5763 @ 52604:               ASSPAR
5764 @ 52605:               CALL  
5765 @ 52606:               ASSVAL
5766 @ 52607:               LINE   1194 "regression-compile-tmp/chimps.imp"
5767 @ 52644:               PUSH   FP
5768 @ 52647:               PUSH   FP
5769 @ 52650:               PUSHI  #0x00000001
5770 @ 52655:               ADD   
5771 @ 52656:               ASSVAL

  1195      %result = dud %if sym = nl;  !?allow
5772 @ 52657:               LINE   1195 "regression-compile-tmp/chimps.imp"
5773 @ 52694:               PUSH   SYM
5774 @ 52697:               PUSHI  #0x0000000a
5775 @ 52702:               JUMPIF # L_0007
5776 @ 52706:               PUSHI  #0x0000003f
5777 @ 52711:               RESULT
5778 @ 52712:               LOCATE L_0007

  1196      %if sym = '''' %start
5779 @ 52715:               LINE   1196 "regression-compile-tmp/chimps.imp"
5780 @ 52752:               PUSH   SYM
5781 @ 52755:               PUSHI  #0x00000027
5782 @ 52760:               JUMPIF # L_0007

  1197        %exit %unless byteinteger(fp) = ''''
5783 @ 52764:               LINE   1197 "regression-compile-tmp/chimps.imp"
5784 @ 52801:               PUSH   BYTEINTEGER
5785 @ 52804:               PUSH   FP
5786 @ 52807:               ASSPAR
5787 @ 52808:               CALL  
5788 @ 52809:               PUSHI  #0x00000027
5789 @ 52814:               JUMPIF = L_000a
5790 @ 52818:               GOTO   L_0004
5791 @ 52821:               LOCATE L_000a

  1198        fp = fp+1
5792 @ 52824:               LINE   1198 "regression-compile-tmp/chimps.imp"
5793 @ 52861:               PUSH   FP
5794 @ 52864:               PUSH   FP
5795 @ 52867:               PUSHI  #0x00000001
5796 @ 52872:               ADD   
5797 @ 52873:               ASSVAL

  1199      %finish
5798 @ 52874:               LINE   1199 "regression-compile-tmp/chimps.imp"
5799 @ 52911:               LOCATE L_0007

  1200      t_val = t_val<<8+sym
5800 @ 52914:               LINE   1200 "regression-compile-tmp/chimps.imp"
5801 @ 52951:               PUSH   T
5802 @ 52954:               SELECT 7
5803 @ 52957:               PUSH   T
5804 @ 52960:               SELECT 7
5805 @ 52963:               PUSHI  #0x00000008
5806 @ 52968:               LSH   
5807 @ 52969:               PUSH   SYM
5808 @ 52972:               ADD   
5809 @ 52973:               ASSVAL

  1201    %repeat
5810 @ 52974:               LINE   1201 "regression-compile-tmp/chimps.imp"
5811 @ 53011:               REPEAT L_0003
5812 @ 53014:               LOCATE L_0004

  1202    %result = const %if t_val # 0
5813 @ 53017:               LINE   1202 "regression-compile-tmp/chimps.imp"
5814 @ 53054:               PUSH   T
5815 @ 53057:               SELECT 7
5816 @ 53060:               PUSHI  #0x00000000
5817 @ 53065:               JUMPIF = L_0004
5818 @ 53069:               PUSHI  #0x00000035
5819 @ 53074:               RESULT
5820 @ 53075:               LOCATE L_0004

  1203    %result = dud
  1204  
5821 @ 53078:               LINE   1203 "regression-compile-tmp/chimps.imp"
5822 @ 53115:               PUSHI  #0x0000003f
5823 @ 53120:               RESULT

  1205  s('"'):
5824 @ 53121:               LINE   1205 "regression-compile-tmp/chimps.imp"
5825 @ 53158:               PUSHI  #0x00000022
5826 @ 53163:               SLABEL 248

  1206  stringconst:
5827 @ 53166:               LINE   1206 "regression-compile-tmp/chimps.imp"
5828 @ 53203:               LABEL  L_0103

  1207    item = 0;  t_type = stringy
5829 @ 53206:               LINE   1207 "regression-compile-tmp/chimps.imp"
5830 @ 53243:               PUSH   ITEM
5831 @ 53246:               PUSHI  #0x00000000
5832 @ 53251:               ASSVAL
5833 @ 53252:               LINE   1207 "regression-compile-tmp/chimps.imp"
5834 @ 53289:               PUSH   T
5835 @ 53292:               SELECT 2
5836 @ 53295:               PUSHI  #0x000007fc
5837 @ 53300:               ASSVAL

  1208    stringp = atomp;  !for include
5838 @ 53301:               LINE   1208 "regression-compile-tmp/chimps.imp"
5839 @ 53338:               PUSH   STRINGP
5840 @ 53341:               PUSH   ATOMP
5841 @ 53344:               ASSVAL

  1209    t_val = 0
5842 @ 53345:               LINE   1209 "regression-compile-tmp/chimps.imp"
5843 @ 53382:               PUSH   T
5844 @ 53385:               SELECT 7
5845 @ 53388:               PUSHI  #0x00000000
5846 @ 53393:               ASSVAL

  1210    i = line;  j = linestart
5847 @ 53394:               LINE   1210 "regression-compile-tmp/chimps.imp"
5848 @ 53431:               PUSH   I
5849 @ 53434:               PUSH   LINE
5850 @ 53437:               ASSVAL
5851 @ 53438:               LINE   1210 "regression-compile-tmp/chimps.imp"
5852 @ 53475:               PUSH   J
5853 @ 53478:               PUSH   LINESTART
5854 @ 53481:               ASSVAL

  1211    %cycle
5855 @ 53482:               LINE   1211 "regression-compile-tmp/chimps.imp"
5856 @ 53519:               LOCATE L_0003

  1212      sym = byteinteger(fp);  fp = fp+1
5857 @ 53522:               LINE   1212 "regression-compile-tmp/chimps.imp"
5858 @ 53559:               PUSH   SYM
5859 @ 53562:               PUSH   BYTEINTEGER
5860 @ 53565:               PUSH   FP
5861 @ 53568:               ASSPAR
5862 @ 53569:               CALL  
5863 @ 53570:               ASSVAL
5864 @ 53571:               LINE   1212 "regression-compile-tmp/chimps.imp"
5865 @ 53608:               PUSH   FP
5866 @ 53611:               PUSH   FP
5867 @ 53614:               PUSHI  #0x00000001
5868 @ 53619:               ADD   
5869 @ 53620:               ASSVAL

  1213      %if sym = '"' %start
5870 @ 53621:               LINE   1213 "regression-compile-tmp/chimps.imp"
5871 @ 53658:               PUSH   SYM
5872 @ 53661:               PUSHI  #0x00000022
5873 @ 53666:               JUMPIF # L_0007

  1214        %exit %if byteinteger(fp) # '"'
5874 @ 53670:               LINE   1214 "regression-compile-tmp/chimps.imp"
5875 @ 53707:               PUSH   BYTEINTEGER
5876 @ 53710:               PUSH   FP
5877 @ 53713:               ASSPAR
5878 @ 53714:               CALL  
5879 @ 53715:               PUSHI  #0x00000022
5880 @ 53720:               JUMPIF = L_000a
5881 @ 53724:               GOTO   L_0004
5882 @ 53727:               LOCATE L_000a

  1215        fp = fp+1
5883 @ 53730:               LINE   1215 "regression-compile-tmp/chimps.imp"
5884 @ 53767:               PUSH   FP
5885 @ 53770:               PUSH   FP
5886 @ 53773:               PUSHI  #0x00000001
5887 @ 53778:               ADD   
5888 @ 53779:               ASSVAL

  1216      %finish
5889 @ 53780:               LINE   1216 "regression-compile-tmp/chimps.imp"
5890 @ 53817:               LOCATE L_0007

  1217      t_val = t_val+1
5891 @ 53820:               LINE   1217 "regression-compile-tmp/chimps.imp"
5892 @ 53857:               PUSH   T
5893 @ 53860:               SELECT 7
5894 @ 53863:               PUSH   T
5895 @ 53866:               SELECT 7
5896 @ 53869:               PUSHI  #0x00000001
5897 @ 53874:               ADD   
5898 @ 53875:               ASSVAL

  1218      %if t_val > 255 %start
5899 @ 53876:               LINE   1218 "regression-compile-tmp/chimps.imp"
5900 @ 53913:               PUSH   T
5901 @ 53916:               SELECT 7
5902 @ 53919:               PUSHI  #0x000000ff
5903 @ 53924:               JUMPIF <= L_0007

  1219        sym = 0
5904 @ 53928:               LINE   1219 "regression-compile-tmp/chimps.imp"
5905 @ 53965:               PUSH   SYM
5906 @ 53968:               PUSHI  #0x00000000
5907 @ 53973:               ASSVAL

  1220        fp = atomp;  linestart = j
5908 @ 53974:               LINE   1220 "regression-compile-tmp/chimps.imp"
5909 @ 54011:               PUSH   FP
5910 @ 54014:               PUSH   ATOMP
5911 @ 54017:               ASSVAL
5912 @ 54018:               LINE   1220 "regression-compile-tmp/chimps.imp"
5913 @ 54055:               PUSH   LINESTART
5914 @ 54058:               PUSH   J
5915 @ 54061:               ASSVAL

  1221        %result = dud
5916 @ 54062:               LINE   1221 "regression-compile-tmp/chimps.imp"
5917 @ 54099:               PUSHI  #0x0000003f
5918 @ 54104:               RESULT

  1222      %finish
5919 @ 54105:               LINE   1222 "regression-compile-tmp/chimps.imp"
5920 @ 54142:               LOCATE L_0007

  1223      read line %if sym = nl
5921 @ 54145:               LINE   1223 "regression-compile-tmp/chimps.imp"
5922 @ 54182:               PUSH   SYM
5923 @ 54185:               PUSHI  #0x0000000a
5924 @ 54190:               JUMPIF # L_0007
5925 @ 54194:               PUSH   READLINE
5926 @ 54197:               CALL  
5927 @ 54198:               LOCATE L_0007

  1224    %repeat
5928 @ 54201:               LINE   1224 "regression-compile-tmp/chimps.imp"
5929 @ 54238:               REPEAT L_0003
5930 @ 54241:               LOCATE L_0004

  1225    %result = const
  1226  
5931 @ 54244:               LINE   1225 "regression-compile-tmp/chimps.imp"
5932 @ 54281:               PUSHI  #0x00000035
5933 @ 54286:               RESULT

  1227  s(*):
5934 @ 54287:               LINE   1227 "regression-compile-tmp/chimps.imp"
5935 @ 54324:               DEFSW  248

  1228    %result = dud
5936 @ 54327:               LINE   1228 "regression-compile-tmp/chimps.imp"
5937 @ 54364:               PUSHI  #0x0000003f
5938 @ 54369:               RESULT

  1229  %end;  !NEXT ATOM
  1230  
5939 @ 54370:               LINE   1229 "regression-compile-tmp/chimps.imp"
5940 @ 54407:            END    _ECCECI_NEXTATOM {lev=2 --> 1}

  1231  %routine LOOKUP FIELD IDENT(%integer list)
5941 @ 54408:            LINE   1231 "regression-compile-tmp/chimps.imp"
5942 @ 54445:            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
5943 @ 54473:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
5944 @ 54474:                  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
5945 @ 54490:               FINISH ) {lev=2}

  1232    item = list;  %return %if item = 0
5946 @ 54491:               LINE   1232 "regression-compile-tmp/chimps.imp"
5947 @ 54528:               PUSH   ITEM
5948 @ 54531:               PUSH   LIST
5949 @ 54534:               ASSVAL
5950 @ 54535:               LINE   1232 "regression-compile-tmp/chimps.imp"
5951 @ 54572:               PUSH   ITEM
5952 @ 54575:               PUSHI  #0x00000000
5953 @ 54580:               JUMPIF # L_0004
5954 @ 54584:               RETURN
5955 @ 54585:               LOCATE L_0004

  1233    %cycle
5956 @ 54588:               LINE   1233 "regression-compile-tmp/chimps.imp"
5957 @ 54625:               LOCATE L_0003

  1234      ditem == dict(item)
5958 @ 54628:               LINE   1234 "regression-compile-tmp/chimps.imp"
5959 @ 54665:               PUSH   DITEM
5960 @ 54668:               PUSH   DICT
5961 @ 54671:               PUSH   ITEM
5962 @ 54674:               ACCESS
5963 @ 54675:               ASSREF

  1235      %if ditem_flags&typeid = 0 %start
5964 @ 54676:               LINE   1235 "regression-compile-tmp/chimps.imp"
5965 @ 54713:               PUSH   DITEM
5966 @ 54716:               SELECT 1
5967 @ 54719:               PUSHI  #0x00000100
5968 @ 54724:               AND   
5969 @ 54725:               PUSHI  #0x00000000
5970 @ 54730:               JUMPIF # L_0007

  1236        %return %if string(ditem_text+charbase) = string(charlim)
5971 @ 54734:               LINE   1236 "regression-compile-tmp/chimps.imp"
5972 @ 54771:               PUSH   STRING
5973 @ 54774:               PUSH   DITEM
5974 @ 54777:               SELECT 9
5975 @ 54780:               PUSH   CHARBASE
5976 @ 54783:               ADD   
5977 @ 54784:               ASSPAR
5978 @ 54785:               CALL  
5979 @ 54786:               PUSH   STRING
5980 @ 54789:               PUSH   CHARLIM
5981 @ 54792:               ASSPAR
5982 @ 54793:               CALL  
5983 @ 54794:               JUMPIF # L_000a
5984 @ 54798:               RETURN
5985 @ 54799:               LOCATE L_000a

  1237        %exit %if ditem_flags&more = 0
5986 @ 54802:               LINE   1237 "regression-compile-tmp/chimps.imp"
5987 @ 54839:               PUSH   DITEM
5988 @ 54842:               SELECT 1
5989 @ 54845:               PUSHI  #0x00000080
5990 @ 54850:               AND   
5991 @ 54851:               PUSHI  #0x00000000
5992 @ 54856:               JUMPIF # L_000a
5993 @ 54860:               GOTO   L_0004
5994 @ 54863:               LOCATE L_000a

  1238      %finish
5995 @ 54866:               LINE   1238 "regression-compile-tmp/chimps.imp"
5996 @ 54903:               LOCATE L_0007

  1239      item = item+1;  !misses = misses+1
5997 @ 54906:               LINE   1239 "regression-compile-tmp/chimps.imp"
5998 @ 54943:               PUSH   ITEM
5999 @ 54946:               PUSH   ITEM
6000 @ 54949:               PUSHI  #0x00000001
6001 @ 54954:               ADD   
6002 @ 54955:               ASSVAL

  1240    %repeat
6003 @ 54956:               LINE   1240 "regression-compile-tmp/chimps.imp"
6004 @ 54993:               REPEAT L_0003
6005 @ 54996:               LOCATE L_0004

  1241    item = 0
6006 @ 54999:               LINE   1241 "regression-compile-tmp/chimps.imp"
6007 @ 55036:               PUSH   ITEM
6008 @ 55039:               PUSHI  #0x00000000
6009 @ 55044:               ASSVAL

  1242  %end
  1243  
6010 @ 55045:               LINE   1242 "regression-compile-tmp/chimps.imp"
6011 @ 55082:            END    _ECCECI_LOOKUPFIELDIDENT {lev=2 --> 1}

  1244  %predicate A (%integer k)
  1245  !Basic atom-testing predicate
6012 @ 55083:            LINE   1244 "regression-compile-tmp/chimps.imp"
6013 @ 55120:            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
6014 @ 55133:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
6015 @ 55134:                  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
6016 @ 55147:               FINISH ) {lev=2}

  1246    atom = next atom %if matched # 0
6017 @ 55148:               LINE   1246 "regression-compile-tmp/chimps.imp"
6018 @ 55185:               PUSH   MATCHED
6019 @ 55188:               PUSHI  #0x00000000
6020 @ 55193:               JUMPIF = L_0004
6021 @ 55197:               PUSH   ATOM
6022 @ 55200:               PUSH   NEXTATOM
6023 @ 55203:               CALL  
6024 @ 55204:               ASSVAL
6025 @ 55205:               LOCATE L_0004

  1247    %false %if k # atom
6026 @ 55208:               LINE   1247 "regression-compile-tmp/chimps.imp"
6027 @ 55245:               PUSH   K
6028 @ 55248:               PUSH   ATOM
6029 @ 55251:               JUMPIF = L_0004
6030 @ 55255:               FALSE 
6031 @ 55256:               LOCATE L_0004

  1248    matched = 1
6032 @ 55259:               LINE   1248 "regression-compile-tmp/chimps.imp"
6033 @ 55296:               PUSH   MATCHED
6034 @ 55299:               PUSHI  #0x00000001
6035 @ 55304:               ASSVAL

  1249    %true
6036 @ 55305:               LINE   1249 "regression-compile-tmp/chimps.imp"
6037 @ 55342:               TRUE  

  1250  %end
  1251  
6038 @ 55343:               LINE   1250 "regression-compile-tmp/chimps.imp"
6039 @ 55380:            END    _ECCECI_A {lev=2 --> 1}

  1252  %routine GET(%integer k)
6040 @ 55381:            LINE   1252 "regression-compile-tmp/chimps.imp"
6041 @ 55418:            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
6042 @ 55433:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
6043 @ 55434:                  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
6044 @ 55447:               FINISH ) {lev=2}

  1253    atom = next atom %if matched # 0
6045 @ 55448:               LINE   1253 "regression-compile-tmp/chimps.imp"
6046 @ 55485:               PUSH   MATCHED
6047 @ 55488:               PUSHI  #0x00000000
6048 @ 55493:               JUMPIF = L_0004
6049 @ 55497:               PUSH   ATOM
6050 @ 55500:               PUSH   NEXTATOM
6051 @ 55503:               CALL  
6052 @ 55504:               ASSVAL
6053 @ 55505:               LOCATE L_0004

  1254    matched = 1
6054 @ 55508:               LINE   1254 "regression-compile-tmp/chimps.imp"
6055 @ 55545:               PUSH   MATCHED
6056 @ 55548:               PUSHI  #0x00000001
6057 @ 55553:               ASSVAL

  1255    %return %if atom = k
6058 @ 55554:               LINE   1255 "regression-compile-tmp/chimps.imp"
6059 @ 55591:               PUSH   ATOM
6060 @ 55594:               PUSH   K
6061 @ 55597:               JUMPIF # L_0004
6062 @ 55601:               RETURN
6063 @ 55602:               LOCATE L_0004

  1256    syntax error %if atom = dud
6064 @ 55605:               LINE   1256 "regression-compile-tmp/chimps.imp"
6065 @ 55642:               PUSH   ATOM
6066 @ 55645:               PUSHI  #0x0000003f
6067 @ 55650:               JUMPIF # L_0004
6068 @ 55654:               PUSH   SYNTAXERROR
6069 @ 55657:               CALL  
6070 @ 55658:               LOCATE L_0004

  1257    faultp = atomp;  report(formerr+point,-k)
6071 @ 55661:               LINE   1257 "regression-compile-tmp/chimps.imp"
6072 @ 55698:               PUSH   FAULTP
6073 @ 55701:               PUSH   ATOMP
6074 @ 55704:               ASSVAL
6075 @ 55705:               LINE   1257 "regression-compile-tmp/chimps.imp"
6076 @ 55742:               PUSH   REPORT
6077 @ 55745:               PUSHI  #0x00000000
6078 @ 55750:               PUSHI  #0x00000040
6079 @ 55755:               ADD   
6080 @ 55756:               ASSPAR
6081 @ 55757:               PUSH   K
6082 @ 55760:               NEGATE
6083 @ 55761:               ASSPAR
6084 @ 55762:               CALL  

  1258    %signal 14
6085 @ 55763:               LINE   1258 "regression-compile-tmp/chimps.imp"
6086 @ 55800:               EVENT  000e

  1259  %end
  1260  
6087 @ 55803:               LINE   1259 "regression-compile-tmp/chimps.imp"
6088 @ 55840:            END    _ECCECI_GET {lev=2 --> 1}

  1261  %routine ALLOW(%integer k)
6089 @ 55841:            LINE   1261 "regression-compile-tmp/chimps.imp"
6090 @ 55878:            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
6091 @ 55895:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
6092 @ 55896:                  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
6093 @ 55909:               FINISH ) {lev=2}

  1262    %if a(k) %start
6094 @ 55910:               LINE   1262 "regression-compile-tmp/chimps.imp"
6095 @ 55947:               PUSH   A
6096 @ 55950:               PUSH   K
6097 @ 55953:               ASSPAR
6098 @ 55954:               CALL  
6099 @ 55955:               bf     L_0004

  1263    %finish
6100 @ 55958:               LINE   1263 "regression-compile-tmp/chimps.imp"
6101 @ 55995:               LOCATE L_0004

  1264  %end
  1265  
6102 @ 55998:               LINE   1264 "regression-compile-tmp/chimps.imp"
6103 @ 56035:            END    _ECCECI_ALLOW {lev=2 --> 1}

  1266  %routine DECLARE
6104 @ 56036:            LINE   1266 "regression-compile-tmp/chimps.imp"
6105 @ 56073:            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
6106 @ 56092:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
6107 @ 56093:               FINISH ) {lev=2}

  1267    %if speccing = 0 %start;  !not within spec params
6108 @ 56094:               LINE   1267 "regression-compile-tmp/chimps.imp"
6109 @ 56131:               PUSH   SPECCING
6110 @ 56134:               PUSHI  #0x00000000
6111 @ 56139:               JUMPIF # L_0004

  1268      %if item >= c_localdpos %start;  !there already
6112 @ 56143:               LINE   1268 "regression-compile-tmp/chimps.imp"
6113 @ 56180:               PUSH   ITEM
6114 @ 56183:               PUSH   C
6115 @ 56186:               SELECT 6
6116 @ 56189:               JUMPIF < L_0007

  1269        %if d_flags&spec = 0 %and d_flags+spec = ditem_flags %c
  1270        %and ditem_type = d_type %start
6117 @ 56193:               LINE   1269 "regression-compile-tmp/chimps.imp"
6118 @ 56230:               PUSH   D
6119 @ 56233:               SELECT 1
6120 @ 56236:               PUSHI  #0x00000010
6121 @ 56241:               AND   
6122 @ 56242:               PUSHI  #0x00000000
6123 @ 56247:               JUMPIF # L_000a
6124 @ 56251:               PUSH   D
6125 @ 56254:               SELECT 1
6126 @ 56257:               PUSHI  #0x00000010
6127 @ 56262:               ADD   
6128 @ 56263:               PUSH   DITEM
6129 @ 56266:               SELECT 1
6130 @ 56269:               JUMPIF # L_000a
6131 @ 56273:               PUSH   DITEM
6132 @ 56276:               SELECT 2
6133 @ 56279:               PUSH   D
6134 @ 56282:               SELECT 2
6135 @ 56285:               JUMPIF # L_000a

  1271          ditem_flags = ditem_flags-spec
6136 @ 56289:               LINE   1271 "regression-compile-tmp/chimps.imp"
6137 @ 56326:               PUSH   DITEM
6138 @ 56329:               SELECT 1
6139 @ 56332:               PUSH   DITEM
6140 @ 56335:               SELECT 1
6141 @ 56338:               PUSHI  #0x00000010
6142 @ 56343:               SUB   
6143 @ 56344:               ASSVAL

  1272          %return
6144 @ 56345:               LINE   1272 "regression-compile-tmp/chimps.imp"
6145 @ 56382:               RETURN

  1273        %finish
6146 @ 56383:               LINE   1273 "regression-compile-tmp/chimps.imp"
6147 @ 56420:               LOCATE L_000a

  1274        fault(duperr+point)
6148 @ 56423:               LINE   1274 "regression-compile-tmp/chimps.imp"
6149 @ 56460:               PUSH   FAULT
6150 @ 56463:               PUSHI  #0x00000007
6151 @ 56468:               PUSHI  #0x00000040
6152 @ 56473:               ADD   
6153 @ 56474:               ASSPAR
6154 @ 56475:               CALL  

  1275      %finish
6155 @ 56476:               LINE   1275 "regression-compile-tmp/chimps.imp"
6156 @ 56513:               LOCATE L_0007

  1276      d_link = head;  head = dlim;  !insert in list
  1277  !    d_spare = hash&255
6157 @ 56516:               LINE   1276 "regression-compile-tmp/chimps.imp"
6158 @ 56553:               PUSH   D
6159 @ 56556:               SELECT 10
6160 @ 56559:               PUSH   HEAD
6161 @ 56562:               ASSVAL
6162 @ 56563:               LINE   1276 "regression-compile-tmp/chimps.imp"
6163 @ 56600:               PUSH   HEAD
6164 @ 56603:               PUSH   DLIM
6165 @ 56606:               ASSVAL

  1278      %if item > 0 %then d_text = ditem_text %c
  1279      %else %start
6166 @ 56607:               LINE   1278 "regression-compile-tmp/chimps.imp"
6167 @ 56644:               PUSH   ITEM
6168 @ 56647:               PUSHI  #0x00000000
6169 @ 56652:               JUMPIF <= L_0007
6170 @ 56656:               PUSH   D
6171 @ 56659:               SELECT 9
6172 @ 56662:               PUSH   DITEM
6173 @ 56665:               SELECT 9
6174 @ 56668:               ASSVAL
6175 @ 56669:               GOTO   L_0006
6176 @ 56672:               LOCATE L_0007

  1280        d_text = charlim-charbase;  charlim = charlim+newlen+1
6177 @ 56675:               LINE   1280 "regression-compile-tmp/chimps.imp"
6178 @ 56712:               PUSH   D
6179 @ 56715:               SELECT 9
6180 @ 56718:               PUSH   CHARLIM
6181 @ 56721:               PUSH   CHARBASE
6182 @ 56724:               SUB   
6183 @ 56725:               ASSVAL
6184 @ 56726:               LINE   1280 "regression-compile-tmp/chimps.imp"
6185 @ 56763:               PUSH   CHARLIM
6186 @ 56766:               PUSH   CHARLIM
6187 @ 56769:               PUSH   NEWLEN
6188 @ 56772:               ADD   
6189 @ 56773:               PUSHI  #0x00000001
6190 @ 56778:               ADD   
6191 @ 56779:               ASSVAL

  1281        croak("Identifier space exhausted") %if charlim+80 >= charmin
6192 @ 56780:               LINE   1281 "regression-compile-tmp/chimps.imp"
6193 @ 56817:               PUSH   CHARLIM
6194 @ 56820:               PUSHI  #0x00000050
6195 @ 56825:               ADD   
6196 @ 56826:               PUSH   CHARMIN
6197 @ 56829:               JUMPIF < L_000a
6198 @ 56833:               PUSH   CROAK
6199 @ 56836:               PUSHS  "Identifier space exhausted"
6200 @ 56864:               ASSPAR
6201 @ 56865:               CALL  
6202 @ 56866:               LOCATE L_000a

  1282      %finish
6203 @ 56869:               LINE   1282 "regression-compile-tmp/chimps.imp"
6204 @ 56906:               LOCATE L_0006

  1283    %finish %else d_text = 0
6205 @ 56909:               LINE   1283 "regression-compile-tmp/chimps.imp"
6206 @ 56946:               GOTO   L_0003
6207 @ 56949:               LOCATE L_0004
6208 @ 56952:               PUSH   D
6209 @ 56955:               SELECT 9
6210 @ 56958:               PUSHI  #0x00000000
6211 @ 56963:               ASSVAL
6212 @ 56964:               LOCATE L_0003

  1284    item = dlim;  ditem == dict(item)
6213 @ 56967:               LINE   1284 "regression-compile-tmp/chimps.imp"
6214 @ 57004:               PUSH   ITEM
6215 @ 57007:               PUSH   DLIM
6216 @ 57010:               ASSVAL
6217 @ 57011:               LINE   1284 "regression-compile-tmp/chimps.imp"
6218 @ 57048:               PUSH   DITEM
6219 @ 57051:               PUSH   DICT
6220 @ 57054:               PUSH   ITEM
6221 @ 57057:               ACCESS
6222 @ 57058:               ASSREF

  1285    ditem = d
6223 @ 57059:               LINE   1285 "regression-compile-tmp/chimps.imp"
6224 @ 57096:               PUSH   DITEM
6225 @ 57099:               PUSH   D
6226 @ 57102:               ASSVAL

  1286    dlim = dlim+1;  croak("Too many identifiers") %if dlim >= dmin
6227 @ 57103:               LINE   1286 "regression-compile-tmp/chimps.imp"
6228 @ 57140:               PUSH   DLIM
6229 @ 57143:               PUSH   DLIM
6230 @ 57146:               PUSHI  #0x00000001
6231 @ 57151:               ADD   
6232 @ 57152:               ASSVAL
6233 @ 57153:               LINE   1286 "regression-compile-tmp/chimps.imp"
6234 @ 57190:               PUSH   DLIM
6235 @ 57193:               PUSH   DMIN
6236 @ 57196:               JUMPIF < L_0004
6237 @ 57200:               PUSH   CROAK
6238 @ 57203:               PUSHS  "Too many identifiers"
6239 @ 57225:               ASSPAR
6240 @ 57226:               CALL  
6241 @ 57227:               LOCATE L_0004

  1287  %end;  !DECLARE
  1288  
6242 @ 57230:               LINE   1287 "regression-compile-tmp/chimps.imp"
6243 @ 57267:            END    _ECCECI_DECLARE {lev=2 --> 1}

  1289  %routine DECLARE ANON
6244 @ 57268:            LINE   1289 "regression-compile-tmp/chimps.imp"
6245 @ 57305:            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
6246 @ 57328:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
6247 @ 57329:               FINISH ) {lev=2}

  1290    d_text = 0;  d_link = 0
6248 @ 57330:               LINE   1290 "regression-compile-tmp/chimps.imp"
6249 @ 57367:               PUSH   D
6250 @ 57370:               SELECT 9
6251 @ 57373:               PUSHI  #0x00000000
6252 @ 57378:               ASSVAL
6253 @ 57379:               LINE   1290 "regression-compile-tmp/chimps.imp"
6254 @ 57416:               PUSH   D
6255 @ 57419:               SELECT 10
6256 @ 57422:               PUSHI  #0x00000000
6257 @ 57427:               ASSVAL

  1291    dict(dlim) = d
6258 @ 57428:               LINE   1291 "regression-compile-tmp/chimps.imp"
6259 @ 57465:               PUSH   DICT
6260 @ 57468:               PUSH   DLIM
6261 @ 57471:               ACCESS
6262 @ 57472:               PUSH   D
6263 @ 57475:               ASSVAL

  1292    dlim = dlim+1;  croak("Too many identifiers") %if dlim >= dmin
6264 @ 57476:               LINE   1292 "regression-compile-tmp/chimps.imp"
6265 @ 57513:               PUSH   DLIM
6266 @ 57516:               PUSH   DLIM
6267 @ 57519:               PUSHI  #0x00000001
6268 @ 57524:               ADD   
6269 @ 57525:               ASSVAL
6270 @ 57526:               LINE   1292 "regression-compile-tmp/chimps.imp"
6271 @ 57563:               PUSH   DLIM
6272 @ 57566:               PUSH   DMIN
6273 @ 57569:               JUMPIF < L_0004
6274 @ 57573:               PUSH   CROAK
6275 @ 57576:               PUSHS  "Too many identifiers"
6276 @ 57598:               ASSPAR
6277 @ 57599:               CALL  
6278 @ 57600:               LOCATE L_0004

  1293  %end
  1294  
6279 @ 57603:               LINE   1293 "regression-compile-tmp/chimps.imp"
6280 @ 57640:            END    _ECCECI_DECLAREANON {lev=2 --> 1}

  1295  %owninteger jammy
6281 @ 57641:            LINE   1295 "regression-compile-tmp/chimps.imp"
6282 @ 57678:            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
6283 @ 57695:            INIT   1

  1296  %predicate A ASSOP
6284 @ 57698:            LINE   1296 "regression-compile-tmp/chimps.imp"
6285 @ 57735:            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
6286 @ 57753:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
6287 @ 57754:               FINISH ) {lev=2}

  1297    atom = next atom %if matched # 0
6288 @ 57755:               LINE   1297 "regression-compile-tmp/chimps.imp"
6289 @ 57792:               PUSH   MATCHED
6290 @ 57795:               PUSHI  #0x00000000
6291 @ 57800:               JUMPIF = L_0004
6292 @ 57804:               PUSH   ATOM
6293 @ 57807:               PUSH   NEXTATOM
6294 @ 57810:               CALL  
6295 @ 57811:               ASSVAL
6296 @ 57812:               LOCATE L_0004

  1298    %if atom # equals %and atom # eqeq %start
6297 @ 57815:               LINE   1298 "regression-compile-tmp/chimps.imp"
6298 @ 57852:               PUSH   ATOM
6299 @ 57855:               PUSHI  #0x00000046
6300 @ 57860:               JUMPIF = L_0004
6301 @ 57864:               PUSH   ATOM
6302 @ 57867:               PUSHI  #0x0000004c
6303 @ 57872:               JUMPIF = L_0004

  1299      %false %unless atom = less %and byteinteger(fp) = '-'
6304 @ 57876:               LINE   1299 "regression-compile-tmp/chimps.imp"
6305 @ 57913:               PUSH   ATOM
6306 @ 57916:               PUSHI  #0x00000049
6307 @ 57921:               JUMPIF # L_0008
6308 @ 57925:               PUSH   BYTEINTEGER
6309 @ 57928:               PUSH   FP
6310 @ 57931:               ASSPAR
6311 @ 57932:               CALL  
6312 @ 57933:               PUSHI  #0x0000002d
6313 @ 57938:               JUMPIF = L_0007
6314 @ 57942:               LOCATE L_0008
6315 @ 57945:               FALSE 
6316 @ 57946:               LOCATE L_0007

  1300      jammy = 2;  fp = fp+1
6317 @ 57949:               LINE   1300 "regression-compile-tmp/chimps.imp"
6318 @ 57986:               PUSH   JAMMY
6319 @ 57989:               PUSHI  #0x00000002
6320 @ 57994:               ASSVAL
6321 @ 57995:               LINE   1300 "regression-compile-tmp/chimps.imp"
6322 @ 58032:               PUSH   FP
6323 @ 58035:               PUSH   FP
6324 @ 58038:               PUSHI  #0x00000001
6325 @ 58043:               ADD   
6326 @ 58044:               ASSVAL

  1301    %finish %else jammy = 0
6327 @ 58045:               LINE   1301 "regression-compile-tmp/chimps.imp"
6328 @ 58082:               GOTO   L_0003
6329 @ 58085:               LOCATE L_0004
6330 @ 58088:               PUSH   JAMMY
6331 @ 58091:               PUSHI  #0x00000000
6332 @ 58096:               ASSVAL
6333 @ 58097:               LOCATE L_0003

  1302    matched = 1
6334 @ 58100:               LINE   1302 "regression-compile-tmp/chimps.imp"
6335 @ 58137:               PUSH   MATCHED
6336 @ 58140:               PUSHI  #0x00000001
6337 @ 58145:               ASSVAL

  1303    %true
6338 @ 58146:               LINE   1303 "regression-compile-tmp/chimps.imp"
6339 @ 58183:               TRUE  

  1304  %end
  1305  
  1306  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1307  !!!!!!!!!!!!!!!!!!!!  Expressions  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1308  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1309  
6340 @ 58184:               LINE   1304 "regression-compile-tmp/chimps.imp"
6341 @ 58221:            END    _ECCECI_AASSOP {lev=2 --> 1}

  1310  %owninteger literal=0
6342 @ 58222:            LINE   1310 "regression-compile-tmp/chimps.imp"
6343 @ 58259:            PUSHI  #0x00000000
6344 @ 58264:            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
6345 @ 58283:            INIT   1

  1311  %routinespec get EXPRESSION(%integer rank,control)
  1312  
6346 @ 58286:            LINE   1311 "regression-compile-tmp/chimps.imp"
6347 @ 58323:            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
6348 @ 58348:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
6349 @ 58349:               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
6350 @ 58365:               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
6351 @ 58384:            FINISH ) {lev=1}

  1313  %integerfn COMPAT(%integer control)
6352 @ 58385:            LINE   1313 "regression-compile-tmp/chimps.imp"
6353 @ 58422:            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
6354 @ 58440:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
6355 @ 58441:                  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
6356 @ 58460:               FINISH ) {lev=2}

  1314    %if t_type = inty %start
6357 @ 58461:               LINE   1314 "regression-compile-tmp/chimps.imp"
6358 @ 58498:               PUSH   T
6359 @ 58501:               SELECT 2
6360 @ 58504:               PUSHI  #0x000007fe
6361 @ 58509:               JUMPIF # L_0004

  1315      %if control&intok = 0 %and control&realok # 0 %start
6362 @ 58513:               LINE   1315 "regression-compile-tmp/chimps.imp"
6363 @ 58550:               PUSH   CONTROL
6364 @ 58553:               PUSHI  #0x00000010
6365 @ 58558:               AND   
6366 @ 58559:               PUSHI  #0x00000000
6367 @ 58564:               JUMPIF # L_0007
6368 @ 58568:               PUSH   CONTROL
6369 @ 58571:               PUSHI  #0x00000008
6370 @ 58576:               AND   
6371 @ 58577:               PUSHI  #0x00000000
6372 @ 58582:               JUMPIF = L_0007

  1316        item = floated(item)
6373 @ 58586:               LINE   1316 "regression-compile-tmp/chimps.imp"
6374 @ 58623:               PUSH   ITEM
6375 @ 58626:               PUSH   FLOATED
6376 @ 58629:               PUSH   ITEM
6377 @ 58632:               ASSPAR
6378 @ 58633:               CALL  
6379 @ 58634:               ASSVAL

  1317        t_type = realy
6380 @ 58635:               LINE   1317 "regression-compile-tmp/chimps.imp"
6381 @ 58672:               PUSH   T
6382 @ 58675:               SELECT 2
6383 @ 58678:               PUSHI  #0x000007fd
6384 @ 58683:               ASSVAL

  1318      %finish
6385 @ 58684:               LINE   1318 "regression-compile-tmp/chimps.imp"
6386 @ 58721:               LOCATE L_0007

  1319      %result = control&(intok+realok)
6387 @ 58724:               LINE   1319 "regression-compile-tmp/chimps.imp"
6388 @ 58761:               PUSH   CONTROL
6389 @ 58764:               PUSHI  #0x00000010
6390 @ 58769:               PUSHI  #0x00000008
6391 @ 58774:               ADD   
6392 @ 58775:               AND   
6393 @ 58776:               RESULT

  1320    %finish
6394 @ 58777:               LINE   1320 "regression-compile-tmp/chimps.imp"
6395 @ 58814:               LOCATE L_0004

  1321    %result = control&(boolok>>(booltype-t_type)) %if t_type <= booltype
6396 @ 58817:               LINE   1321 "regression-compile-tmp/chimps.imp"
6397 @ 58854:               PUSH   T
6398 @ 58857:               SELECT 2
6399 @ 58860:               PUSHI  #0x00000800
6400 @ 58865:               JUMPIF > L_0004
6401 @ 58869:               PUSH   CONTROL
6402 @ 58872:               PUSHI  #0x00000040
6403 @ 58877:               PUSHI  #0x00000800
6404 @ 58882:               PUSH   T
6405 @ 58885:               SELECT 2
6406 @ 58888:               SUB   
6407 @ 58889:               RSH   
6408 @ 58890:               AND   
6409 @ 58891:               RESULT
6410 @ 58892:               LOCATE L_0004

  1322    %result = control&enumok %if t_type < direct
6411 @ 58895:               LINE   1322 "regression-compile-tmp/chimps.imp"
6412 @ 58932:               PUSH   T
6413 @ 58935:               SELECT 2
6414 @ 58938:               PUSHI  #0x00002000
6415 @ 58943:               JUMPIF >= L_0004
6416 @ 58947:               PUSH   CONTROL
6417 @ 58950:               PUSHI  #0x00000080
6418 @ 58955:               AND   
6419 @ 58956:               RESULT
6420 @ 58957:               LOCATE L_0004

  1323    %result = control&arrok
6421 @ 58960:               LINE   1323 "regression-compile-tmp/chimps.imp"
6422 @ 58997:               PUSH   CONTROL
6423 @ 59000:               PUSHI  #0x00000002
6424 @ 59005:               AND   
6425 @ 59006:               RESULT

  1324  %end
  1325  !
6426 @ 59007:               LINE   1324 "regression-compile-tmp/chimps.imp"
6427 @ 59044:            END    _ECCECI_COMPAT {lev=2 --> 1}

  1326  %integerfn LISTMATCH(%integer alist,blist)
6428 @ 59045:            LINE   1326 "regression-compile-tmp/chimps.imp"
6429 @ 59082:            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
6430 @ 59103:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
6431 @ 59104:                  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
6432 @ 59121:                  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
6433 @ 59138:               FINISH ) {lev=2}

  1327  %record(identinfo)%name ap,bp
6434 @ 59139:               LINE   1327 "regression-compile-tmp/chimps.imp"
6435 @ 59176:               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
6436 @ 59190:               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

  1328    %result = 1 %if alist = blist
6437 @ 59204:               LINE   1328 "regression-compile-tmp/chimps.imp"
6438 @ 59241:               PUSH   ALIST
6439 @ 59244:               PUSH   BLIST
6440 @ 59247:               JUMPIF # L_0004
6441 @ 59251:               PUSHI  #0x00000001
6442 @ 59256:               RESULT
6443 @ 59257:               LOCATE L_0004

  1329    %result = 0 %if alist < dictmin %or blist < dictmin
6444 @ 59260:               LINE   1329 "regression-compile-tmp/chimps.imp"
6445 @ 59297:               PUSH   ALIST
6446 @ 59300:               PUSHI  #0x000007f9
6447 @ 59305:               JUMPIF < L_0005
6448 @ 59309:               PUSH   BLIST
6449 @ 59312:               PUSHI  #0x000007f9
6450 @ 59317:               JUMPIF >= L_0004
6451 @ 59321:               LOCATE L_0005
6452 @ 59324:               PUSHI  #0x00000000
6453 @ 59329:               RESULT
6454 @ 59330:               LOCATE L_0004

  1330    %cycle
6455 @ 59333:               LINE   1330 "regression-compile-tmp/chimps.imp"
6456 @ 59370:               LOCATE L_0003

  1331      ap == dict(alist);  bp == dict(blist)
6457 @ 59373:               LINE   1331 "regression-compile-tmp/chimps.imp"
6458 @ 59410:               PUSH   AP
6459 @ 59413:               PUSH   DICT
6460 @ 59416:               PUSH   ALIST
6461 @ 59419:               ACCESS
6462 @ 59420:               ASSREF
6463 @ 59421:               LINE   1331 "regression-compile-tmp/chimps.imp"
6464 @ 59458:               PUSH   BP
6465 @ 59461:               PUSH   DICT
6466 @ 59464:               PUSH   BLIST
6467 @ 59467:               ACCESS
6468 @ 59468:               ASSREF

  1332      %result = 0 %if ap_type # bp_type;  !for now
6469 @ 59469:               LINE   1332 "regression-compile-tmp/chimps.imp"
6470 @ 59506:               PUSH   AP
6471 @ 59509:               SELECT 2
6472 @ 59512:               PUSH   BP
6473 @ 59515:               SELECT 2
6474 @ 59518:               JUMPIF = L_0007
6475 @ 59522:               PUSHI  #0x00000000
6476 @ 59527:               RESULT
6477 @ 59528:               LOCATE L_0007

  1333      alist = alist+1;  blist = blist+1
6478 @ 59531:               LINE   1333 "regression-compile-tmp/chimps.imp"
6479 @ 59568:               PUSH   ALIST
6480 @ 59571:               PUSH   ALIST
6481 @ 59574:               PUSHI  #0x00000001
6482 @ 59579:               ADD   
6483 @ 59580:               ASSVAL
6484 @ 59581:               LINE   1333 "regression-compile-tmp/chimps.imp"
6485 @ 59618:               PUSH   BLIST
6486 @ 59621:               PUSH   BLIST
6487 @ 59624:               PUSHI  #0x00000001
6488 @ 59629:               ADD   
6489 @ 59630:               ASSVAL

  1334    %repeat %until ap_flags&bp_flags&more = 0
6490 @ 59631:               LINE   1334 "regression-compile-tmp/chimps.imp"
6491 @ 59668:               PUSH   AP
6492 @ 59671:               SELECT 1
6493 @ 59674:               PUSH   BP
6494 @ 59677:               SELECT 1
6495 @ 59680:               AND   
6496 @ 59681:               PUSHI  #0x00000080
6497 @ 59686:               AND   
6498 @ 59687:               PUSHI  #0x00000000
6499 @ 59692:               JUMPIF = L_0004
6500 @ 59696:               REPEAT L_0003
6501 @ 59699:               LOCATE L_0004

  1335    %result = 0 %if ap_flags&more # 0 %or bp_flags&more # 0;  !for now
6502 @ 59702:               LINE   1335 "regression-compile-tmp/chimps.imp"
6503 @ 59739:               PUSH   AP
6504 @ 59742:               SELECT 1
6505 @ 59745:               PUSHI  #0x00000080
6506 @ 59750:               AND   
6507 @ 59751:               PUSHI  #0x00000000
6508 @ 59756:               JUMPIF # L_0005
6509 @ 59760:               PUSH   BP
6510 @ 59763:               SELECT 1
6511 @ 59766:               PUSHI  #0x00000080
6512 @ 59771:               AND   
6513 @ 59772:               PUSHI  #0x00000000
6514 @ 59777:               JUMPIF = L_0004
6515 @ 59781:               LOCATE L_0005
6516 @ 59784:               PUSHI  #0x00000000
6517 @ 59789:               RESULT
6518 @ 59790:               LOCATE L_0004

  1336    %result = 1
6519 @ 59793:               LINE   1336 "regression-compile-tmp/chimps.imp"
6520 @ 59830:               PUSHI  #0x00000001
6521 @ 59835:               RESULT

  1337  %end
  1338  !
6522 @ 59836:               LINE   1337 "regression-compile-tmp/chimps.imp"
6523 @ 59873:            END    _ECCECI_LISTMATCH {lev=2 --> 1}

  1339  %routine GET REFERENCE(%integer reftype)
6524 @ 59874:            LINE   1339 "regression-compile-tmp/chimps.imp"
6525 @ 59911:            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
6526 @ 59935:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
6527 @ 59936:                  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
6528 @ 59955:               FINISH ) {lev=2}

  1340  %integer type,temp
6529 @ 59956:               LINE   1340 "regression-compile-tmp/chimps.imp"
6530 @ 59993:               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
6531 @ 60009:               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

  1341    get EXPRESSION(simple,refonly+any)
6532 @ 60025:               LINE   1341 "regression-compile-tmp/chimps.imp"
6533 @ 60062:               PUSH   GETEXPRESSION
6534 @ 60065:               PUSHI  #0x00000068
6535 @ 60070:               ASSPAR
6536 @ 60071:               PUSHI  #0x00000400
6537 @ 60076:               PUSHI  #0x000000ff
6538 @ 60081:               ADD   
6539 @ 60082:               ASSPAR
6540 @ 60083:               CALL  

  1342    type = ditem_type&puretype;  reftype = reftype&puretype
6541 @ 60084:               LINE   1342 "regression-compile-tmp/chimps.imp"
6542 @ 60121:               PUSH   TYPE
6543 @ 60124:               PUSH   DITEM
6544 @ 60127:               SELECT 2
6545 @ 60130:               PUSHI  #0x00001fff
6546 @ 60135:               AND   
6547 @ 60136:               ASSVAL
6548 @ 60137:               LINE   1342 "regression-compile-tmp/chimps.imp"
6549 @ 60174:               PUSH   REFTYPE
6550 @ 60177:               PUSH   REFTYPE
6551 @ 60180:               PUSHI  #0x00001fff
6552 @ 60185:               AND   
6553 @ 60186:               ASSVAL

  1343    %return %if reftype = type
6554 @ 60187:               LINE   1343 "regression-compile-tmp/chimps.imp"
6555 @ 60224:               PUSH   REFTYPE
6556 @ 60227:               PUSH   TYPE
6557 @ 60230:               JUMPIF # L_0004
6558 @ 60234:               RETURN
6559 @ 60235:               LOCATE L_0004

  1344    %if type < reftype %start
6560 @ 60238:               LINE   1344 "regression-compile-tmp/chimps.imp"
6561 @ 60275:               PUSH   TYPE
6562 @ 60278:               PUSH   REFTYPE
6563 @ 60281:               JUMPIF >= L_0004

  1345      temp = type;  type = reftype;  reftype = temp
6564 @ 60285:               LINE   1345 "regression-compile-tmp/chimps.imp"
6565 @ 60322:               PUSH   TEMP
6566 @ 60325:               PUSH   TYPE
6567 @ 60328:               ASSVAL
6568 @ 60329:               LINE   1345 "regression-compile-tmp/chimps.imp"
6569 @ 60366:               PUSH   TYPE
6570 @ 60369:               PUSH   REFTYPE
6571 @ 60372:               ASSVAL
6572 @ 60373:               LINE   1345 "regression-compile-tmp/chimps.imp"
6573 @ 60410:               PUSH   REFTYPE
6574 @ 60413:               PUSH   TEMP
6575 @ 60416:               ASSVAL

  1346    %finish
6576 @ 60417:               LINE   1346 "regression-compile-tmp/chimps.imp"
6577 @ 60454:               LOCATE L_0004

  1347    %return %if reftype = nulltype;  !untyped %name
6578 @ 60457:               LINE   1347 "regression-compile-tmp/chimps.imp"
6579 @ 60494:               PUSH   REFTYPE
6580 @ 60497:               PUSHI  #0x000007f9
6581 @ 60502:               JUMPIF # L_0004
6582 @ 60506:               RETURN
6583 @ 60507:               LOCATE L_0004

  1348    type = dict(type)_type
6584 @ 60510:               LINE   1348 "regression-compile-tmp/chimps.imp"
6585 @ 60547:               PUSH   TYPE
6586 @ 60550:               PUSH   DICT
6587 @ 60553:               PUSH   TYPE
6588 @ 60556:               ACCESS
6589 @ 60557:               SELECT 2
6590 @ 60560:               ASSVAL

  1349    %return %if type <= inty %and type = reftype
6591 @ 60561:               LINE   1349 "regression-compile-tmp/chimps.imp"
6592 @ 60598:               PUSH   TYPE
6593 @ 60601:               PUSHI  #0x000007fe
6594 @ 60606:               JUMPIF > L_0004
6595 @ 60610:               PUSH   TYPE
6596 @ 60613:               PUSH   REFTYPE
6597 @ 60616:               JUMPIF # L_0004
6598 @ 60620:               RETURN
6599 @ 60621:               LOCATE L_0004

  1350    %return %if type >= direct %and type = dict(reftype)_type;  !aname
6600 @ 60624:               LINE   1350 "regression-compile-tmp/chimps.imp"
6601 @ 60661:               PUSH   TYPE
6602 @ 60664:               PUSHI  #0x00002000
6603 @ 60669:               JUMPIF < L_0004
6604 @ 60673:               PUSH   TYPE
6605 @ 60676:               PUSH   DICT
6606 @ 60679:               PUSH   REFTYPE
6607 @ 60682:               ACCESS
6608 @ 60683:               SELECT 2
6609 @ 60686:               JUMPIF # L_0004
6610 @ 60690:               RETURN
6611 @ 60691:               LOCATE L_0004

  1351    expfault(typerr+point)
6612 @ 60694:               LINE   1351 "regression-compile-tmp/chimps.imp"
6613 @ 60731:               PUSH   EXPFAULT
6614 @ 60734:               PUSHI  #0x00000006
6615 @ 60739:               PUSHI  #0x00000040
6616 @ 60744:               ADD   
6617 @ 60745:               ASSPAR
6618 @ 60746:               CALL  

  1352  %end
  1353  !
6619 @ 60747:               LINE   1352 "regression-compile-tmp/chimps.imp"
6620 @ 60784:            END    _ECCECI_GETREFERENCE {lev=2 --> 1}

  1354  %routine GET VALUE(%integer valtype)
6621 @ 60785:            LINE   1354 "regression-compile-tmp/chimps.imp"
6622 @ 60822:            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
6623 @ 60842:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
6624 @ 60843:                  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
6625 @ 60862:               FINISH ) {lev=2}

  1355  %record(identinfo)%name dp,p
6626 @ 60863:               LINE   1355 "regression-compile-tmp/chimps.imp"
6627 @ 60900:               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
6628 @ 60914:               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

  1356    get EXPRESSION(major,any)
6629 @ 60927:               LINE   1356 "regression-compile-tmp/chimps.imp"
6630 @ 60964:               PUSH   GETEXPRESSION
6631 @ 60967:               PUSHI  #0x00000050
6632 @ 60972:               ASSPAR
6633 @ 60973:               PUSHI  #0x000000ff
6634 @ 60978:               ASSPAR
6635 @ 60979:               CALL  

  1357    valtype = valtype&puretype
6636 @ 60980:               LINE   1357 "regression-compile-tmp/chimps.imp"
6637 @ 61017:               PUSH   VALTYPE
6638 @ 61020:               PUSH   VALTYPE
6639 @ 61023:               PUSHI  #0x00001fff
6640 @ 61028:               AND   
6641 @ 61029:               ASSVAL

  1358    dp == dict(valtype)
6642 @ 61030:               LINE   1358 "regression-compile-tmp/chimps.imp"
6643 @ 61067:               PUSH   DP
6644 @ 61070:               PUSH   DICT
6645 @ 61073:               PUSH   VALTYPE
6646 @ 61076:               ACCESS
6647 @ 61077:               ASSREF

  1359    %if t_type # dp_type %start;  !base types differ
6648 @ 61078:               LINE   1359 "regression-compile-tmp/chimps.imp"
6649 @ 61115:               PUSH   T
6650 @ 61118:               SELECT 2
6651 @ 61121:               PUSH   DP
6652 @ 61124:               SELECT 2
6653 @ 61127:               JUMPIF = L_0004

  1360      %return %if item = 0 = t_val;  !zero
6654 @ 61131:               LINE   1360 "regression-compile-tmp/chimps.imp"
6655 @ 61168:               PUSH   ITEM
6656 @ 61171:               PUSHI  #0x00000000
6657 @ 61176:               JUMPIFD # L_0007
6658 @ 61180:               PUSH   T
6659 @ 61183:               SELECT 7
6660 @ 61186:               JUMPIF # L_0007
6661 @ 61190:               RETURN
6662 @ 61191:               LOCATE L_0007

  1361      %if dp_type = realy %and t_type = inty %start
  1362        !float
6663 @ 61194:               LINE   1361 "regression-compile-tmp/chimps.imp"
6664 @ 61231:               PUSH   DP
6665 @ 61234:               SELECT 2
6666 @ 61237:               PUSHI  #0x000007fd
6667 @ 61242:               JUMPIF # L_0007
6668 @ 61246:               PUSH   T
6669 @ 61249:               SELECT 2
6670 @ 61252:               PUSHI  #0x000007fe
6671 @ 61257:               JUMPIF # L_0007

  1363        t_type = realy
6672 @ 61261:               LINE   1363 "regression-compile-tmp/chimps.imp"
6673 @ 61298:               PUSH   T
6674 @ 61301:               SELECT 2
6675 @ 61304:               PUSHI  #0x000007fd
6676 @ 61309:               ASSVAL

  1364        %return
6677 @ 61310:               LINE   1364 "regression-compile-tmp/chimps.imp"
6678 @ 61347:               RETURN

  1365      %finish
6679 @ 61348:               LINE   1365 "regression-compile-tmp/chimps.imp"
6680 @ 61385:               LOCATE L_0007

  1366    %else %if t_type >= inty;  !scalar
6681 @ 61388:               LINE   1366 "regression-compile-tmp/chimps.imp"
6682 @ 61425:               GOTO   L_0003
6683 @ 61428:               LOCATE L_0004
6684 @ 61431:               PUSH   T
6685 @ 61434:               SELECT 2
6686 @ 61437:               PUSHI  #0x000007fe
6687 @ 61442:               JUMPIF < L_0004

  1367      %if item = 0 %start
6688 @ 61446:               LINE   1367 "regression-compile-tmp/chimps.imp"
6689 @ 61483:               PUSH   ITEM
6690 @ 61486:               PUSHI  #0x00000000
6691 @ 61491:               JUMPIF # L_0007

  1368        %return %if dp_low <= t_val <= dp_val
6692 @ 61495:               LINE   1368 "regression-compile-tmp/chimps.imp"
6693 @ 61532:               PUSH   DP
6694 @ 61535:               SELECT 6
6695 @ 61538:               PUSH   T
6696 @ 61541:               SELECT 7
6697 @ 61544:               JUMPIFD > L_000a
6698 @ 61548:               PUSH   DP
6699 @ 61551:               SELECT 7
6700 @ 61554:               JUMPIF > L_000a
6701 @ 61558:               RETURN
6702 @ 61559:               LOCATE L_000a

  1369        jammy = jammy!1 %if jammy >= 0
6703 @ 61562:               LINE   1369 "regression-compile-tmp/chimps.imp"
6704 @ 61599:               PUSH   JAMMY
6705 @ 61602:               PUSHI  #0x00000000
6706 @ 61607:               JUMPIF < L_000a
6707 @ 61611:               PUSH   JAMMY
6708 @ 61614:               PUSH   JAMMY
6709 @ 61617:               PUSHI  #0x00000001
6710 @ 61622:               OR    
6711 @ 61623:               ASSVAL
6712 @ 61624:               LOCATE L_000a

  1370      %finish %else %start
6713 @ 61627:               LINE   1370 "regression-compile-tmp/chimps.imp"
6714 @ 61664:               GOTO   L_0006
6715 @ 61667:               LOCATE L_0007

  1371        %if t_low >= dp_low %start
6716 @ 61670:               LINE   1371 "regression-compile-tmp/chimps.imp"
6717 @ 61707:               PUSH   T
6718 @ 61710:               SELECT 6
6719 @ 61713:               PUSH   DP
6720 @ 61716:               SELECT 6
6721 @ 61719:               JUMPIF < L_000a

  1372          %return %if t_val <= dp_val
6722 @ 61723:               LINE   1372 "regression-compile-tmp/chimps.imp"
6723 @ 61760:               PUSH   T
6724 @ 61763:               SELECT 7
6725 @ 61766:               PUSH   DP
6726 @ 61769:               SELECT 7
6727 @ 61772:               JUMPIF > L_000d
6728 @ 61776:               RETURN
6729 @ 61777:               LOCATE L_000d

  1373          jammy = jammy!1 %if jammy >= 0
6730 @ 61780:               LINE   1373 "regression-compile-tmp/chimps.imp"
6731 @ 61817:               PUSH   JAMMY
6732 @ 61820:               PUSHI  #0x00000000
6733 @ 61825:               JUMPIF < L_000d
6734 @ 61829:               PUSH   JAMMY
6735 @ 61832:               PUSH   JAMMY
6736 @ 61835:               PUSHI  #0x00000001
6737 @ 61840:               OR    
6738 @ 61841:               ASSVAL
6739 @ 61842:               LOCATE L_000d

  1374          %return %if t_low <= dp_val
6740 @ 61845:               LINE   1374 "regression-compile-tmp/chimps.imp"
6741 @ 61882:               PUSH   T
6742 @ 61885:               SELECT 6
6743 @ 61888:               PUSH   DP
6744 @ 61891:               SELECT 7
6745 @ 61894:               JUMPIF > L_000d
6746 @ 61898:               RETURN
6747 @ 61899:               LOCATE L_000d

  1375        %finish %else %start
6748 @ 61902:               LINE   1375 "regression-compile-tmp/chimps.imp"
6749 @ 61939:               GOTO   L_0009
6750 @ 61942:               LOCATE L_000a

  1376          jammy = jammy!1 %if jammy >= 0
6751 @ 61945:               LINE   1376 "regression-compile-tmp/chimps.imp"
6752 @ 61982:               PUSH   JAMMY
6753 @ 61985:               PUSHI  #0x00000000
6754 @ 61990:               JUMPIF < L_000d
6755 @ 61994:               PUSH   JAMMY
6756 @ 61997:               PUSH   JAMMY
6757 @ 62000:               PUSHI  #0x00000001
6758 @ 62005:               OR    
6759 @ 62006:               ASSVAL
6760 @ 62007:               LOCATE L_000d

  1377          %return %if t_val >= dp_low
6761 @ 62010:               LINE   1377 "regression-compile-tmp/chimps.imp"
6762 @ 62047:               PUSH   T
6763 @ 62050:               SELECT 7
6764 @ 62053:               PUSH   DP
6765 @ 62056:               SELECT 6
6766 @ 62059:               JUMPIF < L_000d
6767 @ 62063:               RETURN
6768 @ 62064:               LOCATE L_000d

  1378        %finish
6769 @ 62067:               LINE   1378 "regression-compile-tmp/chimps.imp"
6770 @ 62104:               LOCATE L_0009

  1379      %finish
6771 @ 62107:               LINE   1379 "regression-compile-tmp/chimps.imp"
6772 @ 62144:               LOCATE L_0006

  1380      expfault(rangerr+point) %if jammy < 2
6773 @ 62147:               LINE   1380 "regression-compile-tmp/chimps.imp"
6774 @ 62184:               PUSH   JAMMY
6775 @ 62187:               PUSHI  #0x00000002
6776 @ 62192:               JUMPIF >= L_0007
6777 @ 62196:               PUSH   EXPFAULT
6778 @ 62199:               PUSHI  #0x0000000c
6779 @ 62204:               PUSHI  #0x00000040
6780 @ 62209:               ADD   
6781 @ 62210:               ASSPAR
6782 @ 62211:               CALL  
6783 @ 62212:               LOCATE L_0007

  1381      %return
6784 @ 62215:               LINE   1381 "regression-compile-tmp/chimps.imp"
6785 @ 62252:               RETURN

  1382    %else %if t_type = stringy
6786 @ 62253:               LINE   1382 "regression-compile-tmp/chimps.imp"
6787 @ 62290:               LOCATE L_0004
6788 @ 62293:               PUSH   T
6789 @ 62296:               SELECT 2
6790 @ 62299:               PUSHI  #0x000007fc
6791 @ 62304:               JUMPIF # L_0004

  1383      %if t_val > dp_val %start;  !VALUE = LENGTH*
6792 @ 62308:               LINE   1383 "regression-compile-tmp/chimps.imp"
6793 @ 62345:               PUSH   T
6794 @ 62348:               SELECT 7
6795 @ 62351:               PUSH   DP
6796 @ 62354:               SELECT 7
6797 @ 62357:               JUMPIF <= L_0007

  1384        jammy = jammy!1 %if jammy >= 0
6798 @ 62361:               LINE   1384 "regression-compile-tmp/chimps.imp"
6799 @ 62398:               PUSH   JAMMY
6800 @ 62401:               PUSHI  #0x00000000
6801 @ 62406:               JUMPIF < L_000a
6802 @ 62410:               PUSH   JAMMY
6803 @ 62413:               PUSH   JAMMY
6804 @ 62416:               PUSHI  #0x00000001
6805 @ 62421:               OR    
6806 @ 62422:               ASSVAL
6807 @ 62423:               LOCATE L_000a

  1385        expfault(rangerr+point) %if item = 0 %and jammy < 2
6808 @ 62426:               LINE   1385 "regression-compile-tmp/chimps.imp"
6809 @ 62463:               PUSH   ITEM
6810 @ 62466:               PUSHI  #0x00000000
6811 @ 62471:               JUMPIF # L_000a
6812 @ 62475:               PUSH   JAMMY
6813 @ 62478:               PUSHI  #0x00000002
6814 @ 62483:               JUMPIF >= L_000a
6815 @ 62487:               PUSH   EXPFAULT
6816 @ 62490:               PUSHI  #0x0000000c
6817 @ 62495:               PUSHI  #0x00000040
6818 @ 62500:               ADD   
6819 @ 62501:               ASSPAR
6820 @ 62502:               CALL  
6821 @ 62503:               LOCATE L_000a

  1386      %finish
6822 @ 62506:               LINE   1386 "regression-compile-tmp/chimps.imp"
6823 @ 62543:               LOCATE L_0007

  1387      %return
6824 @ 62546:               LINE   1387 "regression-compile-tmp/chimps.imp"
6825 @ 62583:               RETURN

  1388    %else %if t_type = recy
6826 @ 62584:               LINE   1388 "regression-compile-tmp/chimps.imp"
6827 @ 62621:               LOCATE L_0004
6828 @ 62624:               PUSH   T
6829 @ 62627:               SELECT 2
6830 @ 62630:               PUSHI  #0x000007fa
6831 @ 62635:               JUMPIF # L_0004

  1389      %return %if t_extra = dp_extra
6832 @ 62639:               LINE   1389 "regression-compile-tmp/chimps.imp"
6833 @ 62676:               PUSH   T
6834 @ 62679:               SELECT 3
6835 @ 62682:               PUSH   DP
6836 @ 62685:               SELECT 3
6837 @ 62688:               JUMPIF # L_0007
6838 @ 62692:               RETURN
6839 @ 62693:               LOCATE L_0007

  1390      jammy = jammy!1 %and %return %if jammy >= 2
  1391      !partial assignment?
6840 @ 62696:               LINE   1390 "regression-compile-tmp/chimps.imp"
6841 @ 62733:               PUSH   JAMMY
6842 @ 62736:               PUSHI  #0x00000002
6843 @ 62741:               JUMPIF < L_0007
6844 @ 62745:               PUSH   JAMMY
6845 @ 62748:               PUSH   JAMMY
6846 @ 62751:               PUSHI  #0x00000001
6847 @ 62756:               OR    
6848 @ 62757:               ASSVAL
6849 @ 62758:               RETURN
6850 @ 62759:               LOCATE L_0007

  1392    %else %if t_type = realy
6851 @ 62762:               LINE   1392 "regression-compile-tmp/chimps.imp"
6852 @ 62799:               GOTO   L_0003
6853 @ 62802:               LOCATE L_0004
6854 @ 62805:               PUSH   T
6855 @ 62808:               SELECT 2
6856 @ 62811:               PUSHI  #0x000007fd
6857 @ 62816:               JUMPIF # L_0004

  1393      %return
6858 @ 62820:               LINE   1393 "regression-compile-tmp/chimps.imp"
6859 @ 62857:               RETURN

  1394    %finish
6860 @ 62858:               LINE   1394 "regression-compile-tmp/chimps.imp"
6861 @ 62895:               LOCATE L_0004
6862 @ 62898:               LOCATE L_0003

  1395    expfault(typerr+point)
6863 @ 62901:               LINE   1395 "regression-compile-tmp/chimps.imp"
6864 @ 62938:               PUSH   EXPFAULT
6865 @ 62941:               PUSHI  #0x00000006
6866 @ 62946:               PUSHI  #0x00000040
6867 @ 62951:               ADD   
6868 @ 62952:               ASSPAR
6869 @ 62953:               CALL  

  1396  %end;  !GET VALUE
  1397  !
6870 @ 62954:               LINE   1396 "regression-compile-tmp/chimps.imp"
6871 @ 62991:            END    _ECCECI_GETVALUE {lev=2 --> 1}

  1398  %routine GET LITERAL(%integer littype)
6872 @ 62992:            LINE   1398 "regression-compile-tmp/chimps.imp"
6873 @ 63029:            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
6874 @ 63051:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
6875 @ 63052:                  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
6876 @ 63071:               FINISH ) {lev=2}

  1399    literal = literal+1
6877 @ 63072:               LINE   1399 "regression-compile-tmp/chimps.imp"
6878 @ 63109:               PUSH   LITERAL
6879 @ 63112:               PUSH   LITERAL
6880 @ 63115:               PUSHI  #0x00000001
6881 @ 63120:               ADD   
6882 @ 63121:               ASSVAL

  1400    get VALUE(littype)
6883 @ 63122:               LINE   1400 "regression-compile-tmp/chimps.imp"
6884 @ 63159:               PUSH   GETVALUE
6885 @ 63162:               PUSH   LITTYPE
6886 @ 63165:               ASSPAR
6887 @ 63166:               CALL  

  1401    literal = literal-1
6888 @ 63167:               LINE   1401 "regression-compile-tmp/chimps.imp"
6889 @ 63204:               PUSH   LITERAL
6890 @ 63207:               PUSH   LITERAL
6891 @ 63210:               PUSHI  #0x00000001
6892 @ 63215:               SUB   
6893 @ 63216:               ASSVAL

  1402  %end
  1403  !
6894 @ 63217:               LINE   1402 "regression-compile-tmp/chimps.imp"
6895 @ 63254:            END    _ECCECI_GETLITERAL {lev=2 --> 1}

  1404  %routine GET LITINT
6896 @ 63255:            LINE   1404 "regression-compile-tmp/chimps.imp"
6897 @ 63292:            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
6898 @ 63313:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
6899 @ 63314:               FINISH ) {lev=2}

  1405    literal = literal+1
6900 @ 63315:               LINE   1405 "regression-compile-tmp/chimps.imp"
6901 @ 63352:               PUSH   LITERAL
6902 @ 63355:               PUSH   LITERAL
6903 @ 63358:               PUSHI  #0x00000001
6904 @ 63363:               ADD   
6905 @ 63364:               ASSVAL

  1406    get EXPRESSION(major,intok)
6906 @ 63365:               LINE   1406 "regression-compile-tmp/chimps.imp"
6907 @ 63402:               PUSH   GETEXPRESSION
6908 @ 63405:               PUSHI  #0x00000050
6909 @ 63410:               ASSPAR
6910 @ 63411:               PUSHI  #0x00000010
6911 @ 63416:               ASSPAR
6912 @ 63417:               CALL  

  1407    literal = literal-1
6913 @ 63418:               LINE   1407 "regression-compile-tmp/chimps.imp"
6914 @ 63455:               PUSH   LITERAL
6915 @ 63458:               PUSH   LITERAL
6916 @ 63461:               PUSHI  #0x00000001
6917 @ 63466:               SUB   
6918 @ 63467:               ASSVAL

  1408  %end
  1409  !
6919 @ 63468:               LINE   1408 "regression-compile-tmp/chimps.imp"
6920 @ 63505:            END    _ECCECI_GETLITINT {lev=2 --> 1}

  1410  %routine GET LITSTRING
6921 @ 63506:            LINE   1410 "regression-compile-tmp/chimps.imp"
6922 @ 63543:            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
6923 @ 63567:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
6924 @ 63568:               FINISH ) {lev=2}

  1411  %integer holditem
  1412  !Must be quoted string (for %alias and %include)
6925 @ 63569:               LINE   1411 "regression-compile-tmp/chimps.imp"
6926 @ 63606:               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

  1413    holditem = item;  !preserve
6927 @ 63626:               LINE   1413 "regression-compile-tmp/chimps.imp"
6928 @ 63663:               PUSH   HOLDITEM
6929 @ 63666:               PUSH   ITEM
6930 @ 63669:               ASSVAL

  1414    get(const)
6931 @ 63670:               LINE   1414 "regression-compile-tmp/chimps.imp"
6932 @ 63707:               PUSH   GET
6933 @ 63710:               PUSHI  #0x00000035
6934 @ 63715:               ASSPAR
6935 @ 63716:               CALL  

  1415    error(typerr+point) %if t_type # stringy
6936 @ 63717:               LINE   1415 "regression-compile-tmp/chimps.imp"
6937 @ 63754:               PUSH   T
6938 @ 63757:               SELECT 2
6939 @ 63760:               PUSHI  #0x000007fc
6940 @ 63765:               JUMPIF = L_0004
6941 @ 63769:               PUSH   ERROR
6942 @ 63772:               PUSHI  #0x00000006
6943 @ 63777:               PUSHI  #0x00000040
6944 @ 63782:               ADD   
6945 @ 63783:               ASSPAR
6946 @ 63784:               CALL  
6947 @ 63785:               LOCATE L_0004

  1416    item = holditem;  !restore
6948 @ 63788:               LINE   1416 "regression-compile-tmp/chimps.imp"
6949 @ 63825:               PUSH   ITEM
6950 @ 63828:               PUSH   HOLDITEM
6951 @ 63831:               ASSVAL

  1417  %end
  1418  !
6952 @ 63832:               LINE   1417 "regression-compile-tmp/chimps.imp"
6953 @ 63869:            END    _ECCECI_GETLITSTRING {lev=2 --> 1}

  1419  %routine GET PARMLIST
6954 @ 63870:            LINE   1419 "regression-compile-tmp/chimps.imp"
6955 @ 63907:            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
6956 @ 63930:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
6957 @ 63931:               FINISH ) {lev=2}

  1420  %record(identinfo)%name hp,dp
6958 @ 63932:               LINE   1420 "regression-compile-tmp/chimps.imp"
6959 @ 63969:               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
6960 @ 63983:               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

  1421  %integer i,j,headitem,headact,dpos,case,procnp,first
6961 @ 63997:               LINE   1421 "regression-compile-tmp/chimps.imp"
6962 @ 64034:               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
6963 @ 64047:               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
6964 @ 64060:               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
6965 @ 64080:               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
6966 @ 64099:               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
6967 @ 64115:               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
6968 @ 64131:               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
6969 @ 64149:               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

  1422    headitem = item;  hp == ditem
6970 @ 64166:               LINE   1422 "regression-compile-tmp/chimps.imp"
6971 @ 64203:               PUSH   HEADITEM
6972 @ 64206:               PUSH   ITEM
6973 @ 64209:               ASSVAL
6974 @ 64210:               LINE   1422 "regression-compile-tmp/chimps.imp"
6975 @ 64247:               PUSH   HP
6976 @ 64250:               PUSH   DITEM
6977 @ 64253:               ASSREF

  1423    headact = rcall
  1424    !stack procedure ident
  1425  !  procnp = np;  put3(headact,headitem,0)
6978 @ 64254:               LINE   1423 "regression-compile-tmp/chimps.imp"
6979 @ 64291:               PUSH   HEADACT
6980 @ 64294:               PUSHI  #0x0000006d
6981 @ 64299:               ASSVAL

  1426    i = 0;  first = 1
6982 @ 64300:               LINE   1426 "regression-compile-tmp/chimps.imp"
6983 @ 64337:               PUSH   I
6984 @ 64340:               PUSHI  #0x00000000
6985 @ 64345:               ASSVAL
6986 @ 64346:               LINE   1426 "regression-compile-tmp/chimps.imp"
6987 @ 64383:               PUSH   FIRST
6988 @ 64386:               PUSHI  #0x00000001
6989 @ 64391:               ASSVAL

  1427    dpos = headitem;  dp == hp
6990 @ 64392:               LINE   1427 "regression-compile-tmp/chimps.imp"
6991 @ 64429:               PUSH   DPOS
6992 @ 64432:               PUSH   HEADITEM
6993 @ 64435:               ASSVAL
6994 @ 64436:               LINE   1427 "regression-compile-tmp/chimps.imp"
6995 @ 64473:               PUSH   DP
6996 @ 64476:               PUSH   HP
6997 @ 64479:               ASSREF

  1428    %cycle
  1429    !Set up expression state from formal param details
6998 @ 64480:               LINE   1428 "regression-compile-tmp/chimps.imp"
6999 @ 64517:               LOCATE L_0003

  1430      error(toomany+point) %if dp_flags&more = 0
7000 @ 64520:               LINE   1430 "regression-compile-tmp/chimps.imp"
7001 @ 64557:               PUSH   DP
7002 @ 64560:               SELECT 1
7003 @ 64563:               PUSHI  #0x00000080
7004 @ 64568:               AND   
7005 @ 64569:               PUSHI  #0x00000000
7006 @ 64574:               JUMPIF # L_0007
7007 @ 64578:               PUSH   ERROR
7008 @ 64581:               PUSHI  #0x00000020
7009 @ 64586:               PUSHI  #0x00000040
7010 @ 64591:               ADD   
7011 @ 64592:               ASSPAR
7012 @ 64593:               CALL  
7013 @ 64594:               LOCATE L_0007

  1431      dpos = dpos+1 %and dp == dict(dpos) %until dp_flags&parm # 0
7014 @ 64597:               LINE   1431 "regression-compile-tmp/chimps.imp"
7015 @ 64634:               LOCATE L_0006
7016 @ 64637:               PUSH   DPOS
7017 @ 64640:               PUSH   DPOS
7018 @ 64643:               PUSHI  #0x00000001
7019 @ 64648:               ADD   
7020 @ 64649:               ASSVAL
7021 @ 64650:               PUSH   DP
7022 @ 64653:               PUSH   DICT
7023 @ 64656:               PUSH   DPOS
7024 @ 64659:               ACCESS
7025 @ 64660:               ASSREF
7026 @ 64661:               PUSH   DP
7027 @ 64664:               SELECT 1
7028 @ 64667:               PUSHI  #0x00000040
7029 @ 64672:               AND   
7030 @ 64673:               PUSHI  #0x00000000
7031 @ 64678:               JUMPIF # L_0007
7032 @ 64682:               REPEAT L_0006
7033 @ 64685:               LOCATE L_0007

  1432      %if dp_flags&proc # 0 %start
7034 @ 64688:               LINE   1432 "regression-compile-tmp/chimps.imp"
7035 @ 64725:               PUSH   DP
7036 @ 64728:               SELECT 1
7037 @ 64731:               PUSHI  #0x00000004
7038 @ 64736:               AND   
7039 @ 64737:               PUSHI  #0x00000000
7040 @ 64742:               JUMPIF = L_0007

  1433        get(ident)
7041 @ 64746:               LINE   1433 "regression-compile-tmp/chimps.imp"
7042 @ 64783:               PUSH   GET
7043 @ 64786:               PUSHI  #0x00000036
7044 @ 64791:               ASSPAR
7045 @ 64792:               CALL  

  1434        name error %if item <= 0
7046 @ 64793:               LINE   1434 "regression-compile-tmp/chimps.imp"
7047 @ 64830:               PUSH   ITEM
7048 @ 64833:               PUSHI  #0x00000000
7049 @ 64838:               JUMPIF > L_000a
7050 @ 64842:               PUSH   NAMEERROR
7051 @ 64845:               CALL  
7052 @ 64846:               LOCATE L_000a

  1435        fault(typerr+point) %if ditem_flags&proc = 0;  !for now
7053 @ 64849:               LINE   1435 "regression-compile-tmp/chimps.imp"
7054 @ 64886:               PUSH   DITEM
7055 @ 64889:               SELECT 1
7056 @ 64892:               PUSHI  #0x00000004
7057 @ 64897:               AND   
7058 @ 64898:               PUSHI  #0x00000000
7059 @ 64903:               JUMPIF # L_000a
7060 @ 64907:               PUSH   FAULT
7061 @ 64910:               PUSHI  #0x00000006
7062 @ 64915:               PUSHI  #0x00000040
7063 @ 64920:               ADD   
7064 @ 64921:               ASSPAR
7065 @ 64922:               CALL  
7066 @ 64923:               LOCATE L_000a

  1436        fault(caterr+point) %if item > headitem
7067 @ 64926:               LINE   1436 "regression-compile-tmp/chimps.imp"
7068 @ 64963:               PUSH   ITEM
7069 @ 64966:               PUSH   HEADITEM
7070 @ 64969:               JUMPIF <= L_000a
7071 @ 64973:               PUSH   FAULT
7072 @ 64976:               PUSHI  #0x00000003
7073 @ 64981:               PUSHI  #0x00000040
7074 @ 64986:               ADD   
7075 @ 64987:               ASSPAR
7076 @ 64988:               CALL  
7077 @ 64989:               LOCATE L_000a

  1437      %else %if dp_type < indirect;  !value
  1438  !      %if pp_type&numericmask # 0 %then case = i&7 %and i = i+1 %c
  1439  !      %else case = i>>3+8 %and i = i+8
7078 @ 64992:               LINE   1437 "regression-compile-tmp/chimps.imp"
7079 @ 65029:               GOTO   L_0006
7080 @ 65032:               LOCATE L_0007
7081 @ 65035:               PUSH   DP
7082 @ 65038:               SELECT 2
7083 @ 65041:               PUSHI  #0x00004000
7084 @ 65046:               JUMPIF >= L_0007

  1440        case = i&7;  i = i+1
7085 @ 65050:               LINE   1440 "regression-compile-tmp/chimps.imp"
7086 @ 65087:               PUSH   CASE
7087 @ 65090:               PUSH   I
7088 @ 65093:               PUSHI  #0x00000007
7089 @ 65098:               AND   
7090 @ 65099:               ASSVAL
7091 @ 65100:               LINE   1440 "regression-compile-tmp/chimps.imp"
7092 @ 65137:               PUSH   I
7093 @ 65140:               PUSH   I
7094 @ 65143:               PUSHI  #0x00000001
7095 @ 65148:               ADD   
7096 @ 65149:               ASSVAL

  1441        get VALUE(dp_type)
7097 @ 65150:               LINE   1441 "regression-compile-tmp/chimps.imp"
7098 @ 65187:               PUSH   GETVALUE
7099 @ 65190:               PUSH   DP
7100 @ 65193:               SELECT 2
7101 @ 65196:               ASSPAR
7102 @ 65197:               CALL  

  1442      %finish %else %start;  !name or proc
7103 @ 65198:               LINE   1442 "regression-compile-tmp/chimps.imp"
7104 @ 65235:               GOTO   L_0006
7105 @ 65238:               LOCATE L_0007

  1443        case = i>>3+8;  i = i+8
7106 @ 65241:               LINE   1443 "regression-compile-tmp/chimps.imp"
7107 @ 65278:               PUSH   CASE
7108 @ 65281:               PUSH   I
7109 @ 65284:               PUSHI  #0x00000003
7110 @ 65289:               RSH   
7111 @ 65290:               PUSHI  #0x00000008
7112 @ 65295:               ADD   
7113 @ 65296:               ASSVAL
7114 @ 65297:               LINE   1443 "regression-compile-tmp/chimps.imp"
7115 @ 65334:               PUSH   I
7116 @ 65337:               PUSH   I
7117 @ 65340:               PUSHI  #0x00000008
7118 @ 65345:               ADD   
7119 @ 65346:               ASSVAL

  1444        get REFERENCE(dp_type)
7120 @ 65347:               LINE   1444 "regression-compile-tmp/chimps.imp"
7121 @ 65384:               PUSH   GETREFERENCE
7122 @ 65387:               PUSH   DP
7123 @ 65390:               SELECT 2
7124 @ 65393:               ASSPAR
7125 @ 65394:               CALL  

  1445      %finish
  1446  !    case = case<<8+headact
  1447  !    item = litref(t_val) %if item = 0
  1448  !    j = np-1
  1449  !    %if first = 0 %start
  1450  !      j = np
  1451  !      !NB Don't re-order parameters for implicits
  1452  !      %if item >= expmin %and headitem > dnewline %start
  1453  !        %while j > procnp %and exp(j-1)_y < expmin %cycle
  1454  !          exp(j)_act = exp(j-1)_act;  exp(j)_y = exp(j-1)_y
  1455  !          j = j-1
  1456  !        %repeat
  1457  !      %finish
  1458  !      exp(np)_x = 0;  np = np+1
  1459  !    %finish
  1460  !    exp(j)_act =  case;  exp(j)_y = item
  1461  !    first = 0
7126 @ 65395:               LINE   1445 "regression-compile-tmp/chimps.imp"
7127 @ 65432:               LOCATE L_0006

  1462    %repeat %until %not a(comma)
  1463  !  %if hp_type # nulltype %start
  1464  !    i = explo
  1465  !    %while i <= expmax %cycle
  1466  !      %if exp(i)_x = headitem %start;  ![enough?]
  1467  !        item = i;  j = procnp
  1468  !        %cycle
  1469  !          %exit %if exp(i)_y # exp(j)_y
  1470  !          i = i+1;  j = j+1
  1471  !          ->okf %if j >= np
  1472  !        %repeat
  1473  !      %finish
  1474  !      i = i+1
  1475  !    %repeat
  1476  !    %cycle
  1477  !      explo = explo-1;  np = np-1
  1478  !      exp(explo) = exp(np)
  1479  !    %repeat %until np = procnp
7128 @ 65435:               LINE   1462 "regression-compile-tmp/chimps.imp"
7129 @ 65472:               PUSH   A
7130 @ 65475:               PUSHI  #0x0000003b
7131 @ 65480:               ASSPAR
7132 @ 65481:               CALL  
7133 @ 65482:               bf     L_0004
7134 @ 65485:               REPEAT L_0003
7135 @ 65488:               LOCATE L_0004

  1480      item = explo
  1481  !okf:np = procnp
  1482  !  %finish
7136 @ 65491:               LINE   1480 "regression-compile-tmp/chimps.imp"
7137 @ 65528:               PUSH   ITEM
7138 @ 65531:               PUSH   EXPLO
7139 @ 65534:               ASSVAL

  1483  %end;  !get PARMLIST
  1484  
7140 @ 65535:               LINE   1483 "regression-compile-tmp/chimps.imp"
7141 @ 65572:            END    _ECCECI_GETPARMLIST {lev=2 --> 1}

  1485  %routine GET RESOLUTION
7142 @ 65573:            LINE   1485 "regression-compile-tmp/chimps.imp"
7143 @ 65610:            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
7144 @ 65635:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
7145 @ 65636:               FINISH ) {lev=2}

  1486    %if %not a(left) %start
7146 @ 65637:               LINE   1486 "regression-compile-tmp/chimps.imp"
7147 @ 65674:               PUSH   A
7148 @ 65677:               PUSHI  #0x00000037
7149 @ 65682:               ASSPAR
7150 @ 65683:               CALL  
7151 @ 65684:               bt     L_0004

  1487      get REFERENCE(anystringvar)
7152 @ 65687:               LINE   1487 "regression-compile-tmp/chimps.imp"
7153 @ 65724:               PUSH   GETREFERENCE
7154 @ 65727:               PUSHI  #0x000047fc
7155 @ 65732:               ASSPAR
7156 @ 65733:               CALL  

  1488      get(dot)
7157 @ 65734:               LINE   1488 "regression-compile-tmp/chimps.imp"
7158 @ 65771:               PUSH   GET
7159 @ 65774:               PUSHI  #0x00000054
7160 @ 65779:               ASSPAR
7161 @ 65780:               CALL  

  1489      get(left)
7162 @ 65781:               LINE   1489 "regression-compile-tmp/chimps.imp"
7163 @ 65818:               PUSH   GET
7164 @ 65821:               PUSHI  #0x00000037
7165 @ 65826:               ASSPAR
7166 @ 65827:               CALL  

  1490    %finish
7167 @ 65828:               LINE   1490 "regression-compile-tmp/chimps.imp"
7168 @ 65865:               LOCATE L_0004

  1491    get VALUE(anystring)
7169 @ 65868:               LINE   1491 "regression-compile-tmp/chimps.imp"
7170 @ 65905:               PUSH   GETVALUE
7171 @ 65908:               PUSHI  #0x000027fc
7172 @ 65913:               ASSPAR
7173 @ 65914:               CALL  

  1492    get(right)
7174 @ 65915:               LINE   1492 "regression-compile-tmp/chimps.imp"
7175 @ 65952:               PUSH   GET
7176 @ 65955:               PUSHI  #0x0000003c
7177 @ 65960:               ASSPAR
7178 @ 65961:               CALL  

  1493    %if a(dot) %start
7179 @ 65962:               LINE   1493 "regression-compile-tmp/chimps.imp"
7180 @ 65999:               PUSH   A
7181 @ 66002:               PUSHI  #0x00000054
7182 @ 66007:               ASSPAR
7183 @ 66008:               CALL  
7184 @ 66009:               bf     L_0004

  1494      get REFERENCE(anystringvar)
7185 @ 66012:               LINE   1494 "regression-compile-tmp/chimps.imp"
7186 @ 66049:               PUSH   GETREFERENCE
7187 @ 66052:               PUSHI  #0x000047fc
7188 @ 66057:               ASSPAR
7189 @ 66058:               CALL  

  1495    %finish
7190 @ 66059:               LINE   1495 "regression-compile-tmp/chimps.imp"
7191 @ 66096:               LOCATE L_0004

  1496  %end
  1497  !
  1498  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1499  !
7192 @ 66099:               LINE   1496 "regression-compile-tmp/chimps.imp"
7193 @ 66136:            END    _ECCECI_GETRESOLUTION {lev=2 --> 1}

  1500  %routine GET EXPRESSION(%integer rank,control)
  1501  !Main expression recognition routine
  1502  !To bring together the treatment of all binary operators
  1503  ! and ensure fast recognition of simple expressions,
  1504  ! expressions of different levels are handled by
  1505  ! precedence techniques rather than syntactically
  1506  !CONTROL defines acceptability
7194 @ 66137:            LINE   1500 "regression-compile-tmp/chimps.imp"
7195 @ 66174:            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
7196 @ 66199:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
7197 @ 66200:                  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
7198 @ 66216:                  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
7199 @ 66235:               FINISH ) {lev=2}

  1507  %integer type,f,opok,c1,op,atomp1,item1
7200 @ 66236:               LINE   1507 "regression-compile-tmp/chimps.imp"
7201 @ 66273:               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
7202 @ 66289:               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
7203 @ 66302:               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
7204 @ 66318:               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
7205 @ 66332:               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
7206 @ 66346:               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
7207 @ 66364:               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

  1508  %record(objinfo) t1
7208 @ 66381:               LINE   1508 "regression-compile-tmp/chimps.imp"
7209 @ 66418:               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

  1509  %record(identinfo)%name dp
  1510  
7210 @ 66432:               LINE   1509 "regression-compile-tmp/chimps.imp"
7211 @ 66469:               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

  1511  %integerfn litval
7212 @ 66483:               LINE   1511 "regression-compile-tmp/chimps.imp"
7213 @ 66520:               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
7214 @ 66538:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
7215 @ 66539:                  FINISH ) {lev=3}

  1512  %switch lit(64:atommax)
7216 @ 66540:                  LINE   1512 "regression-compile-tmp/chimps.imp"
7217 @ 66577:                  PUSHI  #0x00000040
7218 @ 66582:                  PUSHI  #0x0000006b
7219 @ 66587:                  BOUNDS
7220 @ 66588:                  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

  1513    -> lit(op)
7221 @ 66603:                  LINE   1513 "regression-compile-tmp/chimps.imp"
7222 @ 66640:                  PUSH   OP
7223 @ 66643:                  SJUMP  279

  1514  lit(plus):    %result = t1_val+t_val
7224 @ 66646:                  LINE   1514 "regression-compile-tmp/chimps.imp"
7225 @ 66683:                  PUSHI  #0x00000050
7226 @ 66688:                  SLABEL 279
7227 @ 66691:                  LINE   1514 "regression-compile-tmp/chimps.imp"
7228 @ 66728:                  PUSH   T1
7229 @ 66731:                  SELECT 7
7230 @ 66734:                  PUSH   T
7231 @ 66737:                  SELECT 7
7232 @ 66740:                  ADD   
7233 @ 66741:                  RESULT

  1515  lit(minus):   %result = t1_val-t_val
7234 @ 66742:                  LINE   1515 "regression-compile-tmp/chimps.imp"
7235 @ 66779:                  PUSHI  #0x00000051
7236 @ 66784:                  SLABEL 279
7237 @ 66787:                  LINE   1515 "regression-compile-tmp/chimps.imp"
7238 @ 66824:                  PUSH   T1
7239 @ 66827:                  SELECT 7
7240 @ 66830:                  PUSH   T
7241 @ 66833:                  SELECT 7
7242 @ 66836:                  SUB   
7243 @ 66837:                  RESULT

  1516  lit(mult):    %result = t1_val*t_val
7244 @ 66838:                  LINE   1516 "regression-compile-tmp/chimps.imp"
7245 @ 66875:                  PUSHI  #0x00000058
7246 @ 66880:                  SLABEL 279
7247 @ 66883:                  LINE   1516 "regression-compile-tmp/chimps.imp"
7248 @ 66920:                  PUSH   T1
7249 @ 66923:                  SELECT 7
7250 @ 66926:                  PUSH   T
7251 @ 66929:                  SELECT 7
7252 @ 66932:                  MUL   
7253 @ 66933:                  RESULT

  1517  lit(idiv):    %result = t1_val//t_val %if t_val # 0
7254 @ 66934:                  LINE   1517 "regression-compile-tmp/chimps.imp"
7255 @ 66971:                  PUSHI  #0x0000005a
7256 @ 66976:                  SLABEL 279
7257 @ 66979:                  LINE   1517 "regression-compile-tmp/chimps.imp"
7258 @ 67016:                  PUSH   T
7259 @ 67019:                  SELECT 7
7260 @ 67022:                  PUSHI  #0x00000000
7261 @ 67027:                  JUMPIF = L_0004
7262 @ 67031:                  PUSH   T1
7263 @ 67034:                  SELECT 7
7264 @ 67037:                  PUSH   T
7265 @ 67040:                  SELECT 7
7266 @ 67043:                  QUOT  
7267 @ 67044:                  RESULT
7268 @ 67045:                  LOCATE L_0004

  1518                fault(rangerr)
7269 @ 67048:                  LINE   1518 "regression-compile-tmp/chimps.imp"
7270 @ 67085:                  PUSH   FAULT
7271 @ 67088:                  PUSHI  #0x0000000c
7272 @ 67093:                  ASSPAR
7273 @ 67094:                  CALL  

  1519                %result = 0
7274 @ 67095:                  LINE   1519 "regression-compile-tmp/chimps.imp"
7275 @ 67132:                  PUSHI  #0x00000000
7276 @ 67137:                  RESULT

  1520  lit(logand):
7277 @ 67138:                  LINE   1520 "regression-compile-tmp/chimps.imp"
7278 @ 67175:                  PUSHI  #0x0000005b
7279 @ 67180:                  SLABEL 279

  1521  lit(booland): %result = t1_val&t_val
7280 @ 67183:                  LINE   1521 "regression-compile-tmp/chimps.imp"
7281 @ 67220:                  PUSHI  #0x00000040
7282 @ 67225:                  SLABEL 279
7283 @ 67228:                  LINE   1521 "regression-compile-tmp/chimps.imp"
7284 @ 67265:                  PUSH   T1
7285 @ 67268:                  SELECT 7
7286 @ 67271:                  PUSH   T
7287 @ 67274:                  SELECT 7
7288 @ 67277:                  AND   
7289 @ 67278:                  RESULT

  1522  lit(logor):
7290 @ 67279:                  LINE   1522 "regression-compile-tmp/chimps.imp"
7291 @ 67316:                  PUSHI  #0x00000052
7292 @ 67321:                  SLABEL 279

  1523  lit(boolor):  %result = t1_val!t_val
7293 @ 67324:                  LINE   1523 "regression-compile-tmp/chimps.imp"
7294 @ 67361:                  PUSHI  #0x00000041
7295 @ 67366:                  SLABEL 279
7296 @ 67369:                  LINE   1523 "regression-compile-tmp/chimps.imp"
7297 @ 67406:                  PUSH   T1
7298 @ 67409:                  SELECT 7
7299 @ 67412:                  PUSH   T
7300 @ 67415:                  SELECT 7
7301 @ 67418:                  OR    
7302 @ 67419:                  RESULT

  1524  lit(logxor):  %result = t1_val!!t_val
7303 @ 67420:                  LINE   1524 "regression-compile-tmp/chimps.imp"
7304 @ 67457:                  PUSHI  #0x00000053
7305 @ 67462:                  SLABEL 279
7306 @ 67465:                  LINE   1524 "regression-compile-tmp/chimps.imp"
7307 @ 67502:                  PUSH   T1
7308 @ 67505:                  SELECT 7
7309 @ 67508:                  PUSH   T
7310 @ 67511:                  SELECT 7
7311 @ 67514:                  XOR   
7312 @ 67515:                  RESULT

  1525  lit(lshift):  %result = t1_val<<t_val
7313 @ 67516:                  LINE   1525 "regression-compile-tmp/chimps.imp"
7314 @ 67553:                  PUSHI  #0x00000064
7315 @ 67558:                  SLABEL 279
7316 @ 67561:                  LINE   1525 "regression-compile-tmp/chimps.imp"
7317 @ 67598:                  PUSH   T1
7318 @ 67601:                  SELECT 7
7319 @ 67604:                  PUSH   T
7320 @ 67607:                  SELECT 7
7321 @ 67610:                  LSH   
7322 @ 67611:                  RESULT

  1526  lit(rshift):  %result = t1_val>>t_val
7323 @ 67612:                  LINE   1526 "regression-compile-tmp/chimps.imp"
7324 @ 67649:                  PUSHI  #0x00000065
7325 @ 67654:                  SLABEL 279
7326 @ 67657:                  LINE   1526 "regression-compile-tmp/chimps.imp"
7327 @ 67694:                  PUSH   T1
7328 @ 67697:                  SELECT 7
7329 @ 67700:                  PUSH   T
7330 @ 67703:                  SELECT 7
7331 @ 67706:                  RSH   
7332 @ 67707:                  RESULT

  1527  lit(boolnot): %result = t_val!!true
7333 @ 67708:                  LINE   1527 "regression-compile-tmp/chimps.imp"
7334 @ 67745:                  PUSHI  #0x00000042
7335 @ 67750:                  SLABEL 279
7336 @ 67753:                  LINE   1527 "regression-compile-tmp/chimps.imp"
7337 @ 67790:                  PUSH   T
7338 @ 67793:                  SELECT 7
7339 @ 67796:                  PUSHI  #0x00000001
7340 @ 67801:                  XOR   
7341 @ 67802:                  RESULT

  1528  lit(lognot):  %result = \t_val
  1529  !lit(negate):  %result = -t_val
7342 @ 67803:                  LINE   1528 "regression-compile-tmp/chimps.imp"
7343 @ 67840:                  PUSHI  #0x00000066
7344 @ 67845:                  SLABEL 279
7345 @ 67848:                  LINE   1528 "regression-compile-tmp/chimps.imp"
7346 @ 67885:                  PUSH   T
7347 @ 67888:                  SELECT 7
7348 @ 67891:                  NOT   
7349 @ 67892:                  RESULT

  1530  lit(equals):  %result = true %if t1_val = t_val
7350 @ 67893:                  LINE   1530 "regression-compile-tmp/chimps.imp"
7351 @ 67930:                  PUSHI  #0x00000046
7352 @ 67935:                  SLABEL 279
7353 @ 67938:                  LINE   1530 "regression-compile-tmp/chimps.imp"
7354 @ 67975:                  PUSH   T1
7355 @ 67978:                  SELECT 7
7356 @ 67981:                  PUSH   T
7357 @ 67984:                  SELECT 7
7358 @ 67987:                  JUMPIF # L_0004
7359 @ 67991:                  PUSHI  #0x00000001
7360 @ 67996:                  RESULT
7361 @ 67997:                  LOCATE L_0004

  1531                %result = false
7362 @ 68000:                  LINE   1531 "regression-compile-tmp/chimps.imp"
7363 @ 68037:                  PUSHI  #0x00000000
7364 @ 68042:                  RESULT

  1532  lit(noteq):   %result = true %if t1_val # t_val
7365 @ 68043:                  LINE   1532 "regression-compile-tmp/chimps.imp"
7366 @ 68080:                  PUSHI  #0x00000047
7367 @ 68085:                  SLABEL 279
7368 @ 68088:                  LINE   1532 "regression-compile-tmp/chimps.imp"
7369 @ 68125:                  PUSH   T1
7370 @ 68128:                  SELECT 7
7371 @ 68131:                  PUSH   T
7372 @ 68134:                  SELECT 7
7373 @ 68137:                  JUMPIF = L_0004
7374 @ 68141:                  PUSHI  #0x00000001
7375 @ 68146:                  RESULT
7376 @ 68147:                  LOCATE L_0004

  1533                %result = false
7377 @ 68150:                  LINE   1533 "regression-compile-tmp/chimps.imp"
7378 @ 68187:                  PUSHI  #0x00000000
7379 @ 68192:                  RESULT

  1534  lit(lesseq):  %result = true %if t1_val <= t_val
7380 @ 68193:                  LINE   1534 "regression-compile-tmp/chimps.imp"
7381 @ 68230:                  PUSHI  #0x00000048
7382 @ 68235:                  SLABEL 279
7383 @ 68238:                  LINE   1534 "regression-compile-tmp/chimps.imp"
7384 @ 68275:                  PUSH   T1
7385 @ 68278:                  SELECT 7
7386 @ 68281:                  PUSH   T
7387 @ 68284:                  SELECT 7
7388 @ 68287:                  JUMPIF > L_0004
7389 @ 68291:                  PUSHI  #0x00000001
7390 @ 68296:                  RESULT
7391 @ 68297:                  LOCATE L_0004

  1535                %result = false
7392 @ 68300:                  LINE   1535 "regression-compile-tmp/chimps.imp"
7393 @ 68337:                  PUSHI  #0x00000000
7394 @ 68342:                  RESULT

  1536  lit(less):    %result = true %if t1_val < t_val
7395 @ 68343:                  LINE   1536 "regression-compile-tmp/chimps.imp"
7396 @ 68380:                  PUSHI  #0x00000049
7397 @ 68385:                  SLABEL 279
7398 @ 68388:                  LINE   1536 "regression-compile-tmp/chimps.imp"
7399 @ 68425:                  PUSH   T1
7400 @ 68428:                  SELECT 7
7401 @ 68431:                  PUSH   T
7402 @ 68434:                  SELECT 7
7403 @ 68437:                  JUMPIF >= L_0004
7404 @ 68441:                  PUSHI  #0x00000001
7405 @ 68446:                  RESULT
7406 @ 68447:                  LOCATE L_0004

  1537                %result = false
7407 @ 68450:                  LINE   1537 "regression-compile-tmp/chimps.imp"
7408 @ 68487:                  PUSHI  #0x00000000
7409 @ 68492:                  RESULT

  1538  lit(greateq): %result = true %if t1_val >= t_val
7410 @ 68493:                  LINE   1538 "regression-compile-tmp/chimps.imp"
7411 @ 68530:                  PUSHI  #0x0000004a
7412 @ 68535:                  SLABEL 279
7413 @ 68538:                  LINE   1538 "regression-compile-tmp/chimps.imp"
7414 @ 68575:                  PUSH   T1
7415 @ 68578:                  SELECT 7
7416 @ 68581:                  PUSH   T
7417 @ 68584:                  SELECT 7
7418 @ 68587:                  JUMPIF < L_0004
7419 @ 68591:                  PUSHI  #0x00000001
7420 @ 68596:                  RESULT
7421 @ 68597:                  LOCATE L_0004

  1539                %result = false
7422 @ 68600:                  LINE   1539 "regression-compile-tmp/chimps.imp"
7423 @ 68637:                  PUSHI  #0x00000000
7424 @ 68642:                  RESULT

  1540  lit(greater): %result = true %if t1_val > t_val
7425 @ 68643:                  LINE   1540 "regression-compile-tmp/chimps.imp"
7426 @ 68680:                  PUSHI  #0x0000004b
7427 @ 68685:                  SLABEL 279
7428 @ 68688:                  LINE   1540 "regression-compile-tmp/chimps.imp"
7429 @ 68725:                  PUSH   T1
7430 @ 68728:                  SELECT 7
7431 @ 68731:                  PUSH   T
7432 @ 68734:                  SELECT 7
7433 @ 68737:                  JUMPIF <= L_0004
7434 @ 68741:                  PUSHI  #0x00000001
7435 @ 68746:                  RESULT
7436 @ 68747:                  LOCATE L_0004

  1541                %result = false
7437 @ 68750:                  LINE   1541 "regression-compile-tmp/chimps.imp"
7438 @ 68787:                  PUSHI  #0x00000000
7439 @ 68792:                  RESULT

  1542  lit(concat):  %result = t1_val+t_val
7440 @ 68793:                  LINE   1542 "regression-compile-tmp/chimps.imp"
7441 @ 68830:                  PUSHI  #0x00000054
7442 @ 68835:                  SLABEL 279
7443 @ 68838:                  LINE   1542 "regression-compile-tmp/chimps.imp"
7444 @ 68875:                  PUSH   T1
7445 @ 68878:                  SELECT 7
7446 @ 68881:                  PUSH   T
7447 @ 68884:                  SELECT 7
7448 @ 68887:                  ADD   
7449 @ 68888:                  RESULT

  1543  lit(*):       !report(notwhat,-op)
7450 @ 68889:                  LINE   1543 "regression-compile-tmp/chimps.imp"
7451 @ 68926:                  DEFSW  279

  1544                %result = 1
7452 @ 68929:                  LINE   1544 "regression-compile-tmp/chimps.imp"
7453 @ 68966:                  PUSHI  #0x00000001
7454 @ 68971:                  RESULT

  1545  %end
  1546  
  1547  !Get leading operand
7455 @ 68972:                  LINE   1545 "regression-compile-tmp/chimps.imp"
7456 @ 69009:               END    _ECCECI_GETEXPRESSION_LITVAL {lev=3 --> 2}

  1548    atom = next atom %if matched # 0
7457 @ 69010:               LINE   1548 "regression-compile-tmp/chimps.imp"
7458 @ 69047:               PUSH   MATCHED
7459 @ 69050:               PUSHI  #0x00000000
7460 @ 69055:               JUMPIF = L_0004
7461 @ 69059:               PUSH   ATOM
7462 @ 69062:               PUSH   NEXTATOM
7463 @ 69065:               CALL  
7464 @ 69066:               ASSVAL
7465 @ 69067:               LOCATE L_0004

  1549    atomp1 = atomp;  !note position for reports
7466 @ 69070:               LINE   1549 "regression-compile-tmp/chimps.imp"
7467 @ 69107:               PUSH   ATOMP1
7468 @ 69110:               PUSH   ATOMP
7469 @ 69113:               ASSVAL

  1550    %if atom = ident %start
7470 @ 69114:               LINE   1550 "regression-compile-tmp/chimps.imp"
7471 @ 69151:               PUSH   ATOM
7472 @ 69154:               PUSHI  #0x00000036
7473 @ 69159:               JUMPIF # L_0004

  1551      matched = 1
7474 @ 69163:               LINE   1551 "regression-compile-tmp/chimps.imp"
7475 @ 69200:               PUSH   MATCHED
7476 @ 69203:               PUSHI  #0x00000001
7477 @ 69208:               ASSVAL

  1552      name error %if item <= 0
7478 @ 69209:               LINE   1552 "regression-compile-tmp/chimps.imp"
7479 @ 69246:               PUSH   ITEM
7480 @ 69249:               PUSHI  #0x00000000
7481 @ 69254:               JUMPIF > L_0007
7482 @ 69258:               PUSH   NAMEERROR
7483 @ 69261:               CALL  
7484 @ 69262:               LOCATE L_0007

  1553      fault(selfref+point) %if item >= dlim0
7485 @ 69265:               LINE   1553 "regression-compile-tmp/chimps.imp"
7486 @ 69302:               PUSH   ITEM
7487 @ 69305:               PUSH   DLIM0
7488 @ 69308:               JUMPIF < L_0007
7489 @ 69312:               PUSH   FAULT
7490 @ 69315:               PUSHI  #0x00000026
7491 @ 69320:               PUSHI  #0x00000040
7492 @ 69325:               ADD   
7493 @ 69326:               ASSPAR
7494 @ 69327:               CALL  
7495 @ 69328:               LOCATE L_0007

  1554      type = ditem_type
7496 @ 69331:               LINE   1554 "regression-compile-tmp/chimps.imp"
7497 @ 69368:               PUSH   TYPE
7498 @ 69371:               PUSH   DITEM
7499 @ 69374:               SELECT 2
7500 @ 69377:               ASSVAL

  1555      %if control&(refonly+varonly) # 0 %start
7501 @ 69378:               LINE   1555 "regression-compile-tmp/chimps.imp"
7502 @ 69415:               PUSH   CONTROL
7503 @ 69418:               PUSHI  #0x00000400
7504 @ 69423:               PUSHI  #0x00000800
7505 @ 69428:               ADD   
7506 @ 69429:               AND   
7507 @ 69430:               PUSHI  #0x00000000
7508 @ 69435:               JUMPIF = L_0007

  1556        error(nonvar+point) %if control&varonly # 0 %and f&var = 0
7509 @ 69439:               LINE   1556 "regression-compile-tmp/chimps.imp"
7510 @ 69476:               PUSH   CONTROL
7511 @ 69479:               PUSHI  #0x00000800
7512 @ 69484:               AND   
7513 @ 69485:               PUSHI  #0x00000000
7514 @ 69490:               JUMPIF = L_000a
7515 @ 69494:               PUSH   F
7516 @ 69497:               PUSHI  #0x00000001
7517 @ 69502:               AND   
7518 @ 69503:               PUSHI  #0x00000000
7519 @ 69508:               JUMPIF # L_000a
7520 @ 69512:               PUSH   ERROR
7521 @ 69515:               PUSHI  #0x0000001e
7522 @ 69520:               PUSHI  #0x00000040
7523 @ 69525:               ADD   
7524 @ 69526:               ASSPAR
7525 @ 69527:               CALL  
7526 @ 69528:               LOCATE L_000a

  1557        error(nonref+point) %if type < direct
7527 @ 69531:               LINE   1557 "regression-compile-tmp/chimps.imp"
7528 @ 69568:               PUSH   TYPE
7529 @ 69571:               PUSHI  #0x00002000
7530 @ 69576:               JUMPIF >= L_000a
7531 @ 69580:               PUSH   ERROR
7532 @ 69583:               PUSHI  #0x0000001f
7533 @ 69588:               PUSHI  #0x00000040
7534 @ 69593:               ADD   
7535 @ 69594:               ASSPAR
7536 @ 69595:               CALL  
7537 @ 69596:               LOCATE L_000a

  1558      %finish
7538 @ 69599:               LINE   1558 "regression-compile-tmp/chimps.imp"
7539 @ 69636:               LOCATE L_0007

  1559      f = ditem_flags
7540 @ 69639:               LINE   1559 "regression-compile-tmp/chimps.imp"
7541 @ 69676:               PUSH   F
7542 @ 69679:               PUSH   DITEM
7543 @ 69682:               SELECT 1
7544 @ 69685:               ASSVAL

  1560      %if inty <= type <= booltype %and f&proc = 0 %start;  !literal
7545 @ 69686:               LINE   1560 "regression-compile-tmp/chimps.imp"
7546 @ 69723:               PUSHI  #0x000007fe
7547 @ 69728:               PUSH   TYPE
7548 @ 69731:               JUMPIFD > L_0007
7549 @ 69735:               PUSHI  #0x00000800
7550 @ 69740:               JUMPIF > L_0007
7551 @ 69744:               PUSH   F
7552 @ 69747:               PUSHI  #0x00000004
7553 @ 69752:               AND   
7554 @ 69753:               PUSHI  #0x00000000
7555 @ 69758:               JUMPIF # L_0007

  1561        item = 0;  t = ditem_details
7556 @ 69762:               LINE   1561 "regression-compile-tmp/chimps.imp"
7557 @ 69799:               PUSH   ITEM
7558 @ 69802:               PUSHI  #0x00000000
7559 @ 69807:               ASSVAL
7560 @ 69808:               LINE   1561 "regression-compile-tmp/chimps.imp"
7561 @ 69845:               PUSH   T
7562 @ 69848:               PUSH   DITEM
7563 @ 69851:               SELECT 8
7564 @ 69854:               ASSVAL

  1562      %else
7565 @ 69855:               LINE   1562 "regression-compile-tmp/chimps.imp"
7566 @ 69892:               GOTO   L_0006
7567 @ 69895:               LOCATE L_0007

  1563        fault(nonliteral+point) %if literal > 0
7568 @ 69898:               LINE   1563 "regression-compile-tmp/chimps.imp"
7569 @ 69935:               PUSH   LITERAL
7570 @ 69938:               PUSHI  #0x00000000
7571 @ 69943:               JUMPIF <= L_000a
7572 @ 69947:               PUSH   FAULT
7573 @ 69950:               PUSHI  #0x0000000d
7574 @ 69955:               PUSHI  #0x00000040
7575 @ 69960:               ADD   
7576 @ 69961:               ASSPAR
7577 @ 69962:               CALL  
7578 @ 69963:               LOCATE L_000a

  1564        %if f&proc # 0 %start
7579 @ 69966:               LINE   1564 "regression-compile-tmp/chimps.imp"
7580 @ 70003:               PUSH   F
7581 @ 70006:               PUSHI  #0x00000004
7582 @ 70011:               AND   
7583 @ 70012:               PUSHI  #0x00000000
7584 @ 70017:               JUMPIF = L_000a

  1565          ditem == dict(type) %and type = ditem_type %if f&parm # 0
7585 @ 70021:               LINE   1565 "regression-compile-tmp/chimps.imp"
7586 @ 70058:               PUSH   F
7587 @ 70061:               PUSHI  #0x00000040
7588 @ 70066:               AND   
7589 @ 70067:               PUSHI  #0x00000000
7590 @ 70072:               JUMPIF = L_000d
7591 @ 70076:               PUSH   DITEM
7592 @ 70079:               PUSH   DICT
7593 @ 70082:               PUSH   TYPE
7594 @ 70085:               ACCESS
7595 @ 70086:               ASSREF
7596 @ 70087:               PUSH   TYPE
7597 @ 70090:               PUSH   DITEM
7598 @ 70093:               SELECT 2
7599 @ 70096:               ASSVAL
7600 @ 70097:               LOCATE L_000d

  1566          error(caterr+point) %if type = nulltype;  !routine
7601 @ 70100:               LINE   1566 "regression-compile-tmp/chimps.imp"
7602 @ 70137:               PUSH   TYPE
7603 @ 70140:               PUSHI  #0x000007f9
7604 @ 70145:               JUMPIF # L_000d
7605 @ 70149:               PUSH   ERROR
7606 @ 70152:               PUSHI  #0x00000003
7607 @ 70157:               PUSHI  #0x00000040
7608 @ 70162:               ADD   
7609 @ 70163:               ASSPAR
7610 @ 70164:               CALL  
7611 @ 70165:               LOCATE L_000d

  1567          %if a(left) %start
7612 @ 70168:               LINE   1567 "regression-compile-tmp/chimps.imp"
7613 @ 70205:               PUSH   A
7614 @ 70208:               PUSHI  #0x00000037
7615 @ 70213:               ASSPAR
7616 @ 70214:               CALL  
7617 @ 70215:               bf     L_000d

  1568            dp == ditem
7618 @ 70218:               LINE   1568 "regression-compile-tmp/chimps.imp"
7619 @ 70255:               PUSH   DP
7620 @ 70258:               PUSH   DITEM
7621 @ 70261:               ASSREF

  1569            get PARMLIST;  get(right)
7622 @ 70262:               LINE   1569 "regression-compile-tmp/chimps.imp"
7623 @ 70299:               PUSH   GETPARMLIST
7624 @ 70302:               CALL  
7625 @ 70303:               LINE   1569 "regression-compile-tmp/chimps.imp"
7626 @ 70340:               PUSH   GET
7627 @ 70343:               PUSHI  #0x0000003c
7628 @ 70348:               ASSPAR
7629 @ 70349:               CALL  

  1570            ditem == dp
7630 @ 70350:               LINE   1570 "regression-compile-tmp/chimps.imp"
7631 @ 70387:               PUSH   DITEM
7632 @ 70390:               PUSH   DP
7633 @ 70393:               ASSREF

  1571          %else
7634 @ 70394:               LINE   1571 "regression-compile-tmp/chimps.imp"
7635 @ 70431:               GOTO   L_000c
7636 @ 70434:               LOCATE L_000d

  1572            error(toofew+point) %if ditem_flags&more # 0
7637 @ 70437:               LINE   1572 "regression-compile-tmp/chimps.imp"
7638 @ 70474:               PUSH   DITEM
7639 @ 70477:               SELECT 1
7640 @ 70480:               PUSHI  #0x00000080
7641 @ 70485:               AND   
7642 @ 70486:               PUSHI  #0x00000000
7643 @ 70491:               JUMPIF = L_0010
7644 @ 70495:               PUSH   ERROR
7645 @ 70498:               PUSHI  #0x00000021
7646 @ 70503:               PUSHI  #0x00000040
7647 @ 70508:               ADD   
7648 @ 70509:               ASSPAR
7649 @ 70510:               CALL  
7650 @ 70511:               LOCATE L_0010

  1573            item = explo;!expref(f&var+fcall,item,0)
7651 @ 70514:               LINE   1573 "regression-compile-tmp/chimps.imp"
7652 @ 70551:               PUSH   ITEM
7653 @ 70554:               PUSH   EXPLO
7654 @ 70557:               ASSVAL

  1574          %finish
7655 @ 70558:               LINE   1574 "regression-compile-tmp/chimps.imp"
7656 @ 70595:               LOCATE L_000c

  1575        %finish
7657 @ 70598:               LINE   1575 "regression-compile-tmp/chimps.imp"
7658 @ 70635:               LOCATE L_000a

  1576        %cycle
7659 @ 70638:               LINE   1576 "regression-compile-tmp/chimps.imp"
7660 @ 70675:               LOCATE L_0009

  1577          dp == dict(type&puretype);  t = dp_details
7661 @ 70678:               LINE   1577 "regression-compile-tmp/chimps.imp"
7662 @ 70715:               PUSH   DP
7663 @ 70718:               PUSH   DICT
7664 @ 70721:               PUSH   TYPE
7665 @ 70724:               PUSHI  #0x00001fff
7666 @ 70729:               AND   
7667 @ 70730:               ACCESS
7668 @ 70731:               ASSREF
7669 @ 70732:               LINE   1577 "regression-compile-tmp/chimps.imp"
7670 @ 70769:               PUSH   T
7671 @ 70772:               PUSH   DP
7672 @ 70775:               SELECT 8
7673 @ 70778:               ASSVAL

  1578          atom = next atom %if matched # 0
7674 @ 70779:               LINE   1578 "regression-compile-tmp/chimps.imp"
7675 @ 70816:               PUSH   MATCHED
7676 @ 70819:               PUSHI  #0x00000000
7677 @ 70824:               JUMPIF = L_000d
7678 @ 70828:               PUSH   ATOM
7679 @ 70831:               PUSH   NEXTATOM
7680 @ 70834:               CALL  
7681 @ 70835:               ASSVAL
7682 @ 70836:               LOCATE L_000d

  1579          %exit %if atom # underline %and atom # left
7683 @ 70839:               LINE   1579 "regression-compile-tmp/chimps.imp"
7684 @ 70876:               PUSH   ATOM
7685 @ 70879:               PUSHI  #0x00000038
7686 @ 70884:               JUMPIF = L_000d
7687 @ 70888:               PUSH   ATOM
7688 @ 70891:               PUSHI  #0x00000037
7689 @ 70896:               JUMPIF = L_000d
7690 @ 70900:               GOTO   L_000a
7691 @ 70903:               LOCATE L_000d

  1580          matched = 1
7692 @ 70906:               LINE   1580 "regression-compile-tmp/chimps.imp"
7693 @ 70943:               PUSH   MATCHED
7694 @ 70946:               PUSHI  #0x00000001
7695 @ 70951:               ASSVAL

  1581          item1 = item
7696 @ 70952:               LINE   1581 "regression-compile-tmp/chimps.imp"
7697 @ 70989:               PUSH   ITEM1
7698 @ 70992:               PUSH   ITEM
7699 @ 70995:               ASSVAL

  1582          %if atom = left %start
7700 @ 70996:               LINE   1582 "regression-compile-tmp/chimps.imp"
7701 @ 71033:               PUSH   ATOM
7702 @ 71036:               PUSHI  #0x00000037
7703 @ 71041:               JUMPIF # L_000d

  1583            %cycle
7704 @ 71045:               LINE   1583 "regression-compile-tmp/chimps.imp"
7705 @ 71082:               LOCATE L_000f

  1584              syntax error %if t_type < direct;  !element type
7706 @ 71085:               LINE   1584 "regression-compile-tmp/chimps.imp"
7707 @ 71122:               PUSH   T
7708 @ 71125:               SELECT 2
7709 @ 71128:               PUSHI  #0x00002000
7710 @ 71133:               JUMPIF >= L_0013
7711 @ 71137:               PUSH   SYNTAXERROR
7712 @ 71140:               CALL  
7713 @ 71141:               LOCATE L_0013

  1585              type = t_type
7714 @ 71144:               LINE   1585 "regression-compile-tmp/chimps.imp"
7715 @ 71181:               PUSH   TYPE
7716 @ 71184:               PUSH   T
7717 @ 71187:               SELECT 2
7718 @ 71190:               ASSVAL

  1586              get VALUE(t_val);  !index
7719 @ 71191:               LINE   1586 "regression-compile-tmp/chimps.imp"
7720 @ 71228:               PUSH   GETVALUE
7721 @ 71231:               PUSH   T
7722 @ 71234:               SELECT 7
7723 @ 71237:               ASSPAR
7724 @ 71238:               CALL  

  1587              item = explo;!expref(aref,item1,item,t_val)
7725 @ 71239:               LINE   1587 "regression-compile-tmp/chimps.imp"
7726 @ 71276:               PUSH   ITEM
7727 @ 71279:               PUSH   EXPLO
7728 @ 71282:               ASSVAL

  1588              ditem == dp
7729 @ 71283:               LINE   1588 "regression-compile-tmp/chimps.imp"
7730 @ 71320:               PUSH   DITEM
7731 @ 71323:               PUSH   DP
7732 @ 71326:               ASSREF

  1589              %exit %if %not a(comma)
7733 @ 71327:               LINE   1589 "regression-compile-tmp/chimps.imp"
7734 @ 71364:               PUSH   A
7735 @ 71367:               PUSHI  #0x0000003b
7736 @ 71372:               ASSPAR
7737 @ 71373:               CALL  
7738 @ 71374:               bt     L_0013
7739 @ 71377:               GOTO   L_0010
7740 @ 71380:               LOCATE L_0013

  1590              dp == dict(type&puretype);  t = dp_details
7741 @ 71383:               LINE   1590 "regression-compile-tmp/chimps.imp"
7742 @ 71420:               PUSH   DP
7743 @ 71423:               PUSH   DICT
7744 @ 71426:               PUSH   TYPE
7745 @ 71429:               PUSHI  #0x00001fff
7746 @ 71434:               AND   
7747 @ 71435:               ACCESS
7748 @ 71436:               ASSREF
7749 @ 71437:               LINE   1590 "regression-compile-tmp/chimps.imp"
7750 @ 71474:               PUSH   T
7751 @ 71477:               PUSH   DP
7752 @ 71480:               SELECT 8
7753 @ 71483:               ASSVAL

  1591              item1 = item
7754 @ 71484:               LINE   1591 "regression-compile-tmp/chimps.imp"
7755 @ 71521:               PUSH   ITEM1
7756 @ 71524:               PUSH   ITEM
7757 @ 71527:               ASSVAL

  1592            %repeat
7758 @ 71528:               LINE   1592 "regression-compile-tmp/chimps.imp"
7759 @ 71565:               REPEAT L_000f
7760 @ 71568:               LOCATE L_0010

  1593            get(right)
7761 @ 71571:               LINE   1593 "regression-compile-tmp/chimps.imp"
7762 @ 71608:               PUSH   GET
7763 @ 71611:               PUSHI  #0x0000003c
7764 @ 71616:               ASSPAR
7765 @ 71617:               CALL  

  1594          %else;  !rec subfield
7766 @ 71618:               LINE   1594 "regression-compile-tmp/chimps.imp"
7767 @ 71655:               GOTO   L_000c
7768 @ 71658:               LOCATE L_000d

  1595            syntax error %if t_type # recy
7769 @ 71661:               LINE   1595 "regression-compile-tmp/chimps.imp"
7770 @ 71698:               PUSH   T
7771 @ 71701:               SELECT 2
7772 @ 71704:               PUSHI  #0x000007fa
7773 @ 71709:               JUMPIF = L_0010
7774 @ 71713:               PUSH   SYNTAXERROR
7775 @ 71716:               CALL  
7776 @ 71717:               LOCATE L_0010

  1596            get(ident)
7777 @ 71720:               LINE   1596 "regression-compile-tmp/chimps.imp"
7778 @ 71757:               PUSH   GET
7779 @ 71760:               PUSHI  #0x00000036
7780 @ 71765:               ASSPAR
7781 @ 71766:               CALL  

  1597            lookup field ident(t_extra)
7782 @ 71767:               LINE   1597 "regression-compile-tmp/chimps.imp"
7783 @ 71804:               PUSH   LOOKUPFIELDIDENT
7784 @ 71807:               PUSH   T
7785 @ 71810:               SELECT 3
7786 @ 71813:               ASSPAR
7787 @ 71814:               CALL  

  1598            error(namerr+point) %if item <= 0
7788 @ 71815:               LINE   1598 "regression-compile-tmp/chimps.imp"
7789 @ 71852:               PUSH   ITEM
7790 @ 71855:               PUSHI  #0x00000000
7791 @ 71860:               JUMPIF > L_0010
7792 @ 71864:               PUSH   ERROR
7793 @ 71867:               PUSHI  #0x00000002
7794 @ 71872:               PUSHI  #0x00000040
7795 @ 71877:               ADD   
7796 @ 71878:               ASSPAR
7797 @ 71879:               CALL  
7798 @ 71880:               LOCATE L_0010

  1599            type = ditem_type
7799 @ 71883:               LINE   1599 "regression-compile-tmp/chimps.imp"
7800 @ 71920:               PUSH   TYPE
7801 @ 71923:               PUSH   DITEM
7802 @ 71926:               SELECT 2
7803 @ 71929:               ASSVAL

  1600            item = explo;!expref(recref,item,item1)
7804 @ 71930:               LINE   1600 "regression-compile-tmp/chimps.imp"
7805 @ 71967:               PUSH   ITEM
7806 @ 71970:               PUSH   EXPLO
7807 @ 71973:               ASSVAL

  1601          %finish
7808 @ 71974:               LINE   1601 "regression-compile-tmp/chimps.imp"
7809 @ 72011:               LOCATE L_000c

  1602        %repeat
7810 @ 72014:               LINE   1602 "regression-compile-tmp/chimps.imp"
7811 @ 72051:               REPEAT L_0009
7812 @ 72054:               LOCATE L_000a

  1603        -> final %if control&(varonly+refonly) # 0
7813 @ 72057:               LINE   1603 "regression-compile-tmp/chimps.imp"
7814 @ 72094:               PUSH   CONTROL
7815 @ 72097:               PUSHI  #0x00000800
7816 @ 72102:               PUSHI  #0x00000400
7817 @ 72107:               ADD   
7818 @ 72108:               AND   
7819 @ 72109:               PUSHI  #0x00000000
7820 @ 72114:               JUMPIF = L_000a
7821 @ 72118:               JUMP   L_0117
7822 @ 72121:               LOCATE L_000a

  1604      %finish
7823 @ 72124:               LINE   1604 "regression-compile-tmp/chimps.imp"
7824 @ 72161:               LOCATE L_0006

  1605    %else
7825 @ 72164:               LINE   1605 "regression-compile-tmp/chimps.imp"
7826 @ 72201:               GOTO   L_0003
7827 @ 72204:               LOCATE L_0004

  1606      error(nonvar+point) %if control&varonly # 0
7828 @ 72207:               LINE   1606 "regression-compile-tmp/chimps.imp"
7829 @ 72244:               PUSH   CONTROL
7830 @ 72247:               PUSHI  #0x00000800
7831 @ 72252:               AND   
7832 @ 72253:               PUSHI  #0x00000000
7833 @ 72258:               JUMPIF = L_0007
7834 @ 72262:               PUSH   ERROR
7835 @ 72265:               PUSHI  #0x0000001e
7836 @ 72270:               PUSHI  #0x00000040
7837 @ 72275:               ADD   
7838 @ 72276:               ASSPAR
7839 @ 72277:               CALL  
7840 @ 72278:               LOCATE L_0007

  1607      error(nonref+point) %if control&refonly # 0
7841 @ 72281:               LINE   1607 "regression-compile-tmp/chimps.imp"
7842 @ 72318:               PUSH   CONTROL
7843 @ 72321:               PUSHI  #0x00000400
7844 @ 72326:               AND   
7845 @ 72327:               PUSHI  #0x00000000
7846 @ 72332:               JUMPIF = L_0007
7847 @ 72336:               PUSH   ERROR
7848 @ 72339:               PUSHI  #0x0000001f
7849 @ 72344:               PUSHI  #0x00000040
7850 @ 72349:               ADD   
7851 @ 72350:               ASSPAR
7852 @ 72351:               CALL  
7853 @ 72352:               LOCATE L_0007

  1608      %if a(const) %start
7854 @ 72355:               LINE   1608 "regression-compile-tmp/chimps.imp"
7855 @ 72392:               PUSH   A
7856 @ 72395:               PUSHI  #0x00000035
7857 @ 72400:               ASSPAR
7858 @ 72401:               CALL  
7859 @ 72402:               bf     L_0007

  1609      %else %if atom = minus;  !leave unmatched
7860 @ 72405:               LINE   1609 "regression-compile-tmp/chimps.imp"
7861 @ 72442:               GOTO   L_0006
7862 @ 72445:               LOCATE L_0007
7863 @ 72448:               PUSH   ATOM
7864 @ 72451:               PUSHI  #0x00000051
7865 @ 72456:               JUMPIF # L_0007

  1610        item = 0;  t = 0;  t_type = inty
7866 @ 72460:               LINE   1610 "regression-compile-tmp/chimps.imp"
7867 @ 72497:               PUSH   ITEM
7868 @ 72500:               PUSHI  #0x00000000
7869 @ 72505:               ASSVAL
7870 @ 72506:               LINE   1610 "regression-compile-tmp/chimps.imp"
7871 @ 72543:               PUSH   T
7872 @ 72546:               PUSHI  #0x00000000
7873 @ 72551:               ASSVAL
7874 @ 72552:               LINE   1610 "regression-compile-tmp/chimps.imp"
7875 @ 72589:               PUSH   T
7876 @ 72592:               SELECT 2
7877 @ 72595:               PUSHI  #0x000007fe
7878 @ 72600:               ASSVAL

  1611      %else %if a(left)
7879 @ 72601:               LINE   1611 "regression-compile-tmp/chimps.imp"
7880 @ 72638:               GOTO   L_0006
7881 @ 72641:               LOCATE L_0007
7882 @ 72644:               PUSH   A
7883 @ 72647:               PUSHI  #0x00000037
7884 @ 72652:               ASSPAR
7885 @ 72653:               CALL  
7886 @ 72654:               bf     L_0007

  1612        %if rank < major %start;  !condition
7887 @ 72657:               LINE   1612 "regression-compile-tmp/chimps.imp"
7888 @ 72694:               PUSH   RANK
7889 @ 72697:               PUSHI  #0x00000050
7890 @ 72702:               JUMPIF >= L_000a

  1613          get EXPRESSION(cond,any)
7891 @ 72706:               LINE   1613 "regression-compile-tmp/chimps.imp"
7892 @ 72743:               PUSH   GETEXPRESSION
7893 @ 72746:               PUSHI  #0x00000040
7894 @ 72751:               ASSPAR
7895 @ 72752:               PUSHI  #0x000000ff
7896 @ 72757:               ASSPAR
7897 @ 72758:               CALL  

  1614        %finish %else %start
7898 @ 72759:               LINE   1614 "regression-compile-tmp/chimps.imp"
7899 @ 72796:               GOTO   L_0009
7900 @ 72799:               LOCATE L_000a

  1615          jammy = jammy-4
7901 @ 72802:               LINE   1615 "regression-compile-tmp/chimps.imp"
7902 @ 72839:               PUSH   JAMMY
7903 @ 72842:               PUSH   JAMMY
7904 @ 72845:               PUSHI  #0x00000004
7905 @ 72850:               SUB   
7906 @ 72851:               ASSVAL

  1616          c1 = control;  c1 = c1!intok %if c1&realok # 0
7907 @ 72852:               LINE   1616 "regression-compile-tmp/chimps.imp"
7908 @ 72889:               PUSH   C1
7909 @ 72892:               PUSH   CONTROL
7910 @ 72895:               ASSVAL
7911 @ 72896:               LINE   1616 "regression-compile-tmp/chimps.imp"
7912 @ 72933:               PUSH   C1
7913 @ 72936:               PUSHI  #0x00000008
7914 @ 72941:               AND   
7915 @ 72942:               PUSHI  #0x00000000
7916 @ 72947:               JUMPIF = L_000d
7917 @ 72951:               PUSH   C1
7918 @ 72954:               PUSH   C1
7919 @ 72957:               PUSHI  #0x00000010
7920 @ 72962:               OR    
7921 @ 72963:               ASSVAL
7922 @ 72964:               LOCATE L_000d

  1617          get EXPRESSION(major,c1)
7923 @ 72967:               LINE   1617 "regression-compile-tmp/chimps.imp"
7924 @ 73004:               PUSH   GETEXPRESSION
7925 @ 73007:               PUSHI  #0x00000050
7926 @ 73012:               ASSPAR
7927 @ 73013:               PUSH   C1
7928 @ 73016:               ASSPAR
7929 @ 73017:               CALL  

  1618          jammy = jammy+4
7930 @ 73018:               LINE   1618 "regression-compile-tmp/chimps.imp"
7931 @ 73055:               PUSH   JAMMY
7932 @ 73058:               PUSH   JAMMY
7933 @ 73061:               PUSHI  #0x00000004
7934 @ 73066:               ADD   
7935 @ 73067:               ASSVAL

  1619        %finish
7936 @ 73068:               LINE   1619 "regression-compile-tmp/chimps.imp"
7937 @ 73105:               LOCATE L_0009

  1620        get(right)
7938 @ 73108:               LINE   1620 "regression-compile-tmp/chimps.imp"
7939 @ 73145:               PUSH   GET
7940 @ 73148:               PUSHI  #0x0000003c
7941 @ 73153:               ASSPAR
7942 @ 73154:               CALL  

  1621      %else %if a(keynot)
7943 @ 73155:               LINE   1621 "regression-compile-tmp/chimps.imp"
7944 @ 73192:               GOTO   L_0006
7945 @ 73195:               LOCATE L_0007
7946 @ 73198:               PUSH   A
7947 @ 73201:               PUSHI  #0x0000002f
7948 @ 73206:               ASSPAR
7949 @ 73207:               CALL  
7950 @ 73208:               bf     L_0007

  1622        syntax error %if rank >= major
7951 @ 73211:               LINE   1622 "regression-compile-tmp/chimps.imp"
7952 @ 73248:               PUSH   RANK
7953 @ 73251:               PUSHI  #0x00000050
7954 @ 73256:               JUMPIF < L_000a
7955 @ 73260:               PUSH   SYNTAXERROR
7956 @ 73263:               CALL  
7957 @ 73264:               LOCATE L_000a

  1623        get EXPRESSION(scond,any)
7958 @ 73267:               LINE   1623 "regression-compile-tmp/chimps.imp"
7959 @ 73304:               PUSH   GETEXPRESSION
7960 @ 73307:               PUSHI  #0x00000046
7961 @ 73312:               ASSPAR
7962 @ 73313:               PUSHI  #0x000000ff
7963 @ 73318:               ASSPAR
7964 @ 73319:               CALL  

  1624        %if item = 0 %then t_val = t_val!!true %c
  1625        %else item = explo;!expref(boolnot,item,0)
7965 @ 73320:               LINE   1624 "regression-compile-tmp/chimps.imp"
7966 @ 73357:               PUSH   ITEM
7967 @ 73360:               PUSHI  #0x00000000
7968 @ 73365:               JUMPIF # L_000a
7969 @ 73369:               PUSH   T
7970 @ 73372:               SELECT 7
7971 @ 73375:               PUSH   T
7972 @ 73378:               SELECT 7
7973 @ 73381:               PUSHI  #0x00000001
7974 @ 73386:               XOR   
7975 @ 73387:               ASSVAL
7976 @ 73388:               GOTO   L_0009
7977 @ 73391:               LOCATE L_000a
7978 @ 73394:               PUSH   ITEM
7979 @ 73397:               PUSH   EXPLO
7980 @ 73400:               ASSVAL
7981 @ 73401:               LOCATE L_0009

  1626      %else %if atom = backslash
7982 @ 73404:               LINE   1626 "regression-compile-tmp/chimps.imp"
7983 @ 73441:               GOTO   L_0006
7984 @ 73444:               LOCATE L_0007
7985 @ 73447:               PUSH   ATOM
7986 @ 73450:               PUSHI  #0x00000060
7987 @ 73455:               JUMPIF # L_0007

  1627        item = 0;  t = 0;  t_type = inty
7988 @ 73459:               LINE   1627 "regression-compile-tmp/chimps.imp"
7989 @ 73496:               PUSH   ITEM
7990 @ 73499:               PUSHI  #0x00000000
7991 @ 73504:               ASSVAL
7992 @ 73505:               LINE   1627 "regression-compile-tmp/chimps.imp"
7993 @ 73542:               PUSH   T
7994 @ 73545:               PUSHI  #0x00000000
7995 @ 73550:               ASSVAL
7996 @ 73551:               LINE   1627 "regression-compile-tmp/chimps.imp"
7997 @ 73588:               PUSH   T
7998 @ 73591:               SELECT 2
7999 @ 73594:               PUSHI  #0x000007fe
8000 @ 73599:               ASSVAL

  1628        atom = tilde
8001 @ 73600:               LINE   1628 "regression-compile-tmp/chimps.imp"
8002 @ 73637:               PUSH   ATOM
8003 @ 73640:               PUSHI  #0x00000066
8004 @ 73645:               ASSVAL

  1629      %else %if a(modsign)
8005 @ 73646:               LINE   1629 "regression-compile-tmp/chimps.imp"
8006 @ 73683:               GOTO   L_0006
8007 @ 73686:               LOCATE L_0007
8008 @ 73689:               PUSH   A
8009 @ 73692:               PUSHI  #0x00000039
8010 @ 73697:               ASSPAR
8011 @ 73698:               CALL  
8012 @ 73699:               bf     L_0007

  1630        fault(typerr+point) %if control&arithok = 0
8013 @ 73702:               LINE   1630 "regression-compile-tmp/chimps.imp"
8014 @ 73739:               PUSH   CONTROL
8015 @ 73742:               PUSHI  #0x00000018
8016 @ 73747:               AND   
8017 @ 73748:               PUSHI  #0x00000000
8018 @ 73753:               JUMPIF # L_000a
8019 @ 73757:               PUSH   FAULT
8020 @ 73760:               PUSHI  #0x00000006
8021 @ 73765:               PUSHI  #0x00000040
8022 @ 73770:               ADD   
8023 @ 73771:               ASSPAR
8024 @ 73772:               CALL  
8025 @ 73773:               LOCATE L_000a

  1631        get EXPRESSION(major,arithok)
8026 @ 73776:               LINE   1631 "regression-compile-tmp/chimps.imp"
8027 @ 73813:               PUSH   GETEXPRESSION
8028 @ 73816:               PUSHI  #0x00000050
8029 @ 73821:               ASSPAR
8030 @ 73822:               PUSHI  #0x00000018
8031 @ 73827:               ASSPAR
8032 @ 73828:               CALL  

  1632        get(modsign)
8033 @ 73829:               LINE   1632 "regression-compile-tmp/chimps.imp"
8034 @ 73866:               PUSH   GET
8035 @ 73869:               PUSHI  #0x00000039
8036 @ 73874:               ASSPAR
8037 @ 73875:               CALL  

  1633        %if item = 0 %start
8038 @ 73876:               LINE   1633 "regression-compile-tmp/chimps.imp"
8039 @ 73913:               PUSH   ITEM
8040 @ 73916:               PUSHI  #0x00000000
8041 @ 73921:               JUMPIF # L_000a

  1634          %if t_val < 0 %start
8042 @ 73925:               LINE   1634 "regression-compile-tmp/chimps.imp"
8043 @ 73962:               PUSH   T
8044 @ 73965:               SELECT 7
8045 @ 73968:               PUSHI  #0x00000000
8046 @ 73973:               JUMPIF >= L_000d

  1635            %if t_val # minint %then t_val = -t_val %else expfault(rangerr)
8047 @ 73977:               LINE   1635 "regression-compile-tmp/chimps.imp"
8048 @ 74014:               PUSH   T
8049 @ 74017:               SELECT 7
8050 @ 74020:               PUSHI  #0x80000000
8051 @ 74025:               JUMPIF = L_0010
8052 @ 74029:               PUSH   T
8053 @ 74032:               SELECT 7
8054 @ 74035:               PUSH   T
8055 @ 74038:               SELECT 7
8056 @ 74041:               NEGATE
8057 @ 74042:               ASSVAL
8058 @ 74043:               GOTO   L_000f
8059 @ 74046:               LOCATE L_0010
8060 @ 74049:               PUSH   EXPFAULT
8061 @ 74052:               PUSHI  #0x0000000c
8062 @ 74057:               ASSPAR
8063 @ 74058:               CALL  
8064 @ 74059:               LOCATE L_000f

  1636          %finish
8065 @ 74062:               LINE   1636 "regression-compile-tmp/chimps.imp"
8066 @ 74099:               LOCATE L_000d

  1637        %else %if t_type = inty
8067 @ 74102:               LINE   1637 "regression-compile-tmp/chimps.imp"
8068 @ 74139:               GOTO   L_0009
8069 @ 74142:               LOCATE L_000a
8070 @ 74145:               PUSH   T
8071 @ 74148:               SELECT 2
8072 @ 74151:               PUSHI  #0x000007fe
8073 @ 74156:               JUMPIF # L_000a

  1638          item = explo;!expref(imod,item,0)
8074 @ 74160:               LINE   1638 "regression-compile-tmp/chimps.imp"
8075 @ 74197:               PUSH   ITEM
8076 @ 74200:               PUSH   EXPLO
8077 @ 74203:               ASSVAL

  1639        %else %if t_type = realy
8078 @ 74204:               LINE   1639 "regression-compile-tmp/chimps.imp"
8079 @ 74241:               GOTO   L_0009
8080 @ 74244:               LOCATE L_000a
8081 @ 74247:               PUSH   T
8082 @ 74250:               SELECT 2
8083 @ 74253:               PUSHI  #0x000007fd
8084 @ 74258:               JUMPIF # L_000a

  1640          item = explo;!expref(fmod,item,0)
8085 @ 74262:               LINE   1640 "regression-compile-tmp/chimps.imp"
8086 @ 74299:               PUSH   ITEM
8087 @ 74302:               PUSH   EXPLO
8088 @ 74305:               ASSVAL

  1641        %else
8089 @ 74306:               LINE   1641 "regression-compile-tmp/chimps.imp"
8090 @ 74343:               GOTO   L_0009
8091 @ 74346:               LOCATE L_000a

  1642          error(typerr)
8092 @ 74349:               LINE   1642 "regression-compile-tmp/chimps.imp"
8093 @ 74386:               PUSH   ERROR
8094 @ 74389:               PUSHI  #0x00000006
8095 @ 74394:               ASSPAR
8096 @ 74395:               CALL  

  1643        %finish
8097 @ 74396:               LINE   1643 "regression-compile-tmp/chimps.imp"
8098 @ 74433:               LOCATE L_0009

  1644      %else
8099 @ 74436:               LINE   1644 "regression-compile-tmp/chimps.imp"
8100 @ 74473:               GOTO   L_0006
8101 @ 74476:               LOCATE L_0007

  1645        syntax error
8102 @ 74479:               LINE   1645 "regression-compile-tmp/chimps.imp"
8103 @ 74516:               PUSH   SYNTAXERROR
8104 @ 74519:               CALL  

  1646      %finish
8105 @ 74520:               LINE   1646 "regression-compile-tmp/chimps.imp"
8106 @ 74557:               LOCATE L_0006

  1647    %finish
8107 @ 74560:               LINE   1647 "regression-compile-tmp/chimps.imp"
8108 @ 74597:               LOCATE L_0003

  1648    atom = next atom %if matched # 0
8109 @ 74600:               LINE   1648 "regression-compile-tmp/chimps.imp"
8110 @ 74637:               PUSH   MATCHED
8111 @ 74640:               PUSHI  #0x00000000
8112 @ 74645:               JUMPIF = L_0004
8113 @ 74649:               PUSH   ATOM
8114 @ 74652:               PUSH   NEXTATOM
8115 @ 74655:               CALL  
8116 @ 74656:               ASSVAL
8117 @ 74657:               LOCATE L_0004

  1649    %while atom >= rank %cycle
8118 @ 74660:               LINE   1649 "regression-compile-tmp/chimps.imp"
8119 @ 74697:               LOCATE L_0003
8120 @ 74700:               PUSH   ATOM
8121 @ 74703:               PUSH   RANK
8122 @ 74706:               JUMPIF < L_0004

  1650      op = atom;  matched = 1
8123 @ 74710:               LINE   1650 "regression-compile-tmp/chimps.imp"
8124 @ 74747:               PUSH   OP
8125 @ 74750:               PUSH   ATOM
8126 @ 74753:               ASSVAL
8127 @ 74754:               LINE   1650 "regression-compile-tmp/chimps.imp"
8128 @ 74791:               PUSH   MATCHED
8129 @ 74794:               PUSHI  #0x00000001
8130 @ 74799:               ASSVAL

  1651      opok = opbits(op);  c1 = compat(opok);  ![may change ITEM,T_TYPE]
8131 @ 74800:               LINE   1651 "regression-compile-tmp/chimps.imp"
8132 @ 74837:               PUSH   OPOK
8133 @ 74840:               PUSH   OPBITS
8134 @ 74843:               PUSH   OP
8135 @ 74846:               ACCESS
8136 @ 74847:               ASSVAL
8137 @ 74848:               LINE   1651 "regression-compile-tmp/chimps.imp"
8138 @ 74885:               PUSH   C1
8139 @ 74888:               PUSH   COMPAT
8140 @ 74891:               PUSH   OPOK
8141 @ 74894:               ASSPAR
8142 @ 74895:               CALL  
8143 @ 74896:               ASSVAL

  1652      fault(typerr+point) %if c1 = 0
8144 @ 74897:               LINE   1652 "regression-compile-tmp/chimps.imp"
8145 @ 74934:               PUSH   C1
8146 @ 74937:               PUSHI  #0x00000000
8147 @ 74942:               JUMPIF # L_0007
8148 @ 74946:               PUSH   FAULT
8149 @ 74949:               PUSHI  #0x00000006
8150 @ 74954:               PUSHI  #0x00000040
8151 @ 74959:               ADD   
8152 @ 74960:               ASSPAR
8153 @ 74961:               CALL  
8154 @ 74962:               LOCATE L_0007

  1653      item1 = item;  t1 = t
8155 @ 74965:               LINE   1653 "regression-compile-tmp/chimps.imp"
8156 @ 75002:               PUSH   ITEM1
8157 @ 75005:               PUSH   ITEM
8158 @ 75008:               ASSVAL
8159 @ 75009:               LINE   1653 "regression-compile-tmp/chimps.imp"
8160 @ 75046:               PUSH   T1
8161 @ 75049:               PUSH   T
8162 @ 75052:               ASSVAL

  1654      %if op >= major %start;  !non-conditional
8163 @ 75053:               LINE   1654 "regression-compile-tmp/chimps.imp"
8164 @ 75090:               PUSH   OP
8165 @ 75093:               PUSHI  #0x00000050
8166 @ 75098:               JUMPIF < L_0007

  1655        %if op = dot %then get EXPRESSION(dot,stringok) {right-associate} %c
  1656        %else get EXPRESSION(op&(\7)+8,c1)
8167 @ 75102:               LINE   1655 "regression-compile-tmp/chimps.imp"
8168 @ 75139:               PUSH   OP
8169 @ 75142:               PUSHI  #0x00000054
8170 @ 75147:               JUMPIF # L_000a
8171 @ 75151:               PUSH   GETEXPRESSION
8172 @ 75154:               PUSHI  #0x00000054
8173 @ 75159:               ASSPAR
8174 @ 75160:               PUSHI  #0x00000004
8175 @ 75165:               ASSPAR
8176 @ 75166:               CALL  
8177 @ 75167:               GOTO   L_0009
8178 @ 75170:               LOCATE L_000a
8179 @ 75173:               PUSH   GETEXPRESSION
8180 @ 75176:               PUSH   OP
8181 @ 75179:               PUSHI  #0x00000007
8182 @ 75184:               NOT   
8183 @ 75185:               AND   
8184 @ 75186:               PUSHI  #0x00000008
8185 @ 75191:               ADD   
8186 @ 75192:               ASSPAR
8187 @ 75193:               PUSH   C1
8188 @ 75196:               ASSPAR
8189 @ 75197:               CALL  
8190 @ 75198:               LOCATE L_0009

  1657        %if t_type = realy %and t1_type = inty %start
8191 @ 75201:               LINE   1657 "regression-compile-tmp/chimps.imp"
8192 @ 75238:               PUSH   T
8193 @ 75241:               SELECT 2
8194 @ 75244:               PUSHI  #0x000007fd
8195 @ 75249:               JUMPIF # L_000a
8196 @ 75253:               PUSH   T1
8197 @ 75256:               SELECT 2
8198 @ 75259:               PUSHI  #0x000007fe
8199 @ 75264:               JUMPIF # L_000a

  1658          item1 = floated(item1);  t1_type = realy
8200 @ 75268:               LINE   1658 "regression-compile-tmp/chimps.imp"
8201 @ 75305:               PUSH   ITEM1
8202 @ 75308:               PUSH   FLOATED
8203 @ 75311:               PUSH   ITEM1
8204 @ 75314:               ASSPAR
8205 @ 75315:               CALL  
8206 @ 75316:               ASSVAL
8207 @ 75317:               LINE   1658 "regression-compile-tmp/chimps.imp"
8208 @ 75354:               PUSH   T1
8209 @ 75357:               SELECT 2
8210 @ 75360:               PUSHI  #0x000007fd
8211 @ 75365:               ASSVAL

  1659        %finish
  1660  !      op = op+? %if t_type = realy %and opok&intok # 0
8212 @ 75366:               LINE   1659 "regression-compile-tmp/chimps.imp"
8213 @ 75403:               LOCATE L_000a

  1661      %else
8214 @ 75406:               LINE   1661 "regression-compile-tmp/chimps.imp"
8215 @ 75443:               GOTO   L_0006
8216 @ 75446:               LOCATE L_0007

  1662         %if op = resolve %start
8217 @ 75449:               LINE   1662 "regression-compile-tmp/chimps.imp"
8218 @ 75486:               PUSH   OP
8219 @ 75489:               PUSHI  #0x0000004f
8220 @ 75494:               JUMPIF # L_000a

  1663           get RESOLUTION
8221 @ 75498:               LINE   1663 "regression-compile-tmp/chimps.imp"
8222 @ 75535:               PUSH   GETRESOLUTION
8223 @ 75538:               CALL  

  1664        %else %if op >= eqeq
8224 @ 75539:               LINE   1664 "regression-compile-tmp/chimps.imp"
8225 @ 75576:               GOTO   L_0009
8226 @ 75579:               LOCATE L_000a
8227 @ 75582:               PUSH   OP
8228 @ 75585:               PUSHI  #0x0000004c
8229 @ 75590:               JUMPIF < L_000a

  1665          get EXPRESSION(simple,any+refonly)
8230 @ 75594:               LINE   1665 "regression-compile-tmp/chimps.imp"
8231 @ 75631:               PUSH   GETEXPRESSION
8232 @ 75634:               PUSHI  #0x00000068
8233 @ 75639:               ASSPAR
8234 @ 75640:               PUSHI  #0x000000ff
8235 @ 75645:               PUSHI  #0x00000400
8236 @ 75650:               ADD   
8237 @ 75651:               ASSPAR
8238 @ 75652:               CALL  

  1666        %else %if op >= equals
8239 @ 75653:               LINE   1666 "regression-compile-tmp/chimps.imp"
8240 @ 75690:               GOTO   L_0009
8241 @ 75693:               LOCATE L_000a
8242 @ 75696:               PUSH   OP
8243 @ 75699:               PUSHI  #0x00000046
8244 @ 75704:               JUMPIF < L_000a

  1667          get EXPRESSION(major,c1)
8245 @ 75708:               LINE   1667 "regression-compile-tmp/chimps.imp"
8246 @ 75745:               PUSH   GETEXPRESSION
8247 @ 75748:               PUSHI  #0x00000050
8248 @ 75753:               ASSPAR
8249 @ 75754:               PUSH   C1
8250 @ 75757:               ASSPAR
8251 @ 75758:               CALL  

  1668          %if equals <= atom < eqeq %start
8252 @ 75759:               LINE   1668 "regression-compile-tmp/chimps.imp"
8253 @ 75796:               PUSHI  #0x00000046
8254 @ 75801:               PUSH   ATOM
8255 @ 75804:               JUMPIFD > L_000d
8256 @ 75808:               PUSHI  #0x0000004c
8257 @ 75813:               JUMPIF >= L_000d

  1669            op = atom;  matched = 1
8258 @ 75817:               LINE   1669 "regression-compile-tmp/chimps.imp"
8259 @ 75854:               PUSH   OP
8260 @ 75857:               PUSH   ATOM
8261 @ 75860:               ASSVAL
8262 @ 75861:               LINE   1669 "regression-compile-tmp/chimps.imp"
8263 @ 75898:               PUSH   MATCHED
8264 @ 75901:               PUSHI  #0x00000001
8265 @ 75906:               ASSVAL

  1670            get EXPRESSION(major,c1)
8266 @ 75907:               LINE   1670 "regression-compile-tmp/chimps.imp"
8267 @ 75944:               PUSH   GETEXPRESSION
8268 @ 75947:               PUSHI  #0x00000050
8269 @ 75952:               ASSPAR
8270 @ 75953:               PUSH   C1
8271 @ 75956:               ASSPAR
8272 @ 75957:               CALL  

  1671          %finish
8273 @ 75958:               LINE   1671 "regression-compile-tmp/chimps.imp"
8274 @ 75995:               LOCATE L_000d

  1672          %if t_type = realy %and t1_type = inty %start
8275 @ 75998:               LINE   1672 "regression-compile-tmp/chimps.imp"
8276 @ 76035:               PUSH   T
8277 @ 76038:               SELECT 2
8278 @ 76041:               PUSHI  #0x000007fd
8279 @ 76046:               JUMPIF # L_000d
8280 @ 76050:               PUSH   T1
8281 @ 76053:               SELECT 2
8282 @ 76056:               PUSHI  #0x000007fe
8283 @ 76061:               JUMPIF # L_000d

  1673            item1 = floated(item1);  t1_type = realy
8284 @ 76065:               LINE   1673 "regression-compile-tmp/chimps.imp"
8285 @ 76102:               PUSH   ITEM1
8286 @ 76105:               PUSH   FLOATED
8287 @ 76108:               PUSH   ITEM1
8288 @ 76111:               ASSPAR
8289 @ 76112:               CALL  
8290 @ 76113:               ASSVAL
8291 @ 76114:               LINE   1673 "regression-compile-tmp/chimps.imp"
8292 @ 76151:               PUSH   T1
8293 @ 76154:               SELECT 2
8294 @ 76157:               PUSHI  #0x000007fd
8295 @ 76162:               ASSVAL

  1674          %finish
8296 @ 76163:               LINE   1674 "regression-compile-tmp/chimps.imp"
8297 @ 76200:               LOCATE L_000d

  1675        %else
8298 @ 76203:               LINE   1675 "regression-compile-tmp/chimps.imp"
8299 @ 76240:               GOTO   L_0009
8300 @ 76243:               LOCATE L_000a

  1676          get EXPRESSION(scond,any)
8301 @ 76246:               LINE   1676 "regression-compile-tmp/chimps.imp"
8302 @ 76283:               PUSH   GETEXPRESSION
8303 @ 76286:               PUSHI  #0x00000046
8304 @ 76291:               ASSPAR
8305 @ 76292:               PUSHI  #0x000000ff
8306 @ 76297:               ASSPAR
8307 @ 76298:               CALL  

  1677          %if atom >= cond %start
8308 @ 76299:               LINE   1677 "regression-compile-tmp/chimps.imp"
8309 @ 76336:               PUSH   ATOM
8310 @ 76339:               PUSHI  #0x00000040
8311 @ 76344:               JUMPIF < L_000d

  1678            syntax error %if atom # op
8312 @ 76348:               LINE   1678 "regression-compile-tmp/chimps.imp"
8313 @ 76385:               PUSH   ATOM
8314 @ 76388:               PUSH   OP
8315 @ 76391:               JUMPIF = L_0010
8316 @ 76395:               PUSH   SYNTAXERROR
8317 @ 76398:               CALL  
8318 @ 76399:               LOCATE L_0010

  1679          %finish
8319 @ 76402:               LINE   1679 "regression-compile-tmp/chimps.imp"
8320 @ 76439:               LOCATE L_000d

  1680        %finish
8321 @ 76442:               LINE   1680 "regression-compile-tmp/chimps.imp"
8322 @ 76479:               LOCATE L_0009

  1681        t_type = booltype
8323 @ 76482:               LINE   1681 "regression-compile-tmp/chimps.imp"
8324 @ 76519:               PUSH   T
8325 @ 76522:               SELECT 2
8326 @ 76525:               PUSHI  #0x00000800
8327 @ 76530:               ASSVAL

  1682        t_low = 0 %and t_val = 1 %if item # 0
8328 @ 76531:               LINE   1682 "regression-compile-tmp/chimps.imp"
8329 @ 76568:               PUSH   ITEM
8330 @ 76571:               PUSHI  #0x00000000
8331 @ 76576:               JUMPIF = L_000a
8332 @ 76580:               PUSH   T
8333 @ 76583:               SELECT 6
8334 @ 76586:               PUSHI  #0x00000000
8335 @ 76591:               ASSVAL
8336 @ 76592:               PUSH   T
8337 @ 76595:               SELECT 7
8338 @ 76598:               PUSHI  #0x00000001
8339 @ 76603:               ASSVAL
8340 @ 76604:               LOCATE L_000a

  1683      %finish
8341 @ 76607:               LINE   1683 "regression-compile-tmp/chimps.imp"
8342 @ 76644:               LOCATE L_0006

  1684      %if item1 = 0 %start;  !first operand literal
8343 @ 76647:               LINE   1684 "regression-compile-tmp/chimps.imp"
8344 @ 76684:               PUSH   ITEM1
8345 @ 76687:               PUSHI  #0x00000000
8346 @ 76692:               JUMPIF # L_0007

  1685        %if item = 0 %start;  !both literal
8347 @ 76696:               LINE   1685 "regression-compile-tmp/chimps.imp"
8348 @ 76733:               PUSH   ITEM
8349 @ 76736:               PUSHI  #0x00000000
8350 @ 76741:               JUMPIF # L_000a

  1686          t_val = litval
8351 @ 76745:               LINE   1686 "regression-compile-tmp/chimps.imp"
8352 @ 76782:               PUSH   T
8353 @ 76785:               SELECT 7
8354 @ 76788:               PUSH   LITVAL
8355 @ 76791:               CALL  
8356 @ 76792:               ASSVAL

  1687          %continue %if item = 0
  1688  !        item1 = litref(t1_val)
  1689  !     %else %if inverse(op) # 0;  !invertable
  1690  !        op = inverse(op)
  1691  !        temp = t;  t = t1;  t1 = temp;  !standardise order
  1692  !        item1 = item;  item = 0
8357 @ 76793:               LINE   1687 "regression-compile-tmp/chimps.imp"
8358 @ 76830:               PUSH   ITEM
8359 @ 76833:               PUSHI  #0x00000000
8360 @ 76838:               JUMPIF # L_000d
8361 @ 76842:               GOTO   L_0005
8362 @ 76845:               LOCATE L_000d

  1693        %else
  1694  !        item1 = litref(t1_val)
8363 @ 76848:               LINE   1693 "regression-compile-tmp/chimps.imp"
8364 @ 76885:               GOTO   L_0009
8365 @ 76888:               LOCATE L_000a

  1695        %finish
8366 @ 76891:               LINE   1695 "regression-compile-tmp/chimps.imp"
8367 @ 76928:               LOCATE L_0009

  1696      %finish
8368 @ 76931:               LINE   1696 "regression-compile-tmp/chimps.imp"
8369 @ 76968:               LOCATE L_0007

  1697      %if item = 0 %start;  !second operand literal
8370 @ 76971:               LINE   1697 "regression-compile-tmp/chimps.imp"
8371 @ 77008:               PUSH   ITEM
8372 @ 77011:               PUSHI  #0x00000000
8373 @ 77016:               JUMPIF # L_0007

  1698        %if op = minus %and t_type = inty %start;  !standardise
8374 @ 77020:               LINE   1698 "regression-compile-tmp/chimps.imp"
8375 @ 77057:               PUSH   OP
8376 @ 77060:               PUSHI  #0x00000051
8377 @ 77065:               JUMPIF # L_000a
8378 @ 77069:               PUSH   T
8379 @ 77072:               SELECT 2
8380 @ 77075:               PUSHI  #0x000007fe
8381 @ 77080:               JUMPIF # L_000a

  1699          t_val = -t_val %if t_val # minint;  op = plus
8382 @ 77084:               LINE   1699 "regression-compile-tmp/chimps.imp"
8383 @ 77121:               PUSH   T
8384 @ 77124:               SELECT 7
8385 @ 77127:               PUSHI  #0x80000000
8386 @ 77132:               JUMPIF = L_000d
8387 @ 77136:               PUSH   T
8388 @ 77139:               SELECT 7
8389 @ 77142:               PUSH   T
8390 @ 77145:               SELECT 7
8391 @ 77148:               NEGATE
8392 @ 77149:               ASSVAL
8393 @ 77150:               LOCATE L_000d
8394 @ 77153:               LINE   1699 "regression-compile-tmp/chimps.imp"
8395 @ 77190:               PUSH   OP
8396 @ 77193:               PUSHI  #0x00000050
8397 @ 77198:               ASSVAL

  1700        %finish
8398 @ 77199:               LINE   1700 "regression-compile-tmp/chimps.imp"
8399 @ 77236:               LOCATE L_000a

  1701        item = item1 %and %continue %if t_val = 0 %and opok&znop # 0
8400 @ 77239:               LINE   1701 "regression-compile-tmp/chimps.imp"
8401 @ 77276:               PUSH   T
8402 @ 77279:               SELECT 7
8403 @ 77282:               PUSHI  #0x00000000
8404 @ 77287:               JUMPIF # L_000a
8405 @ 77291:               PUSH   OPOK
8406 @ 77294:               PUSHI  #0x00000200
8407 @ 77299:               AND   
8408 @ 77300:               PUSHI  #0x00000000
8409 @ 77305:               JUMPIF = L_000a
8410 @ 77309:               PUSH   ITEM
8411 @ 77312:               PUSH   ITEM1
8412 @ 77315:               ASSVAL
8413 @ 77316:               GOTO   L_0005
8414 @ 77319:               LOCATE L_000a

  1702      %finish
8415 @ 77322:               LINE   1702 "regression-compile-tmp/chimps.imp"
8416 @ 77359:               LOCATE L_0007

  1703      item = explo;!expref(op,item1,item,t_val)
8417 @ 77362:               LINE   1703 "regression-compile-tmp/chimps.imp"
8418 @ 77399:               PUSH   ITEM
8419 @ 77402:               PUSH   EXPLO
8420 @ 77405:               ASSVAL

  1704      t_low = minint;  t_val = maxint;  !?real
8421 @ 77406:               LINE   1704 "regression-compile-tmp/chimps.imp"
8422 @ 77443:               PUSH   T
8423 @ 77446:               SELECT 6
8424 @ 77449:               PUSHI  #0x80000000
8425 @ 77454:               ASSVAL
8426 @ 77455:               LINE   1704 "regression-compile-tmp/chimps.imp"
8427 @ 77492:               PUSH   T
8428 @ 77495:               SELECT 7
8429 @ 77498:               PUSHI  #0x7fffffff
8430 @ 77503:               ASSVAL

  1705    %repeat
8431 @ 77504:               LINE   1705 "regression-compile-tmp/chimps.imp"
8432 @ 77541:               LOCATE L_0005
8433 @ 77544:               REPEAT L_0003
8434 @ 77547:               LOCATE L_0004

  1706  final:
8435 @ 77550:               LINE   1706 "regression-compile-tmp/chimps.imp"
8436 @ 77587:               LABEL  L_0117

  1707    expp = atomp1;  !restore to start
8437 @ 77590:               LINE   1707 "regression-compile-tmp/chimps.imp"
8438 @ 77627:               PUSH   EXPP
8439 @ 77630:               PUSH   ATOMP1
8440 @ 77633:               ASSVAL

  1708    expfault(typerr) %if compat(control) = 0
8441 @ 77634:               LINE   1708 "regression-compile-tmp/chimps.imp"
8442 @ 77671:               PUSH   COMPAT
8443 @ 77674:               PUSH   CONTROL
8444 @ 77677:               ASSPAR
8445 @ 77678:               CALL  
8446 @ 77679:               PUSHI  #0x00000000
8447 @ 77684:               JUMPIF # L_0004
8448 @ 77688:               PUSH   EXPFAULT
8449 @ 77691:               PUSHI  #0x00000006
8450 @ 77696:               ASSPAR
8451 @ 77697:               CALL  
8452 @ 77698:               LOCATE L_0004

  1709  %end;  !get EXPRESSION
  1710    
  1711  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1712  !!!!!!!!!!!!!!!!!!!!  Conditions and loops  !!!!!!!!!!!!!!!!!!!!
  1713  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1714  !
8453 @ 77701:               LINE   1709 "regression-compile-tmp/chimps.imp"
8454 @ 77738:            END    _ECCECI_GETEXPRESSION {lev=2 --> 1}

  1715  %routine GET CONDITION
8455 @ 77739:            LINE   1715 "regression-compile-tmp/chimps.imp"
8456 @ 77776:            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
8457 @ 77800:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8458 @ 77801:               FINISH ) {lev=2}

  1716  %integer polarity
8459 @ 77802:               LINE   1716 "regression-compile-tmp/chimps.imp"
8460 @ 77839:               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

  1717    polarity = subatom
8461 @ 77859:               LINE   1717 "regression-compile-tmp/chimps.imp"
8462 @ 77896:               PUSH   POLARITY
8463 @ 77899:               PUSH   SUBATOM
8464 @ 77902:               ASSVAL

  1718    condnp = np
8465 @ 77903:               LINE   1718 "regression-compile-tmp/chimps.imp"
8466 @ 77940:               PUSH   CONDNP
8467 @ 77943:               PUSH   NP
8468 @ 77946:               ASSVAL

  1719    get EXPRESSION(cond,any)
  1720  !  put3(jump+polarity,item,0)
8469 @ 77947:               LINE   1719 "regression-compile-tmp/chimps.imp"
8470 @ 77984:               PUSH   GETEXPRESSION
8471 @ 77987:               PUSHI  #0x00000040
8472 @ 77992:               ASSPAR
8473 @ 77993:               PUSHI  #0x000000ff
8474 @ 77998:               ASSPAR
8475 @ 77999:               CALL  

  1721  %end;  !get CONDITION
  1722  
8476 @ 78000:               LINE   1721 "regression-compile-tmp/chimps.imp"
8477 @ 78037:            END    _ECCECI_GETCONDITION {lev=2 --> 1}

  1723  %routine GET STATEMENTS(%integer stopper)
8478 @ 78038:            LINE   1723 "regression-compile-tmp/chimps.imp"
8479 @ 78075:            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
8480 @ 78100:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8481 @ 78101:                  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
8482 @ 78120:               FINISH ) {lev=2}

  1724  %integer holdnp,holdlooplab
8483 @ 78121:               LINE   1724 "regression-compile-tmp/chimps.imp"
8484 @ 78158:               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
8485 @ 78176:               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

  1725  %switch initial(0:atommax)
  1726  
8486 @ 78199:               LINE   1725 "regression-compile-tmp/chimps.imp"
8487 @ 78236:               PUSHI  #0x00000000
8488 @ 78241:               PUSHI  #0x0000006b
8489 @ 78246:               BOUNDS
8490 @ 78247:               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

  1727  %routine GET INSTRUCTION
8491 @ 78266:               LINE   1727 "regression-compile-tmp/chimps.imp"
8492 @ 78303:               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
8493 @ 78329:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
8494 @ 78330:                  FINISH ) {lev=3}

  1728  %integer item1,hold,act
8495 @ 78331:                  LINE   1728 "regression-compile-tmp/chimps.imp"
8496 @ 78368:                  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
8497 @ 78385:                  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
8498 @ 78401:                  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

  1729  %record(identinfo)%name ditem1
8499 @ 78416:                  LINE   1729 "regression-compile-tmp/chimps.imp"
8500 @ 78453:                  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

  1730  %routine putact
  1731  !  put3(act,t_val,hold)
8501 @ 78471:                  LINE   1730 "regression-compile-tmp/chimps.imp"
8502 @ 78508:                  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
8503 @ 78526:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
8504 @ 78527:                     FINISH ) {lev=4}

  1732  %end
  1733  !
8505 @ 78528:                     LINE   1732 "regression-compile-tmp/chimps.imp"
8506 @ 78565:                  END    _ECCECI_GETSTATEMENTS_GETINSTRUCTION_PUTACT {lev=4 --> 3}

  1734    %if c_flags < hadinst %start;  !first in block
8507 @ 78566:                  LINE   1734 "regression-compile-tmp/chimps.imp"
8508 @ 78603:                  PUSH   C
8509 @ 78606:                  SELECT 4
8510 @ 78609:                  PUSHI  #0x00000020
8511 @ 78614:                  JUMPIF >= L_0004

  1735      c_flags = c_flags+hadinst
8512 @ 78618:                  LINE   1735 "regression-compile-tmp/chimps.imp"
8513 @ 78655:                  PUSH   C
8514 @ 78658:                  SELECT 4
8515 @ 78661:                  PUSH   C
8516 @ 78664:                  SELECT 4
8517 @ 78667:                  PUSHI  #0x00000020
8518 @ 78672:                  ADD   
8519 @ 78673:                  ASSVAL

  1736      fault(ordererr) %if level <= outerlevel
8520 @ 78674:                  LINE   1736 "regression-compile-tmp/chimps.imp"
8521 @ 78711:                  PUSH   LEVEL
8522 @ 78714:                  PUSHI  #0x00000000
8523 @ 78719:                  JUMPIF > L_0007
8524 @ 78723:                  PUSH   FAULT
8525 @ 78726:                  PUSHI  #0x0000000a
8526 @ 78731:                  ASSPAR
8527 @ 78732:                  CALL  
8528 @ 78733:                  LOCATE L_0007

  1737    %finish
8529 @ 78736:                  LINE   1737 "regression-compile-tmp/chimps.imp"
8530 @ 78773:                  LOCATE L_0004

  1738    instnp = np
8531 @ 78776:                  LINE   1738 "regression-compile-tmp/chimps.imp"
8532 @ 78813:                  PUSH   INSTNP
8533 @ 78816:                  PUSH   NP
8534 @ 78819:                  ASSVAL

  1739    %cycle
8535 @ 78820:                  LINE   1739 "regression-compile-tmp/chimps.imp"
8536 @ 78857:                  LOCATE L_0003

  1740      %if a(ident) %start
8537 @ 78860:                  LINE   1740 "regression-compile-tmp/chimps.imp"
8538 @ 78897:                  PUSH   A
8539 @ 78900:                  PUSHI  #0x00000036
8540 @ 78905:                  ASSPAR
8541 @ 78906:                  CALL  
8542 @ 78907:                  bf     L_0007

  1741        name error %if item <= 0
8543 @ 78910:                  LINE   1741 "regression-compile-tmp/chimps.imp"
8544 @ 78947:                  PUSH   ITEM
8545 @ 78950:                  PUSHI  #0x00000000
8546 @ 78955:                  JUMPIF > L_000a
8547 @ 78959:                  PUSH   NAMEERROR
8548 @ 78962:                  CALL  
8549 @ 78963:                  LOCATE L_000a

  1742        %if ditem_flags&var # 0 %start
8550 @ 78966:                  LINE   1742 "regression-compile-tmp/chimps.imp"
8551 @ 79003:                  PUSH   DITEM
8552 @ 79006:                  SELECT 1
8553 @ 79009:                  PUSHI  #0x00000001
8554 @ 79014:                  AND   
8555 @ 79015:                  PUSHI  #0x00000000
8556 @ 79020:                  JUMPIF = L_000a

  1743          matched = 0
8557 @ 79024:                  LINE   1743 "regression-compile-tmp/chimps.imp"
8558 @ 79061:                  PUSH   MATCHED
8559 @ 79064:                  PUSHI  #0x00000000
8560 @ 79069:                  ASSVAL

  1744          get EXPRESSION(simple,any)
8561 @ 79070:                  LINE   1744 "regression-compile-tmp/chimps.imp"
8562 @ 79107:                  PUSH   GETEXPRESSION
8563 @ 79110:                  PUSHI  #0x00000068
8564 @ 79115:                  ASSPAR
8565 @ 79116:                  PUSHI  #0x000000ff
8566 @ 79121:                  ASSPAR
8567 @ 79122:                  CALL  

  1745          item1 = item;  ditem1 == ditem
8568 @ 79123:                  LINE   1745 "regression-compile-tmp/chimps.imp"
8569 @ 79160:                  PUSH   ITEM1
8570 @ 79163:                  PUSH   ITEM
8571 @ 79166:                  ASSVAL
8572 @ 79167:                  LINE   1745 "regression-compile-tmp/chimps.imp"
8573 @ 79204:                  PUSH   DITEM1
8574 @ 79207:                  PUSH   DITEM
8575 @ 79210:                  ASSREF

  1746          %if a(equals) %start
8576 @ 79211:                  LINE   1746 "regression-compile-tmp/chimps.imp"
8577 @ 79248:                  PUSH   A
8578 @ 79251:                  PUSHI  #0x00000046
8579 @ 79256:                  ASSPAR
8580 @ 79257:                  CALL  
8581 @ 79258:                  bf     L_000d

  1747            get VALUE(ditem1_type)
  1748  !          put2(assign,item1)
8582 @ 79261:                  LINE   1747 "regression-compile-tmp/chimps.imp"
8583 @ 79298:                  PUSH   GETVALUE
8584 @ 79301:                  PUSH   DITEM1
8585 @ 79304:                  SELECT 2
8586 @ 79307:                  ASSPAR
8587 @ 79308:                  CALL  

  1749         %else %if a(eqeq)
8588 @ 79309:                  LINE   1749 "regression-compile-tmp/chimps.imp"
8589 @ 79346:                  GOTO   L_000c
8590 @ 79349:                  LOCATE L_000d
8591 @ 79352:                  PUSH   A
8592 @ 79355:                  PUSHI  #0x0000004c
8593 @ 79360:                  ASSPAR
8594 @ 79361:                  CALL  
8595 @ 79362:                  bf     L_000d

  1750            syntax error %if ditem1_type < indirect
8596 @ 79365:                  LINE   1750 "regression-compile-tmp/chimps.imp"
8597 @ 79402:                  PUSH   DITEM1
8598 @ 79405:                  SELECT 2
8599 @ 79408:                  PUSHI  #0x00004000
8600 @ 79413:                  JUMPIF >= L_0010
8601 @ 79417:                  PUSH   SYNTAXERROR
8602 @ 79420:                  CALL  
8603 @ 79421:                  LOCATE L_0010

  1751            get REFERENCE(ditem1_type)
8604 @ 79424:                  LINE   1751 "regression-compile-tmp/chimps.imp"
8605 @ 79461:                  PUSH   GETREFERENCE
8606 @ 79464:                  PUSH   DITEM1
8607 @ 79467:                  SELECT 2
8608 @ 79470:                  ASSPAR
8609 @ 79471:                  CALL  

  1752            item = item+ad %if item # 0
  1753  !          put2(assign,item1+ad)
8610 @ 79472:                  LINE   1752 "regression-compile-tmp/chimps.imp"
8611 @ 79509:                  PUSH   ITEM
8612 @ 79512:                  PUSHI  #0x00000000
8613 @ 79517:                  JUMPIF = L_0010
8614 @ 79521:                  PUSH   ITEM
8615 @ 79524:                  PUSH   ITEM
8616 @ 79527:                  PUSHI  #0x00004000
8617 @ 79532:                  ADD   
8618 @ 79533:                  ASSVAL
8619 @ 79534:                  LOCATE L_0010

  1754         %else %if atom = less %and byteinteger(fp) = '-'
8620 @ 79537:                  LINE   1754 "regression-compile-tmp/chimps.imp"
8621 @ 79574:                  GOTO   L_000c
8622 @ 79577:                  LOCATE L_000d
8623 @ 79580:                  PUSH   ATOM
8624 @ 79583:                  PUSHI  #0x00000049
8625 @ 79588:                  JUMPIF # L_000d
8626 @ 79592:                  PUSH   BYTEINTEGER
8627 @ 79595:                  PUSH   FP
8628 @ 79598:                  ASSPAR
8629 @ 79599:                  CALL  
8630 @ 79600:                  PUSHI  #0x0000002d
8631 @ 79605:                  JUMPIF # L_000d

  1755            fp = fp+1;  matched = 1
8632 @ 79609:                  LINE   1755 "regression-compile-tmp/chimps.imp"
8633 @ 79646:                  PUSH   FP
8634 @ 79649:                  PUSH   FP
8635 @ 79652:                  PUSHI  #0x00000001
8636 @ 79657:                  ADD   
8637 @ 79658:                  ASSVAL
8638 @ 79659:                  LINE   1755 "regression-compile-tmp/chimps.imp"
8639 @ 79696:                  PUSH   MATCHED
8640 @ 79699:                  PUSHI  #0x00000001
8641 @ 79704:                  ASSVAL

  1756            jammy = 2
8642 @ 79705:                  LINE   1756 "regression-compile-tmp/chimps.imp"
8643 @ 79742:                  PUSH   JAMMY
8644 @ 79745:                  PUSHI  #0x00000002
8645 @ 79750:                  ASSVAL

  1757            get VALUE(ditem1_type)
  1758  !          put2(jamassign,item1)
8646 @ 79751:                  LINE   1757 "regression-compile-tmp/chimps.imp"
8647 @ 79788:                  PUSH   GETVALUE
8648 @ 79791:                  PUSH   DITEM1
8649 @ 79794:                  SELECT 2
8650 @ 79797:                  ASSPAR
8651 @ 79798:                  CALL  

  1759          %else
8652 @ 79799:                  LINE   1759 "regression-compile-tmp/chimps.imp"
8653 @ 79836:                  GOTO   L_000c
8654 @ 79839:                  LOCATE L_000d

  1760            syntax error %if %not a(arrow)
8655 @ 79842:                  LINE   1760 "regression-compile-tmp/chimps.imp"
8656 @ 79879:                  PUSH   A
8657 @ 79882:                  PUSHI  #0x0000004f
8658 @ 79887:                  ASSPAR
8659 @ 79888:                  CALL  
8660 @ 79889:                  bt     L_0010
8661 @ 79892:                  PUSH   SYNTAXERROR
8662 @ 79895:                  CALL  
8663 @ 79896:                  LOCATE L_0010

  1761            get RESOLUTION
  1762  !          put2(resolve,item1)
8664 @ 79899:                  LINE   1761 "regression-compile-tmp/chimps.imp"
8665 @ 79936:                  PUSH   GETRESOLUTION
8666 @ 79939:                  CALL  

  1763          %finish
8667 @ 79940:                  LINE   1763 "regression-compile-tmp/chimps.imp"
8668 @ 79977:                  LOCATE L_000c

  1764        %else
8669 @ 79980:                  LINE   1764 "regression-compile-tmp/chimps.imp"
8670 @ 80017:                  GOTO   L_0009
8671 @ 80020:                  LOCATE L_000a

  1765          error(caterr+point) %if ditem_flags&proc = 0
8672 @ 80023:                  LINE   1765 "regression-compile-tmp/chimps.imp"
8673 @ 80060:                  PUSH   DITEM
8674 @ 80063:                  SELECT 1
8675 @ 80066:                  PUSHI  #0x00000004
8676 @ 80071:                  AND   
8677 @ 80072:                  PUSHI  #0x00000000
8678 @ 80077:                  JUMPIF # L_000d
8679 @ 80081:                  PUSH   ERROR
8680 @ 80084:                  PUSHI  #0x00000003
8681 @ 80089:                  PUSHI  #0x00000040
8682 @ 80094:                  ADD   
8683 @ 80095:                  ASSPAR
8684 @ 80096:                  CALL  
8685 @ 80097:                  LOCATE L_000d

  1766          ditem == dict(ditem_type) %if ditem_flags&parm # 0
8686 @ 80100:                  LINE   1766 "regression-compile-tmp/chimps.imp"
8687 @ 80137:                  PUSH   DITEM
8688 @ 80140:                  SELECT 1
8689 @ 80143:                  PUSHI  #0x00000040
8690 @ 80148:                  AND   
8691 @ 80149:                  PUSHI  #0x00000000
8692 @ 80154:                  JUMPIF = L_000d
8693 @ 80158:                  PUSH   DITEM
8694 @ 80161:                  PUSH   DICT
8695 @ 80164:                  PUSH   DITEM
8696 @ 80167:                  SELECT 2
8697 @ 80170:                  ACCESS
8698 @ 80171:                  ASSREF
8699 @ 80172:                  LOCATE L_000d

  1767          error(caterr+point) %if ditem_type # nulltype
8700 @ 80175:                  LINE   1767 "regression-compile-tmp/chimps.imp"
8701 @ 80212:                  PUSH   DITEM
8702 @ 80215:                  SELECT 2
8703 @ 80218:                  PUSHI  #0x000007f9
8704 @ 80223:                  JUMPIF = L_000d
8705 @ 80227:                  PUSH   ERROR
8706 @ 80230:                  PUSHI  #0x00000003
8707 @ 80235:                  PUSHI  #0x00000040
8708 @ 80240:                  ADD   
8709 @ 80241:                  ASSPAR
8710 @ 80242:                  CALL  
8711 @ 80243:                  LOCATE L_000d

  1768          %if a(left) %start
8712 @ 80246:                  LINE   1768 "regression-compile-tmp/chimps.imp"
8713 @ 80283:                  PUSH   A
8714 @ 80286:                  PUSHI  #0x00000037
8715 @ 80291:                  ASSPAR
8716 @ 80292:                  CALL  
8717 @ 80293:                  bf     L_000d

  1769            get PARMLIST;  get(right)
8718 @ 80296:                  LINE   1769 "regression-compile-tmp/chimps.imp"
8719 @ 80333:                  PUSH   GETPARMLIST
8720 @ 80336:                  CALL  
8721 @ 80337:                  LINE   1769 "regression-compile-tmp/chimps.imp"
8722 @ 80374:                  PUSH   GET
8723 @ 80377:                  PUSHI  #0x0000003c
8724 @ 80382:                  ASSPAR
8725 @ 80383:                  CALL  

  1770          %else;  !parameterless routine
8726 @ 80384:                  LINE   1770 "regression-compile-tmp/chimps.imp"
8727 @ 80421:                  GOTO   L_000c
8728 @ 80424:                  LOCATE L_000d

  1771            error(toofew+point) %if ditem_flags&more # 0
  1772  !          put3(rcall,item,0)
8729 @ 80427:                  LINE   1771 "regression-compile-tmp/chimps.imp"
8730 @ 80464:                  PUSH   DITEM
8731 @ 80467:                  SELECT 1
8732 @ 80470:                  PUSHI  #0x00000080
8733 @ 80475:                  AND   
8734 @ 80476:                  PUSHI  #0x00000000
8735 @ 80481:                  JUMPIF = L_0010
8736 @ 80485:                  PUSH   ERROR
8737 @ 80488:                  PUSHI  #0x00000021
8738 @ 80493:                  PUSHI  #0x00000040
8739 @ 80498:                  ADD   
8740 @ 80499:                  ASSPAR
8741 @ 80500:                  CALL  
8742 @ 80501:                  LOCATE L_0010

  1773          %finish
8743 @ 80504:                  LINE   1773 "regression-compile-tmp/chimps.imp"
8744 @ 80541:                  LOCATE L_000c

  1774        %finish
8745 @ 80544:                  LINE   1774 "regression-compile-tmp/chimps.imp"
8746 @ 80581:                  LOCATE L_0009

  1775      %finish %else %start
8747 @ 80584:                  LINE   1775 "regression-compile-tmp/chimps.imp"
8748 @ 80621:                  GOTO   L_0006
8749 @ 80624:                  LOCATE L_0007

  1776        act = atom;  hold = subatom;  t_val = 0
8750 @ 80627:                  LINE   1776 "regression-compile-tmp/chimps.imp"
8751 @ 80664:                  PUSH   ACT
8752 @ 80667:                  PUSH   ATOM
8753 @ 80670:                  ASSVAL
8754 @ 80671:                  LINE   1776 "regression-compile-tmp/chimps.imp"
8755 @ 80708:                  PUSH   HOLD
8756 @ 80711:                  PUSH   SUBATOM
8757 @ 80714:                  ASSVAL
8758 @ 80715:                  LINE   1776 "regression-compile-tmp/chimps.imp"
8759 @ 80752:                  PUSH   T
8760 @ 80755:                  SELECT 7
8761 @ 80758:                  PUSHI  #0x00000000
8762 @ 80763:                  ASSVAL

  1777        c_access = 0
8763 @ 80764:                  LINE   1777 "regression-compile-tmp/chimps.imp"
8764 @ 80801:                  PUSH   C
8765 @ 80804:                  SELECT 12
8766 @ 80807:                  PUSHI  #0x00000000
8767 @ 80812:                  ASSVAL

  1778        %if a(monitor) %start
8768 @ 80813:                  LINE   1778 "regression-compile-tmp/chimps.imp"
8769 @ 80850:                  PUSH   A
8770 @ 80853:                  PUSHI  #0x0000000d
8771 @ 80858:                  ASSPAR
8772 @ 80859:                  CALL  
8773 @ 80860:                  bf     L_000a

  1779          c_access = 1
  1780  !        fault(monitor<<8)
8774 @ 80863:                  LINE   1779 "regression-compile-tmp/chimps.imp"
8775 @ 80900:                  PUSH   C
8776 @ 80903:                  SELECT 12
8777 @ 80906:                  PUSHI  #0x00000001
8778 @ 80911:                  ASSVAL

  1781        %else %if a(exit);  !%exit, %continue
8779 @ 80912:                  LINE   1781 "regression-compile-tmp/chimps.imp"
8780 @ 80949:                  GOTO   L_0009
8781 @ 80952:                  LOCATE L_000a
8782 @ 80955:                  PUSH   A
8783 @ 80958:                  PUSHI  #0x00000006
8784 @ 80963:                  ASSPAR
8785 @ 80964:                  CALL  
8786 @ 80965:                  bf     L_000a

  1782          %if looplab = 0 %then fault(notinloop+point) %c
  1783          %else t_val = looplab %and putact
8787 @ 80968:                  LINE   1782 "regression-compile-tmp/chimps.imp"
8788 @ 81005:                  PUSH   LOOPLAB
8789 @ 81008:                  PUSHI  #0x00000000
8790 @ 81013:                  JUMPIF # L_000d
8791 @ 81017:                  PUSH   FAULT
8792 @ 81020:                  PUSHI  #0x00000010
8793 @ 81025:                  PUSHI  #0x00000040
8794 @ 81030:                  ADD   
8795 @ 81031:                  ASSPAR
8796 @ 81032:                  CALL  
8797 @ 81033:                  GOTO   L_000c
8798 @ 81036:                  LOCATE L_000d
8799 @ 81039:                  PUSH   T
8800 @ 81042:                  SELECT 7
8801 @ 81045:                  PUSH   LOOPLAB
8802 @ 81048:                  ASSVAL
8803 @ 81049:                  PUSH   PUTACT
8804 @ 81052:                  CALL  
8805 @ 81053:                  LOCATE L_000c

  1784          %exit
8806 @ 81056:                  LINE   1784 "regression-compile-tmp/chimps.imp"
8807 @ 81093:                  GOTO   L_0004

  1785        %else %if a(return)
8808 @ 81096:                  LINE   1785 "regression-compile-tmp/chimps.imp"
8809 @ 81133:                  LOCATE L_000a
8810 @ 81136:                  PUSH   A
8811 @ 81139:                  PUSHI  #0x00000007
8812 @ 81144:                  ASSPAR
8813 @ 81145:                  CALL  
8814 @ 81146:                  bf     L_000a

  1786          %if c_type # nulltype %then fault(notinrout+point) %c
  1787          %else putact
8815 @ 81149:                  LINE   1786 "regression-compile-tmp/chimps.imp"
8816 @ 81186:                  PUSH   C
8817 @ 81189:                  SELECT 5
8818 @ 81192:                  PUSHI  #0x000007f9
8819 @ 81197:                  JUMPIF = L_000d
8820 @ 81201:                  PUSH   FAULT
8821 @ 81204:                  PUSHI  #0x00000011
8822 @ 81209:                  PUSHI  #0x00000040
8823 @ 81214:                  ADD   
8824 @ 81215:                  ASSPAR
8825 @ 81216:                  CALL  
8826 @ 81217:                  GOTO   L_000c
8827 @ 81220:                  LOCATE L_000d
8828 @ 81223:                  PUSH   PUTACT
8829 @ 81226:                  CALL  
8830 @ 81227:                  LOCATE L_000c

  1788          %exit
8831 @ 81230:                  LINE   1788 "regression-compile-tmp/chimps.imp"
8832 @ 81267:                  GOTO   L_0004

  1789        %else %if a(result)
8833 @ 81270:                  LINE   1789 "regression-compile-tmp/chimps.imp"
8834 @ 81307:                  LOCATE L_000a
8835 @ 81310:                  PUSH   A
8836 @ 81313:                  PUSHI  #0x00000009
8837 @ 81318:                  ASSPAR
8838 @ 81319:                  CALL  
8839 @ 81320:                  bf     L_000a

  1790          error(notinfun+point) %if c_type <= nulltype
8840 @ 81323:                  LINE   1790 "regression-compile-tmp/chimps.imp"
8841 @ 81360:                  PUSH   C
8842 @ 81363:                  SELECT 5
8843 @ 81366:                  PUSHI  #0x000007f9
8844 @ 81371:                  JUMPIF > L_000d
8845 @ 81375:                  PUSH   ERROR
8846 @ 81378:                  PUSHI  #0x00000012
8847 @ 81383:                  PUSHI  #0x00000040
8848 @ 81388:                  ADD   
8849 @ 81389:                  ASSPAR
8850 @ 81390:                  CALL  
8851 @ 81391:                  LOCATE L_000d

  1791          syntax error %if %not a assop
8852 @ 81394:                  LINE   1791 "regression-compile-tmp/chimps.imp"
8853 @ 81431:                  PUSH   AASSOP
8854 @ 81434:                  CALL  
8855 @ 81435:                  bt     L_000d
8856 @ 81438:                  PUSH   SYNTAXERROR
8857 @ 81441:                  CALL  
8858 @ 81442:                  LOCATE L_000d

  1792          %if c_type < direct %start;  !function
8859 @ 81445:                  LINE   1792 "regression-compile-tmp/chimps.imp"
8860 @ 81482:                  PUSH   C
8861 @ 81485:                  SELECT 5
8862 @ 81488:                  PUSHI  #0x00002000
8863 @ 81493:                  JUMPIF >= L_000d

  1793            fault(caterr+point) %if atom = eqeq
8864 @ 81497:                  LINE   1793 "regression-compile-tmp/chimps.imp"
8865 @ 81534:                  PUSH   ATOM
8866 @ 81537:                  PUSHI  #0x0000004c
8867 @ 81542:                  JUMPIF # L_0010
8868 @ 81546:                  PUSH   FAULT
8869 @ 81549:                  PUSHI  #0x00000003
8870 @ 81554:                  PUSHI  #0x00000040
8871 @ 81559:                  ADD   
8872 @ 81560:                  ASSPAR
8873 @ 81561:                  CALL  
8874 @ 81562:                  LOCATE L_0010

  1794            get VALUE(c_type)
  1795  !          put2(result,0)
8875 @ 81565:                  LINE   1794 "regression-compile-tmp/chimps.imp"
8876 @ 81602:                  PUSH   GETVALUE
8877 @ 81605:                  PUSH   C
8878 @ 81608:                  SELECT 5
8879 @ 81611:                  ASSPAR
8880 @ 81612:                  CALL  

  1796          %else;  !map
8881 @ 81613:                  LINE   1796 "regression-compile-tmp/chimps.imp"
8882 @ 81650:                  GOTO   L_000c
8883 @ 81653:                  LOCATE L_000d

  1797            fault(caterr+point) %if atom # eqeq
8884 @ 81656:                  LINE   1797 "regression-compile-tmp/chimps.imp"
8885 @ 81693:                  PUSH   ATOM
8886 @ 81696:                  PUSHI  #0x0000004c
8887 @ 81701:                  JUMPIF = L_0010
8888 @ 81705:                  PUSH   FAULT
8889 @ 81708:                  PUSHI  #0x00000003
8890 @ 81713:                  PUSHI  #0x00000040
8891 @ 81718:                  ADD   
8892 @ 81719:                  ASSPAR
8893 @ 81720:                  CALL  
8894 @ 81721:                  LOCATE L_0010

  1798            get REFERENCE(c_type+(indirect-direct))
  1799  !          put2(result,0)
8895 @ 81724:                  LINE   1798 "regression-compile-tmp/chimps.imp"
8896 @ 81761:                  PUSH   GETREFERENCE
8897 @ 81764:                  PUSH   C
8898 @ 81767:                  SELECT 5
8899 @ 81770:                  PUSHI  #0x00004000
8900 @ 81775:                  PUSHI  #0x00002000
8901 @ 81780:                  SUB   
8902 @ 81781:                  ADD   
8903 @ 81782:                  ASSPAR
8904 @ 81783:                  CALL  

  1800          %finish
8905 @ 81784:                  LINE   1800 "regression-compile-tmp/chimps.imp"
8906 @ 81821:                  LOCATE L_000c

  1801          %exit
8907 @ 81824:                  LINE   1801 "regression-compile-tmp/chimps.imp"
8908 @ 81861:                  GOTO   L_0004

  1802        %else %if a(tf);  !%true, %false
8909 @ 81864:                  LINE   1802 "regression-compile-tmp/chimps.imp"
8910 @ 81901:                  LOCATE L_000a
8911 @ 81904:                  PUSH   A
8912 @ 81907:                  PUSHI  #0x00000008
8913 @ 81912:                  ASSPAR
8914 @ 81913:                  CALL  
8915 @ 81914:                  bf     L_000a

  1803          %if c_type # booltype %then fault(notinpred+point) %c
  1804          %else putact
8916 @ 81917:                  LINE   1803 "regression-compile-tmp/chimps.imp"
8917 @ 81954:                  PUSH   C
8918 @ 81957:                  SELECT 5
8919 @ 81960:                  PUSHI  #0x00000800
8920 @ 81965:                  JUMPIF = L_000d
8921 @ 81969:                  PUSH   FAULT
8922 @ 81972:                  PUSHI  #0x00000013
8923 @ 81977:                  PUSHI  #0x00000040
8924 @ 81982:                  ADD   
8925 @ 81983:                  ASSPAR
8926 @ 81984:                  CALL  
8927 @ 81985:                  GOTO   L_000c
8928 @ 81988:                  LOCATE L_000d
8929 @ 81991:                  PUSH   PUTACT
8930 @ 81994:                  CALL  
8931 @ 81995:                  LOCATE L_000c

  1805          %exit
8932 @ 81998:                  LINE   1805 "regression-compile-tmp/chimps.imp"
8933 @ 82035:                  GOTO   L_0004

  1806        %else %if a(arrow) %or a(goto)
8934 @ 82038:                  LINE   1806 "regression-compile-tmp/chimps.imp"
8935 @ 82075:                  LOCATE L_000a
8936 @ 82078:                  PUSH   A
8937 @ 82081:                  PUSHI  #0x0000004f
8938 @ 82086:                  ASSPAR
8939 @ 82087:                  CALL  
8940 @ 82088:                  bt     L_000b
8941 @ 82091:                  PUSH   A
8942 @ 82094:                  PUSHI  #0x0000000b
8943 @ 82099:                  ASSPAR
8944 @ 82100:                  CALL  
8945 @ 82101:                  bf     L_000a
8946 @ 82104:                  LOCATE L_000b

  1807          nonstandard(kgoto) %if atom = goto
8947 @ 82107:                  LINE   1807 "regression-compile-tmp/chimps.imp"
8948 @ 82144:                  PUSH   ATOM
8949 @ 82147:                  PUSHI  #0x0000000b
8950 @ 82152:                  JUMPIF # L_000d
8951 @ 82156:                  PUSH   NONSTANDARD
8952 @ 82159:                  PUSHI  #0x00000080
8953 @ 82164:                  ASSPAR
8954 @ 82165:                  CALL  
8955 @ 82166:                  LOCATE L_000d

  1808          get(ident)
8956 @ 82169:                  LINE   1808 "regression-compile-tmp/chimps.imp"
8957 @ 82206:                  PUSH   GET
8958 @ 82209:                  PUSHI  #0x00000036
8959 @ 82214:                  ASSPAR
8960 @ 82215:                  CALL  

  1809          %if byteinteger(fp) # '(' %start
8961 @ 82216:                  LINE   1809 "regression-compile-tmp/chimps.imp"
8962 @ 82253:                  PUSH   BYTEINTEGER
8963 @ 82256:                  PUSH   FP
8964 @ 82259:                  ASSPAR
8965 @ 82260:                  CALL  
8966 @ 82261:                  PUSHI  #0x00000028
8967 @ 82266:                  JUMPIF = L_000d

  1810            %if item < c_localdpos %or ditem_flags&lab = 0 %c
  1811            %or ditem_type # nulltype %start
8968 @ 82270:                  LINE   1810 "regression-compile-tmp/chimps.imp"
8969 @ 82307:                  PUSH   ITEM
8970 @ 82310:                  PUSH   C
8971 @ 82313:                  SELECT 6
8972 @ 82316:                  JUMPIF < L_0011
8973 @ 82320:                  PUSH   DITEM
8974 @ 82323:                  SELECT 1
8975 @ 82326:                  PUSHI  #0x00000002
8976 @ 82331:                  AND   
8977 @ 82332:                  PUSHI  #0x00000000
8978 @ 82337:                  JUMPIF = L_0011
8979 @ 82341:                  PUSH   DITEM
8980 @ 82344:                  SELECT 2
8981 @ 82347:                  PUSHI  #0x000007f9
8982 @ 82352:                  JUMPIF = L_0010
8983 @ 82356:                  LOCATE L_0011

  1812              d_flags = spec+lab;  d_type = nulltype
8984 @ 82359:                  LINE   1812 "regression-compile-tmp/chimps.imp"
8985 @ 82396:                  PUSH   D
8986 @ 82399:                  SELECT 1
8987 @ 82402:                  PUSHI  #0x00000010
8988 @ 82407:                  PUSHI  #0x00000002
8989 @ 82412:                  ADD   
8990 @ 82413:                  ASSVAL
8991 @ 82414:                  LINE   1812 "regression-compile-tmp/chimps.imp"
8992 @ 82451:                  PUSH   D
8993 @ 82454:                  SELECT 2
8994 @ 82457:                  PUSHI  #0x000007f9
8995 @ 82462:                  ASSVAL

  1813              declare
8996 @ 82463:                  LINE   1813 "regression-compile-tmp/chimps.imp"
8997 @ 82500:                  PUSH   DECLARE
8998 @ 82503:                  CALL  

  1814            %finish
  1815  !          put3(jump,item,0)
8999 @ 82504:                  LINE   1814 "regression-compile-tmp/chimps.imp"
9000 @ 82541:                  LOCATE L_0010

  1816          %finish %else %start
9001 @ 82544:                  LINE   1816 "regression-compile-tmp/chimps.imp"
9002 @ 82581:                  GOTO   L_000c
9003 @ 82584:                  LOCATE L_000d

  1817            name error %if item < c_localdpos
9004 @ 82587:                  LINE   1817 "regression-compile-tmp/chimps.imp"
9005 @ 82624:                  PUSH   ITEM
9006 @ 82627:                  PUSH   C
9007 @ 82630:                  SELECT 6
9008 @ 82633:                  JUMPIF >= L_0010
9009 @ 82637:                  PUSH   NAMEERROR
9010 @ 82640:                  CALL  
9011 @ 82641:                  LOCATE L_0010

  1818            syntax error %if ditem_flags&lab = 0 %or ditem_type = nulltype
9012 @ 82644:                  LINE   1818 "regression-compile-tmp/chimps.imp"
9013 @ 82681:                  PUSH   DITEM
9014 @ 82684:                  SELECT 1
9015 @ 82687:                  PUSHI  #0x00000002
9016 @ 82692:                  AND   
9017 @ 82693:                  PUSHI  #0x00000000
9018 @ 82698:                  JUMPIF = L_0011
9019 @ 82702:                  PUSH   DITEM
9020 @ 82705:                  SELECT 2
9021 @ 82708:                  PUSHI  #0x000007f9
9022 @ 82713:                  JUMPIF # L_0010
9023 @ 82717:                  LOCATE L_0011
9024 @ 82720:                  PUSH   SYNTAXERROR
9025 @ 82723:                  CALL  
9026 @ 82724:                  LOCATE L_0010

  1819            get(left)
9027 @ 82727:                  LINE   1819 "regression-compile-tmp/chimps.imp"
9028 @ 82764:                  PUSH   GET
9029 @ 82767:                  PUSHI  #0x00000037
9030 @ 82772:                  ASSPAR
9031 @ 82773:                  CALL  

  1820            get VALUE(ditem_type);  !index
9032 @ 82774:                  LINE   1820 "regression-compile-tmp/chimps.imp"
9033 @ 82811:                  PUSH   GETVALUE
9034 @ 82814:                  PUSH   DITEM
9035 @ 82817:                  SELECT 2
9036 @ 82820:                  ASSPAR
9037 @ 82821:                  CALL  

  1821            get(right)
9038 @ 82822:                  LINE   1821 "regression-compile-tmp/chimps.imp"
9039 @ 82859:                  PUSH   GET
9040 @ 82862:                  PUSHI  #0x0000003c
9041 @ 82867:                  ASSPAR
9042 @ 82868:                  CALL  

  1822          %finish
9043 @ 82869:                  LINE   1822 "regression-compile-tmp/chimps.imp"
9044 @ 82906:                  LOCATE L_000c

  1823          %exit
9045 @ 82909:                  LINE   1823 "regression-compile-tmp/chimps.imp"
9046 @ 82946:                  GOTO   L_0004

  1824        %else %if a(stop)
9047 @ 82949:                  LINE   1824 "regression-compile-tmp/chimps.imp"
9048 @ 82986:                  LOCATE L_000a
9049 @ 82989:                  PUSH   A
9050 @ 82992:                  PUSHI  #0x0000000a
9051 @ 82997:                  ASSPAR
9052 @ 82998:                  CALL  
9053 @ 82999:                  bf     L_000a

  1825          putact
9054 @ 83002:                  LINE   1825 "regression-compile-tmp/chimps.imp"
9055 @ 83039:                  PUSH   PUTACT
9056 @ 83042:                  CALL  

  1826          %exit
9057 @ 83043:                  LINE   1826 "regression-compile-tmp/chimps.imp"
9058 @ 83080:                  GOTO   L_0004

  1827        %else %if a(signal)
9059 @ 83083:                  LINE   1827 "regression-compile-tmp/chimps.imp"
9060 @ 83120:                  LOCATE L_000a
9061 @ 83123:                  PUSH   A
9062 @ 83126:                  PUSHI  #0x0000000c
9063 @ 83131:                  ASSPAR
9064 @ 83132:                  CALL  
9065 @ 83133:                  bf     L_000a

  1828          c_access = 1
9066 @ 83136:                  LINE   1828 "regression-compile-tmp/chimps.imp"
9067 @ 83173:                  PUSH   C
9068 @ 83176:                  SELECT 12
9069 @ 83179:                  PUSHI  #0x00000001
9070 @ 83184:                  ASSVAL

  1829          allow(keyevent)
9071 @ 83185:                  LINE   1829 "regression-compile-tmp/chimps.imp"
9072 @ 83222:                  PUSH   ALLOW
9073 @ 83225:                  PUSHI  #0x0000002c
9074 @ 83230:                  ASSPAR
9075 @ 83231:                  CALL  

  1830          get LITINT
9076 @ 83232:                  LINE   1830 "regression-compile-tmp/chimps.imp"
9077 @ 83269:                  PUSH   GETLITINT
9078 @ 83272:                  CALL  

  1831          expfault(rangerr+point) %unless 0 <= t_val <= 15
9079 @ 83273:                  LINE   1831 "regression-compile-tmp/chimps.imp"
9080 @ 83310:                  PUSHI  #0x00000000
9081 @ 83315:                  PUSH   T
9082 @ 83318:                  SELECT 7
9083 @ 83321:                  JUMPIFD > L_000e
9084 @ 83325:                  PUSHI  #0x0000000f
9085 @ 83330:                  JUMPIF <= L_000d
9086 @ 83334:                  LOCATE L_000e
9087 @ 83337:                  PUSH   EXPFAULT
9088 @ 83340:                  PUSHI  #0x0000000c
9089 @ 83345:                  PUSHI  #0x00000040
9090 @ 83350:                  ADD   
9091 @ 83351:                  ASSPAR
9092 @ 83352:                  CALL  
9093 @ 83353:                  LOCATE L_000d

  1832          hold = t_val;  t_val = 0
9094 @ 83356:                  LINE   1832 "regression-compile-tmp/chimps.imp"
9095 @ 83393:                  PUSH   HOLD
9096 @ 83396:                  PUSH   T
9097 @ 83399:                  SELECT 7
9098 @ 83402:                  ASSVAL
9099 @ 83403:                  LINE   1832 "regression-compile-tmp/chimps.imp"
9100 @ 83440:                  PUSH   T
9101 @ 83443:                  SELECT 7
9102 @ 83446:                  PUSHI  #0x00000000
9103 @ 83451:                  ASSVAL

  1833          get LITINT %if a(comma)
9104 @ 83452:                  LINE   1833 "regression-compile-tmp/chimps.imp"
9105 @ 83489:                  PUSH   A
9106 @ 83492:                  PUSHI  #0x0000003b
9107 @ 83497:                  ASSPAR
9108 @ 83498:                  CALL  
9109 @ 83499:                  bf     L_000d
9110 @ 83502:                  PUSH   GETLITINT
9111 @ 83505:                  CALL  
9112 @ 83506:                  LOCATE L_000d

  1834          hold = t_val<<4+hold
9113 @ 83509:                  LINE   1834 "regression-compile-tmp/chimps.imp"
9114 @ 83546:                  PUSH   HOLD
9115 @ 83549:                  PUSH   T
9116 @ 83552:                  SELECT 7
9117 @ 83555:                  PUSHI  #0x00000004
9118 @ 83560:                  LSH   
9119 @ 83561:                  PUSH   HOLD
9120 @ 83564:                  ADD   
9121 @ 83565:                  ASSVAL

  1835          item = 0;  t_val = 0
9122 @ 83566:                  LINE   1835 "regression-compile-tmp/chimps.imp"
9123 @ 83603:                  PUSH   ITEM
9124 @ 83606:                  PUSHI  #0x00000000
9125 @ 83611:                  ASSVAL
9126 @ 83612:                  LINE   1835 "regression-compile-tmp/chimps.imp"
9127 @ 83649:                  PUSH   T
9128 @ 83652:                  SELECT 7
9129 @ 83655:                  PUSHI  #0x00000000
9130 @ 83660:                  ASSVAL

  1836          get VALUE(anyint) %if a(comma)
  1837  !        put2(act,hold)
9131 @ 83661:                  LINE   1836 "regression-compile-tmp/chimps.imp"
9132 @ 83698:                  PUSH   A
9133 @ 83701:                  PUSHI  #0x0000003b
9134 @ 83706:                  ASSPAR
9135 @ 83707:                  CALL  
9136 @ 83708:                  bf     L_000d
9137 @ 83711:                  PUSH   GETVALUE
9138 @ 83714:                  PUSHI  #0x000027fe
9139 @ 83719:                  ASSPAR
9140 @ 83720:                  CALL  
9141 @ 83721:                  LOCATE L_000d

  1838          %exit
9142 @ 83724:                  LINE   1838 "regression-compile-tmp/chimps.imp"
9143 @ 83761:                  GOTO   L_0004

  1839        %else
9144 @ 83764:                  LINE   1839 "regression-compile-tmp/chimps.imp"
9145 @ 83801:                  LOCATE L_000a

  1840          syntax error
9146 @ 83804:                  LINE   1840 "regression-compile-tmp/chimps.imp"
9147 @ 83841:                  PUSH   SYNTAXERROR
9148 @ 83844:                  CALL  

  1841        %finish
9149 @ 83845:                  LINE   1841 "regression-compile-tmp/chimps.imp"
9150 @ 83882:                  LOCATE L_0009

  1842      %finish
9151 @ 83885:                  LINE   1842 "regression-compile-tmp/chimps.imp"
9152 @ 83922:                  LOCATE L_0006

  1843    %repeat %until %not a(keyand)
9153 @ 83925:                  LINE   1843 "regression-compile-tmp/chimps.imp"
9154 @ 83962:                  PUSH   A
9155 @ 83965:                  PUSHI  #0x00000040
9156 @ 83970:                  ASSPAR
9157 @ 83971:                  CALL  
9158 @ 83972:                  bf     L_0004
9159 @ 83975:                  REPEAT L_0003
9160 @ 83978:                  LOCATE L_0004

  1844  %end;  !GET INSTRUCTION
  1845  
9161 @ 83981:                  LINE   1844 "regression-compile-tmp/chimps.imp"
9162 @ 84018:               END    _ECCECI_GETSTATEMENTS_GETINSTRUCTION {lev=3 --> 2}

  1846  %routine GET FOR CLAUSE
9163 @ 84019:               LINE   1846 "regression-compile-tmp/chimps.imp"
9164 @ 84056:               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
9165 @ 84080:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
9166 @ 84081:                  FINISH ) {lev=3}

  1847  %integer loopvar,k,s,start,sval,i,inc,ival,e,n,temp
9167 @ 84082:                  LINE   1847 "regression-compile-tmp/chimps.imp"
9168 @ 84119:                  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
9169 @ 84138:                  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
9170 @ 84151:                  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
9171 @ 84164:                  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
9172 @ 84181:                  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
9173 @ 84197:                  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
9174 @ 84210:                  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
9175 @ 84225:                  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
9176 @ 84241:                  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
9177 @ 84254:                  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
9178 @ 84267:                  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

  1848  %integer eval
9179 @ 84283:                  LINE   1848 "regression-compile-tmp/chimps.imp"
9180 @ 84320:                  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

  1849  %record(identinfo)%name dp
9181 @ 84336:                  LINE   1849 "regression-compile-tmp/chimps.imp"
9182 @ 84373:                  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

  1850    holdnp = np;  temp = 0
9183 @ 84387:                  LINE   1850 "regression-compile-tmp/chimps.imp"
9184 @ 84424:                  PUSH   HOLDNP
9185 @ 84427:                  PUSH   NP
9186 @ 84430:                  ASSVAL
9187 @ 84431:                  LINE   1850 "regression-compile-tmp/chimps.imp"
9188 @ 84468:                  PUSH   TEMP
9189 @ 84471:                  PUSHI  #0x00000000
9190 @ 84476:                  ASSVAL

  1851    dict(curlab)_val = 1;  !dummy
9191 @ 84477:                  LINE   1851 "regression-compile-tmp/chimps.imp"
9192 @ 84514:                  PUSH   DICT
9193 @ 84517:                  PUSH   CURLAB
9194 @ 84520:                  ACCESS
9195 @ 84521:                  SELECT 7
9196 @ 84524:                  PUSHI  #0x00000001
9197 @ 84529:                  ASSVAL

  1852    condnp = np
9198 @ 84530:                  LINE   1852 "regression-compile-tmp/chimps.imp"
9199 @ 84567:                  PUSH   CONDNP
9200 @ 84570:                  PUSH   NP
9201 @ 84573:                  ASSVAL

  1853    get(ident)
9202 @ 84574:                  LINE   1853 "regression-compile-tmp/chimps.imp"
9203 @ 84611:                  PUSH   GET
9204 @ 84614:                  PUSHI  #0x00000036
9205 @ 84619:                  ASSPAR
9206 @ 84620:                  CALL  

  1854    name error %if item <= 0
9207 @ 84621:                  LINE   1854 "regression-compile-tmp/chimps.imp"
9208 @ 84658:                  PUSH   ITEM
9209 @ 84661:                  PUSHI  #0x00000000
9210 @ 84666:                  JUMPIF > L_0004
9211 @ 84670:                  PUSH   NAMEERROR
9212 @ 84673:                  CALL  
9213 @ 84674:                  LOCATE L_0004

  1855    fault(typerr+point) %if dict(ditem_type&puretype)_type # inty
9214 @ 84677:                  LINE   1855 "regression-compile-tmp/chimps.imp"
9215 @ 84714:                  PUSH   DICT
9216 @ 84717:                  PUSH   DITEM
9217 @ 84720:                  SELECT 2
9218 @ 84723:                  PUSHI  #0x00001fff
9219 @ 84728:                  AND   
9220 @ 84729:                  ACCESS
9221 @ 84730:                  SELECT 2
9222 @ 84733:                  PUSHI  #0x000007fe
9223 @ 84738:                  JUMPIF = L_0004
9224 @ 84742:                  PUSH   FAULT
9225 @ 84745:                  PUSHI  #0x00000006
9226 @ 84750:                  PUSHI  #0x00000040
9227 @ 84755:                  ADD   
9228 @ 84756:                  ASSPAR
9229 @ 84757:                  CALL  
9230 @ 84758:                  LOCATE L_0004

  1856    fault(caterr+point+warn) %if ditem_type # direct+inttype
9231 @ 84761:                  LINE   1856 "regression-compile-tmp/chimps.imp"
9232 @ 84798:                  PUSH   DITEM
9233 @ 84801:                  SELECT 2
9234 @ 84804:                  PUSHI  #0x00002000
9235 @ 84809:                  PUSHI  #0x00000803
9236 @ 84814:                  ADD   
9237 @ 84815:                  JUMPIF = L_0004
9238 @ 84819:                  PUSH   FAULT
9239 @ 84822:                  PUSHI  #0x00000003
9240 @ 84827:                  PUSHI  #0x00000040
9241 @ 84832:                  ADD   
9242 @ 84833:                  PUSHI  #0x00000080
9243 @ 84838:                  ADD   
9244 @ 84839:                  ASSPAR
9245 @ 84840:                  CALL  
9246 @ 84841:                  LOCATE L_0004

  1857    loopvar = item;  dp == ditem
9247 @ 84844:                  LINE   1857 "regression-compile-tmp/chimps.imp"
9248 @ 84881:                  PUSH   LOOPVAR
9249 @ 84884:                  PUSH   ITEM
9250 @ 84887:                  ASSVAL
9251 @ 84888:                  LINE   1857 "regression-compile-tmp/chimps.imp"
9252 @ 84925:                  PUSH   DP
9253 @ 84928:                  PUSH   DITEM
9254 @ 84931:                  ASSREF

  1858    get(equals)
9255 @ 84932:                  LINE   1858 "regression-compile-tmp/chimps.imp"
9256 @ 84969:                  PUSH   GET
9257 @ 84972:                  PUSHI  #0x00000046
9258 @ 84977:                  ASSPAR
9259 @ 84978:                  CALL  

  1859    get VALUE(ditem_type)
9260 @ 84979:                  LINE   1859 "regression-compile-tmp/chimps.imp"
9261 @ 85016:                  PUSH   GETVALUE
9262 @ 85019:                  PUSH   DITEM
9263 @ 85022:                  SELECT 2
9264 @ 85025:                  ASSPAR
9265 @ 85026:                  CALL  

  1860    start = item;  sval = t_val
9266 @ 85027:                  LINE   1860 "regression-compile-tmp/chimps.imp"
9267 @ 85064:                  PUSH   START
9268 @ 85067:                  PUSH   ITEM
9269 @ 85070:                  ASSVAL
9270 @ 85071:                  LINE   1860 "regression-compile-tmp/chimps.imp"
9271 @ 85108:                  PUSH   SVAL
9272 @ 85111:                  PUSH   T
9273 @ 85114:                  SELECT 7
9274 @ 85117:                  ASSVAL

  1861    get(comma)
9275 @ 85118:                  LINE   1861 "regression-compile-tmp/chimps.imp"
9276 @ 85155:                  PUSH   GET
9277 @ 85158:                  PUSHI  #0x0000003b
9278 @ 85163:                  ASSPAR
9279 @ 85164:                  CALL  

  1862    get VALUE(anyint)
9280 @ 85165:                  LINE   1862 "regression-compile-tmp/chimps.imp"
9281 @ 85202:                  PUSH   GETVALUE
9282 @ 85205:                  PUSHI  #0x000027fe
9283 @ 85210:                  ASSPAR
9284 @ 85211:                  CALL  

  1863    inc = item;  ival = t_val
9285 @ 85212:                  LINE   1863 "regression-compile-tmp/chimps.imp"
9286 @ 85249:                  PUSH   INC
9287 @ 85252:                  PUSH   ITEM
9288 @ 85255:                  ASSVAL
9289 @ 85256:                  LINE   1863 "regression-compile-tmp/chimps.imp"
9290 @ 85293:                  PUSH   IVAL
9291 @ 85296:                  PUSH   T
9292 @ 85299:                  SELECT 7
9293 @ 85302:                  ASSVAL

  1864    expfault(rangerr+point) %and ival = 1 %if inc = 0 = ival
9294 @ 85303:                  LINE   1864 "regression-compile-tmp/chimps.imp"
9295 @ 85340:                  PUSH   INC
9296 @ 85343:                  PUSHI  #0x00000000
9297 @ 85348:                  JUMPIFD # L_0004
9298 @ 85352:                  PUSH   IVAL
9299 @ 85355:                  JUMPIF # L_0004
9300 @ 85359:                  PUSH   EXPFAULT
9301 @ 85362:                  PUSHI  #0x0000000c
9302 @ 85367:                  PUSHI  #0x00000040
9303 @ 85372:                  ADD   
9304 @ 85373:                  ASSPAR
9305 @ 85374:                  CALL  
9306 @ 85375:                  PUSH   IVAL
9307 @ 85378:                  PUSHI  #0x00000001
9308 @ 85383:                  ASSVAL
9309 @ 85384:                  LOCATE L_0004

  1865    get(comma)
9310 @ 85387:                  LINE   1865 "regression-compile-tmp/chimps.imp"
9311 @ 85424:                  PUSH   GET
9312 @ 85427:                  PUSHI  #0x0000003b
9313 @ 85432:                  ASSPAR
9314 @ 85433:                  CALL  

  1866    get VALUE(ditem_type)
  1867  !Deal with INC and replace START by START-INC
  1868  !  k = undef
  1869  !  k = exp(start)_y %if start >= expmin %and exp(start)_act = plus
9315 @ 85434:                  LINE   1866 "regression-compile-tmp/chimps.imp"
9316 @ 85471:                  PUSH   GETVALUE
9317 @ 85474:                  PUSH   DITEM
9318 @ 85477:                  SELECT 2
9319 @ 85480:                  ASSPAR
9320 @ 85481:                  CALL  

  1870    %if inc = 0 %start;  !literal increment
9321 @ 85482:                  LINE   1870 "regression-compile-tmp/chimps.imp"
9322 @ 85519:                  PUSH   INC
9323 @ 85522:                  PUSHI  #0x00000000
9324 @ 85527:                  JUMPIF # L_0004

  1871      i = 1;  !litref(ival)
9325 @ 85531:                  LINE   1871 "regression-compile-tmp/chimps.imp"
9326 @ 85568:                  PUSH   I
9327 @ 85571:                  PUSHI  #0x00000001
9328 @ 85576:                  ASSVAL

  1872      %if start = 0 %start;  !START and INC both literal
9329 @ 85577:                  LINE   1872 "regression-compile-tmp/chimps.imp"
9330 @ 85614:                  PUSH   START
9331 @ 85617:                  PUSHI  #0x00000000
9332 @ 85622:                  JUMPIF # L_0007

  1873        sval = sval-ival;  s = 1;  !litref(sval)
  1874  !   %else %if k <= litmax;  !START is x+lit
  1875  !      k = ival-litval(k)
  1876  !      s = exp(start)_x;  s = explo;!expref(plus,s,litref(k)) %if k # 0
9333 @ 85626:                  LINE   1873 "regression-compile-tmp/chimps.imp"
9334 @ 85663:                  PUSH   SVAL
9335 @ 85666:                  PUSH   SVAL
9336 @ 85669:                  PUSH   IVAL
9337 @ 85672:                  SUB   
9338 @ 85673:                  ASSVAL
9339 @ 85674:                  LINE   1873 "regression-compile-tmp/chimps.imp"
9340 @ 85711:                  PUSH   S
9341 @ 85714:                  PUSHI  #0x00000001
9342 @ 85719:                  ASSVAL

  1877      %else
9343 @ 85720:                  LINE   1877 "regression-compile-tmp/chimps.imp"
9344 @ 85757:                  GOTO   L_0006
9345 @ 85760:                  LOCATE L_0007

  1878        s = explo;!expref(plus,start,litref(-ival))
9346 @ 85763:                  LINE   1878 "regression-compile-tmp/chimps.imp"
9347 @ 85800:                  PUSH   S
9348 @ 85803:                  PUSH   EXPLO
9349 @ 85806:                  ASSVAL

  1879      %finish
9350 @ 85807:                  LINE   1879 "regression-compile-tmp/chimps.imp"
9351 @ 85844:                  LOCATE L_0006

  1880    %finish %else %start;  !allocate temp var
  1881  !    i = tempvar;  put3(assign,i,inc);  temp = temp-4
  1882  !    %if start = inc %start;  !identical
  1883  !      s = 0;  sval = 0
  1884  !   %else %if k = inc;  !START is x+INC
  1885  !      s = exp(start)_x
  1886  !    %else
  1887  !      s = start;  s = litref(sval) %if s = 0
9352 @ 85847:                  LINE   1880 "regression-compile-tmp/chimps.imp"
9353 @ 85884:                  GOTO   L_0003
9354 @ 85887:                  LOCATE L_0004

  1888        s = explo;!expref(minus,s,i)
  1889  !    %finish
9355 @ 85890:                  LINE   1888 "regression-compile-tmp/chimps.imp"
9356 @ 85927:                  PUSH   S
9357 @ 85930:                  PUSH   EXPLO
9358 @ 85933:                  ASSVAL

  1890    %finish
  1891  !  %if item = 0 %start;  !literal end-value
  1892  !    e = litref(t_val);  eval = t_val
  1893  !  %finish %else %start
  1894  !    e = tempvar;  put3(assign,e,item);  temp = temp-4
  1895  !  %finish
  1896  !  put3(assign,loopvar,s)
  1897  !  put3(label,curlab,0)
9359 @ 85934:                  LINE   1890 "regression-compile-tmp/chimps.imp"
9360 @ 85971:                  LOCATE L_0003

  1898    %if start!inc!item = 0 %start;  !all literal
9361 @ 85974:                  LINE   1898 "regression-compile-tmp/chimps.imp"
9362 @ 86011:                  PUSH   START
9363 @ 86014:                  PUSH   INC
9364 @ 86017:                  OR    
9365 @ 86018:                  PUSH   ITEM
9366 @ 86021:                  OR    
9367 @ 86022:                  PUSHI  #0x00000000
9368 @ 86027:                  JUMPIF # L_0004

  1899      k = t_val-sval;  n = k//ival
9369 @ 86031:                  LINE   1899 "regression-compile-tmp/chimps.imp"
9370 @ 86068:                  PUSH   K
9371 @ 86071:                  PUSH   T
9372 @ 86074:                  SELECT 7
9373 @ 86077:                  PUSH   SVAL
9374 @ 86080:                  SUB   
9375 @ 86081:                  ASSVAL
9376 @ 86082:                  LINE   1899 "regression-compile-tmp/chimps.imp"
9377 @ 86119:                  PUSH   N
9378 @ 86122:                  PUSH   K
9379 @ 86125:                  PUSH   IVAL
9380 @ 86128:                  QUOT  
9381 @ 86129:                  ASSVAL

  1900      fault(boundserr) %if n < 0
9382 @ 86130:                  LINE   1900 "regression-compile-tmp/chimps.imp"
9383 @ 86167:                  PUSH   N
9384 @ 86170:                  PUSHI  #0x00000000
9385 @ 86175:                  JUMPIF >= L_0007
9386 @ 86179:                  PUSH   FAULT
9387 @ 86182:                  PUSHI  #0x0000000e
9388 @ 86187:                  ASSPAR
9389 @ 86188:                  CALL  
9390 @ 86189:                  LOCATE L_0007

  1901      fault(unending) %if n*ival # k
  1902  !    %if 0 <= t_val <= 32767 %start
  1903  !      temp = loopvar
  1904  !    %finish
9391 @ 86192:                  LINE   1901 "regression-compile-tmp/chimps.imp"
9392 @ 86229:                  PUSH   N
9393 @ 86232:                  PUSH   IVAL
9394 @ 86235:                  MUL   
9395 @ 86236:                  PUSH   K
9396 @ 86239:                  JUMPIF = L_0007
9397 @ 86243:                  PUSH   FAULT
9398 @ 86246:                  PUSHI  #0x00000025
9399 @ 86251:                  ASSPAR
9400 @ 86252:                  CALL  
9401 @ 86253:                  LOCATE L_0007

  1905    %finish
  1906  !  %if temp <= 0 %start
  1907  !    c_fortemps = c_fortemps-temp;  !ie increment
  1908  !    put3(compare,loopvar,e)
  1909  !    put3(eq,0,curlab+1)
  1910  !  %finish
  1911  !  put3(plusass,loopvar,i)
  1912  !  compile(holdnp,np)
9402 @ 86256:                  LINE   1905 "regression-compile-tmp/chimps.imp"
9403 @ 86293:                  LOCATE L_0004

  1913  %end;  !get FORCLAUSE
  1914  
9404 @ 86296:                  LINE   1913 "regression-compile-tmp/chimps.imp"
9405 @ 86333:               END    _ECCECI_GETSTATEMENTS_GETFORCLAUSE {lev=3 --> 2}

  1915  %routine GET SWITCH INDEX
9406 @ 86334:               LINE   1915 "regression-compile-tmp/chimps.imp"
9407 @ 86371:               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
9408 @ 86397:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
9409 @ 86398:                  FINISH ) {lev=3}

  1916  %integer item1
9410 @ 86399:                  LINE   1916 "regression-compile-tmp/chimps.imp"
9411 @ 86436:                  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

  1917  %record(identinfo)%name dp
9412 @ 86453:                  LINE   1917 "regression-compile-tmp/chimps.imp"
9413 @ 86490:                  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

  1918    item1 = item;  dp == ditem
9414 @ 86504:                  LINE   1918 "regression-compile-tmp/chimps.imp"
9415 @ 86541:                  PUSH   ITEM1
9416 @ 86544:                  PUSH   ITEM
9417 @ 86547:                  ASSVAL
9418 @ 86548:                  LINE   1918 "regression-compile-tmp/chimps.imp"
9419 @ 86585:                  PUSH   DP
9420 @ 86588:                  PUSH   DITEM
9421 @ 86591:                  ASSREF

  1919    get(left)
9422 @ 86592:                  LINE   1919 "regression-compile-tmp/chimps.imp"
9423 @ 86629:                  PUSH   GET
9424 @ 86632:                  PUSHI  #0x00000037
9425 @ 86637:                  ASSPAR
9426 @ 86638:                  CALL  

  1920    item = 1
9427 @ 86639:                  LINE   1920 "regression-compile-tmp/chimps.imp"
9428 @ 86676:                  PUSH   ITEM
9429 @ 86679:                  PUSHI  #0x00000001
9430 @ 86684:                  ASSVAL

  1921    %if a(star) %start
9431 @ 86685:                  LINE   1921 "regression-compile-tmp/chimps.imp"
9432 @ 86722:                  PUSH   A
9433 @ 86725:                  PUSHI  #0x00000058
9434 @ 86730:                  ASSPAR
9435 @ 86731:                  CALL  
9436 @ 86732:                  bf     L_0004

  1922      fault(duperr+point) %if dp_spare # 0
9437 @ 86735:                  LINE   1922 "regression-compile-tmp/chimps.imp"
9438 @ 86772:                  PUSH   DP
9439 @ 86775:                  SELECT 4
9440 @ 86778:                  PUSHI  #0x00000000
9441 @ 86783:                  JUMPIF = L_0007
9442 @ 86787:                  PUSH   FAULT
9443 @ 86790:                  PUSHI  #0x00000007
9444 @ 86795:                  PUSHI  #0x00000040
9445 @ 86800:                  ADD   
9446 @ 86801:                  ASSPAR
9447 @ 86802:                  CALL  
9448 @ 86803:                  LOCATE L_0007

  1923      dp_spare = 1
9449 @ 86806:                  LINE   1923 "regression-compile-tmp/chimps.imp"
9450 @ 86843:                  PUSH   DP
9451 @ 86846:                  SELECT 4
9452 @ 86849:                  PUSHI  #0x00000001
9453 @ 86854:                  ASSVAL

  1924    %else
9454 @ 86855:                  LINE   1924 "regression-compile-tmp/chimps.imp"
9455 @ 86892:                  GOTO   L_0003
9456 @ 86895:                  LOCATE L_0004

  1925      get LITERAL(dp_type)
  1926     !beware faulty declaration or index
9457 @ 86898:                  LINE   1925 "regression-compile-tmp/chimps.imp"
9458 @ 86935:                  PUSH   GETLITERAL
9459 @ 86938:                  PUSH   DP
9460 @ 86941:                  SELECT 2
9461 @ 86944:                  ASSPAR
9462 @ 86945:                  CALL  

  1927      %if dp_type > inttype %and faultnum = 0 %start
9463 @ 86946:                  LINE   1927 "regression-compile-tmp/chimps.imp"
9464 @ 86983:                  PUSH   DP
9465 @ 86986:                  SELECT 2
9466 @ 86989:                  PUSHI  #0x00000803
9467 @ 86994:                  JUMPIF <= L_0007
9468 @ 86998:                  PUSH   FAULTNUM
9469 @ 87001:                  PUSHI  #0x00000000
9470 @ 87006:                  JUMPIF # L_0007

  1928        t_val = t_val-dict(dp_type)_low+dp_val
9471 @ 87010:                  LINE   1928 "regression-compile-tmp/chimps.imp"
9472 @ 87047:                  PUSH   T
9473 @ 87050:                  SELECT 7
9474 @ 87053:                  PUSH   T
9475 @ 87056:                  SELECT 7
9476 @ 87059:                  PUSH   DICT
9477 @ 87062:                  PUSH   DP
9478 @ 87065:                  SELECT 2
9479 @ 87068:                  ACCESS
9480 @ 87069:                  SELECT 6
9481 @ 87072:                  SUB   
9482 @ 87073:                  PUSH   DP
9483 @ 87076:                  SELECT 7
9484 @ 87079:                  ADD   
9485 @ 87080:                  ASSVAL

  1929        expfault(duperr+point) %if final(t_val) # 0
  1930  !      define jumps(final(t_val));  !in case of lit jumps
9486 @ 87081:                  LINE   1929 "regression-compile-tmp/chimps.imp"
9487 @ 87118:                  PUSH   FINAL
9488 @ 87121:                  PUSH   T
9489 @ 87124:                  SELECT 7
9490 @ 87127:                  ACCESS
9491 @ 87128:                  PUSHI  #0x00000000
9492 @ 87133:                  JUMPIF = L_000a
9493 @ 87137:                  PUSH   EXPFAULT
9494 @ 87140:                  PUSHI  #0x00000007
9495 @ 87145:                  PUSHI  #0x00000040
9496 @ 87150:                  ADD   
9497 @ 87151:                  ASSPAR
9498 @ 87152:                  CALL  
9499 @ 87153:                  LOCATE L_000a

  1931        final(t_val) = 1
9500 @ 87156:                  LINE   1931 "regression-compile-tmp/chimps.imp"
9501 @ 87193:                  PUSH   FINAL
9502 @ 87196:                  PUSH   T
9503 @ 87199:                  SELECT 7
9504 @ 87202:                  ACCESS
9505 @ 87203:                  PUSHI  #0x00000001
9506 @ 87208:                  ASSVAL

  1932      %finish
9507 @ 87209:                  LINE   1932 "regression-compile-tmp/chimps.imp"
9508 @ 87246:                  LOCATE L_0007

  1933    %finish
9509 @ 87249:                  LINE   1933 "regression-compile-tmp/chimps.imp"
9510 @ 87286:                  LOCATE L_0003

  1934    get(right)
9511 @ 87289:                  LINE   1934 "regression-compile-tmp/chimps.imp"
9512 @ 87326:                  PUSH   GET
9513 @ 87329:                  PUSHI  #0x0000003c
9514 @ 87334:                  ASSPAR
9515 @ 87335:                  CALL  

  1935    c_access = 1
9516 @ 87336:                  LINE   1935 "regression-compile-tmp/chimps.imp"
9517 @ 87373:                  PUSH   C
9518 @ 87376:                  SELECT 12
9519 @ 87379:                  PUSHI  #0x00000001
9520 @ 87384:                  ASSVAL

  1936  %end
  1937  
  1938  ![unsure of efficiency implications of trapping overflow lower down]
9521 @ 87385:                  LINE   1936 "regression-compile-tmp/chimps.imp"
9522 @ 87422:               END    _ECCECI_GETSTATEMENTS_GETSWITCHINDEX {lev=3 --> 2}

  1939  %on %event 1,14 %start
  1940  !$IF VAX
9523 @ 87423:               LINE   1939 "regression-compile-tmp/chimps.imp"
9524 @ 87460:               ON     MASK=4002 L_0004

  1941    report(rangerr,0) %if event_event = 1
  1942  !$IF AMDAHL
  1943  {  report(rangerr,0) %if eventinf>>8 = 1
  1944  !$FINISH
9525 @ 87466:               LINE   1941 "regression-compile-tmp/chimps.imp"
9526 @ 87503:               PUSH   EVENT
9527 @ 87506:               CALL  
9528 @ 87507:               SELECT 1
9529 @ 87510:               PUSHI  #0x00000001
9530 @ 87515:               JUMPIF # L_0007
9531 @ 87519:               PUSH   REPORT
9532 @ 87522:               PUSHI  #0x0000000c
9533 @ 87527:               ASSPAR
9534 @ 87528:               PUSHI  #0x00000000
9535 @ 87533:               ASSPAR
9536 @ 87534:               CALL  
9537 @ 87535:               LOCATE L_0007

  1945    -> skip
9538 @ 87538:               LINE   1945 "regression-compile-tmp/chimps.imp"
9539 @ 87575:               JUMP   L_0114

  1946  %finish
  1947  !!!!!!!!!!!!!!!!!!!  Start of new statement  !!!!!!!!!!!!!!!!!!!
9540 @ 87578:               LINE   1946 "regression-compile-tmp/chimps.imp"
9541 @ 87615:               LOCATE L_0004

  1948  next:
9542 @ 87618:               LINE   1948 "regression-compile-tmp/chimps.imp"
9543 @ 87655:               LABEL  L_0115

  1949    statements = statements+1
9544 @ 87658:               LINE   1949 "regression-compile-tmp/chimps.imp"
9545 @ 87695:               PUSH   STATEMENTS
9546 @ 87698:               PUSH   STATEMENTS
9547 @ 87701:               PUSHI  #0x00000001
9548 @ 87706:               ADD   
9549 @ 87707:               ASSVAL

  1950  next1:
9550 @ 87708:               LINE   1950 "regression-compile-tmp/chimps.imp"
9551 @ 87745:               LABEL  L_0116

  1951    report(faultnum,faultp) %if faultnum # 0
9552 @ 87748:               LINE   1951 "regression-compile-tmp/chimps.imp"
9553 @ 87785:               PUSH   FAULTNUM
9554 @ 87788:               PUSHI  #0x00000000
9555 @ 87793:               JUMPIF = L_0004
9556 @ 87797:               PUSH   REPORT
9557 @ 87800:               PUSH   FAULTNUM
9558 @ 87803:               ASSPAR
9559 @ 87804:               PUSH   FAULTP
9560 @ 87807:               ASSPAR
9561 @ 87808:               CALL  
9562 @ 87809:               LOCATE L_0004

  1952    d = 0;  declmode = 0;  dsize = 0
9563 @ 87812:               LINE   1952 "regression-compile-tmp/chimps.imp"
9564 @ 87849:               PUSH   D
9565 @ 87852:               PUSHI  #0x00000000
9566 @ 87857:               ASSVAL
9567 @ 87858:               LINE   1952 "regression-compile-tmp/chimps.imp"
9568 @ 87895:               PUSH   DECLMODE
9569 @ 87898:               PUSHI  #0x00000000
9570 @ 87903:               ASSVAL
9571 @ 87904:               LINE   1952 "regression-compile-tmp/chimps.imp"
9572 @ 87941:               PUSH   DSIZE
9573 @ 87944:               PUSHI  #0x00000000
9574 @ 87949:               ASSVAL

  1953    dlim0 = dlim;  elements = 0
9575 @ 87950:               LINE   1953 "regression-compile-tmp/chimps.imp"
9576 @ 87987:               PUSH   DLIM0
9577 @ 87990:               PUSH   DLIM
9578 @ 87993:               ASSVAL
9579 @ 87994:               LINE   1953 "regression-compile-tmp/chimps.imp"
9580 @ 88031:               PUSH   ELEMENTS
9581 @ 88034:               PUSHI  #0x00000000
9582 @ 88039:               ASSVAL

  1954    speccing = 0;  mcoding = 0
9583 @ 88040:               LINE   1954 "regression-compile-tmp/chimps.imp"
9584 @ 88077:               PUSH   SPECCING
9585 @ 88080:               PUSHI  #0x00000000
9586 @ 88085:               ASSVAL
9587 @ 88086:               LINE   1954 "regression-compile-tmp/chimps.imp"
9588 @ 88123:               PUSH   MCODING
9589 @ 88126:               PUSHI  #0x00000000
9590 @ 88131:               ASSVAL

  1955    literal = 0;  jammy = 0
9591 @ 88132:               LINE   1955 "regression-compile-tmp/chimps.imp"
9592 @ 88169:               PUSH   LITERAL
9593 @ 88172:               PUSHI  #0x00000000
9594 @ 88177:               ASSVAL
9595 @ 88178:               LINE   1955 "regression-compile-tmp/chimps.imp"
9596 @ 88215:               PUSH   JAMMY
9597 @ 88218:               PUSHI  #0x00000000
9598 @ 88223:               ASSVAL

  1956    dict(curlab)_val = 0;  dict(curlab+1)_val = 0
9599 @ 88224:               LINE   1956 "regression-compile-tmp/chimps.imp"
9600 @ 88261:               PUSH   DICT
9601 @ 88264:               PUSH   CURLAB
9602 @ 88267:               ACCESS
9603 @ 88268:               SELECT 7
9604 @ 88271:               PUSHI  #0x00000000
9605 @ 88276:               ASSVAL
9606 @ 88277:               LINE   1956 "regression-compile-tmp/chimps.imp"
9607 @ 88314:               PUSH   DICT
9608 @ 88317:               PUSH   CURLAB
9609 @ 88320:               PUSHI  #0x00000001
9610 @ 88325:               ADD   
9611 @ 88326:               ACCESS
9612 @ 88327:               SELECT 7
9613 @ 88330:               PUSHI  #0x00000000
9614 @ 88335:               ASSVAL

  1957    np = np0;  instnp = np0;  condnp = np0
  1958  !  constad == finalad;  constbound = purebound
9615 @ 88336:               LINE   1957 "regression-compile-tmp/chimps.imp"
9616 @ 88373:               PUSH   NP
9617 @ 88376:               PUSHI  #0x00000cb7
9618 @ 88381:               ASSVAL
9619 @ 88382:               LINE   1957 "regression-compile-tmp/chimps.imp"
9620 @ 88419:               PUSH   INSTNP
9621 @ 88422:               PUSHI  #0x00000cb7
9622 @ 88427:               ASSVAL
9623 @ 88428:               LINE   1957 "regression-compile-tmp/chimps.imp"
9624 @ 88465:               PUSH   CONDNP
9625 @ 88468:               PUSHI  #0x00000cb7
9626 @ 88473:               ASSVAL

  1959    %if explo < expmin+50 %or litpos > litmax-50 %start
  1960      !zaps = zaps+1;  zaps = zaps+999 %if litpos > litmax-50
9627 @ 88474:               LINE   1959 "regression-compile-tmp/chimps.imp"
9628 @ 88511:               PUSH   EXPLO
9629 @ 88514:               PUSHI  #0x00000cb7
9630 @ 88519:               PUSHI  #0x00000032
9631 @ 88524:               ADD   
9632 @ 88525:               JUMPIF < L_0005
9633 @ 88529:               PUSH   LITPOS
9634 @ 88532:               PUSHI  #0x000007d0
9635 @ 88537:               PUSHI  #0x00000032
9636 @ 88542:               SUB   
9637 @ 88543:               JUMPIF <= L_0004
9638 @ 88547:               LOCATE L_0005

  1961      forget all
9639 @ 88550:               LINE   1961 "regression-compile-tmp/chimps.imp"
9640 @ 88587:               PUSH   FORGETALL
9641 @ 88590:               CALL  

  1962    %finish
9642 @ 88591:               LINE   1962 "regression-compile-tmp/chimps.imp"
9643 @ 88628:               LOCATE L_0004

  1963    t_val = 0
  1964  !
9644 @ 88631:               LINE   1963 "regression-compile-tmp/chimps.imp"
9645 @ 88668:               PUSH   T
9646 @ 88671:               SELECT 7
9647 @ 88674:               PUSHI  #0x00000000
9648 @ 88679:               ASSVAL

  1965  initial(terminator):
9649 @ 88680:               LINE   1965 "regression-compile-tmp/chimps.imp"
9650 @ 88717:               PUSHI  #0x00000034
9651 @ 88722:               SLABEL 272

  1966    atom = next atom;  matched = 1
9652 @ 88725:               LINE   1966 "regression-compile-tmp/chimps.imp"
9653 @ 88762:               PUSH   ATOM
9654 @ 88765:               PUSH   NEXTATOM
9655 @ 88768:               CALL  
9656 @ 88769:               ASSVAL
9657 @ 88770:               LINE   1966 "regression-compile-tmp/chimps.imp"
9658 @ 88807:               PUSH   MATCHED
9659 @ 88810:               PUSHI  #0x00000001
9660 @ 88815:               ASSVAL

  1967    -> initial(atom)
9661 @ 88816:               LINE   1967 "regression-compile-tmp/chimps.imp"
9662 @ 88853:               PUSH   ATOM
9663 @ 88856:               SJUMP  272

  1968  initial(star): initial(exclam): initial(exclam2):
9664 @ 88859:               LINE   1968 "regression-compile-tmp/chimps.imp"
9665 @ 88896:               PUSHI  #0x00000058
9666 @ 88901:               SLABEL 272
9667 @ 88904:               LINE   1968 "regression-compile-tmp/chimps.imp"
9668 @ 88941:               PUSHI  #0x00000052
9669 @ 88946:               SLABEL 272
9670 @ 88949:               LINE   1968 "regression-compile-tmp/chimps.imp"
9671 @ 88986:               PUSHI  #0x00000053
9672 @ 88991:               SLABEL 272

  1969    read line
9673 @ 88994:               LINE   1969 "regression-compile-tmp/chimps.imp"
9674 @ 89031:               PUSH   READLINE
9675 @ 89034:               CALL  

  1970    -> next1
9676 @ 89035:               LINE   1970 "regression-compile-tmp/chimps.imp"
9677 @ 89072:               JUMP   L_0116

  1971  term:
9678 @ 89075:               LINE   1971 "regression-compile-tmp/chimps.imp"
9679 @ 89112:               LABEL  L_0117

  1972    get(terminator)
9680 @ 89115:               LINE   1972 "regression-compile-tmp/chimps.imp"
9681 @ 89152:               PUSH   GET
9682 @ 89155:               PUSHI  #0x00000034
9683 @ 89160:               ASSPAR
9684 @ 89161:               CALL  

  1973    -> next
  1974  
9685 @ 89162:               LINE   1973 "regression-compile-tmp/chimps.imp"
9686 @ 89199:               JUMP   L_0115

  1975  skip:
9687 @ 89202:               LINE   1975 "regression-compile-tmp/chimps.imp"
9688 @ 89239:               LABEL  L_0114

  1976    c_access = -1
9689 @ 89242:               LINE   1976 "regression-compile-tmp/chimps.imp"
9690 @ 89279:               PUSH   C
9691 @ 89282:               SELECT 12
9692 @ 89285:               PUSHI  #0x00000001
9693 @ 89290:               NEGATE
9694 @ 89291:               ASSVAL

  1977    %if atom # terminator %start
9695 @ 89292:               LINE   1977 "regression-compile-tmp/chimps.imp"
9696 @ 89329:               PUSH   ATOM
9697 @ 89332:               PUSHI  #0x00000034
9698 @ 89337:               JUMPIF = L_0004

  1978      %cycle
9699 @ 89341:               LINE   1978 "regression-compile-tmp/chimps.imp"
9700 @ 89378:               LOCATE L_0006

  1979        subatom = atom;  atom = next atom
9701 @ 89381:               LINE   1979 "regression-compile-tmp/chimps.imp"
9702 @ 89418:               PUSH   SUBATOM
9703 @ 89421:               PUSH   ATOM
9704 @ 89424:               ASSVAL
9705 @ 89425:               LINE   1979 "regression-compile-tmp/chimps.imp"
9706 @ 89462:               PUSH   ATOM
9707 @ 89465:               PUSH   NEXTATOM
9708 @ 89468:               CALL  
9709 @ 89469:               ASSVAL

  1980      %repeat %until atom = terminator
9710 @ 89470:               LINE   1980 "regression-compile-tmp/chimps.imp"
9711 @ 89507:               PUSH   ATOM
9712 @ 89510:               PUSHI  #0x00000034
9713 @ 89515:               JUMPIF = L_0007
9714 @ 89519:               REPEAT L_0006
9715 @ 89522:               LOCATE L_0007

  1981      starts = starts+1 %if subatom = start
9716 @ 89525:               LINE   1981 "regression-compile-tmp/chimps.imp"
9717 @ 89562:               PUSH   SUBATOM
9718 @ 89565:               PUSHI  #0x00000015
9719 @ 89570:               JUMPIF # L_0007
9720 @ 89574:               PUSH   STARTS
9721 @ 89577:               PUSH   STARTS
9722 @ 89580:               PUSHI  #0x00000001
9723 @ 89585:               ADD   
9724 @ 89586:               ASSVAL
9725 @ 89587:               LOCATE L_0007

  1982      cycles = cycles+1 %if subatom = cycle
9726 @ 89590:               LINE   1982 "regression-compile-tmp/chimps.imp"
9727 @ 89627:               PUSH   SUBATOM
9728 @ 89630:               PUSHI  #0x00000016
9729 @ 89635:               JUMPIF # L_0007
9730 @ 89639:               PUSH   CYCLES
9731 @ 89642:               PUSH   CYCLES
9732 @ 89645:               PUSHI  #0x00000001
9733 @ 89650:               ADD   
9734 @ 89651:               ASSVAL
9735 @ 89652:               LOCATE L_0007

  1983    %finish
9736 @ 89655:               LINE   1983 "regression-compile-tmp/chimps.imp"
9737 @ 89692:               LOCATE L_0004

  1984    -> next
  1985  
9738 @ 89695:               LINE   1984 "regression-compile-tmp/chimps.imp"
9739 @ 89732:               JUMP   L_0115

  1986  initial(dud):
9740 @ 89735:               LINE   1986 "regression-compile-tmp/chimps.imp"
9741 @ 89772:               PUSHI  #0x0000003f
9742 @ 89777:               SLABEL 272

  1987    syntax error;  !ie atom error
  1988  
9743 @ 89780:               LINE   1987 "regression-compile-tmp/chimps.imp"
9744 @ 89817:               PUSH   SYNTAXERROR
9745 @ 89820:               CALL  

  1989  initial(*):
9746 @ 89821:               LINE   1989 "regression-compile-tmp/chimps.imp"
9747 @ 89858:               DEFSW  272

  1990    error(nonstarter+point)
  1991  
9748 @ 89861:               LINE   1990 "regression-compile-tmp/chimps.imp"
9749 @ 89898:               PUSH   ERROR
9750 @ 89901:               PUSHI  #0x0000001d
9751 @ 89906:               PUSHI  #0x00000040
9752 @ 89911:               ADD   
9753 @ 89912:               ASSPAR
9754 @ 89913:               CALL  

  1992  initial(ident):
9755 @ 89914:               LINE   1992 "regression-compile-tmp/chimps.imp"
9756 @ 89951:               PUSHI  #0x00000036
9757 @ 89956:               SLABEL 272

  1993    %if byteinteger(fp) = ':' %start;  !simple label
9758 @ 89959:               LINE   1993 "regression-compile-tmp/chimps.imp"
9759 @ 89996:               PUSH   BYTEINTEGER
9760 @ 89999:               PUSH   FP
9761 @ 90002:               ASSPAR
9762 @ 90003:               CALL  
9763 @ 90004:               PUSHI  #0x0000003a
9764 @ 90009:               JUMPIF # L_0004

  1994      fp = fp+1
9765 @ 90013:               LINE   1994 "regression-compile-tmp/chimps.imp"
9766 @ 90050:               PUSH   FP
9767 @ 90053:               PUSH   FP
9768 @ 90056:               PUSHI  #0x00000001
9769 @ 90061:               ADD   
9770 @ 90062:               ASSVAL

  1995      d_flags = lab;  d_type = nulltype
9771 @ 90063:               LINE   1995 "regression-compile-tmp/chimps.imp"
9772 @ 90100:               PUSH   D
9773 @ 90103:               SELECT 1
9774 @ 90106:               PUSHI  #0x00000002
9775 @ 90111:               ASSVAL
9776 @ 90112:               LINE   1995 "regression-compile-tmp/chimps.imp"
9777 @ 90149:               PUSH   D
9778 @ 90152:               SELECT 2
9779 @ 90155:               PUSHI  #0x000007f9
9780 @ 90160:               ASSVAL

  1996      declare
9781 @ 90161:               LINE   1996 "regression-compile-tmp/chimps.imp"
9782 @ 90198:               PUSH   DECLARE
9783 @ 90201:               CALL  

  1997      set user label(item)
9784 @ 90202:               LINE   1997 "regression-compile-tmp/chimps.imp"
9785 @ 90239:               PUSH   SETUSERLABEL
9786 @ 90242:               PUSH   ITEM
9787 @ 90245:               ASSPAR
9788 @ 90246:               CALL  

  1998      ->next
9789 @ 90247:               LINE   1998 "regression-compile-tmp/chimps.imp"
9790 @ 90284:               JUMP   L_0115

  1999    %finish
9791 @ 90287:               LINE   1999 "regression-compile-tmp/chimps.imp"
9792 @ 90324:               LOCATE L_0004

  2000    name error %if item <= 0
9793 @ 90327:               LINE   2000 "regression-compile-tmp/chimps.imp"
9794 @ 90364:               PUSH   ITEM
9795 @ 90367:               PUSHI  #0x00000000
9796 @ 90372:               JUMPIF > L_0004
9797 @ 90376:               PUSH   NAMEERROR
9798 @ 90379:               CALL  
9799 @ 90380:               LOCATE L_0004

  2001    %if ditem_flags&lab # 0 %start
9800 @ 90383:               LINE   2001 "regression-compile-tmp/chimps.imp"
9801 @ 90420:               PUSH   DITEM
9802 @ 90423:               SELECT 1
9803 @ 90426:               PUSHI  #0x00000002
9804 @ 90431:               AND   
9805 @ 90432:               PUSHI  #0x00000000
9806 @ 90437:               JUMPIF = L_0004

  2002      get SWITCH INDEX
9807 @ 90441:               LINE   2002 "regression-compile-tmp/chimps.imp"
9808 @ 90478:               PUSH   GETSWITCHINDEX
9809 @ 90481:               CALL  

  2003      get(colon)
9810 @ 90482:               LINE   2003 "regression-compile-tmp/chimps.imp"
9811 @ 90519:               PUSH   GET
9812 @ 90522:               PUSHI  #0x0000003a
9813 @ 90527:               ASSPAR
9814 @ 90528:               CALL  

  2004      ->next
9815 @ 90529:               LINE   2004 "regression-compile-tmp/chimps.imp"
9816 @ 90566:               JUMP   L_0115

  2005    %finish
9817 @ 90569:               LINE   2005 "regression-compile-tmp/chimps.imp"
9818 @ 90606:               LOCATE L_0004

  2006  initial(return): initial(result): initial(tf):
9819 @ 90609:               LINE   2006 "regression-compile-tmp/chimps.imp"
9820 @ 90646:               PUSHI  #0x00000007
9821 @ 90651:               SLABEL 272
9822 @ 90654:               LINE   2006 "regression-compile-tmp/chimps.imp"
9823 @ 90691:               PUSHI  #0x00000009
9824 @ 90696:               SLABEL 272
9825 @ 90699:               LINE   2006 "regression-compile-tmp/chimps.imp"
9826 @ 90736:               PUSHI  #0x00000008
9827 @ 90741:               SLABEL 272

  2007  initial(stop): initial(signal): initial(monitor):
9828 @ 90744:               LINE   2007 "regression-compile-tmp/chimps.imp"
9829 @ 90781:               PUSHI  #0x0000000a
9830 @ 90786:               SLABEL 272
9831 @ 90789:               LINE   2007 "regression-compile-tmp/chimps.imp"
9832 @ 90826:               PUSHI  #0x0000000c
9833 @ 90831:               SLABEL 272
9834 @ 90834:               LINE   2007 "regression-compile-tmp/chimps.imp"
9835 @ 90871:               PUSHI  #0x0000000d
9836 @ 90876:               SLABEL 272

  2008  initial(exit): initial(goto): initial(arrow):
9837 @ 90879:               LINE   2008 "regression-compile-tmp/chimps.imp"
9838 @ 90916:               PUSHI  #0x00000006
9839 @ 90921:               SLABEL 272
9840 @ 90924:               LINE   2008 "regression-compile-tmp/chimps.imp"
9841 @ 90961:               PUSHI  #0x0000000b
9842 @ 90966:               SLABEL 272
9843 @ 90969:               LINE   2008 "regression-compile-tmp/chimps.imp"
9844 @ 91006:               PUSHI  #0x0000004f
9845 @ 91011:               SLABEL 272

  2009    matched = 0
9846 @ 91014:               LINE   2009 "regression-compile-tmp/chimps.imp"
9847 @ 91051:               PUSH   MATCHED
9848 @ 91054:               PUSHI  #0x00000000
9849 @ 91059:               ASSVAL

  2010    get INSTRUCTION
9850 @ 91060:               LINE   2010 "regression-compile-tmp/chimps.imp"
9851 @ 91097:               PUSH   GETINSTRUCTION
9852 @ 91100:               CALL  

  2011    -> next %if a(terminator)
9853 @ 91101:               LINE   2011 "regression-compile-tmp/chimps.imp"
9854 @ 91138:               PUSH   A
9855 @ 91141:               PUSHI  #0x00000034
9856 @ 91146:               ASSPAR
9857 @ 91147:               CALL  
9858 @ 91148:               bf     L_0004
9859 @ 91151:               JUMP   L_0115
9860 @ 91154:               LOCATE L_0004

  2012    c_access = 1
9861 @ 91157:               LINE   2012 "regression-compile-tmp/chimps.imp"
9862 @ 91194:               PUSH   C
9863 @ 91197:               SELECT 12
9864 @ 91200:               PUSHI  #0x00000001
9865 @ 91205:               ASSVAL

  2013    %if a(iu) %start
9866 @ 91206:               LINE   2013 "regression-compile-tmp/chimps.imp"
9867 @ 91243:               PUSH   A
9868 @ 91246:               PUSHI  #0x00000010
9869 @ 91251:               ASSPAR
9870 @ 91252:               CALL  
9871 @ 91253:               bf     L_0004

  2014      holdnp = np
9872 @ 91256:               LINE   2014 "regression-compile-tmp/chimps.imp"
9873 @ 91293:               PUSH   HOLDNP
9874 @ 91296:               PUSH   NP
9875 @ 91299:               ASSVAL

  2015      get CONDITION
  2016  !    compile(holdnp,np)
9876 @ 91300:               LINE   2015 "regression-compile-tmp/chimps.imp"
9877 @ 91337:               PUSH   GETCONDITION
9878 @ 91340:               CALL  

  2017    %else %if a(while)
9879 @ 91341:               LINE   2017 "regression-compile-tmp/chimps.imp"
9880 @ 91378:               GOTO   L_0003
9881 @ 91381:               LOCATE L_0004
9882 @ 91384:               PUSH   A
9883 @ 91387:               PUSHI  #0x00000011
9884 @ 91392:               ASSPAR
9885 @ 91393:               CALL  
9886 @ 91394:               bf     L_0004

  2018      holdnp = np
  2019  !    put3(label,curlab,0)
9887 @ 91397:               LINE   2018 "regression-compile-tmp/chimps.imp"
9888 @ 91434:               PUSH   HOLDNP
9889 @ 91437:               PUSH   NP
9890 @ 91440:               ASSVAL

  2020      get CONDITION
  2021  !    compile(holdnp,np)
  2022  !    put3(jump,curlab,0)
  2023  !    put3(label,curlab+1,0)
9891 @ 91441:               LINE   2020 "regression-compile-tmp/chimps.imp"
9892 @ 91478:               PUSH   GETCONDITION
9893 @ 91481:               CALL  

  2024    %else %if a(for)
9894 @ 91482:               LINE   2024 "regression-compile-tmp/chimps.imp"
9895 @ 91519:               GOTO   L_0003
9896 @ 91522:               LOCATE L_0004
9897 @ 91525:               PUSH   A
9898 @ 91528:               PUSHI  #0x00000013
9899 @ 91533:               ASSPAR
9900 @ 91534:               CALL  
9901 @ 91535:               bf     L_0004

  2025      get FOR CLAUSE
  2026  !    put3(jump,curlab,0)
  2027  !    put3(label,curlab+1,0)
9902 @ 91538:               LINE   2025 "regression-compile-tmp/chimps.imp"
9903 @ 91575:               PUSH   GETFORCLAUSE
9904 @ 91578:               CALL  

  2028    %else
9905 @ 91579:               LINE   2028 "regression-compile-tmp/chimps.imp"
9906 @ 91616:               GOTO   L_0003
9907 @ 91619:               LOCATE L_0004

  2029      syntax error %if %not a(until)
9908 @ 91622:               LINE   2029 "regression-compile-tmp/chimps.imp"
9909 @ 91659:               PUSH   A
9910 @ 91662:               PUSHI  #0x00000012
9911 @ 91667:               ASSPAR
9912 @ 91668:               CALL  
9913 @ 91669:               bt     L_0007
9914 @ 91672:               PUSH   SYNTAXERROR
9915 @ 91675:               CALL  
9916 @ 91676:               LOCATE L_0007

  2030      get CONDITION
9917 @ 91679:               LINE   2030 "regression-compile-tmp/chimps.imp"
9918 @ 91716:               PUSH   GETCONDITION
9919 @ 91719:               CALL  

  2031    %finish
9920 @ 91720:               LINE   2031 "regression-compile-tmp/chimps.imp"
9921 @ 91757:               LOCATE L_0003

  2032    -> term
  2033  
9922 @ 91760:               LINE   2032 "regression-compile-tmp/chimps.imp"
9923 @ 91797:               JUMP   L_0117

  2034  initial(iu):  !%if, %unless
9924 @ 91800:               LINE   2034 "regression-compile-tmp/chimps.imp"
9925 @ 91837:               PUSHI  #0x00000010
9926 @ 91842:               SLABEL 272

  2035    %cycle
9927 @ 91845:               LINE   2035 "regression-compile-tmp/chimps.imp"
9928 @ 91882:               LOCATE L_0003

  2036      holdnp = np
9929 @ 91885:               LINE   2036 "regression-compile-tmp/chimps.imp"
9930 @ 91922:               PUSH   HOLDNP
9931 @ 91925:               PUSH   NP
9932 @ 91928:               ASSVAL

  2037      get CONDITION
  2038  !    compile(holdnp,np)
9933 @ 91929:               LINE   2037 "regression-compile-tmp/chimps.imp"
9934 @ 91966:               PUSH   GETCONDITION
9935 @ 91969:               CALL  

  2039      %if a(then) %start
9936 @ 91970:               LINE   2039 "regression-compile-tmp/chimps.imp"
9937 @ 92007:               PUSH   A
9938 @ 92010:               PUSHI  #0x00000014
9939 @ 92015:               ASSPAR
9940 @ 92016:               CALL  
9941 @ 92017:               bf     L_0007

  2040        -> fudge %if a(start)
9942 @ 92020:               LINE   2040 "regression-compile-tmp/chimps.imp"
9943 @ 92057:               PUSH   A
9944 @ 92060:               PUSHI  #0x00000015
9945 @ 92065:               ASSPAR
9946 @ 92066:               CALL  
9947 @ 92067:               bf     L_000a
9948 @ 92070:               JUMP   L_0118
9949 @ 92073:               LOCATE L_000a

  2041        get INSTRUCTION
9950 @ 92076:               LINE   2041 "regression-compile-tmp/chimps.imp"
9951 @ 92113:               PUSH   GETINSTRUCTION
9952 @ 92116:               CALL  

  2042      %finish %else %start
9953 @ 92117:               LINE   2042 "regression-compile-tmp/chimps.imp"
9954 @ 92154:               GOTO   L_0006
9955 @ 92157:               LOCATE L_0007

  2043        get(start)
9956 @ 92160:               LINE   2043 "regression-compile-tmp/chimps.imp"
9957 @ 92197:               PUSH   GET
9958 @ 92200:               PUSHI  #0x00000015
9959 @ 92205:               ASSPAR
9960 @ 92206:               CALL  

  2044  fudge:
9961 @ 92207:               LINE   2044 "regression-compile-tmp/chimps.imp"
9962 @ 92244:               LABEL  L_0118

  2045        %cycle
9963 @ 92247:               LINE   2045 "regression-compile-tmp/chimps.imp"
9964 @ 92284:               LOCATE L_0009

  2046          get(terminator)
9965 @ 92287:               LINE   2046 "regression-compile-tmp/chimps.imp"
9966 @ 92324:               PUSH   GET
9967 @ 92327:               PUSHI  #0x00000034
9968 @ 92332:               ASSPAR
9969 @ 92333:               CALL  

  2047          curlab = curlab+2
9970 @ 92334:               LINE   2047 "regression-compile-tmp/chimps.imp"
9971 @ 92371:               PUSH   CURLAB
9972 @ 92374:               PUSH   CURLAB
9973 @ 92377:               PUSHI  #0x00000002
9974 @ 92382:               ADD   
9975 @ 92383:               ASSVAL

  2048          get STATEMENTS(else)
9976 @ 92384:               LINE   2048 "regression-compile-tmp/chimps.imp"
9977 @ 92421:               PUSH   GETSTATEMENTS
9978 @ 92424:               PUSHI  #0x00000004
9979 @ 92429:               ASSPAR
9980 @ 92430:               CALL  

  2049          curlab = curlab-2
9981 @ 92431:               LINE   2049 "regression-compile-tmp/chimps.imp"
9982 @ 92468:               PUSH   CURLAB
9983 @ 92471:               PUSH   CURLAB
9984 @ 92474:               PUSHI  #0x00000002
9985 @ 92479:               SUB   
9986 @ 92480:               ASSVAL

  2050          %exit %if atom # else;  !%finish ->
9987 @ 92481:               LINE   2050 "regression-compile-tmp/chimps.imp"
9988 @ 92518:               PUSH   ATOM
9989 @ 92521:               PUSHI  #0x00000004
9990 @ 92526:               JUMPIF = L_000d
9991 @ 92530:               GOTO   L_000a
9992 @ 92533:               LOCATE L_000d

  2051          get CONDITION %if a(iu)
9993 @ 92536:               LINE   2051 "regression-compile-tmp/chimps.imp"
9994 @ 92573:               PUSH   A
9995 @ 92576:               PUSHI  #0x00000010
9996 @ 92581:               ASSPAR
9997 @ 92582:               CALL  
9998 @ 92583:               bf     L_000d
9999 @ 92586:               PUSH   GETCONDITION
10000 @ 92589:               CALL  
10001 @ 92590:               LOCATE L_000d

  2052        %repeat
10002 @ 92593:               LINE   2052 "regression-compile-tmp/chimps.imp"
10003 @ 92630:               REPEAT L_0009
10004 @ 92633:               LOCATE L_000a

  2053        %return %if atom # finish
10005 @ 92636:               LINE   2053 "regression-compile-tmp/chimps.imp"
10006 @ 92673:               PUSH   ATOM
10007 @ 92676:               PUSHI  #0x00000003
10008 @ 92681:               JUMPIF = L_000a
10009 @ 92685:               RETURN
10010 @ 92686:               LOCATE L_000a

  2054      %finish
10011 @ 92689:               LINE   2054 "regression-compile-tmp/chimps.imp"
10012 @ 92726:               LOCATE L_0006

  2055      %exit %if %not a(else)
10013 @ 92729:               LINE   2055 "regression-compile-tmp/chimps.imp"
10014 @ 92766:               PUSH   A
10015 @ 92769:               PUSHI  #0x00000004
10016 @ 92774:               ASSPAR
10017 @ 92775:               CALL  
10018 @ 92776:               bt     L_0007
10019 @ 92779:               GOTO   L_0004
10020 @ 92782:               LOCATE L_0007

  2056      -> fudge %if a(start)
10021 @ 92785:               LINE   2056 "regression-compile-tmp/chimps.imp"
10022 @ 92822:               PUSH   A
10023 @ 92825:               PUSHI  #0x00000015
10024 @ 92830:               ASSPAR
10025 @ 92831:               CALL  
10026 @ 92832:               bf     L_0007
10027 @ 92835:               JUMP   L_0118
10028 @ 92838:               LOCATE L_0007

  2057      get INSTRUCTION %and %exit %if %not a(iu)
10029 @ 92841:               LINE   2057 "regression-compile-tmp/chimps.imp"
10030 @ 92878:               PUSH   A
10031 @ 92881:               PUSHI  #0x00000010
10032 @ 92886:               ASSPAR
10033 @ 92887:               CALL  
10034 @ 92888:               bt     L_0007
10035 @ 92891:               PUSH   GETINSTRUCTION
10036 @ 92894:               CALL  
10037 @ 92895:               GOTO   L_0004
10038 @ 92898:               LOCATE L_0007

  2058    %repeat
10039 @ 92901:               LINE   2058 "regression-compile-tmp/chimps.imp"
10040 @ 92938:               REPEAT L_0003
10041 @ 92941:               LOCATE L_0004

  2059    -> term
  2060  
10042 @ 92944:               LINE   2059 "regression-compile-tmp/chimps.imp"
10043 @ 92981:               JUMP   L_0117

  2061  initial(cycle):
10044 @ 92984:               LINE   2061 "regression-compile-tmp/chimps.imp"
10045 @ 93021:               PUSHI  #0x00000016
10046 @ 93026:               SLABEL 272

  2062    %if a(terminator) %start
10047 @ 93029:               LINE   2062 "regression-compile-tmp/chimps.imp"
10048 @ 93066:               PUSH   A
10049 @ 93069:               PUSHI  #0x00000034
10050 @ 93074:               ASSPAR
10051 @ 93075:               CALL  
10052 @ 93076:               bf     L_0004

  2063      holdlooplab = looplab;  looplab = curlab
10053 @ 93079:               LINE   2063 "regression-compile-tmp/chimps.imp"
10054 @ 93116:               PUSH   HOLDLOOPLAB
10055 @ 93119:               PUSH   LOOPLAB
10056 @ 93122:               ASSVAL
10057 @ 93123:               LINE   2063 "regression-compile-tmp/chimps.imp"
10058 @ 93160:               PUSH   LOOPLAB
10059 @ 93163:               PUSH   CURLAB
10060 @ 93166:               ASSVAL

  2064      curlab = curlab+2
10061 @ 93167:               LINE   2064 "regression-compile-tmp/chimps.imp"
10062 @ 93204:               PUSH   CURLAB
10063 @ 93207:               PUSH   CURLAB
10064 @ 93210:               PUSHI  #0x00000002
10065 @ 93215:               ADD   
10066 @ 93216:               ASSVAL

  2065      get STATEMENTS(repeat)
10067 @ 93217:               LINE   2065 "regression-compile-tmp/chimps.imp"
10068 @ 93254:               PUSH   GETSTATEMENTS
10069 @ 93257:               PUSHI  #0x00000002
10070 @ 93262:               ASSPAR
10071 @ 93263:               CALL  

  2066      curlab = curlab-2;  looplab = holdlooplab
10072 @ 93264:               LINE   2066 "regression-compile-tmp/chimps.imp"
10073 @ 93301:               PUSH   CURLAB
10074 @ 93304:               PUSH   CURLAB
10075 @ 93307:               PUSHI  #0x00000002
10076 @ 93312:               SUB   
10077 @ 93313:               ASSVAL
10078 @ 93314:               LINE   2066 "regression-compile-tmp/chimps.imp"
10079 @ 93351:               PUSH   LOOPLAB
10080 @ 93354:               PUSH   HOLDLOOPLAB
10081 @ 93357:               ASSVAL

  2067      %return %if atom # repeat
10082 @ 93358:               LINE   2067 "regression-compile-tmp/chimps.imp"
10083 @ 93395:               PUSH   ATOM
10084 @ 93398:               PUSHI  #0x00000002
10085 @ 93403:               JUMPIF = L_0007
10086 @ 93407:               RETURN
10087 @ 93408:               LOCATE L_0007

  2068      get CONDITION %if a(until)
10088 @ 93411:               LINE   2068 "regression-compile-tmp/chimps.imp"
10089 @ 93448:               PUSH   A
10090 @ 93451:               PUSHI  #0x00000012
10091 @ 93456:               ASSPAR
10092 @ 93457:               CALL  
10093 @ 93458:               bf     L_0007
10094 @ 93461:               PUSH   GETCONDITION
10095 @ 93464:               CALL  
10096 @ 93465:               LOCATE L_0007

  2069      -> term
10097 @ 93468:               LINE   2069 "regression-compile-tmp/chimps.imp"
10098 @ 93505:               JUMP   L_0117

  2070    %finish
10099 @ 93508:               LINE   2070 "regression-compile-tmp/chimps.imp"
10100 @ 93545:               LOCATE L_0004

  2071    nonstandard(oldcycle)
10101 @ 93548:               LINE   2071 "regression-compile-tmp/chimps.imp"
10102 @ 93585:               PUSH   NONSTANDARD
10103 @ 93588:               PUSHI  #0x00001000
10104 @ 93593:               ASSPAR
10105 @ 93594:               CALL  

  2072    get FOR CLAUSE
10106 @ 93595:               LINE   2072 "regression-compile-tmp/chimps.imp"
10107 @ 93632:               PUSH   GETFORCLAUSE
10108 @ 93635:               CALL  

  2073    -> for1
10109 @ 93636:               LINE   2073 "regression-compile-tmp/chimps.imp"
10110 @ 93673:               JUMP   L_0119

  2074  initial(while):
10111 @ 93676:               LINE   2074 "regression-compile-tmp/chimps.imp"
10112 @ 93713:               PUSHI  #0x00000011
10113 @ 93718:               SLABEL 272

  2075    holdnp = np
  2076  !  put3(label,curlab,0)
10114 @ 93721:               LINE   2075 "regression-compile-tmp/chimps.imp"
10115 @ 93758:               PUSH   HOLDNP
10116 @ 93761:               PUSH   NP
10117 @ 93764:               ASSVAL

  2077    get CONDITION
  2078  !  compile(holdnp,np)
10118 @ 93765:               LINE   2077 "regression-compile-tmp/chimps.imp"
10119 @ 93802:               PUSH   GETCONDITION
10120 @ 93805:               CALL  

  2079    get(cycle)
10121 @ 93806:               LINE   2079 "regression-compile-tmp/chimps.imp"
10122 @ 93843:               PUSH   GET
10123 @ 93846:               PUSHI  #0x00000016
10124 @ 93851:               ASSPAR
10125 @ 93852:               CALL  

  2080    get(terminator)
10126 @ 93853:               LINE   2080 "regression-compile-tmp/chimps.imp"
10127 @ 93890:               PUSH   GET
10128 @ 93893:               PUSHI  #0x00000034
10129 @ 93898:               ASSPAR
10130 @ 93899:               CALL  

  2081    holdlooplab = looplab;  looplab = curlab
10131 @ 93900:               LINE   2081 "regression-compile-tmp/chimps.imp"
10132 @ 93937:               PUSH   HOLDLOOPLAB
10133 @ 93940:               PUSH   LOOPLAB
10134 @ 93943:               ASSVAL
10135 @ 93944:               LINE   2081 "regression-compile-tmp/chimps.imp"
10136 @ 93981:               PUSH   LOOPLAB
10137 @ 93984:               PUSH   CURLAB
10138 @ 93987:               ASSVAL

  2082    curlab = curlab+2
10139 @ 93988:               LINE   2082 "regression-compile-tmp/chimps.imp"
10140 @ 94025:               PUSH   CURLAB
10141 @ 94028:               PUSH   CURLAB
10142 @ 94031:               PUSHI  #0x00000002
10143 @ 94036:               ADD   
10144 @ 94037:               ASSVAL

  2083    get STATEMENTS(repeat)
10145 @ 94038:               LINE   2083 "regression-compile-tmp/chimps.imp"
10146 @ 94075:               PUSH   GETSTATEMENTS
10147 @ 94078:               PUSHI  #0x00000002
10148 @ 94083:               ASSPAR
10149 @ 94084:               CALL  

  2084    curlab = curlab-2;  looplab = holdlooplab
10150 @ 94085:               LINE   2084 "regression-compile-tmp/chimps.imp"
10151 @ 94122:               PUSH   CURLAB
10152 @ 94125:               PUSH   CURLAB
10153 @ 94128:               PUSHI  #0x00000002
10154 @ 94133:               SUB   
10155 @ 94134:               ASSVAL
10156 @ 94135:               LINE   2084 "regression-compile-tmp/chimps.imp"
10157 @ 94172:               PUSH   LOOPLAB
10158 @ 94175:               PUSH   HOLDLOOPLAB
10159 @ 94178:               ASSVAL

  2085    %return %if atom # repeat
10160 @ 94179:               LINE   2085 "regression-compile-tmp/chimps.imp"
10161 @ 94216:               PUSH   ATOM
10162 @ 94219:               PUSHI  #0x00000002
10163 @ 94224:               JUMPIF = L_0004
10164 @ 94228:               RETURN
10165 @ 94229:               LOCATE L_0004

  2086    nonstandard(loop2) %and get CONDITION %if a(until)
  2087  !  put3(jump,curlab,0)
  2088  !  put3(label,curlab+1,0)
10166 @ 94232:               LINE   2086 "regression-compile-tmp/chimps.imp"
10167 @ 94269:               PUSH   A
10168 @ 94272:               PUSHI  #0x00000012
10169 @ 94277:               ASSPAR
10170 @ 94278:               CALL  
10171 @ 94279:               bf     L_0004
10172 @ 94282:               PUSH   NONSTANDARD
10173 @ 94285:               PUSHI  #0x00002000
10174 @ 94290:               ASSPAR
10175 @ 94291:               CALL  
10176 @ 94292:               PUSH   GETCONDITION
10177 @ 94295:               CALL  
10178 @ 94296:               LOCATE L_0004

  2089    ->term
10179 @ 94299:               LINE   2089 "regression-compile-tmp/chimps.imp"
10180 @ 94336:               JUMP   L_0117

  2090  initial(for):
10181 @ 94339:               LINE   2090 "regression-compile-tmp/chimps.imp"
10182 @ 94376:               PUSHI  #0x00000013
10183 @ 94381:               SLABEL 272

  2091    get FOR CLAUSE
10184 @ 94384:               LINE   2091 "regression-compile-tmp/chimps.imp"
10185 @ 94421:               PUSH   GETFORCLAUSE
10186 @ 94424:               CALL  

  2092    get(cycle)
10187 @ 94425:               LINE   2092 "regression-compile-tmp/chimps.imp"
10188 @ 94462:               PUSH   GET
10189 @ 94465:               PUSHI  #0x00000016
10190 @ 94470:               ASSPAR
10191 @ 94471:               CALL  

  2093  for1:
10192 @ 94472:               LINE   2093 "regression-compile-tmp/chimps.imp"
10193 @ 94509:               LABEL  L_0119

  2094    get(terminator)
10194 @ 94512:               LINE   2094 "regression-compile-tmp/chimps.imp"
10195 @ 94549:               PUSH   GET
10196 @ 94552:               PUSHI  #0x00000034
10197 @ 94557:               ASSPAR
10198 @ 94558:               CALL  

  2095    holdlooplab = looplab;  looplab = curlab
10199 @ 94559:               LINE   2095 "regression-compile-tmp/chimps.imp"
10200 @ 94596:               PUSH   HOLDLOOPLAB
10201 @ 94599:               PUSH   LOOPLAB
10202 @ 94602:               ASSVAL
10203 @ 94603:               LINE   2095 "regression-compile-tmp/chimps.imp"
10204 @ 94640:               PUSH   LOOPLAB
10205 @ 94643:               PUSH   CURLAB
10206 @ 94646:               ASSVAL

  2096    curlab = curlab+2
10207 @ 94647:               LINE   2096 "regression-compile-tmp/chimps.imp"
10208 @ 94684:               PUSH   CURLAB
10209 @ 94687:               PUSH   CURLAB
10210 @ 94690:               PUSHI  #0x00000002
10211 @ 94695:               ADD   
10212 @ 94696:               ASSVAL

  2097    get STATEMENTS(repeat)
10213 @ 94697:               LINE   2097 "regression-compile-tmp/chimps.imp"
10214 @ 94734:               PUSH   GETSTATEMENTS
10215 @ 94737:               PUSHI  #0x00000002
10216 @ 94742:               ASSPAR
10217 @ 94743:               CALL  

  2098    curlab = curlab-2;  looplab = holdlooplab
10218 @ 94744:               LINE   2098 "regression-compile-tmp/chimps.imp"
10219 @ 94781:               PUSH   CURLAB
10220 @ 94784:               PUSH   CURLAB
10221 @ 94787:               PUSHI  #0x00000002
10222 @ 94792:               SUB   
10223 @ 94793:               ASSVAL
10224 @ 94794:               LINE   2098 "regression-compile-tmp/chimps.imp"
10225 @ 94831:               PUSH   LOOPLAB
10226 @ 94834:               PUSH   HOLDLOOPLAB
10227 @ 94837:               ASSVAL

  2099    %return %if atom # repeat
  2100  !  put3(repeat,0,0)
10228 @ 94838:               LINE   2099 "regression-compile-tmp/chimps.imp"
10229 @ 94875:               PUSH   ATOM
10230 @ 94878:               PUSHI  #0x00000002
10231 @ 94883:               JUMPIF = L_0004
10232 @ 94887:               RETURN
10233 @ 94888:               LOCATE L_0004

  2101    -> term
  2102  
10234 @ 94891:               LINE   2101 "regression-compile-tmp/chimps.imp"
10235 @ 94928:               JUMP   L_0117

  2103  initial(on):
10236 @ 94931:               LINE   2103 "regression-compile-tmp/chimps.imp"
10237 @ 94968:               PUSHI  #0x0000000f
10238 @ 94973:               SLABEL 272

  2104    fault(ordererr+point) %if c_flags >= hadon %or level <= outerlevel
10239 @ 94976:               LINE   2104 "regression-compile-tmp/chimps.imp"
10240 @ 95013:               PUSH   C
10241 @ 95016:               SELECT 4
10242 @ 95019:               PUSHI  #0x00000010
10243 @ 95024:               JUMPIF >= L_0005
10244 @ 95028:               PUSH   LEVEL
10245 @ 95031:               PUSHI  #0x00000000
10246 @ 95036:               JUMPIF > L_0004
10247 @ 95040:               LOCATE L_0005
10248 @ 95043:               PUSH   FAULT
10249 @ 95046:               PUSHI  #0x0000000a
10250 @ 95051:               PUSHI  #0x00000040
10251 @ 95056:               ADD   
10252 @ 95057:               ASSPAR
10253 @ 95058:               CALL  
10254 @ 95059:               LOCATE L_0004

  2105    c_flags = c_flags!hadon
10255 @ 95062:               LINE   2105 "regression-compile-tmp/chimps.imp"
10256 @ 95099:               PUSH   C
10257 @ 95102:               SELECT 4
10258 @ 95105:               PUSH   C
10259 @ 95108:               SELECT 4
10260 @ 95111:               PUSHI  #0x00000010
10261 @ 95116:               OR    
10262 @ 95117:               ASSVAL

  2106    matched = 1
10263 @ 95118:               LINE   2106 "regression-compile-tmp/chimps.imp"
10264 @ 95155:               PUSH   MATCHED
10265 @ 95158:               PUSHI  #0x00000001
10266 @ 95163:               ASSVAL

  2107    allow(keyevent)
10267 @ 95164:               LINE   2107 "regression-compile-tmp/chimps.imp"
10268 @ 95201:               PUSH   ALLOW
10269 @ 95204:               PUSHI  #0x0000002c
10270 @ 95209:               ASSPAR
10271 @ 95210:               CALL  

  2108    %cycle
10272 @ 95211:               LINE   2108 "regression-compile-tmp/chimps.imp"
10273 @ 95248:               LOCATE L_0003

  2109      get LITINT
10274 @ 95251:               LINE   2109 "regression-compile-tmp/chimps.imp"
10275 @ 95288:               PUSH   GETLITINT
10276 @ 95291:               CALL  

  2110      expfault(rangerr+point) %unless 0 <= t_val <= 15
10277 @ 95292:               LINE   2110 "regression-compile-tmp/chimps.imp"
10278 @ 95329:               PUSHI  #0x00000000
10279 @ 95334:               PUSH   T
10280 @ 95337:               SELECT 7
10281 @ 95340:               JUMPIFD > L_0008
10282 @ 95344:               PUSHI  #0x0000000f
10283 @ 95349:               JUMPIF <= L_0007
10284 @ 95353:               LOCATE L_0008
10285 @ 95356:               PUSH   EXPFAULT
10286 @ 95359:               PUSHI  #0x0000000c
10287 @ 95364:               PUSHI  #0x00000040
10288 @ 95369:               ADD   
10289 @ 95370:               ASSPAR
10290 @ 95371:               CALL  
10291 @ 95372:               LOCATE L_0007

  2111      c_events = c_events!1<<t_val
10292 @ 95375:               LINE   2111 "regression-compile-tmp/chimps.imp"
10293 @ 95412:               PUSH   C
10294 @ 95415:               SELECT 14
10295 @ 95418:               PUSH   C
10296 @ 95421:               SELECT 14
10297 @ 95424:               PUSHI  #0x00000001
10298 @ 95429:               PUSH   T
10299 @ 95432:               SELECT 7
10300 @ 95435:               LSH   
10301 @ 95436:               OR    
10302 @ 95437:               ASSVAL

  2112    %repeat %until %not a(comma)
10303 @ 95438:               LINE   2112 "regression-compile-tmp/chimps.imp"
10304 @ 95475:               PUSH   A
10305 @ 95478:               PUSHI  #0x0000003b
10306 @ 95483:               ASSPAR
10307 @ 95484:               CALL  
10308 @ 95485:               bf     L_0004
10309 @ 95488:               REPEAT L_0003
10310 @ 95491:               LOCATE L_0004

  2113    get(start)
  2114  !  put3(on,0,0)
10311 @ 95494:               LINE   2113 "regression-compile-tmp/chimps.imp"
10312 @ 95531:               PUSH   GET
10313 @ 95534:               PUSHI  #0x00000015
10314 @ 95539:               ASSPAR
10315 @ 95540:               CALL  

  2115    curlab = curlab+2
10316 @ 95541:               LINE   2115 "regression-compile-tmp/chimps.imp"
10317 @ 95578:               PUSH   CURLAB
10318 @ 95581:               PUSH   CURLAB
10319 @ 95584:               PUSHI  #0x00000002
10320 @ 95589:               ADD   
10321 @ 95590:               ASSVAL

  2116    get STATEMENTS(finish)
10322 @ 95591:               LINE   2116 "regression-compile-tmp/chimps.imp"
10323 @ 95628:               PUSH   GETSTATEMENTS
10324 @ 95631:               PUSHI  #0x00000003
10325 @ 95636:               ASSPAR
10326 @ 95637:               CALL  

  2117    curlab = curlab-2
10327 @ 95638:               LINE   2117 "regression-compile-tmp/chimps.imp"
10328 @ 95675:               PUSH   CURLAB
10329 @ 95678:               PUSH   CURLAB
10330 @ 95681:               PUSHI  #0x00000002
10331 @ 95686:               SUB   
10332 @ 95687:               ASSVAL

  2118    %return %if atom # finish
10333 @ 95688:               LINE   2118 "regression-compile-tmp/chimps.imp"
10334 @ 95725:               PUSH   ATOM
10335 @ 95728:               PUSHI  #0x00000003
10336 @ 95733:               JUMPIF = L_0004
10337 @ 95737:               RETURN
10338 @ 95738:               LOCATE L_0004

  2119    -> term
  2120  !
10339 @ 95741:               LINE   2119 "regression-compile-tmp/chimps.imp"
10340 @ 95778:               JUMP   L_0117

  2121  initial(else):
10341 @ 95781:               LINE   2121 "regression-compile-tmp/chimps.imp"
10342 @ 95818:               PUSHI  #0x00000004
10343 @ 95823:               SLABEL 272

  2122    -> skip %if starts # 0
10344 @ 95826:               LINE   2122 "regression-compile-tmp/chimps.imp"
10345 @ 95863:               PUSH   STARTS
10346 @ 95866:               PUSHI  #0x00000000
10347 @ 95871:               JUMPIF = L_0004
10348 @ 95875:               JUMP   L_0114
10349 @ 95878:               LOCATE L_0004

  2123    %return %if stopper = else
10350 @ 95881:               LINE   2123 "regression-compile-tmp/chimps.imp"
10351 @ 95918:               PUSH   STOPPER
10352 @ 95921:               PUSHI  #0x00000004
10353 @ 95926:               JUMPIF # L_0004
10354 @ 95930:               RETURN
10355 @ 95931:               LOCATE L_0004

  2124    error(noif) %if stopper = finish
10356 @ 95934:               LINE   2124 "regression-compile-tmp/chimps.imp"
10357 @ 95971:               PUSH   STOPPER
10358 @ 95974:               PUSHI  #0x00000003
10359 @ 95979:               JUMPIF # L_0004
10360 @ 95983:               PUSH   ERROR
10361 @ 95986:               PUSHI  #0x00000015
10362 @ 95991:               ASSPAR
10363 @ 95992:               CALL  
10364 @ 95993:               LOCATE L_0004

  2125  initial(finish):
10365 @ 95996:               LINE   2125 "regression-compile-tmp/chimps.imp"
10366 @ 96033:               PUSHI  #0x00000003
10367 @ 96038:               SLABEL 272

  2126    starts = starts-1 %and -> skip %if starts # 0
10368 @ 96041:               LINE   2126 "regression-compile-tmp/chimps.imp"
10369 @ 96078:               PUSH   STARTS
10370 @ 96081:               PUSHI  #0x00000000
10371 @ 96086:               JUMPIF = L_0004
10372 @ 96090:               PUSH   STARTS
10373 @ 96093:               PUSH   STARTS
10374 @ 96096:               PUSHI  #0x00000001
10375 @ 96101:               SUB   
10376 @ 96102:               ASSVAL
10377 @ 96103:               JUMP   L_0114
10378 @ 96106:               LOCATE L_0004

  2127    %return %if stopper = finish %or stopper = else
10379 @ 96109:               LINE   2127 "regression-compile-tmp/chimps.imp"
10380 @ 96146:               PUSH   STOPPER
10381 @ 96149:               PUSHI  #0x00000003
10382 @ 96154:               JUMPIF = L_0005
10383 @ 96158:               PUSH   STOPPER
10384 @ 96161:               PUSHI  #0x00000004
10385 @ 96166:               JUMPIF # L_0004
10386 @ 96170:               LOCATE L_0005
10387 @ 96173:               RETURN
10388 @ 96174:               LOCATE L_0004

  2128    error(nostart)
10389 @ 96177:               LINE   2128 "regression-compile-tmp/chimps.imp"
10390 @ 96214:               PUSH   ERROR
10391 @ 96217:               PUSHI  #0x00000008
10392 @ 96222:               ASSPAR
10393 @ 96223:               CALL  

  2129  initial(repeat):
10394 @ 96224:               LINE   2129 "regression-compile-tmp/chimps.imp"
10395 @ 96261:               PUSHI  #0x00000002
10396 @ 96266:               SLABEL 272

  2130    cycles = cycles-1 %and -> skip %if cycles # 0
10397 @ 96269:               LINE   2130 "regression-compile-tmp/chimps.imp"
10398 @ 96306:               PUSH   CYCLES
10399 @ 96309:               PUSHI  #0x00000000
10400 @ 96314:               JUMPIF = L_0004
10401 @ 96318:               PUSH   CYCLES
10402 @ 96321:               PUSH   CYCLES
10403 @ 96324:               PUSHI  #0x00000001
10404 @ 96329:               SUB   
10405 @ 96330:               ASSVAL
10406 @ 96331:               JUMP   L_0114
10407 @ 96334:               LOCATE L_0004

  2131    %return %if stopper = repeat
10408 @ 96337:               LINE   2131 "regression-compile-tmp/chimps.imp"
10409 @ 96374:               PUSH   STOPPER
10410 @ 96377:               PUSHI  #0x00000002
10411 @ 96382:               JUMPIF # L_0004
10412 @ 96386:               RETURN
10413 @ 96387:               LOCATE L_0004

  2132    error(nocycle)
  2133  
  2134  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  2135  !!!!!!!!!!!!!!!!!!!!  Declarations  !!!!!!!!!!!!!!!!!!!!!!!!!!!!
  2136  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  2137  !
10414 @ 96390:               LINE   2132 "regression-compile-tmp/chimps.imp"
10415 @ 96427:               PUSH   ERROR
10416 @ 96430:               PUSHI  #0x00000009
10417 @ 96435:               ASSPAR
10418 @ 96436:               CALL  

  2138  %integerfn NEWATYPE(%integer eltype,xtype)
10419 @ 96437:               LINE   2138 "regression-compile-tmp/chimps.imp"
10420 @ 96474:               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
10421 @ 96494:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
10422 @ 96495:                     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
10423 @ 96513:                     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
10424 @ 96530:                  FINISH ) {lev=3}

  2139  %integer dpos
10425 @ 96531:                  LINE   2139 "regression-compile-tmp/chimps.imp"
10426 @ 96568:                  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

  2140  %record(identinfo)%name dp
10427 @ 96584:                  LINE   2140 "regression-compile-tmp/chimps.imp"
10428 @ 96621:                  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

  2141  %ownrecord(identinfo) d=0
10429 @ 96635:                  LINE   2141 "regression-compile-tmp/chimps.imp"
10430 @ 96672:                  PUSHI  #0x00000000
10431 @ 96677:                  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
10432 @ 96690:                  INIT   1

  2142    dpos = dictmin
10433 @ 96693:                  LINE   2142 "regression-compile-tmp/chimps.imp"
10434 @ 96730:                  PUSH   DPOS
10435 @ 96733:                  PUSHI  #0x000007f9
10436 @ 96738:                  ASSVAL

  2143    %cycle
10437 @ 96739:                  LINE   2143 "regression-compile-tmp/chimps.imp"
10438 @ 96776:                  LOCATE L_0003

  2144      dp == dict(dpos)
10439 @ 96779:                  LINE   2144 "regression-compile-tmp/chimps.imp"
10440 @ 96816:                  PUSH   DP
10441 @ 96819:                  PUSH   DICT
10442 @ 96822:                  PUSH   DPOS
10443 @ 96825:                  ACCESS
10444 @ 96826:                  ASSREF

  2145      %result = dpos+direct %if dp_flags&typeid # 0 %c
  2146                     %and dp_type = eltype %and dp_val = xtype
10445 @ 96827:                  LINE   2145 "regression-compile-tmp/chimps.imp"
10446 @ 96864:                  PUSH   DP
10447 @ 96867:                  SELECT 1
10448 @ 96870:                  PUSHI  #0x00000100
10449 @ 96875:                  AND   
10450 @ 96876:                  PUSHI  #0x00000000
10451 @ 96881:                  JUMPIF = L_0007
10452 @ 96885:                  PUSH   DP
10453 @ 96888:                  SELECT 2
10454 @ 96891:                  PUSH   ELTYPE
10455 @ 96894:                  JUMPIF # L_0007
10456 @ 96898:                  PUSH   DP
10457 @ 96901:                  SELECT 7
10458 @ 96904:                  PUSH   XTYPE
10459 @ 96907:                  JUMPIF # L_0007
10460 @ 96911:                  PUSH   DPOS
10461 @ 96914:                  PUSHI  #0x00002000
10462 @ 96919:                  ADD   
10463 @ 96920:                  RESULT
10464 @ 96921:                  LOCATE L_0007

  2147      dpos = dpos+1
10465 @ 96924:                  LINE   2147 "regression-compile-tmp/chimps.imp"
10466 @ 96961:                  PUSH   DPOS
10467 @ 96964:                  PUSH   DPOS
10468 @ 96967:                  PUSHI  #0x00000001
10469 @ 96972:                  ADD   
10470 @ 96973:                  ASSVAL

  2148    %repeat %until dpos = dlim
10471 @ 96974:                  LINE   2148 "regression-compile-tmp/chimps.imp"
10472 @ 97011:                  PUSH   DPOS
10473 @ 97014:                  PUSH   DLIM
10474 @ 97017:                  JUMPIF = L_0004
10475 @ 97021:                  REPEAT L_0003
10476 @ 97024:                  LOCATE L_0004

  2149    d_flags = typeid;  d_type = eltype;  d_val = xtype
10477 @ 97027:                  LINE   2149 "regression-compile-tmp/chimps.imp"
10478 @ 97064:                  PUSH   D
10479 @ 97067:                  SELECT 1
10480 @ 97070:                  PUSHI  #0x00000100
10481 @ 97075:                  ASSVAL
10482 @ 97076:                  LINE   2149 "regression-compile-tmp/chimps.imp"
10483 @ 97113:                  PUSH   D
10484 @ 97116:                  SELECT 2
10485 @ 97119:                  PUSH   ELTYPE
10486 @ 97122:                  ASSVAL
10487 @ 97123:                  LINE   2149 "regression-compile-tmp/chimps.imp"
10488 @ 97160:                  PUSH   D
10489 @ 97163:                  SELECT 7
10490 @ 97166:                  PUSH   XTYPE
10491 @ 97169:                  ASSVAL

  2150    dict(dpos) = d
10492 @ 97170:                  LINE   2150 "regression-compile-tmp/chimps.imp"
10493 @ 97207:                  PUSH   DICT
10494 @ 97210:                  PUSH   DPOS
10495 @ 97213:                  ACCESS
10496 @ 97214:                  PUSH   D
10497 @ 97217:                  ASSVAL

  2151    dlim = dlim+1;  croak("Too many identifers") %if dlim >= dmin
10498 @ 97218:                  LINE   2151 "regression-compile-tmp/chimps.imp"
10499 @ 97255:                  PUSH   DLIM
10500 @ 97258:                  PUSH   DLIM
10501 @ 97261:                  PUSHI  #0x00000001
10502 @ 97266:                  ADD   
10503 @ 97267:                  ASSVAL
10504 @ 97268:                  LINE   2151 "regression-compile-tmp/chimps.imp"
10505 @ 97305:                  PUSH   DLIM
10506 @ 97308:                  PUSH   DMIN
10507 @ 97311:                  JUMPIF < L_0004
10508 @ 97315:                  PUSH   CROAK
10509 @ 97318:                  PUSHS  "Too many identifers"
10510 @ 97339:                  ASSPAR
10511 @ 97340:                  CALL  
10512 @ 97341:                  LOCATE L_0004

  2152    %result = dpos+direct
10513 @ 97344:                  LINE   2152 "regression-compile-tmp/chimps.imp"
10514 @ 97381:                  PUSH   DPOS
10515 @ 97384:                  PUSHI  #0x00002000
10516 @ 97389:                  ADD   
10517 @ 97390:                  RESULT

  2153  %end
  2154  !
10518 @ 97391:                  LINE   2153 "regression-compile-tmp/chimps.imp"
10519 @ 97428:               END    _ECCECI_GETSTATEMENTS_NEWATYPE {lev=3 --> 2}

  2155  %integerfn NEWSTYPE(%integer max)
10520 @ 97429:               LINE   2155 "regression-compile-tmp/chimps.imp"
10521 @ 97466:               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
10522 @ 97486:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
10523 @ 97487:                     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
10524 @ 97502:                  FINISH ) {lev=3}

  2156  %integer dpos
10525 @ 97503:                  LINE   2156 "regression-compile-tmp/chimps.imp"
10526 @ 97540:                  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

  2157  %record(identinfo)%name dp
10527 @ 97556:                  LINE   2157 "regression-compile-tmp/chimps.imp"
10528 @ 97593:                  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

  2158  %ownrecord(identinfo) d=0
10529 @ 97607:                  LINE   2158 "regression-compile-tmp/chimps.imp"
10530 @ 97644:                  PUSHI  #0x00000000
10531 @ 97649:                  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
10532 @ 97662:                  INIT   1

  2159    dpos = dictmin
10533 @ 97665:                  LINE   2159 "regression-compile-tmp/chimps.imp"
10534 @ 97702:                  PUSH   DPOS
10535 @ 97705:                  PUSHI  #0x000007f9
10536 @ 97710:                  ASSVAL

  2160    %cycle
10537 @ 97711:                  LINE   2160 "regression-compile-tmp/chimps.imp"
10538 @ 97748:                  LOCATE L_0003

  2161      dp == dict(dpos)
10539 @ 97751:                  LINE   2161 "regression-compile-tmp/chimps.imp"
10540 @ 97788:                  PUSH   DP
10541 @ 97791:                  PUSH   DICT
10542 @ 97794:                  PUSH   DPOS
10543 @ 97797:                  ACCESS
10544 @ 97798:                  ASSREF

  2162      %result = dpos %if dp_type = stringy %and dp_val = max
10545 @ 97799:                  LINE   2162 "regression-compile-tmp/chimps.imp"
10546 @ 97836:                  PUSH   DP
10547 @ 97839:                  SELECT 2
10548 @ 97842:                  PUSHI  #0x000007fc
10549 @ 97847:                  JUMPIF # L_0007
10550 @ 97851:                  PUSH   DP
10551 @ 97854:                  SELECT 7
10552 @ 97857:                  PUSH   MAX
10553 @ 97860:                  JUMPIF # L_0007
10554 @ 97864:                  PUSH   DPOS
10555 @ 97867:                  RESULT
10556 @ 97868:                  LOCATE L_0007

  2163      dpos = dpos+1
10557 @ 97871:                  LINE   2163 "regression-compile-tmp/chimps.imp"
10558 @ 97908:                  PUSH   DPOS
10559 @ 97911:                  PUSH   DPOS
10560 @ 97914:                  PUSHI  #0x00000001
10561 @ 97919:                  ADD   
10562 @ 97920:                  ASSVAL

  2164    %repeat %until dpos = dlim
10563 @ 97921:                  LINE   2164 "regression-compile-tmp/chimps.imp"
10564 @ 97958:                  PUSH   DPOS
10565 @ 97961:                  PUSH   DLIM
10566 @ 97964:                  JUMPIF = L_0004
10567 @ 97968:                  REPEAT L_0003
10568 @ 97971:                  LOCATE L_0004

  2165    d_flags = typeid;  d_type = stringy
10569 @ 97974:                  LINE   2165 "regression-compile-tmp/chimps.imp"
10570 @ 98011:                  PUSH   D
10571 @ 98014:                  SELECT 1
10572 @ 98017:                  PUSHI  #0x00000100
10573 @ 98022:                  ASSVAL
10574 @ 98023:                  LINE   2165 "regression-compile-tmp/chimps.imp"
10575 @ 98060:                  PUSH   D
10576 @ 98063:                  SELECT 2
10577 @ 98066:                  PUSHI  #0x000007fc
10578 @ 98071:                  ASSVAL

  2166    d_val = max
10579 @ 98072:                  LINE   2166 "regression-compile-tmp/chimps.imp"
10580 @ 98109:                  PUSH   D
10581 @ 98112:                  SELECT 7
10582 @ 98115:                  PUSH   MAX
10583 @ 98118:                  ASSVAL

  2167    dict(dpos) = d
10584 @ 98119:                  LINE   2167 "regression-compile-tmp/chimps.imp"
10585 @ 98156:                  PUSH   DICT
10586 @ 98159:                  PUSH   DPOS
10587 @ 98162:                  ACCESS
10588 @ 98163:                  PUSH   D
10589 @ 98166:                  ASSVAL

  2168    dlim = dlim+1;  croak("Too many identifers") %if dlim >= dmin
10590 @ 98167:                  LINE   2168 "regression-compile-tmp/chimps.imp"
10591 @ 98204:                  PUSH   DLIM
10592 @ 98207:                  PUSH   DLIM
10593 @ 98210:                  PUSHI  #0x00000001
10594 @ 98215:                  ADD   
10595 @ 98216:                  ASSVAL
10596 @ 98217:                  LINE   2168 "regression-compile-tmp/chimps.imp"
10597 @ 98254:                  PUSH   DLIM
10598 @ 98257:                  PUSH   DMIN
10599 @ 98260:                  JUMPIF < L_0004
10600 @ 98264:                  PUSH   CROAK
10601 @ 98267:                  PUSHS  "Too many identifers"
10602 @ 98288:                  ASSPAR
10603 @ 98289:                  CALL  
10604 @ 98290:                  LOCATE L_0004

  2169    %result = dpos
10605 @ 98293:                  LINE   2169 "regression-compile-tmp/chimps.imp"
10606 @ 98330:                  PUSH   DPOS
10607 @ 98333:                  RESULT

  2170  %end
  2171  !
10608 @ 98334:                  LINE   2170 "regression-compile-tmp/chimps.imp"
10609 @ 98371:               END    _ECCECI_GETSTATEMENTS_NEWSTYPE {lev=3 --> 2}

  2172  %integerfn NEWRANGE(%integer type,lower,upper)
10610 @ 98372:               LINE   2172 "regression-compile-tmp/chimps.imp"
10611 @ 98409:               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
10612 @ 98429:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
10613 @ 98430:                     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
10614 @ 98446:                     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
10615 @ 98463:                     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
10616 @ 98480:                  FINISH ) {lev=3}

  2173  %integer dpos
10617 @ 98481:                  LINE   2173 "regression-compile-tmp/chimps.imp"
10618 @ 98518:                  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

  2174  %record(identinfo)%name dp
10619 @ 98534:                  LINE   2174 "regression-compile-tmp/chimps.imp"
10620 @ 98571:                  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

  2175  %ownrecord(identinfo) d=0
10621 @ 98585:                  LINE   2175 "regression-compile-tmp/chimps.imp"
10622 @ 98622:                  PUSHI  #0x00000000
10623 @ 98627:                  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
10624 @ 98640:                  INIT   1

  2176    fault(boundserr) %and upper = lower %if lower > upper
10625 @ 98643:                  LINE   2176 "regression-compile-tmp/chimps.imp"
10626 @ 98680:                  PUSH   LOWER
10627 @ 98683:                  PUSH   UPPER
10628 @ 98686:                  JUMPIF <= L_0004
10629 @ 98690:                  PUSH   FAULT
10630 @ 98693:                  PUSHI  #0x0000000e
10631 @ 98698:                  ASSPAR
10632 @ 98699:                  CALL  
10633 @ 98700:                  PUSH   UPPER
10634 @ 98703:                  PUSH   LOWER
10635 @ 98706:                  ASSVAL
10636 @ 98707:                  LOCATE L_0004

  2177    elements = maxint
10637 @ 98710:                  LINE   2177 "regression-compile-tmp/chimps.imp"
10638 @ 98747:                  PUSH   ELEMENTS
10639 @ 98750:                  PUSHI  #0x7fffffff
10640 @ 98755:                  ASSVAL

  2178    elements = upper-lower %if upper!!lower >= 0 %c
  2179      %or minint+upper-lower < 0
10641 @ 98756:                  LINE   2178 "regression-compile-tmp/chimps.imp"
10642 @ 98793:                  PUSH   UPPER
10643 @ 98796:                  PUSH   LOWER
10644 @ 98799:                  XOR   
10645 @ 98800:                  PUSHI  #0x00000000
10646 @ 98805:                  JUMPIF >= L_0005
10647 @ 98809:                  PUSHI  #0x80000000
10648 @ 98814:                  PUSH   UPPER
10649 @ 98817:                  ADD   
10650 @ 98818:                  PUSH   LOWER
10651 @ 98821:                  SUB   
10652 @ 98822:                  PUSHI  #0x00000000
10653 @ 98827:                  JUMPIF >= L_0004
10654 @ 98831:                  LOCATE L_0005
10655 @ 98834:                  PUSH   ELEMENTS
10656 @ 98837:                  PUSH   UPPER
10657 @ 98840:                  PUSH   LOWER
10658 @ 98843:                  SUB   
10659 @ 98844:                  ASSVAL
10660 @ 98845:                  LOCATE L_0004

  2180    elements = elements+1 %if elements # maxint
10661 @ 98848:                  LINE   2180 "regression-compile-tmp/chimps.imp"
10662 @ 98885:                  PUSH   ELEMENTS
10663 @ 98888:                  PUSHI  #0x7fffffff
10664 @ 98893:                  JUMPIF = L_0004
10665 @ 98897:                  PUSH   ELEMENTS
10666 @ 98900:                  PUSH   ELEMENTS
10667 @ 98903:                  PUSHI  #0x00000001
10668 @ 98908:                  ADD   
10669 @ 98909:                  ASSVAL
10670 @ 98910:                  LOCATE L_0004

  2181    dpos = dictmin
10671 @ 98913:                  LINE   2181 "regression-compile-tmp/chimps.imp"
10672 @ 98950:                  PUSH   DPOS
10673 @ 98953:                  PUSHI  #0x000007f9
10674 @ 98958:                  ASSVAL

  2182    %cycle
10675 @ 98959:                  LINE   2182 "regression-compile-tmp/chimps.imp"
10676 @ 98996:                  LOCATE L_0003

  2183      dp == dict(dpos)
10677 @ 98999:                  LINE   2183 "regression-compile-tmp/chimps.imp"
10678 @ 99036:                  PUSH   DP
10679 @ 99039:                  PUSH   DICT
10680 @ 99042:                  PUSH   DPOS
10681 @ 99045:                  ACCESS
10682 @ 99046:                  ASSREF

  2184      %result = dpos %if dp_flags = typeid %and dp_type = type %c
  2185                     %and dp_low = lower %and dp_val = upper
10683 @ 99047:                  LINE   2184 "regression-compile-tmp/chimps.imp"
10684 @ 99084:                  PUSH   DP
10685 @ 99087:                  SELECT 1
10686 @ 99090:                  PUSHI  #0x00000100
10687 @ 99095:                  JUMPIF # L_0007
10688 @ 99099:                  PUSH   DP
10689 @ 99102:                  SELECT 2
10690 @ 99105:                  PUSH   TYPE
10691 @ 99108:                  JUMPIF # L_0007
10692 @ 99112:                  PUSH   DP
10693 @ 99115:                  SELECT 6
10694 @ 99118:                  PUSH   LOWER
10695 @ 99121:                  JUMPIF # L_0007
10696 @ 99125:                  PUSH   DP
10697 @ 99128:                  SELECT 7
10698 @ 99131:                  PUSH   UPPER
10699 @ 99134:                  JUMPIF # L_0007
10700 @ 99138:                  PUSH   DPOS
10701 @ 99141:                  RESULT
10702 @ 99142:                  LOCATE L_0007

  2186      dpos = dpos+1
10703 @ 99145:                  LINE   2186 "regression-compile-tmp/chimps.imp"
10704 @ 99182:                  PUSH   DPOS
10705 @ 99185:                  PUSH   DPOS
10706 @ 99188:                  PUSHI  #0x00000001
10707 @ 99193:                  ADD   
10708 @ 99194:                  ASSVAL

  2187    %repeat %until dpos = dlim
10709 @ 99195:                  LINE   2187 "regression-compile-tmp/chimps.imp"
10710 @ 99232:                  PUSH   DPOS
10711 @ 99235:                  PUSH   DLIM
10712 @ 99238:                  JUMPIF = L_0004
10713 @ 99242:                  REPEAT L_0003
10714 @ 99245:                  LOCATE L_0004

  2188    d_flags = typeid;  d_type = type
10715 @ 99248:                  LINE   2188 "regression-compile-tmp/chimps.imp"
10716 @ 99285:                  PUSH   D
10717 @ 99288:                  SELECT 1
10718 @ 99291:                  PUSHI  #0x00000100
10719 @ 99296:                  ASSVAL
10720 @ 99297:                  LINE   2188 "regression-compile-tmp/chimps.imp"
10721 @ 99334:                  PUSH   D
10722 @ 99337:                  SELECT 2
10723 @ 99340:                  PUSH   TYPE
10724 @ 99343:                  ASSVAL

  2189    d_low = lower;  d_val = upper
10725 @ 99344:                  LINE   2189 "regression-compile-tmp/chimps.imp"
10726 @ 99381:                  PUSH   D
10727 @ 99384:                  SELECT 6
10728 @ 99387:                  PUSH   LOWER
10729 @ 99390:                  ASSVAL
10730 @ 99391:                  LINE   2189 "regression-compile-tmp/chimps.imp"
10731 @ 99428:                  PUSH   D
10732 @ 99431:                  SELECT 7
10733 @ 99434:                  PUSH   UPPER
10734 @ 99437:                  ASSVAL

  2190    dict(dpos) = d
10735 @ 99438:                  LINE   2190 "regression-compile-tmp/chimps.imp"
10736 @ 99475:                  PUSH   DICT
10737 @ 99478:                  PUSH   DPOS
10738 @ 99481:                  ACCESS
10739 @ 99482:                  PUSH   D
10740 @ 99485:                  ASSVAL

  2191    dlim = dlim+1;  croak("Too many identifers") %if dlim >= dmin
10741 @ 99486:                  LINE   2191 "regression-compile-tmp/chimps.imp"
10742 @ 99523:                  PUSH   DLIM
10743 @ 99526:                  PUSH   DLIM
10744 @ 99529:                  PUSHI  #0x00000001
10745 @ 99534:                  ADD   
10746 @ 99535:                  ASSVAL
10747 @ 99536:                  LINE   2191 "regression-compile-tmp/chimps.imp"
10748 @ 99573:                  PUSH   DLIM
10749 @ 99576:                  PUSH   DMIN
10750 @ 99579:                  JUMPIF < L_0004
10751 @ 99583:                  PUSH   CROAK
10752 @ 99586:                  PUSHS  "Too many identifers"
10753 @ 99607:                  ASSPAR
10754 @ 99608:                  CALL  
10755 @ 99609:                  LOCATE L_0004

  2192    %result = dpos
10756 @ 99612:                  LINE   2192 "regression-compile-tmp/chimps.imp"
10757 @ 99649:                  PUSH   DPOS
10758 @ 99652:                  RESULT

  2193  %end
  2194  
10759 @ 99653:                  LINE   2193 "regression-compile-tmp/chimps.imp"
10760 @ 99690:               END    _ECCECI_GETSTATEMENTS_NEWRANGE {lev=3 --> 2}

  2195  %routine GET LITBOUNDS
10761 @ 99691:               LINE   2195 "regression-compile-tmp/chimps.imp"
10762 @ 99728:               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
10763 @ 99752:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
10764 @ 99753:                  FINISH ) {lev=3}

  2196  %integer lower
10765 @ 99754:                  LINE   2196 "regression-compile-tmp/chimps.imp"
10766 @ 99791:                  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

  2197    get(left)
10767 @ 99808:                  LINE   2197 "regression-compile-tmp/chimps.imp"
10768 @ 99845:                  PUSH   GET
10769 @ 99848:                  PUSHI  #0x00000037
10770 @ 99853:                  ASSPAR
10771 @ 99854:                  CALL  

  2198    get LITINT;  lower = t_val
10772 @ 99855:                  LINE   2198 "regression-compile-tmp/chimps.imp"
10773 @ 99892:                  PUSH   GETLITINT
10774 @ 99895:                  CALL  
10775 @ 99896:                  LINE   2198 "regression-compile-tmp/chimps.imp"
10776 @ 99933:                  PUSH   LOWER
10777 @ 99936:                  PUSH   T
10778 @ 99939:                  SELECT 7
10779 @ 99942:                  ASSVAL

  2199    get(colon)
10780 @ 99943:                  LINE   2199 "regression-compile-tmp/chimps.imp"
10781 @ 99980:                  PUSH   GET
10782 @ 99983:                  PUSHI  #0x0000003a
10783 @ 99988:                  ASSPAR
10784 @ 99989:                  CALL  

  2200    get LITINT;
10785 @ 99990:                  LINE   2200 "regression-compile-tmp/chimps.imp"
10786 @ 100027:                  PUSH   GETLITINT
10787 @ 100030:                  CALL  

  2201    get(right)
10788 @ 100031:                  LINE   2201 "regression-compile-tmp/chimps.imp"
10789 @ 100068:                  PUSH   GET
10790 @ 100071:                  PUSHI  #0x0000003c
10791 @ 100076:                  ASSPAR
10792 @ 100077:                  CALL  

  2202    t_low = lower
10793 @ 100078:                  LINE   2202 "regression-compile-tmp/chimps.imp"
10794 @ 100115:                  PUSH   T
10795 @ 100118:                  SELECT 6
10796 @ 100121:                  PUSH   LOWER
10797 @ 100124:                  ASSVAL

  2203    item = newrange(inty,t_low,t_val);  !always integer at present
10798 @ 100125:                  LINE   2203 "regression-compile-tmp/chimps.imp"
10799 @ 100162:                  PUSH   ITEM
10800 @ 100165:                  PUSH   NEWRANGE
10801 @ 100168:                  PUSHI  #0x000007fe
10802 @ 100173:                  ASSPAR
10803 @ 100174:                  PUSH   T
10804 @ 100177:                  SELECT 6
10805 @ 100180:                  ASSPAR
10806 @ 100181:                  PUSH   T
10807 @ 100184:                  SELECT 7
10808 @ 100187:                  ASSPAR
10809 @ 100188:                  CALL  
10810 @ 100189:                  ASSVAL

  2204  %end
  2205  
10811 @ 100190:                  LINE   2204 "regression-compile-tmp/chimps.imp"
10812 @ 100227:               END    _ECCECI_GETSTATEMENTS_GETLITBOUNDS {lev=3 --> 2}

  2206  %routine GET IDENT
10813 @ 100228:               LINE   2206 "regression-compile-tmp/chimps.imp"
10814 @ 100265:               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
10815 @ 100285:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
10816 @ 100286:                  FINISH ) {lev=3}

  2207    dlim0 = dlim
10817 @ 100287:                  LINE   2207 "regression-compile-tmp/chimps.imp"
10818 @ 100324:                  PUSH   DLIM0
10819 @ 100327:                  PUSH   DLIM
10820 @ 100330:                  ASSVAL

  2208    get(ident)
10821 @ 100331:                  LINE   2208 "regression-compile-tmp/chimps.imp"
10822 @ 100368:                  PUSH   GET
10823 @ 100371:                  PUSHI  #0x00000036
10824 @ 100376:                  ASSPAR
10825 @ 100377:                  CALL  

  2209    declare
10826 @ 100378:                  LINE   2209 "regression-compile-tmp/chimps.imp"
10827 @ 100415:                  PUSH   DECLARE
10828 @ 100418:                  CALL  

  2210    get LITSTRING %if d_flags&ext # 0 %and a(alias)
10829 @ 100419:                  LINE   2210 "regression-compile-tmp/chimps.imp"
10830 @ 100456:                  PUSH   D
10831 @ 100459:                  SELECT 1
10832 @ 100462:                  PUSHI  #0x00000020
10833 @ 100467:                  AND   
10834 @ 100468:                  PUSHI  #0x00000000
10835 @ 100473:                  JUMPIF = L_0004
10836 @ 100477:                  PUSH   A
10837 @ 100480:                  PUSHI  #0x0000002e
10838 @ 100485:                  ASSPAR
10839 @ 100486:                  CALL  
10840 @ 100487:                  bf     L_0004
10841 @ 100490:                  PUSH   GETLITSTRING
10842 @ 100493:                  CALL  
10843 @ 100494:                  LOCATE L_0004

  2211  %end
  2212  
10844 @ 100497:                  LINE   2211 "regression-compile-tmp/chimps.imp"
10845 @ 100534:               END    _ECCECI_GETSTATEMENTS_GETIDENT {lev=3 --> 2}

  2213  %routine GET IDENTLIST
10846 @ 100535:               LINE   2213 "regression-compile-tmp/chimps.imp"
10847 @ 100572:               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
10848 @ 100596:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
10849 @ 100597:                  FINISH ) {lev=3}

  2214    dlim0 = dlim
10850 @ 100598:                  LINE   2214 "regression-compile-tmp/chimps.imp"
10851 @ 100635:                  PUSH   DLIM0
10852 @ 100638:                  PUSH   DLIM
10853 @ 100641:                  ASSVAL

  2215    %cycle
10854 @ 100642:                  LINE   2215 "regression-compile-tmp/chimps.imp"
10855 @ 100679:                  LOCATE L_0003

  2216      get(ident)
10856 @ 100682:                  LINE   2216 "regression-compile-tmp/chimps.imp"
10857 @ 100719:                  PUSH   GET
10858 @ 100722:                  PUSHI  #0x00000036
10859 @ 100727:                  ASSPAR
10860 @ 100728:                  CALL  

  2217      declare
10861 @ 100729:                  LINE   2217 "regression-compile-tmp/chimps.imp"
10862 @ 100766:                  PUSH   DECLARE
10863 @ 100769:                  CALL  

  2218      get LITSTRING %if d_flags&ext # 0 %and a(alias)
10864 @ 100770:                  LINE   2218 "regression-compile-tmp/chimps.imp"
10865 @ 100807:                  PUSH   D
10866 @ 100810:                  SELECT 1
10867 @ 100813:                  PUSHI  #0x00000020
10868 @ 100818:                  AND   
10869 @ 100819:                  PUSHI  #0x00000000
10870 @ 100824:                  JUMPIF = L_0007
10871 @ 100828:                  PUSH   A
10872 @ 100831:                  PUSHI  #0x0000002e
10873 @ 100836:                  ASSPAR
10874 @ 100837:                  CALL  
10875 @ 100838:                  bf     L_0007
10876 @ 100841:                  PUSH   GETLITSTRING
10877 @ 100844:                  CALL  
10878 @ 100845:                  LOCATE L_0007

  2219     %repeat %until %not a(comma)
10879 @ 100848:                  LINE   2219 "regression-compile-tmp/chimps.imp"
10880 @ 100885:                  PUSH   A
10881 @ 100888:                  PUSHI  #0x0000003b
10882 @ 100893:                  ASSPAR
10883 @ 100894:                  CALL  
10884 @ 100895:                  bf     L_0004
10885 @ 100898:                  REPEAT L_0003
10886 @ 100901:                  LOCATE L_0004

  2220  %end
  2221  
10887 @ 100904:                  LINE   2220 "regression-compile-tmp/chimps.imp"
10888 @ 100941:               END    _ECCECI_GETSTATEMENTS_GETIDENTLIST {lev=3 --> 2}

  2222  %routine GET TYPE(%integer flags)
10889 @ 100942:               LINE   2222 "regression-compile-tmp/chimps.imp"
10890 @ 100979:               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
10891 @ 100998:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
10892 @ 100999:                     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
10893 @ 101016:                  FINISH ) {lev=3}

  2223  %owninteger fbase
10894 @ 101017:                  LINE   2223 "regression-compile-tmp/chimps.imp"
10895 @ 101054:                  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
10896 @ 101071:                  INIT   1

  2224  %ownrecord(identinfo)%name formp,fieldp
  2225  !
10897 @ 101074:                  LINE   2224 "regression-compile-tmp/chimps.imp"
10898 @ 101111:                  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
10899 @ 101128:                  INIT   1
10900 @ 101131:                  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
10901 @ 101149:                  INIT   1

  2226  %routine GET FORMATDEF;  !(%integername base)
10902 @ 101152:                  LINE   2226 "regression-compile-tmp/chimps.imp"
10903 @ 101189:                  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
10904 @ 101213:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
10905 @ 101214:                     FINISH ) {lev=4}

  2227  %integer disp,max,base
10906 @ 101215:                     LINE   2227 "regression-compile-tmp/chimps.imp"
10907 @ 101252:                     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
10908 @ 101268:                     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
10909 @ 101283:                     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

  2228  %routine GET FIELD IDENT
10910 @ 101299:                     LINE   2228 "regression-compile-tmp/chimps.imp"
10911 @ 101336:                     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
10912 @ 101361:                        START  ( FORMAL PARAMETERS  {lev=5 --> 6, nested=0 --> 1}
10913 @ 101362:                        FINISH ) {lev=5}

  2229    get(ident)
10914 @ 101363:                        LINE   2229 "regression-compile-tmp/chimps.imp"
10915 @ 101400:                        PUSH   GET
10916 @ 101403:                        PUSHI  #0x00000036
10917 @ 101408:                        ASSPAR
10918 @ 101409:                        CALL  

  2230    %if item > 0 %then d_text = ditem_text %c
  2231    %else %start
10919 @ 101410:                        LINE   2230 "regression-compile-tmp/chimps.imp"
10920 @ 101447:                        PUSH   ITEM
10921 @ 101450:                        PUSHI  #0x00000000
10922 @ 101455:                        JUMPIF <= L_0004
10923 @ 101459:                        PUSH   D
10924 @ 101462:                        SELECT 9
10925 @ 101465:                        PUSH   DITEM
10926 @ 101468:                        SELECT 9
10927 @ 101471:                        ASSVAL
10928 @ 101472:                        GOTO   L_0003
10929 @ 101475:                        LOCATE L_0004

  2232      d_text = charlim-charbase;  charlim = charlim+newlen+1
10930 @ 101478:                        LINE   2232 "regression-compile-tmp/chimps.imp"
10931 @ 101515:                        PUSH   D
10932 @ 101518:                        SELECT 9
10933 @ 101521:                        PUSH   CHARLIM
10934 @ 101524:                        PUSH   CHARBASE
10935 @ 101527:                        SUB   
10936 @ 101528:                        ASSVAL
10937 @ 101529:                        LINE   2232 "regression-compile-tmp/chimps.imp"
10938 @ 101566:                        PUSH   CHARLIM
10939 @ 101569:                        PUSH   CHARLIM
10940 @ 101572:                        PUSH   NEWLEN
10941 @ 101575:                        ADD   
10942 @ 101576:                        PUSHI  #0x00000001
10943 @ 101581:                        ADD   
10944 @ 101582:                        ASSVAL

  2233      croak("Identifier space exhausted") %if charlim+80 >= charmin
10945 @ 101583:                        LINE   2233 "regression-compile-tmp/chimps.imp"
10946 @ 101620:                        PUSH   CHARLIM
10947 @ 101623:                        PUSHI  #0x00000050
10948 @ 101628:                        ADD   
10949 @ 101629:                        PUSH   CHARMIN
10950 @ 101632:                        JUMPIF < L_0007
10951 @ 101636:                        PUSH   CROAK
10952 @ 101639:                        PUSHS  "Identifier space exhausted"
10953 @ 101667:                        ASSPAR
10954 @ 101668:                        CALL  
10955 @ 101669:                        LOCATE L_0007

  2234    %finish
10956 @ 101672:                        LINE   2234 "regression-compile-tmp/chimps.imp"
10957 @ 101709:                        LOCATE L_0003

  2235    ditem == dict(dlim);  fieldp == ditem
10958 @ 101712:                        LINE   2235 "regression-compile-tmp/chimps.imp"
10959 @ 101749:                        PUSH   DITEM
10960 @ 101752:                        PUSH   DICT
10961 @ 101755:                        PUSH   DLIM
10962 @ 101758:                        ACCESS
10963 @ 101759:                        ASSREF
10964 @ 101760:                        LINE   2235 "regression-compile-tmp/chimps.imp"
10965 @ 101797:                        PUSH   FIELDP
10966 @ 101800:                        PUSH   DITEM
10967 @ 101803:                        ASSREF

  2236    ditem = d
10968 @ 101804:                        LINE   2236 "regression-compile-tmp/chimps.imp"
10969 @ 101841:                        PUSH   DITEM
10970 @ 101844:                        PUSH   D
10971 @ 101847:                        ASSVAL

  2237    %if formp_extra = 0 %then formp_extra = dlim %c
  2238    %else %start
  2239  !    lookup field ident(formp_extra)
  2240  !    fault(duperr+point) %and item = dlim %if item # dlim
10972 @ 101848:                        LINE   2237 "regression-compile-tmp/chimps.imp"
10973 @ 101885:                        PUSH   FORMP
10974 @ 101888:                        SELECT 3
10975 @ 101891:                        PUSHI  #0x00000000
10976 @ 101896:                        JUMPIF # L_0004
10977 @ 101900:                        PUSH   FORMP
10978 @ 101903:                        SELECT 3
10979 @ 101906:                        PUSH   DLIM
10980 @ 101909:                        ASSVAL
10981 @ 101910:                        GOTO   L_0003
10982 @ 101913:                        LOCATE L_0004

  2241    %finish
10983 @ 101916:                        LINE   2241 "regression-compile-tmp/chimps.imp"
10984 @ 101953:                        LOCATE L_0003

  2242    dlim = dlim+1;  croak("Too many identifiers") %if dlim >= dmin
10985 @ 101956:                        LINE   2242 "regression-compile-tmp/chimps.imp"
10986 @ 101993:                        PUSH   DLIM
10987 @ 101996:                        PUSH   DLIM
10988 @ 101999:                        PUSHI  #0x00000001
10989 @ 102004:                        ADD   
10990 @ 102005:                        ASSVAL
10991 @ 102006:                        LINE   2242 "regression-compile-tmp/chimps.imp"
10992 @ 102043:                        PUSH   DLIM
10993 @ 102046:                        PUSH   DMIN
10994 @ 102049:                        JUMPIF < L_0004
10995 @ 102053:                        PUSH   CROAK
10996 @ 102056:                        PUSHS  "Too many identifiers"
10997 @ 102078:                        ASSPAR
10998 @ 102079:                        CALL  
10999 @ 102080:                        LOCATE L_0004

  2243  %end
11000 @ 102083:                        LINE   2243 "regression-compile-tmp/chimps.imp"
11001 @ 102120:                     END    _ECCECI_GETSTATEMENTS_GETTYPE_GETFORMATDEF_GETFIELDIDENT {lev=5 --> 4}

  2244  %routine get UNIT
11002 @ 102121:                     LINE   2244 "regression-compile-tmp/chimps.imp"
11003 @ 102158:                     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
11004 @ 102177:                        START  ( FORMAL PARAMETERS  {lev=5 --> 6, nested=0 --> 1}
11005 @ 102178:                        FINISH ) {lev=5}

  2245    %cycle
11006 @ 102179:                        LINE   2245 "regression-compile-tmp/chimps.imp"
11007 @ 102216:                        LOCATE L_0003

  2246      %if a(left) %start
11008 @ 102219:                        LINE   2246 "regression-compile-tmp/chimps.imp"
11009 @ 102256:                        PUSH   A
11010 @ 102259:                        PUSHI  #0x00000037
11011 @ 102264:                        ASSPAR
11012 @ 102265:                        CALL  
11013 @ 102266:                        bf     L_0007

  2247        get FORMATDEF;  get(right)
11014 @ 102269:                        LINE   2247 "regression-compile-tmp/chimps.imp"
11015 @ 102306:                        PUSH   GETFORMATDEF
11016 @ 102309:                        CALL  
11017 @ 102310:                        LINE   2247 "regression-compile-tmp/chimps.imp"
11018 @ 102347:                        PUSH   GET
11019 @ 102350:                        PUSHI  #0x0000003c
11020 @ 102355:                        ASSPAR
11021 @ 102356:                        CALL  

  2248        %return %if %not a(comma)
11022 @ 102357:                        LINE   2248 "regression-compile-tmp/chimps.imp"
11023 @ 102394:                        PUSH   A
11024 @ 102397:                        PUSHI  #0x0000003b
11025 @ 102402:                        ASSPAR
11026 @ 102403:                        CALL  
11027 @ 102404:                        bt     L_000a
11028 @ 102407:                        RETURN
11029 @ 102408:                        LOCATE L_000a

  2249      %else
11030 @ 102411:                        LINE   2249 "regression-compile-tmp/chimps.imp"
11031 @ 102448:                        GOTO   L_0006
11032 @ 102451:                        LOCATE L_0007

  2250        get TYPE(static+more)
11033 @ 102454:                        LINE   2250 "regression-compile-tmp/chimps.imp"
11034 @ 102491:                        PUSH   GETTYPE
11035 @ 102494:                        PUSHI  #0x00000008
11036 @ 102499:                        PUSHI  #0x00000080
11037 @ 102504:                        ADD   
11038 @ 102505:                        ASSPAR
11039 @ 102506:                        CALL  

  2251        %if d_flags&parm = 0 %start;  !not array
11040 @ 102507:                        LINE   2251 "regression-compile-tmp/chimps.imp"
11041 @ 102544:                        PUSH   D
11042 @ 102547:                        SELECT 1
11043 @ 102550:                        PUSHI  #0x00000040
11044 @ 102555:                        AND   
11045 @ 102556:                        PUSHI  #0x00000000
11046 @ 102561:                        JUMPIF # L_000a

  2252          %cycle
11047 @ 102565:                        LINE   2252 "regression-compile-tmp/chimps.imp"
11048 @ 102602:                        LOCATE L_000c

  2253            disp = disp+1 %if disp&1 # 0 %and dsize # 1
11049 @ 102605:                        LINE   2253 "regression-compile-tmp/chimps.imp"
11050 @ 102642:                        PUSH   DISP
11051 @ 102645:                        PUSHI  #0x00000001
11052 @ 102650:                        AND   
11053 @ 102651:                        PUSHI  #0x00000000
11054 @ 102656:                        JUMPIF = L_0010
11055 @ 102660:                        PUSH   DSIZE
11056 @ 102663:                        PUSHI  #0x00000001
11057 @ 102668:                        JUMPIF = L_0010
11058 @ 102672:                        PUSH   DISP
11059 @ 102675:                        PUSH   DISP
11060 @ 102678:                        PUSHI  #0x00000001
11061 @ 102683:                        ADD   
11062 @ 102684:                        ASSVAL
11063 @ 102685:                        LOCATE L_0010

  2254            d_val = disp
11064 @ 102688:                        LINE   2254 "regression-compile-tmp/chimps.imp"
11065 @ 102725:                        PUSH   D
11066 @ 102728:                        SELECT 7
11067 @ 102731:                        PUSH   DISP
11068 @ 102734:                        ASSVAL

  2255            disp = disp+dsize
11069 @ 102735:                        LINE   2255 "regression-compile-tmp/chimps.imp"
11070 @ 102772:                        PUSH   DISP
11071 @ 102775:                        PUSH   DISP
11072 @ 102778:                        PUSH   DSIZE
11073 @ 102781:                        ADD   
11074 @ 102782:                        ASSVAL

  2256            get FIELD IDENT
11075 @ 102783:                        LINE   2256 "regression-compile-tmp/chimps.imp"
11076 @ 102820:                        PUSH   GETFIELDIDENT
11077 @ 102823:                        CALL  

  2257            %return %if %not a(comma)
11078 @ 102824:                        LINE   2257 "regression-compile-tmp/chimps.imp"
11079 @ 102861:                        PUSH   A
11080 @ 102864:                        PUSHI  #0x0000003b
11081 @ 102869:                        ASSPAR
11082 @ 102870:                        CALL  
11083 @ 102871:                        bt     L_0010
11084 @ 102874:                        RETURN
11085 @ 102875:                        LOCATE L_0010

  2258            atom = next atom
11086 @ 102878:                        LINE   2258 "regression-compile-tmp/chimps.imp"
11087 @ 102915:                        PUSH   ATOM
11088 @ 102918:                        PUSH   NEXTATOM
11089 @ 102921:                        CALL  
11090 @ 102922:                        ASSVAL

  2259          %repeat %until atom # ident
11091 @ 102923:                        LINE   2259 "regression-compile-tmp/chimps.imp"
11092 @ 102960:                        PUSH   ATOM
11093 @ 102963:                        PUSHI  #0x00000036
11094 @ 102968:                        JUMPIF # L_000d
11095 @ 102972:                        REPEAT L_000c
11096 @ 102975:                        LOCATE L_000d

  2260        %else;  !array
11097 @ 102978:                        LINE   2260 "regression-compile-tmp/chimps.imp"
11098 @ 103015:                        GOTO   L_0009
11099 @ 103018:                        LOCATE L_000a

  2261          d_flags = d_flags-parm
11100 @ 103021:                        LINE   2261 "regression-compile-tmp/chimps.imp"
11101 @ 103058:                        PUSH   D
11102 @ 103061:                        SELECT 1
11103 @ 103064:                        PUSH   D
11104 @ 103067:                        SELECT 1
11105 @ 103070:                        PUSHI  #0x00000040
11106 @ 103075:                        SUB   
11107 @ 103076:                        ASSVAL

  2262          disp = disp+1 %if disp&1 # 0;  d_val = disp
11108 @ 103077:                        LINE   2262 "regression-compile-tmp/chimps.imp"
11109 @ 103114:                        PUSH   DISP
11110 @ 103117:                        PUSHI  #0x00000001
11111 @ 103122:                        AND   
11112 @ 103123:                        PUSHI  #0x00000000
11113 @ 103128:                        JUMPIF = L_000d
11114 @ 103132:                        PUSH   DISP
11115 @ 103135:                        PUSH   DISP
11116 @ 103138:                        PUSHI  #0x00000001
11117 @ 103143:                        ADD   
11118 @ 103144:                        ASSVAL
11119 @ 103145:                        LOCATE L_000d
11120 @ 103148:                        LINE   2262 "regression-compile-tmp/chimps.imp"
11121 @ 103185:                        PUSH   D
11122 @ 103188:                        SELECT 7
11123 @ 103191:                        PUSH   DISP
11124 @ 103194:                        ASSVAL

  2263          get FIELD IDENT
11125 @ 103195:                        LINE   2263 "regression-compile-tmp/chimps.imp"
11126 @ 103232:                        PUSH   GETFIELDIDENT
11127 @ 103235:                        CALL  

  2264          get LITBOUNDS
11128 @ 103236:                        LINE   2264 "regression-compile-tmp/chimps.imp"
11129 @ 103273:                        PUSH   GETLITBOUNDS
11130 @ 103276:                        CALL  

  2265          fieldp_type = newatype(d_type,item)
11131 @ 103277:                        LINE   2265 "regression-compile-tmp/chimps.imp"
11132 @ 103314:                        PUSH   FIELDP
11133 @ 103317:                        SELECT 2
11134 @ 103320:                        PUSH   NEWATYPE
11135 @ 103323:                        PUSH   D
11136 @ 103326:                        SELECT 2
11137 @ 103329:                        ASSPAR
11138 @ 103330:                        PUSH   ITEM
11139 @ 103333:                        ASSPAR
11140 @ 103334:                        CALL  
11141 @ 103335:                        ASSVAL

  2266          disp = disp+dsize*elements
11142 @ 103336:                        LINE   2266 "regression-compile-tmp/chimps.imp"
11143 @ 103373:                        PUSH   DISP
11144 @ 103376:                        PUSH   DISP
11145 @ 103379:                        PUSH   DSIZE
11146 @ 103382:                        PUSH   ELEMENTS
11147 @ 103385:                        MUL   
11148 @ 103386:                        ADD   
11149 @ 103387:                        ASSVAL

  2267          %return %if %not a(comma)
11150 @ 103388:                        LINE   2267 "regression-compile-tmp/chimps.imp"
11151 @ 103425:                        PUSH   A
11152 @ 103428:                        PUSHI  #0x0000003b
11153 @ 103433:                        ASSPAR
11154 @ 103434:                        CALL  
11155 @ 103435:                        bt     L_000d
11156 @ 103438:                        RETURN
11157 @ 103439:                        LOCATE L_000d

  2268        %finish
11158 @ 103442:                        LINE   2268 "regression-compile-tmp/chimps.imp"
11159 @ 103479:                        LOCATE L_0009

  2269      %finish
11160 @ 103482:                        LINE   2269 "regression-compile-tmp/chimps.imp"
11161 @ 103519:                        LOCATE L_0006

  2270    %repeat
11162 @ 103522:                        LINE   2270 "regression-compile-tmp/chimps.imp"
11163 @ 103559:                        REPEAT L_0003

  2271  %end
11164 @ 103562:                        LINE   2271 "regression-compile-tmp/chimps.imp"
11165 @ 103599:                     END    _ECCECI_GETSTATEMENTS_GETTYPE_GETFORMATDEF_GETUNIT {lev=5 --> 4}

  2272    max = 0;  base = 0
11166 @ 103600:                     LINE   2272 "regression-compile-tmp/chimps.imp"
11167 @ 103637:                     PUSH   MAX
11168 @ 103640:                     PUSHI  #0x00000000
11169 @ 103645:                     ASSVAL
11170 @ 103646:                     LINE   2272 "regression-compile-tmp/chimps.imp"
11171 @ 103683:                     PUSH   BASE
11172 @ 103686:                     PUSHI  #0x00000000
11173 @ 103691:                     ASSVAL

  2273    %cycle
11174 @ 103692:                     LINE   2273 "regression-compile-tmp/chimps.imp"
11175 @ 103729:                     LOCATE L_0003

  2274      disp = base
11176 @ 103732:                     LINE   2274 "regression-compile-tmp/chimps.imp"
11177 @ 103769:                     PUSH   DISP
11178 @ 103772:                     PUSH   BASE
11179 @ 103775:                     ASSVAL

  2275      get UNIT
11180 @ 103776:                     LINE   2275 "regression-compile-tmp/chimps.imp"
11181 @ 103813:                     PUSH   GETUNIT
11182 @ 103816:                     CALL  

  2276      max = disp %if max < disp
11183 @ 103817:                     LINE   2276 "regression-compile-tmp/chimps.imp"
11184 @ 103854:                     PUSH   MAX
11185 @ 103857:                     PUSH   DISP
11186 @ 103860:                     JUMPIF >= L_0007
11187 @ 103864:                     PUSH   MAX
11188 @ 103867:                     PUSH   DISP
11189 @ 103870:                     ASSVAL
11190 @ 103871:                     LOCATE L_0007

  2277    %repeat %until %not a(keyor)
11191 @ 103874:                     LINE   2277 "regression-compile-tmp/chimps.imp"
11192 @ 103911:                     PUSH   A
11193 @ 103914:                     PUSHI  #0x00000041
11194 @ 103919:                     ASSPAR
11195 @ 103920:                     CALL  
11196 @ 103921:                     bf     L_0004
11197 @ 103924:                     REPEAT L_0003
11198 @ 103927:                     LOCATE L_0004

  2278    base = max
11199 @ 103930:                     LINE   2278 "regression-compile-tmp/chimps.imp"
11200 @ 103967:                     PUSH   BASE
11201 @ 103970:                     PUSH   MAX
11202 @ 103973:                     ASSVAL

  2279  %end;  !get FORMATDEF
  2280  
11203 @ 103974:                     LINE   2279 "regression-compile-tmp/chimps.imp"
11204 @ 104011:                  END    _ECCECI_GETSTATEMENTS_GETTYPE_GETFORMATDEF {lev=4 --> 3}

  2281    dsize = 0;  d_mode = 0;  d_val = 0
11205 @ 104012:                  LINE   2281 "regression-compile-tmp/chimps.imp"
11206 @ 104049:                  PUSH   DSIZE
11207 @ 104052:                  PUSHI  #0x00000000
11208 @ 104057:                  ASSVAL
11209 @ 104058:                  LINE   2281 "regression-compile-tmp/chimps.imp"
11210 @ 104095:                  PUSH   D
11211 @ 104098:                  SELECT 5
11212 @ 104101:                  PUSHI  #0x00000000
11213 @ 104106:                  ASSVAL
11214 @ 104107:                  LINE   2281 "regression-compile-tmp/chimps.imp"
11215 @ 104144:                  PUSH   D
11216 @ 104147:                  SELECT 7
11217 @ 104150:                  PUSHI  #0x00000000
11218 @ 104155:                  ASSVAL

  2282    d_type = nulltype
11219 @ 104156:                  LINE   2282 "regression-compile-tmp/chimps.imp"
11220 @ 104193:                  PUSH   D
11221 @ 104196:                  SELECT 2
11222 @ 104199:                  PUSHI  #0x000007f9
11223 @ 104204:                  ASSVAL

  2283    %if a(rpred) %start;  !%routine,(%integerfn)
11224 @ 104205:                  LINE   2283 "regression-compile-tmp/chimps.imp"
11225 @ 104242:                  PUSH   A
11226 @ 104245:                  PUSHI  #0x00000021
11227 @ 104250:                  ASSPAR
11228 @ 104251:                  CALL  
11229 @ 104252:                  bf     L_0004

  2284      flags = flags&(\static) %if flags&ext # 0
11230 @ 104255:                  LINE   2284 "regression-compile-tmp/chimps.imp"
11231 @ 104292:                  PUSH   FLAGS
11232 @ 104295:                  PUSHI  #0x00000020
11233 @ 104300:                  AND   
11234 @ 104301:                  PUSHI  #0x00000000
11235 @ 104306:                  JUMPIF = L_0007
11236 @ 104310:                  PUSH   FLAGS
11237 @ 104313:                  PUSH   FLAGS
11238 @ 104316:                  PUSHI  #0x00000008
11239 @ 104321:                  NOT   
11240 @ 104322:                  AND   
11241 @ 104323:                  ASSVAL
11242 @ 104324:                  LOCATE L_0007

  2285      syntax error %if flags&static # 0
11243 @ 104327:                  LINE   2285 "regression-compile-tmp/chimps.imp"
11244 @ 104364:                  PUSH   FLAGS
11245 @ 104367:                  PUSHI  #0x00000008
11246 @ 104372:                  AND   
11247 @ 104373:                  PUSHI  #0x00000000
11248 @ 104378:                  JUMPIF = L_0007
11249 @ 104382:                  PUSH   SYNTAXERROR
11250 @ 104385:                  CALL  
11251 @ 104386:                  LOCATE L_0007

  2286      nonstandard(pred) %and d_type = booltype %if subatom # 0
11252 @ 104389:                  LINE   2286 "regression-compile-tmp/chimps.imp"
11253 @ 104426:                  PUSH   SUBATOM
11254 @ 104429:                  PUSHI  #0x00000000
11255 @ 104434:                  JUMPIF = L_0007
11256 @ 104438:                  PUSH   NONSTANDARD
11257 @ 104441:                  PUSHI  #0x00000001
11258 @ 104446:                  ASSPAR
11259 @ 104447:                  CALL  
11260 @ 104448:                  PUSH   D
11261 @ 104451:                  SELECT 2
11262 @ 104454:                  PUSHI  #0x00000800
11263 @ 104459:                  ASSVAL
11264 @ 104460:                  LOCATE L_0007

  2287      d_flags = flags+proc;  declmode = declmode+pcmode
11265 @ 104463:                  LINE   2287 "regression-compile-tmp/chimps.imp"
11266 @ 104500:                  PUSH   D
11267 @ 104503:                  SELECT 1
11268 @ 104506:                  PUSH   FLAGS
11269 @ 104509:                  PUSHI  #0x00000004
11270 @ 104514:                  ADD   
11271 @ 104515:                  ASSVAL
11272 @ 104516:                  LINE   2287 "regression-compile-tmp/chimps.imp"
11273 @ 104553:                  PUSH   DECLMODE
11274 @ 104556:                  PUSH   DECLMODE
11275 @ 104559:                  PUSHI  #0x0000003a
11276 @ 104564:                  ADD   
11277 @ 104565:                  ASSVAL

  2288      %return
11278 @ 104566:                  LINE   2288 "regression-compile-tmp/chimps.imp"
11279 @ 104603:                  RETURN

  2289    %finish
11280 @ 104604:                  LINE   2289 "regression-compile-tmp/chimps.imp"
11281 @ 104641:                  LOCATE L_0004

  2290    %if a(krange) %start;                 !%byte,%short,%half,%mite
11282 @ 104644:                  LINE   2290 "regression-compile-tmp/chimps.imp"
11283 @ 104681:                  PUSH   A
11284 @ 104684:                  PUSHI  #0x00000019
11285 @ 104689:                  ASSPAR
11286 @ 104690:                  CALL  
11287 @ 104691:                  bf     L_0004

  2291      d_type = inttype+subatom;  dsize = 1
11288 @ 104694:                  LINE   2291 "regression-compile-tmp/chimps.imp"
11289 @ 104731:                  PUSH   D
11290 @ 104734:                  SELECT 2
11291 @ 104737:                  PUSHI  #0x00000803
11292 @ 104742:                  PUSH   SUBATOM
11293 @ 104745:                  ADD   
11294 @ 104746:                  ASSVAL
11295 @ 104747:                  LINE   2291 "regression-compile-tmp/chimps.imp"
11296 @ 104784:                  PUSH   DSIZE
11297 @ 104787:                  PUSHI  #0x00000001
11298 @ 104792:                  ASSVAL

  2292      dsize = 2 %if d_type = shorttype %or d_type = halftype
11299 @ 104793:                  LINE   2292 "regression-compile-tmp/chimps.imp"
11300 @ 104830:                  PUSH   D
11301 @ 104833:                  SELECT 2
11302 @ 104836:                  PUSHI  #0x00000804
11303 @ 104841:                  JUMPIF = L_0008
11304 @ 104845:                  PUSH   D
11305 @ 104848:                  SELECT 2
11306 @ 104851:                  PUSHI  #0x00000805
11307 @ 104856:                  JUMPIF # L_0007
11308 @ 104860:                  LOCATE L_0008
11309 @ 104863:                  PUSH   DSIZE
11310 @ 104866:                  PUSHI  #0x00000002
11311 @ 104871:                  ASSVAL
11312 @ 104872:                  LOCATE L_0007

  2293      nonstandard(ranges) %if d_type >= mitetype
11313 @ 104875:                  LINE   2293 "regression-compile-tmp/chimps.imp"
11314 @ 104912:                  PUSH   D
11315 @ 104915:                  SELECT 2
11316 @ 104918:                  PUSHI  #0x00000807
11317 @ 104923:                  JUMPIF < L_0007
11318 @ 104927:                  PUSH   NONSTANDARD
11319 @ 104930:                  PUSHI  #0x00000010
11320 @ 104935:                  ASSPAR
11321 @ 104936:                  CALL  
11322 @ 104937:                  LOCATE L_0007

  2294      allow(keyinteger)
11323 @ 104940:                  LINE   2294 "regression-compile-tmp/chimps.imp"
11324 @ 104977:                  PUSH   ALLOW
11325 @ 104980:                  PUSHI  #0x0000001b
11326 @ 104985:                  ASSPAR
11327 @ 104986:                  CALL  

  2295    %else %if a(keyinteger);                    !%integer
11328 @ 104987:                  LINE   2295 "regression-compile-tmp/chimps.imp"
11329 @ 105024:                  GOTO   L_0003
11330 @ 105027:                  LOCATE L_0004
11331 @ 105030:                  PUSH   A
11332 @ 105033:                  PUSHI  #0x0000001b
11333 @ 105038:                  ASSPAR
11334 @ 105039:                  CALL  
11335 @ 105040:                  bf     L_0004

  2296      d_type = inttype;  dsize = 4
11336 @ 105043:                  LINE   2296 "regression-compile-tmp/chimps.imp"
11337 @ 105080:                  PUSH   D
11338 @ 105083:                  SELECT 2
11339 @ 105086:                  PUSHI  #0x00000803
11340 @ 105091:                  ASSVAL
11341 @ 105092:                  LINE   2296 "regression-compile-tmp/chimps.imp"
11342 @ 105129:                  PUSH   DSIZE
11343 @ 105132:                  PUSHI  #0x00000004
11344 @ 105137:                  ASSVAL

  2297      atom = next atom
11345 @ 105138:                  LINE   2297 "regression-compile-tmp/chimps.imp"
11346 @ 105175:                  PUSH   ATOM
11347 @ 105178:                  PUSH   NEXTATOM
11348 @ 105181:                  CALL  
11349 @ 105182:                  ASSVAL

  2298      %if atom = left %start
11350 @ 105183:                  LINE   2298 "regression-compile-tmp/chimps.imp"
11351 @ 105220:                  PUSH   ATOM
11352 @ 105223:                  PUSHI  #0x00000037
11353 @ 105228:                  JUMPIF # L_0007

  2299        get LITBOUNDS
11354 @ 105232:                  LINE   2299 "regression-compile-tmp/chimps.imp"
11355 @ 105269:                  PUSH   GETLITBOUNDS
11356 @ 105272:                  CALL  

  2300        d_type = item
11357 @ 105273:                  LINE   2300 "regression-compile-tmp/chimps.imp"
11358 @ 105310:                  PUSH   D
11359 @ 105313:                  SELECT 2
11360 @ 105316:                  PUSH   ITEM
11361 @ 105319:                  ASSVAL

  2301        dsize = 2 %if elements <= 65536 %and t_low >= -32768
11362 @ 105320:                  LINE   2301 "regression-compile-tmp/chimps.imp"
11363 @ 105357:                  PUSH   ELEMENTS
11364 @ 105360:                  PUSHI  #0x00010000
11365 @ 105365:                  JUMPIF > L_000a
11366 @ 105369:                  PUSH   T
11367 @ 105372:                  SELECT 6
11368 @ 105375:                  PUSHI  #0x00008000
11369 @ 105380:                  NEGATE
11370 @ 105381:                  JUMPIF < L_000a
11371 @ 105385:                  PUSH   DSIZE
11372 @ 105388:                  PUSHI  #0x00000002
11373 @ 105393:                  ASSVAL
11374 @ 105394:                  LOCATE L_000a

  2302        dsize = 1 %if elements <= 256 %and t_low >= -128
11375 @ 105397:                  LINE   2302 "regression-compile-tmp/chimps.imp"
11376 @ 105434:                  PUSH   ELEMENTS
11377 @ 105437:                  PUSHI  #0x00000100
11378 @ 105442:                  JUMPIF > L_000a
11379 @ 105446:                  PUSH   T
11380 @ 105449:                  SELECT 6
11381 @ 105452:                  PUSHI  #0x00000080
11382 @ 105457:                  NEGATE
11383 @ 105458:                  JUMPIF < L_000a
11384 @ 105462:                  PUSH   DSIZE
11385 @ 105465:                  PUSHI  #0x00000001
11386 @ 105470:                  ASSVAL
11387 @ 105471:                  LOCATE L_000a

  2303      %finish
11388 @ 105474:                  LINE   2303 "regression-compile-tmp/chimps.imp"
11389 @ 105511:                  LOCATE L_0007

  2304    %else %if a(keylong);                   !%long
11390 @ 105514:                  LINE   2304 "regression-compile-tmp/chimps.imp"
11391 @ 105551:                  GOTO   L_0003
11392 @ 105554:                  LOCATE L_0004
11393 @ 105557:                  PUSH   A
11394 @ 105560:                  PUSHI  #0x0000001a
11395 @ 105565:                  ASSPAR
11396 @ 105566:                  CALL  
11397 @ 105567:                  bf     L_0004

  2305      d_type = longinttype;  dsize = 8
11398 @ 105570:                  LINE   2305 "regression-compile-tmp/chimps.imp"
11399 @ 105607:                  PUSH   D
11400 @ 105610:                  SELECT 2
11401 @ 105613:                  PUSHI  #0x00000809
11402 @ 105618:                  ASSVAL
11403 @ 105619:                  LINE   2305 "regression-compile-tmp/chimps.imp"
11404 @ 105656:                  PUSH   DSIZE
11405 @ 105659:                  PUSHI  #0x00000008
11406 @ 105664:                  ASSVAL

  2306      d_type = longrealtype %and get(keyreal) %if %not a(keyinteger)
11407 @ 105665:                  LINE   2306 "regression-compile-tmp/chimps.imp"
11408 @ 105702:                  PUSH   A
11409 @ 105705:                  PUSHI  #0x0000001b
11410 @ 105710:                  ASSPAR
11411 @ 105711:                  CALL  
11412 @ 105712:                  bt     L_0007
11413 @ 105715:                  PUSH   D
11414 @ 105718:                  SELECT 2
11415 @ 105721:                  PUSHI  #0x0000080b
11416 @ 105726:                  ASSVAL
11417 @ 105727:                  PUSH   GET
11418 @ 105730:                  PUSHI  #0x0000001c
11419 @ 105735:                  ASSPAR
11420 @ 105736:                  CALL  
11421 @ 105737:                  LOCATE L_0007

  2307    %else %if a(keyreal);                   !%real
11422 @ 105740:                  LINE   2307 "regression-compile-tmp/chimps.imp"
11423 @ 105777:                  GOTO   L_0003
11424 @ 105780:                  LOCATE L_0004
11425 @ 105783:                  PUSH   A
11426 @ 105786:                  PUSHI  #0x0000001c
11427 @ 105791:                  ASSPAR
11428 @ 105792:                  CALL  
11429 @ 105793:                  bf     L_0004

  2308      d_type = realtype;  dsize = 4
11430 @ 105796:                  LINE   2308 "regression-compile-tmp/chimps.imp"
11431 @ 105833:                  PUSH   D
11432 @ 105836:                  SELECT 2
11433 @ 105839:                  PUSHI  #0x0000080a
11434 @ 105844:                  ASSVAL
11435 @ 105845:                  LINE   2308 "regression-compile-tmp/chimps.imp"
11436 @ 105882:                  PUSH   DSIZE
11437 @ 105885:                  PUSHI  #0x00000004
11438 @ 105890:                  ASSVAL

  2309    %else %if a(keystring);                 !%string
11439 @ 105891:                  LINE   2309 "regression-compile-tmp/chimps.imp"
11440 @ 105928:                  GOTO   L_0003
11441 @ 105931:                  LOCATE L_0004
11442 @ 105934:                  PUSH   A
11443 @ 105937:                  PUSHI  #0x0000001d
11444 @ 105942:                  ASSPAR
11445 @ 105943:                  CALL  
11446 @ 105944:                  bf     L_0004

  2310      d_type = stringy
11447 @ 105947:                  LINE   2310 "regression-compile-tmp/chimps.imp"
11448 @ 105984:                  PUSH   D
11449 @ 105987:                  SELECT 2
11450 @ 105990:                  PUSHI  #0x000007fc
11451 @ 105995:                  ASSVAL

  2311      t_val = 255;  dsize = 256
11452 @ 105996:                  LINE   2311 "regression-compile-tmp/chimps.imp"
11453 @ 106033:                  PUSH   T
11454 @ 106036:                  SELECT 7
11455 @ 106039:                  PUSHI  #0x000000ff
11456 @ 106044:                  ASSVAL
11457 @ 106045:                  LINE   2311 "regression-compile-tmp/chimps.imp"
11458 @ 106082:                  PUSH   DSIZE
11459 @ 106085:                  PUSHI  #0x00000100
11460 @ 106090:                  ASSVAL

  2312      %if a(left) %start
11461 @ 106091:                  LINE   2312 "regression-compile-tmp/chimps.imp"
11462 @ 106128:                  PUSH   A
11463 @ 106131:                  PUSHI  #0x00000037
11464 @ 106136:                  ASSPAR
11465 @ 106137:                  CALL  
11466 @ 106138:                  bf     L_0007

  2313        t_val = 0
11467 @ 106141:                  LINE   2313 "regression-compile-tmp/chimps.imp"
11468 @ 106178:                  PUSH   T
11469 @ 106181:                  SELECT 7
11470 @ 106184:                  PUSHI  #0x00000000
11471 @ 106189:                  ASSVAL

  2314        %if %not a(star) %start
11472 @ 106190:                  LINE   2314 "regression-compile-tmp/chimps.imp"
11473 @ 106227:                  PUSH   A
11474 @ 106230:                  PUSHI  #0x00000058
11475 @ 106235:                  ASSPAR
11476 @ 106236:                  CALL  
11477 @ 106237:                  bt     L_000a

  2315          get LITINT
11478 @ 106240:                  LINE   2315 "regression-compile-tmp/chimps.imp"
11479 @ 106277:                  PUSH   GETLITINT
11480 @ 106280:                  CALL  

  2316          expfault(rangerr+point) %and t_val = 255 %unless 0 < t_val <= 255
11481 @ 106281:                  LINE   2316 "regression-compile-tmp/chimps.imp"
11482 @ 106318:                  PUSHI  #0x00000000
11483 @ 106323:                  PUSH   T
11484 @ 106326:                  SELECT 7
11485 @ 106329:                  JUMPIFD >= L_000e
11486 @ 106333:                  PUSHI  #0x000000ff
11487 @ 106338:                  JUMPIF <= L_000d
11488 @ 106342:                  LOCATE L_000e
11489 @ 106345:                  PUSH   EXPFAULT
11490 @ 106348:                  PUSHI  #0x0000000c
11491 @ 106353:                  PUSHI  #0x00000040
11492 @ 106358:                  ADD   
11493 @ 106359:                  ASSPAR
11494 @ 106360:                  CALL  
11495 @ 106361:                  PUSH   T
11496 @ 106364:                  SELECT 7
11497 @ 106367:                  PUSHI  #0x000000ff
11498 @ 106372:                  ASSVAL
11499 @ 106373:                  LOCATE L_000d

  2317        %finish
11500 @ 106376:                  LINE   2317 "regression-compile-tmp/chimps.imp"
11501 @ 106413:                  LOCATE L_000a

  2318        get(right)
11502 @ 106416:                  LINE   2318 "regression-compile-tmp/chimps.imp"
11503 @ 106453:                  PUSH   GET
11504 @ 106456:                  PUSHI  #0x0000003c
11505 @ 106461:                  ASSPAR
11506 @ 106462:                  CALL  

  2319      %finish %else nonstandard(nolength)
11507 @ 106463:                  LINE   2319 "regression-compile-tmp/chimps.imp"
11508 @ 106500:                  GOTO   L_0006
11509 @ 106503:                  LOCATE L_0007
11510 @ 106506:                  PUSH   NONSTANDARD
11511 @ 106509:                  PUSHI  #0x00000020
11512 @ 106514:                  ASSPAR
11513 @ 106515:                  CALL  
11514 @ 106516:                  LOCATE L_0006

  2320      %if t_val # 0 %start
11515 @ 106519:                  LINE   2320 "regression-compile-tmp/chimps.imp"
11516 @ 106556:                  PUSH   T
11517 @ 106559:                  SELECT 7
11518 @ 106562:                  PUSHI  #0x00000000
11519 @ 106567:                  JUMPIF = L_0007

  2321        d_type = newstype(t_val)
11520 @ 106571:                  LINE   2321 "regression-compile-tmp/chimps.imp"
11521 @ 106608:                  PUSH   D
11522 @ 106611:                  SELECT 2
11523 @ 106614:                  PUSH   NEWSTYPE
11524 @ 106617:                  PUSH   T
11525 @ 106620:                  SELECT 7
11526 @ 106623:                  ASSPAR
11527 @ 106624:                  CALL  
11528 @ 106625:                  ASSVAL

  2322        dsize = (t_val+2)&(\1);  !+1 & evened up
11529 @ 106626:                  LINE   2322 "regression-compile-tmp/chimps.imp"
11530 @ 106663:                  PUSH   DSIZE
11531 @ 106666:                  PUSH   T
11532 @ 106669:                  SELECT 7
11533 @ 106672:                  PUSHI  #0x00000002
11534 @ 106677:                  ADD   
11535 @ 106678:                  PUSHI  #0x00000001
11536 @ 106683:                  NOT   
11537 @ 106684:                  AND   
11538 @ 106685:                  ASSVAL

  2323      %finish
11539 @ 106686:                  LINE   2323 "regression-compile-tmp/chimps.imp"
11540 @ 106723:                  LOCATE L_0007

  2324    %else %if a(keyrecord);                    !%record
11541 @ 106726:                  LINE   2324 "regression-compile-tmp/chimps.imp"
11542 @ 106763:                  GOTO   L_0003
11543 @ 106766:                  LOCATE L_0004
11544 @ 106769:                  PUSH   A
11545 @ 106772:                  PUSHI  #0x0000001e
11546 @ 106777:                  ASSPAR
11547 @ 106778:                  CALL  
11548 @ 106779:                  bf     L_0004

  2325      d_type = recy
11549 @ 106782:                  LINE   2325 "regression-compile-tmp/chimps.imp"
11550 @ 106819:                  PUSH   D
11551 @ 106822:                  SELECT 2
11552 @ 106825:                  PUSHI  #0x000007fa
11553 @ 106830:                  ASSVAL

  2326      %if a(keyformat) %start
11554 @ 106831:                  LINE   2326 "regression-compile-tmp/chimps.imp"
11555 @ 106868:                  PUSH   A
11556 @ 106871:                  PUSHI  #0x0000001f
11557 @ 106876:                  ASSPAR
11558 @ 106877:                  CALL  
11559 @ 106878:                  bf     L_0007

  2327        syntax error %if flags&(static+ext) # 0
11560 @ 106881:                  LINE   2327 "regression-compile-tmp/chimps.imp"
11561 @ 106918:                  PUSH   FLAGS
11562 @ 106921:                  PUSHI  #0x00000008
11563 @ 106926:                  PUSHI  #0x00000020
11564 @ 106931:                  ADD   
11565 @ 106932:                  AND   
11566 @ 106933:                  PUSHI  #0x00000000
11567 @ 106938:                  JUMPIF = L_000a
11568 @ 106942:                  PUSH   SYNTAXERROR
11569 @ 106945:                  CALL  
11570 @ 106946:                  LOCATE L_000a

  2328        %if a(keyspec) %start
11571 @ 106949:                  LINE   2328 "regression-compile-tmp/chimps.imp"
11572 @ 106986:                  PUSH   A
11573 @ 106989:                  PUSHI  #0x00000022
11574 @ 106994:                  ASSPAR
11575 @ 106995:                  CALL  
11576 @ 106996:                  bf     L_000a

  2329          d_flags = typeid+spec
11577 @ 106999:                  LINE   2329 "regression-compile-tmp/chimps.imp"
11578 @ 107036:                  PUSH   D
11579 @ 107039:                  SELECT 1
11580 @ 107042:                  PUSHI  #0x00000100
11581 @ 107047:                  PUSHI  #0x00000010
11582 @ 107052:                  ADD   
11583 @ 107053:                  ASSVAL

  2330          get IDENT
11584 @ 107054:                  LINE   2330 "regression-compile-tmp/chimps.imp"
11585 @ 107091:                  PUSH   GETIDENT
11586 @ 107094:                  CALL  

  2331        %finish %else %start
11587 @ 107095:                  LINE   2331 "regression-compile-tmp/chimps.imp"
11588 @ 107132:                  GOTO   L_0009
11589 @ 107135:                  LOCATE L_000a

  2332          d_flags = typeid
11590 @ 107138:                  LINE   2332 "regression-compile-tmp/chimps.imp"
11591 @ 107175:                  PUSH   D
11592 @ 107178:                  SELECT 1
11593 @ 107181:                  PUSHI  #0x00000100
11594 @ 107186:                  ASSVAL

  2333          get IDENT
11595 @ 107187:                  LINE   2333 "regression-compile-tmp/chimps.imp"
11596 @ 107224:                  PUSH   GETIDENT
11597 @ 107227:                  CALL  

  2334          formp == ditem
11598 @ 107228:                  LINE   2334 "regression-compile-tmp/chimps.imp"
11599 @ 107265:                  PUSH   FORMP
11600 @ 107268:                  PUSH   DITEM
11601 @ 107271:                  ASSREF

  2335          get(left)
11602 @ 107272:                  LINE   2335 "regression-compile-tmp/chimps.imp"
11603 @ 107309:                  PUSH   GET
11604 @ 107312:                  PUSHI  #0x00000037
11605 @ 107317:                  ASSPAR
11606 @ 107318:                  CALL  

  2336          fbase = 0
11607 @ 107319:                  LINE   2336 "regression-compile-tmp/chimps.imp"
11608 @ 107356:                  PUSH   FBASE
11609 @ 107359:                  PUSHI  #0x00000000
11610 @ 107364:                  ASSVAL

  2337          get FORMATDEF
11611 @ 107365:                  LINE   2337 "regression-compile-tmp/chimps.imp"
11612 @ 107402:                  PUSH   GETFORMATDEF
11613 @ 107405:                  CALL  

  2338          fieldp_flags = fieldp_flags-more
11614 @ 107406:                  LINE   2338 "regression-compile-tmp/chimps.imp"
11615 @ 107443:                  PUSH   FIELDP
11616 @ 107446:                  SELECT 1
11617 @ 107449:                  PUSH   FIELDP
11618 @ 107452:                  SELECT 1
11619 @ 107455:                  PUSHI  #0x00000080
11620 @ 107460:                  SUB   
11621 @ 107461:                  ASSVAL

  2339          get(right)
11622 @ 107462:                  LINE   2339 "regression-compile-tmp/chimps.imp"
11623 @ 107499:                  PUSH   GET
11624 @ 107502:                  PUSHI  #0x0000003c
11625 @ 107507:                  ASSPAR
11626 @ 107508:                  CALL  

  2340        %finish
11627 @ 107509:                  LINE   2340 "regression-compile-tmp/chimps.imp"
11628 @ 107546:                  LOCATE L_0009

  2341        d_flags = typeid
11629 @ 107549:                  LINE   2341 "regression-compile-tmp/chimps.imp"
11630 @ 107586:                  PUSH   D
11631 @ 107589:                  SELECT 1
11632 @ 107592:                  PUSHI  #0x00000100
11633 @ 107597:                  ASSVAL

  2342        %return
11634 @ 107598:                  LINE   2342 "regression-compile-tmp/chimps.imp"
11635 @ 107635:                  RETURN

  2343      %finish
11636 @ 107636:                  LINE   2343 "regression-compile-tmp/chimps.imp"
11637 @ 107673:                  LOCATE L_0007

  2344      get(left)
11638 @ 107676:                  LINE   2344 "regression-compile-tmp/chimps.imp"
11639 @ 107713:                  PUSH   GET
11640 @ 107716:                  PUSHI  #0x00000037
11641 @ 107721:                  ASSPAR
11642 @ 107722:                  CALL  

  2345      %if %not a(star) %start
11643 @ 107723:                  LINE   2345 "regression-compile-tmp/chimps.imp"
11644 @ 107760:                  PUSH   A
11645 @ 107763:                  PUSHI  #0x00000058
11646 @ 107768:                  ASSPAR
11647 @ 107769:                  CALL  
11648 @ 107770:                  bt     L_0007

  2346        %if %not a(ident) %start
11649 @ 107773:                  LINE   2346 "regression-compile-tmp/chimps.imp"
11650 @ 107810:                  PUSH   A
11651 @ 107813:                  PUSHI  #0x00000036
11652 @ 107818:                  ASSPAR
11653 @ 107819:                  CALL  
11654 @ 107820:                  bt     L_000a

  2347          get FORMATDEF
11655 @ 107823:                  LINE   2347 "regression-compile-tmp/chimps.imp"
11656 @ 107860:                  PUSH   GETFORMATDEF
11657 @ 107863:                  CALL  

  2348          fieldp_flags = fieldp_flags-more
11658 @ 107864:                  LINE   2348 "regression-compile-tmp/chimps.imp"
11659 @ 107901:                  PUSH   FIELDP
11660 @ 107904:                  SELECT 1
11661 @ 107907:                  PUSH   FIELDP
11662 @ 107910:                  SELECT 1
11663 @ 107913:                  PUSHI  #0x00000080
11664 @ 107918:                  SUB   
11665 @ 107919:                  ASSVAL

  2349          get(right)
11666 @ 107920:                  LINE   2349 "regression-compile-tmp/chimps.imp"
11667 @ 107957:                  PUSH   GET
11668 @ 107960:                  PUSHI  #0x0000003c
11669 @ 107965:                  ASSPAR
11670 @ 107966:                  CALL  

  2350          d_flags = typeid
11671 @ 107967:                  LINE   2350 "regression-compile-tmp/chimps.imp"
11672 @ 108004:                  PUSH   D
11673 @ 108007:                  SELECT 1
11674 @ 108010:                  PUSHI  #0x00000100
11675 @ 108015:                  ASSVAL

  2351          declare anon
11676 @ 108016:                  LINE   2351 "regression-compile-tmp/chimps.imp"
11677 @ 108053:                  PUSH   DECLAREANON
11678 @ 108056:                  CALL  

  2352        %finish
11679 @ 108057:                  LINE   2352 "regression-compile-tmp/chimps.imp"
11680 @ 108094:                  LOCATE L_000a

  2353        name error %if item <= 0
11681 @ 108097:                  LINE   2353 "regression-compile-tmp/chimps.imp"
11682 @ 108134:                  PUSH   ITEM
11683 @ 108137:                  PUSHI  #0x00000000
11684 @ 108142:                  JUMPIF > L_000a
11685 @ 108146:                  PUSH   NAMEERROR
11686 @ 108149:                  CALL  
11687 @ 108150:                  LOCATE L_000a

  2354        syntax error %if ditem_type # recy
11688 @ 108153:                  LINE   2354 "regression-compile-tmp/chimps.imp"
11689 @ 108190:                  PUSH   DITEM
11690 @ 108193:                  SELECT 2
11691 @ 108196:                  PUSHI  #0x000007fa
11692 @ 108201:                  JUMPIF = L_000a
11693 @ 108205:                  PUSH   SYNTAXERROR
11694 @ 108208:                  CALL  
11695 @ 108209:                  LOCATE L_000a

  2355        d_type = item;  dsize = ditem_val
11696 @ 108212:                  LINE   2355 "regression-compile-tmp/chimps.imp"
11697 @ 108249:                  PUSH   D
11698 @ 108252:                  SELECT 2
11699 @ 108255:                  PUSH   ITEM
11700 @ 108258:                  ASSVAL
11701 @ 108259:                  LINE   2355 "regression-compile-tmp/chimps.imp"
11702 @ 108296:                  PUSH   DSIZE
11703 @ 108299:                  PUSH   DITEM
11704 @ 108302:                  SELECT 7
11705 @ 108305:                  ASSVAL

  2356      %finish
11706 @ 108306:                  LINE   2356 "regression-compile-tmp/chimps.imp"
11707 @ 108343:                  LOCATE L_0007

  2357      get(right)
11708 @ 108346:                  LINE   2357 "regression-compile-tmp/chimps.imp"
11709 @ 108383:                  PUSH   GET
11710 @ 108386:                  PUSHI  #0x0000003c
11711 @ 108391:                  ASSPAR
11712 @ 108392:                  CALL  

  2358    %else
11713 @ 108393:                  LINE   2358 "regression-compile-tmp/chimps.imp"
11714 @ 108430:                  GOTO   L_0003
11715 @ 108433:                  LOCATE L_0004

  2359      syntax error %if atom # keyname;            !untyped %name
11716 @ 108436:                  LINE   2359 "regression-compile-tmp/chimps.imp"
11717 @ 108473:                  PUSH   ATOM
11718 @ 108476:                  PUSHI  #0x00000024
11719 @ 108481:                  JUMPIF = L_0007
11720 @ 108485:                  PUSH   SYNTAXERROR
11721 @ 108488:                  CALL  
11722 @ 108489:                  LOCATE L_0007

  2360    %finish
  2361    !End of basic type info: set item size in DECLMODE
11723 @ 108492:                  LINE   2360 "regression-compile-tmp/chimps.imp"
11724 @ 108529:                  LOCATE L_0003

  2362    %if dsize <= 4 %start
11725 @ 108532:                  LINE   2362 "regression-compile-tmp/chimps.imp"
11726 @ 108569:                  PUSH   DSIZE
11727 @ 108572:                  PUSHI  #0x00000004
11728 @ 108577:                  JUMPIF > L_0004

  2363      %if dsize <= 2 %then declmode = dsize<<sizeshift %c
  2364      %else declmode = longsize<<sizeshift
11729 @ 108581:                  LINE   2363 "regression-compile-tmp/chimps.imp"
11730 @ 108618:                  PUSH   DSIZE
11731 @ 108621:                  PUSHI  #0x00000002
11732 @ 108626:                  JUMPIF > L_0007
11733 @ 108630:                  PUSH   DECLMODE
11734 @ 108633:                  PUSH   DSIZE
11735 @ 108636:                  PUSHI  #0x00000006
11736 @ 108641:                  LSH   
11737 @ 108642:                  ASSVAL
11738 @ 108643:                  GOTO   L_0006
11739 @ 108646:                  LOCATE L_0007
11740 @ 108649:                  PUSH   DECLMODE
11741 @ 108652:                  PUSHI  #0x00000003
11742 @ 108657:                  PUSHI  #0x00000006
11743 @ 108662:                  LSH   
11744 @ 108663:                  ASSVAL
11745 @ 108664:                  LOCATE L_0006

  2365    %finish
  2366    !Appendages
11746 @ 108667:                  LINE   2365 "regression-compile-tmp/chimps.imp"
11747 @ 108704:                  LOCATE L_0004

  2367    %if a(fnmap) %start;  !%fn, %map
11748 @ 108707:                  LINE   2367 "regression-compile-tmp/chimps.imp"
11749 @ 108744:                  PUSH   A
11750 @ 108747:                  PUSHI  #0x00000020
11751 @ 108752:                  ASSPAR
11752 @ 108753:                  CALL  
11753 @ 108754:                  bf     L_0004

  2368      flags = flags&(\static) %if flags&ext # 0
11754 @ 108757:                  LINE   2368 "regression-compile-tmp/chimps.imp"
11755 @ 108794:                  PUSH   FLAGS
11756 @ 108797:                  PUSHI  #0x00000020
11757 @ 108802:                  AND   
11758 @ 108803:                  PUSHI  #0x00000000
11759 @ 108808:                  JUMPIF = L_0007
11760 @ 108812:                  PUSH   FLAGS
11761 @ 108815:                  PUSH   FLAGS
11762 @ 108818:                  PUSHI  #0x00000008
11763 @ 108823:                  NOT   
11764 @ 108824:                  AND   
11765 @ 108825:                  ASSVAL
11766 @ 108826:                  LOCATE L_0007

  2369      syntax error %if flags&static # 0
11767 @ 108829:                  LINE   2369 "regression-compile-tmp/chimps.imp"
11768 @ 108866:                  PUSH   FLAGS
11769 @ 108869:                  PUSHI  #0x00000008
11770 @ 108874:                  AND   
11771 @ 108875:                  PUSHI  #0x00000000
11772 @ 108880:                  JUMPIF = L_0007
11773 @ 108884:                  PUSH   SYNTAXERROR
11774 @ 108887:                  CALL  
11775 @ 108888:                  LOCATE L_0007

  2370      flags = flags+var %and d_type = d_type+direct %if subatom # 0;  !map
11776 @ 108891:                  LINE   2370 "regression-compile-tmp/chimps.imp"
11777 @ 108928:                  PUSH   SUBATOM
11778 @ 108931:                  PUSHI  #0x00000000
11779 @ 108936:                  JUMPIF = L_0007
11780 @ 108940:                  PUSH   FLAGS
11781 @ 108943:                  PUSH   FLAGS
11782 @ 108946:                  PUSHI  #0x00000001
11783 @ 108951:                  ADD   
11784 @ 108952:                  ASSVAL
11785 @ 108953:                  PUSH   D
11786 @ 108956:                  SELECT 2
11787 @ 108959:                  PUSH   D
11788 @ 108962:                  SELECT 2
11789 @ 108965:                  PUSHI  #0x00002000
11790 @ 108970:                  ADD   
11791 @ 108971:                  ASSVAL
11792 @ 108972:                  LOCATE L_0007

  2371      d_flags = flags+proc;  declmode = declmode+pcmode
11793 @ 108975:                  LINE   2371 "regression-compile-tmp/chimps.imp"
11794 @ 109012:                  PUSH   D
11795 @ 109015:                  SELECT 1
11796 @ 109018:                  PUSH   FLAGS
11797 @ 109021:                  PUSHI  #0x00000004
11798 @ 109026:                  ADD   
11799 @ 109027:                  ASSVAL
11800 @ 109028:                  LINE   2371 "regression-compile-tmp/chimps.imp"
11801 @ 109065:                  PUSH   DECLMODE
11802 @ 109068:                  PUSH   DECLMODE
11803 @ 109071:                  PUSHI  #0x0000003a
11804 @ 109076:                  ADD   
11805 @ 109077:                  ASSVAL

  2372      %return
11806 @ 109078:                  LINE   2372 "regression-compile-tmp/chimps.imp"
11807 @ 109115:                  RETURN

  2373    %finish
11808 @ 109116:                  LINE   2373 "regression-compile-tmp/chimps.imp"
11809 @ 109153:                  LOCATE L_0004

  2374    d_type = d_type+direct
11810 @ 109156:                  LINE   2374 "regression-compile-tmp/chimps.imp"
11811 @ 109193:                  PUSH   D
11812 @ 109196:                  SELECT 2
11813 @ 109199:                  PUSH   D
11814 @ 109202:                  SELECT 2
11815 @ 109205:                  PUSHI  #0x00002000
11816 @ 109210:                  ADD   
11817 @ 109211:                  ASSVAL

  2375    %while a(keyarray) %or a(keyname) %cycle
11818 @ 109212:                  LINE   2375 "regression-compile-tmp/chimps.imp"
11819 @ 109249:                  LOCATE L_0003
11820 @ 109252:                  PUSH   A
11821 @ 109255:                  PUSHI  #0x00000023
11822 @ 109260:                  ASSPAR
11823 @ 109261:                  CALL  
11824 @ 109262:                  bt     L_0005
11825 @ 109265:                  PUSH   A
11826 @ 109268:                  PUSHI  #0x00000024
11827 @ 109273:                  ASSPAR
11828 @ 109274:                  CALL  
11829 @ 109275:                  bf     L_0004
11830 @ 109278:                  LOCATE L_0005

  2376      %if atom = keyarray %start;                  !%array
11831 @ 109281:                  LINE   2376 "regression-compile-tmp/chimps.imp"
11832 @ 109318:                  PUSH   ATOM
11833 @ 109321:                  PUSHI  #0x00000023
11834 @ 109326:                  JUMPIF # L_0007

  2377        nonstandard(naming) %if d_type >= indirect
11835 @ 109330:                  LINE   2377 "regression-compile-tmp/chimps.imp"
11836 @ 109367:                  PUSH   D
11837 @ 109370:                  SELECT 2
11838 @ 109373:                  PUSHI  #0x00004000
11839 @ 109378:                  JUMPIF < L_000a
11840 @ 109382:                  PUSH   NONSTANDARD
11841 @ 109385:                  PUSHI  #0x00000200
11842 @ 109390:                  ASSPAR
11843 @ 109391:                  CALL  
11844 @ 109392:                  LOCATE L_000a

  2378        %if %not a(keyname) %start
11845 @ 109395:                  LINE   2378 "regression-compile-tmp/chimps.imp"
11846 @ 109432:                  PUSH   A
11847 @ 109435:                  PUSHI  #0x00000024
11848 @ 109440:                  ASSPAR
11849 @ 109441:                  CALL  
11850 @ 109442:                  bt     L_000a

  2379          syntax error %if flags&parm # 0
11851 @ 109445:                  LINE   2379 "regression-compile-tmp/chimps.imp"
11852 @ 109482:                  PUSH   FLAGS
11853 @ 109485:                  PUSHI  #0x00000040
11854 @ 109490:                  AND   
11855 @ 109491:                  PUSHI  #0x00000000
11856 @ 109496:                  JUMPIF = L_000d
11857 @ 109500:                  PUSH   SYNTAXERROR
11858 @ 109503:                  CALL  
11859 @ 109504:                  LOCATE L_000d

  2380          flags = flags+parm;  !as indic
11860 @ 109507:                  LINE   2380 "regression-compile-tmp/chimps.imp"
11861 @ 109544:                  PUSH   FLAGS
11862 @ 109547:                  PUSH   FLAGS
11863 @ 109550:                  PUSHI  #0x00000040
11864 @ 109555:                  ADD   
11865 @ 109556:                  ASSVAL

  2381          %exit
11866 @ 109557:                  LINE   2381 "regression-compile-tmp/chimps.imp"
11867 @ 109594:                  GOTO   L_0004

  2382        %finish
11868 @ 109597:                  LINE   2382 "regression-compile-tmp/chimps.imp"
11869 @ 109634:                  LOCATE L_000a

  2383        d_type = newatype(d_type,inty)
11870 @ 109637:                  LINE   2383 "regression-compile-tmp/chimps.imp"
11871 @ 109674:                  PUSH   D
11872 @ 109677:                  SELECT 2
11873 @ 109680:                  PUSH   NEWATYPE
11874 @ 109683:                  PUSH   D
11875 @ 109686:                  SELECT 2
11876 @ 109689:                  ASSPAR
11877 @ 109690:                  PUSHI  #0x000007fe
11878 @ 109695:                  ASSPAR
11879 @ 109696:                  CALL  
11880 @ 109697:                  ASSVAL

  2384      %finish
11881 @ 109698:                  LINE   2384 "regression-compile-tmp/chimps.imp"
11882 @ 109735:                  LOCATE L_0007

  2385      syntax error %if d_type >= indirect
11883 @ 109738:                  LINE   2385 "regression-compile-tmp/chimps.imp"
11884 @ 109775:                  PUSH   D
11885 @ 109778:                  SELECT 2
11886 @ 109781:                  PUSHI  #0x00004000
11887 @ 109786:                  JUMPIF < L_0007
11888 @ 109790:                  PUSH   SYNTAXERROR
11889 @ 109793:                  CALL  
11890 @ 109794:                  LOCATE L_0007

  2386      d_type = d_type+(indirect-direct)
11891 @ 109797:                  LINE   2386 "regression-compile-tmp/chimps.imp"
11892 @ 109834:                  PUSH   D
11893 @ 109837:                  SELECT 2
11894 @ 109840:                  PUSH   D
11895 @ 109843:                  SELECT 2
11896 @ 109846:                  PUSHI  #0x00004000
11897 @ 109851:                  PUSHI  #0x00002000
11898 @ 109856:                  SUB   
11899 @ 109857:                  ADD   
11900 @ 109858:                  ASSVAL

  2387      dsize = 4
11901 @ 109859:                  LINE   2387 "regression-compile-tmp/chimps.imp"
11902 @ 109896:                  PUSH   DSIZE
11903 @ 109899:                  PUSHI  #0x00000004
11904 @ 109904:                  ASSVAL

  2388    %repeat
11905 @ 109905:                  LINE   2388 "regression-compile-tmp/chimps.imp"
11906 @ 109942:                  REPEAT L_0003
11907 @ 109945:                  LOCATE L_0004

  2389    d_flags = flags!!var
11908 @ 109948:                  LINE   2389 "regression-compile-tmp/chimps.imp"
11909 @ 109985:                  PUSH   D
11910 @ 109988:                  SELECT 1
11911 @ 109991:                  PUSH   FLAGS
11912 @ 109994:                  PUSHI  #0x00000001
11913 @ 109999:                  XOR   
11914 @ 110000:                  ASSVAL

  2390  %end;  !GET TYPE
  2391  !
11915 @ 110001:                  LINE   2390 "regression-compile-tmp/chimps.imp"
11916 @ 110038:               END    _ECCECI_GETSTATEMENTS_GETTYPE {lev=3 --> 2}

  2392  %routine GET OWN ARRAY DECLARATION
11917 @ 110039:               LINE   2392 "regression-compile-tmp/chimps.imp"
11918 @ 110076:               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
11919 @ 110110:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
11920 @ 110111:                  FINISH ) {lev=3}

  2393  %integer holdval,dpos
11921 @ 110112:                  LINE   2393 "regression-compile-tmp/chimps.imp"
11922 @ 110149:                  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
11923 @ 110168:                  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

  2394  %record(identinfo)%name dp
  2395  !  constad = constad+1 %if constad&1 # 0
  2396  !  d_val = constad
  2397  !  d_val = d_val-ownbase %if d_val >= ownbase
11924 @ 110184:                  LINE   2394 "regression-compile-tmp/chimps.imp"
11925 @ 110221:                  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

  2398    get IDENT
11926 @ 110235:                  LINE   2398 "regression-compile-tmp/chimps.imp"
11927 @ 110272:                  PUSH   GETIDENT
11928 @ 110275:                  CALL  

  2399    dpos = item;  dp == ditem
11929 @ 110276:                  LINE   2399 "regression-compile-tmp/chimps.imp"
11930 @ 110313:                  PUSH   DPOS
11931 @ 110316:                  PUSH   ITEM
11932 @ 110319:                  ASSVAL
11933 @ 110320:                  LINE   2399 "regression-compile-tmp/chimps.imp"
11934 @ 110357:                  PUSH   DP
11935 @ 110360:                  PUSH   DITEM
11936 @ 110363:                  ASSREF

  2400    get LITBOUNDS
11937 @ 110364:                  LINE   2400 "regression-compile-tmp/chimps.imp"
11938 @ 110401:                  PUSH   GETLITBOUNDS
11939 @ 110404:                  CALL  

  2401    dp_type = newatype(d_type,item)
11940 @ 110405:                  LINE   2401 "regression-compile-tmp/chimps.imp"
11941 @ 110442:                  PUSH   DP
11942 @ 110445:                  SELECT 2
11943 @ 110448:                  PUSH   NEWATYPE
11944 @ 110451:                  PUSH   D
11945 @ 110454:                  SELECT 2
11946 @ 110457:                  ASSPAR
11947 @ 110458:                  PUSH   ITEM
11948 @ 110461:                  ASSPAR
11949 @ 110462:                  CALL  
11950 @ 110463:                  ASSVAL

  2402    %if a assop %start
11951 @ 110464:                  LINE   2402 "regression-compile-tmp/chimps.imp"
11952 @ 110501:                  PUSH   AASSOP
11953 @ 110504:                  CALL  
11954 @ 110505:                  bf     L_0004

  2403      allow(terminator)
11955 @ 110508:                  LINE   2403 "regression-compile-tmp/chimps.imp"
11956 @ 110545:                  PUSH   ALLOW
11957 @ 110548:                  PUSHI  #0x00000034
11958 @ 110553:                  ASSPAR
11959 @ 110554:                  CALL  

  2404      %cycle
11960 @ 110555:                  LINE   2404 "regression-compile-tmp/chimps.imp"
11961 @ 110592:                  LOCATE L_0006

  2405        get LITERAL(d_type)
11962 @ 110595:                  LINE   2405 "regression-compile-tmp/chimps.imp"
11963 @ 110632:                  PUSH   GETLITERAL
11964 @ 110635:                  PUSH   D
11965 @ 110638:                  SELECT 2
11966 @ 110641:                  ASSPAR
11967 @ 110642:                  CALL  

  2406        faultnum = rangerr+point+warn %if faultnum = rangerr+point
11968 @ 110643:                  LINE   2406 "regression-compile-tmp/chimps.imp"
11969 @ 110680:                  PUSH   FAULTNUM
11970 @ 110683:                  PUSHI  #0x0000000c
11971 @ 110688:                  PUSHI  #0x00000040
11972 @ 110693:                  ADD   
11973 @ 110694:                  JUMPIF # L_000a
11974 @ 110698:                  PUSH   FAULTNUM
11975 @ 110701:                  PUSHI  #0x0000000c
11976 @ 110706:                  PUSHI  #0x00000040
11977 @ 110711:                  ADD   
11978 @ 110712:                  PUSHI  #0x00000080
11979 @ 110717:                  ADD   
11980 @ 110718:                  ASSVAL
11981 @ 110719:                  LOCATE L_000a

  2407        holdval = t_val
11982 @ 110722:                  LINE   2407 "regression-compile-tmp/chimps.imp"
11983 @ 110759:                  PUSH   HOLDVAL
11984 @ 110762:                  PUSH   T
11985 @ 110765:                  SELECT 7
11986 @ 110768:                  ASSVAL

  2408        t_val = 1
11987 @ 110769:                  LINE   2408 "regression-compile-tmp/chimps.imp"
11988 @ 110806:                  PUSH   T
11989 @ 110809:                  SELECT 7
11990 @ 110812:                  PUSHI  #0x00000001
11991 @ 110817:                  ASSVAL

  2409        %if a(left) %start
11992 @ 110818:                  LINE   2409 "regression-compile-tmp/chimps.imp"
11993 @ 110855:                  PUSH   A
11994 @ 110858:                  PUSHI  #0x00000037
11995 @ 110863:                  ASSPAR
11996 @ 110864:                  CALL  
11997 @ 110865:                  bf     L_000a

  2410          t_val = elements
11998 @ 110868:                  LINE   2410 "regression-compile-tmp/chimps.imp"
11999 @ 110905:                  PUSH   T
12000 @ 110908:                  SELECT 7
12001 @ 110911:                  PUSH   ELEMENTS
12002 @ 110914:                  ASSVAL

  2411          get LITINT %if %not a(star)
12003 @ 110915:                  LINE   2411 "regression-compile-tmp/chimps.imp"
12004 @ 110952:                  PUSH   A
12005 @ 110955:                  PUSHI  #0x00000058
12006 @ 110960:                  ASSPAR
12007 @ 110961:                  CALL  
12008 @ 110962:                  bt     L_000d
12009 @ 110965:                  PUSH   GETLITINT
12010 @ 110968:                  CALL  
12011 @ 110969:                  LOCATE L_000d

  2412          get(right)
12012 @ 110972:                  LINE   2412 "regression-compile-tmp/chimps.imp"
12013 @ 111009:                  PUSH   GET
12014 @ 111012:                  PUSHI  #0x0000003c
12015 @ 111017:                  ASSPAR
12016 @ 111018:                  CALL  

  2413        %finish
  2414  !      plant const(holdval,t_val)
12017 @ 111019:                  LINE   2413 "regression-compile-tmp/chimps.imp"
12018 @ 111056:                  LOCATE L_000a

  2415        elements = elements-t_val
12019 @ 111059:                  LINE   2415 "regression-compile-tmp/chimps.imp"
12020 @ 111096:                  PUSH   ELEMENTS
12021 @ 111099:                  PUSH   ELEMENTS
12022 @ 111102:                  PUSH   T
12023 @ 111105:                  SELECT 7
12024 @ 111108:                  SUB   
12025 @ 111109:                  ASSVAL

  2416      %repeat %until %not a(comma)
12026 @ 111110:                  LINE   2416 "regression-compile-tmp/chimps.imp"
12027 @ 111147:                  PUSH   A
12028 @ 111150:                  PUSHI  #0x0000003b
12029 @ 111155:                  ASSPAR
12030 @ 111156:                  CALL  
12031 @ 111157:                  bf     L_0007
12032 @ 111160:                  REPEAT L_0006
12033 @ 111163:                  LOCATE L_0007

  2417      report(counterr,dpos) %if elements # 0 %and faultnum = 0
12034 @ 111166:                  LINE   2417 "regression-compile-tmp/chimps.imp"
12035 @ 111203:                  PUSH   ELEMENTS
12036 @ 111206:                  PUSHI  #0x00000000
12037 @ 111211:                  JUMPIF = L_0007
12038 @ 111215:                  PUSH   FAULTNUM
12039 @ 111218:                  PUSHI  #0x00000000
12040 @ 111223:                  JUMPIF # L_0007
12041 @ 111227:                  PUSH   REPORT
12042 @ 111230:                  PUSHI  #0x0000002d
12043 @ 111235:                  ASSPAR
12044 @ 111236:                  PUSH   DPOS
12045 @ 111239:                  ASSPAR
12046 @ 111240:                  CALL  
12047 @ 111241:                  LOCATE L_0007

  2418    %finish
  2419  !  plant const(0,elements) %if elements > 0
12048 @ 111244:                  LINE   2418 "regression-compile-tmp/chimps.imp"
12049 @ 111281:                  LOCATE L_0004

  2420  %end;  !get OWN ADECL
  2421  
12050 @ 111284:                  LINE   2420 "regression-compile-tmp/chimps.imp"
12051 @ 111321:               END    _ECCECI_GETSTATEMENTS_GETOWNARRAYDECLARATION {lev=3 --> 2}

  2422  %routine GET ARRAY DECLARATION
  2423  !ie get IDENTLISTS and BOUNDS
12052 @ 111322:               LINE   2422 "regression-compile-tmp/chimps.imp"
12053 @ 111359:               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
12054 @ 111390:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
12055 @ 111391:                  FINISH ) {lev=3}

  2424  %integer i,dlim1,hold,holdval,type
  2425  
  2426  !%routine put bound pair
  2427  !  hold = litref(holdval) %if hold = 0
  2428  !  item = litref(t_val) %if item = 0
  2429  !  put3(r,hold,item);  !(range),lower,upper
  2430  !%end
  2431  
12056 @ 111392:                  LINE   2424 "regression-compile-tmp/chimps.imp"
12057 @ 111429:                  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
12058 @ 111442:                  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
12059 @ 111459:                  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
12060 @ 111475:                  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
12061 @ 111494:                  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

  2432  %routine GET BOUNDS
12062 @ 111510:                  LINE   2432 "regression-compile-tmp/chimps.imp"
12063 @ 111547:                  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
12064 @ 111568:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
12065 @ 111569:                     FINISH ) {lev=4}

  2433  %integer range
12066 @ 111570:                     LINE   2433 "regression-compile-tmp/chimps.imp"
12067 @ 111607:                     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

  2434    get VALUE(anyint)
12068 @ 111624:                     LINE   2434 "regression-compile-tmp/chimps.imp"
12069 @ 111661:                     PUSH   GETVALUE
12070 @ 111664:                     PUSHI  #0x000027fe
12071 @ 111669:                     ASSPAR
12072 @ 111670:                     CALL  

  2435    hold = item;  t_val = minint %if hold # 0
12073 @ 111671:                     LINE   2435 "regression-compile-tmp/chimps.imp"
12074 @ 111708:                     PUSH   HOLD
12075 @ 111711:                     PUSH   ITEM
12076 @ 111714:                     ASSVAL
12077 @ 111715:                     LINE   2435 "regression-compile-tmp/chimps.imp"
12078 @ 111752:                     PUSH   HOLD
12079 @ 111755:                     PUSHI  #0x00000000
12080 @ 111760:                     JUMPIF = L_0004
12081 @ 111764:                     PUSH   T
12082 @ 111767:                     SELECT 7
12083 @ 111770:                     PUSHI  #0x80000000
12084 @ 111775:                     ASSVAL
12085 @ 111776:                     LOCATE L_0004

  2436    holdval = t_val
12086 @ 111779:                     LINE   2436 "regression-compile-tmp/chimps.imp"
12087 @ 111816:                     PUSH   HOLDVAL
12088 @ 111819:                     PUSH   T
12089 @ 111822:                     SELECT 7
12090 @ 111825:                     ASSVAL

  2437    get(colon)
12091 @ 111826:                     LINE   2437 "regression-compile-tmp/chimps.imp"
12092 @ 111863:                     PUSH   GET
12093 @ 111866:                     PUSHI  #0x0000003a
12094 @ 111871:                     ASSPAR
12095 @ 111872:                     CALL  

  2438    get VALUE(anyint)
12096 @ 111873:                     LINE   2438 "regression-compile-tmp/chimps.imp"
12097 @ 111910:                     PUSH   GETVALUE
12098 @ 111913:                     PUSHI  #0x000027fe
12099 @ 111918:                     ASSPAR
12100 @ 111919:                     CALL  

  2439    t_val = maxint %if item # 0
12101 @ 111920:                     LINE   2439 "regression-compile-tmp/chimps.imp"
12102 @ 111957:                     PUSH   ITEM
12103 @ 111960:                     PUSHI  #0x00000000
12104 @ 111965:                     JUMPIF = L_0004
12105 @ 111969:                     PUSH   T
12106 @ 111972:                     SELECT 7
12107 @ 111975:                     PUSHI  #0x7fffffff
12108 @ 111980:                     ASSVAL
12109 @ 111981:                     LOCATE L_0004

  2440    range = newrange(inty,holdval,t_val)
12110 @ 111984:                     LINE   2440 "regression-compile-tmp/chimps.imp"
12111 @ 112021:                     PUSH   RANGE
12112 @ 112024:                     PUSH   NEWRANGE
12113 @ 112027:                     PUSHI  #0x000007fe
12114 @ 112032:                     ASSPAR
12115 @ 112033:                     PUSH   HOLDVAL
12116 @ 112036:                     ASSPAR
12117 @ 112037:                     PUSH   T
12118 @ 112040:                     SELECT 7
12119 @ 112043:                     ASSPAR
12120 @ 112044:                     CALL  
12121 @ 112045:                     ASSVAL

  2441    GET BOUNDS %if a(comma)
12122 @ 112046:                     LINE   2441 "regression-compile-tmp/chimps.imp"
12123 @ 112083:                     PUSH   A
12124 @ 112086:                     PUSHI  #0x0000003b
12125 @ 112091:                     ASSPAR
12126 @ 112092:                     CALL  
12127 @ 112093:                     bf     L_0004
12128 @ 112096:                     PUSH   GETBOUNDS
12129 @ 112099:                     CALL  
12130 @ 112100:                     LOCATE L_0004

  2442    type = newatype(type,range)
12131 @ 112103:                     LINE   2442 "regression-compile-tmp/chimps.imp"
12132 @ 112140:                     PUSH   TYPE
12133 @ 112143:                     PUSH   NEWATYPE
12134 @ 112146:                     PUSH   TYPE
12135 @ 112149:                     ASSPAR
12136 @ 112150:                     PUSH   RANGE
12137 @ 112153:                     ASSPAR
12138 @ 112154:                     CALL  
12139 @ 112155:                     ASSVAL

  2443  %end
  2444  
12140 @ 112156:                     LINE   2443 "regression-compile-tmp/chimps.imp"
12141 @ 112193:                  END    _ECCECI_GETSTATEMENTS_GETARRAYDECLARATION_GETBOUNDS {lev=4 --> 3}

  2445  %cycle
12142 @ 112194:                  LINE   2445 "regression-compile-tmp/chimps.imp"
12143 @ 112231:                  LOCATE L_0003

  2446    type = d_type
12144 @ 112234:                  LINE   2446 "regression-compile-tmp/chimps.imp"
12145 @ 112271:                  PUSH   TYPE
12146 @ 112274:                  PUSH   D
12147 @ 112277:                  SELECT 2
12148 @ 112280:                  ASSVAL

  2447    get IDENTLIST
12149 @ 112281:                  LINE   2447 "regression-compile-tmp/chimps.imp"
12150 @ 112318:                  PUSH   GETIDENTLIST
12151 @ 112321:                  CALL  

  2448    dlim1 = dlim
12152 @ 112322:                  LINE   2448 "regression-compile-tmp/chimps.imp"
12153 @ 112359:                  PUSH   DLIM1
12154 @ 112362:                  PUSH   DLIM
12155 @ 112365:                  ASSVAL

  2449    get(left)
12156 @ 112366:                  LINE   2449 "regression-compile-tmp/chimps.imp"
12157 @ 112403:                  PUSH   GET
12158 @ 112406:                  PUSHI  #0x00000037
12159 @ 112411:                  ASSPAR
12160 @ 112412:                  CALL  

  2450    GET BOUNDS
12161 @ 112413:                  LINE   2450 "regression-compile-tmp/chimps.imp"
12162 @ 112450:                  PUSH   GETBOUNDS
12163 @ 112453:                  CALL  

  2451    get(right)
  2452  !  %if hold = 0 = item {both literal} %and np = np0 {1-dim} %c
  2453  !  %and elements <= 32767 {safe to multiply?} %c
  2454  !  %and (elements*dsize*(dlim-dpos))<<1-c_sp-c_delta <= 32000 %start
  2455  !     d_par = parref(inty,0,r,0)
  2456  !  %finish %else %start
  2457  !    put bound pair
  2458  !     d_par = 0
  2459  !    i = np
  2460  !    %while i # np0 %cycle
  2461  !      i = i-1
  2462  !       d_par = parref(inty,0,exp(i)_act,d_par)
  2463  !    %repeat
  2464  !    exp(np0)_act = adecl
  2465  !  %finish
  2466  !  i = np
12164 @ 112454:                  LINE   2451 "regression-compile-tmp/chimps.imp"
12165 @ 112491:                  PUSH   GET
12166 @ 112494:                  PUSHI  #0x0000003c
12167 @ 112499:                  ASSPAR
12168 @ 112500:                  CALL  

  2467    %while dlim0 # dlim1 %cycle
  2468  !    %if i = np0 %start
  2469  !      c_delta = c_delta-elements*dsize
  2470  !      c_delta = c_delta-1 %if c_delta&1 # 0
  2471  !      dict(dlim0)_flags = dict(dlim0)_flags!static
  2472  !    %finish %else %start
  2473  !      np = i;  compile(np0,np0)
  2474  !      c_flags = c_flags!dynarray
  2475  !    %finish
  2476  !    dict(dlim0)_val = c_sp+c_delta
12169 @ 112501:                  LINE   2467 "regression-compile-tmp/chimps.imp"
12170 @ 112538:                  LOCATE L_0006
12171 @ 112541:                  PUSH   DLIM0
12172 @ 112544:                  PUSH   DLIM1
12173 @ 112547:                  JUMPIF = L_0007

  2477      dict(dlim0)_type = type
12174 @ 112551:                  LINE   2477 "regression-compile-tmp/chimps.imp"
12175 @ 112588:                  PUSH   DICT
12176 @ 112591:                  PUSH   DLIM0
12177 @ 112594:                  ACCESS
12178 @ 112595:                  SELECT 2
12179 @ 112598:                  PUSH   TYPE
12180 @ 112601:                  ASSVAL

  2478      dlim0 = dlim0+1
12181 @ 112602:                  LINE   2478 "regression-compile-tmp/chimps.imp"
12182 @ 112639:                  PUSH   DLIM0
12183 @ 112642:                  PUSH   DLIM0
12184 @ 112645:                  PUSHI  #0x00000001
12185 @ 112650:                  ADD   
12186 @ 112651:                  ASSVAL

  2479    %repeat
12187 @ 112652:                  LINE   2479 "regression-compile-tmp/chimps.imp"
12188 @ 112689:                  REPEAT L_0006
12189 @ 112692:                  LOCATE L_0007

  2480  %repeat %until %not a(comma)
12190 @ 112695:                  LINE   2480 "regression-compile-tmp/chimps.imp"
12191 @ 112732:                  PUSH   A
12192 @ 112735:                  PUSHI  #0x0000003b
12193 @ 112740:                  ASSPAR
12194 @ 112741:                  CALL  
12195 @ 112742:                  bf     L_0004
12196 @ 112745:                  REPEAT L_0003
12197 @ 112748:                  LOCATE L_0004

  2481  %end;  !get BOUNDS
  2482  
12198 @ 112751:                  LINE   2481 "regression-compile-tmp/chimps.imp"
12199 @ 112788:               END    _ECCECI_GETSTATEMENTS_GETARRAYDECLARATION {lev=3 --> 2}

  2483  %routine GET PARMDEF
12200 @ 112789:               LINE   2483 "regression-compile-tmp/chimps.imp"
12201 @ 112826:               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
12202 @ 112848:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
12203 @ 112849:                  FINISH ) {lev=3}

  2484  %integer headitem,dpos,dlim1
12204 @ 112850:                  LINE   2484 "regression-compile-tmp/chimps.imp"
12205 @ 112887:                  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
12206 @ 112907:                  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
12207 @ 112923:                  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

  2485  %record(identinfo)%name headditem,dp
12208 @ 112940:                  LINE   2485 "regression-compile-tmp/chimps.imp"
12209 @ 112977:                  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
12210 @ 112998:                  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

  2486  %integerfn PARMMATCH(%integer apos)
12211 @ 113012:                  LINE   2486 "regression-compile-tmp/chimps.imp"
12212 @ 113049:                  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
12213 @ 113070:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
12214 @ 113071:                        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
12215 @ 113087:                     FINISH ) {lev=4}

  2487  %integer bpos
12216 @ 113088:                     LINE   2487 "regression-compile-tmp/chimps.imp"
12217 @ 113125:                     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

  2488  %record(identinfo)%name ap,bp
12218 @ 113141:                     LINE   2488 "regression-compile-tmp/chimps.imp"
12219 @ 113178:                     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
12220 @ 113192:                     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

  2489    bpos = dlim1
12221 @ 113206:                     LINE   2489 "regression-compile-tmp/chimps.imp"
12222 @ 113243:                     PUSH   BPOS
12223 @ 113246:                     PUSH   DLIM1
12224 @ 113249:                     ASSVAL

  2490    ap == dict(apos)
12225 @ 113250:                     LINE   2490 "regression-compile-tmp/chimps.imp"
12226 @ 113287:                     PUSH   AP
12227 @ 113290:                     PUSH   DICT
12228 @ 113293:                     PUSH   APOS
12229 @ 113296:                     ACCESS
12230 @ 113297:                     ASSREF

  2491    %while bpos # dlim %cycle
12231 @ 113298:                     LINE   2491 "regression-compile-tmp/chimps.imp"
12232 @ 113335:                     LOCATE L_0003
12233 @ 113338:                     PUSH   BPOS
12234 @ 113341:                     PUSH   DLIM
12235 @ 113344:                     JUMPIF = L_0004

  2492      %result = 0 %if ap_flags&more = 0
12236 @ 113348:                     LINE   2492 "regression-compile-tmp/chimps.imp"
12237 @ 113385:                     PUSH   AP
12238 @ 113388:                     SELECT 1
12239 @ 113391:                     PUSHI  #0x00000080
12240 @ 113396:                     AND   
12241 @ 113397:                     PUSHI  #0x00000000
12242 @ 113402:                     JUMPIF # L_0007
12243 @ 113406:                     PUSHI  #0x00000000
12244 @ 113411:                     RESULT
12245 @ 113412:                     LOCATE L_0007

  2493      apos = apos+1 %and ap == dict(apos) %until ap_flags&parm # 0
12246 @ 113415:                     LINE   2493 "regression-compile-tmp/chimps.imp"
12247 @ 113452:                     LOCATE L_0006
12248 @ 113455:                     PUSH   APOS
12249 @ 113458:                     PUSH   APOS
12250 @ 113461:                     PUSHI  #0x00000001
12251 @ 113466:                     ADD   
12252 @ 113467:                     ASSVAL
12253 @ 113468:                     PUSH   AP
12254 @ 113471:                     PUSH   DICT
12255 @ 113474:                     PUSH   APOS
12256 @ 113477:                     ACCESS
12257 @ 113478:                     ASSREF
12258 @ 113479:                     PUSH   AP
12259 @ 113482:                     SELECT 1
12260 @ 113485:                     PUSHI  #0x00000040
12261 @ 113490:                     AND   
12262 @ 113491:                     PUSHI  #0x00000000
12263 @ 113496:                     JUMPIF # L_0007
12264 @ 113500:                     REPEAT L_0006
12265 @ 113503:                     LOCATE L_0007

  2494      bp == dict(bpos)
12266 @ 113506:                     LINE   2494 "regression-compile-tmp/chimps.imp"
12267 @ 113543:                     PUSH   BP
12268 @ 113546:                     PUSH   DICT
12269 @ 113549:                     PUSH   BPOS
12270 @ 113552:                     ACCESS
12271 @ 113553:                     ASSREF

  2495      %result = 0 %if ap_type # bp_type;  !for now
12272 @ 113554:                     LINE   2495 "regression-compile-tmp/chimps.imp"
12273 @ 113591:                     PUSH   AP
12274 @ 113594:                     SELECT 2
12275 @ 113597:                     PUSH   BP
12276 @ 113600:                     SELECT 2
12277 @ 113603:                     JUMPIF = L_0007
12278 @ 113607:                     PUSHI  #0x00000000
12279 @ 113612:                     RESULT
12280 @ 113613:                     LOCATE L_0007

  2496      bpos = bpos+1
12281 @ 113616:                     LINE   2496 "regression-compile-tmp/chimps.imp"
12282 @ 113653:                     PUSH   BPOS
12283 @ 113656:                     PUSH   BPOS
12284 @ 113659:                     PUSHI  #0x00000001
12285 @ 113664:                     ADD   
12286 @ 113665:                     ASSVAL

  2497    %repeat
12287 @ 113666:                     LINE   2497 "regression-compile-tmp/chimps.imp"
12288 @ 113703:                     REPEAT L_0003
12289 @ 113706:                     LOCATE L_0004

  2498    %result = 1 %if ap_flags&more = 0
12290 @ 113709:                     LINE   2498 "regression-compile-tmp/chimps.imp"
12291 @ 113746:                     PUSH   AP
12292 @ 113749:                     SELECT 1
12293 @ 113752:                     PUSHI  #0x00000080
12294 @ 113757:                     AND   
12295 @ 113758:                     PUSHI  #0x00000000
12296 @ 113763:                     JUMPIF # L_0004
12297 @ 113767:                     PUSHI  #0x00000001
12298 @ 113772:                     RESULT
12299 @ 113773:                     LOCATE L_0004

  2499    %result = 0
12300 @ 113776:                     LINE   2499 "regression-compile-tmp/chimps.imp"
12301 @ 113813:                     PUSHI  #0x00000000
12302 @ 113818:                     RESULT

  2500  %end
  2501  !
12303 @ 113819:                     LINE   2500 "regression-compile-tmp/chimps.imp"
12304 @ 113856:                  END    _ECCECI_GETSTATEMENTS_GETPARMDEF_PARMMATCH {lev=4 --> 3}

  2502    headitem = item;  headditem == ditem
12305 @ 113857:                  LINE   2502 "regression-compile-tmp/chimps.imp"
12306 @ 113894:                  PUSH   HEADITEM
12307 @ 113897:                  PUSH   ITEM
12308 @ 113900:                  ASSVAL
12309 @ 113901:                  LINE   2502 "regression-compile-tmp/chimps.imp"
12310 @ 113938:                  PUSH   HEADDITEM
12311 @ 113941:                  PUSH   DITEM
12312 @ 113944:                  ASSREF

  2503    dlim1 = dlim
12313 @ 113945:                  LINE   2503 "regression-compile-tmp/chimps.imp"
12314 @ 113982:                  PUSH   DLIM1
12315 @ 113985:                  PUSH   DLIM
12316 @ 113988:                  ASSVAL

  2504    %if a(left) %start
12317 @ 113989:                  LINE   2504 "regression-compile-tmp/chimps.imp"
12318 @ 114026:                  PUSH   A
12319 @ 114029:                  PUSHI  #0x00000037
12320 @ 114034:                  ASSPAR
12321 @ 114035:                  CALL  
12322 @ 114036:                  bf     L_0004

  2505      %cycle
12323 @ 114039:                  LINE   2505 "regression-compile-tmp/chimps.imp"
12324 @ 114076:                  LOCATE L_0006

  2506        get TYPE(parm!more) %if atom # ident
12325 @ 114079:                  LINE   2506 "regression-compile-tmp/chimps.imp"
12326 @ 114116:                  PUSH   ATOM
12327 @ 114119:                  PUSHI  #0x00000036
12328 @ 114124:                  JUMPIF = L_000a
12329 @ 114128:                  PUSH   GETTYPE
12330 @ 114131:                  PUSHI  #0x00000040
12331 @ 114136:                  PUSHI  #0x00000080
12332 @ 114141:                  OR    
12333 @ 114142:                  ASSPAR
12334 @ 114143:                  CALL  
12335 @ 114144:                  LOCATE L_000a

  2507        %if d_flags&proc = 0 %start
12336 @ 114147:                  LINE   2507 "regression-compile-tmp/chimps.imp"
12337 @ 114184:                  PUSH   D
12338 @ 114187:                  SELECT 1
12339 @ 114190:                  PUSHI  #0x00000004
12340 @ 114195:                  AND   
12341 @ 114196:                  PUSHI  #0x00000000
12342 @ 114201:                  JUMPIF # L_000a

  2508          get IDENT
12343 @ 114205:                  LINE   2508 "regression-compile-tmp/chimps.imp"
12344 @ 114242:                  PUSH   GETIDENT
12345 @ 114245:                  CALL  

  2509          %exit %if %not a(comma) %and atom = right
12346 @ 114246:                  LINE   2509 "regression-compile-tmp/chimps.imp"
12347 @ 114283:                  PUSH   A
12348 @ 114286:                  PUSHI  #0x0000003b
12349 @ 114291:                  ASSPAR
12350 @ 114292:                  CALL  
12351 @ 114293:                  bt     L_000d
12352 @ 114296:                  PUSH   ATOM
12353 @ 114299:                  PUSHI  #0x0000003c
12354 @ 114304:                  JUMPIF # L_000d
12355 @ 114308:                  GOTO   L_0007
12356 @ 114311:                  LOCATE L_000d

  2510          %if atom # comma %then nonstandard(nocomma) %c
  2511          %else atom = next atom
12357 @ 114314:                  LINE   2510 "regression-compile-tmp/chimps.imp"
12358 @ 114351:                  PUSH   ATOM
12359 @ 114354:                  PUSHI  #0x0000003b
12360 @ 114359:                  JUMPIF = L_000d
12361 @ 114363:                  PUSH   NONSTANDARD
12362 @ 114366:                  PUSHI  #0x00000004
12363 @ 114371:                  ASSPAR
12364 @ 114372:                  CALL  
12365 @ 114373:                  GOTO   L_000c
12366 @ 114376:                  LOCATE L_000d
12367 @ 114379:                  PUSH   ATOM
12368 @ 114382:                  PUSH   NEXTATOM
12369 @ 114385:                  CALL  
12370 @ 114386:                  ASSVAL
12371 @ 114387:                  LOCATE L_000c

  2512        %finish %else %start
12372 @ 114390:                  LINE   2512 "regression-compile-tmp/chimps.imp"
12373 @ 114427:                  GOTO   L_0009
12374 @ 114430:                  LOCATE L_000a

  2513          get IDENT
12375 @ 114433:                  LINE   2513 "regression-compile-tmp/chimps.imp"
12376 @ 114470:                  PUSH   GETIDENT
12377 @ 114473:                  CALL  

  2514          speccing = speccing+2
12378 @ 114474:                  LINE   2514 "regression-compile-tmp/chimps.imp"
12379 @ 114511:                  PUSH   SPECCING
12380 @ 114514:                  PUSH   SPECCING
12381 @ 114517:                  PUSHI  #0x00000002
12382 @ 114522:                  ADD   
12383 @ 114523:                  ASSVAL

  2515          get PARMDEF
12384 @ 114524:                  LINE   2515 "regression-compile-tmp/chimps.imp"
12385 @ 114561:                  PUSH   GETPARMDEF
12386 @ 114564:                  CALL  

  2516          speccing = speccing-2
12387 @ 114565:                  LINE   2516 "regression-compile-tmp/chimps.imp"
12388 @ 114602:                  PUSH   SPECCING
12389 @ 114605:                  PUSH   SPECCING
12390 @ 114608:                  PUSHI  #0x00000002
12391 @ 114613:                  SUB   
12392 @ 114614:                  ASSVAL

  2517          %exit %if %not a(comma)
12393 @ 114615:                  LINE   2517 "regression-compile-tmp/chimps.imp"
12394 @ 114652:                  PUSH   A
12395 @ 114655:                  PUSHI  #0x0000003b
12396 @ 114660:                  ASSPAR
12397 @ 114661:                  CALL  
12398 @ 114662:                  bt     L_000d
12399 @ 114665:                  GOTO   L_0007
12400 @ 114668:                  LOCATE L_000d

  2518        %finish
12401 @ 114671:                  LINE   2518 "regression-compile-tmp/chimps.imp"
12402 @ 114708:                  LOCATE L_0009

  2519      %repeat
12403 @ 114711:                  LINE   2519 "regression-compile-tmp/chimps.imp"
12404 @ 114748:                  REPEAT L_0006
12405 @ 114751:                  LOCATE L_0007

  2520      dict(dlim-1)_flags = dict(dlim-1)_flags-more
12406 @ 114754:                  LINE   2520 "regression-compile-tmp/chimps.imp"
12407 @ 114791:                  PUSH   DICT
12408 @ 114794:                  PUSH   DLIM
12409 @ 114797:                  PUSHI  #0x00000001
12410 @ 114802:                  SUB   
12411 @ 114803:                  ACCESS
12412 @ 114804:                  SELECT 1
12413 @ 114807:                  PUSH   DICT
12414 @ 114810:                  PUSH   DLIM
12415 @ 114813:                  PUSHI  #0x00000001
12416 @ 114818:                  SUB   
12417 @ 114819:                  ACCESS
12418 @ 114820:                  SELECT 1
12419 @ 114823:                  PUSHI  #0x00000080
12420 @ 114828:                  SUB   
12421 @ 114829:                  ASSVAL

  2521      get(right)
12422 @ 114830:                  LINE   2521 "regression-compile-tmp/chimps.imp"
12423 @ 114867:                  PUSH   GET
12424 @ 114870:                  PUSHI  #0x0000003c
12425 @ 114875:                  ASSPAR
12426 @ 114876:                  CALL  

  2522    %finish
12427 @ 114877:                  LINE   2522 "regression-compile-tmp/chimps.imp"
12428 @ 114914:                  LOCATE L_0004

  2523    %if speccing >= 2 %start
12429 @ 114917:                  LINE   2523 "regression-compile-tmp/chimps.imp"
12430 @ 114954:                  PUSH   SPECCING
12431 @ 114957:                  PUSHI  #0x00000002
12432 @ 114962:                  JUMPIF < L_0004

  2524      dpos = dictmin
12433 @ 114966:                  LINE   2524 "regression-compile-tmp/chimps.imp"
12434 @ 115003:                  PUSH   DPOS
12435 @ 115006:                  PUSHI  #0x000007f9
12436 @ 115011:                  ASSVAL

  2525      %cycle
12437 @ 115012:                  LINE   2525 "regression-compile-tmp/chimps.imp"
12438 @ 115049:                  LOCATE L_0006

  2526        dp == dict(dpos)
12439 @ 115052:                  LINE   2526 "regression-compile-tmp/chimps.imp"
12440 @ 115089:                  PUSH   DP
12441 @ 115092:                  PUSH   DICT
12442 @ 115095:                  PUSH   DPOS
12443 @ 115098:                  ACCESS
12444 @ 115099:                  ASSREF

  2527        %if dp_flags&proc # 0 %and dp_type = headditem_type %start
12445 @ 115100:                  LINE   2527 "regression-compile-tmp/chimps.imp"
12446 @ 115137:                  PUSH   DP
12447 @ 115140:                  SELECT 1
12448 @ 115143:                  PUSHI  #0x00000004
12449 @ 115148:                  AND   
12450 @ 115149:                  PUSHI  #0x00000000
12451 @ 115154:                  JUMPIF = L_000a
12452 @ 115158:                  PUSH   DP
12453 @ 115161:                  SELECT 2
12454 @ 115164:                  PUSH   HEADDITEM
12455 @ 115167:                  SELECT 2
12456 @ 115170:                  JUMPIF # L_000a

  2528          %if parmmatch(dpos) # 0 %start
12457 @ 115174:                  LINE   2528 "regression-compile-tmp/chimps.imp"
12458 @ 115211:                  PUSH   PARMMATCH
12459 @ 115214:                  PUSH   DPOS
12460 @ 115217:                  ASSPAR
12461 @ 115218:                  CALL  
12462 @ 115219:                  PUSHI  #0x00000000
12463 @ 115224:                  JUMPIF = L_000d

  2529            headditem_type = dpos;  dlim = dlim1
12464 @ 115228:                  LINE   2529 "regression-compile-tmp/chimps.imp"
12465 @ 115265:                  PUSH   HEADDITEM
12466 @ 115268:                  SELECT 2
12467 @ 115271:                  PUSH   DPOS
12468 @ 115274:                  ASSVAL
12469 @ 115275:                  LINE   2529 "regression-compile-tmp/chimps.imp"
12470 @ 115312:                  PUSH   DLIM
12471 @ 115315:                  PUSH   DLIM1
12472 @ 115318:                  ASSVAL

  2530            %return
12473 @ 115319:                  LINE   2530 "regression-compile-tmp/chimps.imp"
12474 @ 115356:                  RETURN

  2531          %finish
12475 @ 115357:                  LINE   2531 "regression-compile-tmp/chimps.imp"
12476 @ 115394:                  LOCATE L_000d

  2532        %finish
12477 @ 115397:                  LINE   2532 "regression-compile-tmp/chimps.imp"
12478 @ 115434:                  LOCATE L_000a

  2533        dpos = dpos+1
12479 @ 115437:                  LINE   2533 "regression-compile-tmp/chimps.imp"
12480 @ 115474:                  PUSH   DPOS
12481 @ 115477:                  PUSH   DPOS
12482 @ 115480:                  PUSHI  #0x00000001
12483 @ 115485:                  ADD   
12484 @ 115486:                  ASSVAL

  2534      %repeat %until dpos >= headitem
12485 @ 115487:                  LINE   2534 "regression-compile-tmp/chimps.imp"
12486 @ 115524:                  PUSH   DPOS
12487 @ 115527:                  PUSH   HEADITEM
12488 @ 115530:                  JUMPIF >= L_0007
12489 @ 115534:                  REPEAT L_0006
12490 @ 115537:                  LOCATE L_0007

  2535      fault(caterr);  dlim = dlim1
12491 @ 115540:                  LINE   2535 "regression-compile-tmp/chimps.imp"
12492 @ 115577:                  PUSH   FAULT
12493 @ 115580:                  PUSHI  #0x00000003
12494 @ 115585:                  ASSPAR
12495 @ 115586:                  CALL  
12496 @ 115587:                  LINE   2535 "regression-compile-tmp/chimps.imp"
12497 @ 115624:                  PUSH   DLIM
12498 @ 115627:                  PUSH   DLIM1
12499 @ 115630:                  ASSVAL

  2536      %return
12500 @ 115631:                  LINE   2536 "regression-compile-tmp/chimps.imp"
12501 @ 115668:                  RETURN

  2537    %finish
12502 @ 115669:                  LINE   2537 "regression-compile-tmp/chimps.imp"
12503 @ 115706:                  LOCATE L_0004

  2538    %if speccing = 0 %and headditem_flags&spec # 0 %start
12504 @ 115709:                  LINE   2538 "regression-compile-tmp/chimps.imp"
12505 @ 115746:                  PUSH   SPECCING
12506 @ 115749:                  PUSHI  #0x00000000
12507 @ 115754:                  JUMPIF # L_0004
12508 @ 115758:                  PUSH   HEADDITEM
12509 @ 115761:                  SELECT 1
12510 @ 115764:                  PUSHI  #0x00000010
12511 @ 115769:                  AND   
12512 @ 115770:                  PUSHI  #0x00000000
12513 @ 115775:                  JUMPIF = L_0004

  2539      headditem_flags = headditem_flags-spec
12514 @ 115779:                  LINE   2539 "regression-compile-tmp/chimps.imp"
12515 @ 115816:                  PUSH   HEADDITEM
12516 @ 115819:                  SELECT 1
12517 @ 115822:                  PUSH   HEADDITEM
12518 @ 115825:                  SELECT 1
12519 @ 115828:                  PUSHI  #0x00000010
12520 @ 115833:                  SUB   
12521 @ 115834:                  ASSVAL

  2540      fault(matcherr) %if parmmatch(headitem) = 0
12522 @ 115835:                  LINE   2540 "regression-compile-tmp/chimps.imp"
12523 @ 115872:                  PUSH   PARMMATCH
12524 @ 115875:                  PUSH   HEADITEM
12525 @ 115878:                  ASSPAR
12526 @ 115879:                  CALL  
12527 @ 115880:                  PUSHI  #0x00000000
12528 @ 115885:                  JUMPIF # L_0007
12529 @ 115889:                  PUSH   FAULT
12530 @ 115892:                  PUSHI  #0x0000000b
12531 @ 115897:                  ASSPAR
12532 @ 115898:                  CALL  
12533 @ 115899:                  LOCATE L_0007

  2541    %else
12534 @ 115902:                  LINE   2541 "regression-compile-tmp/chimps.imp"
12535 @ 115939:                  GOTO   L_0003
12536 @ 115942:                  LOCATE L_0004

  2542      headditem_flags = headditem_flags!more %if dlim # dlim1
12537 @ 115945:                  LINE   2542 "regression-compile-tmp/chimps.imp"
12538 @ 115982:                  PUSH   DLIM
12539 @ 115985:                  PUSH   DLIM1
12540 @ 115988:                  JUMPIF = L_0007
12541 @ 115992:                  PUSH   HEADDITEM
12542 @ 115995:                  SELECT 1
12543 @ 115998:                  PUSH   HEADDITEM
12544 @ 116001:                  SELECT 1
12545 @ 116004:                  PUSHI  #0x00000080
12546 @ 116009:                  OR    
12547 @ 116010:                  ASSVAL
12548 @ 116011:                  LOCATE L_0007

  2543    %finish
12549 @ 116014:                  LINE   2543 "regression-compile-tmp/chimps.imp"
12550 @ 116051:                  LOCATE L_0003

  2544  %end;  !get PARMDEF
  2545  
12551 @ 116054:                  LINE   2544 "regression-compile-tmp/chimps.imp"
12552 @ 116091:               END    _ECCECI_GETSTATEMENTS_GETPARMDEF {lev=3 --> 2}

  2546  initial(keylabel):  nonstandard(klabel)
12553 @ 116092:               LINE   2546 "regression-compile-tmp/chimps.imp"
12554 @ 116129:               PUSHI  #0x00000017
12555 @ 116134:               SLABEL 272
12556 @ 116137:               LINE   2546 "regression-compile-tmp/chimps.imp"
12557 @ 116174:               PUSH   NONSTANDARD
12558 @ 116177:               PUSHI  #0x00000400
12559 @ 116182:               ASSPAR
12560 @ 116183:               CALL  

  2547    d_flags = lab+spec;  d_type = nulltype
12561 @ 116184:               LINE   2547 "regression-compile-tmp/chimps.imp"
12562 @ 116221:               PUSH   D
12563 @ 116224:               SELECT 1
12564 @ 116227:               PUSHI  #0x00000002
12565 @ 116232:               PUSHI  #0x00000010
12566 @ 116237:               ADD   
12567 @ 116238:               ASSVAL
12568 @ 116239:               LINE   2547 "regression-compile-tmp/chimps.imp"
12569 @ 116276:               PUSH   D
12570 @ 116279:               SELECT 2
12571 @ 116282:               PUSHI  #0x000007f9
12572 @ 116287:               ASSVAL

  2548    get IDENTLIST
12573 @ 116288:               LINE   2548 "regression-compile-tmp/chimps.imp"
12574 @ 116325:               PUSH   GETIDENTLIST
12575 @ 116328:               CALL  

  2549    -> term
  2550  
12576 @ 116329:               LINE   2549 "regression-compile-tmp/chimps.imp"
12577 @ 116366:               JUMP   L_0117

  2551  initial(prefix):
12578 @ 116369:               LINE   2551 "regression-compile-tmp/chimps.imp"
12579 @ 116406:               PUSHI  #0x00000018
12580 @ 116411:               SLABEL 272

  2552    d_flags = subatom;  ! !wflag!okflag
  2553  !  fault(prefix<<8) %if d_flags&extmask # 0
12581 @ 116414:               LINE   2552 "regression-compile-tmp/chimps.imp"
12582 @ 116451:               PUSH   D
12583 @ 116454:               SELECT 1
12584 @ 116457:               PUSH   SUBATOM
12585 @ 116460:               ASSVAL

  2554    atom = next atom
12586 @ 116461:               LINE   2554 "regression-compile-tmp/chimps.imp"
12587 @ 116498:               PUSH   ATOM
12588 @ 116501:               PUSH   NEXTATOM
12589 @ 116504:               CALL  
12590 @ 116505:               ASSVAL

  2555  initial(krange): initial(keylong):
12591 @ 116506:               LINE   2555 "regression-compile-tmp/chimps.imp"
12592 @ 116543:               PUSHI  #0x00000019
12593 @ 116548:               SLABEL 272
12594 @ 116551:               LINE   2555 "regression-compile-tmp/chimps.imp"
12595 @ 116588:               PUSHI  #0x0000001a
12596 @ 116593:               SLABEL 272

  2556  initial(keyinteger): initial(keyreal):
12597 @ 116596:               LINE   2556 "regression-compile-tmp/chimps.imp"
12598 @ 116633:               PUSHI  #0x0000001b
12599 @ 116638:               SLABEL 272
12600 @ 116641:               LINE   2556 "regression-compile-tmp/chimps.imp"
12601 @ 116678:               PUSHI  #0x0000001c
12602 @ 116683:               SLABEL 272

  2557  initial(keystring):  initial(keyrecord):
12603 @ 116686:               LINE   2557 "regression-compile-tmp/chimps.imp"
12604 @ 116723:               PUSHI  #0x0000001d
12605 @ 116728:               SLABEL 272
12606 @ 116731:               LINE   2557 "regression-compile-tmp/chimps.imp"
12607 @ 116768:               PUSHI  #0x0000001e
12608 @ 116773:               SLABEL 272

  2558  initial(rpred):
12609 @ 116776:               LINE   2558 "regression-compile-tmp/chimps.imp"
12610 @ 116813:               PUSHI  #0x00000021
12611 @ 116818:               SLABEL 272

  2559    matched = 0
12612 @ 116821:               LINE   2559 "regression-compile-tmp/chimps.imp"
12613 @ 116858:               PUSH   MATCHED
12614 @ 116861:               PUSHI  #0x00000000
12615 @ 116866:               ASSVAL

  2560    get TYPE(d_flags)
12616 @ 116867:               LINE   2560 "regression-compile-tmp/chimps.imp"
12617 @ 116904:               PUSH   GETTYPE
12618 @ 116907:               PUSH   D
12619 @ 116910:               SELECT 1
12620 @ 116913:               ASSPAR
12621 @ 116914:               CALL  

  2561    %if a(keyspec) %start
12622 @ 116915:               LINE   2561 "regression-compile-tmp/chimps.imp"
12623 @ 116952:               PUSH   A
12624 @ 116955:               PUSHI  #0x00000022
12625 @ 116960:               ASSPAR
12626 @ 116961:               CALL  
12627 @ 116962:               bf     L_0004

  2562      %if a(left) %start
12628 @ 116965:               LINE   2562 "regression-compile-tmp/chimps.imp"
12629 @ 117002:               PUSH   A
12630 @ 117005:               PUSHI  #0x00000037
12631 @ 117010:               ASSPAR
12632 @ 117011:               CALL  
12633 @ 117012:               bf     L_0007

  2563        get LITINT;  get(right)
12634 @ 117015:               LINE   2563 "regression-compile-tmp/chimps.imp"
12635 @ 117052:               PUSH   GETLITINT
12636 @ 117055:               CALL  
12637 @ 117056:               LINE   2563 "regression-compile-tmp/chimps.imp"
12638 @ 117093:               PUSH   GET
12639 @ 117096:               PUSHI  #0x0000003c
12640 @ 117101:               ASSPAR
12641 @ 117102:               CALL  

  2564        declmode = declmode&sizemask+absmode
12642 @ 117103:               LINE   2564 "regression-compile-tmp/chimps.imp"
12643 @ 117140:               PUSH   DECLMODE
12644 @ 117143:               PUSH   DECLMODE
12645 @ 117146:               PUSHI  #0x000000c0
12646 @ 117151:               AND   
12647 @ 117152:               PUSHI  #0x00000038
12648 @ 117157:               ADD   
12649 @ 117158:               ASSVAL

  2565        d_val = t_val
12650 @ 117159:               LINE   2565 "regression-compile-tmp/chimps.imp"
12651 @ 117196:               PUSH   D
12652 @ 117199:               SELECT 7
12653 @ 117202:               PUSH   T
12654 @ 117205:               SELECT 7
12655 @ 117208:               ASSVAL

  2566        get IDENT
12656 @ 117209:               LINE   2566 "regression-compile-tmp/chimps.imp"
12657 @ 117246:               PUSH   GETIDENT
12658 @ 117249:               CALL  

  2567        speccing = 1 %and get PARMDEF %if d_flags&proc # 0
12659 @ 117250:               LINE   2567 "regression-compile-tmp/chimps.imp"
12660 @ 117287:               PUSH   D
12661 @ 117290:               SELECT 1
12662 @ 117293:               PUSHI  #0x00000004
12663 @ 117298:               AND   
12664 @ 117299:               PUSHI  #0x00000000
12665 @ 117304:               JUMPIF = L_000a
12666 @ 117308:               PUSH   SPECCING
12667 @ 117311:               PUSHI  #0x00000001
12668 @ 117316:               ASSVAL
12669 @ 117317:               PUSH   GETPARMDEF
12670 @ 117320:               CALL  
12671 @ 117321:               LOCATE L_000a

  2568        -> term
12672 @ 117324:               LINE   2568 "regression-compile-tmp/chimps.imp"
12673 @ 117361:               JUMP   L_0117

  2569      %finish
12674 @ 117364:               LINE   2569 "regression-compile-tmp/chimps.imp"
12675 @ 117401:               LOCATE L_0007

  2570      d_flags = d_flags+spec
12676 @ 117404:               LINE   2570 "regression-compile-tmp/chimps.imp"
12677 @ 117441:               PUSH   D
12678 @ 117444:               SELECT 1
12679 @ 117447:               PUSH   D
12680 @ 117450:               SELECT 1
12681 @ 117453:               PUSHI  #0x00000010
12682 @ 117458:               ADD   
12683 @ 117459:               ASSVAL

  2571      get IDENTLIST %and -> term %if d_flags&proc = 0
12684 @ 117460:               LINE   2571 "regression-compile-tmp/chimps.imp"
12685 @ 117497:               PUSH   D
12686 @ 117500:               SELECT 1
12687 @ 117503:               PUSHI  #0x00000004
12688 @ 117508:               AND   
12689 @ 117509:               PUSHI  #0x00000000
12690 @ 117514:               JUMPIF # L_0007
12691 @ 117518:               PUSH   GETIDENTLIST
12692 @ 117521:               CALL  
12693 @ 117522:               JUMP   L_0117
12694 @ 117525:               LOCATE L_0007

  2572    %finish
12695 @ 117528:               LINE   2572 "regression-compile-tmp/chimps.imp"
12696 @ 117565:               LOCATE L_0004

  2573    %if d_flags&proc # 0 %start
12697 @ 117568:               LINE   2573 "regression-compile-tmp/chimps.imp"
12698 @ 117605:               PUSH   D
12699 @ 117608:               SELECT 1
12700 @ 117611:               PUSHI  #0x00000004
12701 @ 117616:               AND   
12702 @ 117617:               PUSHI  #0x00000000
12703 @ 117622:               JUMPIF = L_0004

  2574      get(ident)
12704 @ 117626:               LINE   2574 "regression-compile-tmp/chimps.imp"
12705 @ 117663:               PUSH   GET
12706 @ 117666:               PUSHI  #0x00000036
12707 @ 117671:               ASSPAR
12708 @ 117672:               CALL  

  2575      %if item >= c_localdpos %and ditem_type = d_type %c
  2576      %and ditem_flags&proc # 0 %start
12709 @ 117673:               LINE   2575 "regression-compile-tmp/chimps.imp"
12710 @ 117710:               PUSH   ITEM
12711 @ 117713:               PUSH   C
12712 @ 117716:               SELECT 6
12713 @ 117719:               JUMPIF < L_0007
12714 @ 117723:               PUSH   DITEM
12715 @ 117726:               SELECT 2
12716 @ 117729:               PUSH   D
12717 @ 117732:               SELECT 2
12718 @ 117735:               JUMPIF # L_0007
12719 @ 117739:               PUSH   DITEM
12720 @ 117742:               SELECT 1
12721 @ 117745:               PUSHI  #0x00000004
12722 @ 117750:               AND   
12723 @ 117751:               PUSHI  #0x00000000
12724 @ 117756:               JUMPIF = L_0007

  2577        %if ditem_flags&spec = 0 %or d_flags&spec # 0 %start
12725 @ 117760:               LINE   2577 "regression-compile-tmp/chimps.imp"
12726 @ 117797:               PUSH   DITEM
12727 @ 117800:               SELECT 1
12728 @ 117803:               PUSHI  #0x00000010
12729 @ 117808:               AND   
12730 @ 117809:               PUSHI  #0x00000000
12731 @ 117814:               JUMPIF = L_000b
12732 @ 117818:               PUSH   D
12733 @ 117821:               SELECT 1
12734 @ 117824:               PUSHI  #0x00000010
12735 @ 117829:               AND   
12736 @ 117830:               PUSHI  #0x00000000
12737 @ 117835:               JUMPIF = L_000a
12738 @ 117839:               LOCATE L_000b

  2578          item = 0;  d_flags = d_flags+alt
12739 @ 117842:               LINE   2578 "regression-compile-tmp/chimps.imp"
12740 @ 117879:               PUSH   ITEM
12741 @ 117882:               PUSHI  #0x00000000
12742 @ 117887:               ASSVAL
12743 @ 117888:               LINE   2578 "regression-compile-tmp/chimps.imp"
12744 @ 117925:               PUSH   D
12745 @ 117928:               SELECT 1
12746 @ 117931:               PUSH   D
12747 @ 117934:               SELECT 1
12748 @ 117937:               PUSHI  #0x00000800
12749 @ 117942:               ADD   
12750 @ 117943:               ASSVAL

  2579          declare
12751 @ 117944:               LINE   2579 "regression-compile-tmp/chimps.imp"
12752 @ 117981:               PUSH   DECLARE
12753 @ 117984:               CALL  

  2580        %finish
12754 @ 117985:               LINE   2580 "regression-compile-tmp/chimps.imp"
12755 @ 118022:               LOCATE L_000a

  2581      %finish %else declare
12756 @ 118025:               LINE   2581 "regression-compile-tmp/chimps.imp"
12757 @ 118062:               GOTO   L_0006
12758 @ 118065:               LOCATE L_0007
12759 @ 118068:               PUSH   DECLARE
12760 @ 118071:               CALL  
12761 @ 118072:               LOCATE L_0006

  2582      get LITSTRING %if d_flags&ext # 0 %and a(alias)
12762 @ 118075:               LINE   2582 "regression-compile-tmp/chimps.imp"
12763 @ 118112:               PUSH   D
12764 @ 118115:               SELECT 1
12765 @ 118118:               PUSHI  #0x00000020
12766 @ 118123:               AND   
12767 @ 118124:               PUSHI  #0x00000000
12768 @ 118129:               JUMPIF = L_0007
12769 @ 118133:               PUSH   A
12770 @ 118136:               PUSHI  #0x0000002e
12771 @ 118141:               ASSPAR
12772 @ 118142:               CALL  
12773 @ 118143:               bf     L_0007
12774 @ 118146:               PUSH   GETLITSTRING
12775 @ 118149:               CALL  
12776 @ 118150:               LOCATE L_0007

  2583      %if d_flags&spec # 0 %start
12777 @ 118153:               LINE   2583 "regression-compile-tmp/chimps.imp"
12778 @ 118190:               PUSH   D
12779 @ 118193:               SELECT 1
12780 @ 118196:               PUSHI  #0x00000010
12781 @ 118201:               AND   
12782 @ 118202:               PUSHI  #0x00000000
12783 @ 118207:               JUMPIF = L_0007

  2584        speccing = 1
12784 @ 118211:               LINE   2584 "regression-compile-tmp/chimps.imp"
12785 @ 118248:               PUSH   SPECCING
12786 @ 118251:               PUSHI  #0x00000001
12787 @ 118256:               ASSVAL

  2585        get PARMDEF
12788 @ 118257:               LINE   2585 "regression-compile-tmp/chimps.imp"
12789 @ 118294:               PUSH   GETPARMDEF
12790 @ 118297:               CALL  

  2586      %finish %else %start
12791 @ 118298:               LINE   2586 "regression-compile-tmp/chimps.imp"
12792 @ 118335:               GOTO   L_0006
12793 @ 118338:               LOCATE L_0007

  2587        open block(item)
12794 @ 118341:               LINE   2587 "regression-compile-tmp/chimps.imp"
12795 @ 118378:               PUSH   OPENBLOCK
12796 @ 118381:               PUSH   ITEM
12797 @ 118384:               ASSPAR
12798 @ 118385:               CALL  

  2588        get PARMDEF
12799 @ 118386:               LINE   2588 "regression-compile-tmp/chimps.imp"
12800 @ 118423:               PUSH   GETPARMDEF
12801 @ 118426:               CALL  

  2589        c_parlim = dlim
12802 @ 118427:               LINE   2589 "regression-compile-tmp/chimps.imp"
12803 @ 118464:               PUSH   C
12804 @ 118467:               SELECT 7
12805 @ 118470:               PUSH   DLIM
12806 @ 118473:               ASSVAL

  2590        compile entry
12807 @ 118474:               LINE   2590 "regression-compile-tmp/chimps.imp"
12808 @ 118511:               PUSH   COMPILEENTRY
12809 @ 118514:               CALL  

  2591        get(terminator)
12810 @ 118515:               LINE   2591 "regression-compile-tmp/chimps.imp"
12811 @ 118552:               PUSH   GET
12812 @ 118555:               PUSHI  #0x00000034
12813 @ 118560:               ASSPAR
12814 @ 118561:               CALL  

  2592        get STATEMENTS(end)
  2593  !      %if c_access > 0 %start
  2594  !        report(noresult,0) %if c_type > nulltype;  !fn/map/pred
  2595  !      %finish
12815 @ 118562:               LINE   2592 "regression-compile-tmp/chimps.imp"
12816 @ 118599:               PUSH   GETSTATEMENTS
12817 @ 118602:               PUSHI  #0x00000001
12818 @ 118607:               ASSPAR
12819 @ 118608:               CALL  

  2596        close block
12820 @ 118609:               LINE   2596 "regression-compile-tmp/chimps.imp"
12821 @ 118646:               PUSH   CLOSEBLOCK
12822 @ 118649:               CALL  

  2597      %finish
12823 @ 118650:               LINE   2597 "regression-compile-tmp/chimps.imp"
12824 @ 118687:               LOCATE L_0006

  2598    %else %if d_flags = typeid {dealt with}
12825 @ 118690:               LINE   2598 "regression-compile-tmp/chimps.imp"
12826 @ 118727:               GOTO   L_0003
12827 @ 118730:               LOCATE L_0004
12828 @ 118733:               PUSH   D
12829 @ 118736:               SELECT 1
12830 @ 118739:               PUSHI  #0x00000100
12831 @ 118744:               JUMPIF # L_0004

  2599    %else %if d_flags&parm # 0;  !array
12832 @ 118748:               LINE   2599 "regression-compile-tmp/chimps.imp"
12833 @ 118785:               GOTO   L_0003
12834 @ 118788:               LOCATE L_0004
12835 @ 118791:               PUSH   D
12836 @ 118794:               SELECT 1
12837 @ 118797:               PUSHI  #0x00000040
12838 @ 118802:               AND   
12839 @ 118803:               PUSHI  #0x00000000
12840 @ 118808:               JUMPIF = L_0004

  2600      d_flags = d_flags-parm
12841 @ 118812:               LINE   2600 "regression-compile-tmp/chimps.imp"
12842 @ 118849:               PUSH   D
12843 @ 118852:               SELECT 1
12844 @ 118855:               PUSH   D
12845 @ 118858:               SELECT 1
12846 @ 118861:               PUSHI  #0x00000040
12847 @ 118866:               SUB   
12848 @ 118867:               ASSVAL

  2601      %if d_flags&static # 0 %start
12849 @ 118868:               LINE   2601 "regression-compile-tmp/chimps.imp"
12850 @ 118905:               PUSH   D
12851 @ 118908:               SELECT 1
12852 @ 118911:               PUSHI  #0x00000008
12853 @ 118916:               AND   
12854 @ 118917:               PUSHI  #0x00000000
12855 @ 118922:               JUMPIF = L_0007

  2602        get OWN ARRAY DECLARATION
12856 @ 118926:               LINE   2602 "regression-compile-tmp/chimps.imp"
12857 @ 118963:               PUSH   GETOWNARRAYDECLARATION
12858 @ 118966:               CALL  

  2603      %finish %else %start
12859 @ 118967:               LINE   2603 "regression-compile-tmp/chimps.imp"
12860 @ 119004:               GOTO   L_0006
12861 @ 119007:               LOCATE L_0007

  2604        %if d_flags&static = 0 %and c_flags >= hadon %start
12862 @ 119010:               LINE   2604 "regression-compile-tmp/chimps.imp"
12863 @ 119047:               PUSH   D
12864 @ 119050:               SELECT 1
12865 @ 119053:               PUSHI  #0x00000008
12866 @ 119058:               AND   
12867 @ 119059:               PUSHI  #0x00000000
12868 @ 119064:               JUMPIF # L_000a
12869 @ 119068:               PUSH   C
12870 @ 119071:               SELECT 4
12871 @ 119074:               PUSHI  #0x00000010
12872 @ 119079:               JUMPIF < L_000a

  2605          fault(ordererr);  c_flags = c_flags&(\(hadon+hadinst))
12873 @ 119083:               LINE   2605 "regression-compile-tmp/chimps.imp"
12874 @ 119120:               PUSH   FAULT
12875 @ 119123:               PUSHI  #0x0000000a
12876 @ 119128:               ASSPAR
12877 @ 119129:               CALL  
12878 @ 119130:               LINE   2605 "regression-compile-tmp/chimps.imp"
12879 @ 119167:               PUSH   C
12880 @ 119170:               SELECT 4
12881 @ 119173:               PUSH   C
12882 @ 119176:               SELECT 4
12883 @ 119179:               PUSHI  #0x00000010
12884 @ 119184:               PUSHI  #0x00000020
12885 @ 119189:               ADD   
12886 @ 119190:               NOT   
12887 @ 119191:               AND   
12888 @ 119192:               ASSVAL

  2606        %finish
12889 @ 119193:               LINE   2606 "regression-compile-tmp/chimps.imp"
12890 @ 119230:               LOCATE L_000a

  2607        get ARRAY DECLARATION
12891 @ 119233:               LINE   2607 "regression-compile-tmp/chimps.imp"
12892 @ 119270:               PUSH   GETARRAYDECLARATION
12893 @ 119273:               CALL  

  2608      %finish
12894 @ 119274:               LINE   2608 "regression-compile-tmp/chimps.imp"
12895 @ 119311:               LOCATE L_0006

  2609    %else %if d_flags = static {const}
12896 @ 119314:               LINE   2609 "regression-compile-tmp/chimps.imp"
12897 @ 119351:               GOTO   L_0003
12898 @ 119354:               LOCATE L_0004
12899 @ 119357:               PUSH   D
12900 @ 119360:               SELECT 1
12901 @ 119363:               PUSHI  #0x00000008
12902 @ 119368:               JUMPIF # L_0004

  2610      d_type = dict(d_type&puretype)_type
12903 @ 119372:               LINE   2610 "regression-compile-tmp/chimps.imp"
12904 @ 119409:               PUSH   D
12905 @ 119412:               SELECT 2
12906 @ 119415:               PUSH   DICT
12907 @ 119418:               PUSH   D
12908 @ 119421:               SELECT 2
12909 @ 119424:               PUSHI  #0x00001fff
12910 @ 119429:               AND   
12911 @ 119430:               ACCESS
12912 @ 119431:               SELECT 2
12913 @ 119434:               ASSVAL

  2611      d_type = d_type+direct %if d_type = recy %or d_type = stringy
12914 @ 119435:               LINE   2611 "regression-compile-tmp/chimps.imp"
12915 @ 119472:               PUSH   D
12916 @ 119475:               SELECT 2
12917 @ 119478:               PUSHI  #0x000007fa
12918 @ 119483:               JUMPIF = L_0008
12919 @ 119487:               PUSH   D
12920 @ 119490:               SELECT 2
12921 @ 119493:               PUSHI  #0x000007fc
12922 @ 119498:               JUMPIF # L_0007
12923 @ 119502:               LOCATE L_0008
12924 @ 119505:               PUSH   D
12925 @ 119508:               SELECT 2
12926 @ 119511:               PUSH   D
12927 @ 119514:               SELECT 2
12928 @ 119517:               PUSHI  #0x00002000
12929 @ 119522:               ADD   
12930 @ 119523:               ASSVAL
12931 @ 119524:               LOCATE L_0007

  2612      %cycle
12932 @ 119527:               LINE   2612 "regression-compile-tmp/chimps.imp"
12933 @ 119564:               LOCATE L_0006

  2613        get IDENT
12934 @ 119567:               LINE   2613 "regression-compile-tmp/chimps.imp"
12935 @ 119604:               PUSH   GETIDENT
12936 @ 119607:               CALL  

  2614        syntax error %if %not a assop
12937 @ 119608:               LINE   2614 "regression-compile-tmp/chimps.imp"
12938 @ 119645:               PUSH   AASSOP
12939 @ 119648:               CALL  
12940 @ 119649:               bt     L_000a
12941 @ 119652:               PUSH   SYNTAXERROR
12942 @ 119655:               CALL  
12943 @ 119656:               LOCATE L_000a

  2615        get LITERAL(d_type)
12944 @ 119659:               LINE   2615 "regression-compile-tmp/chimps.imp"
12945 @ 119696:               PUSH   GETLITERAL
12946 @ 119699:               PUSH   D
12947 @ 119702:               SELECT 2
12948 @ 119705:               ASSPAR
12949 @ 119706:               CALL  

  2616        faultnum = rangerr+point+warn %if faultnum = rangerr+point
12950 @ 119707:               LINE   2616 "regression-compile-tmp/chimps.imp"
12951 @ 119744:               PUSH   FAULTNUM
12952 @ 119747:               PUSHI  #0x0000000c
12953 @ 119752:               PUSHI  #0x00000040
12954 @ 119757:               ADD   
12955 @ 119758:               JUMPIF # L_000a
12956 @ 119762:               PUSH   FAULTNUM
12957 @ 119765:               PUSHI  #0x0000000c
12958 @ 119770:               PUSHI  #0x00000040
12959 @ 119775:               ADD   
12960 @ 119776:               PUSHI  #0x00000080
12961 @ 119781:               ADD   
12962 @ 119782:               ASSVAL
12963 @ 119783:               LOCATE L_000a

  2617        dict(dlim-1)_val = t_val
12964 @ 119786:               LINE   2617 "regression-compile-tmp/chimps.imp"
12965 @ 119823:               PUSH   DICT
12966 @ 119826:               PUSH   DLIM
12967 @ 119829:               PUSHI  #0x00000001
12968 @ 119834:               SUB   
12969 @ 119835:               ACCESS
12970 @ 119836:               SELECT 7
12971 @ 119839:               PUSH   T
12972 @ 119842:               SELECT 7
12973 @ 119845:               ASSVAL

  2618      %repeat %until %not a(comma)
12974 @ 119846:               LINE   2618 "regression-compile-tmp/chimps.imp"
12975 @ 119883:               PUSH   A
12976 @ 119886:               PUSHI  #0x0000003b
12977 @ 119891:               ASSPAR
12978 @ 119892:               CALL  
12979 @ 119893:               bf     L_0007
12980 @ 119896:               REPEAT L_0006
12981 @ 119899:               LOCATE L_0007

  2619    %else %if d_flags&static # 0 {own}
  2620  !    constad == ownad;  constbound = finalbound
12982 @ 119902:               LINE   2619 "regression-compile-tmp/chimps.imp"
12983 @ 119939:               GOTO   L_0003
12984 @ 119942:               LOCATE L_0004
12985 @ 119945:               PUSH   D
12986 @ 119948:               SELECT 1
12987 @ 119951:               PUSHI  #0x00000008
12988 @ 119956:               AND   
12989 @ 119957:               PUSHI  #0x00000000
12990 @ 119962:               JUMPIF = L_0004

  2621      declmode = declmode+ownmode
12991 @ 119966:               LINE   2621 "regression-compile-tmp/chimps.imp"
12992 @ 120003:               PUSH   DECLMODE
12993 @ 120006:               PUSH   DECLMODE
12994 @ 120009:               PUSHI  #0x0000002e
12995 @ 120014:               ADD   
12996 @ 120015:               ASSVAL

  2622      %cycle
  2623  !      constad = constad+1 %if constad&1 # 0 %and dsize # 1
  2624  !      t_val = constad-ownbase
12997 @ 120016:               LINE   2622 "regression-compile-tmp/chimps.imp"
12998 @ 120053:               LOCATE L_0006

  2625        get IDENT
12999 @ 120056:               LINE   2625 "regression-compile-tmp/chimps.imp"
13000 @ 120093:               PUSH   GETIDENT
13001 @ 120096:               CALL  

  2626        t_val = 0
13002 @ 120097:               LINE   2626 "regression-compile-tmp/chimps.imp"
13003 @ 120134:               PUSH   T
13004 @ 120137:               SELECT 7
13005 @ 120140:               PUSHI  #0x00000000
13006 @ 120145:               ASSVAL

  2627        %if a assop %start
  2628  !        %if d_flags&direct = 0
13007 @ 120146:               LINE   2627 "regression-compile-tmp/chimps.imp"
13008 @ 120183:               PUSH   AASSOP
13009 @ 120186:               CALL  
13010 @ 120187:               bf     L_000a

  2629          get LITERAL(d_type)
13011 @ 120190:               LINE   2629 "regression-compile-tmp/chimps.imp"
13012 @ 120227:               PUSH   GETLITERAL
13013 @ 120230:               PUSH   D
13014 @ 120233:               SELECT 2
13015 @ 120236:               ASSPAR
13016 @ 120237:               CALL  

  2630          faultnum = rangerr+point+warn %if faultnum = rangerr+point
13017 @ 120238:               LINE   2630 "regression-compile-tmp/chimps.imp"
13018 @ 120275:               PUSH   FAULTNUM
13019 @ 120278:               PUSHI  #0x0000000c
13020 @ 120283:               PUSHI  #0x00000040
13021 @ 120288:               ADD   
13022 @ 120289:               JUMPIF # L_000d
13023 @ 120293:               PUSH   FAULTNUM
13024 @ 120296:               PUSHI  #0x0000000c
13025 @ 120301:               PUSHI  #0x00000040
13026 @ 120306:               ADD   
13027 @ 120307:               PUSHI  #0x00000080
13028 @ 120312:               ADD   
13029 @ 120313:               ASSVAL
13030 @ 120314:               LOCATE L_000d

  2631        %finish
13031 @ 120317:               LINE   2631 "regression-compile-tmp/chimps.imp"
13032 @ 120354:               LOCATE L_000a

  2632        elements = 1
  2633      !      plant const(t_val,1)
13033 @ 120357:               LINE   2632 "regression-compile-tmp/chimps.imp"
13034 @ 120394:               PUSH   ELEMENTS
13035 @ 120397:               PUSHI  #0x00000001
13036 @ 120402:               ASSVAL

  2634      %repeat %until %not a(comma)
13037 @ 120403:               LINE   2634 "regression-compile-tmp/chimps.imp"
13038 @ 120440:               PUSH   A
13039 @ 120443:               PUSHI  #0x0000003b
13040 @ 120448:               ASSPAR
13041 @ 120449:               CALL  
13042 @ 120450:               bf     L_0007
13043 @ 120453:               REPEAT L_0006
13044 @ 120456:               LOCATE L_0007

  2635    %else;      !dynamic variable
  2636  !    declmode = declmode+dispmode+level
13045 @ 120459:               LINE   2635 "regression-compile-tmp/chimps.imp"
13046 @ 120496:               GOTO   L_0003
13047 @ 120499:               LOCATE L_0004

  2637      %if d_flags&static = 0 %and c_flags >= hadon %start
13048 @ 120502:               LINE   2637 "regression-compile-tmp/chimps.imp"
13049 @ 120539:               PUSH   D
13050 @ 120542:               SELECT 1
13051 @ 120545:               PUSHI  #0x00000008
13052 @ 120550:               AND   
13053 @ 120551:               PUSHI  #0x00000000
13054 @ 120556:               JUMPIF # L_0007
13055 @ 120560:               PUSH   C
13056 @ 120563:               SELECT 4
13057 @ 120566:               PUSHI  #0x00000010
13058 @ 120571:               JUMPIF < L_0007

  2638        fault(ordererr);  c_flags = c_flags&(\(hadon+hadinst))
13059 @ 120575:               LINE   2638 "regression-compile-tmp/chimps.imp"
13060 @ 120612:               PUSH   FAULT
13061 @ 120615:               PUSHI  #0x0000000a
13062 @ 120620:               ASSPAR
13063 @ 120621:               CALL  
13064 @ 120622:               LINE   2638 "regression-compile-tmp/chimps.imp"
13065 @ 120659:               PUSH   C
13066 @ 120662:               SELECT 4
13067 @ 120665:               PUSH   C
13068 @ 120668:               SELECT 4
13069 @ 120671:               PUSHI  #0x00000010
13070 @ 120676:               PUSHI  #0x00000020
13071 @ 120681:               ADD   
13072 @ 120682:               NOT   
13073 @ 120683:               AND   
13074 @ 120684:               ASSVAL

  2639      %finish
13075 @ 120685:               LINE   2639 "regression-compile-tmp/chimps.imp"
13076 @ 120722:               LOCATE L_0007

  2640      %cycle
  2641  !problematic c_delta = c_delta-1 %if c_delta&1 # 0 %and dsize # 1
13077 @ 120725:               LINE   2640 "regression-compile-tmp/chimps.imp"
13078 @ 120762:               LOCATE L_0006

  2642        c_delta = c_delta-dsize
13079 @ 120765:               LINE   2642 "regression-compile-tmp/chimps.imp"
13080 @ 120802:               PUSH   C
13081 @ 120805:               SELECT 2
13082 @ 120808:               PUSH   C
13083 @ 120811:               SELECT 2
13084 @ 120814:               PUSH   DSIZE
13085 @ 120817:               SUB   
13086 @ 120818:               ASSVAL

  2643        c_delta = c_delta-1 %if c_delta&1 # 0
13087 @ 120819:               LINE   2643 "regression-compile-tmp/chimps.imp"
13088 @ 120856:               PUSH   C
13089 @ 120859:               SELECT 2
13090 @ 120862:               PUSHI  #0x00000001
13091 @ 120867:               AND   
13092 @ 120868:               PUSHI  #0x00000000
13093 @ 120873:               JUMPIF = L_000a
13094 @ 120877:               PUSH   C
13095 @ 120880:               SELECT 2
13096 @ 120883:               PUSH   C
13097 @ 120886:               SELECT 2
13098 @ 120889:               PUSHI  #0x00000001
13099 @ 120894:               SUB   
13100 @ 120895:               ASSVAL
13101 @ 120896:               LOCATE L_000a

  2644        t_val = c_sp+c_delta
13102 @ 120899:               LINE   2644 "regression-compile-tmp/chimps.imp"
13103 @ 120936:               PUSH   T
13104 @ 120939:               SELECT 7
13105 @ 120942:               PUSH   C
13106 @ 120945:               SELECT 1
13107 @ 120948:               PUSH   C
13108 @ 120951:               SELECT 2
13109 @ 120954:               ADD   
13110 @ 120955:               ASSVAL

  2645        get IDENT
13111 @ 120956:               LINE   2645 "regression-compile-tmp/chimps.imp"
13112 @ 120993:               PUSH   GETIDENT
13113 @ 120996:               CALL  

  2646        %if a assop %start
13114 @ 120997:               LINE   2646 "regression-compile-tmp/chimps.imp"
13115 @ 121034:               PUSH   AASSOP
13116 @ 121037:               CALL  
13117 @ 121038:               bf     L_000a

  2647          nonstandard(initass)
13118 @ 121041:               LINE   2647 "regression-compile-tmp/chimps.imp"
13119 @ 121078:               PUSH   NONSTANDARD
13120 @ 121081:               PUSHI  #0x00000040
13121 @ 121086:               ASSPAR
13122 @ 121087:               CALL  

  2648          %if d_type >= indirect %start
13123 @ 121088:               LINE   2648 "regression-compile-tmp/chimps.imp"
13124 @ 121125:               PUSH   D
13125 @ 121128:               SELECT 2
13126 @ 121131:               PUSHI  #0x00004000
13127 @ 121136:               JUMPIF < L_000d

  2649            fault(caterr+point) %if atom # eqeq
13128 @ 121140:               LINE   2649 "regression-compile-tmp/chimps.imp"
13129 @ 121177:               PUSH   ATOM
13130 @ 121180:               PUSHI  #0x0000004c
13131 @ 121185:               JUMPIF = L_0010
13132 @ 121189:               PUSH   FAULT
13133 @ 121192:               PUSHI  #0x00000003
13134 @ 121197:               PUSHI  #0x00000040
13135 @ 121202:               ADD   
13136 @ 121203:               ASSPAR
13137 @ 121204:               CALL  
13138 @ 121205:               LOCATE L_0010

  2650            get REFERENCE(d_type)
13139 @ 121208:               LINE   2650 "regression-compile-tmp/chimps.imp"
13140 @ 121245:               PUSH   GETREFERENCE
13141 @ 121248:               PUSH   D
13142 @ 121251:               SELECT 2
13143 @ 121254:               ASSPAR
13144 @ 121255:               CALL  

  2651            item = item+ad %if item # 0
  2652  !          put3(assign,dlim-1+ad,item)
13145 @ 121256:               LINE   2651 "regression-compile-tmp/chimps.imp"
13146 @ 121293:               PUSH   ITEM
13147 @ 121296:               PUSHI  #0x00000000
13148 @ 121301:               JUMPIF = L_0010
13149 @ 121305:               PUSH   ITEM
13150 @ 121308:               PUSH   ITEM
13151 @ 121311:               PUSHI  #0x00004000
13152 @ 121316:               ADD   
13153 @ 121317:               ASSVAL
13154 @ 121318:               LOCATE L_0010

  2653          %finish %else %start
13155 @ 121321:               LINE   2653 "regression-compile-tmp/chimps.imp"
13156 @ 121358:               GOTO   L_000c
13157 @ 121361:               LOCATE L_000d

  2654            fault(caterr+point) %if atom = eqeq
13158 @ 121364:               LINE   2654 "regression-compile-tmp/chimps.imp"
13159 @ 121401:               PUSH   ATOM
13160 @ 121404:               PUSHI  #0x0000004c
13161 @ 121409:               JUMPIF # L_0010
13162 @ 121413:               PUSH   FAULT
13163 @ 121416:               PUSHI  #0x00000003
13164 @ 121421:               PUSHI  #0x00000040
13165 @ 121426:               ADD   
13166 @ 121427:               ASSPAR
13167 @ 121428:               CALL  
13168 @ 121429:               LOCATE L_0010

  2655            get VALUE(d_type)
  2656  !          put2(assign,dlim-1)
13169 @ 121432:               LINE   2655 "regression-compile-tmp/chimps.imp"
13170 @ 121469:               PUSH   GETVALUE
13171 @ 121472:               PUSH   D
13172 @ 121475:               SELECT 2
13173 @ 121478:               ASSPAR
13174 @ 121479:               CALL  

  2657          %finish
  2658  !        compile(np0,np0)
13175 @ 121480:               LINE   2657 "regression-compile-tmp/chimps.imp"
13176 @ 121517:               LOCATE L_000c

  2659        %finish
13177 @ 121520:               LINE   2659 "regression-compile-tmp/chimps.imp"
13178 @ 121557:               LOCATE L_000a

  2660      %repeat %until %not a(comma)
13179 @ 121560:               LINE   2660 "regression-compile-tmp/chimps.imp"
13180 @ 121597:               PUSH   A
13181 @ 121600:               PUSHI  #0x0000003b
13182 @ 121605:               ASSPAR
13183 @ 121606:               CALL  
13184 @ 121607:               bf     L_0007
13185 @ 121610:               REPEAT L_0006
13186 @ 121613:               LOCATE L_0007

  2661    %finish
13187 @ 121616:               LINE   2661 "regression-compile-tmp/chimps.imp"
13188 @ 121653:               LOCATE L_0003

  2662    -> term
  2663  
13189 @ 121656:               LINE   2662 "regression-compile-tmp/chimps.imp"
13190 @ 121693:               JUMP   L_0117

  2664  %routine GET SWITCH DECLARATION
13191 @ 121696:               LINE   2664 "regression-compile-tmp/chimps.imp"
13192 @ 121733:               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
13193 @ 121765:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
13194 @ 121766:                  FINISH ) {lev=3}

  2665  %integer i,j,dlim1
13195 @ 121767:                  LINE   2665 "regression-compile-tmp/chimps.imp"
13196 @ 121804:                  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
13197 @ 121817:                  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
13198 @ 121830:                  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

  2666    matched = 1
13199 @ 121847:                  LINE   2666 "regression-compile-tmp/chimps.imp"
13200 @ 121884:                  PUSH   MATCHED
13201 @ 121887:                  PUSHI  #0x00000001
13202 @ 121892:                  ASSVAL

  2667    %cycle
13203 @ 121893:                  LINE   2667 "regression-compile-tmp/chimps.imp"
13204 @ 121930:                  LOCATE L_0003

  2668      d_flags = lab;  d_type = nulltype
13205 @ 121933:                  LINE   2668 "regression-compile-tmp/chimps.imp"
13206 @ 121970:                  PUSH   D
13207 @ 121973:                  SELECT 1
13208 @ 121976:                  PUSHI  #0x00000002
13209 @ 121981:                  ASSVAL
13210 @ 121982:                  LINE   2668 "regression-compile-tmp/chimps.imp"
13211 @ 122019:                  PUSH   D
13212 @ 122022:                  SELECT 2
13213 @ 122025:                  PUSHI  #0x000007f9
13214 @ 122030:                  ASSVAL

  2669      declmode = pcmode+wordsize<<sizeshift
13215 @ 122031:                  LINE   2669 "regression-compile-tmp/chimps.imp"
13216 @ 122068:                  PUSH   DECLMODE
13217 @ 122071:                  PUSHI  #0x0000003a
13218 @ 122076:                  PUSHI  #0x00000002
13219 @ 122081:                  PUSHI  #0x00000006
13220 @ 122086:                  LSH   
13221 @ 122087:                  ADD   
13222 @ 122088:                  ASSVAL

  2670      get IDENTLIST
13223 @ 122089:                  LINE   2670 "regression-compile-tmp/chimps.imp"
13224 @ 122126:                  PUSH   GETIDENTLIST
13225 @ 122129:                  CALL  

  2671      dlim1 = dlim
13226 @ 122130:                  LINE   2671 "regression-compile-tmp/chimps.imp"
13227 @ 122167:                  PUSH   DLIM1
13228 @ 122170:                  PUSH   DLIM
13229 @ 122173:                  ASSVAL

  2672      get LITBOUNDS
13230 @ 122174:                  LINE   2672 "regression-compile-tmp/chimps.imp"
13231 @ 122211:                  PUSH   GETLITBOUNDS
13232 @ 122214:                  CALL  

  2673      %cycle;  !For each ident in group
13233 @ 122215:                  LINE   2673 "regression-compile-tmp/chimps.imp"
13234 @ 122252:                  LOCATE L_0006

  2674        %exit %if spc-elements <= 0;  !ignore if too many
13235 @ 122255:                  LINE   2674 "regression-compile-tmp/chimps.imp"
13236 @ 122292:                  PUSH   SPC
13237 @ 122295:                  PUSH   ELEMENTS
13238 @ 122298:                  SUB   
13239 @ 122299:                  PUSHI  #0x00000000
13240 @ 122304:                  JUMPIF > L_000a
13241 @ 122308:                  GOTO   L_0007
13242 @ 122311:                  LOCATE L_000a

  2675        %for i = 1,1,elements %cycle
13243 @ 122314:                  LINE   2675 "regression-compile-tmp/chimps.imp"
13244 @ 122351:                  PUSH   I
13245 @ 122354:                  PUSHI  #0x00000001
13246 @ 122359:                  PUSH   ELEMENTS
13247 @ 122362:                  PUSHI  #0x00000001
13248 @ 122367:                  FOR    L_0009

  2676          spc = spc-1;  final(spc) = 0
13249 @ 122370:                  LINE   2676 "regression-compile-tmp/chimps.imp"
13250 @ 122407:                  PUSH   SPC
13251 @ 122410:                  PUSH   SPC
13252 @ 122413:                  PUSHI  #0x00000001
13253 @ 122418:                  SUB   
13254 @ 122419:                  ASSVAL
13255 @ 122420:                  LINE   2676 "regression-compile-tmp/chimps.imp"
13256 @ 122457:                  PUSH   FINAL
13257 @ 122460:                  PUSH   SPC
13258 @ 122463:                  ACCESS
13259 @ 122464:                  PUSHI  #0x00000000
13260 @ 122469:                  ASSVAL

  2677        %repeat
13261 @ 122470:                  LINE   2677 "regression-compile-tmp/chimps.imp"
13262 @ 122507:                  REPEAT L_0009
13263 @ 122510:                  LOCATE L_000a

  2678        dict(dlim0)_val = spc
13264 @ 122513:                  LINE   2678 "regression-compile-tmp/chimps.imp"
13265 @ 122550:                  PUSH   DICT
13266 @ 122553:                  PUSH   DLIM0
13267 @ 122556:                  ACCESS
13268 @ 122557:                  SELECT 7
13269 @ 122560:                  PUSH   SPC
13270 @ 122563:                  ASSVAL

  2679        dict(dlim0)_type = item
13271 @ 122564:                  LINE   2679 "regression-compile-tmp/chimps.imp"
13272 @ 122601:                  PUSH   DICT
13273 @ 122604:                  PUSH   DLIM0
13274 @ 122607:                  ACCESS
13275 @ 122608:                  SELECT 2
13276 @ 122611:                  PUSH   ITEM
13277 @ 122614:                  ASSVAL

  2680        dlim0 = dlim0+1
13278 @ 122615:                  LINE   2680 "regression-compile-tmp/chimps.imp"
13279 @ 122652:                  PUSH   DLIM0
13280 @ 122655:                  PUSH   DLIM0
13281 @ 122658:                  PUSHI  #0x00000001
13282 @ 122663:                  ADD   
13283 @ 122664:                  ASSVAL

  2681      %repeat %until dlim0 = dlim1
13284 @ 122665:                  LINE   2681 "regression-compile-tmp/chimps.imp"
13285 @ 122702:                  PUSH   DLIM0
13286 @ 122705:                  PUSH   DLIM1
13287 @ 122708:                  JUMPIF = L_0007
13288 @ 122712:                  REPEAT L_0006
13289 @ 122715:                  LOCATE L_0007

  2682    %repeat %until %not a(comma)
13290 @ 122718:                  LINE   2682 "regression-compile-tmp/chimps.imp"
13291 @ 122755:                  PUSH   A
13292 @ 122758:                  PUSHI  #0x0000003b
13293 @ 122763:                  ASSPAR
13294 @ 122764:                  CALL  
13295 @ 122765:                  bf     L_0004
13296 @ 122768:                  REPEAT L_0003
13297 @ 122771:                  LOCATE L_0004

  2683  %end
13298 @ 122774:                  LINE   2683 "regression-compile-tmp/chimps.imp"
13299 @ 122811:               END    _ECCECI_GETSTATEMENTS_GETSWITCHDECLARATION {lev=3 --> 2}

  2684  initial(keyswitch):
13300 @ 122812:               LINE   2684 "regression-compile-tmp/chimps.imp"
13301 @ 122849:               PUSHI  #0x00000025
13302 @ 122854:               SLABEL 272

  2685    get SWITCH DECLARATION
13303 @ 122857:               LINE   2685 "regression-compile-tmp/chimps.imp"
13304 @ 122894:               PUSH   GETSWITCHDECLARATION
13305 @ 122897:               CALL  

  2686    ->term
  2687  
  2688  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  2689  !!!!!!!!!!!!!!!  Control statements  !!!!!!!!!!!!!!!!!!!!!!!!!!!
  2690  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  2691  !
13306 @ 122898:               LINE   2686 "regression-compile-tmp/chimps.imp"
13307 @ 122935:               JUMP   L_0117

  2692  initial(keycontrol):
13308 @ 122938:               LINE   2692 "regression-compile-tmp/chimps.imp"
13309 @ 122975:               PUSHI  #0x0000002a
13310 @ 122980:               SLABEL 272

  2693    get LITINT
13311 @ 122983:               LINE   2693 "regression-compile-tmp/chimps.imp"
13312 @ 123020:               PUSH   GETLITINT
13313 @ 123023:               CALL  

  2694    control = 0 %if t_val = 0
13314 @ 123024:               LINE   2694 "regression-compile-tmp/chimps.imp"
13315 @ 123061:               PUSH   T
13316 @ 123064:               SELECT 7
13317 @ 123067:               PUSHI  #0x00000000
13318 @ 123072:               JUMPIF # L_0004
13319 @ 123076:               PUSH   CONTROL
13320 @ 123079:               PUSHI  #0x00000000
13321 @ 123084:               ASSVAL
13322 @ 123085:               LOCATE L_0004

  2695    control = control!!t_val
13323 @ 123088:               LINE   2695 "regression-compile-tmp/chimps.imp"
13324 @ 123125:               PUSH   CONTROL
13325 @ 123128:               PUSH   CONTROL
13326 @ 123131:               PUSH   T
13327 @ 123134:               SELECT 7
13328 @ 123137:               XOR   
13329 @ 123138:               ASSVAL

  2696    ->term
  2697  
13330 @ 123139:               LINE   2696 "regression-compile-tmp/chimps.imp"
13331 @ 123176:               JUMP   L_0117

  2698  initial(include):
13332 @ 123179:               LINE   2698 "regression-compile-tmp/chimps.imp"
13333 @ 123216:               PUSHI  #0x0000002d
13334 @ 123221:               SLABEL 272

  2699    get LITSTRING
13335 @ 123224:               LINE   2699 "regression-compile-tmp/chimps.imp"
13336 @ 123261:               PUSH   GETLITSTRING
13337 @ 123264:               CALL  

  2700    extra_name = ""
13338 @ 123265:               LINE   2700 "regression-compile-tmp/chimps.imp"
13339 @ 123302:               PUSH   EXTRA
13340 @ 123305:               SELECT 19
13341 @ 123308:               PUSHS  ""
13342 @ 123310:               ASSVAL

  2701    %while t_val > 0 %cycle
13343 @ 123311:               LINE   2701 "regression-compile-tmp/chimps.imp"
13344 @ 123348:               LOCATE L_0003
13345 @ 123351:               PUSH   T
13346 @ 123354:               SELECT 7
13347 @ 123357:               PUSHI  #0x00000000
13348 @ 123362:               JUMPIF <= L_0004

  2702      extra_name = extra_name.tostring(byteinteger(atomp))
13349 @ 123366:               LINE   2702 "regression-compile-tmp/chimps.imp"
13350 @ 123403:               PUSH   EXTRA
13351 @ 123406:               SELECT 19
13352 @ 123409:               PUSH   EXTRA
13353 @ 123412:               SELECT 19
13354 @ 123415:               PUSH   TOSTRING
13355 @ 123418:               PUSH   BYTEINTEGER
13356 @ 123421:               PUSH   ATOMP
13357 @ 123424:               ASSPAR
13358 @ 123425:               CALL  
13359 @ 123426:               ASSPAR
13360 @ 123427:               CALL  
13361 @ 123428:               CONCAT
13362 @ 123429:               ASSVAL

  2703      atomp = atomp+1;  t_val = t_val-1
13363 @ 123430:               LINE   2703 "regression-compile-tmp/chimps.imp"
13364 @ 123467:               PUSH   ATOMP
13365 @ 123470:               PUSH   ATOMP
13366 @ 123473:               PUSHI  #0x00000001
13367 @ 123478:               ADD   
13368 @ 123479:               ASSVAL
13369 @ 123480:               LINE   2703 "regression-compile-tmp/chimps.imp"
13370 @ 123517:               PUSH   T
13371 @ 123520:               SELECT 7
13372 @ 123523:               PUSH   T
13373 @ 123526:               SELECT 7
13374 @ 123529:               PUSHI  #0x00000001
13375 @ 123534:               SUB   
13376 @ 123535:               ASSVAL

  2704    %repeat
13377 @ 123536:               LINE   2704 "regression-compile-tmp/chimps.imp"
13378 @ 123573:               REPEAT L_0003
13379 @ 123576:               LOCATE L_0004

  2705    get(terminator)
13380 @ 123579:               LINE   2705 "regression-compile-tmp/chimps.imp"
13381 @ 123616:               PUSH   GET
13382 @ 123619:               PUSHI  #0x00000034
13383 @ 123624:               ASSPAR
13384 @ 123625:               CALL  

  2706    %if faultnum = 0 %start
13385 @ 123626:               LINE   2706 "regression-compile-tmp/chimps.imp"
13386 @ 123663:               PUSH   FAULTNUM
13387 @ 123666:               PUSHI  #0x00000000
13388 @ 123671:               JUMPIF # L_0004

  2707      connect edfile(extra)
13389 @ 123675:               LINE   2707 "regression-compile-tmp/chimps.imp"
13390 @ 123712:               PUSH   CONNECTEDFILE
13391 @ 123715:               PUSH   EXTRA
13392 @ 123718:               ASSPAR
13393 @ 123719:               CALL  

  2708      nonstop = -999 %and %signal 12 %if extra_flag # 0
13394 @ 123720:               LINE   2708 "regression-compile-tmp/chimps.imp"
13395 @ 123757:               PUSH   EXTRA
13396 @ 123760:               SELECT 9
13397 @ 123763:               PUSHI  #0x00000000
13398 @ 123768:               JUMPIF = L_0007
13399 @ 123772:               PUSH   NONSTOP
13400 @ 123775:               PUSHI  #0x000003e7
13401 @ 123780:               NEGATE
13402 @ 123781:               ASSVAL
13403 @ 123782:               EVENT  000c
13404 @ 123785:               LOCATE L_0007

  2709      mainfp = fp;  mainline = line
13405 @ 123788:               LINE   2709 "regression-compile-tmp/chimps.imp"
13406 @ 123825:               PUSH   MAINFP
13407 @ 123828:               PUSH   FP
13408 @ 123831:               ASSVAL
13409 @ 123832:               LINE   2709 "regression-compile-tmp/chimps.imp"
13410 @ 123869:               PUSH   MAINLINE
13411 @ 123872:               PUSH   LINE
13412 @ 123875:               ASSVAL

  2710      line = 0;  sym = nl
13413 @ 123876:               LINE   2710 "regression-compile-tmp/chimps.imp"
13414 @ 123913:               PUSH   LINE
13415 @ 123916:               PUSHI  #0x00000000
13416 @ 123921:               ASSVAL
13417 @ 123922:               LINE   2710 "regression-compile-tmp/chimps.imp"
13418 @ 123959:               PUSH   SYM
13419 @ 123962:               PUSHI  #0x0000000a
13420 @ 123967:               ASSVAL

  2711      fp = extra_start2;  curstart = fp;  curlim = extra_lim2
13421 @ 123968:               LINE   2711 "regression-compile-tmp/chimps.imp"
13422 @ 124005:               PUSH   FP
13423 @ 124008:               PUSH   EXTRA
13424 @ 124011:               SELECT 3
13425 @ 124014:               ASSVAL
13426 @ 124015:               LINE   2711 "regression-compile-tmp/chimps.imp"
13427 @ 124052:               PUSH   CURSTART
13428 @ 124055:               PUSH   FP
13429 @ 124058:               ASSVAL
13430 @ 124059:               LINE   2711 "regression-compile-tmp/chimps.imp"
13431 @ 124096:               PUSH   CURLIM
13432 @ 124099:               PUSH   EXTRA
13433 @ 124102:               SELECT 4
13434 @ 124105:               ASSVAL

  2712      modesym = '&';  nonstop = nonstop+1
13435 @ 124106:               LINE   2712 "regression-compile-tmp/chimps.imp"
13436 @ 124143:               PUSH   MODESYM
13437 @ 124146:               PUSHI  #0x00000026
13438 @ 124151:               ASSVAL
13439 @ 124152:               LINE   2712 "regression-compile-tmp/chimps.imp"
13440 @ 124189:               PUSH   NONSTOP
13441 @ 124192:               PUSH   NONSTOP
13442 @ 124195:               PUSHI  #0x00000001
13443 @ 124200:               ADD   
13444 @ 124201:               ASSVAL

  2713    %finish
13445 @ 124202:               LINE   2713 "regression-compile-tmp/chimps.imp"
13446 @ 124239:               LOCATE L_0004

  2714    ->next
  2715  
13447 @ 124242:               LINE   2714 "regression-compile-tmp/chimps.imp"
13448 @ 124279:               JUMP   L_0115

  2716  initial(keylist):
13449 @ 124282:               LINE   2716 "regression-compile-tmp/chimps.imp"
13450 @ 124319:               PUSHI  #0x00000029
13451 @ 124324:               SLABEL 272

  2717    ->term
  2718  
13452 @ 124327:               LINE   2717 "regression-compile-tmp/chimps.imp"
13453 @ 124364:               JUMP   L_0117

  2719  initial(begin):
13454 @ 124367:               LINE   2719 "regression-compile-tmp/chimps.imp"
13455 @ 124404:               PUSHI  #0x00000005
13456 @ 124409:               SLABEL 272

  2720    c_sp = -8
13457 @ 124412:               LINE   2720 "regression-compile-tmp/chimps.imp"
13458 @ 124449:               PUSH   C
13459 @ 124452:               SELECT 1
13460 @ 124455:               PUSHI  #0x00000008
13461 @ 124460:               NEGATE
13462 @ 124461:               ASSVAL

  2721    get(terminator)
13463 @ 124462:               LINE   2721 "regression-compile-tmp/chimps.imp"
13464 @ 124499:               PUSH   GET
13465 @ 124502:               PUSHI  #0x00000034
13466 @ 124507:               ASSPAR
13467 @ 124508:               CALL  

  2722    open block(0)
13468 @ 124509:               LINE   2722 "regression-compile-tmp/chimps.imp"
13469 @ 124546:               PUSH   OPENBLOCK
13470 @ 124549:               PUSHI  #0x00000000
13471 @ 124554:               ASSPAR
13472 @ 124555:               CALL  

  2723    get STATEMENTS(0)
13473 @ 124556:               LINE   2723 "regression-compile-tmp/chimps.imp"
13474 @ 124593:               PUSH   GETSTATEMENTS
13475 @ 124596:               PUSHI  #0x00000000
13476 @ 124601:               ASSPAR
13477 @ 124602:               CALL  

  2724    close block
13478 @ 124603:               LINE   2724 "regression-compile-tmp/chimps.imp"
13479 @ 124640:               PUSH   CLOSEBLOCK
13480 @ 124643:               CALL  

  2725    -> term %if stopper >= 0
13481 @ 124644:               LINE   2725 "regression-compile-tmp/chimps.imp"
13482 @ 124681:               PUSH   STOPPER
13483 @ 124684:               PUSHI  #0x00000000
13484 @ 124689:               JUMPIF < L_0004
13485 @ 124693:               JUMP   L_0117
13486 @ 124696:               LOCATE L_0004

  2726    %return
  2727  
13487 @ 124699:               LINE   2726 "regression-compile-tmp/chimps.imp"
13488 @ 124736:               RETURN

  2728  initial(end):
13489 @ 124737:               LINE   2728 "regression-compile-tmp/chimps.imp"
13490 @ 124774:               PUSHI  #0x00000001
13491 @ 124779:               SLABEL 272

  2729    %if %not a(of) %start
13492 @ 124782:               LINE   2729 "regression-compile-tmp/chimps.imp"
13493 @ 124819:               PUSH   A
13494 @ 124822:               PUSHI  #0x00000026
13495 @ 124827:               ASSPAR
13496 @ 124828:               CALL  
13497 @ 124829:               bt     L_0004

  2730      fault(nofinish) %if stopper = else %or stopper = finish
13498 @ 124832:               LINE   2730 "regression-compile-tmp/chimps.imp"
13499 @ 124869:               PUSH   STOPPER
13500 @ 124872:               PUSHI  #0x00000004
13501 @ 124877:               JUMPIF = L_0008
13502 @ 124881:               PUSH   STOPPER
13503 @ 124884:               PUSHI  #0x00000003
13504 @ 124889:               JUMPIF # L_0007
13505 @ 124893:               LOCATE L_0008
13506 @ 124896:               PUSH   FAULT
13507 @ 124899:               PUSHI  #0x0000002b
13508 @ 124904:               ASSPAR
13509 @ 124905:               CALL  
13510 @ 124906:               LOCATE L_0007

  2731      fault(norepeat) %if stopper = repeat
13511 @ 124909:               LINE   2731 "regression-compile-tmp/chimps.imp"
13512 @ 124946:               PUSH   STOPPER
13513 @ 124949:               PUSHI  #0x00000002
13514 @ 124954:               JUMPIF # L_0007
13515 @ 124958:               PUSH   FAULT
13516 @ 124961:               PUSHI  #0x0000002c
13517 @ 124966:               ASSPAR
13518 @ 124967:               CALL  
13519 @ 124968:               LOCATE L_0007

  2732      %return %if stopper >= 0
13520 @ 124971:               LINE   2732 "regression-compile-tmp/chimps.imp"
13521 @ 125008:               PUSH   STOPPER
13522 @ 125011:               PUSHI  #0x00000000
13523 @ 125016:               JUMPIF < L_0007
13524 @ 125020:               RETURN
13525 @ 125021:               LOCATE L_0007

  2733      fault(nobegin)
13526 @ 125024:               LINE   2733 "regression-compile-tmp/chimps.imp"
13527 @ 125061:               PUSH   FAULT
13528 @ 125064:               PUSHI  #0x00000029
13529 @ 125069:               ASSPAR
13530 @ 125070:               CALL  

  2734      ->term
13531 @ 125071:               LINE   2734 "regression-compile-tmp/chimps.imp"
13532 @ 125108:               JUMP   L_0117

  2735    %finish
13533 @ 125111:               LINE   2735 "regression-compile-tmp/chimps.imp"
13534 @ 125148:               LOCATE L_0004

  2736    %if a(keylist) %start
13535 @ 125151:               LINE   2736 "regression-compile-tmp/chimps.imp"
13536 @ 125188:               PUSH   A
13537 @ 125191:               PUSHI  #0x00000029
13538 @ 125196:               ASSPAR
13539 @ 125197:               CALL  
13540 @ 125198:               bf     L_0004

  2737      ->term
13541 @ 125201:               LINE   2737 "regression-compile-tmp/chimps.imp"
13542 @ 125238:               JUMP   L_0117

  2738    %finish
13543 @ 125241:               LINE   2738 "regression-compile-tmp/chimps.imp"
13544 @ 125278:               LOCATE L_0004

  2739    %if a(keyfile) %start
13545 @ 125281:               LINE   2739 "regression-compile-tmp/chimps.imp"
13546 @ 125318:               PUSH   A
13547 @ 125321:               PUSHI  #0x00000027
13548 @ 125326:               ASSPAR
13549 @ 125327:               CALL  
13550 @ 125328:               bf     L_0004

  2740      %if curlim = extra_lim2 %start
13551 @ 125331:               LINE   2740 "regression-compile-tmp/chimps.imp"
13552 @ 125368:               PUSH   CURLIM
13553 @ 125371:               PUSH   EXTRA
13554 @ 125374:               SELECT 4
13555 @ 125377:               JUMPIF # L_0007

  2741        switch input
13556 @ 125381:               LINE   2741 "regression-compile-tmp/chimps.imp"
13557 @ 125418:               PUSH   SWITCHINPUT
13558 @ 125421:               CALL  

  2742        ->next
13559 @ 125422:               LINE   2742 "regression-compile-tmp/chimps.imp"
13560 @ 125459:               JUMP   L_0115

  2743      %finish
13561 @ 125462:               LINE   2743 "regression-compile-tmp/chimps.imp"
13562 @ 125499:               LOCATE L_0007

  2744    %finish %else get(program)
13563 @ 125502:               LINE   2744 "regression-compile-tmp/chimps.imp"
13564 @ 125539:               GOTO   L_0003
13565 @ 125542:               LOCATE L_0004
13566 @ 125545:               PUSH   GET
13567 @ 125548:               PUSHI  #0x00000028
13568 @ 125553:               ASSPAR
13569 @ 125554:               CALL  
13570 @ 125555:               LOCATE L_0003

  2745  %end;  !GET STATEMENTS
  2746  
13571 @ 125558:               LINE   2745 "regression-compile-tmp/chimps.imp"
13572 @ 125595:            END    _ECCECI_GETSTATEMENTS {lev=2 --> 1}

  2747  %routine INIT(%integer t,l,h)
13573 @ 125596:            LINE   2747 "regression-compile-tmp/chimps.imp"
13574 @ 125633:            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
13575 @ 125649:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
13576 @ 125650:                  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
13577 @ 125663:                  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
13578 @ 125676:                  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
13579 @ 125689:               FINISH ) {lev=2}

  2748    d_flags = typeid;  d_type = t;  d_low = l;  d_val = h
13580 @ 125690:               LINE   2748 "regression-compile-tmp/chimps.imp"
13581 @ 125727:               PUSH   D
13582 @ 125730:               SELECT 1
13583 @ 125733:               PUSHI  #0x00000100
13584 @ 125738:               ASSVAL
13585 @ 125739:               LINE   2748 "regression-compile-tmp/chimps.imp"
13586 @ 125776:               PUSH   D
13587 @ 125779:               SELECT 2
13588 @ 125782:               PUSH   T
13589 @ 125785:               ASSVAL
13590 @ 125786:               LINE   2748 "regression-compile-tmp/chimps.imp"
13591 @ 125823:               PUSH   D
13592 @ 125826:               SELECT 6
13593 @ 125829:               PUSH   L
13594 @ 125832:               ASSVAL
13595 @ 125833:               LINE   2748 "regression-compile-tmp/chimps.imp"
13596 @ 125870:               PUSH   D
13597 @ 125873:               SELECT 7
13598 @ 125876:               PUSH   H
13599 @ 125879:               ASSVAL

  2749    dict(dlim) = d;  dlim = dlim+1
13600 @ 125880:               LINE   2749 "regression-compile-tmp/chimps.imp"
13601 @ 125917:               PUSH   DICT
13602 @ 125920:               PUSH   DLIM
13603 @ 125923:               ACCESS
13604 @ 125924:               PUSH   D
13605 @ 125927:               ASSVAL
13606 @ 125928:               LINE   2749 "regression-compile-tmp/chimps.imp"
13607 @ 125965:               PUSH   DLIM
13608 @ 125968:               PUSH   DLIM
13609 @ 125971:               PUSHI  #0x00000001
13610 @ 125976:               ADD   
13611 @ 125977:               ASSVAL

  2750  %end
  2751  
13612 @ 125978:               LINE   2750 "regression-compile-tmp/chimps.imp"
13613 @ 126015:            END    _ECCECI_INIT {lev=2 --> 1}

  2752  %on %event 12 %start
13614 @ 126016:            LINE   2752 "regression-compile-tmp/chimps.imp"
13615 @ 126053:            ON     MASK=1000 L_0004

  2753    -> printout %if fp = main_lim2
13616 @ 126059:            LINE   2753 "regression-compile-tmp/chimps.imp"
13617 @ 126096:            PUSH   FP
13618 @ 126099:            PUSH   MAIN
13619 @ 126102:            SELECT 4
13620 @ 126105:            JUMPIF # L_0007
13621 @ 126109:            JUMP   L_010e
13622 @ 126112:            LOCATE L_0007

  2754    -> ended %if main_flag < 0 %or nonstop = -999;  !abandon or CROAK
13623 @ 126115:            LINE   2754 "regression-compile-tmp/chimps.imp"
13624 @ 126152:            PUSH   MAIN
13625 @ 126155:            SELECT 9
13626 @ 126158:            PUSHI  #0x00000000
13627 @ 126163:            JUMPIF < L_0008
13628 @ 126167:            PUSH   NONSTOP
13629 @ 126170:            PUSHI  #0x000003e7
13630 @ 126175:            NEGATE
13631 @ 126176:            JUMPIF # L_0007
13632 @ 126180:            LOCATE L_0008
13633 @ 126183:            JUMP   L_010f
13634 @ 126186:            LOCATE L_0007

  2755    change = main_change
13635 @ 126189:            LINE   2755 "regression-compile-tmp/chimps.imp"
13636 @ 126226:            PUSH   CHANGE
13637 @ 126229:            PUSH   MAIN
13638 @ 126232:            SELECT 8
13639 @ 126235:            ASSVAL

  2756  %finish
  2757  
13640 @ 126236:            LINE   2756 "regression-compile-tmp/chimps.imp"
13641 @ 126273:            LOCATE L_0004

  2758    printstring("  IMP Checker  ");  newline
13642 @ 126276:            LINE   2758 "regression-compile-tmp/chimps.imp"
13643 @ 126313:            PUSH   PRINTSTRING
13644 @ 126316:            PUSHS  "  IMP Checker  "
13645 @ 126333:            ASSPAR
13646 @ 126334:            CALL  
13647 @ 126335:            LINE   2758 "regression-compile-tmp/chimps.imp"
13648 @ 126372:            PUSH   NEWLINE
13649 @ 126375:            CALL  

  2759    hashindex(i) = 0 %for i = 0,1,255;  !hash table empty
13650 @ 126376:            LINE   2759 "regression-compile-tmp/chimps.imp"
13651 @ 126413:            PUSH   I
13652 @ 126416:            PUSHI  #0x00000001
13653 @ 126421:            PUSHI  #0x000000ff
13654 @ 126426:            PUSHI  #0x00000000
13655 @ 126431:            FOR    L_0003
13656 @ 126434:            PUSH   HASHINDEX
13657 @ 126437:            PUSH   I
13658 @ 126440:            ACCESS
13659 @ 126441:            PUSHI  #0x00000000
13660 @ 126446:            ASSVAL
13661 @ 126447:            REPEAT L_0003
13662 @ 126450:            LOCATE L_0004

  2760    charbase = addr(char(0));  byteinteger(charbase) = 0;  !for anon ident
13663 @ 126453:            LINE   2760 "regression-compile-tmp/chimps.imp"
13664 @ 126490:            PUSH   CHARBASE
13665 @ 126493:            PUSH   ADDR
13666 @ 126496:            PUSH   CHAR
13667 @ 126499:            PUSHI  #0x00000000
13668 @ 126504:            ACCESS
13669 @ 126505:            ASSPAR
13670 @ 126506:            CALL  
13671 @ 126507:            ASSVAL
13672 @ 126508:            LINE   2760 "regression-compile-tmp/chimps.imp"
13673 @ 126545:            PUSH   BYTEINTEGER
13674 @ 126548:            PUSH   CHARBASE
13675 @ 126551:            ASSPAR
13676 @ 126552:            CALL  
13677 @ 126553:            PUSHI  #0x00000000
13678 @ 126558:            ASSVAL

  2761    charlim = charbase+1
13679 @ 126559:            LINE   2761 "regression-compile-tmp/chimps.imp"
13680 @ 126596:            PUSH   CHARLIM
13681 @ 126599:            PUSH   CHARBASE
13682 @ 126602:            PUSHI  #0x00000001
13683 @ 126607:            ADD   
13684 @ 126608:            ASSVAL

  2762    charmin = charlim+charbound;  !(1 over top)
13685 @ 126609:            LINE   2762 "regression-compile-tmp/chimps.imp"
13686 @ 126646:            PUSH   CHARMIN
13687 @ 126649:            PUSH   CHARLIM
13688 @ 126652:            PUSHI  #0x00001770
13689 @ 126657:            ADD   
13690 @ 126658:            ASSVAL

  2763    dict(i)_val = 0 %for i = d0,1,labmax
13691 @ 126659:            LINE   2763 "regression-compile-tmp/chimps.imp"
13692 @ 126696:            PUSH   I
13693 @ 126699:            PUSHI  #0x00000001
13694 @ 126704:            PUSHI  #0x00000cb6
13695 @ 126709:            PUSHI  #0x000007d1
13696 @ 126714:            FOR    L_0003
13697 @ 126717:            PUSH   DICT
13698 @ 126720:            PUSH   I
13699 @ 126723:            ACCESS
13700 @ 126724:            SELECT 7
13701 @ 126727:            PUSHI  #0x00000000
13702 @ 126732:            ASSVAL
13703 @ 126733:            REPEAT L_0003
13704 @ 126736:            LOCATE L_0004

  2764    d_flags = typeid;  d_low = minint;  d_val = maxint
13705 @ 126739:            LINE   2764 "regression-compile-tmp/chimps.imp"
13706 @ 126776:            PUSH   D
13707 @ 126779:            SELECT 1
13708 @ 126782:            PUSHI  #0x00000100
13709 @ 126787:            ASSVAL
13710 @ 126788:            LINE   2764 "regression-compile-tmp/chimps.imp"
13711 @ 126825:            PUSH   D
13712 @ 126828:            SELECT 6
13713 @ 126831:            PUSHI  #0x80000000
13714 @ 126836:            ASSVAL
13715 @ 126837:            LINE   2764 "regression-compile-tmp/chimps.imp"
13716 @ 126874:            PUSH   D
13717 @ 126877:            SELECT 7
13718 @ 126880:            PUSHI  #0x7fffffff
13719 @ 126885:            ASSVAL

  2765    dmin = dictmax-1;  dlim = dictmin
13720 @ 126886:            LINE   2765 "regression-compile-tmp/chimps.imp"
13721 @ 126923:            PUSH   DMIN
13722 @ 126926:            PUSHI  #0x00000ca1
13723 @ 126931:            PUSHI  #0x00000001
13724 @ 126936:            SUB   
13725 @ 126937:            ASSVAL
13726 @ 126938:            LINE   2765 "regression-compile-tmp/chimps.imp"
13727 @ 126975:            PUSH   DLIM
13728 @ 126978:            PUSHI  #0x000007f9
13729 @ 126983:            ASSVAL

  2766    %cycle
13730 @ 126984:            LINE   2766 "regression-compile-tmp/chimps.imp"
13731 @ 127021:            LOCATE L_0003

  2767      d_type = dlim;  dict(dlim) = d
13732 @ 127024:            LINE   2767 "regression-compile-tmp/chimps.imp"
13733 @ 127061:            PUSH   D
13734 @ 127064:            SELECT 2
13735 @ 127067:            PUSH   DLIM
13736 @ 127070:            ASSVAL
13737 @ 127071:            LINE   2767 "regression-compile-tmp/chimps.imp"
13738 @ 127108:            PUSH   DICT
13739 @ 127111:            PUSH   DLIM
13740 @ 127114:            ACCESS
13741 @ 127115:            PUSH   D
13742 @ 127118:            ASSVAL

  2768      dlim = dlim+1
13743 @ 127119:            LINE   2768 "regression-compile-tmp/chimps.imp"
13744 @ 127156:            PUSH   DLIM
13745 @ 127159:            PUSH   DLIM
13746 @ 127162:            PUSHI  #0x00000001
13747 @ 127167:            ADD   
13748 @ 127168:            ASSVAL

  2769    %repeat %until dlim > booltype
13749 @ 127169:            LINE   2769 "regression-compile-tmp/chimps.imp"
13750 @ 127206:            PUSH   DLIM
13751 @ 127209:            PUSHI  #0x00000800
13752 @ 127214:            JUMPIF > L_0004
13753 @ 127218:            REPEAT L_0003
13754 @ 127221:            LOCATE L_0004

  2770    d_flags = 0
13755 @ 127224:            LINE   2770 "regression-compile-tmp/chimps.imp"
13756 @ 127261:            PUSH   D
13757 @ 127264:            SELECT 1
13758 @ 127267:            PUSHI  #0x00000000
13759 @ 127272:            ASSVAL

  2771    init(booltype,0,0)
13760 @ 127273:            LINE   2771 "regression-compile-tmp/chimps.imp"
13761 @ 127310:            PUSH   INIT
13762 @ 127313:            PUSHI  #0x00000800
13763 @ 127318:            ASSPAR
13764 @ 127319:            PUSHI  #0x00000000
13765 @ 127324:            ASSPAR
13766 @ 127325:            PUSHI  #0x00000000
13767 @ 127330:            ASSPAR
13768 @ 127331:            CALL  

  2772    init(booltype,0,1)
13769 @ 127332:            LINE   2772 "regression-compile-tmp/chimps.imp"
13770 @ 127369:            PUSH   INIT
13771 @ 127372:            PUSHI  #0x00000800
13772 @ 127377:            ASSPAR
13773 @ 127378:            PUSHI  #0x00000000
13774 @ 127383:            ASSPAR
13775 @ 127384:            PUSHI  #0x00000001
13776 @ 127389:            ASSPAR
13777 @ 127390:            CALL  

  2773    d_flags = typeid
13778 @ 127391:            LINE   2773 "regression-compile-tmp/chimps.imp"
13779 @ 127428:            PUSH   D
13780 @ 127431:            SELECT 1
13781 @ 127434:            PUSHI  #0x00000100
13782 @ 127439:            ASSVAL

  2774    init(inty,minint,maxint)
13783 @ 127440:            LINE   2774 "regression-compile-tmp/chimps.imp"
13784 @ 127477:            PUSH   INIT
13785 @ 127480:            PUSHI  #0x000007fe
13786 @ 127485:            ASSPAR
13787 @ 127486:            PUSHI  #0x80000000
13788 @ 127491:            ASSPAR
13789 @ 127492:            PUSHI  #0x7fffffff
13790 @ 127497:            ASSPAR
13791 @ 127498:            CALL  

  2775    init(inty,-32768,32767)
13792 @ 127499:            LINE   2775 "regression-compile-tmp/chimps.imp"
13793 @ 127536:            PUSH   INIT
13794 @ 127539:            PUSHI  #0x000007fe
13795 @ 127544:            ASSPAR
13796 @ 127545:            PUSHI  #0x00008000
13797 @ 127550:            NEGATE
13798 @ 127551:            ASSPAR
13799 @ 127552:            PUSHI  #0x00007fff
13800 @ 127557:            ASSPAR
13801 @ 127558:            CALL  

  2776    init(inty,0,65535)
13802 @ 127559:            LINE   2776 "regression-compile-tmp/chimps.imp"
13803 @ 127596:            PUSH   INIT
13804 @ 127599:            PUSHI  #0x000007fe
13805 @ 127604:            ASSPAR
13806 @ 127605:            PUSHI  #0x00000000
13807 @ 127610:            ASSPAR
13808 @ 127611:            PUSHI  #0x0000ffff
13809 @ 127616:            ASSPAR
13810 @ 127617:            CALL  

  2777    init(inty,0,255)
13811 @ 127618:            LINE   2777 "regression-compile-tmp/chimps.imp"
13812 @ 127655:            PUSH   INIT
13813 @ 127658:            PUSHI  #0x000007fe
13814 @ 127663:            ASSPAR
13815 @ 127664:            PUSHI  #0x00000000
13816 @ 127669:            ASSPAR
13817 @ 127670:            PUSHI  #0x000000ff
13818 @ 127675:            ASSPAR
13819 @ 127676:            CALL  

  2778    init(inty,-128,127)
13820 @ 127677:            LINE   2778 "regression-compile-tmp/chimps.imp"
13821 @ 127714:            PUSH   INIT
13822 @ 127717:            PUSHI  #0x000007fe
13823 @ 127722:            ASSPAR
13824 @ 127723:            PUSHI  #0x00000080
13825 @ 127728:            NEGATE
13826 @ 127729:            ASSPAR
13827 @ 127730:            PUSHI  #0x0000007f
13828 @ 127735:            ASSPAR
13829 @ 127736:            CALL  

  2779    init(inty,0,1)
13830 @ 127737:            LINE   2779 "regression-compile-tmp/chimps.imp"
13831 @ 127774:            PUSH   INIT
13832 @ 127777:            PUSHI  #0x000007fe
13833 @ 127782:            ASSPAR
13834 @ 127783:            PUSHI  #0x00000000
13835 @ 127788:            ASSPAR
13836 @ 127789:            PUSHI  #0x00000001
13837 @ 127794:            ASSPAR
13838 @ 127795:            CALL  

  2780    init(inty,minint,maxint)
13839 @ 127796:            LINE   2780 "regression-compile-tmp/chimps.imp"
13840 @ 127833:            PUSH   INIT
13841 @ 127836:            PUSHI  #0x000007fe
13842 @ 127841:            ASSPAR
13843 @ 127842:            PUSHI  #0x80000000
13844 @ 127847:            ASSPAR
13845 @ 127848:            PUSHI  #0x7fffffff
13846 @ 127853:            ASSPAR
13847 @ 127854:            CALL  

  2781    init(realy,minint,maxint)
13848 @ 127855:            LINE   2781 "regression-compile-tmp/chimps.imp"
13849 @ 127892:            PUSH   INIT
13850 @ 127895:            PUSHI  #0x000007fd
13851 @ 127900:            ASSPAR
13852 @ 127901:            PUSHI  #0x80000000
13853 @ 127906:            ASSPAR
13854 @ 127907:            PUSHI  #0x7fffffff
13855 @ 127912:            ASSPAR
13856 @ 127913:            CALL  

  2782    init(realy,minint,maxint)
13857 @ 127914:            LINE   2782 "regression-compile-tmp/chimps.imp"
13858 @ 127951:            PUSH   INIT
13859 @ 127954:            PUSHI  #0x000007fd
13860 @ 127959:            ASSPAR
13861 @ 127960:            PUSHI  #0x80000000
13862 @ 127965:            ASSPAR
13863 @ 127966:            PUSHI  #0x7fffffff
13864 @ 127971:            ASSPAR
13865 @ 127972:            CALL  

  2783    c = 0;  c_localdpos = dlim;  c_parlim = dlim
13866 @ 127973:            LINE   2783 "regression-compile-tmp/chimps.imp"
13867 @ 128010:            PUSH   C
13868 @ 128013:            PUSHI  #0x00000000
13869 @ 128018:            ASSVAL
13870 @ 128019:            LINE   2783 "regression-compile-tmp/chimps.imp"
13871 @ 128056:            PUSH   C
13872 @ 128059:            SELECT 6
13873 @ 128062:            PUSH   DLIM
13874 @ 128065:            ASSVAL
13875 @ 128066:            LINE   2783 "regression-compile-tmp/chimps.imp"
13876 @ 128103:            PUSH   C
13877 @ 128106:            SELECT 7
13878 @ 128109:            PUSH   DLIM
13879 @ 128112:            ASSVAL

  2784    level = outerlevel
13880 @ 128113:            LINE   2784 "regression-compile-tmp/chimps.imp"
13881 @ 128150:            PUSH   LEVEL
13882 @ 128153:            PUSHI  #0x00000000
13883 @ 128158:            ASSVAL

  2785    spc = finalbound
13884 @ 128159:            LINE   2785 "regression-compile-tmp/chimps.imp"
13885 @ 128196:            PUSH   SPC
13886 @ 128199:            PUSHI  #0x00002000
13887 @ 128204:            ASSVAL

  2786    faults = 0;  line = 0;  mainline = 0
  2787  !
13888 @ 128205:            LINE   2786 "regression-compile-tmp/chimps.imp"
13889 @ 128242:            PUSH   FAULTS
13890 @ 128245:            PUSHI  #0x00000000
13891 @ 128250:            ASSVAL
13892 @ 128251:            LINE   2786 "regression-compile-tmp/chimps.imp"
13893 @ 128288:            PUSH   LINE
13894 @ 128291:            PUSHI  #0x00000000
13895 @ 128296:            ASSVAL
13896 @ 128297:            LINE   2786 "regression-compile-tmp/chimps.imp"
13897 @ 128334:            PUSH   MAINLINE
13898 @ 128337:            PUSHI  #0x00000000
13899 @ 128342:            ASSVAL

  2788    mainfp = main_start1
13900 @ 128343:            LINE   2788 "regression-compile-tmp/chimps.imp"
13901 @ 128380:            PUSH   MAINFP
13902 @ 128383:            PUSH   MAIN
13903 @ 128386:            SELECT 1
13904 @ 128389:            ASSVAL

  2789    extra_name = permfile
13905 @ 128390:            LINE   2789 "regression-compile-tmp/chimps.imp"
13906 @ 128427:            PUSH   EXTRA
13907 @ 128430:            SELECT 19
13908 @ 128433:            PUSH   PERMFILE
13909 @ 128436:            ASSVAL

  2790    connect edfile(extra)
13910 @ 128437:            LINE   2790 "regression-compile-tmp/chimps.imp"
13911 @ 128474:            PUSH   CONNECTEDFILE
13912 @ 128477:            PUSH   EXTRA
13913 @ 128480:            ASSPAR
13914 @ 128481:            CALL  

  2791    nonstop = -999 %and %signal 12 %if extra_flag # 0
13915 @ 128482:            LINE   2791 "regression-compile-tmp/chimps.imp"
13916 @ 128519:            PUSH   EXTRA
13917 @ 128522:            SELECT 9
13918 @ 128525:            PUSHI  #0x00000000
13919 @ 128530:            JUMPIF = L_0004
13920 @ 128534:            PUSH   NONSTOP
13921 @ 128537:            PUSHI  #0x000003e7
13922 @ 128542:            NEGATE
13923 @ 128543:            ASSVAL
13924 @ 128544:            EVENT  000c
13925 @ 128547:            LOCATE L_0004

  2792    fp = extra_start2;  curstart = fp;  curlim = extra_lim2
13926 @ 128550:            LINE   2792 "regression-compile-tmp/chimps.imp"
13927 @ 128587:            PUSH   FP
13928 @ 128590:            PUSH   EXTRA
13929 @ 128593:            SELECT 3
13930 @ 128596:            ASSVAL
13931 @ 128597:            LINE   2792 "regression-compile-tmp/chimps.imp"
13932 @ 128634:            PUSH   CURSTART
13933 @ 128637:            PUSH   FP
13934 @ 128640:            ASSVAL
13935 @ 128641:            LINE   2792 "regression-compile-tmp/chimps.imp"
13936 @ 128678:            PUSH   CURLIM
13937 @ 128681:            PUSH   EXTRA
13938 @ 128684:            SELECT 4
13939 @ 128687:            ASSVAL

  2793    nonstop = -2;  nonstop = -1 %if main_flag = 'I'
13940 @ 128688:            LINE   2793 "regression-compile-tmp/chimps.imp"
13941 @ 128725:            PUSH   NONSTOP
13942 @ 128728:            PUSHI  #0x00000002
13943 @ 128733:            NEGATE
13944 @ 128734:            ASSVAL
13945 @ 128735:            LINE   2793 "regression-compile-tmp/chimps.imp"
13946 @ 128772:            PUSH   MAIN
13947 @ 128775:            SELECT 9
13948 @ 128778:            PUSHI  #0x00000049
13949 @ 128783:            JUMPIF # L_0004
13950 @ 128787:            PUSH   NONSTOP
13951 @ 128790:            PUSHI  #0x00000001
13952 @ 128795:            NEGATE
13953 @ 128796:            ASSVAL
13954 @ 128797:            LOCATE L_0004

  2794    sym = nl
13955 @ 128800:            LINE   2794 "regression-compile-tmp/chimps.imp"
13956 @ 128837:            PUSH   SYM
13957 @ 128840:            PUSHI  #0x0000000a
13958 @ 128845:            ASSVAL

  2795    get STATEMENTS(-1)
  2796  !  report(noend,0) %if level < mainlevel
  2797  !  report(nobegin,0) %if level > mainlevel
  2798  !  compile end %while level >= mainlevel
13959 @ 128846:            LINE   2795 "regression-compile-tmp/chimps.imp"
13960 @ 128883:            PUSH   GETSTATEMENTS
13961 @ 128886:            PUSHI  #0x00000001
13962 @ 128891:            NEGATE
13963 @ 128892:            ASSPAR
13964 @ 128893:            CALL  

  2799  printout:
  2800  !  time2 = cputime
13965 @ 128894:            LINE   2799 "regression-compile-tmp/chimps.imp"
13966 @ 128931:            LABEL  L_010e

  2801    %if faults = 0 %start
13967 @ 128934:            LINE   2801 "regression-compile-tmp/chimps.imp"
13968 @ 128971:            PUSH   FAULTS
13969 @ 128974:            PUSHI  #0x00000000
13970 @ 128979:            JUMPIF # L_0004

  2802      write(statements,1)
13971 @ 128983:            LINE   2802 "regression-compile-tmp/chimps.imp"
13972 @ 129020:            PUSH   WRITE
13973 @ 129023:            PUSH   STATEMENTS
13974 @ 129026:            ASSPAR
13975 @ 129027:            PUSHI  #0x00000001
13976 @ 129032:            ASSPAR
13977 @ 129033:            CALL  

  2803      print string(" statements checked  ")
13978 @ 129034:            LINE   2803 "regression-compile-tmp/chimps.imp"
13979 @ 129071:            PUSH   PRINTSTRING
13980 @ 129074:            PUSHS  " statements checked  "
13981 @ 129097:            ASSPAR
13982 @ 129098:            CALL  

  2804    %finish %else %start
13983 @ 129099:            LINE   2804 "regression-compile-tmp/chimps.imp"
13984 @ 129136:            GOTO   L_0003
13985 @ 129139:            LOCATE L_0004

  2805      write(faults,1)
13986 @ 129142:            LINE   2805 "regression-compile-tmp/chimps.imp"
13987 @ 129179:            PUSH   WRITE
13988 @ 129182:            PUSH   FAULTS
13989 @ 129185:            ASSPAR
13990 @ 129186:            PUSHI  #0x00000001
13991 @ 129191:            ASSPAR
13992 @ 129192:            CALL  

  2806      print string(" fault")
13993 @ 129193:            LINE   2806 "regression-compile-tmp/chimps.imp"
13994 @ 129230:            PUSH   PRINTSTRING
13995 @ 129233:            PUSHS  " fault"
13996 @ 129241:            ASSPAR
13997 @ 129242:            CALL  

  2807      put sym('s') %if faults > 1
13998 @ 129243:            LINE   2807 "regression-compile-tmp/chimps.imp"
13999 @ 129280:            PUSH   FAULTS
14000 @ 129283:            PUSHI  #0x00000001
14001 @ 129288:            JUMPIF <= L_0007
14002 @ 129292:            PUSH   PUTSYM
14003 @ 129295:            PUSHI  #0x00000073
14004 @ 129300:            ASSPAR
14005 @ 129301:            CALL  
14006 @ 129302:            LOCATE L_0007

  2808      print string(" reported  ")
14007 @ 129305:            LINE   2808 "regression-compile-tmp/chimps.imp"
14008 @ 129342:            PUSH   PRINTSTRING
14009 @ 129345:            PUSHS  " reported  "
14010 @ 129358:            ASSPAR
14011 @ 129359:            CALL  

  2809    %finish
14012 @ 129360:            LINE   2809 "regression-compile-tmp/chimps.imp"
14013 @ 129397:            LOCATE L_0003

  2810    newline
14014 @ 129400:            LINE   2810 "regression-compile-tmp/chimps.imp"
14015 @ 129437:            PUSH   NEWLINE
14016 @ 129440:            CALL  

  2811  ended:
14017 @ 129441:            LINE   2811 "regression-compile-tmp/chimps.imp"
14018 @ 129478:            LABEL  L_010f

  2812    newline;  !*for now to ensure message not erased*
  2813  !  %if control&logbit # 0 %start
  2814  !!    write(zaps,1);  print symbol('Z')
  2815  !    write(statements,1);  print symbol('S')
  2816  !    statements = 1 %if statements = 0
  2817  !    atoms = atoms+statements
  2818  !    print(atoms/statements,1,1);  print symbol('A')
  2819  !    print(numatoms/statements,1,1);  print symbol('N')
  2820  !    print(identatoms/statements,1,1);  print symbol('I')
  2821  !    print(misses/identatoms,1,2);  print symbol('H')
  2822  !    print((time2-time1)/statements,3,3);  print symbol('M')
  2823  !!    write(finalad,1);  print symbol('B')
  2824  !!    write(ownad-ownbase,1);  print symbol('O')
  2825  !    newline
  2826  !  %finish
  2827  
14019 @ 129481:            LINE   2812 "regression-compile-tmp/chimps.imp"
14020 @ 129518:            PUSH   NEWLINE
14021 @ 129521:            CALL  

  2828  %end;  !of ECCECI
14022 @ 129522:            LINE   2828 "regression-compile-tmp/chimps.imp"
14023 @ 129559:         END    _ECCECI {lev=1 --> 0}

  2829  %endoffile
14024 @ 129560:         LINE   2829 "regression-compile-tmp/chimps.imp"
14025 @ 129597:         END     {lev=0 --> -1}
14026 @ 129598: 

