
     1  %begin
     2  
     3  !!%external%string(255)%fn%spec cliparam
     4  !!%external%integer%fn%spec cputime
     5  
     6  !!%external%routine%spec open output(%integer stream, %string (255) s)
     7  
503 @ 4405:         LINE   1 "regression-compile-tmp/imp22g-77.imp"
504 @ 4445:         BEGIN  _lev0id0 {lev=0 --> 1}

     8  %const %integer TRUE = 1, FALSE = 0
     9  
505 @ 4446:            LINE   8 "regression-compile-tmp/imp22g-77.imp"

    10  %string(255)cliparam; cliparam = "adec"
    11  
    12  !$IF ECSVAX
    13  {%conststring(51) title = %c
    14  {"  EUCSD IMP Compiler for M68000.  VAX Version  2.2g"
    15  !$IF APM
506 @ 4486:            LINE   10 "regression-compile-tmp/imp22g-77.imp"
507 @ 4526:            DEF    CLIPARAM p1=V_0081 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
508 @ 4546:            LINE   10 "regression-compile-tmp/imp22g-77.imp"
509 @ 4586:            PUSH   CLIPARAM
510 @ 4589:            PUSHS  "adec"
511 @ 4595:            ASSVAL

    16  %conststring(51) title = %c
    17  "  EUCSD IMP Compiler for M68000.  APM Version  2.2g"
    18  !$FINISH
    19  !
    20  ! Hamish Dewar  Computer Science   Edinburgh University  1982/83/84
    21  !
512 @ 4596:            LINE   16 "regression-compile-tmp/imp22g-77.imp"
513 @ 4636:            PUSHS  "  EUCSD IMP Compiler for M68000.  APM Version  2.2g"
514 @ 4689:            DEF    TITLE p1=V_0082 a/tf=31 b/format=33 c/ostate=12  type=3 (string) form=1 (simple) special=0 (<special:0>) linkage=2 (constant) spec=0 indirect=1 unass=0
515 @ 4706:            INIT   1

    22  %constinteger WHICH=M'.imp'
    23  
    24  !<<BOTH [markers for parts common to Pascal]
    25  
    26  !General notes:
    27  !  The main data structure DICT is used for identifier, type, label
    28  !  and expression representation (with some aliasing).  The fixedsize
    29  !  cell has a number of advantages which outweigh the Procustean factor
    30  !  (and the 16-byte size is efficiently addressed)
    31  !
    32  !  Major routines (like EVAL) which have variables heavily used by
    33  !   nested routines are not placed below level 1 for efficiency of
    34  !   addressing.  (Making the compiler an external procedure rather
    35  !   than a main program would seriously impact this efficiency).
    36  !
    37  !!!!!!!!!!!!!!!!!!  File handling definitions  !!!!!!!!!!!!!!!!!!!!!
    38  !
516 @ 4709:            LINE   22 "regression-compile-tmp/imp22g-77.imp"

    39  %constinteger MAXNAME=127
517 @ 4749:            LINE   39 "regression-compile-tmp/imp22g-77.imp"

    40  %string(maxname) MAINFILE,OBJFILE
    41  
    42  ! Editor-compatible file-mapping record:
518 @ 4789:            LINE   40 "regression-compile-tmp/imp22g-77.imp"
519 @ 4829:            DEF    MAINFILE p1=V_0083 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
520 @ 4849:            DEF    OBJFILE p1=V_0084 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

    43  %recordformat EDFILE(%integer start1,lim1, {part 1}
    44                                start2,lim2, {part 2}
    45                                lim, {VMLIM}
    46                                lbeg,fp,change,flag,
    47                                line  {line number of current pos},
    48                                diff  {diff between LINE and ROW},
    49                         %byte  top  {top row of sub_window},
    50                                win  {floating top},
    51                                bot  {bottom row of sub_window},
    52                                min  {minimum window size},
    53                                row  {last row position},
    54                                col  {last col position},
    55               %string(maxname) name)
    56  !
    57  !!%external%routine%spec EDI(%record(edfile)%name main,sec,
    58  !!                         %string(255) message)
    59  {PAM: parameter acquisition module}
521 @ 4868:            LINE   43 "regression-compile-tmp/imp22g-77.imp"
522 @ 4908:            DEF    EDFILE p1=V_0085 a/tf=44 b/format=85 c/ostate=0  type=4 (record) form=4 (record-format) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
523 @ 4926:            START  ( RECORDFORMAT
524 @ 4927:               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
525 @ 4945:               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
526 @ 4961:               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
527 @ 4979:               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
528 @ 4995:               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
529 @ 5010:               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
530 @ 5026:               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
531 @ 5040:               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
532 @ 5058:               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
533 @ 5074:               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
534 @ 5090:               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
535 @ 5106:               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
536 @ 5121:               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
537 @ 5136:               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
538 @ 5151:               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
539 @ 5166:               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
540 @ 5181:               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
541 @ 5196:               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
542 @ 5212:            FINISH ) 

    60  %constinteger NEWGROUP=1, NODEFAULT=2
    61  !!%external%routine%spec DEFINE PARAM %alias "PAM_DEFSTRING" %c
    62  !!          (%string(255) name, %name variable, %integer flags)
    63  !!%external%routine%spec DEFINE INT PARAM %alias "PAM_DEFINT" %c
    64  !!          (%string(255) name, %name variable, %integer flags)
    65  !!%external%routine%spec DEFINE BOOLEAN PARAMS %alias "PAM_DEFBOOL" %c
    66  !!    (%string(255) name, %name variable, %integer flags)
    67  !!%external%routine%spec PROCESS PARAMETERS %alias "PAM_PROCESS"(%string(255)!! parm)
    68  !!%external%routine%spec CONNECT EDFILE(%record(edfile)%name f)
    69  !!%external%routine%spec DISCONNECT EDFILE(%record(edfile)%name f)
    70  !!%external%string(8)%fnspec DATE
    71  !!%external%string(5)%fnspec TIME
    72  
543 @ 5213:            LINE   60 "regression-compile-tmp/imp22g-77.imp"

    73  %string(8) DATE; DATE = "02/02/02"
544 @ 5253:            LINE   73 "regression-compile-tmp/imp22g-77.imp"
545 @ 5293:            DEF    DATE p1=V_0086 a/tf=31 b/format=8 c/ostate=0  type=3 (string) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
546 @ 5309:            LINE   73 "regression-compile-tmp/imp22g-77.imp"
547 @ 5349:            PUSH   DATE
548 @ 5352:            PUSHS  "02/02/02"
549 @ 5362:            ASSVAL

    74  %string(5) TIME; TIME = "02:02"
550 @ 5363:            LINE   74 "regression-compile-tmp/imp22g-77.imp"
551 @ 5403:            DEF    TIME p1=V_0087 a/tf=31 b/format=5 c/ostate=0  type=3 (string) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
552 @ 5419:            LINE   74 "regression-compile-tmp/imp22g-77.imp"
553 @ 5459:            PUSH   TIME
554 @ 5462:            PUSHS  "02:02"
555 @ 5469:            ASSVAL

    75  %integer CPUTIME; CPUTIME = 123
    76  !
556 @ 5470:            LINE   75 "regression-compile-tmp/imp22g-77.imp"
557 @ 5510:            DEF    CPUTIME p1=V_0088 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
558 @ 5529:            LINE   75 "regression-compile-tmp/imp22g-77.imp"
559 @ 5569:            PUSH   CPUTIME
560 @ 5572:            PUSHI  #0x0000007b
561 @ 5577:            ASSVAL

    77  %owninteger ITEM=0;                ![high-frequency]
562 @ 5578:            LINE   77 "regression-compile-tmp/imp22g-77.imp"
563 @ 5618:            PUSHI  #0x00000000
564 @ 5623:            DEF    ITEM p1=V_0089 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
565 @ 5639:            INIT   1

    78  %owninteger LISTOUT=0 {set to 2 if listing to file}
    79  !!  Compiler control
    80  
566 @ 5642:            LINE   78 "regression-compile-tmp/imp22g-77.imp"
567 @ 5682:            PUSHI  #0x00000000
568 @ 5687:            DEF    LISTOUT p1=V_008a a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
569 @ 5706:            INIT   1

    81  %constinteger ARRBIT=   16_80000000 {array bound check}
570 @ 5709:            LINE   81 "regression-compile-tmp/imp22g-77.imp"

    82  %constinteger LOOPBIT=  16_40000000 {%for loop check}
571 @ 5749:            LINE   82 "regression-compile-tmp/imp22g-77.imp"

    83  %constinteger CAPBIT=   16_20000000 {capacity check}
572 @ 5789:            LINE   83 "regression-compile-tmp/imp22g-77.imp"

    84  %constinteger OVERBIT=  16_10000000 {overflow check}
573 @ 5829:            LINE   84 "regression-compile-tmp/imp22g-77.imp"

    85  %constinteger ASSBIT=   16_08000000 {integer-unassigned check}
574 @ 5869:            LINE   85 "regression-compile-tmp/imp22g-77.imp"

    86  %constinteger STRASSBIT=16_04000000 {string-unassigned check}
575 @ 5909:            LINE   86 "regression-compile-tmp/imp22g-77.imp"

    87  %constinteger SASSBIT=  16_02000000 {short-unassigned check}
576 @ 5949:            LINE   87 "regression-compile-tmp/imp22g-77.imp"

    88  %constinteger BASSBIT=  16_01000000 {byte-unassigned check}
577 @ 5989:            LINE   88 "regression-compile-tmp/imp22g-77.imp"

    89  %constinteger ASSMASK=assbit!strassbit!sassbit!bassbit
578 @ 6029:            LINE   89 "regression-compile-tmp/imp22g-77.imp"

    90  %constinteger LINEBIT=  16_00800000 {set line number}
579 @ 6069:            LINE   90 "regression-compile-tmp/imp22g-77.imp"

    91  %constinteger DIAGBIT=  16_00400000
580 @ 6109:            LINE   91 "regression-compile-tmp/imp22g-77.imp"

    92  %constinteger TRACEBIT= 16_00200000 {plant TRAP 15}
581 @ 6149:            LINE   92 "regression-compile-tmp/imp22g-77.imp"

    93  %constinteger STACKBIT= 16_00100000 {stack over-run check}
582 @ 6189:            LINE   93 "regression-compile-tmp/imp22g-77.imp"

    94  %constinteger CHECKBIT= 16_00080000 {for NOCHECK}
583 @ 6229:            LINE   94 "regression-compile-tmp/imp22g-77.imp"

    95  %constinteger SYSBIT=   16_00040000 {special treatment of SIGNAL}
584 @ 6269:            LINE   95 "regression-compile-tmp/imp22g-77.imp"

    96  %constinteger STRICTBIT=16_00020000
585 @ 6309:            LINE   96 "regression-compile-tmp/imp22g-77.imp"

    97  %constinteger VOLBIT   =16_00010000
586 @ 6349:            LINE   97 "regression-compile-tmp/imp22g-77.imp"

    98  %constinteger HALFBIT=  16_00008000 {halfword MULT/DIV}
587 @ 6389:            LINE   98 "regression-compile-tmp/imp22g-77.imp"

    99  %constinteger LOWBIT  = 16_00004000 {low-level features permitted}
588 @ 6429:            LINE   99 "regression-compile-tmp/imp22g-77.imp"

   100  %constinteger EDITBIT=  16_00002000
589 @ 6469:            LINE   100 "regression-compile-tmp/imp22g-77.imp"

   101  %constinteger RUNBIT=   16_00001000
590 @ 6509:            LINE   101 "regression-compile-tmp/imp22g-77.imp"

   102  %constinteger FORCEBIT= 16_00000800
591 @ 6549:            LINE   102 "regression-compile-tmp/imp22g-77.imp"

   103  %constinteger LOGBIT=   16_00000400 {print log}
592 @ 6589:            LINE   103 "regression-compile-tmp/imp22g-77.imp"

   104  %constinteger WARNBIT=  16_00000200 {print warnings}
593 @ 6629:            LINE   104 "regression-compile-tmp/imp22g-77.imp"

   105  %constinteger NONSBIT=  16_00000100 {nonstandard features permitted}
594 @ 6669:            LINE   105 "regression-compile-tmp/imp22g-77.imp"

   106  %constinteger PERMBIT=  16_00000080 {for PRIM compilation}
595 @ 6709:            LINE   106 "regression-compile-tmp/imp22g-77.imp"

   107  %constinteger NEWBIT=   16_00000040 {Pascal: new treatment of pointers}
596 @ 6749:            LINE   107 "regression-compile-tmp/imp22g-77.imp"

   108  %constinteger CODELIST= 16_00000020 {list code}
597 @ 6789:            LINE   108 "regression-compile-tmp/imp22g-77.imp"

   109  %constinteger DICTLIST= 16_00000010 {list dict entries}
598 @ 6829:            LINE   109 "regression-compile-tmp/imp22g-77.imp"

   110  %constinteger EXPLIST=  16_00000008 {list EXP entries}
599 @ 6869:            LINE   110 "regression-compile-tmp/imp22g-77.imp"

   111  %constinteger MAPLIST=  16_00000004 {print space map}
600 @ 6909:            LINE   111 "regression-compile-tmp/imp22g-77.imp"

   112  %constinteger TTLIST=   16_00000002 {list to terminal}
601 @ 6949:            LINE   112 "regression-compile-tmp/imp22g-77.imp"

   113  %constinteger LIST=     16_00000001 {do list}
   114  
   115  	      
602 @ 6989:            LINE   113 "regression-compile-tmp/imp22g-77.imp"

   116  %constinteger LISTBITS=codelist+dictlist+explist+maplist+ttlist+list
603 @ 7029:            LINE   116 "regression-compile-tmp/imp22g-77.imp"

   117  %owninteger CONTROL=warnbit+checkbit+linebit+diagbit+editbit+volbit %c
   118                     +strassbit+assbit+arrbit+loopbit+capbit+stackbit
604 @ 7069:            LINE   117 "regression-compile-tmp/imp22g-77.imp"
605 @ 7109:            PUSHI  #0xecd92200
606 @ 7114:            DEF    CONTROL p1=V_008b a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
607 @ 7133:            INIT   1

   119  %integer INITCON,TIME1,TIME2
   120  !Events:-
608 @ 7136:            LINE   119 "regression-compile-tmp/imp22g-77.imp"
609 @ 7176:            DEF    INITCON 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
610 @ 7195:            DEF    TIME1 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
611 @ 7212:            DEF    TIME2 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

   121  %constinteger OFLOW=1, FAIL=11, DONE=12, REDO=13, ABANDON=14
   122  !
   123  !
612 @ 7229:            LINE   121 "regression-compile-tmp/imp22g-77.imp"

   124  %constinteger MAXINT=16_7FFFFFFF, MININT=\MAXINT
613 @ 7269:            LINE   124 "regression-compile-tmp/imp22g-77.imp"

   125  %constinteger SIGN16=\16_7FFF, SIGN=\16_7FFFFFFF
   126  !
   127  !!!!!!!!!!!!!!!!   Operand Representation  !!!!!!!!!!!!!!!!!!!
   128  ! Operands (largely, Expressions) are denoted by integers in a
   129  ! contiguous range as follows:
   130  ! 
   131  ! <= 0  Literals (including 'addresses' within FINAL)
   132  !       [see LITREF and LITVAL for interpretation]
   133  !                                    Dictionary
   134  !                   __16___16____16____8____8____32____16___16__
   135  ! [dummy @ 0] ->    |flags|type| link| reg|mode|value|text|hlink|
   136  ! D0 [@1]  ->  R    |     |    | size|    |    |     |    |    |
   137  !                   |     |    |xtype|    |    |     |    |    |
   138  ! D7       ->       |     |    |     |    |    |     |    |    |
   139  ! A0       ->  E    |     |    |     |    |    |     |    |    |
   140  !                   |     |    |     |    |    |     |    |    |
   141  ! A7       ->  G    |     |    |     |    |    |     |    |    |
   142  ! INDA0    ->       |     |    |     |    |    |     |    |    |
   143  !              S    |     |    |     |    |    |     |    |    |
   144  ! PREA7    ->       |     |    |     |    |    |     |    |    |
   145  !              I    |     |    |     |    |    |     |    |    |
   146  !              D    |     |    |     |    |    |     |    |    |
   147  !              E    |     |    |     |    |    |     |    |    |
   148  !              N    |     |    |     |    |    |     |    |    |
   149  !              T    |     |    |     |    |    |     |    |    |
   150  !              S    |     |    |     |    |    |     |    |    |
   151  !                   |_____|____|_____|____|____|_____|____|____|
   152  ! DICTLIM  ->       | --  |--  |  -- | -- |mode|value| -- | -- |
   153  !              C L  |     |    |     |    |    |     |    |    |
   154  !              O A  |     |    |     |    |    |     |    |    |
   155  !              M B  |     |    |     |    |    |     |    |    |
   156  !              P S  |     |    |     |    |    |     |    |    |
   157  !                   |_____|____|_____|____|____|_____|____|____|
   158  ! LABLIM   ->       |flags|type| act |----|mode|value|arg1|arg2|
   159  !              C    |     |    |     |    |    |     |    |    |
   160  !              O    |     |    |     |    |    |     |    |    |
   161  !              M E  |     |    |     |    |    |     |    |    |
   162  !              P X  |     |    |     |    |    |     |    |    |
   163  !              L P  |     |    |     |    |    |     |    |    |
   164  !              E S  |     |    |     |    |    |     |    |    |
   165  !              X    |_____|____|_____|____|____|_____|____|____|
   166  ! EXPLIM   ->
   167  
614 @ 7309:            LINE   125 "regression-compile-tmp/imp22g-77.imp"

   168  %constinteger SMALLMIN=-1024, SMALLMAX=1023,
   169                LITMAX=smallmin-(smallmax+1), LITMIN=litmax-199,
   170                LITMITE=-255, LITQUICK=-16, ONE=-(1<<1)
615 @ 7349:            LINE   168 "regression-compile-tmp/imp22g-77.imp"

   171  %constinteger D0=1, D1=d0+1, D2=d0+2, D7=d0+7,
   172                A0=d0+8, A1=a0+1, A6=a0+6, A7=a0+7,
   173                INDA0=a0+8, INDA7=inda0+7,
   174                POSTA0=inda0+8, POSTA7=posta0+7,
   175                PREA0=posta0+8, PREA7=prea0+7,
   176                UNDEF=a7
616 @ 7389:            LINE   171 "regression-compile-tmp/imp22g-77.imp"

   177  %owninteger   DICTLIM=1000, FINALBOUND=64  {see Init for adjustment}
617 @ 7429:            LINE   177 "regression-compile-tmp/imp22g-77.imp"
618 @ 7469:            PUSHI  #0x000003e8
619 @ 7474:            DEF    DICTLIM 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
620 @ 7493:            INIT   1
621 @ 7496:            PUSHI  #0x00000040
622 @ 7501:            DEF    FINALBOUND 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
623 @ 7523:            INIT   1

   178  %integer      LABLIM,NP0,EXPLIM {continuing from DICTLIM}
624 @ 7526:            LINE   178 "regression-compile-tmp/imp22g-77.imp"
625 @ 7566:            DEF    LABLIM p1=V_0091 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
626 @ 7584:            DEF    NP0 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
627 @ 7599:            DEF    EXPLIM p1=V_0093 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   179  %integer      CHARBOUND         {derived from DICTLIM}
628 @ 7617:            LINE   179 "regression-compile-tmp/imp22g-77.imp"
629 @ 7657:            DEF    CHARBOUND p1=V_0094 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   180  %constinteger LABELS=42 {enough for Pascal reserveds},
   181                TRIPLES=200
630 @ 7678:            LINE   180 "regression-compile-tmp/imp22g-77.imp"

   182  %constinteger AD=16384  {any item + AD >= EXPLIM}
   183  
631 @ 7718:            LINE   182 "regression-compile-tmp/imp22g-77.imp"

   184  %constinteger BREG=D0+4, LINELOC=d0+5
632 @ 7758:            LINE   184 "regression-compile-tmp/imp22g-77.imp"

   185  %constinteger F1=a0+6, GB=a0+5, MB=a0+4;  !level 1, global base, main base
633 @ 7798:            LINE   185 "regression-compile-tmp/imp22g-77.imp"

   186  %constinteger MAXDREG=d0+3, MAXAREG=a0+3
634 @ 7838:            LINE   186 "regression-compile-tmp/imp22g-77.imp"

   187  %constinteger D0B=1, D1B=2, D2B=4, BREGB=16,
   188                A0B=16_100, A1B=16_200, A2B=16_400
635 @ 7878:            LINE   187 "regression-compile-tmp/imp22g-77.imp"

   189  %constinteger ANYDREG=16_00FF-bregb, ANYAREG=16_FF00,
   190                ANYREG=16_FFFF
636 @ 7918:            LINE   189 "regression-compile-tmp/imp22g-77.imp"

   191  %constinteger DEFAULTFREE=2<<(maxdreg-d0)-1+(2<<(maxareg-a0)-1)<<8+bregb
637 @ 7958:            LINE   191 "regression-compile-tmp/imp22g-77.imp"

   192  %integer MAXCALLDREG, MAXCALLAREG
638 @ 7998:            LINE   192 "regression-compile-tmp/imp22g-77.imp"
639 @ 8038:            DEF    MAXCALLDREG p1=V_0095 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
640 @ 8061:            DEF    MAXCALLAREG p1=V_0096 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   193  %integer FREE
   194  
   195  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   196  !!!!!!!!!!!!!!!!!!!!!!!   Big Literals  !!!!!!!!!!!!!!!!!!!!!!!
641 @ 8084:            LINE   193 "regression-compile-tmp/imp22g-77.imp"
642 @ 8124:            DEF    FREE p1=V_0097 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   197  %integer LITPOS
643 @ 8140:            LINE   197 "regression-compile-tmp/imp22g-77.imp"
644 @ 8180:            DEF    LITPOS p1=V_0098 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   198  %integerarray LITSTORE(litmin:litmax)
   199  !
   200  !!!!!!!!!  Registers, Identifiers, Labels, Expressions  !!!!!!!!!
   201  !
   202  !   Operand attributes:
645 @ 8198:            LINE   198 "regression-compile-tmp/imp22g-77.imp"
646 @ 8238:            DEF    LITSTORE p1=V_0099 a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
647 @ 8258:            PUSHI  #0xfffff739
648 @ 8263:            PUSHI  #0xfffff800
649 @ 8268:            DIM    0001 0001

   203  %recordformat OBJINFO %C
   204    (%short FLAGS,TYPE,
   205     (%short LINK %or %short XTYPE %or %short SIZE %or %short ACT),
   206     %byte REG,MODE,
   207     %integer VAL)
650 @ 8274:            LINE   203 "regression-compile-tmp/imp22g-77.imp"
651 @ 8314:            DEF    OBJINFO 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
652 @ 8333:            START  ( RECORDFORMAT
653 @ 8334:               DEF    FLAGS p1=V_0000 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
654 @ 8351:               DEF    TYPE p1=V_0000 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
655 @ 8367:               ALTALT ~A ALTBEG
656 @ 8369:               DEF    LINK p1=V_0000 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
657 @ 8385:               ALTALT ~C ALT
658 @ 8387:               DEF    XTYPE p1=V_0000 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
659 @ 8404:               ALTALT ~C ALT
660 @ 8406:               DEF    SIZE p1=V_0000 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
661 @ 8422:               ALTALT ~C ALT
662 @ 8424:               DEF    ACT p1=V_0000 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
663 @ 8439:               ALTALT ~B ALTEND
664 @ 8441:               DEF    REG 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
665 @ 8456:               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
666 @ 8472:               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
667 @ 8487:            FINISH ) 

   208  %recordformat IDENTINFO %C
   209    ((%short FLAGS,TYPE,
   210     (%short LINK %or %short XTYPE %or %short SIZE %or %short ACT),
   211      %byte REG,MODE,
   212      %integer VAL %or %record(objinfo) DETAILS),
   213     (%short   TEXT,HLINK %or %short X,Y))
   214  !
   215  !Machine addressing modes:
668 @ 8488:            LINE   208 "regression-compile-tmp/imp22g-77.imp"
669 @ 8528:            DEF    IDENTINFO p1=V_009b a/tf=44 b/format=9b c/ostate=0  type=4 (record) form=4 (record-format) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
670 @ 8549:            START  ( RECORDFORMAT
671 @ 8550:               ALTALT ~A ALTBEG
672 @ 8552:               DEF    FLAGS p1=V_0000 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
673 @ 8569:               DEF    TYPE p1=V_0000 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
674 @ 8585:               ALTALT ~A ALTBEG
675 @ 8587:               DEF    LINK p1=V_0000 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
676 @ 8603:               ALTALT ~C ALT
677 @ 8605:               DEF    XTYPE p1=V_0000 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
678 @ 8622:               ALTALT ~C ALT
679 @ 8624:               DEF    SIZE p1=V_0000 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
680 @ 8640:               ALTALT ~C ALT
681 @ 8642:               DEF    ACT p1=V_0000 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
682 @ 8657:               ALTALT ~B ALTEND
683 @ 8659:               DEF    REG 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
684 @ 8674:               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
685 @ 8690:               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
686 @ 8705:               ALTALT ~C ALT
687 @ 8707:               DEF    DETAILS p1=V_0000 a/tf=41 b/format=9a c/ostate=0  type=4 (record) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
688 @ 8726:               ALTALT ~B ALTEND
689 @ 8728:               ALTALT ~A ALTBEG
690 @ 8730:               DEF    TEXT p1=V_0000 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
691 @ 8746:               DEF    HLINK p1=V_0000 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
692 @ 8763:               ALTALT ~C ALT
693 @ 8765:               DEF    X p1=V_0000 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
694 @ 8778:               DEF    Y p1=V_0000 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
695 @ 8791:               ALTALT ~B ALTEND
696 @ 8793:            FINISH ) 

   216  %constinteger AREGMODE=2_001000,
   217                DISPMODE=2_101000, INDEXMODE=2_110000, ABSMODE=2_111000,
   218                PCMODE=2_111010, LITMODE=2_111100
   219  !Conversion factors for address register modes (from AREGMODE)
697 @ 8794:            LINE   216 "regression-compile-tmp/imp22g-77.imp"

   220  %constinteger INDIR=8, POST=16, PRE=24
   221  !Additional source-related modes:
698 @ 8834:            LINE   220 "regression-compile-tmp/imp22g-77.imp"

   222  %constinteger LABMODE=2_10000000+pcmode,
   223                PROCMODE=2_11000000+pcmode,
   224                GLOBALMODE=dispmode+(gb-a0),
   225                OWNMODE=2_01000000+dispmode+(mb-a0),
   226                CONSTMODE=2_01000000+pcmode,
   227                FRAMEMODE=2_10000000+dispmode
   228  !                      +  01000000 for dynamic array
   229  !
   230  ! MODE,VAL:
   231  !  %const simple       : LITMODE     the actual value
   232  !  %const structure    : CONSTMODE   address in code area
   233  !  variable etc        : mode        byte address/displacement
   234  !  undefined label     : LABMODE     reference chain
   235  !  undefined procedure : PROCMODE    reference chain
   236  !  record format       : 0           size of record in bytes
   237  !
   238  ! Significance of FLAGS:
699 @ 8874:            LINE   222 "regression-compile-tmp/imp22g-77.imp"

   239  %constinteger CAT     =16_000F, {category: typeid only}
   240                WRITABLE=16_0001,
   241                READABLE=16_0002, {not write only}
   242                VOLATILE=16_0004,
   243                ARRFLAG =16_0008, {bound check needed}
   244                  ALT   =16_0008, {alternative proc}
   245                WFLAG   =16_0010, {has been written to}
   246                RFLAG   =16_0020, {has been read from}
   247                OKFLAG  =16_0040, {no unassigned check needed, CC OK for fun}
   248                  NORET =16_0040, {routine does not return}
   249                MFLAG   =16_0080, {has had mem access}
   250                SPEC    =16_0100, {unbodied spec or forward label}
   251                TYPEID  =16_0200, {type identifier}
   252                PACKED  =16_0400,
   253                INDIRECT=16_0800,
   254                PROC    =16_3000, {procedure not data}
   255                  PROC1 =16_1000,
   256                  PROC2 =16_2000,
   257                EXT     =16_4000, {external}
   258                NAME    =sign16
700 @ 8914:            LINE   239 "regression-compile-tmp/imp22g-77.imp"

   259  %constinteger HERITABLE=writable+readable+volatile %c
   260                         +wflag+rflag+okflag+arrflag
   261  !
   262  !CATegories (type identifiers only):
701 @ 8954:            LINE   259 "regression-compile-tmp/imp22g-77.imp"

   263  %constinteger INTY=0, CHARY=1, BOOLY=2, ENUMY=3,
   264                POINTY=4, REALY=5,
   265                STRINGY=8, ARRY=9, SETY=10,
   266                RECY=12, FILEY=13,
   267                NONORD=12
   268  
702 @ 8994:            LINE   263 "regression-compile-tmp/imp22g-77.imp"

   269  %ownrecord(objinfo) DEFINEDLABEL=0,
   270                      FORWARDLABEL=0,
   271                      BEGINBLOCK=0,
   272                      TYPEIDENT=0
   273  !!!!!!!!!!!!!!!!!  File and control initialisation  !!!!!!!!!!!!!!!
   274  !
703 @ 9034:            LINE   269 "regression-compile-tmp/imp22g-77.imp"
704 @ 9074:            PUSHI  #0x00000000
705 @ 9079:            DEF    DEFINEDLABEL p1=V_009c 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
706 @ 9103:            INIT   1
707 @ 9106:            PUSHI  #0x00000000
708 @ 9111:            DEF    FORWARDLABEL p1=V_009d 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
709 @ 9135:            INIT   1
710 @ 9138:            PUSHI  #0x00000000
711 @ 9143:            DEF    BEGINBLOCK p1=V_009e 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
712 @ 9165:            INIT   1
713 @ 9168:            PUSHI  #0x00000000
714 @ 9173:            DEF    TYPEIDENT p1=V_009f 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
715 @ 9194:            INIT   1

   275  %constinteger MAIN=1
716 @ 9197:            LINE   275 "regression-compile-tmp/imp22g-77.imp"

   276  %record(edfile)%array FILE(1:3)
717 @ 9237:            LINE   276 "regression-compile-tmp/imp22g-77.imp"
718 @ 9277:            DEF    FILE p1=V_00a0 a/tf=4b b/format=85 c/ostate=100  type=4 (record) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
719 @ 9293:            PUSHI  #0x00000001
720 @ 9298:            PUSHI  #0x00000003
721 @ 9303:            DIM    0001 0001

   277  %record(edfile)%name CUR
722 @ 9309:            LINE   277 "regression-compile-tmp/imp22g-77.imp"
723 @ 9349:            DEF    CUR p1=V_00a1 a/tf=42 b/format=85 c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   278  %integerarray FCONTROL(1:3)
724 @ 9364:            LINE   278 "regression-compile-tmp/imp22g-77.imp"
725 @ 9404:            DEF    FCONTROL p1=V_00a2 a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
726 @ 9424:            PUSHI  #0x00000001
727 @ 9429:            PUSHI  #0x00000003
728 @ 9434:            DIM    0001 0001

   279  %integer CURFILE,LASTFILE;      !current source file no (0:3)
729 @ 9440:            LINE   279 "regression-compile-tmp/imp22g-77.imp"
730 @ 9480:            DEF    CURFILE 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
731 @ 9499:            DEF    LASTFILE 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

   280  %integer CURSTART,CURLIM;        !current source file bounds
   281  
732 @ 9519:            LINE   280 "regression-compile-tmp/imp22g-77.imp"
733 @ 9559:            DEF    CURSTART p1=V_00a5 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
734 @ 9579:            DEF    CURLIM p1=V_00a6 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   282  %routine SET OPTIONS(%string(255) parm)
735 @ 9597:            LINE   282 "regression-compile-tmp/imp22g-77.imp"
736 @ 9637:            DEF    SETOPTIONS (_lev0id0_SETOPTIONS) p1=V_00a7 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
737 @ 9659:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
738 @ 9660:                  DEF    PARM p1=V_00a8 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
739 @ 9676:               FINISH ) {lev=2}

   283  %owninteger remove warning
740 @ 9677:               LINE   283 "regression-compile-tmp/imp22g-77.imp"
741 @ 9717:               DEF    REMOVEWARNING 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
742 @ 9742:               INIT   1

   284  %constinteger CHECKS=assmask+arrbit+loopbit+capbit+overbit
   285  !!  define boolean params( %c
   286  !!  "ARR,LOOP,CAP,OVER,ASS,STRASS,SASS,BASS,LINE,DIAG,TRACE,STACK,".%C
   287  !!  "CHECK,SYS,STRICT,VOL,HALF,LOW,EDIT,RUN,FORCE,LOG,WARN,NONS,PERM,NEW,".%C
   288  !!  "CODE,DICT,EXP,MAP,TT,LIST",control,0)
   289  !!  process parameters(parm)
743 @ 9745:               LINE   284 "regression-compile-tmp/imp22g-77.imp"

   290    remove warning = ADDR(parm)
   291   !NOCHECK => removal of checkbits
744 @ 9785:               LINE   290 "regression-compile-tmp/imp22g-77.imp"
745 @ 9825:               PUSH   REMOVEWARNING
746 @ 9828:               PUSH   ADDR
747 @ 9831:               PUSH   PARM
748 @ 9834:               ASSPAR
749 @ 9835:               CALL  
750 @ 9836:               ASSVAL

   292    control = control&(\checks) %if control&checkbit = 0
751 @ 9837:               LINE   292 "regression-compile-tmp/imp22g-77.imp"
752 @ 9877:               PUSH   CONTROL
753 @ 9880:               PUSHI  #0x00080000
754 @ 9885:               AND   
755 @ 9886:               PUSHI  #0x00000000
756 @ 9891:               JUMPIF # L_0004
757 @ 9895:               PUSH   CONTROL
758 @ 9898:               PUSH   CONTROL
759 @ 9901:               PUSHI  #0xff000000
760 @ 9906:               NOT   
761 @ 9907:               AND   
762 @ 9908:               ASSVAL
763 @ 9909:               LOCATE L_0004

   293    control = control&(\editbit) %if control&listbits # 0
764 @ 9912:               LINE   293 "regression-compile-tmp/imp22g-77.imp"
765 @ 9952:               PUSH   CONTROL
766 @ 9955:               PUSHI  #0x0000003f
767 @ 9960:               AND   
768 @ 9961:               PUSHI  #0x00000000
769 @ 9966:               JUMPIF = L_0004
770 @ 9970:               PUSH   CONTROL
771 @ 9973:               PUSH   CONTROL
772 @ 9976:               PUSHI  #0x00002000
773 @ 9981:               NOT   
774 @ 9982:               AND   
775 @ 9983:               ASSVAL
776 @ 9984:               LOCATE L_0004

   294  %end
   295  
777 @ 9987:               LINE   294 "regression-compile-tmp/imp22g-77.imp"
778 @ 10027:            END    _lev0id0_SETOPTIONS {lev=2 --> 1}

   296  %routine SET EXTENSION(%string(maxname)%name f,%string(4) ext)
779 @ 10028:            LINE   296 "regression-compile-tmp/imp22g-77.imp"
780 @ 10068:            DEF    SETEXTENSION (_lev0id0_SETEXTENSION) p1=V_00a8 a/tf=7 b/format=0 c/ostate=0  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
781 @ 10092:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
782 @ 10093:                  DEF    F p1=V_00a9 a/tf=32 b/format=7f c/ostate=0  type=3 (string) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
783 @ 10106:                  DEF    EXT p1=V_00aa a/tf=31 b/format=4 c/ostate=0  type=3 (string) form=1 (simple) special=3 (long-real) linkage=0 (auto) spec=0 indirect=0 unass=0
784 @ 10121:               FINISH ) {lev=2}

   297  %integer strip
785 @ 10122:               LINE   297 "regression-compile-tmp/imp22g-77.imp"
786 @ 10162:               DEF    STRIP p1=V_00ab a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   298  %integer%fn last4(%string(*)%name s)
787 @ 10179:               LINE   298 "regression-compile-tmp/imp22g-77.imp"
788 @ 10219:               DEF    LAST4 (_lev0id0_SETEXTENSION_LAST4) p1=V_00ac 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
789 @ 10236:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
790 @ 10237:                     DEF    S p1=V_00ad a/tf=32 b/format=0 c/ostate=0  type=3 (string) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
791 @ 10250:                  FINISH ) {lev=3}

   299  %integer i,e
792 @ 10251:                  LINE   299 "regression-compile-tmp/imp22g-77.imp"
793 @ 10291:                  DEF    I p1=V_00ae a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
794 @ 10304:                  DEF    E p1=V_00af a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   300    i = 0;  e = 0
795 @ 10317:                  LINE   300 "regression-compile-tmp/imp22g-77.imp"
796 @ 10357:                  PUSH   I
797 @ 10360:                  PUSHI  #0x00000000
798 @ 10365:                  ASSVAL
799 @ 10366:                  LINE   300 "regression-compile-tmp/imp22g-77.imp"
800 @ 10406:                  PUSH   E
801 @ 10409:                  PUSHI  #0x00000000
802 @ 10414:                  ASSVAL

   301    %while i < length(s) %cycle
803 @ 10415:                  LINE   301 "regression-compile-tmp/imp22g-77.imp"
804 @ 10455:                  LOCATE L_0003
805 @ 10458:                  PUSH   I
806 @ 10461:                  PUSH   LENGTH
807 @ 10464:                  PUSH   S
808 @ 10467:                  ASSPAR
809 @ 10468:                  CALL  
810 @ 10469:                  JUMPIF >= L_0004

   302      i = i+1;  e = e<<8+charno(s,i)
811 @ 10473:                  LINE   302 "regression-compile-tmp/imp22g-77.imp"
812 @ 10513:                  PUSH   I
813 @ 10516:                  PUSH   I
814 @ 10519:                  PUSHI  #0x00000001
815 @ 10524:                  ADD   
816 @ 10525:                  ASSVAL
817 @ 10526:                  LINE   302 "regression-compile-tmp/imp22g-77.imp"
818 @ 10566:                  PUSH   E
819 @ 10569:                  PUSH   E
820 @ 10572:                  PUSHI  #0x00000008
821 @ 10577:                  LSH   
822 @ 10578:                  PUSH   CHARNO
823 @ 10581:                  PUSH   S
824 @ 10584:                  ASSPAR
825 @ 10585:                  PUSH   I
826 @ 10588:                  ASSPAR
827 @ 10589:                  CALL  
828 @ 10590:                  ADD   
829 @ 10591:                  ASSVAL

   303    %repeat
830 @ 10592:                  LINE   303 "regression-compile-tmp/imp22g-77.imp"
831 @ 10632:                  REPEAT L_0003
832 @ 10635:                  LOCATE L_0004

   304    %result = e
833 @ 10638:                  LINE   304 "regression-compile-tmp/imp22g-77.imp"
834 @ 10678:                  PUSH   E
835 @ 10681:                  RESULT

   305  %end
836 @ 10682:                  LINE   305 "regression-compile-tmp/imp22g-77.imp"
837 @ 10722:               END    _lev0id0_SETEXTENSION_LAST4 {lev=3 --> 2}

   306    strip = last4(ext)
838 @ 10723:               LINE   306 "regression-compile-tmp/imp22g-77.imp"
839 @ 10763:               PUSH   STRIP
840 @ 10766:               PUSH   LAST4
841 @ 10769:               PUSH   EXT
842 @ 10772:               ASSPAR
843 @ 10773:               CALL  
844 @ 10774:               ASSVAL

   307    f = mainfile %and strip = which %if f = ""
845 @ 10775:               LINE   307 "regression-compile-tmp/imp22g-77.imp"
846 @ 10815:               PUSH   F
847 @ 10818:               PUSHS  ""
848 @ 10820:               JUMPIF # L_0004
849 @ 10824:               PUSH   F
850 @ 10827:               PUSH   MAINFILE
851 @ 10830:               ASSVAL
852 @ 10831:               PUSH   STRIP
853 @ 10834:               PUSHI  #0x2e696d70
854 @ 10839:               ASSVAL
855 @ 10840:               LOCATE L_0004

   308    length(f) = length(f)-4 %if last4(f)!16_202020 = strip
856 @ 10843:               LINE   308 "regression-compile-tmp/imp22g-77.imp"
857 @ 10883:               PUSH   LAST4
858 @ 10886:               PUSH   F
859 @ 10889:               ASSPAR
860 @ 10890:               CALL  
861 @ 10891:               PUSHI  #0x00202020
862 @ 10896:               OR    
863 @ 10897:               PUSH   STRIP
864 @ 10900:               JUMPIF # L_0004
865 @ 10904:               PUSH   LENGTH
866 @ 10907:               PUSH   F
867 @ 10910:               ASSPAR
868 @ 10911:               CALL  
869 @ 10912:               PUSH   LENGTH
870 @ 10915:               PUSH   F
871 @ 10918:               ASSPAR
872 @ 10919:               CALL  
873 @ 10920:               PUSHI  #0x00000004
874 @ 10925:               SUB   
875 @ 10926:               ASSVAL
876 @ 10927:               LOCATE L_0004

   309    f = f.ext
877 @ 10930:               LINE   309 "regression-compile-tmp/imp22g-77.imp"
878 @ 10970:               PUSH   F
879 @ 10973:               PUSH   F
880 @ 10976:               PUSH   EXT
881 @ 10979:               CONCAT
882 @ 10980:               ASSVAL

   310  %end
   311  
   312  
883 @ 10981:               LINE   310 "regression-compile-tmp/imp22g-77.imp"
884 @ 11021:            END    _lev0id0_SETEXTENSION {lev=2 --> 1}

   313  %routine OPEN FILES
885 @ 11022:            LINE   313 "regression-compile-tmp/imp22g-77.imp"
886 @ 11062:            DEF    OPENFILES (_lev0id0_OPENFILES) p1=V_00a9 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
887 @ 11083:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
888 @ 11084:               FINISH ) {lev=2}

   314  %string(maxname) LISTFILE; LISTFILE=""
889 @ 11085:               LINE   314 "regression-compile-tmp/imp22g-77.imp"
890 @ 11125:               DEF    LISTFILE p1=V_00aa 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
891 @ 11145:               LINE   314 "regression-compile-tmp/imp22g-77.imp"
892 @ 11185:               PUSH   LISTFILE
893 @ 11188:               PUSHS  ""
894 @ 11190:               ASSVAL

   315    objfile = ""
   316  !!  define param("SOURCE",mainfile,nodefault)
   317  !!  define param("OFILE",objfile,newgroup)
   318  !!  define param("LFILE",listfile,0)
   319  !!  define int param("IDents",dictlim,newgroup)
   320  !!  define int param("KBytes",finalbound,0)
895 @ 11191:               LINE   315 "regression-compile-tmp/imp22g-77.imp"
896 @ 11231:               PUSH   OBJFILE
897 @ 11234:               PUSHS  ""
898 @ 11236:               ASSVAL

   321    file(main) = 0
899 @ 11237:               LINE   321 "regression-compile-tmp/imp22g-77.imp"
900 @ 11277:               PUSH   FILE
901 @ 11280:               PUSHI  #0x00000001
902 @ 11285:               ACCESS
903 @ 11286:               PUSHI  #0x00000000
904 @ 11291:               ASSVAL

   322    set options(cliparam)
905 @ 11292:               LINE   322 "regression-compile-tmp/imp22g-77.imp"
906 @ 11332:               PUSH   SETOPTIONS
907 @ 11335:               PUSH   CLIPARAM
908 @ 11338:               ASSPAR
909 @ 11339:               CALL  

   323    control = control&(\linebit) %if control&diagbit = 0;  !*temp*
   324  !Main file
910 @ 11340:               LINE   323 "regression-compile-tmp/imp22g-77.imp"
911 @ 11380:               PUSH   CONTROL
912 @ 11383:               PUSHI  #0x00400000
913 @ 11388:               AND   
914 @ 11389:               PUSHI  #0x00000000
915 @ 11394:               JUMPIF # L_0004
916 @ 11398:               PUSH   CONTROL
917 @ 11401:               PUSH   CONTROL
918 @ 11404:               PUSHI  #0x00800000
919 @ 11409:               NOT   
920 @ 11410:               AND   
921 @ 11411:               ASSVAL
922 @ 11412:               LOCATE L_0004

   325    file(main)_name = mainfile;  file(main)_flag = 32768
923 @ 11415:               LINE   325 "regression-compile-tmp/imp22g-77.imp"
924 @ 11455:               PUSH   FILE
925 @ 11458:               PUSHI  #0x00000001
926 @ 11463:               ACCESS
927 @ 11464:               SELECT 18
928 @ 11467:               PUSH   MAINFILE
929 @ 11470:               ASSVAL
930 @ 11471:               LINE   325 "regression-compile-tmp/imp22g-77.imp"
931 @ 11511:               PUSH   FILE
932 @ 11514:               PUSHI  #0x00000001
933 @ 11519:               ACCESS
934 @ 11520:               SELECT 9
935 @ 11523:               PUSHI  #0x00008000
936 @ 11528:               ASSVAL

   326    time1 = time1-cputime
   327  !!  connect edfile(file(main))
937 @ 11529:               LINE   326 "regression-compile-tmp/imp22g-77.imp"
938 @ 11569:               PUSH   TIME1
939 @ 11572:               PUSH   TIME1
940 @ 11575:               PUSH   CPUTIME
941 @ 11578:               SUB   
942 @ 11579:               ASSVAL

   328    time1 = time1+cputime
943 @ 11580:               LINE   328 "regression-compile-tmp/imp22g-77.imp"
944 @ 11620:               PUSH   TIME1
945 @ 11623:               PUSH   TIME1
946 @ 11626:               PUSH   CPUTIME
947 @ 11629:               ADD   
948 @ 11630:               ASSVAL

   329    %stop %if file(main)_flag # 0
   330  
   331  !Listing file
949 @ 11631:               LINE   329 "regression-compile-tmp/imp22g-77.imp"
950 @ 11671:               PUSH   FILE
951 @ 11674:               PUSHI  #0x00000001
952 @ 11679:               ACCESS
953 @ 11680:               SELECT 9
954 @ 11683:               PUSHI  #0x00000000
955 @ 11688:               JUMPIF = L_0004
956 @ 11692:               STOP  
957 @ 11693:               LOCATE L_0004

   332    %if listfile # "" %or control&(list+ttlist) # 0 %start
958 @ 11696:               LINE   332 "regression-compile-tmp/imp22g-77.imp"
959 @ 11736:               PUSH   LISTFILE
960 @ 11739:               PUSHS  ""
961 @ 11741:               JUMPIF # L_0005
962 @ 11745:               PUSH   CONTROL
963 @ 11748:               PUSHI  #0x00000001
964 @ 11753:               PUSHI  #0x00000002
965 @ 11758:               ADD   
966 @ 11759:               AND   
967 @ 11760:               PUSHI  #0x00000000
968 @ 11765:               JUMPIF = L_0004
969 @ 11769:               LOCATE L_0005

   333      %if control&ttlist = 0 %start
970 @ 11772:               LINE   333 "regression-compile-tmp/imp22g-77.imp"
971 @ 11812:               PUSH   CONTROL
972 @ 11815:               PUSHI  #0x00000002
973 @ 11820:               AND   
974 @ 11821:               PUSHI  #0x00000000
975 @ 11826:               JUMPIF # L_0007

   334        set extension(listfile,".lis")
976 @ 11830:               LINE   334 "regression-compile-tmp/imp22g-77.imp"
977 @ 11870:               PUSH   SETEXTENSION
978 @ 11873:               PUSH   LISTFILE
979 @ 11876:               ASSPAR
980 @ 11877:               PUSHS  ".lis"
981 @ 11883:               ASSPAR
982 @ 11884:               CALL  

   335        listout = 2
983 @ 11885:               LINE   335 "regression-compile-tmp/imp22g-77.imp"
984 @ 11925:               PUSH   LISTOUT
985 @ 11928:               PUSHI  #0x00000002
986 @ 11933:               ASSVAL

   336        open output(listout,listfile)
987 @ 11934:               LINE   336 "regression-compile-tmp/imp22g-77.imp"
988 @ 11974:               PUSH   OPENOUTPUT
989 @ 11977:               PUSH   LISTOUT
990 @ 11980:               ASSPAR
991 @ 11981:               PUSH   LISTFILE
992 @ 11984:               ASSPAR
993 @ 11985:               CALL  

   337      %finish
994 @ 11986:               LINE   337 "regression-compile-tmp/imp22g-77.imp"
995 @ 12026:               LOCATE L_0007

   338      control = control&(\(editbit+ttlist))
996 @ 12029:               LINE   338 "regression-compile-tmp/imp22g-77.imp"
997 @ 12069:               PUSH   CONTROL
998 @ 12072:               PUSH   CONTROL
999 @ 12075:               PUSHI  #0x00002000
1000 @ 12080:               PUSHI  #0x00000002
1001 @ 12085:               ADD   
1002 @ 12086:               NOT   
1003 @ 12087:               AND   
1004 @ 12088:               ASSVAL

   339      control = control!list %if control&listbits = 0
1005 @ 12089:               LINE   339 "regression-compile-tmp/imp22g-77.imp"
1006 @ 12129:               PUSH   CONTROL
1007 @ 12132:               PUSHI  #0x0000003f
1008 @ 12137:               AND   
1009 @ 12138:               PUSHI  #0x00000000
1010 @ 12143:               JUMPIF # L_0007
1011 @ 12147:               PUSH   CONTROL
1012 @ 12150:               PUSH   CONTROL
1013 @ 12153:               PUSHI  #0x00000001
1014 @ 12158:               OR    
1015 @ 12159:               ASSVAL
1016 @ 12160:               LOCATE L_0007

   340    %finish
1017 @ 12163:               LINE   340 "regression-compile-tmp/imp22g-77.imp"
1018 @ 12203:               LOCATE L_0004

   341    select output(listout)
1019 @ 12206:               LINE   341 "regression-compile-tmp/imp22g-77.imp"
1020 @ 12246:               PUSH   SELECTOUTPUT
1021 @ 12249:               PUSH   LISTOUT
1022 @ 12252:               ASSPAR
1023 @ 12253:               CALL  

   342    %if control&listbits # 0 %start
1024 @ 12254:               LINE   342 "regression-compile-tmp/imp22g-77.imp"
1025 @ 12294:               PUSH   CONTROL
1026 @ 12297:               PUSHI  #0x0000003f
1027 @ 12302:               AND   
1028 @ 12303:               PUSHI  #0x00000000
1029 @ 12308:               JUMPIF = L_0004

   343      control = control!list %if control&listbits # maplist
1030 @ 12312:               LINE   343 "regression-compile-tmp/imp22g-77.imp"
1031 @ 12352:               PUSH   CONTROL
1032 @ 12355:               PUSHI  #0x0000003f
1033 @ 12360:               AND   
1034 @ 12361:               PUSHI  #0x00000004
1035 @ 12366:               JUMPIF = L_0007
1036 @ 12370:               PUSH   CONTROL
1037 @ 12373:               PUSH   CONTROL
1038 @ 12376:               PUSHI  #0x00000001
1039 @ 12381:               OR    
1040 @ 12382:               ASSVAL
1041 @ 12383:               LOCATE L_0007

   344      newlines(2)
1042 @ 12386:               LINE   344 "regression-compile-tmp/imp22g-77.imp"
1043 @ 12426:               PUSH   NEWLINES
1044 @ 12429:               PUSHI  #0x00000002
1045 @ 12434:               ASSPAR
1046 @ 12435:               CALL  

   345      printstring(title)
1047 @ 12436:               LINE   345 "regression-compile-tmp/imp22g-77.imp"
1048 @ 12476:               PUSH   PRINTSTRING
1049 @ 12479:               PUSH   TITLE
1050 @ 12482:               ASSPAR
1051 @ 12483:               CALL  

   346      newlines(2)
1052 @ 12484:               LINE   346 "regression-compile-tmp/imp22g-77.imp"
1053 @ 12524:               PUSH   NEWLINES
1054 @ 12527:               PUSHI  #0x00000002
1055 @ 12532:               ASSPAR
1056 @ 12533:               CALL  

   347      printstring("   ");  printstring(file(main)_name)
1057 @ 12534:               LINE   347 "regression-compile-tmp/imp22g-77.imp"
1058 @ 12574:               PUSH   PRINTSTRING
1059 @ 12577:               PUSHS  "   "
1060 @ 12582:               ASSPAR
1061 @ 12583:               CALL  
1062 @ 12584:               LINE   347 "regression-compile-tmp/imp22g-77.imp"
1063 @ 12624:               PUSH   PRINTSTRING
1064 @ 12627:               PUSH   FILE
1065 @ 12630:               PUSHI  #0x00000001
1066 @ 12635:               ACCESS
1067 @ 12636:               SELECT 18
1068 @ 12639:               ASSPAR
1069 @ 12640:               CALL  

   348      printstring("  compiled on ");  printstring(date)
1070 @ 12641:               LINE   348 "regression-compile-tmp/imp22g-77.imp"
1071 @ 12681:               PUSH   PRINTSTRING
1072 @ 12684:               PUSHS  "  compiled on "
1073 @ 12700:               ASSPAR
1074 @ 12701:               CALL  
1075 @ 12702:               LINE   348 "regression-compile-tmp/imp22g-77.imp"
1076 @ 12742:               PUSH   PRINTSTRING
1077 @ 12745:               PUSH   DATE
1078 @ 12748:               ASSPAR
1079 @ 12749:               CALL  

   349      printstring("  at  ");  printstring(time)
1080 @ 12750:               LINE   349 "regression-compile-tmp/imp22g-77.imp"
1081 @ 12790:               PUSH   PRINTSTRING
1082 @ 12793:               PUSHS  "  at  "
1083 @ 12801:               ASSPAR
1084 @ 12802:               CALL  
1085 @ 12803:               LINE   349 "regression-compile-tmp/imp22g-77.imp"
1086 @ 12843:               PUSH   PRINTSTRING
1087 @ 12846:               PUSH   TIME
1088 @ 12849:               ASSPAR
1089 @ 12850:               CALL  

   350      newlines(2)
1090 @ 12851:               LINE   350 "regression-compile-tmp/imp22g-77.imp"
1091 @ 12891:               PUSH   NEWLINES
1092 @ 12894:               PUSHI  #0x00000002
1093 @ 12899:               ASSPAR
1094 @ 12900:               CALL  

   351    %finish
1095 @ 12901:               LINE   351 "regression-compile-tmp/imp22g-77.imp"
1096 @ 12941:               LOCATE L_0004

   352    initcon = control
1097 @ 12944:               LINE   352 "regression-compile-tmp/imp22g-77.imp"
1098 @ 12984:               PUSH   INITCON
1099 @ 12987:               PUSH   CONTROL
1100 @ 12990:               ASSVAL

   353  %end
   354  
1101 @ 12991:               LINE   353 "regression-compile-tmp/imp22g-77.imp"
1102 @ 13031:            END    _lev0id0_OPENFILES {lev=2 --> 1}

   355    time1 = 0
1103 @ 13032:            LINE   355 "regression-compile-tmp/imp22g-77.imp"
1104 @ 13072:            PUSH   TIME1
1105 @ 13075:            PUSHI  #0x00000000
1106 @ 13080:            ASSVAL

   356    open files
1107 @ 13081:            LINE   356 "regression-compile-tmp/imp22g-77.imp"
1108 @ 13121:            PUSH   OPENFILES
1109 @ 13124:            CALL  

   357    dictlim = dictlim+300;  !allow for presets
1110 @ 13125:            LINE   357 "regression-compile-tmp/imp22g-77.imp"
1111 @ 13165:            PUSH   DICTLIM
1112 @ 13168:            PUSH   DICTLIM
1113 @ 13171:            PUSHI  #0x0000012c
1114 @ 13176:            ADD   
1115 @ 13177:            ASSVAL

   358    charbound = dictlim*8
1116 @ 13178:            LINE   358 "regression-compile-tmp/imp22g-77.imp"
1117 @ 13218:            PUSH   CHARBOUND
1118 @ 13221:            PUSH   DICTLIM
1119 @ 13224:            PUSHI  #0x00000008
1120 @ 13229:            MUL   
1121 @ 13230:            ASSVAL

   359    finalbound = finalbound<<10+4095;  !kilobytes -> bytes + (min) owns
1122 @ 13231:            LINE   359 "regression-compile-tmp/imp22g-77.imp"
1123 @ 13271:            PUSH   FINALBOUND
1124 @ 13274:            PUSH   FINALBOUND
1125 @ 13277:            PUSHI  #0x0000000a
1126 @ 13282:            LSH   
1127 @ 13283:            PUSHI  #0x00000fff
1128 @ 13288:            ADD   
1129 @ 13289:            ASSVAL

   360    lablim = dictlim+labels
1130 @ 13290:            LINE   360 "regression-compile-tmp/imp22g-77.imp"
1131 @ 13330:            PUSH   LABLIM
1132 @ 13333:            PUSH   DICTLIM
1133 @ 13336:            PUSHI  #0x0000002a
1134 @ 13341:            ADD   
1135 @ 13342:            ASSVAL

   361    explim = lablim+triples
1136 @ 13343:            LINE   361 "regression-compile-tmp/imp22g-77.imp"
1137 @ 13383:            PUSH   EXPLIM
1138 @ 13386:            PUSH   LABLIM
1139 @ 13389:            PUSHI  #0x000000c8
1140 @ 13394:            ADD   
1141 @ 13395:            ASSVAL

   362    np0 = lablim+4
1142 @ 13396:            LINE   362 "regression-compile-tmp/imp22g-77.imp"
1143 @ 13436:            PUSH   NP0
1144 @ 13439:            PUSH   LABLIM
1145 @ 13442:            PUSHI  #0x00000004
1146 @ 13447:            ADD   
1147 @ 13448:            ASSVAL

   363    file(main)_change = 16_7FFFFFFF
1148 @ 13449:            LINE   363 "regression-compile-tmp/imp22g-77.imp"
1149 @ 13489:            PUSH   FILE
1150 @ 13492:            PUSHI  #0x00000001
1151 @ 13497:            ACCESS
1152 @ 13498:            SELECT 8
1153 @ 13501:            PUSHI  #0x7fffffff
1154 @ 13506:            ASSVAL

   364    forwardlabel_flags = spec;  forwardlabel_mode = labmode
1155 @ 13507:            LINE   364 "regression-compile-tmp/imp22g-77.imp"
1156 @ 13547:            PUSH   FORWARDLABEL
1157 @ 13550:            SELECT 1
1158 @ 13553:            PUSHI  #0x00000100
1159 @ 13558:            ASSVAL
1160 @ 13559:            LINE   364 "regression-compile-tmp/imp22g-77.imp"
1161 @ 13599:            PUSH   FORWARDLABEL
1162 @ 13602:            SELECT 8
1163 @ 13605:            PUSHI  #0x000000ba
1164 @ 13610:            ASSVAL

   365    definedlabel_mode = labmode
1165 @ 13611:            LINE   365 "regression-compile-tmp/imp22g-77.imp"
1166 @ 13651:            PUSH   DEFINEDLABEL
1167 @ 13654:            SELECT 8
1168 @ 13657:            PUSHI  #0x000000ba
1169 @ 13662:            ASSVAL

   366    beginblock_mode = procmode
1170 @ 13663:            LINE   366 "regression-compile-tmp/imp22g-77.imp"
1171 @ 13703:            PUSH   BEGINBLOCK
1172 @ 13706:            SELECT 8
1173 @ 13709:            PUSHI  #0x000000fa
1174 @ 13714:            ASSVAL

   367    typeident_flags = typeid+recy
   368  !
   369  !!!!!!!!!!!!!!!!  end of file and control initialisation  !!!!!!!!
   370  !
1175 @ 13715:            LINE   367 "regression-compile-tmp/imp22g-77.imp"
1176 @ 13755:            PUSH   TYPEIDENT
1177 @ 13758:            SELECT 1
1178 @ 13761:            PUSHI  #0x00000200
1179 @ 13766:            PUSHI  #0x0000000c
1180 @ 13771:            ADD   
1181 @ 13772:            ASSVAL

   371  %record(identinfo)%array DICT(0:explim-1)
   372  !  indexing DICT:
1182 @ 13773:            LINE   371 "regression-compile-tmp/imp22g-77.imp"
1183 @ 13813:            DEF    DICT p1=V_00aa a/tf=4b b/format=9b c/ostate=100  type=4 (record) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
1184 @ 13829:            PUSHI  #0x00000000
1185 @ 13834:            PUSH   EXPLIM
1186 @ 13837:            PUSHI  #0x00000001
1187 @ 13842:            SUB   
1188 @ 13843:            DIM    0001 0001

   373  %integer DLIM;         !dict limit (up)
1189 @ 13849:            LINE   373 "regression-compile-tmp/imp22g-77.imp"
1190 @ 13889:            DEF    DLIM p1=V_00ab a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   374  %integer DLIM0
1191 @ 13905:            LINE   374 "regression-compile-tmp/imp22g-77.imp"
1192 @ 13945:            DEF    DLIM0 p1=V_00ac a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   375  %integer DMIN;       !dict upper limit (down)
1193 @ 13962:            LINE   375 "regression-compile-tmp/imp22g-77.imp"
1194 @ 14002:            DEF    DMIN p1=V_00ad a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   376  %integer DMIN0
1195 @ 14018:            LINE   376 "regression-compile-tmp/imp22g-77.imp"
1196 @ 14058:            DEF    DMIN0 p1=V_00ae a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   377  %integer DICTSHOWN
1197 @ 14075:            LINE   377 "regression-compile-tmp/imp22g-77.imp"
1198 @ 14115:            DEF    DICTSHOWN p1=V_00af a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   378  %integer INCLIM
1199 @ 14136:            LINE   378 "regression-compile-tmp/imp22g-77.imp"
1200 @ 14176:            DEF    INCLIM p1=V_00b0 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   379  %record(identinfo)%name DLINK,DFORMAT,DTEMP,DTEMP2,DTSPREL,DINT
1201 @ 14194:            LINE   379 "regression-compile-tmp/imp22g-77.imp"
1202 @ 14234:            DEF    DLINK p1=V_00b1 a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
1203 @ 14251:            DEF    DFORMAT p1=V_00b2 a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
1204 @ 14270:            DEF    DTEMP p1=V_00b3 a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
1205 @ 14287:            DEF    DTEMP2 p1=V_00b4 a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
1206 @ 14305:            DEF    DTSPREL p1=V_00b5 a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
1207 @ 14324:            DEF    DINT p1=V_00b6 a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   380  %integer SUBBED
1208 @ 14340:            LINE   380 "regression-compile-tmp/imp22g-77.imp"
1209 @ 14380:            DEF    SUBBED p1=V_00b7 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   381  %integer RANGES
   382  
   383  ! The identifier dictionary grows as declarations are
   384  ! encountered, sequentially from 0 up, so that the
   385  ! identifiers within a declaration group and within any block
   386  ! are contiguous and may be processed thus (eg at block end).
   387  ! However, searching is always through the hash links, with a
   388  ! start-point given by the array HASHINDEX.  The final link
   389  ! value is zero.
   390  !  Identifiers are normally added at the start of the hash list
   391  ! (hence pushing down any global instance of the same name),
   392  ! but identifiers which have been reported as 'not declared'
   393  ! are added at the end of the list, using a negative link value.
   394  ! This tail section is used to avoid repeated reports for the
   395  ! same name (and is ultra-global, ie never removed).
   396  !
   397  ! For record formats, the format name is stored in the usual way
   398  ! and contains in LINK a pointer to the field-names which are linked
   399  ! through what is normally the hash link.  Searching for field-names
   400  ! proceeds along this chain, as if following hash links.
   401  !
   402  !  HLINK is the hash link (index to DICT)
   403  !
   404  !  TEXT is the pointer (index to CHAR) to the text of the identifier
   405  !       stored as a standard string
   406  
   407  !  Text of identifiers (indexed by _TEXT):
1210 @ 14398:            LINE   381 "regression-compile-tmp/imp22g-77.imp"
1211 @ 14438:            DEF    RANGES p1=V_00b8 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   408  %bytearray CHAR(0:charbound)
1212 @ 14456:            LINE   408 "regression-compile-tmp/imp22g-77.imp"
1213 @ 14496:            DEF    CHAR p1=V_00b9 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
1214 @ 14512:            PUSHI  #0x00000000
1215 @ 14517:            PUSH   CHARBOUND
1216 @ 14520:            DIM    0001 0001

   409  %integer CHAR0,CHARLIM,CHARMIN;  !pointers
1217 @ 14526:            LINE   409 "regression-compile-tmp/imp22g-77.imp"
1218 @ 14566:            DEF    CHAR0 p1=V_00ba a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
1219 @ 14583:            DEF    CHARLIM p1=V_00bb a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
1220 @ 14602:            DEF    CHARMIN p1=V_00bc a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   410  %integer NEWLEN
   411  
   412  !  Hash index to DICT:
1221 @ 14621:            LINE   410 "regression-compile-tmp/imp22g-77.imp"
1222 @ 14661:            DEF    NEWLEN p1=V_00bd a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   413  %shortarray HASHINDEX(0:255)
1223 @ 14679:            LINE   413 "regression-compile-tmp/imp22g-77.imp"
1224 @ 14719:            DEF    HASHINDEX p1=V_00be a/tf=1b b/format=3 c/ostate=100  type=1 (integer) form=11 (array) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
1225 @ 14740:            PUSHI  #0x00000000
1226 @ 14745:            PUSHI  #0x000000ff
1227 @ 14750:            DIM    0001 0001

   414  %shortname HEAD;                  !head of ident search list
   415  !
   416  !
   417  !<<IMP
   418  
   419  !* PRIMGEN marker 1
1228 @ 14756:            LINE   414 "regression-compile-tmp/imp22g-77.imp"
1229 @ 14796:            DEF    HEAD p1=V_00bf a/tf=12 b/format=3 c/ostate=0  type=1 (integer) form=2 (name) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0

   420  %constinteger NULL=41
1230 @ 14812:            LINE   420 "regression-compile-tmp/imp22g-77.imp"

   421  %constinteger PROCSTAR=42
1231 @ 14852:            LINE   421 "regression-compile-tmp/imp22g-77.imp"

   422  %constinteger INTTYPE=43
1232 @ 14892:            LINE   422 "regression-compile-tmp/imp22g-77.imp"

   423  %constinteger SHORTTYPE=46
1233 @ 14932:            LINE   423 "regression-compile-tmp/imp22g-77.imp"

   424  %constinteger HALFTYPE=49
1234 @ 14972:            LINE   424 "regression-compile-tmp/imp22g-77.imp"

   425  %constinteger BYTETYPE=52
1235 @ 15012:            LINE   425 "regression-compile-tmp/imp22g-77.imp"

   426  %constinteger MITETYPE=55
1236 @ 15052:            LINE   426 "regression-compile-tmp/imp22g-77.imp"

   427  %constinteger BOOLTYPE=58
1237 @ 15092:            LINE   427 "regression-compile-tmp/imp22g-77.imp"

   428  %constinteger CHARTYPE=61
1238 @ 15132:            LINE   428 "regression-compile-tmp/imp22g-77.imp"

   429  %constinteger STRINGSTAR=62
1239 @ 15172:            LINE   429 "regression-compile-tmp/imp22g-77.imp"

   430  %constinteger STRING1=63
1240 @ 15212:            LINE   430 "regression-compile-tmp/imp22g-77.imp"

   431  %constinteger STRINGTYPE=64
1241 @ 15252:            LINE   431 "regression-compile-tmp/imp22g-77.imp"

   432  %constinteger ARRSTAR=65
1242 @ 15292:            LINE   432 "regression-compile-tmp/imp22g-77.imp"

   433  %constinteger NULLSETTYPE=66
1243 @ 15332:            LINE   433 "regression-compile-tmp/imp22g-77.imp"

   434  %constinteger RECSTAR=67
1244 @ 15372:            LINE   434 "regression-compile-tmp/imp22g-77.imp"

   435  %constinteger REALTYPE=69
1245 @ 15412:            LINE   435 "regression-compile-tmp/imp22g-77.imp"

   436  %constinteger SIGNAL=73
1246 @ 15452:            LINE   436 "regression-compile-tmp/imp22g-77.imp"

   437  %constinteger DADDR=74
1247 @ 15492:            LINE   437 "regression-compile-tmp/imp22g-77.imp"

   438  %constinteger DSIZEOF=77
1248 @ 15532:            LINE   438 "regression-compile-tmp/imp22g-77.imp"

   439  %constinteger INDEX=78
1249 @ 15572:            LINE   439 "regression-compile-tmp/imp22g-77.imp"

   440  %constinteger LENREF=79
1250 @ 15612:            LINE   440 "regression-compile-tmp/imp22g-77.imp"

   441  %constinteger SINDEX=82
1251 @ 15652:            LINE   441 "regression-compile-tmp/imp22g-77.imp"

   442  %constinteger IMUL=86
1252 @ 15692:            LINE   442 "regression-compile-tmp/imp22g-77.imp"

   443  %constinteger IDIV=87
1253 @ 15732:            LINE   443 "regression-compile-tmp/imp22g-77.imp"

   444  %constinteger IPOW=88
1254 @ 15772:            LINE   444 "regression-compile-tmp/imp22g-77.imp"

   445  %constinteger FNEG=89
1255 @ 15812:            LINE   445 "regression-compile-tmp/imp22g-77.imp"

   446  %constinteger FADD=90
1256 @ 15852:            LINE   446 "regression-compile-tmp/imp22g-77.imp"

   447  %constinteger FSUB=91
1257 @ 15892:            LINE   447 "regression-compile-tmp/imp22g-77.imp"

   448  %constinteger FMUL=92
1258 @ 15932:            LINE   448 "regression-compile-tmp/imp22g-77.imp"

   449  %constinteger FDIV=93
1259 @ 15972:            LINE   449 "regression-compile-tmp/imp22g-77.imp"

   450  %constinteger FPOW=94
1260 @ 16012:            LINE   450 "regression-compile-tmp/imp22g-77.imp"

   451  %constinteger FLOAT=95
1261 @ 16052:            LINE   451 "regression-compile-tmp/imp22g-77.imp"

   452  %constinteger DREM=98
1262 @ 16092:            LINE   452 "regression-compile-tmp/imp22g-77.imp"

   453  %constinteger UNASS=102
1263 @ 16132:            LINE   453 "regression-compile-tmp/imp22g-77.imp"

   454  %constinteger ADOK=103
1264 @ 16172:            LINE   454 "regression-compile-tmp/imp22g-77.imp"

   455  %constinteger STACKOK=104
1265 @ 16212:            LINE   455 "regression-compile-tmp/imp22g-77.imp"

   456  %constinteger ASIZE=105
1266 @ 16252:            LINE   456 "regression-compile-tmp/imp22g-77.imp"

   457  %constinteger CONCAT=106
1267 @ 16292:            LINE   457 "regression-compile-tmp/imp22g-77.imp"

   458  %constinteger DTOSTRING=107
1268 @ 16332:            LINE   458 "regression-compile-tmp/imp22g-77.imp"

   459  %constinteger AGET=109
1269 @ 16372:            LINE   459 "regression-compile-tmp/imp22g-77.imp"

   460  %constinteger FOROK=110
1270 @ 16412:            LINE   460 "regression-compile-tmp/imp22g-77.imp"

   461  %constinteger CHECK=111
1271 @ 16452:            LINE   461 "regression-compile-tmp/imp22g-77.imp"

   462  %constinteger SCOMP=112
1272 @ 16492:            LINE   462 "regression-compile-tmp/imp22g-77.imp"

   463  %constinteger STRCOPY=113
1273 @ 16532:            LINE   463 "regression-compile-tmp/imp22g-77.imp"

   464  %constinteger STRTOSTK=114
1274 @ 16572:            LINE   464 "regression-compile-tmp/imp22g-77.imp"

   465  %constinteger DNEW=115
1275 @ 16612:            LINE   465 "regression-compile-tmp/imp22g-77.imp"

   466  %constinteger RESOLVES=117
1276 @ 16652:            LINE   466 "regression-compile-tmp/imp22g-77.imp"

   467  %constinteger DEVENTF=128
1277 @ 16692:            LINE   467 "regression-compile-tmp/imp22g-77.imp"

   468  %constinteger DEVENT=134
1278 @ 16732:            LINE   468 "regression-compile-tmp/imp22g-77.imp"

   469  %constinteger DNIL=137
1279 @ 16772:            LINE   469 "regression-compile-tmp/imp22g-77.imp"

   470  %constinteger DPRINTSTR=155
1280 @ 16812:            LINE   470 "regression-compile-tmp/imp22g-77.imp"

   471  %constinteger DWRITE=183
   472  
1281 @ 16852:            LINE   471 "regression-compile-tmp/imp22g-77.imp"

   473  %constinteger OPMAX=resolves
   474  
1282 @ 16892:            LINE   473 "regression-compile-tmp/imp22g-77.imp"

   475  %routine SET HASHHEAD(%string(*)%name s)
1283 @ 16932:            LINE   475 "regression-compile-tmp/imp22g-77.imp"
1284 @ 16972:            DEF    SETHASHHEAD (_lev0id0_SETHASHHEAD) p1=V_00c0 a/tf=7 b/format=0 c/ostate=0  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
1285 @ 16995:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
1286 @ 16996:                  DEF    S p1=V_00c1 a/tf=32 b/format=0 c/ostate=0  type=3 (string) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
1287 @ 17009:               FINISH ) {lev=2}

   476  %integer h,i
1288 @ 17010:               LINE   476 "regression-compile-tmp/imp22g-77.imp"
1289 @ 17050:               DEF    H p1=V_00c2 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
1290 @ 17063:               DEF    I p1=V_00c3 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   477    h = 0
1291 @ 17076:               LINE   477 "regression-compile-tmp/imp22g-77.imp"
1292 @ 17116:               PUSH   H
1293 @ 17119:               PUSHI  #0x00000000
1294 @ 17124:               ASSVAL

   478    h = h<<1!!charno(s,i) %for i = 1,1,length(s)
1295 @ 17125:               LINE   478 "regression-compile-tmp/imp22g-77.imp"
1296 @ 17165:               PUSH   I
1297 @ 17168:               PUSHI  #0x00000001
1298 @ 17173:               PUSH   LENGTH
1299 @ 17176:               PUSH   S
1300 @ 17179:               ASSPAR
1301 @ 17180:               CALL  
1302 @ 17181:               PUSHI  #0x00000001
1303 @ 17186:               FOR    L_0003
1304 @ 17189:               PUSH   H
1305 @ 17192:               PUSH   H
1306 @ 17195:               PUSHI  #0x00000001
1307 @ 17200:               LSH   
1308 @ 17201:               PUSH   CHARNO
1309 @ 17204:               PUSH   S
1310 @ 17207:               ASSPAR
1311 @ 17208:               PUSH   I
1312 @ 17211:               ASSPAR
1313 @ 17212:               CALL  
1314 @ 17213:               XOR   
1315 @ 17214:               ASSVAL
1316 @ 17215:               REPEAT L_0003
1317 @ 17218:               LOCATE L_0004

   479    head == hashindex(h&255)
1318 @ 17221:               LINE   479 "regression-compile-tmp/imp22g-77.imp"
1319 @ 17261:               PUSH   HEAD
1320 @ 17264:               PUSH   HASHINDEX
1321 @ 17267:               PUSH   H
1322 @ 17270:               PUSHI  #0x000000ff
1323 @ 17275:               AND   
1324 @ 17276:               ACCESS
1325 @ 17277:               ASSREF

   480  %end
   481  
1326 @ 17278:               LINE   480 "regression-compile-tmp/imp22g-77.imp"
1327 @ 17318:            END    _lev0id0_SETHASHHEAD {lev=2 --> 1}

   482  %routine PRESET
   483  !* PRIMGEN marker 2
1328 @ 17319:            LINE   482 "regression-compile-tmp/imp22g-77.imp"
1329 @ 17359:            DEF    PRESET (_lev0id0_PRESET) p1=V_00c1 a/tf=7 b/format=0 c/ostate=0  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
1330 @ 17377:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
1331 @ 17378:               FINISH ) {lev=2}

   484  %const%integer CMAX=775
1332 @ 17379:               LINE   484 "regression-compile-tmp/imp22g-77.imp"

   485  %OWN%byte%array CHARINIT(0:CMAX) = 
   486    0,
   487    2,'d','0',
   488    2,'d','1',
   489    2,'d','2',
   490    2,'d','3',
   491    2,'d','4',
   492    2,'d','5',
   493    2,'d','6',
   494    2,'d','7',
   495    2,'a','0',
   496    2,'a','1',
   497    2,'a','2',
   498    2,'a','3',
   499    2,'a','4',
   500    2,'a','5',
   501    2,'a','6',
   502    2,'a','7',
   503    7,'i','n','t','e','g','e','r',
   504    6,'M','A','X','I','N','T',
   505    12,'s','h','o','r','t','i','n','t','e','g','e','r',
   506    11,'h','a','l','f','i','n','t','e','g','e','r',
   507    11,'b','y','t','e','i','n','t','e','g','e','r',
   508    11,'m','i','t','e','i','n','t','e','g','e','r',
   509    7,'B','O','O','L','E','A','N',
   510    5,'F','A','L','S','E',
   511    4,'T','R','U','E',
   512    4,'c','h','a','r',
   513    6,'s','t','r','i','n','g',
   514    5,'a','r','r','a','y',
   515    6,'r','e','c','o','r','d',
   516    4,'T','E','X','T',
   517    4,'r','e','a','l',
   518    8,'l','o','n','g','r','e','a','l',
   519    6,'S','I','G','N','A','L',
   520    4,'a','d','d','r',
   521    6,'s','i','z','e','o','f',
   522    5,'I','N','D','E','X',
   523    6,'l','e','n','g','t','h',
   524    6,'c','h','a','r','n','o',
   525    4,'I','M','U','L',
   526    4,'I','D','I','V',
   527    4,'I','P','O','W',
   528    4,'F','N','E','G',
   529    4,'F','A','D','D',
   530    4,'F','S','U','B',
   531    4,'F','M','U','L',
   532    4,'F','D','I','V',
   533    4,'F','P','O','W',
   534    5,'f','l','o','a','t',
   535    3,'r','e','m',
   536    5,'U','N','A','S','S',
   537    4,'A','D','O','K',
   538    7,'S','T','A','C','K','O','K',
   539    5,'A','S','I','Z','E',
   540    6,'C','O','N','C','A','T',
   541    8,'t','o','s','t','r','i','n','g',
   542    4,'A','G','E','T',
   543    5,'F','O','R','O','K',
   544    5,'C','H','E','C','K',
   545    5,'S','C','O','M','P',
   546    7,'S','T','R','C','O','P','Y',
   547    8,'S','T','R','T','O','S','T','K',
   548    3,'n','e','w',
   549    8,'r','e','s','o','l','v','e','s',
   550    9,'s','u','b','s','t','r','i','n','g',
   551    7,'e','v','e','n','t','f','m',
   552    5,'e','v','e','n','t',
   553    3,'s','u','b',
   554    4,'l','i','n','e',
   555    5,'e','x','t','r','a',
   556    7,'m','e','s','s','a','g','e',
   557    5,'e','v','e','n','t',
   558    2,'n','l',
   559    3,'s','n','l',
   560    3,'n','i','l',
   561    7,'d','i','s','p','o','s','e',
   562    5,'r','o','u','n','d',
   563    5,'t','r','u','n','c',
   564    8,'f','r','a','c','t','i','o','n',
   565    3,'i','n','t',
   566    5,'i','n','t','p','t',
   567    6,'f','r','a','c','p','t',
   568    4,'s','q','r','t',
   569    10,'n','e','x','t','s','y','m','b','o','l',
   570    10,'r','e','a','d','s','y','m','b','o','l',
   571    10,'s','k','i','p','s','y','m','b','o','l',
   572    11,'p','r','i','n','t','s','y','m','b','o','l',
   573    11,'p','r','i','n','t','s','t','r','i','n','g',
   574    9,'o','p','e','n','i','n','p','u','t',
   575    10,'o','p','e','n','o','u','t','p','u','t',
   576    11,'s','e','l','e','c','t','i','n','p','u','t',
   577    12,'s','e','l','e','c','t','o','u','t','p','u','t',
   578    8,'s','e','t','i','n','p','u','t',
   579    9,'s','e','t','o','u','t','p','u','t',
   580    10,'r','e','s','e','t','i','n','p','u','t',
   581    11,'r','e','s','e','t','o','u','t','p','u','t',
   582    10,'c','l','o','s','e','i','n','p','u','t',
   583    11,'c','l','o','s','e','o','u','t','p','u','t',
   584    6,'p','r','o','m','p','t',
   585    7,'n','e','w','l','i','n','e',
   586    5,'s','p','a','c','e',
   587    6,'s','p','a','c','e','s',
   588    8,'n','e','w','l','i','n','e','s',
   589    4,'r','e','a','d', 138,'r','e','a','d','s','t','r','i','n','g',
   590    4,'r','e','a','d', 136,'r','e','a','d','r','e','a','l',
   591    4,'r','e','a','d',
   592    5,'w','r','i','t','e',
   593    7,'c','p','u','t','i','m','e',
   594    5,'p','r','i','n','t',
   595    7,'p','r','i','n','t','f','l',
   596    8,'i','n','s','t','r','e','a','m',
   597    9,'o','u','t','s','t','r','e','a','m',
   598    8,'c','l','i','p','a','r','a','m',
   599  0
1333 @ 17419:               LINE   485 "regression-compile-tmp/imp22g-77.imp"
1334 @ 17459:               PUSHI  #0x00000000
1335 @ 17464:               PUSHI  #0x00000307
1336 @ 17469:               BOUNDS
1337 @ 17470:               DEF    CHARINIT p1=V_00c2 a/tf=1b b/format=2 c/ostate=121  type=1 (integer) form=11 (array) special=1 (byte-integer) linkage=1 (own) spec=0 indirect=0 unass=1
1338 @ 17490:               PUSHI  #0x00000000
1339 @ 17495:               INIT   1
1340 @ 17498:               PUSHI  #0x00000002
1341 @ 17503:               INIT   1
1342 @ 17506:               PUSHI  #0x00000064
1343 @ 17511:               INIT   1
1344 @ 17514:               PUSHI  #0x00000030
1345 @ 17519:               INIT   1
1346 @ 17522:               PUSHI  #0x00000002
1347 @ 17527:               INIT   1
1348 @ 17530:               PUSHI  #0x00000064
1349 @ 17535:               INIT   1
1350 @ 17538:               PUSHI  #0x00000031
1351 @ 17543:               INIT   1
1352 @ 17546:               PUSHI  #0x00000002
1353 @ 17551:               INIT   1
1354 @ 17554:               PUSHI  #0x00000064
1355 @ 17559:               INIT   1
1356 @ 17562:               PUSHI  #0x00000032
1357 @ 17567:               INIT   1
1358 @ 17570:               PUSHI  #0x00000002
1359 @ 17575:               INIT   1
1360 @ 17578:               PUSHI  #0x00000064
1361 @ 17583:               INIT   1
1362 @ 17586:               PUSHI  #0x00000033
1363 @ 17591:               INIT   1
1364 @ 17594:               PUSHI  #0x00000002
1365 @ 17599:               INIT   1
1366 @ 17602:               PUSHI  #0x00000064
1367 @ 17607:               INIT   1
1368 @ 17610:               PUSHI  #0x00000034
1369 @ 17615:               INIT   1
1370 @ 17618:               PUSHI  #0x00000002
1371 @ 17623:               INIT   1
1372 @ 17626:               PUSHI  #0x00000064
1373 @ 17631:               INIT   1
1374 @ 17634:               PUSHI  #0x00000035
1375 @ 17639:               INIT   1
1376 @ 17642:               PUSHI  #0x00000002
1377 @ 17647:               INIT   1
1378 @ 17650:               PUSHI  #0x00000064
1379 @ 17655:               INIT   1
1380 @ 17658:               PUSHI  #0x00000036
1381 @ 17663:               INIT   1
1382 @ 17666:               PUSHI  #0x00000002
1383 @ 17671:               INIT   1
1384 @ 17674:               PUSHI  #0x00000064
1385 @ 17679:               INIT   1
1386 @ 17682:               PUSHI  #0x00000037
1387 @ 17687:               INIT   1
1388 @ 17690:               PUSHI  #0x00000002
1389 @ 17695:               INIT   1
1390 @ 17698:               PUSHI  #0x00000061
1391 @ 17703:               INIT   1
1392 @ 17706:               PUSHI  #0x00000030
1393 @ 17711:               INIT   1
1394 @ 17714:               PUSHI  #0x00000002
1395 @ 17719:               INIT   1
1396 @ 17722:               PUSHI  #0x00000061
1397 @ 17727:               INIT   1
1398 @ 17730:               PUSHI  #0x00000031
1399 @ 17735:               INIT   1
1400 @ 17738:               PUSHI  #0x00000002
1401 @ 17743:               INIT   1
1402 @ 17746:               PUSHI  #0x00000061
1403 @ 17751:               INIT   1
1404 @ 17754:               PUSHI  #0x00000032
1405 @ 17759:               INIT   1
1406 @ 17762:               PUSHI  #0x00000002
1407 @ 17767:               INIT   1
1408 @ 17770:               PUSHI  #0x00000061
1409 @ 17775:               INIT   1
1410 @ 17778:               PUSHI  #0x00000033
1411 @ 17783:               INIT   1
1412 @ 17786:               PUSHI  #0x00000002
1413 @ 17791:               INIT   1
1414 @ 17794:               PUSHI  #0x00000061
1415 @ 17799:               INIT   1
1416 @ 17802:               PUSHI  #0x00000034
1417 @ 17807:               INIT   1
1418 @ 17810:               PUSHI  #0x00000002
1419 @ 17815:               INIT   1
1420 @ 17818:               PUSHI  #0x00000061
1421 @ 17823:               INIT   1
1422 @ 17826:               PUSHI  #0x00000035
1423 @ 17831:               INIT   1
1424 @ 17834:               PUSHI  #0x00000002
1425 @ 17839:               INIT   1
1426 @ 17842:               PUSHI  #0x00000061
1427 @ 17847:               INIT   1
1428 @ 17850:               PUSHI  #0x00000036
1429 @ 17855:               INIT   1
1430 @ 17858:               PUSHI  #0x00000002
1431 @ 17863:               INIT   1
1432 @ 17866:               PUSHI  #0x00000061
1433 @ 17871:               INIT   1
1434 @ 17874:               PUSHI  #0x00000037
1435 @ 17879:               INIT   1
1436 @ 17882:               PUSHI  #0x00000007
1437 @ 17887:               INIT   1
1438 @ 17890:               PUSHI  #0x00000069
1439 @ 17895:               INIT   1
1440 @ 17898:               PUSHI  #0x0000006e
1441 @ 17903:               INIT   1
1442 @ 17906:               PUSHI  #0x00000074
1443 @ 17911:               INIT   1
1444 @ 17914:               PUSHI  #0x00000065
1445 @ 17919:               INIT   1
1446 @ 17922:               PUSHI  #0x00000067
1447 @ 17927:               INIT   1
1448 @ 17930:               PUSHI  #0x00000065
1449 @ 17935:               INIT   1
1450 @ 17938:               PUSHI  #0x00000072
1451 @ 17943:               INIT   1
1452 @ 17946:               PUSHI  #0x00000006
1453 @ 17951:               INIT   1
1454 @ 17954:               PUSHI  #0x0000004d
1455 @ 17959:               INIT   1
1456 @ 17962:               PUSHI  #0x00000041
1457 @ 17967:               INIT   1
1458 @ 17970:               PUSHI  #0x00000058
1459 @ 17975:               INIT   1
1460 @ 17978:               PUSHI  #0x00000049
1461 @ 17983:               INIT   1
1462 @ 17986:               PUSHI  #0x0000004e
1463 @ 17991:               INIT   1
1464 @ 17994:               PUSHI  #0x00000054
1465 @ 17999:               INIT   1
1466 @ 18002:               PUSHI  #0x0000000c
1467 @ 18007:               INIT   1
1468 @ 18010:               PUSHI  #0x00000073
1469 @ 18015:               INIT   1
1470 @ 18018:               PUSHI  #0x00000068
1471 @ 18023:               INIT   1
1472 @ 18026:               PUSHI  #0x0000006f
1473 @ 18031:               INIT   1
1474 @ 18034:               PUSHI  #0x00000072
1475 @ 18039:               INIT   1
1476 @ 18042:               PUSHI  #0x00000074
1477 @ 18047:               INIT   1
1478 @ 18050:               PUSHI  #0x00000069
1479 @ 18055:               INIT   1
1480 @ 18058:               PUSHI  #0x0000006e
1481 @ 18063:               INIT   1
1482 @ 18066:               PUSHI  #0x00000074
1483 @ 18071:               INIT   1
1484 @ 18074:               PUSHI  #0x00000065
1485 @ 18079:               INIT   1
1486 @ 18082:               PUSHI  #0x00000067
1487 @ 18087:               INIT   1
1488 @ 18090:               PUSHI  #0x00000065
1489 @ 18095:               INIT   1
1490 @ 18098:               PUSHI  #0x00000072
1491 @ 18103:               INIT   1
1492 @ 18106:               PUSHI  #0x0000000b
1493 @ 18111:               INIT   1
1494 @ 18114:               PUSHI  #0x00000068
1495 @ 18119:               INIT   1
1496 @ 18122:               PUSHI  #0x00000061
1497 @ 18127:               INIT   1
1498 @ 18130:               PUSHI  #0x0000006c
1499 @ 18135:               INIT   1
1500 @ 18138:               PUSHI  #0x00000066
1501 @ 18143:               INIT   1
1502 @ 18146:               PUSHI  #0x00000069
1503 @ 18151:               INIT   1
1504 @ 18154:               PUSHI  #0x0000006e
1505 @ 18159:               INIT   1
1506 @ 18162:               PUSHI  #0x00000074
1507 @ 18167:               INIT   1
1508 @ 18170:               PUSHI  #0x00000065
1509 @ 18175:               INIT   1
1510 @ 18178:               PUSHI  #0x00000067
1511 @ 18183:               INIT   1
1512 @ 18186:               PUSHI  #0x00000065
1513 @ 18191:               INIT   1
1514 @ 18194:               PUSHI  #0x00000072
1515 @ 18199:               INIT   1
1516 @ 18202:               PUSHI  #0x0000000b
1517 @ 18207:               INIT   1
1518 @ 18210:               PUSHI  #0x00000062
1519 @ 18215:               INIT   1
1520 @ 18218:               PUSHI  #0x00000079
1521 @ 18223:               INIT   1
1522 @ 18226:               PUSHI  #0x00000074
1523 @ 18231:               INIT   1
1524 @ 18234:               PUSHI  #0x00000065
1525 @ 18239:               INIT   1
1526 @ 18242:               PUSHI  #0x00000069
1527 @ 18247:               INIT   1
1528 @ 18250:               PUSHI  #0x0000006e
1529 @ 18255:               INIT   1
1530 @ 18258:               PUSHI  #0x00000074
1531 @ 18263:               INIT   1
1532 @ 18266:               PUSHI  #0x00000065
1533 @ 18271:               INIT   1
1534 @ 18274:               PUSHI  #0x00000067
1535 @ 18279:               INIT   1
1536 @ 18282:               PUSHI  #0x00000065
1537 @ 18287:               INIT   1
1538 @ 18290:               PUSHI  #0x00000072
1539 @ 18295:               INIT   1
1540 @ 18298:               PUSHI  #0x0000000b
1541 @ 18303:               INIT   1
1542 @ 18306:               PUSHI  #0x0000006d
1543 @ 18311:               INIT   1
1544 @ 18314:               PUSHI  #0x00000069
1545 @ 18319:               INIT   1
1546 @ 18322:               PUSHI  #0x00000074
1547 @ 18327:               INIT   1
1548 @ 18330:               PUSHI  #0x00000065
1549 @ 18335:               INIT   1
1550 @ 18338:               PUSHI  #0x00000069
1551 @ 18343:               INIT   1
1552 @ 18346:               PUSHI  #0x0000006e
1553 @ 18351:               INIT   1
1554 @ 18354:               PUSHI  #0x00000074
1555 @ 18359:               INIT   1
1556 @ 18362:               PUSHI  #0x00000065
1557 @ 18367:               INIT   1
1558 @ 18370:               PUSHI  #0x00000067
1559 @ 18375:               INIT   1
1560 @ 18378:               PUSHI  #0x00000065
1561 @ 18383:               INIT   1
1562 @ 18386:               PUSHI  #0x00000072
1563 @ 18391:               INIT   1
1564 @ 18394:               PUSHI  #0x00000007
1565 @ 18399:               INIT   1
1566 @ 18402:               PUSHI  #0x00000042
1567 @ 18407:               INIT   1
1568 @ 18410:               PUSHI  #0x0000004f
1569 @ 18415:               INIT   1
1570 @ 18418:               PUSHI  #0x0000004f
1571 @ 18423:               INIT   1
1572 @ 18426:               PUSHI  #0x0000004c
1573 @ 18431:               INIT   1
1574 @ 18434:               PUSHI  #0x00000045
1575 @ 18439:               INIT   1
1576 @ 18442:               PUSHI  #0x00000041
1577 @ 18447:               INIT   1
1578 @ 18450:               PUSHI  #0x0000004e
1579 @ 18455:               INIT   1
1580 @ 18458:               PUSHI  #0x00000005
1581 @ 18463:               INIT   1
1582 @ 18466:               PUSHI  #0x00000046
1583 @ 18471:               INIT   1
1584 @ 18474:               PUSHI  #0x00000041
1585 @ 18479:               INIT   1
1586 @ 18482:               PUSHI  #0x0000004c
1587 @ 18487:               INIT   1
1588 @ 18490:               PUSHI  #0x00000053
1589 @ 18495:               INIT   1
1590 @ 18498:               PUSHI  #0x00000045
1591 @ 18503:               INIT   1
1592 @ 18506:               PUSHI  #0x00000004
1593 @ 18511:               INIT   1
1594 @ 18514:               PUSHI  #0x00000054
1595 @ 18519:               INIT   1
1596 @ 18522:               PUSHI  #0x00000052
1597 @ 18527:               INIT   1
1598 @ 18530:               PUSHI  #0x00000055
1599 @ 18535:               INIT   1
1600 @ 18538:               PUSHI  #0x00000045
1601 @ 18543:               INIT   1
1602 @ 18546:               PUSHI  #0x00000004
1603 @ 18551:               INIT   1
1604 @ 18554:               PUSHI  #0x00000063
1605 @ 18559:               INIT   1
1606 @ 18562:               PUSHI  #0x00000068
1607 @ 18567:               INIT   1
1608 @ 18570:               PUSHI  #0x00000061
1609 @ 18575:               INIT   1
1610 @ 18578:               PUSHI  #0x00000072
1611 @ 18583:               INIT   1
1612 @ 18586:               PUSHI  #0x00000006
1613 @ 18591:               INIT   1
1614 @ 18594:               PUSHI  #0x00000073
1615 @ 18599:               INIT   1
1616 @ 18602:               PUSHI  #0x00000074
1617 @ 18607:               INIT   1
1618 @ 18610:               PUSHI  #0x00000072
1619 @ 18615:               INIT   1
1620 @ 18618:               PUSHI  #0x00000069
1621 @ 18623:               INIT   1
1622 @ 18626:               PUSHI  #0x0000006e
1623 @ 18631:               INIT   1
1624 @ 18634:               PUSHI  #0x00000067
1625 @ 18639:               INIT   1
1626 @ 18642:               PUSHI  #0x00000005
1627 @ 18647:               INIT   1
1628 @ 18650:               PUSHI  #0x00000061
1629 @ 18655:               INIT   1
1630 @ 18658:               PUSHI  #0x00000072
1631 @ 18663:               INIT   1
1632 @ 18666:               PUSHI  #0x00000072
1633 @ 18671:               INIT   1
1634 @ 18674:               PUSHI  #0x00000061
1635 @ 18679:               INIT   1
1636 @ 18682:               PUSHI  #0x00000079
1637 @ 18687:               INIT   1
1638 @ 18690:               PUSHI  #0x00000006
1639 @ 18695:               INIT   1
1640 @ 18698:               PUSHI  #0x00000072
1641 @ 18703:               INIT   1
1642 @ 18706:               PUSHI  #0x00000065
1643 @ 18711:               INIT   1
1644 @ 18714:               PUSHI  #0x00000063
1645 @ 18719:               INIT   1
1646 @ 18722:               PUSHI  #0x0000006f
1647 @ 18727:               INIT   1
1648 @ 18730:               PUSHI  #0x00000072
1649 @ 18735:               INIT   1
1650 @ 18738:               PUSHI  #0x00000064
1651 @ 18743:               INIT   1
1652 @ 18746:               PUSHI  #0x00000004
1653 @ 18751:               INIT   1
1654 @ 18754:               PUSHI  #0x00000054
1655 @ 18759:               INIT   1
1656 @ 18762:               PUSHI  #0x00000045
1657 @ 18767:               INIT   1
1658 @ 18770:               PUSHI  #0x00000058
1659 @ 18775:               INIT   1
1660 @ 18778:               PUSHI  #0x00000054
1661 @ 18783:               INIT   1
1662 @ 18786:               PUSHI  #0x00000004
1663 @ 18791:               INIT   1
1664 @ 18794:               PUSHI  #0x00000072
1665 @ 18799:               INIT   1
1666 @ 18802:               PUSHI  #0x00000065
1667 @ 18807:               INIT   1
1668 @ 18810:               PUSHI  #0x00000061
1669 @ 18815:               INIT   1
1670 @ 18818:               PUSHI  #0x0000006c
1671 @ 18823:               INIT   1
1672 @ 18826:               PUSHI  #0x00000008
1673 @ 18831:               INIT   1
1674 @ 18834:               PUSHI  #0x0000006c
1675 @ 18839:               INIT   1
1676 @ 18842:               PUSHI  #0x0000006f
1677 @ 18847:               INIT   1
1678 @ 18850:               PUSHI  #0x0000006e
1679 @ 18855:               INIT   1
1680 @ 18858:               PUSHI  #0x00000067
1681 @ 18863:               INIT   1
1682 @ 18866:               PUSHI  #0x00000072
1683 @ 18871:               INIT   1
1684 @ 18874:               PUSHI  #0x00000065
1685 @ 18879:               INIT   1
1686 @ 18882:               PUSHI  #0x00000061
1687 @ 18887:               INIT   1
1688 @ 18890:               PUSHI  #0x0000006c
1689 @ 18895:               INIT   1
1690 @ 18898:               PUSHI  #0x00000006
1691 @ 18903:               INIT   1
1692 @ 18906:               PUSHI  #0x00000053
1693 @ 18911:               INIT   1
1694 @ 18914:               PUSHI  #0x00000049
1695 @ 18919:               INIT   1
1696 @ 18922:               PUSHI  #0x00000047
1697 @ 18927:               INIT   1
1698 @ 18930:               PUSHI  #0x0000004e
1699 @ 18935:               INIT   1
1700 @ 18938:               PUSHI  #0x00000041
1701 @ 18943:               INIT   1
1702 @ 18946:               PUSHI  #0x0000004c
1703 @ 18951:               INIT   1
1704 @ 18954:               PUSHI  #0x00000004
1705 @ 18959:               INIT   1
1706 @ 18962:               PUSHI  #0x00000061
1707 @ 18967:               INIT   1
1708 @ 18970:               PUSHI  #0x00000064
1709 @ 18975:               INIT   1
1710 @ 18978:               PUSHI  #0x00000064
1711 @ 18983:               INIT   1
1712 @ 18986:               PUSHI  #0x00000072
1713 @ 18991:               INIT   1
1714 @ 18994:               PUSHI  #0x00000006
1715 @ 18999:               INIT   1
1716 @ 19002:               PUSHI  #0x00000073
1717 @ 19007:               INIT   1
1718 @ 19010:               PUSHI  #0x00000069
1719 @ 19015:               INIT   1
1720 @ 19018:               PUSHI  #0x0000007a
1721 @ 19023:               INIT   1
1722 @ 19026:               PUSHI  #0x00000065
1723 @ 19031:               INIT   1
1724 @ 19034:               PUSHI  #0x0000006f
1725 @ 19039:               INIT   1
1726 @ 19042:               PUSHI  #0x00000066
1727 @ 19047:               INIT   1
1728 @ 19050:               PUSHI  #0x00000005
1729 @ 19055:               INIT   1
1730 @ 19058:               PUSHI  #0x00000049
1731 @ 19063:               INIT   1
1732 @ 19066:               PUSHI  #0x0000004e
1733 @ 19071:               INIT   1
1734 @ 19074:               PUSHI  #0x00000044
1735 @ 19079:               INIT   1
1736 @ 19082:               PUSHI  #0x00000045
1737 @ 19087:               INIT   1
1738 @ 19090:               PUSHI  #0x00000058
1739 @ 19095:               INIT   1
1740 @ 19098:               PUSHI  #0x00000006
1741 @ 19103:               INIT   1
1742 @ 19106:               PUSHI  #0x0000006c
1743 @ 19111:               INIT   1
1744 @ 19114:               PUSHI  #0x00000065
1745 @ 19119:               INIT   1
1746 @ 19122:               PUSHI  #0x0000006e
1747 @ 19127:               INIT   1
1748 @ 19130:               PUSHI  #0x00000067
1749 @ 19135:               INIT   1
1750 @ 19138:               PUSHI  #0x00000074
1751 @ 19143:               INIT   1
1752 @ 19146:               PUSHI  #0x00000068
1753 @ 19151:               INIT   1
1754 @ 19154:               PUSHI  #0x00000006
1755 @ 19159:               INIT   1
1756 @ 19162:               PUSHI  #0x00000063
1757 @ 19167:               INIT   1
1758 @ 19170:               PUSHI  #0x00000068
1759 @ 19175:               INIT   1
1760 @ 19178:               PUSHI  #0x00000061
1761 @ 19183:               INIT   1
1762 @ 19186:               PUSHI  #0x00000072
1763 @ 19191:               INIT   1
1764 @ 19194:               PUSHI  #0x0000006e
1765 @ 19199:               INIT   1
1766 @ 19202:               PUSHI  #0x0000006f
1767 @ 19207:               INIT   1
1768 @ 19210:               PUSHI  #0x00000004
1769 @ 19215:               INIT   1
1770 @ 19218:               PUSHI  #0x00000049
1771 @ 19223:               INIT   1
1772 @ 19226:               PUSHI  #0x0000004d
1773 @ 19231:               INIT   1
1774 @ 19234:               PUSHI  #0x00000055
1775 @ 19239:               INIT   1
1776 @ 19242:               PUSHI  #0x0000004c
1777 @ 19247:               INIT   1
1778 @ 19250:               PUSHI  #0x00000004
1779 @ 19255:               INIT   1
1780 @ 19258:               PUSHI  #0x00000049
1781 @ 19263:               INIT   1
1782 @ 19266:               PUSHI  #0x00000044
1783 @ 19271:               INIT   1
1784 @ 19274:               PUSHI  #0x00000049
1785 @ 19279:               INIT   1
1786 @ 19282:               PUSHI  #0x00000056
1787 @ 19287:               INIT   1
1788 @ 19290:               PUSHI  #0x00000004
1789 @ 19295:               INIT   1
1790 @ 19298:               PUSHI  #0x00000049
1791 @ 19303:               INIT   1
1792 @ 19306:               PUSHI  #0x00000050
1793 @ 19311:               INIT   1
1794 @ 19314:               PUSHI  #0x0000004f
1795 @ 19319:               INIT   1
1796 @ 19322:               PUSHI  #0x00000057
1797 @ 19327:               INIT   1
1798 @ 19330:               PUSHI  #0x00000004
1799 @ 19335:               INIT   1
1800 @ 19338:               PUSHI  #0x00000046
1801 @ 19343:               INIT   1
1802 @ 19346:               PUSHI  #0x0000004e
1803 @ 19351:               INIT   1
1804 @ 19354:               PUSHI  #0x00000045
1805 @ 19359:               INIT   1
1806 @ 19362:               PUSHI  #0x00000047
1807 @ 19367:               INIT   1
1808 @ 19370:               PUSHI  #0x00000004
1809 @ 19375:               INIT   1
1810 @ 19378:               PUSHI  #0x00000046
1811 @ 19383:               INIT   1
1812 @ 19386:               PUSHI  #0x00000041
1813 @ 19391:               INIT   1
1814 @ 19394:               PUSHI  #0x00000044
1815 @ 19399:               INIT   1
1816 @ 19402:               PUSHI  #0x00000044
1817 @ 19407:               INIT   1
1818 @ 19410:               PUSHI  #0x00000004
1819 @ 19415:               INIT   1
1820 @ 19418:               PUSHI  #0x00000046
1821 @ 19423:               INIT   1
1822 @ 19426:               PUSHI  #0x00000053
1823 @ 19431:               INIT   1
1824 @ 19434:               PUSHI  #0x00000055
1825 @ 19439:               INIT   1
1826 @ 19442:               PUSHI  #0x00000042
1827 @ 19447:               INIT   1
1828 @ 19450:               PUSHI  #0x00000004
1829 @ 19455:               INIT   1
1830 @ 19458:               PUSHI  #0x00000046
1831 @ 19463:               INIT   1
1832 @ 19466:               PUSHI  #0x0000004d
1833 @ 19471:               INIT   1
1834 @ 19474:               PUSHI  #0x00000055
1835 @ 19479:               INIT   1
1836 @ 19482:               PUSHI  #0x0000004c
1837 @ 19487:               INIT   1
1838 @ 19490:               PUSHI  #0x00000004
1839 @ 19495:               INIT   1
1840 @ 19498:               PUSHI  #0x00000046
1841 @ 19503:               INIT   1
1842 @ 19506:               PUSHI  #0x00000044
1843 @ 19511:               INIT   1
1844 @ 19514:               PUSHI  #0x00000049
1845 @ 19519:               INIT   1
1846 @ 19522:               PUSHI  #0x00000056
1847 @ 19527:               INIT   1
1848 @ 19530:               PUSHI  #0x00000004
1849 @ 19535:               INIT   1
1850 @ 19538:               PUSHI  #0x00000046
1851 @ 19543:               INIT   1
1852 @ 19546:               PUSHI  #0x00000050
1853 @ 19551:               INIT   1
1854 @ 19554:               PUSHI  #0x0000004f
1855 @ 19559:               INIT   1
1856 @ 19562:               PUSHI  #0x00000057
1857 @ 19567:               INIT   1
1858 @ 19570:               PUSHI  #0x00000005
1859 @ 19575:               INIT   1
1860 @ 19578:               PUSHI  #0x00000066
1861 @ 19583:               INIT   1
1862 @ 19586:               PUSHI  #0x0000006c
1863 @ 19591:               INIT   1
1864 @ 19594:               PUSHI  #0x0000006f
1865 @ 19599:               INIT   1
1866 @ 19602:               PUSHI  #0x00000061
1867 @ 19607:               INIT   1
1868 @ 19610:               PUSHI  #0x00000074
1869 @ 19615:               INIT   1
1870 @ 19618:               PUSHI  #0x00000003
1871 @ 19623:               INIT   1
1872 @ 19626:               PUSHI  #0x00000072
1873 @ 19631:               INIT   1
1874 @ 19634:               PUSHI  #0x00000065
1875 @ 19639:               INIT   1
1876 @ 19642:               PUSHI  #0x0000006d
1877 @ 19647:               INIT   1
1878 @ 19650:               PUSHI  #0x00000005
1879 @ 19655:               INIT   1
1880 @ 19658:               PUSHI  #0x00000055
1881 @ 19663:               INIT   1
1882 @ 19666:               PUSHI  #0x0000004e
1883 @ 19671:               INIT   1
1884 @ 19674:               PUSHI  #0x00000041
1885 @ 19679:               INIT   1
1886 @ 19682:               PUSHI  #0x00000053
1887 @ 19687:               INIT   1
1888 @ 19690:               PUSHI  #0x00000053
1889 @ 19695:               INIT   1
1890 @ 19698:               PUSHI  #0x00000004
1891 @ 19703:               INIT   1
1892 @ 19706:               PUSHI  #0x00000041
1893 @ 19711:               INIT   1
1894 @ 19714:               PUSHI  #0x00000044
1895 @ 19719:               INIT   1
1896 @ 19722:               PUSHI  #0x0000004f
1897 @ 19727:               INIT   1
1898 @ 19730:               PUSHI  #0x0000004b
1899 @ 19735:               INIT   1
1900 @ 19738:               PUSHI  #0x00000007
1901 @ 19743:               INIT   1
1902 @ 19746:               PUSHI  #0x00000053
1903 @ 19751:               INIT   1
1904 @ 19754:               PUSHI  #0x00000054
1905 @ 19759:               INIT   1
1906 @ 19762:               PUSHI  #0x00000041
1907 @ 19767:               INIT   1
1908 @ 19770:               PUSHI  #0x00000043
1909 @ 19775:               INIT   1
1910 @ 19778:               PUSHI  #0x0000004b
1911 @ 19783:               INIT   1
1912 @ 19786:               PUSHI  #0x0000004f
1913 @ 19791:               INIT   1
1914 @ 19794:               PUSHI  #0x0000004b
1915 @ 19799:               INIT   1
1916 @ 19802:               PUSHI  #0x00000005
1917 @ 19807:               INIT   1
1918 @ 19810:               PUSHI  #0x00000041
1919 @ 19815:               INIT   1
1920 @ 19818:               PUSHI  #0x00000053
1921 @ 19823:               INIT   1
1922 @ 19826:               PUSHI  #0x00000049
1923 @ 19831:               INIT   1
1924 @ 19834:               PUSHI  #0x0000005a
1925 @ 19839:               INIT   1
1926 @ 19842:               PUSHI  #0x00000045
1927 @ 19847:               INIT   1
1928 @ 19850:               PUSHI  #0x00000006
1929 @ 19855:               INIT   1
1930 @ 19858:               PUSHI  #0x00000043
1931 @ 19863:               INIT   1
1932 @ 19866:               PUSHI  #0x0000004f
1933 @ 19871:               INIT   1
1934 @ 19874:               PUSHI  #0x0000004e
1935 @ 19879:               INIT   1
1936 @ 19882:               PUSHI  #0x00000043
1937 @ 19887:               INIT   1
1938 @ 19890:               PUSHI  #0x00000041
1939 @ 19895:               INIT   1
1940 @ 19898:               PUSHI  #0x00000054
1941 @ 19903:               INIT   1
1942 @ 19906:               PUSHI  #0x00000008
1943 @ 19911:               INIT   1
1944 @ 19914:               PUSHI  #0x00000074
1945 @ 19919:               INIT   1
1946 @ 19922:               PUSHI  #0x0000006f
1947 @ 19927:               INIT   1
1948 @ 19930:               PUSHI  #0x00000073
1949 @ 19935:               INIT   1
1950 @ 19938:               PUSHI  #0x00000074
1951 @ 19943:               INIT   1
1952 @ 19946:               PUSHI  #0x00000072
1953 @ 19951:               INIT   1
1954 @ 19954:               PUSHI  #0x00000069
1955 @ 19959:               INIT   1
1956 @ 19962:               PUSHI  #0x0000006e
1957 @ 19967:               INIT   1
1958 @ 19970:               PUSHI  #0x00000067
1959 @ 19975:               INIT   1
1960 @ 19978:               PUSHI  #0x00000004
1961 @ 19983:               INIT   1
1962 @ 19986:               PUSHI  #0x00000041
1963 @ 19991:               INIT   1
1964 @ 19994:               PUSHI  #0x00000047
1965 @ 19999:               INIT   1
1966 @ 20002:               PUSHI  #0x00000045
1967 @ 20007:               INIT   1
1968 @ 20010:               PUSHI  #0x00000054
1969 @ 20015:               INIT   1
1970 @ 20018:               PUSHI  #0x00000005
1971 @ 20023:               INIT   1
1972 @ 20026:               PUSHI  #0x00000046
1973 @ 20031:               INIT   1
1974 @ 20034:               PUSHI  #0x0000004f
1975 @ 20039:               INIT   1
1976 @ 20042:               PUSHI  #0x00000052
1977 @ 20047:               INIT   1
1978 @ 20050:               PUSHI  #0x0000004f
1979 @ 20055:               INIT   1
1980 @ 20058:               PUSHI  #0x0000004b
1981 @ 20063:               INIT   1
1982 @ 20066:               PUSHI  #0x00000005
1983 @ 20071:               INIT   1
1984 @ 20074:               PUSHI  #0x00000043
1985 @ 20079:               INIT   1
1986 @ 20082:               PUSHI  #0x00000048
1987 @ 20087:               INIT   1
1988 @ 20090:               PUSHI  #0x00000045
1989 @ 20095:               INIT   1
1990 @ 20098:               PUSHI  #0x00000043
1991 @ 20103:               INIT   1
1992 @ 20106:               PUSHI  #0x0000004b
1993 @ 20111:               INIT   1
1994 @ 20114:               PUSHI  #0x00000005
1995 @ 20119:               INIT   1
1996 @ 20122:               PUSHI  #0x00000053
1997 @ 20127:               INIT   1
1998 @ 20130:               PUSHI  #0x00000043
1999 @ 20135:               INIT   1
2000 @ 20138:               PUSHI  #0x0000004f
2001 @ 20143:               INIT   1
2002 @ 20146:               PUSHI  #0x0000004d
2003 @ 20151:               INIT   1
2004 @ 20154:               PUSHI  #0x00000050
2005 @ 20159:               INIT   1
2006 @ 20162:               PUSHI  #0x00000007
2007 @ 20167:               INIT   1
2008 @ 20170:               PUSHI  #0x00000053
2009 @ 20175:               INIT   1
2010 @ 20178:               PUSHI  #0x00000054
2011 @ 20183:               INIT   1
2012 @ 20186:               PUSHI  #0x00000052
2013 @ 20191:               INIT   1
2014 @ 20194:               PUSHI  #0x00000043
2015 @ 20199:               INIT   1
2016 @ 20202:               PUSHI  #0x0000004f
2017 @ 20207:               INIT   1
2018 @ 20210:               PUSHI  #0x00000050
2019 @ 20215:               INIT   1
2020 @ 20218:               PUSHI  #0x00000059
2021 @ 20223:               INIT   1
2022 @ 20226:               PUSHI  #0x00000008
2023 @ 20231:               INIT   1
2024 @ 20234:               PUSHI  #0x00000053
2025 @ 20239:               INIT   1
2026 @ 20242:               PUSHI  #0x00000054
2027 @ 20247:               INIT   1
2028 @ 20250:               PUSHI  #0x00000052
2029 @ 20255:               INIT   1
2030 @ 20258:               PUSHI  #0x00000054
2031 @ 20263:               INIT   1
2032 @ 20266:               PUSHI  #0x0000004f
2033 @ 20271:               INIT   1
2034 @ 20274:               PUSHI  #0x00000053
2035 @ 20279:               INIT   1
2036 @ 20282:               PUSHI  #0x00000054
2037 @ 20287:               INIT   1
2038 @ 20290:               PUSHI  #0x0000004b
2039 @ 20295:               INIT   1
2040 @ 20298:               PUSHI  #0x00000003
2041 @ 20303:               INIT   1
2042 @ 20306:               PUSHI  #0x0000006e
2043 @ 20311:               INIT   1
2044 @ 20314:               PUSHI  #0x00000065
2045 @ 20319:               INIT   1
2046 @ 20322:               PUSHI  #0x00000077
2047 @ 20327:               INIT   1
2048 @ 20330:               PUSHI  #0x00000008
2049 @ 20335:               INIT   1
2050 @ 20338:               PUSHI  #0x00000072
2051 @ 20343:               INIT   1
2052 @ 20346:               PUSHI  #0x00000065
2053 @ 20351:               INIT   1
2054 @ 20354:               PUSHI  #0x00000073
2055 @ 20359:               INIT   1
2056 @ 20362:               PUSHI  #0x0000006f
2057 @ 20367:               INIT   1
2058 @ 20370:               PUSHI  #0x0000006c
2059 @ 20375:               INIT   1
2060 @ 20378:               PUSHI  #0x00000076
2061 @ 20383:               INIT   1
2062 @ 20386:               PUSHI  #0x00000065
2063 @ 20391:               INIT   1
2064 @ 20394:               PUSHI  #0x00000073
2065 @ 20399:               INIT   1
2066 @ 20402:               PUSHI  #0x00000009
2067 @ 20407:               INIT   1
2068 @ 20410:               PUSHI  #0x00000073
2069 @ 20415:               INIT   1
2070 @ 20418:               PUSHI  #0x00000075
2071 @ 20423:               INIT   1
2072 @ 20426:               PUSHI  #0x00000062
2073 @ 20431:               INIT   1
2074 @ 20434:               PUSHI  #0x00000073
2075 @ 20439:               INIT   1
2076 @ 20442:               PUSHI  #0x00000074
2077 @ 20447:               INIT   1
2078 @ 20450:               PUSHI  #0x00000072
2079 @ 20455:               INIT   1
2080 @ 20458:               PUSHI  #0x00000069
2081 @ 20463:               INIT   1
2082 @ 20466:               PUSHI  #0x0000006e
2083 @ 20471:               INIT   1
2084 @ 20474:               PUSHI  #0x00000067
2085 @ 20479:               INIT   1
2086 @ 20482:               PUSHI  #0x00000007
2087 @ 20487:               INIT   1
2088 @ 20490:               PUSHI  #0x00000065
2089 @ 20495:               INIT   1
2090 @ 20498:               PUSHI  #0x00000076
2091 @ 20503:               INIT   1
2092 @ 20506:               PUSHI  #0x00000065
2093 @ 20511:               INIT   1
2094 @ 20514:               PUSHI  #0x0000006e
2095 @ 20519:               INIT   1
2096 @ 20522:               PUSHI  #0x00000074
2097 @ 20527:               INIT   1
2098 @ 20530:               PUSHI  #0x00000066
2099 @ 20535:               INIT   1
2100 @ 20538:               PUSHI  #0x0000006d
2101 @ 20543:               INIT   1
2102 @ 20546:               PUSHI  #0x00000005
2103 @ 20551:               INIT   1
2104 @ 20554:               PUSHI  #0x00000065
2105 @ 20559:               INIT   1
2106 @ 20562:               PUSHI  #0x00000076
2107 @ 20567:               INIT   1
2108 @ 20570:               PUSHI  #0x00000065
2109 @ 20575:               INIT   1
2110 @ 20578:               PUSHI  #0x0000006e
2111 @ 20583:               INIT   1
2112 @ 20586:               PUSHI  #0x00000074
2113 @ 20591:               INIT   1
2114 @ 20594:               PUSHI  #0x00000003
2115 @ 20599:               INIT   1
2116 @ 20602:               PUSHI  #0x00000073
2117 @ 20607:               INIT   1
2118 @ 20610:               PUSHI  #0x00000075
2119 @ 20615:               INIT   1
2120 @ 20618:               PUSHI  #0x00000062
2121 @ 20623:               INIT   1
2122 @ 20626:               PUSHI  #0x00000004
2123 @ 20631:               INIT   1
2124 @ 20634:               PUSHI  #0x0000006c
2125 @ 20639:               INIT   1
2126 @ 20642:               PUSHI  #0x00000069
2127 @ 20647:               INIT   1
2128 @ 20650:               PUSHI  #0x0000006e
2129 @ 20655:               INIT   1
2130 @ 20658:               PUSHI  #0x00000065
2131 @ 20663:               INIT   1
2132 @ 20666:               PUSHI  #0x00000005
2133 @ 20671:               INIT   1
2134 @ 20674:               PUSHI  #0x00000065
2135 @ 20679:               INIT   1
2136 @ 20682:               PUSHI  #0x00000078
2137 @ 20687:               INIT   1
2138 @ 20690:               PUSHI  #0x00000074
2139 @ 20695:               INIT   1
2140 @ 20698:               PUSHI  #0x00000072
2141 @ 20703:               INIT   1
2142 @ 20706:               PUSHI  #0x00000061
2143 @ 20711:               INIT   1
2144 @ 20714:               PUSHI  #0x00000007
2145 @ 20719:               INIT   1
2146 @ 20722:               PUSHI  #0x0000006d
2147 @ 20727:               INIT   1
2148 @ 20730:               PUSHI  #0x00000065
2149 @ 20735:               INIT   1
2150 @ 20738:               PUSHI  #0x00000073
2151 @ 20743:               INIT   1
2152 @ 20746:               PUSHI  #0x00000073
2153 @ 20751:               INIT   1
2154 @ 20754:               PUSHI  #0x00000061
2155 @ 20759:               INIT   1
2156 @ 20762:               PUSHI  #0x00000067
2157 @ 20767:               INIT   1
2158 @ 20770:               PUSHI  #0x00000065
2159 @ 20775:               INIT   1
2160 @ 20778:               PUSHI  #0x00000005
2161 @ 20783:               INIT   1
2162 @ 20786:               PUSHI  #0x00000065
2163 @ 20791:               INIT   1
2164 @ 20794:               PUSHI  #0x00000076
2165 @ 20799:               INIT   1
2166 @ 20802:               PUSHI  #0x00000065
2167 @ 20807:               INIT   1
2168 @ 20810:               PUSHI  #0x0000006e
2169 @ 20815:               INIT   1
2170 @ 20818:               PUSHI  #0x00000074
2171 @ 20823:               INIT   1
2172 @ 20826:               PUSHI  #0x00000002
2173 @ 20831:               INIT   1
2174 @ 20834:               PUSHI  #0x0000006e
2175 @ 20839:               INIT   1
2176 @ 20842:               PUSHI  #0x0000006c
2177 @ 20847:               INIT   1
2178 @ 20850:               PUSHI  #0x00000003
2179 @ 20855:               INIT   1
2180 @ 20858:               PUSHI  #0x00000073
2181 @ 20863:               INIT   1
2182 @ 20866:               PUSHI  #0x0000006e
2183 @ 20871:               INIT   1
2184 @ 20874:               PUSHI  #0x0000006c
2185 @ 20879:               INIT   1
2186 @ 20882:               PUSHI  #0x00000003
2187 @ 20887:               INIT   1
2188 @ 20890:               PUSHI  #0x0000006e
2189 @ 20895:               INIT   1
2190 @ 20898:               PUSHI  #0x00000069
2191 @ 20903:               INIT   1
2192 @ 20906:               PUSHI  #0x0000006c
2193 @ 20911:               INIT   1
2194 @ 20914:               PUSHI  #0x00000007
2195 @ 20919:               INIT   1
2196 @ 20922:               PUSHI  #0x00000064
2197 @ 20927:               INIT   1
2198 @ 20930:               PUSHI  #0x00000069
2199 @ 20935:               INIT   1
2200 @ 20938:               PUSHI  #0x00000073
2201 @ 20943:               INIT   1
2202 @ 20946:               PUSHI  #0x00000070
2203 @ 20951:               INIT   1
2204 @ 20954:               PUSHI  #0x0000006f
2205 @ 20959:               INIT   1
2206 @ 20962:               PUSHI  #0x00000073
2207 @ 20967:               INIT   1
2208 @ 20970:               PUSHI  #0x00000065
2209 @ 20975:               INIT   1
2210 @ 20978:               PUSHI  #0x00000005
2211 @ 20983:               INIT   1
2212 @ 20986:               PUSHI  #0x00000072
2213 @ 20991:               INIT   1
2214 @ 20994:               PUSHI  #0x0000006f
2215 @ 20999:               INIT   1
2216 @ 21002:               PUSHI  #0x00000075
2217 @ 21007:               INIT   1
2218 @ 21010:               PUSHI  #0x0000006e
2219 @ 21015:               INIT   1
2220 @ 21018:               PUSHI  #0x00000064
2221 @ 21023:               INIT   1
2222 @ 21026:               PUSHI  #0x00000005
2223 @ 21031:               INIT   1
2224 @ 21034:               PUSHI  #0x00000074
2225 @ 21039:               INIT   1
2226 @ 21042:               PUSHI  #0x00000072
2227 @ 21047:               INIT   1
2228 @ 21050:               PUSHI  #0x00000075
2229 @ 21055:               INIT   1
2230 @ 21058:               PUSHI  #0x0000006e
2231 @ 21063:               INIT   1
2232 @ 21066:               PUSHI  #0x00000063
2233 @ 21071:               INIT   1
2234 @ 21074:               PUSHI  #0x00000008
2235 @ 21079:               INIT   1
2236 @ 21082:               PUSHI  #0x00000066
2237 @ 21087:               INIT   1
2238 @ 21090:               PUSHI  #0x00000072
2239 @ 21095:               INIT   1
2240 @ 21098:               PUSHI  #0x00000061
2241 @ 21103:               INIT   1
2242 @ 21106:               PUSHI  #0x00000063
2243 @ 21111:               INIT   1
2244 @ 21114:               PUSHI  #0x00000074
2245 @ 21119:               INIT   1
2246 @ 21122:               PUSHI  #0x00000069
2247 @ 21127:               INIT   1
2248 @ 21130:               PUSHI  #0x0000006f
2249 @ 21135:               INIT   1
2250 @ 21138:               PUSHI  #0x0000006e
2251 @ 21143:               INIT   1
2252 @ 21146:               PUSHI  #0x00000003
2253 @ 21151:               INIT   1
2254 @ 21154:               PUSHI  #0x00000069
2255 @ 21159:               INIT   1
2256 @ 21162:               PUSHI  #0x0000006e
2257 @ 21167:               INIT   1
2258 @ 21170:               PUSHI  #0x00000074
2259 @ 21175:               INIT   1
2260 @ 21178:               PUSHI  #0x00000005
2261 @ 21183:               INIT   1
2262 @ 21186:               PUSHI  #0x00000069
2263 @ 21191:               INIT   1
2264 @ 21194:               PUSHI  #0x0000006e
2265 @ 21199:               INIT   1
2266 @ 21202:               PUSHI  #0x00000074
2267 @ 21207:               INIT   1
2268 @ 21210:               PUSHI  #0x00000070
2269 @ 21215:               INIT   1
2270 @ 21218:               PUSHI  #0x00000074
2271 @ 21223:               INIT   1
2272 @ 21226:               PUSHI  #0x00000006
2273 @ 21231:               INIT   1
2274 @ 21234:               PUSHI  #0x00000066
2275 @ 21239:               INIT   1
2276 @ 21242:               PUSHI  #0x00000072
2277 @ 21247:               INIT   1
2278 @ 21250:               PUSHI  #0x00000061
2279 @ 21255:               INIT   1
2280 @ 21258:               PUSHI  #0x00000063
2281 @ 21263:               INIT   1
2282 @ 21266:               PUSHI  #0x00000070
2283 @ 21271:               INIT   1
2284 @ 21274:               PUSHI  #0x00000074
2285 @ 21279:               INIT   1
2286 @ 21282:               PUSHI  #0x00000004
2287 @ 21287:               INIT   1
2288 @ 21290:               PUSHI  #0x00000073
2289 @ 21295:               INIT   1
2290 @ 21298:               PUSHI  #0x00000071
2291 @ 21303:               INIT   1
2292 @ 21306:               PUSHI  #0x00000072
2293 @ 21311:               INIT   1
2294 @ 21314:               PUSHI  #0x00000074
2295 @ 21319:               INIT   1
2296 @ 21322:               PUSHI  #0x0000000a
2297 @ 21327:               INIT   1
2298 @ 21330:               PUSHI  #0x0000006e
2299 @ 21335:               INIT   1
2300 @ 21338:               PUSHI  #0x00000065
2301 @ 21343:               INIT   1
2302 @ 21346:               PUSHI  #0x00000078
2303 @ 21351:               INIT   1
2304 @ 21354:               PUSHI  #0x00000074
2305 @ 21359:               INIT   1
2306 @ 21362:               PUSHI  #0x00000073
2307 @ 21367:               INIT   1
2308 @ 21370:               PUSHI  #0x00000079
2309 @ 21375:               INIT   1
2310 @ 21378:               PUSHI  #0x0000006d
2311 @ 21383:               INIT   1
2312 @ 21386:               PUSHI  #0x00000062
2313 @ 21391:               INIT   1
2314 @ 21394:               PUSHI  #0x0000006f
2315 @ 21399:               INIT   1
2316 @ 21402:               PUSHI  #0x0000006c
2317 @ 21407:               INIT   1
2318 @ 21410:               PUSHI  #0x0000000a
2319 @ 21415:               INIT   1
2320 @ 21418:               PUSHI  #0x00000072
2321 @ 21423:               INIT   1
2322 @ 21426:               PUSHI  #0x00000065
2323 @ 21431:               INIT   1
2324 @ 21434:               PUSHI  #0x00000061
2325 @ 21439:               INIT   1
2326 @ 21442:               PUSHI  #0x00000064
2327 @ 21447:               INIT   1
2328 @ 21450:               PUSHI  #0x00000073
2329 @ 21455:               INIT   1
2330 @ 21458:               PUSHI  #0x00000079
2331 @ 21463:               INIT   1
2332 @ 21466:               PUSHI  #0x0000006d
2333 @ 21471:               INIT   1
2334 @ 21474:               PUSHI  #0x00000062
2335 @ 21479:               INIT   1
2336 @ 21482:               PUSHI  #0x0000006f
2337 @ 21487:               INIT   1
2338 @ 21490:               PUSHI  #0x0000006c
2339 @ 21495:               INIT   1
2340 @ 21498:               PUSHI  #0x0000000a
2341 @ 21503:               INIT   1
2342 @ 21506:               PUSHI  #0x00000073
2343 @ 21511:               INIT   1
2344 @ 21514:               PUSHI  #0x0000006b
2345 @ 21519:               INIT   1
2346 @ 21522:               PUSHI  #0x00000069
2347 @ 21527:               INIT   1
2348 @ 21530:               PUSHI  #0x00000070
2349 @ 21535:               INIT   1
2350 @ 21538:               PUSHI  #0x00000073
2351 @ 21543:               INIT   1
2352 @ 21546:               PUSHI  #0x00000079
2353 @ 21551:               INIT   1
2354 @ 21554:               PUSHI  #0x0000006d
2355 @ 21559:               INIT   1
2356 @ 21562:               PUSHI  #0x00000062
2357 @ 21567:               INIT   1
2358 @ 21570:               PUSHI  #0x0000006f
2359 @ 21575:               INIT   1
2360 @ 21578:               PUSHI  #0x0000006c
2361 @ 21583:               INIT   1
2362 @ 21586:               PUSHI  #0x0000000b
2363 @ 21591:               INIT   1
2364 @ 21594:               PUSHI  #0x00000070
2365 @ 21599:               INIT   1
2366 @ 21602:               PUSHI  #0x00000072
2367 @ 21607:               INIT   1
2368 @ 21610:               PUSHI  #0x00000069
2369 @ 21615:               INIT   1
2370 @ 21618:               PUSHI  #0x0000006e
2371 @ 21623:               INIT   1
2372 @ 21626:               PUSHI  #0x00000074
2373 @ 21631:               INIT   1
2374 @ 21634:               PUSHI  #0x00000073
2375 @ 21639:               INIT   1
2376 @ 21642:               PUSHI  #0x00000079
2377 @ 21647:               INIT   1
2378 @ 21650:               PUSHI  #0x0000006d
2379 @ 21655:               INIT   1
2380 @ 21658:               PUSHI  #0x00000062
2381 @ 21663:               INIT   1
2382 @ 21666:               PUSHI  #0x0000006f
2383 @ 21671:               INIT   1
2384 @ 21674:               PUSHI  #0x0000006c
2385 @ 21679:               INIT   1
2386 @ 21682:               PUSHI  #0x0000000b
2387 @ 21687:               INIT   1
2388 @ 21690:               PUSHI  #0x00000070
2389 @ 21695:               INIT   1
2390 @ 21698:               PUSHI  #0x00000072
2391 @ 21703:               INIT   1
2392 @ 21706:               PUSHI  #0x00000069
2393 @ 21711:               INIT   1
2394 @ 21714:               PUSHI  #0x0000006e
2395 @ 21719:               INIT   1
2396 @ 21722:               PUSHI  #0x00000074
2397 @ 21727:               INIT   1
2398 @ 21730:               PUSHI  #0x00000073
2399 @ 21735:               INIT   1
2400 @ 21738:               PUSHI  #0x00000074
2401 @ 21743:               INIT   1
2402 @ 21746:               PUSHI  #0x00000072
2403 @ 21751:               INIT   1
2404 @ 21754:               PUSHI  #0x00000069
2405 @ 21759:               INIT   1
2406 @ 21762:               PUSHI  #0x0000006e
2407 @ 21767:               INIT   1
2408 @ 21770:               PUSHI  #0x00000067
2409 @ 21775:               INIT   1
2410 @ 21778:               PUSHI  #0x00000009
2411 @ 21783:               INIT   1
2412 @ 21786:               PUSHI  #0x0000006f
2413 @ 21791:               INIT   1
2414 @ 21794:               PUSHI  #0x00000070
2415 @ 21799:               INIT   1
2416 @ 21802:               PUSHI  #0x00000065
2417 @ 21807:               INIT   1
2418 @ 21810:               PUSHI  #0x0000006e
2419 @ 21815:               INIT   1
2420 @ 21818:               PUSHI  #0x00000069
2421 @ 21823:               INIT   1
2422 @ 21826:               PUSHI  #0x0000006e
2423 @ 21831:               INIT   1
2424 @ 21834:               PUSHI  #0x00000070
2425 @ 21839:               INIT   1
2426 @ 21842:               PUSHI  #0x00000075
2427 @ 21847:               INIT   1
2428 @ 21850:               PUSHI  #0x00000074
2429 @ 21855:               INIT   1
2430 @ 21858:               PUSHI  #0x0000000a
2431 @ 21863:               INIT   1
2432 @ 21866:               PUSHI  #0x0000006f
2433 @ 21871:               INIT   1
2434 @ 21874:               PUSHI  #0x00000070
2435 @ 21879:               INIT   1
2436 @ 21882:               PUSHI  #0x00000065
2437 @ 21887:               INIT   1
2438 @ 21890:               PUSHI  #0x0000006e
2439 @ 21895:               INIT   1
2440 @ 21898:               PUSHI  #0x0000006f
2441 @ 21903:               INIT   1
2442 @ 21906:               PUSHI  #0x00000075
2443 @ 21911:               INIT   1
2444 @ 21914:               PUSHI  #0x00000074
2445 @ 21919:               INIT   1
2446 @ 21922:               PUSHI  #0x00000070
2447 @ 21927:               INIT   1
2448 @ 21930:               PUSHI  #0x00000075
2449 @ 21935:               INIT   1
2450 @ 21938:               PUSHI  #0x00000074
2451 @ 21943:               INIT   1
2452 @ 21946:               PUSHI  #0x0000000b
2453 @ 21951:               INIT   1
2454 @ 21954:               PUSHI  #0x00000073
2455 @ 21959:               INIT   1
2456 @ 21962:               PUSHI  #0x00000065
2457 @ 21967:               INIT   1
2458 @ 21970:               PUSHI  #0x0000006c
2459 @ 21975:               INIT   1
2460 @ 21978:               PUSHI  #0x00000065
2461 @ 21983:               INIT   1
2462 @ 21986:               PUSHI  #0x00000063
2463 @ 21991:               INIT   1
2464 @ 21994:               PUSHI  #0x00000074
2465 @ 21999:               INIT   1
2466 @ 22002:               PUSHI  #0x00000069
2467 @ 22007:               INIT   1
2468 @ 22010:               PUSHI  #0x0000006e
2469 @ 22015:               INIT   1
2470 @ 22018:               PUSHI  #0x00000070
2471 @ 22023:               INIT   1
2472 @ 22026:               PUSHI  #0x00000075
2473 @ 22031:               INIT   1
2474 @ 22034:               PUSHI  #0x00000074
2475 @ 22039:               INIT   1
2476 @ 22042:               PUSHI  #0x0000000c
2477 @ 22047:               INIT   1
2478 @ 22050:               PUSHI  #0x00000073
2479 @ 22055:               INIT   1
2480 @ 22058:               PUSHI  #0x00000065
2481 @ 22063:               INIT   1
2482 @ 22066:               PUSHI  #0x0000006c
2483 @ 22071:               INIT   1
2484 @ 22074:               PUSHI  #0x00000065
2485 @ 22079:               INIT   1
2486 @ 22082:               PUSHI  #0x00000063
2487 @ 22087:               INIT   1
2488 @ 22090:               PUSHI  #0x00000074
2489 @ 22095:               INIT   1
2490 @ 22098:               PUSHI  #0x0000006f
2491 @ 22103:               INIT   1
2492 @ 22106:               PUSHI  #0x00000075
2493 @ 22111:               INIT   1
2494 @ 22114:               PUSHI  #0x00000074
2495 @ 22119:               INIT   1
2496 @ 22122:               PUSHI  #0x00000070
2497 @ 22127:               INIT   1
2498 @ 22130:               PUSHI  #0x00000075
2499 @ 22135:               INIT   1
2500 @ 22138:               PUSHI  #0x00000074
2501 @ 22143:               INIT   1
2502 @ 22146:               PUSHI  #0x00000008
2503 @ 22151:               INIT   1
2504 @ 22154:               PUSHI  #0x00000073
2505 @ 22159:               INIT   1
2506 @ 22162:               PUSHI  #0x00000065
2507 @ 22167:               INIT   1
2508 @ 22170:               PUSHI  #0x00000074
2509 @ 22175:               INIT   1
2510 @ 22178:               PUSHI  #0x00000069
2511 @ 22183:               INIT   1
2512 @ 22186:               PUSHI  #0x0000006e
2513 @ 22191:               INIT   1
2514 @ 22194:               PUSHI  #0x00000070
2515 @ 22199:               INIT   1
2516 @ 22202:               PUSHI  #0x00000075
2517 @ 22207:               INIT   1
2518 @ 22210:               PUSHI  #0x00000074
2519 @ 22215:               INIT   1
2520 @ 22218:               PUSHI  #0x00000009
2521 @ 22223:               INIT   1
2522 @ 22226:               PUSHI  #0x00000073
2523 @ 22231:               INIT   1
2524 @ 22234:               PUSHI  #0x00000065
2525 @ 22239:               INIT   1
2526 @ 22242:               PUSHI  #0x00000074
2527 @ 22247:               INIT   1
2528 @ 22250:               PUSHI  #0x0000006f
2529 @ 22255:               INIT   1
2530 @ 22258:               PUSHI  #0x00000075
2531 @ 22263:               INIT   1
2532 @ 22266:               PUSHI  #0x00000074
2533 @ 22271:               INIT   1
2534 @ 22274:               PUSHI  #0x00000070
2535 @ 22279:               INIT   1
2536 @ 22282:               PUSHI  #0x00000075
2537 @ 22287:               INIT   1
2538 @ 22290:               PUSHI  #0x00000074
2539 @ 22295:               INIT   1
2540 @ 22298:               PUSHI  #0x0000000a
2541 @ 22303:               INIT   1
2542 @ 22306:               PUSHI  #0x00000072
2543 @ 22311:               INIT   1
2544 @ 22314:               PUSHI  #0x00000065
2545 @ 22319:               INIT   1
2546 @ 22322:               PUSHI  #0x00000073
2547 @ 22327:               INIT   1
2548 @ 22330:               PUSHI  #0x00000065
2549 @ 22335:               INIT   1
2550 @ 22338:               PUSHI  #0x00000074
2551 @ 22343:               INIT   1
2552 @ 22346:               PUSHI  #0x00000069
2553 @ 22351:               INIT   1
2554 @ 22354:               PUSHI  #0x0000006e
2555 @ 22359:               INIT   1
2556 @ 22362:               PUSHI  #0x00000070
2557 @ 22367:               INIT   1
2558 @ 22370:               PUSHI  #0x00000075
2559 @ 22375:               INIT   1
2560 @ 22378:               PUSHI  #0x00000074
2561 @ 22383:               INIT   1
2562 @ 22386:               PUSHI  #0x0000000b
2563 @ 22391:               INIT   1
2564 @ 22394:               PUSHI  #0x00000072
2565 @ 22399:               INIT   1
2566 @ 22402:               PUSHI  #0x00000065
2567 @ 22407:               INIT   1
2568 @ 22410:               PUSHI  #0x00000073
2569 @ 22415:               INIT   1
2570 @ 22418:               PUSHI  #0x00000065
2571 @ 22423:               INIT   1
2572 @ 22426:               PUSHI  #0x00000074
2573 @ 22431:               INIT   1
2574 @ 22434:               PUSHI  #0x0000006f
2575 @ 22439:               INIT   1
2576 @ 22442:               PUSHI  #0x00000075
2577 @ 22447:               INIT   1
2578 @ 22450:               PUSHI  #0x00000074
2579 @ 22455:               INIT   1
2580 @ 22458:               PUSHI  #0x00000070
2581 @ 22463:               INIT   1
2582 @ 22466:               PUSHI  #0x00000075
2583 @ 22471:               INIT   1
2584 @ 22474:               PUSHI  #0x00000074
2585 @ 22479:               INIT   1
2586 @ 22482:               PUSHI  #0x0000000a
2587 @ 22487:               INIT   1
2588 @ 22490:               PUSHI  #0x00000063
2589 @ 22495:               INIT   1
2590 @ 22498:               PUSHI  #0x0000006c
2591 @ 22503:               INIT   1
2592 @ 22506:               PUSHI  #0x0000006f
2593 @ 22511:               INIT   1
2594 @ 22514:               PUSHI  #0x00000073
2595 @ 22519:               INIT   1
2596 @ 22522:               PUSHI  #0x00000065
2597 @ 22527:               INIT   1
2598 @ 22530:               PUSHI  #0x00000069
2599 @ 22535:               INIT   1
2600 @ 22538:               PUSHI  #0x0000006e
2601 @ 22543:               INIT   1
2602 @ 22546:               PUSHI  #0x00000070
2603 @ 22551:               INIT   1
2604 @ 22554:               PUSHI  #0x00000075
2605 @ 22559:               INIT   1
2606 @ 22562:               PUSHI  #0x00000074
2607 @ 22567:               INIT   1
2608 @ 22570:               PUSHI  #0x0000000b
2609 @ 22575:               INIT   1
2610 @ 22578:               PUSHI  #0x00000063
2611 @ 22583:               INIT   1
2612 @ 22586:               PUSHI  #0x0000006c
2613 @ 22591:               INIT   1
2614 @ 22594:               PUSHI  #0x0000006f
2615 @ 22599:               INIT   1
2616 @ 22602:               PUSHI  #0x00000073
2617 @ 22607:               INIT   1
2618 @ 22610:               PUSHI  #0x00000065
2619 @ 22615:               INIT   1
2620 @ 22618:               PUSHI  #0x0000006f
2621 @ 22623:               INIT   1
2622 @ 22626:               PUSHI  #0x00000075
2623 @ 22631:               INIT   1
2624 @ 22634:               PUSHI  #0x00000074
2625 @ 22639:               INIT   1
2626 @ 22642:               PUSHI  #0x00000070
2627 @ 22647:               INIT   1
2628 @ 22650:               PUSHI  #0x00000075
2629 @ 22655:               INIT   1
2630 @ 22658:               PUSHI  #0x00000074
2631 @ 22663:               INIT   1
2632 @ 22666:               PUSHI  #0x00000006
2633 @ 22671:               INIT   1
2634 @ 22674:               PUSHI  #0x00000070
2635 @ 22679:               INIT   1
2636 @ 22682:               PUSHI  #0x00000072
2637 @ 22687:               INIT   1
2638 @ 22690:               PUSHI  #0x0000006f
2639 @ 22695:               INIT   1
2640 @ 22698:               PUSHI  #0x0000006d
2641 @ 22703:               INIT   1
2642 @ 22706:               PUSHI  #0x00000070
2643 @ 22711:               INIT   1
2644 @ 22714:               PUSHI  #0x00000074
2645 @ 22719:               INIT   1
2646 @ 22722:               PUSHI  #0x00000007
2647 @ 22727:               INIT   1
2648 @ 22730:               PUSHI  #0x0000006e
2649 @ 22735:               INIT   1
2650 @ 22738:               PUSHI  #0x00000065
2651 @ 22743:               INIT   1
2652 @ 22746:               PUSHI  #0x00000077
2653 @ 22751:               INIT   1
2654 @ 22754:               PUSHI  #0x0000006c
2655 @ 22759:               INIT   1
2656 @ 22762:               PUSHI  #0x00000069
2657 @ 22767:               INIT   1
2658 @ 22770:               PUSHI  #0x0000006e
2659 @ 22775:               INIT   1
2660 @ 22778:               PUSHI  #0x00000065
2661 @ 22783:               INIT   1
2662 @ 22786:               PUSHI  #0x00000005
2663 @ 22791:               INIT   1
2664 @ 22794:               PUSHI  #0x00000073
2665 @ 22799:               INIT   1
2666 @ 22802:               PUSHI  #0x00000070
2667 @ 22807:               INIT   1
2668 @ 22810:               PUSHI  #0x00000061
2669 @ 22815:               INIT   1
2670 @ 22818:               PUSHI  #0x00000063
2671 @ 22823:               INIT   1
2672 @ 22826:               PUSHI  #0x00000065
2673 @ 22831:               INIT   1
2674 @ 22834:               PUSHI  #0x00000006
2675 @ 22839:               INIT   1
2676 @ 22842:               PUSHI  #0x00000073
2677 @ 22847:               INIT   1
2678 @ 22850:               PUSHI  #0x00000070
2679 @ 22855:               INIT   1
2680 @ 22858:               PUSHI  #0x00000061
2681 @ 22863:               INIT   1
2682 @ 22866:               PUSHI  #0x00000063
2683 @ 22871:               INIT   1
2684 @ 22874:               PUSHI  #0x00000065
2685 @ 22879:               INIT   1
2686 @ 22882:               PUSHI  #0x00000073
2687 @ 22887:               INIT   1
2688 @ 22890:               PUSHI  #0x00000008
2689 @ 22895:               INIT   1
2690 @ 22898:               PUSHI  #0x0000006e
2691 @ 22903:               INIT   1
2692 @ 22906:               PUSHI  #0x00000065
2693 @ 22911:               INIT   1
2694 @ 22914:               PUSHI  #0x00000077
2695 @ 22919:               INIT   1
2696 @ 22922:               PUSHI  #0x0000006c
2697 @ 22927:               INIT   1
2698 @ 22930:               PUSHI  #0x00000069
2699 @ 22935:               INIT   1
2700 @ 22938:               PUSHI  #0x0000006e
2701 @ 22943:               INIT   1
2702 @ 22946:               PUSHI  #0x00000065
2703 @ 22951:               INIT   1
2704 @ 22954:               PUSHI  #0x00000073
2705 @ 22959:               INIT   1
2706 @ 22962:               PUSHI  #0x00000004
2707 @ 22967:               INIT   1
2708 @ 22970:               PUSHI  #0x00000072
2709 @ 22975:               INIT   1
2710 @ 22978:               PUSHI  #0x00000065
2711 @ 22983:               INIT   1
2712 @ 22986:               PUSHI  #0x00000061
2713 @ 22991:               INIT   1
2714 @ 22994:               PUSHI  #0x00000064
2715 @ 22999:               INIT   1
2716 @ 23002:               PUSHI  #0x0000008a
2717 @ 23007:               INIT   1
2718 @ 23010:               PUSHI  #0x00000072
2719 @ 23015:               INIT   1
2720 @ 23018:               PUSHI  #0x00000065
2721 @ 23023:               INIT   1
2722 @ 23026:               PUSHI  #0x00000061
2723 @ 23031:               INIT   1
2724 @ 23034:               PUSHI  #0x00000064
2725 @ 23039:               INIT   1
2726 @ 23042:               PUSHI  #0x00000073
2727 @ 23047:               INIT   1
2728 @ 23050:               PUSHI  #0x00000074
2729 @ 23055:               INIT   1
2730 @ 23058:               PUSHI  #0x00000072
2731 @ 23063:               INIT   1
2732 @ 23066:               PUSHI  #0x00000069
2733 @ 23071:               INIT   1
2734 @ 23074:               PUSHI  #0x0000006e
2735 @ 23079:               INIT   1
2736 @ 23082:               PUSHI  #0x00000067
2737 @ 23087:               INIT   1
2738 @ 23090:               PUSHI  #0x00000004
2739 @ 23095:               INIT   1
2740 @ 23098:               PUSHI  #0x00000072
2741 @ 23103:               INIT   1
2742 @ 23106:               PUSHI  #0x00000065
2743 @ 23111:               INIT   1
2744 @ 23114:               PUSHI  #0x00000061
2745 @ 23119:               INIT   1
2746 @ 23122:               PUSHI  #0x00000064
2747 @ 23127:               INIT   1
2748 @ 23130:               PUSHI  #0x00000088
2749 @ 23135:               INIT   1
2750 @ 23138:               PUSHI  #0x00000072
2751 @ 23143:               INIT   1
2752 @ 23146:               PUSHI  #0x00000065
2753 @ 23151:               INIT   1
2754 @ 23154:               PUSHI  #0x00000061
2755 @ 23159:               INIT   1
2756 @ 23162:               PUSHI  #0x00000064
2757 @ 23167:               INIT   1
2758 @ 23170:               PUSHI  #0x00000072
2759 @ 23175:               INIT   1
2760 @ 23178:               PUSHI  #0x00000065
2761 @ 23183:               INIT   1
2762 @ 23186:               PUSHI  #0x00000061
2763 @ 23191:               INIT   1
2764 @ 23194:               PUSHI  #0x0000006c
2765 @ 23199:               INIT   1
2766 @ 23202:               PUSHI  #0x00000004
2767 @ 23207:               INIT   1
2768 @ 23210:               PUSHI  #0x00000072
2769 @ 23215:               INIT   1
2770 @ 23218:               PUSHI  #0x00000065
2771 @ 23223:               INIT   1
2772 @ 23226:               PUSHI  #0x00000061
2773 @ 23231:               INIT   1
2774 @ 23234:               PUSHI  #0x00000064
2775 @ 23239:               INIT   1
2776 @ 23242:               PUSHI  #0x00000005
2777 @ 23247:               INIT   1
2778 @ 23250:               PUSHI  #0x00000077
2779 @ 23255:               INIT   1
2780 @ 23258:               PUSHI  #0x00000072
2781 @ 23263:               INIT   1
2782 @ 23266:               PUSHI  #0x00000069
2783 @ 23271:               INIT   1
2784 @ 23274:               PUSHI  #0x00000074
2785 @ 23279:               INIT   1
2786 @ 23282:               PUSHI  #0x00000065
2787 @ 23287:               INIT   1
2788 @ 23290:               PUSHI  #0x00000007
2789 @ 23295:               INIT   1
2790 @ 23298:               PUSHI  #0x00000063
2791 @ 23303:               INIT   1
2792 @ 23306:               PUSHI  #0x00000070
2793 @ 23311:               INIT   1
2794 @ 23314:               PUSHI  #0x00000075
2795 @ 23319:               INIT   1
2796 @ 23322:               PUSHI  #0x00000074
2797 @ 23327:               INIT   1
2798 @ 23330:               PUSHI  #0x00000069
2799 @ 23335:               INIT   1
2800 @ 23338:               PUSHI  #0x0000006d
2801 @ 23343:               INIT   1
2802 @ 23346:               PUSHI  #0x00000065
2803 @ 23351:               INIT   1
2804 @ 23354:               PUSHI  #0x00000005
2805 @ 23359:               INIT   1
2806 @ 23362:               PUSHI  #0x00000070
2807 @ 23367:               INIT   1
2808 @ 23370:               PUSHI  #0x00000072
2809 @ 23375:               INIT   1
2810 @ 23378:               PUSHI  #0x00000069
2811 @ 23383:               INIT   1
2812 @ 23386:               PUSHI  #0x0000006e
2813 @ 23391:               INIT   1
2814 @ 23394:               PUSHI  #0x00000074
2815 @ 23399:               INIT   1
2816 @ 23402:               PUSHI  #0x00000007
2817 @ 23407:               INIT   1
2818 @ 23410:               PUSHI  #0x00000070
2819 @ 23415:               INIT   1
2820 @ 23418:               PUSHI  #0x00000072
2821 @ 23423:               INIT   1
2822 @ 23426:               PUSHI  #0x00000069
2823 @ 23431:               INIT   1
2824 @ 23434:               PUSHI  #0x0000006e
2825 @ 23439:               INIT   1
2826 @ 23442:               PUSHI  #0x00000074
2827 @ 23447:               INIT   1
2828 @ 23450:               PUSHI  #0x00000066
2829 @ 23455:               INIT   1
2830 @ 23458:               PUSHI  #0x0000006c
2831 @ 23463:               INIT   1
2832 @ 23466:               PUSHI  #0x00000008
2833 @ 23471:               INIT   1
2834 @ 23474:               PUSHI  #0x00000069
2835 @ 23479:               INIT   1
2836 @ 23482:               PUSHI  #0x0000006e
2837 @ 23487:               INIT   1
2838 @ 23490:               PUSHI  #0x00000073
2839 @ 23495:               INIT   1
2840 @ 23498:               PUSHI  #0x00000074
2841 @ 23503:               INIT   1
2842 @ 23506:               PUSHI  #0x00000072
2843 @ 23511:               INIT   1
2844 @ 23514:               PUSHI  #0x00000065
2845 @ 23519:               INIT   1
2846 @ 23522:               PUSHI  #0x00000061
2847 @ 23527:               INIT   1
2848 @ 23530:               PUSHI  #0x0000006d
2849 @ 23535:               INIT   1
2850 @ 23538:               PUSHI  #0x00000009
2851 @ 23543:               INIT   1
2852 @ 23546:               PUSHI  #0x0000006f
2853 @ 23551:               INIT   1
2854 @ 23554:               PUSHI  #0x00000075
2855 @ 23559:               INIT   1
2856 @ 23562:               PUSHI  #0x00000074
2857 @ 23567:               INIT   1
2858 @ 23570:               PUSHI  #0x00000073
2859 @ 23575:               INIT   1
2860 @ 23578:               PUSHI  #0x00000074
2861 @ 23583:               INIT   1
2862 @ 23586:               PUSHI  #0x00000072
2863 @ 23591:               INIT   1
2864 @ 23594:               PUSHI  #0x00000065
2865 @ 23599:               INIT   1
2866 @ 23602:               PUSHI  #0x00000061
2867 @ 23607:               INIT   1
2868 @ 23610:               PUSHI  #0x0000006d
2869 @ 23615:               INIT   1
2870 @ 23618:               PUSHI  #0x00000008
2871 @ 23623:               INIT   1
2872 @ 23626:               PUSHI  #0x00000063
2873 @ 23631:               INIT   1
2874 @ 23634:               PUSHI  #0x0000006c
2875 @ 23639:               INIT   1
2876 @ 23642:               PUSHI  #0x00000069
2877 @ 23647:               INIT   1
2878 @ 23650:               PUSHI  #0x00000070
2879 @ 23655:               INIT   1
2880 @ 23658:               PUSHI  #0x00000061
2881 @ 23663:               INIT   1
2882 @ 23666:               PUSHI  #0x00000072
2883 @ 23671:               INIT   1
2884 @ 23674:               PUSHI  #0x00000061
2885 @ 23679:               INIT   1
2886 @ 23682:               PUSHI  #0x0000006d
2887 @ 23687:               INIT   1
2888 @ 23690:               PUSHI  #0x00000000
2889 @ 23695:               INIT   1

   600  %constinteger PREMAX=196
2890 @ 23698:               LINE   600 "regression-compile-tmp/imp22g-77.imp"

   601  %own%short%array DICTINIT(41*6:PREMAX*6+5) = 
   602   516,-1,0,0,0,0,
   603   527,-1,0,0,0,4,
   604   512,43,4,56,-32768,0,
   605   0,-44,4,60,-32768,0,
   606   0,43,4,60,32767,-1,
   607   512,43,2,56,-32768,0,
   608   0,-44,2,60,-1,-32768,
   609   0,-44,2,60,0,32767,
   610   512,43,2,56,-32768,0,
   611   0,-44,2,60,0,0,
   612   0,-44,2,60,0,-1,
   613   512,43,1,56,-32768,0,
   614   0,-44,1,60,0,0,
   615   0,-44,1,60,0,255,
   616   512,43,1,56,-32768,0,
   617   0,-44,1,60,-1,-128,
   618   0,-44,1,60,0,127,
   619   514,58,1,0,0,0,
   620   0,58,1,60,0,0,
   621   0,58,1,60,0,1,
   622   513,61,255,0,0,0,
   623   520,61,0,0,0,0,
   624   520,-62,-2,0,0,0,
   625   520,-62,-256,0,0,0,
   626   521,0,0,0,0,0,
   627   522,-1,0,0,0,0,
   628   524,0,0,0,0,0,
   629   525,61,4,0,0,0,
   630   517,0,4,0,0,0,
   631   517,0,4,0,0,0,
   632   0,-1,0,0,0,0,
   633   0,-1,0,0,0,0,
   634   4256,42,0,56,0,16122,
   635   4098,75,0,56,0,0,
   636   0,-44,76,0,0,4,
   637   -32701,-1,0,6313,-1,-4,
   638   4098,75,0,56,0,0,
   639   4096,42,0,56,-32767,2861,
   640   4099,80,0,56,0,0,
   641   0,-53,81,6144,0,4,
   642   -32701,-63,0,6313,-1,-4,
   643   4099,83,0,56,0,0,
   644   0,-53,84,6144,0,4,
   645   -32701,-63,85,6313,-1,-4,
   646   67,-44,0,169,-1,-8,
   647   4256,42,0,56,0,16116,
   648   4256,42,0,56,0,16110,
   649   4096,42,0,56,0,16098,
   650   4096,42,0,56,0,16092,
   651   4096,42,0,56,0,16086,
   652   4096,42,0,56,0,16080,
   653   4096,42,0,56,0,16074,
   654   4096,42,0,56,0,16068,
   655   4096,42,0,56,0,16062,
   656   4098,96,0,56,0,16056,
   657   0,-70,97,0,0,4,
   658   67,-44,0,169,-1,-4,
   659   4098,99,0,56,0,0,
   660   0,-44,100,0,0,4,
   661   67,-44,101,169,-1,-4,
   662   67,-44,0,425,-1,-8,
   663   4096,42,0,56,-32722,2578,
   664   4096,42,0,56,-32704,2064,
   665   4096,42,0,56,-32688,2839,
   666   4096,42,0,56,-32665,3097,
   667   4096,42,0,56,-32640,2077,
   668   4098,108,0,56,-32611,6,
   669   0,-64,97,6144,0,4,
   670   4096,42,0,56,-32605,2597,
   671   4096,42,0,56,-32568,2334,
   672   4096,42,0,56,-32538,1806,
   673   4096,42,0,56,-32524,2626,
   674   4096,42,0,56,-32458,2070,
   675   4096,42,0,56,-32436,2090,
   676   4103,116,0,56,0,16008,
   677   0,-68,76,6144,0,4,
   678   22786,118,0,108,0,0,
   679   0,-59,119,0,0,0,
   680   -32701,-63,120,6313,-1,-4,
   681   67,-65,121,6569,-1,-260,
   682   -32701,-63,122,6825,-1,-264,
   683   -32701,-63,0,7081,-1,-268,
   684   4098,124,0,56,-32394,15,
   685   0,-65,125,6144,0,4,
   686   -32701,-63,126,6313,-1,-4,
   687   67,-44,127,169,-1,-8,
   688   67,-44,0,425,-1,-12,
   689   524,0,129,0,-1,-264,
   690   3,52,0,0,0,0,
   691   3,52,0,0,0,1,
   692   3,46,0,0,0,2,
   693   3,43,0,0,0,4,
   694   3,64,0,0,0,8,
   695   67,128,0,45,0,32,
   696   66,43,0,60,0,10,
   697   66,61,0,60,0,10,
   698   67,67,0,56,0,0,
   699   4096,139,0,56,0,16002,
   700   0,-1,76,0,0,4,
   701   4098,141,0,56,0,16050,
   702   0,-44,142,0,0,4,
   703   67,-70,0,169,-1,-4,
   704   4098,141,0,56,0,16044,
   705   4098,145,0,56,0,16038,
   706   0,-70,142,0,0,4,
   707   4098,141,0,56,0,16032,
   708   4098,141,0,56,0,16026,
   709   4098,145,0,56,0,16020,
   710   4098,145,0,56,0,16014,
   711   4098,132,0,56,0,15996,
   712   4098,132,0,56,0,15990,
   713   4096,42,0,56,0,15990,
   714   4256,154,0,56,0,15984,
   715   0,-1,97,0,0,4,
   716   4096,156,0,56,0,15978,
   717   0,-1,157,0,0,4,
   718   67,-65,0,6313,-1,-256,
   719   26880,159,0,108,0,0,
   720   0,-1,160,0,0,0,
   721   67,-44,161,169,-1,-4,
   722   67,-65,0,6313,-1,-260,
   723   26880,159,0,108,0,0,
   724   4096,154,0,56,0,15960,
   725   4096,154,0,56,0,15954,
   726   26880,166,0,108,0,0,
   727   0,-1,97,0,0,0,
   728   26880,166,0,108,0,0,
   729   26880,0,0,108,0,0,
   730   26880,0,0,108,0,0,
   731   4096,42,0,56,0,15936,
   732   4096,42,0,56,0,15930,
   733   26880,173,0,108,0,0,
   734   0,-1,157,0,0,0,
   735   4096,42,0,56,-32379,4,
   736   4096,42,0,56,-32375,4,
   737   22784,166,0,108,0,0,
   738   22784,166,0,108,0,0,
   739   22790,179,0,108,0,0,
   740   0,-65,0,6144,0,0,
   741   22798,181,0,108,0,0,
   742   0,-70,0,0,0,0,
   743   22798,1,0,108,0,0,
   744   22784,184,0,108,0,0,
   745   0,-1,100,0,0,0,
   746   26886,1,0,108,0,0,
   747   22784,187,0,108,0,0,
   748   0,-1,188,0,0,0,
   749   67,-70,189,169,-1,-4,
   750   67,-44,190,425,-1,-8,
   751   67,-44,0,681,-1,-12,
   752   22784,192,0,108,0,0,
   753   0,-1,193,0,0,0,
   754   67,-70,101,169,-1,-4,
   755   67,43,0,45,0,392,
   756   67,43,0,45,0,396,
   757   67,64,0,45,0,464
   758  
2891 @ 23738:               LINE   601 "regression-compile-tmp/imp22g-77.imp"
2892 @ 23778:               PUSHI  #0x000000f6
2893 @ 23783:               PUSHI  #0x0000049d
2894 @ 23788:               BOUNDS
2895 @ 23789:               DEF    DICTINIT p1=V_00c3 a/tf=1b b/format=3 c/ostate=121  type=1 (integer) form=11 (array) special=2 (short-integer) linkage=1 (own) spec=0 indirect=0 unass=1
2896 @ 23809:               PUSHI  #0x00000204
2897 @ 23814:               INIT   1
2898 @ 23817:               PUSHI  #0xffffffff
2899 @ 23822:               INIT   1
2900 @ 23825:               PUSHI  #0x00000000
2901 @ 23830:               INIT   1
2902 @ 23833:               PUSHI  #0x00000000
2903 @ 23838:               INIT   1
2904 @ 23841:               PUSHI  #0x00000000
2905 @ 23846:               INIT   1
2906 @ 23849:               PUSHI  #0x00000000
2907 @ 23854:               INIT   1
2908 @ 23857:               PUSHI  #0x0000020f
2909 @ 23862:               INIT   1
2910 @ 23865:               PUSHI  #0xffffffff
2911 @ 23870:               INIT   1
2912 @ 23873:               PUSHI  #0x00000000
2913 @ 23878:               INIT   1
2914 @ 23881:               PUSHI  #0x00000000
2915 @ 23886:               INIT   1
2916 @ 23889:               PUSHI  #0x00000000
2917 @ 23894:               INIT   1
2918 @ 23897:               PUSHI  #0x00000004
2919 @ 23902:               INIT   1
2920 @ 23905:               PUSHI  #0x00000200
2921 @ 23910:               INIT   1
2922 @ 23913:               PUSHI  #0x0000002b
2923 @ 23918:               INIT   1
2924 @ 23921:               PUSHI  #0x00000004
2925 @ 23926:               INIT   1
2926 @ 23929:               PUSHI  #0x00000038
2927 @ 23934:               INIT   1
2928 @ 23937:               PUSHI  #0xffff8000
2929 @ 23942:               INIT   1
2930 @ 23945:               PUSHI  #0x00000000
2931 @ 23950:               INIT   1
2932 @ 23953:               PUSHI  #0x00000000
2933 @ 23958:               INIT   1
2934 @ 23961:               PUSHI  #0xffffffd4
2935 @ 23966:               INIT   1
2936 @ 23969:               PUSHI  #0x00000004
2937 @ 23974:               INIT   1
2938 @ 23977:               PUSHI  #0x0000003c
2939 @ 23982:               INIT   1
2940 @ 23985:               PUSHI  #0xffff8000
2941 @ 23990:               INIT   1
2942 @ 23993:               PUSHI  #0x00000000
2943 @ 23998:               INIT   1
2944 @ 24001:               PUSHI  #0x00000000
2945 @ 24006:               INIT   1
2946 @ 24009:               PUSHI  #0x0000002b
2947 @ 24014:               INIT   1
2948 @ 24017:               PUSHI  #0x00000004
2949 @ 24022:               INIT   1
2950 @ 24025:               PUSHI  #0x0000003c
2951 @ 24030:               INIT   1
2952 @ 24033:               PUSHI  #0x00007fff
2953 @ 24038:               INIT   1
2954 @ 24041:               PUSHI  #0xffffffff
2955 @ 24046:               INIT   1
2956 @ 24049:               PUSHI  #0x00000200
2957 @ 24054:               INIT   1
2958 @ 24057:               PUSHI  #0x0000002b
2959 @ 24062:               INIT   1
2960 @ 24065:               PUSHI  #0x00000002
2961 @ 24070:               INIT   1
2962 @ 24073:               PUSHI  #0x00000038
2963 @ 24078:               INIT   1
2964 @ 24081:               PUSHI  #0xffff8000
2965 @ 24086:               INIT   1
2966 @ 24089:               PUSHI  #0x00000000
2967 @ 24094:               INIT   1
2968 @ 24097:               PUSHI  #0x00000000
2969 @ 24102:               INIT   1
2970 @ 24105:               PUSHI  #0xffffffd4
2971 @ 24110:               INIT   1
2972 @ 24113:               PUSHI  #0x00000002
2973 @ 24118:               INIT   1
2974 @ 24121:               PUSHI  #0x0000003c
2975 @ 24126:               INIT   1
2976 @ 24129:               PUSHI  #0xffffffff
2977 @ 24134:               INIT   1
2978 @ 24137:               PUSHI  #0xffff8000
2979 @ 24142:               INIT   1
2980 @ 24145:               PUSHI  #0x00000000
2981 @ 24150:               INIT   1
2982 @ 24153:               PUSHI  #0xffffffd4
2983 @ 24158:               INIT   1
2984 @ 24161:               PUSHI  #0x00000002
2985 @ 24166:               INIT   1
2986 @ 24169:               PUSHI  #0x0000003c
2987 @ 24174:               INIT   1
2988 @ 24177:               PUSHI  #0x00000000
2989 @ 24182:               INIT   1
2990 @ 24185:               PUSHI  #0x00007fff
2991 @ 24190:               INIT   1
2992 @ 24193:               PUSHI  #0x00000200
2993 @ 24198:               INIT   1
2994 @ 24201:               PUSHI  #0x0000002b
2995 @ 24206:               INIT   1
2996 @ 24209:               PUSHI  #0x00000002
2997 @ 24214:               INIT   1
2998 @ 24217:               PUSHI  #0x00000038
2999 @ 24222:               INIT   1
3000 @ 24225:               PUSHI  #0xffff8000
3001 @ 24230:               INIT   1
3002 @ 24233:               PUSHI  #0x00000000
3003 @ 24238:               INIT   1
3004 @ 24241:               PUSHI  #0x00000000
3005 @ 24246:               INIT   1
3006 @ 24249:               PUSHI  #0xffffffd4
3007 @ 24254:               INIT   1
3008 @ 24257:               PUSHI  #0x00000002
3009 @ 24262:               INIT   1
3010 @ 24265:               PUSHI  #0x0000003c
3011 @ 24270:               INIT   1
3012 @ 24273:               PUSHI  #0x00000000
3013 @ 24278:               INIT   1
3014 @ 24281:               PUSHI  #0x00000000
3015 @ 24286:               INIT   1
3016 @ 24289:               PUSHI  #0x00000000
3017 @ 24294:               INIT   1
3018 @ 24297:               PUSHI  #0xffffffd4
3019 @ 24302:               INIT   1
3020 @ 24305:               PUSHI  #0x00000002
3021 @ 24310:               INIT   1
3022 @ 24313:               PUSHI  #0x0000003c
3023 @ 24318:               INIT   1
3024 @ 24321:               PUSHI  #0x00000000
3025 @ 24326:               INIT   1
3026 @ 24329:               PUSHI  #0xffffffff
3027 @ 24334:               INIT   1
3028 @ 24337:               PUSHI  #0x00000200
3029 @ 24342:               INIT   1
3030 @ 24345:               PUSHI  #0x0000002b
3031 @ 24350:               INIT   1
3032 @ 24353:               PUSHI  #0x00000001
3033 @ 24358:               INIT   1
3034 @ 24361:               PUSHI  #0x00000038
3035 @ 24366:               INIT   1
3036 @ 24369:               PUSHI  #0xffff8000
3037 @ 24374:               INIT   1
3038 @ 24377:               PUSHI  #0x00000000
3039 @ 24382:               INIT   1
3040 @ 24385:               PUSHI  #0x00000000
3041 @ 24390:               INIT   1
3042 @ 24393:               PUSHI  #0xffffffd4
3043 @ 24398:               INIT   1
3044 @ 24401:               PUSHI  #0x00000001
3045 @ 24406:               INIT   1
3046 @ 24409:               PUSHI  #0x0000003c
3047 @ 24414:               INIT   1
3048 @ 24417:               PUSHI  #0x00000000
3049 @ 24422:               INIT   1
3050 @ 24425:               PUSHI  #0x00000000
3051 @ 24430:               INIT   1
3052 @ 24433:               PUSHI  #0x00000000
3053 @ 24438:               INIT   1
3054 @ 24441:               PUSHI  #0xffffffd4
3055 @ 24446:               INIT   1
3056 @ 24449:               PUSHI  #0x00000001
3057 @ 24454:               INIT   1
3058 @ 24457:               PUSHI  #0x0000003c
3059 @ 24462:               INIT   1
3060 @ 24465:               PUSHI  #0x00000000
3061 @ 24470:               INIT   1
3062 @ 24473:               PUSHI  #0x000000ff
3063 @ 24478:               INIT   1
3064 @ 24481:               PUSHI  #0x00000200
3065 @ 24486:               INIT   1
3066 @ 24489:               PUSHI  #0x0000002b
3067 @ 24494:               INIT   1
3068 @ 24497:               PUSHI  #0x00000001
3069 @ 24502:               INIT   1
3070 @ 24505:               PUSHI  #0x00000038
3071 @ 24510:               INIT   1
3072 @ 24513:               PUSHI  #0xffff8000
3073 @ 24518:               INIT   1
3074 @ 24521:               PUSHI  #0x00000000
3075 @ 24526:               INIT   1
3076 @ 24529:               PUSHI  #0x00000000
3077 @ 24534:               INIT   1
3078 @ 24537:               PUSHI  #0xffffffd4
3079 @ 24542:               INIT   1
3080 @ 24545:               PUSHI  #0x00000001
3081 @ 24550:               INIT   1
3082 @ 24553:               PUSHI  #0x0000003c
3083 @ 24558:               INIT   1
3084 @ 24561:               PUSHI  #0xffffffff
3085 @ 24566:               INIT   1
3086 @ 24569:               PUSHI  #0xffffff80
3087 @ 24574:               INIT   1
3088 @ 24577:               PUSHI  #0x00000000
3089 @ 24582:               INIT   1
3090 @ 24585:               PUSHI  #0xffffffd4
3091 @ 24590:               INIT   1
3092 @ 24593:               PUSHI  #0x00000001
3093 @ 24598:               INIT   1
3094 @ 24601:               PUSHI  #0x0000003c
3095 @ 24606:               INIT   1
3096 @ 24609:               PUSHI  #0x00000000
3097 @ 24614:               INIT   1
3098 @ 24617:               PUSHI  #0x0000007f
3099 @ 24622:               INIT   1
3100 @ 24625:               PUSHI  #0x00000202
3101 @ 24630:               INIT   1
3102 @ 24633:               PUSHI  #0x0000003a
3103 @ 24638:               INIT   1
3104 @ 24641:               PUSHI  #0x00000001
3105 @ 24646:               INIT   1
3106 @ 24649:               PUSHI  #0x00000000
3107 @ 24654:               INIT   1
3108 @ 24657:               PUSHI  #0x00000000
3109 @ 24662:               INIT   1
3110 @ 24665:               PUSHI  #0x00000000
3111 @ 24670:               INIT   1
3112 @ 24673:               PUSHI  #0x00000000
3113 @ 24678:               INIT   1
3114 @ 24681:               PUSHI  #0x0000003a
3115 @ 24686:               INIT   1
3116 @ 24689:               PUSHI  #0x00000001
3117 @ 24694:               INIT   1
3118 @ 24697:               PUSHI  #0x0000003c
3119 @ 24702:               INIT   1
3120 @ 24705:               PUSHI  #0x00000000
3121 @ 24710:               INIT   1
3122 @ 24713:               PUSHI  #0x00000000
3123 @ 24718:               INIT   1
3124 @ 24721:               PUSHI  #0x00000000
3125 @ 24726:               INIT   1
3126 @ 24729:               PUSHI  #0x0000003a
3127 @ 24734:               INIT   1
3128 @ 24737:               PUSHI  #0x00000001
3129 @ 24742:               INIT   1
3130 @ 24745:               PUSHI  #0x0000003c
3131 @ 24750:               INIT   1
3132 @ 24753:               PUSHI  #0x00000000
3133 @ 24758:               INIT   1
3134 @ 24761:               PUSHI  #0x00000001
3135 @ 24766:               INIT   1
3136 @ 24769:               PUSHI  #0x00000201
3137 @ 24774:               INIT   1
3138 @ 24777:               PUSHI  #0x0000003d
3139 @ 24782:               INIT   1
3140 @ 24785:               PUSHI  #0x000000ff
3141 @ 24790:               INIT   1
3142 @ 24793:               PUSHI  #0x00000000
3143 @ 24798:               INIT   1
3144 @ 24801:               PUSHI  #0x00000000
3145 @ 24806:               INIT   1
3146 @ 24809:               PUSHI  #0x00000000
3147 @ 24814:               INIT   1
3148 @ 24817:               PUSHI  #0x00000208
3149 @ 24822:               INIT   1
3150 @ 24825:               PUSHI  #0x0000003d
3151 @ 24830:               INIT   1
3152 @ 24833:               PUSHI  #0x00000000
3153 @ 24838:               INIT   1
3154 @ 24841:               PUSHI  #0x00000000
3155 @ 24846:               INIT   1
3156 @ 24849:               PUSHI  #0x00000000
3157 @ 24854:               INIT   1
3158 @ 24857:               PUSHI  #0x00000000
3159 @ 24862:               INIT   1
3160 @ 24865:               PUSHI  #0x00000208
3161 @ 24870:               INIT   1
3162 @ 24873:               PUSHI  #0xffffffc2
3163 @ 24878:               INIT   1
3164 @ 24881:               PUSHI  #0xfffffffe
3165 @ 24886:               INIT   1
3166 @ 24889:               PUSHI  #0x00000000
3167 @ 24894:               INIT   1
3168 @ 24897:               PUSHI  #0x00000000
3169 @ 24902:               INIT   1
3170 @ 24905:               PUSHI  #0x00000000
3171 @ 24910:               INIT   1
3172 @ 24913:               PUSHI  #0x00000208
3173 @ 24918:               INIT   1
3174 @ 24921:               PUSHI  #0xffffffc2
3175 @ 24926:               INIT   1
3176 @ 24929:               PUSHI  #0xffffff00
3177 @ 24934:               INIT   1
3178 @ 24937:               PUSHI  #0x00000000
3179 @ 24942:               INIT   1
3180 @ 24945:               PUSHI  #0x00000000
3181 @ 24950:               INIT   1
3182 @ 24953:               PUSHI  #0x00000000
3183 @ 24958:               INIT   1
3184 @ 24961:               PUSHI  #0x00000209
3185 @ 24966:               INIT   1
3186 @ 24969:               PUSHI  #0x00000000
3187 @ 24974:               INIT   1
3188 @ 24977:               PUSHI  #0x00000000
3189 @ 24982:               INIT   1
3190 @ 24985:               PUSHI  #0x00000000
3191 @ 24990:               INIT   1
3192 @ 24993:               PUSHI  #0x00000000
3193 @ 24998:               INIT   1
3194 @ 25001:               PUSHI  #0x00000000
3195 @ 25006:               INIT   1
3196 @ 25009:               PUSHI  #0x0000020a
3197 @ 25014:               INIT   1
3198 @ 25017:               PUSHI  #0xffffffff
3199 @ 25022:               INIT   1
3200 @ 25025:               PUSHI  #0x00000000
3201 @ 25030:               INIT   1
3202 @ 25033:               PUSHI  #0x00000000
3203 @ 25038:               INIT   1
3204 @ 25041:               PUSHI  #0x00000000
3205 @ 25046:               INIT   1
3206 @ 25049:               PUSHI  #0x00000000
3207 @ 25054:               INIT   1
3208 @ 25057:               PUSHI  #0x0000020c
3209 @ 25062:               INIT   1
3210 @ 25065:               PUSHI  #0x00000000
3211 @ 25070:               INIT   1
3212 @ 25073:               PUSHI  #0x00000000
3213 @ 25078:               INIT   1
3214 @ 25081:               PUSHI  #0x00000000
3215 @ 25086:               INIT   1
3216 @ 25089:               PUSHI  #0x00000000
3217 @ 25094:               INIT   1
3218 @ 25097:               PUSHI  #0x00000000
3219 @ 25102:               INIT   1
3220 @ 25105:               PUSHI  #0x0000020d
3221 @ 25110:               INIT   1
3222 @ 25113:               PUSHI  #0x0000003d
3223 @ 25118:               INIT   1
3224 @ 25121:               PUSHI  #0x00000004
3225 @ 25126:               INIT   1
3226 @ 25129:               PUSHI  #0x00000000
3227 @ 25134:               INIT   1
3228 @ 25137:               PUSHI  #0x00000000
3229 @ 25142:               INIT   1
3230 @ 25145:               PUSHI  #0x00000000
3231 @ 25150:               INIT   1
3232 @ 25153:               PUSHI  #0x00000205
3233 @ 25158:               INIT   1
3234 @ 25161:               PUSHI  #0x00000000
3235 @ 25166:               INIT   1
3236 @ 25169:               PUSHI  #0x00000004
3237 @ 25174:               INIT   1
3238 @ 25177:               PUSHI  #0x00000000
3239 @ 25182:               INIT   1
3240 @ 25185:               PUSHI  #0x00000000
3241 @ 25190:               INIT   1
3242 @ 25193:               PUSHI  #0x00000000
3243 @ 25198:               INIT   1
3244 @ 25201:               PUSHI  #0x00000205
3245 @ 25206:               INIT   1
3246 @ 25209:               PUSHI  #0x00000000
3247 @ 25214:               INIT   1
3248 @ 25217:               PUSHI  #0x00000004
3249 @ 25222:               INIT   1
3250 @ 25225:               PUSHI  #0x00000000
3251 @ 25230:               INIT   1
3252 @ 25233:               PUSHI  #0x00000000
3253 @ 25238:               INIT   1
3254 @ 25241:               PUSHI  #0x00000000
3255 @ 25246:               INIT   1
3256 @ 25249:               PUSHI  #0x00000000
3257 @ 25254:               INIT   1
3258 @ 25257:               PUSHI  #0xffffffff
3259 @ 25262:               INIT   1
3260 @ 25265:               PUSHI  #0x00000000
3261 @ 25270:               INIT   1
3262 @ 25273:               PUSHI  #0x00000000
3263 @ 25278:               INIT   1
3264 @ 25281:               PUSHI  #0x00000000
3265 @ 25286:               INIT   1
3266 @ 25289:               PUSHI  #0x00000000
3267 @ 25294:               INIT   1
3268 @ 25297:               PUSHI  #0x00000000
3269 @ 25302:               INIT   1
3270 @ 25305:               PUSHI  #0xffffffff
3271 @ 25310:               INIT   1
3272 @ 25313:               PUSHI  #0x00000000
3273 @ 25318:               INIT   1
3274 @ 25321:               PUSHI  #0x00000000
3275 @ 25326:               INIT   1
3276 @ 25329:               PUSHI  #0x00000000
3277 @ 25334:               INIT   1
3278 @ 25337:               PUSHI  #0x00000000
3279 @ 25342:               INIT   1
3280 @ 25345:               PUSHI  #0x000010a0
3281 @ 25350:               INIT   1
3282 @ 25353:               PUSHI  #0x0000002a
3283 @ 25358:               INIT   1
3284 @ 25361:               PUSHI  #0x00000000
3285 @ 25366:               INIT   1
3286 @ 25369:               PUSHI  #0x00000038
3287 @ 25374:               INIT   1
3288 @ 25377:               PUSHI  #0x00000000
3289 @ 25382:               INIT   1
3290 @ 25385:               PUSHI  #0x00003efa
3291 @ 25390:               INIT   1
3292 @ 25393:               PUSHI  #0x00001002
3293 @ 25398:               INIT   1
3294 @ 25401:               PUSHI  #0x0000004b
3295 @ 25406:               INIT   1
3296 @ 25409:               PUSHI  #0x00000000
3297 @ 25414:               INIT   1
3298 @ 25417:               PUSHI  #0x00000038
3299 @ 25422:               INIT   1
3300 @ 25425:               PUSHI  #0x00000000
3301 @ 25430:               INIT   1
3302 @ 25433:               PUSHI  #0x00000000
3303 @ 25438:               INIT   1
3304 @ 25441:               PUSHI  #0x00000000
3305 @ 25446:               INIT   1
3306 @ 25449:               PUSHI  #0xffffffd4
3307 @ 25454:               INIT   1
3308 @ 25457:               PUSHI  #0x0000004c
3309 @ 25462:               INIT   1
3310 @ 25465:               PUSHI  #0x00000000
3311 @ 25470:               INIT   1
3312 @ 25473:               PUSHI  #0x00000000
3313 @ 25478:               INIT   1
3314 @ 25481:               PUSHI  #0x00000004
3315 @ 25486:               INIT   1
3316 @ 25489:               PUSHI  #0xffff8043
3317 @ 25494:               INIT   1
3318 @ 25497:               PUSHI  #0xffffffff
3319 @ 25502:               INIT   1
3320 @ 25505:               PUSHI  #0x00000000
3321 @ 25510:               INIT   1
3322 @ 25513:               PUSHI  #0x000018a9
3323 @ 25518:               INIT   1
3324 @ 25521:               PUSHI  #0xffffffff
3325 @ 25526:               INIT   1
3326 @ 25529:               PUSHI  #0xfffffffc
3327 @ 25534:               INIT   1
3328 @ 25537:               PUSHI  #0x00001002
3329 @ 25542:               INIT   1
3330 @ 25545:               PUSHI  #0x0000004b
3331 @ 25550:               INIT   1
3332 @ 25553:               PUSHI  #0x00000000
3333 @ 25558:               INIT   1
3334 @ 25561:               PUSHI  #0x00000038
3335 @ 25566:               INIT   1
3336 @ 25569:               PUSHI  #0x00000000
3337 @ 25574:               INIT   1
3338 @ 25577:               PUSHI  #0x00000000
3339 @ 25582:               INIT   1
3340 @ 25585:               PUSHI  #0x00001000
3341 @ 25590:               INIT   1
3342 @ 25593:               PUSHI  #0x0000002a
3343 @ 25598:               INIT   1
3344 @ 25601:               PUSHI  #0x00000000
3345 @ 25606:               INIT   1
3346 @ 25609:               PUSHI  #0x00000038
3347 @ 25614:               INIT   1
3348 @ 25617:               PUSHI  #0xffff8001
3349 @ 25622:               INIT   1
3350 @ 25625:               PUSHI  #0x00000b2d
3351 @ 25630:               INIT   1
3352 @ 25633:               PUSHI  #0x00001003
3353 @ 25638:               INIT   1
3354 @ 25641:               PUSHI  #0x00000050
3355 @ 25646:               INIT   1
3356 @ 25649:               PUSHI  #0x00000000
3357 @ 25654:               INIT   1
3358 @ 25657:               PUSHI  #0x00000038
3359 @ 25662:               INIT   1
3360 @ 25665:               PUSHI  #0x00000000
3361 @ 25670:               INIT   1
3362 @ 25673:               PUSHI  #0x00000000
3363 @ 25678:               INIT   1
3364 @ 25681:               PUSHI  #0x00000000
3365 @ 25686:               INIT   1
3366 @ 25689:               PUSHI  #0xffffffcb
3367 @ 25694:               INIT   1
3368 @ 25697:               PUSHI  #0x00000051
3369 @ 25702:               INIT   1
3370 @ 25705:               PUSHI  #0x00001800
3371 @ 25710:               INIT   1
3372 @ 25713:               PUSHI  #0x00000000
3373 @ 25718:               INIT   1
3374 @ 25721:               PUSHI  #0x00000004
3375 @ 25726:               INIT   1
3376 @ 25729:               PUSHI  #0xffff8043
3377 @ 25734:               INIT   1
3378 @ 25737:               PUSHI  #0xffffffc1
3379 @ 25742:               INIT   1
3380 @ 25745:               PUSHI  #0x00000000
3381 @ 25750:               INIT   1
3382 @ 25753:               PUSHI  #0x000018a9
3383 @ 25758:               INIT   1
3384 @ 25761:               PUSHI  #0xffffffff
3385 @ 25766:               INIT   1
3386 @ 25769:               PUSHI  #0xfffffffc
3387 @ 25774:               INIT   1
3388 @ 25777:               PUSHI  #0x00001003
3389 @ 25782:               INIT   1
3390 @ 25785:               PUSHI  #0x00000053
3391 @ 25790:               INIT   1
3392 @ 25793:               PUSHI  #0x00000000
3393 @ 25798:               INIT   1
3394 @ 25801:               PUSHI  #0x00000038
3395 @ 25806:               INIT   1
3396 @ 25809:               PUSHI  #0x00000000
3397 @ 25814:               INIT   1
3398 @ 25817:               PUSHI  #0x00000000
3399 @ 25822:               INIT   1
3400 @ 25825:               PUSHI  #0x00000000
3401 @ 25830:               INIT   1
3402 @ 25833:               PUSHI  #0xffffffcb
3403 @ 25838:               INIT   1
3404 @ 25841:               PUSHI  #0x00000054
3405 @ 25846:               INIT   1
3406 @ 25849:               PUSHI  #0x00001800
3407 @ 25854:               INIT   1
3408 @ 25857:               PUSHI  #0x00000000
3409 @ 25862:               INIT   1
3410 @ 25865:               PUSHI  #0x00000004
3411 @ 25870:               INIT   1
3412 @ 25873:               PUSHI  #0xffff8043
3413 @ 25878:               INIT   1
3414 @ 25881:               PUSHI  #0xffffffc1
3415 @ 25886:               INIT   1
3416 @ 25889:               PUSHI  #0x00000055
3417 @ 25894:               INIT   1
3418 @ 25897:               PUSHI  #0x000018a9
3419 @ 25902:               INIT   1
3420 @ 25905:               PUSHI  #0xffffffff
3421 @ 25910:               INIT   1
3422 @ 25913:               PUSHI  #0xfffffffc
3423 @ 25918:               INIT   1
3424 @ 25921:               PUSHI  #0x00000043
3425 @ 25926:               INIT   1
3426 @ 25929:               PUSHI  #0xffffffd4
3427 @ 25934:               INIT   1
3428 @ 25937:               PUSHI  #0x00000000
3429 @ 25942:               INIT   1
3430 @ 25945:               PUSHI  #0x000000a9
3431 @ 25950:               INIT   1
3432 @ 25953:               PUSHI  #0xffffffff
3433 @ 25958:               INIT   1
3434 @ 25961:               PUSHI  #0xfffffff8
3435 @ 25966:               INIT   1
3436 @ 25969:               PUSHI  #0x000010a0
3437 @ 25974:               INIT   1
3438 @ 25977:               PUSHI  #0x0000002a
3439 @ 25982:               INIT   1
3440 @ 25985:               PUSHI  #0x00000000
3441 @ 25990:               INIT   1
3442 @ 25993:               PUSHI  #0x00000038
3443 @ 25998:               INIT   1
3444 @ 26001:               PUSHI  #0x00000000
3445 @ 26006:               INIT   1
3446 @ 26009:               PUSHI  #0x00003ef4
3447 @ 26014:               INIT   1
3448 @ 26017:               PUSHI  #0x000010a0
3449 @ 26022:               INIT   1
3450 @ 26025:               PUSHI  #0x0000002a
3451 @ 26030:               INIT   1
3452 @ 26033:               PUSHI  #0x00000000
3453 @ 26038:               INIT   1
3454 @ 26041:               PUSHI  #0x00000038
3455 @ 26046:               INIT   1
3456 @ 26049:               PUSHI  #0x00000000
3457 @ 26054:               INIT   1
3458 @ 26057:               PUSHI  #0x00003eee
3459 @ 26062:               INIT   1
3460 @ 26065:               PUSHI  #0x00001000
3461 @ 26070:               INIT   1
3462 @ 26073:               PUSHI  #0x0000002a
3463 @ 26078:               INIT   1
3464 @ 26081:               PUSHI  #0x00000000
3465 @ 26086:               INIT   1
3466 @ 26089:               PUSHI  #0x00000038
3467 @ 26094:               INIT   1
3468 @ 26097:               PUSHI  #0x00000000
3469 @ 26102:               INIT   1
3470 @ 26105:               PUSHI  #0x00003ee2
3471 @ 26110:               INIT   1
3472 @ 26113:               PUSHI  #0x00001000
3473 @ 26118:               INIT   1
3474 @ 26121:               PUSHI  #0x0000002a
3475 @ 26126:               INIT   1
3476 @ 26129:               PUSHI  #0x00000000
3477 @ 26134:               INIT   1
3478 @ 26137:               PUSHI  #0x00000038
3479 @ 26142:               INIT   1
3480 @ 26145:               PUSHI  #0x00000000
3481 @ 26150:               INIT   1
3482 @ 26153:               PUSHI  #0x00003edc
3483 @ 26158:               INIT   1
3484 @ 26161:               PUSHI  #0x00001000
3485 @ 26166:               INIT   1
3486 @ 26169:               PUSHI  #0x0000002a
3487 @ 26174:               INIT   1
3488 @ 26177:               PUSHI  #0x00000000
3489 @ 26182:               INIT   1
3490 @ 26185:               PUSHI  #0x00000038
3491 @ 26190:               INIT   1
3492 @ 26193:               PUSHI  #0x00000000
3493 @ 26198:               INIT   1
3494 @ 26201:               PUSHI  #0x00003ed6
3495 @ 26206:               INIT   1
3496 @ 26209:               PUSHI  #0x00001000
3497 @ 26214:               INIT   1
3498 @ 26217:               PUSHI  #0x0000002a
3499 @ 26222:               INIT   1
3500 @ 26225:               PUSHI  #0x00000000
3501 @ 26230:               INIT   1
3502 @ 26233:               PUSHI  #0x00000038
3503 @ 26238:               INIT   1
3504 @ 26241:               PUSHI  #0x00000000
3505 @ 26246:               INIT   1
3506 @ 26249:               PUSHI  #0x00003ed0
3507 @ 26254:               INIT   1
3508 @ 26257:               PUSHI  #0x00001000
3509 @ 26262:               INIT   1
3510 @ 26265:               PUSHI  #0x0000002a
3511 @ 26270:               INIT   1
3512 @ 26273:               PUSHI  #0x00000000
3513 @ 26278:               INIT   1
3514 @ 26281:               PUSHI  #0x00000038
3515 @ 26286:               INIT   1
3516 @ 26289:               PUSHI  #0x00000000
3517 @ 26294:               INIT   1
3518 @ 26297:               PUSHI  #0x00003eca
3519 @ 26302:               INIT   1
3520 @ 26305:               PUSHI  #0x00001000
3521 @ 26310:               INIT   1
3522 @ 26313:               PUSHI  #0x0000002a
3523 @ 26318:               INIT   1
3524 @ 26321:               PUSHI  #0x00000000
3525 @ 26326:               INIT   1
3526 @ 26329:               PUSHI  #0x00000038
3527 @ 26334:               INIT   1
3528 @ 26337:               PUSHI  #0x00000000
3529 @ 26342:               INIT   1
3530 @ 26345:               PUSHI  #0x00003ec4
3531 @ 26350:               INIT   1
3532 @ 26353:               PUSHI  #0x00001000
3533 @ 26358:               INIT   1
3534 @ 26361:               PUSHI  #0x0000002a
3535 @ 26366:               INIT   1
3536 @ 26369:               PUSHI  #0x00000000
3537 @ 26374:               INIT   1
3538 @ 26377:               PUSHI  #0x00000038
3539 @ 26382:               INIT   1
3540 @ 26385:               PUSHI  #0x00000000
3541 @ 26390:               INIT   1
3542 @ 26393:               PUSHI  #0x00003ebe
3543 @ 26398:               INIT   1
3544 @ 26401:               PUSHI  #0x00001002
3545 @ 26406:               INIT   1
3546 @ 26409:               PUSHI  #0x00000060
3547 @ 26414:               INIT   1
3548 @ 26417:               PUSHI  #0x00000000
3549 @ 26422:               INIT   1
3550 @ 26425:               PUSHI  #0x00000038
3551 @ 26430:               INIT   1
3552 @ 26433:               PUSHI  #0x00000000
3553 @ 26438:               INIT   1
3554 @ 26441:               PUSHI  #0x00003eb8
3555 @ 26446:               INIT   1
3556 @ 26449:               PUSHI  #0x00000000
3557 @ 26454:               INIT   1
3558 @ 26457:               PUSHI  #0xffffffba
3559 @ 26462:               INIT   1
3560 @ 26465:               PUSHI  #0x00000061
3561 @ 26470:               INIT   1
3562 @ 26473:               PUSHI  #0x00000000
3563 @ 26478:               INIT   1
3564 @ 26481:               PUSHI  #0x00000000
3565 @ 26486:               INIT   1
3566 @ 26489:               PUSHI  #0x00000004
3567 @ 26494:               INIT   1
3568 @ 26497:               PUSHI  #0x00000043
3569 @ 26502:               INIT   1
3570 @ 26505:               PUSHI  #0xffffffd4
3571 @ 26510:               INIT   1
3572 @ 26513:               PUSHI  #0x00000000
3573 @ 26518:               INIT   1
3574 @ 26521:               PUSHI  #0x000000a9
3575 @ 26526:               INIT   1
3576 @ 26529:               PUSHI  #0xffffffff
3577 @ 26534:               INIT   1
3578 @ 26537:               PUSHI  #0xfffffffc
3579 @ 26542:               INIT   1
3580 @ 26545:               PUSHI  #0x00001002
3581 @ 26550:               INIT   1
3582 @ 26553:               PUSHI  #0x00000063
3583 @ 26558:               INIT   1
3584 @ 26561:               PUSHI  #0x00000000
3585 @ 26566:               INIT   1
3586 @ 26569:               PUSHI  #0x00000038
3587 @ 26574:               INIT   1
3588 @ 26577:               PUSHI  #0x00000000
3589 @ 26582:               INIT   1
3590 @ 26585:               PUSHI  #0x00000000
3591 @ 26590:               INIT   1
3592 @ 26593:               PUSHI  #0x00000000
3593 @ 26598:               INIT   1
3594 @ 26601:               PUSHI  #0xffffffd4
3595 @ 26606:               INIT   1
3596 @ 26609:               PUSHI  #0x00000064
3597 @ 26614:               INIT   1
3598 @ 26617:               PUSHI  #0x00000000
3599 @ 26622:               INIT   1
3600 @ 26625:               PUSHI  #0x00000000
3601 @ 26630:               INIT   1
3602 @ 26633:               PUSHI  #0x00000004
3603 @ 26638:               INIT   1
3604 @ 26641:               PUSHI  #0x00000043
3605 @ 26646:               INIT   1
3606 @ 26649:               PUSHI  #0xffffffd4
3607 @ 26654:               INIT   1
3608 @ 26657:               PUSHI  #0x00000065
3609 @ 26662:               INIT   1
3610 @ 26665:               PUSHI  #0x000000a9
3611 @ 26670:               INIT   1
3612 @ 26673:               PUSHI  #0xffffffff
3613 @ 26678:               INIT   1
3614 @ 26681:               PUSHI  #0xfffffffc
3615 @ 26686:               INIT   1
3616 @ 26689:               PUSHI  #0x00000043
3617 @ 26694:               INIT   1
3618 @ 26697:               PUSHI  #0xffffffd4
3619 @ 26702:               INIT   1
3620 @ 26705:               PUSHI  #0x00000000
3621 @ 26710:               INIT   1
3622 @ 26713:               PUSHI  #0x000001a9
3623 @ 26718:               INIT   1
3624 @ 26721:               PUSHI  #0xffffffff
3625 @ 26726:               INIT   1
3626 @ 26729:               PUSHI  #0xfffffff8
3627 @ 26734:               INIT   1
3628 @ 26737:               PUSHI  #0x00001000
3629 @ 26742:               INIT   1
3630 @ 26745:               PUSHI  #0x0000002a
3631 @ 26750:               INIT   1
3632 @ 26753:               PUSHI  #0x00000000
3633 @ 26758:               INIT   1
3634 @ 26761:               PUSHI  #0x00000038
3635 @ 26766:               INIT   1
3636 @ 26769:               PUSHI  #0xffff802e
3637 @ 26774:               INIT   1
3638 @ 26777:               PUSHI  #0x00000a12
3639 @ 26782:               INIT   1
3640 @ 26785:               PUSHI  #0x00001000
3641 @ 26790:               INIT   1
3642 @ 26793:               PUSHI  #0x0000002a
3643 @ 26798:               INIT   1
3644 @ 26801:               PUSHI  #0x00000000
3645 @ 26806:               INIT   1
3646 @ 26809:               PUSHI  #0x00000038
3647 @ 26814:               INIT   1
3648 @ 26817:               PUSHI  #0xffff8040
3649 @ 26822:               INIT   1
3650 @ 26825:               PUSHI  #0x00000810
3651 @ 26830:               INIT   1
3652 @ 26833:               PUSHI  #0x00001000
3653 @ 26838:               INIT   1
3654 @ 26841:               PUSHI  #0x0000002a
3655 @ 26846:               INIT   1
3656 @ 26849:               PUSHI  #0x00000000
3657 @ 26854:               INIT   1
3658 @ 26857:               PUSHI  #0x00000038
3659 @ 26862:               INIT   1
3660 @ 26865:               PUSHI  #0xffff8050
3661 @ 26870:               INIT   1
3662 @ 26873:               PUSHI  #0x00000b17
3663 @ 26878:               INIT   1
3664 @ 26881:               PUSHI  #0x00001000
3665 @ 26886:               INIT   1
3666 @ 26889:               PUSHI  #0x0000002a
3667 @ 26894:               INIT   1
3668 @ 26897:               PUSHI  #0x00000000
3669 @ 26902:               INIT   1
3670 @ 26905:               PUSHI  #0x00000038
3671 @ 26910:               INIT   1
3672 @ 26913:               PUSHI  #0xffff8067
3673 @ 26918:               INIT   1
3674 @ 26921:               PUSHI  #0x00000c19
3675 @ 26926:               INIT   1
3676 @ 26929:               PUSHI  #0x00001000
3677 @ 26934:               INIT   1
3678 @ 26937:               PUSHI  #0x0000002a
3679 @ 26942:               INIT   1
3680 @ 26945:               PUSHI  #0x00000000
3681 @ 26950:               INIT   1
3682 @ 26953:               PUSHI  #0x00000038
3683 @ 26958:               INIT   1
3684 @ 26961:               PUSHI  #0xffff8080
3685 @ 26966:               INIT   1
3686 @ 26969:               PUSHI  #0x0000081d
3687 @ 26974:               INIT   1
3688 @ 26977:               PUSHI  #0x00001002
3689 @ 26982:               INIT   1
3690 @ 26985:               PUSHI  #0x0000006c
3691 @ 26990:               INIT   1
3692 @ 26993:               PUSHI  #0x00000000
3693 @ 26998:               INIT   1
3694 @ 27001:               PUSHI  #0x00000038
3695 @ 27006:               INIT   1
3696 @ 27009:               PUSHI  #0xffff809d
3697 @ 27014:               INIT   1
3698 @ 27017:               PUSHI  #0x00000006
3699 @ 27022:               INIT   1
3700 @ 27025:               PUSHI  #0x00000000
3701 @ 27030:               INIT   1
3702 @ 27033:               PUSHI  #0xffffffc0
3703 @ 27038:               INIT   1
3704 @ 27041:               PUSHI  #0x00000061
3705 @ 27046:               INIT   1
3706 @ 27049:               PUSHI  #0x00001800
3707 @ 27054:               INIT   1
3708 @ 27057:               PUSHI  #0x00000000
3709 @ 27062:               INIT   1
3710 @ 27065:               PUSHI  #0x00000004
3711 @ 27070:               INIT   1
3712 @ 27073:               PUSHI  #0x00001000
3713 @ 27078:               INIT   1
3714 @ 27081:               PUSHI  #0x0000002a
3715 @ 27086:               INIT   1
3716 @ 27089:               PUSHI  #0x00000000
3717 @ 27094:               INIT   1
3718 @ 27097:               PUSHI  #0x00000038
3719 @ 27102:               INIT   1
3720 @ 27105:               PUSHI  #0xffff80a3
3721 @ 27110:               INIT   1
3722 @ 27113:               PUSHI  #0x00000a25
3723 @ 27118:               INIT   1
3724 @ 27121:               PUSHI  #0x00001000
3725 @ 27126:               INIT   1
3726 @ 27129:               PUSHI  #0x0000002a
3727 @ 27134:               INIT   1
3728 @ 27137:               PUSHI  #0x00000000
3729 @ 27142:               INIT   1
3730 @ 27145:               PUSHI  #0x00000038
3731 @ 27150:               INIT   1
3732 @ 27153:               PUSHI  #0xffff80c8
3733 @ 27158:               INIT   1
3734 @ 27161:               PUSHI  #0x0000091e
3735 @ 27166:               INIT   1
3736 @ 27169:               PUSHI  #0x00001000
3737 @ 27174:               INIT   1
3738 @ 27177:               PUSHI  #0x0000002a
3739 @ 27182:               INIT   1
3740 @ 27185:               PUSHI  #0x00000000
3741 @ 27190:               INIT   1
3742 @ 27193:               PUSHI  #0x00000038
3743 @ 27198:               INIT   1
3744 @ 27201:               PUSHI  #0xffff80e6
3745 @ 27206:               INIT   1
3746 @ 27209:               PUSHI  #0x0000070e
3747 @ 27214:               INIT   1
3748 @ 27217:               PUSHI  #0x00001000
3749 @ 27222:               INIT   1
3750 @ 27225:               PUSHI  #0x0000002a
3751 @ 27230:               INIT   1
3752 @ 27233:               PUSHI  #0x00000000
3753 @ 27238:               INIT   1
3754 @ 27241:               PUSHI  #0x00000038
3755 @ 27246:               INIT   1
3756 @ 27249:               PUSHI  #0xffff80f4
3757 @ 27254:               INIT   1
3758 @ 27257:               PUSHI  #0x00000a42
3759 @ 27262:               INIT   1
3760 @ 27265:               PUSHI  #0x00001000
3761 @ 27270:               INIT   1
3762 @ 27273:               PUSHI  #0x0000002a
3763 @ 27278:               INIT   1
3764 @ 27281:               PUSHI  #0x00000000
3765 @ 27286:               INIT   1
3766 @ 27289:               PUSHI  #0x00000038
3767 @ 27294:               INIT   1
3768 @ 27297:               PUSHI  #0xffff8136
3769 @ 27302:               INIT   1
3770 @ 27305:               PUSHI  #0x00000816
3771 @ 27310:               INIT   1
3772 @ 27313:               PUSHI  #0x00001000
3773 @ 27318:               INIT   1
3774 @ 27321:               PUSHI  #0x0000002a
3775 @ 27326:               INIT   1
3776 @ 27329:               PUSHI  #0x00000000
3777 @ 27334:               INIT   1
3778 @ 27337:               PUSHI  #0x00000038
3779 @ 27342:               INIT   1
3780 @ 27345:               PUSHI  #0xffff814c
3781 @ 27350:               INIT   1
3782 @ 27353:               PUSHI  #0x0000082a
3783 @ 27358:               INIT   1
3784 @ 27361:               PUSHI  #0x00001007
3785 @ 27366:               INIT   1
3786 @ 27369:               PUSHI  #0x00000074
3787 @ 27374:               INIT   1
3788 @ 27377:               PUSHI  #0x00000000
3789 @ 27382:               INIT   1
3790 @ 27385:               PUSHI  #0x00000038
3791 @ 27390:               INIT   1
3792 @ 27393:               PUSHI  #0x00000000
3793 @ 27398:               INIT   1
3794 @ 27401:               PUSHI  #0x00003e88
3795 @ 27406:               INIT   1
3796 @ 27409:               PUSHI  #0x00000000
3797 @ 27414:               INIT   1
3798 @ 27417:               PUSHI  #0xffffffbc
3799 @ 27422:               INIT   1
3800 @ 27425:               PUSHI  #0x0000004c
3801 @ 27430:               INIT   1
3802 @ 27433:               PUSHI  #0x00001800
3803 @ 27438:               INIT   1
3804 @ 27441:               PUSHI  #0x00000000
3805 @ 27446:               INIT   1
3806 @ 27449:               PUSHI  #0x00000004
3807 @ 27454:               INIT   1
3808 @ 27457:               PUSHI  #0x00005902
3809 @ 27462:               INIT   1
3810 @ 27465:               PUSHI  #0x00000076
3811 @ 27470:               INIT   1
3812 @ 27473:               PUSHI  #0x00000000
3813 @ 27478:               INIT   1
3814 @ 27481:               PUSHI  #0x0000006c
3815 @ 27486:               INIT   1
3816 @ 27489:               PUSHI  #0x00000000
3817 @ 27494:               INIT   1
3818 @ 27497:               PUSHI  #0x00000000
3819 @ 27502:               INIT   1
3820 @ 27505:               PUSHI  #0x00000000
3821 @ 27510:               INIT   1
3822 @ 27513:               PUSHI  #0xffffffc5
3823 @ 27518:               INIT   1
3824 @ 27521:               PUSHI  #0x00000077
3825 @ 27526:               INIT   1
3826 @ 27529:               PUSHI  #0x00000000
3827 @ 27534:               INIT   1
3828 @ 27537:               PUSHI  #0x00000000
3829 @ 27542:               INIT   1
3830 @ 27545:               PUSHI  #0x00000000
3831 @ 27550:               INIT   1
3832 @ 27553:               PUSHI  #0xffff8043
3833 @ 27558:               INIT   1
3834 @ 27561:               PUSHI  #0xffffffc1
3835 @ 27566:               INIT   1
3836 @ 27569:               PUSHI  #0x00000078
3837 @ 27574:               INIT   1
3838 @ 27577:               PUSHI  #0x000018a9
3839 @ 27582:               INIT   1
3840 @ 27585:               PUSHI  #0xffffffff
3841 @ 27590:               INIT   1
3842 @ 27593:               PUSHI  #0xfffffffc
3843 @ 27598:               INIT   1
3844 @ 27601:               PUSHI  #0x00000043
3845 @ 27606:               INIT   1
3846 @ 27609:               PUSHI  #0xffffffbf
3847 @ 27614:               INIT   1
3848 @ 27617:               PUSHI  #0x00000079
3849 @ 27622:               INIT   1
3850 @ 27625:               PUSHI  #0x000019a9
3851 @ 27630:               INIT   1
3852 @ 27633:               PUSHI  #0xffffffff
3853 @ 27638:               INIT   1
3854 @ 27641:               PUSHI  #0xfffffefc
3855 @ 27646:               INIT   1
3856 @ 27649:               PUSHI  #0xffff8043
3857 @ 27654:               INIT   1
3858 @ 27657:               PUSHI  #0xffffffc1
3859 @ 27662:               INIT   1
3860 @ 27665:               PUSHI  #0x0000007a
3861 @ 27670:               INIT   1
3862 @ 27673:               PUSHI  #0x00001aa9
3863 @ 27678:               INIT   1
3864 @ 27681:               PUSHI  #0xffffffff
3865 @ 27686:               INIT   1
3866 @ 27689:               PUSHI  #0xfffffef8
3867 @ 27694:               INIT   1
3868 @ 27697:               PUSHI  #0xffff8043
3869 @ 27702:               INIT   1
3870 @ 27705:               PUSHI  #0xffffffc1
3871 @ 27710:               INIT   1
3872 @ 27713:               PUSHI  #0x00000000
3873 @ 27718:               INIT   1
3874 @ 27721:               PUSHI  #0x00001ba9
3875 @ 27726:               INIT   1
3876 @ 27729:               PUSHI  #0xffffffff
3877 @ 27734:               INIT   1
3878 @ 27737:               PUSHI  #0xfffffef4
3879 @ 27742:               INIT   1
3880 @ 27745:               PUSHI  #0x00001002
3881 @ 27750:               INIT   1
3882 @ 27753:               PUSHI  #0x0000007c
3883 @ 27758:               INIT   1
3884 @ 27761:               PUSHI  #0x00000000
3885 @ 27766:               INIT   1
3886 @ 27769:               PUSHI  #0x00000038
3887 @ 27774:               INIT   1
3888 @ 27777:               PUSHI  #0xffff8176
3889 @ 27782:               INIT   1
3890 @ 27785:               PUSHI  #0x0000000f
3891 @ 27790:               INIT   1
3892 @ 27793:               PUSHI  #0x00000000
3893 @ 27798:               INIT   1
3894 @ 27801:               PUSHI  #0xffffffbf
3895 @ 27806:               INIT   1
3896 @ 27809:               PUSHI  #0x0000007d
3897 @ 27814:               INIT   1
3898 @ 27817:               PUSHI  #0x00001800
3899 @ 27822:               INIT   1
3900 @ 27825:               PUSHI  #0x00000000
3901 @ 27830:               INIT   1
3902 @ 27833:               PUSHI  #0x00000004
3903 @ 27838:               INIT   1
3904 @ 27841:               PUSHI  #0xffff8043
3905 @ 27846:               INIT   1
3906 @ 27849:               PUSHI  #0xffffffc1
3907 @ 27854:               INIT   1
3908 @ 27857:               PUSHI  #0x0000007e
3909 @ 27862:               INIT   1
3910 @ 27865:               PUSHI  #0x000018a9
3911 @ 27870:               INIT   1
3912 @ 27873:               PUSHI  #0xffffffff
3913 @ 27878:               INIT   1
3914 @ 27881:               PUSHI  #0xfffffffc
3915 @ 27886:               INIT   1
3916 @ 27889:               PUSHI  #0x00000043
3917 @ 27894:               INIT   1
3918 @ 27897:               PUSHI  #0xffffffd4
3919 @ 27902:               INIT   1
3920 @ 27905:               PUSHI  #0x0000007f
3921 @ 27910:               INIT   1
3922 @ 27913:               PUSHI  #0x000000a9
3923 @ 27918:               INIT   1
3924 @ 27921:               PUSHI  #0xffffffff
3925 @ 27926:               INIT   1
3926 @ 27929:               PUSHI  #0xfffffff8
3927 @ 27934:               INIT   1
3928 @ 27937:               PUSHI  #0x00000043
3929 @ 27942:               INIT   1
3930 @ 27945:               PUSHI  #0xffffffd4
3931 @ 27950:               INIT   1
3932 @ 27953:               PUSHI  #0x00000000
3933 @ 27958:               INIT   1
3934 @ 27961:               PUSHI  #0x000001a9
3935 @ 27966:               INIT   1
3936 @ 27969:               PUSHI  #0xffffffff
3937 @ 27974:               INIT   1
3938 @ 27977:               PUSHI  #0xfffffff4
3939 @ 27982:               INIT   1
3940 @ 27985:               PUSHI  #0x0000020c
3941 @ 27990:               INIT   1
3942 @ 27993:               PUSHI  #0x00000000
3943 @ 27998:               INIT   1
3944 @ 28001:               PUSHI  #0x00000081
3945 @ 28006:               INIT   1
3946 @ 28009:               PUSHI  #0x00000000
3947 @ 28014:               INIT   1
3948 @ 28017:               PUSHI  #0xffffffff
3949 @ 28022:               INIT   1
3950 @ 28025:               PUSHI  #0xfffffef8
3951 @ 28030:               INIT   1
3952 @ 28033:               PUSHI  #0x00000003
3953 @ 28038:               INIT   1
3954 @ 28041:               PUSHI  #0x00000034
3955 @ 28046:               INIT   1
3956 @ 28049:               PUSHI  #0x00000000
3957 @ 28054:               INIT   1
3958 @ 28057:               PUSHI  #0x00000000
3959 @ 28062:               INIT   1
3960 @ 28065:               PUSHI  #0x00000000
3961 @ 28070:               INIT   1
3962 @ 28073:               PUSHI  #0x00000000
3963 @ 28078:               INIT   1
3964 @ 28081:               PUSHI  #0x00000003
3965 @ 28086:               INIT   1
3966 @ 28089:               PUSHI  #0x00000034
3967 @ 28094:               INIT   1
3968 @ 28097:               PUSHI  #0x00000000
3969 @ 28102:               INIT   1
3970 @ 28105:               PUSHI  #0x00000000
3971 @ 28110:               INIT   1
3972 @ 28113:               PUSHI  #0x00000000
3973 @ 28118:               INIT   1
3974 @ 28121:               PUSHI  #0x00000001
3975 @ 28126:               INIT   1
3976 @ 28129:               PUSHI  #0x00000003
3977 @ 28134:               INIT   1
3978 @ 28137:               PUSHI  #0x0000002e
3979 @ 28142:               INIT   1
3980 @ 28145:               PUSHI  #0x00000000
3981 @ 28150:               INIT   1
3982 @ 28153:               PUSHI  #0x00000000
3983 @ 28158:               INIT   1
3984 @ 28161:               PUSHI  #0x00000000
3985 @ 28166:               INIT   1
3986 @ 28169:               PUSHI  #0x00000002
3987 @ 28174:               INIT   1
3988 @ 28177:               PUSHI  #0x00000003
3989 @ 28182:               INIT   1
3990 @ 28185:               PUSHI  #0x0000002b
3991 @ 28190:               INIT   1
3992 @ 28193:               PUSHI  #0x00000000
3993 @ 28198:               INIT   1
3994 @ 28201:               PUSHI  #0x00000000
3995 @ 28206:               INIT   1
3996 @ 28209:               PUSHI  #0x00000000
3997 @ 28214:               INIT   1
3998 @ 28217:               PUSHI  #0x00000004
3999 @ 28222:               INIT   1
4000 @ 28225:               PUSHI  #0x00000003
4001 @ 28230:               INIT   1
4002 @ 28233:               PUSHI  #0x00000040
4003 @ 28238:               INIT   1
4004 @ 28241:               PUSHI  #0x00000000
4005 @ 28246:               INIT   1
4006 @ 28249:               PUSHI  #0x00000000
4007 @ 28254:               INIT   1
4008 @ 28257:               PUSHI  #0x00000000
4009 @ 28262:               INIT   1
4010 @ 28265:               PUSHI  #0x00000008
4011 @ 28270:               INIT   1
4012 @ 28273:               PUSHI  #0x00000043
4013 @ 28278:               INIT   1
4014 @ 28281:               PUSHI  #0x00000080
4015 @ 28286:               INIT   1
4016 @ 28289:               PUSHI  #0x00000000
4017 @ 28294:               INIT   1
4018 @ 28297:               PUSHI  #0x0000002d
4019 @ 28302:               INIT   1
4020 @ 28305:               PUSHI  #0x00000000
4021 @ 28310:               INIT   1
4022 @ 28313:               PUSHI  #0x00000020
4023 @ 28318:               INIT   1
4024 @ 28321:               PUSHI  #0x00000042
4025 @ 28326:               INIT   1
4026 @ 28329:               PUSHI  #0x0000002b
4027 @ 28334:               INIT   1
4028 @ 28337:               PUSHI  #0x00000000
4029 @ 28342:               INIT   1
4030 @ 28345:               PUSHI  #0x0000003c
4031 @ 28350:               INIT   1
4032 @ 28353:               PUSHI  #0x00000000
4033 @ 28358:               INIT   1
4034 @ 28361:               PUSHI  #0x0000000a
4035 @ 28366:               INIT   1
4036 @ 28369:               PUSHI  #0x00000042
4037 @ 28374:               INIT   1
4038 @ 28377:               PUSHI  #0x0000003d
4039 @ 28382:               INIT   1
4040 @ 28385:               PUSHI  #0x00000000
4041 @ 28390:               INIT   1
4042 @ 28393:               PUSHI  #0x0000003c
4043 @ 28398:               INIT   1
4044 @ 28401:               PUSHI  #0x00000000
4045 @ 28406:               INIT   1
4046 @ 28409:               PUSHI  #0x0000000a
4047 @ 28414:               INIT   1
4048 @ 28417:               PUSHI  #0x00000043
4049 @ 28422:               INIT   1
4050 @ 28425:               PUSHI  #0x00000043
4051 @ 28430:               INIT   1
4052 @ 28433:               PUSHI  #0x00000000
4053 @ 28438:               INIT   1
4054 @ 28441:               PUSHI  #0x00000038
4055 @ 28446:               INIT   1
4056 @ 28449:               PUSHI  #0x00000000
4057 @ 28454:               INIT   1
4058 @ 28457:               PUSHI  #0x00000000
4059 @ 28462:               INIT   1
4060 @ 28465:               PUSHI  #0x00001000
4061 @ 28470:               INIT   1
4062 @ 28473:               PUSHI  #0x0000008b
4063 @ 28478:               INIT   1
4064 @ 28481:               PUSHI  #0x00000000
4065 @ 28486:               INIT   1
4066 @ 28489:               PUSHI  #0x00000038
4067 @ 28494:               INIT   1
4068 @ 28497:               PUSHI  #0x00000000
4069 @ 28502:               INIT   1
4070 @ 28505:               PUSHI  #0x00003e82
4071 @ 28510:               INIT   1
4072 @ 28513:               PUSHI  #0x00000000
4073 @ 28518:               INIT   1
4074 @ 28521:               PUSHI  #0xffffffff
4075 @ 28526:               INIT   1
4076 @ 28529:               PUSHI  #0x0000004c
4077 @ 28534:               INIT   1
4078 @ 28537:               PUSHI  #0x00000000
4079 @ 28542:               INIT   1
4080 @ 28545:               PUSHI  #0x00000000
4081 @ 28550:               INIT   1
4082 @ 28553:               PUSHI  #0x00000004
4083 @ 28558:               INIT   1
4084 @ 28561:               PUSHI  #0x00001002
4085 @ 28566:               INIT   1
4086 @ 28569:               PUSHI  #0x0000008d
4087 @ 28574:               INIT   1
4088 @ 28577:               PUSHI  #0x00000000
4089 @ 28582:               INIT   1
4090 @ 28585:               PUSHI  #0x00000038
4091 @ 28590:               INIT   1
4092 @ 28593:               PUSHI  #0x00000000
4093 @ 28598:               INIT   1
4094 @ 28601:               PUSHI  #0x00003eb2
4095 @ 28606:               INIT   1
4096 @ 28609:               PUSHI  #0x00000000
4097 @ 28614:               INIT   1
4098 @ 28617:               PUSHI  #0xffffffd4
4099 @ 28622:               INIT   1
4100 @ 28625:               PUSHI  #0x0000008e
4101 @ 28630:               INIT   1
4102 @ 28633:               PUSHI  #0x00000000
4103 @ 28638:               INIT   1
4104 @ 28641:               PUSHI  #0x00000000
4105 @ 28646:               INIT   1
4106 @ 28649:               PUSHI  #0x00000004
4107 @ 28654:               INIT   1
4108 @ 28657:               PUSHI  #0x00000043
4109 @ 28662:               INIT   1
4110 @ 28665:               PUSHI  #0xffffffba
4111 @ 28670:               INIT   1
4112 @ 28673:               PUSHI  #0x00000000
4113 @ 28678:               INIT   1
4114 @ 28681:               PUSHI  #0x000000a9
4115 @ 28686:               INIT   1
4116 @ 28689:               PUSHI  #0xffffffff
4117 @ 28694:               INIT   1
4118 @ 28697:               PUSHI  #0xfffffffc
4119 @ 28702:               INIT   1
4120 @ 28705:               PUSHI  #0x00001002
4121 @ 28710:               INIT   1
4122 @ 28713:               PUSHI  #0x0000008d
4123 @ 28718:               INIT   1
4124 @ 28721:               PUSHI  #0x00000000
4125 @ 28726:               INIT   1
4126 @ 28729:               PUSHI  #0x00000038
4127 @ 28734:               INIT   1
4128 @ 28737:               PUSHI  #0x00000000
4129 @ 28742:               INIT   1
4130 @ 28745:               PUSHI  #0x00003eac
4131 @ 28750:               INIT   1
4132 @ 28753:               PUSHI  #0x00001002
4133 @ 28758:               INIT   1
4134 @ 28761:               PUSHI  #0x00000091
4135 @ 28766:               INIT   1
4136 @ 28769:               PUSHI  #0x00000000
4137 @ 28774:               INIT   1
4138 @ 28777:               PUSHI  #0x00000038
4139 @ 28782:               INIT   1
4140 @ 28785:               PUSHI  #0x00000000
4141 @ 28790:               INIT   1
4142 @ 28793:               PUSHI  #0x00003ea6
4143 @ 28798:               INIT   1
4144 @ 28801:               PUSHI  #0x00000000
4145 @ 28806:               INIT   1
4146 @ 28809:               PUSHI  #0xffffffba
4147 @ 28814:               INIT   1
4148 @ 28817:               PUSHI  #0x0000008e
4149 @ 28822:               INIT   1
4150 @ 28825:               PUSHI  #0x00000000
4151 @ 28830:               INIT   1
4152 @ 28833:               PUSHI  #0x00000000
4153 @ 28838:               INIT   1
4154 @ 28841:               PUSHI  #0x00000004
4155 @ 28846:               INIT   1
4156 @ 28849:               PUSHI  #0x00001002
4157 @ 28854:               INIT   1
4158 @ 28857:               PUSHI  #0x0000008d
4159 @ 28862:               INIT   1
4160 @ 28865:               PUSHI  #0x00000000
4161 @ 28870:               INIT   1
4162 @ 28873:               PUSHI  #0x00000038
4163 @ 28878:               INIT   1
4164 @ 28881:               PUSHI  #0x00000000
4165 @ 28886:               INIT   1
4166 @ 28889:               PUSHI  #0x00003ea0
4167 @ 28894:               INIT   1
4168 @ 28897:               PUSHI  #0x00001002
4169 @ 28902:               INIT   1
4170 @ 28905:               PUSHI  #0x0000008d
4171 @ 28910:               INIT   1
4172 @ 28913:               PUSHI  #0x00000000
4173 @ 28918:               INIT   1
4174 @ 28921:               PUSHI  #0x00000038
4175 @ 28926:               INIT   1
4176 @ 28929:               PUSHI  #0x00000000
4177 @ 28934:               INIT   1
4178 @ 28937:               PUSHI  #0x00003e9a
4179 @ 28942:               INIT   1
4180 @ 28945:               PUSHI  #0x00001002
4181 @ 28950:               INIT   1
4182 @ 28953:               PUSHI  #0x00000091
4183 @ 28958:               INIT   1
4184 @ 28961:               PUSHI  #0x00000000
4185 @ 28966:               INIT   1
4186 @ 28969:               PUSHI  #0x00000038
4187 @ 28974:               INIT   1
4188 @ 28977:               PUSHI  #0x00000000
4189 @ 28982:               INIT   1
4190 @ 28985:               PUSHI  #0x00003e94
4191 @ 28990:               INIT   1
4192 @ 28993:               PUSHI  #0x00001002
4193 @ 28998:               INIT   1
4194 @ 29001:               PUSHI  #0x00000091
4195 @ 29006:               INIT   1
4196 @ 29009:               PUSHI  #0x00000000
4197 @ 29014:               INIT   1
4198 @ 29017:               PUSHI  #0x00000038
4199 @ 29022:               INIT   1
4200 @ 29025:               PUSHI  #0x00000000
4201 @ 29030:               INIT   1
4202 @ 29033:               PUSHI  #0x00003e8e
4203 @ 29038:               INIT   1
4204 @ 29041:               PUSHI  #0x00001002
4205 @ 29046:               INIT   1
4206 @ 29049:               PUSHI  #0x00000084
4207 @ 29054:               INIT   1
4208 @ 29057:               PUSHI  #0x00000000
4209 @ 29062:               INIT   1
4210 @ 29065:               PUSHI  #0x00000038
4211 @ 29070:               INIT   1
4212 @ 29073:               PUSHI  #0x00000000
4213 @ 29078:               INIT   1
4214 @ 29081:               PUSHI  #0x00003e7c
4215 @ 29086:               INIT   1
4216 @ 29089:               PUSHI  #0x00001002
4217 @ 29094:               INIT   1
4218 @ 29097:               PUSHI  #0x00000084
4219 @ 29102:               INIT   1
4220 @ 29105:               PUSHI  #0x00000000
4221 @ 29110:               INIT   1
4222 @ 29113:               PUSHI  #0x00000038
4223 @ 29118:               INIT   1
4224 @ 29121:               PUSHI  #0x00000000
4225 @ 29126:               INIT   1
4226 @ 29129:               PUSHI  #0x00003e76
4227 @ 29134:               INIT   1
4228 @ 29137:               PUSHI  #0x00001000
4229 @ 29142:               INIT   1
4230 @ 29145:               PUSHI  #0x0000002a
4231 @ 29150:               INIT   1
4232 @ 29153:               PUSHI  #0x00000000
4233 @ 29158:               INIT   1
4234 @ 29161:               PUSHI  #0x00000038
4235 @ 29166:               INIT   1
4236 @ 29169:               PUSHI  #0x00000000
4237 @ 29174:               INIT   1
4238 @ 29177:               PUSHI  #0x00003e76
4239 @ 29182:               INIT   1
4240 @ 29185:               PUSHI  #0x000010a0
4241 @ 29190:               INIT   1
4242 @ 29193:               PUSHI  #0x0000009a
4243 @ 29198:               INIT   1
4244 @ 29201:               PUSHI  #0x00000000
4245 @ 29206:               INIT   1
4246 @ 29209:               PUSHI  #0x00000038
4247 @ 29214:               INIT   1
4248 @ 29217:               PUSHI  #0x00000000
4249 @ 29222:               INIT   1
4250 @ 29225:               PUSHI  #0x00003e70
4251 @ 29230:               INIT   1
4252 @ 29233:               PUSHI  #0x00000000
4253 @ 29238:               INIT   1
4254 @ 29241:               PUSHI  #0xffffffff
4255 @ 29246:               INIT   1
4256 @ 29249:               PUSHI  #0x00000061
4257 @ 29254:               INIT   1
4258 @ 29257:               PUSHI  #0x00000000
4259 @ 29262:               INIT   1
4260 @ 29265:               PUSHI  #0x00000000
4261 @ 29270:               INIT   1
4262 @ 29273:               PUSHI  #0x00000004
4263 @ 29278:               INIT   1
4264 @ 29281:               PUSHI  #0x00001000
4265 @ 29286:               INIT   1
4266 @ 29289:               PUSHI  #0x0000009c
4267 @ 29294:               INIT   1
4268 @ 29297:               PUSHI  #0x00000000
4269 @ 29302:               INIT   1
4270 @ 29305:               PUSHI  #0x00000038
4271 @ 29310:               INIT   1
4272 @ 29313:               PUSHI  #0x00000000
4273 @ 29318:               INIT   1
4274 @ 29321:               PUSHI  #0x00003e6a
4275 @ 29326:               INIT   1
4276 @ 29329:               PUSHI  #0x00000000
4277 @ 29334:               INIT   1
4278 @ 29337:               PUSHI  #0xffffffff
4279 @ 29342:               INIT   1
4280 @ 29345:               PUSHI  #0x0000009d
4281 @ 29350:               INIT   1
4282 @ 29353:               PUSHI  #0x00000000
4283 @ 29358:               INIT   1
4284 @ 29361:               PUSHI  #0x00000000
4285 @ 29366:               INIT   1
4286 @ 29369:               PUSHI  #0x00000004
4287 @ 29374:               INIT   1
4288 @ 29377:               PUSHI  #0x00000043
4289 @ 29382:               INIT   1
4290 @ 29385:               PUSHI  #0xffffffbf
4291 @ 29390:               INIT   1
4292 @ 29393:               PUSHI  #0x00000000
4293 @ 29398:               INIT   1
4294 @ 29401:               PUSHI  #0x000018a9
4295 @ 29406:               INIT   1
4296 @ 29409:               PUSHI  #0xffffffff
4297 @ 29414:               INIT   1
4298 @ 29417:               PUSHI  #0xffffff00
4299 @ 29422:               INIT   1
4300 @ 29425:               PUSHI  #0x00006900
4301 @ 29430:               INIT   1
4302 @ 29433:               PUSHI  #0x0000009f
4303 @ 29438:               INIT   1
4304 @ 29441:               PUSHI  #0x00000000
4305 @ 29446:               INIT   1
4306 @ 29449:               PUSHI  #0x0000006c
4307 @ 29454:               INIT   1
4308 @ 29457:               PUSHI  #0x00000000
4309 @ 29462:               INIT   1
4310 @ 29465:               PUSHI  #0x00000000
4311 @ 29470:               INIT   1
4312 @ 29473:               PUSHI  #0x00000000
4313 @ 29478:               INIT   1
4314 @ 29481:               PUSHI  #0xffffffff
4315 @ 29486:               INIT   1
4316 @ 29489:               PUSHI  #0x000000a0
4317 @ 29494:               INIT   1
4318 @ 29497:               PUSHI  #0x00000000
4319 @ 29502:               INIT   1
4320 @ 29505:               PUSHI  #0x00000000
4321 @ 29510:               INIT   1
4322 @ 29513:               PUSHI  #0x00000000
4323 @ 29518:               INIT   1
4324 @ 29521:               PUSHI  #0x00000043
4325 @ 29526:               INIT   1
4326 @ 29529:               PUSHI  #0xffffffd4
4327 @ 29534:               INIT   1
4328 @ 29537:               PUSHI  #0x000000a1
4329 @ 29542:               INIT   1
4330 @ 29545:               PUSHI  #0x000000a9
4331 @ 29550:               INIT   1
4332 @ 29553:               PUSHI  #0xffffffff
4333 @ 29558:               INIT   1
4334 @ 29561:               PUSHI  #0xfffffffc
4335 @ 29566:               INIT   1
4336 @ 29569:               PUSHI  #0x00000043
4337 @ 29574:               INIT   1
4338 @ 29577:               PUSHI  #0xffffffbf
4339 @ 29582:               INIT   1
4340 @ 29585:               PUSHI  #0x00000000
4341 @ 29590:               INIT   1
4342 @ 29593:               PUSHI  #0x000018a9
4343 @ 29598:               INIT   1
4344 @ 29601:               PUSHI  #0xffffffff
4345 @ 29606:               INIT   1
4346 @ 29609:               PUSHI  #0xfffffefc
4347 @ 29614:               INIT   1
4348 @ 29617:               PUSHI  #0x00006900
4349 @ 29622:               INIT   1
4350 @ 29625:               PUSHI  #0x0000009f
4351 @ 29630:               INIT   1
4352 @ 29633:               PUSHI  #0x00000000
4353 @ 29638:               INIT   1
4354 @ 29641:               PUSHI  #0x0000006c
4355 @ 29646:               INIT   1
4356 @ 29649:               PUSHI  #0x00000000
4357 @ 29654:               INIT   1
4358 @ 29657:               PUSHI  #0x00000000
4359 @ 29662:               INIT   1
4360 @ 29665:               PUSHI  #0x00001000
4361 @ 29670:               INIT   1
4362 @ 29673:               PUSHI  #0x0000009a
4363 @ 29678:               INIT   1
4364 @ 29681:               PUSHI  #0x00000000
4365 @ 29686:               INIT   1
4366 @ 29689:               PUSHI  #0x00000038
4367 @ 29694:               INIT   1
4368 @ 29697:               PUSHI  #0x00000000
4369 @ 29702:               INIT   1
4370 @ 29705:               PUSHI  #0x00003e58
4371 @ 29710:               INIT   1
4372 @ 29713:               PUSHI  #0x00001000
4373 @ 29718:               INIT   1
4374 @ 29721:               PUSHI  #0x0000009a
4375 @ 29726:               INIT   1
4376 @ 29729:               PUSHI  #0x00000000
4377 @ 29734:               INIT   1
4378 @ 29737:               PUSHI  #0x00000038
4379 @ 29742:               INIT   1
4380 @ 29745:               PUSHI  #0x00000000
4381 @ 29750:               INIT   1
4382 @ 29753:               PUSHI  #0x00003e52
4383 @ 29758:               INIT   1
4384 @ 29761:               PUSHI  #0x00006900
4385 @ 29766:               INIT   1
4386 @ 29769:               PUSHI  #0x000000a6
4387 @ 29774:               INIT   1
4388 @ 29777:               PUSHI  #0x00000000
4389 @ 29782:               INIT   1
4390 @ 29785:               PUSHI  #0x0000006c
4391 @ 29790:               INIT   1
4392 @ 29793:               PUSHI  #0x00000000
4393 @ 29798:               INIT   1
4394 @ 29801:               PUSHI  #0x00000000
4395 @ 29806:               INIT   1
4396 @ 29809:               PUSHI  #0x00000000
4397 @ 29814:               INIT   1
4398 @ 29817:               PUSHI  #0xffffffff
4399 @ 29822:               INIT   1
4400 @ 29825:               PUSHI  #0x00000061
4401 @ 29830:               INIT   1
4402 @ 29833:               PUSHI  #0x00000000
4403 @ 29838:               INIT   1
4404 @ 29841:               PUSHI  #0x00000000
4405 @ 29846:               INIT   1
4406 @ 29849:               PUSHI  #0x00000000
4407 @ 29854:               INIT   1
4408 @ 29857:               PUSHI  #0x00006900
4409 @ 29862:               INIT   1
4410 @ 29865:               PUSHI  #0x000000a6
4411 @ 29870:               INIT   1
4412 @ 29873:               PUSHI  #0x00000000
4413 @ 29878:               INIT   1
4414 @ 29881:               PUSHI  #0x0000006c
4415 @ 29886:               INIT   1
4416 @ 29889:               PUSHI  #0x00000000
4417 @ 29894:               INIT   1
4418 @ 29897:               PUSHI  #0x00000000
4419 @ 29902:               INIT   1
4420 @ 29905:               PUSHI  #0x00006900
4421 @ 29910:               INIT   1
4422 @ 29913:               PUSHI  #0x00000000
4423 @ 29918:               INIT   1
4424 @ 29921:               PUSHI  #0x00000000
4425 @ 29926:               INIT   1
4426 @ 29929:               PUSHI  #0x0000006c
4427 @ 29934:               INIT   1
4428 @ 29937:               PUSHI  #0x00000000
4429 @ 29942:               INIT   1
4430 @ 29945:               PUSHI  #0x00000000
4431 @ 29950:               INIT   1
4432 @ 29953:               PUSHI  #0x00006900
4433 @ 29958:               INIT   1
4434 @ 29961:               PUSHI  #0x00000000
4435 @ 29966:               INIT   1
4436 @ 29969:               PUSHI  #0x00000000
4437 @ 29974:               INIT   1
4438 @ 29977:               PUSHI  #0x0000006c
4439 @ 29982:               INIT   1
4440 @ 29985:               PUSHI  #0x00000000
4441 @ 29990:               INIT   1
4442 @ 29993:               PUSHI  #0x00000000
4443 @ 29998:               INIT   1
4444 @ 30001:               PUSHI  #0x00001000
4445 @ 30006:               INIT   1
4446 @ 30009:               PUSHI  #0x0000002a
4447 @ 30014:               INIT   1
4448 @ 30017:               PUSHI  #0x00000000
4449 @ 30022:               INIT   1
4450 @ 30025:               PUSHI  #0x00000038
4451 @ 30030:               INIT   1
4452 @ 30033:               PUSHI  #0x00000000
4453 @ 30038:               INIT   1
4454 @ 30041:               PUSHI  #0x00003e40
4455 @ 30046:               INIT   1
4456 @ 30049:               PUSHI  #0x00001000
4457 @ 30054:               INIT   1
4458 @ 30057:               PUSHI  #0x0000002a
4459 @ 30062:               INIT   1
4460 @ 30065:               PUSHI  #0x00000000
4461 @ 30070:               INIT   1
4462 @ 30073:               PUSHI  #0x00000038
4463 @ 30078:               INIT   1
4464 @ 30081:               PUSHI  #0x00000000
4465 @ 30086:               INIT   1
4466 @ 30089:               PUSHI  #0x00003e3a
4467 @ 30094:               INIT   1
4468 @ 30097:               PUSHI  #0x00006900
4469 @ 30102:               INIT   1
4470 @ 30105:               PUSHI  #0x000000ad
4471 @ 30110:               INIT   1
4472 @ 30113:               PUSHI  #0x00000000
4473 @ 30118:               INIT   1
4474 @ 30121:               PUSHI  #0x0000006c
4475 @ 30126:               INIT   1
4476 @ 30129:               PUSHI  #0x00000000
4477 @ 30134:               INIT   1
4478 @ 30137:               PUSHI  #0x00000000
4479 @ 30142:               INIT   1
4480 @ 30145:               PUSHI  #0x00000000
4481 @ 30150:               INIT   1
4482 @ 30153:               PUSHI  #0xffffffff
4483 @ 30158:               INIT   1
4484 @ 30161:               PUSHI  #0x0000009d
4485 @ 30166:               INIT   1
4486 @ 30169:               PUSHI  #0x00000000
4487 @ 30174:               INIT   1
4488 @ 30177:               PUSHI  #0x00000000
4489 @ 30182:               INIT   1
4490 @ 30185:               PUSHI  #0x00000000
4491 @ 30190:               INIT   1
4492 @ 30193:               PUSHI  #0x00001000
4493 @ 30198:               INIT   1
4494 @ 30201:               PUSHI  #0x0000002a
4495 @ 30206:               INIT   1
4496 @ 30209:               PUSHI  #0x00000000
4497 @ 30214:               INIT   1
4498 @ 30217:               PUSHI  #0x00000038
4499 @ 30222:               INIT   1
4500 @ 30225:               PUSHI  #0xffff8185
4501 @ 30230:               INIT   1
4502 @ 30233:               PUSHI  #0x00000004
4503 @ 30238:               INIT   1
4504 @ 30241:               PUSHI  #0x00001000
4505 @ 30246:               INIT   1
4506 @ 30249:               PUSHI  #0x0000002a
4507 @ 30254:               INIT   1
4508 @ 30257:               PUSHI  #0x00000000
4509 @ 30262:               INIT   1
4510 @ 30265:               PUSHI  #0x00000038
4511 @ 30270:               INIT   1
4512 @ 30273:               PUSHI  #0xffff8189
4513 @ 30278:               INIT   1
4514 @ 30281:               PUSHI  #0x00000004
4515 @ 30286:               INIT   1
4516 @ 30289:               PUSHI  #0x00005900
4517 @ 30294:               INIT   1
4518 @ 30297:               PUSHI  #0x000000a6
4519 @ 30302:               INIT   1
4520 @ 30305:               PUSHI  #0x00000000
4521 @ 30310:               INIT   1
4522 @ 30313:               PUSHI  #0x0000006c
4523 @ 30318:               INIT   1
4524 @ 30321:               PUSHI  #0x00000000
4525 @ 30326:               INIT   1
4526 @ 30329:               PUSHI  #0x00000000
4527 @ 30334:               INIT   1
4528 @ 30337:               PUSHI  #0x00005900
4529 @ 30342:               INIT   1
4530 @ 30345:               PUSHI  #0x000000a6
4531 @ 30350:               INIT   1
4532 @ 30353:               PUSHI  #0x00000000
4533 @ 30358:               INIT   1
4534 @ 30361:               PUSHI  #0x0000006c
4535 @ 30366:               INIT   1
4536 @ 30369:               PUSHI  #0x00000000
4537 @ 30374:               INIT   1
4538 @ 30377:               PUSHI  #0x00000000
4539 @ 30382:               INIT   1
4540 @ 30385:               PUSHI  #0x00005906
4541 @ 30390:               INIT   1
4542 @ 30393:               PUSHI  #0x000000b3
4543 @ 30398:               INIT   1
4544 @ 30401:               PUSHI  #0x00000000
4545 @ 30406:               INIT   1
4546 @ 30409:               PUSHI  #0x0000006c
4547 @ 30414:               INIT   1
4548 @ 30417:               PUSHI  #0x00000000
4549 @ 30422:               INIT   1
4550 @ 30425:               PUSHI  #0x00000000
4551 @ 30430:               INIT   1
4552 @ 30433:               PUSHI  #0x00000000
4553 @ 30438:               INIT   1
4554 @ 30441:               PUSHI  #0xffffffbf
4555 @ 30446:               INIT   1
4556 @ 30449:               PUSHI  #0x00000000
4557 @ 30454:               INIT   1
4558 @ 30457:               PUSHI  #0x00001800
4559 @ 30462:               INIT   1
4560 @ 30465:               PUSHI  #0x00000000
4561 @ 30470:               INIT   1
4562 @ 30473:               PUSHI  #0x00000000
4563 @ 30478:               INIT   1
4564 @ 30481:               PUSHI  #0x0000590e
4565 @ 30486:               INIT   1
4566 @ 30489:               PUSHI  #0x000000b5
4567 @ 30494:               INIT   1
4568 @ 30497:               PUSHI  #0x00000000
4569 @ 30502:               INIT   1
4570 @ 30505:               PUSHI  #0x0000006c
4571 @ 30510:               INIT   1
4572 @ 30513:               PUSHI  #0x00000000
4573 @ 30518:               INIT   1
4574 @ 30521:               PUSHI  #0x00000000
4575 @ 30526:               INIT   1
4576 @ 30529:               PUSHI  #0x00000000
4577 @ 30534:               INIT   1
4578 @ 30537:               PUSHI  #0xffffffba
4579 @ 30542:               INIT   1
4580 @ 30545:               PUSHI  #0x00000000
4581 @ 30550:               INIT   1
4582 @ 30553:               PUSHI  #0x00000000
4583 @ 30558:               INIT   1
4584 @ 30561:               PUSHI  #0x00000000
4585 @ 30566:               INIT   1
4586 @ 30569:               PUSHI  #0x00000000
4587 @ 30574:               INIT   1
4588 @ 30577:               PUSHI  #0x0000590e
4589 @ 30582:               INIT   1
4590 @ 30585:               PUSHI  #0x00000001
4591 @ 30590:               INIT   1
4592 @ 30593:               PUSHI  #0x00000000
4593 @ 30598:               INIT   1
4594 @ 30601:               PUSHI  #0x0000006c
4595 @ 30606:               INIT   1
4596 @ 30609:               PUSHI  #0x00000000
4597 @ 30614:               INIT   1
4598 @ 30617:               PUSHI  #0x00000000
4599 @ 30622:               INIT   1
4600 @ 30625:               PUSHI  #0x00005900
4601 @ 30630:               INIT   1
4602 @ 30633:               PUSHI  #0x000000b8
4603 @ 30638:               INIT   1
4604 @ 30641:               PUSHI  #0x00000000
4605 @ 30646:               INIT   1
4606 @ 30649:               PUSHI  #0x0000006c
4607 @ 30654:               INIT   1
4608 @ 30657:               PUSHI  #0x00000000
4609 @ 30662:               INIT   1
4610 @ 30665:               PUSHI  #0x00000000
4611 @ 30670:               INIT   1
4612 @ 30673:               PUSHI  #0x00000000
4613 @ 30678:               INIT   1
4614 @ 30681:               PUSHI  #0xffffffff
4615 @ 30686:               INIT   1
4616 @ 30689:               PUSHI  #0x00000064
4617 @ 30694:               INIT   1
4618 @ 30697:               PUSHI  #0x00000000
4619 @ 30702:               INIT   1
4620 @ 30705:               PUSHI  #0x00000000
4621 @ 30710:               INIT   1
4622 @ 30713:               PUSHI  #0x00000000
4623 @ 30718:               INIT   1
4624 @ 30721:               PUSHI  #0x00006906
4625 @ 30726:               INIT   1
4626 @ 30729:               PUSHI  #0x00000001
4627 @ 30734:               INIT   1
4628 @ 30737:               PUSHI  #0x00000000
4629 @ 30742:               INIT   1
4630 @ 30745:               PUSHI  #0x0000006c
4631 @ 30750:               INIT   1
4632 @ 30753:               PUSHI  #0x00000000
4633 @ 30758:               INIT   1
4634 @ 30761:               PUSHI  #0x00000000
4635 @ 30766:               INIT   1
4636 @ 30769:               PUSHI  #0x00005900
4637 @ 30774:               INIT   1
4638 @ 30777:               PUSHI  #0x000000bb
4639 @ 30782:               INIT   1
4640 @ 30785:               PUSHI  #0x00000000
4641 @ 30790:               INIT   1
4642 @ 30793:               PUSHI  #0x0000006c
4643 @ 30798:               INIT   1
4644 @ 30801:               PUSHI  #0x00000000
4645 @ 30806:               INIT   1
4646 @ 30809:               PUSHI  #0x00000000
4647 @ 30814:               INIT   1
4648 @ 30817:               PUSHI  #0x00000000
4649 @ 30822:               INIT   1
4650 @ 30825:               PUSHI  #0xffffffff
4651 @ 30830:               INIT   1
4652 @ 30833:               PUSHI  #0x000000bc
4653 @ 30838:               INIT   1
4654 @ 30841:               PUSHI  #0x00000000
4655 @ 30846:               INIT   1
4656 @ 30849:               PUSHI  #0x00000000
4657 @ 30854:               INIT   1
4658 @ 30857:               PUSHI  #0x00000000
4659 @ 30862:               INIT   1
4660 @ 30865:               PUSHI  #0x00000043
4661 @ 30870:               INIT   1
4662 @ 30873:               PUSHI  #0xffffffba
4663 @ 30878:               INIT   1
4664 @ 30881:               PUSHI  #0x000000bd
4665 @ 30886:               INIT   1
4666 @ 30889:               PUSHI  #0x000000a9
4667 @ 30894:               INIT   1
4668 @ 30897:               PUSHI  #0xffffffff
4669 @ 30902:               INIT   1
4670 @ 30905:               PUSHI  #0xfffffffc
4671 @ 30910:               INIT   1
4672 @ 30913:               PUSHI  #0x00000043
4673 @ 30918:               INIT   1
4674 @ 30921:               PUSHI  #0xffffffd4
4675 @ 30926:               INIT   1
4676 @ 30929:               PUSHI  #0x000000be
4677 @ 30934:               INIT   1
4678 @ 30937:               PUSHI  #0x000001a9
4679 @ 30942:               INIT   1
4680 @ 30945:               PUSHI  #0xffffffff
4681 @ 30950:               INIT   1
4682 @ 30953:               PUSHI  #0xfffffff8
4683 @ 30958:               INIT   1
4684 @ 30961:               PUSHI  #0x00000043
4685 @ 30966:               INIT   1
4686 @ 30969:               PUSHI  #0xffffffd4
4687 @ 30974:               INIT   1
4688 @ 30977:               PUSHI  #0x00000000
4689 @ 30982:               INIT   1
4690 @ 30985:               PUSHI  #0x000002a9
4691 @ 30990:               INIT   1
4692 @ 30993:               PUSHI  #0xffffffff
4693 @ 30998:               INIT   1
4694 @ 31001:               PUSHI  #0xfffffff4
4695 @ 31006:               INIT   1
4696 @ 31009:               PUSHI  #0x00005900
4697 @ 31014:               INIT   1
4698 @ 31017:               PUSHI  #0x000000c0
4699 @ 31022:               INIT   1
4700 @ 31025:               PUSHI  #0x00000000
4701 @ 31030:               INIT   1
4702 @ 31033:               PUSHI  #0x0000006c
4703 @ 31038:               INIT   1
4704 @ 31041:               PUSHI  #0x00000000
4705 @ 31046:               INIT   1
4706 @ 31049:               PUSHI  #0x00000000
4707 @ 31054:               INIT   1
4708 @ 31057:               PUSHI  #0x00000000
4709 @ 31062:               INIT   1
4710 @ 31065:               PUSHI  #0xffffffff
4711 @ 31070:               INIT   1
4712 @ 31073:               PUSHI  #0x000000c1
4713 @ 31078:               INIT   1
4714 @ 31081:               PUSHI  #0x00000000
4715 @ 31086:               INIT   1
4716 @ 31089:               PUSHI  #0x00000000
4717 @ 31094:               INIT   1
4718 @ 31097:               PUSHI  #0x00000000
4719 @ 31102:               INIT   1
4720 @ 31105:               PUSHI  #0x00000043
4721 @ 31110:               INIT   1
4722 @ 31113:               PUSHI  #0xffffffba
4723 @ 31118:               INIT   1
4724 @ 31121:               PUSHI  #0x00000065
4725 @ 31126:               INIT   1
4726 @ 31129:               PUSHI  #0x000000a9
4727 @ 31134:               INIT   1
4728 @ 31137:               PUSHI  #0xffffffff
4729 @ 31142:               INIT   1
4730 @ 31145:               PUSHI  #0xfffffffc
4731 @ 31150:               INIT   1
4732 @ 31153:               PUSHI  #0x00000043
4733 @ 31158:               INIT   1
4734 @ 31161:               PUSHI  #0x0000002b
4735 @ 31166:               INIT   1
4736 @ 31169:               PUSHI  #0x00000000
4737 @ 31174:               INIT   1
4738 @ 31177:               PUSHI  #0x0000002d
4739 @ 31182:               INIT   1
4740 @ 31185:               PUSHI  #0x00000000
4741 @ 31190:               INIT   1
4742 @ 31193:               PUSHI  #0x00000188
4743 @ 31198:               INIT   1
4744 @ 31201:               PUSHI  #0x00000043
4745 @ 31206:               INIT   1
4746 @ 31209:               PUSHI  #0x0000002b
4747 @ 31214:               INIT   1
4748 @ 31217:               PUSHI  #0x00000000
4749 @ 31222:               INIT   1
4750 @ 31225:               PUSHI  #0x0000002d
4751 @ 31230:               INIT   1
4752 @ 31233:               PUSHI  #0x00000000
4753 @ 31238:               INIT   1
4754 @ 31241:               PUSHI  #0x0000018c
4755 @ 31246:               INIT   1
4756 @ 31249:               PUSHI  #0x00000043
4757 @ 31254:               INIT   1
4758 @ 31257:               PUSHI  #0x00000040
4759 @ 31262:               INIT   1
4760 @ 31265:               PUSHI  #0x00000000
4761 @ 31270:               INIT   1
4762 @ 31273:               PUSHI  #0x0000002d
4763 @ 31278:               INIT   1
4764 @ 31281:               PUSHI  #0x00000000
4765 @ 31286:               INIT   1
4766 @ 31289:               PUSHI  #0x000001d0
4767 @ 31294:               INIT   1

   759  %integer i,ci,anons
4768 @ 31297:               LINE   759 "regression-compile-tmp/imp22g-77.imp"
4769 @ 31337:               DEF    I p1=V_00c4 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
4770 @ 31350:               DEF    CI p1=V_00c5 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
4771 @ 31364:               DEF    ANONS p1=V_00c6 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   760  %record(identinfo)%name dp
   761  
4772 @ 31381:               LINE   760 "regression-compile-tmp/imp22g-77.imp"
4773 @ 31421:               DEF    DP p1=V_00c7 a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   762  %routine PUT CHAR
4774 @ 31435:               LINE   762 "regression-compile-tmp/imp22g-77.imp"
4775 @ 31475:               DEF    PUTCHAR (_lev0id0_PRESET_PUTCHAR) p1=V_00c8 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
4776 @ 31494:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
4777 @ 31495:                  FINISH ) {lev=3}

   763    byteinteger(charlim) = charinit(ci)
4778 @ 31496:                  LINE   763 "regression-compile-tmp/imp22g-77.imp"
4779 @ 31536:                  PUSH   BYTEINTEGER
4780 @ 31539:                  PUSH   CHARLIM
4781 @ 31542:                  ASSPAR
4782 @ 31543:                  CALL  
4783 @ 31544:                  PUSH   CHARINIT
4784 @ 31547:                  PUSH   CI
4785 @ 31550:                  ACCESS
4786 @ 31551:                  ASSVAL

   764    charlim = charlim+1;  ci = ci+1
4787 @ 31552:                  LINE   764 "regression-compile-tmp/imp22g-77.imp"
4788 @ 31592:                  PUSH   CHARLIM
4789 @ 31595:                  PUSH   CHARLIM
4790 @ 31598:                  PUSHI  #0x00000001
4791 @ 31603:                  ADD   
4792 @ 31604:                  ASSVAL
4793 @ 31605:                  LINE   764 "regression-compile-tmp/imp22g-77.imp"
4794 @ 31645:                  PUSH   CI
4795 @ 31648:                  PUSH   CI
4796 @ 31651:                  PUSHI  #0x00000001
4797 @ 31656:                  ADD   
4798 @ 31657:                  ASSVAL

   765  %end
   766  
4799 @ 31658:                  LINE   765 "regression-compile-tmp/imp22g-77.imp"
4800 @ 31698:               END    _lev0id0_PRESET_PUTCHAR {lev=3 --> 2}

   767  %routine TEXTSET(%record(identinfo)%name dp)
4801 @ 31699:               LINE   767 "regression-compile-tmp/imp22g-77.imp"
4802 @ 31739:               DEF    TEXTSET (_lev0id0_PRESET_TEXTSET) p1=V_00c9 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
4803 @ 31758:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
4804 @ 31759:                     DEF    DP p1=V_00ca a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
4805 @ 31773:                  FINISH ) {lev=3}

   768  %integer len
4806 @ 31774:                  LINE   768 "regression-compile-tmp/imp22g-77.imp"
4807 @ 31814:                  DEF    LEN p1=V_00cb a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   769    dp_hlink = 0
4808 @ 31829:                  LINE   769 "regression-compile-tmp/imp22g-77.imp"
4809 @ 31869:                  PUSH   DP
4810 @ 31872:                  SELECT 12
4811 @ 31875:                  PUSHI  #0x00000000
4812 @ 31880:                  ASSVAL

   770    %if dp_type < 0 %start;     !convention for *anon*
4813 @ 31881:                  LINE   770 "regression-compile-tmp/imp22g-77.imp"
4814 @ 31921:                  PUSH   DP
4815 @ 31924:                  SELECT 2
4816 @ 31927:                  PUSHI  #0x00000000
4817 @ 31932:                  JUMPIF >= L_0004

   771      dp_type = \dp_type
4818 @ 31936:                  LINE   771 "regression-compile-tmp/imp22g-77.imp"
4819 @ 31976:                  PUSH   DP
4820 @ 31979:                  SELECT 2
4821 @ 31982:                  PUSH   DP
4822 @ 31985:                  SELECT 2
4823 @ 31988:                  NOT   
4824 @ 31989:                  ASSVAL

   772      dp_text = 0
4825 @ 31990:                  LINE   772 "regression-compile-tmp/imp22g-77.imp"
4826 @ 32030:                  PUSH   DP
4827 @ 32033:                  SELECT 11
4828 @ 32036:                  PUSHI  #0x00000000
4829 @ 32041:                  ASSVAL

   773      anons = anons-1
4830 @ 32042:                  LINE   773 "regression-compile-tmp/imp22g-77.imp"
4831 @ 32082:                  PUSH   ANONS
4832 @ 32085:                  PUSH   ANONS
4833 @ 32088:                  PUSHI  #0x00000001
4834 @ 32093:                  SUB   
4835 @ 32094:                  ASSVAL

   774      dp_hlink = ranges %and ranges = dlim %if anons = 0 %and dlim <= mitetype+2
4836 @ 32095:                  LINE   774 "regression-compile-tmp/imp22g-77.imp"
4837 @ 32135:                  PUSH   ANONS
4838 @ 32138:                  PUSHI  #0x00000000
4839 @ 32143:                  JUMPIF # L_0007
4840 @ 32147:                  PUSH   DLIM
4841 @ 32150:                  PUSHI  #0x00000037
4842 @ 32155:                  PUSHI  #0x00000002
4843 @ 32160:                  ADD   
4844 @ 32161:                  JUMPIF > L_0007
4845 @ 32165:                  PUSH   DP
4846 @ 32168:                  SELECT 12
4847 @ 32171:                  PUSH   RANGES
4848 @ 32174:                  ASSVAL
4849 @ 32175:                  PUSH   RANGES
4850 @ 32178:                  PUSH   DLIM
4851 @ 32181:                  ASSVAL
4852 @ 32182:                  LOCATE L_0007

   775    %else
4853 @ 32185:                  LINE   775 "regression-compile-tmp/imp22g-77.imp"
4854 @ 32225:                  GOTO   L_0003
4855 @ 32228:                  LOCATE L_0004

   776      dp_text = ci
4856 @ 32231:                  LINE   776 "regression-compile-tmp/imp22g-77.imp"
4857 @ 32271:                  PUSH   DP
4858 @ 32274:                  SELECT 11
4859 @ 32277:                  PUSH   CI
4860 @ 32280:                  ASSVAL

   777      %if charinit(ci+1)&32 # 0 %start;  !not upper-case
4861 @ 32281:                  LINE   777 "regression-compile-tmp/imp22g-77.imp"
4862 @ 32321:                  PUSH   CHARINIT
4863 @ 32324:                  PUSH   CI
4864 @ 32327:                  PUSHI  #0x00000001
4865 @ 32332:                  ADD   
4866 @ 32333:                  ACCESS
4867 @ 32334:                  PUSHI  #0x00000020
4868 @ 32339:                  AND   
4869 @ 32340:                  PUSHI  #0x00000000
4870 @ 32345:                  JUMPIF = L_0007

   778        %if deventf < dlim < devent %start
4871 @ 32349:                  LINE   778 "regression-compile-tmp/imp22g-77.imp"
4872 @ 32389:                  PUSHI  #0x00000080
4873 @ 32394:                  PUSH   DLIM
4874 @ 32397:                  JUMPIFD >= L_000a
4875 @ 32401:                  PUSHI  #0x00000086
4876 @ 32406:                  JUMPIF >= L_000a

   779          head = dlim;  head == dp_hlink
4877 @ 32410:                  LINE   779 "regression-compile-tmp/imp22g-77.imp"
4878 @ 32450:                  PUSH   HEAD
4879 @ 32453:                  PUSH   DLIM
4880 @ 32456:                  ASSVAL
4881 @ 32457:                  LINE   779 "regression-compile-tmp/imp22g-77.imp"
4882 @ 32497:                  PUSH   HEAD
4883 @ 32500:                  PUSH   DP
4884 @ 32503:                  SELECT 12
4885 @ 32506:                  ASSREF

   780        %else
4886 @ 32507:                  LINE   780 "regression-compile-tmp/imp22g-77.imp"
4887 @ 32547:                  GOTO   L_0009
4888 @ 32550:                  LOCATE L_000a

   781          set hashhead(string(addr(charinit(ci))))
4889 @ 32553:                  LINE   781 "regression-compile-tmp/imp22g-77.imp"
4890 @ 32593:                  PUSH   SETHASHHEAD
4891 @ 32596:                  PUSH   STRING
4892 @ 32599:                  PUSH   ADDR
4893 @ 32602:                  PUSH   CHARINIT
4894 @ 32605:                  PUSH   CI
4895 @ 32608:                  ACCESS
4896 @ 32609:                  ASSPAR
4897 @ 32610:                  CALL  
4898 @ 32611:                  ASSPAR
4899 @ 32612:                  CALL  
4900 @ 32613:                  ASSPAR
4901 @ 32614:                  CALL  

   782          dp_hlink = head;  head = dlim
4902 @ 32615:                  LINE   782 "regression-compile-tmp/imp22g-77.imp"
4903 @ 32655:                  PUSH   DP
4904 @ 32658:                  SELECT 12
4905 @ 32661:                  PUSH   HEAD
4906 @ 32664:                  ASSVAL
4907 @ 32665:                  LINE   782 "regression-compile-tmp/imp22g-77.imp"
4908 @ 32705:                  PUSH   HEAD
4909 @ 32708:                  PUSH   DLIM
4910 @ 32711:                  ASSVAL

   783          head == dp_link %if dlim = deventf
4911 @ 32712:                  LINE   783 "regression-compile-tmp/imp22g-77.imp"
4912 @ 32752:                  PUSH   DLIM
4913 @ 32755:                  PUSHI  #0x00000080
4914 @ 32760:                  JUMPIF # L_000d
4915 @ 32764:                  PUSH   HEAD
4916 @ 32767:                  PUSH   DP
4917 @ 32770:                  SELECT 3
4918 @ 32773:                  ASSREF
4919 @ 32774:                  LOCATE L_000d

   784        %finish
4920 @ 32777:                  LINE   784 "regression-compile-tmp/imp22g-77.imp"
4921 @ 32817:                  LOCATE L_0009

   785      %finish
4922 @ 32820:                  LINE   785 "regression-compile-tmp/imp22g-77.imp"
4923 @ 32860:                  LOCATE L_0007

   786      len = charinit(ci)
4924 @ 32863:                  LINE   786 "regression-compile-tmp/imp22g-77.imp"
4925 @ 32903:                  PUSH   LEN
4926 @ 32906:                  PUSH   CHARINIT
4927 @ 32909:                  PUSH   CI
4928 @ 32912:                  ACCESS
4929 @ 32913:                  ASSVAL

   787      put char %and len = len-1 %until len < 0
4930 @ 32914:                  LINE   787 "regression-compile-tmp/imp22g-77.imp"
4931 @ 32954:                  LOCATE L_0006
4932 @ 32957:                  PUSH   PUTCHAR
4933 @ 32960:                  CALL  
4934 @ 32961:                  PUSH   LEN
4935 @ 32964:                  PUSH   LEN
4936 @ 32967:                  PUSHI  #0x00000001
4937 @ 32972:                  SUB   
4938 @ 32973:                  ASSVAL
4939 @ 32974:                  PUSH   LEN
4940 @ 32977:                  PUSHI  #0x00000000
4941 @ 32982:                  JUMPIF < L_0007
4942 @ 32986:                  REPEAT L_0006
4943 @ 32989:                  LOCATE L_0007

   788      len = charinit(ci)-128
4944 @ 32992:                  LINE   788 "regression-compile-tmp/imp22g-77.imp"
4945 @ 33032:                  PUSH   LEN
4946 @ 33035:                  PUSH   CHARINIT
4947 @ 33038:                  PUSH   CI
4948 @ 33041:                  ACCESS
4949 @ 33042:                  PUSHI  #0x00000080
4950 @ 33047:                  SUB   
4951 @ 33048:                  ASSVAL

   789      put char %and len = len-1 %while len >= 0
4952 @ 33049:                  LINE   789 "regression-compile-tmp/imp22g-77.imp"
4953 @ 33089:                  LOCATE L_0006
4954 @ 33092:                  PUSH   LEN
4955 @ 33095:                  PUSHI  #0x00000000
4956 @ 33100:                  JUMPIF < L_0007
4957 @ 33104:                  PUSH   PUTCHAR
4958 @ 33107:                  CALL  
4959 @ 33108:                  PUSH   LEN
4960 @ 33111:                  PUSH   LEN
4961 @ 33114:                  PUSHI  #0x00000001
4962 @ 33119:                  SUB   
4963 @ 33120:                  ASSVAL
4964 @ 33121:                  REPEAT L_0006
4965 @ 33124:                  LOCATE L_0007

   790      anons = 2
4966 @ 33127:                  LINE   790 "regression-compile-tmp/imp22g-77.imp"
4967 @ 33167:                  PUSH   ANONS
4968 @ 33170:                  PUSHI  #0x00000002
4969 @ 33175:                  ASSVAL

   791    %finish
4970 @ 33176:                  LINE   791 "regression-compile-tmp/imp22g-77.imp"
4971 @ 33216:                  LOCATE L_0003

   792  %end
   793  
4972 @ 33219:                  LINE   792 "regression-compile-tmp/imp22g-77.imp"
4973 @ 33259:               END    _lev0id0_PRESET_TEXTSET {lev=3 --> 2}

   794    hashindex(i) = 0 %for i = 0,1,255;  !hash table empty
4974 @ 33260:               LINE   794 "regression-compile-tmp/imp22g-77.imp"
4975 @ 33300:               PUSH   I
4976 @ 33303:               PUSHI  #0x00000001
4977 @ 33308:               PUSHI  #0x000000ff
4978 @ 33313:               PUSHI  #0x00000000
4979 @ 33318:               FOR    L_0003
4980 @ 33321:               PUSH   HASHINDEX
4981 @ 33324:               PUSH   I
4982 @ 33327:               ACCESS
4983 @ 33328:               PUSHI  #0x00000000
4984 @ 33333:               ASSVAL
4985 @ 33334:               REPEAT L_0003
4986 @ 33337:               LOCATE L_0004

   795    byteinteger(char0) = 0;  !for anon ident
4987 @ 33340:               LINE   795 "regression-compile-tmp/imp22g-77.imp"
4988 @ 33380:               PUSH   BYTEINTEGER
4989 @ 33383:               PUSH   CHAR0
4990 @ 33386:               ASSPAR
4991 @ 33387:               CALL  
4992 @ 33388:               PUSHI  #0x00000000
4993 @ 33393:               ASSVAL

   796    charlim = char0+1
4994 @ 33394:               LINE   796 "regression-compile-tmp/imp22g-77.imp"
4995 @ 33434:               PUSH   CHARLIM
4996 @ 33437:               PUSH   CHAR0
4997 @ 33440:               PUSHI  #0x00000001
4998 @ 33445:               ADD   
4999 @ 33446:               ASSVAL

   797    charmin = charlim+charbound;  !(1 over top)
5000 @ 33447:               LINE   797 "regression-compile-tmp/imp22g-77.imp"
5001 @ 33487:               PUSH   CHARMIN
5002 @ 33490:               PUSH   CHARLIM
5003 @ 33493:               PUSH   CHARBOUND
5004 @ 33496:               ADD   
5005 @ 33497:               ASSVAL

   798    ranges = 0
   799  
5006 @ 33498:               LINE   798 "regression-compile-tmp/imp22g-77.imp"
5007 @ 33538:               PUSH   RANGES
5008 @ 33541:               PUSHI  #0x00000000
5009 @ 33546:               ASSVAL

   800    ci = 1
5010 @ 33547:               LINE   800 "regression-compile-tmp/imp22g-77.imp"
5011 @ 33587:               PUSH   CI
5012 @ 33590:               PUSHI  #0x00000001
5013 @ 33595:               ASSVAL

   801    anons = 100
5014 @ 33596:               LINE   801 "regression-compile-tmp/imp22g-77.imp"
5015 @ 33636:               PUSH   ANONS
5016 @ 33639:               PUSHI  #0x00000064
5017 @ 33644:               ASSVAL

   802    dict(0) = 0
5018 @ 33645:               LINE   802 "regression-compile-tmp/imp22g-77.imp"
5019 @ 33685:               PUSH   DICT
5020 @ 33688:               PUSHI  #0x00000000
5021 @ 33693:               ACCESS
5022 @ 33694:               PUSHI  #0x00000000
5023 @ 33699:               ASSVAL

   803    dlim = d0
5024 @ 33700:               LINE   803 "regression-compile-tmp/imp22g-77.imp"
5025 @ 33740:               PUSH   DLIM
5026 @ 33743:               PUSHI  #0x00000001
5027 @ 33748:               ASSVAL

   804    %cycle
5028 @ 33749:               LINE   804 "regression-compile-tmp/imp22g-77.imp"
5029 @ 33789:               LOCATE L_0003

   805      dp == dict(dlim)
5030 @ 33792:               LINE   805 "regression-compile-tmp/imp22g-77.imp"
5031 @ 33832:               PUSH   DP
5032 @ 33835:               PUSH   DICT
5033 @ 33838:               PUSH   DLIM
5034 @ 33841:               ACCESS
5035 @ 33842:               ASSREF

   806      %if dlim <= prea7 %start
5036 @ 33843:               LINE   806 "regression-compile-tmp/imp22g-77.imp"
5037 @ 33883:               PUSH   DLIM
5038 @ 33886:               PUSHI  #0x00000028
5039 @ 33891:               JUMPIF > L_0007

   807        dp = 0
5040 @ 33895:               LINE   807 "regression-compile-tmp/imp22g-77.imp"
5041 @ 33935:               PUSH   DP
5042 @ 33938:               PUSHI  #0x00000000
5043 @ 33943:               ASSVAL

   808        dp_flags = okflag+writable+readable;  dp_mode = dlim-d0
5044 @ 33944:               LINE   808 "regression-compile-tmp/imp22g-77.imp"
5045 @ 33984:               PUSH   DP
5046 @ 33987:               SELECT 1
5047 @ 33990:               PUSHI  #0x00000040
5048 @ 33995:               PUSHI  #0x00000001
5049 @ 34000:               ADD   
5050 @ 34001:               PUSHI  #0x00000002
5051 @ 34006:               ADD   
5052 @ 34007:               ASSVAL
5053 @ 34008:               LINE   808 "regression-compile-tmp/imp22g-77.imp"
5054 @ 34048:               PUSH   DP
5055 @ 34051:               SELECT 8
5056 @ 34054:               PUSH   DLIM
5057 @ 34057:               PUSHI  #0x00000001
5058 @ 34062:               SUB   
5059 @ 34063:               ASSVAL

   809        dp_type = inttype
5060 @ 34064:               LINE   809 "regression-compile-tmp/imp22g-77.imp"
5061 @ 34104:               PUSH   DP
5062 @ 34107:               SELECT 2
5063 @ 34110:               PUSHI  #0x0000002b
5064 @ 34115:               ASSVAL

   810        textset(dp) %if dlim <= a7
5065 @ 34116:               LINE   810 "regression-compile-tmp/imp22g-77.imp"
5066 @ 34156:               PUSH   DLIM
5067 @ 34159:               PUSHI  #0x00000010
5068 @ 34164:               JUMPIF > L_000a
5069 @ 34168:               PUSH   TEXTSET
5070 @ 34171:               PUSH   DP
5071 @ 34174:               ASSPAR
5072 @ 34175:               CALL  
5073 @ 34176:               LOCATE L_000a

   811      %else
5074 @ 34179:               LINE   811 "regression-compile-tmp/imp22g-77.imp"
5075 @ 34219:               GOTO   L_0006
5076 @ 34222:               LOCATE L_0007

   812        dp_details = record(addr(dictinit(dlim*6)))
5077 @ 34225:               LINE   812 "regression-compile-tmp/imp22g-77.imp"
5078 @ 34265:               PUSH   DP
5079 @ 34268:               SELECT 10
5080 @ 34271:               PUSH   RECORD
5081 @ 34274:               PUSH   ADDR
5082 @ 34277:               PUSH   DICTINIT
5083 @ 34280:               PUSH   DLIM
5084 @ 34283:               PUSHI  #0x00000006
5085 @ 34288:               MUL   
5086 @ 34289:               ACCESS
5087 @ 34290:               ASSPAR
5088 @ 34291:               CALL  
5089 @ 34292:               ASSPAR
5090 @ 34293:               CALL  
5091 @ 34294:               ASSVAL

   813        textset(dp)
5092 @ 34295:               LINE   813 "regression-compile-tmp/imp22g-77.imp"
5093 @ 34335:               PUSH   TEXTSET
5094 @ 34338:               PUSH   DP
5095 @ 34341:               ASSPAR
5096 @ 34342:               CALL  

   814      %finish
5097 @ 34343:               LINE   814 "regression-compile-tmp/imp22g-77.imp"
5098 @ 34383:               LOCATE L_0006

   815      dlim = dlim+1
5099 @ 34386:               LINE   815 "regression-compile-tmp/imp22g-77.imp"
5100 @ 34426:               PUSH   DLIM
5101 @ 34429:               PUSH   DLIM
5102 @ 34432:               PUSHI  #0x00000001
5103 @ 34437:               ADD   
5104 @ 34438:               ASSVAL

   816      %exit %if control&permbit # 0 %and dlim >= signal
5105 @ 34439:               LINE   816 "regression-compile-tmp/imp22g-77.imp"
5106 @ 34479:               PUSH   CONTROL
5107 @ 34482:               PUSHI  #0x00000080
5108 @ 34487:               AND   
5109 @ 34488:               PUSHI  #0x00000000
5110 @ 34493:               JUMPIF = L_0007
5111 @ 34497:               PUSH   DLIM
5112 @ 34500:               PUSHI  #0x00000049
5113 @ 34505:               JUMPIF < L_0007
5114 @ 34509:               GOTO   L_0004
5115 @ 34512:               LOCATE L_0007

   817    %repeat %until dlim > premax
5116 @ 34515:               LINE   817 "regression-compile-tmp/imp22g-77.imp"
5117 @ 34555:               PUSH   DLIM
5118 @ 34558:               PUSHI  #0x000000c4
5119 @ 34563:               JUMPIF > L_0004
5120 @ 34567:               REPEAT L_0003
5121 @ 34570:               LOCATE L_0004

   818    dictshown = dlim
5122 @ 34573:               LINE   818 "regression-compile-tmp/imp22g-77.imp"
5123 @ 34613:               PUSH   DICTSHOWN
5124 @ 34616:               PUSH   DLIM
5125 @ 34619:               ASSVAL

   819    i = dictlim
5126 @ 34620:               LINE   819 "regression-compile-tmp/imp22g-77.imp"
5127 @ 34660:               PUSH   I
5128 @ 34663:               PUSH   DICTLIM
5129 @ 34666:               ASSVAL

   820    %cycle
5130 @ 34667:               LINE   820 "regression-compile-tmp/imp22g-77.imp"
5131 @ 34707:               LOCATE L_0003

   821      dp == dict(i)
5132 @ 34710:               LINE   821 "regression-compile-tmp/imp22g-77.imp"
5133 @ 34750:               PUSH   DP
5134 @ 34753:               PUSH   DICT
5135 @ 34756:               PUSH   I
5136 @ 34759:               ACCESS
5137 @ 34760:               ASSREF

   822      dp = 0
5138 @ 34761:               LINE   822 "regression-compile-tmp/imp22g-77.imp"
5139 @ 34801:               PUSH   DP
5140 @ 34804:               PUSHI  #0x00000000
5141 @ 34809:               ASSVAL

   823      dp_mode = labmode
5142 @ 34810:               LINE   823 "regression-compile-tmp/imp22g-77.imp"
5143 @ 34850:               PUSH   DP
5144 @ 34853:               SELECT 8
5145 @ 34856:               PUSHI  #0x000000ba
5146 @ 34861:               ASSVAL

   824      i = i+1
5147 @ 34862:               LINE   824 "regression-compile-tmp/imp22g-77.imp"
5148 @ 34902:               PUSH   I
5149 @ 34905:               PUSH   I
5150 @ 34908:               PUSHI  #0x00000001
5151 @ 34913:               ADD   
5152 @ 34914:               ASSVAL

   825    %repeat %until i = np0
5153 @ 34915:               LINE   825 "regression-compile-tmp/imp22g-77.imp"
5154 @ 34955:               PUSH   I
5155 @ 34958:               PUSH   NP0
5156 @ 34961:               JUMPIF = L_0004
5157 @ 34965:               REPEAT L_0003
5158 @ 34968:               LOCATE L_0004

   826  %end;  !preset
   827  
   828  !<<BOTH
   829  
   830  !  The last part of DICT (from LABLIM to EXPLIM) is used for
   831  ! the intermediate representation of the components of source
   832  ! statements between the recognition stage and the code generation
   833  ! stage.
   834  !  The part from LABLIM+4 (NP0) up is used as a temporary pipeline
   835  ! for non-expression cells (instructions, conditions, etc)
   836  ! and the part down from EXPLIM for the canonical and
   837  ! persistent representation of expressions (including name
   838  ! expressions).
   839  ! In this part of the array the ident components PLIST (etc), TEXT
   840  !  and HLINK are replaced by ACT, X and Y representing an operation
   841  !  and (up to) two operands.
5159 @ 34971:               LINE   826 "regression-compile-tmp/imp22g-77.imp"
5160 @ 35011:            END    _lev0id0_PRESET {lev=2 --> 1}

   842  %integer EXPLO,OLDEXPLO
5161 @ 35012:            LINE   842 "regression-compile-tmp/imp22g-77.imp"
5162 @ 35052:            DEF    EXPLO p1=V_00c2 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
5163 @ 35069:            DEF    OLDEXPLO p1=V_00c3 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   843  %integer NP,STARTNP
   844  
   845  !Operator codes:
   846  ! Machine operator index values 1-31:
5164 @ 35089:            LINE   843 "regression-compile-tmp/imp22g-77.imp"
5165 @ 35129:            DEF    NP p1=V_00c4 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
5166 @ 35143:            DEF    STARTNP p1=V_00c5 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   847  %constinteger MOVE=1, ADD=2, SUB=3
5167 @ 35162:            LINE   847 "regression-compile-tmp/imp22g-77.imp"

   848  %constinteger CMP=4, AND=5, OR=6, EOR=7
5168 @ 35202:            LINE   848 "regression-compile-tmp/imp22g-77.imp"

   849  %constinteger NOT=8, NEG=9, LSL=10, LSR=11
5169 @ 35242:            LINE   849 "regression-compile-tmp/imp22g-77.imp"

   850  %constinteger MULS=12, DIVS=13, MULU=14, DIVU=15
5170 @ 35282:            LINE   850 "regression-compile-tmp/imp22g-77.imp"

   851  %constinteger BRA=16, BSR=17
5171 @ 35322:            LINE   851 "regression-compile-tmp/imp22g-77.imp"

   852  %constinteger BCC=20, BCS=21, BNE=22, BEQ=23
5172 @ 35362:            LINE   852 "regression-compile-tmp/imp22g-77.imp"

   853  %constinteger BVC=24, BVS=25
5173 @ 35402:            LINE   853 "regression-compile-tmp/imp22g-77.imp"

   854  %constinteger BGE=28, BLT=29, BGT=30, BLE=31
5174 @ 35442:            LINE   854 "regression-compile-tmp/imp22g-77.imp"

   855  %constinteger COMPARE=cmp, GOTO=bra
   856  ! Other built-in operators
5175 @ 35482:            LINE   855 "regression-compile-tmp/imp22g-77.imp"

   857  %constinteger JAMASS=32, OKASS=33, ASSIGN=34, INCASS=35
5176 @ 35522:            LINE   857 "regression-compile-tmp/imp22g-77.imp"

   858  %constinteger FORASS=36, STOP=37, RETURN=38, REPEAT=39
5177 @ 35562:            LINE   858 "regression-compile-tmp/imp22g-77.imp"

   859  %constinteger ELSE=40, JUMPOUT=41, SETTRAP=42, SWGOTO=43
5178 @ 35602:            LINE   859 "regression-compile-tmp/imp22g-77.imp"

   860  %constinteger LABEL=44, RECREF=45, PREL=46, STOREMAP=47
5179 @ 35642:            LINE   860 "regression-compile-tmp/imp22g-77.imp"

   861  %constinteger IABS=48, FABS=49, END=50
   862  ! PLUS OPERATORS DEFINED IN DICTIONARY > BOPMAX <= OPMAX
   863  !
   864  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   865  
5180 @ 35682:            LINE   861 "regression-compile-tmp/imp22g-77.imp"

   866  %integer STARTS, CYCLES
5181 @ 35722:            LINE   866 "regression-compile-tmp/imp22g-77.imp"
5182 @ 35762:            DEF    STARTS p1=V_00c6 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
5183 @ 35780:            DEF    CYCLES p1=V_00c7 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   867  %integer CURLAB
5184 @ 35798:            LINE   867 "regression-compile-tmp/imp22g-77.imp"
5185 @ 35838:            DEF    CURLAB p1=V_00c8 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   868  %integer PENDOUT, PENDCOND, PENDIN, POLARITY, CONDOP
5186 @ 35856:            LINE   868 "regression-compile-tmp/imp22g-77.imp"
5187 @ 35896:            DEF    PENDOUT p1=V_00c9 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
5188 @ 35915:            DEF    PENDCOND p1=V_00ca a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
5189 @ 35935:            DEF    PENDIN p1=V_00cb a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
5190 @ 35953:            DEF    POLARITY p1=V_00cc a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
5191 @ 35973:            DEF    CONDOP p1=V_00cd a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   869  %ownshortinteger EXTSPECS=0, EXTERNS=0
   870  !
5192 @ 35991:            LINE   869 "regression-compile-tmp/imp22g-77.imp"
5193 @ 36031:            PUSHI  #0x00000000
5194 @ 36036:            DEF    EXTSPECS p1=V_00ce a/tf=11 b/format=3 c/ostate=21  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=1 (own) spec=0 indirect=0 unass=1
5195 @ 36056:            INIT   1
5196 @ 36059:            PUSHI  #0x00000000
5197 @ 36064:            DEF    EXTERNS p1=V_00cf a/tf=11 b/format=3 c/ostate=21  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=1 (own) spec=0 indirect=0 unass=1
5198 @ 36083:            INIT   1

   871  %recordformat CONTENTINFO(%short ccx,ccy,line,
   872                            %shortarray content(d0:a7))
5199 @ 36086:            LINE   871 "regression-compile-tmp/imp22g-77.imp"
5200 @ 36126:            DEF    CONTENTINFO p1=V_00d0 a/tf=44 b/format=d0 c/ostate=0  type=4 (record) form=4 (record-format) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
5201 @ 36149:            START  ( RECORDFORMAT
5202 @ 36150:               DEF    CCX p1=V_0000 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
5203 @ 36165:               DEF    CCY p1=V_0000 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
5204 @ 36180:               DEF    LINE p1=V_0000 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
5205 @ 36196:               DEF    CONTENT p1=V_0000 a/tf=1b b/format=3 c/ostate=100  type=1 (integer) form=11 (array) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
5206 @ 36215:               PUSHI  #0x00000001
5207 @ 36220:               PUSHI  #0x00000010
5208 @ 36225:               DIM    0001 0001
5209 @ 36231:            FINISH ) 

   873  %recordformat BLOCKINF(%integer sp, stack, extra, totstack, free, status,
   874                  type, localdpos, parlim, localtext, localad, vintage,
   875                  localpc, localswpc, pid, access, forward, lab1, looplab,
   876                  eventsp, faults, return, shorts, temps,
   877                  dynarray, oldcontrol, mode,val,
   878                  %record(identinfo)%name dpid,
   879                  %record(contentinfo) reg)
   880  !STATUS flag bits
5210 @ 36232:            LINE   873 "regression-compile-tmp/imp22g-77.imp"
5211 @ 36272:            DEF    BLOCKINF p1=V_00d1 a/tf=44 b/format=d1 c/ostate=0  type=4 (record) form=4 (record-format) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
5212 @ 36292:            START  ( RECORDFORMAT
5213 @ 36293:               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
5214 @ 36307:               DEF    STACK 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
5215 @ 36324:               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
5216 @ 36341:               DEF    TOTSTACK 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
5217 @ 36361:               DEF    FREE 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
5218 @ 36377:               DEF    STATUS 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
5219 @ 36395:               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
5220 @ 36411:               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
5221 @ 36432:               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
5222 @ 36450:               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
5223 @ 36471:               DEF    LOCALAD 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
5224 @ 36490:               DEF    VINTAGE 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
5225 @ 36509:               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
5226 @ 36528:               DEF    LOCALSWPC 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
5227 @ 36549:               DEF    PID 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
5228 @ 36564:               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
5229 @ 36582:               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
5230 @ 36601:               DEF    LAB1 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
5231 @ 36617:               DEF    LOOPLAB 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
5232 @ 36636:               DEF    EVENTSP 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
5233 @ 36655:               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
5234 @ 36673:               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
5235 @ 36691:               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
5236 @ 36709:               DEF    TEMPS 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
5237 @ 36726:               DEF    DYNARRAY 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
5238 @ 36746:               DEF    OLDCONTROL 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
5239 @ 36768:               DEF    MODE 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
5240 @ 36784:               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
5241 @ 36799:               DEF    DPID p1=V_0000 a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
5242 @ 36815:               DEF    REG p1=V_0000 a/tf=41 b/format=d0 c/ostate=0  type=4 (record) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
5243 @ 36830:            FINISH ) 

   881  %constinteger UNKNOWN    =16_0002,
   882                WRONGCC    =16_0004,
   883                ONSTACK    =16_0008,
   884                GLOBBED    =16_0010,
   885                LABGLOBBED =16_0020, {Pascal}
   886                HADSPEC    =16_0040,
   887                HADSWITCH  =16_0080,
   888                HADON      =16_1000,
   889                HADORDERERR=16_2000,
   890                HADINST    =16_4000  {max flag}
   891  
5244 @ 36831:            LINE   881 "regression-compile-tmp/imp22g-77.imp"

   892  %constinteger OUTERLEVEL=0, MAXLEVEL=7
5245 @ 36871:            LINE   892 "regression-compile-tmp/imp22g-77.imp"

   893  %integer LEVEL;           !current block level
5246 @ 36911:            LINE   893 "regression-compile-tmp/imp22g-77.imp"
5247 @ 36951:            DEF    LEVEL p1=V_00d2 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   894  %integer VINTAGE;         !current block number
5248 @ 36968:            LINE   894 "regression-compile-tmp/imp22g-77.imp"
5249 @ 37008:            DEF    VINTAGE p1=V_00d3 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   895  %record(blockinf) C;      !info for current block
5250 @ 37027:            LINE   895 "regression-compile-tmp/imp22g-77.imp"
5251 @ 37067:            DEF    C p1=V_00d4 a/tf=41 b/format=d1 c/ostate=0  type=4 (record) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   896  %record(blockinf)%array HOLD(0:maxlevel-1); !info for global blocks
5252 @ 37080:            LINE   896 "regression-compile-tmp/imp22g-77.imp"
5253 @ 37120:            DEF    HOLD p1=V_00d5 a/tf=4b b/format=d1 c/ostate=100  type=4 (record) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
5254 @ 37136:            PUSHI  #0x00000000
5255 @ 37141:            PUSHI  #0x00000007
5256 @ 37146:            PUSHI  #0x00000001
5257 @ 37151:            SUB   
5258 @ 37152:            DIM    0001 0001

   897  %record(contentinfo)%array LREG(0:labels)
   898  
   899  ! Code storage for currently open blocks
5259 @ 37158:            LINE   897 "regression-compile-tmp/imp22g-77.imp"
5260 @ 37198:            DEF    LREG p1=V_00d6 a/tf=4b b/format=d0 c/ostate=100  type=4 (record) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
5261 @ 37214:            PUSHI  #0x00000000
5262 @ 37219:            PUSHI  #0x0000002a
5263 @ 37224:            DIM    0001 0001

   900  %constinteger PROGBOUND=16383
5264 @ 37230:            LINE   900 "regression-compile-tmp/imp22g-77.imp"

   901  %shortarray PROG(0:progbound)
5265 @ 37270:            LINE   901 "regression-compile-tmp/imp22g-77.imp"
5266 @ 37310:            DEF    PROG p1=V_00d7 a/tf=1b b/format=3 c/ostate=100  type=1 (integer) form=11 (array) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
5267 @ 37326:            PUSHI  #0x00000000
5268 @ 37331:            PUSHI  #0x00003fff
5269 @ 37336:            DIM    0001 0001

   902  %bytearray PFLAG(0:progbound)
5270 @ 37342:            LINE   902 "regression-compile-tmp/imp22g-77.imp"
5271 @ 37382:            DEF    PFLAG p1=V_00d8 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
5272 @ 37399:            PUSHI  #0x00000000
5273 @ 37404:            PUSHI  #0x00003fff
5274 @ 37409:            DIM    0001 0001

   903  %constinteger SHORTJUMP=1, JUMP=2, LONGJUMP=3,
   904                GLOBAL=4, {NEGGLOBAL=5, BIGGLOBAL=6,} INDGLOBAL=7,
   905                ZEROSHORTS=8
5275 @ 37415:            LINE   903 "regression-compile-tmp/imp22g-77.imp"

   906  %integer PC,SWPC
   907  ! Final core image
5276 @ 37455:            LINE   906 "regression-compile-tmp/imp22g-77.imp"
5277 @ 37495:            DEF    PC p1=V_00d9 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
5278 @ 37509:            DEF    SWPC 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

   908  %bytearray FINAL(0:finalbound)
   909  ! Declaration records (to select relevant context)
5279 @ 37525:            LINE   908 "regression-compile-tmp/imp22g-77.imp"
5280 @ 37565:            DEF    FINAL p1=V_00db 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
5281 @ 37582:            PUSHI  #0x00000000
5282 @ 37587:            PUSH   FINALBOUND
5283 @ 37590:            DIM    0001 0001

   910  %integer CAD,OWNAD,JOKERAD,OWNBASE
5284 @ 37596:            LINE   910 "regression-compile-tmp/imp22g-77.imp"
5285 @ 37636:            DEF    CAD 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
5286 @ 37651:            DEF    OWNAD 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
5287 @ 37668:            DEF    JOKERAD 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
5288 @ 37687:            DEF    OWNBASE 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

   911  %integer FINAL0,ACCOUNTED
   912  !
5289 @ 37706:            LINE   911 "regression-compile-tmp/imp22g-77.imp"
5290 @ 37746:            DEF    FINAL0 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
5291 @ 37764:            DEF    ACCOUNTED 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

   913  %integer FIRSTENTRY, FIRSTPOS
   914  
   915  !Memo variables for current statement:-
5292 @ 37785:            LINE   913 "regression-compile-tmp/imp22g-77.imp"
5293 @ 37825:            DEF    FIRSTENTRY 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
5294 @ 37847:            DEF    FIRSTPOS 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

   916  %own%integer {ITEM,}TYPE=0,VALUE=0;      !current operand
5295 @ 37867:            LINE   916 "regression-compile-tmp/imp22g-77.imp"
5296 @ 37907:            PUSHI  #0x00000000
5297 @ 37912:            DEF    TYPE p1=V_00e4 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
5298 @ 37928:            INIT   1
5299 @ 37931:            PUSHI  #0x00000000
5300 @ 37936:            DEF    VALUE p1=V_00e5 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
5301 @ 37953:            INIT   1

   917  %record(identinfo)%name DITEM
5302 @ 37956:            LINE   917 "regression-compile-tmp/imp22g-77.imp"
5303 @ 37996:            DEF    DITEM p1=V_00e6 a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   918  %integer SPECCING
5304 @ 38013:            LINE   918 "regression-compile-tmp/imp22g-77.imp"
5305 @ 38053:            DEF    SPECCING 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

   919  %integer DUMP
   920  
   921  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   922  
   923  !!  Source file input and listing
5306 @ 38073:            LINE   919 "regression-compile-tmp/imp22g-77.imp"
5307 @ 38113:            DEF    DUMP 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

   924  %owninteger ATOM=0;       !current lexical atom
5308 @ 38129:            LINE   924 "regression-compile-tmp/imp22g-77.imp"
5309 @ 38169:            PUSHI  #0x00000000
5310 @ 38174:            DEF    ATOM p1=V_00e9 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
5311 @ 38190:            INIT   1

   925  %integer MATCHED;         !indic that atom has been matched
5312 @ 38193:            LINE   925 "regression-compile-tmp/imp22g-77.imp"
5313 @ 38233:            DEF    MATCHED 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

   926  %integer SYM;             !current input symbol
5314 @ 38252:            LINE   926 "regression-compile-tmp/imp22g-77.imp"
5315 @ 38292:            DEF    SYM 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

   927  %integer LINE;            !current line number
5316 @ 38307:            LINE   927 "regression-compile-tmp/imp22g-77.imp"
5317 @ 38347:            DEF    LINE 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

   928  %owninteger CODEFLAG=' '; !or ^
5318 @ 38363:            LINE   928 "regression-compile-tmp/imp22g-77.imp"
5319 @ 38403:            PUSHI  #0x00000020
5320 @ 38408:            DEF    CODEFLAG p1=V_00ed 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
5321 @ 38428:            INIT   1

   929  %integer LISTFLAG;        !' ' or '&' or '+' or '"'
   930  !   Pointers to source file:
5322 @ 38431:            LINE   929 "regression-compile-tmp/imp22g-77.imp"
5323 @ 38471:            DEF    LISTFLAG 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

   931  %integer LINESTART
5324 @ 38491:            LINE   931 "regression-compile-tmp/imp22g-77.imp"
5325 @ 38531:            DEF    LINESTART 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

   932  %integer FP;              !(file pointer) current position
5326 @ 38552:            LINE   932 "regression-compile-tmp/imp22g-77.imp"
5327 @ 38592:            DEF    FP 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

   933  %integer ATOMP;           !start of current atom
5328 @ 38606:            LINE   933 "regression-compile-tmp/imp22g-77.imp"
5329 @ 38646:            DEF    ATOMP 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

   934  %integer EXPP
   935  !
   936  !! Utility routines
   937  
5330 @ 38663:            LINE   934 "regression-compile-tmp/imp22g-77.imp"
5331 @ 38703:            DEF    EXPP 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

   938  %integerfn IS SHORT(%integer v)
5332 @ 38719:            LINE   938 "regression-compile-tmp/imp22g-77.imp"
5333 @ 38759:            DEF    ISSHORT (_lev0id0_ISSHORT) p1=V_00f3 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
5334 @ 38778:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
5335 @ 38779:                  DEF    V 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
5336 @ 38792:               FINISH ) {lev=2}

   939    %result = TRUE %if -32768 <= v <= 32767
5337 @ 38793:               LINE   939 "regression-compile-tmp/imp22g-77.imp"
5338 @ 38833:               PUSHI  #0x00008000
5339 @ 38838:               NEGATE
5340 @ 38839:               PUSH   V
5341 @ 38842:               JUMPIFD > L_0004
5342 @ 38846:               PUSHI  #0x00007fff
5343 @ 38851:               JUMPIF > L_0004
5344 @ 38855:               PUSHI  #0x00000001
5345 @ 38860:               RESULT
5346 @ 38861:               LOCATE L_0004

   940    %result = FALSE
5347 @ 38864:               LINE   940 "regression-compile-tmp/imp22g-77.imp"
5348 @ 38904:               PUSHI  #0x00000000
5349 @ 38909:               RESULT

   941  %end
   942  
5350 @ 38910:               LINE   941 "regression-compile-tmp/imp22g-77.imp"
5351 @ 38950:            END    _lev0id0_ISSHORT {lev=2 --> 1}

   943  %integerfn IS MITE(%integer v)
5352 @ 38951:            LINE   943 "regression-compile-tmp/imp22g-77.imp"
5353 @ 38991:            DEF    ISMITE (_lev0id0_ISMITE) p1=V_00f4 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
5354 @ 39009:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
5355 @ 39010:                  DEF    V p1=V_00f5 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
5356 @ 39023:               FINISH ) {lev=2}

   944    %result = TRUE %if -128 <= v <= 127
5357 @ 39024:               LINE   944 "regression-compile-tmp/imp22g-77.imp"
5358 @ 39064:               PUSHI  #0x00000080
5359 @ 39069:               NEGATE
5360 @ 39070:               PUSH   V
5361 @ 39073:               JUMPIFD > L_0004
5362 @ 39077:               PUSHI  #0x0000007f
5363 @ 39082:               JUMPIF > L_0004
5364 @ 39086:               PUSHI  #0x00000001
5365 @ 39091:               RESULT
5366 @ 39092:               LOCATE L_0004

   945    %result = FALSE
5367 @ 39095:               LINE   945 "regression-compile-tmp/imp22g-77.imp"
5368 @ 39135:               PUSHI  #0x00000000
5369 @ 39140:               RESULT

   946  %end
   947  
5370 @ 39141:               LINE   946 "regression-compile-tmp/imp22g-77.imp"
5371 @ 39181:            END    _lev0id0_ISMITE {lev=2 --> 1}

   948  %integer%fn MITE(%integer v)
5372 @ 39182:            LINE   948 "regression-compile-tmp/imp22g-77.imp"
5373 @ 39222:            DEF    MITE (_lev0id0_MITE) p1=V_00f5 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
5374 @ 39238:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
5375 @ 39239:                  DEF    V p1=V_00f6 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
5376 @ 39252:               FINISH ) {lev=2}

   949    v = v&255;  v = v-256 %if v&128 # 0
5377 @ 39253:               LINE   949 "regression-compile-tmp/imp22g-77.imp"
5378 @ 39293:               PUSH   V
5379 @ 39296:               PUSH   V
5380 @ 39299:               PUSHI  #0x000000ff
5381 @ 39304:               AND   
5382 @ 39305:               ASSVAL
5383 @ 39306:               LINE   949 "regression-compile-tmp/imp22g-77.imp"
5384 @ 39346:               PUSH   V
5385 @ 39349:               PUSHI  #0x00000080
5386 @ 39354:               AND   
5387 @ 39355:               PUSHI  #0x00000000
5388 @ 39360:               JUMPIF = L_0004
5389 @ 39364:               PUSH   V
5390 @ 39367:               PUSH   V
5391 @ 39370:               PUSHI  #0x00000100
5392 @ 39375:               SUB   
5393 @ 39376:               ASSVAL
5394 @ 39377:               LOCATE L_0004

   950    %result = v
5395 @ 39380:               LINE   950 "regression-compile-tmp/imp22g-77.imp"
5396 @ 39420:               PUSH   V
5397 @ 39423:               RESULT

   951  %end
   952  
5398 @ 39424:               LINE   951 "regression-compile-tmp/imp22g-77.imp"
5399 @ 39464:            END    _lev0id0_MITE {lev=2 --> 1}

   953  %record(identinfo)%map TYPECELL(%integer t)
5400 @ 39465:            LINE   953 "regression-compile-tmp/imp22g-77.imp"
5401 @ 39505:            DEF    TYPECELL (_lev0id0_TYPECELL) p1=V_00f6 a/tf=49 b/format=9b c/ostate=0  type=4 (record) form=9 (map) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
5402 @ 39525:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
5403 @ 39526:                  DEF    T p1=V_00f7 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
5404 @ 39539:               FINISH ) {lev=2}

   954    %result == dict(t)
5405 @ 39540:               LINE   954 "regression-compile-tmp/imp22g-77.imp"
5406 @ 39580:               PUSH   DICT
5407 @ 39583:               PUSH   T
5408 @ 39586:               ACCESS
5409 @ 39587:               MAP   

   955  %end
   956  
5410 @ 39588:               LINE   955 "regression-compile-tmp/imp22g-77.imp"
5411 @ 39628:            END    _lev0id0_TYPECELL {lev=2 --> 1}

   957  %integer%fn CATEGORY(%integer t)
5412 @ 39629:            LINE   957 "regression-compile-tmp/imp22g-77.imp"
5413 @ 39669:            DEF    CATEGORY (_lev0id0_CATEGORY) 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
5414 @ 39689:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
5415 @ 39690:                  DEF    T p1=V_00f8 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
5416 @ 39703:               FINISH ) {lev=2}

   958    %result = dict(t)_flags&(packed+cat)
5417 @ 39704:               LINE   958 "regression-compile-tmp/imp22g-77.imp"
5418 @ 39744:               PUSH   DICT
5419 @ 39747:               PUSH   T
5420 @ 39750:               ACCESS
5421 @ 39751:               SELECT 1
5422 @ 39754:               PUSHI  #0x00000400
5423 @ 39759:               PUSHI  #0x0000000f
5424 @ 39764:               ADD   
5425 @ 39765:               AND   
5426 @ 39766:               RESULT

   959  %end
   960  
5427 @ 39767:               LINE   959 "regression-compile-tmp/imp22g-77.imp"
5428 @ 39807:            END    _lev0id0_CATEGORY {lev=2 --> 1}

   961  %integer%fn LITVAL(%integer v)
5429 @ 39808:            LINE   961 "regression-compile-tmp/imp22g-77.imp"
5430 @ 39848:            DEF    LITVAL (_lev0id0_LITVAL) p1=V_00f8 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
5431 @ 39866:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
5432 @ 39867:                  DEF    V 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
5433 @ 39880:               FINISH ) {lev=2}

   962    %result = v %if v = 0
5434 @ 39881:               LINE   962 "regression-compile-tmp/imp22g-77.imp"
5435 @ 39921:               PUSH   V
5436 @ 39924:               PUSHI  #0x00000000
5437 @ 39929:               JUMPIF # L_0004
5438 @ 39933:               PUSH   V
5439 @ 39936:               RESULT
5440 @ 39937:               LOCATE L_0004

   963    %if v > litmax %start;  !not stored literal
5441 @ 39940:               LINE   963 "regression-compile-tmp/imp22g-77.imp"
5442 @ 39980:               PUSH   V
5443 @ 39983:               PUSHI  #0xfffff800
5444 @ 39988:               JUMPIF <= L_0004

   964      %result = (-v)>>1 %if v&1 = 0
5445 @ 39992:               LINE   964 "regression-compile-tmp/imp22g-77.imp"
5446 @ 40032:               PUSH   V
5447 @ 40035:               PUSHI  #0x00000001
5448 @ 40040:               AND   
5449 @ 40041:               PUSHI  #0x00000000
5450 @ 40046:               JUMPIF # L_0007
5451 @ 40050:               PUSH   V
5452 @ 40053:               NEGATE
5453 @ 40054:               PUSHI  #0x00000001
5454 @ 40059:               RSH   
5455 @ 40060:               RESULT
5456 @ 40061:               LOCATE L_0007

   965      %result = \((-v)>>1)
5457 @ 40064:               LINE   965 "regression-compile-tmp/imp22g-77.imp"
5458 @ 40104:               PUSH   V
5459 @ 40107:               NEGATE
5460 @ 40108:               PUSHI  #0x00000001
5461 @ 40113:               RSH   
5462 @ 40114:               NOT   
5463 @ 40115:               RESULT

   966    %finish
5464 @ 40116:               LINE   966 "regression-compile-tmp/imp22g-77.imp"
5465 @ 40156:               LOCATE L_0004

   967    %result = litstore(v)
5466 @ 40159:               LINE   967 "regression-compile-tmp/imp22g-77.imp"
5467 @ 40199:               PUSH   LITSTORE
5468 @ 40202:               PUSH   V
5469 @ 40205:               ACCESS
5470 @ 40206:               RESULT

   968  %end
   969  !
   970  !!!!!!!!!!!!!! Listing, diagnostic and report routines  !!!!!!!!!!!!!!
   971  !
5471 @ 40207:               LINE   968 "regression-compile-tmp/imp22g-77.imp"
5472 @ 40247:            END    _lev0id0_LITVAL {lev=2 --> 1}

   972  %integer FAULTS, OTHERS, FAULTNUM, FAULTP
   973  !
   974  !!  Program statistics
5473 @ 40248:            LINE   972 "regression-compile-tmp/imp22g-77.imp"
5474 @ 40288:            DEF    FAULTS 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
5475 @ 40306:            DEF    OTHERS 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
5476 @ 40324:            DEF    FAULTNUM 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
5477 @ 40344:            DEF    FAULTP 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

   975  %integer STATEMENTS;           !statement count
5478 @ 40362:            LINE   975 "regression-compile-tmp/imp22g-77.imp"
5479 @ 40402:            DEF    STATEMENTS 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

   976  %integer COMMENTS;             !comment count
5480 @ 40424:            LINE   976 "regression-compile-tmp/imp22g-77.imp"
5481 @ 40464:            DEF    COMMENTS p1=V_00fe a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   977  %integer ATOMS;                !atom count
5482 @ 40484:            LINE   977 "regression-compile-tmp/imp22g-77.imp"
5483 @ 40524:            DEF    ATOMS p1=V_00ff a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   978  %integer IDENTATOMS;           !identifier count
5484 @ 40541:            LINE   978 "regression-compile-tmp/imp22g-77.imp"
5485 @ 40581:            DEF    IDENTATOMS p1=V_0100 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   979  %integer LITATOMS;             !numeric atom count
5486 @ 40603:            LINE   979 "regression-compile-tmp/imp22g-77.imp"
5487 @ 40643:            DEF    LITATOMS p1=V_0101 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   980  %integer ZAPS;                 !enforced cleardown of lits/exps
5488 @ 40663:            LINE   980 "regression-compile-tmp/imp22g-77.imp"
5489 @ 40703:            DEF    ZAPS 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

   981  %integer STEPS;                !stepping stones inserted
   982  !%integer MAXIDENTS, MAXCHARS, MAXLITS
5490 @ 40719:            LINE   981 "regression-compile-tmp/imp22g-77.imp"
5491 @ 40759:            DEF    STEPS 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

   983  %integer JUMPS,SHORTS
   984  !
5492 @ 40776:            LINE   983 "regression-compile-tmp/imp22g-77.imp"
5493 @ 40816:            DEF    JUMPS 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
5494 @ 40833:            DEF    SHORTS 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

   985  %string(255) REP
   986  !
5495 @ 40851:            LINE   985 "regression-compile-tmp/imp22g-77.imp"
5496 @ 40891:            DEF    REP p1=V_0106 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

   987  %routine PRINT LINE
5497 @ 40906:            LINE   987 "regression-compile-tmp/imp22g-77.imp"
5498 @ 40946:            DEF    PRINTLINE (_lev0id0_PRINTLINE) 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
5499 @ 40967:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
5500 @ 40968:               FINISH ) {lev=2}

   988    print string(rep);  print symbol(nl)
5501 @ 40969:               LINE   988 "regression-compile-tmp/imp22g-77.imp"
5502 @ 41009:               PUSH   PRINTSTRING
5503 @ 41012:               PUSH   REP
5504 @ 41015:               ASSPAR
5505 @ 41016:               CALL  
5506 @ 41017:               LINE   988 "regression-compile-tmp/imp22g-77.imp"
5507 @ 41057:               PUSH   PRINTSYMBOL
5508 @ 41060:               PUSHI  #0x0000000a
5509 @ 41065:               ASSPAR
5510 @ 41066:               CALL  

   989    rep = ""
5511 @ 41067:               LINE   989 "regression-compile-tmp/imp22g-77.imp"
5512 @ 41107:               PUSH   REP
5513 @ 41110:               PUSHS  ""
5514 @ 41112:               ASSVAL

   990  %end
   991  !
5515 @ 41113:               LINE   990 "regression-compile-tmp/imp22g-77.imp"
5516 @ 41153:            END    _lev0id0_PRINTLINE {lev=2 --> 1}

   992  %routine PUT SYM(%integer k)
5517 @ 41154:            LINE   992 "regression-compile-tmp/imp22g-77.imp"
5518 @ 41194:            DEF    PUTSYM (_lev0id0_PUTSYM) 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
5519 @ 41212:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
5520 @ 41213:                  DEF    K 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
5521 @ 41226:               FINISH ) {lev=2}

   993    rep = rep.tostring(k)
5522 @ 41227:               LINE   993 "regression-compile-tmp/imp22g-77.imp"
5523 @ 41267:               PUSH   REP
5524 @ 41270:               PUSH   REP
5525 @ 41273:               PUSH   TOSTRING
5526 @ 41276:               PUSH   K
5527 @ 41279:               ASSPAR
5528 @ 41280:               CALL  
5529 @ 41281:               CONCAT
5530 @ 41282:               ASSVAL

   994  %end
   995  !
5531 @ 41283:               LINE   994 "regression-compile-tmp/imp22g-77.imp"
5532 @ 41323:            END    _lev0id0_PUTSYM {lev=2 --> 1}

   996  %routine PUT STRING(%string(255) s)
5533 @ 41324:            LINE   996 "regression-compile-tmp/imp22g-77.imp"
5534 @ 41364:            DEF    PUTSTRING (_lev0id0_PUTSTRING) 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
5535 @ 41385:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
5536 @ 41386:                  DEF    S p1=V_010a 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
5537 @ 41399:               FINISH ) {lev=2}

   997    rep = rep.s
5538 @ 41400:               LINE   997 "regression-compile-tmp/imp22g-77.imp"
5539 @ 41440:               PUSH   REP
5540 @ 41443:               PUSH   REP
5541 @ 41446:               PUSH   S
5542 @ 41449:               CONCAT
5543 @ 41450:               ASSVAL

   998  %end
   999  !
  1000  !
5544 @ 41451:               LINE   998 "regression-compile-tmp/imp22g-77.imp"
5545 @ 41491:            END    _lev0id0_PUTSTRING {lev=2 --> 1}

  1001  %routine PUT NUM(%integer val)
5546 @ 41492:            LINE   1001 "regression-compile-tmp/imp22g-77.imp"
5547 @ 41532:            DEF    PUTNUM (_lev0id0_PUTNUM) 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
5548 @ 41550:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
5549 @ 41551:                  DEF    VAL 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
5550 @ 41566:               FINISH ) {lev=2}

  1002  %routine PD(%integer v)
5551 @ 41567:               LINE   1002 "regression-compile-tmp/imp22g-77.imp"
5552 @ 41607:               DEF    PD (_lev0id0_PUTNUM_PD) 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
5553 @ 41621:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
5554 @ 41622:                     DEF    V 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
5555 @ 41635:                  FINISH ) {lev=3}

  1003    pd(v//10) %and v = v-v//10*10 %if v <= -10
5556 @ 41636:                  LINE   1003 "regression-compile-tmp/imp22g-77.imp"
5557 @ 41676:                  PUSH   V
5558 @ 41679:                  PUSHI  #0x0000000a
5559 @ 41684:                  NEGATE
5560 @ 41685:                  JUMPIF > L_0004
5561 @ 41689:                  PUSH   PD
5562 @ 41692:                  PUSH   V
5563 @ 41695:                  PUSHI  #0x0000000a
5564 @ 41700:                  QUOT  
5565 @ 41701:                  ASSPAR
5566 @ 41702:                  CALL  
5567 @ 41703:                  PUSH   V
5568 @ 41706:                  PUSH   V
5569 @ 41709:                  PUSH   V
5570 @ 41712:                  PUSHI  #0x0000000a
5571 @ 41717:                  QUOT  
5572 @ 41718:                  PUSHI  #0x0000000a
5573 @ 41723:                  MUL   
5574 @ 41724:                  SUB   
5575 @ 41725:                  ASSVAL
5576 @ 41726:                  LOCATE L_0004

  1004    put sym('0'-v)
5577 @ 41729:                  LINE   1004 "regression-compile-tmp/imp22g-77.imp"
5578 @ 41769:                  PUSH   PUTSYM
5579 @ 41772:                  PUSHI  #0x00000030
5580 @ 41777:                  PUSH   V
5581 @ 41780:                  SUB   
5582 @ 41781:                  ASSPAR
5583 @ 41782:                  CALL  

  1005  %end
5584 @ 41783:                  LINE   1005 "regression-compile-tmp/imp22g-77.imp"
5585 @ 41823:               END    _lev0id0_PUTNUM_PD {lev=3 --> 2}

  1006    %if val < 0 %then put sym('-') %and pd(val) %c
  1007    %else pd(-val)
5586 @ 41824:               LINE   1006 "regression-compile-tmp/imp22g-77.imp"
5587 @ 41864:               PUSH   VAL
5588 @ 41867:               PUSHI  #0x00000000
5589 @ 41872:               JUMPIF >= L_0004
5590 @ 41876:               PUSH   PUTSYM
5591 @ 41879:               PUSHI  #0x0000002d
5592 @ 41884:               ASSPAR
5593 @ 41885:               CALL  
5594 @ 41886:               PUSH   PD
5595 @ 41889:               PUSH   VAL
5596 @ 41892:               ASSPAR
5597 @ 41893:               CALL  
5598 @ 41894:               GOTO   L_0003
5599 @ 41897:               LOCATE L_0004
5600 @ 41900:               PUSH   PD
5601 @ 41903:               PUSH   VAL
5602 @ 41906:               NEGATE
5603 @ 41907:               ASSPAR
5604 @ 41908:               CALL  
5605 @ 41909:               LOCATE L_0003

  1008  %end
  1009  !
5606 @ 41912:               LINE   1008 "regression-compile-tmp/imp22g-77.imp"
5607 @ 41952:            END    _lev0id0_PUTNUM {lev=2 --> 1}

  1010  %routine PUT IDENT(%integer p,mode)
5608 @ 41953:            LINE   1010 "regression-compile-tmp/imp22g-77.imp"
5609 @ 41993:            DEF    PUTIDENT (_lev0id0_PUTIDENT) 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
5610 @ 42013:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
5611 @ 42014:                  DEF    P 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
5612 @ 42027:                  DEF    MODE 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
5613 @ 42043:               FINISH ) {lev=2}

  1011  %record(identinfo)%name dp
5614 @ 42044:               LINE   1011 "regression-compile-tmp/imp22g-77.imp"
5615 @ 42084:               DEF    DP p1=V_010e a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  1012    %cycle
5616 @ 42098:               LINE   1012 "regression-compile-tmp/imp22g-77.imp"
5617 @ 42138:               LOCATE L_0003

  1013      print line %if length(rep) > 50
5618 @ 42141:               LINE   1013 "regression-compile-tmp/imp22g-77.imp"
5619 @ 42181:               PUSH   LENGTH
5620 @ 42184:               PUSH   REP
5621 @ 42187:               ASSPAR
5622 @ 42188:               CALL  
5623 @ 42189:               PUSHI  #0x00000032
5624 @ 42194:               JUMPIF <= L_0007
5625 @ 42198:               PUSH   PRINTLINE
5626 @ 42201:               CALL  
5627 @ 42202:               LOCATE L_0007

  1014      spaces(6) %if rep = ""
5628 @ 42205:               LINE   1014 "regression-compile-tmp/imp22g-77.imp"
5629 @ 42245:               PUSH   REP
5630 @ 42248:               PUSHS  ""
5631 @ 42250:               JUMPIF # L_0007
5632 @ 42254:               PUSH   SPACES
5633 @ 42257:               PUSHI  #0x00000006
5634 @ 42262:               ASSPAR
5635 @ 42263:               CALL  
5636 @ 42264:               LOCATE L_0007

  1015      dp == dict(p)
5637 @ 42267:               LINE   1015 "regression-compile-tmp/imp22g-77.imp"
5638 @ 42307:               PUSH   DP
5639 @ 42310:               PUSH   DICT
5640 @ 42313:               PUSH   P
5641 @ 42316:               ACCESS
5642 @ 42317:               ASSREF

  1016      put sym(' ') %and put sym('"') %if mode # 0
5643 @ 42318:               LINE   1016 "regression-compile-tmp/imp22g-77.imp"
5644 @ 42358:               PUSH   MODE
5645 @ 42361:               PUSHI  #0x00000000
5646 @ 42366:               JUMPIF = L_0007
5647 @ 42370:               PUSH   PUTSYM
5648 @ 42373:               PUSHI  #0x00000020
5649 @ 42378:               ASSPAR
5650 @ 42379:               CALL  
5651 @ 42380:               PUSH   PUTSYM
5652 @ 42383:               PUSHI  #0x00000022
5653 @ 42388:               ASSPAR
5654 @ 42389:               CALL  
5655 @ 42390:               LOCATE L_0007

  1017      %if dp_text > 0 %start
5656 @ 42393:               LINE   1017 "regression-compile-tmp/imp22g-77.imp"
5657 @ 42433:               PUSH   DP
5658 @ 42436:               SELECT 11
5659 @ 42439:               PUSHI  #0x00000000
5660 @ 42444:               JUMPIF <= L_0007

  1018          put string(string(char0+dp_text))
5661 @ 42448:               LINE   1018 "regression-compile-tmp/imp22g-77.imp"
5662 @ 42488:               PUSH   PUTSTRING
5663 @ 42491:               PUSH   STRING
5664 @ 42494:               PUSH   CHAR0
5665 @ 42497:               PUSH   DP
5666 @ 42500:               SELECT 11
5667 @ 42503:               ADD   
5668 @ 42504:               ASSPAR
5669 @ 42505:               CALL  
5670 @ 42506:               ASSPAR
5671 @ 42507:               CALL  

  1019      %finish %else %if dp_text < 0 %start
5672 @ 42508:               LINE   1019 "regression-compile-tmp/imp22g-77.imp"
5673 @ 42548:               GOTO   L_0006
5674 @ 42551:               LOCATE L_0007
5675 @ 42554:               PUSH   DP
5676 @ 42557:               SELECT 11
5677 @ 42560:               PUSHI  #0x00000000
5678 @ 42565:               JUMPIF >= L_0007

  1020          put num(\dp_text)
5679 @ 42569:               LINE   1020 "regression-compile-tmp/imp22g-77.imp"
5680 @ 42609:               PUSH   PUTNUM
5681 @ 42612:               PUSH   DP
5682 @ 42615:               SELECT 11
5683 @ 42618:               NOT   
5684 @ 42619:               ASSPAR
5685 @ 42620:               CALL  

  1021      %else
5686 @ 42621:               LINE   1021 "regression-compile-tmp/imp22g-77.imp"
5687 @ 42661:               GOTO   L_0006
5688 @ 42664:               LOCATE L_0007

  1022          put num(p)
5689 @ 42667:               LINE   1022 "regression-compile-tmp/imp22g-77.imp"
5690 @ 42707:               PUSH   PUTNUM
5691 @ 42710:               PUSH   P
5692 @ 42713:               ASSPAR
5693 @ 42714:               CALL  

  1023      %finish
5694 @ 42715:               LINE   1023 "regression-compile-tmp/imp22g-77.imp"
5695 @ 42755:               LOCATE L_0006

  1024      put sym('"') %if mode # 0
5696 @ 42758:               LINE   1024 "regression-compile-tmp/imp22g-77.imp"
5697 @ 42798:               PUSH   MODE
5698 @ 42801:               PUSHI  #0x00000000
5699 @ 42806:               JUMPIF = L_0007
5700 @ 42810:               PUSH   PUTSYM
5701 @ 42813:               PUSHI  #0x00000022
5702 @ 42818:               ASSPAR
5703 @ 42819:               CALL  
5704 @ 42820:               LOCATE L_0007

  1025      %return %if mode <= 0
5705 @ 42823:               LINE   1025 "regression-compile-tmp/imp22g-77.imp"
5706 @ 42863:               PUSH   MODE
5707 @ 42866:               PUSHI  #0x00000000
5708 @ 42871:               JUMPIF > L_0007
5709 @ 42875:               RETURN
5710 @ 42876:               LOCATE L_0007

  1026      p = dp_hlink
5711 @ 42879:               LINE   1026 "regression-compile-tmp/imp22g-77.imp"
5712 @ 42919:               PUSH   P
5713 @ 42922:               PUSH   DP
5714 @ 42925:               SELECT 12
5715 @ 42928:               ASSVAL

  1027    %repeat %until p = 0
5716 @ 42929:               LINE   1027 "regression-compile-tmp/imp22g-77.imp"
5717 @ 42969:               PUSH   P
5718 @ 42972:               PUSHI  #0x00000000
5719 @ 42977:               JUMPIF = L_0004
5720 @ 42981:               REPEAT L_0003
5721 @ 42984:               LOCATE L_0004

  1028  %end
  1029  !
5722 @ 42987:               LINE   1028 "regression-compile-tmp/imp22g-77.imp"
5723 @ 43027:            END    _lev0id0_PUTIDENT {lev=2 --> 1}

  1030  {?}%routine SPACES(%integer n)
5724 @ 43028:            LINE   1030 "regression-compile-tmp/imp22g-77.imp"
5725 @ 43068:            DEF    SPACES (_lev0id0_SPACES) 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
5726 @ 43086:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
5727 @ 43087:                  DEF    N 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
5728 @ 43100:               FINISH ) {lev=2}

  1031  {?}  %while n > 0 %cycle
5729 @ 43101:               LINE   1031 "regression-compile-tmp/imp22g-77.imp"
5730 @ 43141:               LOCATE L_0003
5731 @ 43144:               PUSH   N
5732 @ 43147:               PUSHI  #0x00000000
5733 @ 43152:               JUMPIF <= L_0004

  1032  {?}    put sym(' ');  n = n-1
5734 @ 43156:               LINE   1032 "regression-compile-tmp/imp22g-77.imp"
5735 @ 43196:               PUSH   PUTSYM
5736 @ 43199:               PUSHI  #0x00000020
5737 @ 43204:               ASSPAR
5738 @ 43205:               CALL  
5739 @ 43206:               LINE   1032 "regression-compile-tmp/imp22g-77.imp"
5740 @ 43246:               PUSH   N
5741 @ 43249:               PUSH   N
5742 @ 43252:               PUSHI  #0x00000001
5743 @ 43257:               SUB   
5744 @ 43258:               ASSVAL

  1033  {?}  %repeat
5745 @ 43259:               LINE   1033 "regression-compile-tmp/imp22g-77.imp"
5746 @ 43299:               REPEAT L_0003
5747 @ 43302:               LOCATE L_0004

  1034  {?}%end
  1035  {?}!
5748 @ 43305:               LINE   1034 "regression-compile-tmp/imp22g-77.imp"
5749 @ 43345:            END    _lev0id0_SPACES {lev=2 --> 1}

  1036  {?}%routine PUT SPNUM(%integer val)
5750 @ 43346:            LINE   1036 "regression-compile-tmp/imp22g-77.imp"
5751 @ 43386:            DEF    PUTSPNUM (_lev0id0_PUTSPNUM) 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
5752 @ 43406:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
5753 @ 43407:                  DEF    VAL 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
5754 @ 43422:               FINISH ) {lev=2}

  1037  {?}  put sym(' ') %if val >= 0
5755 @ 43423:               LINE   1037 "regression-compile-tmp/imp22g-77.imp"
5756 @ 43463:               PUSH   VAL
5757 @ 43466:               PUSHI  #0x00000000
5758 @ 43471:               JUMPIF < L_0004
5759 @ 43475:               PUSH   PUTSYM
5760 @ 43478:               PUSHI  #0x00000020
5761 @ 43483:               ASSPAR
5762 @ 43484:               CALL  
5763 @ 43485:               LOCATE L_0004

  1038  {?}  put num(val)
5764 @ 43488:               LINE   1038 "regression-compile-tmp/imp22g-77.imp"
5765 @ 43528:               PUSH   PUTNUM
5766 @ 43531:               PUSH   VAL
5767 @ 43534:               ASSPAR
5768 @ 43535:               CALL  

  1039  {?}%end
  1040  {?}
5769 @ 43536:               LINE   1039 "regression-compile-tmp/imp22g-77.imp"
5770 @ 43576:            END    _lev0id0_PUTSPNUM {lev=2 --> 1}

  1041  {?}%constbytearray hexsym(0:15) =
  1042  {?}'0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F'
  1043  {?}
5771 @ 43577:            LINE   1041 "regression-compile-tmp/imp22g-77.imp"
5772 @ 43617:            PUSHI  #0x00000000
5773 @ 43622:            PUSHI  #0x0000000f
5774 @ 43627:            BOUNDS
5775 @ 43628:            DEF    HEXSYM p1=V_010e 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
5776 @ 43646:            PUSHI  #0x00000030
5777 @ 43651:            INIT   1
5778 @ 43654:            PUSHI  #0x00000031
5779 @ 43659:            INIT   1
5780 @ 43662:            PUSHI  #0x00000032
5781 @ 43667:            INIT   1
5782 @ 43670:            PUSHI  #0x00000033
5783 @ 43675:            INIT   1
5784 @ 43678:            PUSHI  #0x00000034
5785 @ 43683:            INIT   1
5786 @ 43686:            PUSHI  #0x00000035
5787 @ 43691:            INIT   1
5788 @ 43694:            PUSHI  #0x00000036
5789 @ 43699:            INIT   1
5790 @ 43702:            PUSHI  #0x00000037
5791 @ 43707:            INIT   1
5792 @ 43710:            PUSHI  #0x00000038
5793 @ 43715:            INIT   1
5794 @ 43718:            PUSHI  #0x00000039
5795 @ 43723:            INIT   1
5796 @ 43726:            PUSHI  #0x00000041
5797 @ 43731:            INIT   1
5798 @ 43734:            PUSHI  #0x00000042
5799 @ 43739:            INIT   1
5800 @ 43742:            PUSHI  #0x00000043
5801 @ 43747:            INIT   1
5802 @ 43750:            PUSHI  #0x00000044
5803 @ 43755:            INIT   1
5804 @ 43758:            PUSHI  #0x00000045
5805 @ 43763:            INIT   1
5806 @ 43766:            PUSHI  #0x00000046
5807 @ 43771:            INIT   1

  1044  {?}%routine PUT HEX(%integer val)
5808 @ 43774:            LINE   1044 "regression-compile-tmp/imp22g-77.imp"
5809 @ 43814:            DEF    PUTHEX (_lev0id0_PUTHEX) p1=V_010f 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
5810 @ 43832:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
5811 @ 43833:                  DEF    VAL 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
5812 @ 43848:               FINISH ) {lev=2}

  1045  {?}%integer i
5813 @ 43849:               LINE   1045 "regression-compile-tmp/imp22g-77.imp"
5814 @ 43889:               DEF    I 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

  1046  {?}  put sym(hexsym(val>>i&15)) %for i = 12,-4,0
5815 @ 43902:               LINE   1046 "regression-compile-tmp/imp22g-77.imp"
5816 @ 43942:               PUSH   I
5817 @ 43945:               PUSHI  #0x00000004
5818 @ 43950:               NEGATE
5819 @ 43951:               PUSHI  #0x00000000
5820 @ 43956:               PUSHI  #0x0000000c
5821 @ 43961:               FOR    L_0003
5822 @ 43964:               PUSH   PUTSYM
5823 @ 43967:               PUSH   HEXSYM
5824 @ 43970:               PUSH   VAL
5825 @ 43973:               PUSH   I
5826 @ 43976:               RSH   
5827 @ 43977:               PUSHI  #0x0000000f
5828 @ 43982:               AND   
5829 @ 43983:               ACCESS
5830 @ 43984:               ASSPAR
5831 @ 43985:               CALL  
5832 @ 43986:               REPEAT L_0003
5833 @ 43989:               LOCATE L_0004

  1047  {?}%end
  1048  {?}!
5834 @ 43992:               LINE   1047 "regression-compile-tmp/imp22g-77.imp"
5835 @ 44032:            END    _lev0id0_PUTHEX {lev=2 --> 1}

  1049  {?}%routine PUT OPERAND(%integer v)
5836 @ 44033:            LINE   1049 "regression-compile-tmp/imp22g-77.imp"
5837 @ 44073:            DEF    PUTOPERAND (_lev0id0_PUTOPERAND) p1=V_0110 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
5838 @ 44095:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
5839 @ 44096:                  DEF    V 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
5840 @ 44109:               FINISH ) {lev=2}

  1050  {?}%integer i
5841 @ 44110:               LINE   1050 "regression-compile-tmp/imp22g-77.imp"
5842 @ 44150:               DEF    I 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

  1051  {?}%routine INTERPRET(%integer mode)
5843 @ 44163:               LINE   1051 "regression-compile-tmp/imp22g-77.imp"
5844 @ 44203:               DEF    INTERPRET (_lev0id0_PUTOPERAND_INTERPRET) 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
5845 @ 44224:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
5846 @ 44225:                     DEF    MODE 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
5847 @ 44241:                  FINISH ) {lev=3}

  1052  {?}%switch s(0:7)
5848 @ 44242:                  LINE   1052 "regression-compile-tmp/imp22g-77.imp"
5849 @ 44282:                  PUSHI  #0x00000000
5850 @ 44287:                  PUSHI  #0x00000007
5851 @ 44292:                  BOUNDS
5852 @ 44293:                  DEF    S p1=V_0115 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

  1053  {?}  ->s(mode>>3&7)
5853 @ 44306:                  LINE   1053 "regression-compile-tmp/imp22g-77.imp"
5854 @ 44346:                  PUSH   MODE
5855 @ 44349:                  PUSHI  #0x00000003
5856 @ 44354:                  RSH   
5857 @ 44355:                  PUSHI  #0x00000007
5858 @ 44360:                  AND   
5859 @ 44361:                  SJUMP  277

  1054  {?}s(0):                 !DREG
5860 @ 44364:                  LINE   1054 "regression-compile-tmp/imp22g-77.imp"
5861 @ 44404:                  PUSHI  #0x00000000
5862 @ 44409:                  SLABEL 277

  1055  {?}  put sym('D')
5863 @ 44412:                  LINE   1055 "regression-compile-tmp/imp22g-77.imp"
5864 @ 44452:                  PUSH   PUTSYM
5865 @ 44455:                  PUSHI  #0x00000044
5866 @ 44460:                  ASSPAR
5867 @ 44461:                  CALL  

  1056  {?}putrno:
5868 @ 44462:                  LINE   1056 "regression-compile-tmp/imp22g-77.imp"
5869 @ 44502:                  LABEL  L_0116

  1057  {?}  put sym(mode&7+'0')
5870 @ 44505:                  LINE   1057 "regression-compile-tmp/imp22g-77.imp"
5871 @ 44545:                  PUSH   PUTSYM
5872 @ 44548:                  PUSH   MODE
5873 @ 44551:                  PUSHI  #0x00000007
5874 @ 44556:                  AND   
5875 @ 44557:                  PUSHI  #0x00000030
5876 @ 44562:                  ADD   
5877 @ 44563:                  ASSPAR
5878 @ 44564:                  CALL  

  1058  {?}  %return
5879 @ 44565:                  LINE   1058 "regression-compile-tmp/imp22g-77.imp"
5880 @ 44605:                  RETURN

  1059  {?}s(1):                 !AREG
5881 @ 44606:                  LINE   1059 "regression-compile-tmp/imp22g-77.imp"
5882 @ 44646:                  PUSHI  #0x00000001
5883 @ 44651:                  SLABEL 277

  1060  {?}  %if mode >= framemode-dispmode %then put sym('F') %else put sym('A')
5884 @ 44654:                  LINE   1060 "regression-compile-tmp/imp22g-77.imp"
5885 @ 44694:                  PUSH   MODE
5886 @ 44697:                  PUSHI  #0x000000a8
5887 @ 44702:                  PUSHI  #0x00000028
5888 @ 44707:                  SUB   
5889 @ 44708:                  JUMPIF < L_0004
5890 @ 44712:                  PUSH   PUTSYM
5891 @ 44715:                  PUSHI  #0x00000046
5892 @ 44720:                  ASSPAR
5893 @ 44721:                  CALL  
5894 @ 44722:                  GOTO   L_0003
5895 @ 44725:                  LOCATE L_0004
5896 @ 44728:                  PUSH   PUTSYM
5897 @ 44731:                  PUSHI  #0x00000041
5898 @ 44736:                  ASSPAR
5899 @ 44737:                  CALL  
5900 @ 44738:                  LOCATE L_0003

  1061  {?}  -> putrno
5901 @ 44741:                  LINE   1061 "regression-compile-tmp/imp22g-77.imp"
5902 @ 44781:                  JUMP   L_0116

  1062  {?}s(4):                 !PRE
5903 @ 44784:                  LINE   1062 "regression-compile-tmp/imp22g-77.imp"
5904 @ 44824:                  PUSHI  #0x00000004
5905 @ 44829:                  SLABEL 277

  1063  {?}  put sym('-')
5906 @ 44832:                  LINE   1063 "regression-compile-tmp/imp22g-77.imp"
5907 @ 44872:                  PUSH   PUTSYM
5908 @ 44875:                  PUSHI  #0x0000002d
5909 @ 44880:                  ASSPAR
5910 @ 44881:                  CALL  

  1064  {?}s(2):                 !INDIRECT
5911 @ 44882:                  LINE   1064 "regression-compile-tmp/imp22g-77.imp"
5912 @ 44922:                  PUSHI  #0x00000002
5913 @ 44927:                  SLABEL 277

  1065  {?}ind:
5914 @ 44930:                  LINE   1065 "regression-compile-tmp/imp22g-77.imp"
5915 @ 44970:                  LABEL  L_0117

  1066  {?}  put sym('(')
5916 @ 44973:                  LINE   1066 "regression-compile-tmp/imp22g-77.imp"
5917 @ 45013:                  PUSH   PUTSYM
5918 @ 45016:                  PUSHI  #0x00000028
5919 @ 45021:                  ASSPAR
5920 @ 45022:                  CALL  

  1067  {?}  interpret(mode&2_11000111+aregmode)
5921 @ 45023:                  LINE   1067 "regression-compile-tmp/imp22g-77.imp"
5922 @ 45063:                  PUSH   INTERPRET
5923 @ 45066:                  PUSH   MODE
5924 @ 45069:                  PUSHI  #0x000000c7
5925 @ 45074:                  AND   
5926 @ 45075:                  PUSHI  #0x00000008
5927 @ 45080:                  ADD   
5928 @ 45081:                  ASSPAR
5929 @ 45082:                  CALL  

  1068  {?}  put sym(')')
5930 @ 45083:                  LINE   1068 "regression-compile-tmp/imp22g-77.imp"
5931 @ 45123:                  PUSH   PUTSYM
5932 @ 45126:                  PUSHI  #0x00000029
5933 @ 45131:                  ASSPAR
5934 @ 45132:                  CALL  

  1069  {?}  %return
5935 @ 45133:                  LINE   1069 "regression-compile-tmp/imp22g-77.imp"
5936 @ 45173:                  RETURN

  1070  {?}s(3):                 !POST
5937 @ 45174:                  LINE   1070 "regression-compile-tmp/imp22g-77.imp"
5938 @ 45214:                  PUSHI  #0x00000003
5939 @ 45219:                  SLABEL 277

  1071  {?}  interpret(mode-8);  !ind
5940 @ 45222:                  LINE   1071 "regression-compile-tmp/imp22g-77.imp"
5941 @ 45262:                  PUSH   INTERPRET
5942 @ 45265:                  PUSH   MODE
5943 @ 45268:                  PUSHI  #0x00000008
5944 @ 45273:                  SUB   
5945 @ 45274:                  ASSPAR
5946 @ 45275:                  CALL  

  1072  {?}  put sym('+')
5947 @ 45276:                  LINE   1072 "regression-compile-tmp/imp22g-77.imp"
5948 @ 45316:                  PUSH   PUTSYM
5949 @ 45319:                  PUSHI  #0x0000002b
5950 @ 45324:                  ASSPAR
5951 @ 45325:                  CALL  

  1073  {?}  %return
5952 @ 45326:                  LINE   1073 "regression-compile-tmp/imp22g-77.imp"
5953 @ 45366:                  RETURN

  1074  {?}s(5):                 !DISP
5954 @ 45367:                  LINE   1074 "regression-compile-tmp/imp22g-77.imp"
5955 @ 45407:                  PUSHI  #0x00000005
5956 @ 45412:                  SLABEL 277

  1075  {?}  put num(i)
5957 @ 45415:                  LINE   1075 "regression-compile-tmp/imp22g-77.imp"
5958 @ 45455:                  PUSH   PUTNUM
5959 @ 45458:                  PUSH   I
5960 @ 45461:                  ASSPAR
5961 @ 45462:                  CALL  

  1076  {?}  ->ind
5962 @ 45463:                  LINE   1076 "regression-compile-tmp/imp22g-77.imp"
5963 @ 45503:                  JUMP   L_0117

  1077  {?}s(6):                 !INDEX
5964 @ 45506:                  LINE   1077 "regression-compile-tmp/imp22g-77.imp"
5965 @ 45546:                  PUSHI  #0x00000006
5966 @ 45551:                  SLABEL 277

  1078  {?}  put num(mite(i))
5967 @ 45554:                  LINE   1078 "regression-compile-tmp/imp22g-77.imp"
5968 @ 45594:                  PUSH   PUTNUM
5969 @ 45597:                  PUSH   MITE
5970 @ 45600:                  PUSH   I
5971 @ 45603:                  ASSPAR
5972 @ 45604:                  CALL  
5973 @ 45605:                  ASSPAR
5974 @ 45606:                  CALL  

  1079  {?}  put sym('(')
5975 @ 45607:                  LINE   1079 "regression-compile-tmp/imp22g-77.imp"
5976 @ 45647:                  PUSH   PUTSYM
5977 @ 45650:                  PUSHI  #0x00000028
5978 @ 45655:                  ASSPAR
5979 @ 45656:                  CALL  

  1080  {?}  interpret(mode+(aregmode-indexmode))
5980 @ 45657:                  LINE   1080 "regression-compile-tmp/imp22g-77.imp"
5981 @ 45697:                  PUSH   INTERPRET
5982 @ 45700:                  PUSH   MODE
5983 @ 45703:                  PUSHI  #0x00000008
5984 @ 45708:                  PUSHI  #0x00000030
5985 @ 45713:                  SUB   
5986 @ 45714:                  ADD   
5987 @ 45715:                  ASSPAR
5988 @ 45716:                  CALL  

  1081  {?}  put sym(',')
5989 @ 45717:                  LINE   1081 "regression-compile-tmp/imp22g-77.imp"
5990 @ 45757:                  PUSH   PUTSYM
5991 @ 45760:                  PUSHI  #0x0000002c
5992 @ 45765:                  ASSPAR
5993 @ 45766:                  CALL  

  1082  {?}  interpret(i>>12&15)
5994 @ 45767:                  LINE   1082 "regression-compile-tmp/imp22g-77.imp"
5995 @ 45807:                  PUSH   INTERPRET
5996 @ 45810:                  PUSH   I
5997 @ 45813:                  PUSHI  #0x0000000c
5998 @ 45818:                  RSH   
5999 @ 45819:                  PUSHI  #0x0000000f
6000 @ 45824:                  AND   
6001 @ 45825:                  ASSPAR
6002 @ 45826:                  CALL  

  1083  {?}  put sym('.')
6003 @ 45827:                  LINE   1083 "regression-compile-tmp/imp22g-77.imp"
6004 @ 45867:                  PUSH   PUTSYM
6005 @ 45870:                  PUSHI  #0x0000002e
6006 @ 45875:                  ASSPAR
6007 @ 45876:                  CALL  

  1084  {?}  %if i&16_800 = 0 %then put sym('W') %else put sym('L')
6008 @ 45877:                  LINE   1084 "regression-compile-tmp/imp22g-77.imp"
6009 @ 45917:                  PUSH   I
6010 @ 45920:                  PUSHI  #0x00000800
6011 @ 45925:                  AND   
6012 @ 45926:                  PUSHI  #0x00000000
6013 @ 45931:                  JUMPIF # L_0004
6014 @ 45935:                  PUSH   PUTSYM
6015 @ 45938:                  PUSHI  #0x00000057
6016 @ 45943:                  ASSPAR
6017 @ 45944:                  CALL  
6018 @ 45945:                  GOTO   L_0003
6019 @ 45948:                  LOCATE L_0004
6020 @ 45951:                  PUSH   PUTSYM
6021 @ 45954:                  PUSHI  #0x0000004c
6022 @ 45959:                  ASSPAR
6023 @ 45960:                  CALL  
6024 @ 45961:                  LOCATE L_0003

  1085  {?}  put sym(')')
6025 @ 45964:                  LINE   1085 "regression-compile-tmp/imp22g-77.imp"
6026 @ 46004:                  PUSH   PUTSYM
6027 @ 46007:                  PUSHI  #0x00000029
6028 @ 46012:                  ASSPAR
6029 @ 46013:                  CALL  

  1086  {?}  %return
6030 @ 46014:                  LINE   1086 "regression-compile-tmp/imp22g-77.imp"
6031 @ 46054:                  RETURN

  1087  {?}s(7):                 !MISC
6032 @ 46055:                  LINE   1087 "regression-compile-tmp/imp22g-77.imp"
6033 @ 46095:                  PUSHI  #0x00000007
6034 @ 46100:                  SLABEL 277

  1088  {?}  %if mode&63 = pcmode %start
6035 @ 46103:                  LINE   1088 "regression-compile-tmp/imp22g-77.imp"
6036 @ 46143:                  PUSH   MODE
6037 @ 46146:                  PUSHI  #0x0000003f
6038 @ 46151:                  AND   
6039 @ 46152:                  PUSHI  #0x0000003a
6040 @ 46157:                  JUMPIF # L_0004

  1089  {?}    put num(i) %if mode = pcmode;  !suppress if not explicit
6041 @ 46161:                  LINE   1089 "regression-compile-tmp/imp22g-77.imp"
6042 @ 46201:                  PUSH   MODE
6043 @ 46204:                  PUSHI  #0x0000003a
6044 @ 46209:                  JUMPIF # L_0007
6045 @ 46213:                  PUSH   PUTNUM
6046 @ 46216:                  PUSH   I
6047 @ 46219:                  ASSPAR
6048 @ 46220:                  CALL  
6049 @ 46221:                  LOCATE L_0007

  1090  {?}    put string("(PC)")
6050 @ 46224:                  LINE   1090 "regression-compile-tmp/imp22g-77.imp"
6051 @ 46264:                  PUSH   PUTSTRING
6052 @ 46267:                  PUSHS  "(PC)"
6053 @ 46273:                  ASSPAR
6054 @ 46274:                  CALL  

  1091  {?}    %return
6055 @ 46275:                  LINE   1091 "regression-compile-tmp/imp22g-77.imp"
6056 @ 46315:                  RETURN

  1092  {?}  %finish
6057 @ 46316:                  LINE   1092 "regression-compile-tmp/imp22g-77.imp"
6058 @ 46356:                  LOCATE L_0004

  1093  {?}  %if mode <= absmode+1 %start
6059 @ 46359:                  LINE   1093 "regression-compile-tmp/imp22g-77.imp"
6060 @ 46399:                  PUSH   MODE
6061 @ 46402:                  PUSHI  #0x00000038
6062 @ 46407:                  PUSHI  #0x00000001
6063 @ 46412:                  ADD   
6064 @ 46413:                  JUMPIF > L_0004

  1094  {?}    put sym('$')
6065 @ 46417:                  LINE   1094 "regression-compile-tmp/imp22g-77.imp"
6066 @ 46457:                  PUSH   PUTSYM
6067 @ 46460:                  PUSHI  #0x00000024
6068 @ 46465:                  ASSPAR
6069 @ 46466:                  CALL  

  1095  {?}    put hex(i>>16) %if mode = absmode+1 %or %not is short(i)=TRUE
6070 @ 46467:                  LINE   1095 "regression-compile-tmp/imp22g-77.imp"
6071 @ 46507:                  PUSH   MODE
6072 @ 46510:                  PUSHI  #0x00000038
6073 @ 46515:                  PUSHI  #0x00000001
6074 @ 46520:                  ADD   
6075 @ 46521:                  JUMPIF = L_0008
6076 @ 46525:                  PUSH   ISSHORT
6077 @ 46528:                  PUSH   I
6078 @ 46531:                  ASSPAR
6079 @ 46532:                  CALL  
6080 @ 46533:                  PUSHI  #0x00000001
6081 @ 46538:                  JUMPIF = L_0007
6082 @ 46542:                  LOCATE L_0008
6083 @ 46545:                  PUSH   PUTHEX
6084 @ 46548:                  PUSH   I
6085 @ 46551:                  PUSHI  #0x00000010
6086 @ 46556:                  RSH   
6087 @ 46557:                  ASSPAR
6088 @ 46558:                  CALL  
6089 @ 46559:                  LOCATE L_0007

  1096  {?}  %else
6090 @ 46562:                  LINE   1096 "regression-compile-tmp/imp22g-77.imp"
6091 @ 46602:                  GOTO   L_0003
6092 @ 46605:                  LOCATE L_0004

  1097  {?}    put sym(hexsym(mode>>4&3))
6093 @ 46608:                  LINE   1097 "regression-compile-tmp/imp22g-77.imp"
6094 @ 46648:                  PUSH   PUTSYM
6095 @ 46651:                  PUSH   HEXSYM
6096 @ 46654:                  PUSH   MODE
6097 @ 46657:                  PUSHI  #0x00000004
6098 @ 46662:                  RSH   
6099 @ 46663:                  PUSHI  #0x00000003
6100 @ 46668:                  AND   
6101 @ 46669:                  ACCESS
6102 @ 46670:                  ASSPAR
6103 @ 46671:                  CALL  

  1098  {?}    put sym(hexsym(mode&15))
6104 @ 46672:                  LINE   1098 "regression-compile-tmp/imp22g-77.imp"
6105 @ 46712:                  PUSH   PUTSYM
6106 @ 46715:                  PUSH   HEXSYM
6107 @ 46718:                  PUSH   MODE
6108 @ 46721:                  PUSHI  #0x0000000f
6109 @ 46726:                  AND   
6110 @ 46727:                  ACCESS
6111 @ 46728:                  ASSPAR
6112 @ 46729:                  CALL  

  1099  {?}    put sym('_')
6113 @ 46730:                  LINE   1099 "regression-compile-tmp/imp22g-77.imp"
6114 @ 46770:                  PUSH   PUTSYM
6115 @ 46773:                  PUSHI  #0x0000005f
6116 @ 46778:                  ASSPAR
6117 @ 46779:                  CALL  

  1100  {?}  %finish
6118 @ 46780:                  LINE   1100 "regression-compile-tmp/imp22g-77.imp"
6119 @ 46820:                  LOCATE L_0003

  1101  {?}  put hex(i)
6120 @ 46823:                  LINE   1101 "regression-compile-tmp/imp22g-77.imp"
6121 @ 46863:                  PUSH   PUTHEX
6122 @ 46866:                  PUSH   I
6123 @ 46869:                  ASSPAR
6124 @ 46870:                  CALL  

  1102  {?}%end
  1103  {?}
6125 @ 46871:                  LINE   1102 "regression-compile-tmp/imp22g-77.imp"
6126 @ 46911:               END    _lev0id0_PUTOPERAND_INTERPRET {lev=3 --> 2}

  1104  {?}  %if v <= 0 %start;               !literal
6127 @ 46912:               LINE   1104 "regression-compile-tmp/imp22g-77.imp"
6128 @ 46952:               PUSH   V
6129 @ 46955:               PUSHI  #0x00000000
6130 @ 46960:               JUMPIF > L_0004

  1105  {?}    v = litval(v)
6131 @ 46964:               LINE   1105 "regression-compile-tmp/imp22g-77.imp"
6132 @ 47004:               PUSH   V
6133 @ 47007:               PUSH   LITVAL
6134 @ 47010:               PUSH   V
6135 @ 47013:               ASSPAR
6136 @ 47014:               CALL  
6137 @ 47015:               ASSVAL

  1106  {?}    put sym('#')
6138 @ 47016:               LINE   1106 "regression-compile-tmp/imp22g-77.imp"
6139 @ 47056:               PUSH   PUTSYM
6140 @ 47059:               PUSHI  #0x00000023
6141 @ 47064:               ASSPAR
6142 @ 47065:               CALL  

  1107  {?}    %if is mite(v)=TRUE %then put num(v) %else %start
6143 @ 47066:               LINE   1107 "regression-compile-tmp/imp22g-77.imp"
6144 @ 47106:               PUSH   ISMITE
6145 @ 47109:               PUSH   V
6146 @ 47112:               ASSPAR
6147 @ 47113:               CALL  
6148 @ 47114:               PUSHI  #0x00000001
6149 @ 47119:               JUMPIF # L_0007
6150 @ 47123:               PUSH   PUTNUM
6151 @ 47126:               PUSH   V
6152 @ 47129:               ASSPAR
6153 @ 47130:               CALL  
6154 @ 47131:               GOTO   L_0006
6155 @ 47134:               LOCATE L_0007

  1108  {?}      put sym('$')
6156 @ 47137:               LINE   1108 "regression-compile-tmp/imp22g-77.imp"
6157 @ 47177:               PUSH   PUTSYM
6158 @ 47180:               PUSHI  #0x00000024
6159 @ 47185:               ASSPAR
6160 @ 47186:               CALL  

  1109  {?}      put hex(v>>16) %if v>>16 # 0
6161 @ 47187:               LINE   1109 "regression-compile-tmp/imp22g-77.imp"
6162 @ 47227:               PUSH   V
6163 @ 47230:               PUSHI  #0x00000010
6164 @ 47235:               RSH   
6165 @ 47236:               PUSHI  #0x00000000
6166 @ 47241:               JUMPIF = L_000a
6167 @ 47245:               PUSH   PUTHEX
6168 @ 47248:               PUSH   V
6169 @ 47251:               PUSHI  #0x00000010
6170 @ 47256:               RSH   
6171 @ 47257:               ASSPAR
6172 @ 47258:               CALL  
6173 @ 47259:               LOCATE L_000a

  1110  {?}      put hex(v&16_FFFF)
6174 @ 47262:               LINE   1110 "regression-compile-tmp/imp22g-77.imp"
6175 @ 47302:               PUSH   PUTHEX
6176 @ 47305:               PUSH   V
6177 @ 47308:               PUSHI  #0x0000ffff
6178 @ 47313:               AND   
6179 @ 47314:               ASSPAR
6180 @ 47315:               CALL  

  1111  {?}    %finish
6181 @ 47316:               LINE   1111 "regression-compile-tmp/imp22g-77.imp"
6182 @ 47356:               LOCATE L_0006

  1112  {?}  %finish %else %if v <= prea7 %start;    !register
6183 @ 47359:               LINE   1112 "regression-compile-tmp/imp22g-77.imp"
6184 @ 47399:               GOTO   L_0003
6185 @ 47402:               LOCATE L_0004
6186 @ 47405:               PUSH   V
6187 @ 47408:               PUSHI  #0x00000028
6188 @ 47413:               JUMPIF > L_0004

  1113  {?}    interpret(v-d0)
6189 @ 47417:               LINE   1113 "regression-compile-tmp/imp22g-77.imp"
6190 @ 47457:               PUSH   INTERPRET
6191 @ 47460:               PUSH   V
6192 @ 47463:               PUSHI  #0x00000001
6193 @ 47468:               SUB   
6194 @ 47469:               ASSPAR
6195 @ 47470:               CALL  

  1114  {?}  %finish %else %if v < dictlim %start;  !identifier
6196 @ 47471:               LINE   1114 "regression-compile-tmp/imp22g-77.imp"
6197 @ 47511:               GOTO   L_0003
6198 @ 47514:               LOCATE L_0004
6199 @ 47517:               PUSH   V
6200 @ 47520:               PUSH   DICTLIM
6201 @ 47523:               JUMPIF >= L_0004

  1115  {?}    put ident(v,0)
6202 @ 47527:               LINE   1115 "regression-compile-tmp/imp22g-77.imp"
6203 @ 47567:               PUSH   PUTIDENT
6204 @ 47570:               PUSH   V
6205 @ 47573:               ASSPAR
6206 @ 47574:               PUSHI  #0x00000000
6207 @ 47579:               ASSPAR
6208 @ 47580:               CALL  

  1116  {?}  %finish %else %if v < lablim %start;  !internal label
6209 @ 47581:               LINE   1116 "regression-compile-tmp/imp22g-77.imp"
6210 @ 47621:               GOTO   L_0003
6211 @ 47624:               LOCATE L_0004
6212 @ 47627:               PUSH   V
6213 @ 47630:               PUSH   LABLIM
6214 @ 47633:               JUMPIF >= L_0004

  1117  {?}    put sym('L')
6215 @ 47637:               LINE   1117 "regression-compile-tmp/imp22g-77.imp"
6216 @ 47677:               PUSH   PUTSYM
6217 @ 47680:               PUSHI  #0x0000004c
6218 @ 47685:               ASSPAR
6219 @ 47686:               CALL  

  1118  {?}    put num(v-dictlim)
6220 @ 47687:               LINE   1118 "regression-compile-tmp/imp22g-77.imp"
6221 @ 47727:               PUSH   PUTNUM
6222 @ 47730:               PUSH   V
6223 @ 47733:               PUSH   DICTLIM
6224 @ 47736:               SUB   
6225 @ 47737:               ASSPAR
6226 @ 47738:               CALL  

  1119  {?}  %else;                 !complex
6227 @ 47739:               LINE   1119 "regression-compile-tmp/imp22g-77.imp"
6228 @ 47779:               GOTO   L_0003
6229 @ 47782:               LOCATE L_0004

  1120  {?}    i = dict(v)_val
6230 @ 47785:               LINE   1120 "regression-compile-tmp/imp22g-77.imp"
6231 @ 47825:               PUSH   I
6232 @ 47828:               PUSH   DICT
6233 @ 47831:               PUSH   V
6234 @ 47834:               ACCESS
6235 @ 47835:               SELECT 9
6236 @ 47838:               ASSVAL

  1121  {?}    interpret(dict(v)_mode)
6237 @ 47839:               LINE   1121 "regression-compile-tmp/imp22g-77.imp"
6238 @ 47879:               PUSH   INTERPRET
6239 @ 47882:               PUSH   DICT
6240 @ 47885:               PUSH   V
6241 @ 47888:               ACCESS
6242 @ 47889:               SELECT 8
6243 @ 47892:               ASSPAR
6244 @ 47893:               CALL  

  1122  {?}  %finish
6245 @ 47894:               LINE   1122 "regression-compile-tmp/imp22g-77.imp"
6246 @ 47934:               LOCATE L_0003

  1123  {?}%end;  !put operand
  1124  {?}
6247 @ 47937:               LINE   1123 "regression-compile-tmp/imp22g-77.imp"
6248 @ 47977:            END    _lev0id0_PUTOPERAND {lev=2 --> 1}

  1125  {?}%routine MARK AT(%integer col)
6249 @ 47978:            LINE   1125 "regression-compile-tmp/imp22g-77.imp"
6250 @ 48018:            DEF    MARKAT (_lev0id0_MARKAT) 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
6251 @ 48036:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
6252 @ 48037:                  DEF    COL 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
6253 @ 48052:               FINISH ) {lev=2}

  1126  {?}  put sym(' ') %while length(rep) < col;  put sym('|')
6254 @ 48053:               LINE   1126 "regression-compile-tmp/imp22g-77.imp"
6255 @ 48093:               LOCATE L_0003
6256 @ 48096:               PUSH   LENGTH
6257 @ 48099:               PUSH   REP
6258 @ 48102:               ASSPAR
6259 @ 48103:               CALL  
6260 @ 48104:               PUSH   COL
6261 @ 48107:               JUMPIF >= L_0004
6262 @ 48111:               PUSH   PUTSYM
6263 @ 48114:               PUSHI  #0x00000020
6264 @ 48119:               ASSPAR
6265 @ 48120:               CALL  
6266 @ 48121:               REPEAT L_0003
6267 @ 48124:               LOCATE L_0004
6268 @ 48127:               LINE   1126 "regression-compile-tmp/imp22g-77.imp"
6269 @ 48167:               PUSH   PUTSYM
6270 @ 48170:               PUSHI  #0x0000007c
6271 @ 48175:               ASSPAR
6272 @ 48176:               CALL  

  1127  {?}%end
  1128  {?}!
6273 @ 48177:               LINE   1127 "regression-compile-tmp/imp22g-77.imp"
6274 @ 48217:            END    _lev0id0_MARKAT {lev=2 --> 1}

  1129  {?}%routine SHOW DICT(%integer from)
6275 @ 48218:            LINE   1129 "regression-compile-tmp/imp22g-77.imp"
6276 @ 48258:            DEF    SHOWDICT (_lev0id0_SHOWDICT) 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
6277 @ 48278:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
6278 @ 48279:                  DEF    FROM 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
6279 @ 48295:               FINISH ) {lev=2}

  1130  {?}%integer i
6280 @ 48296:               LINE   1130 "regression-compile-tmp/imp22g-77.imp"
6281 @ 48336:               DEF    I 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

  1131  {?}%record(identinfo) d
6282 @ 48349:               LINE   1131 "regression-compile-tmp/imp22g-77.imp"
6283 @ 48389:               DEF    D p1=V_0115 a/tf=41 b/format=9b c/ostate=0  type=4 (record) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  1132  {?}%constbytearray flagsym(0:15) =
  1133  {?}  'W','R','V','A','w','r','o','m','S','T','K','?','P','p','E','*'
6284 @ 48402:               LINE   1132 "regression-compile-tmp/imp22g-77.imp"
6285 @ 48442:               PUSHI  #0x00000000
6286 @ 48447:               PUSHI  #0x0000000f
6287 @ 48452:               BOUNDS
6288 @ 48453:               DEF    FLAGSYM p1=V_0116 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
6289 @ 48472:               PUSHI  #0x00000057
6290 @ 48477:               INIT   1
6291 @ 48480:               PUSHI  #0x00000052
6292 @ 48485:               INIT   1
6293 @ 48488:               PUSHI  #0x00000056
6294 @ 48493:               INIT   1
6295 @ 48496:               PUSHI  #0x00000041
6296 @ 48501:               INIT   1
6297 @ 48504:               PUSHI  #0x00000077
6298 @ 48509:               INIT   1
6299 @ 48512:               PUSHI  #0x00000072
6300 @ 48517:               INIT   1
6301 @ 48520:               PUSHI  #0x0000006f
6302 @ 48525:               INIT   1
6303 @ 48528:               PUSHI  #0x0000006d
6304 @ 48533:               INIT   1
6305 @ 48536:               PUSHI  #0x00000053
6306 @ 48541:               INIT   1
6307 @ 48544:               PUSHI  #0x00000054
6308 @ 48549:               INIT   1
6309 @ 48552:               PUSHI  #0x0000004b
6310 @ 48557:               INIT   1
6311 @ 48560:               PUSHI  #0x0000003f
6312 @ 48565:               INIT   1
6313 @ 48568:               PUSHI  #0x00000050
6314 @ 48573:               INIT   1
6315 @ 48576:               PUSHI  #0x00000070
6316 @ 48581:               INIT   1
6317 @ 48584:               PUSHI  #0x00000045
6318 @ 48589:               INIT   1
6319 @ 48592:               PUSHI  #0x0000002a
6320 @ 48597:               INIT   1

  1134  {?}%constbytearray catsym(0:15) =
  1135  {?}  'I', 'C', 'B', 'E', '@', 'X', '?', '?',
  1136  {?}  'S', 'A', 'Z', '?', 'R', 'F', '?', '?'
  1137  {?}
6321 @ 48600:               LINE   1134 "regression-compile-tmp/imp22g-77.imp"
6322 @ 48640:               PUSHI  #0x00000000
6323 @ 48645:               PUSHI  #0x0000000f
6324 @ 48650:               BOUNDS
6325 @ 48651:               DEF    CATSYM p1=V_0117 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
6326 @ 48669:               PUSHI  #0x00000049
6327 @ 48674:               INIT   1
6328 @ 48677:               PUSHI  #0x00000043
6329 @ 48682:               INIT   1
6330 @ 48685:               PUSHI  #0x00000042
6331 @ 48690:               INIT   1
6332 @ 48693:               PUSHI  #0x00000045
6333 @ 48698:               INIT   1
6334 @ 48701:               PUSHI  #0x00000040
6335 @ 48706:               INIT   1
6336 @ 48709:               PUSHI  #0x00000058
6337 @ 48714:               INIT   1
6338 @ 48717:               PUSHI  #0x0000003f
6339 @ 48722:               INIT   1
6340 @ 48725:               PUSHI  #0x0000003f
6341 @ 48730:               INIT   1
6342 @ 48733:               PUSHI  #0x00000053
6343 @ 48738:               INIT   1
6344 @ 48741:               PUSHI  #0x00000041
6345 @ 48746:               INIT   1
6346 @ 48749:               PUSHI  #0x0000005a
6347 @ 48754:               INIT   1
6348 @ 48757:               PUSHI  #0x0000003f
6349 @ 48762:               INIT   1
6350 @ 48765:               PUSHI  #0x00000052
6351 @ 48770:               INIT   1
6352 @ 48773:               PUSHI  #0x00000046
6353 @ 48778:               INIT   1
6354 @ 48781:               PUSHI  #0x0000003f
6355 @ 48786:               INIT   1
6356 @ 48789:               PUSHI  #0x0000003f
6357 @ 48794:               INIT   1

  1138  {?}  %return %if from >= dlim
  1139  !<<IMP
6358 @ 48797:               LINE   1138 "regression-compile-tmp/imp22g-77.imp"
6359 @ 48837:               PUSH   FROM
6360 @ 48840:               PUSH   DLIM
6361 @ 48843:               JUMPIF < L_0004
6362 @ 48847:               RETURN
6363 @ 48848:               LOCATE L_0004

  1140  {?}  print line %if rep # ""
6364 @ 48851:               LINE   1140 "regression-compile-tmp/imp22g-77.imp"
6365 @ 48891:               PUSH   REP
6366 @ 48894:               PUSHS  ""
6367 @ 48896:               JUMPIF = L_0004
6368 @ 48900:               PUSH   PRINTLINE
6369 @ 48903:               CALL  
6370 @ 48904:               LOCATE L_0004

  1141  {?}  byteinteger(charlim) = 0
6371 @ 48907:               LINE   1141 "regression-compile-tmp/imp22g-77.imp"
6372 @ 48947:               PUSH   BYTEINTEGER
6373 @ 48950:               PUSH   CHARLIM
6374 @ 48953:               ASSPAR
6375 @ 48954:               CALL  
6376 @ 48955:               PUSHI  #0x00000000
6377 @ 48960:               ASSVAL

  1142  {?}  spaces(6)
6378 @ 48961:               LINE   1142 "regression-compile-tmp/imp22g-77.imp"
6379 @ 49001:               PUSH   SPACES
6380 @ 49004:               PUSHI  #0x00000006
6381 @ 49009:               ASSPAR
6382 @ 49010:               CALL  

  1143  {?}  put string("___identifier____flags___type__link__par_mode___value____")
6383 @ 49011:               LINE   1143 "regression-compile-tmp/imp22g-77.imp"
6384 @ 49051:               PUSH   PUTSTRING
6385 @ 49054:               PUSHS  "___identifier____flags___type__link__par_mode___value____"
6386 @ 49113:               ASSPAR
6387 @ 49114:               CALL  

  1144  {?}  print line
6388 @ 49115:               LINE   1144 "regression-compile-tmp/imp22g-77.imp"
6389 @ 49155:               PUSH   PRINTLINE
6390 @ 49158:               CALL  

  1145  {?}  %cycle
6391 @ 49159:               LINE   1145 "regression-compile-tmp/imp22g-77.imp"
6392 @ 49199:               LOCATE L_0003

  1146  {?}    put spnum(from);  mark at(6)
6393 @ 49202:               LINE   1146 "regression-compile-tmp/imp22g-77.imp"
6394 @ 49242:               PUSH   PUTSPNUM
6395 @ 49245:               PUSH   FROM
6396 @ 49248:               ASSPAR
6397 @ 49249:               CALL  
6398 @ 49250:               LINE   1146 "regression-compile-tmp/imp22g-77.imp"
6399 @ 49290:               PUSH   MARKAT
6400 @ 49293:               PUSHI  #0x00000006
6401 @ 49298:               ASSPAR
6402 @ 49299:               CALL  

  1147  {?}    d = dict(from)
6403 @ 49300:               LINE   1147 "regression-compile-tmp/imp22g-77.imp"
6404 @ 49340:               PUSH   D
6405 @ 49343:               PUSH   DICT
6406 @ 49346:               PUSH   FROM
6407 @ 49349:               ACCESS
6408 @ 49350:               ASSVAL

  1148  {?}    put sym(' ');  put ident(from,0)
6409 @ 49351:               LINE   1148 "regression-compile-tmp/imp22g-77.imp"
6410 @ 49391:               PUSH   PUTSYM
6411 @ 49394:               PUSHI  #0x00000020
6412 @ 49399:               ASSPAR
6413 @ 49400:               CALL  
6414 @ 49401:               LINE   1148 "regression-compile-tmp/imp22g-77.imp"
6415 @ 49441:               PUSH   PUTIDENT
6416 @ 49444:               PUSH   FROM
6417 @ 49447:               ASSPAR
6418 @ 49448:               PUSHI  #0x00000000
6419 @ 49453:               ASSPAR
6420 @ 49454:               CALL  

  1149  {?}    %if d_text > 0 %start
6421 @ 49455:               LINE   1149 "regression-compile-tmp/imp22g-77.imp"
6422 @ 49495:               PUSH   D
6423 @ 49498:               SELECT 11
6424 @ 49501:               PUSHI  #0x00000000
6425 @ 49506:               JUMPIF <= L_0007

  1150  {?}      i = char0+d_text;  i = i+byteinteger(i)+1
6426 @ 49510:               LINE   1150 "regression-compile-tmp/imp22g-77.imp"
6427 @ 49550:               PUSH   I
6428 @ 49553:               PUSH   CHAR0
6429 @ 49556:               PUSH   D
6430 @ 49559:               SELECT 11
6431 @ 49562:               ADD   
6432 @ 49563:               ASSVAL
6433 @ 49564:               LINE   1150 "regression-compile-tmp/imp22g-77.imp"
6434 @ 49604:               PUSH   I
6435 @ 49607:               PUSH   I
6436 @ 49610:               PUSH   BYTEINTEGER
6437 @ 49613:               PUSH   I
6438 @ 49616:               ASSPAR
6439 @ 49617:               CALL  
6440 @ 49618:               ADD   
6441 @ 49619:               PUSHI  #0x00000001
6442 @ 49624:               ADD   
6443 @ 49625:               ASSVAL

  1151  {?}      %if byteinteger(i)&128 # 0 %start
6444 @ 49626:               LINE   1151 "regression-compile-tmp/imp22g-77.imp"
6445 @ 49666:               PUSH   BYTEINTEGER
6446 @ 49669:               PUSH   I
6447 @ 49672:               ASSPAR
6448 @ 49673:               CALL  
6449 @ 49674:               PUSHI  #0x00000080
6450 @ 49679:               AND   
6451 @ 49680:               PUSHI  #0x00000000
6452 @ 49685:               JUMPIF = L_000a

  1152  {?}        byteinteger(i) = byteinteger(i)-128
6453 @ 49689:               LINE   1152 "regression-compile-tmp/imp22g-77.imp"
6454 @ 49729:               PUSH   BYTEINTEGER
6455 @ 49732:               PUSH   I
6456 @ 49735:               ASSPAR
6457 @ 49736:               CALL  
6458 @ 49737:               PUSH   BYTEINTEGER
6459 @ 49740:               PUSH   I
6460 @ 49743:               ASSPAR
6461 @ 49744:               CALL  
6462 @ 49745:               PUSHI  #0x00000080
6463 @ 49750:               SUB   
6464 @ 49751:               ASSVAL

  1153  {?}        put sym(':');  put string(string(i))
6465 @ 49752:               LINE   1153 "regression-compile-tmp/imp22g-77.imp"
6466 @ 49792:               PUSH   PUTSYM
6467 @ 49795:               PUSHI  #0x0000003a
6468 @ 49800:               ASSPAR
6469 @ 49801:               CALL  
6470 @ 49802:               LINE   1153 "regression-compile-tmp/imp22g-77.imp"
6471 @ 49842:               PUSH   PUTSTRING
6472 @ 49845:               PUSH   STRING
6473 @ 49848:               PUSH   I
6474 @ 49851:               ASSPAR
6475 @ 49852:               CALL  
6476 @ 49853:               ASSPAR
6477 @ 49854:               CALL  

  1154  {?}        byteinteger(i) = byteinteger(i)+128
6478 @ 49855:               LINE   1154 "regression-compile-tmp/imp22g-77.imp"
6479 @ 49895:               PUSH   BYTEINTEGER
6480 @ 49898:               PUSH   I
6481 @ 49901:               ASSPAR
6482 @ 49902:               CALL  
6483 @ 49903:               PUSH   BYTEINTEGER
6484 @ 49906:               PUSH   I
6485 @ 49909:               ASSPAR
6486 @ 49910:               CALL  
6487 @ 49911:               PUSHI  #0x00000080
6488 @ 49916:               ADD   
6489 @ 49917:               ASSVAL

  1155  {?}      %finish
6490 @ 49918:               LINE   1155 "regression-compile-tmp/imp22g-77.imp"
6491 @ 49958:               LOCATE L_000a

  1156  {?}    %finish
6492 @ 49961:               LINE   1156 "regression-compile-tmp/imp22g-77.imp"
6493 @ 50001:               LOCATE L_0007

  1157  {?}    mark at(22)
6494 @ 50004:               LINE   1157 "regression-compile-tmp/imp22g-77.imp"
6495 @ 50044:               PUSH   MARKAT
6496 @ 50047:               PUSHI  #0x00000016
6497 @ 50052:               ASSPAR
6498 @ 50053:               CALL  

  1158  {?}    %if d_flags&typeid # 0 %then put sym(catsym(d_flags&cat)) %and i = 4 %c
  1159  {?}    %else put sym(' ') %and i = 0
6499 @ 50054:               LINE   1158 "regression-compile-tmp/imp22g-77.imp"
6500 @ 50094:               PUSH   D
6501 @ 50097:               SELECT 1
6502 @ 50100:               PUSHI  #0x00000200
6503 @ 50105:               AND   
6504 @ 50106:               PUSHI  #0x00000000
6505 @ 50111:               JUMPIF = L_0007
6506 @ 50115:               PUSH   PUTSYM
6507 @ 50118:               PUSH   CATSYM
6508 @ 50121:               PUSH   D
6509 @ 50124:               SELECT 1
6510 @ 50127:               PUSHI  #0x0000000f
6511 @ 50132:               AND   
6512 @ 50133:               ACCESS
6513 @ 50134:               ASSPAR
6514 @ 50135:               CALL  
6515 @ 50136:               PUSH   I
6516 @ 50139:               PUSHI  #0x00000004
6517 @ 50144:               ASSVAL
6518 @ 50145:               GOTO   L_0006
6519 @ 50148:               LOCATE L_0007
6520 @ 50151:               PUSH   PUTSYM
6521 @ 50154:               PUSHI  #0x00000020
6522 @ 50159:               ASSPAR
6523 @ 50160:               CALL  
6524 @ 50161:               PUSH   I
6525 @ 50164:               PUSHI  #0x00000000
6526 @ 50169:               ASSVAL
6527 @ 50170:               LOCATE L_0006

  1160  {?}    %cycle
6528 @ 50173:               LINE   1160 "regression-compile-tmp/imp22g-77.imp"
6529 @ 50213:               LOCATE L_0006

  1161  {?}      put sym(flagsym(i)) %if d_flags>>i&1 # 0
6530 @ 50216:               LINE   1161 "regression-compile-tmp/imp22g-77.imp"
6531 @ 50256:               PUSH   D
6532 @ 50259:               SELECT 1
6533 @ 50262:               PUSH   I
6534 @ 50265:               RSH   
6535 @ 50266:               PUSHI  #0x00000001
6536 @ 50271:               AND   
6537 @ 50272:               PUSHI  #0x00000000
6538 @ 50277:               JUMPIF = L_000a
6539 @ 50281:               PUSH   PUTSYM
6540 @ 50284:               PUSH   FLAGSYM
6541 @ 50287:               PUSH   I
6542 @ 50290:               ACCESS
6543 @ 50291:               ASSPAR
6544 @ 50292:               CALL  
6545 @ 50293:               LOCATE L_000a

  1162  {?}      i = i+1
6546 @ 50296:               LINE   1162 "regression-compile-tmp/imp22g-77.imp"
6547 @ 50336:               PUSH   I
6548 @ 50339:               PUSH   I
6549 @ 50342:               PUSHI  #0x00000001
6550 @ 50347:               ADD   
6551 @ 50348:               ASSVAL

  1163  {?}    %repeat %until i > 15
6552 @ 50349:               LINE   1163 "regression-compile-tmp/imp22g-77.imp"
6553 @ 50389:               PUSH   I
6554 @ 50392:               PUSHI  #0x0000000f
6555 @ 50397:               JUMPIF > L_0007
6556 @ 50401:               REPEAT L_0006
6557 @ 50404:               LOCATE L_0007

  1164  {?}    mark at(30)
6558 @ 50407:               LINE   1164 "regression-compile-tmp/imp22g-77.imp"
6559 @ 50447:               PUSH   MARKAT
6560 @ 50450:               PUSHI  #0x0000001e
6561 @ 50455:               ASSPAR
6562 @ 50456:               CALL  

  1165  {?}    put spnum(d_type);  mark at(35)
6563 @ 50457:               LINE   1165 "regression-compile-tmp/imp22g-77.imp"
6564 @ 50497:               PUSH   PUTSPNUM
6565 @ 50500:               PUSH   D
6566 @ 50503:               SELECT 2
6567 @ 50506:               ASSPAR
6568 @ 50507:               CALL  
6569 @ 50508:               LINE   1165 "regression-compile-tmp/imp22g-77.imp"
6570 @ 50548:               PUSH   MARKAT
6571 @ 50551:               PUSHI  #0x00000023
6572 @ 50556:               ASSPAR
6573 @ 50557:               CALL  

  1166  {?}    put spnum(d_link);  mark at(42)
6574 @ 50558:               LINE   1166 "regression-compile-tmp/imp22g-77.imp"
6575 @ 50598:               PUSH   PUTSPNUM
6576 @ 50601:               PUSH   D
6577 @ 50604:               SELECT 3
6578 @ 50607:               ASSPAR
6579 @ 50608:               CALL  
6580 @ 50609:               LINE   1166 "regression-compile-tmp/imp22g-77.imp"
6581 @ 50649:               PUSH   MARKAT
6582 @ 50652:               PUSHI  #0x0000002a
6583 @ 50657:               ASSPAR
6584 @ 50658:               CALL  

  1167  {?}    put spnum(d_reg);  mark at(46)
6585 @ 50659:               LINE   1167 "regression-compile-tmp/imp22g-77.imp"
6586 @ 50699:               PUSH   PUTSPNUM
6587 @ 50702:               PUSH   D
6588 @ 50705:               SELECT 7
6589 @ 50708:               ASSPAR
6590 @ 50709:               CALL  
6591 @ 50710:               LINE   1167 "regression-compile-tmp/imp22g-77.imp"
6592 @ 50750:               PUSH   MARKAT
6593 @ 50753:               PUSHI  #0x0000002e
6594 @ 50758:               ASSPAR
6595 @ 50759:               CALL  

  1168  {?}    put spnum(d_mode);  mark at(51)
6596 @ 50760:               LINE   1168 "regression-compile-tmp/imp22g-77.imp"
6597 @ 50800:               PUSH   PUTSPNUM
6598 @ 50803:               PUSH   D
6599 @ 50806:               SELECT 8
6600 @ 50809:               ASSPAR
6601 @ 50810:               CALL  
6602 @ 50811:               LINE   1168 "regression-compile-tmp/imp22g-77.imp"
6603 @ 50851:               PUSH   MARKAT
6604 @ 50854:               PUSHI  #0x00000033
6605 @ 50859:               ASSPAR
6606 @ 50860:               CALL  

  1169  {?}    put spnum(d_val);  mark at(63)
6607 @ 50861:               LINE   1169 "regression-compile-tmp/imp22g-77.imp"
6608 @ 50901:               PUSH   PUTSPNUM
6609 @ 50904:               PUSH   D
6610 @ 50907:               SELECT 9
6611 @ 50910:               ASSPAR
6612 @ 50911:               CALL  
6613 @ 50912:               LINE   1169 "regression-compile-tmp/imp22g-77.imp"
6614 @ 50952:               PUSH   MARKAT
6615 @ 50955:               PUSHI  #0x0000003f
6616 @ 50960:               ASSPAR
6617 @ 50961:               CALL  

  1170  {?}    print line
6618 @ 50962:               LINE   1170 "regression-compile-tmp/imp22g-77.imp"
6619 @ 51002:               PUSH   PRINTLINE
6620 @ 51005:               CALL  

  1171  {?}    from = from+1
6621 @ 51006:               LINE   1171 "regression-compile-tmp/imp22g-77.imp"
6622 @ 51046:               PUSH   FROM
6623 @ 51049:               PUSH   FROM
6624 @ 51052:               PUSHI  #0x00000001
6625 @ 51057:               ADD   
6626 @ 51058:               ASSVAL

  1172  {?}  %repeat %until from = dlim
6627 @ 51059:               LINE   1172 "regression-compile-tmp/imp22g-77.imp"
6628 @ 51099:               PUSH   FROM
6629 @ 51102:               PUSH   DLIM
6630 @ 51105:               JUMPIF = L_0004
6631 @ 51109:               REPEAT L_0003
6632 @ 51112:               LOCATE L_0004

  1173  {?}  spaces(6)
6633 @ 51115:               LINE   1173 "regression-compile-tmp/imp22g-77.imp"
6634 @ 51155:               PUSH   SPACES
6635 @ 51158:               PUSHI  #0x00000006
6636 @ 51163:               ASSPAR
6637 @ 51164:               CALL  

  1174  {?}  put string("+-------------------------------------------------------+")
6638 @ 51165:               LINE   1174 "regression-compile-tmp/imp22g-77.imp"
6639 @ 51205:               PUSH   PUTSTRING
6640 @ 51208:               PUSHS  "+-------------------------------------------------------+"
6641 @ 51267:               ASSPAR
6642 @ 51268:               CALL  

  1175  {?}  print line
  1176  !<<BOTH
6643 @ 51269:               LINE   1175 "regression-compile-tmp/imp22g-77.imp"
6644 @ 51309:               PUSH   PRINTLINE
6645 @ 51312:               CALL  

  1177  {?}%end
6646 @ 51313:               LINE   1177 "regression-compile-tmp/imp22g-77.imp"
6647 @ 51353:            END    _lev0id0_SHOWDICT {lev=2 --> 1}

  1178  {?}%routine PUT MNEMONIC(%integer m)
6648 @ 51354:            LINE   1178 "regression-compile-tmp/imp22g-77.imp"
6649 @ 51394:            DEF    PUTMNEMONIC (_lev0id0_PUTMNEMONIC) 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
6650 @ 51417:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
6651 @ 51418:                  DEF    M 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
6652 @ 51431:               FINISH ) {lev=2}

  1179  {?}  m = m<<2
6653 @ 51432:               LINE   1179 "regression-compile-tmp/imp22g-77.imp"
6654 @ 51472:               PUSH   M
6655 @ 51475:               PUSH   M
6656 @ 51478:               PUSHI  #0x00000002
6657 @ 51483:               LSH   
6658 @ 51484:               ASSVAL

  1180  {?}  %cycle
6659 @ 51485:               LINE   1180 "regression-compile-tmp/imp22g-77.imp"
6660 @ 51525:               LOCATE L_0003

  1181  {?}    put sym(m>>27+'A'-1)
6661 @ 51528:               LINE   1181 "regression-compile-tmp/imp22g-77.imp"
6662 @ 51568:               PUSH   PUTSYM
6663 @ 51571:               PUSH   M
6664 @ 51574:               PUSHI  #0x0000001b
6665 @ 51579:               RSH   
6666 @ 51580:               PUSHI  #0x00000041
6667 @ 51585:               ADD   
6668 @ 51586:               PUSHI  #0x00000001
6669 @ 51591:               SUB   
6670 @ 51592:               ASSPAR
6671 @ 51593:               CALL  

  1182  {?}    m = m<<5
6672 @ 51594:               LINE   1182 "regression-compile-tmp/imp22g-77.imp"
6673 @ 51634:               PUSH   M
6674 @ 51637:               PUSH   M
6675 @ 51640:               PUSHI  #0x00000005
6676 @ 51645:               LSH   
6677 @ 51646:               ASSVAL

  1183  {?}  %repeat %until m = 0
6678 @ 51647:               LINE   1183 "regression-compile-tmp/imp22g-77.imp"
6679 @ 51687:               PUSH   M
6680 @ 51690:               PUSHI  #0x00000000
6681 @ 51695:               JUMPIF = L_0004
6682 @ 51699:               REPEAT L_0003
6683 @ 51702:               LOCATE L_0004

  1184  {?}%end
6684 @ 51705:               LINE   1184 "regression-compile-tmp/imp22g-77.imp"
6685 @ 51745:            END    _lev0id0_PUTMNEMONIC {lev=2 --> 1}

  1185  {?}%routine%spec PUT OPCODE(%integer op)
6686 @ 51746:            LINE   1185 "regression-compile-tmp/imp22g-77.imp"
6687 @ 51786:            DEF    PUTOPCODE (_lev0id0_PUTOPCODE) p1=V_0114 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
6688 @ 51807:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
6689 @ 51808:               DEF    OP 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
6690 @ 51822:            FINISH ) {lev=1}

  1186  {?}%routine SHOW EXP(%integer startp)
6691 @ 51823:            LINE   1186 "regression-compile-tmp/imp22g-77.imp"
6692 @ 51863:            DEF    SHOWEXP (_lev0id0_SHOWEXP) p1=V_0115 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
6693 @ 51882:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
6694 @ 51883:                  DEF    STARTP 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
6695 @ 51901:               FINISH ) {lev=2}

  1187  {?}%integer p,q
6696 @ 51902:               LINE   1187 "regression-compile-tmp/imp22g-77.imp"
6697 @ 51942:               DEF    P 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
6698 @ 51955:               DEF    Q 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

  1188  {?}%record(identinfo)%name dp
  1189  {?}
6699 @ 51968:               LINE   1188 "regression-compile-tmp/imp22g-77.imp"
6700 @ 52008:               DEF    DP p1=V_0119 a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  1190  %constinteger bopmax=51
6701 @ 52022:               LINE   1190 "regression-compile-tmp/imp22g-77.imp"

  1191  %constintegerarray EXTRA(32:bopmax) =
  1192  'j'<<25+('a'&31)<<20+('m'&31)<<15+('a'&31)<<10+('s'&31)<<5+('s'&31),
  1193  'o'<<25+('k'&31)<<20+('a'&31)<<15+('s'&31)<<10+('s'&31)<<5,
  1194  'a'<<25+('s'&31)<<20+('s'&31)<<15+('i'&31)<<10+('g'&31)<<5+('n'&31),
  1195  'i'<<25+('n'&31)<<20+('c'&31)<<15+('a'&31)<<10+('s'&31)<<5+('s'&31),
  1196  'f'<<25+('o'&31)<<20+('r'&31)<<15+('a'&31)<<10+('s'&31)<<5+('s'&31),
  1197  's'<<25+('t'&31)<<20+('o'&31)<<15+('p'&31)<<10,
  1198  'r'<<25+('e'&31)<<20+('t'&31)<<15+('u'&31)<<10+('r'&31)<<5+('n'&31),
  1199  'r'<<25+('e'&31)<<20+('p'&31)<<15+('e'&31)<<10+('a'&31)<<5+('t'&31),
  1200  'e'<<25+('l'&31)<<20+('s'&31)<<15+('e'&31)<<10,
  1201  'e'<<25+('x'&31)<<20+('i'&31)<<15+('t'&31)<<10,
  1202  't'<<25+('r'&31)<<20+('a'&31)<<15+('p'&31)<<10,
  1203  's'<<25+('w'&31)<<20+('g'&31)<<15+('o'&31)<<10+('t'&31)<<5+('o'&31),
  1204  'l'<<25+('a'&31)<<20+('b'&31)<<15+('e'&31)<<10+('l'&31)<<5,
  1205  'r'<<25+('e'&31)<<20+('c'&31)<<15+('r'&31)<<10+('e'&31)<<5+('f'&31),
  1206  'p'<<25+('r'&31)<<20+('e'&31)<<15+('l'&31)<<10,
  1207  's'<<25+('t'&31)<<20+('r'&31)<<15+('m'&31)<<10+('a'&31)<<5+('p'&31),
  1208  'i'<<25+('a'&31)<<20+('b'&31)<<15+('s'&31)<<10,
  1209  'f'<<25+('a'&31)<<20+('b'&31)<<15+('s'&31)<<10,
  1210  'e'<<25+('n'&31)<<20+('d'&31)<<15,
  1211  'l'<<25+('o'&31)<<20+('g'&31)<<15+('s'&31)<<10+('u'&31)<<5+('b'&31)
  1212  
6702 @ 52062:               LINE   1191 "regression-compile-tmp/imp22g-77.imp"
6703 @ 52102:               PUSHI  #0x00000020
6704 @ 52107:               PUSHI  #0x00000033
6705 @ 52112:               BOUNDS
6706 @ 52113:               DEF    EXTRA p1=V_011a 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
6707 @ 52130:               PUSHI  #0xd4168673
6708 @ 52135:               INIT   1
6709 @ 52138:               PUSHI  #0xdeb0ce60
6710 @ 52143:               INIT   1
6711 @ 52146:               PUSHI  #0xc339a4ee
6712 @ 52151:               INIT   1
6713 @ 52154:               PUSHI  #0xd2e18673
6714 @ 52159:               INIT   1
6715 @ 52162:               PUSHI  #0xccf90673
6716 @ 52167:               INIT   1
6717 @ 52170:               PUSHI  #0xe747c000
6718 @ 52175:               INIT   1
6719 @ 52178:               PUSHI  #0xe45a564e
6720 @ 52183:               INIT   1
6721 @ 52186:               PUSHI  #0xe4581434
6722 @ 52191:               INIT   1
6723 @ 52194:               PUSHI  #0xcac99400
6724 @ 52199:               INIT   1
6725 @ 52202:               PUSHI  #0xcb84d000
6726 @ 52207:               INIT   1
6727 @ 52210:               PUSHI  #0xe920c000
6728 @ 52215:               INIT   1
6729 @ 52218:               PUSHI  #0xe773be8f
6730 @ 52223:               INIT   1
6731 @ 52226:               PUSHI  #0xd8111580
6732 @ 52231:               INIT   1
6733 @ 52234:               PUSHI  #0xe451c8a6
6734 @ 52239:               INIT   1
6735 @ 52242:               PUSHI  #0xe122b000
6736 @ 52247:               INIT   1
6737 @ 52250:               PUSHI  #0xe7493430
6738 @ 52255:               INIT   1
6739 @ 52258:               PUSHI  #0xd2114c00
6740 @ 52263:               INIT   1
6741 @ 52266:               PUSHI  #0xcc114c00
6742 @ 52271:               INIT   1
6743 @ 52274:               PUSHI  #0xcae20000
6744 @ 52279:               INIT   1
6745 @ 52282:               PUSHI  #0xd8f3cea2
6746 @ 52287:               INIT   1

  1213  {?}%routine PUT OPRAND(%integer v)
6747 @ 52290:               LINE   1213 "regression-compile-tmp/imp22g-77.imp"
6748 @ 52330:               DEF    PUTOPRAND (_lev0id0_SHOWEXP_PUTOPRAND) p1=V_011b 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
6749 @ 52351:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
6750 @ 52352:                     DEF    V 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
6751 @ 52365:                  FINISH ) {lev=3}

  1214  {?}  put sym('#') %and v = v-ad %if v >= explim
6752 @ 52366:                  LINE   1214 "regression-compile-tmp/imp22g-77.imp"
6753 @ 52406:                  PUSH   V
6754 @ 52409:                  PUSH   EXPLIM
6755 @ 52412:                  JUMPIF < L_0004
6756 @ 52416:                  PUSH   PUTSYM
6757 @ 52419:                  PUSHI  #0x00000023
6758 @ 52424:                  ASSPAR
6759 @ 52425:                  CALL  
6760 @ 52426:                  PUSH   V
6761 @ 52429:                  PUSH   V
6762 @ 52432:                  PUSHI  #0x00004000
6763 @ 52437:                  SUB   
6764 @ 52438:                  ASSVAL
6765 @ 52439:                  LOCATE L_0004

  1215  {?}  %if v < np0 %then put operand(v) %else put num(v)
6766 @ 52442:                  LINE   1215 "regression-compile-tmp/imp22g-77.imp"
6767 @ 52482:                  PUSH   V
6768 @ 52485:                  PUSH   NP0
6769 @ 52488:                  JUMPIF >= L_0004
6770 @ 52492:                  PUSH   PUTOPERAND
6771 @ 52495:                  PUSH   V
6772 @ 52498:                  ASSPAR
6773 @ 52499:                  CALL  
6774 @ 52500:                  GOTO   L_0003
6775 @ 52503:                  LOCATE L_0004
6776 @ 52506:                  PUSH   PUTNUM
6777 @ 52509:                  PUSH   V
6778 @ 52512:                  ASSPAR
6779 @ 52513:                  CALL  
6780 @ 52514:                  LOCATE L_0003

  1216  {?}%end
6781 @ 52517:                  LINE   1216 "regression-compile-tmp/imp22g-77.imp"
6782 @ 52557:               END    _lev0id0_SHOWEXP_PUTOPRAND {lev=3 --> 2}

  1217  {?}  print line %if rep # ""
6783 @ 52558:               LINE   1217 "regression-compile-tmp/imp22g-77.imp"
6784 @ 52598:               PUSH   REP
6785 @ 52601:               PUSHS  ""
6786 @ 52603:               JUMPIF = L_0004
6787 @ 52607:               PUSH   PRINTLINE
6788 @ 52610:               CALL  
6789 @ 52611:               LOCATE L_0004

  1218  {?}  %return %unless np > np0
6790 @ 52614:               LINE   1218 "regression-compile-tmp/imp22g-77.imp"
6791 @ 52654:               PUSH   NP
6792 @ 52657:               PUSH   NP0
6793 @ 52660:               JUMPIF > L_0004
6794 @ 52664:               RETURN
6795 @ 52665:               LOCATE L_0004

  1219  {?}  put string("      ______action_______first_______second____")
6796 @ 52668:               LINE   1219 "regression-compile-tmp/imp22g-77.imp"
6797 @ 52708:               PUSH   PUTSTRING
6798 @ 52711:               PUSHS  "      ______action_______first_______second____"
6799 @ 52760:               ASSPAR
6800 @ 52761:               CALL  

  1220  {?}  print line
6801 @ 52762:               LINE   1220 "regression-compile-tmp/imp22g-77.imp"
6802 @ 52802:               PUSH   PRINTLINE
6803 @ 52805:               CALL  

  1221  {?}  p = np0
6804 @ 52806:               LINE   1221 "regression-compile-tmp/imp22g-77.imp"
6805 @ 52846:               PUSH   P
6806 @ 52849:               PUSH   NP0
6807 @ 52852:               ASSVAL

  1222  {?}  %cycle
6808 @ 52853:               LINE   1222 "regression-compile-tmp/imp22g-77.imp"
6809 @ 52893:               LOCATE L_0003

  1223  {?}    %if p = np %start
6810 @ 52896:               LINE   1223 "regression-compile-tmp/imp22g-77.imp"
6811 @ 52936:               PUSH   P
6812 @ 52939:               PUSH   NP
6813 @ 52942:               JUMPIF # L_0007

  1224  {?}      p = explo
6814 @ 52946:               LINE   1224 "regression-compile-tmp/imp22g-77.imp"
6815 @ 52986:               PUSH   P
6816 @ 52989:               PUSH   EXPLO
6817 @ 52992:               ASSVAL

  1225  {?}      %exit %if p >= oldexplo
6818 @ 52993:               LINE   1225 "regression-compile-tmp/imp22g-77.imp"
6819 @ 53033:               PUSH   P
6820 @ 53036:               PUSH   OLDEXPLO
6821 @ 53039:               JUMPIF < L_000a
6822 @ 53043:               GOTO   L_0004
6823 @ 53046:               LOCATE L_000a

  1226  {?}      put string("      |---------------------------------------|")
6824 @ 53049:               LINE   1226 "regression-compile-tmp/imp22g-77.imp"
6825 @ 53089:               PUSH   PUTSTRING
6826 @ 53092:               PUSHS  "      |---------------------------------------|"
6827 @ 53141:               ASSPAR
6828 @ 53142:               CALL  

  1227  {?}      print line
6829 @ 53143:               LINE   1227 "regression-compile-tmp/imp22g-77.imp"
6830 @ 53183:               PUSH   PRINTLINE
6831 @ 53186:               CALL  

  1228  {?}    %finish
6832 @ 53187:               LINE   1228 "regression-compile-tmp/imp22g-77.imp"
6833 @ 53227:               LOCATE L_0007

  1229  {?}    %if p = startp %then put sym('>') %else put sym(' ')
6834 @ 53230:               LINE   1229 "regression-compile-tmp/imp22g-77.imp"
6835 @ 53270:               PUSH   P
6836 @ 53273:               PUSH   STARTP
6837 @ 53276:               JUMPIF # L_0007
6838 @ 53280:               PUSH   PUTSYM
6839 @ 53283:               PUSHI  #0x0000003e
6840 @ 53288:               ASSPAR
6841 @ 53289:               CALL  
6842 @ 53290:               GOTO   L_0006
6843 @ 53293:               LOCATE L_0007
6844 @ 53296:               PUSH   PUTSYM
6845 @ 53299:               PUSHI  #0x00000020
6846 @ 53304:               ASSPAR
6847 @ 53305:               CALL  
6848 @ 53306:               LOCATE L_0006

  1230  {?}    put num(p);  mark at(6)
6849 @ 53309:               LINE   1230 "regression-compile-tmp/imp22g-77.imp"
6850 @ 53349:               PUSH   PUTNUM
6851 @ 53352:               PUSH   P
6852 @ 53355:               ASSPAR
6853 @ 53356:               CALL  
6854 @ 53357:               LINE   1230 "regression-compile-tmp/imp22g-77.imp"
6855 @ 53397:               PUSH   MARKAT
6856 @ 53400:               PUSHI  #0x00000006
6857 @ 53405:               ASSPAR
6858 @ 53406:               CALL  

  1231  {?}    dp == dict(p)
6859 @ 53407:               LINE   1231 "regression-compile-tmp/imp22g-77.imp"
6860 @ 53447:               PUSH   DP
6861 @ 53450:               PUSH   DICT
6862 @ 53453:               PUSH   P
6863 @ 53456:               ACCESS
6864 @ 53457:               ASSREF

  1232  {?}    put sym(' ')
6865 @ 53458:               LINE   1232 "regression-compile-tmp/imp22g-77.imp"
6866 @ 53498:               PUSH   PUTSYM
6867 @ 53501:               PUSHI  #0x00000020
6868 @ 53506:               ASSPAR
6869 @ 53507:               CALL  

  1233  {?}    q = dp_act
6870 @ 53508:               LINE   1233 "regression-compile-tmp/imp22g-77.imp"
6871 @ 53548:               PUSH   Q
6872 @ 53551:               PUSH   DP
6873 @ 53554:               SELECT 6
6874 @ 53557:               ASSVAL

  1234  {?}    %if q <= 31 %start
6875 @ 53558:               LINE   1234 "regression-compile-tmp/imp22g-77.imp"
6876 @ 53598:               PUSH   Q
6877 @ 53601:               PUSHI  #0x0000001f
6878 @ 53606:               JUMPIF > L_0007

  1235  {?}         put opcode(q)
6879 @ 53610:               LINE   1235 "regression-compile-tmp/imp22g-77.imp"
6880 @ 53650:               PUSH   PUTOPCODE
6881 @ 53653:               PUSH   Q
6882 @ 53656:               ASSPAR
6883 @ 53657:               CALL  

  1236  {?}    %finish %else %if q <= bopmax %start
6884 @ 53658:               LINE   1236 "regression-compile-tmp/imp22g-77.imp"
6885 @ 53698:               GOTO   L_0006
6886 @ 53701:               LOCATE L_0007
6887 @ 53704:               PUSH   Q
6888 @ 53707:               PUSHI  #0x00000033
6889 @ 53712:               JUMPIF > L_0007

  1237  {?}       put mnemonic(extra(q))
6890 @ 53716:               LINE   1237 "regression-compile-tmp/imp22g-77.imp"
6891 @ 53756:               PUSH   PUTMNEMONIC
6892 @ 53759:               PUSH   EXTRA
6893 @ 53762:               PUSH   Q
6894 @ 53765:               ACCESS
6895 @ 53766:               ASSPAR
6896 @ 53767:               CALL  

  1238  {?}    %else
6897 @ 53768:               LINE   1238 "regression-compile-tmp/imp22g-77.imp"
6898 @ 53808:               GOTO   L_0006
6899 @ 53811:               LOCATE L_0007

  1239  {?}        put ident(q,0)
6900 @ 53814:               LINE   1239 "regression-compile-tmp/imp22g-77.imp"
6901 @ 53854:               PUSH   PUTIDENT
6902 @ 53857:               PUSH   Q
6903 @ 53860:               ASSPAR
6904 @ 53861:               PUSHI  #0x00000000
6905 @ 53866:               ASSPAR
6906 @ 53867:               CALL  

  1240  {?}    %finish
6907 @ 53868:               LINE   1240 "regression-compile-tmp/imp22g-77.imp"
6908 @ 53908:               LOCATE L_0006

  1241  {?}    mark at(22)
6909 @ 53911:               LINE   1241 "regression-compile-tmp/imp22g-77.imp"
6910 @ 53951:               PUSH   MARKAT
6911 @ 53954:               PUSHI  #0x00000016
6912 @ 53959:               ASSPAR
6913 @ 53960:               CALL  

  1242  {?}    put sym(' ');  put oprand(dp_x);  mark at(34)
6914 @ 53961:               LINE   1242 "regression-compile-tmp/imp22g-77.imp"
6915 @ 54001:               PUSH   PUTSYM
6916 @ 54004:               PUSHI  #0x00000020
6917 @ 54009:               ASSPAR
6918 @ 54010:               CALL  
6919 @ 54011:               LINE   1242 "regression-compile-tmp/imp22g-77.imp"
6920 @ 54051:               PUSH   PUTOPRAND
6921 @ 54054:               PUSH   DP
6922 @ 54057:               SELECT 13
6923 @ 54060:               ASSPAR
6924 @ 54061:               CALL  
6925 @ 54062:               LINE   1242 "regression-compile-tmp/imp22g-77.imp"
6926 @ 54102:               PUSH   MARKAT
6927 @ 54105:               PUSHI  #0x00000022
6928 @ 54110:               ASSPAR
6929 @ 54111:               CALL  

  1243  {?}    put sym(' ');  put oprand(dp_y);  mark at(46)
6930 @ 54112:               LINE   1243 "regression-compile-tmp/imp22g-77.imp"
6931 @ 54152:               PUSH   PUTSYM
6932 @ 54155:               PUSHI  #0x00000020
6933 @ 54160:               ASSPAR
6934 @ 54161:               CALL  
6935 @ 54162:               LINE   1243 "regression-compile-tmp/imp22g-77.imp"
6936 @ 54202:               PUSH   PUTOPRAND
6937 @ 54205:               PUSH   DP
6938 @ 54208:               SELECT 14
6939 @ 54211:               ASSPAR
6940 @ 54212:               CALL  
6941 @ 54213:               LINE   1243 "regression-compile-tmp/imp22g-77.imp"
6942 @ 54253:               PUSH   MARKAT
6943 @ 54256:               PUSHI  #0x0000002e
6944 @ 54261:               ASSPAR
6945 @ 54262:               CALL  

  1244  {?}    %if p >= explo %start
6946 @ 54263:               LINE   1244 "regression-compile-tmp/imp22g-77.imp"
6947 @ 54303:               PUSH   P
6948 @ 54306:               PUSH   EXPLO
6949 @ 54309:               JUMPIF < L_0007

  1245  {?}      put spnum(dp_type)
6950 @ 54313:               LINE   1245 "regression-compile-tmp/imp22g-77.imp"
6951 @ 54353:               PUSH   PUTSPNUM
6952 @ 54356:               PUSH   DP
6953 @ 54359:               SELECT 2
6954 @ 54362:               ASSPAR
6955 @ 54363:               CALL  

  1246  {?}      put sym('*') %if dp_flags < 0
6956 @ 54364:               LINE   1246 "regression-compile-tmp/imp22g-77.imp"
6957 @ 54404:               PUSH   DP
6958 @ 54407:               SELECT 1
6959 @ 54410:               PUSHI  #0x00000000
6960 @ 54415:               JUMPIF >= L_000a
6961 @ 54419:               PUSH   PUTSYM
6962 @ 54422:               PUSHI  #0x0000002a
6963 @ 54427:               ASSPAR
6964 @ 54428:               CALL  
6965 @ 54429:               LOCATE L_000a

  1247  {?}    %finish
6966 @ 54432:               LINE   1247 "regression-compile-tmp/imp22g-77.imp"
6967 @ 54472:               LOCATE L_0007

  1248  {?}    print line
6968 @ 54475:               LINE   1248 "regression-compile-tmp/imp22g-77.imp"
6969 @ 54515:               PUSH   PRINTLINE
6970 @ 54518:               CALL  

  1249  {?}    p = p+1
6971 @ 54519:               LINE   1249 "regression-compile-tmp/imp22g-77.imp"
6972 @ 54559:               PUSH   P
6973 @ 54562:               PUSH   P
6974 @ 54565:               PUSHI  #0x00000001
6975 @ 54570:               ADD   
6976 @ 54571:               ASSVAL

  1250  {?}  %repeat %until p >= oldexplo
6977 @ 54572:               LINE   1250 "regression-compile-tmp/imp22g-77.imp"
6978 @ 54612:               PUSH   P
6979 @ 54615:               PUSH   OLDEXPLO
6980 @ 54618:               JUMPIF >= L_0004
6981 @ 54622:               REPEAT L_0003
6982 @ 54625:               LOCATE L_0004

  1251  {?}  oldexplo = explo
6983 @ 54628:               LINE   1251 "regression-compile-tmp/imp22g-77.imp"
6984 @ 54668:               PUSH   OLDEXPLO
6985 @ 54671:               PUSH   EXPLO
6986 @ 54674:               ASSVAL

  1252  {?}  put string("      +---------------------------------------+")
6987 @ 54675:               LINE   1252 "regression-compile-tmp/imp22g-77.imp"
6988 @ 54715:               PUSH   PUTSTRING
6989 @ 54718:               PUSHS  "      +---------------------------------------+"
6990 @ 54767:               ASSPAR
6991 @ 54768:               CALL  

  1253  {?}  print line
6992 @ 54769:               LINE   1253 "regression-compile-tmp/imp22g-77.imp"
6993 @ 54809:               PUSH   PRINTLINE
6994 @ 54812:               CALL  

  1254  {?}%end
  1255  {?}!
  1256  !
  1257  !!!!!!!!!!!!!!!!!!!!!!!!!!!! Fault reporting  !!!!!!!!!!!!!!!!!!!!!!!!!!!
  1258  !
6995 @ 54813:               LINE   1254 "regression-compile-tmp/imp22g-77.imp"
6996 @ 54853:            END    _lev0id0_SHOWEXP {lev=2 --> 1}

  1259  %routine CROAK(%string(255) s)
6997 @ 54854:            LINE   1259 "regression-compile-tmp/imp22g-77.imp"
6998 @ 54894:            DEF    CROAK (_lev0id0_CROAK) 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
6999 @ 54911:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
7000 @ 54912:                  DEF    S p1=V_0117 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
7001 @ 54925:               FINISH ) {lev=2}

  1260    select output(0)
7002 @ 54926:               LINE   1260 "regression-compile-tmp/imp22g-77.imp"
7003 @ 54966:               PUSH   SELECTOUTPUT
7004 @ 54969:               PUSHI  #0x00000000
7005 @ 54974:               ASSPAR
7006 @ 54975:               CALL  

  1261    put string("** ");  put string(s)
7007 @ 54976:               LINE   1261 "regression-compile-tmp/imp22g-77.imp"
7008 @ 55016:               PUSH   PUTSTRING
7009 @ 55019:               PUSHS  "** "
7010 @ 55024:               ASSPAR
7011 @ 55025:               CALL  
7012 @ 55026:               LINE   1261 "regression-compile-tmp/imp22g-77.imp"
7013 @ 55066:               PUSH   PUTSTRING
7014 @ 55069:               PUSH   S
7015 @ 55072:               ASSPAR
7016 @ 55073:               CALL  

  1262    put string(".  Compilation abandoned at line ");  put num(line)
7017 @ 55074:               LINE   1262 "regression-compile-tmp/imp22g-77.imp"
7018 @ 55114:               PUSH   PUTSTRING
7019 @ 55117:               PUSHS  ".  Compilation abandoned at line "
7020 @ 55152:               ASSPAR
7021 @ 55153:               CALL  
7022 @ 55154:               LINE   1262 "regression-compile-tmp/imp22g-77.imp"
7023 @ 55194:               PUSH   PUTNUM
7024 @ 55197:               PUSH   LINE
7025 @ 55200:               ASSPAR
7026 @ 55201:               CALL  

  1263    print line
7027 @ 55202:               LINE   1263 "regression-compile-tmp/imp22g-77.imp"
7028 @ 55242:               PUSH   PRINTLINE
7029 @ 55245:               CALL  

  1264    %signal abandon
7030 @ 55246:               LINE   1264 "regression-compile-tmp/imp22g-77.imp"
7031 @ 55286:               EVENT  000e

  1265  %end
  1266  
  1267  !<<IMP
  1268  
  1269  !!  Fault numbers
7032 @ 55289:               LINE   1265 "regression-compile-tmp/imp22g-77.imp"
7033 @ 55329:            END    _lev0id0_CROAK {lev=2 --> 1}

  1270  %constinteger INTERNERR=1, PLEXERR=2, CREACHERR=3, REACHERR=4
7034 @ 55330:            LINE   1270 "regression-compile-tmp/imp22g-77.imp"

  1271  %constinteger NORESULT=5, DREACHERR=6
7035 @ 55370:            LINE   1271 "regression-compile-tmp/imp22g-77.imp"

  1272  %constinteger FORMERR=7, ATOMERR=8, NAMERR=9, CLASSERR=10
7036 @ 55410:            LINE   1272 "regression-compile-tmp/imp22g-77.imp"

  1273  %constinteger SIZERR=11, TYPERR=12, BOUNDSERR=13, UNENDING=14
7037 @ 55450:            LINE   1273 "regression-compile-tmp/imp22g-77.imp"

  1274  %constinteger LOWLEVEL=15, ACCESSERR=16, NOTINLOOP=17, NOTINROUT=18
7038 @ 55490:            LINE   1274 "regression-compile-tmp/imp22g-77.imp"

  1275  %constinteger NOTINFUN=19, NOTINPRED=20, DUPERR=21
7039 @ 55530:            LINE   1275 "regression-compile-tmp/imp22g-77.imp"

  1276  %constinteger ORDERERR=22, MATCHERR=23, RANGERR=24, NONLITERAL=25
7040 @ 55570:            LINE   1276 "regression-compile-tmp/imp22g-77.imp"

  1277  %constinteger MOPERR=26, NOCYCLE=27
7041 @ 55610:            LINE   1277 "regression-compile-tmp/imp22g-77.imp"

  1278  %constinteger NOSTART=28, NOIF=29, ILLSTARRED=30, NONSTARTER=31
7042 @ 55650:            LINE   1278 "regression-compile-tmp/imp22g-77.imp"

  1279  %constinteger NONVAR=32, NONREF=33, TOOFEW=34, TOOMANY=35
7043 @ 55690:            LINE   1279 "regression-compile-tmp/imp22g-77.imp"

  1280  %constinteger NOBEGIN=36, DUBIOUS=37, NOTINBLOCK=38
7044 @ 55730:            LINE   1280 "regression-compile-tmp/imp22g-77.imp"

  1281  %constinteger NONSTAND=39, NOTIN=40, ASSERR=41
7045 @ 55770:            LINE   1281 "regression-compile-tmp/imp22g-77.imp"

  1282  %constinteger NOEND=42, NOFINISH=43, NOREPEAT=44
7046 @ 55810:            LINE   1282 "regression-compile-tmp/imp22g-77.imp"

  1283  %constinteger COUNTERR=45, SLABMISSING=46, IDMISSING=47
7047 @ 55850:            LINE   1283 "regression-compile-tmp/imp22g-77.imp"

  1284  %constinteger POINT=64, WARN=-128, NOW=128
  1285  !
7048 @ 55890:            LINE   1284 "regression-compile-tmp/imp22g-77.imp"

  1286  %routine REPORT(%integer n,id,num)
7049 @ 55930:            LINE   1286 "regression-compile-tmp/imp22g-77.imp"
7050 @ 55970:            DEF    REPORT (_lev0id0_REPORT) p1=V_0117 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
7051 @ 55988:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
7052 @ 55989:                  DEF    N 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
7053 @ 56002:                  DEF    ID 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
7054 @ 56016:                  DEF    NUM 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
7055 @ 56031:               FINISH ) {lev=2}

  1287  %owninteger lastchange=0
7056 @ 56032:               LINE   1287 "regression-compile-tmp/imp22g-77.imp"
7057 @ 56072:               PUSHI  #0x00000000
7058 @ 56077:               DEF    LASTCHANGE p1=V_011b 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
7059 @ 56099:               INIT   1

  1288  %integer mark,start,errline
  1289  
7060 @ 56102:               LINE   1288 "regression-compile-tmp/imp22g-77.imp"
7061 @ 56142:               DEF    MARK 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
7062 @ 56158:               DEF    START 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
7063 @ 56175:               DEF    ERRLINE 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

  1290  %routine PRINT TEXT(%integer stream)
7064 @ 56194:               LINE   1290 "regression-compile-tmp/imp22g-77.imp"
7065 @ 56234:               DEF    PRINTTEXT (_lev0id0_REPORT_PRINTTEXT) 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
7066 @ 56255:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
7067 @ 56256:                     DEF    STREAM 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
7068 @ 56274:                  FINISH ) {lev=3}

  1291  %constinteger esc=27
7069 @ 56275:                  LINE   1291 "regression-compile-tmp/imp22g-77.imp"

  1292  %integer k,p
  1293  
7070 @ 56315:                  LINE   1292 "regression-compile-tmp/imp22g-77.imp"
7071 @ 56355:                  DEF    K 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
7072 @ 56368:                  DEF    P 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

  1294  %conststring(15)%array MESSAGE(1:44) =
  1295    "Internal error ", "Reg not free",
  1296    "Out of reach ",  " out of reach!",
  1297    "RESULT missing", "Out of reach",
  1298    "Faulty form", "Unknown atom",
  1299    "Unknown name", "Wrong class",
  1300    "Wrong size", "Wrong type",
  1301    "Inside out", "Endless loop",
  1302    "Low level", "Not accessible",
  1303    "Not in loop", "Not in routine",
  1304    "Not in fn/map", "Not in pred",
  1305    "Duplicate",
  1306    "Out of order", "Mismatch",
  1307    "Out of range", "Not literal",
  1308    "Faulty operand", "%CYCLE missing",
  1309    "%START missing", "Extra %ELSE",
  1310    "Ill-starred", "Non-starter",
  1311    "Not variable", "Not reference",
  1312    "Too few args", "Too many args",
  1313    "%BEGIN missing",
  1314    "Dubious usage", "Not in block",
  1315    "Nonstandard ", "Not supported",
  1316    " void",
  1317    "%END missing",
  1318    "%FINISH missing", "%REPEAT missing"
  1319  
  1320  !<<BOTH
  1321  
7073 @ 56381:                  LINE   1294 "regression-compile-tmp/imp22g-77.imp"
7074 @ 56421:                  PUSHI  #0x00000001
7075 @ 56426:                  PUSHI  #0x0000002c
7076 @ 56431:                  BOUNDS
7077 @ 56432:                  DEF    MESSAGE p1=V_0123 a/tf=3b b/format=f c/ostate=112  type=3 (string) form=11 (array) special=0 (<special:0>) linkage=2 (constant) spec=0 indirect=1 unass=0
7078 @ 56451:                  PUSHS  "Internal error "
7079 @ 56468:                  INIT   1
7080 @ 56471:                  PUSHS  "Reg not free"
7081 @ 56485:                  INIT   1
7082 @ 56488:                  PUSHS  "Out of reach "
7083 @ 56503:                  INIT   1
7084 @ 56506:                  PUSHS  " out of reach!"
7085 @ 56522:                  INIT   1
7086 @ 56525:                  PUSHS  "RESULT missing"
7087 @ 56541:                  INIT   1
7088 @ 56544:                  PUSHS  "Out of reach"
7089 @ 56558:                  INIT   1
7090 @ 56561:                  PUSHS  "Faulty form"
7091 @ 56574:                  INIT   1
7092 @ 56577:                  PUSHS  "Unknown atom"
7093 @ 56591:                  INIT   1
7094 @ 56594:                  PUSHS  "Unknown name"
7095 @ 56608:                  INIT   1
7096 @ 56611:                  PUSHS  "Wrong class"
7097 @ 56624:                  INIT   1
7098 @ 56627:                  PUSHS  "Wrong size"
7099 @ 56639:                  INIT   1
7100 @ 56642:                  PUSHS  "Wrong type"
7101 @ 56654:                  INIT   1
7102 @ 56657:                  PUSHS  "Inside out"
7103 @ 56669:                  INIT   1
7104 @ 56672:                  PUSHS  "Endless loop"
7105 @ 56686:                  INIT   1
7106 @ 56689:                  PUSHS  "Low level"
7107 @ 56700:                  INIT   1
7108 @ 56703:                  PUSHS  "Not accessible"
7109 @ 56719:                  INIT   1
7110 @ 56722:                  PUSHS  "Not in loop"
7111 @ 56735:                  INIT   1
7112 @ 56738:                  PUSHS  "Not in routine"
7113 @ 56754:                  INIT   1
7114 @ 56757:                  PUSHS  "Not in fn/map"
7115 @ 56772:                  INIT   1
7116 @ 56775:                  PUSHS  "Not in pred"
7117 @ 56788:                  INIT   1
7118 @ 56791:                  PUSHS  "Duplicate"
7119 @ 56802:                  INIT   1
7120 @ 56805:                  PUSHS  "Out of order"
7121 @ 56819:                  INIT   1
7122 @ 56822:                  PUSHS  "Mismatch"
7123 @ 56832:                  INIT   1
7124 @ 56835:                  PUSHS  "Out of range"
7125 @ 56849:                  INIT   1
7126 @ 56852:                  PUSHS  "Not literal"
7127 @ 56865:                  INIT   1
7128 @ 56868:                  PUSHS  "Faulty operand"
7129 @ 56884:                  INIT   1
7130 @ 56887:                  PUSHS  "%CYCLE missing"
7131 @ 56903:                  INIT   1
7132 @ 56906:                  PUSHS  "%START missing"
7133 @ 56922:                  INIT   1
7134 @ 56925:                  PUSHS  "Extra %ELSE"
7135 @ 56938:                  INIT   1
7136 @ 56941:                  PUSHS  "Ill-starred"
7137 @ 56954:                  INIT   1
7138 @ 56957:                  PUSHS  "Non-starter"
7139 @ 56970:                  INIT   1
7140 @ 56973:                  PUSHS  "Not variable"
7141 @ 56987:                  INIT   1
7142 @ 56990:                  PUSHS  "Not reference"
7143 @ 57005:                  INIT   1
7144 @ 57008:                  PUSHS  "Too few args"
7145 @ 57022:                  INIT   1
7146 @ 57025:                  PUSHS  "Too many args"
7147 @ 57040:                  INIT   1
7148 @ 57043:                  PUSHS  "%BEGIN missing"
7149 @ 57059:                  INIT   1
7150 @ 57062:                  PUSHS  "Dubious usage"
7151 @ 57077:                  INIT   1
7152 @ 57080:                  PUSHS  "Not in block"
7153 @ 57094:                  INIT   1
7154 @ 57097:                  PUSHS  "Nonstandard "
7155 @ 57111:                  INIT   1
7156 @ 57114:                  PUSHS  "Not supported"
7157 @ 57129:                  INIT   1
7158 @ 57132:                  PUSHS  " void"
7159 @ 57139:                  INIT   1
7160 @ 57142:                  PUSHS  "%END missing"
7161 @ 57156:                  INIT   1
7162 @ 57159:                  PUSHS  "%FINISH missing"
7163 @ 57176:                  INIT   1
7164 @ 57179:                  PUSHS  "%REPEAT missing"
7165 @ 57196:                  INIT   1

  1322    put sym(mark)
7166 @ 57199:                  LINE   1322 "regression-compile-tmp/imp22g-77.imp"
7167 @ 57239:                  PUSH   PUTSYM
7168 @ 57242:                  PUSH   MARK
7169 @ 57245:                  ASSPAR
7170 @ 57246:                  CALL  

  1323    put sym(' ') %if errline < 1000
7171 @ 57247:                  LINE   1323 "regression-compile-tmp/imp22g-77.imp"
7172 @ 57287:                  PUSH   ERRLINE
7173 @ 57290:                  PUSHI  #0x000003e8
7174 @ 57295:                  JUMPIF >= L_0004
7175 @ 57299:                  PUSH   PUTSYM
7176 @ 57302:                  PUSHI  #0x00000020
7177 @ 57307:                  ASSPAR
7178 @ 57308:                  CALL  
7179 @ 57309:                  LOCATE L_0004

  1324    put sym(' ') %if errline < 100
7180 @ 57312:                  LINE   1324 "regression-compile-tmp/imp22g-77.imp"
7181 @ 57352:                  PUSH   ERRLINE
7182 @ 57355:                  PUSHI  #0x00000064
7183 @ 57360:                  JUMPIF >= L_0004
7184 @ 57364:                  PUSH   PUTSYM
7185 @ 57367:                  PUSHI  #0x00000020
7186 @ 57372:                  ASSPAR
7187 @ 57373:                  CALL  
7188 @ 57374:                  LOCATE L_0004

  1325    put sym(' ') %if errline < 10
7189 @ 57377:                  LINE   1325 "regression-compile-tmp/imp22g-77.imp"
7190 @ 57417:                  PUSH   ERRLINE
7191 @ 57420:                  PUSHI  #0x0000000a
7192 @ 57425:                  JUMPIF >= L_0004
7193 @ 57429:                  PUSH   PUTSYM
7194 @ 57432:                  PUSHI  #0x00000020
7195 @ 57437:                  ASSPAR
7196 @ 57438:                  CALL  
7197 @ 57439:                  LOCATE L_0004

  1326    put num(errline)
7198 @ 57442:                  LINE   1326 "regression-compile-tmp/imp22g-77.imp"
7199 @ 57482:                  PUSH   PUTNUM
7200 @ 57485:                  PUSH   ERRLINE
7201 @ 57488:                  ASSPAR
7202 @ 57489:                  CALL  

  1327    put sym(listflag);  put sym(' ')
7203 @ 57490:                  LINE   1327 "regression-compile-tmp/imp22g-77.imp"
7204 @ 57530:                  PUSH   PUTSYM
7205 @ 57533:                  PUSH   LISTFLAG
7206 @ 57536:                  ASSPAR
7207 @ 57537:                  CALL  
7208 @ 57538:                  LINE   1327 "regression-compile-tmp/imp22g-77.imp"
7209 @ 57578:                  PUSH   PUTSYM
7210 @ 57581:                  PUSHI  #0x00000020
7211 @ 57586:                  ASSPAR
7212 @ 57587:                  CALL  

  1328    k = n&63
7213 @ 57588:                  LINE   1328 "regression-compile-tmp/imp22g-77.imp"
7214 @ 57628:                  PUSH   K
7215 @ 57631:                  PUSH   N
7216 @ 57634:                  PUSHI  #0x0000003f
7217 @ 57639:                  AND   
7218 @ 57640:                  ASSVAL

  1329    %if k >= counterr %start
7219 @ 57641:                  LINE   1329 "regression-compile-tmp/imp22g-77.imp"
7220 @ 57681:                  PUSH   K
7221 @ 57684:                  PUSHI  #0x0000002d
7222 @ 57689:                  JUMPIF < L_0004

  1330      %if k = counterr %start
7223 @ 57693:                  LINE   1330 "regression-compile-tmp/imp22g-77.imp"
7224 @ 57733:                  PUSH   K
7225 @ 57736:                  PUSHI  #0x0000002d
7226 @ 57741:                  JUMPIF # L_0007

  1331        %if num < 0 %start
7227 @ 57745:                  LINE   1331 "regression-compile-tmp/imp22g-77.imp"
7228 @ 57785:                  PUSH   NUM
7229 @ 57788:                  PUSHI  #0x00000000
7230 @ 57793:                  JUMPIF >= L_000a

  1332          put num(-num);  put string(" extra")
7231 @ 57797:                  LINE   1332 "regression-compile-tmp/imp22g-77.imp"
7232 @ 57837:                  PUSH   PUTNUM
7233 @ 57840:                  PUSH   NUM
7234 @ 57843:                  NEGATE
7235 @ 57844:                  ASSPAR
7236 @ 57845:                  CALL  
7237 @ 57846:                  LINE   1332 "regression-compile-tmp/imp22g-77.imp"
7238 @ 57886:                  PUSH   PUTSTRING
7239 @ 57889:                  PUSHS  " extra"
7240 @ 57897:                  ASSPAR
7241 @ 57898:                  CALL  

  1333        %else
7242 @ 57899:                  LINE   1333 "regression-compile-tmp/imp22g-77.imp"
7243 @ 57939:                  GOTO   L_0009
7244 @ 57942:                  LOCATE L_000a

  1334          put num(num) %if num # 0;  put string(" missing")
7245 @ 57945:                  LINE   1334 "regression-compile-tmp/imp22g-77.imp"
7246 @ 57985:                  PUSH   NUM
7247 @ 57988:                  PUSHI  #0x00000000
7248 @ 57993:                  JUMPIF = L_000d
7249 @ 57997:                  PUSH   PUTNUM
7250 @ 58000:                  PUSH   NUM
7251 @ 58003:                  ASSPAR
7252 @ 58004:                  CALL  
7253 @ 58005:                  LOCATE L_000d
7254 @ 58008:                  LINE   1334 "regression-compile-tmp/imp22g-77.imp"
7255 @ 58048:                  PUSH   PUTSTRING
7256 @ 58051:                  PUSHS  " missing"
7257 @ 58061:                  ASSPAR
7258 @ 58062:                  CALL  

  1335        %finish
7259 @ 58063:                  LINE   1335 "regression-compile-tmp/imp22g-77.imp"
7260 @ 58103:                  LOCATE L_0009

  1336        put string(" value(s) for ")
7261 @ 58106:                  LINE   1336 "regression-compile-tmp/imp22g-77.imp"
7262 @ 58146:                  PUSH   PUTSTRING
7263 @ 58149:                  PUSHS  " value(s) for "
7264 @ 58165:                  ASSPAR
7265 @ 58166:                  CALL  

  1337        put ident(id,0)
7266 @ 58167:                  LINE   1337 "regression-compile-tmp/imp22g-77.imp"
7267 @ 58207:                  PUSH   PUTIDENT
7268 @ 58210:                  PUSH   ID
7269 @ 58213:                  ASSPAR
7270 @ 58214:                  PUSHI  #0x00000000
7271 @ 58219:                  ASSPAR
7272 @ 58220:                  CALL  

  1338        %return
7273 @ 58221:                  LINE   1338 "regression-compile-tmp/imp22g-77.imp"
7274 @ 58261:                  RETURN

  1339      %finish
7275 @ 58262:                  LINE   1339 "regression-compile-tmp/imp22g-77.imp"
7276 @ 58302:                  LOCATE L_0007

  1340      %if k # slabmissing %start
7277 @ 58305:                  LINE   1340 "regression-compile-tmp/imp22g-77.imp"
7278 @ 58345:                  PUSH   K
7279 @ 58348:                  PUSHI  #0x0000002e
7280 @ 58353:                  JUMPIF = L_0007

  1341        put ident(id,1)
7281 @ 58357:                  LINE   1341 "regression-compile-tmp/imp22g-77.imp"
7282 @ 58397:                  PUSH   PUTIDENT
7283 @ 58400:                  PUSH   ID
7284 @ 58403:                  ASSPAR
7285 @ 58404:                  PUSHI  #0x00000001
7286 @ 58409:                  ASSPAR
7287 @ 58410:                  CALL  

  1342      %else
7288 @ 58411:                  LINE   1342 "regression-compile-tmp/imp22g-77.imp"
7289 @ 58451:                  GOTO   L_0006
7290 @ 58454:                  LOCATE L_0007

  1343        put ident(id,0)
7291 @ 58457:                  LINE   1343 "regression-compile-tmp/imp22g-77.imp"
7292 @ 58497:                  PUSH   PUTIDENT
7293 @ 58500:                  PUSH   ID
7294 @ 58503:                  ASSPAR
7295 @ 58504:                  PUSHI  #0x00000000
7296 @ 58509:                  ASSPAR
7297 @ 58510:                  CALL  

  1344        put sym('(');  put num(num);  put sym(')')
7298 @ 58511:                  LINE   1344 "regression-compile-tmp/imp22g-77.imp"
7299 @ 58551:                  PUSH   PUTSYM
7300 @ 58554:                  PUSHI  #0x00000028
7301 @ 58559:                  ASSPAR
7302 @ 58560:                  CALL  
7303 @ 58561:                  LINE   1344 "regression-compile-tmp/imp22g-77.imp"
7304 @ 58601:                  PUSH   PUTNUM
7305 @ 58604:                  PUSH   NUM
7306 @ 58607:                  ASSPAR
7307 @ 58608:                  CALL  
7308 @ 58609:                  LINE   1344 "regression-compile-tmp/imp22g-77.imp"
7309 @ 58649:                  PUSH   PUTSYM
7310 @ 58652:                  PUSHI  #0x00000029
7311 @ 58657:                  ASSPAR
7312 @ 58658:                  CALL  

  1345      %finish
7313 @ 58659:                  LINE   1345 "regression-compile-tmp/imp22g-77.imp"
7314 @ 58699:                  LOCATE L_0006

  1346      put string(" missing")
7315 @ 58702:                  LINE   1346 "regression-compile-tmp/imp22g-77.imp"
7316 @ 58742:                  PUSH   PUTSTRING
7317 @ 58745:                  PUSHS  " missing"
7318 @ 58755:                  ASSPAR
7319 @ 58756:                  CALL  

  1347  mend:
7320 @ 58757:                  LINE   1347 "regression-compile-tmp/imp22g-77.imp"
7321 @ 58797:                  LABEL  L_0124

  1348      %if c_dpid_text # 0 %start
7322 @ 58800:                  LINE   1348 "regression-compile-tmp/imp22g-77.imp"
7323 @ 58840:                  PUSH   C
7324 @ 58843:                  SELECT 29
7325 @ 58846:                  SELECT 11
7326 @ 58849:                  PUSHI  #0x00000000
7327 @ 58854:                  JUMPIF = L_0007

  1349        put string(" in ")
7328 @ 58858:                  LINE   1349 "regression-compile-tmp/imp22g-77.imp"
7329 @ 58898:                  PUSH   PUTSTRING
7330 @ 58901:                  PUSHS  " in "
7331 @ 58907:                  ASSPAR
7332 @ 58908:                  CALL  

  1350        put ident(c_pid,-1)
7333 @ 58909:                  LINE   1350 "regression-compile-tmp/imp22g-77.imp"
7334 @ 58949:                  PUSH   PUTIDENT
7335 @ 58952:                  PUSH   C
7336 @ 58955:                  SELECT 15
7337 @ 58958:                  ASSPAR
7338 @ 58959:                  PUSHI  #0x00000001
7339 @ 58964:                  NEGATE
7340 @ 58965:                  ASSPAR
7341 @ 58966:                  CALL  

  1351      %finish
7342 @ 58967:                  LINE   1351 "regression-compile-tmp/imp22g-77.imp"
7343 @ 59007:                  LOCATE L_0007

  1352      %return
7344 @ 59010:                  LINE   1352 "regression-compile-tmp/imp22g-77.imp"
7345 @ 59050:                  RETURN

  1353    %finish
7346 @ 59051:                  LINE   1353 "regression-compile-tmp/imp22g-77.imp"
7347 @ 59091:                  LOCATE L_0004

  1354    put ident(id,0) %if id > 0
7348 @ 59094:                  LINE   1354 "regression-compile-tmp/imp22g-77.imp"
7349 @ 59134:                  PUSH   ID
7350 @ 59137:                  PUSHI  #0x00000000
7351 @ 59142:                  JUMPIF <= L_0004
7352 @ 59146:                  PUSH   PUTIDENT
7353 @ 59149:                  PUSH   ID
7354 @ 59152:                  ASSPAR
7355 @ 59153:                  PUSHI  #0x00000000
7356 @ 59158:                  ASSPAR
7357 @ 59159:                  CALL  
7358 @ 59160:                  LOCATE L_0004

  1355    put string(message(k))
7359 @ 59163:                  LINE   1355 "regression-compile-tmp/imp22g-77.imp"
7360 @ 59203:                  PUSH   PUTSTRING
7361 @ 59206:                  PUSH   MESSAGE
7362 @ 59209:                  PUSH   K
7363 @ 59212:                  ACCESS
7364 @ 59213:                  ASSPAR
7365 @ 59214:                  CALL  

  1356    put num(num) %if num > 0
7366 @ 59215:                  LINE   1356 "regression-compile-tmp/imp22g-77.imp"
7367 @ 59255:                  PUSH   NUM
7368 @ 59258:                  PUSHI  #0x00000000
7369 @ 59263:                  JUMPIF <= L_0004
7370 @ 59267:                  PUSH   PUTNUM
7371 @ 59270:                  PUSH   NUM
7372 @ 59273:                  ASSPAR
7373 @ 59274:                  CALL  
7374 @ 59275:                  LOCATE L_0004

  1357    -> mend %if creacherr <= k <= noresult
7375 @ 59278:                  LINE   1357 "regression-compile-tmp/imp22g-77.imp"
7376 @ 59318:                  PUSHI  #0x00000003
7377 @ 59323:                  PUSH   K
7378 @ 59326:                  JUMPIFD > L_0004
7379 @ 59330:                  PUSHI  #0x00000005
7380 @ 59335:                  JUMPIF > L_0004
7381 @ 59339:                  JUMP   L_0124
7382 @ 59342:                  LOCATE L_0004

  1358    spaces(22-length(rep))
7383 @ 59345:                  LINE   1358 "regression-compile-tmp/imp22g-77.imp"
7384 @ 59385:                  PUSH   SPACES
7385 @ 59388:                  PUSHI  #0x00000016
7386 @ 59393:                  PUSH   LENGTH
7387 @ 59396:                  PUSH   REP
7388 @ 59399:                  ASSPAR
7389 @ 59400:                  CALL  
7390 @ 59401:                  SUB   
7391 @ 59402:                  ASSPAR
7392 @ 59403:                  CALL  

  1359    p = start
7393 @ 59404:                  LINE   1359 "regression-compile-tmp/imp22g-77.imp"
7394 @ 59444:                  PUSH   P
7395 @ 59447:                  PUSH   START
7396 @ 59450:                  ASSVAL

  1360    p = p+1 %while byteinteger(p) = ' '
7397 @ 59451:                  LINE   1360 "regression-compile-tmp/imp22g-77.imp"
7398 @ 59491:                  LOCATE L_0003
7399 @ 59494:                  PUSH   BYTEINTEGER
7400 @ 59497:                  PUSH   P
7401 @ 59500:                  ASSPAR
7402 @ 59501:                  CALL  
7403 @ 59502:                  PUSHI  #0x00000020
7404 @ 59507:                  JUMPIF # L_0004
7405 @ 59511:                  PUSH   P
7406 @ 59514:                  PUSH   P
7407 @ 59517:                  PUSHI  #0x00000001
7408 @ 59522:                  ADD   
7409 @ 59523:                  ASSVAL
7410 @ 59524:                  REPEAT L_0003
7411 @ 59527:                  LOCATE L_0004

  1361    %if p < faultp-50 %then p = faultp-47 %and put string("...") %c
  1362    %else put sym(' ')
7412 @ 59530:                  LINE   1361 "regression-compile-tmp/imp22g-77.imp"
7413 @ 59570:                  PUSH   P
7414 @ 59573:                  PUSH   FAULTP
7415 @ 59576:                  PUSHI  #0x00000032
7416 @ 59581:                  SUB   
7417 @ 59582:                  JUMPIF >= L_0004
7418 @ 59586:                  PUSH   P
7419 @ 59589:                  PUSH   FAULTP
7420 @ 59592:                  PUSHI  #0x0000002f
7421 @ 59597:                  SUB   
7422 @ 59598:                  ASSVAL
7423 @ 59599:                  PUSH   PUTSTRING
7424 @ 59602:                  PUSHS  "..."
7425 @ 59607:                  ASSPAR
7426 @ 59608:                  CALL  
7427 @ 59609:                  GOTO   L_0003
7428 @ 59612:                  LOCATE L_0004
7429 @ 59615:                  PUSH   PUTSYM
7430 @ 59618:                  PUSHI  #0x00000020
7431 @ 59623:                  ASSPAR
7432 @ 59624:                  CALL  
7433 @ 59625:                  LOCATE L_0003

  1363    %cycle
7434 @ 59628:                  LINE   1363 "regression-compile-tmp/imp22g-77.imp"
7435 @ 59668:                  LOCATE L_0003

  1364      k = byteintegeR(p);  p = p+1
7436 @ 59671:                  LINE   1364 "regression-compile-tmp/imp22g-77.imp"
7437 @ 59711:                  PUSH   K
7438 @ 59714:                  PUSH   BYTEINTEGER
7439 @ 59717:                  PUSH   P
7440 @ 59720:                  ASSPAR
7441 @ 59721:                  CALL  
7442 @ 59722:                  ASSVAL
7443 @ 59723:                  LINE   1364 "regression-compile-tmp/imp22g-77.imp"
7444 @ 59763:                  PUSH   P
7445 @ 59766:                  PUSH   P
7446 @ 59769:                  PUSHI  #0x00000001
7447 @ 59774:                  ADD   
7448 @ 59775:                  ASSVAL

  1365      %if p = faultp %start
  1366  !      %if stream # 0 %then put sym('|') %else %start
  1367  !       !**V200**
  1368  !        put sym(esc);  put sym('F');  !graphics
  1369  !        put sym('~')
  1370  !        put sym(esc);  put sym('G');  !normal
  1371  !      %finish
7449 @ 59776:                  LINE   1365 "regression-compile-tmp/imp22g-77.imp"
7450 @ 59816:                  PUSH   P
7451 @ 59819:                  PUSH   FAULTP
7452 @ 59822:                  JUMPIF # L_0007

  1372        put sym('|')
7453 @ 59826:                  LINE   1372 "regression-compile-tmp/imp22g-77.imp"
7454 @ 59866:                  PUSH   PUTSYM
7455 @ 59869:                  PUSHI  #0x0000007c
7456 @ 59874:                  ASSPAR
7457 @ 59875:                  CALL  

  1373      %finish
7458 @ 59876:                  LINE   1373 "regression-compile-tmp/imp22g-77.imp"
7459 @ 59916:                  LOCATE L_0007

  1374      %exit %if k = nl
7460 @ 59919:                  LINE   1374 "regression-compile-tmp/imp22g-77.imp"
7461 @ 59959:                  PUSH   K
7462 @ 59962:                  PUSHI  #0x0000000a
7463 @ 59967:                  JUMPIF # L_0007
7464 @ 59971:                  GOTO   L_0004
7465 @ 59974:                  LOCATE L_0007

  1375      put sym(k)
  1376  !    %if ' ' <= k <= '~' %then put sym(k) %c
  1377  !    %else put sym('[') %and put num(k) %and put sym(']')
7466 @ 59977:                  LINE   1375 "regression-compile-tmp/imp22g-77.imp"
7467 @ 60017:                  PUSH   PUTSYM
7468 @ 60020:                  PUSH   K
7469 @ 60023:                  ASSPAR
7470 @ 60024:                  CALL  

  1378    %repeat
7471 @ 60025:                  LINE   1378 "regression-compile-tmp/imp22g-77.imp"
7472 @ 60065:                  REPEAT L_0003
7473 @ 60068:                  LOCATE L_0004

  1379    %return
7474 @ 60071:                  LINE   1379 "regression-compile-tmp/imp22g-77.imp"
7475 @ 60111:                  RETURN

  1380  %end
  1381  
  1382  !Warning or error
7476 @ 60112:                  LINE   1380 "regression-compile-tmp/imp22g-77.imp"
7477 @ 60152:               END    _lev0id0_REPORT_PRINTTEXT {lev=3 --> 2}

  1383    mark = '?'
7478 @ 60153:               LINE   1383 "regression-compile-tmp/imp22g-77.imp"
7479 @ 60193:               PUSH   MARK
7480 @ 60196:               PUSHI  #0x0000003f
7481 @ 60201:               ASSVAL

  1384    %if n > 0 %start
7482 @ 60202:               LINE   1384 "regression-compile-tmp/imp22g-77.imp"
7483 @ 60242:               PUSH   N
7484 @ 60245:               PUSHI  #0x00000000
7485 @ 60250:               JUMPIF <= L_0004

  1385      mark = '*'
7486 @ 60254:               LINE   1385 "regression-compile-tmp/imp22g-77.imp"
7487 @ 60294:               PUSH   MARK
7488 @ 60297:               PUSHI  #0x0000002a
7489 @ 60302:               ASSVAL

  1386      c_faults = c_faults+1;  faults = faults+1
7490 @ 60303:               LINE   1386 "regression-compile-tmp/imp22g-77.imp"
7491 @ 60343:               PUSH   C
7492 @ 60346:               SELECT 21
7493 @ 60349:               PUSH   C
7494 @ 60352:               SELECT 21
7495 @ 60355:               PUSHI  #0x00000001
7496 @ 60360:               ADD   
7497 @ 60361:               ASSVAL
7498 @ 60362:               LINE   1386 "regression-compile-tmp/imp22g-77.imp"
7499 @ 60402:               PUSH   FAULTS
7500 @ 60405:               PUSH   FAULTS
7501 @ 60408:               PUSHI  #0x00000001
7502 @ 60413:               ADD   
7503 @ 60414:               ASSVAL

  1387    %finish
7504 @ 60415:               LINE   1387 "regression-compile-tmp/imp22g-77.imp"
7505 @ 60455:               LOCATE L_0004

  1388    faultnum = 0;  c_access = -1
  1389  !Ignore uncorrected earlier error
7506 @ 60458:               LINE   1388 "regression-compile-tmp/imp22g-77.imp"
7507 @ 60498:               PUSH   FAULTNUM
7508 @ 60501:               PUSHI  #0x00000000
7509 @ 60506:               ASSVAL
7510 @ 60507:               LINE   1388 "regression-compile-tmp/imp22g-77.imp"
7511 @ 60547:               PUSH   C
7512 @ 60550:               SELECT 16
7513 @ 60553:               PUSHI  #0x00000001
7514 @ 60558:               NEGATE
7515 @ 60559:               ASSVAL

  1390    %return %if file(main)_start1 <= fp < lastchange
  1391  !Establish what to print
7516 @ 60560:               LINE   1390 "regression-compile-tmp/imp22g-77.imp"
7517 @ 60600:               PUSH   FILE
7518 @ 60603:               PUSHI  #0x00000001
7519 @ 60608:               ACCESS
7520 @ 60609:               SELECT 1
7521 @ 60612:               PUSH   FP
7522 @ 60615:               JUMPIFD > L_0004
7523 @ 60619:               PUSH   LASTCHANGE
7524 @ 60622:               JUMPIF >= L_0004
7525 @ 60626:               RETURN
7526 @ 60627:               LOCATE L_0004

  1392    start = linestart;  errline = line
7527 @ 60630:               LINE   1392 "regression-compile-tmp/imp22g-77.imp"
7528 @ 60670:               PUSH   START
7529 @ 60673:               PUSH   LINESTART
7530 @ 60676:               ASSVAL
7531 @ 60677:               LINE   1392 "regression-compile-tmp/imp22g-77.imp"
7532 @ 60717:               PUSH   ERRLINE
7533 @ 60720:               PUSH   LINE
7534 @ 60723:               ASSVAL

  1393    %if n&point = 0 %start
7535 @ 60724:               LINE   1393 "regression-compile-tmp/imp22g-77.imp"
7536 @ 60764:               PUSH   N
7537 @ 60767:               PUSHI  #0x00000040
7538 @ 60772:               AND   
7539 @ 60773:               PUSHI  #0x00000000
7540 @ 60778:               JUMPIF # L_0004

  1394      faultp = 0;  !no pointing
7541 @ 60782:               LINE   1394 "regression-compile-tmp/imp22g-77.imp"
7542 @ 60822:               PUSH   FAULTP
7543 @ 60825:               PUSHI  #0x00000000
7544 @ 60830:               ASSVAL

  1395    %else
7545 @ 60831:               LINE   1395 "regression-compile-tmp/imp22g-77.imp"
7546 @ 60871:               GOTO   L_0003
7547 @ 60874:               LOCATE L_0004

  1396      %while start >= faultp %cycle;  !before current line
7548 @ 60877:               LINE   1396 "regression-compile-tmp/imp22g-77.imp"
7549 @ 60917:               LOCATE L_0006
7550 @ 60920:               PUSH   START
7551 @ 60923:               PUSH   FAULTP
7552 @ 60926:               JUMPIF < L_0007

  1397        start = start-1
7553 @ 60930:               LINE   1397 "regression-compile-tmp/imp22g-77.imp"
7554 @ 60970:               PUSH   START
7555 @ 60973:               PUSH   START
7556 @ 60976:               PUSHI  #0x00000001
7557 @ 60981:               SUB   
7558 @ 60982:               ASSVAL

  1398        errline = errline-1 %if byteintegeR(start) = nl
7559 @ 60983:               LINE   1398 "regression-compile-tmp/imp22g-77.imp"
7560 @ 61023:               PUSH   BYTEINTEGER
7561 @ 61026:               PUSH   START
7562 @ 61029:               ASSPAR
7563 @ 61030:               CALL  
7564 @ 61031:               PUSHI  #0x0000000a
7565 @ 61036:               JUMPIF # L_000a
7566 @ 61040:               PUSH   ERRLINE
7567 @ 61043:               PUSH   ERRLINE
7568 @ 61046:               PUSHI  #0x00000001
7569 @ 61051:               SUB   
7570 @ 61052:               ASSVAL
7571 @ 61053:               LOCATE L_000a

  1399      %repeat
7572 @ 61056:               LINE   1399 "regression-compile-tmp/imp22g-77.imp"
7573 @ 61096:               REPEAT L_0006
7574 @ 61099:               LOCATE L_0007

  1400      start = start-1 %while start # curstart %and byteintegeR(start-1) # nl
7575 @ 61102:               LINE   1400 "regression-compile-tmp/imp22g-77.imp"
7576 @ 61142:               LOCATE L_0006
7577 @ 61145:               PUSH   START
7578 @ 61148:               PUSH   CURSTART
7579 @ 61151:               JUMPIF = L_0007
7580 @ 61155:               PUSH   BYTEINTEGER
7581 @ 61158:               PUSH   START
7582 @ 61161:               PUSHI  #0x00000001
7583 @ 61166:               SUB   
7584 @ 61167:               ASSPAR
7585 @ 61168:               CALL  
7586 @ 61169:               PUSHI  #0x0000000a
7587 @ 61174:               JUMPIF = L_0007
7588 @ 61178:               PUSH   START
7589 @ 61181:               PUSH   START
7590 @ 61184:               PUSHI  #0x00000001
7591 @ 61189:               SUB   
7592 @ 61190:               ASSVAL
7593 @ 61191:               REPEAT L_0006
7594 @ 61194:               LOCATE L_0007

  1401    %finish
7595 @ 61197:               LINE   1401 "regression-compile-tmp/imp22g-77.imp"
7596 @ 61237:               LOCATE L_0003

  1402    time1 = time1-cputime
7597 @ 61240:               LINE   1402 "regression-compile-tmp/imp22g-77.imp"
7598 @ 61280:               PUSH   TIME1
7599 @ 61283:               PUSH   TIME1
7600 @ 61286:               PUSH   CPUTIME
7601 @ 61289:               SUB   
7602 @ 61290:               ASSVAL

  1403    %if listout # 0 %start;  !listing file
7603 @ 61291:               LINE   1403 "regression-compile-tmp/imp22g-77.imp"
7604 @ 61331:               PUSH   LISTOUT
7605 @ 61334:               PUSHI  #0x00000000
7606 @ 61339:               JUMPIF = L_0004

  1404      print text(listout);  print line
7607 @ 61343:               LINE   1404 "regression-compile-tmp/imp22g-77.imp"
7608 @ 61383:               PUSH   PRINTTEXT
7609 @ 61386:               PUSH   LISTOUT
7610 @ 61389:               ASSPAR
7611 @ 61390:               CALL  
7612 @ 61391:               LINE   1404 "regression-compile-tmp/imp22g-77.imp"
7613 @ 61431:               PUSH   PRINTLINE
7614 @ 61434:               CALL  

  1405    %finish
7615 @ 61435:               LINE   1405 "regression-compile-tmp/imp22g-77.imp"
7616 @ 61475:               LOCATE L_0004

  1406    select output(0)
7617 @ 61478:               LINE   1406 "regression-compile-tmp/imp22g-77.imp"
7618 @ 61518:               PUSH   SELECTOUTPUT
7619 @ 61521:               PUSHI  #0x00000000
7620 @ 61526:               ASSPAR
7621 @ 61527:               CALL  

  1407    %if curfile # lastfile %start
7622 @ 61528:               LINE   1407 "regression-compile-tmp/imp22g-77.imp"
7623 @ 61568:               PUSH   CURFILE
7624 @ 61571:               PUSH   LASTFILE
7625 @ 61574:               JUMPIF = L_0004

  1408      lastfile = curfile;  put string(cur_name);  print line
7626 @ 61578:               LINE   1408 "regression-compile-tmp/imp22g-77.imp"
7627 @ 61618:               PUSH   LASTFILE
7628 @ 61621:               PUSH   CURFILE
7629 @ 61624:               ASSVAL
7630 @ 61625:               LINE   1408 "regression-compile-tmp/imp22g-77.imp"
7631 @ 61665:               PUSH   PUTSTRING
7632 @ 61668:               PUSH   CUR
7633 @ 61671:               SELECT 18
7634 @ 61674:               ASSPAR
7635 @ 61675:               CALL  
7636 @ 61676:               LINE   1408 "regression-compile-tmp/imp22g-77.imp"
7637 @ 61716:               PUSH   PRINTLINE
7638 @ 61719:               CALL  

  1409    %finish
7639 @ 61720:               LINE   1409 "regression-compile-tmp/imp22g-77.imp"
7640 @ 61760:               LOCATE L_0004

  1410    print text(0)
7641 @ 61763:               LINE   1410 "regression-compile-tmp/imp22g-77.imp"
7642 @ 61803:               PUSH   PRINTTEXT
7643 @ 61806:               PUSHI  #0x00000000
7644 @ 61811:               ASSPAR
7645 @ 61812:               CALL  

  1411    %if n > reacherr %and curfile = main %and control&editbit # 0 %start
7646 @ 61813:               LINE   1411 "regression-compile-tmp/imp22g-77.imp"
7647 @ 61853:               PUSH   N
7648 @ 61856:               PUSHI  #0x00000004
7649 @ 61861:               JUMPIF <= L_0004
7650 @ 61865:               PUSH   CURFILE
7651 @ 61868:               PUSHI  #0x00000001
7652 @ 61873:               JUMPIF # L_0004
7653 @ 61877:               PUSH   CONTROL
7654 @ 61880:               PUSHI  #0x00002000
7655 @ 61885:               AND   
7656 @ 61886:               PUSHI  #0x00000000
7657 @ 61891:               JUMPIF = L_0004

  1412      start = faultp-1 %if faultp > start
7658 @ 61895:               LINE   1412 "regression-compile-tmp/imp22g-77.imp"
7659 @ 61935:               PUSH   FAULTP
7660 @ 61938:               PUSH   START
7661 @ 61941:               JUMPIF <= L_0007
7662 @ 61945:               PUSH   START
7663 @ 61948:               PUSH   FAULTP
7664 @ 61951:               PUSHI  #0x00000001
7665 @ 61956:               SUB   
7666 @ 61957:               ASSVAL
7667 @ 61958:               LOCATE L_0007

  1413      cur_fp = start;  cur_line = line
7668 @ 61961:               LINE   1413 "regression-compile-tmp/imp22g-77.imp"
7669 @ 62001:               PUSH   CUR
7670 @ 62004:               SELECT 7
7671 @ 62007:               PUSH   START
7672 @ 62010:               ASSVAL
7673 @ 62011:               LINE   1413 "regression-compile-tmp/imp22g-77.imp"
7674 @ 62051:               PUSH   CUR
7675 @ 62054:               SELECT 10
7676 @ 62057:               PUSH   LINE
7677 @ 62060:               ASSVAL

  1414      cur_change = 16_7FFFFFFE %if lastchange # 0
7678 @ 62061:               LINE   1414 "regression-compile-tmp/imp22g-77.imp"
7679 @ 62101:               PUSH   LASTCHANGE
7680 @ 62104:               PUSHI  #0x00000000
7681 @ 62109:               JUMPIF = L_0007
7682 @ 62113:               PUSH   CUR
7683 @ 62116:               SELECT 8
7684 @ 62119:               PUSHI  #0x7ffffffe
7685 @ 62124:               ASSVAL
7686 @ 62125:               LOCATE L_0007

  1415      select input(0)
7687 @ 62128:               LINE   1415 "regression-compile-tmp/imp22g-77.imp"
7688 @ 62168:               PUSH   SELECTINPUT
7689 @ 62171:               PUSHI  #0x00000000
7690 @ 62176:               ASSPAR
7691 @ 62177:               CALL  

  1416      file(main+1) = 0
  1417  !!    edi(file(main),file(main+1),rep);  !main+1 to keep editor happy
7692 @ 62178:               LINE   1416 "regression-compile-tmp/imp22g-77.imp"
7693 @ 62218:               PUSH   FILE
7694 @ 62221:               PUSHI  #0x00000001
7695 @ 62226:               PUSHI  #0x00000001
7696 @ 62231:               ADD   
7697 @ 62232:               ACCESS
7698 @ 62233:               PUSHI  #0x00000000
7699 @ 62238:               ASSVAL

  1418      rep = ""
7700 @ 62239:               LINE   1418 "regression-compile-tmp/imp22g-77.imp"
7701 @ 62279:               PUSH   REP
7702 @ 62282:               PUSHS  ""
7703 @ 62284:               ASSVAL

  1419      select output(listout)
7704 @ 62285:               LINE   1419 "regression-compile-tmp/imp22g-77.imp"
7705 @ 62325:               PUSH   SELECTOUTPUT
7706 @ 62328:               PUSH   LISTOUT
7707 @ 62331:               ASSPAR
7708 @ 62332:               CALL  

  1420      time1 = time1+cputime
7709 @ 62333:               LINE   1420 "regression-compile-tmp/imp22g-77.imp"
7710 @ 62373:               PUSH   TIME1
7711 @ 62376:               PUSH   TIME1
7712 @ 62379:               PUSH   CPUTIME
7713 @ 62382:               ADD   
7714 @ 62383:               ASSVAL

  1421      %signal abandon %if cur_flag < 0 {abandoned}
7715 @ 62384:               LINE   1421 "regression-compile-tmp/imp22g-77.imp"
7716 @ 62424:               PUSH   CUR
7717 @ 62427:               SELECT 9
7718 @ 62430:               PUSHI  #0x00000000
7719 @ 62435:               JUMPIF >= L_0007
7720 @ 62439:               EVENT  000e
7721 @ 62442:               LOCATE L_0007

  1422      control = control&(\editbit) %if cur_flag = 'I'
7722 @ 62445:               LINE   1422 "regression-compile-tmp/imp22g-77.imp"
7723 @ 62485:               PUSH   CUR
7724 @ 62488:               SELECT 9
7725 @ 62491:               PUSHI  #0x00000049
7726 @ 62496:               JUMPIF # L_0007
7727 @ 62500:               PUSH   CONTROL
7728 @ 62503:               PUSH   CONTROL
7729 @ 62506:               PUSHI  #0x00002000
7730 @ 62511:               NOT   
7731 @ 62512:               AND   
7732 @ 62513:               ASSVAL
7733 @ 62514:               LOCATE L_0007

  1423      lastchange = cur_change %and %signal redo %if cur_change < 16_7FFFFFFE
7734 @ 62517:               LINE   1423 "regression-compile-tmp/imp22g-77.imp"
7735 @ 62557:               PUSH   CUR
7736 @ 62560:               SELECT 8
7737 @ 62563:               PUSHI  #0x7ffffffe
7738 @ 62568:               JUMPIF >= L_0007
7739 @ 62572:               PUSH   LASTCHANGE
7740 @ 62575:               PUSH   CUR
7741 @ 62578:               SELECT 8
7742 @ 62581:               ASSVAL
7743 @ 62582:               EVENT  000d
7744 @ 62585:               LOCATE L_0007

  1424    %else
7745 @ 62588:               LINE   1424 "regression-compile-tmp/imp22g-77.imp"
7746 @ 62628:               GOTO   L_0003
7747 @ 62631:               LOCATE L_0004

  1425      print line
7748 @ 62634:               LINE   1425 "regression-compile-tmp/imp22g-77.imp"
7749 @ 62674:               PUSH   PRINTLINE
7750 @ 62677:               CALL  

  1426      select output(listout)
7751 @ 62678:               LINE   1426 "regression-compile-tmp/imp22g-77.imp"
7752 @ 62718:               PUSH   SELECTOUTPUT
7753 @ 62721:               PUSH   LISTOUT
7754 @ 62724:               ASSPAR
7755 @ 62725:               CALL  

  1427      time1 = time1+cputime
7756 @ 62726:               LINE   1427 "regression-compile-tmp/imp22g-77.imp"
7757 @ 62766:               PUSH   TIME1
7758 @ 62769:               PUSH   TIME1
7759 @ 62772:               PUSH   CPUTIME
7760 @ 62775:               ADD   
7761 @ 62776:               ASSVAL

  1428    %finish
7762 @ 62777:               LINE   1428 "regression-compile-tmp/imp22g-77.imp"
7763 @ 62817:               LOCATE L_0003

  1429  %end;  !report
  1430  
7764 @ 62820:               LINE   1429 "regression-compile-tmp/imp22g-77.imp"
7765 @ 62860:            END    _lev0id0_REPORT {lev=2 --> 1}

  1431  %routine FAULT(%integer n)
  1432  !Note fault number and position of (earliest) fault
  1433  ! for subsequent reporting (warnings and weak errors)
7766 @ 62861:            LINE   1431 "regression-compile-tmp/imp22g-77.imp"
7767 @ 62901:            DEF    FAULT (_lev0id0_FAULT) p1=V_0118 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
7768 @ 62918:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
7769 @ 62919:                  DEF    N 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
7770 @ 62932:               FINISH ) {lev=2}

  1434    %if faultnum = 0 %or (n > 0 %and faultnum < 0) %start
7771 @ 62933:               LINE   1434 "regression-compile-tmp/imp22g-77.imp"
7772 @ 62973:               PUSH   FAULTNUM
7773 @ 62976:               PUSHI  #0x00000000
7774 @ 62981:               JUMPIF = L_0005
7775 @ 62985:               PUSH   N
7776 @ 62988:               PUSHI  #0x00000000
7777 @ 62993:               JUMPIF <= L_0004
7778 @ 62997:               PUSH   FAULTNUM
7779 @ 63000:               PUSHI  #0x00000000
7780 @ 63005:               JUMPIF >= L_0004
7781 @ 63009:               LOCATE L_0005

  1435      faultnum = n;  faultp = atomp
7782 @ 63012:               LINE   1435 "regression-compile-tmp/imp22g-77.imp"
7783 @ 63052:               PUSH   FAULTNUM
7784 @ 63055:               PUSH   N
7785 @ 63058:               ASSVAL
7786 @ 63059:               LINE   1435 "regression-compile-tmp/imp22g-77.imp"
7787 @ 63099:               PUSH   FAULTP
7788 @ 63102:               PUSH   ATOMP
7789 @ 63105:               ASSVAL

  1436      report(faultnum&127,0,0) %if faultnum >= now
7790 @ 63106:               LINE   1436 "regression-compile-tmp/imp22g-77.imp"
7791 @ 63146:               PUSH   FAULTNUM
7792 @ 63149:               PUSHI  #0x00000080
7793 @ 63154:               JUMPIF < L_0007
7794 @ 63158:               PUSH   REPORT
7795 @ 63161:               PUSH   FAULTNUM
7796 @ 63164:               PUSHI  #0x0000007f
7797 @ 63169:               AND   
7798 @ 63170:               ASSPAR
7799 @ 63171:               PUSHI  #0x00000000
7800 @ 63176:               ASSPAR
7801 @ 63177:               PUSHI  #0x00000000
7802 @ 63182:               ASSPAR
7803 @ 63183:               CALL  
7804 @ 63184:               LOCATE L_0007

  1437    %finish
7805 @ 63187:               LINE   1437 "regression-compile-tmp/imp22g-77.imp"
7806 @ 63227:               LOCATE L_0004

  1438  %end
  1439  
7807 @ 63230:               LINE   1438 "regression-compile-tmp/imp22g-77.imp"
7808 @ 63270:            END    _lev0id0_FAULT {lev=2 --> 1}

  1440  %routine INTERN(%integer n)
7809 @ 63271:            LINE   1440 "regression-compile-tmp/imp22g-77.imp"
7810 @ 63311:            DEF    INTERN (_lev0id0_INTERN) p1=V_0119 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
7811 @ 63329:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
7812 @ 63330:                  DEF    N 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
7813 @ 63343:               FINISH ) {lev=2}

  1441    report(internerr,0,n)
7814 @ 63344:               LINE   1441 "regression-compile-tmp/imp22g-77.imp"
7815 @ 63384:               PUSH   REPORT
7816 @ 63387:               PUSHI  #0x00000001
7817 @ 63392:               ASSPAR
7818 @ 63393:               PUSHI  #0x00000000
7819 @ 63398:               ASSPAR
7820 @ 63399:               PUSH   N
7821 @ 63402:               ASSPAR
7822 @ 63403:               CALL  

  1442  %end
  1443  
  1444  !!!!!!!!!!!!!!!!!!!!   CELL  CONSTRUCTORS  !!!!!!!!!!!!!!!!!!!
  1445  !
7823 @ 63404:               LINE   1442 "regression-compile-tmp/imp22g-77.imp"
7824 @ 63444:            END    _lev0id0_INTERN {lev=2 --> 1}

  1446  %integer%fn LITREF(%integer v)
7825 @ 63445:            LINE   1446 "regression-compile-tmp/imp22g-77.imp"
7826 @ 63485:            DEF    LITREF (_lev0id0_LITREF) 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
7827 @ 63503:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
7828 @ 63504:                  DEF    V 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
7829 @ 63517:               FINISH ) {lev=2}

  1447  %integer i
7830 @ 63518:               LINE   1447 "regression-compile-tmp/imp22g-77.imp"
7831 @ 63558:               DEF    I 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

  1448    %result = v %if v = 0
7832 @ 63571:               LINE   1448 "regression-compile-tmp/imp22g-77.imp"
7833 @ 63611:               PUSH   V
7834 @ 63614:               PUSHI  #0x00000000
7835 @ 63619:               JUMPIF # L_0004
7836 @ 63623:               PUSH   V
7837 @ 63626:               RESULT
7838 @ 63627:               LOCATE L_0004

  1449    %if v > 0 %start
7839 @ 63630:               LINE   1449 "regression-compile-tmp/imp22g-77.imp"
7840 @ 63670:               PUSH   V
7841 @ 63673:               PUSHI  #0x00000000
7842 @ 63678:               JUMPIF <= L_0004

  1450      %result = -(v<<1) %if v <= smallmax
7843 @ 63682:               LINE   1450 "regression-compile-tmp/imp22g-77.imp"
7844 @ 63722:               PUSH   V
7845 @ 63725:               PUSHI  #0x000003ff
7846 @ 63730:               JUMPIF > L_0007
7847 @ 63734:               PUSH   V
7848 @ 63737:               PUSHI  #0x00000001
7849 @ 63742:               LSH   
7850 @ 63743:               NEGATE
7851 @ 63744:               RESULT
7852 @ 63745:               LOCATE L_0007

  1451    %else
7853 @ 63748:               LINE   1451 "regression-compile-tmp/imp22g-77.imp"
7854 @ 63788:               GOTO   L_0003
7855 @ 63791:               LOCATE L_0004

  1452      %result = v<<1+1 %if v >= smallmin
7856 @ 63794:               LINE   1452 "regression-compile-tmp/imp22g-77.imp"
7857 @ 63834:               PUSH   V
7858 @ 63837:               PUSHI  #0xfffffc00
7859 @ 63842:               JUMPIF < L_0007
7860 @ 63846:               PUSH   V
7861 @ 63849:               PUSHI  #0x00000001
7862 @ 63854:               LSH   
7863 @ 63855:               PUSHI  #0x00000001
7864 @ 63860:               ADD   
7865 @ 63861:               RESULT
7866 @ 63862:               LOCATE L_0007

  1453    %finish
7867 @ 63865:               LINE   1453 "regression-compile-tmp/imp22g-77.imp"
7868 @ 63905:               LOCATE L_0003

  1454    litstore(litpos) = v
7869 @ 63908:               LINE   1454 "regression-compile-tmp/imp22g-77.imp"
7870 @ 63948:               PUSH   LITSTORE
7871 @ 63951:               PUSH   LITPOS
7872 @ 63954:               ACCESS
7873 @ 63955:               PUSH   V
7874 @ 63958:               ASSVAL

  1455    i = litmin-1
7875 @ 63959:               LINE   1455 "regression-compile-tmp/imp22g-77.imp"
7876 @ 63999:               PUSH   I
7877 @ 64002:               PUSHI  #0xfffff739
7878 @ 64007:               PUSHI  #0x00000001
7879 @ 64012:               SUB   
7880 @ 64013:               ASSVAL

  1456    i = i+1 %until litstore(i) = v
7881 @ 64014:               LINE   1456 "regression-compile-tmp/imp22g-77.imp"
7882 @ 64054:               LOCATE L_0003
7883 @ 64057:               PUSH   I
7884 @ 64060:               PUSH   I
7885 @ 64063:               PUSHI  #0x00000001
7886 @ 64068:               ADD   
7887 @ 64069:               ASSVAL
7888 @ 64070:               PUSH   LITSTORE
7889 @ 64073:               PUSH   I
7890 @ 64076:               ACCESS
7891 @ 64077:               PUSH   V
7892 @ 64080:               JUMPIF = L_0004
7893 @ 64084:               REPEAT L_0003
7894 @ 64087:               LOCATE L_0004

  1457    %if i = litpos %start
7895 @ 64090:               LINE   1457 "regression-compile-tmp/imp22g-77.imp"
7896 @ 64130:               PUSH   I
7897 @ 64133:               PUSH   LITPOS
7898 @ 64136:               JUMPIF # L_0004

  1458      litpos = litpos+1
7899 @ 64140:               LINE   1458 "regression-compile-tmp/imp22g-77.imp"
7900 @ 64180:               PUSH   LITPOS
7901 @ 64183:               PUSH   LITPOS
7902 @ 64186:               PUSHI  #0x00000001
7903 @ 64191:               ADD   
7904 @ 64192:               ASSVAL

  1459      croak("Too many literals") %if litpos >= litmax
7905 @ 64193:               LINE   1459 "regression-compile-tmp/imp22g-77.imp"
7906 @ 64233:               PUSH   LITPOS
7907 @ 64236:               PUSHI  #0xfffff800
7908 @ 64241:               JUMPIF < L_0007
7909 @ 64245:               PUSH   CROAK
7910 @ 64248:               PUSHS  "Too many literals"
7911 @ 64267:               ASSPAR
7912 @ 64268:               CALL  
7913 @ 64269:               LOCATE L_0007

  1460    %finish
7914 @ 64272:               LINE   1460 "regression-compile-tmp/imp22g-77.imp"
7915 @ 64312:               LOCATE L_0004

  1461    %result = i
7916 @ 64315:               LINE   1461 "regression-compile-tmp/imp22g-77.imp"
7917 @ 64355:               PUSH   I
7918 @ 64358:               RESULT

  1462  %end
  1463  !
7919 @ 64359:               LINE   1462 "regression-compile-tmp/imp22g-77.imp"
7920 @ 64399:            END    _lev0id0_LITREF {lev=2 --> 1}

  1464  %routine PUTEXP(%integer act,x,y,t)
7921 @ 64400:            LINE   1464 "regression-compile-tmp/imp22g-77.imp"
7922 @ 64440:            DEF    PUTEXP (_lev0id0_PUTEXP) p1=V_011b 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
7923 @ 64458:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
7924 @ 64459:                  DEF    ACT 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
7925 @ 64474:                  DEF    X 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
7926 @ 64487:                  DEF    Y 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
7927 @ 64500:                  DEF    T 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
7928 @ 64513:               FINISH ) {lev=2}

  1465    type = t
7929 @ 64514:               LINE   1465 "regression-compile-tmp/imp22g-77.imp"
7930 @ 64554:               PUSH   TYPE
7931 @ 64557:               PUSH   T
7932 @ 64560:               ASSVAL

  1466    item = explim
7933 @ 64561:               LINE   1466 "regression-compile-tmp/imp22g-77.imp"
7934 @ 64601:               PUSH   ITEM
7935 @ 64604:               PUSH   EXPLIM
7936 @ 64607:               ASSVAL

  1467    item = x %if explo <= x < item
7937 @ 64608:               LINE   1467 "regression-compile-tmp/imp22g-77.imp"
7938 @ 64648:               PUSH   EXPLO
7939 @ 64651:               PUSH   X
7940 @ 64654:               JUMPIFD > L_0004
7941 @ 64658:               PUSH   ITEM
7942 @ 64661:               JUMPIF >= L_0004
7943 @ 64665:               PUSH   ITEM
7944 @ 64668:               PUSH   X
7945 @ 64671:               ASSVAL
7946 @ 64672:               LOCATE L_0004

  1468    item = y %if explo <= y < item
7947 @ 64675:               LINE   1468 "regression-compile-tmp/imp22g-77.imp"
7948 @ 64715:               PUSH   EXPLO
7949 @ 64718:               PUSH   Y
7950 @ 64721:               JUMPIFD > L_0004
7951 @ 64725:               PUSH   ITEM
7952 @ 64728:               JUMPIF >= L_0004
7953 @ 64732:               PUSH   ITEM
7954 @ 64735:               PUSH   Y
7955 @ 64738:               ASSVAL
7956 @ 64739:               LOCATE L_0004

  1469    %cycle
7957 @ 64742:               LINE   1469 "regression-compile-tmp/imp22g-77.imp"
7958 @ 64782:               LOCATE L_0003

  1470      item = item-1
7959 @ 64785:               LINE   1470 "regression-compile-tmp/imp22g-77.imp"
7960 @ 64825:               PUSH   ITEM
7961 @ 64828:               PUSH   ITEM
7962 @ 64831:               PUSHI  #0x00000001
7963 @ 64836:               SUB   
7964 @ 64837:               ASSVAL

  1471      ditem == dict(item)
7965 @ 64838:               LINE   1471 "regression-compile-tmp/imp22g-77.imp"
7966 @ 64878:               PUSH   DITEM
7967 @ 64881:               PUSH   DICT
7968 @ 64884:               PUSH   ITEM
7969 @ 64887:               ACCESS
7970 @ 64888:               ASSREF

  1472      %if item < explo %start
7971 @ 64889:               LINE   1472 "regression-compile-tmp/imp22g-77.imp"
7972 @ 64929:               PUSH   ITEM
7973 @ 64932:               PUSH   EXPLO
7974 @ 64935:               JUMPIF >= L_0007

  1473        explo = item
7975 @ 64939:               LINE   1473 "regression-compile-tmp/imp22g-77.imp"
7976 @ 64979:               PUSH   EXPLO
7977 @ 64982:               PUSH   ITEM
7978 @ 64985:               ASSVAL

  1474        ditem_act = act;  ditem_x = x;  ditem_y = y
7979 @ 64986:               LINE   1474 "regression-compile-tmp/imp22g-77.imp"
7980 @ 65026:               PUSH   DITEM
7981 @ 65029:               SELECT 6
7982 @ 65032:               PUSH   ACT
7983 @ 65035:               ASSVAL
7984 @ 65036:               LINE   1474 "regression-compile-tmp/imp22g-77.imp"
7985 @ 65076:               PUSH   DITEM
7986 @ 65079:               SELECT 13
7987 @ 65082:               PUSH   X
7988 @ 65085:               ASSVAL
7989 @ 65086:               LINE   1474 "regression-compile-tmp/imp22g-77.imp"
7990 @ 65126:               PUSH   DITEM
7991 @ 65129:               SELECT 14
7992 @ 65132:               PUSH   Y
7993 @ 65135:               ASSVAL

  1475        ditem_flags = 0;  ditem_type = t;  ditem_mode = 0
7994 @ 65136:               LINE   1475 "regression-compile-tmp/imp22g-77.imp"
7995 @ 65176:               PUSH   DITEM
7996 @ 65179:               SELECT 1
7997 @ 65182:               PUSHI  #0x00000000
7998 @ 65187:               ASSVAL
7999 @ 65188:               LINE   1475 "regression-compile-tmp/imp22g-77.imp"
8000 @ 65228:               PUSH   DITEM
8001 @ 65231:               SELECT 2
8002 @ 65234:               PUSH   T
8003 @ 65237:               ASSVAL
8004 @ 65238:               LINE   1475 "regression-compile-tmp/imp22g-77.imp"
8005 @ 65278:               PUSH   DITEM
8006 @ 65281:               SELECT 8
8007 @ 65284:               PUSHI  #0x00000000
8008 @ 65289:               ASSVAL

  1476        %exit
8009 @ 65290:               LINE   1476 "regression-compile-tmp/imp22g-77.imp"
8010 @ 65330:               GOTO   L_0004

  1477      %finish
8011 @ 65333:               LINE   1477 "regression-compile-tmp/imp22g-77.imp"
8012 @ 65373:               LOCATE L_0007

  1478    %repeat %until ditem_act = act %and ditem_x = x %and ditem_y = y
8013 @ 65376:               LINE   1478 "regression-compile-tmp/imp22g-77.imp"
8014 @ 65416:               PUSH   DITEM
8015 @ 65419:               SELECT 6
8016 @ 65422:               PUSH   ACT
8017 @ 65425:               JUMPIF # L_0005
8018 @ 65429:               PUSH   DITEM
8019 @ 65432:               SELECT 13
8020 @ 65435:               PUSH   X
8021 @ 65438:               JUMPIF # L_0005
8022 @ 65442:               PUSH   DITEM
8023 @ 65445:               SELECT 14
8024 @ 65448:               PUSH   Y
8025 @ 65451:               JUMPIF = L_0004
8026 @ 65455:               LOCATE L_0005
8027 @ 65458:               REPEAT L_0003
8028 @ 65461:               LOCATE L_0004

  1479  %end
  1480  
  1481  !$IF VAX
  1482  {%integer%fn IEEE(%integer v)
  1483  {  %result = 0 %if v = 0
  1484  {  %result = v<<16+v>>16-16_01000000
  1485  {%end
  1486  !$FINISH
  1487  
8029 @ 65464:               LINE   1479 "regression-compile-tmp/imp22g-77.imp"
8030 @ 65504:            END    _lev0id0_PUTEXP {lev=2 --> 1}

  1488  %routine PUTEXP2(%integer op,first,t)
8031 @ 65505:            LINE   1488 "regression-compile-tmp/imp22g-77.imp"
8032 @ 65545:            DEF    PUTEXP2 (_lev0id0_PUTEXP2) p1=V_011c 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
8033 @ 65564:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8034 @ 65565:                  DEF    OP 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
8035 @ 65579:                  DEF    FIRST 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
8036 @ 65596:                  DEF    T 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
8037 @ 65609:               FINISH ) {lev=2}

  1489    %if item = 0 %start
  1490  !$IF VAX
  1491  {  value = ieee(value) %if type = realtype;  !vax->ieee
  1492  !$FINISH
8038 @ 65610:               LINE   1489 "regression-compile-tmp/imp22g-77.imp"
8039 @ 65650:               PUSH   ITEM
8040 @ 65653:               PUSHI  #0x00000000
8041 @ 65658:               JUMPIF # L_0004

  1493      item = litref(value)
8042 @ 65662:               LINE   1493 "regression-compile-tmp/imp22g-77.imp"
8043 @ 65702:               PUSH   ITEM
8044 @ 65705:               PUSH   LITREF
8045 @ 65708:               PUSH   VALUE
8046 @ 65711:               ASSPAR
8047 @ 65712:               CALL  
8048 @ 65713:               ASSVAL

  1494    %finish
8049 @ 65714:               LINE   1494 "regression-compile-tmp/imp22g-77.imp"
8050 @ 65754:               LOCATE L_0004

  1495    putexp(op,first,item,t)
8051 @ 65757:               LINE   1495 "regression-compile-tmp/imp22g-77.imp"
8052 @ 65797:               PUSH   PUTEXP
8053 @ 65800:               PUSH   OP
8054 @ 65803:               ASSPAR
8055 @ 65804:               PUSH   FIRST
8056 @ 65807:               ASSPAR
8057 @ 65808:               PUSH   ITEM
8058 @ 65811:               ASSPAR
8059 @ 65812:               PUSH   T
8060 @ 65815:               ASSPAR
8061 @ 65816:               CALL  

  1496  %end
  1497  
8062 @ 65817:               LINE   1496 "regression-compile-tmp/imp22g-77.imp"
8063 @ 65857:            END    _lev0id0_PUTEXP2 {lev=2 --> 1}

  1498  %integer%fn NORMITEM
8064 @ 65858:            LINE   1498 "regression-compile-tmp/imp22g-77.imp"
8065 @ 65898:            DEF    NORMITEM (_lev0id0_NORMITEM) p1=V_011d 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
8066 @ 65918:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8067 @ 65919:               FINISH ) {lev=2}

  1499    %result = item %if item # 0
  1500  !$IF VAX
  1501  {  value = ieee(value) %if type = realtype;  !vax->ieee
  1502  !$FINISH
8068 @ 65920:               LINE   1499 "regression-compile-tmp/imp22g-77.imp"
8069 @ 65960:               PUSH   ITEM
8070 @ 65963:               PUSHI  #0x00000000
8071 @ 65968:               JUMPIF = L_0004
8072 @ 65972:               PUSH   ITEM
8073 @ 65975:               RESULT
8074 @ 65976:               LOCATE L_0004

  1503    %result = litref(value)
8075 @ 65979:               LINE   1503 "regression-compile-tmp/imp22g-77.imp"
8076 @ 66019:               PUSH   LITREF
8077 @ 66022:               PUSH   VALUE
8078 @ 66025:               ASSPAR
8079 @ 66026:               CALL  
8080 @ 66027:               RESULT

  1504  %end
  1505  
8081 @ 66028:               LINE   1504 "regression-compile-tmp/imp22g-77.imp"
8082 @ 66068:            END    _lev0id0_NORMITEM {lev=2 --> 1}

  1506  %routine TOREAL
8083 @ 66069:            LINE   1506 "regression-compile-tmp/imp22g-77.imp"
8084 @ 66109:            DEF    TOREAL (_lev0id0_TOREAL) 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
8085 @ 66127:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8086 @ 66128:               FINISH ) {lev=2}

  1507    %if item # 0 %then putexp(float,item,0,realtype) %c
  1508    %else real(addr(value)) = value %and type = realtype
8087 @ 66129:               LINE   1507 "regression-compile-tmp/imp22g-77.imp"
8088 @ 66169:               PUSH   ITEM
8089 @ 66172:               PUSHI  #0x00000000
8090 @ 66177:               JUMPIF = L_0004
8091 @ 66181:               PUSH   PUTEXP
8092 @ 66184:               PUSHI  #0x0000005f
8093 @ 66189:               ASSPAR
8094 @ 66190:               PUSH   ITEM
8095 @ 66193:               ASSPAR
8096 @ 66194:               PUSHI  #0x00000000
8097 @ 66199:               ASSPAR
8098 @ 66200:               PUSHI  #0x00000045
8099 @ 66205:               ASSPAR
8100 @ 66206:               CALL  
8101 @ 66207:               GOTO   L_0003
8102 @ 66210:               LOCATE L_0004
8103 @ 66213:               PUSH   REAL
8104 @ 66216:               PUSH   ADDR
8105 @ 66219:               PUSH   VALUE
8106 @ 66222:               ASSPAR
8107 @ 66223:               CALL  
8108 @ 66224:               ASSPAR
8109 @ 66225:               CALL  
8110 @ 66226:               PUSH   VALUE
8111 @ 66229:               ASSVAL
8112 @ 66230:               PUSH   TYPE
8113 @ 66233:               PUSHI  #0x00000045
8114 @ 66238:               ASSVAL
8115 @ 66239:               LOCATE L_0003

  1509  %end
  1510  
8116 @ 66242:               LINE   1509 "regression-compile-tmp/imp22g-77.imp"
8117 @ 66282:            END    _lev0id0_TOREAL {lev=2 --> 1}

  1511  %integer%fn TEMP(%integer m,v)
8118 @ 66283:            LINE   1511 "regression-compile-tmp/imp22g-77.imp"
8119 @ 66323:            DEF    TEMP (_lev0id0_TEMP) p1=V_011f 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
8120 @ 66339:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8121 @ 66340:                  DEF    M 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
8122 @ 66353:                  DEF    V 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
8123 @ 66366:               FINISH ) {lev=2}

  1512    dtemp_mode = m;  dtemp_val = v
8124 @ 66367:               LINE   1512 "regression-compile-tmp/imp22g-77.imp"
8125 @ 66407:               PUSH   DTEMP
8126 @ 66410:               SELECT 8
8127 @ 66413:               PUSH   M
8128 @ 66416:               ASSVAL
8129 @ 66417:               LINE   1512 "regression-compile-tmp/imp22g-77.imp"
8130 @ 66457:               PUSH   DTEMP
8131 @ 66460:               SELECT 9
8132 @ 66463:               PUSH   V
8133 @ 66466:               ASSVAL

  1513    %result = lablim
8134 @ 66467:               LINE   1513 "regression-compile-tmp/imp22g-77.imp"
8135 @ 66507:               PUSH   LABLIM
8136 @ 66510:               RESULT

  1514  %end
8137 @ 66511:               LINE   1514 "regression-compile-tmp/imp22g-77.imp"
8138 @ 66551:            END    _lev0id0_TEMP {lev=2 --> 1}

  1515  %integer%fn TEMPX(%integer r1,r2)
8139 @ 66552:            LINE   1515 "regression-compile-tmp/imp22g-77.imp"
8140 @ 66592:            DEF    TEMPX (_lev0id0_TEMPX) p1=V_0120 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
8141 @ 66609:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8142 @ 66610:                  DEF    R1 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
8143 @ 66624:                  DEF    R2 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
8144 @ 66638:               FINISH ) {lev=2}

  1516    dtemp_mode = r1+(indexmode-a0);  dtemp_val = (r2-d0)<<12+16_0800
8145 @ 66639:               LINE   1516 "regression-compile-tmp/imp22g-77.imp"
8146 @ 66679:               PUSH   DTEMP
8147 @ 66682:               SELECT 8
8148 @ 66685:               PUSH   R1
8149 @ 66688:               PUSHI  #0x00000030
8150 @ 66693:               PUSHI  #0x00000009
8151 @ 66698:               SUB   
8152 @ 66699:               ADD   
8153 @ 66700:               ASSVAL
8154 @ 66701:               LINE   1516 "regression-compile-tmp/imp22g-77.imp"
8155 @ 66741:               PUSH   DTEMP
8156 @ 66744:               SELECT 9
8157 @ 66747:               PUSH   R2
8158 @ 66750:               PUSHI  #0x00000001
8159 @ 66755:               SUB   
8160 @ 66756:               PUSHI  #0x0000000c
8161 @ 66761:               LSH   
8162 @ 66762:               PUSHI  #0x00000800
8163 @ 66767:               ADD   
8164 @ 66768:               ASSVAL

  1517    %result = lablim
8165 @ 66769:               LINE   1517 "regression-compile-tmp/imp22g-77.imp"
8166 @ 66809:               PUSH   LABLIM
8167 @ 66812:               RESULT

  1518  %end
8168 @ 66813:               LINE   1518 "regression-compile-tmp/imp22g-77.imp"
8169 @ 66853:            END    _lev0id0_TEMPX {lev=2 --> 1}

  1519  %integer%fn TEMPD(%integer a,disp)
8170 @ 66854:            LINE   1519 "regression-compile-tmp/imp22g-77.imp"
8171 @ 66894:            DEF    TEMPD (_lev0id0_TEMPD) p1=V_0121 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
8172 @ 66911:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8173 @ 66912:                  DEF    A 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
8174 @ 66925:                  DEF    DISP 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
8175 @ 66941:               FINISH ) {lev=2}

  1520    dtemp_mode = a+(dispmode-a0);  dtemp_val = disp
8176 @ 66942:               LINE   1520 "regression-compile-tmp/imp22g-77.imp"
8177 @ 66982:               PUSH   DTEMP
8178 @ 66985:               SELECT 8
8179 @ 66988:               PUSH   A
8180 @ 66991:               PUSHI  #0x00000028
8181 @ 66996:               PUSHI  #0x00000009
8182 @ 67001:               SUB   
8183 @ 67002:               ADD   
8184 @ 67003:               ASSVAL
8185 @ 67004:               LINE   1520 "regression-compile-tmp/imp22g-77.imp"
8186 @ 67044:               PUSH   DTEMP
8187 @ 67047:               SELECT 9
8188 @ 67050:               PUSH   DISP
8189 @ 67053:               ASSVAL

  1521    %result = lablim
8190 @ 67054:               LINE   1521 "regression-compile-tmp/imp22g-77.imp"
8191 @ 67094:               PUSH   LABLIM
8192 @ 67097:               RESULT

  1522  %end
8193 @ 67098:               LINE   1522 "regression-compile-tmp/imp22g-77.imp"
8194 @ 67138:            END    _lev0id0_TEMPD {lev=2 --> 1}

  1523  %integer%fn TEMPX2(%integer r1,r2)
8195 @ 67139:            LINE   1523 "regression-compile-tmp/imp22g-77.imp"
8196 @ 67179:            DEF    TEMPX2 (_lev0id0_TEMPX2) p1=V_0122 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
8197 @ 67197:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8198 @ 67198:                  DEF    R1 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
8199 @ 67212:                  DEF    R2 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
8200 @ 67226:               FINISH ) {lev=2}

  1524    dtemp2_mode = r1+(indexmode-a0);  dtemp2_val = (r2-d0)<<12+16_0800
8201 @ 67227:               LINE   1524 "regression-compile-tmp/imp22g-77.imp"
8202 @ 67267:               PUSH   DTEMP2
8203 @ 67270:               SELECT 8
8204 @ 67273:               PUSH   R1
8205 @ 67276:               PUSHI  #0x00000030
8206 @ 67281:               PUSHI  #0x00000009
8207 @ 67286:               SUB   
8208 @ 67287:               ADD   
8209 @ 67288:               ASSVAL
8210 @ 67289:               LINE   1524 "regression-compile-tmp/imp22g-77.imp"
8211 @ 67329:               PUSH   DTEMP2
8212 @ 67332:               SELECT 9
8213 @ 67335:               PUSH   R2
8214 @ 67338:               PUSHI  #0x00000001
8215 @ 67343:               SUB   
8216 @ 67344:               PUSHI  #0x0000000c
8217 @ 67349:               LSH   
8218 @ 67350:               PUSHI  #0x00000800
8219 @ 67355:               ADD   
8220 @ 67356:               ASSVAL

  1525    %result = lablim+1
8221 @ 67357:               LINE   1525 "regression-compile-tmp/imp22g-77.imp"
8222 @ 67397:               PUSH   LABLIM
8223 @ 67400:               PUSHI  #0x00000001
8224 @ 67405:               ADD   
8225 @ 67406:               RESULT

  1526  %end
  1527  
  1528  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1529  !!!!!!!!!!!!!!!!!    CODE  GENERATION   !!!!!!!!!!!!!!!!!!!!!!!!
  1530  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1531  !
  1532  !  The array DEF contains packed mnemonics for M68000 machine
  1533  ! instructions and, for each mnemonic, the basic opcode and
  1534  ! a type indicator.
  1535  !  The type indicator contains flag bits for various special cases
  1536  ! and two 6-bit fields defining the operand types
  1537  ! [should be const record array]
  1538  !  The mnemonics and variant distinctions broadly follow the
  1539  !  manufacturer's Assembly Language conventions
  1540  !
  1541  ! Opcode index values needed globally:-
8226 @ 67407:               LINE   1526 "regression-compile-tmp/imp22g-77.imp"
8227 @ 67447:            END    _lev0id0_TEMPX2 {lev=2 --> 1}

  1542  %constinteger LEA=78, PEA=55, CLR=52, DBRA=81, JSR=56,
  1543                LINK=72, UNLK=73, RTS=68,
  1544                MOVEM=100, TRAPI=101, DC=102
  1545  
  1546  !Machine-code operand types
  1547  ![EA needs to be further distinguished]
8228 @ 67448:            LINE   1542 "regression-compile-tmp/imp22g-77.imp"

  1548  %constinteger SHIFT=32
8229 @ 67488:            LINE   1548 "regression-compile-tmp/imp22g-77.imp"

  1549  %constinteger REG=1, AREG=2, IREG=3, QUICK=4, MQUICK=5
8230 @ 67528:            LINE   1549 "regression-compile-tmp/imp22g-77.imp"

  1550  %constinteger EA=6, RWEA=7, WEA=8
8231 @ 67568:            LINE   1550 "regression-compile-tmp/imp22g-77.imp"

  1551  %constinteger IMM=9, TQUICK=10, REL=11, LONGREL=12
8232 @ 67608:            LINE   1551 "regression-compile-tmp/imp22g-77.imp"

  1552  %constinteger QREG=13, POSTAREG=14, QEA=15
8233 @ 67648:            LINE   1552 "regression-compile-tmp/imp22g-77.imp"

  1553  %constinteger REVEA=16, XIMM=17, DATA=18, PREAREG=19, QPRE=20
8234 @ 67688:            LINE   1553 "regression-compile-tmp/imp22g-77.imp"

  1554  %constinteger EXREG=21+shift
8235 @ 67728:            LINE   1554 "regression-compile-tmp/imp22g-77.imp"

  1555  %constinteger REG9=reg+shift, QREG9=qreg+shift, IREG9=ireg+shift,
  1556                POSTAREG9=postareg+shift,
  1557                QUICK9=quick+shift, AREG9=areg+shift
8236 @ 67768:            LINE   1555 "regression-compile-tmp/imp22g-77.imp"

  1558  %constinteger SIZED=1<<15, ASIZED=1<<14;  !2 spare bits
8237 @ 67808:            LINE   1558 "regression-compile-tmp/imp22g-77.imp"

  1559  %constinteger REVERSIBLE=revea<<6+reg9+sized, MULTIPLE=ximm<<6+ea+asized
8238 @ 67848:            LINE   1559 "regression-compile-tmp/imp22g-77.imp"

  1560  %constinteger DEFMAX=129
8239 @ 67888:            LINE   1560 "regression-compile-tmp/imp22g-77.imp"

  1561  %constintegerarray DEF(0:defmax+defmax) =
  1562    0,
  1563   {MOVE} 16_0000<<16+ ea<<6+wea+shift +sized,
  1564    'm'<<25+('o'&31)<<20+('v'&31)<<15+('e'&31)<<10,
  1565   {ADD} 16_D000<<16+ reversible,
  1566    'a'<<25+('d'&31)<<20+('d'&31)<<15,
  1567   {SUB} 16_9000<<16+ reversible,
  1568    's'<<25+('u'&31)<<20+('b'&31)<<15,
  1569   {CMP} 16_B000<<16+ ea<<6+reg9 +sized,
  1570    'c'<<25+('m'&31)<<20+('p'&31)<<15,
  1571   {AND} 16_C000<<16+ reversible,
  1572    'a'<<25+('n'&31)<<20+('d'&31)<<15,
  1573   {OR} 16_8000<<16+ reversible,
  1574    'o'<<25+('r'&31)<<20,
  1575   {EOR} 16_B100<<16+ reg9<<6+rwea +sized,
  1576    'e'<<25+('o'&31)<<20+('r'&31)<<15,
  1577   {NOT} 16_4600<<16+ rwea +sized,
  1578    'n'<<25+('o'&31)<<20+('t'&31)<<15,
  1579   {NEG} 16_4400<<16+ rwea +sized,
  1580    'n'<<25+('e'&31)<<20+('g'&31)<<15,
  1581   {LSL} 16_E108<<16+ qreg9<<6+reg +sized,
  1582    'l'<<25+('s'&31)<<20+('l'&31)<<15,
  1583   {LSR} 16_E008<<16+ qreg9<<6+reg +sized,
  1584    'l'<<25+('s'&31)<<20+('r'&31)<<15,
  1585   {MULS} 16_C1C0<<16+ ea<<6+reg9,
  1586    'm'<<25+('u'&31)<<20+('l'&31)<<15+('s'&31)<<10,
  1587   {DIVS} 16_81C0<<16+ ea<<6+reg9,
  1588    'd'<<25+('i'&31)<<20+('v'&31)<<15+('s'&31)<<10,
  1589   {MULU} 16_C0C0<<16+ ea<<6+reg9,
  1590    'm'<<25+('u'&31)<<20+('l'&31)<<15+('u'&31)<<10,
  1591   {DIVU} 16_80C0<<16+ ea<<6+reg9,
  1592    'd'<<25+('i'&31)<<20+('v'&31)<<15+('u'&31)<<10,
  1593   {BRA} 16_6000<<16+ rel,
  1594    'b'<<25+('r'&31)<<20+('a'&31)<<15,
  1595   {BSR} 16_6100<<16+ rel,
  1596    'b'<<25+('s'&31)<<20+('r'&31)<<15,
  1597   {BHI} 16_6200<<16+ rel,
  1598    'b'<<25+('h'&31)<<20+('i'&31)<<15,
  1599   {BLS} 16_6300<<16+ rel,
  1600    'b'<<25+('l'&31)<<20+('s'&31)<<15,
  1601   {BCC} 16_6400<<16+ rel,
  1602    'b'<<25+('c'&31)<<20+('c'&31)<<15,
  1603   {BCS} 16_6500<<16+ rel,
  1604    'b'<<25+('c'&31)<<20+('s'&31)<<15,
  1605   {BNE} 16_6600<<16+ rel,
  1606    'b'<<25+('n'&31)<<20+('e'&31)<<15,
  1607   {BEQ} 16_6700<<16+ rel,
  1608    'b'<<25+('e'&31)<<20+('q'&31)<<15,
  1609   {BVC} 16_6800<<16+ rel,
  1610    'b'<<25+('v'&31)<<20+('c'&31)<<15,
  1611   {BVS} 16_6900<<16+ rel,
  1612    'b'<<25+('v'&31)<<20+('s'&31)<<15,
  1613   {BPL} 16_6A00<<16+ rel,
  1614    'b'<<25+('p'&31)<<20+('l'&31)<<15,
  1615   {BMI} 16_6B00<<16+ rel,
  1616    'b'<<25+('m'&31)<<20+('i'&31)<<15,
  1617   {BGE} 16_6C00<<16+ rel,
  1618    'b'<<25+('g'&31)<<20+('e'&31)<<15,
  1619   {BLT} 16_6D00<<16+ rel,
  1620    'b'<<25+('l'&31)<<20+('t'&31)<<15,
  1621   {BGT} 16_6E00<<16+ rel,
  1622    'b'<<25+('g'&31)<<20+('t'&31)<<15,
  1623   {BLE} 16_6F00<<16+ rel,
  1624    'b'<<25+('l'&31)<<20+('e'&31)<<15,
  1625   {ASL} 16_E100<<16+ qreg9<<6+reg +sized,
  1626    'a'<<25+('s'&31)<<20+('l'&31)<<15,
  1627   {ASR} 16_E000<<16+ qreg9<<6+reg +sized,
  1628    'a'<<25+('s'&31)<<20+('r'&31)<<15,
  1629   {ROL} 16_E118<<16+ qreg9<<6+reg +sized,
  1630    'r'<<25+('o'&31)<<20+('l'&31)<<15,
  1631   {ROR} 16_E018<<16+ qreg9<<6+reg +sized,
  1632    'r'<<25+('o'&31)<<20+('r'&31)<<15,
  1633   {MOVEQ} 16_7000<<16+ mquick<<6+reg9,
  1634    'm'<<25+('o'&31)<<20+('v'&31)<<15+('e'&31)<<10+('q'&31)<<5,
  1635   {ADDQ} 16_5000<<16+ quick9<<6+rwea +sized,
  1636    'a'<<25+('d'&31)<<20+('d'&31)<<15+('q'&31)<<10,
  1637   {SUBQ} 16_5100<<16+ quick9<<6+rwea +sized,
  1638    's'<<25+('u'&31)<<20+('b'&31)<<15+('q'&31)<<10,
  1639   {MOVEA} 16_3040<<16+ ea<<6+areg9 +asized,
  1640    'm'<<25+('o'&31)<<20+('v'&31)<<15+('e'&31)<<10+('a'&31)<<5,
  1641   {ADDA} 16_D0C0<<16+ ea<<6+areg9 +asized,
  1642    'a'<<25+('d'&31)<<20+('d'&31)<<15+('a'&31)<<10,
  1643   {SUBA} 16_90C0<<16+ ea<<6+areg9 +asized,
  1644    's'<<25+('u'&31)<<20+('b'&31)<<15+('a'&31)<<10,
  1645   {CMPA} 16_B0C0<<16+ ea<<6+areg9 +asized,
  1646    'c'<<25+('m'&31)<<20+('p'&31)<<15+('a'&31)<<10,
  1647   {CMPM} 16_B108<<16+ postareg<<6+postareg9,
  1648    'c'<<25+('m'&31)<<20+('p'&31)<<15+('m'&31)<<10,
  1649   {ADDI} 16_0600<<16+ imm<<6+rwea +sized,
  1650    'a'<<25+('d'&31)<<20+('d'&31)<<15+('i'&31)<<10,
  1651   {SUBI} 16_0400<<16+ imm<<6+rwea +sized,
  1652    's'<<25+('u'&31)<<20+('b'&31)<<15+('i'&31)<<10,
  1653   {CMPI} 16_0C00<<16+ imm<<6+ea +sized,
  1654    'c'<<25+('m'&31)<<20+('p'&31)<<15+('i'&31)<<10,
  1655   {ANDI} 16_0200<<16+ imm<<6+rwea +sized,
  1656    'a'<<25+('n'&31)<<20+('d'&31)<<15+('i'&31)<<10,
  1657   {ORI} 16_0000<<16+ imm<<6+rwea +sized,
  1658    'o'<<25+('r'&31)<<20+('i'&31)<<15,
  1659   {EORI} 16_0A00<<16+ imm<<6+rwea +sized,
  1660    'e'<<25+('o'&31)<<20+('r'&31)<<15+('i'&31)<<10,
  1661   {ROXL} 16_E110<<16+ qreg9<<6+reg +sized,
  1662    'r'<<25+('o'&31)<<20+('x'&31)<<15+('l'&31)<<10,
  1663   {ROXR} 16_E010<<16+ qreg9<<6+reg +sized,
  1664    'r'<<25+('o'&31)<<20+('x'&31)<<15+('r'&31)<<10,
  1665   {CLR} 16_4200<<16+ wea +sized,
  1666    'c'<<25+('l'&31)<<20+('r'&31)<<15,
  1667   {NEGX} 16_4000<<16+ rwea +sized,
  1668    'n'<<25+('e'&31)<<20+('g'&31)<<15+('x'&31)<<10,
  1669   {NBCD} 16_4800<<16+ rwea,
  1670    'n'<<25+('b'&31)<<20+('c'&31)<<15+('d'&31)<<10,
  1671   {PEA} 16_4840<<16+ ea,
  1672    'p'<<25+('e'&31)<<20+('a'&31)<<15,
  1673   {JSR} 16_4E80<<16+ ea,
  1674    'j'<<25+('s'&31)<<20+('r'&31)<<15,
  1675   {JMP} 16_4EC0<<16+ ea,
  1676    'j'<<25+('m'&31)<<20+('p'&31)<<15,
  1677   {TAS} 16_4AC0<<16+ rwea,
  1678    't'<<25+('a'&31)<<20+('s'&31)<<15,
  1679   {TST} 16_4A00<<16+ ea +sized,
  1680    't'<<25+('s'&31)<<20+('t'&31)<<15,
  1681   {ABCD} 16_C100<<16+ qpre<<6+reg9,
  1682    'a'<<25+('b'&31)<<20+('c'&31)<<15+('d'&31)<<10,
  1683   {SBCD} 16_8100<<16+ qpre<<6+reg9,
  1684    's'<<25+('b'&31)<<20+('c'&31)<<15+('d'&31)<<10,
  1685   {ADDX} 16_D100<<16+ qpre<<6+reg9 +sized,
  1686    'a'<<25+('d'&31)<<20+('d'&31)<<15+('x'&31)<<10,
  1687   {SUBX} 16_9100<<16+ qpre<<6+reg9 +sized,
  1688    's'<<25+('u'&31)<<20+('b'&31)<<15+('x'&31)<<10,
  1689   {NOP} 16_4E71<<16,
  1690    'n'<<25+('o'&31)<<20+('p'&31)<<15,
  1691   {RESET} 16_4E70<<16,
  1692    'r'<<25+('e'&31)<<20+('s'&31)<<15+('e'&31)<<10+('t'&31)<<5,
  1693   {RTE} 16_4E73<<16,
  1694    'r'<<25+('t'&31)<<20+('e'&31)<<15,
  1695   {RTR} 16_4E77<<16,
  1696    'r'<<25+('t'&31)<<20+('r'&31)<<15,
  1697   {RTS} 16_4E75<<16,
  1698    'r'<<25+('t'&31)<<20+('s'&31)<<15,
  1699   {STOP} 16_4E72<<16 +imm,
  1700    's'<<25+('t'&31)<<20+('o'&31)<<15+('p'&31)<<10,
  1701   {TRAPV} 16_4E76<<16,
  1702    't'<<25+('r'&31)<<20+('a'&31)<<15+('p'&31)<<10+('v'&31)<<5,
  1703   {TRAP} 16_4E40<<16+ tquick,
  1704    't'<<25+('r'&31)<<20+('a'&31)<<15+('p'&31)<<10,
  1705   {LINK} 16_4E50<<16+ imm<<6+areg,
  1706    'l'<<25+('i'&31)<<20+('n'&31)<<15+('k'&31)<<10,
  1707   {UNLK} 16_4E58<<16+ areg,
  1708    'u'<<25+('n'&31)<<20+('l'&31)<<15+('k'&31)<<10,
  1709   {SWAP} 16_4840<<16+ reg,
  1710    's'<<25+('w'&31)<<20+('a'&31)<<15+('p'&31)<<10,
  1711   {EXTW} 16_4880<<16+ reg,
  1712    'e'<<25+('x'&31)<<20+('t'&31)<<15+('w'&31)<<10,
  1713   {EXTL} 16_48C0<<16+ reg,
  1714    'e'<<25+('x'&31)<<20+('t'&31)<<15+('l'&31)<<10,
  1715   {EXG} 16_C140<<16+ exreg<<6+reg,
  1716    'e'<<25+('x'&31)<<20+('g'&31)<<15,
  1717   {LEA} 16_41C0<<16+ qea<<6+areg9,
  1718    'l'<<25+('e'&31)<<20+('a'&31)<<15,
  1719   {CHK} 16_4180<<16+ ea<<6+reg9,
  1720    'c'<<25+('h'&31)<<20+('k'&31)<<15,
  1721   {DBXX} 16_50C8<<16+ reg<<6+longrel,
  1722    'd'<<25+('b'&31)<<20+('x'&31)<<15+('x'&31)<<10,
  1723   {DBRA} 16_51C8<<16+ reg<<6+longrel,
  1724    'd'<<25+('b'&31)<<20+('r'&31)<<15+('a'&31)<<10,
  1725   {DBHI} 16_52C8<<16+ reg<<6+longrel,
  1726    'd'<<25+('b'&31)<<20+('h'&31)<<15+('i'&31)<<10,
  1727   {DBLS} 16_53C8<<16+ reg<<6+longrel,
  1728    'd'<<25+('b'&31)<<20+('l'&31)<<15+('s'&31)<<10,
  1729   {DBCC} 16_54C8<<16+ reg<<6+longrel,
  1730    'd'<<25+('b'&31)<<20+('c'&31)<<15+('c'&31)<<10,
  1731   {DBCS} 16_55C8<<16+ reg<<6+longrel,
  1732    'd'<<25+('b'&31)<<20+('c'&31)<<15+('s'&31)<<10,
  1733   {DBNE} 16_56C8<<16+ reg<<6+longrel,
  1734    'd'<<25+('b'&31)<<20+('n'&31)<<15+('e'&31)<<10,
  1735   {DBEQ} 16_57C8<<16+ reg<<6+longrel,
  1736    'd'<<25+('b'&31)<<20+('e'&31)<<15+('q'&31)<<10,
  1737   {DBVC} 16_58C8<<16+ reg<<6+longrel,
  1738    'd'<<25+('b'&31)<<20+('v'&31)<<15+('c'&31)<<10,
  1739   {DBVS} 16_59C8<<16+ reg<<6+longrel,
  1740    'd'<<25+('b'&31)<<20+('v'&31)<<15+('s'&31)<<10,
  1741   {DBPL} 16_5AC8<<16+ reg<<6+longrel,
  1742    'd'<<25+('b'&31)<<20+('p'&31)<<15+('l'&31)<<10,
  1743   {DBMI} 16_5BC8<<16+ reg<<6+longrel,
  1744    'd'<<25+('b'&31)<<20+('m'&31)<<15+('i'&31)<<10,
  1745   {DBGE} 16_5CC8<<16+ reg<<6+longrel,
  1746    'd'<<25+('b'&31)<<20+('g'&31)<<15+('e'&31)<<10,
  1747   {DBLT} 16_5DC8<<16+ reg<<6+longrel,
  1748    'd'<<25+('b'&31)<<20+('l'&31)<<15+('t'&31)<<10,
  1749   {DBGT} 16_5EC8<<16+ reg<<6+longrel,
  1750    'd'<<25+('b'&31)<<20+('g'&31)<<15+('t'&31)<<10,
  1751   {DBLE} 16_5FC8<<16+ reg<<6+longrel,
  1752    'd'<<25+('b'&31)<<20+('l'&31)<<15+('e'&31)<<10,
  1753   {BCHG} 16_0140<<16+ ireg9<<6+rwea,
  1754    'b'<<25+('c'&31)<<20+('h'&31)<<15+('g'&31)<<10,
  1755   {BCLR} 16_0180<<16+ ireg9<<6+wea,
  1756    'b'<<25+('c'&31)<<20+('l'&31)<<15+('r'&31)<<10,
  1757   {BSET} 16_01C0<<16+ ireg9<<6+wea,
  1758    'b'<<25+('s'&31)<<20+('e'&31)<<15+('t'&31)<<10,
  1759   {BTST} 16_0100<<16+ ireg9<<6+ea,
  1760    'b'<<25+('t'&31)<<20+('s'&31)<<15+('t'&31)<<10,
  1761   {MOVEM} 16_4880<<16+ multiple,
  1762    'm'<<25+('o'&31)<<20+('v'&31)<<15+('e'&31)<<10+('m'&31)<<5,
  1763   {TRAPI} 16_4E40<<16+ imm<<6+tquick,
  1764    't'<<25+('r'&31)<<20+('a'&31)<<15+('p'&31)<<10+('i'&31)<<5,
  1765   {DC}         data,
  1766       'd'<<25+('c'&31)<<20,
  1767   {ST} 16_50C0<<16+ wea,
  1768    's'<<25+('t'&31)<<20,
  1769   {SF} 16_51C0<<16+ wea,
  1770    's'<<25+('f'&31)<<20,
  1771   {SHI} 16_52C0<<16+ wea,
  1772    's'<<25+('h'&31)<<20+('i'&31)<<15,
  1773   {SLS} 16_53C0<<16+ wea,
  1774    's'<<25+('l'&31)<<20+('s'&31)<<15,
  1775   {SCC} 16_54C0<<16+ wea,
  1776    's'<<25+('c'&31)<<20+('c'&31)<<15,
  1777   {SCS} 16_55C0<<16+ wea,
  1778    's'<<25+('c'&31)<<20+('s'&31)<<15,
  1779   {SNE} 16_56C0<<16+ wea,
  1780    's'<<25+('n'&31)<<20+('e'&31)<<15,
  1781   {SEQ} 16_57C0<<16+ wea,
  1782    's'<<25+('e'&31)<<20+('q'&31)<<15,
  1783   {SVC} 16_58C0<<16+ wea,
  1784    's'<<25+('v'&31)<<20+('c'&31)<<15,
  1785   {SVS} 16_59C0<<16+ wea,
  1786    's'<<25+('v'&31)<<20+('s'&31)<<15,
  1787   {SPL} 16_5AC0<<16+ wea,
  1788    's'<<25+('p'&31)<<20+('l'&31)<<15,
  1789   {SMI} 16_5BC0<<16+ wea,
  1790    's'<<25+('m'&31)<<20+('i'&31)<<15,
  1791   {SGE} 16_5CC0<<16+ wea,
  1792    's'<<25+('g'&31)<<20+('e'&31)<<15,
  1793   {SLT} 16_5DC0<<16+ wea,
  1794    's'<<25+('l'&31)<<20+('t'&31)<<15,
  1795   {SGT} 16_5EC0<<16+ wea,
  1796    's'<<25+('g'&31)<<20+('t'&31)<<15,
  1797   {SLE} 16_5FC0<<16+ wea,
  1798    's'<<25+('l'&31)<<20+('e'&31)<<15,
  1799   {MTCCR} 16_44C0<<16+ ea<<6,
  1800    'm'<<25+('t'&31)<<20+('c'&31)<<15+('c'&31)<<10+('r'&31)<<5,
  1801   {MTSR} 16_46C0<<16+ ea<<6,
  1802    'm'<<25+('t'&31)<<20+('s'&31)<<15+('r'&31)<<10,
  1803   {MFSR} 16_40C0<<16+ wea,
  1804    'm'<<25+('f'&31)<<20+('s'&31)<<15+('r'&31)<<10,
  1805   {MTUSP} 16_4E60<<16+ areg,
  1806    'm'<<25+('t'&31)<<20+('u'&31)<<15+('s'&31)<<10+('p'&31)<<5,
  1807   {MFUSP} 16_4E68<<16+ areg,
  1808    'm'<<25+('f'&31)<<20+('u'&31)<<15+('s'&31)<<10+('p'&31)<<5,
  1809   {ATCCR} 16_023C<<16+ imm,
  1810    'a'<<25+('t'&31)<<20+('c'&31)<<15+('c'&31)<<10+('r'&31)<<5,
  1811   {ATSR} 16_027C<<16+ imm,
  1812    'a'<<25+('t'&31)<<20+('s'&31)<<15+('r'&31)<<10,
  1813   {ETCCR} 16_0A3C<<16+ imm,
  1814    'e'<<25+('t'&31)<<20+('c'&31)<<15+('c'&31)<<10+('r'&31)<<5,
  1815   {ETSR} 16_0A7C<<16+ imm,
  1816    'e'<<25+('t'&31)<<20+('s'&31)<<15+('r'&31)<<10,
  1817   {OTCCR} 16_003C<<16+ imm,
  1818    'o'<<25+('t'&31)<<20+('c'&31)<<15+('c'&31)<<10+('r'&31)<<5,
  1819   {OTSR} 16_007C<<16+ imm,
  1820    'o'<<25+('t'&31)<<20+('s'&31)<<15+('r'&31)<<10
  1821  
8240 @ 67928:            LINE   1561 "regression-compile-tmp/imp22g-77.imp"
8241 @ 67968:            PUSHI  #0x00000000
8242 @ 67973:            PUSHI  #0x00000102
8243 @ 67978:            BOUNDS
8244 @ 67979:            DEF    DEF p1=V_0123 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
8245 @ 67994:            PUSHI  #0x00000000
8246 @ 67999:            INIT   1
8247 @ 68002:            PUSHI  #0x000081a8
8248 @ 68007:            INIT   1
8249 @ 68010:            PUSHI  #0xdafb1400
8250 @ 68015:            INIT   1
8251 @ 68018:            PUSHI  #0xd0008421
8252 @ 68023:            INIT   1
8253 @ 68026:            PUSHI  #0xc2420000
8254 @ 68031:            INIT   1
8255 @ 68034:            PUSHI  #0x90008421
8256 @ 68039:            INIT   1
8257 @ 68042:            PUSHI  #0xe7510000
8258 @ 68047:            INIT   1
8259 @ 68050:            PUSHI  #0xb00081a1
8260 @ 68055:            INIT   1
8261 @ 68058:            PUSHI  #0xc6d80000
8262 @ 68063:            INIT   1
8263 @ 68066:            PUSHI  #0xc0008421
8264 @ 68071:            INIT   1
8265 @ 68074:            PUSHI  #0xc2e20000
8266 @ 68079:            INIT   1
8267 @ 68082:            PUSHI  #0x80008421
8268 @ 68087:            INIT   1
8269 @ 68090:            PUSHI  #0xdf200000
8270 @ 68095:            INIT   1
8271 @ 68098:            PUSHI  #0xb1008847
8272 @ 68103:            INIT   1
8273 @ 68106:            PUSHI  #0xcaf90000
8274 @ 68111:            INIT   1
8275 @ 68114:            PUSHI  #0x46008007
8276 @ 68119:            INIT   1
8277 @ 68122:            PUSHI  #0xdcfa0000
8278 @ 68127:            INIT   1
8279 @ 68130:            PUSHI  #0x44008007
8280 @ 68135:            INIT   1
8281 @ 68138:            PUSHI  #0xdc538000
8282 @ 68143:            INIT   1
8283 @ 68146:            PUSHI  #0xe1088b41
8284 @ 68151:            INIT   1
8285 @ 68154:            PUSHI  #0xd9360000
8286 @ 68159:            INIT   1
8287 @ 68162:            PUSHI  #0xe0088b41
8288 @ 68167:            INIT   1
8289 @ 68170:            PUSHI  #0xd9390000
8290 @ 68175:            INIT   1
8291 @ 68178:            PUSHI  #0xc1c001a1
8292 @ 68183:            INIT   1
8293 @ 68186:            PUSHI  #0xdb564c00
8294 @ 68191:            INIT   1
8295 @ 68194:            PUSHI  #0x81c001a1
8296 @ 68199:            INIT   1
8297 @ 68202:            PUSHI  #0xc89b4c00
8298 @ 68207:            INIT   1
8299 @ 68210:            PUSHI  #0xc0c001a1
8300 @ 68215:            INIT   1
8301 @ 68218:            PUSHI  #0xdb565400
8302 @ 68223:            INIT   1
8303 @ 68226:            PUSHI  #0x80c001a1
8304 @ 68231:            INIT   1
8305 @ 68234:            PUSHI  #0xc89b5400
8306 @ 68239:            INIT   1
8307 @ 68242:            PUSHI  #0x6000000b
8308 @ 68247:            INIT   1
8309 @ 68250:            PUSHI  #0xc5208000
8310 @ 68255:            INIT   1
8311 @ 68258:            PUSHI  #0x6100000b
8312 @ 68263:            INIT   1
8313 @ 68266:            PUSHI  #0xc5390000
8314 @ 68271:            INIT   1
8315 @ 68274:            PUSHI  #0x6200000b
8316 @ 68279:            INIT   1
8317 @ 68282:            PUSHI  #0xc4848000
8318 @ 68287:            INIT   1
8319 @ 68290:            PUSHI  #0x6300000b
8320 @ 68295:            INIT   1
8321 @ 68298:            PUSHI  #0xc4c98000
8322 @ 68303:            INIT   1
8323 @ 68306:            PUSHI  #0x6400000b
8324 @ 68311:            INIT   1
8325 @ 68314:            PUSHI  #0xc4318000
8326 @ 68319:            INIT   1
8327 @ 68322:            PUSHI  #0x6500000b
8328 @ 68327:            INIT   1
8329 @ 68330:            PUSHI  #0xc4398000
8330 @ 68335:            INIT   1
8331 @ 68338:            PUSHI  #0x6600000b
8332 @ 68343:            INIT   1
8333 @ 68346:            PUSHI  #0xc4e28000
8334 @ 68351:            INIT   1
8335 @ 68354:            PUSHI  #0x6700000b
8336 @ 68359:            INIT   1
8337 @ 68362:            PUSHI  #0xc4588000
8338 @ 68367:            INIT   1
8339 @ 68370:            PUSHI  #0x6800000b
8340 @ 68375:            INIT   1
8341 @ 68378:            PUSHI  #0xc5618000
8342 @ 68383:            INIT   1
8343 @ 68386:            PUSHI  #0x6900000b
8344 @ 68391:            INIT   1
8345 @ 68394:            PUSHI  #0xc5698000
8346 @ 68399:            INIT   1
8347 @ 68402:            PUSHI  #0x6a00000b
8348 @ 68407:            INIT   1
8349 @ 68410:            PUSHI  #0xc5060000
8350 @ 68415:            INIT   1
8351 @ 68418:            PUSHI  #0x6b00000b
8352 @ 68423:            INIT   1
8353 @ 68426:            PUSHI  #0xc4d48000
8354 @ 68431:            INIT   1
8355 @ 68434:            PUSHI  #0x6c00000b
8356 @ 68439:            INIT   1
8357 @ 68442:            PUSHI  #0xc4728000
8358 @ 68447:            INIT   1
8359 @ 68450:            PUSHI  #0x6d00000b
8360 @ 68455:            INIT   1
8361 @ 68458:            PUSHI  #0xc4ca0000
8362 @ 68463:            INIT   1
8363 @ 68466:            PUSHI  #0x6e00000b
8364 @ 68471:            INIT   1
8365 @ 68474:            PUSHI  #0xc47a0000
8366 @ 68479:            INIT   1
8367 @ 68482:            PUSHI  #0x6f00000b
8368 @ 68487:            INIT   1
8369 @ 68490:            PUSHI  #0xc4c28000
8370 @ 68495:            INIT   1
8371 @ 68498:            PUSHI  #0xe1008b41
8372 @ 68503:            INIT   1
8373 @ 68506:            PUSHI  #0xc3360000
8374 @ 68511:            INIT   1
8375 @ 68514:            PUSHI  #0xe0008b41
8376 @ 68519:            INIT   1
8377 @ 68522:            PUSHI  #0xc3390000
8378 @ 68527:            INIT   1
8379 @ 68530:            PUSHI  #0xe1188b41
8380 @ 68535:            INIT   1
8381 @ 68538:            PUSHI  #0xe4f60000
8382 @ 68543:            INIT   1
8383 @ 68546:            PUSHI  #0xe0188b41
8384 @ 68551:            INIT   1
8385 @ 68554:            PUSHI  #0xe4f90000
8386 @ 68559:            INIT   1
8387 @ 68562:            PUSHI  #0x70000161
8388 @ 68567:            INIT   1
8389 @ 68570:            PUSHI  #0xdafb1620
8390 @ 68575:            INIT   1
8391 @ 68578:            PUSHI  #0x50008907
8392 @ 68583:            INIT   1
8393 @ 68586:            PUSHI  #0xc2424400
8394 @ 68591:            INIT   1
8395 @ 68594:            PUSHI  #0x51008907
8396 @ 68599:            INIT   1
8397 @ 68602:            PUSHI  #0xe7514400
8398 @ 68607:            INIT   1
8399 @ 68610:            PUSHI  #0x304041a2
8400 @ 68615:            INIT   1
8401 @ 68618:            PUSHI  #0xdafb1420
8402 @ 68623:            INIT   1
8403 @ 68626:            PUSHI  #0xd0c041a2
8404 @ 68631:            INIT   1
8405 @ 68634:            PUSHI  #0xc2420400
8406 @ 68639:            INIT   1
8407 @ 68642:            PUSHI  #0x90c041a2
8408 @ 68647:            INIT   1
8409 @ 68650:            PUSHI  #0xe7510400
8410 @ 68655:            INIT   1
8411 @ 68658:            PUSHI  #0xb0c041a2
8412 @ 68663:            INIT   1
8413 @ 68666:            PUSHI  #0xc6d80400
8414 @ 68671:            INIT   1
8415 @ 68674:            PUSHI  #0xb10803ae
8416 @ 68679:            INIT   1
8417 @ 68682:            PUSHI  #0xc6d83400
8418 @ 68687:            INIT   1
8419 @ 68690:            PUSHI  #0x06008247
8420 @ 68695:            INIT   1
8421 @ 68698:            PUSHI  #0xc2422400
8422 @ 68703:            INIT   1
8423 @ 68706:            PUSHI  #0x04008247
8424 @ 68711:            INIT   1
8425 @ 68714:            PUSHI  #0xe7512400
8426 @ 68719:            INIT   1
8427 @ 68722:            PUSHI  #0x0c008246
8428 @ 68727:            INIT   1
8429 @ 68730:            PUSHI  #0xc6d82400
8430 @ 68735:            INIT   1
8431 @ 68738:            PUSHI  #0x02008247
8432 @ 68743:            INIT   1
8433 @ 68746:            PUSHI  #0xc2e22400
8434 @ 68751:            INIT   1
8435 @ 68754:            PUSHI  #0x00008247
8436 @ 68759:            INIT   1
8437 @ 68762:            PUSHI  #0xdf248000
8438 @ 68767:            INIT   1
8439 @ 68770:            PUSHI  #0x0a008247
8440 @ 68775:            INIT   1
8441 @ 68778:            PUSHI  #0xcaf92400
8442 @ 68783:            INIT   1
8443 @ 68786:            PUSHI  #0xe1108b41
8444 @ 68791:            INIT   1
8445 @ 68794:            PUSHI  #0xe4fc3000
8446 @ 68799:            INIT   1
8447 @ 68802:            PUSHI  #0xe0108b41
8448 @ 68807:            INIT   1
8449 @ 68810:            PUSHI  #0xe4fc4800
8450 @ 68815:            INIT   1
8451 @ 68818:            PUSHI  #0x42008008
8452 @ 68823:            INIT   1
8453 @ 68826:            PUSHI  #0xc6c90000
8454 @ 68831:            INIT   1
8455 @ 68834:            PUSHI  #0x40008007
8456 @ 68839:            INIT   1
8457 @ 68842:            PUSHI  #0xdc53e000
8458 @ 68847:            INIT   1
8459 @ 68850:            PUSHI  #0x48000007
8460 @ 68855:            INIT   1
8461 @ 68858:            PUSHI  #0xdc219000
8462 @ 68863:            INIT   1
8463 @ 68866:            PUSHI  #0x48400006
8464 @ 68871:            INIT   1
8465 @ 68874:            PUSHI  #0xe0508000
8466 @ 68879:            INIT   1
8467 @ 68882:            PUSHI  #0x4e800006
8468 @ 68887:            INIT   1
8469 @ 68890:            PUSHI  #0xd5390000
8470 @ 68895:            INIT   1
8471 @ 68898:            PUSHI  #0x4ec00006
8472 @ 68903:            INIT   1
8473 @ 68906:            PUSHI  #0xd4d80000
8474 @ 68911:            INIT   1
8475 @ 68914:            PUSHI  #0x4ac00007
8476 @ 68919:            INIT   1
8477 @ 68922:            PUSHI  #0xe8198000
8478 @ 68927:            INIT   1
8479 @ 68930:            PUSHI  #0x4a008006
8480 @ 68935:            INIT   1
8481 @ 68938:            PUSHI  #0xe93a0000
8482 @ 68943:            INIT   1
8483 @ 68946:            PUSHI  #0xc1000521
8484 @ 68951:            INIT   1
8485 @ 68954:            PUSHI  #0xc2219000
8486 @ 68959:            INIT   1
8487 @ 68962:            PUSHI  #0x81000521
8488 @ 68967:            INIT   1
8489 @ 68970:            PUSHI  #0xe6219000
8490 @ 68975:            INIT   1
8491 @ 68978:            PUSHI  #0xd1008521
8492 @ 68983:            INIT   1
8493 @ 68986:            PUSHI  #0xc2426000
8494 @ 68991:            INIT   1
8495 @ 68994:            PUSHI  #0x91008521
8496 @ 68999:            INIT   1
8497 @ 69002:            PUSHI  #0xe7516000
8498 @ 69007:            INIT   1
8499 @ 69010:            PUSHI  #0x4e710000
8500 @ 69015:            INIT   1
8501 @ 69018:            PUSHI  #0xdcf80000
8502 @ 69023:            INIT   1
8503 @ 69026:            PUSHI  #0x4e700000
8504 @ 69031:            INIT   1
8505 @ 69034:            PUSHI  #0xe4599680
8506 @ 69039:            INIT   1
8507 @ 69042:            PUSHI  #0x4e730000
8508 @ 69047:            INIT   1
8509 @ 69050:            PUSHI  #0xe5428000
8510 @ 69055:            INIT   1
8511 @ 69058:            PUSHI  #0x4e770000
8512 @ 69063:            INIT   1
8513 @ 69066:            PUSHI  #0xe5490000
8514 @ 69071:            INIT   1
8515 @ 69074:            PUSHI  #0x4e750000
8516 @ 69079:            INIT   1
8517 @ 69082:            PUSHI  #0xe5498000
8518 @ 69087:            INIT   1
8519 @ 69090:            PUSHI  #0x4e720009
8520 @ 69095:            INIT   1
8521 @ 69098:            PUSHI  #0xe747c000
8522 @ 69103:            INIT   1
8523 @ 69106:            PUSHI  #0x4e760000
8524 @ 69111:            INIT   1
8525 @ 69114:            PUSHI  #0xe920c2c0
8526 @ 69119:            INIT   1
8527 @ 69122:            PUSHI  #0x4e40000a
8528 @ 69127:            INIT   1
8529 @ 69130:            PUSHI  #0xe920c000
8530 @ 69135:            INIT   1
8531 @ 69138:            PUSHI  #0x4e500242
8532 @ 69143:            INIT   1
8533 @ 69146:            PUSHI  #0xd8972c00
8534 @ 69151:            INIT   1
8535 @ 69154:            PUSHI  #0x4e580002
8536 @ 69159:            INIT   1
8537 @ 69162:            PUSHI  #0xeae62c00
8538 @ 69167:            INIT   1
8539 @ 69170:            PUSHI  #0x48400001
8540 @ 69175:            INIT   1
8541 @ 69178:            PUSHI  #0xe770c000
8542 @ 69183:            INIT   1
8543 @ 69186:            PUSHI  #0x48800001
8544 @ 69191:            INIT   1
8545 @ 69194:            PUSHI  #0xcb8a5c00
8546 @ 69199:            INIT   1
8547 @ 69202:            PUSHI  #0x48c00001
8548 @ 69207:            INIT   1
8549 @ 69210:            PUSHI  #0xcb8a3000
8550 @ 69215:            INIT   1
8551 @ 69218:            PUSHI  #0xc1400d41
8552 @ 69223:            INIT   1
8553 @ 69226:            PUSHI  #0xcb838000
8554 @ 69231:            INIT   1
8555 @ 69234:            PUSHI  #0x41c003e2
8556 @ 69239:            INIT   1
8557 @ 69242:            PUSHI  #0xd8508000
8558 @ 69247:            INIT   1
8559 @ 69250:            PUSHI  #0x418001a1
8560 @ 69255:            INIT   1
8561 @ 69258:            PUSHI  #0xc6858000
8562 @ 69263:            INIT   1
8563 @ 69266:            PUSHI  #0x50c8004c
8564 @ 69271:            INIT   1
8565 @ 69274:            PUSHI  #0xc82c6000
8566 @ 69279:            INIT   1
8567 @ 69282:            PUSHI  #0x51c8004c
8568 @ 69287:            INIT   1
8569 @ 69290:            PUSHI  #0xc8290400
8570 @ 69295:            INIT   1
8571 @ 69298:            PUSHI  #0x52c8004c
8572 @ 69303:            INIT   1
8573 @ 69306:            PUSHI  #0xc8242400
8574 @ 69311:            INIT   1
8575 @ 69314:            PUSHI  #0x53c8004c
8576 @ 69319:            INIT   1
8577 @ 69322:            PUSHI  #0xc8264c00
8578 @ 69327:            INIT   1
8579 @ 69330:            PUSHI  #0x54c8004c
8580 @ 69335:            INIT   1
8581 @ 69338:            PUSHI  #0xc8218c00
8582 @ 69343:            INIT   1
8583 @ 69346:            PUSHI  #0x55c8004c
8584 @ 69351:            INIT   1
8585 @ 69354:            PUSHI  #0xc821cc00
8586 @ 69359:            INIT   1
8587 @ 69362:            PUSHI  #0x56c8004c
8588 @ 69367:            INIT   1
8589 @ 69370:            PUSHI  #0xc8271400
8590 @ 69375:            INIT   1
8591 @ 69378:            PUSHI  #0x57c8004c
8592 @ 69383:            INIT   1
8593 @ 69386:            PUSHI  #0xc822c400
8594 @ 69391:            INIT   1
8595 @ 69394:            PUSHI  #0x58c8004c
8596 @ 69399:            INIT   1
8597 @ 69402:            PUSHI  #0xc82b0c00
8598 @ 69407:            INIT   1
8599 @ 69410:            PUSHI  #0x59c8004c
8600 @ 69415:            INIT   1
8601 @ 69418:            PUSHI  #0xc82b4c00
8602 @ 69423:            INIT   1
8603 @ 69426:            PUSHI  #0x5ac8004c
8604 @ 69431:            INIT   1
8605 @ 69434:            PUSHI  #0xc8283000
8606 @ 69439:            INIT   1
8607 @ 69442:            PUSHI  #0x5bc8004c
8608 @ 69447:            INIT   1
8609 @ 69450:            PUSHI  #0xc826a400
8610 @ 69455:            INIT   1
8611 @ 69458:            PUSHI  #0x5cc8004c
8612 @ 69463:            INIT   1
8613 @ 69466:            PUSHI  #0xc8239400
8614 @ 69471:            INIT   1
8615 @ 69474:            PUSHI  #0x5dc8004c
8616 @ 69479:            INIT   1
8617 @ 69482:            PUSHI  #0xc8265000
8618 @ 69487:            INIT   1
8619 @ 69490:            PUSHI  #0x5ec8004c
8620 @ 69495:            INIT   1
8621 @ 69498:            PUSHI  #0xc823d000
8622 @ 69503:            INIT   1
8623 @ 69506:            PUSHI  #0x5fc8004c
8624 @ 69511:            INIT   1
8625 @ 69514:            PUSHI  #0xc8261400
8626 @ 69519:            INIT   1
8627 @ 69522:            PUSHI  #0x014008c7
8628 @ 69527:            INIT   1
8629 @ 69530:            PUSHI  #0xc4341c00
8630 @ 69535:            INIT   1
8631 @ 69538:            PUSHI  #0x018008c8
8632 @ 69543:            INIT   1
8633 @ 69546:            PUSHI  #0xc4364800
8634 @ 69551:            INIT   1
8635 @ 69554:            PUSHI  #0x01c008c8
8636 @ 69559:            INIT   1
8637 @ 69562:            PUSHI  #0xc532d000
8638 @ 69567:            INIT   1
8639 @ 69570:            PUSHI  #0x010008c6
8640 @ 69575:            INIT   1
8641 @ 69578:            PUSHI  #0xc549d000
8642 @ 69583:            INIT   1
8643 @ 69586:            PUSHI  #0x48804446
8644 @ 69591:            INIT   1
8645 @ 69594:            PUSHI  #0xdafb15a0
8646 @ 69599:            INIT   1
8647 @ 69602:            PUSHI  #0x4e40024a
8648 @ 69607:            INIT   1
8649 @ 69610:            PUSHI  #0xe920c120
8650 @ 69615:            INIT   1
8651 @ 69618:            PUSHI  #0x00000012
8652 @ 69623:            INIT   1
8653 @ 69626:            PUSHI  #0xc8300000
8654 @ 69631:            INIT   1
8655 @ 69634:            PUSHI  #0x50c00008
8656 @ 69639:            INIT   1
8657 @ 69642:            PUSHI  #0xe7400000
8658 @ 69647:            INIT   1
8659 @ 69650:            PUSHI  #0x51c00008
8660 @ 69655:            INIT   1
8661 @ 69658:            PUSHI  #0xe6600000
8662 @ 69663:            INIT   1
8663 @ 69666:            PUSHI  #0x52c00008
8664 @ 69671:            INIT   1
8665 @ 69674:            PUSHI  #0xe6848000
8666 @ 69679:            INIT   1
8667 @ 69682:            PUSHI  #0x53c00008
8668 @ 69687:            INIT   1
8669 @ 69690:            PUSHI  #0xe6c98000
8670 @ 69695:            INIT   1
8671 @ 69698:            PUSHI  #0x54c00008
8672 @ 69703:            INIT   1
8673 @ 69706:            PUSHI  #0xe6318000
8674 @ 69711:            INIT   1
8675 @ 69714:            PUSHI  #0x55c00008
8676 @ 69719:            INIT   1
8677 @ 69722:            PUSHI  #0xe6398000
8678 @ 69727:            INIT   1
8679 @ 69730:            PUSHI  #0x56c00008
8680 @ 69735:            INIT   1
8681 @ 69738:            PUSHI  #0xe6e28000
8682 @ 69743:            INIT   1
8683 @ 69746:            PUSHI  #0x57c00008
8684 @ 69751:            INIT   1
8685 @ 69754:            PUSHI  #0xe6588000
8686 @ 69759:            INIT   1
8687 @ 69762:            PUSHI  #0x58c00008
8688 @ 69767:            INIT   1
8689 @ 69770:            PUSHI  #0xe7618000
8690 @ 69775:            INIT   1
8691 @ 69778:            PUSHI  #0x59c00008
8692 @ 69783:            INIT   1
8693 @ 69786:            PUSHI  #0xe7698000
8694 @ 69791:            INIT   1
8695 @ 69794:            PUSHI  #0x5ac00008
8696 @ 69799:            INIT   1
8697 @ 69802:            PUSHI  #0xe7060000
8698 @ 69807:            INIT   1
8699 @ 69810:            PUSHI  #0x5bc00008
8700 @ 69815:            INIT   1
8701 @ 69818:            PUSHI  #0xe6d48000
8702 @ 69823:            INIT   1
8703 @ 69826:            PUSHI  #0x5cc00008
8704 @ 69831:            INIT   1
8705 @ 69834:            PUSHI  #0xe6728000
8706 @ 69839:            INIT   1
8707 @ 69842:            PUSHI  #0x5dc00008
8708 @ 69847:            INIT   1
8709 @ 69850:            PUSHI  #0xe6ca0000
8710 @ 69855:            INIT   1
8711 @ 69858:            PUSHI  #0x5ec00008
8712 @ 69863:            INIT   1
8713 @ 69866:            PUSHI  #0xe67a0000
8714 @ 69871:            INIT   1
8715 @ 69874:            PUSHI  #0x5fc00008
8716 @ 69879:            INIT   1
8717 @ 69882:            PUSHI  #0xe6c28000
8718 @ 69887:            INIT   1
8719 @ 69890:            PUSHI  #0x44c00180
8720 @ 69895:            INIT   1
8721 @ 69898:            PUSHI  #0xdb418e40
8722 @ 69903:            INIT   1
8723 @ 69906:            PUSHI  #0x46c00180
8724 @ 69911:            INIT   1
8725 @ 69914:            PUSHI  #0xdb49c800
8726 @ 69919:            INIT   1
8727 @ 69922:            PUSHI  #0x40c00008
8728 @ 69927:            INIT   1
8729 @ 69930:            PUSHI  #0xda69c800
8730 @ 69935:            INIT   1
8731 @ 69938:            PUSHI  #0x4e600002
8732 @ 69943:            INIT   1
8733 @ 69946:            PUSHI  #0xdb4ace00
8734 @ 69951:            INIT   1
8735 @ 69954:            PUSHI  #0x4e680002
8736 @ 69959:            INIT   1
8737 @ 69962:            PUSHI  #0xda6ace00
8738 @ 69967:            INIT   1
8739 @ 69970:            PUSHI  #0x023c0009
8740 @ 69975:            INIT   1
8741 @ 69978:            PUSHI  #0xc3418e40
8742 @ 69983:            INIT   1
8743 @ 69986:            PUSHI  #0x027c0009
8744 @ 69991:            INIT   1
8745 @ 69994:            PUSHI  #0xc349c800
8746 @ 69999:            INIT   1
8747 @ 70002:            PUSHI  #0x0a3c0009
8748 @ 70007:            INIT   1
8749 @ 70010:            PUSHI  #0xcb418e40
8750 @ 70015:            INIT   1
8751 @ 70018:            PUSHI  #0x0a7c0009
8752 @ 70023:            INIT   1
8753 @ 70026:            PUSHI  #0xcb49c800
8754 @ 70031:            INIT   1
8755 @ 70034:            PUSHI  #0x003c0009
8756 @ 70039:            INIT   1
8757 @ 70042:            PUSHI  #0xdf418e40
8758 @ 70047:            INIT   1
8759 @ 70050:            PUSHI  #0x007c0009
8760 @ 70055:            INIT   1
8761 @ 70058:            PUSHI  #0xdf49c800
8762 @ 70063:            INIT   1

  1822  {?}%routine PUT OPCODE(%integer op)
8763 @ 70066:            LINE   1822 "regression-compile-tmp/imp22g-77.imp"
8764 @ 70106:            DEF    PUTOPCODE (_lev0id0_PUTOPCODE) p1=V_0114 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
8765 @ 70127:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8766 @ 70128:                  DEF    OP 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
8767 @ 70142:               FINISH ) {lev=2}

  1823  {?}  put mnemonic(def(op+op))
8768 @ 70143:               LINE   1823 "regression-compile-tmp/imp22g-77.imp"
8769 @ 70183:               PUSH   PUTMNEMONIC
8770 @ 70186:               PUSH   DEF
8771 @ 70189:               PUSH   OP
8772 @ 70192:               PUSH   OP
8773 @ 70195:               ADD   
8774 @ 70196:               ACCESS
8775 @ 70197:               ASSPAR
8776 @ 70198:               CALL  

  1824  {?}%end
  1825  
8777 @ 70199:               LINE   1824 "regression-compile-tmp/imp22g-77.imp"
8778 @ 70239:            END    _lev0id0_PUTOPCODE {lev=2 --> 1}

  1826  %routine STORE(%integer v,f)
  1827  !$IF VAX
  1828  {  v = v&16_FFFF;  v = v!sign16 %if v&sign16 # 0
  1829  !$FINISH
8779 @ 70240:            LINE   1826 "regression-compile-tmp/imp22g-77.imp"
8780 @ 70280:            DEF    STORE (_lev0id0_STORE) 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
8781 @ 70297:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8782 @ 70298:                  DEF    V 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
8783 @ 70311:                  DEF    F 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
8784 @ 70324:               FINISH ) {lev=2}

  1830    prog(pc) <- v;  pflag(pc) = f;  pc = pc+1
8785 @ 70325:               LINE   1830 "regression-compile-tmp/imp22g-77.imp"
8786 @ 70365:               PUSH   PROG
8787 @ 70368:               PUSH   PC
8788 @ 70371:               ACCESS
8789 @ 70372:               PUSH   V
8790 @ 70375:               JAM   
8791 @ 70376:               LINE   1830 "regression-compile-tmp/imp22g-77.imp"
8792 @ 70416:               PUSH   PFLAG
8793 @ 70419:               PUSH   PC
8794 @ 70422:               ACCESS
8795 @ 70423:               PUSH   F
8796 @ 70426:               ASSVAL
8797 @ 70427:               LINE   1830 "regression-compile-tmp/imp22g-77.imp"
8798 @ 70467:               PUSH   PC
8799 @ 70470:               PUSH   PC
8800 @ 70473:               PUSHI  #0x00000001
8801 @ 70478:               ADD   
8802 @ 70479:               ASSVAL

  1831  %end
  1832  
8803 @ 70480:               LINE   1831 "regression-compile-tmp/imp22g-77.imp"
8804 @ 70520:            END    _lev0id0_STORE {lev=2 --> 1}

  1833  %routine MAKE ROOM(%integer size)
8805 @ 70521:            LINE   1833 "regression-compile-tmp/imp22g-77.imp"
8806 @ 70561:            DEF    MAKEROOM (_lev0id0_MAKEROOM) 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
8807 @ 70581:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8808 @ 70582:                  DEF    SIZE 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
8809 @ 70598:               FINISH ) {lev=2}

  1834  %integer newbase,newlim
8810 @ 70599:               LINE   1834 "regression-compile-tmp/imp22g-77.imp"
8811 @ 70639:               DEF    NEWBASE 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
8812 @ 70658:               DEF    NEWLIM 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

  1835    size = (size+127)&(\127)
8813 @ 70676:               LINE   1835 "regression-compile-tmp/imp22g-77.imp"
8814 @ 70716:               PUSH   SIZE
8815 @ 70719:               PUSH   SIZE
8816 @ 70722:               PUSHI  #0x0000007f
8817 @ 70727:               ADD   
8818 @ 70728:               PUSHI  #0x0000007f
8819 @ 70733:               NOT   
8820 @ 70734:               AND   
8821 @ 70735:               ASSVAL

  1836    ownbase = ownbase-size
8822 @ 70736:               LINE   1836 "regression-compile-tmp/imp22g-77.imp"
8823 @ 70776:               PUSH   OWNBASE
8824 @ 70779:               PUSH   OWNBASE
8825 @ 70782:               PUSH   SIZE
8826 @ 70785:               SUB   
8827 @ 70786:               ASSVAL

  1837    croak("Program too big") %if ownbase <= cad
8828 @ 70787:               LINE   1837 "regression-compile-tmp/imp22g-77.imp"
8829 @ 70827:               PUSH   OWNBASE
8830 @ 70830:               PUSH   CAD
8831 @ 70833:               JUMPIF > L_0004
8832 @ 70837:               PUSH   CROAK
8833 @ 70840:               PUSHS  "Program too big"
8834 @ 70857:               ASSPAR
8835 @ 70858:               CALL  
8836 @ 70859:               LOCATE L_0004

  1838    newbase = ownbase;  newlim = newbase+ownad
8837 @ 70862:               LINE   1838 "regression-compile-tmp/imp22g-77.imp"
8838 @ 70902:               PUSH   NEWBASE
8839 @ 70905:               PUSH   OWNBASE
8840 @ 70908:               ASSVAL
8841 @ 70909:               LINE   1838 "regression-compile-tmp/imp22g-77.imp"
8842 @ 70949:               PUSH   NEWLIM
8843 @ 70952:               PUSH   NEWBASE
8844 @ 70955:               PUSH   OWNAD
8845 @ 70958:               ADD   
8846 @ 70959:               ASSVAL

  1839    %cycle
8847 @ 70960:               LINE   1839 "regression-compile-tmp/imp22g-77.imp"
8848 @ 71000:               LOCATE L_0003

  1840      final(newbase) = final(newbase+size)
8849 @ 71003:               LINE   1840 "regression-compile-tmp/imp22g-77.imp"
8850 @ 71043:               PUSH   FINAL
8851 @ 71046:               PUSH   NEWBASE
8852 @ 71049:               ACCESS
8853 @ 71050:               PUSH   FINAL
8854 @ 71053:               PUSH   NEWBASE
8855 @ 71056:               PUSH   SIZE
8856 @ 71059:               ADD   
8857 @ 71060:               ACCESS
8858 @ 71061:               ASSVAL

  1841      newbase = newbase+1
8859 @ 71062:               LINE   1841 "regression-compile-tmp/imp22g-77.imp"
8860 @ 71102:               PUSH   NEWBASE
8861 @ 71105:               PUSH   NEWBASE
8862 @ 71108:               PUSHI  #0x00000001
8863 @ 71113:               ADD   
8864 @ 71114:               ASSVAL

  1842    %repeat %until newbase >= newlim
8865 @ 71115:               LINE   1842 "regression-compile-tmp/imp22g-77.imp"
8866 @ 71155:               PUSH   NEWBASE
8867 @ 71158:               PUSH   NEWLIM
8868 @ 71161:               JUMPIF >= L_0004
8869 @ 71165:               REPEAT L_0003
8870 @ 71168:               LOCATE L_0004

  1843  %end
  1844  
8871 @ 71171:               LINE   1843 "regression-compile-tmp/imp22g-77.imp"
8872 @ 71211:            END    _lev0id0_MAKEROOM {lev=2 --> 1}

  1845  %routine FILL CODE(%integer n)
8873 @ 71212:            LINE   1845 "regression-compile-tmp/imp22g-77.imp"
8874 @ 71252:            DEF    FILLCODE (_lev0id0_FILLCODE) p1=V_0126 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
8875 @ 71272:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8876 @ 71273:                  DEF    N 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
8877 @ 71286:               FINISH ) {lev=2}

  1846  %integer i
8878 @ 71287:               LINE   1846 "regression-compile-tmp/imp22g-77.imp"
8879 @ 71327:               DEF    I 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

  1847    i = cad;  cad = cad+n
8880 @ 71340:               LINE   1847 "regression-compile-tmp/imp22g-77.imp"
8881 @ 71380:               PUSH   I
8882 @ 71383:               PUSH   CAD
8883 @ 71386:               ASSVAL
8884 @ 71387:               LINE   1847 "regression-compile-tmp/imp22g-77.imp"
8885 @ 71427:               PUSH   CAD
8886 @ 71430:               PUSH   CAD
8887 @ 71433:               PUSH   N
8888 @ 71436:               ADD   
8889 @ 71437:               ASSVAL

  1848    %while n > 0 %cycle
8890 @ 71438:               LINE   1848 "regression-compile-tmp/imp22g-77.imp"
8891 @ 71478:               LOCATE L_0003
8892 @ 71481:               PUSH   N
8893 @ 71484:               PUSHI  #0x00000000
8894 @ 71489:               JUMPIF <= L_0004

  1849      final(i) = 16_80;  i = i+1;  n = n-1
8895 @ 71493:               LINE   1849 "regression-compile-tmp/imp22g-77.imp"
8896 @ 71533:               PUSH   FINAL
8897 @ 71536:               PUSH   I
8898 @ 71539:               ACCESS
8899 @ 71540:               PUSHI  #0x00000080
8900 @ 71545:               ASSVAL
8901 @ 71546:               LINE   1849 "regression-compile-tmp/imp22g-77.imp"
8902 @ 71586:               PUSH   I
8903 @ 71589:               PUSH   I
8904 @ 71592:               PUSHI  #0x00000001
8905 @ 71597:               ADD   
8906 @ 71598:               ASSVAL
8907 @ 71599:               LINE   1849 "regression-compile-tmp/imp22g-77.imp"
8908 @ 71639:               PUSH   N
8909 @ 71642:               PUSH   N
8910 @ 71645:               PUSHI  #0x00000001
8911 @ 71650:               SUB   
8912 @ 71651:               ASSVAL

  1850    %repeat
8913 @ 71652:               LINE   1850 "regression-compile-tmp/imp22g-77.imp"
8914 @ 71692:               REPEAT L_0003
8915 @ 71695:               LOCATE L_0004

  1851  %end
8916 @ 71698:               LINE   1851 "regression-compile-tmp/imp22g-77.imp"
8917 @ 71738:            END    _lev0id0_FILLCODE {lev=2 --> 1}

  1852  %routine FILL OWN(%integer n)
8918 @ 71739:            LINE   1852 "regression-compile-tmp/imp22g-77.imp"
8919 @ 71779:            DEF    FILLOWN (_lev0id0_FILLOWN) p1=V_0127 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
8920 @ 71798:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8921 @ 71799:                  DEF    N 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
8922 @ 71812:               FINISH ) {lev=2}

  1853  %integer i
8923 @ 71813:               LINE   1853 "regression-compile-tmp/imp22g-77.imp"
8924 @ 71853:               DEF    I 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

  1854    make room(n)
8925 @ 71866:               LINE   1854 "regression-compile-tmp/imp22g-77.imp"
8926 @ 71906:               PUSH   MAKEROOM
8927 @ 71909:               PUSH   N
8928 @ 71912:               ASSPAR
8929 @ 71913:               CALL  

  1855    i = ownbase+ownad;  ownad = ownad+n
8930 @ 71914:               LINE   1855 "regression-compile-tmp/imp22g-77.imp"
8931 @ 71954:               PUSH   I
8932 @ 71957:               PUSH   OWNBASE
8933 @ 71960:               PUSH   OWNAD
8934 @ 71963:               ADD   
8935 @ 71964:               ASSVAL
8936 @ 71965:               LINE   1855 "regression-compile-tmp/imp22g-77.imp"
8937 @ 72005:               PUSH   OWNAD
8938 @ 72008:               PUSH   OWNAD
8939 @ 72011:               PUSH   N
8940 @ 72014:               ADD   
8941 @ 72015:               ASSVAL

  1856    %while n > 0 %cycle
8942 @ 72016:               LINE   1856 "regression-compile-tmp/imp22g-77.imp"
8943 @ 72056:               LOCATE L_0003
8944 @ 72059:               PUSH   N
8945 @ 72062:               PUSHI  #0x00000000
8946 @ 72067:               JUMPIF <= L_0004

  1857      final(i) = 16_80;  i = i+1;  n = n-1
8947 @ 72071:               LINE   1857 "regression-compile-tmp/imp22g-77.imp"
8948 @ 72111:               PUSH   FINAL
8949 @ 72114:               PUSH   I
8950 @ 72117:               ACCESS
8951 @ 72118:               PUSHI  #0x00000080
8952 @ 72123:               ASSVAL
8953 @ 72124:               LINE   1857 "regression-compile-tmp/imp22g-77.imp"
8954 @ 72164:               PUSH   I
8955 @ 72167:               PUSH   I
8956 @ 72170:               PUSHI  #0x00000001
8957 @ 72175:               ADD   
8958 @ 72176:               ASSVAL
8959 @ 72177:               LINE   1857 "regression-compile-tmp/imp22g-77.imp"
8960 @ 72217:               PUSH   N
8961 @ 72220:               PUSH   N
8962 @ 72223:               PUSHI  #0x00000001
8963 @ 72228:               SUB   
8964 @ 72229:               ASSVAL

  1858    %repeat
8965 @ 72230:               LINE   1858 "regression-compile-tmp/imp22g-77.imp"
8966 @ 72270:               REPEAT L_0003
8967 @ 72273:               LOCATE L_0004

  1859  %end
  1860  
8968 @ 72276:               LINE   1859 "regression-compile-tmp/imp22g-77.imp"
8969 @ 72316:            END    _lev0id0_FILLOWN {lev=2 --> 1}

  1861  %routine SET CODE WORD(%integer v)
  1862  !$IF VAX (works irrespective of host byte sex)
  1863  {  final(cad) <- v>>8;  final(cad+1) <- v
  1864  !$IF APM (for efficiency)
8970 @ 72317:            LINE   1861 "regression-compile-tmp/imp22g-77.imp"
8971 @ 72357:            DEF    SETCODEWORD (_lev0id0_SETCODEWORD) 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
8972 @ 72380:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8973 @ 72381:                  DEF    V 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
8974 @ 72394:               FINISH ) {lev=2}

  1865    shortinteger(final0+cad) <- v
  1866  !$FINISH
8975 @ 72395:               LINE   1865 "regression-compile-tmp/imp22g-77.imp"
8976 @ 72435:               PUSH   SHORTINTEGER
8977 @ 72438:               PUSH   FINAL0
8978 @ 72441:               PUSH   CAD
8979 @ 72444:               ADD   
8980 @ 72445:               ASSPAR
8981 @ 72446:               CALL  
8982 @ 72447:               PUSH   V
8983 @ 72450:               JAM   

  1867    cad = cad+2
8984 @ 72451:               LINE   1867 "regression-compile-tmp/imp22g-77.imp"
8985 @ 72491:               PUSH   CAD
8986 @ 72494:               PUSH   CAD
8987 @ 72497:               PUSHI  #0x00000002
8988 @ 72502:               ADD   
8989 @ 72503:               ASSVAL

  1868  %end
  1869  
8990 @ 72504:               LINE   1868 "regression-compile-tmp/imp22g-77.imp"
8991 @ 72544:            END    _lev0id0_SETCODEWORD {lev=2 --> 1}

  1870  %integer%fn CODE WORD(%integer cad)
  1871  !$IF VAX (works irrespective of host byte sex)
  1872  {  %result = final(cad)<<8+final(cad+1)
  1873  !$IF APM (for efficiency)
8992 @ 72545:            LINE   1870 "regression-compile-tmp/imp22g-77.imp"
8993 @ 72585:            DEF    CODEWORD (_lev0id0_CODEWORD) 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
8994 @ 72605:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8995 @ 72606:                  DEF    CAD 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
8996 @ 72621:               FINISH ) {lev=2}

  1874    %result = shortinteger(final0+cad)
  1875  !$FINISH
8997 @ 72622:               LINE   1874 "regression-compile-tmp/imp22g-77.imp"
8998 @ 72662:               PUSH   SHORTINTEGER
8999 @ 72665:               PUSH   FINAL0
9000 @ 72668:               PUSH   CAD
9001 @ 72671:               ADD   
9002 @ 72672:               ASSPAR
9003 @ 72673:               CALL  
9004 @ 72674:               RESULT

  1876  %end
  1877  
9005 @ 72675:               LINE   1876 "regression-compile-tmp/imp22g-77.imp"
9006 @ 72715:            END    _lev0id0_CODEWORD {lev=2 --> 1}

  1878  %routine SET CODE LONGWORD(%integer v)
9007 @ 72716:            LINE   1878 "regression-compile-tmp/imp22g-77.imp"
9008 @ 72756:            DEF    SETCODELONGWORD (_lev0id0_SETCODELONGWORD) 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
9009 @ 72783:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
9010 @ 72784:                  DEF    V 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
9011 @ 72797:               FINISH ) {lev=2}

  1879    set code word(v>>16);  set code word(v)
9012 @ 72798:               LINE   1879 "regression-compile-tmp/imp22g-77.imp"
9013 @ 72838:               PUSH   SETCODEWORD
9014 @ 72841:               PUSH   V
9015 @ 72844:               PUSHI  #0x00000010
9016 @ 72849:               RSH   
9017 @ 72850:               ASSPAR
9018 @ 72851:               CALL  
9019 @ 72852:               LINE   1879 "regression-compile-tmp/imp22g-77.imp"
9020 @ 72892:               PUSH   SETCODEWORD
9021 @ 72895:               PUSH   V
9022 @ 72898:               ASSPAR
9023 @ 72899:               CALL  

  1880  %end
  1881  
9024 @ 72900:               LINE   1880 "regression-compile-tmp/imp22g-77.imp"
9025 @ 72940:            END    _lev0id0_SETCODELONGWORD {lev=2 --> 1}

  1882  %routine SET OWN WORD(%integer v)
9026 @ 72941:            LINE   1882 "regression-compile-tmp/imp22g-77.imp"
9027 @ 72981:            DEF    SETOWNWORD (_lev0id0_SETOWNWORD) p1=V_012b 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
9028 @ 73003:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
9029 @ 73004:                  DEF    V p1=V_012c a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
9030 @ 73017:               FINISH ) {lev=2}

  1883    make room(2) %if ownbase+ownad > finalbound
  1884  !$IF VAX
  1885  {  final(ownbase+ownad) <- v>>8;  final(ownbase+ownad+1) <- v
  1886  !$IF APM
9031 @ 73018:               LINE   1883 "regression-compile-tmp/imp22g-77.imp"
9032 @ 73058:               PUSH   OWNBASE
9033 @ 73061:               PUSH   OWNAD
9034 @ 73064:               ADD   
9035 @ 73065:               PUSH   FINALBOUND
9036 @ 73068:               JUMPIF <= L_0004
9037 @ 73072:               PUSH   MAKEROOM
9038 @ 73075:               PUSHI  #0x00000002
9039 @ 73080:               ASSPAR
9040 @ 73081:               CALL  
9041 @ 73082:               LOCATE L_0004

  1887    shortinteger(final0+ownbase+ownad) <- v
  1888  !$FINISH
9042 @ 73085:               LINE   1887 "regression-compile-tmp/imp22g-77.imp"
9043 @ 73125:               PUSH   SHORTINTEGER
9044 @ 73128:               PUSH   FINAL0
9045 @ 73131:               PUSH   OWNBASE
9046 @ 73134:               ADD   
9047 @ 73135:               PUSH   OWNAD
9048 @ 73138:               ADD   
9049 @ 73139:               ASSPAR
9050 @ 73140:               CALL  
9051 @ 73141:               PUSH   V
9052 @ 73144:               JAM   

  1889    ownad = ownad+2
9053 @ 73145:               LINE   1889 "regression-compile-tmp/imp22g-77.imp"
9054 @ 73185:               PUSH   OWNAD
9055 @ 73188:               PUSH   OWNAD
9056 @ 73191:               PUSHI  #0x00000002
9057 @ 73196:               ADD   
9058 @ 73197:               ASSVAL

  1890  %end
  1891  
9059 @ 73198:               LINE   1890 "regression-compile-tmp/imp22g-77.imp"
9060 @ 73238:            END    _lev0id0_SETOWNWORD {lev=2 --> 1}

  1892  %routine EXTEND STACK(%integer delta)
9061 @ 73239:            LINE   1892 "regression-compile-tmp/imp22g-77.imp"
9062 @ 73279:            DEF    EXTENDSTACK (_lev0id0_EXTENDSTACK) p1=V_012c 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
9063 @ 73302:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
9064 @ 73303:                  DEF    DELTA p1=V_012d a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
9065 @ 73320:               FINISH ) {lev=2}

  1893    c_sp = c_sp-delta
9066 @ 73321:               LINE   1893 "regression-compile-tmp/imp22g-77.imp"
9067 @ 73361:               PUSH   C
9068 @ 73364:               SELECT 1
9069 @ 73367:               PUSH   C
9070 @ 73370:               SELECT 1
9071 @ 73373:               PUSH   DELTA
9072 @ 73376:               SUB   
9073 @ 73377:               ASSVAL

  1894    %if c_sp < c_stack %start
9074 @ 73378:               LINE   1894 "regression-compile-tmp/imp22g-77.imp"
9075 @ 73418:               PUSH   C
9076 @ 73421:               SELECT 1
9077 @ 73424:               PUSH   C
9078 @ 73427:               SELECT 2
9079 @ 73430:               JUMPIF >= L_0004

  1895      c_stack = c_sp
9080 @ 73434:               LINE   1895 "regression-compile-tmp/imp22g-77.imp"
9081 @ 73474:               PUSH   C
9082 @ 73477:               SELECT 2
9083 @ 73480:               PUSH   C
9084 @ 73483:               SELECT 1
9085 @ 73486:               ASSVAL

  1896      c_totstack = c_stack %if c_stack < c_totstack
9086 @ 73487:               LINE   1896 "regression-compile-tmp/imp22g-77.imp"
9087 @ 73527:               PUSH   C
9088 @ 73530:               SELECT 2
9089 @ 73533:               PUSH   C
9090 @ 73536:               SELECT 4
9091 @ 73539:               JUMPIF >= L_0007
9092 @ 73543:               PUSH   C
9093 @ 73546:               SELECT 4
9094 @ 73549:               PUSH   C
9095 @ 73552:               SELECT 2
9096 @ 73555:               ASSVAL
9097 @ 73556:               LOCATE L_0007

  1897    %finish
9098 @ 73559:               LINE   1897 "regression-compile-tmp/imp22g-77.imp"
9099 @ 73599:               LOCATE L_0004

  1898  %end
  1899  
9100 @ 73602:               LINE   1898 "regression-compile-tmp/imp22g-77.imp"
9101 @ 73642:            END    _lev0id0_EXTENDSTACK {lev=2 --> 1}

  1900  %routine PLANT(%integer op,y,x)
  1901  !Basic code planting procedure
  1902  ! OP is an index to the array defining op-codes
  1903  !  (it can be flagged to force SIZE)
  1904  ! For unary operations the operand is given by X (Y zero)
  1905  ! For binary operations the operands are Y (source) and X (dest)
9102 @ 73643:            LINE   1900 "regression-compile-tmp/imp22g-77.imp"
9103 @ 73683:            DEF    PLANT (_lev0id0_PLANT) p1=V_012d 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
9104 @ 73700:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
9105 @ 73701:                  DEF    OP p1=V_012e a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
9106 @ 73715:                  DEF    Y p1=V_012f a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
9107 @ 73728:                  DEF    X p1=V_0130 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
9108 @ 73741:               FINISH ) {lev=2}

  1906  %integer OPCODE,PC1,I,F,EXTWORD,INFO,KIND,MODE,MODEX,SIZE
9109 @ 73742:               LINE   1906 "regression-compile-tmp/imp22g-77.imp"
9110 @ 73782:               DEF    OPCODE p1=V_0131 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
9111 @ 73800:               DEF    PC1 p1=V_0132 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
9112 @ 73815:               DEF    I p1=V_0133 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
9113 @ 73828:               DEF    F p1=V_0134 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
9114 @ 73841:               DEF    EXTWORD p1=V_0135 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
9115 @ 73860:               DEF    INFO p1=V_0136 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
9116 @ 73876:               DEF    KIND p1=V_0137 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
9117 @ 73892:               DEF    MODE p1=V_0138 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
9118 @ 73908:               DEF    MODEX p1=V_0139 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
9119 @ 73925:               DEF    SIZE p1=V_013a a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  1907  %record(identinfo)%name DX,DY
9120 @ 73941:               LINE   1907 "regression-compile-tmp/imp22g-77.imp"
9121 @ 73981:               DEF    DX p1=V_013b a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
9122 @ 73995:               DEF    DY p1=V_013c a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  1908  %switch S(0:21)
9123 @ 74009:               LINE   1908 "regression-compile-tmp/imp22g-77.imp"
9124 @ 74049:               PUSHI  #0x00000000
9125 @ 74054:               PUSHI  #0x00000015
9126 @ 74059:               BOUNDS
9127 @ 74060:               DEF    S p1=V_013d 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

  1909  %constbytearray SIZESYM(0:3) = 'L','B','W','?'
  1910  
9128 @ 74073:               LINE   1909 "regression-compile-tmp/imp22g-77.imp"
9129 @ 74113:               PUSHI  #0x00000000
9130 @ 74118:               PUSHI  #0x00000003
9131 @ 74123:               BOUNDS
9132 @ 74124:               DEF    SIZESYM p1=V_013e 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
9133 @ 74143:               PUSHI  #0x0000004c
9134 @ 74148:               INIT   1
9135 @ 74151:               PUSHI  #0x00000042
9136 @ 74156:               INIT   1
9137 @ 74159:               PUSHI  #0x00000057
9138 @ 74164:               INIT   1
9139 @ 74167:               PUSHI  #0x0000003f
9140 @ 74172:               INIT   1

  1911  %integer%fn NONLOCAL(%integer l)
9141 @ 74175:               LINE   1911 "regression-compile-tmp/imp22g-77.imp"
9142 @ 74215:               DEF    NONLOCAL (_lev0id0_PLANT_NONLOCAL) p1=V_013f 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
9143 @ 74235:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
9144 @ 74236:                     DEF    L p1=V_0140 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
9145 @ 74249:                  FINISH ) {lev=3}

  1912  %integer r
9146 @ 74250:                  LINE   1912 "regression-compile-tmp/imp22g-77.imp"
9147 @ 74290:                  DEF    R p1=V_0141 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  1913    %result = mb %if l = outerlevel
9148 @ 74303:                  LINE   1913 "regression-compile-tmp/imp22g-77.imp"
9149 @ 74343:                  PUSH   L
9150 @ 74346:                  PUSHI  #0x00000000
9151 @ 74351:                  JUMPIF # L_0004
9152 @ 74355:                  PUSHI  #0x0000000d
9153 @ 74360:                  RESULT
9154 @ 74361:                  LOCATE L_0004

  1914    hold(l)_status = hold(l)_status!globbed %if l # level
9155 @ 74364:                  LINE   1914 "regression-compile-tmp/imp22g-77.imp"
9156 @ 74404:                  PUSH   L
9157 @ 74407:                  PUSH   LEVEL
9158 @ 74410:                  JUMPIF = L_0004
9159 @ 74414:                  PUSH   HOLD
9160 @ 74417:                  PUSH   L
9161 @ 74420:                  ACCESS
9162 @ 74421:                  SELECT 6
9163 @ 74424:                  PUSH   HOLD
9164 @ 74427:                  PUSH   L
9165 @ 74430:                  ACCESS
9166 @ 74431:                  SELECT 6
9167 @ 74434:                  PUSHI  #0x00000010
9168 @ 74439:                  OR    
9169 @ 74440:                  ASSVAL
9170 @ 74441:                  LOCATE L_0004

  1915    %result = f1 %if l = outerlevel+1
9171 @ 74444:                  LINE   1915 "regression-compile-tmp/imp22g-77.imp"
9172 @ 74484:                  PUSH   L
9173 @ 74487:                  PUSHI  #0x00000000
9174 @ 74492:                  PUSHI  #0x00000001
9175 @ 74497:                  ADD   
9176 @ 74498:                  JUMPIF # L_0004
9177 @ 74502:                  PUSHI  #0x0000000f
9178 @ 74507:                  RESULT
9179 @ 74508:                  LOCATE L_0004

  1916    r = maxareg
9180 @ 74511:                  LINE   1916 "regression-compile-tmp/imp22g-77.imp"
9181 @ 74551:                  PUSH   R
9182 @ 74554:                  PUSHI  #0x0000000c
9183 @ 74559:                  ASSVAL

  1917    %cycle
9184 @ 74560:                  LINE   1917 "regression-compile-tmp/imp22g-77.imp"
9185 @ 74600:                  LOCATE L_0003

  1918      %result = r %if c_reg_content(r) = d7+l;  ![unique]
9186 @ 74603:                  LINE   1918 "regression-compile-tmp/imp22g-77.imp"
9187 @ 74643:                  PUSH   C
9188 @ 74646:                  SELECT 30
9189 @ 74649:                  SELECT 4
9190 @ 74652:                  PUSH   R
9191 @ 74655:                  ACCESS
9192 @ 74656:                  PUSHI  #0x00000008
9193 @ 74661:                  PUSH   L
9194 @ 74664:                  ADD   
9195 @ 74665:                  JUMPIF # L_0007
9196 @ 74669:                  PUSH   R
9197 @ 74672:                  RESULT
9198 @ 74673:                  LOCATE L_0007

  1919      r = r-1
9199 @ 74676:                  LINE   1919 "regression-compile-tmp/imp22g-77.imp"
9200 @ 74716:                  PUSH   R
9201 @ 74719:                  PUSH   R
9202 @ 74722:                  PUSHI  #0x00000001
9203 @ 74727:                  SUB   
9204 @ 74728:                  ASSVAL

  1920    %repeat %until r < a0
  1921  ![not good enough: 1. may need two
  1922  !                  2. FREE updated elsewhere without regard to this]
9205 @ 74729:                  LINE   1920 "regression-compile-tmp/imp22g-77.imp"
9206 @ 74769:                  PUSH   R
9207 @ 74772:                  PUSHI  #0x00000009
9208 @ 74777:                  JUMPIF < L_0004
9209 @ 74781:                  REPEAT L_0003
9210 @ 74784:                  LOCATE L_0004

  1923    r = maxareg
9211 @ 74787:                  LINE   1923 "regression-compile-tmp/imp22g-77.imp"
9212 @ 74827:                  PUSH   R
9213 @ 74830:                  PUSHI  #0x0000000c
9214 @ 74835:                  ASSVAL

  1924    %while a0b<<(r-a0)&free = 0 %cycle
9215 @ 74836:                  LINE   1924 "regression-compile-tmp/imp22g-77.imp"
9216 @ 74876:                  LOCATE L_0003
9217 @ 74879:                  PUSHI  #0x00000100
9218 @ 74884:                  PUSH   R
9219 @ 74887:                  PUSHI  #0x00000009
9220 @ 74892:                  SUB   
9221 @ 74893:                  LSH   
9222 @ 74894:                  PUSH   FREE
9223 @ 74897:                  AND   
9224 @ 74898:                  PUSHI  #0x00000000
9225 @ 74903:                  JUMPIF # L_0004

  1925      fault(plexerr) %and %exit %if r = a0
9226 @ 74907:                  LINE   1925 "regression-compile-tmp/imp22g-77.imp"
9227 @ 74947:                  PUSH   R
9228 @ 74950:                  PUSHI  #0x00000009
9229 @ 74955:                  JUMPIF # L_0007
9230 @ 74959:                  PUSH   FAULT
9231 @ 74962:                  PUSHI  #0x00000002
9232 @ 74967:                  ASSPAR
9233 @ 74968:                  CALL  
9234 @ 74969:                  GOTO   L_0004
9235 @ 74972:                  LOCATE L_0007

  1926      r = r-1
9236 @ 74975:                  LINE   1926 "regression-compile-tmp/imp22g-77.imp"
9237 @ 75015:                  PUSH   R
9238 @ 75018:                  PUSH   R
9239 @ 75021:                  PUSHI  #0x00000001
9240 @ 75026:                  SUB   
9241 @ 75027:                  ASSVAL

  1927    %repeat
9242 @ 75028:                  LINE   1927 "regression-compile-tmp/imp22g-77.imp"
9243 @ 75068:                  REPEAT L_0003
9244 @ 75071:                  LOCATE L_0004

  1928    c_reg_content(r) = d7+l
9245 @ 75074:                  LINE   1928 "regression-compile-tmp/imp22g-77.imp"
9246 @ 75114:                  PUSH   C
9247 @ 75117:                  SELECT 30
9248 @ 75120:                  SELECT 4
9249 @ 75123:                  PUSH   R
9250 @ 75126:                  ACCESS
9251 @ 75127:                  PUSHI  #0x00000008
9252 @ 75132:                  PUSH   L
9253 @ 75135:                  ADD   
9254 @ 75136:                  ASSVAL

  1929    dtsprel_mode = globalmode;  dtsprel_val = l<<2
9255 @ 75137:                  LINE   1929 "regression-compile-tmp/imp22g-77.imp"
9256 @ 75177:                  PUSH   DTSPREL
9257 @ 75180:                  SELECT 8
9258 @ 75183:                  PUSHI  #0x0000002d
9259 @ 75188:                  ASSVAL
9260 @ 75189:                  LINE   1929 "regression-compile-tmp/imp22g-77.imp"
9261 @ 75229:                  PUSH   DTSPREL
9262 @ 75232:                  SELECT 9
9263 @ 75235:                  PUSH   L
9264 @ 75238:                  PUSHI  #0x00000002
9265 @ 75243:                  LSH   
9266 @ 75244:                  ASSVAL

  1930    plant(move,lablim+2,r)
9267 @ 75245:                  LINE   1930 "regression-compile-tmp/imp22g-77.imp"
9268 @ 75285:                  PUSH   PLANT
9269 @ 75288:                  PUSHI  #0x00000001
9270 @ 75293:                  ASSPAR
9271 @ 75294:                  PUSH   LABLIM
9272 @ 75297:                  PUSHI  #0x00000002
9273 @ 75302:                  ADD   
9274 @ 75303:                  ASSPAR
9275 @ 75304:                  PUSH   R
9276 @ 75307:                  ASSPAR
9277 @ 75308:                  CALL  

  1931    %result = r
9278 @ 75309:                  LINE   1931 "regression-compile-tmp/imp22g-77.imp"
9279 @ 75349:                  PUSH   R
9280 @ 75352:                  RESULT

  1932  %end
  1933  
9281 @ 75353:                  LINE   1932 "regression-compile-tmp/imp22g-77.imp"
9282 @ 75393:               END    _lev0id0_PLANT_NONLOCAL {lev=3 --> 2}

  1934  %constinteger MOVEQ=36, ADDQ=37, MOVEA=39,
  1935                ADDA=40, ADDI=44
  1936  
9283 @ 75394:               LINE   1934 "regression-compile-tmp/imp22g-77.imp"

  1937    %if x > 0 %start
9284 @ 75434:               LINE   1937 "regression-compile-tmp/imp22g-77.imp"
9285 @ 75474:               PUSH   X
9286 @ 75477:               PUSHI  #0x00000000
9287 @ 75482:               JUMPIF <= L_0004

  1938      intern(1) %and %return %if x >= explim
9288 @ 75486:               LINE   1938 "regression-compile-tmp/imp22g-77.imp"
9289 @ 75526:               PUSH   X
9290 @ 75529:               PUSH   EXPLIM
9291 @ 75532:               JUMPIF < L_0007
9292 @ 75536:               PUSH   INTERN
9293 @ 75539:               PUSHI  #0x00000001
9294 @ 75544:               ASSPAR
9295 @ 75545:               CALL  
9296 @ 75546:               RETURN
9297 @ 75547:               LOCATE L_0007

  1939      dx == dict(x)
9298 @ 75550:               LINE   1939 "regression-compile-tmp/imp22g-77.imp"
9299 @ 75590:               PUSH   DX
9300 @ 75593:               PUSH   DICT
9301 @ 75596:               PUSH   X
9302 @ 75599:               ACCESS
9303 @ 75600:               ASSREF

  1940      modex = dx_mode
9304 @ 75601:               LINE   1940 "regression-compile-tmp/imp22g-77.imp"
9305 @ 75641:               PUSH   MODEX
9306 @ 75644:               PUSH   DX
9307 @ 75647:               SELECT 8
9308 @ 75650:               ASSVAL

  1941      %if modex >= framemode %and modex # c_mode %c
  1942      %and modex&2_111000 # 2_111000 %start
9309 @ 75651:               LINE   1941 "regression-compile-tmp/imp22g-77.imp"
9310 @ 75691:               PUSH   MODEX
9311 @ 75694:               PUSHI  #0x000000a8
9312 @ 75699:               JUMPIF < L_0007
9313 @ 75703:               PUSH   MODEX
9314 @ 75706:               PUSH   C
9315 @ 75709:               SELECT 27
9316 @ 75712:               JUMPIF = L_0007
9317 @ 75716:               PUSH   MODEX
9318 @ 75719:               PUSHI  #0x00000038
9319 @ 75724:               AND   
9320 @ 75725:               PUSHI  #0x00000038
9321 @ 75730:               JUMPIF = L_0007

  1943        modex = nonlocal(modex&7)-a0+(modex&(7<<3))
9322 @ 75734:               LINE   1943 "regression-compile-tmp/imp22g-77.imp"
9323 @ 75774:               PUSH   MODEX
9324 @ 75777:               PUSH   NONLOCAL
9325 @ 75780:               PUSH   MODEX
9326 @ 75783:               PUSHI  #0x00000007
9327 @ 75788:               AND   
9328 @ 75789:               ASSPAR
9329 @ 75790:               CALL  
9330 @ 75791:               PUSHI  #0x00000009
9331 @ 75796:               SUB   
9332 @ 75797:               PUSH   MODEX
9333 @ 75800:               PUSHI  #0x00000007
9334 @ 75805:               PUSHI  #0x00000003
9335 @ 75810:               LSH   
9336 @ 75811:               AND   
9337 @ 75812:               ADD   
9338 @ 75813:               ASSVAL

  1944      %finish
9339 @ 75814:               LINE   1944 "regression-compile-tmp/imp22g-77.imp"
9340 @ 75854:               LOCATE L_0007

  1945    %finish %else modex = litmode %and dx == dint
9341 @ 75857:               LINE   1945 "regression-compile-tmp/imp22g-77.imp"
9342 @ 75897:               GOTO   L_0003
9343 @ 75900:               LOCATE L_0004
9344 @ 75903:               PUSH   MODEX
9345 @ 75906:               PUSHI  #0x0000003c
9346 @ 75911:               ASSVAL
9347 @ 75912:               PUSH   DX
9348 @ 75915:               PUSH   DINT
9349 @ 75918:               ASSREF
9350 @ 75919:               LOCATE L_0003

  1946    %if y > 0 %start
9351 @ 75922:               LINE   1946 "regression-compile-tmp/imp22g-77.imp"
9352 @ 75962:               PUSH   Y
9353 @ 75965:               PUSHI  #0x00000000
9354 @ 75970:               JUMPIF <= L_0004

  1947      intern(1) %and %return %if y >= explim
9355 @ 75974:               LINE   1947 "regression-compile-tmp/imp22g-77.imp"
9356 @ 76014:               PUSH   Y
9357 @ 76017:               PUSH   EXPLIM
9358 @ 76020:               JUMPIF < L_0007
9359 @ 76024:               PUSH   INTERN
9360 @ 76027:               PUSHI  #0x00000001
9361 @ 76032:               ASSPAR
9362 @ 76033:               CALL  
9363 @ 76034:               RETURN
9364 @ 76035:               LOCATE L_0007

  1948      dy == dict(y)
9365 @ 76038:               LINE   1948 "regression-compile-tmp/imp22g-77.imp"
9366 @ 76078:               PUSH   DY
9367 @ 76081:               PUSH   DICT
9368 @ 76084:               PUSH   Y
9369 @ 76087:               ACCESS
9370 @ 76088:               ASSREF

  1949      mode = dy_mode
9371 @ 76089:               LINE   1949 "regression-compile-tmp/imp22g-77.imp"
9372 @ 76129:               PUSH   MODE
9373 @ 76132:               PUSH   DY
9374 @ 76135:               SELECT 8
9375 @ 76138:               ASSVAL

  1950      %if mode >= framemode %and mode # c_mode %c
  1951      %and mode&2_111000 # 2_111000 %start
9376 @ 76139:               LINE   1950 "regression-compile-tmp/imp22g-77.imp"
9377 @ 76179:               PUSH   MODE
9378 @ 76182:               PUSHI  #0x000000a8
9379 @ 76187:               JUMPIF < L_0007
9380 @ 76191:               PUSH   MODE
9381 @ 76194:               PUSH   C
9382 @ 76197:               SELECT 27
9383 @ 76200:               JUMPIF = L_0007
9384 @ 76204:               PUSH   MODE
9385 @ 76207:               PUSHI  #0x00000038
9386 @ 76212:               AND   
9387 @ 76213:               PUSHI  #0x00000038
9388 @ 76218:               JUMPIF = L_0007

  1952        mode = nonlocal(mode&7)-a0+(mode&(7<<3))
9389 @ 76222:               LINE   1952 "regression-compile-tmp/imp22g-77.imp"
9390 @ 76262:               PUSH   MODE
9391 @ 76265:               PUSH   NONLOCAL
9392 @ 76268:               PUSH   MODE
9393 @ 76271:               PUSHI  #0x00000007
9394 @ 76276:               AND   
9395 @ 76277:               ASSPAR
9396 @ 76278:               CALL  
9397 @ 76279:               PUSHI  #0x00000009
9398 @ 76284:               SUB   
9399 @ 76285:               PUSH   MODE
9400 @ 76288:               PUSHI  #0x00000007
9401 @ 76293:               PUSHI  #0x00000003
9402 @ 76298:               LSH   
9403 @ 76299:               AND   
9404 @ 76300:               ADD   
9405 @ 76301:               ASSVAL

  1953      %finish
9406 @ 76302:               LINE   1953 "regression-compile-tmp/imp22g-77.imp"
9407 @ 76342:               LOCATE L_0007

  1954    %finish %else mode = litmode %and dy == dint
9408 @ 76345:               LINE   1954 "regression-compile-tmp/imp22g-77.imp"
9409 @ 76385:               GOTO   L_0003
9410 @ 76388:               LOCATE L_0004
9411 @ 76391:               PUSH   MODE
9412 @ 76394:               PUSHI  #0x0000003c
9413 @ 76399:               ASSVAL
9414 @ 76400:               PUSH   DY
9415 @ 76403:               PUSH   DINT
9416 @ 76406:               ASSREF
9417 @ 76407:               LOCATE L_0003

  1955    size = op>>8;  op = op&255
9418 @ 76410:               LINE   1955 "regression-compile-tmp/imp22g-77.imp"
9419 @ 76450:               PUSH   SIZE
9420 @ 76453:               PUSH   OP
9421 @ 76456:               PUSHI  #0x00000008
9422 @ 76461:               RSH   
9423 @ 76462:               ASSVAL
9424 @ 76463:               LINE   1955 "regression-compile-tmp/imp22g-77.imp"
9425 @ 76503:               PUSH   OP
9426 @ 76506:               PUSH   OP
9427 @ 76509:               PUSHI  #0x000000ff
9428 @ 76514:               AND   
9429 @ 76515:               ASSVAL

  1956    %if op = move %start
9430 @ 76516:               LINE   1956 "regression-compile-tmp/imp22g-77.imp"
9431 @ 76556:               PUSH   OP
9432 @ 76559:               PUSHI  #0x00000001
9433 @ 76564:               JUMPIF # L_0004

  1957      %if modex&2_111000 = 0 %start;  !D
9434 @ 76568:               LINE   1957 "regression-compile-tmp/imp22g-77.imp"
9435 @ 76608:               PUSH   MODEX
9436 @ 76611:               PUSHI  #0x00000038
9437 @ 76616:               AND   
9438 @ 76617:               PUSHI  #0x00000000
9439 @ 76622:               JUMPIF # L_0007

  1958        op = moveq %if y <= 0 %and y >= litmite %and size&3 = 0
9440 @ 76626:               LINE   1958 "regression-compile-tmp/imp22g-77.imp"
9441 @ 76666:               PUSH   Y
9442 @ 76669:               PUSHI  #0x00000000
9443 @ 76674:               JUMPIF > L_000a
9444 @ 76678:               PUSH   Y
9445 @ 76681:               PUSHI  #0xffffff01
9446 @ 76686:               JUMPIF < L_000a
9447 @ 76690:               PUSH   SIZE
9448 @ 76693:               PUSHI  #0x00000003
9449 @ 76698:               AND   
9450 @ 76699:               PUSHI  #0x00000000
9451 @ 76704:               JUMPIF # L_000a
9452 @ 76708:               PUSH   OP
9453 @ 76711:               PUSHI  #0x00000024
9454 @ 76716:               ASSVAL
9455 @ 76717:               LOCATE L_000a

  1959      %finish %else %if modex&2_110000 = 0 %start;   !A
9456 @ 76720:               LINE   1959 "regression-compile-tmp/imp22g-77.imp"
9457 @ 76760:               GOTO   L_0006
9458 @ 76763:               LOCATE L_0007
9459 @ 76766:               PUSH   MODEX
9460 @ 76769:               PUSHI  #0x00000030
9461 @ 76774:               AND   
9462 @ 76775:               PUSHI  #0x00000000
9463 @ 76780:               JUMPIF # L_0007

  1960        op = movea
9464 @ 76784:               LINE   1960 "regression-compile-tmp/imp22g-77.imp"
9465 @ 76824:               PUSH   OP
9466 @ 76827:               PUSHI  #0x00000027
9467 @ 76832:               ASSVAL

  1961      %finish
9468 @ 76833:               LINE   1961 "regression-compile-tmp/imp22g-77.imp"
9469 @ 76873:               LOCATE L_0007
9470 @ 76876:               LOCATE L_0006

  1962    %finish %else %if op <= cmp %start
9471 @ 76879:               LINE   1962 "regression-compile-tmp/imp22g-77.imp"
9472 @ 76919:               GOTO   L_0003
9473 @ 76922:               LOCATE L_0004
9474 @ 76925:               PUSH   OP
9475 @ 76928:               PUSHI  #0x00000004
9476 @ 76933:               JUMPIF > L_0004

  1963      %if op < cmp %and y < 0 %and y >= litquick %and y&1 = 0 %c
  1964      %then op=op+(addq-add) {ADDQ,SUBQ} %c
  1965      %else %if modex&2_111000 = aregmode %c
  1966      %then op=op+(adda-add) {ADDA,SUBA,CMPA} %c
  1967      %else %if y <= 0 %c
  1968      %then op=op+(addi-add) {ADDI,SUBI,CMPI}
9477 @ 76937:               LINE   1963 "regression-compile-tmp/imp22g-77.imp"
9478 @ 76977:               PUSH   OP
9479 @ 76980:               PUSHI  #0x00000004
9480 @ 76985:               JUMPIF >= L_0007
9481 @ 76989:               PUSH   Y
9482 @ 76992:               PUSHI  #0x00000000
9483 @ 76997:               JUMPIF >= L_0007
9484 @ 77001:               PUSH   Y
9485 @ 77004:               PUSHI  #0xfffffff0
9486 @ 77009:               JUMPIF < L_0007
9487 @ 77013:               PUSH   Y
9488 @ 77016:               PUSHI  #0x00000001
9489 @ 77021:               AND   
9490 @ 77022:               PUSHI  #0x00000000
9491 @ 77027:               JUMPIF # L_0007
9492 @ 77031:               PUSH   OP
9493 @ 77034:               PUSH   OP
9494 @ 77037:               PUSHI  #0x00000025
9495 @ 77042:               PUSHI  #0x00000002
9496 @ 77047:               SUB   
9497 @ 77048:               ADD   
9498 @ 77049:               ASSVAL
9499 @ 77050:               GOTO   L_0006
9500 @ 77053:               LOCATE L_0007
9501 @ 77056:               PUSH   MODEX
9502 @ 77059:               PUSHI  #0x00000038
9503 @ 77064:               AND   
9504 @ 77065:               PUSHI  #0x00000008
9505 @ 77070:               JUMPIF # L_0007
9506 @ 77074:               PUSH   OP
9507 @ 77077:               PUSH   OP
9508 @ 77080:               PUSHI  #0x00000028
9509 @ 77085:               PUSHI  #0x00000002
9510 @ 77090:               SUB   
9511 @ 77091:               ADD   
9512 @ 77092:               ASSVAL
9513 @ 77093:               GOTO   L_0006
9514 @ 77096:               LOCATE L_0007
9515 @ 77099:               PUSH   Y
9516 @ 77102:               PUSHI  #0x00000000
9517 @ 77107:               JUMPIF > L_0007
9518 @ 77111:               PUSH   OP
9519 @ 77114:               PUSH   OP
9520 @ 77117:               PUSHI  #0x0000002c
9521 @ 77122:               PUSHI  #0x00000002
9522 @ 77127:               SUB   
9523 @ 77128:               ADD   
9524 @ 77129:               ASSVAL
9525 @ 77130:               LOCATE L_0007
9526 @ 77133:               LOCATE L_0006

  1969    %finish %else %if op <= eor %start
9527 @ 77136:               LINE   1969 "regression-compile-tmp/imp22g-77.imp"
9528 @ 77176:               GOTO   L_0003
9529 @ 77179:               LOCATE L_0004
9530 @ 77182:               PUSH   OP
9531 @ 77185:               PUSHI  #0x00000007
9532 @ 77190:               JUMPIF > L_0004

  1970      op = op+(addi-add) %if y <= 0 {ANDI,ORI,EORI}
9533 @ 77194:               LINE   1970 "regression-compile-tmp/imp22g-77.imp"
9534 @ 77234:               PUSH   Y
9535 @ 77237:               PUSHI  #0x00000000
9536 @ 77242:               JUMPIF > L_0007
9537 @ 77246:               PUSH   OP
9538 @ 77249:               PUSH   OP
9539 @ 77252:               PUSHI  #0x0000002c
9540 @ 77257:               PUSHI  #0x00000002
9541 @ 77262:               SUB   
9542 @ 77263:               ADD   
9543 @ 77264:               ASSVAL
9544 @ 77265:               LOCATE L_0007

  1971    %finish
9545 @ 77268:               LINE   1971 "regression-compile-tmp/imp22g-77.imp"
9546 @ 77308:               LOCATE L_0004
9547 @ 77311:               LOCATE L_0003

  1972    info = def(op+op-1)
9548 @ 77314:               LINE   1972 "regression-compile-tmp/imp22g-77.imp"
9549 @ 77354:               PUSH   INFO
9550 @ 77357:               PUSH   DEF
9551 @ 77360:               PUSH   OP
9552 @ 77363:               PUSH   OP
9553 @ 77366:               ADD   
9554 @ 77367:               PUSHI  #0x00000001
9555 @ 77372:               SUB   
9556 @ 77373:               ACCESS
9557 @ 77374:               ASSVAL

  1973    opcode = info>>16
9558 @ 77375:               LINE   1973 "regression-compile-tmp/imp22g-77.imp"
9559 @ 77415:               PUSH   OPCODE
9560 @ 77418:               PUSH   INFO
9561 @ 77421:               PUSHI  #0x00000010
9562 @ 77426:               RSH   
9563 @ 77427:               ASSVAL

  1974    %if info&sized # 0 %start;  !data size required
9564 @ 77428:               LINE   1974 "regression-compile-tmp/imp22g-77.imp"
9565 @ 77468:               PUSH   INFO
9566 @ 77471:               PUSHI  #0x00008000
9567 @ 77476:               AND   
9568 @ 77477:               PUSHI  #0x00000000
9569 @ 77482:               JUMPIF = L_0004

  1975      size = 4 %if size = 0
9570 @ 77486:               LINE   1975 "regression-compile-tmp/imp22g-77.imp"
9571 @ 77526:               PUSH   SIZE
9572 @ 77529:               PUSHI  #0x00000000
9573 @ 77534:               JUMPIF # L_0007
9574 @ 77538:               PUSH   SIZE
9575 @ 77541:               PUSHI  #0x00000004
9576 @ 77546:               ASSVAL
9577 @ 77547:               LOCATE L_0007

  1976      %if op = move %start
9578 @ 77550:               LINE   1976 "regression-compile-tmp/imp22g-77.imp"
9579 @ 77590:               PUSH   OP
9580 @ 77593:               PUSHI  #0x00000001
9581 @ 77598:               JUMPIF # L_0007

  1977        %if size = 4 %start
9582 @ 77602:               LINE   1977 "regression-compile-tmp/imp22g-77.imp"
9583 @ 77642:               PUSH   SIZE
9584 @ 77645:               PUSHI  #0x00000004
9585 @ 77650:               JUMPIF # L_000a

  1978          opcode = opcode+16_2000
9586 @ 77654:               LINE   1978 "regression-compile-tmp/imp22g-77.imp"
9587 @ 77694:               PUSH   OPCODE
9588 @ 77697:               PUSH   OPCODE
9589 @ 77700:               PUSHI  #0x00002000
9590 @ 77705:               ADD   
9591 @ 77706:               ASSVAL

  1979        %finish %else %if size = 2 %start
9592 @ 77707:               LINE   1979 "regression-compile-tmp/imp22g-77.imp"
9593 @ 77747:               GOTO   L_0009
9594 @ 77750:               LOCATE L_000a
9595 @ 77753:               PUSH   SIZE
9596 @ 77756:               PUSHI  #0x00000002
9597 @ 77761:               JUMPIF # L_000a

  1980          opcode = opcode+16_3000
9598 @ 77765:               LINE   1980 "regression-compile-tmp/imp22g-77.imp"
9599 @ 77805:               PUSH   OPCODE
9600 @ 77808:               PUSH   OPCODE
9601 @ 77811:               PUSHI  #0x00003000
9602 @ 77816:               ADD   
9603 @ 77817:               ASSVAL

  1981        %else
9604 @ 77818:               LINE   1981 "regression-compile-tmp/imp22g-77.imp"
9605 @ 77858:               GOTO   L_0009
9606 @ 77861:               LOCATE L_000a

  1982          opcode = opcode+16_1000
9607 @ 77864:               LINE   1982 "regression-compile-tmp/imp22g-77.imp"
9608 @ 77904:               PUSH   OPCODE
9609 @ 77907:               PUSH   OPCODE
9610 @ 77910:               PUSHI  #0x00001000
9611 @ 77915:               ADD   
9612 @ 77916:               ASSVAL

  1983        %finish
9613 @ 77917:               LINE   1983 "regression-compile-tmp/imp22g-77.imp"
9614 @ 77957:               LOCATE L_0009

  1984      %else
9615 @ 77960:               LINE   1984 "regression-compile-tmp/imp22g-77.imp"
9616 @ 78000:               GOTO   L_0006
9617 @ 78003:               LOCATE L_0007

  1985        %if size = 4 %start
9618 @ 78006:               LINE   1985 "regression-compile-tmp/imp22g-77.imp"
9619 @ 78046:               PUSH   SIZE
9620 @ 78049:               PUSHI  #0x00000004
9621 @ 78054:               JUMPIF # L_000a

  1986          opcode = opcode+16_80
9622 @ 78058:               LINE   1986 "regression-compile-tmp/imp22g-77.imp"
9623 @ 78098:               PUSH   OPCODE
9624 @ 78101:               PUSH   OPCODE
9625 @ 78104:               PUSHI  #0x00000080
9626 @ 78109:               ADD   
9627 @ 78110:               ASSVAL

  1987        %finish %else %if size = 2 %start
9628 @ 78111:               LINE   1987 "regression-compile-tmp/imp22g-77.imp"
9629 @ 78151:               GOTO   L_0009
9630 @ 78154:               LOCATE L_000a
9631 @ 78157:               PUSH   SIZE
9632 @ 78160:               PUSHI  #0x00000002
9633 @ 78165:               JUMPIF # L_000a

  1988          opcode = opcode+16_40
9634 @ 78169:               LINE   1988 "regression-compile-tmp/imp22g-77.imp"
9635 @ 78209:               PUSH   OPCODE
9636 @ 78212:               PUSH   OPCODE
9637 @ 78215:               PUSHI  #0x00000040
9638 @ 78220:               ADD   
9639 @ 78221:               ASSVAL

  1989        %finish
9640 @ 78222:               LINE   1989 "regression-compile-tmp/imp22g-77.imp"
9641 @ 78262:               LOCATE L_000a
9642 @ 78265:               LOCATE L_0009

  1990      %finish
9643 @ 78268:               LINE   1990 "regression-compile-tmp/imp22g-77.imp"
9644 @ 78308:               LOCATE L_0006

  1991    %finish %else %if info&asized # 0 %start;  !areg size required
9645 @ 78311:               LINE   1991 "regression-compile-tmp/imp22g-77.imp"
9646 @ 78351:               GOTO   L_0003
9647 @ 78354:               LOCATE L_0004
9648 @ 78357:               PUSH   INFO
9649 @ 78360:               PUSHI  #0x00004000
9650 @ 78365:               AND   
9651 @ 78366:               PUSHI  #0x00000000
9652 @ 78371:               JUMPIF = L_0004

  1992      fault(sizerr) %if size = 1
9653 @ 78375:               LINE   1992 "regression-compile-tmp/imp22g-77.imp"
9654 @ 78415:               PUSH   SIZE
9655 @ 78418:               PUSHI  #0x00000001
9656 @ 78423:               JUMPIF # L_0007
9657 @ 78427:               PUSH   FAULT
9658 @ 78430:               PUSHI  #0x0000000b
9659 @ 78435:               ASSPAR
9660 @ 78436:               CALL  
9661 @ 78437:               LOCATE L_0007

  1993      %if op # movem %start
9662 @ 78440:               LINE   1993 "regression-compile-tmp/imp22g-77.imp"
9663 @ 78480:               PUSH   OP
9664 @ 78483:               PUSHI  #0x00000064
9665 @ 78488:               JUMPIF = L_0007

  1994        %if size = 0 %start
9666 @ 78492:               LINE   1994 "regression-compile-tmp/imp22g-77.imp"
9667 @ 78532:               PUSH   SIZE
9668 @ 78535:               PUSHI  #0x00000000
9669 @ 78540:               JUMPIF # L_000a

  1995          size = 4 %unless y <= 0 %and is short(litval(y))=TRUE
9670 @ 78544:               LINE   1995 "regression-compile-tmp/imp22g-77.imp"
9671 @ 78584:               PUSH   Y
9672 @ 78587:               PUSHI  #0x00000000
9673 @ 78592:               JUMPIF > L_000e
9674 @ 78596:               PUSH   ISSHORT
9675 @ 78599:               PUSH   LITVAL
9676 @ 78602:               PUSH   Y
9677 @ 78605:               ASSPAR
9678 @ 78606:               CALL  
9679 @ 78607:               ASSPAR
9680 @ 78608:               CALL  
9681 @ 78609:               PUSHI  #0x00000001
9682 @ 78614:               JUMPIF = L_000d
9683 @ 78618:               LOCATE L_000e
9684 @ 78621:               PUSH   SIZE
9685 @ 78624:               PUSHI  #0x00000004
9686 @ 78629:               ASSVAL
9687 @ 78630:               LOCATE L_000d

  1996        %finish
9688 @ 78633:               LINE   1996 "regression-compile-tmp/imp22g-77.imp"
9689 @ 78673:               LOCATE L_000a

  1997        %if size = 4 %start
9690 @ 78676:               LINE   1997 "regression-compile-tmp/imp22g-77.imp"
9691 @ 78716:               PUSH   SIZE
9692 @ 78719:               PUSHI  #0x00000004
9693 @ 78724:               JUMPIF # L_000a

  1998          %if op = movea %then opcode = opcode!!16_1000 %c
  1999          %else opcode = opcode+16_0100
9694 @ 78728:               LINE   1998 "regression-compile-tmp/imp22g-77.imp"
9695 @ 78768:               PUSH   OP
9696 @ 78771:               PUSHI  #0x00000027
9697 @ 78776:               JUMPIF # L_000d
9698 @ 78780:               PUSH   OPCODE
9699 @ 78783:               PUSH   OPCODE
9700 @ 78786:               PUSHI  #0x00001000
9701 @ 78791:               XOR   
9702 @ 78792:               ASSVAL
9703 @ 78793:               GOTO   L_000c
9704 @ 78796:               LOCATE L_000d
9705 @ 78799:               PUSH   OPCODE
9706 @ 78802:               PUSH   OPCODE
9707 @ 78805:               PUSHI  #0x00000100
9708 @ 78810:               ADD   
9709 @ 78811:               ASSVAL
9710 @ 78812:               LOCATE L_000c

  2000        %finish
9711 @ 78815:               LINE   2000 "regression-compile-tmp/imp22g-77.imp"
9712 @ 78855:               LOCATE L_000a

  2001      %else;  !MOVEM
9713 @ 78858:               LINE   2001 "regression-compile-tmp/imp22g-77.imp"
9714 @ 78898:               GOTO   L_0006
9715 @ 78901:               LOCATE L_0007

  2002        size = 4 %if size = 0
9716 @ 78904:               LINE   2002 "regression-compile-tmp/imp22g-77.imp"
9717 @ 78944:               PUSH   SIZE
9718 @ 78947:               PUSHI  #0x00000000
9719 @ 78952:               JUMPIF # L_000a
9720 @ 78956:               PUSH   SIZE
9721 @ 78959:               PUSHI  #0x00000004
9722 @ 78964:               ASSVAL
9723 @ 78965:               LOCATE L_000a

  2003        opcode = opcode+16_0040 %if size = 4
9724 @ 78968:               LINE   2003 "regression-compile-tmp/imp22g-77.imp"
9725 @ 79008:               PUSH   SIZE
9726 @ 79011:               PUSHI  #0x00000004
9727 @ 79016:               JUMPIF # L_000a
9728 @ 79020:               PUSH   OPCODE
9729 @ 79023:               PUSH   OPCODE
9730 @ 79026:               PUSHI  #0x00000040
9731 @ 79031:               ADD   
9732 @ 79032:               ASSVAL
9733 @ 79033:               LOCATE L_000a

  2004      %finish
9734 @ 79036:               LINE   2004 "regression-compile-tmp/imp22g-77.imp"
9735 @ 79076:               LOCATE L_0006

  2005    %finish
9736 @ 79079:               LINE   2005 "regression-compile-tmp/imp22g-77.imp"
9737 @ 79119:               LOCATE L_0004
9738 @ 79122:               LOCATE L_0003

  2006  {?}  %if control&codelist # 0 %and control&list # 0 %start
9739 @ 79125:               LINE   2006 "regression-compile-tmp/imp22g-77.imp"
9740 @ 79165:               PUSH   CONTROL
9741 @ 79168:               PUSHI  #0x00000020
9742 @ 79173:               AND   
9743 @ 79174:               PUSHI  #0x00000000
9744 @ 79179:               JUMPIF = L_0004
9745 @ 79183:               PUSH   CONTROL
9746 @ 79186:               PUSHI  #0x00000001
9747 @ 79191:               AND   
9748 @ 79192:               PUSHI  #0x00000000
9749 @ 79197:               JUMPIF = L_0004

  2007  {?}    print line %if length(rep) >= 4
9750 @ 79201:               LINE   2007 "regression-compile-tmp/imp22g-77.imp"
9751 @ 79241:               PUSH   LENGTH
9752 @ 79244:               PUSH   REP
9753 @ 79247:               ASSPAR
9754 @ 79248:               CALL  
9755 @ 79249:               PUSHI  #0x00000004
9756 @ 79254:               JUMPIF < L_0007
9757 @ 79258:               PUSH   PRINTLINE
9758 @ 79261:               CALL  
9759 @ 79262:               LOCATE L_0007

  2008  {?}    put sym(codeflag);  spaces(4-length(rep))
9760 @ 79265:               LINE   2008 "regression-compile-tmp/imp22g-77.imp"
9761 @ 79305:               PUSH   PUTSYM
9762 @ 79308:               PUSH   CODEFLAG
9763 @ 79311:               ASSPAR
9764 @ 79312:               CALL  
9765 @ 79313:               LINE   2008 "regression-compile-tmp/imp22g-77.imp"
9766 @ 79353:               PUSH   SPACES
9767 @ 79356:               PUSHI  #0x00000004
9768 @ 79361:               PUSH   LENGTH
9769 @ 79364:               PUSH   REP
9770 @ 79367:               ASSPAR
9771 @ 79368:               CALL  
9772 @ 79369:               SUB   
9773 @ 79370:               ASSPAR
9774 @ 79371:               CALL  

  2009  {?}    put opcode(op)
9775 @ 79372:               LINE   2009 "regression-compile-tmp/imp22g-77.imp"
9776 @ 79412:               PUSH   PUTOPCODE
9777 @ 79415:               PUSH   OP
9778 @ 79418:               ASSPAR
9779 @ 79419:               CALL  

  2010  {?}    %if size # 0 %start
9780 @ 79420:               LINE   2010 "regression-compile-tmp/imp22g-77.imp"
9781 @ 79460:               PUSH   SIZE
9782 @ 79463:               PUSHI  #0x00000000
9783 @ 79468:               JUMPIF = L_0007

  2011  {?}      put sym('.')
9784 @ 79472:               LINE   2011 "regression-compile-tmp/imp22g-77.imp"
9785 @ 79512:               PUSH   PUTSYM
9786 @ 79515:               PUSHI  #0x0000002e
9787 @ 79520:               ASSPAR
9788 @ 79521:               CALL  

  2012  {?}      put sym(sizesym(size&3))
9789 @ 79522:               LINE   2012 "regression-compile-tmp/imp22g-77.imp"
9790 @ 79562:               PUSH   PUTSYM
9791 @ 79565:               PUSH   SIZESYM
9792 @ 79568:               PUSH   SIZE
9793 @ 79571:               PUSHI  #0x00000003
9794 @ 79576:               AND   
9795 @ 79577:               ACCESS
9796 @ 79578:               ASSPAR
9797 @ 79579:               CALL  

  2013  {?}    %finish
9798 @ 79580:               LINE   2013 "regression-compile-tmp/imp22g-77.imp"
9799 @ 79620:               LOCATE L_0007

  2014  {?}    spaces(12-length(rep))
9800 @ 79623:               LINE   2014 "regression-compile-tmp/imp22g-77.imp"
9801 @ 79663:               PUSH   SPACES
9802 @ 79666:               PUSHI  #0x0000000c
9803 @ 79671:               PUSH   LENGTH
9804 @ 79674:               PUSH   REP
9805 @ 79677:               ASSPAR
9806 @ 79678:               CALL  
9807 @ 79679:               SUB   
9808 @ 79680:               ASSPAR
9809 @ 79681:               CALL  

  2015  {?}    %if info&(63<<6) # 0 %start
9810 @ 79682:               LINE   2015 "regression-compile-tmp/imp22g-77.imp"
9811 @ 79722:               PUSH   INFO
9812 @ 79725:               PUSHI  #0x0000003f
9813 @ 79730:               PUSHI  #0x00000006
9814 @ 79735:               LSH   
9815 @ 79736:               AND   
9816 @ 79737:               PUSHI  #0x00000000
9817 @ 79742:               JUMPIF = L_0007

  2016  {?}      put operand(y)
9818 @ 79746:               LINE   2016 "regression-compile-tmp/imp22g-77.imp"
9819 @ 79786:               PUSH   PUTOPERAND
9820 @ 79789:               PUSH   Y
9821 @ 79792:               ASSPAR
9822 @ 79793:               CALL  

  2017  {?}      put sym(',') %if info&63 # 0
9823 @ 79794:               LINE   2017 "regression-compile-tmp/imp22g-77.imp"
9824 @ 79834:               PUSH   INFO
9825 @ 79837:               PUSHI  #0x0000003f
9826 @ 79842:               AND   
9827 @ 79843:               PUSHI  #0x00000000
9828 @ 79848:               JUMPIF = L_000a
9829 @ 79852:               PUSH   PUTSYM
9830 @ 79855:               PUSHI  #0x0000002c
9831 @ 79860:               ASSPAR
9832 @ 79861:               CALL  
9833 @ 79862:               LOCATE L_000a

  2018  {?}    %finish
9834 @ 79865:               LINE   2018 "regression-compile-tmp/imp22g-77.imp"
9835 @ 79905:               LOCATE L_0007

  2019  {?}    put operand(x) %if info&63 # 0
9836 @ 79908:               LINE   2019 "regression-compile-tmp/imp22g-77.imp"
9837 @ 79948:               PUSH   INFO
9838 @ 79951:               PUSHI  #0x0000003f
9839 @ 79956:               AND   
9840 @ 79957:               PUSHI  #0x00000000
9841 @ 79962:               JUMPIF = L_0007
9842 @ 79966:               PUSH   PUTOPERAND
9843 @ 79969:               PUSH   X
9844 @ 79972:               ASSPAR
9845 @ 79973:               CALL  
9846 @ 79974:               LOCATE L_0007

  2020  {?}    spaces(33-length(rep));  put sym(':')
9847 @ 79977:               LINE   2020 "regression-compile-tmp/imp22g-77.imp"
9848 @ 80017:               PUSH   SPACES
9849 @ 80020:               PUSHI  #0x00000021
9850 @ 80025:               PUSH   LENGTH
9851 @ 80028:               PUSH   REP
9852 @ 80031:               ASSPAR
9853 @ 80032:               CALL  
9854 @ 80033:               SUB   
9855 @ 80034:               ASSPAR
9856 @ 80035:               CALL  
9857 @ 80036:               LINE   2020 "regression-compile-tmp/imp22g-77.imp"
9858 @ 80076:               PUSH   PUTSYM
9859 @ 80079:               PUSHI  #0x0000003a
9860 @ 80084:               ASSPAR
9861 @ 80085:               CALL  

  2021  {?}  %finish
  2022  
9862 @ 80086:               LINE   2021 "regression-compile-tmp/imp22g-77.imp"
9863 @ 80126:               LOCATE L_0004

  2023    pc1 = pc;  pflag(pc1) = c_shorts;  !op-code word
9864 @ 80129:               LINE   2023 "regression-compile-tmp/imp22g-77.imp"
9865 @ 80169:               PUSH   PC1
9866 @ 80172:               PUSH   PC
9867 @ 80175:               ASSVAL
9868 @ 80176:               LINE   2023 "regression-compile-tmp/imp22g-77.imp"
9869 @ 80216:               PUSH   PFLAG
9870 @ 80219:               PUSH   PC1
9871 @ 80222:               ACCESS
9872 @ 80223:               PUSH   C
9873 @ 80226:               SELECT 23
9874 @ 80229:               ASSVAL

  2024    pc = pc+1
9875 @ 80230:               LINE   2024 "regression-compile-tmp/imp22g-77.imp"
9876 @ 80270:               PUSH   PC
9877 @ 80273:               PUSH   PC
9878 @ 80276:               PUSHI  #0x00000001
9879 @ 80281:               ADD   
9880 @ 80282:               ASSVAL

  2025    croak("Code space exhausted") %if pc >= swpc-8
9881 @ 80283:               LINE   2025 "regression-compile-tmp/imp22g-77.imp"
9882 @ 80323:               PUSH   PC
9883 @ 80326:               PUSH   SWPC
9884 @ 80329:               PUSHI  #0x00000008
9885 @ 80334:               SUB   
9886 @ 80335:               JUMPIF < L_0004
9887 @ 80339:               PUSH   CROAK
9888 @ 80342:               PUSHS  "Code space exhausted"
9889 @ 80364:               ASSPAR
9890 @ 80365:               CALL  
9891 @ 80366:               LOCATE L_0004

  2026    kind = info>>6
9892 @ 80369:               LINE   2026 "regression-compile-tmp/imp22g-77.imp"
9893 @ 80409:               PUSH   KIND
9894 @ 80412:               PUSH   INFO
9895 @ 80415:               PUSHI  #0x00000006
9896 @ 80420:               RSH   
9897 @ 80421:               ASSVAL

  2027  again:
9898 @ 80422:               LINE   2027 "regression-compile-tmp/imp22g-77.imp"
9899 @ 80462:               LABEL  L_0140

  2028    ->s(kind&31)
9900 @ 80465:               LINE   2028 "regression-compile-tmp/imp22g-77.imp"
9901 @ 80505:               PUSH   KIND
9902 @ 80508:               PUSHI  #0x0000001f
9903 @ 80513:               AND   
9904 @ 80514:               SJUMP  317

  2029  s(0):
9905 @ 80517:               LINE   2029 "regression-compile-tmp/imp22g-77.imp"
9906 @ 80557:               PUSHI  #0x00000000
9907 @ 80562:               SLABEL 317

  2030  next:
9908 @ 80565:               LINE   2030 "regression-compile-tmp/imp22g-77.imp"
9909 @ 80605:               LABEL  L_0141

  2031    kind = info
9910 @ 80608:               LINE   2031 "regression-compile-tmp/imp22g-77.imp"
9911 @ 80648:               PUSH   KIND
9912 @ 80651:               PUSH   INFO
9913 @ 80654:               ASSVAL

  2032    %if kind # 0 %start
9914 @ 80655:               LINE   2032 "regression-compile-tmp/imp22g-77.imp"
9915 @ 80695:               PUSH   KIND
9916 @ 80698:               PUSHI  #0x00000000
9917 @ 80703:               JUMPIF = L_0004

  2033      dy == dx;  y = x;  mode = modex
9918 @ 80707:               LINE   2033 "regression-compile-tmp/imp22g-77.imp"
9919 @ 80747:               PUSH   DY
9920 @ 80750:               PUSH   DX
9921 @ 80753:               ASSREF
9922 @ 80754:               LINE   2033 "regression-compile-tmp/imp22g-77.imp"
9923 @ 80794:               PUSH   Y
9924 @ 80797:               PUSH   X
9925 @ 80800:               ASSVAL
9926 @ 80801:               LINE   2033 "regression-compile-tmp/imp22g-77.imp"
9927 @ 80841:               PUSH   MODE
9928 @ 80844:               PUSH   MODEX
9929 @ 80847:               ASSVAL

  2034      info = 0
9930 @ 80848:               LINE   2034 "regression-compile-tmp/imp22g-77.imp"
9931 @ 80888:               PUSH   INFO
9932 @ 80891:               PUSHI  #0x00000000
9933 @ 80896:               ASSVAL

  2035      ->again
9934 @ 80897:               LINE   2035 "regression-compile-tmp/imp22g-77.imp"
9935 @ 80937:               JUMP   L_0140

  2036    %finish
  2037  !
  2038  !$IF VAX
  2039  {  opcode = opcode!sign16 %if opcode&sign16 # 0
  2040  !$FINISH
9936 @ 80940:               LINE   2036 "regression-compile-tmp/imp22g-77.imp"
9937 @ 80980:               LOCATE L_0004

  2041    prog(pc1) <- opcode
9938 @ 80983:               LINE   2041 "regression-compile-tmp/imp22g-77.imp"
9939 @ 81023:               PUSH   PROG
9940 @ 81026:               PUSH   PC1
9941 @ 81029:               ACCESS
9942 @ 81030:               PUSH   OPCODE
9943 @ 81033:               JAM   

  2042  {?}  %if control&codelist # 0 %and control&list # 0 %start
9944 @ 81034:               LINE   2042 "regression-compile-tmp/imp22g-77.imp"
9945 @ 81074:               PUSH   CONTROL
9946 @ 81077:               PUSHI  #0x00000020
9947 @ 81082:               AND   
9948 @ 81083:               PUSHI  #0x00000000
9949 @ 81088:               JUMPIF = L_0004
9950 @ 81092:               PUSH   CONTROL
9951 @ 81095:               PUSHI  #0x00000001
9952 @ 81100:               AND   
9953 @ 81101:               PUSHI  #0x00000000
9954 @ 81106:               JUMPIF = L_0004

  2043  {?}    %cycle
9955 @ 81110:               LINE   2043 "regression-compile-tmp/imp22g-77.imp"
9956 @ 81150:               LOCATE L_0006

  2044  {?}      put sym(' ')
9957 @ 81153:               LINE   2044 "regression-compile-tmp/imp22g-77.imp"
9958 @ 81193:               PUSH   PUTSYM
9959 @ 81196:               PUSHI  #0x00000020
9960 @ 81201:               ASSPAR
9961 @ 81202:               CALL  

  2045  {?}      put hex(prog(pc1))
9962 @ 81203:               LINE   2045 "regression-compile-tmp/imp22g-77.imp"
9963 @ 81243:               PUSH   PUTHEX
9964 @ 81246:               PUSH   PROG
9965 @ 81249:               PUSH   PC1
9966 @ 81252:               ACCESS
9967 @ 81253:               ASSPAR
9968 @ 81254:               CALL  

  2046  {?}      pc1 = pc1+1
9969 @ 81255:               LINE   2046 "regression-compile-tmp/imp22g-77.imp"
9970 @ 81295:               PUSH   PC1
9971 @ 81298:               PUSH   PC1
9972 @ 81301:               PUSHI  #0x00000001
9973 @ 81306:               ADD   
9974 @ 81307:               ASSVAL

  2047  {?}    %repeat %until pc1 >= pc
9975 @ 81308:               LINE   2047 "regression-compile-tmp/imp22g-77.imp"
9976 @ 81348:               PUSH   PC1
9977 @ 81351:               PUSH   PC
9978 @ 81354:               JUMPIF >= L_0007
9979 @ 81358:               REPEAT L_0006
9980 @ 81361:               LOCATE L_0007

  2048  {?}    print line
9981 @ 81364:               LINE   2048 "regression-compile-tmp/imp22g-77.imp"
9982 @ 81404:               PUSH   PRINTLINE
9983 @ 81407:               CALL  

  2049  {?}  %finish
9984 @ 81408:               LINE   2049 "regression-compile-tmp/imp22g-77.imp"
9985 @ 81448:               LOCATE L_0004

  2050    %return
  2051  
  2052  !Set flag value for PC-relative reference
  2053  ! distinguishing GLOBAL (const access), INDIRECT GLOBAL (procedure),
  2054  ! and LOCAL (label) -- the last further distinguished according to
  2055  ! whether the instruction permits shortening
9986 @ 81451:               LINE   2050 "regression-compile-tmp/imp22g-77.imp"
9987 @ 81491:               RETURN

  2056  %routine PCREL(%integer shorten)
9988 @ 81492:               LINE   2056 "regression-compile-tmp/imp22g-77.imp"
9989 @ 81532:               DEF    PCREL (_lev0id0_PLANT_PCREL) p1=V_0142 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
9990 @ 81549:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
9991 @ 81550:                     DEF    SHORTEN p1=V_0143 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
9992 @ 81569:                  FINISH ) {lev=3}

  2057    %if dy_mode = labmode %start
9993 @ 81570:                  LINE   2057 "regression-compile-tmp/imp22g-77.imp"
9994 @ 81610:                  PUSH   DY
9995 @ 81613:                  SELECT 8
9996 @ 81616:                  PUSHI  #0x000000ba
9997 @ 81621:                  JUMPIF # L_0004

  2058      f = jump;  f = longjump %if shorten = 0
9998 @ 81625:                  LINE   2058 "regression-compile-tmp/imp22g-77.imp"
9999 @ 81665:                  PUSH   F
10000 @ 81668:                  PUSHI  #0x00000002
10001 @ 81673:                  ASSVAL
10002 @ 81674:                  LINE   2058 "regression-compile-tmp/imp22g-77.imp"
10003 @ 81714:                  PUSH   SHORTEN
10004 @ 81717:                  PUSHI  #0x00000000
10005 @ 81722:                  JUMPIF # L_0007
10006 @ 81726:                  PUSH   F
10007 @ 81729:                  PUSHI  #0x00000003
10008 @ 81734:                  ASSVAL
10009 @ 81735:                  LOCATE L_0007

  2059      %if extword > 0 %start;  !label defined
10010 @ 81738:                  LINE   2059 "regression-compile-tmp/imp22g-77.imp"
10011 @ 81778:                  PUSH   EXTWORD
10012 @ 81781:                  PUSHI  #0x00000000
10013 @ 81786:                  JUMPIF <= L_0007

  2060        %if shorten # 0 %and (extword-pflag(extword)-pc+c_shorts)<<1 >= -128 %start
10014 @ 81790:                  LINE   2060 "regression-compile-tmp/imp22g-77.imp"
10015 @ 81830:                  PUSH   SHORTEN
10016 @ 81833:                  PUSHI  #0x00000000
10017 @ 81838:                  JUMPIF = L_000a
10018 @ 81842:                  PUSH   EXTWORD
10019 @ 81845:                  PUSH   PFLAG
10020 @ 81848:                  PUSH   EXTWORD
10021 @ 81851:                  ACCESS
10022 @ 81852:                  SUB   
10023 @ 81853:                  PUSH   PC
10024 @ 81856:                  SUB   
10025 @ 81857:                  PUSH   C
10026 @ 81860:                  SELECT 23
10027 @ 81863:                  ADD   
10028 @ 81864:                  PUSHI  #0x00000001
10029 @ 81869:                  LSH   
10030 @ 81870:                  PUSHI  #0x00000080
10031 @ 81875:                  NEGATE
10032 @ 81876:                  JUMPIF < L_000a

  2061          %if c_shorts = 255 %start
10033 @ 81880:                  LINE   2061 "regression-compile-tmp/imp22g-77.imp"
10034 @ 81920:                  PUSH   C
10035 @ 81923:                  SELECT 23
10036 @ 81926:                  PUSHI  #0x000000ff
10037 @ 81931:                  JUMPIF # L_000d

  2062            zaps = zaps+100
10038 @ 81935:                  LINE   2062 "regression-compile-tmp/imp22g-77.imp"
10039 @ 81975:                  PUSH   ZAPS
10040 @ 81978:                  PUSH   ZAPS
10041 @ 81981:                  PUSHI  #0x00000064
10042 @ 81986:                  ADD   
10043 @ 81987:                  ASSVAL

  2063          %else
10044 @ 81988:                  LINE   2063 "regression-compile-tmp/imp22g-77.imp"
10045 @ 82028:                  GOTO   L_000c
10046 @ 82031:                  LOCATE L_000d

  2064            shorts = shorts+1;  c_shorts = c_shorts+1
10047 @ 82034:                  LINE   2064 "regression-compile-tmp/imp22g-77.imp"
10048 @ 82074:                  PUSH   SHORTS
10049 @ 82077:                  PUSH   SHORTS
10050 @ 82080:                  PUSHI  #0x00000001
10051 @ 82085:                  ADD   
10052 @ 82086:                  ASSVAL
10053 @ 82087:                  LINE   2064 "regression-compile-tmp/imp22g-77.imp"
10054 @ 82127:                  PUSH   C
10055 @ 82130:                  SELECT 23
10056 @ 82133:                  PUSH   C
10057 @ 82136:                  SELECT 23
10058 @ 82139:                  PUSHI  #0x00000001
10059 @ 82144:                  ADD   
10060 @ 82145:                  ASSVAL

  2065            f = shortjump
10061 @ 82146:                  LINE   2065 "regression-compile-tmp/imp22g-77.imp"
10062 @ 82186:                  PUSH   F
10063 @ 82189:                  PUSHI  #0x00000001
10064 @ 82194:                  ASSVAL

  2066          %finish
10065 @ 82195:                  LINE   2066 "regression-compile-tmp/imp22g-77.imp"
10066 @ 82235:                  LOCATE L_000c

  2067        %finish
10067 @ 82238:                  LINE   2067 "regression-compile-tmp/imp22g-77.imp"
10068 @ 82278:                  LOCATE L_000a

  2068      %else
10069 @ 82281:                  LINE   2068 "regression-compile-tmp/imp22g-77.imp"
10070 @ 82321:                  GOTO   L_0006
10071 @ 82324:                  LOCATE L_0007

  2069        extword = -extword
10072 @ 82327:                  LINE   2069 "regression-compile-tmp/imp22g-77.imp"
10073 @ 82367:                  PUSH   EXTWORD
10074 @ 82370:                  PUSH   EXTWORD
10075 @ 82373:                  NEGATE
10076 @ 82374:                  ASSVAL

  2070        dy_val = -pc
10077 @ 82375:                  LINE   2070 "regression-compile-tmp/imp22g-77.imp"
10078 @ 82415:                  PUSH   DY
10079 @ 82418:                  SELECT 9
10080 @ 82421:                  PUSH   PC
10081 @ 82424:                  NEGATE
10082 @ 82425:                  ASSVAL

  2071      %finish
10083 @ 82426:                  LINE   2071 "regression-compile-tmp/imp22g-77.imp"
10084 @ 82466:                  LOCATE L_0006

  2072    %finish %else %if dy_mode = procmode %start;  !procedure
10085 @ 82469:                  LINE   2072 "regression-compile-tmp/imp22g-77.imp"
10086 @ 82509:                  GOTO   L_0003
10087 @ 82512:                  LOCATE L_0004
10088 @ 82515:                  PUSH   DY
10089 @ 82518:                  SELECT 8
10090 @ 82521:                  PUSHI  #0x000000fa
10091 @ 82526:                  JUMPIF # L_0004

  2073      f = indglobal;  extword = y;  !rather than DY_VAL
10092 @ 82530:                  LINE   2073 "regression-compile-tmp/imp22g-77.imp"
10093 @ 82570:                  PUSH   F
10094 @ 82573:                  PUSHI  #0x00000007
10095 @ 82578:                  ASSVAL
10096 @ 82579:                  LINE   2073 "regression-compile-tmp/imp22g-77.imp"
10097 @ 82619:                  PUSH   EXTWORD
10098 @ 82622:                  PUSH   Y
10099 @ 82625:                  ASSVAL

  2074    %finish %else %if dy_mode = constmode %start;  !constant data ref
10100 @ 82626:                  LINE   2074 "regression-compile-tmp/imp22g-77.imp"
10101 @ 82666:                  GOTO   L_0003
10102 @ 82669:                  LOCATE L_0004
10103 @ 82672:                  PUSH   DY
10104 @ 82675:                  SELECT 8
10105 @ 82678:                  PUSHI  #0x0000007a
10106 @ 82683:                  JUMPIF # L_0004

  2075      f = global
10107 @ 82687:                  LINE   2075 "regression-compile-tmp/imp22g-77.imp"
10108 @ 82727:                  PUSH   F
10109 @ 82730:                  PUSHI  #0x00000004
10110 @ 82735:                  ASSVAL

  2076      f = f+1 %if extword < 0
10111 @ 82736:                  LINE   2076 "regression-compile-tmp/imp22g-77.imp"
10112 @ 82776:                  PUSH   EXTWORD
10113 @ 82779:                  PUSHI  #0x00000000
10114 @ 82784:                  JUMPIF >= L_0007
10115 @ 82788:                  PUSH   F
10116 @ 82791:                  PUSH   F
10117 @ 82794:                  PUSHI  #0x00000001
10118 @ 82799:                  ADD   
10119 @ 82800:                  ASSVAL
10120 @ 82801:                  LOCATE L_0007

  2077      f = f+2 %if extword > 65535
10121 @ 82804:                  LINE   2077 "regression-compile-tmp/imp22g-77.imp"
10122 @ 82844:                  PUSH   EXTWORD
10123 @ 82847:                  PUSHI  #0x0000ffff
10124 @ 82852:                  JUMPIF <= L_0007
10125 @ 82856:                  PUSH   F
10126 @ 82859:                  PUSH   F
10127 @ 82862:                  PUSHI  #0x00000002
10128 @ 82867:                  ADD   
10129 @ 82868:                  ASSVAL
10130 @ 82869:                  LOCATE L_0007

  2078    %finish %else %if dy_mode # pcmode %start
10131 @ 82872:                  LINE   2078 "regression-compile-tmp/imp22g-77.imp"
10132 @ 82912:                  GOTO   L_0003
10133 @ 82915:                  LOCATE L_0004
10134 @ 82918:                  PUSH   DY
10135 @ 82921:                  SELECT 8
10136 @ 82924:                  PUSHI  #0x0000003a
10137 @ 82929:                  JUMPIF = L_0004

  2079      fault(moperr)
10138 @ 82933:                  LINE   2079 "regression-compile-tmp/imp22g-77.imp"
10139 @ 82973:                  PUSH   FAULT
10140 @ 82976:                  PUSHI  #0x0000001a
10141 @ 82981:                  ASSPAR
10142 @ 82982:                  CALL  

  2080    %finish
10143 @ 82983:                  LINE   2080 "regression-compile-tmp/imp22g-77.imp"
10144 @ 83023:                  LOCATE L_0004
10145 @ 83026:                  LOCATE L_0003

  2081  %end
  2082  
10146 @ 83029:                  LINE   2081 "regression-compile-tmp/imp22g-77.imp"
10147 @ 83069:               END    _lev0id0_PLANT_PCREL {lev=3 --> 2}

  2083  s(qea):  !LEA
10148 @ 83070:               LINE   2083 "regression-compile-tmp/imp22g-77.imp"
10149 @ 83110:               PUSHI  #0x0000000f
10150 @ 83115:               SLABEL 317

  2084    -> ea0 %unless mode&63 = x-(a0-indexmode) %and dy_val&255 = 0
  2085    !  LEA 0(Ax,Dy)  =>  ADDA Dy,Ax
10151 @ 83118:               LINE   2084 "regression-compile-tmp/imp22g-77.imp"
10152 @ 83158:               PUSH   MODE
10153 @ 83161:               PUSHI  #0x0000003f
10154 @ 83166:               AND   
10155 @ 83167:               PUSH   X
10156 @ 83170:               PUSHI  #0x00000009
10157 @ 83175:               PUSHI  #0x00000030
10158 @ 83180:               SUB   
10159 @ 83181:               SUB   
10160 @ 83182:               JUMPIF # L_0005
10161 @ 83186:               PUSH   DY
10162 @ 83189:               SELECT 9
10163 @ 83192:               PUSHI  #0x000000ff
10164 @ 83197:               AND   
10165 @ 83198:               PUSHI  #0x00000000
10166 @ 83203:               JUMPIF = L_0004
10167 @ 83207:               LOCATE L_0005
10168 @ 83210:               JUMP   L_0143
10169 @ 83213:               LOCATE L_0004

  2086    opcode = 16_D1C0+dy_val>>12&15
10170 @ 83216:               LINE   2086 "regression-compile-tmp/imp22g-77.imp"
10171 @ 83256:               PUSH   OPCODE
10172 @ 83259:               PUSHI  #0x0000d1c0
10173 @ 83264:               PUSH   DY
10174 @ 83267:               SELECT 9
10175 @ 83270:               PUSHI  #0x0000000c
10176 @ 83275:               RSH   
10177 @ 83276:               PUSHI  #0x0000000f
10178 @ 83281:               AND   
10179 @ 83282:               ADD   
10180 @ 83283:               ASSVAL

  2087    -> next
  2088  
10181 @ 83284:               LINE   2087 "regression-compile-tmp/imp22g-77.imp"
10182 @ 83324:               JUMP   L_0141

  2089  s(wea):
10183 @ 83327:               LINE   2089 "regression-compile-tmp/imp22g-77.imp"
10184 @ 83367:               PUSHI  #0x00000008
10185 @ 83372:               SLABEL 317

  2090    dy_flags = dy_flags!(mflag!wflag)
10186 @ 83375:               LINE   2090 "regression-compile-tmp/imp22g-77.imp"
10187 @ 83415:               PUSH   DY
10188 @ 83418:               SELECT 1
10189 @ 83421:               PUSH   DY
10190 @ 83424:               SELECT 1
10191 @ 83427:               PUSHI  #0x00000080
10192 @ 83432:               PUSHI  #0x00000010
10193 @ 83437:               OR    
10194 @ 83438:               OR    
10195 @ 83439:               ASSVAL

  2091    -> wea1
10196 @ 83440:               LINE   2091 "regression-compile-tmp/imp22g-77.imp"
10197 @ 83480:               JUMP   L_0144

  2092  s(rwea):  ![for our purposes, read&write counts as neither]
10198 @ 83483:               LINE   2092 "regression-compile-tmp/imp22g-77.imp"
10199 @ 83523:               PUSHI  #0x00000007
10200 @ 83528:               SLABEL 317

  2093    dy_flags = dy_flags!mflag
10201 @ 83531:               LINE   2093 "regression-compile-tmp/imp22g-77.imp"
10202 @ 83571:               PUSH   DY
10203 @ 83574:               SELECT 1
10204 @ 83577:               PUSH   DY
10205 @ 83580:               SELECT 1
10206 @ 83583:               PUSHI  #0x00000080
10207 @ 83588:               OR    
10208 @ 83589:               ASSVAL

  2094  wea1:
10209 @ 83590:               LINE   2094 "regression-compile-tmp/imp22g-77.imp"
10210 @ 83630:               LABEL  L_0144

  2095    -> err %if y <= 0 %or mode&63 >= pcmode
10211 @ 83633:               LINE   2095 "regression-compile-tmp/imp22g-77.imp"
10212 @ 83673:               PUSH   Y
10213 @ 83676:               PUSHI  #0x00000000
10214 @ 83681:               JUMPIF <= L_0005
10215 @ 83685:               PUSH   MODE
10216 @ 83688:               PUSHI  #0x0000003f
10217 @ 83693:               AND   
10218 @ 83694:               PUSHI  #0x0000003a
10219 @ 83699:               JUMPIF < L_0004
10220 @ 83703:               LOCATE L_0005
10221 @ 83706:               JUMP   L_0145
10222 @ 83709:               LOCATE L_0004

  2096    -> ea1
10223 @ 83712:               LINE   2096 "regression-compile-tmp/imp22g-77.imp"
10224 @ 83752:               JUMP   L_0146

  2097  s(revea):  !reversible cases (EA,REG or REG,EA)
10225 @ 83755:               LINE   2097 "regression-compile-tmp/imp22g-77.imp"
10226 @ 83795:               PUSHI  #0x00000010
10227 @ 83800:               SLABEL 317

  2098    %if modex&2_111000 # 0 %start;  !dest not D
10228 @ 83803:               LINE   2098 "regression-compile-tmp/imp22g-77.imp"
10229 @ 83843:               PUSH   MODEX
10230 @ 83846:               PUSHI  #0x00000038
10231 @ 83851:               AND   
10232 @ 83852:               PUSHI  #0x00000000
10233 @ 83857:               JUMPIF = L_0004

  2099      kind = shift;  info = rwea
10234 @ 83861:               LINE   2099 "regression-compile-tmp/imp22g-77.imp"
10235 @ 83901:               PUSH   KIND
10236 @ 83904:               PUSHI  #0x00000020
10237 @ 83909:               ASSVAL
10238 @ 83910:               LINE   2099 "regression-compile-tmp/imp22g-77.imp"
10239 @ 83950:               PUSH   INFO
10240 @ 83953:               PUSHI  #0x00000007
10241 @ 83958:               ASSVAL

  2100      opcode = opcode!!16_0100
10242 @ 83959:               LINE   2100 "regression-compile-tmp/imp22g-77.imp"
10243 @ 83999:               PUSH   OPCODE
10244 @ 84002:               PUSH   OPCODE
10245 @ 84005:               PUSHI  #0x00000100
10246 @ 84010:               XOR   
10247 @ 84011:               ASSVAL

  2101      ->sreg
10248 @ 84012:               LINE   2101 "regression-compile-tmp/imp22g-77.imp"
10249 @ 84052:               JUMP   L_0147

  2102    %finish
10250 @ 84055:               LINE   2102 "regression-compile-tmp/imp22g-77.imp"
10251 @ 84095:               LOCATE L_0004

  2103  s(ea): ea0:
10252 @ 84098:               LINE   2103 "regression-compile-tmp/imp22g-77.imp"
10253 @ 84138:               PUSHI  #0x00000006
10254 @ 84143:               SLABEL 317
10255 @ 84146:               LINE   2103 "regression-compile-tmp/imp22g-77.imp"
10256 @ 84186:               LABEL  L_0143

  2104    %if y <= 0 %start
10257 @ 84189:               LINE   2104 "regression-compile-tmp/imp22g-77.imp"
10258 @ 84229:               PUSH   Y
10259 @ 84232:               PUSHI  #0x00000000
10260 @ 84237:               JUMPIF > L_0004

  2105      opcode = opcode+litmode;  !immediate
10261 @ 84241:               LINE   2105 "regression-compile-tmp/imp22g-77.imp"
10262 @ 84281:               PUSH   OPCODE
10263 @ 84284:               PUSH   OPCODE
10264 @ 84287:               PUSHI  #0x0000003c
10265 @ 84292:               ADD   
10266 @ 84293:               ASSVAL

  2106      ->simm
10267 @ 84294:               LINE   2106 "regression-compile-tmp/imp22g-77.imp"
10268 @ 84334:               JUMP   L_0148

  2107    %finish
10269 @ 84337:               LINE   2107 "regression-compile-tmp/imp22g-77.imp"
10270 @ 84377:               LOCATE L_0004

  2108    %if dy_flags&(ext+spec+rflag+wflag) = ext+spec %c
  2109    %and dy_flags&proc # 0 %start
  2110      ! Create transfer vector for external procedure
10271 @ 84380:               LINE   2108 "regression-compile-tmp/imp22g-77.imp"
10272 @ 84420:               PUSH   DY
10273 @ 84423:               SELECT 1
10274 @ 84426:               PUSHI  #0x00004000
10275 @ 84431:               PUSHI  #0x00000100
10276 @ 84436:               ADD   
10277 @ 84437:               PUSHI  #0x00000020
10278 @ 84442:               ADD   
10279 @ 84443:               PUSHI  #0x00000010
10280 @ 84448:               ADD   
10281 @ 84449:               AND   
10282 @ 84450:               PUSHI  #0x00004000
10283 @ 84455:               PUSHI  #0x00000100
10284 @ 84460:               ADD   
10285 @ 84461:               JUMPIF # L_0004
10286 @ 84465:               PUSH   DY
10287 @ 84468:               SELECT 1
10288 @ 84471:               PUSHI  #0x00003000
10289 @ 84476:               AND   
10290 @ 84477:               PUSHI  #0x00000000
10291 @ 84482:               JUMPIF = L_0004

  2111      fill own(1) %if ownad&1 # 0
10292 @ 84486:               LINE   2111 "regression-compile-tmp/imp22g-77.imp"
10293 @ 84526:               PUSH   OWNAD
10294 @ 84529:               PUSHI  #0x00000001
10295 @ 84534:               AND   
10296 @ 84535:               PUSHI  #0x00000000
10297 @ 84540:               JUMPIF = L_0007
10298 @ 84544:               PUSH   FILLOWN
10299 @ 84547:               PUSHI  #0x00000001
10300 @ 84552:               ASSPAR
10301 @ 84553:               CALL  
10302 @ 84554:               LOCATE L_0007

  2112      dy_val = ownad
10303 @ 84557:               LINE   2112 "regression-compile-tmp/imp22g-77.imp"
10304 @ 84597:               PUSH   DY
10305 @ 84600:               SELECT 9
10306 @ 84603:               PUSH   OWNAD
10307 @ 84606:               ASSVAL

  2113      set own word(16_207C+(mb-a0)<<9);  !MOVE.L #xxxxxxxx,MB
10308 @ 84607:               LINE   2113 "regression-compile-tmp/imp22g-77.imp"
10309 @ 84647:               PUSH   SETOWNWORD
10310 @ 84650:               PUSHI  #0x0000207c
10311 @ 84655:               PUSHI  #0x0000000d
10312 @ 84660:               PUSHI  #0x00000009
10313 @ 84665:               SUB   
10314 @ 84666:               PUSHI  #0x00000009
10315 @ 84671:               LSH   
10316 @ 84672:               ADD   
10317 @ 84673:               ASSPAR
10318 @ 84674:               CALL  

  2114      set own word(0);  set own word(0)
10319 @ 84675:               LINE   2114 "regression-compile-tmp/imp22g-77.imp"
10320 @ 84715:               PUSH   SETOWNWORD
10321 @ 84718:               PUSHI  #0x00000000
10322 @ 84723:               ASSPAR
10323 @ 84724:               CALL  
10324 @ 84725:               LINE   2114 "regression-compile-tmp/imp22g-77.imp"
10325 @ 84765:               PUSH   SETOWNWORD
10326 @ 84768:               PUSHI  #0x00000000
10327 @ 84773:               ASSPAR
10328 @ 84774:               CALL  

  2115      set own word(16_4EF9);  !JMP xxxxxxxx
10329 @ 84775:               LINE   2115 "regression-compile-tmp/imp22g-77.imp"
10330 @ 84815:               PUSH   SETOWNWORD
10331 @ 84818:               PUSHI  #0x00004ef9
10332 @ 84823:               ASSPAR
10333 @ 84824:               CALL  

  2116      set own word(0);  set own word(0)
10334 @ 84825:               LINE   2116 "regression-compile-tmp/imp22g-77.imp"
10335 @ 84865:               PUSH   SETOWNWORD
10336 @ 84868:               PUSHI  #0x00000000
10337 @ 84873:               ASSPAR
10338 @ 84874:               CALL  
10339 @ 84875:               LINE   2116 "regression-compile-tmp/imp22g-77.imp"
10340 @ 84915:               PUSH   SETOWNWORD
10341 @ 84918:               PUSHI  #0x00000000
10342 @ 84923:               ASSPAR
10343 @ 84924:               CALL  

  2117    %finish
10344 @ 84925:               LINE   2117 "regression-compile-tmp/imp22g-77.imp"
10345 @ 84965:               LOCATE L_0004

  2118    %if (op = lea %or op = pea) %and mode&63 # pcmode %start
  2119      !taking address: might read or write
10346 @ 84968:               LINE   2118 "regression-compile-tmp/imp22g-77.imp"
10347 @ 85008:               PUSH   OP
10348 @ 85011:               PUSHI  #0x0000004e
10349 @ 85016:               JUMPIF = L_0005
10350 @ 85020:               PUSH   OP
10351 @ 85023:               PUSHI  #0x00000037
10352 @ 85028:               JUMPIF # L_0004
10353 @ 85032:               LOCATE L_0005
10354 @ 85035:               PUSH   MODE
10355 @ 85038:               PUSHI  #0x0000003f
10356 @ 85043:               AND   
10357 @ 85044:               PUSHI  #0x0000003a
10358 @ 85049:               JUMPIF = L_0004

  2120      dy_flags = dy_flags!(mflag+rflag+wflag)
10359 @ 85053:               LINE   2120 "regression-compile-tmp/imp22g-77.imp"
10360 @ 85093:               PUSH   DY
10361 @ 85096:               SELECT 1
10362 @ 85099:               PUSH   DY
10363 @ 85102:               SELECT 1
10364 @ 85105:               PUSHI  #0x00000080
10365 @ 85110:               PUSHI  #0x00000020
10366 @ 85115:               ADD   
10367 @ 85116:               PUSHI  #0x00000010
10368 @ 85121:               ADD   
10369 @ 85122:               OR    
10370 @ 85123:               ASSVAL

  2121      ->err %if mode&2_111000 < aregmode+indir
10371 @ 85124:               LINE   2121 "regression-compile-tmp/imp22g-77.imp"
10372 @ 85164:               PUSH   MODE
10373 @ 85167:               PUSHI  #0x00000038
10374 @ 85172:               AND   
10375 @ 85173:               PUSHI  #0x00000008
10376 @ 85178:               PUSHI  #0x00000008
10377 @ 85183:               ADD   
10378 @ 85184:               JUMPIF >= L_0007
10379 @ 85188:               JUMP   L_0145
10380 @ 85191:               LOCATE L_0007

  2122    %else
10381 @ 85194:               LINE   2122 "regression-compile-tmp/imp22g-77.imp"
10382 @ 85234:               GOTO   L_0003
10383 @ 85237:               LOCATE L_0004

  2123      dy_flags = dy_flags!(mflag+rflag)
10384 @ 85240:               LINE   2123 "regression-compile-tmp/imp22g-77.imp"
10385 @ 85280:               PUSH   DY
10386 @ 85283:               SELECT 1
10387 @ 85286:               PUSH   DY
10388 @ 85289:               SELECT 1
10389 @ 85292:               PUSHI  #0x00000080
10390 @ 85297:               PUSHI  #0x00000020
10391 @ 85302:               ADD   
10392 @ 85303:               OR    
10393 @ 85304:               ASSVAL

  2124    %finish
10394 @ 85305:               LINE   2124 "regression-compile-tmp/imp22g-77.imp"
10395 @ 85345:               LOCATE L_0003

  2125  ea1:
10396 @ 85348:               LINE   2125 "regression-compile-tmp/imp22g-77.imp"
10397 @ 85388:               LABEL  L_0146

  2126    extword = dy_val
10398 @ 85391:               LINE   2126 "regression-compile-tmp/imp22g-77.imp"
10399 @ 85431:               PUSH   EXTWORD
10400 @ 85434:               PUSH   DY
10401 @ 85437:               SELECT 9
10402 @ 85440:               ASSVAL

  2127    %if mode = c_mode %start;  !local
10403 @ 85441:               LINE   2127 "regression-compile-tmp/imp22g-77.imp"
10404 @ 85481:               PUSH   MODE
10405 @ 85484:               PUSH   C
10406 @ 85487:               SELECT 27
10407 @ 85490:               JUMPIF # L_0004

  2128      mode = dispmode+7;  extword = extword-c_sp;  !convert to use SP
10408 @ 85494:               LINE   2128 "regression-compile-tmp/imp22g-77.imp"
10409 @ 85534:               PUSH   MODE
10410 @ 85537:               PUSHI  #0x00000028
10411 @ 85542:               PUSHI  #0x00000007
10412 @ 85547:               ADD   
10413 @ 85548:               ASSVAL
10414 @ 85549:               LINE   2128 "regression-compile-tmp/imp22g-77.imp"
10415 @ 85589:               PUSH   EXTWORD
10416 @ 85592:               PUSH   EXTWORD
10417 @ 85595:               PUSH   C
10418 @ 85598:               SELECT 1
10419 @ 85601:               SUB   
10420 @ 85602:               ASSVAL

  2129      %if extword < 0 %start
10421 @ 85603:               LINE   2129 "regression-compile-tmp/imp22g-77.imp"
10422 @ 85643:               PUSH   EXTWORD
10423 @ 85646:               PUSHI  #0x00000000
10424 @ 85651:               JUMPIF >= L_0007

  2130        intern(4) %if extword < -4
10425 @ 85655:               LINE   2130 "regression-compile-tmp/imp22g-77.imp"
10426 @ 85695:               PUSH   EXTWORD
10427 @ 85698:               PUSHI  #0x00000004
10428 @ 85703:               NEGATE
10429 @ 85704:               JUMPIF >= L_000a
10430 @ 85708:               PUSH   INTERN
10431 @ 85711:               PUSHI  #0x00000004
10432 @ 85716:               ASSPAR
10433 @ 85717:               CALL  
10434 @ 85718:               LOCATE L_000a

  2131        mode = aregmode+pre+7
10435 @ 85721:               LINE   2131 "regression-compile-tmp/imp22g-77.imp"
10436 @ 85761:               PUSH   MODE
10437 @ 85764:               PUSHI  #0x00000008
10438 @ 85769:               PUSHI  #0x00000018
10439 @ 85774:               ADD   
10440 @ 85775:               PUSHI  #0x00000007
10441 @ 85780:               ADD   
10442 @ 85781:               ASSVAL

  2132        extend stack(-extword)
10443 @ 85782:               LINE   2132 "regression-compile-tmp/imp22g-77.imp"
10444 @ 85822:               PUSH   EXTENDSTACK
10445 @ 85825:               PUSH   EXTWORD
10446 @ 85828:               NEGATE
10447 @ 85829:               ASSPAR
10448 @ 85830:               CALL  

  2133        extword = 0
10449 @ 85831:               LINE   2133 "regression-compile-tmp/imp22g-77.imp"
10450 @ 85871:               PUSH   EXTWORD
10451 @ 85874:               PUSHI  #0x00000000
10452 @ 85879:               ASSVAL

  2134      %finish
10453 @ 85880:               LINE   2134 "regression-compile-tmp/imp22g-77.imp"
10454 @ 85920:               LOCATE L_0007

  2135    %finish
10455 @ 85923:               LINE   2135 "regression-compile-tmp/imp22g-77.imp"
10456 @ 85963:               LOCATE L_0004

  2136    mode = mode&63;   !strip extra flags
10457 @ 85966:               LINE   2136 "regression-compile-tmp/imp22g-77.imp"
10458 @ 86006:               PUSH   MODE
10459 @ 86009:               PUSH   MODE
10460 @ 86012:               PUSHI  #0x0000003f
10461 @ 86017:               AND   
10462 @ 86018:               ASSVAL

  2137    %if mode >= dispmode %start;  !+extra
10463 @ 86019:               LINE   2137 "regression-compile-tmp/imp22g-77.imp"
10464 @ 86059:               PUSH   MODE
10465 @ 86062:               PUSHI  #0x00000028
10466 @ 86067:               JUMPIF < L_0004

  2138      f = 0
10467 @ 86071:               LINE   2138 "regression-compile-tmp/imp22g-77.imp"
10468 @ 86111:               PUSH   F
10469 @ 86114:               PUSHI  #0x00000000
10470 @ 86119:               ASSVAL

  2139      %if mode = pcmode %start
10471 @ 86120:               LINE   2139 "regression-compile-tmp/imp22g-77.imp"
10472 @ 86160:               PUSH   MODE
10473 @ 86163:               PUSHI  #0x0000003a
10474 @ 86168:               JUMPIF # L_0007

  2140        pcrel(0)
10475 @ 86172:               LINE   2140 "regression-compile-tmp/imp22g-77.imp"
10476 @ 86212:               PUSH   PCREL
10477 @ 86215:               PUSHI  #0x00000000
10478 @ 86220:               ASSPAR
10479 @ 86221:               CALL  

  2141      %finish
10480 @ 86222:               LINE   2141 "regression-compile-tmp/imp22g-77.imp"
10481 @ 86262:               LOCATE L_0007

  2142      %if mode <= dispmode+7 %start
10482 @ 86265:               LINE   2142 "regression-compile-tmp/imp22g-77.imp"
10483 @ 86305:               PUSH   MODE
10484 @ 86308:               PUSHI  #0x00000028
10485 @ 86313:               PUSHI  #0x00000007
10486 @ 86318:               ADD   
10487 @ 86319:               JUMPIF > L_0007

  2143        %if extword = 0 %start
  2144          ! Premode (just created) or Dispmode (=>Indmode)
10488 @ 86323:               LINE   2143 "regression-compile-tmp/imp22g-77.imp"
10489 @ 86363:               PUSH   EXTWORD
10490 @ 86366:               PUSHI  #0x00000000
10491 @ 86371:               JUMPIF # L_000a

  2145          mode = mode+(aregmode+indir-dispmode) %if mode >= dispmode
10492 @ 86375:               LINE   2145 "regression-compile-tmp/imp22g-77.imp"
10493 @ 86415:               PUSH   MODE
10494 @ 86418:               PUSHI  #0x00000028
10495 @ 86423:               JUMPIF < L_000d
10496 @ 86427:               PUSH   MODE
10497 @ 86430:               PUSH   MODE
10498 @ 86433:               PUSHI  #0x00000008
10499 @ 86438:               PUSHI  #0x00000008
10500 @ 86443:               ADD   
10501 @ 86444:               PUSHI  #0x00000028
10502 @ 86449:               SUB   
10503 @ 86450:               ADD   
10504 @ 86451:               ASSVAL
10505 @ 86452:               LOCATE L_000d

  2146        %else
10506 @ 86455:               LINE   2146 "regression-compile-tmp/imp22g-77.imp"
10507 @ 86495:               GOTO   L_0009
10508 @ 86498:               LOCATE L_000a

  2147          fault(dreacherr) %unless -32768 <= extword <= 32767
10509 @ 86501:               LINE   2147 "regression-compile-tmp/imp22g-77.imp"
10510 @ 86541:               PUSHI  #0x00008000
10511 @ 86546:               NEGATE
10512 @ 86547:               PUSH   EXTWORD
10513 @ 86550:               JUMPIFD > L_000e
10514 @ 86554:               PUSHI  #0x00007fff
10515 @ 86559:               JUMPIF <= L_000d
10516 @ 86563:               LOCATE L_000e
10517 @ 86566:               PUSH   FAULT
10518 @ 86569:               PUSHI  #0x00000006
10519 @ 86574:               ASSPAR
10520 @ 86575:               CALL  
10521 @ 86576:               LOCATE L_000d

  2148          store(extword,f)
10522 @ 86579:               LINE   2148 "regression-compile-tmp/imp22g-77.imp"
10523 @ 86619:               PUSH   STORE
10524 @ 86622:               PUSH   EXTWORD
10525 @ 86625:               ASSPAR
10526 @ 86626:               PUSH   F
10527 @ 86629:               ASSPAR
10528 @ 86630:               CALL  

  2149        %finish
10529 @ 86631:               LINE   2149 "regression-compile-tmp/imp22g-77.imp"
10530 @ 86671:               LOCATE L_0009

  2150      %else
10531 @ 86674:               LINE   2150 "regression-compile-tmp/imp22g-77.imp"
10532 @ 86714:               GOTO   L_0006
10533 @ 86717:               LOCATE L_0007

  2151        mode = absmode+1 %if mode = absmode %and %not is short(extword)=TRUE
10534 @ 86720:               LINE   2151 "regression-compile-tmp/imp22g-77.imp"
10535 @ 86760:               PUSH   MODE
10536 @ 86763:               PUSHI  #0x00000038
10537 @ 86768:               JUMPIF # L_000a
10538 @ 86772:               PUSH   ISSHORT
10539 @ 86775:               PUSH   EXTWORD
10540 @ 86778:               ASSPAR
10541 @ 86779:               CALL  
10542 @ 86780:               PUSHI  #0x00000001
10543 @ 86785:               JUMPIF = L_000a
10544 @ 86789:               PUSH   MODE
10545 @ 86792:               PUSHI  #0x00000038
10546 @ 86797:               PUSHI  #0x00000001
10547 @ 86802:               ADD   
10548 @ 86803:               ASSVAL
10549 @ 86804:               LOCATE L_000a

  2152        store(extword>>16,0) %if mode = absmode+1
10550 @ 86807:               LINE   2152 "regression-compile-tmp/imp22g-77.imp"
10551 @ 86847:               PUSH   MODE
10552 @ 86850:               PUSHI  #0x00000038
10553 @ 86855:               PUSHI  #0x00000001
10554 @ 86860:               ADD   
10555 @ 86861:               JUMPIF # L_000a
10556 @ 86865:               PUSH   STORE
10557 @ 86868:               PUSH   EXTWORD
10558 @ 86871:               PUSHI  #0x00000010
10559 @ 86876:               RSH   
10560 @ 86877:               ASSPAR
10561 @ 86878:               PUSHI  #0x00000000
10562 @ 86883:               ASSPAR
10563 @ 86884:               CALL  
10564 @ 86885:               LOCATE L_000a

  2153        store(extword,f)
10565 @ 86888:               LINE   2153 "regression-compile-tmp/imp22g-77.imp"
10566 @ 86928:               PUSH   STORE
10567 @ 86931:               PUSH   EXTWORD
10568 @ 86934:               ASSPAR
10569 @ 86935:               PUSH   F
10570 @ 86938:               ASSPAR
10571 @ 86939:               CALL  

  2154      %finish
10572 @ 86940:               LINE   2154 "regression-compile-tmp/imp22g-77.imp"
10573 @ 86980:               LOCATE L_0006

  2155    %finish
10574 @ 86983:               LINE   2155 "regression-compile-tmp/imp22g-77.imp"
10575 @ 87023:               LOCATE L_0004

  2156    mode = ((mode&7)<<3 + mode>>3)<<6 %if kind&shift # 0
10576 @ 87026:               LINE   2156 "regression-compile-tmp/imp22g-77.imp"
10577 @ 87066:               PUSH   KIND
10578 @ 87069:               PUSHI  #0x00000020
10579 @ 87074:               AND   
10580 @ 87075:               PUSHI  #0x00000000
10581 @ 87080:               JUMPIF = L_0004
10582 @ 87084:               PUSH   MODE
10583 @ 87087:               PUSH   MODE
10584 @ 87090:               PUSHI  #0x00000007
10585 @ 87095:               AND   
10586 @ 87096:               PUSHI  #0x00000003
10587 @ 87101:               LSH   
10588 @ 87102:               PUSH   MODE
10589 @ 87105:               PUSHI  #0x00000003
10590 @ 87110:               RSH   
10591 @ 87111:               ADD   
10592 @ 87112:               PUSHI  #0x00000006
10593 @ 87117:               LSH   
10594 @ 87118:               ASSVAL
10595 @ 87119:               LOCATE L_0004

  2157    opcode = opcode+mode
10596 @ 87122:               LINE   2157 "regression-compile-tmp/imp22g-77.imp"
10597 @ 87162:               PUSH   OPCODE
10598 @ 87165:               PUSH   OPCODE
10599 @ 87168:               PUSH   MODE
10600 @ 87171:               ADD   
10601 @ 87172:               ASSVAL

  2158    ->next
  2159  
10602 @ 87173:               LINE   2158 "regression-compile-tmp/imp22g-77.imp"
10603 @ 87213:               JUMP   L_0141

  2160  s(exreg&31):  !EXG (D,D / A,A / D,A)
10604 @ 87216:               LINE   2160 "regression-compile-tmp/imp22g-77.imp"
10605 @ 87256:               PUSHI  #0x00000015
10606 @ 87261:               SLABEL 317

  2161    %if mode&2_111000 = 0 %start;  !D
10607 @ 87264:               LINE   2161 "regression-compile-tmp/imp22g-77.imp"
10608 @ 87304:               PUSH   MODE
10609 @ 87307:               PUSHI  #0x00000038
10610 @ 87312:               AND   
10611 @ 87313:               PUSHI  #0x00000000
10612 @ 87318:               JUMPIF # L_0004

  2162      %if modex&2_111000 # 0 %start;  !not D
10613 @ 87322:               LINE   2162 "regression-compile-tmp/imp22g-77.imp"
10614 @ 87362:               PUSH   MODEX
10615 @ 87365:               PUSHI  #0x00000038
10616 @ 87370:               AND   
10617 @ 87371:               PUSHI  #0x00000000
10618 @ 87376:               JUMPIF = L_0007

  2163        opcode = opcode!!16_C8;  info = areg
10619 @ 87380:               LINE   2163 "regression-compile-tmp/imp22g-77.imp"
10620 @ 87420:               PUSH   OPCODE
10621 @ 87423:               PUSH   OPCODE
10622 @ 87426:               PUSHI  #0x000000c8
10623 @ 87431:               XOR   
10624 @ 87432:               ASSVAL
10625 @ 87433:               LINE   2163 "regression-compile-tmp/imp22g-77.imp"
10626 @ 87473:               PUSH   INFO
10627 @ 87476:               PUSHI  #0x00000002
10628 @ 87481:               ASSVAL

  2164      %finish
10629 @ 87482:               LINE   2164 "regression-compile-tmp/imp22g-77.imp"
10630 @ 87522:               LOCATE L_0007

  2165      -> sreg
10631 @ 87525:               LINE   2165 "regression-compile-tmp/imp22g-77.imp"
10632 @ 87565:               JUMP   L_0147

  2166    %finish
10633 @ 87568:               LINE   2166 "regression-compile-tmp/imp22g-77.imp"
10634 @ 87608:               LOCATE L_0004

  2167    opcode = opcode+8;  info = areg
10635 @ 87611:               LINE   2167 "regression-compile-tmp/imp22g-77.imp"
10636 @ 87651:               PUSH   OPCODE
10637 @ 87654:               PUSH   OPCODE
10638 @ 87657:               PUSHI  #0x00000008
10639 @ 87662:               ADD   
10640 @ 87663:               ASSVAL
10641 @ 87664:               LINE   2167 "regression-compile-tmp/imp22g-77.imp"
10642 @ 87704:               PUSH   INFO
10643 @ 87707:               PUSHI  #0x00000002
10644 @ 87712:               ASSVAL

  2168    -> sareg
10645 @ 87713:               LINE   2168 "regression-compile-tmp/imp22g-77.imp"
10646 @ 87753:               JUMP   L_0149

  2169  s(qpre):
10647 @ 87756:               LINE   2169 "regression-compile-tmp/imp22g-77.imp"
10648 @ 87796:               PUSHI  #0x00000014
10649 @ 87801:               SLABEL 317

  2170    -> sreg %if mode&2_111000 = 0;  !D
10650 @ 87804:               LINE   2170 "regression-compile-tmp/imp22g-77.imp"
10651 @ 87844:               PUSH   MODE
10652 @ 87847:               PUSHI  #0x00000038
10653 @ 87852:               AND   
10654 @ 87853:               PUSHI  #0x00000000
10655 @ 87858:               JUMPIF # L_0004
10656 @ 87862:               JUMP   L_0147
10657 @ 87865:               LOCATE L_0004

  2171    opcode = opcode+8;  info = preareg+shift
10658 @ 87868:               LINE   2171 "regression-compile-tmp/imp22g-77.imp"
10659 @ 87908:               PUSH   OPCODE
10660 @ 87911:               PUSH   OPCODE
10661 @ 87914:               PUSHI  #0x00000008
10662 @ 87919:               ADD   
10663 @ 87920:               ASSVAL
10664 @ 87921:               LINE   2171 "regression-compile-tmp/imp22g-77.imp"
10665 @ 87961:               PUSH   INFO
10666 @ 87964:               PUSHI  #0x00000013
10667 @ 87969:               PUSHI  #0x00000020
10668 @ 87974:               ADD   
10669 @ 87975:               ASSVAL

  2172  s(preareg):
10670 @ 87976:               LINE   2172 "regression-compile-tmp/imp22g-77.imp"
10671 @ 88016:               PUSHI  #0x00000013
10672 @ 88021:               SLABEL 317

  2173    mode = mode+(post-pre)
10673 @ 88024:               LINE   2173 "regression-compile-tmp/imp22g-77.imp"
10674 @ 88064:               PUSH   MODE
10675 @ 88067:               PUSH   MODE
10676 @ 88070:               PUSHI  #0x00000010
10677 @ 88075:               PUSHI  #0x00000018
10678 @ 88080:               SUB   
10679 @ 88081:               ADD   
10680 @ 88082:               ASSVAL

  2174  s(postareg):
10681 @ 88083:               LINE   2174 "regression-compile-tmp/imp22g-77.imp"
10682 @ 88123:               PUSHI  #0x0000000e
10683 @ 88128:               SLABEL 317

  2175    mode = mode-post
10684 @ 88131:               LINE   2175 "regression-compile-tmp/imp22g-77.imp"
10685 @ 88171:               PUSH   MODE
10686 @ 88174:               PUSH   MODE
10687 @ 88177:               PUSHI  #0x00000010
10688 @ 88182:               SUB   
10689 @ 88183:               ASSVAL

  2176  s(areg): sareg:
10690 @ 88184:               LINE   2176 "regression-compile-tmp/imp22g-77.imp"
10691 @ 88224:               PUSHI  #0x00000002
10692 @ 88229:               SLABEL 317
10693 @ 88232:               LINE   2176 "regression-compile-tmp/imp22g-77.imp"
10694 @ 88272:               LABEL  L_0149

  2177    mode = mode-8
10695 @ 88275:               LINE   2177 "regression-compile-tmp/imp22g-77.imp"
10696 @ 88315:               PUSH   MODE
10697 @ 88318:               PUSH   MODE
10698 @ 88321:               PUSHI  #0x00000008
10699 @ 88326:               SUB   
10700 @ 88327:               ASSVAL

  2178  s(reg): sreg:
10701 @ 88328:               LINE   2178 "regression-compile-tmp/imp22g-77.imp"
10702 @ 88368:               PUSHI  #0x00000001
10703 @ 88373:               SLABEL 317
10704 @ 88376:               LINE   2178 "regression-compile-tmp/imp22g-77.imp"
10705 @ 88416:               LABEL  L_0147

  2179    -> err %unless mode&2_111000 = 0
10706 @ 88419:               LINE   2179 "regression-compile-tmp/imp22g-77.imp"
10707 @ 88459:               PUSH   MODE
10708 @ 88462:               PUSHI  #0x00000038
10709 @ 88467:               AND   
10710 @ 88468:               PUSHI  #0x00000000
10711 @ 88473:               JUMPIF = L_0004
10712 @ 88477:               JUMP   L_0145
10713 @ 88480:               LOCATE L_0004

  2180    mode = mode&7
10714 @ 88483:               LINE   2180 "regression-compile-tmp/imp22g-77.imp"
10715 @ 88523:               PUSH   MODE
10716 @ 88526:               PUSH   MODE
10717 @ 88529:               PUSHI  #0x00000007
10718 @ 88534:               AND   
10719 @ 88535:               ASSVAL

  2181    mode = mode<<9 %if kind&shift # 0
10720 @ 88536:               LINE   2181 "regression-compile-tmp/imp22g-77.imp"
10721 @ 88576:               PUSH   KIND
10722 @ 88579:               PUSHI  #0x00000020
10723 @ 88584:               AND   
10724 @ 88585:               PUSHI  #0x00000000
10725 @ 88590:               JUMPIF = L_0004
10726 @ 88594:               PUSH   MODE
10727 @ 88597:               PUSH   MODE
10728 @ 88600:               PUSHI  #0x00000009
10729 @ 88605:               LSH   
10730 @ 88606:               ASSVAL
10731 @ 88607:               LOCATE L_0004

  2182    opcode = opcode+mode
10732 @ 88610:               LINE   2182 "regression-compile-tmp/imp22g-77.imp"
10733 @ 88650:               PUSH   OPCODE
10734 @ 88653:               PUSH   OPCODE
10735 @ 88656:               PUSH   MODE
10736 @ 88659:               ADD   
10737 @ 88660:               ASSVAL

  2183    ->next
  2184  
10738 @ 88661:               LINE   2183 "regression-compile-tmp/imp22g-77.imp"
10739 @ 88701:               JUMP   L_0141

  2185  s(qreg):  !Shift formats -- quick,Dx / Dy,Dx / 1,<ea> (W)
10740 @ 88704:               LINE   2185 "regression-compile-tmp/imp22g-77.imp"
10741 @ 88744:               PUSHI  #0x0000000d
10742 @ 88749:               SLABEL 317

  2186    opcode = opcode+16_20 %and ->sreg %if y > 0
10743 @ 88752:               LINE   2186 "regression-compile-tmp/imp22g-77.imp"
10744 @ 88792:               PUSH   Y
10745 @ 88795:               PUSHI  #0x00000000
10746 @ 88800:               JUMPIF <= L_0004
10747 @ 88804:               PUSH   OPCODE
10748 @ 88807:               PUSH   OPCODE
10749 @ 88810:               PUSHI  #0x00000020
10750 @ 88815:               ADD   
10751 @ 88816:               ASSVAL
10752 @ 88817:               JUMP   L_0147
10753 @ 88820:               LOCATE L_0004

  2187    %if y = one %and size = 2 %and modex&2_111000 # 0 %start
10754 @ 88823:               LINE   2187 "regression-compile-tmp/imp22g-77.imp"
10755 @ 88863:               PUSH   Y
10756 @ 88866:               PUSHI  #0xfffffffe
10757 @ 88871:               JUMPIF # L_0004
10758 @ 88875:               PUSH   SIZE
10759 @ 88878:               PUSHI  #0x00000002
10760 @ 88883:               JUMPIF # L_0004
10761 @ 88887:               PUSH   MODEX
10762 @ 88890:               PUSHI  #0x00000038
10763 @ 88895:               AND   
10764 @ 88896:               PUSHI  #0x00000000
10765 @ 88901:               JUMPIF = L_0004

  2188      opcode = opcode!!16_290
10766 @ 88905:               LINE   2188 "regression-compile-tmp/imp22g-77.imp"
10767 @ 88945:               PUSH   OPCODE
10768 @ 88948:               PUSH   OPCODE
10769 @ 88951:               PUSHI  #0x00000290
10770 @ 88956:               XOR   
10771 @ 88957:               ASSVAL

  2189      ->next
10772 @ 88958:               LINE   2189 "regression-compile-tmp/imp22g-77.imp"
10773 @ 88998:               JUMP   L_0141

  2190       %finish
10774 @ 89001:               LINE   2190 "regression-compile-tmp/imp22g-77.imp"
10775 @ 89041:               LOCATE L_0004

  2191  s(quick):
10776 @ 89044:               LINE   2191 "regression-compile-tmp/imp22g-77.imp"
10777 @ 89084:               PUSHI  #0x00000004
10778 @ 89089:               SLABEL 317

  2192    -> err %if y >= 0
10779 @ 89092:               LINE   2192 "regression-compile-tmp/imp22g-77.imp"
10780 @ 89132:               PUSH   Y
10781 @ 89135:               PUSHI  #0x00000000
10782 @ 89140:               JUMPIF < L_0004
10783 @ 89144:               JUMP   L_0145
10784 @ 89147:               LOCATE L_0004

  2193    y = litval(y)
10785 @ 89150:               LINE   2193 "regression-compile-tmp/imp22g-77.imp"
10786 @ 89190:               PUSH   Y
10787 @ 89193:               PUSH   LITVAL
10788 @ 89196:               PUSH   Y
10789 @ 89199:               ASSPAR
10790 @ 89200:               CALL  
10791 @ 89201:               ASSVAL

  2194    ->err %unless y <= 8
10792 @ 89202:               LINE   2194 "regression-compile-tmp/imp22g-77.imp"
10793 @ 89242:               PUSH   Y
10794 @ 89245:               PUSHI  #0x00000008
10795 @ 89250:               JUMPIF <= L_0004
10796 @ 89254:               JUMP   L_0145
10797 @ 89257:               LOCATE L_0004

  2195    opcode = opcode+(y&7)<<9;  !(always aligned to bit9)
10798 @ 89260:               LINE   2195 "regression-compile-tmp/imp22g-77.imp"
10799 @ 89300:               PUSH   OPCODE
10800 @ 89303:               PUSH   OPCODE
10801 @ 89306:               PUSH   Y
10802 @ 89309:               PUSHI  #0x00000007
10803 @ 89314:               AND   
10804 @ 89315:               PUSHI  #0x00000009
10805 @ 89320:               LSH   
10806 @ 89321:               ADD   
10807 @ 89322:               ASSVAL

  2196    ->next
  2197  
10808 @ 89323:               LINE   2196 "regression-compile-tmp/imp22g-77.imp"
10809 @ 89363:               JUMP   L_0141

  2198  s(tquick):  !(TRAP)
10810 @ 89366:               LINE   2198 "regression-compile-tmp/imp22g-77.imp"
10811 @ 89406:               PUSHI  #0x0000000a
10812 @ 89411:               SLABEL 317

  2199    -> err %unless -30 <= y %and y&1 = 0;  !{0<=}litval(y)<=15
10813 @ 89414:               LINE   2199 "regression-compile-tmp/imp22g-77.imp"
10814 @ 89454:               PUSHI  #0x0000001e
10815 @ 89459:               NEGATE
10816 @ 89460:               PUSH   Y
10817 @ 89463:               JUMPIF > L_0005
10818 @ 89467:               PUSH   Y
10819 @ 89470:               PUSHI  #0x00000001
10820 @ 89475:               AND   
10821 @ 89476:               PUSHI  #0x00000000
10822 @ 89481:               JUMPIF = L_0004
10823 @ 89485:               LOCATE L_0005
10824 @ 89488:               JUMP   L_0145
10825 @ 89491:               LOCATE L_0004

  2200  s(mquick):
10826 @ 89494:               LINE   2200 "regression-compile-tmp/imp22g-77.imp"
10827 @ 89534:               PUSHI  #0x00000005
10828 @ 89539:               SLABEL 317

  2201    ->err %unless y <= 0 %and y >= litmite
10829 @ 89542:               LINE   2201 "regression-compile-tmp/imp22g-77.imp"
10830 @ 89582:               PUSH   Y
10831 @ 89585:               PUSHI  #0x00000000
10832 @ 89590:               JUMPIF > L_0005
10833 @ 89594:               PUSH   Y
10834 @ 89597:               PUSHI  #0xffffff01
10835 @ 89602:               JUMPIF >= L_0004
10836 @ 89606:               LOCATE L_0005
10837 @ 89609:               JUMP   L_0145
10838 @ 89612:               LOCATE L_0004

  2202    y = litval(y)
10839 @ 89615:               LINE   2202 "regression-compile-tmp/imp22g-77.imp"
10840 @ 89655:               PUSH   Y
10841 @ 89658:               PUSH   LITVAL
10842 @ 89661:               PUSH   Y
10843 @ 89664:               ASSPAR
10844 @ 89665:               CALL  
10845 @ 89666:               ASSVAL

  2203    opcode = opcode+y&255
10846 @ 89667:               LINE   2203 "regression-compile-tmp/imp22g-77.imp"
10847 @ 89707:               PUSH   OPCODE
10848 @ 89710:               PUSH   OPCODE
10849 @ 89713:               PUSH   Y
10850 @ 89716:               PUSHI  #0x000000ff
10851 @ 89721:               AND   
10852 @ 89722:               ADD   
10853 @ 89723:               ASSVAL

  2204    ->next
10854 @ 89724:               LINE   2204 "regression-compile-tmp/imp22g-77.imp"
10855 @ 89764:               JUMP   L_0141

  2205  s(rel):
10856 @ 89767:               LINE   2205 "regression-compile-tmp/imp22g-77.imp"
10857 @ 89807:               PUSHI  #0x0000000b
10858 @ 89812:               SLABEL 317

  2206    ->s(mquick) %if y <= 0 %and y >= litmite
10859 @ 89815:               LINE   2206 "regression-compile-tmp/imp22g-77.imp"
10860 @ 89855:               PUSH   Y
10861 @ 89858:               PUSHI  #0x00000000
10862 @ 89863:               JUMPIF > L_0004
10863 @ 89867:               PUSH   Y
10864 @ 89870:               PUSHI  #0xffffff01
10865 @ 89875:               JUMPIF < L_0004
10866 @ 89879:               PUSHI  #0x00000005
10867 @ 89884:               SJUMP  317
10868 @ 89887:               LOCATE L_0004

  2207  s(longrel):
10869 @ 89890:               LINE   2207 "regression-compile-tmp/imp22g-77.imp"
10870 @ 89930:               PUSHI  #0x0000000c
10871 @ 89935:               SLABEL 317

  2208    ->simm %if y <= 0
10872 @ 89938:               LINE   2208 "regression-compile-tmp/imp22g-77.imp"
10873 @ 89978:               PUSH   Y
10874 @ 89981:               PUSHI  #0x00000000
10875 @ 89986:               JUMPIF > L_0004
10876 @ 89990:               JUMP   L_0148
10877 @ 89993:               LOCATE L_0004

  2209    dy_flags = dy_flags!rflag
10878 @ 89996:               LINE   2209 "regression-compile-tmp/imp22g-77.imp"
10879 @ 90036:               PUSH   DY
10880 @ 90039:               SELECT 1
10881 @ 90042:               PUSH   DY
10882 @ 90045:               SELECT 1
10883 @ 90048:               PUSHI  #0x00000020
10884 @ 90053:               OR    
10885 @ 90054:               ASSVAL

  2210    extword = dy_val
10886 @ 90055:               LINE   2210 "regression-compile-tmp/imp22g-77.imp"
10887 @ 90095:               PUSH   EXTWORD
10888 @ 90098:               PUSH   DY
10889 @ 90101:               SELECT 9
10890 @ 90104:               ASSVAL

  2211    f = 0
10891 @ 90105:               LINE   2211 "regression-compile-tmp/imp22g-77.imp"
10892 @ 90145:               PUSH   F
10893 @ 90148:               PUSHI  #0x00000000
10894 @ 90153:               ASSVAL

  2212    pcrel(longrel-kind&31)
10895 @ 90154:               LINE   2212 "regression-compile-tmp/imp22g-77.imp"
10896 @ 90194:               PUSH   PCREL
10897 @ 90197:               PUSHI  #0x0000000c
10898 @ 90202:               PUSH   KIND
10899 @ 90205:               PUSHI  #0x0000001f
10900 @ 90210:               AND   
10901 @ 90211:               SUB   
10902 @ 90212:               ASSPAR
10903 @ 90213:               CALL  

  2213    store(extword,f)
10904 @ 90214:               LINE   2213 "regression-compile-tmp/imp22g-77.imp"
10905 @ 90254:               PUSH   STORE
10906 @ 90257:               PUSH   EXTWORD
10907 @ 90260:               ASSPAR
10908 @ 90261:               PUSH   F
10909 @ 90264:               ASSPAR
10910 @ 90265:               CALL  

  2214    ->next
  2215  
10911 @ 90266:               LINE   2214 "regression-compile-tmp/imp22g-77.imp"
10912 @ 90306:               JUMP   L_0141

  2216  s(ireg):  !immediate or reg
10913 @ 90309:               LINE   2216 "regression-compile-tmp/imp22g-77.imp"
10914 @ 90349:               PUSHI  #0x00000003
10915 @ 90354:               SLABEL 317

  2217    ->sreg %if y > 0
10916 @ 90357:               LINE   2217 "regression-compile-tmp/imp22g-77.imp"
10917 @ 90397:               PUSH   Y
10918 @ 90400:               PUSHI  #0x00000000
10919 @ 90405:               JUMPIF <= L_0004
10920 @ 90409:               JUMP   L_0147
10921 @ 90412:               LOCATE L_0004

  2218    opcode = opcode!!16_900
10922 @ 90415:               LINE   2218 "regression-compile-tmp/imp22g-77.imp"
10923 @ 90455:               PUSH   OPCODE
10924 @ 90458:               PUSH   OPCODE
10925 @ 90461:               PUSHI  #0x00000900
10926 @ 90466:               XOR   
10927 @ 90467:               ASSVAL

  2219  s(imm):
10928 @ 90468:               LINE   2219 "regression-compile-tmp/imp22g-77.imp"
10929 @ 90508:               PUSHI  #0x00000009
10930 @ 90513:               SLABEL 317

  2220    ->err %if y > 0
10931 @ 90516:               LINE   2220 "regression-compile-tmp/imp22g-77.imp"
10932 @ 90556:               PUSH   Y
10933 @ 90559:               PUSHI  #0x00000000
10934 @ 90564:               JUMPIF <= L_0004
10935 @ 90568:               JUMP   L_0145
10936 @ 90571:               LOCATE L_0004

  2221  simm:
10937 @ 90574:               LINE   2221 "regression-compile-tmp/imp22g-77.imp"
10938 @ 90614:               LABEL  L_0148

  2222    y = litval(y)
10939 @ 90617:               LINE   2222 "regression-compile-tmp/imp22g-77.imp"
10940 @ 90657:               PUSH   Y
10941 @ 90660:               PUSH   LITVAL
10942 @ 90663:               PUSH   Y
10943 @ 90666:               ASSPAR
10944 @ 90667:               CALL  
10945 @ 90668:               ASSVAL

  2223    store(y>>16,0) %if size = 4
10946 @ 90669:               LINE   2223 "regression-compile-tmp/imp22g-77.imp"
10947 @ 90709:               PUSH   SIZE
10948 @ 90712:               PUSHI  #0x00000004
10949 @ 90717:               JUMPIF # L_0004
10950 @ 90721:               PUSH   STORE
10951 @ 90724:               PUSH   Y
10952 @ 90727:               PUSHI  #0x00000010
10953 @ 90732:               RSH   
10954 @ 90733:               ASSPAR
10955 @ 90734:               PUSHI  #0x00000000
10956 @ 90739:               ASSPAR
10957 @ 90740:               CALL  
10958 @ 90741:               LOCATE L_0004

  2224  put:
10959 @ 90744:               LINE   2224 "regression-compile-tmp/imp22g-77.imp"
10960 @ 90784:               LABEL  L_014a

  2225    store(y,0)
10961 @ 90787:               LINE   2225 "regression-compile-tmp/imp22g-77.imp"
10962 @ 90827:               PUSH   STORE
10963 @ 90830:               PUSH   Y
10964 @ 90833:               ASSPAR
10965 @ 90834:               PUSHI  #0x00000000
10966 @ 90839:               ASSPAR
10967 @ 90840:               CALL  

  2226    ->next
10968 @ 90841:               LINE   2226 "regression-compile-tmp/imp22g-77.imp"
10969 @ 90881:               JUMP   L_0141

  2227  s(ximm):  !MOVEM (IMM,EA or EA,IMM)
10970 @ 90884:               LINE   2227 "regression-compile-tmp/imp22g-77.imp"
10971 @ 90924:               PUSHI  #0x00000011
10972 @ 90929:               SLABEL 317

  2228    %if y > 0 %start;  !EA,IMM
10973 @ 90932:               LINE   2228 "regression-compile-tmp/imp22g-77.imp"
10974 @ 90972:               PUSH   Y
10975 @ 90975:               PUSHI  #0x00000000
10976 @ 90980:               JUMPIF <= L_0004

  2229      opcode = opcode!!16_0400
10977 @ 90984:               LINE   2229 "regression-compile-tmp/imp22g-77.imp"
10978 @ 91024:               PUSH   OPCODE
10979 @ 91027:               PUSH   OPCODE
10980 @ 91030:               PUSHI  #0x00000400
10981 @ 91035:               XOR   
10982 @ 91036:               ASSVAL

  2230      i = x;  x = y;  y = i
10983 @ 91037:               LINE   2230 "regression-compile-tmp/imp22g-77.imp"
10984 @ 91077:               PUSH   I
10985 @ 91080:               PUSH   X
10986 @ 91083:               ASSVAL
10987 @ 91084:               LINE   2230 "regression-compile-tmp/imp22g-77.imp"
10988 @ 91124:               PUSH   X
10989 @ 91127:               PUSH   Y
10990 @ 91130:               ASSVAL
10991 @ 91131:               LINE   2230 "regression-compile-tmp/imp22g-77.imp"
10992 @ 91171:               PUSH   Y
10993 @ 91174:               PUSH   I
10994 @ 91177:               ASSVAL

  2231      dx == dy;  modex = mode
10995 @ 91178:               LINE   2231 "regression-compile-tmp/imp22g-77.imp"
10996 @ 91218:               PUSH   DX
10997 @ 91221:               PUSH   DY
10998 @ 91224:               ASSREF
10999 @ 91225:               LINE   2231 "regression-compile-tmp/imp22g-77.imp"
11000 @ 91265:               PUSH   MODEX
11001 @ 91268:               PUSH   MODE
11002 @ 91271:               ASSVAL

  2232    %finish
11003 @ 91272:               LINE   2232 "regression-compile-tmp/imp22g-77.imp"
11004 @ 91312:               LOCATE L_0004

  2233    y = litval(y)
11005 @ 91315:               LINE   2233 "regression-compile-tmp/imp22g-77.imp"
11006 @ 91355:               PUSH   Y
11007 @ 91358:               PUSH   LITVAL
11008 @ 91361:               PUSH   Y
11009 @ 91364:               ASSPAR
11010 @ 91365:               CALL  
11011 @ 91366:               ASSVAL

  2234    %if prea0 <= x <= prea7 %start;  !-(SP)
11012 @ 91367:               LINE   2234 "regression-compile-tmp/imp22g-77.imp"
11013 @ 91407:               PUSHI  #0x00000021
11014 @ 91412:               PUSH   X
11015 @ 91415:               JUMPIFD > L_0004
11016 @ 91419:               PUSHI  #0x00000028
11017 @ 91424:               JUMPIF > L_0004

  2235      i = 0;  !Reverse bits
11018 @ 91428:               LINE   2235 "regression-compile-tmp/imp22g-77.imp"
11019 @ 91468:               PUSH   I
11020 @ 91471:               PUSHI  #0x00000000
11021 @ 91476:               ASSVAL

  2236      i = i<<1+y&1 %and y = y>>1 %for extword = 1,1,16
11022 @ 91477:               LINE   2236 "regression-compile-tmp/imp22g-77.imp"
11023 @ 91517:               PUSH   EXTWORD
11024 @ 91520:               PUSHI  #0x00000001
11025 @ 91525:               PUSHI  #0x00000010
11026 @ 91530:               PUSHI  #0x00000001
11027 @ 91535:               FOR    L_0006
11028 @ 91538:               PUSH   I
11029 @ 91541:               PUSH   I
11030 @ 91544:               PUSHI  #0x00000001
11031 @ 91549:               LSH   
11032 @ 91550:               PUSH   Y
11033 @ 91553:               PUSHI  #0x00000001
11034 @ 91558:               AND   
11035 @ 91559:               ADD   
11036 @ 91560:               ASSVAL
11037 @ 91561:               PUSH   Y
11038 @ 91564:               PUSH   Y
11039 @ 91567:               PUSHI  #0x00000001
11040 @ 91572:               RSH   
11041 @ 91573:               ASSVAL
11042 @ 91574:               REPEAT L_0006
11043 @ 91577:               LOCATE L_0007

  2237      y = i
11044 @ 91580:               LINE   2237 "regression-compile-tmp/imp22g-77.imp"
11045 @ 91620:               PUSH   Y
11046 @ 91623:               PUSH   I
11047 @ 91626:               ASSVAL

  2238    %finish
11048 @ 91627:               LINE   2238 "regression-compile-tmp/imp22g-77.imp"
11049 @ 91667:               LOCATE L_0004

  2239    ->put
11050 @ 91670:               LINE   2239 "regression-compile-tmp/imp22g-77.imp"
11051 @ 91710:               JUMP   L_014a

  2240  s(data):
11052 @ 91713:               LINE   2240 "regression-compile-tmp/imp22g-77.imp"
11053 @ 91753:               PUSHI  #0x00000012
11054 @ 91758:               SLABEL 317

  2241    -> err %if y <= 0
11055 @ 91761:               LINE   2241 "regression-compile-tmp/imp22g-77.imp"
11056 @ 91801:               PUSH   Y
11057 @ 91804:               PUSHI  #0x00000000
11058 @ 91809:               JUMPIF > L_0004
11059 @ 91813:               JUMP   L_0145
11060 @ 91816:               LOCATE L_0004

  2242    -> err %if mode # absmode
11061 @ 91819:               LINE   2242 "regression-compile-tmp/imp22g-77.imp"
11062 @ 91859:               PUSH   MODE
11063 @ 91862:               PUSHI  #0x00000038
11064 @ 91867:               JUMPIF = L_0004
11065 @ 91871:               JUMP   L_0145
11066 @ 91874:               LOCATE L_0004

  2243    opcode = dy_val
11067 @ 91877:               LINE   2243 "regression-compile-tmp/imp22g-77.imp"
11068 @ 91917:               PUSH   OPCODE
11069 @ 91920:               PUSH   DY
11070 @ 91923:               SELECT 9
11071 @ 91926:               ASSVAL

  2244    ->next
11072 @ 91927:               LINE   2244 "regression-compile-tmp/imp22g-77.imp"
11073 @ 91967:               JUMP   L_0141

  2245  err:
11074 @ 91970:               LINE   2245 "regression-compile-tmp/imp22g-77.imp"
11075 @ 92010:               LABEL  L_0145

  2246    fault(moperr)
11076 @ 92013:               LINE   2246 "regression-compile-tmp/imp22g-77.imp"
11077 @ 92053:               PUSH   FAULT
11078 @ 92056:               PUSHI  #0x0000001a
11079 @ 92061:               ASSPAR
11080 @ 92062:               CALL  

  2247    ->next
11081 @ 92063:               LINE   2247 "regression-compile-tmp/imp22g-77.imp"
11082 @ 92103:               JUMP   L_0141

  2248  %end;  !plant
  2249  
11083 @ 92106:               LINE   2248 "regression-compile-tmp/imp22g-77.imp"
11084 @ 92146:            END    _lev0id0_PLANT {lev=2 --> 1}

  2250  %routine PLANTLIT(%integer op,v,x)
11085 @ 92147:            LINE   2250 "regression-compile-tmp/imp22g-77.imp"
11086 @ 92187:            DEF    PLANTLIT (_lev0id0_PLANTLIT) p1=V_012e 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
11087 @ 92207:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
11088 @ 92208:                  DEF    OP p1=V_012f a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
11089 @ 92222:                  DEF    V p1=V_0130 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
11090 @ 92235:                  DEF    X p1=V_0131 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
11091 @ 92248:               FINISH ) {lev=2}

  2251    %if v >= 0 %start
11092 @ 92249:               LINE   2251 "regression-compile-tmp/imp22g-77.imp"
11093 @ 92289:               PUSH   V
11094 @ 92292:               PUSHI  #0x00000000
11095 @ 92297:               JUMPIF < L_0004

  2252      %if v > smallmax %then litstore(litmax) = v %and v = litmax %c
  2253      %else v = -(v<<1)
11096 @ 92301:               LINE   2252 "regression-compile-tmp/imp22g-77.imp"
11097 @ 92341:               PUSH   V
11098 @ 92344:               PUSHI  #0x000003ff
11099 @ 92349:               JUMPIF <= L_0007
11100 @ 92353:               PUSH   LITSTORE
11101 @ 92356:               PUSHI  #0xfffff800
11102 @ 92361:               ACCESS
11103 @ 92362:               PUSH   V
11104 @ 92365:               ASSVAL
11105 @ 92366:               PUSH   V
11106 @ 92369:               PUSHI  #0xfffff800
11107 @ 92374:               ASSVAL
11108 @ 92375:               GOTO   L_0006
11109 @ 92378:               LOCATE L_0007
11110 @ 92381:               PUSH   V
11111 @ 92384:               PUSH   V
11112 @ 92387:               PUSHI  #0x00000001
11113 @ 92392:               LSH   
11114 @ 92393:               NEGATE
11115 @ 92394:               ASSVAL
11116 @ 92395:               LOCATE L_0006

  2254    %else
11117 @ 92398:               LINE   2254 "regression-compile-tmp/imp22g-77.imp"
11118 @ 92438:               GOTO   L_0003
11119 @ 92441:               LOCATE L_0004

  2255      %if v < smallmin %then litstore(litmax) = v %and v = litmax %c
  2256      %else v = v<<1+1
11120 @ 92444:               LINE   2255 "regression-compile-tmp/imp22g-77.imp"
11121 @ 92484:               PUSH   V
11122 @ 92487:               PUSHI  #0xfffffc00
11123 @ 92492:               JUMPIF >= L_0007
11124 @ 92496:               PUSH   LITSTORE
11125 @ 92499:               PUSHI  #0xfffff800
11126 @ 92504:               ACCESS
11127 @ 92505:               PUSH   V
11128 @ 92508:               ASSVAL
11129 @ 92509:               PUSH   V
11130 @ 92512:               PUSHI  #0xfffff800
11131 @ 92517:               ASSVAL
11132 @ 92518:               GOTO   L_0006
11133 @ 92521:               LOCATE L_0007
11134 @ 92524:               PUSH   V
11135 @ 92527:               PUSH   V
11136 @ 92530:               PUSHI  #0x00000001
11137 @ 92535:               LSH   
11138 @ 92536:               PUSHI  #0x00000001
11139 @ 92541:               ADD   
11140 @ 92542:               ASSVAL
11141 @ 92543:               LOCATE L_0006

  2257    %finish
11142 @ 92546:               LINE   2257 "regression-compile-tmp/imp22g-77.imp"
11143 @ 92586:               LOCATE L_0003

  2258    plant(op,v,x)
11144 @ 92589:               LINE   2258 "regression-compile-tmp/imp22g-77.imp"
11145 @ 92629:               PUSH   PLANT
11146 @ 92632:               PUSH   OP
11147 @ 92635:               ASSPAR
11148 @ 92636:               PUSH   V
11149 @ 92639:               ASSPAR
11150 @ 92640:               PUSH   X
11151 @ 92643:               ASSPAR
11152 @ 92644:               CALL  

  2259  %end
  2260  
11153 @ 92645:               LINE   2259 "regression-compile-tmp/imp22g-77.imp"
11154 @ 92685:            END    _lev0id0_PLANTLIT {lev=2 --> 1}

  2261  %routine PLANTLIT2(%integer op,y,v)
11155 @ 92686:            LINE   2261 "regression-compile-tmp/imp22g-77.imp"
11156 @ 92726:            DEF    PLANTLIT2 (_lev0id0_PLANTLIT2) p1=V_012f 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
11157 @ 92747:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
11158 @ 92748:                  DEF    OP p1=V_0130 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
11159 @ 92762:                  DEF    Y p1=V_0131 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
11160 @ 92775:                  DEF    V p1=V_0132 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
11161 @ 92788:               FINISH ) {lev=2}

  2262    %if v >= 0 %start
11162 @ 92789:               LINE   2262 "regression-compile-tmp/imp22g-77.imp"
11163 @ 92829:               PUSH   V
11164 @ 92832:               PUSHI  #0x00000000
11165 @ 92837:               JUMPIF < L_0004

  2263      %if v > smallmax %then litstore(litmax) = v %and v = litmax %c
  2264      %else v = -(v<<1)
11166 @ 92841:               LINE   2263 "regression-compile-tmp/imp22g-77.imp"
11167 @ 92881:               PUSH   V
11168 @ 92884:               PUSHI  #0x000003ff
11169 @ 92889:               JUMPIF <= L_0007
11170 @ 92893:               PUSH   LITSTORE
11171 @ 92896:               PUSHI  #0xfffff800
11172 @ 92901:               ACCESS
11173 @ 92902:               PUSH   V
11174 @ 92905:               ASSVAL
11175 @ 92906:               PUSH   V
11176 @ 92909:               PUSHI  #0xfffff800
11177 @ 92914:               ASSVAL
11178 @ 92915:               GOTO   L_0006
11179 @ 92918:               LOCATE L_0007
11180 @ 92921:               PUSH   V
11181 @ 92924:               PUSH   V
11182 @ 92927:               PUSHI  #0x00000001
11183 @ 92932:               LSH   
11184 @ 92933:               NEGATE
11185 @ 92934:               ASSVAL
11186 @ 92935:               LOCATE L_0006

  2265    %else
11187 @ 92938:               LINE   2265 "regression-compile-tmp/imp22g-77.imp"
11188 @ 92978:               GOTO   L_0003
11189 @ 92981:               LOCATE L_0004

  2266      %if v < smallmin %then litstore(litmax) = v %and v = litmax %c
  2267      %else v = v<<1+1
11190 @ 92984:               LINE   2266 "regression-compile-tmp/imp22g-77.imp"
11191 @ 93024:               PUSH   V
11192 @ 93027:               PUSHI  #0xfffffc00
11193 @ 93032:               JUMPIF >= L_0007
11194 @ 93036:               PUSH   LITSTORE
11195 @ 93039:               PUSHI  #0xfffff800
11196 @ 93044:               ACCESS
11197 @ 93045:               PUSH   V
11198 @ 93048:               ASSVAL
11199 @ 93049:               PUSH   V
11200 @ 93052:               PUSHI  #0xfffff800
11201 @ 93057:               ASSVAL
11202 @ 93058:               GOTO   L_0006
11203 @ 93061:               LOCATE L_0007
11204 @ 93064:               PUSH   V
11205 @ 93067:               PUSH   V
11206 @ 93070:               PUSHI  #0x00000001
11207 @ 93075:               LSH   
11208 @ 93076:               PUSHI  #0x00000001
11209 @ 93081:               ADD   
11210 @ 93082:               ASSVAL
11211 @ 93083:               LOCATE L_0006

  2268    %finish
11212 @ 93086:               LINE   2268 "regression-compile-tmp/imp22g-77.imp"
11213 @ 93126:               LOCATE L_0003

  2269    plant(op,y,v)
11214 @ 93129:               LINE   2269 "regression-compile-tmp/imp22g-77.imp"
11215 @ 93169:               PUSH   PLANT
11216 @ 93172:               PUSH   OP
11217 @ 93175:               ASSPAR
11218 @ 93176:               PUSH   Y
11219 @ 93179:               ASSPAR
11220 @ 93180:               PUSH   V
11221 @ 93183:               ASSPAR
11222 @ 93184:               CALL  

  2270  %end
  2271  
11223 @ 93185:               LINE   2270 "regression-compile-tmp/imp22g-77.imp"
11224 @ 93225:            END    _lev0id0_PLANTLIT2 {lev=2 --> 1}

  2272  %routine ALIGN(%integername AD, %integer size)
  2273  !Impose alignment requirements on address AD for
  2274  ! operand of length SIZE
  2275  !provisional basis for bit addressing
  2276  ! -- multiples of 16 on Word boundary
  2277  ! -- multiples of 8 on Byte boundary
  2278  ! -- other < 32 within one Longword
  2279  !%constinteger BITMASK=16_E0000000
  2280  !  %if size&7 = 0 %start
  2281  !    ad = (ad&(\bitmask))+1 %if ad&bitmask # 0;  !ensure on byte boundary
  2282  !    %return %if size&8 # 0
  2283  !  %else
  2284  !    %return %if size < 16
  2285  !    %return %if ad>>29+(ad&1)<<3+size <= 32
  2286  !    ad = (ad&(\bitmask))+1 %if ad&bitmask # 0
  2287  !  %finish
11225 @ 93226:            LINE   2272 "regression-compile-tmp/imp22g-77.imp"
11226 @ 93266:            DEF    ALIGN (_lev0id0_ALIGN) p1=V_0130 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
11227 @ 93283:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
11228 @ 93284:                  DEF    AD p1=V_0131 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
11229 @ 93298:                  DEF    SIZE p1=V_0132 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
11230 @ 93314:               FINISH ) {lev=2}

  2288    ad = ad+1 %if size # 1 %and ad&1 # 0
11231 @ 93315:               LINE   2288 "regression-compile-tmp/imp22g-77.imp"
11232 @ 93355:               PUSH   SIZE
11233 @ 93358:               PUSHI  #0x00000001
11234 @ 93363:               JUMPIF = L_0004
11235 @ 93367:               PUSH   AD
11236 @ 93370:               PUSHI  #0x00000001
11237 @ 93375:               AND   
11238 @ 93376:               PUSHI  #0x00000000
11239 @ 93381:               JUMPIF = L_0004
11240 @ 93385:               PUSH   AD
11241 @ 93388:               PUSH   AD
11242 @ 93391:               PUSHI  #0x00000001
11243 @ 93396:               ADD   
11244 @ 93397:               ASSVAL
11245 @ 93398:               LOCATE L_0004

  2289  %end
  2290  
11246 @ 93401:               LINE   2289 "regression-compile-tmp/imp22g-77.imp"
11247 @ 93441:            END    _lev0id0_ALIGN {lev=2 --> 1}

  2291  %routine ADDIMM(%integer bytes,dest)
11248 @ 93442:            LINE   2291 "regression-compile-tmp/imp22g-77.imp"
11249 @ 93482:            DEF    ADDIMM (_lev0id0_ADDIMM) p1=V_0131 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
11250 @ 93500:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
11251 @ 93501:                  DEF    BYTES p1=V_0132 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
11252 @ 93518:                  DEF    DEST p1=V_0133 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
11253 @ 93534:               FINISH ) {lev=2}

  2292    %if bytes <= 0 %start
11254 @ 93535:               LINE   2292 "regression-compile-tmp/imp22g-77.imp"
11255 @ 93575:               PUSH   BYTES
11256 @ 93578:               PUSHI  #0x00000000
11257 @ 93583:               JUMPIF > L_0004

  2293      %return %if bytes = 0
11258 @ 93587:               LINE   2293 "regression-compile-tmp/imp22g-77.imp"
11259 @ 93627:               PUSH   BYTES
11260 @ 93630:               PUSHI  #0x00000000
11261 @ 93635:               JUMPIF # L_0007
11262 @ 93639:               RETURN
11263 @ 93640:               LOCATE L_0007

  2294      %if bytes >= -8 %start
11264 @ 93643:               LINE   2294 "regression-compile-tmp/imp22g-77.imp"
11265 @ 93683:               PUSH   BYTES
11266 @ 93686:               PUSHI  #0x00000008
11267 @ 93691:               NEGATE
11268 @ 93692:               JUMPIF < L_0007

  2295        plantlit(sub,-bytes,dest)
11269 @ 93696:               LINE   2295 "regression-compile-tmp/imp22g-77.imp"
11270 @ 93736:               PUSH   PLANTLIT
11271 @ 93739:               PUSHI  #0x00000003
11272 @ 93744:               ASSPAR
11273 @ 93745:               PUSH   BYTES
11274 @ 93748:               NEGATE
11275 @ 93749:               ASSPAR
11276 @ 93750:               PUSH   DEST
11277 @ 93753:               ASSPAR
11278 @ 93754:               CALL  

  2296        %return
11279 @ 93755:               LINE   2296 "regression-compile-tmp/imp22g-77.imp"
11280 @ 93795:               RETURN

  2297      %finish
11281 @ 93796:               LINE   2297 "regression-compile-tmp/imp22g-77.imp"
11282 @ 93836:               LOCATE L_0007

  2298    %finish %else %if bytes <= 8 %start
11283 @ 93839:               LINE   2298 "regression-compile-tmp/imp22g-77.imp"
11284 @ 93879:               GOTO   L_0003
11285 @ 93882:               LOCATE L_0004
11286 @ 93885:               PUSH   BYTES
11287 @ 93888:               PUSHI  #0x00000008
11288 @ 93893:               JUMPIF > L_0004

  2299      plantlit(add,bytes,dest)
11289 @ 93897:               LINE   2299 "regression-compile-tmp/imp22g-77.imp"
11290 @ 93937:               PUSH   PLANTLIT
11291 @ 93940:               PUSHI  #0x00000002
11292 @ 93945:               ASSPAR
11293 @ 93946:               PUSH   BYTES
11294 @ 93949:               ASSPAR
11295 @ 93950:               PUSH   DEST
11296 @ 93953:               ASSPAR
11297 @ 93954:               CALL  

  2300      %return
11298 @ 93955:               LINE   2300 "regression-compile-tmp/imp22g-77.imp"
11299 @ 93995:               RETURN

  2301    %finish
11300 @ 93996:               LINE   2301 "regression-compile-tmp/imp22g-77.imp"
11301 @ 94036:               LOCATE L_0004
11302 @ 94039:               LOCATE L_0003

  2302    %if a0 <= dest <= a7 %and is short(bytes)=TRUE %start
11303 @ 94042:               LINE   2302 "regression-compile-tmp/imp22g-77.imp"
11304 @ 94082:               PUSHI  #0x00000009
11305 @ 94087:               PUSH   DEST
11306 @ 94090:               JUMPIFD > L_0004
11307 @ 94094:               PUSHI  #0x00000010
11308 @ 94099:               JUMPIF > L_0004
11309 @ 94103:               PUSH   ISSHORT
11310 @ 94106:               PUSH   BYTES
11311 @ 94109:               ASSPAR
11312 @ 94110:               CALL  
11313 @ 94111:               PUSHI  #0x00000001
11314 @ 94116:               JUMPIF # L_0004

  2303      plant(lea,tempd(dest,bytes),dest)
11315 @ 94120:               LINE   2303 "regression-compile-tmp/imp22g-77.imp"
11316 @ 94160:               PUSH   PLANT
11317 @ 94163:               PUSHI  #0x0000004e
11318 @ 94168:               ASSPAR
11319 @ 94169:               PUSH   TEMPD
11320 @ 94172:               PUSH   DEST
11321 @ 94175:               ASSPAR
11322 @ 94176:               PUSH   BYTES
11323 @ 94179:               ASSPAR
11324 @ 94180:               CALL  
11325 @ 94181:               ASSPAR
11326 @ 94182:               PUSH   DEST
11327 @ 94185:               ASSPAR
11328 @ 94186:               CALL  

  2304      %return
11329 @ 94187:               LINE   2304 "regression-compile-tmp/imp22g-77.imp"
11330 @ 94227:               RETURN

  2305    %finish
11331 @ 94228:               LINE   2305 "regression-compile-tmp/imp22g-77.imp"
11332 @ 94268:               LOCATE L_0004

  2306    plantlit(add,bytes,dest)
11333 @ 94271:               LINE   2306 "regression-compile-tmp/imp22g-77.imp"
11334 @ 94311:               PUSH   PLANTLIT
11335 @ 94314:               PUSHI  #0x00000002
11336 @ 94319:               ASSPAR
11337 @ 94320:               PUSH   BYTES
11338 @ 94323:               ASSPAR
11339 @ 94324:               PUSH   DEST
11340 @ 94327:               ASSPAR
11341 @ 94328:               CALL  

  2307  %end
  2308  
11342 @ 94329:               LINE   2307 "regression-compile-tmp/imp22g-77.imp"
11343 @ 94369:            END    _lev0id0_ADDIMM {lev=2 --> 1}

  2309  %integer%fn FREE REG(%integer rset)
11344 @ 94370:            LINE   2309 "regression-compile-tmp/imp22g-77.imp"
11345 @ 94410:            DEF    FREEREG (_lev0id0_FREEREG) p1=V_0132 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
11346 @ 94429:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
11347 @ 94430:                  DEF    RSET p1=V_0133 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
11348 @ 94446:               FINISH ) {lev=2}

  2310  %integer r,r1
11349 @ 94447:               LINE   2310 "regression-compile-tmp/imp22g-77.imp"
11350 @ 94487:               DEF    R p1=V_0134 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
11351 @ 94500:               DEF    R1 p1=V_0135 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  2311    r = d0;  rset = rset&free
11352 @ 94514:               LINE   2311 "regression-compile-tmp/imp22g-77.imp"
11353 @ 94554:               PUSH   R
11354 @ 94557:               PUSHI  #0x00000001
11355 @ 94562:               ASSVAL
11356 @ 94563:               LINE   2311 "regression-compile-tmp/imp22g-77.imp"
11357 @ 94603:               PUSH   RSET
11358 @ 94606:               PUSH   RSET
11359 @ 94609:               PUSH   FREE
11360 @ 94612:               AND   
11361 @ 94613:               ASSVAL

  2312    %if rset = 0 %then fault(plexerr) %else %start
11362 @ 94614:               LINE   2312 "regression-compile-tmp/imp22g-77.imp"
11363 @ 94654:               PUSH   RSET
11364 @ 94657:               PUSHI  #0x00000000
11365 @ 94662:               JUMPIF # L_0004
11366 @ 94666:               PUSH   FAULT
11367 @ 94669:               PUSHI  #0x00000002
11368 @ 94674:               ASSPAR
11369 @ 94675:               CALL  
11370 @ 94676:               GOTO   L_0003
11371 @ 94679:               LOCATE L_0004

  2313      r = r+1 %and rset = rset>>1 %while rset&1 = 0
11372 @ 94682:               LINE   2313 "regression-compile-tmp/imp22g-77.imp"
11373 @ 94722:               LOCATE L_0006
11374 @ 94725:               PUSH   RSET
11375 @ 94728:               PUSHI  #0x00000001
11376 @ 94733:               AND   
11377 @ 94734:               PUSHI  #0x00000000
11378 @ 94739:               JUMPIF # L_0007
11379 @ 94743:               PUSH   R
11380 @ 94746:               PUSH   R
11381 @ 94749:               PUSHI  #0x00000001
11382 @ 94754:               ADD   
11383 @ 94755:               ASSVAL
11384 @ 94756:               PUSH   RSET
11385 @ 94759:               PUSH   RSET
11386 @ 94762:               PUSHI  #0x00000001
11387 @ 94767:               RSH   
11388 @ 94768:               ASSVAL
11389 @ 94769:               REPEAT L_0006
11390 @ 94772:               LOCATE L_0007

  2314      r1 = r
11391 @ 94775:               LINE   2314 "regression-compile-tmp/imp22g-77.imp"
11392 @ 94815:               PUSH   R1
11393 @ 94818:               PUSH   R
11394 @ 94821:               ASSVAL

  2315      %while c_reg_content(r) # undef %cycle
11395 @ 94822:               LINE   2315 "regression-compile-tmp/imp22g-77.imp"
11396 @ 94862:               LOCATE L_0006
11397 @ 94865:               PUSH   C
11398 @ 94868:               SELECT 30
11399 @ 94871:               SELECT 4
11400 @ 94874:               PUSH   R
11401 @ 94877:               ACCESS
11402 @ 94878:               PUSHI  #0x00000010
11403 @ 94883:               JUMPIF = L_0007

  2316        r = r+1;  rset = rset>>1
11404 @ 94887:               LINE   2316 "regression-compile-tmp/imp22g-77.imp"
11405 @ 94927:               PUSH   R
11406 @ 94930:               PUSH   R
11407 @ 94933:               PUSHI  #0x00000001
11408 @ 94938:               ADD   
11409 @ 94939:               ASSVAL
11410 @ 94940:               LINE   2316 "regression-compile-tmp/imp22g-77.imp"
11411 @ 94980:               PUSH   RSET
11412 @ 94983:               PUSH   RSET
11413 @ 94986:               PUSHI  #0x00000001
11414 @ 94991:               RSH   
11415 @ 94992:               ASSVAL

  2317        r = r1 %and %exit %if rset = 0
11416 @ 94993:               LINE   2317 "regression-compile-tmp/imp22g-77.imp"
11417 @ 95033:               PUSH   RSET
11418 @ 95036:               PUSHI  #0x00000000
11419 @ 95041:               JUMPIF # L_000a
11420 @ 95045:               PUSH   R
11421 @ 95048:               PUSH   R1
11422 @ 95051:               ASSVAL
11423 @ 95052:               GOTO   L_0007
11424 @ 95055:               LOCATE L_000a

  2318        r = r+1 %and rset = rset>>1 %while rset&1 = 0
11425 @ 95058:               LINE   2318 "regression-compile-tmp/imp22g-77.imp"
11426 @ 95098:               LOCATE L_0009
11427 @ 95101:               PUSH   RSET
11428 @ 95104:               PUSHI  #0x00000001
11429 @ 95109:               AND   
11430 @ 95110:               PUSHI  #0x00000000
11431 @ 95115:               JUMPIF # L_000a
11432 @ 95119:               PUSH   R
11433 @ 95122:               PUSH   R
11434 @ 95125:               PUSHI  #0x00000001
11435 @ 95130:               ADD   
11436 @ 95131:               ASSVAL
11437 @ 95132:               PUSH   RSET
11438 @ 95135:               PUSH   RSET
11439 @ 95138:               PUSHI  #0x00000001
11440 @ 95143:               RSH   
11441 @ 95144:               ASSVAL
11442 @ 95145:               REPEAT L_0009
11443 @ 95148:               LOCATE L_000a

  2319      %repeat
11444 @ 95151:               LINE   2319 "regression-compile-tmp/imp22g-77.imp"
11445 @ 95191:               REPEAT L_0006
11446 @ 95194:               LOCATE L_0007

  2320      free = free-d0b<<(r-d0)
11447 @ 95197:               LINE   2320 "regression-compile-tmp/imp22g-77.imp"
11448 @ 95237:               PUSH   FREE
11449 @ 95240:               PUSH   FREE
11450 @ 95243:               PUSHI  #0x00000001
11451 @ 95248:               PUSH   R
11452 @ 95251:               PUSHI  #0x00000001
11453 @ 95256:               SUB   
11454 @ 95257:               LSH   
11455 @ 95258:               SUB   
11456 @ 95259:               ASSVAL

  2321    %finish
11457 @ 95260:               LINE   2321 "regression-compile-tmp/imp22g-77.imp"
11458 @ 95300:               LOCATE L_0003

  2322    %result = r
11459 @ 95303:               LINE   2322 "regression-compile-tmp/imp22g-77.imp"
11460 @ 95343:               PUSH   R
11461 @ 95346:               RESULT

  2323  %end
  2324  
11462 @ 95347:               LINE   2323 "regression-compile-tmp/imp22g-77.imp"
11463 @ 95387:            END    _lev0id0_FREEREG {lev=2 --> 1}

  2325  %routine MOVE BLOCK(%integer source,dest,bytes)
  2326  !Generate code to move a fixed number of bytes
  2327  ! from SOURCE (0,reg,pre,post) to DEST (pre,post)
  2328  ! -- source & dest addresses both even if BYTES even
11464 @ 95388:            LINE   2325 "regression-compile-tmp/imp22g-77.imp"
11465 @ 95428:            DEF    MOVEBLOCK (_lev0id0_MOVEBLOCK) p1=V_0133 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
11466 @ 95449:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
11467 @ 95450:                  DEF    SOURCE p1=V_0134 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
11468 @ 95468:                  DEF    DEST p1=V_0135 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
11469 @ 95484:                  DEF    BYTES p1=V_0136 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
11470 @ 95501:               FINISH ) {lev=2}

  2329  %integer op,f,r,pc1
11471 @ 95502:               LINE   2329 "regression-compile-tmp/imp22g-77.imp"
11472 @ 95542:               DEF    OP p1=V_0137 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
11473 @ 95556:               DEF    F p1=V_0138 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
11474 @ 95569:               DEF    R p1=V_0139 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
11475 @ 95582:               DEF    PC1 p1=V_013a a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  2330    op = move;  op = clr %if source = 0
11476 @ 95597:               LINE   2330 "regression-compile-tmp/imp22g-77.imp"
11477 @ 95637:               PUSH   OP
11478 @ 95640:               PUSHI  #0x00000001
11479 @ 95645:               ASSVAL
11480 @ 95646:               LINE   2330 "regression-compile-tmp/imp22g-77.imp"
11481 @ 95686:               PUSH   SOURCE
11482 @ 95689:               PUSHI  #0x00000000
11483 @ 95694:               JUMPIF # L_0004
11484 @ 95698:               PUSH   OP
11485 @ 95701:               PUSHI  #0x00000034
11486 @ 95706:               ASSVAL
11487 @ 95707:               LOCATE L_0004

  2331    %if bytes <= 16 %and bytes&1 = 0 %start
11488 @ 95710:               LINE   2331 "regression-compile-tmp/imp22g-77.imp"
11489 @ 95750:               PUSH   BYTES
11490 @ 95753:               PUSHI  #0x00000010
11491 @ 95758:               JUMPIF > L_0004
11492 @ 95762:               PUSH   BYTES
11493 @ 95765:               PUSHI  #0x00000001
11494 @ 95770:               AND   
11495 @ 95771:               PUSHI  #0x00000000
11496 @ 95776:               JUMPIF # L_0004

  2332      plant(op,source,dest) %and bytes = bytes-4 %while bytes >= 4
11497 @ 95780:               LINE   2332 "regression-compile-tmp/imp22g-77.imp"
11498 @ 95820:               LOCATE L_0006
11499 @ 95823:               PUSH   BYTES
11500 @ 95826:               PUSHI  #0x00000004
11501 @ 95831:               JUMPIF < L_0007
11502 @ 95835:               PUSH   PLANT
11503 @ 95838:               PUSH   OP
11504 @ 95841:               ASSPAR
11505 @ 95842:               PUSH   SOURCE
11506 @ 95845:               ASSPAR
11507 @ 95846:               PUSH   DEST
11508 @ 95849:               ASSPAR
11509 @ 95850:               CALL  
11510 @ 95851:               PUSH   BYTES
11511 @ 95854:               PUSH   BYTES
11512 @ 95857:               PUSHI  #0x00000004
11513 @ 95862:               SUB   
11514 @ 95863:               ASSVAL
11515 @ 95864:               REPEAT L_0006
11516 @ 95867:               LOCATE L_0007

  2333      plant(op+2<<8,source,dest) %if bytes >= 2
11517 @ 95870:               LINE   2333 "regression-compile-tmp/imp22g-77.imp"
11518 @ 95910:               PUSH   BYTES
11519 @ 95913:               PUSHI  #0x00000002
11520 @ 95918:               JUMPIF < L_0007
11521 @ 95922:               PUSH   PLANT
11522 @ 95925:               PUSH   OP
11523 @ 95928:               PUSHI  #0x00000002
11524 @ 95933:               PUSHI  #0x00000008
11525 @ 95938:               LSH   
11526 @ 95939:               ADD   
11527 @ 95940:               ASSPAR
11528 @ 95941:               PUSH   SOURCE
11529 @ 95944:               ASSPAR
11530 @ 95945:               PUSH   DEST
11531 @ 95948:               ASSPAR
11532 @ 95949:               CALL  
11533 @ 95950:               LOCATE L_0007

  2334    %else;  !use loop
11534 @ 95953:               LINE   2334 "regression-compile-tmp/imp22g-77.imp"
11535 @ 95993:               GOTO   L_0003
11536 @ 95996:               LOCATE L_0004

  2335      op = op+1<<8
11537 @ 95999:               LINE   2335 "regression-compile-tmp/imp22g-77.imp"
11538 @ 96039:               PUSH   OP
11539 @ 96042:               PUSH   OP
11540 @ 96045:               PUSHI  #0x00000001
11541 @ 96050:               PUSHI  #0x00000008
11542 @ 96055:               LSH   
11543 @ 96056:               ADD   
11544 @ 96057:               ASSVAL

  2336      %if bytes&1 = 0 %start
11545 @ 96058:               LINE   2336 "regression-compile-tmp/imp22g-77.imp"
11546 @ 96098:               PUSH   BYTES
11547 @ 96101:               PUSHI  #0x00000001
11548 @ 96106:               AND   
11549 @ 96107:               PUSHI  #0x00000000
11550 @ 96112:               JUMPIF # L_0007

  2337        bytes = bytes>>1;  op = op+1<<8;  !.B -> .W
11551 @ 96116:               LINE   2337 "regression-compile-tmp/imp22g-77.imp"
11552 @ 96156:               PUSH   BYTES
11553 @ 96159:               PUSH   BYTES
11554 @ 96162:               PUSHI  #0x00000001
11555 @ 96167:               RSH   
11556 @ 96168:               ASSVAL
11557 @ 96169:               LINE   2337 "regression-compile-tmp/imp22g-77.imp"
11558 @ 96209:               PUSH   OP
11559 @ 96212:               PUSH   OP
11560 @ 96215:               PUSHI  #0x00000001
11561 @ 96220:               PUSHI  #0x00000008
11562 @ 96225:               LSH   
11563 @ 96226:               ADD   
11564 @ 96227:               ASSVAL

  2338        %if bytes&1 = 0 %start
11565 @ 96228:               LINE   2338 "regression-compile-tmp/imp22g-77.imp"
11566 @ 96268:               PUSH   BYTES
11567 @ 96271:               PUSHI  #0x00000001
11568 @ 96276:               AND   
11569 @ 96277:               PUSHI  #0x00000000
11570 @ 96282:               JUMPIF # L_000a

  2339          bytes = bytes>>1;  op = op+2<<8;  !.W -> .L
11571 @ 96286:               LINE   2339 "regression-compile-tmp/imp22g-77.imp"
11572 @ 96326:               PUSH   BYTES
11573 @ 96329:               PUSH   BYTES
11574 @ 96332:               PUSHI  #0x00000001
11575 @ 96337:               RSH   
11576 @ 96338:               ASSVAL
11577 @ 96339:               LINE   2339 "regression-compile-tmp/imp22g-77.imp"
11578 @ 96379:               PUSH   OP
11579 @ 96382:               PUSH   OP
11580 @ 96385:               PUSHI  #0x00000002
11581 @ 96390:               PUSHI  #0x00000008
11582 @ 96395:               LSH   
11583 @ 96396:               ADD   
11584 @ 96397:               ASSVAL

  2340        %finish
11585 @ 96398:               LINE   2340 "regression-compile-tmp/imp22g-77.imp"
11586 @ 96438:               LOCATE L_000a

  2341      %finish
11587 @ 96441:               LINE   2341 "regression-compile-tmp/imp22g-77.imp"
11588 @ 96481:               LOCATE L_0007

  2342      f = free
11589 @ 96484:               LINE   2342 "regression-compile-tmp/imp22g-77.imp"
11590 @ 96524:               PUSH   F
11591 @ 96527:               PUSH   FREE
11592 @ 96530:               ASSVAL

  2343      %if bytes <= 32768 %and free&anydreg # 0 %start
11593 @ 96531:               LINE   2343 "regression-compile-tmp/imp22g-77.imp"
11594 @ 96571:               PUSH   BYTES
11595 @ 96574:               PUSHI  #0x00008000
11596 @ 96579:               JUMPIF > L_0007
11597 @ 96583:               PUSH   FREE
11598 @ 96586:               PUSHI  #0x000000ef
11599 @ 96591:               AND   
11600 @ 96592:               PUSHI  #0x00000000
11601 @ 96597:               JUMPIF = L_0007

  2344        r = free reg(anydreg)
11602 @ 96601:               LINE   2344 "regression-compile-tmp/imp22g-77.imp"
11603 @ 96641:               PUSH   R
11604 @ 96644:               PUSH   FREEREG
11605 @ 96647:               PUSHI  #0x000000ef
11606 @ 96652:               ASSPAR
11607 @ 96653:               CALL  
11608 @ 96654:               ASSVAL

  2345        plantlit(move,bytes-1,r)
11609 @ 96655:               LINE   2345 "regression-compile-tmp/imp22g-77.imp"
11610 @ 96695:               PUSH   PLANTLIT
11611 @ 96698:               PUSHI  #0x00000001
11612 @ 96703:               ASSPAR
11613 @ 96704:               PUSH   BYTES
11614 @ 96707:               PUSHI  #0x00000001
11615 @ 96712:               SUB   
11616 @ 96713:               ASSPAR
11617 @ 96714:               PUSH   R
11618 @ 96717:               ASSPAR
11619 @ 96718:               CALL  

  2346        pc1 = pc
11620 @ 96719:               LINE   2346 "regression-compile-tmp/imp22g-77.imp"
11621 @ 96759:               PUSH   PC1
11622 @ 96762:               PUSH   PC
11623 @ 96765:               ASSVAL

  2347        plant(op,source,dest)
11624 @ 96766:               LINE   2347 "regression-compile-tmp/imp22g-77.imp"
11625 @ 96806:               PUSH   PLANT
11626 @ 96809:               PUSH   OP
11627 @ 96812:               ASSPAR
11628 @ 96813:               PUSH   SOURCE
11629 @ 96816:               ASSPAR
11630 @ 96817:               PUSH   DEST
11631 @ 96820:               ASSPAR
11632 @ 96821:               CALL  

  2348        plantlit2(dbra,r,(pc1-pc-1)<<1)
11633 @ 96822:               LINE   2348 "regression-compile-tmp/imp22g-77.imp"
11634 @ 96862:               PUSH   PLANTLIT2
11635 @ 96865:               PUSHI  #0x00000051
11636 @ 96870:               ASSPAR
11637 @ 96871:               PUSH   R
11638 @ 96874:               ASSPAR
11639 @ 96875:               PUSH   PC1
11640 @ 96878:               PUSH   PC
11641 @ 96881:               SUB   
11642 @ 96882:               PUSHI  #0x00000001
11643 @ 96887:               SUB   
11644 @ 96888:               PUSHI  #0x00000001
11645 @ 96893:               LSH   
11646 @ 96894:               ASSPAR
11647 @ 96895:               CALL  

  2349        bytes = undef
11648 @ 96896:               LINE   2349 "regression-compile-tmp/imp22g-77.imp"
11649 @ 96936:               PUSH   BYTES
11650 @ 96939:               PUSHI  #0x00000010
11651 @ 96944:               ASSVAL

  2350      %else
11652 @ 96945:               LINE   2350 "regression-compile-tmp/imp22g-77.imp"
11653 @ 96985:               GOTO   L_0006
11654 @ 96988:               LOCATE L_0007

  2351        r = free reg(anydreg!bregb)
11655 @ 96991:               LINE   2351 "regression-compile-tmp/imp22g-77.imp"
11656 @ 97031:               PUSH   R
11657 @ 97034:               PUSH   FREEREG
11658 @ 97037:               PUSHI  #0x000000ef
11659 @ 97042:               PUSHI  #0x00000010
11660 @ 97047:               OR    
11661 @ 97048:               ASSPAR
11662 @ 97049:               CALL  
11663 @ 97050:               ASSVAL

  2352        plantlit(move,bytes,r)
11664 @ 97051:               LINE   2352 "regression-compile-tmp/imp22g-77.imp"
11665 @ 97091:               PUSH   PLANTLIT
11666 @ 97094:               PUSHI  #0x00000001
11667 @ 97099:               ASSPAR
11668 @ 97100:               PUSH   BYTES
11669 @ 97103:               ASSPAR
11670 @ 97104:               PUSH   R
11671 @ 97107:               ASSPAR
11672 @ 97108:               CALL  

  2353        pc1 = pc
11673 @ 97109:               LINE   2353 "regression-compile-tmp/imp22g-77.imp"
11674 @ 97149:               PUSH   PC1
11675 @ 97152:               PUSH   PC
11676 @ 97155:               ASSVAL

  2354        plant(op,source,dest)
11677 @ 97156:               LINE   2354 "regression-compile-tmp/imp22g-77.imp"
11678 @ 97196:               PUSH   PLANT
11679 @ 97199:               PUSH   OP
11680 @ 97202:               ASSPAR
11681 @ 97203:               PUSH   SOURCE
11682 @ 97206:               ASSPAR
11683 @ 97207:               PUSH   DEST
11684 @ 97210:               ASSPAR
11685 @ 97211:               CALL  

  2355        plant(sub,one,r)
11686 @ 97212:               LINE   2355 "regression-compile-tmp/imp22g-77.imp"
11687 @ 97252:               PUSH   PLANT
11688 @ 97255:               PUSHI  #0x00000003
11689 @ 97260:               ASSPAR
11690 @ 97261:               PUSHI  #0xfffffffe
11691 @ 97266:               ASSPAR
11692 @ 97267:               PUSH   R
11693 @ 97270:               ASSPAR
11694 @ 97271:               CALL  

  2356        plantlit2(bne,0,(pc1-pc-1)<<1)
11695 @ 97272:               LINE   2356 "regression-compile-tmp/imp22g-77.imp"
11696 @ 97312:               PUSH   PLANTLIT2
11697 @ 97315:               PUSHI  #0x00000016
11698 @ 97320:               ASSPAR
11699 @ 97321:               PUSHI  #0x00000000
11700 @ 97326:               ASSPAR
11701 @ 97327:               PUSH   PC1
11702 @ 97330:               PUSH   PC
11703 @ 97333:               SUB   
11704 @ 97334:               PUSHI  #0x00000001
11705 @ 97339:               SUB   
11706 @ 97340:               PUSHI  #0x00000001
11707 @ 97345:               LSH   
11708 @ 97346:               ASSPAR
11709 @ 97347:               CALL  

  2357        bytes = 0
11710 @ 97348:               LINE   2357 "regression-compile-tmp/imp22g-77.imp"
11711 @ 97388:               PUSH   BYTES
11712 @ 97391:               PUSHI  #0x00000000
11713 @ 97396:               ASSVAL

  2358      %finish
11714 @ 97397:               LINE   2358 "regression-compile-tmp/imp22g-77.imp"
11715 @ 97437:               LOCATE L_0006

  2359      c_reg_content(r) = bytes;  free = f
11716 @ 97440:               LINE   2359 "regression-compile-tmp/imp22g-77.imp"
11717 @ 97480:               PUSH   C
11718 @ 97483:               SELECT 30
11719 @ 97486:               SELECT 4
11720 @ 97489:               PUSH   R
11721 @ 97492:               ACCESS
11722 @ 97493:               PUSH   BYTES
11723 @ 97496:               ASSVAL
11724 @ 97497:               LINE   2359 "regression-compile-tmp/imp22g-77.imp"
11725 @ 97537:               PUSH   FREE
11726 @ 97540:               PUSH   F
11727 @ 97543:               ASSVAL

  2360    %finish
11728 @ 97544:               LINE   2360 "regression-compile-tmp/imp22g-77.imp"
11729 @ 97584:               LOCATE L_0003

  2361  %end
  2362  
11730 @ 97587:               LINE   2361 "regression-compile-tmp/imp22g-77.imp"
11731 @ 97627:            END    _lev0id0_MOVEBLOCK {lev=2 --> 1}

  2363  %routine UPDATE SP
11732 @ 97628:            LINE   2363 "regression-compile-tmp/imp22g-77.imp"
11733 @ 97668:            DEF    UPDATESP (_lev0id0_UPDATESP) p1=V_0134 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
11734 @ 97688:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
11735 @ 97689:               FINISH ) {lev=2}

  2364    %return %if c_val = 0
11736 @ 97690:               LINE   2364 "regression-compile-tmp/imp22g-77.imp"
11737 @ 97730:               PUSH   C
11738 @ 97733:               SELECT 28
11739 @ 97736:               PUSHI  #0x00000000
11740 @ 97741:               JUMPIF # L_0004
11741 @ 97745:               RETURN
11742 @ 97746:               LOCATE L_0004

  2365    %if c_val < 0 %start
11743 @ 97749:               LINE   2365 "regression-compile-tmp/imp22g-77.imp"
11744 @ 97789:               PUSH   C
11745 @ 97792:               SELECT 28
11746 @ 97795:               PUSHI  #0x00000000
11747 @ 97800:               JUMPIF >= L_0004

  2366      addimm(-c_val,a7);  c_sp = c_sp-c_val
11748 @ 97804:               LINE   2366 "regression-compile-tmp/imp22g-77.imp"
11749 @ 97844:               PUSH   ADDIMM
11750 @ 97847:               PUSH   C
11751 @ 97850:               SELECT 28
11752 @ 97853:               NEGATE
11753 @ 97854:               ASSPAR
11754 @ 97855:               PUSHI  #0x00000010
11755 @ 97860:               ASSPAR
11756 @ 97861:               CALL  
11757 @ 97862:               LINE   2366 "regression-compile-tmp/imp22g-77.imp"
11758 @ 97902:               PUSH   C
11759 @ 97905:               SELECT 1
11760 @ 97908:               PUSH   C
11761 @ 97911:               SELECT 1
11762 @ 97914:               PUSH   C
11763 @ 97917:               SELECT 28
11764 @ 97920:               SUB   
11765 @ 97921:               ASSVAL

  2367    %else
11766 @ 97922:               LINE   2367 "regression-compile-tmp/imp22g-77.imp"
11767 @ 97962:               GOTO   L_0003
11768 @ 97965:               LOCATE L_0004

  2368      %if control&assmask = 0 %then addimm(-c_val,a7) {no unass check} %c
  2369      %else move block(d7,prea7,c_val)
11769 @ 97968:               LINE   2368 "regression-compile-tmp/imp22g-77.imp"
11770 @ 98008:               PUSH   CONTROL
11771 @ 98011:               PUSHI  #0x0f000000
11772 @ 98016:               AND   
11773 @ 98017:               PUSHI  #0x00000000
11774 @ 98022:               JUMPIF # L_0007
11775 @ 98026:               PUSH   ADDIMM
11776 @ 98029:               PUSH   C
11777 @ 98032:               SELECT 28
11778 @ 98035:               NEGATE
11779 @ 98036:               ASSPAR
11780 @ 98037:               PUSHI  #0x00000010
11781 @ 98042:               ASSPAR
11782 @ 98043:               CALL  
11783 @ 98044:               GOTO   L_0006
11784 @ 98047:               LOCATE L_0007
11785 @ 98050:               PUSH   MOVEBLOCK
11786 @ 98053:               PUSHI  #0x00000008
11787 @ 98058:               ASSPAR
11788 @ 98059:               PUSHI  #0x00000028
11789 @ 98064:               ASSPAR
11790 @ 98065:               PUSH   C
11791 @ 98068:               SELECT 28
11792 @ 98071:               ASSPAR
11793 @ 98072:               CALL  
11794 @ 98073:               LOCATE L_0006

  2370      extend stack(c_val)
11795 @ 98076:               LINE   2370 "regression-compile-tmp/imp22g-77.imp"
11796 @ 98116:               PUSH   EXTENDSTACK
11797 @ 98119:               PUSH   C
11798 @ 98122:               SELECT 28
11799 @ 98125:               ASSPAR
11800 @ 98126:               CALL  

  2371    %finish
11801 @ 98127:               LINE   2371 "regression-compile-tmp/imp22g-77.imp"
11802 @ 98167:               LOCATE L_0003

  2372    c_val = 0
11803 @ 98170:               LINE   2372 "regression-compile-tmp/imp22g-77.imp"
11804 @ 98210:               PUSH   C
11805 @ 98213:               SELECT 28
11806 @ 98216:               PUSHI  #0x00000000
11807 @ 98221:               ASSVAL

  2373  %end
  2374  
11808 @ 98222:               LINE   2373 "regression-compile-tmp/imp22g-77.imp"
11809 @ 98262:            END    _lev0id0_UPDATESP {lev=2 --> 1}

  2375  %routine GET BOUNDS(%integer t,%integername lo,hi)
  2376  ![Note: sets HI after LO -- see dummy params in VALOK] 
11810 @ 98263:            LINE   2375 "regression-compile-tmp/imp22g-77.imp"
11811 @ 98303:            DEF    GETBOUNDS (_lev0id0_GETBOUNDS) p1=V_0135 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
11812 @ 98324:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
11813 @ 98325:                  DEF    T p1=V_0136 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
11814 @ 98338:                  DEF    LO p1=V_0137 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
11815 @ 98352:                  DEF    HI p1=V_0138 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
11816 @ 98366:               FINISH ) {lev=2}

  2377    %if dict(t)_type = t # inttype %start;  !basetype
11817 @ 98367:               LINE   2377 "regression-compile-tmp/imp22g-77.imp"
11818 @ 98407:               PUSH   DICT
11819 @ 98410:               PUSH   T
11820 @ 98413:               ACCESS
11821 @ 98414:               SELECT 2
11822 @ 98417:               PUSH   T
11823 @ 98420:               JUMPIFD # L_0004
11824 @ 98424:               PUSHI  #0x0000002b
11825 @ 98429:               JUMPIF = L_0004

  2378      lo = 0;  hi = dict(t)_size
11826 @ 98433:               LINE   2378 "regression-compile-tmp/imp22g-77.imp"
11827 @ 98473:               PUSH   LO
11828 @ 98476:               PUSHI  #0x00000000
11829 @ 98481:               ASSVAL
11830 @ 98482:               LINE   2378 "regression-compile-tmp/imp22g-77.imp"
11831 @ 98522:               PUSH   HI
11832 @ 98525:               PUSH   DICT
11833 @ 98528:               PUSH   T
11834 @ 98531:               ACCESS
11835 @ 98532:               SELECT 5
11836 @ 98535:               ASSVAL

  2379    %else
11837 @ 98536:               LINE   2379 "regression-compile-tmp/imp22g-77.imp"
11838 @ 98576:               GOTO   L_0003
11839 @ 98579:               LOCATE L_0004

  2380      %if dict(t+1)_mode # litmode %then lo = minint %c
  2381      %else lo = dict(t+1)_val
11840 @ 98582:               LINE   2380 "regression-compile-tmp/imp22g-77.imp"
11841 @ 98622:               PUSH   DICT
11842 @ 98625:               PUSH   T
11843 @ 98628:               PUSHI  #0x00000001
11844 @ 98633:               ADD   
11845 @ 98634:               ACCESS
11846 @ 98635:               SELECT 8
11847 @ 98638:               PUSHI  #0x0000003c
11848 @ 98643:               JUMPIF = L_0007
11849 @ 98647:               PUSH   LO
11850 @ 98650:               PUSHI  #0x80000000
11851 @ 98655:               ASSVAL
11852 @ 98656:               GOTO   L_0006
11853 @ 98659:               LOCATE L_0007
11854 @ 98662:               PUSH   LO
11855 @ 98665:               PUSH   DICT
11856 @ 98668:               PUSH   T
11857 @ 98671:               PUSHI  #0x00000001
11858 @ 98676:               ADD   
11859 @ 98677:               ACCESS
11860 @ 98678:               SELECT 9
11861 @ 98681:               ASSVAL
11862 @ 98682:               LOCATE L_0006

  2382      %if dict(t+2)_mode # litmode %then hi = maxint %c
  2383      %else hi = dict(t+2)_val
11863 @ 98685:               LINE   2382 "regression-compile-tmp/imp22g-77.imp"
11864 @ 98725:               PUSH   DICT
11865 @ 98728:               PUSH   T
11866 @ 98731:               PUSHI  #0x00000002
11867 @ 98736:               ADD   
11868 @ 98737:               ACCESS
11869 @ 98738:               SELECT 8
11870 @ 98741:               PUSHI  #0x0000003c
11871 @ 98746:               JUMPIF = L_0007
11872 @ 98750:               PUSH   HI
11873 @ 98753:               PUSHI  #0x7fffffff
11874 @ 98758:               ASSVAL
11875 @ 98759:               GOTO   L_0006
11876 @ 98762:               LOCATE L_0007
11877 @ 98765:               PUSH   HI
11878 @ 98768:               PUSH   DICT
11879 @ 98771:               PUSH   T
11880 @ 98774:               PUSHI  #0x00000002
11881 @ 98779:               ADD   
11882 @ 98780:               ACCESS
11883 @ 98781:               SELECT 9
11884 @ 98784:               ASSVAL
11885 @ 98785:               LOCATE L_0006

  2384    %finish
11886 @ 98788:               LINE   2384 "regression-compile-tmp/imp22g-77.imp"
11887 @ 98828:               LOCATE L_0003

  2385  %end
  2386  
11888 @ 98831:               LINE   2385 "regression-compile-tmp/imp22g-77.imp"
11889 @ 98871:            END    _lev0id0_GETBOUNDS {lev=2 --> 1}

  2387  %integer%fn SIZE(%integer t)
  2388  !Storage size for given object type in bytes
  2389  ! > 0 for operand passable in register
  2390  ! < 0 otherwise
11890 @ 98872:            LINE   2387 "regression-compile-tmp/imp22g-77.imp"
11891 @ 98912:            DEF    SIZE (_lev0id0_SIZE) p1=V_0136 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
11892 @ 98928:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
11893 @ 98929:                  DEF    T p1=V_0137 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
11894 @ 98942:               FINISH ) {lev=2}

  2391  %integer s,ss,lo,hi
11895 @ 98943:               LINE   2391 "regression-compile-tmp/imp22g-77.imp"
11896 @ 98983:               DEF    S p1=V_0138 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
11897 @ 98996:               DEF    SS p1=V_0139 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
11898 @ 99010:               DEF    LO p1=V_013a a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
11899 @ 99024:               DEF    HI p1=V_013b a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  2392  %record(identinfo)%name tp
11900 @ 99038:               LINE   2392 "regression-compile-tmp/imp22g-77.imp"
11901 @ 99078:               DEF    TP p1=V_013c a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  2393    tp == dict(t)
11902 @ 99092:               LINE   2393 "regression-compile-tmp/imp22g-77.imp"
11903 @ 99132:               PUSH   TP
11904 @ 99135:               PUSH   DICT
11905 @ 99138:               PUSH   T
11906 @ 99141:               ACCESS
11907 @ 99142:               ASSREF

  2394    %if tp_flags&nonord = 0 %start
11908 @ 99143:               LINE   2394 "regression-compile-tmp/imp22g-77.imp"
11909 @ 99183:               PUSH   TP
11910 @ 99186:               SELECT 1
11911 @ 99189:               PUSHI  #0x0000000c
11912 @ 99194:               AND   
11913 @ 99195:               PUSHI  #0x00000000
11914 @ 99200:               JUMPIF # L_0004

  2395      %result = tp_size %if tp_type # t;  !subrange
11915 @ 99204:               LINE   2395 "regression-compile-tmp/imp22g-77.imp"
11916 @ 99244:               PUSH   TP
11917 @ 99247:               SELECT 2
11918 @ 99250:               PUSH   T
11919 @ 99253:               JUMPIF = L_0007
11920 @ 99257:               PUSH   TP
11921 @ 99260:               SELECT 5
11922 @ 99263:               RESULT
11923 @ 99264:               LOCATE L_0007

  2396      %result = 4 %if tp_type = inttype
11924 @ 99267:               LINE   2396 "regression-compile-tmp/imp22g-77.imp"
11925 @ 99307:               PUSH   TP
11926 @ 99310:               SELECT 2
11927 @ 99313:               PUSHI  #0x0000002b
11928 @ 99318:               JUMPIF # L_0007
11929 @ 99322:               PUSHI  #0x00000004
11930 @ 99327:               RESULT
11931 @ 99328:               LOCATE L_0007

  2397      %result = 1 %if tp_size <= 255
11932 @ 99331:               LINE   2397 "regression-compile-tmp/imp22g-77.imp"
11933 @ 99371:               PUSH   TP
11934 @ 99374:               SELECT 5
11935 @ 99377:               PUSHI  #0x000000ff
11936 @ 99382:               JUMPIF > L_0007
11937 @ 99386:               PUSHI  #0x00000001
11938 @ 99391:               RESULT
11939 @ 99392:               LOCATE L_0007

  2398      %result = 2
11940 @ 99395:               LINE   2398 "regression-compile-tmp/imp22g-77.imp"
11941 @ 99435:               PUSHI  #0x00000002
11942 @ 99440:               RESULT

  2399    %finish
11943 @ 99441:               LINE   2399 "regression-compile-tmp/imp22g-77.imp"
11944 @ 99481:               LOCATE L_0004

  2400    %result = tp_val %if tp_flags&cat = recy
11945 @ 99484:               LINE   2400 "regression-compile-tmp/imp22g-77.imp"
11946 @ 99524:               PUSH   TP
11947 @ 99527:               SELECT 1
11948 @ 99530:               PUSHI  #0x0000000f
11949 @ 99535:               AND   
11950 @ 99536:               PUSHI  #0x0000000c
11951 @ 99541:               JUMPIF # L_0004
11952 @ 99545:               PUSH   TP
11953 @ 99548:               SELECT 9
11954 @ 99551:               RESULT
11955 @ 99552:               LOCATE L_0004

  2401    %result = tp_size %if tp_flags&cat # arry
11956 @ 99555:               LINE   2401 "regression-compile-tmp/imp22g-77.imp"
11957 @ 99595:               PUSH   TP
11958 @ 99598:               SELECT 1
11959 @ 99601:               PUSHI  #0x0000000f
11960 @ 99606:               AND   
11961 @ 99607:               PUSHI  #0x00000009
11962 @ 99612:               JUMPIF = L_0004
11963 @ 99616:               PUSH   TP
11964 @ 99619:               SELECT 5
11965 @ 99622:               RESULT
11966 @ 99623:               LOCATE L_0004

  2402    %result = 0 %if tp_mode >= framemode;  !dynamic bounds
11967 @ 99626:               LINE   2402 "regression-compile-tmp/imp22g-77.imp"
11968 @ 99666:               PUSH   TP
11969 @ 99669:               SELECT 8
11970 @ 99672:               PUSHI  #0x000000a8
11971 @ 99677:               JUMPIF < L_0004
11972 @ 99681:               PUSHI  #0x00000000
11973 @ 99686:               RESULT
11974 @ 99687:               LOCATE L_0004

  2403    s = 4;  s = size(tp_type) %if tp_flags >= 0
11975 @ 99690:               LINE   2403 "regression-compile-tmp/imp22g-77.imp"
11976 @ 99730:               PUSH   S
11977 @ 99733:               PUSHI  #0x00000004
11978 @ 99738:               ASSVAL
11979 @ 99739:               LINE   2403 "regression-compile-tmp/imp22g-77.imp"
11980 @ 99779:               PUSH   TP
11981 @ 99782:               SELECT 1
11982 @ 99785:               PUSHI  #0x00000000
11983 @ 99790:               JUMPIF < L_0004
11984 @ 99794:               PUSH   S
11985 @ 99797:               PUSH   SIZE
11986 @ 99800:               PUSH   TP
11987 @ 99803:               SELECT 2
11988 @ 99806:               ASSPAR
11989 @ 99807:               CALL  
11990 @ 99808:               ASSVAL
11991 @ 99809:               LOCATE L_0004

  2404    get bounds(tp_xtype,lo,hi)
11992 @ 99812:               LINE   2404 "regression-compile-tmp/imp22g-77.imp"
11993 @ 99852:               PUSH   GETBOUNDS
11994 @ 99855:               PUSH   TP
11995 @ 99858:               SELECT 4
11996 @ 99861:               ASSPAR
11997 @ 99862:               PUSH   LO
11998 @ 99865:               ASSPAR
11999 @ 99866:               PUSH   HI
12000 @ 99869:               ASSPAR
12001 @ 99870:               CALL  

  2405    %result = 0 %if lo = minint %or hi = maxint
12002 @ 99871:               LINE   2405 "regression-compile-tmp/imp22g-77.imp"
12003 @ 99911:               PUSH   LO
12004 @ 99914:               PUSHI  #0x80000000
12005 @ 99919:               JUMPIF = L_0005
12006 @ 99923:               PUSH   HI
12007 @ 99926:               PUSHI  #0x7fffffff
12008 @ 99931:               JUMPIF # L_0004
12009 @ 99935:               LOCATE L_0005
12010 @ 99938:               PUSHI  #0x00000000
12011 @ 99943:               RESULT
12012 @ 99944:               LOCATE L_0004

  2406    ss = (hi-lo+1)*s
12013 @ 99947:               LINE   2406 "regression-compile-tmp/imp22g-77.imp"
12014 @ 99987:               PUSH   SS
12015 @ 99990:               PUSH   HI
12016 @ 99993:               PUSH   LO
12017 @ 99996:               SUB   
12018 @ 99997:               PUSHI  #0x00000001
12019 @ 100002:               ADD   
12020 @ 100003:               PUSH   S
12021 @ 100006:               MUL   
12022 @ 100007:               ASSVAL

  2407    %result = ss %if ss <= 0
12023 @ 100008:               LINE   2407 "regression-compile-tmp/imp22g-77.imp"
12024 @ 100048:               PUSH   SS
12025 @ 100051:               PUSHI  #0x00000000
12026 @ 100056:               JUMPIF > L_0004
12027 @ 100060:               PUSH   SS
12028 @ 100063:               RESULT
12029 @ 100064:               LOCATE L_0004

  2408    %if s = 1 %start;  !byte element size (not nec aligned)
12030 @ 100067:               LINE   2408 "regression-compile-tmp/imp22g-77.imp"
12031 @ 100107:               PUSH   S
12032 @ 100110:               PUSHI  #0x00000001
12033 @ 100115:               JUMPIF # L_0004

  2409      %result = ss %if ss = 1
12034 @ 100119:               LINE   2409 "regression-compile-tmp/imp22g-77.imp"
12035 @ 100159:               PUSH   SS
12036 @ 100162:               PUSHI  #0x00000001
12037 @ 100167:               JUMPIF # L_0007
12038 @ 100171:               PUSH   SS
12039 @ 100174:               RESULT
12040 @ 100175:               LOCATE L_0007

  2410    %else;  !word,long element size (aligned)
12041 @ 100178:               LINE   2410 "regression-compile-tmp/imp22g-77.imp"
12042 @ 100218:               GOTO   L_0003
12043 @ 100221:               LOCATE L_0004

  2411      %result = ss %if ss <= 4
12044 @ 100224:               LINE   2411 "regression-compile-tmp/imp22g-77.imp"
12045 @ 100264:               PUSH   SS
12046 @ 100267:               PUSHI  #0x00000004
12047 @ 100272:               JUMPIF > L_0007
12048 @ 100276:               PUSH   SS
12049 @ 100279:               RESULT
12050 @ 100280:               LOCATE L_0007

  2412    %finish
12051 @ 100283:               LINE   2412 "regression-compile-tmp/imp22g-77.imp"
12052 @ 100323:               LOCATE L_0003

  2413    %result = -ss
12053 @ 100326:               LINE   2413 "regression-compile-tmp/imp22g-77.imp"
12054 @ 100366:               PUSH   SS
12055 @ 100369:               NEGATE
12056 @ 100370:               RESULT

  2414  %end
  2415  
12057 @ 100371:               LINE   2414 "regression-compile-tmp/imp22g-77.imp"
12058 @ 100411:            END    _lev0id0_SIZE {lev=2 --> 1}

  2416  %integer%fn NSIZE(%record(identinfo)%name dp)
12059 @ 100412:            LINE   2416 "regression-compile-tmp/imp22g-77.imp"
12060 @ 100452:            DEF    NSIZE (_lev0id0_NSIZE) p1=V_0137 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
12061 @ 100469:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
12062 @ 100470:                  DEF    DP p1=V_0138 a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
12063 @ 100484:               FINISH ) {lev=2}

  2417    %result = 4 %if dp_flags&(name+indirect) # 0
12064 @ 100485:               LINE   2417 "regression-compile-tmp/imp22g-77.imp"
12065 @ 100525:               PUSH   DP
12066 @ 100528:               SELECT 1
12067 @ 100531:               PUSHI  #0xffff8000
12068 @ 100536:               PUSHI  #0x00000800
12069 @ 100541:               ADD   
12070 @ 100542:               AND   
12071 @ 100543:               PUSHI  #0x00000000
12072 @ 100548:               JUMPIF = L_0004
12073 @ 100552:               PUSHI  #0x00000004
12074 @ 100557:               RESULT
12075 @ 100558:               LOCATE L_0004

  2418    %result = 0 %if dp_flags&proc # 0;       ![??]
12076 @ 100561:               LINE   2418 "regression-compile-tmp/imp22g-77.imp"
12077 @ 100601:               PUSH   DP
12078 @ 100604:               SELECT 1
12079 @ 100607:               PUSHI  #0x00003000
12080 @ 100612:               AND   
12081 @ 100613:               PUSHI  #0x00000000
12082 @ 100618:               JUMPIF = L_0004
12083 @ 100622:               PUSHI  #0x00000000
12084 @ 100627:               RESULT
12085 @ 100628:               LOCATE L_0004

  2419    %result = size(dp_type)
12086 @ 100631:               LINE   2419 "regression-compile-tmp/imp22g-77.imp"
12087 @ 100671:               PUSH   SIZE
12088 @ 100674:               PUSH   DP
12089 @ 100677:               SELECT 2
12090 @ 100680:               ASSPAR
12091 @ 100681:               CALL  
12092 @ 100682:               RESULT

  2420  %end
  2421  
12093 @ 100683:               LINE   2420 "regression-compile-tmp/imp22g-77.imp"
12094 @ 100723:            END    _lev0id0_NSIZE {lev=2 --> 1}

  2422  %integer%fn TSIZE(%integer t)
12095 @ 100724:            LINE   2422 "regression-compile-tmp/imp22g-77.imp"
12096 @ 100764:            DEF    TSIZE (_lev0id0_TSIZE) p1=V_0138 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
12097 @ 100781:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
12098 @ 100782:                  DEF    T p1=V_0139 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
12099 @ 100795:               FINISH ) {lev=2}

  2423    %result = size(dict(t)_type)
12100 @ 100796:               LINE   2423 "regression-compile-tmp/imp22g-77.imp"
12101 @ 100836:               PUSH   SIZE
12102 @ 100839:               PUSH   DICT
12103 @ 100842:               PUSH   T
12104 @ 100845:               ACCESS
12105 @ 100846:               SELECT 2
12106 @ 100849:               ASSPAR
12107 @ 100850:               CALL  
12108 @ 100851:               RESULT

  2424  %end
  2425  
12109 @ 100852:               LINE   2424 "regression-compile-tmp/imp22g-77.imp"
12110 @ 100892:            END    _lev0id0_TSIZE {lev=2 --> 1}

  2426  %routine FORGET(%integer r)
12111 @ 100893:            LINE   2426 "regression-compile-tmp/imp22g-77.imp"
12112 @ 100933:            DEF    FORGET (_lev0id0_FORGET) p1=V_0139 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
12113 @ 100951:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
12114 @ 100952:                  DEF    R p1=V_013a a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
12115 @ 100965:               FINISH ) {lev=2}

  2427    c_reg_content(r) = undef
12116 @ 100966:               LINE   2427 "regression-compile-tmp/imp22g-77.imp"
12117 @ 101006:               PUSH   C
12118 @ 101009:               SELECT 30
12119 @ 101012:               SELECT 4
12120 @ 101015:               PUSH   R
12121 @ 101018:               ACCESS
12122 @ 101019:               PUSHI  #0x00000010
12123 @ 101024:               ASSVAL

  2428  %end
12124 @ 101025:               LINE   2428 "regression-compile-tmp/imp22g-77.imp"
12125 @ 101065:            END    _lev0id0_FORGET {lev=2 --> 1}

  2429  %routine FORGET CC
12126 @ 101066:            LINE   2429 "regression-compile-tmp/imp22g-77.imp"
12127 @ 101106:            DEF    FORGETCC (_lev0id0_FORGETCC) p1=V_013a 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
12128 @ 101126:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
12129 @ 101127:               FINISH ) {lev=2}

  2430    c_reg_ccy = undef
12130 @ 101128:               LINE   2430 "regression-compile-tmp/imp22g-77.imp"
12131 @ 101168:               PUSH   C
12132 @ 101171:               SELECT 30
12133 @ 101174:               SELECT 2
12134 @ 101177:               PUSHI  #0x00000010
12135 @ 101182:               ASSVAL

  2431  %end
12136 @ 101183:               LINE   2431 "regression-compile-tmp/imp22g-77.imp"
12137 @ 101223:            END    _lev0id0_FORGETCC {lev=2 --> 1}

  2432  %routine FORGET REGS
12138 @ 101224:            LINE   2432 "regression-compile-tmp/imp22g-77.imp"
12139 @ 101264:            DEF    FORGETREGS (_lev0id0_FORGETREGS) p1=V_013b 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
12140 @ 101286:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
12141 @ 101287:               FINISH ) {lev=2}

  2433  %shortname cc
12142 @ 101288:               LINE   2433 "regression-compile-tmp/imp22g-77.imp"
12143 @ 101328:               DEF    CC p1=V_013c a/tf=12 b/format=3 c/ostate=0  type=1 (integer) form=2 (name) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0

  2434    %integer i
12144 @ 101342:               LINE   2434 "regression-compile-tmp/imp22g-77.imp"
12145 @ 101382:               DEF    I p1=V_013d a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  2435    i = maxareg
12146 @ 101395:               LINE   2435 "regression-compile-tmp/imp22g-77.imp"
12147 @ 101435:               PUSH   I
12148 @ 101438:               PUSHI  #0x0000000c
12149 @ 101443:               ASSVAL

  2436    cc==c_reg_content(i)
12150 @ 101444:               LINE   2436 "regression-compile-tmp/imp22g-77.imp"
12151 @ 101484:               PUSH   CC
12152 @ 101487:               PUSH   C
12153 @ 101490:               SELECT 30
12154 @ 101493:               SELECT 4
12155 @ 101496:               PUSH   I
12156 @ 101499:               ACCESS
12157 @ 101500:               ASSREF

  2437    %cycle
12158 @ 101501:               LINE   2437 "regression-compile-tmp/imp22g-77.imp"
12159 @ 101541:               LOCATE L_0003

  2438      cc = undef
12160 @ 101544:               LINE   2438 "regression-compile-tmp/imp22g-77.imp"
12161 @ 101584:               PUSH   CC
12162 @ 101587:               PUSHI  #0x00000010
12163 @ 101592:               ASSVAL

  2439      %exit %if cc == c_reg_content(d0)
12164 @ 101593:               LINE   2439 "regression-compile-tmp/imp22g-77.imp"
12165 @ 101633:               PUSH   CC
12166 @ 101636:               PUSH   C
12167 @ 101639:               SELECT 30
12168 @ 101642:               SELECT 4
12169 @ 101645:               PUSHI  #0x00000001
12170 @ 101650:               ACCESS
12171 @ 101651:               JUMPIFA # L_0007
12172 @ 101655:               GOTO   L_0004
12173 @ 101658:               LOCATE L_0007

  2440      i = i-1; cc==c_reg_content(i)
12174 @ 101661:               LINE   2440 "regression-compile-tmp/imp22g-77.imp"
12175 @ 101701:               PUSH   I
12176 @ 101704:               PUSH   I
12177 @ 101707:               PUSHI  #0x00000001
12178 @ 101712:               SUB   
12179 @ 101713:               ASSVAL
12180 @ 101714:               LINE   2440 "regression-compile-tmp/imp22g-77.imp"
12181 @ 101754:               PUSH   CC
12182 @ 101757:               PUSH   C
12183 @ 101760:               SELECT 30
12184 @ 101763:               SELECT 4
12185 @ 101766:               PUSH   I
12186 @ 101769:               ACCESS
12187 @ 101770:               ASSREF

  2441    %repeat
12188 @ 101771:               LINE   2441 "regression-compile-tmp/imp22g-77.imp"
12189 @ 101811:               REPEAT L_0003
12190 @ 101814:               LOCATE L_0004

  2442    c_reg_ccy = undef;  c_reg_line = -9
12191 @ 101817:               LINE   2442 "regression-compile-tmp/imp22g-77.imp"
12192 @ 101857:               PUSH   C
12193 @ 101860:               SELECT 30
12194 @ 101863:               SELECT 2
12195 @ 101866:               PUSHI  #0x00000010
12196 @ 101871:               ASSVAL
12197 @ 101872:               LINE   2442 "regression-compile-tmp/imp22g-77.imp"
12198 @ 101912:               PUSH   C
12199 @ 101915:               SELECT 30
12200 @ 101918:               SELECT 3
12201 @ 101921:               PUSHI  #0x00000009
12202 @ 101926:               NEGATE
12203 @ 101927:               ASSVAL

  2443  %end
12204 @ 101928:               LINE   2443 "regression-compile-tmp/imp22g-77.imp"
12205 @ 101968:            END    _lev0id0_FORGETREGS {lev=2 --> 1}

  2444  %routine FORGET TRIPLES
12206 @ 101969:            LINE   2444 "regression-compile-tmp/imp22g-77.imp"
12207 @ 102009:            DEF    FORGETTRIPLES (_lev0id0_FORGETTRIPLES) p1=V_013c a/tf=7 b/format=0 c/ostate=0  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
12208 @ 102034:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
12209 @ 102035:               FINISH ) {lev=2}

  2445    litpos = litmin;  explo = explim;  oldexplo = explim
12210 @ 102036:               LINE   2445 "regression-compile-tmp/imp22g-77.imp"
12211 @ 102076:               PUSH   LITPOS
12212 @ 102079:               PUSHI  #0xfffff739
12213 @ 102084:               ASSVAL
12214 @ 102085:               LINE   2445 "regression-compile-tmp/imp22g-77.imp"
12215 @ 102125:               PUSH   EXPLO
12216 @ 102128:               PUSH   EXPLIM
12217 @ 102131:               ASSVAL
12218 @ 102132:               LINE   2445 "regression-compile-tmp/imp22g-77.imp"
12219 @ 102172:               PUSH   OLDEXPLO
12220 @ 102175:               PUSH   EXPLIM
12221 @ 102178:               ASSVAL

  2446  %end
12222 @ 102179:               LINE   2446 "regression-compile-tmp/imp22g-77.imp"
12223 @ 102219:            END    _lev0id0_FORGETTRIPLES {lev=2 --> 1}

  2447  %routine FORGET ALL
12224 @ 102220:            LINE   2447 "regression-compile-tmp/imp22g-77.imp"
12225 @ 102260:            DEF    FORGETALL (_lev0id0_FORGETALL) p1=V_013d 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
12226 @ 102281:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
12227 @ 102282:               FINISH ) {lev=2}

  2448  %integer i,j
12228 @ 102283:               LINE   2448 "regression-compile-tmp/imp22g-77.imp"
12229 @ 102323:               DEF    I p1=V_013e a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
12230 @ 102336:               DEF    J p1=V_013f a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  2449  %record(contentinfo)%name lr
12231 @ 102349:               LINE   2449 "regression-compile-tmp/imp22g-77.imp"
12232 @ 102389:               DEF    LR p1=V_0140 a/tf=42 b/format=d0 c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  2450    forget regs
12233 @ 102403:               LINE   2450 "regression-compile-tmp/imp22g-77.imp"
12234 @ 102443:               PUSH   FORGETREGS
12235 @ 102446:               CALL  

  2451    j = dictlim
12236 @ 102447:               LINE   2451 "regression-compile-tmp/imp22g-77.imp"
12237 @ 102487:               PUSH   J
12238 @ 102490:               PUSH   DICTLIM
12239 @ 102493:               ASSVAL

  2452    %cycle
12240 @ 102494:               LINE   2452 "regression-compile-tmp/imp22g-77.imp"
12241 @ 102534:               LOCATE L_0003

  2453      j = j+1
12242 @ 102537:               LINE   2453 "regression-compile-tmp/imp22g-77.imp"
12243 @ 102577:               PUSH   J
12244 @ 102580:               PUSH   J
12245 @ 102583:               PUSHI  #0x00000001
12246 @ 102588:               ADD   
12247 @ 102589:               ASSVAL

  2454      %exit %if j >= curlab
12248 @ 102590:               LINE   2454 "regression-compile-tmp/imp22g-77.imp"
12249 @ 102630:               PUSH   J
12250 @ 102633:               PUSH   CURLAB
12251 @ 102636:               JUMPIF < L_0007
12252 @ 102640:               GOTO   L_0004
12253 @ 102643:               LOCATE L_0007

  2455      lr == lreg(j-dictlim)
12254 @ 102646:               LINE   2455 "regression-compile-tmp/imp22g-77.imp"
12255 @ 102686:               PUSH   LR
12256 @ 102689:               PUSH   LREG
12257 @ 102692:               PUSH   J
12258 @ 102695:               PUSH   DICTLIM
12259 @ 102698:               SUB   
12260 @ 102699:               ACCESS
12261 @ 102700:               ASSREF

  2456      lr_content(i) = undef %for i = d0,1,maxareg
12262 @ 102701:               LINE   2456 "regression-compile-tmp/imp22g-77.imp"
12263 @ 102741:               PUSH   I
12264 @ 102744:               PUSHI  #0x00000001
12265 @ 102749:               PUSHI  #0x0000000c
12266 @ 102754:               PUSHI  #0x00000001
12267 @ 102759:               FOR    L_0006
12268 @ 102762:               PUSH   LR
12269 @ 102765:               SELECT 4
12270 @ 102768:               PUSH   I
12271 @ 102771:               ACCESS
12272 @ 102772:               PUSHI  #0x00000010
12273 @ 102777:               ASSVAL
12274 @ 102778:               REPEAT L_0006
12275 @ 102781:               LOCATE L_0007

  2457      lr_ccx = undef
12276 @ 102784:               LINE   2457 "regression-compile-tmp/imp22g-77.imp"
12277 @ 102824:               PUSH   LR
12278 @ 102827:               SELECT 1
12279 @ 102830:               PUSHI  #0x00000010
12280 @ 102835:               ASSVAL

  2458    %repeat
12281 @ 102836:               LINE   2458 "regression-compile-tmp/imp22g-77.imp"
12282 @ 102876:               REPEAT L_0003
12283 @ 102879:               LOCATE L_0004

  2459    forget triples
12284 @ 102882:               LINE   2459 "regression-compile-tmp/imp22g-77.imp"
12285 @ 102922:               PUSH   FORGETTRIPLES
12286 @ 102925:               CALL  

  2460  %end
  2461  
12287 @ 102926:               LINE   2460 "regression-compile-tmp/imp22g-77.imp"
12288 @ 102966:            END    _lev0id0_FORGETALL {lev=2 --> 1}

  2462  %routine DEFINE JUMPS(%integer chain)
12289 @ 102967:            LINE   2462 "regression-compile-tmp/imp22g-77.imp"
12290 @ 103007:            DEF    DEFINEJUMPS (_lev0id0_DEFINEJUMPS) p1=V_013e 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
12291 @ 103030:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
12292 @ 103031:                  DEF    CHAIN p1=V_013f a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
12293 @ 103048:               FINISH ) {lev=2}

  2463  %integer i,j,k
12294 @ 103049:               LINE   2463 "regression-compile-tmp/imp22g-77.imp"
12295 @ 103089:               DEF    I p1=V_0140 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
12296 @ 103102:               DEF    J p1=V_0141 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
12297 @ 103115:               DEF    K p1=V_0142 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  2464    chain = -chain
12298 @ 103128:               LINE   2464 "regression-compile-tmp/imp22g-77.imp"
12299 @ 103168:               PUSH   CHAIN
12300 @ 103171:               PUSH   CHAIN
12301 @ 103174:               NEGATE
12302 @ 103175:               ASSVAL

  2465    %return %if chain <= 0;  !no jumps to this label
12303 @ 103176:               LINE   2465 "regression-compile-tmp/imp22g-77.imp"
12304 @ 103216:               PUSH   CHAIN
12305 @ 103219:               PUSHI  #0x00000000
12306 @ 103224:               JUMPIF > L_0004
12307 @ 103228:               RETURN
12308 @ 103229:               LOCATE L_0004

  2466    c_forward = c_forward-1;  c_access = 1
12309 @ 103232:               LINE   2466 "regression-compile-tmp/imp22g-77.imp"
12310 @ 103272:               PUSH   C
12311 @ 103275:               SELECT 17
12312 @ 103278:               PUSH   C
12313 @ 103281:               SELECT 17
12314 @ 103284:               PUSHI  #0x00000001
12315 @ 103289:               SUB   
12316 @ 103290:               ASSVAL
12317 @ 103291:               LINE   2466 "regression-compile-tmp/imp22g-77.imp"
12318 @ 103331:               PUSH   C
12319 @ 103334:               SELECT 16
12320 @ 103337:               PUSHI  #0x00000001
12321 @ 103342:               ASSVAL

  2467    %cycle
12322 @ 103343:               LINE   2467 "regression-compile-tmp/imp22g-77.imp"
12323 @ 103383:               LOCATE L_0003

  2468      i = prog(chain)
12324 @ 103386:               LINE   2468 "regression-compile-tmp/imp22g-77.imp"
12325 @ 103426:               PUSH   I
12326 @ 103429:               PUSH   PROG
12327 @ 103432:               PUSH   CHAIN
12328 @ 103435:               ACCESS
12329 @ 103436:               ASSVAL

  2469      %if pflag(chain) = jump %start;  !shortenable
12330 @ 103437:               LINE   2469 "regression-compile-tmp/imp22g-77.imp"
12331 @ 103477:               PUSH   PFLAG
12332 @ 103480:               PUSH   CHAIN
12333 @ 103483:               ACCESS
12334 @ 103484:               PUSHI  #0x00000002
12335 @ 103489:               JUMPIF # L_0007

  2470        j = chain-pflag(chain-1);  !adjusted jump position
12336 @ 103493:               LINE   2470 "regression-compile-tmp/imp22g-77.imp"
12337 @ 103533:               PUSH   J
12338 @ 103536:               PUSH   CHAIN
12339 @ 103539:               PUSH   PFLAG
12340 @ 103542:               PUSH   CHAIN
12341 @ 103545:               PUSHI  #0x00000001
12342 @ 103550:               SUB   
12343 @ 103551:               ACCESS
12344 @ 103552:               SUB   
12345 @ 103553:               ASSVAL

  2471        k = (pc-c_shorts-j)<<1;  !displacement
12346 @ 103554:               LINE   2471 "regression-compile-tmp/imp22g-77.imp"
12347 @ 103594:               PUSH   K
12348 @ 103597:               PUSH   PC
12349 @ 103600:               PUSH   C
12350 @ 103603:               SELECT 23
12351 @ 103606:               SUB   
12352 @ 103607:               PUSH   J
12353 @ 103610:               SUB   
12354 @ 103611:               PUSHI  #0x00000001
12355 @ 103616:               LSH   
12356 @ 103617:               ASSVAL

  2472        %if k > 2 %and k <= 127 %start
12357 @ 103618:               LINE   2472 "regression-compile-tmp/imp22g-77.imp"
12358 @ 103658:               PUSH   K
12359 @ 103661:               PUSHI  #0x00000002
12360 @ 103666:               JUMPIF <= L_000a
12361 @ 103670:               PUSH   K
12362 @ 103673:               PUSHI  #0x0000007f
12363 @ 103678:               JUMPIF > L_000a

  2473          %if c_shorts = 255 %start
12364 @ 103682:               LINE   2473 "regression-compile-tmp/imp22g-77.imp"
12365 @ 103722:               PUSH   C
12366 @ 103725:               SELECT 23
12367 @ 103728:               PUSHI  #0x000000ff
12368 @ 103733:               JUMPIF # L_000d

  2474            zaps = zaps+100
12369 @ 103737:               LINE   2474 "regression-compile-tmp/imp22g-77.imp"
12370 @ 103777:               PUSH   ZAPS
12371 @ 103780:               PUSH   ZAPS
12372 @ 103783:               PUSHI  #0x00000064
12373 @ 103788:               ADD   
12374 @ 103789:               ASSVAL

  2475          %else
12375 @ 103790:               LINE   2475 "regression-compile-tmp/imp22g-77.imp"
12376 @ 103830:               GOTO   L_000c
12377 @ 103833:               LOCATE L_000d

  2476            c_shorts = c_shorts+1;  shorts = shorts+1
12378 @ 103836:               LINE   2476 "regression-compile-tmp/imp22g-77.imp"
12379 @ 103876:               PUSH   C
12380 @ 103879:               SELECT 23
12381 @ 103882:               PUSH   C
12382 @ 103885:               SELECT 23
12383 @ 103888:               PUSHI  #0x00000001
12384 @ 103893:               ADD   
12385 @ 103894:               ASSVAL
12386 @ 103895:               LINE   2476 "regression-compile-tmp/imp22g-77.imp"
12387 @ 103935:               PUSH   SHORTS
12388 @ 103938:               PUSH   SHORTS
12389 @ 103941:               PUSHI  #0x00000001
12390 @ 103946:               ADD   
12391 @ 103947:               ASSVAL

  2477            pflag(chain) = shortjump
12392 @ 103948:               LINE   2477 "regression-compile-tmp/imp22g-77.imp"
12393 @ 103988:               PUSH   PFLAG
12394 @ 103991:               PUSH   CHAIN
12395 @ 103994:               ACCESS
12396 @ 103995:               PUSHI  #0x00000001
12397 @ 104000:               ASSVAL

  2478            j = chain
12398 @ 104001:               LINE   2478 "regression-compile-tmp/imp22g-77.imp"
12399 @ 104041:               PUSH   J
12400 @ 104044:               PUSH   CHAIN
12401 @ 104047:               ASSVAL

  2479            %cycle
12402 @ 104048:               LINE   2479 "regression-compile-tmp/imp22g-77.imp"
12403 @ 104088:               LOCATE L_000f

  2480              pflag(j) = pflag(j)+1 %if pflag(j) >= zeroshorts
12404 @ 104091:               LINE   2480 "regression-compile-tmp/imp22g-77.imp"
12405 @ 104131:               PUSH   PFLAG
12406 @ 104134:               PUSH   J
12407 @ 104137:               ACCESS
12408 @ 104138:               PUSHI  #0x00000008
12409 @ 104143:               JUMPIF < L_0013
12410 @ 104147:               PUSH   PFLAG
12411 @ 104150:               PUSH   J
12412 @ 104153:               ACCESS
12413 @ 104154:               PUSH   PFLAG
12414 @ 104157:               PUSH   J
12415 @ 104160:               ACCESS
12416 @ 104161:               PUSHI  #0x00000001
12417 @ 104166:               ADD   
12418 @ 104167:               ASSVAL
12419 @ 104168:               LOCATE L_0013

  2481              j = j+1
12420 @ 104171:               LINE   2481 "regression-compile-tmp/imp22g-77.imp"
12421 @ 104211:               PUSH   J
12422 @ 104214:               PUSH   J
12423 @ 104217:               PUSHI  #0x00000001
12424 @ 104222:               ADD   
12425 @ 104223:               ASSVAL

  2482            %repeat %until j = pc
12426 @ 104224:               LINE   2482 "regression-compile-tmp/imp22g-77.imp"
12427 @ 104264:               PUSH   J
12428 @ 104267:               PUSH   PC
12429 @ 104270:               JUMPIF = L_0010
12430 @ 104274:               REPEAT L_000f
12431 @ 104277:               LOCATE L_0010

  2483          %finish
12432 @ 104280:               LINE   2483 "regression-compile-tmp/imp22g-77.imp"
12433 @ 104320:               LOCATE L_000c

  2484        %finish
12434 @ 104323:               LINE   2484 "regression-compile-tmp/imp22g-77.imp"
12435 @ 104363:               LOCATE L_000a

  2485      %finish
12436 @ 104366:               LINE   2485 "regression-compile-tmp/imp22g-77.imp"
12437 @ 104406:               LOCATE L_0007

  2486      prog(chain) = pc
12438 @ 104409:               LINE   2486 "regression-compile-tmp/imp22g-77.imp"
12439 @ 104449:               PUSH   PROG
12440 @ 104452:               PUSH   CHAIN
12441 @ 104455:               ACCESS
12442 @ 104456:               PUSH   PC
12443 @ 104459:               ASSVAL

  2487      chain = i
12444 @ 104460:               LINE   2487 "regression-compile-tmp/imp22g-77.imp"
12445 @ 104500:               PUSH   CHAIN
12446 @ 104503:               PUSH   I
12447 @ 104506:               ASSVAL

  2488    %repeat %until chain <= 0
12448 @ 104507:               LINE   2488 "regression-compile-tmp/imp22g-77.imp"
12449 @ 104547:               PUSH   CHAIN
12450 @ 104550:               PUSHI  #0x00000000
12451 @ 104555:               JUMPIF <= L_0004
12452 @ 104559:               REPEAT L_0003
12453 @ 104562:               LOCATE L_0004

  2489  %end
  2490  
12454 @ 104565:               LINE   2489 "regression-compile-tmp/imp22g-77.imp"
12455 @ 104605:            END    _lev0id0_DEFINEJUMPS {lev=2 --> 1}

  2491  %routine SAVE CONTEXT(%integer l)
  2492  !Store register content associated with label L
  2493  ! (prior to generating forward branch)
12456 @ 104606:            LINE   2491 "regression-compile-tmp/imp22g-77.imp"
12457 @ 104646:            DEF    SAVECONTEXT (_lev0id0_SAVECONTEXT) p1=V_013f 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
12458 @ 104669:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
12459 @ 104670:                  DEF    L p1=V_0140 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
12460 @ 104683:               FINISH ) {lev=2}

  2494  %integer r
12461 @ 104684:               LINE   2494 "regression-compile-tmp/imp22g-77.imp"
12462 @ 104724:               DEF    R p1=V_0141 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  2495  %record(contentinfo)%name lr
12463 @ 104737:               LINE   2495 "regression-compile-tmp/imp22g-77.imp"
12464 @ 104777:               DEF    LR p1=V_0142 a/tf=42 b/format=d0 c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  2496    %return %if l-dictlim < 0    {user label}
12465 @ 104791:               LINE   2496 "regression-compile-tmp/imp22g-77.imp"
12466 @ 104831:               PUSH   L
12467 @ 104834:               PUSH   DICTLIM
12468 @ 104837:               SUB   
12469 @ 104838:               PUSHI  #0x00000000
12470 @ 104843:               JUMPIF >= L_0004
12471 @ 104847:               RETURN
12472 @ 104848:               LOCATE L_0004

  2497    lr == lreg(l-dictlim)
12473 @ 104851:               LINE   2497 "regression-compile-tmp/imp22g-77.imp"
12474 @ 104891:               PUSH   LR
12475 @ 104894:               PUSH   LREG
12476 @ 104897:               PUSH   L
12477 @ 104900:               PUSH   DICTLIM
12478 @ 104903:               SUB   
12479 @ 104904:               ACCESS
12480 @ 104905:               ASSREF

  2498    %if dict(l)_val >= 0 %start;  !first jump to this label
12481 @ 104906:               LINE   2498 "regression-compile-tmp/imp22g-77.imp"
12482 @ 104946:               PUSH   DICT
12483 @ 104949:               PUSH   L
12484 @ 104952:               ACCESS
12485 @ 104953:               SELECT 9
12486 @ 104956:               PUSHI  #0x00000000
12487 @ 104961:               JUMPIF < L_0004

  2499      dict(l)_val = 0
12488 @ 104965:               LINE   2499 "regression-compile-tmp/imp22g-77.imp"
12489 @ 105005:               PUSH   DICT
12490 @ 105008:               PUSH   L
12491 @ 105011:               ACCESS
12492 @ 105012:               SELECT 9
12493 @ 105015:               PUSHI  #0x00000000
12494 @ 105020:               ASSVAL

  2500      lr = c_reg
12495 @ 105021:               LINE   2500 "regression-compile-tmp/imp22g-77.imp"
12496 @ 105061:               PUSH   LR
12497 @ 105064:               PUSH   C
12498 @ 105067:               SELECT 30
12499 @ 105070:               ASSVAL

  2501      c_forward = c_forward+1
12500 @ 105071:               LINE   2501 "regression-compile-tmp/imp22g-77.imp"
12501 @ 105111:               PUSH   C
12502 @ 105114:               SELECT 17
12503 @ 105117:               PUSH   C
12504 @ 105120:               SELECT 17
12505 @ 105123:               PUSHI  #0x00000001
12506 @ 105128:               ADD   
12507 @ 105129:               ASSVAL

  2502    %else
12508 @ 105130:               LINE   2502 "regression-compile-tmp/imp22g-77.imp"
12509 @ 105170:               GOTO   L_0003
12510 @ 105173:               LOCATE L_0004

  2503      %for r = d0,1,maxareg %cycle
12511 @ 105176:               LINE   2503 "regression-compile-tmp/imp22g-77.imp"
12512 @ 105216:               PUSH   R
12513 @ 105219:               PUSHI  #0x00000001
12514 @ 105224:               PUSHI  #0x0000000c
12515 @ 105229:               PUSHI  #0x00000001
12516 @ 105234:               FOR    L_0006

  2504        lr_content(r) = undef %if lr_content(r) # c_reg_content(r)
12517 @ 105237:               LINE   2504 "regression-compile-tmp/imp22g-77.imp"
12518 @ 105277:               PUSH   LR
12519 @ 105280:               SELECT 4
12520 @ 105283:               PUSH   R
12521 @ 105286:               ACCESS
12522 @ 105287:               PUSH   C
12523 @ 105290:               SELECT 30
12524 @ 105293:               SELECT 4
12525 @ 105296:               PUSH   R
12526 @ 105299:               ACCESS
12527 @ 105300:               JUMPIF = L_000a
12528 @ 105304:               PUSH   LR
12529 @ 105307:               SELECT 4
12530 @ 105310:               PUSH   R
12531 @ 105313:               ACCESS
12532 @ 105314:               PUSHI  #0x00000010
12533 @ 105319:               ASSVAL
12534 @ 105320:               LOCATE L_000a

  2505      %repeat
12535 @ 105323:               LINE   2505 "regression-compile-tmp/imp22g-77.imp"
12536 @ 105363:               REPEAT L_0006
12537 @ 105366:               LOCATE L_0007

  2506      lr_ccy = undef %if lr_ccx # c_reg_ccx %or lr_ccy # c_reg_ccy
12538 @ 105369:               LINE   2506 "regression-compile-tmp/imp22g-77.imp"
12539 @ 105409:               PUSH   LR
12540 @ 105412:               SELECT 1
12541 @ 105415:               PUSH   C
12542 @ 105418:               SELECT 30
12543 @ 105421:               SELECT 1
12544 @ 105424:               JUMPIF # L_0008
12545 @ 105428:               PUSH   LR
12546 @ 105431:               SELECT 2
12547 @ 105434:               PUSH   C
12548 @ 105437:               SELECT 30
12549 @ 105440:               SELECT 2
12550 @ 105443:               JUMPIF = L_0007
12551 @ 105447:               LOCATE L_0008
12552 @ 105450:               PUSH   LR
12553 @ 105453:               SELECT 2
12554 @ 105456:               PUSHI  #0x00000010
12555 @ 105461:               ASSVAL
12556 @ 105462:               LOCATE L_0007

  2507      lr_line = -9 %if lr_line # c_reg_line
12557 @ 105465:               LINE   2507 "regression-compile-tmp/imp22g-77.imp"
12558 @ 105505:               PUSH   LR
12559 @ 105508:               SELECT 3
12560 @ 105511:               PUSH   C
12561 @ 105514:               SELECT 30
12562 @ 105517:               SELECT 3
12563 @ 105520:               JUMPIF = L_0007
12564 @ 105524:               PUSH   LR
12565 @ 105527:               SELECT 3
12566 @ 105530:               PUSHI  #0x00000009
12567 @ 105535:               NEGATE
12568 @ 105536:               ASSVAL
12569 @ 105537:               LOCATE L_0007

  2508    %finish
12570 @ 105540:               LINE   2508 "regression-compile-tmp/imp22g-77.imp"
12571 @ 105580:               LOCATE L_0003

  2509  %end
  2510  
12572 @ 105583:               LINE   2509 "regression-compile-tmp/imp22g-77.imp"
12573 @ 105623:            END    _lev0id0_SAVECONTEXT {lev=2 --> 1}

  2511  %routine SRCALL(%integer x)
12574 @ 105624:            LINE   2511 "regression-compile-tmp/imp22g-77.imp"
12575 @ 105664:            DEF    SRCALL (_lev0id0_SRCALL) p1=V_0140 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
12576 @ 105682:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
12577 @ 105683:                  DEF    X p1=V_0141 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
12578 @ 105696:               FINISH ) {lev=2}

  2512  %routine PUT PRIM(%record(identinfo)%name DX)
  2513  !<<IMP
  2514  !* PRIMGEN marker 3
12579 @ 105697:               LINE   2512 "regression-compile-tmp/imp22g-77.imp"
12580 @ 105737:               DEF    PUTPRIM (_lev0id0_SRCALL_PUTPRIM) p1=V_0142 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
12581 @ 105756:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
12582 @ 105757:                     DEF    DX p1=V_0143 a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
12583 @ 105771:                  FINISH ) {lev=3}

  2515  %own%short%array PRIMCODE(1:396) = 
  2516  16_1541,16_7272,16_6179,16_2062,16_6F75,16_6E64,16_7320,16_6578,
  2517  16_6365,16_6564,16_6564,16_B098,16_6E06,16_9098,16_6C10,16_D0A0,
  2518  16_41FA,16_FFDE,16_2400,16_7202,16_7076,16_4EF8,16_3EFA,16_4A58,
  2519  16_660C,16_4840,16_4A40,16_6610,16_4840,16_C0D8,16_4E75,
  2520  16_2F01,16_2200,16_C2E8,16_FFFE,16_6008,16_2F01,16_2200,16_4840,
  2521  16_C2D0,16_4841,16_C0D8,16_D081,16_221F,16_4E75,
  2522  16_1355,16_6E61,16_7373,16_6967,16_6E65,16_6420,16_7661,16_7269,
  2523  16_6162,16_6C65,16_660C,16_41FA,16_FFE8,16_7201,16_7058,16_4EF8,
  2524  16_3EFA,16_4E75,
  2525  16_0F49,16_6E76,16_616C,16_6964,16_2061,16_6464,16_7265,16_7373,
  2526  16_6E0C,16_41FA,16_FFEC,16_7201,16_7058,16_4EF8,16_3EFA,16_4E75,
  2527  16_1553,16_7461,16_636B,16_2073,16_7061,16_6365,16_2065,16_7868,
  2528  16_6175,16_7374,16_6564,16_D88F,16_B886,16_6C0E,16_4284,16_41FA,
  2529  16_FFE0,16_7203,16_7055,16_4EF8,16_3EFA,16_4284,16_4E75,
  2530  16_1741,16_7272,16_6179,16_2062,16_6F75,16_6E64,16_7320,16_696E,
  2531  16_7369,16_6465,16_206F,16_7574,16_9282,16_6F0C,16_41FA,16_FFE2,
  2532  16_7203,16_7055,16_4EF8,16_3EFA,16_4481,16_5281,16_4EF8,16_3EF4,
  2533  16_4E75,
  2534  16_0E53,16_7472,16_696E,16_6720,16_746F,16_6F20,16_6269,16_6780,
  2535  16_1811,16_9004,16_6504,16_9010,16_640C,16_41FA,16_FFE4,16_7203,
  2536  16_7051,16_4EF8,16_3EFA,16_1018,16_670C,16_D111,16_1398,16_4801,
  2537  16_5204,16_5300,16_66F6,16_2049,16_4E75,
  2538  16_3F00,16_7001,16_1E80,16_204F,16_548F,16_4E75,
  2539  16_124E,16_6F20,16_7370,16_6163,16_6520,16_666F,16_7220,16_6172,
  2540  16_7261,16_7980,16_5680,16_E480,16_E588,16_6D08,16_204F,16_91C0,
  2541  16_B1C6,16_6C0E,16_2400,16_41FA,16_FFD8,16_7201,16_7072,16_4EF8,
  2542  16_3EFA,16_205F,16_E488,16_6004,16_4840,16_2F07,16_51C8,16_FFFC,
  2543  16_4840,16_51C8,16_FFF4,16_4ED0,16_4E75,
  2544  16_1149,16_6E76,16_616C,16_6964,16_2025,16_666F,16_7220,16_6C6F,
  2545  16_6F70,16_2F00,16_9082,16_6720,16_2F01,16_6708,16_4EB8,16_3EEE,
  2546  16_4A80,16_6D0E,16_508F,16_41FA,16_FFD8,16_7201,16_7055,16_4EF8,
  2547  16_3EFA,16_4A81,16_66EE,16_221F,16_201F,16_4E75,
  2548  16_0C4F,16_7574,16_206F,16_6620,16_7261,16_6E67,16_6580,16_41FA,
  2549  16_FFF0,16_7201,16_7056,16_4EF8,16_3EFA,16_4E75,
  2550  16_1355,16_6E61,16_7373,16_6967,16_6E65,16_6420,16_7661,16_7269,
  2551  16_6162,16_6C65,16_B0FC,16_0000,16_6F1A,16_B2FC,16_0000,16_6F14,
  2552  16_BE10,16_6606,16_BE28,16_0001,16_670A,16_BE11,16_6612,16_BE29,
  2553  16_0001,16_660C,16_41FA,16_FFCA,16_7202,16_7054,16_4EF8,16_3EFA,
  2554  16_48E7,16_C0C0,16_4240,16_1018,16_6730,16_4241,16_1219,16_6722,
  2555  16_5380,16_5381,16_B041,16_6E12,16_9240,16_B109,16_56C8,16_FFFC,
  2556  16_6602,16_4441,16_4CDF,16_0303,16_4E75,
  2557  16_B109,16_56C9,16_FFFC,16_66F2,16_7201,16_4CDF,16_0303,16_4E75,
  2558  16_1011,16_4440,16_4CDF,16_0303,16_4E75,
  2559  16_0E53,16_7472,16_696E,16_6720,16_746F,16_6F20,16_6269,16_6780,
  2560  16_B010,16_640C,16_41FA,16_FFEA,16_7203,16_7051,16_4EF8,16_3EFA,
  2561  16_4280,16_1010,16_12D8,16_51C8,16_FFFC,16_4E75,
  2562  16_0E53,16_7472,16_696E,16_6720,16_746F,16_6F20,16_6269,16_6780,
  2563  16_B010,16_640C,16_41FA,16_FFEA,16_7201,16_7056,16_4EF8,16_3EFA,
  2564  16_0240,16_00FE,16_245F,16_9EC0,16_558F,16_224F,16_BFC8,16_6E0E,
  2565  16_1010,16_12D8,16_51C8,16_FFFC,16_204F,16_224F,16_4ED2,16_1018,
  2566  16_5289,16_D0C0,16_D2C0,16_1320,16_51C8,16_FFFC,16_204F,16_224F,
  2567  16_4ED2,16_4E75,
  2568  16_43EF,16_FF00,16_2448,16_D5C0,16_2049,16_9280,16_6C04,16_4211,
  2569  16_4E75,
  2570  16_1281,16_5219,16_12DA,16_51C9,16_FFFC,16_4E75,
  2571  16_700A,16_4EF8,16_3E70,16_4E75,
  2572  16_7020,16_4EF8,16_3E70,16_4E75
  2573  
  2574  !<<BOTH
12584 @ 105772:                  LINE   2515 "regression-compile-tmp/imp22g-77.imp"
12585 @ 105812:                  PUSHI  #0x00000001
12586 @ 105817:                  PUSHI  #0x0000018c
12587 @ 105822:                  BOUNDS
12588 @ 105823:                  DEF    PRIMCODE p1=V_0144 a/tf=1b b/format=3 c/ostate=121  type=1 (integer) form=11 (array) special=2 (short-integer) linkage=1 (own) spec=0 indirect=0 unass=1
12589 @ 105843:                  PUSHI  #0x00001541
12590 @ 105848:                  INIT   1
12591 @ 105851:                  PUSHI  #0x00007272
12592 @ 105856:                  INIT   1
12593 @ 105859:                  PUSHI  #0x00006179
12594 @ 105864:                  INIT   1
12595 @ 105867:                  PUSHI  #0x00002062
12596 @ 105872:                  INIT   1
12597 @ 105875:                  PUSHI  #0x00006f75
12598 @ 105880:                  INIT   1
12599 @ 105883:                  PUSHI  #0x00006e64
12600 @ 105888:                  INIT   1
12601 @ 105891:                  PUSHI  #0x00007320
12602 @ 105896:                  INIT   1
12603 @ 105899:                  PUSHI  #0x00006578
12604 @ 105904:                  INIT   1
12605 @ 105907:                  PUSHI  #0x00006365
12606 @ 105912:                  INIT   1
12607 @ 105915:                  PUSHI  #0x00006564
12608 @ 105920:                  INIT   1
12609 @ 105923:                  PUSHI  #0x00006564
12610 @ 105928:                  INIT   1
12611 @ 105931:                  PUSHI  #0x0000b098
12612 @ 105936:                  INIT   1
12613 @ 105939:                  PUSHI  #0x00006e06
12614 @ 105944:                  INIT   1
12615 @ 105947:                  PUSHI  #0x00009098
12616 @ 105952:                  INIT   1
12617 @ 105955:                  PUSHI  #0x00006c10
12618 @ 105960:                  INIT   1
12619 @ 105963:                  PUSHI  #0x0000d0a0
12620 @ 105968:                  INIT   1
12621 @ 105971:                  PUSHI  #0x000041fa
12622 @ 105976:                  INIT   1
12623 @ 105979:                  PUSHI  #0x0000ffde
12624 @ 105984:                  INIT   1
12625 @ 105987:                  PUSHI  #0x00002400
12626 @ 105992:                  INIT   1
12627 @ 105995:                  PUSHI  #0x00007202
12628 @ 106000:                  INIT   1
12629 @ 106003:                  PUSHI  #0x00007076
12630 @ 106008:                  INIT   1
12631 @ 106011:                  PUSHI  #0x00004ef8
12632 @ 106016:                  INIT   1
12633 @ 106019:                  PUSHI  #0x00003efa
12634 @ 106024:                  INIT   1
12635 @ 106027:                  PUSHI  #0x00004a58
12636 @ 106032:                  INIT   1
12637 @ 106035:                  PUSHI  #0x0000660c
12638 @ 106040:                  INIT   1
12639 @ 106043:                  PUSHI  #0x00004840
12640 @ 106048:                  INIT   1
12641 @ 106051:                  PUSHI  #0x00004a40
12642 @ 106056:                  INIT   1
12643 @ 106059:                  PUSHI  #0x00006610
12644 @ 106064:                  INIT   1
12645 @ 106067:                  PUSHI  #0x00004840
12646 @ 106072:                  INIT   1
12647 @ 106075:                  PUSHI  #0x0000c0d8
12648 @ 106080:                  INIT   1
12649 @ 106083:                  PUSHI  #0x00004e75
12650 @ 106088:                  INIT   1
12651 @ 106091:                  PUSHI  #0x00002f01
12652 @ 106096:                  INIT   1
12653 @ 106099:                  PUSHI  #0x00002200
12654 @ 106104:                  INIT   1
12655 @ 106107:                  PUSHI  #0x0000c2e8
12656 @ 106112:                  INIT   1
12657 @ 106115:                  PUSHI  #0x0000fffe
12658 @ 106120:                  INIT   1
12659 @ 106123:                  PUSHI  #0x00006008
12660 @ 106128:                  INIT   1
12661 @ 106131:                  PUSHI  #0x00002f01
12662 @ 106136:                  INIT   1
12663 @ 106139:                  PUSHI  #0x00002200
12664 @ 106144:                  INIT   1
12665 @ 106147:                  PUSHI  #0x00004840
12666 @ 106152:                  INIT   1
12667 @ 106155:                  PUSHI  #0x0000c2d0
12668 @ 106160:                  INIT   1
12669 @ 106163:                  PUSHI  #0x00004841
12670 @ 106168:                  INIT   1
12671 @ 106171:                  PUSHI  #0x0000c0d8
12672 @ 106176:                  INIT   1
12673 @ 106179:                  PUSHI  #0x0000d081
12674 @ 106184:                  INIT   1
12675 @ 106187:                  PUSHI  #0x0000221f
12676 @ 106192:                  INIT   1
12677 @ 106195:                  PUSHI  #0x00004e75
12678 @ 106200:                  INIT   1
12679 @ 106203:                  PUSHI  #0x00001355
12680 @ 106208:                  INIT   1
12681 @ 106211:                  PUSHI  #0x00006e61
12682 @ 106216:                  INIT   1
12683 @ 106219:                  PUSHI  #0x00007373
12684 @ 106224:                  INIT   1
12685 @ 106227:                  PUSHI  #0x00006967
12686 @ 106232:                  INIT   1
12687 @ 106235:                  PUSHI  #0x00006e65
12688 @ 106240:                  INIT   1
12689 @ 106243:                  PUSHI  #0x00006420
12690 @ 106248:                  INIT   1
12691 @ 106251:                  PUSHI  #0x00007661
12692 @ 106256:                  INIT   1
12693 @ 106259:                  PUSHI  #0x00007269
12694 @ 106264:                  INIT   1
12695 @ 106267:                  PUSHI  #0x00006162
12696 @ 106272:                  INIT   1
12697 @ 106275:                  PUSHI  #0x00006c65
12698 @ 106280:                  INIT   1
12699 @ 106283:                  PUSHI  #0x0000660c
12700 @ 106288:                  INIT   1
12701 @ 106291:                  PUSHI  #0x000041fa
12702 @ 106296:                  INIT   1
12703 @ 106299:                  PUSHI  #0x0000ffe8
12704 @ 106304:                  INIT   1
12705 @ 106307:                  PUSHI  #0x00007201
12706 @ 106312:                  INIT   1
12707 @ 106315:                  PUSHI  #0x00007058
12708 @ 106320:                  INIT   1
12709 @ 106323:                  PUSHI  #0x00004ef8
12710 @ 106328:                  INIT   1
12711 @ 106331:                  PUSHI  #0x00003efa
12712 @ 106336:                  INIT   1
12713 @ 106339:                  PUSHI  #0x00004e75
12714 @ 106344:                  INIT   1
12715 @ 106347:                  PUSHI  #0x00000f49
12716 @ 106352:                  INIT   1
12717 @ 106355:                  PUSHI  #0x00006e76
12718 @ 106360:                  INIT   1
12719 @ 106363:                  PUSHI  #0x0000616c
12720 @ 106368:                  INIT   1
12721 @ 106371:                  PUSHI  #0x00006964
12722 @ 106376:                  INIT   1
12723 @ 106379:                  PUSHI  #0x00002061
12724 @ 106384:                  INIT   1
12725 @ 106387:                  PUSHI  #0x00006464
12726 @ 106392:                  INIT   1
12727 @ 106395:                  PUSHI  #0x00007265
12728 @ 106400:                  INIT   1
12729 @ 106403:                  PUSHI  #0x00007373
12730 @ 106408:                  INIT   1
12731 @ 106411:                  PUSHI  #0x00006e0c
12732 @ 106416:                  INIT   1
12733 @ 106419:                  PUSHI  #0x000041fa
12734 @ 106424:                  INIT   1
12735 @ 106427:                  PUSHI  #0x0000ffec
12736 @ 106432:                  INIT   1
12737 @ 106435:                  PUSHI  #0x00007201
12738 @ 106440:                  INIT   1
12739 @ 106443:                  PUSHI  #0x00007058
12740 @ 106448:                  INIT   1
12741 @ 106451:                  PUSHI  #0x00004ef8
12742 @ 106456:                  INIT   1
12743 @ 106459:                  PUSHI  #0x00003efa
12744 @ 106464:                  INIT   1
12745 @ 106467:                  PUSHI  #0x00004e75
12746 @ 106472:                  INIT   1
12747 @ 106475:                  PUSHI  #0x00001553
12748 @ 106480:                  INIT   1
12749 @ 106483:                  PUSHI  #0x00007461
12750 @ 106488:                  INIT   1
12751 @ 106491:                  PUSHI  #0x0000636b
12752 @ 106496:                  INIT   1
12753 @ 106499:                  PUSHI  #0x00002073
12754 @ 106504:                  INIT   1
12755 @ 106507:                  PUSHI  #0x00007061
12756 @ 106512:                  INIT   1
12757 @ 106515:                  PUSHI  #0x00006365
12758 @ 106520:                  INIT   1
12759 @ 106523:                  PUSHI  #0x00002065
12760 @ 106528:                  INIT   1
12761 @ 106531:                  PUSHI  #0x00007868
12762 @ 106536:                  INIT   1
12763 @ 106539:                  PUSHI  #0x00006175
12764 @ 106544:                  INIT   1
12765 @ 106547:                  PUSHI  #0x00007374
12766 @ 106552:                  INIT   1
12767 @ 106555:                  PUSHI  #0x00006564
12768 @ 106560:                  INIT   1
12769 @ 106563:                  PUSHI  #0x0000d88f
12770 @ 106568:                  INIT   1
12771 @ 106571:                  PUSHI  #0x0000b886
12772 @ 106576:                  INIT   1
12773 @ 106579:                  PUSHI  #0x00006c0e
12774 @ 106584:                  INIT   1
12775 @ 106587:                  PUSHI  #0x00004284
12776 @ 106592:                  INIT   1
12777 @ 106595:                  PUSHI  #0x000041fa
12778 @ 106600:                  INIT   1
12779 @ 106603:                  PUSHI  #0x0000ffe0
12780 @ 106608:                  INIT   1
12781 @ 106611:                  PUSHI  #0x00007203
12782 @ 106616:                  INIT   1
12783 @ 106619:                  PUSHI  #0x00007055
12784 @ 106624:                  INIT   1
12785 @ 106627:                  PUSHI  #0x00004ef8
12786 @ 106632:                  INIT   1
12787 @ 106635:                  PUSHI  #0x00003efa
12788 @ 106640:                  INIT   1
12789 @ 106643:                  PUSHI  #0x00004284
12790 @ 106648:                  INIT   1
12791 @ 106651:                  PUSHI  #0x00004e75
12792 @ 106656:                  INIT   1
12793 @ 106659:                  PUSHI  #0x00001741
12794 @ 106664:                  INIT   1
12795 @ 106667:                  PUSHI  #0x00007272
12796 @ 106672:                  INIT   1
12797 @ 106675:                  PUSHI  #0x00006179
12798 @ 106680:                  INIT   1
12799 @ 106683:                  PUSHI  #0x00002062
12800 @ 106688:                  INIT   1
12801 @ 106691:                  PUSHI  #0x00006f75
12802 @ 106696:                  INIT   1
12803 @ 106699:                  PUSHI  #0x00006e64
12804 @ 106704:                  INIT   1
12805 @ 106707:                  PUSHI  #0x00007320
12806 @ 106712:                  INIT   1
12807 @ 106715:                  PUSHI  #0x0000696e
12808 @ 106720:                  INIT   1
12809 @ 106723:                  PUSHI  #0x00007369
12810 @ 106728:                  INIT   1
12811 @ 106731:                  PUSHI  #0x00006465
12812 @ 106736:                  INIT   1
12813 @ 106739:                  PUSHI  #0x0000206f
12814 @ 106744:                  INIT   1
12815 @ 106747:                  PUSHI  #0x00007574
12816 @ 106752:                  INIT   1
12817 @ 106755:                  PUSHI  #0x00009282
12818 @ 106760:                  INIT   1
12819 @ 106763:                  PUSHI  #0x00006f0c
12820 @ 106768:                  INIT   1
12821 @ 106771:                  PUSHI  #0x000041fa
12822 @ 106776:                  INIT   1
12823 @ 106779:                  PUSHI  #0x0000ffe2
12824 @ 106784:                  INIT   1
12825 @ 106787:                  PUSHI  #0x00007203
12826 @ 106792:                  INIT   1
12827 @ 106795:                  PUSHI  #0x00007055
12828 @ 106800:                  INIT   1
12829 @ 106803:                  PUSHI  #0x00004ef8
12830 @ 106808:                  INIT   1
12831 @ 106811:                  PUSHI  #0x00003efa
12832 @ 106816:                  INIT   1
12833 @ 106819:                  PUSHI  #0x00004481
12834 @ 106824:                  INIT   1
12835 @ 106827:                  PUSHI  #0x00005281
12836 @ 106832:                  INIT   1
12837 @ 106835:                  PUSHI  #0x00004ef8
12838 @ 106840:                  INIT   1
12839 @ 106843:                  PUSHI  #0x00003ef4
12840 @ 106848:                  INIT   1
12841 @ 106851:                  PUSHI  #0x00004e75
12842 @ 106856:                  INIT   1
12843 @ 106859:                  PUSHI  #0x00000e53
12844 @ 106864:                  INIT   1
12845 @ 106867:                  PUSHI  #0x00007472
12846 @ 106872:                  INIT   1
12847 @ 106875:                  PUSHI  #0x0000696e
12848 @ 106880:                  INIT   1
12849 @ 106883:                  PUSHI  #0x00006720
12850 @ 106888:                  INIT   1
12851 @ 106891:                  PUSHI  #0x0000746f
12852 @ 106896:                  INIT   1
12853 @ 106899:                  PUSHI  #0x00006f20
12854 @ 106904:                  INIT   1
12855 @ 106907:                  PUSHI  #0x00006269
12856 @ 106912:                  INIT   1
12857 @ 106915:                  PUSHI  #0x00006780
12858 @ 106920:                  INIT   1
12859 @ 106923:                  PUSHI  #0x00001811
12860 @ 106928:                  INIT   1
12861 @ 106931:                  PUSHI  #0x00009004
12862 @ 106936:                  INIT   1
12863 @ 106939:                  PUSHI  #0x00006504
12864 @ 106944:                  INIT   1
12865 @ 106947:                  PUSHI  #0x00009010
12866 @ 106952:                  INIT   1
12867 @ 106955:                  PUSHI  #0x0000640c
12868 @ 106960:                  INIT   1
12869 @ 106963:                  PUSHI  #0x000041fa
12870 @ 106968:                  INIT   1
12871 @ 106971:                  PUSHI  #0x0000ffe4
12872 @ 106976:                  INIT   1
12873 @ 106979:                  PUSHI  #0x00007203
12874 @ 106984:                  INIT   1
12875 @ 106987:                  PUSHI  #0x00007051
12876 @ 106992:                  INIT   1
12877 @ 106995:                  PUSHI  #0x00004ef8
12878 @ 107000:                  INIT   1
12879 @ 107003:                  PUSHI  #0x00003efa
12880 @ 107008:                  INIT   1
12881 @ 107011:                  PUSHI  #0x00001018
12882 @ 107016:                  INIT   1
12883 @ 107019:                  PUSHI  #0x0000670c
12884 @ 107024:                  INIT   1
12885 @ 107027:                  PUSHI  #0x0000d111
12886 @ 107032:                  INIT   1
12887 @ 107035:                  PUSHI  #0x00001398
12888 @ 107040:                  INIT   1
12889 @ 107043:                  PUSHI  #0x00004801
12890 @ 107048:                  INIT   1
12891 @ 107051:                  PUSHI  #0x00005204
12892 @ 107056:                  INIT   1
12893 @ 107059:                  PUSHI  #0x00005300
12894 @ 107064:                  INIT   1
12895 @ 107067:                  PUSHI  #0x000066f6
12896 @ 107072:                  INIT   1
12897 @ 107075:                  PUSHI  #0x00002049
12898 @ 107080:                  INIT   1
12899 @ 107083:                  PUSHI  #0x00004e75
12900 @ 107088:                  INIT   1
12901 @ 107091:                  PUSHI  #0x00003f00
12902 @ 107096:                  INIT   1
12903 @ 107099:                  PUSHI  #0x00007001
12904 @ 107104:                  INIT   1
12905 @ 107107:                  PUSHI  #0x00001e80
12906 @ 107112:                  INIT   1
12907 @ 107115:                  PUSHI  #0x0000204f
12908 @ 107120:                  INIT   1
12909 @ 107123:                  PUSHI  #0x0000548f
12910 @ 107128:                  INIT   1
12911 @ 107131:                  PUSHI  #0x00004e75
12912 @ 107136:                  INIT   1
12913 @ 107139:                  PUSHI  #0x0000124e
12914 @ 107144:                  INIT   1
12915 @ 107147:                  PUSHI  #0x00006f20
12916 @ 107152:                  INIT   1
12917 @ 107155:                  PUSHI  #0x00007370
12918 @ 107160:                  INIT   1
12919 @ 107163:                  PUSHI  #0x00006163
12920 @ 107168:                  INIT   1
12921 @ 107171:                  PUSHI  #0x00006520
12922 @ 107176:                  INIT   1
12923 @ 107179:                  PUSHI  #0x0000666f
12924 @ 107184:                  INIT   1
12925 @ 107187:                  PUSHI  #0x00007220
12926 @ 107192:                  INIT   1
12927 @ 107195:                  PUSHI  #0x00006172
12928 @ 107200:                  INIT   1
12929 @ 107203:                  PUSHI  #0x00007261
12930 @ 107208:                  INIT   1
12931 @ 107211:                  PUSHI  #0x00007980
12932 @ 107216:                  INIT   1
12933 @ 107219:                  PUSHI  #0x00005680
12934 @ 107224:                  INIT   1
12935 @ 107227:                  PUSHI  #0x0000e480
12936 @ 107232:                  INIT   1
12937 @ 107235:                  PUSHI  #0x0000e588
12938 @ 107240:                  INIT   1
12939 @ 107243:                  PUSHI  #0x00006d08
12940 @ 107248:                  INIT   1
12941 @ 107251:                  PUSHI  #0x0000204f
12942 @ 107256:                  INIT   1
12943 @ 107259:                  PUSHI  #0x000091c0
12944 @ 107264:                  INIT   1
12945 @ 107267:                  PUSHI  #0x0000b1c6
12946 @ 107272:                  INIT   1
12947 @ 107275:                  PUSHI  #0x00006c0e
12948 @ 107280:                  INIT   1
12949 @ 107283:                  PUSHI  #0x00002400
12950 @ 107288:                  INIT   1
12951 @ 107291:                  PUSHI  #0x000041fa
12952 @ 107296:                  INIT   1
12953 @ 107299:                  PUSHI  #0x0000ffd8
12954 @ 107304:                  INIT   1
12955 @ 107307:                  PUSHI  #0x00007201
12956 @ 107312:                  INIT   1
12957 @ 107315:                  PUSHI  #0x00007072
12958 @ 107320:                  INIT   1
12959 @ 107323:                  PUSHI  #0x00004ef8
12960 @ 107328:                  INIT   1
12961 @ 107331:                  PUSHI  #0x00003efa
12962 @ 107336:                  INIT   1
12963 @ 107339:                  PUSHI  #0x0000205f
12964 @ 107344:                  INIT   1
12965 @ 107347:                  PUSHI  #0x0000e488
12966 @ 107352:                  INIT   1
12967 @ 107355:                  PUSHI  #0x00006004
12968 @ 107360:                  INIT   1
12969 @ 107363:                  PUSHI  #0x00004840
12970 @ 107368:                  INIT   1
12971 @ 107371:                  PUSHI  #0x00002f07
12972 @ 107376:                  INIT   1
12973 @ 107379:                  PUSHI  #0x000051c8
12974 @ 107384:                  INIT   1
12975 @ 107387:                  PUSHI  #0x0000fffc
12976 @ 107392:                  INIT   1
12977 @ 107395:                  PUSHI  #0x00004840
12978 @ 107400:                  INIT   1
12979 @ 107403:                  PUSHI  #0x000051c8
12980 @ 107408:                  INIT   1
12981 @ 107411:                  PUSHI  #0x0000fff4
12982 @ 107416:                  INIT   1
12983 @ 107419:                  PUSHI  #0x00004ed0
12984 @ 107424:                  INIT   1
12985 @ 107427:                  PUSHI  #0x00004e75
12986 @ 107432:                  INIT   1
12987 @ 107435:                  PUSHI  #0x00001149
12988 @ 107440:                  INIT   1
12989 @ 107443:                  PUSHI  #0x00006e76
12990 @ 107448:                  INIT   1
12991 @ 107451:                  PUSHI  #0x0000616c
12992 @ 107456:                  INIT   1
12993 @ 107459:                  PUSHI  #0x00006964
12994 @ 107464:                  INIT   1
12995 @ 107467:                  PUSHI  #0x00002025
12996 @ 107472:                  INIT   1
12997 @ 107475:                  PUSHI  #0x0000666f
12998 @ 107480:                  INIT   1
12999 @ 107483:                  PUSHI  #0x00007220
13000 @ 107488:                  INIT   1
13001 @ 107491:                  PUSHI  #0x00006c6f
13002 @ 107496:                  INIT   1
13003 @ 107499:                  PUSHI  #0x00006f70
13004 @ 107504:                  INIT   1
13005 @ 107507:                  PUSHI  #0x00002f00
13006 @ 107512:                  INIT   1
13007 @ 107515:                  PUSHI  #0x00009082
13008 @ 107520:                  INIT   1
13009 @ 107523:                  PUSHI  #0x00006720
13010 @ 107528:                  INIT   1
13011 @ 107531:                  PUSHI  #0x00002f01
13012 @ 107536:                  INIT   1
13013 @ 107539:                  PUSHI  #0x00006708
13014 @ 107544:                  INIT   1
13015 @ 107547:                  PUSHI  #0x00004eb8
13016 @ 107552:                  INIT   1
13017 @ 107555:                  PUSHI  #0x00003eee
13018 @ 107560:                  INIT   1
13019 @ 107563:                  PUSHI  #0x00004a80
13020 @ 107568:                  INIT   1
13021 @ 107571:                  PUSHI  #0x00006d0e
13022 @ 107576:                  INIT   1
13023 @ 107579:                  PUSHI  #0x0000508f
13024 @ 107584:                  INIT   1
13025 @ 107587:                  PUSHI  #0x000041fa
13026 @ 107592:                  INIT   1
13027 @ 107595:                  PUSHI  #0x0000ffd8
13028 @ 107600:                  INIT   1
13029 @ 107603:                  PUSHI  #0x00007201
13030 @ 107608:                  INIT   1
13031 @ 107611:                  PUSHI  #0x00007055
13032 @ 107616:                  INIT   1
13033 @ 107619:                  PUSHI  #0x00004ef8
13034 @ 107624:                  INIT   1
13035 @ 107627:                  PUSHI  #0x00003efa
13036 @ 107632:                  INIT   1
13037 @ 107635:                  PUSHI  #0x00004a81
13038 @ 107640:                  INIT   1
13039 @ 107643:                  PUSHI  #0x000066ee
13040 @ 107648:                  INIT   1
13041 @ 107651:                  PUSHI  #0x0000221f
13042 @ 107656:                  INIT   1
13043 @ 107659:                  PUSHI  #0x0000201f
13044 @ 107664:                  INIT   1
13045 @ 107667:                  PUSHI  #0x00004e75
13046 @ 107672:                  INIT   1
13047 @ 107675:                  PUSHI  #0x00000c4f
13048 @ 107680:                  INIT   1
13049 @ 107683:                  PUSHI  #0x00007574
13050 @ 107688:                  INIT   1
13051 @ 107691:                  PUSHI  #0x0000206f
13052 @ 107696:                  INIT   1
13053 @ 107699:                  PUSHI  #0x00006620
13054 @ 107704:                  INIT   1
13055 @ 107707:                  PUSHI  #0x00007261
13056 @ 107712:                  INIT   1
13057 @ 107715:                  PUSHI  #0x00006e67
13058 @ 107720:                  INIT   1
13059 @ 107723:                  PUSHI  #0x00006580
13060 @ 107728:                  INIT   1
13061 @ 107731:                  PUSHI  #0x000041fa
13062 @ 107736:                  INIT   1
13063 @ 107739:                  PUSHI  #0x0000fff0
13064 @ 107744:                  INIT   1
13065 @ 107747:                  PUSHI  #0x00007201
13066 @ 107752:                  INIT   1
13067 @ 107755:                  PUSHI  #0x00007056
13068 @ 107760:                  INIT   1
13069 @ 107763:                  PUSHI  #0x00004ef8
13070 @ 107768:                  INIT   1
13071 @ 107771:                  PUSHI  #0x00003efa
13072 @ 107776:                  INIT   1
13073 @ 107779:                  PUSHI  #0x00004e75
13074 @ 107784:                  INIT   1
13075 @ 107787:                  PUSHI  #0x00001355
13076 @ 107792:                  INIT   1
13077 @ 107795:                  PUSHI  #0x00006e61
13078 @ 107800:                  INIT   1
13079 @ 107803:                  PUSHI  #0x00007373
13080 @ 107808:                  INIT   1
13081 @ 107811:                  PUSHI  #0x00006967
13082 @ 107816:                  INIT   1
13083 @ 107819:                  PUSHI  #0x00006e65
13084 @ 107824:                  INIT   1
13085 @ 107827:                  PUSHI  #0x00006420
13086 @ 107832:                  INIT   1
13087 @ 107835:                  PUSHI  #0x00007661
13088 @ 107840:                  INIT   1
13089 @ 107843:                  PUSHI  #0x00007269
13090 @ 107848:                  INIT   1
13091 @ 107851:                  PUSHI  #0x00006162
13092 @ 107856:                  INIT   1
13093 @ 107859:                  PUSHI  #0x00006c65
13094 @ 107864:                  INIT   1
13095 @ 107867:                  PUSHI  #0x0000b0fc
13096 @ 107872:                  INIT   1
13097 @ 107875:                  PUSHI  #0x00000000
13098 @ 107880:                  INIT   1
13099 @ 107883:                  PUSHI  #0x00006f1a
13100 @ 107888:                  INIT   1
13101 @ 107891:                  PUSHI  #0x0000b2fc
13102 @ 107896:                  INIT   1
13103 @ 107899:                  PUSHI  #0x00000000
13104 @ 107904:                  INIT   1
13105 @ 107907:                  PUSHI  #0x00006f14
13106 @ 107912:                  INIT   1
13107 @ 107915:                  PUSHI  #0x0000be10
13108 @ 107920:                  INIT   1
13109 @ 107923:                  PUSHI  #0x00006606
13110 @ 107928:                  INIT   1
13111 @ 107931:                  PUSHI  #0x0000be28
13112 @ 107936:                  INIT   1
13113 @ 107939:                  PUSHI  #0x00000001
13114 @ 107944:                  INIT   1
13115 @ 107947:                  PUSHI  #0x0000670a
13116 @ 107952:                  INIT   1
13117 @ 107955:                  PUSHI  #0x0000be11
13118 @ 107960:                  INIT   1
13119 @ 107963:                  PUSHI  #0x00006612
13120 @ 107968:                  INIT   1
13121 @ 107971:                  PUSHI  #0x0000be29
13122 @ 107976:                  INIT   1
13123 @ 107979:                  PUSHI  #0x00000001
13124 @ 107984:                  INIT   1
13125 @ 107987:                  PUSHI  #0x0000660c
13126 @ 107992:                  INIT   1
13127 @ 107995:                  PUSHI  #0x000041fa
13128 @ 108000:                  INIT   1
13129 @ 108003:                  PUSHI  #0x0000ffca
13130 @ 108008:                  INIT   1
13131 @ 108011:                  PUSHI  #0x00007202
13132 @ 108016:                  INIT   1
13133 @ 108019:                  PUSHI  #0x00007054
13134 @ 108024:                  INIT   1
13135 @ 108027:                  PUSHI  #0x00004ef8
13136 @ 108032:                  INIT   1
13137 @ 108035:                  PUSHI  #0x00003efa
13138 @ 108040:                  INIT   1
13139 @ 108043:                  PUSHI  #0x000048e7
13140 @ 108048:                  INIT   1
13141 @ 108051:                  PUSHI  #0x0000c0c0
13142 @ 108056:                  INIT   1
13143 @ 108059:                  PUSHI  #0x00004240
13144 @ 108064:                  INIT   1
13145 @ 108067:                  PUSHI  #0x00001018
13146 @ 108072:                  INIT   1
13147 @ 108075:                  PUSHI  #0x00006730
13148 @ 108080:                  INIT   1
13149 @ 108083:                  PUSHI  #0x00004241
13150 @ 108088:                  INIT   1
13151 @ 108091:                  PUSHI  #0x00001219
13152 @ 108096:                  INIT   1
13153 @ 108099:                  PUSHI  #0x00006722
13154 @ 108104:                  INIT   1
13155 @ 108107:                  PUSHI  #0x00005380
13156 @ 108112:                  INIT   1
13157 @ 108115:                  PUSHI  #0x00005381
13158 @ 108120:                  INIT   1
13159 @ 108123:                  PUSHI  #0x0000b041
13160 @ 108128:                  INIT   1
13161 @ 108131:                  PUSHI  #0x00006e12
13162 @ 108136:                  INIT   1
13163 @ 108139:                  PUSHI  #0x00009240
13164 @ 108144:                  INIT   1
13165 @ 108147:                  PUSHI  #0x0000b109
13166 @ 108152:                  INIT   1
13167 @ 108155:                  PUSHI  #0x000056c8
13168 @ 108160:                  INIT   1
13169 @ 108163:                  PUSHI  #0x0000fffc
13170 @ 108168:                  INIT   1
13171 @ 108171:                  PUSHI  #0x00006602
13172 @ 108176:                  INIT   1
13173 @ 108179:                  PUSHI  #0x00004441
13174 @ 108184:                  INIT   1
13175 @ 108187:                  PUSHI  #0x00004cdf
13176 @ 108192:                  INIT   1
13177 @ 108195:                  PUSHI  #0x00000303
13178 @ 108200:                  INIT   1
13179 @ 108203:                  PUSHI  #0x00004e75
13180 @ 108208:                  INIT   1
13181 @ 108211:                  PUSHI  #0x0000b109
13182 @ 108216:                  INIT   1
13183 @ 108219:                  PUSHI  #0x000056c9
13184 @ 108224:                  INIT   1
13185 @ 108227:                  PUSHI  #0x0000fffc
13186 @ 108232:                  INIT   1
13187 @ 108235:                  PUSHI  #0x000066f2
13188 @ 108240:                  INIT   1
13189 @ 108243:                  PUSHI  #0x00007201
13190 @ 108248:                  INIT   1
13191 @ 108251:                  PUSHI  #0x00004cdf
13192 @ 108256:                  INIT   1
13193 @ 108259:                  PUSHI  #0x00000303
13194 @ 108264:                  INIT   1
13195 @ 108267:                  PUSHI  #0x00004e75
13196 @ 108272:                  INIT   1
13197 @ 108275:                  PUSHI  #0x00001011
13198 @ 108280:                  INIT   1
13199 @ 108283:                  PUSHI  #0x00004440
13200 @ 108288:                  INIT   1
13201 @ 108291:                  PUSHI  #0x00004cdf
13202 @ 108296:                  INIT   1
13203 @ 108299:                  PUSHI  #0x00000303
13204 @ 108304:                  INIT   1
13205 @ 108307:                  PUSHI  #0x00004e75
13206 @ 108312:                  INIT   1
13207 @ 108315:                  PUSHI  #0x00000e53
13208 @ 108320:                  INIT   1
13209 @ 108323:                  PUSHI  #0x00007472
13210 @ 108328:                  INIT   1
13211 @ 108331:                  PUSHI  #0x0000696e
13212 @ 108336:                  INIT   1
13213 @ 108339:                  PUSHI  #0x00006720
13214 @ 108344:                  INIT   1
13215 @ 108347:                  PUSHI  #0x0000746f
13216 @ 108352:                  INIT   1
13217 @ 108355:                  PUSHI  #0x00006f20
13218 @ 108360:                  INIT   1
13219 @ 108363:                  PUSHI  #0x00006269
13220 @ 108368:                  INIT   1
13221 @ 108371:                  PUSHI  #0x00006780
13222 @ 108376:                  INIT   1
13223 @ 108379:                  PUSHI  #0x0000b010
13224 @ 108384:                  INIT   1
13225 @ 108387:                  PUSHI  #0x0000640c
13226 @ 108392:                  INIT   1
13227 @ 108395:                  PUSHI  #0x000041fa
13228 @ 108400:                  INIT   1
13229 @ 108403:                  PUSHI  #0x0000ffea
13230 @ 108408:                  INIT   1
13231 @ 108411:                  PUSHI  #0x00007203
13232 @ 108416:                  INIT   1
13233 @ 108419:                  PUSHI  #0x00007051
13234 @ 108424:                  INIT   1
13235 @ 108427:                  PUSHI  #0x00004ef8
13236 @ 108432:                  INIT   1
13237 @ 108435:                  PUSHI  #0x00003efa
13238 @ 108440:                  INIT   1
13239 @ 108443:                  PUSHI  #0x00004280
13240 @ 108448:                  INIT   1
13241 @ 108451:                  PUSHI  #0x00001010
13242 @ 108456:                  INIT   1
13243 @ 108459:                  PUSHI  #0x000012d8
13244 @ 108464:                  INIT   1
13245 @ 108467:                  PUSHI  #0x000051c8
13246 @ 108472:                  INIT   1
13247 @ 108475:                  PUSHI  #0x0000fffc
13248 @ 108480:                  INIT   1
13249 @ 108483:                  PUSHI  #0x00004e75
13250 @ 108488:                  INIT   1
13251 @ 108491:                  PUSHI  #0x00000e53
13252 @ 108496:                  INIT   1
13253 @ 108499:                  PUSHI  #0x00007472
13254 @ 108504:                  INIT   1
13255 @ 108507:                  PUSHI  #0x0000696e
13256 @ 108512:                  INIT   1
13257 @ 108515:                  PUSHI  #0x00006720
13258 @ 108520:                  INIT   1
13259 @ 108523:                  PUSHI  #0x0000746f
13260 @ 108528:                  INIT   1
13261 @ 108531:                  PUSHI  #0x00006f20
13262 @ 108536:                  INIT   1
13263 @ 108539:                  PUSHI  #0x00006269
13264 @ 108544:                  INIT   1
13265 @ 108547:                  PUSHI  #0x00006780
13266 @ 108552:                  INIT   1
13267 @ 108555:                  PUSHI  #0x0000b010
13268 @ 108560:                  INIT   1
13269 @ 108563:                  PUSHI  #0x0000640c
13270 @ 108568:                  INIT   1
13271 @ 108571:                  PUSHI  #0x000041fa
13272 @ 108576:                  INIT   1
13273 @ 108579:                  PUSHI  #0x0000ffea
13274 @ 108584:                  INIT   1
13275 @ 108587:                  PUSHI  #0x00007201
13276 @ 108592:                  INIT   1
13277 @ 108595:                  PUSHI  #0x00007056
13278 @ 108600:                  INIT   1
13279 @ 108603:                  PUSHI  #0x00004ef8
13280 @ 108608:                  INIT   1
13281 @ 108611:                  PUSHI  #0x00003efa
13282 @ 108616:                  INIT   1
13283 @ 108619:                  PUSHI  #0x00000240
13284 @ 108624:                  INIT   1
13285 @ 108627:                  PUSHI  #0x000000fe
13286 @ 108632:                  INIT   1
13287 @ 108635:                  PUSHI  #0x0000245f
13288 @ 108640:                  INIT   1
13289 @ 108643:                  PUSHI  #0x00009ec0
13290 @ 108648:                  INIT   1
13291 @ 108651:                  PUSHI  #0x0000558f
13292 @ 108656:                  INIT   1
13293 @ 108659:                  PUSHI  #0x0000224f
13294 @ 108664:                  INIT   1
13295 @ 108667:                  PUSHI  #0x0000bfc8
13296 @ 108672:                  INIT   1
13297 @ 108675:                  PUSHI  #0x00006e0e
13298 @ 108680:                  INIT   1
13299 @ 108683:                  PUSHI  #0x00001010
13300 @ 108688:                  INIT   1
13301 @ 108691:                  PUSHI  #0x000012d8
13302 @ 108696:                  INIT   1
13303 @ 108699:                  PUSHI  #0x000051c8
13304 @ 108704:                  INIT   1
13305 @ 108707:                  PUSHI  #0x0000fffc
13306 @ 108712:                  INIT   1
13307 @ 108715:                  PUSHI  #0x0000204f
13308 @ 108720:                  INIT   1
13309 @ 108723:                  PUSHI  #0x0000224f
13310 @ 108728:                  INIT   1
13311 @ 108731:                  PUSHI  #0x00004ed2
13312 @ 108736:                  INIT   1
13313 @ 108739:                  PUSHI  #0x00001018
13314 @ 108744:                  INIT   1
13315 @ 108747:                  PUSHI  #0x00005289
13316 @ 108752:                  INIT   1
13317 @ 108755:                  PUSHI  #0x0000d0c0
13318 @ 108760:                  INIT   1
13319 @ 108763:                  PUSHI  #0x0000d2c0
13320 @ 108768:                  INIT   1
13321 @ 108771:                  PUSHI  #0x00001320
13322 @ 108776:                  INIT   1
13323 @ 108779:                  PUSHI  #0x000051c8
13324 @ 108784:                  INIT   1
13325 @ 108787:                  PUSHI  #0x0000fffc
13326 @ 108792:                  INIT   1
13327 @ 108795:                  PUSHI  #0x0000204f
13328 @ 108800:                  INIT   1
13329 @ 108803:                  PUSHI  #0x0000224f
13330 @ 108808:                  INIT   1
13331 @ 108811:                  PUSHI  #0x00004ed2
13332 @ 108816:                  INIT   1
13333 @ 108819:                  PUSHI  #0x00004e75
13334 @ 108824:                  INIT   1
13335 @ 108827:                  PUSHI  #0x000043ef
13336 @ 108832:                  INIT   1
13337 @ 108835:                  PUSHI  #0x0000ff00
13338 @ 108840:                  INIT   1
13339 @ 108843:                  PUSHI  #0x00002448
13340 @ 108848:                  INIT   1
13341 @ 108851:                  PUSHI  #0x0000d5c0
13342 @ 108856:                  INIT   1
13343 @ 108859:                  PUSHI  #0x00002049
13344 @ 108864:                  INIT   1
13345 @ 108867:                  PUSHI  #0x00009280
13346 @ 108872:                  INIT   1
13347 @ 108875:                  PUSHI  #0x00006c04
13348 @ 108880:                  INIT   1
13349 @ 108883:                  PUSHI  #0x00004211
13350 @ 108888:                  INIT   1
13351 @ 108891:                  PUSHI  #0x00004e75
13352 @ 108896:                  INIT   1
13353 @ 108899:                  PUSHI  #0x00001281
13354 @ 108904:                  INIT   1
13355 @ 108907:                  PUSHI  #0x00005219
13356 @ 108912:                  INIT   1
13357 @ 108915:                  PUSHI  #0x000012da
13358 @ 108920:                  INIT   1
13359 @ 108923:                  PUSHI  #0x000051c9
13360 @ 108928:                  INIT   1
13361 @ 108931:                  PUSHI  #0x0000fffc
13362 @ 108936:                  INIT   1
13363 @ 108939:                  PUSHI  #0x00004e75
13364 @ 108944:                  INIT   1
13365 @ 108947:                  PUSHI  #0x0000700a
13366 @ 108952:                  INIT   1
13367 @ 108955:                  PUSHI  #0x00004ef8
13368 @ 108960:                  INIT   1
13369 @ 108963:                  PUSHI  #0x00003e70
13370 @ 108968:                  INIT   1
13371 @ 108971:                  PUSHI  #0x00004e75
13372 @ 108976:                  INIT   1
13373 @ 108979:                  PUSHI  #0x00007020
13374 @ 108984:                  INIT   1
13375 @ 108987:                  PUSHI  #0x00004ef8
13376 @ 108992:                  INIT   1
13377 @ 108995:                  PUSHI  #0x00003e70
13378 @ 109000:                  INIT   1
13379 @ 109003:                  PUSHI  #0x00004e75
13380 @ 109008:                  INIT   1

  2575  %integer start,limit
13381 @ 109011:                  LINE   2575 "regression-compile-tmp/imp22g-77.imp"
13382 @ 109051:                  DEF    START p1=V_0145 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
13383 @ 109068:                  DEF    LIMIT p1=V_0146 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  2576  %record(identinfo)%name DDX
13384 @ 109085:                  LINE   2576 "regression-compile-tmp/imp22g-77.imp"
13385 @ 109125:                  DEF    DDX p1=V_0147 a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  2577    fill code(1) %if cad&1 # 0
13386 @ 109140:                  LINE   2577 "regression-compile-tmp/imp22g-77.imp"
13387 @ 109180:                  PUSH   CAD
13388 @ 109183:                  PUSHI  #0x00000001
13389 @ 109188:                  AND   
13390 @ 109189:                  PUSHI  #0x00000000
13391 @ 109194:                  JUMPIF = L_0004
13392 @ 109198:                  PUSH   FILLCODE
13393 @ 109201:                  PUSHI  #0x00000001
13394 @ 109206:                  ASSPAR
13395 @ 109207:                  CALL  
13396 @ 109208:                  LOCATE L_0004

  2578    start = dx_val>>16&511;  limit = start+dx_val&255
13397 @ 109211:                  LINE   2578 "regression-compile-tmp/imp22g-77.imp"
13398 @ 109251:                  PUSH   START
13399 @ 109254:                  PUSH   DX
13400 @ 109257:                  SELECT 9
13401 @ 109260:                  PUSHI  #0x00000010
13402 @ 109265:                  RSH   
13403 @ 109266:                  PUSHI  #0x000001ff
13404 @ 109271:                  AND   
13405 @ 109272:                  ASSVAL
13406 @ 109273:                  LINE   2578 "regression-compile-tmp/imp22g-77.imp"
13407 @ 109313:                  PUSH   LIMIT
13408 @ 109316:                  PUSH   START
13409 @ 109319:                  PUSH   DX
13410 @ 109322:                  SELECT 9
13411 @ 109325:                  PUSHI  #0x000000ff
13412 @ 109330:                  AND   
13413 @ 109331:                  ADD   
13414 @ 109332:                  ASSVAL

  2579    dx_val = cad+dx_val>>7&(255<<1);  !entry
13415 @ 109333:                  LINE   2579 "regression-compile-tmp/imp22g-77.imp"
13416 @ 109373:                  PUSH   DX
13417 @ 109376:                  SELECT 9
13418 @ 109379:                  PUSH   CAD
13419 @ 109382:                  PUSH   DX
13420 @ 109385:                  SELECT 9
13421 @ 109388:                  PUSHI  #0x00000007
13422 @ 109393:                  RSH   
13423 @ 109394:                  PUSHI  #0x000000ff
13424 @ 109399:                  PUSHI  #0x00000001
13425 @ 109404:                  LSH   
13426 @ 109405:                  AND   
13427 @ 109406:                  ADD   
13428 @ 109407:                  ASSVAL

  2580    dx_mode = procmode
13429 @ 109408:                  LINE   2580 "regression-compile-tmp/imp22g-77.imp"
13430 @ 109448:                  PUSH   DX
13431 @ 109451:                  SELECT 8
13432 @ 109454:                  PUSHI  #0x000000fa
13433 @ 109459:                  ASSVAL

  2581    %if start = limit %start;  !range check
13434 @ 109460:                  LINE   2581 "regression-compile-tmp/imp22g-77.imp"
13435 @ 109500:                  PUSH   START
13436 @ 109503:                  PUSH   LIMIT
13437 @ 109506:                  JUMPIF # L_0004

  2582      ddx == dict(check)
13438 @ 109510:                  LINE   2582 "regression-compile-tmp/imp22g-77.imp"
13439 @ 109550:                  PUSH   DDX
13440 @ 109553:                  PUSH   DICT
13441 @ 109556:                  PUSHI  #0x0000006f
13442 @ 109561:                  ACCESS
13443 @ 109562:                  ASSREF

  2583      put prim(ddx) %and dx_val = cad %if ddx_mode = absmode
13444 @ 109563:                  LINE   2583 "regression-compile-tmp/imp22g-77.imp"
13445 @ 109603:                  PUSH   DDX
13446 @ 109606:                  SELECT 8
13447 @ 109609:                  PUSHI  #0x00000038
13448 @ 109614:                  JUMPIF # L_0007
13449 @ 109618:                  PUSH   PUTPRIM
13450 @ 109621:                  PUSH   DDX
13451 @ 109624:                  ASSPAR
13452 @ 109625:                  CALL  
13453 @ 109626:                  PUSH   DX
13454 @ 109629:                  SELECT 9
13455 @ 109632:                  PUSH   CAD
13456 @ 109635:                  ASSVAL
13457 @ 109636:                  LOCATE L_0007

  2584      set code word(16_0C80);  !CMPI.L #?,D0
13458 @ 109639:                  LINE   2584 "regression-compile-tmp/imp22g-77.imp"
13459 @ 109679:                  PUSH   SETCODEWORD
13460 @ 109682:                  PUSHI  #0x00000c80
13461 @ 109687:                  ASSPAR
13462 @ 109688:                  CALL  

  2585      set code longword(dict(x+1)_val);  !lower
13463 @ 109689:                  LINE   2585 "regression-compile-tmp/imp22g-77.imp"
13464 @ 109729:                  PUSH   SETCODELONGWORD
13465 @ 109732:                  PUSH   DICT
13466 @ 109735:                  PUSH   X
13467 @ 109738:                  PUSHI  #0x00000001
13468 @ 109743:                  ADD   
13469 @ 109744:                  ACCESS
13470 @ 109745:                  SELECT 9
13471 @ 109748:                  ASSPAR
13472 @ 109749:                  CALL  

  2586      set code word(16_6D00);  !BLT
13473 @ 109750:                  LINE   2586 "regression-compile-tmp/imp22g-77.imp"
13474 @ 109790:                  PUSH   SETCODEWORD
13475 @ 109793:                  PUSHI  #0x00006d00
13476 @ 109798:                  ASSPAR
13477 @ 109799:                  CALL  

  2587      set code word(ddx_val-cad)
13478 @ 109800:                  LINE   2587 "regression-compile-tmp/imp22g-77.imp"
13479 @ 109840:                  PUSH   SETCODEWORD
13480 @ 109843:                  PUSH   DDX
13481 @ 109846:                  SELECT 9
13482 @ 109849:                  PUSH   CAD
13483 @ 109852:                  SUB   
13484 @ 109853:                  ASSPAR
13485 @ 109854:                  CALL  

  2588      set code word(16_0C80);  !CMPI.L #?,D0
13486 @ 109855:                  LINE   2588 "regression-compile-tmp/imp22g-77.imp"
13487 @ 109895:                  PUSH   SETCODEWORD
13488 @ 109898:                  PUSHI  #0x00000c80
13489 @ 109903:                  ASSPAR
13490 @ 109904:                  CALL  

  2589      set code longword(dict(x+2)_val);  !upper
13491 @ 109905:                  LINE   2589 "regression-compile-tmp/imp22g-77.imp"
13492 @ 109945:                  PUSH   SETCODELONGWORD
13493 @ 109948:                  PUSH   DICT
13494 @ 109951:                  PUSH   X
13495 @ 109954:                  PUSHI  #0x00000002
13496 @ 109959:                  ADD   
13497 @ 109960:                  ACCESS
13498 @ 109961:                  SELECT 9
13499 @ 109964:                  ASSPAR
13500 @ 109965:                  CALL  

  2590      set code word(16_6E00);  !BGT
13501 @ 109966:                  LINE   2590 "regression-compile-tmp/imp22g-77.imp"
13502 @ 110006:                  PUSH   SETCODEWORD
13503 @ 110009:                  PUSHI  #0x00006e00
13504 @ 110014:                  ASSPAR
13505 @ 110015:                  CALL  

  2591      set code word(ddx_val-cad)
13506 @ 110016:                  LINE   2591 "regression-compile-tmp/imp22g-77.imp"
13507 @ 110056:                  PUSH   SETCODEWORD
13508 @ 110059:                  PUSH   DDX
13509 @ 110062:                  SELECT 9
13510 @ 110065:                  PUSH   CAD
13511 @ 110068:                  SUB   
13512 @ 110069:                  ASSPAR
13513 @ 110070:                  CALL  

  2592      set code word(16_4E75);  !RTS
13514 @ 110071:                  LINE   2592 "regression-compile-tmp/imp22g-77.imp"
13515 @ 110111:                  PUSH   SETCODEWORD
13516 @ 110114:                  PUSHI  #0x00004e75
13517 @ 110119:                  ASSPAR
13518 @ 110120:                  CALL  

  2593    %else
13519 @ 110121:                  LINE   2593 "regression-compile-tmp/imp22g-77.imp"
13520 @ 110161:                  GOTO   L_0003
13521 @ 110164:                  LOCATE L_0004

  2594      set code word(primcode(start)) %and start=start+1 %until start >= limit
13522 @ 110167:                  LINE   2594 "regression-compile-tmp/imp22g-77.imp"
13523 @ 110207:                  LOCATE L_0006
13524 @ 110210:                  PUSH   SETCODEWORD
13525 @ 110213:                  PUSH   PRIMCODE
13526 @ 110216:                  PUSH   START
13527 @ 110219:                  ACCESS
13528 @ 110220:                  ASSPAR
13529 @ 110221:                  CALL  
13530 @ 110222:                  PUSH   START
13531 @ 110225:                  PUSH   START
13532 @ 110228:                  PUSHI  #0x00000001
13533 @ 110233:                  ADD   
13534 @ 110234:                  ASSVAL
13535 @ 110235:                  PUSH   START
13536 @ 110238:                  PUSH   LIMIT
13537 @ 110241:                  JUMPIF >= L_0007
13538 @ 110245:                  REPEAT L_0006
13539 @ 110248:                  LOCATE L_0007

  2595    %finish
13540 @ 110251:                  LINE   2595 "regression-compile-tmp/imp22g-77.imp"
13541 @ 110291:                  LOCATE L_0003

  2596  %end
  2597  
13542 @ 110294:                  LINE   2596 "regression-compile-tmp/imp22g-77.imp"
13543 @ 110334:               END    _lev0id0_SRCALL_PUTPRIM {lev=3 --> 2}

  2598  %record(identinfo)%name dx,tp
13544 @ 110335:               LINE   2598 "regression-compile-tmp/imp22g-77.imp"
13545 @ 110375:               DEF    DX p1=V_0143 a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
13546 @ 110389:               DEF    TP p1=V_0144 a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  2599    dx==dict(x); tp==typecell(dx_type)
13547 @ 110403:               LINE   2599 "regression-compile-tmp/imp22g-77.imp"
13548 @ 110443:               PUSH   DX
13549 @ 110446:               PUSH   DICT
13550 @ 110449:               PUSH   X
13551 @ 110452:               ACCESS
13552 @ 110453:               ASSREF
13553 @ 110454:               LINE   2599 "regression-compile-tmp/imp22g-77.imp"
13554 @ 110494:               PUSH   TP
13555 @ 110497:               PUSH   TYPECELL
13556 @ 110500:               PUSH   DX
13557 @ 110503:               SELECT 2
13558 @ 110506:               ASSPAR
13559 @ 110507:               CALL  
13560 @ 110508:               ASSREF

  2600    %if dx_mode = absmode %and dx_val < 0 %start;  !prim routine
  2601     ![**for now**: the convention is inadequate because excludes abs neg]
13561 @ 110509:               LINE   2600 "regression-compile-tmp/imp22g-77.imp"
13562 @ 110549:               PUSH   DX
13563 @ 110552:               SELECT 8
13564 @ 110555:               PUSHI  #0x00000038
13565 @ 110560:               JUMPIF # L_0004
13566 @ 110564:               PUSH   DX
13567 @ 110567:               SELECT 9
13568 @ 110570:               PUSHI  #0x00000000
13569 @ 110575:               JUMPIF >= L_0004

  2602      put prim(dx)
13570 @ 110579:               LINE   2602 "regression-compile-tmp/imp22g-77.imp"
13571 @ 110619:               PUSH   PUTPRIM
13572 @ 110622:               PUSH   DX
13573 @ 110625:               ASSPAR
13574 @ 110626:               CALL  

  2603    %else
13575 @ 110627:               LINE   2603 "regression-compile-tmp/imp22g-77.imp"
13576 @ 110667:               GOTO   L_0003
13577 @ 110670:               LOCATE L_0004

  2604      c_status = c_status!unknown %if tp_val <= 0
13578 @ 110673:               LINE   2604 "regression-compile-tmp/imp22g-77.imp"
13579 @ 110713:               PUSH   TP
13580 @ 110716:               SELECT 9
13581 @ 110719:               PUSHI  #0x00000000
13582 @ 110724:               JUMPIF > L_0007
13583 @ 110728:               PUSH   C
13584 @ 110731:               SELECT 6
13585 @ 110734:               PUSH   C
13586 @ 110737:               SELECT 6
13587 @ 110740:               PUSHI  #0x00000002
13588 @ 110745:               OR    
13589 @ 110746:               ASSVAL
13590 @ 110747:               LOCATE L_0007

  2605      c_totstack = c_sp-imod(tp_val) %if c_sp-imod(tp_val) < c_totstack
13591 @ 110750:               LINE   2605 "regression-compile-tmp/imp22g-77.imp"
13592 @ 110790:               PUSH   C
13593 @ 110793:               SELECT 1
13594 @ 110796:               PUSH   IMOD
13595 @ 110799:               PUSH   TP
13596 @ 110802:               SELECT 9
13597 @ 110805:               ASSPAR
13598 @ 110806:               CALL  
13599 @ 110807:               SUB   
13600 @ 110808:               PUSH   C
13601 @ 110811:               SELECT 4
13602 @ 110814:               JUMPIF >= L_0007
13603 @ 110818:               PUSH   C
13604 @ 110821:               SELECT 4
13605 @ 110824:               PUSH   C
13606 @ 110827:               SELECT 1
13607 @ 110830:               PUSH   IMOD
13608 @ 110833:               PUSH   TP
13609 @ 110836:               SELECT 9
13610 @ 110839:               ASSPAR
13611 @ 110840:               CALL  
13612 @ 110841:               SUB   
13613 @ 110842:               ASSVAL
13614 @ 110843:               LOCATE L_0007

  2606    %finish
13615 @ 110846:               LINE   2606 "regression-compile-tmp/imp22g-77.imp"
13616 @ 110886:               LOCATE L_0003

  2607    %if dx_mode&63 = pcmode %start;  !internal
13617 @ 110889:               LINE   2607 "regression-compile-tmp/imp22g-77.imp"
13618 @ 110929:               PUSH   DX
13619 @ 110932:               SELECT 8
13620 @ 110935:               PUSHI  #0x0000003f
13621 @ 110940:               AND   
13622 @ 110941:               PUSHI  #0x0000003a
13623 @ 110946:               JUMPIF # L_0004

  2608      c_forward = c_forward+1 %if dx_flags&spec # 0 %and dx_flags&rflag = 0
13624 @ 110950:               LINE   2608 "regression-compile-tmp/imp22g-77.imp"
13625 @ 110990:               PUSH   DX
13626 @ 110993:               SELECT 1
13627 @ 110996:               PUSHI  #0x00000100
13628 @ 111001:               AND   
13629 @ 111002:               PUSHI  #0x00000000
13630 @ 111007:               JUMPIF = L_0007
13631 @ 111011:               PUSH   DX
13632 @ 111014:               SELECT 1
13633 @ 111017:               PUSHI  #0x00000020
13634 @ 111022:               AND   
13635 @ 111023:               PUSHI  #0x00000000
13636 @ 111028:               JUMPIF # L_0007
13637 @ 111032:               PUSH   C
13638 @ 111035:               SELECT 17
13639 @ 111038:               PUSH   C
13640 @ 111041:               SELECT 17
13641 @ 111044:               PUSHI  #0x00000001
13642 @ 111049:               ADD   
13643 @ 111050:               ASSVAL
13644 @ 111051:               LOCATE L_0007

  2609      plant(bsr,0,x)
13645 @ 111054:               LINE   2609 "regression-compile-tmp/imp22g-77.imp"
13646 @ 111094:               PUSH   PLANT
13647 @ 111097:               PUSHI  #0x00000011
13648 @ 111102:               ASSPAR
13649 @ 111103:               PUSHI  #0x00000000
13650 @ 111108:               ASSPAR
13651 @ 111109:               PUSH   X
13652 @ 111112:               ASSPAR
13653 @ 111113:               CALL  

  2610    %finish %else %if dx_flags&(name+indirect) = 0 %or dx_flags&ext # 0 {temp} %start
13654 @ 111114:               LINE   2610 "regression-compile-tmp/imp22g-77.imp"
13655 @ 111154:               GOTO   L_0003
13656 @ 111157:               LOCATE L_0004
13657 @ 111160:               PUSH   DX
13658 @ 111163:               SELECT 1
13659 @ 111166:               PUSHI  #0xffff8000
13660 @ 111171:               PUSHI  #0x00000800
13661 @ 111176:               ADD   
13662 @ 111177:               AND   
13663 @ 111178:               PUSHI  #0x00000000
13664 @ 111183:               JUMPIF = L_0005
13665 @ 111187:               PUSH   DX
13666 @ 111190:               SELECT 1
13667 @ 111193:               PUSHI  #0x00004000
13668 @ 111198:               AND   
13669 @ 111199:               PUSHI  #0x00000000
13670 @ 111204:               JUMPIF = L_0004
13671 @ 111208:               LOCATE L_0005

  2611      plant(jsr,0,x)
13672 @ 111211:               LINE   2611 "regression-compile-tmp/imp22g-77.imp"
13673 @ 111251:               PUSH   PLANT
13674 @ 111254:               PUSHI  #0x00000038
13675 @ 111259:               ASSPAR
13676 @ 111260:               PUSHI  #0x00000000
13677 @ 111265:               ASSPAR
13678 @ 111266:               PUSH   X
13679 @ 111269:               ASSPAR
13680 @ 111270:               CALL  

  2612    %finish %else %if free&a0b<<3 # 0 %start
13681 @ 111271:               LINE   2612 "regression-compile-tmp/imp22g-77.imp"
13682 @ 111311:               GOTO   L_0003
13683 @ 111314:               LOCATE L_0004
13684 @ 111317:               PUSH   FREE
13685 @ 111320:               PUSHI  #0x00000100
13686 @ 111325:               PUSHI  #0x00000003
13687 @ 111330:               LSH   
13688 @ 111331:               AND   
13689 @ 111332:               PUSHI  #0x00000000
13690 @ 111337:               JUMPIF = L_0004

  2613      plant(move,x,a0+3)
13691 @ 111341:               LINE   2613 "regression-compile-tmp/imp22g-77.imp"
13692 @ 111381:               PUSH   PLANT
13693 @ 111384:               PUSHI  #0x00000001
13694 @ 111389:               ASSPAR
13695 @ 111390:               PUSH   X
13696 @ 111393:               ASSPAR
13697 @ 111394:               PUSHI  #0x00000009
13698 @ 111399:               PUSHI  #0x00000003
13699 @ 111404:               ADD   
13700 @ 111405:               ASSPAR
13701 @ 111406:               CALL  

  2614      plant(jsr,0,a0+3+indir)
13702 @ 111407:               LINE   2614 "regression-compile-tmp/imp22g-77.imp"
13703 @ 111447:               PUSH   PLANT
13704 @ 111450:               PUSHI  #0x00000038
13705 @ 111455:               ASSPAR
13706 @ 111456:               PUSHI  #0x00000000
13707 @ 111461:               ASSPAR
13708 @ 111462:               PUSHI  #0x00000009
13709 @ 111467:               PUSHI  #0x00000003
13710 @ 111472:               ADD   
13711 @ 111473:               PUSHI  #0x00000008
13712 @ 111478:               ADD   
13713 @ 111479:               ASSPAR
13714 @ 111480:               CALL  

  2615      forget(a0+3)
13715 @ 111481:               LINE   2615 "regression-compile-tmp/imp22g-77.imp"
13716 @ 111521:               PUSH   FORGET
13717 @ 111524:               PUSHI  #0x00000009
13718 @ 111529:               PUSHI  #0x00000003
13719 @ 111534:               ADD   
13720 @ 111535:               ASSPAR
13721 @ 111536:               CALL  

  2616    %else
13722 @ 111537:               LINE   2616 "regression-compile-tmp/imp22g-77.imp"
13723 @ 111577:               GOTO   L_0003
13724 @ 111580:               LOCATE L_0004

  2617      plant(move,x,tempd(a7,-4))
13725 @ 111583:               LINE   2617 "regression-compile-tmp/imp22g-77.imp"
13726 @ 111623:               PUSH   PLANT
13727 @ 111626:               PUSHI  #0x00000001
13728 @ 111631:               ASSPAR
13729 @ 111632:               PUSH   X
13730 @ 111635:               ASSPAR
13731 @ 111636:               PUSH   TEMPD
13732 @ 111639:               PUSHI  #0x00000010
13733 @ 111644:               ASSPAR
13734 @ 111645:               PUSHI  #0x00000004
13735 @ 111650:               NEGATE
13736 @ 111651:               ASSPAR
13737 @ 111652:               CALL  
13738 @ 111653:               ASSPAR
13739 @ 111654:               CALL  

  2618      plantlit(move,16_4EF9,tempd(a7,-6))
13740 @ 111655:               LINE   2618 "regression-compile-tmp/imp22g-77.imp"
13741 @ 111695:               PUSH   PLANTLIT
13742 @ 111698:               PUSHI  #0x00000001
13743 @ 111703:               ASSPAR
13744 @ 111704:               PUSHI  #0x00004ef9
13745 @ 111709:               ASSPAR
13746 @ 111710:               PUSH   TEMPD
13747 @ 111713:               PUSHI  #0x00000010
13748 @ 111718:               ASSPAR
13749 @ 111719:               PUSHI  #0x00000006
13750 @ 111724:               NEGATE
13751 @ 111725:               ASSPAR
13752 @ 111726:               CALL  
13753 @ 111727:               ASSPAR
13754 @ 111728:               CALL  

  2619      plant(jsr,0,lablim)
13755 @ 111729:               LINE   2619 "regression-compile-tmp/imp22g-77.imp"
13756 @ 111769:               PUSH   PLANT
13757 @ 111772:               PUSHI  #0x00000038
13758 @ 111777:               ASSPAR
13759 @ 111778:               PUSHI  #0x00000000
13760 @ 111783:               ASSPAR
13761 @ 111784:               PUSH   LABLIM
13762 @ 111787:               ASSPAR
13763 @ 111788:               CALL  

  2620    %finish
13764 @ 111789:               LINE   2620 "regression-compile-tmp/imp22g-77.imp"
13765 @ 111829:               LOCATE L_0003

  2621  %end;  !srcall
  2622  !
13766 @ 111832:               LINE   2621 "regression-compile-tmp/imp22g-77.imp"
13767 @ 111872:            END    _lev0id0_SRCALL {lev=2 --> 1}

  2623  %routine DEFINE LABEL(%integer lab)
13768 @ 111873:            LINE   2623 "regression-compile-tmp/imp22g-77.imp"
13769 @ 111913:            DEF    DEFINELABEL (_lev0id0_DEFINELABEL) p1=V_0141 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
13770 @ 111936:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
13771 @ 111937:                  DEF    LAB p1=V_0142 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
13772 @ 111952:               FINISH ) {lev=2}

  2624  %integer r,chain
13773 @ 111953:               LINE   2624 "regression-compile-tmp/imp22g-77.imp"
13774 @ 111993:               DEF    R p1=V_0143 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
13775 @ 112006:               DEF    CHAIN p1=V_0144 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  2625  %record(contentinfo)%name lr
13776 @ 112023:               LINE   2625 "regression-compile-tmp/imp22g-77.imp"
13777 @ 112063:               DEF    LR p1=V_0145 a/tf=42 b/format=d0 c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  2626    chain = dict(lab)_val
13778 @ 112077:               LINE   2626 "regression-compile-tmp/imp22g-77.imp"
13779 @ 112117:               PUSH   CHAIN
13780 @ 112120:               PUSH   DICT
13781 @ 112123:               PUSH   LAB
13782 @ 112126:               ACCESS
13783 @ 112127:               SELECT 9
13784 @ 112130:               ASSVAL

  2627    %if chain >= 0 %start;  !label before jumps
13785 @ 112131:               LINE   2627 "regression-compile-tmp/imp22g-77.imp"
13786 @ 112171:               PUSH   CHAIN
13787 @ 112174:               PUSHI  #0x00000000
13788 @ 112179:               JUMPIF < L_0004

  2628      update sp
13789 @ 112183:               LINE   2628 "regression-compile-tmp/imp22g-77.imp"
13790 @ 112223:               PUSH   UPDATESP
13791 @ 112226:               CALL  

  2629      forget regs
13792 @ 112227:               LINE   2629 "regression-compile-tmp/imp22g-77.imp"
13793 @ 112267:               PUSH   FORGETREGS
13794 @ 112270:               CALL  

  2630    %else
13795 @ 112271:               LINE   2630 "regression-compile-tmp/imp22g-77.imp"
13796 @ 112311:               GOTO   L_0003
13797 @ 112314:               LOCATE L_0004

  2631      lr == lreg(lab-dictlim)
13798 @ 112317:               LINE   2631 "regression-compile-tmp/imp22g-77.imp"
13799 @ 112357:               PUSH   LR
13800 @ 112360:               PUSH   LREG
13801 @ 112363:               PUSH   LAB
13802 @ 112366:               PUSH   DICTLIM
13803 @ 112369:               SUB   
13804 @ 112370:               ACCESS
13805 @ 112371:               ASSREF

  2632      %if c_access = 0 %start;  !no fall-through
13806 @ 112372:               LINE   2632 "regression-compile-tmp/imp22g-77.imp"
13807 @ 112412:               PUSH   C
13808 @ 112415:               SELECT 16
13809 @ 112418:               PUSHI  #0x00000000
13810 @ 112423:               JUMPIF # L_0007

  2633        c_reg = lr;  !so just incoming context
13811 @ 112427:               LINE   2633 "regression-compile-tmp/imp22g-77.imp"
13812 @ 112467:               PUSH   C
13813 @ 112470:               SELECT 30
13814 @ 112473:               PUSH   LR
13815 @ 112476:               ASSVAL

  2634      %else;  !join
13816 @ 112477:               LINE   2634 "regression-compile-tmp/imp22g-77.imp"
13817 @ 112517:               GOTO   L_0006
13818 @ 112520:               LOCATE L_0007

  2635        %for r = d0,1,maxareg %cycle
13819 @ 112523:               LINE   2635 "regression-compile-tmp/imp22g-77.imp"
13820 @ 112563:               PUSH   R
13821 @ 112566:               PUSHI  #0x00000001
13822 @ 112571:               PUSHI  #0x0000000c
13823 @ 112576:               PUSHI  #0x00000001
13824 @ 112581:               FOR    L_0009

  2636          forget(r) %if c_reg_content(r) # lr_content(r)
13825 @ 112584:               LINE   2636 "regression-compile-tmp/imp22g-77.imp"
13826 @ 112624:               PUSH   C
13827 @ 112627:               SELECT 30
13828 @ 112630:               SELECT 4
13829 @ 112633:               PUSH   R
13830 @ 112636:               ACCESS
13831 @ 112637:               PUSH   LR
13832 @ 112640:               SELECT 4
13833 @ 112643:               PUSH   R
13834 @ 112646:               ACCESS
13835 @ 112647:               JUMPIF = L_000d
13836 @ 112651:               PUSH   FORGET
13837 @ 112654:               PUSH   R
13838 @ 112657:               ASSPAR
13839 @ 112658:               CALL  
13840 @ 112659:               LOCATE L_000d

  2637        %repeat
13841 @ 112662:               LINE   2637 "regression-compile-tmp/imp22g-77.imp"
13842 @ 112702:               REPEAT L_0009
13843 @ 112705:               LOCATE L_000a

  2638        forget cc %if c_reg_ccx # lr_ccx %or c_reg_ccy # lr_ccy
13844 @ 112708:               LINE   2638 "regression-compile-tmp/imp22g-77.imp"
13845 @ 112748:               PUSH   C
13846 @ 112751:               SELECT 30
13847 @ 112754:               SELECT 1
13848 @ 112757:               PUSH   LR
13849 @ 112760:               SELECT 1
13850 @ 112763:               JUMPIF # L_000b
13851 @ 112767:               PUSH   C
13852 @ 112770:               SELECT 30
13853 @ 112773:               SELECT 2
13854 @ 112776:               PUSH   LR
13855 @ 112779:               SELECT 2
13856 @ 112782:               JUMPIF = L_000a
13857 @ 112786:               LOCATE L_000b
13858 @ 112789:               PUSH   FORGETCC
13859 @ 112792:               CALL  
13860 @ 112793:               LOCATE L_000a

  2639        c_reg_line = -9 %if lr_line # c_reg_line
13861 @ 112796:               LINE   2639 "regression-compile-tmp/imp22g-77.imp"
13862 @ 112836:               PUSH   LR
13863 @ 112839:               SELECT 3
13864 @ 112842:               PUSH   C
13865 @ 112845:               SELECT 30
13866 @ 112848:               SELECT 3
13867 @ 112851:               JUMPIF = L_000a
13868 @ 112855:               PUSH   C
13869 @ 112858:               SELECT 30
13870 @ 112861:               SELECT 3
13871 @ 112864:               PUSHI  #0x00000009
13872 @ 112869:               NEGATE
13873 @ 112870:               ASSVAL
13874 @ 112871:               LOCATE L_000a

  2640      %finish
13875 @ 112874:               LINE   2640 "regression-compile-tmp/imp22g-77.imp"
13876 @ 112914:               LOCATE L_0006

  2641    %finish
13877 @ 112917:               LINE   2641 "regression-compile-tmp/imp22g-77.imp"
13878 @ 112957:               LOCATE L_0003

  2642    define jumps(chain)
13879 @ 112960:               LINE   2642 "regression-compile-tmp/imp22g-77.imp"
13880 @ 113000:               PUSH   DEFINEJUMPS
13881 @ 113003:               PUSH   CHAIN
13882 @ 113006:               ASSPAR
13883 @ 113007:               CALL  

  2643    dict(lab)_val = pc
13884 @ 113008:               LINE   2643 "regression-compile-tmp/imp22g-77.imp"
13885 @ 113048:               PUSH   DICT
13886 @ 113051:               PUSH   LAB
13887 @ 113054:               ACCESS
13888 @ 113055:               SELECT 9
13889 @ 113058:               PUSH   PC
13890 @ 113061:               ASSVAL

  2644  {?}  put operand(lab) %if control&codelist # 0 %and control&list # 0
13891 @ 113062:               LINE   2644 "regression-compile-tmp/imp22g-77.imp"
13892 @ 113102:               PUSH   CONTROL
13893 @ 113105:               PUSHI  #0x00000020
13894 @ 113110:               AND   
13895 @ 113111:               PUSHI  #0x00000000
13896 @ 113116:               JUMPIF = L_0004
13897 @ 113120:               PUSH   CONTROL
13898 @ 113123:               PUSHI  #0x00000001
13899 @ 113128:               AND   
13900 @ 113129:               PUSHI  #0x00000000
13901 @ 113134:               JUMPIF = L_0004
13902 @ 113138:               PUSH   PUTOPERAND
13903 @ 113141:               PUSH   LAB
13904 @ 113144:               ASSPAR
13905 @ 113145:               CALL  
13906 @ 113146:               LOCATE L_0004

  2645  %end;  !define label
  2646  
13907 @ 113149:               LINE   2645 "regression-compile-tmp/imp22g-77.imp"
13908 @ 113189:            END    _lev0id0_DEFINELABEL {lev=2 --> 1}

  2647  %routine SET USER LABEL(%integername chain)
13909 @ 113190:            LINE   2647 "regression-compile-tmp/imp22g-77.imp"
13910 @ 113230:            DEF    SETUSERLABEL (_lev0id0_SETUSERLABEL) p1=V_0142 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
13911 @ 113254:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
13912 @ 113255:                  DEF    CHAIN p1=V_0143 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
13913 @ 113272:               FINISH ) {lev=2}

  2648    update sp
13914 @ 113273:               LINE   2648 "regression-compile-tmp/imp22g-77.imp"
13915 @ 113313:               PUSH   UPDATESP
13916 @ 113316:               CALL  

  2649    addimm(c_temps,a7) %if c_temps # 0 %and c_access # 0  {remove temps}
13917 @ 113317:               LINE   2649 "regression-compile-tmp/imp22g-77.imp"
13918 @ 113357:               PUSH   C
13919 @ 113360:               SELECT 24
13920 @ 113363:               PUSHI  #0x00000000
13921 @ 113368:               JUMPIF = L_0004
13922 @ 113372:               PUSH   C
13923 @ 113375:               SELECT 16
13924 @ 113378:               PUSHI  #0x00000000
13925 @ 113383:               JUMPIF = L_0004
13926 @ 113387:               PUSH   ADDIMM
13927 @ 113390:               PUSH   C
13928 @ 113393:               SELECT 24
13929 @ 113396:               ASSPAR
13930 @ 113397:               PUSHI  #0x00000010
13931 @ 113402:               ASSPAR
13932 @ 113403:               CALL  
13933 @ 113404:               LOCATE L_0004

  2650    define jumps(chain)
13934 @ 113407:               LINE   2650 "regression-compile-tmp/imp22g-77.imp"
13935 @ 113447:               PUSH   DEFINEJUMPS
13936 @ 113450:               PUSH   CHAIN
13937 @ 113453:               ASSPAR
13938 @ 113454:               CALL  

  2651    chain = pc
13939 @ 113455:               LINE   2651 "regression-compile-tmp/imp22g-77.imp"
13940 @ 113495:               PUSH   CHAIN
13941 @ 113498:               PUSH   PC
13942 @ 113501:               ASSVAL

  2652    c_access = 1;  !anyway
13943 @ 113502:               LINE   2652 "regression-compile-tmp/imp22g-77.imp"
13944 @ 113542:               PUSH   C
13945 @ 113545:               SELECT 16
13946 @ 113548:               PUSHI  #0x00000001
13947 @ 113553:               ASSVAL

  2653    addimm(-c_temps,a7) %if c_temps # 0  {restore temps}
13948 @ 113554:               LINE   2653 "regression-compile-tmp/imp22g-77.imp"
13949 @ 113594:               PUSH   C
13950 @ 113597:               SELECT 24
13951 @ 113600:               PUSHI  #0x00000000
13952 @ 113605:               JUMPIF = L_0004
13953 @ 113609:               PUSH   ADDIMM
13954 @ 113612:               PUSH   C
13955 @ 113615:               SELECT 24
13956 @ 113618:               NEGATE
13957 @ 113619:               ASSPAR
13958 @ 113620:               PUSHI  #0x00000010
13959 @ 113625:               ASSPAR
13960 @ 113626:               CALL  
13961 @ 113627:               LOCATE L_0004

  2654    forget regs
13962 @ 113630:               LINE   2654 "regression-compile-tmp/imp22g-77.imp"
13963 @ 113670:               PUSH   FORGETREGS
13964 @ 113673:               CALL  

  2655    forget triples %if curlab = c_lab1
13965 @ 113674:               LINE   2655 "regression-compile-tmp/imp22g-77.imp"
13966 @ 113714:               PUSH   CURLAB
13967 @ 113717:               PUSH   C
13968 @ 113720:               SELECT 18
13969 @ 113723:               JUMPIF # L_0004
13970 @ 113727:               PUSH   FORGETTRIPLES
13971 @ 113730:               CALL  
13972 @ 113731:               LOCATE L_0004

  2656  %end
  2657  
13973 @ 113734:               LINE   2656 "regression-compile-tmp/imp22g-77.imp"
13974 @ 113774:            END    _lev0id0_SETUSERLABEL {lev=2 --> 1}

  2658  %routine FLUSH
13975 @ 113775:            LINE   2658 "regression-compile-tmp/imp22g-77.imp"
13976 @ 113815:            DEF    FLUSH (_lev0id0_FLUSH) p1=V_0143 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
13977 @ 113832:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
13978 @ 113833:               FINISH ) {lev=2}

  2659    %if pendcond < 0 %start;  !indicator for line num update
13979 @ 113834:               LINE   2659 "regression-compile-tmp/imp22g-77.imp"
13980 @ 113874:               PUSH   PENDCOND
13981 @ 113877:               PUSHI  #0x00000000
13982 @ 113882:               JUMPIF >= L_0004

  2660      litstore(litpos) = line
13983 @ 113886:               LINE   2660 "regression-compile-tmp/imp22g-77.imp"
13984 @ 113926:               PUSH   LITSTORE
13985 @ 113929:               PUSH   LITPOS
13986 @ 113932:               ACCESS
13987 @ 113933:               PUSH   LINE
13988 @ 113936:               ASSVAL

  2661      %if control&tracebit # 0 %then plantlit2(trapi,litpos,15) %c
  2662      %else %if line-c_reg_line > 8 %then plant(move+2<<8,litpos,lineloc) %c
  2663      %else plantlit(add+2<<8,line-c_reg_line,lineloc)
13989 @ 113937:               LINE   2661 "regression-compile-tmp/imp22g-77.imp"
13990 @ 113977:               PUSH   CONTROL
13991 @ 113980:               PUSHI  #0x00200000
13992 @ 113985:               AND   
13993 @ 113986:               PUSHI  #0x00000000
13994 @ 113991:               JUMPIF = L_0007
13995 @ 113995:               PUSH   PLANTLIT2
13996 @ 113998:               PUSHI  #0x00000065
13997 @ 114003:               ASSPAR
13998 @ 114004:               PUSH   LITPOS
13999 @ 114007:               ASSPAR
14000 @ 114008:               PUSHI  #0x0000000f
14001 @ 114013:               ASSPAR
14002 @ 114014:               CALL  
14003 @ 114015:               GOTO   L_0006
14004 @ 114018:               LOCATE L_0007
14005 @ 114021:               PUSH   LINE
14006 @ 114024:               PUSH   C
14007 @ 114027:               SELECT 30
14008 @ 114030:               SELECT 3
14009 @ 114033:               SUB   
14010 @ 114034:               PUSHI  #0x00000008
14011 @ 114039:               JUMPIF <= L_0007
14012 @ 114043:               PUSH   PLANT
14013 @ 114046:               PUSHI  #0x00000001
14014 @ 114051:               PUSHI  #0x00000002
14015 @ 114056:               PUSHI  #0x00000008
14016 @ 114061:               LSH   
14017 @ 114062:               ADD   
14018 @ 114063:               ASSPAR
14019 @ 114064:               PUSH   LITPOS
14020 @ 114067:               ASSPAR
14021 @ 114068:               PUSHI  #0x00000006
14022 @ 114073:               ASSPAR
14023 @ 114074:               CALL  
14024 @ 114075:               GOTO   L_0006
14025 @ 114078:               LOCATE L_0007
14026 @ 114081:               PUSH   PLANTLIT
14027 @ 114084:               PUSHI  #0x00000002
14028 @ 114089:               PUSHI  #0x00000002
14029 @ 114094:               PUSHI  #0x00000008
14030 @ 114099:               LSH   
14031 @ 114100:               ADD   
14032 @ 114101:               ASSPAR
14033 @ 114102:               PUSH   LINE
14034 @ 114105:               PUSH   C
14035 @ 114108:               SELECT 30
14036 @ 114111:               SELECT 3
14037 @ 114114:               SUB   
14038 @ 114115:               ASSPAR
14039 @ 114116:               PUSHI  #0x00000006
14040 @ 114121:               ASSPAR
14041 @ 114122:               CALL  
14042 @ 114123:               LOCATE L_0006

  2664      forget cc;  c_reg_line = line
14043 @ 114126:               LINE   2664 "regression-compile-tmp/imp22g-77.imp"
14044 @ 114166:               PUSH   FORGETCC
14045 @ 114169:               CALL  
14046 @ 114170:               LINE   2664 "regression-compile-tmp/imp22g-77.imp"
14047 @ 114210:               PUSH   C
14048 @ 114213:               SELECT 30
14049 @ 114216:               SELECT 3
14050 @ 114219:               PUSH   LINE
14051 @ 114222:               ASSVAL

  2665    %else
14052 @ 114223:               LINE   2665 "regression-compile-tmp/imp22g-77.imp"
14053 @ 114263:               GOTO   L_0003
14054 @ 114266:               LOCATE L_0004

  2666      %if pendout # 0 %start
14055 @ 114269:               LINE   2666 "regression-compile-tmp/imp22g-77.imp"
14056 @ 114309:               PUSH   PENDOUT
14057 @ 114312:               PUSHI  #0x00000000
14058 @ 114317:               JUMPIF = L_0007

  2667        pendcond = pendcond&15
14059 @ 114321:               LINE   2667 "regression-compile-tmp/imp22g-77.imp"
14060 @ 114361:               PUSH   PENDCOND
14061 @ 114364:               PUSH   PENDCOND
14062 @ 114367:               PUSHI  #0x0000000f
14063 @ 114372:               AND   
14064 @ 114373:               ASSVAL

  2668        c_access = 0 %if pendcond = 0
14065 @ 114374:               LINE   2668 "regression-compile-tmp/imp22g-77.imp"
14066 @ 114414:               PUSH   PENDCOND
14067 @ 114417:               PUSHI  #0x00000000
14068 @ 114422:               JUMPIF # L_000a
14069 @ 114426:               PUSH   C
14070 @ 114429:               SELECT 16
14071 @ 114432:               PUSHI  #0x00000000
14072 @ 114437:               ASSVAL
14073 @ 114438:               LOCATE L_000a

  2669        %if pendcond # 1 %start
14074 @ 114441:               LINE   2669 "regression-compile-tmp/imp22g-77.imp"
14075 @ 114481:               PUSH   PENDCOND
14076 @ 114484:               PUSHI  #0x00000001
14077 @ 114489:               JUMPIF = L_000a

  2670          save context(pendout)
14078 @ 114493:               LINE   2670 "regression-compile-tmp/imp22g-77.imp"
14079 @ 114533:               PUSH   SAVECONTEXT
14080 @ 114536:               PUSH   PENDOUT
14081 @ 114539:               ASSPAR
14082 @ 114540:               CALL  

  2671          plant(bra+pendcond,0,pendout)
14083 @ 114541:               LINE   2671 "regression-compile-tmp/imp22g-77.imp"
14084 @ 114581:               PUSH   PLANT
14085 @ 114584:               PUSHI  #0x00000010
14086 @ 114589:               PUSH   PENDCOND
14087 @ 114592:               ADD   
14088 @ 114593:               ASSPAR
14089 @ 114594:               PUSHI  #0x00000000
14090 @ 114599:               ASSPAR
14091 @ 114600:               PUSH   PENDOUT
14092 @ 114603:               ASSPAR
14093 @ 114604:               CALL  

  2672        %finish
14094 @ 114605:               LINE   2672 "regression-compile-tmp/imp22g-77.imp"
14095 @ 114645:               LOCATE L_000a

  2673      %finish
14096 @ 114648:               LINE   2673 "regression-compile-tmp/imp22g-77.imp"
14097 @ 114688:               LOCATE L_0007

  2674      define label(pendin) %if pendin # 0
14098 @ 114691:               LINE   2674 "regression-compile-tmp/imp22g-77.imp"
14099 @ 114731:               PUSH   PENDIN
14100 @ 114734:               PUSHI  #0x00000000
14101 @ 114739:               JUMPIF = L_0007
14102 @ 114743:               PUSH   DEFINELABEL
14103 @ 114746:               PUSH   PENDIN
14104 @ 114749:               ASSPAR
14105 @ 114750:               CALL  
14106 @ 114751:               LOCATE L_0007

  2675    %finish
14107 @ 114754:               LINE   2675 "regression-compile-tmp/imp22g-77.imp"
14108 @ 114794:               LOCATE L_0003

  2676    pendcond = 0
14109 @ 114797:               LINE   2676 "regression-compile-tmp/imp22g-77.imp"
14110 @ 114837:               PUSH   PENDCOND
14111 @ 114840:               PUSHI  #0x00000000
14112 @ 114845:               ASSVAL

  2677  %end
  2678  
  2679  !!!!!!!!!!!!!!!!   Main code generation procedure  !!!!!!!!!!!!!!!!!!!!!
  2680  
14113 @ 114846:               LINE   2677 "regression-compile-tmp/imp22g-77.imp"
14114 @ 114886:            END    _lev0id0_FLUSH {lev=2 --> 1}

  2681  %constinteger INST=1<<30
  2682  
14115 @ 114887:            LINE   2681 "regression-compile-tmp/imp22g-77.imp"

  2683  %routine EVAL(%integername pp, %integer rset)
  2684  !Evaluate the operand identified by PP as defined by RSET:
  2685  !  RSET = boolean vector of acceptable registers
  2686  !  + SIGN to indicate that stopping at EA is acceptable
  2687  !  + 1<<16 to indicate byte value ok
  2688  !  + 2<<16 to indicate short value ok
  2689  !  + STACK if stack ok [not yet: too complex]
14116 @ 114927:            LINE   2683 "regression-compile-tmp/imp22g-77.imp"
14117 @ 114967:            DEF    EVAL (_lev0id0_EVAL) p1=V_0144 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
14118 @ 114983:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
14119 @ 114984:                  DEF    PP p1=V_0145 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
14120 @ 114998:                  DEF    RSET p1=V_0146 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
14121 @ 115014:               FINISH ) {lev=2}

  2690  %constinteger ASL=32,
  2691                CMPM=43,
  2692                TRAPV=70,
  2693                SWAP=74, EXTL=76,
  2694                JMP=57, TST=59, DBNE=86
  2695                
14122 @ 115015:               LINE   2690 "regression-compile-tmp/imp22g-77.imp"

  2696  %constinteger MOVEW=move+2<<8, ADDW=add+2<<8,
  2697                MOVEB=move+1<<8, ADDB=add+1<<8,
  2698                SUBB=sub+1<<8, CMPB=cmp+1<<8,
  2699                CMPMB=cmpm+1<<8
  2700  
14123 @ 115055:               LINE   2696 "regression-compile-tmp/imp22g-77.imp"

  2701  %constinteger VAL=sign+anyreg, REF=sign,
  2702                SIZESHIFT=16,
  2703                TOBYTE=1<<16, TOSHORT=1<<17, {1<<18 not sig}
  2704                TOSTACK=1<<19, ASAD=1<<20
  2705  
14124 @ 115095:               LINE   2701 "regression-compile-tmp/imp22g-77.imp"

  2706  %switch DO(0:opmax)
14125 @ 115135:               LINE   2706 "regression-compile-tmp/imp22g-77.imp"
14126 @ 115175:               PUSHI  #0x00000000
14127 @ 115180:               PUSHI  #0x00000075
14128 @ 115185:               BOUNDS
14129 @ 115186:               DEF    DO p1=V_0147 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

  2707  %owninteger STSIZ=0;  !this variable is used to convey a
  2708      !rarely required 3rd parameter to EVAL
  2709      !Its value is captured into STSIZE on entry
  2710      !A negative value indicates a string;
  2711      ! a positive value a fixed length structure
  2712      ! * CF normal use of negative/positive size *
14130 @ 115200:               LINE   2707 "regression-compile-tmp/imp22g-77.imp"
14131 @ 115240:               PUSHI  #0x00000000
14132 @ 115245:               DEF    STSIZ p1=V_0148 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
14133 @ 115262:               INIT   1

  2713  %integer I,J,P,ACT,X,Y,XX,YY,WX,WY,SX,SY,R,OLDFREE,FREED
14134 @ 115265:               LINE   2713 "regression-compile-tmp/imp22g-77.imp"
14135 @ 115305:               DEF    I p1=V_0149 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
14136 @ 115318:               DEF    J p1=V_014a a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
14137 @ 115331:               DEF    P p1=V_014b a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
14138 @ 115344:               DEF    ACT p1=V_014c a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
14139 @ 115359:               DEF    X p1=V_014d a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
14140 @ 115372:               DEF    Y p1=V_014e a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
14141 @ 115385:               DEF    XX p1=V_014f a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
14142 @ 115399:               DEF    YY p1=V_0150 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
14143 @ 115413:               DEF    WX p1=V_0151 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
14144 @ 115427:               DEF    WY p1=V_0152 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
14145 @ 115441:               DEF    SX p1=V_0153 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
14146 @ 115455:               DEF    SY p1=V_0154 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
14147 @ 115469:               DEF    R p1=V_0155 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
14148 @ 115482:               DEF    OLDFREE p1=V_0156 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
14149 @ 115501:               DEF    FREED p1=V_0157 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  2714  %integer M,V,SP,STSIZE,OP,CASE
14150 @ 115518:               LINE   2714 "regression-compile-tmp/imp22g-77.imp"
14151 @ 115558:               DEF    M p1=V_0158 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
14152 @ 115571:               DEF    V p1=V_0159 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
14153 @ 115584:               DEF    SP p1=V_015a a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
14154 @ 115598:               DEF    STSIZE p1=V_015b a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
14155 @ 115616:               DEF    OP p1=V_015c a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
14156 @ 115630:               DEF    CASE p1=V_015d a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  2715  %record(identinfo)%name DP,DX,DY,TX
  2716  
14157 @ 115646:               LINE   2715 "regression-compile-tmp/imp22g-77.imp"
14158 @ 115686:               DEF    DP p1=V_015e a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
14159 @ 115700:               DEF    DX p1=V_015f a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
14160 @ 115714:               DEF    DY p1=V_0160 a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
14161 @ 115728:               DEF    TX p1=V_0161 a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  2717  %integer%fn FREE DREG
14162 @ 115742:               LINE   2717 "regression-compile-tmp/imp22g-77.imp"
14163 @ 115782:               DEF    FREEDREG (_lev0id0_EVAL_FREEDREG) p1=V_0162 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
14164 @ 115802:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
14165 @ 115803:                  FINISH ) {lev=3}

  2718    %result = free reg(anydreg)
14166 @ 115804:                  LINE   2718 "regression-compile-tmp/imp22g-77.imp"
14167 @ 115844:                  PUSH   FREEREG
14168 @ 115847:                  PUSHI  #0x000000ef
14169 @ 115852:                  ASSPAR
14170 @ 115853:                  CALL  
14171 @ 115854:                  RESULT

  2719  %end
  2720  
14172 @ 115855:                  LINE   2719 "regression-compile-tmp/imp22g-77.imp"
14173 @ 115895:               END    _lev0id0_EVAL_FREEDREG {lev=3 --> 2}

  2721  %integer%fn FREE AREG(%integer content)
14174 @ 115896:               LINE   2721 "regression-compile-tmp/imp22g-77.imp"
14175 @ 115936:               DEF    FREEAREG (_lev0id0_EVAL_FREEAREG) p1=V_0163 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
14176 @ 115956:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
14177 @ 115957:                     DEF    CONTENT p1=V_0164 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
14178 @ 115976:                  FINISH ) {lev=3}

  2722  %integer r
14179 @ 115977:                  LINE   2722 "regression-compile-tmp/imp22g-77.imp"
14180 @ 116017:                  DEF    R p1=V_0165 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  2723    r = free reg(anyareg)
14181 @ 116030:                  LINE   2723 "regression-compile-tmp/imp22g-77.imp"
14182 @ 116070:                  PUSH   R
14183 @ 116073:                  PUSH   FREEREG
14184 @ 116076:                  PUSHI  #0x0000ff00
14185 @ 116081:                  ASSPAR
14186 @ 116082:                  CALL  
14187 @ 116083:                  ASSVAL

  2724    c_reg_content(r) = content
14188 @ 116084:                  LINE   2724 "regression-compile-tmp/imp22g-77.imp"
14189 @ 116124:                  PUSH   C
14190 @ 116127:                  SELECT 30
14191 @ 116130:                  SELECT 4
14192 @ 116133:                  PUSH   R
14193 @ 116136:                  ACCESS
14194 @ 116137:                  PUSH   CONTENT
14195 @ 116140:                  ASSVAL

  2725    %result = r
14196 @ 116141:                  LINE   2725 "regression-compile-tmp/imp22g-77.imp"
14197 @ 116181:                  PUSH   R
14198 @ 116184:                  RESULT

  2726  %end
  2727  
14199 @ 116185:                  LINE   2726 "regression-compile-tmp/imp22g-77.imp"
14200 @ 116225:               END    _lev0id0_EVAL_FREEAREG {lev=3 --> 2}

  2728  %routine PUSH(%integer x)
14201 @ 116226:               LINE   2728 "regression-compile-tmp/imp22g-77.imp"
14202 @ 116266:               DEF    PUSH (_lev0id0_EVAL_PUSH) p1=V_0164 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
14203 @ 116282:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
14204 @ 116283:                     DEF    X p1=V_0165 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
14205 @ 116296:                  FINISH ) {lev=3}

  2729    plant(move,x,prea7);  extend stack(4)
14206 @ 116297:                  LINE   2729 "regression-compile-tmp/imp22g-77.imp"
14207 @ 116337:                  PUSH   PLANT
14208 @ 116340:                  PUSHI  #0x00000001
14209 @ 116345:                  ASSPAR
14210 @ 116346:                  PUSH   X
14211 @ 116349:                  ASSPAR
14212 @ 116350:                  PUSHI  #0x00000028
14213 @ 116355:                  ASSPAR
14214 @ 116356:                  CALL  
14215 @ 116357:                  LINE   2729 "regression-compile-tmp/imp22g-77.imp"
14216 @ 116397:                  PUSH   EXTENDSTACK
14217 @ 116400:                  PUSHI  #0x00000004
14218 @ 116405:                  ASSPAR
14219 @ 116406:                  CALL  

  2730  %end
14220 @ 116407:                  LINE   2730 "regression-compile-tmp/imp22g-77.imp"
14221 @ 116447:               END    _lev0id0_EVAL_PUSH {lev=3 --> 2}

  2731  %routine POP(%integer x)
14222 @ 116448:               LINE   2731 "regression-compile-tmp/imp22g-77.imp"
14223 @ 116488:               DEF    POP (_lev0id0_EVAL_POP) p1=V_0165 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
14224 @ 116503:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
14225 @ 116504:                     DEF    X p1=V_0166 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
14226 @ 116517:                  FINISH ) {lev=3}

  2732    plant(move,posta7,x);  c_sp = c_sp+4
14227 @ 116518:                  LINE   2732 "regression-compile-tmp/imp22g-77.imp"
14228 @ 116558:                  PUSH   PLANT
14229 @ 116561:                  PUSHI  #0x00000001
14230 @ 116566:                  ASSPAR
14231 @ 116567:                  PUSHI  #0x00000020
14232 @ 116572:                  ASSPAR
14233 @ 116573:                  PUSH   X
14234 @ 116576:                  ASSPAR
14235 @ 116577:                  CALL  
14236 @ 116578:                  LINE   2732 "regression-compile-tmp/imp22g-77.imp"
14237 @ 116618:                  PUSH   C
14238 @ 116621:                  SELECT 1
14239 @ 116624:                  PUSH   C
14240 @ 116627:                  SELECT 1
14241 @ 116630:                  PUSHI  #0x00000004
14242 @ 116635:                  ADD   
14243 @ 116636:                  ASSVAL

  2733  %end
14244 @ 116637:                  LINE   2733 "regression-compile-tmp/imp22g-77.imp"
14245 @ 116677:               END    _lev0id0_EVAL_POP {lev=3 --> 2}

  2734  %routine PUSHS(%integer x,s)
14246 @ 116678:               LINE   2734 "regression-compile-tmp/imp22g-77.imp"
14247 @ 116718:               DEF    PUSHS (_lev0id0_EVAL_PUSHS) p1=V_0166 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
14248 @ 116735:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
14249 @ 116736:                     DEF    X p1=V_0167 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
14250 @ 116749:                     DEF    S p1=V_0168 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
14251 @ 116762:                  FINISH ) {lev=3}

  2735    plant(move+s<<8,x,prea7)
14252 @ 116763:                  LINE   2735 "regression-compile-tmp/imp22g-77.imp"
14253 @ 116803:                  PUSH   PLANT
14254 @ 116806:                  PUSHI  #0x00000001
14255 @ 116811:                  PUSH   S
14256 @ 116814:                  PUSHI  #0x00000008
14257 @ 116819:                  LSH   
14258 @ 116820:                  ADD   
14259 @ 116821:                  ASSPAR
14260 @ 116822:                  PUSH   X
14261 @ 116825:                  ASSPAR
14262 @ 116826:                  PUSHI  #0x00000028
14263 @ 116831:                  ASSPAR
14264 @ 116832:                  CALL  

  2736    %if s < 4 %then extend stack(2) %else extend stack(4)
14265 @ 116833:                  LINE   2736 "regression-compile-tmp/imp22g-77.imp"
14266 @ 116873:                  PUSH   S
14267 @ 116876:                  PUSHI  #0x00000004
14268 @ 116881:                  JUMPIF >= L_0004
14269 @ 116885:                  PUSH   EXTENDSTACK
14270 @ 116888:                  PUSHI  #0x00000002
14271 @ 116893:                  ASSPAR
14272 @ 116894:                  CALL  
14273 @ 116895:                  GOTO   L_0003
14274 @ 116898:                  LOCATE L_0004
14275 @ 116901:                  PUSH   EXTENDSTACK
14276 @ 116904:                  PUSHI  #0x00000004
14277 @ 116909:                  ASSPAR
14278 @ 116910:                  CALL  
14279 @ 116911:                  LOCATE L_0003

  2737  %end
  2738  
14280 @ 116914:                  LINE   2737 "regression-compile-tmp/imp22g-77.imp"
14281 @ 116954:               END    _lev0id0_EVAL_PUSHS {lev=3 --> 2}

  2739  %routine PUSH BLOCK(%integer areg,bytes)
14282 @ 116955:               LINE   2739 "regression-compile-tmp/imp22g-77.imp"
14283 @ 116995:               DEF    PUSHBLOCK (_lev0id0_EVAL_PUSHBLOCK) p1=V_0167 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
14284 @ 117016:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
14285 @ 117017:                     DEF    AREG p1=V_0168 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
14286 @ 117033:                     DEF    BYTES p1=V_0169 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
14287 @ 117050:                  FINISH ) {lev=3}

  2740    %if bytes <= 4 %then move block(areg+indir,prea7,bytes) %c
  2741    %else addimm(bytes,areg) %and move block(areg+pre,prea7,bytes)
14288 @ 117051:                  LINE   2740 "regression-compile-tmp/imp22g-77.imp"
14289 @ 117091:                  PUSH   BYTES
14290 @ 117094:                  PUSHI  #0x00000004
14291 @ 117099:                  JUMPIF > L_0004
14292 @ 117103:                  PUSH   MOVEBLOCK
14293 @ 117106:                  PUSH   AREG
14294 @ 117109:                  PUSHI  #0x00000008
14295 @ 117114:                  ADD   
14296 @ 117115:                  ASSPAR
14297 @ 117116:                  PUSHI  #0x00000028
14298 @ 117121:                  ASSPAR
14299 @ 117122:                  PUSH   BYTES
14300 @ 117125:                  ASSPAR
14301 @ 117126:                  CALL  
14302 @ 117127:                  GOTO   L_0003
14303 @ 117130:                  LOCATE L_0004
14304 @ 117133:                  PUSH   ADDIMM
14305 @ 117136:                  PUSH   BYTES
14306 @ 117139:                  ASSPAR
14307 @ 117140:                  PUSH   AREG
14308 @ 117143:                  ASSPAR
14309 @ 117144:                  CALL  
14310 @ 117145:                  PUSH   MOVEBLOCK
14311 @ 117148:                  PUSH   AREG
14312 @ 117151:                  PUSHI  #0x00000018
14313 @ 117156:                  ADD   
14314 @ 117157:                  ASSPAR
14315 @ 117158:                  PUSHI  #0x00000028
14316 @ 117163:                  ASSPAR
14317 @ 117164:                  PUSH   BYTES
14318 @ 117167:                  ASSPAR
14319 @ 117168:                  CALL  
14320 @ 117169:                  LOCATE L_0003

  2742    extend stack(bytes)
14321 @ 117172:                  LINE   2742 "regression-compile-tmp/imp22g-77.imp"
14322 @ 117212:                  PUSH   EXTENDSTACK
14323 @ 117215:                  PUSH   BYTES
14324 @ 117218:                  ASSPAR
14325 @ 117219:                  CALL  

  2743  %end
  2744  
14326 @ 117220:                  LINE   2743 "regression-compile-tmp/imp22g-77.imp"
14327 @ 117260:               END    _lev0id0_EVAL_PUSHBLOCK {lev=3 --> 2}

  2745  %routine COMPILE UNCOND BRANCH(%integer l)
14328 @ 117261:               LINE   2745 "regression-compile-tmp/imp22g-77.imp"
14329 @ 117301:               DEF    COMPILEUNCONDBRANCH (_lev0id0_EVAL_COMPILEUNCONDBRANCH) p1=V_0168 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
14330 @ 117332:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
14331 @ 117333:                     DEF    L p1=V_0169 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
14332 @ 117346:                  FINISH ) {lev=3}

  2746    %if pendcond # 0 %start
14333 @ 117347:                  LINE   2746 "regression-compile-tmp/imp22g-77.imp"
14334 @ 117387:                  PUSH   PENDCOND
14335 @ 117390:                  PUSHI  #0x00000000
14336 @ 117395:                  JUMPIF = L_0004

  2747      %if pendcond < 0 %start
14337 @ 117399:                  LINE   2747 "regression-compile-tmp/imp22g-77.imp"
14338 @ 117439:                  PUSH   PENDCOND
14339 @ 117442:                  PUSHI  #0x00000000
14340 @ 117447:                  JUMPIF >= L_0007

  2748        pendcond = 0;  !ok?
14341 @ 117451:                  LINE   2748 "regression-compile-tmp/imp22g-77.imp"
14342 @ 117491:                  PUSH   PENDCOND
14343 @ 117494:                  PUSHI  #0x00000000
14344 @ 117499:                  ASSVAL

  2749      %finish %else %if pendin # 0 %start
14345 @ 117500:                  LINE   2749 "regression-compile-tmp/imp22g-77.imp"
14346 @ 117540:                  GOTO   L_0006
14347 @ 117543:                  LOCATE L_0007
14348 @ 117546:                  PUSH   PENDIN
14349 @ 117549:                  PUSHI  #0x00000000
14350 @ 117554:                  JUMPIF = L_0007

  2750        flush;                ![safe - improvable?]
14351 @ 117558:                  LINE   2750 "regression-compile-tmp/imp22g-77.imp"
14352 @ 117598:                  PUSH   FLUSH
14353 @ 117601:                  CALL  

  2751      %else
14354 @ 117602:                  LINE   2751 "regression-compile-tmp/imp22g-77.imp"
14355 @ 117642:                  GOTO   L_0006
14356 @ 117645:                  LOCATE L_0007

  2752        pendcond = pendcond!!1
14357 @ 117648:                  LINE   2752 "regression-compile-tmp/imp22g-77.imp"
14358 @ 117688:                  PUSH   PENDCOND
14359 @ 117691:                  PUSH   PENDCOND
14360 @ 117694:                  PUSHI  #0x00000001
14361 @ 117699:                  XOR   
14362 @ 117700:                  ASSVAL

  2753        c_access = -2 %if pp+1 < np %and dict(pp+1)_act = else
14363 @ 117701:                  LINE   2753 "regression-compile-tmp/imp22g-77.imp"
14364 @ 117741:                  PUSH   PP
14365 @ 117744:                  PUSHI  #0x00000001
14366 @ 117749:                  ADD   
14367 @ 117750:                  PUSH   NP
14368 @ 117753:                  JUMPIF >= L_000a
14369 @ 117757:                  PUSH   DICT
14370 @ 117760:                  PUSH   PP
14371 @ 117763:                  PUSHI  #0x00000001
14372 @ 117768:                  ADD   
14373 @ 117769:                  ACCESS
14374 @ 117770:                  SELECT 6
14375 @ 117773:                  PUSHI  #0x00000028
14376 @ 117778:                  JUMPIF # L_000a
14377 @ 117782:                  PUSH   C
14378 @ 117785:                  SELECT 16
14379 @ 117788:                  PUSHI  #0x00000002
14380 @ 117793:                  NEGATE
14381 @ 117794:                  ASSVAL
14382 @ 117795:                  LOCATE L_000a

  2754      %finish
14383 @ 117798:                  LINE   2754 "regression-compile-tmp/imp22g-77.imp"
14384 @ 117838:                  LOCATE L_0006

  2755    %finish
14385 @ 117841:                  LINE   2755 "regression-compile-tmp/imp22g-77.imp"
14386 @ 117881:                  LOCATE L_0004

  2756    pendcond = pendcond&15
14387 @ 117884:                  LINE   2756 "regression-compile-tmp/imp22g-77.imp"
14388 @ 117924:                  PUSH   PENDCOND
14389 @ 117927:                  PUSH   PENDCOND
14390 @ 117930:                  PUSHI  #0x0000000f
14391 @ 117935:                  AND   
14392 @ 117936:                  ASSVAL

  2757    c_access = 0 %if pendcond = 0
14393 @ 117937:                  LINE   2757 "regression-compile-tmp/imp22g-77.imp"
14394 @ 117977:                  PUSH   PENDCOND
14395 @ 117980:                  PUSHI  #0x00000000
14396 @ 117985:                  JUMPIF # L_0004
14397 @ 117989:                  PUSH   C
14398 @ 117992:                  SELECT 16
14399 @ 117995:                  PUSHI  #0x00000000
14400 @ 118000:                  ASSVAL
14401 @ 118001:                  LOCATE L_0004

  2758    plant(bra+pendcond,0,l) %if pendcond # 1
14402 @ 118004:                  LINE   2758 "regression-compile-tmp/imp22g-77.imp"
14403 @ 118044:                  PUSH   PENDCOND
14404 @ 118047:                  PUSHI  #0x00000001
14405 @ 118052:                  JUMPIF = L_0004
14406 @ 118056:                  PUSH   PLANT
14407 @ 118059:                  PUSHI  #0x00000010
14408 @ 118064:                  PUSH   PENDCOND
14409 @ 118067:                  ADD   
14410 @ 118068:                  ASSPAR
14411 @ 118069:                  PUSHI  #0x00000000
14412 @ 118074:                  ASSPAR
14413 @ 118075:                  PUSH   L
14414 @ 118078:                  ASSPAR
14415 @ 118079:                  CALL  
14416 @ 118080:                  LOCATE L_0004

  2759    pendcond = 0
14417 @ 118083:                  LINE   2759 "regression-compile-tmp/imp22g-77.imp"
14418 @ 118123:                  PUSH   PENDCOND
14419 @ 118126:                  PUSHI  #0x00000000
14420 @ 118131:                  ASSVAL

  2760  %end
  2761  
14421 @ 118132:                  LINE   2760 "regression-compile-tmp/imp22g-77.imp"
14422 @ 118172:               END    _lev0id0_EVAL_COMPILEUNCONDBRANCH {lev=3 --> 2}

  2762  %integer%fn CLEAN REG
14423 @ 118173:               LINE   2762 "regression-compile-tmp/imp22g-77.imp"
14424 @ 118213:               DEF    CLEANREG (_lev0id0_EVAL_CLEANREG) p1=V_0169 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
14425 @ 118233:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
14426 @ 118234:                  FINISH ) {lev=3}

  2763  %integer r
14427 @ 118235:                  LINE   2763 "regression-compile-tmp/imp22g-77.imp"
14428 @ 118275:                  DEF    R p1=V_016a a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  2764    free = free-bregb %and %result = breg %if free&bregb # 0
14429 @ 118288:                  LINE   2764 "regression-compile-tmp/imp22g-77.imp"
14430 @ 118328:                  PUSH   FREE
14431 @ 118331:                  PUSHI  #0x00000010
14432 @ 118336:                  AND   
14433 @ 118337:                  PUSHI  #0x00000000
14434 @ 118342:                  JUMPIF = L_0004
14435 @ 118346:                  PUSH   FREE
14436 @ 118349:                  PUSH   FREE
14437 @ 118352:                  PUSHI  #0x00000010
14438 @ 118357:                  SUB   
14439 @ 118358:                  ASSVAL
14440 @ 118359:                  PUSHI  #0x00000005
14441 @ 118364:                  RESULT
14442 @ 118365:                  LOCATE L_0004

  2765    r = free dreg
14443 @ 118368:                  LINE   2765 "regression-compile-tmp/imp22g-77.imp"
14444 @ 118408:                  PUSH   R
14445 @ 118411:                  PUSH   FREEDREG
14446 @ 118414:                  CALL  
14447 @ 118415:                  ASSVAL

  2766    plant(clr,0,r)
14448 @ 118416:                  LINE   2766 "regression-compile-tmp/imp22g-77.imp"
14449 @ 118456:                  PUSH   PLANT
14450 @ 118459:                  PUSHI  #0x00000034
14451 @ 118464:                  ASSPAR
14452 @ 118465:                  PUSHI  #0x00000000
14453 @ 118470:                  ASSPAR
14454 @ 118471:                  PUSH   R
14455 @ 118474:                  ASSPAR
14456 @ 118475:                  CALL  

  2767    %result = r
14457 @ 118476:                  LINE   2767 "regression-compile-tmp/imp22g-77.imp"
14458 @ 118516:                  PUSH   R
14459 @ 118519:                  RESULT

  2768  %end
  2769  
14460 @ 118520:                  LINE   2768 "regression-compile-tmp/imp22g-77.imp"
14461 @ 118560:               END    _lev0id0_EVAL_CLEANREG {lev=3 --> 2}

  2770  %integer%fn WEIGHT(%integer p)
  2771  !(Heuristic: can't anticipate all generation decisions)
14462 @ 118561:               LINE   2770 "regression-compile-tmp/imp22g-77.imp"
14463 @ 118601:               DEF    WEIGHT (_lev0id0_EVAL_WEIGHT) p1=V_016a 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
14464 @ 118619:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
14465 @ 118620:                     DEF    P p1=V_016b a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
14466 @ 118633:                  FINISH ) {lev=3}

  2772  %integer a,wy
14467 @ 118634:                  LINE   2772 "regression-compile-tmp/imp22g-77.imp"
14468 @ 118674:                  DEF    A p1=V_016c a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
14469 @ 118687:                  DEF    WY p1=V_016d a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  2773  %record(identinfo)%name dp
14470 @ 118701:                  LINE   2773 "regression-compile-tmp/imp22g-77.imp"
14471 @ 118741:                  DEF    DP p1=V_016e a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  2774    p = p-ad %if p >= explim
14472 @ 118755:                  LINE   2774 "regression-compile-tmp/imp22g-77.imp"
14473 @ 118795:                  PUSH   P
14474 @ 118798:                  PUSH   EXPLIM
14475 @ 118801:                  JUMPIF < L_0004
14476 @ 118805:                  PUSH   P
14477 @ 118808:                  PUSH   P
14478 @ 118811:                  PUSHI  #0x00004000
14479 @ 118816:                  SUB   
14480 @ 118817:                  ASSVAL
14481 @ 118818:                  LOCATE L_0004

  2775    %result = 1 %if p < np0
14482 @ 118821:                  LINE   2775 "regression-compile-tmp/imp22g-77.imp"
14483 @ 118861:                  PUSH   P
14484 @ 118864:                  PUSH   NP0
14485 @ 118867:                  JUMPIF >= L_0004
14486 @ 118871:                  PUSHI  #0x00000001
14487 @ 118876:                  RESULT
14488 @ 118877:                  LOCATE L_0004

  2776    dp == dict(p)
14489 @ 118880:                  LINE   2776 "regression-compile-tmp/imp22g-77.imp"
14490 @ 118920:                  PUSH   DP
14491 @ 118923:                  PUSH   DICT
14492 @ 118926:                  PUSH   P
14493 @ 118929:                  ACCESS
14494 @ 118930:                  ASSREF

  2777    a = dp_act
14495 @ 118931:                  LINE   2777 "regression-compile-tmp/imp22g-77.imp"
14496 @ 118971:                  PUSH   A
14497 @ 118974:                  PUSH   DP
14498 @ 118977:                  SELECT 6
14499 @ 118980:                  ASSVAL

  2778    %result = 999 %if a >= imul;  !funcall,mapcall
14500 @ 118981:                  LINE   2778 "regression-compile-tmp/imp22g-77.imp"
14501 @ 119021:                  PUSH   A
14502 @ 119024:                  PUSHI  #0x00000056
14503 @ 119029:                  JUMPIF < L_0004
14504 @ 119033:                  PUSHI  #0x000003e7
14505 @ 119038:                  RESULT
14506 @ 119039:                  LOCATE L_0004

  2779    wy = weight(dp_y)
14507 @ 119042:                  LINE   2779 "regression-compile-tmp/imp22g-77.imp"
14508 @ 119082:                  PUSH   WY
14509 @ 119085:                  PUSH   WEIGHT
14510 @ 119088:                  PUSH   DP
14511 @ 119091:                  SELECT 14
14512 @ 119094:                  ASSPAR
14513 @ 119095:                  CALL  
14514 @ 119096:                  ASSVAL

  2780    %result = wy %if wy >= 999
14515 @ 119097:                  LINE   2780 "regression-compile-tmp/imp22g-77.imp"
14516 @ 119137:                  PUSH   WY
14517 @ 119140:                  PUSHI  #0x000003e7
14518 @ 119145:                  JUMPIF < L_0004
14519 @ 119149:                  PUSH   WY
14520 @ 119152:                  RESULT
14521 @ 119153:                  LOCATE L_0004

  2781    wy = wy-1 %if a = recref %and dict(dp_x)_flags >= 0
14522 @ 119156:                  LINE   2781 "regression-compile-tmp/imp22g-77.imp"
14523 @ 119196:                  PUSH   A
14524 @ 119199:                  PUSHI  #0x0000002d
14525 @ 119204:                  JUMPIF # L_0004
14526 @ 119208:                  PUSH   DICT
14527 @ 119211:                  PUSH   DP
14528 @ 119214:                  SELECT 13
14529 @ 119217:                  ACCESS
14530 @ 119218:                  SELECT 1
14531 @ 119221:                  PUSHI  #0x00000000
14532 @ 119226:                  JUMPIF < L_0004
14533 @ 119230:                  PUSH   WY
14534 @ 119233:                  PUSH   WY
14535 @ 119236:                  PUSHI  #0x00000001
14536 @ 119241:                  SUB   
14537 @ 119242:                  ASSVAL
14538 @ 119243:                  LOCATE L_0004

  2782    %result = wy+weight(dp_x)
14539 @ 119246:                  LINE   2782 "regression-compile-tmp/imp22g-77.imp"
14540 @ 119286:                  PUSH   WY
14541 @ 119289:                  PUSH   WEIGHT
14542 @ 119292:                  PUSH   DP
14543 @ 119295:                  SELECT 13
14544 @ 119298:                  ASSPAR
14545 @ 119299:                  CALL  
14546 @ 119300:                  ADD   
14547 @ 119301:                  RESULT

  2783  %end
  2784  
14548 @ 119302:                  LINE   2783 "regression-compile-tmp/imp22g-77.imp"
14549 @ 119342:               END    _lev0id0_EVAL_WEIGHT {lev=3 --> 2}

  2785  %routine CHECK ADDRESS(%integer v)
14550 @ 119343:               LINE   2785 "regression-compile-tmp/imp22g-77.imp"
14551 @ 119383:               DEF    CHECKADDRESS (_lev0id0_EVAL_CHECKADDRESS) p1=V_016b 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
14552 @ 119407:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
14553 @ 119408:                     DEF    V p1=V_016c a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
14554 @ 119421:                  FINISH ) {lev=3}

  2786    %if a0 <= v <= a7 %then plant(cmp+2<<8,0,v) %else plant(tst,0,v)
14555 @ 119422:                  LINE   2786 "regression-compile-tmp/imp22g-77.imp"
14556 @ 119462:                  PUSHI  #0x00000009
14557 @ 119467:                  PUSH   V
14558 @ 119470:                  JUMPIFD > L_0004
14559 @ 119474:                  PUSHI  #0x00000010
14560 @ 119479:                  JUMPIF > L_0004
14561 @ 119483:                  PUSH   PLANT
14562 @ 119486:                  PUSHI  #0x00000004
14563 @ 119491:                  PUSHI  #0x00000002
14564 @ 119496:                  PUSHI  #0x00000008
14565 @ 119501:                  LSH   
14566 @ 119502:                  ADD   
14567 @ 119503:                  ASSPAR
14568 @ 119504:                  PUSHI  #0x00000000
14569 @ 119509:                  ASSPAR
14570 @ 119510:                  PUSH   V
14571 @ 119513:                  ASSPAR
14572 @ 119514:                  CALL  
14573 @ 119515:                  GOTO   L_0003
14574 @ 119518:                  LOCATE L_0004
14575 @ 119521:                  PUSH   PLANT
14576 @ 119524:                  PUSHI  #0x0000003b
14577 @ 119529:                  ASSPAR
14578 @ 119530:                  PUSHI  #0x00000000
14579 @ 119535:                  ASSPAR
14580 @ 119536:                  PUSH   V
14581 @ 119539:                  ASSPAR
14582 @ 119540:                  CALL  
14583 @ 119541:                  LOCATE L_0003

  2787    srcall(adok)
14584 @ 119544:                  LINE   2787 "regression-compile-tmp/imp22g-77.imp"
14585 @ 119584:                  PUSH   SRCALL
14586 @ 119587:                  PUSHI  #0x00000067
14587 @ 119592:                  ASSPAR
14588 @ 119593:                  CALL  

  2788    forget cc
14589 @ 119594:                  LINE   2788 "regression-compile-tmp/imp22g-77.imp"
14590 @ 119634:                  PUSH   FORGETCC
14591 @ 119637:                  CALL  

  2789  %end
  2790  
  2791  !!!!!!!!!!!!!!!!!!!  Procedure call  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  2792  !
  2793  !      _____ACT_________X__________Y____
  2794  ! P -> | procident | param 1 | param 2 |
  2795  !      |     0     | param 3 | param 4 |
  2796  !      .           .         .         .
  2797  !
14592 @ 119638:                  LINE   2789 "regression-compile-tmp/imp22g-77.imp"
14593 @ 119678:               END    _lev0id0_EVAL_CHECKADDRESS {lev=3 --> 2}

  2798  %routine CALL
  2799  !Load parameters following P and call procedure ACT (DX)
  2800  ! Update PP for RCALL
14594 @ 119679:               LINE   2798 "regression-compile-tmp/imp22g-77.imp"
14595 @ 119719:               DEF    CALL (_lev0id0_EVAL_CALL) p1=V_016c 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
14596 @ 119735:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
14597 @ 119736:                  FINISH ) {lev=3}

  2801  %integer sp,stage,maxq,awkward
  2802  
14598 @ 119737:                  LINE   2801 "regression-compile-tmp/imp22g-77.imp"
14599 @ 119777:                  DEF    SP p1=V_016d a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
14600 @ 119791:                  DEF    STAGE p1=V_016e a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
14601 @ 119808:                  DEF    MAXQ p1=V_016f a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
14602 @ 119824:                  DEF    AWKWARD p1=V_0170 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  2803  %routine EVAL PARLIST(%integer arg,q)
14603 @ 119843:                  LINE   2803 "regression-compile-tmp/imp22g-77.imp"
14604 @ 119883:                  DEF    EVALPARLIST (_lev0id0_EVAL_CALL_EVALPARLIST) p1=V_0171 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
14605 @ 119906:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
14606 @ 119907:                        DEF    ARG p1=V_0172 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
14607 @ 119922:                        DEF    Q p1=V_0173 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
14608 @ 119935:                     FINISH ) {lev=4}

  2804  %record(identinfo)%name darg,dv
14609 @ 119936:                     LINE   2804 "regression-compile-tmp/imp22g-77.imp"
14610 @ 119976:                     DEF    DARG p1=V_0174 a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
14611 @ 119992:                     DEF    DV p1=V_0175 a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  2805  %integer v,w,f,r,s
  2806  !Stage 0 (forward):
  2807  !Stage 0 (returning):
  2808  !Stage 1 (forward):
  2809  !Stage 1 (returning):
14612 @ 120006:                     LINE   2805 "regression-compile-tmp/imp22g-77.imp"
14613 @ 120046:                     DEF    V p1=V_0176 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
14614 @ 120059:                     DEF    W p1=V_0177 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
14615 @ 120072:                     DEF    F p1=V_0178 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
14616 @ 120085:                     DEF    R p1=V_0179 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
14617 @ 120098:                     DEF    S p1=V_017a a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  2810    %return %if arg = 0
14618 @ 120111:                     LINE   2810 "regression-compile-tmp/imp22g-77.imp"
14619 @ 120151:                     PUSH   ARG
14620 @ 120154:                     PUSHI  #0x00000000
14621 @ 120159:                     JUMPIF # L_0004
14622 @ 120163:                     RETURN
14623 @ 120164:                     LOCATE L_0004

  2811    darg == dict(arg)
14624 @ 120167:                     LINE   2811 "regression-compile-tmp/imp22g-77.imp"
14625 @ 120207:                     PUSH   DARG
14626 @ 120210:                     PUSH   DICT
14627 @ 120213:                     PUSH   ARG
14628 @ 120216:                     ACCESS
14629 @ 120217:                     ASSREF

  2812    q = q+1;  maxq = q %if q > maxq
14630 @ 120218:                     LINE   2812 "regression-compile-tmp/imp22g-77.imp"
14631 @ 120258:                     PUSH   Q
14632 @ 120261:                     PUSH   Q
14633 @ 120264:                     PUSHI  #0x00000001
14634 @ 120269:                     ADD   
14635 @ 120270:                     ASSVAL
14636 @ 120271:                     LINE   2812 "regression-compile-tmp/imp22g-77.imp"
14637 @ 120311:                     PUSH   Q
14638 @ 120314:                     PUSH   MAXQ
14639 @ 120317:                     JUMPIF <= L_0004
14640 @ 120321:                     PUSH   MAXQ
14641 @ 120324:                     PUSH   Q
14642 @ 120327:                     ASSVAL
14643 @ 120328:                     LOCATE L_0004

  2813    %if q&1 = 0 %then v = dict(p+q>>1)_x %else v = dict(p+q>>1)_y
14644 @ 120331:                     LINE   2813 "regression-compile-tmp/imp22g-77.imp"
14645 @ 120371:                     PUSH   Q
14646 @ 120374:                     PUSHI  #0x00000001
14647 @ 120379:                     AND   
14648 @ 120380:                     PUSHI  #0x00000000
14649 @ 120385:                     JUMPIF # L_0004
14650 @ 120389:                     PUSH   V
14651 @ 120392:                     PUSH   DICT
14652 @ 120395:                     PUSH   P
14653 @ 120398:                     PUSH   Q
14654 @ 120401:                     PUSHI  #0x00000001
14655 @ 120406:                     RSH   
14656 @ 120407:                     ADD   
14657 @ 120408:                     ACCESS
14658 @ 120409:                     SELECT 13
14659 @ 120412:                     ASSVAL
14660 @ 120413:                     GOTO   L_0003
14661 @ 120416:                     LOCATE L_0004
14662 @ 120419:                     PUSH   V
14663 @ 120422:                     PUSH   DICT
14664 @ 120425:                     PUSH   P
14665 @ 120428:                     PUSH   Q
14666 @ 120431:                     PUSHI  #0x00000001
14667 @ 120436:                     RSH   
14668 @ 120437:                     ADD   
14669 @ 120438:                     ACCESS
14670 @ 120439:                     SELECT 14
14671 @ 120442:                     ASSVAL
14672 @ 120443:                     LOCATE L_0003

  2814    r = darg_reg&15
14673 @ 120446:                     LINE   2814 "regression-compile-tmp/imp22g-77.imp"
14674 @ 120486:                     PUSH   R
14675 @ 120489:                     PUSH   DARG
14676 @ 120492:                     SELECT 7
14677 @ 120495:                     PUSHI  #0x0000000f
14678 @ 120500:                     AND   
14679 @ 120501:                     ASSVAL

  2815    s = size(darg_type)
14680 @ 120502:                     LINE   2815 "regression-compile-tmp/imp22g-77.imp"
14681 @ 120542:                     PUSH   S
14682 @ 120545:                     PUSH   SIZE
14683 @ 120548:                     PUSH   DARG
14684 @ 120551:                     SELECT 2
14685 @ 120554:                     ASSPAR
14686 @ 120555:                     CALL  
14687 @ 120556:                     ASSVAL

  2816    %if darg_flags&proc # 0 %start
14688 @ 120557:                     LINE   2816 "regression-compile-tmp/imp22g-77.imp"
14689 @ 120597:                     PUSH   DARG
14690 @ 120600:                     SELECT 1
14691 @ 120603:                     PUSHI  #0x00003000
14692 @ 120608:                     AND   
14693 @ 120609:                     PUSHI  #0x00000000
14694 @ 120614:                     JUMPIF = L_0004

  2817      s = 0
14695 @ 120618:                     LINE   2817 "regression-compile-tmp/imp22g-77.imp"
14696 @ 120658:                     PUSH   S
14697 @ 120661:                     PUSHI  #0x00000000
14698 @ 120666:                     ASSVAL

  2818      %if awkward # 0 %start
14699 @ 120667:                     LINE   2818 "regression-compile-tmp/imp22g-77.imp"
14700 @ 120707:                     PUSH   AWKWARD
14701 @ 120710:                     PUSHI  #0x00000000
14702 @ 120715:                     JUMPIF = L_0007

  2819        f = v;  f = f-ad %if f >= explim
14703 @ 120719:                     LINE   2819 "regression-compile-tmp/imp22g-77.imp"
14704 @ 120759:                     PUSH   F
14705 @ 120762:                     PUSH   V
14706 @ 120765:                     ASSVAL
14707 @ 120766:                     LINE   2819 "regression-compile-tmp/imp22g-77.imp"
14708 @ 120806:                     PUSH   F
14709 @ 120809:                     PUSH   EXPLIM
14710 @ 120812:                     JUMPIF < L_000a
14711 @ 120816:                     PUSH   F
14712 @ 120819:                     PUSH   F
14713 @ 120822:                     PUSHI  #0x00004000
14714 @ 120827:                     SUB   
14715 @ 120828:                     ASSVAL
14716 @ 120829:                     LOCATE L_000a

  2820        dv == dict(f)
14717 @ 120832:                     LINE   2820 "regression-compile-tmp/imp22g-77.imp"
14718 @ 120872:                     PUSH   DV
14719 @ 120875:                     PUSH   DICT
14720 @ 120878:                     PUSH   F
14721 @ 120881:                     ACCESS
14722 @ 120882:                     ASSREF

  2821        %if dv_flags&(ext+spec) # ext+spec %start
  2822        !non-external to (maybe) external
14723 @ 120883:                     LINE   2821 "regression-compile-tmp/imp22g-77.imp"
14724 @ 120923:                     PUSH   DV
14725 @ 120926:                     SELECT 1
14726 @ 120929:                     PUSHI  #0x00004000
14727 @ 120934:                     PUSHI  #0x00000100
14728 @ 120939:                     ADD   
14729 @ 120940:                     AND   
14730 @ 120941:                     PUSHI  #0x00004000
14731 @ 120946:                     PUSHI  #0x00000100
14732 @ 120951:                     ADD   
14733 @ 120952:                     JUMPIF = L_000a

  2823          eval parlist(darg_link,q) %and %return %if stage # 0
14734 @ 120956:                     LINE   2823 "regression-compile-tmp/imp22g-77.imp"
14735 @ 120996:                     PUSH   STAGE
14736 @ 120999:                     PUSHI  #0x00000000
14737 @ 121004:                     JUMPIF = L_000d
14738 @ 121008:                     PUSH   EVALPARLIST
14739 @ 121011:                     PUSH   DARG
14740 @ 121014:                     SELECT 3
14741 @ 121017:                     ASSPAR
14742 @ 121018:                     PUSH   Q
14743 @ 121021:                     ASSPAR
14744 @ 121022:                     CALL  
14745 @ 121023:                     RETURN
14746 @ 121024:                     LOCATE L_000d

  2824          %if dv_flags&(name+indirect) # 0 %then plant(move,f,prea7) %C
  2825          %else plant(pea,0,f)
14747 @ 121027:                     LINE   2824 "regression-compile-tmp/imp22g-77.imp"
14748 @ 121067:                     PUSH   DV
14749 @ 121070:                     SELECT 1
14750 @ 121073:                     PUSHI  #0xffff8000
14751 @ 121078:                     PUSHI  #0x00000800
14752 @ 121083:                     ADD   
14753 @ 121084:                     AND   
14754 @ 121085:                     PUSHI  #0x00000000
14755 @ 121090:                     JUMPIF = L_000d
14756 @ 121094:                     PUSH   PLANT
14757 @ 121097:                     PUSHI  #0x00000001
14758 @ 121102:                     ASSPAR
14759 @ 121103:                     PUSH   F
14760 @ 121106:                     ASSPAR
14761 @ 121107:                     PUSHI  #0x00000028
14762 @ 121112:                     ASSPAR
14763 @ 121113:                     CALL  
14764 @ 121114:                     GOTO   L_000c
14765 @ 121117:                     LOCATE L_000d
14766 @ 121120:                     PUSH   PLANT
14767 @ 121123:                     PUSHI  #0x00000037
14768 @ 121128:                     ASSPAR
14769 @ 121129:                     PUSHI  #0x00000000
14770 @ 121134:                     ASSPAR
14771 @ 121135:                     PUSH   F
14772 @ 121138:                     ASSPAR
14773 @ 121139:                     CALL  
14774 @ 121140:                     LOCATE L_000c

  2826          plantlit(move+2<<8,16_4EF9,prea7)  {JMP entry}
14775 @ 121143:                     LINE   2826 "regression-compile-tmp/imp22g-77.imp"
14776 @ 121183:                     PUSH   PLANTLIT
14777 @ 121186:                     PUSHI  #0x00000001
14778 @ 121191:                     PUSHI  #0x00000002
14779 @ 121196:                     PUSHI  #0x00000008
14780 @ 121201:                     LSH   
14781 @ 121202:                     ADD   
14782 @ 121203:                     ASSPAR
14783 @ 121204:                     PUSHI  #0x00004ef9
14784 @ 121209:                     ASSPAR
14785 @ 121210:                     PUSHI  #0x00000028
14786 @ 121215:                     ASSPAR
14787 @ 121216:                     CALL  

  2827          plant(move,mb,prea7)
14788 @ 121217:                     LINE   2827 "regression-compile-tmp/imp22g-77.imp"
14789 @ 121257:                     PUSH   PLANT
14790 @ 121260:                     PUSHI  #0x00000001
14791 @ 121265:                     ASSPAR
14792 @ 121266:                     PUSHI  #0x0000000d
14793 @ 121271:                     ASSPAR
14794 @ 121272:                     PUSHI  #0x00000028
14795 @ 121277:                     ASSPAR
14796 @ 121278:                     CALL  

  2828          plantlit(move+2<<8,16_287C,prea7)  {MOVE #xxxx,mb}
14797 @ 121279:                     LINE   2828 "regression-compile-tmp/imp22g-77.imp"
14798 @ 121319:                     PUSH   PLANTLIT
14799 @ 121322:                     PUSHI  #0x00000001
14800 @ 121327:                     PUSHI  #0x00000002
14801 @ 121332:                     PUSHI  #0x00000008
14802 @ 121337:                     LSH   
14803 @ 121338:                     ADD   
14804 @ 121339:                     ASSPAR
14805 @ 121340:                     PUSHI  #0x0000287c
14806 @ 121345:                     ASSPAR
14807 @ 121346:                     PUSHI  #0x00000028
14808 @ 121351:                     ASSPAR
14809 @ 121352:                     CALL  

  2829          extend stack(12)
14810 @ 121353:                     LINE   2829 "regression-compile-tmp/imp22g-77.imp"
14811 @ 121393:                     PUSH   EXTENDSTACK
14812 @ 121396:                     PUSHI  #0x0000000c
14813 @ 121401:                     ASSPAR
14814 @ 121402:                     CALL  

  2830          s = c_sp
14815 @ 121403:                     LINE   2830 "regression-compile-tmp/imp22g-77.imp"
14816 @ 121443:                     PUSH   S
14817 @ 121446:                     PUSH   C
14818 @ 121449:                     SELECT 1
14819 @ 121452:                     ASSVAL

  2831          eval parlist(darg_link,q)
14820 @ 121453:                     LINE   2831 "regression-compile-tmp/imp22g-77.imp"
14821 @ 121493:                     PUSH   EVALPARLIST
14822 @ 121496:                     PUSH   DARG
14823 @ 121499:                     SELECT 3
14824 @ 121502:                     ASSPAR
14825 @ 121503:                     PUSH   Q
14826 @ 121506:                     ASSPAR
14827 @ 121507:                     CALL  

  2832          %if darg_val > 0 %start
14828 @ 121508:                     LINE   2832 "regression-compile-tmp/imp22g-77.imp"
14829 @ 121548:                     PUSH   DARG
14830 @ 121551:                     SELECT 9
14831 @ 121554:                     PUSHI  #0x00000000
14832 @ 121559:                     JUMPIF <= L_000d

  2833            plant(pea,0,temp(c_mode,s))
14833 @ 121563:                     LINE   2833 "regression-compile-tmp/imp22g-77.imp"
14834 @ 121603:                     PUSH   PLANT
14835 @ 121606:                     PUSHI  #0x00000037
14836 @ 121611:                     ASSPAR
14837 @ 121612:                     PUSHI  #0x00000000
14838 @ 121617:                     ASSPAR
14839 @ 121618:                     PUSH   TEMP
14840 @ 121621:                     PUSH   C
14841 @ 121624:                     SELECT 27
14842 @ 121627:                     ASSPAR
14843 @ 121628:                     PUSH   S
14844 @ 121631:                     ASSPAR
14845 @ 121632:                     CALL  
14846 @ 121633:                     ASSPAR
14847 @ 121634:                     CALL  

  2834          %else
14848 @ 121635:                     LINE   2834 "regression-compile-tmp/imp22g-77.imp"
14849 @ 121675:                     GOTO   L_000c
14850 @ 121678:                     LOCATE L_000d

  2835            plant(lea,temp(c_mode,s),r+d0)
14851 @ 121681:                     LINE   2835 "regression-compile-tmp/imp22g-77.imp"
14852 @ 121721:                     PUSH   PLANT
14853 @ 121724:                     PUSHI  #0x0000004e
14854 @ 121729:                     ASSPAR
14855 @ 121730:                     PUSH   TEMP
14856 @ 121733:                     PUSH   C
14857 @ 121736:                     SELECT 27
14858 @ 121739:                     ASSPAR
14859 @ 121740:                     PUSH   S
14860 @ 121743:                     ASSPAR
14861 @ 121744:                     CALL  
14862 @ 121745:                     ASSPAR
14863 @ 121746:                     PUSH   R
14864 @ 121749:                     PUSHI  #0x00000001
14865 @ 121754:                     ADD   
14866 @ 121755:                     ASSPAR
14867 @ 121756:                     CALL  

  2836            free = free&(\(d0b<<r))
14868 @ 121757:                     LINE   2836 "regression-compile-tmp/imp22g-77.imp"
14869 @ 121797:                     PUSH   FREE
14870 @ 121800:                     PUSH   FREE
14871 @ 121803:                     PUSHI  #0x00000001
14872 @ 121808:                     PUSH   R
14873 @ 121811:                     LSH   
14874 @ 121812:                     NOT   
14875 @ 121813:                     AND   
14876 @ 121814:                     ASSVAL

  2837          %finish
14877 @ 121815:                     LINE   2837 "regression-compile-tmp/imp22g-77.imp"
14878 @ 121855:                     LOCATE L_000c

  2838          %return
14879 @ 121858:                     LINE   2838 "regression-compile-tmp/imp22g-77.imp"
14880 @ 121898:                     RETURN

  2839        %finish
14881 @ 121899:                     LINE   2839 "regression-compile-tmp/imp22g-77.imp"
14882 @ 121939:                     LOCATE L_000a

  2840      %finish
14883 @ 121942:                     LINE   2840 "regression-compile-tmp/imp22g-77.imp"
14884 @ 121982:                     LOCATE L_0007

  2841    %finish
14885 @ 121985:                     LINE   2841 "regression-compile-tmp/imp22g-77.imp"
14886 @ 122025:                     LOCATE L_0004

  2842    %if darg_val > 0 %start;  !passed on stack
14887 @ 122028:                     LINE   2842 "regression-compile-tmp/imp22g-77.imp"
14888 @ 122068:                     PUSH   DARG
14889 @ 122071:                     SELECT 9
14890 @ 122074:                     PUSHI  #0x00000000
14891 @ 122079:                     JUMPIF <= L_0004

  2843      eval parlist(darg_link,q)
14892 @ 122083:                     LINE   2843 "regression-compile-tmp/imp22g-77.imp"
14893 @ 122123:                     PUSH   EVALPARLIST
14894 @ 122126:                     PUSH   DARG
14895 @ 122129:                     SELECT 3
14896 @ 122132:                     ASSPAR
14897 @ 122133:                     PUSH   Q
14898 @ 122136:                     ASSPAR
14899 @ 122137:                     CALL  

  2844      %return %if stage # 0
14900 @ 122138:                     LINE   2844 "regression-compile-tmp/imp22g-77.imp"
14901 @ 122178:                     PUSH   STAGE
14902 @ 122181:                     PUSHI  #0x00000000
14903 @ 122186:                     JUMPIF = L_0007
14904 @ 122190:                     RETURN
14905 @ 122191:                     LOCATE L_0007

  2845      %if darg_flags < 0 %start;     !name
14906 @ 122194:                     LINE   2845 "regression-compile-tmp/imp22g-77.imp"
14907 @ 122234:                     PUSH   DARG
14908 @ 122237:                     SELECT 1
14909 @ 122240:                     PUSHI  #0x00000000
14910 @ 122245:                     JUMPIF >= L_0007

  2846        f = free
  2847  !      eval(v,ref)
  2848  !      plant(pea,0,v);  extend stack(4)
14911 @ 122249:                     LINE   2846 "regression-compile-tmp/imp22g-77.imp"
14912 @ 122289:                     PUSH   F
14913 @ 122292:                     PUSH   FREE
14914 @ 122295:                     ASSVAL

  2849        eval(v,anyareg)
14915 @ 122296:                     LINE   2849 "regression-compile-tmp/imp22g-77.imp"
14916 @ 122336:                     PUSH   EVAL
14917 @ 122339:                     PUSH   V
14918 @ 122342:                     ASSPAR
14919 @ 122343:                     PUSHI  #0x0000ff00
14920 @ 122348:                     ASSPAR
14921 @ 122349:                     CALL  

  2850        push(v)
14922 @ 122350:                     LINE   2850 "regression-compile-tmp/imp22g-77.imp"
14923 @ 122390:                     PUSH   PUSH
14924 @ 122393:                     PUSH   V
14925 @ 122396:                     ASSPAR
14926 @ 122397:                     CALL  

  2851        free = f
14927 @ 122398:                     LINE   2851 "regression-compile-tmp/imp22g-77.imp"
14928 @ 122438:                     PUSH   FREE
14929 @ 122441:                     PUSH   F
14930 @ 122444:                     ASSVAL

  2852        %return
14931 @ 122445:                     LINE   2852 "regression-compile-tmp/imp22g-77.imp"
14932 @ 122485:                     RETURN

  2853      %finish
14933 @ 122486:                     LINE   2853 "regression-compile-tmp/imp22g-77.imp"
14934 @ 122526:                     LOCATE L_0007

  2854      %if s > 0 %start;              !simple value
14935 @ 122529:                     LINE   2854 "regression-compile-tmp/imp22g-77.imp"
14936 @ 122569:                     PUSH   S
14937 @ 122572:                     PUSHI  #0x00000000
14938 @ 122577:                     JUMPIF <= L_0007

  2855        f = free;  eval(v,val)
14939 @ 122581:                     LINE   2855 "regression-compile-tmp/imp22g-77.imp"
14940 @ 122621:                     PUSH   F
14941 @ 122624:                     PUSH   FREE
14942 @ 122627:                     ASSVAL
14943 @ 122628:                     LINE   2855 "regression-compile-tmp/imp22g-77.imp"
14944 @ 122668:                     PUSH   EVAL
14945 @ 122671:                     PUSH   V
14946 @ 122674:                     ASSPAR
14947 @ 122675:                     PUSHI  #0x8000ffff
14948 @ 122680:                     ASSPAR
14949 @ 122681:                     CALL  

  2856        pushs(v,s)
14950 @ 122682:                     LINE   2856 "regression-compile-tmp/imp22g-77.imp"
14951 @ 122722:                     PUSH   PUSHS
14952 @ 122725:                     PUSH   V
14953 @ 122728:                     ASSPAR
14954 @ 122729:                     PUSH   S
14955 @ 122732:                     ASSPAR
14956 @ 122733:                     CALL  

  2857        free = f
14957 @ 122734:                     LINE   2857 "regression-compile-tmp/imp22g-77.imp"
14958 @ 122774:                     PUSH   FREE
14959 @ 122777:                     PUSH   F
14960 @ 122780:                     ASSVAL

  2858      %else;                        !structure by value
14961 @ 122781:                     LINE   2858 "regression-compile-tmp/imp22g-77.imp"
14962 @ 122821:                     GOTO   L_0006
14963 @ 122824:                     LOCATE L_0007

  2859        stsiz = s
14964 @ 122827:                     LINE   2859 "regression-compile-tmp/imp22g-77.imp"
14965 @ 122867:                     PUSH   STSIZ
14966 @ 122870:                     PUSH   S
14967 @ 122873:                     ASSVAL

  2860        stsiz = -stsiz %if category(darg_type) # stringy
14968 @ 122874:                     LINE   2860 "regression-compile-tmp/imp22g-77.imp"
14969 @ 122914:                     PUSH   CATEGORY
14970 @ 122917:                     PUSH   DARG
14971 @ 122920:                     SELECT 2
14972 @ 122923:                     ASSPAR
14973 @ 122924:                     CALL  
14974 @ 122925:                     PUSHI  #0x00000008
14975 @ 122930:                     JUMPIF = L_000a
14976 @ 122934:                     PUSH   STSIZ
14977 @ 122937:                     PUSH   STSIZ
14978 @ 122940:                     NEGATE
14979 @ 122941:                     ASSVAL
14980 @ 122942:                     LOCATE L_000a

  2861        eval(v,tostack)
14981 @ 122945:                     LINE   2861 "regression-compile-tmp/imp22g-77.imp"
14982 @ 122985:                     PUSH   EVAL
14983 @ 122988:                     PUSH   V
14984 @ 122991:                     ASSPAR
14985 @ 122992:                     PUSHI  #0x00080000
14986 @ 122997:                     ASSPAR
14987 @ 122998:                     CALL  

  2862      %finish
14988 @ 122999:                     LINE   2862 "regression-compile-tmp/imp22g-77.imp"
14989 @ 123039:                     LOCATE L_0006

  2863      %return
14990 @ 123042:                     LINE   2863 "regression-compile-tmp/imp22g-77.imp"
14991 @ 123082:                     RETURN

  2864    %finish
14992 @ 123083:                     LINE   2864 "regression-compile-tmp/imp22g-77.imp"
14993 @ 123123:                     LOCATE L_0004

  2865    %if s <= 0 %and darg_flags >= 0 %start
  2866      !structure by value -- ad in reg
14994 @ 123126:                     LINE   2865 "regression-compile-tmp/imp22g-77.imp"
14995 @ 123166:                     PUSH   S
14996 @ 123169:                     PUSHI  #0x00000000
14997 @ 123174:                     JUMPIF > L_0004
14998 @ 123178:                     PUSH   DARG
14999 @ 123181:                     SELECT 1
15000 @ 123184:                     PUSHI  #0x00000000
15001 @ 123189:                     JUMPIF < L_0004

  2867      v = v-ad %if v >= explim
15002 @ 123193:                     LINE   2867 "regression-compile-tmp/imp22g-77.imp"
15003 @ 123233:                     PUSH   V
15004 @ 123236:                     PUSH   EXPLIM
15005 @ 123239:                     JUMPIF < L_0007
15006 @ 123243:                     PUSH   V
15007 @ 123246:                     PUSH   V
15008 @ 123249:                     PUSHI  #0x00004000
15009 @ 123254:                     SUB   
15010 @ 123255:                     ASSVAL
15011 @ 123256:                     LOCATE L_0007

  2868      %if v >= np0 %start
15012 @ 123259:                     LINE   2868 "regression-compile-tmp/imp22g-77.imp"
15013 @ 123299:                     PUSH   V
15014 @ 123302:                     PUSH   NP0
15015 @ 123305:                     JUMPIF < L_0007

  2869        dv == dict(v)
15016 @ 123309:                     LINE   2869 "regression-compile-tmp/imp22g-77.imp"
15017 @ 123349:                     PUSH   DV
15018 @ 123352:                     PUSH   DICT
15019 @ 123355:                     PUSH   V
15020 @ 123358:                     ACCESS
15021 @ 123359:                     ASSREF

  2870        %if dv_act >= concat %and dv_mode = 0 %start
  2871          !string/record function
15022 @ 123360:                     LINE   2870 "regression-compile-tmp/imp22g-77.imp"
15023 @ 123400:                     PUSH   DV
15024 @ 123403:                     SELECT 6
15025 @ 123406:                     PUSHI  #0x0000006a
15026 @ 123411:                     JUMPIF < L_000a
15027 @ 123415:                     PUSH   DV
15028 @ 123418:                     SELECT 8
15029 @ 123421:                     PUSHI  #0x00000000
15030 @ 123426:                     JUMPIF # L_000a

  2872          %if stage = 0 %start
15031 @ 123430:                     LINE   2872 "regression-compile-tmp/imp22g-77.imp"
15032 @ 123470:                     PUSH   STAGE
15033 @ 123473:                     PUSHI  #0x00000000
15034 @ 123478:                     JUMPIF # L_000d

  2873            stsiz = s
15035 @ 123482:                     LINE   2873 "regression-compile-tmp/imp22g-77.imp"
15036 @ 123522:                     PUSH   STSIZ
15037 @ 123525:                     PUSH   S
15038 @ 123528:                     ASSVAL

  2874            stsiz = -stsiz %if category(darg_type) # stringy
15039 @ 123529:                     LINE   2874 "regression-compile-tmp/imp22g-77.imp"
15040 @ 123569:                     PUSH   CATEGORY
15041 @ 123572:                     PUSH   DARG
15042 @ 123575:                     SELECT 2
15043 @ 123578:                     ASSPAR
15044 @ 123579:                     CALL  
15045 @ 123580:                     PUSHI  #0x00000008
15046 @ 123585:                     JUMPIF = L_0010
15047 @ 123589:                     PUSH   STSIZ
15048 @ 123592:                     PUSH   STSIZ
15049 @ 123595:                     NEGATE
15050 @ 123596:                     ASSVAL
15051 @ 123597:                     LOCATE L_0010

  2875            r = v;  eval(r,tostack);  free = free!a0b;  ![?here?]
15052 @ 123600:                     LINE   2875 "regression-compile-tmp/imp22g-77.imp"
15053 @ 123640:                     PUSH   R
15054 @ 123643:                     PUSH   V
15055 @ 123646:                     ASSVAL
15056 @ 123647:                     LINE   2875 "regression-compile-tmp/imp22g-77.imp"
15057 @ 123687:                     PUSH   EVAL
15058 @ 123690:                     PUSH   R
15059 @ 123693:                     ASSPAR
15060 @ 123694:                     PUSHI  #0x00080000
15061 @ 123699:                     ASSPAR
15062 @ 123700:                     CALL  
15063 @ 123701:                     LINE   2875 "regression-compile-tmp/imp22g-77.imp"
15064 @ 123741:                     PUSH   FREE
15065 @ 123744:                     PUSH   FREE
15066 @ 123747:                     PUSHI  #0x00000100
15067 @ 123752:                     OR    
15068 @ 123753:                     ASSVAL

  2876            c_reg_content(a0) = v+ad
15069 @ 123754:                     LINE   2876 "regression-compile-tmp/imp22g-77.imp"
15070 @ 123794:                     PUSH   C
15071 @ 123797:                     SELECT 30
15072 @ 123800:                     SELECT 4
15073 @ 123803:                     PUSHI  #0x00000009
15074 @ 123808:                     ACCESS
15075 @ 123809:                     PUSH   V
15076 @ 123812:                     PUSHI  #0x00004000
15077 @ 123817:                     ADD   
15078 @ 123818:                     ASSVAL

  2877            dv_val = c_sp
15079 @ 123819:                     LINE   2877 "regression-compile-tmp/imp22g-77.imp"
15080 @ 123859:                     PUSH   DV
15081 @ 123862:                     SELECT 9
15082 @ 123865:                     PUSH   C
15083 @ 123868:                     SELECT 1
15084 @ 123871:                     ASSVAL

  2878            eval parlist(darg_link,q)
15085 @ 123872:                     LINE   2878 "regression-compile-tmp/imp22g-77.imp"
15086 @ 123912:                     PUSH   EVALPARLIST
15087 @ 123915:                     PUSH   DARG
15088 @ 123918:                     SELECT 3
15089 @ 123921:                     ASSPAR
15090 @ 123922:                     PUSH   Q
15091 @ 123925:                     ASSPAR
15092 @ 123926:                     CALL  

  2879          %else
15093 @ 123927:                     LINE   2879 "regression-compile-tmp/imp22g-77.imp"
15094 @ 123967:                     GOTO   L_000c
15095 @ 123970:                     LOCATE L_000d

  2880            eval parlist(darg_link,q)
15096 @ 123973:                     LINE   2880 "regression-compile-tmp/imp22g-77.imp"
15097 @ 124013:                     PUSH   EVALPARLIST
15098 @ 124016:                     PUSH   DARG
15099 @ 124019:                     SELECT 3
15100 @ 124022:                     ASSPAR
15101 @ 124023:                     PUSH   Q
15102 @ 124026:                     ASSPAR
15103 @ 124027:                     CALL  

  2881            %if c_reg_content(r+d0) # v+ad %start
15104 @ 124028:                     LINE   2881 "regression-compile-tmp/imp22g-77.imp"
15105 @ 124068:                     PUSH   C
15106 @ 124071:                     SELECT 30
15107 @ 124074:                     SELECT 4
15108 @ 124077:                     PUSH   R
15109 @ 124080:                     PUSHI  #0x00000001
15110 @ 124085:                     ADD   
15111 @ 124086:                     ACCESS
15112 @ 124087:                     PUSH   V
15113 @ 124090:                     PUSHI  #0x00004000
15114 @ 124095:                     ADD   
15115 @ 124096:                     JUMPIF = L_0010

  2882              dv_mode = c_mode
15116 @ 124100:                     LINE   2882 "regression-compile-tmp/imp22g-77.imp"
15117 @ 124140:                     PUSH   DV
15118 @ 124143:                     SELECT 8
15119 @ 124146:                     PUSH   C
15120 @ 124149:                     SELECT 27
15121 @ 124152:                     ASSVAL

  2883              plant(lea,v,r+d0)
15122 @ 124153:                     LINE   2883 "regression-compile-tmp/imp22g-77.imp"
15123 @ 124193:                     PUSH   PLANT
15124 @ 124196:                     PUSHI  #0x0000004e
15125 @ 124201:                     ASSPAR
15126 @ 124202:                     PUSH   V
15127 @ 124205:                     ASSPAR
15128 @ 124206:                     PUSH   R
15129 @ 124209:                     PUSHI  #0x00000001
15130 @ 124214:                     ADD   
15131 @ 124215:                     ASSPAR
15132 @ 124216:                     CALL  

  2884              dv_mode = 0
15133 @ 124217:                     LINE   2884 "regression-compile-tmp/imp22g-77.imp"
15134 @ 124257:                     PUSH   DV
15135 @ 124260:                     SELECT 8
15136 @ 124263:                     PUSHI  #0x00000000
15137 @ 124268:                     ASSVAL

  2885            %finish
15138 @ 124269:                     LINE   2885 "regression-compile-tmp/imp22g-77.imp"
15139 @ 124309:                     LOCATE L_0010

  2886            free = free&(\(d0b<<r))
15140 @ 124312:                     LINE   2886 "regression-compile-tmp/imp22g-77.imp"
15141 @ 124352:                     PUSH   FREE
15142 @ 124355:                     PUSH   FREE
15143 @ 124358:                     PUSHI  #0x00000001
15144 @ 124363:                     PUSH   R
15145 @ 124366:                     LSH   
15146 @ 124367:                     NOT   
15147 @ 124368:                     AND   
15148 @ 124369:                     ASSVAL

  2887          %finish
15149 @ 124370:                     LINE   2887 "regression-compile-tmp/imp22g-77.imp"
15150 @ 124410:                     LOCATE L_000c

  2888          %return
15151 @ 124413:                     LINE   2888 "regression-compile-tmp/imp22g-77.imp"
15152 @ 124453:                     RETURN

  2889        %finish
15153 @ 124454:                     LINE   2889 "regression-compile-tmp/imp22g-77.imp"
15154 @ 124494:                     LOCATE L_000a

  2890      %finish
15155 @ 124497:                     LINE   2890 "regression-compile-tmp/imp22g-77.imp"
15156 @ 124537:                     LOCATE L_0007

  2891      v = v+ad
15157 @ 124540:                     LINE   2891 "regression-compile-tmp/imp22g-77.imp"
15158 @ 124580:                     PUSH   V
15159 @ 124583:                     PUSH   V
15160 @ 124586:                     PUSHI  #0x00004000
15161 @ 124591:                     ADD   
15162 @ 124592:                     ASSVAL

  2892    %finish
15163 @ 124593:                     LINE   2892 "regression-compile-tmp/imp22g-77.imp"
15164 @ 124633:                     LOCATE L_0004

  2893    w = weight(v)
15165 @ 124636:                     LINE   2893 "regression-compile-tmp/imp22g-77.imp"
15166 @ 124676:                     PUSH   W
15167 @ 124679:                     PUSH   WEIGHT
15168 @ 124682:                     PUSH   V
15169 @ 124685:                     ASSPAR
15170 @ 124686:                     CALL  
15171 @ 124687:                     ASSVAL

  2894    %if w >= 999 %start
15172 @ 124688:                     LINE   2894 "regression-compile-tmp/imp22g-77.imp"
15173 @ 124728:                     PUSH   W
15174 @ 124731:                     PUSHI  #0x000003e7
15175 @ 124736:                     JUMPIF < L_0004

  2895      eval parlist(darg_link,q)
15176 @ 124740:                     LINE   2895 "regression-compile-tmp/imp22g-77.imp"
15177 @ 124780:                     PUSH   EVALPARLIST
15178 @ 124783:                     PUSH   DARG
15179 @ 124786:                     SELECT 3
15180 @ 124789:                     ASSPAR
15181 @ 124790:                     PUSH   Q
15182 @ 124793:                     ASSPAR
15183 @ 124794:                     CALL  

  2896      %return %if stage # 0
15184 @ 124795:                     LINE   2896 "regression-compile-tmp/imp22g-77.imp"
15185 @ 124835:                     PUSH   STAGE
15186 @ 124838:                     PUSHI  #0x00000000
15187 @ 124843:                     JUMPIF = L_0007
15188 @ 124847:                     RETURN
15189 @ 124848:                     LOCATE L_0007

  2897    %else
15190 @ 124851:                     LINE   2897 "regression-compile-tmp/imp22g-77.imp"
15191 @ 124891:                     GOTO   L_0003
15192 @ 124894:                     LOCATE L_0004

  2898      %if w >= 2 %and stage # 0 %start
15193 @ 124897:                     LINE   2898 "regression-compile-tmp/imp22g-77.imp"
15194 @ 124937:                     PUSH   W
15195 @ 124940:                     PUSHI  #0x00000002
15196 @ 124945:                     JUMPIF < L_0007
15197 @ 124949:                     PUSH   STAGE
15198 @ 124952:                     PUSHI  #0x00000000
15199 @ 124957:                     JUMPIF = L_0007

  2899        eval(v,d0b<<r)
15200 @ 124961:                     LINE   2899 "regression-compile-tmp/imp22g-77.imp"
15201 @ 125001:                     PUSH   EVAL
15202 @ 125004:                     PUSH   V
15203 @ 125007:                     ASSPAR
15204 @ 125008:                     PUSHI  #0x00000001
15205 @ 125013:                     PUSH   R
15206 @ 125016:                     LSH   
15207 @ 125017:                     ASSPAR
15208 @ 125018:                     CALL  

  2900        eval parlist(darg_link,q)
15209 @ 125019:                     LINE   2900 "regression-compile-tmp/imp22g-77.imp"
15210 @ 125059:                     PUSH   EVALPARLIST
15211 @ 125062:                     PUSH   DARG
15212 @ 125065:                     SELECT 3
15213 @ 125068:                     ASSPAR
15214 @ 125069:                     PUSH   Q
15215 @ 125072:                     ASSPAR
15216 @ 125073:                     CALL  

  2901        %return
15217 @ 125074:                     LINE   2901 "regression-compile-tmp/imp22g-77.imp"
15218 @ 125114:                     RETURN

  2902      %finish
15219 @ 125115:                     LINE   2902 "regression-compile-tmp/imp22g-77.imp"
15220 @ 125155:                     LOCATE L_0007

  2903      eval parlist(darg_link,q)
15221 @ 125158:                     LINE   2903 "regression-compile-tmp/imp22g-77.imp"
15222 @ 125198:                     PUSH   EVALPARLIST
15223 @ 125201:                     PUSH   DARG
15224 @ 125204:                     SELECT 3
15225 @ 125207:                     ASSPAR
15226 @ 125208:                     PUSH   Q
15227 @ 125211:                     ASSPAR
15228 @ 125212:                     CALL  

  2904      %return %if stage = 0
15229 @ 125213:                     LINE   2904 "regression-compile-tmp/imp22g-77.imp"
15230 @ 125253:                     PUSH   STAGE
15231 @ 125256:                     PUSHI  #0x00000000
15232 @ 125261:                     JUMPIF # L_0007
15233 @ 125265:                     RETURN
15234 @ 125266:                     LOCATE L_0007

  2905    %finish
15235 @ 125269:                     LINE   2905 "regression-compile-tmp/imp22g-77.imp"
15236 @ 125309:                     LOCATE L_0003

  2906    eval(v,d0b<<r)
15237 @ 125312:                     LINE   2906 "regression-compile-tmp/imp22g-77.imp"
15238 @ 125352:                     PUSH   EVAL
15239 @ 125355:                     PUSH   V
15240 @ 125358:                     ASSPAR
15241 @ 125359:                     PUSHI  #0x00000001
15242 @ 125364:                     PUSH   R
15243 @ 125367:                     LSH   
15244 @ 125368:                     ASSPAR
15245 @ 125369:                     CALL  

  2907  %end
  2908  
15246 @ 125370:                     LINE   2907 "regression-compile-tmp/imp22g-77.imp"
15247 @ 125410:                  END    _lev0id0_EVAL_CALL_EVALPARLIST {lev=4 --> 3}

  2909    awkward = 0
15248 @ 125411:                  LINE   2909 "regression-compile-tmp/imp22g-77.imp"
15249 @ 125451:                  PUSH   AWKWARD
15250 @ 125454:                  PUSHI  #0x00000000
15251 @ 125459:                  ASSVAL

  2910    awkward = 1 %and push(mb) %if dx_flags&proc2 # 0 %c
  2911             %and (dx_flags&ext = 0 %or dx_flags&spec # 0);  !param or external
15252 @ 125460:                  LINE   2910 "regression-compile-tmp/imp22g-77.imp"
15253 @ 125500:                  PUSH   DX
15254 @ 125503:                  SELECT 1
15255 @ 125506:                  PUSHI  #0x00002000
15256 @ 125511:                  AND   
15257 @ 125512:                  PUSHI  #0x00000000
15258 @ 125517:                  JUMPIF = L_0004
15259 @ 125521:                  PUSH   DX
15260 @ 125524:                  SELECT 1
15261 @ 125527:                  PUSHI  #0x00004000
15262 @ 125532:                  AND   
15263 @ 125533:                  PUSHI  #0x00000000
15264 @ 125538:                  JUMPIF = L_0005
15265 @ 125542:                  PUSH   DX
15266 @ 125545:                  SELECT 1
15267 @ 125548:                  PUSHI  #0x00000100
15268 @ 125553:                  AND   
15269 @ 125554:                  PUSHI  #0x00000000
15270 @ 125559:                  JUMPIF = L_0004
15271 @ 125563:                  LOCATE L_0005
15272 @ 125566:                  PUSH   AWKWARD
15273 @ 125569:                  PUSHI  #0x00000001
15274 @ 125574:                  ASSVAL
15275 @ 125575:                  PUSH   PUSH
15276 @ 125578:                  PUSHI  #0x0000000d
15277 @ 125583:                  ASSPAR
15278 @ 125584:                  CALL  
15279 @ 125585:                  LOCATE L_0004

  2912    sp = c_sp
15280 @ 125588:                  LINE   2912 "regression-compile-tmp/imp22g-77.imp"
15281 @ 125628:                  PUSH   SP
15282 @ 125631:                  PUSH   C
15283 @ 125634:                  SELECT 1
15284 @ 125637:                  ASSVAL

  2913    maxq = 0
15285 @ 125638:                  LINE   2913 "regression-compile-tmp/imp22g-77.imp"
15286 @ 125678:                  PUSH   MAXQ
15287 @ 125681:                  PUSHI  #0x00000000
15288 @ 125686:                  ASSVAL

  2914    stage = 0
15289 @ 125687:                  LINE   2914 "regression-compile-tmp/imp22g-77.imp"
15290 @ 125727:                  PUSH   STAGE
15291 @ 125730:                  PUSHI  #0x00000000
15292 @ 125735:                  ASSVAL

  2915    eval parlist(dict(dx_type)_link,-1)
15293 @ 125736:                  LINE   2915 "regression-compile-tmp/imp22g-77.imp"
15294 @ 125776:                  PUSH   EVALPARLIST
15295 @ 125779:                  PUSH   DICT
15296 @ 125782:                  PUSH   DX
15297 @ 125785:                  SELECT 2
15298 @ 125788:                  ACCESS
15299 @ 125789:                  SELECT 3
15300 @ 125792:                  ASSPAR
15301 @ 125793:                  PUSHI  #0x00000001
15302 @ 125798:                  NEGATE
15303 @ 125799:                  ASSPAR
15304 @ 125800:                  CALL  

  2916    stage = 1
15305 @ 125801:                  LINE   2916 "regression-compile-tmp/imp22g-77.imp"
15306 @ 125841:                  PUSH   STAGE
15307 @ 125844:                  PUSHI  #0x00000001
15308 @ 125849:                  ASSVAL

  2917    eval parlist(dict(dx_type)_link,-1)
15309 @ 125850:                  LINE   2917 "regression-compile-tmp/imp22g-77.imp"
15310 @ 125890:                  PUSH   EVALPARLIST
15311 @ 125893:                  PUSH   DICT
15312 @ 125896:                  PUSH   DX
15313 @ 125899:                  SELECT 2
15314 @ 125902:                  ACCESS
15315 @ 125903:                  SELECT 3
15316 @ 125906:                  ASSPAR
15317 @ 125907:                  PUSHI  #0x00000001
15318 @ 125912:                  NEGATE
15319 @ 125913:                  ASSPAR
15320 @ 125914:                  CALL  

  2918    srcall(act)
15321 @ 125915:                  LINE   2918 "regression-compile-tmp/imp22g-77.imp"
15322 @ 125955:                  PUSH   SRCALL
15323 @ 125958:                  PUSH   ACT
15324 @ 125961:                  ASSPAR
15325 @ 125962:                  CALL  

  2919    %if c_sp # sp %start
15326 @ 125963:                  LINE   2919 "regression-compile-tmp/imp22g-77.imp"
15327 @ 126003:                  PUSH   C
15328 @ 126006:                  SELECT 1
15329 @ 126009:                  PUSH   SP
15330 @ 126012:                  JUMPIF = L_0004

  2920      addimm(sp-c_sp,a7);  c_sp = sp
15331 @ 126016:                  LINE   2920 "regression-compile-tmp/imp22g-77.imp"
15332 @ 126056:                  PUSH   ADDIMM
15333 @ 126059:                  PUSH   SP
15334 @ 126062:                  PUSH   C
15335 @ 126065:                  SELECT 1
15336 @ 126068:                  SUB   
15337 @ 126069:                  ASSPAR
15338 @ 126070:                  PUSHI  #0x00000010
15339 @ 126075:                  ASSPAR
15340 @ 126076:                  CALL  
15341 @ 126077:                  LINE   2920 "regression-compile-tmp/imp22g-77.imp"
15342 @ 126117:                  PUSH   C
15343 @ 126120:                  SELECT 1
15344 @ 126123:                  PUSH   SP
15345 @ 126126:                  ASSVAL

  2921    %finish
15346 @ 126127:                  LINE   2921 "regression-compile-tmp/imp22g-77.imp"
15347 @ 126167:                  LOCATE L_0004

  2922    pop(mb) %if awkward # 0
15348 @ 126170:                  LINE   2922 "regression-compile-tmp/imp22g-77.imp"
15349 @ 126210:                  PUSH   AWKWARD
15350 @ 126213:                  PUSHI  #0x00000000
15351 @ 126218:                  JUMPIF = L_0004
15352 @ 126222:                  PUSH   POP
15353 @ 126225:                  PUSHI  #0x0000000d
15354 @ 126230:                  ASSPAR
15355 @ 126231:                  CALL  
15356 @ 126232:                  LOCATE L_0004

  2923    pp = p+maxq>>1 %if p < np;  !update for RCALL + RESOL
15357 @ 126235:                  LINE   2923 "regression-compile-tmp/imp22g-77.imp"
15358 @ 126275:                  PUSH   P
15359 @ 126278:                  PUSH   NP
15360 @ 126281:                  JUMPIF >= L_0004
15361 @ 126285:                  PUSH   PP
15362 @ 126288:                  PUSH   P
15363 @ 126291:                  PUSH   MAXQ
15364 @ 126294:                  PUSHI  #0x00000001
15365 @ 126299:                  RSH   
15366 @ 126300:                  ADD   
15367 @ 126301:                  ASSVAL
15368 @ 126302:                  LOCATE L_0004

  2924    forget regs
15369 @ 126305:                  LINE   2924 "regression-compile-tmp/imp22g-77.imp"
15370 @ 126345:                  PUSH   FORGETREGS
15371 @ 126348:                  CALL  

  2925    c_reg_line = line %if dx_flags&(ext+proc) = ext+proc1;  !%system
15372 @ 126349:                  LINE   2925 "regression-compile-tmp/imp22g-77.imp"
15373 @ 126389:                  PUSH   DX
15374 @ 126392:                  SELECT 1
15375 @ 126395:                  PUSHI  #0x00004000
15376 @ 126400:                  PUSHI  #0x00003000
15377 @ 126405:                  ADD   
15378 @ 126406:                  AND   
15379 @ 126407:                  PUSHI  #0x00004000
15380 @ 126412:                  PUSHI  #0x00001000
15381 @ 126417:                  ADD   
15382 @ 126418:                  JUMPIF # L_0004
15383 @ 126422:                  PUSH   C
15384 @ 126425:                  SELECT 30
15385 @ 126428:                  SELECT 3
15386 @ 126431:                  PUSH   LINE
15387 @ 126434:                  ASSVAL
15388 @ 126435:                  LOCATE L_0004

  2926  %end;  !call
  2927  !
15389 @ 126438:                  LINE   2926 "regression-compile-tmp/imp22g-77.imp"
15390 @ 126478:               END    _lev0id0_EVAL_CALL {lev=3 --> 2}

  2928  %routine STRUCTCALL(%integer entry,size)
15391 @ 126479:               LINE   2928 "regression-compile-tmp/imp22g-77.imp"
15392 @ 126519:               DEF    STRUCTCALL (_lev0id0_EVAL_STRUCTCALL) p1=V_016d 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
15393 @ 126541:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
15394 @ 126542:                     DEF    ENTRY p1=V_016e a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
15395 @ 126559:                     DEF    SIZE p1=V_016f a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
15396 @ 126575:                  FINISH ) {lev=3}

  2929    size = mite(-size-1) %and forget(breg) %if size <= 0;  !string
15397 @ 126576:                  LINE   2929 "regression-compile-tmp/imp22g-77.imp"
15398 @ 126616:                  PUSH   SIZE
15399 @ 126619:                  PUSHI  #0x00000000
15400 @ 126624:                  JUMPIF > L_0004
15401 @ 126628:                  PUSH   SIZE
15402 @ 126631:                  PUSH   MITE
15403 @ 126634:                  PUSH   SIZE
15404 @ 126637:                  NEGATE
15405 @ 126638:                  PUSHI  #0x00000001
15406 @ 126643:                  SUB   
15407 @ 126644:                  ASSPAR
15408 @ 126645:                  CALL  
15409 @ 126646:                  ASSVAL
15410 @ 126647:                  PUSH   FORGET
15411 @ 126650:                  PUSHI  #0x00000005
15412 @ 126655:                  ASSPAR
15413 @ 126656:                  CALL  
15414 @ 126657:                  LOCATE L_0004

  2930    plantlit(move,size,d0)
15415 @ 126660:                  LINE   2930 "regression-compile-tmp/imp22g-77.imp"
15416 @ 126700:                  PUSH   PLANTLIT
15417 @ 126703:                  PUSHI  #0x00000001
15418 @ 126708:                  ASSPAR
15419 @ 126709:                  PUSH   SIZE
15420 @ 126712:                  ASSPAR
15421 @ 126713:                  PUSHI  #0x00000001
15422 @ 126718:                  ASSPAR
15423 @ 126719:                  CALL  

  2931    srcall(entry)
15424 @ 126720:                  LINE   2931 "regression-compile-tmp/imp22g-77.imp"
15425 @ 126760:                  PUSH   SRCALL
15426 @ 126763:                  PUSH   ENTRY
15427 @ 126766:                  ASSPAR
15428 @ 126767:                  CALL  

  2932    forget(d0)
15429 @ 126768:                  LINE   2932 "regression-compile-tmp/imp22g-77.imp"
15430 @ 126808:                  PUSH   FORGET
15431 @ 126811:                  PUSHI  #0x00000001
15432 @ 126816:                  ASSPAR
15433 @ 126817:                  CALL  

  2933  %end
  2934  
15434 @ 126818:                  LINE   2933 "regression-compile-tmp/imp22g-77.imp"
15435 @ 126858:               END    _lev0id0_EVAL_STRUCTCALL {lev=3 --> 2}

  2935  %routine PUSH STRUCTURE
15436 @ 126859:               LINE   2935 "regression-compile-tmp/imp22g-77.imp"
15437 @ 126899:               DEF    PUSHSTRUCTURE (_lev0id0_EVAL_PUSHSTRUCTURE) p1=V_016e 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
15438 @ 126924:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
15439 @ 126925:                  FINISH ) {lev=3}

  2936    %if stsize <= 0 %start;               !string
15440 @ 126926:                  LINE   2936 "regression-compile-tmp/imp22g-77.imp"
15441 @ 126966:                  PUSH   STSIZE
15442 @ 126969:                  PUSHI  #0x00000000
15443 @ 126974:                  JUMPIF > L_0004

  2937      structcall(strtostk,stsize)
15444 @ 126978:                  LINE   2937 "regression-compile-tmp/imp22g-77.imp"
15445 @ 127018:                  PUSH   STRUCTCALL
15446 @ 127021:                  PUSHI  #0x00000072
15447 @ 127026:                  ASSPAR
15448 @ 127027:                  PUSH   STSIZE
15449 @ 127030:                  ASSPAR
15450 @ 127031:                  CALL  

  2938      forget(a0);  forget(a1);  forget(a0+2)
15451 @ 127032:                  LINE   2938 "regression-compile-tmp/imp22g-77.imp"
15452 @ 127072:                  PUSH   FORGET
15453 @ 127075:                  PUSHI  #0x00000009
15454 @ 127080:                  ASSPAR
15455 @ 127081:                  CALL  
15456 @ 127082:                  LINE   2938 "regression-compile-tmp/imp22g-77.imp"
15457 @ 127122:                  PUSH   FORGET
15458 @ 127125:                  PUSHI  #0x0000000a
15459 @ 127130:                  ASSPAR
15460 @ 127131:                  CALL  
15461 @ 127132:                  LINE   2938 "regression-compile-tmp/imp22g-77.imp"
15462 @ 127172:                  PUSH   FORGET
15463 @ 127175:                  PUSHI  #0x00000009
15464 @ 127180:                  PUSHI  #0x00000002
15465 @ 127185:                  ADD   
15466 @ 127186:                  ASSPAR
15467 @ 127187:                  CALL  

  2939      extend stack(256-(stsize&254))
15468 @ 127188:                  LINE   2939 "regression-compile-tmp/imp22g-77.imp"
15469 @ 127228:                  PUSH   EXTENDSTACK
15470 @ 127231:                  PUSHI  #0x00000100
15471 @ 127236:                  PUSH   STSIZE
15472 @ 127239:                  PUSHI  #0x000000fe
15473 @ 127244:                  AND   
15474 @ 127245:                  SUB   
15475 @ 127246:                  ASSPAR
15476 @ 127247:                  CALL  

  2940    %else;                               !fixed size structure
15477 @ 127248:                  LINE   2940 "regression-compile-tmp/imp22g-77.imp"
15478 @ 127288:                  GOTO   L_0003
15479 @ 127291:                  LOCATE L_0004

  2941      push block(a0,(stsize+1)&(\1))
15480 @ 127294:                  LINE   2941 "regression-compile-tmp/imp22g-77.imp"
15481 @ 127334:                  PUSH   PUSHBLOCK
15482 @ 127337:                  PUSHI  #0x00000009
15483 @ 127342:                  ASSPAR
15484 @ 127343:                  PUSH   STSIZE
15485 @ 127346:                  PUSHI  #0x00000001
15486 @ 127351:                  ADD   
15487 @ 127352:                  PUSHI  #0x00000001
15488 @ 127357:                  NOT   
15489 @ 127358:                  AND   
15490 @ 127359:                  ASSPAR
15491 @ 127360:                  CALL  

  2942    %finish
15492 @ 127361:                  LINE   2942 "regression-compile-tmp/imp22g-77.imp"
15493 @ 127401:                  LOCATE L_0003

  2943  %end
  2944  
15494 @ 127404:                  LINE   2943 "regression-compile-tmp/imp22g-77.imp"
15495 @ 127444:               END    _lev0id0_EVAL_PUSHSTRUCTURE {lev=3 --> 2}

  2945  %routine OK REG(%integer got)
15496 @ 127445:               LINE   2945 "regression-compile-tmp/imp22g-77.imp"
15497 @ 127485:               DEF    OKREG (_lev0id0_EVAL_OKREG) p1=V_016f 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
15498 @ 127502:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
15499 @ 127503:                     DEF    GOT p1=V_0170 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
15500 @ 127518:                  FINISH ) {lev=3}

  2946    r = got
15501 @ 127519:                  LINE   2946 "regression-compile-tmp/imp22g-77.imp"
15502 @ 127559:                  PUSH   R
15503 @ 127562:                  PUSH   GOT
15504 @ 127565:                  ASSVAL

  2947    %if d0b<<(got-d0)&rset = 0 %start
15505 @ 127566:                  LINE   2947 "regression-compile-tmp/imp22g-77.imp"
15506 @ 127606:                  PUSHI  #0x00000001
15507 @ 127611:                  PUSH   GOT
15508 @ 127614:                  PUSHI  #0x00000001
15509 @ 127619:                  SUB   
15510 @ 127620:                  LSH   
15511 @ 127621:                  PUSH   RSET
15512 @ 127624:                  AND   
15513 @ 127625:                  PUSHI  #0x00000000
15514 @ 127630:                  JUMPIF # L_0004

  2948      c_reg_content(got) = pp
15515 @ 127634:                  LINE   2948 "regression-compile-tmp/imp22g-77.imp"
15516 @ 127674:                  PUSH   C
15517 @ 127677:                  SELECT 30
15518 @ 127680:                  SELECT 4
15519 @ 127683:                  PUSH   GOT
15520 @ 127686:                  ACCESS
15521 @ 127687:                  PUSH   PP
15522 @ 127690:                  ASSVAL

  2949      %if rset&free = 0 %and rset&tostack # 0 %start
15523 @ 127691:                  LINE   2949 "regression-compile-tmp/imp22g-77.imp"
15524 @ 127731:                  PUSH   RSET
15525 @ 127734:                  PUSH   FREE
15526 @ 127737:                  AND   
15527 @ 127738:                  PUSHI  #0x00000000
15528 @ 127743:                  JUMPIF # L_0007
15529 @ 127747:                  PUSH   RSET
15530 @ 127750:                  PUSHI  #0x00080000
15531 @ 127755:                  AND   
15532 @ 127756:                  PUSHI  #0x00000000
15533 @ 127761:                  JUMPIF = L_0007

  2950        push structure;  r = a7
  2951  !      push(got);  r = a7
  2952  !      c_reg_ccx = pp;  c_reg_ccy = 0
15534 @ 127765:                  LINE   2950 "regression-compile-tmp/imp22g-77.imp"
15535 @ 127805:                  PUSH   PUSHSTRUCTURE
15536 @ 127808:                  CALL  
15537 @ 127809:                  LINE   2950 "regression-compile-tmp/imp22g-77.imp"
15538 @ 127849:                  PUSH   R
15539 @ 127852:                  PUSHI  #0x00000010
15540 @ 127857:                  ASSVAL

  2953      %else
15541 @ 127858:                  LINE   2953 "regression-compile-tmp/imp22g-77.imp"
15542 @ 127898:                  GOTO   L_0006
15543 @ 127901:                  LOCATE L_0007

  2954        r = free reg(rset&(\bregb));  plant(move,got,r)
15544 @ 127904:                  LINE   2954 "regression-compile-tmp/imp22g-77.imp"
15545 @ 127944:                  PUSH   R
15546 @ 127947:                  PUSH   FREEREG
15547 @ 127950:                  PUSH   RSET
15548 @ 127953:                  PUSHI  #0x00000010
15549 @ 127958:                  NOT   
15550 @ 127959:                  AND   
15551 @ 127960:                  ASSPAR
15552 @ 127961:                  CALL  
15553 @ 127962:                  ASSVAL
15554 @ 127963:                  LINE   2954 "regression-compile-tmp/imp22g-77.imp"
15555 @ 128003:                  PUSH   PLANT
15556 @ 128006:                  PUSHI  #0x00000001
15557 @ 128011:                  ASSPAR
15558 @ 128012:                  PUSH   GOT
15559 @ 128015:                  ASSPAR
15560 @ 128016:                  PUSH   R
15561 @ 128019:                  ASSPAR
15562 @ 128020:                  CALL  

  2955        c_reg_ccx = pp %and c_reg_ccy = 0 %if r < a0
15563 @ 128021:                  LINE   2955 "regression-compile-tmp/imp22g-77.imp"
15564 @ 128061:                  PUSH   R
15565 @ 128064:                  PUSHI  #0x00000009
15566 @ 128069:                  JUMPIF >= L_000a
15567 @ 128073:                  PUSH   C
15568 @ 128076:                  SELECT 30
15569 @ 128079:                  SELECT 1
15570 @ 128082:                  PUSH   PP
15571 @ 128085:                  ASSVAL
15572 @ 128086:                  PUSH   C
15573 @ 128089:                  SELECT 30
15574 @ 128092:                  SELECT 2
15575 @ 128095:                  PUSHI  #0x00000000
15576 @ 128100:                  ASSVAL
15577 @ 128101:                  LOCATE L_000a

  2956      %finish
15578 @ 128104:                  LINE   2956 "regression-compile-tmp/imp22g-77.imp"
15579 @ 128144:                  LOCATE L_0006

  2957    %finish
15580 @ 128147:                  LINE   2957 "regression-compile-tmp/imp22g-77.imp"
15581 @ 128187:                  LOCATE L_0004

  2958  %end
  2959  
15582 @ 128190:                  LINE   2958 "regression-compile-tmp/imp22g-77.imp"
15583 @ 128230:               END    _lev0id0_EVAL_OKREG {lev=3 --> 2}

  2960  %routine OK AREG(%integer got,ok)
15584 @ 128231:               LINE   2960 "regression-compile-tmp/imp22g-77.imp"
15585 @ 128271:               DEF    OKAREG (_lev0id0_EVAL_OKAREG) p1=V_0170 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
15586 @ 128289:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
15587 @ 128290:                     DEF    GOT p1=V_0171 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
15588 @ 128305:                     DEF    OK p1=V_0172 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
15589 @ 128319:                  FINISH ) {lev=3}

  2961    r = got
15590 @ 128320:                  LINE   2961 "regression-compile-tmp/imp22g-77.imp"
15591 @ 128360:                  PUSH   R
15592 @ 128363:                  PUSH   GOT
15593 @ 128366:                  ASSVAL

  2962    %if a0b<<(got-a0)&ok = 0 %start
15594 @ 128367:                  LINE   2962 "regression-compile-tmp/imp22g-77.imp"
15595 @ 128407:                  PUSHI  #0x00000100
15596 @ 128412:                  PUSH   GOT
15597 @ 128415:                  PUSHI  #0x00000009
15598 @ 128420:                  SUB   
15599 @ 128421:                  LSH   
15600 @ 128422:                  PUSH   OK
15601 @ 128425:                  AND   
15602 @ 128426:                  PUSHI  #0x00000000
15603 @ 128431:                  JUMPIF # L_0004

  2963      r = free reg(ok);  plant(move,got,r)
15604 @ 128435:                  LINE   2963 "regression-compile-tmp/imp22g-77.imp"
15605 @ 128475:                  PUSH   R
15606 @ 128478:                  PUSH   FREEREG
15607 @ 128481:                  PUSH   OK
15608 @ 128484:                  ASSPAR
15609 @ 128485:                  CALL  
15610 @ 128486:                  ASSVAL
15611 @ 128487:                  LINE   2963 "regression-compile-tmp/imp22g-77.imp"
15612 @ 128527:                  PUSH   PLANT
15613 @ 128530:                  PUSHI  #0x00000001
15614 @ 128535:                  ASSPAR
15615 @ 128536:                  PUSH   GOT
15616 @ 128539:                  ASSPAR
15617 @ 128540:                  PUSH   R
15618 @ 128543:                  ASSPAR
15619 @ 128544:                  CALL  

  2964    %finish
15620 @ 128545:                  LINE   2964 "regression-compile-tmp/imp22g-77.imp"
15621 @ 128585:                  LOCATE L_0004

  2965  %end
  2966  
15622 @ 128588:                  LINE   2965 "regression-compile-tmp/imp22g-77.imp"
15623 @ 128628:               END    _lev0id0_EVAL_OKAREG {lev=3 --> 2}

  2967  %routine LOAD ADDRESS(%integer p)
15624 @ 128629:               LINE   2967 "regression-compile-tmp/imp22g-77.imp"
15625 @ 128669:               DEF    LOADADDRESS (_lev0id0_EVAL_LOADADDRESS) p1=V_0171 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
15626 @ 128692:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
15627 @ 128693:                     DEF    P p1=V_0172 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
15628 @ 128706:                  FINISH ) {lev=3}

  2968  %integer i,f
15629 @ 128707:                  LINE   2968 "regression-compile-tmp/imp22g-77.imp"
15630 @ 128747:                  DEF    I p1=V_0173 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
15631 @ 128760:                  DEF    F p1=V_0174 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  2969    %if rset&anyareg&free # 0 %start
15632 @ 128773:                  LINE   2969 "regression-compile-tmp/imp22g-77.imp"
15633 @ 128813:                  PUSH   RSET
15634 @ 128816:                  PUSHI  #0x0000ff00
15635 @ 128821:                  AND   
15636 @ 128822:                  PUSH   FREE
15637 @ 128825:                  AND   
15638 @ 128826:                  PUSHI  #0x00000000
15639 @ 128831:                  JUMPIF = L_0004

  2970      %if dp_mode&2_111000 = indexmode %and dp_val&255 = 0 %start
15640 @ 128835:                  LINE   2970 "regression-compile-tmp/imp22g-77.imp"
15641 @ 128875:                  PUSH   DP
15642 @ 128878:                  SELECT 8
15643 @ 128881:                  PUSHI  #0x00000038
15644 @ 128886:                  AND   
15645 @ 128887:                  PUSHI  #0x00000030
15646 @ 128892:                  JUMPIF # L_0007
15647 @ 128896:                  PUSH   DP
15648 @ 128899:                  SELECT 9
15649 @ 128902:                  PUSHI  #0x000000ff
15650 @ 128907:                  AND   
15651 @ 128908:                  PUSHI  #0x00000000
15652 @ 128913:                  JUMPIF # L_0007

  2971        i = a0b<<(dp_mode&7)
15653 @ 128917:                  LINE   2971 "regression-compile-tmp/imp22g-77.imp"
15654 @ 128957:                  PUSH   I
15655 @ 128960:                  PUSHI  #0x00000100
15656 @ 128965:                  PUSH   DP
15657 @ 128968:                  SELECT 8
15658 @ 128971:                  PUSHI  #0x00000007
15659 @ 128976:                  AND   
15660 @ 128977:                  LSH   
15661 @ 128978:                  ASSVAL

  2972        rset = i %if rset&free&i # 0
15662 @ 128979:                  LINE   2972 "regression-compile-tmp/imp22g-77.imp"
15663 @ 129019:                  PUSH   RSET
15664 @ 129022:                  PUSH   FREE
15665 @ 129025:                  AND   
15666 @ 129026:                  PUSH   I
15667 @ 129029:                  AND   
15668 @ 129030:                  PUSHI  #0x00000000
15669 @ 129035:                  JUMPIF = L_000a
15670 @ 129039:                  PUSH   RSET
15671 @ 129042:                  PUSH   I
15672 @ 129045:                  ASSVAL
15673 @ 129046:                  LOCATE L_000a

  2973      %finish
15674 @ 129049:                  LINE   2973 "regression-compile-tmp/imp22g-77.imp"
15675 @ 129089:                  LOCATE L_0007

  2974      r = free reg(rset&anyareg)
15676 @ 129092:                  LINE   2974 "regression-compile-tmp/imp22g-77.imp"
15677 @ 129132:                  PUSH   R
15678 @ 129135:                  PUSH   FREEREG
15679 @ 129138:                  PUSH   RSET
15680 @ 129141:                  PUSHI  #0x0000ff00
15681 @ 129146:                  AND   
15682 @ 129147:                  ASSPAR
15683 @ 129148:                  CALL  
15684 @ 129149:                  ASSVAL

  2975      plant(lea,p,r)
15685 @ 129150:                  LINE   2975 "regression-compile-tmp/imp22g-77.imp"
15686 @ 129190:                  PUSH   PLANT
15687 @ 129193:                  PUSHI  #0x0000004e
15688 @ 129198:                  ASSPAR
15689 @ 129199:                  PUSH   P
15690 @ 129202:                  ASSPAR
15691 @ 129203:                  PUSH   R
15692 @ 129206:                  ASSPAR
15693 @ 129207:                  CALL  

  2976    %else
15694 @ 129208:                  LINE   2976 "regression-compile-tmp/imp22g-77.imp"
15695 @ 129248:                  GOTO   L_0003
15696 @ 129251:                  LOCATE L_0004

  2977      f = free
15697 @ 129254:                  LINE   2977 "regression-compile-tmp/imp22g-77.imp"
15698 @ 129294:                  PUSH   F
15699 @ 129297:                  PUSH   FREE
15700 @ 129300:                  ASSVAL

  2978      i = free areg(p+ad);  plant(lea,p,i)
15701 @ 129301:                  LINE   2978 "regression-compile-tmp/imp22g-77.imp"
15702 @ 129341:                  PUSH   I
15703 @ 129344:                  PUSH   FREEAREG
15704 @ 129347:                  PUSH   P
15705 @ 129350:                  PUSHI  #0x00004000
15706 @ 129355:                  ADD   
15707 @ 129356:                  ASSPAR
15708 @ 129357:                  CALL  
15709 @ 129358:                  ASSVAL
15710 @ 129359:                  LINE   2978 "regression-compile-tmp/imp22g-77.imp"
15711 @ 129399:                  PUSH   PLANT
15712 @ 129402:                  PUSHI  #0x0000004e
15713 @ 129407:                  ASSPAR
15714 @ 129408:                  PUSH   P
15715 @ 129411:                  ASSPAR
15716 @ 129412:                  PUSH   I
15717 @ 129415:                  ASSPAR
15718 @ 129416:                  CALL  

  2979      free = f
15719 @ 129417:                  LINE   2979 "regression-compile-tmp/imp22g-77.imp"
15720 @ 129457:                  PUSH   FREE
15721 @ 129460:                  PUSH   F
15722 @ 129463:                  ASSVAL

  2980      r = free reg(rset&(\bregb));  plant(move,i,r)
15723 @ 129464:                  LINE   2980 "regression-compile-tmp/imp22g-77.imp"
15724 @ 129504:                  PUSH   R
15725 @ 129507:                  PUSH   FREEREG
15726 @ 129510:                  PUSH   RSET
15727 @ 129513:                  PUSHI  #0x00000010
15728 @ 129518:                  NOT   
15729 @ 129519:                  AND   
15730 @ 129520:                  ASSPAR
15731 @ 129521:                  CALL  
15732 @ 129522:                  ASSVAL
15733 @ 129523:                  LINE   2980 "regression-compile-tmp/imp22g-77.imp"
15734 @ 129563:                  PUSH   PLANT
15735 @ 129566:                  PUSHI  #0x00000001
15736 @ 129571:                  ASSPAR
15737 @ 129572:                  PUSH   I
15738 @ 129575:                  ASSPAR
15739 @ 129576:                  PUSH   R
15740 @ 129579:                  ASSPAR
15741 @ 129580:                  CALL  

  2981    %finish
15742 @ 129581:                  LINE   2981 "regression-compile-tmp/imp22g-77.imp"
15743 @ 129621:                  LOCATE L_0003

  2982  %end
  2983  
15744 @ 129624:                  LINE   2982 "regression-compile-tmp/imp22g-77.imp"
15745 @ 129664:               END    _lev0id0_EVAL_LOADADDRESS {lev=3 --> 2}

  2984  %routine COMMANDEER(%integer regs)
15746 @ 129665:               LINE   2984 "regression-compile-tmp/imp22g-77.imp"
15747 @ 129705:               DEF    COMMANDEER (_lev0id0_EVAL_COMMANDEER) p1=V_0172 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
15748 @ 129727:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
15749 @ 129728:                     DEF    REGS p1=V_0173 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
15750 @ 129744:                  FINISH ) {lev=3}

  2985  %integer r
15751 @ 129745:                  LINE   2985 "regression-compile-tmp/imp22g-77.imp"
15752 @ 129785:                  DEF    R p1=V_0174 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  2986    freed = \free&regs
15753 @ 129798:                  LINE   2986 "regression-compile-tmp/imp22g-77.imp"
15754 @ 129838:                  PUSH   FREED
15755 @ 129841:                  PUSH   FREE
15756 @ 129844:                  NOT   
15757 @ 129845:                  PUSH   REGS
15758 @ 129848:                  AND   
15759 @ 129849:                  ASSVAL

  2987    %if freed # 0 %start
15760 @ 129850:                  LINE   2987 "regression-compile-tmp/imp22g-77.imp"
15761 @ 129890:                  PUSH   FREED
15762 @ 129893:                  PUSHI  #0x00000000
15763 @ 129898:                  JUMPIF = L_0004

  2988      regs = freed;  r = d0
15764 @ 129902:                  LINE   2988 "regression-compile-tmp/imp22g-77.imp"
15765 @ 129942:                  PUSH   REGS
15766 @ 129945:                  PUSH   FREED
15767 @ 129948:                  ASSVAL
15768 @ 129949:                  LINE   2988 "regression-compile-tmp/imp22g-77.imp"
15769 @ 129989:                  PUSH   R
15770 @ 129992:                  PUSHI  #0x00000001
15771 @ 129997:                  ASSVAL

  2989      %while regs # 0 %cycle
15772 @ 129998:                  LINE   2989 "regression-compile-tmp/imp22g-77.imp"
15773 @ 130038:                  LOCATE L_0006
15774 @ 130041:                  PUSH   REGS
15775 @ 130044:                  PUSHI  #0x00000000
15776 @ 130049:                  JUMPIF = L_0007

  2990        push(r) %and forget cc %if regs&1 # 0
15777 @ 130053:                  LINE   2990 "regression-compile-tmp/imp22g-77.imp"
15778 @ 130093:                  PUSH   REGS
15779 @ 130096:                  PUSHI  #0x00000001
15780 @ 130101:                  AND   
15781 @ 130102:                  PUSHI  #0x00000000
15782 @ 130107:                  JUMPIF = L_000a
15783 @ 130111:                  PUSH   PUSH
15784 @ 130114:                  PUSH   R
15785 @ 130117:                  ASSPAR
15786 @ 130118:                  CALL  
15787 @ 130119:                  PUSH   FORGETCC
15788 @ 130122:                  CALL  
15789 @ 130123:                  LOCATE L_000a

  2991        regs = regs>>1;  r = r+1
15790 @ 130126:                  LINE   2991 "regression-compile-tmp/imp22g-77.imp"
15791 @ 130166:                  PUSH   REGS
15792 @ 130169:                  PUSH   REGS
15793 @ 130172:                  PUSHI  #0x00000001
15794 @ 130177:                  RSH   
15795 @ 130178:                  ASSVAL
15796 @ 130179:                  LINE   2991 "regression-compile-tmp/imp22g-77.imp"
15797 @ 130219:                  PUSH   R
15798 @ 130222:                  PUSH   R
15799 @ 130225:                  PUSHI  #0x00000001
15800 @ 130230:                  ADD   
15801 @ 130231:                  ASSVAL

  2992      %repeat
15802 @ 130232:                  LINE   2992 "regression-compile-tmp/imp22g-77.imp"
15803 @ 130272:                  REPEAT L_0006
15804 @ 130275:                  LOCATE L_0007

  2993      free = free!freed;  rset = rset&(\freed)
15805 @ 130278:                  LINE   2993 "regression-compile-tmp/imp22g-77.imp"
15806 @ 130318:                  PUSH   FREE
15807 @ 130321:                  PUSH   FREE
15808 @ 130324:                  PUSH   FREED
15809 @ 130327:                  OR    
15810 @ 130328:                  ASSVAL
15811 @ 130329:                  LINE   2993 "regression-compile-tmp/imp22g-77.imp"
15812 @ 130369:                  PUSH   RSET
15813 @ 130372:                  PUSH   RSET
15814 @ 130375:                  PUSH   FREED
15815 @ 130378:                  NOT   
15816 @ 130379:                  AND   
15817 @ 130380:                  ASSVAL

  2994    %finish
15818 @ 130381:                  LINE   2994 "regression-compile-tmp/imp22g-77.imp"
15819 @ 130421:                  LOCATE L_0004

  2995  %end
15820 @ 130424:                  LINE   2995 "regression-compile-tmp/imp22g-77.imp"
15821 @ 130464:               END    _lev0id0_EVAL_COMMANDEER {lev=3 --> 2}

  2996  %routine RESTORE(%integer regs)
15822 @ 130465:               LINE   2996 "regression-compile-tmp/imp22g-77.imp"
15823 @ 130505:               DEF    RESTORE (_lev0id0_EVAL_RESTORE) p1=V_0173 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
15824 @ 130524:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
15825 @ 130525:                     DEF    REGS p1=V_0174 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
15826 @ 130541:                  FINISH ) {lev=3}

  2997  %integer r
15827 @ 130542:                  LINE   2997 "regression-compile-tmp/imp22g-77.imp"
15828 @ 130582:                  DEF    R p1=V_0175 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  2998    r = a7
15829 @ 130595:                  LINE   2998 "regression-compile-tmp/imp22g-77.imp"
15830 @ 130635:                  PUSH   R
15831 @ 130638:                  PUSHI  #0x00000010
15832 @ 130643:                  ASSVAL

  2999    %while regs # 0 %cycle
15833 @ 130644:                  LINE   2999 "regression-compile-tmp/imp22g-77.imp"
15834 @ 130684:                  LOCATE L_0003
15835 @ 130687:                  PUSH   REGS
15836 @ 130690:                  PUSHI  #0x00000000
15837 @ 130695:                  JUMPIF = L_0004

  3000      %if regs&16_8000 # 0 %start
15838 @ 130699:                  LINE   3000 "regression-compile-tmp/imp22g-77.imp"
15839 @ 130739:                  PUSH   REGS
15840 @ 130742:                  PUSHI  #0x00008000
15841 @ 130747:                  AND   
15842 @ 130748:                  PUSHI  #0x00000000
15843 @ 130753:                  JUMPIF = L_0007

  3001        pop(r);  forget(r);  !*should have remembered it*
15844 @ 130757:                  LINE   3001 "regression-compile-tmp/imp22g-77.imp"
15845 @ 130797:                  PUSH   POP
15846 @ 130800:                  PUSH   R
15847 @ 130803:                  ASSPAR
15848 @ 130804:                  CALL  
15849 @ 130805:                  LINE   3001 "regression-compile-tmp/imp22g-77.imp"
15850 @ 130845:                  PUSH   FORGET
15851 @ 130848:                  PUSH   R
15852 @ 130851:                  ASSPAR
15853 @ 130852:                  CALL  

  3002        forget cc
15854 @ 130853:                  LINE   3002 "regression-compile-tmp/imp22g-77.imp"
15855 @ 130893:                  PUSH   FORGETCC
15856 @ 130896:                  CALL  

  3003      %finish
15857 @ 130897:                  LINE   3003 "regression-compile-tmp/imp22g-77.imp"
15858 @ 130937:                  LOCATE L_0007

  3004      regs = regs<<1&16_FFFF;  r = r-1
15859 @ 130940:                  LINE   3004 "regression-compile-tmp/imp22g-77.imp"
15860 @ 130980:                  PUSH   REGS
15861 @ 130983:                  PUSH   REGS
15862 @ 130986:                  PUSHI  #0x00000001
15863 @ 130991:                  LSH   
15864 @ 130992:                  PUSHI  #0x0000ffff
15865 @ 130997:                  AND   
15866 @ 130998:                  ASSVAL
15867 @ 130999:                  LINE   3004 "regression-compile-tmp/imp22g-77.imp"
15868 @ 131039:                  PUSH   R
15869 @ 131042:                  PUSH   R
15870 @ 131045:                  PUSHI  #0x00000001
15871 @ 131050:                  SUB   
15872 @ 131051:                  ASSVAL

  3005    %repeat
15873 @ 131052:                  LINE   3005 "regression-compile-tmp/imp22g-77.imp"
15874 @ 131092:                  REPEAT L_0003
15875 @ 131095:                  LOCATE L_0004

  3006  %end
  3007  
15876 @ 131098:                  LINE   3006 "regression-compile-tmp/imp22g-77.imp"
15877 @ 131138:               END    _lev0id0_EVAL_RESTORE {lev=3 --> 2}

  3008  %routine PARTREG
  3009  ! Something smaller than integer has been loaded to R
  3010  ! Determine what else to do (using SX,SY)
15878 @ 131139:               LINE   3008 "regression-compile-tmp/imp22g-77.imp"
15879 @ 131179:               DEF    PARTREG (_lev0id0_EVAL_PARTREG) p1=V_0174 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
15880 @ 131198:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
15881 @ 131199:                  FINISH ) {lev=3}

  3011    sy = 4 %if r = breg %or r >= a0
15882 @ 131200:                  LINE   3011 "regression-compile-tmp/imp22g-77.imp"
15883 @ 131240:                  PUSH   R
15884 @ 131243:                  PUSHI  #0x00000005
15885 @ 131248:                  JUMPIF = L_0005
15886 @ 131252:                  PUSH   R
15887 @ 131255:                  PUSHI  #0x00000009
15888 @ 131260:                  JUMPIF < L_0004
15889 @ 131264:                  LOCATE L_0005
15890 @ 131267:                  PUSH   SY
15891 @ 131270:                  PUSHI  #0x00000004
15892 @ 131275:                  ASSVAL
15893 @ 131276:                  LOCATE L_0004

  3012    %while imod(sy) < sx %cycle
15894 @ 131279:                  LINE   3012 "regression-compile-tmp/imp22g-77.imp"
15895 @ 131319:                  LOCATE L_0003
15896 @ 131322:                  PUSH   IMOD
15897 @ 131325:                  PUSH   SY
15898 @ 131328:                  ASSPAR
15899 @ 131329:                  CALL  
15900 @ 131330:                  PUSH   SX
15901 @ 131333:                  JUMPIF >= L_0004

  3013      %if sy > 0 %start;  !signed
15902 @ 131337:                  LINE   3013 "regression-compile-tmp/imp22g-77.imp"
15903 @ 131377:                  PUSH   SY
15904 @ 131380:                  PUSHI  #0x00000000
15905 @ 131385:                  JUMPIF <= L_0007

  3014        plant(extl-2+sy,0,r);  !ext.w,ext.l
15906 @ 131389:                  LINE   3014 "regression-compile-tmp/imp22g-77.imp"
15907 @ 131429:                  PUSH   PLANT
15908 @ 131432:                  PUSHI  #0x0000004c
15909 @ 131437:                  PUSHI  #0x00000002
15910 @ 131442:                  SUB   
15911 @ 131443:                  PUSH   SY
15912 @ 131446:                  ADD   
15913 @ 131447:                  ASSPAR
15914 @ 131448:                  PUSHI  #0x00000000
15915 @ 131453:                  ASSPAR
15916 @ 131454:                  PUSH   R
15917 @ 131457:                  ASSPAR
15918 @ 131458:                  CALL  

  3015        sy = sy+sy
15919 @ 131459:                  LINE   3015 "regression-compile-tmp/imp22g-77.imp"
15920 @ 131499:                  PUSH   SY
15921 @ 131502:                  PUSH   SY
15922 @ 131505:                  PUSH   SY
15923 @ 131508:                  ADD   
15924 @ 131509:                  ASSVAL

  3016      %else
15925 @ 131510:                  LINE   3016 "regression-compile-tmp/imp22g-77.imp"
15926 @ 131550:                  GOTO   L_0006
15927 @ 131553:                  LOCATE L_0007

  3017        %if sy = -1 %start;  !unsigned byte
15928 @ 131556:                  LINE   3017 "regression-compile-tmp/imp22g-77.imp"
15929 @ 131596:                  PUSH   SY
15930 @ 131599:                  PUSHI  #0x00000001
15931 @ 131604:                  NEGATE
15932 @ 131605:                  JUMPIF # L_000a

  3018          plantlit(and,255,r)
15933 @ 131609:                  LINE   3018 "regression-compile-tmp/imp22g-77.imp"
15934 @ 131649:                  PUSH   PLANTLIT
15935 @ 131652:                  PUSHI  #0x00000005
15936 @ 131657:                  ASSPAR
15937 @ 131658:                  PUSHI  #0x000000ff
15938 @ 131663:                  ASSPAR
15939 @ 131664:                  PUSH   R
15940 @ 131667:                  ASSPAR
15941 @ 131668:                  CALL  

  3019        %else;            !unsigned word (half)
15942 @ 131669:                  LINE   3019 "regression-compile-tmp/imp22g-77.imp"
15943 @ 131709:                  GOTO   L_0009
15944 @ 131712:                  LOCATE L_000a

  3020          plantlit(and,16_FFFF,r)
15945 @ 131715:                  LINE   3020 "regression-compile-tmp/imp22g-77.imp"
15946 @ 131755:                  PUSH   PLANTLIT
15947 @ 131758:                  PUSHI  #0x00000005
15948 @ 131763:                  ASSPAR
15949 @ 131764:                  PUSHI  #0x0000ffff
15950 @ 131769:                  ASSPAR
15951 @ 131770:                  PUSH   R
15952 @ 131773:                  ASSPAR
15953 @ 131774:                  CALL  

  3021        %finish
15954 @ 131775:                  LINE   3021 "regression-compile-tmp/imp22g-77.imp"
15955 @ 131815:                  LOCATE L_0009

  3022        sy = 4
15956 @ 131818:                  LINE   3022 "regression-compile-tmp/imp22g-77.imp"
15957 @ 131858:                  PUSH   SY
15958 @ 131861:                  PUSHI  #0x00000004
15959 @ 131866:                  ASSVAL

  3023      %finish
15960 @ 131867:                  LINE   3023 "regression-compile-tmp/imp22g-77.imp"
15961 @ 131907:                  LOCATE L_0006

  3024    %repeat
15962 @ 131910:                  LINE   3024 "regression-compile-tmp/imp22g-77.imp"
15963 @ 131950:                  REPEAT L_0003
15964 @ 131953:                  LOCATE L_0004

  3025  %end
  3026  
  3027  !!Start of EVAL
  3028  
15965 @ 131956:                  LINE   3025 "regression-compile-tmp/imp22g-77.imp"
15966 @ 131996:               END    _lev0id0_EVAL_PARTREG {lev=3 --> 2}

  3029    stsize = stsiz;  !additional parameter (for TOSTACK cases)
15967 @ 131997:               LINE   3029 "regression-compile-tmp/imp22g-77.imp"
15968 @ 132037:               PUSH   STSIZE
15969 @ 132040:               PUSH   STSIZ
15970 @ 132043:               ASSVAL

  3030    rset = rset&(\anyareg) %if rset&tobyte # 0;  ![1 bit]
15971 @ 132044:               LINE   3030 "regression-compile-tmp/imp22g-77.imp"
15972 @ 132084:               PUSH   RSET
15973 @ 132087:               PUSHI  #0x00010000
15974 @ 132092:               AND   
15975 @ 132093:               PUSHI  #0x00000000
15976 @ 132098:               JUMPIF = L_0004
15977 @ 132102:               PUSH   RSET
15978 @ 132105:               PUSH   RSET
15979 @ 132108:               PUSHI  #0x0000ff00
15980 @ 132113:               NOT   
15981 @ 132114:               AND   
15982 @ 132115:               ASSVAL
15983 @ 132116:               LOCATE L_0004

  3031    p = pp;  p = p-ad %if p >= explim
15984 @ 132119:               LINE   3031 "regression-compile-tmp/imp22g-77.imp"
15985 @ 132159:               PUSH   P
15986 @ 132162:               PUSH   PP
15987 @ 132165:               ASSVAL
15988 @ 132166:               LINE   3031 "regression-compile-tmp/imp22g-77.imp"
15989 @ 132206:               PUSH   P
15990 @ 132209:               PUSH   EXPLIM
15991 @ 132212:               JUMPIF < L_0004
15992 @ 132216:               PUSH   P
15993 @ 132219:               PUSH   P
15994 @ 132222:               PUSHI  #0x00004000
15995 @ 132227:               SUB   
15996 @ 132228:               ASSVAL
15997 @ 132229:               LOCATE L_0004

  3032    rset = rset-asad %and pp = p+ad %if rset&asad # 0
15998 @ 132232:               LINE   3032 "regression-compile-tmp/imp22g-77.imp"
15999 @ 132272:               PUSH   RSET
16000 @ 132275:               PUSHI  #0x00100000
16001 @ 132280:               AND   
16002 @ 132281:               PUSHI  #0x00000000
16003 @ 132286:               JUMPIF = L_0004
16004 @ 132290:               PUSH   RSET
16005 @ 132293:               PUSH   RSET
16006 @ 132296:               PUSHI  #0x00100000
16007 @ 132301:               SUB   
16008 @ 132302:               ASSVAL
16009 @ 132303:               PUSH   PP
16010 @ 132306:               PUSH   P
16011 @ 132309:               PUSHI  #0x00004000
16012 @ 132314:               ADD   
16013 @ 132315:               ASSVAL
16014 @ 132316:               LOCATE L_0004

  3033    %if p <= 0 %then dp == dint %else dp == dict(p)
16015 @ 132319:               LINE   3033 "regression-compile-tmp/imp22g-77.imp"
16016 @ 132359:               PUSH   P
16017 @ 132362:               PUSHI  #0x00000000
16018 @ 132367:               JUMPIF > L_0004
16019 @ 132371:               PUSH   DP
16020 @ 132374:               PUSH   DINT
16021 @ 132377:               ASSREF
16022 @ 132378:               GOTO   L_0003
16023 @ 132381:               LOCATE L_0004
16024 @ 132384:               PUSH   DP
16025 @ 132387:               PUSH   DICT
16026 @ 132390:               PUSH   P
16027 @ 132393:               ACCESS
16028 @ 132394:               ASSREF
16029 @ 132395:               LOCATE L_0003

  3034    oldfree = free;  freed = 0
  3035  
16030 @ 132398:               LINE   3034 "regression-compile-tmp/imp22g-77.imp"
16031 @ 132438:               PUSH   OLDFREE
16032 @ 132441:               PUSH   FREE
16033 @ 132444:               ASSVAL
16034 @ 132445:               LINE   3034 "regression-compile-tmp/imp22g-77.imp"
16035 @ 132485:               PUSH   FREED
16036 @ 132488:               PUSHI  #0x00000000
16037 @ 132493:               ASSVAL

  3036  %if rset # inst %start
16038 @ 132494:               LINE   3036 "regression-compile-tmp/imp22g-77.imp"
16039 @ 132534:               PUSH   RSET
16040 @ 132537:               PUSHI  #0x40000000
16041 @ 132542:               JUMPIF = L_0004

  3037    %unless dp_mode&2_110000 = 0 %and pp < np0 %start;  !not already reg
16042 @ 132546:               LINE   3037 "regression-compile-tmp/imp22g-77.imp"
16043 @ 132586:               PUSH   DP
16044 @ 132589:               SELECT 8
16045 @ 132592:               PUSHI  #0x00000030
16046 @ 132597:               AND   
16047 @ 132598:               PUSHI  #0x00000000
16048 @ 132603:               JUMPIF # L_0008
16049 @ 132607:               PUSH   PP
16050 @ 132610:               PUSH   NP0
16051 @ 132613:               JUMPIF < L_0007
16052 @ 132617:               LOCATE L_0008

  3038      j = pp
16053 @ 132620:               LINE   3038 "regression-compile-tmp/imp22g-77.imp"
16054 @ 132660:               PUSH   J
16055 @ 132663:               PUSH   PP
16056 @ 132666:               ASSVAL

  3039      %if rset&(anydreg!bregb{+tostack}) # 0 %start;  !data reg acceptable
16057 @ 132667:               LINE   3039 "regression-compile-tmp/imp22g-77.imp"
16058 @ 132707:               PUSH   RSET
16059 @ 132710:               PUSHI  #0x000000ef
16060 @ 132715:               PUSHI  #0x00000010
16061 @ 132720:               OR    
16062 @ 132721:               AND   
16063 @ 132722:               PUSHI  #0x00000000
16064 @ 132727:               JUMPIF = L_000a

  3040        i = d0
16065 @ 132731:               LINE   3040 "regression-compile-tmp/imp22g-77.imp"
16066 @ 132771:               PUSH   I
16067 @ 132774:               PUSHI  #0x00000001
16068 @ 132779:               ASSVAL

  3041        %cycle;  !See if available
16069 @ 132780:               LINE   3041 "regression-compile-tmp/imp22g-77.imp"
16070 @ 132820:               LOCATE L_000c

  3042          j = i %and %exit %if c_reg_content(i) = j
16071 @ 132823:               LINE   3042 "regression-compile-tmp/imp22g-77.imp"
16072 @ 132863:               PUSH   C
16073 @ 132866:               SELECT 30
16074 @ 132869:               SELECT 4
16075 @ 132872:               PUSH   I
16076 @ 132875:               ACCESS
16077 @ 132876:               PUSH   J
16078 @ 132879:               JUMPIF # L_0010
16079 @ 132883:               PUSH   J
16080 @ 132886:               PUSH   I
16081 @ 132889:               ASSVAL
16082 @ 132890:               GOTO   L_000d
16083 @ 132893:               LOCATE L_0010

  3043          i = i+1;  i = a0 %if i = maxdreg+1
16084 @ 132896:               LINE   3043 "regression-compile-tmp/imp22g-77.imp"
16085 @ 132936:               PUSH   I
16086 @ 132939:               PUSH   I
16087 @ 132942:               PUSHI  #0x00000001
16088 @ 132947:               ADD   
16089 @ 132948:               ASSVAL
16090 @ 132949:               LINE   3043 "regression-compile-tmp/imp22g-77.imp"
16091 @ 132989:               PUSH   I
16092 @ 132992:               PUSHI  #0x00000004
16093 @ 132997:               PUSHI  #0x00000001
16094 @ 133002:               ADD   
16095 @ 133003:               JUMPIF # L_0010
16096 @ 133007:               PUSH   I
16097 @ 133010:               PUSHI  #0x00000009
16098 @ 133015:               ASSVAL
16099 @ 133016:               LOCATE L_0010

  3044        %repeat %until i > maxareg
16100 @ 133019:               LINE   3044 "regression-compile-tmp/imp22g-77.imp"
16101 @ 133059:               PUSH   I
16102 @ 133062:               PUSHI  #0x0000000c
16103 @ 133067:               JUMPIF > L_000d
16104 @ 133071:               REPEAT L_000c
16105 @ 133074:               LOCATE L_000d

  3045      %finish %else %if rset&anyareg # 0 %start;  !try address regs first
16106 @ 133077:               LINE   3045 "regression-compile-tmp/imp22g-77.imp"
16107 @ 133117:               GOTO   L_0009
16108 @ 133120:               LOCATE L_000a
16109 @ 133123:               PUSH   RSET
16110 @ 133126:               PUSHI  #0x0000ff00
16111 @ 133131:               AND   
16112 @ 133132:               PUSHI  #0x00000000
16113 @ 133137:               JUMPIF = L_000a

  3046        i = maxareg
16114 @ 133141:               LINE   3046 "regression-compile-tmp/imp22g-77.imp"
16115 @ 133181:               PUSH   I
16116 @ 133184:               PUSHI  #0x0000000c
16117 @ 133189:               ASSVAL

  3047        %cycle
16118 @ 133190:               LINE   3047 "regression-compile-tmp/imp22g-77.imp"
16119 @ 133230:               LOCATE L_000c

  3048          j = i %and %exit %if c_reg_content(i) = j
16120 @ 133233:               LINE   3048 "regression-compile-tmp/imp22g-77.imp"
16121 @ 133273:               PUSH   C
16122 @ 133276:               SELECT 30
16123 @ 133279:               SELECT 4
16124 @ 133282:               PUSH   I
16125 @ 133285:               ACCESS
16126 @ 133286:               PUSH   J
16127 @ 133289:               JUMPIF # L_0010
16128 @ 133293:               PUSH   J
16129 @ 133296:               PUSH   I
16130 @ 133299:               ASSVAL
16131 @ 133300:               GOTO   L_000d
16132 @ 133303:               LOCATE L_0010

  3049          i = i-1;  i = maxdreg %if i = a0-1
16133 @ 133306:               LINE   3049 "regression-compile-tmp/imp22g-77.imp"
16134 @ 133346:               PUSH   I
16135 @ 133349:               PUSH   I
16136 @ 133352:               PUSHI  #0x00000001
16137 @ 133357:               SUB   
16138 @ 133358:               ASSVAL
16139 @ 133359:               LINE   3049 "regression-compile-tmp/imp22g-77.imp"
16140 @ 133399:               PUSH   I
16141 @ 133402:               PUSHI  #0x00000009
16142 @ 133407:               PUSHI  #0x00000001
16143 @ 133412:               SUB   
16144 @ 133413:               JUMPIF # L_0010
16145 @ 133417:               PUSH   I
16146 @ 133420:               PUSHI  #0x00000004
16147 @ 133425:               ASSVAL
16148 @ 133426:               LOCATE L_0010

  3050        %repeat %until i < d0
16149 @ 133429:               LINE   3050 "regression-compile-tmp/imp22g-77.imp"
16150 @ 133469:               PUSH   I
16151 @ 133472:               PUSHI  #0x00000001
16152 @ 133477:               JUMPIF < L_000d
16153 @ 133481:               REPEAT L_000c
16154 @ 133484:               LOCATE L_000d

  3051      %finish %else %if j < explim %and rset # tostack %start;  !REF: try for address
16155 @ 133487:               LINE   3051 "regression-compile-tmp/imp22g-77.imp"
16156 @ 133527:               GOTO   L_0009
16157 @ 133530:               LOCATE L_000a
16158 @ 133533:               PUSH   J
16159 @ 133536:               PUSH   EXPLIM
16160 @ 133539:               JUMPIF >= L_000a
16161 @ 133543:               PUSH   RSET
16162 @ 133546:               PUSHI  #0x00080000
16163 @ 133551:               JUMPIF = L_000a

  3052        i = a0
16164 @ 133555:               LINE   3052 "regression-compile-tmp/imp22g-77.imp"
16165 @ 133595:               PUSH   I
16166 @ 133598:               PUSHI  #0x00000009
16167 @ 133603:               ASSVAL

  3053        %cycle
16168 @ 133604:               LINE   3053 "regression-compile-tmp/imp22g-77.imp"
16169 @ 133644:               LOCATE L_000c

  3054          %if c_reg_content(i) = j+ad %start
16170 @ 133647:               LINE   3054 "regression-compile-tmp/imp22g-77.imp"
16171 @ 133687:               PUSH   C
16172 @ 133690:               SELECT 30
16173 @ 133693:               SELECT 4
16174 @ 133696:               PUSH   I
16175 @ 133699:               ACCESS
16176 @ 133700:               PUSH   J
16177 @ 133703:               PUSHI  #0x00004000
16178 @ 133708:               ADD   
16179 @ 133709:               JUMPIF # L_0010

  3055            free = free&(\(a0b<<(i-a0)))
16180 @ 133713:               LINE   3055 "regression-compile-tmp/imp22g-77.imp"
16181 @ 133753:               PUSH   FREE
16182 @ 133756:               PUSH   FREE
16183 @ 133759:               PUSHI  #0x00000100
16184 @ 133764:               PUSH   I
16185 @ 133767:               PUSHI  #0x00000009
16186 @ 133772:               SUB   
16187 @ 133773:               LSH   
16188 @ 133774:               NOT   
16189 @ 133775:               AND   
16190 @ 133776:               ASSVAL

  3056            dp_flags = dp_flags!(rflag+wflag)
16191 @ 133777:               LINE   3056 "regression-compile-tmp/imp22g-77.imp"
16192 @ 133817:               PUSH   DP
16193 @ 133820:               SELECT 1
16194 @ 133823:               PUSH   DP
16195 @ 133826:               SELECT 1
16196 @ 133829:               PUSHI  #0x00000020
16197 @ 133834:               PUSHI  #0x00000010
16198 @ 133839:               ADD   
16199 @ 133840:               OR    
16200 @ 133841:               ASSVAL

  3057            pp = i+indir
16201 @ 133842:               LINE   3057 "regression-compile-tmp/imp22g-77.imp"
16202 @ 133882:               PUSH   PP
16203 @ 133885:               PUSH   I
16204 @ 133888:               PUSHI  #0x00000008
16205 @ 133893:               ADD   
16206 @ 133894:               ASSVAL

  3058            %return
16207 @ 133895:               LINE   3058 "regression-compile-tmp/imp22g-77.imp"
16208 @ 133935:               RETURN

  3059          %finish
16209 @ 133936:               LINE   3059 "regression-compile-tmp/imp22g-77.imp"
16210 @ 133976:               LOCATE L_0010

  3060          i = i+1
16211 @ 133979:               LINE   3060 "regression-compile-tmp/imp22g-77.imp"
16212 @ 134019:               PUSH   I
16213 @ 134022:               PUSH   I
16214 @ 134025:               PUSHI  #0x00000001
16215 @ 134030:               ADD   
16216 @ 134031:               ASSVAL

  3061        %repeat %until i > maxareg
16217 @ 134032:               LINE   3061 "regression-compile-tmp/imp22g-77.imp"
16218 @ 134072:               PUSH   I
16219 @ 134075:               PUSHI  #0x0000000c
16220 @ 134080:               JUMPIF > L_000d
16221 @ 134084:               REPEAT L_000c
16222 @ 134087:               LOCATE L_000d

  3062      %finish
16223 @ 134090:               LINE   3062 "regression-compile-tmp/imp22g-77.imp"
16224 @ 134130:               LOCATE L_000a
16225 @ 134133:               LOCATE L_0009

  3063    %else;  !already reg
16226 @ 134136:               LINE   3063 "regression-compile-tmp/imp22g-77.imp"
16227 @ 134176:               GOTO   L_0006
16228 @ 134179:               LOCATE L_0007

  3064      j = dp_mode+d0;       !in case reg alias
16229 @ 134182:               LINE   3064 "regression-compile-tmp/imp22g-77.imp"
16230 @ 134222:               PUSH   J
16231 @ 134225:               PUSH   DP
16232 @ 134228:               SELECT 8
16233 @ 134231:               PUSHI  #0x00000001
16234 @ 134236:               ADD   
16235 @ 134237:               ASSVAL

  3065      %if rset < 0 %start;  !EA ok means any reg ok
16236 @ 134238:               LINE   3065 "regression-compile-tmp/imp22g-77.imp"
16237 @ 134278:               PUSH   RSET
16238 @ 134281:               PUSHI  #0x00000000
16239 @ 134286:               JUMPIF >= L_000a

  3066        pp = j
16240 @ 134290:               LINE   3066 "regression-compile-tmp/imp22g-77.imp"
16241 @ 134330:               PUSH   PP
16242 @ 134333:               PUSH   J
16243 @ 134336:               ASSVAL

  3067        %return
16244 @ 134337:               LINE   3067 "regression-compile-tmp/imp22g-77.imp"
16245 @ 134377:               RETURN

  3068      %finish
16246 @ 134378:               LINE   3068 "regression-compile-tmp/imp22g-77.imp"
16247 @ 134418:               LOCATE L_000a

  3069      pp = c_reg_content(j); !fiddle for update
16248 @ 134421:               LINE   3069 "regression-compile-tmp/imp22g-77.imp"
16249 @ 134461:               PUSH   PP
16250 @ 134464:               PUSH   C
16251 @ 134467:               SELECT 30
16252 @ 134470:               SELECT 4
16253 @ 134473:               PUSH   J
16254 @ 134476:               ACCESS
16255 @ 134477:               ASSVAL

  3070    %finish
  3071  
16256 @ 134478:               LINE   3070 "regression-compile-tmp/imp22g-77.imp"
16257 @ 134518:               LOCATE L_0006

  3072    %if 0 < j <= a7 %start;  !operand (now) in reg
16258 @ 134521:               LINE   3072 "regression-compile-tmp/imp22g-77.imp"
16259 @ 134561:               PUSHI  #0x00000000
16260 @ 134566:               PUSH   J
16261 @ 134569:               JUMPIFD >= L_0007
16262 @ 134573:               PUSHI  #0x00000010
16263 @ 134578:               JUMPIF > L_0007

  3073      ok reg(j)
16264 @ 134582:               LINE   3073 "regression-compile-tmp/imp22g-77.imp"
16265 @ 134622:               PUSH   OKREG
16266 @ 134625:               PUSH   J
16267 @ 134628:               ASSPAR
16268 @ 134629:               CALL  

  3074      dp_flags = dp_flags!rflag
16269 @ 134630:               LINE   3074 "regression-compile-tmp/imp22g-77.imp"
16270 @ 134670:               PUSH   DP
16271 @ 134673:               SELECT 1
16272 @ 134676:               PUSH   DP
16273 @ 134679:               SELECT 1
16274 @ 134682:               PUSHI  #0x00000020
16275 @ 134687:               OR    
16276 @ 134688:               ASSVAL

  3075      -> endload
16277 @ 134689:               LINE   3075 "regression-compile-tmp/imp22g-77.imp"
16278 @ 134729:               JUMP   L_0175

  3076    %finish
  3077  
16279 @ 134732:               LINE   3076 "regression-compile-tmp/imp22g-77.imp"
16280 @ 134772:               LOCATE L_0007

  3078    %if p <= 0 %start;  !literal
16281 @ 134775:               LINE   3078 "regression-compile-tmp/imp22g-77.imp"
16282 @ 134815:               PUSH   P
16283 @ 134818:               PUSHI  #0x00000000
16284 @ 134823:               JUMPIF > L_0007

  3079      %return %if rset < 0
16285 @ 134827:               LINE   3079 "regression-compile-tmp/imp22g-77.imp"
16286 @ 134867:               PUSH   RSET
16287 @ 134870:               PUSHI  #0x00000000
16288 @ 134875:               JUMPIF >= L_000a
16289 @ 134879:               RETURN
16290 @ 134880:               LOCATE L_000a

  3080      %if rset = tostack %start
16291 @ 134883:               LINE   3080 "regression-compile-tmp/imp22g-77.imp"
16292 @ 134923:               PUSH   RSET
16293 @ 134926:               PUSHI  #0x00080000
16294 @ 134931:               JUMPIF # L_000a

  3081        i = constmode;  i = pcmode %if p = 0;  !null string [sneaky]
16295 @ 134935:               LINE   3081 "regression-compile-tmp/imp22g-77.imp"
16296 @ 134975:               PUSH   I
16297 @ 134978:               PUSHI  #0x0000007a
16298 @ 134983:               ASSVAL
16299 @ 134984:               LINE   3081 "regression-compile-tmp/imp22g-77.imp"
16300 @ 135024:               PUSH   P
16301 @ 135027:               PUSHI  #0x00000000
16302 @ 135032:               JUMPIF # L_000d
16303 @ 135036:               PUSH   I
16304 @ 135039:               PUSHI  #0x0000003a
16305 @ 135044:               ASSVAL
16306 @ 135045:               LOCATE L_000d

  3082        plant(lea,temp(i,litval(p)),a0);           !A0 must be free
16307 @ 135048:               LINE   3082 "regression-compile-tmp/imp22g-77.imp"
16308 @ 135088:               PUSH   PLANT
16309 @ 135091:               PUSHI  #0x0000004e
16310 @ 135096:               ASSPAR
16311 @ 135097:               PUSH   TEMP
16312 @ 135100:               PUSH   I
16313 @ 135103:               ASSPAR
16314 @ 135104:               PUSH   LITVAL
16315 @ 135107:               PUSH   P
16316 @ 135110:               ASSPAR
16317 @ 135111:               CALL  
16318 @ 135112:               ASSPAR
16319 @ 135113:               CALL  
16320 @ 135114:               ASSPAR
16321 @ 135115:               PUSHI  #0x00000009
16322 @ 135120:               ASSPAR
16323 @ 135121:               CALL  

  3083        forget(a0)
16324 @ 135122:               LINE   3083 "regression-compile-tmp/imp22g-77.imp"
16325 @ 135162:               PUSH   FORGET
16326 @ 135165:               PUSHI  #0x00000009
16327 @ 135170:               ASSPAR
16328 @ 135171:               CALL  

  3084        push structure
16329 @ 135172:               LINE   3084 "regression-compile-tmp/imp22g-77.imp"
16330 @ 135212:               PUSH   PUSHSTRUCTURE
16331 @ 135215:               CALL  

  3085        %return
16332 @ 135216:               LINE   3085 "regression-compile-tmp/imp22g-77.imp"
16333 @ 135256:               RETURN

  3086      %finish
16334 @ 135257:               LINE   3086 "regression-compile-tmp/imp22g-77.imp"
16335 @ 135297:               LOCATE L_000a

  3087      %if pp < explim %start;  !normal value
16336 @ 135300:               LINE   3087 "regression-compile-tmp/imp22g-77.imp"
16337 @ 135340:               PUSH   PP
16338 @ 135343:               PUSH   EXPLIM
16339 @ 135346:               JUMPIF >= L_000a

  3088        rset = rset&(\bregb) %if p < -(255<<1) %or p&1 # 0;  !0:255 ok
16340 @ 135350:               LINE   3088 "regression-compile-tmp/imp22g-77.imp"
16341 @ 135390:               PUSH   P
16342 @ 135393:               PUSHI  #0x000000ff
16343 @ 135398:               PUSHI  #0x00000001
16344 @ 135403:               LSH   
16345 @ 135404:               NEGATE
16346 @ 135405:               JUMPIF < L_000e
16347 @ 135409:               PUSH   P
16348 @ 135412:               PUSHI  #0x00000001
16349 @ 135417:               AND   
16350 @ 135418:               PUSHI  #0x00000000
16351 @ 135423:               JUMPIF = L_000d
16352 @ 135427:               LOCATE L_000e
16353 @ 135430:               PUSH   RSET
16354 @ 135433:               PUSH   RSET
16355 @ 135436:               PUSHI  #0x00000010
16356 @ 135441:               NOT   
16357 @ 135442:               AND   
16358 @ 135443:               ASSVAL
16359 @ 135444:               LOCATE L_000d

  3089        r = free reg(rset)
16360 @ 135447:               LINE   3089 "regression-compile-tmp/imp22g-77.imp"
16361 @ 135487:               PUSH   R
16362 @ 135490:               PUSH   FREEREG
16363 @ 135493:               PUSH   RSET
16364 @ 135496:               ASSPAR
16365 @ 135497:               CALL  
16366 @ 135498:               ASSVAL

  3090        %if r < a0 %or p # 0 %then plant(move,p,r) %c
  3091        %else plant(sub,r,r)
16367 @ 135499:               LINE   3090 "regression-compile-tmp/imp22g-77.imp"
16368 @ 135539:               PUSH   R
16369 @ 135542:               PUSHI  #0x00000009
16370 @ 135547:               JUMPIF < L_000e
16371 @ 135551:               PUSH   P
16372 @ 135554:               PUSHI  #0x00000000
16373 @ 135559:               JUMPIF = L_000d
16374 @ 135563:               LOCATE L_000e
16375 @ 135566:               PUSH   PLANT
16376 @ 135569:               PUSHI  #0x00000001
16377 @ 135574:               ASSPAR
16378 @ 135575:               PUSH   P
16379 @ 135578:               ASSPAR
16380 @ 135579:               PUSH   R
16381 @ 135582:               ASSPAR
16382 @ 135583:               CALL  
16383 @ 135584:               GOTO   L_000c
16384 @ 135587:               LOCATE L_000d
16385 @ 135590:               PUSH   PLANT
16386 @ 135593:               PUSHI  #0x00000003
16387 @ 135598:               ASSPAR
16388 @ 135599:               PUSH   R
16389 @ 135602:               ASSPAR
16390 @ 135603:               PUSH   R
16391 @ 135606:               ASSPAR
16392 @ 135607:               CALL  
16393 @ 135608:               LOCATE L_000c

  3092      %else;                    !address within FINAL
16394 @ 135611:               LINE   3092 "regression-compile-tmp/imp22g-77.imp"
16395 @ 135651:               GOTO   L_0009
16396 @ 135654:               LOCATE L_000a

  3093        i = constmode;  i = pcmode %if p = 0;  !null string [sneaky]
16397 @ 135657:               LINE   3093 "regression-compile-tmp/imp22g-77.imp"
16398 @ 135697:               PUSH   I
16399 @ 135700:               PUSHI  #0x0000007a
16400 @ 135705:               ASSVAL
16401 @ 135706:               LINE   3093 "regression-compile-tmp/imp22g-77.imp"
16402 @ 135746:               PUSH   P
16403 @ 135749:               PUSHI  #0x00000000
16404 @ 135754:               JUMPIF # L_000d
16405 @ 135758:               PUSH   I
16406 @ 135761:               PUSHI  #0x0000003a
16407 @ 135766:               ASSVAL
16408 @ 135767:               LOCATE L_000d

  3094        load address(temp(i,litval(p)))
16409 @ 135770:               LINE   3094 "regression-compile-tmp/imp22g-77.imp"
16410 @ 135810:               PUSH   LOADADDRESS
16411 @ 135813:               PUSH   TEMP
16412 @ 135816:               PUSH   I
16413 @ 135819:               ASSPAR
16414 @ 135820:               PUSH   LITVAL
16415 @ 135823:               PUSH   P
16416 @ 135826:               ASSPAR
16417 @ 135827:               CALL  
16418 @ 135828:               ASSPAR
16419 @ 135829:               CALL  
16420 @ 135830:               ASSPAR
16421 @ 135831:               CALL  

  3095      %finish
16422 @ 135832:               LINE   3095 "regression-compile-tmp/imp22g-77.imp"
16423 @ 135872:               LOCATE L_0009

  3096      c_reg_ccx = pp %and c_reg_ccy = 0 %if r < a0
16424 @ 135875:               LINE   3096 "regression-compile-tmp/imp22g-77.imp"
16425 @ 135915:               PUSH   R
16426 @ 135918:               PUSHI  #0x00000009
16427 @ 135923:               JUMPIF >= L_000a
16428 @ 135927:               PUSH   C
16429 @ 135930:               SELECT 30
16430 @ 135933:               SELECT 1
16431 @ 135936:               PUSH   PP
16432 @ 135939:               ASSVAL
16433 @ 135940:               PUSH   C
16434 @ 135943:               SELECT 30
16435 @ 135946:               SELECT 2
16436 @ 135949:               PUSHI  #0x00000000
16437 @ 135954:               ASSVAL
16438 @ 135955:               LOCATE L_000a

  3097      ->endload
16439 @ 135958:               LINE   3097 "regression-compile-tmp/imp22g-77.imp"
16440 @ 135998:               JUMP   L_0175

  3098    %finish
16441 @ 136001:               LINE   3098 "regression-compile-tmp/imp22g-77.imp"
16442 @ 136041:               LOCATE L_0007

  3099  %finish
16443 @ 136044:               LINE   3099 "regression-compile-tmp/imp22g-77.imp"
16444 @ 136084:               LOCATE L_0004

  3100    %if p >= np0 %start;  !complex
16445 @ 136087:               LINE   3100 "regression-compile-tmp/imp22g-77.imp"
16446 @ 136127:               PUSH   P
16447 @ 136130:               PUSH   NP0
16448 @ 136133:               JUMPIF < L_0004

  3101  more:
16449 @ 136137:               LINE   3101 "regression-compile-tmp/imp22g-77.imp"
16450 @ 136177:               LABEL  L_0176

  3102      act = dp_act;  x = dp_x;  y = dp_y
16451 @ 136180:               LINE   3102 "regression-compile-tmp/imp22g-77.imp"
16452 @ 136220:               PUSH   ACT
16453 @ 136223:               PUSH   DP
16454 @ 136226:               SELECT 6
16455 @ 136229:               ASSVAL
16456 @ 136230:               LINE   3102 "regression-compile-tmp/imp22g-77.imp"
16457 @ 136270:               PUSH   X
16458 @ 136273:               PUSH   DP
16459 @ 136276:               SELECT 13
16460 @ 136279:               ASSVAL
16461 @ 136280:               LINE   3102 "regression-compile-tmp/imp22g-77.imp"
16462 @ 136320:               PUSH   Y
16463 @ 136323:               PUSH   DP
16464 @ 136326:               SELECT 14
16465 @ 136329:               ASSVAL

  3103      xx = x;  yy = y
16466 @ 136330:               LINE   3103 "regression-compile-tmp/imp22g-77.imp"
16467 @ 136370:               PUSH   XX
16468 @ 136373:               PUSH   X
16469 @ 136376:               ASSVAL
16470 @ 136377:               LINE   3103 "regression-compile-tmp/imp22g-77.imp"
16471 @ 136417:               PUSH   YY
16472 @ 136420:               PUSH   Y
16473 @ 136423:               ASSVAL

  3104      -> proccall %if act > opmax
16474 @ 136424:               LINE   3104 "regression-compile-tmp/imp22g-77.imp"
16475 @ 136464:               PUSH   ACT
16476 @ 136467:               PUSHI  #0x00000075
16477 @ 136472:               JUMPIF <= L_0007
16478 @ 136476:               JUMP   L_0177
16479 @ 136479:               LOCATE L_0007

  3105      -> do(act)
16480 @ 136482:               LINE   3105 "regression-compile-tmp/imp22g-77.imp"
16481 @ 136522:               PUSH   ACT
16482 @ 136525:               SJUMP  327

  3106    %finish
  3107  
16483 @ 136528:               LINE   3106 "regression-compile-tmp/imp22g-77.imp"
16484 @ 136568:               LOCATE L_0004

  3108  do(move):
16485 @ 136571:               LINE   3108 "regression-compile-tmp/imp22g-77.imp"
16486 @ 136611:               PUSHI  #0x00000001
16487 @ 136616:               SLABEL 327

  3109  load:
16488 @ 136619:               LINE   3109 "regression-compile-tmp/imp22g-77.imp"
16489 @ 136659:               LABEL  L_0178

  3110    i = 0
16490 @ 136662:               LINE   3110 "regression-compile-tmp/imp22g-77.imp"
16491 @ 136702:               PUSH   I
16492 @ 136705:               PUSHI  #0x00000000
16493 @ 136710:               ASSVAL

  3111    i = i+1 %if dp_flags&indirect # 0
16494 @ 136711:               LINE   3111 "regression-compile-tmp/imp22g-77.imp"
16495 @ 136751:               PUSH   DP
16496 @ 136754:               SELECT 1
16497 @ 136757:               PUSHI  #0x00000800
16498 @ 136762:               AND   
16499 @ 136763:               PUSHI  #0x00000000
16500 @ 136768:               JUMPIF = L_0004
16501 @ 136772:               PUSH   I
16502 @ 136775:               PUSH   I
16503 @ 136778:               PUSHI  #0x00000001
16504 @ 136783:               ADD   
16505 @ 136784:               ASSVAL
16506 @ 136785:               LOCATE L_0004

  3112    i = i+2 %if dp_flags < 0
16507 @ 136788:               LINE   3112 "regression-compile-tmp/imp22g-77.imp"
16508 @ 136828:               PUSH   DP
16509 @ 136831:               SELECT 1
16510 @ 136834:               PUSHI  #0x00000000
16511 @ 136839:               JUMPIF >= L_0004
16512 @ 136843:               PUSH   I
16513 @ 136846:               PUSH   I
16514 @ 136849:               PUSHI  #0x00000002
16515 @ 136854:               ADD   
16516 @ 136855:               ASSVAL
16517 @ 136856:               LOCATE L_0004

  3113    %if pp >= explim %start {address wanted}
16518 @ 136859:               LINE   3113 "regression-compile-tmp/imp22g-77.imp"
16519 @ 136899:               PUSH   PP
16520 @ 136902:               PUSH   EXPLIM
16521 @ 136905:               JUMPIF < L_0004

  3114      %if i = 0 %start
16522 @ 136909:               LINE   3114 "regression-compile-tmp/imp22g-77.imp"
16523 @ 136949:               PUSH   I
16524 @ 136952:               PUSHI  #0x00000000
16525 @ 136957:               JUMPIF # L_0007

  3115        free = oldfree
16526 @ 136961:               LINE   3115 "regression-compile-tmp/imp22g-77.imp"
16527 @ 137001:               PUSH   FREE
16528 @ 137004:               PUSH   OLDFREE
16529 @ 137007:               ASSVAL

  3116        load address(p)
16530 @ 137008:               LINE   3116 "regression-compile-tmp/imp22g-77.imp"
16531 @ 137048:               PUSH   LOADADDRESS
16532 @ 137051:               PUSH   P
16533 @ 137054:               ASSPAR
16534 @ 137055:               CALL  

  3117      %else
16535 @ 137056:               LINE   3117 "regression-compile-tmp/imp22g-77.imp"
16536 @ 137096:               GOTO   L_0006
16537 @ 137099:               LOCATE L_0007

  3118        %if i = 3 %start;  !indirect name
16538 @ 137102:               LINE   3118 "regression-compile-tmp/imp22g-77.imp"
16539 @ 137142:               PUSH   I
16540 @ 137145:               PUSHI  #0x00000003
16541 @ 137150:               JUMPIF # L_000a

  3119          free = oldfree
16542 @ 137154:               LINE   3119 "regression-compile-tmp/imp22g-77.imp"
16543 @ 137194:               PUSH   FREE
16544 @ 137197:               PUSH   OLDFREE
16545 @ 137200:               ASSVAL

  3120          r = free areg(undef);  plant(move,p,r)
16546 @ 137201:               LINE   3120 "regression-compile-tmp/imp22g-77.imp"
16547 @ 137241:               PUSH   R
16548 @ 137244:               PUSH   FREEAREG
16549 @ 137247:               PUSHI  #0x00000010
16550 @ 137252:               ASSPAR
16551 @ 137253:               CALL  
16552 @ 137254:               ASSVAL
16553 @ 137255:               LINE   3120 "regression-compile-tmp/imp22g-77.imp"
16554 @ 137295:               PUSH   PLANT
16555 @ 137298:               PUSHI  #0x00000001
16556 @ 137303:               ASSPAR
16557 @ 137304:               PUSH   P
16558 @ 137307:               ASSPAR
16559 @ 137308:               PUSH   R
16560 @ 137311:               ASSPAR
16561 @ 137312:               CALL  

  3121          p = r+indir
16562 @ 137313:               LINE   3121 "regression-compile-tmp/imp22g-77.imp"
16563 @ 137353:               PUSH   P
16564 @ 137356:               PUSH   R
16565 @ 137359:               PUSHI  #0x00000008
16566 @ 137364:               ADD   
16567 @ 137365:               ASSVAL

  3122        %finish
16568 @ 137366:               LINE   3122 "regression-compile-tmp/imp22g-77.imp"
16569 @ 137406:               LOCATE L_000a

  3123        pp = p %and %return %if rset < 0
16570 @ 137409:               LINE   3123 "regression-compile-tmp/imp22g-77.imp"
16571 @ 137449:               PUSH   RSET
16572 @ 137452:               PUSHI  #0x00000000
16573 @ 137457:               JUMPIF >= L_000a
16574 @ 137461:               PUSH   PP
16575 @ 137464:               PUSH   P
16576 @ 137467:               ASSVAL
16577 @ 137468:               RETURN
16578 @ 137469:               LOCATE L_000a

  3124        free = oldfree
16579 @ 137472:               LINE   3124 "regression-compile-tmp/imp22g-77.imp"
16580 @ 137512:               PUSH   FREE
16581 @ 137515:               PUSH   OLDFREE
16582 @ 137518:               ASSVAL

  3125        r = free reg(rset);  plant(move,p,r)
16583 @ 137519:               LINE   3125 "regression-compile-tmp/imp22g-77.imp"
16584 @ 137559:               PUSH   R
16585 @ 137562:               PUSH   FREEREG
16586 @ 137565:               PUSH   RSET
16587 @ 137568:               ASSPAR
16588 @ 137569:               CALL  
16589 @ 137570:               ASSVAL
16590 @ 137571:               LINE   3125 "regression-compile-tmp/imp22g-77.imp"
16591 @ 137611:               PUSH   PLANT
16592 @ 137614:               PUSHI  #0x00000001
16593 @ 137619:               ASSPAR
16594 @ 137620:               PUSH   P
16595 @ 137623:               ASSPAR
16596 @ 137624:               PUSH   R
16597 @ 137627:               ASSPAR
16598 @ 137628:               CALL  

  3126      %finish
16599 @ 137629:               LINE   3126 "regression-compile-tmp/imp22g-77.imp"
16600 @ 137669:               LOCATE L_0006

  3127      c_reg_ccx = pp %and c_reg_ccy = 0 %if r < a0
16601 @ 137672:               LINE   3127 "regression-compile-tmp/imp22g-77.imp"
16602 @ 137712:               PUSH   R
16603 @ 137715:               PUSHI  #0x00000009
16604 @ 137720:               JUMPIF >= L_0007
16605 @ 137724:               PUSH   C
16606 @ 137727:               SELECT 30
16607 @ 137730:               SELECT 1
16608 @ 137733:               PUSH   PP
16609 @ 137736:               ASSVAL
16610 @ 137737:               PUSH   C
16611 @ 137740:               SELECT 30
16612 @ 137743:               SELECT 2
16613 @ 137746:               PUSHI  #0x00000000
16614 @ 137751:               ASSVAL
16615 @ 137752:               LOCATE L_0007

  3128    %else
16616 @ 137755:               LINE   3128 "regression-compile-tmp/imp22g-77.imp"
16617 @ 137795:               GOTO   L_0003
16618 @ 137798:               LOCATE L_0004

  3129      %if i > 0 %start
16619 @ 137801:               LINE   3129 "regression-compile-tmp/imp22g-77.imp"
16620 @ 137841:               PUSH   I
16621 @ 137844:               PUSHI  #0x00000000
16622 @ 137849:               JUMPIF <= L_0007

  3130        free = oldfree
16623 @ 137853:               LINE   3130 "regression-compile-tmp/imp22g-77.imp"
16624 @ 137893:               PUSH   FREE
16625 @ 137896:               PUSH   OLDFREE
16626 @ 137899:               ASSVAL

  3131        r = maxareg+1
16627 @ 137900:               LINE   3131 "regression-compile-tmp/imp22g-77.imp"
16628 @ 137940:               PUSH   R
16629 @ 137943:               PUSHI  #0x0000000c
16630 @ 137948:               PUSHI  #0x00000001
16631 @ 137953:               ADD   
16632 @ 137954:               ASSVAL

  3132        %cycle
16633 @ 137955:               LINE   3132 "regression-compile-tmp/imp22g-77.imp"
16634 @ 137995:               LOCATE L_0009

  3133          r = r-1
16635 @ 137998:               LINE   3133 "regression-compile-tmp/imp22g-77.imp"
16636 @ 138038:               PUSH   R
16637 @ 138041:               PUSH   R
16638 @ 138044:               PUSHI  #0x00000001
16639 @ 138049:               SUB   
16640 @ 138050:               ASSVAL

  3134          %if r < a0 %start
16641 @ 138051:               LINE   3134 "regression-compile-tmp/imp22g-77.imp"
16642 @ 138091:               PUSH   R
16643 @ 138094:               PUSHI  #0x00000009
16644 @ 138099:               JUMPIF >= L_000d

  3135            r = free areg(p+ad);  plant(move,p,r)
16645 @ 138103:               LINE   3135 "regression-compile-tmp/imp22g-77.imp"
16646 @ 138143:               PUSH   R
16647 @ 138146:               PUSH   FREEAREG
16648 @ 138149:               PUSH   P
16649 @ 138152:               PUSHI  #0x00004000
16650 @ 138157:               ADD   
16651 @ 138158:               ASSPAR
16652 @ 138159:               CALL  
16653 @ 138160:               ASSVAL
16654 @ 138161:               LINE   3135 "regression-compile-tmp/imp22g-77.imp"
16655 @ 138201:               PUSH   PLANT
16656 @ 138204:               PUSHI  #0x00000001
16657 @ 138209:               ASSPAR
16658 @ 138210:               PUSH   P
16659 @ 138213:               ASSPAR
16660 @ 138214:               PUSH   R
16661 @ 138217:               ASSPAR
16662 @ 138218:               CALL  

  3136            plant(move,r+indir,r) %if i = 3
16663 @ 138219:               LINE   3136 "regression-compile-tmp/imp22g-77.imp"
16664 @ 138259:               PUSH   I
16665 @ 138262:               PUSHI  #0x00000003
16666 @ 138267:               JUMPIF # L_0010
16667 @ 138271:               PUSH   PLANT
16668 @ 138274:               PUSHI  #0x00000001
16669 @ 138279:               ASSPAR
16670 @ 138280:               PUSH   R
16671 @ 138283:               PUSHI  #0x00000008
16672 @ 138288:               ADD   
16673 @ 138289:               ASSPAR
16674 @ 138290:               PUSH   R
16675 @ 138293:               ASSPAR
16676 @ 138294:               CALL  
16677 @ 138295:               LOCATE L_0010

  3137            check address(r) %if i > 1 %and control&assbit # 0
16678 @ 138298:               LINE   3137 "regression-compile-tmp/imp22g-77.imp"
16679 @ 138338:               PUSH   I
16680 @ 138341:               PUSHI  #0x00000001
16681 @ 138346:               JUMPIF <= L_0010
16682 @ 138350:               PUSH   CONTROL
16683 @ 138353:               PUSHI  #0x08000000
16684 @ 138358:               AND   
16685 @ 138359:               PUSHI  #0x00000000
16686 @ 138364:               JUMPIF = L_0010
16687 @ 138368:               PUSH   CHECKADDRESS
16688 @ 138371:               PUSH   R
16689 @ 138374:               ASSPAR
16690 @ 138375:               CALL  
16691 @ 138376:               LOCATE L_0010

  3138          %finish
16692 @ 138379:               LINE   3138 "regression-compile-tmp/imp22g-77.imp"
16693 @ 138419:               LOCATE L_000d

  3139        %repeat %until c_reg_content(r) = p+ad
16694 @ 138422:               LINE   3139 "regression-compile-tmp/imp22g-77.imp"
16695 @ 138462:               PUSH   C
16696 @ 138465:               SELECT 30
16697 @ 138468:               SELECT 4
16698 @ 138471:               PUSH   R
16699 @ 138474:               ACCESS
16700 @ 138475:               PUSH   P
16701 @ 138478:               PUSHI  #0x00004000
16702 @ 138483:               ADD   
16703 @ 138484:               JUMPIF = L_000a
16704 @ 138488:               REPEAT L_0009
16705 @ 138491:               LOCATE L_000a

  3140        free = free&(\(a0b<<(r-a0)))
16706 @ 138494:               LINE   3140 "regression-compile-tmp/imp22g-77.imp"
16707 @ 138534:               PUSH   FREE
16708 @ 138537:               PUSH   FREE
16709 @ 138540:               PUSHI  #0x00000100
16710 @ 138545:               PUSH   R
16711 @ 138548:               PUSHI  #0x00000009
16712 @ 138553:               SUB   
16713 @ 138554:               LSH   
16714 @ 138555:               NOT   
16715 @ 138556:               AND   
16716 @ 138557:               ASSVAL

  3141        p = r+indir
16717 @ 138558:               LINE   3141 "regression-compile-tmp/imp22g-77.imp"
16718 @ 138598:               PUSH   P
16719 @ 138601:               PUSH   R
16720 @ 138604:               PUSHI  #0x00000008
16721 @ 138609:               ADD   
16722 @ 138610:               ASSVAL

  3142      %finish
16723 @ 138611:               LINE   3142 "regression-compile-tmp/imp22g-77.imp"
16724 @ 138651:               LOCATE L_0007

  3143      pp = p %and %return %if rset = ref
16725 @ 138654:               LINE   3143 "regression-compile-tmp/imp22g-77.imp"
16726 @ 138694:               PUSH   RSET
16727 @ 138697:               PUSHI  #0x80000000
16728 @ 138702:               JUMPIF # L_0007
16729 @ 138706:               PUSH   PP
16730 @ 138709:               PUSH   P
16731 @ 138712:               ASSVAL
16732 @ 138713:               RETURN
16733 @ 138714:               LOCATE L_0007

  3144      sx = rset>>sizeshift&3;  sx = 4 %if sx = 0
16734 @ 138717:               LINE   3144 "regression-compile-tmp/imp22g-77.imp"
16735 @ 138757:               PUSH   SX
16736 @ 138760:               PUSH   RSET
16737 @ 138763:               PUSHI  #0x00000010
16738 @ 138768:               RSH   
16739 @ 138769:               PUSHI  #0x00000003
16740 @ 138774:               AND   
16741 @ 138775:               ASSVAL
16742 @ 138776:               LINE   3144 "regression-compile-tmp/imp22g-77.imp"
16743 @ 138816:               PUSH   SX
16744 @ 138819:               PUSHI  #0x00000000
16745 @ 138824:               JUMPIF # L_0007
16746 @ 138828:               PUSH   SX
16747 @ 138831:               PUSHI  #0x00000004
16748 @ 138836:               ASSVAL
16749 @ 138837:               LOCATE L_0007

  3145      i = dp_flags
16750 @ 138840:               LINE   3145 "regression-compile-tmp/imp22g-77.imp"
16751 @ 138880:               PUSH   I
16752 @ 138883:               PUSH   DP
16753 @ 138886:               SELECT 1
16754 @ 138889:               ASSVAL

  3146      sy = size(dp_type)
16755 @ 138890:               LINE   3146 "regression-compile-tmp/imp22g-77.imp"
16756 @ 138930:               PUSH   SY
16757 @ 138933:               PUSH   SIZE
16758 @ 138936:               PUSH   DP
16759 @ 138939:               SELECT 2
16760 @ 138942:               ASSPAR
16761 @ 138943:               CALL  
16762 @ 138944:               ASSVAL

  3147      %if c_localdpos <= p < dictlim %and i&okflag = 0 %and c_forward = 0 %start
  3148        !local, simple, always accessed
16763 @ 138945:               LINE   3147 "regression-compile-tmp/imp22g-77.imp"
16764 @ 138985:               PUSH   C
16765 @ 138988:               SELECT 8
16766 @ 138991:               PUSH   P
16767 @ 138994:               JUMPIFD > L_0007
16768 @ 138998:               PUSH   DICTLIM
16769 @ 139001:               JUMPIF >= L_0007
16770 @ 139005:               PUSH   I
16771 @ 139008:               PUSHI  #0x00000040
16772 @ 139013:               AND   
16773 @ 139014:               PUSHI  #0x00000000
16774 @ 139019:               JUMPIF # L_0007
16775 @ 139023:               PUSH   C
16776 @ 139026:               SELECT 17
16777 @ 139029:               PUSHI  #0x00000000
16778 @ 139034:               JUMPIF # L_0007

  3149        %if i&wflag = 0 %start;  !unassigned
16779 @ 139038:               LINE   3149 "regression-compile-tmp/imp22g-77.imp"
16780 @ 139078:               PUSH   I
16781 @ 139081:               PUSHI  #0x00000010
16782 @ 139086:               AND   
16783 @ 139087:               PUSHI  #0x00000000
16784 @ 139092:               JUMPIF # L_000a

  3150          report(asserr+warn,p,0) %if c_faults = 0
16785 @ 139096:               LINE   3150 "regression-compile-tmp/imp22g-77.imp"
16786 @ 139136:               PUSH   C
16787 @ 139139:               SELECT 21
16788 @ 139142:               PUSHI  #0x00000000
16789 @ 139147:               JUMPIF # L_000d
16790 @ 139151:               PUSH   REPORT
16791 @ 139154:               PUSHI  #0x00000029
16792 @ 139159:               PUSHI  #0xffffff80
16793 @ 139164:               ADD   
16794 @ 139165:               ASSPAR
16795 @ 139166:               PUSH   P
16796 @ 139169:               ASSPAR
16797 @ 139170:               PUSHI  #0x00000000
16798 @ 139175:               ASSPAR
16799 @ 139176:               CALL  
16800 @ 139177:               LOCATE L_000d

  3151        %finish
16801 @ 139180:               LINE   3151 "regression-compile-tmp/imp22g-77.imp"
16802 @ 139220:               LOCATE L_000a

  3152        dp_flags = dp_flags+okflag %if dp_flags >= 0 %and sy > 0
16803 @ 139223:               LINE   3152 "regression-compile-tmp/imp22g-77.imp"
16804 @ 139263:               PUSH   DP
16805 @ 139266:               SELECT 1
16806 @ 139269:               PUSHI  #0x00000000
16807 @ 139274:               JUMPIF < L_000a
16808 @ 139278:               PUSH   SY
16809 @ 139281:               PUSHI  #0x00000000
16810 @ 139286:               JUMPIF <= L_000a
16811 @ 139290:               PUSH   DP
16812 @ 139293:               SELECT 1
16813 @ 139296:               PUSH   DP
16814 @ 139299:               SELECT 1
16815 @ 139302:               PUSHI  #0x00000040
16816 @ 139307:               ADD   
16817 @ 139308:               ASSVAL
16818 @ 139309:               LOCATE L_000a

  3153      %finish
16819 @ 139312:               LINE   3153 "regression-compile-tmp/imp22g-77.imp"
16820 @ 139352:               LOCATE L_0007

  3154      %if rset = tostack %start
16821 @ 139355:               LINE   3154 "regression-compile-tmp/imp22g-77.imp"
16822 @ 139395:               PUSH   RSET
16823 @ 139398:               PUSHI  #0x00080000
16824 @ 139403:               JUMPIF # L_0007

  3155        free = oldfree
16825 @ 139407:               LINE   3155 "regression-compile-tmp/imp22g-77.imp"
16826 @ 139447:               PUSH   FREE
16827 @ 139450:               PUSH   OLDFREE
16828 @ 139453:               ASSVAL

  3156        plant(lea,p,a0);           !A0 must be free
16829 @ 139454:               LINE   3156 "regression-compile-tmp/imp22g-77.imp"
16830 @ 139494:               PUSH   PLANT
16831 @ 139497:               PUSHI  #0x0000004e
16832 @ 139502:               ASSPAR
16833 @ 139503:               PUSH   P
16834 @ 139506:               ASSPAR
16835 @ 139507:               PUSHI  #0x00000009
16836 @ 139512:               ASSPAR
16837 @ 139513:               CALL  

  3157        forget(a0)
16838 @ 139514:               LINE   3157 "regression-compile-tmp/imp22g-77.imp"
16839 @ 139554:               PUSH   FORGET
16840 @ 139557:               PUSHI  #0x00000009
16841 @ 139562:               ASSPAR
16842 @ 139563:               CALL  

  3158        push structure
16843 @ 139564:               LINE   3158 "regression-compile-tmp/imp22g-77.imp"
16844 @ 139604:               PUSH   PUSHSTRUCTURE
16845 @ 139607:               CALL  

  3159        %return
16846 @ 139608:               LINE   3159 "regression-compile-tmp/imp22g-77.imp"
16847 @ 139648:               RETURN

  3160      %finish
16848 @ 139649:               LINE   3160 "regression-compile-tmp/imp22g-77.imp"
16849 @ 139689:               LOCATE L_0007

  3161      intern(5) %and %return %if sy <= 0
16850 @ 139692:               LINE   3161 "regression-compile-tmp/imp22g-77.imp"
16851 @ 139732:               PUSH   SY
16852 @ 139735:               PUSHI  #0x00000000
16853 @ 139740:               JUMPIF > L_0007
16854 @ 139744:               PUSH   INTERN
16855 @ 139747:               PUSHI  #0x00000005
16856 @ 139752:               ASSPAR
16857 @ 139753:               CALL  
16858 @ 139754:               RETURN
16859 @ 139755:               LOCATE L_0007

  3162      i = i!okflag %if control&bassbit>>1<<sy = 0
16860 @ 139758:               LINE   3162 "regression-compile-tmp/imp22g-77.imp"
16861 @ 139798:               PUSH   CONTROL
16862 @ 139801:               PUSHI  #0x01000000
16863 @ 139806:               PUSHI  #0x00000001
16864 @ 139811:               RSH   
16865 @ 139812:               PUSH   SY
16866 @ 139815:               LSH   
16867 @ 139816:               AND   
16868 @ 139817:               PUSHI  #0x00000000
16869 @ 139822:               JUMPIF # L_0007
16870 @ 139826:               PUSH   I
16871 @ 139829:               PUSH   I
16872 @ 139832:               PUSHI  #0x00000040
16873 @ 139837:               OR    
16874 @ 139838:               ASSVAL
16875 @ 139839:               LOCATE L_0007

  3163      %if i&okflag # 0 %and rset < 0 %start;  !not necessary to load?
16876 @ 139842:               LINE   3163 "regression-compile-tmp/imp22g-77.imp"
16877 @ 139882:               PUSH   I
16878 @ 139885:               PUSHI  #0x00000040
16879 @ 139890:               AND   
16880 @ 139891:               PUSHI  #0x00000000
16881 @ 139896:               JUMPIF = L_0007
16882 @ 139900:               PUSH   RSET
16883 @ 139903:               PUSHI  #0x00000000
16884 @ 139908:               JUMPIF >= L_0007

  3164        %if sy = sx %start;  !same size
16885 @ 139912:               LINE   3164 "regression-compile-tmp/imp22g-77.imp"
16886 @ 139952:               PUSH   SY
16887 @ 139955:               PUSH   SX
16888 @ 139958:               JUMPIF # L_000a

  3165           pp = p
16889 @ 139962:               LINE   3165 "regression-compile-tmp/imp22g-77.imp"
16890 @ 140002:               PUSH   PP
16891 @ 140005:               PUSH   P
16892 @ 140008:               ASSVAL

  3166          %return
16893 @ 140009:               LINE   3166 "regression-compile-tmp/imp22g-77.imp"
16894 @ 140049:               RETURN

  3167        %finish
16895 @ 140050:               LINE   3167 "regression-compile-tmp/imp22g-77.imp"
16896 @ 140090:               LOCATE L_000a

  3168      %finish
16897 @ 140093:               LINE   3168 "regression-compile-tmp/imp22g-77.imp"
16898 @ 140133:               LOCATE L_0007

  3169      free = oldfree
16899 @ 140136:               LINE   3169 "regression-compile-tmp/imp22g-77.imp"
16900 @ 140176:               PUSH   FREE
16901 @ 140179:               PUSH   OLDFREE
16902 @ 140182:               ASSVAL

  3170      %if i&okflag # 0 %then i = -1 %else i = sy
16903 @ 140183:               LINE   3170 "regression-compile-tmp/imp22g-77.imp"
16904 @ 140223:               PUSH   I
16905 @ 140226:               PUSHI  #0x00000040
16906 @ 140231:               AND   
16907 @ 140232:               PUSHI  #0x00000000
16908 @ 140237:               JUMPIF = L_0007
16909 @ 140241:               PUSH   I
16910 @ 140244:               PUSHI  #0x00000001
16911 @ 140249:               NEGATE
16912 @ 140250:               ASSVAL
16913 @ 140251:               GOTO   L_0006
16914 @ 140254:               LOCATE L_0007
16915 @ 140257:               PUSH   I
16916 @ 140260:               PUSH   SY
16917 @ 140263:               ASSVAL
16918 @ 140264:               LOCATE L_0006

  3171      sy = -sy %if sy # 4 %and (dict(dp_type)_flags&nonord # 0 %c
  3172                          %or dict(dp_type+1)_val = 0);  !unsigned
16919 @ 140267:               LINE   3171 "regression-compile-tmp/imp22g-77.imp"
16920 @ 140307:               PUSH   SY
16921 @ 140310:               PUSHI  #0x00000004
16922 @ 140315:               JUMPIF = L_0007
16923 @ 140319:               PUSH   DICT
16924 @ 140322:               PUSH   DP
16925 @ 140325:               SELECT 2
16926 @ 140328:               ACCESS
16927 @ 140329:               SELECT 1
16928 @ 140332:               PUSHI  #0x0000000c
16929 @ 140337:               AND   
16930 @ 140338:               PUSHI  #0x00000000
16931 @ 140343:               JUMPIF # L_0008
16932 @ 140347:               PUSH   DICT
16933 @ 140350:               PUSH   DP
16934 @ 140353:               SELECT 2
16935 @ 140356:               PUSHI  #0x00000001
16936 @ 140361:               ADD   
16937 @ 140362:               ACCESS
16938 @ 140363:               SELECT 9
16939 @ 140366:               PUSHI  #0x00000000
16940 @ 140371:               JUMPIF # L_0007
16941 @ 140375:               LOCATE L_0008
16942 @ 140378:               PUSH   SY
16943 @ 140381:               PUSH   SY
16944 @ 140384:               NEGATE
16945 @ 140385:               ASSVAL
16946 @ 140386:               LOCATE L_0007

  3173      %if sy = -1 %start;  !unsigned byte
16947 @ 140389:               LINE   3173 "regression-compile-tmp/imp22g-77.imp"
16948 @ 140429:               PUSH   SY
16949 @ 140432:               PUSHI  #0x00000001
16950 @ 140437:               NEGATE
16951 @ 140438:               JUMPIF # L_0007

  3174        %if free&bregb # 0 %start
16952 @ 140442:               LINE   3174 "regression-compile-tmp/imp22g-77.imp"
16953 @ 140482:               PUSH   FREE
16954 @ 140485:               PUSHI  #0x00000010
16955 @ 140490:               AND   
16956 @ 140491:               PUSHI  #0x00000000
16957 @ 140496:               JUMPIF = L_000a

  3175          %if rset&bregb # 0 %start
16958 @ 140500:               LINE   3175 "regression-compile-tmp/imp22g-77.imp"
16959 @ 140540:               PUSH   RSET
16960 @ 140543:               PUSHI  #0x00000010
16961 @ 140548:               AND   
16962 @ 140549:               PUSHI  #0x00000000
16963 @ 140554:               JUMPIF = L_000d

  3176            rset = bregb
16964 @ 140558:               LINE   3176 "regression-compile-tmp/imp22g-77.imp"
16965 @ 140598:               PUSH   RSET
16966 @ 140601:               PUSHI  #0x00000010
16967 @ 140606:               ASSVAL

  3177          %else
16968 @ 140607:               LINE   3177 "regression-compile-tmp/imp22g-77.imp"
16969 @ 140647:               GOTO   L_000c
16970 @ 140650:               LOCATE L_000d

  3178            plant(moveb,p,breg)
16971 @ 140653:               LINE   3178 "regression-compile-tmp/imp22g-77.imp"
16972 @ 140693:               PUSH   PLANT
16973 @ 140696:               PUSHI  #0x00000101
16974 @ 140701:               ASSPAR
16975 @ 140702:               PUSH   P
16976 @ 140705:               ASSPAR
16977 @ 140706:               PUSHI  #0x00000005
16978 @ 140711:               ASSPAR
16979 @ 140712:               CALL  

  3179            forget(breg)
16980 @ 140713:               LINE   3179 "regression-compile-tmp/imp22g-77.imp"
16981 @ 140753:               PUSH   FORGET
16982 @ 140756:               PUSHI  #0x00000005
16983 @ 140761:               ASSPAR
16984 @ 140762:               CALL  

  3180            p = breg;  sy = 4
16985 @ 140763:               LINE   3180 "regression-compile-tmp/imp22g-77.imp"
16986 @ 140803:               PUSH   P
16987 @ 140806:               PUSHI  #0x00000005
16988 @ 140811:               ASSVAL
16989 @ 140812:               LINE   3180 "regression-compile-tmp/imp22g-77.imp"
16990 @ 140852:               PUSH   SY
16991 @ 140855:               PUSHI  #0x00000004
16992 @ 140860:               ASSVAL

  3181          %finish
16993 @ 140861:               LINE   3181 "regression-compile-tmp/imp22g-77.imp"
16994 @ 140901:               LOCATE L_000c

  3182        %finish
16995 @ 140904:               LINE   3182 "regression-compile-tmp/imp22g-77.imp"
16996 @ 140944:               LOCATE L_000a

  3183      %finish %else rset = rset&(\bregb)
16997 @ 140947:               LINE   3183 "regression-compile-tmp/imp22g-77.imp"
16998 @ 140987:               GOTO   L_0006
16999 @ 140990:               LOCATE L_0007
17000 @ 140993:               PUSH   RSET
17001 @ 140996:               PUSH   RSET
17002 @ 140999:               PUSHI  #0x00000010
17003 @ 141004:               NOT   
17004 @ 141005:               AND   
17005 @ 141006:               ASSVAL
17006 @ 141007:               LOCATE L_0006

  3184      %if sy < 2 %or sx = 1 %start
17007 @ 141010:               LINE   3184 "regression-compile-tmp/imp22g-77.imp"
17008 @ 141050:               PUSH   SY
17009 @ 141053:               PUSHI  #0x00000002
17010 @ 141058:               JUMPIF < L_0008
17011 @ 141062:               PUSH   SX
17012 @ 141065:               PUSHI  #0x00000001
17013 @ 141070:               JUMPIF # L_0007
17014 @ 141074:               LOCATE L_0008

  3185        %if rset&(anydreg!bregb) = 0 %start
  3186        !Can't load bytes,halfs to address regs
  3187        ! or store bytes from them
17015 @ 141077:               LINE   3185 "regression-compile-tmp/imp22g-77.imp"
17016 @ 141117:               PUSH   RSET
17017 @ 141120:               PUSHI  #0x000000ef
17018 @ 141125:               PUSHI  #0x00000010
17019 @ 141130:               OR    
17020 @ 141131:               AND   
17021 @ 141132:               PUSHI  #0x00000000
17022 @ 141137:               JUMPIF # L_000a

  3188          r = free dreg
17023 @ 141141:               LINE   3188 "regression-compile-tmp/imp22g-77.imp"
17024 @ 141181:               PUSH   R
17025 @ 141184:               PUSH   FREEDREG
17026 @ 141187:               CALL  
17027 @ 141188:               ASSVAL

  3189          plant(move+imod(sy)<<8,p,r)
17028 @ 141189:               LINE   3189 "regression-compile-tmp/imp22g-77.imp"
17029 @ 141229:               PUSH   PLANT
17030 @ 141232:               PUSHI  #0x00000001
17031 @ 141237:               PUSH   IMOD
17032 @ 141240:               PUSH   SY
17033 @ 141243:               ASSPAR
17034 @ 141244:               CALL  
17035 @ 141245:               PUSHI  #0x00000008
17036 @ 141250:               LSH   
17037 @ 141251:               ADD   
17038 @ 141252:               ASSPAR
17039 @ 141253:               PUSH   P
17040 @ 141256:               ASSPAR
17041 @ 141257:               PUSH   R
17042 @ 141260:               ASSPAR
17043 @ 141261:               CALL  

  3190          partreg
17044 @ 141262:               LINE   3190 "regression-compile-tmp/imp22g-77.imp"
17045 @ 141302:               PUSH   PARTREG
17046 @ 141305:               CALL  

  3191          p = r;  free = oldfree
17047 @ 141306:               LINE   3191 "regression-compile-tmp/imp22g-77.imp"
17048 @ 141346:               PUSH   P
17049 @ 141349:               PUSH   R
17050 @ 141352:               ASSVAL
17051 @ 141353:               LINE   3191 "regression-compile-tmp/imp22g-77.imp"
17052 @ 141393:               PUSH   FREE
17053 @ 141396:               PUSH   OLDFREE
17054 @ 141399:               ASSVAL

  3192        %finish %else rset = rset&(\anyareg)
17055 @ 141400:               LINE   3192 "regression-compile-tmp/imp22g-77.imp"
17056 @ 141440:               GOTO   L_0009
17057 @ 141443:               LOCATE L_000a
17058 @ 141446:               PUSH   RSET
17059 @ 141449:               PUSH   RSET
17060 @ 141452:               PUSHI  #0x0000ff00
17061 @ 141457:               NOT   
17062 @ 141458:               AND   
17063 @ 141459:               ASSVAL
17064 @ 141460:               LOCATE L_0009

  3193      %finish
17065 @ 141463:               LINE   3193 "regression-compile-tmp/imp22g-77.imp"
17066 @ 141503:               LOCATE L_0007

  3194      %if sy = 2 %and rset&anyareg&free # 0 %start
17067 @ 141506:               LINE   3194 "regression-compile-tmp/imp22g-77.imp"
17068 @ 141546:               PUSH   SY
17069 @ 141549:               PUSHI  #0x00000002
17070 @ 141554:               JUMPIF # L_0007
17071 @ 141558:               PUSH   RSET
17072 @ 141561:               PUSHI  #0x0000ff00
17073 @ 141566:               AND   
17074 @ 141567:               PUSH   FREE
17075 @ 141570:               AND   
17076 @ 141571:               PUSHI  #0x00000000
17077 @ 141576:               JUMPIF = L_0007

  3195        rset = rset&(\anydreg);  !prefer areg for word (auto-extend)
17078 @ 141580:               LINE   3195 "regression-compile-tmp/imp22g-77.imp"
17079 @ 141620:               PUSH   RSET
17080 @ 141623:               PUSH   RSET
17081 @ 141626:               PUSHI  #0x000000ef
17082 @ 141631:               NOT   
17083 @ 141632:               AND   
17084 @ 141633:               ASSVAL

  3196      %finish
17085 @ 141634:               LINE   3196 "regression-compile-tmp/imp22g-77.imp"
17086 @ 141674:               LOCATE L_0007

  3197      r = free reg(rset)
17087 @ 141677:               LINE   3197 "regression-compile-tmp/imp22g-77.imp"
17088 @ 141717:               PUSH   R
17089 @ 141720:               PUSH   FREEREG
17090 @ 141723:               PUSH   RSET
17091 @ 141726:               ASSPAR
17092 @ 141727:               CALL  
17093 @ 141728:               ASSVAL

  3198      plant(move+imod(sy)<<8,p,r)
17094 @ 141729:               LINE   3198 "regression-compile-tmp/imp22g-77.imp"
17095 @ 141769:               PUSH   PLANT
17096 @ 141772:               PUSHI  #0x00000001
17097 @ 141777:               PUSH   IMOD
17098 @ 141780:               PUSH   SY
17099 @ 141783:               ASSPAR
17100 @ 141784:               CALL  
17101 @ 141785:               PUSHI  #0x00000008
17102 @ 141790:               LSH   
17103 @ 141791:               ADD   
17104 @ 141792:               ASSPAR
17105 @ 141793:               PUSH   P
17106 @ 141796:               ASSPAR
17107 @ 141797:               PUSH   R
17108 @ 141800:               ASSPAR
17109 @ 141801:               CALL  

  3199      c_reg_ccx = pp %and c_reg_ccy = 0 %if r < a0
17110 @ 141802:               LINE   3199 "regression-compile-tmp/imp22g-77.imp"
17111 @ 141842:               PUSH   R
17112 @ 141845:               PUSHI  #0x00000009
17113 @ 141850:               JUMPIF >= L_0007
17114 @ 141854:               PUSH   C
17115 @ 141857:               SELECT 30
17116 @ 141860:               SELECT 1
17117 @ 141863:               PUSH   PP
17118 @ 141866:               ASSVAL
17119 @ 141867:               PUSH   C
17120 @ 141870:               SELECT 30
17121 @ 141873:               SELECT 2
17122 @ 141876:               PUSHI  #0x00000000
17123 @ 141881:               ASSVAL
17124 @ 141882:               LOCATE L_0007

  3200      %if sy # 4 %start
17125 @ 141885:               LINE   3200 "regression-compile-tmp/imp22g-77.imp"
17126 @ 141925:               PUSH   SY
17127 @ 141928:               PUSHI  #0x00000004
17128 @ 141933:               JUMPIF = L_0007

  3201        partreg
17129 @ 141937:               LINE   3201 "regression-compile-tmp/imp22g-77.imp"
17130 @ 141977:               PUSH   PARTREG
17131 @ 141980:               CALL  

  3202      %finish
17132 @ 141981:               LINE   3202 "regression-compile-tmp/imp22g-77.imp"
17133 @ 142021:               LOCATE L_0007

  3203      %if i >= 0 %start
17134 @ 142024:               LINE   3203 "regression-compile-tmp/imp22g-77.imp"
17135 @ 142064:               PUSH   I
17136 @ 142067:               PUSHI  #0x00000000
17137 @ 142072:               JUMPIF < L_0007

  3204        plant(cmp+i<<8,r,d7);  !check unassigned
17138 @ 142076:               LINE   3204 "regression-compile-tmp/imp22g-77.imp"
17139 @ 142116:               PUSH   PLANT
17140 @ 142119:               PUSHI  #0x00000004
17141 @ 142124:               PUSH   I
17142 @ 142127:               PUSHI  #0x00000008
17143 @ 142132:               LSH   
17144 @ 142133:               ADD   
17145 @ 142134:               ASSPAR
17146 @ 142135:               PUSH   R
17147 @ 142138:               ASSPAR
17148 @ 142139:               PUSHI  #0x00000008
17149 @ 142144:               ASSPAR
17150 @ 142145:               CALL  

  3205        srcall(unass)
17151 @ 142146:               LINE   3205 "regression-compile-tmp/imp22g-77.imp"
17152 @ 142186:               PUSH   SRCALL
17153 @ 142189:               PUSHI  #0x00000066
17154 @ 142194:               ASSPAR
17155 @ 142195:               CALL  

  3206        forget cc
17156 @ 142196:               LINE   3206 "regression-compile-tmp/imp22g-77.imp"
17157 @ 142236:               PUSH   FORGETCC
17158 @ 142239:               CALL  

  3207      %finish
17159 @ 142240:               LINE   3207 "regression-compile-tmp/imp22g-77.imp"
17160 @ 142280:               LOCATE L_0007

  3208      %if sy # 4 %and r # breg %start;  !not full reg
17161 @ 142283:               LINE   3208 "regression-compile-tmp/imp22g-77.imp"
17162 @ 142323:               PUSH   SY
17163 @ 142326:               PUSHI  #0x00000004
17164 @ 142331:               JUMPIF = L_0007
17165 @ 142335:               PUSH   R
17166 @ 142338:               PUSHI  #0x00000005
17167 @ 142343:               JUMPIF = L_0007

  3209        forget(r)
17168 @ 142347:               LINE   3209 "regression-compile-tmp/imp22g-77.imp"
17169 @ 142387:               PUSH   FORGET
17170 @ 142390:               PUSH   R
17171 @ 142393:               ASSPAR
17172 @ 142394:               CALL  

  3210        -> endload1
17173 @ 142395:               LINE   3210 "regression-compile-tmp/imp22g-77.imp"
17174 @ 142435:               JUMP   L_0179

  3211      %finish
17175 @ 142438:               LINE   3211 "regression-compile-tmp/imp22g-77.imp"
17176 @ 142478:               LOCATE L_0007

  3212    %finish
17177 @ 142481:               LINE   3212 "regression-compile-tmp/imp22g-77.imp"
17178 @ 142521:               LOCATE L_0003

  3213  endload:
17179 @ 142524:               LINE   3213 "regression-compile-tmp/imp22g-77.imp"
17180 @ 142564:               LABEL  L_0175

  3214    c_reg_content(r) = pp
17181 @ 142567:               LINE   3214 "regression-compile-tmp/imp22g-77.imp"
17182 @ 142607:               PUSH   C
17183 @ 142610:               SELECT 30
17184 @ 142613:               SELECT 4
17185 @ 142616:               PUSH   R
17186 @ 142619:               ACCESS
17187 @ 142620:               PUSH   PP
17188 @ 142623:               ASSVAL

  3215  endload1:
17189 @ 142624:               LINE   3215 "regression-compile-tmp/imp22g-77.imp"
17190 @ 142664:               LABEL  L_0179

  3216    free = free&(\(d0b<<(r-d0)))
17191 @ 142667:               LINE   3216 "regression-compile-tmp/imp22g-77.imp"
17192 @ 142707:               PUSH   FREE
17193 @ 142710:               PUSH   FREE
17194 @ 142713:               PUSHI  #0x00000001
17195 @ 142718:               PUSH   R
17196 @ 142721:               PUSHI  #0x00000001
17197 @ 142726:               SUB   
17198 @ 142727:               LSH   
17199 @ 142728:               NOT   
17200 @ 142729:               AND   
17201 @ 142730:               ASSVAL

  3217    r = r+indir %if rset = ref
17202 @ 142731:               LINE   3217 "regression-compile-tmp/imp22g-77.imp"
17203 @ 142771:               PUSH   RSET
17204 @ 142774:               PUSHI  #0x80000000
17205 @ 142779:               JUMPIF # L_0004
17206 @ 142783:               PUSH   R
17207 @ 142786:               PUSH   R
17208 @ 142789:               PUSHI  #0x00000008
17209 @ 142794:               ADD   
17210 @ 142795:               ASSVAL
17211 @ 142796:               LOCATE L_0004

  3218    pp = r
17212 @ 142799:               LINE   3218 "regression-compile-tmp/imp22g-77.imp"
17213 @ 142839:               PUSH   PP
17214 @ 142842:               PUSH   R
17215 @ 142845:               ASSVAL

  3219    %return
  3220  
17216 @ 142846:               LINE   3219 "regression-compile-tmp/imp22g-77.imp"
17217 @ 142886:               RETURN

  3221  dataload:
17218 @ 142887:               LINE   3221 "regression-compile-tmp/imp22g-77.imp"
17219 @ 142927:               LABEL  L_017a

  3222    eval(p,anydreg)
17220 @ 142930:               LINE   3222 "regression-compile-tmp/imp22g-77.imp"
17221 @ 142970:               PUSH   EVAL
17222 @ 142973:               PUSH   P
17223 @ 142976:               ASSPAR
17224 @ 142977:               PUSHI  #0x000000ef
17225 @ 142982:               ASSPAR
17226 @ 142983:               CALL  

  3223    ok reg(p)
17227 @ 142984:               LINE   3223 "regression-compile-tmp/imp22g-77.imp"
17228 @ 143024:               PUSH   OKREG
17229 @ 143027:               PUSH   P
17230 @ 143030:               ASSPAR
17231 @ 143031:               CALL  

  3224    -> endload
  3225  
  3226  !!!!!!!!!!!!!!!!   Array   /   Record    /   Map   !!!!!!!!!!!!!!!!!!
  3227  
17232 @ 143032:               LINE   3224 "regression-compile-tmp/imp22g-77.imp"
17233 @ 143072:               JUMP   L_0175

  3228  %integer%fn FREEISH AREG(%integer for)
  3229  !Use the register component of M if alterable
  3230  ! to avoid excessive dissipation of address registers
17234 @ 143075:               LINE   3228 "regression-compile-tmp/imp22g-77.imp"
17235 @ 143115:               DEF    FREEISHAREG (_lev0id0_EVAL_FREEISHAREG) p1=V_017b 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
17236 @ 143138:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
17237 @ 143139:                     DEF    FOR p1=V_017c a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
17238 @ 143154:                  FINISH ) {lev=3}

  3231  %integer i
17239 @ 143155:                  LINE   3231 "regression-compile-tmp/imp22g-77.imp"
17240 @ 143195:                  DEF    I p1=V_017d a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  3232    i = m&7
17241 @ 143208:                  LINE   3232 "regression-compile-tmp/imp22g-77.imp"
17242 @ 143248:                  PUSH   I
17243 @ 143251:                  PUSH   M
17244 @ 143254:                  PUSHI  #0x00000007
17245 @ 143259:                  AND   
17246 @ 143260:                  ASSVAL

  3233    %result = free areg(for) %if a0b<<i&oldfree = 0 %or m >= framemode
17247 @ 143261:                  LINE   3233 "regression-compile-tmp/imp22g-77.imp"
17248 @ 143301:                  PUSHI  #0x00000100
17249 @ 143306:                  PUSH   I
17250 @ 143309:                  LSH   
17251 @ 143310:                  PUSH   OLDFREE
17252 @ 143313:                  AND   
17253 @ 143314:                  PUSHI  #0x00000000
17254 @ 143319:                  JUMPIF = L_0005
17255 @ 143323:                  PUSH   M
17256 @ 143326:                  PUSHI  #0x000000a8
17257 @ 143331:                  JUMPIF < L_0004
17258 @ 143335:                  LOCATE L_0005
17259 @ 143338:                  PUSH   FREEAREG
17260 @ 143341:                  PUSH   FOR
17261 @ 143344:                  ASSPAR
17262 @ 143345:                  CALL  
17263 @ 143346:                  RESULT
17264 @ 143347:                  LOCATE L_0004

  3234    free = free&(\(a0b<<i))
17265 @ 143350:                  LINE   3234 "regression-compile-tmp/imp22g-77.imp"
17266 @ 143390:                  PUSH   FREE
17267 @ 143393:                  PUSH   FREE
17268 @ 143396:                  PUSHI  #0x00000100
17269 @ 143401:                  PUSH   I
17270 @ 143404:                  LSH   
17271 @ 143405:                  NOT   
17272 @ 143406:                  AND   
17273 @ 143407:                  ASSVAL

  3235    i = i+a0;  c_reg_content(i) = for
17274 @ 143408:                  LINE   3235 "regression-compile-tmp/imp22g-77.imp"
17275 @ 143448:                  PUSH   I
17276 @ 143451:                  PUSH   I
17277 @ 143454:                  PUSHI  #0x00000009
17278 @ 143459:                  ADD   
17279 @ 143460:                  ASSVAL
17280 @ 143461:                  LINE   3235 "regression-compile-tmp/imp22g-77.imp"
17281 @ 143501:                  PUSH   C
17282 @ 143504:                  SELECT 30
17283 @ 143507:                  SELECT 4
17284 @ 143510:                  PUSH   I
17285 @ 143513:                  ACCESS
17286 @ 143514:                  PUSH   FOR
17287 @ 143517:                  ASSVAL

  3236    %result = i
17288 @ 143518:                  LINE   3236 "regression-compile-tmp/imp22g-77.imp"
17289 @ 143558:                  PUSH   I
17290 @ 143561:                  RESULT

  3237  %end
17291 @ 143562:                  LINE   3237 "regression-compile-tmp/imp22g-77.imp"
17292 @ 143602:               END    _lev0id0_EVAL_FREEISHAREG {lev=3 --> 2}

  3238  %routine ADEVAL(%integer x,y,q)
  3239  !Base X, scaled index Y, displacement Q
17293 @ 143603:               LINE   3238 "regression-compile-tmp/imp22g-77.imp"
17294 @ 143643:               DEF    ADEVAL (_lev0id0_EVAL_ADEVAL) p1=V_017c 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
17295 @ 143661:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
17296 @ 143662:                     DEF    X p1=V_017d a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
17297 @ 143675:                     DEF    Y p1=V_017e a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
17298 @ 143688:                     DEF    Q p1=V_017f a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
17299 @ 143701:                  FINISH ) {lev=3}

  3240  %integer i,j
17300 @ 143702:                  LINE   3240 "regression-compile-tmp/imp22g-77.imp"
17301 @ 143742:                  DEF    I p1=V_0180 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
17302 @ 143755:                  DEF    J p1=V_0181 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  3241    %if x <= 0 %start;  !%const
17303 @ 143768:                  LINE   3241 "regression-compile-tmp/imp22g-77.imp"
17304 @ 143808:                  PUSH   X
17305 @ 143811:                  PUSHI  #0x00000000
17306 @ 143816:                  JUMPIF > L_0004

  3242      m = constmode;  v = litval(x)
17307 @ 143820:                  LINE   3242 "regression-compile-tmp/imp22g-77.imp"
17308 @ 143860:                  PUSH   M
17309 @ 143863:                  PUSHI  #0x0000007a
17310 @ 143868:                  ASSVAL
17311 @ 143869:                  LINE   3242 "regression-compile-tmp/imp22g-77.imp"
17312 @ 143909:                  PUSH   V
17313 @ 143912:                  PUSH   LITVAL
17314 @ 143915:                  PUSH   X
17315 @ 143918:                  ASSPAR
17316 @ 143919:                  CALL  
17317 @ 143920:                  ASSVAL

  3243    %else
17318 @ 143921:                  LINE   3243 "regression-compile-tmp/imp22g-77.imp"
17319 @ 143961:                  GOTO   L_0003
17320 @ 143964:                  LOCATE L_0004

  3244      eval(x,ref)
17321 @ 143967:                  LINE   3244 "regression-compile-tmp/imp22g-77.imp"
17322 @ 144007:                  PUSH   EVAL
17323 @ 144010:                  PUSH   X
17324 @ 144013:                  ASSPAR
17325 @ 144014:                  PUSHI  #0x80000000
17326 @ 144019:                  ASSPAR
17327 @ 144020:                  CALL  

  3245      m = dict(x)_mode;  v = dict(x)_val
17328 @ 144021:                  LINE   3245 "regression-compile-tmp/imp22g-77.imp"
17329 @ 144061:                  PUSH   M
17330 @ 144064:                  PUSH   DICT
17331 @ 144067:                  PUSH   X
17332 @ 144070:                  ACCESS
17333 @ 144071:                  SELECT 8
17334 @ 144074:                  ASSVAL
17335 @ 144075:                  LINE   3245 "regression-compile-tmp/imp22g-77.imp"
17336 @ 144115:                  PUSH   V
17337 @ 144118:                  PUSH   DICT
17338 @ 144121:                  PUSH   X
17339 @ 144124:                  ACCESS
17340 @ 144125:                  SELECT 9
17341 @ 144128:                  ASSVAL

  3246      %if m = c_mode %and v < 0 %start
  3247       !*Assertion: SP will have same value when address used
17342 @ 144129:                  LINE   3246 "regression-compile-tmp/imp22g-77.imp"
17343 @ 144169:                  PUSH   M
17344 @ 144172:                  PUSH   C
17345 @ 144175:                  SELECT 27
17346 @ 144178:                  JUMPIF # L_0007
17347 @ 144182:                  PUSH   V
17348 @ 144185:                  PUSHI  #0x00000000
17349 @ 144190:                  JUMPIF >= L_0007

  3248        m = dispmode+7;  v = v-c_sp
17350 @ 144194:                  LINE   3248 "regression-compile-tmp/imp22g-77.imp"
17351 @ 144234:                  PUSH   M
17352 @ 144237:                  PUSHI  #0x00000028
17353 @ 144242:                  PUSHI  #0x00000007
17354 @ 144247:                  ADD   
17355 @ 144248:                  ASSVAL
17356 @ 144249:                  LINE   3248 "regression-compile-tmp/imp22g-77.imp"
17357 @ 144289:                  PUSH   V
17358 @ 144292:                  PUSH   V
17359 @ 144295:                  PUSH   C
17360 @ 144298:                  SELECT 1
17361 @ 144301:                  SUB   
17362 @ 144302:                  ASSVAL

  3249      %finish %else %if m&2_111000 = aregmode+indir %start
17363 @ 144303:                  LINE   3249 "regression-compile-tmp/imp22g-77.imp"
17364 @ 144343:                  GOTO   L_0006
17365 @ 144346:                  LOCATE L_0007
17366 @ 144349:                  PUSH   M
17367 @ 144352:                  PUSHI  #0x00000038
17368 @ 144357:                  AND   
17369 @ 144358:                  PUSHI  #0x00000008
17370 @ 144363:                  PUSHI  #0x00000008
17371 @ 144368:                  ADD   
17372 @ 144369:                  JUMPIF # L_0007

  3250        m = m+(dispmode-(aregmode+indir))
17373 @ 144373:                  LINE   3250 "regression-compile-tmp/imp22g-77.imp"
17374 @ 144413:                  PUSH   M
17375 @ 144416:                  PUSH   M
17376 @ 144419:                  PUSHI  #0x00000028
17377 @ 144424:                  PUSHI  #0x00000008
17378 @ 144429:                  PUSHI  #0x00000008
17379 @ 144434:                  ADD   
17380 @ 144435:                  SUB   
17381 @ 144436:                  ADD   
17382 @ 144437:                  ASSVAL

  3251      %finish
17383 @ 144438:                  LINE   3251 "regression-compile-tmp/imp22g-77.imp"
17384 @ 144478:                  LOCATE L_0007
17385 @ 144481:                  LOCATE L_0006

  3252    %finish
17386 @ 144484:                  LINE   3252 "regression-compile-tmp/imp22g-77.imp"
17387 @ 144524:                  LOCATE L_0003

  3253    eval(y,anyreg) %if y # 0;  !subscript
17388 @ 144527:                  LINE   3253 "regression-compile-tmp/imp22g-77.imp"
17389 @ 144567:                  PUSH   Y
17390 @ 144570:                  PUSHI  #0x00000000
17391 @ 144575:                  JUMPIF = L_0004
17392 @ 144579:                  PUSH   EVAL
17393 @ 144582:                  PUSH   Y
17394 @ 144585:                  ASSPAR
17395 @ 144586:                  PUSHI  #0x0000ffff
17396 @ 144591:                  ASSPAR
17397 @ 144592:                  CALL  
17398 @ 144593:                  LOCATE L_0004

  3254    %if m&2_111000 = indexmode %start;  !X already involves index
17399 @ 144596:                  LINE   3254 "regression-compile-tmp/imp22g-77.imp"
17400 @ 144636:                  PUSH   M
17401 @ 144639:                  PUSHI  #0x00000038
17402 @ 144644:                  AND   
17403 @ 144645:                  PUSHI  #0x00000030
17404 @ 144650:                  JUMPIF # L_0004

  3255      %if y = 0 %start
  3256       !See if Q can be combined with existing disp
17405 @ 144654:                  LINE   3255 "regression-compile-tmp/imp22g-77.imp"
17406 @ 144694:                  PUSH   Y
17407 @ 144697:                  PUSHI  #0x00000000
17408 @ 144702:                  JUMPIF # L_0007

  3257        j = mite(v)
17409 @ 144706:                  LINE   3257 "regression-compile-tmp/imp22g-77.imp"
17410 @ 144746:                  PUSH   J
17411 @ 144749:                  PUSH   MITE
17412 @ 144752:                  PUSH   V
17413 @ 144755:                  ASSPAR
17414 @ 144756:                  CALL  
17415 @ 144757:                  ASSVAL

  3258        i = j+q
17416 @ 144758:                  LINE   3258 "regression-compile-tmp/imp22g-77.imp"
17417 @ 144798:                  PUSH   I
17418 @ 144801:                  PUSH   J
17419 @ 144804:                  PUSH   Q
17420 @ 144807:                  ADD   
17421 @ 144808:                  ASSVAL

  3259        %if is mite(i)=TRUE %start
17422 @ 144809:                  LINE   3259 "regression-compile-tmp/imp22g-77.imp"
17423 @ 144849:                  PUSH   ISMITE
17424 @ 144852:                  PUSH   I
17425 @ 144855:                  ASSPAR
17426 @ 144856:                  CALL  
17427 @ 144857:                  PUSHI  #0x00000001
17428 @ 144862:                  JUMPIF # L_000a

  3260          v = v-j+i&255
17429 @ 144866:                  LINE   3260 "regression-compile-tmp/imp22g-77.imp"
17430 @ 144906:                  PUSH   V
17431 @ 144909:                  PUSH   V
17432 @ 144912:                  PUSH   J
17433 @ 144915:                  SUB   
17434 @ 144916:                  PUSH   I
17435 @ 144919:                  PUSHI  #0x000000ff
17436 @ 144924:                  AND   
17437 @ 144925:                  ADD   
17438 @ 144926:                  ASSVAL

  3261          %return
17439 @ 144927:                  LINE   3261 "regression-compile-tmp/imp22g-77.imp"
17440 @ 144967:                  RETURN

  3262        %finish
17441 @ 144968:                  LINE   3262 "regression-compile-tmp/imp22g-77.imp"
17442 @ 145008:                  LOCATE L_000a

  3263      %finish
17443 @ 145011:                  LINE   3263 "regression-compile-tmp/imp22g-77.imp"
17444 @ 145051:                  LOCATE L_0007

  3264      i = freeish areg(x+ad)
17445 @ 145054:                  LINE   3264 "regression-compile-tmp/imp22g-77.imp"
17446 @ 145094:                  PUSH   I
17447 @ 145097:                  PUSH   FREEISHAREG
17448 @ 145100:                  PUSH   X
17449 @ 145103:                  PUSHI  #0x00004000
17450 @ 145108:                  ADD   
17451 @ 145109:                  ASSPAR
17452 @ 145110:                  CALL  
17453 @ 145111:                  ASSVAL

  3265      plant(lea,x,i)
17454 @ 145112:                  LINE   3265 "regression-compile-tmp/imp22g-77.imp"
17455 @ 145152:                  PUSH   PLANT
17456 @ 145155:                  PUSHI  #0x0000004e
17457 @ 145160:                  ASSPAR
17458 @ 145161:                  PUSH   X
17459 @ 145164:                  ASSPAR
17460 @ 145165:                  PUSH   I
17461 @ 145168:                  ASSPAR
17462 @ 145169:                  CALL  

  3266      m = i+(dispmode-a0);  v = 0
17463 @ 145170:                  LINE   3266 "regression-compile-tmp/imp22g-77.imp"
17464 @ 145210:                  PUSH   M
17465 @ 145213:                  PUSH   I
17466 @ 145216:                  PUSHI  #0x00000028
17467 @ 145221:                  PUSHI  #0x00000009
17468 @ 145226:                  SUB   
17469 @ 145227:                  ADD   
17470 @ 145228:                  ASSVAL
17471 @ 145229:                  LINE   3266 "regression-compile-tmp/imp22g-77.imp"
17472 @ 145269:                  PUSH   V
17473 @ 145272:                  PUSHI  #0x00000000
17474 @ 145277:                  ASSVAL

  3267    %finish
17475 @ 145278:                  LINE   3267 "regression-compile-tmp/imp22g-77.imp"
17476 @ 145318:                  LOCATE L_0004

  3268    %if y # 0 %start
17477 @ 145321:                  LINE   3268 "regression-compile-tmp/imp22g-77.imp"
17478 @ 145361:                  PUSH   Y
17479 @ 145364:                  PUSHI  #0x00000000
17480 @ 145369:                  JUMPIF = L_0004

  3269      %if m&63 = pcmode %start
17481 @ 145373:                  LINE   3269 "regression-compile-tmp/imp22g-77.imp"
17482 @ 145413:                  PUSH   M
17483 @ 145416:                  PUSHI  #0x0000003f
17484 @ 145421:                  AND   
17485 @ 145422:                  PUSHI  #0x0000003a
17486 @ 145427:                  JUMPIF # L_0007

  3270        i = free areg(undef);  plant(lea,temp(m,v+q),i)
17487 @ 145431:                  LINE   3270 "regression-compile-tmp/imp22g-77.imp"
17488 @ 145471:                  PUSH   I
17489 @ 145474:                  PUSH   FREEAREG
17490 @ 145477:                  PUSHI  #0x00000010
17491 @ 145482:                  ASSPAR
17492 @ 145483:                  CALL  
17493 @ 145484:                  ASSVAL
17494 @ 145485:                  LINE   3270 "regression-compile-tmp/imp22g-77.imp"
17495 @ 145525:                  PUSH   PLANT
17496 @ 145528:                  PUSHI  #0x0000004e
17497 @ 145533:                  ASSPAR
17498 @ 145534:                  PUSH   TEMP
17499 @ 145537:                  PUSH   M
17500 @ 145540:                  ASSPAR
17501 @ 145541:                  PUSH   V
17502 @ 145544:                  PUSH   Q
17503 @ 145547:                  ADD   
17504 @ 145548:                  ASSPAR
17505 @ 145549:                  CALL  
17506 @ 145550:                  ASSPAR
17507 @ 145551:                  PUSH   I
17508 @ 145554:                  ASSPAR
17509 @ 145555:                  CALL  

  3271        m = i+(dispmode-a0);  v = 0;  q = 0
17510 @ 145556:                  LINE   3271 "regression-compile-tmp/imp22g-77.imp"
17511 @ 145596:                  PUSH   M
17512 @ 145599:                  PUSH   I
17513 @ 145602:                  PUSHI  #0x00000028
17514 @ 145607:                  PUSHI  #0x00000009
17515 @ 145612:                  SUB   
17516 @ 145613:                  ADD   
17517 @ 145614:                  ASSVAL
17518 @ 145615:                  LINE   3271 "regression-compile-tmp/imp22g-77.imp"
17519 @ 145655:                  PUSH   V
17520 @ 145658:                  PUSHI  #0x00000000
17521 @ 145663:                  ASSVAL
17522 @ 145664:                  LINE   3271 "regression-compile-tmp/imp22g-77.imp"
17523 @ 145704:                  PUSH   Q
17524 @ 145707:                  PUSHI  #0x00000000
17525 @ 145712:                  ASSVAL

  3272      %finish %else %unless is mite(v+q)=TRUE %start;  !indexmode out
17526 @ 145713:                  LINE   3272 "regression-compile-tmp/imp22g-77.imp"
17527 @ 145753:                  GOTO   L_0006
17528 @ 145756:                  LOCATE L_0007
17529 @ 145759:                  PUSH   ISMITE
17530 @ 145762:                  PUSH   V
17531 @ 145765:                  PUSH   Q
17532 @ 145768:                  ADD   
17533 @ 145769:                  ASSPAR
17534 @ 145770:                  CALL  
17535 @ 145771:                  PUSHI  #0x00000001
17536 @ 145776:                  JUMPIF = L_0007

  3273        %unless is mite(q)=TRUE %start; !& out even if V absorbed
17537 @ 145780:                  LINE   3273 "regression-compile-tmp/imp22g-77.imp"
17538 @ 145820:                  PUSH   ISMITE
17539 @ 145823:                  PUSH   Q
17540 @ 145826:                  ASSPAR
17541 @ 145827:                  CALL  
17542 @ 145828:                  PUSHI  #0x00000001
17543 @ 145833:                  JUMPIF = L_000a

  3274          i = freeish areg(undef)
17544 @ 145837:                  LINE   3274 "regression-compile-tmp/imp22g-77.imp"
17545 @ 145877:                  PUSH   I
17546 @ 145880:                  PUSH   FREEISHAREG
17547 @ 145883:                  PUSHI  #0x00000010
17548 @ 145888:                  ASSPAR
17549 @ 145889:                  CALL  
17550 @ 145890:                  ASSVAL

  3275          %if is short(v+q)=TRUE %start
17551 @ 145891:                  LINE   3275 "regression-compile-tmp/imp22g-77.imp"
17552 @ 145931:                  PUSH   ISSHORT
17553 @ 145934:                  PUSH   V
17554 @ 145937:                  PUSH   Q
17555 @ 145940:                  ADD   
17556 @ 145941:                  ASSPAR
17557 @ 145942:                  CALL  
17558 @ 145943:                  PUSHI  #0x00000001
17559 @ 145948:                  JUMPIF # L_000d

  3276            plant(lea,temp(m,v+q),i)
17560 @ 145952:                  LINE   3276 "regression-compile-tmp/imp22g-77.imp"
17561 @ 145992:                  PUSH   PLANT
17562 @ 145995:                  PUSHI  #0x0000004e
17563 @ 146000:                  ASSPAR
17564 @ 146001:                  PUSH   TEMP
17565 @ 146004:                  PUSH   M
17566 @ 146007:                  ASSPAR
17567 @ 146008:                  PUSH   V
17568 @ 146011:                  PUSH   Q
17569 @ 146014:                  ADD   
17570 @ 146015:                  ASSPAR
17571 @ 146016:                  CALL  
17572 @ 146017:                  ASSPAR
17573 @ 146018:                  PUSH   I
17574 @ 146021:                  ASSPAR
17575 @ 146022:                  CALL  

  3277          %else
17576 @ 146023:                  LINE   3277 "regression-compile-tmp/imp22g-77.imp"
17577 @ 146063:                  GOTO   L_000c
17578 @ 146066:                  LOCATE L_000d

  3278            plant(lea,x,i);  addimm(q,i)
17579 @ 146069:                  LINE   3278 "regression-compile-tmp/imp22g-77.imp"
17580 @ 146109:                  PUSH   PLANT
17581 @ 146112:                  PUSHI  #0x0000004e
17582 @ 146117:                  ASSPAR
17583 @ 146118:                  PUSH   X
17584 @ 146121:                  ASSPAR
17585 @ 146122:                  PUSH   I
17586 @ 146125:                  ASSPAR
17587 @ 146126:                  CALL  
17588 @ 146127:                  LINE   3278 "regression-compile-tmp/imp22g-77.imp"
17589 @ 146167:                  PUSH   ADDIMM
17590 @ 146170:                  PUSH   Q
17591 @ 146173:                  ASSPAR
17592 @ 146174:                  PUSH   I
17593 @ 146177:                  ASSPAR
17594 @ 146178:                  CALL  

  3279          %finish
17595 @ 146179:                  LINE   3279 "regression-compile-tmp/imp22g-77.imp"
17596 @ 146219:                  LOCATE L_000c

  3280          q = 0
17597 @ 146222:                  LINE   3280 "regression-compile-tmp/imp22g-77.imp"
17598 @ 146262:                  PUSH   Q
17599 @ 146265:                  PUSHI  #0x00000000
17600 @ 146270:                  ASSVAL

  3281        %else
17601 @ 146271:                  LINE   3281 "regression-compile-tmp/imp22g-77.imp"
17602 @ 146311:                  GOTO   L_0009
17603 @ 146314:                  LOCATE L_000a

  3282          i = freeish areg(x+ad)
17604 @ 146317:                  LINE   3282 "regression-compile-tmp/imp22g-77.imp"
17605 @ 146357:                  PUSH   I
17606 @ 146360:                  PUSH   FREEISHAREG
17607 @ 146363:                  PUSH   X
17608 @ 146366:                  PUSHI  #0x00004000
17609 @ 146371:                  ADD   
17610 @ 146372:                  ASSPAR
17611 @ 146373:                  CALL  
17612 @ 146374:                  ASSVAL

  3283          plant(lea,x,i)
17613 @ 146375:                  LINE   3283 "regression-compile-tmp/imp22g-77.imp"
17614 @ 146415:                  PUSH   PLANT
17615 @ 146418:                  PUSHI  #0x0000004e
17616 @ 146423:                  ASSPAR
17617 @ 146424:                  PUSH   X
17618 @ 146427:                  ASSPAR
17619 @ 146428:                  PUSH   I
17620 @ 146431:                  ASSPAR
17621 @ 146432:                  CALL  

  3284        %finish
17622 @ 146433:                  LINE   3284 "regression-compile-tmp/imp22g-77.imp"
17623 @ 146473:                  LOCATE L_0009

  3285        m = i+(dispmode-a0);  v = 0
17624 @ 146476:                  LINE   3285 "regression-compile-tmp/imp22g-77.imp"
17625 @ 146516:                  PUSH   M
17626 @ 146519:                  PUSH   I
17627 @ 146522:                  PUSHI  #0x00000028
17628 @ 146527:                  PUSHI  #0x00000009
17629 @ 146532:                  SUB   
17630 @ 146533:                  ADD   
17631 @ 146534:                  ASSVAL
17632 @ 146535:                  LINE   3285 "regression-compile-tmp/imp22g-77.imp"
17633 @ 146575:                  PUSH   V
17634 @ 146578:                  PUSHI  #0x00000000
17635 @ 146583:                  ASSVAL

  3286      %finish
17636 @ 146584:                  LINE   3286 "regression-compile-tmp/imp22g-77.imp"
17637 @ 146624:                  LOCATE L_0007
17638 @ 146627:                  LOCATE L_0006

  3287    %finish
17639 @ 146630:                  LINE   3287 "regression-compile-tmp/imp22g-77.imp"
17640 @ 146670:                  LOCATE L_0004

  3288    v = v+q
17641 @ 146673:                  LINE   3288 "regression-compile-tmp/imp22g-77.imp"
17642 @ 146713:                  PUSH   V
17643 @ 146716:                  PUSH   V
17644 @ 146719:                  PUSH   Q
17645 @ 146722:                  ADD   
17646 @ 146723:                  ASSVAL

  3289    %if y # 0 %start
17647 @ 146724:                  LINE   3289 "regression-compile-tmp/imp22g-77.imp"
17648 @ 146764:                  PUSH   Y
17649 @ 146767:                  PUSHI  #0x00000000
17650 @ 146772:                  JUMPIF = L_0004

  3290      m = m+(indexmode-dispmode)
17651 @ 146776:                  LINE   3290 "regression-compile-tmp/imp22g-77.imp"
17652 @ 146816:                  PUSH   M
17653 @ 146819:                  PUSH   M
17654 @ 146822:                  PUSHI  #0x00000030
17655 @ 146827:                  PUSHI  #0x00000028
17656 @ 146832:                  SUB   
17657 @ 146833:                  ADD   
17658 @ 146834:                  ASSVAL

  3291      v = (y-d0)<<12+16_0800+v&255
17659 @ 146835:                  LINE   3291 "regression-compile-tmp/imp22g-77.imp"
17660 @ 146875:                  PUSH   V
17661 @ 146878:                  PUSH   Y
17662 @ 146881:                  PUSHI  #0x00000001
17663 @ 146886:                  SUB   
17664 @ 146887:                  PUSHI  #0x0000000c
17665 @ 146892:                  LSH   
17666 @ 146893:                  PUSHI  #0x00000800
17667 @ 146898:                  ADD   
17668 @ 146899:                  PUSH   V
17669 @ 146902:                  PUSHI  #0x000000ff
17670 @ 146907:                  AND   
17671 @ 146908:                  ADD   
17672 @ 146909:                  ASSVAL

  3292    %finish
17673 @ 146910:                  LINE   3292 "regression-compile-tmp/imp22g-77.imp"
17674 @ 146950:                  LOCATE L_0004

  3293  %end
  3294  
17675 @ 146953:                  LINE   3293 "regression-compile-tmp/imp22g-77.imp"
17676 @ 146993:               END    _lev0id0_EVAL_ADEVAL {lev=3 --> 2}

  3295  do(index):
  3296  !  P      => {index,ARRAY,SUBSCRIPT}
  3297  !  ARRAY  => ARRID
  3298  !         or {index,ARRAY,SUBSCRIPT}
  3299  !         or {recref,RECORD,ARRAY}
  3300  !  TYPE INFO : TYPE = ELTYPE, XTYPE = INDEX-TYPE
  3301  !              MODE,VAL = DOPE ADDRESS
17677 @ 146994:               LINE   3295 "regression-compile-tmp/imp22g-77.imp"
17678 @ 147034:               PUSHI  #0x0000004e
17679 @ 147039:               SLABEL 327

  3302    dx == dict(x)
17680 @ 147042:               LINE   3302 "regression-compile-tmp/imp22g-77.imp"
17681 @ 147082:               PUSH   DX
17682 @ 147085:               PUSH   DICT
17683 @ 147088:               PUSH   X
17684 @ 147091:               ACCESS
17685 @ 147092:               ASSREF

  3303    i = dx_type;                   !array type cell
17686 @ 147093:               LINE   3303 "regression-compile-tmp/imp22g-77.imp"
17687 @ 147133:               PUSH   I
17688 @ 147136:               PUSH   DX
17689 @ 147139:               SELECT 2
17690 @ 147142:               ASSVAL

  3304    tx == dict(i)
17691 @ 147143:               LINE   3304 "regression-compile-tmp/imp22g-77.imp"
17692 @ 147183:               PUSH   TX
17693 @ 147186:               PUSH   DICT
17694 @ 147189:               PUSH   I
17695 @ 147192:               ACCESS
17696 @ 147193:               ASSREF

  3305    get bounds(tx_xtype,sx,sy)
  3306   !establish multiplier (element size)
17697 @ 147194:               LINE   3305 "regression-compile-tmp/imp22g-77.imp"
17698 @ 147234:               PUSH   GETBOUNDS
17699 @ 147237:               PUSH   TX
17700 @ 147240:               SELECT 4
17701 @ 147243:               ASSPAR
17702 @ 147244:               PUSH   SX
17703 @ 147247:               ASSPAR
17704 @ 147248:               PUSH   SY
17705 @ 147251:               ASSPAR
17706 @ 147252:               CALL  

  3307    m = imod(nsize(tx))
  3308   !ARRFLAG is set for either ABC requested or dynamic
17707 @ 147253:               LINE   3307 "regression-compile-tmp/imp22g-77.imp"
17708 @ 147293:               PUSH   M
17709 @ 147296:               PUSH   IMOD
17710 @ 147299:               PUSH   NSIZE
17711 @ 147302:               PUSH   TX
17712 @ 147305:               ASSPAR
17713 @ 147306:               CALL  
17714 @ 147307:               ASSPAR
17715 @ 147308:               CALL  
17716 @ 147309:               ASSVAL

  3309    %if dx_flags&arrflag # 0 %and (y > 0 %or sx = minint %or m = 0) %start
17717 @ 147310:               LINE   3309 "regression-compile-tmp/imp22g-77.imp"
17718 @ 147350:               PUSH   DX
17719 @ 147353:               SELECT 1
17720 @ 147356:               PUSHI  #0x00000008
17721 @ 147361:               AND   
17722 @ 147362:               PUSHI  #0x00000000
17723 @ 147367:               JUMPIF = L_0004
17724 @ 147371:               PUSH   Y
17725 @ 147374:               PUSHI  #0x00000000
17726 @ 147379:               JUMPIF > L_0005
17727 @ 147383:               PUSH   SX
17728 @ 147386:               PUSHI  #0x80000000
17729 @ 147391:               JUMPIF = L_0005
17730 @ 147395:               PUSH   M
17731 @ 147398:               PUSHI  #0x00000000
17732 @ 147403:               JUMPIF # L_0004
17733 @ 147407:               LOCATE L_0005

  3310      commandeer(d0b+d1b+a0b);  ![D1 ??]
  3311     ! subscript
17734 @ 147410:               LINE   3310 "regression-compile-tmp/imp22g-77.imp"
17735 @ 147450:               PUSH   COMMANDEER
17736 @ 147453:               PUSHI  #0x00000001
17737 @ 147458:               PUSHI  #0x00000002
17738 @ 147463:               ADD   
17739 @ 147464:               PUSHI  #0x00000100
17740 @ 147469:               ADD   
17741 @ 147470:               ASSPAR
17742 @ 147471:               CALL  

  3312      eval(y,d0b)
  3313     ! dope vector
17743 @ 147472:               LINE   3312 "regression-compile-tmp/imp22g-77.imp"
17744 @ 147512:               PUSH   EVAL
17745 @ 147515:               PUSH   Y
17746 @ 147518:               ASSPAR
17747 @ 147519:               PUSHI  #0x00000001
17748 @ 147524:               ASSPAR
17749 @ 147525:               CALL  

  3314      j = 0
17750 @ 147526:               LINE   3314 "regression-compile-tmp/imp22g-77.imp"
17751 @ 147566:               PUSH   J
17752 @ 147569:               PUSHI  #0x00000000
17753 @ 147574:               ASSVAL

  3315      j = j+12 %and i = i+1 %and tx == dict(i) %while tx_mode = 0
17754 @ 147575:               LINE   3315 "regression-compile-tmp/imp22g-77.imp"
17755 @ 147615:               LOCATE L_0006
17756 @ 147618:               PUSH   TX
17757 @ 147621:               SELECT 8
17758 @ 147624:               PUSHI  #0x00000000
17759 @ 147629:               JUMPIF # L_0007
17760 @ 147633:               PUSH   J
17761 @ 147636:               PUSH   J
17762 @ 147639:               PUSHI  #0x0000000c
17763 @ 147644:               ADD   
17764 @ 147645:               ASSVAL
17765 @ 147646:               PUSH   I
17766 @ 147649:               PUSH   I
17767 @ 147652:               PUSHI  #0x00000001
17768 @ 147657:               ADD   
17769 @ 147658:               ASSVAL
17770 @ 147659:               PUSH   TX
17771 @ 147662:               PUSH   DICT
17772 @ 147665:               PUSH   I
17773 @ 147668:               ACCESS
17774 @ 147669:               ASSREF
17775 @ 147670:               REPEAT L_0006
17776 @ 147673:               LOCATE L_0007

  3316      %if tx_flags&indirect # 0 %start
17777 @ 147676:               LINE   3316 "regression-compile-tmp/imp22g-77.imp"
17778 @ 147716:               PUSH   TX
17779 @ 147719:               SELECT 1
17780 @ 147722:               PUSHI  #0x00000800
17781 @ 147727:               AND   
17782 @ 147728:               PUSHI  #0x00000000
17783 @ 147733:               JUMPIF = L_0007

  3317        plant(move,i,a0)
17784 @ 147737:               LINE   3317 "regression-compile-tmp/imp22g-77.imp"
17785 @ 147777:               PUSH   PLANT
17786 @ 147780:               PUSHI  #0x00000001
17787 @ 147785:               ASSPAR
17788 @ 147786:               PUSH   I
17789 @ 147789:               ASSPAR
17790 @ 147790:               PUSHI  #0x00000009
17791 @ 147795:               ASSPAR
17792 @ 147796:               CALL  

  3318        addimm(j,a0) %if j # 0
17793 @ 147797:               LINE   3318 "regression-compile-tmp/imp22g-77.imp"
17794 @ 147837:               PUSH   J
17795 @ 147840:               PUSHI  #0x00000000
17796 @ 147845:               JUMPIF = L_000a
17797 @ 147849:               PUSH   ADDIMM
17798 @ 147852:               PUSH   J
17799 @ 147855:               ASSPAR
17800 @ 147856:               PUSHI  #0x00000009
17801 @ 147861:               ASSPAR
17802 @ 147862:               CALL  
17803 @ 147863:               LOCATE L_000a

  3319      %else
17804 @ 147866:               LINE   3319 "regression-compile-tmp/imp22g-77.imp"
17805 @ 147906:               GOTO   L_0006
17806 @ 147909:               LOCATE L_0007

  3320        %if tx_val = 0 %and tx_mode = constmode %start
  3321        ! dope info not yet created
17807 @ 147912:               LINE   3320 "regression-compile-tmp/imp22g-77.imp"
17808 @ 147952:               PUSH   TX
17809 @ 147955:               SELECT 9
17810 @ 147958:               PUSHI  #0x00000000
17811 @ 147963:               JUMPIF # L_000a
17812 @ 147967:               PUSH   TX
17813 @ 147970:               SELECT 8
17814 @ 147973:               PUSHI  #0x0000007a
17815 @ 147978:               JUMPIF # L_000a

  3322          fill code(1) %if cad&1 # 0
17816 @ 147982:               LINE   3322 "regression-compile-tmp/imp22g-77.imp"
17817 @ 148022:               PUSH   CAD
17818 @ 148025:               PUSHI  #0x00000001
17819 @ 148030:               AND   
17820 @ 148031:               PUSHI  #0x00000000
17821 @ 148036:               JUMPIF = L_000d
17822 @ 148040:               PUSH   FILLCODE
17823 @ 148043:               PUSHI  #0x00000001
17824 @ 148048:               ASSPAR
17825 @ 148049:               CALL  
17826 @ 148050:               LOCATE L_000d

  3323          tx_val = cad
17827 @ 148053:               LINE   3323 "regression-compile-tmp/imp22g-77.imp"
17828 @ 148093:               PUSH   TX
17829 @ 148096:               SELECT 9
17830 @ 148099:               PUSH   CAD
17831 @ 148102:               ASSVAL

  3324          set code longword(sy)
17832 @ 148103:               LINE   3324 "regression-compile-tmp/imp22g-77.imp"
17833 @ 148143:               PUSH   SETCODELONGWORD
17834 @ 148146:               PUSH   SY
17835 @ 148149:               ASSPAR
17836 @ 148150:               CALL  

  3325          set code longword(sx)
17837 @ 148151:               LINE   3325 "regression-compile-tmp/imp22g-77.imp"
17838 @ 148191:               PUSH   SETCODELONGWORD
17839 @ 148194:               PUSH   SX
17840 @ 148197:               ASSPAR
17841 @ 148198:               CALL  

  3326          set code longword(m)
17842 @ 148199:               LINE   3326 "regression-compile-tmp/imp22g-77.imp"
17843 @ 148239:               PUSH   SETCODELONGWORD
17844 @ 148242:               PUSH   M
17845 @ 148245:               ASSPAR
17846 @ 148246:               CALL  

  3327        %finish
17847 @ 148247:               LINE   3327 "regression-compile-tmp/imp22g-77.imp"
17848 @ 148287:               LOCATE L_000a

  3328        plant(lea,i,a0)
17849 @ 148290:               LINE   3328 "regression-compile-tmp/imp22g-77.imp"
17850 @ 148330:               PUSH   PLANT
17851 @ 148333:               PUSHI  #0x0000004e
17852 @ 148338:               ASSPAR
17853 @ 148339:               PUSH   I
17854 @ 148342:               ASSPAR
17855 @ 148343:               PUSHI  #0x00000009
17856 @ 148348:               ASSPAR
17857 @ 148349:               CALL  

  3329      %finish
17858 @ 148350:               LINE   3329 "regression-compile-tmp/imp22g-77.imp"
17859 @ 148390:               LOCATE L_0006

  3330      srcall(index)
17860 @ 148393:               LINE   3330 "regression-compile-tmp/imp22g-77.imp"
17861 @ 148433:               PUSH   SRCALL
17862 @ 148436:               PUSHI  #0x0000004e
17863 @ 148441:               ASSPAR
17864 @ 148442:               CALL  

  3331      forget(d0);  forget(a0)
17865 @ 148443:               LINE   3331 "regression-compile-tmp/imp22g-77.imp"
17866 @ 148483:               PUSH   FORGET
17867 @ 148486:               PUSHI  #0x00000001
17868 @ 148491:               ASSPAR
17869 @ 148492:               CALL  
17870 @ 148493:               LINE   3331 "regression-compile-tmp/imp22g-77.imp"
17871 @ 148533:               PUSH   FORGET
17872 @ 148536:               PUSHI  #0x00000009
17873 @ 148541:               ASSPAR
17874 @ 148542:               CALL  

  3332      restore(freed&(\d0b))
17875 @ 148543:               LINE   3332 "regression-compile-tmp/imp22g-77.imp"
17876 @ 148583:               PUSH   RESTORE
17877 @ 148586:               PUSH   FREED
17878 @ 148589:               PUSHI  #0x00000001
17879 @ 148594:               NOT   
17880 @ 148595:               AND   
17881 @ 148596:               ASSPAR
17882 @ 148597:               CALL  

  3333      free = oldfree&(\d0b)
17883 @ 148598:               LINE   3333 "regression-compile-tmp/imp22g-77.imp"
17884 @ 148638:               PUSH   FREE
17885 @ 148641:               PUSH   OLDFREE
17886 @ 148644:               PUSHI  #0x00000001
17887 @ 148649:               NOT   
17888 @ 148650:               AND   
17889 @ 148651:               ASSVAL

  3334      freed = freed&d0b
17890 @ 148652:               LINE   3334 "regression-compile-tmp/imp22g-77.imp"
17891 @ 148692:               PUSH   FREED
17892 @ 148695:               PUSH   FREED
17893 @ 148698:               PUSHI  #0x00000001
17894 @ 148703:               AND   
17895 @ 148704:               ASSVAL

  3335      i = x;  eval(i,anyareg&free+asad)
17896 @ 148705:               LINE   3335 "regression-compile-tmp/imp22g-77.imp"
17897 @ 148745:               PUSH   I
17898 @ 148748:               PUSH   X
17899 @ 148751:               ASSVAL
17900 @ 148752:               LINE   3335 "regression-compile-tmp/imp22g-77.imp"
17901 @ 148792:               PUSH   EVAL
17902 @ 148795:               PUSH   I
17903 @ 148798:               ASSPAR
17904 @ 148799:               PUSHI  #0x0000ff00
17905 @ 148804:               PUSH   FREE
17906 @ 148807:               AND   
17907 @ 148808:               PUSHI  #0x00100000
17908 @ 148813:               ADD   
17909 @ 148814:               ASSPAR
17910 @ 148815:               CALL  

  3336      plant(add,d0,i)
17911 @ 148816:               LINE   3336 "regression-compile-tmp/imp22g-77.imp"
17912 @ 148856:               PUSH   PLANT
17913 @ 148859:               PUSHI  #0x00000002
17914 @ 148864:               ASSPAR
17915 @ 148865:               PUSHI  #0x00000001
17916 @ 148870:               ASSPAR
17917 @ 148871:               PUSH   I
17918 @ 148874:               ASSPAR
17919 @ 148875:               CALL  

  3337      %if dp_flags < 0 %then forget(i) {ad of ad of P} %c
  3338      %else c_reg_content(i) = p+ad
17920 @ 148876:               LINE   3337 "regression-compile-tmp/imp22g-77.imp"
17921 @ 148916:               PUSH   DP
17922 @ 148919:               SELECT 1
17923 @ 148922:               PUSHI  #0x00000000
17924 @ 148927:               JUMPIF >= L_0007
17925 @ 148931:               PUSH   FORGET
17926 @ 148934:               PUSH   I
17927 @ 148937:               ASSPAR
17928 @ 148938:               CALL  
17929 @ 148939:               GOTO   L_0006
17930 @ 148942:               LOCATE L_0007
17931 @ 148945:               PUSH   C
17932 @ 148948:               SELECT 30
17933 @ 148951:               SELECT 4
17934 @ 148954:               PUSH   I
17935 @ 148957:               ACCESS
17936 @ 148958:               PUSH   P
17937 @ 148961:               PUSHI  #0x00004000
17938 @ 148966:               ADD   
17939 @ 148967:               ASSVAL
17940 @ 148968:               LOCATE L_0006

  3339      free = free!d0b %if freed = 0
17941 @ 148971:               LINE   3339 "regression-compile-tmp/imp22g-77.imp"
17942 @ 149011:               PUSH   FREED
17943 @ 149014:               PUSHI  #0x00000000
17944 @ 149019:               JUMPIF # L_0007
17945 @ 149023:               PUSH   FREE
17946 @ 149026:               PUSH   FREE
17947 @ 149029:               PUSHI  #0x00000001
17948 @ 149034:               OR    
17949 @ 149035:               ASSVAL
17950 @ 149036:               LOCATE L_0007

  3340      restore(freed)
17951 @ 149039:               LINE   3340 "regression-compile-tmp/imp22g-77.imp"
17952 @ 149079:               PUSH   RESTORE
17953 @ 149082:               PUSH   FREED
17954 @ 149085:               ASSPAR
17955 @ 149086:               CALL  

  3341      m = i+(dispmode-a0);  v = 0
17956 @ 149087:               LINE   3341 "regression-compile-tmp/imp22g-77.imp"
17957 @ 149127:               PUSH   M
17958 @ 149130:               PUSH   I
17959 @ 149133:               PUSHI  #0x00000028
17960 @ 149138:               PUSHI  #0x00000009
17961 @ 149143:               SUB   
17962 @ 149144:               ADD   
17963 @ 149145:               ASSVAL
17964 @ 149146:               LINE   3341 "regression-compile-tmp/imp22g-77.imp"
17965 @ 149186:               PUSH   V
17966 @ 149189:               PUSHI  #0x00000000
17967 @ 149194:               ASSVAL

  3342      -> setflags
17968 @ 149195:               LINE   3342 "regression-compile-tmp/imp22g-77.imp"
17969 @ 149235:               JUMP   L_017d

  3343    %finish
17970 @ 149238:               LINE   3343 "regression-compile-tmp/imp22g-77.imp"
17971 @ 149278:               LOCATE L_0004

  3344  index1:
  3345    !deal with subscript
17972 @ 149281:               LINE   3344 "regression-compile-tmp/imp22g-77.imp"
17973 @ 149321:               LABEL  L_017e

  3346    j = 0
17974 @ 149324:               LINE   3346 "regression-compile-tmp/imp22g-77.imp"
17975 @ 149364:               PUSH   J
17976 @ 149367:               PUSHI  #0x00000000
17977 @ 149372:               ASSVAL

  3347    %if y <= 0 %start;  !literal subscript
17978 @ 149373:               LINE   3347 "regression-compile-tmp/imp22g-77.imp"
17979 @ 149413:               PUSH   Y
17980 @ 149416:               PUSHI  #0x00000000
17981 @ 149421:               JUMPIF > L_0004

  3348      j = litval(y);  y = 0
17982 @ 149425:               LINE   3348 "regression-compile-tmp/imp22g-77.imp"
17983 @ 149465:               PUSH   J
17984 @ 149468:               PUSH   LITVAL
17985 @ 149471:               PUSH   Y
17986 @ 149474:               ASSPAR
17987 @ 149475:               CALL  
17988 @ 149476:               ASSVAL
17989 @ 149477:               LINE   3348 "regression-compile-tmp/imp22g-77.imp"
17990 @ 149517:               PUSH   Y
17991 @ 149520:               PUSHI  #0x00000000
17992 @ 149525:               ASSVAL

  3349    %finish
17993 @ 149526:               LINE   3349 "regression-compile-tmp/imp22g-77.imp"
17994 @ 149566:               LOCATE L_0004

  3350    %if y >= np0 %and dict(y)_act = add %c
  3351     %and dict(y)_y <= 0 %start;  !Y => {add,exp,lit}
17995 @ 149569:               LINE   3350 "regression-compile-tmp/imp22g-77.imp"
17996 @ 149609:               PUSH   Y
17997 @ 149612:               PUSH   NP0
17998 @ 149615:               JUMPIF < L_0004
17999 @ 149619:               PUSH   DICT
18000 @ 149622:               PUSH   Y
18001 @ 149625:               ACCESS
18002 @ 149626:               SELECT 6
18003 @ 149629:               PUSHI  #0x00000002
18004 @ 149634:               JUMPIF # L_0004
18005 @ 149638:               PUSH   DICT
18006 @ 149641:               PUSH   Y
18007 @ 149644:               ACCESS
18008 @ 149645:               SELECT 14
18009 @ 149648:               PUSHI  #0x00000000
18010 @ 149653:               JUMPIF > L_0004

  3352      j = litval(dict(y)_y);  y = dict(y)_x
18011 @ 149657:               LINE   3352 "regression-compile-tmp/imp22g-77.imp"
18012 @ 149697:               PUSH   J
18013 @ 149700:               PUSH   LITVAL
18014 @ 149703:               PUSH   DICT
18015 @ 149706:               PUSH   Y
18016 @ 149709:               ACCESS
18017 @ 149710:               SELECT 14
18018 @ 149713:               ASSPAR
18019 @ 149714:               CALL  
18020 @ 149715:               ASSVAL
18021 @ 149716:               LINE   3352 "regression-compile-tmp/imp22g-77.imp"
18022 @ 149756:               PUSH   Y
18023 @ 149759:               PUSH   DICT
18024 @ 149762:               PUSH   Y
18025 @ 149765:               ACCESS
18026 @ 149766:               SELECT 13
18027 @ 149769:               ASSVAL

  3353    %finish
18028 @ 149770:               LINE   3353 "regression-compile-tmp/imp22g-77.imp"
18029 @ 149810:               LOCATE L_0004

  3354    %if m > 1 %start
18030 @ 149813:               LINE   3354 "regression-compile-tmp/imp22g-77.imp"
18031 @ 149853:               PUSH   M
18032 @ 149856:               PUSHI  #0x00000001
18033 @ 149861:               JUMPIF <= L_0004

  3355      %if y # 0 %start
18034 @ 149865:               LINE   3355 "regression-compile-tmp/imp22g-77.imp"
18035 @ 149905:               PUSH   Y
18036 @ 149908:               PUSHI  #0x00000000
18037 @ 149913:               JUMPIF = L_0007

  3356        %if m&(m-1) # 0 %and m <= 32767 %and sy <= 32767 %and sx >= -32768 %start
18038 @ 149917:               LINE   3356 "regression-compile-tmp/imp22g-77.imp"
18039 @ 149957:               PUSH   M
18040 @ 149960:               PUSH   M
18041 @ 149963:               PUSHI  #0x00000001
18042 @ 149968:               SUB   
18043 @ 149969:               AND   
18044 @ 149970:               PUSHI  #0x00000000
18045 @ 149975:               JUMPIF = L_000a
18046 @ 149979:               PUSH   M
18047 @ 149982:               PUSHI  #0x00007fff
18048 @ 149987:               JUMPIF > L_000a
18049 @ 149991:               PUSH   SY
18050 @ 149994:               PUSHI  #0x00007fff
18051 @ 149999:               JUMPIF > L_000a
18052 @ 150003:               PUSH   SX
18053 @ 150006:               PUSHI  #0x00008000
18054 @ 150011:               NEGATE
18055 @ 150012:               JUMPIF < L_000a

  3357          putexp(muls,y,litref(m),inttype)
18056 @ 150016:               LINE   3357 "regression-compile-tmp/imp22g-77.imp"
18057 @ 150056:               PUSH   PUTEXP
18058 @ 150059:               PUSHI  #0x0000000c
18059 @ 150064:               ASSPAR
18060 @ 150065:               PUSH   Y
18061 @ 150068:               ASSPAR
18062 @ 150069:               PUSH   LITREF
18063 @ 150072:               PUSH   M
18064 @ 150075:               ASSPAR
18065 @ 150076:               CALL  
18066 @ 150077:               ASSPAR
18067 @ 150078:               PUSHI  #0x0000002b
18068 @ 150083:               ASSPAR
18069 @ 150084:               CALL  

  3358        %else
18070 @ 150085:               LINE   3358 "regression-compile-tmp/imp22g-77.imp"
18071 @ 150125:               GOTO   L_0009
18072 @ 150128:               LOCATE L_000a

  3359          putexp(imul,y,litref(m),inttype)
18073 @ 150131:               LINE   3359 "regression-compile-tmp/imp22g-77.imp"
18074 @ 150171:               PUSH   PUTEXP
18075 @ 150174:               PUSHI  #0x00000056
18076 @ 150179:               ASSPAR
18077 @ 150180:               PUSH   Y
18078 @ 150183:               ASSPAR
18079 @ 150184:               PUSH   LITREF
18080 @ 150187:               PUSH   M
18081 @ 150190:               ASSPAR
18082 @ 150191:               CALL  
18083 @ 150192:               ASSPAR
18084 @ 150193:               PUSHI  #0x0000002b
18085 @ 150198:               ASSPAR
18086 @ 150199:               CALL  

  3360        %finish
18087 @ 150200:               LINE   3360 "regression-compile-tmp/imp22g-77.imp"
18088 @ 150240:               LOCATE L_0009

  3361        y = item
18089 @ 150243:               LINE   3361 "regression-compile-tmp/imp22g-77.imp"
18090 @ 150283:               PUSH   Y
18091 @ 150286:               PUSH   ITEM
18092 @ 150289:               ASSVAL

  3362      %finish
18093 @ 150290:               LINE   3362 "regression-compile-tmp/imp22g-77.imp"
18094 @ 150330:               LOCATE L_0007

  3363    %finish
18095 @ 150333:               LINE   3363 "regression-compile-tmp/imp22g-77.imp"
18096 @ 150373:               LOCATE L_0004

  3364    %if dx_flags&(name+ext+arrflag+indirect) = indirect %and sx # 0 %start
18097 @ 150376:               LINE   3364 "regression-compile-tmp/imp22g-77.imp"
18098 @ 150416:               PUSH   DX
18099 @ 150419:               SELECT 1
18100 @ 150422:               PUSHI  #0xffff8000
18101 @ 150427:               PUSHI  #0x00004000
18102 @ 150432:               ADD   
18103 @ 150433:               PUSHI  #0x00000008
18104 @ 150438:               ADD   
18105 @ 150439:               PUSHI  #0x00000800
18106 @ 150444:               ADD   
18107 @ 150445:               AND   
18108 @ 150446:               PUSHI  #0x00000800
18109 @ 150451:               JUMPIF # L_0004
18110 @ 150455:               PUSH   SX
18111 @ 150458:               PUSHI  #0x00000000
18112 @ 150463:               JUMPIF = L_0004

  3365      dx_val = dx_val+4;  !0-based
18113 @ 150467:               LINE   3365 "regression-compile-tmp/imp22g-77.imp"
18114 @ 150507:               PUSH   DX
18115 @ 150510:               SELECT 9
18116 @ 150513:               PUSH   DX
18117 @ 150516:               SELECT 9
18118 @ 150519:               PUSHI  #0x00000004
18119 @ 150524:               ADD   
18120 @ 150525:               ASSVAL

  3366      adeval(x,y,j*m)
18121 @ 150526:               LINE   3366 "regression-compile-tmp/imp22g-77.imp"
18122 @ 150566:               PUSH   ADEVAL
18123 @ 150569:               PUSH   X
18124 @ 150572:               ASSPAR
18125 @ 150573:               PUSH   Y
18126 @ 150576:               ASSPAR
18127 @ 150577:               PUSH   J
18128 @ 150580:               PUSH   M
18129 @ 150583:               MUL   
18130 @ 150584:               ASSPAR
18131 @ 150585:               CALL  

  3367      dx_val = dx_val-4
18132 @ 150586:               LINE   3367 "regression-compile-tmp/imp22g-77.imp"
18133 @ 150626:               PUSH   DX
18134 @ 150629:               SELECT 9
18135 @ 150632:               PUSH   DX
18136 @ 150635:               SELECT 9
18137 @ 150638:               PUSHI  #0x00000004
18138 @ 150643:               SUB   
18139 @ 150644:               ASSVAL

  3368    %else
18140 @ 150645:               LINE   3368 "regression-compile-tmp/imp22g-77.imp"
18141 @ 150685:               GOTO   L_0003
18142 @ 150688:               LOCATE L_0004

  3369      j = j-sx;  j = j*m %if m > 1
18143 @ 150691:               LINE   3369 "regression-compile-tmp/imp22g-77.imp"
18144 @ 150731:               PUSH   J
18145 @ 150734:               PUSH   J
18146 @ 150737:               PUSH   SX
18147 @ 150740:               SUB   
18148 @ 150741:               ASSVAL
18149 @ 150742:               LINE   3369 "regression-compile-tmp/imp22g-77.imp"
18150 @ 150782:               PUSH   M
18151 @ 150785:               PUSHI  #0x00000001
18152 @ 150790:               JUMPIF <= L_0007
18153 @ 150794:               PUSH   J
18154 @ 150797:               PUSH   J
18155 @ 150800:               PUSH   M
18156 @ 150803:               MUL   
18157 @ 150804:               ASSVAL
18158 @ 150805:               LOCATE L_0007

  3370      adeval(x,y,j);  !array,index,displacement
18159 @ 150808:               LINE   3370 "regression-compile-tmp/imp22g-77.imp"
18160 @ 150848:               PUSH   ADEVAL
18161 @ 150851:               PUSH   X
18162 @ 150854:               ASSPAR
18163 @ 150855:               PUSH   Y
18164 @ 150858:               ASSPAR
18165 @ 150859:               PUSH   J
18166 @ 150862:               ASSPAR
18167 @ 150863:               CALL  

  3371    %finish
18168 @ 150864:               LINE   3371 "regression-compile-tmp/imp22g-77.imp"
18169 @ 150904:               LOCATE L_0003

  3372  setflags:
18170 @ 150907:               LINE   3372 "regression-compile-tmp/imp22g-77.imp"
18171 @ 150947:               LABEL  L_017d

  3373    dx_flags = dx_flags!(mflag+wflag+rflag);  !don't know
18172 @ 150950:               LINE   3373 "regression-compile-tmp/imp22g-77.imp"
18173 @ 150990:               PUSH   DX
18174 @ 150993:               SELECT 1
18175 @ 150996:               PUSH   DX
18176 @ 150999:               SELECT 1
18177 @ 151002:               PUSHI  #0x00000080
18178 @ 151007:               PUSHI  #0x00000010
18179 @ 151012:               ADD   
18180 @ 151013:               PUSHI  #0x00000020
18181 @ 151018:               ADD   
18182 @ 151019:               OR    
18183 @ 151020:               ASSVAL

  3374  setmode:
  3375  ![what about FRAMEMODE?]
18184 @ 151021:               LINE   3374 "regression-compile-tmp/imp22g-77.imp"
18185 @ 151061:               LABEL  L_017f

  3376    %if dispmode <= m < indexmode %start
18186 @ 151064:               LINE   3376 "regression-compile-tmp/imp22g-77.imp"
18187 @ 151104:               PUSHI  #0x00000028
18188 @ 151109:               PUSH   M
18189 @ 151112:               JUMPIFD > L_0004
18190 @ 151116:               PUSHI  #0x00000030
18191 @ 151121:               JUMPIF >= L_0004

  3377      %unless is short(v)=TRUE %start
18192 @ 151125:               LINE   3377 "regression-compile-tmp/imp22g-77.imp"
18193 @ 151165:               PUSH   ISSHORT
18194 @ 151168:               PUSH   V
18195 @ 151171:               ASSPAR
18196 @ 151172:               CALL  
18197 @ 151173:               PUSHI  #0x00000001
18198 @ 151178:               JUMPIF = L_0007

  3378        ok areg(m+(a0-dispmode),oldfree&anyareg)
18199 @ 151182:               LINE   3378 "regression-compile-tmp/imp22g-77.imp"
18200 @ 151222:               PUSH   OKAREG
18201 @ 151225:               PUSH   M
18202 @ 151228:               PUSHI  #0x00000009
18203 @ 151233:               PUSHI  #0x00000028
18204 @ 151238:               SUB   
18205 @ 151239:               ADD   
18206 @ 151240:               ASSPAR
18207 @ 151241:               PUSH   OLDFREE
18208 @ 151244:               PUSHI  #0x0000ff00
18209 @ 151249:               AND   
18210 @ 151250:               ASSPAR
18211 @ 151251:               CALL  

  3379        addimm(v,r);  forget(r)
18212 @ 151252:               LINE   3379 "regression-compile-tmp/imp22g-77.imp"
18213 @ 151292:               PUSH   ADDIMM
18214 @ 151295:               PUSH   V
18215 @ 151298:               ASSPAR
18216 @ 151299:               PUSH   R
18217 @ 151302:               ASSPAR
18218 @ 151303:               CALL  
18219 @ 151304:               LINE   3379 "regression-compile-tmp/imp22g-77.imp"
18220 @ 151344:               PUSH   FORGET
18221 @ 151347:               PUSH   R
18222 @ 151350:               ASSPAR
18223 @ 151351:               CALL  

  3380        m = r-(a0-dispmode);  v = 0
18224 @ 151352:               LINE   3380 "regression-compile-tmp/imp22g-77.imp"
18225 @ 151392:               PUSH   M
18226 @ 151395:               PUSH   R
18227 @ 151398:               PUSHI  #0x00000009
18228 @ 151403:               PUSHI  #0x00000028
18229 @ 151408:               SUB   
18230 @ 151409:               SUB   
18231 @ 151410:               ASSVAL
18232 @ 151411:               LINE   3380 "regression-compile-tmp/imp22g-77.imp"
18233 @ 151451:               PUSH   V
18234 @ 151454:               PUSHI  #0x00000000
18235 @ 151459:               ASSVAL

  3381      %finish
18236 @ 151460:               LINE   3381 "regression-compile-tmp/imp22g-77.imp"
18237 @ 151500:               LOCATE L_0007

  3382      %if pp >= explim %and v = 0 %and rset # ref %and dp_flags >= 0 %start
  3383      !address wanted, disp zero, as value, not name
  3384      ! so the address is simply in the register
18238 @ 151503:               LINE   3382 "regression-compile-tmp/imp22g-77.imp"
18239 @ 151543:               PUSH   PP
18240 @ 151546:               PUSH   EXPLIM
18241 @ 151549:               JUMPIF < L_0007
18242 @ 151553:               PUSH   V
18243 @ 151556:               PUSHI  #0x00000000
18244 @ 151561:               JUMPIF # L_0007
18245 @ 151565:               PUSH   RSET
18246 @ 151568:               PUSHI  #0x80000000
18247 @ 151573:               JUMPIF = L_0007
18248 @ 151577:               PUSH   DP
18249 @ 151580:               SELECT 1
18250 @ 151583:               PUSHI  #0x00000000
18251 @ 151588:               JUMPIF < L_0007

  3385        ok reg(m+(a0-dispmode))
18252 @ 151592:               LINE   3385 "regression-compile-tmp/imp22g-77.imp"
18253 @ 151632:               PUSH   OKREG
18254 @ 151635:               PUSH   M
18255 @ 151638:               PUSHI  #0x00000009
18256 @ 151643:               PUSHI  #0x00000028
18257 @ 151648:               SUB   
18258 @ 151649:               ADD   
18259 @ 151650:               ASSPAR
18260 @ 151651:               CALL  

  3386        free = oldfree
18261 @ 151652:               LINE   3386 "regression-compile-tmp/imp22g-77.imp"
18262 @ 151692:               PUSH   FREE
18263 @ 151695:               PUSH   OLDFREE
18264 @ 151698:               ASSVAL

  3387        -> endload
18265 @ 151699:               LINE   3387 "regression-compile-tmp/imp22g-77.imp"
18266 @ 151739:               JUMP   L_0175

  3388      %finish
18267 @ 151742:               LINE   3388 "regression-compile-tmp/imp22g-77.imp"
18268 @ 151782:               LOCATE L_0007

  3389    %finish
18269 @ 151785:               LINE   3389 "regression-compile-tmp/imp22g-77.imp"
18270 @ 151825:               LOCATE L_0004

  3390    dp_mode = m;  dp_val = v
18271 @ 151828:               LINE   3390 "regression-compile-tmp/imp22g-77.imp"
18272 @ 151868:               PUSH   DP
18273 @ 151871:               SELECT 8
18274 @ 151874:               PUSH   M
18275 @ 151877:               ASSVAL
18276 @ 151878:               LINE   3390 "regression-compile-tmp/imp22g-77.imp"
18277 @ 151918:               PUSH   DP
18278 @ 151921:               SELECT 9
18279 @ 151924:               PUSH   V
18280 @ 151927:               ASSVAL

  3391    ->load
  3392  
18281 @ 151928:               LINE   3391 "regression-compile-tmp/imp22g-77.imp"
18282 @ 151968:               JUMP   L_0178

  3393  do(recref):
  3394  !  P => {recref,RECORD,SUBEL}
18283 @ 151971:               LINE   3393 "regression-compile-tmp/imp22g-77.imp"
18284 @ 152011:               PUSHI  #0x0000002d
18285 @ 152016:               SLABEL 327

  3395    dx == dict(x)
18286 @ 152019:               LINE   3395 "regression-compile-tmp/imp22g-77.imp"
18287 @ 152059:               PUSH   DX
18288 @ 152062:               PUSH   DICT
18289 @ 152065:               PUSH   X
18290 @ 152068:               ACCESS
18291 @ 152069:               ASSREF

  3396    adeval(x,0,dict(y)_val);  !record,subscript,displacement
18292 @ 152070:               LINE   3396 "regression-compile-tmp/imp22g-77.imp"
18293 @ 152110:               PUSH   ADEVAL
18294 @ 152113:               PUSH   X
18295 @ 152116:               ASSPAR
18296 @ 152117:               PUSHI  #0x00000000
18297 @ 152122:               ASSPAR
18298 @ 152123:               PUSH   DICT
18299 @ 152126:               PUSH   Y
18300 @ 152129:               ACCESS
18301 @ 152130:               SELECT 9
18302 @ 152133:               ASSPAR
18303 @ 152134:               CALL  

  3397    ->setflags
  3398  
18304 @ 152135:               LINE   3397 "regression-compile-tmp/imp22g-77.imp"
18305 @ 152175:               JUMP   L_017d

  3399  do(storemap):
18306 @ 152178:               LINE   3399 "regression-compile-tmp/imp22g-77.imp"
18307 @ 152218:               PUSHI  #0x0000002f
18308 @ 152223:               SLABEL 327

  3400    v = 0
18309 @ 152226:               LINE   3400 "regression-compile-tmp/imp22g-77.imp"
18310 @ 152266:               PUSH   V
18311 @ 152269:               PUSHI  #0x00000000
18312 @ 152274:               ASSVAL

  3401    %if y >= explim %start
18313 @ 152275:               LINE   3401 "regression-compile-tmp/imp22g-77.imp"
18314 @ 152315:               PUSH   Y
18315 @ 152318:               PUSH   EXPLIM
18316 @ 152321:               JUMPIF < L_0004

  3402      y = y-ad;  eval(y,ref)
18317 @ 152325:               LINE   3402 "regression-compile-tmp/imp22g-77.imp"
18318 @ 152365:               PUSH   Y
18319 @ 152368:               PUSH   Y
18320 @ 152371:               PUSHI  #0x00004000
18321 @ 152376:               SUB   
18322 @ 152377:               ASSVAL
18323 @ 152378:               LINE   3402 "regression-compile-tmp/imp22g-77.imp"
18324 @ 152418:               PUSH   EVAL
18325 @ 152421:               PUSH   Y
18326 @ 152424:               ASSPAR
18327 @ 152425:               PUSHI  #0x80000000
18328 @ 152430:               ASSPAR
18329 @ 152431:               CALL  

  3403      m = dict(y)_mode;  v = dict(y)_val
18330 @ 152432:               LINE   3403 "regression-compile-tmp/imp22g-77.imp"
18331 @ 152472:               PUSH   M
18332 @ 152475:               PUSH   DICT
18333 @ 152478:               PUSH   Y
18334 @ 152481:               ACCESS
18335 @ 152482:               SELECT 8
18336 @ 152485:               ASSVAL
18337 @ 152486:               LINE   3403 "regression-compile-tmp/imp22g-77.imp"
18338 @ 152526:               PUSH   V
18339 @ 152529:               PUSH   DICT
18340 @ 152532:               PUSH   Y
18341 @ 152535:               ACCESS
18342 @ 152536:               SELECT 9
18343 @ 152539:               ASSVAL

  3404    %else
18344 @ 152540:               LINE   3404 "regression-compile-tmp/imp22g-77.imp"
18345 @ 152580:               GOTO   L_0003
18346 @ 152583:               LOCATE L_0004

  3405      %if y >= np0 %start
18347 @ 152586:               LINE   3405 "regression-compile-tmp/imp22g-77.imp"
18348 @ 152626:               PUSH   Y
18349 @ 152629:               PUSH   NP0
18350 @ 152632:               JUMPIF < L_0007

  3406        %if dict(y)_act = add %start
18351 @ 152636:               LINE   3406 "regression-compile-tmp/imp22g-77.imp"
18352 @ 152676:               PUSH   DICT
18353 @ 152679:               PUSH   Y
18354 @ 152682:               ACCESS
18355 @ 152683:               SELECT 6
18356 @ 152686:               PUSHI  #0x00000002
18357 @ 152691:               JUMPIF # L_000a

  3407          m = dict(y)_y
18358 @ 152695:               LINE   3407 "regression-compile-tmp/imp22g-77.imp"
18359 @ 152735:               PUSH   M
18360 @ 152738:               PUSH   DICT
18361 @ 152741:               PUSH   Y
18362 @ 152744:               ACCESS
18363 @ 152745:               SELECT 14
18364 @ 152748:               ASSVAL

  3408          y = dict(y)_x %and v = litval(m) %if m <= 0
  3409  !       eval(y,val) %if y >= dictlim
18365 @ 152749:               LINE   3408 "regression-compile-tmp/imp22g-77.imp"
18366 @ 152789:               PUSH   M
18367 @ 152792:               PUSHI  #0x00000000
18368 @ 152797:               JUMPIF > L_000d
18369 @ 152801:               PUSH   Y
18370 @ 152804:               PUSH   DICT
18371 @ 152807:               PUSH   Y
18372 @ 152810:               ACCESS
18373 @ 152811:               SELECT 13
18374 @ 152814:               ASSVAL
18375 @ 152815:               PUSH   V
18376 @ 152818:               PUSH   LITVAL
18377 @ 152821:               PUSH   M
18378 @ 152824:               ASSPAR
18379 @ 152825:               CALL  
18380 @ 152826:               ASSVAL
18381 @ 152827:               LOCATE L_000d

  3410        %finish;! %else eval(y,val)
18382 @ 152830:               LINE   3410 "regression-compile-tmp/imp22g-77.imp"
18383 @ 152870:               LOCATE L_000a

  3411      %finish
18384 @ 152873:               LINE   3411 "regression-compile-tmp/imp22g-77.imp"
18385 @ 152913:               LOCATE L_0007

  3412      eval(y,anyareg)
18386 @ 152916:               LINE   3412 "regression-compile-tmp/imp22g-77.imp"
18387 @ 152956:               PUSH   EVAL
18388 @ 152959:               PUSH   Y
18389 @ 152962:               ASSPAR
18390 @ 152963:               PUSHI  #0x0000ff00
18391 @ 152968:               ASSPAR
18392 @ 152969:               CALL  

  3413      check address(y) %if control&assbit # 0  %and pp < explim
18393 @ 152970:               LINE   3413 "regression-compile-tmp/imp22g-77.imp"
18394 @ 153010:               PUSH   CONTROL
18395 @ 153013:               PUSHI  #0x08000000
18396 @ 153018:               AND   
18397 @ 153019:               PUSHI  #0x00000000
18398 @ 153024:               JUMPIF = L_0007
18399 @ 153028:               PUSH   PP
18400 @ 153031:               PUSH   EXPLIM
18401 @ 153034:               JUMPIF >= L_0007
18402 @ 153038:               PUSH   CHECKADDRESS
18403 @ 153041:               PUSH   Y
18404 @ 153044:               ASSPAR
18405 @ 153045:               CALL  
18406 @ 153046:               LOCATE L_0007

  3414      m = y+(dispmode-a0)
18407 @ 153049:               LINE   3414 "regression-compile-tmp/imp22g-77.imp"
18408 @ 153089:               PUSH   M
18409 @ 153092:               PUSH   Y
18410 @ 153095:               PUSHI  #0x00000028
18411 @ 153100:               PUSHI  #0x00000009
18412 @ 153105:               SUB   
18413 @ 153106:               ADD   
18414 @ 153107:               ASSVAL

  3415    %finish
18415 @ 153108:               LINE   3415 "regression-compile-tmp/imp22g-77.imp"
18416 @ 153148:               LOCATE L_0003

  3416    -> setmode
  3417  
18417 @ 153151:               LINE   3416 "regression-compile-tmp/imp22g-77.imp"
18418 @ 153191:               JUMP   L_017f

  3418  do(lenref):
18419 @ 153194:               LINE   3418 "regression-compile-tmp/imp22g-77.imp"
18420 @ 153234:               PUSHI  #0x0000004f
18421 @ 153239:               SLABEL 327

  3419  do(sindex):
18422 @ 153242:               LINE   3419 "regression-compile-tmp/imp22g-77.imp"
18423 @ 153282:               PUSHI  #0x00000052
18424 @ 153287:               SLABEL 327

  3420    x = x-ad %if x >= explim
18425 @ 153290:               LINE   3420 "regression-compile-tmp/imp22g-77.imp"
18426 @ 153330:               PUSH   X
18427 @ 153333:               PUSH   EXPLIM
18428 @ 153336:               JUMPIF < L_0004
18429 @ 153340:               PUSH   X
18430 @ 153343:               PUSH   X
18431 @ 153346:               PUSHI  #0x00004000
18432 @ 153351:               SUB   
18433 @ 153352:               ASSVAL
18434 @ 153353:               LOCATE L_0004

  3421    dx == dict(x)
18435 @ 153356:               LINE   3421 "regression-compile-tmp/imp22g-77.imp"
18436 @ 153396:               PUSH   DX
18437 @ 153399:               PUSH   DICT
18438 @ 153402:               PUSH   X
18439 @ 153405:               ACCESS
18440 @ 153406:               ASSREF

  3422    %if y <= 0 %then adeval(x,0,litval(y)) %c
  3423    %else eval(y,anydreg) %and adeval(x,y,0)
18441 @ 153407:               LINE   3422 "regression-compile-tmp/imp22g-77.imp"
18442 @ 153447:               PUSH   Y
18443 @ 153450:               PUSHI  #0x00000000
18444 @ 153455:               JUMPIF > L_0004
18445 @ 153459:               PUSH   ADEVAL
18446 @ 153462:               PUSH   X
18447 @ 153465:               ASSPAR
18448 @ 153466:               PUSHI  #0x00000000
18449 @ 153471:               ASSPAR
18450 @ 153472:               PUSH   LITVAL
18451 @ 153475:               PUSH   Y
18452 @ 153478:               ASSPAR
18453 @ 153479:               CALL  
18454 @ 153480:               ASSPAR
18455 @ 153481:               CALL  
18456 @ 153482:               GOTO   L_0003
18457 @ 153485:               LOCATE L_0004
18458 @ 153488:               PUSH   EVAL
18459 @ 153491:               PUSH   Y
18460 @ 153494:               ASSPAR
18461 @ 153495:               PUSHI  #0x000000ef
18462 @ 153500:               ASSPAR
18463 @ 153501:               CALL  
18464 @ 153502:               PUSH   ADEVAL
18465 @ 153505:               PUSH   X
18466 @ 153508:               ASSPAR
18467 @ 153509:               PUSH   Y
18468 @ 153512:               ASSPAR
18469 @ 153513:               PUSHI  #0x00000000
18470 @ 153518:               ASSPAR
18471 @ 153519:               CALL  
18472 @ 153520:               LOCATE L_0003

  3424    -> setflags
  3425  
18473 @ 153523:               LINE   3424 "regression-compile-tmp/imp22g-77.imp"
18474 @ 153563:               JUMP   L_017d

  3426  do(dnew):
18475 @ 153566:               LINE   3426 "regression-compile-tmp/imp22g-77.imp"
18476 @ 153606:               PUSHI  #0x00000073
18477 @ 153611:               SLABEL 327

  3427    commandeer(c_free)
18478 @ 153614:               LINE   3427 "regression-compile-tmp/imp22g-77.imp"
18479 @ 153654:               PUSH   COMMANDEER
18480 @ 153657:               PUSH   C
18481 @ 153660:               SELECT 5
18482 @ 153663:               ASSPAR
18483 @ 153664:               CALL  

  3428    plant(move,y,d0)
18484 @ 153665:               LINE   3428 "regression-compile-tmp/imp22g-77.imp"
18485 @ 153705:               PUSH   PLANT
18486 @ 153708:               PUSHI  #0x00000001
18487 @ 153713:               ASSPAR
18488 @ 153714:               PUSH   Y
18489 @ 153717:               ASSPAR
18490 @ 153718:               PUSHI  #0x00000001
18491 @ 153723:               ASSPAR
18492 @ 153724:               CALL  

  3429    srcall(act)
18493 @ 153725:               LINE   3429 "regression-compile-tmp/imp22g-77.imp"
18494 @ 153765:               PUSH   SRCALL
18495 @ 153768:               PUSH   ACT
18496 @ 153771:               ASSPAR
18497 @ 153772:               CALL  

  3430    forget regs
18498 @ 153773:               LINE   3430 "regression-compile-tmp/imp22g-77.imp"
18499 @ 153813:               PUSH   FORGETREGS
18500 @ 153816:               CALL  

  3431    c_reg_line = line
18501 @ 153817:               LINE   3431 "regression-compile-tmp/imp22g-77.imp"
18502 @ 153857:               PUSH   C
18503 @ 153860:               SELECT 30
18504 @ 153863:               SELECT 3
18505 @ 153866:               PUSH   LINE
18506 @ 153869:               ASSVAL

  3432    -> endmap
  3433  
18507 @ 153870:               LINE   3432 "regression-compile-tmp/imp22g-77.imp"
18508 @ 153910:               JUMP   L_0180

  3434  do(dtostring):
18509 @ 153913:               LINE   3434 "regression-compile-tmp/imp22g-77.imp"
18510 @ 153953:               PUSHI  #0x0000006b
18511 @ 153958:               SLABEL 327

  3435  proccall:
18512 @ 153961:               LINE   3435 "regression-compile-tmp/imp22g-77.imp"
18513 @ 154001:               LABEL  L_0177

  3436    dx == dict(act)
18514 @ 154004:               LINE   3436 "regression-compile-tmp/imp22g-77.imp"
18515 @ 154044:               PUSH   DX
18516 @ 154047:               PUSH   DICT
18517 @ 154050:               PUSH   ACT
18518 @ 154053:               ACCESS
18519 @ 154054:               ASSREF

  3437    -> rcall %if p < np
18520 @ 154055:               LINE   3437 "regression-compile-tmp/imp22g-77.imp"
18521 @ 154095:               PUSH   P
18522 @ 154098:               PUSH   NP
18523 @ 154101:               JUMPIF >= L_0004
18524 @ 154105:               JUMP   L_0181
18525 @ 154108:               LOCATE L_0004

  3438    -> funcall %if dx_flags&writable = 0
  3439  !mapcall
18526 @ 154111:               LINE   3438 "regression-compile-tmp/imp22g-77.imp"
18527 @ 154151:               PUSH   DX
18528 @ 154154:               SELECT 1
18529 @ 154157:               PUSHI  #0x00000001
18530 @ 154162:               AND   
18531 @ 154163:               PUSHI  #0x00000000
18532 @ 154168:               JUMPIF # L_0004
18533 @ 154172:               JUMP   L_0182
18534 @ 154175:               LOCATE L_0004

  3440    commandeer(c_free)
18535 @ 154178:               LINE   3440 "regression-compile-tmp/imp22g-77.imp"
18536 @ 154218:               PUSH   COMMANDEER
18537 @ 154221:               PUSH   C
18538 @ 154224:               SELECT 5
18539 @ 154227:               ASSPAR
18540 @ 154228:               CALL  

  3441    call
18541 @ 154229:               LINE   3441 "regression-compile-tmp/imp22g-77.imp"
18542 @ 154269:               PUSH   CALL
18543 @ 154272:               CALL  

  3442  endmap:
18544 @ 154273:               LINE   3442 "regression-compile-tmp/imp22g-77.imp"
18545 @ 154313:               LABEL  L_0180

  3443    free = oldfree
18546 @ 154316:               LINE   3443 "regression-compile-tmp/imp22g-77.imp"
18547 @ 154356:               PUSH   FREE
18548 @ 154359:               PUSH   OLDFREE
18549 @ 154362:               ASSVAL

  3444    r = a0
18550 @ 154363:               LINE   3444 "regression-compile-tmp/imp22g-77.imp"
18551 @ 154403:               PUSH   R
18552 @ 154406:               PUSHI  #0x00000009
18553 @ 154411:               ASSVAL

  3445    ok areg(a0,\freed&anyareg) %if rset # ref
18554 @ 154412:               LINE   3445 "regression-compile-tmp/imp22g-77.imp"
18555 @ 154452:               PUSH   RSET
18556 @ 154455:               PUSHI  #0x80000000
18557 @ 154460:               JUMPIF = L_0004
18558 @ 154464:               PUSH   OKAREG
18559 @ 154467:               PUSHI  #0x00000009
18560 @ 154472:               ASSPAR
18561 @ 154473:               PUSH   FREED
18562 @ 154476:               NOT   
18563 @ 154477:               PUSHI  #0x0000ff00
18564 @ 154482:               AND   
18565 @ 154483:               ASSPAR
18566 @ 154484:               CALL  
18567 @ 154485:               LOCATE L_0004

  3446    restore(freed)
18568 @ 154488:               LINE   3446 "regression-compile-tmp/imp22g-77.imp"
18569 @ 154528:               PUSH   RESTORE
18570 @ 154531:               PUSH   FREED
18571 @ 154534:               ASSPAR
18572 @ 154535:               CALL  

  3447    free = free&(\(a0b<<(r-a0)))
18573 @ 154536:               LINE   3447 "regression-compile-tmp/imp22g-77.imp"
18574 @ 154576:               PUSH   FREE
18575 @ 154579:               PUSH   FREE
18576 @ 154582:               PUSHI  #0x00000100
18577 @ 154587:               PUSH   R
18578 @ 154590:               PUSHI  #0x00000009
18579 @ 154595:               SUB   
18580 @ 154596:               LSH   
18581 @ 154597:               NOT   
18582 @ 154598:               AND   
18583 @ 154599:               ASSVAL

  3448    c_reg_content(r) = p+ad
18584 @ 154600:               LINE   3448 "regression-compile-tmp/imp22g-77.imp"
18585 @ 154640:               PUSH   C
18586 @ 154643:               SELECT 30
18587 @ 154646:               SELECT 4
18588 @ 154649:               PUSH   R
18589 @ 154652:               ACCESS
18590 @ 154653:               PUSH   P
18591 @ 154656:               PUSHI  #0x00004000
18592 @ 154661:               ADD   
18593 @ 154662:               ASSVAL

  3449    m = r+(dispmode-a0);  v = 0;  !0(A?)
18594 @ 154663:               LINE   3449 "regression-compile-tmp/imp22g-77.imp"
18595 @ 154703:               PUSH   M
18596 @ 154706:               PUSH   R
18597 @ 154709:               PUSHI  #0x00000028
18598 @ 154714:               PUSHI  #0x00000009
18599 @ 154719:               SUB   
18600 @ 154720:               ADD   
18601 @ 154721:               ASSVAL
18602 @ 154722:               LINE   3449 "regression-compile-tmp/imp22g-77.imp"
18603 @ 154762:               PUSH   V
18604 @ 154765:               PUSHI  #0x00000000
18605 @ 154770:               ASSVAL

  3450    ->setmode
  3451  
18606 @ 154771:               LINE   3450 "regression-compile-tmp/imp22g-77.imp"
18607 @ 154811:               JUMP   L_017f

  3452  funcall:
18608 @ 154814:               LINE   3452 "regression-compile-tmp/imp22g-77.imp"
18609 @ 154854:               LABEL  L_0182

  3453    commandeer(c_free)
18610 @ 154857:               LINE   3453 "regression-compile-tmp/imp22g-77.imp"
18611 @ 154897:               PUSH   COMMANDEER
18612 @ 154900:               PUSH   C
18613 @ 154903:               SELECT 5
18614 @ 154906:               ASSPAR
18615 @ 154907:               CALL  

  3454    call
18616 @ 154908:               LINE   3454 "regression-compile-tmp/imp22g-77.imp"
18617 @ 154948:               PUSH   CALL
18618 @ 154951:               CALL  

  3455    r = typecell(dx_type)_reg&15+d0
18619 @ 154952:               LINE   3455 "regression-compile-tmp/imp22g-77.imp"
18620 @ 154992:               PUSH   R
18621 @ 154995:               PUSH   TYPECELL
18622 @ 154998:               PUSH   DX
18623 @ 155001:               SELECT 2
18624 @ 155004:               ASSPAR
18625 @ 155005:               CALL  
18626 @ 155006:               SELECT 7
18627 @ 155009:               PUSHI  #0x0000000f
18628 @ 155014:               AND   
18629 @ 155015:               PUSHI  #0x00000001
18630 @ 155020:               ADD   
18631 @ 155021:               ASSVAL

  3456    c_reg_ccx = pp %and c_reg_ccy = 0 %if dx_flags&okflag # 0
18632 @ 155022:               LINE   3456 "regression-compile-tmp/imp22g-77.imp"
18633 @ 155062:               PUSH   DX
18634 @ 155065:               SELECT 1
18635 @ 155068:               PUSHI  #0x00000040
18636 @ 155073:               AND   
18637 @ 155074:               PUSHI  #0x00000000
18638 @ 155079:               JUMPIF = L_0004
18639 @ 155083:               PUSH   C
18640 @ 155086:               SELECT 30
18641 @ 155089:               SELECT 1
18642 @ 155092:               PUSH   PP
18643 @ 155095:               ASSVAL
18644 @ 155096:               PUSH   C
18645 @ 155099:               SELECT 30
18646 @ 155102:               SELECT 2
18647 @ 155105:               PUSHI  #0x00000000
18648 @ 155110:               ASSVAL
18649 @ 155111:               LOCATE L_0004

  3457  endloadr:
18650 @ 155114:               LINE   3457 "regression-compile-tmp/imp22g-77.imp"
18651 @ 155154:               LABEL  L_0183

  3458    free = oldfree
18652 @ 155157:               LINE   3458 "regression-compile-tmp/imp22g-77.imp"
18653 @ 155197:               PUSH   FREE
18654 @ 155200:               PUSH   OLDFREE
18655 @ 155203:               ASSVAL

  3459    %if rset # ref %then ok reg(r)
18656 @ 155204:               LINE   3459 "regression-compile-tmp/imp22g-77.imp"
18657 @ 155244:               PUSH   RSET
18658 @ 155247:               PUSHI  #0x80000000
18659 @ 155252:               JUMPIF = L_0004
18660 @ 155256:               PUSH   OKREG
18661 @ 155259:               PUSH   R
18662 @ 155262:               ASSPAR
18663 @ 155263:               CALL  
18664 @ 155264:               LOCATE L_0004

  3460    restore(freed)
18665 @ 155267:               LINE   3460 "regression-compile-tmp/imp22g-77.imp"
18666 @ 155307:               PUSH   RESTORE
18667 @ 155310:               PUSH   FREED
18668 @ 155313:               ASSPAR
18669 @ 155314:               CALL  

  3461    ->endload
  3462  
18670 @ 155315:               LINE   3461 "regression-compile-tmp/imp22g-77.imp"
18671 @ 155355:               JUMP   L_0175

  3463  rcall:
18672 @ 155358:               LINE   3463 "regression-compile-tmp/imp22g-77.imp"
18673 @ 155398:               LABEL  L_0181

  3464    flush %if pendcond # 0
18674 @ 155401:               LINE   3464 "regression-compile-tmp/imp22g-77.imp"
18675 @ 155441:               PUSH   PENDCOND
18676 @ 155444:               PUSHI  #0x00000000
18677 @ 155449:               JUMPIF = L_0004
18678 @ 155453:               PUSH   FLUSH
18679 @ 155456:               CALL  
18680 @ 155457:               LOCATE L_0004

  3465    update sp
  3466  !<<IMP
18681 @ 155460:               LINE   3465 "regression-compile-tmp/imp22g-77.imp"
18682 @ 155500:               PUSH   UPDATESP
18683 @ 155503:               CALL  

  3467    %while act = dprintstr %and x >= np0 %and dict(x)_act = concat %cycle
18684 @ 155504:               LINE   3467 "regression-compile-tmp/imp22g-77.imp"
18685 @ 155544:               LOCATE L_0003
18686 @ 155547:               PUSH   ACT
18687 @ 155550:               PUSHI  #0x0000009b
18688 @ 155555:               JUMPIF # L_0004
18689 @ 155559:               PUSH   X
18690 @ 155562:               PUSH   NP0
18691 @ 155565:               JUMPIF < L_0004
18692 @ 155569:               PUSH   DICT
18693 @ 155572:               PUSH   X
18694 @ 155575:               ACCESS
18695 @ 155576:               SELECT 6
18696 @ 155579:               PUSHI  #0x0000006a
18697 @ 155584:               JUMPIF # L_0004

  3468      dp_x = dict(x)_x;  !first of pair
18698 @ 155588:               LINE   3468 "regression-compile-tmp/imp22g-77.imp"
18699 @ 155628:               PUSH   DP
18700 @ 155631:               SELECT 13
18701 @ 155634:               PUSH   DICT
18702 @ 155637:               PUSH   X
18703 @ 155640:               ACCESS
18704 @ 155641:               SELECT 13
18705 @ 155644:               ASSVAL

  3469      call;  free = c_free
18706 @ 155645:               LINE   3469 "regression-compile-tmp/imp22g-77.imp"
18707 @ 155685:               PUSH   CALL
18708 @ 155688:               CALL  
18709 @ 155689:               LINE   3469 "regression-compile-tmp/imp22g-77.imp"
18710 @ 155729:               PUSH   FREE
18711 @ 155732:               PUSH   C
18712 @ 155735:               SELECT 5
18713 @ 155738:               ASSVAL

  3470      x = dict(x)_y;  dp_x = x
18714 @ 155739:               LINE   3470 "regression-compile-tmp/imp22g-77.imp"
18715 @ 155779:               PUSH   X
18716 @ 155782:               PUSH   DICT
18717 @ 155785:               PUSH   X
18718 @ 155788:               ACCESS
18719 @ 155789:               SELECT 14
18720 @ 155792:               ASSVAL
18721 @ 155793:               LINE   3470 "regression-compile-tmp/imp22g-77.imp"
18722 @ 155833:               PUSH   DP
18723 @ 155836:               SELECT 13
18724 @ 155839:               PUSH   X
18725 @ 155842:               ASSVAL

  3471    %repeat
  3472  !<<BOTH
18726 @ 155843:               LINE   3471 "regression-compile-tmp/imp22g-77.imp"
18727 @ 155883:               REPEAT L_0003
18728 @ 155886:               LOCATE L_0004

  3473    call
18729 @ 155889:               LINE   3473 "regression-compile-tmp/imp22g-77.imp"
18730 @ 155929:               PUSH   CALL
18731 @ 155932:               CALL  

  3474    c_access = 0 %if dx_flags&noret # 0
18732 @ 155933:               LINE   3474 "regression-compile-tmp/imp22g-77.imp"
18733 @ 155973:               PUSH   DX
18734 @ 155976:               SELECT 1
18735 @ 155979:               PUSHI  #0x00000040
18736 @ 155984:               AND   
18737 @ 155985:               PUSHI  #0x00000000
18738 @ 155990:               JUMPIF = L_0004
18739 @ 155994:               PUSH   C
18740 @ 155997:               SELECT 16
18741 @ 156000:               PUSHI  #0x00000000
18742 @ 156005:               ASSVAL
18743 @ 156006:               LOCATE L_0004

  3475    forget triples %if pp+1 = np %and curlab = c_lab1 %c
  3476                   %and dict(curlab)_val >= 0 %and dict(curlab+1)_val >= 0
18744 @ 156009:               LINE   3475 "regression-compile-tmp/imp22g-77.imp"
18745 @ 156049:               PUSH   PP
18746 @ 156052:               PUSHI  #0x00000001
18747 @ 156057:               ADD   
18748 @ 156058:               PUSH   NP
18749 @ 156061:               JUMPIF # L_0004
18750 @ 156065:               PUSH   CURLAB
18751 @ 156068:               PUSH   C
18752 @ 156071:               SELECT 18
18753 @ 156074:               JUMPIF # L_0004
18754 @ 156078:               PUSH   DICT
18755 @ 156081:               PUSH   CURLAB
18756 @ 156084:               ACCESS
18757 @ 156085:               SELECT 9
18758 @ 156088:               PUSHI  #0x00000000
18759 @ 156093:               JUMPIF < L_0004
18760 @ 156097:               PUSH   DICT
18761 @ 156100:               PUSH   CURLAB
18762 @ 156103:               PUSHI  #0x00000001
18763 @ 156108:               ADD   
18764 @ 156109:               ACCESS
18765 @ 156110:               SELECT 9
18766 @ 156113:               PUSHI  #0x00000000
18767 @ 156118:               JUMPIF < L_0004
18768 @ 156122:               PUSH   FORGETTRIPLES
18769 @ 156125:               CALL  
18770 @ 156126:               LOCATE L_0004

  3477    %return
  3478  
  3479  !!!!!!!!!!!!!!!!!!!!!!!!!   Operators   !!!!!!!!!!!!!!!!!!!!!!!!!!!
  3480  
18771 @ 156129:               LINE   3477 "regression-compile-tmp/imp22g-77.imp"
18772 @ 156169:               RETURN

  3481  %routine EVALXY
18773 @ 156170:               LINE   3481 "regression-compile-tmp/imp22g-77.imp"
18774 @ 156210:               DEF    EVALXY (_lev0id0_EVAL_EVALXY) p1=V_0184 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
18775 @ 156228:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
18776 @ 156229:                  FINISH ) {lev=3}

  3482    rset = rset&(\bregb)
18777 @ 156230:                  LINE   3482 "regression-compile-tmp/imp22g-77.imp"
18778 @ 156270:                  PUSH   RSET
18779 @ 156273:                  PUSH   RSET
18780 @ 156276:                  PUSHI  #0x00000010
18781 @ 156281:                  NOT   
18782 @ 156282:                  AND   
18783 @ 156283:                  ASSVAL

  3483    commandeer(d0b+d1b)
18784 @ 156284:                  LINE   3483 "regression-compile-tmp/imp22g-77.imp"
18785 @ 156324:                  PUSH   COMMANDEER
18786 @ 156327:                  PUSHI  #0x00000001
18787 @ 156332:                  PUSHI  #0x00000002
18788 @ 156337:                  ADD   
18789 @ 156338:                  ASSPAR
18790 @ 156339:                  CALL  

  3484    %if 999 > weight(x) < weight(y) %start
18791 @ 156340:                  LINE   3484 "regression-compile-tmp/imp22g-77.imp"
18792 @ 156380:                  PUSHI  #0x000003e7
18793 @ 156385:                  PUSH   WEIGHT
18794 @ 156388:                  PUSH   X
18795 @ 156391:                  ASSPAR
18796 @ 156392:                  CALL  
18797 @ 156393:                  JUMPIFD <= L_0004
18798 @ 156397:                  PUSH   WEIGHT
18799 @ 156400:                  PUSH   Y
18800 @ 156403:                  ASSPAR
18801 @ 156404:                  CALL  
18802 @ 156405:                  JUMPIF >= L_0004

  3485      eval(y,d1b);  eval(x,d0b)
18803 @ 156409:                  LINE   3485 "regression-compile-tmp/imp22g-77.imp"
18804 @ 156449:                  PUSH   EVAL
18805 @ 156452:                  PUSH   Y
18806 @ 156455:                  ASSPAR
18807 @ 156456:                  PUSHI  #0x00000002
18808 @ 156461:                  ASSPAR
18809 @ 156462:                  CALL  
18810 @ 156463:                  LINE   3485 "regression-compile-tmp/imp22g-77.imp"
18811 @ 156503:                  PUSH   EVAL
18812 @ 156506:                  PUSH   X
18813 @ 156509:                  ASSPAR
18814 @ 156510:                  PUSHI  #0x00000001
18815 @ 156515:                  ASSPAR
18816 @ 156516:                  CALL  

  3486    %else
18817 @ 156517:                  LINE   3486 "regression-compile-tmp/imp22g-77.imp"
18818 @ 156557:                  GOTO   L_0003
18819 @ 156560:                  LOCATE L_0004

  3487      eval(x,d0b);  eval(y,d1b)
18820 @ 156563:                  LINE   3487 "regression-compile-tmp/imp22g-77.imp"
18821 @ 156603:                  PUSH   EVAL
18822 @ 156606:                  PUSH   X
18823 @ 156609:                  ASSPAR
18824 @ 156610:                  PUSHI  #0x00000001
18825 @ 156615:                  ASSPAR
18826 @ 156616:                  CALL  
18827 @ 156617:                  LINE   3487 "regression-compile-tmp/imp22g-77.imp"
18828 @ 156657:                  PUSH   EVAL
18829 @ 156660:                  PUSH   Y
18830 @ 156663:                  ASSPAR
18831 @ 156664:                  PUSHI  #0x00000002
18832 @ 156669:                  ASSPAR
18833 @ 156670:                  CALL  

  3488    %finish
18834 @ 156671:                  LINE   3488 "regression-compile-tmp/imp22g-77.imp"
18835 @ 156711:                  LOCATE L_0003

  3489  %end
  3490  
18836 @ 156714:                  LINE   3489 "regression-compile-tmp/imp22g-77.imp"
18837 @ 156754:               END    _lev0id0_EVAL_EVALXY {lev=3 --> 2}

  3491  %routine STACKOP(%integer s)
18838 @ 156755:               LINE   3491 "regression-compile-tmp/imp22g-77.imp"
18839 @ 156795:               DEF    STACKOP (_lev0id0_EVAL_STACKOP) p1=V_0185 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
18840 @ 156814:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
18841 @ 156815:                     DEF    S p1=V_0186 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
18842 @ 156828:                  FINISH ) {lev=3}

  3492    stsiz = s
18843 @ 156829:                  LINE   3492 "regression-compile-tmp/imp22g-77.imp"
18844 @ 156869:                  PUSH   STSIZ
18845 @ 156872:                  PUSH   S
18846 @ 156875:                  ASSVAL

  3493    sp = c_sp
18847 @ 156876:                  LINE   3493 "regression-compile-tmp/imp22g-77.imp"
18848 @ 156916:                  PUSH   SP
18849 @ 156919:                  PUSH   C
18850 @ 156922:                  SELECT 1
18851 @ 156925:                  ASSVAL

  3494    eval(x,tostack);  free = free!a0b
18852 @ 156926:                  LINE   3494 "regression-compile-tmp/imp22g-77.imp"
18853 @ 156966:                  PUSH   EVAL
18854 @ 156969:                  PUSH   X
18855 @ 156972:                  ASSPAR
18856 @ 156973:                  PUSHI  #0x00080000
18857 @ 156978:                  ASSPAR
18858 @ 156979:                  CALL  
18859 @ 156980:                  LINE   3494 "regression-compile-tmp/imp22g-77.imp"
18860 @ 157020:                  PUSH   FREE
18861 @ 157023:                  PUSH   FREE
18862 @ 157026:                  PUSHI  #0x00000100
18863 @ 157031:                  OR    
18864 @ 157032:                  ASSVAL

  3495    eval(y,a0b+asad)
18865 @ 157033:                  LINE   3495 "regression-compile-tmp/imp22g-77.imp"
18866 @ 157073:                  PUSH   EVAL
18867 @ 157076:                  PUSH   Y
18868 @ 157079:                  ASSPAR
18869 @ 157080:                  PUSHI  #0x00000100
18870 @ 157085:                  PUSHI  #0x00100000
18871 @ 157090:                  ADD   
18872 @ 157091:                  ASSPAR
18873 @ 157092:                  CALL  

  3496    plant(move,a7,a1);      !dest (stack)
18874 @ 157093:                  LINE   3496 "regression-compile-tmp/imp22g-77.imp"
18875 @ 157133:                  PUSH   PLANT
18876 @ 157136:                  PUSHI  #0x00000001
18877 @ 157141:                  ASSPAR
18878 @ 157142:                  PUSHI  #0x00000010
18879 @ 157147:                  ASSPAR
18880 @ 157148:                  PUSHI  #0x0000000a
18881 @ 157153:                  ASSPAR
18882 @ 157154:                  CALL  

  3497    structcall(act,s)
18883 @ 157155:                  LINE   3497 "regression-compile-tmp/imp22g-77.imp"
18884 @ 157195:                  PUSH   STRUCTCALL
18885 @ 157198:                  PUSH   ACT
18886 @ 157201:                  ASSPAR
18887 @ 157202:                  PUSH   S
18888 @ 157205:                  ASSPAR
18889 @ 157206:                  CALL  

  3498    forget(a0);  forget(a1);  forget(a0+2)
18890 @ 157207:                  LINE   3498 "regression-compile-tmp/imp22g-77.imp"
18891 @ 157247:                  PUSH   FORGET
18892 @ 157250:                  PUSHI  #0x00000009
18893 @ 157255:                  ASSPAR
18894 @ 157256:                  CALL  
18895 @ 157257:                  LINE   3498 "regression-compile-tmp/imp22g-77.imp"
18896 @ 157297:                  PUSH   FORGET
18897 @ 157300:                  PUSHI  #0x0000000a
18898 @ 157305:                  ASSPAR
18899 @ 157306:                  CALL  
18900 @ 157307:                  LINE   3498 "regression-compile-tmp/imp22g-77.imp"
18901 @ 157347:                  PUSH   FORGET
18902 @ 157350:                  PUSHI  #0x00000009
18903 @ 157355:                  PUSHI  #0x00000002
18904 @ 157360:                  ADD   
18905 @ 157361:                  ASSPAR
18906 @ 157362:                  CALL  

  3499  %end
  3500  
  3501  !<<IMP
18907 @ 157363:                  LINE   3499 "regression-compile-tmp/imp22g-77.imp"
18908 @ 157403:               END    _lev0id0_EVAL_STACKOP {lev=3 --> 2}

  3502  do(prel):
  3503  !  P => {prel,BASENAME,INDEX}
18909 @ 157404:               LINE   3502 "regression-compile-tmp/imp22g-77.imp"
18910 @ 157444:               PUSHI  #0x0000002e
18911 @ 157449:               SLABEL 327

  3504    dx == dict(x)
18912 @ 157452:               LINE   3504 "regression-compile-tmp/imp22g-77.imp"
18913 @ 157492:               PUSH   DX
18914 @ 157495:               PUSH   DICT
18915 @ 157498:               PUSH   X
18916 @ 157501:               ACCESS
18917 @ 157502:               ASSREF

  3505    m = imod(size(dx_type))
18918 @ 157503:               LINE   3505 "regression-compile-tmp/imp22g-77.imp"
18919 @ 157543:               PUSH   M
18920 @ 157546:               PUSH   IMOD
18921 @ 157549:               PUSH   SIZE
18922 @ 157552:               PUSH   DX
18923 @ 157555:               SELECT 2
18924 @ 157558:               ASSPAR
18925 @ 157559:               CALL  
18926 @ 157560:               ASSPAR
18927 @ 157561:               CALL  
18928 @ 157562:               ASSVAL

  3506    sx = 0;  sy = 999999
18929 @ 157563:               LINE   3506 "regression-compile-tmp/imp22g-77.imp"
18930 @ 157603:               PUSH   SX
18931 @ 157606:               PUSHI  #0x00000000
18932 @ 157611:               ASSVAL
18933 @ 157612:               LINE   3506 "regression-compile-tmp/imp22g-77.imp"
18934 @ 157652:               PUSH   SY
18935 @ 157655:               PUSHI  #0x000f423f
18936 @ 157660:               ASSVAL

  3507    -> index1
  3508  
  3509  !<<BOTH
  3510  
18937 @ 157661:               LINE   3507 "regression-compile-tmp/imp22g-77.imp"
18938 @ 157701:               JUMP   L_017e

  3511  do(check):        !CHECK rangetype,value
18939 @ 157704:               LINE   3511 "regression-compile-tmp/imp22g-77.imp"
18940 @ 157744:               PUSHI  #0x0000006f
18941 @ 157749:               SLABEL 327

  3512    commandeer(d0b)
18942 @ 157752:               LINE   3512 "regression-compile-tmp/imp22g-77.imp"
18943 @ 157792:               PUSH   COMMANDEER
18944 @ 157795:               PUSHI  #0x00000001
18945 @ 157800:               ASSPAR
18946 @ 157801:               CALL  

  3513    eval(y,d0b)
18947 @ 157802:               LINE   3513 "regression-compile-tmp/imp22g-77.imp"
18948 @ 157842:               PUSH   EVAL
18949 @ 157845:               PUSH   Y
18950 @ 157848:               ASSPAR
18951 @ 157849:               PUSHI  #0x00000001
18952 @ 157854:               ASSPAR
18953 @ 157855:               CALL  

  3514    srcall(x)
18954 @ 157856:               LINE   3514 "regression-compile-tmp/imp22g-77.imp"
18955 @ 157896:               PUSH   SRCALL
18956 @ 157899:               PUSH   X
18957 @ 157902:               ASSPAR
18958 @ 157903:               CALL  

  3515    r = d0
18959 @ 157904:               LINE   3515 "regression-compile-tmp/imp22g-77.imp"
18960 @ 157944:               PUSH   R
18961 @ 157947:               PUSHI  #0x00000001
18962 @ 157952:               ASSVAL

  3516    -> endloadr
  3517  
  3518  ![Note that all literal subtraction comes through as ADD]
18963 @ 157953:               LINE   3516 "regression-compile-tmp/imp22g-77.imp"
18964 @ 157993:               JUMP   L_0183

  3519  do(add):
18965 @ 157996:               LINE   3519 "regression-compile-tmp/imp22g-77.imp"
18966 @ 158036:               PUSHI  #0x00000002
18967 @ 158041:               SLABEL 327

  3520    %if control&overbit # 0 %start
18968 @ 158044:               LINE   3520 "regression-compile-tmp/imp22g-77.imp"
18969 @ 158084:               PUSH   CONTROL
18970 @ 158087:               PUSHI  #0x10000000
18971 @ 158092:               AND   
18972 @ 158093:               PUSHI  #0x00000000
18973 @ 158098:               JUMPIF = L_0004

  3521      -> dataload %if rset&(\anyareg) = 0
18974 @ 158102:               LINE   3521 "regression-compile-tmp/imp22g-77.imp"
18975 @ 158142:               PUSH   RSET
18976 @ 158145:               PUSHI  #0x0000ff00
18977 @ 158150:               NOT   
18978 @ 158151:               AND   
18979 @ 158152:               PUSHI  #0x00000000
18980 @ 158157:               JUMPIF # L_0007
18981 @ 158161:               JUMP   L_017a
18982 @ 158164:               LOCATE L_0007

  3522      rset = rset&(\anyareg)
18983 @ 158167:               LINE   3522 "regression-compile-tmp/imp22g-77.imp"
18984 @ 158207:               PUSH   RSET
18985 @ 158210:               PUSH   RSET
18986 @ 158213:               PUSHI  #0x0000ff00
18987 @ 158218:               NOT   
18988 @ 158219:               AND   
18989 @ 158220:               ASSVAL

  3523    %finish
18990 @ 158221:               LINE   3523 "regression-compile-tmp/imp22g-77.imp"
18991 @ 158261:               LOCATE L_0004

  3524    -> dataload %if rset&(\bregb) = 0
18992 @ 158264:               LINE   3524 "regression-compile-tmp/imp22g-77.imp"
18993 @ 158304:               PUSH   RSET
18994 @ 158307:               PUSHI  #0x00000010
18995 @ 158312:               NOT   
18996 @ 158313:               AND   
18997 @ 158314:               PUSHI  #0x00000000
18998 @ 158319:               JUMPIF # L_0004
18999 @ 158323:               JUMP   L_017a
19000 @ 158326:               LOCATE L_0004

  3525    rset = rset&(\bregb)
19001 @ 158329:               LINE   3525 "regression-compile-tmp/imp22g-77.imp"
19002 @ 158369:               PUSH   RSET
19003 @ 158372:               PUSH   RSET
19004 @ 158375:               PUSHI  #0x00000010
19005 @ 158380:               NOT   
19006 @ 158381:               AND   
19007 @ 158382:               ASSVAL

  3526    %if y < 0 %start
19008 @ 158383:               LINE   3526 "regression-compile-tmp/imp22g-77.imp"
19009 @ 158423:               PUSH   Y
19010 @ 158426:               PUSHI  #0x00000000
19011 @ 158431:               JUMPIF >= L_0004

  3527      %if y >= litquick %start;  !(ADDQ,SUBQ)
19012 @ 158435:               LINE   3527 "regression-compile-tmp/imp22g-77.imp"
19013 @ 158475:               PUSH   Y
19014 @ 158478:               PUSHI  #0xfffffff0
19015 @ 158483:               JUMPIF < L_0007

  3528        y = y-1 %and act = sub %if y&1 # 0;  !'negate' if 'negative'
19016 @ 158487:               LINE   3528 "regression-compile-tmp/imp22g-77.imp"
19017 @ 158527:               PUSH   Y
19018 @ 158530:               PUSHI  #0x00000001
19019 @ 158535:               AND   
19020 @ 158536:               PUSHI  #0x00000000
19021 @ 158541:               JUMPIF = L_000a
19022 @ 158545:               PUSH   Y
19023 @ 158548:               PUSH   Y
19024 @ 158551:               PUSHI  #0x00000001
19025 @ 158556:               SUB   
19026 @ 158557:               ASSVAL
19027 @ 158558:               PUSH   ACT
19028 @ 158561:               PUSHI  #0x00000003
19029 @ 158566:               ASSVAL
19030 @ 158567:               LOCATE L_000a

  3529        eval(x,rset&free)
19031 @ 158570:               LINE   3529 "regression-compile-tmp/imp22g-77.imp"
19032 @ 158610:               PUSH   EVAL
19033 @ 158613:               PUSH   X
19034 @ 158616:               ASSPAR
19035 @ 158617:               PUSH   RSET
19036 @ 158620:               PUSH   FREE
19037 @ 158623:               AND   
19038 @ 158624:               ASSPAR
19039 @ 158625:               CALL  

  3530        ->fin1
19040 @ 158626:               LINE   3530 "regression-compile-tmp/imp22g-77.imp"
19041 @ 158666:               JUMP   L_0186

  3531      %finish
19042 @ 158669:               LINE   3531 "regression-compile-tmp/imp22g-77.imp"
19043 @ 158709:               LOCATE L_0007

  3532      %if y = -(128<<1) %start;  !+128
19044 @ 158712:               LINE   3532 "regression-compile-tmp/imp22g-77.imp"
19045 @ 158752:               PUSH   Y
19046 @ 158755:               PUSHI  #0x00000080
19047 @ 158760:               PUSHI  #0x00000001
19048 @ 158765:               LSH   
19049 @ 158766:               NEGATE
19050 @ 158767:               JUMPIF # L_0007

  3533        act = sub;  y = y+1;  !- -128 (MOVEQ)
19051 @ 158771:               LINE   3533 "regression-compile-tmp/imp22g-77.imp"
19052 @ 158811:               PUSH   ACT
19053 @ 158814:               PUSHI  #0x00000003
19054 @ 158819:               ASSVAL
19055 @ 158820:               LINE   3533 "regression-compile-tmp/imp22g-77.imp"
19056 @ 158860:               PUSH   Y
19057 @ 158863:               PUSH   Y
19058 @ 158866:               PUSHI  #0x00000001
19059 @ 158871:               ADD   
19060 @ 158872:               ASSVAL

  3534        -> op2
19061 @ 158873:               LINE   3534 "regression-compile-tmp/imp22g-77.imp"
19062 @ 158913:               JUMP   L_0187

  3535      %finish
19063 @ 158916:               LINE   3535 "regression-compile-tmp/imp22g-77.imp"
19064 @ 158956:               LOCATE L_0007

  3536    %finish
19065 @ 158959:               LINE   3536 "regression-compile-tmp/imp22g-77.imp"
19066 @ 158999:               LOCATE L_0004

  3537    -> op1
19067 @ 159002:               LINE   3537 "regression-compile-tmp/imp22g-77.imp"
19068 @ 159042:               JUMP   L_0188

  3538  do(eor):
19069 @ 159045:               LINE   3538 "regression-compile-tmp/imp22g-77.imp"
19070 @ 159085:               PUSHI  #0x00000007
19071 @ 159090:               SLABEL 327

  3539    -> dataload %if rset&(\bregb) = 0
19072 @ 159093:               LINE   3539 "regression-compile-tmp/imp22g-77.imp"
19073 @ 159133:               PUSH   RSET
19074 @ 159136:               PUSHI  #0x00000010
19075 @ 159141:               NOT   
19076 @ 159142:               AND   
19077 @ 159143:               PUSHI  #0x00000000
19078 @ 159148:               JUMPIF # L_0004
19079 @ 159152:               JUMP   L_017a
19080 @ 159155:               LOCATE L_0004

  3540    rset = rset&(\bregb)
19081 @ 159158:               LINE   3540 "regression-compile-tmp/imp22g-77.imp"
19082 @ 159198:               PUSH   RSET
19083 @ 159201:               PUSH   RSET
19084 @ 159204:               PUSHI  #0x00000010
19085 @ 159209:               NOT   
19086 @ 159210:               AND   
19087 @ 159211:               ASSVAL

  3541  do(or):
19088 @ 159212:               LINE   3541 "regression-compile-tmp/imp22g-77.imp"
19089 @ 159252:               PUSHI  #0x00000006
19090 @ 159257:               SLABEL 327

  3542  do(and):
19091 @ 159260:               LINE   3542 "regression-compile-tmp/imp22g-77.imp"
19092 @ 159300:               PUSHI  #0x00000005
19093 @ 159305:               SLABEL 327

  3543    -> dataload %if rset&(\anyareg) = 0
19094 @ 159308:               LINE   3543 "regression-compile-tmp/imp22g-77.imp"
19095 @ 159348:               PUSH   RSET
19096 @ 159351:               PUSHI  #0x0000ff00
19097 @ 159356:               NOT   
19098 @ 159357:               AND   
19099 @ 159358:               PUSHI  #0x00000000
19100 @ 159363:               JUMPIF # L_0004
19101 @ 159367:               JUMP   L_017a
19102 @ 159370:               LOCATE L_0004

  3544    rset = rset&(\anyareg)
19103 @ 159373:               LINE   3544 "regression-compile-tmp/imp22g-77.imp"
19104 @ 159413:               PUSH   RSET
19105 @ 159416:               PUSH   RSET
19106 @ 159419:               PUSHI  #0x0000ff00
19107 @ 159424:               NOT   
19108 @ 159425:               AND   
19109 @ 159426:               ASSVAL

  3545  op1:
19110 @ 159427:               LINE   3545 "regression-compile-tmp/imp22g-77.imp"
19111 @ 159467:               LABEL  L_0188

  3546    wx = weight(x)
19112 @ 159470:               LINE   3546 "regression-compile-tmp/imp22g-77.imp"
19113 @ 159510:               PUSH   WX
19114 @ 159513:               PUSH   WEIGHT
19115 @ 159516:               PUSH   X
19116 @ 159519:               ASSPAR
19117 @ 159520:               CALL  
19118 @ 159521:               ASSVAL

  3547    %if wx <= 1 %and y <= 0 %and y >= litmite %and rset&(\anyareg) # 0 %start
19119 @ 159522:               LINE   3547 "regression-compile-tmp/imp22g-77.imp"
19120 @ 159562:               PUSH   WX
19121 @ 159565:               PUSHI  #0x00000001
19122 @ 159570:               JUMPIF > L_0004
19123 @ 159574:               PUSH   Y
19124 @ 159577:               PUSHI  #0x00000000
19125 @ 159582:               JUMPIF > L_0004
19126 @ 159586:               PUSH   Y
19127 @ 159589:               PUSHI  #0xffffff01
19128 @ 159594:               JUMPIF < L_0004
19129 @ 159598:               PUSH   RSET
19130 @ 159601:               PUSHI  #0x0000ff00
19131 @ 159606:               NOT   
19132 @ 159607:               AND   
19133 @ 159608:               PUSHI  #0x00000000
19134 @ 159613:               JUMPIF = L_0004

  3548      rset = rset&(\anyareg)
19135 @ 159617:               LINE   3548 "regression-compile-tmp/imp22g-77.imp"
19136 @ 159657:               PUSH   RSET
19137 @ 159660:               PUSH   RSET
19138 @ 159663:               PUSHI  #0x0000ff00
19139 @ 159668:               NOT   
19140 @ 159669:               AND   
19141 @ 159670:               ASSVAL

  3549      i = x;  x = y;  y = i
19142 @ 159671:               LINE   3549 "regression-compile-tmp/imp22g-77.imp"
19143 @ 159711:               PUSH   I
19144 @ 159714:               PUSH   X
19145 @ 159717:               ASSVAL
19146 @ 159718:               LINE   3549 "regression-compile-tmp/imp22g-77.imp"
19147 @ 159758:               PUSH   X
19148 @ 159761:               PUSH   Y
19149 @ 159764:               ASSVAL
19150 @ 159765:               LINE   3549 "regression-compile-tmp/imp22g-77.imp"
19151 @ 159805:               PUSH   Y
19152 @ 159808:               PUSH   I
19153 @ 159811:               ASSVAL

  3550    %finish %else %if 999 > wx < weight(y) %start
19154 @ 159812:               LINE   3550 "regression-compile-tmp/imp22g-77.imp"
19155 @ 159852:               GOTO   L_0003
19156 @ 159855:               LOCATE L_0004
19157 @ 159858:               PUSHI  #0x000003e7
19158 @ 159863:               PUSH   WX
19159 @ 159866:               JUMPIFD <= L_0004
19160 @ 159870:               PUSH   WEIGHT
19161 @ 159873:               PUSH   Y
19162 @ 159876:               ASSPAR
19163 @ 159877:               CALL  
19164 @ 159878:               JUMPIF >= L_0004

  3551      i = x;  x = y;  y = i
19165 @ 159882:               LINE   3551 "regression-compile-tmp/imp22g-77.imp"
19166 @ 159922:               PUSH   I
19167 @ 159925:               PUSH   X
19168 @ 159928:               ASSVAL
19169 @ 159929:               LINE   3551 "regression-compile-tmp/imp22g-77.imp"
19170 @ 159969:               PUSH   X
19171 @ 159972:               PUSH   Y
19172 @ 159975:               ASSVAL
19173 @ 159976:               LINE   3551 "regression-compile-tmp/imp22g-77.imp"
19174 @ 160016:               PUSH   Y
19175 @ 160019:               PUSH   I
19176 @ 160022:               ASSVAL

  3552    %finish
19177 @ 160023:               LINE   3552 "regression-compile-tmp/imp22g-77.imp"
19178 @ 160063:               LOCATE L_0004
19179 @ 160066:               LOCATE L_0003

  3553    -> op2
19180 @ 160069:               LINE   3553 "regression-compile-tmp/imp22g-77.imp"
19181 @ 160109:               JUMP   L_0187

  3554  do(sub):
19182 @ 160112:               LINE   3554 "regression-compile-tmp/imp22g-77.imp"
19183 @ 160152:               PUSHI  #0x00000003
19184 @ 160157:               SLABEL 327

  3555    %if control&overbit # 0 %start
19185 @ 160160:               LINE   3555 "regression-compile-tmp/imp22g-77.imp"
19186 @ 160200:               PUSH   CONTROL
19187 @ 160203:               PUSHI  #0x10000000
19188 @ 160208:               AND   
19189 @ 160209:               PUSHI  #0x00000000
19190 @ 160214:               JUMPIF = L_0004

  3556      -> dataload %if rset&(\anyareg) = 0
19191 @ 160218:               LINE   3556 "regression-compile-tmp/imp22g-77.imp"
19192 @ 160258:               PUSH   RSET
19193 @ 160261:               PUSHI  #0x0000ff00
19194 @ 160266:               NOT   
19195 @ 160267:               AND   
19196 @ 160268:               PUSHI  #0x00000000
19197 @ 160273:               JUMPIF # L_0007
19198 @ 160277:               JUMP   L_017a
19199 @ 160280:               LOCATE L_0007

  3557      rset = rset&(\anyareg)
19200 @ 160283:               LINE   3557 "regression-compile-tmp/imp22g-77.imp"
19201 @ 160323:               PUSH   RSET
19202 @ 160326:               PUSH   RSET
19203 @ 160329:               PUSHI  #0x0000ff00
19204 @ 160334:               NOT   
19205 @ 160335:               AND   
19206 @ 160336:               ASSVAL

  3558    %finish
19207 @ 160337:               LINE   3558 "regression-compile-tmp/imp22g-77.imp"
19208 @ 160377:               LOCATE L_0004

  3559    rset = rset&(\bregb)
19209 @ 160380:               LINE   3559 "regression-compile-tmp/imp22g-77.imp"
19210 @ 160420:               PUSH   RSET
19211 @ 160423:               PUSH   RSET
19212 @ 160426:               PUSHI  #0x00000010
19213 @ 160431:               NOT   
19214 @ 160432:               AND   
19215 @ 160433:               ASSVAL

  3560  op2:
19216 @ 160434:               LINE   3560 "regression-compile-tmp/imp22g-77.imp"
19217 @ 160474:               LABEL  L_0187

  3561    eval(x,rset&free)
19218 @ 160477:               LINE   3561 "regression-compile-tmp/imp22g-77.imp"
19219 @ 160517:               PUSH   EVAL
19220 @ 160520:               PUSH   X
19221 @ 160523:               ASSPAR
19222 @ 160524:               PUSH   RSET
19223 @ 160527:               PUSH   FREE
19224 @ 160530:               AND   
19225 @ 160531:               ASSPAR
19226 @ 160532:               CALL  

  3562  op3:
19227 @ 160533:               LINE   3562 "regression-compile-tmp/imp22g-77.imp"
19228 @ 160573:               LABEL  L_0189

  3563    oldfree = free
19229 @ 160576:               LINE   3563 "regression-compile-tmp/imp22g-77.imp"
19230 @ 160616:               PUSH   OLDFREE
19231 @ 160619:               PUSH   FREE
19232 @ 160622:               ASSVAL

  3564    %if y <= 0 %and y >= litmite %and free&(anydreg!bregb) # 0 %start
19233 @ 160623:               LINE   3564 "regression-compile-tmp/imp22g-77.imp"
19234 @ 160663:               PUSH   Y
19235 @ 160666:               PUSHI  #0x00000000
19236 @ 160671:               JUMPIF > L_0004
19237 @ 160675:               PUSH   Y
19238 @ 160678:               PUSHI  #0xffffff01
19239 @ 160683:               JUMPIF < L_0004
19240 @ 160687:               PUSH   FREE
19241 @ 160690:               PUSHI  #0x000000ef
19242 @ 160695:               PUSHI  #0x00000010
19243 @ 160700:               OR    
19244 @ 160701:               AND   
19245 @ 160702:               PUSHI  #0x00000000
19246 @ 160707:               JUMPIF = L_0004

  3565      eval(y,anydreg!bregb);           !bring Y to reg
19247 @ 160711:               LINE   3565 "regression-compile-tmp/imp22g-77.imp"
19248 @ 160751:               PUSH   EVAL
19249 @ 160754:               PUSH   Y
19250 @ 160757:               ASSPAR
19251 @ 160758:               PUSHI  #0x000000ef
19252 @ 160763:               PUSHI  #0x00000010
19253 @ 160768:               OR    
19254 @ 160769:               ASSPAR
19255 @ 160770:               CALL  

  3566    %finish %else %if act = eor %and y > 0 %start
19256 @ 160771:               LINE   3566 "regression-compile-tmp/imp22g-77.imp"
19257 @ 160811:               GOTO   L_0003
19258 @ 160814:               LOCATE L_0004
19259 @ 160817:               PUSH   ACT
19260 @ 160820:               PUSHI  #0x00000007
19261 @ 160825:               JUMPIF # L_0004
19262 @ 160829:               PUSH   Y
19263 @ 160832:               PUSHI  #0x00000000
19264 @ 160837:               JUMPIF <= L_0004

  3567      eval(y,anydreg)
19265 @ 160841:               LINE   3567 "regression-compile-tmp/imp22g-77.imp"
19266 @ 160881:               PUSH   EVAL
19267 @ 160884:               PUSH   Y
19268 @ 160887:               ASSPAR
19269 @ 160888:               PUSHI  #0x000000ef
19270 @ 160893:               ASSPAR
19271 @ 160894:               CALL  

  3568    %finish %else %if act > sub %start
19272 @ 160895:               LINE   3568 "regression-compile-tmp/imp22g-77.imp"
19273 @ 160935:               GOTO   L_0003
19274 @ 160938:               LOCATE L_0004
19275 @ 160941:               PUSH   ACT
19276 @ 160944:               PUSHI  #0x00000003
19277 @ 160949:               JUMPIF <= L_0004

  3569      %if x = breg %and y > 0 %start
19278 @ 160953:               LINE   3569 "regression-compile-tmp/imp22g-77.imp"
19279 @ 160993:               PUSH   X
19280 @ 160996:               PUSHI  #0x00000005
19281 @ 161001:               JUMPIF # L_0007
19282 @ 161005:               PUSH   Y
19283 @ 161008:               PUSHI  #0x00000000
19284 @ 161013:               JUMPIF <= L_0007

  3570        sy = tsize(y)
19285 @ 161017:               LINE   3570 "regression-compile-tmp/imp22g-77.imp"
19286 @ 161057:               PUSH   SY
19287 @ 161060:               PUSH   TSIZE
19288 @ 161063:               PUSH   Y
19289 @ 161066:               ASSPAR
19290 @ 161067:               CALL  
19291 @ 161068:               ASSVAL

  3571        %if sy = 1 %or (sy = 2 %and act = and) %start
19292 @ 161069:               LINE   3571 "regression-compile-tmp/imp22g-77.imp"
19293 @ 161109:               PUSH   SY
19294 @ 161112:               PUSHI  #0x00000001
19295 @ 161117:               JUMPIF = L_000b
19296 @ 161121:               PUSH   SY
19297 @ 161124:               PUSHI  #0x00000002
19298 @ 161129:               JUMPIF # L_000a
19299 @ 161133:               PUSH   ACT
19300 @ 161136:               PUSHI  #0x00000005
19301 @ 161141:               JUMPIF # L_000a
19302 @ 161145:               LOCATE L_000b

  3572          eval(y,val&(\anyareg)+sy<<sizeshift)
19303 @ 161148:               LINE   3572 "regression-compile-tmp/imp22g-77.imp"
19304 @ 161188:               PUSH   EVAL
19305 @ 161191:               PUSH   Y
19306 @ 161194:               ASSPAR
19307 @ 161195:               PUSHI  #0x8000ffff
19308 @ 161200:               PUSHI  #0x0000ff00
19309 @ 161205:               NOT   
19310 @ 161206:               AND   
19311 @ 161207:               PUSH   SY
19312 @ 161210:               PUSHI  #0x00000010
19313 @ 161215:               LSH   
19314 @ 161216:               ADD   
19315 @ 161217:               ASSPAR
19316 @ 161218:               CALL  

  3573          act = act+sy<<8 %if y > d7
19317 @ 161219:               LINE   3573 "regression-compile-tmp/imp22g-77.imp"
19318 @ 161259:               PUSH   Y
19319 @ 161262:               PUSHI  #0x00000008
19320 @ 161267:               JUMPIF <= L_000d
19321 @ 161271:               PUSH   ACT
19322 @ 161274:               PUSH   ACT
19323 @ 161277:               PUSH   SY
19324 @ 161280:               PUSHI  #0x00000008
19325 @ 161285:               LSH   
19326 @ 161286:               ADD   
19327 @ 161287:               ASSVAL
19328 @ 161288:               LOCATE L_000d

  3574        %finish %else eval(y,val&(\anyareg))
19329 @ 161291:               LINE   3574 "regression-compile-tmp/imp22g-77.imp"
19330 @ 161331:               GOTO   L_0009
19331 @ 161334:               LOCATE L_000a
19332 @ 161337:               PUSH   EVAL
19333 @ 161340:               PUSH   Y
19334 @ 161343:               ASSPAR
19335 @ 161344:               PUSHI  #0x8000ffff
19336 @ 161349:               PUSHI  #0x0000ff00
19337 @ 161354:               NOT   
19338 @ 161355:               AND   
19339 @ 161356:               ASSPAR
19340 @ 161357:               CALL  
19341 @ 161358:               LOCATE L_0009

  3575      %finish %else eval(y,val&(\anyareg))
19342 @ 161361:               LINE   3575 "regression-compile-tmp/imp22g-77.imp"
19343 @ 161401:               GOTO   L_0006
19344 @ 161404:               LOCATE L_0007
19345 @ 161407:               PUSH   EVAL
19346 @ 161410:               PUSH   Y
19347 @ 161413:               ASSPAR
19348 @ 161414:               PUSHI  #0x8000ffff
19349 @ 161419:               PUSHI  #0x0000ff00
19350 @ 161424:               NOT   
19351 @ 161425:               AND   
19352 @ 161426:               ASSPAR
19353 @ 161427:               CALL  
19354 @ 161428:               LOCATE L_0006

  3576    %else
19355 @ 161431:               LINE   3576 "regression-compile-tmp/imp22g-77.imp"
19356 @ 161471:               GOTO   L_0003
19357 @ 161474:               LOCATE L_0004

  3577      eval(y,val)
19358 @ 161477:               LINE   3577 "regression-compile-tmp/imp22g-77.imp"
19359 @ 161517:               PUSH   EVAL
19360 @ 161520:               PUSH   Y
19361 @ 161523:               ASSPAR
19362 @ 161524:               PUSHI  #0x8000ffff
19363 @ 161529:               ASSPAR
19364 @ 161530:               CALL  

  3578    %finish
19365 @ 161531:               LINE   3578 "regression-compile-tmp/imp22g-77.imp"
19366 @ 161571:               LOCATE L_0003

  3579    free = oldfree
19367 @ 161574:               LINE   3579 "regression-compile-tmp/imp22g-77.imp"
19368 @ 161614:               PUSH   FREE
19369 @ 161617:               PUSH   OLDFREE
19370 @ 161620:               ASSVAL

  3580  fin1:
19371 @ 161621:               LINE   3580 "regression-compile-tmp/imp22g-77.imp"
19372 @ 161661:               LABEL  L_0186

  3581    plant(act,y,x)
19373 @ 161664:               LINE   3581 "regression-compile-tmp/imp22g-77.imp"
19374 @ 161704:               PUSH   PLANT
19375 @ 161707:               PUSH   ACT
19376 @ 161710:               ASSPAR
19377 @ 161711:               PUSH   Y
19378 @ 161714:               ASSPAR
19379 @ 161715:               PUSH   X
19380 @ 161718:               ASSPAR
19381 @ 161719:               CALL  

  3582    -> fin3 %if act > sub
19382 @ 161720:               LINE   3582 "regression-compile-tmp/imp22g-77.imp"
19383 @ 161760:               PUSH   ACT
19384 @ 161763:               PUSHI  #0x00000003
19385 @ 161768:               JUMPIF <= L_0004
19386 @ 161772:               JUMP   L_018a
19387 @ 161775:               LOCATE L_0004

  3583  fin2:
19388 @ 161778:               LINE   3583 "regression-compile-tmp/imp22g-77.imp"
19389 @ 161818:               LABEL  L_018b

  3584    plant(trapv,0,0) %if control&overbit # 0
19390 @ 161821:               LINE   3584 "regression-compile-tmp/imp22g-77.imp"
19391 @ 161861:               PUSH   CONTROL
19392 @ 161864:               PUSHI  #0x10000000
19393 @ 161869:               AND   
19394 @ 161870:               PUSHI  #0x00000000
19395 @ 161875:               JUMPIF = L_0004
19396 @ 161879:               PUSH   PLANT
19397 @ 161882:               PUSHI  #0x00000046
19398 @ 161887:               ASSPAR
19399 @ 161888:               PUSHI  #0x00000000
19400 @ 161893:               ASSPAR
19401 @ 161894:               PUSHI  #0x00000000
19402 @ 161899:               ASSPAR
19403 @ 161900:               CALL  
19404 @ 161901:               LOCATE L_0004

  3585  fin3:
19405 @ 161904:               LINE   3585 "regression-compile-tmp/imp22g-77.imp"
19406 @ 161944:               LABEL  L_018a

  3586    pp = x;  c_reg_content(x) = p
19407 @ 161947:               LINE   3586 "regression-compile-tmp/imp22g-77.imp"
19408 @ 161987:               PUSH   PP
19409 @ 161990:               PUSH   X
19410 @ 161993:               ASSVAL
19411 @ 161994:               LINE   3586 "regression-compile-tmp/imp22g-77.imp"
19412 @ 162034:               PUSH   C
19413 @ 162037:               SELECT 30
19414 @ 162040:               SELECT 4
19415 @ 162043:               PUSH   X
19416 @ 162046:               ACCESS
19417 @ 162047:               PUSH   P
19418 @ 162050:               ASSVAL

  3587    %if act <= opmax %then c_reg_ccx = p %and c_reg_ccy = 0 %c
  3588    %else forget cc
19419 @ 162051:               LINE   3587 "regression-compile-tmp/imp22g-77.imp"
19420 @ 162091:               PUSH   ACT
19421 @ 162094:               PUSHI  #0x00000075
19422 @ 162099:               JUMPIF > L_0004
19423 @ 162103:               PUSH   C
19424 @ 162106:               SELECT 30
19425 @ 162109:               SELECT 1
19426 @ 162112:               PUSH   P
19427 @ 162115:               ASSVAL
19428 @ 162116:               PUSH   C
19429 @ 162119:               SELECT 30
19430 @ 162122:               SELECT 2
19431 @ 162125:               PUSHI  #0x00000000
19432 @ 162130:               ASSVAL
19433 @ 162131:               GOTO   L_0003
19434 @ 162134:               LOCATE L_0004
19435 @ 162137:               PUSH   FORGETCC
19436 @ 162140:               CALL  
19437 @ 162141:               LOCATE L_0003

  3589    %return
  3590  
19438 @ 162144:               LINE   3589 "regression-compile-tmp/imp22g-77.imp"
19439 @ 162184:               RETURN

  3591  do(muls): do(mulu):
19440 @ 162185:               LINE   3591 "regression-compile-tmp/imp22g-77.imp"
19441 @ 162225:               PUSHI  #0x0000000c
19442 @ 162230:               SLABEL 327
19443 @ 162233:               LINE   3591 "regression-compile-tmp/imp22g-77.imp"
19444 @ 162273:               PUSHI  #0x0000000e
19445 @ 162278:               SLABEL 327

  3592    -> dataload %if rset&(\(anyareg!bregb)) = 0
19446 @ 162281:               LINE   3592 "regression-compile-tmp/imp22g-77.imp"
19447 @ 162321:               PUSH   RSET
19448 @ 162324:               PUSHI  #0x0000ff00
19449 @ 162329:               PUSHI  #0x00000010
19450 @ 162334:               OR    
19451 @ 162335:               NOT   
19452 @ 162336:               AND   
19453 @ 162337:               PUSHI  #0x00000000
19454 @ 162342:               JUMPIF # L_0004
19455 @ 162346:               JUMP   L_017a
19456 @ 162349:               LOCATE L_0004

  3593    rset = rset&(\(anyareg!bregb))
19457 @ 162352:               LINE   3593 "regression-compile-tmp/imp22g-77.imp"
19458 @ 162392:               PUSH   RSET
19459 @ 162395:               PUSH   RSET
19460 @ 162398:               PUSHI  #0x0000ff00
19461 @ 162403:               PUSHI  #0x00000010
19462 @ 162408:               OR    
19463 @ 162409:               NOT   
19464 @ 162410:               AND   
19465 @ 162411:               ASSVAL

  3594    eval(x,rset&free)
19466 @ 162412:               LINE   3594 "regression-compile-tmp/imp22g-77.imp"
19467 @ 162452:               PUSH   EVAL
19468 @ 162455:               PUSH   X
19469 @ 162458:               ASSPAR
19470 @ 162459:               PUSH   RSET
19471 @ 162462:               PUSH   FREE
19472 @ 162465:               AND   
19473 @ 162466:               ASSPAR
19474 @ 162467:               CALL  

  3595    oldfree = free
19475 @ 162468:               LINE   3595 "regression-compile-tmp/imp22g-77.imp"
19476 @ 162508:               PUSH   OLDFREE
19477 @ 162511:               PUSH   FREE
19478 @ 162514:               ASSVAL

  3596    eval(y,anydreg) %if y > 0;  ![could do better for short]
19479 @ 162515:               LINE   3596 "regression-compile-tmp/imp22g-77.imp"
19480 @ 162555:               PUSH   Y
19481 @ 162558:               PUSHI  #0x00000000
19482 @ 162563:               JUMPIF <= L_0004
19483 @ 162567:               PUSH   EVAL
19484 @ 162570:               PUSH   Y
19485 @ 162573:               ASSPAR
19486 @ 162574:               PUSHI  #0x000000ef
19487 @ 162579:               ASSPAR
19488 @ 162580:               CALL  
19489 @ 162581:               LOCATE L_0004

  3597    free = oldfree
19490 @ 162584:               LINE   3597 "regression-compile-tmp/imp22g-77.imp"
19491 @ 162624:               PUSH   FREE
19492 @ 162627:               PUSH   OLDFREE
19493 @ 162630:               ASSVAL

  3598    plant(act,y,x)
19494 @ 162631:               LINE   3598 "regression-compile-tmp/imp22g-77.imp"
19495 @ 162671:               PUSH   PLANT
19496 @ 162674:               PUSH   ACT
19497 @ 162677:               ASSPAR
19498 @ 162678:               PUSH   Y
19499 @ 162681:               ASSPAR
19500 @ 162682:               PUSH   X
19501 @ 162685:               ASSPAR
19502 @ 162686:               CALL  

  3599    -> fin2
  3600  
19503 @ 162687:               LINE   3599 "regression-compile-tmp/imp22g-77.imp"
19504 @ 162727:               JUMP   L_018b

  3601  do(lsl): do(lsr):
19505 @ 162730:               LINE   3601 "regression-compile-tmp/imp22g-77.imp"
19506 @ 162770:               PUSHI  #0x0000000a
19507 @ 162775:               SLABEL 327
19508 @ 162778:               LINE   3601 "regression-compile-tmp/imp22g-77.imp"
19509 @ 162818:               PUSHI  #0x0000000b
19510 @ 162823:               SLABEL 327

  3602    -> dataload %if rset&(\(anyareg!bregb)) = 0
19511 @ 162826:               LINE   3602 "regression-compile-tmp/imp22g-77.imp"
19512 @ 162866:               PUSH   RSET
19513 @ 162869:               PUSHI  #0x0000ff00
19514 @ 162874:               PUSHI  #0x00000010
19515 @ 162879:               OR    
19516 @ 162880:               NOT   
19517 @ 162881:               AND   
19518 @ 162882:               PUSHI  #0x00000000
19519 @ 162887:               JUMPIF # L_0004
19520 @ 162891:               JUMP   L_017a
19521 @ 162894:               LOCATE L_0004

  3603    rset = rset&(\(anyareg!bregb))
19522 @ 162897:               LINE   3603 "regression-compile-tmp/imp22g-77.imp"
19523 @ 162937:               PUSH   RSET
19524 @ 162940:               PUSH   RSET
19525 @ 162943:               PUSHI  #0x0000ff00
19526 @ 162948:               PUSHI  #0x00000010
19527 @ 162953:               OR    
19528 @ 162954:               NOT   
19529 @ 162955:               AND   
19530 @ 162956:               ASSVAL

  3604    eval(x,rset&free)
19531 @ 162957:               LINE   3604 "regression-compile-tmp/imp22g-77.imp"
19532 @ 162997:               PUSH   EVAL
19533 @ 163000:               PUSH   X
19534 @ 163003:               ASSPAR
19535 @ 163004:               PUSH   RSET
19536 @ 163007:               PUSH   FREE
19537 @ 163010:               AND   
19538 @ 163011:               ASSPAR
19539 @ 163012:               CALL  

  3605    %if y < 0 %and y >= litquick %start
19540 @ 163013:               LINE   3605 "regression-compile-tmp/imp22g-77.imp"
19541 @ 163053:               PUSH   Y
19542 @ 163056:               PUSHI  #0x00000000
19543 @ 163061:               JUMPIF >= L_0004
19544 @ 163065:               PUSH   Y
19545 @ 163068:               PUSHI  #0xfffffff0
19546 @ 163073:               JUMPIF < L_0004

  3606      act = act!!(lsl!!lsr) %and y = y-1 %if y&1 # 0;  !negate if neg
19547 @ 163077:               LINE   3606 "regression-compile-tmp/imp22g-77.imp"
19548 @ 163117:               PUSH   Y
19549 @ 163120:               PUSHI  #0x00000001
19550 @ 163125:               AND   
19551 @ 163126:               PUSHI  #0x00000000
19552 @ 163131:               JUMPIF = L_0007
19553 @ 163135:               PUSH   ACT
19554 @ 163138:               PUSH   ACT
19555 @ 163141:               PUSHI  #0x0000000a
19556 @ 163146:               PUSHI  #0x0000000b
19557 @ 163151:               XOR   
19558 @ 163152:               XOR   
19559 @ 163153:               ASSVAL
19560 @ 163154:               PUSH   Y
19561 @ 163157:               PUSH   Y
19562 @ 163160:               PUSHI  #0x00000001
19563 @ 163165:               SUB   
19564 @ 163166:               ASSVAL
19565 @ 163167:               LOCATE L_0007

  3607    %else
19566 @ 163170:               LINE   3607 "regression-compile-tmp/imp22g-77.imp"
19567 @ 163210:               GOTO   L_0003
19568 @ 163213:               LOCATE L_0004

  3608      oldfree = free;  eval(y,anydreg);  free = oldfree
19569 @ 163216:               LINE   3608 "regression-compile-tmp/imp22g-77.imp"
19570 @ 163256:               PUSH   OLDFREE
19571 @ 163259:               PUSH   FREE
19572 @ 163262:               ASSVAL
19573 @ 163263:               LINE   3608 "regression-compile-tmp/imp22g-77.imp"
19574 @ 163303:               PUSH   EVAL
19575 @ 163306:               PUSH   Y
19576 @ 163309:               ASSPAR
19577 @ 163310:               PUSHI  #0x000000ef
19578 @ 163315:               ASSPAR
19579 @ 163316:               CALL  
19580 @ 163317:               LINE   3608 "regression-compile-tmp/imp22g-77.imp"
19581 @ 163357:               PUSH   FREE
19582 @ 163360:               PUSH   OLDFREE
19583 @ 163363:               ASSVAL

  3609    %finish
19584 @ 163364:               LINE   3609 "regression-compile-tmp/imp22g-77.imp"
19585 @ 163404:               LOCATE L_0003

  3610    ->fin1
19586 @ 163407:               LINE   3610 "regression-compile-tmp/imp22g-77.imp"
19587 @ 163447:               JUMP   L_0186

  3611  do(neg):
19588 @ 163450:               LINE   3611 "regression-compile-tmp/imp22g-77.imp"
19589 @ 163490:               PUSHI  #0x00000009
19590 @ 163495:               SLABEL 327

  3612    %if y # 0 %start
19591 @ 163498:               LINE   3612 "regression-compile-tmp/imp22g-77.imp"
19592 @ 163538:               PUSH   Y
19593 @ 163541:               PUSHI  #0x00000000
19594 @ 163546:               JUMPIF = L_0004

  3613     r = y;  y = x;  x = r
19595 @ 163550:               LINE   3613 "regression-compile-tmp/imp22g-77.imp"
19596 @ 163590:               PUSH   R
19597 @ 163593:               PUSH   Y
19598 @ 163596:               ASSVAL
19599 @ 163597:               LINE   3613 "regression-compile-tmp/imp22g-77.imp"
19600 @ 163637:               PUSH   Y
19601 @ 163640:               PUSH   X
19602 @ 163643:               ASSVAL
19603 @ 163644:               LINE   3613 "regression-compile-tmp/imp22g-77.imp"
19604 @ 163684:               PUSH   X
19605 @ 163687:               PUSH   R
19606 @ 163690:               ASSVAL

  3614     act = sub
19607 @ 163691:               LINE   3614 "regression-compile-tmp/imp22g-77.imp"
19608 @ 163731:               PUSH   ACT
19609 @ 163734:               PUSHI  #0x00000003
19610 @ 163739:               ASSVAL

  3615     -> do(sub)
19611 @ 163740:               LINE   3615 "regression-compile-tmp/imp22g-77.imp"
19612 @ 163780:               PUSHI  #0x00000003
19613 @ 163785:               SJUMP  327

  3616    %finish
19614 @ 163788:               LINE   3616 "regression-compile-tmp/imp22g-77.imp"
19615 @ 163828:               LOCATE L_0004

  3617  do(not):
19616 @ 163831:               LINE   3617 "regression-compile-tmp/imp22g-77.imp"
19617 @ 163871:               PUSHI  #0x00000008
19618 @ 163876:               SLABEL 327

  3618    -> dataload %if rset&(\(anyareg!bregb)) = 0
19619 @ 163879:               LINE   3618 "regression-compile-tmp/imp22g-77.imp"
19620 @ 163919:               PUSH   RSET
19621 @ 163922:               PUSHI  #0x0000ff00
19622 @ 163927:               PUSHI  #0x00000010
19623 @ 163932:               OR    
19624 @ 163933:               NOT   
19625 @ 163934:               AND   
19626 @ 163935:               PUSHI  #0x00000000
19627 @ 163940:               JUMPIF # L_0004
19628 @ 163944:               JUMP   L_017a
19629 @ 163947:               LOCATE L_0004

  3619    rset = rset&(\(anyareg!bregb))
19630 @ 163950:               LINE   3619 "regression-compile-tmp/imp22g-77.imp"
19631 @ 163990:               PUSH   RSET
19632 @ 163993:               PUSH   RSET
19633 @ 163996:               PUSHI  #0x0000ff00
19634 @ 164001:               PUSHI  #0x00000010
19635 @ 164006:               OR    
19636 @ 164007:               NOT   
19637 @ 164008:               AND   
19638 @ 164009:               ASSVAL

  3620    eval(x,rset&free)
19639 @ 164010:               LINE   3620 "regression-compile-tmp/imp22g-77.imp"
19640 @ 164050:               PUSH   EVAL
19641 @ 164053:               PUSH   X
19642 @ 164056:               ASSPAR
19643 @ 164057:               PUSH   RSET
19644 @ 164060:               PUSH   FREE
19645 @ 164063:               AND   
19646 @ 164064:               ASSPAR
19647 @ 164065:               CALL  

  3621    plant(act,0,x)
19648 @ 164066:               LINE   3621 "regression-compile-tmp/imp22g-77.imp"
19649 @ 164106:               PUSH   PLANT
19650 @ 164109:               PUSH   ACT
19651 @ 164112:               ASSPAR
19652 @ 164113:               PUSHI  #0x00000000
19653 @ 164118:               ASSPAR
19654 @ 164119:               PUSH   X
19655 @ 164122:               ASSPAR
19656 @ 164123:               CALL  

  3622    -> fin3
19657 @ 164124:               LINE   3622 "regression-compile-tmp/imp22g-77.imp"
19658 @ 164164:               JUMP   L_018a

  3623  do(iabs):
19659 @ 164167:               LINE   3623 "regression-compile-tmp/imp22g-77.imp"
19660 @ 164207:               PUSHI  #0x00000030
19661 @ 164212:               SLABEL 327

  3624    -> dataload %if rset&(\(anyareg!bregb)) = 0
19662 @ 164215:               LINE   3624 "regression-compile-tmp/imp22g-77.imp"
19663 @ 164255:               PUSH   RSET
19664 @ 164258:               PUSHI  #0x0000ff00
19665 @ 164263:               PUSHI  #0x00000010
19666 @ 164268:               OR    
19667 @ 164269:               NOT   
19668 @ 164270:               AND   
19669 @ 164271:               PUSHI  #0x00000000
19670 @ 164276:               JUMPIF # L_0004
19671 @ 164280:               JUMP   L_017a
19672 @ 164283:               LOCATE L_0004

  3625    rset = rset&(\(anyareg!bregb))
19673 @ 164286:               LINE   3625 "regression-compile-tmp/imp22g-77.imp"
19674 @ 164326:               PUSH   RSET
19675 @ 164329:               PUSH   RSET
19676 @ 164332:               PUSHI  #0x0000ff00
19677 @ 164337:               PUSHI  #0x00000010
19678 @ 164342:               OR    
19679 @ 164343:               NOT   
19680 @ 164344:               AND   
19681 @ 164345:               ASSVAL

  3626    x = y
19682 @ 164346:               LINE   3626 "regression-compile-tmp/imp22g-77.imp"
19683 @ 164386:               PUSH   X
19684 @ 164389:               PUSH   Y
19685 @ 164392:               ASSVAL

  3627    eval(x,rset&free)
19686 @ 164393:               LINE   3627 "regression-compile-tmp/imp22g-77.imp"
19687 @ 164433:               PUSH   EVAL
19688 @ 164436:               PUSH   X
19689 @ 164439:               ASSPAR
19690 @ 164440:               PUSH   RSET
19691 @ 164443:               PUSH   FREE
19692 @ 164446:               AND   
19693 @ 164447:               ASSPAR
19694 @ 164448:               CALL  

  3628    plant(move,x,x) %if c_reg_ccx # y %or c_reg_ccy # 0
19695 @ 164449:               LINE   3628 "regression-compile-tmp/imp22g-77.imp"
19696 @ 164489:               PUSH   C
19697 @ 164492:               SELECT 30
19698 @ 164495:               SELECT 1
19699 @ 164498:               PUSH   Y
19700 @ 164501:               JUMPIF # L_0005
19701 @ 164505:               PUSH   C
19702 @ 164508:               SELECT 30
19703 @ 164511:               SELECT 2
19704 @ 164514:               PUSHI  #0x00000000
19705 @ 164519:               JUMPIF = L_0004
19706 @ 164523:               LOCATE L_0005
19707 @ 164526:               PUSH   PLANT
19708 @ 164529:               PUSHI  #0x00000001
19709 @ 164534:               ASSPAR
19710 @ 164535:               PUSH   X
19711 @ 164538:               ASSPAR
19712 @ 164539:               PUSH   X
19713 @ 164542:               ASSPAR
19714 @ 164543:               CALL  
19715 @ 164544:               LOCATE L_0004

  3629    plantlit2(bge,0,2)
19716 @ 164547:               LINE   3629 "regression-compile-tmp/imp22g-77.imp"
19717 @ 164587:               PUSH   PLANTLIT2
19718 @ 164590:               PUSHI  #0x0000001c
19719 @ 164595:               ASSPAR
19720 @ 164596:               PUSHI  #0x00000000
19721 @ 164601:               ASSPAR
19722 @ 164602:               PUSHI  #0x00000002
19723 @ 164607:               ASSPAR
19724 @ 164608:               CALL  

  3630    plant(neg,0,x)
19725 @ 164609:               LINE   3630 "regression-compile-tmp/imp22g-77.imp"
19726 @ 164649:               PUSH   PLANT
19727 @ 164652:               PUSHI  #0x00000009
19728 @ 164657:               ASSPAR
19729 @ 164658:               PUSHI  #0x00000000
19730 @ 164663:               ASSPAR
19731 @ 164664:               PUSH   X
19732 @ 164667:               ASSPAR
19733 @ 164668:               CALL  

  3631    ->fin2
19734 @ 164669:               LINE   3631 "regression-compile-tmp/imp22g-77.imp"
19735 @ 164709:               JUMP   L_018b

  3632  do(fabs):
19736 @ 164712:               LINE   3632 "regression-compile-tmp/imp22g-77.imp"
19737 @ 164752:               PUSHI  #0x00000031
19738 @ 164757:               SLABEL 327

  3633    -> dataload %if rset&(\(anyareg!bregb)) = 0
19739 @ 164760:               LINE   3633 "regression-compile-tmp/imp22g-77.imp"
19740 @ 164800:               PUSH   RSET
19741 @ 164803:               PUSHI  #0x0000ff00
19742 @ 164808:               PUSHI  #0x00000010
19743 @ 164813:               OR    
19744 @ 164814:               NOT   
19745 @ 164815:               AND   
19746 @ 164816:               PUSHI  #0x00000000
19747 @ 164821:               JUMPIF # L_0004
19748 @ 164825:               JUMP   L_017a
19749 @ 164828:               LOCATE L_0004

  3634    rset = rset&(\(anyareg!bregb))
19750 @ 164831:               LINE   3634 "regression-compile-tmp/imp22g-77.imp"
19751 @ 164871:               PUSH   RSET
19752 @ 164874:               PUSH   RSET
19753 @ 164877:               PUSHI  #0x0000ff00
19754 @ 164882:               PUSHI  #0x00000010
19755 @ 164887:               OR    
19756 @ 164888:               NOT   
19757 @ 164889:               AND   
19758 @ 164890:               ASSVAL

  3635    x = y
19759 @ 164891:               LINE   3635 "regression-compile-tmp/imp22g-77.imp"
19760 @ 164931:               PUSH   X
19761 @ 164934:               PUSH   Y
19762 @ 164937:               ASSVAL

  3636    eval(x,rset&free)
19763 @ 164938:               LINE   3636 "regression-compile-tmp/imp22g-77.imp"
19764 @ 164978:               PUSH   EVAL
19765 @ 164981:               PUSH   X
19766 @ 164984:               ASSPAR
19767 @ 164985:               PUSH   RSET
19768 @ 164988:               PUSH   FREE
19769 @ 164991:               AND   
19770 @ 164992:               ASSPAR
19771 @ 164993:               CALL  

  3637    plantlit(and,16_7FFFFFFF,x)
19772 @ 164994:               LINE   3637 "regression-compile-tmp/imp22g-77.imp"
19773 @ 165034:               PUSH   PLANTLIT
19774 @ 165037:               PUSHI  #0x00000005
19775 @ 165042:               ASSPAR
19776 @ 165043:               PUSHI  #0x7fffffff
19777 @ 165048:               ASSPAR
19778 @ 165049:               PUSH   X
19779 @ 165052:               ASSPAR
19780 @ 165053:               CALL  

  3638    ->fin3
  3639  
19781 @ 165054:               LINE   3638 "regression-compile-tmp/imp22g-77.imp"
19782 @ 165094:               JUMP   L_018a

  3640  %routine DO SHIFT
19783 @ 165097:               LINE   3640 "regression-compile-tmp/imp22g-77.imp"
19784 @ 165137:               DEF    DOSHIFT (_lev0id0_EVAL_DOSHIFT) p1=V_018c 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
19785 @ 165156:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
19786 @ 165157:                  FINISH ) {lev=3}

  3641  %integer i;
19787 @ 165158:                  LINE   3641 "regression-compile-tmp/imp22g-77.imp"
19788 @ 165198:                  DEF    I p1=V_018d a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  3642    i=0
19789 @ 165211:                  LINE   3642 "regression-compile-tmp/imp22g-77.imp"
19790 @ 165251:                  PUSH   I
19791 @ 165254:                  PUSHI  #0x00000000
19792 @ 165259:                  ASSVAL

  3643    i = i+1 %and j = j>>1 %until j&1 # 0
19793 @ 165260:                  LINE   3643 "regression-compile-tmp/imp22g-77.imp"
19794 @ 165300:                  LOCATE L_0003
19795 @ 165303:                  PUSH   I
19796 @ 165306:                  PUSH   I
19797 @ 165309:                  PUSHI  #0x00000001
19798 @ 165314:                  ADD   
19799 @ 165315:                  ASSVAL
19800 @ 165316:                  PUSH   J
19801 @ 165319:                  PUSH   J
19802 @ 165322:                  PUSHI  #0x00000001
19803 @ 165327:                  RSH   
19804 @ 165328:                  ASSVAL
19805 @ 165329:                  PUSH   J
19806 @ 165332:                  PUSHI  #0x00000001
19807 @ 165337:                  AND   
19808 @ 165338:                  PUSHI  #0x00000000
19809 @ 165343:                  JUMPIF # L_0004
19810 @ 165347:                  REPEAT L_0003
19811 @ 165350:                  LOCATE L_0004

  3644    %if i = 1 %then plant(add,x,x) %else %start
19812 @ 165353:                  LINE   3644 "regression-compile-tmp/imp22g-77.imp"
19813 @ 165393:                  PUSH   I
19814 @ 165396:                  PUSHI  #0x00000001
19815 @ 165401:                  JUMPIF # L_0004
19816 @ 165405:                  PUSH   PLANT
19817 @ 165408:                  PUSHI  #0x00000002
19818 @ 165413:                  ASSPAR
19819 @ 165414:                  PUSH   X
19820 @ 165417:                  ASSPAR
19821 @ 165418:                  PUSH   X
19822 @ 165421:                  ASSPAR
19823 @ 165422:                  CALL  
19824 @ 165423:                  GOTO   L_0003
19825 @ 165426:                  LOCATE L_0004

  3645      i = litref(i)
19826 @ 165429:                  LINE   3645 "regression-compile-tmp/imp22g-77.imp"
19827 @ 165469:                  PUSH   I
19828 @ 165472:                  PUSH   LITREF
19829 @ 165475:                  PUSH   I
19830 @ 165478:                  ASSPAR
19831 @ 165479:                  CALL  
19832 @ 165480:                  ASSVAL

  3646      %if i < litquick %start
19833 @ 165481:                  LINE   3646 "regression-compile-tmp/imp22g-77.imp"
19834 @ 165521:                  PUSH   I
19835 @ 165524:                  PUSHI  #0xfffffff0
19836 @ 165529:                  JUMPIF >= L_0007

  3647        oldfree = free;  eval(i,anydreg);  free = oldfree
19837 @ 165533:                  LINE   3647 "regression-compile-tmp/imp22g-77.imp"
19838 @ 165573:                  PUSH   OLDFREE
19839 @ 165576:                  PUSH   FREE
19840 @ 165579:                  ASSVAL
19841 @ 165580:                  LINE   3647 "regression-compile-tmp/imp22g-77.imp"
19842 @ 165620:                  PUSH   EVAL
19843 @ 165623:                  PUSH   I
19844 @ 165626:                  ASSPAR
19845 @ 165627:                  PUSHI  #0x000000ef
19846 @ 165632:                  ASSPAR
19847 @ 165633:                  CALL  
19848 @ 165634:                  LINE   3647 "regression-compile-tmp/imp22g-77.imp"
19849 @ 165674:                  PUSH   FREE
19850 @ 165677:                  PUSH   OLDFREE
19851 @ 165680:                  ASSVAL

  3648      %finish
19852 @ 165681:                  LINE   3648 "regression-compile-tmp/imp22g-77.imp"
19853 @ 165721:                  LOCATE L_0007

  3649      plant(asl,i,x)
19854 @ 165724:                  LINE   3649 "regression-compile-tmp/imp22g-77.imp"
19855 @ 165764:                  PUSH   PLANT
19856 @ 165767:                  PUSHI  #0x00000020
19857 @ 165772:                  ASSPAR
19858 @ 165773:                  PUSH   I
19859 @ 165776:                  ASSPAR
19860 @ 165777:                  PUSH   X
19861 @ 165780:                  ASSPAR
19862 @ 165781:                  CALL  

  3650    %finish
19863 @ 165782:                  LINE   3650 "regression-compile-tmp/imp22g-77.imp"
19864 @ 165822:                  LOCATE L_0003

  3651  %end
  3652  
19865 @ 165825:                  LINE   3651 "regression-compile-tmp/imp22g-77.imp"
19866 @ 165865:               END    _lev0id0_EVAL_DOSHIFT {lev=3 --> 2}

  3653  do(imul):
19867 @ 165866:               LINE   3653 "regression-compile-tmp/imp22g-77.imp"
19868 @ 165906:               PUSHI  #0x00000056
19869 @ 165911:               SLABEL 327

  3654    -> dataload %if rset&(\(anyareg!bregb)) = 0
19870 @ 165914:               LINE   3654 "regression-compile-tmp/imp22g-77.imp"
19871 @ 165954:               PUSH   RSET
19872 @ 165957:               PUSHI  #0x0000ff00
19873 @ 165962:               PUSHI  #0x00000010
19874 @ 165967:               OR    
19875 @ 165968:               NOT   
19876 @ 165969:               AND   
19877 @ 165970:               PUSHI  #0x00000000
19878 @ 165975:               JUMPIF # L_0004
19879 @ 165979:               JUMP   L_017a
19880 @ 165982:               LOCATE L_0004

  3655    rset = rset&(\(anyareg!bregb))
  3656   !Test for power of 2 or pair of powers of 2
19881 @ 165985:               LINE   3655 "regression-compile-tmp/imp22g-77.imp"
19882 @ 166025:               PUSH   RSET
19883 @ 166028:               PUSH   RSET
19884 @ 166031:               PUSHI  #0x0000ff00
19885 @ 166036:               PUSHI  #0x00000010
19886 @ 166041:               OR    
19887 @ 166042:               NOT   
19888 @ 166043:               AND   
19889 @ 166044:               ASSVAL

  3657    %if y < 0 %start
19890 @ 166045:               LINE   3657 "regression-compile-tmp/imp22g-77.imp"
19891 @ 166085:               PUSH   Y
19892 @ 166088:               PUSHI  #0x00000000
19893 @ 166093:               JUMPIF >= L_0004

  3658      j = litval(y)
19894 @ 166097:               LINE   3658 "regression-compile-tmp/imp22g-77.imp"
19895 @ 166137:               PUSH   J
19896 @ 166140:               PUSH   LITVAL
19897 @ 166143:               PUSH   Y
19898 @ 166146:               ASSPAR
19899 @ 166147:               CALL  
19900 @ 166148:               ASSVAL

  3659      i = j&(j-1)
19901 @ 166149:               LINE   3659 "regression-compile-tmp/imp22g-77.imp"
19902 @ 166189:               PUSH   I
19903 @ 166192:               PUSH   J
19904 @ 166195:               PUSH   J
19905 @ 166198:               PUSHI  #0x00000001
19906 @ 166203:               SUB   
19907 @ 166204:               AND   
19908 @ 166205:               ASSVAL

  3660      %if i = 0 %or i&(i-1) = 0 %start
19909 @ 166206:               LINE   3660 "regression-compile-tmp/imp22g-77.imp"
19910 @ 166246:               PUSH   I
19911 @ 166249:               PUSHI  #0x00000000
19912 @ 166254:               JUMPIF = L_0008
19913 @ 166258:               PUSH   I
19914 @ 166261:               PUSH   I
19915 @ 166264:               PUSHI  #0x00000001
19916 @ 166269:               SUB   
19917 @ 166270:               AND   
19918 @ 166271:               PUSHI  #0x00000000
19919 @ 166276:               JUMPIF # L_0007
19920 @ 166280:               LOCATE L_0008

  3661        eval(x,rset&free)
19921 @ 166283:               LINE   3661 "regression-compile-tmp/imp22g-77.imp"
19922 @ 166323:               PUSH   EVAL
19923 @ 166326:               PUSH   X
19924 @ 166329:               ASSPAR
19925 @ 166330:               PUSH   RSET
19926 @ 166333:               PUSH   FREE
19927 @ 166336:               AND   
19928 @ 166337:               ASSPAR
19929 @ 166338:               CALL  

  3662        do shift %if j&1 = 0
19930 @ 166339:               LINE   3662 "regression-compile-tmp/imp22g-77.imp"
19931 @ 166379:               PUSH   J
19932 @ 166382:               PUSHI  #0x00000001
19933 @ 166387:               AND   
19934 @ 166388:               PUSHI  #0x00000000
19935 @ 166393:               JUMPIF # L_000a
19936 @ 166397:               PUSH   DOSHIFT
19937 @ 166400:               CALL  
19938 @ 166401:               LOCATE L_000a

  3663        %if j # 1 %start
19939 @ 166404:               LINE   3663 "regression-compile-tmp/imp22g-77.imp"
19940 @ 166444:               PUSH   J
19941 @ 166447:               PUSHI  #0x00000001
19942 @ 166452:               JUMPIF = L_000a

  3664          plant(move,x,prea7)
19943 @ 166456:               LINE   3664 "regression-compile-tmp/imp22g-77.imp"
19944 @ 166496:               PUSH   PLANT
19945 @ 166499:               PUSHI  #0x00000001
19946 @ 166504:               ASSPAR
19947 @ 166505:               PUSH   X
19948 @ 166508:               ASSPAR
19949 @ 166509:               PUSHI  #0x00000028
19950 @ 166514:               ASSPAR
19951 @ 166515:               CALL  

  3665          do shift
19952 @ 166516:               LINE   3665 "regression-compile-tmp/imp22g-77.imp"
19953 @ 166556:               PUSH   DOSHIFT
19954 @ 166559:               CALL  

  3666          plant(add,posta7,x)
19955 @ 166560:               LINE   3666 "regression-compile-tmp/imp22g-77.imp"
19956 @ 166600:               PUSH   PLANT
19957 @ 166603:               PUSHI  #0x00000002
19958 @ 166608:               ASSPAR
19959 @ 166609:               PUSHI  #0x00000020
19960 @ 166614:               ASSPAR
19961 @ 166615:               PUSH   X
19962 @ 166618:               ASSPAR
19963 @ 166619:               CALL  

  3667        %finish
19964 @ 166620:               LINE   3667 "regression-compile-tmp/imp22g-77.imp"
19965 @ 166660:               LOCATE L_000a

  3668        ->fin2
19966 @ 166663:               LINE   3668 "regression-compile-tmp/imp22g-77.imp"
19967 @ 166703:               JUMP   L_018b

  3669      %finish
19968 @ 166706:               LINE   3669 "regression-compile-tmp/imp22g-77.imp"
19969 @ 166746:               LOCATE L_0007

  3670    %finish
19970 @ 166749:               LINE   3670 "regression-compile-tmp/imp22g-77.imp"
19971 @ 166789:               LOCATE L_0004

  3671  do(fsub): do(fdiv):
19972 @ 166792:               LINE   3671 "regression-compile-tmp/imp22g-77.imp"
19973 @ 166832:               PUSHI  #0x0000005b
19974 @ 166837:               SLABEL 327
19975 @ 166840:               LINE   3671 "regression-compile-tmp/imp22g-77.imp"
19976 @ 166880:               PUSHI  #0x0000005d
19977 @ 166885:               SLABEL 327

  3672  do(ipow): do(fpow):
19978 @ 166888:               LINE   3672 "regression-compile-tmp/imp22g-77.imp"
19979 @ 166928:               PUSHI  #0x00000058
19980 @ 166933:               SLABEL 327
19981 @ 166936:               LINE   3672 "regression-compile-tmp/imp22g-77.imp"
19982 @ 166976:               PUSHI  #0x0000005e
19983 @ 166981:               SLABEL 327

  3673  do(fadd): do(fmul):
19984 @ 166984:               LINE   3673 "regression-compile-tmp/imp22g-77.imp"
19985 @ 167024:               PUSHI  #0x0000005a
19986 @ 167029:               SLABEL 327
19987 @ 167032:               LINE   3673 "regression-compile-tmp/imp22g-77.imp"
19988 @ 167072:               PUSHI  #0x0000005c
19989 @ 167077:               SLABEL 327

  3674    evalxy
19990 @ 167080:               LINE   3674 "regression-compile-tmp/imp22g-77.imp"
19991 @ 167120:               PUSH   EVALXY
19992 @ 167123:               CALL  

  3675    srcall(act)
19993 @ 167124:               LINE   3675 "regression-compile-tmp/imp22g-77.imp"
19994 @ 167164:               PUSH   SRCALL
19995 @ 167167:               PUSH   ACT
19996 @ 167170:               ASSPAR
19997 @ 167171:               CALL  

  3676    plant(trapv,0,0) %if act = imul %and control&overbit # 0
19998 @ 167172:               LINE   3676 "regression-compile-tmp/imp22g-77.imp"
19999 @ 167212:               PUSH   ACT
20000 @ 167215:               PUSHI  #0x00000056
20001 @ 167220:               JUMPIF # L_0004
20002 @ 167224:               PUSH   CONTROL
20003 @ 167227:               PUSHI  #0x10000000
20004 @ 167232:               AND   
20005 @ 167233:               PUSHI  #0x00000000
20006 @ 167238:               JUMPIF = L_0004
20007 @ 167242:               PUSH   PLANT
20008 @ 167245:               PUSHI  #0x00000046
20009 @ 167250:               ASSPAR
20010 @ 167251:               PUSHI  #0x00000000
20011 @ 167256:               ASSPAR
20012 @ 167257:               PUSHI  #0x00000000
20013 @ 167262:               ASSPAR
20014 @ 167263:               CALL  
20015 @ 167264:               LOCATE L_0004

  3677    forget(d1);  r = d0
20016 @ 167267:               LINE   3677 "regression-compile-tmp/imp22g-77.imp"
20017 @ 167307:               PUSH   FORGET
20018 @ 167310:               PUSHI  #0x00000002
20019 @ 167315:               ASSPAR
20020 @ 167316:               CALL  
20021 @ 167317:               LINE   3677 "regression-compile-tmp/imp22g-77.imp"
20022 @ 167357:               PUSH   R
20023 @ 167360:               PUSHI  #0x00000001
20024 @ 167365:               ASSVAL

  3678    forget cc
20025 @ 167366:               LINE   3678 "regression-compile-tmp/imp22g-77.imp"
20026 @ 167406:               PUSH   FORGETCC
20027 @ 167409:               CALL  

  3679    -> endloadr
  3680  
20028 @ 167410:               LINE   3679 "regression-compile-tmp/imp22g-77.imp"
20029 @ 167450:               JUMP   L_0183

  3681  do(idiv): do(drem):
20030 @ 167453:               LINE   3681 "regression-compile-tmp/imp22g-77.imp"
20031 @ 167493:               PUSHI  #0x00000057
20032 @ 167498:               SLABEL 327
20033 @ 167501:               LINE   3681 "regression-compile-tmp/imp22g-77.imp"
20034 @ 167541:               PUSHI  #0x00000062
20035 @ 167546:               SLABEL 327

  3682    %if control&halfbit # 0 %start
20036 @ 167549:               LINE   3682 "regression-compile-tmp/imp22g-77.imp"
20037 @ 167589:               PUSH   CONTROL
20038 @ 167592:               PUSHI  #0x00008000
20039 @ 167597:               AND   
20040 @ 167598:               PUSHI  #0x00000000
20041 @ 167603:               JUMPIF = L_0004

  3683      act = divs %if act = idiv
20042 @ 167607:               LINE   3683 "regression-compile-tmp/imp22g-77.imp"
20043 @ 167647:               PUSH   ACT
20044 @ 167650:               PUSHI  #0x00000057
20045 @ 167655:               JUMPIF # L_0007
20046 @ 167659:               PUSH   ACT
20047 @ 167662:               PUSHI  #0x0000000d
20048 @ 167667:               ASSVAL
20049 @ 167668:               LOCATE L_0007

  3684  do(divs): do(divu):
20050 @ 167671:               LINE   3684 "regression-compile-tmp/imp22g-77.imp"
20051 @ 167711:               PUSHI  #0x0000000d
20052 @ 167716:               SLABEL 327
20053 @ 167719:               LINE   3684 "regression-compile-tmp/imp22g-77.imp"
20054 @ 167759:               PUSHI  #0x0000000f
20055 @ 167764:               SLABEL 327

  3685      -> dataload %if rset&(\(anyareg!bregb)) = 0
20056 @ 167767:               LINE   3685 "regression-compile-tmp/imp22g-77.imp"
20057 @ 167807:               PUSH   RSET
20058 @ 167810:               PUSHI  #0x0000ff00
20059 @ 167815:               PUSHI  #0x00000010
20060 @ 167820:               OR    
20061 @ 167821:               NOT   
20062 @ 167822:               AND   
20063 @ 167823:               PUSHI  #0x00000000
20064 @ 167828:               JUMPIF # L_0007
20065 @ 167832:               JUMP   L_017a
20066 @ 167835:               LOCATE L_0007

  3686      rset = rset&(\(anyareg!bregb))
20067 @ 167838:               LINE   3686 "regression-compile-tmp/imp22g-77.imp"
20068 @ 167878:               PUSH   RSET
20069 @ 167881:               PUSH   RSET
20070 @ 167884:               PUSHI  #0x0000ff00
20071 @ 167889:               PUSHI  #0x00000010
20072 @ 167894:               OR    
20073 @ 167895:               NOT   
20074 @ 167896:               AND   
20075 @ 167897:               ASSVAL

  3687      eval(x,rset&free)
20076 @ 167898:               LINE   3687 "regression-compile-tmp/imp22g-77.imp"
20077 @ 167938:               PUSH   EVAL
20078 @ 167941:               PUSH   X
20079 @ 167944:               ASSPAR
20080 @ 167945:               PUSH   RSET
20081 @ 167948:               PUSH   FREE
20082 @ 167951:               AND   
20083 @ 167952:               ASSPAR
20084 @ 167953:               CALL  

  3688      oldfree = free
20085 @ 167954:               LINE   3688 "regression-compile-tmp/imp22g-77.imp"
20086 @ 167994:               PUSH   OLDFREE
20087 @ 167997:               PUSH   FREE
20088 @ 168000:               ASSVAL

  3689      eval(y,anydreg)
20089 @ 168001:               LINE   3689 "regression-compile-tmp/imp22g-77.imp"
20090 @ 168041:               PUSH   EVAL
20091 @ 168044:               PUSH   Y
20092 @ 168047:               ASSPAR
20093 @ 168048:               PUSHI  #0x000000ef
20094 @ 168053:               ASSPAR
20095 @ 168054:               CALL  

  3690      free = oldfree
20096 @ 168055:               LINE   3690 "regression-compile-tmp/imp22g-77.imp"
20097 @ 168095:               PUSH   FREE
20098 @ 168098:               PUSH   OLDFREE
20099 @ 168101:               ASSVAL

  3691      %if act = drem %then plant(divs,y,x) %and plant(swap,0,x) %c
  3692      %else plant(act,y,x)
20100 @ 168102:               LINE   3691 "regression-compile-tmp/imp22g-77.imp"
20101 @ 168142:               PUSH   ACT
20102 @ 168145:               PUSHI  #0x00000062
20103 @ 168150:               JUMPIF # L_0007
20104 @ 168154:               PUSH   PLANT
20105 @ 168157:               PUSHI  #0x0000000d
20106 @ 168162:               ASSPAR
20107 @ 168163:               PUSH   Y
20108 @ 168166:               ASSPAR
20109 @ 168167:               PUSH   X
20110 @ 168170:               ASSPAR
20111 @ 168171:               CALL  
20112 @ 168172:               PUSH   PLANT
20113 @ 168175:               PUSHI  #0x0000004a
20114 @ 168180:               ASSPAR
20115 @ 168181:               PUSHI  #0x00000000
20116 @ 168186:               ASSPAR
20117 @ 168187:               PUSH   X
20118 @ 168190:               ASSPAR
20119 @ 168191:               CALL  
20120 @ 168192:               GOTO   L_0006
20121 @ 168195:               LOCATE L_0007
20122 @ 168198:               PUSH   PLANT
20123 @ 168201:               PUSH   ACT
20124 @ 168204:               ASSPAR
20125 @ 168205:               PUSH   Y
20126 @ 168208:               ASSPAR
20127 @ 168209:               PUSH   X
20128 @ 168212:               ASSPAR
20129 @ 168213:               CALL  
20130 @ 168214:               LOCATE L_0006

  3693      plant(extl,0,x)
20131 @ 168217:               LINE   3693 "regression-compile-tmp/imp22g-77.imp"
20132 @ 168257:               PUSH   PLANT
20133 @ 168260:               PUSHI  #0x0000004c
20134 @ 168265:               ASSPAR
20135 @ 168266:               PUSHI  #0x00000000
20136 @ 168271:               ASSPAR
20137 @ 168272:               PUSH   X
20138 @ 168275:               ASSPAR
20139 @ 168276:               CALL  

  3694      -> fin3
20140 @ 168277:               LINE   3694 "regression-compile-tmp/imp22g-77.imp"
20141 @ 168317:               JUMP   L_018a

  3695    %finish
20142 @ 168320:               LINE   3695 "regression-compile-tmp/imp22g-77.imp"
20143 @ 168360:               LOCATE L_0004

  3696    evalxy
20144 @ 168363:               LINE   3696 "regression-compile-tmp/imp22g-77.imp"
20145 @ 168403:               PUSH   EVALXY
20146 @ 168406:               CALL  

  3697    srcall(idiv)
20147 @ 168407:               LINE   3697 "regression-compile-tmp/imp22g-77.imp"
20148 @ 168447:               PUSH   SRCALL
20149 @ 168450:               PUSHI  #0x00000057
20150 @ 168455:               ASSPAR
20151 @ 168456:               CALL  

  3698    putexp(act!!(idiv!!drem),xx,yy,inttype)
20152 @ 168457:               LINE   3698 "regression-compile-tmp/imp22g-77.imp"
20153 @ 168497:               PUSH   PUTEXP
20154 @ 168500:               PUSH   ACT
20155 @ 168503:               PUSHI  #0x00000057
20156 @ 168508:               PUSHI  #0x00000062
20157 @ 168513:               XOR   
20158 @ 168514:               XOR   
20159 @ 168515:               ASSPAR
20160 @ 168516:               PUSH   XX
20161 @ 168519:               ASSPAR
20162 @ 168520:               PUSH   YY
20163 @ 168523:               ASSPAR
20164 @ 168524:               PUSHI  #0x0000002b
20165 @ 168529:               ASSPAR
20166 @ 168530:               CALL  

  3699    %if act = idiv %start
20167 @ 168531:               LINE   3699 "regression-compile-tmp/imp22g-77.imp"
20168 @ 168571:               PUSH   ACT
20169 @ 168574:               PUSHI  #0x00000057
20170 @ 168579:               JUMPIF # L_0004

  3700      c_reg_content(d1) = item;  r = d0
20171 @ 168583:               LINE   3700 "regression-compile-tmp/imp22g-77.imp"
20172 @ 168623:               PUSH   C
20173 @ 168626:               SELECT 30
20174 @ 168629:               SELECT 4
20175 @ 168632:               PUSHI  #0x00000002
20176 @ 168637:               ACCESS
20177 @ 168638:               PUSH   ITEM
20178 @ 168641:               ASSVAL
20179 @ 168642:               LINE   3700 "regression-compile-tmp/imp22g-77.imp"
20180 @ 168682:               PUSH   R
20181 @ 168685:               PUSHI  #0x00000001
20182 @ 168690:               ASSVAL

  3701    %else
20183 @ 168691:               LINE   3701 "regression-compile-tmp/imp22g-77.imp"
20184 @ 168731:               GOTO   L_0003
20185 @ 168734:               LOCATE L_0004

  3702      c_reg_content(d0) = item;  r = d1
20186 @ 168737:               LINE   3702 "regression-compile-tmp/imp22g-77.imp"
20187 @ 168777:               PUSH   C
20188 @ 168780:               SELECT 30
20189 @ 168783:               SELECT 4
20190 @ 168786:               PUSHI  #0x00000001
20191 @ 168791:               ACCESS
20192 @ 168792:               PUSH   ITEM
20193 @ 168795:               ASSVAL
20194 @ 168796:               LINE   3702 "regression-compile-tmp/imp22g-77.imp"
20195 @ 168836:               PUSH   R
20196 @ 168839:               PUSHI  #0x00000002
20197 @ 168844:               ASSVAL

  3703    %finish
20198 @ 168845:               LINE   3703 "regression-compile-tmp/imp22g-77.imp"
20199 @ 168885:               LOCATE L_0003

  3704    forget cc
20200 @ 168888:               LINE   3704 "regression-compile-tmp/imp22g-77.imp"
20201 @ 168928:               PUSH   FORGETCC
20202 @ 168931:               CALL  

  3705    ->endloadr
  3706  
20203 @ 168932:               LINE   3705 "regression-compile-tmp/imp22g-77.imp"
20204 @ 168972:               JUMP   L_0183

  3707  do(float):
20205 @ 168975:               LINE   3707 "regression-compile-tmp/imp22g-77.imp"
20206 @ 169015:               PUSHI  #0x0000005f
20207 @ 169020:               SLABEL 327

  3708  do(fneg):
20208 @ 169023:               LINE   3708 "regression-compile-tmp/imp22g-77.imp"
20209 @ 169063:               PUSHI  #0x00000059
20210 @ 169068:               SLABEL 327

  3709    commandeer(d0b)
20211 @ 169071:               LINE   3709 "regression-compile-tmp/imp22g-77.imp"
20212 @ 169111:               PUSH   COMMANDEER
20213 @ 169114:               PUSHI  #0x00000001
20214 @ 169119:               ASSPAR
20215 @ 169120:               CALL  

  3710    eval(x,d0b)
20216 @ 169121:               LINE   3710 "regression-compile-tmp/imp22g-77.imp"
20217 @ 169161:               PUSH   EVAL
20218 @ 169164:               PUSH   X
20219 @ 169167:               ASSPAR
20220 @ 169168:               PUSHI  #0x00000001
20221 @ 169173:               ASSPAR
20222 @ 169174:               CALL  

  3711    srcall(act)
20223 @ 169175:               LINE   3711 "regression-compile-tmp/imp22g-77.imp"
20224 @ 169215:               PUSH   SRCALL
20225 @ 169218:               PUSH   ACT
20226 @ 169221:               ASSPAR
20227 @ 169222:               CALL  

  3712    forget cc
20228 @ 169223:               LINE   3712 "regression-compile-tmp/imp22g-77.imp"
20229 @ 169263:               PUSH   FORGETCC
20230 @ 169266:               CALL  

  3713    r = d0
20231 @ 169267:               LINE   3713 "regression-compile-tmp/imp22g-77.imp"
20232 @ 169307:               PUSH   R
20233 @ 169310:               PUSHI  #0x00000001
20234 @ 169315:               ASSVAL

  3714    ->endloadr
  3715  
20235 @ 169316:               LINE   3714 "regression-compile-tmp/imp22g-77.imp"
20236 @ 169356:               JUMP   L_0183

  3716  do(concat):      !not special case
  3717  ![they have to be free]  commandeer(d0b+bregb+a0b+a1b+a2b)
20237 @ 169359:               LINE   3716 "regression-compile-tmp/imp22g-77.imp"
20238 @ 169399:               PUSHI  #0x0000006a
20239 @ 169404:               SLABEL 327

  3718    fault(plexerr) %if free&(a0b+a1b+a2b+d0b+bregb) # a0b+a1b+a2b+d0b+bregb
20240 @ 169407:               LINE   3718 "regression-compile-tmp/imp22g-77.imp"
20241 @ 169447:               PUSH   FREE
20242 @ 169450:               PUSHI  #0x00000100
20243 @ 169455:               PUSHI  #0x00000200
20244 @ 169460:               ADD   
20245 @ 169461:               PUSHI  #0x00000400
20246 @ 169466:               ADD   
20247 @ 169467:               PUSHI  #0x00000001
20248 @ 169472:               ADD   
20249 @ 169473:               PUSHI  #0x00000010
20250 @ 169478:               ADD   
20251 @ 169479:               AND   
20252 @ 169480:               PUSHI  #0x00000100
20253 @ 169485:               PUSHI  #0x00000200
20254 @ 169490:               ADD   
20255 @ 169491:               PUSHI  #0x00000400
20256 @ 169496:               ADD   
20257 @ 169497:               PUSHI  #0x00000001
20258 @ 169502:               ADD   
20259 @ 169503:               PUSHI  #0x00000010
20260 @ 169508:               ADD   
20261 @ 169509:               JUMPIF = L_0004
20262 @ 169513:               PUSH   FAULT
20263 @ 169516:               PUSHI  #0x00000002
20264 @ 169521:               ASSPAR
20265 @ 169522:               CALL  
20266 @ 169523:               LOCATE L_0004

  3719    stackop(-256)
20267 @ 169526:               LINE   3719 "regression-compile-tmp/imp22g-77.imp"
20268 @ 169566:               PUSH   STACKOP
20269 @ 169569:               PUSHI  #0x00000100
20270 @ 169574:               NEGATE
20271 @ 169575:               ASSPAR
20272 @ 169576:               CALL  

  3720  endconc:
20273 @ 169577:               LINE   3720 "regression-compile-tmp/imp22g-77.imp"
20274 @ 169617:               LABEL  L_018d

  3721    %if rset&tostack = 0 %start
20275 @ 169620:               LINE   3721 "regression-compile-tmp/imp22g-77.imp"
20276 @ 169660:               PUSH   RSET
20277 @ 169663:               PUSHI  #0x00080000
20278 @ 169668:               AND   
20279 @ 169669:               PUSHI  #0x00000000
20280 @ 169674:               JUMPIF # L_0004

  3722      %if c_sp # sp %start
20281 @ 169678:               LINE   3722 "regression-compile-tmp/imp22g-77.imp"
20282 @ 169718:               PUSH   C
20283 @ 169721:               SELECT 1
20284 @ 169724:               PUSH   SP
20285 @ 169727:               JUMPIF = L_0007

  3723        addimm(sp-c_sp,a7);  c_sp = sp
20286 @ 169731:               LINE   3723 "regression-compile-tmp/imp22g-77.imp"
20287 @ 169771:               PUSH   ADDIMM
20288 @ 169774:               PUSH   SP
20289 @ 169777:               PUSH   C
20290 @ 169780:               SELECT 1
20291 @ 169783:               SUB   
20292 @ 169784:               ASSPAR
20293 @ 169785:               PUSHI  #0x00000010
20294 @ 169790:               ASSPAR
20295 @ 169791:               CALL  
20296 @ 169792:               LINE   3723 "regression-compile-tmp/imp22g-77.imp"
20297 @ 169832:               PUSH   C
20298 @ 169835:               SELECT 1
20299 @ 169838:               PUSH   SP
20300 @ 169841:               ASSVAL

  3724      %finish
20301 @ 169842:               LINE   3724 "regression-compile-tmp/imp22g-77.imp"
20302 @ 169882:               LOCATE L_0007

  3725    %finish %else rset = a0b
20303 @ 169885:               LINE   3725 "regression-compile-tmp/imp22g-77.imp"
20304 @ 169925:               GOTO   L_0003
20305 @ 169928:               LOCATE L_0004
20306 @ 169931:               PUSH   RSET
20307 @ 169934:               PUSHI  #0x00000100
20308 @ 169939:               ASSVAL
20309 @ 169940:               LOCATE L_0003

  3726    r = a0
20310 @ 169943:               LINE   3726 "regression-compile-tmp/imp22g-77.imp"
20311 @ 169983:               PUSH   R
20312 @ 169986:               PUSHI  #0x00000009
20313 @ 169991:               ASSVAL

  3727    ->endloadr
  3728  
  3729  !!!!!!!!!!!!!!!!!!!!!   Conditions   !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  3730  
20314 @ 169992:               LINE   3727 "regression-compile-tmp/imp22g-77.imp"
20315 @ 170032:               JUMP   L_0183

  3731  %routine CONDSWOP
  3732  !Swop condition operands, adjusting operator accordingly
20316 @ 170035:               LINE   3731 "regression-compile-tmp/imp22g-77.imp"
20317 @ 170075:               DEF    CONDSWOP (_lev0id0_EVAL_CONDSWOP) p1=V_018e 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
20318 @ 170095:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
20319 @ 170096:                  FINISH ) {lev=3}

  3733  %integer temp
20320 @ 170097:                  LINE   3733 "regression-compile-tmp/imp22g-77.imp"
20321 @ 170137:                  DEF    TEMP p1=V_018f a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  3734    temp = x;  x = y;  y = temp
20322 @ 170153:                  LINE   3734 "regression-compile-tmp/imp22g-77.imp"
20323 @ 170193:                  PUSH   TEMP
20324 @ 170196:                  PUSH   X
20325 @ 170199:                  ASSVAL
20326 @ 170200:                  LINE   3734 "regression-compile-tmp/imp22g-77.imp"
20327 @ 170240:                  PUSH   X
20328 @ 170243:                  PUSH   Y
20329 @ 170246:                  ASSVAL
20330 @ 170247:                  LINE   3734 "regression-compile-tmp/imp22g-77.imp"
20331 @ 170287:                  PUSH   Y
20332 @ 170290:                  PUSH   TEMP
20333 @ 170293:                  ASSVAL

  3735    temp = xx;  xx = yy;  yy = temp
20334 @ 170294:                  LINE   3735 "regression-compile-tmp/imp22g-77.imp"
20335 @ 170334:                  PUSH   TEMP
20336 @ 170337:                  PUSH   XX
20337 @ 170340:                  ASSVAL
20338 @ 170341:                  LINE   3735 "regression-compile-tmp/imp22g-77.imp"
20339 @ 170381:                  PUSH   XX
20340 @ 170384:                  PUSH   YY
20341 @ 170387:                  ASSVAL
20342 @ 170388:                  LINE   3735 "regression-compile-tmp/imp22g-77.imp"
20343 @ 170428:                  PUSH   YY
20344 @ 170431:                  PUSH   TEMP
20345 @ 170434:                  ASSVAL

  3736    temp = sx;  sx = sy;  sy = temp
20346 @ 170435:                  LINE   3736 "regression-compile-tmp/imp22g-77.imp"
20347 @ 170475:                  PUSH   TEMP
20348 @ 170478:                  PUSH   SX
20349 @ 170481:                  ASSVAL
20350 @ 170482:                  LINE   3736 "regression-compile-tmp/imp22g-77.imp"
20351 @ 170522:                  PUSH   SX
20352 @ 170525:                  PUSH   SY
20353 @ 170528:                  ASSVAL
20354 @ 170529:                  LINE   3736 "regression-compile-tmp/imp22g-77.imp"
20355 @ 170569:                  PUSH   SY
20356 @ 170572:                  PUSH   TEMP
20357 @ 170575:                  ASSVAL

  3737    temp = wx;  wx = wy;  wy = temp
20358 @ 170576:                  LINE   3737 "regression-compile-tmp/imp22g-77.imp"
20359 @ 170616:                  PUSH   TEMP
20360 @ 170619:                  PUSH   WX
20361 @ 170622:                  ASSVAL
20362 @ 170623:                  LINE   3737 "regression-compile-tmp/imp22g-77.imp"
20363 @ 170663:                  PUSH   WX
20364 @ 170666:                  PUSH   WY
20365 @ 170669:                  ASSVAL
20366 @ 170670:                  LINE   3737 "regression-compile-tmp/imp22g-77.imp"
20367 @ 170710:                  PUSH   WY
20368 @ 170713:                  PUSH   TEMP
20369 @ 170716:                  ASSVAL

  3738    case = case!!3 %if case&8 # 0;  !no change for '=','#'
20370 @ 170717:                  LINE   3738 "regression-compile-tmp/imp22g-77.imp"
20371 @ 170757:                  PUSH   CASE
20372 @ 170760:                  PUSHI  #0x00000008
20373 @ 170765:                  AND   
20374 @ 170766:                  PUSHI  #0x00000000
20375 @ 170771:                  JUMPIF = L_0004
20376 @ 170775:                  PUSH   CASE
20377 @ 170778:                  PUSH   CASE
20378 @ 170781:                  PUSHI  #0x00000003
20379 @ 170786:                  XOR   
20380 @ 170787:                  ASSVAL
20381 @ 170788:                  LOCATE L_0004

  3739  %end
  3740  
20382 @ 170791:                  LINE   3739 "regression-compile-tmp/imp22g-77.imp"
20383 @ 170831:               END    _lev0id0_EVAL_CONDSWOP {lev=3 --> 2}

  3741  %routine UNSIGNED
20384 @ 170832:               LINE   3741 "regression-compile-tmp/imp22g-77.imp"
20385 @ 170872:               DEF    UNSIGNED (_lev0id0_EVAL_UNSIGNED) p1=V_018f 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
20386 @ 170892:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
20387 @ 170893:                  FINISH ) {lev=3}

  3742    %if case&8 # 0 %start;  !no change for '=','#'
20388 @ 170894:                  LINE   3742 "regression-compile-tmp/imp22g-77.imp"
20389 @ 170934:                  PUSH   CASE
20390 @ 170937:                  PUSHI  #0x00000008
20391 @ 170942:                  AND   
20392 @ 170943:                  PUSHI  #0x00000000
20393 @ 170948:                  JUMPIF = L_0004

  3743      case = case!!8
20394 @ 170952:                  LINE   3743 "regression-compile-tmp/imp22g-77.imp"
20395 @ 170992:                  PUSH   CASE
20396 @ 170995:                  PUSH   CASE
20397 @ 170998:                  PUSHI  #0x00000008
20398 @ 171003:                  XOR   
20399 @ 171004:                  ASSVAL

  3744      case = case!!4 %if case&2 # 0
20400 @ 171005:                  LINE   3744 "regression-compile-tmp/imp22g-77.imp"
20401 @ 171045:                  PUSH   CASE
20402 @ 171048:                  PUSHI  #0x00000002
20403 @ 171053:                  AND   
20404 @ 171054:                  PUSHI  #0x00000000
20405 @ 171059:                  JUMPIF = L_0007
20406 @ 171063:                  PUSH   CASE
20407 @ 171066:                  PUSH   CASE
20408 @ 171069:                  PUSHI  #0x00000004
20409 @ 171074:                  XOR   
20410 @ 171075:                  ASSVAL
20411 @ 171076:                  LOCATE L_0007

  3745    %finish
20412 @ 171079:                  LINE   3745 "regression-compile-tmp/imp22g-77.imp"
20413 @ 171119:                  LOCATE L_0004

  3746  %end
  3747  
  3748  ![Some confusion here of which operand (weightier) to evaluate first
  3749  ![                   and which to bring to register
  3750  ![EVAL improvements make possible greater finesse:
  3751  ![               1. Decide which to evaluate first (weightier)
  3752  ![               2. EVAL both 'val'
  3753  ![               3. If either in register, OK
  3754  ![               4. Load one
  3755  ![*for IMP, conditions cannot be embedded in other expressions;
  3756  ![*for Pascal, they can.  This needs improvement to cover that.
20414 @ 171122:                  LINE   3746 "regression-compile-tmp/imp22g-77.imp"
20415 @ 171162:               END    _lev0id0_EVAL_UNSIGNED {lev=3 --> 2}

  3757  do(compare):
20416 @ 171163:               LINE   3757 "regression-compile-tmp/imp22g-77.imp"
20417 @ 171203:               PUSHI  #0x00000004
20418 @ 171208:               SLABEL 327

  3758    flush %if pendcond # 0
20419 @ 171211:               LINE   3758 "regression-compile-tmp/imp22g-77.imp"
20420 @ 171251:               PUSH   PENDCOND
20421 @ 171254:               PUSHI  #0x00000000
20422 @ 171259:               JUMPIF = L_0004
20423 @ 171263:               PUSH   FLUSH
20424 @ 171266:               CALL  
20425 @ 171267:               LOCATE L_0004

  3759    update sp
20426 @ 171270:               LINE   3759 "regression-compile-tmp/imp22g-77.imp"
20427 @ 171310:               PUSH   UPDATESP
20428 @ 171313:               CALL  

  3760    sp = c_sp
20429 @ 171314:               LINE   3760 "regression-compile-tmp/imp22g-77.imp"
20430 @ 171354:               PUSH   SP
20431 @ 171357:               PUSH   C
20432 @ 171360:               SELECT 1
20433 @ 171363:               ASSVAL

  3761    pp = pp+1;  dp == dict(pp)
20434 @ 171364:               LINE   3761 "regression-compile-tmp/imp22g-77.imp"
20435 @ 171404:               PUSH   PP
20436 @ 171407:               PUSH   PP
20437 @ 171410:               PUSHI  #0x00000001
20438 @ 171415:               ADD   
20439 @ 171416:               ASSVAL
20440 @ 171417:               LINE   3761 "regression-compile-tmp/imp22g-77.imp"
20441 @ 171457:               PUSH   DP
20442 @ 171460:               PUSH   DICT
20443 @ 171463:               PUSH   PP
20444 @ 171466:               ACCESS
20445 @ 171467:               ASSREF

  3762    case = dp_act
20446 @ 171468:               LINE   3762 "regression-compile-tmp/imp22g-77.imp"
20447 @ 171508:               PUSH   CASE
20448 @ 171511:               PUSH   DP
20449 @ 171514:               SELECT 6
20450 @ 171517:               ASSVAL

  3763    %if x <= 0 %start;  ![1st literal: only for true,false]
20451 @ 171518:               LINE   3763 "regression-compile-tmp/imp22g-77.imp"
20452 @ 171558:               PUSH   X
20453 @ 171561:               PUSHI  #0x00000000
20454 @ 171566:               JUMPIF > L_0004

  3764      case = case!!1 %if x = 0;  !invert for false
20455 @ 171570:               LINE   3764 "regression-compile-tmp/imp22g-77.imp"
20456 @ 171610:               PUSH   X
20457 @ 171613:               PUSHI  #0x00000000
20458 @ 171618:               JUMPIF # L_0007
20459 @ 171622:               PUSH   CASE
20460 @ 171625:               PUSH   CASE
20461 @ 171628:               PUSHI  #0x00000001
20462 @ 171633:               XOR   
20463 @ 171634:               ASSVAL
20464 @ 171635:               LOCATE L_0007

  3765      pendcond = case&1+bra
20465 @ 171638:               LINE   3765 "regression-compile-tmp/imp22g-77.imp"
20466 @ 171678:               PUSH   PENDCOND
20467 @ 171681:               PUSH   CASE
20468 @ 171684:               PUSHI  #0x00000001
20469 @ 171689:               AND   
20470 @ 171690:               PUSHI  #0x00000010
20471 @ 171695:               ADD   
20472 @ 171696:               ASSVAL

  3766      -> endcomp
20473 @ 171697:               LINE   3766 "regression-compile-tmp/imp22g-77.imp"
20474 @ 171737:               JUMP   L_0190

  3767    %finish
20475 @ 171740:               LINE   3767 "regression-compile-tmp/imp22g-77.imp"
20476 @ 171780:               LOCATE L_0004

  3768    %if x >= explim %start;        !address
20477 @ 171783:               LINE   3768 "regression-compile-tmp/imp22g-77.imp"
20478 @ 171823:               PUSH   X
20479 @ 171826:               PUSH   EXPLIM
20480 @ 171829:               JUMPIF < L_0004

  3769      dx == dict(x-ad);  sx = 4
20481 @ 171833:               LINE   3769 "regression-compile-tmp/imp22g-77.imp"
20482 @ 171873:               PUSH   DX
20483 @ 171876:               PUSH   DICT
20484 @ 171879:               PUSH   X
20485 @ 171882:               PUSHI  #0x00004000
20486 @ 171887:               SUB   
20487 @ 171888:               ACCESS
20488 @ 171889:               ASSREF
20489 @ 171890:               LINE   3769 "regression-compile-tmp/imp22g-77.imp"
20490 @ 171930:               PUSH   SX
20491 @ 171933:               PUSHI  #0x00000004
20492 @ 171938:               ASSVAL

  3770    %else
20493 @ 171939:               LINE   3770 "regression-compile-tmp/imp22g-77.imp"
20494 @ 171979:               GOTO   L_0003
20495 @ 171982:               LOCATE L_0004

  3771      dx == dict(x)
20496 @ 171985:               LINE   3771 "regression-compile-tmp/imp22g-77.imp"
20497 @ 172025:               PUSH   DX
20498 @ 172028:               PUSH   DICT
20499 @ 172031:               PUSH   X
20500 @ 172034:               ACCESS
20501 @ 172035:               ASSREF

  3772      tx == dict(dx_type);  sx = size(dx_type)
20502 @ 172036:               LINE   3772 "regression-compile-tmp/imp22g-77.imp"
20503 @ 172076:               PUSH   TX
20504 @ 172079:               PUSH   DICT
20505 @ 172082:               PUSH   DX
20506 @ 172085:               SELECT 2
20507 @ 172088:               ACCESS
20508 @ 172089:               ASSREF
20509 @ 172090:               LINE   3772 "regression-compile-tmp/imp22g-77.imp"
20510 @ 172130:               PUSH   SX
20511 @ 172133:               PUSH   SIZE
20512 @ 172136:               PUSH   DX
20513 @ 172139:               SELECT 2
20514 @ 172142:               ASSPAR
20515 @ 172143:               CALL  
20516 @ 172144:               ASSVAL

  3773    %finish
20517 @ 172145:               LINE   3773 "regression-compile-tmp/imp22g-77.imp"
20518 @ 172185:               LOCATE L_0003

  3774    dx_flags = dx_flags!rflag
20519 @ 172188:               LINE   3774 "regression-compile-tmp/imp22g-77.imp"
20520 @ 172228:               PUSH   DX
20521 @ 172231:               SELECT 1
20522 @ 172234:               PUSH   DX
20523 @ 172237:               SELECT 1
20524 @ 172240:               PUSHI  #0x00000020
20525 @ 172245:               OR    
20526 @ 172246:               ASSVAL

  3775    %if y >= explim %or y <= 0 %then sy = 4 %else sy = tsize(y)
20527 @ 172247:               LINE   3775 "regression-compile-tmp/imp22g-77.imp"
20528 @ 172287:               PUSH   Y
20529 @ 172290:               PUSH   EXPLIM
20530 @ 172293:               JUMPIF >= L_0005
20531 @ 172297:               PUSH   Y
20532 @ 172300:               PUSHI  #0x00000000
20533 @ 172305:               JUMPIF > L_0004
20534 @ 172309:               LOCATE L_0005
20535 @ 172312:               PUSH   SY
20536 @ 172315:               PUSHI  #0x00000004
20537 @ 172320:               ASSVAL
20538 @ 172321:               GOTO   L_0003
20539 @ 172324:               LOCATE L_0004
20540 @ 172327:               PUSH   SY
20541 @ 172330:               PUSH   TSIZE
20542 @ 172333:               PUSH   Y
20543 @ 172336:               ASSPAR
20544 @ 172337:               CALL  
20545 @ 172338:               ASSVAL
20546 @ 172339:               LOCATE L_0003

  3776    wx = 0 %and wy = 0 %and condswop %if c_reg_ccx = y %and c_reg_ccy = x
20547 @ 172342:               LINE   3776 "regression-compile-tmp/imp22g-77.imp"
20548 @ 172382:               PUSH   C
20549 @ 172385:               SELECT 30
20550 @ 172388:               SELECT 1
20551 @ 172391:               PUSH   Y
20552 @ 172394:               JUMPIF # L_0004
20553 @ 172398:               PUSH   C
20554 @ 172401:               SELECT 30
20555 @ 172404:               SELECT 2
20556 @ 172407:               PUSH   X
20557 @ 172410:               JUMPIF # L_0004
20558 @ 172414:               PUSH   WX
20559 @ 172417:               PUSHI  #0x00000000
20560 @ 172422:               ASSVAL
20561 @ 172423:               PUSH   WY
20562 @ 172426:               PUSHI  #0x00000000
20563 @ 172431:               ASSVAL
20564 @ 172432:               PUSH   CONDSWOP
20565 @ 172435:               CALL  
20566 @ 172436:               LOCATE L_0004

  3777    %if c_reg_ccx # x %or c_reg_ccy # y %start;  ![???unsigned???]
20567 @ 172439:               LINE   3777 "regression-compile-tmp/imp22g-77.imp"
20568 @ 172479:               PUSH   C
20569 @ 172482:               SELECT 30
20570 @ 172485:               SELECT 1
20571 @ 172488:               PUSH   X
20572 @ 172491:               JUMPIF # L_0005
20573 @ 172495:               PUSH   C
20574 @ 172498:               SELECT 30
20575 @ 172501:               SELECT 2
20576 @ 172504:               PUSH   Y
20577 @ 172507:               JUMPIF = L_0004
20578 @ 172511:               LOCATE L_0005

  3778      %if y # 0 %start;  !not comparison with zero
20579 @ 172514:               LINE   3778 "regression-compile-tmp/imp22g-77.imp"
20580 @ 172554:               PUSH   Y
20581 @ 172557:               PUSHI  #0x00000000
20582 @ 172562:               JUMPIF = L_0007

  3779        wx = weight(x);  wy = weight(y)
20583 @ 172566:               LINE   3779 "regression-compile-tmp/imp22g-77.imp"
20584 @ 172606:               PUSH   WX
20585 @ 172609:               PUSH   WEIGHT
20586 @ 172612:               PUSH   X
20587 @ 172615:               ASSPAR
20588 @ 172616:               CALL  
20589 @ 172617:               ASSVAL
20590 @ 172618:               LINE   3779 "regression-compile-tmp/imp22g-77.imp"
20591 @ 172658:               PUSH   WY
20592 @ 172661:               PUSH   WEIGHT
20593 @ 172664:               PUSH   Y
20594 @ 172667:               ASSPAR
20595 @ 172668:               CALL  
20596 @ 172669:               ASSVAL

  3780        condswop %if wx < 999 %and wy > wx+1
20597 @ 172670:               LINE   3780 "regression-compile-tmp/imp22g-77.imp"
20598 @ 172710:               PUSH   WX
20599 @ 172713:               PUSHI  #0x000003e7
20600 @ 172718:               JUMPIF >= L_000a
20601 @ 172722:               PUSH   WY
20602 @ 172725:               PUSH   WX
20603 @ 172728:               PUSHI  #0x00000001
20604 @ 172733:               ADD   
20605 @ 172734:               JUMPIF <= L_000a
20606 @ 172738:               PUSH   CONDSWOP
20607 @ 172741:               CALL  
20608 @ 172742:               LOCATE L_000a

  3781        %if x >= explim %or y >= explim %start;  !one or other is address
  3782          !swop if Y is not name (to use LEA)
20609 @ 172745:               LINE   3781 "regression-compile-tmp/imp22g-77.imp"
20610 @ 172785:               PUSH   X
20611 @ 172788:               PUSH   EXPLIM
20612 @ 172791:               JUMPIF >= L_000b
20613 @ 172795:               PUSH   Y
20614 @ 172798:               PUSH   EXPLIM
20615 @ 172801:               JUMPIF < L_000a
20616 @ 172805:               LOCATE L_000b

  3783          condswop %if 0 <= y-ad < dictlim %and dict(y-ad)_flags >= 0
20617 @ 172808:               LINE   3783 "regression-compile-tmp/imp22g-77.imp"
20618 @ 172848:               PUSHI  #0x00000000
20619 @ 172853:               PUSH   Y
20620 @ 172856:               PUSHI  #0x00004000
20621 @ 172861:               SUB   
20622 @ 172862:               JUMPIFD > L_000d
20623 @ 172866:               PUSH   DICTLIM
20624 @ 172869:               JUMPIF >= L_000d
20625 @ 172873:               PUSH   DICT
20626 @ 172876:               PUSH   Y
20627 @ 172879:               PUSHI  #0x00004000
20628 @ 172884:               SUB   
20629 @ 172885:               ACCESS
20630 @ 172886:               SELECT 1
20631 @ 172889:               PUSHI  #0x00000000
20632 @ 172894:               JUMPIF < L_000d
20633 @ 172898:               PUSH   CONDSWOP
20634 @ 172901:               CALL  
20635 @ 172902:               LOCATE L_000d

  3784          eval(x,anyareg)
20636 @ 172905:               LINE   3784 "regression-compile-tmp/imp22g-77.imp"
20637 @ 172945:               PUSH   EVAL
20638 @ 172948:               PUSH   X
20639 @ 172951:               ASSPAR
20640 @ 172952:               PUSHI  #0x0000ff00
20641 @ 172957:               ASSPAR
20642 @ 172958:               CALL  

  3785          eval(y,sign+anyareg)
20643 @ 172959:               LINE   3785 "regression-compile-tmp/imp22g-77.imp"
20644 @ 172999:               PUSH   EVAL
20645 @ 173002:               PUSH   Y
20646 @ 173005:               ASSPAR
20647 @ 173006:               PUSHI  #0x80000000
20648 @ 173011:               PUSHI  #0x0000ff00
20649 @ 173016:               ADD   
20650 @ 173017:               ASSPAR
20651 @ 173018:               CALL  

  3786          plant(cmp,y,x)
20652 @ 173019:               LINE   3786 "regression-compile-tmp/imp22g-77.imp"
20653 @ 173059:               PUSH   PLANT
20654 @ 173062:               PUSHI  #0x00000004
20655 @ 173067:               ASSPAR
20656 @ 173068:               PUSH   Y
20657 @ 173071:               ASSPAR
20658 @ 173072:               PUSH   X
20659 @ 173075:               ASSPAR
20660 @ 173076:               CALL  

  3787          c_reg_ccx = xx;  c_reg_ccy = yy
20661 @ 173077:               LINE   3787 "regression-compile-tmp/imp22g-77.imp"
20662 @ 173117:               PUSH   C
20663 @ 173120:               SELECT 30
20664 @ 173123:               SELECT 1
20665 @ 173126:               PUSH   XX
20666 @ 173129:               ASSVAL
20667 @ 173130:               LINE   3787 "regression-compile-tmp/imp22g-77.imp"
20668 @ 173170:               PUSH   C
20669 @ 173173:               SELECT 30
20670 @ 173176:               SELECT 2
20671 @ 173179:               PUSH   YY
20672 @ 173182:               ASSVAL

  3788        %finish %else %if sx > 0 %start;  !simple operand
20673 @ 173183:               LINE   3788 "regression-compile-tmp/imp22g-77.imp"
20674 @ 173223:               GOTO   L_0009
20675 @ 173226:               LOCATE L_000a
20676 @ 173229:               PUSH   SX
20677 @ 173232:               PUSHI  #0x00000000
20678 @ 173237:               JUMPIF <= L_000a

  3789          %if tx_flags&cat = realy %start
20679 @ 173241:               LINE   3789 "regression-compile-tmp/imp22g-77.imp"
20680 @ 173281:               PUSH   TX
20681 @ 173284:               SELECT 1
20682 @ 173287:               PUSHI  #0x0000000f
20683 @ 173292:               AND   
20684 @ 173293:               PUSHI  #0x00000005
20685 @ 173298:               JUMPIF # L_000d

  3790            eval(x,d0b);  eval(y,d1b)
20686 @ 173302:               LINE   3790 "regression-compile-tmp/imp22g-77.imp"
20687 @ 173342:               PUSH   EVAL
20688 @ 173345:               PUSH   X
20689 @ 173348:               ASSPAR
20690 @ 173349:               PUSHI  #0x00000001
20691 @ 173354:               ASSPAR
20692 @ 173355:               CALL  
20693 @ 173356:               LINE   3790 "regression-compile-tmp/imp22g-77.imp"
20694 @ 173396:               PUSH   EVAL
20695 @ 173399:               PUSH   Y
20696 @ 173402:               ASSPAR
20697 @ 173403:               PUSHI  #0x00000002
20698 @ 173408:               ASSPAR
20699 @ 173409:               CALL  

  3791            srcall(fsub)
20700 @ 173410:               LINE   3791 "regression-compile-tmp/imp22g-77.imp"
20701 @ 173450:               PUSH   SRCALL
20702 @ 173453:               PUSHI  #0x0000005b
20703 @ 173458:               ASSPAR
20704 @ 173459:               CALL  

  3792            forget(x)
20705 @ 173460:               LINE   3792 "regression-compile-tmp/imp22g-77.imp"
20706 @ 173500:               PUSH   FORGET
20707 @ 173503:               PUSH   X
20708 @ 173506:               ASSPAR
20709 @ 173507:               CALL  

  3793            c_reg_ccx = xx;  c_reg_ccy = yy
20710 @ 173508:               LINE   3793 "regression-compile-tmp/imp22g-77.imp"
20711 @ 173548:               PUSH   C
20712 @ 173551:               SELECT 30
20713 @ 173554:               SELECT 1
20714 @ 173557:               PUSH   XX
20715 @ 173560:               ASSVAL
20716 @ 173561:               LINE   3793 "regression-compile-tmp/imp22g-77.imp"
20717 @ 173601:               PUSH   C
20718 @ 173604:               SELECT 30
20719 @ 173607:               SELECT 2
20720 @ 173610:               PUSH   YY
20721 @ 173613:               ASSVAL

  3794          %finish %else %if y < 0 %start;         !comparison with literal
20722 @ 173614:               LINE   3794 "regression-compile-tmp/imp22g-77.imp"
20723 @ 173654:               GOTO   L_000c
20724 @ 173657:               LOCATE L_000d
20725 @ 173660:               PUSH   Y
20726 @ 173663:               PUSHI  #0x00000000
20727 @ 173668:               JUMPIF >= L_000d

  3795            %if y >= litmite %start
20728 @ 173672:               LINE   3795 "regression-compile-tmp/imp22g-77.imp"
20729 @ 173712:               PUSH   Y
20730 @ 173715:               PUSHI  #0xffffff01
20731 @ 173720:               JUMPIF < L_0010

  3796              eval(x,val+sx<<sizeshift)
20732 @ 173724:               LINE   3796 "regression-compile-tmp/imp22g-77.imp"
20733 @ 173764:               PUSH   EVAL
20734 @ 173767:               PUSH   X
20735 @ 173770:               ASSPAR
20736 @ 173771:               PUSHI  #0x8000ffff
20737 @ 173776:               PUSH   SX
20738 @ 173779:               PUSHI  #0x00000010
20739 @ 173784:               LSH   
20740 @ 173785:               ADD   
20741 @ 173786:               ASSPAR
20742 @ 173787:               CALL  

  3797              %if (sx = 4 %and free&anydreg # 0) %c
  3798              %or (x > a7 %and dict(x)_mode&63 = pcmode) %start
20743 @ 173788:               LINE   3797 "regression-compile-tmp/imp22g-77.imp"
20744 @ 173828:               PUSH   SX
20745 @ 173831:               PUSHI  #0x00000004
20746 @ 173836:               JUMPIF # L_0015
20747 @ 173840:               PUSH   FREE
20748 @ 173843:               PUSHI  #0x000000ef
20749 @ 173848:               AND   
20750 @ 173849:               PUSHI  #0x00000000
20751 @ 173854:               JUMPIF # L_0014
20752 @ 173858:               LOCATE L_0015
20753 @ 173861:               PUSH   X
20754 @ 173864:               PUSHI  #0x00000010
20755 @ 173869:               JUMPIF <= L_0013
20756 @ 173873:               PUSH   DICT
20757 @ 173876:               PUSH   X
20758 @ 173879:               ACCESS
20759 @ 173880:               SELECT 8
20760 @ 173883:               PUSHI  #0x0000003f
20761 @ 173888:               AND   
20762 @ 173889:               PUSHI  #0x0000003a
20763 @ 173894:               JUMPIF # L_0013
20764 @ 173898:               LOCATE L_0014

  3799                eval(y,anydreg)
20765 @ 173901:               LINE   3799 "regression-compile-tmp/imp22g-77.imp"
20766 @ 173941:               PUSH   EVAL
20767 @ 173944:               PUSH   Y
20768 @ 173947:               ASSPAR
20769 @ 173948:               PUSHI  #0x000000ef
20770 @ 173953:               ASSPAR
20771 @ 173954:               CALL  

  3800                condswop %and sx = sy %unless x <= d7
20772 @ 173955:               LINE   3800 "regression-compile-tmp/imp22g-77.imp"
20773 @ 173995:               PUSH   X
20774 @ 173998:               PUSHI  #0x00000008
20775 @ 174003:               JUMPIF <= L_0016
20776 @ 174007:               PUSH   CONDSWOP
20777 @ 174010:               CALL  
20778 @ 174011:               PUSH   SX
20779 @ 174014:               PUSH   SY
20780 @ 174017:               ASSVAL
20781 @ 174018:               LOCATE L_0016

  3801              %finish
20782 @ 174021:               LINE   3801 "regression-compile-tmp/imp22g-77.imp"
20783 @ 174061:               LOCATE L_0013

  3802            %else
20784 @ 174064:               LINE   3802 "regression-compile-tmp/imp22g-77.imp"
20785 @ 174104:               GOTO   L_000f
20786 @ 174107:               LOCATE L_0010

  3803              sx = 0 %if sx = 1;   ![to ensure comparison fails?]
20787 @ 174110:               LINE   3803 "regression-compile-tmp/imp22g-77.imp"
20788 @ 174150:               PUSH   SX
20789 @ 174153:               PUSHI  #0x00000001
20790 @ 174158:               JUMPIF # L_0013
20791 @ 174162:               PUSH   SX
20792 @ 174165:               PUSHI  #0x00000000
20793 @ 174170:               ASSVAL
20794 @ 174171:               LOCATE L_0013

  3804              eval(x,val+sx<<sizeshift)
20795 @ 174174:               LINE   3804 "regression-compile-tmp/imp22g-77.imp"
20796 @ 174214:               PUSH   EVAL
20797 @ 174217:               PUSH   X
20798 @ 174220:               ASSPAR
20799 @ 174221:               PUSHI  #0x8000ffff
20800 @ 174226:               PUSH   SX
20801 @ 174229:               PUSHI  #0x00000010
20802 @ 174234:               LSH   
20803 @ 174235:               ADD   
20804 @ 174236:               ASSPAR
20805 @ 174237:               CALL  

  3805              sx = 2 %if a0 <= x <= a7 %and is short(litval(y))=TRUE
20806 @ 174238:               LINE   3805 "regression-compile-tmp/imp22g-77.imp"
20807 @ 174278:               PUSHI  #0x00000009
20808 @ 174283:               PUSH   X
20809 @ 174286:               JUMPIFD > L_0013
20810 @ 174290:               PUSHI  #0x00000010
20811 @ 174295:               JUMPIF > L_0013
20812 @ 174299:               PUSH   ISSHORT
20813 @ 174302:               PUSH   LITVAL
20814 @ 174305:               PUSH   Y
20815 @ 174308:               ASSPAR
20816 @ 174309:               CALL  
20817 @ 174310:               ASSPAR
20818 @ 174311:               CALL  
20819 @ 174312:               PUSHI  #0x00000001
20820 @ 174317:               JUMPIF # L_0013
20821 @ 174321:               PUSH   SX
20822 @ 174324:               PUSHI  #0x00000002
20823 @ 174329:               ASSVAL
20824 @ 174330:               LOCATE L_0013

  3806            %finish
20825 @ 174333:               LINE   3806 "regression-compile-tmp/imp22g-77.imp"
20826 @ 174373:               LOCATE L_000f

  3807            plant(cmp+sx<<8,y,x)
20827 @ 174376:               LINE   3807 "regression-compile-tmp/imp22g-77.imp"
20828 @ 174416:               PUSH   PLANT
20829 @ 174419:               PUSHI  #0x00000004
20830 @ 174424:               PUSH   SX
20831 @ 174427:               PUSHI  #0x00000008
20832 @ 174432:               LSH   
20833 @ 174433:               ADD   
20834 @ 174434:               ASSPAR
20835 @ 174435:               PUSH   Y
20836 @ 174438:               ASSPAR
20837 @ 174439:               PUSH   X
20838 @ 174442:               ASSPAR
20839 @ 174443:               CALL  

  3808            unsigned %if sx = 1
20840 @ 174444:               LINE   3808 "regression-compile-tmp/imp22g-77.imp"
20841 @ 174484:               PUSH   SX
20842 @ 174487:               PUSHI  #0x00000001
20843 @ 174492:               JUMPIF # L_0010
20844 @ 174496:               PUSH   UNSIGNED
20845 @ 174499:               CALL  
20846 @ 174500:               LOCATE L_0010

  3809            c_reg_ccx = xx;  c_reg_ccy = yy
20847 @ 174503:               LINE   3809 "regression-compile-tmp/imp22g-77.imp"
20848 @ 174543:               PUSH   C
20849 @ 174546:               SELECT 30
20850 @ 174549:               SELECT 1
20851 @ 174552:               PUSH   XX
20852 @ 174555:               ASSVAL
20853 @ 174556:               LINE   3809 "regression-compile-tmp/imp22g-77.imp"
20854 @ 174596:               PUSH   C
20855 @ 174599:               SELECT 30
20856 @ 174602:               SELECT 2
20857 @ 174605:               PUSH   YY
20858 @ 174608:               ASSVAL

  3810          %else;  !Y not literal
20859 @ 174609:               LINE   3810 "regression-compile-tmp/imp22g-77.imp"
20860 @ 174649:               GOTO   L_000c
20861 @ 174652:               LOCATE L_000d

  3811            condswop %if sy < sx
20862 @ 174655:               LINE   3811 "regression-compile-tmp/imp22g-77.imp"
20863 @ 174695:               PUSH   SY
20864 @ 174698:               PUSH   SX
20865 @ 174701:               JUMPIF >= L_0010
20866 @ 174705:               PUSH   CONDSWOP
20867 @ 174708:               CALL  
20868 @ 174709:               LOCATE L_0010

  3812            eval(x,anyreg)
20869 @ 174712:               LINE   3812 "regression-compile-tmp/imp22g-77.imp"
20870 @ 174752:               PUSH   EVAL
20871 @ 174755:               PUSH   X
20872 @ 174758:               ASSPAR
20873 @ 174759:               PUSHI  #0x0000ffff
20874 @ 174764:               ASSPAR
20875 @ 174765:               CALL  

  3813            %if sy <= 2 %and sy = sx %and (sy=1 %or x < a0) %start
20876 @ 174766:               LINE   3813 "regression-compile-tmp/imp22g-77.imp"
20877 @ 174806:               PUSH   SY
20878 @ 174809:               PUSHI  #0x00000002
20879 @ 174814:               JUMPIF > L_0010
20880 @ 174818:               PUSH   SY
20881 @ 174821:               PUSH   SX
20882 @ 174824:               JUMPIF # L_0010
20883 @ 174828:               PUSH   SY
20884 @ 174831:               PUSHI  #0x00000001
20885 @ 174836:               JUMPIF = L_0011
20886 @ 174840:               PUSH   X
20887 @ 174843:               PUSHI  #0x00000009
20888 @ 174848:               JUMPIF >= L_0010
20889 @ 174852:               LOCATE L_0011

  3814              eval(y,val+sy<<sizeshift)
20890 @ 174855:               LINE   3814 "regression-compile-tmp/imp22g-77.imp"
20891 @ 174895:               PUSH   EVAL
20892 @ 174898:               PUSH   Y
20893 @ 174901:               ASSPAR
20894 @ 174902:               PUSHI  #0x8000ffff
20895 @ 174907:               PUSH   SY
20896 @ 174910:               PUSHI  #0x00000010
20897 @ 174915:               LSH   
20898 @ 174916:               ADD   
20899 @ 174917:               ASSPAR
20900 @ 174918:               CALL  

  3815              plant(cmp+sy<<8,y,x)
20901 @ 174919:               LINE   3815 "regression-compile-tmp/imp22g-77.imp"
20902 @ 174959:               PUSH   PLANT
20903 @ 174962:               PUSHI  #0x00000004
20904 @ 174967:               PUSH   SY
20905 @ 174970:               PUSHI  #0x00000008
20906 @ 174975:               LSH   
20907 @ 174976:               ADD   
20908 @ 174977:               ASSPAR
20909 @ 174978:               PUSH   Y
20910 @ 174981:               ASSPAR
20911 @ 174982:               PUSH   X
20912 @ 174985:               ASSPAR
20913 @ 174986:               CALL  

  3816              unsigned %if sy = 1
20914 @ 174987:               LINE   3816 "regression-compile-tmp/imp22g-77.imp"
20915 @ 175027:               PUSH   SY
20916 @ 175030:               PUSHI  #0x00000001
20917 @ 175035:               JUMPIF # L_0013
20918 @ 175039:               PUSH   UNSIGNED
20919 @ 175042:               CALL  
20920 @ 175043:               LOCATE L_0013

  3817              forget cc
20921 @ 175046:               LINE   3817 "regression-compile-tmp/imp22g-77.imp"
20922 @ 175086:               PUSH   FORGETCC
20923 @ 175089:               CALL  

  3818            %else
20924 @ 175090:               LINE   3818 "regression-compile-tmp/imp22g-77.imp"
20925 @ 175130:               GOTO   L_000f
20926 @ 175133:               LOCATE L_0010

  3819              eval(y,val)
20927 @ 175136:               LINE   3819 "regression-compile-tmp/imp22g-77.imp"
20928 @ 175176:               PUSH   EVAL
20929 @ 175179:               PUSH   Y
20930 @ 175182:               ASSPAR
20931 @ 175183:               PUSHI  #0x8000ffff
20932 @ 175188:               ASSPAR
20933 @ 175189:               CALL  

  3820              plant(cmp,y,x)
20934 @ 175190:               LINE   3820 "regression-compile-tmp/imp22g-77.imp"
20935 @ 175230:               PUSH   PLANT
20936 @ 175233:               PUSHI  #0x00000004
20937 @ 175238:               ASSPAR
20938 @ 175239:               PUSH   Y
20939 @ 175242:               ASSPAR
20940 @ 175243:               PUSH   X
20941 @ 175246:               ASSPAR
20942 @ 175247:               CALL  

  3821              c_reg_ccx = xx;  c_reg_ccy = yy
20943 @ 175248:               LINE   3821 "regression-compile-tmp/imp22g-77.imp"
20944 @ 175288:               PUSH   C
20945 @ 175291:               SELECT 30
20946 @ 175294:               SELECT 1
20947 @ 175297:               PUSH   XX
20948 @ 175300:               ASSVAL
20949 @ 175301:               LINE   3821 "regression-compile-tmp/imp22g-77.imp"
20950 @ 175341:               PUSH   C
20951 @ 175344:               SELECT 30
20952 @ 175347:               SELECT 2
20953 @ 175350:               PUSH   YY
20954 @ 175353:               ASSVAL

  3822            %finish
20955 @ 175354:               LINE   3822 "regression-compile-tmp/imp22g-77.imp"
20956 @ 175394:               LOCATE L_000f

  3823          %finish
20957 @ 175397:               LINE   3823 "regression-compile-tmp/imp22g-77.imp"
20958 @ 175437:               LOCATE L_000c

  3824        %else;            !structure
20959 @ 175440:               LINE   3824 "regression-compile-tmp/imp22g-77.imp"
20960 @ 175480:               GOTO   L_0009
20961 @ 175483:               LOCATE L_000a

  3825          stsiz = sx;  stsiz = -stsiz %if tx_flags&cat # stringy
20962 @ 175486:               LINE   3825 "regression-compile-tmp/imp22g-77.imp"
20963 @ 175526:               PUSH   STSIZ
20964 @ 175529:               PUSH   SX
20965 @ 175532:               ASSVAL
20966 @ 175533:               LINE   3825 "regression-compile-tmp/imp22g-77.imp"
20967 @ 175573:               PUSH   TX
20968 @ 175576:               SELECT 1
20969 @ 175579:               PUSHI  #0x0000000f
20970 @ 175584:               AND   
20971 @ 175585:               PUSHI  #0x00000008
20972 @ 175590:               JUMPIF = L_000d
20973 @ 175594:               PUSH   STSIZ
20974 @ 175597:               PUSH   STSIZ
20975 @ 175600:               NEGATE
20976 @ 175601:               ASSVAL
20977 @ 175602:               LOCATE L_000d

  3826          %if (case&8 = 0 %and control&strassbit = 0) %C
  3827          %or stringy # tx_flags&cat # sety %start
  3828            !equals,notequals or rec,array
  3829            ! [No routine call required to implement]
20978 @ 175605:               LINE   3826 "regression-compile-tmp/imp22g-77.imp"
20979 @ 175645:               PUSH   CASE
20980 @ 175648:               PUSHI  #0x00000008
20981 @ 175653:               AND   
20982 @ 175654:               PUSHI  #0x00000000
20983 @ 175659:               JUMPIF # L_000f
20984 @ 175663:               PUSH   CONTROL
20985 @ 175666:               PUSHI  #0x04000000
20986 @ 175671:               AND   
20987 @ 175672:               PUSHI  #0x00000000
20988 @ 175677:               JUMPIF = L_000e
20989 @ 175681:               LOCATE L_000f
20990 @ 175684:               PUSHI  #0x00000008
20991 @ 175689:               PUSH   TX
20992 @ 175692:               SELECT 1
20993 @ 175695:               PUSHI  #0x0000000f
20994 @ 175700:               AND   
20995 @ 175701:               JUMPIFD = L_000d
20996 @ 175705:               PUSHI  #0x0000000a
20997 @ 175710:               JUMPIF = L_000d
20998 @ 175714:               LOCATE L_000e

  3830            %if wy >= 999 %start;  !both complex
20999 @ 175717:               LINE   3830 "regression-compile-tmp/imp22g-77.imp"
21000 @ 175757:               PUSH   WY
21001 @ 175760:               PUSHI  #0x000003e7
21002 @ 175765:               JUMPIF < L_0010

  3831              eval(x,tostack);  free = free!a0b
21003 @ 175769:               LINE   3831 "regression-compile-tmp/imp22g-77.imp"
21004 @ 175809:               PUSH   EVAL
21005 @ 175812:               PUSH   X
21006 @ 175815:               ASSPAR
21007 @ 175816:               PUSHI  #0x00080000
21008 @ 175821:               ASSPAR
21009 @ 175822:               CALL  
21010 @ 175823:               LINE   3831 "regression-compile-tmp/imp22g-77.imp"
21011 @ 175863:               PUSH   FREE
21012 @ 175866:               PUSH   FREE
21013 @ 175869:               PUSHI  #0x00000100
21014 @ 175874:               OR    
21015 @ 175875:               ASSVAL

  3832              eval(y,anyareg&free+asad)
21016 @ 175876:               LINE   3832 "regression-compile-tmp/imp22g-77.imp"
21017 @ 175916:               PUSH   EVAL
21018 @ 175919:               PUSH   Y
21019 @ 175922:               ASSPAR
21020 @ 175923:               PUSHI  #0x0000ff00
21021 @ 175928:               PUSH   FREE
21022 @ 175931:               AND   
21023 @ 175932:               PUSHI  #0x00100000
21024 @ 175937:               ADD   
21025 @ 175938:               ASSPAR
21026 @ 175939:               CALL  

  3833              x = freeareg(undef)
21027 @ 175940:               LINE   3833 "regression-compile-tmp/imp22g-77.imp"
21028 @ 175980:               PUSH   X
21029 @ 175983:               PUSH   FREEAREG
21030 @ 175986:               PUSHI  #0x00000010
21031 @ 175991:               ASSPAR
21032 @ 175992:               CALL  
21033 @ 175993:               ASSVAL

  3834              plant(move,a7,x)
21034 @ 175994:               LINE   3834 "regression-compile-tmp/imp22g-77.imp"
21035 @ 176034:               PUSH   PLANT
21036 @ 176037:               PUSHI  #0x00000001
21037 @ 176042:               ASSPAR
21038 @ 176043:               PUSHI  #0x00000010
21039 @ 176048:               ASSPAR
21040 @ 176049:               PUSH   X
21041 @ 176052:               ASSPAR
21042 @ 176053:               CALL  

  3835            %else
21043 @ 176054:               LINE   3835 "regression-compile-tmp/imp22g-77.imp"
21044 @ 176094:               GOTO   L_000f
21045 @ 176097:               LOCATE L_0010

  3836              eval(x,anyareg&free+asad)
21046 @ 176100:               LINE   3836 "regression-compile-tmp/imp22g-77.imp"
21047 @ 176140:               PUSH   EVAL
21048 @ 176143:               PUSH   X
21049 @ 176146:               ASSPAR
21050 @ 176147:               PUSHI  #0x0000ff00
21051 @ 176152:               PUSH   FREE
21052 @ 176155:               AND   
21053 @ 176156:               PUSHI  #0x00100000
21054 @ 176161:               ADD   
21055 @ 176162:               ASSPAR
21056 @ 176163:               CALL  

  3837              forget(x)
21057 @ 176164:               LINE   3837 "regression-compile-tmp/imp22g-77.imp"
21058 @ 176204:               PUSH   FORGET
21059 @ 176207:               PUSH   X
21060 @ 176210:               ASSPAR
21061 @ 176211:               CALL  

  3838              eval(y,anyareg&free+asad)
21062 @ 176212:               LINE   3838 "regression-compile-tmp/imp22g-77.imp"
21063 @ 176252:               PUSH   EVAL
21064 @ 176255:               PUSH   Y
21065 @ 176258:               ASSPAR
21066 @ 176259:               PUSHI  #0x0000ff00
21067 @ 176264:               PUSH   FREE
21068 @ 176267:               AND   
21069 @ 176268:               PUSHI  #0x00100000
21070 @ 176273:               ADD   
21071 @ 176274:               ASSPAR
21072 @ 176275:               CALL  

  3839            %finish
21073 @ 176276:               LINE   3839 "regression-compile-tmp/imp22g-77.imp"
21074 @ 176316:               LOCATE L_000f

  3840            i = free dreg
21075 @ 176319:               LINE   3840 "regression-compile-tmp/imp22g-77.imp"
21076 @ 176359:               PUSH   I
21077 @ 176362:               PUSH   FREEDREG
21078 @ 176365:               CALL  
21079 @ 176366:               ASSVAL

  3841            %if tx_flags&cat = stringy %start;  !string comparison
21080 @ 176367:               LINE   3841 "regression-compile-tmp/imp22g-77.imp"
21081 @ 176407:               PUSH   TX
21082 @ 176410:               SELECT 1
21083 @ 176413:               PUSHI  #0x0000000f
21084 @ 176418:               AND   
21085 @ 176419:               PUSHI  #0x00000008
21086 @ 176424:               JUMPIF # L_0010

  3842              plant(clr,0,i)
21087 @ 176428:               LINE   3842 "regression-compile-tmp/imp22g-77.imp"
21088 @ 176468:               PUSH   PLANT
21089 @ 176471:               PUSHI  #0x00000034
21090 @ 176476:               ASSPAR
21091 @ 176477:               PUSHI  #0x00000000
21092 @ 176482:               ASSPAR
21093 @ 176483:               PUSH   I
21094 @ 176486:               ASSPAR
21095 @ 176487:               CALL  

  3843              plant(moveb,x+indir,i)
21096 @ 176488:               LINE   3843 "regression-compile-tmp/imp22g-77.imp"
21097 @ 176528:               PUSH   PLANT
21098 @ 176531:               PUSHI  #0x00000101
21099 @ 176536:               ASSPAR
21100 @ 176537:               PUSH   X
21101 @ 176540:               PUSHI  #0x00000008
21102 @ 176545:               ADD   
21103 @ 176546:               ASSPAR
21104 @ 176547:               PUSH   I
21105 @ 176550:               ASSPAR
21106 @ 176551:               CALL  

  3844            %else
21107 @ 176552:               LINE   3844 "regression-compile-tmp/imp22g-77.imp"
21108 @ 176592:               GOTO   L_000f
21109 @ 176595:               LOCATE L_0010

  3845              plantlit(move,-sx-1,i)
21110 @ 176598:               LINE   3845 "regression-compile-tmp/imp22g-77.imp"
21111 @ 176638:               PUSH   PLANTLIT
21112 @ 176641:               PUSHI  #0x00000001
21113 @ 176646:               ASSPAR
21114 @ 176647:               PUSH   SX
21115 @ 176650:               NEGATE
21116 @ 176651:               PUSHI  #0x00000001
21117 @ 176656:               SUB   
21118 @ 176657:               ASSPAR
21119 @ 176658:               PUSH   I
21120 @ 176661:               ASSPAR
21121 @ 176662:               CALL  

  3846            %finish
21122 @ 176663:               LINE   3846 "regression-compile-tmp/imp22g-77.imp"
21123 @ 176703:               LOCATE L_000f

  3847            plant(cmpmb,x+post,y+post)
21124 @ 176706:               LINE   3847 "regression-compile-tmp/imp22g-77.imp"
21125 @ 176746:               PUSH   PLANT
21126 @ 176749:               PUSHI  #0x0000012b
21127 @ 176754:               ASSPAR
21128 @ 176755:               PUSH   X
21129 @ 176758:               PUSHI  #0x00000010
21130 @ 176763:               ADD   
21131 @ 176764:               ASSPAR
21132 @ 176765:               PUSH   Y
21133 @ 176768:               PUSHI  #0x00000010
21134 @ 176773:               ADD   
21135 @ 176774:               ASSPAR
21136 @ 176775:               CALL  

  3848            plantlit2(dbne,i,-4)
21137 @ 176776:               LINE   3848 "regression-compile-tmp/imp22g-77.imp"
21138 @ 176816:               PUSH   PLANTLIT2
21139 @ 176819:               PUSHI  #0x00000056
21140 @ 176824:               ASSPAR
21141 @ 176825:               PUSH   I
21142 @ 176828:               ASSPAR
21143 @ 176829:               PUSHI  #0x00000004
21144 @ 176834:               NEGATE
21145 @ 176835:               ASSPAR
21146 @ 176836:               CALL  

  3849            forget(i);  forget(y)
21147 @ 176837:               LINE   3849 "regression-compile-tmp/imp22g-77.imp"
21148 @ 176877:               PUSH   FORGET
21149 @ 176880:               PUSH   I
21150 @ 176883:               ASSPAR
21151 @ 176884:               CALL  
21152 @ 176885:               LINE   3849 "regression-compile-tmp/imp22g-77.imp"
21153 @ 176925:               PUSH   FORGET
21154 @ 176928:               PUSH   Y
21155 @ 176931:               ASSPAR
21156 @ 176932:               CALL  

  3850          %else
  3851           ! [Routine call required: must bring complex to stack]
21157 @ 176933:               LINE   3850 "regression-compile-tmp/imp22g-77.imp"
21158 @ 176973:               GOTO   L_000c
21159 @ 176976:               LOCATE L_000d

  3852            %if wx >= 999 %start
21160 @ 176979:               LINE   3852 "regression-compile-tmp/imp22g-77.imp"
21161 @ 177019:               PUSH   WX
21162 @ 177022:               PUSHI  #0x000003e7
21163 @ 177027:               JUMPIF < L_0010

  3853              eval(x,tostack);  free = free!a0b
21164 @ 177031:               LINE   3853 "regression-compile-tmp/imp22g-77.imp"
21165 @ 177071:               PUSH   EVAL
21166 @ 177074:               PUSH   X
21167 @ 177077:               ASSPAR
21168 @ 177078:               PUSHI  #0x00080000
21169 @ 177083:               ASSPAR
21170 @ 177084:               CALL  
21171 @ 177085:               LINE   3853 "regression-compile-tmp/imp22g-77.imp"
21172 @ 177125:               PUSH   FREE
21173 @ 177128:               PUSH   FREE
21174 @ 177131:               PUSHI  #0x00000100
21175 @ 177136:               OR    
21176 @ 177137:               ASSVAL

  3854              %if wy >= 999 %start
21177 @ 177138:               LINE   3854 "regression-compile-tmp/imp22g-77.imp"
21178 @ 177178:               PUSH   WY
21179 @ 177181:               PUSHI  #0x000003e7
21180 @ 177186:               JUMPIF < L_0013

  3855                stsiz = sy;  stsiz = -stsiz %if tx_flags&cat # stringy
21181 @ 177190:               LINE   3855 "regression-compile-tmp/imp22g-77.imp"
21182 @ 177230:               PUSH   STSIZ
21183 @ 177233:               PUSH   SY
21184 @ 177236:               ASSVAL
21185 @ 177237:               LINE   3855 "regression-compile-tmp/imp22g-77.imp"
21186 @ 177277:               PUSH   TX
21187 @ 177280:               SELECT 1
21188 @ 177283:               PUSHI  #0x0000000f
21189 @ 177288:               AND   
21190 @ 177289:               PUSHI  #0x00000008
21191 @ 177294:               JUMPIF = L_0016
21192 @ 177298:               PUSH   STSIZ
21193 @ 177301:               PUSH   STSIZ
21194 @ 177304:               NEGATE
21195 @ 177305:               ASSVAL
21196 @ 177306:               LOCATE L_0016

  3856                eval(y,tostack)
21197 @ 177309:               LINE   3856 "regression-compile-tmp/imp22g-77.imp"
21198 @ 177349:               PUSH   EVAL
21199 @ 177352:               PUSH   Y
21200 @ 177355:               ASSPAR
21201 @ 177356:               PUSHI  #0x00080000
21202 @ 177361:               ASSPAR
21203 @ 177362:               CALL  

  3857                y = a1;  plant(move,a7,y)
21204 @ 177363:               LINE   3857 "regression-compile-tmp/imp22g-77.imp"
21205 @ 177403:               PUSH   Y
21206 @ 177406:               PUSHI  #0x0000000a
21207 @ 177411:               ASSVAL
21208 @ 177412:               LINE   3857 "regression-compile-tmp/imp22g-77.imp"
21209 @ 177452:               PUSH   PLANT
21210 @ 177455:               PUSHI  #0x00000001
21211 @ 177460:               ASSPAR
21212 @ 177461:               PUSHI  #0x00000010
21213 @ 177466:               ASSPAR
21214 @ 177467:               PUSH   Y
21215 @ 177470:               ASSPAR
21216 @ 177471:               CALL  

  3858                sy = (imod(sy)+1)&(\1);  sy = 256 %if sy = 0
21217 @ 177472:               LINE   3858 "regression-compile-tmp/imp22g-77.imp"
21218 @ 177512:               PUSH   SY
21219 @ 177515:               PUSH   IMOD
21220 @ 177518:               PUSH   SY
21221 @ 177521:               ASSPAR
21222 @ 177522:               CALL  
21223 @ 177523:               PUSHI  #0x00000001
21224 @ 177528:               ADD   
21225 @ 177529:               PUSHI  #0x00000001
21226 @ 177534:               NOT   
21227 @ 177535:               AND   
21228 @ 177536:               ASSVAL
21229 @ 177537:               LINE   3858 "regression-compile-tmp/imp22g-77.imp"
21230 @ 177577:               PUSH   SY
21231 @ 177580:               PUSHI  #0x00000000
21232 @ 177585:               JUMPIF # L_0016
21233 @ 177589:               PUSH   SY
21234 @ 177592:               PUSHI  #0x00000100
21235 @ 177597:               ASSVAL
21236 @ 177598:               LOCATE L_0016

  3859                x = a0;  plant(lea,tempd(a7,sy),x)
21237 @ 177601:               LINE   3859 "regression-compile-tmp/imp22g-77.imp"
21238 @ 177641:               PUSH   X
21239 @ 177644:               PUSHI  #0x00000009
21240 @ 177649:               ASSVAL
21241 @ 177650:               LINE   3859 "regression-compile-tmp/imp22g-77.imp"
21242 @ 177690:               PUSH   PLANT
21243 @ 177693:               PUSHI  #0x0000004e
21244 @ 177698:               ASSPAR
21245 @ 177699:               PUSH   TEMPD
21246 @ 177702:               PUSHI  #0x00000010
21247 @ 177707:               ASSPAR
21248 @ 177708:               PUSH   SY
21249 @ 177711:               ASSPAR
21250 @ 177712:               CALL  
21251 @ 177713:               ASSPAR
21252 @ 177714:               PUSH   X
21253 @ 177717:               ASSPAR
21254 @ 177718:               CALL  

  3860              %else
21255 @ 177719:               LINE   3860 "regression-compile-tmp/imp22g-77.imp"
21256 @ 177759:               GOTO   L_0012
21257 @ 177762:               LOCATE L_0013

  3861                eval(y,a1b+asad)
21258 @ 177765:               LINE   3861 "regression-compile-tmp/imp22g-77.imp"
21259 @ 177805:               PUSH   EVAL
21260 @ 177808:               PUSH   Y
21261 @ 177811:               ASSPAR
21262 @ 177812:               PUSHI  #0x00000200
21263 @ 177817:               PUSHI  #0x00100000
21264 @ 177822:               ADD   
21265 @ 177823:               ASSPAR
21266 @ 177824:               CALL  

  3862                x = a0;  plant(move,a7,x)
21267 @ 177825:               LINE   3862 "regression-compile-tmp/imp22g-77.imp"
21268 @ 177865:               PUSH   X
21269 @ 177868:               PUSHI  #0x00000009
21270 @ 177873:               ASSVAL
21271 @ 177874:               LINE   3862 "regression-compile-tmp/imp22g-77.imp"
21272 @ 177914:               PUSH   PLANT
21273 @ 177917:               PUSHI  #0x00000001
21274 @ 177922:               ASSPAR
21275 @ 177923:               PUSHI  #0x00000010
21276 @ 177928:               ASSPAR
21277 @ 177929:               PUSH   X
21278 @ 177932:               ASSPAR
21279 @ 177933:               CALL  

  3863              %finish
21280 @ 177934:               LINE   3863 "regression-compile-tmp/imp22g-77.imp"
21281 @ 177974:               LOCATE L_0012

  3864            %else
21282 @ 177977:               LINE   3864 "regression-compile-tmp/imp22g-77.imp"
21283 @ 178017:               GOTO   L_000f
21284 @ 178020:               LOCATE L_0010

  3865              eval(x,a0b+asad);  eval(y,a1b+asad)
21285 @ 178023:               LINE   3865 "regression-compile-tmp/imp22g-77.imp"
21286 @ 178063:               PUSH   EVAL
21287 @ 178066:               PUSH   X
21288 @ 178069:               ASSPAR
21289 @ 178070:               PUSHI  #0x00000100
21290 @ 178075:               PUSHI  #0x00100000
21291 @ 178080:               ADD   
21292 @ 178081:               ASSPAR
21293 @ 178082:               CALL  
21294 @ 178083:               LINE   3865 "regression-compile-tmp/imp22g-77.imp"
21295 @ 178123:               PUSH   EVAL
21296 @ 178126:               PUSH   Y
21297 @ 178129:               ASSPAR
21298 @ 178130:               PUSHI  #0x00000200
21299 @ 178135:               PUSHI  #0x00100000
21300 @ 178140:               ADD   
21301 @ 178141:               ASSPAR
21302 @ 178142:               CALL  

  3866            %finish
  3867  !<<IMP
21303 @ 178143:               LINE   3866 "regression-compile-tmp/imp22g-77.imp"
21304 @ 178183:               LOCATE L_000f

  3868            srcall(scomp)
21305 @ 178186:               LINE   3868 "regression-compile-tmp/imp22g-77.imp"
21306 @ 178226:               PUSH   SRCALL
21307 @ 178229:               PUSHI  #0x00000070
21308 @ 178234:               ASSPAR
21309 @ 178235:               CALL  

  3869            unsigned
  3870  !<<BOTH
21310 @ 178236:               LINE   3869 "regression-compile-tmp/imp22g-77.imp"
21311 @ 178276:               PUSH   UNSIGNED
21312 @ 178279:               CALL  

  3871          %finish
21313 @ 178280:               LINE   3871 "regression-compile-tmp/imp22g-77.imp"
21314 @ 178320:               LOCATE L_000c

  3872          forget cc
21315 @ 178323:               LINE   3872 "regression-compile-tmp/imp22g-77.imp"
21316 @ 178363:               PUSH   FORGETCC
21317 @ 178366:               CALL  

  3873        %finish
21318 @ 178367:               LINE   3873 "regression-compile-tmp/imp22g-77.imp"
21319 @ 178407:               LOCATE L_0009

  3874      %else;  !comparison with zero
21320 @ 178410:               LINE   3874 "regression-compile-tmp/imp22g-77.imp"
21321 @ 178450:               GOTO   L_0006
21322 @ 178453:               LOCATE L_0007

  3875        %if sx <= 0 %or (sx = 1 %and dx_mode >= dispmode) %start
21323 @ 178456:               LINE   3875 "regression-compile-tmp/imp22g-77.imp"
21324 @ 178496:               PUSH   SX
21325 @ 178499:               PUSHI  #0x00000000
21326 @ 178504:               JUMPIF <= L_000b
21327 @ 178508:               PUSH   SX
21328 @ 178511:               PUSHI  #0x00000001
21329 @ 178516:               JUMPIF # L_000a
21330 @ 178520:               PUSH   DX
21331 @ 178523:               SELECT 8
21332 @ 178526:               PUSHI  #0x00000028
21333 @ 178531:               JUMPIF < L_000a
21334 @ 178535:               LOCATE L_000b

  3876          %if tx_flags&cat = stringy %or sx = 1 %start
21335 @ 178538:               LINE   3876 "regression-compile-tmp/imp22g-77.imp"
21336 @ 178578:               PUSH   TX
21337 @ 178581:               SELECT 1
21338 @ 178584:               PUSHI  #0x0000000f
21339 @ 178589:               AND   
21340 @ 178590:               PUSHI  #0x00000008
21341 @ 178595:               JUMPIF = L_000e
21342 @ 178599:               PUSH   SX
21343 @ 178602:               PUSHI  #0x00000001
21344 @ 178607:               JUMPIF # L_000d
21345 @ 178611:               LOCATE L_000e

  3877            eval(x,ref)
21346 @ 178614:               LINE   3877 "regression-compile-tmp/imp22g-77.imp"
21347 @ 178654:               PUSH   EVAL
21348 @ 178657:               PUSH   X
21349 @ 178660:               ASSPAR
21350 @ 178661:               PUSHI  #0x80000000
21351 @ 178666:               ASSPAR
21352 @ 178667:               CALL  

  3878            plant(tst+1<<8,0,x)
21353 @ 178668:               LINE   3878 "regression-compile-tmp/imp22g-77.imp"
21354 @ 178708:               PUSH   PLANT
21355 @ 178711:               PUSHI  #0x0000003b
21356 @ 178716:               PUSHI  #0x00000001
21357 @ 178721:               PUSHI  #0x00000008
21358 @ 178726:               LSH   
21359 @ 178727:               ADD   
21360 @ 178728:               ASSPAR
21361 @ 178729:               PUSHI  #0x00000000
21362 @ 178734:               ASSPAR
21363 @ 178735:               PUSH   X
21364 @ 178738:               ASSPAR
21365 @ 178739:               CALL  

  3879            forget cc;  !*for now*
21366 @ 178740:               LINE   3879 "regression-compile-tmp/imp22g-77.imp"
21367 @ 178780:               PUSH   FORGETCC
21368 @ 178783:               CALL  

  3880            unsigned
21369 @ 178784:               LINE   3880 "regression-compile-tmp/imp22g-77.imp"
21370 @ 178824:               PUSH   UNSIGNED
21371 @ 178827:               CALL  

  3881          %else
21372 @ 178828:               LINE   3881 "regression-compile-tmp/imp22g-77.imp"
21373 @ 178868:               GOTO   L_000c
21374 @ 178871:               LOCATE L_000d

  3882            eval(x,anyareg&free+asad)
21375 @ 178874:               LINE   3882 "regression-compile-tmp/imp22g-77.imp"
21376 @ 178914:               PUSH   EVAL
21377 @ 178917:               PUSH   X
21378 @ 178920:               ASSPAR
21379 @ 178921:               PUSHI  #0x0000ff00
21380 @ 178926:               PUSH   FREE
21381 @ 178929:               AND   
21382 @ 178930:               PUSHI  #0x00100000
21383 @ 178935:               ADD   
21384 @ 178936:               ASSPAR
21385 @ 178937:               CALL  

  3883            i = free dreg
21386 @ 178938:               LINE   3883 "regression-compile-tmp/imp22g-77.imp"
21387 @ 178978:               PUSH   I
21388 @ 178981:               PUSH   FREEDREG
21389 @ 178984:               CALL  
21390 @ 178985:               ASSVAL

  3884            plantlit(move,-sx-1,i)
21391 @ 178986:               LINE   3884 "regression-compile-tmp/imp22g-77.imp"
21392 @ 179026:               PUSH   PLANTLIT
21393 @ 179029:               PUSHI  #0x00000001
21394 @ 179034:               ASSPAR
21395 @ 179035:               PUSH   SX
21396 @ 179038:               NEGATE
21397 @ 179039:               PUSHI  #0x00000001
21398 @ 179044:               SUB   
21399 @ 179045:               ASSPAR
21400 @ 179046:               PUSH   I
21401 @ 179049:               ASSPAR
21402 @ 179050:               CALL  

  3885            plant(tst+1<<8,0,x+post)
21403 @ 179051:               LINE   3885 "regression-compile-tmp/imp22g-77.imp"
21404 @ 179091:               PUSH   PLANT
21405 @ 179094:               PUSHI  #0x0000003b
21406 @ 179099:               PUSHI  #0x00000001
21407 @ 179104:               PUSHI  #0x00000008
21408 @ 179109:               LSH   
21409 @ 179110:               ADD   
21410 @ 179111:               ASSPAR
21411 @ 179112:               PUSHI  #0x00000000
21412 @ 179117:               ASSPAR
21413 @ 179118:               PUSH   X
21414 @ 179121:               PUSHI  #0x00000010
21415 @ 179126:               ADD   
21416 @ 179127:               ASSPAR
21417 @ 179128:               CALL  

  3886            plantlit2(dbne,i,-4)
21418 @ 179129:               LINE   3886 "regression-compile-tmp/imp22g-77.imp"
21419 @ 179169:               PUSH   PLANTLIT2
21420 @ 179172:               PUSHI  #0x00000056
21421 @ 179177:               ASSPAR
21422 @ 179178:               PUSH   I
21423 @ 179181:               ASSPAR
21424 @ 179182:               PUSHI  #0x00000004
21425 @ 179187:               NEGATE
21426 @ 179188:               ASSPAR
21427 @ 179189:               CALL  

  3887            forget(i);  forget(x)
21428 @ 179190:               LINE   3887 "regression-compile-tmp/imp22g-77.imp"
21429 @ 179230:               PUSH   FORGET
21430 @ 179233:               PUSH   I
21431 @ 179236:               ASSPAR
21432 @ 179237:               CALL  
21433 @ 179238:               LINE   3887 "regression-compile-tmp/imp22g-77.imp"
21434 @ 179278:               PUSH   FORGET
21435 @ 179281:               PUSH   X
21436 @ 179284:               ASSPAR
21437 @ 179285:               CALL  

  3888          %finish
21438 @ 179286:               LINE   3888 "regression-compile-tmp/imp22g-77.imp"
21439 @ 179326:               LOCATE L_000c

  3889        %else
21440 @ 179329:               LINE   3889 "regression-compile-tmp/imp22g-77.imp"
21441 @ 179369:               GOTO   L_0009
21442 @ 179372:               LOCATE L_000a

  3890          eval(x,anydreg)
21443 @ 179375:               LINE   3890 "regression-compile-tmp/imp22g-77.imp"
21444 @ 179415:               PUSH   EVAL
21445 @ 179418:               PUSH   X
21446 @ 179421:               ASSPAR
21447 @ 179422:               PUSHI  #0x000000ef
21448 @ 179427:               ASSPAR
21449 @ 179428:               CALL  

  3891          %if c_reg_ccx # xx %or c_reg_ccy # 0 %start
21450 @ 179429:               LINE   3891 "regression-compile-tmp/imp22g-77.imp"
21451 @ 179469:               PUSH   C
21452 @ 179472:               SELECT 30
21453 @ 179475:               SELECT 1
21454 @ 179478:               PUSH   XX
21455 @ 179481:               JUMPIF # L_000e
21456 @ 179485:               PUSH   C
21457 @ 179488:               SELECT 30
21458 @ 179491:               SELECT 2
21459 @ 179494:               PUSHI  #0x00000000
21460 @ 179499:               JUMPIF = L_000d
21461 @ 179503:               LOCATE L_000e

  3892            plant(move,x,x);  c_reg_ccx = xx;  c_reg_ccy = 0
21462 @ 179506:               LINE   3892 "regression-compile-tmp/imp22g-77.imp"
21463 @ 179546:               PUSH   PLANT
21464 @ 179549:               PUSHI  #0x00000001
21465 @ 179554:               ASSPAR
21466 @ 179555:               PUSH   X
21467 @ 179558:               ASSPAR
21468 @ 179559:               PUSH   X
21469 @ 179562:               ASSPAR
21470 @ 179563:               CALL  
21471 @ 179564:               LINE   3892 "regression-compile-tmp/imp22g-77.imp"
21472 @ 179604:               PUSH   C
21473 @ 179607:               SELECT 30
21474 @ 179610:               SELECT 1
21475 @ 179613:               PUSH   XX
21476 @ 179616:               ASSVAL
21477 @ 179617:               LINE   3892 "regression-compile-tmp/imp22g-77.imp"
21478 @ 179657:               PUSH   C
21479 @ 179660:               SELECT 30
21480 @ 179663:               SELECT 2
21481 @ 179666:               PUSHI  #0x00000000
21482 @ 179671:               ASSVAL

  3893          %finish
21483 @ 179672:               LINE   3893 "regression-compile-tmp/imp22g-77.imp"
21484 @ 179712:               LOCATE L_000d

  3894        %finish
21485 @ 179715:               LINE   3894 "regression-compile-tmp/imp22g-77.imp"
21486 @ 179755:               LOCATE L_0009

  3895      %finish
21487 @ 179758:               LINE   3895 "regression-compile-tmp/imp22g-77.imp"
21488 @ 179798:               LOCATE L_0006

  3896    %finish
21489 @ 179801:               LINE   3896 "regression-compile-tmp/imp22g-77.imp"
21490 @ 179841:               LOCATE L_0004

  3897    pendcond = case
21491 @ 179844:               LINE   3897 "regression-compile-tmp/imp22g-77.imp"
21492 @ 179884:               PUSH   PENDCOND
21493 @ 179887:               PUSH   CASE
21494 @ 179890:               ASSVAL

  3898  endcomp:
21495 @ 179891:               LINE   3898 "regression-compile-tmp/imp22g-77.imp"
21496 @ 179931:               LABEL  L_0190

  3899    pendin = dp_x;  pendout = dp_y
21497 @ 179934:               LINE   3899 "regression-compile-tmp/imp22g-77.imp"
21498 @ 179974:               PUSH   PENDIN
21499 @ 179977:               PUSH   DP
21500 @ 179980:               SELECT 13
21501 @ 179983:               ASSVAL
21502 @ 179984:               LINE   3899 "regression-compile-tmp/imp22g-77.imp"
21503 @ 180024:               PUSH   PENDOUT
21504 @ 180027:               PUSH   DP
21505 @ 180030:               SELECT 14
21506 @ 180033:               ASSVAL

  3900  checksp:
21507 @ 180034:               LINE   3900 "regression-compile-tmp/imp22g-77.imp"
21508 @ 180074:               LABEL  L_0191

  3901    %if c_sp # sp %start
21509 @ 180077:               LINE   3901 "regression-compile-tmp/imp22g-77.imp"
21510 @ 180117:               PUSH   C
21511 @ 180120:               SELECT 1
21512 @ 180123:               PUSH   SP
21513 @ 180126:               JUMPIF = L_0004

  3902      addimm(sp-c_sp,a7);  c_sp = sp
21514 @ 180130:               LINE   3902 "regression-compile-tmp/imp22g-77.imp"
21515 @ 180170:               PUSH   ADDIMM
21516 @ 180173:               PUSH   SP
21517 @ 180176:               PUSH   C
21518 @ 180179:               SELECT 1
21519 @ 180182:               SUB   
21520 @ 180183:               ASSPAR
21521 @ 180184:               PUSHI  #0x00000010
21522 @ 180189:               ASSPAR
21523 @ 180190:               CALL  
21524 @ 180191:               LINE   3902 "regression-compile-tmp/imp22g-77.imp"
21525 @ 180231:               PUSH   C
21526 @ 180234:               SELECT 1
21527 @ 180237:               PUSH   SP
21528 @ 180240:               ASSVAL

  3903    %finish
  3904  !<<IMP
21529 @ 180241:               LINE   3903 "regression-compile-tmp/imp22g-77.imp"
21530 @ 180281:               LOCATE L_0004

  3905    %return
  3906  
21531 @ 180284:               LINE   3905 "regression-compile-tmp/imp22g-77.imp"
21532 @ 180324:               RETURN

  3907  do(resolves):
21533 @ 180325:               LINE   3907 "regression-compile-tmp/imp22g-77.imp"
21534 @ 180365:               PUSHI  #0x00000075
21535 @ 180370:               SLABEL 327

  3908    flush %if pendcond # 0
21536 @ 180373:               LINE   3908 "regression-compile-tmp/imp22g-77.imp"
21537 @ 180413:               PUSH   PENDCOND
21538 @ 180416:               PUSHI  #0x00000000
21539 @ 180421:               JUMPIF = L_0004
21540 @ 180425:               PUSH   FLUSH
21541 @ 180428:               CALL  
21542 @ 180429:               LOCATE L_0004

  3909    update sp
21543 @ 180432:               LINE   3909 "regression-compile-tmp/imp22g-77.imp"
21544 @ 180472:               PUSH   UPDATESP
21545 @ 180475:               CALL  

  3910    sp = c_sp
  3911  !  push(mb)
  3912  !  eval(x,a0b+asad);  !string to be resolved
  3913  !  act = dict(y)_act;  x = dict(y)_x;  y = dict(y)_y
  3914  !  eval(x,a1b);  eval(act,a0b<<2);  eval(y,a0b<<3);  !match, fore, aft
  3915  !  srcall(resolves)
  3916  !  pop(mb)
  3917  !  forget regs
21546 @ 180476:               LINE   3910 "regression-compile-tmp/imp22g-77.imp"
21547 @ 180516:               PUSH   SP
21548 @ 180519:               PUSH   C
21549 @ 180522:               SELECT 1
21550 @ 180525:               ASSVAL

  3918    dx == dict(act)
21551 @ 180526:               LINE   3918 "regression-compile-tmp/imp22g-77.imp"
21552 @ 180566:               PUSH   DX
21553 @ 180569:               PUSH   DICT
21554 @ 180572:               PUSH   ACT
21555 @ 180575:               ACCESS
21556 @ 180576:               ASSREF

  3919    call
21557 @ 180577:               LINE   3919 "regression-compile-tmp/imp22g-77.imp"
21558 @ 180617:               PUSH   CALL
21559 @ 180620:               CALL  

  3920    pp = pp+2;  dp == dict(pp)
21560 @ 180621:               LINE   3920 "regression-compile-tmp/imp22g-77.imp"
21561 @ 180661:               PUSH   PP
21562 @ 180664:               PUSH   PP
21563 @ 180667:               PUSHI  #0x00000002
21564 @ 180672:               ADD   
21565 @ 180673:               ASSVAL
21566 @ 180674:               LINE   3920 "regression-compile-tmp/imp22g-77.imp"
21567 @ 180714:               PUSH   DP
21568 @ 180717:               PUSH   DICT
21569 @ 180720:               PUSH   PP
21570 @ 180723:               ACCESS
21571 @ 180724:               ASSREF

  3921    pendcond = dp_act
21572 @ 180725:               LINE   3921 "regression-compile-tmp/imp22g-77.imp"
21573 @ 180765:               PUSH   PENDCOND
21574 @ 180768:               PUSH   DP
21575 @ 180771:               SELECT 6
21576 @ 180774:               ASSVAL

  3922    -> endcomp
  3923  
  3924  !<<BOTH
  3925  !!!!!!!!!!!!!!!!!!!!!!!!   Assignment   !!!!!!!!!!!!!!!!!!!!!!!!!!!!
  3926  !
21577 @ 180775:               LINE   3922 "regression-compile-tmp/imp22g-77.imp"
21578 @ 180815:               JUMP   L_0190

  3927  %integerfn EASY(%integer y)
  3928  ! Determine if structure assignment (string, set)
  3929  !  can be done by store-to-store op(s) and if so, do it.
21579 @ 180818:               LINE   3927 "regression-compile-tmp/imp22g-77.imp"
21580 @ 180858:               DEF    EASY (_lev0id0_EVAL_EASY) p1=V_0192 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
21581 @ 180874:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
21582 @ 180875:                     DEF    Y p1=V_0193 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
21583 @ 180888:                  FINISH ) {lev=3}

  3930  %integer r1,f
21584 @ 180889:                  LINE   3930 "regression-compile-tmp/imp22g-77.imp"
21585 @ 180929:                  DEF    R1 p1=V_0194 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
21586 @ 180943:                  DEF    F p1=V_0195 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  3931  %record(identinfo)%name dy
21587 @ 180956:                  LINE   3931 "regression-compile-tmp/imp22g-77.imp"
21588 @ 180996:                  DEF    DY p1=V_0196 a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  3932  %owninteger s=0
21589 @ 181010:                  LINE   3932 "regression-compile-tmp/imp22g-77.imp"
21590 @ 181050:                  PUSHI  #0x00000000
21591 @ 181055:                  DEF    S p1=V_0197 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
21592 @ 181068:                  INIT   1

  3933    %result = FALSE %if y < np0
21593 @ 181071:                  LINE   3933 "regression-compile-tmp/imp22g-77.imp"
21594 @ 181111:                  PUSH   Y
21595 @ 181114:                  PUSH   NP0
21596 @ 181117:                  JUMPIF >= L_0004
21597 @ 181121:                  PUSHI  #0x00000000
21598 @ 181126:                  RESULT
21599 @ 181127:                  LOCATE L_0004

  3934    dy == dict(y)
21600 @ 181130:                  LINE   3934 "regression-compile-tmp/imp22g-77.imp"
21601 @ 181170:                  PUSH   DY
21602 @ 181173:                  PUSH   DICT
21603 @ 181176:                  PUSH   Y
21604 @ 181179:                  ACCESS
21605 @ 181180:                  ASSREF

  3935    %result = FALSE %if dy_act > concat %or dy_act = prel
21606 @ 181181:                  LINE   3935 "regression-compile-tmp/imp22g-77.imp"
21607 @ 181221:                  PUSH   DY
21608 @ 181224:                  SELECT 6
21609 @ 181227:                  PUSHI  #0x0000006a
21610 @ 181232:                  JUMPIF > L_0005
21611 @ 181236:                  PUSH   DY
21612 @ 181239:                  SELECT 6
21613 @ 181242:                  PUSHI  #0x0000002e
21614 @ 181247:                  JUMPIF # L_0004
21615 @ 181251:                  LOCATE L_0005
21616 @ 181254:                  PUSHI  #0x00000000
21617 @ 181259:                  RESULT
21618 @ 181260:                  LOCATE L_0004

  3936    f = free
21619 @ 181263:                  LINE   3936 "regression-compile-tmp/imp22g-77.imp"
21620 @ 181303:                  PUSH   F
21621 @ 181306:                  PUSH   FREE
21622 @ 181309:                  ASSVAL

  3937    %if dy_x = x %start;  !recursion ends, successfully
21623 @ 181310:                  LINE   3937 "regression-compile-tmp/imp22g-77.imp"
21624 @ 181350:                  PUSH   DY
21625 @ 181353:                  SELECT 13
21626 @ 181356:                  PUSH   X
21627 @ 181359:                  JUMPIF # L_0004

  3938      s = tsize(x);  s = -s %if dy_act # concat;  !+ve unless string
21628 @ 181363:                  LINE   3938 "regression-compile-tmp/imp22g-77.imp"
21629 @ 181403:                  PUSH   S
21630 @ 181406:                  PUSH   TSIZE
21631 @ 181409:                  PUSH   X
21632 @ 181412:                  ASSPAR
21633 @ 181413:                  CALL  
21634 @ 181414:                  ASSVAL
21635 @ 181415:                  LINE   3938 "regression-compile-tmp/imp22g-77.imp"
21636 @ 181455:                  PUSH   DY
21637 @ 181458:                  SELECT 6
21638 @ 181461:                  PUSHI  #0x0000006a
21639 @ 181466:                  JUMPIF = L_0007
21640 @ 181470:                  PUSH   S
21641 @ 181473:                  PUSH   S
21642 @ 181476:                  NEGATE
21643 @ 181477:                  ASSVAL
21644 @ 181478:                  LOCATE L_0007

  3939      eval(x,a1b+asad)
21645 @ 181481:                  LINE   3939 "regression-compile-tmp/imp22g-77.imp"
21646 @ 181521:                  PUSH   EVAL
21647 @ 181524:                  PUSH   X
21648 @ 181527:                  ASSPAR
21649 @ 181528:                  PUSHI  #0x00000200
21650 @ 181533:                  PUSHI  #0x00100000
21651 @ 181538:                  ADD   
21652 @ 181539:                  ASSPAR
21653 @ 181540:                  CALL  

  3940    %else
21654 @ 181541:                  LINE   3940 "regression-compile-tmp/imp22g-77.imp"
21655 @ 181581:                  GOTO   L_0003
21656 @ 181584:                  LOCATE L_0004

  3941      %result = FALSE %if dy_y >= np0 %or dy_y = x %c
  3942      %or %not easy(dy_x)=TRUE
21657 @ 181587:                  LINE   3941 "regression-compile-tmp/imp22g-77.imp"
21658 @ 181627:                  PUSH   DY
21659 @ 181630:                  SELECT 14
21660 @ 181633:                  PUSH   NP0
21661 @ 181636:                  JUMPIF >= L_0008
21662 @ 181640:                  PUSH   DY
21663 @ 181643:                  SELECT 14
21664 @ 181646:                  PUSH   X
21665 @ 181649:                  JUMPIF = L_0008
21666 @ 181653:                  PUSH   EASY
21667 @ 181656:                  PUSH   DY
21668 @ 181659:                  SELECT 13
21669 @ 181662:                  ASSPAR
21670 @ 181663:                  CALL  
21671 @ 181664:                  PUSHI  #0x00000001
21672 @ 181669:                  JUMPIF = L_0007
21673 @ 181673:                  LOCATE L_0008
21674 @ 181676:                  PUSHI  #0x00000000
21675 @ 181681:                  RESULT
21676 @ 181682:                  LOCATE L_0007

  3943    %finish
21677 @ 181685:                  LINE   3943 "regression-compile-tmp/imp22g-77.imp"
21678 @ 181725:                  LOCATE L_0003

  3944    y = dy_y
21679 @ 181728:                  LINE   3944 "regression-compile-tmp/imp22g-77.imp"
21680 @ 181768:                  PUSH   Y
21681 @ 181771:                  PUSH   DY
21682 @ 181774:                  SELECT 14
21683 @ 181777:                  ASSVAL

  3945    %if y >= np0 %and dict(y)_act = dtostring %start
21684 @ 181778:                  LINE   3945 "regression-compile-tmp/imp22g-77.imp"
21685 @ 181818:                  PUSH   Y
21686 @ 181821:                  PUSH   NP0
21687 @ 181824:                  JUMPIF < L_0004
21688 @ 181828:                  PUSH   DICT
21689 @ 181831:                  PUSH   Y
21690 @ 181834:                  ACCESS
21691 @ 181835:                  SELECT 6
21692 @ 181838:                  PUSHI  #0x0000006b
21693 @ 181843:                  JUMPIF # L_0004

  3946      y = dict(y)_x;  eval(y,tobyte+val);  !character value
21694 @ 181847:                  LINE   3946 "regression-compile-tmp/imp22g-77.imp"
21695 @ 181887:                  PUSH   Y
21696 @ 181890:                  PUSH   DICT
21697 @ 181893:                  PUSH   Y
21698 @ 181896:                  ACCESS
21699 @ 181897:                  SELECT 13
21700 @ 181900:                  ASSVAL
21701 @ 181901:                  LINE   3946 "regression-compile-tmp/imp22g-77.imp"
21702 @ 181941:                  PUSH   EVAL
21703 @ 181944:                  PUSH   Y
21704 @ 181947:                  ASSPAR
21705 @ 181948:                  PUSHI  #0x00010000
21706 @ 181953:                  PUSHI  #0x8000ffff
21707 @ 181958:                  ADD   
21708 @ 181959:                  ASSPAR
21709 @ 181960:                  CALL  

  3947      r1 = clean reg
21710 @ 181961:                  LINE   3947 "regression-compile-tmp/imp22g-77.imp"
21711 @ 182001:                  PUSH   R1
21712 @ 182004:                  PUSH   CLEANREG
21713 @ 182007:                  CALL  
21714 @ 182008:                  ASSVAL

  3948      plant(addb,one,x+indir);              !inc length(dest)
21715 @ 182009:                  LINE   3948 "regression-compile-tmp/imp22g-77.imp"
21716 @ 182049:                  PUSH   PLANT
21717 @ 182052:                  PUSHI  #0x00000102
21718 @ 182057:                  ASSPAR
21719 @ 182058:                  PUSHI  #0xfffffffe
21720 @ 182063:                  ASSPAR
21721 @ 182064:                  PUSH   X
21722 @ 182067:                  PUSHI  #0x00000008
21723 @ 182072:                  ADD   
21724 @ 182073:                  ASSPAR
21725 @ 182074:                  CALL  

  3949      plant(moveb,x+indir,r1)
21726 @ 182075:                  LINE   3949 "regression-compile-tmp/imp22g-77.imp"
21727 @ 182115:                  PUSH   PLANT
21728 @ 182118:                  PUSHI  #0x00000101
21729 @ 182123:                  ASSPAR
21730 @ 182124:                  PUSH   X
21731 @ 182127:                  PUSHI  #0x00000008
21732 @ 182132:                  ADD   
21733 @ 182133:                  ASSPAR
21734 @ 182134:                  PUSH   R1
21735 @ 182137:                  ASSPAR
21736 @ 182138:                  CALL  

  3950      plant(moveb,y,tempx(x,r1));          !append char
21737 @ 182139:                  LINE   3950 "regression-compile-tmp/imp22g-77.imp"
21738 @ 182179:                  PUSH   PLANT
21739 @ 182182:                  PUSHI  #0x00000101
21740 @ 182187:                  ASSPAR
21741 @ 182188:                  PUSH   Y
21742 @ 182191:                  ASSPAR
21743 @ 182192:                  PUSH   TEMPX
21744 @ 182195:                  PUSH   X
21745 @ 182198:                  ASSPAR
21746 @ 182199:                  PUSH   R1
21747 @ 182202:                  ASSPAR
21748 @ 182203:                  CALL  
21749 @ 182204:                  ASSPAR
21750 @ 182205:                  CALL  

  3951      forget(r1)
21751 @ 182206:                  LINE   3951 "regression-compile-tmp/imp22g-77.imp"
21752 @ 182246:                  PUSH   FORGET
21753 @ 182249:                  PUSH   R1
21754 @ 182252:                  ASSPAR
21755 @ 182253:                  CALL  

  3952    %else
21756 @ 182254:                  LINE   3952 "regression-compile-tmp/imp22g-77.imp"
21757 @ 182294:                  GOTO   L_0003
21758 @ 182297:                  LOCATE L_0004

  3953      eval(y,a0b+asad)
21759 @ 182300:                  LINE   3953 "regression-compile-tmp/imp22g-77.imp"
21760 @ 182340:                  PUSH   EVAL
21761 @ 182343:                  PUSH   Y
21762 @ 182346:                  ASSPAR
21763 @ 182347:                  PUSHI  #0x00000100
21764 @ 182352:                  PUSHI  #0x00100000
21765 @ 182357:                  ADD   
21766 @ 182358:                  ASSPAR
21767 @ 182359:                  CALL  

  3954      structcall(dy_act,s)
21768 @ 182360:                  LINE   3954 "regression-compile-tmp/imp22g-77.imp"
21769 @ 182400:                  PUSH   STRUCTCALL
21770 @ 182403:                  PUSH   DY
21771 @ 182406:                  SELECT 6
21772 @ 182409:                  ASSPAR
21773 @ 182410:                  PUSH   S
21774 @ 182413:                  ASSPAR
21775 @ 182414:                  CALL  

  3955      forget(a0);  forget(a1)
21776 @ 182415:                  LINE   3955 "regression-compile-tmp/imp22g-77.imp"
21777 @ 182455:                  PUSH   FORGET
21778 @ 182458:                  PUSHI  #0x00000009
21779 @ 182463:                  ASSPAR
21780 @ 182464:                  CALL  
21781 @ 182465:                  LINE   3955 "regression-compile-tmp/imp22g-77.imp"
21782 @ 182505:                  PUSH   FORGET
21783 @ 182508:                  PUSHI  #0x0000000a
21784 @ 182513:                  ASSPAR
21785 @ 182514:                  CALL  

  3956      forget(d1);  forget(d2)
21786 @ 182515:                  LINE   3956 "regression-compile-tmp/imp22g-77.imp"
21787 @ 182555:                  PUSH   FORGET
21788 @ 182558:                  PUSHI  #0x00000002
21789 @ 182563:                  ASSPAR
21790 @ 182564:                  CALL  
21791 @ 182565:                  LINE   3956 "regression-compile-tmp/imp22g-77.imp"
21792 @ 182605:                  PUSH   FORGET
21793 @ 182608:                  PUSHI  #0x00000003
21794 @ 182613:                  ASSPAR
21795 @ 182614:                  CALL  

  3957    %finish
21796 @ 182615:                  LINE   3957 "regression-compile-tmp/imp22g-77.imp"
21797 @ 182655:                  LOCATE L_0003

  3958    free = f&(\a1b)
21798 @ 182658:                  LINE   3958 "regression-compile-tmp/imp22g-77.imp"
21799 @ 182698:                  PUSH   FREE
21800 @ 182701:                  PUSH   F
21801 @ 182704:                  PUSHI  #0x00000200
21802 @ 182709:                  NOT   
21803 @ 182710:                  AND   
21804 @ 182711:                  ASSVAL

  3959    %result = TRUE
21805 @ 182712:                  LINE   3959 "regression-compile-tmp/imp22g-77.imp"
21806 @ 182752:                  PUSHI  #0x00000001
21807 @ 182757:                  RESULT

  3960  %end
  3961  
21808 @ 182758:                  LINE   3960 "regression-compile-tmp/imp22g-77.imp"
21809 @ 182798:               END    _lev0id0_EVAL_EASY {lev=3 --> 2}

  3962  %routine BEWARE(%integer dest)
  3963  ![not foolproof: ?too expensive to do properly
  3964  !                 too inefficient to fail safe]
21810 @ 182799:               LINE   3962 "regression-compile-tmp/imp22g-77.imp"
21811 @ 182839:               DEF    BEWARE (_lev0id0_EVAL_BEWARE) p1=V_0193 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
21812 @ 182857:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
21813 @ 182858:                     DEF    DEST p1=V_0194 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
21814 @ 182874:                  FINISH ) {lev=3}

  3965  %integer r,d
21815 @ 182875:                  LINE   3965 "regression-compile-tmp/imp22g-77.imp"
21816 @ 182915:                  DEF    R p1=V_0195 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
21817 @ 182928:                  DEF    D p1=V_0196 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  3966  %integerfn UNSAFE(%integer p)
  3967  ![a bit cavalier]
21818 @ 182941:                  LINE   3966 "regression-compile-tmp/imp22g-77.imp"
21819 @ 182981:                  DEF    UNSAFE (_lev0id0_EVAL_BEWARE_UNSAFE) p1=V_0197 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
21820 @ 182999:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
21821 @ 183000:                        DEF    P p1=V_0198 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
21822 @ 183013:                     FINISH ) {lev=4}

  3968    %cycle
21823 @ 183014:                     LINE   3968 "regression-compile-tmp/imp22g-77.imp"
21824 @ 183054:                     LOCATE L_0003

  3969      %result = FALSE %if p <= undef;        !literal, basereg or undef
21825 @ 183057:                     LINE   3969 "regression-compile-tmp/imp22g-77.imp"
21826 @ 183097:                     PUSH   P
21827 @ 183100:                     PUSHI  #0x00000010
21828 @ 183105:                     JUMPIF > L_0007
21829 @ 183109:                     PUSHI  #0x00000000
21830 @ 183114:                     RESULT
21831 @ 183115:                     LOCATE L_0007

  3970      %result = TRUE %if p = dest %or p = d {%or d >= np0
21832 @ 183118:                     LINE   3970 "regression-compile-tmp/imp22g-77.imp"
21833 @ 183158:                     PUSH   P
21834 @ 183161:                     PUSH   DEST
21835 @ 183164:                     JUMPIF = L_0008
21836 @ 183168:                     PUSH   P
21837 @ 183171:                     PUSH   D
21838 @ 183174:                     JUMPIF # L_0007
21839 @ 183178:                     LOCATE L_0008
21840 @ 183181:                     PUSHI  #0x00000001
21841 @ 183186:                     RESULT
21842 @ 183187:                     LOCATE L_0007

  3971      p = p-ad %if p >= explim
21843 @ 183190:                     LINE   3971 "regression-compile-tmp/imp22g-77.imp"
21844 @ 183230:                     PUSH   P
21845 @ 183233:                     PUSH   EXPLIM
21846 @ 183236:                     JUMPIF < L_0007
21847 @ 183240:                     PUSH   P
21848 @ 183243:                     PUSH   P
21849 @ 183246:                     PUSHI  #0x00004000
21850 @ 183251:                     SUB   
21851 @ 183252:                     ASSVAL
21852 @ 183253:                     LOCATE L_0007

  3972      %result = FALSE %if p < np0
21853 @ 183256:                     LINE   3972 "regression-compile-tmp/imp22g-77.imp"
21854 @ 183296:                     PUSH   P
21855 @ 183299:                     PUSH   NP0
21856 @ 183302:                     JUMPIF >= L_0007
21857 @ 183306:                     PUSHI  #0x00000000
21858 @ 183311:                     RESULT
21859 @ 183312:                     LOCATE L_0007

  3973      %result = TRUE %if dict(p)_act > opmax;  !funcall,mapcall
21860 @ 183315:                     LINE   3973 "regression-compile-tmp/imp22g-77.imp"
21861 @ 183355:                     PUSH   DICT
21862 @ 183358:                     PUSH   P
21863 @ 183361:                     ACCESS
21864 @ 183362:                     SELECT 6
21865 @ 183365:                     PUSHI  #0x00000075
21866 @ 183370:                     JUMPIF <= L_0007
21867 @ 183374:                     PUSHI  #0x00000001
21868 @ 183379:                     RESULT
21869 @ 183380:                     LOCATE L_0007

  3974      %result = TRUE %unless dest # dict(p)_y < np0
21870 @ 183383:                     LINE   3974 "regression-compile-tmp/imp22g-77.imp"
21871 @ 183423:                     PUSH   DEST
21872 @ 183426:                     PUSH   DICT
21873 @ 183429:                     PUSH   P
21874 @ 183432:                     ACCESS
21875 @ 183433:                     SELECT 14
21876 @ 183436:                     JUMPIFD = L_0008
21877 @ 183440:                     PUSH   NP0
21878 @ 183443:                     JUMPIF < L_0007
21879 @ 183447:                     LOCATE L_0008
21880 @ 183450:                     PUSHI  #0x00000001
21881 @ 183455:                     RESULT
21882 @ 183456:                     LOCATE L_0007

  3975      p = dict(p)_x
21883 @ 183459:                     LINE   3975 "regression-compile-tmp/imp22g-77.imp"
21884 @ 183499:                     PUSH   P
21885 @ 183502:                     PUSH   DICT
21886 @ 183505:                     PUSH   P
21887 @ 183508:                     ACCESS
21888 @ 183509:                     SELECT 13
21889 @ 183512:                     ASSVAL

  3976    %repeat
21890 @ 183513:                     LINE   3976 "regression-compile-tmp/imp22g-77.imp"
21891 @ 183553:                     REPEAT L_0003

  3977  %end
21892 @ 183556:                     LINE   3977 "regression-compile-tmp/imp22g-77.imp"
21893 @ 183596:                  END    _lev0id0_EVAL_BEWARE_UNSAFE {lev=4 --> 3}

  3978    forget(dest) %and %return %if dest <= a7
21894 @ 183597:                  LINE   3978 "regression-compile-tmp/imp22g-77.imp"
21895 @ 183637:                  PUSH   DEST
21896 @ 183640:                  PUSHI  #0x00000010
21897 @ 183645:                  JUMPIF > L_0004
21898 @ 183649:                  PUSH   FORGET
21899 @ 183652:                  PUSH   DEST
21900 @ 183655:                  ASSPAR
21901 @ 183656:                  CALL  
21902 @ 183657:                  RETURN
21903 @ 183658:                  LOCATE L_0004

  3979    d = dest;  d = d-ad %if d >= explim
21904 @ 183661:                  LINE   3979 "regression-compile-tmp/imp22g-77.imp"
21905 @ 183701:                  PUSH   D
21906 @ 183704:                  PUSH   DEST
21907 @ 183707:                  ASSVAL
21908 @ 183708:                  LINE   3979 "regression-compile-tmp/imp22g-77.imp"
21909 @ 183748:                  PUSH   D
21910 @ 183751:                  PUSH   EXPLIM
21911 @ 183754:                  JUMPIF < L_0004
21912 @ 183758:                  PUSH   D
21913 @ 183761:                  PUSH   D
21914 @ 183764:                  PUSHI  #0x00004000
21915 @ 183769:                  SUB   
21916 @ 183770:                  ASSVAL
21917 @ 183771:                  LOCATE L_0004

  3980    %for r = d0,1,maxareg %cycle
21918 @ 183774:                  LINE   3980 "regression-compile-tmp/imp22g-77.imp"
21919 @ 183814:                  PUSH   R
21920 @ 183817:                  PUSHI  #0x00000001
21921 @ 183822:                  PUSHI  #0x0000000c
21922 @ 183827:                  PUSHI  #0x00000001
21923 @ 183832:                  FOR    L_0003

  3981      forget(r) %if unsafe(c_reg_content(r))=TRUE
21924 @ 183835:                  LINE   3981 "regression-compile-tmp/imp22g-77.imp"
21925 @ 183875:                  PUSH   UNSAFE
21926 @ 183878:                  PUSH   C
21927 @ 183881:                  SELECT 30
21928 @ 183884:                  SELECT 4
21929 @ 183887:                  PUSH   R
21930 @ 183890:                  ACCESS
21931 @ 183891:                  ASSPAR
21932 @ 183892:                  CALL  
21933 @ 183893:                  PUSHI  #0x00000001
21934 @ 183898:                  JUMPIF # L_0007
21935 @ 183902:                  PUSH   FORGET
21936 @ 183905:                  PUSH   R
21937 @ 183908:                  ASSPAR
21938 @ 183909:                  CALL  
21939 @ 183910:                  LOCATE L_0007

  3982    %repeat
21940 @ 183913:                  LINE   3982 "regression-compile-tmp/imp22g-77.imp"
21941 @ 183953:                  REPEAT L_0003
21942 @ 183956:                  LOCATE L_0004

  3983    forget cc %if unsafe(c_reg_ccx)=TRUE %or unsafe(c_reg_ccy)=TRUE
21943 @ 183959:                  LINE   3983 "regression-compile-tmp/imp22g-77.imp"
21944 @ 183999:                  PUSH   UNSAFE
21945 @ 184002:                  PUSH   C
21946 @ 184005:                  SELECT 30
21947 @ 184008:                  SELECT 1
21948 @ 184011:                  ASSPAR
21949 @ 184012:                  CALL  
21950 @ 184013:                  PUSHI  #0x00000001
21951 @ 184018:                  JUMPIF = L_0005
21952 @ 184022:                  PUSH   UNSAFE
21953 @ 184025:                  PUSH   C
21954 @ 184028:                  SELECT 30
21955 @ 184031:                  SELECT 2
21956 @ 184034:                  ASSPAR
21957 @ 184035:                  CALL  
21958 @ 184036:                  PUSHI  #0x00000001
21959 @ 184041:                  JUMPIF # L_0004
21960 @ 184045:                  LOCATE L_0005
21961 @ 184048:                  PUSH   FORGETCC
21962 @ 184051:                  CALL  
21963 @ 184052:                  LOCATE L_0004

  3984  %end
  3985  
21964 @ 184055:                  LINE   3984 "regression-compile-tmp/imp22g-77.imp"
21965 @ 184095:               END    _lev0id0_EVAL_BEWARE {lev=3 --> 2}

  3986  %integerfn XFREE(%integer v,strong)
21966 @ 184096:               LINE   3986 "regression-compile-tmp/imp22g-77.imp"
21967 @ 184136:               DEF    XFREE (_lev0id0_EVAL_XFREE) p1=V_0194 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
21968 @ 184153:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
21969 @ 184154:                     DEF    V p1=V_0195 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
21970 @ 184167:                     DEF    STRONG p1=V_0196 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
21971 @ 184185:                  FINISH ) {lev=3}

  3987  %record(identinfo)%name dp
21972 @ 184186:                  LINE   3987 "regression-compile-tmp/imp22g-77.imp"
21973 @ 184226:                  DEF    DP p1=V_0197 a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  3988    %cycle
21974 @ 184240:                  LINE   3988 "regression-compile-tmp/imp22g-77.imp"
21975 @ 184280:                  LOCATE L_0003

  3989      v = v-ad %if v >= explim
21976 @ 184283:                  LINE   3989 "regression-compile-tmp/imp22g-77.imp"
21977 @ 184323:                  PUSH   V
21978 @ 184326:                  PUSH   EXPLIM
21979 @ 184329:                  JUMPIF < L_0007
21980 @ 184333:                  PUSH   V
21981 @ 184336:                  PUSH   V
21982 @ 184339:                  PUSHI  #0x00004000
21983 @ 184344:                  SUB   
21984 @ 184345:                  ASSVAL
21985 @ 184346:                  LOCATE L_0007

  3990      %exit %if v < dictlim
21986 @ 184349:                  LINE   3990 "regression-compile-tmp/imp22g-77.imp"
21987 @ 184389:                  PUSH   V
21988 @ 184392:                  PUSH   DICTLIM
21989 @ 184395:                  JUMPIF >= L_0007
21990 @ 184399:                  GOTO   L_0004
21991 @ 184402:                  LOCATE L_0007

  3991      dp == dict(v)
21992 @ 184405:                  LINE   3991 "regression-compile-tmp/imp22g-77.imp"
21993 @ 184445:                  PUSH   DP
21994 @ 184448:                  PUSH   DICT
21995 @ 184451:                  PUSH   V
21996 @ 184454:                  ACCESS
21997 @ 184455:                  ASSREF

  3992      %result = FALSE %unless xfree(dp_y,1)=TRUE
21998 @ 184456:                  LINE   3992 "regression-compile-tmp/imp22g-77.imp"
21999 @ 184496:                  PUSH   XFREE
22000 @ 184499:                  PUSH   DP
22001 @ 184502:                  SELECT 14
22002 @ 184505:                  ASSPAR
22003 @ 184506:                  PUSHI  #0x00000001
22004 @ 184511:                  ASSPAR
22005 @ 184512:                  CALL  
22006 @ 184513:                  PUSHI  #0x00000001
22007 @ 184518:                  JUMPIF = L_0007
22008 @ 184522:                  PUSHI  #0x00000000
22009 @ 184527:                  RESULT
22010 @ 184528:                  LOCATE L_0007

  3993      strong = 1 %if dp_y >= dictlim
22011 @ 184531:                  LINE   3993 "regression-compile-tmp/imp22g-77.imp"
22012 @ 184571:                  PUSH   DP
22013 @ 184574:                  SELECT 14
22014 @ 184577:                  PUSH   DICTLIM
22015 @ 184580:                  JUMPIF < L_0007
22016 @ 184584:                  PUSH   STRONG
22017 @ 184587:                  PUSHI  #0x00000001
22018 @ 184592:                  ASSVAL
22019 @ 184593:                  LOCATE L_0007

  3994      v = dp_x
22020 @ 184596:                  LINE   3994 "regression-compile-tmp/imp22g-77.imp"
22021 @ 184636:                  PUSH   V
22022 @ 184639:                  PUSH   DP
22023 @ 184642:                  SELECT 13
22024 @ 184645:                  ASSVAL

  3995    %repeat
22025 @ 184646:                  LINE   3995 "regression-compile-tmp/imp22g-77.imp"
22026 @ 184686:                  REPEAT L_0003
22027 @ 184689:                  LOCATE L_0004

  3996    %result = TRUE %if v # x %or strong = 0
22028 @ 184692:                  LINE   3996 "regression-compile-tmp/imp22g-77.imp"
22029 @ 184732:                  PUSH   V
22030 @ 184735:                  PUSH   X
22031 @ 184738:                  JUMPIF # L_0005
22032 @ 184742:                  PUSH   STRONG
22033 @ 184745:                  PUSHI  #0x00000000
22034 @ 184750:                  JUMPIF # L_0004
22035 @ 184754:                  LOCATE L_0005
22036 @ 184757:                  PUSHI  #0x00000001
22037 @ 184762:                  RESULT
22038 @ 184763:                  LOCATE L_0004

  3997    %result = FALSE
22039 @ 184766:                  LINE   3997 "regression-compile-tmp/imp22g-77.imp"
22040 @ 184806:                  PUSHI  #0x00000000
22041 @ 184811:                  RESULT

  3998  %end
  3999  
  4000  !<<IMP
22042 @ 184812:                  LINE   3998 "regression-compile-tmp/imp22g-77.imp"
22043 @ 184852:               END    _lev0id0_EVAL_XFREE {lev=3 --> 2}

  4001  do(forass):  !FORASS:loopvar:start'
  4002               ! --   :inc    :end
22044 @ 184853:               LINE   4001 "regression-compile-tmp/imp22g-77.imp"
22045 @ 184893:               PUSHI  #0x00000024
22046 @ 184898:               SLABEL 327

  4003    eval(y,d0b)
22047 @ 184901:               LINE   4003 "regression-compile-tmp/imp22g-77.imp"
22048 @ 184941:               PUSH   EVAL
22049 @ 184944:               PUSH   Y
22050 @ 184947:               ASSPAR
22051 @ 184948:               PUSHI  #0x00000001
22052 @ 184953:               ASSPAR
22053 @ 184954:               CALL  

  4004    pp = pp+1;  dp == dict(pp)
22054 @ 184955:               LINE   4004 "regression-compile-tmp/imp22g-77.imp"
22055 @ 184995:               PUSH   PP
22056 @ 184998:               PUSH   PP
22057 @ 185001:               PUSHI  #0x00000001
22058 @ 185006:               ADD   
22059 @ 185007:               ASSVAL
22060 @ 185008:               LINE   4004 "regression-compile-tmp/imp22g-77.imp"
22061 @ 185048:               PUSH   DP
22062 @ 185051:               PUSH   DICT
22063 @ 185054:               PUSH   PP
22064 @ 185057:               ACCESS
22065 @ 185058:               ASSREF

  4005    i = dp_x;  eval(i,d1b);  i = dp_y;  eval(i,d2b)
22066 @ 185059:               LINE   4005 "regression-compile-tmp/imp22g-77.imp"
22067 @ 185099:               PUSH   I
22068 @ 185102:               PUSH   DP
22069 @ 185105:               SELECT 13
22070 @ 185108:               ASSVAL
22071 @ 185109:               LINE   4005 "regression-compile-tmp/imp22g-77.imp"
22072 @ 185149:               PUSH   EVAL
22073 @ 185152:               PUSH   I
22074 @ 185155:               ASSPAR
22075 @ 185156:               PUSHI  #0x00000002
22076 @ 185161:               ASSPAR
22077 @ 185162:               CALL  
22078 @ 185163:               LINE   4005 "regression-compile-tmp/imp22g-77.imp"
22079 @ 185203:               PUSH   I
22080 @ 185206:               PUSH   DP
22081 @ 185209:               SELECT 14
22082 @ 185212:               ASSVAL
22083 @ 185213:               LINE   4005 "regression-compile-tmp/imp22g-77.imp"
22084 @ 185253:               PUSH   EVAL
22085 @ 185256:               PUSH   I
22086 @ 185259:               ASSPAR
22087 @ 185260:               PUSHI  #0x00000004
22088 @ 185265:               ASSPAR
22089 @ 185266:               CALL  

  4006    srcall(forok)
  4007  !<<BOTH
22090 @ 185267:               LINE   4006 "regression-compile-tmp/imp22g-77.imp"
22091 @ 185307:               PUSH   SRCALL
22092 @ 185310:               PUSHI  #0x0000006e
22093 @ 185315:               ASSPAR
22094 @ 185316:               CALL  

  4008  do(jamass):
22095 @ 185317:               LINE   4008 "regression-compile-tmp/imp22g-77.imp"
22096 @ 185357:               PUSHI  #0x00000020
22097 @ 185362:               SLABEL 327

  4009  do(assign):
22098 @ 185365:               LINE   4009 "regression-compile-tmp/imp22g-77.imp"
22099 @ 185405:               PUSHI  #0x00000022
22100 @ 185410:               SLABEL 327

  4010  do(okass):
22101 @ 185413:               LINE   4010 "regression-compile-tmp/imp22g-77.imp"
22102 @ 185453:               PUSHI  #0x00000021
22103 @ 185458:               SLABEL 327

  4011    flush %if pendcond # 0
22104 @ 185461:               LINE   4011 "regression-compile-tmp/imp22g-77.imp"
22105 @ 185501:               PUSH   PENDCOND
22106 @ 185504:               PUSHI  #0x00000000
22107 @ 185509:               JUMPIF = L_0004
22108 @ 185513:               PUSH   FLUSH
22109 @ 185516:               CALL  
22110 @ 185517:               LOCATE L_0004

  4012    %if xx >= explim %start;  !ad of ...
22111 @ 185520:               LINE   4012 "regression-compile-tmp/imp22g-77.imp"
22112 @ 185560:               PUSH   XX
22113 @ 185563:               PUSH   EXPLIM
22114 @ 185566:               JUMPIF < L_0004

  4013      wx = weight(xx-ad)
22115 @ 185570:               LINE   4013 "regression-compile-tmp/imp22g-77.imp"
22116 @ 185610:               PUSH   WX
22117 @ 185613:               PUSH   WEIGHT
22118 @ 185616:               PUSH   XX
22119 @ 185619:               PUSHI  #0x00004000
22120 @ 185624:               SUB   
22121 @ 185625:               ASSPAR
22122 @ 185626:               CALL  
22123 @ 185627:               ASSVAL

  4014      dx == dict(xx-ad)
22124 @ 185628:               LINE   4014 "regression-compile-tmp/imp22g-77.imp"
22125 @ 185668:               PUSH   DX
22126 @ 185671:               PUSH   DICT
22127 @ 185674:               PUSH   XX
22128 @ 185677:               PUSHI  #0x00004000
22129 @ 185682:               SUB   
22130 @ 185683:               ACCESS
22131 @ 185684:               ASSREF

  4015      sx = 4
22132 @ 185685:               LINE   4015 "regression-compile-tmp/imp22g-77.imp"
22133 @ 185725:               PUSH   SX
22134 @ 185728:               PUSHI  #0x00000004
22135 @ 185733:               ASSVAL

  4016    %else
22136 @ 185734:               LINE   4016 "regression-compile-tmp/imp22g-77.imp"
22137 @ 185774:               GOTO   L_0003
22138 @ 185777:               LOCATE L_0004

  4017      wx = weight(xx)
22139 @ 185780:               LINE   4017 "regression-compile-tmp/imp22g-77.imp"
22140 @ 185820:               PUSH   WX
22141 @ 185823:               PUSH   WEIGHT
22142 @ 185826:               PUSH   XX
22143 @ 185829:               ASSPAR
22144 @ 185830:               CALL  
22145 @ 185831:               ASSVAL

  4018      dx == dict(xx)
22146 @ 185832:               LINE   4018 "regression-compile-tmp/imp22g-77.imp"
22147 @ 185872:               PUSH   DX
22148 @ 185875:               PUSH   DICT
22149 @ 185878:               PUSH   XX
22150 @ 185881:               ACCESS
22151 @ 185882:               ASSREF

  4019      sx = size(dx_type)
22152 @ 185883:               LINE   4019 "regression-compile-tmp/imp22g-77.imp"
22153 @ 185923:               PUSH   SX
22154 @ 185926:               PUSH   SIZE
22155 @ 185929:               PUSH   DX
22156 @ 185932:               SELECT 2
22157 @ 185935:               ASSPAR
22158 @ 185936:               CALL  
22159 @ 185937:               ASSVAL

  4020    %finish
22160 @ 185938:               LINE   4020 "regression-compile-tmp/imp22g-77.imp"
22161 @ 185978:               LOCATE L_0003

  4021    tx == dict(dx_type)
22162 @ 185981:               LINE   4021 "regression-compile-tmp/imp22g-77.imp"
22163 @ 186021:               PUSH   TX
22164 @ 186024:               PUSH   DICT
22165 @ 186027:               PUSH   DX
22166 @ 186030:               SELECT 2
22167 @ 186033:               ACCESS
22168 @ 186034:               ASSREF

  4022    sp = c_sp-c_val
22169 @ 186035:               LINE   4022 "regression-compile-tmp/imp22g-77.imp"
22170 @ 186075:               PUSH   SP
22171 @ 186078:               PUSH   C
22172 @ 186081:               SELECT 1
22173 @ 186084:               PUSH   C
22174 @ 186087:               SELECT 28
22175 @ 186090:               SUB   
22176 @ 186091:               ASSVAL

  4023    %if sx <= 0 %start;  !structure assignment
  4024      !Structure
  4025      ![for rec/string assignment beware corruption of stacked
  4026      ! structure in computing DEST]
22177 @ 186092:               LINE   4023 "regression-compile-tmp/imp22g-77.imp"
22178 @ 186132:               PUSH   SX
22179 @ 186135:               PUSHI  #0x00000000
22180 @ 186140:               JUMPIF > L_0004

  4027      update sp
22181 @ 186144:               LINE   4027 "regression-compile-tmp/imp22g-77.imp"
22182 @ 186184:               PUSH   UPDATESP
22183 @ 186187:               CALL  

  4028      %if tx_flags&cat = stringy %start
22184 @ 186188:               LINE   4028 "regression-compile-tmp/imp22g-77.imp"
22185 @ 186228:               PUSH   TX
22186 @ 186231:               SELECT 1
22187 @ 186234:               PUSHI  #0x0000000f
22188 @ 186239:               AND   
22189 @ 186240:               PUSHI  #0x00000008
22190 @ 186245:               JUMPIF # L_0007

  4029        sx = -256 %if sx = 0;   !string(*)
22191 @ 186249:               LINE   4029 "regression-compile-tmp/imp22g-77.imp"
22192 @ 186289:               PUSH   SX
22193 @ 186292:               PUSHI  #0x00000000
22194 @ 186297:               JUMPIF # L_000a
22195 @ 186301:               PUSH   SX
22196 @ 186304:               PUSHI  #0x00000100
22197 @ 186309:               NEGATE
22198 @ 186310:               ASSVAL
22199 @ 186311:               LOCATE L_000a

  4030        op = -1;  op = dict(y)_act %if y >= np0
22200 @ 186314:               LINE   4030 "regression-compile-tmp/imp22g-77.imp"
22201 @ 186354:               PUSH   OP
22202 @ 186357:               PUSHI  #0x00000001
22203 @ 186362:               NEGATE
22204 @ 186363:               ASSVAL
22205 @ 186364:               LINE   4030 "regression-compile-tmp/imp22g-77.imp"
22206 @ 186404:               PUSH   Y
22207 @ 186407:               PUSH   NP0
22208 @ 186410:               JUMPIF < L_000a
22209 @ 186414:               PUSH   OP
22210 @ 186417:               PUSH   DICT
22211 @ 186420:               PUSH   Y
22212 @ 186423:               ACCESS
22213 @ 186424:               SELECT 6
22214 @ 186427:               ASSVAL
22215 @ 186428:               LOCATE L_000a

  4031        %if y = 0 %start;  !""
22216 @ 186431:               LINE   4031 "regression-compile-tmp/imp22g-77.imp"
22217 @ 186471:               PUSH   Y
22218 @ 186474:               PUSHI  #0x00000000
22219 @ 186479:               JUMPIF # L_000a

  4032          eval(x,ref)
22220 @ 186483:               LINE   4032 "regression-compile-tmp/imp22g-77.imp"
22221 @ 186523:               PUSH   EVAL
22222 @ 186526:               PUSH   X
22223 @ 186529:               ASSPAR
22224 @ 186530:               PUSHI  #0x80000000
22225 @ 186535:               ASSPAR
22226 @ 186536:               CALL  

  4033          plant(clr+1<<8,0,x)
22227 @ 186537:               LINE   4033 "regression-compile-tmp/imp22g-77.imp"
22228 @ 186577:               PUSH   PLANT
22229 @ 186580:               PUSHI  #0x00000034
22230 @ 186585:               PUSHI  #0x00000001
22231 @ 186590:               PUSHI  #0x00000008
22232 @ 186595:               LSH   
22233 @ 186596:               ADD   
22234 @ 186597:               ASSPAR
22235 @ 186598:               PUSHI  #0x00000000
22236 @ 186603:               ASSPAR
22237 @ 186604:               PUSH   X
22238 @ 186607:               ASSPAR
22239 @ 186608:               CALL  

  4034        %finish %else %if op = dtostring %start
22240 @ 186609:               LINE   4034 "regression-compile-tmp/imp22g-77.imp"
22241 @ 186649:               GOTO   L_0009
22242 @ 186652:               LOCATE L_000a
22243 @ 186655:               PUSH   OP
22244 @ 186658:               PUSHI  #0x0000006b
22245 @ 186663:               JUMPIF # L_000a

  4035          y = dict(y)_x
22246 @ 186667:               LINE   4035 "regression-compile-tmp/imp22g-77.imp"
22247 @ 186707:               PUSH   Y
22248 @ 186710:               PUSH   DICT
22249 @ 186713:               PUSH   Y
22250 @ 186716:               ACCESS
22251 @ 186717:               SELECT 13
22252 @ 186720:               ASSVAL

  4036          eval(y,tobyte+val);  !character value
22253 @ 186721:               LINE   4036 "regression-compile-tmp/imp22g-77.imp"
22254 @ 186761:               PUSH   EVAL
22255 @ 186764:               PUSH   Y
22256 @ 186767:               ASSPAR
22257 @ 186768:               PUSHI  #0x00010000
22258 @ 186773:               PUSHI  #0x8000ffff
22259 @ 186778:               ADD   
22260 @ 186779:               ASSPAR
22261 @ 186780:               CALL  

  4037          eval(x,anyareg&free+asad)
22262 @ 186781:               LINE   4037 "regression-compile-tmp/imp22g-77.imp"
22263 @ 186821:               PUSH   EVAL
22264 @ 186824:               PUSH   X
22265 @ 186827:               ASSPAR
22266 @ 186828:               PUSHI  #0x0000ff00
22267 @ 186833:               PUSH   FREE
22268 @ 186836:               AND   
22269 @ 186837:               PUSHI  #0x00100000
22270 @ 186842:               ADD   
22271 @ 186843:               ASSPAR
22272 @ 186844:               CALL  

  4038          plant(moveb,one,x+post)
22273 @ 186845:               LINE   4038 "regression-compile-tmp/imp22g-77.imp"
22274 @ 186885:               PUSH   PLANT
22275 @ 186888:               PUSHI  #0x00000101
22276 @ 186893:               ASSPAR
22277 @ 186894:               PUSHI  #0xfffffffe
22278 @ 186899:               ASSPAR
22279 @ 186900:               PUSH   X
22280 @ 186903:               PUSHI  #0x00000010
22281 @ 186908:               ADD   
22282 @ 186909:               ASSPAR
22283 @ 186910:               CALL  

  4039          plant(moveb,y,x+indir)
22284 @ 186911:               LINE   4039 "regression-compile-tmp/imp22g-77.imp"
22285 @ 186951:               PUSH   PLANT
22286 @ 186954:               PUSHI  #0x00000101
22287 @ 186959:               ASSPAR
22288 @ 186960:               PUSH   Y
22289 @ 186963:               ASSPAR
22290 @ 186964:               PUSH   X
22291 @ 186967:               PUSHI  #0x00000008
22292 @ 186972:               ADD   
22293 @ 186973:               ASSPAR
22294 @ 186974:               CALL  

  4040          forget(x)
22295 @ 186975:               LINE   4040 "regression-compile-tmp/imp22g-77.imp"
22296 @ 187015:               PUSH   FORGET
22297 @ 187018:               PUSH   X
22298 @ 187021:               ASSPAR
22299 @ 187022:               CALL  

  4041          forget cc
22300 @ 187023:               LINE   4041 "regression-compile-tmp/imp22g-77.imp"
22301 @ 187063:               PUSH   FORGETCC
22302 @ 187066:               CALL  

  4042        %finish %else %if act = jamass %or %not easy(y)=TRUE %start
22303 @ 187067:               LINE   4042 "regression-compile-tmp/imp22g-77.imp"
22304 @ 187107:               GOTO   L_0009
22305 @ 187110:               LOCATE L_000a
22306 @ 187113:               PUSH   ACT
22307 @ 187116:               PUSHI  #0x00000020
22308 @ 187121:               JUMPIF = L_000b
22309 @ 187125:               PUSH   EASY
22310 @ 187128:               PUSH   Y
22311 @ 187131:               ASSPAR
22312 @ 187132:               CALL  
22313 @ 187133:               PUSHI  #0x00000001
22314 @ 187138:               JUMPIF = L_000a
22315 @ 187142:               LOCATE L_000b

  4043          %if op >= concat %and wx > 1 %start
  4044          ! Danger of corruption of RHS
22316 @ 187145:               LINE   4043 "regression-compile-tmp/imp22g-77.imp"
22317 @ 187185:               PUSH   OP
22318 @ 187188:               PUSHI  #0x0000006a
22319 @ 187193:               JUMPIF < L_000d
22320 @ 187197:               PUSH   WX
22321 @ 187200:               PUSHI  #0x00000001
22322 @ 187205:               JUMPIF <= L_000d

  4045            stsiz = sx
22323 @ 187209:               LINE   4045 "regression-compile-tmp/imp22g-77.imp"
22324 @ 187249:               PUSH   STSIZ
22325 @ 187252:               PUSH   SX
22326 @ 187255:               ASSVAL

  4046            eval(y,tostack);  free = free!a0b
22327 @ 187256:               LINE   4046 "regression-compile-tmp/imp22g-77.imp"
22328 @ 187296:               PUSH   EVAL
22329 @ 187299:               PUSH   Y
22330 @ 187302:               ASSPAR
22331 @ 187303:               PUSHI  #0x00080000
22332 @ 187308:               ASSPAR
22333 @ 187309:               CALL  
22334 @ 187310:               LINE   4046 "regression-compile-tmp/imp22g-77.imp"
22335 @ 187350:               PUSH   FREE
22336 @ 187353:               PUSH   FREE
22337 @ 187356:               PUSHI  #0x00000100
22338 @ 187361:               OR    
22339 @ 187362:               ASSVAL

  4047            eval(x,a1b+asad)
22340 @ 187363:               LINE   4047 "regression-compile-tmp/imp22g-77.imp"
22341 @ 187403:               PUSH   EVAL
22342 @ 187406:               PUSH   X
22343 @ 187409:               ASSPAR
22344 @ 187410:               PUSHI  #0x00000200
22345 @ 187415:               PUSHI  #0x00100000
22346 @ 187420:               ADD   
22347 @ 187421:               ASSPAR
22348 @ 187422:               CALL  

  4048            plant(move,a7,a0);  y = a0
22349 @ 187423:               LINE   4048 "regression-compile-tmp/imp22g-77.imp"
22350 @ 187463:               PUSH   PLANT
22351 @ 187466:               PUSHI  #0x00000001
22352 @ 187471:               ASSPAR
22353 @ 187472:               PUSHI  #0x00000010
22354 @ 187477:               ASSPAR
22355 @ 187478:               PUSHI  #0x00000009
22356 @ 187483:               ASSPAR
22357 @ 187484:               CALL  
22358 @ 187485:               LINE   4048 "regression-compile-tmp/imp22g-77.imp"
22359 @ 187525:               PUSH   Y
22360 @ 187528:               PUSHI  #0x00000009
22361 @ 187533:               ASSVAL

  4049            structcall(strcopy,sx)
22362 @ 187534:               LINE   4049 "regression-compile-tmp/imp22g-77.imp"
22363 @ 187574:               PUSH   STRUCTCALL
22364 @ 187577:               PUSHI  #0x00000071
22365 @ 187582:               ASSPAR
22366 @ 187583:               PUSH   SX
22367 @ 187586:               ASSPAR
22368 @ 187587:               CALL  

  4050          %finish %else %if act # assign %or sx = -256 %or control&capbit = 0 %start
  4051          ! No check needed
22369 @ 187588:               LINE   4050 "regression-compile-tmp/imp22g-77.imp"
22370 @ 187628:               GOTO   L_000c
22371 @ 187631:               LOCATE L_000d
22372 @ 187634:               PUSH   ACT
22373 @ 187637:               PUSHI  #0x00000022
22374 @ 187642:               JUMPIF # L_000e
22375 @ 187646:               PUSH   SX
22376 @ 187649:               PUSHI  #0x00000100
22377 @ 187654:               NEGATE
22378 @ 187655:               JUMPIF = L_000e
22379 @ 187659:               PUSH   CONTROL
22380 @ 187662:               PUSHI  #0x20000000
22381 @ 187667:               AND   
22382 @ 187668:               PUSHI  #0x00000000
22383 @ 187673:               JUMPIF # L_000d
22384 @ 187677:               LOCATE L_000e

  4052            %if wx > 1 %then eval(x,anyareg&free+asad) %and eval(y,anyareg&free+asad) %c
  4053            %else eval(y,anyareg&free+asad) %and eval(x,anyareg&free+asad)
  4054  !not worth %if act # jamass %and sx >= -4 %start
  4055  !            %cycle
  4056  !              plant(moveb,y+post,x+post)
  4057  !              sx = sx+1
  4058  !            %repeat %until sx >= 0
  4059  !          %else
22385 @ 187680:               LINE   4052 "regression-compile-tmp/imp22g-77.imp"
22386 @ 187720:               PUSH   WX
22387 @ 187723:               PUSHI  #0x00000001
22388 @ 187728:               JUMPIF <= L_0010
22389 @ 187732:               PUSH   EVAL
22390 @ 187735:               PUSH   X
22391 @ 187738:               ASSPAR
22392 @ 187739:               PUSHI  #0x0000ff00
22393 @ 187744:               PUSH   FREE
22394 @ 187747:               AND   
22395 @ 187748:               PUSHI  #0x00100000
22396 @ 187753:               ADD   
22397 @ 187754:               ASSPAR
22398 @ 187755:               CALL  
22399 @ 187756:               PUSH   EVAL
22400 @ 187759:               PUSH   Y
22401 @ 187762:               ASSPAR
22402 @ 187763:               PUSHI  #0x0000ff00
22403 @ 187768:               PUSH   FREE
22404 @ 187771:               AND   
22405 @ 187772:               PUSHI  #0x00100000
22406 @ 187777:               ADD   
22407 @ 187778:               ASSPAR
22408 @ 187779:               CALL  
22409 @ 187780:               GOTO   L_000f
22410 @ 187783:               LOCATE L_0010
22411 @ 187786:               PUSH   EVAL
22412 @ 187789:               PUSH   Y
22413 @ 187792:               ASSPAR
22414 @ 187793:               PUSHI  #0x0000ff00
22415 @ 187798:               PUSH   FREE
22416 @ 187801:               AND   
22417 @ 187802:               PUSHI  #0x00100000
22418 @ 187807:               ADD   
22419 @ 187808:               ASSPAR
22420 @ 187809:               CALL  
22421 @ 187810:               PUSH   EVAL
22422 @ 187813:               PUSH   X
22423 @ 187816:               ASSPAR
22424 @ 187817:               PUSHI  #0x0000ff00
22425 @ 187822:               PUSH   FREE
22426 @ 187825:               AND   
22427 @ 187826:               PUSHI  #0x00100000
22428 @ 187831:               ADD   
22429 @ 187832:               ASSPAR
22430 @ 187833:               CALL  
22431 @ 187834:               LOCATE L_000f

  4060              i = free reg(anydreg!bregb)
22432 @ 187837:               LINE   4060 "regression-compile-tmp/imp22g-77.imp"
22433 @ 187877:               PUSH   I
22434 @ 187880:               PUSH   FREEREG
22435 @ 187883:               PUSHI  #0x000000ef
22436 @ 187888:               PUSHI  #0x00000010
22437 @ 187893:               OR    
22438 @ 187894:               ASSPAR
22439 @ 187895:               CALL  
22440 @ 187896:               ASSVAL

  4061              %if act = jamass %start
22441 @ 187897:               LINE   4061 "regression-compile-tmp/imp22g-77.imp"
22442 @ 187937:               PUSH   ACT
22443 @ 187940:               PUSHI  #0x00000020
22444 @ 187945:               JUMPIF # L_0010

  4062                plantlit(move,mite(-sx-1),i)
22445 @ 187949:               LINE   4062 "regression-compile-tmp/imp22g-77.imp"
22446 @ 187989:               PUSH   PLANTLIT
22447 @ 187992:               PUSHI  #0x00000001
22448 @ 187997:               ASSPAR
22449 @ 187998:               PUSH   MITE
22450 @ 188001:               PUSH   SX
22451 @ 188004:               NEGATE
22452 @ 188005:               PUSHI  #0x00000001
22453 @ 188010:               SUB   
22454 @ 188011:               ASSPAR
22455 @ 188012:               CALL  
22456 @ 188013:               ASSPAR
22457 @ 188014:               PUSH   I
22458 @ 188017:               ASSPAR
22459 @ 188018:               CALL  

  4063                plant(moveb,i,x+post)
22460 @ 188019:               LINE   4063 "regression-compile-tmp/imp22g-77.imp"
22461 @ 188059:               PUSH   PLANT
22462 @ 188062:               PUSHI  #0x00000101
22463 @ 188067:               ASSPAR
22464 @ 188068:               PUSH   I
22465 @ 188071:               ASSPAR
22466 @ 188072:               PUSH   X
22467 @ 188075:               PUSHI  #0x00000010
22468 @ 188080:               ADD   
22469 @ 188081:               ASSPAR
22470 @ 188082:               CALL  

  4064                plant(cmpb,y+post,i)
22471 @ 188083:               LINE   4064 "regression-compile-tmp/imp22g-77.imp"
22472 @ 188123:               PUSH   PLANT
22473 @ 188126:               PUSHI  #0x00000104
22474 @ 188131:               ASSPAR
22475 @ 188132:               PUSH   Y
22476 @ 188135:               PUSHI  #0x00000010
22477 @ 188140:               ADD   
22478 @ 188141:               ASSPAR
22479 @ 188142:               PUSH   I
22480 @ 188145:               ASSPAR
22481 @ 188146:               CALL  

  4065                plantlit2(bcs,0,6);     ! 3 2-byte instructions **
22482 @ 188147:               LINE   4065 "regression-compile-tmp/imp22g-77.imp"
22483 @ 188187:               PUSH   PLANTLIT2
22484 @ 188190:               PUSHI  #0x00000015
22485 @ 188195:               ASSPAR
22486 @ 188196:               PUSHI  #0x00000000
22487 @ 188201:               ASSPAR
22488 @ 188202:               PUSHI  #0x00000006
22489 @ 188207:               ASSPAR
22490 @ 188208:               CALL  

  4066                plant(sub,one,x)
22491 @ 188209:               LINE   4066 "regression-compile-tmp/imp22g-77.imp"
22492 @ 188249:               PUSH   PLANT
22493 @ 188252:               PUSHI  #0x00000003
22494 @ 188257:               ASSPAR
22495 @ 188258:               PUSHI  #0xfffffffe
22496 @ 188263:               ASSPAR
22497 @ 188264:               PUSH   X
22498 @ 188267:               ASSPAR
22499 @ 188268:               CALL  

  4067                plant(moveb,y+pre,i)
22500 @ 188269:               LINE   4067 "regression-compile-tmp/imp22g-77.imp"
22501 @ 188309:               PUSH   PLANT
22502 @ 188312:               PUSHI  #0x00000101
22503 @ 188317:               ASSPAR
22504 @ 188318:               PUSH   Y
22505 @ 188321:               PUSHI  #0x00000018
22506 @ 188326:               ADD   
22507 @ 188327:               ASSPAR
22508 @ 188328:               PUSH   I
22509 @ 188331:               ASSPAR
22510 @ 188332:               CALL  

  4068              %else
22511 @ 188333:               LINE   4068 "regression-compile-tmp/imp22g-77.imp"
22512 @ 188373:               GOTO   L_000f
22513 @ 188376:               LOCATE L_0010

  4069                plant(moveb,y+indir,i);   !length (dirty OK)
22514 @ 188379:               LINE   4069 "regression-compile-tmp/imp22g-77.imp"
22515 @ 188419:               PUSH   PLANT
22516 @ 188422:               PUSHI  #0x00000101
22517 @ 188427:               ASSPAR
22518 @ 188428:               PUSH   Y
22519 @ 188431:               PUSHI  #0x00000008
22520 @ 188436:               ADD   
22521 @ 188437:               ASSPAR
22522 @ 188438:               PUSH   I
22523 @ 188441:               ASSPAR
22524 @ 188442:               CALL  

  4070              %finish
22525 @ 188443:               LINE   4070 "regression-compile-tmp/imp22g-77.imp"
22526 @ 188483:               LOCATE L_000f

  4071              plant(moveb,y+post,x+post)
22527 @ 188486:               LINE   4071 "regression-compile-tmp/imp22g-77.imp"
22528 @ 188526:               PUSH   PLANT
22529 @ 188529:               PUSHI  #0x00000101
22530 @ 188534:               ASSPAR
22531 @ 188535:               PUSH   Y
22532 @ 188538:               PUSHI  #0x00000010
22533 @ 188543:               ADD   
22534 @ 188544:               ASSPAR
22535 @ 188545:               PUSH   X
22536 @ 188548:               PUSHI  #0x00000010
22537 @ 188553:               ADD   
22538 @ 188554:               ASSPAR
22539 @ 188555:               CALL  

  4072              plant(subb,one,i)
22540 @ 188556:               LINE   4072 "regression-compile-tmp/imp22g-77.imp"
22541 @ 188596:               PUSH   PLANT
22542 @ 188599:               PUSHI  #0x00000103
22543 @ 188604:               ASSPAR
22544 @ 188605:               PUSHI  #0xfffffffe
22545 @ 188610:               ASSPAR
22546 @ 188611:               PUSH   I
22547 @ 188614:               ASSPAR
22548 @ 188615:               CALL  

  4073              plantlit2(bcc,0,-6)
22549 @ 188616:               LINE   4073 "regression-compile-tmp/imp22g-77.imp"
22550 @ 188656:               PUSH   PLANTLIT2
22551 @ 188659:               PUSHI  #0x00000014
22552 @ 188664:               ASSPAR
22553 @ 188665:               PUSHI  #0x00000000
22554 @ 188670:               ASSPAR
22555 @ 188671:               PUSHI  #0x00000006
22556 @ 188676:               NEGATE
22557 @ 188677:               ASSPAR
22558 @ 188678:               CALL  

  4074              forget(i)
  4075  !          %finish
22559 @ 188679:               LINE   4074 "regression-compile-tmp/imp22g-77.imp"
22560 @ 188719:               PUSH   FORGET
22561 @ 188722:               PUSH   I
22562 @ 188725:               ASSPAR
22563 @ 188726:               CALL  

  4076          %else
22564 @ 188727:               LINE   4076 "regression-compile-tmp/imp22g-77.imp"
22565 @ 188767:               GOTO   L_000c
22566 @ 188770:               LOCATE L_000d

  4077            %if wx > 1 %then eval(x,a1b+asad) %and eval(y,a0b+asad) %c
  4078            %else eval(y,a0b+asad) %and eval(x,a1b+asad)
22567 @ 188773:               LINE   4077 "regression-compile-tmp/imp22g-77.imp"
22568 @ 188813:               PUSH   WX
22569 @ 188816:               PUSHI  #0x00000001
22570 @ 188821:               JUMPIF <= L_0010
22571 @ 188825:               PUSH   EVAL
22572 @ 188828:               PUSH   X
22573 @ 188831:               ASSPAR
22574 @ 188832:               PUSHI  #0x00000200
22575 @ 188837:               PUSHI  #0x00100000
22576 @ 188842:               ADD   
22577 @ 188843:               ASSPAR
22578 @ 188844:               CALL  
22579 @ 188845:               PUSH   EVAL
22580 @ 188848:               PUSH   Y
22581 @ 188851:               ASSPAR
22582 @ 188852:               PUSHI  #0x00000100
22583 @ 188857:               PUSHI  #0x00100000
22584 @ 188862:               ADD   
22585 @ 188863:               ASSPAR
22586 @ 188864:               CALL  
22587 @ 188865:               GOTO   L_000f
22588 @ 188868:               LOCATE L_0010
22589 @ 188871:               PUSH   EVAL
22590 @ 188874:               PUSH   Y
22591 @ 188877:               ASSPAR
22592 @ 188878:               PUSHI  #0x00000100
22593 @ 188883:               PUSHI  #0x00100000
22594 @ 188888:               ADD   
22595 @ 188889:               ASSPAR
22596 @ 188890:               CALL  
22597 @ 188891:               PUSH   EVAL
22598 @ 188894:               PUSH   X
22599 @ 188897:               ASSPAR
22600 @ 188898:               PUSHI  #0x00000200
22601 @ 188903:               PUSHI  #0x00100000
22602 @ 188908:               ADD   
22603 @ 188909:               ASSPAR
22604 @ 188910:               CALL  
22605 @ 188911:               LOCATE L_000f

  4079            structcall(strcopy,sx)
22606 @ 188914:               LINE   4079 "regression-compile-tmp/imp22g-77.imp"
22607 @ 188954:               PUSH   STRUCTCALL
22608 @ 188957:               PUSHI  #0x00000071
22609 @ 188962:               ASSPAR
22610 @ 188963:               PUSH   SX
22611 @ 188966:               ASSPAR
22612 @ 188967:               CALL  

  4080          %finish
22613 @ 188968:               LINE   4080 "regression-compile-tmp/imp22g-77.imp"
22614 @ 189008:               LOCATE L_000c

  4081          forget(x);  forget(y)
22615 @ 189011:               LINE   4081 "regression-compile-tmp/imp22g-77.imp"
22616 @ 189051:               PUSH   FORGET
22617 @ 189054:               PUSH   X
22618 @ 189057:               ASSPAR
22619 @ 189058:               CALL  
22620 @ 189059:               LINE   4081 "regression-compile-tmp/imp22g-77.imp"
22621 @ 189099:               PUSH   FORGET
22622 @ 189102:               PUSH   Y
22623 @ 189105:               ASSPAR
22624 @ 189106:               CALL  

  4082          forget cc
22625 @ 189107:               LINE   4082 "regression-compile-tmp/imp22g-77.imp"
22626 @ 189147:               PUSH   FORGETCC
22627 @ 189150:               CALL  

  4083        %finish
22628 @ 189151:               LINE   4083 "regression-compile-tmp/imp22g-77.imp"
22629 @ 189191:               LOCATE L_000a
22630 @ 189194:               LOCATE L_0009

  4084      %finish %else %unless easy(y)=TRUE %start
22631 @ 189197:               LINE   4084 "regression-compile-tmp/imp22g-77.imp"
22632 @ 189237:               GOTO   L_0006
22633 @ 189240:               LOCATE L_0007
22634 @ 189243:               PUSH   EASY
22635 @ 189246:               PUSH   Y
22636 @ 189249:               ASSPAR
22637 @ 189250:               CALL  
22638 @ 189251:               PUSHI  #0x00000001
22639 @ 189256:               JUMPIF = L_0007

  4085        eval(x,anyareg&free+asad) %if y = 0 %or wx > 1
22640 @ 189260:               LINE   4085 "regression-compile-tmp/imp22g-77.imp"
22641 @ 189300:               PUSH   Y
22642 @ 189303:               PUSHI  #0x00000000
22643 @ 189308:               JUMPIF = L_000b
22644 @ 189312:               PUSH   WX
22645 @ 189315:               PUSHI  #0x00000001
22646 @ 189320:               JUMPIF <= L_000a
22647 @ 189324:               LOCATE L_000b
22648 @ 189327:               PUSH   EVAL
22649 @ 189330:               PUSH   X
22650 @ 189333:               ASSPAR
22651 @ 189334:               PUSHI  #0x0000ff00
22652 @ 189339:               PUSH   FREE
22653 @ 189342:               AND   
22654 @ 189343:               PUSHI  #0x00100000
22655 @ 189348:               ADD   
22656 @ 189349:               ASSPAR
22657 @ 189350:               CALL  
22658 @ 189351:               LOCATE L_000a

  4086        %if y # 0 %start
22659 @ 189354:               LINE   4086 "regression-compile-tmp/imp22g-77.imp"
22660 @ 189394:               PUSH   Y
22661 @ 189397:               PUSHI  #0x00000000
22662 @ 189402:               JUMPIF = L_000a

  4087          sx = tsize(y) %if sx = 0
22663 @ 189406:               LINE   4087 "regression-compile-tmp/imp22g-77.imp"
22664 @ 189446:               PUSH   SX
22665 @ 189449:               PUSHI  #0x00000000
22666 @ 189454:               JUMPIF # L_000d
22667 @ 189458:               PUSH   SX
22668 @ 189461:               PUSH   TSIZE
22669 @ 189464:               PUSH   Y
22670 @ 189467:               ASSPAR
22671 @ 189468:               CALL  
22672 @ 189469:               ASSVAL
22673 @ 189470:               LOCATE L_000d

  4088          eval(y,anyareg&free+asad)
22674 @ 189473:               LINE   4088 "regression-compile-tmp/imp22g-77.imp"
22675 @ 189513:               PUSH   EVAL
22676 @ 189516:               PUSH   Y
22677 @ 189519:               ASSPAR
22678 @ 189520:               PUSHI  #0x0000ff00
22679 @ 189525:               PUSH   FREE
22680 @ 189528:               AND   
22681 @ 189529:               PUSHI  #0x00100000
22682 @ 189534:               ADD   
22683 @ 189535:               ASSPAR
22684 @ 189536:               CALL  

  4089          forget(y)
22685 @ 189537:               LINE   4089 "regression-compile-tmp/imp22g-77.imp"
22686 @ 189577:               PUSH   FORGET
22687 @ 189580:               PUSH   Y
22688 @ 189583:               ASSPAR
22689 @ 189584:               CALL  

  4090          y = y+post
22690 @ 189585:               LINE   4090 "regression-compile-tmp/imp22g-77.imp"
22691 @ 189625:               PUSH   Y
22692 @ 189628:               PUSH   Y
22693 @ 189631:               PUSHI  #0x00000010
22694 @ 189636:               ADD   
22695 @ 189637:               ASSVAL

  4091          eval(x,anyareg&free+asad) %if wx <= 1
22696 @ 189638:               LINE   4091 "regression-compile-tmp/imp22g-77.imp"
22697 @ 189678:               PUSH   WX
22698 @ 189681:               PUSHI  #0x00000001
22699 @ 189686:               JUMPIF > L_000d
22700 @ 189690:               PUSH   EVAL
22701 @ 189693:               PUSH   X
22702 @ 189696:               ASSPAR
22703 @ 189697:               PUSHI  #0x0000ff00
22704 @ 189702:               PUSH   FREE
22705 @ 189705:               AND   
22706 @ 189706:               PUSHI  #0x00100000
22707 @ 189711:               ADD   
22708 @ 189712:               ASSPAR
22709 @ 189713:               CALL  
22710 @ 189714:               LOCATE L_000d

  4092        %finish
22711 @ 189717:               LINE   4092 "regression-compile-tmp/imp22g-77.imp"
22712 @ 189757:               LOCATE L_000a

  4093        forget(x)
22713 @ 189760:               LINE   4093 "regression-compile-tmp/imp22g-77.imp"
22714 @ 189800:               PUSH   FORGET
22715 @ 189803:               PUSH   X
22716 @ 189806:               ASSPAR
22717 @ 189807:               CALL  

  4094        %if sx = 0 %then fault(sizerr) %else move block(y,x+post,-sx)
22718 @ 189808:               LINE   4094 "regression-compile-tmp/imp22g-77.imp"
22719 @ 189848:               PUSH   SX
22720 @ 189851:               PUSHI  #0x00000000
22721 @ 189856:               JUMPIF # L_000a
22722 @ 189860:               PUSH   FAULT
22723 @ 189863:               PUSHI  #0x0000000b
22724 @ 189868:               ASSPAR
22725 @ 189869:               CALL  
22726 @ 189870:               GOTO   L_0009
22727 @ 189873:               LOCATE L_000a
22728 @ 189876:               PUSH   MOVEBLOCK
22729 @ 189879:               PUSH   Y
22730 @ 189882:               ASSPAR
22731 @ 189883:               PUSH   X
22732 @ 189886:               PUSHI  #0x00000010
22733 @ 189891:               ADD   
22734 @ 189892:               ASSPAR
22735 @ 189893:               PUSH   SX
22736 @ 189896:               NEGATE
22737 @ 189897:               ASSPAR
22738 @ 189898:               CALL  
22739 @ 189899:               LOCATE L_0009

  4095      %finish
22740 @ 189902:               LINE   4095 "regression-compile-tmp/imp22g-77.imp"
22741 @ 189942:               LOCATE L_0007
22742 @ 189945:               LOCATE L_0006

  4096      beware(xx)
22743 @ 189948:               LINE   4096 "regression-compile-tmp/imp22g-77.imp"
22744 @ 189988:               PUSH   BEWARE
22745 @ 189991:               PUSH   XX
22746 @ 189994:               ASSPAR
22747 @ 189995:               CALL  

  4097      -> checksp
22748 @ 189996:               LINE   4097 "regression-compile-tmp/imp22g-77.imp"
22749 @ 190036:               JUMP   L_0191

  4098    %finish
  4099  !Simple operand
22750 @ 190039:               LINE   4098 "regression-compile-tmp/imp22g-77.imp"
22751 @ 190079:               LOCATE L_0004

  4100    %if c_val # 0 %start
22752 @ 190082:               LINE   4100 "regression-compile-tmp/imp22g-77.imp"
22753 @ 190122:               PUSH   C
22754 @ 190125:               SELECT 28
22755 @ 190128:               PUSHI  #0x00000000
22756 @ 190133:               JUMPIF = L_0004

  4101      %if dx_val = sp %and dx_mode = c_mode %start
22757 @ 190137:               LINE   4101 "regression-compile-tmp/imp22g-77.imp"
22758 @ 190177:               PUSH   DX
22759 @ 190180:               SELECT 9
22760 @ 190183:               PUSH   SP
22761 @ 190186:               JUMPIF # L_0007
22762 @ 190190:               PUSH   DX
22763 @ 190193:               SELECT 8
22764 @ 190196:               PUSH   C
22765 @ 190199:               SELECT 27
22766 @ 190202:               JUMPIF # L_0007

  4102        %if sx = 4 %or x >= explim %then c_val = c_val-4 %c
  4103        %else c_val = c_val-2
22767 @ 190206:               LINE   4102 "regression-compile-tmp/imp22g-77.imp"
22768 @ 190246:               PUSH   SX
22769 @ 190249:               PUSHI  #0x00000004
22770 @ 190254:               JUMPIF = L_000b
22771 @ 190258:               PUSH   X
22772 @ 190261:               PUSH   EXPLIM
22773 @ 190264:               JUMPIF < L_000a
22774 @ 190268:               LOCATE L_000b
22775 @ 190271:               PUSH   C
22776 @ 190274:               SELECT 28
22777 @ 190277:               PUSH   C
22778 @ 190280:               SELECT 28
22779 @ 190283:               PUSHI  #0x00000004
22780 @ 190288:               SUB   
22781 @ 190289:               ASSVAL
22782 @ 190290:               GOTO   L_0009
22783 @ 190293:               LOCATE L_000a
22784 @ 190296:               PUSH   C
22785 @ 190299:               SELECT 28
22786 @ 190302:               PUSH   C
22787 @ 190305:               SELECT 28
22788 @ 190308:               PUSHI  #0x00000002
22789 @ 190313:               SUB   
22790 @ 190314:               ASSVAL
22791 @ 190315:               LOCATE L_0009

  4104      %finish
22792 @ 190318:               LINE   4104 "regression-compile-tmp/imp22g-77.imp"
22793 @ 190358:               LOCATE L_0007

  4105      update sp
22794 @ 190361:               LINE   4105 "regression-compile-tmp/imp22g-77.imp"
22795 @ 190401:               PUSH   UPDATESP
22796 @ 190404:               CALL  

  4106    %finish
22797 @ 190405:               LINE   4106 "regression-compile-tmp/imp22g-77.imp"
22798 @ 190445:               LOCATE L_0004

  4107    op = move
22799 @ 190448:               LINE   4107 "regression-compile-tmp/imp22g-77.imp"
22800 @ 190488:               PUSH   OP
22801 @ 190491:               PUSHI  #0x00000001
22802 @ 190496:               ASSVAL

  4108    case = val;  case = case+sx<<sizeshift %if sx # 4
22803 @ 190497:               LINE   4108 "regression-compile-tmp/imp22g-77.imp"
22804 @ 190537:               PUSH   CASE
22805 @ 190540:               PUSHI  #0x8000ffff
22806 @ 190545:               ASSVAL
22807 @ 190546:               LINE   4108 "regression-compile-tmp/imp22g-77.imp"
22808 @ 190586:               PUSH   SX
22809 @ 190589:               PUSHI  #0x00000004
22810 @ 190594:               JUMPIF = L_0004
22811 @ 190598:               PUSH   CASE
22812 @ 190601:               PUSH   CASE
22813 @ 190604:               PUSH   SX
22814 @ 190607:               PUSHI  #0x00000010
22815 @ 190612:               LSH   
22816 @ 190613:               ADD   
22817 @ 190614:               ASSVAL
22818 @ 190615:               LOCATE L_0004

  4109    %if x <= a7 %start;  !explicit assignment to reg
22819 @ 190618:               LINE   4109 "regression-compile-tmp/imp22g-77.imp"
22820 @ 190658:               PUSH   X
22821 @ 190661:               PUSHI  #0x00000010
22822 @ 190666:               JUMPIF > L_0004

  4110      %if xfree(y,0)=TRUE %start
22823 @ 190670:               LINE   4110 "regression-compile-tmp/imp22g-77.imp"
22824 @ 190710:               PUSH   XFREE
22825 @ 190713:               PUSH   Y
22826 @ 190716:               ASSPAR
22827 @ 190717:               PUSHI  #0x00000000
22828 @ 190722:               ASSPAR
22829 @ 190723:               CALL  
22830 @ 190724:               PUSHI  #0x00000001
22831 @ 190729:               JUMPIF # L_0007

  4111        case = 1<<(x-d0);  free = free!case
22832 @ 190733:               LINE   4111 "regression-compile-tmp/imp22g-77.imp"
22833 @ 190773:               PUSH   CASE
22834 @ 190776:               PUSHI  #0x00000001
22835 @ 190781:               PUSH   X
22836 @ 190784:               PUSHI  #0x00000001
22837 @ 190789:               SUB   
22838 @ 190790:               LSH   
22839 @ 190791:               ASSVAL
22840 @ 190792:               LINE   4111 "regression-compile-tmp/imp22g-77.imp"
22841 @ 190832:               PUSH   FREE
22842 @ 190835:               PUSH   FREE
22843 @ 190838:               PUSH   CASE
22844 @ 190841:               OR    
22845 @ 190842:               ASSVAL

  4112      %else
22846 @ 190843:               LINE   4112 "regression-compile-tmp/imp22g-77.imp"
22847 @ 190883:               GOTO   L_0006
22848 @ 190886:               LOCATE L_0007

  4113        free = free&(\(1<<(x-d0)))
22849 @ 190889:               LINE   4113 "regression-compile-tmp/imp22g-77.imp"
22850 @ 190929:               PUSH   FREE
22851 @ 190932:               PUSH   FREE
22852 @ 190935:               PUSHI  #0x00000001
22853 @ 190940:               PUSH   X
22854 @ 190943:               PUSHI  #0x00000001
22855 @ 190948:               SUB   
22856 @ 190949:               LSH   
22857 @ 190950:               NOT   
22858 @ 190951:               AND   
22859 @ 190952:               ASSVAL

  4114      %finish
22860 @ 190953:               LINE   4114 "regression-compile-tmp/imp22g-77.imp"
22861 @ 190993:               LOCATE L_0006

  4115    %finish
22862 @ 190996:               LINE   4115 "regression-compile-tmp/imp22g-77.imp"
22863 @ 191036:               LOCATE L_0004

  4116    %if sx # 4 %and act = assign %and control&capbit # 0 %start
22864 @ 191039:               LINE   4116 "regression-compile-tmp/imp22g-77.imp"
22865 @ 191079:               PUSH   SX
22866 @ 191082:               PUSHI  #0x00000004
22867 @ 191087:               JUMPIF = L_0004
22868 @ 191091:               PUSH   ACT
22869 @ 191094:               PUSHI  #0x00000022
22870 @ 191099:               JUMPIF # L_0004
22871 @ 191103:               PUSH   CONTROL
22872 @ 191106:               PUSHI  #0x20000000
22873 @ 191111:               AND   
22874 @ 191112:               PUSHI  #0x00000000
22875 @ 191117:               JUMPIF = L_0004

  4117      eval(y,d0b)
22876 @ 191121:               LINE   4117 "regression-compile-tmp/imp22g-77.imp"
22877 @ 191161:               PUSH   EVAL
22878 @ 191164:               PUSH   Y
22879 @ 191167:               ASSPAR
22880 @ 191168:               PUSHI  #0x00000001
22881 @ 191173:               ASSPAR
22882 @ 191174:               CALL  

  4118      srcall(dx_type);  !range check
22883 @ 191175:               LINE   4118 "regression-compile-tmp/imp22g-77.imp"
22884 @ 191215:               PUSH   SRCALL
22885 @ 191218:               PUSH   DX
22886 @ 191221:               SELECT 2
22887 @ 191224:               ASSPAR
22888 @ 191225:               CALL  

  4119    %finish
22889 @ 191226:               LINE   4119 "regression-compile-tmp/imp22g-77.imp"
22890 @ 191266:               LOCATE L_0004

  4120    i = y;  i = i-ad %if i >= explim
22891 @ 191269:               LINE   4120 "regression-compile-tmp/imp22g-77.imp"
22892 @ 191309:               PUSH   I
22893 @ 191312:               PUSH   Y
22894 @ 191315:               ASSVAL
22895 @ 191316:               LINE   4120 "regression-compile-tmp/imp22g-77.imp"
22896 @ 191356:               PUSH   I
22897 @ 191359:               PUSH   EXPLIM
22898 @ 191362:               JUMPIF < L_0004
22899 @ 191366:               PUSH   I
22900 @ 191369:               PUSH   I
22901 @ 191372:               PUSHI  #0x00004000
22902 @ 191377:               SUB   
22903 @ 191378:               ASSVAL
22904 @ 191379:               LOCATE L_0004

  4121    %if i >= np0 %start;                        !SOURCE complex
22905 @ 191382:               LINE   4121 "regression-compile-tmp/imp22g-77.imp"
22906 @ 191422:               PUSH   I
22907 @ 191425:               PUSH   NP0
22908 @ 191428:               JUMPIF < L_0004

  4122      %if dx_flags&okflag # 0 %or control&bassbit>>1<<sx = 0 %start
22909 @ 191432:               LINE   4122 "regression-compile-tmp/imp22g-77.imp"
22910 @ 191472:               PUSH   DX
22911 @ 191475:               SELECT 1
22912 @ 191478:               PUSHI  #0x00000040
22913 @ 191483:               AND   
22914 @ 191484:               PUSHI  #0x00000000
22915 @ 191489:               JUMPIF # L_0008
22916 @ 191493:               PUSH   CONTROL
22917 @ 191496:               PUSHI  #0x01000000
22918 @ 191501:               PUSHI  #0x00000001
22919 @ 191506:               RSH   
22920 @ 191507:               PUSH   SX
22921 @ 191510:               LSH   
22922 @ 191511:               AND   
22923 @ 191512:               PUSHI  #0x00000000
22924 @ 191517:               JUMPIF # L_0007
22925 @ 191521:               LOCATE L_0008

  4123        dy == dict(i)
22926 @ 191524:               LINE   4123 "regression-compile-tmp/imp22g-77.imp"
22927 @ 191564:               PUSH   DY
22928 @ 191567:               PUSH   DICT
22929 @ 191570:               PUSH   I
22930 @ 191573:               ACCESS
22931 @ 191574:               ASSREF

  4124        %if y >= explim %start
22932 @ 191575:               LINE   4124 "regression-compile-tmp/imp22g-77.imp"
22933 @ 191615:               PUSH   Y
22934 @ 191618:               PUSH   EXPLIM
22935 @ 191621:               JUMPIF < L_000a

  4125          %if dy_act = prel %and dy_x = x-ad %c
  4126          %and (dy_y < 0 %or dy_type = bytetype) %start
22936 @ 191625:               LINE   4125 "regression-compile-tmp/imp22g-77.imp"
22937 @ 191665:               PUSH   DY
22938 @ 191668:               SELECT 6
22939 @ 191671:               PUSHI  #0x0000002e
22940 @ 191676:               JUMPIF # L_000d
22941 @ 191680:               PUSH   DY
22942 @ 191683:               SELECT 13
22943 @ 191686:               PUSH   X
22944 @ 191689:               PUSHI  #0x00004000
22945 @ 191694:               SUB   
22946 @ 191695:               JUMPIF # L_000d
22947 @ 191699:               PUSH   DY
22948 @ 191702:               SELECT 14
22949 @ 191705:               PUSHI  #0x00000000
22950 @ 191710:               JUMPIF < L_000e
22951 @ 191714:               PUSH   DY
22952 @ 191717:               SELECT 2
22953 @ 191720:               PUSHI  #0x00000034
22954 @ 191725:               JUMPIF # L_000d
22955 @ 191729:               LOCATE L_000e

  4127            y = dy_y
22956 @ 191732:               LINE   4127 "regression-compile-tmp/imp22g-77.imp"
22957 @ 191772:               PUSH   Y
22958 @ 191775:               PUSH   DY
22959 @ 191778:               SELECT 14
22960 @ 191781:               ASSVAL

  4128            y = litref(litval(y)*imod(size(dy_type))) %if dy_type # bytetype
22961 @ 191782:               LINE   4128 "regression-compile-tmp/imp22g-77.imp"
22962 @ 191822:               PUSH   DY
22963 @ 191825:               SELECT 2
22964 @ 191828:               PUSHI  #0x00000034
22965 @ 191833:               JUMPIF = L_0010
22966 @ 191837:               PUSH   Y
22967 @ 191840:               PUSH   LITREF
22968 @ 191843:               PUSH   LITVAL
22969 @ 191846:               PUSH   Y
22970 @ 191849:               ASSPAR
22971 @ 191850:               CALL  
22972 @ 191851:               PUSH   IMOD
22973 @ 191854:               PUSH   SIZE
22974 @ 191857:               PUSH   DY
22975 @ 191860:               SELECT 2
22976 @ 191863:               ASSPAR
22977 @ 191864:               CALL  
22978 @ 191865:               ASSPAR
22979 @ 191866:               CALL  
22980 @ 191867:               MUL   
22981 @ 191868:               ASSPAR
22982 @ 191869:               CALL  
22983 @ 191870:               ASSVAL
22984 @ 191871:               LOCATE L_0010

  4129            act = add
22985 @ 191874:               LINE   4129 "regression-compile-tmp/imp22g-77.imp"
22986 @ 191914:               PUSH   ACT
22987 @ 191917:               PUSHI  #0x00000002
22988 @ 191922:               ASSVAL

  4130            -> tostore
22989 @ 191923:               LINE   4130 "regression-compile-tmp/imp22g-77.imp"
22990 @ 191963:               JUMP   L_0195

  4131          %finish
22991 @ 191966:               LINE   4131 "regression-compile-tmp/imp22g-77.imp"
22992 @ 192006:               LOCATE L_000d

  4132        %else
22993 @ 192009:               LINE   4132 "regression-compile-tmp/imp22g-77.imp"
22994 @ 192049:               GOTO   L_0009
22995 @ 192052:               LOCATE L_000a

  4133          %if dy_x = x %c
  4134          %and (dy_act < neg %or (dy_act = neg %and dy_y = 0)) %start
22996 @ 192055:               LINE   4133 "regression-compile-tmp/imp22g-77.imp"
22997 @ 192095:               PUSH   DY
22998 @ 192098:               SELECT 13
22999 @ 192101:               PUSH   X
23000 @ 192104:               JUMPIF # L_000d
23001 @ 192108:               PUSH   DY
23002 @ 192111:               SELECT 6
23003 @ 192114:               PUSHI  #0x00000009
23004 @ 192119:               JUMPIF < L_000e
23005 @ 192123:               PUSH   DY
23006 @ 192126:               SELECT 6
23007 @ 192129:               PUSHI  #0x00000009
23008 @ 192134:               JUMPIF # L_000d
23009 @ 192138:               PUSH   DY
23010 @ 192141:               SELECT 14
23011 @ 192144:               PUSHI  #0x00000000
23012 @ 192149:               JUMPIF # L_000d
23013 @ 192153:               LOCATE L_000e

  4135            act = dy_act;  y = dy_y
23014 @ 192156:               LINE   4135 "regression-compile-tmp/imp22g-77.imp"
23015 @ 192196:               PUSH   ACT
23016 @ 192199:               PUSH   DY
23017 @ 192202:               SELECT 6
23018 @ 192205:               ASSVAL
23019 @ 192206:               LINE   4135 "regression-compile-tmp/imp22g-77.imp"
23020 @ 192246:               PUSH   Y
23021 @ 192249:               PUSH   DY
23022 @ 192252:               SELECT 14
23023 @ 192255:               ASSVAL

  4136            -> tostore
23024 @ 192256:               LINE   4136 "regression-compile-tmp/imp22g-77.imp"
23025 @ 192296:               JUMP   L_0195

  4137          %finish
23026 @ 192299:               LINE   4137 "regression-compile-tmp/imp22g-77.imp"
23027 @ 192339:               LOCATE L_000d

  4138        %finish
23028 @ 192342:               LINE   4138 "regression-compile-tmp/imp22g-77.imp"
23029 @ 192382:               LOCATE L_0009

  4139      %finish
23030 @ 192385:               LINE   4139 "regression-compile-tmp/imp22g-77.imp"
23031 @ 192425:               LOCATE L_0007

  4140      %if wx < 999 %then eval(y,case) %and eval(x,ref) %c
  4141      %else eval(x,ref) %and eval(y,case)
23032 @ 192428:               LINE   4140 "regression-compile-tmp/imp22g-77.imp"
23033 @ 192468:               PUSH   WX
23034 @ 192471:               PUSHI  #0x000003e7
23035 @ 192476:               JUMPIF >= L_0007
23036 @ 192480:               PUSH   EVAL
23037 @ 192483:               PUSH   Y
23038 @ 192486:               ASSPAR
23039 @ 192487:               PUSH   CASE
23040 @ 192490:               ASSPAR
23041 @ 192491:               CALL  
23042 @ 192492:               PUSH   EVAL
23043 @ 192495:               PUSH   X
23044 @ 192498:               ASSPAR
23045 @ 192499:               PUSHI  #0x80000000
23046 @ 192504:               ASSPAR
23047 @ 192505:               CALL  
23048 @ 192506:               GOTO   L_0006
23049 @ 192509:               LOCATE L_0007
23050 @ 192512:               PUSH   EVAL
23051 @ 192515:               PUSH   X
23052 @ 192518:               ASSPAR
23053 @ 192519:               PUSHI  #0x80000000
23054 @ 192524:               ASSPAR
23055 @ 192525:               CALL  
23056 @ 192526:               PUSH   EVAL
23057 @ 192529:               PUSH   Y
23058 @ 192532:               ASSPAR
23059 @ 192533:               PUSH   CASE
23060 @ 192536:               ASSPAR
23061 @ 192537:               CALL  
23062 @ 192538:               LOCATE L_0006

  4142    %else
23063 @ 192541:               LINE   4142 "regression-compile-tmp/imp22g-77.imp"
23064 @ 192581:               GOTO   L_0003
23065 @ 192584:               LOCATE L_0004

  4143      eval(x,ref)
23066 @ 192587:               LINE   4143 "regression-compile-tmp/imp22g-77.imp"
23067 @ 192627:               PUSH   EVAL
23068 @ 192630:               PUSH   X
23069 @ 192633:               ASSPAR
23070 @ 192634:               PUSHI  #0x80000000
23071 @ 192639:               ASSPAR
23072 @ 192640:               CALL  

  4144      %if y <= 0 %start
23073 @ 192641:               LINE   4144 "regression-compile-tmp/imp22g-77.imp"
23074 @ 192681:               PUSH   Y
23075 @ 192684:               PUSHI  #0x00000000
23076 @ 192689:               JUMPIF > L_0007

  4145        %if y = 0 %and dx_flags&readable # 0 %then op = clr %c
  4146        %else %if y >= litmite %and sx = 4 %then eval(y,anydreg)
23077 @ 192693:               LINE   4145 "regression-compile-tmp/imp22g-77.imp"
23078 @ 192733:               PUSH   Y
23079 @ 192736:               PUSHI  #0x00000000
23080 @ 192741:               JUMPIF # L_000a
23081 @ 192745:               PUSH   DX
23082 @ 192748:               SELECT 1
23083 @ 192751:               PUSHI  #0x00000002
23084 @ 192756:               AND   
23085 @ 192757:               PUSHI  #0x00000000
23086 @ 192762:               JUMPIF = L_000a
23087 @ 192766:               PUSH   OP
23088 @ 192769:               PUSHI  #0x00000034
23089 @ 192774:               ASSVAL
23090 @ 192775:               GOTO   L_0009
23091 @ 192778:               LOCATE L_000a
23092 @ 192781:               PUSH   Y
23093 @ 192784:               PUSHI  #0xffffff01
23094 @ 192789:               JUMPIF < L_000a
23095 @ 192793:               PUSH   SX
23096 @ 192796:               PUSHI  #0x00000004
23097 @ 192801:               JUMPIF # L_000a
23098 @ 192805:               PUSH   EVAL
23099 @ 192808:               PUSH   Y
23100 @ 192811:               ASSPAR
23101 @ 192812:               PUSHI  #0x000000ef
23102 @ 192817:               ASSPAR
23103 @ 192818:               CALL  
23104 @ 192819:               LOCATE L_000a
23105 @ 192822:               LOCATE L_0009

  4147      %else
23106 @ 192825:               LINE   4147 "regression-compile-tmp/imp22g-77.imp"
23107 @ 192865:               GOTO   L_0006
23108 @ 192868:               LOCATE L_0007

  4148        eval(y,case) %unless y <= a7
23109 @ 192871:               LINE   4148 "regression-compile-tmp/imp22g-77.imp"
23110 @ 192911:               PUSH   Y
23111 @ 192914:               PUSHI  #0x00000010
23112 @ 192919:               JUMPIF <= L_000a
23113 @ 192923:               PUSH   EVAL
23114 @ 192926:               PUSH   Y
23115 @ 192929:               ASSPAR
23116 @ 192930:               PUSH   CASE
23117 @ 192933:               ASSPAR
23118 @ 192934:               CALL  
23119 @ 192935:               LOCATE L_000a

  4149      %finish
23120 @ 192938:               LINE   4149 "regression-compile-tmp/imp22g-77.imp"
23121 @ 192978:               LOCATE L_0006

  4150    %finish
23122 @ 192981:               LINE   4150 "regression-compile-tmp/imp22g-77.imp"
23123 @ 193021:               LOCATE L_0003

  4151    %if y # x %start
23124 @ 193024:               LINE   4151 "regression-compile-tmp/imp22g-77.imp"
23125 @ 193064:               PUSH   Y
23126 @ 193067:               PUSH   X
23127 @ 193070:               JUMPIF = L_0004

  4152      %if 0 < y <= maxareg %and 0 < yy = c_reg_content(y) %start
23128 @ 193074:               LINE   4152 "regression-compile-tmp/imp22g-77.imp"
23129 @ 193114:               PUSHI  #0x00000000
23130 @ 193119:               PUSH   Y
23131 @ 193122:               JUMPIFD >= L_0007
23132 @ 193126:               PUSHI  #0x0000000c
23133 @ 193131:               JUMPIF > L_0007
23134 @ 193135:               PUSHI  #0x00000000
23135 @ 193140:               PUSH   YY
23136 @ 193143:               JUMPIFD >= L_0007
23137 @ 193147:               PUSH   C
23138 @ 193150:               SELECT 30
23139 @ 193153:               SELECT 4
23140 @ 193156:               PUSH   Y
23141 @ 193159:               ACCESS
23142 @ 193160:               JUMPIF # L_0007

  4153        beware(xx)
23143 @ 193164:               LINE   4153 "regression-compile-tmp/imp22g-77.imp"
23144 @ 193204:               PUSH   BEWARE
23145 @ 193207:               PUSH   XX
23146 @ 193210:               ASSPAR
23147 @ 193211:               CALL  

  4154        c_reg_content(y) = xx
23148 @ 193212:               LINE   4154 "regression-compile-tmp/imp22g-77.imp"
23149 @ 193252:               PUSH   C
23150 @ 193255:               SELECT 30
23151 @ 193258:               SELECT 4
23152 @ 193261:               PUSH   Y
23153 @ 193264:               ACCESS
23154 @ 193265:               PUSH   XX
23155 @ 193268:               ASSVAL

  4155      %finish %else beware(xx)
23156 @ 193269:               LINE   4155 "regression-compile-tmp/imp22g-77.imp"
23157 @ 193309:               GOTO   L_0006
23158 @ 193312:               LOCATE L_0007
23159 @ 193315:               PUSH   BEWARE
23160 @ 193318:               PUSH   XX
23161 @ 193321:               ASSPAR
23162 @ 193322:               CALL  
23163 @ 193323:               LOCATE L_0006

  4156      plant(op+(sx&3)<<8,y,x)
23164 @ 193326:               LINE   4156 "regression-compile-tmp/imp22g-77.imp"
23165 @ 193366:               PUSH   PLANT
23166 @ 193369:               PUSH   OP
23167 @ 193372:               PUSH   SX
23168 @ 193375:               PUSHI  #0x00000003
23169 @ 193380:               AND   
23170 @ 193381:               PUSHI  #0x00000008
23171 @ 193386:               LSH   
23172 @ 193387:               ADD   
23173 @ 193388:               ASSPAR
23174 @ 193389:               PUSH   Y
23175 @ 193392:               ASSPAR
23176 @ 193393:               PUSH   X
23177 @ 193396:               ASSPAR
23178 @ 193397:               CALL  

  4157      c_reg_ccx = xx;  c_reg_ccy = 0
23179 @ 193398:               LINE   4157 "regression-compile-tmp/imp22g-77.imp"
23180 @ 193438:               PUSH   C
23181 @ 193441:               SELECT 30
23182 @ 193444:               SELECT 1
23183 @ 193447:               PUSH   XX
23184 @ 193450:               ASSVAL
23185 @ 193451:               LINE   4157 "regression-compile-tmp/imp22g-77.imp"
23186 @ 193491:               PUSH   C
23187 @ 193494:               SELECT 30
23188 @ 193497:               SELECT 2
23189 @ 193500:               PUSHI  #0x00000000
23190 @ 193505:               ASSVAL

  4158    %finish %else beware(xx)
23191 @ 193506:               LINE   4158 "regression-compile-tmp/imp22g-77.imp"
23192 @ 193546:               GOTO   L_0003
23193 @ 193549:               LOCATE L_0004
23194 @ 193552:               PUSH   BEWARE
23195 @ 193555:               PUSH   XX
23196 @ 193558:               ASSPAR
23197 @ 193559:               CALL  
23198 @ 193560:               LOCATE L_0003

  4159  endass:
23199 @ 193563:               LINE   4159 "regression-compile-tmp/imp22g-77.imp"
23200 @ 193603:               LABEL  L_0196

  4160    dx_flags = dx_flags!okflag %if c_localdpos <= xx < dictlim %c
  4161             %and c_forward = 0
23201 @ 193606:               LINE   4160 "regression-compile-tmp/imp22g-77.imp"
23202 @ 193646:               PUSH   C
23203 @ 193649:               SELECT 8
23204 @ 193652:               PUSH   XX
23205 @ 193655:               JUMPIFD > L_0004
23206 @ 193659:               PUSH   DICTLIM
23207 @ 193662:               JUMPIF >= L_0004
23208 @ 193666:               PUSH   C
23209 @ 193669:               SELECT 17
23210 @ 193672:               PUSHI  #0x00000000
23211 @ 193677:               JUMPIF # L_0004
23212 @ 193681:               PUSH   DX
23213 @ 193684:               SELECT 1
23214 @ 193687:               PUSH   DX
23215 @ 193690:               SELECT 1
23216 @ 193693:               PUSHI  #0x00000040
23217 @ 193698:               OR    
23218 @ 193699:               ASSVAL
23219 @ 193700:               LOCATE L_0004

  4162    %return
  4163  
23220 @ 193703:               LINE   4162 "regression-compile-tmp/imp22g-77.imp"
23221 @ 193743:               RETURN

  4164  do(incass):  !(for %for loop)
23222 @ 193744:               LINE   4164 "regression-compile-tmp/imp22g-77.imp"
23223 @ 193784:               PUSHI  #0x00000023
23224 @ 193789:               SLABEL 327

  4165    flush %if pendcond # 0
23225 @ 193792:               LINE   4165 "regression-compile-tmp/imp22g-77.imp"
23226 @ 193832:               PUSH   PENDCOND
23227 @ 193835:               PUSHI  #0x00000000
23228 @ 193840:               JUMPIF = L_0004
23229 @ 193844:               PUSH   FLUSH
23230 @ 193847:               CALL  
23231 @ 193848:               LOCATE L_0004

  4166    dx == dict(xx)
23232 @ 193851:               LINE   4166 "regression-compile-tmp/imp22g-77.imp"
23233 @ 193891:               PUSH   DX
23234 @ 193894:               PUSH   DICT
23235 @ 193897:               PUSH   XX
23236 @ 193900:               ACCESS
23237 @ 193901:               ASSREF

  4167    sx = size(dx_type)
23238 @ 193902:               LINE   4167 "regression-compile-tmp/imp22g-77.imp"
23239 @ 193942:               PUSH   SX
23240 @ 193945:               PUSH   SIZE
23241 @ 193948:               PUSH   DX
23242 @ 193951:               SELECT 2
23243 @ 193954:               ASSPAR
23244 @ 193955:               CALL  
23245 @ 193956:               ASSVAL

  4168    wx = weight(x)
23246 @ 193957:               LINE   4168 "regression-compile-tmp/imp22g-77.imp"
23247 @ 193997:               PUSH   WX
23248 @ 194000:               PUSH   WEIGHT
23249 @ 194003:               PUSH   X
23250 @ 194006:               ASSPAR
23251 @ 194007:               CALL  
23252 @ 194008:               ASSVAL

  4169    act = add
23253 @ 194009:               LINE   4169 "regression-compile-tmp/imp22g-77.imp"
23254 @ 194049:               PUSH   ACT
23255 @ 194052:               PUSHI  #0x00000002
23256 @ 194057:               ASSVAL

  4170  tostore:
23257 @ 194058:               LINE   4170 "regression-compile-tmp/imp22g-77.imp"
23258 @ 194098:               LABEL  L_0195

  4171    %if y = 0 %start;  ![only for NOT,NEG]
23259 @ 194101:               LINE   4171 "regression-compile-tmp/imp22g-77.imp"
23260 @ 194141:               PUSH   Y
23261 @ 194144:               PUSHI  #0x00000000
23262 @ 194149:               JUMPIF # L_0004

  4172      eval(x,ref)
23263 @ 194153:               LINE   4172 "regression-compile-tmp/imp22g-77.imp"
23264 @ 194193:               PUSH   EVAL
23265 @ 194196:               PUSH   X
23266 @ 194199:               ASSPAR
23267 @ 194200:               PUSHI  #0x80000000
23268 @ 194205:               ASSPAR
23269 @ 194206:               CALL  

  4173    %finish %else %if y < 0 %start
23270 @ 194207:               LINE   4173 "regression-compile-tmp/imp22g-77.imp"
23271 @ 194247:               GOTO   L_0003
23272 @ 194250:               LOCATE L_0004
23273 @ 194253:               PUSH   Y
23274 @ 194256:               PUSHI  #0x00000000
23275 @ 194261:               JUMPIF >= L_0004

  4174      %if act = add %start;  ![+- literal]
23276 @ 194265:               LINE   4174 "regression-compile-tmp/imp22g-77.imp"
23277 @ 194305:               PUSH   ACT
23278 @ 194308:               PUSHI  #0x00000002
23279 @ 194313:               JUMPIF # L_0007

  4175        %if y >= litquick %start;  !-8:-1 or 1:8
23280 @ 194317:               LINE   4175 "regression-compile-tmp/imp22g-77.imp"
23281 @ 194357:               PUSH   Y
23282 @ 194360:               PUSHI  #0xfffffff0
23283 @ 194365:               JUMPIF < L_000a

  4176          act = sub %and y = y-1 %if y&1 # 0;  !negate if neg
23284 @ 194369:               LINE   4176 "regression-compile-tmp/imp22g-77.imp"
23285 @ 194409:               PUSH   Y
23286 @ 194412:               PUSHI  #0x00000001
23287 @ 194417:               AND   
23288 @ 194418:               PUSHI  #0x00000000
23289 @ 194423:               JUMPIF = L_000d
23290 @ 194427:               PUSH   ACT
23291 @ 194430:               PUSHI  #0x00000003
23292 @ 194435:               ASSVAL
23293 @ 194436:               PUSH   Y
23294 @ 194439:               PUSH   Y
23295 @ 194442:               PUSHI  #0x00000001
23296 @ 194447:               SUB   
23297 @ 194448:               ASSVAL
23298 @ 194449:               LOCATE L_000d

  4177          eval(x,ref)
23299 @ 194452:               LINE   4177 "regression-compile-tmp/imp22g-77.imp"
23300 @ 194492:               PUSH   EVAL
23301 @ 194495:               PUSH   X
23302 @ 194498:               ASSPAR
23303 @ 194499:               PUSHI  #0x80000000
23304 @ 194504:               ASSPAR
23305 @ 194505:               CALL  

  4178          -> past
23306 @ 194506:               LINE   4178 "regression-compile-tmp/imp22g-77.imp"
23307 @ 194546:               JUMP   L_0197

  4179        %finish
23308 @ 194549:               LINE   4179 "regression-compile-tmp/imp22g-77.imp"
23309 @ 194589:               LOCATE L_000a

  4180        act = sub %and y = y+1 %if y = -(128<<1);  !128=>-128
23310 @ 194592:               LINE   4180 "regression-compile-tmp/imp22g-77.imp"
23311 @ 194632:               PUSH   Y
23312 @ 194635:               PUSHI  #0x00000080
23313 @ 194640:               PUSHI  #0x00000001
23314 @ 194645:               LSH   
23315 @ 194646:               NEGATE
23316 @ 194647:               JUMPIF # L_000a
23317 @ 194651:               PUSH   ACT
23318 @ 194654:               PUSHI  #0x00000003
23319 @ 194659:               ASSVAL
23320 @ 194660:               PUSH   Y
23321 @ 194663:               PUSH   Y
23322 @ 194666:               PUSHI  #0x00000001
23323 @ 194671:               ADD   
23324 @ 194672:               ASSVAL
23325 @ 194673:               LOCATE L_000a

  4181      %finish
23326 @ 194676:               LINE   4181 "regression-compile-tmp/imp22g-77.imp"
23327 @ 194716:               LOCATE L_0007

  4182      eval(x,ref)
23328 @ 194719:               LINE   4182 "regression-compile-tmp/imp22g-77.imp"
23329 @ 194759:               PUSH   EVAL
23330 @ 194762:               PUSH   X
23331 @ 194765:               ASSPAR
23332 @ 194766:               PUSHI  #0x80000000
23333 @ 194771:               ASSPAR
23334 @ 194772:               CALL  

  4183      eval(y,anydreg) %if y >= litmite %and anydreg&free # 0
23335 @ 194773:               LINE   4183 "regression-compile-tmp/imp22g-77.imp"
23336 @ 194813:               PUSH   Y
23337 @ 194816:               PUSHI  #0xffffff01
23338 @ 194821:               JUMPIF < L_0007
23339 @ 194825:               PUSHI  #0x000000ef
23340 @ 194830:               PUSH   FREE
23341 @ 194833:               AND   
23342 @ 194834:               PUSHI  #0x00000000
23343 @ 194839:               JUMPIF = L_0007
23344 @ 194843:               PUSH   EVAL
23345 @ 194846:               PUSH   Y
23346 @ 194849:               ASSPAR
23347 @ 194850:               PUSHI  #0x000000ef
23348 @ 194855:               ASSPAR
23349 @ 194856:               CALL  
23350 @ 194857:               LOCATE L_0007

  4184    %finish %else %if x <= a7 %start
23351 @ 194860:               LINE   4184 "regression-compile-tmp/imp22g-77.imp"
23352 @ 194900:               GOTO   L_0003
23353 @ 194903:               LOCATE L_0004
23354 @ 194906:               PUSH   X
23355 @ 194909:               PUSHI  #0x00000010
23356 @ 194914:               JUMPIF > L_0004

  4185      eval(y,val)
23357 @ 194918:               LINE   4185 "regression-compile-tmp/imp22g-77.imp"
23358 @ 194958:               PUSH   EVAL
23359 @ 194961:               PUSH   Y
23360 @ 194964:               ASSPAR
23361 @ 194965:               PUSHI  #0x8000ffff
23362 @ 194970:               ASSPAR
23363 @ 194971:               CALL  

  4186    %else
23364 @ 194972:               LINE   4186 "regression-compile-tmp/imp22g-77.imp"
23365 @ 195012:               GOTO   L_0003
23366 @ 195015:               LOCATE L_0004

  4187      %if 999 > wx < weight(y) %then eval(y,anydreg) %and eval(x,ref) %c
  4188      %else eval(x,ref) %and eval(y,anydreg)
23367 @ 195018:               LINE   4187 "regression-compile-tmp/imp22g-77.imp"
23368 @ 195058:               PUSHI  #0x000003e7
23369 @ 195063:               PUSH   WX
23370 @ 195066:               JUMPIFD <= L_0007
23371 @ 195070:               PUSH   WEIGHT
23372 @ 195073:               PUSH   Y
23373 @ 195076:               ASSPAR
23374 @ 195077:               CALL  
23375 @ 195078:               JUMPIF >= L_0007
23376 @ 195082:               PUSH   EVAL
23377 @ 195085:               PUSH   Y
23378 @ 195088:               ASSPAR
23379 @ 195089:               PUSHI  #0x000000ef
23380 @ 195094:               ASSPAR
23381 @ 195095:               CALL  
23382 @ 195096:               PUSH   EVAL
23383 @ 195099:               PUSH   X
23384 @ 195102:               ASSPAR
23385 @ 195103:               PUSHI  #0x80000000
23386 @ 195108:               ASSPAR
23387 @ 195109:               CALL  
23388 @ 195110:               GOTO   L_0006
23389 @ 195113:               LOCATE L_0007
23390 @ 195116:               PUSH   EVAL
23391 @ 195119:               PUSH   X
23392 @ 195122:               ASSPAR
23393 @ 195123:               PUSHI  #0x80000000
23394 @ 195128:               ASSPAR
23395 @ 195129:               CALL  
23396 @ 195130:               PUSH   EVAL
23397 @ 195133:               PUSH   Y
23398 @ 195136:               ASSPAR
23399 @ 195137:               PUSHI  #0x000000ef
23400 @ 195142:               ASSPAR
23401 @ 195143:               CALL  
23402 @ 195144:               LOCATE L_0006

  4189    %finish
23403 @ 195147:               LINE   4189 "regression-compile-tmp/imp22g-77.imp"
23404 @ 195187:               LOCATE L_0003

  4190  past:
23405 @ 195190:               LINE   4190 "regression-compile-tmp/imp22g-77.imp"
23406 @ 195230:               LABEL  L_0197

  4191    plant(act+sx<<8,y,x)
23407 @ 195233:               LINE   4191 "regression-compile-tmp/imp22g-77.imp"
23408 @ 195273:               PUSH   PLANT
23409 @ 195276:               PUSH   ACT
23410 @ 195279:               PUSH   SX
23411 @ 195282:               PUSHI  #0x00000008
23412 @ 195287:               LSH   
23413 @ 195288:               ADD   
23414 @ 195289:               ASSPAR
23415 @ 195290:               PUSH   Y
23416 @ 195293:               ASSPAR
23417 @ 195294:               PUSH   X
23418 @ 195297:               ASSPAR
23419 @ 195298:               CALL  

  4192    plant(trapv,0,0) %if control&overbit # 0 %and act <= sub
23420 @ 195299:               LINE   4192 "regression-compile-tmp/imp22g-77.imp"
23421 @ 195339:               PUSH   CONTROL
23422 @ 195342:               PUSHI  #0x10000000
23423 @ 195347:               AND   
23424 @ 195348:               PUSHI  #0x00000000
23425 @ 195353:               JUMPIF = L_0004
23426 @ 195357:               PUSH   ACT
23427 @ 195360:               PUSHI  #0x00000003
23428 @ 195365:               JUMPIF > L_0004
23429 @ 195369:               PUSH   PLANT
23430 @ 195372:               PUSHI  #0x00000046
23431 @ 195377:               ASSPAR
23432 @ 195378:               PUSHI  #0x00000000
23433 @ 195383:               ASSPAR
23434 @ 195384:               PUSHI  #0x00000000
23435 @ 195389:               ASSPAR
23436 @ 195390:               CALL  
23437 @ 195391:               LOCATE L_0004

  4193    beware(xx)
23438 @ 195394:               LINE   4193 "regression-compile-tmp/imp22g-77.imp"
23439 @ 195434:               PUSH   BEWARE
23440 @ 195437:               PUSH   XX
23441 @ 195440:               ASSPAR
23442 @ 195441:               CALL  

  4194    c_reg_ccx = xx;  c_reg_ccy = 0
23443 @ 195442:               LINE   4194 "regression-compile-tmp/imp22g-77.imp"
23444 @ 195482:               PUSH   C
23445 @ 195485:               SELECT 30
23446 @ 195488:               SELECT 1
23447 @ 195491:               PUSH   XX
23448 @ 195494:               ASSVAL
23449 @ 195495:               LINE   4194 "regression-compile-tmp/imp22g-77.imp"
23450 @ 195535:               PUSH   C
23451 @ 195538:               SELECT 30
23452 @ 195541:               SELECT 2
23453 @ 195544:               PUSHI  #0x00000000
23454 @ 195549:               ASSVAL

  4195    ->endass
  4196  
  4197  
  4198  !!!!!!!!!!!!!!!!!!!!!!   Returns and jumps   !!!!!!!!!!!!!!!!!!!!!!!!
  4199  !
23455 @ 195550:               LINE   4195 "regression-compile-tmp/imp22g-77.imp"
23456 @ 195590:               JUMP   L_0196

  4200  do(return):                 !terminate procedure
23457 @ 195593:               LINE   4200 "regression-compile-tmp/imp22g-77.imp"
23458 @ 195633:               PUSHI  #0x00000026
23459 @ 195638:               SLABEL 327

  4201    update sp
23460 @ 195641:               LINE   4201 "regression-compile-tmp/imp22g-77.imp"
23461 @ 195681:               PUSH   UPDATESP
23462 @ 195684:               CALL  

  4202    %if c_type # 0 %start;       !function,map
23463 @ 195685:               LINE   4202 "regression-compile-tmp/imp22g-77.imp"
23464 @ 195725:               PUSH   C
23465 @ 195728:               SELECT 7
23466 @ 195731:               PUSHI  #0x00000000
23467 @ 195736:               JUMPIF = L_0004

  4203      r = typecell(c_dpid_type)_reg&15
23468 @ 195740:               LINE   4203 "regression-compile-tmp/imp22g-77.imp"
23469 @ 195780:               PUSH   R
23470 @ 195783:               PUSH   TYPECELL
23471 @ 195786:               PUSH   C
23472 @ 195789:               SELECT 29
23473 @ 195792:               SELECT 2
23474 @ 195795:               ASSPAR
23475 @ 195796:               CALL  
23476 @ 195797:               SELECT 7
23477 @ 195800:               PUSHI  #0x0000000f
23478 @ 195805:               AND   
23479 @ 195806:               ASSVAL

  4204      %if c_type > 0 %and size(c_type) > 0 %start;  !simple fn
23480 @ 195807:               LINE   4204 "regression-compile-tmp/imp22g-77.imp"
23481 @ 195847:               PUSH   C
23482 @ 195850:               SELECT 7
23483 @ 195853:               PUSHI  #0x00000000
23484 @ 195858:               JUMPIF <= L_0007
23485 @ 195862:               PUSH   SIZE
23486 @ 195865:               PUSH   C
23487 @ 195868:               SELECT 7
23488 @ 195871:               ASSPAR
23489 @ 195872:               CALL  
23490 @ 195873:               PUSHI  #0x00000000
23491 @ 195878:               JUMPIF <= L_0007

  4205        flush %if pendcond # 0 %and pendin # 0
23492 @ 195882:               LINE   4205 "regression-compile-tmp/imp22g-77.imp"
23493 @ 195922:               PUSH   PENDCOND
23494 @ 195925:               PUSHI  #0x00000000
23495 @ 195930:               JUMPIF = L_000a
23496 @ 195934:               PUSH   PENDIN
23497 @ 195937:               PUSHI  #0x00000000
23498 @ 195942:               JUMPIF = L_000a
23499 @ 195946:               PUSH   FLUSH
23500 @ 195949:               CALL  
23501 @ 195950:               LOCATE L_000a

  4206        i = y
23502 @ 195953:               LINE   4206 "regression-compile-tmp/imp22g-77.imp"
23503 @ 195993:               PUSH   I
23504 @ 195996:               PUSH   Y
23505 @ 195999:               ASSVAL

  4207        %if c_reg_content(r+d0) # y %start
23506 @ 196000:               LINE   4207 "regression-compile-tmp/imp22g-77.imp"
23507 @ 196040:               PUSH   C
23508 @ 196043:               SELECT 30
23509 @ 196046:               SELECT 4
23510 @ 196049:               PUSH   R
23511 @ 196052:               PUSHI  #0x00000001
23512 @ 196057:               ADD   
23513 @ 196058:               ACCESS
23514 @ 196059:               PUSH   Y
23515 @ 196062:               JUMPIF = L_000a

  4208          flush %if pendcond # 0
23516 @ 196066:               LINE   4208 "regression-compile-tmp/imp22g-77.imp"
23517 @ 196106:               PUSH   PENDCOND
23518 @ 196109:               PUSHI  #0x00000000
23519 @ 196114:               JUMPIF = L_000d
23520 @ 196118:               PUSH   FLUSH
23521 @ 196121:               CALL  
23522 @ 196122:               LOCATE L_000d

  4209          eval(y,d0b<<r)
23523 @ 196125:               LINE   4209 "regression-compile-tmp/imp22g-77.imp"
23524 @ 196165:               PUSH   EVAL
23525 @ 196168:               PUSH   Y
23526 @ 196171:               ASSPAR
23527 @ 196172:               PUSHI  #0x00000001
23528 @ 196177:               PUSH   R
23529 @ 196180:               LSH   
23530 @ 196181:               ASSPAR
23531 @ 196182:               CALL  

  4210        %finish
23532 @ 196183:               LINE   4210 "regression-compile-tmp/imp22g-77.imp"
23533 @ 196223:               LOCATE L_000a

  4211        c_status = c_status!wrongcc %unless c_reg_ccx = i %and c_reg_ccy = 0
23534 @ 196226:               LINE   4211 "regression-compile-tmp/imp22g-77.imp"
23535 @ 196266:               PUSH   C
23536 @ 196269:               SELECT 30
23537 @ 196272:               SELECT 1
23538 @ 196275:               PUSH   I
23539 @ 196278:               JUMPIF # L_000b
23540 @ 196282:               PUSH   C
23541 @ 196285:               SELECT 30
23542 @ 196288:               SELECT 2
23543 @ 196291:               PUSHI  #0x00000000
23544 @ 196296:               JUMPIF = L_000a
23545 @ 196300:               LOCATE L_000b
23546 @ 196303:               PUSH   C
23547 @ 196306:               SELECT 6
23548 @ 196309:               PUSH   C
23549 @ 196312:               SELECT 6
23550 @ 196315:               PUSHI  #0x00000004
23551 @ 196320:               OR    
23552 @ 196321:               ASSVAL
23553 @ 196322:               LOCATE L_000a

  4212      %else;   !struct fn or map
23554 @ 196325:               LINE   4212 "regression-compile-tmp/imp22g-77.imp"
23555 @ 196365:               GOTO   L_0006
23556 @ 196368:               LOCATE L_0007

  4213        c_status = c_status!wrongcc
23557 @ 196371:               LINE   4213 "regression-compile-tmp/imp22g-77.imp"
23558 @ 196411:               PUSH   C
23559 @ 196414:               SELECT 6
23560 @ 196417:               PUSH   C
23561 @ 196420:               SELECT 6
23562 @ 196423:               PUSHI  #0x00000004
23563 @ 196428:               OR    
23564 @ 196429:               ASSVAL

  4214        flush %if pendcond # 0
23565 @ 196430:               LINE   4214 "regression-compile-tmp/imp22g-77.imp"
23566 @ 196470:               PUSH   PENDCOND
23567 @ 196473:               PUSHI  #0x00000000
23568 @ 196478:               JUMPIF = L_000a
23569 @ 196482:               PUSH   FLUSH
23570 @ 196485:               CALL  
23571 @ 196486:               LOCATE L_000a

  4215        y = y+ad %if c_type > 0;  !ie struct fn
23572 @ 196489:               LINE   4215 "regression-compile-tmp/imp22g-77.imp"
23573 @ 196529:               PUSH   C
23574 @ 196532:               SELECT 7
23575 @ 196535:               PUSHI  #0x00000000
23576 @ 196540:               JUMPIF <= L_000a
23577 @ 196544:               PUSH   Y
23578 @ 196547:               PUSH   Y
23579 @ 196550:               PUSHI  #0x00004000
23580 @ 196555:               ADD   
23581 @ 196556:               ASSVAL
23582 @ 196557:               LOCATE L_000a

  4216        sp = c_sp
23583 @ 196560:               LINE   4216 "regression-compile-tmp/imp22g-77.imp"
23584 @ 196600:               PUSH   SP
23585 @ 196603:               PUSH   C
23586 @ 196606:               SELECT 1
23587 @ 196609:               ASSVAL

  4217        eval(y,d0b<<r)
23588 @ 196610:               LINE   4217 "regression-compile-tmp/imp22g-77.imp"
23589 @ 196650:               PUSH   EVAL
23590 @ 196653:               PUSH   Y
23591 @ 196656:               ASSPAR
23592 @ 196657:               PUSHI  #0x00000001
23593 @ 196662:               PUSH   R
23594 @ 196665:               LSH   
23595 @ 196666:               ASSPAR
23596 @ 196667:               CALL  

  4218        %if c_sp # sp %start
23597 @ 196668:               LINE   4218 "regression-compile-tmp/imp22g-77.imp"
23598 @ 196708:               PUSH   C
23599 @ 196711:               SELECT 1
23600 @ 196714:               PUSH   SP
23601 @ 196717:               JUMPIF = L_000a

  4219          addimm(sp-c_sp,a7);  c_sp = sp
23602 @ 196721:               LINE   4219 "regression-compile-tmp/imp22g-77.imp"
23603 @ 196761:               PUSH   ADDIMM
23604 @ 196764:               PUSH   SP
23605 @ 196767:               PUSH   C
23606 @ 196770:               SELECT 1
23607 @ 196773:               SUB   
23608 @ 196774:               ASSPAR
23609 @ 196775:               PUSHI  #0x00000010
23610 @ 196780:               ASSPAR
23611 @ 196781:               CALL  
23612 @ 196782:               LINE   4219 "regression-compile-tmp/imp22g-77.imp"
23613 @ 196822:               PUSH   C
23614 @ 196825:               SELECT 1
23615 @ 196828:               PUSH   SP
23616 @ 196831:               ASSVAL

  4220        %finish
23617 @ 196832:               LINE   4220 "regression-compile-tmp/imp22g-77.imp"
23618 @ 196872:               LOCATE L_000a

  4221      %finish
23619 @ 196875:               LINE   4221 "regression-compile-tmp/imp22g-77.imp"
23620 @ 196915:               LOCATE L_0006

  4222    %finish
23621 @ 196918:               LINE   4222 "regression-compile-tmp/imp22g-77.imp"
23622 @ 196958:               LOCATE L_0004

  4223    %if c_temps # 0 %start
23623 @ 196961:               LINE   4223 "regression-compile-tmp/imp22g-77.imp"
23624 @ 197001:               PUSH   C
23625 @ 197004:               SELECT 24
23626 @ 197007:               PUSHI  #0x00000000
23627 @ 197012:               JUMPIF = L_0004

  4224      flush %if pendcond # 0
23628 @ 197016:               LINE   4224 "regression-compile-tmp/imp22g-77.imp"
23629 @ 197056:               PUSH   PENDCOND
23630 @ 197059:               PUSHI  #0x00000000
23631 @ 197064:               JUMPIF = L_0007
23632 @ 197068:               PUSH   FLUSH
23633 @ 197071:               CALL  
23634 @ 197072:               LOCATE L_0007

  4225      addimm(c_temps,a7)
23635 @ 197075:               LINE   4225 "regression-compile-tmp/imp22g-77.imp"
23636 @ 197115:               PUSH   ADDIMM
23637 @ 197118:               PUSH   C
23638 @ 197121:               SELECT 24
23639 @ 197124:               ASSPAR
23640 @ 197125:               PUSHI  #0x00000010
23641 @ 197130:               ASSPAR
23642 @ 197131:               CALL  

  4226    %finish
23643 @ 197132:               LINE   4226 "regression-compile-tmp/imp22g-77.imp"
23644 @ 197172:               LOCATE L_0004

  4227    dict(dictlim)_val = c_return
23645 @ 197175:               LINE   4227 "regression-compile-tmp/imp22g-77.imp"
23646 @ 197215:               PUSH   DICT
23647 @ 197218:               PUSH   DICTLIM
23648 @ 197221:               ACCESS
23649 @ 197222:               SELECT 9
23650 @ 197225:               PUSH   C
23651 @ 197228:               SELECT 22
23652 @ 197231:               ASSVAL

  4228    compile uncond branch(dictlim)
23653 @ 197232:               LINE   4228 "regression-compile-tmp/imp22g-77.imp"
23654 @ 197272:               PUSH   COMPILEUNCONDBRANCH
23655 @ 197275:               PUSH   DICTLIM
23656 @ 197278:               ASSPAR
23657 @ 197279:               CALL  

  4229    c_return = -(pc-1)
23658 @ 197280:               LINE   4229 "regression-compile-tmp/imp22g-77.imp"
23659 @ 197320:               PUSH   C
23660 @ 197323:               SELECT 22
23661 @ 197326:               PUSH   PC
23662 @ 197329:               PUSHI  #0x00000001
23663 @ 197334:               SUB   
23664 @ 197335:               NEGATE
23665 @ 197336:               ASSVAL

  4230    %return
  4231  
23666 @ 197337:               LINE   4230 "regression-compile-tmp/imp22g-77.imp"
23667 @ 197377:               RETURN

  4232  do(jumpout):
23668 @ 197378:               LINE   4232 "regression-compile-tmp/imp22g-77.imp"
23669 @ 197418:               PUSHI  #0x00000029
23670 @ 197423:               SLABEL 327

  4233    update sp
23671 @ 197426:               LINE   4233 "regression-compile-tmp/imp22g-77.imp"
23672 @ 197466:               PUSH   UPDATESP
23673 @ 197469:               CALL  

  4234    flush %if pendcond > 0 %and pendin # 0
23674 @ 197470:               LINE   4234 "regression-compile-tmp/imp22g-77.imp"
23675 @ 197510:               PUSH   PENDCOND
23676 @ 197513:               PUSHI  #0x00000000
23677 @ 197518:               JUMPIF <= L_0004
23678 @ 197522:               PUSH   PENDIN
23679 @ 197525:               PUSHI  #0x00000000
23680 @ 197530:               JUMPIF = L_0004
23681 @ 197534:               PUSH   FLUSH
23682 @ 197537:               CALL  
23683 @ 197538:               LOCATE L_0004

  4235    save context(y) %if y # x;  !exit not continue
23684 @ 197541:               LINE   4235 "regression-compile-tmp/imp22g-77.imp"
23685 @ 197581:               PUSH   Y
23686 @ 197584:               PUSH   X
23687 @ 197587:               JUMPIF = L_0004
23688 @ 197591:               PUSH   SAVECONTEXT
23689 @ 197594:               PUSH   Y
23690 @ 197597:               ASSPAR
23691 @ 197598:               CALL  
23692 @ 197599:               LOCATE L_0004

  4236    compile uncond branch(y)
23693 @ 197602:               LINE   4236 "regression-compile-tmp/imp22g-77.imp"
23694 @ 197642:               PUSH   COMPILEUNCONDBRANCH
23695 @ 197645:               PUSH   Y
23696 @ 197648:               ASSPAR
23697 @ 197649:               CALL  

  4237    %return
  4238  
23698 @ 197650:               LINE   4237 "regression-compile-tmp/imp22g-77.imp"
23699 @ 197690:               RETURN

  4239  do(repeat):
23700 @ 197691:               LINE   4239 "regression-compile-tmp/imp22g-77.imp"
23701 @ 197731:               PUSHI  #0x00000027
23702 @ 197736:               SLABEL 327

  4240    update sp
23703 @ 197739:               LINE   4240 "regression-compile-tmp/imp22g-77.imp"
23704 @ 197779:               PUSH   UPDATESP
23705 @ 197782:               CALL  

  4241    compile uncond branch(x)
23706 @ 197783:               LINE   4241 "regression-compile-tmp/imp22g-77.imp"
23707 @ 197823:               PUSH   COMPILEUNCONDBRANCH
23708 @ 197826:               PUSH   X
23709 @ 197829:               ASSPAR
23710 @ 197830:               CALL  

  4242    define label(x+1) %if dict(x+1)_val < 0
23711 @ 197831:               LINE   4242 "regression-compile-tmp/imp22g-77.imp"
23712 @ 197871:               PUSH   DICT
23713 @ 197874:               PUSH   X
23714 @ 197877:               PUSHI  #0x00000001
23715 @ 197882:               ADD   
23716 @ 197883:               ACCESS
23717 @ 197884:               SELECT 9
23718 @ 197887:               PUSHI  #0x00000000
23719 @ 197892:               JUMPIF >= L_0004
23720 @ 197896:               PUSH   DEFINELABEL
23721 @ 197899:               PUSH   X
23722 @ 197902:               PUSHI  #0x00000001
23723 @ 197907:               ADD   
23724 @ 197908:               ASSPAR
23725 @ 197909:               CALL  
23726 @ 197910:               LOCATE L_0004

  4243    %if y < 0 %start;  !temp(s) declared
23727 @ 197913:               LINE   4243 "regression-compile-tmp/imp22g-77.imp"
23728 @ 197953:               PUSH   Y
23729 @ 197956:               PUSHI  #0x00000000
23730 @ 197961:               JUMPIF >= L_0004

  4244      c_val = y;  c_temps = c_temps+y;  !decrement temps
23731 @ 197965:               LINE   4244 "regression-compile-tmp/imp22g-77.imp"
23732 @ 198005:               PUSH   C
23733 @ 198008:               SELECT 28
23734 @ 198011:               PUSH   Y
23735 @ 198014:               ASSVAL
23736 @ 198015:               LINE   4244 "regression-compile-tmp/imp22g-77.imp"
23737 @ 198055:               PUSH   C
23738 @ 198058:               SELECT 24
23739 @ 198061:               PUSH   C
23740 @ 198064:               SELECT 24
23741 @ 198067:               PUSH   Y
23742 @ 198070:               ADD   
23743 @ 198071:               ASSVAL

  4245      update sp
23744 @ 198072:               LINE   4245 "regression-compile-tmp/imp22g-77.imp"
23745 @ 198112:               PUSH   UPDATESP
23746 @ 198115:               CALL  

  4246    %finish
23747 @ 198116:               LINE   4246 "regression-compile-tmp/imp22g-77.imp"
23748 @ 198156:               LOCATE L_0004

  4247    %return
  4248  
23749 @ 198159:               LINE   4247 "regression-compile-tmp/imp22g-77.imp"
23750 @ 198199:               RETURN

  4249  do(else):
23751 @ 198200:               LINE   4249 "regression-compile-tmp/imp22g-77.imp"
23752 @ 198240:               PUSHI  #0x00000028
23753 @ 198245:               SLABEL 327

  4250    %if c_access # 0 %and c_access # -2 %start
23754 @ 198248:               LINE   4250 "regression-compile-tmp/imp22g-77.imp"
23755 @ 198288:               PUSH   C
23756 @ 198291:               SELECT 16
23757 @ 198294:               PUSHI  #0x00000000
23758 @ 198299:               JUMPIF = L_0004
23759 @ 198303:               PUSH   C
23760 @ 198306:               SELECT 16
23761 @ 198309:               PUSHI  #0x00000002
23762 @ 198314:               NEGATE
23763 @ 198315:               JUMPIF = L_0004

  4251      save context(y)
23764 @ 198319:               LINE   4251 "regression-compile-tmp/imp22g-77.imp"
23765 @ 198359:               PUSH   SAVECONTEXT
23766 @ 198362:               PUSH   Y
23767 @ 198365:               ASSPAR
23768 @ 198366:               CALL  

  4252      compile uncond branch(y);  !outward branch for %else
23769 @ 198367:               LINE   4252 "regression-compile-tmp/imp22g-77.imp"
23770 @ 198407:               PUSH   COMPILEUNCONDBRANCH
23771 @ 198410:               PUSH   Y
23772 @ 198413:               ASSPAR
23773 @ 198414:               CALL  

  4253    %finish
23774 @ 198415:               LINE   4253 "regression-compile-tmp/imp22g-77.imp"
23775 @ 198455:               LOCATE L_0004

  4254    define label(x) %if x # 0 %and dict(x)_val < 0;  !inward from false cond
23776 @ 198458:               LINE   4254 "regression-compile-tmp/imp22g-77.imp"
23777 @ 198498:               PUSH   X
23778 @ 198501:               PUSHI  #0x00000000
23779 @ 198506:               JUMPIF = L_0004
23780 @ 198510:               PUSH   DICT
23781 @ 198513:               PUSH   X
23782 @ 198516:               ACCESS
23783 @ 198517:               SELECT 9
23784 @ 198520:               PUSHI  #0x00000000
23785 @ 198525:               JUMPIF >= L_0004
23786 @ 198529:               PUSH   DEFINELABEL
23787 @ 198532:               PUSH   X
23788 @ 198535:               ASSPAR
23789 @ 198536:               CALL  
23790 @ 198537:               LOCATE L_0004

  4255    %return
  4256  
23791 @ 198540:               LINE   4255 "regression-compile-tmp/imp22g-77.imp"
23792 @ 198580:               RETURN

  4257  do(goto):                        !user jump
23793 @ 198581:               LINE   4257 "regression-compile-tmp/imp22g-77.imp"
23794 @ 198621:               PUSHI  #0x00000010
23795 @ 198626:               SLABEL 327

  4258    update sp
23796 @ 198629:               LINE   4258 "regression-compile-tmp/imp22g-77.imp"
23797 @ 198669:               PUSH   UPDATESP
23798 @ 198672:               CALL  

  4259    c_forward = c_forward+1 %if dict(y)_val = 0
23799 @ 198673:               LINE   4259 "regression-compile-tmp/imp22g-77.imp"
23800 @ 198713:               PUSH   DICT
23801 @ 198716:               PUSH   Y
23802 @ 198719:               ACCESS
23803 @ 198720:               SELECT 9
23804 @ 198723:               PUSHI  #0x00000000
23805 @ 198728:               JUMPIF # L_0004
23806 @ 198732:               PUSH   C
23807 @ 198735:               SELECT 17
23808 @ 198738:               PUSH   C
23809 @ 198741:               SELECT 17
23810 @ 198744:               PUSHI  #0x00000001
23811 @ 198749:               ADD   
23812 @ 198750:               ASSVAL
23813 @ 198751:               LOCATE L_0004

  4260    addimm(c_temps,a7) %if c_temps # 0
23814 @ 198754:               LINE   4260 "regression-compile-tmp/imp22g-77.imp"
23815 @ 198794:               PUSH   C
23816 @ 198797:               SELECT 24
23817 @ 198800:               PUSHI  #0x00000000
23818 @ 198805:               JUMPIF = L_0004
23819 @ 198809:               PUSH   ADDIMM
23820 @ 198812:               PUSH   C
23821 @ 198815:               SELECT 24
23822 @ 198818:               ASSPAR
23823 @ 198819:               PUSHI  #0x00000010
23824 @ 198824:               ASSPAR
23825 @ 198825:               CALL  
23826 @ 198826:               LOCATE L_0004

  4261    i = pendcond
23827 @ 198829:               LINE   4261 "regression-compile-tmp/imp22g-77.imp"
23828 @ 198869:               PUSH   I
23829 @ 198872:               PUSH   PENDCOND
23830 @ 198875:               ASSVAL

  4262    compile uncond branch(y)
23831 @ 198876:               LINE   4262 "regression-compile-tmp/imp22g-77.imp"
23832 @ 198916:               PUSH   COMPILEUNCONDBRANCH
23833 @ 198919:               PUSH   Y
23834 @ 198922:               ASSPAR
23835 @ 198923:               CALL  

  4263    addimm(-c_temps,a7) %if i # 0 %and c_temps # 0
23836 @ 198924:               LINE   4263 "regression-compile-tmp/imp22g-77.imp"
23837 @ 198964:               PUSH   I
23838 @ 198967:               PUSHI  #0x00000000
23839 @ 198972:               JUMPIF = L_0004
23840 @ 198976:               PUSH   C
23841 @ 198979:               SELECT 24
23842 @ 198982:               PUSHI  #0x00000000
23843 @ 198987:               JUMPIF = L_0004
23844 @ 198991:               PUSH   ADDIMM
23845 @ 198994:               PUSH   C
23846 @ 198997:               SELECT 24
23847 @ 199000:               NEGATE
23848 @ 199001:               ASSPAR
23849 @ 199002:               PUSHI  #0x00000010
23850 @ 199007:               ASSPAR
23851 @ 199008:               CALL  
23852 @ 199009:               LOCATE L_0004

  4264    %return
  4265  
23853 @ 199012:               LINE   4264 "regression-compile-tmp/imp22g-77.imp"
23854 @ 199052:               RETURN

  4266  do(label):
23855 @ 199053:               LINE   4266 "regression-compile-tmp/imp22g-77.imp"
23856 @ 199093:               PUSHI  #0x0000002c
23857 @ 199098:               SLABEL 327

  4267    update sp
23858 @ 199101:               LINE   4267 "regression-compile-tmp/imp22g-77.imp"
23859 @ 199141:               PUSH   UPDATESP
23860 @ 199144:               CALL  

  4268    define label(x)
23861 @ 199145:               LINE   4268 "regression-compile-tmp/imp22g-77.imp"
23862 @ 199185:               PUSH   DEFINELABEL
23863 @ 199188:               PUSH   X
23864 @ 199191:               ASSPAR
23865 @ 199192:               CALL  

  4269    %return
  4270  
23866 @ 199193:               LINE   4269 "regression-compile-tmp/imp22g-77.imp"
23867 @ 199233:               RETURN

  4271  do(stop):
23868 @ 199234:               LINE   4271 "regression-compile-tmp/imp22g-77.imp"
23869 @ 199274:               PUSHI  #0x00000025
23870 @ 199279:               SLABEL 327

  4272    update sp
23871 @ 199282:               LINE   4272 "regression-compile-tmp/imp22g-77.imp"
23872 @ 199322:               PUSH   UPDATESP
23873 @ 199325:               CALL  

  4273    flush %if pendcond # 0
23874 @ 199326:               LINE   4273 "regression-compile-tmp/imp22g-77.imp"
23875 @ 199366:               PUSH   PENDCOND
23876 @ 199369:               PUSHI  #0x00000000
23877 @ 199374:               JUMPIF = L_0004
23878 @ 199378:               PUSH   FLUSH
23879 @ 199381:               CALL  
23880 @ 199382:               LOCATE L_0004

  4274    plant(clr,0,d0)
23881 @ 199385:               LINE   4274 "regression-compile-tmp/imp22g-77.imp"
23882 @ 199425:               PUSH   PLANT
23883 @ 199428:               PUSHI  #0x00000034
23884 @ 199433:               ASSPAR
23885 @ 199434:               PUSHI  #0x00000000
23886 @ 199439:               ASSPAR
23887 @ 199440:               PUSHI  #0x00000001
23888 @ 199445:               ASSPAR
23889 @ 199446:               CALL  

  4275    srcall(signal)
23890 @ 199447:               LINE   4275 "regression-compile-tmp/imp22g-77.imp"
23891 @ 199487:               PUSH   SRCALL
23892 @ 199490:               PUSHI  #0x00000049
23893 @ 199495:               ASSPAR
23894 @ 199496:               CALL  

  4276    c_access = 0
23895 @ 199497:               LINE   4276 "regression-compile-tmp/imp22g-77.imp"
23896 @ 199537:               PUSH   C
23897 @ 199540:               SELECT 16
23898 @ 199543:               PUSHI  #0x00000000
23899 @ 199548:               ASSVAL

  4277    %return
  4278  
23900 @ 199549:               LINE   4277 "regression-compile-tmp/imp22g-77.imp"
23901 @ 199589:               RETURN

  4279  do(signal):
23902 @ 199590:               LINE   4279 "regression-compile-tmp/imp22g-77.imp"
23903 @ 199630:               PUSHI  #0x00000049
23904 @ 199635:               SLABEL 327

  4280    update sp
23905 @ 199638:               LINE   4280 "regression-compile-tmp/imp22g-77.imp"
23906 @ 199678:               PUSH   UPDATESP
23907 @ 199681:               CALL  

  4281    flush %if pendcond # 0
23908 @ 199682:               LINE   4281 "regression-compile-tmp/imp22g-77.imp"
23909 @ 199722:               PUSH   PENDCOND
23910 @ 199725:               PUSHI  #0x00000000
23911 @ 199730:               JUMPIF = L_0004
23912 @ 199734:               PUSH   FLUSH
23913 @ 199737:               CALL  
23914 @ 199738:               LOCATE L_0004

  4282    sp = c_sp
23915 @ 199741:               LINE   4282 "regression-compile-tmp/imp22g-77.imp"
23916 @ 199781:               PUSH   SP
23917 @ 199784:               PUSH   C
23918 @ 199787:               SELECT 1
23919 @ 199790:               ASSVAL

  4283    pp = pp+1;  dp == dict(pp)
23920 @ 199791:               LINE   4283 "regression-compile-tmp/imp22g-77.imp"
23921 @ 199831:               PUSH   PP
23922 @ 199834:               PUSH   PP
23923 @ 199837:               PUSHI  #0x00000001
23924 @ 199842:               ADD   
23925 @ 199843:               ASSVAL
23926 @ 199844:               LINE   4283 "regression-compile-tmp/imp22g-77.imp"
23927 @ 199884:               PUSH   DP
23928 @ 199887:               PUSH   DICT
23929 @ 199890:               PUSH   PP
23930 @ 199893:               ACCESS
23931 @ 199894:               ASSREF

  4284    xx = dp_x;  yy = dp_y
23932 @ 199895:               LINE   4284 "regression-compile-tmp/imp22g-77.imp"
23933 @ 199935:               PUSH   XX
23934 @ 199938:               PUSH   DP
23935 @ 199941:               SELECT 13
23936 @ 199944:               ASSVAL
23937 @ 199945:               LINE   4284 "regression-compile-tmp/imp22g-77.imp"
23938 @ 199985:               PUSH   YY
23939 @ 199988:               PUSH   DP
23940 @ 199991:               SELECT 14
23941 @ 199994:               ASSVAL

  4285    x = litval(x)
23942 @ 199995:               LINE   4285 "regression-compile-tmp/imp22g-77.imp"
23943 @ 200035:               PUSH   X
23944 @ 200038:               PUSH   LITVAL
23945 @ 200041:               PUSH   X
23946 @ 200044:               ASSPAR
23947 @ 200045:               CALL  
23948 @ 200046:               ASSVAL

  4286    %if yy # undef %start
23949 @ 200047:               LINE   4286 "regression-compile-tmp/imp22g-77.imp"
23950 @ 200087:               PUSH   YY
23951 @ 200090:               PUSHI  #0x00000010
23952 @ 200095:               JUMPIF = L_0004

  4287      eval(yy,a0b+asad);  x = x+64
23953 @ 200099:               LINE   4287 "regression-compile-tmp/imp22g-77.imp"
23954 @ 200139:               PUSH   EVAL
23955 @ 200142:               PUSH   YY
23956 @ 200145:               ASSPAR
23957 @ 200146:               PUSHI  #0x00000100
23958 @ 200151:               PUSHI  #0x00100000
23959 @ 200156:               ADD   
23960 @ 200157:               ASSPAR
23961 @ 200158:               CALL  
23962 @ 200159:               LINE   4287 "regression-compile-tmp/imp22g-77.imp"
23963 @ 200199:               PUSH   X
23964 @ 200202:               PUSH   X
23965 @ 200205:               PUSHI  #0x00000040
23966 @ 200210:               ADD   
23967 @ 200211:               ASSVAL

  4288    %finish
23968 @ 200212:               LINE   4288 "regression-compile-tmp/imp22g-77.imp"
23969 @ 200252:               LOCATE L_0004

  4289    %if xx # undef %start
23970 @ 200255:               LINE   4289 "regression-compile-tmp/imp22g-77.imp"
23971 @ 200295:               PUSH   XX
23972 @ 200298:               PUSHI  #0x00000010
23973 @ 200303:               JUMPIF = L_0004

  4290      eval(xx,d2b);  x = x+32
23974 @ 200307:               LINE   4290 "regression-compile-tmp/imp22g-77.imp"
23975 @ 200347:               PUSH   EVAL
23976 @ 200350:               PUSH   XX
23977 @ 200353:               ASSPAR
23978 @ 200354:               PUSHI  #0x00000004
23979 @ 200359:               ASSPAR
23980 @ 200360:               CALL  
23981 @ 200361:               LINE   4290 "regression-compile-tmp/imp22g-77.imp"
23982 @ 200401:               PUSH   X
23983 @ 200404:               PUSH   X
23984 @ 200407:               PUSHI  #0x00000020
23985 @ 200412:               ADD   
23986 @ 200413:               ASSVAL

  4291    %finish
23987 @ 200414:               LINE   4291 "regression-compile-tmp/imp22g-77.imp"
23988 @ 200454:               LOCATE L_0004

  4292    %if y # undef %start
23989 @ 200457:               LINE   4292 "regression-compile-tmp/imp22g-77.imp"
23990 @ 200497:               PUSH   Y
23991 @ 200500:               PUSHI  #0x00000010
23992 @ 200505:               JUMPIF = L_0004

  4293      eval(y,d1b);  x = x+16
23993 @ 200509:               LINE   4293 "regression-compile-tmp/imp22g-77.imp"
23994 @ 200549:               PUSH   EVAL
23995 @ 200552:               PUSH   Y
23996 @ 200555:               ASSPAR
23997 @ 200556:               PUSHI  #0x00000002
23998 @ 200561:               ASSPAR
23999 @ 200562:               CALL  
24000 @ 200563:               LINE   4293 "regression-compile-tmp/imp22g-77.imp"
24001 @ 200603:               PUSH   X
24002 @ 200606:               PUSH   X
24003 @ 200609:               PUSHI  #0x00000010
24004 @ 200614:               ADD   
24005 @ 200615:               ASSVAL

  4294    %finish
24006 @ 200616:               LINE   4294 "regression-compile-tmp/imp22g-77.imp"
24007 @ 200656:               LOCATE L_0004

  4295    x = litref(x)
24008 @ 200659:               LINE   4295 "regression-compile-tmp/imp22g-77.imp"
24009 @ 200699:               PUSH   X
24010 @ 200702:               PUSH   LITREF
24011 @ 200705:               PUSH   X
24012 @ 200708:               ASSPAR
24013 @ 200709:               CALL  
24014 @ 200710:               ASSVAL

  4296    eval(x,d0b)
24015 @ 200711:               LINE   4296 "regression-compile-tmp/imp22g-77.imp"
24016 @ 200751:               PUSH   EVAL
24017 @ 200754:               PUSH   X
24018 @ 200757:               ASSPAR
24019 @ 200758:               PUSHI  #0x00000001
24020 @ 200763:               ASSPAR
24021 @ 200764:               CALL  

  4297    %if control&sysbit # 0 %then plant(jmp,0,signal) %else plant(jsr,0,signal)
24022 @ 200765:               LINE   4297 "regression-compile-tmp/imp22g-77.imp"
24023 @ 200805:               PUSH   CONTROL
24024 @ 200808:               PUSHI  #0x00040000
24025 @ 200813:               AND   
24026 @ 200814:               PUSHI  #0x00000000
24027 @ 200819:               JUMPIF = L_0004
24028 @ 200823:               PUSH   PLANT
24029 @ 200826:               PUSHI  #0x00000039
24030 @ 200831:               ASSPAR
24031 @ 200832:               PUSHI  #0x00000000
24032 @ 200837:               ASSPAR
24033 @ 200838:               PUSHI  #0x00000049
24034 @ 200843:               ASSPAR
24035 @ 200844:               CALL  
24036 @ 200845:               GOTO   L_0003
24037 @ 200848:               LOCATE L_0004
24038 @ 200851:               PUSH   PLANT
24039 @ 200854:               PUSHI  #0x00000038
24040 @ 200859:               ASSPAR
24041 @ 200860:               PUSHI  #0x00000000
24042 @ 200865:               ASSPAR
24043 @ 200866:               PUSHI  #0x00000049
24044 @ 200871:               ASSPAR
24045 @ 200872:               CALL  
24046 @ 200873:               LOCATE L_0003

  4298    %if c_sp # sp %start;  ![earlier?]
24047 @ 200876:               LINE   4298 "regression-compile-tmp/imp22g-77.imp"
24048 @ 200916:               PUSH   C
24049 @ 200919:               SELECT 1
24050 @ 200922:               PUSH   SP
24051 @ 200925:               JUMPIF = L_0004

  4299      addimm(sp-c_sp,a7);  c_sp = sp
24052 @ 200929:               LINE   4299 "regression-compile-tmp/imp22g-77.imp"
24053 @ 200969:               PUSH   ADDIMM
24054 @ 200972:               PUSH   SP
24055 @ 200975:               PUSH   C
24056 @ 200978:               SELECT 1
24057 @ 200981:               SUB   
24058 @ 200982:               ASSPAR
24059 @ 200983:               PUSHI  #0x00000010
24060 @ 200988:               ASSPAR
24061 @ 200989:               CALL  
24062 @ 200990:               LINE   4299 "regression-compile-tmp/imp22g-77.imp"
24063 @ 201030:               PUSH   C
24064 @ 201033:               SELECT 1
24065 @ 201036:               PUSH   SP
24066 @ 201039:               ASSVAL

  4300    %finish
24067 @ 201040:               LINE   4300 "regression-compile-tmp/imp22g-77.imp"
24068 @ 201080:               LOCATE L_0004

  4301    c_access = 0
24069 @ 201083:               LINE   4301 "regression-compile-tmp/imp22g-77.imp"
24070 @ 201123:               PUSH   C
24071 @ 201126:               SELECT 16
24072 @ 201129:               PUSHI  #0x00000000
24073 @ 201134:               ASSVAL

  4302    %return
  4303  
24074 @ 201135:               LINE   4302 "regression-compile-tmp/imp22g-77.imp"
24075 @ 201175:               RETURN

  4304  do(settrap):
24076 @ 201176:               LINE   4304 "regression-compile-tmp/imp22g-77.imp"
24077 @ 201216:               PUSHI  #0x0000002a
24078 @ 201221:               SLABEL 327

  4305    update sp
24079 @ 201224:               LINE   4305 "regression-compile-tmp/imp22g-77.imp"
24080 @ 201264:               PUSH   UPDATESP
24081 @ 201267:               CALL  

  4306    push(d0+6);                     ![historical]
24082 @ 201268:               LINE   4306 "regression-compile-tmp/imp22g-77.imp"
24083 @ 201308:               PUSH   PUSH
24084 @ 201311:               PUSHI  #0x00000001
24085 @ 201316:               PUSHI  #0x00000006
24086 @ 201321:               ADD   
24087 @ 201322:               ASSPAR
24088 @ 201323:               CALL  

  4307    push(mb)
24089 @ 201324:               LINE   4307 "regression-compile-tmp/imp22g-77.imp"
24090 @ 201364:               PUSH   PUSH
24091 @ 201367:               PUSHI  #0x0000000d
24092 @ 201372:               ASSPAR
24093 @ 201373:               CALL  

  4308    plant(pea,0,temp(pcmode,10));  !address of mask [2+2+2+4]
24094 @ 201374:               LINE   4308 "regression-compile-tmp/imp22g-77.imp"
24095 @ 201414:               PUSH   PLANT
24096 @ 201417:               PUSHI  #0x00000037
24097 @ 201422:               ASSPAR
24098 @ 201423:               PUSHI  #0x00000000
24099 @ 201428:               ASSPAR
24100 @ 201429:               PUSH   TEMP
24101 @ 201432:               PUSHI  #0x0000003a
24102 @ 201437:               ASSPAR
24103 @ 201438:               PUSHI  #0x0000000a
24104 @ 201443:               ASSPAR
24105 @ 201444:               CALL  
24106 @ 201445:               ASSPAR
24107 @ 201446:               CALL  

  4309    c_sp = c_sp-4
24108 @ 201447:               LINE   4309 "regression-compile-tmp/imp22g-77.imp"
24109 @ 201487:               PUSH   C
24110 @ 201490:               SELECT 1
24111 @ 201493:               PUSH   C
24112 @ 201496:               SELECT 1
24113 @ 201499:               PUSHI  #0x00000004
24114 @ 201504:               SUB   
24115 @ 201505:               ASSVAL

  4310    push(gb+indir);                ![2 bytes]
24116 @ 201506:               LINE   4310 "regression-compile-tmp/imp22g-77.imp"
24117 @ 201546:               PUSH   PUSH
24118 @ 201549:               PUSHI  #0x0000000e
24119 @ 201554:               PUSHI  #0x00000008
24120 @ 201559:               ADD   
24121 @ 201560:               ASSPAR
24122 @ 201561:               CALL  

  4311    plant(move,a7,gb+indir);       ![2 bytes]
24123 @ 201562:               LINE   4311 "regression-compile-tmp/imp22g-77.imp"
24124 @ 201602:               PUSH   PLANT
24125 @ 201605:               PUSHI  #0x00000001
24126 @ 201610:               ASSPAR
24127 @ 201611:               PUSHI  #0x00000010
24128 @ 201616:               ASSPAR
24129 @ 201617:               PUSHI  #0x0000000e
24130 @ 201622:               PUSHI  #0x00000008
24131 @ 201627:               ADD   
24132 @ 201628:               ASSPAR
24133 @ 201629:               CALL  

  4312    c_eventsp = c_sp
24134 @ 201630:               LINE   4312 "regression-compile-tmp/imp22g-77.imp"
24135 @ 201670:               PUSH   C
24136 @ 201673:               SELECT 20
24137 @ 201676:               PUSH   C
24138 @ 201679:               SELECT 1
24139 @ 201682:               ASSVAL

  4313    c_forward = c_forward+1
24140 @ 201683:               LINE   4313 "regression-compile-tmp/imp22g-77.imp"
24141 @ 201723:               PUSH   C
24142 @ 201726:               SELECT 17
24143 @ 201729:               PUSH   C
24144 @ 201732:               SELECT 17
24145 @ 201735:               PUSHI  #0x00000001
24146 @ 201740:               ADD   
24147 @ 201741:               ASSVAL

  4314    lreg(c_lab1-dictlim) = c_reg
24148 @ 201742:               LINE   4314 "regression-compile-tmp/imp22g-77.imp"
24149 @ 201782:               PUSH   LREG
24150 @ 201785:               PUSH   C
24151 @ 201788:               SELECT 18
24152 @ 201791:               PUSH   DICTLIM
24153 @ 201794:               SUB   
24154 @ 201795:               ACCESS
24155 @ 201796:               PUSH   C
24156 @ 201799:               SELECT 30
24157 @ 201802:               ASSVAL

  4315    plant(bra,0,c_lab1);           ![4 bytes]
24158 @ 201803:               LINE   4315 "regression-compile-tmp/imp22g-77.imp"
24159 @ 201843:               PUSH   PLANT
24160 @ 201846:               PUSHI  #0x00000010
24161 @ 201851:               ASSPAR
24162 @ 201852:               PUSHI  #0x00000000
24163 @ 201857:               ASSPAR
24164 @ 201858:               PUSH   C
24165 @ 201861:               SELECT 18
24166 @ 201864:               ASSPAR
24167 @ 201865:               CALL  

  4316    pflag(pc-1) = longjump;  !**not to be shortened
24168 @ 201866:               LINE   4316 "regression-compile-tmp/imp22g-77.imp"
24169 @ 201906:               PUSH   PFLAG
24170 @ 201909:               PUSH   PC
24171 @ 201912:               PUSHI  #0x00000001
24172 @ 201917:               SUB   
24173 @ 201918:               ACCESS
24174 @ 201919:               PUSHI  #0x00000003
24175 @ 201924:               ASSVAL

  4317    forget regs
24176 @ 201925:               LINE   4317 "regression-compile-tmp/imp22g-77.imp"
24177 @ 201965:               PUSH   FORGETREGS
24178 @ 201968:               CALL  

  4318    plant(dc,0,temp(absmode,litval(y)));  !event mask
  4319  !  store(litval(y),0);  !event mask
24179 @ 201969:               LINE   4318 "regression-compile-tmp/imp22g-77.imp"
24180 @ 202009:               PUSH   PLANT
24181 @ 202012:               PUSHI  #0x00000066
24182 @ 202017:               ASSPAR
24183 @ 202018:               PUSHI  #0x00000000
24184 @ 202023:               ASSPAR
24185 @ 202024:               PUSH   TEMP
24186 @ 202027:               PUSHI  #0x00000038
24187 @ 202032:               ASSPAR
24188 @ 202033:               PUSH   LITVAL
24189 @ 202036:               PUSH   Y
24190 @ 202039:               ASSPAR
24191 @ 202040:               CALL  
24192 @ 202041:               ASSPAR
24193 @ 202042:               CALL  
24194 @ 202043:               ASSPAR
24195 @ 202044:               CALL  

  4320    %return
  4321  
24196 @ 202045:               LINE   4320 "regression-compile-tmp/imp22g-77.imp"
24197 @ 202085:               RETURN

  4322  do(swgoto):                     !switch jump
24198 @ 202086:               LINE   4322 "regression-compile-tmp/imp22g-77.imp"
24199 @ 202126:               PUSHI  #0x0000002b
24200 @ 202131:               SLABEL 327

  4323    flush %if pendcond # 0
24201 @ 202134:               LINE   4323 "regression-compile-tmp/imp22g-77.imp"
24202 @ 202174:               PUSH   PENDCOND
24203 @ 202177:               PUSHI  #0x00000000
24204 @ 202182:               JUMPIF = L_0004
24205 @ 202186:               PUSH   FLUSH
24206 @ 202189:               CALL  
24207 @ 202190:               LOCATE L_0004

  4324    update sp
24208 @ 202193:               LINE   4324 "regression-compile-tmp/imp22g-77.imp"
24209 @ 202233:               PUSH   UPDATESP
24210 @ 202236:               CALL  

  4325    dx == dict(x)
24211 @ 202237:               LINE   4325 "regression-compile-tmp/imp22g-77.imp"
24212 @ 202277:               PUSH   DX
24213 @ 202280:               PUSH   DICT
24214 @ 202283:               PUSH   X
24215 @ 202286:               ACCESS
24216 @ 202287:               ASSREF

  4326    dx_flags = dx_flags!rflag
24217 @ 202288:               LINE   4326 "regression-compile-tmp/imp22g-77.imp"
24218 @ 202328:               PUSH   DX
24219 @ 202331:               SELECT 1
24220 @ 202334:               PUSH   DX
24221 @ 202337:               SELECT 1
24222 @ 202340:               PUSHI  #0x00000020
24223 @ 202345:               OR    
24224 @ 202346:               ASSVAL

  4327    i = dx_val;  !start of table
24225 @ 202347:               LINE   4327 "regression-compile-tmp/imp22g-77.imp"
24226 @ 202387:               PUSH   I
24227 @ 202390:               PUSH   DX
24228 @ 202393:               SELECT 9
24229 @ 202396:               ASSVAL

  4328    dy == typecell(dx_type)
24230 @ 202397:               LINE   4328 "regression-compile-tmp/imp22g-77.imp"
24231 @ 202437:               PUSH   DY
24232 @ 202440:               PUSH   TYPECELL
24233 @ 202443:               PUSH   DX
24234 @ 202446:               SELECT 2
24235 @ 202449:               ASSPAR
24236 @ 202450:               CALL  
24237 @ 202451:               ASSREF

  4329    get bounds(dy_xtype,sx,sy)
24238 @ 202452:               LINE   4329 "regression-compile-tmp/imp22g-77.imp"
24239 @ 202492:               PUSH   GETBOUNDS
24240 @ 202495:               PUSH   DY
24241 @ 202498:               SELECT 4
24242 @ 202501:               ASSPAR
24243 @ 202502:               PUSH   SX
24244 @ 202505:               ASSPAR
24245 @ 202506:               PUSH   SY
24246 @ 202509:               ASSPAR
24247 @ 202510:               CALL  

  4330    %if y <= 0 %start;  !literal subscript
24248 @ 202511:               LINE   4330 "regression-compile-tmp/imp22g-77.imp"
24249 @ 202551:               PUSH   Y
24250 @ 202554:               PUSHI  #0x00000000
24251 @ 202559:               JUMPIF > L_0004

  4331      y = litval(y)
24252 @ 202563:               LINE   4331 "regression-compile-tmp/imp22g-77.imp"
24253 @ 202603:               PUSH   Y
24254 @ 202606:               PUSH   LITVAL
24255 @ 202609:               PUSH   Y
24256 @ 202612:               ASSPAR
24257 @ 202613:               CALL  
24258 @ 202614:               ASSVAL

  4332      i = i+y-sx
24259 @ 202615:               LINE   4332 "regression-compile-tmp/imp22g-77.imp"
24260 @ 202655:               PUSH   I
24261 @ 202658:               PUSH   I
24262 @ 202661:               PUSH   Y
24263 @ 202664:               ADD   
24264 @ 202665:               PUSH   SX
24265 @ 202668:               SUB   
24266 @ 202669:               ASSVAL

  4333      addimm(c_temps,a7) %if c_temps # 0
24267 @ 202670:               LINE   4333 "regression-compile-tmp/imp22g-77.imp"
24268 @ 202710:               PUSH   C
24269 @ 202713:               SELECT 24
24270 @ 202716:               PUSHI  #0x00000000
24271 @ 202721:               JUMPIF = L_0007
24272 @ 202725:               PUSH   ADDIMM
24273 @ 202728:               PUSH   C
24274 @ 202731:               SELECT 24
24275 @ 202734:               ASSPAR
24276 @ 202735:               PUSHI  #0x00000010
24277 @ 202740:               ASSPAR
24278 @ 202741:               CALL  
24279 @ 202742:               LOCATE L_0007

  4334      plant(bra,0,temp(labmode,prog(i)))
24280 @ 202745:               LINE   4334 "regression-compile-tmp/imp22g-77.imp"
24281 @ 202785:               PUSH   PLANT
24282 @ 202788:               PUSHI  #0x00000010
24283 @ 202793:               ASSPAR
24284 @ 202794:               PUSHI  #0x00000000
24285 @ 202799:               ASSPAR
24286 @ 202800:               PUSH   TEMP
24287 @ 202803:               PUSHI  #0x000000ba
24288 @ 202808:               ASSPAR
24289 @ 202809:               PUSH   PROG
24290 @ 202812:               PUSH   I
24291 @ 202815:               ACCESS
24292 @ 202816:               ASSPAR
24293 @ 202817:               CALL  
24294 @ 202818:               ASSPAR
24295 @ 202819:               CALL  

  4335      prog(i) = dtemp_val;               !updated by PCREL
24296 @ 202820:               LINE   4335 "regression-compile-tmp/imp22g-77.imp"
24297 @ 202860:               PUSH   PROG
24298 @ 202863:               PUSH   I
24299 @ 202866:               ACCESS
24300 @ 202867:               PUSH   DTEMP
24301 @ 202870:               SELECT 9
24302 @ 202873:               ASSVAL

  4336    %else
24303 @ 202874:               LINE   4336 "regression-compile-tmp/imp22g-77.imp"
24304 @ 202914:               GOTO   L_0003
24305 @ 202917:               LOCATE L_0004

  4337      eval(y,d0b)
24306 @ 202920:               LINE   4337 "regression-compile-tmp/imp22g-77.imp"
24307 @ 202960:               PUSH   EVAL
24308 @ 202963:               PUSH   Y
24309 @ 202966:               ASSPAR
24310 @ 202967:               PUSHI  #0x00000001
24311 @ 202972:               ASSPAR
24312 @ 202973:               CALL  

  4338      %if i > pc %start;                  !first jump (I >= SWPC)
24313 @ 202974:               LINE   4338 "regression-compile-tmp/imp22g-77.imp"
24314 @ 203014:               PUSH   I
24315 @ 203017:               PUSH   PC
24316 @ 203020:               JUMPIF <= L_0007

  4339        c_forward = c_forward+(sy-sx+1)
24317 @ 203024:               LINE   4339 "regression-compile-tmp/imp22g-77.imp"
24318 @ 203064:               PUSH   C
24319 @ 203067:               SELECT 17
24320 @ 203070:               PUSH   C
24321 @ 203073:               SELECT 17
24322 @ 203076:               PUSH   SY
24323 @ 203079:               PUSH   SX
24324 @ 203082:               SUB   
24325 @ 203083:               PUSHI  #0x00000001
24326 @ 203088:               ADD   
24327 @ 203089:               ADD   
24328 @ 203090:               ASSVAL

  4340        %if dx_flags&arrflag = 0 %start;  !no check
24329 @ 203091:               LINE   4340 "regression-compile-tmp/imp22g-77.imp"
24330 @ 203131:               PUSH   DX
24331 @ 203134:               SELECT 1
24332 @ 203137:               PUSHI  #0x00000008
24333 @ 203142:               AND   
24334 @ 203143:               PUSHI  #0x00000000
24335 @ 203148:               JUMPIF # L_000a

  4341          addimm(c_temps,a7) %if c_temps # 0
24336 @ 203152:               LINE   4341 "regression-compile-tmp/imp22g-77.imp"
24337 @ 203192:               PUSH   C
24338 @ 203195:               SELECT 24
24339 @ 203198:               PUSHI  #0x00000000
24340 @ 203203:               JUMPIF = L_000d
24341 @ 203207:               PUSH   ADDIMM
24342 @ 203210:               PUSH   C
24343 @ 203213:               SELECT 24
24344 @ 203216:               ASSPAR
24345 @ 203217:               PUSHI  #0x00000010
24346 @ 203222:               ASSPAR
24347 @ 203223:               CALL  
24348 @ 203224:               LOCATE L_000d

  4342          plant(lea,temp(pcmode,10-sx-sx),a0); !LEA ?(PC),A0
24349 @ 203227:               LINE   4342 "regression-compile-tmp/imp22g-77.imp"
24350 @ 203267:               PUSH   PLANT
24351 @ 203270:               PUSHI  #0x0000004e
24352 @ 203275:               ASSPAR
24353 @ 203276:               PUSH   TEMP
24354 @ 203279:               PUSHI  #0x0000003a
24355 @ 203284:               ASSPAR
24356 @ 203285:               PUSHI  #0x0000000a
24357 @ 203290:               PUSH   SX
24358 @ 203293:               SUB   
24359 @ 203294:               PUSH   SX
24360 @ 203297:               SUB   
24361 @ 203298:               ASSPAR
24362 @ 203299:               CALL  
24363 @ 203300:               ASSPAR
24364 @ 203301:               PUSHI  #0x00000009
24365 @ 203306:               ASSPAR
24366 @ 203307:               CALL  

  4343          plant(add,d0,d0);                 !ADD D0,D0
24367 @ 203308:               LINE   4343 "regression-compile-tmp/imp22g-77.imp"
24368 @ 203348:               PUSH   PLANT
24369 @ 203351:               PUSHI  #0x00000002
24370 @ 203356:               ASSPAR
24371 @ 203357:               PUSHI  #0x00000001
24372 @ 203362:               ASSPAR
24373 @ 203363:               PUSHI  #0x00000001
24374 @ 203368:               ASSPAR
24375 @ 203369:               CALL  

  4344        %else
24376 @ 203370:               LINE   4344 "regression-compile-tmp/imp22g-77.imp"
24377 @ 203410:               GOTO   L_0009
24378 @ 203413:               LOCATE L_000a

  4345          wx = 12
24379 @ 203416:               LINE   4345 "regression-compile-tmp/imp22g-77.imp"
24380 @ 203456:               PUSH   WX
24381 @ 203459:               PUSHI  #0x0000000c
24382 @ 203464:               ASSVAL

  4346          %if c_temps # 0 %start
24383 @ 203465:               LINE   4346 "regression-compile-tmp/imp22g-77.imp"
24384 @ 203505:               PUSH   C
24385 @ 203508:               SELECT 24
24386 @ 203511:               PUSHI  #0x00000000
24387 @ 203516:               JUMPIF = L_000d

  4347            wx = wx+2;  wx = wx+2 %if c_temps > 8
24388 @ 203520:               LINE   4347 "regression-compile-tmp/imp22g-77.imp"
24389 @ 203560:               PUSH   WX
24390 @ 203563:               PUSH   WX
24391 @ 203566:               PUSHI  #0x00000002
24392 @ 203571:               ADD   
24393 @ 203572:               ASSVAL
24394 @ 203573:               LINE   4347 "regression-compile-tmp/imp22g-77.imp"
24395 @ 203613:               PUSH   C
24396 @ 203616:               SELECT 24
24397 @ 203619:               PUSHI  #0x00000008
24398 @ 203624:               JUMPIF <= L_0010
24399 @ 203628:               PUSH   WX
24400 @ 203631:               PUSH   WX
24401 @ 203634:               PUSHI  #0x00000002
24402 @ 203639:               ADD   
24403 @ 203640:               ASSVAL
24404 @ 203641:               LOCATE L_0010

  4348          %finish
24405 @ 203644:               LINE   4348 "regression-compile-tmp/imp22g-77.imp"
24406 @ 203684:               LOCATE L_000d

  4349          plant(lea,temp(pcmode,wx),a0)
24407 @ 203687:               LINE   4349 "regression-compile-tmp/imp22g-77.imp"
24408 @ 203727:               PUSH   PLANT
24409 @ 203730:               PUSHI  #0x0000004e
24410 @ 203735:               ASSPAR
24411 @ 203736:               PUSH   TEMP
24412 @ 203739:               PUSHI  #0x0000003a
24413 @ 203744:               ASSPAR
24414 @ 203745:               PUSH   WX
24415 @ 203748:               ASSPAR
24416 @ 203749:               CALL  
24417 @ 203750:               ASSPAR
24418 @ 203751:               PUSHI  #0x00000009
24419 @ 203756:               ASSPAR
24420 @ 203757:               CALL  

  4350          srcall(index)
24421 @ 203758:               LINE   4350 "regression-compile-tmp/imp22g-77.imp"
24422 @ 203798:               PUSH   SRCALL
24423 @ 203801:               PUSHI  #0x0000004e
24424 @ 203806:               ASSPAR
24425 @ 203807:               CALL  

  4351          addimm(c_temps,a7) %if c_temps # 0
24426 @ 203808:               LINE   4351 "regression-compile-tmp/imp22g-77.imp"
24427 @ 203848:               PUSH   C
24428 @ 203851:               SELECT 24
24429 @ 203854:               PUSHI  #0x00000000
24430 @ 203859:               JUMPIF = L_000d
24431 @ 203863:               PUSH   ADDIMM
24432 @ 203866:               PUSH   C
24433 @ 203869:               SELECT 24
24434 @ 203872:               ASSPAR
24435 @ 203873:               PUSHI  #0x00000010
24436 @ 203878:               ASSPAR
24437 @ 203879:               CALL  
24438 @ 203880:               LOCATE L_000d

  4352        %finish
24439 @ 203883:               LINE   4352 "regression-compile-tmp/imp22g-77.imp"
24440 @ 203923:               LOCATE L_0009

  4353        plant(add+2<<8,tempx(a0,d0),a0); !ADD.W 0(A0,D0),A0
24441 @ 203926:               LINE   4353 "regression-compile-tmp/imp22g-77.imp"
24442 @ 203966:               PUSH   PLANT
24443 @ 203969:               PUSHI  #0x00000002
24444 @ 203974:               PUSHI  #0x00000002
24445 @ 203979:               PUSHI  #0x00000008
24446 @ 203984:               LSH   
24447 @ 203985:               ADD   
24448 @ 203986:               ASSPAR
24449 @ 203987:               PUSH   TEMPX
24450 @ 203990:               PUSHI  #0x00000009
24451 @ 203995:               ASSPAR
24452 @ 203996:               PUSHI  #0x00000001
24453 @ 204001:               ASSPAR
24454 @ 204002:               CALL  
24455 @ 204003:               ASSPAR
24456 @ 204004:               PUSHI  #0x00000009
24457 @ 204009:               ASSPAR
24458 @ 204010:               CALL  

  4354        plant(jmp,0,a0+indir);         !JUMP (A0)
24459 @ 204011:               LINE   4354 "regression-compile-tmp/imp22g-77.imp"
24460 @ 204051:               PUSH   PLANT
24461 @ 204054:               PUSHI  #0x00000039
24462 @ 204059:               ASSPAR
24463 @ 204060:               PUSHI  #0x00000000
24464 @ 204065:               ASSPAR
24465 @ 204066:               PUSHI  #0x00000009
24466 @ 204071:               PUSHI  #0x00000008
24467 @ 204076:               ADD   
24468 @ 204077:               ASSPAR
24469 @ 204078:               CALL  

  4355        %if dx_flags&arrflag # 0 %start
24470 @ 204079:               LINE   4355 "regression-compile-tmp/imp22g-77.imp"
24471 @ 204119:               PUSH   DX
24472 @ 204122:               SELECT 1
24473 @ 204125:               PUSHI  #0x00000008
24474 @ 204130:               AND   
24475 @ 204131:               PUSHI  #0x00000000
24476 @ 204136:               JUMPIF = L_000a

  4356          store(sy>>16,0);  store(sy,0)
24477 @ 204140:               LINE   4356 "regression-compile-tmp/imp22g-77.imp"
24478 @ 204180:               PUSH   STORE
24479 @ 204183:               PUSH   SY
24480 @ 204186:               PUSHI  #0x00000010
24481 @ 204191:               RSH   
24482 @ 204192:               ASSPAR
24483 @ 204193:               PUSHI  #0x00000000
24484 @ 204198:               ASSPAR
24485 @ 204199:               CALL  
24486 @ 204200:               LINE   4356 "regression-compile-tmp/imp22g-77.imp"
24487 @ 204240:               PUSH   STORE
24488 @ 204243:               PUSH   SY
24489 @ 204246:               ASSPAR
24490 @ 204247:               PUSHI  #0x00000000
24491 @ 204252:               ASSPAR
24492 @ 204253:               CALL  

  4357          store(sx>>16,0);  store(sx,0)
24493 @ 204254:               LINE   4357 "regression-compile-tmp/imp22g-77.imp"
24494 @ 204294:               PUSH   STORE
24495 @ 204297:               PUSH   SX
24496 @ 204300:               PUSHI  #0x00000010
24497 @ 204305:               RSH   
24498 @ 204306:               ASSPAR
24499 @ 204307:               PUSHI  #0x00000000
24500 @ 204312:               ASSPAR
24501 @ 204313:               CALL  
24502 @ 204314:               LINE   4357 "regression-compile-tmp/imp22g-77.imp"
24503 @ 204354:               PUSH   STORE
24504 @ 204357:               PUSH   SX
24505 @ 204360:               ASSPAR
24506 @ 204361:               PUSHI  #0x00000000
24507 @ 204366:               ASSPAR
24508 @ 204367:               CALL  

  4358          store(0,0);  store(2,0)
24509 @ 204368:               LINE   4358 "regression-compile-tmp/imp22g-77.imp"
24510 @ 204408:               PUSH   STORE
24511 @ 204411:               PUSHI  #0x00000000
24512 @ 204416:               ASSPAR
24513 @ 204417:               PUSHI  #0x00000000
24514 @ 204422:               ASSPAR
24515 @ 204423:               CALL  
24516 @ 204424:               LINE   4358 "regression-compile-tmp/imp22g-77.imp"
24517 @ 204464:               PUSH   STORE
24518 @ 204467:               PUSHI  #0x00000002
24519 @ 204472:               ASSPAR
24520 @ 204473:               PUSHI  #0x00000000
24521 @ 204478:               ASSPAR
24522 @ 204479:               CALL  

  4359        %finish
24523 @ 204480:               LINE   4359 "regression-compile-tmp/imp22g-77.imp"
24524 @ 204520:               LOCATE L_000a

  4360        dx_val = pc
24525 @ 204523:               LINE   4360 "regression-compile-tmp/imp22g-77.imp"
24526 @ 204563:               PUSH   DX
24527 @ 204566:               SELECT 9
24528 @ 204569:               PUSH   PC
24529 @ 204572:               ASSVAL

  4361        %cycle
24530 @ 204573:               LINE   4361 "regression-compile-tmp/imp22g-77.imp"
24531 @ 204613:               LOCATE L_0009

  4362          store(prog(i),0)
24532 @ 204616:               LINE   4362 "regression-compile-tmp/imp22g-77.imp"
24533 @ 204656:               PUSH   STORE
24534 @ 204659:               PUSH   PROG
24535 @ 204662:               PUSH   I
24536 @ 204665:               ACCESS
24537 @ 204666:               ASSPAR
24538 @ 204667:               PUSHI  #0x00000000
24539 @ 204672:               ASSPAR
24540 @ 204673:               CALL  

  4363          swpc = swpc+1 %if i = swpc;  i = i+1
24541 @ 204674:               LINE   4363 "regression-compile-tmp/imp22g-77.imp"
24542 @ 204714:               PUSH   I
24543 @ 204717:               PUSH   SWPC
24544 @ 204720:               JUMPIF # L_000d
24545 @ 204724:               PUSH   SWPC
24546 @ 204727:               PUSH   SWPC
24547 @ 204730:               PUSHI  #0x00000001
24548 @ 204735:               ADD   
24549 @ 204736:               ASSVAL
24550 @ 204737:               LOCATE L_000d
24551 @ 204740:               LINE   4363 "regression-compile-tmp/imp22g-77.imp"
24552 @ 204780:               PUSH   I
24553 @ 204783:               PUSH   I
24554 @ 204786:               PUSHI  #0x00000001
24555 @ 204791:               ADD   
24556 @ 204792:               ASSVAL

  4364          sx = sx+1
24557 @ 204793:               LINE   4364 "regression-compile-tmp/imp22g-77.imp"
24558 @ 204833:               PUSH   SX
24559 @ 204836:               PUSH   SX
24560 @ 204839:               PUSHI  #0x00000001
24561 @ 204844:               ADD   
24562 @ 204845:               ASSVAL

  4365        %repeat %until sx > sy
24563 @ 204846:               LINE   4365 "regression-compile-tmp/imp22g-77.imp"
24564 @ 204886:               PUSH   SX
24565 @ 204889:               PUSH   SY
24566 @ 204892:               JUMPIF > L_000a
24567 @ 204896:               REPEAT L_0009
24568 @ 204899:               LOCATE L_000a

  4366      %else;  !just branch to earlier sequence
  4367              ![gives wrong line number for error]
  4368              ![wrong if temps]
24569 @ 204902:               LINE   4366 "regression-compile-tmp/imp22g-77.imp"
24570 @ 204942:               GOTO   L_0006
24571 @ 204945:               LOCATE L_0007

  4369        i = i-7 %if dx_flags&arrflag # 0
24572 @ 204948:               LINE   4369 "regression-compile-tmp/imp22g-77.imp"
24573 @ 204988:               PUSH   DX
24574 @ 204991:               SELECT 1
24575 @ 204994:               PUSHI  #0x00000008
24576 @ 204999:               AND   
24577 @ 205000:               PUSHI  #0x00000000
24578 @ 205005:               JUMPIF = L_000a
24579 @ 205009:               PUSH   I
24580 @ 205012:               PUSH   I
24581 @ 205015:               PUSHI  #0x00000007
24582 @ 205020:               SUB   
24583 @ 205021:               ASSVAL
24584 @ 205022:               LOCATE L_000a

  4370        plant(bra,0,temp(labmode,i-6))
24585 @ 205025:               LINE   4370 "regression-compile-tmp/imp22g-77.imp"
24586 @ 205065:               PUSH   PLANT
24587 @ 205068:               PUSHI  #0x00000010
24588 @ 205073:               ASSPAR
24589 @ 205074:               PUSHI  #0x00000000
24590 @ 205079:               ASSPAR
24591 @ 205080:               PUSH   TEMP
24592 @ 205083:               PUSHI  #0x000000ba
24593 @ 205088:               ASSPAR
24594 @ 205089:               PUSH   I
24595 @ 205092:               PUSHI  #0x00000006
24596 @ 205097:               SUB   
24597 @ 205098:               ASSPAR
24598 @ 205099:               CALL  
24599 @ 205100:               ASSPAR
24600 @ 205101:               CALL  

  4371      %finish
24601 @ 205102:               LINE   4371 "regression-compile-tmp/imp22g-77.imp"
24602 @ 205142:               LOCATE L_0006

  4372    %finish
24603 @ 205145:               LINE   4372 "regression-compile-tmp/imp22g-77.imp"
24604 @ 205185:               LOCATE L_0003

  4373    c_access = 0
24605 @ 205188:               LINE   4373 "regression-compile-tmp/imp22g-77.imp"
24606 @ 205228:               PUSH   C
24607 @ 205231:               SELECT 16
24608 @ 205234:               PUSHI  #0x00000000
24609 @ 205239:               ASSVAL

  4374    %return
  4375  
24610 @ 205240:               LINE   4374 "regression-compile-tmp/imp22g-77.imp"
24611 @ 205280:               RETURN

  4376  do(asize):
24612 @ 205281:               LINE   4376 "regression-compile-tmp/imp22g-77.imp"
24613 @ 205321:               PUSHI  #0x00000069
24614 @ 205326:               SLABEL 327

  4377    %if y # 0 %start;  !first: prime D0
24615 @ 205329:               LINE   4377 "regression-compile-tmp/imp22g-77.imp"
24616 @ 205369:               PUSH   Y
24617 @ 205372:               PUSHI  #0x00000000
24618 @ 205377:               JUMPIF = L_0004

  4378      update sp
24619 @ 205381:               LINE   4378 "regression-compile-tmp/imp22g-77.imp"
24620 @ 205421:               PUSH   UPDATESP
24621 @ 205424:               CALL  

  4379      eval(y,d0b);  !basic itemsize
24622 @ 205425:               LINE   4379 "regression-compile-tmp/imp22g-77.imp"
24623 @ 205465:               PUSH   EVAL
24624 @ 205468:               PUSH   Y
24625 @ 205471:               ASSPAR
24626 @ 205472:               PUSHI  #0x00000001
24627 @ 205477:               ASSPAR
24628 @ 205478:               CALL  

  4380    %else
24629 @ 205479:               LINE   4380 "regression-compile-tmp/imp22g-77.imp"
24630 @ 205519:               GOTO   L_0003
24631 @ 205522:               LOCATE L_0004

  4381      srcall(asize)
24632 @ 205525:               LINE   4381 "regression-compile-tmp/imp22g-77.imp"
24633 @ 205565:               PUSH   SRCALL
24634 @ 205568:               PUSHI  #0x00000069
24635 @ 205573:               ASSPAR
24636 @ 205574:               CALL  

  4382    %finish
24637 @ 205575:               LINE   4382 "regression-compile-tmp/imp22g-77.imp"
24638 @ 205615:               LOCATE L_0003

  4383    pp = pp+1;  dp == dict(pp)
24639 @ 205618:               LINE   4383 "regression-compile-tmp/imp22g-77.imp"
24640 @ 205658:               PUSH   PP
24641 @ 205661:               PUSH   PP
24642 @ 205664:               PUSHI  #0x00000001
24643 @ 205669:               ADD   
24644 @ 205670:               ASSVAL
24645 @ 205671:               LINE   4383 "regression-compile-tmp/imp22g-77.imp"
24646 @ 205711:               PUSH   DP
24647 @ 205714:               PUSH   DICT
24648 @ 205717:               PUSH   PP
24649 @ 205720:               ACCESS
24650 @ 205721:               ASSREF

  4384    xx = dp_x;  yy = dp_y
24651 @ 205722:               LINE   4384 "regression-compile-tmp/imp22g-77.imp"
24652 @ 205762:               PUSH   XX
24653 @ 205765:               PUSH   DP
24654 @ 205768:               SELECT 13
24655 @ 205771:               ASSVAL
24656 @ 205772:               LINE   4384 "regression-compile-tmp/imp22g-77.imp"
24657 @ 205812:               PUSH   YY
24658 @ 205815:               PUSH   DP
24659 @ 205818:               SELECT 14
24660 @ 205821:               ASSVAL

  4385    free = c_free-d0b;  !not d0
24661 @ 205822:               LINE   4385 "regression-compile-tmp/imp22g-77.imp"
24662 @ 205862:               PUSH   FREE
24663 @ 205865:               PUSH   C
24664 @ 205868:               SELECT 5
24665 @ 205871:               PUSHI  #0x00000001
24666 @ 205876:               SUB   
24667 @ 205877:               ASSVAL

  4386    eval(xx,d1b);  !lower
24668 @ 205878:               LINE   4386 "regression-compile-tmp/imp22g-77.imp"
24669 @ 205918:               PUSH   EVAL
24670 @ 205921:               PUSH   XX
24671 @ 205924:               ASSPAR
24672 @ 205925:               PUSHI  #0x00000002
24673 @ 205930:               ASSPAR
24674 @ 205931:               CALL  

  4387    eval(yy,d2b);  !upper
24675 @ 205932:               LINE   4387 "regression-compile-tmp/imp22g-77.imp"
24676 @ 205972:               PUSH   EVAL
24677 @ 205975:               PUSH   YY
24678 @ 205978:               ASSPAR
24679 @ 205979:               PUSHI  #0x00000004
24680 @ 205984:               ASSPAR
24681 @ 205985:               CALL  

  4388    push(d0);  !size
24682 @ 205986:               LINE   4388 "regression-compile-tmp/imp22g-77.imp"
24683 @ 206026:               PUSH   PUSH
24684 @ 206029:               PUSHI  #0x00000001
24685 @ 206034:               ASSPAR
24686 @ 206035:               CALL  

  4389    push(d1);  push(d2)
24687 @ 206036:               LINE   4389 "regression-compile-tmp/imp22g-77.imp"
24688 @ 206076:               PUSH   PUSH
24689 @ 206079:               PUSHI  #0x00000002
24690 @ 206084:               ASSPAR
24691 @ 206085:               CALL  
24692 @ 206086:               LINE   4389 "regression-compile-tmp/imp22g-77.imp"
24693 @ 206126:               PUSH   PUSH
24694 @ 206129:               PUSHI  #0x00000003
24695 @ 206134:               ASSPAR
24696 @ 206135:               CALL  

  4390    forget regs
24697 @ 206136:               LINE   4390 "regression-compile-tmp/imp22g-77.imp"
24698 @ 206176:               PUSH   FORGETREGS
24699 @ 206179:               CALL  

  4391    free = free!(d1b+d2b)
24700 @ 206180:               LINE   4391 "regression-compile-tmp/imp22g-77.imp"
24701 @ 206220:               PUSH   FREE
24702 @ 206223:               PUSH   FREE
24703 @ 206226:               PUSHI  #0x00000002
24704 @ 206231:               PUSHI  #0x00000004
24705 @ 206236:               ADD   
24706 @ 206237:               OR    
24707 @ 206238:               ASSVAL

  4392    dict(x)_val = c_sp
24708 @ 206239:               LINE   4392 "regression-compile-tmp/imp22g-77.imp"
24709 @ 206279:               PUSH   DICT
24710 @ 206282:               PUSH   X
24711 @ 206285:               ACCESS
24712 @ 206286:               SELECT 9
24713 @ 206289:               PUSH   C
24714 @ 206292:               SELECT 1
24715 @ 206295:               ASSVAL

  4393    %return
  4394  !
24716 @ 206296:               LINE   4393 "regression-compile-tmp/imp22g-77.imp"
24717 @ 206336:               RETURN

  4395  do(adok):  ![spare code]
  4396  !Push size of dynamic array (& 0-base value) for AGET
24718 @ 206337:               LINE   4395 "regression-compile-tmp/imp22g-77.imp"
24719 @ 206377:               PUSHI  #0x00000067
24720 @ 206382:               SLABEL 327

  4397    update sp
24721 @ 206385:               LINE   4397 "regression-compile-tmp/imp22g-77.imp"
24722 @ 206425:               PUSH   UPDATESP
24723 @ 206428:               CALL  

  4398    %if x # 0 %start
24724 @ 206429:               LINE   4398 "regression-compile-tmp/imp22g-77.imp"
24725 @ 206469:               PUSH   X
24726 @ 206472:               PUSHI  #0x00000000
24727 @ 206477:               JUMPIF = L_0004

  4399      %if x # d0 %then eval(x,d0b) %else srcall(asize)
24728 @ 206481:               LINE   4399 "regression-compile-tmp/imp22g-77.imp"
24729 @ 206521:               PUSH   X
24730 @ 206524:               PUSHI  #0x00000001
24731 @ 206529:               JUMPIF = L_0007
24732 @ 206533:               PUSH   EVAL
24733 @ 206536:               PUSH   X
24734 @ 206539:               ASSPAR
24735 @ 206540:               PUSHI  #0x00000001
24736 @ 206545:               ASSPAR
24737 @ 206546:               CALL  
24738 @ 206547:               GOTO   L_0006
24739 @ 206550:               LOCATE L_0007
24740 @ 206553:               PUSH   SRCALL
24741 @ 206556:               PUSHI  #0x00000069
24742 @ 206561:               ASSPAR
24743 @ 206562:               CALL  
24744 @ 206563:               LOCATE L_0006

  4400    %finish
24745 @ 206566:               LINE   4400 "regression-compile-tmp/imp22g-77.imp"
24746 @ 206606:               LOCATE L_0004

  4401    push(y) %if y # 0
24747 @ 206609:               LINE   4401 "regression-compile-tmp/imp22g-77.imp"
24748 @ 206649:               PUSH   Y
24749 @ 206652:               PUSHI  #0x00000000
24750 @ 206657:               JUMPIF = L_0004
24751 @ 206661:               PUSH   PUSH
24752 @ 206664:               PUSH   Y
24753 @ 206667:               ASSPAR
24754 @ 206668:               CALL  
24755 @ 206669:               LOCATE L_0004

  4402    push(d0)
24756 @ 206672:               LINE   4402 "regression-compile-tmp/imp22g-77.imp"
24757 @ 206712:               PUSH   PUSH
24758 @ 206715:               PUSHI  #0x00000001
24759 @ 206720:               ASSPAR
24760 @ 206721:               CALL  

  4403    %return
  4404  
24761 @ 206722:               LINE   4403 "regression-compile-tmp/imp22g-77.imp"
24762 @ 206762:               RETURN

  4405  do(aget):
24763 @ 206763:               LINE   4405 "regression-compile-tmp/imp22g-77.imp"
24764 @ 206803:               PUSHI  #0x0000006d
24765 @ 206808:               SLABEL 327

  4406    plant(move,x,d0)
24766 @ 206811:               LINE   4406 "regression-compile-tmp/imp22g-77.imp"
24767 @ 206851:               PUSH   PLANT
24768 @ 206854:               PUSHI  #0x00000001
24769 @ 206859:               ASSPAR
24770 @ 206860:               PUSH   X
24771 @ 206863:               ASSPAR
24772 @ 206864:               PUSHI  #0x00000001
24773 @ 206869:               ASSPAR
24774 @ 206870:               CALL  

  4407    srcall(aget)
24775 @ 206871:               LINE   4407 "regression-compile-tmp/imp22g-77.imp"
24776 @ 206911:               PUSH   SRCALL
24777 @ 206914:               PUSHI  #0x0000006d
24778 @ 206919:               ASSPAR
24779 @ 206920:               CALL  

  4408    plant(move,a7,x)
24780 @ 206921:               LINE   4408 "regression-compile-tmp/imp22g-77.imp"
24781 @ 206961:               PUSH   PLANT
24782 @ 206964:               PUSHI  #0x00000001
24783 @ 206969:               ASSPAR
24784 @ 206970:               PUSHI  #0x00000010
24785 @ 206975:               ASSPAR
24786 @ 206976:               PUSH   X
24787 @ 206979:               ASSPAR
24788 @ 206980:               CALL  

  4409    %if y # 0 %start
24789 @ 206981:               LINE   4409 "regression-compile-tmp/imp22g-77.imp"
24790 @ 207021:               PUSH   Y
24791 @ 207024:               PUSHI  #0x00000000
24792 @ 207029:               JUMPIF = L_0004

  4410      dx == dict(x)
24793 @ 207033:               LINE   4410 "regression-compile-tmp/imp22g-77.imp"
24794 @ 207073:               PUSH   DX
24795 @ 207076:               PUSH   DICT
24796 @ 207079:               PUSH   X
24797 @ 207082:               ACCESS
24798 @ 207083:               ASSREF

  4411      dx_val = dx_val+4
24799 @ 207084:               LINE   4411 "regression-compile-tmp/imp22g-77.imp"
24800 @ 207124:               PUSH   DX
24801 @ 207127:               SELECT 9
24802 @ 207130:               PUSH   DX
24803 @ 207133:               SELECT 9
24804 @ 207136:               PUSHI  #0x00000004
24805 @ 207141:               ADD   
24806 @ 207142:               ASSVAL

  4412      plant(move,a7,d0)
24807 @ 207143:               LINE   4412 "regression-compile-tmp/imp22g-77.imp"
24808 @ 207183:               PUSH   PLANT
24809 @ 207186:               PUSHI  #0x00000001
24810 @ 207191:               ASSPAR
24811 @ 207192:               PUSHI  #0x00000010
24812 @ 207197:               ASSPAR
24813 @ 207198:               PUSHI  #0x00000001
24814 @ 207203:               ASSPAR
24815 @ 207204:               CALL  

  4413      plant(add,d0,x)
24816 @ 207205:               LINE   4413 "regression-compile-tmp/imp22g-77.imp"
24817 @ 207245:               PUSH   PLANT
24818 @ 207248:               PUSHI  #0x00000002
24819 @ 207253:               ASSPAR
24820 @ 207254:               PUSHI  #0x00000001
24821 @ 207259:               ASSPAR
24822 @ 207260:               PUSH   X
24823 @ 207263:               ASSPAR
24824 @ 207264:               CALL  

  4414      dx_val = dx_val-4
24825 @ 207265:               LINE   4414 "regression-compile-tmp/imp22g-77.imp"
24826 @ 207305:               PUSH   DX
24827 @ 207308:               SELECT 9
24828 @ 207311:               PUSH   DX
24829 @ 207314:               SELECT 9
24830 @ 207317:               PUSHI  #0x00000004
24831 @ 207322:               SUB   
24832 @ 207323:               ASSVAL

  4415    %finish
24833 @ 207324:               LINE   4415 "regression-compile-tmp/imp22g-77.imp"
24834 @ 207364:               LOCATE L_0004

  4416    forget(d0);  forget(a0)
24835 @ 207367:               LINE   4416 "regression-compile-tmp/imp22g-77.imp"
24836 @ 207407:               PUSH   FORGET
24837 @ 207410:               PUSHI  #0x00000001
24838 @ 207415:               ASSPAR
24839 @ 207416:               CALL  
24840 @ 207417:               LINE   4416 "regression-compile-tmp/imp22g-77.imp"
24841 @ 207457:               PUSH   FORGET
24842 @ 207460:               PUSHI  #0x00000009
24843 @ 207465:               ASSPAR
24844 @ 207466:               CALL  

  4417    %return
  4418  
24845 @ 207467:               LINE   4417 "regression-compile-tmp/imp22g-77.imp"
24846 @ 207507:               RETURN

  4419  %routine COMPILE ENTRY(%integer linked,arg)
  4420  !Entry sequence generated at end
24847 @ 207508:               LINE   4419 "regression-compile-tmp/imp22g-77.imp"
24848 @ 207548:               DEF    COMPILEENTRY (_lev0id0_EVAL_COMPILEENTRY) p1=V_0198 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
24849 @ 207572:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
24850 @ 207573:                     DEF    LINKED p1=V_0199 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
24851 @ 207591:                     DEF    ARG p1=V_019a a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
24852 @ 207606:                  FINISH ) {lev=3}

  4421  %integer i,r,vsp,lastvsp,holdsp
24853 @ 207607:                  LINE   4421 "regression-compile-tmp/imp22g-77.imp"
24854 @ 207647:                  DEF    I p1=V_019b a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
24855 @ 207660:                  DEF    R p1=V_019c a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
24856 @ 207673:                  DEF    VSP p1=V_019d a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
24857 @ 207688:                  DEF    LASTVSP p1=V_019e a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
24858 @ 207707:                  DEF    HOLDSP p1=V_019f a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  4422  %record(identinfo)%name darg,tp
24859 @ 207725:                  LINE   4422 "regression-compile-tmp/imp22g-77.imp"
24860 @ 207765:                  DEF    DARG p1=V_01a0 a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
24861 @ 207781:                  DEF    TP p1=V_01a1 a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  4423    holdsp = c_sp
24862 @ 207795:                  LINE   4423 "regression-compile-tmp/imp22g-77.imp"
24863 @ 207835:                  PUSH   HOLDSP
24864 @ 207838:                  PUSH   C
24865 @ 207841:                  SELECT 1
24866 @ 207844:                  ASSVAL

  4424    c_sp = 0;  lastvsp = 0
24867 @ 207845:                  LINE   4424 "regression-compile-tmp/imp22g-77.imp"
24868 @ 207885:                  PUSH   C
24869 @ 207888:                  SELECT 1
24870 @ 207891:                  PUSHI  #0x00000000
24871 @ 207896:                  ASSVAL
24872 @ 207897:                  LINE   4424 "regression-compile-tmp/imp22g-77.imp"
24873 @ 207937:                  PUSH   LASTVSP
24874 @ 207940:                  PUSHI  #0x00000000
24875 @ 207945:                  ASSVAL

  4425    c_stack = c_stack-4 %if linked > 0;  !allow for link
24876 @ 207946:                  LINE   4425 "regression-compile-tmp/imp22g-77.imp"
24877 @ 207986:                  PUSH   LINKED
24878 @ 207989:                  PUSHI  #0x00000000
24879 @ 207994:                  JUMPIF <= L_0004
24880 @ 207998:                  PUSH   C
24881 @ 208001:                  SELECT 2
24882 @ 208004:                  PUSH   C
24883 @ 208007:                  SELECT 2
24884 @ 208010:                  PUSHI  #0x00000004
24885 @ 208015:                  SUB   
24886 @ 208016:                  ASSVAL
24887 @ 208017:                  LOCATE L_0004

  4426    %if linked = 0 %and c_status&onstack # 0 %start
  4427      !justify addressing assumed for onstack parameters
24888 @ 208020:                  LINE   4426 "regression-compile-tmp/imp22g-77.imp"
24889 @ 208060:                  PUSH   LINKED
24890 @ 208063:                  PUSHI  #0x00000000
24891 @ 208068:                  JUMPIF # L_0004
24892 @ 208072:                  PUSH   C
24893 @ 208075:                  SELECT 6
24894 @ 208078:                  PUSHI  #0x00000008
24895 @ 208083:                  AND   
24896 @ 208084:                  PUSHI  #0x00000000
24897 @ 208089:                  JUMPIF = L_0004

  4428      c_sp = 4;  holdsp = holdsp-4;  c_stack = c_stack-4
24898 @ 208093:                  LINE   4428 "regression-compile-tmp/imp22g-77.imp"
24899 @ 208133:                  PUSH   C
24900 @ 208136:                  SELECT 1
24901 @ 208139:                  PUSHI  #0x00000004
24902 @ 208144:                  ASSVAL
24903 @ 208145:                  LINE   4428 "regression-compile-tmp/imp22g-77.imp"
24904 @ 208185:                  PUSH   HOLDSP
24905 @ 208188:                  PUSH   HOLDSP
24906 @ 208191:                  PUSHI  #0x00000004
24907 @ 208196:                  SUB   
24908 @ 208197:                  ASSVAL
24909 @ 208198:                  LINE   4428 "regression-compile-tmp/imp22g-77.imp"
24910 @ 208238:                  PUSH   C
24911 @ 208241:                  SELECT 2
24912 @ 208244:                  PUSH   C
24913 @ 208247:                  SELECT 2
24914 @ 208250:                  PUSHI  #0x00000004
24915 @ 208255:                  SUB   
24916 @ 208256:                  ASSVAL

  4429    %finish
24917 @ 208257:                  LINE   4429 "regression-compile-tmp/imp22g-77.imp"
24918 @ 208297:                  LOCATE L_0004

  4430    c_stack = c_stack-4;              !and return address
24919 @ 208300:                  LINE   4430 "regression-compile-tmp/imp22g-77.imp"
24920 @ 208340:                  PUSH   C
24921 @ 208343:                  SELECT 2
24922 @ 208346:                  PUSH   C
24923 @ 208349:                  SELECT 2
24924 @ 208352:                  PUSHI  #0x00000004
24925 @ 208357:                  SUB   
24926 @ 208358:                  ASSVAL

  4431    c_totstack = c_stack %if c_stack < c_totstack
24927 @ 208359:                  LINE   4431 "regression-compile-tmp/imp22g-77.imp"
24928 @ 208399:                  PUSH   C
24929 @ 208402:                  SELECT 2
24930 @ 208405:                  PUSH   C
24931 @ 208408:                  SELECT 4
24932 @ 208411:                  JUMPIF >= L_0004
24933 @ 208415:                  PUSH   C
24934 @ 208418:                  SELECT 4
24935 @ 208421:                  PUSH   C
24936 @ 208424:                  SELECT 2
24937 @ 208427:                  ASSVAL
24938 @ 208428:                  LOCATE L_0004

  4432    %if control&stackbit # 0 %c
  4433    %and (c_status&unknown # 0 %or c_totstack < -128) %start
24939 @ 208431:                  LINE   4432 "regression-compile-tmp/imp22g-77.imp"
24940 @ 208471:                  PUSH   CONTROL
24941 @ 208474:                  PUSHI  #0x00100000
24942 @ 208479:                  AND   
24943 @ 208480:                  PUSHI  #0x00000000
24944 @ 208485:                  JUMPIF = L_0004
24945 @ 208489:                  PUSH   C
24946 @ 208492:                  SELECT 6
24947 @ 208495:                  PUSHI  #0x00000002
24948 @ 208500:                  AND   
24949 @ 208501:                  PUSHI  #0x00000000
24950 @ 208506:                  JUMPIF # L_0005
24951 @ 208510:                  PUSH   C
24952 @ 208513:                  SELECT 4
24953 @ 208516:                  PUSHI  #0x00000080
24954 @ 208521:                  NEGATE
24955 @ 208522:                  JUMPIF >= L_0004
24956 @ 208526:                  LOCATE L_0005

  4434      plantlit(move,c_stack,breg);  !*ok - gets cleared*
24957 @ 208529:                  LINE   4434 "regression-compile-tmp/imp22g-77.imp"
24958 @ 208569:                  PUSH   PLANTLIT
24959 @ 208572:                  PUSHI  #0x00000001
24960 @ 208577:                  ASSPAR
24961 @ 208578:                  PUSH   C
24962 @ 208581:                  SELECT 2
24963 @ 208584:                  ASSPAR
24964 @ 208585:                  PUSHI  #0x00000005
24965 @ 208590:                  ASSPAR
24966 @ 208591:                  CALL  

  4435      srcall(stackok)
24967 @ 208592:                  LINE   4435 "regression-compile-tmp/imp22g-77.imp"
24968 @ 208632:                  PUSH   SRCALL
24969 @ 208635:                  PUSHI  #0x00000068
24970 @ 208640:                  ASSPAR
24971 @ 208641:                  CALL  

  4436    %finish
24972 @ 208642:                  LINE   4436 "regression-compile-tmp/imp22g-77.imp"
24973 @ 208682:                  LOCATE L_0004

  4437    %if level > outerlevel %and linked > 0 %start;  !link required
24974 @ 208685:                  LINE   4437 "regression-compile-tmp/imp22g-77.imp"
24975 @ 208725:                  PUSH   LEVEL
24976 @ 208728:                  PUSHI  #0x00000000
24977 @ 208733:                  JUMPIF <= L_0004
24978 @ 208737:                  PUSH   LINKED
24979 @ 208740:                  PUSHI  #0x00000000
24980 @ 208745:                  JUMPIF <= L_0004

  4438      %if level > 1 %start
24981 @ 208749:                  LINE   4438 "regression-compile-tmp/imp22g-77.imp"
24982 @ 208789:                  PUSH   LEVEL
24983 @ 208792:                  PUSHI  #0x00000001
24984 @ 208797:                  JUMPIF <= L_0007

  4439        plant(move,tempd(gb,level<<2),prea7);  !MOVE ?(GB),-(SP)
24985 @ 208801:                  LINE   4439 "regression-compile-tmp/imp22g-77.imp"
24986 @ 208841:                  PUSH   PLANT
24987 @ 208844:                  PUSHI  #0x00000001
24988 @ 208849:                  ASSPAR
24989 @ 208850:                  PUSH   TEMPD
24990 @ 208853:                  PUSHI  #0x0000000e
24991 @ 208858:                  ASSPAR
24992 @ 208859:                  PUSH   LEVEL
24993 @ 208862:                  PUSHI  #0x00000002
24994 @ 208867:                  LSH   
24995 @ 208868:                  ASSPAR
24996 @ 208869:                  CALL  
24997 @ 208870:                  ASSPAR
24998 @ 208871:                  PUSHI  #0x00000028
24999 @ 208876:                  ASSPAR
25000 @ 208877:                  CALL  

  4440        plant(move,a7,tempd(gb,level<<2));  !MOVE SP,?(GB)
25001 @ 208878:                  LINE   4440 "regression-compile-tmp/imp22g-77.imp"
25002 @ 208918:                  PUSH   PLANT
25003 @ 208921:                  PUSHI  #0x00000001
25004 @ 208926:                  ASSPAR
25005 @ 208927:                  PUSHI  #0x00000010
25006 @ 208932:                  ASSPAR
25007 @ 208933:                  PUSH   TEMPD
25008 @ 208936:                  PUSHI  #0x0000000e
25009 @ 208941:                  ASSPAR
25010 @ 208942:                  PUSH   LEVEL
25011 @ 208945:                  PUSHI  #0x00000002
25012 @ 208950:                  LSH   
25013 @ 208951:                  ASSPAR
25014 @ 208952:                  CALL  
25015 @ 208953:                  ASSPAR
25016 @ 208954:                  CALL  

  4441      %else
25017 @ 208955:                  LINE   4441 "regression-compile-tmp/imp22g-77.imp"
25018 @ 208995:                  GOTO   L_0006
25019 @ 208998:                  LOCATE L_0007

  4442        plant(link,0,f1);       !LINK #0,Ax
25020 @ 209001:                  LINE   4442 "regression-compile-tmp/imp22g-77.imp"
25021 @ 209041:                  PUSH   PLANT
25022 @ 209044:                  PUSHI  #0x00000048
25023 @ 209049:                  ASSPAR
25024 @ 209050:                  PUSHI  #0x00000000
25025 @ 209055:                  ASSPAR
25026 @ 209056:                  PUSHI  #0x0000000f
25027 @ 209061:                  ASSPAR
25028 @ 209062:                  CALL  

  4443      %finish
25029 @ 209063:                  LINE   4443 "regression-compile-tmp/imp22g-77.imp"
25030 @ 209103:                  LOCATE L_0006

  4444    %finish
25031 @ 209106:                  LINE   4444 "regression-compile-tmp/imp22g-77.imp"
25032 @ 209146:                  LOCATE L_0004

  4445    darg == dict(arg)
25033 @ 209149:                  LINE   4445 "regression-compile-tmp/imp22g-77.imp"
25034 @ 209189:                  PUSH   DARG
25035 @ 209192:                  PUSH   DICT
25036 @ 209195:                  PUSH   ARG
25037 @ 209198:                  ACCESS
25038 @ 209199:                  ASSREF

  4446    %cycle
25039 @ 209200:                  LINE   4446 "regression-compile-tmp/imp22g-77.imp"
25040 @ 209240:                  LOCATE L_0003

  4447      arg = darg_link
25041 @ 209243:                  LINE   4447 "regression-compile-tmp/imp22g-77.imp"
25042 @ 209283:                  PUSH   ARG
25043 @ 209286:                  PUSH   DARG
25044 @ 209289:                  SELECT 3
25045 @ 209292:                  ASSVAL

  4448      %exit %if arg = 0
25046 @ 209293:                  LINE   4448 "regression-compile-tmp/imp22g-77.imp"
25047 @ 209333:                  PUSH   ARG
25048 @ 209336:                  PUSHI  #0x00000000
25049 @ 209341:                  JUMPIF # L_0007
25050 @ 209345:                  GOTO   L_0004
25051 @ 209348:                  LOCATE L_0007

  4449      darg == dict(arg)
25052 @ 209351:                  LINE   4449 "regression-compile-tmp/imp22g-77.imp"
25053 @ 209391:                  PUSH   DARG
25054 @ 209394:                  PUSH   DICT
25055 @ 209397:                  PUSH   ARG
25056 @ 209400:                  ACCESS
25057 @ 209401:                  ASSREF

  4450      %if darg_val <= 0 %start;  !passed in reg, not on stack
25058 @ 209402:                  LINE   4450 "regression-compile-tmp/imp22g-77.imp"
25059 @ 209442:                  PUSH   DARG
25060 @ 209445:                  SELECT 9
25061 @ 209448:                  PUSHI  #0x00000000
25062 @ 209453:                  JUMPIF > L_0007

  4451        vsp = darg_val
25063 @ 209457:                  LINE   4451 "regression-compile-tmp/imp22g-77.imp"
25064 @ 209497:                  PUSH   VSP
25065 @ 209500:                  PUSH   DARG
25066 @ 209503:                  SELECT 9
25067 @ 209506:                  ASSVAL

  4452        r = darg_reg&15+d0
25068 @ 209507:                  LINE   4452 "regression-compile-tmp/imp22g-77.imp"
25069 @ 209547:                  PUSH   R
25070 @ 209550:                  PUSH   DARG
25071 @ 209553:                  SELECT 7
25072 @ 209556:                  PUSHI  #0x0000000f
25073 @ 209561:                  AND   
25074 @ 209562:                  PUSHI  #0x00000001
25075 @ 209567:                  ADD   
25076 @ 209568:                  ASSVAL

  4453        %if darg_flags&mflag # 0 %or linked > 0 %start
25077 @ 209569:                  LINE   4453 "regression-compile-tmp/imp22g-77.imp"
25078 @ 209609:                  PUSH   DARG
25079 @ 209612:                  SELECT 1
25080 @ 209615:                  PUSHI  #0x00000080
25081 @ 209620:                  AND   
25082 @ 209621:                  PUSHI  #0x00000000
25083 @ 209626:                  JUMPIF # L_000b
25084 @ 209630:                  PUSH   LINKED
25085 @ 209633:                  PUSHI  #0x00000000
25086 @ 209638:                  JUMPIF <= L_000a
25087 @ 209642:                  LOCATE L_000b

  4454          addimm(lastvsp-c_sp,a7);  c_sp = lastvsp
25088 @ 209645:                  LINE   4454 "regression-compile-tmp/imp22g-77.imp"
25089 @ 209685:                  PUSH   ADDIMM
25090 @ 209688:                  PUSH   LASTVSP
25091 @ 209691:                  PUSH   C
25092 @ 209694:                  SELECT 1
25093 @ 209697:                  SUB   
25094 @ 209698:                  ASSPAR
25095 @ 209699:                  PUSHI  #0x00000010
25096 @ 209704:                  ASSPAR
25097 @ 209705:                  CALL  
25098 @ 209706:                  LINE   4454 "regression-compile-tmp/imp22g-77.imp"
25099 @ 209746:                  PUSH   C
25100 @ 209749:                  SELECT 1
25101 @ 209752:                  PUSH   LASTVSP
25102 @ 209755:                  ASSVAL

  4455          i = nsize(darg)
25103 @ 209756:                  LINE   4455 "regression-compile-tmp/imp22g-77.imp"
25104 @ 209796:                  PUSH   I
25105 @ 209799:                  PUSH   NSIZE
25106 @ 209802:                  PUSH   DARG
25107 @ 209805:                  ASSPAR
25108 @ 209806:                  CALL  
25109 @ 209807:                  ASSVAL

  4456          %if i > 0 %start
  4457            ! name or simple operand by value
  4458           !NB MOVE.B transfers to hi byte
25110 @ 209808:                  LINE   4456 "regression-compile-tmp/imp22g-77.imp"
25111 @ 209848:                  PUSH   I
25112 @ 209851:                  PUSHI  #0x00000000
25113 @ 209856:                  JUMPIF <= L_000d

  4459            plant(move+i<<8,r,prea7)
25114 @ 209860:                  LINE   4459 "regression-compile-tmp/imp22g-77.imp"
25115 @ 209900:                  PUSH   PLANT
25116 @ 209903:                  PUSHI  #0x00000001
25117 @ 209908:                  PUSH   I
25118 @ 209911:                  PUSHI  #0x00000008
25119 @ 209916:                  LSH   
25120 @ 209917:                  ADD   
25121 @ 209918:                  ASSPAR
25122 @ 209919:                  PUSH   R
25123 @ 209922:                  ASSPAR
25124 @ 209923:                  PUSHI  #0x00000028
25125 @ 209928:                  ASSPAR
25126 @ 209929:                  CALL  

  4460          %finish %else %if darg_flags&proc # 0 %start;  !proc as param
25127 @ 209930:                  LINE   4460 "regression-compile-tmp/imp22g-77.imp"
25128 @ 209970:                  GOTO   L_000c
25129 @ 209973:                  LOCATE L_000d
25130 @ 209976:                  PUSH   DARG
25131 @ 209979:                  SELECT 1
25132 @ 209982:                  PUSHI  #0x00003000
25133 @ 209987:                  AND   
25134 @ 209988:                  PUSHI  #0x00000000
25135 @ 209993:                  JUMPIF = L_000d

  4461            plant(move,r,prea7)
25136 @ 209997:                  LINE   4461 "regression-compile-tmp/imp22g-77.imp"
25137 @ 210037:                  PUSH   PLANT
25138 @ 210040:                  PUSHI  #0x00000001
25139 @ 210045:                  ASSPAR
25140 @ 210046:                  PUSH   R
25141 @ 210049:                  ASSPAR
25142 @ 210050:                  PUSHI  #0x00000028
25143 @ 210055:                  ASSPAR
25144 @ 210056:                  CALL  

  4462            plantlit(movew,16_4EF9,prea7)
25145 @ 210057:                  LINE   4462 "regression-compile-tmp/imp22g-77.imp"
25146 @ 210097:                  PUSH   PLANTLIT
25147 @ 210100:                  PUSHI  #0x00000201
25148 @ 210105:                  ASSPAR
25149 @ 210106:                  PUSHI  #0x00004ef9
25150 @ 210111:                  ASSPAR
25151 @ 210112:                  PUSHI  #0x00000028
25152 @ 210117:                  ASSPAR
25153 @ 210118:                  CALL  

  4463          %else;                          !structure by value
25154 @ 210119:                  LINE   4463 "regression-compile-tmp/imp22g-77.imp"
25155 @ 210159:                  GOTO   L_000c
25156 @ 210162:                  LOCATE L_000d

  4464            tp == typecell(darg_type)
25157 @ 210165:                  LINE   4464 "regression-compile-tmp/imp22g-77.imp"
25158 @ 210205:                  PUSH   TP
25159 @ 210208:                  PUSH   TYPECELL
25160 @ 210211:                  PUSH   DARG
25161 @ 210214:                  SELECT 2
25162 @ 210217:                  ASSPAR
25163 @ 210218:                  CALL  
25164 @ 210219:                  ASSREF

  4465            %if tp_flags&cat = stringy %start
25165 @ 210220:                  LINE   4465 "regression-compile-tmp/imp22g-77.imp"
25166 @ 210260:                  PUSH   TP
25167 @ 210263:                  SELECT 1
25168 @ 210266:                  PUSHI  #0x0000000f
25169 @ 210271:                  AND   
25170 @ 210272:                  PUSHI  #0x00000008
25171 @ 210277:                  JUMPIF # L_0010

  4466              %if control&capbit # 0 %and tp_size > -256 %start
25172 @ 210281:                  LINE   4466 "regression-compile-tmp/imp22g-77.imp"
25173 @ 210321:                  PUSH   CONTROL
25174 @ 210324:                  PUSHI  #0x20000000
25175 @ 210329:                  AND   
25176 @ 210330:                  PUSHI  #0x00000000
25177 @ 210335:                  JUMPIF = L_0013
25178 @ 210339:                  PUSH   TP
25179 @ 210342:                  SELECT 5
25180 @ 210345:                  PUSHI  #0x00000100
25181 @ 210350:                  NEGATE
25182 @ 210351:                  JUMPIF <= L_0013

  4467                plantlit(cmp+1<<8,-tp_size,r+indir)
25183 @ 210355:                  LINE   4467 "regression-compile-tmp/imp22g-77.imp"
25184 @ 210395:                  PUSH   PLANTLIT
25185 @ 210398:                  PUSHI  #0x00000004
25186 @ 210403:                  PUSHI  #0x00000001
25187 @ 210408:                  PUSHI  #0x00000008
25188 @ 210413:                  LSH   
25189 @ 210414:                  ADD   
25190 @ 210415:                  ASSPAR
25191 @ 210416:                  PUSH   TP
25192 @ 210419:                  SELECT 5
25193 @ 210422:                  NEGATE
25194 @ 210423:                  ASSPAR
25195 @ 210424:                  PUSH   R
25196 @ 210427:                  PUSHI  #0x00000008
25197 @ 210432:                  ADD   
25198 @ 210433:                  ASSPAR
25199 @ 210434:                  CALL  

  4468                plantlit2(bcs,0,4)
25200 @ 210435:                  LINE   4468 "regression-compile-tmp/imp22g-77.imp"
25201 @ 210475:                  PUSH   PLANTLIT2
25202 @ 210478:                  PUSHI  #0x00000015
25203 @ 210483:                  ASSPAR
25204 @ 210484:                  PUSHI  #0x00000000
25205 @ 210489:                  ASSPAR
25206 @ 210490:                  PUSHI  #0x00000004
25207 @ 210495:                  ASSPAR
25208 @ 210496:                  CALL  

  4469                srcall(check)
25209 @ 210497:                  LINE   4469 "regression-compile-tmp/imp22g-77.imp"
25210 @ 210537:                  PUSH   SRCALL
25211 @ 210540:                  PUSHI  #0x0000006f
25212 @ 210545:                  ASSPAR
25213 @ 210546:                  CALL  

  4470              %finish
25214 @ 210547:                  LINE   4470 "regression-compile-tmp/imp22g-77.imp"
25215 @ 210587:                  LOCATE L_0013

  4471              i = c_sp-vsp
25216 @ 210590:                  LINE   4471 "regression-compile-tmp/imp22g-77.imp"
25217 @ 210630:                  PUSH   I
25218 @ 210633:                  PUSH   C
25219 @ 210636:                  SELECT 1
25220 @ 210639:                  PUSH   VSP
25221 @ 210642:                  SUB   
25222 @ 210643:                  ASSVAL

  4472              addimm(-i,a7);            !SP = SP-bytes
25223 @ 210644:                  LINE   4472 "regression-compile-tmp/imp22g-77.imp"
25224 @ 210684:                  PUSH   ADDIMM
25225 @ 210687:                  PUSH   I
25226 @ 210690:                  NEGATE
25227 @ 210691:                  ASSPAR
25228 @ 210692:                  PUSHI  #0x00000010
25229 @ 210697:                  ASSPAR
25230 @ 210698:                  CALL  

  4473              extend stack(i)
  4474             !MOVE.B length,Dx
25231 @ 210699:                  LINE   4473 "regression-compile-tmp/imp22g-77.imp"
25232 @ 210739:                  PUSH   EXTENDSTACK
25233 @ 210742:                  PUSH   I
25234 @ 210745:                  ASSPAR
25235 @ 210746:                  CALL  

  4475              plant(moveb,r+indir,breg)
  4476             !MOVE.B 0(Ay,Dx),0(SP,Dx)
25236 @ 210747:                  LINE   4475 "regression-compile-tmp/imp22g-77.imp"
25237 @ 210787:                  PUSH   PLANT
25238 @ 210790:                  PUSHI  #0x00000101
25239 @ 210795:                  ASSPAR
25240 @ 210796:                  PUSH   R
25241 @ 210799:                  PUSHI  #0x00000008
25242 @ 210804:                  ADD   
25243 @ 210805:                  ASSPAR
25244 @ 210806:                  PUSHI  #0x00000005
25245 @ 210811:                  ASSPAR
25246 @ 210812:                  CALL  

  4477              plant(moveb,tempx(r,breg),tempx2(a7,breg))
25247 @ 210813:                  LINE   4477 "regression-compile-tmp/imp22g-77.imp"
25248 @ 210853:                  PUSH   PLANT
25249 @ 210856:                  PUSHI  #0x00000101
25250 @ 210861:                  ASSPAR
25251 @ 210862:                  PUSH   TEMPX
25252 @ 210865:                  PUSH   R
25253 @ 210868:                  ASSPAR
25254 @ 210869:                  PUSHI  #0x00000005
25255 @ 210874:                  ASSPAR
25256 @ 210875:                  CALL  
25257 @ 210876:                  ASSPAR
25258 @ 210877:                  PUSH   TEMPX2
25259 @ 210880:                  PUSHI  #0x00000010
25260 @ 210885:                  ASSPAR
25261 @ 210886:                  PUSHI  #0x00000005
25262 @ 210891:                  ASSPAR
25263 @ 210892:                  CALL  
25264 @ 210893:                  ASSPAR
25265 @ 210894:                  CALL  

  4478              plant(subb,one,breg)
25266 @ 210895:                  LINE   4478 "regression-compile-tmp/imp22g-77.imp"
25267 @ 210935:                  PUSH   PLANT
25268 @ 210938:                  PUSHI  #0x00000103
25269 @ 210943:                  ASSPAR
25270 @ 210944:                  PUSHI  #0xfffffffe
25271 @ 210949:                  ASSPAR
25272 @ 210950:                  PUSHI  #0x00000005
25273 @ 210955:                  ASSPAR
25274 @ 210956:                  CALL  

  4479              plantlit2(bcc,0,-10)
25275 @ 210957:                  LINE   4479 "regression-compile-tmp/imp22g-77.imp"
25276 @ 210997:                  PUSH   PLANTLIT2
25277 @ 211000:                  PUSHI  #0x00000014
25278 @ 211005:                  ASSPAR
25279 @ 211006:                  PUSHI  #0x00000000
25280 @ 211011:                  ASSPAR
25281 @ 211012:                  PUSHI  #0x0000000a
25282 @ 211017:                  NEGATE
25283 @ 211018:                  ASSPAR
25284 @ 211019:                  CALL  

  4480            %else;  !fixed length structure
25285 @ 211020:                  LINE   4480 "regression-compile-tmp/imp22g-77.imp"
25286 @ 211060:                  GOTO   L_000f
25287 @ 211063:                  LOCATE L_0010

  4481              free = bregb
25288 @ 211066:                  LINE   4481 "regression-compile-tmp/imp22g-77.imp"
25289 @ 211106:                  PUSH   FREE
25290 @ 211109:                  PUSHI  #0x00000010
25291 @ 211114:                  ASSVAL

  4482              push block(r,c_sp-vsp)
25292 @ 211115:                  LINE   4482 "regression-compile-tmp/imp22g-77.imp"
25293 @ 211155:                  PUSH   PUSHBLOCK
25294 @ 211158:                  PUSH   R
25295 @ 211161:                  ASSPAR
25296 @ 211162:                  PUSH   C
25297 @ 211165:                  SELECT 1
25298 @ 211168:                  PUSH   VSP
25299 @ 211171:                  SUB   
25300 @ 211172:                  ASSPAR
25301 @ 211173:                  CALL  

  4483            %finish
25302 @ 211174:                  LINE   4483 "regression-compile-tmp/imp22g-77.imp"
25303 @ 211214:                  LOCATE L_000f

  4484          %finish
25304 @ 211217:                  LINE   4484 "regression-compile-tmp/imp22g-77.imp"
25305 @ 211257:                  LOCATE L_000c

  4485          c_sp = vsp
25306 @ 211260:                  LINE   4485 "regression-compile-tmp/imp22g-77.imp"
25307 @ 211300:                  PUSH   C
25308 @ 211303:                  SELECT 1
25309 @ 211306:                  PUSH   VSP
25310 @ 211309:                  ASSVAL

  4486        %finish
25311 @ 211310:                  LINE   4486 "regression-compile-tmp/imp22g-77.imp"
25312 @ 211350:                  LOCATE L_000a

  4487        lastvsp = vsp
25313 @ 211353:                  LINE   4487 "regression-compile-tmp/imp22g-77.imp"
25314 @ 211393:                  PUSH   LASTVSP
25315 @ 211396:                  PUSH   VSP
25316 @ 211399:                  ASSVAL

  4488      %finish
25317 @ 211400:                  LINE   4488 "regression-compile-tmp/imp22g-77.imp"
25318 @ 211440:                  LOCATE L_0007

  4489    %repeat
25319 @ 211443:                  LINE   4489 "regression-compile-tmp/imp22g-77.imp"
25320 @ 211483:                  REPEAT L_0003
25321 @ 211486:                  LOCATE L_0004

  4490    %if c_sp # 0 %start;  !there are accesses to params
25322 @ 211489:                  LINE   4490 "regression-compile-tmp/imp22g-77.imp"
25323 @ 211529:                  PUSH   C
25324 @ 211532:                  SELECT 1
25325 @ 211535:                  PUSHI  #0x00000000
25326 @ 211540:                  JUMPIF = L_0004

  4491      addimm(lastvsp-c_sp,a7)
25327 @ 211544:                  LINE   4491 "regression-compile-tmp/imp22g-77.imp"
25328 @ 211584:                  PUSH   ADDIMM
25329 @ 211587:                  PUSH   LASTVSP
25330 @ 211590:                  PUSH   C
25331 @ 211593:                  SELECT 1
25332 @ 211596:                  SUB   
25333 @ 211597:                  ASSPAR
25334 @ 211598:                  PUSHI  #0x00000010
25335 @ 211603:                  ASSPAR
25336 @ 211604:                  CALL  

  4492      c_sp = holdsp
25337 @ 211605:                  LINE   4492 "regression-compile-tmp/imp22g-77.imp"
25338 @ 211645:                  PUSH   C
25339 @ 211648:                  SELECT 1
25340 @ 211651:                  PUSH   HOLDSP
25341 @ 211654:                  ASSVAL

  4493    %finish %else c_sp = holdsp-lastvsp;  !reduce
25342 @ 211655:                  LINE   4493 "regression-compile-tmp/imp22g-77.imp"
25343 @ 211695:                  GOTO   L_0003
25344 @ 211698:                  LOCATE L_0004
25345 @ 211701:                  PUSH   C
25346 @ 211704:                  SELECT 1
25347 @ 211707:                  PUSH   HOLDSP
25348 @ 211710:                  PUSH   LASTVSP
25349 @ 211713:                  SUB   
25350 @ 211714:                  ASSVAL
25351 @ 211715:                  LOCATE L_0003

  4494  %end
  4495  
25352 @ 211718:                  LINE   4494 "regression-compile-tmp/imp22g-77.imp"
25353 @ 211758:               END    _lev0id0_EVAL_COMPILEENTRY {lev=3 --> 2}

  4496  do(end):
25354 @ 211759:               LINE   4496 "regression-compile-tmp/imp22g-77.imp"
25355 @ 211799:               PUSHI  #0x00000032
25356 @ 211804:               SLABEL 327

  4497    compile entry(c_status&globbed,c_dpid_type)
25357 @ 211807:               LINE   4497 "regression-compile-tmp/imp22g-77.imp"
25358 @ 211847:               PUSH   COMPILEENTRY
25359 @ 211850:               PUSH   C
25360 @ 211853:               SELECT 6
25361 @ 211856:               PUSHI  #0x00000010
25362 @ 211861:               AND   
25363 @ 211862:               ASSPAR
25364 @ 211863:               PUSH   C
25365 @ 211866:               SELECT 29
25366 @ 211869:               SELECT 2
25367 @ 211872:               ASSPAR
25368 @ 211873:               CALL  

  4498    %return
  4499  
25369 @ 211874:               LINE   4498 "regression-compile-tmp/imp22g-77.imp"
25370 @ 211914:               RETURN

  4500  do(*): intern(8)
25371 @ 211915:               LINE   4500 "regression-compile-tmp/imp22g-77.imp"
25372 @ 211955:               DEFSW  327
25373 @ 211958:               LINE   4500 "regression-compile-tmp/imp22g-77.imp"
25374 @ 211998:               PUSH   INTERN
25375 @ 212001:               PUSHI  #0x00000008
25376 @ 212006:               ASSPAR
25377 @ 212007:               CALL  

  4501  do(0):  !null action
25378 @ 212008:               LINE   4501 "regression-compile-tmp/imp22g-77.imp"
25379 @ 212048:               PUSHI  #0x00000000
25380 @ 212053:               SLABEL 327

  4502  %end;  !eval
  4503  
25381 @ 212056:               LINE   4502 "regression-compile-tmp/imp22g-77.imp"
25382 @ 212096:            END    _lev0id0_EVAL {lev=2 --> 1}

  4504  %routine COMPILE(%integer startp)
25383 @ 212097:            LINE   4504 "regression-compile-tmp/imp22g-77.imp"
25384 @ 212137:            DEF    COMPILE (_lev0id0_COMPILE) p1=V_0145 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
25385 @ 212156:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
25386 @ 212157:                  DEF    STARTP p1=V_0146 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
25387 @ 212175:               FINISH ) {lev=2}

  4505  %integer p
25388 @ 212176:               LINE   4505 "regression-compile-tmp/imp22g-77.imp"
25389 @ 212216:               DEF    P p1=V_0147 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  4506  {?}  show exp(startp) %if control&explist # 0 %and control&list # 0
25390 @ 212229:               LINE   4506 "regression-compile-tmp/imp22g-77.imp"
25391 @ 212269:               PUSH   CONTROL
25392 @ 212272:               PUSHI  #0x00000008
25393 @ 212277:               AND   
25394 @ 212278:               PUSHI  #0x00000000
25395 @ 212283:               JUMPIF = L_0004
25396 @ 212287:               PUSH   CONTROL
25397 @ 212290:               PUSHI  #0x00000001
25398 @ 212295:               AND   
25399 @ 212296:               PUSHI  #0x00000000
25400 @ 212301:               JUMPIF = L_0004
25401 @ 212305:               PUSH   SHOWEXP
25402 @ 212308:               PUSH   STARTP
25403 @ 212311:               ASSPAR
25404 @ 212312:               CALL  
25405 @ 212313:               LOCATE L_0004

  4507    np = np0 %and %return %if faultnum > 0
25406 @ 212316:               LINE   4507 "regression-compile-tmp/imp22g-77.imp"
25407 @ 212356:               PUSH   FAULTNUM
25408 @ 212359:               PUSHI  #0x00000000
25409 @ 212364:               JUMPIF <= L_0004
25410 @ 212368:               PUSH   NP
25411 @ 212371:               PUSH   NP0
25412 @ 212374:               ASSVAL
25413 @ 212375:               RETURN
25414 @ 212376:               LOCATE L_0004

  4508    pendcond = 0
25415 @ 212379:               LINE   4508 "regression-compile-tmp/imp22g-77.imp"
25416 @ 212419:               PUSH   PENDCOND
25417 @ 212422:               PUSHI  #0x00000000
25418 @ 212427:               ASSVAL

  4509    p = startp-1
25419 @ 212428:               LINE   4509 "regression-compile-tmp/imp22g-77.imp"
25420 @ 212468:               PUSH   P
25421 @ 212471:               PUSH   STARTP
25422 @ 212474:               PUSHI  #0x00000001
25423 @ 212479:               SUB   
25424 @ 212480:               ASSVAL

  4510    %cycle
25425 @ 212481:               LINE   4510 "regression-compile-tmp/imp22g-77.imp"
25426 @ 212521:               LOCATE L_0003

  4511      free = c_free
25427 @ 212524:               LINE   4511 "regression-compile-tmp/imp22g-77.imp"
25428 @ 212564:               PUSH   FREE
25429 @ 212567:               PUSH   C
25430 @ 212570:               SELECT 5
25431 @ 212573:               ASSVAL

  4512      p = p+1
25432 @ 212574:               LINE   4512 "regression-compile-tmp/imp22g-77.imp"
25433 @ 212614:               PUSH   P
25434 @ 212617:               PUSH   P
25435 @ 212620:               PUSHI  #0x00000001
25436 @ 212625:               ADD   
25437 @ 212626:               ASSVAL

  4513      %if p >= np %start
25438 @ 212627:               LINE   4513 "regression-compile-tmp/imp22g-77.imp"
25439 @ 212667:               PUSH   P
25440 @ 212670:               PUSH   NP
25441 @ 212673:               JUMPIF < L_0007

  4514        %if startp = np0 %start
25442 @ 212677:               LINE   4514 "regression-compile-tmp/imp22g-77.imp"
25443 @ 212717:               PUSH   STARTP
25444 @ 212720:               PUSH   NP0
25445 @ 212723:               JUMPIF # L_000a

  4515          np = np0
25446 @ 212727:               LINE   4515 "regression-compile-tmp/imp22g-77.imp"
25447 @ 212767:               PUSH   NP
25448 @ 212770:               PUSH   NP0
25449 @ 212773:               ASSVAL

  4516          flush %if pendcond > 0
25450 @ 212774:               LINE   4516 "regression-compile-tmp/imp22g-77.imp"
25451 @ 212814:               PUSH   PENDCOND
25452 @ 212817:               PUSHI  #0x00000000
25453 @ 212822:               JUMPIF <= L_000d
25454 @ 212826:               PUSH   FLUSH
25455 @ 212829:               CALL  
25456 @ 212830:               LOCATE L_000d

  4517          %return
25457 @ 212833:               LINE   4517 "regression-compile-tmp/imp22g-77.imp"
25458 @ 212873:               RETURN

  4518        %finish
25459 @ 212874:               LINE   4518 "regression-compile-tmp/imp22g-77.imp"
25460 @ 212914:               LOCATE L_000a

  4519        np = startp;  startp = np0;  p = startp
25461 @ 212917:               LINE   4519 "regression-compile-tmp/imp22g-77.imp"
25462 @ 212957:               PUSH   NP
25463 @ 212960:               PUSH   STARTP
25464 @ 212963:               ASSVAL
25465 @ 212964:               LINE   4519 "regression-compile-tmp/imp22g-77.imp"
25466 @ 213004:               PUSH   STARTP
25467 @ 213007:               PUSH   NP0
25468 @ 213010:               ASSVAL
25469 @ 213011:               LINE   4519 "regression-compile-tmp/imp22g-77.imp"
25470 @ 213051:               PUSH   P
25471 @ 213054:               PUSH   STARTP
25472 @ 213057:               ASSVAL

  4520      %finish
25473 @ 213058:               LINE   4520 "regression-compile-tmp/imp22g-77.imp"
25474 @ 213098:               LOCATE L_0007

  4521      %if c_reg_line # line %and control&(tracebit!diagbit!linebit) # 0 %start
25475 @ 213101:               LINE   4521 "regression-compile-tmp/imp22g-77.imp"
25476 @ 213141:               PUSH   C
25477 @ 213144:               SELECT 30
25478 @ 213147:               SELECT 3
25479 @ 213150:               PUSH   LINE
25480 @ 213153:               JUMPIF = L_0007
25481 @ 213157:               PUSH   CONTROL
25482 @ 213160:               PUSHI  #0x00200000
25483 @ 213165:               PUSHI  #0x00400000
25484 @ 213170:               OR    
25485 @ 213171:               PUSHI  #0x00800000
25486 @ 213176:               OR    
25487 @ 213177:               AND   
25488 @ 213178:               PUSHI  #0x00000000
25489 @ 213183:               JUMPIF = L_0007

  4522        flush %if pendcond > 0
25490 @ 213187:               LINE   4522 "regression-compile-tmp/imp22g-77.imp"
25491 @ 213227:               PUSH   PENDCOND
25492 @ 213230:               PUSHI  #0x00000000
25493 @ 213235:               JUMPIF <= L_000a
25494 @ 213239:               PUSH   FLUSH
25495 @ 213242:               CALL  
25496 @ 213243:               LOCATE L_000a

  4523        pendcond = -1
25497 @ 213246:               LINE   4523 "regression-compile-tmp/imp22g-77.imp"
25498 @ 213286:               PUSH   PENDCOND
25499 @ 213289:               PUSHI  #0x00000001
25500 @ 213294:               NEGATE
25501 @ 213295:               ASSVAL

  4524      %finish
25502 @ 213296:               LINE   4524 "regression-compile-tmp/imp22g-77.imp"
25503 @ 213336:               LOCATE L_0007

  4525      eval(p,inst)
25504 @ 213339:               LINE   4525 "regression-compile-tmp/imp22g-77.imp"
25505 @ 213379:               PUSH   EVAL
25506 @ 213382:               PUSH   P
25507 @ 213385:               ASSPAR
25508 @ 213386:               PUSHI  #0x40000000
25509 @ 213391:               ASSPAR
25510 @ 213392:               CALL  

  4526    %repeat
25511 @ 213393:               LINE   4526 "regression-compile-tmp/imp22g-77.imp"
25512 @ 213433:               REPEAT L_0003

  4527  %end;  !compile
  4528  
25513 @ 213436:               LINE   4527 "regression-compile-tmp/imp22g-77.imp"
25514 @ 213476:            END    _lev0id0_COMPILE {lev=2 --> 1}

  4529  %routine SET FIRST ENTRY
25515 @ 213477:            LINE   4529 "regression-compile-tmp/imp22g-77.imp"
25516 @ 213517:            DEF    SETFIRSTENTRY (_lev0id0_SETFIRSTENTRY) p1=V_0146 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
25517 @ 213542:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
25518 @ 213543:               FINISH ) {lev=2}

  4530  %integer j,k,p
25519 @ 213544:               LINE   4530 "regression-compile-tmp/imp22g-77.imp"
25520 @ 213584:               DEF    J p1=V_0147 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
25521 @ 213597:               DEF    K p1=V_0148 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
25522 @ 213610:               DEF    P p1=V_0149 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  4531  %record(identinfo)%name dp
25523 @ 213623:               LINE   4531 "regression-compile-tmp/imp22g-77.imp"
25524 @ 213663:               DEF    DP p1=V_014a a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  4532    firstpos = dictlim;  firstentry = finalbound
25525 @ 213677:               LINE   4532 "regression-compile-tmp/imp22g-77.imp"
25526 @ 213717:               PUSH   FIRSTPOS
25527 @ 213720:               PUSH   DICTLIM
25528 @ 213723:               ASSVAL
25529 @ 213724:               LINE   4532 "regression-compile-tmp/imp22g-77.imp"
25530 @ 213764:               PUSH   FIRSTENTRY
25531 @ 213767:               PUSH   FINALBOUND
25532 @ 213770:               ASSVAL

  4533    p = 0
25533 @ 213771:               LINE   4533 "regression-compile-tmp/imp22g-77.imp"
25534 @ 213811:               PUSH   P
25535 @ 213814:               PUSHI  #0x00000000
25536 @ 213819:               ASSVAL

  4534    %cycle
25537 @ 213820:               LINE   4534 "regression-compile-tmp/imp22g-77.imp"
25538 @ 213860:               LOCATE L_0003

  4535      p = p+1
25539 @ 213863:               LINE   4535 "regression-compile-tmp/imp22g-77.imp"
25540 @ 213903:               PUSH   P
25541 @ 213906:               PUSH   P
25542 @ 213909:               PUSHI  #0x00000001
25543 @ 213914:               ADD   
25544 @ 213915:               ASSVAL

  4536      %exit %if p >= dlim
25545 @ 213916:               LINE   4536 "regression-compile-tmp/imp22g-77.imp"
25546 @ 213956:               PUSH   P
25547 @ 213959:               PUSH   DLIM
25548 @ 213962:               JUMPIF < L_0007
25549 @ 213966:               GOTO   L_0004
25550 @ 213969:               LOCATE L_0007

  4537      dp == dict(p)
25551 @ 213972:               LINE   4537 "regression-compile-tmp/imp22g-77.imp"
25552 @ 214012:               PUSH   DP
25553 @ 214015:               PUSH   DICT
25554 @ 214018:               PUSH   P
25555 @ 214021:               ACCESS
25556 @ 214022:               ASSREF

  4538      %continue %if dp_mode # procmode
25557 @ 214023:               LINE   4538 "regression-compile-tmp/imp22g-77.imp"
25558 @ 214063:               PUSH   DP
25559 @ 214066:               SELECT 8
25560 @ 214069:               PUSHI  #0x000000fa
25561 @ 214074:               JUMPIF = L_0007
25562 @ 214078:               GOTO   L_0005
25563 @ 214081:               LOCATE L_0007

  4539      %continue %if dp_val >= firstentry
25564 @ 214084:               LINE   4539 "regression-compile-tmp/imp22g-77.imp"
25565 @ 214124:               PUSH   DP
25566 @ 214127:               SELECT 9
25567 @ 214130:               PUSH   FIRSTENTRY
25568 @ 214133:               JUMPIF < L_0007
25569 @ 214137:               GOTO   L_0005
25570 @ 214140:               LOCATE L_0007

  4540      j = dp_val
25571 @ 214143:               LINE   4540 "regression-compile-tmp/imp22g-77.imp"
25572 @ 214183:               PUSH   J
25573 @ 214186:               PUSH   DP
25574 @ 214189:               SELECT 9
25575 @ 214192:               ASSVAL

  4541      %if j <= 0 %start
25576 @ 214193:               LINE   4541 "regression-compile-tmp/imp22g-77.imp"
25577 @ 214233:               PUSH   J
25578 @ 214236:               PUSHI  #0x00000000
25579 @ 214241:               JUMPIF > L_0007

  4542        %continue %if j = 0
25580 @ 214245:               LINE   4542 "regression-compile-tmp/imp22g-77.imp"
25581 @ 214285:               PUSH   J
25582 @ 214288:               PUSHI  #0x00000000
25583 @ 214293:               JUMPIF # L_000a
25584 @ 214297:               GOTO   L_0005
25585 @ 214300:               LOCATE L_000a

  4543        k = -j
25586 @ 214303:               LINE   4543 "regression-compile-tmp/imp22g-77.imp"
25587 @ 214343:               PUSH   K
25588 @ 214346:               PUSH   J
25589 @ 214349:               NEGATE
25590 @ 214350:               ASSVAL

  4544        %cycle
25591 @ 214351:               LINE   4544 "regression-compile-tmp/imp22g-77.imp"
25592 @ 214391:               LOCATE L_0009

  4545          j = k<<1
25593 @ 214394:               LINE   4545 "regression-compile-tmp/imp22g-77.imp"
25594 @ 214434:               PUSH   J
25595 @ 214437:               PUSH   K
25596 @ 214440:               PUSHI  #0x00000001
25597 @ 214445:               LSH   
25598 @ 214446:               ASSVAL

  4546          k = code word(j)&16_FFFF
25599 @ 214447:               LINE   4546 "regression-compile-tmp/imp22g-77.imp"
25600 @ 214487:               PUSH   K
25601 @ 214490:               PUSH   CODEWORD
25602 @ 214493:               PUSH   J
25603 @ 214496:               ASSPAR
25604 @ 214497:               CALL  
25605 @ 214498:               PUSHI  #0x0000ffff
25606 @ 214503:               AND   
25607 @ 214504:               ASSVAL

  4547        %repeat %until k = 0
25608 @ 214505:               LINE   4547 "regression-compile-tmp/imp22g-77.imp"
25609 @ 214545:               PUSH   K
25610 @ 214548:               PUSHI  #0x00000000
25611 @ 214553:               JUMPIF = L_000a
25612 @ 214557:               REPEAT L_0009
25613 @ 214560:               LOCATE L_000a

  4548        %continue %if j >= firstentry
25614 @ 214563:               LINE   4548 "regression-compile-tmp/imp22g-77.imp"
25615 @ 214603:               PUSH   J
25616 @ 214606:               PUSH   FIRSTENTRY
25617 @ 214609:               JUMPIF < L_000a
25618 @ 214613:               GOTO   L_0005
25619 @ 214616:               LOCATE L_000a

  4549      %finish
25620 @ 214619:               LINE   4549 "regression-compile-tmp/imp22g-77.imp"
25621 @ 214659:               LOCATE L_0007

  4550      firstentry = j;  firstpos = p
25622 @ 214662:               LINE   4550 "regression-compile-tmp/imp22g-77.imp"
25623 @ 214702:               PUSH   FIRSTENTRY
25624 @ 214705:               PUSH   J
25625 @ 214708:               ASSVAL
25626 @ 214709:               LINE   4550 "regression-compile-tmp/imp22g-77.imp"
25627 @ 214749:               PUSH   FIRSTPOS
25628 @ 214752:               PUSH   P
25629 @ 214755:               ASSVAL

  4551    %repeat
25630 @ 214756:               LINE   4551 "regression-compile-tmp/imp22g-77.imp"
25631 @ 214796:               LOCATE L_0005
25632 @ 214799:               REPEAT L_0003
25633 @ 214802:               LOCATE L_0004

  4552  %end
  4553  
25634 @ 214805:               LINE   4552 "regression-compile-tmp/imp22g-77.imp"
25635 @ 214845:            END    _lev0id0_SETFIRSTENTRY {lev=2 --> 1}

  4554  %routine DEFINE ENTRY(%integer chain,entry,pid)
25636 @ 214846:            LINE   4554 "regression-compile-tmp/imp22g-77.imp"
25637 @ 214886:            DEF    DEFINEENTRY (_lev0id0_DEFINEENTRY) p1=V_0147 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
25638 @ 214909:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
25639 @ 214910:                  DEF    CHAIN p1=V_0148 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
25640 @ 214927:                  DEF    ENTRY p1=V_0149 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
25641 @ 214944:                  DEF    PID p1=V_014a a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
25642 @ 214959:               FINISH ) {lev=2}

  4555  %integer j
25643 @ 214960:               LINE   4555 "regression-compile-tmp/imp22g-77.imp"
25644 @ 215000:               DEF    J p1=V_014b a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  4556    %cycle
25645 @ 215013:               LINE   4556 "regression-compile-tmp/imp22g-77.imp"
25646 @ 215053:               LOCATE L_0003

  4557      chain = chain<<1
25647 @ 215056:               LINE   4557 "regression-compile-tmp/imp22g-77.imp"
25648 @ 215096:               PUSH   CHAIN
25649 @ 215099:               PUSH   CHAIN
25650 @ 215102:               PUSHI  #0x00000001
25651 @ 215107:               LSH   
25652 @ 215108:               ASSVAL

  4558      report(reacherr,pid,0) %unless is short(entry-chain)=TRUE
25653 @ 215109:               LINE   4558 "regression-compile-tmp/imp22g-77.imp"
25654 @ 215149:               PUSH   ISSHORT
25655 @ 215152:               PUSH   ENTRY
25656 @ 215155:               PUSH   CHAIN
25657 @ 215158:               SUB   
25658 @ 215159:               ASSPAR
25659 @ 215160:               CALL  
25660 @ 215161:               PUSHI  #0x00000001
25661 @ 215166:               JUMPIF = L_0007
25662 @ 215170:               PUSH   REPORT
25663 @ 215173:               PUSHI  #0x00000004
25664 @ 215178:               ASSPAR
25665 @ 215179:               PUSH   PID
25666 @ 215182:               ASSPAR
25667 @ 215183:               PUSHI  #0x00000000
25668 @ 215188:               ASSPAR
25669 @ 215189:               CALL  
25670 @ 215190:               LOCATE L_0007

  4559      j = code word(chain)&16_FFFF
  4560  !$IF VAX
  4561  {  final(chain) <- (entry-chain)>>8;  final(chain+1) <- entry-chain
  4562  !$IF APM
25671 @ 215193:               LINE   4559 "regression-compile-tmp/imp22g-77.imp"
25672 @ 215233:               PUSH   J
25673 @ 215236:               PUSH   CODEWORD
25674 @ 215239:               PUSH   CHAIN
25675 @ 215242:               ASSPAR
25676 @ 215243:               CALL  
25677 @ 215244:               PUSHI  #0x0000ffff
25678 @ 215249:               AND   
25679 @ 215250:               ASSVAL

  4563    shortinteger(final0+chain) <- entry-chain
  4564  !$FINISH
25680 @ 215251:               LINE   4563 "regression-compile-tmp/imp22g-77.imp"
25681 @ 215291:               PUSH   SHORTINTEGER
25682 @ 215294:               PUSH   FINAL0
25683 @ 215297:               PUSH   CHAIN
25684 @ 215300:               ADD   
25685 @ 215301:               ASSPAR
25686 @ 215302:               CALL  
25687 @ 215303:               PUSH   ENTRY
25688 @ 215306:               PUSH   CHAIN
25689 @ 215309:               SUB   
25690 @ 215310:               JAM   

  4565      chain = j
25691 @ 215311:               LINE   4565 "regression-compile-tmp/imp22g-77.imp"
25692 @ 215351:               PUSH   CHAIN
25693 @ 215354:               PUSH   J
25694 @ 215357:               ASSVAL

  4566    %repeat %until chain = 0
25695 @ 215358:               LINE   4566 "regression-compile-tmp/imp22g-77.imp"
25696 @ 215398:               PUSH   CHAIN
25697 @ 215401:               PUSHI  #0x00000000
25698 @ 215406:               JUMPIF = L_0004
25699 @ 215410:               REPEAT L_0003
25700 @ 215413:               LOCATE L_0004

  4567  %end
  4568  
25701 @ 215416:               LINE   4567 "regression-compile-tmp/imp22g-77.imp"
25702 @ 215456:            END    _lev0id0_DEFINEENTRY {lev=2 --> 1}

  4569  %routine CHECK REACH(%integer blocksize)
  4570  !Add stepping stones if necessary
25703 @ 215457:            LINE   4569 "regression-compile-tmp/imp22g-77.imp"
25704 @ 215497:            DEF    CHECKREACH (_lev0id0_CHECKREACH) p1=V_0148 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
25705 @ 215519:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
25706 @ 215520:                  DEF    BLOCKSIZE p1=V_0149 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
25707 @ 215541:               FINISH ) {lev=2}

  4571  %integer i
25708 @ 215542:               LINE   4571 "regression-compile-tmp/imp22g-77.imp"
25709 @ 215582:               DEF    I p1=V_014a a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  4572    %cycle
25710 @ 215595:               LINE   4572 "regression-compile-tmp/imp22g-77.imp"
25711 @ 215635:               LOCATE L_0003

  4573      i = blocksize+cad
25712 @ 215638:               LINE   4573 "regression-compile-tmp/imp22g-77.imp"
25713 @ 215678:               PUSH   I
25714 @ 215681:               PUSH   BLOCKSIZE
25715 @ 215684:               PUSH   CAD
25716 @ 215687:               ADD   
25717 @ 215688:               ASSVAL

  4574      croak("Program too big") %if i >= ownbase
25718 @ 215689:               LINE   4574 "regression-compile-tmp/imp22g-77.imp"
25719 @ 215729:               PUSH   I
25720 @ 215732:               PUSH   OWNBASE
25721 @ 215735:               JUMPIF < L_0007
25722 @ 215739:               PUSH   CROAK
25723 @ 215742:               PUSHS  "Program too big"
25724 @ 215759:               ASSPAR
25725 @ 215760:               CALL  
25726 @ 215761:               LOCATE L_0007

  4575      %return %if i-firstentry < 31000;  !enough leeway
25727 @ 215764:               LINE   4575 "regression-compile-tmp/imp22g-77.imp"
25728 @ 215804:               PUSH   I
25729 @ 215807:               PUSH   FIRSTENTRY
25730 @ 215810:               SUB   
25731 @ 215811:               PUSHI  #0x00007918
25732 @ 215816:               JUMPIF >= L_0007
25733 @ 215820:               RETURN
25734 @ 215821:               LOCATE L_0007

  4576      %return %if blocksize >= 32000 %or cad-firstentry >= 32760;  !hopeless
25735 @ 215824:               LINE   4576 "regression-compile-tmp/imp22g-77.imp"
25736 @ 215864:               PUSH   BLOCKSIZE
25737 @ 215867:               PUSHI  #0x00007d00
25738 @ 215872:               JUMPIF >= L_0008
25739 @ 215876:               PUSH   CAD
25740 @ 215879:               PUSH   FIRSTENTRY
25741 @ 215882:               SUB   
25742 @ 215883:               PUSHI  #0x00007ff8
25743 @ 215888:               JUMPIF < L_0007
25744 @ 215892:               LOCATE L_0008
25745 @ 215895:               RETURN
25746 @ 215896:               LOCATE L_0007

  4577      %if dict(firstpos)_val < 0 %start
25747 @ 215899:               LINE   4577 "regression-compile-tmp/imp22g-77.imp"
25748 @ 215939:               PUSH   DICT
25749 @ 215942:               PUSH   FIRSTPOS
25750 @ 215945:               ACCESS
25751 @ 215946:               SELECT 9
25752 @ 215949:               PUSHI  #0x00000000
25753 @ 215954:               JUMPIF >= L_0007

  4578        define entry(-dict(firstpos)_val,cad,firstpos)
25754 @ 215958:               LINE   4578 "regression-compile-tmp/imp22g-77.imp"
25755 @ 215998:               PUSH   DEFINEENTRY
25756 @ 216001:               PUSH   DICT
25757 @ 216004:               PUSH   FIRSTPOS
25758 @ 216007:               ACCESS
25759 @ 216008:               SELECT 9
25760 @ 216011:               NEGATE
25761 @ 216012:               ASSPAR
25762 @ 216013:               PUSH   CAD
25763 @ 216016:               ASSPAR
25764 @ 216017:               PUSH   FIRSTPOS
25765 @ 216020:               ASSPAR
25766 @ 216021:               CALL  

  4579        set code word(16_6000);  !BRA
25767 @ 216022:               LINE   4579 "regression-compile-tmp/imp22g-77.imp"
25768 @ 216062:               PUSH   SETCODEWORD
25769 @ 216065:               PUSHI  #0x00006000
25770 @ 216070:               ASSPAR
25771 @ 216071:               CALL  

  4580        dict(firstpos)_val = -cad>>1
25772 @ 216072:               LINE   4580 "regression-compile-tmp/imp22g-77.imp"
25773 @ 216112:               PUSH   DICT
25774 @ 216115:               PUSH   FIRSTPOS
25775 @ 216118:               ACCESS
25776 @ 216119:               SELECT 9
25777 @ 216122:               PUSH   CAD
25778 @ 216125:               PUSHI  #0x00000001
25779 @ 216130:               RSH   
25780 @ 216131:               NEGATE
25781 @ 216132:               ASSVAL

  4581        set code word(0)
25782 @ 216133:               LINE   4581 "regression-compile-tmp/imp22g-77.imp"
25783 @ 216173:               PUSH   SETCODEWORD
25784 @ 216176:               PUSHI  #0x00000000
25785 @ 216181:               ASSPAR
25786 @ 216182:               CALL  

  4582      %else
25787 @ 216183:               LINE   4582 "regression-compile-tmp/imp22g-77.imp"
25788 @ 216223:               GOTO   L_0006
25789 @ 216226:               LOCATE L_0007

  4583        dict(firstpos)_val = cad
25790 @ 216229:               LINE   4583 "regression-compile-tmp/imp22g-77.imp"
25791 @ 216269:               PUSH   DICT
25792 @ 216272:               PUSH   FIRSTPOS
25793 @ 216275:               ACCESS
25794 @ 216276:               SELECT 9
25795 @ 216279:               PUSH   CAD
25796 @ 216282:               ASSVAL

  4584        set code word(16_6000);  !BRA
25797 @ 216283:               LINE   4584 "regression-compile-tmp/imp22g-77.imp"
25798 @ 216323:               PUSH   SETCODEWORD
25799 @ 216326:               PUSHI  #0x00006000
25800 @ 216331:               ASSPAR
25801 @ 216332:               CALL  

  4585        set code word(firstentry-cad)
25802 @ 216333:               LINE   4585 "regression-compile-tmp/imp22g-77.imp"
25803 @ 216373:               PUSH   SETCODEWORD
25804 @ 216376:               PUSH   FIRSTENTRY
25805 @ 216379:               PUSH   CAD
25806 @ 216382:               SUB   
25807 @ 216383:               ASSPAR
25808 @ 216384:               CALL  

  4586      %finish
25809 @ 216385:               LINE   4586 "regression-compile-tmp/imp22g-77.imp"
25810 @ 216425:               LOCATE L_0006

  4587      steps = steps+2
25811 @ 216428:               LINE   4587 "regression-compile-tmp/imp22g-77.imp"
25812 @ 216468:               PUSH   STEPS
25813 @ 216471:               PUSH   STEPS
25814 @ 216474:               PUSHI  #0x00000002
25815 @ 216479:               ADD   
25816 @ 216480:               ASSVAL

  4588      set first entry
25817 @ 216481:               LINE   4588 "regression-compile-tmp/imp22g-77.imp"
25818 @ 216521:               PUSH   SETFIRSTENTRY
25819 @ 216524:               CALL  

  4589    %repeat
25820 @ 216525:               LINE   4589 "regression-compile-tmp/imp22g-77.imp"
25821 @ 216565:               REPEAT L_0003

  4590  %end
  4591  
25822 @ 216568:               LINE   4590 "regression-compile-tmp/imp22g-77.imp"
25823 @ 216608:            END    _lev0id0_CHECKREACH {lev=2 --> 1}

  4592  %routine PUT WORD(%integer v)
25824 @ 216609:            LINE   4592 "regression-compile-tmp/imp22g-77.imp"
25825 @ 216649:            DEF    PUTWORD (_lev0id0_PUTWORD) p1=V_0149 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
25826 @ 216668:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
25827 @ 216669:                  DEF    V p1=V_014a a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
25828 @ 216682:               FINISH ) {lev=2}

  4593      printsymbol(v>>8&255);  printsymbol(v&255)
25829 @ 216683:               LINE   4593 "regression-compile-tmp/imp22g-77.imp"
25830 @ 216723:               PUSH   PRINTSYMBOL
25831 @ 216726:               PUSH   V
25832 @ 216729:               PUSHI  #0x00000008
25833 @ 216734:               RSH   
25834 @ 216735:               PUSHI  #0x000000ff
25835 @ 216740:               AND   
25836 @ 216741:               ASSPAR
25837 @ 216742:               CALL  
25838 @ 216743:               LINE   4593 "regression-compile-tmp/imp22g-77.imp"
25839 @ 216783:               PUSH   PRINTSYMBOL
25840 @ 216786:               PUSH   V
25841 @ 216789:               PUSHI  #0x000000ff
25842 @ 216794:               AND   
25843 @ 216795:               ASSPAR
25844 @ 216796:               CALL  

  4594  %end
  4595  
25845 @ 216797:               LINE   4594 "regression-compile-tmp/imp22g-77.imp"
25846 @ 216837:            END    _lev0id0_PUTWORD {lev=2 --> 1}

  4596  %routine DO EXTERNALS(%integer chain,specs)
25847 @ 216838:            LINE   4596 "regression-compile-tmp/imp22g-77.imp"
25848 @ 216878:            DEF    DOEXTERNALS (_lev0id0_DOEXTERNALS) p1=V_014a 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
25849 @ 216901:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
25850 @ 216902:                  DEF    CHAIN p1=V_014b a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
25851 @ 216919:                  DEF    SPECS p1=V_014c a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
25852 @ 216936:               FINISH ) {lev=2}

  4597  %integer k,a,b
25853 @ 216937:               LINE   4597 "regression-compile-tmp/imp22g-77.imp"
25854 @ 216977:               DEF    K p1=V_014d a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
25855 @ 216990:               DEF    A p1=V_014e a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
25856 @ 217003:               DEF    B p1=V_014f a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  4598  %record(identinfo)%name dp,tp
  4599  
25857 @ 217016:               LINE   4598 "regression-compile-tmp/imp22g-77.imp"
25858 @ 217056:               DEF    DP p1=V_0150 a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
25859 @ 217070:               DEF    TP p1=V_0151 a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  4600    byteinteger(charlim) = 0;  ![see test for %alias]
25860 @ 217084:               LINE   4600 "regression-compile-tmp/imp22g-77.imp"
25861 @ 217124:               PUSH   BYTEINTEGER
25862 @ 217127:               PUSH   CHARLIM
25863 @ 217130:               ASSPAR
25864 @ 217131:               CALL  
25865 @ 217132:               PUSHI  #0x00000000
25866 @ 217137:               ASSVAL

  4601    value = 2
25867 @ 217138:               LINE   4601 "regression-compile-tmp/imp22g-77.imp"
25868 @ 217178:               PUSH   VALUE
25869 @ 217181:               PUSHI  #0x00000002
25870 @ 217186:               ASSVAL

  4602    %cycle
25871 @ 217187:               LINE   4602 "regression-compile-tmp/imp22g-77.imp"
25872 @ 217227:               LOCATE L_0003

  4603      dp == dict(chain)
25873 @ 217230:               LINE   4603 "regression-compile-tmp/imp22g-77.imp"
25874 @ 217270:               PUSH   DP
25875 @ 217273:               PUSH   DICT
25876 @ 217276:               PUSH   CHAIN
25877 @ 217279:               ACCESS
25878 @ 217280:               ASSREF

  4604      a = dp_text+char0;  b = byteinteger(a)
25879 @ 217281:               LINE   4604 "regression-compile-tmp/imp22g-77.imp"
25880 @ 217321:               PUSH   A
25881 @ 217324:               PUSH   DP
25882 @ 217327:               SELECT 11
25883 @ 217330:               PUSH   CHAR0
25884 @ 217333:               ADD   
25885 @ 217334:               ASSVAL
25886 @ 217335:               LINE   4604 "regression-compile-tmp/imp22g-77.imp"
25887 @ 217375:               PUSH   B
25888 @ 217378:               PUSH   BYTEINTEGER
25889 @ 217381:               PUSH   A
25890 @ 217384:               ASSPAR
25891 @ 217385:               CALL  
25892 @ 217386:               ASSVAL

  4605      %if byteinteger(a+b+1)&128 # 0 %start;  !aliased
25893 @ 217387:               LINE   4605 "regression-compile-tmp/imp22g-77.imp"
25894 @ 217427:               PUSH   BYTEINTEGER
25895 @ 217430:               PUSH   A
25896 @ 217433:               PUSH   B
25897 @ 217436:               ADD   
25898 @ 217437:               PUSHI  #0x00000001
25899 @ 217442:               ADD   
25900 @ 217443:               ASSPAR
25901 @ 217444:               CALL  
25902 @ 217445:               PUSHI  #0x00000080
25903 @ 217450:               AND   
25904 @ 217451:               PUSHI  #0x00000000
25905 @ 217456:               JUMPIF = L_0007

  4606        a = a+b+1;  b = byteinteger(a)-128
25906 @ 217460:               LINE   4606 "regression-compile-tmp/imp22g-77.imp"
25907 @ 217500:               PUSH   A
25908 @ 217503:               PUSH   A
25909 @ 217506:               PUSH   B
25910 @ 217509:               ADD   
25911 @ 217510:               PUSHI  #0x00000001
25912 @ 217515:               ADD   
25913 @ 217516:               ASSVAL
25914 @ 217517:               LINE   4606 "regression-compile-tmp/imp22g-77.imp"
25915 @ 217557:               PUSH   B
25916 @ 217560:               PUSH   BYTEINTEGER
25917 @ 217563:               PUSH   A
25918 @ 217566:               ASSPAR
25919 @ 217567:               CALL  
25920 @ 217568:               PUSHI  #0x00000080
25921 @ 217573:               SUB   
25922 @ 217574:               ASSVAL

  4607      %finish
25923 @ 217575:               LINE   4607 "regression-compile-tmp/imp22g-77.imp"
25924 @ 217615:               LOCATE L_0007

  4608      value = value+(b+14)&(\1)
25925 @ 217618:               LINE   4608 "regression-compile-tmp/imp22g-77.imp"
25926 @ 217658:               PUSH   VALUE
25927 @ 217661:               PUSH   VALUE
25928 @ 217664:               PUSH   B
25929 @ 217667:               PUSHI  #0x0000000e
25930 @ 217672:               ADD   
25931 @ 217673:               PUSHI  #0x00000001
25932 @ 217678:               NOT   
25933 @ 217679:               AND   
25934 @ 217680:               ADD   
25935 @ 217681:               ASSVAL

  4609      %if specs >= 0  %start;  !for real
25936 @ 217682:               LINE   4609 "regression-compile-tmp/imp22g-77.imp"
25937 @ 217722:               PUSH   SPECS
25938 @ 217725:               PUSHI  #0x00000000
25939 @ 217730:               JUMPIF < L_0007

  4610        put word(dp_flags&(ext+proc)!sign16)
25940 @ 217734:               LINE   4610 "regression-compile-tmp/imp22g-77.imp"
25941 @ 217774:               PUSH   PUTWORD
25942 @ 217777:               PUSH   DP
25943 @ 217780:               SELECT 1
25944 @ 217783:               PUSHI  #0x00004000
25945 @ 217788:               PUSHI  #0x00003000
25946 @ 217793:               ADD   
25947 @ 217794:               AND   
25948 @ 217795:               PUSHI  #0xffff8000
25949 @ 217800:               OR    
25950 @ 217801:               ASSPAR
25951 @ 217802:               CALL  

  4611        put word(dp_mode)
25952 @ 217803:               LINE   4611 "regression-compile-tmp/imp22g-77.imp"
25953 @ 217843:               PUSH   PUTWORD
25954 @ 217846:               PUSH   DP
25955 @ 217849:               SELECT 8
25956 @ 217852:               ASSPAR
25957 @ 217853:               CALL  

  4612        k = 0
25958 @ 217854:               LINE   4612 "regression-compile-tmp/imp22g-77.imp"
25959 @ 217894:               PUSH   K
25960 @ 217897:               PUSHI  #0x00000000
25961 @ 217902:               ASSVAL

  4613        %if dp_flags&proc # 0 %start
  4614         !create type word
25962 @ 217903:               LINE   4613 "regression-compile-tmp/imp22g-77.imp"
25963 @ 217943:               PUSH   DP
25964 @ 217946:               SELECT 1
25965 @ 217949:               PUSHI  #0x00003000
25966 @ 217954:               AND   
25967 @ 217955:               PUSHI  #0x00000000
25968 @ 217960:               JUMPIF = L_000a

  4615          tp == dict(dp_type)
25969 @ 217964:               LINE   4615 "regression-compile-tmp/imp22g-77.imp"
25970 @ 218004:               PUSH   TP
25971 @ 218007:               PUSH   DICT
25972 @ 218010:               PUSH   DP
25973 @ 218013:               SELECT 2
25974 @ 218016:               ACCESS
25975 @ 218017:               ASSREF

  4616          k = 4;  k = 6 %if tp_type # 0;  !100:R 11x:F,M
25976 @ 218018:               LINE   4616 "regression-compile-tmp/imp22g-77.imp"
25977 @ 218058:               PUSH   K
25978 @ 218061:               PUSHI  #0x00000004
25979 @ 218066:               ASSVAL
25980 @ 218067:               LINE   4616 "regression-compile-tmp/imp22g-77.imp"
25981 @ 218107:               PUSH   TP
25982 @ 218110:               SELECT 2
25983 @ 218113:               PUSHI  #0x00000000
25984 @ 218118:               JUMPIF = L_000d
25985 @ 218122:               PUSH   K
25986 @ 218125:               PUSHI  #0x00000006
25987 @ 218130:               ASSVAL
25988 @ 218131:               LOCATE L_000d

  4617          %cycle
25989 @ 218134:               LINE   4617 "regression-compile-tmp/imp22g-77.imp"
25990 @ 218174:               LOCATE L_000c

  4618            k = k+1 %if tp_reg&8 # 0;    !0:dreg, 1:areg
25991 @ 218177:               LINE   4618 "regression-compile-tmp/imp22g-77.imp"
25992 @ 218217:               PUSH   TP
25993 @ 218220:               SELECT 7
25994 @ 218223:               PUSHI  #0x00000008
25995 @ 218228:               AND   
25996 @ 218229:               PUSHI  #0x00000000
25997 @ 218234:               JUMPIF = L_0010
25998 @ 218238:               PUSH   K
25999 @ 218241:               PUSH   K
26000 @ 218244:               PUSHI  #0x00000001
26001 @ 218249:               ADD   
26002 @ 218250:               ASSVAL
26003 @ 218251:               LOCATE L_0010

  4619            %exit %if tp_link <= 0
26004 @ 218254:               LINE   4619 "regression-compile-tmp/imp22g-77.imp"
26005 @ 218294:               PUSH   TP
26006 @ 218297:               SELECT 3
26007 @ 218300:               PUSHI  #0x00000000
26008 @ 218305:               JUMPIF > L_0010
26009 @ 218309:               GOTO   L_000d
26010 @ 218312:               LOCATE L_0010

  4620            tp == dict(tp_link);  k = k<<1
26011 @ 218315:               LINE   4620 "regression-compile-tmp/imp22g-77.imp"
26012 @ 218355:               PUSH   TP
26013 @ 218358:               PUSH   DICT
26014 @ 218361:               PUSH   TP
26015 @ 218364:               SELECT 3
26016 @ 218367:               ACCESS
26017 @ 218368:               ASSREF
26018 @ 218369:               LINE   4620 "regression-compile-tmp/imp22g-77.imp"
26019 @ 218409:               PUSH   K
26020 @ 218412:               PUSH   K
26021 @ 218415:               PUSHI  #0x00000001
26022 @ 218420:               LSH   
26023 @ 218421:               ASSVAL

  4621          %repeat
  4622          !special code (11) for %routine ...(%string(255) parm)
26024 @ 218422:               LINE   4621 "regression-compile-tmp/imp22g-77.imp"
26025 @ 218462:               REPEAT L_000c
26026 @ 218465:               LOCATE L_000d

  4623          k = k+2 %if k = 9 %and tp_type = stringtype %and tp_flags >= 0
26027 @ 218468:               LINE   4623 "regression-compile-tmp/imp22g-77.imp"
26028 @ 218508:               PUSH   K
26029 @ 218511:               PUSHI  #0x00000009
26030 @ 218516:               JUMPIF # L_000d
26031 @ 218520:               PUSH   TP
26032 @ 218523:               SELECT 2
26033 @ 218526:               PUSHI  #0x00000040
26034 @ 218531:               JUMPIF # L_000d
26035 @ 218535:               PUSH   TP
26036 @ 218538:               SELECT 1
26037 @ 218541:               PUSHI  #0x00000000
26038 @ 218546:               JUMPIF < L_000d
26039 @ 218550:               PUSH   K
26040 @ 218553:               PUSH   K
26041 @ 218556:               PUSHI  #0x00000002
26042 @ 218561:               ADD   
26043 @ 218562:               ASSVAL
26044 @ 218563:               LOCATE L_000d

  4624        %finish
26045 @ 218566:               LINE   4624 "regression-compile-tmp/imp22g-77.imp"
26046 @ 218606:               LOCATE L_000a

  4625        put word(k>>16);  put word(k)
26047 @ 218609:               LINE   4625 "regression-compile-tmp/imp22g-77.imp"
26048 @ 218649:               PUSH   PUTWORD
26049 @ 218652:               PUSH   K
26050 @ 218655:               PUSHI  #0x00000010
26051 @ 218660:               RSH   
26052 @ 218661:               ASSPAR
26053 @ 218662:               CALL  
26054 @ 218663:               LINE   4625 "regression-compile-tmp/imp22g-77.imp"
26055 @ 218703:               PUSH   PUTWORD
26056 @ 218706:               PUSH   K
26057 @ 218709:               ASSPAR
26058 @ 218710:               CALL  

  4626        put word(dp_val>>16);  put word(dp_val)
26059 @ 218711:               LINE   4626 "regression-compile-tmp/imp22g-77.imp"
26060 @ 218751:               PUSH   PUTWORD
26061 @ 218754:               PUSH   DP
26062 @ 218757:               SELECT 9
26063 @ 218760:               PUSHI  #0x00000010
26064 @ 218765:               RSH   
26065 @ 218766:               ASSPAR
26066 @ 218767:               CALL  
26067 @ 218768:               LINE   4626 "regression-compile-tmp/imp22g-77.imp"
26068 @ 218808:               PUSH   PUTWORD
26069 @ 218811:               PUSH   DP
26070 @ 218814:               SELECT 9
26071 @ 218817:               ASSPAR
26072 @ 218818:               CALL  

  4627        put word(b<<8+byteinteger(a+1))
26073 @ 218819:               LINE   4627 "regression-compile-tmp/imp22g-77.imp"
26074 @ 218859:               PUSH   PUTWORD
26075 @ 218862:               PUSH   B
26076 @ 218865:               PUSHI  #0x00000008
26077 @ 218870:               LSH   
26078 @ 218871:               PUSH   BYTEINTEGER
26079 @ 218874:               PUSH   A
26080 @ 218877:               PUSHI  #0x00000001
26081 @ 218882:               ADD   
26082 @ 218883:               ASSPAR
26083 @ 218884:               CALL  
26084 @ 218885:               ADD   
26085 @ 218886:               ASSPAR
26086 @ 218887:               CALL  

  4628        %cycle
26087 @ 218888:               LINE   4628 "regression-compile-tmp/imp22g-77.imp"
26088 @ 218928:               LOCATE L_0009

  4629          a = a+2;  b = b-2
26089 @ 218931:               LINE   4629 "regression-compile-tmp/imp22g-77.imp"
26090 @ 218971:               PUSH   A
26091 @ 218974:               PUSH   A
26092 @ 218977:               PUSHI  #0x00000002
26093 @ 218982:               ADD   
26094 @ 218983:               ASSVAL
26095 @ 218984:               LINE   4629 "regression-compile-tmp/imp22g-77.imp"
26096 @ 219024:               PUSH   B
26097 @ 219027:               PUSH   B
26098 @ 219030:               PUSHI  #0x00000002
26099 @ 219035:               SUB   
26100 @ 219036:               ASSVAL

  4630          %exit %if b < 0
26101 @ 219037:               LINE   4630 "regression-compile-tmp/imp22g-77.imp"
26102 @ 219077:               PUSH   B
26103 @ 219080:               PUSHI  #0x00000000
26104 @ 219085:               JUMPIF >= L_000d
26105 @ 219089:               GOTO   L_000a
26106 @ 219092:               LOCATE L_000d

  4631          k = byteinteger(a)<<8
26107 @ 219095:               LINE   4631 "regression-compile-tmp/imp22g-77.imp"
26108 @ 219135:               PUSH   K
26109 @ 219138:               PUSH   BYTEINTEGER
26110 @ 219141:               PUSH   A
26111 @ 219144:               ASSPAR
26112 @ 219145:               CALL  
26113 @ 219146:               PUSHI  #0x00000008
26114 @ 219151:               LSH   
26115 @ 219152:               ASSVAL

  4632          k = k+byteinteger(a+1) %if b > 0
26116 @ 219153:               LINE   4632 "regression-compile-tmp/imp22g-77.imp"
26117 @ 219193:               PUSH   B
26118 @ 219196:               PUSHI  #0x00000000
26119 @ 219201:               JUMPIF <= L_000d
26120 @ 219205:               PUSH   K
26121 @ 219208:               PUSH   K
26122 @ 219211:               PUSH   BYTEINTEGER
26123 @ 219214:               PUSH   A
26124 @ 219217:               PUSHI  #0x00000001
26125 @ 219222:               ADD   
26126 @ 219223:               ASSPAR
26127 @ 219224:               CALL  
26128 @ 219225:               ADD   
26129 @ 219226:               ASSVAL
26130 @ 219227:               LOCATE L_000d

  4633          put word(k)
26131 @ 219230:               LINE   4633 "regression-compile-tmp/imp22g-77.imp"
26132 @ 219270:               PUSH   PUTWORD
26133 @ 219273:               PUSH   K
26134 @ 219276:               ASSPAR
26135 @ 219277:               CALL  

  4634        %repeat
26136 @ 219278:               LINE   4634 "regression-compile-tmp/imp22g-77.imp"
26137 @ 219318:               REPEAT L_0009
26138 @ 219321:               LOCATE L_000a

  4635      %finish
26139 @ 219324:               LINE   4635 "regression-compile-tmp/imp22g-77.imp"
26140 @ 219364:               LOCATE L_0007

  4636      chain = dp_link
26141 @ 219367:               LINE   4636 "regression-compile-tmp/imp22g-77.imp"
26142 @ 219407:               PUSH   CHAIN
26143 @ 219410:               PUSH   DP
26144 @ 219413:               SELECT 3
26145 @ 219416:               ASSVAL

  4637    %repeat %until chain = 0
26146 @ 219417:               LINE   4637 "regression-compile-tmp/imp22g-77.imp"
26147 @ 219457:               PUSH   CHAIN
26148 @ 219460:               PUSHI  #0x00000000
26149 @ 219465:               JUMPIF = L_0004
26150 @ 219469:               REPEAT L_0003
26151 @ 219472:               LOCATE L_0004

  4638    %if specs >= 0 %start
26152 @ 219475:               LINE   4638 "regression-compile-tmp/imp22g-77.imp"
26153 @ 219515:               PUSH   SPECS
26154 @ 219518:               PUSHI  #0x00000000
26155 @ 219523:               JUMPIF < L_0004

  4639      put word(0)
26156 @ 219527:               LINE   4639 "regression-compile-tmp/imp22g-77.imp"
26157 @ 219567:               PUSH   PUTWORD
26158 @ 219570:               PUSHI  #0x00000000
26159 @ 219575:               ASSPAR
26160 @ 219576:               CALL  

  4640      put word(0) %if value&3 # 0
26161 @ 219577:               LINE   4640 "regression-compile-tmp/imp22g-77.imp"
26162 @ 219617:               PUSH   VALUE
26163 @ 219620:               PUSHI  #0x00000003
26164 @ 219625:               AND   
26165 @ 219626:               PUSHI  #0x00000000
26166 @ 219631:               JUMPIF = L_0007
26167 @ 219635:               PUSH   PUTWORD
26168 @ 219638:               PUSHI  #0x00000000
26169 @ 219643:               ASSPAR
26170 @ 219644:               CALL  
26171 @ 219645:               LOCATE L_0007

  4641    %finish
26172 @ 219648:               LINE   4641 "regression-compile-tmp/imp22g-77.imp"
26173 @ 219688:               LOCATE L_0004

  4642    value = (value+3)&(\3)
26174 @ 219691:               LINE   4642 "regression-compile-tmp/imp22g-77.imp"
26175 @ 219731:               PUSH   VALUE
26176 @ 219734:               PUSH   VALUE
26177 @ 219737:               PUSHI  #0x00000003
26178 @ 219742:               ADD   
26179 @ 219743:               PUSHI  #0x00000003
26180 @ 219748:               NOT   
26181 @ 219749:               AND   
26182 @ 219750:               ASSVAL

  4643  %end
  4644  !
26183 @ 219751:               LINE   4643 "regression-compile-tmp/imp22g-77.imp"
26184 @ 219791:            END    _lev0id0_DOEXTERNALS {lev=2 --> 1}

  4645  %routine PUTACT(%integer act,x,y)
26185 @ 219792:            LINE   4645 "regression-compile-tmp/imp22g-77.imp"
26186 @ 219832:            DEF    PUTACT (_lev0id0_PUTACT) p1=V_014b 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
26187 @ 219850:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
26188 @ 219851:                  DEF    ACT p1=V_014c a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
26189 @ 219866:                  DEF    X p1=V_014d a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
26190 @ 219879:                  DEF    Y p1=V_014e a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
26191 @ 219892:               FINISH ) {lev=2}

  4646    dict(np)_act = act;  dict(np)_x = x;  dict(np)_y = y
26192 @ 219893:               LINE   4646 "regression-compile-tmp/imp22g-77.imp"
26193 @ 219933:               PUSH   DICT
26194 @ 219936:               PUSH   NP
26195 @ 219939:               ACCESS
26196 @ 219940:               SELECT 6
26197 @ 219943:               PUSH   ACT
26198 @ 219946:               ASSVAL
26199 @ 219947:               LINE   4646 "regression-compile-tmp/imp22g-77.imp"
26200 @ 219987:               PUSH   DICT
26201 @ 219990:               PUSH   NP
26202 @ 219993:               ACCESS
26203 @ 219994:               SELECT 13
26204 @ 219997:               PUSH   X
26205 @ 220000:               ASSVAL
26206 @ 220001:               LINE   4646 "regression-compile-tmp/imp22g-77.imp"
26207 @ 220041:               PUSH   DICT
26208 @ 220044:               PUSH   NP
26209 @ 220047:               ACCESS
26210 @ 220048:               SELECT 14
26211 @ 220051:               PUSH   Y
26212 @ 220054:               ASSVAL

  4647    np = np+1
26213 @ 220055:               LINE   4647 "regression-compile-tmp/imp22g-77.imp"
26214 @ 220095:               PUSH   NP
26215 @ 220098:               PUSH   NP
26216 @ 220101:               PUSHI  #0x00000001
26217 @ 220106:               ADD   
26218 @ 220107:               ASSVAL

  4648  %end
  4649  
26219 @ 220108:               LINE   4648 "regression-compile-tmp/imp22g-77.imp"
26220 @ 220148:            END    _lev0id0_PUTACT {lev=2 --> 1}

  4650  %routine COMPILE END
26221 @ 220149:            LINE   4650 "regression-compile-tmp/imp22g-77.imp"
26222 @ 220189:            DEF    COMPILEEND (_lev0id0_COMPILEEND) p1=V_014c 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
26223 @ 220211:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
26224 @ 220212:               FINISH ) {lev=2}

  4651  %integer i,j,x,y,entry,lim
26225 @ 220213:               LINE   4651 "regression-compile-tmp/imp22g-77.imp"
26226 @ 220253:               DEF    I p1=V_014d a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
26227 @ 220266:               DEF    J p1=V_014e a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
26228 @ 220279:               DEF    X p1=V_014f a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
26229 @ 220292:               DEF    Y p1=V_0150 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
26230 @ 220305:               DEF    ENTRY p1=V_0151 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
26231 @ 220322:               DEF    LIM p1=V_0152 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  4652    %if c_reg_line # line %and control&(diagbit!linebit!tracebit) # 0 %c
  4653    %and level > outerlevel %and c_access # 0 %start
26232 @ 220337:               LINE   4652 "regression-compile-tmp/imp22g-77.imp"
26233 @ 220377:               PUSH   C
26234 @ 220380:               SELECT 30
26235 @ 220383:               SELECT 3
26236 @ 220386:               PUSH   LINE
26237 @ 220389:               JUMPIF = L_0004
26238 @ 220393:               PUSH   CONTROL
26239 @ 220396:               PUSHI  #0x00400000
26240 @ 220401:               PUSHI  #0x00800000
26241 @ 220406:               OR    
26242 @ 220407:               PUSHI  #0x00200000
26243 @ 220412:               OR    
26244 @ 220413:               AND   
26245 @ 220414:               PUSHI  #0x00000000
26246 @ 220419:               JUMPIF = L_0004
26247 @ 220423:               PUSH   LEVEL
26248 @ 220426:               PUSHI  #0x00000000
26249 @ 220431:               JUMPIF <= L_0004
26250 @ 220435:               PUSH   C
26251 @ 220438:               SELECT 16
26252 @ 220441:               PUSHI  #0x00000000
26253 @ 220446:               JUMPIF = L_0004

  4654      pendcond = -1
26254 @ 220450:               LINE   4654 "regression-compile-tmp/imp22g-77.imp"
26255 @ 220490:               PUSH   PENDCOND
26256 @ 220493:               PUSHI  #0x00000001
26257 @ 220498:               NEGATE
26258 @ 220499:               ASSVAL

  4655      flush
26259 @ 220500:               LINE   4655 "regression-compile-tmp/imp22g-77.imp"
26260 @ 220540:               PUSH   FLUSH
26261 @ 220543:               CALL  

  4656    %finish
  4657    !Pop event block
26262 @ 220544:               LINE   4656 "regression-compile-tmp/imp22g-77.imp"
26263 @ 220584:               LOCATE L_0004

  4658    %if c_eventsp # 0 %start
26264 @ 220587:               LINE   4658 "regression-compile-tmp/imp22g-77.imp"
26265 @ 220627:               PUSH   C
26266 @ 220630:               SELECT 20
26267 @ 220633:               PUSHI  #0x00000000
26268 @ 220638:               JUMPIF = L_0004

  4659      plant(move,temp(c_mode,c_eventsp),gb+indir)
26269 @ 220642:               LINE   4659 "regression-compile-tmp/imp22g-77.imp"
26270 @ 220682:               PUSH   PLANT
26271 @ 220685:               PUSHI  #0x00000001
26272 @ 220690:               ASSPAR
26273 @ 220691:               PUSH   TEMP
26274 @ 220694:               PUSH   C
26275 @ 220697:               SELECT 27
26276 @ 220700:               ASSPAR
26277 @ 220701:               PUSH   C
26278 @ 220704:               SELECT 20
26279 @ 220707:               ASSPAR
26280 @ 220708:               CALL  
26281 @ 220709:               ASSPAR
26282 @ 220710:               PUSHI  #0x0000000e
26283 @ 220715:               PUSHI  #0x00000008
26284 @ 220720:               ADD   
26285 @ 220721:               ASSPAR
26286 @ 220722:               CALL  

  4660      forget cc
26287 @ 220723:               LINE   4660 "regression-compile-tmp/imp22g-77.imp"
26288 @ 220763:               PUSH   FORGETCC
26289 @ 220766:               CALL  

  4661    %finish
  4662  !Put pre-amble
26290 @ 220767:               LINE   4661 "regression-compile-tmp/imp22g-77.imp"
26291 @ 220807:               LOCATE L_0004

  4663    codeflag = '^';  x = pc;  !preserve
26292 @ 220810:               LINE   4663 "regression-compile-tmp/imp22g-77.imp"
26293 @ 220850:               PUSH   CODEFLAG
26294 @ 220853:               PUSHI  #0x0000005e
26295 @ 220858:               ASSVAL
26296 @ 220859:               LINE   4663 "regression-compile-tmp/imp22g-77.imp"
26297 @ 220899:               PUSH   X
26298 @ 220902:               PUSH   PC
26299 @ 220905:               ASSVAL

  4664    putact(end,0,0)
26300 @ 220906:               LINE   4664 "regression-compile-tmp/imp22g-77.imp"
26301 @ 220946:               PUSH   PUTACT
26302 @ 220949:               PUSHI  #0x00000032
26303 @ 220954:               ASSPAR
26304 @ 220955:               PUSHI  #0x00000000
26305 @ 220960:               ASSPAR
26306 @ 220961:               PUSHI  #0x00000000
26307 @ 220966:               ASSPAR
26308 @ 220967:               CALL  

  4665    compile(np0)
26309 @ 220968:               LINE   4665 "regression-compile-tmp/imp22g-77.imp"
26310 @ 221008:               PUSH   COMPILE
26311 @ 221011:               PUSH   NP0
26312 @ 221014:               ASSPAR
26313 @ 221015:               CALL  

  4666    fill code(1) %if cad&1 # 0
26314 @ 221016:               LINE   4666 "regression-compile-tmp/imp22g-77.imp"
26315 @ 221056:               PUSH   CAD
26316 @ 221059:               PUSHI  #0x00000001
26317 @ 221064:               AND   
26318 @ 221065:               PUSHI  #0x00000000
26319 @ 221070:               JUMPIF = L_0004
26320 @ 221074:               PUSH   FILLCODE
26321 @ 221077:               PUSHI  #0x00000001
26322 @ 221082:               ASSPAR
26323 @ 221083:               CALL  
26324 @ 221084:               LOCATE L_0004

  4667    check reach((pc-c_localpc)<<1)
26325 @ 221087:               LINE   4667 "regression-compile-tmp/imp22g-77.imp"
26326 @ 221127:               PUSH   CHECKREACH
26327 @ 221130:               PUSH   PC
26328 @ 221133:               PUSH   C
26329 @ 221136:               SELECT 13
26330 @ 221139:               SUB   
26331 @ 221140:               PUSHI  #0x00000001
26332 @ 221145:               LSH   
26333 @ 221146:               ASSPAR
26334 @ 221147:               CALL  

  4668    entry = cad
26335 @ 221148:               LINE   4668 "regression-compile-tmp/imp22g-77.imp"
26336 @ 221188:               PUSH   ENTRY
26337 @ 221191:               PUSH   CAD
26338 @ 221194:               ASSVAL

  4669    y = x
26339 @ 221195:               LINE   4669 "regression-compile-tmp/imp22g-77.imp"
26340 @ 221235:               PUSH   Y
26341 @ 221238:               PUSH   X
26342 @ 221241:               ASSVAL

  4670    %while y < pc %cycle
26343 @ 221242:               LINE   4670 "regression-compile-tmp/imp22g-77.imp"
26344 @ 221282:               LOCATE L_0003
26345 @ 221285:               PUSH   Y
26346 @ 221288:               PUSH   PC
26347 @ 221291:               JUMPIF >= L_0004

  4671      %if pflag(y) = indglobal %then set code word(dict(prog(y))_val-cad) %c
  4672      %else set code word(prog(y))
26348 @ 221295:               LINE   4671 "regression-compile-tmp/imp22g-77.imp"
26349 @ 221335:               PUSH   PFLAG
26350 @ 221338:               PUSH   Y
26351 @ 221341:               ACCESS
26352 @ 221342:               PUSHI  #0x00000007
26353 @ 221347:               JUMPIF # L_0007
26354 @ 221351:               PUSH   SETCODEWORD
26355 @ 221354:               PUSH   DICT
26356 @ 221357:               PUSH   PROG
26357 @ 221360:               PUSH   Y
26358 @ 221363:               ACCESS
26359 @ 221364:               ACCESS
26360 @ 221365:               SELECT 9
26361 @ 221368:               PUSH   CAD
26362 @ 221371:               SUB   
26363 @ 221372:               ASSPAR
26364 @ 221373:               CALL  
26365 @ 221374:               GOTO   L_0006
26366 @ 221377:               LOCATE L_0007
26367 @ 221380:               PUSH   SETCODEWORD
26368 @ 221383:               PUSH   PROG
26369 @ 221386:               PUSH   Y
26370 @ 221389:               ACCESS
26371 @ 221390:               ASSPAR
26372 @ 221391:               CALL  
26373 @ 221392:               LOCATE L_0006

  4673      y = y+1
26374 @ 221395:               LINE   4673 "regression-compile-tmp/imp22g-77.imp"
26375 @ 221435:               PUSH   Y
26376 @ 221438:               PUSH   Y
26377 @ 221441:               PUSHI  #0x00000001
26378 @ 221446:               ADD   
26379 @ 221447:               ASSVAL

  4674    %repeat
26380 @ 221448:               LINE   4674 "regression-compile-tmp/imp22g-77.imp"
26381 @ 221488:               REPEAT L_0003
26382 @ 221491:               LOCATE L_0004

  4675    codeflag = ' ';  pc = x;  !restore
  4676  !Generate final sequence
26383 @ 221494:               LINE   4675 "regression-compile-tmp/imp22g-77.imp"
26384 @ 221534:               PUSH   CODEFLAG
26385 @ 221537:               PUSHI  #0x00000020
26386 @ 221542:               ASSVAL
26387 @ 221543:               LINE   4675 "regression-compile-tmp/imp22g-77.imp"
26388 @ 221583:               PUSH   PC
26389 @ 221586:               PUSH   X
26390 @ 221589:               ASSVAL

  4677    %if c_access # 0 %start
26391 @ 221590:               LINE   4677 "regression-compile-tmp/imp22g-77.imp"
26392 @ 221630:               PUSH   C
26393 @ 221633:               SELECT 16
26394 @ 221636:               PUSHI  #0x00000000
26395 @ 221641:               JUMPIF = L_0004

  4678      %if level > outerlevel %and c_status&globbed # 0 %start
26396 @ 221645:               LINE   4678 "regression-compile-tmp/imp22g-77.imp"
26397 @ 221685:               PUSH   LEVEL
26398 @ 221688:               PUSHI  #0x00000000
26399 @ 221693:               JUMPIF <= L_0007
26400 @ 221697:               PUSH   C
26401 @ 221700:               SELECT 6
26402 @ 221703:               PUSHI  #0x00000010
26403 @ 221708:               AND   
26404 @ 221709:               PUSHI  #0x00000000
26405 @ 221714:               JUMPIF = L_0007

  4679        %if level > 1 %start;  !display in store
26406 @ 221718:               LINE   4679 "regression-compile-tmp/imp22g-77.imp"
26407 @ 221758:               PUSH   LEVEL
26408 @ 221761:               PUSHI  #0x00000001
26409 @ 221766:               JUMPIF <= L_000a

  4680          plant(move,tempd(gb,level<<2),a7);     !MOVE ?(GB),SP
26410 @ 221770:               LINE   4680 "regression-compile-tmp/imp22g-77.imp"
26411 @ 221810:               PUSH   PLANT
26412 @ 221813:               PUSHI  #0x00000001
26413 @ 221818:               ASSPAR
26414 @ 221819:               PUSH   TEMPD
26415 @ 221822:               PUSHI  #0x0000000e
26416 @ 221827:               ASSPAR
26417 @ 221828:               PUSH   LEVEL
26418 @ 221831:               PUSHI  #0x00000002
26419 @ 221836:               LSH   
26420 @ 221837:               ASSPAR
26421 @ 221838:               CALL  
26422 @ 221839:               ASSPAR
26423 @ 221840:               PUSHI  #0x00000010
26424 @ 221845:               ASSPAR
26425 @ 221846:               CALL  

  4681          plant(move,posta7,tempd(gb,level<<2)); !MOVE (SP)+,?(GB)
26426 @ 221847:               LINE   4681 "regression-compile-tmp/imp22g-77.imp"
26427 @ 221887:               PUSH   PLANT
26428 @ 221890:               PUSHI  #0x00000001
26429 @ 221895:               ASSPAR
26430 @ 221896:               PUSHI  #0x00000020
26431 @ 221901:               ASSPAR
26432 @ 221902:               PUSH   TEMPD
26433 @ 221905:               PUSHI  #0x0000000e
26434 @ 221910:               ASSPAR
26435 @ 221911:               PUSH   LEVEL
26436 @ 221914:               PUSHI  #0x00000002
26437 @ 221919:               LSH   
26438 @ 221920:               ASSPAR
26439 @ 221921:               CALL  
26440 @ 221922:               ASSPAR
26441 @ 221923:               CALL  

  4682          forget cc
26442 @ 221924:               LINE   4682 "regression-compile-tmp/imp22g-77.imp"
26443 @ 221964:               PUSH   FORGETCC
26444 @ 221967:               CALL  

  4683        %else
26445 @ 221968:               LINE   4683 "regression-compile-tmp/imp22g-77.imp"
26446 @ 222008:               GOTO   L_0009
26447 @ 222011:               LOCATE L_000a

  4684          plant(unlk,0,f1)
26448 @ 222014:               LINE   4684 "regression-compile-tmp/imp22g-77.imp"
26449 @ 222054:               PUSH   PLANT
26450 @ 222057:               PUSHI  #0x00000049
26451 @ 222062:               ASSPAR
26452 @ 222063:               PUSHI  #0x00000000
26453 @ 222068:               ASSPAR
26454 @ 222069:               PUSHI  #0x0000000f
26455 @ 222074:               ASSPAR
26456 @ 222075:               CALL  

  4685        %finish
26457 @ 222076:               LINE   4685 "regression-compile-tmp/imp22g-77.imp"
26458 @ 222116:               LOCATE L_0009

  4686      %finish %else %if c_sp < 0 %start;  !some stack extension
26459 @ 222119:               LINE   4686 "regression-compile-tmp/imp22g-77.imp"
26460 @ 222159:               GOTO   L_0006
26461 @ 222162:               LOCATE L_0007
26462 @ 222165:               PUSH   C
26463 @ 222168:               SELECT 1
26464 @ 222171:               PUSHI  #0x00000000
26465 @ 222176:               JUMPIF >= L_0007

  4687        addimm(-c_sp,a7)
26466 @ 222180:               LINE   4687 "regression-compile-tmp/imp22g-77.imp"
26467 @ 222220:               PUSH   ADDIMM
26468 @ 222223:               PUSH   C
26469 @ 222226:               SELECT 1
26470 @ 222229:               NEGATE
26471 @ 222230:               ASSPAR
26472 @ 222231:               PUSHI  #0x00000010
26473 @ 222236:               ASSPAR
26474 @ 222237:               CALL  

  4688      %finish
26475 @ 222238:               LINE   4688 "regression-compile-tmp/imp22g-77.imp"
26476 @ 222278:               LOCATE L_0007
26477 @ 222281:               LOCATE L_0006

  4689      %if level > outerlevel %start
26478 @ 222284:               LINE   4689 "regression-compile-tmp/imp22g-77.imp"
26479 @ 222324:               PUSH   LEVEL
26480 @ 222327:               PUSHI  #0x00000000
26481 @ 222332:               JUMPIF <= L_0007

  4690        c_dpid_flags = c_dpid_flags!okflag %if c_type > 0 %c
  4691            %and c_status&wrongcc!c_reg_ccx!c_reg_ccy = 0
26482 @ 222336:               LINE   4690 "regression-compile-tmp/imp22g-77.imp"
26483 @ 222376:               PUSH   C
26484 @ 222379:               SELECT 7
26485 @ 222382:               PUSHI  #0x00000000
26486 @ 222387:               JUMPIF <= L_000a
26487 @ 222391:               PUSH   C
26488 @ 222394:               SELECT 6
26489 @ 222397:               PUSHI  #0x00000004
26490 @ 222402:               AND   
26491 @ 222403:               PUSH   C
26492 @ 222406:               SELECT 30
26493 @ 222409:               SELECT 1
26494 @ 222412:               OR    
26495 @ 222413:               PUSH   C
26496 @ 222416:               SELECT 30
26497 @ 222419:               SELECT 2
26498 @ 222422:               OR    
26499 @ 222423:               PUSHI  #0x00000000
26500 @ 222428:               JUMPIF # L_000a
26501 @ 222432:               PUSH   C
26502 @ 222435:               SELECT 29
26503 @ 222438:               SELECT 1
26504 @ 222441:               PUSH   C
26505 @ 222444:               SELECT 29
26506 @ 222447:               SELECT 1
26507 @ 222450:               PUSHI  #0x00000040
26508 @ 222455:               OR    
26509 @ 222456:               ASSVAL
26510 @ 222457:               LOCATE L_000a

  4692        plant(rts,0,0)
26511 @ 222460:               LINE   4692 "regression-compile-tmp/imp22g-77.imp"
26512 @ 222500:               PUSH   PLANT
26513 @ 222503:               PUSHI  #0x00000044
26514 @ 222508:               ASSPAR
26515 @ 222509:               PUSHI  #0x00000000
26516 @ 222514:               ASSPAR
26517 @ 222515:               PUSHI  #0x00000000
26518 @ 222520:               ASSPAR
26519 @ 222521:               CALL  

  4693      %else
26520 @ 222522:               LINE   4693 "regression-compile-tmp/imp22g-77.imp"
26521 @ 222562:               GOTO   L_0006
26522 @ 222565:               LOCATE L_0007

  4694        plant(move,0,d0);  srcall(signal);  !%stop
26523 @ 222568:               LINE   4694 "regression-compile-tmp/imp22g-77.imp"
26524 @ 222608:               PUSH   PLANT
26525 @ 222611:               PUSHI  #0x00000001
26526 @ 222616:               ASSPAR
26527 @ 222617:               PUSHI  #0x00000000
26528 @ 222622:               ASSPAR
26529 @ 222623:               PUSHI  #0x00000001
26530 @ 222628:               ASSPAR
26531 @ 222629:               CALL  
26532 @ 222630:               LINE   4694 "regression-compile-tmp/imp22g-77.imp"
26533 @ 222670:               PUSH   SRCALL
26534 @ 222673:               PUSHI  #0x00000049
26535 @ 222678:               ASSPAR
26536 @ 222679:               CALL  

  4695      %finish
26537 @ 222680:               LINE   4695 "regression-compile-tmp/imp22g-77.imp"
26538 @ 222720:               LOCATE L_0006

  4696    %else;  !no return from procedure
26539 @ 222723:               LINE   4696 "regression-compile-tmp/imp22g-77.imp"
26540 @ 222763:               GOTO   L_0003
26541 @ 222766:               LOCATE L_0004

  4697      c_dpid_flags = c_dpid_flags!noret
26542 @ 222769:               LINE   4697 "regression-compile-tmp/imp22g-77.imp"
26543 @ 222809:               PUSH   C
26544 @ 222812:               SELECT 29
26545 @ 222815:               SELECT 1
26546 @ 222818:               PUSH   C
26547 @ 222821:               SELECT 29
26548 @ 222824:               SELECT 1
26549 @ 222827:               PUSHI  #0x00000040
26550 @ 222832:               OR    
26551 @ 222833:               ASSVAL

  4698    %finish
  4699  !Set start address
26552 @ 222834:               LINE   4698 "regression-compile-tmp/imp22g-77.imp"
26553 @ 222874:               LOCATE L_0003

  4700    x = c_dpid_val
26554 @ 222877:               LINE   4700 "regression-compile-tmp/imp22g-77.imp"
26555 @ 222917:               PUSH   X
26556 @ 222920:               PUSH   C
26557 @ 222923:               SELECT 29
26558 @ 222926:               SELECT 9
26559 @ 222929:               ASSVAL

  4701    define entry(-x,entry,c_pid) %if x < 0;  !forward refs in FINAL
26560 @ 222930:               LINE   4701 "regression-compile-tmp/imp22g-77.imp"
26561 @ 222970:               PUSH   X
26562 @ 222973:               PUSHI  #0x00000000
26563 @ 222978:               JUMPIF >= L_0004
26564 @ 222982:               PUSH   DEFINEENTRY
26565 @ 222985:               PUSH   X
26566 @ 222988:               NEGATE
26567 @ 222989:               ASSPAR
26568 @ 222990:               PUSH   ENTRY
26569 @ 222993:               ASSPAR
26570 @ 222994:               PUSH   C
26571 @ 222997:               SELECT 15
26572 @ 223000:               ASSPAR
26573 @ 223001:               CALL  
26574 @ 223002:               LOCATE L_0004

  4702    c_dpid_val = entry
  4703  !
26575 @ 223005:               LINE   4702 "regression-compile-tmp/imp22g-77.imp"
26576 @ 223045:               PUSH   C
26577 @ 223048:               SELECT 29
26578 @ 223051:               SELECT 9
26579 @ 223054:               PUSH   ENTRY
26580 @ 223057:               ASSVAL

  4704    lim = cad+(pc-c_localpc-c_shorts+zeroshorts)<<1
26581 @ 223058:               LINE   4704 "regression-compile-tmp/imp22g-77.imp"
26582 @ 223098:               PUSH   LIM
26583 @ 223101:               PUSH   CAD
26584 @ 223104:               PUSH   PC
26585 @ 223107:               PUSH   C
26586 @ 223110:               SELECT 13
26587 @ 223113:               SUB   
26588 @ 223114:               PUSH   C
26589 @ 223117:               SELECT 23
26590 @ 223120:               SUB   
26591 @ 223121:               PUSHI  #0x00000008
26592 @ 223126:               ADD   
26593 @ 223127:               PUSHI  #0x00000001
26594 @ 223132:               LSH   
26595 @ 223133:               ADD   
26596 @ 223134:               ASSVAL

  4705    x = c_localpc;  c_shorts = zeroshorts;  !reset
26597 @ 223135:               LINE   4705 "regression-compile-tmp/imp22g-77.imp"
26598 @ 223175:               PUSH   X
26599 @ 223178:               PUSH   C
26600 @ 223181:               SELECT 13
26601 @ 223184:               ASSVAL
26602 @ 223185:               LINE   4705 "regression-compile-tmp/imp22g-77.imp"
26603 @ 223225:               PUSH   C
26604 @ 223228:               SELECT 23
26605 @ 223231:               PUSHI  #0x00000008
26606 @ 223236:               ASSVAL

  4706    %while x < pc %cycle
26607 @ 223237:               LINE   4706 "regression-compile-tmp/imp22g-77.imp"
26608 @ 223277:               LOCATE L_0003
26609 @ 223280:               PUSH   X
26610 @ 223283:               PUSH   PC
26611 @ 223286:               JUMPIF >= L_0004

  4707      y = prog(x);  j = pflag(x)
26612 @ 223290:               LINE   4707 "regression-compile-tmp/imp22g-77.imp"
26613 @ 223330:               PUSH   Y
26614 @ 223333:               PUSH   PROG
26615 @ 223336:               PUSH   X
26616 @ 223339:               ACCESS
26617 @ 223340:               ASSVAL
26618 @ 223341:               LINE   4707 "regression-compile-tmp/imp22g-77.imp"
26619 @ 223381:               PUSH   J
26620 @ 223384:               PUSH   PFLAG
26621 @ 223387:               PUSH   X
26622 @ 223390:               ACCESS
26623 @ 223391:               ASSVAL

  4708      %if j # 0 %start
26624 @ 223392:               LINE   4708 "regression-compile-tmp/imp22g-77.imp"
26625 @ 223432:               PUSH   J
26626 @ 223435:               PUSHI  #0x00000000
26627 @ 223440:               JUMPIF = L_0007

  4709        %if j < zeroshorts %start
26628 @ 223444:               LINE   4709 "regression-compile-tmp/imp22g-77.imp"
26629 @ 223484:               PUSH   J
26630 @ 223487:               PUSHI  #0x00000008
26631 @ 223492:               JUMPIF >= L_000a

  4710          %if j <= longjump %start;  !shortjump/jump/longjump
26632 @ 223496:               LINE   4710 "regression-compile-tmp/imp22g-77.imp"
26633 @ 223536:               PUSH   J
26634 @ 223539:               PUSHI  #0x00000003
26635 @ 223544:               JUMPIF > L_000d

  4711            jumps = jumps+1
26636 @ 223548:               LINE   4711 "regression-compile-tmp/imp22g-77.imp"
26637 @ 223588:               PUSH   JUMPS
26638 @ 223591:               PUSH   JUMPS
26639 @ 223594:               PUSHI  #0x00000001
26640 @ 223599:               ADD   
26641 @ 223600:               ASSVAL

  4712            y = (y-pflag(y)-x+c_shorts)<<1
26642 @ 223601:               LINE   4712 "regression-compile-tmp/imp22g-77.imp"
26643 @ 223641:               PUSH   Y
26644 @ 223644:               PUSH   Y
26645 @ 223647:               PUSH   PFLAG
26646 @ 223650:               PUSH   Y
26647 @ 223653:               ACCESS
26648 @ 223654:               SUB   
26649 @ 223655:               PUSH   X
26650 @ 223658:               SUB   
26651 @ 223659:               PUSH   C
26652 @ 223662:               SELECT 23
26653 @ 223665:               ADD   
26654 @ 223666:               PUSHI  #0x00000001
26655 @ 223671:               LSH   
26656 @ 223672:               ASSVAL

  4713            %if j = shortjump %start
26657 @ 223673:               LINE   4713 "regression-compile-tmp/imp22g-77.imp"
26658 @ 223713:               PUSH   J
26659 @ 223716:               PUSHI  #0x00000001
26660 @ 223721:               JUMPIF # L_0010

  4714              cad = cad-2
26661 @ 223725:               LINE   4714 "regression-compile-tmp/imp22g-77.imp"
26662 @ 223765:               PUSH   CAD
26663 @ 223768:               PUSH   CAD
26664 @ 223771:               PUSHI  #0x00000002
26665 @ 223776:               SUB   
26666 @ 223777:               ASSVAL

  4715              y = prog(x-1)+y&255
26667 @ 223778:               LINE   4715 "regression-compile-tmp/imp22g-77.imp"
26668 @ 223818:               PUSH   Y
26669 @ 223821:               PUSH   PROG
26670 @ 223824:               PUSH   X
26671 @ 223827:               PUSHI  #0x00000001
26672 @ 223832:               SUB   
26673 @ 223833:               ACCESS
26674 @ 223834:               PUSH   Y
26675 @ 223837:               PUSHI  #0x000000ff
26676 @ 223842:               AND   
26677 @ 223843:               ADD   
26678 @ 223844:               ASSVAL

  4716              c_shorts = c_shorts+1
26679 @ 223845:               LINE   4716 "regression-compile-tmp/imp22g-77.imp"
26680 @ 223885:               PUSH   C
26681 @ 223888:               SELECT 23
26682 @ 223891:               PUSH   C
26683 @ 223894:               SELECT 23
26684 @ 223897:               PUSHI  #0x00000001
26685 @ 223902:               ADD   
26686 @ 223903:               ASSVAL

  4717            %finish
26687 @ 223904:               LINE   4717 "regression-compile-tmp/imp22g-77.imp"
26688 @ 223944:               LOCATE L_0010

  4718          %finish %else %if j = indglobal %start;  !procedure
26689 @ 223947:               LINE   4718 "regression-compile-tmp/imp22g-77.imp"
26690 @ 223987:               GOTO   L_000c
26691 @ 223990:               LOCATE L_000d
26692 @ 223993:               PUSH   J
26693 @ 223996:               PUSHI  #0x00000007
26694 @ 224001:               JUMPIF # L_000d

  4719            i = dict(y)_val
26695 @ 224005:               LINE   4719 "regression-compile-tmp/imp22g-77.imp"
26696 @ 224045:               PUSH   I
26697 @ 224048:               PUSH   DICT
26698 @ 224051:               PUSH   Y
26699 @ 224054:               ACCESS
26700 @ 224055:               SELECT 9
26701 @ 224058:               ASSVAL

  4720            %if i <= 0 %start;  !not yet encountered
26702 @ 224059:               LINE   4720 "regression-compile-tmp/imp22g-77.imp"
26703 @ 224099:               PUSH   I
26704 @ 224102:               PUSHI  #0x00000000
26705 @ 224107:               JUMPIF > L_0010

  4721              dict(y)_val = -(cad>>1);  y = -i
26706 @ 224111:               LINE   4721 "regression-compile-tmp/imp22g-77.imp"
26707 @ 224151:               PUSH   DICT
26708 @ 224154:               PUSH   Y
26709 @ 224157:               ACCESS
26710 @ 224158:               SELECT 9
26711 @ 224161:               PUSH   CAD
26712 @ 224164:               PUSHI  #0x00000001
26713 @ 224169:               RSH   
26714 @ 224170:               NEGATE
26715 @ 224171:               ASSVAL
26716 @ 224172:               LINE   4721 "regression-compile-tmp/imp22g-77.imp"
26717 @ 224212:               PUSH   Y
26718 @ 224215:               PUSH   I
26719 @ 224218:               NEGATE
26720 @ 224219:               ASSVAL

  4722            %else
26721 @ 224220:               LINE   4722 "regression-compile-tmp/imp22g-77.imp"
26722 @ 224260:               GOTO   L_000f
26723 @ 224263:               LOCATE L_0010

  4723              i = i-cad
26724 @ 224266:               LINE   4723 "regression-compile-tmp/imp22g-77.imp"
26725 @ 224306:               PUSH   I
26726 @ 224309:               PUSH   I
26727 @ 224312:               PUSH   CAD
26728 @ 224315:               SUB   
26729 @ 224316:               ASSVAL

  4724              report(reacherr,y,0) %unless is short(i)=TRUE
26730 @ 224317:               LINE   4724 "regression-compile-tmp/imp22g-77.imp"
26731 @ 224357:               PUSH   ISSHORT
26732 @ 224360:               PUSH   I
26733 @ 224363:               ASSPAR
26734 @ 224364:               CALL  
26735 @ 224365:               PUSHI  #0x00000001
26736 @ 224370:               JUMPIF = L_0013
26737 @ 224374:               PUSH   REPORT
26738 @ 224377:               PUSHI  #0x00000004
26739 @ 224382:               ASSPAR
26740 @ 224383:               PUSH   Y
26741 @ 224386:               ASSPAR
26742 @ 224387:               PUSHI  #0x00000000
26743 @ 224392:               ASSPAR
26744 @ 224393:               CALL  
26745 @ 224394:               LOCATE L_0013

  4725              y = i
26746 @ 224397:               LINE   4725 "regression-compile-tmp/imp22g-77.imp"
26747 @ 224437:               PUSH   Y
26748 @ 224440:               PUSH   I
26749 @ 224443:               ASSVAL

  4726            %finish
26750 @ 224444:               LINE   4726 "regression-compile-tmp/imp22g-77.imp"
26751 @ 224484:               LOCATE L_000f

  4727          %else {global,negglobal,bigglobal}
26752 @ 224487:               LINE   4727 "regression-compile-tmp/imp22g-77.imp"
26753 @ 224527:               GOTO   L_000c
26754 @ 224530:               LOCATE L_000d

  4728            %if j # global+1 %start
26755 @ 224533:               LINE   4728 "regression-compile-tmp/imp22g-77.imp"
26756 @ 224573:               PUSH   J
26757 @ 224576:               PUSHI  #0x00000004
26758 @ 224581:               PUSHI  #0x00000001
26759 @ 224586:               ADD   
26760 @ 224587:               JUMPIF = L_0010

  4729              y = y&16_FFFF
26761 @ 224591:               LINE   4729 "regression-compile-tmp/imp22g-77.imp"
26762 @ 224631:               PUSH   Y
26763 @ 224634:               PUSH   Y
26764 @ 224637:               PUSHI  #0x0000ffff
26765 @ 224642:               AND   
26766 @ 224643:               ASSVAL

  4730              y = y+65536 %if j # global;  !bigglobal
26767 @ 224644:               LINE   4730 "regression-compile-tmp/imp22g-77.imp"
26768 @ 224684:               PUSH   J
26769 @ 224687:               PUSHI  #0x00000004
26770 @ 224692:               JUMPIF = L_0013
26771 @ 224696:               PUSH   Y
26772 @ 224699:               PUSH   Y
26773 @ 224702:               PUSHI  #0x00010000
26774 @ 224707:               ADD   
26775 @ 224708:               ASSVAL
26776 @ 224709:               LOCATE L_0013

  4731            %finish
26777 @ 224712:               LINE   4731 "regression-compile-tmp/imp22g-77.imp"
26778 @ 224752:               LOCATE L_0010

  4732            y = y-cad
26779 @ 224755:               LINE   4732 "regression-compile-tmp/imp22g-77.imp"
26780 @ 224795:               PUSH   Y
26781 @ 224798:               PUSH   Y
26782 @ 224801:               PUSH   CAD
26783 @ 224804:               SUB   
26784 @ 224805:               ASSVAL

  4733            %unless is short(y)=TRUE %start
26785 @ 224806:               LINE   4733 "regression-compile-tmp/imp22g-77.imp"
26786 @ 224846:               PUSH   ISSHORT
26787 @ 224849:               PUSH   Y
26788 @ 224852:               ASSPAR
26789 @ 224853:               CALL  
26790 @ 224854:               PUSHI  #0x00000001
26791 @ 224859:               JUMPIF = L_0010

  4734              %if prog(x-1)&16_F1FF # 16_41FA %start;  !LEA (PC),Ax
26792 @ 224863:               LINE   4734 "regression-compile-tmp/imp22g-77.imp"
26793 @ 224903:               PUSH   PROG
26794 @ 224906:               PUSH   X
26795 @ 224909:               PUSHI  #0x00000001
26796 @ 224914:               SUB   
26797 @ 224915:               ACCESS
26798 @ 224916:               PUSHI  #0x0000f1ff
26799 @ 224921:               AND   
26800 @ 224922:               PUSHI  #0x000041fa
26801 @ 224927:               JUMPIF = L_0013

  4735                report(creacherr,0,cad)
26802 @ 224931:               LINE   4735 "regression-compile-tmp/imp22g-77.imp"
26803 @ 224971:               PUSH   REPORT
26804 @ 224974:               PUSHI  #0x00000003
26805 @ 224979:               ASSPAR
26806 @ 224980:               PUSHI  #0x00000000
26807 @ 224985:               ASSPAR
26808 @ 224986:               PUSH   CAD
26809 @ 224989:               ASSPAR
26810 @ 224990:               CALL  

  4736              %else
26811 @ 224991:               LINE   4736 "regression-compile-tmp/imp22g-77.imp"
26812 @ 225031:               GOTO   L_0012
26813 @ 225034:               LOCATE L_0013

  4737                i = cad;  cad = lim
26814 @ 225037:               LINE   4737 "regression-compile-tmp/imp22g-77.imp"
26815 @ 225077:               PUSH   I
26816 @ 225080:               PUSH   CAD
26817 @ 225083:               ASSVAL
26818 @ 225084:               LINE   4737 "regression-compile-tmp/imp22g-77.imp"
26819 @ 225124:               PUSH   CAD
26820 @ 225127:               PUSH   LIM
26821 @ 225130:               ASSVAL

  4738                set code word(prog(x-1)!!(16_41FA!!16_207C)); !MOVEI #,Ax
26822 @ 225131:               LINE   4738 "regression-compile-tmp/imp22g-77.imp"
26823 @ 225171:               PUSH   SETCODEWORD
26824 @ 225174:               PUSH   PROG
26825 @ 225177:               PUSH   X
26826 @ 225180:               PUSHI  #0x00000001
26827 @ 225185:               SUB   
26828 @ 225186:               ACCESS
26829 @ 225187:               PUSHI  #0x000041fa
26830 @ 225192:               PUSHI  #0x0000207c
26831 @ 225197:               XOR   
26832 @ 225198:               XOR   
26833 @ 225199:               ASSPAR
26834 @ 225200:               CALL  

  4739                set code longword(y-2)
26835 @ 225201:               LINE   4739 "regression-compile-tmp/imp22g-77.imp"
26836 @ 225241:               PUSH   SETCODELONGWORD
26837 @ 225244:               PUSH   Y
26838 @ 225247:               PUSHI  #0x00000002
26839 @ 225252:               SUB   
26840 @ 225253:               ASSPAR
26841 @ 225254:               CALL  

  4740                set code word(prog(x-1)!!(16_41FA!!16_D1D7)); !ADD (SP),Ax
26842 @ 225255:               LINE   4740 "regression-compile-tmp/imp22g-77.imp"
26843 @ 225295:               PUSH   SETCODEWORD
26844 @ 225298:               PUSH   PROG
26845 @ 225301:               PUSH   X
26846 @ 225304:               PUSHI  #0x00000001
26847 @ 225309:               SUB   
26848 @ 225310:               ACCESS
26849 @ 225311:               PUSHI  #0x000041fa
26850 @ 225316:               PUSHI  #0x0000d1d7
26851 @ 225321:               XOR   
26852 @ 225322:               XOR   
26853 @ 225323:               ASSPAR
26854 @ 225324:               CALL  

  4741                set code word(16_4E75);                       !RTS
26855 @ 225325:               LINE   4741 "regression-compile-tmp/imp22g-77.imp"
26856 @ 225365:               PUSH   SETCODEWORD
26857 @ 225368:               PUSHI  #0x00004e75
26858 @ 225373:               ASSPAR
26859 @ 225374:               CALL  

  4742                lim = cad;  cad = i-2
26860 @ 225375:               LINE   4742 "regression-compile-tmp/imp22g-77.imp"
26861 @ 225415:               PUSH   LIM
26862 @ 225418:               PUSH   CAD
26863 @ 225421:               ASSVAL
26864 @ 225422:               LINE   4742 "regression-compile-tmp/imp22g-77.imp"
26865 @ 225462:               PUSH   CAD
26866 @ 225465:               PUSH   I
26867 @ 225468:               PUSHI  #0x00000002
26868 @ 225473:               SUB   
26869 @ 225474:               ASSVAL

  4743                set code word(16_6100);  !BSR
26870 @ 225475:               LINE   4743 "regression-compile-tmp/imp22g-77.imp"
26871 @ 225515:               PUSH   SETCODEWORD
26872 @ 225518:               PUSHI  #0x00006100
26873 @ 225523:               ASSPAR
26874 @ 225524:               CALL  

  4744                y = lim-10-cad
26875 @ 225525:               LINE   4744 "regression-compile-tmp/imp22g-77.imp"
26876 @ 225565:               PUSH   Y
26877 @ 225568:               PUSH   LIM
26878 @ 225571:               PUSHI  #0x0000000a
26879 @ 225576:               SUB   
26880 @ 225577:               PUSH   CAD
26881 @ 225580:               SUB   
26882 @ 225581:               ASSVAL

  4745                steps = steps+5
26883 @ 225582:               LINE   4745 "regression-compile-tmp/imp22g-77.imp"
26884 @ 225622:               PUSH   STEPS
26885 @ 225625:               PUSH   STEPS
26886 @ 225628:               PUSHI  #0x00000005
26887 @ 225633:               ADD   
26888 @ 225634:               ASSVAL

  4746              %finish
26889 @ 225635:               LINE   4746 "regression-compile-tmp/imp22g-77.imp"
26890 @ 225675:               LOCATE L_0012

  4747            %finish
26891 @ 225678:               LINE   4747 "regression-compile-tmp/imp22g-77.imp"
26892 @ 225718:               LOCATE L_0010

  4748          %finish
26893 @ 225721:               LINE   4748 "regression-compile-tmp/imp22g-77.imp"
26894 @ 225761:               LOCATE L_000c

  4749        %finish
26895 @ 225764:               LINE   4749 "regression-compile-tmp/imp22g-77.imp"
26896 @ 225804:               LOCATE L_000a

  4750      %finish
  4751  !$IF VAX
  4752  {    final(cad) <- y>>8;  final(cad+1) <- y
  4753  !$IF APM
26897 @ 225807:               LINE   4750 "regression-compile-tmp/imp22g-77.imp"
26898 @ 225847:               LOCATE L_0007

  4754      shortinteger(final0+cad) <- y
  4755  !$FINISH
26899 @ 225850:               LINE   4754 "regression-compile-tmp/imp22g-77.imp"
26900 @ 225890:               PUSH   SHORTINTEGER
26901 @ 225893:               PUSH   FINAL0
26902 @ 225896:               PUSH   CAD
26903 @ 225899:               ADD   
26904 @ 225900:               ASSPAR
26905 @ 225901:               CALL  
26906 @ 225902:               PUSH   Y
26907 @ 225905:               JAM   

  4756      cad = cad+2
26908 @ 225906:               LINE   4756 "regression-compile-tmp/imp22g-77.imp"
26909 @ 225946:               PUSH   CAD
26910 @ 225949:               PUSH   CAD
26911 @ 225952:               PUSHI  #0x00000002
26912 @ 225957:               ADD   
26913 @ 225958:               ASSVAL

  4757      x = x+1
26914 @ 225959:               LINE   4757 "regression-compile-tmp/imp22g-77.imp"
26915 @ 225999:               PUSH   X
26916 @ 226002:               PUSH   X
26917 @ 226005:               PUSHI  #0x00000001
26918 @ 226010:               ADD   
26919 @ 226011:               ASSVAL

  4758    %repeat
26920 @ 226012:               LINE   4758 "regression-compile-tmp/imp22g-77.imp"
26921 @ 226052:               REPEAT L_0003
26922 @ 226055:               LOCATE L_0004

  4759    cad = lim
26923 @ 226058:               LINE   4759 "regression-compile-tmp/imp22g-77.imp"
26924 @ 226098:               PUSH   CAD
26925 @ 226101:               PUSH   LIM
26926 @ 226104:               ASSVAL

  4760    forget all
26927 @ 226105:               LINE   4760 "regression-compile-tmp/imp22g-77.imp"
26928 @ 226145:               PUSH   FORGETALL
26929 @ 226148:               CALL  

  4761  %end;  !compile end
  4762  
  4763  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  4764  !!!!!!!!!!!!!!!  end of Code Generation  !!!!!!!!!!!!!!!!!!!!!!!
  4765  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  4766  !
  4767  !<<IMP
26930 @ 226149:               LINE   4761 "regression-compile-tmp/imp22g-77.imp"
26931 @ 226189:            END    _lev0id0_COMPILEEND {lev=2 --> 1}

  4768  %routine TOPRED
26932 @ 226190:            LINE   4768 "regression-compile-tmp/imp22g-77.imp"
26933 @ 226230:            DEF    TOPRED (_lev0id0_TOPRED) p1=V_014d 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
26934 @ 226248:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
26935 @ 226249:               FINISH ) {lev=2}

  4769    item = litref(value) %if item = 0
26936 @ 226250:               LINE   4769 "regression-compile-tmp/imp22g-77.imp"
26937 @ 226290:               PUSH   ITEM
26938 @ 226293:               PUSHI  #0x00000000
26939 @ 226298:               JUMPIF # L_0004
26940 @ 226302:               PUSH   ITEM
26941 @ 226305:               PUSH   LITREF
26942 @ 226308:               PUSH   VALUE
26943 @ 226311:               ASSPAR
26944 @ 226312:               CALL  
26945 @ 226313:               ASSVAL
26946 @ 226314:               LOCATE L_0004

  4770    putact(compare,item,0)
26947 @ 226317:               LINE   4770 "regression-compile-tmp/imp22g-77.imp"
26948 @ 226357:               PUSH   PUTACT
26949 @ 226360:               PUSHI  #0x00000004
26950 @ 226365:               ASSPAR
26951 @ 226366:               PUSH   ITEM
26952 @ 226369:               ASSPAR
26953 @ 226370:               PUSHI  #0x00000000
26954 @ 226375:               ASSPAR
26955 @ 226376:               CALL  

  4771    condop = bne!!polarity
26956 @ 226377:               LINE   4771 "regression-compile-tmp/imp22g-77.imp"
26957 @ 226417:               PUSH   CONDOP
26958 @ 226420:               PUSHI  #0x00000016
26959 @ 226425:               PUSH   POLARITY
26960 @ 226428:               XOR   
26961 @ 226429:               ASSVAL

  4772    item = np-1
26962 @ 226430:               LINE   4772 "regression-compile-tmp/imp22g-77.imp"
26963 @ 226470:               PUSH   ITEM
26964 @ 226473:               PUSH   NP
26965 @ 226476:               PUSHI  #0x00000001
26966 @ 226481:               SUB   
26967 @ 226482:               ASSVAL

  4773  %end
  4774  !<<BOTH
  4775  !
26968 @ 226483:               LINE   4773 "regression-compile-tmp/imp22g-77.imp"
26969 @ 226523:            END    _lev0id0_TOPRED {lev=2 --> 1}

  4776  %routine RESET CONTEXT(%integer pid,free)
26970 @ 226524:            LINE   4776 "regression-compile-tmp/imp22g-77.imp"
26971 @ 226564:            DEF    RESETCONTEXT (_lev0id0_RESETCONTEXT) p1=V_014e 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
26972 @ 226588:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
26973 @ 226589:                  DEF    PID p1=V_014f a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
26974 @ 226604:                  DEF    FREE p1=V_0150 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
26975 @ 226620:               FINISH ) {lev=2}

  4777    starts = 0;  cycles = 0
26976 @ 226621:               LINE   4777 "regression-compile-tmp/imp22g-77.imp"
26977 @ 226661:               PUSH   STARTS
26978 @ 226664:               PUSHI  #0x00000000
26979 @ 226669:               ASSVAL
26980 @ 226670:               LINE   4777 "regression-compile-tmp/imp22g-77.imp"
26981 @ 226710:               PUSH   CYCLES
26982 @ 226713:               PUSHI  #0x00000000
26983 @ 226718:               ASSVAL

  4778    c = 0
26984 @ 226719:               LINE   4778 "regression-compile-tmp/imp22g-77.imp"
26985 @ 226759:               PUSH   C
26986 @ 226762:               PUSHI  #0x00000000
26987 @ 226767:               ASSVAL

  4779    forget all
26988 @ 226768:               LINE   4779 "regression-compile-tmp/imp22g-77.imp"
26989 @ 226808:               PUSH   FORGETALL
26990 @ 226811:               CALL  

  4780    c_localdpos = dlim;  c_parlim = dlim;  c_localtext = charlim
26991 @ 226812:               LINE   4780 "regression-compile-tmp/imp22g-77.imp"
26992 @ 226852:               PUSH   C
26993 @ 226855:               SELECT 8
26994 @ 226858:               PUSH   DLIM
26995 @ 226861:               ASSVAL
26996 @ 226862:               LINE   4780 "regression-compile-tmp/imp22g-77.imp"
26997 @ 226902:               PUSH   C
26998 @ 226905:               SELECT 9
26999 @ 226908:               PUSH   DLIM
27000 @ 226911:               ASSVAL
27001 @ 226912:               LINE   4780 "regression-compile-tmp/imp22g-77.imp"
27002 @ 226952:               PUSH   C
27003 @ 226955:               SELECT 10
27004 @ 226958:               PUSH   CHARLIM
27005 @ 226961:               ASSVAL

  4781    c_localpc = pc;  c_localswpc = swpc;  c_lab1 = curlab
27006 @ 226962:               LINE   4781 "regression-compile-tmp/imp22g-77.imp"
27007 @ 227002:               PUSH   C
27008 @ 227005:               SELECT 13
27009 @ 227008:               PUSH   PC
27010 @ 227011:               ASSVAL
27011 @ 227012:               LINE   4781 "regression-compile-tmp/imp22g-77.imp"
27012 @ 227052:               PUSH   C
27013 @ 227055:               SELECT 14
27014 @ 227058:               PUSH   SWPC
27015 @ 227061:               ASSVAL
27016 @ 227062:               LINE   4781 "regression-compile-tmp/imp22g-77.imp"
27017 @ 227102:               PUSH   C
27018 @ 227105:               SELECT 18
27019 @ 227108:               PUSH   CURLAB
27020 @ 227111:               ASSVAL

  4782    c_shorts = zeroshorts;  c_free = free
27021 @ 227112:               LINE   4782 "regression-compile-tmp/imp22g-77.imp"
27022 @ 227152:               PUSH   C
27023 @ 227155:               SELECT 23
27024 @ 227158:               PUSHI  #0x00000008
27025 @ 227163:               ASSVAL
27026 @ 227164:               LINE   4782 "regression-compile-tmp/imp22g-77.imp"
27027 @ 227204:               PUSH   C
27028 @ 227207:               SELECT 5
27029 @ 227210:               PUSH   FREE
27030 @ 227213:               ASSVAL

  4783    c_mode = framemode+level;  c_vintage = vintage
27031 @ 227214:               LINE   4783 "regression-compile-tmp/imp22g-77.imp"
27032 @ 227254:               PUSH   C
27033 @ 227257:               SELECT 27
27034 @ 227260:               PUSHI  #0x000000a8
27035 @ 227265:               PUSH   LEVEL
27036 @ 227268:               ADD   
27037 @ 227269:               ASSVAL
27038 @ 227270:               LINE   4783 "regression-compile-tmp/imp22g-77.imp"
27039 @ 227310:               PUSH   C
27040 @ 227313:               SELECT 12
27041 @ 227316:               PUSH   VINTAGE
27042 @ 227319:               ASSVAL

  4784    c_pid = pid;  c_dpid == dict(c_pid)
27043 @ 227320:               LINE   4784 "regression-compile-tmp/imp22g-77.imp"
27044 @ 227360:               PUSH   C
27045 @ 227363:               SELECT 15
27046 @ 227366:               PUSH   PID
27047 @ 227369:               ASSVAL
27048 @ 227370:               LINE   4784 "regression-compile-tmp/imp22g-77.imp"
27049 @ 227410:               PUSH   C
27050 @ 227413:               SELECT 29
27051 @ 227416:               PUSH   DICT
27052 @ 227419:               PUSH   C
27053 @ 227422:               SELECT 15
27054 @ 227425:               ACCESS
27055 @ 227426:               ASSREF

  4785  %end
  4786  
27056 @ 227427:               LINE   4785 "regression-compile-tmp/imp22g-77.imp"
27057 @ 227467:            END    _lev0id0_RESETCONTEXT {lev=2 --> 1}

  4787  %routine OPEN BLOCK(%integer pid)
27058 @ 227468:            LINE   4787 "regression-compile-tmp/imp22g-77.imp"
27059 @ 227508:            DEF    OPENBLOCK (_lev0id0_OPENBLOCK) p1=V_014f 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
27060 @ 227529:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
27061 @ 227530:                  DEF    PID p1=V_0150 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
27062 @ 227545:               FINISH ) {lev=2}

  4788    forget regs;  !a bit extreme, but don't want to let LIT/EXP
  4789                   ! get out of hand so RESET CONTEXT forgets triples
27063 @ 227546:               LINE   4788 "regression-compile-tmp/imp22g-77.imp"
27064 @ 227586:               PUSH   FORGETREGS
27065 @ 227589:               CALL  

  4790    croak("Too many levels") %if level = maxlevel
27066 @ 227590:               LINE   4790 "regression-compile-tmp/imp22g-77.imp"
27067 @ 227630:               PUSH   LEVEL
27068 @ 227633:               PUSHI  #0x00000007
27069 @ 227638:               JUMPIF # L_0004
27070 @ 227642:               PUSH   CROAK
27071 @ 227645:               PUSHS  "Too many levels"
27072 @ 227662:               ASSPAR
27073 @ 227663:               CALL  
27074 @ 227664:               LOCATE L_0004

  4791    c_oldcontrol = control
27075 @ 227667:               LINE   4791 "regression-compile-tmp/imp22g-77.imp"
27076 @ 227707:               PUSH   C
27077 @ 227710:               SELECT 26
27078 @ 227713:               PUSH   CONTROL
27079 @ 227716:               ASSVAL

  4792    hold(level) = c;  level = level+1;  vintage = vintage+1
27080 @ 227717:               LINE   4792 "regression-compile-tmp/imp22g-77.imp"
27081 @ 227757:               PUSH   HOLD
27082 @ 227760:               PUSH   LEVEL
27083 @ 227763:               ACCESS
27084 @ 227764:               PUSH   C
27085 @ 227767:               ASSVAL
27086 @ 227768:               LINE   4792 "regression-compile-tmp/imp22g-77.imp"
27087 @ 227808:               PUSH   LEVEL
27088 @ 227811:               PUSH   LEVEL
27089 @ 227814:               PUSHI  #0x00000001
27090 @ 227819:               ADD   
27091 @ 227820:               ASSVAL
27092 @ 227821:               LINE   4792 "regression-compile-tmp/imp22g-77.imp"
27093 @ 227861:               PUSH   VINTAGE
27094 @ 227864:               PUSH   VINTAGE
27095 @ 227867:               PUSHI  #0x00000001
27096 @ 227872:               ADD   
27097 @ 227873:               ASSVAL

  4793    reset context(pid,c_free)
27098 @ 227874:               LINE   4793 "regression-compile-tmp/imp22g-77.imp"
27099 @ 227914:               PUSH   RESETCONTEXT
27100 @ 227917:               PUSH   PID
27101 @ 227920:               ASSPAR
27102 @ 227921:               PUSH   C
27103 @ 227924:               SELECT 5
27104 @ 227927:               ASSPAR
27105 @ 227928:               CALL  

  4794    c_access = 1;  c_localad = cad-accounted
27106 @ 227929:               LINE   4794 "regression-compile-tmp/imp22g-77.imp"
27107 @ 227969:               PUSH   C
27108 @ 227972:               SELECT 16
27109 @ 227975:               PUSHI  #0x00000001
27110 @ 227980:               ASSVAL
27111 @ 227981:               LINE   4794 "regression-compile-tmp/imp22g-77.imp"
27112 @ 228021:               PUSH   C
27113 @ 228024:               SELECT 11
27114 @ 228027:               PUSH   CAD
27115 @ 228030:               PUSH   ACCOUNTED
27116 @ 228033:               SUB   
27117 @ 228034:               ASSVAL

  4795  %end;  !OPEN BLOCK
  4796  
27118 @ 228035:               LINE   4795 "regression-compile-tmp/imp22g-77.imp"
27119 @ 228075:            END    _lev0id0_OPENBLOCK {lev=2 --> 1}

  4797  %integerfn PARMATCH(%integer apos,bpos)
27120 @ 228076:            LINE   4797 "regression-compile-tmp/imp22g-77.imp"
27121 @ 228116:            DEF    PARMATCH (_lev0id0_PARMATCH) p1=V_0150 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
27122 @ 228136:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
27123 @ 228137:                  DEF    APOS p1=V_0151 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
27124 @ 228153:                  DEF    BPOS p1=V_0152 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
27125 @ 228169:               FINISH ) {lev=2}

  4798  %record(identinfo)%name ap,bp,atp,btp
27126 @ 228170:               LINE   4798 "regression-compile-tmp/imp22g-77.imp"
27127 @ 228210:               DEF    AP p1=V_0153 a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
27128 @ 228224:               DEF    BP p1=V_0154 a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
27129 @ 228238:               DEF    ATP p1=V_0155 a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
27130 @ 228253:               DEF    BTP p1=V_0156 a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  4799    %cycle
27131 @ 228268:               LINE   4799 "regression-compile-tmp/imp22g-77.imp"
27132 @ 228308:               LOCATE L_0003

  4800      ap == dict(apos);  bp == dict(bpos)
27133 @ 228311:               LINE   4800 "regression-compile-tmp/imp22g-77.imp"
27134 @ 228351:               PUSH   AP
27135 @ 228354:               PUSH   DICT
27136 @ 228357:               PUSH   APOS
27137 @ 228360:               ACCESS
27138 @ 228361:               ASSREF
27139 @ 228362:               LINE   4800 "regression-compile-tmp/imp22g-77.imp"
27140 @ 228402:               PUSH   BP
27141 @ 228405:               PUSH   DICT
27142 @ 228408:               PUSH   BPOS
27143 @ 228411:               ACCESS
27144 @ 228412:               ASSREF

  4801      %result = FALSE %if ap_flags!!bp_flags < 0
  4802      {%result = FALSE %if ap_mode # bp_mode}
27145 @ 228413:               LINE   4801 "regression-compile-tmp/imp22g-77.imp"
27146 @ 228453:               PUSH   AP
27147 @ 228456:               SELECT 1
27148 @ 228459:               PUSH   BP
27149 @ 228462:               SELECT 1
27150 @ 228465:               XOR   
27151 @ 228466:               PUSHI  #0x00000000
27152 @ 228471:               JUMPIF >= L_0007
27153 @ 228475:               PUSHI  #0x00000000
27154 @ 228480:               RESULT
27155 @ 228481:               LOCATE L_0007

  4803      %if ap_type # bp_type %start
  4804        ![for now -- nominal]
27156 @ 228484:               LINE   4803 "regression-compile-tmp/imp22g-77.imp"
27157 @ 228524:               PUSH   AP
27158 @ 228527:               SELECT 2
27159 @ 228530:               PUSH   BP
27160 @ 228533:               SELECT 2
27161 @ 228536:               JUMPIF = L_0007

  4805        atp == typecell(ap_type);  btp == typecell(bp_type)
27162 @ 228540:               LINE   4805 "regression-compile-tmp/imp22g-77.imp"
27163 @ 228580:               PUSH   ATP
27164 @ 228583:               PUSH   TYPECELL
27165 @ 228586:               PUSH   AP
27166 @ 228589:               SELECT 2
27167 @ 228592:               ASSPAR
27168 @ 228593:               CALL  
27169 @ 228594:               ASSREF
27170 @ 228595:               LINE   4805 "regression-compile-tmp/imp22g-77.imp"
27171 @ 228635:               PUSH   BTP
27172 @ 228638:               PUSH   TYPECELL
27173 @ 228641:               PUSH   BP
27174 @ 228644:               SELECT 2
27175 @ 228647:               ASSPAR
27176 @ 228648:               CALL  
27177 @ 228649:               ASSREF

  4806        %result = FALSE %unless atp_flags&cat = arry = btp_flags&cat
27178 @ 228650:               LINE   4806 "regression-compile-tmp/imp22g-77.imp"
27179 @ 228690:               PUSH   ATP
27180 @ 228693:               SELECT 1
27181 @ 228696:               PUSHI  #0x0000000f
27182 @ 228701:               AND   
27183 @ 228702:               PUSHI  #0x00000009
27184 @ 228707:               JUMPIFD # L_000b
27185 @ 228711:               PUSH   BTP
27186 @ 228714:               SELECT 1
27187 @ 228717:               PUSHI  #0x0000000f
27188 @ 228722:               AND   
27189 @ 228723:               JUMPIF = L_000a
27190 @ 228727:               LOCATE L_000b
27191 @ 228730:               PUSHI  #0x00000000
27192 @ 228735:               RESULT
27193 @ 228736:               LOCATE L_000a

  4807      %finish
27194 @ 228739:               LINE   4807 "regression-compile-tmp/imp22g-77.imp"
27195 @ 228779:               LOCATE L_0007

  4808      apos = ap_link;  bpos = bp_link
27196 @ 228782:               LINE   4808 "regression-compile-tmp/imp22g-77.imp"
27197 @ 228822:               PUSH   APOS
27198 @ 228825:               PUSH   AP
27199 @ 228828:               SELECT 3
27200 @ 228831:               ASSVAL
27201 @ 228832:               LINE   4808 "regression-compile-tmp/imp22g-77.imp"
27202 @ 228872:               PUSH   BPOS
27203 @ 228875:               PUSH   BP
27204 @ 228878:               SELECT 3
27205 @ 228881:               ASSVAL

  4809      %if apos = 0 %start
27206 @ 228882:               LINE   4809 "regression-compile-tmp/imp22g-77.imp"
27207 @ 228922:               PUSH   APOS
27208 @ 228925:               PUSHI  #0x00000000
27209 @ 228930:               JUMPIF # L_0007

  4810        %result = FALSE %if bpos # 0
27210 @ 228934:               LINE   4810 "regression-compile-tmp/imp22g-77.imp"
27211 @ 228974:               PUSH   BPOS
27212 @ 228977:               PUSHI  #0x00000000
27213 @ 228982:               JUMPIF = L_000a
27214 @ 228986:               PUSHI  #0x00000000
27215 @ 228991:               RESULT
27216 @ 228992:               LOCATE L_000a

  4811        %result = TRUE
27217 @ 228995:               LINE   4811 "regression-compile-tmp/imp22g-77.imp"
27218 @ 229035:               PUSHI  #0x00000001
27219 @ 229040:               RESULT

  4812      %finish %else %if bpos = 0 %start
27220 @ 229041:               LINE   4812 "regression-compile-tmp/imp22g-77.imp"
27221 @ 229081:               LOCATE L_0007
27222 @ 229084:               PUSH   BPOS
27223 @ 229087:               PUSHI  #0x00000000
27224 @ 229092:               JUMPIF # L_0007

  4813        %result = FALSE
27225 @ 229096:               LINE   4813 "regression-compile-tmp/imp22g-77.imp"
27226 @ 229136:               PUSHI  #0x00000000
27227 @ 229141:               RESULT

  4814      %finish
27228 @ 229142:               LINE   4814 "regression-compile-tmp/imp22g-77.imp"
27229 @ 229182:               LOCATE L_0007

  4815    %repeat
27230 @ 229185:               LINE   4815 "regression-compile-tmp/imp22g-77.imp"
27231 @ 229225:               REPEAT L_0003

  4816  %end
  4817  
27232 @ 229228:               LINE   4816 "regression-compile-tmp/imp22g-77.imp"
27233 @ 229268:            END    _lev0id0_PARMATCH {lev=2 --> 1}

  4818  %integer%fn CRUNCHED(%integer p)
27234 @ 229269:            LINE   4818 "regression-compile-tmp/imp22g-77.imp"
27235 @ 229309:            DEF    CRUNCHED (_lev0id0_CRUNCHED) p1=V_0151 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
27236 @ 229329:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
27237 @ 229330:                  DEF    P p1=V_0152 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
27238 @ 229343:               FINISH ) {lev=2}

  4819  %record(identinfo)%name dq,dp
27239 @ 229344:               LINE   4819 "regression-compile-tmp/imp22g-77.imp"
27240 @ 229384:               DEF    DQ p1=V_0153 a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
27241 @ 229398:               DEF    DP p1=V_0154 a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  4820  %owninteger q=0,l=0
27242 @ 229412:               LINE   4820 "regression-compile-tmp/imp22g-77.imp"
27243 @ 229452:               PUSHI  #0x00000000
27244 @ 229457:               DEF    Q p1=V_0155 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
27245 @ 229470:               INIT   1
27246 @ 229473:               PUSHI  #0x00000000
27247 @ 229478:               DEF    L p1=V_0156 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
27248 @ 229491:               INIT   1

  4821    dp==dict(p)
27249 @ 229494:               LINE   4821 "regression-compile-tmp/imp22g-77.imp"
27250 @ 229534:               PUSH   DP
27251 @ 229537:               PUSH   DICT
27252 @ 229540:               PUSH   P
27253 @ 229543:               ACCESS
27254 @ 229544:               ASSREF

  4822    dp_text = 0;  q = 0
27255 @ 229545:               LINE   4822 "regression-compile-tmp/imp22g-77.imp"
27256 @ 229585:               PUSH   DP
27257 @ 229588:               SELECT 11
27258 @ 229591:               PUSHI  #0x00000000
27259 @ 229596:               ASSVAL
27260 @ 229597:               LINE   4822 "regression-compile-tmp/imp22g-77.imp"
27261 @ 229637:               PUSH   Q
27262 @ 229640:               PUSHI  #0x00000000
27263 @ 229645:               ASSVAL

  4823    l = dp_link
27264 @ 229646:               LINE   4823 "regression-compile-tmp/imp22g-77.imp"
27265 @ 229686:               PUSH   L
27266 @ 229689:               PUSH   DP
27267 @ 229692:               SELECT 3
27268 @ 229695:               ASSVAL

  4824    %if l # 0 %start
27269 @ 229696:               LINE   4824 "regression-compile-tmp/imp22g-77.imp"
27270 @ 229736:               PUSH   L
27271 @ 229739:               PUSHI  #0x00000000
27272 @ 229744:               JUMPIF = L_0004

  4825      l = crunched(l) %if dp_type < p
27273 @ 229748:               LINE   4825 "regression-compile-tmp/imp22g-77.imp"
27274 @ 229788:               PUSH   DP
27275 @ 229791:               SELECT 2
27276 @ 229794:               PUSH   P
27277 @ 229797:               JUMPIF >= L_0007
27278 @ 229801:               PUSH   L
27279 @ 229804:               PUSH   CRUNCHED
27280 @ 229807:               PUSH   L
27281 @ 229810:               ASSPAR
27282 @ 229811:               CALL  
27283 @ 229812:               ASSVAL
27284 @ 229813:               LOCATE L_0007

  4826      %result = p %if p <= l
27285 @ 229816:               LINE   4826 "regression-compile-tmp/imp22g-77.imp"
27286 @ 229856:               PUSH   P
27287 @ 229859:               PUSH   L
27288 @ 229862:               JUMPIF > L_0007
27289 @ 229866:               PUSH   P
27290 @ 229869:               RESULT
27291 @ 229870:               LOCATE L_0007

  4827      dp_link = l
27292 @ 229873:               LINE   4827 "regression-compile-tmp/imp22g-77.imp"
27293 @ 229913:               PUSH   DP
27294 @ 229916:               SELECT 3
27295 @ 229919:               PUSH   L
27296 @ 229922:               ASSVAL

  4828      q = l-1
27297 @ 229923:               LINE   4828 "regression-compile-tmp/imp22g-77.imp"
27298 @ 229963:               PUSH   Q
27299 @ 229966:               PUSH   L
27300 @ 229969:               PUSHI  #0x00000001
27301 @ 229974:               SUB   
27302 @ 229975:               ASSVAL

  4829    %finish
27303 @ 229976:               LINE   4829 "regression-compile-tmp/imp22g-77.imp"
27304 @ 230016:               LOCATE L_0004

  4830    dq == dict(q)
27305 @ 230019:               LINE   4830 "regression-compile-tmp/imp22g-77.imp"
27306 @ 230059:               PUSH   DQ
27307 @ 230062:               PUSH   DICT
27308 @ 230065:               PUSH   Q
27309 @ 230068:               ACCESS
27310 @ 230069:               ASSREF

  4831    %while q < p %cycle
27311 @ 230070:               LINE   4831 "regression-compile-tmp/imp22g-77.imp"
27312 @ 230110:               LOCATE L_0003
27313 @ 230113:               PUSH   Q
27314 @ 230116:               PUSH   P
27315 @ 230119:               JUMPIF >= L_0004

  4832      %if dq_type = dp_type %c
  4833      %and dq_link = l %and dq_reg = dp_reg %and dq_val = dp_val %start
27316 @ 230123:               LINE   4832 "regression-compile-tmp/imp22g-77.imp"
27317 @ 230163:               PUSH   DQ
27318 @ 230166:               SELECT 2
27319 @ 230169:               PUSH   DP
27320 @ 230172:               SELECT 2
27321 @ 230175:               JUMPIF # L_0007
27322 @ 230179:               PUSH   DQ
27323 @ 230182:               SELECT 3
27324 @ 230185:               PUSH   L
27325 @ 230188:               JUMPIF # L_0007
27326 @ 230192:               PUSH   DQ
27327 @ 230195:               SELECT 7
27328 @ 230198:               PUSH   DP
27329 @ 230201:               SELECT 7
27330 @ 230204:               JUMPIF # L_0007
27331 @ 230208:               PUSH   DQ
27332 @ 230211:               SELECT 9
27333 @ 230214:               PUSH   DP
27334 @ 230217:               SELECT 9
27335 @ 230220:               JUMPIF # L_0007

  4834        dlim = p
27336 @ 230224:               LINE   4834 "regression-compile-tmp/imp22g-77.imp"
27337 @ 230264:               PUSH   DLIM
27338 @ 230267:               PUSH   P
27339 @ 230270:               ASSVAL

  4835        %result = q
27340 @ 230271:               LINE   4835 "regression-compile-tmp/imp22g-77.imp"
27341 @ 230311:               PUSH   Q
27342 @ 230314:               RESULT

  4836      %finish
27343 @ 230315:               LINE   4836 "regression-compile-tmp/imp22g-77.imp"
27344 @ 230355:               LOCATE L_0007

  4837      q = q+1;  dq == dict(q)
27345 @ 230358:               LINE   4837 "regression-compile-tmp/imp22g-77.imp"
27346 @ 230398:               PUSH   Q
27347 @ 230401:               PUSH   Q
27348 @ 230404:               PUSHI  #0x00000001
27349 @ 230409:               ADD   
27350 @ 230410:               ASSVAL
27351 @ 230411:               LINE   4837 "regression-compile-tmp/imp22g-77.imp"
27352 @ 230451:               PUSH   DQ
27353 @ 230454:               PUSH   DICT
27354 @ 230457:               PUSH   Q
27355 @ 230460:               ACCESS
27356 @ 230461:               ASSREF

  4838    %repeat
27357 @ 230462:               LINE   4838 "regression-compile-tmp/imp22g-77.imp"
27358 @ 230502:               REPEAT L_0003
27359 @ 230505:               LOCATE L_0004

  4839    %result = p
27360 @ 230508:               LINE   4839 "regression-compile-tmp/imp22g-77.imp"
27361 @ 230548:               PUSH   P
27362 @ 230551:               RESULT

  4840  %end
  4841  
27363 @ 230552:               LINE   4840 "regression-compile-tmp/imp22g-77.imp"
27364 @ 230592:            END    _lev0id0_CRUNCHED {lev=2 --> 1}

  4842  %routine POP CONTEXT
27365 @ 230593:            LINE   4842 "regression-compile-tmp/imp22g-77.imp"
27366 @ 230633:            DEF    POPCONTEXT (_lev0id0_POPCONTEXT) p1=V_0152 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
27367 @ 230655:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
27368 @ 230656:               FINISH ) {lev=2}

  4843    pc = c_localpc;  swpc = c_localswpc;  curlab = c_lab1
27369 @ 230657:               LINE   4843 "regression-compile-tmp/imp22g-77.imp"
27370 @ 230697:               PUSH   PC
27371 @ 230700:               PUSH   C
27372 @ 230703:               SELECT 13
27373 @ 230706:               ASSVAL
27374 @ 230707:               LINE   4843 "regression-compile-tmp/imp22g-77.imp"
27375 @ 230747:               PUSH   SWPC
27376 @ 230750:               PUSH   C
27377 @ 230753:               SELECT 14
27378 @ 230756:               ASSVAL
27379 @ 230757:               LINE   4843 "regression-compile-tmp/imp22g-77.imp"
27380 @ 230797:               PUSH   CURLAB
27381 @ 230800:               PUSH   C
27382 @ 230803:               SELECT 18
27383 @ 230806:               ASSVAL

  4844    dlim = c_parlim
  4845  !  %for i = 0,1,255 %cycle
  4846  !    hashindex(i) = dict(hashindex(i))_hlink %while hashindex(i) >= c_localdpos
  4847  !  %repeat
27384 @ 230807:               LINE   4844 "regression-compile-tmp/imp22g-77.imp"
27385 @ 230847:               PUSH   DLIM
27386 @ 230850:               PUSH   C
27387 @ 230853:               SELECT 9
27388 @ 230856:               ASSVAL

  4848    %if level > outerlevel %start
27389 @ 230857:               LINE   4848 "regression-compile-tmp/imp22g-77.imp"
27390 @ 230897:               PUSH   LEVEL
27391 @ 230900:               PUSHI  #0x00000000
27392 @ 230905:               JUMPIF <= L_0004

  4849      charlim = c_localtext
27393 @ 230909:               LINE   4849 "regression-compile-tmp/imp22g-77.imp"
27394 @ 230949:               PUSH   CHARLIM
27395 @ 230952:               PUSH   C
27396 @ 230955:               SELECT 10
27397 @ 230958:               ASSVAL

  4850      ranges = dict(ranges)_hlink %while ranges >= c_parlim
27398 @ 230959:               LINE   4850 "regression-compile-tmp/imp22g-77.imp"
27399 @ 230999:               LOCATE L_0006
27400 @ 231002:               PUSH   RANGES
27401 @ 231005:               PUSH   C
27402 @ 231008:               SELECT 9
27403 @ 231011:               JUMPIF < L_0007
27404 @ 231015:               PUSH   RANGES
27405 @ 231018:               PUSH   DICT
27406 @ 231021:               PUSH   RANGES
27407 @ 231024:               ACCESS
27408 @ 231025:               SELECT 12
27409 @ 231028:               ASSVAL
27410 @ 231029:               REPEAT L_0006
27411 @ 231032:               LOCATE L_0007

  4851      c_dpid_type = crunched(c_dpid_type)
27412 @ 231035:               LINE   4851 "regression-compile-tmp/imp22g-77.imp"
27413 @ 231075:               PUSH   C
27414 @ 231078:               SELECT 29
27415 @ 231081:               SELECT 2
27416 @ 231084:               PUSH   CRUNCHED
27417 @ 231087:               PUSH   C
27418 @ 231090:               SELECT 29
27419 @ 231093:               SELECT 2
27420 @ 231096:               ASSPAR
27421 @ 231097:               CALL  
27422 @ 231098:               ASSVAL

  4852      level = level-1;  c = hold(level)
27423 @ 231099:               LINE   4852 "regression-compile-tmp/imp22g-77.imp"
27424 @ 231139:               PUSH   LEVEL
27425 @ 231142:               PUSH   LEVEL
27426 @ 231145:               PUSHI  #0x00000001
27427 @ 231150:               SUB   
27428 @ 231151:               ASSVAL
27429 @ 231152:               LINE   4852 "regression-compile-tmp/imp22g-77.imp"
27430 @ 231192:               PUSH   C
27431 @ 231195:               PUSH   HOLD
27432 @ 231198:               PUSH   LEVEL
27433 @ 231201:               ACCESS
27434 @ 231202:               ASSVAL

  4853      control = control&editbit ! c_oldcontrol&(\editbit)
27435 @ 231203:               LINE   4853 "regression-compile-tmp/imp22g-77.imp"
27436 @ 231243:               PUSH   CONTROL
27437 @ 231246:               PUSH   CONTROL
27438 @ 231249:               PUSHI  #0x00002000
27439 @ 231254:               AND   
27440 @ 231255:               PUSH   C
27441 @ 231258:               SELECT 26
27442 @ 231261:               PUSHI  #0x00002000
27443 @ 231266:               NOT   
27444 @ 231267:               AND   
27445 @ 231268:               OR    
27446 @ 231269:               ASSVAL

  4854    %finish
27447 @ 231270:               LINE   4854 "regression-compile-tmp/imp22g-77.imp"
27448 @ 231310:               LOCATE L_0004

  4855    dictshown = dlim %if dictshown > dlim
27449 @ 231313:               LINE   4855 "regression-compile-tmp/imp22g-77.imp"
27450 @ 231353:               PUSH   DICTSHOWN
27451 @ 231356:               PUSH   DLIM
27452 @ 231359:               JUMPIF <= L_0004
27453 @ 231363:               PUSH   DICTSHOWN
27454 @ 231366:               PUSH   DLIM
27455 @ 231369:               ASSVAL
27456 @ 231370:               LOCATE L_0004

  4856    starts = 0;  cycles = 0
27457 @ 231373:               LINE   4856 "regression-compile-tmp/imp22g-77.imp"
27458 @ 231413:               PUSH   STARTS
27459 @ 231416:               PUSHI  #0x00000000
27460 @ 231421:               ASSVAL
27461 @ 231422:               LINE   4856 "regression-compile-tmp/imp22g-77.imp"
27462 @ 231462:               PUSH   CYCLES
27463 @ 231465:               PUSHI  #0x00000000
27464 @ 231470:               ASSVAL

  4857  %end
  4858  
27465 @ 231471:               LINE   4857 "regression-compile-tmp/imp22g-77.imp"
27466 @ 231511:            END    _lev0id0_POPCONTEXT {lev=2 --> 1}

  4859  %routine FIXUP SWITCH VECTOR(%integer pos,%record(identinfo)%name dp)
27467 @ 231512:            LINE   4859 "regression-compile-tmp/imp22g-77.imp"
27468 @ 231552:            DEF    FIXUPSWITCHVECTOR (_lev0id0_FIXUPSWITCHVECTOR) p1=V_0153 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
27469 @ 231581:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
27470 @ 231582:                  DEF    POS p1=V_0154 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
27471 @ 231597:                  DEF    DP p1=V_0155 a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
27472 @ 231611:               FINISH ) {lev=2}

  4860  %integer x,y,j,default,temp,lo,hi
27473 @ 231612:               LINE   4860 "regression-compile-tmp/imp22g-77.imp"
27474 @ 231652:               DEF    X p1=V_0156 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
27475 @ 231665:               DEF    Y p1=V_0157 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
27476 @ 231678:               DEF    J p1=V_0158 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
27477 @ 231691:               DEF    DEFAULT p1=V_0159 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
27478 @ 231710:               DEF    TEMP p1=V_015a a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
27479 @ 231726:               DEF    LO p1=V_015b a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
27480 @ 231740:               DEF    HI p1=V_015c a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  4861  %record(identinfo)%name tp
27481 @ 231754:               LINE   4861 "regression-compile-tmp/imp22g-77.imp"
27482 @ 231794:               DEF    TP p1=V_015d a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  4862    tp==typecell(dp_type)
27483 @ 231808:               LINE   4862 "regression-compile-tmp/imp22g-77.imp"
27484 @ 231848:               PUSH   TP
27485 @ 231851:               PUSH   TYPECELL
27486 @ 231854:               PUSH   DP
27487 @ 231857:               SELECT 2
27488 @ 231860:               ASSPAR
27489 @ 231861:               CALL  
27490 @ 231862:               ASSREF

  4863    x = dp_val
27491 @ 231863:               LINE   4863 "regression-compile-tmp/imp22g-77.imp"
27492 @ 231903:               PUSH   X
27493 @ 231906:               PUSH   DP
27494 @ 231909:               SELECT 9
27495 @ 231912:               ASSVAL

  4864    default = dp_link;  default = pc %if default = 0
27496 @ 231913:               LINE   4864 "regression-compile-tmp/imp22g-77.imp"
27497 @ 231953:               PUSH   DEFAULT
27498 @ 231956:               PUSH   DP
27499 @ 231959:               SELECT 3
27500 @ 231962:               ASSVAL
27501 @ 231963:               LINE   4864 "regression-compile-tmp/imp22g-77.imp"
27502 @ 232003:               PUSH   DEFAULT
27503 @ 232006:               PUSHI  #0x00000000
27504 @ 232011:               JUMPIF # L_0004
27505 @ 232015:               PUSH   DEFAULT
27506 @ 232018:               PUSH   PC
27507 @ 232021:               ASSVAL
27508 @ 232022:               LOCATE L_0004

  4865    get bounds(tp_xtype,lo,hi)
27509 @ 232025:               LINE   4865 "regression-compile-tmp/imp22g-77.imp"
27510 @ 232065:               PUSH   GETBOUNDS
27511 @ 232068:               PUSH   TP
27512 @ 232071:               SELECT 4
27513 @ 232074:               ASSPAR
27514 @ 232075:               PUSH   LO
27515 @ 232078:               ASSPAR
27516 @ 232079:               PUSH   HI
27517 @ 232082:               ASSPAR
27518 @ 232083:               CALL  

  4866    %if dp_flags&arrflag = 0 %then j = pflag(x-1)+lo %c
  4867    %else j = pflag(x-7);  !allow for dope info
27519 @ 232084:               LINE   4866 "regression-compile-tmp/imp22g-77.imp"
27520 @ 232124:               PUSH   DP
27521 @ 232127:               SELECT 1
27522 @ 232130:               PUSHI  #0x00000008
27523 @ 232135:               AND   
27524 @ 232136:               PUSHI  #0x00000000
27525 @ 232141:               JUMPIF # L_0004
27526 @ 232145:               PUSH   J
27527 @ 232148:               PUSH   PFLAG
27528 @ 232151:               PUSH   X
27529 @ 232154:               PUSHI  #0x00000001
27530 @ 232159:               SUB   
27531 @ 232160:               ACCESS
27532 @ 232161:               PUSH   LO
27533 @ 232164:               ADD   
27534 @ 232165:               ASSVAL
27535 @ 232166:               GOTO   L_0003
27536 @ 232169:               LOCATE L_0004
27537 @ 232172:               PUSH   J
27538 @ 232175:               PUSH   PFLAG
27539 @ 232178:               PUSH   X
27540 @ 232181:               PUSHI  #0x00000007
27541 @ 232186:               SUB   
27542 @ 232187:               ACCESS
27543 @ 232188:               ASSVAL
27544 @ 232189:               LOCATE L_0003

  4868    j = x-j;  !base position
27545 @ 232192:               LINE   4868 "regression-compile-tmp/imp22g-77.imp"
27546 @ 232232:               PUSH   J
27547 @ 232235:               PUSH   X
27548 @ 232238:               PUSH   J
27549 @ 232241:               SUB   
27550 @ 232242:               ASSVAL

  4869    %while lo <= hi %cycle;  !For each element
27551 @ 232243:               LINE   4869 "regression-compile-tmp/imp22g-77.imp"
27552 @ 232283:               LOCATE L_0003
27553 @ 232286:               PUSH   LO
27554 @ 232289:               PUSH   HI
27555 @ 232292:               JUMPIF > L_0004

  4870      y = prog(x)
27556 @ 232296:               LINE   4870 "regression-compile-tmp/imp22g-77.imp"
27557 @ 232336:               PUSH   Y
27558 @ 232339:               PUSH   PROG
27559 @ 232342:               PUSH   X
27560 @ 232345:               ACCESS
27561 @ 232346:               ASSVAL

  4871      %if y <= 0 %start;  !not set
27562 @ 232347:               LINE   4871 "regression-compile-tmp/imp22g-77.imp"
27563 @ 232387:               PUSH   Y
27564 @ 232390:               PUSHI  #0x00000000
27565 @ 232395:               JUMPIF > L_0007

  4872        %if dp_link = 0 %start;  !no default
27566 @ 232399:               LINE   4872 "regression-compile-tmp/imp22g-77.imp"
27567 @ 232439:               PUSH   DP
27568 @ 232442:               SELECT 3
27569 @ 232445:               PUSHI  #0x00000000
27570 @ 232450:               JUMPIF # L_000a

  4873          report(slabmissing+warn,pos,lo)
27571 @ 232454:               LINE   4873 "regression-compile-tmp/imp22g-77.imp"
27572 @ 232494:               PUSH   REPORT
27573 @ 232497:               PUSHI  #0x0000002e
27574 @ 232502:               PUSHI  #0xffffff80
27575 @ 232507:               ADD   
27576 @ 232508:               ASSPAR
27577 @ 232509:               PUSH   POS
27578 @ 232512:               ASSPAR
27579 @ 232513:               PUSH   LO
27580 @ 232516:               ASSPAR
27581 @ 232517:               CALL  

  4874          c_access = 1
27582 @ 232518:               LINE   4874 "regression-compile-tmp/imp22g-77.imp"
27583 @ 232558:               PUSH   C
27584 @ 232561:               SELECT 16
27585 @ 232564:               PUSHI  #0x00000001
27586 @ 232569:               ASSVAL

  4875        %finish
27587 @ 232570:               LINE   4875 "regression-compile-tmp/imp22g-77.imp"
27588 @ 232610:               LOCATE L_000a

  4876        %if y < 0 %start;  !explicit jump(s) to this one
27589 @ 232613:               LINE   4876 "regression-compile-tmp/imp22g-77.imp"
27590 @ 232653:               PUSH   Y
27591 @ 232656:               PUSHI  #0x00000000
27592 @ 232661:               JUMPIF >= L_000a

  4877          y = -y
27593 @ 232665:               LINE   4877 "regression-compile-tmp/imp22g-77.imp"
27594 @ 232705:               PUSH   Y
27595 @ 232708:               PUSH   Y
27596 @ 232711:               NEGATE
27597 @ 232712:               ASSVAL

  4878          %cycle;  !define jumps to default
27598 @ 232713:               LINE   4878 "regression-compile-tmp/imp22g-77.imp"
27599 @ 232753:               LOCATE L_000c

  4879            temp = y;  y = prog(temp);  prog(temp) = default
27600 @ 232756:               LINE   4879 "regression-compile-tmp/imp22g-77.imp"
27601 @ 232796:               PUSH   TEMP
27602 @ 232799:               PUSH   Y
27603 @ 232802:               ASSVAL
27604 @ 232803:               LINE   4879 "regression-compile-tmp/imp22g-77.imp"
27605 @ 232843:               PUSH   Y
27606 @ 232846:               PUSH   PROG
27607 @ 232849:               PUSH   TEMP
27608 @ 232852:               ACCESS
27609 @ 232853:               ASSVAL
27610 @ 232854:               LINE   4879 "regression-compile-tmp/imp22g-77.imp"
27611 @ 232894:               PUSH   PROG
27612 @ 232897:               PUSH   TEMP
27613 @ 232900:               ACCESS
27614 @ 232901:               PUSH   DEFAULT
27615 @ 232904:               ASSVAL

  4880          %repeat %until y = 0
27616 @ 232905:               LINE   4880 "regression-compile-tmp/imp22g-77.imp"
27617 @ 232945:               PUSH   Y
27618 @ 232948:               PUSHI  #0x00000000
27619 @ 232953:               JUMPIF = L_000d
27620 @ 232957:               REPEAT L_000c
27621 @ 232960:               LOCATE L_000d

  4881        %finish
27622 @ 232963:               LINE   4881 "regression-compile-tmp/imp22g-77.imp"
27623 @ 233003:               LOCATE L_000a

  4882        y = default
27624 @ 233006:               LINE   4882 "regression-compile-tmp/imp22g-77.imp"
27625 @ 233046:               PUSH   Y
27626 @ 233049:               PUSH   DEFAULT
27627 @ 233052:               ASSVAL

  4883      %finish
27628 @ 233053:               LINE   4883 "regression-compile-tmp/imp22g-77.imp"
27629 @ 233093:               LOCATE L_0007

  4884      prog(x) = (y-pflag(y)-j)<<1
27630 @ 233096:               LINE   4884 "regression-compile-tmp/imp22g-77.imp"
27631 @ 233136:               PUSH   PROG
27632 @ 233139:               PUSH   X
27633 @ 233142:               ACCESS
27634 @ 233143:               PUSH   Y
27635 @ 233146:               PUSH   PFLAG
27636 @ 233149:               PUSH   Y
27637 @ 233152:               ACCESS
27638 @ 233153:               SUB   
27639 @ 233154:               PUSH   J
27640 @ 233157:               SUB   
27641 @ 233158:               PUSHI  #0x00000001
27642 @ 233163:               LSH   
27643 @ 233164:               ASSVAL

  4885      x = x+1;  lo = lo+1
27644 @ 233165:               LINE   4885 "regression-compile-tmp/imp22g-77.imp"
27645 @ 233205:               PUSH   X
27646 @ 233208:               PUSH   X
27647 @ 233211:               PUSHI  #0x00000001
27648 @ 233216:               ADD   
27649 @ 233217:               ASSVAL
27650 @ 233218:               LINE   4885 "regression-compile-tmp/imp22g-77.imp"
27651 @ 233258:               PUSH   LO
27652 @ 233261:               PUSH   LO
27653 @ 233264:               PUSHI  #0x00000001
27654 @ 233269:               ADD   
27655 @ 233270:               ASSVAL

  4886    %repeat
27656 @ 233271:               LINE   4886 "regression-compile-tmp/imp22g-77.imp"
27657 @ 233311:               REPEAT L_0003
27658 @ 233314:               LOCATE L_0004

  4887  %end
  4888  
27659 @ 233317:               LINE   4887 "regression-compile-tmp/imp22g-77.imp"
27660 @ 233357:            END    _lev0id0_FIXUPSWITCHVECTOR {lev=2 --> 1}

  4889  %routine CLOSE BLOCK
27661 @ 233358:            LINE   4889 "regression-compile-tmp/imp22g-77.imp"
27662 @ 233398:            DEF    CLOSEBLOCK (_lev0id0_CLOSEBLOCK) p1=V_0154 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
27663 @ 233420:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
27664 @ 233421:               FINISH ) {lev=2}

  4890  %integer miss,under,pos,base
27665 @ 233422:               LINE   4890 "regression-compile-tmp/imp22g-77.imp"
27666 @ 233462:               DEF    MISS p1=V_0155 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
27667 @ 233478:               DEF    UNDER p1=V_0156 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
27668 @ 233495:               DEF    POS p1=V_0157 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
27669 @ 233510:               DEF    BASE p1=V_0158 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  4891  %record(identinfo)%name dp
  4892   ! WRONGCC is clear if all %result statements leave correct CC
27670 @ 233526:               LINE   4891 "regression-compile-tmp/imp22g-77.imp"
27671 @ 233566:               DEF    DP p1=V_0159 a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  4893    %if c_type > 0 %and c_status&wrongcc = 0 %start
  4894     ! set special values and see if they survive exit sequence
27672 @ 233580:               LINE   4893 "regression-compile-tmp/imp22g-77.imp"
27673 @ 233620:               PUSH   C
27674 @ 233623:               SELECT 7
27675 @ 233626:               PUSHI  #0x00000000
27676 @ 233631:               JUMPIF <= L_0004
27677 @ 233635:               PUSH   C
27678 @ 233638:               SELECT 6
27679 @ 233641:               PUSHI  #0x00000004
27680 @ 233646:               AND   
27681 @ 233647:               PUSHI  #0x00000000
27682 @ 233652:               JUMPIF # L_0004

  4895      c_reg_ccx = 0;  c_reg_ccy = 0
27683 @ 233656:               LINE   4895 "regression-compile-tmp/imp22g-77.imp"
27684 @ 233696:               PUSH   C
27685 @ 233699:               SELECT 30
27686 @ 233702:               SELECT 1
27687 @ 233705:               PUSHI  #0x00000000
27688 @ 233710:               ASSVAL
27689 @ 233711:               LINE   4895 "regression-compile-tmp/imp22g-77.imp"
27690 @ 233751:               PUSH   C
27691 @ 233754:               SELECT 30
27692 @ 233757:               SELECT 2
27693 @ 233760:               PUSHI  #0x00000000
27694 @ 233765:               ASSVAL

  4896    %finish
27695 @ 233766:               LINE   4896 "regression-compile-tmp/imp22g-77.imp"
27696 @ 233806:               LOCATE L_0004

  4897    %if c_return # 0 %start
27697 @ 233809:               LINE   4897 "regression-compile-tmp/imp22g-77.imp"
27698 @ 233849:               PUSH   C
27699 @ 233852:               SELECT 22
27700 @ 233855:               PUSHI  #0x00000000
27701 @ 233860:               JUMPIF = L_0004

  4898      %if c_return = -(pc-1) %and c_access = 0 %start
27702 @ 233864:               LINE   4898 "regression-compile-tmp/imp22g-77.imp"
27703 @ 233904:               PUSH   C
27704 @ 233907:               SELECT 22
27705 @ 233910:               PUSH   PC
27706 @ 233913:               PUSHI  #0x00000001
27707 @ 233918:               SUB   
27708 @ 233919:               NEGATE
27709 @ 233920:               JUMPIF # L_0007
27710 @ 233924:               PUSH   C
27711 @ 233927:               SELECT 16
27712 @ 233930:               PUSHI  #0x00000000
27713 @ 233935:               JUMPIF # L_0007

  4899        c_return = -prog(pc-1);  pc = pc-2 
27714 @ 233939:               LINE   4899 "regression-compile-tmp/imp22g-77.imp"
27715 @ 233979:               PUSH   C
27716 @ 233982:               SELECT 22
27717 @ 233985:               PUSH   PROG
27718 @ 233988:               PUSH   PC
27719 @ 233991:               PUSHI  #0x00000001
27720 @ 233996:               SUB   
27721 @ 233997:               ACCESS
27722 @ 233998:               NEGATE
27723 @ 233999:               ASSVAL
27724 @ 234000:               LINE   4899 "regression-compile-tmp/imp22g-77.imp"
27725 @ 234040:               PUSH   PC
27726 @ 234043:               PUSH   PC
27727 @ 234046:               PUSHI  #0x00000002
27728 @ 234051:               SUB   
27729 @ 234052:               ASSVAL

  4900      %finish
27730 @ 234053:               LINE   4900 "regression-compile-tmp/imp22g-77.imp"
27731 @ 234093:               LOCATE L_0007

  4901      define jumps(c_return);  !must precede switch fixup
27732 @ 234096:               LINE   4901 "regression-compile-tmp/imp22g-77.imp"
27733 @ 234136:               PUSH   DEFINEJUMPS
27734 @ 234139:               PUSH   C
27735 @ 234142:               SELECT 22
27736 @ 234145:               ASSPAR
27737 @ 234146:               CALL  

  4902      c_access = -1
27738 @ 234147:               LINE   4902 "regression-compile-tmp/imp22g-77.imp"
27739 @ 234187:               PUSH   C
27740 @ 234190:               SELECT 16
27741 @ 234193:               PUSHI  #0x00000001
27742 @ 234198:               NEGATE
27743 @ 234199:               ASSVAL

  4903    %finish
27744 @ 234200:               LINE   4903 "regression-compile-tmp/imp22g-77.imp"
27745 @ 234240:               LOCATE L_0004

  4904    pflag(pc) = c_shorts;      !in case of terminal switch labels
27746 @ 234243:               LINE   4904 "regression-compile-tmp/imp22g-77.imp"
27747 @ 234283:               PUSH   PFLAG
27748 @ 234286:               PUSH   PC
27749 @ 234289:               ACCESS
27750 @ 234290:               PUSH   C
27751 @ 234293:               SELECT 23
27752 @ 234296:               ASSVAL

  4905    %if c_status&hadswitch # 0 %start
27753 @ 234297:               LINE   4905 "regression-compile-tmp/imp22g-77.imp"
27754 @ 234337:               PUSH   C
27755 @ 234340:               SELECT 6
27756 @ 234343:               PUSHI  #0x00000080
27757 @ 234348:               AND   
27758 @ 234349:               PUSHI  #0x00000000
27759 @ 234354:               JUMPIF = L_0004

  4906      pos = c_localdpos
27760 @ 234358:               LINE   4906 "regression-compile-tmp/imp22g-77.imp"
27761 @ 234398:               PUSH   POS
27762 @ 234401:               PUSH   C
27763 @ 234404:               SELECT 8
27764 @ 234407:               ASSVAL

  4907      %while pos < dlim %cycle
27765 @ 234408:               LINE   4907 "regression-compile-tmp/imp22g-77.imp"
27766 @ 234448:               LOCATE L_0006
27767 @ 234451:               PUSH   POS
27768 @ 234454:               PUSH   DLIM
27769 @ 234457:               JUMPIF >= L_0007

  4908        dp == dict(pos)
27770 @ 234461:               LINE   4908 "regression-compile-tmp/imp22g-77.imp"
27771 @ 234501:               PUSH   DP
27772 @ 234504:               PUSH   DICT
27773 @ 234507:               PUSH   POS
27774 @ 234510:               ACCESS
27775 @ 234511:               ASSREF

  4909        fixup switch vector(pos,dp) %if dp_mode = labmode %and dp_type # 0
27776 @ 234512:               LINE   4909 "regression-compile-tmp/imp22g-77.imp"
27777 @ 234552:               PUSH   DP
27778 @ 234555:               SELECT 8
27779 @ 234558:               PUSHI  #0x000000ba
27780 @ 234563:               JUMPIF # L_000a
27781 @ 234567:               PUSH   DP
27782 @ 234570:               SELECT 2
27783 @ 234573:               PUSHI  #0x00000000
27784 @ 234578:               JUMPIF = L_000a
27785 @ 234582:               PUSH   FIXUPSWITCHVECTOR
27786 @ 234585:               PUSH   POS
27787 @ 234588:               ASSPAR
27788 @ 234589:               PUSH   DP
27789 @ 234592:               ASSPAR
27790 @ 234593:               CALL  
27791 @ 234594:               LOCATE L_000a

  4910        pos = pos+1
27792 @ 234597:               LINE   4910 "regression-compile-tmp/imp22g-77.imp"
27793 @ 234637:               PUSH   POS
27794 @ 234640:               PUSH   POS
27795 @ 234643:               PUSHI  #0x00000001
27796 @ 234648:               ADD   
27797 @ 234649:               ASSVAL

  4911      %repeat
27798 @ 234650:               LINE   4911 "regression-compile-tmp/imp22g-77.imp"
27799 @ 234690:               REPEAT L_0006
27800 @ 234693:               LOCATE L_0007

  4912    %finish
27801 @ 234696:               LINE   4912 "regression-compile-tmp/imp22g-77.imp"
27802 @ 234736:               LOCATE L_0004

  4913    compile end
27803 @ 234739:               LINE   4913 "regression-compile-tmp/imp22g-77.imp"
27804 @ 234779:               PUSH   COMPILEEND
27805 @ 234782:               CALL  

  4914    c_totstack = c_totstack-c_extra
27806 @ 234783:               LINE   4914 "regression-compile-tmp/imp22g-77.imp"
27807 @ 234823:               PUSH   C
27808 @ 234826:               SELECT 4
27809 @ 234829:               PUSH   C
27810 @ 234832:               SELECT 4
27811 @ 234835:               PUSH   C
27812 @ 234838:               SELECT 3
27813 @ 234841:               SUB   
27814 @ 234842:               ASSVAL

  4915    c_totstack = -c_totstack %if c_status&unknown = 0;  !positive if firm
27815 @ 234843:               LINE   4915 "regression-compile-tmp/imp22g-77.imp"
27816 @ 234883:               PUSH   C
27817 @ 234886:               SELECT 6
27818 @ 234889:               PUSHI  #0x00000002
27819 @ 234894:               AND   
27820 @ 234895:               PUSHI  #0x00000000
27821 @ 234900:               JUMPIF # L_0004
27822 @ 234904:               PUSH   C
27823 @ 234907:               SELECT 4
27824 @ 234910:               PUSH   C
27825 @ 234913:               SELECT 4
27826 @ 234916:               NEGATE
27827 @ 234917:               ASSVAL
27828 @ 234918:               LOCATE L_0004

  4916    typecell(c_dpid_type)_val = c_totstack
27829 @ 234921:               LINE   4916 "regression-compile-tmp/imp22g-77.imp"
27830 @ 234961:               PUSH   TYPECELL
27831 @ 234964:               PUSH   C
27832 @ 234967:               SELECT 29
27833 @ 234970:               SELECT 2
27834 @ 234973:               ASSPAR
27835 @ 234974:               CALL  
27836 @ 234975:               SELECT 9
27837 @ 234978:               PUSH   C
27838 @ 234981:               SELECT 4
27839 @ 234984:               ASSVAL

  4917  {?}  %if control&maplist # 0 %start
27840 @ 234985:               LINE   4917 "regression-compile-tmp/imp22g-77.imp"
27841 @ 235025:               PUSH   CONTROL
27842 @ 235028:               PUSHI  #0x00000004
27843 @ 235033:               AND   
27844 @ 235034:               PUSHI  #0x00000000
27845 @ 235039:               JUMPIF = L_0004

  4918  {?}    put ident(c_pid,0)
27846 @ 235043:               LINE   4918 "regression-compile-tmp/imp22g-77.imp"
27847 @ 235083:               PUSH   PUTIDENT
27848 @ 235086:               PUSH   C
27849 @ 235089:               SELECT 15
27850 @ 235092:               ASSPAR
27851 @ 235093:               PUSHI  #0x00000000
27852 @ 235098:               ASSPAR
27853 @ 235099:               CALL  

  4919  {?}    mark at(20)
27854 @ 235100:               LINE   4919 "regression-compile-tmp/imp22g-77.imp"
27855 @ 235140:               PUSH   MARKAT
27856 @ 235143:               PUSHI  #0x00000014
27857 @ 235148:               ASSPAR
27858 @ 235149:               CALL  

  4920  {?}    put string(" code:")
27859 @ 235150:               LINE   4920 "regression-compile-tmp/imp22g-77.imp"
27860 @ 235190:               PUSH   PUTSTRING
27861 @ 235193:               PUSHS  " code:"
27862 @ 235201:               ASSPAR
27863 @ 235202:               CALL  

  4921  {?}    put num(cad-c_localad-accounted)
27864 @ 235203:               LINE   4921 "regression-compile-tmp/imp22g-77.imp"
27865 @ 235243:               PUSH   PUTNUM
27866 @ 235246:               PUSH   CAD
27867 @ 235249:               PUSH   C
27868 @ 235252:               SELECT 11
27869 @ 235255:               SUB   
27870 @ 235256:               PUSH   ACCOUNTED
27871 @ 235259:               SUB   
27872 @ 235260:               ASSPAR
27873 @ 235261:               CALL  

  4922  {?}    put string("  entry:")
27874 @ 235262:               LINE   4922 "regression-compile-tmp/imp22g-77.imp"
27875 @ 235302:               PUSH   PUTSTRING
27876 @ 235305:               PUSHS  "  entry:"
27877 @ 235315:               ASSPAR
27878 @ 235316:               CALL  

  4923  {?}    put num(c_dpid_val-c_localad-accounted)
27879 @ 235317:               LINE   4923 "regression-compile-tmp/imp22g-77.imp"
27880 @ 235357:               PUSH   PUTNUM
27881 @ 235360:               PUSH   C
27882 @ 235363:               SELECT 29
27883 @ 235366:               SELECT 9
27884 @ 235369:               PUSH   C
27885 @ 235372:               SELECT 11
27886 @ 235375:               SUB   
27887 @ 235376:               PUSH   ACCOUNTED
27888 @ 235379:               SUB   
27889 @ 235380:               ASSPAR
27890 @ 235381:               CALL  

  4924  {?}    put string("  stack:");  put num(-c_stack)
27891 @ 235382:               LINE   4924 "regression-compile-tmp/imp22g-77.imp"
27892 @ 235422:               PUSH   PUTSTRING
27893 @ 235425:               PUSHS  "  stack:"
27894 @ 235435:               ASSPAR
27895 @ 235436:               CALL  
27896 @ 235437:               LINE   4924 "regression-compile-tmp/imp22g-77.imp"
27897 @ 235477:               PUSH   PUTNUM
27898 @ 235480:               PUSH   C
27899 @ 235483:               SELECT 2
27900 @ 235486:               NEGATE
27901 @ 235487:               ASSPAR
27902 @ 235488:               CALL  

  4925  {?}    putsym('/');  put num(imod(c_totstack))
27903 @ 235489:               LINE   4925 "regression-compile-tmp/imp22g-77.imp"
27904 @ 235529:               PUSH   PUTSYM
27905 @ 235532:               PUSHI  #0x0000002f
27906 @ 235537:               ASSPAR
27907 @ 235538:               CALL  
27908 @ 235539:               LINE   4925 "regression-compile-tmp/imp22g-77.imp"
27909 @ 235579:               PUSH   PUTNUM
27910 @ 235582:               PUSH   IMOD
27911 @ 235585:               PUSH   C
27912 @ 235588:               SELECT 4
27913 @ 235591:               ASSPAR
27914 @ 235592:               CALL  
27915 @ 235593:               ASSPAR
27916 @ 235594:               CALL  

  4926  {?}    put sym('+') %if c_totstack < 0
27917 @ 235595:               LINE   4926 "regression-compile-tmp/imp22g-77.imp"
27918 @ 235635:               PUSH   C
27919 @ 235638:               SELECT 4
27920 @ 235641:               PUSHI  #0x00000000
27921 @ 235646:               JUMPIF >= L_0007
27922 @ 235650:               PUSH   PUTSYM
27923 @ 235653:               PUSHI  #0x0000002b
27924 @ 235658:               ASSPAR
27925 @ 235659:               CALL  
27926 @ 235660:               LOCATE L_0007

  4927  {?}    accounted = cad-c_localad
27927 @ 235663:               LINE   4927 "regression-compile-tmp/imp22g-77.imp"
27928 @ 235703:               PUSH   ACCOUNTED
27929 @ 235706:               PUSH   CAD
27930 @ 235709:               PUSH   C
27931 @ 235712:               SELECT 11
27932 @ 235715:               SUB   
27933 @ 235716:               ASSVAL

  4928  {?}    print line
27934 @ 235717:               LINE   4928 "regression-compile-tmp/imp22g-77.imp"
27935 @ 235757:               PUSH   PRINTLINE
27936 @ 235760:               CALL  

  4929  {?}  %finish
  4930    !Check identifier usage
27937 @ 235761:               LINE   4929 "regression-compile-tmp/imp22g-77.imp"
27938 @ 235801:               LOCATE L_0004

  4931    miss = 0;  under = 0
27939 @ 235804:               LINE   4931 "regression-compile-tmp/imp22g-77.imp"
27940 @ 235844:               PUSH   MISS
27941 @ 235847:               PUSHI  #0x00000000
27942 @ 235852:               ASSVAL
27943 @ 235853:               LINE   4931 "regression-compile-tmp/imp22g-77.imp"
27944 @ 235893:               PUSH   UNDER
27945 @ 235896:               PUSHI  #0x00000000
27946 @ 235901:               ASSVAL

  4932    base = c_localdpos;  base = 0 %if level = outerlevel
27947 @ 235902:               LINE   4932 "regression-compile-tmp/imp22g-77.imp"
27948 @ 235942:               PUSH   BASE
27949 @ 235945:               PUSH   C
27950 @ 235948:               SELECT 8
27951 @ 235951:               ASSVAL
27952 @ 235952:               LINE   4932 "regression-compile-tmp/imp22g-77.imp"
27953 @ 235992:               PUSH   LEVEL
27954 @ 235995:               PUSHI  #0x00000000
27955 @ 236000:               JUMPIF # L_0004
27956 @ 236004:               PUSH   BASE
27957 @ 236007:               PUSHI  #0x00000000
27958 @ 236012:               ASSVAL
27959 @ 236013:               LOCATE L_0004

  4933    pos = dlim;  dp == dict(pos)
27960 @ 236016:               LINE   4933 "regression-compile-tmp/imp22g-77.imp"
27961 @ 236056:               PUSH   POS
27962 @ 236059:               PUSH   DLIM
27963 @ 236062:               ASSVAL
27964 @ 236063:               LINE   4933 "regression-compile-tmp/imp22g-77.imp"
27965 @ 236103:               PUSH   DP
27966 @ 236106:               PUSH   DICT
27967 @ 236109:               PUSH   POS
27968 @ 236112:               ACCESS
27969 @ 236113:               ASSREF

  4934    %while pos > base %cycle
27970 @ 236114:               LINE   4934 "regression-compile-tmp/imp22g-77.imp"
27971 @ 236154:               LOCATE L_0003
27972 @ 236157:               PUSH   POS
27973 @ 236160:               PUSH   BASE
27974 @ 236163:               JUMPIF <= L_0004

  4935      pos = pos-1;  dp == dict(pos)
27975 @ 236167:               LINE   4935 "regression-compile-tmp/imp22g-77.imp"
27976 @ 236207:               PUSH   POS
27977 @ 236210:               PUSH   POS
27978 @ 236213:               PUSHI  #0x00000001
27979 @ 236218:               SUB   
27980 @ 236219:               ASSVAL
27981 @ 236220:               LINE   4935 "regression-compile-tmp/imp22g-77.imp"
27982 @ 236260:               PUSH   DP
27983 @ 236263:               PUSH   DICT
27984 @ 236266:               PUSH   POS
27985 @ 236269:               ACCESS
27986 @ 236270:               ASSREF

  4936      %if dp_flags&ext = 0 %start
  4937  !<<IMP
  4938  !<<BOTH
27987 @ 236271:               LINE   4936 "regression-compile-tmp/imp22g-77.imp"
27988 @ 236311:               PUSH   DP
27989 @ 236314:               SELECT 1
27990 @ 236317:               PUSHI  #0x00004000
27991 @ 236322:               AND   
27992 @ 236323:               PUSHI  #0x00000000
27993 @ 236328:               JUMPIF # L_0007

  4939        %if dp_text > 0 %start;               !user id
27994 @ 236332:               LINE   4939 "regression-compile-tmp/imp22g-77.imp"
27995 @ 236372:               PUSH   DP
27996 @ 236375:               SELECT 11
27997 @ 236378:               PUSHI  #0x00000000
27998 @ 236383:               JUMPIF <= L_000a

  4940          set hashhead(string(dp_text+char0))
27999 @ 236387:               LINE   4940 "regression-compile-tmp/imp22g-77.imp"
28000 @ 236427:               PUSH   SETHASHHEAD
28001 @ 236430:               PUSH   STRING
28002 @ 236433:               PUSH   DP
28003 @ 236436:               SELECT 11
28004 @ 236439:               PUSH   CHAR0
28005 @ 236442:               ADD   
28006 @ 236443:               ASSPAR
28007 @ 236444:               CALL  
28008 @ 236445:               ASSPAR
28009 @ 236446:               CALL  

  4941          %if head = pos %start;              !still active
28010 @ 236447:               LINE   4941 "regression-compile-tmp/imp22g-77.imp"
28011 @ 236487:               PUSH   HEAD
28012 @ 236490:               PUSH   POS
28013 @ 236493:               JUMPIF # L_000d

  4942            head = dp_hlink;                  !remove from hash list
28014 @ 236497:               LINE   4942 "regression-compile-tmp/imp22g-77.imp"
28015 @ 236537:               PUSH   HEAD
28016 @ 236540:               PUSH   DP
28017 @ 236543:               SELECT 12
28018 @ 236546:               ASSVAL

  4943  check:    %if dp_flags&spec # 0 %start
28019 @ 236547:               LINE   4943 "regression-compile-tmp/imp22g-77.imp"
28020 @ 236587:               LABEL  L_015a
28021 @ 236590:               LINE   4943 "regression-compile-tmp/imp22g-77.imp"
28022 @ 236630:               PUSH   DP
28023 @ 236633:               SELECT 1
28024 @ 236636:               PUSHI  #0x00000100
28025 @ 236641:               AND   
28026 @ 236642:               PUSHI  #0x00000000
28027 @ 236647:               JUMPIF = L_0010

  4944              dp_hlink = miss;  miss = pos
28028 @ 236651:               LINE   4944 "regression-compile-tmp/imp22g-77.imp"
28029 @ 236691:               PUSH   DP
28030 @ 236694:               SELECT 12
28031 @ 236697:               PUSH   MISS
28032 @ 236700:               ASSVAL
28033 @ 236701:               LINE   4944 "regression-compile-tmp/imp22g-77.imp"
28034 @ 236741:               PUSH   MISS
28035 @ 236744:               PUSH   POS
28036 @ 236747:               ASSVAL

  4945            %finish %else %if ((dp_flags&(readable+rflag) = readable %and dp_mode # litmode) %c
  4946              %or (dp_flags&(writable+okflag+wflag+spec) = writable)) %c
  4947              %and pos >= c_localdpos %and dp_mode # 0 %and dp_flags&typeid = 0 %c
  4948              %and control&(list!maplist) # 0 %start
28037 @ 236748:               LINE   4945 "regression-compile-tmp/imp22g-77.imp"
28038 @ 236788:               GOTO   L_000f
28039 @ 236791:               LOCATE L_0010
28040 @ 236794:               PUSH   DP
28041 @ 236797:               SELECT 1
28042 @ 236800:               PUSHI  #0x00000002
28043 @ 236805:               PUSHI  #0x00000020
28044 @ 236810:               ADD   
28045 @ 236811:               AND   
28046 @ 236812:               PUSHI  #0x00000002
28047 @ 236817:               JUMPIF # L_0012
28048 @ 236821:               PUSH   DP
28049 @ 236824:               SELECT 8
28050 @ 236827:               PUSHI  #0x0000003c
28051 @ 236832:               JUMPIF # L_0011
28052 @ 236836:               LOCATE L_0012
28053 @ 236839:               PUSH   DP
28054 @ 236842:               SELECT 1
28055 @ 236845:               PUSHI  #0x00000001
28056 @ 236850:               PUSHI  #0x00000040
28057 @ 236855:               ADD   
28058 @ 236856:               PUSHI  #0x00000010
28059 @ 236861:               ADD   
28060 @ 236862:               PUSHI  #0x00000100
28061 @ 236867:               ADD   
28062 @ 236868:               AND   
28063 @ 236869:               PUSHI  #0x00000001
28064 @ 236874:               JUMPIF # L_0010
28065 @ 236878:               LOCATE L_0011
28066 @ 236881:               PUSH   POS
28067 @ 236884:               PUSH   C
28068 @ 236887:               SELECT 8
28069 @ 236890:               JUMPIF < L_0010
28070 @ 236894:               PUSH   DP
28071 @ 236897:               SELECT 8
28072 @ 236900:               PUSHI  #0x00000000
28073 @ 236905:               JUMPIF = L_0010
28074 @ 236909:               PUSH   DP
28075 @ 236912:               SELECT 1
28076 @ 236915:               PUSHI  #0x00000200
28077 @ 236920:               AND   
28078 @ 236921:               PUSHI  #0x00000000
28079 @ 236926:               JUMPIF # L_0010
28080 @ 236930:               PUSH   CONTROL
28081 @ 236933:               PUSHI  #0x00000001
28082 @ 236938:               PUSHI  #0x00000004
28083 @ 236943:               OR    
28084 @ 236944:               AND   
28085 @ 236945:               PUSHI  #0x00000000
28086 @ 236950:               JUMPIF = L_0010

  4949              dp_hlink = under;  under = pos
28087 @ 236954:               LINE   4949 "regression-compile-tmp/imp22g-77.imp"
28088 @ 236994:               PUSH   DP
28089 @ 236997:               SELECT 12
28090 @ 237000:               PUSH   UNDER
28091 @ 237003:               ASSVAL
28092 @ 237004:               LINE   4949 "regression-compile-tmp/imp22g-77.imp"
28093 @ 237044:               PUSH   UNDER
28094 @ 237047:               PUSH   POS
28095 @ 237050:               ASSVAL

  4950            %finish
28096 @ 237051:               LINE   4950 "regression-compile-tmp/imp22g-77.imp"
28097 @ 237091:               LOCATE L_0010
28098 @ 237094:               LOCATE L_000f

  4951          %finish
28099 @ 237097:               LINE   4951 "regression-compile-tmp/imp22g-77.imp"
28100 @ 237137:               LOCATE L_000d

  4952        %finish
28101 @ 237140:               LINE   4952 "regression-compile-tmp/imp22g-77.imp"
28102 @ 237180:               LOCATE L_000a

  4953      %finish %else %if level = outerlevel %start;  !external, external spec
28103 @ 237183:               LINE   4953 "regression-compile-tmp/imp22g-77.imp"
28104 @ 237223:               GOTO   L_0006
28105 @ 237226:               LOCATE L_0007
28106 @ 237229:               PUSH   LEVEL
28107 @ 237232:               PUSHI  #0x00000000
28108 @ 237237:               JUMPIF # L_0007

  4954        %if dp_flags&spec = 0 %start;  !external object
28109 @ 237241:               LINE   4954 "regression-compile-tmp/imp22g-77.imp"
28110 @ 237281:               PUSH   DP
28111 @ 237284:               SELECT 1
28112 @ 237287:               PUSHI  #0x00000100
28113 @ 237292:               AND   
28114 @ 237293:               PUSHI  #0x00000000
28115 @ 237298:               JUMPIF # L_000a

  4955          dp_link = externs;  externs = pos
28116 @ 237302:               LINE   4955 "regression-compile-tmp/imp22g-77.imp"
28117 @ 237342:               PUSH   DP
28118 @ 237345:               SELECT 3
28119 @ 237348:               PUSH   EXTERNS
28120 @ 237351:               ASSVAL
28121 @ 237352:               LINE   4955 "regression-compile-tmp/imp22g-77.imp"
28122 @ 237392:               PUSH   EXTERNS
28123 @ 237395:               PUSH   POS
28124 @ 237398:               ASSVAL

  4956        %finish %else %if dp_flags&(rflag+wflag) # 0 %start
  4957         !external spec (used)
28125 @ 237399:               LINE   4956 "regression-compile-tmp/imp22g-77.imp"
28126 @ 237439:               GOTO   L_0009
28127 @ 237442:               LOCATE L_000a
28128 @ 237445:               PUSH   DP
28129 @ 237448:               SELECT 1
28130 @ 237451:               PUSHI  #0x00000020
28131 @ 237456:               PUSHI  #0x00000010
28132 @ 237461:               ADD   
28133 @ 237462:               AND   
28134 @ 237463:               PUSHI  #0x00000000
28135 @ 237468:               JUMPIF = L_000a

  4958          dp_link = extspecs;  extspecs = pos
28136 @ 237472:               LINE   4958 "regression-compile-tmp/imp22g-77.imp"
28137 @ 237512:               PUSH   DP
28138 @ 237515:               SELECT 3
28139 @ 237518:               PUSH   EXTSPECS
28140 @ 237521:               ASSVAL
28141 @ 237522:               LINE   4958 "regression-compile-tmp/imp22g-77.imp"
28142 @ 237562:               PUSH   EXTSPECS
28143 @ 237565:               PUSH   POS
28144 @ 237568:               ASSVAL

  4959        %finish
28145 @ 237569:               LINE   4959 "regression-compile-tmp/imp22g-77.imp"
28146 @ 237609:               LOCATE L_000a
28147 @ 237612:               LOCATE L_0009

  4960      %finish
28148 @ 237615:               LINE   4960 "regression-compile-tmp/imp22g-77.imp"
28149 @ 237655:               LOCATE L_0007
28150 @ 237658:               LOCATE L_0006

  4961    %repeat
28151 @ 237661:               LINE   4961 "regression-compile-tmp/imp22g-77.imp"
28152 @ 237701:               REPEAT L_0003
28153 @ 237704:               LOCATE L_0004

  4962    report(idmissing,miss,0) %if miss # 0
28154 @ 237707:               LINE   4962 "regression-compile-tmp/imp22g-77.imp"
28155 @ 237747:               PUSH   MISS
28156 @ 237750:               PUSHI  #0x00000000
28157 @ 237755:               JUMPIF = L_0004
28158 @ 237759:               PUSH   REPORT
28159 @ 237762:               PUSHI  #0x0000002f
28160 @ 237767:               ASSPAR
28161 @ 237768:               PUSH   MISS
28162 @ 237771:               ASSPAR
28163 @ 237772:               PUSHI  #0x00000000
28164 @ 237777:               ASSPAR
28165 @ 237778:               CALL  
28166 @ 237779:               LOCATE L_0004

  4963    %if under # 0 %and c_faults = 0 %start
28167 @ 237782:               LINE   4963 "regression-compile-tmp/imp22g-77.imp"
28168 @ 237822:               PUSH   UNDER
28169 @ 237825:               PUSHI  #0x00000000
28170 @ 237830:               JUMPIF = L_0004
28171 @ 237834:               PUSH   C
28172 @ 237837:               SELECT 21
28173 @ 237840:               PUSHI  #0x00000000
28174 @ 237845:               JUMPIF # L_0004

  4964      put ident(under,1)
28175 @ 237849:               LINE   4964 "regression-compile-tmp/imp22g-77.imp"
28176 @ 237889:               PUSH   PUTIDENT
28177 @ 237892:               PUSH   UNDER
28178 @ 237895:               ASSPAR
28179 @ 237896:               PUSHI  #0x00000001
28180 @ 237901:               ASSPAR
28181 @ 237902:               CALL  

  4965      put string(" underused")
28182 @ 237903:               LINE   4965 "regression-compile-tmp/imp22g-77.imp"
28183 @ 237943:               PUSH   PUTSTRING
28184 @ 237946:               PUSHS  " underused"
28185 @ 237958:               ASSPAR
28186 @ 237959:               CALL  

  4966      print line
28187 @ 237960:               LINE   4966 "regression-compile-tmp/imp22g-77.imp"
28188 @ 238000:               PUSH   PRINTLINE
28189 @ 238003:               CALL  

  4967    %finish
28190 @ 238004:               LINE   4967 "regression-compile-tmp/imp22g-77.imp"
28191 @ 238044:               LOCATE L_0004

  4968    pop context
28192 @ 238047:               LINE   4968 "regression-compile-tmp/imp22g-77.imp"
28193 @ 238087:               PUSH   POPCONTEXT
28194 @ 238090:               CALL  

  4969    set first entry %if firstpos >= dlim
28195 @ 238091:               LINE   4969 "regression-compile-tmp/imp22g-77.imp"
28196 @ 238131:               PUSH   FIRSTPOS
28197 @ 238134:               PUSH   DLIM
28198 @ 238137:               JUMPIF < L_0004
28199 @ 238141:               PUSH   SETFIRSTENTRY
28200 @ 238144:               CALL  
28201 @ 238145:               LOCATE L_0004

  4970  %end;  !CLOSE BLOCK
  4971  
28202 @ 238148:               LINE   4970 "regression-compile-tmp/imp22g-77.imp"
28203 @ 238188:            END    _lev0id0_CLOSEBLOCK {lev=2 --> 1}

  4972  %routine ERROR(%integer case)
28204 @ 238189:            LINE   4972 "regression-compile-tmp/imp22g-77.imp"
28205 @ 238229:            DEF    ERROR (_lev0id0_ERROR) p1=V_0155 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
28206 @ 238246:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
28207 @ 238247:                  DEF    CASE p1=V_0156 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
28208 @ 238263:               FINISH ) {lev=2}

  4973    faultp = atomp
28209 @ 238264:               LINE   4973 "regression-compile-tmp/imp22g-77.imp"
28210 @ 238304:               PUSH   FAULTP
28211 @ 238307:               PUSH   ATOMP
28212 @ 238310:               ASSVAL

  4974    report(case,0,0)
28213 @ 238311:               LINE   4974 "regression-compile-tmp/imp22g-77.imp"
28214 @ 238351:               PUSH   REPORT
28215 @ 238354:               PUSH   CASE
28216 @ 238357:               ASSPAR
28217 @ 238358:               PUSHI  #0x00000000
28218 @ 238363:               ASSPAR
28219 @ 238364:               PUSHI  #0x00000000
28220 @ 238369:               ASSPAR
28221 @ 238370:               CALL  

  4975    %signal fail
28222 @ 238371:               LINE   4975 "regression-compile-tmp/imp22g-77.imp"
28223 @ 238411:               EVENT  000b

  4976  %end
  4977  
28224 @ 238414:               LINE   4976 "regression-compile-tmp/imp22g-77.imp"
28225 @ 238454:            END    _lev0id0_ERROR {lev=2 --> 1}

  4978  %constinteger DUD=63
28226 @ 238455:            LINE   4978 "regression-compile-tmp/imp22g-77.imp"

  4979  %routine SYNTAX ERROR
28227 @ 238495:            LINE   4979 "regression-compile-tmp/imp22g-77.imp"
28228 @ 238535:            DEF    SYNTAXERROR (_lev0id0_SYNTAXERROR) p1=V_0156 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
28229 @ 238558:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
28230 @ 238559:               FINISH ) {lev=2}

  4980    %if atom = dud %then error(atomerr+point) %else error(formerr+point)
28231 @ 238560:               LINE   4980 "regression-compile-tmp/imp22g-77.imp"
28232 @ 238600:               PUSH   ATOM
28233 @ 238603:               PUSHI  #0x0000003f
28234 @ 238608:               JUMPIF # L_0004
28235 @ 238612:               PUSH   ERROR
28236 @ 238615:               PUSHI  #0x00000008
28237 @ 238620:               PUSHI  #0x00000040
28238 @ 238625:               ADD   
28239 @ 238626:               ASSPAR
28240 @ 238627:               CALL  
28241 @ 238628:               LOCATE L_0004
28242 @ 238631:               PUSH   ERROR
28243 @ 238634:               PUSHI  #0x00000007
28244 @ 238639:               PUSHI  #0x00000040
28245 @ 238644:               ADD   
28246 @ 238645:               ASSPAR
28247 @ 238646:               CALL  

  4981  %end
  4982  
28248 @ 238647:               LINE   4981 "regression-compile-tmp/imp22g-77.imp"
28249 @ 238687:            END    _lev0id0_SYNTAXERROR {lev=2 --> 1}

  4983  %routine EXPFAULT(%integer case)
28250 @ 238688:            LINE   4983 "regression-compile-tmp/imp22g-77.imp"
28251 @ 238728:            DEF    EXPFAULT (_lev0id0_EXPFAULT) p1=V_0157 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
28252 @ 238748:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
28253 @ 238749:                  DEF    CASE p1=V_0158 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
28254 @ 238765:               FINISH ) {lev=2}

  4984    %if faultnum = 0 %or expp < faultp %start
28255 @ 238766:               LINE   4984 "regression-compile-tmp/imp22g-77.imp"
28256 @ 238806:               PUSH   FAULTNUM
28257 @ 238809:               PUSHI  #0x00000000
28258 @ 238814:               JUMPIF = L_0005
28259 @ 238818:               PUSH   EXPP
28260 @ 238821:               PUSH   FAULTP
28261 @ 238824:               JUMPIF >= L_0004
28262 @ 238828:               LOCATE L_0005

  4985      faultnum = case!point;  faultp = expp
28263 @ 238831:               LINE   4985 "regression-compile-tmp/imp22g-77.imp"
28264 @ 238871:               PUSH   FAULTNUM
28265 @ 238874:               PUSH   CASE
28266 @ 238877:               PUSHI  #0x00000040
28267 @ 238882:               OR    
28268 @ 238883:               ASSVAL
28269 @ 238884:               LINE   4985 "regression-compile-tmp/imp22g-77.imp"
28270 @ 238924:               PUSH   FAULTP
28271 @ 238927:               PUSH   EXPP
28272 @ 238930:               ASSVAL

  4986    %finish
28273 @ 238931:               LINE   4986 "regression-compile-tmp/imp22g-77.imp"
28274 @ 238971:               LOCATE L_0004

  4987  %end
  4988  
28275 @ 238974:               LINE   4987 "regression-compile-tmp/imp22g-77.imp"
28276 @ 239014:            END    _lev0id0_EXPFAULT {lev=2 --> 1}

  4989  %routine NONSTANDARD(%integer case)
28277 @ 239015:            LINE   4989 "regression-compile-tmp/imp22g-77.imp"
28278 @ 239055:            DEF    NONSTANDARD (_lev0id0_NONSTANDARD) p1=V_0158 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
28279 @ 239078:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
28280 @ 239079:                  DEF    CASE p1=V_0159 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
28281 @ 239095:               FINISH ) {lev=2}

  4990  %integer b
28282 @ 239096:               LINE   4990 "regression-compile-tmp/imp22g-77.imp"
28283 @ 239136:               DEF    B p1=V_015a a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  4991  %owninteger hadit=0
28284 @ 239149:               LINE   4991 "regression-compile-tmp/imp22g-77.imp"
28285 @ 239189:               PUSHI  #0x00000000
28286 @ 239194:               DEF    HADIT p1=V_015b 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
28287 @ 239211:               INIT   1

  4992    b = 1<<case
28288 @ 239214:               LINE   4992 "regression-compile-tmp/imp22g-77.imp"
28289 @ 239254:               PUSH   B
28290 @ 239257:               PUSHI  #0x00000001
28291 @ 239262:               PUSH   CASE
28292 @ 239265:               LSH   
28293 @ 239266:               ASSVAL

  4993    %if b&hadit = 0 %and control&nonsbit = 0 %and faultnum = 0 %start
28294 @ 239267:               LINE   4993 "regression-compile-tmp/imp22g-77.imp"
28295 @ 239307:               PUSH   B
28296 @ 239310:               PUSH   HADIT
28297 @ 239313:               AND   
28298 @ 239314:               PUSHI  #0x00000000
28299 @ 239319:               JUMPIF # L_0004
28300 @ 239323:               PUSH   CONTROL
28301 @ 239326:               PUSHI  #0x00000100
28302 @ 239331:               AND   
28303 @ 239332:               PUSHI  #0x00000000
28304 @ 239337:               JUMPIF # L_0004
28305 @ 239341:               PUSH   FAULTNUM
28306 @ 239344:               PUSHI  #0x00000000
28307 @ 239349:               JUMPIF # L_0004

  4994      hadit = hadit+b;  faultp = atomp
28308 @ 239353:               LINE   4994 "regression-compile-tmp/imp22g-77.imp"
28309 @ 239393:               PUSH   HADIT
28310 @ 239396:               PUSH   HADIT
28311 @ 239399:               PUSH   B
28312 @ 239402:               ADD   
28313 @ 239403:               ASSVAL
28314 @ 239404:               LINE   4994 "regression-compile-tmp/imp22g-77.imp"
28315 @ 239444:               PUSH   FAULTP
28316 @ 239447:               PUSH   ATOMP
28317 @ 239450:               ASSVAL

  4995      %if control&strictbit # 0 %then report(nonstand+point,0,case) %c
  4996      %else report(nonstand+point+warn,0,case)
28318 @ 239451:               LINE   4995 "regression-compile-tmp/imp22g-77.imp"
28319 @ 239491:               PUSH   CONTROL
28320 @ 239494:               PUSHI  #0x00020000
28321 @ 239499:               AND   
28322 @ 239500:               PUSHI  #0x00000000
28323 @ 239505:               JUMPIF = L_0007
28324 @ 239509:               PUSH   REPORT
28325 @ 239512:               PUSHI  #0x00000027
28326 @ 239517:               PUSHI  #0x00000040
28327 @ 239522:               ADD   
28328 @ 239523:               ASSPAR
28329 @ 239524:               PUSHI  #0x00000000
28330 @ 239529:               ASSPAR
28331 @ 239530:               PUSH   CASE
28332 @ 239533:               ASSPAR
28333 @ 239534:               CALL  
28334 @ 239535:               GOTO   L_0006
28335 @ 239538:               LOCATE L_0007
28336 @ 239541:               PUSH   REPORT
28337 @ 239544:               PUSHI  #0x00000027
28338 @ 239549:               PUSHI  #0x00000040
28339 @ 239554:               ADD   
28340 @ 239555:               PUSHI  #0xffffff80
28341 @ 239560:               ADD   
28342 @ 239561:               ASSPAR
28343 @ 239562:               PUSHI  #0x00000000
28344 @ 239567:               ASSPAR
28345 @ 239568:               PUSH   CASE
28346 @ 239571:               ASSPAR
28347 @ 239572:               CALL  
28348 @ 239573:               LOCATE L_0006

  4997    %finish
28349 @ 239576:               LINE   4997 "regression-compile-tmp/imp22g-77.imp"
28350 @ 239616:               LOCATE L_0004

  4998  %end
  4999  
28351 @ 239619:               LINE   4998 "regression-compile-tmp/imp22g-77.imp"
28352 @ 239659:            END    _lev0id0_NONSTANDARD {lev=2 --> 1}

  5000  %routine NAME ERROR
  5001  !check if the culprit has occurred before
  5002  !and, if not, add it to the pool of unknowns stored at the
  5003  !far end of the dictionary.
28353 @ 239660:            LINE   5000 "regression-compile-tmp/imp22g-77.imp"
28354 @ 239700:            DEF    NAMEERROR (_lev0id0_NAMEERROR) p1=V_0159 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
28355 @ 239721:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
28356 @ 239722:               FINISH ) {lev=2}

  5004    %if item >= 0 %start;  !first time
28357 @ 239723:               LINE   5004 "regression-compile-tmp/imp22g-77.imp"
28358 @ 239763:               PUSH   ITEM
28359 @ 239766:               PUSHI  #0x00000000
28360 @ 239771:               JUMPIF < L_0004

  5005      fault(namerr+point+now)
28361 @ 239775:               LINE   5005 "regression-compile-tmp/imp22g-77.imp"
28362 @ 239815:               PUSH   FAULT
28363 @ 239818:               PUSHI  #0x00000009
28364 @ 239823:               PUSHI  #0x00000040
28365 @ 239828:               ADD   
28366 @ 239829:               PUSHI  #0x00000080
28367 @ 239834:               ADD   
28368 @ 239835:               ASSPAR
28369 @ 239836:               CALL  

  5006      %if charmin-newlen-80 >= charlim %start
28370 @ 239837:               LINE   5006 "regression-compile-tmp/imp22g-77.imp"
28371 @ 239877:               PUSH   CHARMIN
28372 @ 239880:               PUSH   NEWLEN
28373 @ 239883:               SUB   
28374 @ 239884:               PUSHI  #0x00000050
28375 @ 239889:               SUB   
28376 @ 239890:               PUSH   CHARLIM
28377 @ 239893:               JUMPIF < L_0007

  5007        dmin = dmin-1;  dmin0 = dmin
28378 @ 239897:               LINE   5007 "regression-compile-tmp/imp22g-77.imp"
28379 @ 239937:               PUSH   DMIN
28380 @ 239940:               PUSH   DMIN
28381 @ 239943:               PUSHI  #0x00000001
28382 @ 239948:               SUB   
28383 @ 239949:               ASSVAL
28384 @ 239950:               LINE   5007 "regression-compile-tmp/imp22g-77.imp"
28385 @ 239990:               PUSH   DMIN0
28386 @ 239993:               PUSH   DMIN
28387 @ 239996:               ASSVAL

  5008        charmin = charmin-newlen-1
28388 @ 239997:               LINE   5008 "regression-compile-tmp/imp22g-77.imp"
28389 @ 240037:               PUSH   CHARMIN
28390 @ 240040:               PUSH   CHARMIN
28391 @ 240043:               PUSH   NEWLEN
28392 @ 240046:               SUB   
28393 @ 240047:               PUSHI  #0x00000001
28394 @ 240052:               SUB   
28395 @ 240053:               ASSVAL

  5009        string(charmin) = string(charlim)
28396 @ 240054:               LINE   5009 "regression-compile-tmp/imp22g-77.imp"
28397 @ 240094:               PUSH   STRING
28398 @ 240097:               PUSH   CHARMIN
28399 @ 240100:               ASSPAR
28400 @ 240101:               CALL  
28401 @ 240102:               PUSH   STRING
28402 @ 240105:               PUSH   CHARLIM
28403 @ 240108:               ASSPAR
28404 @ 240109:               CALL  
28405 @ 240110:               ASSVAL

  5010        dict(dmin)_text = charmin-char0
28406 @ 240111:               LINE   5010 "regression-compile-tmp/imp22g-77.imp"
28407 @ 240151:               PUSH   DICT
28408 @ 240154:               PUSH   DMIN
28409 @ 240157:               ACCESS
28410 @ 240158:               SELECT 11
28411 @ 240161:               PUSH   CHARMIN
28412 @ 240164:               PUSH   CHAR0
28413 @ 240167:               SUB   
28414 @ 240168:               ASSVAL

  5011        head == dict(head)_hlink %while head > 0;  !find last link
28415 @ 240169:               LINE   5011 "regression-compile-tmp/imp22g-77.imp"
28416 @ 240209:               LOCATE L_0009
28417 @ 240212:               PUSH   HEAD
28418 @ 240215:               PUSHI  #0x00000000
28419 @ 240220:               JUMPIF <= L_000a
28420 @ 240224:               PUSH   HEAD
28421 @ 240227:               PUSH   DICT
28422 @ 240230:               PUSH   HEAD
28423 @ 240233:               ACCESS
28424 @ 240234:               SELECT 12
28425 @ 240237:               ASSREF
28426 @ 240238:               REPEAT L_0009
28427 @ 240241:               LOCATE L_000a

  5012        dict(dmin)_hlink = head;  head = -dmin
28428 @ 240244:               LINE   5012 "regression-compile-tmp/imp22g-77.imp"
28429 @ 240284:               PUSH   DICT
28430 @ 240287:               PUSH   DMIN
28431 @ 240290:               ACCESS
28432 @ 240291:               SELECT 12
28433 @ 240294:               PUSH   HEAD
28434 @ 240297:               ASSVAL
28435 @ 240298:               LINE   5012 "regression-compile-tmp/imp22g-77.imp"
28436 @ 240338:               PUSH   HEAD
28437 @ 240341:               PUSH   DMIN
28438 @ 240344:               NEGATE
28439 @ 240345:               ASSVAL

  5013      %finish
28440 @ 240346:               LINE   5013 "regression-compile-tmp/imp22g-77.imp"
28441 @ 240386:               LOCATE L_0007

  5014    %finish %else others = others+1
28442 @ 240389:               LINE   5014 "regression-compile-tmp/imp22g-77.imp"
28443 @ 240429:               GOTO   L_0003
28444 @ 240432:               LOCATE L_0004
28445 @ 240435:               PUSH   OTHERS
28446 @ 240438:               PUSH   OTHERS
28447 @ 240441:               PUSHI  #0x00000001
28448 @ 240446:               ADD   
28449 @ 240447:               ASSVAL
28450 @ 240448:               LOCATE L_0003

  5015    %signal fail
28451 @ 240451:               LINE   5015 "regression-compile-tmp/imp22g-77.imp"
28452 @ 240491:               EVENT  000b

  5016  %end
  5017  
28453 @ 240494:               LINE   5016 "regression-compile-tmp/imp22g-77.imp"
28454 @ 240534:            END    _lev0id0_NAMEERROR {lev=2 --> 1}

  5018  %routine FIND OP(%integer mnemonic,%integername op,types)
28455 @ 240535:            LINE   5018 "regression-compile-tmp/imp22g-77.imp"
28456 @ 240575:            DEF    FINDOP (_lev0id0_FINDOP) p1=V_015a 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
28457 @ 240593:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
28458 @ 240594:                  DEF    MNEMONIC p1=V_015b a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
28459 @ 240614:                  DEF    OP p1=V_015c 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
28460 @ 240628:                  DEF    TYPES p1=V_015d 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
28461 @ 240645:               FINISH ) {lev=2}

  5019  %integer i
28462 @ 240646:               LINE   5019 "regression-compile-tmp/imp22g-77.imp"
28463 @ 240686:               DEF    I p1=V_015e a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  5020    i = 0
28464 @ 240699:               LINE   5020 "regression-compile-tmp/imp22g-77.imp"
28465 @ 240739:               PUSH   I
28466 @ 240742:               PUSHI  #0x00000000
28467 @ 240747:               ASSVAL

  5021    %cycle
28468 @ 240748:               LINE   5021 "regression-compile-tmp/imp22g-77.imp"
28469 @ 240788:               LOCATE L_0003

  5022      i = i+2
28470 @ 240791:               LINE   5022 "regression-compile-tmp/imp22g-77.imp"
28471 @ 240831:               PUSH   I
28472 @ 240834:               PUSH   I
28473 @ 240837:               PUSHI  #0x00000002
28474 @ 240842:               ADD   
28475 @ 240843:               ASSVAL

  5023      error(namerr) %if i > defmax+defmax
28476 @ 240844:               LINE   5023 "regression-compile-tmp/imp22g-77.imp"
28477 @ 240884:               PUSH   I
28478 @ 240887:               PUSHI  #0x00000081
28479 @ 240892:               PUSHI  #0x00000081
28480 @ 240897:               ADD   
28481 @ 240898:               JUMPIF <= L_0007
28482 @ 240902:               PUSH   ERROR
28483 @ 240905:               PUSHI  #0x00000009
28484 @ 240910:               ASSPAR
28485 @ 240911:               CALL  
28486 @ 240912:               LOCATE L_0007

  5024    %repeat %until def(i) = mnemonic 
28487 @ 240915:               LINE   5024 "regression-compile-tmp/imp22g-77.imp"
28488 @ 240955:               PUSH   DEF
28489 @ 240958:               PUSH   I
28490 @ 240961:               ACCESS
28491 @ 240962:               PUSH   MNEMONIC
28492 @ 240965:               JUMPIF = L_0004
28493 @ 240969:               REPEAT L_0003
28494 @ 240972:               LOCATE L_0004

  5025    types = def(i-1);  op = i>>1
28495 @ 240975:               LINE   5025 "regression-compile-tmp/imp22g-77.imp"
28496 @ 241015:               PUSH   TYPES
28497 @ 241018:               PUSH   DEF
28498 @ 241021:               PUSH   I
28499 @ 241024:               PUSHI  #0x00000001
28500 @ 241029:               SUB   
28501 @ 241030:               ACCESS
28502 @ 241031:               ASSVAL
28503 @ 241032:               LINE   5025 "regression-compile-tmp/imp22g-77.imp"
28504 @ 241072:               PUSH   OP
28505 @ 241075:               PUSH   I
28506 @ 241078:               PUSHI  #0x00000001
28507 @ 241083:               RSH   
28508 @ 241084:               ASSVAL

  5026  %end
  5027  
  5028  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  5029  !!!!!!!!!!!!!!!!!!!!  Source input  !!!!!!!!!!!!!!!!!!!!!!!!!!!!
  5030  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  5031  
28509 @ 241085:               LINE   5026 "regression-compile-tmp/imp22g-77.imp"
28510 @ 241125:            END    _lev0id0_FINDOP {lev=2 --> 1}

  5032  %routine READ LINE(%integer flag)
  5033  ! Read (or otherwise make available) the next source line
  5034  !     Output any pending error report;                 *NB*
  5035  !     Skip remnant of previous line if SYM # NL        *NB*
  5036  !     Set LINESTART to point to start of new line
  5037  !     Print new line on list output stream if listing requested
  5038  !       (Direct output routines CF diagnostics)
28511 @ 241126:            LINE   5032 "regression-compile-tmp/imp22g-77.imp"
28512 @ 241166:            DEF    READLINE (_lev0id0_READLINE) p1=V_015b 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
28513 @ 241186:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
28514 @ 241187:                  DEF    FLAG p1=V_015c a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
28515 @ 241203:               FINISH ) {lev=2}

  5039    report(faultnum,0,0) %if faultnum # 0
28516 @ 241204:               LINE   5039 "regression-compile-tmp/imp22g-77.imp"
28517 @ 241244:               PUSH   FAULTNUM
28518 @ 241247:               PUSHI  #0x00000000
28519 @ 241252:               JUMPIF = L_0004
28520 @ 241256:               PUSH   REPORT
28521 @ 241259:               PUSH   FAULTNUM
28522 @ 241262:               ASSPAR
28523 @ 241263:               PUSHI  #0x00000000
28524 @ 241268:               ASSPAR
28525 @ 241269:               PUSHI  #0x00000000
28526 @ 241274:               ASSPAR
28527 @ 241275:               CALL  
28528 @ 241276:               LOCATE L_0004

  5040    %while sym > nl %cycle;               !Skip remnant
28529 @ 241279:               LINE   5040 "regression-compile-tmp/imp22g-77.imp"
28530 @ 241319:               LOCATE L_0003
28531 @ 241322:               PUSH   SYM
28532 @ 241325:               PUSHI  #0x0000000a
28533 @ 241330:               JUMPIF <= L_0004

  5041      sym = byteintegeR(fp);  fp = fp+1
28534 @ 241334:               LINE   5041 "regression-compile-tmp/imp22g-77.imp"
28535 @ 241374:               PUSH   SYM
28536 @ 241377:               PUSH   BYTEINTEGER
28537 @ 241380:               PUSH   FP
28538 @ 241383:               ASSPAR
28539 @ 241384:               CALL  
28540 @ 241385:               ASSVAL
28541 @ 241386:               LINE   5041 "regression-compile-tmp/imp22g-77.imp"
28542 @ 241426:               PUSH   FP
28543 @ 241429:               PUSH   FP
28544 @ 241432:               PUSHI  #0x00000001
28545 @ 241437:               ADD   
28546 @ 241438:               ASSVAL

  5042    %repeat
28547 @ 241439:               LINE   5042 "regression-compile-tmp/imp22g-77.imp"
28548 @ 241479:               REPEAT L_0003
28549 @ 241482:               LOCATE L_0004

  5043    line = line+1
28550 @ 241485:               LINE   5043 "regression-compile-tmp/imp22g-77.imp"
28551 @ 241525:               PUSH   LINE
28552 @ 241528:               PUSH   LINE
28553 @ 241531:               PUSHI  #0x00000001
28554 @ 241536:               ADD   
28555 @ 241537:               ASSVAL

  5044    %while fp = curlim %cycle
28556 @ 241538:               LINE   5044 "regression-compile-tmp/imp22g-77.imp"
28557 @ 241578:               LOCATE L_0003
28558 @ 241581:               PUSH   FP
28559 @ 241584:               PUSH   CURLIM
28560 @ 241587:               JUMPIF # L_0004

  5045      %if curlim # cur_lim2 %start;  !in part1 of file
28561 @ 241591:               LINE   5045 "regression-compile-tmp/imp22g-77.imp"
28562 @ 241631:               PUSH   CURLIM
28563 @ 241634:               PUSH   CUR
28564 @ 241637:               SELECT 4
28565 @ 241640:               JUMPIF = L_0007

  5046        fp = cur_start2
28566 @ 241644:               LINE   5046 "regression-compile-tmp/imp22g-77.imp"
28567 @ 241684:               PUSH   FP
28568 @ 241687:               PUSH   CUR
28569 @ 241690:               SELECT 3
28570 @ 241693:               ASSVAL

  5047      %finish %else %if curfile = main %start;      !on main
28571 @ 241694:               LINE   5047 "regression-compile-tmp/imp22g-77.imp"
28572 @ 241734:               GOTO   L_0006
28573 @ 241737:               LOCATE L_0007
28574 @ 241740:               PUSH   CURFILE
28575 @ 241743:               PUSHI  #0x00000001
28576 @ 241748:               JUMPIF # L_0007

  5048        %signal done
28577 @ 241752:               LINE   5048 "regression-compile-tmp/imp22g-77.imp"
28578 @ 241792:               EVENT  000c

  5049      %else
28579 @ 241795:               LINE   5049 "regression-compile-tmp/imp22g-77.imp"
28580 @ 241835:               LOCATE L_0007

  5050        cur_flag = -1
  5051  !!      disconnect edfile(cur)
28581 @ 241838:               LINE   5050 "regression-compile-tmp/imp22g-77.imp"
28582 @ 241878:               PUSH   CUR
28583 @ 241881:               SELECT 9
28584 @ 241884:               PUSHI  #0x00000001
28585 @ 241889:               NEGATE
28586 @ 241890:               ASSVAL

  5052        curfile = curfile-1
28587 @ 241891:               LINE   5052 "regression-compile-tmp/imp22g-77.imp"
28588 @ 241931:               PUSH   CURFILE
28589 @ 241934:               PUSH   CURFILE
28590 @ 241937:               PUSHI  #0x00000001
28591 @ 241942:               SUB   
28592 @ 241943:               ASSVAL

  5053        cur == file(curfile)
28593 @ 241944:               LINE   5053 "regression-compile-tmp/imp22g-77.imp"
28594 @ 241984:               PUSH   CUR
28595 @ 241987:               PUSH   FILE
28596 @ 241990:               PUSH   CURFILE
28597 @ 241993:               ACCESS
28598 @ 241994:               ASSREF

  5054        fp = cur_fp;  line = cur_line
28599 @ 241995:               LINE   5054 "regression-compile-tmp/imp22g-77.imp"
28600 @ 242035:               PUSH   FP
28601 @ 242038:               PUSH   CUR
28602 @ 242041:               SELECT 7
28603 @ 242044:               ASSVAL
28604 @ 242045:               LINE   5054 "regression-compile-tmp/imp22g-77.imp"
28605 @ 242085:               PUSH   LINE
28606 @ 242088:               PUSH   CUR
28607 @ 242091:               SELECT 10
28608 @ 242094:               ASSVAL

  5055        control = fcontrol(curfile)
28609 @ 242095:               LINE   5055 "regression-compile-tmp/imp22g-77.imp"
28610 @ 242135:               PUSH   CONTROL
28611 @ 242138:               PUSH   FCONTROL
28612 @ 242141:               PUSH   CURFILE
28613 @ 242144:               ACCESS
28614 @ 242145:               ASSVAL

  5056        inclim = dlim %if level = outerlevel %and c_status < hadon
28615 @ 242146:               LINE   5056 "regression-compile-tmp/imp22g-77.imp"
28616 @ 242186:               PUSH   LEVEL
28617 @ 242189:               PUSHI  #0x00000000
28618 @ 242194:               JUMPIF # L_000a
28619 @ 242198:               PUSH   C
28620 @ 242201:               SELECT 6
28621 @ 242204:               PUSHI  #0x00001000
28622 @ 242209:               JUMPIF >= L_000a
28623 @ 242213:               PUSH   INCLIM
28624 @ 242216:               PUSH   DLIM
28625 @ 242219:               ASSVAL
28626 @ 242220:               LOCATE L_000a

  5057      %finish
28627 @ 242223:               LINE   5057 "regression-compile-tmp/imp22g-77.imp"
28628 @ 242263:               LOCATE L_0006

  5058      curstart = cur_start2;  curlim = cur_lim2
28629 @ 242266:               LINE   5058 "regression-compile-tmp/imp22g-77.imp"
28630 @ 242306:               PUSH   CURSTART
28631 @ 242309:               PUSH   CUR
28632 @ 242312:               SELECT 3
28633 @ 242315:               ASSVAL
28634 @ 242316:               LINE   5058 "regression-compile-tmp/imp22g-77.imp"
28635 @ 242356:               PUSH   CURLIM
28636 @ 242359:               PUSH   CUR
28637 @ 242362:               SELECT 4
28638 @ 242365:               ASSVAL

  5059      %if fp < curstart %or fp > curlim %start
28639 @ 242366:               LINE   5059 "regression-compile-tmp/imp22g-77.imp"
28640 @ 242406:               PUSH   FP
28641 @ 242409:               PUSH   CURSTART
28642 @ 242412:               JUMPIF < L_0008
28643 @ 242416:               PUSH   FP
28644 @ 242419:               PUSH   CURLIM
28645 @ 242422:               JUMPIF <= L_0007
28646 @ 242426:               LOCATE L_0008

  5060        curstart = cur_start1;  curlim = cur_lim1
28647 @ 242429:               LINE   5060 "regression-compile-tmp/imp22g-77.imp"
28648 @ 242469:               PUSH   CURSTART
28649 @ 242472:               PUSH   CUR
28650 @ 242475:               SELECT 1
28651 @ 242478:               ASSVAL
28652 @ 242479:               LINE   5060 "regression-compile-tmp/imp22g-77.imp"
28653 @ 242519:               PUSH   CURLIM
28654 @ 242522:               PUSH   CUR
28655 @ 242525:               SELECT 2
28656 @ 242528:               ASSVAL

  5061      %finish
28657 @ 242529:               LINE   5061 "regression-compile-tmp/imp22g-77.imp"
28658 @ 242569:               LOCATE L_0007

  5062    %repeat
28659 @ 242572:               LINE   5062 "regression-compile-tmp/imp22g-77.imp"
28660 @ 242612:               REPEAT L_0003
28661 @ 242615:               LOCATE L_0004

  5063    linestart = fp
28662 @ 242618:               LINE   5063 "regression-compile-tmp/imp22g-77.imp"
28663 @ 242658:               PUSH   LINESTART
28664 @ 242661:               PUSH   FP
28665 @ 242664:               ASSVAL

  5064    %if flag = 0 %start
28666 @ 242665:               LINE   5064 "regression-compile-tmp/imp22g-77.imp"
28667 @ 242705:               PUSH   FLAG
28668 @ 242708:               PUSHI  #0x00000000
28669 @ 242713:               JUMPIF # L_0004

  5065      flag = ' ';  flag = '&' %if curfile # main
28670 @ 242717:               LINE   5065 "regression-compile-tmp/imp22g-77.imp"
28671 @ 242757:               PUSH   FLAG
28672 @ 242760:               PUSHI  #0x00000020
28673 @ 242765:               ASSVAL
28674 @ 242766:               LINE   5065 "regression-compile-tmp/imp22g-77.imp"
28675 @ 242806:               PUSH   CURFILE
28676 @ 242809:               PUSHI  #0x00000001
28677 @ 242814:               JUMPIF = L_0007
28678 @ 242818:               PUSH   FLAG
28679 @ 242821:               PUSHI  #0x00000026
28680 @ 242826:               ASSVAL
28681 @ 242827:               LOCATE L_0007

  5066    %finish
28682 @ 242830:               LINE   5066 "regression-compile-tmp/imp22g-77.imp"
28683 @ 242870:               LOCATE L_0004

  5067    listflag = flag
28684 @ 242873:               LINE   5067 "regression-compile-tmp/imp22g-77.imp"
28685 @ 242913:               PUSH   LISTFLAG
28686 @ 242916:               PUSH   FLAG
28687 @ 242919:               ASSVAL

  5068    %if control&list # 0 %start
28688 @ 242920:               LINE   5068 "regression-compile-tmp/imp22g-77.imp"
28689 @ 242960:               PUSH   CONTROL
28690 @ 242963:               PUSHI  #0x00000001
28691 @ 242968:               AND   
28692 @ 242969:               PUSHI  #0x00000000
28693 @ 242974:               JUMPIF = L_0004

  5069      time1 = time1-cputime
28694 @ 242978:               LINE   5069 "regression-compile-tmp/imp22g-77.imp"
28695 @ 243018:               PUSH   TIME1
28696 @ 243021:               PUSH   TIME1
28697 @ 243024:               PUSH   CPUTIME
28698 @ 243027:               SUB   
28699 @ 243028:               ASSVAL

  5070      print line %if rep # ""
28700 @ 243029:               LINE   5070 "regression-compile-tmp/imp22g-77.imp"
28701 @ 243069:               PUSH   REP
28702 @ 243072:               PUSHS  ""
28703 @ 243074:               JUMPIF = L_0007
28704 @ 243078:               PUSH   PRINTLINE
28705 @ 243081:               CALL  
28706 @ 243082:               LOCATE L_0007

  5071      show dict(dictshown) %if control&dictlist # 0
28707 @ 243085:               LINE   5071 "regression-compile-tmp/imp22g-77.imp"
28708 @ 243125:               PUSH   CONTROL
28709 @ 243128:               PUSHI  #0x00000010
28710 @ 243133:               AND   
28711 @ 243134:               PUSHI  #0x00000000
28712 @ 243139:               JUMPIF = L_0007
28713 @ 243143:               PUSH   SHOWDICT
28714 @ 243146:               PUSH   DICTSHOWN
28715 @ 243149:               ASSPAR
28716 @ 243150:               CALL  
28717 @ 243151:               LOCATE L_0007

  5072      dictshown = dlim
28718 @ 243154:               LINE   5072 "regression-compile-tmp/imp22g-77.imp"
28719 @ 243194:               PUSH   DICTSHOWN
28720 @ 243197:               PUSH   DLIM
28721 @ 243200:               ASSVAL

  5073      write(line,4);  print symbol(listflag)
28722 @ 243201:               LINE   5073 "regression-compile-tmp/imp22g-77.imp"
28723 @ 243241:               PUSH   WRITE
28724 @ 243244:               PUSH   LINE
28725 @ 243247:               ASSPAR
28726 @ 243248:               PUSHI  #0x00000004
28727 @ 243253:               ASSPAR
28728 @ 243254:               CALL  
28729 @ 243255:               LINE   5073 "regression-compile-tmp/imp22g-77.imp"
28730 @ 243295:               PUSH   PRINTSYMBOL
28731 @ 243298:               PUSH   LISTFLAG
28732 @ 243301:               ASSPAR
28733 @ 243302:               CALL  

  5074      print symbol(' ')
28734 @ 243303:               LINE   5074 "regression-compile-tmp/imp22g-77.imp"
28735 @ 243343:               PUSH   PRINTSYMBOL
28736 @ 243346:               PUSHI  #0x00000020
28737 @ 243351:               ASSPAR
28738 @ 243352:               CALL  

  5075      %cycle
28739 @ 243353:               LINE   5075 "regression-compile-tmp/imp22g-77.imp"
28740 @ 243393:               LOCATE L_0006

  5076        sym = byteintegeR(fp);  fp = fp+1
28741 @ 243396:               LINE   5076 "regression-compile-tmp/imp22g-77.imp"
28742 @ 243436:               PUSH   SYM
28743 @ 243439:               PUSH   BYTEINTEGER
28744 @ 243442:               PUSH   FP
28745 @ 243445:               ASSPAR
28746 @ 243446:               CALL  
28747 @ 243447:               ASSVAL
28748 @ 243448:               LINE   5076 "regression-compile-tmp/imp22g-77.imp"
28749 @ 243488:               PUSH   FP
28750 @ 243491:               PUSH   FP
28751 @ 243494:               PUSHI  #0x00000001
28752 @ 243499:               ADD   
28753 @ 243500:               ASSVAL

  5077        print symbol(sym)
28754 @ 243501:               LINE   5077 "regression-compile-tmp/imp22g-77.imp"
28755 @ 243541:               PUSH   PRINTSYMBOL
28756 @ 243544:               PUSH   SYM
28757 @ 243547:               ASSPAR
28758 @ 243548:               CALL  

  5078      %repeat %until sym <= nl
28759 @ 243549:               LINE   5078 "regression-compile-tmp/imp22g-77.imp"
28760 @ 243589:               PUSH   SYM
28761 @ 243592:               PUSHI  #0x0000000a
28762 @ 243597:               JUMPIF <= L_0007
28763 @ 243601:               REPEAT L_0006
28764 @ 243604:               LOCATE L_0007

  5079      fp = linestart
28765 @ 243607:               LINE   5079 "regression-compile-tmp/imp22g-77.imp"
28766 @ 243647:               PUSH   FP
28767 @ 243650:               PUSH   LINESTART
28768 @ 243653:               ASSVAL

  5080      time1 = time1+cputime
28769 @ 243654:               LINE   5080 "regression-compile-tmp/imp22g-77.imp"
28770 @ 243694:               PUSH   TIME1
28771 @ 243697:               PUSH   TIME1
28772 @ 243700:               PUSH   CPUTIME
28773 @ 243703:               ADD   
28774 @ 243704:               ASSVAL

  5081    %finish
28775 @ 243705:               LINE   5081 "regression-compile-tmp/imp22g-77.imp"
28776 @ 243745:               LOCATE L_0004

  5082    sym = 0
28777 @ 243748:               LINE   5082 "regression-compile-tmp/imp22g-77.imp"
28778 @ 243788:               PUSH   SYM
28779 @ 243791:               PUSHI  #0x00000000
28780 @ 243796:               ASSVAL

  5083  %end;  !READ LINE
  5084  
  5085  !<<IMP
  5086  
  5087  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  5088  !!!!!!!!!!!!!!!!!!!!  Lexical processing  !!!!!!!!!!!!!!!!!!!!!!
  5089  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  5090  
28781 @ 243797:               LINE   5083 "regression-compile-tmp/imp22g-77.imp"
28782 @ 243837:            END    _lev0id0_READLINE {lev=2 --> 1}

  5091  %constinteger CASEBIT=32
28783 @ 243838:            LINE   5091 "regression-compile-tmp/imp22g-77.imp"

  5092  %owninteger PERCENT=0, SUBATOM=0
  5093  !
  5094  !~!!!!!!!  Keyword codes -- used by KEYGEN to produce tables  !!
28784 @ 243878:            LINE   5092 "regression-compile-tmp/imp22g-77.imp"
28785 @ 243918:            PUSHI  #0x00000000
28786 @ 243923:            DEF    PERCENT p1=V_015c 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
28787 @ 243942:            INIT   1
28788 @ 243945:            PUSHI  #0x00000000
28789 @ 243950:            DEF    SUBATOM p1=V_015d 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
28790 @ 243969:            INIT   1

  5095  %constinteger %c
  5096    KEYEND=1 {end},
  5097    KEYREPEAT=2   {repeat},
  5098    KEYFINISH=3   {finish},
  5099    KEYELSE=4     {else},
  5100    KEYBEGIN=5    {begin},
  5101    EXIT=6        {exit_1,continue_0}
28791 @ 243972:            LINE   5095 "regression-compile-tmp/imp22g-77.imp"

  5102  %constinteger %c
  5103    KEYRETURN=7   {return},
  5104    TF=8          {true_1,false_0},
  5105    KEYRESULT=9   {result},
  5106    KEYSTOP=10    {stop},
  5107    KEYGOTO=11    {goto},
  5108    KEYSIGNAL=12  {signal}
28792 @ 244012:            LINE   5102 "regression-compile-tmp/imp22g-77.imp"

  5109  %constinteger %c
  5110    KEYMONITOR=13 {monitor},
  5111    KEYON=14      {on},
  5112    IU=15         {if_0,unless_1},
  5113    KEYWHILE=16   {while},
  5114    KEYUNTIL=17   {until_1},
  5115    KEYFOR=18     {for},
  5116    KEYTHEN=19    {then}
28793 @ 244052:            LINE   5109 "regression-compile-tmp/imp22g-77.imp"

  5117  %constinteger %c
  5118    KEYSTART=20   {start},
  5119    KEYCYCLE=21   {cycle},
  5120    KEYLABEL=22   {label},
  5121    KEYCONST=23   {const,constant},
  5122    KEYOWN=24     {own},
  5123    KEYEXT=25     {external_6,system_5,dynamic_7}
28794 @ 244092:            LINE   5117 "regression-compile-tmp/imp22g-77.imp"

  5124  %constinteger %c
  5125    KATTRIB=26    {readonly_0,writeonly_1,volatile_2},
  5126    KTYPE=27      {short_3,half_6,byte_9,mite_12,boolean_15,char_18,text_25},
  5127    KEYINTEGER=28 {integer},
  5128    KEYLONG=29    {long},
  5129    KEYREAL=30    {real},
  5130    KEYSTRING=31  {string_0,cstring_1}
28795 @ 244132:            LINE   5124 "regression-compile-tmp/imp22g-77.imp"

  5131  %constinteger %c
  5132    KEYRECORD=32  {record},
  5133    KEYNAME=33    {name},
  5134    KEYFORMAT=34  {format},
  5135    FNMAP=35      {fn_0,function_0,map_1},
  5136    RPRED=36      {routine_0,predicate_1},
  5137    KEYSPEC=37    {spec}
28796 @ 244172:            LINE   5131 "regression-compile-tmp/imp22g-77.imp"

  5138  %constinteger %c
  5139    KEYARRAY=38   {array},
  5140    KEYSWITCH=39  {switch},
  5141    KEYOF=40      {of},
  5142    KEYFILE=41    {file},
  5143    KEYPROGRAM=42 {program},
  5144    KEYLIST=43    {list}
28797 @ 244212:            LINE   5138 "regression-compile-tmp/imp22g-77.imp"

  5145  %constinteger %c
  5146    KEYCONTROL=44 {control},
  5147    KEYCOMMENT=45 {comment},
  5148    KEYEVENT=46   {event},
  5149    KEYINCLUDE=47 {include},
  5150    KEYOPTION=48  {option},
  5151    KEYALIAS=49   {alias}
28798 @ 244252:            LINE   5145 "regression-compile-tmp/imp22g-77.imp"

  5152  %constinteger %c
  5153    KEYNOT=50     {not},
  5154    KEYAND=72     {and},
  5155    KEYOR=73      {or}
  5156  !!  end of keyword codes
  5157  !
  5158  !Symbol lexical codes other than operators:
28799 @ 244292:            LINE   5152 "regression-compile-tmp/imp22g-77.imp"

  5159  %constinteger TERMINATOR=51, CONST=52, IDENT=53, MODSIGN=54,
  5160                COLON=59, COMMA=60, RIGHT=61, RIGHTB=62
  5161  {DUD=63}
28800 @ 244332:            LINE   5159 "regression-compile-tmp/imp22g-77.imp"

  5162  %constinteger LEFT=55, LEFTB=56, ATSIGN=57, UNDERLINE=58
  5163  
28801 @ 244372:            LINE   5162 "regression-compile-tmp/imp22g-77.imp"

  5164  %constinteger ARROW=74, EQEQ=75, NOTEQEQ=76,
  5165                EQUALS=77, NOTEQ=78, LESSEQ=79,
  5166                LESS=80, GREATEQ=81, GREATER=82
28802 @ 244412:            LINE   5164 "regression-compile-tmp/imp22g-77.imp"

  5167  %constinteger PLUS=83, MINUS=84, EXCLAM=85, EXCLAM2=86, DOT=87
28803 @ 244452:            LINE   5167 "regression-compile-tmp/imp22g-77.imp"

  5168  %constinteger STAR=88, SLASH2=89, SLASH=90, AMPERSAND=91
28804 @ 244492:            LINE   5168 "regression-compile-tmp/imp22g-77.imp"

  5169  %constinteger STAR2=92, BACKSLASH=93, UPARROW=94,
  5170                BACKSLASH2=95, UPARROW2=96,
  5171                TILDE=97,
  5172                LSHIFT=98, RSHIFT=99
28805 @ 244532:            LINE   5169 "regression-compile-tmp/imp22g-77.imp"

  5173  %constinteger ATOMMAX=99
28806 @ 244572:            LINE   5173 "regression-compile-tmp/imp22g-77.imp"

  5174  %constinteger ALEFT=left, ARIGHT=right, RECSUB=underline,
  5175                OVER=slash2, SCONC=dot
  5176  
28807 @ 244612:            LINE   5174 "regression-compile-tmp/imp22g-77.imp"

  5177  %constinteger SIMPLE=atommax+1, VSIMPLE=simple+1,
  5178                MAJOR=plus, SCOND=arrow, COND=keyand, CONDQ=71
  5179  !
28808 @ 244652:            LINE   5177 "regression-compile-tmp/imp22g-77.imp"

  5180  %integer%fn NEXT ATOM
  5181  !Encode next atom from source file
  5182  ![Time-critical]
28809 @ 244692:            LINE   5180 "regression-compile-tmp/imp22g-77.imp"
28810 @ 244732:            DEF    NEXTATOM (_lev0id0_NEXTATOM) p1=V_015e 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
28811 @ 244752:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
28812 @ 244753:               FINISH ) {lev=2}

  5183  %switch s(0:255)
28813 @ 244754:               LINE   5183 "regression-compile-tmp/imp22g-77.imp"
28814 @ 244794:               PUSHI  #0x00000000
28815 @ 244799:               PUSHI  #0x000000ff
28816 @ 244804:               BOUNDS
28817 @ 244805:               DEF    S p1=V_015f 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

  5184  %constinteger TAB=9,
  5185                MAX10=maxint//10, MAXDIG=maxint-max10*10
28818 @ 244818:               LINE   5184 "regression-compile-tmp/imp22g-77.imp"

  5186  %integer i,j,p,radix,hash
28819 @ 244858:               LINE   5186 "regression-compile-tmp/imp22g-77.imp"
28820 @ 244898:               DEF    I p1=V_0160 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
28821 @ 244911:               DEF    J p1=V_0161 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
28822 @ 244924:               DEF    P p1=V_0162 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
28823 @ 244937:               DEF    RADIX p1=V_0163 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
28824 @ 244954:               DEF    HASH p1=V_0164 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  5187  %real rval
28825 @ 244970:               LINE   5187 "regression-compile-tmp/imp22g-77.imp"
28826 @ 245010:               DEF    RVAL p1=V_0165 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

  5188  %constbytearray map(0:127) =
  5189    0 ('0'),
  5190    '0','1','2','3','4','5','6','7','8','9',
  5191    0, 0, 0, 0, 0, 0, 0,
  5192    'a','b','c','d','e','f','g','h','i','j','k','l','m',
  5193    'n','o','p','q','r','s','t','u','v','w','x','y','z',
  5194    0, 0, 0, 0, 0, 0,
  5195    'a','b','c','d','e','f','g','h','i','j','k','l','m',
  5196    'n','o','p','q','r','s','t','u','v','w','x','y','z',
  5197    0, 0, 0, 0, 0
  5198  
  5199  !~!!!!!!!!!!!!!!!  Ex KEYGEN  !!!!!!!!!!!!!!!!!!!!
28827 @ 245026:               LINE   5188 "regression-compile-tmp/imp22g-77.imp"
28828 @ 245066:               PUSHI  #0x00000000
28829 @ 245071:               PUSHI  #0x0000007f
28830 @ 245076:               BOUNDS
28831 @ 245077:               DEF    MAP p1=V_0166 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
28832 @ 245092:               PUSHI  #0x00000000
28833 @ 245097:               INIT   48
28834 @ 245100:               PUSHI  #0x00000030
28835 @ 245105:               INIT   1
28836 @ 245108:               PUSHI  #0x00000031
28837 @ 245113:               INIT   1
28838 @ 245116:               PUSHI  #0x00000032
28839 @ 245121:               INIT   1
28840 @ 245124:               PUSHI  #0x00000033
28841 @ 245129:               INIT   1
28842 @ 245132:               PUSHI  #0x00000034
28843 @ 245137:               INIT   1
28844 @ 245140:               PUSHI  #0x00000035
28845 @ 245145:               INIT   1
28846 @ 245148:               PUSHI  #0x00000036
28847 @ 245153:               INIT   1
28848 @ 245156:               PUSHI  #0x00000037
28849 @ 245161:               INIT   1
28850 @ 245164:               PUSHI  #0x00000038
28851 @ 245169:               INIT   1
28852 @ 245172:               PUSHI  #0x00000039
28853 @ 245177:               INIT   1
28854 @ 245180:               PUSHI  #0x00000000
28855 @ 245185:               INIT   1
28856 @ 245188:               PUSHI  #0x00000000
28857 @ 245193:               INIT   1
28858 @ 245196:               PUSHI  #0x00000000
28859 @ 245201:               INIT   1
28860 @ 245204:               PUSHI  #0x00000000
28861 @ 245209:               INIT   1
28862 @ 245212:               PUSHI  #0x00000000
28863 @ 245217:               INIT   1
28864 @ 245220:               PUSHI  #0x00000000
28865 @ 245225:               INIT   1
28866 @ 245228:               PUSHI  #0x00000000
28867 @ 245233:               INIT   1
28868 @ 245236:               PUSHI  #0x00000061
28869 @ 245241:               INIT   1
28870 @ 245244:               PUSHI  #0x00000062
28871 @ 245249:               INIT   1
28872 @ 245252:               PUSHI  #0x00000063
28873 @ 245257:               INIT   1
28874 @ 245260:               PUSHI  #0x00000064
28875 @ 245265:               INIT   1
28876 @ 245268:               PUSHI  #0x00000065
28877 @ 245273:               INIT   1
28878 @ 245276:               PUSHI  #0x00000066
28879 @ 245281:               INIT   1
28880 @ 245284:               PUSHI  #0x00000067
28881 @ 245289:               INIT   1
28882 @ 245292:               PUSHI  #0x00000068
28883 @ 245297:               INIT   1
28884 @ 245300:               PUSHI  #0x00000069
28885 @ 245305:               INIT   1
28886 @ 245308:               PUSHI  #0x0000006a
28887 @ 245313:               INIT   1
28888 @ 245316:               PUSHI  #0x0000006b
28889 @ 245321:               INIT   1
28890 @ 245324:               PUSHI  #0x0000006c
28891 @ 245329:               INIT   1
28892 @ 245332:               PUSHI  #0x0000006d
28893 @ 245337:               INIT   1
28894 @ 245340:               PUSHI  #0x0000006e
28895 @ 245345:               INIT   1
28896 @ 245348:               PUSHI  #0x0000006f
28897 @ 245353:               INIT   1
28898 @ 245356:               PUSHI  #0x00000070
28899 @ 245361:               INIT   1
28900 @ 245364:               PUSHI  #0x00000071
28901 @ 245369:               INIT   1
28902 @ 245372:               PUSHI  #0x00000072
28903 @ 245377:               INIT   1
28904 @ 245380:               PUSHI  #0x00000073
28905 @ 245385:               INIT   1
28906 @ 245388:               PUSHI  #0x00000074
28907 @ 245393:               INIT   1
28908 @ 245396:               PUSHI  #0x00000075
28909 @ 245401:               INIT   1
28910 @ 245404:               PUSHI  #0x00000076
28911 @ 245409:               INIT   1
28912 @ 245412:               PUSHI  #0x00000077
28913 @ 245417:               INIT   1
28914 @ 245420:               PUSHI  #0x00000078
28915 @ 245425:               INIT   1
28916 @ 245428:               PUSHI  #0x00000079
28917 @ 245433:               INIT   1
28918 @ 245436:               PUSHI  #0x0000007a
28919 @ 245441:               INIT   1
28920 @ 245444:               PUSHI  #0x00000000
28921 @ 245449:               INIT   1
28922 @ 245452:               PUSHI  #0x00000000
28923 @ 245457:               INIT   1
28924 @ 245460:               PUSHI  #0x00000000
28925 @ 245465:               INIT   1
28926 @ 245468:               PUSHI  #0x00000000
28927 @ 245473:               INIT   1
28928 @ 245476:               PUSHI  #0x00000000
28929 @ 245481:               INIT   1
28930 @ 245484:               PUSHI  #0x00000000
28931 @ 245489:               INIT   1
28932 @ 245492:               PUSHI  #0x00000061
28933 @ 245497:               INIT   1
28934 @ 245500:               PUSHI  #0x00000062
28935 @ 245505:               INIT   1
28936 @ 245508:               PUSHI  #0x00000063
28937 @ 245513:               INIT   1
28938 @ 245516:               PUSHI  #0x00000064
28939 @ 245521:               INIT   1
28940 @ 245524:               PUSHI  #0x00000065
28941 @ 245529:               INIT   1
28942 @ 245532:               PUSHI  #0x00000066
28943 @ 245537:               INIT   1
28944 @ 245540:               PUSHI  #0x00000067
28945 @ 245545:               INIT   1
28946 @ 245548:               PUSHI  #0x00000068
28947 @ 245553:               INIT   1
28948 @ 245556:               PUSHI  #0x00000069
28949 @ 245561:               INIT   1
28950 @ 245564:               PUSHI  #0x0000006a
28951 @ 245569:               INIT   1
28952 @ 245572:               PUSHI  #0x0000006b
28953 @ 245577:               INIT   1
28954 @ 245580:               PUSHI  #0x0000006c
28955 @ 245585:               INIT   1
28956 @ 245588:               PUSHI  #0x0000006d
28957 @ 245593:               INIT   1
28958 @ 245596:               PUSHI  #0x0000006e
28959 @ 245601:               INIT   1
28960 @ 245604:               PUSHI  #0x0000006f
28961 @ 245609:               INIT   1
28962 @ 245612:               PUSHI  #0x00000070
28963 @ 245617:               INIT   1
28964 @ 245620:               PUSHI  #0x00000071
28965 @ 245625:               INIT   1
28966 @ 245628:               PUSHI  #0x00000072
28967 @ 245633:               INIT   1
28968 @ 245636:               PUSHI  #0x00000073
28969 @ 245641:               INIT   1
28970 @ 245644:               PUSHI  #0x00000074
28971 @ 245649:               INIT   1
28972 @ 245652:               PUSHI  #0x00000075
28973 @ 245657:               INIT   1
28974 @ 245660:               PUSHI  #0x00000076
28975 @ 245665:               INIT   1
28976 @ 245668:               PUSHI  #0x00000077
28977 @ 245673:               INIT   1
28978 @ 245676:               PUSHI  #0x00000078
28979 @ 245681:               INIT   1
28980 @ 245684:               PUSHI  #0x00000079
28981 @ 245689:               INIT   1
28982 @ 245692:               PUSHI  #0x0000007a
28983 @ 245697:               INIT   1
28984 @ 245700:               PUSHI  #0x00000000
28985 @ 245705:               INIT   1
28986 @ 245708:               PUSHI  #0x00000000
28987 @ 245713:               INIT   1
28988 @ 245716:               PUSHI  #0x00000000
28989 @ 245721:               INIT   1
28990 @ 245724:               PUSHI  #0x00000000
28991 @ 245729:               INIT   1
28992 @ 245732:               PUSHI  #0x00000000
28993 @ 245737:               INIT   1

  5200  %CONSTSHORTINTEGERARRAY SYMINIT(97:122) =  %C
  5201  2,15,31,72,79,102,133,137,141,1,1,156,169,183,190,205,
  5202  1,220,257,297,309,319,327,1,1,1
  5203  
28994 @ 245740:               LINE   5200 "regression-compile-tmp/imp22g-77.imp"
28995 @ 245780:               PUSHI  #0x00000061
28996 @ 245785:               PUSHI  #0x0000007a
28997 @ 245790:               BOUNDS
28998 @ 245791:               DEF    SYMINIT p1=V_0167 a/tf=1b b/format=3 c/ostate=112  type=1 (integer) form=11 (array) special=2 (short-integer) linkage=2 (constant) spec=0 indirect=1 unass=0
28999 @ 245810:               PUSHI  #0x00000002
29000 @ 245815:               INIT   1
29001 @ 245818:               PUSHI  #0x0000000f
29002 @ 245823:               INIT   1
29003 @ 245826:               PUSHI  #0x0000001f
29004 @ 245831:               INIT   1
29005 @ 245834:               PUSHI  #0x00000048
29006 @ 245839:               INIT   1
29007 @ 245842:               PUSHI  #0x0000004f
29008 @ 245847:               INIT   1
29009 @ 245850:               PUSHI  #0x00000066
29010 @ 245855:               INIT   1
29011 @ 245858:               PUSHI  #0x00000085
29012 @ 245863:               INIT   1
29013 @ 245866:               PUSHI  #0x00000089
29014 @ 245871:               INIT   1
29015 @ 245874:               PUSHI  #0x0000008d
29016 @ 245879:               INIT   1
29017 @ 245882:               PUSHI  #0x00000001
29018 @ 245887:               INIT   1
29019 @ 245890:               PUSHI  #0x00000001
29020 @ 245895:               INIT   1
29021 @ 245898:               PUSHI  #0x0000009c
29022 @ 245903:               INIT   1
29023 @ 245906:               PUSHI  #0x000000a9
29024 @ 245911:               INIT   1
29025 @ 245914:               PUSHI  #0x000000b7
29026 @ 245919:               INIT   1
29027 @ 245922:               PUSHI  #0x000000be
29028 @ 245927:               INIT   1
29029 @ 245930:               PUSHI  #0x000000cd
29030 @ 245935:               INIT   1
29031 @ 245938:               PUSHI  #0x00000001
29032 @ 245943:               INIT   1
29033 @ 245946:               PUSHI  #0x000000dc
29034 @ 245951:               INIT   1
29035 @ 245954:               PUSHI  #0x00000101
29036 @ 245959:               INIT   1
29037 @ 245962:               PUSHI  #0x00000129
29038 @ 245967:               INIT   1
29039 @ 245970:               PUSHI  #0x00000135
29040 @ 245975:               INIT   1
29041 @ 245978:               PUSHI  #0x0000013f
29042 @ 245983:               INIT   1
29043 @ 245986:               PUSHI  #0x00000147
29044 @ 245991:               INIT   1
29045 @ 245994:               PUSHI  #0x00000001
29046 @ 245999:               INIT   1
29047 @ 246002:               PUSHI  #0x00000001
29048 @ 246007:               INIT   1
29049 @ 246010:               PUSHI  #0x00000001
29050 @ 246015:               INIT   1

  5204  %CONSTBYTEINTEGERARRAY SYMBOL(1:340) =  %C
  5205  128,114,114,97,121,166,108,105,97,115,177,110,100,200,101,103,
  5206  105,110,133,121,116,101,155,111,111,108,101,97,110,155,111,110,
  5207  116,105,110,117,101,134,121,99,108,101,149,104,97,114,155,115,
  5208  116,114,105,110,103,159,109,109,101,110,116,173,115,116,97,110,
  5209  116,151,151,114,111,108,172,121,110,97,109,105,99,153,110,100,
  5210  129,108,115,101,132,120,105,116,134,118,101,110,116,174,116,101,
  5211  114,110,97,108,153,105,110,105,115,104,131,97,108,115,101,136,
  5212  111,114,109,97,116,162,110,163,117,110,99,116,105,111,110,163,
  5213  146,108,101,169,111,116,111,139,97,108,102,155,102,143,110,116,
  5214  101,103,101,114,156,99,108,117,100,101,175,97,98,101,108,150,
  5215  111,110,103,157,105,115,116,171,111,110,105,116,111,114,141,105,
  5216  116,101,155,97,112,163,97,109,101,161,111,116,178,110,142,119,
  5217  110,152,102,168,112,116,105,111,110,176,114,201,114,101,100,105,
  5218  99,97,116,101,164,111,103,114,97,109,170,101,112,101,97,116,
  5219  130,111,117,116,105,110,101,164,116,117,114,110,135,115,117,108,
  5220  116,137,97,100,111,110,108,121,154,99,111,114,100,160,108,158,
  5221  116,111,112,138,105,103,110,97,108,140,121,115,116,101,109,153,
  5222  104,111,114,116,155,112,101,99,165,119,105,116,99,104,167,97,
  5223  114,116,148,114,105,110,103,159,114,117,101,136,104,101,110,147,
  5224  101,120,116,155,110,108,101,115,115,143,116,105,108,145,111,108,
  5225  97,116,105,108,101,154,104,105,108,101,144,114,105,116,101,111,
  5226  110,108,121,154
  5227  
29051 @ 246018:               LINE   5204 "regression-compile-tmp/imp22g-77.imp"
29052 @ 246058:               PUSHI  #0x00000001
29053 @ 246063:               PUSHI  #0x00000154
29054 @ 246068:               BOUNDS
29055 @ 246069:               DEF    SYMBOL p1=V_0168 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
29056 @ 246087:               PUSHI  #0x00000080
29057 @ 246092:               INIT   1
29058 @ 246095:               PUSHI  #0x00000072
29059 @ 246100:               INIT   1
29060 @ 246103:               PUSHI  #0x00000072
29061 @ 246108:               INIT   1
29062 @ 246111:               PUSHI  #0x00000061
29063 @ 246116:               INIT   1
29064 @ 246119:               PUSHI  #0x00000079
29065 @ 246124:               INIT   1
29066 @ 246127:               PUSHI  #0x000000a6
29067 @ 246132:               INIT   1
29068 @ 246135:               PUSHI  #0x0000006c
29069 @ 246140:               INIT   1
29070 @ 246143:               PUSHI  #0x00000069
29071 @ 246148:               INIT   1
29072 @ 246151:               PUSHI  #0x00000061
29073 @ 246156:               INIT   1
29074 @ 246159:               PUSHI  #0x00000073
29075 @ 246164:               INIT   1
29076 @ 246167:               PUSHI  #0x000000b1
29077 @ 246172:               INIT   1
29078 @ 246175:               PUSHI  #0x0000006e
29079 @ 246180:               INIT   1
29080 @ 246183:               PUSHI  #0x00000064
29081 @ 246188:               INIT   1
29082 @ 246191:               PUSHI  #0x000000c8
29083 @ 246196:               INIT   1
29084 @ 246199:               PUSHI  #0x00000065
29085 @ 246204:               INIT   1
29086 @ 246207:               PUSHI  #0x00000067
29087 @ 246212:               INIT   1
29088 @ 246215:               PUSHI  #0x00000069
29089 @ 246220:               INIT   1
29090 @ 246223:               PUSHI  #0x0000006e
29091 @ 246228:               INIT   1
29092 @ 246231:               PUSHI  #0x00000085
29093 @ 246236:               INIT   1
29094 @ 246239:               PUSHI  #0x00000079
29095 @ 246244:               INIT   1
29096 @ 246247:               PUSHI  #0x00000074
29097 @ 246252:               INIT   1
29098 @ 246255:               PUSHI  #0x00000065
29099 @ 246260:               INIT   1
29100 @ 246263:               PUSHI  #0x0000009b
29101 @ 246268:               INIT   1
29102 @ 246271:               PUSHI  #0x0000006f
29103 @ 246276:               INIT   1
29104 @ 246279:               PUSHI  #0x0000006f
29105 @ 246284:               INIT   1
29106 @ 246287:               PUSHI  #0x0000006c
29107 @ 246292:               INIT   1
29108 @ 246295:               PUSHI  #0x00000065
29109 @ 246300:               INIT   1
29110 @ 246303:               PUSHI  #0x00000061
29111 @ 246308:               INIT   1
29112 @ 246311:               PUSHI  #0x0000006e
29113 @ 246316:               INIT   1
29114 @ 246319:               PUSHI  #0x0000009b
29115 @ 246324:               INIT   1
29116 @ 246327:               PUSHI  #0x0000006f
29117 @ 246332:               INIT   1
29118 @ 246335:               PUSHI  #0x0000006e
29119 @ 246340:               INIT   1
29120 @ 246343:               PUSHI  #0x00000074
29121 @ 246348:               INIT   1
29122 @ 246351:               PUSHI  #0x00000069
29123 @ 246356:               INIT   1
29124 @ 246359:               PUSHI  #0x0000006e
29125 @ 246364:               INIT   1
29126 @ 246367:               PUSHI  #0x00000075
29127 @ 246372:               INIT   1
29128 @ 246375:               PUSHI  #0x00000065
29129 @ 246380:               INIT   1
29130 @ 246383:               PUSHI  #0x00000086
29131 @ 246388:               INIT   1
29132 @ 246391:               PUSHI  #0x00000079
29133 @ 246396:               INIT   1
29134 @ 246399:               PUSHI  #0x00000063
29135 @ 246404:               INIT   1
29136 @ 246407:               PUSHI  #0x0000006c
29137 @ 246412:               INIT   1
29138 @ 246415:               PUSHI  #0x00000065
29139 @ 246420:               INIT   1
29140 @ 246423:               PUSHI  #0x00000095
29141 @ 246428:               INIT   1
29142 @ 246431:               PUSHI  #0x00000068
29143 @ 246436:               INIT   1
29144 @ 246439:               PUSHI  #0x00000061
29145 @ 246444:               INIT   1
29146 @ 246447:               PUSHI  #0x00000072
29147 @ 246452:               INIT   1
29148 @ 246455:               PUSHI  #0x0000009b
29149 @ 246460:               INIT   1
29150 @ 246463:               PUSHI  #0x00000073
29151 @ 246468:               INIT   1
29152 @ 246471:               PUSHI  #0x00000074
29153 @ 246476:               INIT   1
29154 @ 246479:               PUSHI  #0x00000072
29155 @ 246484:               INIT   1
29156 @ 246487:               PUSHI  #0x00000069
29157 @ 246492:               INIT   1
29158 @ 246495:               PUSHI  #0x0000006e
29159 @ 246500:               INIT   1
29160 @ 246503:               PUSHI  #0x00000067
29161 @ 246508:               INIT   1
29162 @ 246511:               PUSHI  #0x0000009f
29163 @ 246516:               INIT   1
29164 @ 246519:               PUSHI  #0x0000006d
29165 @ 246524:               INIT   1
29166 @ 246527:               PUSHI  #0x0000006d
29167 @ 246532:               INIT   1
29168 @ 246535:               PUSHI  #0x00000065
29169 @ 246540:               INIT   1
29170 @ 246543:               PUSHI  #0x0000006e
29171 @ 246548:               INIT   1
29172 @ 246551:               PUSHI  #0x00000074
29173 @ 246556:               INIT   1
29174 @ 246559:               PUSHI  #0x000000ad
29175 @ 246564:               INIT   1
29176 @ 246567:               PUSHI  #0x00000073
29177 @ 246572:               INIT   1
29178 @ 246575:               PUSHI  #0x00000074
29179 @ 246580:               INIT   1
29180 @ 246583:               PUSHI  #0x00000061
29181 @ 246588:               INIT   1
29182 @ 246591:               PUSHI  #0x0000006e
29183 @ 246596:               INIT   1
29184 @ 246599:               PUSHI  #0x00000074
29185 @ 246604:               INIT   1
29186 @ 246607:               PUSHI  #0x00000097
29187 @ 246612:               INIT   1
29188 @ 246615:               PUSHI  #0x00000097
29189 @ 246620:               INIT   1
29190 @ 246623:               PUSHI  #0x00000072
29191 @ 246628:               INIT   1
29192 @ 246631:               PUSHI  #0x0000006f
29193 @ 246636:               INIT   1
29194 @ 246639:               PUSHI  #0x0000006c
29195 @ 246644:               INIT   1
29196 @ 246647:               PUSHI  #0x000000ac
29197 @ 246652:               INIT   1
29198 @ 246655:               PUSHI  #0x00000079
29199 @ 246660:               INIT   1
29200 @ 246663:               PUSHI  #0x0000006e
29201 @ 246668:               INIT   1
29202 @ 246671:               PUSHI  #0x00000061
29203 @ 246676:               INIT   1
29204 @ 246679:               PUSHI  #0x0000006d
29205 @ 246684:               INIT   1
29206 @ 246687:               PUSHI  #0x00000069
29207 @ 246692:               INIT   1
29208 @ 246695:               PUSHI  #0x00000063
29209 @ 246700:               INIT   1
29210 @ 246703:               PUSHI  #0x00000099
29211 @ 246708:               INIT   1
29212 @ 246711:               PUSHI  #0x0000006e
29213 @ 246716:               INIT   1
29214 @ 246719:               PUSHI  #0x00000064
29215 @ 246724:               INIT   1
29216 @ 246727:               PUSHI  #0x00000081
29217 @ 246732:               INIT   1
29218 @ 246735:               PUSHI  #0x0000006c
29219 @ 246740:               INIT   1
29220 @ 246743:               PUSHI  #0x00000073
29221 @ 246748:               INIT   1
29222 @ 246751:               PUSHI  #0x00000065
29223 @ 246756:               INIT   1
29224 @ 246759:               PUSHI  #0x00000084
29225 @ 246764:               INIT   1
29226 @ 246767:               PUSHI  #0x00000078
29227 @ 246772:               INIT   1
29228 @ 246775:               PUSHI  #0x00000069
29229 @ 246780:               INIT   1
29230 @ 246783:               PUSHI  #0x00000074
29231 @ 246788:               INIT   1
29232 @ 246791:               PUSHI  #0x00000086
29233 @ 246796:               INIT   1
29234 @ 246799:               PUSHI  #0x00000076
29235 @ 246804:               INIT   1
29236 @ 246807:               PUSHI  #0x00000065
29237 @ 246812:               INIT   1
29238 @ 246815:               PUSHI  #0x0000006e
29239 @ 246820:               INIT   1
29240 @ 246823:               PUSHI  #0x00000074
29241 @ 246828:               INIT   1
29242 @ 246831:               PUSHI  #0x000000ae
29243 @ 246836:               INIT   1
29244 @ 246839:               PUSHI  #0x00000074
29245 @ 246844:               INIT   1
29246 @ 246847:               PUSHI  #0x00000065
29247 @ 246852:               INIT   1
29248 @ 246855:               PUSHI  #0x00000072
29249 @ 246860:               INIT   1
29250 @ 246863:               PUSHI  #0x0000006e
29251 @ 246868:               INIT   1
29252 @ 246871:               PUSHI  #0x00000061
29253 @ 246876:               INIT   1
29254 @ 246879:               PUSHI  #0x0000006c
29255 @ 246884:               INIT   1
29256 @ 246887:               PUSHI  #0x00000099
29257 @ 246892:               INIT   1
29258 @ 246895:               PUSHI  #0x00000069
29259 @ 246900:               INIT   1
29260 @ 246903:               PUSHI  #0x0000006e
29261 @ 246908:               INIT   1
29262 @ 246911:               PUSHI  #0x00000069
29263 @ 246916:               INIT   1
29264 @ 246919:               PUSHI  #0x00000073
29265 @ 246924:               INIT   1
29266 @ 246927:               PUSHI  #0x00000068
29267 @ 246932:               INIT   1
29268 @ 246935:               PUSHI  #0x00000083
29269 @ 246940:               INIT   1
29270 @ 246943:               PUSHI  #0x00000061
29271 @ 246948:               INIT   1
29272 @ 246951:               PUSHI  #0x0000006c
29273 @ 246956:               INIT   1
29274 @ 246959:               PUSHI  #0x00000073
29275 @ 246964:               INIT   1
29276 @ 246967:               PUSHI  #0x00000065
29277 @ 246972:               INIT   1
29278 @ 246975:               PUSHI  #0x00000088
29279 @ 246980:               INIT   1
29280 @ 246983:               PUSHI  #0x0000006f
29281 @ 246988:               INIT   1
29282 @ 246991:               PUSHI  #0x00000072
29283 @ 246996:               INIT   1
29284 @ 246999:               PUSHI  #0x0000006d
29285 @ 247004:               INIT   1
29286 @ 247007:               PUSHI  #0x00000061
29287 @ 247012:               INIT   1
29288 @ 247015:               PUSHI  #0x00000074
29289 @ 247020:               INIT   1
29290 @ 247023:               PUSHI  #0x000000a2
29291 @ 247028:               INIT   1
29292 @ 247031:               PUSHI  #0x0000006e
29293 @ 247036:               INIT   1
29294 @ 247039:               PUSHI  #0x000000a3
29295 @ 247044:               INIT   1
29296 @ 247047:               PUSHI  #0x00000075
29297 @ 247052:               INIT   1
29298 @ 247055:               PUSHI  #0x0000006e
29299 @ 247060:               INIT   1
29300 @ 247063:               PUSHI  #0x00000063
29301 @ 247068:               INIT   1
29302 @ 247071:               PUSHI  #0x00000074
29303 @ 247076:               INIT   1
29304 @ 247079:               PUSHI  #0x00000069
29305 @ 247084:               INIT   1
29306 @ 247087:               PUSHI  #0x0000006f
29307 @ 247092:               INIT   1
29308 @ 247095:               PUSHI  #0x0000006e
29309 @ 247100:               INIT   1
29310 @ 247103:               PUSHI  #0x000000a3
29311 @ 247108:               INIT   1
29312 @ 247111:               PUSHI  #0x00000092
29313 @ 247116:               INIT   1
29314 @ 247119:               PUSHI  #0x0000006c
29315 @ 247124:               INIT   1
29316 @ 247127:               PUSHI  #0x00000065
29317 @ 247132:               INIT   1
29318 @ 247135:               PUSHI  #0x000000a9
29319 @ 247140:               INIT   1
29320 @ 247143:               PUSHI  #0x0000006f
29321 @ 247148:               INIT   1
29322 @ 247151:               PUSHI  #0x00000074
29323 @ 247156:               INIT   1
29324 @ 247159:               PUSHI  #0x0000006f
29325 @ 247164:               INIT   1
29326 @ 247167:               PUSHI  #0x0000008b
29327 @ 247172:               INIT   1
29328 @ 247175:               PUSHI  #0x00000061
29329 @ 247180:               INIT   1
29330 @ 247183:               PUSHI  #0x0000006c
29331 @ 247188:               INIT   1
29332 @ 247191:               PUSHI  #0x00000066
29333 @ 247196:               INIT   1
29334 @ 247199:               PUSHI  #0x0000009b
29335 @ 247204:               INIT   1
29336 @ 247207:               PUSHI  #0x00000066
29337 @ 247212:               INIT   1
29338 @ 247215:               PUSHI  #0x0000008f
29339 @ 247220:               INIT   1
29340 @ 247223:               PUSHI  #0x0000006e
29341 @ 247228:               INIT   1
29342 @ 247231:               PUSHI  #0x00000074
29343 @ 247236:               INIT   1
29344 @ 247239:               PUSHI  #0x00000065
29345 @ 247244:               INIT   1
29346 @ 247247:               PUSHI  #0x00000067
29347 @ 247252:               INIT   1
29348 @ 247255:               PUSHI  #0x00000065
29349 @ 247260:               INIT   1
29350 @ 247263:               PUSHI  #0x00000072
29351 @ 247268:               INIT   1
29352 @ 247271:               PUSHI  #0x0000009c
29353 @ 247276:               INIT   1
29354 @ 247279:               PUSHI  #0x00000063
29355 @ 247284:               INIT   1
29356 @ 247287:               PUSHI  #0x0000006c
29357 @ 247292:               INIT   1
29358 @ 247295:               PUSHI  #0x00000075
29359 @ 247300:               INIT   1
29360 @ 247303:               PUSHI  #0x00000064
29361 @ 247308:               INIT   1
29362 @ 247311:               PUSHI  #0x00000065
29363 @ 247316:               INIT   1
29364 @ 247319:               PUSHI  #0x000000af
29365 @ 247324:               INIT   1
29366 @ 247327:               PUSHI  #0x00000061
29367 @ 247332:               INIT   1
29368 @ 247335:               PUSHI  #0x00000062
29369 @ 247340:               INIT   1
29370 @ 247343:               PUSHI  #0x00000065
29371 @ 247348:               INIT   1
29372 @ 247351:               PUSHI  #0x0000006c
29373 @ 247356:               INIT   1
29374 @ 247359:               PUSHI  #0x00000096
29375 @ 247364:               INIT   1
29376 @ 247367:               PUSHI  #0x0000006f
29377 @ 247372:               INIT   1
29378 @ 247375:               PUSHI  #0x0000006e
29379 @ 247380:               INIT   1
29380 @ 247383:               PUSHI  #0x00000067
29381 @ 247388:               INIT   1
29382 @ 247391:               PUSHI  #0x0000009d
29383 @ 247396:               INIT   1
29384 @ 247399:               PUSHI  #0x00000069
29385 @ 247404:               INIT   1
29386 @ 247407:               PUSHI  #0x00000073
29387 @ 247412:               INIT   1
29388 @ 247415:               PUSHI  #0x00000074
29389 @ 247420:               INIT   1
29390 @ 247423:               PUSHI  #0x000000ab
29391 @ 247428:               INIT   1
29392 @ 247431:               PUSHI  #0x0000006f
29393 @ 247436:               INIT   1
29394 @ 247439:               PUSHI  #0x0000006e
29395 @ 247444:               INIT   1
29396 @ 247447:               PUSHI  #0x00000069
29397 @ 247452:               INIT   1
29398 @ 247455:               PUSHI  #0x00000074
29399 @ 247460:               INIT   1
29400 @ 247463:               PUSHI  #0x0000006f
29401 @ 247468:               INIT   1
29402 @ 247471:               PUSHI  #0x00000072
29403 @ 247476:               INIT   1
29404 @ 247479:               PUSHI  #0x0000008d
29405 @ 247484:               INIT   1
29406 @ 247487:               PUSHI  #0x00000069
29407 @ 247492:               INIT   1
29408 @ 247495:               PUSHI  #0x00000074
29409 @ 247500:               INIT   1
29410 @ 247503:               PUSHI  #0x00000065
29411 @ 247508:               INIT   1
29412 @ 247511:               PUSHI  #0x0000009b
29413 @ 247516:               INIT   1
29414 @ 247519:               PUSHI  #0x00000061
29415 @ 247524:               INIT   1
29416 @ 247527:               PUSHI  #0x00000070
29417 @ 247532:               INIT   1
29418 @ 247535:               PUSHI  #0x000000a3
29419 @ 247540:               INIT   1
29420 @ 247543:               PUSHI  #0x00000061
29421 @ 247548:               INIT   1
29422 @ 247551:               PUSHI  #0x0000006d
29423 @ 247556:               INIT   1
29424 @ 247559:               PUSHI  #0x00000065
29425 @ 247564:               INIT   1
29426 @ 247567:               PUSHI  #0x000000a1
29427 @ 247572:               INIT   1
29428 @ 247575:               PUSHI  #0x0000006f
29429 @ 247580:               INIT   1
29430 @ 247583:               PUSHI  #0x00000074
29431 @ 247588:               INIT   1
29432 @ 247591:               PUSHI  #0x000000b2
29433 @ 247596:               INIT   1
29434 @ 247599:               PUSHI  #0x0000006e
29435 @ 247604:               INIT   1
29436 @ 247607:               PUSHI  #0x0000008e
29437 @ 247612:               INIT   1
29438 @ 247615:               PUSHI  #0x00000077
29439 @ 247620:               INIT   1
29440 @ 247623:               PUSHI  #0x0000006e
29441 @ 247628:               INIT   1
29442 @ 247631:               PUSHI  #0x00000098
29443 @ 247636:               INIT   1
29444 @ 247639:               PUSHI  #0x00000066
29445 @ 247644:               INIT   1
29446 @ 247647:               PUSHI  #0x000000a8
29447 @ 247652:               INIT   1
29448 @ 247655:               PUSHI  #0x00000070
29449 @ 247660:               INIT   1
29450 @ 247663:               PUSHI  #0x00000074
29451 @ 247668:               INIT   1
29452 @ 247671:               PUSHI  #0x00000069
29453 @ 247676:               INIT   1
29454 @ 247679:               PUSHI  #0x0000006f
29455 @ 247684:               INIT   1
29456 @ 247687:               PUSHI  #0x0000006e
29457 @ 247692:               INIT   1
29458 @ 247695:               PUSHI  #0x000000b0
29459 @ 247700:               INIT   1
29460 @ 247703:               PUSHI  #0x00000072
29461 @ 247708:               INIT   1
29462 @ 247711:               PUSHI  #0x000000c9
29463 @ 247716:               INIT   1
29464 @ 247719:               PUSHI  #0x00000072
29465 @ 247724:               INIT   1
29466 @ 247727:               PUSHI  #0x00000065
29467 @ 247732:               INIT   1
29468 @ 247735:               PUSHI  #0x00000064
29469 @ 247740:               INIT   1
29470 @ 247743:               PUSHI  #0x00000069
29471 @ 247748:               INIT   1
29472 @ 247751:               PUSHI  #0x00000063
29473 @ 247756:               INIT   1
29474 @ 247759:               PUSHI  #0x00000061
29475 @ 247764:               INIT   1
29476 @ 247767:               PUSHI  #0x00000074
29477 @ 247772:               INIT   1
29478 @ 247775:               PUSHI  #0x00000065
29479 @ 247780:               INIT   1
29480 @ 247783:               PUSHI  #0x000000a4
29481 @ 247788:               INIT   1
29482 @ 247791:               PUSHI  #0x0000006f
29483 @ 247796:               INIT   1
29484 @ 247799:               PUSHI  #0x00000067
29485 @ 247804:               INIT   1
29486 @ 247807:               PUSHI  #0x00000072
29487 @ 247812:               INIT   1
29488 @ 247815:               PUSHI  #0x00000061
29489 @ 247820:               INIT   1
29490 @ 247823:               PUSHI  #0x0000006d
29491 @ 247828:               INIT   1
29492 @ 247831:               PUSHI  #0x000000aa
29493 @ 247836:               INIT   1
29494 @ 247839:               PUSHI  #0x00000065
29495 @ 247844:               INIT   1
29496 @ 247847:               PUSHI  #0x00000070
29497 @ 247852:               INIT   1
29498 @ 247855:               PUSHI  #0x00000065
29499 @ 247860:               INIT   1
29500 @ 247863:               PUSHI  #0x00000061
29501 @ 247868:               INIT   1
29502 @ 247871:               PUSHI  #0x00000074
29503 @ 247876:               INIT   1
29504 @ 247879:               PUSHI  #0x00000082
29505 @ 247884:               INIT   1
29506 @ 247887:               PUSHI  #0x0000006f
29507 @ 247892:               INIT   1
29508 @ 247895:               PUSHI  #0x00000075
29509 @ 247900:               INIT   1
29510 @ 247903:               PUSHI  #0x00000074
29511 @ 247908:               INIT   1
29512 @ 247911:               PUSHI  #0x00000069
29513 @ 247916:               INIT   1
29514 @ 247919:               PUSHI  #0x0000006e
29515 @ 247924:               INIT   1
29516 @ 247927:               PUSHI  #0x00000065
29517 @ 247932:               INIT   1
29518 @ 247935:               PUSHI  #0x000000a4
29519 @ 247940:               INIT   1
29520 @ 247943:               PUSHI  #0x00000074
29521 @ 247948:               INIT   1
29522 @ 247951:               PUSHI  #0x00000075
29523 @ 247956:               INIT   1
29524 @ 247959:               PUSHI  #0x00000072
29525 @ 247964:               INIT   1
29526 @ 247967:               PUSHI  #0x0000006e
29527 @ 247972:               INIT   1
29528 @ 247975:               PUSHI  #0x00000087
29529 @ 247980:               INIT   1
29530 @ 247983:               PUSHI  #0x00000073
29531 @ 247988:               INIT   1
29532 @ 247991:               PUSHI  #0x00000075
29533 @ 247996:               INIT   1
29534 @ 247999:               PUSHI  #0x0000006c
29535 @ 248004:               INIT   1
29536 @ 248007:               PUSHI  #0x00000074
29537 @ 248012:               INIT   1
29538 @ 248015:               PUSHI  #0x00000089
29539 @ 248020:               INIT   1
29540 @ 248023:               PUSHI  #0x00000061
29541 @ 248028:               INIT   1
29542 @ 248031:               PUSHI  #0x00000064
29543 @ 248036:               INIT   1
29544 @ 248039:               PUSHI  #0x0000006f
29545 @ 248044:               INIT   1
29546 @ 248047:               PUSHI  #0x0000006e
29547 @ 248052:               INIT   1
29548 @ 248055:               PUSHI  #0x0000006c
29549 @ 248060:               INIT   1
29550 @ 248063:               PUSHI  #0x00000079
29551 @ 248068:               INIT   1
29552 @ 248071:               PUSHI  #0x0000009a
29553 @ 248076:               INIT   1
29554 @ 248079:               PUSHI  #0x00000063
29555 @ 248084:               INIT   1
29556 @ 248087:               PUSHI  #0x0000006f
29557 @ 248092:               INIT   1
29558 @ 248095:               PUSHI  #0x00000072
29559 @ 248100:               INIT   1
29560 @ 248103:               PUSHI  #0x00000064
29561 @ 248108:               INIT   1
29562 @ 248111:               PUSHI  #0x000000a0
29563 @ 248116:               INIT   1
29564 @ 248119:               PUSHI  #0x0000006c
29565 @ 248124:               INIT   1
29566 @ 248127:               PUSHI  #0x0000009e
29567 @ 248132:               INIT   1
29568 @ 248135:               PUSHI  #0x00000074
29569 @ 248140:               INIT   1
29570 @ 248143:               PUSHI  #0x0000006f
29571 @ 248148:               INIT   1
29572 @ 248151:               PUSHI  #0x00000070
29573 @ 248156:               INIT   1
29574 @ 248159:               PUSHI  #0x0000008a
29575 @ 248164:               INIT   1
29576 @ 248167:               PUSHI  #0x00000069
29577 @ 248172:               INIT   1
29578 @ 248175:               PUSHI  #0x00000067
29579 @ 248180:               INIT   1
29580 @ 248183:               PUSHI  #0x0000006e
29581 @ 248188:               INIT   1
29582 @ 248191:               PUSHI  #0x00000061
29583 @ 248196:               INIT   1
29584 @ 248199:               PUSHI  #0x0000006c
29585 @ 248204:               INIT   1
29586 @ 248207:               PUSHI  #0x0000008c
29587 @ 248212:               INIT   1
29588 @ 248215:               PUSHI  #0x00000079
29589 @ 248220:               INIT   1
29590 @ 248223:               PUSHI  #0x00000073
29591 @ 248228:               INIT   1
29592 @ 248231:               PUSHI  #0x00000074
29593 @ 248236:               INIT   1
29594 @ 248239:               PUSHI  #0x00000065
29595 @ 248244:               INIT   1
29596 @ 248247:               PUSHI  #0x0000006d
29597 @ 248252:               INIT   1
29598 @ 248255:               PUSHI  #0x00000099
29599 @ 248260:               INIT   1
29600 @ 248263:               PUSHI  #0x00000068
29601 @ 248268:               INIT   1
29602 @ 248271:               PUSHI  #0x0000006f
29603 @ 248276:               INIT   1
29604 @ 248279:               PUSHI  #0x00000072
29605 @ 248284:               INIT   1
29606 @ 248287:               PUSHI  #0x00000074
29607 @ 248292:               INIT   1
29608 @ 248295:               PUSHI  #0x0000009b
29609 @ 248300:               INIT   1
29610 @ 248303:               PUSHI  #0x00000070
29611 @ 248308:               INIT   1
29612 @ 248311:               PUSHI  #0x00000065
29613 @ 248316:               INIT   1
29614 @ 248319:               PUSHI  #0x00000063
29615 @ 248324:               INIT   1
29616 @ 248327:               PUSHI  #0x000000a5
29617 @ 248332:               INIT   1
29618 @ 248335:               PUSHI  #0x00000077
29619 @ 248340:               INIT   1
29620 @ 248343:               PUSHI  #0x00000069
29621 @ 248348:               INIT   1
29622 @ 248351:               PUSHI  #0x00000074
29623 @ 248356:               INIT   1
29624 @ 248359:               PUSHI  #0x00000063
29625 @ 248364:               INIT   1
29626 @ 248367:               PUSHI  #0x00000068
29627 @ 248372:               INIT   1
29628 @ 248375:               PUSHI  #0x000000a7
29629 @ 248380:               INIT   1
29630 @ 248383:               PUSHI  #0x00000061
29631 @ 248388:               INIT   1
29632 @ 248391:               PUSHI  #0x00000072
29633 @ 248396:               INIT   1
29634 @ 248399:               PUSHI  #0x00000074
29635 @ 248404:               INIT   1
29636 @ 248407:               PUSHI  #0x00000094
29637 @ 248412:               INIT   1
29638 @ 248415:               PUSHI  #0x00000072
29639 @ 248420:               INIT   1
29640 @ 248423:               PUSHI  #0x00000069
29641 @ 248428:               INIT   1
29642 @ 248431:               PUSHI  #0x0000006e
29643 @ 248436:               INIT   1
29644 @ 248439:               PUSHI  #0x00000067
29645 @ 248444:               INIT   1
29646 @ 248447:               PUSHI  #0x0000009f
29647 @ 248452:               INIT   1
29648 @ 248455:               PUSHI  #0x00000072
29649 @ 248460:               INIT   1
29650 @ 248463:               PUSHI  #0x00000075
29651 @ 248468:               INIT   1
29652 @ 248471:               PUSHI  #0x00000065
29653 @ 248476:               INIT   1
29654 @ 248479:               PUSHI  #0x00000088
29655 @ 248484:               INIT   1
29656 @ 248487:               PUSHI  #0x00000068
29657 @ 248492:               INIT   1
29658 @ 248495:               PUSHI  #0x00000065
29659 @ 248500:               INIT   1
29660 @ 248503:               PUSHI  #0x0000006e
29661 @ 248508:               INIT   1
29662 @ 248511:               PUSHI  #0x00000093
29663 @ 248516:               INIT   1
29664 @ 248519:               PUSHI  #0x00000065
29665 @ 248524:               INIT   1
29666 @ 248527:               PUSHI  #0x00000078
29667 @ 248532:               INIT   1
29668 @ 248535:               PUSHI  #0x00000074
29669 @ 248540:               INIT   1
29670 @ 248543:               PUSHI  #0x0000009b
29671 @ 248548:               INIT   1
29672 @ 248551:               PUSHI  #0x0000006e
29673 @ 248556:               INIT   1
29674 @ 248559:               PUSHI  #0x0000006c
29675 @ 248564:               INIT   1
29676 @ 248567:               PUSHI  #0x00000065
29677 @ 248572:               INIT   1
29678 @ 248575:               PUSHI  #0x00000073
29679 @ 248580:               INIT   1
29680 @ 248583:               PUSHI  #0x00000073
29681 @ 248588:               INIT   1
29682 @ 248591:               PUSHI  #0x0000008f
29683 @ 248596:               INIT   1
29684 @ 248599:               PUSHI  #0x00000074
29685 @ 248604:               INIT   1
29686 @ 248607:               PUSHI  #0x00000069
29687 @ 248612:               INIT   1
29688 @ 248615:               PUSHI  #0x0000006c
29689 @ 248620:               INIT   1
29690 @ 248623:               PUSHI  #0x00000091
29691 @ 248628:               INIT   1
29692 @ 248631:               PUSHI  #0x0000006f
29693 @ 248636:               INIT   1
29694 @ 248639:               PUSHI  #0x0000006c
29695 @ 248644:               INIT   1
29696 @ 248647:               PUSHI  #0x00000061
29697 @ 248652:               INIT   1
29698 @ 248655:               PUSHI  #0x00000074
29699 @ 248660:               INIT   1
29700 @ 248663:               PUSHI  #0x00000069
29701 @ 248668:               INIT   1
29702 @ 248671:               PUSHI  #0x0000006c
29703 @ 248676:               INIT   1
29704 @ 248679:               PUSHI  #0x00000065
29705 @ 248684:               INIT   1
29706 @ 248687:               PUSHI  #0x0000009a
29707 @ 248692:               INIT   1
29708 @ 248695:               PUSHI  #0x00000068
29709 @ 248700:               INIT   1
29710 @ 248703:               PUSHI  #0x00000069
29711 @ 248708:               INIT   1
29712 @ 248711:               PUSHI  #0x0000006c
29713 @ 248716:               INIT   1
29714 @ 248719:               PUSHI  #0x00000065
29715 @ 248724:               INIT   1
29716 @ 248727:               PUSHI  #0x00000090
29717 @ 248732:               INIT   1
29718 @ 248735:               PUSHI  #0x00000072
29719 @ 248740:               INIT   1
29720 @ 248743:               PUSHI  #0x00000069
29721 @ 248748:               INIT   1
29722 @ 248751:               PUSHI  #0x00000074
29723 @ 248756:               INIT   1
29724 @ 248759:               PUSHI  #0x00000065
29725 @ 248764:               INIT   1
29726 @ 248767:               PUSHI  #0x0000006f
29727 @ 248772:               INIT   1
29728 @ 248775:               PUSHI  #0x0000006e
29729 @ 248780:               INIT   1
29730 @ 248783:               PUSHI  #0x0000006c
29731 @ 248788:               INIT   1
29732 @ 248791:               PUSHI  #0x00000079
29733 @ 248796:               INIT   1
29734 @ 248799:               PUSHI  #0x0000009a
29735 @ 248804:               INIT   1

  5228  %CONSTBYTEINTEGERARRAY ALTDISP(1:340) =  %C
  5229  0,5,0,0,0,0,5,0,0,0,0,0,0,0,5,0,
  5230  0,0,0,4,0,0,9,0,0,0,0,0,0,15,8,23,
  5231  28,34,0,0,0,0,5,0,0,0,0,4,0,0,18,0,
  5232  0,0,0,0,0,1,0,0,0,0,0,0,0,0,4,0,
  5233  0,0,0,0,0,0,0,0,0,0,0,0,0,7,3,0,
  5234  0,4,0,0,0,4,8,0,1,0,0,0,0,0,0,0,
  5235  0,0,0,0,6,6,27,0,0,0,0,5,0,0,0,0,
  5236  6,0,14,0,0,0,2,0,0,0,0,0,0,0,0,0,
  5237  0,0,0,0,0,0,0,0,0,0,0,6,2,0,0,6,
  5238  0,0,0,0,0,0,0,0,0,0,0,5,0,0,0,0,
  5239  4,0,0,0,0,0,0,0,7,0,0,0,0,0,0,4,
  5240  0,0,12,0,0,1,4,0,0,0,0,0,0,2,0,3,
  5241  0,0,2,0,6,0,0,0,0,0,0,0,0,8,0,0,
  5242  0,0,0,0,1,0,0,0,0,0,0,6,12,0,0,0,
  5243  0,0,0,0,0,0,0,0,5,0,0,0,0,5,0,0,
  5244  0,0,7,11,0,0,0,0,0,0,0,0,0,0,0,0,
  5245  4,30,0,0,6,0,0,0,0,0,6,0,0,0,0,5,
  5246  5,0,0,0,3,4,0,0,0,0,0,0,0,0,0,4,
  5247  0,0,0,0,0,0,0,0,4,0,0,1,4,0,0,0,
  5248  0,0,0,25,0,5,0,0,0,1,0,0,0,1,0,0,
  5249  0,0,0,0,0,2,5,0,0,0,0,0,0,0,0,0,
  5250  0,0,0,1
  5251  
  5252  
  5253  !! end of generated tables
  5254  
29736 @ 248807:               LINE   5228 "regression-compile-tmp/imp22g-77.imp"
29737 @ 248847:               PUSHI  #0x00000001
29738 @ 248852:               PUSHI  #0x00000154
29739 @ 248857:               BOUNDS
29740 @ 248858:               DEF    ALTDISP p1=V_0169 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
29741 @ 248877:               PUSHI  #0x00000000
29742 @ 248882:               INIT   1
29743 @ 248885:               PUSHI  #0x00000005
29744 @ 248890:               INIT   1
29745 @ 248893:               PUSHI  #0x00000000
29746 @ 248898:               INIT   1
29747 @ 248901:               PUSHI  #0x00000000
29748 @ 248906:               INIT   1
29749 @ 248909:               PUSHI  #0x00000000
29750 @ 248914:               INIT   1
29751 @ 248917:               PUSHI  #0x00000000
29752 @ 248922:               INIT   1
29753 @ 248925:               PUSHI  #0x00000005
29754 @ 248930:               INIT   1
29755 @ 248933:               PUSHI  #0x00000000
29756 @ 248938:               INIT   1
29757 @ 248941:               PUSHI  #0x00000000
29758 @ 248946:               INIT   1
29759 @ 248949:               PUSHI  #0x00000000
29760 @ 248954:               INIT   1
29761 @ 248957:               PUSHI  #0x00000000
29762 @ 248962:               INIT   1
29763 @ 248965:               PUSHI  #0x00000000
29764 @ 248970:               INIT   1
29765 @ 248973:               PUSHI  #0x00000000
29766 @ 248978:               INIT   1
29767 @ 248981:               PUSHI  #0x00000000
29768 @ 248986:               INIT   1
29769 @ 248989:               PUSHI  #0x00000005
29770 @ 248994:               INIT   1
29771 @ 248997:               PUSHI  #0x00000000
29772 @ 249002:               INIT   1
29773 @ 249005:               PUSHI  #0x00000000
29774 @ 249010:               INIT   1
29775 @ 249013:               PUSHI  #0x00000000
29776 @ 249018:               INIT   1
29777 @ 249021:               PUSHI  #0x00000000
29778 @ 249026:               INIT   1
29779 @ 249029:               PUSHI  #0x00000004
29780 @ 249034:               INIT   1
29781 @ 249037:               PUSHI  #0x00000000
29782 @ 249042:               INIT   1
29783 @ 249045:               PUSHI  #0x00000000
29784 @ 249050:               INIT   1
29785 @ 249053:               PUSHI  #0x00000009
29786 @ 249058:               INIT   1
29787 @ 249061:               PUSHI  #0x00000000
29788 @ 249066:               INIT   1
29789 @ 249069:               PUSHI  #0x00000000
29790 @ 249074:               INIT   1
29791 @ 249077:               PUSHI  #0x00000000
29792 @ 249082:               INIT   1
29793 @ 249085:               PUSHI  #0x00000000
29794 @ 249090:               INIT   1
29795 @ 249093:               PUSHI  #0x00000000
29796 @ 249098:               INIT   1
29797 @ 249101:               PUSHI  #0x00000000
29798 @ 249106:               INIT   1
29799 @ 249109:               PUSHI  #0x0000000f
29800 @ 249114:               INIT   1
29801 @ 249117:               PUSHI  #0x00000008
29802 @ 249122:               INIT   1
29803 @ 249125:               PUSHI  #0x00000017
29804 @ 249130:               INIT   1
29805 @ 249133:               PUSHI  #0x0000001c
29806 @ 249138:               INIT   1
29807 @ 249141:               PUSHI  #0x00000022
29808 @ 249146:               INIT   1
29809 @ 249149:               PUSHI  #0x00000000
29810 @ 249154:               INIT   1
29811 @ 249157:               PUSHI  #0x00000000
29812 @ 249162:               INIT   1
29813 @ 249165:               PUSHI  #0x00000000
29814 @ 249170:               INIT   1
29815 @ 249173:               PUSHI  #0x00000000
29816 @ 249178:               INIT   1
29817 @ 249181:               PUSHI  #0x00000005
29818 @ 249186:               INIT   1
29819 @ 249189:               PUSHI  #0x00000000
29820 @ 249194:               INIT   1
29821 @ 249197:               PUSHI  #0x00000000
29822 @ 249202:               INIT   1
29823 @ 249205:               PUSHI  #0x00000000
29824 @ 249210:               INIT   1
29825 @ 249213:               PUSHI  #0x00000000
29826 @ 249218:               INIT   1
29827 @ 249221:               PUSHI  #0x00000004
29828 @ 249226:               INIT   1
29829 @ 249229:               PUSHI  #0x00000000
29830 @ 249234:               INIT   1
29831 @ 249237:               PUSHI  #0x00000000
29832 @ 249242:               INIT   1
29833 @ 249245:               PUSHI  #0x00000012
29834 @ 249250:               INIT   1
29835 @ 249253:               PUSHI  #0x00000000
29836 @ 249258:               INIT   1
29837 @ 249261:               PUSHI  #0x00000000
29838 @ 249266:               INIT   1
29839 @ 249269:               PUSHI  #0x00000000
29840 @ 249274:               INIT   1
29841 @ 249277:               PUSHI  #0x00000000
29842 @ 249282:               INIT   1
29843 @ 249285:               PUSHI  #0x00000000
29844 @ 249290:               INIT   1
29845 @ 249293:               PUSHI  #0x00000000
29846 @ 249298:               INIT   1
29847 @ 249301:               PUSHI  #0x00000001
29848 @ 249306:               INIT   1
29849 @ 249309:               PUSHI  #0x00000000
29850 @ 249314:               INIT   1
29851 @ 249317:               PUSHI  #0x00000000
29852 @ 249322:               INIT   1
29853 @ 249325:               PUSHI  #0x00000000
29854 @ 249330:               INIT   1
29855 @ 249333:               PUSHI  #0x00000000
29856 @ 249338:               INIT   1
29857 @ 249341:               PUSHI  #0x00000000
29858 @ 249346:               INIT   1
29859 @ 249349:               PUSHI  #0x00000000
29860 @ 249354:               INIT   1
29861 @ 249357:               PUSHI  #0x00000000
29862 @ 249362:               INIT   1
29863 @ 249365:               PUSHI  #0x00000000
29864 @ 249370:               INIT   1
29865 @ 249373:               PUSHI  #0x00000004
29866 @ 249378:               INIT   1
29867 @ 249381:               PUSHI  #0x00000000
29868 @ 249386:               INIT   1
29869 @ 249389:               PUSHI  #0x00000000
29870 @ 249394:               INIT   1
29871 @ 249397:               PUSHI  #0x00000000
29872 @ 249402:               INIT   1
29873 @ 249405:               PUSHI  #0x00000000
29874 @ 249410:               INIT   1
29875 @ 249413:               PUSHI  #0x00000000
29876 @ 249418:               INIT   1
29877 @ 249421:               PUSHI  #0x00000000
29878 @ 249426:               INIT   1
29879 @ 249429:               PUSHI  #0x00000000
29880 @ 249434:               INIT   1
29881 @ 249437:               PUSHI  #0x00000000
29882 @ 249442:               INIT   1
29883 @ 249445:               PUSHI  #0x00000000
29884 @ 249450:               INIT   1
29885 @ 249453:               PUSHI  #0x00000000
29886 @ 249458:               INIT   1
29887 @ 249461:               PUSHI  #0x00000000
29888 @ 249466:               INIT   1
29889 @ 249469:               PUSHI  #0x00000000
29890 @ 249474:               INIT   1
29891 @ 249477:               PUSHI  #0x00000000
29892 @ 249482:               INIT   1
29893 @ 249485:               PUSHI  #0x00000000
29894 @ 249490:               INIT   1
29895 @ 249493:               PUSHI  #0x00000007
29896 @ 249498:               INIT   1
29897 @ 249501:               PUSHI  #0x00000003
29898 @ 249506:               INIT   1
29899 @ 249509:               PUSHI  #0x00000000
29900 @ 249514:               INIT   1
29901 @ 249517:               PUSHI  #0x00000000
29902 @ 249522:               INIT   1
29903 @ 249525:               PUSHI  #0x00000004
29904 @ 249530:               INIT   1
29905 @ 249533:               PUSHI  #0x00000000
29906 @ 249538:               INIT   1
29907 @ 249541:               PUSHI  #0x00000000
29908 @ 249546:               INIT   1
29909 @ 249549:               PUSHI  #0x00000000
29910 @ 249554:               INIT   1
29911 @ 249557:               PUSHI  #0x00000004
29912 @ 249562:               INIT   1
29913 @ 249565:               PUSHI  #0x00000008
29914 @ 249570:               INIT   1
29915 @ 249573:               PUSHI  #0x00000000
29916 @ 249578:               INIT   1
29917 @ 249581:               PUSHI  #0x00000001
29918 @ 249586:               INIT   1
29919 @ 249589:               PUSHI  #0x00000000
29920 @ 249594:               INIT   1
29921 @ 249597:               PUSHI  #0x00000000
29922 @ 249602:               INIT   1
29923 @ 249605:               PUSHI  #0x00000000
29924 @ 249610:               INIT   1
29925 @ 249613:               PUSHI  #0x00000000
29926 @ 249618:               INIT   1
29927 @ 249621:               PUSHI  #0x00000000
29928 @ 249626:               INIT   1
29929 @ 249629:               PUSHI  #0x00000000
29930 @ 249634:               INIT   1
29931 @ 249637:               PUSHI  #0x00000000
29932 @ 249642:               INIT   1
29933 @ 249645:               PUSHI  #0x00000000
29934 @ 249650:               INIT   1
29935 @ 249653:               PUSHI  #0x00000000
29936 @ 249658:               INIT   1
29937 @ 249661:               PUSHI  #0x00000000
29938 @ 249666:               INIT   1
29939 @ 249669:               PUSHI  #0x00000000
29940 @ 249674:               INIT   1
29941 @ 249677:               PUSHI  #0x00000006
29942 @ 249682:               INIT   1
29943 @ 249685:               PUSHI  #0x00000006
29944 @ 249690:               INIT   1
29945 @ 249693:               PUSHI  #0x0000001b
29946 @ 249698:               INIT   1
29947 @ 249701:               PUSHI  #0x00000000
29948 @ 249706:               INIT   1
29949 @ 249709:               PUSHI  #0x00000000
29950 @ 249714:               INIT   1
29951 @ 249717:               PUSHI  #0x00000000
29952 @ 249722:               INIT   1
29953 @ 249725:               PUSHI  #0x00000000
29954 @ 249730:               INIT   1
29955 @ 249733:               PUSHI  #0x00000005
29956 @ 249738:               INIT   1
29957 @ 249741:               PUSHI  #0x00000000
29958 @ 249746:               INIT   1
29959 @ 249749:               PUSHI  #0x00000000
29960 @ 249754:               INIT   1
29961 @ 249757:               PUSHI  #0x00000000
29962 @ 249762:               INIT   1
29963 @ 249765:               PUSHI  #0x00000000
29964 @ 249770:               INIT   1
29965 @ 249773:               PUSHI  #0x00000006
29966 @ 249778:               INIT   1
29967 @ 249781:               PUSHI  #0x00000000
29968 @ 249786:               INIT   1
29969 @ 249789:               PUSHI  #0x0000000e
29970 @ 249794:               INIT   1
29971 @ 249797:               PUSHI  #0x00000000
29972 @ 249802:               INIT   1
29973 @ 249805:               PUSHI  #0x00000000
29974 @ 249810:               INIT   1
29975 @ 249813:               PUSHI  #0x00000000
29976 @ 249818:               INIT   1
29977 @ 249821:               PUSHI  #0x00000002
29978 @ 249826:               INIT   1
29979 @ 249829:               PUSHI  #0x00000000
29980 @ 249834:               INIT   1
29981 @ 249837:               PUSHI  #0x00000000
29982 @ 249842:               INIT   1
29983 @ 249845:               PUSHI  #0x00000000
29984 @ 249850:               INIT   1
29985 @ 249853:               PUSHI  #0x00000000
29986 @ 249858:               INIT   1
29987 @ 249861:               PUSHI  #0x00000000
29988 @ 249866:               INIT   1
29989 @ 249869:               PUSHI  #0x00000000
29990 @ 249874:               INIT   1
29991 @ 249877:               PUSHI  #0x00000000
29992 @ 249882:               INIT   1
29993 @ 249885:               PUSHI  #0x00000000
29994 @ 249890:               INIT   1
29995 @ 249893:               PUSHI  #0x00000000
29996 @ 249898:               INIT   1
29997 @ 249901:               PUSHI  #0x00000000
29998 @ 249906:               INIT   1
29999 @ 249909:               PUSHI  #0x00000000
30000 @ 249914:               INIT   1
30001 @ 249917:               PUSHI  #0x00000000
30002 @ 249922:               INIT   1
30003 @ 249925:               PUSHI  #0x00000000
30004 @ 249930:               INIT   1
30005 @ 249933:               PUSHI  #0x00000000
30006 @ 249938:               INIT   1
30007 @ 249941:               PUSHI  #0x00000000
30008 @ 249946:               INIT   1
30009 @ 249949:               PUSHI  #0x00000000
30010 @ 249954:               INIT   1
30011 @ 249957:               PUSHI  #0x00000000
30012 @ 249962:               INIT   1
30013 @ 249965:               PUSHI  #0x00000000
30014 @ 249970:               INIT   1
30015 @ 249973:               PUSHI  #0x00000000
30016 @ 249978:               INIT   1
30017 @ 249981:               PUSHI  #0x00000000
30018 @ 249986:               INIT   1
30019 @ 249989:               PUSHI  #0x00000006
30020 @ 249994:               INIT   1
30021 @ 249997:               PUSHI  #0x00000002
30022 @ 250002:               INIT   1
30023 @ 250005:               PUSHI  #0x00000000
30024 @ 250010:               INIT   1
30025 @ 250013:               PUSHI  #0x00000000
30026 @ 250018:               INIT   1
30027 @ 250021:               PUSHI  #0x00000006
30028 @ 250026:               INIT   1
30029 @ 250029:               PUSHI  #0x00000000
30030 @ 250034:               INIT   1
30031 @ 250037:               PUSHI  #0x00000000
30032 @ 250042:               INIT   1
30033 @ 250045:               PUSHI  #0x00000000
30034 @ 250050:               INIT   1
30035 @ 250053:               PUSHI  #0x00000000
30036 @ 250058:               INIT   1
30037 @ 250061:               PUSHI  #0x00000000
30038 @ 250066:               INIT   1
30039 @ 250069:               PUSHI  #0x00000000
30040 @ 250074:               INIT   1
30041 @ 250077:               PUSHI  #0x00000000
30042 @ 250082:               INIT   1
30043 @ 250085:               PUSHI  #0x00000000
30044 @ 250090:               INIT   1
30045 @ 250093:               PUSHI  #0x00000000
30046 @ 250098:               INIT   1
30047 @ 250101:               PUSHI  #0x00000000
30048 @ 250106:               INIT   1
30049 @ 250109:               PUSHI  #0x00000000
30050 @ 250114:               INIT   1
30051 @ 250117:               PUSHI  #0x00000005
30052 @ 250122:               INIT   1
30053 @ 250125:               PUSHI  #0x00000000
30054 @ 250130:               INIT   1
30055 @ 250133:               PUSHI  #0x00000000
30056 @ 250138:               INIT   1
30057 @ 250141:               PUSHI  #0x00000000
30058 @ 250146:               INIT   1
30059 @ 250149:               PUSHI  #0x00000000
30060 @ 250154:               INIT   1
30061 @ 250157:               PUSHI  #0x00000004
30062 @ 250162:               INIT   1
30063 @ 250165:               PUSHI  #0x00000000
30064 @ 250170:               INIT   1
30065 @ 250173:               PUSHI  #0x00000000
30066 @ 250178:               INIT   1
30067 @ 250181:               PUSHI  #0x00000000
30068 @ 250186:               INIT   1
30069 @ 250189:               PUSHI  #0x00000000
30070 @ 250194:               INIT   1
30071 @ 250197:               PUSHI  #0x00000000
30072 @ 250202:               INIT   1
30073 @ 250205:               PUSHI  #0x00000000
30074 @ 250210:               INIT   1
30075 @ 250213:               PUSHI  #0x00000000
30076 @ 250218:               INIT   1
30077 @ 250221:               PUSHI  #0x00000007
30078 @ 250226:               INIT   1
30079 @ 250229:               PUSHI  #0x00000000
30080 @ 250234:               INIT   1
30081 @ 250237:               PUSHI  #0x00000000
30082 @ 250242:               INIT   1
30083 @ 250245:               PUSHI  #0x00000000
30084 @ 250250:               INIT   1
30085 @ 250253:               PUSHI  #0x00000000
30086 @ 250258:               INIT   1
30087 @ 250261:               PUSHI  #0x00000000
30088 @ 250266:               INIT   1
30089 @ 250269:               PUSHI  #0x00000000
30090 @ 250274:               INIT   1
30091 @ 250277:               PUSHI  #0x00000004
30092 @ 250282:               INIT   1
30093 @ 250285:               PUSHI  #0x00000000
30094 @ 250290:               INIT   1
30095 @ 250293:               PUSHI  #0x00000000
30096 @ 250298:               INIT   1
30097 @ 250301:               PUSHI  #0x0000000c
30098 @ 250306:               INIT   1
30099 @ 250309:               PUSHI  #0x00000000
30100 @ 250314:               INIT   1
30101 @ 250317:               PUSHI  #0x00000000
30102 @ 250322:               INIT   1
30103 @ 250325:               PUSHI  #0x00000001
30104 @ 250330:               INIT   1
30105 @ 250333:               PUSHI  #0x00000004
30106 @ 250338:               INIT   1
30107 @ 250341:               PUSHI  #0x00000000
30108 @ 250346:               INIT   1
30109 @ 250349:               PUSHI  #0x00000000
30110 @ 250354:               INIT   1
30111 @ 250357:               PUSHI  #0x00000000
30112 @ 250362:               INIT   1
30113 @ 250365:               PUSHI  #0x00000000
30114 @ 250370:               INIT   1
30115 @ 250373:               PUSHI  #0x00000000
30116 @ 250378:               INIT   1
30117 @ 250381:               PUSHI  #0x00000000
30118 @ 250386:               INIT   1
30119 @ 250389:               PUSHI  #0x00000002
30120 @ 250394:               INIT   1
30121 @ 250397:               PUSHI  #0x00000000
30122 @ 250402:               INIT   1
30123 @ 250405:               PUSHI  #0x00000003
30124 @ 250410:               INIT   1
30125 @ 250413:               PUSHI  #0x00000000
30126 @ 250418:               INIT   1
30127 @ 250421:               PUSHI  #0x00000000
30128 @ 250426:               INIT   1
30129 @ 250429:               PUSHI  #0x00000002
30130 @ 250434:               INIT   1
30131 @ 250437:               PUSHI  #0x00000000
30132 @ 250442:               INIT   1
30133 @ 250445:               PUSHI  #0x00000006
30134 @ 250450:               INIT   1
30135 @ 250453:               PUSHI  #0x00000000
30136 @ 250458:               INIT   1
30137 @ 250461:               PUSHI  #0x00000000
30138 @ 250466:               INIT   1
30139 @ 250469:               PUSHI  #0x00000000
30140 @ 250474:               INIT   1
30141 @ 250477:               PUSHI  #0x00000000
30142 @ 250482:               INIT   1
30143 @ 250485:               PUSHI  #0x00000000
30144 @ 250490:               INIT   1
30145 @ 250493:               PUSHI  #0x00000000
30146 @ 250498:               INIT   1
30147 @ 250501:               PUSHI  #0x00000000
30148 @ 250506:               INIT   1
30149 @ 250509:               PUSHI  #0x00000000
30150 @ 250514:               INIT   1
30151 @ 250517:               PUSHI  #0x00000008
30152 @ 250522:               INIT   1
30153 @ 250525:               PUSHI  #0x00000000
30154 @ 250530:               INIT   1
30155 @ 250533:               PUSHI  #0x00000000
30156 @ 250538:               INIT   1
30157 @ 250541:               PUSHI  #0x00000000
30158 @ 250546:               INIT   1
30159 @ 250549:               PUSHI  #0x00000000
30160 @ 250554:               INIT   1
30161 @ 250557:               PUSHI  #0x00000000
30162 @ 250562:               INIT   1
30163 @ 250565:               PUSHI  #0x00000000
30164 @ 250570:               INIT   1
30165 @ 250573:               PUSHI  #0x00000001
30166 @ 250578:               INIT   1
30167 @ 250581:               PUSHI  #0x00000000
30168 @ 250586:               INIT   1
30169 @ 250589:               PUSHI  #0x00000000
30170 @ 250594:               INIT   1
30171 @ 250597:               PUSHI  #0x00000000
30172 @ 250602:               INIT   1
30173 @ 250605:               PUSHI  #0x00000000
30174 @ 250610:               INIT   1
30175 @ 250613:               PUSHI  #0x00000000
30176 @ 250618:               INIT   1
30177 @ 250621:               PUSHI  #0x00000000
30178 @ 250626:               INIT   1
30179 @ 250629:               PUSHI  #0x00000006
30180 @ 250634:               INIT   1
30181 @ 250637:               PUSHI  #0x0000000c
30182 @ 250642:               INIT   1
30183 @ 250645:               PUSHI  #0x00000000
30184 @ 250650:               INIT   1
30185 @ 250653:               PUSHI  #0x00000000
30186 @ 250658:               INIT   1
30187 @ 250661:               PUSHI  #0x00000000
30188 @ 250666:               INIT   1
30189 @ 250669:               PUSHI  #0x00000000
30190 @ 250674:               INIT   1
30191 @ 250677:               PUSHI  #0x00000000
30192 @ 250682:               INIT   1
30193 @ 250685:               PUSHI  #0x00000000
30194 @ 250690:               INIT   1
30195 @ 250693:               PUSHI  #0x00000000
30196 @ 250698:               INIT   1
30197 @ 250701:               PUSHI  #0x00000000
30198 @ 250706:               INIT   1
30199 @ 250709:               PUSHI  #0x00000000
30200 @ 250714:               INIT   1
30201 @ 250717:               PUSHI  #0x00000000
30202 @ 250722:               INIT   1
30203 @ 250725:               PUSHI  #0x00000000
30204 @ 250730:               INIT   1
30205 @ 250733:               PUSHI  #0x00000005
30206 @ 250738:               INIT   1
30207 @ 250741:               PUSHI  #0x00000000
30208 @ 250746:               INIT   1
30209 @ 250749:               PUSHI  #0x00000000
30210 @ 250754:               INIT   1
30211 @ 250757:               PUSHI  #0x00000000
30212 @ 250762:               INIT   1
30213 @ 250765:               PUSHI  #0x00000000
30214 @ 250770:               INIT   1
30215 @ 250773:               PUSHI  #0x00000005
30216 @ 250778:               INIT   1
30217 @ 250781:               PUSHI  #0x00000000
30218 @ 250786:               INIT   1
30219 @ 250789:               PUSHI  #0x00000000
30220 @ 250794:               INIT   1
30221 @ 250797:               PUSHI  #0x00000000
30222 @ 250802:               INIT   1
30223 @ 250805:               PUSHI  #0x00000000
30224 @ 250810:               INIT   1
30225 @ 250813:               PUSHI  #0x00000007
30226 @ 250818:               INIT   1
30227 @ 250821:               PUSHI  #0x0000000b
30228 @ 250826:               INIT   1
30229 @ 250829:               PUSHI  #0x00000000
30230 @ 250834:               INIT   1
30231 @ 250837:               PUSHI  #0x00000000
30232 @ 250842:               INIT   1
30233 @ 250845:               PUSHI  #0x00000000
30234 @ 250850:               INIT   1
30235 @ 250853:               PUSHI  #0x00000000
30236 @ 250858:               INIT   1
30237 @ 250861:               PUSHI  #0x00000000
30238 @ 250866:               INIT   1
30239 @ 250869:               PUSHI  #0x00000000
30240 @ 250874:               INIT   1
30241 @ 250877:               PUSHI  #0x00000000
30242 @ 250882:               INIT   1
30243 @ 250885:               PUSHI  #0x00000000
30244 @ 250890:               INIT   1
30245 @ 250893:               PUSHI  #0x00000000
30246 @ 250898:               INIT   1
30247 @ 250901:               PUSHI  #0x00000000
30248 @ 250906:               INIT   1
30249 @ 250909:               PUSHI  #0x00000000
30250 @ 250914:               INIT   1
30251 @ 250917:               PUSHI  #0x00000000
30252 @ 250922:               INIT   1
30253 @ 250925:               PUSHI  #0x00000004
30254 @ 250930:               INIT   1
30255 @ 250933:               PUSHI  #0x0000001e
30256 @ 250938:               INIT   1
30257 @ 250941:               PUSHI  #0x00000000
30258 @ 250946:               INIT   1
30259 @ 250949:               PUSHI  #0x00000000
30260 @ 250954:               INIT   1
30261 @ 250957:               PUSHI  #0x00000006
30262 @ 250962:               INIT   1
30263 @ 250965:               PUSHI  #0x00000000
30264 @ 250970:               INIT   1
30265 @ 250973:               PUSHI  #0x00000000
30266 @ 250978:               INIT   1
30267 @ 250981:               PUSHI  #0x00000000
30268 @ 250986:               INIT   1
30269 @ 250989:               PUSHI  #0x00000000
30270 @ 250994:               INIT   1
30271 @ 250997:               PUSHI  #0x00000000
30272 @ 251002:               INIT   1
30273 @ 251005:               PUSHI  #0x00000006
30274 @ 251010:               INIT   1
30275 @ 251013:               PUSHI  #0x00000000
30276 @ 251018:               INIT   1
30277 @ 251021:               PUSHI  #0x00000000
30278 @ 251026:               INIT   1
30279 @ 251029:               PUSHI  #0x00000000
30280 @ 251034:               INIT   1
30281 @ 251037:               PUSHI  #0x00000000
30282 @ 251042:               INIT   1
30283 @ 251045:               PUSHI  #0x00000005
30284 @ 251050:               INIT   1
30285 @ 251053:               PUSHI  #0x00000005
30286 @ 251058:               INIT   1
30287 @ 251061:               PUSHI  #0x00000000
30288 @ 251066:               INIT   1
30289 @ 251069:               PUSHI  #0x00000000
30290 @ 251074:               INIT   1
30291 @ 251077:               PUSHI  #0x00000000
30292 @ 251082:               INIT   1
30293 @ 251085:               PUSHI  #0x00000003
30294 @ 251090:               INIT   1
30295 @ 251093:               PUSHI  #0x00000004
30296 @ 251098:               INIT   1
30297 @ 251101:               PUSHI  #0x00000000
30298 @ 251106:               INIT   1
30299 @ 251109:               PUSHI  #0x00000000
30300 @ 251114:               INIT   1
30301 @ 251117:               PUSHI  #0x00000000
30302 @ 251122:               INIT   1
30303 @ 251125:               PUSHI  #0x00000000
30304 @ 251130:               INIT   1
30305 @ 251133:               PUSHI  #0x00000000
30306 @ 251138:               INIT   1
30307 @ 251141:               PUSHI  #0x00000000
30308 @ 251146:               INIT   1
30309 @ 251149:               PUSHI  #0x00000000
30310 @ 251154:               INIT   1
30311 @ 251157:               PUSHI  #0x00000000
30312 @ 251162:               INIT   1
30313 @ 251165:               PUSHI  #0x00000000
30314 @ 251170:               INIT   1
30315 @ 251173:               PUSHI  #0x00000004
30316 @ 251178:               INIT   1
30317 @ 251181:               PUSHI  #0x00000000
30318 @ 251186:               INIT   1
30319 @ 251189:               PUSHI  #0x00000000
30320 @ 251194:               INIT   1
30321 @ 251197:               PUSHI  #0x00000000
30322 @ 251202:               INIT   1
30323 @ 251205:               PUSHI  #0x00000000
30324 @ 251210:               INIT   1
30325 @ 251213:               PUSHI  #0x00000000
30326 @ 251218:               INIT   1
30327 @ 251221:               PUSHI  #0x00000000
30328 @ 251226:               INIT   1
30329 @ 251229:               PUSHI  #0x00000000
30330 @ 251234:               INIT   1
30331 @ 251237:               PUSHI  #0x00000000
30332 @ 251242:               INIT   1
30333 @ 251245:               PUSHI  #0x00000004
30334 @ 251250:               INIT   1
30335 @ 251253:               PUSHI  #0x00000000
30336 @ 251258:               INIT   1
30337 @ 251261:               PUSHI  #0x00000000
30338 @ 251266:               INIT   1
30339 @ 251269:               PUSHI  #0x00000001
30340 @ 251274:               INIT   1
30341 @ 251277:               PUSHI  #0x00000004
30342 @ 251282:               INIT   1
30343 @ 251285:               PUSHI  #0x00000000
30344 @ 251290:               INIT   1
30345 @ 251293:               PUSHI  #0x00000000
30346 @ 251298:               INIT   1
30347 @ 251301:               PUSHI  #0x00000000
30348 @ 251306:               INIT   1
30349 @ 251309:               PUSHI  #0x00000000
30350 @ 251314:               INIT   1
30351 @ 251317:               PUSHI  #0x00000000
30352 @ 251322:               INIT   1
30353 @ 251325:               PUSHI  #0x00000000
30354 @ 251330:               INIT   1
30355 @ 251333:               PUSHI  #0x00000019
30356 @ 251338:               INIT   1
30357 @ 251341:               PUSHI  #0x00000000
30358 @ 251346:               INIT   1
30359 @ 251349:               PUSHI  #0x00000005
30360 @ 251354:               INIT   1
30361 @ 251357:               PUSHI  #0x00000000
30362 @ 251362:               INIT   1
30363 @ 251365:               PUSHI  #0x00000000
30364 @ 251370:               INIT   1
30365 @ 251373:               PUSHI  #0x00000000
30366 @ 251378:               INIT   1
30367 @ 251381:               PUSHI  #0x00000001
30368 @ 251386:               INIT   1
30369 @ 251389:               PUSHI  #0x00000000
30370 @ 251394:               INIT   1
30371 @ 251397:               PUSHI  #0x00000000
30372 @ 251402:               INIT   1
30373 @ 251405:               PUSHI  #0x00000000
30374 @ 251410:               INIT   1
30375 @ 251413:               PUSHI  #0x00000001
30376 @ 251418:               INIT   1
30377 @ 251421:               PUSHI  #0x00000000
30378 @ 251426:               INIT   1
30379 @ 251429:               PUSHI  #0x00000000
30380 @ 251434:               INIT   1
30381 @ 251437:               PUSHI  #0x00000000
30382 @ 251442:               INIT   1
30383 @ 251445:               PUSHI  #0x00000000
30384 @ 251450:               INIT   1
30385 @ 251453:               PUSHI  #0x00000000
30386 @ 251458:               INIT   1
30387 @ 251461:               PUSHI  #0x00000000
30388 @ 251466:               INIT   1
30389 @ 251469:               PUSHI  #0x00000000
30390 @ 251474:               INIT   1
30391 @ 251477:               PUSHI  #0x00000002
30392 @ 251482:               INIT   1
30393 @ 251485:               PUSHI  #0x00000005
30394 @ 251490:               INIT   1
30395 @ 251493:               PUSHI  #0x00000000
30396 @ 251498:               INIT   1
30397 @ 251501:               PUSHI  #0x00000000
30398 @ 251506:               INIT   1
30399 @ 251509:               PUSHI  #0x00000000
30400 @ 251514:               INIT   1
30401 @ 251517:               PUSHI  #0x00000000
30402 @ 251522:               INIT   1
30403 @ 251525:               PUSHI  #0x00000000
30404 @ 251530:               INIT   1
30405 @ 251533:               PUSHI  #0x00000000
30406 @ 251538:               INIT   1
30407 @ 251541:               PUSHI  #0x00000000
30408 @ 251546:               INIT   1
30409 @ 251549:               PUSHI  #0x00000000
30410 @ 251554:               INIT   1
30411 @ 251557:               PUSHI  #0x00000000
30412 @ 251562:               INIT   1
30413 @ 251565:               PUSHI  #0x00000000
30414 @ 251570:               INIT   1
30415 @ 251573:               PUSHI  #0x00000000
30416 @ 251578:               INIT   1
30417 @ 251581:               PUSHI  #0x00000000
30418 @ 251586:               INIT   1
30419 @ 251589:               PUSHI  #0x00000001
30420 @ 251594:               INIT   1

  5255  %routine GET SYM
30421 @ 251597:               LINE   5255 "regression-compile-tmp/imp22g-77.imp"
30422 @ 251637:               DEF    GETSYM (_lev0id0_NEXTATOM_GETSYM) p1=V_016a 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
30423 @ 251655:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
30424 @ 251656:                  FINISH ) {lev=3}

  5256    %cycle
30425 @ 251657:                  LINE   5256 "regression-compile-tmp/imp22g-77.imp"
30426 @ 251697:                  LOCATE L_0003

  5257      sym = byteintegeR(fp);  fp = fp+1
30427 @ 251700:                  LINE   5257 "regression-compile-tmp/imp22g-77.imp"
30428 @ 251740:                  PUSH   SYM
30429 @ 251743:                  PUSH   BYTEINTEGER
30430 @ 251746:                  PUSH   FP
30431 @ 251749:                  ASSPAR
30432 @ 251750:                  CALL  
30433 @ 251751:                  ASSVAL
30434 @ 251752:                  LINE   5257 "regression-compile-tmp/imp22g-77.imp"
30435 @ 251792:                  PUSH   FP
30436 @ 251795:                  PUSH   FP
30437 @ 251798:                  PUSHI  #0x00000001
30438 @ 251803:                  ADD   
30439 @ 251804:                  ASSVAL

  5258    %repeat %until sym # ' '
30440 @ 251805:                  LINE   5258 "regression-compile-tmp/imp22g-77.imp"
30441 @ 251845:                  PUSH   SYM
30442 @ 251848:                  PUSHI  #0x00000020
30443 @ 251853:                  JUMPIF # L_0004
30444 @ 251857:                  REPEAT L_0003
30445 @ 251860:                  LOCATE L_0004

  5259    i = sym-'0'
30446 @ 251863:                  LINE   5259 "regression-compile-tmp/imp22g-77.imp"
30447 @ 251903:                  PUSH   I
30448 @ 251906:                  PUSH   SYM
30449 @ 251909:                  PUSHI  #0x00000030
30450 @ 251914:                  SUB   
30451 @ 251915:                  ASSVAL

  5260    %if i >= 10 %start
30452 @ 251916:                  LINE   5260 "regression-compile-tmp/imp22g-77.imp"
30453 @ 251956:                  PUSH   I
30454 @ 251959:                  PUSHI  #0x0000000a
30455 @ 251964:                  JUMPIF < L_0004

  5261      i = sym!casebit-'a';  i = i+10 %if i >= 0
30456 @ 251968:                  LINE   5261 "regression-compile-tmp/imp22g-77.imp"
30457 @ 252008:                  PUSH   I
30458 @ 252011:                  PUSH   SYM
30459 @ 252014:                  PUSHI  #0x00000020
30460 @ 252019:                  OR    
30461 @ 252020:                  PUSHI  #0x00000061
30462 @ 252025:                  SUB   
30463 @ 252026:                  ASSVAL
30464 @ 252027:                  LINE   5261 "regression-compile-tmp/imp22g-77.imp"
30465 @ 252067:                  PUSH   I
30466 @ 252070:                  PUSHI  #0x00000000
30467 @ 252075:                  JUMPIF < L_0007
30468 @ 252079:                  PUSH   I
30469 @ 252082:                  PUSH   I
30470 @ 252085:                  PUSHI  #0x0000000a
30471 @ 252090:                  ADD   
30472 @ 252091:                  ASSVAL
30473 @ 252092:                  LOCATE L_0007

  5262    %finish
30474 @ 252095:                  LINE   5262 "regression-compile-tmp/imp22g-77.imp"
30475 @ 252135:                  LOCATE L_0004

  5263  %end
  5264  
30476 @ 252138:                  LINE   5263 "regression-compile-tmp/imp22g-77.imp"
30477 @ 252178:               END    _lev0id0_NEXTATOM_GETSYM {lev=3 --> 2}

  5265    matched = 0
30478 @ 252179:               LINE   5265 "regression-compile-tmp/imp22g-77.imp"
30479 @ 252219:               PUSH   MATCHED
30480 @ 252222:               PUSHI  #0x00000000
30481 @ 252227:               ASSVAL

  5266  again: s(tab):
30482 @ 252228:               LINE   5266 "regression-compile-tmp/imp22g-77.imp"
30483 @ 252268:               LABEL  L_016b
30484 @ 252271:               LINE   5266 "regression-compile-tmp/imp22g-77.imp"
30485 @ 252311:               PUSHI  #0x00000009
30486 @ 252316:               SLABEL 351

  5267    read line(0) %if sym = nl
30487 @ 252319:               LINE   5267 "regression-compile-tmp/imp22g-77.imp"
30488 @ 252359:               PUSH   SYM
30489 @ 252362:               PUSHI  #0x0000000a
30490 @ 252367:               JUMPIF # L_0004
30491 @ 252371:               PUSH   READLINE
30492 @ 252374:               PUSHI  #0x00000000
30493 @ 252379:               ASSPAR
30494 @ 252380:               CALL  
30495 @ 252381:               LOCATE L_0004

  5268  again1:
30496 @ 252384:               LINE   5268 "regression-compile-tmp/imp22g-77.imp"
30497 @ 252424:               LABEL  L_016c

  5269    %cycle
30498 @ 252427:               LINE   5269 "regression-compile-tmp/imp22g-77.imp"
30499 @ 252467:               LOCATE L_0003

  5270      sym = byteintegeR(fp);  fp = fp+1
30500 @ 252470:               LINE   5270 "regression-compile-tmp/imp22g-77.imp"
30501 @ 252510:               PUSH   SYM
30502 @ 252513:               PUSH   BYTEINTEGER
30503 @ 252516:               PUSH   FP
30504 @ 252519:               ASSPAR
30505 @ 252520:               CALL  
30506 @ 252521:               ASSVAL
30507 @ 252522:               LINE   5270 "regression-compile-tmp/imp22g-77.imp"
30508 @ 252562:               PUSH   FP
30509 @ 252565:               PUSH   FP
30510 @ 252568:               PUSHI  #0x00000001
30511 @ 252573:               ADD   
30512 @ 252574:               ASSVAL

  5271    %repeat %until sym # ' '
30513 @ 252575:               LINE   5271 "regression-compile-tmp/imp22g-77.imp"
30514 @ 252615:               PUSH   SYM
30515 @ 252618:               PUSHI  #0x00000020
30516 @ 252623:               JUMPIF # L_0004
30517 @ 252627:               REPEAT L_0003
30518 @ 252630:               LOCATE L_0004

  5272    atomp = fp;     !(actually one after)
30519 @ 252633:               LINE   5272 "regression-compile-tmp/imp22g-77.imp"
30520 @ 252673:               PUSH   ATOMP
30521 @ 252676:               PUSH   FP
30522 @ 252679:               ASSVAL

  5273    atoms = atoms+1
30523 @ 252680:               LINE   5273 "regression-compile-tmp/imp22g-77.imp"
30524 @ 252720:               PUSH   ATOMS
30525 @ 252723:               PUSH   ATOMS
30526 @ 252726:               PUSHI  #0x00000001
30527 @ 252731:               ADD   
30528 @ 252732:               ASSVAL

  5274    -> s(sym)
30529 @ 252733:               LINE   5274 "regression-compile-tmp/imp22g-77.imp"
30530 @ 252773:               PUSH   SYM
30531 @ 252776:               SJUMP  351

  5275  linebreak: s(nl):
30532 @ 252779:               LINE   5275 "regression-compile-tmp/imp22g-77.imp"
30533 @ 252819:               LABEL  L_016d
30534 @ 252822:               LINE   5275 "regression-compile-tmp/imp22g-77.imp"
30535 @ 252862:               PUSHI  #0x0000000a
30536 @ 252867:               SLABEL 351

  5276    %result = terminator %if atom # comma
30537 @ 252870:               LINE   5276 "regression-compile-tmp/imp22g-77.imp"
30538 @ 252910:               PUSH   ATOM
30539 @ 252913:               PUSHI  #0x0000003c
30540 @ 252918:               JUMPIF = L_0004
30541 @ 252922:               PUSHI  #0x00000033
30542 @ 252927:               RESULT
30543 @ 252928:               LOCATE L_0004

  5277  continuation:
30544 @ 252931:               LINE   5277 "regression-compile-tmp/imp22g-77.imp"
30545 @ 252971:               LABEL  L_016e

  5278    read line('+')
30546 @ 252974:               LINE   5278 "regression-compile-tmp/imp22g-77.imp"
30547 @ 253014:               PUSH   READLINE
30548 @ 253017:               PUSHI  #0x0000002b
30549 @ 253022:               ASSPAR
30550 @ 253023:               CALL  

  5279    -> again1
  5280  
30551 @ 253024:               LINE   5279 "regression-compile-tmp/imp22g-77.imp"
30552 @ 253064:               JUMP   L_016c

  5281  s('{'):
30553 @ 253067:               LINE   5281 "regression-compile-tmp/imp22g-77.imp"
30554 @ 253107:               PUSHI  #0x0000007b
30555 @ 253112:               SLABEL 351

  5282    comments = comments+1
30556 @ 253115:               LINE   5282 "regression-compile-tmp/imp22g-77.imp"
30557 @ 253155:               PUSH   COMMENTS
30558 @ 253158:               PUSH   COMMENTS
30559 @ 253161:               PUSHI  #0x00000001
30560 @ 253166:               ADD   
30561 @ 253167:               ASSVAL

  5283    %cycle
30562 @ 253168:               LINE   5283 "regression-compile-tmp/imp22g-77.imp"
30563 @ 253208:               LOCATE L_0003

  5284      sym = byteintegeR(fp);  fp = fp+1
30564 @ 253211:               LINE   5284 "regression-compile-tmp/imp22g-77.imp"
30565 @ 253251:               PUSH   SYM
30566 @ 253254:               PUSH   BYTEINTEGER
30567 @ 253257:               PUSH   FP
30568 @ 253260:               ASSPAR
30569 @ 253261:               CALL  
30570 @ 253262:               ASSVAL
30571 @ 253263:               LINE   5284 "regression-compile-tmp/imp22g-77.imp"
30572 @ 253303:               PUSH   FP
30573 @ 253306:               PUSH   FP
30574 @ 253309:               PUSHI  #0x00000001
30575 @ 253314:               ADD   
30576 @ 253315:               ASSVAL

  5285      -> linebreak %if sym = nl
30577 @ 253316:               LINE   5285 "regression-compile-tmp/imp22g-77.imp"
30578 @ 253356:               PUSH   SYM
30579 @ 253359:               PUSHI  #0x0000000a
30580 @ 253364:               JUMPIF # L_0007
30581 @ 253368:               JUMP   L_016d
30582 @ 253371:               LOCATE L_0007

  5286    %repeat %until sym = '}'
30583 @ 253374:               LINE   5286 "regression-compile-tmp/imp22g-77.imp"
30584 @ 253414:               PUSH   SYM
30585 @ 253417:               PUSHI  #0x0000007d
30586 @ 253422:               JUMPIF = L_0004
30587 @ 253426:               REPEAT L_0003
30588 @ 253429:               LOCATE L_0004

  5287    -> again
  5288  
30589 @ 253432:               LINE   5287 "regression-compile-tmp/imp22g-77.imp"
30590 @ 253472:               JUMP   L_016b

  5289  s('+'): %result = plus
30591 @ 253475:               LINE   5289 "regression-compile-tmp/imp22g-77.imp"
30592 @ 253515:               PUSHI  #0x0000002b
30593 @ 253520:               SLABEL 351
30594 @ 253523:               LINE   5289 "regression-compile-tmp/imp22g-77.imp"
30595 @ 253563:               PUSHI  #0x00000053
30596 @ 253568:               RESULT

  5290  s('-'): fp = fp+1 %and %result = arrow %if byteintegeR(fp) = '>'
30597 @ 253569:               LINE   5290 "regression-compile-tmp/imp22g-77.imp"
30598 @ 253609:               PUSHI  #0x0000002d
30599 @ 253614:               SLABEL 351
30600 @ 253617:               LINE   5290 "regression-compile-tmp/imp22g-77.imp"
30601 @ 253657:               PUSH   BYTEINTEGER
30602 @ 253660:               PUSH   FP
30603 @ 253663:               ASSPAR
30604 @ 253664:               CALL  
30605 @ 253665:               PUSHI  #0x0000003e
30606 @ 253670:               JUMPIF # L_0004
30607 @ 253674:               PUSH   FP
30608 @ 253677:               PUSH   FP
30609 @ 253680:               PUSHI  #0x00000001
30610 @ 253685:               ADD   
30611 @ 253686:               ASSVAL
30612 @ 253687:               PUSHI  #0x0000004a
30613 @ 253692:               RESULT
30614 @ 253693:               LOCATE L_0004

  5291          -> continuation %if byteintegeR(fp) = nl
30615 @ 253696:               LINE   5291 "regression-compile-tmp/imp22g-77.imp"
30616 @ 253736:               PUSH   BYTEINTEGER
30617 @ 253739:               PUSH   FP
30618 @ 253742:               ASSPAR
30619 @ 253743:               CALL  
30620 @ 253744:               PUSHI  #0x0000000a
30621 @ 253749:               JUMPIF # L_0004
30622 @ 253753:               JUMP   L_016e
30623 @ 253756:               LOCATE L_0004

  5292          %result = minus
30624 @ 253759:               LINE   5292 "regression-compile-tmp/imp22g-77.imp"
30625 @ 253799:               PUSHI  #0x00000054
30626 @ 253804:               RESULT

  5293  s('*'): %result = star
30627 @ 253805:               LINE   5293 "regression-compile-tmp/imp22g-77.imp"
30628 @ 253845:               PUSHI  #0x0000002a
30629 @ 253850:               SLABEL 351
30630 @ 253853:               LINE   5293 "regression-compile-tmp/imp22g-77.imp"
30631 @ 253893:               PUSHI  #0x00000058
30632 @ 253898:               RESULT

  5294  s('/'): fp = fp+1 %and %result = slash2 %if byteintegeR(fp) = '/'
30633 @ 253899:               LINE   5294 "regression-compile-tmp/imp22g-77.imp"
30634 @ 253939:               PUSHI  #0x0000002f
30635 @ 253944:               SLABEL 351
30636 @ 253947:               LINE   5294 "regression-compile-tmp/imp22g-77.imp"
30637 @ 253987:               PUSH   BYTEINTEGER
30638 @ 253990:               PUSH   FP
30639 @ 253993:               ASSPAR
30640 @ 253994:               CALL  
30641 @ 253995:               PUSHI  #0x0000002f
30642 @ 254000:               JUMPIF # L_0004
30643 @ 254004:               PUSH   FP
30644 @ 254007:               PUSH   FP
30645 @ 254010:               PUSHI  #0x00000001
30646 @ 254015:               ADD   
30647 @ 254016:               ASSVAL
30648 @ 254017:               PUSHI  #0x00000059
30649 @ 254022:               RESULT
30650 @ 254023:               LOCATE L_0004

  5295          %result = slash
30651 @ 254026:               LINE   5295 "regression-compile-tmp/imp22g-77.imp"
30652 @ 254066:               PUSHI  #0x0000005a
30653 @ 254071:               RESULT

  5296  s('\'): fp = fp+1 %and %result = backslash2 %if byteintegeR(fp) = '\'
30654 @ 254072:               LINE   5296 "regression-compile-tmp/imp22g-77.imp"
30655 @ 254112:               PUSHI  #0x0000005c
30656 @ 254117:               SLABEL 351
30657 @ 254120:               LINE   5296 "regression-compile-tmp/imp22g-77.imp"
30658 @ 254160:               PUSH   BYTEINTEGER
30659 @ 254163:               PUSH   FP
30660 @ 254166:               ASSPAR
30661 @ 254167:               CALL  
30662 @ 254168:               PUSHI  #0x0000005c
30663 @ 254173:               JUMPIF # L_0004
30664 @ 254177:               PUSH   FP
30665 @ 254180:               PUSH   FP
30666 @ 254183:               PUSHI  #0x00000001
30667 @ 254188:               ADD   
30668 @ 254189:               ASSVAL
30669 @ 254190:               PUSHI  #0x0000005f
30670 @ 254195:               RESULT
30671 @ 254196:               LOCATE L_0004

  5297          fp = fp+1 %and %result = noteq %if byteinteger(fp) = '='
30672 @ 254199:               LINE   5297 "regression-compile-tmp/imp22g-77.imp"
30673 @ 254239:               PUSH   BYTEINTEGER
30674 @ 254242:               PUSH   FP
30675 @ 254245:               ASSPAR
30676 @ 254246:               CALL  
30677 @ 254247:               PUSHI  #0x0000003d
30678 @ 254252:               JUMPIF # L_0004
30679 @ 254256:               PUSH   FP
30680 @ 254259:               PUSH   FP
30681 @ 254262:               PUSHI  #0x00000001
30682 @ 254267:               ADD   
30683 @ 254268:               ASSVAL
30684 @ 254269:               PUSHI  #0x0000004e
30685 @ 254274:               RESULT
30686 @ 254275:               LOCATE L_0004

  5298          %result = backslash
30687 @ 254278:               LINE   5298 "regression-compile-tmp/imp22g-77.imp"
30688 @ 254318:               PUSHI  #0x0000005d
30689 @ 254323:               RESULT

  5299  s('^'): fp = fp+1 %and %result = uparrow2 %if byteintegeR(fp) = '^'
30690 @ 254324:               LINE   5299 "regression-compile-tmp/imp22g-77.imp"
30691 @ 254364:               PUSHI  #0x0000005e
30692 @ 254369:               SLABEL 351
30693 @ 254372:               LINE   5299 "regression-compile-tmp/imp22g-77.imp"
30694 @ 254412:               PUSH   BYTEINTEGER
30695 @ 254415:               PUSH   FP
30696 @ 254418:               ASSPAR
30697 @ 254419:               CALL  
30698 @ 254420:               PUSHI  #0x0000005e
30699 @ 254425:               JUMPIF # L_0004
30700 @ 254429:               PUSH   FP
30701 @ 254432:               PUSH   FP
30702 @ 254435:               PUSHI  #0x00000001
30703 @ 254440:               ADD   
30704 @ 254441:               ASSVAL
30705 @ 254442:               PUSHI  #0x00000060
30706 @ 254447:               RESULT
30707 @ 254448:               LOCATE L_0004

  5300          %result = uparrow
30708 @ 254451:               LINE   5300 "regression-compile-tmp/imp22g-77.imp"
30709 @ 254491:               PUSHI  #0x0000005e
30710 @ 254496:               RESULT

  5301  s('~'): %result = tilde
30711 @ 254497:               LINE   5301 "regression-compile-tmp/imp22g-77.imp"
30712 @ 254537:               PUSHI  #0x0000007e
30713 @ 254542:               SLABEL 351
30714 @ 254545:               LINE   5301 "regression-compile-tmp/imp22g-77.imp"
30715 @ 254585:               PUSHI  #0x00000061
30716 @ 254590:               RESULT

  5302  s('!'): fp = fp+1 %and %result = exclam2 %if byteintegeR(fp) = '!'
30717 @ 254591:               LINE   5302 "regression-compile-tmp/imp22g-77.imp"
30718 @ 254631:               PUSHI  #0x00000021
30719 @ 254636:               SLABEL 351
30720 @ 254639:               LINE   5302 "regression-compile-tmp/imp22g-77.imp"
30721 @ 254679:               PUSH   BYTEINTEGER
30722 @ 254682:               PUSH   FP
30723 @ 254685:               ASSPAR
30724 @ 254686:               CALL  
30725 @ 254687:               PUSHI  #0x00000021
30726 @ 254692:               JUMPIF # L_0004
30727 @ 254696:               PUSH   FP
30728 @ 254699:               PUSH   FP
30729 @ 254702:               PUSHI  #0x00000001
30730 @ 254707:               ADD   
30731 @ 254708:               ASSVAL
30732 @ 254709:               PUSHI  #0x00000056
30733 @ 254714:               RESULT
30734 @ 254715:               LOCATE L_0004

  5303          %result = exclam
30735 @ 254718:               LINE   5303 "regression-compile-tmp/imp22g-77.imp"
30736 @ 254758:               PUSHI  #0x00000055
30737 @ 254763:               RESULT

  5304  s('&'): %result = ampersand
30738 @ 254764:               LINE   5304 "regression-compile-tmp/imp22g-77.imp"
30739 @ 254804:               PUSHI  #0x00000026
30740 @ 254809:               SLABEL 351
30741 @ 254812:               LINE   5304 "regression-compile-tmp/imp22g-77.imp"
30742 @ 254852:               PUSHI  #0x0000005b
30743 @ 254857:               RESULT

  5305  s('.'): rval = 0 %and -> fraction %if '0' <= byteinteger(fp) <= '9'
30744 @ 254858:               LINE   5305 "regression-compile-tmp/imp22g-77.imp"
30745 @ 254898:               PUSHI  #0x0000002e
30746 @ 254903:               SLABEL 351
30747 @ 254906:               LINE   5305 "regression-compile-tmp/imp22g-77.imp"
30748 @ 254946:               PUSHI  #0x00000030
30749 @ 254951:               PUSH   BYTEINTEGER
30750 @ 254954:               PUSH   FP
30751 @ 254957:               ASSPAR
30752 @ 254958:               CALL  
30753 @ 254959:               JUMPIFD > L_0004
30754 @ 254963:               PUSHI  #0x00000039
30755 @ 254968:               JUMPIF > L_0004
30756 @ 254972:               PUSH   RVAL
30757 @ 254975:               PUSHI  #0x00000000
30758 @ 254980:               ASSVAL
30759 @ 254981:               JUMP   L_016f
30760 @ 254984:               LOCATE L_0004

  5306          %result = dot
30761 @ 254987:               LINE   5306 "regression-compile-tmp/imp22g-77.imp"
30762 @ 255027:               PUSHI  #0x00000057
30763 @ 255032:               RESULT

  5307  s('='): fp = fp+1 %and %result = eqeq %if byteintegeR(fp) = '='
30764 @ 255033:               LINE   5307 "regression-compile-tmp/imp22g-77.imp"
30765 @ 255073:               PUSHI  #0x0000003d
30766 @ 255078:               SLABEL 351
30767 @ 255081:               LINE   5307 "regression-compile-tmp/imp22g-77.imp"
30768 @ 255121:               PUSH   BYTEINTEGER
30769 @ 255124:               PUSH   FP
30770 @ 255127:               ASSPAR
30771 @ 255128:               CALL  
30772 @ 255129:               PUSHI  #0x0000003d
30773 @ 255134:               JUMPIF # L_0004
30774 @ 255138:               PUSH   FP
30775 @ 255141:               PUSH   FP
30776 @ 255144:               PUSHI  #0x00000001
30777 @ 255149:               ADD   
30778 @ 255150:               ASSVAL
30779 @ 255151:               PUSHI  #0x0000004b
30780 @ 255156:               RESULT
30781 @ 255157:               LOCATE L_0004

  5308          %result = equals
30782 @ 255160:               LINE   5308 "regression-compile-tmp/imp22g-77.imp"
30783 @ 255200:               PUSHI  #0x0000004d
30784 @ 255205:               RESULT

  5309  s('#'): fp = fp+1 %and %result = noteqeq %if byteintegeR(fp) = '#'
30785 @ 255206:               LINE   5309 "regression-compile-tmp/imp22g-77.imp"
30786 @ 255246:               PUSHI  #0x00000023
30787 @ 255251:               SLABEL 351
30788 @ 255254:               LINE   5309 "regression-compile-tmp/imp22g-77.imp"
30789 @ 255294:               PUSH   BYTEINTEGER
30790 @ 255297:               PUSH   FP
30791 @ 255300:               ASSPAR
30792 @ 255301:               CALL  
30793 @ 255302:               PUSHI  #0x00000023
30794 @ 255307:               JUMPIF # L_0004
30795 @ 255311:               PUSH   FP
30796 @ 255314:               PUSH   FP
30797 @ 255317:               PUSHI  #0x00000001
30798 @ 255322:               ADD   
30799 @ 255323:               ASSVAL
30800 @ 255324:               PUSHI  #0x0000004c
30801 @ 255329:               RESULT
30802 @ 255330:               LOCATE L_0004

  5310          %result = noteq
30803 @ 255333:               LINE   5310 "regression-compile-tmp/imp22g-77.imp"
30804 @ 255373:               PUSHI  #0x0000004e
30805 @ 255378:               RESULT

  5311  s('<'): fp = fp+1 %and %result = lesseq %if byteintegeR(fp) = '='
30806 @ 255379:               LINE   5311 "regression-compile-tmp/imp22g-77.imp"
30807 @ 255419:               PUSHI  #0x0000003c
30808 @ 255424:               SLABEL 351
30809 @ 255427:               LINE   5311 "regression-compile-tmp/imp22g-77.imp"
30810 @ 255467:               PUSH   BYTEINTEGER
30811 @ 255470:               PUSH   FP
30812 @ 255473:               ASSPAR
30813 @ 255474:               CALL  
30814 @ 255475:               PUSHI  #0x0000003d
30815 @ 255480:               JUMPIF # L_0004
30816 @ 255484:               PUSH   FP
30817 @ 255487:               PUSH   FP
30818 @ 255490:               PUSHI  #0x00000001
30819 @ 255495:               ADD   
30820 @ 255496:               ASSVAL
30821 @ 255497:               PUSHI  #0x0000004f
30822 @ 255502:               RESULT
30823 @ 255503:               LOCATE L_0004

  5312          fp = fp+1 %and %result = noteq %if byteintegeR(fp) = '>'
30824 @ 255506:               LINE   5312 "regression-compile-tmp/imp22g-77.imp"
30825 @ 255546:               PUSH   BYTEINTEGER
30826 @ 255549:               PUSH   FP
30827 @ 255552:               ASSPAR
30828 @ 255553:               CALL  
30829 @ 255554:               PUSHI  #0x0000003e
30830 @ 255559:               JUMPIF # L_0004
30831 @ 255563:               PUSH   FP
30832 @ 255566:               PUSH   FP
30833 @ 255569:               PUSHI  #0x00000001
30834 @ 255574:               ADD   
30835 @ 255575:               ASSVAL
30836 @ 255576:               PUSHI  #0x0000004e
30837 @ 255581:               RESULT
30838 @ 255582:               LOCATE L_0004

  5313          fp = fp+1 %and %result = lshift %if byteintegeR(fp) = '<'
30839 @ 255585:               LINE   5313 "regression-compile-tmp/imp22g-77.imp"
30840 @ 255625:               PUSH   BYTEINTEGER
30841 @ 255628:               PUSH   FP
30842 @ 255631:               ASSPAR
30843 @ 255632:               CALL  
30844 @ 255633:               PUSHI  #0x0000003c
30845 @ 255638:               JUMPIF # L_0004
30846 @ 255642:               PUSH   FP
30847 @ 255645:               PUSH   FP
30848 @ 255648:               PUSHI  #0x00000001
30849 @ 255653:               ADD   
30850 @ 255654:               ASSVAL
30851 @ 255655:               PUSHI  #0x00000062
30852 @ 255660:               RESULT
30853 @ 255661:               LOCATE L_0004

  5314          %result = less
30854 @ 255664:               LINE   5314 "regression-compile-tmp/imp22g-77.imp"
30855 @ 255704:               PUSHI  #0x00000050
30856 @ 255709:               RESULT

  5315  s('>'): fp = fp+1 %and %result = greateq %if byteintegeR(fp) = '='
30857 @ 255710:               LINE   5315 "regression-compile-tmp/imp22g-77.imp"
30858 @ 255750:               PUSHI  #0x0000003e
30859 @ 255755:               SLABEL 351
30860 @ 255758:               LINE   5315 "regression-compile-tmp/imp22g-77.imp"
30861 @ 255798:               PUSH   BYTEINTEGER
30862 @ 255801:               PUSH   FP
30863 @ 255804:               ASSPAR
30864 @ 255805:               CALL  
30865 @ 255806:               PUSHI  #0x0000003d
30866 @ 255811:               JUMPIF # L_0004
30867 @ 255815:               PUSH   FP
30868 @ 255818:               PUSH   FP
30869 @ 255821:               PUSHI  #0x00000001
30870 @ 255826:               ADD   
30871 @ 255827:               ASSVAL
30872 @ 255828:               PUSHI  #0x00000051
30873 @ 255833:               RESULT
30874 @ 255834:               LOCATE L_0004

  5316          fp = fp+1 %and %result = rshift %if byteintegeR(fp) = '>'
30875 @ 255837:               LINE   5316 "regression-compile-tmp/imp22g-77.imp"
30876 @ 255877:               PUSH   BYTEINTEGER
30877 @ 255880:               PUSH   FP
30878 @ 255883:               ASSPAR
30879 @ 255884:               CALL  
30880 @ 255885:               PUSHI  #0x0000003e
30881 @ 255890:               JUMPIF # L_0004
30882 @ 255894:               PUSH   FP
30883 @ 255897:               PUSH   FP
30884 @ 255900:               PUSHI  #0x00000001
30885 @ 255905:               ADD   
30886 @ 255906:               ASSVAL
30887 @ 255907:               PUSHI  #0x00000063
30888 @ 255912:               RESULT
30889 @ 255913:               LOCATE L_0004

  5317          %result = greater
30890 @ 255916:               LINE   5317 "regression-compile-tmp/imp22g-77.imp"
30891 @ 255956:               PUSHI  #0x00000052
30892 @ 255961:               RESULT

  5318  s('_'): %result = underline
30893 @ 255962:               LINE   5318 "regression-compile-tmp/imp22g-77.imp"
30894 @ 256002:               PUSHI  #0x0000005f
30895 @ 256007:               SLABEL 351
30896 @ 256010:               LINE   5318 "regression-compile-tmp/imp22g-77.imp"
30897 @ 256050:               PUSHI  #0x0000003a
30898 @ 256055:               RESULT

  5319  s(':'): %result = colon
30899 @ 256056:               LINE   5319 "regression-compile-tmp/imp22g-77.imp"
30900 @ 256096:               PUSHI  #0x0000003a
30901 @ 256101:               SLABEL 351
30902 @ 256104:               LINE   5319 "regression-compile-tmp/imp22g-77.imp"
30903 @ 256144:               PUSHI  #0x0000003b
30904 @ 256149:               RESULT

  5320  s(','): %result = comma
30905 @ 256150:               LINE   5320 "regression-compile-tmp/imp22g-77.imp"
30906 @ 256190:               PUSHI  #0x0000002c
30907 @ 256195:               SLABEL 351
30908 @ 256198:               LINE   5320 "regression-compile-tmp/imp22g-77.imp"
30909 @ 256238:               PUSHI  #0x0000003c
30910 @ 256243:               RESULT

  5321  s(';'): %result = terminator
30911 @ 256244:               LINE   5321 "regression-compile-tmp/imp22g-77.imp"
30912 @ 256284:               PUSHI  #0x0000003b
30913 @ 256289:               SLABEL 351
30914 @ 256292:               LINE   5321 "regression-compile-tmp/imp22g-77.imp"
30915 @ 256332:               PUSHI  #0x00000033
30916 @ 256337:               RESULT

  5322  s('('): %result = left
30917 @ 256338:               LINE   5322 "regression-compile-tmp/imp22g-77.imp"
30918 @ 256378:               PUSHI  #0x00000028
30919 @ 256383:               SLABEL 351
30920 @ 256386:               LINE   5322 "regression-compile-tmp/imp22g-77.imp"
30921 @ 256426:               PUSHI  #0x00000037
30922 @ 256431:               RESULT

  5323  s('['): %result = leftb
30923 @ 256432:               LINE   5323 "regression-compile-tmp/imp22g-77.imp"
30924 @ 256472:               PUSHI  #0x0000005b
30925 @ 256477:               SLABEL 351
30926 @ 256480:               LINE   5323 "regression-compile-tmp/imp22g-77.imp"
30927 @ 256520:               PUSHI  #0x00000038
30928 @ 256525:               RESULT

  5324  s(')'): %result = right
30929 @ 256526:               LINE   5324 "regression-compile-tmp/imp22g-77.imp"
30930 @ 256566:               PUSHI  #0x00000029
30931 @ 256571:               SLABEL 351
30932 @ 256574:               LINE   5324 "regression-compile-tmp/imp22g-77.imp"
30933 @ 256614:               PUSHI  #0x0000003d
30934 @ 256619:               RESULT

  5325  s(']'): %result = rightb
30935 @ 256620:               LINE   5325 "regression-compile-tmp/imp22g-77.imp"
30936 @ 256660:               PUSHI  #0x0000005d
30937 @ 256665:               SLABEL 351
30938 @ 256668:               LINE   5325 "regression-compile-tmp/imp22g-77.imp"
30939 @ 256708:               PUSHI  #0x0000003e
30940 @ 256713:               RESULT

  5326  s('|'): %result = modsign
30941 @ 256714:               LINE   5326 "regression-compile-tmp/imp22g-77.imp"
30942 @ 256754:               PUSHI  #0x0000007c
30943 @ 256759:               SLABEL 351
30944 @ 256762:               LINE   5326 "regression-compile-tmp/imp22g-77.imp"
30945 @ 256802:               PUSHI  #0x00000036
30946 @ 256807:               RESULT

  5327  s('@'): %result = atsign
  5328  
30947 @ 256808:               LINE   5327 "regression-compile-tmp/imp22g-77.imp"
30948 @ 256848:               PUSHI  #0x00000040
30949 @ 256853:               SLABEL 351
30950 @ 256856:               LINE   5327 "regression-compile-tmp/imp22g-77.imp"
30951 @ 256896:               PUSHI  #0x00000039
30952 @ 256901:               RESULT

  5329  s('M'): s('m'):
30953 @ 256902:               LINE   5329 "regression-compile-tmp/imp22g-77.imp"
30954 @ 256942:               PUSHI  #0x0000004d
30955 @ 256947:               SLABEL 351
30956 @ 256950:               LINE   5329 "regression-compile-tmp/imp22g-77.imp"
30957 @ 256990:               PUSHI  #0x0000006d
30958 @ 256995:               SLABEL 351

  5330    fp = fp+1 %and -> charconst %if byteintegeR(fp) = ''''
30959 @ 256998:               LINE   5330 "regression-compile-tmp/imp22g-77.imp"
30960 @ 257038:               PUSH   BYTEINTEGER
30961 @ 257041:               PUSH   FP
30962 @ 257044:               ASSPAR
30963 @ 257045:               CALL  
30964 @ 257046:               PUSHI  #0x00000027
30965 @ 257051:               JUMPIF # L_0004
30966 @ 257055:               PUSH   FP
30967 @ 257058:               PUSH   FP
30968 @ 257061:               PUSHI  #0x00000001
30969 @ 257066:               ADD   
30970 @ 257067:               ASSVAL
30971 @ 257068:               JUMP   L_0170
30972 @ 257071:               LOCATE L_0004

  5331  s('A'):s('B'):s('C'):s('D'):s('E'):s('F'):s('G'):s('H'):
30973 @ 257074:               LINE   5331 "regression-compile-tmp/imp22g-77.imp"
30974 @ 257114:               PUSHI  #0x00000041
30975 @ 257119:               SLABEL 351
30976 @ 257122:               LINE   5331 "regression-compile-tmp/imp22g-77.imp"
30977 @ 257162:               PUSHI  #0x00000042
30978 @ 257167:               SLABEL 351
30979 @ 257170:               LINE   5331 "regression-compile-tmp/imp22g-77.imp"
30980 @ 257210:               PUSHI  #0x00000043
30981 @ 257215:               SLABEL 351
30982 @ 257218:               LINE   5331 "regression-compile-tmp/imp22g-77.imp"
30983 @ 257258:               PUSHI  #0x00000044
30984 @ 257263:               SLABEL 351
30985 @ 257266:               LINE   5331 "regression-compile-tmp/imp22g-77.imp"
30986 @ 257306:               PUSHI  #0x00000045
30987 @ 257311:               SLABEL 351
30988 @ 257314:               LINE   5331 "regression-compile-tmp/imp22g-77.imp"
30989 @ 257354:               PUSHI  #0x00000046
30990 @ 257359:               SLABEL 351
30991 @ 257362:               LINE   5331 "regression-compile-tmp/imp22g-77.imp"
30992 @ 257402:               PUSHI  #0x00000047
30993 @ 257407:               SLABEL 351
30994 @ 257410:               LINE   5331 "regression-compile-tmp/imp22g-77.imp"
30995 @ 257450:               PUSHI  #0x00000048
30996 @ 257455:               SLABEL 351

  5332  s('I'):s('J'):s('K'):s('L'):s('N'):s('O'):s('P'):
30997 @ 257458:               LINE   5332 "regression-compile-tmp/imp22g-77.imp"
30998 @ 257498:               PUSHI  #0x00000049
30999 @ 257503:               SLABEL 351
31000 @ 257506:               LINE   5332 "regression-compile-tmp/imp22g-77.imp"
31001 @ 257546:               PUSHI  #0x0000004a
31002 @ 257551:               SLABEL 351
31003 @ 257554:               LINE   5332 "regression-compile-tmp/imp22g-77.imp"
31004 @ 257594:               PUSHI  #0x0000004b
31005 @ 257599:               SLABEL 351
31006 @ 257602:               LINE   5332 "regression-compile-tmp/imp22g-77.imp"
31007 @ 257642:               PUSHI  #0x0000004c
31008 @ 257647:               SLABEL 351
31009 @ 257650:               LINE   5332 "regression-compile-tmp/imp22g-77.imp"
31010 @ 257690:               PUSHI  #0x0000004e
31011 @ 257695:               SLABEL 351
31012 @ 257698:               LINE   5332 "regression-compile-tmp/imp22g-77.imp"
31013 @ 257738:               PUSHI  #0x0000004f
31014 @ 257743:               SLABEL 351
31015 @ 257746:               LINE   5332 "regression-compile-tmp/imp22g-77.imp"
31016 @ 257786:               PUSHI  #0x00000050
31017 @ 257791:               SLABEL 351

  5333  s('Q'):s('R'):s('S'):s('T'):s('U'):s('V'):s('W'):s('X'):
31018 @ 257794:               LINE   5333 "regression-compile-tmp/imp22g-77.imp"
31019 @ 257834:               PUSHI  #0x00000051
31020 @ 257839:               SLABEL 351
31021 @ 257842:               LINE   5333 "regression-compile-tmp/imp22g-77.imp"
31022 @ 257882:               PUSHI  #0x00000052
31023 @ 257887:               SLABEL 351
31024 @ 257890:               LINE   5333 "regression-compile-tmp/imp22g-77.imp"
31025 @ 257930:               PUSHI  #0x00000053
31026 @ 257935:               SLABEL 351
31027 @ 257938:               LINE   5333 "regression-compile-tmp/imp22g-77.imp"
31028 @ 257978:               PUSHI  #0x00000054
31029 @ 257983:               SLABEL 351
31030 @ 257986:               LINE   5333 "regression-compile-tmp/imp22g-77.imp"
31031 @ 258026:               PUSHI  #0x00000055
31032 @ 258031:               SLABEL 351
31033 @ 258034:               LINE   5333 "regression-compile-tmp/imp22g-77.imp"
31034 @ 258074:               PUSHI  #0x00000056
31035 @ 258079:               SLABEL 351
31036 @ 258082:               LINE   5333 "regression-compile-tmp/imp22g-77.imp"
31037 @ 258122:               PUSHI  #0x00000057
31038 @ 258127:               SLABEL 351
31039 @ 258130:               LINE   5333 "regression-compile-tmp/imp22g-77.imp"
31040 @ 258170:               PUSHI  #0x00000058
31041 @ 258175:               SLABEL 351

  5334  s('Y'):s('Z'):s('a'):s('b'):s('c'):s('d'):s('e'):s('f'):
31042 @ 258178:               LINE   5334 "regression-compile-tmp/imp22g-77.imp"
31043 @ 258218:               PUSHI  #0x00000059
31044 @ 258223:               SLABEL 351
31045 @ 258226:               LINE   5334 "regression-compile-tmp/imp22g-77.imp"
31046 @ 258266:               PUSHI  #0x0000005a
31047 @ 258271:               SLABEL 351
31048 @ 258274:               LINE   5334 "regression-compile-tmp/imp22g-77.imp"
31049 @ 258314:               PUSHI  #0x00000061
31050 @ 258319:               SLABEL 351
31051 @ 258322:               LINE   5334 "regression-compile-tmp/imp22g-77.imp"
31052 @ 258362:               PUSHI  #0x00000062
31053 @ 258367:               SLABEL 351
31054 @ 258370:               LINE   5334 "regression-compile-tmp/imp22g-77.imp"
31055 @ 258410:               PUSHI  #0x00000063
31056 @ 258415:               SLABEL 351
31057 @ 258418:               LINE   5334 "regression-compile-tmp/imp22g-77.imp"
31058 @ 258458:               PUSHI  #0x00000064
31059 @ 258463:               SLABEL 351
31060 @ 258466:               LINE   5334 "regression-compile-tmp/imp22g-77.imp"
31061 @ 258506:               PUSHI  #0x00000065
31062 @ 258511:               SLABEL 351
31063 @ 258514:               LINE   5334 "regression-compile-tmp/imp22g-77.imp"
31064 @ 258554:               PUSHI  #0x00000066
31065 @ 258559:               SLABEL 351

  5335  s('g'):s('h'):s('i'):s('j'):s('k'):s('l'):s('n'):
31066 @ 258562:               LINE   5335 "regression-compile-tmp/imp22g-77.imp"
31067 @ 258602:               PUSHI  #0x00000067
31068 @ 258607:               SLABEL 351
31069 @ 258610:               LINE   5335 "regression-compile-tmp/imp22g-77.imp"
31070 @ 258650:               PUSHI  #0x00000068
31071 @ 258655:               SLABEL 351
31072 @ 258658:               LINE   5335 "regression-compile-tmp/imp22g-77.imp"
31073 @ 258698:               PUSHI  #0x00000069
31074 @ 258703:               SLABEL 351
31075 @ 258706:               LINE   5335 "regression-compile-tmp/imp22g-77.imp"
31076 @ 258746:               PUSHI  #0x0000006a
31077 @ 258751:               SLABEL 351
31078 @ 258754:               LINE   5335 "regression-compile-tmp/imp22g-77.imp"
31079 @ 258794:               PUSHI  #0x0000006b
31080 @ 258799:               SLABEL 351
31081 @ 258802:               LINE   5335 "regression-compile-tmp/imp22g-77.imp"
31082 @ 258842:               PUSHI  #0x0000006c
31083 @ 258847:               SLABEL 351
31084 @ 258850:               LINE   5335 "regression-compile-tmp/imp22g-77.imp"
31085 @ 258890:               PUSHI  #0x0000006e
31086 @ 258895:               SLABEL 351

  5336  s('o'):s('p'):s('q'):s('r'):s('s'):s('t'):s('u'):s('v'):
31087 @ 258898:               LINE   5336 "regression-compile-tmp/imp22g-77.imp"
31088 @ 258938:               PUSHI  #0x0000006f
31089 @ 258943:               SLABEL 351
31090 @ 258946:               LINE   5336 "regression-compile-tmp/imp22g-77.imp"
31091 @ 258986:               PUSHI  #0x00000070
31092 @ 258991:               SLABEL 351
31093 @ 258994:               LINE   5336 "regression-compile-tmp/imp22g-77.imp"
31094 @ 259034:               PUSHI  #0x00000071
31095 @ 259039:               SLABEL 351
31096 @ 259042:               LINE   5336 "regression-compile-tmp/imp22g-77.imp"
31097 @ 259082:               PUSHI  #0x00000072
31098 @ 259087:               SLABEL 351
31099 @ 259090:               LINE   5336 "regression-compile-tmp/imp22g-77.imp"
31100 @ 259130:               PUSHI  #0x00000073
31101 @ 259135:               SLABEL 351
31102 @ 259138:               LINE   5336 "regression-compile-tmp/imp22g-77.imp"
31103 @ 259178:               PUSHI  #0x00000074
31104 @ 259183:               SLABEL 351
31105 @ 259186:               LINE   5336 "regression-compile-tmp/imp22g-77.imp"
31106 @ 259226:               PUSHI  #0x00000075
31107 @ 259231:               SLABEL 351
31108 @ 259234:               LINE   5336 "regression-compile-tmp/imp22g-77.imp"
31109 @ 259274:               PUSHI  #0x00000076
31110 @ 259279:               SLABEL 351

  5337  s('w'):s('x'):s('y'):s('z'):
31111 @ 259282:               LINE   5337 "regression-compile-tmp/imp22g-77.imp"
31112 @ 259322:               PUSHI  #0x00000077
31113 @ 259327:               SLABEL 351
31114 @ 259330:               LINE   5337 "regression-compile-tmp/imp22g-77.imp"
31115 @ 259370:               PUSHI  #0x00000078
31116 @ 259375:               SLABEL 351
31117 @ 259378:               LINE   5337 "regression-compile-tmp/imp22g-77.imp"
31118 @ 259418:               PUSHI  #0x00000079
31119 @ 259423:               SLABEL 351
31120 @ 259426:               LINE   5337 "regression-compile-tmp/imp22g-77.imp"
31121 @ 259466:               PUSHI  #0x0000007a
31122 @ 259471:               SLABEL 351

  5338    -> keyword %if percent # 0
31123 @ 259474:               LINE   5338 "regression-compile-tmp/imp22g-77.imp"
31124 @ 259514:               PUSH   PERCENT
31125 @ 259517:               PUSHI  #0x00000000
31126 @ 259522:               JUMPIF = L_0004
31127 @ 259526:               JUMP   L_0171
31128 @ 259529:               LOCATE L_0004

  5339    newlen = charlim+1;  hash = sym!casebit;  !lower-case (if letter)
31129 @ 259532:               LINE   5339 "regression-compile-tmp/imp22g-77.imp"
31130 @ 259572:               PUSH   NEWLEN
31131 @ 259575:               PUSH   CHARLIM
31132 @ 259578:               PUSHI  #0x00000001
31133 @ 259583:               ADD   
31134 @ 259584:               ASSVAL
31135 @ 259585:               LINE   5339 "regression-compile-tmp/imp22g-77.imp"
31136 @ 259625:               PUSH   HASH
31137 @ 259628:               PUSH   SYM
31138 @ 259631:               PUSHI  #0x00000020
31139 @ 259636:               OR    
31140 @ 259637:               ASSVAL

  5340    byteinteger(newlen) = hash
31141 @ 259638:               LINE   5340 "regression-compile-tmp/imp22g-77.imp"
31142 @ 259678:               PUSH   BYTEINTEGER
31143 @ 259681:               PUSH   NEWLEN
31144 @ 259684:               ASSPAR
31145 @ 259685:               CALL  
31146 @ 259686:               PUSH   HASH
31147 @ 259689:               ASSVAL

  5341    %cycle
31148 @ 259690:               LINE   5341 "regression-compile-tmp/imp22g-77.imp"
31149 @ 259730:               LOCATE L_0003

  5342      sym = byteintegeR(fp);  fp = fp+1
31150 @ 259733:               LINE   5342 "regression-compile-tmp/imp22g-77.imp"
31151 @ 259773:               PUSH   SYM
31152 @ 259776:               PUSH   BYTEINTEGER
31153 @ 259779:               PUSH   FP
31154 @ 259782:               ASSPAR
31155 @ 259783:               CALL  
31156 @ 259784:               ASSVAL
31157 @ 259785:               LINE   5342 "regression-compile-tmp/imp22g-77.imp"
31158 @ 259825:               PUSH   FP
31159 @ 259828:               PUSH   FP
31160 @ 259831:               PUSHI  #0x00000001
31161 @ 259836:               ADD   
31162 @ 259837:               ASSVAL

  5343    %repeat %until sym # ' '
31163 @ 259838:               LINE   5343 "regression-compile-tmp/imp22g-77.imp"
31164 @ 259878:               PUSH   SYM
31165 @ 259881:               PUSHI  #0x00000020
31166 @ 259886:               JUMPIF # L_0004
31167 @ 259890:               REPEAT L_0003
31168 @ 259893:               LOCATE L_0004

  5344    %if sym = '''' %start;  !damned IBM-style literals
31169 @ 259896:               LINE   5344 "regression-compile-tmp/imp22g-77.imp"
31170 @ 259936:               PUSH   SYM
31171 @ 259939:               PUSHI  #0x00000027
31172 @ 259944:               JUMPIF # L_0004

  5345      radix = 16 %and ->ibm %if hash = 'x'
31173 @ 259948:               LINE   5345 "regression-compile-tmp/imp22g-77.imp"
31174 @ 259988:               PUSH   HASH
31175 @ 259991:               PUSHI  #0x00000078
31176 @ 259996:               JUMPIF # L_0007
31177 @ 260000:               PUSH   RADIX
31178 @ 260003:               PUSHI  #0x00000010
31179 @ 260008:               ASSVAL
31180 @ 260009:               JUMP   L_0172
31181 @ 260012:               LOCATE L_0007

  5346      radix = 8 %and ->ibm %if hash = 'k'
31182 @ 260015:               LINE   5346 "regression-compile-tmp/imp22g-77.imp"
31183 @ 260055:               PUSH   HASH
31184 @ 260058:               PUSHI  #0x0000006b
31185 @ 260063:               JUMPIF # L_0007
31186 @ 260067:               PUSH   RADIX
31187 @ 260070:               PUSHI  #0x00000008
31188 @ 260075:               ASSVAL
31189 @ 260076:               JUMP   L_0172
31190 @ 260079:               LOCATE L_0007

  5347      radix = 2 %and ->ibm %if hash = 'b'
31191 @ 260082:               LINE   5347 "regression-compile-tmp/imp22g-77.imp"
31192 @ 260122:               PUSH   HASH
31193 @ 260125:               PUSHI  #0x00000062
31194 @ 260130:               JUMPIF # L_0007
31195 @ 260134:               PUSH   RADIX
31196 @ 260137:               PUSHI  #0x00000002
31197 @ 260142:               ASSVAL
31198 @ 260143:               JUMP   L_0172
31199 @ 260146:               LOCATE L_0007

  5348    %finish
31200 @ 260149:               LINE   5348 "regression-compile-tmp/imp22g-77.imp"
31201 @ 260189:               LOCATE L_0004

  5349    sym = map(sym)
31202 @ 260192:               LINE   5349 "regression-compile-tmp/imp22g-77.imp"
31203 @ 260232:               PUSH   SYM
31204 @ 260235:               PUSH   MAP
31205 @ 260238:               PUSH   SYM
31206 @ 260241:               ACCESS
31207 @ 260242:               ASSVAL

  5350    %if sym # 0 %start
31208 @ 260243:               LINE   5350 "regression-compile-tmp/imp22g-77.imp"
31209 @ 260283:               PUSH   SYM
31210 @ 260286:               PUSHI  #0x00000000
31211 @ 260291:               JUMPIF = L_0004

  5351      %cycle
31212 @ 260295:               LINE   5351 "regression-compile-tmp/imp22g-77.imp"
31213 @ 260335:               LOCATE L_0006

  5352        newlen = newlen+1;  byteinteger(newlen) = sym
31214 @ 260338:               LINE   5352 "regression-compile-tmp/imp22g-77.imp"
31215 @ 260378:               PUSH   NEWLEN
31216 @ 260381:               PUSH   NEWLEN
31217 @ 260384:               PUSHI  #0x00000001
31218 @ 260389:               ADD   
31219 @ 260390:               ASSVAL
31220 @ 260391:               LINE   5352 "regression-compile-tmp/imp22g-77.imp"
31221 @ 260431:               PUSH   BYTEINTEGER
31222 @ 260434:               PUSH   NEWLEN
31223 @ 260437:               ASSPAR
31224 @ 260438:               CALL  
31225 @ 260439:               PUSH   SYM
31226 @ 260442:               ASSVAL

  5353        hash = hash<<1!!sym
31227 @ 260443:               LINE   5353 "regression-compile-tmp/imp22g-77.imp"
31228 @ 260483:               PUSH   HASH
31229 @ 260486:               PUSH   HASH
31230 @ 260489:               PUSHI  #0x00000001
31231 @ 260494:               LSH   
31232 @ 260495:               PUSH   SYM
31233 @ 260498:               XOR   
31234 @ 260499:               ASSVAL

  5354        %cycle
31235 @ 260500:               LINE   5354 "regression-compile-tmp/imp22g-77.imp"
31236 @ 260540:               LOCATE L_0009

  5355          sym = byteintegeR(fp);  fp = fp+1
31237 @ 260543:               LINE   5355 "regression-compile-tmp/imp22g-77.imp"
31238 @ 260583:               PUSH   SYM
31239 @ 260586:               PUSH   BYTEINTEGER
31240 @ 260589:               PUSH   FP
31241 @ 260592:               ASSPAR
31242 @ 260593:               CALL  
31243 @ 260594:               ASSVAL
31244 @ 260595:               LINE   5355 "regression-compile-tmp/imp22g-77.imp"
31245 @ 260635:               PUSH   FP
31246 @ 260638:               PUSH   FP
31247 @ 260641:               PUSHI  #0x00000001
31248 @ 260646:               ADD   
31249 @ 260647:               ASSVAL

  5356        %repeat %until sym # ' '
31250 @ 260648:               LINE   5356 "regression-compile-tmp/imp22g-77.imp"
31251 @ 260688:               PUSH   SYM
31252 @ 260691:               PUSHI  #0x00000020
31253 @ 260696:               JUMPIF # L_000a
31254 @ 260700:               REPEAT L_0009
31255 @ 260703:               LOCATE L_000a

  5357        sym = map(sym)
31256 @ 260706:               LINE   5357 "regression-compile-tmp/imp22g-77.imp"
31257 @ 260746:               PUSH   SYM
31258 @ 260749:               PUSH   MAP
31259 @ 260752:               PUSH   SYM
31260 @ 260755:               ACCESS
31261 @ 260756:               ASSVAL

  5358      %repeat %until sym = 0
31262 @ 260757:               LINE   5358 "regression-compile-tmp/imp22g-77.imp"
31263 @ 260797:               PUSH   SYM
31264 @ 260800:               PUSHI  #0x00000000
31265 @ 260805:               JUMPIF = L_0007
31266 @ 260809:               REPEAT L_0006
31267 @ 260812:               LOCATE L_0007

  5359    %finish
31268 @ 260815:               LINE   5359 "regression-compile-tmp/imp22g-77.imp"
31269 @ 260855:               LOCATE L_0004

  5360    fp = fp-1
31270 @ 260858:               LINE   5360 "regression-compile-tmp/imp22g-77.imp"
31271 @ 260898:               PUSH   FP
31272 @ 260901:               PUSH   FP
31273 @ 260904:               PUSHI  #0x00000001
31274 @ 260909:               SUB   
31275 @ 260910:               ASSVAL

  5361    newlen = newlen-charlim;  byteinteger(charlim) = newlen
31276 @ 260911:               LINE   5361 "regression-compile-tmp/imp22g-77.imp"
31277 @ 260951:               PUSH   NEWLEN
31278 @ 260954:               PUSH   NEWLEN
31279 @ 260957:               PUSH   CHARLIM
31280 @ 260960:               SUB   
31281 @ 260961:               ASSVAL
31282 @ 260962:               LINE   5361 "regression-compile-tmp/imp22g-77.imp"
31283 @ 261002:               PUSH   BYTEINTEGER
31284 @ 261005:               PUSH   CHARLIM
31285 @ 261008:               ASSPAR
31286 @ 261009:               CALL  
31287 @ 261010:               PUSH   NEWLEN
31288 @ 261013:               ASSVAL

  5362    %if subbed # 0 %then head == dformat_link %c
  5363    %else head == hashindex(hash&255)
31289 @ 261014:               LINE   5362 "regression-compile-tmp/imp22g-77.imp"
31290 @ 261054:               PUSH   SUBBED
31291 @ 261057:               PUSHI  #0x00000000
31292 @ 261062:               JUMPIF = L_0004
31293 @ 261066:               PUSH   HEAD
31294 @ 261069:               PUSH   DFORMAT
31295 @ 261072:               SELECT 3
31296 @ 261075:               ASSREF
31297 @ 261076:               GOTO   L_0003
31298 @ 261079:               LOCATE L_0004
31299 @ 261082:               PUSH   HEAD
31300 @ 261085:               PUSH   HASHINDEX
31301 @ 261088:               PUSH   HASH
31302 @ 261091:               PUSHI  #0x000000ff
31303 @ 261096:               AND   
31304 @ 261097:               ACCESS
31305 @ 261098:               ASSREF
31306 @ 261099:               LOCATE L_0003

  5364    item = head
31307 @ 261102:               LINE   5364 "regression-compile-tmp/imp22g-77.imp"
31308 @ 261142:               PUSH   ITEM
31309 @ 261145:               PUSH   HEAD
31310 @ 261148:               ASSVAL

  5365    %if item # 0 %start
31311 @ 261149:               LINE   5365 "regression-compile-tmp/imp22g-77.imp"
31312 @ 261189:               PUSH   ITEM
31313 @ 261192:               PUSHI  #0x00000000
31314 @ 261197:               JUMPIF = L_0004

  5366      %cycle
31315 @ 261201:               LINE   5366 "regression-compile-tmp/imp22g-77.imp"
31316 @ 261241:               LOCATE L_0006

  5367        ditem == dict(imod(item))
31317 @ 261244:               LINE   5367 "regression-compile-tmp/imp22g-77.imp"
31318 @ 261284:               PUSH   DITEM
31319 @ 261287:               PUSH   DICT
31320 @ 261290:               PUSH   IMOD
31321 @ 261293:               PUSH   ITEM
31322 @ 261296:               ASSPAR
31323 @ 261297:               CALL  
31324 @ 261298:               ACCESS
31325 @ 261299:               ASSREF

  5368        %exit %if string(ditem_text+char0) = string(charlim) %c
  5369              %and (item > a7 %or item < 0 %or control&lowbit # 0)
31326 @ 261300:               LINE   5368 "regression-compile-tmp/imp22g-77.imp"
31327 @ 261340:               PUSH   STRING
31328 @ 261343:               PUSH   DITEM
31329 @ 261346:               SELECT 11
31330 @ 261349:               PUSH   CHAR0
31331 @ 261352:               ADD   
31332 @ 261353:               ASSPAR
31333 @ 261354:               CALL  
31334 @ 261355:               PUSH   STRING
31335 @ 261358:               PUSH   CHARLIM
31336 @ 261361:               ASSPAR
31337 @ 261362:               CALL  
31338 @ 261363:               JUMPIF # L_000a
31339 @ 261367:               PUSH   ITEM
31340 @ 261370:               PUSHI  #0x00000010
31341 @ 261375:               JUMPIF > L_000b
31342 @ 261379:               PUSH   ITEM
31343 @ 261382:               PUSHI  #0x00000000
31344 @ 261387:               JUMPIF < L_000b
31345 @ 261391:               PUSH   CONTROL
31346 @ 261394:               PUSHI  #0x00004000
31347 @ 261399:               AND   
31348 @ 261400:               PUSHI  #0x00000000
31349 @ 261405:               JUMPIF = L_000a
31350 @ 261409:               LOCATE L_000b
31351 @ 261412:               GOTO   L_0007
31352 @ 261415:               LOCATE L_000a

  5370        item = ditem_hlink
31353 @ 261418:               LINE   5370 "regression-compile-tmp/imp22g-77.imp"
31354 @ 261458:               PUSH   ITEM
31355 @ 261461:               PUSH   DITEM
31356 @ 261464:               SELECT 12
31357 @ 261467:               ASSVAL

  5371      %repeat %until item = 0
31358 @ 261468:               LINE   5371 "regression-compile-tmp/imp22g-77.imp"
31359 @ 261508:               PUSH   ITEM
31360 @ 261511:               PUSHI  #0x00000000
31361 @ 261516:               JUMPIF = L_0007
31362 @ 261520:               REPEAT L_0006
31363 @ 261523:               LOCATE L_0007

  5372    %finish
31364 @ 261526:               LINE   5372 "regression-compile-tmp/imp22g-77.imp"
31365 @ 261566:               LOCATE L_0004

  5373    identatoms = identatoms+1
31366 @ 261569:               LINE   5373 "regression-compile-tmp/imp22g-77.imp"
31367 @ 261609:               PUSH   IDENTATOMS
31368 @ 261612:               PUSH   IDENTATOMS
31369 @ 261615:               PUSHI  #0x00000001
31370 @ 261620:               ADD   
31371 @ 261621:               ASSVAL

  5374    %result = ident
  5375  
31372 @ 261622:               LINE   5374 "regression-compile-tmp/imp22g-77.imp"
31373 @ 261662:               PUSHI  #0x00000035
31374 @ 261667:               RESULT

  5376  s('%'):
31375 @ 261668:               LINE   5376 "regression-compile-tmp/imp22g-77.imp"
31376 @ 261708:               PUSHI  #0x00000025
31377 @ 261713:               SLABEL 351

  5377    sym = byteintegeR(fp)
31378 @ 261716:               LINE   5377 "regression-compile-tmp/imp22g-77.imp"
31379 @ 261756:               PUSH   SYM
31380 @ 261759:               PUSH   BYTEINTEGER
31381 @ 261762:               PUSH   FP
31382 @ 261765:               ASSPAR
31383 @ 261766:               CALL  
31384 @ 261767:               ASSVAL

  5378    -> again %unless 'a' <= sym!casebit <= 'z'
31385 @ 261768:               LINE   5378 "regression-compile-tmp/imp22g-77.imp"
31386 @ 261808:               PUSHI  #0x00000061
31387 @ 261813:               PUSH   SYM
31388 @ 261816:               PUSHI  #0x00000020
31389 @ 261821:               OR    
31390 @ 261822:               JUMPIFD > L_0005
31391 @ 261826:               PUSHI  #0x0000007a
31392 @ 261831:               JUMPIF <= L_0004
31393 @ 261835:               LOCATE L_0005
31394 @ 261838:               JUMP   L_016b
31395 @ 261841:               LOCATE L_0004

  5379    fp = fp+1
31396 @ 261844:               LINE   5379 "regression-compile-tmp/imp22g-77.imp"
31397 @ 261884:               PUSH   FP
31398 @ 261887:               PUSH   FP
31399 @ 261890:               PUSHI  #0x00000001
31400 @ 261895:               ADD   
31401 @ 261896:               ASSVAL

  5380  keyword:
31402 @ 261897:               LINE   5380 "regression-compile-tmp/imp22g-77.imp"
31403 @ 261937:               LABEL  L_0171

  5381    percent = 0
31404 @ 261940:               LINE   5381 "regression-compile-tmp/imp22g-77.imp"
31405 @ 261980:               PUSH   PERCENT
31406 @ 261983:               PUSHI  #0x00000000
31407 @ 261988:               ASSVAL

  5382    p = syminit(sym!casebit)
31408 @ 261989:               LINE   5382 "regression-compile-tmp/imp22g-77.imp"
31409 @ 262029:               PUSH   P
31410 @ 262032:               PUSH   SYMINIT
31411 @ 262035:               PUSH   SYM
31412 @ 262038:               PUSHI  #0x00000020
31413 @ 262043:               OR    
31414 @ 262044:               ACCESS
31415 @ 262045:               ASSVAL

  5383    %cycle
  5384  !     %cycle
  5385  !       sym = byteintegeR(fp)!casebit
  5386  !       %exit %if symbol(p) # sym
31416 @ 262046:               LINE   5383 "regression-compile-tmp/imp22g-77.imp"
31417 @ 262086:               LOCATE L_0003

  5387      %while symbol(p) = byteintegeR(fp)!casebit %cycle
31418 @ 262089:               LINE   5387 "regression-compile-tmp/imp22g-77.imp"
31419 @ 262129:               LOCATE L_0006
31420 @ 262132:               PUSH   SYMBOL
31421 @ 262135:               PUSH   P
31422 @ 262138:               ACCESS
31423 @ 262139:               PUSH   BYTEINTEGER
31424 @ 262142:               PUSH   FP
31425 @ 262145:               ASSPAR
31426 @ 262146:               CALL  
31427 @ 262147:               PUSHI  #0x00000020
31428 @ 262152:               OR    
31429 @ 262153:               JUMPIF # L_0007

  5388        p = p+1;  fp = fp+1
31430 @ 262157:               LINE   5388 "regression-compile-tmp/imp22g-77.imp"
31431 @ 262197:               PUSH   P
31432 @ 262200:               PUSH   P
31433 @ 262203:               PUSHI  #0x00000001
31434 @ 262208:               ADD   
31435 @ 262209:               ASSVAL
31436 @ 262210:               LINE   5388 "regression-compile-tmp/imp22g-77.imp"
31437 @ 262250:               PUSH   FP
31438 @ 262253:               PUSH   FP
31439 @ 262256:               PUSHI  #0x00000001
31440 @ 262261:               ADD   
31441 @ 262262:               ASSVAL

  5389      %repeat
31442 @ 262263:               LINE   5389 "regression-compile-tmp/imp22g-77.imp"
31443 @ 262303:               REPEAT L_0006
31444 @ 262306:               LOCATE L_0007

  5390      %exit %if symbol(p) > 127
31445 @ 262309:               LINE   5390 "regression-compile-tmp/imp22g-77.imp"
31446 @ 262349:               PUSH   SYMBOL
31447 @ 262352:               PUSH   P
31448 @ 262355:               ACCESS
31449 @ 262356:               PUSHI  #0x0000007f
31450 @ 262361:               JUMPIF <= L_0007
31451 @ 262365:               GOTO   L_0004
31452 @ 262368:               LOCATE L_0007

  5391      atom = altdisp(p)
31453 @ 262371:               LINE   5391 "regression-compile-tmp/imp22g-77.imp"
31454 @ 262411:               PUSH   ATOM
31455 @ 262414:               PUSH   ALTDISP
31456 @ 262417:               PUSH   P
31457 @ 262420:               ACCESS
31458 @ 262421:               ASSVAL

  5392      %if atom = 0 %start
31459 @ 262422:               LINE   5392 "regression-compile-tmp/imp22g-77.imp"
31460 @ 262462:               PUSH   ATOM
31461 @ 262465:               PUSHI  #0x00000000
31462 @ 262470:               JUMPIF # L_0007

  5393        %result = dud %unless sym!casebit = 'c' %and byteintegeR(fp) = nl
31463 @ 262474:               LINE   5393 "regression-compile-tmp/imp22g-77.imp"
31464 @ 262514:               PUSH   SYM
31465 @ 262517:               PUSHI  #0x00000020
31466 @ 262522:               OR    
31467 @ 262523:               PUSHI  #0x00000063
31468 @ 262528:               JUMPIF # L_000b
31469 @ 262532:               PUSH   BYTEINTEGER
31470 @ 262535:               PUSH   FP
31471 @ 262538:               ASSPAR
31472 @ 262539:               CALL  
31473 @ 262540:               PUSHI  #0x0000000a
31474 @ 262545:               JUMPIF = L_000a
31475 @ 262549:               LOCATE L_000b
31476 @ 262552:               PUSHI  #0x0000003f
31477 @ 262557:               RESULT
31478 @ 262558:               LOCATE L_000a

  5394        ->continuation
31479 @ 262561:               LINE   5394 "regression-compile-tmp/imp22g-77.imp"
31480 @ 262601:               JUMP   L_016e

  5395      %finish
31481 @ 262604:               LINE   5395 "regression-compile-tmp/imp22g-77.imp"
31482 @ 262644:               LOCATE L_0007

  5396      p = p+atom
31483 @ 262647:               LINE   5396 "regression-compile-tmp/imp22g-77.imp"
31484 @ 262687:               PUSH   P
31485 @ 262690:               PUSH   P
31486 @ 262693:               PUSH   ATOM
31487 @ 262696:               ADD   
31488 @ 262697:               ASSVAL

  5397    %repeat
31489 @ 262698:               LINE   5397 "regression-compile-tmp/imp22g-77.imp"
31490 @ 262738:               REPEAT L_0003
31491 @ 262741:               LOCATE L_0004

  5398    percent = 1 %if 'a' <= byteintegeR(fp)!casebit <= 'z'
31492 @ 262744:               LINE   5398 "regression-compile-tmp/imp22g-77.imp"
31493 @ 262784:               PUSHI  #0x00000061
31494 @ 262789:               PUSH   BYTEINTEGER
31495 @ 262792:               PUSH   FP
31496 @ 262795:               ASSPAR
31497 @ 262796:               CALL  
31498 @ 262797:               PUSHI  #0x00000020
31499 @ 262802:               OR    
31500 @ 262803:               JUMPIFD > L_0004
31501 @ 262807:               PUSHI  #0x0000007a
31502 @ 262812:               JUMPIF > L_0004
31503 @ 262816:               PUSH   PERCENT
31504 @ 262819:               PUSHI  #0x00000001
31505 @ 262824:               ASSVAL
31506 @ 262825:               LOCATE L_0004

  5399    subatom = altdisp(p)
31507 @ 262828:               LINE   5399 "regression-compile-tmp/imp22g-77.imp"
31508 @ 262868:               PUSH   SUBATOM
31509 @ 262871:               PUSH   ALTDISP
31510 @ 262874:               PUSH   P
31511 @ 262877:               ACCESS
31512 @ 262878:               ASSVAL

  5400    atom = symbol(p)-128
31513 @ 262879:               LINE   5400 "regression-compile-tmp/imp22g-77.imp"
31514 @ 262919:               PUSH   ATOM
31515 @ 262922:               PUSH   SYMBOL
31516 @ 262925:               PUSH   P
31517 @ 262928:               ACCESS
31518 @ 262929:               PUSHI  #0x00000080
31519 @ 262934:               SUB   
31520 @ 262935:               ASSVAL

  5401    %result = dud %if atom = 0
31521 @ 262936:               LINE   5401 "regression-compile-tmp/imp22g-77.imp"
31522 @ 262976:               PUSH   ATOM
31523 @ 262979:               PUSHI  #0x00000000
31524 @ 262984:               JUMPIF # L_0004
31525 @ 262988:               PUSHI  #0x0000003f
31526 @ 262993:               RESULT
31527 @ 262994:               LOCATE L_0004

  5402    %result = atom
  5403  
31528 @ 262997:               LINE   5402 "regression-compile-tmp/imp22g-77.imp"
31529 @ 263037:               PUSH   ATOM
31530 @ 263040:               RESULT

  5404  ibm:
31531 @ 263041:               LINE   5404 "regression-compile-tmp/imp22g-77.imp"
31532 @ 263081:               LABEL  L_0172

  5405    nonstandard(20)
31533 @ 263084:               LINE   5405 "regression-compile-tmp/imp22g-77.imp"
31534 @ 263124:               PUSH   NONSTANDARD
31535 @ 263127:               PUSHI  #0x00000014
31536 @ 263132:               ASSPAR
31537 @ 263133:               CALL  

  5406    item = -1;  value = 0
31538 @ 263134:               LINE   5406 "regression-compile-tmp/imp22g-77.imp"
31539 @ 263174:               PUSH   ITEM
31540 @ 263177:               PUSHI  #0x00000001
31541 @ 263182:               NEGATE
31542 @ 263183:               ASSVAL
31543 @ 263184:               LINE   5406 "regression-compile-tmp/imp22g-77.imp"
31544 @ 263224:               PUSH   VALUE
31545 @ 263227:               PUSHI  #0x00000000
31546 @ 263232:               ASSVAL

  5407    -> ibm1
31547 @ 263233:               LINE   5407 "regression-compile-tmp/imp22g-77.imp"
31548 @ 263273:               JUMP   L_0173

  5408  s('0'):s('1'):s('2'):s('3'):s('4'):s('5'):s('6'):s('7'):s('8'):s('9'):
31549 @ 263276:               LINE   5408 "regression-compile-tmp/imp22g-77.imp"
31550 @ 263316:               PUSHI  #0x00000030
31551 @ 263321:               SLABEL 351
31552 @ 263324:               LINE   5408 "regression-compile-tmp/imp22g-77.imp"
31553 @ 263364:               PUSHI  #0x00000031
31554 @ 263369:               SLABEL 351
31555 @ 263372:               LINE   5408 "regression-compile-tmp/imp22g-77.imp"
31556 @ 263412:               PUSHI  #0x00000032
31557 @ 263417:               SLABEL 351
31558 @ 263420:               LINE   5408 "regression-compile-tmp/imp22g-77.imp"
31559 @ 263460:               PUSHI  #0x00000033
31560 @ 263465:               SLABEL 351
31561 @ 263468:               LINE   5408 "regression-compile-tmp/imp22g-77.imp"
31562 @ 263508:               PUSHI  #0x00000034
31563 @ 263513:               SLABEL 351
31564 @ 263516:               LINE   5408 "regression-compile-tmp/imp22g-77.imp"
31565 @ 263556:               PUSHI  #0x00000035
31566 @ 263561:               SLABEL 351
31567 @ 263564:               LINE   5408 "regression-compile-tmp/imp22g-77.imp"
31568 @ 263604:               PUSHI  #0x00000036
31569 @ 263609:               SLABEL 351
31570 @ 263612:               LINE   5408 "regression-compile-tmp/imp22g-77.imp"
31571 @ 263652:               PUSHI  #0x00000037
31572 @ 263657:               SLABEL 351
31573 @ 263660:               LINE   5408 "regression-compile-tmp/imp22g-77.imp"
31574 @ 263700:               PUSHI  #0x00000038
31575 @ 263705:               SLABEL 351
31576 @ 263708:               LINE   5408 "regression-compile-tmp/imp22g-77.imp"
31577 @ 263748:               PUSHI  #0x00000039
31578 @ 263753:               SLABEL 351

  5409    item = 0;  type = inttype
31579 @ 263756:               LINE   5409 "regression-compile-tmp/imp22g-77.imp"
31580 @ 263796:               PUSH   ITEM
31581 @ 263799:               PUSHI  #0x00000000
31582 @ 263804:               ASSVAL
31583 @ 263805:               LINE   5409 "regression-compile-tmp/imp22g-77.imp"
31584 @ 263845:               PUSH   TYPE
31585 @ 263848:               PUSHI  #0x0000002b
31586 @ 263853:               ASSVAL

  5410    radix = 10;  value = sym-'0'
31587 @ 263854:               LINE   5410 "regression-compile-tmp/imp22g-77.imp"
31588 @ 263894:               PUSH   RADIX
31589 @ 263897:               PUSHI  #0x0000000a
31590 @ 263902:               ASSVAL
31591 @ 263903:               LINE   5410 "regression-compile-tmp/imp22g-77.imp"
31592 @ 263943:               PUSH   VALUE
31593 @ 263946:               PUSH   SYM
31594 @ 263949:               PUSHI  #0x00000030
31595 @ 263954:               SUB   
31596 @ 263955:               ASSVAL

  5411  ibm1:
31597 @ 263956:               LINE   5411 "regression-compile-tmp/imp22g-77.imp"
31598 @ 263996:               LABEL  L_0173

  5412    %cycle
31599 @ 263999:               LINE   5412 "regression-compile-tmp/imp22g-77.imp"
31600 @ 264039:               LOCATE L_0003

  5413      %cycle
31601 @ 264042:               LINE   5413 "regression-compile-tmp/imp22g-77.imp"
31602 @ 264082:               LOCATE L_0006

  5414        %cycle
31603 @ 264085:               LINE   5414 "regression-compile-tmp/imp22g-77.imp"
31604 @ 264125:               LOCATE L_0009

  5415          sym = byteintegeR(fp);  fp = fp+1
31605 @ 264128:               LINE   5415 "regression-compile-tmp/imp22g-77.imp"
31606 @ 264168:               PUSH   SYM
31607 @ 264171:               PUSH   BYTEINTEGER
31608 @ 264174:               PUSH   FP
31609 @ 264177:               ASSPAR
31610 @ 264178:               CALL  
31611 @ 264179:               ASSVAL
31612 @ 264180:               LINE   5415 "regression-compile-tmp/imp22g-77.imp"
31613 @ 264220:               PUSH   FP
31614 @ 264223:               PUSH   FP
31615 @ 264226:               PUSHI  #0x00000001
31616 @ 264231:               ADD   
31617 @ 264232:               ASSVAL

  5416        %repeat %until sym # ' '
31618 @ 264233:               LINE   5416 "regression-compile-tmp/imp22g-77.imp"
31619 @ 264273:               PUSH   SYM
31620 @ 264276:               PUSHI  #0x00000020
31621 @ 264281:               JUMPIF # L_000a
31622 @ 264285:               REPEAT L_0009
31623 @ 264288:               LOCATE L_000a

  5417        i = sym-'0'
31624 @ 264291:               LINE   5417 "regression-compile-tmp/imp22g-77.imp"
31625 @ 264331:               PUSH   I
31626 @ 264334:               PUSH   SYM
31627 @ 264337:               PUSHI  #0x00000030
31628 @ 264342:               SUB   
31629 @ 264343:               ASSVAL

  5418        %if radix = 10 %start
31630 @ 264344:               LINE   5418 "regression-compile-tmp/imp22g-77.imp"
31631 @ 264384:               PUSH   RADIX
31632 @ 264387:               PUSHI  #0x0000000a
31633 @ 264392:               JUMPIF # L_000a

  5419          %exit %if i < 0 %or i >= 10
31634 @ 264396:               LINE   5419 "regression-compile-tmp/imp22g-77.imp"
31635 @ 264436:               PUSH   I
31636 @ 264439:               PUSHI  #0x00000000
31637 @ 264444:               JUMPIF < L_000e
31638 @ 264448:               PUSH   I
31639 @ 264451:               PUSHI  #0x0000000a
31640 @ 264456:               JUMPIF < L_000d
31641 @ 264460:               LOCATE L_000e
31642 @ 264463:               GOTO   L_0007
31643 @ 264466:               LOCATE L_000d

  5420          fault(rangerr+point+warn) %if value > max10 %or (value=max10 %and i > maxdig)
31644 @ 264469:               LINE   5420 "regression-compile-tmp/imp22g-77.imp"
31645 @ 264509:               PUSH   VALUE
31646 @ 264512:               PUSHI  #0x0ccccccc
31647 @ 264517:               JUMPIF > L_000e
31648 @ 264521:               PUSH   VALUE
31649 @ 264524:               PUSHI  #0x0ccccccc
31650 @ 264529:               JUMPIF # L_000d
31651 @ 264533:               PUSH   I
31652 @ 264536:               PUSHI  #0x00000007
31653 @ 264541:               JUMPIF <= L_000d
31654 @ 264545:               LOCATE L_000e
31655 @ 264548:               PUSH   FAULT
31656 @ 264551:               PUSHI  #0x00000018
31657 @ 264556:               PUSHI  #0x00000040
31658 @ 264561:               ADD   
31659 @ 264562:               PUSHI  #0xffffff80
31660 @ 264567:               ADD   
31661 @ 264568:               ASSPAR
31662 @ 264569:               CALL  
31663 @ 264570:               LOCATE L_000d

  5421          value = (value<<2+value)<<1+i
31664 @ 264573:               LINE   5421 "regression-compile-tmp/imp22g-77.imp"
31665 @ 264613:               PUSH   VALUE
31666 @ 264616:               PUSH   VALUE
31667 @ 264619:               PUSHI  #0x00000002
31668 @ 264624:               LSH   
31669 @ 264625:               PUSH   VALUE
31670 @ 264628:               ADD   
31671 @ 264629:               PUSHI  #0x00000001
31672 @ 264634:               LSH   
31673 @ 264635:               PUSH   I
31674 @ 264638:               ADD   
31675 @ 264639:               ASSVAL

  5422        %else
31676 @ 264640:               LINE   5422 "regression-compile-tmp/imp22g-77.imp"
31677 @ 264680:               GOTO   L_0009
31678 @ 264683:               LOCATE L_000a

  5423          i = sym!casebit-'a'+10 %if i >= 10
31679 @ 264686:               LINE   5423 "regression-compile-tmp/imp22g-77.imp"
31680 @ 264726:               PUSH   I
31681 @ 264729:               PUSHI  #0x0000000a
31682 @ 264734:               JUMPIF < L_000d
31683 @ 264738:               PUSH   I
31684 @ 264741:               PUSH   SYM
31685 @ 264744:               PUSHI  #0x00000020
31686 @ 264749:               OR    
31687 @ 264750:               PUSHI  #0x00000061
31688 @ 264755:               SUB   
31689 @ 264756:               PUSHI  #0x0000000a
31690 @ 264761:               ADD   
31691 @ 264762:               ASSVAL
31692 @ 264763:               LOCATE L_000d

  5424          %exit %if i < 0 %or i >= radix
31693 @ 264766:               LINE   5424 "regression-compile-tmp/imp22g-77.imp"
31694 @ 264806:               PUSH   I
31695 @ 264809:               PUSHI  #0x00000000
31696 @ 264814:               JUMPIF < L_000e
31697 @ 264818:               PUSH   I
31698 @ 264821:               PUSH   RADIX
31699 @ 264824:               JUMPIF < L_000d
31700 @ 264828:               LOCATE L_000e
31701 @ 264831:               GOTO   L_0007
31702 @ 264834:               LOCATE L_000d

  5425          j = radix
31703 @ 264837:               LINE   5425 "regression-compile-tmp/imp22g-77.imp"
31704 @ 264877:               PUSH   J
31705 @ 264880:               PUSH   RADIX
31706 @ 264883:               ASSVAL

  5426          %cycle
31707 @ 264884:               LINE   5426 "regression-compile-tmp/imp22g-77.imp"
31708 @ 264924:               LOCATE L_000c

  5427            i = i+value %if j&1 # 0
31709 @ 264927:               LINE   5427 "regression-compile-tmp/imp22g-77.imp"
31710 @ 264967:               PUSH   J
31711 @ 264970:               PUSHI  #0x00000001
31712 @ 264975:               AND   
31713 @ 264976:               PUSHI  #0x00000000
31714 @ 264981:               JUMPIF = L_0010
31715 @ 264985:               PUSH   I
31716 @ 264988:               PUSH   I
31717 @ 264991:               PUSH   VALUE
31718 @ 264994:               ADD   
31719 @ 264995:               ASSVAL
31720 @ 264996:               LOCATE L_0010

  5428            value = value<<1;  j = j>>1
31721 @ 264999:               LINE   5428 "regression-compile-tmp/imp22g-77.imp"
31722 @ 265039:               PUSH   VALUE
31723 @ 265042:               PUSH   VALUE
31724 @ 265045:               PUSHI  #0x00000001
31725 @ 265050:               LSH   
31726 @ 265051:               ASSVAL
31727 @ 265052:               LINE   5428 "regression-compile-tmp/imp22g-77.imp"
31728 @ 265092:               PUSH   J
31729 @ 265095:               PUSH   J
31730 @ 265098:               PUSHI  #0x00000001
31731 @ 265103:               RSH   
31732 @ 265104:               ASSVAL

  5429          %repeat %until j = 0
31733 @ 265105:               LINE   5429 "regression-compile-tmp/imp22g-77.imp"
31734 @ 265145:               PUSH   J
31735 @ 265148:               PUSHI  #0x00000000
31736 @ 265153:               JUMPIF = L_000d
31737 @ 265157:               REPEAT L_000c
31738 @ 265160:               LOCATE L_000d

  5430          value = i
31739 @ 265163:               LINE   5430 "regression-compile-tmp/imp22g-77.imp"
31740 @ 265203:               PUSH   VALUE
31741 @ 265206:               PUSH   I
31742 @ 265209:               ASSVAL

  5431        %finish
31743 @ 265210:               LINE   5431 "regression-compile-tmp/imp22g-77.imp"
31744 @ 265250:               LOCATE L_0009

  5432      %repeat
31745 @ 265253:               LINE   5432 "regression-compile-tmp/imp22g-77.imp"
31746 @ 265293:               REPEAT L_0006
31747 @ 265296:               LOCATE L_0007

  5433      %exit %unless sym = '_'
31748 @ 265299:               LINE   5433 "regression-compile-tmp/imp22g-77.imp"
31749 @ 265339:               PUSH   SYM
31750 @ 265342:               PUSHI  #0x0000005f
31751 @ 265347:               JUMPIF = L_0007
31752 @ 265351:               GOTO   L_0004
31753 @ 265354:               LOCATE L_0007

  5434      radix = value
31754 @ 265357:               LINE   5434 "regression-compile-tmp/imp22g-77.imp"
31755 @ 265397:               PUSH   RADIX
31756 @ 265400:               PUSH   VALUE
31757 @ 265403:               ASSVAL

  5435      %result = dud %if radix = 0
31758 @ 265404:               LINE   5435 "regression-compile-tmp/imp22g-77.imp"
31759 @ 265444:               PUSH   RADIX
31760 @ 265447:               PUSHI  #0x00000000
31761 @ 265452:               JUMPIF # L_0007
31762 @ 265456:               PUSHI  #0x0000003f
31763 @ 265461:               RESULT
31764 @ 265462:               LOCATE L_0007

  5436      value = 0
31765 @ 265465:               LINE   5436 "regression-compile-tmp/imp22g-77.imp"
31766 @ 265505:               PUSH   VALUE
31767 @ 265508:               PUSHI  #0x00000000
31768 @ 265513:               ASSVAL

  5437    %repeat
31769 @ 265514:               LINE   5437 "regression-compile-tmp/imp22g-77.imp"
31770 @ 265554:               REPEAT L_0003
31771 @ 265557:               LOCATE L_0004

  5438    %if item < 0 %start;  !IBM-style
31772 @ 265560:               LINE   5438 "regression-compile-tmp/imp22g-77.imp"
31773 @ 265600:               PUSH   ITEM
31774 @ 265603:               PUSHI  #0x00000000
31775 @ 265608:               JUMPIF >= L_0004

  5439      %result = dud %if sym # ''''
31776 @ 265612:               LINE   5439 "regression-compile-tmp/imp22g-77.imp"
31777 @ 265652:               PUSH   SYM
31778 @ 265655:               PUSHI  #0x00000027
31779 @ 265660:               JUMPIF = L_0007
31780 @ 265664:               PUSHI  #0x0000003f
31781 @ 265669:               RESULT
31782 @ 265670:               LOCATE L_0007

  5440      item = 0
31783 @ 265673:               LINE   5440 "regression-compile-tmp/imp22g-77.imp"
31784 @ 265713:               PUSH   ITEM
31785 @ 265716:               PUSHI  #0x00000000
31786 @ 265721:               ASSVAL

  5441    %else
31787 @ 265722:               LINE   5441 "regression-compile-tmp/imp22g-77.imp"
31788 @ 265762:               GOTO   L_0003
31789 @ 265765:               LOCATE L_0004

  5442      j = 0
31790 @ 265768:               LINE   5442 "regression-compile-tmp/imp22g-77.imp"
31791 @ 265808:               PUSH   J
31792 @ 265811:               PUSHI  #0x00000000
31793 @ 265816:               ASSVAL

  5443      %if sym = '.' %start
31794 @ 265817:               LINE   5443 "regression-compile-tmp/imp22g-77.imp"
31795 @ 265857:               PUSH   SYM
31796 @ 265860:               PUSHI  #0x0000002e
31797 @ 265865:               JUMPIF # L_0007

  5444        rval = value %if type = inttype
31798 @ 265869:               LINE   5444 "regression-compile-tmp/imp22g-77.imp"
31799 @ 265909:               PUSH   TYPE
31800 @ 265912:               PUSHI  #0x0000002b
31801 @ 265917:               JUMPIF # L_000a
31802 @ 265921:               PUSH   RVAL
31803 @ 265924:               PUSH   VALUE
31804 @ 265927:               ASSVAL
31805 @ 265928:               LOCATE L_000a

  5445  fraction:
31806 @ 265931:               LINE   5445 "regression-compile-tmp/imp22g-77.imp"
31807 @ 265971:               LABEL  L_016f

  5446        j = 0
31808 @ 265974:               LINE   5446 "regression-compile-tmp/imp22g-77.imp"
31809 @ 266014:               PUSH   J
31810 @ 266017:               PUSHI  #0x00000000
31811 @ 266022:               ASSVAL

  5447        type = realtype
31812 @ 266023:               LINE   5447 "regression-compile-tmp/imp22g-77.imp"
31813 @ 266063:               PUSH   TYPE
31814 @ 266066:               PUSHI  #0x00000045
31815 @ 266071:               ASSVAL

  5448        %cycle
31816 @ 266072:               LINE   5448 "regression-compile-tmp/imp22g-77.imp"
31817 @ 266112:               LOCATE L_0009

  5449          get sym
31818 @ 266115:               LINE   5449 "regression-compile-tmp/imp22g-77.imp"
31819 @ 266155:               PUSH   GETSYM
31820 @ 266158:               CALL  

  5450          %exit %unless 0 <= i < radix
31821 @ 266159:               LINE   5450 "regression-compile-tmp/imp22g-77.imp"
31822 @ 266199:               PUSHI  #0x00000000
31823 @ 266204:               PUSH   I
31824 @ 266207:               JUMPIFD > L_000e
31825 @ 266211:               PUSH   RADIX
31826 @ 266214:               JUMPIF < L_000d
31827 @ 266218:               LOCATE L_000e
31828 @ 266221:               GOTO   L_000a
31829 @ 266224:               LOCATE L_000d

  5451          rval = rval*radix+i;  j = j-1
31830 @ 266227:               LINE   5451 "regression-compile-tmp/imp22g-77.imp"
31831 @ 266267:               PUSH   RVAL
31832 @ 266270:               PUSH   RVAL
31833 @ 266273:               PUSH   RADIX
31834 @ 266276:               MUL   
31835 @ 266277:               PUSH   I
31836 @ 266280:               ADD   
31837 @ 266281:               ASSVAL
31838 @ 266282:               LINE   5451 "regression-compile-tmp/imp22g-77.imp"
31839 @ 266322:               PUSH   J
31840 @ 266325:               PUSH   J
31841 @ 266328:               PUSHI  #0x00000001
31842 @ 266333:               SUB   
31843 @ 266334:               ASSVAL

  5452        %repeat
31844 @ 266335:               LINE   5452 "regression-compile-tmp/imp22g-77.imp"
31845 @ 266375:               REPEAT L_0009
31846 @ 266378:               LOCATE L_000a

  5453        %result = dud %if j = 0
31847 @ 266381:               LINE   5453 "regression-compile-tmp/imp22g-77.imp"
31848 @ 266421:               PUSH   J
31849 @ 266424:               PUSHI  #0x00000000
31850 @ 266429:               JUMPIF # L_000a
31851 @ 266433:               PUSHI  #0x0000003f
31852 @ 266438:               RESULT
31853 @ 266439:               LOCATE L_000a

  5454      %finish
31854 @ 266442:               LINE   5454 "regression-compile-tmp/imp22g-77.imp"
31855 @ 266482:               LOCATE L_0007

  5455      %if sym = '@' %start
31856 @ 266485:               LINE   5455 "regression-compile-tmp/imp22g-77.imp"
31857 @ 266525:               PUSH   SYM
31858 @ 266528:               PUSHI  #0x00000040
31859 @ 266533:               JUMPIF # L_0007

  5456        type = realtype %and rval = value %if type = inttype
31860 @ 266537:               LINE   5456 "regression-compile-tmp/imp22g-77.imp"
31861 @ 266577:               PUSH   TYPE
31862 @ 266580:               PUSHI  #0x0000002b
31863 @ 266585:               JUMPIF # L_000a
31864 @ 266589:               PUSH   TYPE
31865 @ 266592:               PUSHI  #0x00000045
31866 @ 266597:               ASSVAL
31867 @ 266598:               PUSH   RVAL
31868 @ 266601:               PUSH   VALUE
31869 @ 266604:               ASSVAL
31870 @ 266605:               LOCATE L_000a

  5457        get sym
31871 @ 266608:               LINE   5457 "regression-compile-tmp/imp22g-77.imp"
31872 @ 266648:               PUSH   GETSYM
31873 @ 266651:               CALL  

  5458        value = 0
31874 @ 266652:               LINE   5458 "regression-compile-tmp/imp22g-77.imp"
31875 @ 266692:               PUSH   VALUE
31876 @ 266695:               PUSHI  #0x00000000
31877 @ 266700:               ASSVAL

  5459        %if sym = '+' %then get sym %c
  5460        %else %if sym = '-' %then value = 1 %and get sym
31878 @ 266701:               LINE   5459 "regression-compile-tmp/imp22g-77.imp"
31879 @ 266741:               PUSH   SYM
31880 @ 266744:               PUSHI  #0x0000002b
31881 @ 266749:               JUMPIF # L_000a
31882 @ 266753:               PUSH   GETSYM
31883 @ 266756:               CALL  
31884 @ 266757:               GOTO   L_0009
31885 @ 266760:               LOCATE L_000a
31886 @ 266763:               PUSH   SYM
31887 @ 266766:               PUSHI  #0x0000002d
31888 @ 266771:               JUMPIF # L_000a
31889 @ 266775:               PUSH   VALUE
31890 @ 266778:               PUSHI  #0x00000001
31891 @ 266783:               ASSVAL
31892 @ 266784:               PUSH   GETSYM
31893 @ 266787:               CALL  
31894 @ 266788:               LOCATE L_000a
31895 @ 266791:               LOCATE L_0009

  5461        %result = dud %unless 0 <= i < radix
31896 @ 266794:               LINE   5461 "regression-compile-tmp/imp22g-77.imp"
31897 @ 266834:               PUSHI  #0x00000000
31898 @ 266839:               PUSH   I
31899 @ 266842:               JUMPIFD > L_000b
31900 @ 266846:               PUSH   RADIX
31901 @ 266849:               JUMPIF < L_000a
31902 @ 266853:               LOCATE L_000b
31903 @ 266856:               PUSHI  #0x0000003f
31904 @ 266861:               RESULT
31905 @ 266862:               LOCATE L_000a

  5462        p = 0
31906 @ 266865:               LINE   5462 "regression-compile-tmp/imp22g-77.imp"
31907 @ 266905:               PUSH   P
31908 @ 266908:               PUSHI  #0x00000000
31909 @ 266913:               ASSVAL

  5463        %cycle
31910 @ 266914:               LINE   5463 "regression-compile-tmp/imp22g-77.imp"
31911 @ 266954:               LOCATE L_0009

  5464          p = p*radix+i
31912 @ 266957:               LINE   5464 "regression-compile-tmp/imp22g-77.imp"
31913 @ 266997:               PUSH   P
31914 @ 267000:               PUSH   P
31915 @ 267003:               PUSH   RADIX
31916 @ 267006:               MUL   
31917 @ 267007:               PUSH   I
31918 @ 267010:               ADD   
31919 @ 267011:               ASSVAL

  5465          get sym
31920 @ 267012:               LINE   5465 "regression-compile-tmp/imp22g-77.imp"
31921 @ 267052:               PUSH   GETSYM
31922 @ 267055:               CALL  

  5466        %repeat %until %not 0 <= i < radix
31923 @ 267056:               LINE   5466 "regression-compile-tmp/imp22g-77.imp"
31924 @ 267096:               PUSHI  #0x00000000
31925 @ 267101:               PUSH   I
31926 @ 267104:               JUMPIFD > L_000a
31927 @ 267108:               PUSH   RADIX
31928 @ 267111:               JUMPIF >= L_000a
31929 @ 267115:               REPEAT L_0009
31930 @ 267118:               LOCATE L_000a

  5467        p = -p %if value # 0
31931 @ 267121:               LINE   5467 "regression-compile-tmp/imp22g-77.imp"
31932 @ 267161:               PUSH   VALUE
31933 @ 267164:               PUSHI  #0x00000000
31934 @ 267169:               JUMPIF = L_000a
31935 @ 267173:               PUSH   P
31936 @ 267176:               PUSH   P
31937 @ 267179:               NEGATE
31938 @ 267180:               ASSVAL
31939 @ 267181:               LOCATE L_000a

  5468        j = j+p
31940 @ 267184:               LINE   5468 "regression-compile-tmp/imp22g-77.imp"
31941 @ 267224:               PUSH   J
31942 @ 267227:               PUSH   J
31943 @ 267230:               PUSH   P
31944 @ 267233:               ADD   
31945 @ 267234:               ASSVAL

  5469      %finish
31946 @ 267235:               LINE   5469 "regression-compile-tmp/imp22g-77.imp"
31947 @ 267275:               LOCATE L_0007

  5470      %if type = realtype %start
31948 @ 267278:               LINE   5470 "regression-compile-tmp/imp22g-77.imp"
31949 @ 267318:               PUSH   TYPE
31950 @ 267321:               PUSHI  #0x00000045
31951 @ 267326:               JUMPIF # L_0007

  5471        rval = rval*radix^^j %if j # 0
31952 @ 267330:               LINE   5471 "regression-compile-tmp/imp22g-77.imp"
31953 @ 267370:               PUSH   J
31954 @ 267373:               PUSHI  #0x00000000
31955 @ 267378:               JUMPIF = L_000a
31956 @ 267382:               PUSH   RVAL
31957 @ 267385:               PUSH   RVAL
31958 @ 267388:               PUSH   RADIX
31959 @ 267391:               PUSH   J
31960 @ 267394:               IEXP  
31961 @ 267395:               MUL   
31962 @ 267396:               ASSVAL
31963 @ 267397:               LOCATE L_000a

  5472        value = integer(addr(rval)) %if type = realtype
31964 @ 267400:               LINE   5472 "regression-compile-tmp/imp22g-77.imp"
31965 @ 267440:               PUSH   TYPE
31966 @ 267443:               PUSHI  #0x00000045
31967 @ 267448:               JUMPIF # L_000a
31968 @ 267452:               PUSH   VALUE
31969 @ 267455:               PUSH   INTEGER
31970 @ 267458:               PUSH   ADDR
31971 @ 267461:               PUSH   RVAL
31972 @ 267464:               ASSPAR
31973 @ 267465:               CALL  
31974 @ 267466:               ASSPAR
31975 @ 267467:               CALL  
31976 @ 267468:               ASSVAL
31977 @ 267469:               LOCATE L_000a

  5473      %finish
31978 @ 267472:               LINE   5473 "regression-compile-tmp/imp22g-77.imp"
31979 @ 267512:               LOCATE L_0007

  5474      fp = fp-1;  sym = 0
31980 @ 267515:               LINE   5474 "regression-compile-tmp/imp22g-77.imp"
31981 @ 267555:               PUSH   FP
31982 @ 267558:               PUSH   FP
31983 @ 267561:               PUSHI  #0x00000001
31984 @ 267566:               SUB   
31985 @ 267567:               ASSVAL
31986 @ 267568:               LINE   5474 "regression-compile-tmp/imp22g-77.imp"
31987 @ 267608:               PUSH   SYM
31988 @ 267611:               PUSHI  #0x00000000
31989 @ 267616:               ASSVAL

  5475    %finish
31990 @ 267617:               LINE   5475 "regression-compile-tmp/imp22g-77.imp"
31991 @ 267657:               LOCATE L_0003

  5476    litatoms = litatoms+1
31992 @ 267660:               LINE   5476 "regression-compile-tmp/imp22g-77.imp"
31993 @ 267700:               PUSH   LITATOMS
31994 @ 267703:               PUSH   LITATOMS
31995 @ 267706:               PUSHI  #0x00000001
31996 @ 267711:               ADD   
31997 @ 267712:               ASSVAL

  5477    %result = const
  5478  
31998 @ 267713:               LINE   5477 "regression-compile-tmp/imp22g-77.imp"
31999 @ 267753:               PUSHI  #0x00000034
32000 @ 267758:               RESULT

  5479  s(''''):
32001 @ 267759:               LINE   5479 "regression-compile-tmp/imp22g-77.imp"
32002 @ 267799:               PUSHI  #0x00000027
32003 @ 267804:               SLABEL 351

  5480  charconst:
32004 @ 267807:               LINE   5480 "regression-compile-tmp/imp22g-77.imp"
32005 @ 267847:               LABEL  L_0170

  5481    item = 0;  type = inttype
32006 @ 267850:               LINE   5481 "regression-compile-tmp/imp22g-77.imp"
32007 @ 267890:               PUSH   ITEM
32008 @ 267893:               PUSHI  #0x00000000
32009 @ 267898:               ASSVAL
32010 @ 267899:               LINE   5481 "regression-compile-tmp/imp22g-77.imp"
32011 @ 267939:               PUSH   TYPE
32012 @ 267942:               PUSHI  #0x0000002b
32013 @ 267947:               ASSVAL

  5482    value = 0
32014 @ 267948:               LINE   5482 "regression-compile-tmp/imp22g-77.imp"
32015 @ 267988:               PUSH   VALUE
32016 @ 267991:               PUSHI  #0x00000000
32017 @ 267996:               ASSVAL

  5483    %cycle
32018 @ 267997:               LINE   5483 "regression-compile-tmp/imp22g-77.imp"
32019 @ 268037:               LOCATE L_0003

  5484      sym = byteintegeR(fp);  fp = fp+1
32020 @ 268040:               LINE   5484 "regression-compile-tmp/imp22g-77.imp"
32021 @ 268080:               PUSH   SYM
32022 @ 268083:               PUSH   BYTEINTEGER
32023 @ 268086:               PUSH   FP
32024 @ 268089:               ASSPAR
32025 @ 268090:               CALL  
32026 @ 268091:               ASSVAL
32027 @ 268092:               LINE   5484 "regression-compile-tmp/imp22g-77.imp"
32028 @ 268132:               PUSH   FP
32029 @ 268135:               PUSH   FP
32030 @ 268138:               PUSHI  #0x00000001
32031 @ 268143:               ADD   
32032 @ 268144:               ASSVAL

  5485      %result = dud %if sym = nl;  !?allow
32033 @ 268145:               LINE   5485 "regression-compile-tmp/imp22g-77.imp"
32034 @ 268185:               PUSH   SYM
32035 @ 268188:               PUSHI  #0x0000000a
32036 @ 268193:               JUMPIF # L_0007
32037 @ 268197:               PUSHI  #0x0000003f
32038 @ 268202:               RESULT
32039 @ 268203:               LOCATE L_0007

  5486      %if sym = '''' %start
32040 @ 268206:               LINE   5486 "regression-compile-tmp/imp22g-77.imp"
32041 @ 268246:               PUSH   SYM
32042 @ 268249:               PUSHI  #0x00000027
32043 @ 268254:               JUMPIF # L_0007

  5487        %exit %unless byteintegeR(fp) = ''''
32044 @ 268258:               LINE   5487 "regression-compile-tmp/imp22g-77.imp"
32045 @ 268298:               PUSH   BYTEINTEGER
32046 @ 268301:               PUSH   FP
32047 @ 268304:               ASSPAR
32048 @ 268305:               CALL  
32049 @ 268306:               PUSHI  #0x00000027
32050 @ 268311:               JUMPIF = L_000a
32051 @ 268315:               GOTO   L_0004
32052 @ 268318:               LOCATE L_000a

  5488        fp = fp+1
32053 @ 268321:               LINE   5488 "regression-compile-tmp/imp22g-77.imp"
32054 @ 268361:               PUSH   FP
32055 @ 268364:               PUSH   FP
32056 @ 268367:               PUSHI  #0x00000001
32057 @ 268372:               ADD   
32058 @ 268373:               ASSVAL

  5489      %finish
32059 @ 268374:               LINE   5489 "regression-compile-tmp/imp22g-77.imp"
32060 @ 268414:               LOCATE L_0007

  5490      value = value<<8+sym
32061 @ 268417:               LINE   5490 "regression-compile-tmp/imp22g-77.imp"
32062 @ 268457:               PUSH   VALUE
32063 @ 268460:               PUSH   VALUE
32064 @ 268463:               PUSHI  #0x00000008
32065 @ 268468:               LSH   
32066 @ 268469:               PUSH   SYM
32067 @ 268472:               ADD   
32068 @ 268473:               ASSVAL

  5491    %repeat
32069 @ 268474:               LINE   5491 "regression-compile-tmp/imp22g-77.imp"
32070 @ 268514:               REPEAT L_0003
32071 @ 268517:               LOCATE L_0004

  5492    %result = const %if value # 0
32072 @ 268520:               LINE   5492 "regression-compile-tmp/imp22g-77.imp"
32073 @ 268560:               PUSH   VALUE
32074 @ 268563:               PUSHI  #0x00000000
32075 @ 268568:               JUMPIF = L_0004
32076 @ 268572:               PUSHI  #0x00000034
32077 @ 268577:               RESULT
32078 @ 268578:               LOCATE L_0004

  5493    %result = dud
  5494  
32079 @ 268581:               LINE   5493 "regression-compile-tmp/imp22g-77.imp"
32080 @ 268621:               PUSHI  #0x0000003f
32081 @ 268626:               RESULT

  5495  s('"'):
32082 @ 268627:               LINE   5495 "regression-compile-tmp/imp22g-77.imp"
32083 @ 268667:               PUSHI  #0x00000022
32084 @ 268672:               SLABEL 351

  5496    item = 0
32085 @ 268675:               LINE   5496 "regression-compile-tmp/imp22g-77.imp"
32086 @ 268715:               PUSH   ITEM
32087 @ 268718:               PUSHI  #0x00000000
32088 @ 268723:               ASSVAL

  5497    value = cad;  type = stringtype
32089 @ 268724:               LINE   5497 "regression-compile-tmp/imp22g-77.imp"
32090 @ 268764:               PUSH   VALUE
32091 @ 268767:               PUSH   CAD
32092 @ 268770:               ASSVAL
32093 @ 268771:               LINE   5497 "regression-compile-tmp/imp22g-77.imp"
32094 @ 268811:               PUSH   TYPE
32095 @ 268814:               PUSHI  #0x00000040
32096 @ 268819:               ASSVAL

  5498    i = line;  j = linestart;  p = 0
32097 @ 268820:               LINE   5498 "regression-compile-tmp/imp22g-77.imp"
32098 @ 268860:               PUSH   I
32099 @ 268863:               PUSH   LINE
32100 @ 268866:               ASSVAL
32101 @ 268867:               LINE   5498 "regression-compile-tmp/imp22g-77.imp"
32102 @ 268907:               PUSH   J
32103 @ 268910:               PUSH   LINESTART
32104 @ 268913:               ASSVAL
32105 @ 268914:               LINE   5498 "regression-compile-tmp/imp22g-77.imp"
32106 @ 268954:               PUSH   P
32107 @ 268957:               PUSHI  #0x00000000
32108 @ 268962:               ASSVAL

  5499    %cycle
32109 @ 268963:               LINE   5499 "regression-compile-tmp/imp22g-77.imp"
32110 @ 269003:               LOCATE L_0003

  5500      sym = byteintegeR(fp);  fp = fp+1
32111 @ 269006:               LINE   5500 "regression-compile-tmp/imp22g-77.imp"
32112 @ 269046:               PUSH   SYM
32113 @ 269049:               PUSH   BYTEINTEGER
32114 @ 269052:               PUSH   FP
32115 @ 269055:               ASSPAR
32116 @ 269056:               CALL  
32117 @ 269057:               ASSVAL
32118 @ 269058:               LINE   5500 "regression-compile-tmp/imp22g-77.imp"
32119 @ 269098:               PUSH   FP
32120 @ 269101:               PUSH   FP
32121 @ 269104:               PUSHI  #0x00000001
32122 @ 269109:               ADD   
32123 @ 269110:               ASSVAL

  5501      %if sym = '"' %start
32124 @ 269111:               LINE   5501 "regression-compile-tmp/imp22g-77.imp"
32125 @ 269151:               PUSH   SYM
32126 @ 269154:               PUSHI  #0x00000022
32127 @ 269159:               JUMPIF # L_0007

  5502        %exit %if byteintegeR(fp) # '"'
32128 @ 269163:               LINE   5502 "regression-compile-tmp/imp22g-77.imp"
32129 @ 269203:               PUSH   BYTEINTEGER
32130 @ 269206:               PUSH   FP
32131 @ 269209:               ASSPAR
32132 @ 269210:               CALL  
32133 @ 269211:               PUSHI  #0x00000022
32134 @ 269216:               JUMPIF = L_000a
32135 @ 269220:               GOTO   L_0004
32136 @ 269223:               LOCATE L_000a

  5503        fp = fp+1
32137 @ 269226:               LINE   5503 "regression-compile-tmp/imp22g-77.imp"
32138 @ 269266:               PUSH   FP
32139 @ 269269:               PUSH   FP
32140 @ 269272:               PUSHI  #0x00000001
32141 @ 269277:               ADD   
32142 @ 269278:               ASSVAL

  5504      %finish
32143 @ 269279:               LINE   5504 "regression-compile-tmp/imp22g-77.imp"
32144 @ 269319:               LOCATE L_0007

  5505      p = p+1
32145 @ 269322:               LINE   5505 "regression-compile-tmp/imp22g-77.imp"
32146 @ 269362:               PUSH   P
32147 @ 269365:               PUSH   P
32148 @ 269368:               PUSHI  #0x00000001
32149 @ 269373:               ADD   
32150 @ 269374:               ASSVAL

  5506      %if p > 255 %start
32151 @ 269375:               LINE   5506 "regression-compile-tmp/imp22g-77.imp"
32152 @ 269415:               PUSH   P
32153 @ 269418:               PUSHI  #0x000000ff
32154 @ 269423:               JUMPIF <= L_0007

  5507        sym = 0
32155 @ 269427:               LINE   5507 "regression-compile-tmp/imp22g-77.imp"
32156 @ 269467:               PUSH   SYM
32157 @ 269470:               PUSHI  #0x00000000
32158 @ 269475:               ASSVAL

  5508        fp = atomp;  linestart = j
32159 @ 269476:               LINE   5508 "regression-compile-tmp/imp22g-77.imp"
32160 @ 269516:               PUSH   FP
32161 @ 269519:               PUSH   ATOMP
32162 @ 269522:               ASSVAL
32163 @ 269523:               LINE   5508 "regression-compile-tmp/imp22g-77.imp"
32164 @ 269563:               PUSH   LINESTART
32165 @ 269566:               PUSH   J
32166 @ 269569:               ASSVAL

  5509        %result = dud
32167 @ 269570:               LINE   5509 "regression-compile-tmp/imp22g-77.imp"
32168 @ 269610:               PUSHI  #0x0000003f
32169 @ 269615:               RESULT

  5510      %finish
32170 @ 269616:               LINE   5510 "regression-compile-tmp/imp22g-77.imp"
32171 @ 269656:               LOCATE L_0007

  5511      final(value+p) = sym
32172 @ 269659:               LINE   5511 "regression-compile-tmp/imp22g-77.imp"
32173 @ 269699:               PUSH   FINAL
32174 @ 269702:               PUSH   VALUE
32175 @ 269705:               PUSH   P
32176 @ 269708:               ADD   
32177 @ 269709:               ACCESS
32178 @ 269710:               PUSH   SYM
32179 @ 269713:               ASSVAL

  5512      read line('"') %if sym = nl
32180 @ 269714:               LINE   5512 "regression-compile-tmp/imp22g-77.imp"
32181 @ 269754:               PUSH   SYM
32182 @ 269757:               PUSHI  #0x0000000a
32183 @ 269762:               JUMPIF # L_0007
32184 @ 269766:               PUSH   READLINE
32185 @ 269769:               PUSHI  #0x00000022
32186 @ 269774:               ASSPAR
32187 @ 269775:               CALL  
32188 @ 269776:               LOCATE L_0007

  5513    %repeat
32189 @ 269779:               LINE   5513 "regression-compile-tmp/imp22g-77.imp"
32190 @ 269819:               REPEAT L_0003
32191 @ 269822:               LOCATE L_0004

  5514    %if p # 0 %start;  !not empty string
32192 @ 269825:               LINE   5514 "regression-compile-tmp/imp22g-77.imp"
32193 @ 269865:               PUSH   P
32194 @ 269868:               PUSHI  #0x00000000
32195 @ 269873:               JUMPIF = L_0004

  5515      final(value) = p
32196 @ 269877:               LINE   5515 "regression-compile-tmp/imp22g-77.imp"
32197 @ 269917:               PUSH   FINAL
32198 @ 269920:               PUSH   VALUE
32199 @ 269923:               ACCESS
32200 @ 269924:               PUSH   P
32201 @ 269927:               ASSVAL

  5516      cad = cad+(p+1)
32202 @ 269928:               LINE   5516 "regression-compile-tmp/imp22g-77.imp"
32203 @ 269968:               PUSH   CAD
32204 @ 269971:               PUSH   CAD
32205 @ 269974:               PUSH   P
32206 @ 269977:               PUSHI  #0x00000001
32207 @ 269982:               ADD   
32208 @ 269983:               ADD   
32209 @ 269984:               ASSVAL

  5517    %finish %else value = 0
32210 @ 269985:               LINE   5517 "regression-compile-tmp/imp22g-77.imp"
32211 @ 270025:               GOTO   L_0003
32212 @ 270028:               LOCATE L_0004
32213 @ 270031:               PUSH   VALUE
32214 @ 270034:               PUSHI  #0x00000000
32215 @ 270039:               ASSVAL
32216 @ 270040:               LOCATE L_0003

  5518    litatoms = litatoms+1
32217 @ 270043:               LINE   5518 "regression-compile-tmp/imp22g-77.imp"
32218 @ 270083:               PUSH   LITATOMS
32219 @ 270086:               PUSH   LITATOMS
32220 @ 270089:               PUSHI  #0x00000001
32221 @ 270094:               ADD   
32222 @ 270095:               ASSVAL

  5519    %result = const
  5520  
32223 @ 270096:               LINE   5519 "regression-compile-tmp/imp22g-77.imp"
32224 @ 270136:               PUSHI  #0x00000034
32225 @ 270141:               RESULT

  5521  s(*):
32226 @ 270142:               LINE   5521 "regression-compile-tmp/imp22g-77.imp"
32227 @ 270182:               DEFSW  351

  5522    %result = dud
32228 @ 270185:               LINE   5522 "regression-compile-tmp/imp22g-77.imp"
32229 @ 270225:               PUSHI  #0x0000003f
32230 @ 270230:               RESULT

  5523  %end;  !NEXT ATOM
  5524  
  5525  !<<BOTH
  5526  
32231 @ 270231:               LINE   5523 "regression-compile-tmp/imp22g-77.imp"
32232 @ 270271:            END    _lev0id0_NEXTATOM {lev=2 --> 1}

  5527  %integerfn A (%integer k)
  5528  !Basic atom-testing predicate
32233 @ 270272:            LINE   5527 "regression-compile-tmp/imp22g-77.imp"
32234 @ 270312:            DEF    A (_lev0id0_A) p1=V_015f 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
32235 @ 270325:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
32236 @ 270326:                  DEF    K p1=V_0160 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
32237 @ 270339:               FINISH ) {lev=2}

  5529    atom = next atom %if matched # 0
32238 @ 270340:               LINE   5529 "regression-compile-tmp/imp22g-77.imp"
32239 @ 270380:               PUSH   MATCHED
32240 @ 270383:               PUSHI  #0x00000000
32241 @ 270388:               JUMPIF = L_0004
32242 @ 270392:               PUSH   ATOM
32243 @ 270395:               PUSH   NEXTATOM
32244 @ 270398:               CALL  
32245 @ 270399:               ASSVAL
32246 @ 270400:               LOCATE L_0004

  5530    %result = FALSE %if k # atom
32247 @ 270403:               LINE   5530 "regression-compile-tmp/imp22g-77.imp"
32248 @ 270443:               PUSH   K
32249 @ 270446:               PUSH   ATOM
32250 @ 270449:               JUMPIF = L_0004
32251 @ 270453:               PUSHI  #0x00000000
32252 @ 270458:               RESULT
32253 @ 270459:               LOCATE L_0004

  5531    matched = 1
32254 @ 270462:               LINE   5531 "regression-compile-tmp/imp22g-77.imp"
32255 @ 270502:               PUSH   MATCHED
32256 @ 270505:               PUSHI  #0x00000001
32257 @ 270510:               ASSVAL

  5532    %result = TRUE
32258 @ 270511:               LINE   5532 "regression-compile-tmp/imp22g-77.imp"
32259 @ 270551:               PUSHI  #0x00000001
32260 @ 270556:               RESULT

  5533  %end
  5534  
32261 @ 270557:               LINE   5533 "regression-compile-tmp/imp22g-77.imp"
32262 @ 270597:            END    _lev0id0_A {lev=2 --> 1}

  5535  %routine GET(%integer k)
32263 @ 270598:            LINE   5535 "regression-compile-tmp/imp22g-77.imp"
32264 @ 270638:            DEF    GET (_lev0id0_GET) p1=V_0160 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
32265 @ 270653:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
32266 @ 270654:                  DEF    K p1=V_0161 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
32267 @ 270667:               FINISH ) {lev=2}

  5536    atom = next atom %if matched # 0
32268 @ 270668:               LINE   5536 "regression-compile-tmp/imp22g-77.imp"
32269 @ 270708:               PUSH   MATCHED
32270 @ 270711:               PUSHI  #0x00000000
32271 @ 270716:               JUMPIF = L_0004
32272 @ 270720:               PUSH   ATOM
32273 @ 270723:               PUSH   NEXTATOM
32274 @ 270726:               CALL  
32275 @ 270727:               ASSVAL
32276 @ 270728:               LOCATE L_0004

  5537    matched = 1
32277 @ 270731:               LINE   5537 "regression-compile-tmp/imp22g-77.imp"
32278 @ 270771:               PUSH   MATCHED
32279 @ 270774:               PUSHI  #0x00000001
32280 @ 270779:               ASSVAL

  5538    %return %if atom = k
32281 @ 270780:               LINE   5538 "regression-compile-tmp/imp22g-77.imp"
32282 @ 270820:               PUSH   ATOM
32283 @ 270823:               PUSH   K
32284 @ 270826:               JUMPIF # L_0004
32285 @ 270830:               RETURN
32286 @ 270831:               LOCATE L_0004

  5539    syntax error { %if atom = dud
  5540  !  faultp = atomp
  5541  !  report(formerr+point,-k,0)
  5542  !  %signal fail
32287 @ 270834:               LINE   5539 "regression-compile-tmp/imp22g-77.imp"
32288 @ 270874:               PUSH   SYNTAXERROR
32289 @ 270877:               CALL  

  5543  %end
  5544  
  5545  !<<IMP
  5546  
32290 @ 270878:               LINE   5543 "regression-compile-tmp/imp22g-77.imp"
32291 @ 270918:            END    _lev0id0_GET {lev=2 --> 1}

  5547  %routine ALLOW(%integer k)
32292 @ 270919:            LINE   5547 "regression-compile-tmp/imp22g-77.imp"
32293 @ 270959:            DEF    ALLOW (_lev0id0_ALLOW) p1=V_0161 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
32294 @ 270976:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
32295 @ 270977:                  DEF    K p1=V_0162 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
32296 @ 270990:               FINISH ) {lev=2}

  5548    %if a(k)=TRUE %start
32297 @ 270991:               LINE   5548 "regression-compile-tmp/imp22g-77.imp"
32298 @ 271031:               PUSH   A
32299 @ 271034:               PUSH   K
32300 @ 271037:               ASSPAR
32301 @ 271038:               CALL  
32302 @ 271039:               PUSHI  #0x00000001
32303 @ 271044:               JUMPIF # L_0004

  5549    %finish
32304 @ 271048:               LINE   5549 "regression-compile-tmp/imp22g-77.imp"
32305 @ 271088:               LOCATE L_0004

  5550  %end
  5551  
32306 @ 271091:               LINE   5550 "regression-compile-tmp/imp22g-77.imp"
32307 @ 271131:            END    _lev0id0_ALLOW {lev=2 --> 1}

  5552  %routine GET LITSTRING
32308 @ 271132:            LINE   5552 "regression-compile-tmp/imp22g-77.imp"
32309 @ 271172:            DEF    GETLITSTRING (_lev0id0_GETLITSTRING) p1=V_0162 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
32310 @ 271196:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
32311 @ 271197:               FINISH ) {lev=2}

  5553  %integer holditem
  5554  !Must be quoted string (for %alias and %include)
32312 @ 271198:               LINE   5553 "regression-compile-tmp/imp22g-77.imp"
32313 @ 271238:               DEF    HOLDITEM p1=V_0163 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  5555    holditem = item;  !preserve
32314 @ 271258:               LINE   5555 "regression-compile-tmp/imp22g-77.imp"
32315 @ 271298:               PUSH   HOLDITEM
32316 @ 271301:               PUSH   ITEM
32317 @ 271304:               ASSVAL

  5556    get(const)
32318 @ 271305:               LINE   5556 "regression-compile-tmp/imp22g-77.imp"
32319 @ 271345:               PUSH   GET
32320 @ 271348:               PUSHI  #0x00000034
32321 @ 271353:               ASSPAR
32322 @ 271354:               CALL  

  5557    error(typerr+point) %unless type = stringtype
32323 @ 271355:               LINE   5557 "regression-compile-tmp/imp22g-77.imp"
32324 @ 271395:               PUSH   TYPE
32325 @ 271398:               PUSHI  #0x00000040
32326 @ 271403:               JUMPIF = L_0004
32327 @ 271407:               PUSH   ERROR
32328 @ 271410:               PUSHI  #0x0000000c
32329 @ 271415:               PUSHI  #0x00000040
32330 @ 271420:               ADD   
32331 @ 271421:               ASSPAR
32332 @ 271422:               CALL  
32333 @ 271423:               LOCATE L_0004

  5558    cad = value;  !reset
32334 @ 271426:               LINE   5558 "regression-compile-tmp/imp22g-77.imp"
32335 @ 271466:               PUSH   CAD
32336 @ 271469:               PUSH   VALUE
32337 @ 271472:               ASSVAL

  5559    item = holditem;  !restore
32338 @ 271473:               LINE   5559 "regression-compile-tmp/imp22g-77.imp"
32339 @ 271513:               PUSH   ITEM
32340 @ 271516:               PUSH   HOLDITEM
32341 @ 271519:               ASSVAL

  5560  %end
  5561  
  5562  !<<BOTH
  5563  
32342 @ 271520:               LINE   5560 "regression-compile-tmp/imp22g-77.imp"
32343 @ 271560:            END    _lev0id0_GETLITSTRING {lev=2 --> 1}

  5564  %integer%fn IDTEXT(%integer f)
32344 @ 271561:            LINE   5564 "regression-compile-tmp/imp22g-77.imp"
32345 @ 271601:            DEF    IDTEXT (_lev0id0_IDTEXT) p1=V_0163 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
32346 @ 271619:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
32347 @ 271620:                  DEF    F p1=V_0164 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
32348 @ 271633:               FINISH ) {lev=2}

  5565  %integer k
32349 @ 271634:               LINE   5565 "regression-compile-tmp/imp22g-77.imp"
32350 @ 271674:               DEF    K p1=V_0165 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  5566    %result = ditem_text %if item > 0 %and f&ext = 0;  !already exists
32351 @ 271687:               LINE   5566 "regression-compile-tmp/imp22g-77.imp"
32352 @ 271727:               PUSH   ITEM
32353 @ 271730:               PUSHI  #0x00000000
32354 @ 271735:               JUMPIF <= L_0004
32355 @ 271739:               PUSH   F
32356 @ 271742:               PUSHI  #0x00004000
32357 @ 271747:               AND   
32358 @ 271748:               PUSHI  #0x00000000
32359 @ 271753:               JUMPIF # L_0004
32360 @ 271757:               PUSH   DITEM
32361 @ 271760:               SELECT 11
32362 @ 271763:               RESULT
32363 @ 271764:               LOCATE L_0004

  5567    charlim = charlim+newlen+1
32364 @ 271767:               LINE   5567 "regression-compile-tmp/imp22g-77.imp"
32365 @ 271807:               PUSH   CHARLIM
32366 @ 271810:               PUSH   CHARLIM
32367 @ 271813:               PUSH   NEWLEN
32368 @ 271816:               ADD   
32369 @ 271817:               PUSHI  #0x00000001
32370 @ 271822:               ADD   
32371 @ 271823:               ASSVAL

  5568    croak("Identifier space exhausted") %if charlim+80 >= charmin
32372 @ 271824:               LINE   5568 "regression-compile-tmp/imp22g-77.imp"
32373 @ 271864:               PUSH   CHARLIM
32374 @ 271867:               PUSHI  #0x00000050
32375 @ 271872:               ADD   
32376 @ 271873:               PUSH   CHARMIN
32377 @ 271876:               JUMPIF < L_0004
32378 @ 271880:               PUSH   CROAK
32379 @ 271883:               PUSHS  "Identifier space exhausted"
32380 @ 271911:               ASSPAR
32381 @ 271912:               CALL  
32382 @ 271913:               LOCATE L_0004

  5569    k = charlim-newlen-1-char0
32383 @ 271916:               LINE   5569 "regression-compile-tmp/imp22g-77.imp"
32384 @ 271956:               PUSH   K
32385 @ 271959:               PUSH   CHARLIM
32386 @ 271962:               PUSH   NEWLEN
32387 @ 271965:               SUB   
32388 @ 271966:               PUSHI  #0x00000001
32389 @ 271971:               SUB   
32390 @ 271972:               PUSH   CHAR0
32391 @ 271975:               SUB   
32392 @ 271976:               ASSVAL

  5570    %if f&ext # 0 %and a(keyalias)=TRUE %start
32393 @ 271977:               LINE   5570 "regression-compile-tmp/imp22g-77.imp"
32394 @ 272017:               PUSH   F
32395 @ 272020:               PUSHI  #0x00004000
32396 @ 272025:               AND   
32397 @ 272026:               PUSHI  #0x00000000
32398 @ 272031:               JUMPIF = L_0004
32399 @ 272035:               PUSH   A
32400 @ 272038:               PUSHI  #0x00000031
32401 @ 272043:               ASSPAR
32402 @ 272044:               CALL  
32403 @ 272045:               PUSHI  #0x00000001
32404 @ 272050:               JUMPIF # L_0004

  5571      get LITSTRING
32405 @ 272054:               LINE   5571 "regression-compile-tmp/imp22g-77.imp"
32406 @ 272094:               PUSH   GETLITSTRING
32407 @ 272097:               CALL  

  5572      string(charlim) = string(final0+value)
32408 @ 272098:               LINE   5572 "regression-compile-tmp/imp22g-77.imp"
32409 @ 272138:               PUSH   STRING
32410 @ 272141:               PUSH   CHARLIM
32411 @ 272144:               ASSPAR
32412 @ 272145:               CALL  
32413 @ 272146:               PUSH   STRING
32414 @ 272149:               PUSH   FINAL0
32415 @ 272152:               PUSH   VALUE
32416 @ 272155:               ADD   
32417 @ 272156:               ASSPAR
32418 @ 272157:               CALL  
32419 @ 272158:               ASSVAL

  5573      byteinteger(charlim) = byteinteger(charlim)+128
32420 @ 272159:               LINE   5573 "regression-compile-tmp/imp22g-77.imp"
32421 @ 272199:               PUSH   BYTEINTEGER
32422 @ 272202:               PUSH   CHARLIM
32423 @ 272205:               ASSPAR
32424 @ 272206:               CALL  
32425 @ 272207:               PUSH   BYTEINTEGER
32426 @ 272210:               PUSH   CHARLIM
32427 @ 272213:               ASSPAR
32428 @ 272214:               CALL  
32429 @ 272215:               PUSHI  #0x00000080
32430 @ 272220:               ADD   
32431 @ 272221:               ASSVAL

  5574      charlim = charlim+byteinteger(charlim)-127
32432 @ 272222:               LINE   5574 "regression-compile-tmp/imp22g-77.imp"
32433 @ 272262:               PUSH   CHARLIM
32434 @ 272265:               PUSH   CHARLIM
32435 @ 272268:               PUSH   BYTEINTEGER
32436 @ 272271:               PUSH   CHARLIM
32437 @ 272274:               ASSPAR
32438 @ 272275:               CALL  
32439 @ 272276:               ADD   
32440 @ 272277:               PUSHI  #0x0000007f
32441 @ 272282:               SUB   
32442 @ 272283:               ASSVAL

  5575    %finish
32443 @ 272284:               LINE   5575 "regression-compile-tmp/imp22g-77.imp"
32444 @ 272324:               LOCATE L_0004

  5576    %result = k
32445 @ 272327:               LINE   5576 "regression-compile-tmp/imp22g-77.imp"
32446 @ 272367:               PUSH   K
32447 @ 272370:               RESULT

  5577  %end
  5578  
32448 @ 272371:               LINE   5577 "regression-compile-tmp/imp22g-77.imp"
32449 @ 272411:            END    _lev0id0_IDTEXT {lev=2 --> 1}

  5579  %record(objinfo)%map DETAILS(%integer f,t,m,v)
32450 @ 272412:            LINE   5579 "regression-compile-tmp/imp22g-77.imp"
32451 @ 272452:            DEF    DETAILS (_lev0id0_DETAILS) p1=V_0164 a/tf=49 b/format=9a c/ostate=0  type=4 (record) form=9 (map) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
32452 @ 272471:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
32453 @ 272472:                  DEF    F p1=V_0165 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
32454 @ 272485:                  DEF    T p1=V_0166 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
32455 @ 272498:                  DEF    M p1=V_0167 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
32456 @ 272511:                  DEF    V p1=V_0168 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
32457 @ 272524:               FINISH ) {lev=2}

  5580  %ownrecord(objinfo) D=0
32458 @ 272525:               LINE   5580 "regression-compile-tmp/imp22g-77.imp"
32459 @ 272565:               PUSHI  #0x00000000
32460 @ 272570:               DEF    D p1=V_0169 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
32461 @ 272583:               INIT   1

  5581    d_flags = f;  d_type = t
32462 @ 272586:               LINE   5581 "regression-compile-tmp/imp22g-77.imp"
32463 @ 272626:               PUSH   D
32464 @ 272629:               SELECT 1
32465 @ 272632:               PUSH   F
32466 @ 272635:               ASSVAL
32467 @ 272636:               LINE   5581 "regression-compile-tmp/imp22g-77.imp"
32468 @ 272676:               PUSH   D
32469 @ 272679:               SELECT 2
32470 @ 272682:               PUSH   T
32471 @ 272685:               ASSVAL

  5582    d_mode = m;  d_val = v
32472 @ 272686:               LINE   5582 "regression-compile-tmp/imp22g-77.imp"
32473 @ 272726:               PUSH   D
32474 @ 272729:               SELECT 8
32475 @ 272732:               PUSH   M
32476 @ 272735:               ASSVAL
32477 @ 272736:               LINE   5582 "regression-compile-tmp/imp22g-77.imp"
32478 @ 272776:               PUSH   D
32479 @ 272779:               SELECT 9
32480 @ 272782:               PUSH   V
32481 @ 272785:               ASSVAL

  5583    %result == d
32482 @ 272786:               LINE   5583 "regression-compile-tmp/imp22g-77.imp"
32483 @ 272826:               PUSH   D
32484 @ 272829:               MAP   

  5584  %end
  5585  
32485 @ 272830:               LINE   5584 "regression-compile-tmp/imp22g-77.imp"
32486 @ 272870:            END    _lev0id0_DETAILS {lev=2 --> 1}

  5586  %routine DECLARE(%record(objinfo)%name d)
32487 @ 272871:            LINE   5586 "regression-compile-tmp/imp22g-77.imp"
32488 @ 272911:            DEF    DECLARE (_lev0id0_DECLARE) p1=V_0165 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
32489 @ 272930:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
32490 @ 272931:                  DEF    D p1=V_0166 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
32491 @ 272944:               FINISH ) {lev=2}

  5587  %integer i
32492 @ 272945:               LINE   5587 "regression-compile-tmp/imp22g-77.imp"
32493 @ 272985:               DEF    I p1=V_0167 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  5588  %record(identinfo)%name dp
32494 @ 272998:               LINE   5588 "regression-compile-tmp/imp22g-77.imp"
32495 @ 273038:               DEF    DP p1=V_0168 a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  5589    dp == dict(dlim)
32496 @ 273052:               LINE   5589 "regression-compile-tmp/imp22g-77.imp"
32497 @ 273092:               PUSH   DP
32498 @ 273095:               PUSH   DICT
32499 @ 273098:               PUSH   DLIM
32500 @ 273101:               ACCESS
32501 @ 273102:               ASSREF

  5590    %if speccing = 0 %start;  !not within spec params
32502 @ 273103:               LINE   5590 "regression-compile-tmp/imp22g-77.imp"
32503 @ 273143:               PUSH   SPECCING
32504 @ 273146:               PUSHI  #0x00000000
32505 @ 273151:               JUMPIF # L_0004

  5591      %if item >= c_localdpos %start;  !there already
32506 @ 273155:               LINE   5591 "regression-compile-tmp/imp22g-77.imp"
32507 @ 273195:               PUSH   ITEM
32508 @ 273198:               PUSH   C
32509 @ 273201:               SELECT 8
32510 @ 273204:               JUMPIF < L_0007

  5592        %if d_flags&spec = 0 %and ditem_flags&spec # 0 %start
  5593          !body after spec (proc,label,typeid)
32511 @ 273208:               LINE   5592 "regression-compile-tmp/imp22g-77.imp"
32512 @ 273248:               PUSH   D
32513 @ 273251:               SELECT 1
32514 @ 273254:               PUSHI  #0x00000100
32515 @ 273259:               AND   
32516 @ 273260:               PUSHI  #0x00000000
32517 @ 273265:               JUMPIF # L_000a
32518 @ 273269:               PUSH   DITEM
32519 @ 273272:               SELECT 1
32520 @ 273275:               PUSHI  #0x00000100
32521 @ 273280:               AND   
32522 @ 273281:               PUSHI  #0x00000000
32523 @ 273286:               JUMPIF = L_000a

  5594          %if d_flags&(ext+proc+typeid) = ditem_flags&(ext+proc+typeid) %start
32524 @ 273290:               LINE   5594 "regression-compile-tmp/imp22g-77.imp"
32525 @ 273330:               PUSH   D
32526 @ 273333:               SELECT 1
32527 @ 273336:               PUSHI  #0x00004000
32528 @ 273341:               PUSHI  #0x00003000
32529 @ 273346:               ADD   
32530 @ 273347:               PUSHI  #0x00000200
32531 @ 273352:               ADD   
32532 @ 273353:               AND   
32533 @ 273354:               PUSH   DITEM
32534 @ 273357:               SELECT 1
32535 @ 273360:               PUSHI  #0x00004000
32536 @ 273365:               PUSHI  #0x00003000
32537 @ 273370:               ADD   
32538 @ 273371:               PUSHI  #0x00000200
32539 @ 273376:               ADD   
32540 @ 273377:               AND   
32541 @ 273378:               JUMPIF # L_000d

  5595            i = item
32542 @ 273382:               LINE   5595 "regression-compile-tmp/imp22g-77.imp"
32543 @ 273422:               PUSH   I
32544 @ 273425:               PUSH   ITEM
32545 @ 273428:               ASSVAL

  5596            %if d_flags&ext # 0 %start
  5597              ![can't allow %ext%spec, then use, then %ext object]
32546 @ 273429:               LINE   5596 "regression-compile-tmp/imp22g-77.imp"
32547 @ 273469:               PUSH   D
32548 @ 273472:               SELECT 1
32549 @ 273475:               PUSHI  #0x00004000
32550 @ 273480:               AND   
32551 @ 273481:               PUSHI  #0x00000000
32552 @ 273486:               JUMPIF = L_0010

  5598              ->ok %if ditem_flags&rflag # 0;  ![so create new entry]
32553 @ 273490:               LINE   5598 "regression-compile-tmp/imp22g-77.imp"
32554 @ 273530:               PUSH   DITEM
32555 @ 273533:               SELECT 1
32556 @ 273536:               PUSHI  #0x00000020
32557 @ 273541:               AND   
32558 @ 273542:               PUSHI  #0x00000000
32559 @ 273547:               JUMPIF = L_0013
32560 @ 273551:               JUMP   L_0169
32561 @ 273554:               LOCATE L_0013

  5599              ditem_mode = d_mode;  ditem_val = d_val
32562 @ 273557:               LINE   5599 "regression-compile-tmp/imp22g-77.imp"
32563 @ 273597:               PUSH   DITEM
32564 @ 273600:               SELECT 8
32565 @ 273603:               PUSH   D
32566 @ 273606:               SELECT 8
32567 @ 273609:               ASSVAL
32568 @ 273610:               LINE   5599 "regression-compile-tmp/imp22g-77.imp"
32569 @ 273650:               PUSH   DITEM
32570 @ 273653:               SELECT 9
32571 @ 273656:               PUSH   D
32572 @ 273659:               SELECT 9
32573 @ 273662:               ASSVAL

  5600              %if a(keyalias)=TRUE %start
32574 @ 273663:               LINE   5600 "regression-compile-tmp/imp22g-77.imp"
32575 @ 273703:               PUSH   A
32576 @ 273706:               PUSHI  #0x00000031
32577 @ 273711:               ASSPAR
32578 @ 273712:               CALL  
32579 @ 273713:               PUSHI  #0x00000001
32580 @ 273718:               JUMPIF # L_0013

  5601                get LITSTRING;  !ignore [should be identical]
32581 @ 273722:               LINE   5601 "regression-compile-tmp/imp22g-77.imp"
32582 @ 273762:               PUSH   GETLITSTRING
32583 @ 273765:               CALL  

  5602                item = i
32584 @ 273766:               LINE   5602 "regression-compile-tmp/imp22g-77.imp"
32585 @ 273806:               PUSH   ITEM
32586 @ 273809:               PUSH   I
32587 @ 273812:               ASSVAL

  5603              %finish
32588 @ 273813:               LINE   5603 "regression-compile-tmp/imp22g-77.imp"
32589 @ 273853:               LOCATE L_0013

  5604            %finish
32590 @ 273856:               LINE   5604 "regression-compile-tmp/imp22g-77.imp"
32591 @ 273896:               LOCATE L_0010

  5605            %if d_flags&proc = 0 %start
32592 @ 273899:               LINE   5605 "regression-compile-tmp/imp22g-77.imp"
32593 @ 273939:               PUSH   D
32594 @ 273942:               SELECT 1
32595 @ 273945:               PUSHI  #0x00003000
32596 @ 273950:               AND   
32597 @ 273951:               PUSHI  #0x00000000
32598 @ 273956:               JUMPIF # L_0010

  5606              ditem_flags = ditem_flags&(\(spec+indirect))
32599 @ 273960:               LINE   5606 "regression-compile-tmp/imp22g-77.imp"
32600 @ 274000:               PUSH   DITEM
32601 @ 274003:               SELECT 1
32602 @ 274006:               PUSH   DITEM
32603 @ 274009:               SELECT 1
32604 @ 274012:               PUSHI  #0x00000100
32605 @ 274017:               PUSHI  #0x00000800
32606 @ 274022:               ADD   
32607 @ 274023:               NOT   
32608 @ 274024:               AND   
32609 @ 274025:               ASSVAL

  5607            %finish
32610 @ 274026:               LINE   5607 "regression-compile-tmp/imp22g-77.imp"
32611 @ 274066:               LOCATE L_0010

  5608            %return
32612 @ 274069:               LINE   5608 "regression-compile-tmp/imp22g-77.imp"
32613 @ 274109:               RETURN

  5609          %finish
32614 @ 274110:               LINE   5609 "regression-compile-tmp/imp22g-77.imp"
32615 @ 274150:               LOCATE L_000d

  5610          %if ditem_flags&(ext+proc) = proc1 %and d_flags&ext # 0 %c
  5611              %and d_flags&proc # 0 %start;  !(internal) %spec then %ext
32616 @ 274153:               LINE   5610 "regression-compile-tmp/imp22g-77.imp"
32617 @ 274193:               PUSH   DITEM
32618 @ 274196:               SELECT 1
32619 @ 274199:               PUSHI  #0x00004000
32620 @ 274204:               PUSHI  #0x00003000
32621 @ 274209:               ADD   
32622 @ 274210:               AND   
32623 @ 274211:               PUSHI  #0x00001000
32624 @ 274216:               JUMPIF # L_000d
32625 @ 274220:               PUSH   D
32626 @ 274223:               SELECT 1
32627 @ 274226:               PUSHI  #0x00004000
32628 @ 274231:               AND   
32629 @ 274232:               PUSHI  #0x00000000
32630 @ 274237:               JUMPIF = L_000d
32631 @ 274241:               PUSH   D
32632 @ 274244:               SELECT 1
32633 @ 274247:               PUSHI  #0x00003000
32634 @ 274252:               AND   
32635 @ 274253:               PUSHI  #0x00000000
32636 @ 274258:               JUMPIF = L_000d

  5612            ditem_flags = ditem_flags-proc1+(d_flags&(ext+proc))
32637 @ 274262:               LINE   5612 "regression-compile-tmp/imp22g-77.imp"
32638 @ 274302:               PUSH   DITEM
32639 @ 274305:               SELECT 1
32640 @ 274308:               PUSH   DITEM
32641 @ 274311:               SELECT 1
32642 @ 274314:               PUSHI  #0x00001000
32643 @ 274319:               SUB   
32644 @ 274320:               PUSH   D
32645 @ 274323:               SELECT 1
32646 @ 274326:               PUSHI  #0x00004000
32647 @ 274331:               PUSHI  #0x00003000
32648 @ 274336:               ADD   
32649 @ 274337:               AND   
32650 @ 274338:               ADD   
32651 @ 274339:               ASSVAL

  5613            ditem_text = idtext(ext);  !in case alias
32652 @ 274340:               LINE   5613 "regression-compile-tmp/imp22g-77.imp"
32653 @ 274380:               PUSH   DITEM
32654 @ 274383:               SELECT 11
32655 @ 274386:               PUSH   IDTEXT
32656 @ 274389:               PUSHI  #0x00004000
32657 @ 274394:               ASSPAR
32658 @ 274395:               CALL  
32659 @ 274396:               ASSVAL

  5614            %return
32660 @ 274397:               LINE   5614 "regression-compile-tmp/imp22g-77.imp"
32661 @ 274437:               RETURN

  5615          %finish
32662 @ 274438:               LINE   5615 "regression-compile-tmp/imp22g-77.imp"
32663 @ 274478:               LOCATE L_000d

  5616        %finish
  5617  !<<IMP
32664 @ 274481:               LINE   5616 "regression-compile-tmp/imp22g-77.imp"
32665 @ 274521:               LOCATE L_000a

  5618        %if item < inclim %and ditem_flags&(rflag+wflag) = 0 %c
  5619        %then fault(duperr+warn+point) %else fault(duperr+point)
  5620  !<<BOTH
32666 @ 274524:               LINE   5618 "regression-compile-tmp/imp22g-77.imp"
32667 @ 274564:               PUSH   ITEM
32668 @ 274567:               PUSH   INCLIM
32669 @ 274570:               JUMPIF >= L_000a
32670 @ 274574:               PUSH   DITEM
32671 @ 274577:               SELECT 1
32672 @ 274580:               PUSHI  #0x00000020
32673 @ 274585:               PUSHI  #0x00000010
32674 @ 274590:               ADD   
32675 @ 274591:               AND   
32676 @ 274592:               PUSHI  #0x00000000
32677 @ 274597:               JUMPIF # L_000a
32678 @ 274601:               PUSH   FAULT
32679 @ 274604:               PUSHI  #0x00000015
32680 @ 274609:               PUSHI  #0xffffff80
32681 @ 274614:               ADD   
32682 @ 274615:               PUSHI  #0x00000040
32683 @ 274620:               ADD   
32684 @ 274621:               ASSPAR
32685 @ 274622:               CALL  
32686 @ 274623:               GOTO   L_0009
32687 @ 274626:               LOCATE L_000a
32688 @ 274629:               PUSH   FAULT
32689 @ 274632:               PUSHI  #0x00000015
32690 @ 274637:               PUSHI  #0x00000040
32691 @ 274642:               ADD   
32692 @ 274643:               ASSPAR
32693 @ 274644:               CALL  
32694 @ 274645:               LOCATE L_0009

  5621      %finish
32695 @ 274648:               LINE   5621 "regression-compile-tmp/imp22g-77.imp"
32696 @ 274688:               LOCATE L_0007

  5622  ok: dp_hlink = head;  head = dlim;  !insert in list
32697 @ 274691:               LINE   5622 "regression-compile-tmp/imp22g-77.imp"
32698 @ 274731:               LABEL  L_0169
32699 @ 274734:               LINE   5622 "regression-compile-tmp/imp22g-77.imp"
32700 @ 274774:               PUSH   DP
32701 @ 274777:               SELECT 12
32702 @ 274780:               PUSH   HEAD
32703 @ 274783:               ASSVAL
32704 @ 274784:               LINE   5622 "regression-compile-tmp/imp22g-77.imp"
32705 @ 274824:               PUSH   HEAD
32706 @ 274827:               PUSH   DLIM
32707 @ 274830:               ASSVAL

  5623      dp_text = idtext(d_flags)
32708 @ 274831:               LINE   5623 "regression-compile-tmp/imp22g-77.imp"
32709 @ 274871:               PUSH   DP
32710 @ 274874:               SELECT 11
32711 @ 274877:               PUSH   IDTEXT
32712 @ 274880:               PUSH   D
32713 @ 274883:               SELECT 1
32714 @ 274886:               ASSPAR
32715 @ 274887:               CALL  
32716 @ 274888:               ASSVAL

  5624    %finish %else dp_hlink = 0 %and dp_text = 0
32717 @ 274889:               LINE   5624 "regression-compile-tmp/imp22g-77.imp"
32718 @ 274929:               GOTO   L_0003
32719 @ 274932:               LOCATE L_0004
32720 @ 274935:               PUSH   DP
32721 @ 274938:               SELECT 12
32722 @ 274941:               PUSHI  #0x00000000
32723 @ 274946:               ASSVAL
32724 @ 274947:               PUSH   DP
32725 @ 274950:               SELECT 11
32726 @ 274953:               PUSHI  #0x00000000
32727 @ 274958:               ASSVAL
32728 @ 274959:               LOCATE L_0003

  5625    item = dlim;  ditem == dp
32729 @ 274962:               LINE   5625 "regression-compile-tmp/imp22g-77.imp"
32730 @ 275002:               PUSH   ITEM
32731 @ 275005:               PUSH   DLIM
32732 @ 275008:               ASSVAL
32733 @ 275009:               LINE   5625 "regression-compile-tmp/imp22g-77.imp"
32734 @ 275049:               PUSH   DITEM
32735 @ 275052:               PUSH   DP
32736 @ 275055:               ASSREF

  5626    ditem_details = d
32737 @ 275056:               LINE   5626 "regression-compile-tmp/imp22g-77.imp"
32738 @ 275096:               PUSH   DITEM
32739 @ 275099:               SELECT 10
32740 @ 275102:               PUSH   D
32741 @ 275105:               ASSVAL

  5627    dlim = dlim+1
32742 @ 275106:               LINE   5627 "regression-compile-tmp/imp22g-77.imp"
32743 @ 275146:               PUSH   DLIM
32744 @ 275149:               PUSH   DLIM
32745 @ 275152:               PUSHI  #0x00000001
32746 @ 275157:               ADD   
32747 @ 275158:               ASSVAL

  5628    %if dlim >= dmin %start
32748 @ 275159:               LINE   5628 "regression-compile-tmp/imp22g-77.imp"
32749 @ 275199:               PUSH   DLIM
32750 @ 275202:               PUSH   DMIN
32751 @ 275205:               JUMPIF < L_0004

  5629  {?}    show dict(0) %if control&logbit # 0
32752 @ 275209:               LINE   5629 "regression-compile-tmp/imp22g-77.imp"
32753 @ 275249:               PUSH   CONTROL
32754 @ 275252:               PUSHI  #0x00000400
32755 @ 275257:               AND   
32756 @ 275258:               PUSHI  #0x00000000
32757 @ 275263:               JUMPIF = L_0007
32758 @ 275267:               PUSH   SHOWDICT
32759 @ 275270:               PUSHI  #0x00000000
32760 @ 275275:               ASSPAR
32761 @ 275276:               CALL  
32762 @ 275277:               LOCATE L_0007

  5630      croak("Too many identifiers")
32763 @ 275280:               LINE   5630 "regression-compile-tmp/imp22g-77.imp"
32764 @ 275320:               PUSH   CROAK
32765 @ 275323:               PUSHS  "Too many identifiers"
32766 @ 275345:               ASSPAR
32767 @ 275346:               CALL  

  5631    %finish
32768 @ 275347:               LINE   5631 "regression-compile-tmp/imp22g-77.imp"
32769 @ 275387:               LOCATE L_0004

  5632  %end;  !DECLARE
  5633  
32770 @ 275390:               LINE   5632 "regression-compile-tmp/imp22g-77.imp"
32771 @ 275430:            END    _lev0id0_DECLARE {lev=2 --> 1}

  5634  %routine DECLARE ANON(%record(objinfo)%name d)
32772 @ 275431:            LINE   5634 "regression-compile-tmp/imp22g-77.imp"
32773 @ 275471:            DEF    DECLAREANON (_lev0id0_DECLAREANON) p1=V_0166 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
32774 @ 275494:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
32775 @ 275495:                  DEF    D p1=V_0167 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
32776 @ 275508:               FINISH ) {lev=2}

  5635    speccing = speccing+1
32777 @ 275509:               LINE   5635 "regression-compile-tmp/imp22g-77.imp"
32778 @ 275549:               PUSH   SPECCING
32779 @ 275552:               PUSH   SPECCING
32780 @ 275555:               PUSHI  #0x00000001
32781 @ 275560:               ADD   
32782 @ 275561:               ASSVAL

  5636    item = 0
32783 @ 275562:               LINE   5636 "regression-compile-tmp/imp22g-77.imp"
32784 @ 275602:               PUSH   ITEM
32785 @ 275605:               PUSHI  #0x00000000
32786 @ 275610:               ASSVAL

  5637    declare(d)
32787 @ 275611:               LINE   5637 "regression-compile-tmp/imp22g-77.imp"
32788 @ 275651:               PUSH   DECLARE
32789 @ 275654:               PUSH   D
32790 @ 275657:               ASSPAR
32791 @ 275658:               CALL  

  5638    speccing = speccing-1
32792 @ 275659:               LINE   5638 "regression-compile-tmp/imp22g-77.imp"
32793 @ 275699:               PUSH   SPECCING
32794 @ 275702:               PUSH   SPECCING
32795 @ 275705:               PUSHI  #0x00000001
32796 @ 275710:               SUB   
32797 @ 275711:               ASSVAL

  5639  %end
  5640  !
32798 @ 275712:               LINE   5639 "regression-compile-tmp/imp22g-77.imp"
32799 @ 275752:            END    _lev0id0_DECLAREANON {lev=2 --> 1}

  5641  %routine DECLARE TEMP(%integer t)
32800 @ 275753:            LINE   5641 "regression-compile-tmp/imp22g-77.imp"
32801 @ 275793:            DEF    DECLARETEMP (_lev0id0_DECLARETEMP) p1=V_0167 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
32802 @ 275816:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
32803 @ 275817:                  DEF    T p1=V_0168 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
32804 @ 275830:               FINISH ) {lev=2}

  5642    c_val = c_val+4;  c_temps = c_temps+4
32805 @ 275831:               LINE   5642 "regression-compile-tmp/imp22g-77.imp"
32806 @ 275871:               PUSH   C
32807 @ 275874:               SELECT 28
32808 @ 275877:               PUSH   C
32809 @ 275880:               SELECT 28
32810 @ 275883:               PUSHI  #0x00000004
32811 @ 275888:               ADD   
32812 @ 275889:               ASSVAL
32813 @ 275890:               LINE   5642 "regression-compile-tmp/imp22g-77.imp"
32814 @ 275930:               PUSH   C
32815 @ 275933:               SELECT 24
32816 @ 275936:               PUSH   C
32817 @ 275939:               SELECT 24
32818 @ 275942:               PUSHI  #0x00000004
32819 @ 275947:               ADD   
32820 @ 275948:               ASSVAL

  5643    declare anon(details(okflag+writable+readable,t,c_mode,c_sp-c_val))
32821 @ 275949:               LINE   5643 "regression-compile-tmp/imp22g-77.imp"
32822 @ 275989:               PUSH   DECLAREANON
32823 @ 275992:               PUSH   DETAILS
32824 @ 275995:               PUSHI  #0x00000040
32825 @ 276000:               PUSHI  #0x00000001
32826 @ 276005:               ADD   
32827 @ 276006:               PUSHI  #0x00000002
32828 @ 276011:               ADD   
32829 @ 276012:               ASSPAR
32830 @ 276013:               PUSH   T
32831 @ 276016:               ASSPAR
32832 @ 276017:               PUSH   C
32833 @ 276020:               SELECT 27
32834 @ 276023:               ASSPAR
32835 @ 276024:               PUSH   C
32836 @ 276027:               SELECT 1
32837 @ 276030:               PUSH   C
32838 @ 276033:               SELECT 28
32839 @ 276036:               SUB   
32840 @ 276037:               ASSPAR
32841 @ 276038:               CALL  
32842 @ 276039:               ASSPAR
32843 @ 276040:               CALL  

  5644  %end
  5645  !
32844 @ 276041:               LINE   5644 "regression-compile-tmp/imp22g-77.imp"
32845 @ 276081:            END    _lev0id0_DECLARETEMP {lev=2 --> 1}

  5646  %routine DECLARE RANGE(%integer type,lower,upper)
  5647  !Type ident just declared
32846 @ 276082:            LINE   5646 "regression-compile-tmp/imp22g-77.imp"
32847 @ 276122:            DEF    DECLARERANGE (_lev0id0_DECLARERANGE) p1=V_0168 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
32848 @ 276146:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
32849 @ 276147:                  DEF    TYPE p1=V_0169 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
32850 @ 276163:                  DEF    LOWER p1=V_016a a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
32851 @ 276180:                  DEF    UPPER p1=V_016b a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
32852 @ 276197:               FINISH ) {lev=2}

  5648  %integer s
32853 @ 276198:               LINE   5648 "regression-compile-tmp/imp22g-77.imp"
32854 @ 276238:               DEF    S p1=V_016c a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  5649  %integerfn OK(%integer l,u)
32855 @ 276251:               LINE   5649 "regression-compile-tmp/imp22g-77.imp"
32856 @ 276291:               DEF    OK (_lev0id0_DECLARERANGE_OK) p1=V_016d 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
32857 @ 276305:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
32858 @ 276306:                     DEF    L p1=V_016e a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
32859 @ 276319:                     DEF    U p1=V_016f a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
32860 @ 276332:                  FINISH ) {lev=3}

  5650    %result = TRUE %if (l <= lower %and upper <= u) {signed} %c
  5651          %or (0 <= lower %and upper <= u-l) {unsigned}
32861 @ 276333:                  LINE   5650 "regression-compile-tmp/imp22g-77.imp"
32862 @ 276373:                  PUSH   L
32863 @ 276376:                  PUSH   LOWER
32864 @ 276379:                  JUMPIF > L_0006
32865 @ 276383:                  PUSH   UPPER
32866 @ 276386:                  PUSH   U
32867 @ 276389:                  JUMPIF <= L_0005
32868 @ 276393:                  LOCATE L_0006
32869 @ 276396:                  PUSHI  #0x00000000
32870 @ 276401:                  PUSH   LOWER
32871 @ 276404:                  JUMPIF > L_0004
32872 @ 276408:                  PUSH   UPPER
32873 @ 276411:                  PUSH   U
32874 @ 276414:                  PUSH   L
32875 @ 276417:                  SUB   
32876 @ 276418:                  JUMPIF > L_0004
32877 @ 276422:                  LOCATE L_0005
32878 @ 276425:                  PUSHI  #0x00000001
32879 @ 276430:                  RESULT
32880 @ 276431:                  LOCATE L_0004

  5652    %result = FALSE
32881 @ 276434:                  LINE   5652 "regression-compile-tmp/imp22g-77.imp"
32882 @ 276474:                  PUSHI  #0x00000000
32883 @ 276479:                  RESULT

  5653  %end
32884 @ 276480:                  LINE   5653 "regression-compile-tmp/imp22g-77.imp"
32885 @ 276520:               END    _lev0id0_DECLARERANGE_OK {lev=3 --> 2}

  5654    s = 4
32886 @ 276521:               LINE   5654 "regression-compile-tmp/imp22g-77.imp"
32887 @ 276561:               PUSH   S
32888 @ 276564:               PUSHI  #0x00000004
32889 @ 276569:               ASSVAL

  5655    %if ok(-32768,32767)=TRUE %start
32890 @ 276570:               LINE   5655 "regression-compile-tmp/imp22g-77.imp"
32891 @ 276610:               PUSH   OK
32892 @ 276613:               PUSHI  #0x00008000
32893 @ 276618:               NEGATE
32894 @ 276619:               ASSPAR
32895 @ 276620:               PUSHI  #0x00007fff
32896 @ 276625:               ASSPAR
32897 @ 276626:               CALL  
32898 @ 276627:               PUSHI  #0x00000001
32899 @ 276632:               JUMPIF # L_0004

  5656      s = 2;  s = 1 %if ok(-128,127)=TRUE
32900 @ 276636:               LINE   5656 "regression-compile-tmp/imp22g-77.imp"
32901 @ 276676:               PUSH   S
32902 @ 276679:               PUSHI  #0x00000002
32903 @ 276684:               ASSVAL
32904 @ 276685:               LINE   5656 "regression-compile-tmp/imp22g-77.imp"
32905 @ 276725:               PUSH   OK
32906 @ 276728:               PUSHI  #0x00000080
32907 @ 276733:               NEGATE
32908 @ 276734:               ASSPAR
32909 @ 276735:               PUSHI  #0x0000007f
32910 @ 276740:               ASSPAR
32911 @ 276741:               CALL  
32912 @ 276742:               PUSHI  #0x00000001
32913 @ 276747:               JUMPIF # L_0007
32914 @ 276751:               PUSH   S
32915 @ 276754:               PUSHI  #0x00000001
32916 @ 276759:               ASSVAL
32917 @ 276760:               LOCATE L_0007

  5657    %finish
32918 @ 276763:               LINE   5657 "regression-compile-tmp/imp22g-77.imp"
32919 @ 276803:               LOCATE L_0004

  5658    ditem_details = details(typeid,type,absmode,sign)
32920 @ 276806:               LINE   5658 "regression-compile-tmp/imp22g-77.imp"
32921 @ 276846:               PUSH   DITEM
32922 @ 276849:               SELECT 10
32923 @ 276852:               PUSH   DETAILS
32924 @ 276855:               PUSHI  #0x00000200
32925 @ 276860:               ASSPAR
32926 @ 276861:               PUSH   TYPE
32927 @ 276864:               ASSPAR
32928 @ 276865:               PUSHI  #0x00000038
32929 @ 276870:               ASSPAR
32930 @ 276871:               PUSHI  #0x80000000
32931 @ 276876:               ASSPAR
32932 @ 276877:               CALL  
32933 @ 276878:               ASSVAL

  5659    ditem_size = s
32934 @ 276879:               LINE   5659 "regression-compile-tmp/imp22g-77.imp"
32935 @ 276919:               PUSH   DITEM
32936 @ 276922:               SELECT 5
32937 @ 276925:               PUSH   S
32938 @ 276928:               ASSVAL

  5660    declare anon(details(okflag,type,litmode,lower))
32939 @ 276929:               LINE   5660 "regression-compile-tmp/imp22g-77.imp"
32940 @ 276969:               PUSH   DECLAREANON
32941 @ 276972:               PUSH   DETAILS
32942 @ 276975:               PUSHI  #0x00000040
32943 @ 276980:               ASSPAR
32944 @ 276981:               PUSH   TYPE
32945 @ 276984:               ASSPAR
32946 @ 276985:               PUSHI  #0x0000003c
32947 @ 276990:               ASSPAR
32948 @ 276991:               PUSH   LOWER
32949 @ 276994:               ASSPAR
32950 @ 276995:               CALL  
32951 @ 276996:               ASSPAR
32952 @ 276997:               CALL  

  5661    declare anon(details(okflag,type,litmode,upper))
32953 @ 276998:               LINE   5661 "regression-compile-tmp/imp22g-77.imp"
32954 @ 277038:               PUSH   DECLAREANON
32955 @ 277041:               PUSH   DETAILS
32956 @ 277044:               PUSHI  #0x00000040
32957 @ 277049:               ASSPAR
32958 @ 277050:               PUSH   TYPE
32959 @ 277053:               ASSPAR
32960 @ 277054:               PUSHI  #0x0000003c
32961 @ 277059:               ASSPAR
32962 @ 277060:               PUSH   UPPER
32963 @ 277063:               ASSPAR
32964 @ 277064:               CALL  
32965 @ 277065:               ASSPAR
32966 @ 277066:               CALL  

  5662    ditem_hlink = ranges;  ranges = item
32967 @ 277067:               LINE   5662 "regression-compile-tmp/imp22g-77.imp"
32968 @ 277107:               PUSH   DITEM
32969 @ 277110:               SELECT 12
32970 @ 277113:               PUSH   RANGES
32971 @ 277116:               ASSVAL
32972 @ 277117:               LINE   5662 "regression-compile-tmp/imp22g-77.imp"
32973 @ 277157:               PUSH   RANGES
32974 @ 277160:               PUSH   ITEM
32975 @ 277163:               ASSVAL

  5663    item = item-2
32976 @ 277164:               LINE   5663 "regression-compile-tmp/imp22g-77.imp"
32977 @ 277204:               PUSH   ITEM
32978 @ 277207:               PUSH   ITEM
32979 @ 277210:               PUSHI  #0x00000002
32980 @ 277215:               SUB   
32981 @ 277216:               ASSVAL

  5664  %end
  5665  
  5666  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  5667  !!!!!!!!!!!!!!!!!!!!  Expressions  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  5668  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  5669  
32982 @ 277217:               LINE   5664 "regression-compile-tmp/imp22g-77.imp"
32983 @ 277257:            END    _lev0id0_DECLARERANGE {lev=2 --> 1}

  5670  %owninteger LITERAL=0, JAMMY=0
  5671  
32984 @ 277258:            LINE   5670 "regression-compile-tmp/imp22g-77.imp"
32985 @ 277298:            PUSHI  #0x00000000
32986 @ 277303:            DEF    LITERAL p1=V_0169 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
32987 @ 277322:            INIT   1
32988 @ 277325:            PUSHI  #0x00000000
32989 @ 277330:            DEF    JAMMY p1=V_016a 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
32990 @ 277347:            INIT   1

  5672  %routine%spec GET EXPRESSION(%integer rank,etype)
  5673  !
32991 @ 277350:            LINE   5672 "regression-compile-tmp/imp22g-77.imp"
32992 @ 277390:            DEF    GETEXPRESSION (_lev0id0_GETEXPRESSION) p1=V_016b 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
32993 @ 277415:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
32994 @ 277416:               DEF    RANK p1=V_016c a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
32995 @ 277432:               DEF    ETYPE p1=V_016d a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
32996 @ 277449:            FINISH ) {lev=1}

  5674  %integerfn VALOK(%integer wanted,t)
32997 @ 277450:            LINE   5674 "regression-compile-tmp/imp22g-77.imp"
32998 @ 277490:            DEF    VALOK (_lev0id0_VALOK) p1=V_016c 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
32999 @ 277507:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
33000 @ 277508:                  DEF    WANTED p1=V_016d a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
33001 @ 277526:                  DEF    T p1=V_016e a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
33002 @ 277539:               FINISH ) {lev=2}

  5675  %integer lo,hi,l,h,wc,tc
33003 @ 277540:               LINE   5675 "regression-compile-tmp/imp22g-77.imp"
33004 @ 277580:               DEF    LO p1=V_016f a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
33005 @ 277594:               DEF    HI p1=V_0170 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
33006 @ 277608:               DEF    L p1=V_0171 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
33007 @ 277621:               DEF    H p1=V_0172 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
33008 @ 277634:               DEF    WC p1=V_0173 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
33009 @ 277648:               DEF    TC p1=V_0174 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  5676  %record(identinfo)%name wp,tp
33010 @ 277662:               LINE   5676 "regression-compile-tmp/imp22g-77.imp"
33011 @ 277702:               DEF    WP p1=V_0175 a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
33012 @ 277716:               DEF    TP p1=V_0176 a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  5677    %result = TRUE %if wanted = t # recstar
33013 @ 277730:               LINE   5677 "regression-compile-tmp/imp22g-77.imp"
33014 @ 277770:               PUSH   WANTED
33015 @ 277773:               PUSH   T
33016 @ 277776:               JUMPIFD # L_0004
33017 @ 277780:               PUSHI  #0x00000043
33018 @ 277785:               JUMPIF = L_0004
33019 @ 277789:               PUSHI  #0x00000001
33020 @ 277794:               RESULT
33021 @ 277795:               LOCATE L_0004

  5678    wp == typecell(wanted);  tp == typecell(t)
33022 @ 277798:               LINE   5678 "regression-compile-tmp/imp22g-77.imp"
33023 @ 277838:               PUSH   WP
33024 @ 277841:               PUSH   TYPECELL
33025 @ 277844:               PUSH   WANTED
33026 @ 277847:               ASSPAR
33027 @ 277848:               CALL  
33028 @ 277849:               ASSREF
33029 @ 277850:               LINE   5678 "regression-compile-tmp/imp22g-77.imp"
33030 @ 277890:               PUSH   TP
33031 @ 277893:               PUSH   TYPECELL
33032 @ 277896:               PUSH   T
33033 @ 277899:               ASSPAR
33034 @ 277900:               CALL  
33035 @ 277901:               ASSREF

  5679    wc = wp_flags&(packed+cat);  tc = tp_flags&(packed+cat)
33036 @ 277902:               LINE   5679 "regression-compile-tmp/imp22g-77.imp"
33037 @ 277942:               PUSH   WC
33038 @ 277945:               PUSH   WP
33039 @ 277948:               SELECT 1
33040 @ 277951:               PUSHI  #0x00000400
33041 @ 277956:               PUSHI  #0x0000000f
33042 @ 277961:               ADD   
33043 @ 277962:               AND   
33044 @ 277963:               ASSVAL
33045 @ 277964:               LINE   5679 "regression-compile-tmp/imp22g-77.imp"
33046 @ 278004:               PUSH   TC
33047 @ 278007:               PUSH   TP
33048 @ 278010:               SELECT 1
33049 @ 278013:               PUSHI  #0x00000400
33050 @ 278018:               PUSHI  #0x0000000f
33051 @ 278023:               ADD   
33052 @ 278024:               AND   
33053 @ 278025:               ASSVAL

  5680    %if wc = tc %start;  !same class
33054 @ 278026:               LINE   5680 "regression-compile-tmp/imp22g-77.imp"
33055 @ 278066:               PUSH   WC
33056 @ 278069:               PUSH   TC
33057 @ 278072:               JUMPIF # L_0004

  5681      %if wc&nonord = 0 %start;  !ordinal wanted
33058 @ 278076:               LINE   5681 "regression-compile-tmp/imp22g-77.imp"
33059 @ 278116:               PUSH   WC
33060 @ 278119:               PUSHI  #0x0000000c
33061 @ 278124:               AND   
33062 @ 278125:               PUSHI  #0x00000000
33063 @ 278130:               JUMPIF # L_0007

  5682        %if wp_type = tp_type %start;  !same base-type
33064 @ 278134:               LINE   5682 "regression-compile-tmp/imp22g-77.imp"
33065 @ 278174:               PUSH   WP
33066 @ 278177:               SELECT 2
33067 @ 278180:               PUSH   TP
33068 @ 278183:               SELECT 2
33069 @ 278186:               JUMPIF # L_000a

  5683          %result = TRUE %if wp_type = wanted;  !base-type (rather than subrange)
33070 @ 278190:               LINE   5683 "regression-compile-tmp/imp22g-77.imp"
33071 @ 278230:               PUSH   WP
33072 @ 278233:               SELECT 2
33073 @ 278236:               PUSH   WANTED
33074 @ 278239:               JUMPIF # L_000d
33075 @ 278243:               PUSHI  #0x00000001
33076 @ 278248:               RESULT
33077 @ 278249:               LOCATE L_000d

  5684          %if dict(wanted+1)_mode # litmode %then get bounds(dict(wanted+1)_type,lo,hi) %c
  5685          %else lo = dict(wanted+1)_val
33078 @ 278252:               LINE   5684 "regression-compile-tmp/imp22g-77.imp"
33079 @ 278292:               PUSH   DICT
33080 @ 278295:               PUSH   WANTED
33081 @ 278298:               PUSHI  #0x00000001
33082 @ 278303:               ADD   
33083 @ 278304:               ACCESS
33084 @ 278305:               SELECT 8
33085 @ 278308:               PUSHI  #0x0000003c
33086 @ 278313:               JUMPIF = L_000d
33087 @ 278317:               PUSH   GETBOUNDS
33088 @ 278320:               PUSH   DICT
33089 @ 278323:               PUSH   WANTED
33090 @ 278326:               PUSHI  #0x00000001
33091 @ 278331:               ADD   
33092 @ 278332:               ACCESS
33093 @ 278333:               SELECT 2
33094 @ 278336:               ASSPAR
33095 @ 278337:               PUSH   LO
33096 @ 278340:               ASSPAR
33097 @ 278341:               PUSH   HI
33098 @ 278344:               ASSPAR
33099 @ 278345:               CALL  
33100 @ 278346:               GOTO   L_000c
33101 @ 278349:               LOCATE L_000d
33102 @ 278352:               PUSH   LO
33103 @ 278355:               PUSH   DICT
33104 @ 278358:               PUSH   WANTED
33105 @ 278361:               PUSHI  #0x00000001
33106 @ 278366:               ADD   
33107 @ 278367:               ACCESS
33108 @ 278368:               SELECT 9
33109 @ 278371:               ASSVAL
33110 @ 278372:               LOCATE L_000c

  5686          %if dict(wanted+2)_mode # litmode %then get bounds(dict(wanted+2)_type,hi,hi) %c
  5687          %else hi = dict(wanted+2)_val
33111 @ 278375:               LINE   5686 "regression-compile-tmp/imp22g-77.imp"
33112 @ 278415:               PUSH   DICT
33113 @ 278418:               PUSH   WANTED
33114 @ 278421:               PUSHI  #0x00000002
33115 @ 278426:               ADD   
33116 @ 278427:               ACCESS
33117 @ 278428:               SELECT 8
33118 @ 278431:               PUSHI  #0x0000003c
33119 @ 278436:               JUMPIF = L_000d
33120 @ 278440:               PUSH   GETBOUNDS
33121 @ 278443:               PUSH   DICT
33122 @ 278446:               PUSH   WANTED
33123 @ 278449:               PUSHI  #0x00000002
33124 @ 278454:               ADD   
33125 @ 278455:               ACCESS
33126 @ 278456:               SELECT 2
33127 @ 278459:               ASSPAR
33128 @ 278460:               PUSH   HI
33129 @ 278463:               ASSPAR
33130 @ 278464:               PUSH   HI
33131 @ 278467:               ASSPAR
33132 @ 278468:               CALL  
33133 @ 278469:               GOTO   L_000c
33134 @ 278472:               LOCATE L_000d
33135 @ 278475:               PUSH   HI
33136 @ 278478:               PUSH   DICT
33137 @ 278481:               PUSH   WANTED
33138 @ 278484:               PUSHI  #0x00000002
33139 @ 278489:               ADD   
33140 @ 278490:               ACCESS
33141 @ 278491:               SELECT 9
33142 @ 278494:               ASSVAL
33143 @ 278495:               LOCATE L_000c

  5688          %if item = 0 %start;  !literal
33144 @ 278498:               LINE   5688 "regression-compile-tmp/imp22g-77.imp"
33145 @ 278538:               PUSH   ITEM
33146 @ 278541:               PUSHI  #0x00000000
33147 @ 278546:               JUMPIF # L_000d

  5689            %result = TRUE %if lo <= value <= hi
33148 @ 278550:               LINE   5689 "regression-compile-tmp/imp22g-77.imp"
33149 @ 278590:               PUSH   LO
33150 @ 278593:               PUSH   VALUE
33151 @ 278596:               JUMPIFD > L_0010
33152 @ 278600:               PUSH   HI
33153 @ 278603:               JUMPIF > L_0010
33154 @ 278607:               PUSHI  #0x00000001
33155 @ 278612:               RESULT
33156 @ 278613:               LOCATE L_0010

  5690            jammy = jammy!!1
33157 @ 278616:               LINE   5690 "regression-compile-tmp/imp22g-77.imp"
33158 @ 278656:               PUSH   JAMMY
33159 @ 278659:               PUSH   JAMMY
33160 @ 278662:               PUSHI  #0x00000001
33161 @ 278667:               XOR   
33162 @ 278668:               ASSVAL

  5691          %else
33163 @ 278669:               LINE   5691 "regression-compile-tmp/imp22g-77.imp"
33164 @ 278709:               GOTO   L_000c
33165 @ 278712:               LOCATE L_000d

  5692            jammy = jammy!!1 %and %result = TRUE %if tp_type = t
33166 @ 278715:               LINE   5692 "regression-compile-tmp/imp22g-77.imp"
33167 @ 278755:               PUSH   TP
33168 @ 278758:               SELECT 2
33169 @ 278761:               PUSH   T
33170 @ 278764:               JUMPIF # L_0010
33171 @ 278768:               PUSH   JAMMY
33172 @ 278771:               PUSH   JAMMY
33173 @ 278774:               PUSHI  #0x00000001
33174 @ 278779:               XOR   
33175 @ 278780:               ASSVAL
33176 @ 278781:               PUSHI  #0x00000001
33177 @ 278786:               RESULT
33178 @ 278787:               LOCATE L_0010

  5693            %if dict(t+1)_mode # litmode %then get bounds(dict(t+1)_type,l,h) %c
  5694            %else l = dict(t+1)_val
33179 @ 278790:               LINE   5693 "regression-compile-tmp/imp22g-77.imp"
33180 @ 278830:               PUSH   DICT
33181 @ 278833:               PUSH   T
33182 @ 278836:               PUSHI  #0x00000001
33183 @ 278841:               ADD   
33184 @ 278842:               ACCESS
33185 @ 278843:               SELECT 8
33186 @ 278846:               PUSHI  #0x0000003c
33187 @ 278851:               JUMPIF = L_0010
33188 @ 278855:               PUSH   GETBOUNDS
33189 @ 278858:               PUSH   DICT
33190 @ 278861:               PUSH   T
33191 @ 278864:               PUSHI  #0x00000001
33192 @ 278869:               ADD   
33193 @ 278870:               ACCESS
33194 @ 278871:               SELECT 2
33195 @ 278874:               ASSPAR
33196 @ 278875:               PUSH   L
33197 @ 278878:               ASSPAR
33198 @ 278879:               PUSH   H
33199 @ 278882:               ASSPAR
33200 @ 278883:               CALL  
33201 @ 278884:               GOTO   L_000f
33202 @ 278887:               LOCATE L_0010
33203 @ 278890:               PUSH   L
33204 @ 278893:               PUSH   DICT
33205 @ 278896:               PUSH   T
33206 @ 278899:               PUSHI  #0x00000001
33207 @ 278904:               ADD   
33208 @ 278905:               ACCESS
33209 @ 278906:               SELECT 9
33210 @ 278909:               ASSVAL
33211 @ 278910:               LOCATE L_000f

  5695            %if dict(t+2)_mode # litmode %then get bounds(dict(t+2)_type,h,h) %c
  5696            %else h = dict(t+2)_val
33212 @ 278913:               LINE   5695 "regression-compile-tmp/imp22g-77.imp"
33213 @ 278953:               PUSH   DICT
33214 @ 278956:               PUSH   T
33215 @ 278959:               PUSHI  #0x00000002
33216 @ 278964:               ADD   
33217 @ 278965:               ACCESS
33218 @ 278966:               SELECT 8
33219 @ 278969:               PUSHI  #0x0000003c
33220 @ 278974:               JUMPIF = L_0010
33221 @ 278978:               PUSH   GETBOUNDS
33222 @ 278981:               PUSH   DICT
33223 @ 278984:               PUSH   T
33224 @ 278987:               PUSHI  #0x00000002
33225 @ 278992:               ADD   
33226 @ 278993:               ACCESS
33227 @ 278994:               SELECT 2
33228 @ 278997:               ASSPAR
33229 @ 278998:               PUSH   H
33230 @ 279001:               ASSPAR
33231 @ 279002:               PUSH   H
33232 @ 279005:               ASSPAR
33233 @ 279006:               CALL  
33234 @ 279007:               GOTO   L_000f
33235 @ 279010:               LOCATE L_0010
33236 @ 279013:               PUSH   H
33237 @ 279016:               PUSH   DICT
33238 @ 279019:               PUSH   T
33239 @ 279022:               PUSHI  #0x00000002
33240 @ 279027:               ADD   
33241 @ 279028:               ACCESS
33242 @ 279029:               SELECT 9
33243 @ 279032:               ASSVAL
33244 @ 279033:               LOCATE L_000f

  5697            %if l >= lo %start
33245 @ 279036:               LINE   5697 "regression-compile-tmp/imp22g-77.imp"
33246 @ 279076:               PUSH   L
33247 @ 279079:               PUSH   LO
33248 @ 279082:               JUMPIF < L_0010

  5698              %result = TRUE %if h <= hi
33249 @ 279086:               LINE   5698 "regression-compile-tmp/imp22g-77.imp"
33250 @ 279126:               PUSH   H
33251 @ 279129:               PUSH   HI
33252 @ 279132:               JUMPIF > L_0013
33253 @ 279136:               PUSHI  #0x00000001
33254 @ 279141:               RESULT
33255 @ 279142:               LOCATE L_0013

  5699              jammy = jammy!!1
33256 @ 279145:               LINE   5699 "regression-compile-tmp/imp22g-77.imp"
33257 @ 279185:               PUSH   JAMMY
33258 @ 279188:               PUSH   JAMMY
33259 @ 279191:               PUSHI  #0x00000001
33260 @ 279196:               XOR   
33261 @ 279197:               ASSVAL

  5700              %result = TRUE %if l <= hi
33262 @ 279198:               LINE   5700 "regression-compile-tmp/imp22g-77.imp"
33263 @ 279238:               PUSH   L
33264 @ 279241:               PUSH   HI
33265 @ 279244:               JUMPIF > L_0013
33266 @ 279248:               PUSHI  #0x00000001
33267 @ 279253:               RESULT
33268 @ 279254:               LOCATE L_0013

  5701            %else
33269 @ 279257:               LINE   5701 "regression-compile-tmp/imp22g-77.imp"
33270 @ 279297:               GOTO   L_000f
33271 @ 279300:               LOCATE L_0010

  5702              jammy = jammy!!1
33272 @ 279303:               LINE   5702 "regression-compile-tmp/imp22g-77.imp"
33273 @ 279343:               PUSH   JAMMY
33274 @ 279346:               PUSH   JAMMY
33275 @ 279349:               PUSHI  #0x00000001
33276 @ 279354:               XOR   
33277 @ 279355:               ASSVAL

  5703              %result = TRUE %if h >= lo
33278 @ 279356:               LINE   5703 "regression-compile-tmp/imp22g-77.imp"
33279 @ 279396:               PUSH   H
33280 @ 279399:               PUSH   LO
33281 @ 279402:               JUMPIF < L_0013
33282 @ 279406:               PUSHI  #0x00000001
33283 @ 279411:               RESULT
33284 @ 279412:               LOCATE L_0013

  5704            %finish
33285 @ 279415:               LINE   5704 "regression-compile-tmp/imp22g-77.imp"
33286 @ 279455:               LOCATE L_000f

  5705          %finish
33287 @ 279458:               LINE   5705 "regression-compile-tmp/imp22g-77.imp"
33288 @ 279498:               LOCATE L_000c

  5706          expfault(rangerr) %if jammy # 0
33289 @ 279501:               LINE   5706 "regression-compile-tmp/imp22g-77.imp"
33290 @ 279541:               PUSH   JAMMY
33291 @ 279544:               PUSHI  #0x00000000
33292 @ 279549:               JUMPIF = L_000d
33293 @ 279553:               PUSH   EXPFAULT
33294 @ 279556:               PUSHI  #0x00000018
33295 @ 279561:               ASSPAR
33296 @ 279562:               CALL  
33297 @ 279563:               LOCATE L_000d

  5707          %result = TRUE
33298 @ 279566:               LINE   5707 "regression-compile-tmp/imp22g-77.imp"
33299 @ 279606:               PUSHI  #0x00000001
33300 @ 279611:               RESULT

  5708        %finish
33301 @ 279612:               LINE   5708 "regression-compile-tmp/imp22g-77.imp"
33302 @ 279652:               LOCATE L_000a

  5709      %finish %else %if wc = realy %start
33303 @ 279655:               LINE   5709 "regression-compile-tmp/imp22g-77.imp"
33304 @ 279695:               GOTO   L_0006
33305 @ 279698:               LOCATE L_0007
33306 @ 279701:               PUSH   WC
33307 @ 279704:               PUSHI  #0x00000005
33308 @ 279709:               JUMPIF # L_0007

  5710        %result = TRUE
33309 @ 279713:               LINE   5710 "regression-compile-tmp/imp22g-77.imp"
33310 @ 279753:               PUSHI  #0x00000001
33311 @ 279758:               RESULT

  5711      %finish %else %if wc = stringy %start;  !string wanted
33312 @ 279759:               LINE   5711 "regression-compile-tmp/imp22g-77.imp"
33313 @ 279799:               LOCATE L_0007
33314 @ 279802:               PUSH   WC
33315 @ 279805:               PUSHI  #0x00000008
33316 @ 279810:               JUMPIF # L_0007

  5712        %result = TRUE %if wanted = stringstar
33317 @ 279814:               LINE   5712 "regression-compile-tmp/imp22g-77.imp"
33318 @ 279854:               PUSH   WANTED
33319 @ 279857:               PUSHI  #0x0000003e
33320 @ 279862:               JUMPIF # L_000a
33321 @ 279866:               PUSHI  #0x00000001
33322 @ 279871:               RESULT
33323 @ 279872:               LOCATE L_000a

  5713        %if item = 0 %start
33324 @ 279875:               LINE   5713 "regression-compile-tmp/imp22g-77.imp"
33325 @ 279915:               PUSH   ITEM
33326 @ 279918:               PUSHI  #0x00000000
33327 @ 279923:               JUMPIF # L_000a

  5714          %result = TRUE %if value = 0;  !empty string
33328 @ 279927:               LINE   5714 "regression-compile-tmp/imp22g-77.imp"
33329 @ 279967:               PUSH   VALUE
33330 @ 279970:               PUSHI  #0x00000000
33331 @ 279975:               JUMPIF # L_000d
33332 @ 279979:               PUSHI  #0x00000001
33333 @ 279984:               RESULT
33334 @ 279985:               LOCATE L_000d

  5715          l = final(value)+1
33335 @ 279988:               LINE   5715 "regression-compile-tmp/imp22g-77.imp"
33336 @ 280028:               PUSH   L
33337 @ 280031:               PUSH   FINAL
33338 @ 280034:               PUSH   VALUE
33339 @ 280037:               ACCESS
33340 @ 280038:               PUSHI  #0x00000001
33341 @ 280043:               ADD   
33342 @ 280044:               ASSVAL

  5716        %else
33343 @ 280045:               LINE   5716 "regression-compile-tmp/imp22g-77.imp"
33344 @ 280085:               GOTO   L_0009
33345 @ 280088:               LOCATE L_000a

  5717          l = imod(tp_size)
33346 @ 280091:               LINE   5717 "regression-compile-tmp/imp22g-77.imp"
33347 @ 280131:               PUSH   L
33348 @ 280134:               PUSH   IMOD
33349 @ 280137:               PUSH   TP
33350 @ 280140:               SELECT 5
33351 @ 280143:               ASSPAR
33352 @ 280144:               CALL  
33353 @ 280145:               ASSVAL

  5718          l = 256 %if l = 0
33354 @ 280146:               LINE   5718 "regression-compile-tmp/imp22g-77.imp"
33355 @ 280186:               PUSH   L
33356 @ 280189:               PUSHI  #0x00000000
33357 @ 280194:               JUMPIF # L_000d
33358 @ 280198:               PUSH   L
33359 @ 280201:               PUSHI  #0x00000100
33360 @ 280206:               ASSVAL
33361 @ 280207:               LOCATE L_000d

  5719        %finish
33362 @ 280210:               LINE   5719 "regression-compile-tmp/imp22g-77.imp"
33363 @ 280250:               LOCATE L_0009

  5720        %if l > imod(wp_size) # 0 %start
33364 @ 280253:               LINE   5720 "regression-compile-tmp/imp22g-77.imp"
33365 @ 280293:               PUSH   L
33366 @ 280296:               PUSH   IMOD
33367 @ 280299:               PUSH   WP
33368 @ 280302:               SELECT 5
33369 @ 280305:               ASSPAR
33370 @ 280306:               CALL  
33371 @ 280307:               JUMPIFD <= L_000a
33372 @ 280311:               PUSHI  #0x00000000
33373 @ 280316:               JUMPIF = L_000a

  5721          jammy = jammy!!1
33374 @ 280320:               LINE   5721 "regression-compile-tmp/imp22g-77.imp"
33375 @ 280360:               PUSH   JAMMY
33376 @ 280363:               PUSH   JAMMY
33377 @ 280366:               PUSHI  #0x00000001
33378 @ 280371:               XOR   
33379 @ 280372:               ASSVAL

  5722          expfault(rangerr) %if item = 0 %and jammy # 0
33380 @ 280373:               LINE   5722 "regression-compile-tmp/imp22g-77.imp"
33381 @ 280413:               PUSH   ITEM
33382 @ 280416:               PUSHI  #0x00000000
33383 @ 280421:               JUMPIF # L_000d
33384 @ 280425:               PUSH   JAMMY
33385 @ 280428:               PUSHI  #0x00000000
33386 @ 280433:               JUMPIF = L_000d
33387 @ 280437:               PUSH   EXPFAULT
33388 @ 280440:               PUSHI  #0x00000018
33389 @ 280445:               ASSPAR
33390 @ 280446:               CALL  
33391 @ 280447:               LOCATE L_000d

  5723        %finish
33392 @ 280450:               LINE   5723 "regression-compile-tmp/imp22g-77.imp"
33393 @ 280490:               LOCATE L_000a

  5724        %result = TRUE
  5725  !<<IMP
33394 @ 280493:               LINE   5724 "regression-compile-tmp/imp22g-77.imp"
33395 @ 280533:               PUSHI  #0x00000001
33396 @ 280538:               RESULT

  5726      %finish %else %if wc&cat = arry %start
33397 @ 280539:               LINE   5726 "regression-compile-tmp/imp22g-77.imp"
33398 @ 280579:               LOCATE L_0007
33399 @ 280582:               PUSH   WC
33400 @ 280585:               PUSHI  #0x0000000f
33401 @ 280590:               AND   
33402 @ 280591:               PUSHI  #0x00000009
33403 @ 280596:               JUMPIF # L_0007

  5727        %result = TRUE %if wp_type = tp_type %and valok(wp_xtype,tp_xtype)=TRUE
  5728  !<<BOTH
33404 @ 280600:               LINE   5727 "regression-compile-tmp/imp22g-77.imp"
33405 @ 280640:               PUSH   WP
33406 @ 280643:               SELECT 2
33407 @ 280646:               PUSH   TP
33408 @ 280649:               SELECT 2
33409 @ 280652:               JUMPIF # L_000a
33410 @ 280656:               PUSH   VALOK
33411 @ 280659:               PUSH   WP
33412 @ 280662:               SELECT 4
33413 @ 280665:               ASSPAR
33414 @ 280666:               PUSH   TP
33415 @ 280669:               SELECT 4
33416 @ 280672:               ASSPAR
33417 @ 280673:               CALL  
33418 @ 280674:               PUSHI  #0x00000001
33419 @ 280679:               JUMPIF # L_000a
33420 @ 280683:               PUSHI  #0x00000001
33421 @ 280688:               RESULT
33422 @ 280689:               LOCATE L_000a

  5729      %else;                          !record etc
33423 @ 280692:               LINE   5729 "regression-compile-tmp/imp22g-77.imp"
33424 @ 280732:               GOTO   L_0006
33425 @ 280735:               LOCATE L_0007

  5730        %if wanted = recstar %start
33426 @ 280738:               LINE   5730 "regression-compile-tmp/imp22g-77.imp"
33427 @ 280778:               PUSH   WANTED
33428 @ 280781:               PUSHI  #0x00000043
33429 @ 280786:               JUMPIF # L_000a

  5731          %result = TRUE %if t # recstar
33430 @ 280790:               LINE   5731 "regression-compile-tmp/imp22g-77.imp"
33431 @ 280830:               PUSH   T
33432 @ 280833:               PUSHI  #0x00000043
33433 @ 280838:               JUMPIF = L_000d
33434 @ 280842:               PUSHI  #0x00000001
33435 @ 280847:               RESULT
33436 @ 280848:               LOCATE L_000d

  5732        %else
33437 @ 280851:               LINE   5732 "regression-compile-tmp/imp22g-77.imp"
33438 @ 280891:               GOTO   L_0009
33439 @ 280894:               LOCATE L_000a

  5733          %result = TRUE %if t = recstar %or item!value = 0
33440 @ 280897:               LINE   5733 "regression-compile-tmp/imp22g-77.imp"
33441 @ 280937:               PUSH   T
33442 @ 280940:               PUSHI  #0x00000043
33443 @ 280945:               JUMPIF = L_000e
33444 @ 280949:               PUSH   ITEM
33445 @ 280952:               PUSH   VALUE
33446 @ 280955:               OR    
33447 @ 280956:               PUSHI  #0x00000000
33448 @ 280961:               JUMPIF # L_000d
33449 @ 280965:               LOCATE L_000e
33450 @ 280968:               PUSHI  #0x00000001
33451 @ 280973:               RESULT
33452 @ 280974:               LOCATE L_000d

  5734        %finish
33453 @ 280977:               LINE   5734 "regression-compile-tmp/imp22g-77.imp"
33454 @ 281017:               LOCATE L_0009

  5735      %finish
33455 @ 281020:               LINE   5735 "regression-compile-tmp/imp22g-77.imp"
33456 @ 281060:               LOCATE L_0006

  5736    %else;                            !category difference
33457 @ 281063:               LINE   5736 "regression-compile-tmp/imp22g-77.imp"
33458 @ 281103:               GOTO   L_0003
33459 @ 281106:               LOCATE L_0004

  5737      %if tc = inty %start
33460 @ 281109:               LINE   5737 "regression-compile-tmp/imp22g-77.imp"
33461 @ 281149:               PUSH   TC
33462 @ 281152:               PUSHI  #0x00000000
33463 @ 281157:               JUMPIF # L_0007

  5738        %result = TRUE %if wc = recy %and item!value = 0;  !RECORD = 0
33464 @ 281161:               LINE   5738 "regression-compile-tmp/imp22g-77.imp"
33465 @ 281201:               PUSH   WC
33466 @ 281204:               PUSHI  #0x0000000c
33467 @ 281209:               JUMPIF # L_000a
33468 @ 281213:               PUSH   ITEM
33469 @ 281216:               PUSH   VALUE
33470 @ 281219:               OR    
33471 @ 281220:               PUSHI  #0x00000000
33472 @ 281225:               JUMPIF # L_000a
33473 @ 281229:               PUSHI  #0x00000001
33474 @ 281234:               RESULT
33475 @ 281235:               LOCATE L_000a

  5739        toreal %and %result = TRUE %if wc = realy;         !REAL   = INT
33476 @ 281238:               LINE   5739 "regression-compile-tmp/imp22g-77.imp"
33477 @ 281278:               PUSH   WC
33478 @ 281281:               PUSHI  #0x00000005
33479 @ 281286:               JUMPIF # L_000a
33480 @ 281290:               PUSH   TOREAL
33481 @ 281293:               CALL  
33482 @ 281294:               PUSHI  #0x00000001
33483 @ 281299:               RESULT
33484 @ 281300:               LOCATE L_000a

  5740      %finish %else %if wc = stringy %and t = chartype %start;   !STRING = CHAR
33485 @ 281303:               LINE   5740 "regression-compile-tmp/imp22g-77.imp"
33486 @ 281343:               GOTO   L_0006
33487 @ 281346:               LOCATE L_0007
33488 @ 281349:               PUSH   WC
33489 @ 281352:               PUSHI  #0x00000008
33490 @ 281357:               JUMPIF # L_0007
33491 @ 281361:               PUSH   T
33492 @ 281364:               PUSHI  #0x0000003d
33493 @ 281369:               JUMPIF # L_0007

  5741        %if item = 0 %start;           !null string
33494 @ 281373:               LINE   5741 "regression-compile-tmp/imp22g-77.imp"
33495 @ 281413:               PUSH   ITEM
33496 @ 281416:               PUSHI  #0x00000000
33497 @ 281421:               JUMPIF # L_000a

  5742          final(cad) = 1;  final(cad+1) = value
33498 @ 281425:               LINE   5742 "regression-compile-tmp/imp22g-77.imp"
33499 @ 281465:               PUSH   FINAL
33500 @ 281468:               PUSH   CAD
33501 @ 281471:               ACCESS
33502 @ 281472:               PUSHI  #0x00000001
33503 @ 281477:               ASSVAL
33504 @ 281478:               LINE   5742 "regression-compile-tmp/imp22g-77.imp"
33505 @ 281518:               PUSH   FINAL
33506 @ 281521:               PUSH   CAD
33507 @ 281524:               PUSHI  #0x00000001
33508 @ 281529:               ADD   
33509 @ 281530:               ACCESS
33510 @ 281531:               PUSH   VALUE
33511 @ 281534:               ASSVAL

  5743          value = cad;  cad = cad+2
33512 @ 281535:               LINE   5743 "regression-compile-tmp/imp22g-77.imp"
33513 @ 281575:               PUSH   VALUE
33514 @ 281578:               PUSH   CAD
33515 @ 281581:               ASSVAL
33516 @ 281582:               LINE   5743 "regression-compile-tmp/imp22g-77.imp"
33517 @ 281622:               PUSH   CAD
33518 @ 281625:               PUSH   CAD
33519 @ 281628:               PUSHI  #0x00000002
33520 @ 281633:               ADD   
33521 @ 281634:               ASSVAL

  5744          type = stringtype
33522 @ 281635:               LINE   5744 "regression-compile-tmp/imp22g-77.imp"
33523 @ 281675:               PUSH   TYPE
33524 @ 281678:               PUSHI  #0x00000040
33525 @ 281683:               ASSVAL

  5745        %finish %else putexp(dtostring,normitem,0,string1)
33526 @ 281684:               LINE   5745 "regression-compile-tmp/imp22g-77.imp"
33527 @ 281724:               GOTO   L_0009
33528 @ 281727:               LOCATE L_000a
33529 @ 281730:               PUSH   PUTEXP
33530 @ 281733:               PUSHI  #0x0000006b
33531 @ 281738:               ASSPAR
33532 @ 281739:               PUSH   NORMITEM
33533 @ 281742:               CALL  
33534 @ 281743:               ASSPAR
33535 @ 281744:               PUSHI  #0x00000000
33536 @ 281749:               ASSPAR
33537 @ 281750:               PUSHI  #0x0000003f
33538 @ 281755:               ASSPAR
33539 @ 281756:               CALL  
33540 @ 281757:               LOCATE L_0009

  5746        %result = TRUE
  5747  !<<IMP
  5748  ! sets again
  5749  !<<BOTH
33541 @ 281760:               LINE   5746 "regression-compile-tmp/imp22g-77.imp"
33542 @ 281800:               PUSHI  #0x00000001
33543 @ 281805:               RESULT

  5750      %finish
33544 @ 281806:               LINE   5750 "regression-compile-tmp/imp22g-77.imp"
33545 @ 281846:               LOCATE L_0007
33546 @ 281849:               LOCATE L_0006

  5751    %finish
33547 @ 281852:               LINE   5751 "regression-compile-tmp/imp22g-77.imp"
33548 @ 281892:               LOCATE L_0003

  5752    %result = FALSE
33549 @ 281895:               LINE   5752 "regression-compile-tmp/imp22g-77.imp"
33550 @ 281935:               PUSHI  #0x00000000
33551 @ 281940:               RESULT

  5753  %end
  5754  !
33552 @ 281941:               LINE   5753 "regression-compile-tmp/imp22g-77.imp"
33553 @ 281981:            END    _lev0id0_VALOK {lev=2 --> 1}

  5755  %routine GET VALUE(%integer valtype)
33554 @ 281982:            LINE   5755 "regression-compile-tmp/imp22g-77.imp"
33555 @ 282022:            DEF    GETVALUE (_lev0id0_GETVALUE) p1=V_016d 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
33556 @ 282042:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
33557 @ 282043:                  DEF    VALTYPE p1=V_016e a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
33558 @ 282062:               FINISH ) {lev=2}

  5756    get EXPRESSION(major,valtype)
33559 @ 282063:               LINE   5756 "regression-compile-tmp/imp22g-77.imp"
33560 @ 282103:               PUSH   GETEXPRESSION
33561 @ 282106:               PUSHI  #0x00000053
33562 @ 282111:               ASSPAR
33563 @ 282112:               PUSH   VALTYPE
33564 @ 282115:               ASSPAR
33565 @ 282116:               CALL  

  5757  %end;  !GET VALUE
  5758  !
33566 @ 282117:               LINE   5757 "regression-compile-tmp/imp22g-77.imp"
33567 @ 282157:            END    _lev0id0_GETVALUE {lev=2 --> 1}

  5759  %routine GET LITERAL(%integer t)
33568 @ 282158:            LINE   5759 "regression-compile-tmp/imp22g-77.imp"
33569 @ 282198:            DEF    GETLITERAL (_lev0id0_GETLITERAL) p1=V_016e 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
33570 @ 282220:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
33571 @ 282221:                  DEF    T p1=V_016f a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
33572 @ 282234:               FINISH ) {lev=2}

  5760    literal = literal+1
33573 @ 282235:               LINE   5760 "regression-compile-tmp/imp22g-77.imp"
33574 @ 282275:               PUSH   LITERAL
33575 @ 282278:               PUSH   LITERAL
33576 @ 282281:               PUSHI  #0x00000001
33577 @ 282286:               ADD   
33578 @ 282287:               ASSVAL

  5761    get EXPRESSION(major,t)
33579 @ 282288:               LINE   5761 "regression-compile-tmp/imp22g-77.imp"
33580 @ 282328:               PUSH   GETEXPRESSION
33581 @ 282331:               PUSHI  #0x00000053
33582 @ 282336:               ASSPAR
33583 @ 282337:               PUSH   T
33584 @ 282340:               ASSPAR
33585 @ 282341:               CALL  

  5762    literal = literal-1
33586 @ 282342:               LINE   5762 "regression-compile-tmp/imp22g-77.imp"
33587 @ 282382:               PUSH   LITERAL
33588 @ 282385:               PUSH   LITERAL
33589 @ 282388:               PUSHI  #0x00000001
33590 @ 282393:               SUB   
33591 @ 282394:               ASSVAL

  5763  %end
  5764  !
  5765  !!!!!!!!!!!!!!!!!!!!!!  Machine-code  !!!!!!!!!!!!!!!!!!!!!!!!!!
  5766  !
33592 @ 282395:               LINE   5763 "regression-compile-tmp/imp22g-77.imp"
33593 @ 282435:            END    _lev0id0_GETLITERAL {lev=2 --> 1}

  5767  %routine GET MIDENT(%integer min,max)
33594 @ 282436:            LINE   5767 "regression-compile-tmp/imp22g-77.imp"
33595 @ 282476:            DEF    GETMIDENT (_lev0id0_GETMIDENT) p1=V_016f 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
33596 @ 282497:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
33597 @ 282498:                  DEF    MIN p1=V_0170 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
33598 @ 282513:                  DEF    MAX p1=V_0171 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
33599 @ 282528:               FINISH ) {lev=2}

  5768    get(ident)
33600 @ 282529:               LINE   5768 "regression-compile-tmp/imp22g-77.imp"
33601 @ 282569:               PUSH   GET
33602 @ 282572:               PUSHI  #0x00000035
33603 @ 282577:               ASSPAR
33604 @ 282578:               CALL  

  5769    %if item <= 0 %start
33605 @ 282579:               LINE   5769 "regression-compile-tmp/imp22g-77.imp"
33606 @ 282619:               PUSH   ITEM
33607 @ 282622:               PUSHI  #0x00000000
33608 @ 282627:               JUMPIF > L_0004

  5770      name error %if string(charlim) # "sp"
33609 @ 282631:               LINE   5770 "regression-compile-tmp/imp22g-77.imp"
33610 @ 282671:               PUSH   STRING
33611 @ 282674:               PUSH   CHARLIM
33612 @ 282677:               ASSPAR
33613 @ 282678:               CALL  
33614 @ 282679:               PUSHS  "sp"
33615 @ 282683:               JUMPIF = L_0007
33616 @ 282687:               PUSH   NAMEERROR
33617 @ 282690:               CALL  
33618 @ 282691:               LOCATE L_0007

  5771      item = a7
33619 @ 282694:               LINE   5771 "regression-compile-tmp/imp22g-77.imp"
33620 @ 282734:               PUSH   ITEM
33621 @ 282737:               PUSHI  #0x00000010
33622 @ 282742:               ASSVAL

  5772      ditem == dict(item)
33623 @ 282743:               LINE   5772 "regression-compile-tmp/imp22g-77.imp"
33624 @ 282783:               PUSH   DITEM
33625 @ 282786:               PUSH   DICT
33626 @ 282789:               PUSH   ITEM
33627 @ 282792:               ACCESS
33628 @ 282793:               ASSREF

  5773    %finish
33629 @ 282794:               LINE   5773 "regression-compile-tmp/imp22g-77.imp"
33630 @ 282834:               LOCATE L_0004

  5774    %if ditem_mode = litmode %start
33631 @ 282837:               LINE   5774 "regression-compile-tmp/imp22g-77.imp"
33632 @ 282877:               PUSH   DITEM
33633 @ 282880:               SELECT 8
33634 @ 282883:               PUSHI  #0x0000003c
33635 @ 282888:               JUMPIF # L_0004

  5775      value = ditem_val;  item = 0
33636 @ 282892:               LINE   5775 "regression-compile-tmp/imp22g-77.imp"
33637 @ 282932:               PUSH   VALUE
33638 @ 282935:               PUSH   DITEM
33639 @ 282938:               SELECT 9
33640 @ 282941:               ASSVAL
33641 @ 282942:               LINE   5775 "regression-compile-tmp/imp22g-77.imp"
33642 @ 282982:               PUSH   ITEM
33643 @ 282985:               PUSHI  #0x00000000
33644 @ 282990:               ASSVAL

  5776    %finish
33645 @ 282991:               LINE   5776 "regression-compile-tmp/imp22g-77.imp"
33646 @ 283031:               LOCATE L_0004

  5777    syntax error %unless min <= item <= max
33647 @ 283034:               LINE   5777 "regression-compile-tmp/imp22g-77.imp"
33648 @ 283074:               PUSH   MIN
33649 @ 283077:               PUSH   ITEM
33650 @ 283080:               JUMPIFD > L_0005
33651 @ 283084:               PUSH   MAX
33652 @ 283087:               JUMPIF <= L_0004
33653 @ 283091:               LOCATE L_0005
33654 @ 283094:               PUSH   SYNTAXERROR
33655 @ 283097:               CALL  
33656 @ 283098:               LOCATE L_0004

  5778  %end
  5779  
33657 @ 283101:               LINE   5778 "regression-compile-tmp/imp22g-77.imp"
33658 @ 283141:            END    _lev0id0_GETMIDENT {lev=2 --> 1}

  5780  %routine GET REGSET
33659 @ 283142:            LINE   5780 "regression-compile-tmp/imp22g-77.imp"
33660 @ 283182:            DEF    GETREGSET (_lev0id0_GETREGSET) p1=V_0170 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
33661 @ 283203:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
33662 @ 283204:               FINISH ) {lev=2}

  5781  %integer hold,set
33663 @ 283205:               LINE   5781 "regression-compile-tmp/imp22g-77.imp"
33664 @ 283245:               DEF    HOLD p1=V_0171 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
33665 @ 283261:               DEF    SET p1=V_0172 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  5782    set=0
33666 @ 283276:               LINE   5782 "regression-compile-tmp/imp22g-77.imp"
33667 @ 283316:               PUSH   SET
33668 @ 283319:               PUSHI  #0x00000000
33669 @ 283324:               ASSVAL

  5783    %cycle
33670 @ 283325:               LINE   5783 "regression-compile-tmp/imp22g-77.imp"
33671 @ 283365:               LOCATE L_0003

  5784      get mident(d0,a7)
33672 @ 283368:               LINE   5784 "regression-compile-tmp/imp22g-77.imp"
33673 @ 283408:               PUSH   GETMIDENT
33674 @ 283411:               PUSHI  #0x00000001
33675 @ 283416:               ASSPAR
33676 @ 283417:               PUSHI  #0x00000010
33677 @ 283422:               ASSPAR
33678 @ 283423:               CALL  

  5785      hold = item
33679 @ 283424:               LINE   5785 "regression-compile-tmp/imp22g-77.imp"
33680 @ 283464:               PUSH   HOLD
33681 @ 283467:               PUSH   ITEM
33682 @ 283470:               ASSVAL

  5786      get mident(hold,a7) %if a(minus)=TRUE
33683 @ 283471:               LINE   5786 "regression-compile-tmp/imp22g-77.imp"
33684 @ 283511:               PUSH   A
33685 @ 283514:               PUSHI  #0x00000054
33686 @ 283519:               ASSPAR
33687 @ 283520:               CALL  
33688 @ 283521:               PUSHI  #0x00000001
33689 @ 283526:               JUMPIF # L_0007
33690 @ 283530:               PUSH   GETMIDENT
33691 @ 283533:               PUSH   HOLD
33692 @ 283536:               ASSPAR
33693 @ 283537:               PUSHI  #0x00000010
33694 @ 283542:               ASSPAR
33695 @ 283543:               CALL  
33696 @ 283544:               LOCATE L_0007

  5787      %cycle
33697 @ 283547:               LINE   5787 "regression-compile-tmp/imp22g-77.imp"
33698 @ 283587:               LOCATE L_0006

  5788        set = set!1<<(hold-d0)
33699 @ 283590:               LINE   5788 "regression-compile-tmp/imp22g-77.imp"
33700 @ 283630:               PUSH   SET
33701 @ 283633:               PUSH   SET
33702 @ 283636:               PUSHI  #0x00000001
33703 @ 283641:               PUSH   HOLD
33704 @ 283644:               PUSHI  #0x00000001
33705 @ 283649:               SUB   
33706 @ 283650:               LSH   
33707 @ 283651:               OR    
33708 @ 283652:               ASSVAL

  5789        hold = hold+1
33709 @ 283653:               LINE   5789 "regression-compile-tmp/imp22g-77.imp"
33710 @ 283693:               PUSH   HOLD
33711 @ 283696:               PUSH   HOLD
33712 @ 283699:               PUSHI  #0x00000001
33713 @ 283704:               ADD   
33714 @ 283705:               ASSVAL

  5790      %repeat %until hold > item
33715 @ 283706:               LINE   5790 "regression-compile-tmp/imp22g-77.imp"
33716 @ 283746:               PUSH   HOLD
33717 @ 283749:               PUSH   ITEM
33718 @ 283752:               JUMPIF > L_0007
33719 @ 283756:               REPEAT L_0006
33720 @ 283759:               LOCATE L_0007

  5791    %repeat %until %not a(slash)=TRUE
33721 @ 283762:               LINE   5791 "regression-compile-tmp/imp22g-77.imp"
33722 @ 283802:               PUSH   A
33723 @ 283805:               PUSHI  #0x0000005a
33724 @ 283810:               ASSPAR
33725 @ 283811:               CALL  
33726 @ 283812:               PUSHI  #0x00000001
33727 @ 283817:               JUMPIF # L_0004
33728 @ 283821:               REPEAT L_0003
33729 @ 283824:               LOCATE L_0004

  5792    item = 0;  value = set
33730 @ 283827:               LINE   5792 "regression-compile-tmp/imp22g-77.imp"
33731 @ 283867:               PUSH   ITEM
33732 @ 283870:               PUSHI  #0x00000000
33733 @ 283875:               ASSVAL
33734 @ 283876:               LINE   5792 "regression-compile-tmp/imp22g-77.imp"
33735 @ 283916:               PUSH   VALUE
33736 @ 283919:               PUSH   SET
33737 @ 283922:               ASSVAL

  5793  %end
  5794  
33738 @ 283923:               LINE   5793 "regression-compile-tmp/imp22g-77.imp"
33739 @ 283963:            END    _lev0id0_GETREGSET {lev=2 --> 1}

  5795  %routine get MCODE
33740 @ 283964:            LINE   5795 "regression-compile-tmp/imp22g-77.imp"
33741 @ 284004:            DEF    GETMCODE (_lev0id0_GETMCODE) p1=V_0171 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
33742 @ 284024:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
33743 @ 284025:               FINISH ) {lev=2}

  5796  %integer op,x,y,types
  5797  
33744 @ 284026:               LINE   5796 "regression-compile-tmp/imp22g-77.imp"
33745 @ 284066:               DEF    OP p1=V_0172 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
33746 @ 284080:               DEF    X p1=V_0173 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
33747 @ 284093:               DEF    Y p1=V_0174 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
33748 @ 284106:               DEF    TYPES p1=V_0175 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  5798  %integer%fn OPSIZE(%integer okbyte)
33749 @ 284123:               LINE   5798 "regression-compile-tmp/imp22g-77.imp"
33750 @ 284163:               DEF    OPSIZE (_lev0id0_GETMCODE_OPSIZE) p1=V_0176 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
33751 @ 284181:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
33752 @ 284182:                     DEF    OKBYTE p1=V_0177 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
33753 @ 284200:                  FINISH ) {lev=3}

  5799    %result = 0 %unless a(dot)=TRUE
33754 @ 284201:                  LINE   5799 "regression-compile-tmp/imp22g-77.imp"
33755 @ 284241:                  PUSH   A
33756 @ 284244:                  PUSHI  #0x00000057
33757 @ 284249:                  ASSPAR
33758 @ 284250:                  CALL  
33759 @ 284251:                  PUSHI  #0x00000001
33760 @ 284256:                  JUMPIF = L_0004
33761 @ 284260:                  PUSHI  #0x00000000
33762 @ 284265:                  RESULT
33763 @ 284266:                  LOCATE L_0004

  5800    sym = byteinteger(fp)&(\casebit);  fp = fp+1
33764 @ 284269:                  LINE   5800 "regression-compile-tmp/imp22g-77.imp"
33765 @ 284309:                  PUSH   SYM
33766 @ 284312:                  PUSH   BYTEINTEGER
33767 @ 284315:                  PUSH   FP
33768 @ 284318:                  ASSPAR
33769 @ 284319:                  CALL  
33770 @ 284320:                  PUSHI  #0x00000020
33771 @ 284325:                  NOT   
33772 @ 284326:                  AND   
33773 @ 284327:                  ASSVAL
33774 @ 284328:                  LINE   5800 "regression-compile-tmp/imp22g-77.imp"
33775 @ 284368:                  PUSH   FP
33776 @ 284371:                  PUSH   FP
33777 @ 284374:                  PUSHI  #0x00000001
33778 @ 284379:                  ADD   
33779 @ 284380:                  ASSVAL

  5801    %result = 4 %if sym = 'L'
33780 @ 284381:                  LINE   5801 "regression-compile-tmp/imp22g-77.imp"
33781 @ 284421:                  PUSH   SYM
33782 @ 284424:                  PUSHI  #0x0000004c
33783 @ 284429:                  JUMPIF # L_0004
33784 @ 284433:                  PUSHI  #0x00000004
33785 @ 284438:                  RESULT
33786 @ 284439:                  LOCATE L_0004

  5802    %result = 2 %if sym = 'W'
33787 @ 284442:                  LINE   5802 "regression-compile-tmp/imp22g-77.imp"
33788 @ 284482:                  PUSH   SYM
33789 @ 284485:                  PUSHI  #0x00000057
33790 @ 284490:                  JUMPIF # L_0004
33791 @ 284494:                  PUSHI  #0x00000002
33792 @ 284499:                  RESULT
33793 @ 284500:                  LOCATE L_0004

  5803    %result = 1 %if sym = okbyte
33794 @ 284503:                  LINE   5803 "regression-compile-tmp/imp22g-77.imp"
33795 @ 284543:                  PUSH   SYM
33796 @ 284546:                  PUSH   OKBYTE
33797 @ 284549:                  JUMPIF # L_0004
33798 @ 284553:                  PUSHI  #0x00000001
33799 @ 284558:                  RESULT
33800 @ 284559:                  LOCATE L_0004

  5804    syntax error
33801 @ 284562:                  LINE   5804 "regression-compile-tmp/imp22g-77.imp"
33802 @ 284602:                  PUSH   SYNTAXERROR
33803 @ 284605:                  CALL  

  5805  %end
  5806  
33804 @ 284606:                  LINE   5805 "regression-compile-tmp/imp22g-77.imp"
33805 @ 284646:               END    _lev0id0_GETMCODE_OPSIZE {lev=3 --> 2}

  5807  %routine get MOP(%integer t,dummy,%record(identinfo)%name dp)
  5808  !Get Mcode operand
33806 @ 284647:               LINE   5807 "regression-compile-tmp/imp22g-77.imp"
33807 @ 284687:               DEF    GETMOP (_lev0id0_GETMCODE_GETMOP) p1=V_0177 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
33808 @ 284705:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
33809 @ 284706:                     DEF    T p1=V_0178 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
33810 @ 284719:                     DEF    DUMMY p1=V_0179 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
33811 @ 284736:                     DEF    DP p1=V_017a a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
33812 @ 284750:                  FINISH ) {lev=3}

  5809  %constinteger HASHSIGN=noteq
33813 @ 284751:                  LINE   5809 "regression-compile-tmp/imp22g-77.imp"

  5810  %integer sign,hold,holdval,m
33814 @ 284791:                  LINE   5810 "regression-compile-tmp/imp22g-77.imp"
33815 @ 284831:                  DEF    SIGN p1=V_017b a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
33816 @ 284847:                  DEF    HOLD p1=V_017c a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
33817 @ 284863:                  DEF    HOLDVAL p1=V_017d a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
33818 @ 284882:                  DEF    M p1=V_017e a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  5811    %if a(hashsign)=TRUE %start
33819 @ 284895:                  LINE   5811 "regression-compile-tmp/imp22g-77.imp"
33820 @ 284935:                  PUSH   A
33821 @ 284938:                  PUSHI  #0x0000004e
33822 @ 284943:                  ASSPAR
33823 @ 284944:                  CALL  
33824 @ 284945:                  PUSHI  #0x00000001
33825 @ 284950:                  JUMPIF # L_0004

  5812      get LITERAL(inttype)
33826 @ 284954:                  LINE   5812 "regression-compile-tmp/imp22g-77.imp"
33827 @ 284994:                  PUSH   GETLITERAL
33828 @ 284997:                  PUSHI  #0x0000002b
33829 @ 285002:                  ASSPAR
33830 @ 285003:                  CALL  

  5813      %return
33831 @ 285004:                  LINE   5813 "regression-compile-tmp/imp22g-77.imp"
33832 @ 285044:                  RETURN

  5814    %finish
33833 @ 285045:                  LINE   5814 "regression-compile-tmp/imp22g-77.imp"
33834 @ 285085:                  LOCATE L_0004

  5815    sign = 0;  hold = -1;  holdval = 0
33835 @ 285088:                  LINE   5815 "regression-compile-tmp/imp22g-77.imp"
33836 @ 285128:                  PUSH   SIGN
33837 @ 285131:                  PUSHI  #0x00000000
33838 @ 285136:                  ASSVAL
33839 @ 285137:                  LINE   5815 "regression-compile-tmp/imp22g-77.imp"
33840 @ 285177:                  PUSH   HOLD
33841 @ 285180:                  PUSHI  #0x00000001
33842 @ 285185:                  NEGATE
33843 @ 285186:                  ASSVAL
33844 @ 285187:                  LINE   5815 "regression-compile-tmp/imp22g-77.imp"
33845 @ 285227:                  PUSH   HOLDVAL
33846 @ 285230:                  PUSHI  #0x00000000
33847 @ 285235:                  ASSVAL

  5816    sign = 1 %if a(minus)=TRUE
33848 @ 285236:                  LINE   5816 "regression-compile-tmp/imp22g-77.imp"
33849 @ 285276:                  PUSH   A
33850 @ 285279:                  PUSHI  #0x00000054
33851 @ 285284:                  ASSPAR
33852 @ 285285:                  CALL  
33853 @ 285286:                  PUSHI  #0x00000001
33854 @ 285291:                  JUMPIF # L_0004
33855 @ 285295:                  PUSH   SIGN
33856 @ 285298:                  PUSHI  #0x00000001
33857 @ 285303:                  ASSVAL
33858 @ 285304:                  LOCATE L_0004

  5817    %if a(ident)=TRUE %start
33859 @ 285307:                  LINE   5817 "regression-compile-tmp/imp22g-77.imp"
33860 @ 285347:                  PUSH   A
33861 @ 285350:                  PUSHI  #0x00000035
33862 @ 285355:                  ASSPAR
33863 @ 285356:                  CALL  
33864 @ 285357:                  PUSHI  #0x00000001
33865 @ 285362:                  JUMPIF # L_0004

  5818      matched = 0
33866 @ 285366:                  LINE   5818 "regression-compile-tmp/imp22g-77.imp"
33867 @ 285406:                  PUSH   MATCHED
33868 @ 285409:                  PUSHI  #0x00000000
33869 @ 285414:                  ASSVAL

  5819      get mident(0,dlim)
33870 @ 285415:                  LINE   5819 "regression-compile-tmp/imp22g-77.imp"
33871 @ 285455:                  PUSH   GETMIDENT
33872 @ 285458:                  PUSHI  #0x00000000
33873 @ 285463:                  ASSPAR
33874 @ 285464:                  PUSH   DLIM
33875 @ 285467:                  ASSPAR
33876 @ 285468:                  CALL  

  5820      hold = item
33877 @ 285469:                  LINE   5820 "regression-compile-tmp/imp22g-77.imp"
33878 @ 285509:                  PUSH   HOLD
33879 @ 285512:                  PUSH   ITEM
33880 @ 285515:                  ASSVAL

  5821      %if hold # 0 %start
33881 @ 285516:                  LINE   5821 "regression-compile-tmp/imp22g-77.imp"
33882 @ 285556:                  PUSH   HOLD
33883 @ 285559:                  PUSHI  #0x00000000
33884 @ 285564:                  JUMPIF = L_0007

  5822        syntax error %if sign # 0
33885 @ 285568:                  LINE   5822 "regression-compile-tmp/imp22g-77.imp"
33886 @ 285608:                  PUSH   SIGN
33887 @ 285611:                  PUSHI  #0x00000000
33888 @ 285616:                  JUMPIF = L_000a
33889 @ 285620:                  PUSH   SYNTAXERROR
33890 @ 285623:                  CALL  
33891 @ 285624:                  LOCATE L_000a

  5823        %if item > a7 %start
33892 @ 285627:                  LINE   5823 "regression-compile-tmp/imp22g-77.imp"
33893 @ 285667:                  PUSH   ITEM
33894 @ 285670:                  PUSHI  #0x00000010
33895 @ 285675:                  JUMPIF <= L_000a

  5824          dp_flags = ditem_flags
33896 @ 285679:                  LINE   5824 "regression-compile-tmp/imp22g-77.imp"
33897 @ 285719:                  PUSH   DP
33898 @ 285722:                  SELECT 1
33899 @ 285725:                  PUSH   DITEM
33900 @ 285728:                  SELECT 1
33901 @ 285731:                  ASSVAL

  5825          dp_mode = ditem_mode;  dp_val = ditem_val
33902 @ 285732:                  LINE   5825 "regression-compile-tmp/imp22g-77.imp"
33903 @ 285772:                  PUSH   DP
33904 @ 285775:                  SELECT 8
33905 @ 285778:                  PUSH   DITEM
33906 @ 285781:                  SELECT 8
33907 @ 285784:                  ASSVAL
33908 @ 285785:                  LINE   5825 "regression-compile-tmp/imp22g-77.imp"
33909 @ 285825:                  PUSH   DP
33910 @ 285828:                  SELECT 9
33911 @ 285831:                  PUSH   DITEM
33912 @ 285834:                  SELECT 9
33913 @ 285837:                  ASSVAL

  5826          %while a(recsub)=TRUE %cycle
33914 @ 285838:                  LINE   5826 "regression-compile-tmp/imp22g-77.imp"
33915 @ 285878:                  LOCATE L_000c
33916 @ 285881:                  PUSH   A
33917 @ 285884:                  PUSHI  #0x0000003a
33918 @ 285889:                  ASSPAR
33919 @ 285890:                  CALL  
33920 @ 285891:                  PUSHI  #0x00000001
33921 @ 285896:                  JUMPIF # L_000d

  5827            dformat == typecell(ditem_type)
33922 @ 285900:                  LINE   5827 "regression-compile-tmp/imp22g-77.imp"
33923 @ 285940:                  PUSH   DFORMAT
33924 @ 285943:                  PUSH   TYPECELL
33925 @ 285946:                  PUSH   DITEM
33926 @ 285949:                  SELECT 2
33927 @ 285952:                  ASSPAR
33928 @ 285953:                  CALL  
33929 @ 285954:                  ASSREF

  5828            syntax error %unless dformat_flags&cat = recy %c
  5829                         %and ditem_flags&(name+indirect) = 0
33930 @ 285955:                  LINE   5828 "regression-compile-tmp/imp22g-77.imp"
33931 @ 285995:                  PUSH   DFORMAT
33932 @ 285998:                  SELECT 1
33933 @ 286001:                  PUSHI  #0x0000000f
33934 @ 286006:                  AND   
33935 @ 286007:                  PUSHI  #0x0000000c
33936 @ 286012:                  JUMPIF # L_0011
33937 @ 286016:                  PUSH   DITEM
33938 @ 286019:                  SELECT 1
33939 @ 286022:                  PUSHI  #0xffff8000
33940 @ 286027:                  PUSHI  #0x00000800
33941 @ 286032:                  ADD   
33942 @ 286033:                  AND   
33943 @ 286034:                  PUSHI  #0x00000000
33944 @ 286039:                  JUMPIF = L_0010
33945 @ 286043:                  LOCATE L_0011
33946 @ 286046:                  PUSH   SYNTAXERROR
33947 @ 286049:                  CALL  
33948 @ 286050:                  LOCATE L_0010

  5830            subbed = 1;  get(ident);  subbed = 0
33949 @ 286053:                  LINE   5830 "regression-compile-tmp/imp22g-77.imp"
33950 @ 286093:                  PUSH   SUBBED
33951 @ 286096:                  PUSHI  #0x00000001
33952 @ 286101:                  ASSVAL
33953 @ 286102:                  LINE   5830 "regression-compile-tmp/imp22g-77.imp"
33954 @ 286142:                  PUSH   GET
33955 @ 286145:                  PUSHI  #0x00000035
33956 @ 286150:                  ASSPAR
33957 @ 286151:                  CALL  
33958 @ 286152:                  LINE   5830 "regression-compile-tmp/imp22g-77.imp"
33959 @ 286192:                  PUSH   SUBBED
33960 @ 286195:                  PUSHI  #0x00000000
33961 @ 286200:                  ASSVAL

  5831            error(namerr+point) %if item <= 0
33962 @ 286201:                  LINE   5831 "regression-compile-tmp/imp22g-77.imp"
33963 @ 286241:                  PUSH   ITEM
33964 @ 286244:                  PUSHI  #0x00000000
33965 @ 286249:                  JUMPIF > L_0010
33966 @ 286253:                  PUSH   ERROR
33967 @ 286256:                  PUSHI  #0x00000009
33968 @ 286261:                  PUSHI  #0x00000040
33969 @ 286266:                  ADD   
33970 @ 286267:                  ASSPAR
33971 @ 286268:                  CALL  
33972 @ 286269:                  LOCATE L_0010

  5832            dp_flags = ditem_flags;  dp_type = ditem_type
33973 @ 286272:                  LINE   5832 "regression-compile-tmp/imp22g-77.imp"
33974 @ 286312:                  PUSH   DP
33975 @ 286315:                  SELECT 1
33976 @ 286318:                  PUSH   DITEM
33977 @ 286321:                  SELECT 1
33978 @ 286324:                  ASSVAL
33979 @ 286325:                  LINE   5832 "regression-compile-tmp/imp22g-77.imp"
33980 @ 286365:                  PUSH   DP
33981 @ 286368:                  SELECT 2
33982 @ 286371:                  PUSH   DITEM
33983 @ 286374:                  SELECT 2
33984 @ 286377:                  ASSVAL

  5833            dp_val = dp_val+ditem_val
33985 @ 286378:                  LINE   5833 "regression-compile-tmp/imp22g-77.imp"
33986 @ 286418:                  PUSH   DP
33987 @ 286421:                  SELECT 9
33988 @ 286424:                  PUSH   DP
33989 @ 286427:                  SELECT 9
33990 @ 286430:                  PUSH   DITEM
33991 @ 286433:                  SELECT 9
33992 @ 286436:                  ADD   
33993 @ 286437:                  ASSVAL

  5834            item = dummy;  ditem == dp
33994 @ 286438:                  LINE   5834 "regression-compile-tmp/imp22g-77.imp"
33995 @ 286478:                  PUSH   ITEM
33996 @ 286481:                  PUSH   DUMMY
33997 @ 286484:                  ASSVAL
33998 @ 286485:                  LINE   5834 "regression-compile-tmp/imp22g-77.imp"
33999 @ 286525:                  PUSH   DITEM
34000 @ 286528:                  PUSH   DP
34001 @ 286531:                  ASSREF

  5835          %repeat
34002 @ 286532:                  LINE   5835 "regression-compile-tmp/imp22g-77.imp"
34003 @ 286572:                  REPEAT L_000c
34004 @ 286575:                  LOCATE L_000d

  5836          %return
34005 @ 286578:                  LINE   5836 "regression-compile-tmp/imp22g-77.imp"
34006 @ 286618:                  RETURN

  5837        %finish
34007 @ 286619:                  LINE   5837 "regression-compile-tmp/imp22g-77.imp"
34008 @ 286659:                  LOCATE L_000a

  5838        %if op&255 = movem %and item > 0 %start
34009 @ 286662:                  LINE   5838 "regression-compile-tmp/imp22g-77.imp"
34010 @ 286702:                  PUSH   OP
34011 @ 286705:                  PUSHI  #0x000000ff
34012 @ 286710:                  AND   
34013 @ 286711:                  PUSHI  #0x00000064
34014 @ 286716:                  JUMPIF # L_000a
34015 @ 286720:                  PUSH   ITEM
34016 @ 286723:                  PUSHI  #0x00000000
34017 @ 286728:                  JUMPIF <= L_000a

  5839          matched = 0
34018 @ 286732:                  LINE   5839 "regression-compile-tmp/imp22g-77.imp"
34019 @ 286772:                  PUSH   MATCHED
34020 @ 286775:                  PUSHI  #0x00000000
34021 @ 286780:                  ASSVAL

  5840          get regset
34022 @ 286781:                  LINE   5840 "regression-compile-tmp/imp22g-77.imp"
34023 @ 286821:                  PUSH   GETREGSET
34024 @ 286824:                  CALL  

  5841        %finish
34025 @ 286825:                  LINE   5841 "regression-compile-tmp/imp22g-77.imp"
34026 @ 286865:                  LOCATE L_000a

  5842        %return
34027 @ 286868:                  LINE   5842 "regression-compile-tmp/imp22g-77.imp"
34028 @ 286908:                  RETURN

  5843      %finish
34029 @ 286909:                  LINE   5843 "regression-compile-tmp/imp22g-77.imp"
34030 @ 286949:                  LOCATE L_0007

  5844      holdval = value
34031 @ 286952:                  LINE   5844 "regression-compile-tmp/imp22g-77.imp"
34032 @ 286992:                  PUSH   HOLDVAL
34033 @ 286995:                  PUSH   VALUE
34034 @ 286998:                  ASSVAL

  5845    %finish %else %if a(const)=TRUE %start
34035 @ 286999:                  LINE   5845 "regression-compile-tmp/imp22g-77.imp"
34036 @ 287039:                  GOTO   L_0003
34037 @ 287042:                  LOCATE L_0004
34038 @ 287045:                  PUSH   A
34039 @ 287048:                  PUSHI  #0x00000034
34040 @ 287053:                  ASSPAR
34041 @ 287054:                  CALL  
34042 @ 287055:                  PUSHI  #0x00000001
34043 @ 287060:                  JUMPIF # L_0004

  5846      hold = 0;  holdval = value
34044 @ 287064:                  LINE   5846 "regression-compile-tmp/imp22g-77.imp"
34045 @ 287104:                  PUSH   HOLD
34046 @ 287107:                  PUSHI  #0x00000000
34047 @ 287112:                  ASSVAL
34048 @ 287113:                  LINE   5846 "regression-compile-tmp/imp22g-77.imp"
34049 @ 287153:                  PUSH   HOLDVAL
34050 @ 287156:                  PUSH   VALUE
34051 @ 287159:                  ASSVAL

  5847    %finish
34052 @ 287160:                  LINE   5847 "regression-compile-tmp/imp22g-77.imp"
34053 @ 287200:                  LOCATE L_0004
34054 @ 287203:                  LOCATE L_0003

  5848    holdval = -holdval %if sign # 0
34055 @ 287206:                  LINE   5848 "regression-compile-tmp/imp22g-77.imp"
34056 @ 287246:                  PUSH   SIGN
34057 @ 287249:                  PUSHI  #0x00000000
34058 @ 287254:                  JUMPIF = L_0004
34059 @ 287258:                  PUSH   HOLDVAL
34060 @ 287261:                  PUSH   HOLDVAL
34061 @ 287264:                  NEGATE
34062 @ 287265:                  ASSVAL
34063 @ 287266:                  LOCATE L_0004

  5849    %if a(left)=TRUE %start
34064 @ 287269:                  LINE   5849 "regression-compile-tmp/imp22g-77.imp"
34065 @ 287309:                  PUSH   A
34066 @ 287312:                  PUSHI  #0x00000037
34067 @ 287317:                  ASSPAR
34068 @ 287318:                  CALL  
34069 @ 287319:                  PUSHI  #0x00000001
34070 @ 287324:                  JUMPIF # L_0004

  5850      get mident(a0,a7)
34071 @ 287328:                  LINE   5850 "regression-compile-tmp/imp22g-77.imp"
34072 @ 287368:                  PUSH   GETMIDENT
34073 @ 287371:                  PUSHI  #0x00000009
34074 @ 287376:                  ASSPAR
34075 @ 287377:                  PUSHI  #0x00000010
34076 @ 287382:                  ASSPAR
34077 @ 287383:                  CALL  

  5851      %if hold < 0 %start
34078 @ 287384:                  LINE   5851 "regression-compile-tmp/imp22g-77.imp"
34079 @ 287424:                  PUSH   HOLD
34080 @ 287427:                  PUSHI  #0x00000000
34081 @ 287432:                  JUMPIF >= L_0007

  5852        get(right)
34082 @ 287436:                  LINE   5852 "regression-compile-tmp/imp22g-77.imp"
34083 @ 287476:                  PUSH   GET
34084 @ 287479:                  PUSHI  #0x0000003d
34085 @ 287484:                  ASSPAR
34086 @ 287485:                  CALL  

  5853        %if sign # 0 %then item = item+pre %c
  5854        %else %unless a(plus)=TRUE %then item = item+indir %c
  5855        %else item = item+post
34087 @ 287486:                  LINE   5853 "regression-compile-tmp/imp22g-77.imp"
34088 @ 287526:                  PUSH   SIGN
34089 @ 287529:                  PUSHI  #0x00000000
34090 @ 287534:                  JUMPIF = L_000a
34091 @ 287538:                  PUSH   ITEM
34092 @ 287541:                  PUSH   ITEM
34093 @ 287544:                  PUSHI  #0x00000018
34094 @ 287549:                  ADD   
34095 @ 287550:                  ASSVAL
34096 @ 287551:                  GOTO   L_0009
34097 @ 287554:                  LOCATE L_000a
34098 @ 287557:                  PUSH   A
34099 @ 287560:                  PUSHI  #0x00000053
34100 @ 287565:                  ASSPAR
34101 @ 287566:                  CALL  
34102 @ 287567:                  PUSHI  #0x00000001
34103 @ 287572:                  JUMPIF = L_000a
34104 @ 287576:                  PUSH   ITEM
34105 @ 287579:                  PUSH   ITEM
34106 @ 287582:                  PUSHI  #0x00000008
34107 @ 287587:                  ADD   
34108 @ 287588:                  ASSVAL
34109 @ 287589:                  GOTO   L_0009
34110 @ 287592:                  LOCATE L_000a
34111 @ 287595:                  PUSH   ITEM
34112 @ 287598:                  PUSH   ITEM
34113 @ 287601:                  PUSHI  #0x00000010
34114 @ 287606:                  ADD   
34115 @ 287607:                  ASSVAL
34116 @ 287608:                  LOCATE L_0009

  5856        %return
34117 @ 287611:                  LINE   5856 "regression-compile-tmp/imp22g-77.imp"
34118 @ 287651:                  RETURN

  5857      %finish
34119 @ 287652:                  LINE   5857 "regression-compile-tmp/imp22g-77.imp"
34120 @ 287692:                  LOCATE L_0007

  5858      m = item+(dispmode-a0)
34121 @ 287695:                  LINE   5858 "regression-compile-tmp/imp22g-77.imp"
34122 @ 287735:                  PUSH   M
34123 @ 287738:                  PUSH   ITEM
34124 @ 287741:                  PUSHI  #0x00000028
34125 @ 287746:                  PUSHI  #0x00000009
34126 @ 287751:                  SUB   
34127 @ 287752:                  ADD   
34128 @ 287753:                  ASSVAL

  5859      %if a(comma)=TRUE %start
34129 @ 287754:                  LINE   5859 "regression-compile-tmp/imp22g-77.imp"
34130 @ 287794:                  PUSH   A
34131 @ 287797:                  PUSHI  #0x0000003c
34132 @ 287802:                  ASSPAR
34133 @ 287803:                  CALL  
34134 @ 287804:                  PUSHI  #0x00000001
34135 @ 287809:                  JUMPIF # L_0007

  5860        get mident(d0,a7)
34136 @ 287813:                  LINE   5860 "regression-compile-tmp/imp22g-77.imp"
34137 @ 287853:                  PUSH   GETMIDENT
34138 @ 287856:                  PUSHI  #0x00000001
34139 @ 287861:                  ASSPAR
34140 @ 287862:                  PUSHI  #0x00000010
34141 @ 287867:                  ASSPAR
34142 @ 287868:                  CALL  

  5861        fault(rangerr) %unless is mite(holdval)=TRUE
34143 @ 287869:                  LINE   5861 "regression-compile-tmp/imp22g-77.imp"
34144 @ 287909:                  PUSH   ISMITE
34145 @ 287912:                  PUSH   HOLDVAL
34146 @ 287915:                  ASSPAR
34147 @ 287916:                  CALL  
34148 @ 287917:                  PUSHI  #0x00000001
34149 @ 287922:                  JUMPIF = L_000a
34150 @ 287926:                  PUSH   FAULT
34151 @ 287929:                  PUSHI  #0x00000018
34152 @ 287934:                  ASSPAR
34153 @ 287935:                  CALL  
34154 @ 287936:                  LOCATE L_000a

  5862        m = m+(indexmode-dispmode)
34155 @ 287939:                  LINE   5862 "regression-compile-tmp/imp22g-77.imp"
34156 @ 287979:                  PUSH   M
34157 @ 287982:                  PUSH   M
34158 @ 287985:                  PUSHI  #0x00000030
34159 @ 287990:                  PUSHI  #0x00000028
34160 @ 287995:                  SUB   
34161 @ 287996:                  ADD   
34162 @ 287997:                  ASSVAL

  5863        holdval = (item-d0)<<12+holdval&255
34163 @ 287998:                  LINE   5863 "regression-compile-tmp/imp22g-77.imp"
34164 @ 288038:                  PUSH   HOLDVAL
34165 @ 288041:                  PUSH   ITEM
34166 @ 288044:                  PUSHI  #0x00000001
34167 @ 288049:                  SUB   
34168 @ 288050:                  PUSHI  #0x0000000c
34169 @ 288055:                  LSH   
34170 @ 288056:                  PUSH   HOLDVAL
34171 @ 288059:                  PUSHI  #0x000000ff
34172 @ 288064:                  AND   
34173 @ 288065:                  ADD   
34174 @ 288066:                  ASSVAL

  5864        holdval = holdval+16_0800 %if opsize(0) # 2
34175 @ 288067:                  LINE   5864 "regression-compile-tmp/imp22g-77.imp"
34176 @ 288107:                  PUSH   OPSIZE
34177 @ 288110:                  PUSHI  #0x00000000
34178 @ 288115:                  ASSPAR
34179 @ 288116:                  CALL  
34180 @ 288117:                  PUSHI  #0x00000002
34181 @ 288122:                  JUMPIF = L_000a
34182 @ 288126:                  PUSH   HOLDVAL
34183 @ 288129:                  PUSH   HOLDVAL
34184 @ 288132:                  PUSHI  #0x00000800
34185 @ 288137:                  ADD   
34186 @ 288138:                  ASSVAL
34187 @ 288139:                  LOCATE L_000a

  5865      %finish
34188 @ 288142:                  LINE   5865 "regression-compile-tmp/imp22g-77.imp"
34189 @ 288182:                  LOCATE L_0007

  5866      get(right)
34190 @ 288185:                  LINE   5866 "regression-compile-tmp/imp22g-77.imp"
34191 @ 288225:                  PUSH   GET
34192 @ 288228:                  PUSHI  #0x0000003d
34193 @ 288233:                  ASSPAR
34194 @ 288234:                  CALL  

  5867    %else
34195 @ 288235:                  LINE   5867 "regression-compile-tmp/imp22g-77.imp"
34196 @ 288275:                  GOTO   L_0003
34197 @ 288278:                  LOCATE L_0004

  5868      syntax error %if hold < 0
34198 @ 288281:                  LINE   5868 "regression-compile-tmp/imp22g-77.imp"
34199 @ 288321:                  PUSH   HOLD
34200 @ 288324:                  PUSHI  #0x00000000
34201 @ 288329:                  JUMPIF >= L_0007
34202 @ 288333:                  PUSH   SYNTAXERROR
34203 @ 288336:                  CALL  
34204 @ 288337:                  LOCATE L_0007

  5869      m = absmode
34205 @ 288340:                  LINE   5869 "regression-compile-tmp/imp22g-77.imp"
34206 @ 288380:                  PUSH   M
34207 @ 288383:                  PUSHI  #0x00000038
34208 @ 288388:                  ASSVAL

  5870    %finish
34209 @ 288389:                  LINE   5870 "regression-compile-tmp/imp22g-77.imp"
34210 @ 288429:                  LOCATE L_0003

  5871    dp_mode = m;  dp_val = holdval
34211 @ 288432:                  LINE   5871 "regression-compile-tmp/imp22g-77.imp"
34212 @ 288472:                  PUSH   DP
34213 @ 288475:                  SELECT 8
34214 @ 288478:                  PUSH   M
34215 @ 288481:                  ASSVAL
34216 @ 288482:                  LINE   5871 "regression-compile-tmp/imp22g-77.imp"
34217 @ 288522:                  PUSH   DP
34218 @ 288525:                  SELECT 9
34219 @ 288528:                  PUSH   HOLDVAL
34220 @ 288531:                  ASSVAL

  5872    item = dummy
34221 @ 288532:                  LINE   5872 "regression-compile-tmp/imp22g-77.imp"
34222 @ 288572:                  PUSH   ITEM
34223 @ 288575:                  PUSH   DUMMY
34224 @ 288578:                  ASSVAL

  5873  %end
  5874  
34225 @ 288579:                  LINE   5873 "regression-compile-tmp/imp22g-77.imp"
34226 @ 288619:               END    _lev0id0_GETMCODE_GETMOP {lev=3 --> 2}

  5875  %constinteger temp=((('t'&31)<<5+('e'&31))<<5+('m'&31))<<5+('p'&31)
34227 @ 288620:               LINE   5875 "regression-compile-tmp/imp22g-77.imp"

  5876    update sp
  5877  !Pack mnemonic
34228 @ 288660:               LINE   5876 "regression-compile-tmp/imp22g-77.imp"
34229 @ 288700:               PUSH   UPDATESP
34230 @ 288703:               CALL  

  5878    atomp = fp+1
34231 @ 288704:               LINE   5878 "regression-compile-tmp/imp22g-77.imp"
34232 @ 288744:               PUSH   ATOMP
34233 @ 288747:               PUSH   FP
34234 @ 288750:               PUSHI  #0x00000001
34235 @ 288755:               ADD   
34236 @ 288756:               ASSVAL

  5879    x = 0
34237 @ 288757:               LINE   5879 "regression-compile-tmp/imp22g-77.imp"
34238 @ 288797:               PUSH   X
34239 @ 288800:               PUSHI  #0x00000000
34240 @ 288805:               ASSVAL

  5880    %cycle
34241 @ 288806:               LINE   5880 "regression-compile-tmp/imp22g-77.imp"
34242 @ 288846:               LOCATE L_0003

  5881      sym = byteinteger(fp);  fp = fp+1
34243 @ 288849:               LINE   5881 "regression-compile-tmp/imp22g-77.imp"
34244 @ 288889:               PUSH   SYM
34245 @ 288892:               PUSH   BYTEINTEGER
34246 @ 288895:               PUSH   FP
34247 @ 288898:               ASSPAR
34248 @ 288899:               CALL  
34249 @ 288900:               ASSVAL
34250 @ 288901:               LINE   5881 "regression-compile-tmp/imp22g-77.imp"
34251 @ 288941:               PUSH   FP
34252 @ 288944:               PUSH   FP
34253 @ 288947:               PUSHI  #0x00000001
34254 @ 288952:               ADD   
34255 @ 288953:               ASSVAL

  5882      %exit %unless 'A' <= sym&(\casebit) <= 'Z'
34256 @ 288954:               LINE   5882 "regression-compile-tmp/imp22g-77.imp"
34257 @ 288994:               PUSHI  #0x00000041
34258 @ 288999:               PUSH   SYM
34259 @ 289002:               PUSHI  #0x00000020
34260 @ 289007:               NOT   
34261 @ 289008:               AND   
34262 @ 289009:               JUMPIFD > L_0008
34263 @ 289013:               PUSHI  #0x0000005a
34264 @ 289018:               JUMPIF <= L_0007
34265 @ 289022:               LOCATE L_0008
34266 @ 289025:               GOTO   L_0004
34267 @ 289028:               LOCATE L_0007

  5883      sym = sym&31
34268 @ 289031:               LINE   5883 "regression-compile-tmp/imp22g-77.imp"
34269 @ 289071:               PUSH   SYM
34270 @ 289074:               PUSH   SYM
34271 @ 289077:               PUSHI  #0x0000001f
34272 @ 289082:               AND   
34273 @ 289083:               ASSVAL

  5884      x = x<<5+sym
34274 @ 289084:               LINE   5884 "regression-compile-tmp/imp22g-77.imp"
34275 @ 289124:               PUSH   X
34276 @ 289127:               PUSH   X
34277 @ 289130:               PUSHI  #0x00000005
34278 @ 289135:               LSH   
34279 @ 289136:               PUSH   SYM
34280 @ 289139:               ADD   
34281 @ 289140:               ASSVAL

  5885    %repeat
34282 @ 289141:               LINE   5885 "regression-compile-tmp/imp22g-77.imp"
34283 @ 289181:               REPEAT L_0003
34284 @ 289184:               LOCATE L_0004

  5886    fp = fp-1;  sym = 0
34285 @ 289187:               LINE   5886 "regression-compile-tmp/imp22g-77.imp"
34286 @ 289227:               PUSH   FP
34287 @ 289230:               PUSH   FP
34288 @ 289233:               PUSHI  #0x00000001
34289 @ 289238:               SUB   
34290 @ 289239:               ASSVAL
34291 @ 289240:               LINE   5886 "regression-compile-tmp/imp22g-77.imp"
34292 @ 289280:               PUSH   SYM
34293 @ 289283:               PUSHI  #0x00000000
34294 @ 289288:               ASSVAL

  5887    syntax error %if x = 0
34295 @ 289289:               LINE   5887 "regression-compile-tmp/imp22g-77.imp"
34296 @ 289329:               PUSH   X
34297 @ 289332:               PUSHI  #0x00000000
34298 @ 289337:               JUMPIF # L_0004
34299 @ 289341:               PUSH   SYNTAXERROR
34300 @ 289344:               CALL  
34301 @ 289345:               LOCATE L_0004

  5888    %if x = temp %start;       !*TEMP ...
34302 @ 289348:               LINE   5888 "regression-compile-tmp/imp22g-77.imp"
34303 @ 289388:               PUSH   X
34304 @ 289391:               PUSHI  #0x000a15b0
34305 @ 289396:               JUMPIF # L_0004

  5889      value = 0
34306 @ 289400:               LINE   5889 "regression-compile-tmp/imp22g-77.imp"
34307 @ 289440:               PUSH   VALUE
34308 @ 289443:               PUSHI  #0x00000000
34309 @ 289448:               ASSVAL

  5890      matched = 0 %and get regset %if a(ident)=TRUE
34310 @ 289449:               LINE   5890 "regression-compile-tmp/imp22g-77.imp"
34311 @ 289489:               PUSH   A
34312 @ 289492:               PUSHI  #0x00000035
34313 @ 289497:               ASSPAR
34314 @ 289498:               CALL  
34315 @ 289499:               PUSHI  #0x00000001
34316 @ 289504:               JUMPIF # L_0007
34317 @ 289508:               PUSH   MATCHED
34318 @ 289511:               PUSHI  #0x00000000
34319 @ 289516:               ASSVAL
34320 @ 289517:               PUSH   GETREGSET
34321 @ 289520:               CALL  
34322 @ 289521:               LOCATE L_0007

  5891      c_free = value
34323 @ 289524:               LINE   5891 "regression-compile-tmp/imp22g-77.imp"
34324 @ 289564:               PUSH   C
34325 @ 289567:               SELECT 5
34326 @ 289570:               PUSH   VALUE
34327 @ 289573:               ASSVAL

  5892      %return
34328 @ 289574:               LINE   5892 "regression-compile-tmp/imp22g-77.imp"
34329 @ 289614:               RETURN

  5893    %finish
34330 @ 289615:               LINE   5893 "regression-compile-tmp/imp22g-77.imp"
34331 @ 289655:               LOCATE L_0004

  5894    x = x<<5 %until x&(31<<25) # 0
34332 @ 289658:               LINE   5894 "regression-compile-tmp/imp22g-77.imp"
34333 @ 289698:               LOCATE L_0003
34334 @ 289701:               PUSH   X
34335 @ 289704:               PUSH   X
34336 @ 289707:               PUSHI  #0x00000005
34337 @ 289712:               LSH   
34338 @ 289713:               ASSVAL
34339 @ 289714:               PUSH   X
34340 @ 289717:               PUSHI  #0x0000001f
34341 @ 289722:               PUSHI  #0x00000019
34342 @ 289727:               LSH   
34343 @ 289728:               AND   
34344 @ 289729:               PUSHI  #0x00000000
34345 @ 289734:               JUMPIF # L_0004
34346 @ 289738:               REPEAT L_0003
34347 @ 289741:               LOCATE L_0004

  5895    x = x!16_C0000000
34348 @ 289744:               LINE   5895 "regression-compile-tmp/imp22g-77.imp"
34349 @ 289784:               PUSH   X
34350 @ 289787:               PUSH   X
34351 @ 289790:               PUSHI  #0xc0000000
34352 @ 289795:               OR    
34353 @ 289796:               ASSVAL

  5896    find op(x,op,types)
34354 @ 289797:               LINE   5896 "regression-compile-tmp/imp22g-77.imp"
34355 @ 289837:               PUSH   FINDOP
34356 @ 289840:               PUSH   X
34357 @ 289843:               ASSPAR
34358 @ 289844:               PUSH   OP
34359 @ 289847:               ASSPAR
34360 @ 289848:               PUSH   TYPES
34361 @ 289851:               ASSPAR
34362 @ 289852:               CALL  

  5897    op = op+opsize('B')<<8 %if types&(sized!asized) # 0
34363 @ 289853:               LINE   5897 "regression-compile-tmp/imp22g-77.imp"
34364 @ 289893:               PUSH   TYPES
34365 @ 289896:               PUSHI  #0x00008000
34366 @ 289901:               PUSHI  #0x00004000
34367 @ 289906:               OR    
34368 @ 289907:               AND   
34369 @ 289908:               PUSHI  #0x00000000
34370 @ 289913:               JUMPIF = L_0004
34371 @ 289917:               PUSH   OP
34372 @ 289920:               PUSH   OP
34373 @ 289923:               PUSH   OPSIZE
34374 @ 289926:               PUSHI  #0x00000042
34375 @ 289931:               ASSPAR
34376 @ 289932:               CALL  
34377 @ 289933:               PUSHI  #0x00000008
34378 @ 289938:               LSH   
34379 @ 289939:               ADD   
34380 @ 289940:               ASSVAL
34381 @ 289941:               LOCATE L_0004

  5898    x = 0;  y = 0
34382 @ 289944:               LINE   5898 "regression-compile-tmp/imp22g-77.imp"
34383 @ 289984:               PUSH   X
34384 @ 289987:               PUSHI  #0x00000000
34385 @ 289992:               ASSVAL
34386 @ 289993:               LINE   5898 "regression-compile-tmp/imp22g-77.imp"
34387 @ 290033:               PUSH   Y
34388 @ 290036:               PUSHI  #0x00000000
34389 @ 290041:               ASSVAL

  5899    %if types>>6&63 # 0 %start
34390 @ 290042:               LINE   5899 "regression-compile-tmp/imp22g-77.imp"
34391 @ 290082:               PUSH   TYPES
34392 @ 290085:               PUSHI  #0x00000006
34393 @ 290090:               RSH   
34394 @ 290091:               PUSHI  #0x0000003f
34395 @ 290096:               AND   
34396 @ 290097:               PUSHI  #0x00000000
34397 @ 290102:               JUMPIF = L_0004

  5900      get MOP(types>>6&63,lablim,dtemp)
34398 @ 290106:               LINE   5900 "regression-compile-tmp/imp22g-77.imp"
34399 @ 290146:               PUSH   GETMOP
34400 @ 290149:               PUSH   TYPES
34401 @ 290152:               PUSHI  #0x00000006
34402 @ 290157:               RSH   
34403 @ 290158:               PUSHI  #0x0000003f
34404 @ 290163:               AND   
34405 @ 290164:               ASSPAR
34406 @ 290165:               PUSH   LABLIM
34407 @ 290168:               ASSPAR
34408 @ 290169:               PUSH   DTEMP
34409 @ 290172:               ASSPAR
34410 @ 290173:               CALL  

  5901      x = normitem
34411 @ 290174:               LINE   5901 "regression-compile-tmp/imp22g-77.imp"
34412 @ 290214:               PUSH   X
34413 @ 290217:               PUSH   NORMITEM
34414 @ 290220:               CALL  
34415 @ 290221:               ASSVAL

  5902      get(comma) %if types&63 # 0
34416 @ 290222:               LINE   5902 "regression-compile-tmp/imp22g-77.imp"
34417 @ 290262:               PUSH   TYPES
34418 @ 290265:               PUSHI  #0x0000003f
34419 @ 290270:               AND   
34420 @ 290271:               PUSHI  #0x00000000
34421 @ 290276:               JUMPIF = L_0007
34422 @ 290280:               PUSH   GET
34423 @ 290283:               PUSHI  #0x0000003c
34424 @ 290288:               ASSPAR
34425 @ 290289:               CALL  
34426 @ 290290:               LOCATE L_0007

  5903    %finish
34427 @ 290293:               LINE   5903 "regression-compile-tmp/imp22g-77.imp"
34428 @ 290333:               LOCATE L_0004

  5904    %if types&63 # 0 %start
34429 @ 290336:               LINE   5904 "regression-compile-tmp/imp22g-77.imp"
34430 @ 290376:               PUSH   TYPES
34431 @ 290379:               PUSHI  #0x0000003f
34432 @ 290384:               AND   
34433 @ 290385:               PUSHI  #0x00000000
34434 @ 290390:               JUMPIF = L_0004

  5905      get MOP(types&63,lablim+1,dtemp2)
34435 @ 290394:               LINE   5905 "regression-compile-tmp/imp22g-77.imp"
34436 @ 290434:               PUSH   GETMOP
34437 @ 290437:               PUSH   TYPES
34438 @ 290440:               PUSHI  #0x0000003f
34439 @ 290445:               AND   
34440 @ 290446:               ASSPAR
34441 @ 290447:               PUSH   LABLIM
34442 @ 290450:               PUSHI  #0x00000001
34443 @ 290455:               ADD   
34444 @ 290456:               ASSPAR
34445 @ 290457:               PUSH   DTEMP2
34446 @ 290460:               ASSPAR
34447 @ 290461:               CALL  

  5906      y = normitem
34448 @ 290462:               LINE   5906 "regression-compile-tmp/imp22g-77.imp"
34449 @ 290502:               PUSH   Y
34450 @ 290505:               PUSH   NORMITEM
34451 @ 290508:               CALL  
34452 @ 290509:               ASSVAL

  5907    %finish
34453 @ 290510:               LINE   5907 "regression-compile-tmp/imp22g-77.imp"
34454 @ 290550:               LOCATE L_0004

  5908    plant(op,x,y)
34455 @ 290553:               LINE   5908 "regression-compile-tmp/imp22g-77.imp"
34456 @ 290593:               PUSH   PLANT
34457 @ 290596:               PUSH   OP
34458 @ 290599:               ASSPAR
34459 @ 290600:               PUSH   X
34460 @ 290603:               ASSPAR
34461 @ 290604:               PUSH   Y
34462 @ 290607:               ASSPAR
34463 @ 290608:               CALL  

  5909    forget regs;  c_access = -1
34464 @ 290609:               LINE   5909 "regression-compile-tmp/imp22g-77.imp"
34465 @ 290649:               PUSH   FORGETREGS
34466 @ 290652:               CALL  
34467 @ 290653:               LINE   5909 "regression-compile-tmp/imp22g-77.imp"
34468 @ 290693:               PUSH   C
34469 @ 290696:               SELECT 16
34470 @ 290699:               PUSHI  #0x00000001
34471 @ 290704:               NEGATE
34472 @ 290705:               ASSVAL

  5910  %end;  !get MCODE
  5911  
  5912  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  5913  
34473 @ 290706:               LINE   5910 "regression-compile-tmp/imp22g-77.imp"
34474 @ 290746:            END    _lev0id0_GETMCODE {lev=2 --> 1}

  5914  %integerfn REFOK(%integer wanted,t)
34475 @ 290747:            LINE   5914 "regression-compile-tmp/imp22g-77.imp"
34476 @ 290787:            DEF    REFOK (_lev0id0_REFOK) p1=V_0172 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
34477 @ 290804:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
34478 @ 290805:                  DEF    WANTED p1=V_0173 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
34479 @ 290823:                  DEF    T p1=V_0174 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
34480 @ 290836:               FINISH ) {lev=2}

  5915  %record(identinfo)%name wp,tp
34481 @ 290837:               LINE   5915 "regression-compile-tmp/imp22g-77.imp"
34482 @ 290877:               DEF    WP p1=V_0175 a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
34483 @ 290891:               DEF    TP p1=V_0176 a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  5916    %result = TRUE %if t = wanted %or wanted = 0 %or t = 0 %or item!value = 0
34484 @ 290905:               LINE   5916 "regression-compile-tmp/imp22g-77.imp"
34485 @ 290945:               PUSH   T
34486 @ 290948:               PUSH   WANTED
34487 @ 290951:               JUMPIF = L_0005
34488 @ 290955:               PUSH   WANTED
34489 @ 290958:               PUSHI  #0x00000000
34490 @ 290963:               JUMPIF = L_0005
34491 @ 290967:               PUSH   T
34492 @ 290970:               PUSHI  #0x00000000
34493 @ 290975:               JUMPIF = L_0005
34494 @ 290979:               PUSH   ITEM
34495 @ 290982:               PUSH   VALUE
34496 @ 290985:               OR    
34497 @ 290986:               PUSHI  #0x00000000
34498 @ 290991:               JUMPIF # L_0004
34499 @ 290995:               LOCATE L_0005
34500 @ 290998:               PUSHI  #0x00000001
34501 @ 291003:               RESULT
34502 @ 291004:               LOCATE L_0004

  5917    wp == typecell(wanted);  tp == typecell(t)
34503 @ 291007:               LINE   5917 "regression-compile-tmp/imp22g-77.imp"
34504 @ 291047:               PUSH   WP
34505 @ 291050:               PUSH   TYPECELL
34506 @ 291053:               PUSH   WANTED
34507 @ 291056:               ASSPAR
34508 @ 291057:               CALL  
34509 @ 291058:               ASSREF
34510 @ 291059:               LINE   5917 "regression-compile-tmp/imp22g-77.imp"
34511 @ 291099:               PUSH   TP
34512 @ 291102:               PUSH   TYPECELL
34513 @ 291105:               PUSH   T
34514 @ 291108:               ASSPAR
34515 @ 291109:               CALL  
34516 @ 291110:               ASSREF

  5918    %if (wp_flags!!tp_flags)&(name+packed+cat) = 0 %start
34517 @ 291111:               LINE   5918 "regression-compile-tmp/imp22g-77.imp"
34518 @ 291151:               PUSH   WP
34519 @ 291154:               SELECT 1
34520 @ 291157:               PUSH   TP
34521 @ 291160:               SELECT 1
34522 @ 291163:               XOR   
34523 @ 291164:               PUSHI  #0xffff8000
34524 @ 291169:               PUSHI  #0x00000400
34525 @ 291174:               ADD   
34526 @ 291175:               PUSHI  #0x0000000f
34527 @ 291180:               ADD   
34528 @ 291181:               AND   
34529 @ 291182:               PUSHI  #0x00000000
34530 @ 291187:               JUMPIF # L_0004

  5919      %if wp_flags&cat = arry %start
  5920        !**check index compatible
34531 @ 291191:               LINE   5919 "regression-compile-tmp/imp22g-77.imp"
34532 @ 291231:               PUSH   WP
34533 @ 291234:               SELECT 1
34534 @ 291237:               PUSHI  #0x0000000f
34535 @ 291242:               AND   
34536 @ 291243:               PUSHI  #0x00000009
34537 @ 291248:               JUMPIF # L_0007

  5921        %result = TRUE %if refok(wp_type,tp_type)=TRUE
34538 @ 291252:               LINE   5921 "regression-compile-tmp/imp22g-77.imp"
34539 @ 291292:               PUSH   REFOK
34540 @ 291295:               PUSH   WP
34541 @ 291298:               SELECT 2
34542 @ 291301:               ASSPAR
34543 @ 291302:               PUSH   TP
34544 @ 291305:               SELECT 2
34545 @ 291308:               ASSPAR
34546 @ 291309:               CALL  
34547 @ 291310:               PUSHI  #0x00000001
34548 @ 291315:               JUMPIF # L_000a
34549 @ 291319:               PUSHI  #0x00000001
34550 @ 291324:               RESULT
34551 @ 291325:               LOCATE L_000a

  5922      %finish %else %if wp_flags&cat = stringy %start
34552 @ 291328:               LINE   5922 "regression-compile-tmp/imp22g-77.imp"
34553 @ 291368:               GOTO   L_0006
34554 @ 291371:               LOCATE L_0007
34555 @ 291374:               PUSH   WP
34556 @ 291377:               SELECT 1
34557 @ 291380:               PUSHI  #0x0000000f
34558 @ 291385:               AND   
34559 @ 291386:               PUSHI  #0x00000008
34560 @ 291391:               JUMPIF # L_0007

  5923        %result = TRUE %if tp_size = 0 %or wp_size = 0
  5924  !<<IMP
  5925  !<<BOTH
34561 @ 291395:               LINE   5923 "regression-compile-tmp/imp22g-77.imp"
34562 @ 291435:               PUSH   TP
34563 @ 291438:               SELECT 5
34564 @ 291441:               PUSHI  #0x00000000
34565 @ 291446:               JUMPIF = L_000b
34566 @ 291450:               PUSH   WP
34567 @ 291453:               SELECT 5
34568 @ 291456:               PUSHI  #0x00000000
34569 @ 291461:               JUMPIF # L_000a
34570 @ 291465:               LOCATE L_000b
34571 @ 291468:               PUSHI  #0x00000001
34572 @ 291473:               RESULT
34573 @ 291474:               LOCATE L_000a

  5926      %else
34574 @ 291477:               LINE   5926 "regression-compile-tmp/imp22g-77.imp"
34575 @ 291517:               GOTO   L_0006
34576 @ 291520:               LOCATE L_0007

  5927        %result = TRUE %if t = recstar %or wanted = recstar
34577 @ 291523:               LINE   5927 "regression-compile-tmp/imp22g-77.imp"
34578 @ 291563:               PUSH   T
34579 @ 291566:               PUSHI  #0x00000043
34580 @ 291571:               JUMPIF = L_000b
34581 @ 291575:               PUSH   WANTED
34582 @ 291578:               PUSHI  #0x00000043
34583 @ 291583:               JUMPIF # L_000a
34584 @ 291587:               LOCATE L_000b
34585 @ 291590:               PUSHI  #0x00000001
34586 @ 291595:               RESULT
34587 @ 291596:               LOCATE L_000a

  5928      %finish
34588 @ 291599:               LINE   5928 "regression-compile-tmp/imp22g-77.imp"
34589 @ 291639:               LOCATE L_0006

  5929    %finish
34590 @ 291642:               LINE   5929 "regression-compile-tmp/imp22g-77.imp"
34591 @ 291682:               LOCATE L_0004

  5930    %result = FALSE
34592 @ 291685:               LINE   5930 "regression-compile-tmp/imp22g-77.imp"
34593 @ 291725:               PUSHI  #0x00000000
34594 @ 291730:               RESULT

  5931  %end
  5932  
34595 @ 291731:               LINE   5931 "regression-compile-tmp/imp22g-77.imp"
34596 @ 291771:            END    _lev0id0_REFOK {lev=2 --> 1}

  5933  %routine TOREF
34597 @ 291772:            LINE   5933 "regression-compile-tmp/imp22g-77.imp"
34598 @ 291812:            DEF    TOREF (_lev0id0_TOREF) p1=V_0173 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
34599 @ 291829:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
34600 @ 291830:               FINISH ) {lev=2}

  5934    atomp=expp %and error(nonref+point) %if item <= 0 %or ditem_mode < dispmode
34601 @ 291831:               LINE   5934 "regression-compile-tmp/imp22g-77.imp"
34602 @ 291871:               PUSH   ITEM
34603 @ 291874:               PUSHI  #0x00000000
34604 @ 291879:               JUMPIF <= L_0005
34605 @ 291883:               PUSH   DITEM
34606 @ 291886:               SELECT 8
34607 @ 291889:               PUSHI  #0x00000028
34608 @ 291894:               JUMPIF >= L_0004
34609 @ 291898:               LOCATE L_0005
34610 @ 291901:               PUSH   ATOMP
34611 @ 291904:               PUSH   EXPP
34612 @ 291907:               ASSVAL
34613 @ 291908:               PUSH   ERROR
34614 @ 291911:               PUSHI  #0x00000021
34615 @ 291916:               PUSHI  #0x00000040
34616 @ 291921:               ADD   
34617 @ 291922:               ASSPAR
34618 @ 291923:               CALL  
34619 @ 291924:               LOCATE L_0004

  5935    %if item >= dictlim %start
  5936  !    %if ditem_act = prel %and (ditem_y < 0 %or ditem_type = bytetype) %start
  5937  !      value = ditem_y
  5938  !      value = litref(litval(value)*imod(size(ditem_type))) %if ditem_type # bytetype
  5939  !      putexp(add,ditem_x+ad,value,ditem_type)
  5940  !      %return
  5941  !    %finish
34620 @ 291927:               LINE   5935 "regression-compile-tmp/imp22g-77.imp"
34621 @ 291967:               PUSH   ITEM
34622 @ 291970:               PUSH   DICTLIM
34623 @ 291973:               JUMPIF < L_0004

  5942    %else
34624 @ 291977:               LINE   5942 "regression-compile-tmp/imp22g-77.imp"
34625 @ 292017:               GOTO   L_0003
34626 @ 292020:               LOCATE L_0004

  5943      %if ditem_mode = absmode %and ditem_flags >= 0 %start
34627 @ 292023:               LINE   5943 "regression-compile-tmp/imp22g-77.imp"
34628 @ 292063:               PUSH   DITEM
34629 @ 292066:               SELECT 8
34630 @ 292069:               PUSHI  #0x00000038
34631 @ 292074:               JUMPIF # L_0007
34632 @ 292078:               PUSH   DITEM
34633 @ 292081:               SELECT 1
34634 @ 292084:               PUSHI  #0x00000000
34635 @ 292089:               JUMPIF < L_0007

  5944        item = 0;  value = ditem_val
34636 @ 292093:               LINE   5944 "regression-compile-tmp/imp22g-77.imp"
34637 @ 292133:               PUSH   ITEM
34638 @ 292136:               PUSHI  #0x00000000
34639 @ 292141:               ASSVAL
34640 @ 292142:               LINE   5944 "regression-compile-tmp/imp22g-77.imp"
34641 @ 292182:               PUSH   VALUE
34642 @ 292185:               PUSH   DITEM
34643 @ 292188:               SELECT 9
34644 @ 292191:               ASSVAL

  5945        %return
34645 @ 292192:               LINE   5945 "regression-compile-tmp/imp22g-77.imp"
34646 @ 292232:               RETURN

  5946      %finish
34647 @ 292233:               LINE   5946 "regression-compile-tmp/imp22g-77.imp"
34648 @ 292273:               LOCATE L_0007

  5947    %finish
34649 @ 292276:               LINE   5947 "regression-compile-tmp/imp22g-77.imp"
34650 @ 292316:               LOCATE L_0003

  5948    item = item+ad
34651 @ 292319:               LINE   5948 "regression-compile-tmp/imp22g-77.imp"
34652 @ 292359:               PUSH   ITEM
34653 @ 292362:               PUSH   ITEM
34654 @ 292365:               PUSHI  #0x00004000
34655 @ 292370:               ADD   
34656 @ 292371:               ASSVAL

  5949  %end
  5950  !
34657 @ 292372:               LINE   5949 "regression-compile-tmp/imp22g-77.imp"
34658 @ 292412:            END    _lev0id0_TOREF {lev=2 --> 1}

  5951  %routine COPY DOWN(%integer np1)
34659 @ 292413:            LINE   5951 "regression-compile-tmp/imp22g-77.imp"
34660 @ 292453:            DEF    COPYDOWN (_lev0id0_COPYDOWN) p1=V_0174 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
34661 @ 292473:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
34662 @ 292474:                  DEF    NP1 p1=V_0175 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
34663 @ 292489:               FINISH ) {lev=2}

  5952    %while np > np1 %cycle
34664 @ 292490:               LINE   5952 "regression-compile-tmp/imp22g-77.imp"
34665 @ 292530:               LOCATE L_0003
34666 @ 292533:               PUSH   NP
34667 @ 292536:               PUSH   NP1
34668 @ 292539:               JUMPIF <= L_0004

  5953      np = np-1;  explo = explo-1
34669 @ 292543:               LINE   5953 "regression-compile-tmp/imp22g-77.imp"
34670 @ 292583:               PUSH   NP
34671 @ 292586:               PUSH   NP
34672 @ 292589:               PUSHI  #0x00000001
34673 @ 292594:               SUB   
34674 @ 292595:               ASSVAL
34675 @ 292596:               LINE   5953 "regression-compile-tmp/imp22g-77.imp"
34676 @ 292636:               PUSH   EXPLO
34677 @ 292639:               PUSH   EXPLO
34678 @ 292642:               PUSHI  #0x00000001
34679 @ 292647:               SUB   
34680 @ 292648:               ASSVAL

  5954      dict(explo) = dict(np)
34681 @ 292649:               LINE   5954 "regression-compile-tmp/imp22g-77.imp"
34682 @ 292689:               PUSH   DICT
34683 @ 292692:               PUSH   EXPLO
34684 @ 292695:               ACCESS
34685 @ 292696:               PUSH   DICT
34686 @ 292699:               PUSH   NP
34687 @ 292702:               ACCESS
34688 @ 292703:               ASSVAL

  5955    %repeat
34689 @ 292704:               LINE   5955 "regression-compile-tmp/imp22g-77.imp"
34690 @ 292744:               REPEAT L_0003
34691 @ 292747:               LOCATE L_0004

  5956  %end
  5957  
34692 @ 292750:               LINE   5956 "regression-compile-tmp/imp22g-77.imp"
34693 @ 292790:            END    _lev0id0_COPYDOWN {lev=2 --> 1}

  5958  %routine GET REFERENCE(%integer reftype)
34694 @ 292791:            LINE   5958 "regression-compile-tmp/imp22g-77.imp"
34695 @ 292831:            DEF    GETREFERENCE (_lev0id0_GETREFERENCE) p1=V_0175 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
34696 @ 292855:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
34697 @ 292856:                  DEF    REFTYPE p1=V_0176 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
34698 @ 292875:               FINISH ) {lev=2}

  5959    get EXPRESSION(simple,reftype!sign16)
34699 @ 292876:               LINE   5959 "regression-compile-tmp/imp22g-77.imp"
34700 @ 292916:               PUSH   GETEXPRESSION
34701 @ 292919:               PUSHI  #0x00000064
34702 @ 292924:               ASSPAR
34703 @ 292925:               PUSH   REFTYPE
34704 @ 292928:               PUSHI  #0xffff8000
34705 @ 292933:               OR    
34706 @ 292934:               ASSPAR
34707 @ 292935:               CALL  

  5960  %end
  5961  !
34708 @ 292936:               LINE   5960 "regression-compile-tmp/imp22g-77.imp"
34709 @ 292976:            END    _lev0id0_GETREFERENCE {lev=2 --> 1}

  5962  %routine GET PARLIST(%integer special)
34710 @ 292977:            LINE   5962 "regression-compile-tmp/imp22g-77.imp"
34711 @ 293017:            DEF    GETPARLIST (_lev0id0_GETPARLIST) p1=V_0176 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
34712 @ 293039:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
34713 @ 293040:                  DEF    SPECIAL p1=V_0177 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
34714 @ 293059:               FINISH ) {lev=2}

  5963  %integer procnp,pact,hold,count,headitem,arg,p,q,restype
34715 @ 293060:               LINE   5963 "regression-compile-tmp/imp22g-77.imp"
34716 @ 293100:               DEF    PROCNP p1=V_0178 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
34717 @ 293118:               DEF    PACT p1=V_0179 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
34718 @ 293134:               DEF    HOLD p1=V_017a a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
34719 @ 293150:               DEF    COUNT p1=V_017b a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
34720 @ 293167:               DEF    HEADITEM p1=V_017c a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
34721 @ 293187:               DEF    ARG p1=V_017d a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
34722 @ 293202:               DEF    P p1=V_017e a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
34723 @ 293215:               DEF    Q p1=V_017f a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
34724 @ 293228:               DEF    RESTYPE p1=V_0180 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  5964  %record(identinfo)%name hp,tp
34725 @ 293247:               LINE   5964 "regression-compile-tmp/imp22g-77.imp"
34726 @ 293287:               DEF    HP p1=V_0181 a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
34727 @ 293301:               DEF    TP p1=V_0182 a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  5965  %record(identinfo)%name darg
  5966  
34728 @ 293315:               LINE   5965 "regression-compile-tmp/imp22g-77.imp"
34729 @ 293355:               DEF    DARG p1=V_0183 a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  5967  %routine PUT ACTUAL
34730 @ 293371:               LINE   5967 "regression-compile-tmp/imp22g-77.imp"
34731 @ 293411:               DEF    PUTACTUAL (_lev0id0_GETPARLIST_PUTACTUAL) p1=V_0184 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
34732 @ 293432:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
34733 @ 293433:                  FINISH ) {lev=3}

  5968    item = litref(value) %if item = 0
34734 @ 293434:                  LINE   5968 "regression-compile-tmp/imp22g-77.imp"
34735 @ 293474:                  PUSH   ITEM
34736 @ 293477:                  PUSHI  #0x00000000
34737 @ 293482:                  JUMPIF # L_0004
34738 @ 293486:                  PUSH   ITEM
34739 @ 293489:                  PUSH   LITREF
34740 @ 293492:                  PUSH   VALUE
34741 @ 293495:                  ASSPAR
34742 @ 293496:                  CALL  
34743 @ 293497:                  ASSVAL
34744 @ 293498:                  LOCATE L_0004

  5969    %if count&1 = 0 %then hold = item %c
  5970    %else putact(pact,hold,item) %and pact = 0
34745 @ 293501:                  LINE   5969 "regression-compile-tmp/imp22g-77.imp"
34746 @ 293541:                  PUSH   COUNT
34747 @ 293544:                  PUSHI  #0x00000001
34748 @ 293549:                  AND   
34749 @ 293550:                  PUSHI  #0x00000000
34750 @ 293555:                  JUMPIF # L_0004
34751 @ 293559:                  PUSH   HOLD
34752 @ 293562:                  PUSH   ITEM
34753 @ 293565:                  ASSVAL
34754 @ 293566:                  GOTO   L_0003
34755 @ 293569:                  LOCATE L_0004
34756 @ 293572:                  PUSH   PUTACT
34757 @ 293575:                  PUSH   PACT
34758 @ 293578:                  ASSPAR
34759 @ 293579:                  PUSH   HOLD
34760 @ 293582:                  ASSPAR
34761 @ 293583:                  PUSH   ITEM
34762 @ 293586:                  ASSPAR
34763 @ 293587:                  CALL  
34764 @ 293588:                  PUSH   PACT
34765 @ 293591:                  PUSHI  #0x00000000
34766 @ 293596:                  ASSVAL
34767 @ 293597:                  LOCATE L_0003

  5971    count = count+1
34768 @ 293600:                  LINE   5971 "regression-compile-tmp/imp22g-77.imp"
34769 @ 293640:                  PUSH   COUNT
34770 @ 293643:                  PUSH   COUNT
34771 @ 293646:                  PUSHI  #0x00000001
34772 @ 293651:                  ADD   
34773 @ 293652:                  ASSVAL

  5972  %end
  5973  
34774 @ 293653:                  LINE   5972 "regression-compile-tmp/imp22g-77.imp"
34775 @ 293693:               END    _lev0id0_GETPARLIST_PUTACTUAL {lev=3 --> 2}

  5974  %integerfn NO ALT
34776 @ 293694:               LINE   5974 "regression-compile-tmp/imp22g-77.imp"
34777 @ 293734:               DEF    NOALT (_lev0id0_GETPARLIST_NOALT) p1=V_0185 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
34778 @ 293751:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
34779 @ 293752:                  FINISH ) {lev=3}

  5975    %if hp_flags&alt = 0 %start;  !no alternative
34780 @ 293753:                  LINE   5975 "regression-compile-tmp/imp22g-77.imp"
34781 @ 293793:                  PUSH   HP
34782 @ 293796:                  SELECT 1
34783 @ 293799:                  PUSHI  #0x00000008
34784 @ 293804:                  AND   
34785 @ 293805:                  PUSHI  #0x00000000
34786 @ 293810:                  JUMPIF # L_0004

  5976      expfault(typerr)
34787 @ 293814:                  LINE   5976 "regression-compile-tmp/imp22g-77.imp"
34788 @ 293854:                  PUSH   EXPFAULT
34789 @ 293857:                  PUSHI  #0x0000000c
34790 @ 293862:                  ASSPAR
34791 @ 293863:                  CALL  

  5977      %result = TRUE
34792 @ 293864:                  LINE   5977 "regression-compile-tmp/imp22g-77.imp"
34793 @ 293904:                  PUSHI  #0x00000001
34794 @ 293909:                  RESULT

  5978    %finish
34795 @ 293910:                  LINE   5978 "regression-compile-tmp/imp22g-77.imp"
34796 @ 293950:                  LOCATE L_0004

  5979    item = hp_hlink
34797 @ 293953:                  LINE   5979 "regression-compile-tmp/imp22g-77.imp"
34798 @ 293993:                  PUSH   ITEM
34799 @ 293996:                  PUSH   HP
34800 @ 293999:                  SELECT 12
34801 @ 294002:                  ASSVAL

  5980    %cycle
34802 @ 294003:                  LINE   5980 "regression-compile-tmp/imp22g-77.imp"
34803 @ 294043:                  LOCATE L_0003

  5981      report(internerr,0,6) %and %signal fail %if item <= 0
34804 @ 294046:                  LINE   5981 "regression-compile-tmp/imp22g-77.imp"
34805 @ 294086:                  PUSH   ITEM
34806 @ 294089:                  PUSHI  #0x00000000
34807 @ 294094:                  JUMPIF > L_0007
34808 @ 294098:                  PUSH   REPORT
34809 @ 294101:                  PUSHI  #0x00000001
34810 @ 294106:                  ASSPAR
34811 @ 294107:                  PUSHI  #0x00000000
34812 @ 294112:                  ASSPAR
34813 @ 294113:                  PUSHI  #0x00000006
34814 @ 294118:                  ASSPAR
34815 @ 294119:                  CALL  
34816 @ 294120:                  EVENT  000b
34817 @ 294123:                  LOCATE L_0007

  5982      ditem == dict(item)
34818 @ 294126:                  LINE   5982 "regression-compile-tmp/imp22g-77.imp"
34819 @ 294166:                  PUSH   DITEM
34820 @ 294169:                  PUSH   DICT
34821 @ 294172:                  PUSH   ITEM
34822 @ 294175:                  ACCESS
34823 @ 294176:                  ASSREF

  5983      %exit %if string(ditem_text+char0) = string(hp_text+char0)
34824 @ 294177:                  LINE   5983 "regression-compile-tmp/imp22g-77.imp"
34825 @ 294217:                  PUSH   STRING
34826 @ 294220:                  PUSH   DITEM
34827 @ 294223:                  SELECT 11
34828 @ 294226:                  PUSH   CHAR0
34829 @ 294229:                  ADD   
34830 @ 294230:                  ASSPAR
34831 @ 294231:                  CALL  
34832 @ 294232:                  PUSH   STRING
34833 @ 294235:                  PUSH   HP
34834 @ 294238:                  SELECT 11
34835 @ 294241:                  PUSH   CHAR0
34836 @ 294244:                  ADD   
34837 @ 294245:                  ASSPAR
34838 @ 294246:                  CALL  
34839 @ 294247:                  JUMPIF # L_0007
34840 @ 294251:                  GOTO   L_0004
34841 @ 294254:                  LOCATE L_0007

  5984      item = ditem_hlink
34842 @ 294257:                  LINE   5984 "regression-compile-tmp/imp22g-77.imp"
34843 @ 294297:                  PUSH   ITEM
34844 @ 294300:                  PUSH   DITEM
34845 @ 294303:                  SELECT 12
34846 @ 294306:                  ASSVAL

  5985    %repeat
34847 @ 294307:                  LINE   5985 "regression-compile-tmp/imp22g-77.imp"
34848 @ 294347:                  REPEAT L_0003
34849 @ 294350:                  LOCATE L_0004

  5986    headitem = item;  pact = headitem;  hp == ditem
34850 @ 294353:                  LINE   5986 "regression-compile-tmp/imp22g-77.imp"
34851 @ 294393:                  PUSH   HEADITEM
34852 @ 294396:                  PUSH   ITEM
34853 @ 294399:                  ASSVAL
34854 @ 294400:                  LINE   5986 "regression-compile-tmp/imp22g-77.imp"
34855 @ 294440:                  PUSH   PACT
34856 @ 294443:                  PUSH   HEADITEM
34857 @ 294446:                  ASSVAL
34858 @ 294447:                  LINE   5986 "regression-compile-tmp/imp22g-77.imp"
34859 @ 294487:                  PUSH   HP
34860 @ 294490:                  PUSH   DITEM
34861 @ 294493:                  ASSREF

  5987    arg = hp_type;  darg == dict(arg);  restype = darg_type
34862 @ 294494:                  LINE   5987 "regression-compile-tmp/imp22g-77.imp"
34863 @ 294534:                  PUSH   ARG
34864 @ 294537:                  PUSH   HP
34865 @ 294540:                  SELECT 2
34866 @ 294543:                  ASSVAL
34867 @ 294544:                  LINE   5987 "regression-compile-tmp/imp22g-77.imp"
34868 @ 294584:                  PUSH   DARG
34869 @ 294587:                  PUSH   DICT
34870 @ 294590:                  PUSH   ARG
34871 @ 294593:                  ACCESS
34872 @ 294594:                  ASSREF
34873 @ 294595:                  LINE   5987 "regression-compile-tmp/imp22g-77.imp"
34874 @ 294635:                  PUSH   RESTYPE
34875 @ 294638:                  PUSH   DARG
34876 @ 294641:                  SELECT 2
34877 @ 294644:                  ASSVAL

  5988    %result = FALSE
34878 @ 294645:                  LINE   5988 "regression-compile-tmp/imp22g-77.imp"
34879 @ 294685:                  PUSHI  #0x00000000
34880 @ 294690:                  RESULT

  5989  %end
  5990  
34881 @ 294691:                  LINE   5989 "regression-compile-tmp/imp22g-77.imp"
34882 @ 294731:               END    _lev0id0_GETPARLIST_NOALT {lev=3 --> 2}

  5991  %routine PUT BOUNDS(%integer ft,at)
  5992  ! FT is TYPE of formal, AT of actual array
34883 @ 294732:               LINE   5991 "regression-compile-tmp/imp22g-77.imp"
34884 @ 294772:               DEF    PUTBOUNDS (_lev0id0_GETPARLIST_PUTBOUNDS) p1=V_0186 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
34885 @ 294793:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
34886 @ 294794:                     DEF    FT p1=V_0187 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
34887 @ 294808:                     DEF    AT p1=V_0188 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
34888 @ 294822:                  FINISH ) {lev=3}

  5993  %integer maxarg
34889 @ 294823:                  LINE   5993 "regression-compile-tmp/imp22g-77.imp"
34890 @ 294863:                  DEF    MAXARG p1=V_0189 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  5994  %record(identinfo)%name ftp,atp,fxp,axp
34891 @ 294881:                  LINE   5994 "regression-compile-tmp/imp22g-77.imp"
34892 @ 294921:                  DEF    FTP p1=V_018a a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
34893 @ 294936:                  DEF    ATP p1=V_018b a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
34894 @ 294951:                  DEF    FXP p1=V_018c a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
34895 @ 294966:                  DEF    AXP p1=V_018d a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  5995  maxarg=arg
34896 @ 294981:                  LINE   5995 "regression-compile-tmp/imp22g-77.imp"
34897 @ 295021:                  PUSH   MAXARG
34898 @ 295024:                  PUSH   ARG
34899 @ 295027:                  ASSVAL

  5996  %cycle
34900 @ 295028:                  LINE   5996 "regression-compile-tmp/imp22g-77.imp"
34901 @ 295068:                  LOCATE L_0003

  5997    ftp == typecell(ft);  atp == typecell(at)
  5998  !  %if ftp_flags&indirect # 0 %start;           !complete dope vector
  5999  !    ![now only for %string(*)%array%name]
  6000  !    intern(11) %unless ftp_type = stringstar
  6001  !    item = at
  6002  !    put actual
  6003  !    maxarg = ft %if ft > maxarg
  6004  !    %exit
  6005  !  %finish
34902 @ 295071:                  LINE   5997 "regression-compile-tmp/imp22g-77.imp"
34903 @ 295111:                  PUSH   FTP
34904 @ 295114:                  PUSH   TYPECELL
34905 @ 295117:                  PUSH   FT
34906 @ 295120:                  ASSPAR
34907 @ 295121:                  CALL  
34908 @ 295122:                  ASSREF
34909 @ 295123:                  LINE   5997 "regression-compile-tmp/imp22g-77.imp"
34910 @ 295163:                  PUSH   ATP
34911 @ 295166:                  PUSH   TYPECELL
34912 @ 295169:                  PUSH   AT
34913 @ 295172:                  ASSPAR
34914 @ 295173:                  CALL  
34915 @ 295174:                  ASSREF

  6006    %if ftp_flags&cat = stringy %start
34916 @ 295175:                  LINE   6006 "regression-compile-tmp/imp22g-77.imp"
34917 @ 295215:                  PUSH   FTP
34918 @ 295218:                  SELECT 1
34919 @ 295221:                  PUSHI  #0x0000000f
34920 @ 295226:                  AND   
34921 @ 295227:                  PUSHI  #0x00000008
34922 @ 295232:                  JUMPIF # L_0007

  6007      %exit %if ftp_size # 0
34923 @ 295236:                  LINE   6007 "regression-compile-tmp/imp22g-77.imp"
34924 @ 295276:                  PUSH   FTP
34925 @ 295279:                  SELECT 5
34926 @ 295282:                  PUSHI  #0x00000000
34927 @ 295287:                  JUMPIF = L_000a
34928 @ 295291:                  GOTO   L_0004
34929 @ 295294:                  LOCATE L_000a

  6008      %if atp_size # 0 %then item = litref(imod(atp_size)) %C
  6009      %else item = at-1
34930 @ 295297:                  LINE   6008 "regression-compile-tmp/imp22g-77.imp"
34931 @ 295337:                  PUSH   ATP
34932 @ 295340:                  SELECT 5
34933 @ 295343:                  PUSHI  #0x00000000
34934 @ 295348:                  JUMPIF = L_000a
34935 @ 295352:                  PUSH   ITEM
34936 @ 295355:                  PUSH   LITREF
34937 @ 295358:                  PUSH   IMOD
34938 @ 295361:                  PUSH   ATP
34939 @ 295364:                  SELECT 5
34940 @ 295367:                  ASSPAR
34941 @ 295368:                  CALL  
34942 @ 295369:                  ASSPAR
34943 @ 295370:                  CALL  
34944 @ 295371:                  ASSVAL
34945 @ 295372:                  GOTO   L_0009
34946 @ 295375:                  LOCATE L_000a
34947 @ 295378:                  PUSH   ITEM
34948 @ 295381:                  PUSH   AT
34949 @ 295384:                  PUSHI  #0x00000001
34950 @ 295389:                  SUB   
34951 @ 295390:                  ASSVAL
34952 @ 295391:                  LOCATE L_0009

  6010      put actual
34953 @ 295394:                  LINE   6010 "regression-compile-tmp/imp22g-77.imp"
34954 @ 295434:                  PUSH   PUTACTUAL
34955 @ 295437:                  CALL  

  6011      maxarg = ft-1 %if ft-1 > maxarg
34956 @ 295438:                  LINE   6011 "regression-compile-tmp/imp22g-77.imp"
34957 @ 295478:                  PUSH   FT
34958 @ 295481:                  PUSHI  #0x00000001
34959 @ 295486:                  SUB   
34960 @ 295487:                  PUSH   MAXARG
34961 @ 295490:                  JUMPIF <= L_000a
34962 @ 295494:                  PUSH   MAXARG
34963 @ 295497:                  PUSH   FT
34964 @ 295500:                  PUSHI  #0x00000001
34965 @ 295505:                  SUB   
34966 @ 295506:                  ASSVAL
34967 @ 295507:                  LOCATE L_000a

  6012      %exit
34968 @ 295510:                  LINE   6012 "regression-compile-tmp/imp22g-77.imp"
34969 @ 295550:                  GOTO   L_0004

  6013    %finish
34970 @ 295553:                  LINE   6013 "regression-compile-tmp/imp22g-77.imp"
34971 @ 295593:                  LOCATE L_0007

  6014    %if ftp_xtype >= arg %start;    !index type
34972 @ 295596:                  LINE   6014 "regression-compile-tmp/imp22g-77.imp"
34973 @ 295636:                  PUSH   FTP
34974 @ 295639:                  SELECT 4
34975 @ 295642:                  PUSH   ARG
34976 @ 295645:                  JUMPIF < L_0007

  6015      fxp == typecell(ftp_xtype);  axp == typecell(atp_xtype)
34977 @ 295649:                  LINE   6015 "regression-compile-tmp/imp22g-77.imp"
34978 @ 295689:                  PUSH   FXP
34979 @ 295692:                  PUSH   TYPECELL
34980 @ 295695:                  PUSH   FTP
34981 @ 295698:                  SELECT 4
34982 @ 295701:                  ASSPAR
34983 @ 295702:                  CALL  
34984 @ 295703:                  ASSREF
34985 @ 295704:                  LINE   6015 "regression-compile-tmp/imp22g-77.imp"
34986 @ 295744:                  PUSH   AXP
34987 @ 295747:                  PUSH   TYPECELL
34988 @ 295750:                  PUSH   ATP
34989 @ 295753:                  SELECT 4
34990 @ 295756:                  ASSPAR
34991 @ 295757:                  CALL  
34992 @ 295758:                  ASSREF

  6016      %if dict(ftp_xtype+1)_mode # litmode %start;  !non-literal lower
34993 @ 295759:                  LINE   6016 "regression-compile-tmp/imp22g-77.imp"
34994 @ 295799:                  PUSH   DICT
34995 @ 295802:                  PUSH   FTP
34996 @ 295805:                  SELECT 4
34997 @ 295808:                  PUSHI  #0x00000001
34998 @ 295813:                  ADD   
34999 @ 295814:                  ACCESS
35000 @ 295815:                  SELECT 8
35001 @ 295818:                  PUSHI  #0x0000003c
35002 @ 295823:                  JUMPIF = L_000a

  6017        item = atp_xtype+1
35003 @ 295827:                  LINE   6017 "regression-compile-tmp/imp22g-77.imp"
35004 @ 295867:                  PUSH   ITEM
35005 @ 295870:                  PUSH   ATP
35006 @ 295873:                  SELECT 4
35007 @ 295876:                  PUSHI  #0x00000001
35008 @ 295881:                  ADD   
35009 @ 295882:                  ASSVAL

  6018        item = 0 %and value = dict(atp_xtype+1)_val %if dict(atp_xtype+1)_mode = litmode
35010 @ 295883:                  LINE   6018 "regression-compile-tmp/imp22g-77.imp"
35011 @ 295923:                  PUSH   DICT
35012 @ 295926:                  PUSH   ATP
35013 @ 295929:                  SELECT 4
35014 @ 295932:                  PUSHI  #0x00000001
35015 @ 295937:                  ADD   
35016 @ 295938:                  ACCESS
35017 @ 295939:                  SELECT 8
35018 @ 295942:                  PUSHI  #0x0000003c
35019 @ 295947:                  JUMPIF # L_000d
35020 @ 295951:                  PUSH   ITEM
35021 @ 295954:                  PUSHI  #0x00000000
35022 @ 295959:                  ASSVAL
35023 @ 295960:                  PUSH   VALUE
35024 @ 295963:                  PUSH   DICT
35025 @ 295966:                  PUSH   ATP
35026 @ 295969:                  SELECT 4
35027 @ 295972:                  PUSHI  #0x00000001
35028 @ 295977:                  ADD   
35029 @ 295978:                  ACCESS
35030 @ 295979:                  SELECT 9
35031 @ 295982:                  ASSVAL
35032 @ 295983:                  LOCATE L_000d

  6019        put actual
35033 @ 295986:                  LINE   6019 "regression-compile-tmp/imp22g-77.imp"
35034 @ 296026:                  PUSH   PUTACTUAL
35035 @ 296029:                  CALL  

  6020        maxarg = ftp_xtype+1 %if ftp_xtype >= maxarg
35036 @ 296030:                  LINE   6020 "regression-compile-tmp/imp22g-77.imp"
35037 @ 296070:                  PUSH   FTP
35038 @ 296073:                  SELECT 4
35039 @ 296076:                  PUSH   MAXARG
35040 @ 296079:                  JUMPIF < L_000d
35041 @ 296083:                  PUSH   MAXARG
35042 @ 296086:                  PUSH   FTP
35043 @ 296089:                  SELECT 4
35044 @ 296092:                  PUSHI  #0x00000001
35045 @ 296097:                  ADD   
35046 @ 296098:                  ASSVAL
35047 @ 296099:                  LOCATE L_000d

  6021      %finish
35048 @ 296102:                  LINE   6021 "regression-compile-tmp/imp22g-77.imp"
35049 @ 296142:                  LOCATE L_000a

  6022      %if dict(ftp_xtype+2)_mode # litmode %start;  !non-literal upper
35050 @ 296145:                  LINE   6022 "regression-compile-tmp/imp22g-77.imp"
35051 @ 296185:                  PUSH   DICT
35052 @ 296188:                  PUSH   FTP
35053 @ 296191:                  SELECT 4
35054 @ 296194:                  PUSHI  #0x00000002
35055 @ 296199:                  ADD   
35056 @ 296200:                  ACCESS
35057 @ 296201:                  SELECT 8
35058 @ 296204:                  PUSHI  #0x0000003c
35059 @ 296209:                  JUMPIF = L_000a

  6023        item = atp_xtype+2
35060 @ 296213:                  LINE   6023 "regression-compile-tmp/imp22g-77.imp"
35061 @ 296253:                  PUSH   ITEM
35062 @ 296256:                  PUSH   ATP
35063 @ 296259:                  SELECT 4
35064 @ 296262:                  PUSHI  #0x00000002
35065 @ 296267:                  ADD   
35066 @ 296268:                  ASSVAL

  6024        item = 0 %and value = dict(atp_xtype+2)_val %if dict(atp_xtype+2)_mode = litmode
35067 @ 296269:                  LINE   6024 "regression-compile-tmp/imp22g-77.imp"
35068 @ 296309:                  PUSH   DICT
35069 @ 296312:                  PUSH   ATP
35070 @ 296315:                  SELECT 4
35071 @ 296318:                  PUSHI  #0x00000002
35072 @ 296323:                  ADD   
35073 @ 296324:                  ACCESS
35074 @ 296325:                  SELECT 8
35075 @ 296328:                  PUSHI  #0x0000003c
35076 @ 296333:                  JUMPIF # L_000d
35077 @ 296337:                  PUSH   ITEM
35078 @ 296340:                  PUSHI  #0x00000000
35079 @ 296345:                  ASSVAL
35080 @ 296346:                  PUSH   VALUE
35081 @ 296349:                  PUSH   DICT
35082 @ 296352:                  PUSH   ATP
35083 @ 296355:                  SELECT 4
35084 @ 296358:                  PUSHI  #0x00000002
35085 @ 296363:                  ADD   
35086 @ 296364:                  ACCESS
35087 @ 296365:                  SELECT 9
35088 @ 296368:                  ASSVAL
35089 @ 296369:                  LOCATE L_000d

  6025        put actual
35090 @ 296372:                  LINE   6025 "regression-compile-tmp/imp22g-77.imp"
35091 @ 296412:                  PUSH   PUTACTUAL
35092 @ 296415:                  CALL  

  6026        maxarg = ftp_xtype+2 %if ftp_xtype+1 >= maxarg
35093 @ 296416:                  LINE   6026 "regression-compile-tmp/imp22g-77.imp"
35094 @ 296456:                  PUSH   FTP
35095 @ 296459:                  SELECT 4
35096 @ 296462:                  PUSHI  #0x00000001
35097 @ 296467:                  ADD   
35098 @ 296468:                  PUSH   MAXARG
35099 @ 296471:                  JUMPIF < L_000d
35100 @ 296475:                  PUSH   MAXARG
35101 @ 296478:                  PUSH   FTP
35102 @ 296481:                  SELECT 4
35103 @ 296484:                  PUSHI  #0x00000002
35104 @ 296489:                  ADD   
35105 @ 296490:                  ASSVAL
35106 @ 296491:                  LOCATE L_000d

  6027      %finish
35107 @ 296494:                  LINE   6027 "regression-compile-tmp/imp22g-77.imp"
35108 @ 296534:                  LOCATE L_000a

  6028    %finish
35109 @ 296537:                  LINE   6028 "regression-compile-tmp/imp22g-77.imp"
35110 @ 296577:                  LOCATE L_0007

  6029    ft = ftp_type;  at = atp_type;        !element types
35111 @ 296580:                  LINE   6029 "regression-compile-tmp/imp22g-77.imp"
35112 @ 296620:                  PUSH   FT
35113 @ 296623:                  PUSH   FTP
35114 @ 296626:                  SELECT 2
35115 @ 296629:                  ASSVAL
35116 @ 296630:                  LINE   6029 "regression-compile-tmp/imp22g-77.imp"
35117 @ 296670:                  PUSH   AT
35118 @ 296673:                  PUSH   ATP
35119 @ 296676:                  SELECT 2
35120 @ 296679:                  ASSVAL

  6030  %repeat %until ft <= arg
35121 @ 296680:                  LINE   6030 "regression-compile-tmp/imp22g-77.imp"
35122 @ 296720:                  PUSH   FT
35123 @ 296723:                  PUSH   ARG
35124 @ 296726:                  JUMPIF <= L_0004
35125 @ 296730:                  REPEAT L_0003
35126 @ 296733:                  LOCATE L_0004

  6031  arg = maxarg;  darg == dict(arg)
35127 @ 296736:                  LINE   6031 "regression-compile-tmp/imp22g-77.imp"
35128 @ 296776:                  PUSH   ARG
35129 @ 296779:                  PUSH   MAXARG
35130 @ 296782:                  ASSVAL
35131 @ 296783:                  LINE   6031 "regression-compile-tmp/imp22g-77.imp"
35132 @ 296823:                  PUSH   DARG
35133 @ 296826:                  PUSH   DICT
35134 @ 296829:                  PUSH   ARG
35135 @ 296832:                  ACCESS
35136 @ 296833:                  ASSREF

  6032  %end
  6033  
35137 @ 296834:                  LINE   6032 "regression-compile-tmp/imp22g-77.imp"
35138 @ 296874:               END    _lev0id0_GETPARLIST_PUTBOUNDS {lev=3 --> 2}

  6034    count = 0;  hold = 0
35139 @ 296875:               LINE   6034 "regression-compile-tmp/imp22g-77.imp"
35140 @ 296915:               PUSH   COUNT
35141 @ 296918:               PUSHI  #0x00000000
35142 @ 296923:               ASSVAL
35143 @ 296924:               LINE   6034 "regression-compile-tmp/imp22g-77.imp"
35144 @ 296964:               PUSH   HOLD
35145 @ 296967:               PUSHI  #0x00000000
35146 @ 296972:               ASSVAL

  6035    procnp = np
35147 @ 296973:               LINE   6035 "regression-compile-tmp/imp22g-77.imp"
35148 @ 297013:               PUSH   PROCNP
35149 @ 297016:               PUSH   NP
35150 @ 297019:               ASSVAL

  6036    headitem = item;  pact = headitem;  hp == ditem
35151 @ 297020:               LINE   6036 "regression-compile-tmp/imp22g-77.imp"
35152 @ 297060:               PUSH   HEADITEM
35153 @ 297063:               PUSH   ITEM
35154 @ 297066:               ASSVAL
35155 @ 297067:               LINE   6036 "regression-compile-tmp/imp22g-77.imp"
35156 @ 297107:               PUSH   PACT
35157 @ 297110:               PUSH   HEADITEM
35158 @ 297113:               ASSVAL
35159 @ 297114:               LINE   6036 "regression-compile-tmp/imp22g-77.imp"
35160 @ 297154:               PUSH   HP
35161 @ 297157:               PUSH   DITEM
35162 @ 297160:               ASSREF

  6037    arg = hp_type;  darg == dict(arg);  restype = darg_type
35163 @ 297161:               LINE   6037 "regression-compile-tmp/imp22g-77.imp"
35164 @ 297201:               PUSH   ARG
35165 @ 297204:               PUSH   HP
35166 @ 297207:               SELECT 2
35167 @ 297210:               ASSVAL
35168 @ 297211:               LINE   6037 "regression-compile-tmp/imp22g-77.imp"
35169 @ 297251:               PUSH   DARG
35170 @ 297254:               PUSH   DICT
35171 @ 297257:               PUSH   ARG
35172 @ 297260:               ACCESS
35173 @ 297261:               ASSREF
35174 @ 297262:               LINE   6037 "regression-compile-tmp/imp22g-77.imp"
35175 @ 297302:               PUSH   RESTYPE
35176 @ 297305:               PUSH   DARG
35177 @ 297308:               SELECT 2
35178 @ 297311:               ASSVAL

  6038    %if a(left)=TRUE %start
35179 @ 297312:               LINE   6038 "regression-compile-tmp/imp22g-77.imp"
35180 @ 297352:               PUSH   A
35181 @ 297355:               PUSHI  #0x00000037
35182 @ 297360:               ASSPAR
35183 @ 297361:               CALL  
35184 @ 297362:               PUSHI  #0x00000001
35185 @ 297367:               JUMPIF # L_0004

  6039      %cycle
35186 @ 297371:               LINE   6039 "regression-compile-tmp/imp22g-77.imp"
35187 @ 297411:               LOCATE L_0006

  6040        arg = darg_link
35188 @ 297414:               LINE   6040 "regression-compile-tmp/imp22g-77.imp"
35189 @ 297454:               PUSH   ARG
35190 @ 297457:               PUSH   DARG
35191 @ 297460:               SELECT 3
35192 @ 297463:               ASSVAL

  6041        %if arg = 0 %start
35193 @ 297464:               LINE   6041 "regression-compile-tmp/imp22g-77.imp"
35194 @ 297504:               PUSH   ARG
35195 @ 297507:               PUSHI  #0x00000000
35196 @ 297512:               JUMPIF # L_000a

  6042          error(toomany+point) %if special = 0
35197 @ 297516:               LINE   6042 "regression-compile-tmp/imp22g-77.imp"
35198 @ 297556:               PUSH   SPECIAL
35199 @ 297559:               PUSHI  #0x00000000
35200 @ 297564:               JUMPIF # L_000d
35201 @ 297568:               PUSH   ERROR
35202 @ 297571:               PUSHI  #0x00000023
35203 @ 297576:               PUSHI  #0x00000040
35204 @ 297581:               ADD   
35205 @ 297582:               ASSPAR
35206 @ 297583:               CALL  
35207 @ 297584:               LOCATE L_000d

  6043          get REFERENCE(0)
35208 @ 297587:               LINE   6043 "regression-compile-tmp/imp22g-77.imp"
35209 @ 297627:               PUSH   GETREFERENCE
35210 @ 297630:               PUSHI  #0x00000000
35211 @ 297635:               ASSPAR
35212 @ 297636:               CALL  

  6044          value = item-ad;  !save extra item
35213 @ 297637:               LINE   6044 "regression-compile-tmp/imp22g-77.imp"
35214 @ 297677:               PUSH   VALUE
35215 @ 297680:               PUSH   ITEM
35216 @ 297683:               PUSHI  #0x00004000
35217 @ 297688:               SUB   
35218 @ 297689:               ASSVAL

  6045          %cycle
35219 @ 297690:               LINE   6045 "regression-compile-tmp/imp22g-77.imp"
35220 @ 297730:               LOCATE L_000c

  6046            %if type = realtype %start
35221 @ 297733:               LINE   6046 "regression-compile-tmp/imp22g-77.imp"
35222 @ 297773:               PUSH   TYPE
35223 @ 297776:               PUSHI  #0x00000045
35224 @ 297781:               JUMPIF # L_0010

  6047              %exit %if restype = realtype;  !no coercion
35225 @ 297785:               LINE   6047 "regression-compile-tmp/imp22g-77.imp"
35226 @ 297825:               PUSH   RESTYPE
35227 @ 297828:               PUSHI  #0x00000045
35228 @ 297833:               JUMPIF # L_0013
35229 @ 297837:               GOTO   L_000d
35230 @ 297840:               LOCATE L_0013

  6048            %else
35231 @ 297843:               LINE   6048 "regression-compile-tmp/imp22g-77.imp"
35232 @ 297883:               GOTO   L_000f
35233 @ 297886:               LOCATE L_0010

  6049              %exit %if valok(type,restype)=TRUE
35234 @ 297889:               LINE   6049 "regression-compile-tmp/imp22g-77.imp"
35235 @ 297929:               PUSH   VALOK
35236 @ 297932:               PUSH   TYPE
35237 @ 297935:               ASSPAR
35238 @ 297936:               PUSH   RESTYPE
35239 @ 297939:               ASSPAR
35240 @ 297940:               CALL  
35241 @ 297941:               PUSHI  #0x00000001
35242 @ 297946:               JUMPIF # L_0013
35243 @ 297950:               GOTO   L_000d
35244 @ 297953:               LOCATE L_0013

  6050            %finish
35245 @ 297956:               LINE   6050 "regression-compile-tmp/imp22g-77.imp"
35246 @ 297996:               LOCATE L_000f

  6051          %repeat %until no alt=TRUE
35247 @ 297999:               LINE   6051 "regression-compile-tmp/imp22g-77.imp"
35248 @ 298039:               PUSH   NOALT
35249 @ 298042:               CALL  
35250 @ 298043:               PUSHI  #0x00000001
35251 @ 298048:               JUMPIF = L_000d
35252 @ 298052:               REPEAT L_000c
35253 @ 298055:               LOCATE L_000d

  6052          special = 0
35254 @ 298058:               LINE   6052 "regression-compile-tmp/imp22g-77.imp"
35255 @ 298098:               PUSH   SPECIAL
35256 @ 298101:               PUSHI  #0x00000000
35257 @ 298106:               ASSVAL

  6053        %else
35258 @ 298107:               LINE   6053 "regression-compile-tmp/imp22g-77.imp"
35259 @ 298147:               GOTO   L_0009
35260 @ 298150:               LOCATE L_000a

  6054          darg == dict(arg)
35261 @ 298153:               LINE   6054 "regression-compile-tmp/imp22g-77.imp"
35262 @ 298193:               PUSH   DARG
35263 @ 298196:               PUSH   DICT
35264 @ 298199:               PUSH   ARG
35265 @ 298202:               ACCESS
35266 @ 298203:               ASSREF

  6055          %if darg_flags&proc # 0 %start
35267 @ 298204:               LINE   6055 "regression-compile-tmp/imp22g-77.imp"
35268 @ 298244:               PUSH   DARG
35269 @ 298247:               SELECT 1
35270 @ 298250:               PUSHI  #0x00003000
35271 @ 298255:               AND   
35272 @ 298256:               PUSHI  #0x00000000
35273 @ 298261:               JUMPIF = L_000d

  6056            get(ident)
35274 @ 298265:               LINE   6056 "regression-compile-tmp/imp22g-77.imp"
35275 @ 298305:               PUSH   GET
35276 @ 298308:               PUSHI  #0x00000035
35277 @ 298313:               ASSPAR
35278 @ 298314:               CALL  

  6057            name error %if item <= 0
35279 @ 298315:               LINE   6057 "regression-compile-tmp/imp22g-77.imp"
35280 @ 298355:               PUSH   ITEM
35281 @ 298358:               PUSHI  #0x00000000
35282 @ 298363:               JUMPIF > L_0010
35283 @ 298367:               PUSH   NAMEERROR
35284 @ 298370:               CALL  
35285 @ 298371:               LOCATE L_0010

  6058            fault(typerr+point) %if ditem_flags&proc = 0 %c
  6059                                %or %not parmatch(darg_type,ditem_type)=TRUE
35286 @ 298374:               LINE   6058 "regression-compile-tmp/imp22g-77.imp"
35287 @ 298414:               PUSH   DITEM
35288 @ 298417:               SELECT 1
35289 @ 298420:               PUSHI  #0x00003000
35290 @ 298425:               AND   
35291 @ 298426:               PUSHI  #0x00000000
35292 @ 298431:               JUMPIF = L_0011
35293 @ 298435:               PUSH   PARMATCH
35294 @ 298438:               PUSH   DARG
35295 @ 298441:               SELECT 2
35296 @ 298444:               ASSPAR
35297 @ 298445:               PUSH   DITEM
35298 @ 298448:               SELECT 2
35299 @ 298451:               ASSPAR
35300 @ 298452:               CALL  
35301 @ 298453:               PUSHI  #0x00000001
35302 @ 298458:               JUMPIF = L_0010
35303 @ 298462:               LOCATE L_0011
35304 @ 298465:               PUSH   FAULT
35305 @ 298468:               PUSHI  #0x0000000c
35306 @ 298473:               PUSHI  #0x00000040
35307 @ 298478:               ADD   
35308 @ 298479:               ASSPAR
35309 @ 298480:               CALL  
35310 @ 298481:               LOCATE L_0010

  6060            fault(classerr+point) %if item > headitem %C
  6061                                  %and ditem_mode = procmode {OK if param?}
35311 @ 298484:               LINE   6060 "regression-compile-tmp/imp22g-77.imp"
35312 @ 298524:               PUSH   ITEM
35313 @ 298527:               PUSH   HEADITEM
35314 @ 298530:               JUMPIF <= L_0010
35315 @ 298534:               PUSH   DITEM
35316 @ 298537:               SELECT 8
35317 @ 298540:               PUSHI  #0x000000fa
35318 @ 298545:               JUMPIF # L_0010
35319 @ 298549:               PUSH   FAULT
35320 @ 298552:               PUSHI  #0x0000000a
35321 @ 298557:               PUSHI  #0x00000040
35322 @ 298562:               ADD   
35323 @ 298563:               ASSPAR
35324 @ 298564:               CALL  
35325 @ 298565:               LOCATE L_0010

  6062            item = item+ad
35326 @ 298568:               LINE   6062 "regression-compile-tmp/imp22g-77.imp"
35327 @ 298608:               PUSH   ITEM
35328 @ 298611:               PUSH   ITEM
35329 @ 298614:               PUSHI  #0x00004000
35330 @ 298619:               ADD   
35331 @ 298620:               ASSVAL

  6063            put actual
35332 @ 298621:               LINE   6063 "regression-compile-tmp/imp22g-77.imp"
35333 @ 298661:               PUSH   PUTACTUAL
35334 @ 298664:               CALL  

  6064          %finish %else %if darg_flags >= 0 %start
35335 @ 298665:               LINE   6064 "regression-compile-tmp/imp22g-77.imp"
35336 @ 298705:               GOTO   L_000c
35337 @ 298708:               LOCATE L_000d
35338 @ 298711:               PUSH   DARG
35339 @ 298714:               SELECT 1
35340 @ 298717:               PUSHI  #0x00000000
35341 @ 298722:               JUMPIF < L_000d

  6065            jammy = 0
35342 @ 298726:               LINE   6065 "regression-compile-tmp/imp22g-77.imp"
35343 @ 298766:               PUSH   JAMMY
35344 @ 298769:               PUSHI  #0x00000000
35345 @ 298774:               ASSVAL

  6066            get EXPRESSION(major,0)
35346 @ 298775:               LINE   6066 "regression-compile-tmp/imp22g-77.imp"
35347 @ 298815:               PUSH   GETEXPRESSION
35348 @ 298818:               PUSHI  #0x00000053
35349 @ 298823:               ASSPAR
35350 @ 298824:               PUSHI  #0x00000000
35351 @ 298829:               ASSPAR
35352 @ 298830:               CALL  

  6067            %cycle
35353 @ 298831:               LINE   6067 "regression-compile-tmp/imp22g-77.imp"
35354 @ 298871:               LOCATE L_000f

  6068              %exit %if valok(darg_type,type)=TRUE
35355 @ 298874:               LINE   6068 "regression-compile-tmp/imp22g-77.imp"
35356 @ 298914:               PUSH   VALOK
35357 @ 298917:               PUSH   DARG
35358 @ 298920:               SELECT 2
35359 @ 298923:               ASSPAR
35360 @ 298924:               PUSH   TYPE
35361 @ 298927:               ASSPAR
35362 @ 298928:               CALL  
35363 @ 298929:               PUSHI  #0x00000001
35364 @ 298934:               JUMPIF # L_0013
35365 @ 298938:               GOTO   L_0010
35366 @ 298941:               LOCATE L_0013

  6069            %repeat %until no alt=TRUE
35367 @ 298944:               LINE   6069 "regression-compile-tmp/imp22g-77.imp"
35368 @ 298984:               PUSH   NOALT
35369 @ 298987:               CALL  
35370 @ 298988:               PUSHI  #0x00000001
35371 @ 298993:               JUMPIF = L_0010
35372 @ 298997:               REPEAT L_000f
35373 @ 299000:               LOCATE L_0010

  6070            putexp(check,darg_type,item,darg_type) %if jammy # 0 %c
  6071                                          %and control&capbit # 0 %c
  6072                                          %and category(darg_type) < realy
35374 @ 299003:               LINE   6070 "regression-compile-tmp/imp22g-77.imp"
35375 @ 299043:               PUSH   JAMMY
35376 @ 299046:               PUSHI  #0x00000000
35377 @ 299051:               JUMPIF = L_0010
35378 @ 299055:               PUSH   CONTROL
35379 @ 299058:               PUSHI  #0x20000000
35380 @ 299063:               AND   
35381 @ 299064:               PUSHI  #0x00000000
35382 @ 299069:               JUMPIF = L_0010
35383 @ 299073:               PUSH   CATEGORY
35384 @ 299076:               PUSH   DARG
35385 @ 299079:               SELECT 2
35386 @ 299082:               ASSPAR
35387 @ 299083:               CALL  
35388 @ 299084:               PUSHI  #0x00000005
35389 @ 299089:               JUMPIF >= L_0010
35390 @ 299093:               PUSH   PUTEXP
35391 @ 299096:               PUSHI  #0x0000006f
35392 @ 299101:               ASSPAR
35393 @ 299102:               PUSH   DARG
35394 @ 299105:               SELECT 2
35395 @ 299108:               ASSPAR
35396 @ 299109:               PUSH   ITEM
35397 @ 299112:               ASSPAR
35398 @ 299113:               PUSH   DARG
35399 @ 299116:               SELECT 2
35400 @ 299119:               ASSPAR
35401 @ 299120:               CALL  
35402 @ 299121:               LOCATE L_0010

  6073            put actual
35403 @ 299124:               LINE   6073 "regression-compile-tmp/imp22g-77.imp"
35404 @ 299164:               PUSH   PUTACTUAL
35405 @ 299167:               CALL  

  6074          %else;  !name
35406 @ 299168:               LINE   6074 "regression-compile-tmp/imp22g-77.imp"
35407 @ 299208:               GOTO   L_000c
35408 @ 299211:               LOCATE L_000d

  6075            get REFERENCE(0)
35409 @ 299214:               LINE   6075 "regression-compile-tmp/imp22g-77.imp"
35410 @ 299254:               PUSH   GETREFERENCE
35411 @ 299257:               PUSHI  #0x00000000
35412 @ 299262:               ASSPAR
35413 @ 299263:               CALL  

  6076            %cycle
35414 @ 299264:               LINE   6076 "regression-compile-tmp/imp22g-77.imp"
35415 @ 299304:               LOCATE L_000f

  6077              %exit %if refok(darg_type,type)=TRUE
35416 @ 299307:               LINE   6077 "regression-compile-tmp/imp22g-77.imp"
35417 @ 299347:               PUSH   REFOK
35418 @ 299350:               PUSH   DARG
35419 @ 299353:               SELECT 2
35420 @ 299356:               ASSPAR
35421 @ 299357:               PUSH   TYPE
35422 @ 299360:               ASSPAR
35423 @ 299361:               CALL  
35424 @ 299362:               PUSHI  #0x00000001
35425 @ 299367:               JUMPIF # L_0013
35426 @ 299371:               GOTO   L_0010
35427 @ 299374:               LOCATE L_0013

  6078            %repeat %until no alt=TRUE
35428 @ 299377:               LINE   6078 "regression-compile-tmp/imp22g-77.imp"
35429 @ 299417:               PUSH   NOALT
35430 @ 299420:               CALL  
35431 @ 299421:               PUSHI  #0x00000001
35432 @ 299426:               JUMPIF = L_0010
35433 @ 299430:               REPEAT L_000f
35434 @ 299433:               LOCATE L_0010

  6079            put actual
35435 @ 299436:               LINE   6079 "regression-compile-tmp/imp22g-77.imp"
35436 @ 299476:               PUSH   PUTACTUAL
35437 @ 299479:               CALL  

  6080            tp == typecell(darg_type)
35438 @ 299480:               LINE   6080 "regression-compile-tmp/imp22g-77.imp"
35439 @ 299520:               PUSH   TP
35440 @ 299523:               PUSH   TYPECELL
35441 @ 299526:               PUSH   DARG
35442 @ 299529:               SELECT 2
35443 @ 299532:               ASSPAR
35444 @ 299533:               CALL  
35445 @ 299534:               ASSREF

  6081            %if tp_flags&cat = arry %c
  6082            %and dict(arg+1)_type # darg_type %c
  6083            %and tp_mode >= framemode %start
  6084              !array name (last in group) with non-literal dope vector
35446 @ 299535:               LINE   6081 "regression-compile-tmp/imp22g-77.imp"
35447 @ 299575:               PUSH   TP
35448 @ 299578:               SELECT 1
35449 @ 299581:               PUSHI  #0x0000000f
35450 @ 299586:               AND   
35451 @ 299587:               PUSHI  #0x00000009
35452 @ 299592:               JUMPIF # L_0010
35453 @ 299596:               PUSH   DICT
35454 @ 299599:               PUSH   ARG
35455 @ 299602:               PUSHI  #0x00000001
35456 @ 299607:               ADD   
35457 @ 299608:               ACCESS
35458 @ 299609:               SELECT 2
35459 @ 299612:               PUSH   DARG
35460 @ 299615:               SELECT 2
35461 @ 299618:               JUMPIF = L_0010
35462 @ 299622:               PUSH   TP
35463 @ 299625:               SELECT 8
35464 @ 299628:               PUSHI  #0x000000a8
35465 @ 299633:               JUMPIF < L_0010

  6085              put bounds(darg_type,type)
35466 @ 299637:               LINE   6085 "regression-compile-tmp/imp22g-77.imp"
35467 @ 299677:               PUSH   PUTBOUNDS
35468 @ 299680:               PUSH   DARG
35469 @ 299683:               SELECT 2
35470 @ 299686:               ASSPAR
35471 @ 299687:               PUSH   TYPE
35472 @ 299690:               ASSPAR
35473 @ 299691:               CALL  

  6086            %finish
35474 @ 299692:               LINE   6086 "regression-compile-tmp/imp22g-77.imp"
35475 @ 299732:               LOCATE L_0010

  6087          %finish
35476 @ 299735:               LINE   6087 "regression-compile-tmp/imp22g-77.imp"
35477 @ 299775:               LOCATE L_000c

  6088        %finish
35478 @ 299778:               LINE   6088 "regression-compile-tmp/imp22g-77.imp"
35479 @ 299818:               LOCATE L_0009

  6089      %repeat %until %not a(comma)=TRUE
35480 @ 299821:               LINE   6089 "regression-compile-tmp/imp22g-77.imp"
35481 @ 299861:               PUSH   A
35482 @ 299864:               PUSHI  #0x0000003c
35483 @ 299869:               ASSPAR
35484 @ 299870:               CALL  
35485 @ 299871:               PUSHI  #0x00000001
35486 @ 299876:               JUMPIF # L_0007
35487 @ 299880:               REPEAT L_0006
35488 @ 299883:               LOCATE L_0007

  6090      error(toofew+point) %if darg_link # 0 %or special # 0
35489 @ 299886:               LINE   6090 "regression-compile-tmp/imp22g-77.imp"
35490 @ 299926:               PUSH   DARG
35491 @ 299929:               SELECT 3
35492 @ 299932:               PUSHI  #0x00000000
35493 @ 299937:               JUMPIF # L_0008
35494 @ 299941:               PUSH   SPECIAL
35495 @ 299944:               PUSHI  #0x00000000
35496 @ 299949:               JUMPIF = L_0007
35497 @ 299953:               LOCATE L_0008
35498 @ 299956:               PUSH   ERROR
35499 @ 299959:               PUSHI  #0x00000022
35500 @ 299964:               PUSHI  #0x00000040
35501 @ 299969:               ADD   
35502 @ 299970:               ASSPAR
35503 @ 299971:               CALL  
35504 @ 299972:               LOCATE L_0007

  6091      get(right)
35505 @ 299975:               LINE   6091 "regression-compile-tmp/imp22g-77.imp"
35506 @ 300015:               PUSH   GET
35507 @ 300018:               PUSHI  #0x0000003d
35508 @ 300023:               ASSPAR
35509 @ 300024:               CALL  

  6092    %else;                              !no LEFT
35510 @ 300025:               LINE   6092 "regression-compile-tmp/imp22g-77.imp"
35511 @ 300065:               GOTO   L_0003
35512 @ 300068:               LOCATE L_0004

  6093      error(toofew+point) %if darg_link # 0
35513 @ 300071:               LINE   6093 "regression-compile-tmp/imp22g-77.imp"
35514 @ 300111:               PUSH   DARG
35515 @ 300114:               SELECT 3
35516 @ 300117:               PUSHI  #0x00000000
35517 @ 300122:               JUMPIF = L_0007
35518 @ 300126:               PUSH   ERROR
35519 @ 300129:               PUSHI  #0x00000022
35520 @ 300134:               PUSHI  #0x00000040
35521 @ 300139:               ADD   
35522 @ 300140:               ASSPAR
35523 @ 300141:               CALL  
35524 @ 300142:               LOCATE L_0007

  6094    %finish
35525 @ 300145:               LINE   6094 "regression-compile-tmp/imp22g-77.imp"
35526 @ 300185:               LOCATE L_0003

  6095    put act(pact,hold,0) %if count&1 # 0 %or count = 0
35527 @ 300188:               LINE   6095 "regression-compile-tmp/imp22g-77.imp"
35528 @ 300228:               PUSH   COUNT
35529 @ 300231:               PUSHI  #0x00000001
35530 @ 300236:               AND   
35531 @ 300237:               PUSHI  #0x00000000
35532 @ 300242:               JUMPIF # L_0005
35533 @ 300246:               PUSH   COUNT
35534 @ 300249:               PUSHI  #0x00000000
35535 @ 300254:               JUMPIF # L_0004
35536 @ 300258:               LOCATE L_0005
35537 @ 300261:               PUSH   PUTACT
35538 @ 300264:               PUSH   PACT
35539 @ 300267:               ASSPAR
35540 @ 300268:               PUSH   HOLD
35541 @ 300271:               ASSPAR
35542 @ 300272:               PUSHI  #0x00000000
35543 @ 300277:               ASSPAR
35544 @ 300278:               CALL  
35545 @ 300279:               LOCATE L_0004

  6096    type = restype
35546 @ 300282:               LINE   6096 "regression-compile-tmp/imp22g-77.imp"
35547 @ 300322:               PUSH   TYPE
35548 @ 300325:               PUSH   RESTYPE
35549 @ 300328:               ASSVAL

  6097    %if type # 0 %start;  !not routine
35550 @ 300329:               LINE   6097 "regression-compile-tmp/imp22g-77.imp"
35551 @ 300369:               PUSH   TYPE
35552 @ 300372:               PUSHI  #0x00000000
35553 @ 300377:               JUMPIF = L_0004

  6098      %if hp_flags&volatile = 0 %start
35554 @ 300381:               LINE   6098 "regression-compile-tmp/imp22g-77.imp"
35555 @ 300421:               PUSH   HP
35556 @ 300424:               SELECT 1
35557 @ 300427:               PUSHI  #0x00000004
35558 @ 300432:               AND   
35559 @ 300433:               PUSHI  #0x00000000
35560 @ 300438:               JUMPIF # L_0007

  6099        p = explo
35561 @ 300442:               LINE   6099 "regression-compile-tmp/imp22g-77.imp"
35562 @ 300482:               PUSH   P
35563 @ 300485:               PUSH   EXPLO
35564 @ 300488:               ASSVAL

  6100        %while p < explim %cycle
35565 @ 300489:               LINE   6100 "regression-compile-tmp/imp22g-77.imp"
35566 @ 300529:               LOCATE L_0009
35567 @ 300532:               PUSH   P
35568 @ 300535:               PUSH   EXPLIM
35569 @ 300538:               JUMPIF >= L_000a

  6101          %if dict(p)_act = headitem %start;  ![enough?]
35570 @ 300542:               LINE   6101 "regression-compile-tmp/imp22g-77.imp"
35571 @ 300582:               PUSH   DICT
35572 @ 300585:               PUSH   P
35573 @ 300588:               ACCESS
35574 @ 300589:               SELECT 6
35575 @ 300592:               PUSH   HEADITEM
35576 @ 300595:               JUMPIF # L_000d

  6102            item = p;  q = procnp
35577 @ 300599:               LINE   6102 "regression-compile-tmp/imp22g-77.imp"
35578 @ 300639:               PUSH   ITEM
35579 @ 300642:               PUSH   P
35580 @ 300645:               ASSVAL
35581 @ 300646:               LINE   6102 "regression-compile-tmp/imp22g-77.imp"
35582 @ 300686:               PUSH   Q
35583 @ 300689:               PUSH   PROCNP
35584 @ 300692:               ASSVAL

  6103            %cycle
35585 @ 300693:               LINE   6103 "regression-compile-tmp/imp22g-77.imp"
35586 @ 300733:               LOCATE L_000f

  6104              %exit %if dict(p)_x # dict(q)_x %or dict(p)_y # dict(q)_y
35587 @ 300736:               LINE   6104 "regression-compile-tmp/imp22g-77.imp"
35588 @ 300776:               PUSH   DICT
35589 @ 300779:               PUSH   P
35590 @ 300782:               ACCESS
35591 @ 300783:               SELECT 13
35592 @ 300786:               PUSH   DICT
35593 @ 300789:               PUSH   Q
35594 @ 300792:               ACCESS
35595 @ 300793:               SELECT 13
35596 @ 300796:               JUMPIF # L_0014
35597 @ 300800:               PUSH   DICT
35598 @ 300803:               PUSH   P
35599 @ 300806:               ACCESS
35600 @ 300807:               SELECT 14
35601 @ 300810:               PUSH   DICT
35602 @ 300813:               PUSH   Q
35603 @ 300816:               ACCESS
35604 @ 300817:               SELECT 14
35605 @ 300820:               JUMPIF = L_0013
35606 @ 300824:               LOCATE L_0014
35607 @ 300827:               GOTO   L_0010
35608 @ 300830:               LOCATE L_0013

  6105              p = p+1;  q = q+1
35609 @ 300833:               LINE   6105 "regression-compile-tmp/imp22g-77.imp"
35610 @ 300873:               PUSH   P
35611 @ 300876:               PUSH   P
35612 @ 300879:               PUSHI  #0x00000001
35613 @ 300884:               ADD   
35614 @ 300885:               ASSVAL
35615 @ 300886:               LINE   6105 "regression-compile-tmp/imp22g-77.imp"
35616 @ 300926:               PUSH   Q
35617 @ 300929:               PUSH   Q
35618 @ 300932:               PUSHI  #0x00000001
35619 @ 300937:               ADD   
35620 @ 300938:               ASSVAL

  6106              ->okf %if q >= np
35621 @ 300939:               LINE   6106 "regression-compile-tmp/imp22g-77.imp"
35622 @ 300979:               PUSH   Q
35623 @ 300982:               PUSH   NP
35624 @ 300985:               JUMPIF < L_0013
35625 @ 300989:               JUMP   L_0187
35626 @ 300992:               LOCATE L_0013

  6107            %repeat
35627 @ 300995:               LINE   6107 "regression-compile-tmp/imp22g-77.imp"
35628 @ 301035:               REPEAT L_000f
35629 @ 301038:               LOCATE L_0010

  6108          %finish
35630 @ 301041:               LINE   6108 "regression-compile-tmp/imp22g-77.imp"
35631 @ 301081:               LOCATE L_000d

  6109          p = p+1
35632 @ 301084:               LINE   6109 "regression-compile-tmp/imp22g-77.imp"
35633 @ 301124:               PUSH   P
35634 @ 301127:               PUSH   P
35635 @ 301130:               PUSHI  #0x00000001
35636 @ 301135:               ADD   
35637 @ 301136:               ASSVAL

  6110        %repeat
35638 @ 301137:               LINE   6110 "regression-compile-tmp/imp22g-77.imp"
35639 @ 301177:               REPEAT L_0009
35640 @ 301180:               LOCATE L_000a

  6111      %finish
35641 @ 301183:               LINE   6111 "regression-compile-tmp/imp22g-77.imp"
35642 @ 301223:               LOCATE L_0007

  6112      copy down(procnp)
35643 @ 301226:               LINE   6112 "regression-compile-tmp/imp22g-77.imp"
35644 @ 301266:               PUSH   COPYDOWN
35645 @ 301269:               PUSH   PROCNP
35646 @ 301272:               ASSPAR
35647 @ 301273:               CALL  

  6113      item = explo
35648 @ 301274:               LINE   6113 "regression-compile-tmp/imp22g-77.imp"
35649 @ 301314:               PUSH   ITEM
35650 @ 301317:               PUSH   EXPLO
35651 @ 301320:               ASSVAL

  6114  okf:ditem == dict(item)
35652 @ 301321:               LINE   6114 "regression-compile-tmp/imp22g-77.imp"
35653 @ 301361:               LABEL  L_0187
35654 @ 301364:               LINE   6114 "regression-compile-tmp/imp22g-77.imp"
35655 @ 301404:               PUSH   DITEM
35656 @ 301407:               PUSH   DICT
35657 @ 301410:               PUSH   ITEM
35658 @ 301413:               ACCESS
35659 @ 301414:               ASSREF

  6115      ditem_flags = hp_flags&heritable
35660 @ 301415:               LINE   6115 "regression-compile-tmp/imp22g-77.imp"
35661 @ 301455:               PUSH   DITEM
35662 @ 301458:               SELECT 1
35663 @ 301461:               PUSH   HP
35664 @ 301464:               SELECT 1
35665 @ 301467:               PUSHI  #0x0000007f
35666 @ 301472:               AND   
35667 @ 301473:               ASSVAL

  6116      ditem_mode = 0
35668 @ 301474:               LINE   6116 "regression-compile-tmp/imp22g-77.imp"
35669 @ 301514:               PUSH   DITEM
35670 @ 301517:               SELECT 8
35671 @ 301520:               PUSHI  #0x00000000
35672 @ 301525:               ASSVAL

  6117      %if hp_flags&writable # 0 %start;  !map
35673 @ 301526:               LINE   6117 "regression-compile-tmp/imp22g-77.imp"
35674 @ 301566:               PUSH   HP
35675 @ 301569:               SELECT 1
35676 @ 301572:               PUSHI  #0x00000001
35677 @ 301577:               AND   
35678 @ 301578:               PUSHI  #0x00000000
35679 @ 301583:               JUMPIF = L_0007

  6118        ditem_mode = dispmode
35680 @ 301587:               LINE   6118 "regression-compile-tmp/imp22g-77.imp"
35681 @ 301627:               PUSH   DITEM
35682 @ 301630:               SELECT 8
35683 @ 301633:               PUSHI  #0x00000028
35684 @ 301638:               ASSVAL

  6119      %finish
35685 @ 301639:               LINE   6119 "regression-compile-tmp/imp22g-77.imp"
35686 @ 301679:               LOCATE L_0007

  6120      ditem_type = type
35687 @ 301682:               LINE   6120 "regression-compile-tmp/imp22g-77.imp"
35688 @ 301722:               PUSH   DITEM
35689 @ 301725:               SELECT 2
35690 @ 301728:               PUSH   TYPE
35691 @ 301731:               ASSVAL

  6121      np = procnp
35692 @ 301732:               LINE   6121 "regression-compile-tmp/imp22g-77.imp"
35693 @ 301772:               PUSH   NP
35694 @ 301775:               PUSH   PROCNP
35695 @ 301778:               ASSVAL

  6122    %finish
35696 @ 301779:               LINE   6122 "regression-compile-tmp/imp22g-77.imp"
35697 @ 301819:               LOCATE L_0004

  6123  %end;  !get PARLIST
  6124  
  6125  !<<IMP
  6126  
35698 @ 301822:               LINE   6123 "regression-compile-tmp/imp22g-77.imp"
35699 @ 301862:            END    _lev0id0_GETPARLIST {lev=2 --> 1}

  6127  %routine get RESOLUTION(%integer t,item1)
35700 @ 301863:            LINE   6127 "regression-compile-tmp/imp22g-77.imp"
35701 @ 301903:            DEF    GETRESOLUTION (_lev0id0_GETRESOLUTION) p1=V_0177 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
35702 @ 301928:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
35703 @ 301929:                  DEF    T p1=V_0178 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
35704 @ 301942:                  DEF    ITEM1 p1=V_0179 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
35705 @ 301959:               FINISH ) {lev=2}

  6128  %integer fore,ftype,s
  6129  !  type check needed
35706 @ 301960:               LINE   6128 "regression-compile-tmp/imp22g-77.imp"
35707 @ 302000:               DEF    FORE p1=V_017a a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
35708 @ 302016:               DEF    FTYPE p1=V_017b a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
35709 @ 302033:               DEF    S p1=V_017c a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  6130    s = size(t)
35710 @ 302046:               LINE   6130 "regression-compile-tmp/imp22g-77.imp"
35711 @ 302086:               PUSH   S
35712 @ 302089:               PUSH   SIZE
35713 @ 302092:               PUSH   T
35714 @ 302095:               ASSPAR
35715 @ 302096:               CALL  
35716 @ 302097:               ASSVAL

  6131    s = -256 %if s = 0
35717 @ 302098:               LINE   6131 "regression-compile-tmp/imp22g-77.imp"
35718 @ 302138:               PUSH   S
35719 @ 302141:               PUSHI  #0x00000000
35720 @ 302146:               JUMPIF # L_0004
35721 @ 302150:               PUSH   S
35722 @ 302153:               PUSHI  #0x00000100
35723 @ 302158:               NEGATE
35724 @ 302159:               ASSVAL
35725 @ 302160:               LOCATE L_0004

  6132    fore = 0
35726 @ 302163:               LINE   6132 "regression-compile-tmp/imp22g-77.imp"
35727 @ 302203:               PUSH   FORE
35728 @ 302206:               PUSHI  #0x00000000
35729 @ 302211:               ASSVAL

  6133    %unless a(left)=TRUE %start
35730 @ 302212:               LINE   6133 "regression-compile-tmp/imp22g-77.imp"
35731 @ 302252:               PUSH   A
35732 @ 302255:               PUSHI  #0x00000037
35733 @ 302260:               ASSPAR
35734 @ 302261:               CALL  
35735 @ 302262:               PUSHI  #0x00000001
35736 @ 302267:               JUMPIF = L_0004

  6134      get REFERENCE(stringstar)
35737 @ 302271:               LINE   6134 "regression-compile-tmp/imp22g-77.imp"
35738 @ 302311:               PUSH   GETREFERENCE
35739 @ 302314:               PUSHI  #0x0000003e
35740 @ 302319:               ASSPAR
35741 @ 302320:               CALL  

  6135      fore = item;  ftype = type
35742 @ 302321:               LINE   6135 "regression-compile-tmp/imp22g-77.imp"
35743 @ 302361:               PUSH   FORE
35744 @ 302364:               PUSH   ITEM
35745 @ 302367:               ASSVAL
35746 @ 302368:               LINE   6135 "regression-compile-tmp/imp22g-77.imp"
35747 @ 302408:               PUSH   FTYPE
35748 @ 302411:               PUSH   TYPE
35749 @ 302414:               ASSVAL

  6136      get(dot);  get(left)
35750 @ 302415:               LINE   6136 "regression-compile-tmp/imp22g-77.imp"
35751 @ 302455:               PUSH   GET
35752 @ 302458:               PUSHI  #0x00000057
35753 @ 302463:               ASSPAR
35754 @ 302464:               CALL  
35755 @ 302465:               LINE   6136 "regression-compile-tmp/imp22g-77.imp"
35756 @ 302505:               PUSH   GET
35757 @ 302508:               PUSHI  #0x00000037
35758 @ 302513:               ASSPAR
35759 @ 302514:               CALL  

  6137    %finish
35760 @ 302515:               LINE   6137 "regression-compile-tmp/imp22g-77.imp"
35761 @ 302555:               LOCATE L_0004

  6138    get VALUE(stringtype);  get(right)
35762 @ 302558:               LINE   6138 "regression-compile-tmp/imp22g-77.imp"
35763 @ 302598:               PUSH   GETVALUE
35764 @ 302601:               PUSHI  #0x00000040
35765 @ 302606:               ASSPAR
35766 @ 302607:               CALL  
35767 @ 302608:               LINE   6138 "regression-compile-tmp/imp22g-77.imp"
35768 @ 302648:               PUSH   GET
35769 @ 302651:               PUSHI  #0x0000003d
35770 @ 302656:               ASSPAR
35771 @ 302657:               CALL  

  6139    %if item = 0 %start
35772 @ 302658:               LINE   6139 "regression-compile-tmp/imp22g-77.imp"
35773 @ 302698:               PUSH   ITEM
35774 @ 302701:               PUSHI  #0x00000000
35775 @ 302706:               JUMPIF # L_0004

  6140      item = litref(value);  s = s+final(value)
35776 @ 302710:               LINE   6140 "regression-compile-tmp/imp22g-77.imp"
35777 @ 302750:               PUSH   ITEM
35778 @ 302753:               PUSH   LITREF
35779 @ 302756:               PUSH   VALUE
35780 @ 302759:               ASSPAR
35781 @ 302760:               CALL  
35782 @ 302761:               ASSVAL
35783 @ 302762:               LINE   6140 "regression-compile-tmp/imp22g-77.imp"
35784 @ 302802:               PUSH   S
35785 @ 302805:               PUSH   S
35786 @ 302808:               PUSH   FINAL
35787 @ 302811:               PUSH   VALUE
35788 @ 302814:               ACCESS
35789 @ 302815:               ADD   
35790 @ 302816:               ASSVAL

  6141    %finish
35791 @ 302817:               LINE   6141 "regression-compile-tmp/imp22g-77.imp"
35792 @ 302857:               LOCATE L_0004

  6142    fault(rangerr+warn) %if fore # 0 %and s < size(ftype) # 0
35793 @ 302860:               LINE   6142 "regression-compile-tmp/imp22g-77.imp"
35794 @ 302900:               PUSH   FORE
35795 @ 302903:               PUSHI  #0x00000000
35796 @ 302908:               JUMPIF = L_0004
35797 @ 302912:               PUSH   S
35798 @ 302915:               PUSH   SIZE
35799 @ 302918:               PUSH   FTYPE
35800 @ 302921:               ASSPAR
35801 @ 302922:               CALL  
35802 @ 302923:               JUMPIFD >= L_0004
35803 @ 302927:               PUSHI  #0x00000000
35804 @ 302932:               JUMPIF = L_0004
35805 @ 302936:               PUSH   FAULT
35806 @ 302939:               PUSHI  #0x00000018
35807 @ 302944:               PUSHI  #0xffffff80
35808 @ 302949:               ADD   
35809 @ 302950:               ASSPAR
35810 @ 302951:               CALL  
35811 @ 302952:               LOCATE L_0004

  6143    putact(resolves,item1+ad,item+ad)
35812 @ 302955:               LINE   6143 "regression-compile-tmp/imp22g-77.imp"
35813 @ 302995:               PUSH   PUTACT
35814 @ 302998:               PUSHI  #0x00000075
35815 @ 303003:               ASSPAR
35816 @ 303004:               PUSH   ITEM1
35817 @ 303007:               PUSHI  #0x00004000
35818 @ 303012:               ADD   
35819 @ 303013:               ASSPAR
35820 @ 303014:               PUSH   ITEM
35821 @ 303017:               PUSHI  #0x00004000
35822 @ 303022:               ADD   
35823 @ 303023:               ASSPAR
35824 @ 303024:               CALL  

  6144    item = 0
35825 @ 303025:               LINE   6144 "regression-compile-tmp/imp22g-77.imp"
35826 @ 303065:               PUSH   ITEM
35827 @ 303068:               PUSHI  #0x00000000
35828 @ 303073:               ASSVAL

  6145    %if a(dot)=TRUE %start
35829 @ 303074:               LINE   6145 "regression-compile-tmp/imp22g-77.imp"
35830 @ 303114:               PUSH   A
35831 @ 303117:               PUSHI  #0x00000057
35832 @ 303122:               ASSPAR
35833 @ 303123:               CALL  
35834 @ 303124:               PUSHI  #0x00000001
35835 @ 303129:               JUMPIF # L_0004

  6146      get REFERENCE(stringstar)
35836 @ 303133:               LINE   6146 "regression-compile-tmp/imp22g-77.imp"
35837 @ 303173:               PUSH   GETREFERENCE
35838 @ 303176:               PUSHI  #0x0000003e
35839 @ 303181:               ASSPAR
35840 @ 303182:               CALL  

  6147      fault(rangerr+warn) %if s < size(type) # 0
35841 @ 303183:               LINE   6147 "regression-compile-tmp/imp22g-77.imp"
35842 @ 303223:               PUSH   S
35843 @ 303226:               PUSH   SIZE
35844 @ 303229:               PUSH   TYPE
35845 @ 303232:               ASSPAR
35846 @ 303233:               CALL  
35847 @ 303234:               JUMPIFD >= L_0007
35848 @ 303238:               PUSHI  #0x00000000
35849 @ 303243:               JUMPIF = L_0007
35850 @ 303247:               PUSH   FAULT
35851 @ 303250:               PUSHI  #0x00000018
35852 @ 303255:               PUSHI  #0xffffff80
35853 @ 303260:               ADD   
35854 @ 303261:               ASSPAR
35855 @ 303262:               CALL  
35856 @ 303263:               LOCATE L_0007

  6148    %finish
35857 @ 303266:               LINE   6148 "regression-compile-tmp/imp22g-77.imp"
35858 @ 303306:               LOCATE L_0004

  6149    putact(0,fore,item)
35859 @ 303309:               LINE   6149 "regression-compile-tmp/imp22g-77.imp"
35860 @ 303349:               PUSH   PUTACT
35861 @ 303352:               PUSHI  #0x00000000
35862 @ 303357:               ASSPAR
35863 @ 303358:               PUSH   FORE
35864 @ 303361:               ASSPAR
35865 @ 303362:               PUSH   ITEM
35866 @ 303365:               ASSPAR
35867 @ 303366:               CALL  

  6150    putact(0,0,0);       !preserve 'parity'
35868 @ 303367:               LINE   6150 "regression-compile-tmp/imp22g-77.imp"
35869 @ 303407:               PUSH   PUTACT
35870 @ 303410:               PUSHI  #0x00000000
35871 @ 303415:               ASSPAR
35872 @ 303416:               PUSHI  #0x00000000
35873 @ 303421:               ASSPAR
35874 @ 303422:               PUSHI  #0x00000000
35875 @ 303427:               ASSPAR
35876 @ 303428:               CALL  

  6151  %end
  6152  
35877 @ 303429:               LINE   6151 "regression-compile-tmp/imp22g-77.imp"
35878 @ 303469:            END    _lev0id0_GETRESOLUTION {lev=2 --> 1}

  6153  %integer%fn ANON(%record(objinfo)%name d)
35879 @ 303470:            LINE   6153 "regression-compile-tmp/imp22g-77.imp"
35880 @ 303510:            DEF    ANON (_lev0id0_ANON) p1=V_0178 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
35881 @ 303526:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
35882 @ 303527:                  DEF    D p1=V_0179 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
35883 @ 303540:               FINISH ) {lev=2}

  6154    dict(lablim+3)_details = d
35884 @ 303541:               LINE   6154 "regression-compile-tmp/imp22g-77.imp"
35885 @ 303581:               PUSH   DICT
35886 @ 303584:               PUSH   LABLIM
35887 @ 303587:               PUSHI  #0x00000003
35888 @ 303592:               ADD   
35889 @ 303593:               ACCESS
35890 @ 303594:               SELECT 10
35891 @ 303597:               PUSH   D
35892 @ 303600:               ASSVAL

  6155    %result = lablim+3
35893 @ 303601:               LINE   6155 "regression-compile-tmp/imp22g-77.imp"
35894 @ 303641:               PUSH   LABLIM
35895 @ 303644:               PUSHI  #0x00000003
35896 @ 303649:               ADD   
35897 @ 303650:               RESULT

  6156  %end
  6157  
35898 @ 303651:               LINE   6156 "regression-compile-tmp/imp22g-77.imp"
35899 @ 303691:            END    _lev0id0_ANON {lev=2 --> 1}

  6158  %integerfn A ASSOP(%integer t)
35900 @ 303692:            LINE   6158 "regression-compile-tmp/imp22g-77.imp"
35901 @ 303732:            DEF    AASSOP (_lev0id0_AASSOP) p1=V_0179 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
35902 @ 303750:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
35903 @ 303751:                  DEF    T p1=V_017a a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
35904 @ 303764:               FINISH ) {lev=2}

  6159    %if t <= 0 %start
35905 @ 303765:               LINE   6159 "regression-compile-tmp/imp22g-77.imp"
35906 @ 303805:               PUSH   T
35907 @ 303808:               PUSHI  #0x00000000
35908 @ 303813:               JUMPIF > L_0004

  6160      %result = FALSE %unless a(eqeq)=TRUE
35909 @ 303817:               LINE   6160 "regression-compile-tmp/imp22g-77.imp"
35910 @ 303857:               PUSH   A
35911 @ 303860:               PUSHI  #0x0000004b
35912 @ 303865:               ASSPAR
35913 @ 303866:               CALL  
35914 @ 303867:               PUSHI  #0x00000001
35915 @ 303872:               JUMPIF = L_0007
35916 @ 303876:               PUSHI  #0x00000000
35917 @ 303881:               RESULT
35918 @ 303882:               LOCATE L_0007

  6161    %else
35919 @ 303885:               LINE   6161 "regression-compile-tmp/imp22g-77.imp"
35920 @ 303925:               GOTO   L_0003
35921 @ 303928:               LOCATE L_0004

  6162      atom = next atom %if matched # 0
35922 @ 303931:               LINE   6162 "regression-compile-tmp/imp22g-77.imp"
35923 @ 303971:               PUSH   MATCHED
35924 @ 303974:               PUSHI  #0x00000000
35925 @ 303979:               JUMPIF = L_0007
35926 @ 303983:               PUSH   ATOM
35927 @ 303986:               PUSH   NEXTATOM
35928 @ 303989:               CALL  
35929 @ 303990:               ASSVAL
35930 @ 303991:               LOCATE L_0007

  6163      %if atom # equals %start
35931 @ 303994:               LINE   6163 "regression-compile-tmp/imp22g-77.imp"
35932 @ 304034:               PUSH   ATOM
35933 @ 304037:               PUSHI  #0x0000004d
35934 @ 304042:               JUMPIF = L_0007

  6164        %result = FALSE %unless atom = less %and byteintegeR(fp) = '-'
35935 @ 304046:               LINE   6164 "regression-compile-tmp/imp22g-77.imp"
35936 @ 304086:               PUSH   ATOM
35937 @ 304089:               PUSHI  #0x00000050
35938 @ 304094:               JUMPIF # L_000b
35939 @ 304098:               PUSH   BYTEINTEGER
35940 @ 304101:               PUSH   FP
35941 @ 304104:               ASSPAR
35942 @ 304105:               CALL  
35943 @ 304106:               PUSHI  #0x0000002d
35944 @ 304111:               JUMPIF = L_000a
35945 @ 304115:               LOCATE L_000b
35946 @ 304118:               PUSHI  #0x00000000
35947 @ 304123:               RESULT
35948 @ 304124:               LOCATE L_000a

  6165        jammy = 1;  fp = fp+1
35949 @ 304127:               LINE   6165 "regression-compile-tmp/imp22g-77.imp"
35950 @ 304167:               PUSH   JAMMY
35951 @ 304170:               PUSHI  #0x00000001
35952 @ 304175:               ASSVAL
35953 @ 304176:               LINE   6165 "regression-compile-tmp/imp22g-77.imp"
35954 @ 304216:               PUSH   FP
35955 @ 304219:               PUSH   FP
35956 @ 304222:               PUSHI  #0x00000001
35957 @ 304227:               ADD   
35958 @ 304228:               ASSVAL

  6166      %finish %else jammy = 0
35959 @ 304229:               LINE   6166 "regression-compile-tmp/imp22g-77.imp"
35960 @ 304269:               GOTO   L_0006
35961 @ 304272:               LOCATE L_0007
35962 @ 304275:               PUSH   JAMMY
35963 @ 304278:               PUSHI  #0x00000000
35964 @ 304283:               ASSVAL
35965 @ 304284:               LOCATE L_0006

  6167      matched = 1
35966 @ 304287:               LINE   6167 "regression-compile-tmp/imp22g-77.imp"
35967 @ 304327:               PUSH   MATCHED
35968 @ 304330:               PUSHI  #0x00000001
35969 @ 304335:               ASSVAL

  6168    %finish
35970 @ 304336:               LINE   6168 "regression-compile-tmp/imp22g-77.imp"
35971 @ 304376:               LOCATE L_0003

  6169    %result = TRUE
35972 @ 304379:               LINE   6169 "regression-compile-tmp/imp22g-77.imp"
35973 @ 304419:               PUSHI  #0x00000001
35974 @ 304424:               RESULT

  6170  %end
  6171  
  6172  !<<BOTH
  6173  
  6174  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  6175  !
35975 @ 304425:               LINE   6170 "regression-compile-tmp/imp22g-77.imp"
35976 @ 304465:            END    _lev0id0_AASSOP {lev=2 --> 1}

  6176  %routine GET EXPRESSION(%integer rank,etype)
  6177  !Main expression recognition routine
  6178  !To bring together the treatment of all binary operators
  6179  ! and ensure fast recognition of simple expressions,
  6180  ! expressions of different levels are handled by
  6181  ! precedence techniques rather than syntactically
35977 @ 304466:            LINE   6176 "regression-compile-tmp/imp22g-77.imp"
35978 @ 304506:            DEF    GETEXPRESSION (_lev0id0_GETEXPRESSION) p1=V_016b 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
35979 @ 304531:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
35980 @ 304532:                  DEF    RANK p1=V_017a a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
35981 @ 304548:                  DEF    ETYPE p1=V_017b a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
35982 @ 304565:               FINISH ) {lev=2}

  6182  %integer atomp0,item1,type1,cat1,val1,double,op
35983 @ 304566:               LINE   6182 "regression-compile-tmp/imp22g-77.imp"
35984 @ 304606:               DEF    ATOMP0 p1=V_017c a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
35985 @ 304624:               DEF    ITEM1 p1=V_017d a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
35986 @ 304641:               DEF    TYPE1 p1=V_017e a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
35987 @ 304658:               DEF    CAT1 p1=V_017f a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
35988 @ 304674:               DEF    VAL1 p1=V_0180 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
35989 @ 304690:               DEF    DOUBLE p1=V_0181 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
35990 @ 304708:               DEF    OP p1=V_0182 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  6183  %record(identinfo)%name ditem1,tp
35991 @ 304722:               LINE   6183 "regression-compile-tmp/imp22g-77.imp"
35992 @ 304762:               DEF    DITEM1 p1=V_0183 a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
35993 @ 304780:               DEF    TP p1=V_0184 a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  6184  %constinteger nop=0;  !to distinguish from numeric zero in OPVAL
  6185  
35994 @ 304794:               LINE   6184 "regression-compile-tmp/imp22g-77.imp"

  6186  %routine GET RECORD
  6187  ![literal only at this stage]
35995 @ 304834:               LINE   6186 "regression-compile-tmp/imp22g-77.imp"
35996 @ 304874:               DEF    GETRECORD (_lev0id0_GETEXPRESSION_GETRECORD) p1=V_0185 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
35997 @ 304895:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
35998 @ 304896:                  FINISH ) {lev=3}

  6188  %integer fid,ad,arg,hold,count,max,s
35999 @ 304897:                  LINE   6188 "regression-compile-tmp/imp22g-77.imp"
36000 @ 304937:                  DEF    FID p1=V_0186 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
36001 @ 304952:                  DEF    AD p1=V_0187 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
36002 @ 304966:                  DEF    ARG p1=V_0188 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
36003 @ 304981:                  DEF    HOLD p1=V_0189 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
36004 @ 304997:                  DEF    COUNT p1=V_018a a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
36005 @ 305014:                  DEF    MAX p1=V_018b a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
36006 @ 305029:                  DEF    S p1=V_018c a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  6189  %record(identinfo)%name darg,fidp
36007 @ 305042:                  LINE   6189 "regression-compile-tmp/imp22g-77.imp"
36008 @ 305082:                  DEF    DARG p1=V_018d a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
36009 @ 305098:                  DEF    FIDP p1=V_018e a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  6190    literal = literal+1
36010 @ 305114:                  LINE   6190 "regression-compile-tmp/imp22g-77.imp"
36011 @ 305154:                  PUSH   LITERAL
36012 @ 305157:                  PUSH   LITERAL
36013 @ 305160:                  PUSHI  #0x00000001
36014 @ 305165:                  ADD   
36015 @ 305166:                  ASSVAL

  6191    fill code(1) %if cad&1 # 0
36016 @ 305167:                  LINE   6191 "regression-compile-tmp/imp22g-77.imp"
36017 @ 305207:                  PUSH   CAD
36018 @ 305210:                  PUSHI  #0x00000001
36019 @ 305215:                  AND   
36020 @ 305216:                  PUSHI  #0x00000000
36021 @ 305221:                  JUMPIF = L_0004
36022 @ 305225:                  PUSH   FILLCODE
36023 @ 305228:                  PUSHI  #0x00000001
36024 @ 305233:                  ASSPAR
36025 @ 305234:                  CALL  
36026 @ 305235:                  LOCATE L_0004

  6192    ad = cad
36027 @ 305238:                  LINE   6192 "regression-compile-tmp/imp22g-77.imp"
36028 @ 305278:                  PUSH   AD
36029 @ 305281:                  PUSH   CAD
36030 @ 305284:                  ASSVAL

  6193    fid = item;  fidp == ditem
36031 @ 305285:                  LINE   6193 "regression-compile-tmp/imp22g-77.imp"
36032 @ 305325:                  PUSH   FID
36033 @ 305328:                  PUSH   ITEM
36034 @ 305331:                  ASSVAL
36035 @ 305332:                  LINE   6193 "regression-compile-tmp/imp22g-77.imp"
36036 @ 305372:                  PUSH   FIDP
36037 @ 305375:                  PUSH   DITEM
36038 @ 305378:                  ASSREF

  6194    arg = fidp_link
36039 @ 305379:                  LINE   6194 "regression-compile-tmp/imp22g-77.imp"
36040 @ 305419:                  PUSH   ARG
36041 @ 305422:                  PUSH   FIDP
36042 @ 305425:                  SELECT 3
36043 @ 305428:                  ASSVAL

  6195    count = 0;  max = -1
36044 @ 305429:                  LINE   6195 "regression-compile-tmp/imp22g-77.imp"
36045 @ 305469:                  PUSH   COUNT
36046 @ 305472:                  PUSHI  #0x00000000
36047 @ 305477:                  ASSVAL
36048 @ 305478:                  LINE   6195 "regression-compile-tmp/imp22g-77.imp"
36049 @ 305518:                  PUSH   MAX
36050 @ 305521:                  PUSHI  #0x00000001
36051 @ 305526:                  NEGATE
36052 @ 305527:                  ASSVAL

  6196    get(left)
36053 @ 305528:                  LINE   6196 "regression-compile-tmp/imp22g-77.imp"
36054 @ 305568:                  PUSH   GET
36055 @ 305571:                  PUSHI  #0x00000037
36056 @ 305576:                  ASSPAR
36057 @ 305577:                  CALL  

  6197    %cycle
  6198      ![*beware premature lexical coding: may alter CAD*]
36058 @ 305578:                  LINE   6197 "regression-compile-tmp/imp22g-77.imp"
36059 @ 305618:                  LOCATE L_0003

  6199      %cycle
36060 @ 305621:                  LINE   6199 "regression-compile-tmp/imp22g-77.imp"
36061 @ 305661:                  LOCATE L_0006

  6200        error(toomany+point) %if arg <= 0
36062 @ 305664:                  LINE   6200 "regression-compile-tmp/imp22g-77.imp"
36063 @ 305704:                  PUSH   ARG
36064 @ 305707:                  PUSHI  #0x00000000
36065 @ 305712:                  JUMPIF > L_000a
36066 @ 305716:                  PUSH   ERROR
36067 @ 305719:                  PUSHI  #0x00000023
36068 @ 305724:                  PUSHI  #0x00000040
36069 @ 305729:                  ADD   
36070 @ 305730:                  ASSPAR
36071 @ 305731:                  CALL  
36072 @ 305732:                  LOCATE L_000a

  6201        darg == dict(arg)
36073 @ 305735:                  LINE   6201 "regression-compile-tmp/imp22g-77.imp"
36074 @ 305775:                  PUSH   DARG
36075 @ 305778:                  PUSH   DICT
36076 @ 305781:                  PUSH   ARG
36077 @ 305784:                  ACCESS
36078 @ 305785:                  ASSREF

  6202        %exit %if ad+darg_val-cad >= 0
36079 @ 305786:                  LINE   6202 "regression-compile-tmp/imp22g-77.imp"
36080 @ 305826:                  PUSH   AD
36081 @ 305829:                  PUSH   DARG
36082 @ 305832:                  SELECT 9
36083 @ 305835:                  ADD   
36084 @ 305836:                  PUSH   CAD
36085 @ 305839:                  SUB   
36086 @ 305840:                  PUSHI  #0x00000000
36087 @ 305845:                  JUMPIF < L_000a
36088 @ 305849:                  GOTO   L_0007
36089 @ 305852:                  LOCATE L_000a

  6203        arg = darg_hlink
36090 @ 305855:                  LINE   6203 "regression-compile-tmp/imp22g-77.imp"
36091 @ 305895:                  PUSH   ARG
36092 @ 305898:                  PUSH   DARG
36093 @ 305901:                  SELECT 12
36094 @ 305904:                  ASSVAL

  6204      %repeat
36095 @ 305905:                  LINE   6204 "regression-compile-tmp/imp22g-77.imp"
36096 @ 305945:                  REPEAT L_0006
36097 @ 305948:                  LOCATE L_0007

  6205      fill code(ad+darg_val-cad)
  6206     ! [*now OK to code atom*]
36098 @ 305951:                  LINE   6205 "regression-compile-tmp/imp22g-77.imp"
36099 @ 305991:                  PUSH   FILLCODE
36100 @ 305994:                  PUSH   AD
36101 @ 305997:                  PUSH   DARG
36102 @ 306000:                  SELECT 9
36103 @ 306003:                  ADD   
36104 @ 306004:                  PUSH   CAD
36105 @ 306007:                  SUB   
36106 @ 306008:                  ASSPAR
36107 @ 306009:                  CALL  

  6207      %if a(recsub)=TRUE %start
36108 @ 306010:                  LINE   6207 "regression-compile-tmp/imp22g-77.imp"
36109 @ 306050:                  PUSH   A
36110 @ 306053:                  PUSHI  #0x0000003a
36111 @ 306058:                  ASSPAR
36112 @ 306059:                  CALL  
36113 @ 306060:                  PUSHI  #0x00000001
36114 @ 306065:                  JUMPIF # L_0007

  6208        subbed = 1;  dformat == fidp
36115 @ 306069:                  LINE   6208 "regression-compile-tmp/imp22g-77.imp"
36116 @ 306109:                  PUSH   SUBBED
36117 @ 306112:                  PUSHI  #0x00000001
36118 @ 306117:                  ASSVAL
36119 @ 306118:                  LINE   6208 "regression-compile-tmp/imp22g-77.imp"
36120 @ 306158:                  PUSH   DFORMAT
36121 @ 306161:                  PUSH   FIDP
36122 @ 306164:                  ASSREF

  6209        get(ident)
36123 @ 306165:                  LINE   6209 "regression-compile-tmp/imp22g-77.imp"
36124 @ 306205:                  PUSH   GET
36125 @ 306208:                  PUSHI  #0x00000035
36126 @ 306213:                  ASSPAR
36127 @ 306214:                  CALL  

  6210        subbed = 0
36128 @ 306215:                  LINE   6210 "regression-compile-tmp/imp22g-77.imp"
36129 @ 306255:                  PUSH   SUBBED
36130 @ 306258:                  PUSHI  #0x00000000
36131 @ 306263:                  ASSVAL

  6211        name error %if item < arg
36132 @ 306264:                  LINE   6211 "regression-compile-tmp/imp22g-77.imp"
36133 @ 306304:                  PUSH   ITEM
36134 @ 306307:                  PUSH   ARG
36135 @ 306310:                  JUMPIF >= L_000a
36136 @ 306314:                  PUSH   NAMEERROR
36137 @ 306317:                  CALL  
36138 @ 306318:                  LOCATE L_000a

  6212        fill code(ditem_val-darg_val)
36139 @ 306321:                  LINE   6212 "regression-compile-tmp/imp22g-77.imp"
36140 @ 306361:                  PUSH   FILLCODE
36141 @ 306364:                  PUSH   DITEM
36142 @ 306367:                  SELECT 9
36143 @ 306370:                  PUSH   DARG
36144 @ 306373:                  SELECT 9
36145 @ 306376:                  SUB   
36146 @ 306377:                  ASSPAR
36147 @ 306378:                  CALL  

  6213        arg = item;  darg == ditem
36148 @ 306379:                  LINE   6213 "regression-compile-tmp/imp22g-77.imp"
36149 @ 306419:                  PUSH   ARG
36150 @ 306422:                  PUSH   ITEM
36151 @ 306425:                  ASSVAL
36152 @ 306426:                  LINE   6213 "regression-compile-tmp/imp22g-77.imp"
36153 @ 306466:                  PUSH   DARG
36154 @ 306469:                  PUSH   DITEM
36155 @ 306472:                  ASSREF

  6214        syntax error %unless a assop(darg_flags&name+darg_type)=TRUE
36156 @ 306473:                  LINE   6214 "regression-compile-tmp/imp22g-77.imp"
36157 @ 306513:                  PUSH   AASSOP
36158 @ 306516:                  PUSH   DARG
36159 @ 306519:                  SELECT 1
36160 @ 306522:                  PUSHI  #0xffff8000
36161 @ 306527:                  AND   
36162 @ 306528:                  PUSH   DARG
36163 @ 306531:                  SELECT 2
36164 @ 306534:                  ADD   
36165 @ 306535:                  ASSPAR
36166 @ 306536:                  CALL  
36167 @ 306537:                  PUSHI  #0x00000001
36168 @ 306542:                  JUMPIF = L_000a
36169 @ 306546:                  PUSH   SYNTAXERROR
36170 @ 306549:                  CALL  
36171 @ 306550:                  LOCATE L_000a

  6215      %finish
36172 @ 306553:                  LINE   6215 "regression-compile-tmp/imp22g-77.imp"
36173 @ 306593:                  LOCATE L_0007

  6216      s = nsize(darg)
36174 @ 306596:                  LINE   6216 "regression-compile-tmp/imp22g-77.imp"
36175 @ 306636:                  PUSH   S
36176 @ 306639:                  PUSH   NSIZE
36177 @ 306642:                  PUSH   DARG
36178 @ 306645:                  ASSPAR
36179 @ 306646:                  CALL  
36180 @ 306647:                  ASSVAL

  6217      %unless a(comma)=TRUE %start
36181 @ 306648:                  LINE   6217 "regression-compile-tmp/imp22g-77.imp"
36182 @ 306688:                  PUSH   A
36183 @ 306691:                  PUSHI  #0x0000003c
36184 @ 306696:                  ASSPAR
36185 @ 306697:                  CALL  
36186 @ 306698:                  PUSHI  #0x00000001
36187 @ 306703:                  JUMPIF = L_0007

  6218        get VALUE(darg_flags&name+darg_type)
36188 @ 306707:                  LINE   6218 "regression-compile-tmp/imp22g-77.imp"
36189 @ 306747:                  PUSH   GETVALUE
36190 @ 306750:                  PUSH   DARG
36191 @ 306753:                  SELECT 1
36192 @ 306756:                  PUSHI  #0xffff8000
36193 @ 306761:                  AND   
36194 @ 306762:                  PUSH   DARG
36195 @ 306765:                  SELECT 2
36196 @ 306768:                  ADD   
36197 @ 306769:                  ASSPAR
36198 @ 306770:                  CALL  

  6219        %if s > 0 %start
36199 @ 306771:                  LINE   6219 "regression-compile-tmp/imp22g-77.imp"
36200 @ 306811:                  PUSH   S
36201 @ 306814:                  PUSHI  #0x00000000
36202 @ 306819:                  JUMPIF <= L_000a

  6220          %if s = 4 %start
  6221  !$IF VAX
  6222  {          value = ieee(value) %if darg_type = realtype %and darg_flags >= 0
  6223  !$FINISH
36203 @ 306823:                  LINE   6220 "regression-compile-tmp/imp22g-77.imp"
36204 @ 306863:                  PUSH   S
36205 @ 306866:                  PUSHI  #0x00000004
36206 @ 306871:                  JUMPIF # L_000d

  6224            set code longword(value)
36207 @ 306875:                  LINE   6224 "regression-compile-tmp/imp22g-77.imp"
36208 @ 306915:                  PUSH   SETCODELONGWORD
36209 @ 306918:                  PUSH   VALUE
36210 @ 306921:                  ASSPAR
36211 @ 306922:                  CALL  

  6225          %finish %else %if s = 2 %start
36212 @ 306923:                  LINE   6225 "regression-compile-tmp/imp22g-77.imp"
36213 @ 306963:                  GOTO   L_000c
36214 @ 306966:                  LOCATE L_000d
36215 @ 306969:                  PUSH   S
36216 @ 306972:                  PUSHI  #0x00000002
36217 @ 306977:                  JUMPIF # L_000d

  6226           set code word(value)
36218 @ 306981:                  LINE   6226 "regression-compile-tmp/imp22g-77.imp"
36219 @ 307021:                  PUSH   SETCODEWORD
36220 @ 307024:                  PUSH   VALUE
36221 @ 307027:                  ASSPAR
36222 @ 307028:                  CALL  

  6227          %else
36223 @ 307029:                  LINE   6227 "regression-compile-tmp/imp22g-77.imp"
36224 @ 307069:                  GOTO   L_000c
36225 @ 307072:                  LOCATE L_000d

  6228            final(cad) <- value;  cad = cad+1
36226 @ 307075:                  LINE   6228 "regression-compile-tmp/imp22g-77.imp"
36227 @ 307115:                  PUSH   FINAL
36228 @ 307118:                  PUSH   CAD
36229 @ 307121:                  ACCESS
36230 @ 307122:                  PUSH   VALUE
36231 @ 307125:                  JAM   
36232 @ 307126:                  LINE   6228 "regression-compile-tmp/imp22g-77.imp"
36233 @ 307166:                  PUSH   CAD
36234 @ 307169:                  PUSH   CAD
36235 @ 307172:                  PUSHI  #0x00000001
36236 @ 307177:                  ADD   
36237 @ 307178:                  ASSVAL

  6229          %finish
36238 @ 307179:                  LINE   6229 "regression-compile-tmp/imp22g-77.imp"
36239 @ 307219:                  LOCATE L_000c

  6230        %finish
36240 @ 307222:                  LINE   6230 "regression-compile-tmp/imp22g-77.imp"
36241 @ 307262:                  LOCATE L_000a

  6231        %exit %if a(right)=TRUE
36242 @ 307265:                  LINE   6231 "regression-compile-tmp/imp22g-77.imp"
36243 @ 307305:                  PUSH   A
36244 @ 307308:                  PUSHI  #0x0000003d
36245 @ 307313:                  ASSPAR
36246 @ 307314:                  CALL  
36247 @ 307315:                  PUSHI  #0x00000001
36248 @ 307320:                  JUMPIF # L_000a
36249 @ 307324:                  GOTO   L_0004
36250 @ 307327:                  LOCATE L_000a

  6232        get(comma)
36251 @ 307330:                  LINE   6232 "regression-compile-tmp/imp22g-77.imp"
36252 @ 307370:                  PUSH   GET
36253 @ 307373:                  PUSHI  #0x0000003c
36254 @ 307378:                  ASSPAR
36255 @ 307379:                  CALL  

  6233      %finish %else %if s > 0 %start
36256 @ 307380:                  LINE   6233 "regression-compile-tmp/imp22g-77.imp"
36257 @ 307420:                  GOTO   L_0006
36258 @ 307423:                  LOCATE L_0007
36259 @ 307426:                  PUSH   S
36260 @ 307429:                  PUSHI  #0x00000000
36261 @ 307434:                  JUMPIF <= L_0007

  6234        fill code(s)
36262 @ 307438:                  LINE   6234 "regression-compile-tmp/imp22g-77.imp"
36263 @ 307478:                  PUSH   FILLCODE
36264 @ 307481:                  PUSH   S
36265 @ 307484:                  ASSPAR
36266 @ 307485:                  CALL  

  6235      %finish
36267 @ 307486:                  LINE   6235 "regression-compile-tmp/imp22g-77.imp"
36268 @ 307526:                  LOCATE L_0007
36269 @ 307529:                  LOCATE L_0006

  6236      arg = darg_hlink
36270 @ 307532:                  LINE   6236 "regression-compile-tmp/imp22g-77.imp"
36271 @ 307572:                  PUSH   ARG
36272 @ 307575:                  PUSH   DARG
36273 @ 307578:                  SELECT 12
36274 @ 307581:                  ASSVAL

  6237    %repeat
36275 @ 307582:                  LINE   6237 "regression-compile-tmp/imp22g-77.imp"
36276 @ 307622:                  REPEAT L_0003
36277 @ 307625:                  LOCATE L_0004

  6238    fill code(ad+imod(fidp_val)-cad)
36278 @ 307628:                  LINE   6238 "regression-compile-tmp/imp22g-77.imp"
36279 @ 307668:                  PUSH   FILLCODE
36280 @ 307671:                  PUSH   AD
36281 @ 307674:                  PUSH   IMOD
36282 @ 307677:                  PUSH   FIDP
36283 @ 307680:                  SELECT 9
36284 @ 307683:                  ASSPAR
36285 @ 307684:                  CALL  
36286 @ 307685:                  ADD   
36287 @ 307686:                  PUSH   CAD
36288 @ 307689:                  SUB   
36289 @ 307690:                  ASSPAR
36290 @ 307691:                  CALL  

  6239    item = 0;  value = ad
36291 @ 307692:                  LINE   6239 "regression-compile-tmp/imp22g-77.imp"
36292 @ 307732:                  PUSH   ITEM
36293 @ 307735:                  PUSHI  #0x00000000
36294 @ 307740:                  ASSVAL
36295 @ 307741:                  LINE   6239 "regression-compile-tmp/imp22g-77.imp"
36296 @ 307781:                  PUSH   VALUE
36297 @ 307784:                  PUSH   AD
36298 @ 307787:                  ASSVAL

  6240    literal = literal-1
36299 @ 307788:                  LINE   6240 "regression-compile-tmp/imp22g-77.imp"
36300 @ 307828:                  PUSH   LITERAL
36301 @ 307831:                  PUSH   LITERAL
36302 @ 307834:                  PUSHI  #0x00000001
36303 @ 307839:                  SUB   
36304 @ 307840:                  ASSVAL

  6241  %end
  6242  
36305 @ 307841:                  LINE   6241 "regression-compile-tmp/imp22g-77.imp"
36306 @ 307881:               END    _lev0id0_GETEXPRESSION_GETRECORD {lev=3 --> 2}

  6243  %routine SWOP
36307 @ 307882:               LINE   6243 "regression-compile-tmp/imp22g-77.imp"
36308 @ 307922:               DEF    SWOP (_lev0id0_GETEXPRESSION_SWOP) p1=V_0186 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
36309 @ 307938:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
36310 @ 307939:                  FINISH ) {lev=3}

  6244  %integer temp
36311 @ 307940:                  LINE   6244 "regression-compile-tmp/imp22g-77.imp"
36312 @ 307980:                  DEF    TEMP p1=V_0187 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  6245    temp = item1;  item1 = item;  item = temp
36313 @ 307996:                  LINE   6245 "regression-compile-tmp/imp22g-77.imp"
36314 @ 308036:                  PUSH   TEMP
36315 @ 308039:                  PUSH   ITEM1
36316 @ 308042:                  ASSVAL
36317 @ 308043:                  LINE   6245 "regression-compile-tmp/imp22g-77.imp"
36318 @ 308083:                  PUSH   ITEM1
36319 @ 308086:                  PUSH   ITEM
36320 @ 308089:                  ASSVAL
36321 @ 308090:                  LINE   6245 "regression-compile-tmp/imp22g-77.imp"
36322 @ 308130:                  PUSH   ITEM
36323 @ 308133:                  PUSH   TEMP
36324 @ 308136:                  ASSVAL

  6246    temp = val1;  val1 = value;  value = temp
36325 @ 308137:                  LINE   6246 "regression-compile-tmp/imp22g-77.imp"
36326 @ 308177:                  PUSH   TEMP
36327 @ 308180:                  PUSH   VAL1
36328 @ 308183:                  ASSVAL
36329 @ 308184:                  LINE   6246 "regression-compile-tmp/imp22g-77.imp"
36330 @ 308224:                  PUSH   VAL1
36331 @ 308227:                  PUSH   VALUE
36332 @ 308230:                  ASSVAL
36333 @ 308231:                  LINE   6246 "regression-compile-tmp/imp22g-77.imp"
36334 @ 308271:                  PUSH   VALUE
36335 @ 308274:                  PUSH   TEMP
36336 @ 308277:                  ASSVAL

  6247    temp = type1;  type1 = type;  type = temp
36337 @ 308278:                  LINE   6247 "regression-compile-tmp/imp22g-77.imp"
36338 @ 308318:                  PUSH   TEMP
36339 @ 308321:                  PUSH   TYPE1
36340 @ 308324:                  ASSVAL
36341 @ 308325:                  LINE   6247 "regression-compile-tmp/imp22g-77.imp"
36342 @ 308365:                  PUSH   TYPE1
36343 @ 308368:                  PUSH   TYPE
36344 @ 308371:                  ASSVAL
36345 @ 308372:                  LINE   6247 "regression-compile-tmp/imp22g-77.imp"
36346 @ 308412:                  PUSH   TYPE
36347 @ 308415:                  PUSH   TEMP
36348 @ 308418:                  ASSVAL

  6248  %end
  6249  
36349 @ 308419:                  LINE   6248 "regression-compile-tmp/imp22g-77.imp"
36350 @ 308459:               END    _lev0id0_GETEXPRESSION_SWOP {lev=3 --> 2}

  6250  %constinteger INTOK=1<<inty, CHAROK=1<<chary,
  6251                BOOLOK=1<<booly, ENUMOK=1<<enumy,
  6252                REALOK=1<<realy, STRINGOK=1<<stringy,
  6253                ARROK=1<<arry, SETOK=1<<sety,
  6254                RECOK=1<<recy, POINTOK=1<<pointy,
  6255                NUMOK=intok!realok,
  6256                ORDOK=intok!charok!boolok!enumok,
  6257                RELOK=ordok!realok!stringok
36351 @ 308460:               LINE   6250 "regression-compile-tmp/imp22g-77.imp"

  6258  %routine CHECK1(%integer ok)
36352 @ 308500:               LINE   6258 "regression-compile-tmp/imp22g-77.imp"
36353 @ 308540:               DEF    CHECK1 (_lev0id0_GETEXPRESSION_CHECK1) p1=V_0187 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
36354 @ 308558:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
36355 @ 308559:                     DEF    OK p1=V_0188 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
36356 @ 308573:                  FINISH ) {lev=3}

  6259    cat1 = category(type)
36357 @ 308574:                  LINE   6259 "regression-compile-tmp/imp22g-77.imp"
36358 @ 308614:                  PUSH   CAT1
36359 @ 308617:                  PUSH   CATEGORY
36360 @ 308620:                  PUSH   TYPE
36361 @ 308623:                  ASSPAR
36362 @ 308624:                  CALL  
36363 @ 308625:                  ASSVAL

  6260    %if ok>>(cat1&cat)&1 = 0 %start
36364 @ 308626:                  LINE   6260 "regression-compile-tmp/imp22g-77.imp"
36365 @ 308666:                  PUSH   OK
36366 @ 308669:                  PUSH   CAT1
36367 @ 308672:                  PUSHI  #0x0000000f
36368 @ 308677:                  AND   
36369 @ 308678:                  RSH   
36370 @ 308679:                  PUSHI  #0x00000001
36371 @ 308684:                  AND   
36372 @ 308685:                  PUSHI  #0x00000000
36373 @ 308690:                  JUMPIF # L_0004

  6261      %if cat1 = inty %and ok&realok # 0 %start
36374 @ 308694:                  LINE   6261 "regression-compile-tmp/imp22g-77.imp"
36375 @ 308734:                  PUSH   CAT1
36376 @ 308737:                  PUSHI  #0x00000000
36377 @ 308742:                  JUMPIF # L_0007
36378 @ 308746:                  PUSH   OK
36379 @ 308749:                  PUSHI  #0x00000020
36380 @ 308754:                  AND   
36381 @ 308755:                  PUSHI  #0x00000000
36382 @ 308760:                  JUMPIF = L_0007

  6262        toreal;  cat1 = realy
36383 @ 308764:                  LINE   6262 "regression-compile-tmp/imp22g-77.imp"
36384 @ 308804:                  PUSH   TOREAL
36385 @ 308807:                  CALL  
36386 @ 308808:                  LINE   6262 "regression-compile-tmp/imp22g-77.imp"
36387 @ 308848:                  PUSH   CAT1
36388 @ 308851:                  PUSHI  #0x00000005
36389 @ 308856:                  ASSVAL

  6263      %finish %else %if ok&stringok # 0 %and valok(stringtype,type)=TRUE %start
36390 @ 308857:                  LINE   6263 "regression-compile-tmp/imp22g-77.imp"
36391 @ 308897:                  GOTO   L_0006
36392 @ 308900:                  LOCATE L_0007
36393 @ 308903:                  PUSH   OK
36394 @ 308906:                  PUSHI  #0x00000100
36395 @ 308911:                  AND   
36396 @ 308912:                  PUSHI  #0x00000000
36397 @ 308917:                  JUMPIF = L_0007
36398 @ 308921:                  PUSH   VALOK
36399 @ 308924:                  PUSHI  #0x00000040
36400 @ 308929:                  ASSPAR
36401 @ 308930:                  PUSH   TYPE
36402 @ 308933:                  ASSPAR
36403 @ 308934:                  CALL  
36404 @ 308935:                  PUSHI  #0x00000001
36405 @ 308940:                  JUMPIF # L_0007

  6264        cat1 = stringy
36406 @ 308944:                  LINE   6264 "regression-compile-tmp/imp22g-77.imp"
36407 @ 308984:                  PUSH   CAT1
36408 @ 308987:                  PUSHI  #0x00000008
36409 @ 308992:                  ASSVAL

  6265      %else
36410 @ 308993:                  LINE   6265 "regression-compile-tmp/imp22g-77.imp"
36411 @ 309033:                  GOTO   L_0006
36412 @ 309036:                  LOCATE L_0007

  6266        fault(typerr+point)
36413 @ 309039:                  LINE   6266 "regression-compile-tmp/imp22g-77.imp"
36414 @ 309079:                  PUSH   FAULT
36415 @ 309082:                  PUSHI  #0x0000000c
36416 @ 309087:                  PUSHI  #0x00000040
36417 @ 309092:                  ADD   
36418 @ 309093:                  ASSPAR
36419 @ 309094:                  CALL  

  6267      %finish
36420 @ 309095:                  LINE   6267 "regression-compile-tmp/imp22g-77.imp"
36421 @ 309135:                  LOCATE L_0006

  6268    %finish
36422 @ 309138:                  LINE   6268 "regression-compile-tmp/imp22g-77.imp"
36423 @ 309178:                  LOCATE L_0004

  6269    type1 = type;  item1 = item;  val1 = value
36424 @ 309181:                  LINE   6269 "regression-compile-tmp/imp22g-77.imp"
36425 @ 309221:                  PUSH   TYPE1
36426 @ 309224:                  PUSH   TYPE
36427 @ 309227:                  ASSVAL
36428 @ 309228:                  LINE   6269 "regression-compile-tmp/imp22g-77.imp"
36429 @ 309268:                  PUSH   ITEM1
36430 @ 309271:                  PUSH   ITEM
36431 @ 309274:                  ASSVAL
36432 @ 309275:                  LINE   6269 "regression-compile-tmp/imp22g-77.imp"
36433 @ 309315:                  PUSH   VAL1
36434 @ 309318:                  PUSH   VALUE
36435 @ 309321:                  ASSVAL

  6270  %end
  6271  
36436 @ 309322:                  LINE   6270 "regression-compile-tmp/imp22g-77.imp"
36437 @ 309362:               END    _lev0id0_GETEXPRESSION_CHECK1 {lev=3 --> 2}

  6272  %integer%fn FROZEN LIT(%integer t,v)
  6273  ! Used when the type of a literal will not be recoverable from context
36438 @ 309363:               LINE   6272 "regression-compile-tmp/imp22g-77.imp"
36439 @ 309403:               DEF    FROZENLIT (_lev0id0_GETEXPRESSION_FROZENLIT) p1=V_0188 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
36440 @ 309424:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
36441 @ 309425:                     DEF    T p1=V_0189 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
36442 @ 309438:                     DEF    V p1=V_018a a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
36443 @ 309451:                  FINISH ) {lev=3}

  6274  %integer hold,res
36444 @ 309452:                  LINE   6274 "regression-compile-tmp/imp22g-77.imp"
36445 @ 309492:                  DEF    HOLD p1=V_018b a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
36446 @ 309508:                  DEF    RES p1=V_018c a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  6275    hold = item
36447 @ 309523:                  LINE   6275 "regression-compile-tmp/imp22g-77.imp"
36448 @ 309563:                  PUSH   HOLD
36449 @ 309566:                  PUSH   ITEM
36450 @ 309569:                  ASSVAL

  6276    putexp(move,0,litref(v),t);  !NO-OP (distinctive Y)
36451 @ 309570:                  LINE   6276 "regression-compile-tmp/imp22g-77.imp"
36452 @ 309610:                  PUSH   PUTEXP
36453 @ 309613:                  PUSHI  #0x00000001
36454 @ 309618:                  ASSPAR
36455 @ 309619:                  PUSHI  #0x00000000
36456 @ 309624:                  ASSPAR
36457 @ 309625:                  PUSH   LITREF
36458 @ 309628:                  PUSH   V
36459 @ 309631:                  ASSPAR
36460 @ 309632:                  CALL  
36461 @ 309633:                  ASSPAR
36462 @ 309634:                  PUSH   T
36463 @ 309637:                  ASSPAR
36464 @ 309638:                  CALL  

  6277    ditem_flags = okflag+wflag
36465 @ 309639:                  LINE   6277 "regression-compile-tmp/imp22g-77.imp"
36466 @ 309679:                  PUSH   DITEM
36467 @ 309682:                  SELECT 1
36468 @ 309685:                  PUSHI  #0x00000040
36469 @ 309690:                  PUSHI  #0x00000010
36470 @ 309695:                  ADD   
36471 @ 309696:                  ASSVAL

  6278    ditem_mode = constmode;  ditem_val = v
36472 @ 309697:                  LINE   6278 "regression-compile-tmp/imp22g-77.imp"
36473 @ 309737:                  PUSH   DITEM
36474 @ 309740:                  SELECT 8
36475 @ 309743:                  PUSHI  #0x0000007a
36476 @ 309748:                  ASSVAL
36477 @ 309749:                  LINE   6278 "regression-compile-tmp/imp22g-77.imp"
36478 @ 309789:                  PUSH   DITEM
36479 @ 309792:                  SELECT 9
36480 @ 309795:                  PUSH   V
36481 @ 309798:                  ASSVAL

  6279    res = item;  item = hold
36482 @ 309799:                  LINE   6279 "regression-compile-tmp/imp22g-77.imp"
36483 @ 309839:                  PUSH   RES
36484 @ 309842:                  PUSH   ITEM
36485 @ 309845:                  ASSVAL
36486 @ 309846:                  LINE   6279 "regression-compile-tmp/imp22g-77.imp"
36487 @ 309886:                  PUSH   ITEM
36488 @ 309889:                  PUSH   HOLD
36489 @ 309892:                  ASSVAL

  6280    %result = res
36490 @ 309893:                  LINE   6280 "regression-compile-tmp/imp22g-77.imp"
36491 @ 309933:                  PUSH   RES
36492 @ 309936:                  RESULT

  6281  %end
  6282  
36493 @ 309937:                  LINE   6281 "regression-compile-tmp/imp22g-77.imp"
36494 @ 309977:               END    _lev0id0_GETEXPRESSION_FROZENLIT {lev=3 --> 2}

  6283  %routine COERCE(%integer c)
36495 @ 309978:               LINE   6283 "regression-compile-tmp/imp22g-77.imp"
36496 @ 310018:               DEF    COERCE (_lev0id0_GETEXPRESSION_COERCE) p1=V_0189 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
36497 @ 310036:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
36498 @ 310037:                     DEF    C p1=V_018a a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
36499 @ 310050:                  FINISH ) {lev=3}

  6284    %if c = inty %and cat1 = realy %start
36500 @ 310051:                  LINE   6284 "regression-compile-tmp/imp22g-77.imp"
36501 @ 310091:                  PUSH   C
36502 @ 310094:                  PUSHI  #0x00000000
36503 @ 310099:                  JUMPIF # L_0004
36504 @ 310103:                  PUSH   CAT1
36505 @ 310106:                  PUSHI  #0x00000005
36506 @ 310111:                  JUMPIF # L_0004

  6285      toreal
36507 @ 310115:                  LINE   6285 "regression-compile-tmp/imp22g-77.imp"
36508 @ 310155:                  PUSH   TOREAL
36509 @ 310158:                  CALL  

  6286    %finish %else %if cat1 = inty %and c = realy %start
  6287      ![rather sloppy]
36510 @ 310159:                  LINE   6286 "regression-compile-tmp/imp22g-77.imp"
36511 @ 310199:                  GOTO   L_0003
36512 @ 310202:                  LOCATE L_0004
36513 @ 310205:                  PUSH   CAT1
36514 @ 310208:                  PUSHI  #0x00000000
36515 @ 310213:                  JUMPIF # L_0004
36516 @ 310217:                  PUSH   C
36517 @ 310220:                  PUSHI  #0x00000005
36518 @ 310225:                  JUMPIF # L_0004

  6288      %if item1 # 0 %start
36519 @ 310229:                  LINE   6288 "regression-compile-tmp/imp22g-77.imp"
36520 @ 310269:                  PUSH   ITEM1
36521 @ 310272:                  PUSHI  #0x00000000
36522 @ 310277:                  JUMPIF = L_0007

  6289        val1 = item;  item = item1
36523 @ 310281:                  LINE   6289 "regression-compile-tmp/imp22g-77.imp"
36524 @ 310321:                  PUSH   VAL1
36525 @ 310324:                  PUSH   ITEM
36526 @ 310327:                  ASSVAL
36527 @ 310328:                  LINE   6289 "regression-compile-tmp/imp22g-77.imp"
36528 @ 310368:                  PUSH   ITEM
36529 @ 310371:                  PUSH   ITEM1
36530 @ 310374:                  ASSVAL

  6290        toreal
36531 @ 310375:                  LINE   6290 "regression-compile-tmp/imp22g-77.imp"
36532 @ 310415:                  PUSH   TOREAL
36533 @ 310418:                  CALL  

  6291        item1 = item;  item = val1
36534 @ 310419:                  LINE   6291 "regression-compile-tmp/imp22g-77.imp"
36535 @ 310459:                  PUSH   ITEM1
36536 @ 310462:                  PUSH   ITEM
36537 @ 310465:                  ASSVAL
36538 @ 310466:                  LINE   6291 "regression-compile-tmp/imp22g-77.imp"
36539 @ 310506:                  PUSH   ITEM
36540 @ 310509:                  PUSH   VAL1
36541 @ 310512:                  ASSVAL

  6292      %finish %else real(addr(val1)) = val1
36542 @ 310513:                  LINE   6292 "regression-compile-tmp/imp22g-77.imp"
36543 @ 310553:                  GOTO   L_0006
36544 @ 310556:                  LOCATE L_0007
36545 @ 310559:                  PUSH   REAL
36546 @ 310562:                  PUSH   ADDR
36547 @ 310565:                  PUSH   VAL1
36548 @ 310568:                  ASSPAR
36549 @ 310569:                  CALL  
36550 @ 310570:                  ASSPAR
36551 @ 310571:                  CALL  
36552 @ 310572:                  PUSH   VAL1
36553 @ 310575:                  ASSVAL
36554 @ 310576:                  LOCATE L_0006

  6293      type1 = realtype;  cat1 = realy
36555 @ 310579:                  LINE   6293 "regression-compile-tmp/imp22g-77.imp"
36556 @ 310619:                  PUSH   TYPE1
36557 @ 310622:                  PUSHI  #0x00000045
36558 @ 310627:                  ASSVAL
36559 @ 310628:                  LINE   6293 "regression-compile-tmp/imp22g-77.imp"
36560 @ 310668:                  PUSH   CAT1
36561 @ 310671:                  PUSHI  #0x00000005
36562 @ 310676:                  ASSVAL

  6294    %else
36563 @ 310677:                  LINE   6294 "regression-compile-tmp/imp22g-77.imp"
36564 @ 310717:                  GOTO   L_0003
36565 @ 310720:                  LOCATE L_0004

  6295      expfault(typerr)
36566 @ 310723:                  LINE   6295 "regression-compile-tmp/imp22g-77.imp"
36567 @ 310763:                  PUSH   EXPFAULT
36568 @ 310766:                  PUSHI  #0x0000000c
36569 @ 310771:                  ASSPAR
36570 @ 310772:                  CALL  

  6296    %finish
36571 @ 310773:                  LINE   6296 "regression-compile-tmp/imp22g-77.imp"
36572 @ 310813:                  LOCATE L_0003

  6297  %end
  6298  
36573 @ 310816:                  LINE   6297 "regression-compile-tmp/imp22g-77.imp"
36574 @ 310856:               END    _lev0id0_GETEXPRESSION_COERCE {lev=3 --> 2}

  6299  %routine GET ARITH(%integer rank)
36575 @ 310857:               LINE   6299 "regression-compile-tmp/imp22g-77.imp"
36576 @ 310897:               DEF    GETARITH (_lev0id0_GETEXPRESSION_GETARITH) p1=V_018a 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
36577 @ 310917:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
36578 @ 310918:                     DEF    RANK p1=V_018b a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
36579 @ 310934:                  FINISH ) {lev=3}

  6300    get EXPRESSION(rank,0)
36580 @ 310935:                  LINE   6300 "regression-compile-tmp/imp22g-77.imp"
36581 @ 310975:                  PUSH   GETEXPRESSION
36582 @ 310978:                  PUSH   RANK
36583 @ 310981:                  ASSPAR
36584 @ 310982:                  PUSHI  #0x00000000
36585 @ 310987:                  ASSPAR
36586 @ 310988:                  CALL  

  6301    rank = category(type)
36587 @ 310989:                  LINE   6301 "regression-compile-tmp/imp22g-77.imp"
36588 @ 311029:                  PUSH   RANK
36589 @ 311032:                  PUSH   CATEGORY
36590 @ 311035:                  PUSH   TYPE
36591 @ 311038:                  ASSPAR
36592 @ 311039:                  CALL  
36593 @ 311040:                  ASSVAL

  6302    coerce(rank) %if rank # cat1
36594 @ 311041:                  LINE   6302 "regression-compile-tmp/imp22g-77.imp"
36595 @ 311081:                  PUSH   RANK
36596 @ 311084:                  PUSH   CAT1
36597 @ 311087:                  JUMPIF = L_0004
36598 @ 311091:                  PUSH   COERCE
36599 @ 311094:                  PUSH   RANK
36600 @ 311097:                  ASSPAR
36601 @ 311098:                  CALL  
36602 @ 311099:                  LOCATE L_0004

  6303  %end
  6304  
36603 @ 311102:                  LINE   6303 "regression-compile-tmp/imp22g-77.imp"
36604 @ 311142:               END    _lev0id0_GETEXPRESSION_GETARITH {lev=3 --> 2}

  6305  %integer%fn RCOND(%integer op)
36605 @ 311143:               LINE   6305 "regression-compile-tmp/imp22g-77.imp"
36606 @ 311183:               DEF    RCOND (_lev0id0_GETEXPRESSION_RCOND) p1=V_018b 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
36607 @ 311200:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
36608 @ 311201:                     DEF    OP p1=V_018c a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
36609 @ 311215:                  FINISH ) {lev=3}

  6306  %constinteger EQUAL=2_1001000010,
  6307                LESS =2_1010000001,
  6308              GREATER=2_0101000001
36610 @ 311216:                  LINE   6306 "regression-compile-tmp/imp22g-77.imp"

  6309  %integer which,c
  6310  !<<IMP
36611 @ 311256:                  LINE   6309 "regression-compile-tmp/imp22g-77.imp"
36612 @ 311296:                  DEF    WHICH p1=V_018d a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
36613 @ 311313:                  DEF    C p1=V_018e a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  6311    check1(relok)
36614 @ 311326:                  LINE   6311 "regression-compile-tmp/imp22g-77.imp"
36615 @ 311366:                  PUSH   CHECK1
36616 @ 311369:                  PUSHI  #0x0000012f
36617 @ 311374:                  ASSPAR
36618 @ 311375:                  CALL  

  6312    get EXPRESSION(major,0)
36619 @ 311376:                  LINE   6312 "regression-compile-tmp/imp22g-77.imp"
36620 @ 311416:                  PUSH   GETEXPRESSION
36621 @ 311419:                  PUSHI  #0x00000053
36622 @ 311424:                  ASSPAR
36623 @ 311425:                  PUSHI  #0x00000000
36624 @ 311430:                  ASSPAR
36625 @ 311431:                  CALL  

  6313    c = category(type)
36626 @ 311432:                  LINE   6313 "regression-compile-tmp/imp22g-77.imp"
36627 @ 311472:                  PUSH   C
36628 @ 311475:                  PUSH   CATEGORY
36629 @ 311478:                  PUSH   TYPE
36630 @ 311481:                  ASSPAR
36631 @ 311482:                  CALL  
36632 @ 311483:                  ASSVAL

  6314    coerce(c) %if c # cat1
36633 @ 311484:                  LINE   6314 "regression-compile-tmp/imp22g-77.imp"
36634 @ 311524:                  PUSH   C
36635 @ 311527:                  PUSH   CAT1
36636 @ 311530:                  JUMPIF = L_0004
36637 @ 311534:                  PUSH   COERCE
36638 @ 311537:                  PUSH   C
36639 @ 311540:                  ASSPAR
36640 @ 311541:                  CALL  
36641 @ 311542:                  LOCATE L_0004

  6315    %if equals <= atom <= greater %start;  ![ATOM always primed]
36642 @ 311545:                  LINE   6315 "regression-compile-tmp/imp22g-77.imp"
36643 @ 311585:                  PUSHI  #0x0000004d
36644 @ 311590:                  PUSH   ATOM
36645 @ 311593:                  JUMPIFD > L_0004
36646 @ 311597:                  PUSHI  #0x00000141
36647 @ 311602:                  JUMPIF > L_0004

  6316      syntax error %if double >= 0
36648 @ 311606:                  LINE   6316 "regression-compile-tmp/imp22g-77.imp"
36649 @ 311646:                  PUSH   DOUBLE
36650 @ 311649:                  PUSHI  #0x00000000
36651 @ 311654:                  JUMPIF < L_0007
36652 @ 311658:                  PUSH   SYNTAXERROR
36653 @ 311661:                  CALL  
36654 @ 311662:                  LOCATE L_0007

  6317      double = item
36655 @ 311665:                  LINE   6317 "regression-compile-tmp/imp22g-77.imp"
36656 @ 311705:                  PUSH   DOUBLE
36657 @ 311708:                  PUSH   ITEM
36658 @ 311711:                  ASSVAL

  6318    %finish %else %if double < 0 %start
36659 @ 311712:                  LINE   6318 "regression-compile-tmp/imp22g-77.imp"
36660 @ 311752:                  GOTO   L_0003
36661 @ 311755:                  LOCATE L_0004
36662 @ 311758:                  PUSH   DOUBLE
36663 @ 311761:                  PUSHI  #0x00000000
36664 @ 311766:                  JUMPIF >= L_0004

  6319      double = -2
36665 @ 311770:                  LINE   6319 "regression-compile-tmp/imp22g-77.imp"
36666 @ 311810:                  PUSH   DOUBLE
36667 @ 311813:                  PUSHI  #0x00000002
36668 @ 311818:                  NEGATE
36669 @ 311819:                  ASSVAL

  6320    %finish
  6321  !<<BOTH
36670 @ 311820:                  LINE   6320 "regression-compile-tmp/imp22g-77.imp"
36671 @ 311860:                  LOCATE L_0004
36672 @ 311863:                  LOCATE L_0003

  6322    %if item1 = 0 %start
36673 @ 311866:                  LINE   6322 "regression-compile-tmp/imp22g-77.imp"
36674 @ 311906:                  PUSH   ITEM1
36675 @ 311909:                  PUSHI  #0x00000000
36676 @ 311914:                  JUMPIF # L_0004

  6323      %if item = 0 %start
36677 @ 311918:                  LINE   6323 "regression-compile-tmp/imp22g-77.imp"
36678 @ 311958:                  PUSH   ITEM
36679 @ 311961:                  PUSHI  #0x00000000
36680 @ 311966:                  JUMPIF # L_0007

  6324        %if size(type1) > 0 %or item1!val1 = 0 %or item!value = 0 %start
  6325          !non-structure (compile-time)
  6326          ![integer tests ok for real?]
36681 @ 311970:                  LINE   6324 "regression-compile-tmp/imp22g-77.imp"
36682 @ 312010:                  PUSH   SIZE
36683 @ 312013:                  PUSH   TYPE1
36684 @ 312016:                  ASSPAR
36685 @ 312017:                  CALL  
36686 @ 312018:                  PUSHI  #0x00000000
36687 @ 312023:                  JUMPIF > L_000b
36688 @ 312027:                  PUSH   ITEM1
36689 @ 312030:                  PUSH   VAL1
36690 @ 312033:                  OR    
36691 @ 312034:                  PUSHI  #0x00000000
36692 @ 312039:                  JUMPIF = L_000b
36693 @ 312043:                  PUSH   ITEM
36694 @ 312046:                  PUSH   VALUE
36695 @ 312049:                  OR    
36696 @ 312050:                  PUSHI  #0x00000000
36697 @ 312055:                  JUMPIF # L_000a
36698 @ 312059:                  LOCATE L_000b

  6327          %if val1 < value %then which = less %c
  6328          %else %if val1 = value %then which = equal %c
  6329          %else which = greater
36699 @ 312062:                  LINE   6327 "regression-compile-tmp/imp22g-77.imp"
36700 @ 312102:                  PUSH   VAL1
36701 @ 312105:                  PUSH   VALUE
36702 @ 312108:                  JUMPIF >= L_000d
36703 @ 312112:                  PUSH   WHICH
36704 @ 312115:                  PUSHI  #0x00000281
36705 @ 312120:                  ASSVAL
36706 @ 312121:                  GOTO   L_000c
36707 @ 312124:                  LOCATE L_000d
36708 @ 312127:                  PUSH   VAL1
36709 @ 312130:                  PUSH   VALUE
36710 @ 312133:                  JUMPIF # L_000d
36711 @ 312137:                  PUSH   WHICH
36712 @ 312140:                  PUSHI  #0x00000242
36713 @ 312145:                  ASSVAL
36714 @ 312146:                  GOTO   L_000c
36715 @ 312149:                  LOCATE L_000d
36716 @ 312152:                  PUSH   WHICH
36717 @ 312155:                  PUSHI  #0x00000141
36718 @ 312160:                  ASSVAL
36719 @ 312161:                  LOCATE L_000c

  6330          %result = which>>(op-bne)&1
36720 @ 312164:                  LINE   6330 "regression-compile-tmp/imp22g-77.imp"
36721 @ 312204:                  PUSH   WHICH
36722 @ 312207:                  PUSH   OP
36723 @ 312210:                  PUSHI  #0x00000016
36724 @ 312215:                  SUB   
36725 @ 312216:                  RSH   
36726 @ 312217:                  PUSHI  #0x00000001
36727 @ 312222:                  AND   
36728 @ 312223:                  RESULT

  6331        %finish
36729 @ 312224:                  LINE   6331 "regression-compile-tmp/imp22g-77.imp"
36730 @ 312264:                  LOCATE L_000a

  6332        item1 = frozen lit(type1,val1)
36731 @ 312267:                  LINE   6332 "regression-compile-tmp/imp22g-77.imp"
36732 @ 312307:                  PUSH   ITEM1
36733 @ 312310:                  PUSH   FROZENLIT
36734 @ 312313:                  PUSH   TYPE1
36735 @ 312316:                  ASSPAR
36736 @ 312317:                  PUSH   VAL1
36737 @ 312320:                  ASSPAR
36738 @ 312321:                  CALL  
36739 @ 312322:                  ASSVAL

  6333      %else
36740 @ 312323:                  LINE   6333 "regression-compile-tmp/imp22g-77.imp"
36741 @ 312363:                  GOTO   L_0006
36742 @ 312366:                  LOCATE L_0007

  6334        swop
36743 @ 312369:                  LINE   6334 "regression-compile-tmp/imp22g-77.imp"
36744 @ 312409:                  PUSH   SWOP
36745 @ 312412:                  CALL  

  6335        op = op!!3 %if op&8 # 0;  !no change for '=','#'
36746 @ 312413:                  LINE   6335 "regression-compile-tmp/imp22g-77.imp"
36747 @ 312453:                  PUSH   OP
36748 @ 312456:                  PUSHI  #0x00000008
36749 @ 312461:                  AND   
36750 @ 312462:                  PUSHI  #0x00000000
36751 @ 312467:                  JUMPIF = L_000a
36752 @ 312471:                  PUSH   OP
36753 @ 312474:                  PUSH   OP
36754 @ 312477:                  PUSHI  #0x00000003
36755 @ 312482:                  XOR   
36756 @ 312483:                  ASSVAL
36757 @ 312484:                  LOCATE L_000a

  6336      %finish
36758 @ 312487:                  LINE   6336 "regression-compile-tmp/imp22g-77.imp"
36759 @ 312527:                  LOCATE L_0006

  6337    %finish
36760 @ 312530:                  LINE   6337 "regression-compile-tmp/imp22g-77.imp"
36761 @ 312570:                  LOCATE L_0004

  6338    %result = op
36762 @ 312573:                  LINE   6338 "regression-compile-tmp/imp22g-77.imp"
36763 @ 312613:                  PUSH   OP
36764 @ 312616:                  RESULT

  6339  %end;  !RCOND
  6340  !<<IMP
  6341  
36765 @ 312617:                  LINE   6339 "regression-compile-tmp/imp22g-77.imp"
36766 @ 312657:               END    _lev0id0_GETEXPRESSION_RCOND {lev=3 --> 2}

  6342  %integer%fn OPVAL
  6343  ! Returns result value for literal (ITEM=ITEM1=0)
  6344  !         0 for no-op (result is ITEM1,TYPE1)
  6345  !         operator otherwise (result type is TYPE)
  6346  ! NB literal INTY type is always INTTYPE (not subrange)
36767 @ 312658:               LINE   6342 "regression-compile-tmp/imp22g-77.imp"
36768 @ 312698:               DEF    OPVAL (_lev0id0_GETEXPRESSION_OPVAL) p1=V_018c 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
36769 @ 312715:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
36770 @ 312716:                  FINISH ) {lev=3}

  6347  %switch op(keyand:rshift)
36771 @ 312717:                  LINE   6347 "regression-compile-tmp/imp22g-77.imp"
36772 @ 312757:                  PUSHI  #0x00000048
36773 @ 312762:                  PUSHI  #0x00000063
36774 @ 312767:                  BOUNDS
36775 @ 312768:                  DEF    OP p1=V_018d 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

  6348    -> op(atom)
36776 @ 312782:                  LINE   6348 "regression-compile-tmp/imp22g-77.imp"
36777 @ 312822:                  PUSH   ATOM
36778 @ 312825:                  SJUMP  397

  6349  op(plus):
36779 @ 312828:                  LINE   6349 "regression-compile-tmp/imp22g-77.imp"
36780 @ 312868:                  PUSHI  #0x00000053
36781 @ 312873:                  SLABEL 397

  6350    check1(numok+setok)
36782 @ 312876:                  LINE   6350 "regression-compile-tmp/imp22g-77.imp"
36783 @ 312916:                  PUSH   CHECK1
36784 @ 312919:                  PUSHI  #0x00000021
36785 @ 312924:                  PUSHI  #0x00000400
36786 @ 312929:                  ADD   
36787 @ 312930:                  ASSPAR
36788 @ 312931:                  CALL  

  6351    get ARITH(star)
36789 @ 312932:                  LINE   6351 "regression-compile-tmp/imp22g-77.imp"
36790 @ 312972:                  PUSH   GETARITH
36791 @ 312975:                  PUSHI  #0x00000058
36792 @ 312980:                  ASSPAR
36793 @ 312981:                  CALL  

  6352    %if cat1 = inty %start
36794 @ 312982:                  LINE   6352 "regression-compile-tmp/imp22g-77.imp"
36795 @ 313022:                  PUSH   CAT1
36796 @ 313025:                  PUSHI  #0x00000000
36797 @ 313030:                  JUMPIF # L_0004

  6353      %if item1 = 0 %start
36798 @ 313034:                  LINE   6353 "regression-compile-tmp/imp22g-77.imp"
36799 @ 313074:                  PUSH   ITEM1
36800 @ 313077:                  PUSHI  #0x00000000
36801 @ 313082:                  JUMPIF # L_0007

  6354        %result = val1+value %if item = 0
36802 @ 313086:                  LINE   6354 "regression-compile-tmp/imp22g-77.imp"
36803 @ 313126:                  PUSH   ITEM
36804 @ 313129:                  PUSHI  #0x00000000
36805 @ 313134:                  JUMPIF # L_000a
36806 @ 313138:                  PUSH   VAL1
36807 @ 313141:                  PUSH   VALUE
36808 @ 313144:                  ADD   
36809 @ 313145:                  RESULT
36810 @ 313146:                  LOCATE L_000a

  6355        swop
36811 @ 313149:                  LINE   6355 "regression-compile-tmp/imp22g-77.imp"
36812 @ 313189:                  PUSH   SWOP
36813 @ 313192:                  CALL  

  6356      %finish
36814 @ 313193:                  LINE   6356 "regression-compile-tmp/imp22g-77.imp"
36815 @ 313233:                  LOCATE L_0007

  6357      %result = nop %if item!value = 0
36816 @ 313236:                  LINE   6357 "regression-compile-tmp/imp22g-77.imp"
36817 @ 313276:                  PUSH   ITEM
36818 @ 313279:                  PUSH   VALUE
36819 @ 313282:                  OR    
36820 @ 313283:                  PUSHI  #0x00000000
36821 @ 313288:                  JUMPIF # L_0007
36822 @ 313292:                  PUSHI  #0x00000000
36823 @ 313297:                  RESULT
36824 @ 313298:                  LOCATE L_0007

  6358      type = inttype
36825 @ 313301:                  LINE   6358 "regression-compile-tmp/imp22g-77.imp"
36826 @ 313341:                  PUSH   TYPE
36827 @ 313344:                  PUSHI  #0x0000002b
36828 @ 313349:                  ASSVAL

  6359      %result = add
36829 @ 313350:                  LINE   6359 "regression-compile-tmp/imp22g-77.imp"
36830 @ 313390:                  PUSHI  #0x00000002
36831 @ 313395:                  RESULT

  6360    %else
36832 @ 313396:                  LINE   6360 "regression-compile-tmp/imp22g-77.imp"
36833 @ 313436:                  LOCATE L_0004

  6361      %if item1 = 0 %start
36834 @ 313439:                  LINE   6361 "regression-compile-tmp/imp22g-77.imp"
36835 @ 313479:                  PUSH   ITEM1
36836 @ 313482:                  PUSHI  #0x00000000
36837 @ 313487:                  JUMPIF # L_0007

  6362        %if item = 0 %start
36838 @ 313491:                  LINE   6362 "regression-compile-tmp/imp22g-77.imp"
36839 @ 313531:                  PUSH   ITEM
36840 @ 313534:                  PUSHI  #0x00000000
36841 @ 313539:                  JUMPIF # L_000a

  6363          real(addr(val1)) = real(addr(val1))+real(addr(value))
36842 @ 313543:                  LINE   6363 "regression-compile-tmp/imp22g-77.imp"
36843 @ 313583:                  PUSH   REAL
36844 @ 313586:                  PUSH   ADDR
36845 @ 313589:                  PUSH   VAL1
36846 @ 313592:                  ASSPAR
36847 @ 313593:                  CALL  
36848 @ 313594:                  ASSPAR
36849 @ 313595:                  CALL  
36850 @ 313596:                  PUSH   REAL
36851 @ 313599:                  PUSH   ADDR
36852 @ 313602:                  PUSH   VAL1
36853 @ 313605:                  ASSPAR
36854 @ 313606:                  CALL  
36855 @ 313607:                  ASSPAR
36856 @ 313608:                  CALL  
36857 @ 313609:                  PUSH   REAL
36858 @ 313612:                  PUSH   ADDR
36859 @ 313615:                  PUSH   VALUE
36860 @ 313618:                  ASSPAR
36861 @ 313619:                  CALL  
36862 @ 313620:                  ASSPAR
36863 @ 313621:                  CALL  
36864 @ 313622:                  ADD   
36865 @ 313623:                  ASSVAL

  6364          %result = val1
36866 @ 313624:                  LINE   6364 "regression-compile-tmp/imp22g-77.imp"
36867 @ 313664:                  PUSH   VAL1
36868 @ 313667:                  RESULT

  6365        %finish
36869 @ 313668:                  LINE   6365 "regression-compile-tmp/imp22g-77.imp"
36870 @ 313708:                  LOCATE L_000a

  6366        swop
36871 @ 313711:                  LINE   6366 "regression-compile-tmp/imp22g-77.imp"
36872 @ 313751:                  PUSH   SWOP
36873 @ 313754:                  CALL  

  6367      %finish
36874 @ 313755:                  LINE   6367 "regression-compile-tmp/imp22g-77.imp"
36875 @ 313795:                  LOCATE L_0007

  6368      %result = nop %if item!value = 0
36876 @ 313798:                  LINE   6368 "regression-compile-tmp/imp22g-77.imp"
36877 @ 313838:                  PUSH   ITEM
36878 @ 313841:                  PUSH   VALUE
36879 @ 313844:                  OR    
36880 @ 313845:                  PUSHI  #0x00000000
36881 @ 313850:                  JUMPIF # L_0007
36882 @ 313854:                  PUSHI  #0x00000000
36883 @ 313859:                  RESULT
36884 @ 313860:                  LOCATE L_0007

  6369      %result = fadd
36885 @ 313863:                  LINE   6369 "regression-compile-tmp/imp22g-77.imp"
36886 @ 313903:                  PUSHI  #0x0000005a
36887 @ 313908:                  RESULT

  6370    %finish
36888 @ 313909:                  LINE   6370 "regression-compile-tmp/imp22g-77.imp"

  6371  op(minus):
36889 @ 313949:                  LINE   6371 "regression-compile-tmp/imp22g-77.imp"
36890 @ 313989:                  PUSHI  #0x00000054
36891 @ 313994:                  SLABEL 397

  6372    check1(numok+setok)
36892 @ 313997:                  LINE   6372 "regression-compile-tmp/imp22g-77.imp"
36893 @ 314037:                  PUSH   CHECK1
36894 @ 314040:                  PUSHI  #0x00000021
36895 @ 314045:                  PUSHI  #0x00000400
36896 @ 314050:                  ADD   
36897 @ 314051:                  ASSPAR
36898 @ 314052:                  CALL  

  6373    get ARITH(star)
36899 @ 314053:                  LINE   6373 "regression-compile-tmp/imp22g-77.imp"
36900 @ 314093:                  PUSH   GETARITH
36901 @ 314096:                  PUSHI  #0x00000058
36902 @ 314101:                  ASSPAR
36903 @ 314102:                  CALL  

  6374    %if cat1 = inty %start
36904 @ 314103:                  LINE   6374 "regression-compile-tmp/imp22g-77.imp"
36905 @ 314143:                  PUSH   CAT1
36906 @ 314146:                  PUSHI  #0x00000000
36907 @ 314151:                  JUMPIF # L_0004

  6375      %if item1 = 0 %start
36908 @ 314155:                  LINE   6375 "regression-compile-tmp/imp22g-77.imp"
36909 @ 314195:                  PUSH   ITEM1
36910 @ 314198:                  PUSHI  #0x00000000
36911 @ 314203:                  JUMPIF # L_0007

  6376        %result = val1-value %if item = 0
36912 @ 314207:                  LINE   6376 "regression-compile-tmp/imp22g-77.imp"
36913 @ 314247:                  PUSH   ITEM
36914 @ 314250:                  PUSHI  #0x00000000
36915 @ 314255:                  JUMPIF # L_000a
36916 @ 314259:                  PUSH   VAL1
36917 @ 314262:                  PUSH   VALUE
36918 @ 314265:                  SUB   
36919 @ 314266:                  RESULT
36920 @ 314267:                  LOCATE L_000a

  6377        swop %and %result = neg %if val1 = 0
36921 @ 314270:                  LINE   6377 "regression-compile-tmp/imp22g-77.imp"
36922 @ 314310:                  PUSH   VAL1
36923 @ 314313:                  PUSHI  #0x00000000
36924 @ 314318:                  JUMPIF # L_000a
36925 @ 314322:                  PUSH   SWOP
36926 @ 314325:                  CALL  
36927 @ 314326:                  PUSHI  #0x00000009
36928 @ 314331:                  RESULT
36929 @ 314332:                  LOCATE L_000a

  6378      %finish
36930 @ 314335:                  LINE   6378 "regression-compile-tmp/imp22g-77.imp"
36931 @ 314375:                  LOCATE L_0007

  6379      type = inttype
36932 @ 314378:                  LINE   6379 "regression-compile-tmp/imp22g-77.imp"
36933 @ 314418:                  PUSH   TYPE
36934 @ 314421:                  PUSHI  #0x0000002b
36935 @ 314426:                  ASSVAL

  6380      %if item = 0 %start
36936 @ 314427:                  LINE   6380 "regression-compile-tmp/imp22g-77.imp"
36937 @ 314467:                  PUSH   ITEM
36938 @ 314470:                  PUSHI  #0x00000000
36939 @ 314475:                  JUMPIF # L_0007

  6381        %result = nop %if value = 0
36940 @ 314479:                  LINE   6381 "regression-compile-tmp/imp22g-77.imp"
36941 @ 314519:                  PUSH   VALUE
36942 @ 314522:                  PUSHI  #0x00000000
36943 @ 314527:                  JUMPIF # L_000a
36944 @ 314531:                  PUSHI  #0x00000000
36945 @ 314536:                  RESULT
36946 @ 314537:                  LOCATE L_000a

  6382        value = -value %if value # minint
36947 @ 314540:                  LINE   6382 "regression-compile-tmp/imp22g-77.imp"
36948 @ 314580:                  PUSH   VALUE
36949 @ 314583:                  PUSHI  #0x80000000
36950 @ 314588:                  JUMPIF = L_000a
36951 @ 314592:                  PUSH   VALUE
36952 @ 314595:                  PUSH   VALUE
36953 @ 314598:                  NEGATE
36954 @ 314599:                  ASSVAL
36955 @ 314600:                  LOCATE L_000a

  6383        %result = add
36956 @ 314603:                  LINE   6383 "regression-compile-tmp/imp22g-77.imp"
36957 @ 314643:                  PUSHI  #0x00000002
36958 @ 314648:                  RESULT

  6384      %finish
36959 @ 314649:                  LINE   6384 "regression-compile-tmp/imp22g-77.imp"
36960 @ 314689:                  LOCATE L_0007

  6385      %result = sub
36961 @ 314692:                  LINE   6385 "regression-compile-tmp/imp22g-77.imp"
36962 @ 314732:                  PUSHI  #0x00000003
36963 @ 314737:                  RESULT

  6386    %else
36964 @ 314738:                  LINE   6386 "regression-compile-tmp/imp22g-77.imp"
36965 @ 314778:                  LOCATE L_0004

  6387      %if item = 0 %start
36966 @ 314781:                  LINE   6387 "regression-compile-tmp/imp22g-77.imp"
36967 @ 314821:                  PUSH   ITEM
36968 @ 314824:                  PUSHI  #0x00000000
36969 @ 314829:                  JUMPIF # L_0007

  6388        %if item1 = 0 %start
36970 @ 314833:                  LINE   6388 "regression-compile-tmp/imp22g-77.imp"
36971 @ 314873:                  PUSH   ITEM1
36972 @ 314876:                  PUSHI  #0x00000000
36973 @ 314881:                  JUMPIF # L_000a

  6389          real(addr(val1)) = real(addr(val1))-real(addr(value))
36974 @ 314885:                  LINE   6389 "regression-compile-tmp/imp22g-77.imp"
36975 @ 314925:                  PUSH   REAL
36976 @ 314928:                  PUSH   ADDR
36977 @ 314931:                  PUSH   VAL1
36978 @ 314934:                  ASSPAR
36979 @ 314935:                  CALL  
36980 @ 314936:                  ASSPAR
36981 @ 314937:                  CALL  
36982 @ 314938:                  PUSH   REAL
36983 @ 314941:                  PUSH   ADDR
36984 @ 314944:                  PUSH   VAL1
36985 @ 314947:                  ASSPAR
36986 @ 314948:                  CALL  
36987 @ 314949:                  ASSPAR
36988 @ 314950:                  CALL  
36989 @ 314951:                  PUSH   REAL
36990 @ 314954:                  PUSH   ADDR
36991 @ 314957:                  PUSH   VALUE
36992 @ 314960:                  ASSPAR
36993 @ 314961:                  CALL  
36994 @ 314962:                  ASSPAR
36995 @ 314963:                  CALL  
36996 @ 314964:                  SUB   
36997 @ 314965:                  ASSVAL

  6390          %result = val1
36998 @ 314966:                  LINE   6390 "regression-compile-tmp/imp22g-77.imp"
36999 @ 315006:                  PUSH   VAL1
37000 @ 315009:                  RESULT

  6391        %finish
37001 @ 315010:                  LINE   6391 "regression-compile-tmp/imp22g-77.imp"
37002 @ 315050:                  LOCATE L_000a

  6392        %result = nop %if value = 0
37003 @ 315053:                  LINE   6392 "regression-compile-tmp/imp22g-77.imp"
37004 @ 315093:                  PUSH   VALUE
37005 @ 315096:                  PUSHI  #0x00000000
37006 @ 315101:                  JUMPIF # L_000a
37007 @ 315105:                  PUSHI  #0x00000000
37008 @ 315110:                  RESULT
37009 @ 315111:                  LOCATE L_000a

  6393      %finish
37010 @ 315114:                  LINE   6393 "regression-compile-tmp/imp22g-77.imp"
37011 @ 315154:                  LOCATE L_0007

  6394      %result = fsub
37012 @ 315157:                  LINE   6394 "regression-compile-tmp/imp22g-77.imp"
37013 @ 315197:                  PUSHI  #0x0000005b
37014 @ 315202:                  RESULT

  6395    %finish
37015 @ 315203:                  LINE   6395 "regression-compile-tmp/imp22g-77.imp"

  6396  op(exclam):
37016 @ 315243:                  LINE   6396 "regression-compile-tmp/imp22g-77.imp"
37017 @ 315283:                  PUSHI  #0x00000055
37018 @ 315288:                  SLABEL 397

  6397    check1(intok);  get EXPRESSION(star,inttype)
37019 @ 315291:                  LINE   6397 "regression-compile-tmp/imp22g-77.imp"
37020 @ 315331:                  PUSH   CHECK1
37021 @ 315334:                  PUSHI  #0x00000001
37022 @ 315339:                  ASSPAR
37023 @ 315340:                  CALL  
37024 @ 315341:                  LINE   6397 "regression-compile-tmp/imp22g-77.imp"
37025 @ 315381:                  PUSH   GETEXPRESSION
37026 @ 315384:                  PUSHI  #0x00000058
37027 @ 315389:                  ASSPAR
37028 @ 315390:                  PUSHI  #0x0000002b
37029 @ 315395:                  ASSPAR
37030 @ 315396:                  CALL  

  6398    %if item1 = 0 %start
37031 @ 315397:                  LINE   6398 "regression-compile-tmp/imp22g-77.imp"
37032 @ 315437:                  PUSH   ITEM1
37033 @ 315440:                  PUSHI  #0x00000000
37034 @ 315445:                  JUMPIF # L_0004

  6399      %result = val1!value %if item = 0
37035 @ 315449:                  LINE   6399 "regression-compile-tmp/imp22g-77.imp"
37036 @ 315489:                  PUSH   ITEM
37037 @ 315492:                  PUSHI  #0x00000000
37038 @ 315497:                  JUMPIF # L_0007
37039 @ 315501:                  PUSH   VAL1
37040 @ 315504:                  PUSH   VALUE
37041 @ 315507:                  OR    
37042 @ 315508:                  RESULT
37043 @ 315509:                  LOCATE L_0007

  6400      swop
37044 @ 315512:                  LINE   6400 "regression-compile-tmp/imp22g-77.imp"
37045 @ 315552:                  PUSH   SWOP
37046 @ 315555:                  CALL  

  6401    %finish
37047 @ 315556:                  LINE   6401 "regression-compile-tmp/imp22g-77.imp"
37048 @ 315596:                  LOCATE L_0004

  6402    %result = nop %if item!value = 0
37049 @ 315599:                  LINE   6402 "regression-compile-tmp/imp22g-77.imp"
37050 @ 315639:                  PUSH   ITEM
37051 @ 315642:                  PUSH   VALUE
37052 @ 315645:                  OR    
37053 @ 315646:                  PUSHI  #0x00000000
37054 @ 315651:                  JUMPIF # L_0004
37055 @ 315655:                  PUSHI  #0x00000000
37056 @ 315660:                  RESULT
37057 @ 315661:                  LOCATE L_0004

  6403    type = inttype
37058 @ 315664:                  LINE   6403 "regression-compile-tmp/imp22g-77.imp"
37059 @ 315704:                  PUSH   TYPE
37060 @ 315707:                  PUSHI  #0x0000002b
37061 @ 315712:                  ASSVAL

  6404    %result = or
37062 @ 315713:                  LINE   6404 "regression-compile-tmp/imp22g-77.imp"
37063 @ 315753:                  PUSHI  #0x00000006
37064 @ 315758:                  RESULT

  6405  op(exclam2):
37065 @ 315759:                  LINE   6405 "regression-compile-tmp/imp22g-77.imp"
37066 @ 315799:                  PUSHI  #0x00000056
37067 @ 315804:                  SLABEL 397

  6406    check1(intok);  get EXPRESSION(star,inttype)
37068 @ 315807:                  LINE   6406 "regression-compile-tmp/imp22g-77.imp"
37069 @ 315847:                  PUSH   CHECK1
37070 @ 315850:                  PUSHI  #0x00000001
37071 @ 315855:                  ASSPAR
37072 @ 315856:                  CALL  
37073 @ 315857:                  LINE   6406 "regression-compile-tmp/imp22g-77.imp"
37074 @ 315897:                  PUSH   GETEXPRESSION
37075 @ 315900:                  PUSHI  #0x00000058
37076 @ 315905:                  ASSPAR
37077 @ 315906:                  PUSHI  #0x0000002b
37078 @ 315911:                  ASSPAR
37079 @ 315912:                  CALL  

  6407    %if item1 = 0 %start
37080 @ 315913:                  LINE   6407 "regression-compile-tmp/imp22g-77.imp"
37081 @ 315953:                  PUSH   ITEM1
37082 @ 315956:                  PUSHI  #0x00000000
37083 @ 315961:                  JUMPIF # L_0004

  6408      %result = val1!!value %if item = 0
37084 @ 315965:                  LINE   6408 "regression-compile-tmp/imp22g-77.imp"
37085 @ 316005:                  PUSH   ITEM
37086 @ 316008:                  PUSHI  #0x00000000
37087 @ 316013:                  JUMPIF # L_0007
37088 @ 316017:                  PUSH   VAL1
37089 @ 316020:                  PUSH   VALUE
37090 @ 316023:                  XOR   
37091 @ 316024:                  RESULT
37092 @ 316025:                  LOCATE L_0007

  6409      swop
37093 @ 316028:                  LINE   6409 "regression-compile-tmp/imp22g-77.imp"
37094 @ 316068:                  PUSH   SWOP
37095 @ 316071:                  CALL  

  6410    %finish
37096 @ 316072:                  LINE   6410 "regression-compile-tmp/imp22g-77.imp"
37097 @ 316112:                  LOCATE L_0004

  6411    %result = nop %if item!value = 0
37098 @ 316115:                  LINE   6411 "regression-compile-tmp/imp22g-77.imp"
37099 @ 316155:                  PUSH   ITEM
37100 @ 316158:                  PUSH   VALUE
37101 @ 316161:                  OR    
37102 @ 316162:                  PUSHI  #0x00000000
37103 @ 316167:                  JUMPIF # L_0004
37104 @ 316171:                  PUSHI  #0x00000000
37105 @ 316176:                  RESULT
37106 @ 316177:                  LOCATE L_0004

  6412    type = inttype
37107 @ 316180:                  LINE   6412 "regression-compile-tmp/imp22g-77.imp"
37108 @ 316220:                  PUSH   TYPE
37109 @ 316223:                  PUSHI  #0x0000002b
37110 @ 316228:                  ASSVAL

  6413    %result = eor
37111 @ 316229:                  LINE   6413 "regression-compile-tmp/imp22g-77.imp"
37112 @ 316269:                  PUSHI  #0x00000007
37113 @ 316274:                  RESULT

  6414  op(ampersand):
37114 @ 316275:                  LINE   6414 "regression-compile-tmp/imp22g-77.imp"
37115 @ 316315:                  PUSHI  #0x0000005b
37116 @ 316320:                  SLABEL 397

  6415    check1(intok);  get EXPRESSION(star2,inttype)
37117 @ 316323:                  LINE   6415 "regression-compile-tmp/imp22g-77.imp"
37118 @ 316363:                  PUSH   CHECK1
37119 @ 316366:                  PUSHI  #0x00000001
37120 @ 316371:                  ASSPAR
37121 @ 316372:                  CALL  
37122 @ 316373:                  LINE   6415 "regression-compile-tmp/imp22g-77.imp"
37123 @ 316413:                  PUSH   GETEXPRESSION
37124 @ 316416:                  PUSHI  #0x0000005c
37125 @ 316421:                  ASSPAR
37126 @ 316422:                  PUSHI  #0x0000002b
37127 @ 316427:                  ASSPAR
37128 @ 316428:                  CALL  

  6416    %if item1 = 0 %start
37129 @ 316429:                  LINE   6416 "regression-compile-tmp/imp22g-77.imp"
37130 @ 316469:                  PUSH   ITEM1
37131 @ 316472:                  PUSHI  #0x00000000
37132 @ 316477:                  JUMPIF # L_0004

  6417      %result = val1&value %if item = 0
37133 @ 316481:                  LINE   6417 "regression-compile-tmp/imp22g-77.imp"
37134 @ 316521:                  PUSH   ITEM
37135 @ 316524:                  PUSHI  #0x00000000
37136 @ 316529:                  JUMPIF # L_0007
37137 @ 316533:                  PUSH   VAL1
37138 @ 316536:                  PUSH   VALUE
37139 @ 316539:                  AND   
37140 @ 316540:                  RESULT
37141 @ 316541:                  LOCATE L_0007

  6418      swop
37142 @ 316544:                  LINE   6418 "regression-compile-tmp/imp22g-77.imp"
37143 @ 316584:                  PUSH   SWOP
37144 @ 316587:                  CALL  

  6419    %finish
37145 @ 316588:                  LINE   6419 "regression-compile-tmp/imp22g-77.imp"
37146 @ 316628:                  LOCATE L_0004

  6420    item1 = 0 %and %result = 0 %if item!value = 0
37147 @ 316631:                  LINE   6420 "regression-compile-tmp/imp22g-77.imp"
37148 @ 316671:                  PUSH   ITEM
37149 @ 316674:                  PUSH   VALUE
37150 @ 316677:                  OR    
37151 @ 316678:                  PUSHI  #0x00000000
37152 @ 316683:                  JUMPIF # L_0004
37153 @ 316687:                  PUSH   ITEM1
37154 @ 316690:                  PUSHI  #0x00000000
37155 @ 316695:                  ASSVAL
37156 @ 316696:                  PUSHI  #0x00000000
37157 @ 316701:                  RESULT
37158 @ 316702:                  LOCATE L_0004

  6421    type = inttype
37159 @ 316705:                  LINE   6421 "regression-compile-tmp/imp22g-77.imp"
37160 @ 316745:                  PUSH   TYPE
37161 @ 316748:                  PUSHI  #0x0000002b
37162 @ 316753:                  ASSVAL

  6422    %result = and
37163 @ 316754:                  LINE   6422 "regression-compile-tmp/imp22g-77.imp"
37164 @ 316794:                  PUSHI  #0x00000005
37165 @ 316799:                  RESULT

  6423  op(star):
37166 @ 316800:                  LINE   6423 "regression-compile-tmp/imp22g-77.imp"
37167 @ 316840:                  PUSHI  #0x00000058
37168 @ 316845:                  SLABEL 397

  6424    check1(numok+setok)
37169 @ 316848:                  LINE   6424 "regression-compile-tmp/imp22g-77.imp"
37170 @ 316888:                  PUSH   CHECK1
37171 @ 316891:                  PUSHI  #0x00000021
37172 @ 316896:                  PUSHI  #0x00000400
37173 @ 316901:                  ADD   
37174 @ 316902:                  ASSPAR
37175 @ 316903:                  CALL  

  6425    get ARITH(star2)
37176 @ 316904:                  LINE   6425 "regression-compile-tmp/imp22g-77.imp"
37177 @ 316944:                  PUSH   GETARITH
37178 @ 316947:                  PUSHI  #0x0000005c
37179 @ 316952:                  ASSPAR
37180 @ 316953:                  CALL  

  6426    item1 = 0 %and %result = 0 %if item!value = 0
37181 @ 316954:                  LINE   6426 "regression-compile-tmp/imp22g-77.imp"
37182 @ 316994:                  PUSH   ITEM
37183 @ 316997:                  PUSH   VALUE
37184 @ 317000:                  OR    
37185 @ 317001:                  PUSHI  #0x00000000
37186 @ 317006:                  JUMPIF # L_0004
37187 @ 317010:                  PUSH   ITEM1
37188 @ 317013:                  PUSHI  #0x00000000
37189 @ 317018:                  ASSVAL
37190 @ 317019:                  PUSHI  #0x00000000
37191 @ 317024:                  RESULT
37192 @ 317025:                  LOCATE L_0004

  6427    %if cat1 = inty %start
37193 @ 317028:                  LINE   6427 "regression-compile-tmp/imp22g-77.imp"
37194 @ 317068:                  PUSH   CAT1
37195 @ 317071:                  PUSHI  #0x00000000
37196 @ 317076:                  JUMPIF # L_0004

  6428      %if item1 = 0 %start
37197 @ 317080:                  LINE   6428 "regression-compile-tmp/imp22g-77.imp"
37198 @ 317120:                  PUSH   ITEM1
37199 @ 317123:                  PUSHI  #0x00000000
37200 @ 317128:                  JUMPIF # L_0007

  6429        %result = val1*value %if item = 0
37201 @ 317132:                  LINE   6429 "regression-compile-tmp/imp22g-77.imp"
37202 @ 317172:                  PUSH   ITEM
37203 @ 317175:                  PUSHI  #0x00000000
37204 @ 317180:                  JUMPIF # L_000a
37205 @ 317184:                  PUSH   VAL1
37206 @ 317187:                  PUSH   VALUE
37207 @ 317190:                  MUL   
37208 @ 317191:                  RESULT
37209 @ 317192:                  LOCATE L_000a

  6430        swop
37210 @ 317195:                  LINE   6430 "regression-compile-tmp/imp22g-77.imp"
37211 @ 317235:                  PUSH   SWOP
37212 @ 317238:                  CALL  

  6431      %finish
37213 @ 317239:                  LINE   6431 "regression-compile-tmp/imp22g-77.imp"
37214 @ 317279:                  LOCATE L_0007

  6432      type = inttype
37215 @ 317282:                  LINE   6432 "regression-compile-tmp/imp22g-77.imp"
37216 @ 317322:                  PUSH   TYPE
37217 @ 317325:                  PUSHI  #0x0000002b
37218 @ 317330:                  ASSVAL

  6433      %result = imul %if control&halfbit = 0
37219 @ 317331:                  LINE   6433 "regression-compile-tmp/imp22g-77.imp"
37220 @ 317371:                  PUSH   CONTROL
37221 @ 317374:                  PUSHI  #0x00008000
37222 @ 317379:                  AND   
37223 @ 317380:                  PUSHI  #0x00000000
37224 @ 317385:                  JUMPIF # L_0007
37225 @ 317389:                  PUSHI  #0x00000056
37226 @ 317394:                  RESULT
37227 @ 317395:                  LOCATE L_0007

  6434      %result = muls
37228 @ 317398:                  LINE   6434 "regression-compile-tmp/imp22g-77.imp"
37229 @ 317438:                  PUSHI  #0x0000000c
37230 @ 317443:                  RESULT

  6435    %else
37231 @ 317444:                  LINE   6435 "regression-compile-tmp/imp22g-77.imp"
37232 @ 317484:                  LOCATE L_0004

  6436      %if item1 = 0 %start
37233 @ 317487:                  LINE   6436 "regression-compile-tmp/imp22g-77.imp"
37234 @ 317527:                  PUSH   ITEM1
37235 @ 317530:                  PUSHI  #0x00000000
37236 @ 317535:                  JUMPIF # L_0007

  6437        %if item = 0 %start
37237 @ 317539:                  LINE   6437 "regression-compile-tmp/imp22g-77.imp"
37238 @ 317579:                  PUSH   ITEM
37239 @ 317582:                  PUSHI  #0x00000000
37240 @ 317587:                  JUMPIF # L_000a

  6438          real(addr(val1)) = real(addr(val1))*real(addr(value))
37241 @ 317591:                  LINE   6438 "regression-compile-tmp/imp22g-77.imp"
37242 @ 317631:                  PUSH   REAL
37243 @ 317634:                  PUSH   ADDR
37244 @ 317637:                  PUSH   VAL1
37245 @ 317640:                  ASSPAR
37246 @ 317641:                  CALL  
37247 @ 317642:                  ASSPAR
37248 @ 317643:                  CALL  
37249 @ 317644:                  PUSH   REAL
37250 @ 317647:                  PUSH   ADDR
37251 @ 317650:                  PUSH   VAL1
37252 @ 317653:                  ASSPAR
37253 @ 317654:                  CALL  
37254 @ 317655:                  ASSPAR
37255 @ 317656:                  CALL  
37256 @ 317657:                  PUSH   REAL
37257 @ 317660:                  PUSH   ADDR
37258 @ 317663:                  PUSH   VALUE
37259 @ 317666:                  ASSPAR
37260 @ 317667:                  CALL  
37261 @ 317668:                  ASSPAR
37262 @ 317669:                  CALL  
37263 @ 317670:                  MUL   
37264 @ 317671:                  ASSVAL

  6439          %result = val1
37265 @ 317672:                  LINE   6439 "regression-compile-tmp/imp22g-77.imp"
37266 @ 317712:                  PUSH   VAL1
37267 @ 317715:                  RESULT

  6440        %finish
37268 @ 317716:                  LINE   6440 "regression-compile-tmp/imp22g-77.imp"
37269 @ 317756:                  LOCATE L_000a

  6441        swop
37270 @ 317759:                  LINE   6441 "regression-compile-tmp/imp22g-77.imp"
37271 @ 317799:                  PUSH   SWOP
37272 @ 317802:                  CALL  

  6442      %finish
37273 @ 317803:                  LINE   6442 "regression-compile-tmp/imp22g-77.imp"
37274 @ 317843:                  LOCATE L_0007

  6443      %result = fmul
37275 @ 317846:                  LINE   6443 "regression-compile-tmp/imp22g-77.imp"
37276 @ 317886:                  PUSHI  #0x0000005c
37277 @ 317891:                  RESULT

  6444    %finish
37278 @ 317892:                  LINE   6444 "regression-compile-tmp/imp22g-77.imp"

  6445  op(over):
37279 @ 317932:                  LINE   6445 "regression-compile-tmp/imp22g-77.imp"
37280 @ 317972:                  PUSHI  #0x00000059
37281 @ 317977:                  SLABEL 397

  6446    check1(intok);  get EXPRESSION(star2,inttype)
37282 @ 317980:                  LINE   6446 "regression-compile-tmp/imp22g-77.imp"
37283 @ 318020:                  PUSH   CHECK1
37284 @ 318023:                  PUSHI  #0x00000001
37285 @ 318028:                  ASSPAR
37286 @ 318029:                  CALL  
37287 @ 318030:                  LINE   6446 "regression-compile-tmp/imp22g-77.imp"
37288 @ 318070:                  PUSH   GETEXPRESSION
37289 @ 318073:                  PUSHI  #0x0000005c
37290 @ 318078:                  ASSPAR
37291 @ 318079:                  PUSHI  #0x0000002b
37292 @ 318084:                  ASSPAR
37293 @ 318085:                  CALL  

  6447    %if item = 0 %start
37294 @ 318086:                  LINE   6447 "regression-compile-tmp/imp22g-77.imp"
37295 @ 318126:                  PUSH   ITEM
37296 @ 318129:                  PUSHI  #0x00000000
37297 @ 318134:                  JUMPIF # L_0004

  6448      fault(rangerr) %and %result = nop %if value = 0
37298 @ 318138:                  LINE   6448 "regression-compile-tmp/imp22g-77.imp"
37299 @ 318178:                  PUSH   VALUE
37300 @ 318181:                  PUSHI  #0x00000000
37301 @ 318186:                  JUMPIF # L_0007
37302 @ 318190:                  PUSH   FAULT
37303 @ 318193:                  PUSHI  #0x00000018
37304 @ 318198:                  ASSPAR
37305 @ 318199:                  CALL  
37306 @ 318200:                  PUSHI  #0x00000000
37307 @ 318205:                  RESULT
37308 @ 318206:                  LOCATE L_0007

  6449      %result = val1//value %if item1 = 0
37309 @ 318209:                  LINE   6449 "regression-compile-tmp/imp22g-77.imp"
37310 @ 318249:                  PUSH   ITEM1
37311 @ 318252:                  PUSHI  #0x00000000
37312 @ 318257:                  JUMPIF # L_0007
37313 @ 318261:                  PUSH   VAL1
37314 @ 318264:                  PUSH   VALUE
37315 @ 318267:                  QUOT  
37316 @ 318268:                  RESULT
37317 @ 318269:                  LOCATE L_0007

  6450    %finish
37318 @ 318272:                  LINE   6450 "regression-compile-tmp/imp22g-77.imp"
37319 @ 318312:                  LOCATE L_0004

  6451    type = inttype
37320 @ 318315:                  LINE   6451 "regression-compile-tmp/imp22g-77.imp"
37321 @ 318355:                  PUSH   TYPE
37322 @ 318358:                  PUSHI  #0x0000002b
37323 @ 318363:                  ASSVAL

  6452    %result = idiv
37324 @ 318364:                  LINE   6452 "regression-compile-tmp/imp22g-77.imp"
37325 @ 318404:                  PUSHI  #0x00000057
37326 @ 318409:                  RESULT

  6453  op(slash):
37327 @ 318410:                  LINE   6453 "regression-compile-tmp/imp22g-77.imp"
37328 @ 318450:                  PUSHI  #0x0000005a
37329 @ 318455:                  SLABEL 397

  6454    check1(realok)
37330 @ 318458:                  LINE   6454 "regression-compile-tmp/imp22g-77.imp"
37331 @ 318498:                  PUSH   CHECK1
37332 @ 318501:                  PUSHI  #0x00000020
37333 @ 318506:                  ASSPAR
37334 @ 318507:                  CALL  

  6455    get EXPRESSION(star2,realtype)
37335 @ 318508:                  LINE   6455 "regression-compile-tmp/imp22g-77.imp"
37336 @ 318548:                  PUSH   GETEXPRESSION
37337 @ 318551:                  PUSHI  #0x0000005c
37338 @ 318556:                  ASSPAR
37339 @ 318557:                  PUSHI  #0x00000045
37340 @ 318562:                  ASSPAR
37341 @ 318563:                  CALL  

  6456    %if item = 0 %start
37342 @ 318564:                  LINE   6456 "regression-compile-tmp/imp22g-77.imp"
37343 @ 318604:                  PUSH   ITEM
37344 @ 318607:                  PUSHI  #0x00000000
37345 @ 318612:                  JUMPIF # L_0004

  6457      fault(rangerr) %and %result = nop %if value = 0
37346 @ 318616:                  LINE   6457 "regression-compile-tmp/imp22g-77.imp"
37347 @ 318656:                  PUSH   VALUE
37348 @ 318659:                  PUSHI  #0x00000000
37349 @ 318664:                  JUMPIF # L_0007
37350 @ 318668:                  PUSH   FAULT
37351 @ 318671:                  PUSHI  #0x00000018
37352 @ 318676:                  ASSPAR
37353 @ 318677:                  CALL  
37354 @ 318678:                  PUSHI  #0x00000000
37355 @ 318683:                  RESULT
37356 @ 318684:                  LOCATE L_0007

  6458      %if item1 = 0 %start
37357 @ 318687:                  LINE   6458 "regression-compile-tmp/imp22g-77.imp"
37358 @ 318727:                  PUSH   ITEM1
37359 @ 318730:                  PUSHI  #0x00000000
37360 @ 318735:                  JUMPIF # L_0007

  6459        real(addr(val1)) = real(addr(val1))/real(addr(value))
37361 @ 318739:                  LINE   6459 "regression-compile-tmp/imp22g-77.imp"
37362 @ 318779:                  PUSH   REAL
37363 @ 318782:                  PUSH   ADDR
37364 @ 318785:                  PUSH   VAL1
37365 @ 318788:                  ASSPAR
37366 @ 318789:                  CALL  
37367 @ 318790:                  ASSPAR
37368 @ 318791:                  CALL  
37369 @ 318792:                  PUSH   REAL
37370 @ 318795:                  PUSH   ADDR
37371 @ 318798:                  PUSH   VAL1
37372 @ 318801:                  ASSPAR
37373 @ 318802:                  CALL  
37374 @ 318803:                  ASSPAR
37375 @ 318804:                  CALL  
37376 @ 318805:                  PUSH   REAL
37377 @ 318808:                  PUSH   ADDR
37378 @ 318811:                  PUSH   VALUE
37379 @ 318814:                  ASSPAR
37380 @ 318815:                  CALL  
37381 @ 318816:                  ASSPAR
37382 @ 318817:                  CALL  
37383 @ 318818:                  DIVIDE
37384 @ 318819:                  ASSVAL

  6460        %result = val1
37385 @ 318820:                  LINE   6460 "regression-compile-tmp/imp22g-77.imp"
37386 @ 318860:                  PUSH   VAL1
37387 @ 318863:                  RESULT

  6461      %finish
37388 @ 318864:                  LINE   6461 "regression-compile-tmp/imp22g-77.imp"
37389 @ 318904:                  LOCATE L_0007

  6462    %finish
37390 @ 318907:                  LINE   6462 "regression-compile-tmp/imp22g-77.imp"
37391 @ 318947:                  LOCATE L_0004

  6463    %result = fdiv
37392 @ 318950:                  LINE   6463 "regression-compile-tmp/imp22g-77.imp"
37393 @ 318990:                  PUSHI  #0x0000005d
37394 @ 318995:                  RESULT

  6464  op(backslash2): op(uparrow2):
37395 @ 318996:                  LINE   6464 "regression-compile-tmp/imp22g-77.imp"
37396 @ 319036:                  PUSHI  #0x0000005f
37397 @ 319041:                  SLABEL 397
37398 @ 319044:                  LINE   6464 "regression-compile-tmp/imp22g-77.imp"
37399 @ 319084:                  PUSHI  #0x00000060
37400 @ 319089:                  SLABEL 397

  6465    check1(intok);  get EXPRESSION(simple,inttype)
37401 @ 319092:                  LINE   6465 "regression-compile-tmp/imp22g-77.imp"
37402 @ 319132:                  PUSH   CHECK1
37403 @ 319135:                  PUSHI  #0x00000001
37404 @ 319140:                  ASSPAR
37405 @ 319141:                  CALL  
37406 @ 319142:                  LINE   6465 "regression-compile-tmp/imp22g-77.imp"
37407 @ 319182:                  PUSH   GETEXPRESSION
37408 @ 319185:                  PUSHI  #0x00000064
37409 @ 319190:                  ASSPAR
37410 @ 319191:                  PUSHI  #0x0000002b
37411 @ 319196:                  ASSPAR
37412 @ 319197:                  CALL  

  6466    %if item = 0 %start
37413 @ 319198:                  LINE   6466 "regression-compile-tmp/imp22g-77.imp"
37414 @ 319238:                  PUSH   ITEM
37415 @ 319241:                  PUSHI  #0x00000000
37416 @ 319246:                  JUMPIF # L_0004

  6467      %result = val1\\value %if item1 = 0
37417 @ 319250:                  LINE   6467 "regression-compile-tmp/imp22g-77.imp"
37418 @ 319290:                  PUSH   ITEM1
37419 @ 319293:                  PUSHI  #0x00000000
37420 @ 319298:                  JUMPIF # L_0007
37421 @ 319302:                  PUSH   VAL1
37422 @ 319305:                  PUSH   VALUE
37423 @ 319308:                  IEXP  
37424 @ 319309:                  RESULT
37425 @ 319310:                  LOCATE L_0007

  6468      item1 = 0 %and %result = 1 %if value = 0
37426 @ 319313:                  LINE   6468 "regression-compile-tmp/imp22g-77.imp"
37427 @ 319353:                  PUSH   VALUE
37428 @ 319356:                  PUSHI  #0x00000000
37429 @ 319361:                  JUMPIF # L_0007
37430 @ 319365:                  PUSH   ITEM1
37431 @ 319368:                  PUSHI  #0x00000000
37432 @ 319373:                  ASSVAL
37433 @ 319374:                  PUSHI  #0x00000001
37434 @ 319379:                  RESULT
37435 @ 319380:                  LOCATE L_0007

  6469      %result = nop %if value = 1
37436 @ 319383:                  LINE   6469 "regression-compile-tmp/imp22g-77.imp"
37437 @ 319423:                  PUSH   VALUE
37438 @ 319426:                  PUSHI  #0x00000001
37439 @ 319431:                  JUMPIF # L_0007
37440 @ 319435:                  PUSHI  #0x00000000
37441 @ 319440:                  RESULT
37442 @ 319441:                  LOCATE L_0007

  6470      item = item1 %and %result = imul %if value = 2
37443 @ 319444:                  LINE   6470 "regression-compile-tmp/imp22g-77.imp"
37444 @ 319484:                  PUSH   VALUE
37445 @ 319487:                  PUSHI  #0x00000002
37446 @ 319492:                  JUMPIF # L_0007
37447 @ 319496:                  PUSH   ITEM
37448 @ 319499:                  PUSH   ITEM1
37449 @ 319502:                  ASSVAL
37450 @ 319503:                  PUSHI  #0x00000056
37451 @ 319508:                  RESULT
37452 @ 319509:                  LOCATE L_0007

  6471    %finish
37453 @ 319512:                  LINE   6471 "regression-compile-tmp/imp22g-77.imp"
37454 @ 319552:                  LOCATE L_0004

  6472    type = inttype
37455 @ 319555:                  LINE   6472 "regression-compile-tmp/imp22g-77.imp"
37456 @ 319595:                  PUSH   TYPE
37457 @ 319598:                  PUSHI  #0x0000002b
37458 @ 319603:                  ASSVAL

  6473    %result = ipow
37459 @ 319604:                  LINE   6473 "regression-compile-tmp/imp22g-77.imp"
37460 @ 319644:                  PUSHI  #0x00000058
37461 @ 319649:                  RESULT

  6474  op(backslash): op(uparrow): op(star2):
37462 @ 319650:                  LINE   6474 "regression-compile-tmp/imp22g-77.imp"
37463 @ 319690:                  PUSHI  #0x0000005d
37464 @ 319695:                  SLABEL 397
37465 @ 319698:                  LINE   6474 "regression-compile-tmp/imp22g-77.imp"
37466 @ 319738:                  PUSHI  #0x0000005e
37467 @ 319743:                  SLABEL 397
37468 @ 319746:                  LINE   6474 "regression-compile-tmp/imp22g-77.imp"
37469 @ 319786:                  PUSHI  #0x0000005c
37470 @ 319791:                  SLABEL 397

  6475    check1(realok)
37471 @ 319794:                  LINE   6475 "regression-compile-tmp/imp22g-77.imp"
37472 @ 319834:                  PUSH   CHECK1
37473 @ 319837:                  PUSHI  #0x00000020
37474 @ 319842:                  ASSPAR
37475 @ 319843:                  CALL  

  6476    get EXPRESSION(simple,inttype)
37476 @ 319844:                  LINE   6476 "regression-compile-tmp/imp22g-77.imp"
37477 @ 319884:                  PUSH   GETEXPRESSION
37478 @ 319887:                  PUSHI  #0x00000064
37479 @ 319892:                  ASSPAR
37480 @ 319893:                  PUSHI  #0x0000002b
37481 @ 319898:                  ASSPAR
37482 @ 319899:                  CALL  

  6477    type = realtype
37483 @ 319900:                  LINE   6477 "regression-compile-tmp/imp22g-77.imp"
37484 @ 319940:                  PUSH   TYPE
37485 @ 319943:                  PUSHI  #0x00000045
37486 @ 319948:                  ASSVAL

  6478    %if item!item1 = 0 %start
37487 @ 319949:                  LINE   6478 "regression-compile-tmp/imp22g-77.imp"
37488 @ 319989:                  PUSH   ITEM
37489 @ 319992:                  PUSH   ITEM1
37490 @ 319995:                  OR    
37491 @ 319996:                  PUSHI  #0x00000000
37492 @ 320001:                  JUMPIF # L_0004

  6479      real(addr(val1)) = real(addr(val1))\value
37493 @ 320005:                  LINE   6479 "regression-compile-tmp/imp22g-77.imp"
37494 @ 320045:                  PUSH   REAL
37495 @ 320048:                  PUSH   ADDR
37496 @ 320051:                  PUSH   VAL1
37497 @ 320054:                  ASSPAR
37498 @ 320055:                  CALL  
37499 @ 320056:                  ASSPAR
37500 @ 320057:                  CALL  
37501 @ 320058:                  PUSH   REAL
37502 @ 320061:                  PUSH   ADDR
37503 @ 320064:                  PUSH   VAL1
37504 @ 320067:                  ASSPAR
37505 @ 320068:                  CALL  
37506 @ 320069:                  ASSPAR
37507 @ 320070:                  CALL  
37508 @ 320071:                  PUSH   VALUE
37509 @ 320074:                  REXP  
37510 @ 320075:                  ASSVAL

  6480      %result = val1
37511 @ 320076:                  LINE   6480 "regression-compile-tmp/imp22g-77.imp"
37512 @ 320116:                  PUSH   VAL1
37513 @ 320119:                  RESULT

  6481    %finish
37514 @ 320120:                  LINE   6481 "regression-compile-tmp/imp22g-77.imp"
37515 @ 320160:                  LOCATE L_0004

  6482    %result = fpow
37516 @ 320163:                  LINE   6482 "regression-compile-tmp/imp22g-77.imp"
37517 @ 320203:                  PUSHI  #0x0000005e
37518 @ 320208:                  RESULT

  6483  op(lshift):
37519 @ 320209:                  LINE   6483 "regression-compile-tmp/imp22g-77.imp"
37520 @ 320249:                  PUSHI  #0x00000062
37521 @ 320254:                  SLABEL 397

  6484    check1(intok);  get EXPRESSION(simple,inttype)
37522 @ 320257:                  LINE   6484 "regression-compile-tmp/imp22g-77.imp"
37523 @ 320297:                  PUSH   CHECK1
37524 @ 320300:                  PUSHI  #0x00000001
37525 @ 320305:                  ASSPAR
37526 @ 320306:                  CALL  
37527 @ 320307:                  LINE   6484 "regression-compile-tmp/imp22g-77.imp"
37528 @ 320347:                  PUSH   GETEXPRESSION
37529 @ 320350:                  PUSHI  #0x00000064
37530 @ 320355:                  ASSPAR
37531 @ 320356:                  PUSHI  #0x0000002b
37532 @ 320361:                  ASSPAR
37533 @ 320362:                  CALL  

  6485    %if item = 0 %start
37534 @ 320363:                  LINE   6485 "regression-compile-tmp/imp22g-77.imp"
37535 @ 320403:                  PUSH   ITEM
37536 @ 320406:                  PUSHI  #0x00000000
37537 @ 320411:                  JUMPIF # L_0004

  6486      %result = val1<<value %if item1 = 0
37538 @ 320415:                  LINE   6486 "regression-compile-tmp/imp22g-77.imp"
37539 @ 320455:                  PUSH   ITEM1
37540 @ 320458:                  PUSHI  #0x00000000
37541 @ 320463:                  JUMPIF # L_0007
37542 @ 320467:                  PUSH   VAL1
37543 @ 320470:                  PUSH   VALUE
37544 @ 320473:                  LSH   
37545 @ 320474:                  RESULT
37546 @ 320475:                  LOCATE L_0007

  6487      %result = nop %if value = 0
37547 @ 320478:                  LINE   6487 "regression-compile-tmp/imp22g-77.imp"
37548 @ 320518:                  PUSH   VALUE
37549 @ 320521:                  PUSHI  #0x00000000
37550 @ 320526:                  JUMPIF # L_0007
37551 @ 320530:                  PUSHI  #0x00000000
37552 @ 320535:                  RESULT
37553 @ 320536:                  LOCATE L_0007

  6488    %finish
37554 @ 320539:                  LINE   6488 "regression-compile-tmp/imp22g-77.imp"
37555 @ 320579:                  LOCATE L_0004

  6489    type = inttype
37556 @ 320582:                  LINE   6489 "regression-compile-tmp/imp22g-77.imp"
37557 @ 320622:                  PUSH   TYPE
37558 @ 320625:                  PUSHI  #0x0000002b
37559 @ 320630:                  ASSVAL

  6490    %result = lsl
37560 @ 320631:                  LINE   6490 "regression-compile-tmp/imp22g-77.imp"
37561 @ 320671:                  PUSHI  #0x0000000a
37562 @ 320676:                  RESULT

  6491  op(rshift):
37563 @ 320677:                  LINE   6491 "regression-compile-tmp/imp22g-77.imp"
37564 @ 320717:                  PUSHI  #0x00000063
37565 @ 320722:                  SLABEL 397

  6492    check1(intok);  get EXPRESSION(simple,inttype)
37566 @ 320725:                  LINE   6492 "regression-compile-tmp/imp22g-77.imp"
37567 @ 320765:                  PUSH   CHECK1
37568 @ 320768:                  PUSHI  #0x00000001
37569 @ 320773:                  ASSPAR
37570 @ 320774:                  CALL  
37571 @ 320775:                  LINE   6492 "regression-compile-tmp/imp22g-77.imp"
37572 @ 320815:                  PUSH   GETEXPRESSION
37573 @ 320818:                  PUSHI  #0x00000064
37574 @ 320823:                  ASSPAR
37575 @ 320824:                  PUSHI  #0x0000002b
37576 @ 320829:                  ASSPAR
37577 @ 320830:                  CALL  

  6493    %if item = 0 %start
37578 @ 320831:                  LINE   6493 "regression-compile-tmp/imp22g-77.imp"
37579 @ 320871:                  PUSH   ITEM
37580 @ 320874:                  PUSHI  #0x00000000
37581 @ 320879:                  JUMPIF # L_0004

  6494      %result = val1>>value %if item1 = 0
37582 @ 320883:                  LINE   6494 "regression-compile-tmp/imp22g-77.imp"
37583 @ 320923:                  PUSH   ITEM1
37584 @ 320926:                  PUSHI  #0x00000000
37585 @ 320931:                  JUMPIF # L_0007
37586 @ 320935:                  PUSH   VAL1
37587 @ 320938:                  PUSH   VALUE
37588 @ 320941:                  RSH   
37589 @ 320942:                  RESULT
37590 @ 320943:                  LOCATE L_0007

  6495      %result = nop %if value = 0
37591 @ 320946:                  LINE   6495 "regression-compile-tmp/imp22g-77.imp"
37592 @ 320986:                  PUSH   VALUE
37593 @ 320989:                  PUSHI  #0x00000000
37594 @ 320994:                  JUMPIF # L_0007
37595 @ 320998:                  PUSHI  #0x00000000
37596 @ 321003:                  RESULT
37597 @ 321004:                  LOCATE L_0007

  6496    %finish
37598 @ 321007:                  LINE   6496 "regression-compile-tmp/imp22g-77.imp"
37599 @ 321047:                  LOCATE L_0004

  6497    type = inttype
37600 @ 321050:                  LINE   6497 "regression-compile-tmp/imp22g-77.imp"
37601 @ 321090:                  PUSH   TYPE
37602 @ 321093:                  PUSHI  #0x0000002b
37603 @ 321098:                  ASSVAL

  6498    %result = lsr
37604 @ 321099:                  LINE   6498 "regression-compile-tmp/imp22g-77.imp"
37605 @ 321139:                  PUSHI  #0x0000000b
37606 @ 321144:                  RESULT

  6499  op(tilde):
37607 @ 321145:                  LINE   6499 "regression-compile-tmp/imp22g-77.imp"
37608 @ 321185:                  PUSHI  #0x00000061
37609 @ 321190:                  SLABEL 397

  6500    check1(intok)
37610 @ 321193:                  LINE   6500 "regression-compile-tmp/imp22g-77.imp"
37611 @ 321233:                  PUSH   CHECK1
37612 @ 321236:                  PUSHI  #0x00000001
37613 @ 321241:                  ASSPAR
37614 @ 321242:                  CALL  

  6501    get EXPRESSION(simple,inttype)
37615 @ 321243:                  LINE   6501 "regression-compile-tmp/imp22g-77.imp"
37616 @ 321283:                  PUSH   GETEXPRESSION
37617 @ 321286:                  PUSHI  #0x00000064
37618 @ 321291:                  ASSPAR
37619 @ 321292:                  PUSHI  #0x0000002b
37620 @ 321297:                  ASSPAR
37621 @ 321298:                  CALL  

  6502    %result = \value %if item = 0
37622 @ 321299:                  LINE   6502 "regression-compile-tmp/imp22g-77.imp"
37623 @ 321339:                  PUSH   ITEM
37624 @ 321342:                  PUSHI  #0x00000000
37625 @ 321347:                  JUMPIF # L_0004
37626 @ 321351:                  PUSH   VALUE
37627 @ 321354:                  NOT   
37628 @ 321355:                  RESULT
37629 @ 321356:                  LOCATE L_0004

  6503    swop
37630 @ 321359:                  LINE   6503 "regression-compile-tmp/imp22g-77.imp"
37631 @ 321399:                  PUSH   SWOP
37632 @ 321402:                  CALL  

  6504    type = inttype
37633 @ 321403:                  LINE   6504 "regression-compile-tmp/imp22g-77.imp"
37634 @ 321443:                  PUSH   TYPE
37635 @ 321446:                  PUSHI  #0x0000002b
37636 @ 321451:                  ASSVAL

  6505    %result = not
37637 @ 321452:                  LINE   6505 "regression-compile-tmp/imp22g-77.imp"
37638 @ 321492:                  PUSHI  #0x00000008
37639 @ 321497:                  RESULT

  6506  op(sconc):
37640 @ 321498:                  LINE   6506 "regression-compile-tmp/imp22g-77.imp"
37641 @ 321538:                  PUSHI  #0x00000057
37642 @ 321543:                  SLABEL 397

  6507    check1(stringok);  get EXPRESSION(dot+1,stringtype)
37643 @ 321546:                  LINE   6507 "regression-compile-tmp/imp22g-77.imp"
37644 @ 321586:                  PUSH   CHECK1
37645 @ 321589:                  PUSHI  #0x00000100
37646 @ 321594:                  ASSPAR
37647 @ 321595:                  CALL  
37648 @ 321596:                  LINE   6507 "regression-compile-tmp/imp22g-77.imp"
37649 @ 321636:                  PUSH   GETEXPRESSION
37650 @ 321639:                  PUSHI  #0x00000057
37651 @ 321644:                  PUSHI  #0x00000001
37652 @ 321649:                  ADD   
37653 @ 321650:                  ASSPAR
37654 @ 321651:                  PUSHI  #0x00000040
37655 @ 321656:                  ASSPAR
37656 @ 321657:                  CALL  

  6508    %if item = 0 %start
37657 @ 321658:                  LINE   6508 "regression-compile-tmp/imp22g-77.imp"
37658 @ 321698:                  PUSH   ITEM
37659 @ 321701:                  PUSHI  #0x00000000
37660 @ 321706:                  JUMPIF # L_0004

  6509      %if item1 = 0 %start
37661 @ 321710:                  LINE   6509 "regression-compile-tmp/imp22g-77.imp"
37662 @ 321750:                  PUSH   ITEM1
37663 @ 321753:                  PUSHI  #0x00000000
37664 @ 321758:                  JUMPIF # L_0007

  6510        %result = val1 %if value = 0
37665 @ 321762:                  LINE   6510 "regression-compile-tmp/imp22g-77.imp"
37666 @ 321802:                  PUSH   VALUE
37667 @ 321805:                  PUSHI  #0x00000000
37668 @ 321810:                  JUMPIF # L_000a
37669 @ 321814:                  PUSH   VAL1
37670 @ 321817:                  RESULT
37671 @ 321818:                  LOCATE L_000a

  6511        %result = value %if val1 = 0
37672 @ 321821:                  LINE   6511 "regression-compile-tmp/imp22g-77.imp"
37673 @ 321861:                  PUSH   VAL1
37674 @ 321864:                  PUSHI  #0x00000000
37675 @ 321869:                  JUMPIF # L_000a
37676 @ 321873:                  PUSH   VALUE
37677 @ 321876:                  RESULT
37678 @ 321877:                  LOCATE L_000a

  6512        %if final(val1)+final(value) <= 255 %start
37679 @ 321880:                  LINE   6512 "regression-compile-tmp/imp22g-77.imp"
37680 @ 321920:                  PUSH   FINAL
37681 @ 321923:                  PUSH   VAL1
37682 @ 321926:                  ACCESS
37683 @ 321927:                  PUSH   FINAL
37684 @ 321930:                  PUSH   VALUE
37685 @ 321933:                  ACCESS
37686 @ 321934:                  ADD   
37687 @ 321935:                  PUSHI  #0x000000ff
37688 @ 321940:                  JUMPIF > L_000a

  6513          string(final0+val1) = string(final0+val1) %c
  6514                                   . string(final0+value)
37689 @ 321944:                  LINE   6513 "regression-compile-tmp/imp22g-77.imp"
37690 @ 321984:                  PUSH   STRING
37691 @ 321987:                  PUSH   FINAL0
37692 @ 321990:                  PUSH   VAL1
37693 @ 321993:                  ADD   
37694 @ 321994:                  ASSPAR
37695 @ 321995:                  CALL  
37696 @ 321996:                  PUSH   STRING
37697 @ 321999:                  PUSH   FINAL0
37698 @ 322002:                  PUSH   VAL1
37699 @ 322005:                  ADD   
37700 @ 322006:                  ASSPAR
37701 @ 322007:                  CALL  
37702 @ 322008:                  PUSH   STRING
37703 @ 322011:                  PUSH   FINAL0
37704 @ 322014:                  PUSH   VALUE
37705 @ 322017:                  ADD   
37706 @ 322018:                  ASSPAR
37707 @ 322019:                  CALL  
37708 @ 322020:                  CONCAT
37709 @ 322021:                  ASSVAL

  6515          cad = cad-1
37710 @ 322022:                  LINE   6515 "regression-compile-tmp/imp22g-77.imp"
37711 @ 322062:                  PUSH   CAD
37712 @ 322065:                  PUSH   CAD
37713 @ 322068:                  PUSHI  #0x00000001
37714 @ 322073:                  SUB   
37715 @ 322074:                  ASSVAL

  6516        %finish %else fault(rangerr)
37716 @ 322075:                  LINE   6516 "regression-compile-tmp/imp22g-77.imp"
37717 @ 322115:                  GOTO   L_0009
37718 @ 322118:                  LOCATE L_000a
37719 @ 322121:                  PUSH   FAULT
37720 @ 322124:                  PUSHI  #0x00000018
37721 @ 322129:                  ASSPAR
37722 @ 322130:                  CALL  
37723 @ 322131:                  LOCATE L_0009

  6517        %result = val1
37724 @ 322134:                  LINE   6517 "regression-compile-tmp/imp22g-77.imp"
37725 @ 322174:                  PUSH   VAL1
37726 @ 322177:                  RESULT

  6518      %finish
37727 @ 322178:                  LINE   6518 "regression-compile-tmp/imp22g-77.imp"
37728 @ 322218:                  LOCATE L_0007

  6519      %result = nop %if value = 0
37729 @ 322221:                  LINE   6519 "regression-compile-tmp/imp22g-77.imp"
37730 @ 322261:                  PUSH   VALUE
37731 @ 322264:                  PUSHI  #0x00000000
37732 @ 322269:                  JUMPIF # L_0007
37733 @ 322273:                  PUSHI  #0x00000000
37734 @ 322278:                  RESULT
37735 @ 322279:                  LOCATE L_0007

  6520    %finish %else %if item1!val1 = 0 %start
37736 @ 322282:                  LINE   6520 "regression-compile-tmp/imp22g-77.imp"
37737 @ 322322:                  GOTO   L_0003
37738 @ 322325:                  LOCATE L_0004
37739 @ 322328:                  PUSH   ITEM1
37740 @ 322331:                  PUSH   VAL1
37741 @ 322334:                  OR    
37742 @ 322335:                  PUSHI  #0x00000000
37743 @ 322340:                  JUMPIF # L_0004

  6521      item1 = item;  val1 = value;  type1 = type
37744 @ 322344:                  LINE   6521 "regression-compile-tmp/imp22g-77.imp"
37745 @ 322384:                  PUSH   ITEM1
37746 @ 322387:                  PUSH   ITEM
37747 @ 322390:                  ASSVAL
37748 @ 322391:                  LINE   6521 "regression-compile-tmp/imp22g-77.imp"
37749 @ 322431:                  PUSH   VAL1
37750 @ 322434:                  PUSH   VALUE
37751 @ 322437:                  ASSVAL
37752 @ 322438:                  LINE   6521 "regression-compile-tmp/imp22g-77.imp"
37753 @ 322478:                  PUSH   TYPE1
37754 @ 322481:                  PUSH   TYPE
37755 @ 322484:                  ASSVAL

  6522      %result = nop
37756 @ 322485:                  LINE   6522 "regression-compile-tmp/imp22g-77.imp"
37757 @ 322525:                  PUSHI  #0x00000000
37758 @ 322530:                  RESULT

  6523    %finish
37759 @ 322531:                  LINE   6523 "regression-compile-tmp/imp22g-77.imp"
37760 @ 322571:                  LOCATE L_0004
37761 @ 322574:                  LOCATE L_0003

  6524    type = stringtype
37762 @ 322577:                  LINE   6524 "regression-compile-tmp/imp22g-77.imp"
37763 @ 322617:                  PUSH   TYPE
37764 @ 322620:                  PUSHI  #0x00000040
37765 @ 322625:                  ASSVAL

  6525    %result = concat
37766 @ 322626:                  LINE   6525 "regression-compile-tmp/imp22g-77.imp"
37767 @ 322666:                  PUSHI  #0x0000006a
37768 @ 322671:                  RESULT

  6526  op(equals):
37769 @ 322672:                  LINE   6526 "regression-compile-tmp/imp22g-77.imp"
37770 @ 322712:                  PUSHI  #0x0000004d
37771 @ 322717:                  SLABEL 397

  6527    %result = RCOND(beq)
37772 @ 322720:                  LINE   6527 "regression-compile-tmp/imp22g-77.imp"
37773 @ 322760:                  PUSH   RCOND
37774 @ 322763:                  PUSHI  #0x00000017
37775 @ 322768:                  ASSPAR
37776 @ 322769:                  CALL  
37777 @ 322770:                  RESULT

  6528  op(noteq):
37778 @ 322771:                  LINE   6528 "regression-compile-tmp/imp22g-77.imp"
37779 @ 322811:                  PUSHI  #0x0000004e
37780 @ 322816:                  SLABEL 397

  6529    %result = RCOND(bne)
37781 @ 322819:                  LINE   6529 "regression-compile-tmp/imp22g-77.imp"
37782 @ 322859:                  PUSH   RCOND
37783 @ 322862:                  PUSHI  #0x00000016
37784 @ 322867:                  ASSPAR
37785 @ 322868:                  CALL  
37786 @ 322869:                  RESULT

  6530  op(lesseq):
37787 @ 322870:                  LINE   6530 "regression-compile-tmp/imp22g-77.imp"
37788 @ 322910:                  PUSHI  #0x0000004f
37789 @ 322915:                  SLABEL 397

  6531    %result = RCOND(ble)
37790 @ 322918:                  LINE   6531 "regression-compile-tmp/imp22g-77.imp"
37791 @ 322958:                  PUSH   RCOND
37792 @ 322961:                  PUSHI  #0x0000001f
37793 @ 322966:                  ASSPAR
37794 @ 322967:                  CALL  
37795 @ 322968:                  RESULT

  6532  op(less):
37796 @ 322969:                  LINE   6532 "regression-compile-tmp/imp22g-77.imp"
37797 @ 323009:                  PUSHI  #0x00000050
37798 @ 323014:                  SLABEL 397

  6533    %result = RCOND(blt)
37799 @ 323017:                  LINE   6533 "regression-compile-tmp/imp22g-77.imp"
37800 @ 323057:                  PUSH   RCOND
37801 @ 323060:                  PUSHI  #0x0000001d
37802 @ 323065:                  ASSPAR
37803 @ 323066:                  CALL  
37804 @ 323067:                  RESULT

  6534  op(greateq):
37805 @ 323068:                  LINE   6534 "regression-compile-tmp/imp22g-77.imp"
37806 @ 323108:                  PUSHI  #0x00000051
37807 @ 323113:                  SLABEL 397

  6535    %result = RCOND(bge)
37808 @ 323116:                  LINE   6535 "regression-compile-tmp/imp22g-77.imp"
37809 @ 323156:                  PUSH   RCOND
37810 @ 323159:                  PUSHI  #0x0000001c
37811 @ 323164:                  ASSPAR
37812 @ 323165:                  CALL  
37813 @ 323166:                  RESULT

  6536  op(greater):
37814 @ 323167:                  LINE   6536 "regression-compile-tmp/imp22g-77.imp"
37815 @ 323207:                  PUSHI  #0x00000052
37816 @ 323212:                  SLABEL 397

  6537    %result = RCOND(bgt)
37817 @ 323215:                  LINE   6537 "regression-compile-tmp/imp22g-77.imp"
37818 @ 323255:                  PUSH   RCOND
37819 @ 323258:                  PUSHI  #0x0000001e
37820 @ 323263:                  ASSPAR
37821 @ 323264:                  CALL  
37822 @ 323265:                  RESULT

  6538  %integer%fn RACOND(%integer op)
37823 @ 323266:                  LINE   6538 "regression-compile-tmp/imp22g-77.imp"
37824 @ 323306:                  DEF    RACOND (_lev0id0_GETEXPRESSION_OPVAL_RACOND) p1=V_018e 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
37825 @ 323324:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
37826 @ 323325:                        DEF    OP p1=V_018f a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
37827 @ 323339:                     FINISH ) {lev=4}

  6539    toref
37828 @ 323340:                     LINE   6539 "regression-compile-tmp/imp22g-77.imp"
37829 @ 323380:                     PUSH   TOREF
37830 @ 323383:                     CALL  

  6540    item1 = normitem;  type1 = type
37831 @ 323384:                     LINE   6540 "regression-compile-tmp/imp22g-77.imp"
37832 @ 323424:                     PUSH   ITEM1
37833 @ 323427:                     PUSH   NORMITEM
37834 @ 323430:                     CALL  
37835 @ 323431:                     ASSVAL
37836 @ 323432:                     LINE   6540 "regression-compile-tmp/imp22g-77.imp"
37837 @ 323472:                     PUSH   TYPE1
37838 @ 323475:                     PUSH   TYPE
37839 @ 323478:                     ASSVAL

  6541    get REFERENCE(type1)
37840 @ 323479:                     LINE   6541 "regression-compile-tmp/imp22g-77.imp"
37841 @ 323519:                     PUSH   GETREFERENCE
37842 @ 323522:                     PUSH   TYPE1
37843 @ 323525:                     ASSPAR
37844 @ 323526:                     CALL  

  6542    val1 = 0 %and swop %if item1 = 0
37845 @ 323527:                     LINE   6542 "regression-compile-tmp/imp22g-77.imp"
37846 @ 323567:                     PUSH   ITEM1
37847 @ 323570:                     PUSHI  #0x00000000
37848 @ 323575:                     JUMPIF # L_0004
37849 @ 323579:                     PUSH   VAL1
37850 @ 323582:                     PUSHI  #0x00000000
37851 @ 323587:                     ASSVAL
37852 @ 323588:                     PUSH   SWOP
37853 @ 323591:                     CALL  
37854 @ 323592:                     LOCATE L_0004

  6543    syntax error %if arrow <= atom <= greater;  ![ATOM always primed]
37855 @ 323595:                     LINE   6543 "regression-compile-tmp/imp22g-77.imp"
37856 @ 323635:                     PUSHI  #0x0000004a
37857 @ 323640:                     PUSH   ATOM
37858 @ 323643:                     JUMPIFD > L_0004
37859 @ 323647:                     PUSHI  #0x00000052
37860 @ 323652:                     JUMPIF > L_0004
37861 @ 323656:                     PUSH   SYNTAXERROR
37862 @ 323659:                     CALL  
37863 @ 323660:                     LOCATE L_0004

  6544    double = -2
37864 @ 323663:                     LINE   6544 "regression-compile-tmp/imp22g-77.imp"
37865 @ 323703:                     PUSH   DOUBLE
37866 @ 323706:                     PUSHI  #0x00000002
37867 @ 323711:                     NEGATE
37868 @ 323712:                     ASSVAL

  6545    %result = op
37869 @ 323713:                     LINE   6545 "regression-compile-tmp/imp22g-77.imp"
37870 @ 323753:                     PUSH   OP
37871 @ 323756:                     RESULT

  6546  %end
37872 @ 323757:                     LINE   6546 "regression-compile-tmp/imp22g-77.imp"
37873 @ 323797:                  END    _lev0id0_GETEXPRESSION_OPVAL_RACOND {lev=4 --> 3}

  6547  op(eqeq):
37874 @ 323798:                  LINE   6547 "regression-compile-tmp/imp22g-77.imp"
37875 @ 323838:                  PUSHI  #0x0000004b
37876 @ 323843:                  SLABEL 397

  6548    %result = RACOND(beq)
37877 @ 323846:                  LINE   6548 "regression-compile-tmp/imp22g-77.imp"
37878 @ 323886:                  PUSH   RACOND
37879 @ 323889:                  PUSHI  #0x00000017
37880 @ 323894:                  ASSPAR
37881 @ 323895:                  CALL  
37882 @ 323896:                  RESULT

  6549  op(noteqeq):
37883 @ 323897:                  LINE   6549 "regression-compile-tmp/imp22g-77.imp"
37884 @ 323937:                  PUSHI  #0x0000004c
37885 @ 323942:                  SLABEL 397

  6550    %result = RACOND(bne)
37886 @ 323945:                  LINE   6550 "regression-compile-tmp/imp22g-77.imp"
37887 @ 323985:                  PUSH   RACOND
37888 @ 323988:                  PUSHI  #0x00000016
37889 @ 323993:                  ASSPAR
37890 @ 323994:                  CALL  
37891 @ 323995:                  RESULT

  6551  op(arrow):
37892 @ 323996:                  LINE   6551 "regression-compile-tmp/imp22g-77.imp"
37893 @ 324036:                  PUSHI  #0x0000004a
37894 @ 324041:                  SLABEL 397

  6552    check1(stringok)
37895 @ 324044:                  LINE   6552 "regression-compile-tmp/imp22g-77.imp"
37896 @ 324084:                  PUSH   CHECK1
37897 @ 324087:                  PUSHI  #0x00000100
37898 @ 324092:                  ASSPAR
37899 @ 324093:                  CALL  

  6553    item1 = litref(val1) %if item1 = 0
37900 @ 324094:                  LINE   6553 "regression-compile-tmp/imp22g-77.imp"
37901 @ 324134:                  PUSH   ITEM1
37902 @ 324137:                  PUSHI  #0x00000000
37903 @ 324142:                  JUMPIF # L_0004
37904 @ 324146:                  PUSH   ITEM1
37905 @ 324149:                  PUSH   LITREF
37906 @ 324152:                  PUSH   VAL1
37907 @ 324155:                  ASSPAR
37908 @ 324156:                  CALL  
37909 @ 324157:                  ASSVAL
37910 @ 324158:                  LOCATE L_0004

  6554    get RESOLUTION(type,item1)
37911 @ 324161:                  LINE   6554 "regression-compile-tmp/imp22g-77.imp"
37912 @ 324201:                  PUSH   GETRESOLUTION
37913 @ 324204:                  PUSH   TYPE
37914 @ 324207:                  ASSPAR
37915 @ 324208:                  PUSH   ITEM1
37916 @ 324211:                  ASSPAR
37917 @ 324212:                  CALL  

  6555    item1 = np-3
37918 @ 324213:                  LINE   6555 "regression-compile-tmp/imp22g-77.imp"
37919 @ 324253:                  PUSH   ITEM1
37920 @ 324256:                  PUSH   NP
37921 @ 324259:                  PUSHI  #0x00000003
37922 @ 324264:                  SUB   
37923 @ 324265:                  ASSVAL

  6556    condop = bne!!polarity
37924 @ 324266:                  LINE   6556 "regression-compile-tmp/imp22g-77.imp"
37925 @ 324306:                  PUSH   CONDOP
37926 @ 324309:                  PUSHI  #0x00000016
37927 @ 324314:                  PUSH   POLARITY
37928 @ 324317:                  XOR   
37929 @ 324318:                  ASSVAL

  6557    type1 = booltype
37930 @ 324319:                  LINE   6557 "regression-compile-tmp/imp22g-77.imp"
37931 @ 324359:                  PUSH   TYPE1
37932 @ 324362:                  PUSHI  #0x0000003a
37933 @ 324367:                  ASSVAL

  6558    %result = nop
37934 @ 324368:                  LINE   6558 "regression-compile-tmp/imp22g-77.imp"
37935 @ 324408:                  PUSHI  #0x00000000
37936 @ 324413:                  RESULT

  6559  op(keyand):
37937 @ 324414:                  LINE   6559 "regression-compile-tmp/imp22g-77.imp"
37938 @ 324454:                  PUSHI  #0x00000048
37939 @ 324459:                  SLABEL 397

  6560    topred %if condop = 0
37940 @ 324462:                  LINE   6560 "regression-compile-tmp/imp22g-77.imp"
37941 @ 324502:                  PUSH   CONDOP
37942 @ 324505:                  PUSHI  #0x00000000
37943 @ 324510:                  JUMPIF # L_0004
37944 @ 324514:                  PUSH   TOPRED
37945 @ 324517:                  CALL  
37946 @ 324518:                  LOCATE L_0004

  6561    item1 = np;  type1 = booltype
37947 @ 324521:                  LINE   6561 "regression-compile-tmp/imp22g-77.imp"
37948 @ 324561:                  PUSH   ITEM1
37949 @ 324564:                  PUSH   NP
37950 @ 324567:                  ASSVAL
37951 @ 324568:                  LINE   6561 "regression-compile-tmp/imp22g-77.imp"
37952 @ 324608:                  PUSH   TYPE1
37953 @ 324611:                  PUSHI  #0x0000003a
37954 @ 324616:                  ASSVAL

  6562    putact(condop!!polarity!!1+polarity<<7,item,0)
37955 @ 324617:                  LINE   6562 "regression-compile-tmp/imp22g-77.imp"
37956 @ 324657:                  PUSH   PUTACT
37957 @ 324660:                  PUSH   CONDOP
37958 @ 324663:                  PUSH   POLARITY
37959 @ 324666:                  XOR   
37960 @ 324667:                  PUSHI  #0x00000001
37961 @ 324672:                  XOR   
37962 @ 324673:                  PUSH   POLARITY
37963 @ 324676:                  PUSHI  #0x00000007
37964 @ 324681:                  LSH   
37965 @ 324682:                  ADD   
37966 @ 324683:                  ASSPAR
37967 @ 324684:                  PUSH   ITEM
37968 @ 324687:                  ASSPAR
37969 @ 324688:                  PUSHI  #0x00000000
37970 @ 324693:                  ASSPAR
37971 @ 324694:                  CALL  

  6563    condop = 0
37972 @ 324695:                  LINE   6563 "regression-compile-tmp/imp22g-77.imp"
37973 @ 324735:                  PUSH   CONDOP
37974 @ 324738:                  PUSHI  #0x00000000
37975 @ 324743:                  ASSVAL

  6564    get EXPRESSION(scond,booltype)
37976 @ 324744:                  LINE   6564 "regression-compile-tmp/imp22g-77.imp"
37977 @ 324784:                  PUSH   GETEXPRESSION
37978 @ 324787:                  PUSHI  #0x0000004a
37979 @ 324792:                  ASSPAR
37980 @ 324793:                  PUSHI  #0x0000003a
37981 @ 324798:                  ASSPAR
37982 @ 324799:                  CALL  

  6565    dict(item1)_y = item
37983 @ 324800:                  LINE   6565 "regression-compile-tmp/imp22g-77.imp"
37984 @ 324840:                  PUSH   DICT
37985 @ 324843:                  PUSH   ITEM1
37986 @ 324846:                  ACCESS
37987 @ 324847:                  SELECT 14
37988 @ 324850:                  PUSH   ITEM
37989 @ 324853:                  ASSVAL

  6566    syntax error %if a(keyor)=TRUE
37990 @ 324854:                  LINE   6566 "regression-compile-tmp/imp22g-77.imp"
37991 @ 324894:                  PUSH   A
37992 @ 324897:                  PUSHI  #0x00000049
37993 @ 324902:                  ASSPAR
37994 @ 324903:                  CALL  
37995 @ 324904:                  PUSHI  #0x00000001
37996 @ 324909:                  JUMPIF # L_0004
37997 @ 324913:                  PUSH   SYNTAXERROR
37998 @ 324916:                  CALL  
37999 @ 324917:                  LOCATE L_0004

  6567    %result = nop
38000 @ 324920:                  LINE   6567 "regression-compile-tmp/imp22g-77.imp"
38001 @ 324960:                  PUSHI  #0x00000000
38002 @ 324965:                  RESULT

  6568  op(keyor):
38003 @ 324966:                  LINE   6568 "regression-compile-tmp/imp22g-77.imp"
38004 @ 325006:                  PUSHI  #0x00000049
38005 @ 325011:                  SLABEL 397

  6569    topred %if condop = 0
38006 @ 325014:                  LINE   6569 "regression-compile-tmp/imp22g-77.imp"
38007 @ 325054:                  PUSH   CONDOP
38008 @ 325057:                  PUSHI  #0x00000000
38009 @ 325062:                  JUMPIF # L_0004
38010 @ 325066:                  PUSH   TOPRED
38011 @ 325069:                  CALL  
38012 @ 325070:                  LOCATE L_0004

  6570    item1 = np;  type1 = booltype
38013 @ 325073:                  LINE   6570 "regression-compile-tmp/imp22g-77.imp"
38014 @ 325113:                  PUSH   ITEM1
38015 @ 325116:                  PUSH   NP
38016 @ 325119:                  ASSVAL
38017 @ 325120:                  LINE   6570 "regression-compile-tmp/imp22g-77.imp"
38018 @ 325160:                  PUSH   TYPE1
38019 @ 325163:                  PUSHI  #0x0000003a
38020 @ 325168:                  ASSVAL

  6571    putact(condop!!polarity+(polarity!!1)<<7,item,0)
38021 @ 325169:                  LINE   6571 "regression-compile-tmp/imp22g-77.imp"
38022 @ 325209:                  PUSH   PUTACT
38023 @ 325212:                  PUSH   CONDOP
38024 @ 325215:                  PUSH   POLARITY
38025 @ 325218:                  XOR   
38026 @ 325219:                  PUSH   POLARITY
38027 @ 325222:                  PUSHI  #0x00000001
38028 @ 325227:                  XOR   
38029 @ 325228:                  PUSHI  #0x00000007
38030 @ 325233:                  LSH   
38031 @ 325234:                  ADD   
38032 @ 325235:                  ASSPAR
38033 @ 325236:                  PUSH   ITEM
38034 @ 325239:                  ASSPAR
38035 @ 325240:                  PUSHI  #0x00000000
38036 @ 325245:                  ASSPAR
38037 @ 325246:                  CALL  

  6572    condop = 0
38038 @ 325247:                  LINE   6572 "regression-compile-tmp/imp22g-77.imp"
38039 @ 325287:                  PUSH   CONDOP
38040 @ 325290:                  PUSHI  #0x00000000
38041 @ 325295:                  ASSVAL

  6573    get EXPRESSION(scond,booltype)
38042 @ 325296:                  LINE   6573 "regression-compile-tmp/imp22g-77.imp"
38043 @ 325336:                  PUSH   GETEXPRESSION
38044 @ 325339:                  PUSHI  #0x0000004a
38045 @ 325344:                  ASSPAR
38046 @ 325345:                  PUSHI  #0x0000003a
38047 @ 325350:                  ASSPAR
38048 @ 325351:                  CALL  

  6574    dict(item1)_y = item
38049 @ 325352:                  LINE   6574 "regression-compile-tmp/imp22g-77.imp"
38050 @ 325392:                  PUSH   DICT
38051 @ 325395:                  PUSH   ITEM1
38052 @ 325398:                  ACCESS
38053 @ 325399:                  SELECT 14
38054 @ 325402:                  PUSH   ITEM
38055 @ 325405:                  ASSVAL

  6575    syntax error %if a(keyand)=TRUE
38056 @ 325406:                  LINE   6575 "regression-compile-tmp/imp22g-77.imp"
38057 @ 325446:                  PUSH   A
38058 @ 325449:                  PUSHI  #0x00000048
38059 @ 325454:                  ASSPAR
38060 @ 325455:                  CALL  
38061 @ 325456:                  PUSHI  #0x00000001
38062 @ 325461:                  JUMPIF # L_0004
38063 @ 325465:                  PUSH   SYNTAXERROR
38064 @ 325468:                  CALL  
38065 @ 325469:                  LOCATE L_0004

  6576    %result = nop
38066 @ 325472:                  LINE   6576 "regression-compile-tmp/imp22g-77.imp"
38067 @ 325512:                  PUSHI  #0x00000000
38068 @ 325517:                  RESULT

  6577  %end
  6578  
  6579  !Get leading operand
38069 @ 325518:                  LINE   6577 "regression-compile-tmp/imp22g-77.imp"
38070 @ 325558:               END    _lev0id0_GETEXPRESSION_OPVAL {lev=3 --> 2}

  6580    atom = next atom %if matched # 0
38071 @ 325559:               LINE   6580 "regression-compile-tmp/imp22g-77.imp"
38072 @ 325599:               PUSH   MATCHED
38073 @ 325602:               PUSHI  #0x00000000
38074 @ 325607:               JUMPIF = L_0004
38075 @ 325611:               PUSH   ATOM
38076 @ 325614:               PUSH   NEXTATOM
38077 @ 325617:               CALL  
38078 @ 325618:               ASSVAL
38079 @ 325619:               LOCATE L_0004

  6581    atomp0 = atomp;  jammy = jammy<<1;  !preserve
38080 @ 325622:               LINE   6581 "regression-compile-tmp/imp22g-77.imp"
38081 @ 325662:               PUSH   ATOMP0
38082 @ 325665:               PUSH   ATOMP
38083 @ 325668:               ASSVAL
38084 @ 325669:               LINE   6581 "regression-compile-tmp/imp22g-77.imp"
38085 @ 325709:               PUSH   JAMMY
38086 @ 325712:               PUSH   JAMMY
38087 @ 325715:               PUSHI  #0x00000001
38088 @ 325720:               LSH   
38089 @ 325721:               ASSVAL

  6582    %if atom = ident %start
38090 @ 325722:               LINE   6582 "regression-compile-tmp/imp22g-77.imp"
38091 @ 325762:               PUSH   ATOM
38092 @ 325765:               PUSHI  #0x00000035
38093 @ 325770:               JUMPIF # L_0004

  6583      matched = 1
38094 @ 325774:               LINE   6583 "regression-compile-tmp/imp22g-77.imp"
38095 @ 325814:               PUSH   MATCHED
38096 @ 325817:               PUSHI  #0x00000001
38097 @ 325822:               ASSVAL

  6584      name error %if item <= 0 %or (ditem_mode = labmode %and item < c_localdpos)
38098 @ 325823:               LINE   6584 "regression-compile-tmp/imp22g-77.imp"
38099 @ 325863:               PUSH   ITEM
38100 @ 325866:               PUSHI  #0x00000000
38101 @ 325871:               JUMPIF <= L_0008
38102 @ 325875:               PUSH   DITEM
38103 @ 325878:               SELECT 8
38104 @ 325881:               PUSHI  #0x000000ba
38105 @ 325886:               JUMPIF # L_0007
38106 @ 325890:               PUSH   ITEM
38107 @ 325893:               PUSH   C
38108 @ 325896:               SELECT 8
38109 @ 325899:               JUMPIF >= L_0007
38110 @ 325903:               LOCATE L_0008
38111 @ 325906:               PUSH   NAMEERROR
38112 @ 325909:               CALL  
38113 @ 325910:               LOCATE L_0007

  6585      fault(namerr+point) %if item >= dlim0
38114 @ 325913:               LINE   6585 "regression-compile-tmp/imp22g-77.imp"
38115 @ 325953:               PUSH   ITEM
38116 @ 325956:               PUSH   DLIM0
38117 @ 325959:               JUMPIF < L_0007
38118 @ 325963:               PUSH   FAULT
38119 @ 325966:               PUSHI  #0x00000009
38120 @ 325971:               PUSHI  #0x00000040
38121 @ 325976:               ADD   
38122 @ 325977:               ASSPAR
38123 @ 325978:               CALL  
38124 @ 325979:               LOCATE L_0007

  6586      type = ditem_type
38125 @ 325982:               LINE   6586 "regression-compile-tmp/imp22g-77.imp"
38126 @ 326022:               PUSH   TYPE
38127 @ 326025:               PUSH   DITEM
38128 @ 326028:               SELECT 2
38129 @ 326031:               ASSVAL

  6587      %if ditem_flags&typeid # 0 %start
38130 @ 326032:               LINE   6587 "regression-compile-tmp/imp22g-77.imp"
38131 @ 326072:               PUSH   DITEM
38132 @ 326075:               SELECT 1
38133 @ 326078:               PUSHI  #0x00000200
38134 @ 326083:               AND   
38135 @ 326084:               PUSHI  #0x00000000
38136 @ 326089:               JUMPIF = L_0007

  6588        %if ditem_flags&cat = recy %and item > dnil %start
38137 @ 326093:               LINE   6588 "regression-compile-tmp/imp22g-77.imp"
38138 @ 326133:               PUSH   DITEM
38139 @ 326136:               SELECT 1
38140 @ 326139:               PUSHI  #0x0000000f
38141 @ 326144:               AND   
38142 @ 326145:               PUSHI  #0x0000000c
38143 @ 326150:               JUMPIF # L_000a
38144 @ 326154:               PUSH   ITEM
38145 @ 326157:               PUSHI  #0x00000089
38146 @ 326162:               JUMPIF <= L_000a

  6589          get RECORD
38147 @ 326166:               LINE   6589 "regression-compile-tmp/imp22g-77.imp"
38148 @ 326206:               PUSH   GETRECORD
38149 @ 326209:               CALL  

  6590          %return
38150 @ 326210:               LINE   6590 "regression-compile-tmp/imp22g-77.imp"
38151 @ 326250:               RETURN

  6591        %else
38152 @ 326251:               LINE   6591 "regression-compile-tmp/imp22g-77.imp"
38153 @ 326291:               LOCATE L_000a

  6592          item1 = item;  ditem1 == ditem
38154 @ 326294:               LINE   6592 "regression-compile-tmp/imp22g-77.imp"
38155 @ 326334:               PUSH   ITEM1
38156 @ 326337:               PUSH   ITEM
38157 @ 326340:               ASSVAL
38158 @ 326341:               LINE   6592 "regression-compile-tmp/imp22g-77.imp"
38159 @ 326381:               PUSH   DITEM1
38160 @ 326384:               PUSH   DITEM
38161 @ 326387:               ASSREF

  6593          %if a(less)=TRUE %start;  !type coercion
38162 @ 326388:               LINE   6593 "regression-compile-tmp/imp22g-77.imp"
38163 @ 326428:               PUSH   A
38164 @ 326431:               PUSHI  #0x00000050
38165 @ 326436:               ASSPAR
38166 @ 326437:               CALL  
38167 @ 326438:               PUSHI  #0x00000001
38168 @ 326443:               JUMPIF # L_000d

  6594            get VALUE(0);  get(greater)
38169 @ 326447:               LINE   6594 "regression-compile-tmp/imp22g-77.imp"
38170 @ 326487:               PUSH   GETVALUE
38171 @ 326490:               PUSHI  #0x00000000
38172 @ 326495:               ASSPAR
38173 @ 326496:               CALL  
38174 @ 326497:               LINE   6594 "regression-compile-tmp/imp22g-77.imp"
38175 @ 326537:               PUSH   GET
38176 @ 326540:               PUSHI  #0x00000052
38177 @ 326545:               ASSPAR
38178 @ 326546:               CALL  

  6595            type = item1
38179 @ 326547:               LINE   6595 "regression-compile-tmp/imp22g-77.imp"
38180 @ 326587:               PUSH   TYPE
38181 @ 326590:               PUSH   ITEM1
38182 @ 326593:               ASSVAL

  6596          %else
38183 @ 326594:               LINE   6596 "regression-compile-tmp/imp22g-77.imp"
38184 @ 326634:               GOTO   L_000c
38185 @ 326637:               LOCATE L_000d

  6597            get(left);          !store mapping
38186 @ 326640:               LINE   6597 "regression-compile-tmp/imp22g-77.imp"
38187 @ 326680:               PUSH   GET
38188 @ 326683:               PUSHI  #0x00000037
38189 @ 326688:               ASSPAR
38190 @ 326689:               CALL  

  6598            get VALUE(inttype)
38191 @ 326690:               LINE   6598 "regression-compile-tmp/imp22g-77.imp"
38192 @ 326730:               PUSH   GETVALUE
38193 @ 326733:               PUSHI  #0x0000002b
38194 @ 326738:               ASSPAR
38195 @ 326739:               CALL  

  6599            get(right)
38196 @ 326740:               LINE   6599 "regression-compile-tmp/imp22g-77.imp"
38197 @ 326780:               PUSH   GET
38198 @ 326783:               PUSHI  #0x0000003d
38199 @ 326788:               ASSPAR
38200 @ 326789:               CALL  

  6600            putexp2(storemap,item1,item1)
38201 @ 326790:               LINE   6600 "regression-compile-tmp/imp22g-77.imp"
38202 @ 326830:               PUSH   PUTEXP2
38203 @ 326833:               PUSHI  #0x0000002f
38204 @ 326838:               ASSPAR
38205 @ 326839:               PUSH   ITEM1
38206 @ 326842:               ASSPAR
38207 @ 326843:               PUSH   ITEM1
38208 @ 326846:               ASSPAR
38209 @ 326847:               CALL  

  6601            ditem_flags = writable!readable
38210 @ 326848:               LINE   6601 "regression-compile-tmp/imp22g-77.imp"
38211 @ 326888:               PUSH   DITEM
38212 @ 326891:               SELECT 1
38213 @ 326894:               PUSHI  #0x00000001
38214 @ 326899:               PUSHI  #0x00000002
38215 @ 326904:               OR    
38216 @ 326905:               ASSVAL

  6602            ditem_mode = dispmode
38217 @ 326906:               LINE   6602 "regression-compile-tmp/imp22g-77.imp"
38218 @ 326946:               PUSH   DITEM
38219 @ 326949:               SELECT 8
38220 @ 326952:               PUSHI  #0x00000028
38221 @ 326957:               ASSVAL

  6603          %finish
38222 @ 326958:               LINE   6603 "regression-compile-tmp/imp22g-77.imp"
38223 @ 326998:               LOCATE L_000c

  6604        %finish
38224 @ 327001:               LINE   6604 "regression-compile-tmp/imp22g-77.imp"

  6605      %finish %else %if ditem_mode = litmode %start
38225 @ 327041:               LINE   6605 "regression-compile-tmp/imp22g-77.imp"
38226 @ 327081:               GOTO   L_0006
38227 @ 327084:               LOCATE L_0007
38228 @ 327087:               PUSH   DITEM
38229 @ 327090:               SELECT 8
38230 @ 327093:               PUSHI  #0x0000003c
38231 @ 327098:               JUMPIF # L_0007

  6606        item = 0;  value = ditem_val
38232 @ 327102:               LINE   6606 "regression-compile-tmp/imp22g-77.imp"
38233 @ 327142:               PUSH   ITEM
38234 @ 327145:               PUSHI  #0x00000000
38235 @ 327150:               ASSVAL
38236 @ 327151:               LINE   6606 "regression-compile-tmp/imp22g-77.imp"
38237 @ 327191:               PUSH   VALUE
38238 @ 327194:               PUSH   DITEM
38239 @ 327197:               SELECT 9
38240 @ 327200:               ASSVAL

  6607      %else;                                    !non-literal ident
38241 @ 327201:               LINE   6607 "regression-compile-tmp/imp22g-77.imp"
38242 @ 327241:               GOTO   L_0006
38243 @ 327244:               LOCATE L_0007

  6608        %cycle
38244 @ 327247:               LINE   6608 "regression-compile-tmp/imp22g-77.imp"
38245 @ 327287:               LOCATE L_0009

  6609          %if ditem_flags&proc # 0 %start
38246 @ 327290:               LINE   6609 "regression-compile-tmp/imp22g-77.imp"
38247 @ 327330:               PUSH   DITEM
38248 @ 327333:               SELECT 1
38249 @ 327336:               PUSHI  #0x00003000
38250 @ 327341:               AND   
38251 @ 327342:               PUSHI  #0x00000000
38252 @ 327347:               JUMPIF = L_000d

  6610            %if item = daddr %or item = dsizeof %or item = dnew %start
38253 @ 327351:               LINE   6610 "regression-compile-tmp/imp22g-77.imp"
38254 @ 327391:               PUSH   ITEM
38255 @ 327394:               PUSHI  #0x0000004a
38256 @ 327399:               JUMPIF = L_0011
38257 @ 327403:               PUSH   ITEM
38258 @ 327406:               PUSHI  #0x0000004d
38259 @ 327411:               JUMPIF = L_0011
38260 @ 327415:               PUSH   ITEM
38261 @ 327418:               PUSHI  #0x00000073
38262 @ 327423:               JUMPIF # L_0010
38263 @ 327427:               LOCATE L_0011

  6611              get(left)
38264 @ 327430:               LINE   6611 "regression-compile-tmp/imp22g-77.imp"
38265 @ 327470:               PUSH   GET
38266 @ 327473:               PUSHI  #0x00000037
38267 @ 327478:               ASSPAR
38268 @ 327479:               CALL  

  6612              %if item = daddr %start
38269 @ 327480:               LINE   6612 "regression-compile-tmp/imp22g-77.imp"
38270 @ 327520:               PUSH   ITEM
38271 @ 327523:               PUSHI  #0x0000004a
38272 @ 327528:               JUMPIF # L_0013

  6613                get REFERENCE(0)
38273 @ 327532:               LINE   6613 "regression-compile-tmp/imp22g-77.imp"
38274 @ 327572:               PUSH   GETREFERENCE
38275 @ 327575:               PUSHI  #0x00000000
38276 @ 327580:               ASSPAR
38277 @ 327581:               CALL  

  6614                type = inttype
38278 @ 327582:               LINE   6614 "regression-compile-tmp/imp22g-77.imp"
38279 @ 327622:               PUSH   TYPE
38280 @ 327625:               PUSHI  #0x0000002b
38281 @ 327630:               ASSVAL

  6615              %else
38282 @ 327631:               LINE   6615 "regression-compile-tmp/imp22g-77.imp"
38283 @ 327671:               GOTO   L_0012
38284 @ 327674:               LOCATE L_0013

  6616                item1 = item
38285 @ 327677:               LINE   6616 "regression-compile-tmp/imp22g-77.imp"
38286 @ 327717:               PUSH   ITEM1
38287 @ 327720:               PUSH   ITEM
38288 @ 327723:               ASSVAL

  6617                get REFERENCE(0)
38289 @ 327724:               LINE   6617 "regression-compile-tmp/imp22g-77.imp"
38290 @ 327764:               PUSH   GETREFERENCE
38291 @ 327767:               PUSHI  #0x00000000
38292 @ 327772:               ASSPAR
38293 @ 327773:               CALL  

  6618                value = imod(size(type))
38294 @ 327774:               LINE   6618 "regression-compile-tmp/imp22g-77.imp"
38295 @ 327814:               PUSH   VALUE
38296 @ 327817:               PUSH   IMOD
38297 @ 327820:               PUSH   SIZE
38298 @ 327823:               PUSH   TYPE
38299 @ 327826:               ASSPAR
38300 @ 327827:               CALL  
38301 @ 327828:               ASSPAR
38302 @ 327829:               CALL  
38303 @ 327830:               ASSVAL

  6619                expfault(sizerr) %if value = 0
38304 @ 327831:               LINE   6619 "regression-compile-tmp/imp22g-77.imp"
38305 @ 327871:               PUSH   VALUE
38306 @ 327874:               PUSHI  #0x00000000
38307 @ 327879:               JUMPIF # L_0016
38308 @ 327883:               PUSH   EXPFAULT
38309 @ 327886:               PUSHI  #0x0000000b
38310 @ 327891:               ASSPAR
38311 @ 327892:               CALL  
38312 @ 327893:               LOCATE L_0016

  6620                %if item1 = dsizeof %start
38313 @ 327896:               LINE   6620 "regression-compile-tmp/imp22g-77.imp"
38314 @ 327936:               PUSH   ITEM1
38315 @ 327939:               PUSHI  #0x0000004d
38316 @ 327944:               JUMPIF # L_0016

  6621                  item = 0;  type = inttype
38317 @ 327948:               LINE   6621 "regression-compile-tmp/imp22g-77.imp"
38318 @ 327988:               PUSH   ITEM
38319 @ 327991:               PUSHI  #0x00000000
38320 @ 327996:               ASSVAL
38321 @ 327997:               LINE   6621 "regression-compile-tmp/imp22g-77.imp"
38322 @ 328037:               PUSH   TYPE
38323 @ 328040:               PUSHI  #0x0000002b
38324 @ 328045:               ASSVAL

  6622                %else
38325 @ 328046:               LINE   6622 "regression-compile-tmp/imp22g-77.imp"
38326 @ 328086:               GOTO   L_0015
38327 @ 328089:               LOCATE L_0016

  6623                  putexp(dnew,0,litref(value),0)
38328 @ 328092:               LINE   6623 "regression-compile-tmp/imp22g-77.imp"
38329 @ 328132:               PUSH   PUTEXP
38330 @ 328135:               PUSHI  #0x00000073
38331 @ 328140:               ASSPAR
38332 @ 328141:               PUSHI  #0x00000000
38333 @ 328146:               ASSPAR
38334 @ 328147:               PUSH   LITREF
38335 @ 328150:               PUSH   VALUE
38336 @ 328153:               ASSPAR
38337 @ 328154:               CALL  
38338 @ 328155:               ASSPAR
38339 @ 328156:               PUSHI  #0x00000000
38340 @ 328161:               ASSPAR
38341 @ 328162:               CALL  

  6624                  ditem_mode = dispmode
38342 @ 328163:               LINE   6624 "regression-compile-tmp/imp22g-77.imp"
38343 @ 328203:               PUSH   DITEM
38344 @ 328206:               SELECT 8
38345 @ 328209:               PUSHI  #0x00000028
38346 @ 328214:               ASSVAL

  6625                %finish
38347 @ 328215:               LINE   6625 "regression-compile-tmp/imp22g-77.imp"
38348 @ 328255:               LOCATE L_0015

  6626              %finish
38349 @ 328258:               LINE   6626 "regression-compile-tmp/imp22g-77.imp"
38350 @ 328298:               LOCATE L_0012

  6627              get(right)
  6628  !          %finish %else %if item = dsnl %start
  6629  !            putexp(dtostring,nl,0,string1)
38351 @ 328301:               LINE   6627 "regression-compile-tmp/imp22g-77.imp"
38352 @ 328341:               PUSH   GET
38353 @ 328344:               PUSHI  #0x0000003d
38354 @ 328349:               ASSPAR
38355 @ 328350:               CALL  

  6630            %else
38356 @ 328351:               LINE   6630 "regression-compile-tmp/imp22g-77.imp"
38357 @ 328391:               GOTO   L_000f
38358 @ 328394:               LOCATE L_0010

  6631              get PARLIST(0)
38359 @ 328397:               LINE   6631 "regression-compile-tmp/imp22g-77.imp"
38360 @ 328437:               PUSH   GETPARLIST
38361 @ 328440:               PUSHI  #0x00000000
38362 @ 328445:               ASSPAR
38363 @ 328446:               CALL  

  6632              atomp=atomp0 %and error(classerr+point) %if type = 0;  !routine
38364 @ 328447:               LINE   6632 "regression-compile-tmp/imp22g-77.imp"
38365 @ 328487:               PUSH   TYPE
38366 @ 328490:               PUSHI  #0x00000000
38367 @ 328495:               JUMPIF # L_0013
38368 @ 328499:               PUSH   ATOMP
38369 @ 328502:               PUSH   ATOMP0
38370 @ 328505:               ASSVAL
38371 @ 328506:               PUSH   ERROR
38372 @ 328509:               PUSHI  #0x0000000a
38373 @ 328514:               PUSHI  #0x00000040
38374 @ 328519:               ADD   
38375 @ 328520:               ASSPAR
38376 @ 328521:               CALL  
38377 @ 328522:               LOCATE L_0013

  6633            %finish
38378 @ 328525:               LINE   6633 "regression-compile-tmp/imp22g-77.imp"
38379 @ 328565:               LOCATE L_000f

  6634          %else;                                   !not procedure
38380 @ 328568:               LINE   6634 "regression-compile-tmp/imp22g-77.imp"
38381 @ 328608:               GOTO   L_000c
38382 @ 328611:               LOCATE L_000d

  6635            atom = next atom %if matched # 0
38383 @ 328614:               LINE   6635 "regression-compile-tmp/imp22g-77.imp"
38384 @ 328654:               PUSH   MATCHED
38385 @ 328657:               PUSHI  #0x00000000
38386 @ 328662:               JUMPIF = L_0010
38387 @ 328666:               PUSH   ATOM
38388 @ 328669:               PUSH   NEXTATOM
38389 @ 328672:               CALL  
38390 @ 328673:               ASSVAL
38391 @ 328674:               LOCATE L_0010

  6636            %exit %unless aleft <= atom <= recsub %and rank <= simple
38392 @ 328677:               LINE   6636 "regression-compile-tmp/imp22g-77.imp"
38393 @ 328717:               PUSHI  #0x00000037
38394 @ 328722:               PUSH   ATOM
38395 @ 328725:               JUMPIFD > L_0011
38396 @ 328729:               PUSHI  #0x0000003a
38397 @ 328734:               JUMPIF > L_0011
38398 @ 328738:               PUSH   RANK
38399 @ 328741:               PUSHI  #0x00000064
38400 @ 328746:               JUMPIF <= L_0010
38401 @ 328750:               LOCATE L_0011
38402 @ 328753:               GOTO   L_000a
38403 @ 328756:               LOCATE L_0010

  6637            %if atom = aleft %start;  !array subscript
38404 @ 328759:               LINE   6637 "regression-compile-tmp/imp22g-77.imp"
38405 @ 328799:               PUSH   ATOM
38406 @ 328802:               PUSHI  #0x00000037
38407 @ 328807:               JUMPIF # L_0010

  6638              %cycle
38408 @ 328811:               LINE   6638 "regression-compile-tmp/imp22g-77.imp"
38409 @ 328851:               LOCATE L_0012

  6639                item1 = item;  ditem1 == ditem
38410 @ 328854:               LINE   6639 "regression-compile-tmp/imp22g-77.imp"
38411 @ 328894:               PUSH   ITEM1
38412 @ 328897:               PUSH   ITEM
38413 @ 328900:               ASSVAL
38414 @ 328901:               LINE   6639 "regression-compile-tmp/imp22g-77.imp"
38415 @ 328941:               PUSH   DITEM1
38416 @ 328944:               PUSH   DITEM
38417 @ 328947:               ASSREF

  6640                tp == typecell(type)
38418 @ 328948:               LINE   6640 "regression-compile-tmp/imp22g-77.imp"
38419 @ 328988:               PUSH   TP
38420 @ 328991:               PUSH   TYPECELL
38421 @ 328994:               PUSH   TYPE
38422 @ 328997:               ASSPAR
38423 @ 328998:               CALL  
38424 @ 328999:               ASSREF

  6641                %if tp_flags&cat = stringy %start
38425 @ 329000:               LINE   6641 "regression-compile-tmp/imp22g-77.imp"
38426 @ 329040:               PUSH   TP
38427 @ 329043:               SELECT 1
38428 @ 329046:               PUSHI  #0x0000000f
38429 @ 329051:               AND   
38430 @ 329052:               PUSHI  #0x00000008
38431 @ 329057:               JUMPIF # L_0016

  6642                  matched = 1
38432 @ 329061:               LINE   6642 "regression-compile-tmp/imp22g-77.imp"
38433 @ 329101:               PUSH   MATCHED
38434 @ 329104:               PUSHI  #0x00000001
38435 @ 329109:               ASSVAL

  6643                  nonstandard(2)
38436 @ 329110:               LINE   6643 "regression-compile-tmp/imp22g-77.imp"
38437 @ 329150:               PUSH   NONSTANDARD
38438 @ 329153:               PUSHI  #0x00000002
38439 @ 329158:               ASSPAR
38440 @ 329159:               CALL  

  6644                  get VALUE(bytetype)
38441 @ 329160:               LINE   6644 "regression-compile-tmp/imp22g-77.imp"
38442 @ 329200:               PUSH   GETVALUE
38443 @ 329203:               PUSHI  #0x00000034
38444 @ 329208:               ASSPAR
38445 @ 329209:               CALL  

  6645                  putexp2(sindex,item1,chartype)
38446 @ 329210:               LINE   6645 "regression-compile-tmp/imp22g-77.imp"
38447 @ 329250:               PUSH   PUTEXP2
38448 @ 329253:               PUSHI  #0x00000052
38449 @ 329258:               ASSPAR
38450 @ 329259:               PUSH   ITEM1
38451 @ 329262:               ASSPAR
38452 @ 329263:               PUSHI  #0x0000003d
38453 @ 329268:               ASSPAR
38454 @ 329269:               CALL  

  6646                %else
38455 @ 329270:               LINE   6646 "regression-compile-tmp/imp22g-77.imp"
38456 @ 329310:               GOTO   L_0015
38457 @ 329313:               LOCATE L_0016

  6647                  -> out %unless tp_flags&cat = arry
38458 @ 329316:               LINE   6647 "regression-compile-tmp/imp22g-77.imp"
38459 @ 329356:               PUSH   TP
38460 @ 329359:               SELECT 1
38461 @ 329362:               PUSHI  #0x0000000f
38462 @ 329367:               AND   
38463 @ 329368:               PUSHI  #0x00000009
38464 @ 329373:               JUMPIF = L_0019
38465 @ 329377:               JUMP   L_018d
38466 @ 329380:               LOCATE L_0019

  6648                  matched = 1
38467 @ 329383:               LINE   6648 "regression-compile-tmp/imp22g-77.imp"
38468 @ 329423:               PUSH   MATCHED
38469 @ 329426:               PUSHI  #0x00000001
38470 @ 329431:               ASSVAL

  6649                  get VALUE(tp_xtype);  !get index
38471 @ 329432:               LINE   6649 "regression-compile-tmp/imp22g-77.imp"
38472 @ 329472:               PUSH   GETVALUE
38473 @ 329475:               PUSH   TP
38474 @ 329478:               SELECT 4
38475 @ 329481:               ASSPAR
38476 @ 329482:               CALL  

  6650                  putexp2(index,item1,tp_type)
38477 @ 329483:               LINE   6650 "regression-compile-tmp/imp22g-77.imp"
38478 @ 329523:               PUSH   PUTEXP2
38479 @ 329526:               PUSHI  #0x0000004e
38480 @ 329531:               ASSPAR
38481 @ 329532:               PUSH   ITEM1
38482 @ 329535:               ASSPAR
38483 @ 329536:               PUSH   TP
38484 @ 329539:               SELECT 2
38485 @ 329542:               ASSPAR
38486 @ 329543:               CALL  

  6651                %finish
38487 @ 329544:               LINE   6651 "regression-compile-tmp/imp22g-77.imp"
38488 @ 329584:               LOCATE L_0015

  6652                ditem_flags = ditem1_flags&heritable
38489 @ 329587:               LINE   6652 "regression-compile-tmp/imp22g-77.imp"
38490 @ 329627:               PUSH   DITEM
38491 @ 329630:               SELECT 1
38492 @ 329633:               PUSH   DITEM1
38493 @ 329636:               SELECT 1
38494 @ 329639:               PUSHI  #0x0000007f
38495 @ 329644:               AND   
38496 @ 329645:               ASSVAL

  6653                ditem_mode = ditem1_mode
38497 @ 329646:               LINE   6653 "regression-compile-tmp/imp22g-77.imp"
38498 @ 329686:               PUSH   DITEM
38499 @ 329689:               SELECT 8
38500 @ 329692:               PUSH   DITEM1
38501 @ 329695:               SELECT 8
38502 @ 329698:               ASSVAL

  6654              %repeat %until %not a(comma)=TRUE
38503 @ 329699:               LINE   6654 "regression-compile-tmp/imp22g-77.imp"
38504 @ 329739:               PUSH   A
38505 @ 329742:               PUSHI  #0x0000003c
38506 @ 329747:               ASSPAR
38507 @ 329748:               CALL  
38508 @ 329749:               PUSHI  #0x00000001
38509 @ 329754:               JUMPIF # L_0013
38510 @ 329758:               REPEAT L_0012
38511 @ 329761:               LOCATE L_0013

  6655              ditem_flags = ditem_flags+(tp_flags&name)
38512 @ 329764:               LINE   6655 "regression-compile-tmp/imp22g-77.imp"
38513 @ 329804:               PUSH   DITEM
38514 @ 329807:               SELECT 1
38515 @ 329810:               PUSH   DITEM
38516 @ 329813:               SELECT 1
38517 @ 329816:               PUSH   TP
38518 @ 329819:               SELECT 1
38519 @ 329822:               PUSHI  #0xffff8000
38520 @ 329827:               AND   
38521 @ 329828:               ADD   
38522 @ 329829:               ASSVAL

  6656              get(right)
38523 @ 329830:               LINE   6656 "regression-compile-tmp/imp22g-77.imp"
38524 @ 329870:               PUSH   GET
38525 @ 329873:               PUSHI  #0x0000003d
38526 @ 329878:               ASSPAR
38527 @ 329879:               CALL  

  6657            %finish %else %if atom = recsub %start;  !record subfield
38528 @ 329880:               LINE   6657 "regression-compile-tmp/imp22g-77.imp"
38529 @ 329920:               GOTO   L_000f
38530 @ 329923:               LOCATE L_0010
38531 @ 329926:               PUSH   ATOM
38532 @ 329929:               PUSHI  #0x0000003a
38533 @ 329934:               JUMPIF # L_0010

  6658              item1 = item;  ditem1 == ditem
38534 @ 329938:               LINE   6658 "regression-compile-tmp/imp22g-77.imp"
38535 @ 329978:               PUSH   ITEM1
38536 @ 329981:               PUSH   ITEM
38537 @ 329984:               ASSVAL
38538 @ 329985:               LINE   6658 "regression-compile-tmp/imp22g-77.imp"
38539 @ 330025:               PUSH   DITEM1
38540 @ 330028:               PUSH   DITEM
38541 @ 330031:               ASSREF

  6659              dformat == typecell(ditem_type)
38542 @ 330032:               LINE   6659 "regression-compile-tmp/imp22g-77.imp"
38543 @ 330072:               PUSH   DFORMAT
38544 @ 330075:               PUSH   TYPECELL
38545 @ 330078:               PUSH   DITEM
38546 @ 330081:               SELECT 2
38547 @ 330084:               ASSPAR
38548 @ 330085:               CALL  
38549 @ 330086:               ASSREF

  6660              syntax error %unless dformat_flags&cat = recy
38550 @ 330087:               LINE   6660 "regression-compile-tmp/imp22g-77.imp"
38551 @ 330127:               PUSH   DFORMAT
38552 @ 330130:               SELECT 1
38553 @ 330133:               PUSHI  #0x0000000f
38554 @ 330138:               AND   
38555 @ 330139:               PUSHI  #0x0000000c
38556 @ 330144:               JUMPIF = L_0013
38557 @ 330148:               PUSH   SYNTAXERROR
38558 @ 330151:               CALL  
38559 @ 330152:               LOCATE L_0013

  6661              matched = 1
38560 @ 330155:               LINE   6661 "regression-compile-tmp/imp22g-77.imp"
38561 @ 330195:               PUSH   MATCHED
38562 @ 330198:               PUSHI  #0x00000001
38563 @ 330203:               ASSVAL

  6662              subbed = 1;  get(ident);  subbed = 0
38564 @ 330204:               LINE   6662 "regression-compile-tmp/imp22g-77.imp"
38565 @ 330244:               PUSH   SUBBED
38566 @ 330247:               PUSHI  #0x00000001
38567 @ 330252:               ASSVAL
38568 @ 330253:               LINE   6662 "regression-compile-tmp/imp22g-77.imp"
38569 @ 330293:               PUSH   GET
38570 @ 330296:               PUSHI  #0x00000035
38571 @ 330301:               ASSPAR
38572 @ 330302:               CALL  
38573 @ 330303:               LINE   6662 "regression-compile-tmp/imp22g-77.imp"
38574 @ 330343:               PUSH   SUBBED
38575 @ 330346:               PUSHI  #0x00000000
38576 @ 330351:               ASSVAL

  6663              error(namerr+point) %if item <= 0
38577 @ 330352:               LINE   6663 "regression-compile-tmp/imp22g-77.imp"
38578 @ 330392:               PUSH   ITEM
38579 @ 330395:               PUSHI  #0x00000000
38580 @ 330400:               JUMPIF > L_0013
38581 @ 330404:               PUSH   ERROR
38582 @ 330407:               PUSHI  #0x00000009
38583 @ 330412:               PUSHI  #0x00000040
38584 @ 330417:               ADD   
38585 @ 330418:               ASSPAR
38586 @ 330419:               CALL  
38587 @ 330420:               LOCATE L_0013

  6664              val1 = ditem1_flags&heritable!ditem_flags
38588 @ 330423:               LINE   6664 "regression-compile-tmp/imp22g-77.imp"
38589 @ 330463:               PUSH   VAL1
38590 @ 330466:               PUSH   DITEM1
38591 @ 330469:               SELECT 1
38592 @ 330472:               PUSHI  #0x0000007f
38593 @ 330477:               AND   
38594 @ 330478:               PUSH   DITEM
38595 @ 330481:               SELECT 1
38596 @ 330484:               OR    
38597 @ 330485:               ASSVAL

  6665              putexp2(recref,item1,ditem_type)
38598 @ 330486:               LINE   6665 "regression-compile-tmp/imp22g-77.imp"
38599 @ 330526:               PUSH   PUTEXP2
38600 @ 330529:               PUSHI  #0x0000002d
38601 @ 330534:               ASSPAR
38602 @ 330535:               PUSH   ITEM1
38603 @ 330538:               ASSPAR
38604 @ 330539:               PUSH   DITEM
38605 @ 330542:               SELECT 2
38606 @ 330545:               ASSPAR
38607 @ 330546:               CALL  

  6666              ditem_flags = val1
38608 @ 330547:               LINE   6666 "regression-compile-tmp/imp22g-77.imp"
38609 @ 330587:               PUSH   DITEM
38610 @ 330590:               SELECT 1
38611 @ 330593:               PUSH   VAL1
38612 @ 330596:               ASSVAL

  6667              ditem_mode = ditem1_mode
38613 @ 330597:               LINE   6667 "regression-compile-tmp/imp22g-77.imp"
38614 @ 330637:               PUSH   DITEM
38615 @ 330640:               SELECT 8
38616 @ 330643:               PUSH   DITEM1
38617 @ 330646:               SELECT 8
38618 @ 330649:               ASSVAL

  6668            %finish %else %if atom = atsign %start
38619 @ 330650:               LINE   6668 "regression-compile-tmp/imp22g-77.imp"
38620 @ 330690:               GOTO   L_000f
38621 @ 330693:               LOCATE L_0010
38622 @ 330696:               PUSH   ATOM
38623 @ 330699:               PUSHI  #0x00000039
38624 @ 330704:               JUMPIF # L_0010

  6669              nonstandard(4)
38625 @ 330708:               LINE   6669 "regression-compile-tmp/imp22g-77.imp"
38626 @ 330748:               PUSH   NONSTANDARD
38627 @ 330751:               PUSHI  #0x00000004
38628 @ 330756:               ASSPAR
38629 @ 330757:               CALL  

  6670              syntax error %if ditem_flags&typeid = 0
38630 @ 330758:               LINE   6670 "regression-compile-tmp/imp22g-77.imp"
38631 @ 330798:               PUSH   DITEM
38632 @ 330801:               SELECT 1
38633 @ 330804:               PUSHI  #0x00000200
38634 @ 330809:               AND   
38635 @ 330810:               PUSHI  #0x00000000
38636 @ 330815:               JUMPIF # L_0013
38637 @ 330819:               PUSH   SYNTAXERROR
38638 @ 330822:               CALL  
38639 @ 330823:               LOCATE L_0013

  6671              matched = 1
38640 @ 330826:               LINE   6671 "regression-compile-tmp/imp22g-77.imp"
38641 @ 330866:               PUSH   MATCHED
38642 @ 330869:               PUSHI  #0x00000001
38643 @ 330874:               ASSVAL

  6672              ditem1 == ditem;  item1 = item
38644 @ 330875:               LINE   6672 "regression-compile-tmp/imp22g-77.imp"
38645 @ 330915:               PUSH   DITEM1
38646 @ 330918:               PUSH   DITEM
38647 @ 330921:               ASSREF
38648 @ 330922:               LINE   6672 "regression-compile-tmp/imp22g-77.imp"
38649 @ 330962:               PUSH   ITEM1
38650 @ 330965:               PUSH   ITEM
38651 @ 330968:               ASSVAL

  6673              get EXPRESSION(vsimple,inttype)
38652 @ 330969:               LINE   6673 "regression-compile-tmp/imp22g-77.imp"
38653 @ 331009:               PUSH   GETEXPRESSION
38654 @ 331012:               PUSHI  #0x00000065
38655 @ 331017:               ASSPAR
38656 @ 331018:               PUSHI  #0x0000002b
38657 @ 331023:               ASSPAR
38658 @ 331024:               CALL  

  6674              putexp2(storemap,item1,item1)
38659 @ 331025:               LINE   6674 "regression-compile-tmp/imp22g-77.imp"
38660 @ 331065:               PUSH   PUTEXP2
38661 @ 331068:               PUSHI  #0x0000002f
38662 @ 331073:               ASSPAR
38663 @ 331074:               PUSH   ITEM1
38664 @ 331077:               ASSPAR
38665 @ 331078:               PUSH   ITEM1
38666 @ 331081:               ASSPAR
38667 @ 331082:               CALL  

  6675              ditem_flags = writable!readable
38668 @ 331083:               LINE   6675 "regression-compile-tmp/imp22g-77.imp"
38669 @ 331123:               PUSH   DITEM
38670 @ 331126:               SELECT 1
38671 @ 331129:               PUSHI  #0x00000001
38672 @ 331134:               PUSHI  #0x00000002
38673 @ 331139:               OR    
38674 @ 331140:               ASSVAL

  6676              ditem_mode = dispmode
38675 @ 331141:               LINE   6676 "regression-compile-tmp/imp22g-77.imp"
38676 @ 331181:               PUSH   DITEM
38677 @ 331184:               SELECT 8
38678 @ 331187:               PUSHI  #0x00000028
38679 @ 331192:               ASSVAL

  6677            %else;  !pointer relative
38680 @ 331193:               LINE   6677 "regression-compile-tmp/imp22g-77.imp"
38681 @ 331233:               GOTO   L_000f
38682 @ 331236:               LOCATE L_0010

  6678              error(nonref+point) %if ditem_mode < dispmode
38683 @ 331239:               LINE   6678 "regression-compile-tmp/imp22g-77.imp"
38684 @ 331279:               PUSH   DITEM
38685 @ 331282:               SELECT 8
38686 @ 331285:               PUSHI  #0x00000028
38687 @ 331290:               JUMPIF >= L_0013
38688 @ 331294:               PUSH   ERROR
38689 @ 331297:               PUSHI  #0x00000021
38690 @ 331302:               PUSHI  #0x00000040
38691 @ 331307:               ADD   
38692 @ 331308:               ASSPAR
38693 @ 331309:               CALL  
38694 @ 331310:               LOCATE L_0013

  6679              fault(sizerr) %if size(ditem_type) = 0
38695 @ 331313:               LINE   6679 "regression-compile-tmp/imp22g-77.imp"
38696 @ 331353:               PUSH   SIZE
38697 @ 331356:               PUSH   DITEM
38698 @ 331359:               SELECT 2
38699 @ 331362:               ASSPAR
38700 @ 331363:               CALL  
38701 @ 331364:               PUSHI  #0x00000000
38702 @ 331369:               JUMPIF # L_0013
38703 @ 331373:               PUSH   FAULT
38704 @ 331376:               PUSHI  #0x0000000b
38705 @ 331381:               ASSPAR
38706 @ 331382:               CALL  
38707 @ 331383:               LOCATE L_0013

  6680              matched = 1
38708 @ 331386:               LINE   6680 "regression-compile-tmp/imp22g-77.imp"
38709 @ 331426:               PUSH   MATCHED
38710 @ 331429:               PUSHI  #0x00000001
38711 @ 331434:               ASSVAL

  6681              ditem1 == ditem;  item1 = item
38712 @ 331435:               LINE   6681 "regression-compile-tmp/imp22g-77.imp"
38713 @ 331475:               PUSH   DITEM1
38714 @ 331478:               PUSH   DITEM
38715 @ 331481:               ASSREF
38716 @ 331482:               LINE   6681 "regression-compile-tmp/imp22g-77.imp"
38717 @ 331522:               PUSH   ITEM1
38718 @ 331525:               PUSH   ITEM
38719 @ 331528:               ASSVAL

  6682              get VALUE(inttype);  get(rightb)
38720 @ 331529:               LINE   6682 "regression-compile-tmp/imp22g-77.imp"
38721 @ 331569:               PUSH   GETVALUE
38722 @ 331572:               PUSHI  #0x0000002b
38723 @ 331577:               ASSPAR
38724 @ 331578:               CALL  
38725 @ 331579:               LINE   6682 "regression-compile-tmp/imp22g-77.imp"
38726 @ 331619:               PUSH   GET
38727 @ 331622:               PUSHI  #0x0000003e
38728 @ 331627:               ASSPAR
38729 @ 331628:               CALL  

  6683              putexp2(prel,item1,ditem1_type)
38730 @ 331629:               LINE   6683 "regression-compile-tmp/imp22g-77.imp"
38731 @ 331669:               PUSH   PUTEXP2
38732 @ 331672:               PUSHI  #0x0000002e
38733 @ 331677:               ASSPAR
38734 @ 331678:               PUSH   ITEM1
38735 @ 331681:               ASSPAR
38736 @ 331682:               PUSH   DITEM1
38737 @ 331685:               SELECT 2
38738 @ 331688:               ASSPAR
38739 @ 331689:               CALL  

  6684              ditem_flags = writable!readable
38740 @ 331690:               LINE   6684 "regression-compile-tmp/imp22g-77.imp"
38741 @ 331730:               PUSH   DITEM
38742 @ 331733:               SELECT 1
38743 @ 331736:               PUSHI  #0x00000001
38744 @ 331741:               PUSHI  #0x00000002
38745 @ 331746:               OR    
38746 @ 331747:               ASSVAL

  6685              ditem_mode = ditem1_mode
38747 @ 331748:               LINE   6685 "regression-compile-tmp/imp22g-77.imp"
38748 @ 331788:               PUSH   DITEM
38749 @ 331791:               SELECT 8
38750 @ 331794:               PUSH   DITEM1
38751 @ 331797:               SELECT 8
38752 @ 331800:               ASSVAL

  6686            %finish
38753 @ 331801:               LINE   6686 "regression-compile-tmp/imp22g-77.imp"
38754 @ 331841:               LOCATE L_000f

  6687          %finish
38755 @ 331844:               LINE   6687 "regression-compile-tmp/imp22g-77.imp"
38756 @ 331884:               LOCATE L_000c

  6688        %repeat
38757 @ 331887:               LINE   6688 "regression-compile-tmp/imp22g-77.imp"
38758 @ 331927:               REPEAT L_0009
38759 @ 331930:               LOCATE L_000a

  6689      %finish
38760 @ 331933:               LINE   6689 "regression-compile-tmp/imp22g-77.imp"
38761 @ 331973:               LOCATE L_0006

  6690    %else
38762 @ 331976:               LINE   6690 "regression-compile-tmp/imp22g-77.imp"
38763 @ 332016:               GOTO   L_0003
38764 @ 332019:               LOCATE L_0004

  6691      %if atom = const %start
38765 @ 332022:               LINE   6691 "regression-compile-tmp/imp22g-77.imp"
38766 @ 332062:               PUSH   ATOM
38767 @ 332065:               PUSHI  #0x00000034
38768 @ 332070:               JUMPIF # L_0007

  6692        matched = 1
38769 @ 332074:               LINE   6692 "regression-compile-tmp/imp22g-77.imp"
38770 @ 332114:               PUSH   MATCHED
38771 @ 332117:               PUSHI  #0x00000001
38772 @ 332122:               ASSVAL

  6693      %finish %else %if atom = minus %start;  !leave unmatched
38773 @ 332123:               LINE   6693 "regression-compile-tmp/imp22g-77.imp"
38774 @ 332163:               GOTO   L_0006
38775 @ 332166:               LOCATE L_0007
38776 @ 332169:               PUSH   ATOM
38777 @ 332172:               PUSHI  #0x00000054
38778 @ 332177:               JUMPIF # L_0007

  6694        item = 0;  value = 0;  type = inttype
38779 @ 332181:               LINE   6694 "regression-compile-tmp/imp22g-77.imp"
38780 @ 332221:               PUSH   ITEM
38781 @ 332224:               PUSHI  #0x00000000
38782 @ 332229:               ASSVAL
38783 @ 332230:               LINE   6694 "regression-compile-tmp/imp22g-77.imp"
38784 @ 332270:               PUSH   VALUE
38785 @ 332273:               PUSHI  #0x00000000
38786 @ 332278:               ASSVAL
38787 @ 332279:               LINE   6694 "regression-compile-tmp/imp22g-77.imp"
38788 @ 332319:               PUSH   TYPE
38789 @ 332322:               PUSHI  #0x0000002b
38790 @ 332327:               ASSVAL

  6695      %finish %else %if atom = left %start
38791 @ 332328:               LINE   6695 "regression-compile-tmp/imp22g-77.imp"
38792 @ 332368:               GOTO   L_0006
38793 @ 332371:               LOCATE L_0007
38794 @ 332374:               PUSH   ATOM
38795 @ 332377:               PUSHI  #0x00000037
38796 @ 332382:               JUMPIF # L_0007

  6696        matched = 1
38797 @ 332386:               LINE   6696 "regression-compile-tmp/imp22g-77.imp"
38798 @ 332426:               PUSH   MATCHED
38799 @ 332429:               PUSHI  #0x00000001
38800 @ 332434:               ASSVAL

  6697        %if rank < major %start;  !condition
38801 @ 332435:               LINE   6697 "regression-compile-tmp/imp22g-77.imp"
38802 @ 332475:               PUSH   RANK
38803 @ 332478:               PUSHI  #0x00000053
38804 @ 332483:               JUMPIF >= L_000a

  6698          get EXPRESSION(condq,0)
38805 @ 332487:               LINE   6698 "regression-compile-tmp/imp22g-77.imp"
38806 @ 332527:               PUSH   GETEXPRESSION
38807 @ 332530:               PUSHI  #0x00000047
38808 @ 332535:               ASSPAR
38809 @ 332536:               PUSHI  #0x00000000
38810 @ 332541:               ASSPAR
38811 @ 332542:               CALL  

  6699        %else
38812 @ 332543:               LINE   6699 "regression-compile-tmp/imp22g-77.imp"
38813 @ 332583:               GOTO   L_0009
38814 @ 332586:               LOCATE L_000a

  6700          get EXPRESSION(major,0)
38815 @ 332589:               LINE   6700 "regression-compile-tmp/imp22g-77.imp"
38816 @ 332629:               PUSH   GETEXPRESSION
38817 @ 332632:               PUSHI  #0x00000053
38818 @ 332637:               ASSPAR
38819 @ 332638:               PUSHI  #0x00000000
38820 @ 332643:               ASSPAR
38821 @ 332644:               CALL  

  6701        %finish
38822 @ 332645:               LINE   6701 "regression-compile-tmp/imp22g-77.imp"
38823 @ 332685:               LOCATE L_0009

  6702        get(right)
38824 @ 332688:               LINE   6702 "regression-compile-tmp/imp22g-77.imp"
38825 @ 332728:               PUSH   GET
38826 @ 332731:               PUSHI  #0x0000003d
38827 @ 332736:               ASSPAR
38828 @ 332737:               CALL  

  6703      %finish %else %if a(keynot)=TRUE %start
38829 @ 332738:               LINE   6703 "regression-compile-tmp/imp22g-77.imp"
38830 @ 332778:               GOTO   L_0006
38831 @ 332781:               LOCATE L_0007
38832 @ 332784:               PUSH   A
38833 @ 332787:               PUSHI  #0x00000032
38834 @ 332792:               ASSPAR
38835 @ 332793:               CALL  
38836 @ 332794:               PUSHI  #0x00000001
38837 @ 332799:               JUMPIF # L_0007

  6704        syntax error %if rank >= major
38838 @ 332803:               LINE   6704 "regression-compile-tmp/imp22g-77.imp"
38839 @ 332843:               PUSH   RANK
38840 @ 332846:               PUSHI  #0x00000053
38841 @ 332851:               JUMPIF < L_000a
38842 @ 332855:               PUSH   SYNTAXERROR
38843 @ 332858:               CALL  
38844 @ 332859:               LOCATE L_000a

  6705        polarity = polarity!!1
38845 @ 332862:               LINE   6705 "regression-compile-tmp/imp22g-77.imp"
38846 @ 332902:               PUSH   POLARITY
38847 @ 332905:               PUSH   POLARITY
38848 @ 332908:               PUSHI  #0x00000001
38849 @ 332913:               XOR   
38850 @ 332914:               ASSVAL

  6706        get EXPRESSION(scond,booltype)
38851 @ 332915:               LINE   6706 "regression-compile-tmp/imp22g-77.imp"
38852 @ 332955:               PUSH   GETEXPRESSION
38853 @ 332958:               PUSHI  #0x0000004a
38854 @ 332963:               ASSPAR
38855 @ 332964:               PUSHI  #0x0000003a
38856 @ 332969:               ASSPAR
38857 @ 332970:               CALL  

  6707        %if item = 0 %then value = value!!1
38858 @ 332971:               LINE   6707 "regression-compile-tmp/imp22g-77.imp"
38859 @ 333011:               PUSH   ITEM
38860 @ 333014:               PUSHI  #0x00000000
38861 @ 333019:               JUMPIF # L_000a
38862 @ 333023:               PUSH   VALUE
38863 @ 333026:               PUSH   VALUE
38864 @ 333029:               PUSHI  #0x00000001
38865 @ 333034:               XOR   
38866 @ 333035:               ASSVAL
38867 @ 333036:               LOCATE L_000a

  6708        polarity = polarity!!1
38868 @ 333039:               LINE   6708 "regression-compile-tmp/imp22g-77.imp"
38869 @ 333079:               PUSH   POLARITY
38870 @ 333082:               PUSH   POLARITY
38871 @ 333085:               PUSHI  #0x00000001
38872 @ 333090:               XOR   
38873 @ 333091:               ASSVAL

  6709      %finish %else %if atom = backslash %start
38874 @ 333092:               LINE   6709 "regression-compile-tmp/imp22g-77.imp"
38875 @ 333132:               GOTO   L_0006
38876 @ 333135:               LOCATE L_0007
38877 @ 333138:               PUSH   ATOM
38878 @ 333141:               PUSHI  #0x0000005d
38879 @ 333146:               JUMPIF # L_0007

  6710        item = 0;  value = 0;  type = inttype
38880 @ 333150:               LINE   6710 "regression-compile-tmp/imp22g-77.imp"
38881 @ 333190:               PUSH   ITEM
38882 @ 333193:               PUSHI  #0x00000000
38883 @ 333198:               ASSVAL
38884 @ 333199:               LINE   6710 "regression-compile-tmp/imp22g-77.imp"
38885 @ 333239:               PUSH   VALUE
38886 @ 333242:               PUSHI  #0x00000000
38887 @ 333247:               ASSVAL
38888 @ 333248:               LINE   6710 "regression-compile-tmp/imp22g-77.imp"
38889 @ 333288:               PUSH   TYPE
38890 @ 333291:               PUSHI  #0x0000002b
38891 @ 333296:               ASSVAL

  6711        atom = tilde
38892 @ 333297:               LINE   6711 "regression-compile-tmp/imp22g-77.imp"
38893 @ 333337:               PUSH   ATOM
38894 @ 333340:               PUSHI  #0x00000061
38895 @ 333345:               ASSVAL

  6712      %finish %else %if a(modsign)=TRUE %start
38896 @ 333346:               LINE   6712 "regression-compile-tmp/imp22g-77.imp"
38897 @ 333386:               GOTO   L_0006
38898 @ 333389:               LOCATE L_0007
38899 @ 333392:               PUSH   A
38900 @ 333395:               PUSHI  #0x00000036
38901 @ 333400:               ASSPAR
38902 @ 333401:               CALL  
38903 @ 333402:               PUSHI  #0x00000001
38904 @ 333407:               JUMPIF # L_0007

  6713        get EXPRESSION(major,0)
38905 @ 333411:               LINE   6713 "regression-compile-tmp/imp22g-77.imp"
38906 @ 333451:               PUSH   GETEXPRESSION
38907 @ 333454:               PUSHI  #0x00000053
38908 @ 333459:               ASSPAR
38909 @ 333460:               PUSHI  #0x00000000
38910 @ 333465:               ASSPAR
38911 @ 333466:               CALL  

  6714        %if valok(inttype,type)=TRUE %start
38912 @ 333467:               LINE   6714 "regression-compile-tmp/imp22g-77.imp"
38913 @ 333507:               PUSH   VALOK
38914 @ 333510:               PUSHI  #0x0000002b
38915 @ 333515:               ASSPAR
38916 @ 333516:               PUSH   TYPE
38917 @ 333519:               ASSPAR
38918 @ 333520:               CALL  
38919 @ 333521:               PUSHI  #0x00000001
38920 @ 333526:               JUMPIF # L_000a

  6715          %if item = 0 %start
38921 @ 333530:               LINE   6715 "regression-compile-tmp/imp22g-77.imp"
38922 @ 333570:               PUSH   ITEM
38923 @ 333573:               PUSHI  #0x00000000
38924 @ 333578:               JUMPIF # L_000d

  6716            %if value < 0 %start
38925 @ 333582:               LINE   6716 "regression-compile-tmp/imp22g-77.imp"
38926 @ 333622:               PUSH   VALUE
38927 @ 333625:               PUSHI  #0x00000000
38928 @ 333630:               JUMPIF >= L_0010

  6717              %if value # minint %then value = -value %else expfault(rangerr)
38929 @ 333634:               LINE   6717 "regression-compile-tmp/imp22g-77.imp"
38930 @ 333674:               PUSH   VALUE
38931 @ 333677:               PUSHI  #0x80000000
38932 @ 333682:               JUMPIF = L_0013
38933 @ 333686:               PUSH   VALUE
38934 @ 333689:               PUSH   VALUE
38935 @ 333692:               NEGATE
38936 @ 333693:               ASSVAL
38937 @ 333694:               GOTO   L_0012
38938 @ 333697:               LOCATE L_0013
38939 @ 333700:               PUSH   EXPFAULT
38940 @ 333703:               PUSHI  #0x00000018
38941 @ 333708:               ASSPAR
38942 @ 333709:               CALL  
38943 @ 333710:               LOCATE L_0012

  6718            %finish
38944 @ 333713:               LINE   6718 "regression-compile-tmp/imp22g-77.imp"
38945 @ 333753:               LOCATE L_0010

  6719          %else
38946 @ 333756:               LINE   6719 "regression-compile-tmp/imp22g-77.imp"
38947 @ 333796:               GOTO   L_000c
38948 @ 333799:               LOCATE L_000d

  6720            putexp2(iabs,0,inttype)
38949 @ 333802:               LINE   6720 "regression-compile-tmp/imp22g-77.imp"
38950 @ 333842:               PUSH   PUTEXP2
38951 @ 333845:               PUSHI  #0x00000030
38952 @ 333850:               ASSPAR
38953 @ 333851:               PUSHI  #0x00000000
38954 @ 333856:               ASSPAR
38955 @ 333857:               PUSHI  #0x0000002b
38956 @ 333862:               ASSPAR
38957 @ 333863:               CALL  

  6721          %finish
38958 @ 333864:               LINE   6721 "regression-compile-tmp/imp22g-77.imp"
38959 @ 333904:               LOCATE L_000c

  6722        %finish %else %if valok(realtype,type)=TRUE %start
38960 @ 333907:               LINE   6722 "regression-compile-tmp/imp22g-77.imp"
38961 @ 333947:               GOTO   L_0009
38962 @ 333950:               LOCATE L_000a
38963 @ 333953:               PUSH   VALOK
38964 @ 333956:               PUSHI  #0x00000045
38965 @ 333961:               ASSPAR
38966 @ 333962:               PUSH   TYPE
38967 @ 333965:               ASSPAR
38968 @ 333966:               CALL  
38969 @ 333967:               PUSHI  #0x00000001
38970 @ 333972:               JUMPIF # L_000a

  6723          putexp2(fabs,0,realtype)
38971 @ 333976:               LINE   6723 "regression-compile-tmp/imp22g-77.imp"
38972 @ 334016:               PUSH   PUTEXP2
38973 @ 334019:               PUSHI  #0x00000031
38974 @ 334024:               ASSPAR
38975 @ 334025:               PUSHI  #0x00000000
38976 @ 334030:               ASSPAR
38977 @ 334031:               PUSHI  #0x00000045
38978 @ 334036:               ASSPAR
38979 @ 334037:               CALL  

  6724        %else
38980 @ 334038:               LINE   6724 "regression-compile-tmp/imp22g-77.imp"
38981 @ 334078:               GOTO   L_0009
38982 @ 334081:               LOCATE L_000a

  6725          error(typerr+point)
38983 @ 334084:               LINE   6725 "regression-compile-tmp/imp22g-77.imp"
38984 @ 334124:               PUSH   ERROR
38985 @ 334127:               PUSHI  #0x0000000c
38986 @ 334132:               PUSHI  #0x00000040
38987 @ 334137:               ADD   
38988 @ 334138:               ASSPAR
38989 @ 334139:               CALL  

  6726        %finish
38990 @ 334140:               LINE   6726 "regression-compile-tmp/imp22g-77.imp"
38991 @ 334180:               LOCATE L_0009

  6727        get(modsign)
38992 @ 334183:               LINE   6727 "regression-compile-tmp/imp22g-77.imp"
38993 @ 334223:               PUSH   GET
38994 @ 334226:               PUSHI  #0x00000036
38995 @ 334231:               ASSPAR
38996 @ 334232:               CALL  

  6728      %else
38997 @ 334233:               LINE   6728 "regression-compile-tmp/imp22g-77.imp"
38998 @ 334273:               GOTO   L_0006
38999 @ 334276:               LOCATE L_0007

  6729        syntax error
39000 @ 334279:               LINE   6729 "regression-compile-tmp/imp22g-77.imp"
39001 @ 334319:               PUSH   SYNTAXERROR
39002 @ 334322:               CALL  

  6730      %finish
39003 @ 334323:               LINE   6730 "regression-compile-tmp/imp22g-77.imp"
39004 @ 334363:               LOCATE L_0006

  6731    %finish
39005 @ 334366:               LINE   6731 "regression-compile-tmp/imp22g-77.imp"
39006 @ 334406:               LOCATE L_0003

  6732  out:
39007 @ 334409:               LINE   6732 "regression-compile-tmp/imp22g-77.imp"
39008 @ 334449:               LABEL  L_018d

  6733    atom = next atom %if matched # 0;  ![always primed on return]
  6734  
39009 @ 334452:               LINE   6733 "regression-compile-tmp/imp22g-77.imp"
39010 @ 334492:               PUSH   MATCHED
39011 @ 334495:               PUSHI  #0x00000000
39012 @ 334500:               JUMPIF = L_0004
39013 @ 334504:               PUSH   ATOM
39014 @ 334507:               PUSH   NEXTATOM
39015 @ 334510:               CALL  
39016 @ 334511:               ASSVAL
39017 @ 334512:               LOCATE L_0004

  6735    %if etype < 0 %start;  !reference required
39018 @ 334515:               LINE   6735 "regression-compile-tmp/imp22g-77.imp"
39019 @ 334555:               PUSH   ETYPE
39020 @ 334558:               PUSHI  #0x00000000
39021 @ 334563:               JUMPIF >= L_0004

  6736      expp = atomp0;  jammy = jammy>>1;  !restore
39022 @ 334567:               LINE   6736 "regression-compile-tmp/imp22g-77.imp"
39023 @ 334607:               PUSH   EXPP
39024 @ 334610:               PUSH   ATOMP0
39025 @ 334613:               ASSVAL
39026 @ 334614:               LINE   6736 "regression-compile-tmp/imp22g-77.imp"
39027 @ 334654:               PUSH   JAMMY
39028 @ 334657:               PUSH   JAMMY
39029 @ 334660:               PUSHI  #0x00000001
39030 @ 334665:               RSH   
39031 @ 334666:               ASSVAL

  6737  %unless item!value = 0 %start;  !*temp*
39032 @ 334667:               LINE   6737 "regression-compile-tmp/imp22g-77.imp"
39033 @ 334707:               PUSH   ITEM
39034 @ 334710:               PUSH   VALUE
39035 @ 334713:               OR    
39036 @ 334714:               PUSHI  #0x00000000
39037 @ 334719:               JUMPIF = L_0007

  6738      toref
39038 @ 334723:               LINE   6738 "regression-compile-tmp/imp22g-77.imp"
39039 @ 334763:               PUSH   TOREF
39040 @ 334766:               CALL  

  6739      expfault(typerr) %unless refok(etype-sign16,type)=TRUE
39041 @ 334767:               LINE   6739 "regression-compile-tmp/imp22g-77.imp"
39042 @ 334807:               PUSH   REFOK
39043 @ 334810:               PUSH   ETYPE
39044 @ 334813:               PUSHI  #0xffff8000
39045 @ 334818:               SUB   
39046 @ 334819:               ASSPAR
39047 @ 334820:               PUSH   TYPE
39048 @ 334823:               ASSPAR
39049 @ 334824:               CALL  
39050 @ 334825:               PUSHI  #0x00000001
39051 @ 334830:               JUMPIF = L_000a
39052 @ 334834:               PUSH   EXPFAULT
39053 @ 334837:               PUSHI  #0x0000000c
39054 @ 334842:               ASSPAR
39055 @ 334843:               CALL  
39056 @ 334844:               LOCATE L_000a

  6740  %finish %else atomp = atomp0 %and nonstandard(21)
39057 @ 334847:               LINE   6740 "regression-compile-tmp/imp22g-77.imp"
39058 @ 334887:               GOTO   L_0006
39059 @ 334890:               LOCATE L_0007
39060 @ 334893:               PUSH   ATOMP
39061 @ 334896:               PUSH   ATOMP0
39062 @ 334899:               ASSVAL
39063 @ 334900:               PUSH   NONSTANDARD
39064 @ 334903:               PUSHI  #0x00000015
39065 @ 334908:               ASSPAR
39066 @ 334909:               CALL  
39067 @ 334910:               LOCATE L_0006

  6741    %else
39068 @ 334913:               LINE   6741 "regression-compile-tmp/imp22g-77.imp"
39069 @ 334953:               GOTO   L_0003
39070 @ 334956:               LOCATE L_0004

  6742      %while atom >= rank %cycle
39071 @ 334959:               LINE   6742 "regression-compile-tmp/imp22g-77.imp"
39072 @ 334999:               LOCATE L_0006
39073 @ 335002:               PUSH   ATOM
39074 @ 335005:               PUSH   RANK
39075 @ 335008:               JUMPIF < L_0007

  6743        matched = 1
39076 @ 335012:               LINE   6743 "regression-compile-tmp/imp22g-77.imp"
39077 @ 335052:               PUSH   MATCHED
39078 @ 335055:               PUSHI  #0x00000001
39079 @ 335060:               ASSVAL

  6744        double = -1
39080 @ 335061:               LINE   6744 "regression-compile-tmp/imp22g-77.imp"
39081 @ 335101:               PUSH   DOUBLE
39082 @ 335104:               PUSHI  #0x00000001
39083 @ 335109:               NEGATE
39084 @ 335110:               ASSVAL

  6745        op = opval
39085 @ 335111:               LINE   6745 "regression-compile-tmp/imp22g-77.imp"
39086 @ 335151:               PUSH   OP
39087 @ 335154:               PUSH   OPVAL
39088 @ 335157:               CALL  
39089 @ 335158:               ASSVAL

  6746        %if item1!item = 0 %start;  !both literal
39090 @ 335159:               LINE   6746 "regression-compile-tmp/imp22g-77.imp"
39091 @ 335199:               PUSH   ITEM1
39092 @ 335202:               PUSH   ITEM
39093 @ 335205:               OR    
39094 @ 335206:               PUSHI  #0x00000000
39095 @ 335211:               JUMPIF # L_000a

  6747          %if double # -1 %start
39096 @ 335215:               LINE   6747 "regression-compile-tmp/imp22g-77.imp"
39097 @ 335255:               PUSH   DOUBLE
39098 @ 335258:               PUSHI  #0x00000001
39099 @ 335263:               NEGATE
39100 @ 335264:               JUMPIF = L_000d

  6748            %if double >= 0 %start
39101 @ 335268:               LINE   6748 "regression-compile-tmp/imp22g-77.imp"
39102 @ 335308:               PUSH   DOUBLE
39103 @ 335311:               PUSHI  #0x00000000
39104 @ 335316:               JUMPIF < L_0010

  6749              literal = literal+1;  !enforce all literal
39105 @ 335320:               LINE   6749 "regression-compile-tmp/imp22g-77.imp"
39106 @ 335360:               PUSH   LITERAL
39107 @ 335363:               PUSH   LITERAL
39108 @ 335366:               PUSHI  #0x00000001
39109 @ 335371:               ADD   
39110 @ 335372:               ASSVAL

  6750              op = op&opval
39111 @ 335373:               LINE   6750 "regression-compile-tmp/imp22g-77.imp"
39112 @ 335413:               PUSH   OP
39113 @ 335416:               PUSH   OP
39114 @ 335419:               PUSH   OPVAL
39115 @ 335422:               CALL  
39116 @ 335423:               AND   
39117 @ 335424:               ASSVAL

  6751              literal = literal-1
39118 @ 335425:               LINE   6751 "regression-compile-tmp/imp22g-77.imp"
39119 @ 335465:               PUSH   LITERAL
39120 @ 335468:               PUSH   LITERAL
39121 @ 335471:               PUSHI  #0x00000001
39122 @ 335476:               SUB   
39123 @ 335477:               ASSVAL

  6752            %finish
39124 @ 335478:               LINE   6752 "regression-compile-tmp/imp22g-77.imp"
39125 @ 335518:               LOCATE L_0010

  6753            type = booltype
39126 @ 335521:               LINE   6753 "regression-compile-tmp/imp22g-77.imp"
39127 @ 335561:               PUSH   TYPE
39128 @ 335564:               PUSHI  #0x0000003a
39129 @ 335569:               ASSVAL

  6754          %finish
39130 @ 335570:               LINE   6754 "regression-compile-tmp/imp22g-77.imp"
39131 @ 335610:               LOCATE L_000d

  6755          value = op
39132 @ 335613:               LINE   6755 "regression-compile-tmp/imp22g-77.imp"
39133 @ 335653:               PUSH   VALUE
39134 @ 335656:               PUSH   OP
39135 @ 335659:               ASSVAL

  6756        %finish %else %if double = -1 %start;         !not relop
39136 @ 335660:               LINE   6756 "regression-compile-tmp/imp22g-77.imp"
39137 @ 335700:               GOTO   L_0009
39138 @ 335703:               LOCATE L_000a
39139 @ 335706:               PUSH   DOUBLE
39140 @ 335709:               PUSHI  #0x00000001
39141 @ 335714:               NEGATE
39142 @ 335715:               JUMPIF # L_000a

  6757          %if op # 0 %start
39143 @ 335719:               LINE   6757 "regression-compile-tmp/imp22g-77.imp"
39144 @ 335759:               PUSH   OP
39145 @ 335762:               PUSHI  #0x00000000
39146 @ 335767:               JUMPIF = L_000d

  6758            item1 = litref(val1) %if item1 = 0
39147 @ 335771:               LINE   6758 "regression-compile-tmp/imp22g-77.imp"
39148 @ 335811:               PUSH   ITEM1
39149 @ 335814:               PUSHI  #0x00000000
39150 @ 335819:               JUMPIF # L_0010
39151 @ 335823:               PUSH   ITEM1
39152 @ 335826:               PUSH   LITREF
39153 @ 335829:               PUSH   VAL1
39154 @ 335832:               ASSPAR
39155 @ 335833:               CALL  
39156 @ 335834:               ASSVAL
39157 @ 335835:               LOCATE L_0010

  6759            putexp(op,item1,normitem,type)
39158 @ 335838:               LINE   6759 "regression-compile-tmp/imp22g-77.imp"
39159 @ 335878:               PUSH   PUTEXP
39160 @ 335881:               PUSH   OP
39161 @ 335884:               ASSPAR
39162 @ 335885:               PUSH   ITEM1
39163 @ 335888:               ASSPAR
39164 @ 335889:               PUSH   NORMITEM
39165 @ 335892:               CALL  
39166 @ 335893:               ASSPAR
39167 @ 335894:               PUSH   TYPE
39168 @ 335897:               ASSPAR
39169 @ 335898:               CALL  

  6760          %else;         !nop
39170 @ 335899:               LINE   6760 "regression-compile-tmp/imp22g-77.imp"
39171 @ 335939:               GOTO   L_000c
39172 @ 335942:               LOCATE L_000d

  6761            item = item1;  type = type1
39173 @ 335945:               LINE   6761 "regression-compile-tmp/imp22g-77.imp"
39174 @ 335985:               PUSH   ITEM
39175 @ 335988:               PUSH   ITEM1
39176 @ 335991:               ASSVAL
39177 @ 335992:               LINE   6761 "regression-compile-tmp/imp22g-77.imp"
39178 @ 336032:               PUSH   TYPE
39179 @ 336035:               PUSH   TYPE1
39180 @ 336038:               ASSVAL

  6762          %finish
39181 @ 336039:               LINE   6762 "regression-compile-tmp/imp22g-77.imp"
39182 @ 336079:               LOCATE L_000c

  6763        %else;                      !conditional operation
39183 @ 336082:               LINE   6763 "regression-compile-tmp/imp22g-77.imp"
39184 @ 336122:               GOTO   L_0009
39185 @ 336125:               LOCATE L_000a

  6764          condop = op!!polarity
39186 @ 336128:               LINE   6764 "regression-compile-tmp/imp22g-77.imp"
39187 @ 336168:               PUSH   CONDOP
39188 @ 336171:               PUSH   OP
39189 @ 336174:               PUSH   POLARITY
39190 @ 336177:               XOR   
39191 @ 336178:               ASSVAL

  6765          putact(compare,item1,normitem)
39192 @ 336179:               LINE   6765 "regression-compile-tmp/imp22g-77.imp"
39193 @ 336219:               PUSH   PUTACT
39194 @ 336222:               PUSHI  #0x00000004
39195 @ 336227:               ASSPAR
39196 @ 336228:               PUSH   ITEM1
39197 @ 336231:               ASSPAR
39198 @ 336232:               PUSH   NORMITEM
39199 @ 336235:               CALL  
39200 @ 336236:               ASSPAR
39201 @ 336237:               CALL  

  6766          item = np-1
39202 @ 336238:               LINE   6766 "regression-compile-tmp/imp22g-77.imp"
39203 @ 336278:               PUSH   ITEM
39204 @ 336281:               PUSH   NP
39205 @ 336284:               PUSHI  #0x00000001
39206 @ 336289:               SUB   
39207 @ 336290:               ASSVAL

  6767          %if double >= 0 %start
39208 @ 336291:               LINE   6767 "regression-compile-tmp/imp22g-77.imp"
39209 @ 336331:               PUSH   DOUBLE
39210 @ 336334:               PUSHI  #0x00000000
39211 @ 336339:               JUMPIF < L_000d

  6768            putact(condop!!polarity!!1+polarity<<7,np-1,np+1);  !implicit %and
39212 @ 336343:               LINE   6768 "regression-compile-tmp/imp22g-77.imp"
39213 @ 336383:               PUSH   PUTACT
39214 @ 336386:               PUSH   CONDOP
39215 @ 336389:               PUSH   POLARITY
39216 @ 336392:               XOR   
39217 @ 336393:               PUSHI  #0x00000001
39218 @ 336398:               XOR   
39219 @ 336399:               PUSH   POLARITY
39220 @ 336402:               PUSHI  #0x00000007
39221 @ 336407:               LSH   
39222 @ 336408:               ADD   
39223 @ 336409:               ASSPAR
39224 @ 336410:               PUSH   NP
39225 @ 336413:               PUSHI  #0x00000001
39226 @ 336418:               SUB   
39227 @ 336419:               ASSPAR
39228 @ 336420:               PUSH   NP
39229 @ 336423:               PUSHI  #0x00000001
39230 @ 336428:               ADD   
39231 @ 336429:               ASSPAR
39232 @ 336430:               CALL  

  6769            item = double;  ![TYPE,VALUE unchanged]
39233 @ 336431:               LINE   6769 "regression-compile-tmp/imp22g-77.imp"
39234 @ 336471:               PUSH   ITEM
39235 @ 336474:               PUSH   DOUBLE
39236 @ 336477:               ASSVAL

  6770            matched = 1
39237 @ 336478:               LINE   6770 "regression-compile-tmp/imp22g-77.imp"
39238 @ 336518:               PUSH   MATCHED
39239 @ 336521:               PUSHI  #0x00000001
39240 @ 336526:               ASSVAL

  6771            op = opval
39241 @ 336527:               LINE   6771 "regression-compile-tmp/imp22g-77.imp"
39242 @ 336567:               PUSH   OP
39243 @ 336570:               PUSH   OPVAL
39244 @ 336573:               CALL  
39245 @ 336574:               ASSVAL

  6772            error(nonliteral) %if item1!item = 0;  !mixed non-lit, lit
39246 @ 336575:               LINE   6772 "regression-compile-tmp/imp22g-77.imp"
39247 @ 336615:               PUSH   ITEM1
39248 @ 336618:               PUSH   ITEM
39249 @ 336621:               OR    
39250 @ 336622:               PUSHI  #0x00000000
39251 @ 336627:               JUMPIF # L_0010
39252 @ 336631:               PUSH   ERROR
39253 @ 336634:               PUSHI  #0x00000019
39254 @ 336639:               ASSPAR
39255 @ 336640:               CALL  
39256 @ 336641:               LOCATE L_0010

  6773            condop = op!!polarity
39257 @ 336644:               LINE   6773 "regression-compile-tmp/imp22g-77.imp"
39258 @ 336684:               PUSH   CONDOP
39259 @ 336687:               PUSH   OP
39260 @ 336690:               PUSH   POLARITY
39261 @ 336693:               XOR   
39262 @ 336694:               ASSVAL

  6774            putact(compare,item1,normitem)
39263 @ 336695:               LINE   6774 "regression-compile-tmp/imp22g-77.imp"
39264 @ 336735:               PUSH   PUTACT
39265 @ 336738:               PUSHI  #0x00000004
39266 @ 336743:               ASSPAR
39267 @ 336744:               PUSH   ITEM1
39268 @ 336747:               ASSPAR
39269 @ 336748:               PUSH   NORMITEM
39270 @ 336751:               CALL  
39271 @ 336752:               ASSPAR
39272 @ 336753:               CALL  

  6775            item = np-2
39273 @ 336754:               LINE   6775 "regression-compile-tmp/imp22g-77.imp"
39274 @ 336794:               PUSH   ITEM
39275 @ 336797:               PUSH   NP
39276 @ 336800:               PUSHI  #0x00000002
39277 @ 336805:               SUB   
39278 @ 336806:               ASSVAL

  6776          %finish
39279 @ 336807:               LINE   6776 "regression-compile-tmp/imp22g-77.imp"
39280 @ 336847:               LOCATE L_000d

  6777          type = booltype
39281 @ 336850:               LINE   6777 "regression-compile-tmp/imp22g-77.imp"
39282 @ 336890:               PUSH   TYPE
39283 @ 336893:               PUSHI  #0x0000003a
39284 @ 336898:               ASSVAL

  6778        %finish
39285 @ 336899:               LINE   6778 "regression-compile-tmp/imp22g-77.imp"
39286 @ 336939:               LOCATE L_0009

  6779      %repeat
39287 @ 336942:               LINE   6779 "regression-compile-tmp/imp22g-77.imp"
39288 @ 336982:               REPEAT L_0006
39289 @ 336985:               LOCATE L_0007

  6780      expp = atomp0;  jammy = jammy>>1
39290 @ 336988:               LINE   6780 "regression-compile-tmp/imp22g-77.imp"
39291 @ 337028:               PUSH   EXPP
39292 @ 337031:               PUSH   ATOMP0
39293 @ 337034:               ASSVAL
39294 @ 337035:               LINE   6780 "regression-compile-tmp/imp22g-77.imp"
39295 @ 337075:               PUSH   JAMMY
39296 @ 337078:               PUSH   JAMMY
39297 @ 337081:               PUSHI  #0x00000001
39298 @ 337086:               RSH   
39299 @ 337087:               ASSVAL

  6781      %if etype # 0 %start
39300 @ 337088:               LINE   6781 "regression-compile-tmp/imp22g-77.imp"
39301 @ 337128:               PUSH   ETYPE
39302 @ 337131:               PUSHI  #0x00000000
39303 @ 337136:               JUMPIF = L_0007

  6782        %if type = booltype %start
39304 @ 337140:               LINE   6782 "regression-compile-tmp/imp22g-77.imp"
39305 @ 337180:               PUSH   TYPE
39306 @ 337183:               PUSHI  #0x0000003a
39307 @ 337188:               JUMPIF # L_000a

  6783          topred %if (rank = cond %or rank = scond) %and condop = 0
39308 @ 337192:               LINE   6783 "regression-compile-tmp/imp22g-77.imp"
39309 @ 337232:               PUSH   RANK
39310 @ 337235:               PUSHI  #0x00000048
39311 @ 337240:               JUMPIF = L_000e
39312 @ 337244:               PUSH   RANK
39313 @ 337247:               PUSHI  #0x0000004a
39314 @ 337252:               JUMPIF # L_000d
39315 @ 337256:               LOCATE L_000e
39316 @ 337259:               PUSH   CONDOP
39317 @ 337262:               PUSHI  #0x00000000
39318 @ 337267:               JUMPIF # L_000d
39319 @ 337271:               PUSH   TOPRED
39320 @ 337274:               CALL  
39321 @ 337275:               LOCATE L_000d

  6784        %finish
39322 @ 337278:               LINE   6784 "regression-compile-tmp/imp22g-77.imp"
39323 @ 337318:               LOCATE L_000a

  6785        expfault(typerr) %unless valok(etype,type)=TRUE
39324 @ 337321:               LINE   6785 "regression-compile-tmp/imp22g-77.imp"
39325 @ 337361:               PUSH   VALOK
39326 @ 337364:               PUSH   ETYPE
39327 @ 337367:               ASSPAR
39328 @ 337368:               PUSH   TYPE
39329 @ 337371:               ASSPAR
39330 @ 337372:               CALL  
39331 @ 337373:               PUSHI  #0x00000001
39332 @ 337378:               JUMPIF = L_000a
39333 @ 337382:               PUSH   EXPFAULT
39334 @ 337385:               PUSHI  #0x0000000c
39335 @ 337390:               ASSPAR
39336 @ 337391:               CALL  
39337 @ 337392:               LOCATE L_000a

  6786      %finish
39338 @ 337395:               LINE   6786 "regression-compile-tmp/imp22g-77.imp"
39339 @ 337435:               LOCATE L_0007

  6787    %finish
39340 @ 337438:               LINE   6787 "regression-compile-tmp/imp22g-77.imp"
39341 @ 337478:               LOCATE L_0003

  6788    atomp=expp %and error(nonliteral+point) %if literal # 0 %and item # 0
39342 @ 337481:               LINE   6788 "regression-compile-tmp/imp22g-77.imp"
39343 @ 337521:               PUSH   LITERAL
39344 @ 337524:               PUSHI  #0x00000000
39345 @ 337529:               JUMPIF = L_0004
39346 @ 337533:               PUSH   ITEM
39347 @ 337536:               PUSHI  #0x00000000
39348 @ 337541:               JUMPIF = L_0004
39349 @ 337545:               PUSH   ATOMP
39350 @ 337548:               PUSH   EXPP
39351 @ 337551:               ASSVAL
39352 @ 337552:               PUSH   ERROR
39353 @ 337555:               PUSHI  #0x00000019
39354 @ 337560:               PUSHI  #0x00000040
39355 @ 337565:               ADD   
39356 @ 337566:               ASSPAR
39357 @ 337567:               CALL  
39358 @ 337568:               LOCATE L_0004

  6789  %end;  !get EXPRESSION
  6790    
  6791  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  6792  !!!!!!!!!!!!!!!!!!!!  Conditions and loops  !!!!!!!!!!!!!!!!!!!!
  6793  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  6794  !
39359 @ 337571:               LINE   6789 "regression-compile-tmp/imp22g-77.imp"
39360 @ 337611:            END    _lev0id0_GETEXPRESSION {lev=2 --> 1}

  6795  %routine GET CONDITION
39361 @ 337612:            LINE   6795 "regression-compile-tmp/imp22g-77.imp"
39362 @ 337652:            DEF    GETCONDITION (_lev0id0_GETCONDITION) p1=V_017a 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
39363 @ 337676:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
39364 @ 337677:               FINISH ) {lev=2}

  6796  %integer maxlab,condnp
  6797  
39365 @ 337678:               LINE   6796 "regression-compile-tmp/imp22g-77.imp"
39366 @ 337718:               DEF    MAXLAB p1=V_017b a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
39367 @ 337736:               DEF    CONDNP p1=V_017c a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  6798  %routine ASSIGN LABELS(%integer p,lab,pol)
39368 @ 337754:               LINE   6798 "regression-compile-tmp/imp22g-77.imp"
39369 @ 337794:               DEF    ASSIGNLABELS (_lev0id0_GETCONDITION_ASSIGNLABELS) p1=V_017d 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
39370 @ 337818:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
39371 @ 337819:                     DEF    P p1=V_017e a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
39372 @ 337832:                     DEF    LAB p1=V_017f a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
39373 @ 337847:                     DEF    POL p1=V_0180 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
39374 @ 337862:                  FINISH ) {lev=3}

  6799  %integer base
39375 @ 337863:                  LINE   6799 "regression-compile-tmp/imp22g-77.imp"
39376 @ 337903:                  DEF    BASE p1=V_0181 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  6800  %record(identinfo)%name dp
39377 @ 337919:                  LINE   6800 "regression-compile-tmp/imp22g-77.imp"
39378 @ 337959:                  DEF    DP p1=V_0182 a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  6801    base=maxlab
39379 @ 337973:                  LINE   6801 "regression-compile-tmp/imp22g-77.imp"
39380 @ 338013:                  PUSH   BASE
39381 @ 338016:                  PUSH   MAXLAB
39382 @ 338019:                  ASSVAL

  6802    %while (p-condnp)&1 # 0 %cycle;  !compound
39383 @ 338020:                  LINE   6802 "regression-compile-tmp/imp22g-77.imp"
39384 @ 338060:                  LOCATE L_0003
39385 @ 338063:                  PUSH   P
39386 @ 338066:                  PUSH   CONDNP
39387 @ 338069:                  SUB   
39388 @ 338070:                  PUSHI  #0x00000001
39389 @ 338075:                  AND   
39390 @ 338076:                  PUSHI  #0x00000000
39391 @ 338081:                  JUMPIF = L_0004

  6803      dp == dict(p);  p = dp_y
39392 @ 338085:                  LINE   6803 "regression-compile-tmp/imp22g-77.imp"
39393 @ 338125:                  PUSH   DP
39394 @ 338128:                  PUSH   DICT
39395 @ 338131:                  PUSH   P
39396 @ 338134:                  ACCESS
39397 @ 338135:                  ASSREF
39398 @ 338136:                  LINE   6803 "regression-compile-tmp/imp22g-77.imp"
39399 @ 338176:                  PUSH   P
39400 @ 338179:                  PUSH   DP
39401 @ 338182:                  SELECT 14
39402 @ 338185:                  ASSVAL

  6804      %if dp_act&1<<7 = pol %then assign labels(dp_x,lab,pol) %c
  6805      %else maxlab = base+1 %and assign labels(dp_x,maxlab,pol!!1<<7)
39403 @ 338186:                  LINE   6804 "regression-compile-tmp/imp22g-77.imp"
39404 @ 338226:                  PUSH   DP
39405 @ 338229:                  SELECT 6
39406 @ 338232:                  PUSHI  #0x00000001
39407 @ 338237:                  PUSHI  #0x00000007
39408 @ 338242:                  LSH   
39409 @ 338243:                  AND   
39410 @ 338244:                  PUSH   POL
39411 @ 338247:                  JUMPIF # L_0007
39412 @ 338251:                  PUSH   ASSIGNLABELS
39413 @ 338254:                  PUSH   DP
39414 @ 338257:                  SELECT 13
39415 @ 338260:                  ASSPAR
39416 @ 338261:                  PUSH   LAB
39417 @ 338264:                  ASSPAR
39418 @ 338265:                  PUSH   POL
39419 @ 338268:                  ASSPAR
39420 @ 338269:                  CALL  
39421 @ 338270:                  GOTO   L_0006
39422 @ 338273:                  LOCATE L_0007
39423 @ 338276:                  PUSH   MAXLAB
39424 @ 338279:                  PUSH   BASE
39425 @ 338282:                  PUSHI  #0x00000001
39426 @ 338287:                  ADD   
39427 @ 338288:                  ASSVAL
39428 @ 338289:                  PUSH   ASSIGNLABELS
39429 @ 338292:                  PUSH   DP
39430 @ 338295:                  SELECT 13
39431 @ 338298:                  ASSPAR
39432 @ 338299:                  PUSH   MAXLAB
39433 @ 338302:                  ASSPAR
39434 @ 338303:                  PUSH   POL
39435 @ 338306:                  PUSHI  #0x00000001
39436 @ 338311:                  PUSHI  #0x00000007
39437 @ 338316:                  LSH   
39438 @ 338317:                  XOR   
39439 @ 338318:                  ASSPAR
39440 @ 338319:                  CALL  
39441 @ 338320:                  LOCATE L_0006

  6806    %repeat
39442 @ 338323:                  LINE   6806 "regression-compile-tmp/imp22g-77.imp"
39443 @ 338363:                  REPEAT L_0003
39444 @ 338366:                  LOCATE L_0004

  6807    dp == dict(p+1);  dp == dict(p+3) %if dp_act = 0;  !resolution
39445 @ 338369:                  LINE   6807 "regression-compile-tmp/imp22g-77.imp"
39446 @ 338409:                  PUSH   DP
39447 @ 338412:                  PUSH   DICT
39448 @ 338415:                  PUSH   P
39449 @ 338418:                  PUSHI  #0x00000001
39450 @ 338423:                  ADD   
39451 @ 338424:                  ACCESS
39452 @ 338425:                  ASSREF
39453 @ 338426:                  LINE   6807 "regression-compile-tmp/imp22g-77.imp"
39454 @ 338466:                  PUSH   DP
39455 @ 338469:                  SELECT 6
39456 @ 338472:                  PUSHI  #0x00000000
39457 @ 338477:                  JUMPIF # L_0004
39458 @ 338481:                  PUSH   DP
39459 @ 338484:                  PUSH   DICT
39460 @ 338487:                  PUSH   P
39461 @ 338490:                  PUSHI  #0x00000003
39462 @ 338495:                  ADD   
39463 @ 338496:                  ACCESS
39464 @ 338497:                  ASSREF
39465 @ 338498:                  LOCATE L_0004

  6808    %if maxlab > base %then dp_x = maxlab %and maxlab = base %c
  6809    %else dp_x = 0
39466 @ 338501:                  LINE   6808 "regression-compile-tmp/imp22g-77.imp"
39467 @ 338541:                  PUSH   MAXLAB
39468 @ 338544:                  PUSH   BASE
39469 @ 338547:                  JUMPIF <= L_0004
39470 @ 338551:                  PUSH   DP
39471 @ 338554:                  SELECT 13
39472 @ 338557:                  PUSH   MAXLAB
39473 @ 338560:                  ASSVAL
39474 @ 338561:                  PUSH   MAXLAB
39475 @ 338564:                  PUSH   BASE
39476 @ 338567:                  ASSVAL
39477 @ 338568:                  GOTO   L_0003
39478 @ 338571:                  LOCATE L_0004
39479 @ 338574:                  PUSH   DP
39480 @ 338577:                  SELECT 13
39481 @ 338580:                  PUSHI  #0x00000000
39482 @ 338585:                  ASSVAL
39483 @ 338586:                  LOCATE L_0003

  6810    dp_y = lab
39484 @ 338589:                  LINE   6810 "regression-compile-tmp/imp22g-77.imp"
39485 @ 338629:                  PUSH   DP
39486 @ 338632:                  SELECT 14
39487 @ 338635:                  PUSH   LAB
39488 @ 338638:                  ASSVAL

  6811    dp_act = dp_act&127
39489 @ 338639:                  LINE   6811 "regression-compile-tmp/imp22g-77.imp"
39490 @ 338679:                  PUSH   DP
39491 @ 338682:                  SELECT 6
39492 @ 338685:                  PUSH   DP
39493 @ 338688:                  SELECT 6
39494 @ 338691:                  PUSHI  #0x0000007f
39495 @ 338696:                  AND   
39496 @ 338697:                  ASSVAL

  6812  %end
  6813  
39497 @ 338698:                  LINE   6812 "regression-compile-tmp/imp22g-77.imp"
39498 @ 338738:               END    _lev0id0_GETCONDITION_ASSIGNLABELS {lev=3 --> 2}

  6814    condnp = np
39499 @ 338739:               LINE   6814 "regression-compile-tmp/imp22g-77.imp"
39500 @ 338779:               PUSH   CONDNP
39501 @ 338782:               PUSH   NP
39502 @ 338785:               ASSVAL

  6815    polarity = subatom;  condop = 0
39503 @ 338786:               LINE   6815 "regression-compile-tmp/imp22g-77.imp"
39504 @ 338826:               PUSH   POLARITY
39505 @ 338829:               PUSH   SUBATOM
39506 @ 338832:               ASSVAL
39507 @ 338833:               LINE   6815 "regression-compile-tmp/imp22g-77.imp"
39508 @ 338873:               PUSH   CONDOP
39509 @ 338876:               PUSHI  #0x00000000
39510 @ 338881:               ASSVAL

  6816    get EXPRESSION(cond,booltype)
39511 @ 338882:               LINE   6816 "regression-compile-tmp/imp22g-77.imp"
39512 @ 338922:               PUSH   GETEXPRESSION
39513 @ 338925:               PUSHI  #0x00000048
39514 @ 338930:               ASSPAR
39515 @ 338931:               PUSHI  #0x0000003a
39516 @ 338936:               ASSPAR
39517 @ 338937:               CALL  

  6817    putact(condop!!1,item,0)
39518 @ 338938:               LINE   6817 "regression-compile-tmp/imp22g-77.imp"
39519 @ 338978:               PUSH   PUTACT
39520 @ 338981:               PUSH   CONDOP
39521 @ 338984:               PUSHI  #0x00000001
39522 @ 338989:               XOR   
39523 @ 338990:               ASSPAR
39524 @ 338991:               PUSH   ITEM
39525 @ 338994:               ASSPAR
39526 @ 338995:               PUSHI  #0x00000000
39527 @ 339000:               ASSPAR
39528 @ 339001:               CALL  

  6818    %return %if faultnum > 0
39529 @ 339002:               LINE   6818 "regression-compile-tmp/imp22g-77.imp"
39530 @ 339042:               PUSH   FAULTNUM
39531 @ 339045:               PUSHI  #0x00000000
39532 @ 339050:               JUMPIF <= L_0004
39533 @ 339054:               RETURN
39534 @ 339055:               LOCATE L_0004

  6819    maxlab = curlab+1
39535 @ 339058:               LINE   6819 "regression-compile-tmp/imp22g-77.imp"
39536 @ 339098:               PUSH   MAXLAB
39537 @ 339101:               PUSH   CURLAB
39538 @ 339104:               PUSHI  #0x00000001
39539 @ 339109:               ADD   
39540 @ 339110:               ASSVAL

  6820    assign labels(item,maxlab,0)
39541 @ 339111:               LINE   6820 "regression-compile-tmp/imp22g-77.imp"
39542 @ 339151:               PUSH   ASSIGNLABELS
39543 @ 339154:               PUSH   ITEM
39544 @ 339157:               ASSPAR
39545 @ 339158:               PUSH   MAXLAB
39546 @ 339161:               ASSPAR
39547 @ 339162:               PUSHI  #0x00000000
39548 @ 339167:               ASSPAR
39549 @ 339168:               CALL  

  6821  %end;  !get CONDITION
  6822  
  6823  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  6824  
39550 @ 339169:               LINE   6821 "regression-compile-tmp/imp22g-77.imp"
39551 @ 339209:            END    _lev0id0_GETCONDITION {lev=2 --> 1}

  6825  %routine DO DYNAMIC ARRAYS
39552 @ 339210:            LINE   6825 "regression-compile-tmp/imp22g-77.imp"
39553 @ 339250:            DEF    DODYNAMICARRAYS (_lev0id0_DODYNAMICARRAYS) p1=V_017b 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
39554 @ 339277:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
39555 @ 339278:               FINISH ) {lev=2}

  6826    update sp
39556 @ 339279:               LINE   6826 "regression-compile-tmp/imp22g-77.imp"
39557 @ 339319:               PUSH   UPDATESP
39558 @ 339322:               CALL  

  6827    c_mode = c_mode!2_01000000;   !bar to SP rel addressing
39559 @ 339323:               LINE   6827 "regression-compile-tmp/imp22g-77.imp"
39560 @ 339363:               PUSH   C
39561 @ 339366:               SELECT 27
39562 @ 339369:               PUSH   C
39563 @ 339372:               SELECT 27
39564 @ 339375:               PUSHI  #0x00000040
39565 @ 339380:               OR    
39566 @ 339381:               ASSVAL

  6828    c_status = c_status!globbed;  !needs link
39567 @ 339382:               LINE   6828 "regression-compile-tmp/imp22g-77.imp"
39568 @ 339422:               PUSH   C
39569 @ 339425:               SELECT 6
39570 @ 339428:               PUSH   C
39571 @ 339431:               SELECT 6
39572 @ 339434:               PUSHI  #0x00000010
39573 @ 339439:               OR    
39574 @ 339440:               ASSVAL

  6829    %while c_dynarray # 0 %cycle
39575 @ 339441:               LINE   6829 "regression-compile-tmp/imp22g-77.imp"
39576 @ 339481:               LOCATE L_0003
39577 @ 339484:               PUSH   C
39578 @ 339487:               SELECT 25
39579 @ 339490:               PUSHI  #0x00000000
39580 @ 339495:               JUMPIF = L_0004

  6830      %if c_dynarray < 0 %then putact(aget,-c_dynarray,one) %c
  6831      %else putact(aget,c_dynarray,0)
39581 @ 339499:               LINE   6830 "regression-compile-tmp/imp22g-77.imp"
39582 @ 339539:               PUSH   C
39583 @ 339542:               SELECT 25
39584 @ 339545:               PUSHI  #0x00000000
39585 @ 339550:               JUMPIF >= L_0007
39586 @ 339554:               PUSH   PUTACT
39587 @ 339557:               PUSHI  #0x0000006d
39588 @ 339562:               ASSPAR
39589 @ 339563:               PUSH   C
39590 @ 339566:               SELECT 25
39591 @ 339569:               NEGATE
39592 @ 339570:               ASSPAR
39593 @ 339571:               PUSHI  #0xfffffffe
39594 @ 339576:               ASSPAR
39595 @ 339577:               CALL  
39596 @ 339578:               GOTO   L_0006
39597 @ 339581:               LOCATE L_0007
39598 @ 339584:               PUSH   PUTACT
39599 @ 339587:               PUSHI  #0x0000006d
39600 @ 339592:               ASSPAR
39601 @ 339593:               PUSH   C
39602 @ 339596:               SELECT 25
39603 @ 339599:               ASSPAR
39604 @ 339600:               PUSHI  #0x00000000
39605 @ 339605:               ASSPAR
39606 @ 339606:               CALL  
39607 @ 339607:               LOCATE L_0006

  6832      c_dynarray = dict(imod(c_dynarray))_link
39608 @ 339610:               LINE   6832 "regression-compile-tmp/imp22g-77.imp"
39609 @ 339650:               PUSH   C
39610 @ 339653:               SELECT 25
39611 @ 339656:               PUSH   DICT
39612 @ 339659:               PUSH   IMOD
39613 @ 339662:               PUSH   C
39614 @ 339665:               SELECT 25
39615 @ 339668:               ASSPAR
39616 @ 339669:               CALL  
39617 @ 339670:               ACCESS
39618 @ 339671:               SELECT 3
39619 @ 339674:               ASSVAL

  6833    %repeat
39620 @ 339675:               LINE   6833 "regression-compile-tmp/imp22g-77.imp"
39621 @ 339715:               REPEAT L_0003
39622 @ 339718:               LOCATE L_0004

  6834    compile(np0)
39623 @ 339721:               LINE   6834 "regression-compile-tmp/imp22g-77.imp"
39624 @ 339761:               PUSH   COMPILE
39625 @ 339764:               PUSH   NP0
39626 @ 339767:               ASSPAR
39627 @ 339768:               CALL  

  6835  %end
  6836  
39628 @ 339769:               LINE   6835 "regression-compile-tmp/imp22g-77.imp"
39629 @ 339809:            END    _lev0id0_DODYNAMICARRAYS {lev=2 --> 1}

  6837  %routine GET STATEMENTS(%integer stopper)
  6838  ! STOPPER = 0          -- initial call
  6839  !           1 (END)    -- for procedure or block body
  6840  !           2 (REPEAT) -- for loop body
  6841  !           3 (FINISH) -- for condition body (ELSE not valid)
  6842  !           4 (ELSE)   --         "          (ELSE valid)
39630 @ 339810:            LINE   6837 "regression-compile-tmp/imp22g-77.imp"
39631 @ 339850:            DEF    GETSTATEMENTS (_lev0id0_GETSTATEMENTS) p1=V_017c 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
39632 @ 339875:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
39633 @ 339876:                  DEF    STOPPER p1=V_017d a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
39634 @ 339895:               FINISH ) {lev=2}

  6843  %switch initial(0:atommax)
39635 @ 339896:               LINE   6843 "regression-compile-tmp/imp22g-77.imp"
39636 @ 339936:               PUSHI  #0x00000000
39637 @ 339941:               PUSHI  #0x00000063
39638 @ 339946:               BOUNDS
39639 @ 339947:               DEF    INITIAL p1=V_017e 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

  6844  %integer forinf,endval,loopstart
  6845  
39640 @ 339966:               LINE   6844 "regression-compile-tmp/imp22g-77.imp"
39641 @ 340006:               DEF    FORINF p1=V_017f a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
39642 @ 340024:               DEF    ENDVAL p1=V_0180 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
39643 @ 340042:               DEF    LOOPSTART p1=V_0181 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  6846  %routine THIS IS INST
39644 @ 340063:               LINE   6846 "regression-compile-tmp/imp22g-77.imp"
39645 @ 340103:               DEF    THISISINST (_lev0id0_GETSTATEMENTS_THISISINST) p1=V_0182 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
39646 @ 340125:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
39647 @ 340126:                  FINISH ) {lev=3}

  6847    %if c_status < hadinst %start;  !first in block
39648 @ 340127:                  LINE   6847 "regression-compile-tmp/imp22g-77.imp"
39649 @ 340167:                  PUSH   C
39650 @ 340170:                  SELECT 6
39651 @ 340173:                  PUSHI  #0x00004000
39652 @ 340178:                  JUMPIF >= L_0004

  6848      c_status = c_status+hadinst
39653 @ 340182:                  LINE   6848 "regression-compile-tmp/imp22g-77.imp"
39654 @ 340222:                  PUSH   C
39655 @ 340225:                  SELECT 6
39656 @ 340228:                  PUSH   C
39657 @ 340231:                  SELECT 6
39658 @ 340234:                  PUSHI  #0x00004000
39659 @ 340239:                  ADD   
39660 @ 340240:                  ASSVAL

  6849      fault(ordererr) %if stopper = 0
39661 @ 340241:                  LINE   6849 "regression-compile-tmp/imp22g-77.imp"
39662 @ 340281:                  PUSH   STOPPER
39663 @ 340284:                  PUSHI  #0x00000000
39664 @ 340289:                  JUMPIF # L_0007
39665 @ 340293:                  PUSH   FAULT
39666 @ 340296:                  PUSHI  #0x00000016
39667 @ 340301:                  ASSPAR
39668 @ 340302:                  CALL  
39669 @ 340303:                  LOCATE L_0007

  6850    %finish
39670 @ 340306:                  LINE   6850 "regression-compile-tmp/imp22g-77.imp"
39671 @ 340346:                  LOCATE L_0004

  6851    fault(accesserr+warn) %if c_access = 0 %and np = np0
39672 @ 340349:                  LINE   6851 "regression-compile-tmp/imp22g-77.imp"
39673 @ 340389:                  PUSH   C
39674 @ 340392:                  SELECT 16
39675 @ 340395:                  PUSHI  #0x00000000
39676 @ 340400:                  JUMPIF # L_0004
39677 @ 340404:                  PUSH   NP
39678 @ 340407:                  PUSH   NP0
39679 @ 340410:                  JUMPIF # L_0004
39680 @ 340414:                  PUSH   FAULT
39681 @ 340417:                  PUSHI  #0x00000010
39682 @ 340422:                  PUSHI  #0xffffff80
39683 @ 340427:                  ADD   
39684 @ 340428:                  ASSPAR
39685 @ 340429:                  CALL  
39686 @ 340430:                  LOCATE L_0004

  6852    do dynamic arrays %if c_dynarray # 0
39687 @ 340433:                  LINE   6852 "regression-compile-tmp/imp22g-77.imp"
39688 @ 340473:                  PUSH   C
39689 @ 340476:                  SELECT 25
39690 @ 340479:                  PUSHI  #0x00000000
39691 @ 340484:                  JUMPIF = L_0004
39692 @ 340488:                  PUSH   DODYNAMICARRAYS
39693 @ 340491:                  CALL  
39694 @ 340492:                  LOCATE L_0004

  6853  %end
  6854  
39695 @ 340495:                  LINE   6853 "regression-compile-tmp/imp22g-77.imp"
39696 @ 340535:               END    _lev0id0_GETSTATEMENTS_THISISINST {lev=3 --> 2}

  6855  %routine PUTACT2(%integer act,item1)
39697 @ 340536:               LINE   6855 "regression-compile-tmp/imp22g-77.imp"
39698 @ 340576:               DEF    PUTACT2 (_lev0id0_GETSTATEMENTS_PUTACT2) p1=V_0183 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
39699 @ 340595:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
39700 @ 340596:                     DEF    ACT p1=V_0184 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
39701 @ 340611:                     DEF    ITEM1 p1=V_0185 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
39702 @ 340628:                  FINISH ) {lev=3}

  6856    putact(act,item1,normitem)
39703 @ 340629:                  LINE   6856 "regression-compile-tmp/imp22g-77.imp"
39704 @ 340669:                  PUSH   PUTACT
39705 @ 340672:                  PUSH   ACT
39706 @ 340675:                  ASSPAR
39707 @ 340676:                  PUSH   ITEM1
39708 @ 340679:                  ASSPAR
39709 @ 340680:                  PUSH   NORMITEM
39710 @ 340683:                  CALL  
39711 @ 340684:                  ASSPAR
39712 @ 340685:                  CALL  

  6857  %end
  6858  
39713 @ 340686:                  LINE   6857 "regression-compile-tmp/imp22g-77.imp"
39714 @ 340726:               END    _lev0id0_GETSTATEMENTS_PUTACT2 {lev=3 --> 2}

  6859  %routine GET RESULT
39715 @ 340727:               LINE   6859 "regression-compile-tmp/imp22g-77.imp"
39716 @ 340767:               DEF    GETRESULT (_lev0id0_GETSTATEMENTS_GETRESULT) p1=V_0184 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
39717 @ 340788:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
39718 @ 340789:                  FINISH ) {lev=3}

  6860    get VALUE(c_type)
  6861  !  fault(rangerr+warn) %if c_type > 0 %and item # 0 %c
  6862  !                      %and imod(size(type)) > imod(size(c_type))
39719 @ 340790:                  LINE   6860 "regression-compile-tmp/imp22g-77.imp"
39720 @ 340830:                  PUSH   GETVALUE
39721 @ 340833:                  PUSH   C
39722 @ 340836:                  SELECT 7
39723 @ 340839:                  ASSPAR
39724 @ 340840:                  CALL  

  6863  %end
  6864  
39725 @ 340841:                  LINE   6863 "regression-compile-tmp/imp22g-77.imp"
39726 @ 340881:               END    _lev0id0_GETSTATEMENTS_GETRESULT {lev=3 --> 2}

  6865  %routine GET INSTRUCTION
39727 @ 340882:               LINE   6865 "regression-compile-tmp/imp22g-77.imp"
39728 @ 340922:               DEF    GETINSTRUCTION (_lev0id0_GETSTATEMENTS_GETINSTRUCTION) p1=V_0185 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
39729 @ 340948:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
39730 @ 340949:                  FINISH ) {lev=3}

  6866  %integer item1
39731 @ 340950:                  LINE   6866 "regression-compile-tmp/imp22g-77.imp"
39732 @ 340990:                  DEF    ITEM1 p1=V_0186 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  6867  %record(identinfo)%name tp
39733 @ 341007:                  LINE   6867 "regression-compile-tmp/imp22g-77.imp"
39734 @ 341047:                  DEF    TP p1=V_0187 a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  6868    this is inst
39735 @ 341061:                  LINE   6868 "regression-compile-tmp/imp22g-77.imp"
39736 @ 341101:                  PUSH   THISISINST
39737 @ 341104:                  CALL  

  6869    %cycle
39738 @ 341105:                  LINE   6869 "regression-compile-tmp/imp22g-77.imp"
39739 @ 341145:                  LOCATE L_0003

  6870      %if a(ident)=TRUE %start
39740 @ 341148:                  LINE   6870 "regression-compile-tmp/imp22g-77.imp"
39741 @ 341188:                  PUSH   A
39742 @ 341191:                  PUSHI  #0x00000035
39743 @ 341196:                  ASSPAR
39744 @ 341197:                  CALL  
39745 @ 341198:                  PUSHI  #0x00000001
39746 @ 341203:                  JUMPIF # L_0007

  6871        name error %if item <= 0
39747 @ 341207:                  LINE   6871 "regression-compile-tmp/imp22g-77.imp"
39748 @ 341247:                  PUSH   ITEM
39749 @ 341250:                  PUSHI  #0x00000000
39750 @ 341255:                  JUMPIF > L_000a
39751 @ 341259:                  PUSH   NAMEERROR
39752 @ 341262:                  CALL  
39753 @ 341263:                  LOCATE L_000a

  6872        %if ditem_flags&(writable!typeid) # 0 %start
39754 @ 341266:                  LINE   6872 "regression-compile-tmp/imp22g-77.imp"
39755 @ 341306:                  PUSH   DITEM
39756 @ 341309:                  SELECT 1
39757 @ 341312:                  PUSHI  #0x00000001
39758 @ 341317:                  PUSHI  #0x00000200
39759 @ 341322:                  OR    
39760 @ 341323:                  AND   
39761 @ 341324:                  PUSHI  #0x00000000
39762 @ 341329:                  JUMPIF = L_000a

  6873          matched = 0
39763 @ 341333:                  LINE   6873 "regression-compile-tmp/imp22g-77.imp"
39764 @ 341373:                  PUSH   MATCHED
39765 @ 341376:                  PUSHI  #0x00000000
39766 @ 341381:                  ASSVAL

  6874          get EXPRESSION(simple,0)
39767 @ 341382:                  LINE   6874 "regression-compile-tmp/imp22g-77.imp"
39768 @ 341422:                  PUSH   GETEXPRESSION
39769 @ 341425:                  PUSHI  #0x00000064
39770 @ 341430:                  ASSPAR
39771 @ 341431:                  PUSHI  #0x00000000
39772 @ 341436:                  ASSPAR
39773 @ 341437:                  CALL  

  6875          item1 = item
39774 @ 341438:                  LINE   6875 "regression-compile-tmp/imp22g-77.imp"
39775 @ 341478:                  PUSH   ITEM1
39776 @ 341481:                  PUSH   ITEM
39777 @ 341484:                  ASSVAL

  6876          %if a(equals)=TRUE %start
39778 @ 341485:                  LINE   6876 "regression-compile-tmp/imp22g-77.imp"
39779 @ 341525:                  PUSH   A
39780 @ 341528:                  PUSHI  #0x0000004d
39781 @ 341533:                  ASSPAR
39782 @ 341534:                  CALL  
39783 @ 341535:                  PUSHI  #0x00000001
39784 @ 341540:                  JUMPIF # L_000d

  6877            jammy = 0
39785 @ 341544:                  LINE   6877 "regression-compile-tmp/imp22g-77.imp"
39786 @ 341584:                  PUSH   JAMMY
39787 @ 341587:                  PUSHI  #0x00000000
39788 @ 341592:                  ASSVAL

  6878            get VALUE(type)
39789 @ 341593:                  LINE   6878 "regression-compile-tmp/imp22g-77.imp"
39790 @ 341633:                  PUSH   GETVALUE
39791 @ 341636:                  PUSH   TYPE
39792 @ 341639:                  ASSPAR
39793 @ 341640:                  CALL  

  6879            putact2(okass+jammy,item1);  !okass,assign
39794 @ 341641:                  LINE   6879 "regression-compile-tmp/imp22g-77.imp"
39795 @ 341681:                  PUSH   PUTACT2
39796 @ 341684:                  PUSHI  #0x00000021
39797 @ 341689:                  PUSH   JAMMY
39798 @ 341692:                  ADD   
39799 @ 341693:                  ASSPAR
39800 @ 341694:                  PUSH   ITEM1
39801 @ 341697:                  ASSPAR
39802 @ 341698:                  CALL  

  6880          %finish %else %if a(eqeq)=TRUE %start
39803 @ 341699:                  LINE   6880 "regression-compile-tmp/imp22g-77.imp"
39804 @ 341739:                  GOTO   L_000c
39805 @ 341742:                  LOCATE L_000d
39806 @ 341745:                  PUSH   A
39807 @ 341748:                  PUSHI  #0x0000004b
39808 @ 341753:                  ASSPAR
39809 @ 341754:                  CALL  
39810 @ 341755:                  PUSHI  #0x00000001
39811 @ 341760:                  JUMPIF # L_000d

  6881            syntax error %if ditem_flags >= 0
39812 @ 341764:                  LINE   6881 "regression-compile-tmp/imp22g-77.imp"
39813 @ 341804:                  PUSH   DITEM
39814 @ 341807:                  SELECT 1
39815 @ 341810:                  PUSHI  #0x00000000
39816 @ 341815:                  JUMPIF < L_0010
39817 @ 341819:                  PUSH   SYNTAXERROR
39818 @ 341822:                  CALL  
39819 @ 341823:                  LOCATE L_0010

  6882            get REFERENCE(type)
39820 @ 341826:                  LINE   6882 "regression-compile-tmp/imp22g-77.imp"
39821 @ 341866:                  PUSH   GETREFERENCE
39822 @ 341869:                  PUSH   TYPE
39823 @ 341872:                  ASSPAR
39824 @ 341873:                  CALL  

  6883            putact2(assign,item1+ad)
39825 @ 341874:                  LINE   6883 "regression-compile-tmp/imp22g-77.imp"
39826 @ 341914:                  PUSH   PUTACT2
39827 @ 341917:                  PUSHI  #0x00000022
39828 @ 341922:                  ASSPAR
39829 @ 341923:                  PUSH   ITEM1
39830 @ 341926:                  PUSHI  #0x00004000
39831 @ 341931:                  ADD   
39832 @ 341932:                  ASSPAR
39833 @ 341933:                  CALL  

  6884          %finish %else %if atom = less %and byteintegeR(fp) = '-' %start
39834 @ 341934:                  LINE   6884 "regression-compile-tmp/imp22g-77.imp"
39835 @ 341974:                  GOTO   L_000c
39836 @ 341977:                  LOCATE L_000d
39837 @ 341980:                  PUSH   ATOM
39838 @ 341983:                  PUSHI  #0x00000050
39839 @ 341988:                  JUMPIF # L_000d
39840 @ 341992:                  PUSH   BYTEINTEGER
39841 @ 341995:                  PUSH   FP
39842 @ 341998:                  ASSPAR
39843 @ 341999:                  CALL  
39844 @ 342000:                  PUSHI  #0x0000002d
39845 @ 342005:                  JUMPIF # L_000d

  6885            fp = fp+1;  matched = 1
39846 @ 342009:                  LINE   6885 "regression-compile-tmp/imp22g-77.imp"
39847 @ 342049:                  PUSH   FP
39848 @ 342052:                  PUSH   FP
39849 @ 342055:                  PUSHI  #0x00000001
39850 @ 342060:                  ADD   
39851 @ 342061:                  ASSVAL
39852 @ 342062:                  LINE   6885 "regression-compile-tmp/imp22g-77.imp"
39853 @ 342102:                  PUSH   MATCHED
39854 @ 342105:                  PUSHI  #0x00000001
39855 @ 342110:                  ASSVAL

  6886            jammy = 1
39856 @ 342111:                  LINE   6886 "regression-compile-tmp/imp22g-77.imp"
39857 @ 342151:                  PUSH   JAMMY
39858 @ 342154:                  PUSHI  #0x00000001
39859 @ 342159:                  ASSVAL

  6887            get VALUE(type)
39860 @ 342160:                  LINE   6887 "regression-compile-tmp/imp22g-77.imp"
39861 @ 342200:                  PUSH   GETVALUE
39862 @ 342203:                  PUSH   TYPE
39863 @ 342206:                  ASSPAR
39864 @ 342207:                  CALL  

  6888            putact2(jamass+jammy,item1);  !jamass,okass
39865 @ 342208:                  LINE   6888 "regression-compile-tmp/imp22g-77.imp"
39866 @ 342248:                  PUSH   PUTACT2
39867 @ 342251:                  PUSHI  #0x00000020
39868 @ 342256:                  PUSH   JAMMY
39869 @ 342259:                  ADD   
39870 @ 342260:                  ASSPAR
39871 @ 342261:                  PUSH   ITEM1
39872 @ 342264:                  ASSPAR
39873 @ 342265:                  CALL  

  6889          %else
39874 @ 342266:                  LINE   6889 "regression-compile-tmp/imp22g-77.imp"
39875 @ 342306:                  GOTO   L_000c
39876 @ 342309:                  LOCATE L_000d

  6890            syntax error %unless a(arrow)=TRUE
39877 @ 342312:                  LINE   6890 "regression-compile-tmp/imp22g-77.imp"
39878 @ 342352:                  PUSH   A
39879 @ 342355:                  PUSHI  #0x0000004a
39880 @ 342360:                  ASSPAR
39881 @ 342361:                  CALL  
39882 @ 342362:                  PUSHI  #0x00000001
39883 @ 342367:                  JUMPIF = L_0010
39884 @ 342371:                  PUSH   SYNTAXERROR
39885 @ 342374:                  CALL  
39886 @ 342375:                  LOCATE L_0010

  6891            get RESOLUTION(type,item1)
39887 @ 342378:                  LINE   6891 "regression-compile-tmp/imp22g-77.imp"
39888 @ 342418:                  PUSH   GETRESOLUTION
39889 @ 342421:                  PUSH   TYPE
39890 @ 342424:                  ASSPAR
39891 @ 342425:                  PUSH   ITEM1
39892 @ 342428:                  ASSPAR
39893 @ 342429:                  CALL  

  6892            putact(bne,0,curlab)
39894 @ 342430:                  LINE   6892 "regression-compile-tmp/imp22g-77.imp"
39895 @ 342470:                  PUSH   PUTACT
39896 @ 342473:                  PUSHI  #0x00000016
39897 @ 342478:                  ASSPAR
39898 @ 342479:                  PUSHI  #0x00000000
39899 @ 342484:                  ASSPAR
39900 @ 342485:                  PUSH   CURLAB
39901 @ 342488:                  ASSPAR
39902 @ 342489:                  CALL  

  6893            putact(signal,litref(7),undef)
39903 @ 342490:                  LINE   6893 "regression-compile-tmp/imp22g-77.imp"
39904 @ 342530:                  PUSH   PUTACT
39905 @ 342533:                  PUSHI  #0x00000049
39906 @ 342538:                  ASSPAR
39907 @ 342539:                  PUSH   LITREF
39908 @ 342542:                  PUSHI  #0x00000007
39909 @ 342547:                  ASSPAR
39910 @ 342548:                  CALL  
39911 @ 342549:                  ASSPAR
39912 @ 342550:                  PUSHI  #0x00000010
39913 @ 342555:                  ASSPAR
39914 @ 342556:                  CALL  

  6894            putact(0,undef,undef)
39915 @ 342557:                  LINE   6894 "regression-compile-tmp/imp22g-77.imp"
39916 @ 342597:                  PUSH   PUTACT
39917 @ 342600:                  PUSHI  #0x00000000
39918 @ 342605:                  ASSPAR
39919 @ 342606:                  PUSHI  #0x00000010
39920 @ 342611:                  ASSPAR
39921 @ 342612:                  PUSHI  #0x00000010
39922 @ 342617:                  ASSPAR
39923 @ 342618:                  CALL  

  6895          %finish
39924 @ 342619:                  LINE   6895 "regression-compile-tmp/imp22g-77.imp"
39925 @ 342659:                  LOCATE L_000c

  6896        %else
39926 @ 342662:                  LINE   6896 "regression-compile-tmp/imp22g-77.imp"
39927 @ 342702:                  GOTO   L_0009
39928 @ 342705:                  LOCATE L_000a

  6897          error(classerr+point) %if ditem_flags&proc = 0
39929 @ 342708:                  LINE   6897 "regression-compile-tmp/imp22g-77.imp"
39930 @ 342748:                  PUSH   DITEM
39931 @ 342751:                  SELECT 1
39932 @ 342754:                  PUSHI  #0x00003000
39933 @ 342759:                  AND   
39934 @ 342760:                  PUSHI  #0x00000000
39935 @ 342765:                  JUMPIF # L_000d
39936 @ 342769:                  PUSH   ERROR
39937 @ 342772:                  PUSHI  #0x0000000a
39938 @ 342777:                  PUSHI  #0x00000040
39939 @ 342782:                  ADD   
39940 @ 342783:                  ASSPAR
39941 @ 342784:                  CALL  
39942 @ 342785:                  LOCATE L_000d

  6898          tp == typecell(ditem_type)
39943 @ 342788:                  LINE   6898 "regression-compile-tmp/imp22g-77.imp"
39944 @ 342828:                  PUSH   TP
39945 @ 342831:                  PUSH   TYPECELL
39946 @ 342834:                  PUSH   DITEM
39947 @ 342837:                  SELECT 2
39948 @ 342840:                  ASSPAR
39949 @ 342841:                  CALL  
39950 @ 342842:                  ASSREF

  6899          %if tp_type # 0 %start;  !function as routine
39951 @ 342843:                  LINE   6899 "regression-compile-tmp/imp22g-77.imp"
39952 @ 342883:                  PUSH   TP
39953 @ 342886:                  SELECT 2
39954 @ 342889:                  PUSHI  #0x00000000
39955 @ 342894:                  JUMPIF = L_000d

  6900            get PARLIST(tp_type)
39956 @ 342898:                  LINE   6900 "regression-compile-tmp/imp22g-77.imp"
39957 @ 342938:                  PUSH   GETPARLIST
39958 @ 342941:                  PUSH   TP
39959 @ 342944:                  SELECT 2
39960 @ 342947:                  ASSPAR
39961 @ 342948:                  CALL  

  6901            putact2(assign,value)
39962 @ 342949:                  LINE   6901 "regression-compile-tmp/imp22g-77.imp"
39963 @ 342989:                  PUSH   PUTACT2
39964 @ 342992:                  PUSHI  #0x00000022
39965 @ 342997:                  ASSPAR
39966 @ 342998:                  PUSH   VALUE
39967 @ 343001:                  ASSPAR
39968 @ 343002:                  CALL  

  6902          %else
39969 @ 343003:                  LINE   6902 "regression-compile-tmp/imp22g-77.imp"
39970 @ 343043:                  GOTO   L_000c
39971 @ 343046:                  LOCATE L_000d

  6903            get PARLIST(0)
39972 @ 343049:                  LINE   6903 "regression-compile-tmp/imp22g-77.imp"
39973 @ 343089:                  PUSH   GETPARLIST
39974 @ 343092:                  PUSHI  #0x00000000
39975 @ 343097:                  ASSPAR
39976 @ 343098:                  CALL  

  6904          %finish
39977 @ 343099:                  LINE   6904 "regression-compile-tmp/imp22g-77.imp"
39978 @ 343139:                  LOCATE L_000c

  6905        %finish
39979 @ 343142:                  LINE   6905 "regression-compile-tmp/imp22g-77.imp"
39980 @ 343182:                  LOCATE L_0009

  6906      %else
39981 @ 343185:                  LINE   6906 "regression-compile-tmp/imp22g-77.imp"
39982 @ 343225:                  GOTO   L_0006
39983 @ 343228:                  LOCATE L_0007

  6907        c_access = 0 %if np = np0;  !unconditional
39984 @ 343231:                  LINE   6907 "regression-compile-tmp/imp22g-77.imp"
39985 @ 343271:                  PUSH   NP
39986 @ 343274:                  PUSH   NP0
39987 @ 343277:                  JUMPIF # L_000a
39988 @ 343281:                  PUSH   C
39989 @ 343284:                  SELECT 16
39990 @ 343287:                  PUSHI  #0x00000000
39991 @ 343292:                  ASSVAL
39992 @ 343293:                  LOCATE L_000a

  6908        %if a(keymonitor)=TRUE %start
39993 @ 343296:                  LINE   6908 "regression-compile-tmp/imp22g-77.imp"
39994 @ 343336:                  PUSH   A
39995 @ 343339:                  PUSHI  #0x0000000d
39996 @ 343344:                  ASSPAR
39997 @ 343345:                  CALL  
39998 @ 343346:                  PUSHI  #0x00000001
39999 @ 343351:                  JUMPIF # L_000a

  6909          c_access = 1
  6910  !        fault(monitor<<8)
40000 @ 343355:                  LINE   6909 "regression-compile-tmp/imp22g-77.imp"
40001 @ 343395:                  PUSH   C
40002 @ 343398:                  SELECT 16
40003 @ 343401:                  PUSHI  #0x00000001
40004 @ 343406:                  ASSVAL

  6911       %finish %else %if a(exit)=TRUE %start;  !%exit, %continue
40005 @ 343407:                  LINE   6911 "regression-compile-tmp/imp22g-77.imp"
40006 @ 343447:                  GOTO   L_0009
40007 @ 343450:                  LOCATE L_000a
40008 @ 343453:                  PUSH   A
40009 @ 343456:                  PUSHI  #0x00000006
40010 @ 343461:                  ASSPAR
40011 @ 343462:                  CALL  
40012 @ 343463:                  PUSHI  #0x00000001
40013 @ 343468:                  JUMPIF # L_000a

  6912          %if c_looplab = 0 %then fault(notinloop+point) %c
  6913          %else putact(jumpout,c_looplab,c_looplab+subatom)
40014 @ 343472:                  LINE   6912 "regression-compile-tmp/imp22g-77.imp"
40015 @ 343512:                  PUSH   C
40016 @ 343515:                  SELECT 19
40017 @ 343518:                  PUSHI  #0x00000000
40018 @ 343523:                  JUMPIF # L_000d
40019 @ 343527:                  PUSH   FAULT
40020 @ 343530:                  PUSHI  #0x00000011
40021 @ 343535:                  PUSHI  #0x00000040
40022 @ 343540:                  ADD   
40023 @ 343541:                  ASSPAR
40024 @ 343542:                  CALL  
40025 @ 343543:                  GOTO   L_000c
40026 @ 343546:                  LOCATE L_000d
40027 @ 343549:                  PUSH   PUTACT
40028 @ 343552:                  PUSHI  #0x00000029
40029 @ 343557:                  ASSPAR
40030 @ 343558:                  PUSH   C
40031 @ 343561:                  SELECT 19
40032 @ 343564:                  ASSPAR
40033 @ 343565:                  PUSH   C
40034 @ 343568:                  SELECT 19
40035 @ 343571:                  PUSH   SUBATOM
40036 @ 343574:                  ADD   
40037 @ 343575:                  ASSPAR
40038 @ 343576:                  CALL  
40039 @ 343577:                  LOCATE L_000c

  6914          %exit
40040 @ 343580:                  LINE   6914 "regression-compile-tmp/imp22g-77.imp"
40041 @ 343620:                  GOTO   L_0004

  6915       %finish %else %if a(keyreturn)=TRUE %start
40042 @ 343623:                  LINE   6915 "regression-compile-tmp/imp22g-77.imp"
40043 @ 343663:                  LOCATE L_000a
40044 @ 343666:                  PUSH   A
40045 @ 343669:                  PUSHI  #0x00000007
40046 @ 343674:                  ASSPAR
40047 @ 343675:                  CALL  
40048 @ 343676:                  PUSHI  #0x00000001
40049 @ 343681:                  JUMPIF # L_000a

  6916          item = 0;  value = 0
40050 @ 343685:                  LINE   6916 "regression-compile-tmp/imp22g-77.imp"
40051 @ 343725:                  PUSH   ITEM
40052 @ 343728:                  PUSHI  #0x00000000
40053 @ 343733:                  ASSVAL
40054 @ 343734:                  LINE   6916 "regression-compile-tmp/imp22g-77.imp"
40055 @ 343774:                  PUSH   VALUE
40056 @ 343777:                  PUSHI  #0x00000000
40057 @ 343782:                  ASSVAL

  6917          get RESULT %if c_type # 0
40058 @ 343783:                  LINE   6917 "regression-compile-tmp/imp22g-77.imp"
40059 @ 343823:                  PUSH   C
40060 @ 343826:                  SELECT 7
40061 @ 343829:                  PUSHI  #0x00000000
40062 @ 343834:                  JUMPIF = L_000d
40063 @ 343838:                  PUSH   GETRESULT
40064 @ 343841:                  CALL  
40065 @ 343842:                  LOCATE L_000d

  6918          putact2(return,0)
40066 @ 343845:                  LINE   6918 "regression-compile-tmp/imp22g-77.imp"
40067 @ 343885:                  PUSH   PUTACT2
40068 @ 343888:                  PUSHI  #0x00000026
40069 @ 343893:                  ASSPAR
40070 @ 343894:                  PUSHI  #0x00000000
40071 @ 343899:                  ASSPAR
40072 @ 343900:                  CALL  

  6919          %exit
40073 @ 343901:                  LINE   6919 "regression-compile-tmp/imp22g-77.imp"
40074 @ 343941:                  GOTO   L_0004

  6920       %finish %else %if a(keyresult)=TRUE %start
40075 @ 343944:                  LINE   6920 "regression-compile-tmp/imp22g-77.imp"
40076 @ 343984:                  LOCATE L_000a
40077 @ 343987:                  PUSH   A
40078 @ 343990:                  PUSHI  #0x00000009
40079 @ 343995:                  ASSPAR
40080 @ 343996:                  CALL  
40081 @ 343997:                  PUSHI  #0x00000001
40082 @ 344002:                  JUMPIF # L_000a

  6921          error(notinfun+point) %if c_type = 0
40083 @ 344006:                  LINE   6921 "regression-compile-tmp/imp22g-77.imp"
40084 @ 344046:                  PUSH   C
40085 @ 344049:                  SELECT 7
40086 @ 344052:                  PUSHI  #0x00000000
40087 @ 344057:                  JUMPIF # L_000d
40088 @ 344061:                  PUSH   ERROR
40089 @ 344064:                  PUSHI  #0x00000013
40090 @ 344069:                  PUSHI  #0x00000040
40091 @ 344074:                  ADD   
40092 @ 344075:                  ASSPAR
40093 @ 344076:                  CALL  
40094 @ 344077:                  LOCATE L_000d

  6922          syntax error %unless a assop(c_type)=TRUE
40095 @ 344080:                  LINE   6922 "regression-compile-tmp/imp22g-77.imp"
40096 @ 344120:                  PUSH   AASSOP
40097 @ 344123:                  PUSH   C
40098 @ 344126:                  SELECT 7
40099 @ 344129:                  ASSPAR
40100 @ 344130:                  CALL  
40101 @ 344131:                  PUSHI  #0x00000001
40102 @ 344136:                  JUMPIF = L_000d
40103 @ 344140:                  PUSH   SYNTAXERROR
40104 @ 344143:                  CALL  
40105 @ 344144:                  LOCATE L_000d

  6923          get RESULT
40106 @ 344147:                  LINE   6923 "regression-compile-tmp/imp22g-77.imp"
40107 @ 344187:                  PUSH   GETRESULT
40108 @ 344190:                  CALL  

  6924          putact2(return,0)
40109 @ 344191:                  LINE   6924 "regression-compile-tmp/imp22g-77.imp"
40110 @ 344231:                  PUSH   PUTACT2
40111 @ 344234:                  PUSHI  #0x00000026
40112 @ 344239:                  ASSPAR
40113 @ 344240:                  PUSHI  #0x00000000
40114 @ 344245:                  ASSPAR
40115 @ 344246:                  CALL  

  6925          %exit
40116 @ 344247:                  LINE   6925 "regression-compile-tmp/imp22g-77.imp"
40117 @ 344287:                  GOTO   L_0004

  6926       %finish %else %if a(tf)=TRUE %start;  !%true, %false
40118 @ 344290:                  LINE   6926 "regression-compile-tmp/imp22g-77.imp"
40119 @ 344330:                  LOCATE L_000a
40120 @ 344333:                  PUSH   A
40121 @ 344336:                  PUSHI  #0x00000008
40122 @ 344341:                  ASSPAR
40123 @ 344342:                  CALL  
40124 @ 344343:                  PUSHI  #0x00000001
40125 @ 344348:                  JUMPIF # L_000a

  6927          %if c_type # booltype %then fault(notinpred+point) %c
  6928          %else putact(return,0,litref(subatom))
40126 @ 344352:                  LINE   6927 "regression-compile-tmp/imp22g-77.imp"
40127 @ 344392:                  PUSH   C
40128 @ 344395:                  SELECT 7
40129 @ 344398:                  PUSHI  #0x0000003a
40130 @ 344403:                  JUMPIF = L_000d
40131 @ 344407:                  PUSH   FAULT
40132 @ 344410:                  PUSHI  #0x00000014
40133 @ 344415:                  PUSHI  #0x00000040
40134 @ 344420:                  ADD   
40135 @ 344421:                  ASSPAR
40136 @ 344422:                  CALL  
40137 @ 344423:                  GOTO   L_000c
40138 @ 344426:                  LOCATE L_000d
40139 @ 344429:                  PUSH   PUTACT
40140 @ 344432:                  PUSHI  #0x00000026
40141 @ 344437:                  ASSPAR
40142 @ 344438:                  PUSHI  #0x00000000
40143 @ 344443:                  ASSPAR
40144 @ 344444:                  PUSH   LITREF
40145 @ 344447:                  PUSH   SUBATOM
40146 @ 344450:                  ASSPAR
40147 @ 344451:                  CALL  
40148 @ 344452:                  ASSPAR
40149 @ 344453:                  CALL  
40150 @ 344454:                  LOCATE L_000c

  6929          %exit
40151 @ 344457:                  LINE   6929 "regression-compile-tmp/imp22g-77.imp"
40152 @ 344497:                  GOTO   L_0004

  6930       %finish %else %if a(arrow)=TRUE %or a(keygoto)=TRUE %start
40153 @ 344500:                  LINE   6930 "regression-compile-tmp/imp22g-77.imp"
40154 @ 344540:                  LOCATE L_000a
40155 @ 344543:                  PUSH   A
40156 @ 344546:                  PUSHI  #0x0000004a
40157 @ 344551:                  ASSPAR
40158 @ 344552:                  CALL  
40159 @ 344553:                  PUSHI  #0x00000001
40160 @ 344558:                  JUMPIF = L_000b
40161 @ 344562:                  PUSH   A
40162 @ 344565:                  PUSHI  #0x0000000b
40163 @ 344570:                  ASSPAR
40164 @ 344571:                  CALL  
40165 @ 344572:                  PUSHI  #0x00000001
40166 @ 344577:                  JUMPIF # L_000a
40167 @ 344581:                  LOCATE L_000b

  6931          nonstandard(5) %if atom = keygoto
40168 @ 344584:                  LINE   6931 "regression-compile-tmp/imp22g-77.imp"
40169 @ 344624:                  PUSH   ATOM
40170 @ 344627:                  PUSHI  #0x0000000b
40171 @ 344632:                  JUMPIF # L_000d
40172 @ 344636:                  PUSH   NONSTANDARD
40173 @ 344639:                  PUSHI  #0x00000005
40174 @ 344644:                  ASSPAR
40175 @ 344645:                  CALL  
40176 @ 344646:                  LOCATE L_000d

  6932          get(ident)
40177 @ 344649:                  LINE   6932 "regression-compile-tmp/imp22g-77.imp"
40178 @ 344689:                  PUSH   GET
40179 @ 344692:                  PUSHI  #0x00000035
40180 @ 344697:                  ASSPAR
40181 @ 344698:                  CALL  

  6933          %if byteinteger(fp) # '(' %start
40182 @ 344699:                  LINE   6933 "regression-compile-tmp/imp22g-77.imp"
40183 @ 344739:                  PUSH   BYTEINTEGER
40184 @ 344742:                  PUSH   FP
40185 @ 344745:                  ASSPAR
40186 @ 344746:                  CALL  
40187 @ 344747:                  PUSHI  #0x00000028
40188 @ 344752:                  JUMPIF = L_000d

  6934            declare(forwardlabel) %if item < c_localdpos {new} %c
  6935                                  %or ditem_type # 0 {error}
40189 @ 344756:                  LINE   6934 "regression-compile-tmp/imp22g-77.imp"
40190 @ 344796:                  PUSH   ITEM
40191 @ 344799:                  PUSH   C
40192 @ 344802:                  SELECT 8
40193 @ 344805:                  JUMPIF < L_0011
40194 @ 344809:                  PUSH   DITEM
40195 @ 344812:                  SELECT 2
40196 @ 344815:                  PUSHI  #0x00000000
40197 @ 344820:                  JUMPIF = L_0010
40198 @ 344824:                  LOCATE L_0011
40199 @ 344827:                  PUSH   DECLARE
40200 @ 344830:                  PUSH   FORWARDLABEL
40201 @ 344833:                  ASSPAR
40202 @ 344834:                  CALL  
40203 @ 344835:                  LOCATE L_0010

  6936            putact2(goto,0)
40204 @ 344838:                  LINE   6936 "regression-compile-tmp/imp22g-77.imp"
40205 @ 344878:                  PUSH   PUTACT2
40206 @ 344881:                  PUSHI  #0x00000010
40207 @ 344886:                  ASSPAR
40208 @ 344887:                  PUSHI  #0x00000000
40209 @ 344892:                  ASSPAR
40210 @ 344893:                  CALL  

  6937          %else
40211 @ 344894:                  LINE   6937 "regression-compile-tmp/imp22g-77.imp"
40212 @ 344934:                  GOTO   L_000c
40213 @ 344937:                  LOCATE L_000d

  6938            name error %if item < c_localdpos
40214 @ 344940:                  LINE   6938 "regression-compile-tmp/imp22g-77.imp"
40215 @ 344980:                  PUSH   ITEM
40216 @ 344983:                  PUSH   C
40217 @ 344986:                  SELECT 8
40218 @ 344989:                  JUMPIF >= L_0010
40219 @ 344993:                  PUSH   NAMEERROR
40220 @ 344996:                  CALL  
40221 @ 344997:                  LOCATE L_0010

  6939            error(classerr+point) %unless ditem_mode = labmode %c
  6940                                  %and ditem_type # 0
40222 @ 345000:                  LINE   6939 "regression-compile-tmp/imp22g-77.imp"
40223 @ 345040:                  PUSH   DITEM
40224 @ 345043:                  SELECT 8
40225 @ 345046:                  PUSHI  #0x000000ba
40226 @ 345051:                  JUMPIF # L_0011
40227 @ 345055:                  PUSH   DITEM
40228 @ 345058:                  SELECT 2
40229 @ 345061:                  PUSHI  #0x00000000
40230 @ 345066:                  JUMPIF # L_0010
40231 @ 345070:                  LOCATE L_0011
40232 @ 345073:                  PUSH   ERROR
40233 @ 345076:                  PUSHI  #0x0000000a
40234 @ 345081:                  PUSHI  #0x00000040
40235 @ 345086:                  ADD   
40236 @ 345087:                  ASSPAR
40237 @ 345088:                  CALL  
40238 @ 345089:                  LOCATE L_0010

  6941            item1 = item
40239 @ 345092:                  LINE   6941 "regression-compile-tmp/imp22g-77.imp"
40240 @ 345132:                  PUSH   ITEM1
40241 @ 345135:                  PUSH   ITEM
40242 @ 345138:                  ASSVAL

  6942            get(left)
40243 @ 345139:                  LINE   6942 "regression-compile-tmp/imp22g-77.imp"
40244 @ 345179:                  PUSH   GET
40245 @ 345182:                  PUSHI  #0x00000037
40246 @ 345187:                  ASSPAR
40247 @ 345188:                  CALL  

  6943            get VALUE(typecell(ditem_type)_xtype);  !index
40248 @ 345189:                  LINE   6943 "regression-compile-tmp/imp22g-77.imp"
40249 @ 345229:                  PUSH   GETVALUE
40250 @ 345232:                  PUSH   TYPECELL
40251 @ 345235:                  PUSH   DITEM
40252 @ 345238:                  SELECT 2
40253 @ 345241:                  ASSPAR
40254 @ 345242:                  CALL  
40255 @ 345243:                  SELECT 4
40256 @ 345246:                  ASSPAR
40257 @ 345247:                  CALL  

  6944            get(right)
40258 @ 345248:                  LINE   6944 "regression-compile-tmp/imp22g-77.imp"
40259 @ 345288:                  PUSH   GET
40260 @ 345291:                  PUSHI  #0x0000003d
40261 @ 345296:                  ASSPAR
40262 @ 345297:                  CALL  

  6945            putact2(swgoto,item1)
40263 @ 345298:                  LINE   6945 "regression-compile-tmp/imp22g-77.imp"
40264 @ 345338:                  PUSH   PUTACT2
40265 @ 345341:                  PUSHI  #0x0000002b
40266 @ 345346:                  ASSPAR
40267 @ 345347:                  PUSH   ITEM1
40268 @ 345350:                  ASSPAR
40269 @ 345351:                  CALL  

  6946          %finish
40270 @ 345352:                  LINE   6946 "regression-compile-tmp/imp22g-77.imp"
40271 @ 345392:                  LOCATE L_000c

  6947          %exit
40272 @ 345395:                  LINE   6947 "regression-compile-tmp/imp22g-77.imp"
40273 @ 345435:                  GOTO   L_0004

  6948       %finish %else %if a(keystop)=TRUE %start
40274 @ 345438:                  LINE   6948 "regression-compile-tmp/imp22g-77.imp"
40275 @ 345478:                  LOCATE L_000a
40276 @ 345481:                  PUSH   A
40277 @ 345484:                  PUSHI  #0x0000000a
40278 @ 345489:                  ASSPAR
40279 @ 345490:                  CALL  
40280 @ 345491:                  PUSHI  #0x00000001
40281 @ 345496:                  JUMPIF # L_000a

  6949          putact(stop,0,0)
40282 @ 345500:                  LINE   6949 "regression-compile-tmp/imp22g-77.imp"
40283 @ 345540:                  PUSH   PUTACT
40284 @ 345543:                  PUSHI  #0x00000025
40285 @ 345548:                  ASSPAR
40286 @ 345549:                  PUSHI  #0x00000000
40287 @ 345554:                  ASSPAR
40288 @ 345555:                  PUSHI  #0x00000000
40289 @ 345560:                  ASSPAR
40290 @ 345561:                  CALL  

  6950          %exit
40291 @ 345562:                  LINE   6950 "regression-compile-tmp/imp22g-77.imp"
40292 @ 345602:                  GOTO   L_0004

  6951       %finish %else %if a(keysignal)=TRUE %start
40293 @ 345605:                  LINE   6951 "regression-compile-tmp/imp22g-77.imp"
40294 @ 345645:                  LOCATE L_000a
40295 @ 345648:                  PUSH   A
40296 @ 345651:                  PUSHI  #0x0000000c
40297 @ 345656:                  ASSPAR
40298 @ 345657:                  CALL  
40299 @ 345658:                  PUSHI  #0x00000001
40300 @ 345663:                  JUMPIF # L_000a

  6952          c_access = 1
40301 @ 345667:                  LINE   6952 "regression-compile-tmp/imp22g-77.imp"
40302 @ 345707:                  PUSH   C
40303 @ 345710:                  SELECT 16
40304 @ 345713:                  PUSHI  #0x00000001
40305 @ 345718:                  ASSVAL

  6953          allow(keyevent)
40306 @ 345719:                  LINE   6953 "regression-compile-tmp/imp22g-77.imp"
40307 @ 345759:                  PUSH   ALLOW
40308 @ 345762:                  PUSHI  #0x0000002e
40309 @ 345767:                  ASSPAR
40310 @ 345768:                  CALL  

  6954          get LITERAL(inttype)
40311 @ 345769:                  LINE   6954 "regression-compile-tmp/imp22g-77.imp"
40312 @ 345809:                  PUSH   GETLITERAL
40313 @ 345812:                  PUSHI  #0x0000002b
40314 @ 345817:                  ASSPAR
40315 @ 345818:                  CALL  

  6955          expfault(rangerr) %unless 0 <= value <= 15
40316 @ 345819:                  LINE   6955 "regression-compile-tmp/imp22g-77.imp"
40317 @ 345859:                  PUSHI  #0x00000000
40318 @ 345864:                  PUSH   VALUE
40319 @ 345867:                  JUMPIFD > L_000e
40320 @ 345871:                  PUSHI  #0x0000000f
40321 @ 345876:                  JUMPIF <= L_000d
40322 @ 345880:                  LOCATE L_000e
40323 @ 345883:                  PUSH   EXPFAULT
40324 @ 345886:                  PUSHI  #0x00000018
40325 @ 345891:                  ASSPAR
40326 @ 345892:                  CALL  
40327 @ 345893:                  LOCATE L_000d

  6956          item1 = litref(value);  item = undef
40328 @ 345896:                  LINE   6956 "regression-compile-tmp/imp22g-77.imp"
40329 @ 345936:                  PUSH   ITEM1
40330 @ 345939:                  PUSH   LITREF
40331 @ 345942:                  PUSH   VALUE
40332 @ 345945:                  ASSPAR
40333 @ 345946:                  CALL  
40334 @ 345947:                  ASSVAL
40335 @ 345948:                  LINE   6956 "regression-compile-tmp/imp22g-77.imp"
40336 @ 345988:                  PUSH   ITEM
40337 @ 345991:                  PUSHI  #0x00000010
40338 @ 345996:                  ASSVAL

  6957          %if a(comma)=TRUE %start
40339 @ 345997:                  LINE   6957 "regression-compile-tmp/imp22g-77.imp"
40340 @ 346037:                  PUSH   A
40341 @ 346040:                  PUSHI  #0x0000003c
40342 @ 346045:                  ASSPAR
40343 @ 346046:                  CALL  
40344 @ 346047:                  PUSHI  #0x00000001
40345 @ 346052:                  JUMPIF # L_000d

  6958  l1:       %if a(comma)=TRUE %then matched = 0 %else get VALUE(bytetype)
40346 @ 346056:                  LINE   6958 "regression-compile-tmp/imp22g-77.imp"
40347 @ 346096:                  LABEL  L_0188
40348 @ 346099:                  LINE   6958 "regression-compile-tmp/imp22g-77.imp"
40349 @ 346139:                  PUSH   A
40350 @ 346142:                  PUSHI  #0x0000003c
40351 @ 346147:                  ASSPAR
40352 @ 346148:                  CALL  
40353 @ 346149:                  PUSHI  #0x00000001
40354 @ 346154:                  JUMPIF # L_0010
40355 @ 346158:                  PUSH   MATCHED
40356 @ 346161:                  PUSHI  #0x00000000
40357 @ 346166:                  ASSVAL
40358 @ 346167:                  GOTO   L_000f
40359 @ 346170:                  LOCATE L_0010
40360 @ 346173:                  PUSH   GETVALUE
40361 @ 346176:                  PUSHI  #0x00000034
40362 @ 346181:                  ASSPAR
40363 @ 346182:                  CALL  
40364 @ 346183:                  LOCATE L_000f

  6959          %finish
40365 @ 346186:                  LINE   6959 "regression-compile-tmp/imp22g-77.imp"
40366 @ 346226:                  LOCATE L_000d

  6960          putact2(signal,item1)
40367 @ 346229:                  LINE   6960 "regression-compile-tmp/imp22g-77.imp"
40368 @ 346269:                  PUSH   PUTACT2
40369 @ 346272:                  PUSHI  #0x00000049
40370 @ 346277:                  ASSPAR
40371 @ 346278:                  PUSH   ITEM1
40372 @ 346281:                  ASSPAR
40373 @ 346282:                  CALL  

  6961          item = undef
40374 @ 346283:                  LINE   6961 "regression-compile-tmp/imp22g-77.imp"
40375 @ 346323:                  PUSH   ITEM
40376 @ 346326:                  PUSHI  #0x00000010
40377 @ 346331:                  ASSVAL

  6962          %if a(comma)=TRUE %start
40378 @ 346332:                  LINE   6962 "regression-compile-tmp/imp22g-77.imp"
40379 @ 346372:                  PUSH   A
40380 @ 346375:                  PUSHI  #0x0000003c
40381 @ 346380:                  ASSPAR
40382 @ 346381:                  CALL  
40383 @ 346382:                  PUSHI  #0x00000001
40384 @ 346387:                  JUMPIF # L_000d

  6963  l2:       %if a(comma)=TRUE %then matched = 0 %else get VALUE(inttype)
40385 @ 346391:                  LINE   6963 "regression-compile-tmp/imp22g-77.imp"
40386 @ 346431:                  LABEL  L_0189
40387 @ 346434:                  LINE   6963 "regression-compile-tmp/imp22g-77.imp"
40388 @ 346474:                  PUSH   A
40389 @ 346477:                  PUSHI  #0x0000003c
40390 @ 346482:                  ASSPAR
40391 @ 346483:                  CALL  
40392 @ 346484:                  PUSHI  #0x00000001
40393 @ 346489:                  JUMPIF # L_0010
40394 @ 346493:                  PUSH   MATCHED
40395 @ 346496:                  PUSHI  #0x00000000
40396 @ 346501:                  ASSVAL
40397 @ 346502:                  GOTO   L_000f
40398 @ 346505:                  LOCATE L_0010
40399 @ 346508:                  PUSH   GETVALUE
40400 @ 346511:                  PUSHI  #0x0000002b
40401 @ 346516:                  ASSPAR
40402 @ 346517:                  CALL  
40403 @ 346518:                  LOCATE L_000f

  6964          %finish
40404 @ 346521:                  LINE   6964 "regression-compile-tmp/imp22g-77.imp"
40405 @ 346561:                  LOCATE L_000d

  6965          item1 = normitem;  item = undef
40406 @ 346564:                  LINE   6965 "regression-compile-tmp/imp22g-77.imp"
40407 @ 346604:                  PUSH   ITEM1
40408 @ 346607:                  PUSH   NORMITEM
40409 @ 346610:                  CALL  
40410 @ 346611:                  ASSVAL
40411 @ 346612:                  LINE   6965 "regression-compile-tmp/imp22g-77.imp"
40412 @ 346652:                  PUSH   ITEM
40413 @ 346655:                  PUSHI  #0x00000010
40414 @ 346660:                  ASSVAL

  6966          get VALUE(stringtype) %if a(comma)=TRUE
40415 @ 346661:                  LINE   6966 "regression-compile-tmp/imp22g-77.imp"
40416 @ 346701:                  PUSH   A
40417 @ 346704:                  PUSHI  #0x0000003c
40418 @ 346709:                  ASSPAR
40419 @ 346710:                  CALL  
40420 @ 346711:                  PUSHI  #0x00000001
40421 @ 346716:                  JUMPIF # L_000d
40422 @ 346720:                  PUSH   GETVALUE
40423 @ 346723:                  PUSHI  #0x00000040
40424 @ 346728:                  ASSPAR
40425 @ 346729:                  CALL  
40426 @ 346730:                  LOCATE L_000d

  6967          putact2(0,item1)
40427 @ 346733:                  LINE   6967 "regression-compile-tmp/imp22g-77.imp"
40428 @ 346773:                  PUSH   PUTACT2
40429 @ 346776:                  PUSHI  #0x00000000
40430 @ 346781:                  ASSPAR
40431 @ 346782:                  PUSH   ITEM1
40432 @ 346785:                  ASSPAR
40433 @ 346786:                  CALL  

  6968          %exit
40434 @ 346787:                  LINE   6968 "regression-compile-tmp/imp22g-77.imp"
40435 @ 346827:                  GOTO   L_0004

  6969        %else
40436 @ 346830:                  LINE   6969 "regression-compile-tmp/imp22g-77.imp"
40437 @ 346870:                  LOCATE L_000a

  6970          syntax error
40438 @ 346873:                  LINE   6970 "regression-compile-tmp/imp22g-77.imp"
40439 @ 346913:                  PUSH   SYNTAXERROR
40440 @ 346916:                  CALL  

  6971        %finish
40441 @ 346917:                  LINE   6971 "regression-compile-tmp/imp22g-77.imp"
40442 @ 346957:                  LOCATE L_0009

  6972      %finish
40443 @ 346960:                  LINE   6972 "regression-compile-tmp/imp22g-77.imp"
40444 @ 347000:                  LOCATE L_0006

  6973    %repeat %until %not a(keyand)=TRUE
40445 @ 347003:                  LINE   6973 "regression-compile-tmp/imp22g-77.imp"
40446 @ 347043:                  PUSH   A
40447 @ 347046:                  PUSHI  #0x00000048
40448 @ 347051:                  ASSPAR
40449 @ 347052:                  CALL  
40450 @ 347053:                  PUSHI  #0x00000001
40451 @ 347058:                  JUMPIF # L_0004
40452 @ 347062:                  REPEAT L_0003
40453 @ 347065:                  LOCATE L_0004

  6974  %end;  !GET INSTRUCTION
  6975  
40454 @ 347068:                  LINE   6974 "regression-compile-tmp/imp22g-77.imp"
40455 @ 347108:               END    _lev0id0_GETSTATEMENTS_GETINSTRUCTION {lev=3 --> 2}

  6976  %routine GET FOR CLAUSE
  6977  !Global: FORINF,ENDVAL
40456 @ 347109:               LINE   6976 "regression-compile-tmp/imp22g-77.imp"
40457 @ 347149:               DEF    GETFORCLAUSE (_lev0id0_GETSTATEMENTS_GETFORCLAUSE) p1=V_0186 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
40458 @ 347173:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
40459 @ 347174:                  FINISH ) {lev=3}

  6978  %integer loopvar,lvtype,k,s,start,sval,i,inc,ival,e,n
40460 @ 347175:                  LINE   6978 "regression-compile-tmp/imp22g-77.imp"
40461 @ 347215:                  DEF    LOOPVAR p1=V_0187 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
40462 @ 347234:                  DEF    LVTYPE p1=V_0188 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
40463 @ 347252:                  DEF    K p1=V_0189 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
40464 @ 347265:                  DEF    S p1=V_018a a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
40465 @ 347278:                  DEF    START p1=V_018b a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
40466 @ 347295:                  DEF    SVAL p1=V_018c a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
40467 @ 347311:                  DEF    I p1=V_018d a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
40468 @ 347324:                  DEF    INC p1=V_018e a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
40469 @ 347339:                  DEF    IVAL p1=V_018f a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
40470 @ 347355:                  DEF    E p1=V_0190 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
40471 @ 347368:                  DEF    N p1=V_0191 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  6979  %integer end
40472 @ 347381:                  LINE   6979 "regression-compile-tmp/imp22g-77.imp"
40473 @ 347421:                  DEF    END p1=V_0192 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  6980  %record(identinfo)%name tp
40474 @ 347436:                  LINE   6980 "regression-compile-tmp/imp22g-77.imp"
40475 @ 347476:                  DEF    TP p1=V_0193 a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  6981    forinf = 0
40476 @ 347490:                  LINE   6981 "regression-compile-tmp/imp22g-77.imp"
40477 @ 347530:                  PUSH   FORINF
40478 @ 347533:                  PUSHI  #0x00000000
40479 @ 347538:                  ASSVAL

  6982    get(ident)
40480 @ 347539:                  LINE   6982 "regression-compile-tmp/imp22g-77.imp"
40481 @ 347579:                  PUSH   GET
40482 @ 347582:                  PUSHI  #0x00000035
40483 @ 347587:                  ASSPAR
40484 @ 347588:                  CALL  

  6983    name error %if item <= 0
40485 @ 347589:                  LINE   6983 "regression-compile-tmp/imp22g-77.imp"
40486 @ 347629:                  PUSH   ITEM
40487 @ 347632:                  PUSHI  #0x00000000
40488 @ 347637:                  JUMPIF > L_0004
40489 @ 347641:                  PUSH   NAMEERROR
40490 @ 347644:                  CALL  
40491 @ 347645:                  LOCATE L_0004

  6984    lvtype = ditem_type;  tp == typecell(lvtype)
40492 @ 347648:                  LINE   6984 "regression-compile-tmp/imp22g-77.imp"
40493 @ 347688:                  PUSH   LVTYPE
40494 @ 347691:                  PUSH   DITEM
40495 @ 347694:                  SELECT 2
40496 @ 347697:                  ASSVAL
40497 @ 347698:                  LINE   6984 "regression-compile-tmp/imp22g-77.imp"
40498 @ 347738:                  PUSH   TP
40499 @ 347741:                  PUSH   TYPECELL
40500 @ 347744:                  PUSH   LVTYPE
40501 @ 347747:                  ASSPAR
40502 @ 347748:                  CALL  
40503 @ 347749:                  ASSREF

  6985    fault(typerr+point) %if tp_flags&nonord # 0
40504 @ 347750:                  LINE   6985 "regression-compile-tmp/imp22g-77.imp"
40505 @ 347790:                  PUSH   TP
40506 @ 347793:                  SELECT 1
40507 @ 347796:                  PUSHI  #0x0000000c
40508 @ 347801:                  AND   
40509 @ 347802:                  PUSHI  #0x00000000
40510 @ 347807:                  JUMPIF = L_0004
40511 @ 347811:                  PUSH   FAULT
40512 @ 347814:                  PUSHI  #0x0000000c
40513 @ 347819:                  PUSHI  #0x00000040
40514 @ 347824:                  ADD   
40515 @ 347825:                  ASSPAR
40516 @ 347826:                  CALL  
40517 @ 347827:                  LOCATE L_0004

  6986    loopvar = item
40518 @ 347830:                  LINE   6986 "regression-compile-tmp/imp22g-77.imp"
40519 @ 347870:                  PUSH   LOOPVAR
40520 @ 347873:                  PUSH   ITEM
40521 @ 347876:                  ASSVAL

  6987    get(equals)
40522 @ 347877:                  LINE   6987 "regression-compile-tmp/imp22g-77.imp"
40523 @ 347917:                  PUSH   GET
40524 @ 347920:                  PUSHI  #0x0000004d
40525 @ 347925:                  ASSPAR
40526 @ 347926:                  CALL  

  6988    get VALUE(lvtype)
40527 @ 347927:                  LINE   6988 "regression-compile-tmp/imp22g-77.imp"
40528 @ 347967:                  PUSH   GETVALUE
40529 @ 347970:                  PUSH   LVTYPE
40530 @ 347973:                  ASSPAR
40531 @ 347974:                  CALL  

  6989    start = item;  sval = value
40532 @ 347975:                  LINE   6989 "regression-compile-tmp/imp22g-77.imp"
40533 @ 348015:                  PUSH   START
40534 @ 348018:                  PUSH   ITEM
40535 @ 348021:                  ASSVAL
40536 @ 348022:                  LINE   6989 "regression-compile-tmp/imp22g-77.imp"
40537 @ 348062:                  PUSH   SVAL
40538 @ 348065:                  PUSH   VALUE
40539 @ 348068:                  ASSVAL

  6990    get(comma)
40540 @ 348069:                  LINE   6990 "regression-compile-tmp/imp22g-77.imp"
40541 @ 348109:                  PUSH   GET
40542 @ 348112:                  PUSHI  #0x0000003c
40543 @ 348117:                  ASSPAR
40544 @ 348118:                  CALL  

  6991    get VALUE(lvtype)
40545 @ 348119:                  LINE   6991 "regression-compile-tmp/imp22g-77.imp"
40546 @ 348159:                  PUSH   GETVALUE
40547 @ 348162:                  PUSH   LVTYPE
40548 @ 348165:                  ASSPAR
40549 @ 348166:                  CALL  

  6992    inc = item;  ival = value
40550 @ 348167:                  LINE   6992 "regression-compile-tmp/imp22g-77.imp"
40551 @ 348207:                  PUSH   INC
40552 @ 348210:                  PUSH   ITEM
40553 @ 348213:                  ASSVAL
40554 @ 348214:                  LINE   6992 "regression-compile-tmp/imp22g-77.imp"
40555 @ 348254:                  PUSH   IVAL
40556 @ 348257:                  PUSH   VALUE
40557 @ 348260:                  ASSVAL

  6993    expfault(rangerr) %and ival = 1 %if inc = 0 = ival
  6994  !Deal with INC and replace START by START-INC
40558 @ 348261:                  LINE   6993 "regression-compile-tmp/imp22g-77.imp"
40559 @ 348301:                  PUSH   INC
40560 @ 348304:                  PUSHI  #0x00000000
40561 @ 348309:                  JUMPIFD # L_0004
40562 @ 348313:                  PUSH   IVAL
40563 @ 348316:                  JUMPIF # L_0004
40564 @ 348320:                  PUSH   EXPFAULT
40565 @ 348323:                  PUSHI  #0x00000018
40566 @ 348328:                  ASSPAR
40567 @ 348329:                  CALL  
40568 @ 348330:                  PUSH   IVAL
40569 @ 348333:                  PUSHI  #0x00000001
40570 @ 348338:                  ASSVAL
40571 @ 348339:                  LOCATE L_0004

  6995    k = undef
40572 @ 348342:                  LINE   6995 "regression-compile-tmp/imp22g-77.imp"
40573 @ 348382:                  PUSH   K
40574 @ 348385:                  PUSHI  #0x00000010
40575 @ 348390:                  ASSVAL

  6996    k = dict(start)_y %if start >= np0 %and dict(start)_act = add
40576 @ 348391:                  LINE   6996 "regression-compile-tmp/imp22g-77.imp"
40577 @ 348431:                  PUSH   START
40578 @ 348434:                  PUSH   NP0
40579 @ 348437:                  JUMPIF < L_0004
40580 @ 348441:                  PUSH   DICT
40581 @ 348444:                  PUSH   START
40582 @ 348447:                  ACCESS
40583 @ 348448:                  SELECT 6
40584 @ 348451:                  PUSHI  #0x00000002
40585 @ 348456:                  JUMPIF # L_0004
40586 @ 348460:                  PUSH   K
40587 @ 348463:                  PUSH   DICT
40588 @ 348466:                  PUSH   START
40589 @ 348469:                  ACCESS
40590 @ 348470:                  SELECT 14
40591 @ 348473:                  ASSVAL
40592 @ 348474:                  LOCATE L_0004

  6997    %if inc = 0 %start;  !literal increment
40593 @ 348477:                  LINE   6997 "regression-compile-tmp/imp22g-77.imp"
40594 @ 348517:                  PUSH   INC
40595 @ 348520:                  PUSHI  #0x00000000
40596 @ 348525:                  JUMPIF # L_0004

  6998      i = litref(ival)
40597 @ 348529:                  LINE   6998 "regression-compile-tmp/imp22g-77.imp"
40598 @ 348569:                  PUSH   I
40599 @ 348572:                  PUSH   LITREF
40600 @ 348575:                  PUSH   IVAL
40601 @ 348578:                  ASSPAR
40602 @ 348579:                  CALL  
40603 @ 348580:                  ASSVAL

  6999      %if start = 0 %start;  !START and INC both literal
40604 @ 348581:                  LINE   6999 "regression-compile-tmp/imp22g-77.imp"
40605 @ 348621:                  PUSH   START
40606 @ 348624:                  PUSHI  #0x00000000
40607 @ 348629:                  JUMPIF # L_0007

  7000        sval = sval-ival;  item = litref(sval)
40608 @ 348633:                  LINE   7000 "regression-compile-tmp/imp22g-77.imp"
40609 @ 348673:                  PUSH   SVAL
40610 @ 348676:                  PUSH   SVAL
40611 @ 348679:                  PUSH   IVAL
40612 @ 348682:                  SUB   
40613 @ 348683:                  ASSVAL
40614 @ 348684:                  LINE   7000 "regression-compile-tmp/imp22g-77.imp"
40615 @ 348724:                  PUSH   ITEM
40616 @ 348727:                  PUSH   LITREF
40617 @ 348730:                  PUSH   SVAL
40618 @ 348733:                  ASSPAR
40619 @ 348734:                  CALL  
40620 @ 348735:                  ASSVAL

  7001      %finish %else %if k <= 0 %start;  !START is x+lit
40621 @ 348736:                  LINE   7001 "regression-compile-tmp/imp22g-77.imp"
40622 @ 348776:                  GOTO   L_0006
40623 @ 348779:                  LOCATE L_0007
40624 @ 348782:                  PUSH   K
40625 @ 348785:                  PUSHI  #0x00000000
40626 @ 348790:                  JUMPIF > L_0007

  7002        k = litval(k)-ival
40627 @ 348794:                  LINE   7002 "regression-compile-tmp/imp22g-77.imp"
40628 @ 348834:                  PUSH   K
40629 @ 348837:                  PUSH   LITVAL
40630 @ 348840:                  PUSH   K
40631 @ 348843:                  ASSPAR
40632 @ 348844:                  CALL  
40633 @ 348845:                  PUSH   IVAL
40634 @ 348848:                  SUB   
40635 @ 348849:                  ASSVAL

  7003        item = dict(start)_x
40636 @ 348850:                  LINE   7003 "regression-compile-tmp/imp22g-77.imp"
40637 @ 348890:                  PUSH   ITEM
40638 @ 348893:                  PUSH   DICT
40639 @ 348896:                  PUSH   START
40640 @ 348899:                  ACCESS
40641 @ 348900:                  SELECT 13
40642 @ 348903:                  ASSVAL

  7004        putexp(add,item,litref(k),inttype) %if k # 0
40643 @ 348904:                  LINE   7004 "regression-compile-tmp/imp22g-77.imp"
40644 @ 348944:                  PUSH   K
40645 @ 348947:                  PUSHI  #0x00000000
40646 @ 348952:                  JUMPIF = L_000a
40647 @ 348956:                  PUSH   PUTEXP
40648 @ 348959:                  PUSHI  #0x00000002
40649 @ 348964:                  ASSPAR
40650 @ 348965:                  PUSH   ITEM
40651 @ 348968:                  ASSPAR
40652 @ 348969:                  PUSH   LITREF
40653 @ 348972:                  PUSH   K
40654 @ 348975:                  ASSPAR
40655 @ 348976:                  CALL  
40656 @ 348977:                  ASSPAR
40657 @ 348978:                  PUSHI  #0x0000002b
40658 @ 348983:                  ASSPAR
40659 @ 348984:                  CALL  
40660 @ 348985:                  LOCATE L_000a

  7005      %else
40661 @ 348988:                  LINE   7005 "regression-compile-tmp/imp22g-77.imp"
40662 @ 349028:                  GOTO   L_0006
40663 @ 349031:                  LOCATE L_0007

  7006        putexp(add,start,litref(-ival),inttype)
40664 @ 349034:                  LINE   7006 "regression-compile-tmp/imp22g-77.imp"
40665 @ 349074:                  PUSH   PUTEXP
40666 @ 349077:                  PUSHI  #0x00000002
40667 @ 349082:                  ASSPAR
40668 @ 349083:                  PUSH   START
40669 @ 349086:                  ASSPAR
40670 @ 349087:                  PUSH   LITREF
40671 @ 349090:                  PUSH   IVAL
40672 @ 349093:                  NEGATE
40673 @ 349094:                  ASSPAR
40674 @ 349095:                  CALL  
40675 @ 349096:                  ASSPAR
40676 @ 349097:                  PUSHI  #0x0000002b
40677 @ 349102:                  ASSPAR
40678 @ 349103:                  CALL  

  7007      %finish
40679 @ 349104:                  LINE   7007 "regression-compile-tmp/imp22g-77.imp"
40680 @ 349144:                  LOCATE L_0006

  7008    %else;  !variable
40681 @ 349147:                  LINE   7008 "regression-compile-tmp/imp22g-77.imp"
40682 @ 349187:                  GOTO   L_0003
40683 @ 349190:                  LOCATE L_0004

  7009      i = inc
40684 @ 349193:                  LINE   7009 "regression-compile-tmp/imp22g-77.imp"
40685 @ 349233:                  PUSH   I
40686 @ 349236:                  PUSH   INC
40687 @ 349239:                  ASSVAL

  7010      %if control&volbit # 0 %start
40688 @ 349240:                  LINE   7010 "regression-compile-tmp/imp22g-77.imp"
40689 @ 349280:                  PUSH   CONTROL
40690 @ 349283:                  PUSHI  #0x00010000
40691 @ 349288:                  AND   
40692 @ 349289:                  PUSHI  #0x00000000
40693 @ 349294:                  JUMPIF = L_0007

  7011        declare temp(inttype);  i = item
40694 @ 349298:                  LINE   7011 "regression-compile-tmp/imp22g-77.imp"
40695 @ 349338:                  PUSH   DECLARETEMP
40696 @ 349341:                  PUSHI  #0x0000002b
40697 @ 349346:                  ASSPAR
40698 @ 349347:                  CALL  
40699 @ 349348:                  LINE   7011 "regression-compile-tmp/imp22g-77.imp"
40700 @ 349388:                  PUSH   I
40701 @ 349391:                  PUSH   ITEM
40702 @ 349394:                  ASSVAL

  7012        putact(assign,i,inc);  forinf = forinf-4
40703 @ 349395:                  LINE   7012 "regression-compile-tmp/imp22g-77.imp"
40704 @ 349435:                  PUSH   PUTACT
40705 @ 349438:                  PUSHI  #0x00000022
40706 @ 349443:                  ASSPAR
40707 @ 349444:                  PUSH   I
40708 @ 349447:                  ASSPAR
40709 @ 349448:                  PUSH   INC
40710 @ 349451:                  ASSPAR
40711 @ 349452:                  CALL  
40712 @ 349453:                  LINE   7012 "regression-compile-tmp/imp22g-77.imp"
40713 @ 349493:                  PUSH   FORINF
40714 @ 349496:                  PUSH   FORINF
40715 @ 349499:                  PUSHI  #0x00000004
40716 @ 349504:                  SUB   
40717 @ 349505:                  ASSVAL

  7013      %finish
40718 @ 349506:                  LINE   7013 "regression-compile-tmp/imp22g-77.imp"
40719 @ 349546:                  LOCATE L_0007

  7014      %if start = inc %start;  !identical
40720 @ 349549:                  LINE   7014 "regression-compile-tmp/imp22g-77.imp"
40721 @ 349589:                  PUSH   START
40722 @ 349592:                  PUSH   INC
40723 @ 349595:                  JUMPIF # L_0007

  7015        item = 0;  sval = 0
40724 @ 349599:                  LINE   7015 "regression-compile-tmp/imp22g-77.imp"
40725 @ 349639:                  PUSH   ITEM
40726 @ 349642:                  PUSHI  #0x00000000
40727 @ 349647:                  ASSVAL
40728 @ 349648:                  LINE   7015 "regression-compile-tmp/imp22g-77.imp"
40729 @ 349688:                  PUSH   SVAL
40730 @ 349691:                  PUSHI  #0x00000000
40731 @ 349696:                  ASSVAL

  7016      %finish %else %if k = inc %start;  !START is x+INC
40732 @ 349697:                  LINE   7016 "regression-compile-tmp/imp22g-77.imp"
40733 @ 349737:                  GOTO   L_0006
40734 @ 349740:                  LOCATE L_0007
40735 @ 349743:                  PUSH   K
40736 @ 349746:                  PUSH   INC
40737 @ 349749:                  JUMPIF # L_0007

  7017        item = dict(start)_x
40738 @ 349753:                  LINE   7017 "regression-compile-tmp/imp22g-77.imp"
40739 @ 349793:                  PUSH   ITEM
40740 @ 349796:                  PUSH   DICT
40741 @ 349799:                  PUSH   START
40742 @ 349802:                  ACCESS
40743 @ 349803:                  SELECT 13
40744 @ 349806:                  ASSVAL

  7018      %else
40745 @ 349807:                  LINE   7018 "regression-compile-tmp/imp22g-77.imp"
40746 @ 349847:                  GOTO   L_0006
40747 @ 349850:                  LOCATE L_0007

  7019        item = start;  item = litref(sval) %if item = 0
40748 @ 349853:                  LINE   7019 "regression-compile-tmp/imp22g-77.imp"
40749 @ 349893:                  PUSH   ITEM
40750 @ 349896:                  PUSH   START
40751 @ 349899:                  ASSVAL
40752 @ 349900:                  LINE   7019 "regression-compile-tmp/imp22g-77.imp"
40753 @ 349940:                  PUSH   ITEM
40754 @ 349943:                  PUSHI  #0x00000000
40755 @ 349948:                  JUMPIF # L_000a
40756 @ 349952:                  PUSH   ITEM
40757 @ 349955:                  PUSH   LITREF
40758 @ 349958:                  PUSH   SVAL
40759 @ 349961:                  ASSPAR
40760 @ 349962:                  CALL  
40761 @ 349963:                  ASSVAL
40762 @ 349964:                  LOCATE L_000a

  7020        putexp(sub,item,i,inttype)
40763 @ 349967:                  LINE   7020 "regression-compile-tmp/imp22g-77.imp"
40764 @ 350007:                  PUSH   PUTEXP
40765 @ 350010:                  PUSHI  #0x00000003
40766 @ 350015:                  ASSPAR
40767 @ 350016:                  PUSH   ITEM
40768 @ 350019:                  ASSPAR
40769 @ 350020:                  PUSH   I
40770 @ 350023:                  ASSPAR
40771 @ 350024:                  PUSHI  #0x0000002b
40772 @ 350029:                  ASSPAR
40773 @ 350030:                  CALL  

  7021      %finish
40774 @ 350031:                  LINE   7021 "regression-compile-tmp/imp22g-77.imp"
40775 @ 350071:                  LOCATE L_0006

  7022    %finish
40776 @ 350074:                  LINE   7022 "regression-compile-tmp/imp22g-77.imp"
40777 @ 350114:                  LOCATE L_0003

  7023    s = item
  7024  !Get end-value
40778 @ 350117:                  LINE   7023 "regression-compile-tmp/imp22g-77.imp"
40779 @ 350157:                  PUSH   S
40780 @ 350160:                  PUSH   ITEM
40781 @ 350163:                  ASSVAL

  7025    get(comma)
40782 @ 350164:                  LINE   7025 "regression-compile-tmp/imp22g-77.imp"
40783 @ 350204:                  PUSH   GET
40784 @ 350207:                  PUSHI  #0x0000003c
40785 @ 350212:                  ASSPAR
40786 @ 350213:                  CALL  

  7026    get VALUE(lvtype)
40787 @ 350214:                  LINE   7026 "regression-compile-tmp/imp22g-77.imp"
40788 @ 350254:                  PUSH   GETVALUE
40789 @ 350257:                  PUSH   LVTYPE
40790 @ 350260:                  ASSPAR
40791 @ 350261:                  CALL  

  7027    end = item
40792 @ 350262:                  LINE   7027 "regression-compile-tmp/imp22g-77.imp"
40793 @ 350302:                  PUSH   END
40794 @ 350305:                  PUSH   ITEM
40795 @ 350308:                  ASSVAL

  7028    %if end = 0 %start;  !literal end-value
40796 @ 350309:                  LINE   7028 "regression-compile-tmp/imp22g-77.imp"
40797 @ 350349:                  PUSH   END
40798 @ 350352:                  PUSHI  #0x00000000
40799 @ 350357:                  JUMPIF # L_0004

  7029      e = litref(value);  endval = value
40800 @ 350361:                  LINE   7029 "regression-compile-tmp/imp22g-77.imp"
40801 @ 350401:                  PUSH   E
40802 @ 350404:                  PUSH   LITREF
40803 @ 350407:                  PUSH   VALUE
40804 @ 350410:                  ASSPAR
40805 @ 350411:                  CALL  
40806 @ 350412:                  ASSVAL
40807 @ 350413:                  LINE   7029 "regression-compile-tmp/imp22g-77.imp"
40808 @ 350453:                  PUSH   ENDVAL
40809 @ 350456:                  PUSH   VALUE
40810 @ 350459:                  ASSVAL

  7030    %else
40811 @ 350460:                  LINE   7030 "regression-compile-tmp/imp22g-77.imp"
40812 @ 350500:                  GOTO   L_0003
40813 @ 350503:                  LOCATE L_0004

  7031      e = item
40814 @ 350506:                  LINE   7031 "regression-compile-tmp/imp22g-77.imp"
40815 @ 350546:                  PUSH   E
40816 @ 350549:                  PUSH   ITEM
40817 @ 350552:                  ASSVAL

  7032      %if control&volbit # 0 %start
40818 @ 350553:                  LINE   7032 "regression-compile-tmp/imp22g-77.imp"
40819 @ 350593:                  PUSH   CONTROL
40820 @ 350596:                  PUSHI  #0x00010000
40821 @ 350601:                  AND   
40822 @ 350602:                  PUSHI  #0x00000000
40823 @ 350607:                  JUMPIF = L_0007

  7033        declare temp(inttype);  e = item
40824 @ 350611:                  LINE   7033 "regression-compile-tmp/imp22g-77.imp"
40825 @ 350651:                  PUSH   DECLARETEMP
40826 @ 350654:                  PUSHI  #0x0000002b
40827 @ 350659:                  ASSPAR
40828 @ 350660:                  CALL  
40829 @ 350661:                  LINE   7033 "regression-compile-tmp/imp22g-77.imp"
40830 @ 350701:                  PUSH   E
40831 @ 350704:                  PUSH   ITEM
40832 @ 350707:                  ASSVAL

  7034        putact(assign,e,end);  forinf = forinf-4
40833 @ 350708:                  LINE   7034 "regression-compile-tmp/imp22g-77.imp"
40834 @ 350748:                  PUSH   PUTACT
40835 @ 350751:                  PUSHI  #0x00000022
40836 @ 350756:                  ASSPAR
40837 @ 350757:                  PUSH   E
40838 @ 350760:                  ASSPAR
40839 @ 350761:                  PUSH   END
40840 @ 350764:                  ASSPAR
40841 @ 350765:                  CALL  
40842 @ 350766:                  LINE   7034 "regression-compile-tmp/imp22g-77.imp"
40843 @ 350806:                  PUSH   FORINF
40844 @ 350809:                  PUSH   FORINF
40845 @ 350812:                  PUSHI  #0x00000004
40846 @ 350817:                  SUB   
40847 @ 350818:                  ASSVAL

  7035      %finish
40848 @ 350819:                  LINE   7035 "regression-compile-tmp/imp22g-77.imp"
40849 @ 350859:                  LOCATE L_0007

  7036    %finish
40850 @ 350862:                  LINE   7036 "regression-compile-tmp/imp22g-77.imp"
40851 @ 350902:                  LOCATE L_0003

  7037    %if start!inc!end # 0 %and control&loopbit # 0 %start
40852 @ 350905:                  LINE   7037 "regression-compile-tmp/imp22g-77.imp"
40853 @ 350945:                  PUSH   START
40854 @ 350948:                  PUSH   INC
40855 @ 350951:                  OR    
40856 @ 350952:                  PUSH   END
40857 @ 350955:                  OR    
40858 @ 350956:                  PUSHI  #0x00000000
40859 @ 350961:                  JUMPIF = L_0004
40860 @ 350965:                  PUSH   CONTROL
40861 @ 350968:                  PUSHI  #0x40000000
40862 @ 350973:                  AND   
40863 @ 350974:                  PUSHI  #0x00000000
40864 @ 350979:                  JUMPIF = L_0004

  7038      putact(forass,loopvar,s)
40865 @ 350983:                  LINE   7038 "regression-compile-tmp/imp22g-77.imp"
40866 @ 351023:                  PUSH   PUTACT
40867 @ 351026:                  PUSHI  #0x00000024
40868 @ 351031:                  ASSPAR
40869 @ 351032:                  PUSH   LOOPVAR
40870 @ 351035:                  ASSPAR
40871 @ 351036:                  PUSH   S
40872 @ 351039:                  ASSPAR
40873 @ 351040:                  CALL  

  7039      putact(forass,i,e)
40874 @ 351041:                  LINE   7039 "regression-compile-tmp/imp22g-77.imp"
40875 @ 351081:                  PUSH   PUTACT
40876 @ 351084:                  PUSHI  #0x00000024
40877 @ 351089:                  ASSPAR
40878 @ 351090:                  PUSH   I
40879 @ 351093:                  ASSPAR
40880 @ 351094:                  PUSH   E
40881 @ 351097:                  ASSPAR
40882 @ 351098:                  CALL  

  7040    %else
40883 @ 351099:                  LINE   7040 "regression-compile-tmp/imp22g-77.imp"
40884 @ 351139:                  GOTO   L_0003
40885 @ 351142:                  LOCATE L_0004

  7041      putact(assign,loopvar,s)
40886 @ 351145:                  LINE   7041 "regression-compile-tmp/imp22g-77.imp"
40887 @ 351185:                  PUSH   PUTACT
40888 @ 351188:                  PUSHI  #0x00000022
40889 @ 351193:                  ASSPAR
40890 @ 351194:                  PUSH   LOOPVAR
40891 @ 351197:                  ASSPAR
40892 @ 351198:                  PUSH   S
40893 @ 351201:                  ASSPAR
40894 @ 351202:                  CALL  

  7042    %finish
40895 @ 351203:                  LINE   7042 "regression-compile-tmp/imp22g-77.imp"
40896 @ 351243:                  LOCATE L_0003

  7043    putact(label,curlab,0)
40897 @ 351246:                  LINE   7043 "regression-compile-tmp/imp22g-77.imp"
40898 @ 351286:                  PUSH   PUTACT
40899 @ 351289:                  PUSHI  #0x0000002c
40900 @ 351294:                  ASSPAR
40901 @ 351295:                  PUSH   CURLAB
40902 @ 351298:                  ASSPAR
40903 @ 351299:                  PUSHI  #0x00000000
40904 @ 351304:                  ASSPAR
40905 @ 351305:                  CALL  

  7044    %if start!inc!end = 0 %start;  !all literal
40906 @ 351306:                  LINE   7044 "regression-compile-tmp/imp22g-77.imp"
40907 @ 351346:                  PUSH   START
40908 @ 351349:                  PUSH   INC
40909 @ 351352:                  OR    
40910 @ 351353:                  PUSH   END
40911 @ 351356:                  OR    
40912 @ 351357:                  PUSHI  #0x00000000
40913 @ 351362:                  JUMPIF # L_0004

  7045      k = endval-sval;  n = k//ival
40914 @ 351366:                  LINE   7045 "regression-compile-tmp/imp22g-77.imp"
40915 @ 351406:                  PUSH   K
40916 @ 351409:                  PUSH   ENDVAL
40917 @ 351412:                  PUSH   SVAL
40918 @ 351415:                  SUB   
40919 @ 351416:                  ASSVAL
40920 @ 351417:                  LINE   7045 "regression-compile-tmp/imp22g-77.imp"
40921 @ 351457:                  PUSH   N
40922 @ 351460:                  PUSH   K
40923 @ 351463:                  PUSH   IVAL
40924 @ 351466:                  QUOT  
40925 @ 351467:                  ASSVAL

  7046      %if n = 0 %start
40926 @ 351468:                  LINE   7046 "regression-compile-tmp/imp22g-77.imp"
40927 @ 351508:                  PUSH   N
40928 @ 351511:                  PUSHI  #0x00000000
40929 @ 351516:                  JUMPIF # L_0007

  7047        fault(dubious+warn)
40930 @ 351520:                  LINE   7047 "regression-compile-tmp/imp22g-77.imp"
40931 @ 351560:                  PUSH   FAULT
40932 @ 351563:                  PUSHI  #0x00000025
40933 @ 351568:                  PUSHI  #0xffffff80
40934 @ 351573:                  ADD   
40935 @ 351574:                  ASSPAR
40936 @ 351575:                  CALL  

  7048        putact(else,0,curlab+1);  !ie unconditional branch
40937 @ 351576:                  LINE   7048 "regression-compile-tmp/imp22g-77.imp"
40938 @ 351616:                  PUSH   PUTACT
40939 @ 351619:                  PUSHI  #0x00000028
40940 @ 351624:                  ASSPAR
40941 @ 351625:                  PUSHI  #0x00000000
40942 @ 351630:                  ASSPAR
40943 @ 351631:                  PUSH   CURLAB
40944 @ 351634:                  PUSHI  #0x00000001
40945 @ 351639:                  ADD   
40946 @ 351640:                  ASSPAR
40947 @ 351641:                  CALL  

  7049        %return
40948 @ 351642:                  LINE   7049 "regression-compile-tmp/imp22g-77.imp"
40949 @ 351682:                  RETURN

  7050      %finish
40950 @ 351683:                  LINE   7050 "regression-compile-tmp/imp22g-77.imp"
40951 @ 351723:                  LOCATE L_0007

  7051      fault(boundserr) %if n < 0
40952 @ 351726:                  LINE   7051 "regression-compile-tmp/imp22g-77.imp"
40953 @ 351766:                  PUSH   N
40954 @ 351769:                  PUSHI  #0x00000000
40955 @ 351774:                  JUMPIF >= L_0007
40956 @ 351778:                  PUSH   FAULT
40957 @ 351781:                  PUSHI  #0x0000000d
40958 @ 351786:                  ASSPAR
40959 @ 351787:                  CALL  
40960 @ 351788:                  LOCATE L_0007

  7052      fault(unending) %if n*ival # k
40961 @ 351791:                  LINE   7052 "regression-compile-tmp/imp22g-77.imp"
40962 @ 351831:                  PUSH   N
40963 @ 351834:                  PUSH   IVAL
40964 @ 351837:                  MUL   
40965 @ 351838:                  PUSH   K
40966 @ 351841:                  JUMPIF = L_0007
40967 @ 351845:                  PUSH   FAULT
40968 @ 351848:                  PUSHI  #0x0000000e
40969 @ 351853:                  ASSPAR
40970 @ 351854:                  CALL  
40971 @ 351855:                  LOCATE L_0007

  7053      forinf = loopvar
40972 @ 351858:                  LINE   7053 "regression-compile-tmp/imp22g-77.imp"
40973 @ 351898:                  PUSH   FORINF
40974 @ 351901:                  PUSH   LOOPVAR
40975 @ 351904:                  ASSVAL

  7054    %else
40976 @ 351905:                  LINE   7054 "regression-compile-tmp/imp22g-77.imp"
40977 @ 351945:                  GOTO   L_0003
40978 @ 351948:                  LOCATE L_0004

  7055      putact(compare,loopvar,e)
40979 @ 351951:                  LINE   7055 "regression-compile-tmp/imp22g-77.imp"
40980 @ 351991:                  PUSH   PUTACT
40981 @ 351994:                  PUSHI  #0x00000004
40982 @ 351999:                  ASSPAR
40983 @ 352000:                  PUSH   LOOPVAR
40984 @ 352003:                  ASSPAR
40985 @ 352004:                  PUSH   E
40986 @ 352007:                  ASSPAR
40987 @ 352008:                  CALL  

  7056      putact(beq,0,curlab+1)
40988 @ 352009:                  LINE   7056 "regression-compile-tmp/imp22g-77.imp"
40989 @ 352049:                  PUSH   PUTACT
40990 @ 352052:                  PUSHI  #0x00000017
40991 @ 352057:                  ASSPAR
40992 @ 352058:                  PUSHI  #0x00000000
40993 @ 352063:                  ASSPAR
40994 @ 352064:                  PUSH   CURLAB
40995 @ 352067:                  PUSHI  #0x00000001
40996 @ 352072:                  ADD   
40997 @ 352073:                  ASSPAR
40998 @ 352074:                  CALL  

  7057    %finish
40999 @ 352075:                  LINE   7057 "regression-compile-tmp/imp22g-77.imp"
41000 @ 352115:                  LOCATE L_0003

  7058    putact(incass,loopvar,i)
41001 @ 352118:                  LINE   7058 "regression-compile-tmp/imp22g-77.imp"
41002 @ 352158:                  PUSH   PUTACT
41003 @ 352161:                  PUSHI  #0x00000023
41004 @ 352166:                  ASSPAR
41005 @ 352167:                  PUSH   LOOPVAR
41006 @ 352170:                  ASSPAR
41007 @ 352171:                  PUSH   I
41008 @ 352174:                  ASSPAR
41009 @ 352175:                  CALL  

  7059  %end;  !get FORCLAUSE
  7060  
41010 @ 352176:                  LINE   7059 "regression-compile-tmp/imp22g-77.imp"
41011 @ 352216:               END    _lev0id0_GETSTATEMENTS_GETFORCLAUSE {lev=3 --> 2}

  7061  %routine GET LOOP BODY
41012 @ 352217:               LINE   7061 "regression-compile-tmp/imp22g-77.imp"
41013 @ 352257:               DEF    GETLOOPBODY (_lev0id0_GETSTATEMENTS_GETLOOPBODY) p1=V_0187 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
41014 @ 352280:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
41015 @ 352281:                  FINISH ) {lev=3}

  7062  %integer hold
41016 @ 352282:                  LINE   7062 "regression-compile-tmp/imp22g-77.imp"
41017 @ 352322:                  DEF    HOLD p1=V_0188 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  7063    hold=c_looplab
41018 @ 352338:                  LINE   7063 "regression-compile-tmp/imp22g-77.imp"
41019 @ 352378:                  PUSH   HOLD
41020 @ 352381:                  PUSH   C
41021 @ 352384:                  SELECT 19
41022 @ 352387:                  ASSVAL

  7064    c_looplab = curlab;  curlab = curlab+2
41023 @ 352388:                  LINE   7064 "regression-compile-tmp/imp22g-77.imp"
41024 @ 352428:                  PUSH   C
41025 @ 352431:                  SELECT 19
41026 @ 352434:                  PUSH   CURLAB
41027 @ 352437:                  ASSVAL
41028 @ 352438:                  LINE   7064 "regression-compile-tmp/imp22g-77.imp"
41029 @ 352478:                  PUSH   CURLAB
41030 @ 352481:                  PUSH   CURLAB
41031 @ 352484:                  PUSHI  #0x00000002
41032 @ 352489:                  ADD   
41033 @ 352490:                  ASSVAL

  7065    get STATEMENTS(keyrepeat)
41034 @ 352491:                  LINE   7065 "regression-compile-tmp/imp22g-77.imp"
41035 @ 352531:                  PUSH   GETSTATEMENTS
41036 @ 352534:                  PUSHI  #0x00000002
41037 @ 352539:                  ASSPAR
41038 @ 352540:                  CALL  

  7066    curlab = curlab-2;  c_looplab = hold
41039 @ 352541:                  LINE   7066 "regression-compile-tmp/imp22g-77.imp"
41040 @ 352581:                  PUSH   CURLAB
41041 @ 352584:                  PUSH   CURLAB
41042 @ 352587:                  PUSHI  #0x00000002
41043 @ 352592:                  SUB   
41044 @ 352593:                  ASSVAL
41045 @ 352594:                  LINE   7066 "regression-compile-tmp/imp22g-77.imp"
41046 @ 352634:                  PUSH   C
41047 @ 352637:                  SELECT 19
41048 @ 352640:                  PUSH   HOLD
41049 @ 352643:                  ASSVAL

  7067  %end
  7068  
41050 @ 352644:                  LINE   7067 "regression-compile-tmp/imp22g-77.imp"
41051 @ 352684:               END    _lev0id0_GETSTATEMENTS_GETLOOPBODY {lev=3 --> 2}

  7069  %routine GET SWITCH INDEX
41052 @ 352685:               LINE   7069 "regression-compile-tmp/imp22g-77.imp"
41053 @ 352725:               DEF    GETSWITCHINDEX (_lev0id0_GETSTATEMENTS_GETSWITCHINDEX) p1=V_0188 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
41054 @ 352751:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
41055 @ 352752:                  FINISH ) {lev=3}

  7070  %integer i,lo,hi
41056 @ 352753:                  LINE   7070 "regression-compile-tmp/imp22g-77.imp"
41057 @ 352793:                  DEF    I p1=V_0189 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
41058 @ 352806:                  DEF    LO p1=V_018a a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
41059 @ 352820:                  DEF    HI p1=V_018b a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  7071  %record(identinfo)%name dp,tp
41060 @ 352834:                  LINE   7071 "regression-compile-tmp/imp22g-77.imp"
41061 @ 352874:                  DEF    DP p1=V_018c a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
41062 @ 352888:                  DEF    TP p1=V_018d a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  7072  %routine SET LABEL(%shortname p)
41063 @ 352902:                  LINE   7072 "regression-compile-tmp/imp22g-77.imp"
41064 @ 352942:                  DEF    SETLABEL (_lev0id0_GETSTATEMENTS_GETSWITCHINDEX_SETLABEL) p1=V_018e 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
41065 @ 352962:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
41066 @ 352963:                        DEF    P p1=V_018f a/tf=12 b/format=3 c/ostate=0  type=1 (integer) form=2 (name) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
41067 @ 352976:                     FINISH ) {lev=4}

  7073    value = p
41068 @ 352977:                     LINE   7073 "regression-compile-tmp/imp22g-77.imp"
41069 @ 353017:                     PUSH   VALUE
41070 @ 353020:                     PUSH   P
41071 @ 353023:                     ASSVAL

  7074    expfault(duperr) %if value > 0
41072 @ 353024:                     LINE   7074 "regression-compile-tmp/imp22g-77.imp"
41073 @ 353064:                     PUSH   VALUE
41074 @ 353067:                     PUSHI  #0x00000000
41075 @ 353072:                     JUMPIF <= L_0004
41076 @ 353076:                     PUSH   EXPFAULT
41077 @ 353079:                     PUSHI  #0x00000015
41078 @ 353084:                     ASSPAR
41079 @ 353085:                     CALL  
41080 @ 353086:                     LOCATE L_0004

  7075    set user label(value)
41081 @ 353089:                     LINE   7075 "regression-compile-tmp/imp22g-77.imp"
41082 @ 353129:                     PUSH   SETUSERLABEL
41083 @ 353132:                     PUSH   VALUE
41084 @ 353135:                     ASSPAR
41085 @ 353136:                     CALL  

  7076    p = value
41086 @ 353137:                     LINE   7076 "regression-compile-tmp/imp22g-77.imp"
41087 @ 353177:                     PUSH   P
41088 @ 353180:                     PUSH   VALUE
41089 @ 353183:                     ASSVAL

  7077  %end
41090 @ 353184:                     LINE   7077 "regression-compile-tmp/imp22g-77.imp"
41091 @ 353224:                  END    _lev0id0_GETSTATEMENTS_GETSWITCHINDEX_SETLABEL {lev=4 --> 3}

  7078    dp == ditem;  tp == typecell(ditem_type)
41092 @ 353225:                  LINE   7078 "regression-compile-tmp/imp22g-77.imp"
41093 @ 353265:                  PUSH   DP
41094 @ 353268:                  PUSH   DITEM
41095 @ 353271:                  ASSREF
41096 @ 353272:                  LINE   7078 "regression-compile-tmp/imp22g-77.imp"
41097 @ 353312:                  PUSH   TP
41098 @ 353315:                  PUSH   TYPECELL
41099 @ 353318:                  PUSH   DITEM
41100 @ 353321:                  SELECT 2
41101 @ 353324:                  ASSPAR
41102 @ 353325:                  CALL  
41103 @ 353326:                  ASSREF

  7079    get(left)
41104 @ 353327:                  LINE   7079 "regression-compile-tmp/imp22g-77.imp"
41105 @ 353367:                  PUSH   GET
41106 @ 353370:                  PUSHI  #0x00000037
41107 @ 353375:                  ASSPAR
41108 @ 353376:                  CALL  

  7080    %if a(star)=TRUE %start
41109 @ 353377:                  LINE   7080 "regression-compile-tmp/imp22g-77.imp"
41110 @ 353417:                  PUSH   A
41111 @ 353420:                  PUSHI  #0x00000058
41112 @ 353425:                  ASSPAR
41113 @ 353426:                  CALL  
41114 @ 353427:                  PUSHI  #0x00000001
41115 @ 353432:                  JUMPIF # L_0004

  7081      set label(dp_link)
41116 @ 353436:                  LINE   7081 "regression-compile-tmp/imp22g-77.imp"
41117 @ 353476:                  PUSH   SETLABEL
41118 @ 353479:                  PUSH   DP
41119 @ 353482:                  SELECT 3
41120 @ 353485:                  ASSPAR
41121 @ 353486:                  CALL  

  7082    %else
41122 @ 353487:                  LINE   7082 "regression-compile-tmp/imp22g-77.imp"
41123 @ 353527:                  GOTO   L_0003
41124 @ 353530:                  LOCATE L_0004

  7083      get VALUE(tp_xtype)
  7084     !beware faulty declaration or index
41125 @ 353533:                  LINE   7083 "regression-compile-tmp/imp22g-77.imp"
41126 @ 353573:                  PUSH   GETVALUE
41127 @ 353576:                  PUSH   TP
41128 @ 353579:                  SELECT 4
41129 @ 353582:                  ASSPAR
41130 @ 353583:                  CALL  

  7085      %if tp_xtype > inttype %and faultnum = 0 %start
41131 @ 353584:                  LINE   7085 "regression-compile-tmp/imp22g-77.imp"
41132 @ 353624:                  PUSH   TP
41133 @ 353627:                  SELECT 4
41134 @ 353630:                  PUSHI  #0x0000002b
41135 @ 353635:                  JUMPIF <= L_0007
41136 @ 353639:                  PUSH   FAULTNUM
41137 @ 353642:                  PUSHI  #0x00000000
41138 @ 353647:                  JUMPIF # L_0007

  7086        get bounds(tp_xtype,lo,hi)
41139 @ 353651:                  LINE   7086 "regression-compile-tmp/imp22g-77.imp"
41140 @ 353691:                  PUSH   GETBOUNDS
41141 @ 353694:                  PUSH   TP
41142 @ 353697:                  SELECT 4
41143 @ 353700:                  ASSPAR
41144 @ 353701:                  PUSH   LO
41145 @ 353704:                  ASSPAR
41146 @ 353705:                  PUSH   HI
41147 @ 353708:                  ASSPAR
41148 @ 353709:                  CALL  

  7087        i = value-lo+dp_val
41149 @ 353710:                  LINE   7087 "regression-compile-tmp/imp22g-77.imp"
41150 @ 353750:                  PUSH   I
41151 @ 353753:                  PUSH   VALUE
41152 @ 353756:                  PUSH   LO
41153 @ 353759:                  SUB   
41154 @ 353760:                  PUSH   DP
41155 @ 353763:                  SELECT 9
41156 @ 353766:                  ADD   
41157 @ 353767:                  ASSVAL

  7088        c_forward = c_forward-1 %if i < pc;  !(had goto)
41158 @ 353768:                  LINE   7088 "regression-compile-tmp/imp22g-77.imp"
41159 @ 353808:                  PUSH   I
41160 @ 353811:                  PUSH   PC
41161 @ 353814:                  JUMPIF >= L_000a
41162 @ 353818:                  PUSH   C
41163 @ 353821:                  SELECT 17
41164 @ 353824:                  PUSH   C
41165 @ 353827:                  SELECT 17
41166 @ 353830:                  PUSHI  #0x00000001
41167 @ 353835:                  SUB   
41168 @ 353836:                  ASSVAL
41169 @ 353837:                  LOCATE L_000a

  7089        set label(prog(i))
41170 @ 353840:                  LINE   7089 "regression-compile-tmp/imp22g-77.imp"
41171 @ 353880:                  PUSH   SETLABEL
41172 @ 353883:                  PUSH   PROG
41173 @ 353886:                  PUSH   I
41174 @ 353889:                  ACCESS
41175 @ 353890:                  ASSPAR
41176 @ 353891:                  CALL  

  7090      %finish
41177 @ 353892:                  LINE   7090 "regression-compile-tmp/imp22g-77.imp"
41178 @ 353932:                  LOCATE L_0007

  7091    %finish
41179 @ 353935:                  LINE   7091 "regression-compile-tmp/imp22g-77.imp"
41180 @ 353975:                  LOCATE L_0003

  7092    get(right)
41181 @ 353978:                  LINE   7092 "regression-compile-tmp/imp22g-77.imp"
41182 @ 354018:                  PUSH   GET
41183 @ 354021:                  PUSHI  #0x0000003d
41184 @ 354026:                  ASSPAR
41185 @ 354027:                  CALL  

  7093  %end
  7094  
  7095  ![unsure of efficiency implications of trapping overflow lower down]
41186 @ 354028:                  LINE   7093 "regression-compile-tmp/imp22g-77.imp"
41187 @ 354068:               END    _lev0id0_GETSTATEMENTS_GETSWITCHINDEX {lev=3 --> 2}

  7096  %on %event oflow,fail,done %start
41188 @ 354069:               LINE   7096 "regression-compile-tmp/imp22g-77.imp"
41189 @ 354109:               ON     MASK=1802 L_0004

  7097    %if event_event = 0 %start;  !failure in %option,%include or ^Y
41190 @ 354115:               LINE   7097 "regression-compile-tmp/imp22g-77.imp"
41191 @ 354155:               PUSH   EVENT
41192 @ 354158:               CALL  
41193 @ 354159:               SELECT 1
41194 @ 354162:               PUSHI  #0x00000000
41195 @ 354167:               JUMPIF # L_0007

  7098      %stop %if event_sub # 0
41196 @ 354171:               LINE   7098 "regression-compile-tmp/imp22g-77.imp"
41197 @ 354211:               PUSH   EVENT
41198 @ 354214:               CALL  
41199 @ 354215:               SELECT 2
41200 @ 354218:               PUSHI  #0x00000000
41201 @ 354223:               JUMPIF = L_000a
41202 @ 354227:               STOP  
41203 @ 354228:               LOCATE L_000a

  7099      %signal abandon
41204 @ 354231:               LINE   7099 "regression-compile-tmp/imp22g-77.imp"
41205 @ 354271:               EVENT  000e

  7100    %finish
41206 @ 354274:               LINE   7100 "regression-compile-tmp/imp22g-77.imp"
41207 @ 354314:               LOCATE L_0007

  7101    %if event_event = done %start
41208 @ 354317:               LINE   7101 "regression-compile-tmp/imp22g-77.imp"
41209 @ 354357:               PUSH   EVENT
41210 @ 354360:               CALL  
41211 @ 354361:               SELECT 1
41212 @ 354364:               PUSHI  #0x0000000c
41213 @ 354369:               JUMPIF # L_0007

  7102      croak("Premature end of input") %if stopper # 0
41214 @ 354373:               LINE   7102 "regression-compile-tmp/imp22g-77.imp"
41215 @ 354413:               PUSH   STOPPER
41216 @ 354416:               PUSHI  #0x00000000
41217 @ 354421:               JUMPIF = L_000a
41218 @ 354425:               PUSH   CROAK
41219 @ 354428:               PUSHS  "Premature end of input"
41220 @ 354452:               ASSPAR
41221 @ 354453:               CALL  
41222 @ 354454:               LOCATE L_000a

  7103      close block
41223 @ 354457:               LINE   7103 "regression-compile-tmp/imp22g-77.imp"
41224 @ 354497:               PUSH   CLOSEBLOCK
41225 @ 354500:               CALL  

  7104      c_dpid_val = 0;  !zero entry-point
41226 @ 354501:               LINE   7104 "regression-compile-tmp/imp22g-77.imp"
41227 @ 354541:               PUSH   C
41228 @ 354544:               SELECT 29
41229 @ 354547:               SELECT 9
41230 @ 354550:               PUSHI  #0x00000000
41231 @ 354555:               ASSVAL

  7105      %return
41232 @ 354556:               LINE   7105 "regression-compile-tmp/imp22g-77.imp"
41233 @ 354596:               RETURN

  7106    %finish
41234 @ 354597:               LINE   7106 "regression-compile-tmp/imp22g-77.imp"
41235 @ 354637:               LOCATE L_0007

  7107    fault(rangerr+now) %if event_event = oflow
41236 @ 354640:               LINE   7107 "regression-compile-tmp/imp22g-77.imp"
41237 @ 354680:               PUSH   EVENT
41238 @ 354683:               CALL  
41239 @ 354684:               SELECT 1
41240 @ 354687:               PUSHI  #0x00000001
41241 @ 354692:               JUMPIF # L_0007
41242 @ 354696:               PUSH   FAULT
41243 @ 354699:               PUSHI  #0x00000018
41244 @ 354704:               PUSHI  #0x00000080
41245 @ 354709:               ADD   
41246 @ 354710:               ASSPAR
41247 @ 354711:               CALL  
41248 @ 354712:               LOCATE L_0007

  7108    -> ignore
41249 @ 354715:               LINE   7108 "regression-compile-tmp/imp22g-77.imp"
41250 @ 354755:               JUMP   L_0189

  7109  %finish
  7110  !!!!!!!!!!!!!!!!!!!  Start of new statement  !!!!!!!!!!!!!!!!!!!
41251 @ 354758:               LINE   7109 "regression-compile-tmp/imp22g-77.imp"
41252 @ 354798:               LOCATE L_0004

  7111  next:
41253 @ 354801:               LINE   7111 "regression-compile-tmp/imp22g-77.imp"
41254 @ 354841:               LABEL  L_018a

  7112    statements = statements+1
41255 @ 354844:               LINE   7112 "regression-compile-tmp/imp22g-77.imp"
41256 @ 354884:               PUSH   STATEMENTS
41257 @ 354887:               PUSH   STATEMENTS
41258 @ 354890:               PUSHI  #0x00000001
41259 @ 354895:               ADD   
41260 @ 354896:               ASSVAL

  7113    compile(startnp) %if np > np0
41261 @ 354897:               LINE   7113 "regression-compile-tmp/imp22g-77.imp"
41262 @ 354937:               PUSH   NP
41263 @ 354940:               PUSH   NP0
41264 @ 354943:               JUMPIF <= L_0004
41265 @ 354947:               PUSH   COMPILE
41266 @ 354950:               PUSH   STARTNP
41267 @ 354953:               ASSPAR
41268 @ 354954:               CALL  
41269 @ 354955:               LOCATE L_0004

  7114    define label(curlab) %if dict(curlab)_val < 0
41270 @ 354958:               LINE   7114 "regression-compile-tmp/imp22g-77.imp"
41271 @ 354998:               PUSH   DICT
41272 @ 355001:               PUSH   CURLAB
41273 @ 355004:               ACCESS
41274 @ 355005:               SELECT 9
41275 @ 355008:               PUSHI  #0x00000000
41276 @ 355013:               JUMPIF >= L_0004
41277 @ 355017:               PUSH   DEFINELABEL
41278 @ 355020:               PUSH   CURLAB
41279 @ 355023:               ASSPAR
41280 @ 355024:               CALL  
41281 @ 355025:               LOCATE L_0004

  7115    define label(curlab+1) %if dict(curlab+1)_val < 0
41282 @ 355028:               LINE   7115 "regression-compile-tmp/imp22g-77.imp"
41283 @ 355068:               PUSH   DICT
41284 @ 355071:               PUSH   CURLAB
41285 @ 355074:               PUSHI  #0x00000001
41286 @ 355079:               ADD   
41287 @ 355080:               ACCESS
41288 @ 355081:               SELECT 9
41289 @ 355084:               PUSHI  #0x00000000
41290 @ 355089:               JUMPIF >= L_0004
41291 @ 355093:               PUSH   DEFINELABEL
41292 @ 355096:               PUSH   CURLAB
41293 @ 355099:               PUSHI  #0x00000001
41294 @ 355104:               ADD   
41295 @ 355105:               ASSPAR
41296 @ 355106:               CALL  
41297 @ 355107:               LOCATE L_0004

  7116  next1:
41298 @ 355110:               LINE   7116 "regression-compile-tmp/imp22g-77.imp"
41299 @ 355150:               LABEL  L_018b

  7117    report(faultnum,0,0) %if faultnum # 0
41300 @ 355153:               LINE   7117 "regression-compile-tmp/imp22g-77.imp"
41301 @ 355193:               PUSH   FAULTNUM
41302 @ 355196:               PUSHI  #0x00000000
41303 @ 355201:               JUMPIF = L_0004
41304 @ 355205:               PUSH   REPORT
41305 @ 355208:               PUSH   FAULTNUM
41306 @ 355211:               ASSPAR
41307 @ 355212:               PUSHI  #0x00000000
41308 @ 355217:               ASSPAR
41309 @ 355218:               PUSHI  #0x00000000
41310 @ 355223:               ASSPAR
41311 @ 355224:               CALL  
41312 @ 355225:               LOCATE L_0004

  7118    dlim0 = dlim
41313 @ 355228:               LINE   7118 "regression-compile-tmp/imp22g-77.imp"
41314 @ 355268:               PUSH   DLIM0
41315 @ 355271:               PUSH   DLIM
41316 @ 355274:               ASSVAL

  7119    speccing = 0;  subbed = 0
41317 @ 355275:               LINE   7119 "regression-compile-tmp/imp22g-77.imp"
41318 @ 355315:               PUSH   SPECCING
41319 @ 355318:               PUSHI  #0x00000000
41320 @ 355323:               ASSVAL
41321 @ 355324:               LINE   7119 "regression-compile-tmp/imp22g-77.imp"
41322 @ 355364:               PUSH   SUBBED
41323 @ 355367:               PUSHI  #0x00000000
41324 @ 355372:               ASSVAL

  7120    literal = 0;  jammy = 0;  condop = 0
41325 @ 355373:               LINE   7120 "regression-compile-tmp/imp22g-77.imp"
41326 @ 355413:               PUSH   LITERAL
41327 @ 355416:               PUSHI  #0x00000000
41328 @ 355421:               ASSVAL
41329 @ 355422:               LINE   7120 "regression-compile-tmp/imp22g-77.imp"
41330 @ 355462:               PUSH   JAMMY
41331 @ 355465:               PUSHI  #0x00000000
41332 @ 355470:               ASSVAL
41333 @ 355471:               LINE   7120 "regression-compile-tmp/imp22g-77.imp"
41334 @ 355511:               PUSH   CONDOP
41335 @ 355514:               PUSHI  #0x00000000
41336 @ 355519:               ASSVAL

  7121    dict(curlab)_val = 0;  dict(curlab+1)_val = 0
41337 @ 355520:               LINE   7121 "regression-compile-tmp/imp22g-77.imp"
41338 @ 355560:               PUSH   DICT
41339 @ 355563:               PUSH   CURLAB
41340 @ 355566:               ACCESS
41341 @ 355567:               SELECT 9
41342 @ 355570:               PUSHI  #0x00000000
41343 @ 355575:               ASSVAL
41344 @ 355576:               LINE   7121 "regression-compile-tmp/imp22g-77.imp"
41345 @ 355616:               PUSH   DICT
41346 @ 355619:               PUSH   CURLAB
41347 @ 355622:               PUSHI  #0x00000001
41348 @ 355627:               ADD   
41349 @ 355628:               ACCESS
41350 @ 355629:               SELECT 9
41351 @ 355632:               PUSHI  #0x00000000
41352 @ 355637:               ASSVAL

  7122    np = np0;  startnp = np0
41353 @ 355638:               LINE   7122 "regression-compile-tmp/imp22g-77.imp"
41354 @ 355678:               PUSH   NP
41355 @ 355681:               PUSH   NP0
41356 @ 355684:               ASSVAL
41357 @ 355685:               LINE   7122 "regression-compile-tmp/imp22g-77.imp"
41358 @ 355725:               PUSH   STARTNP
41359 @ 355728:               PUSH   NP0
41360 @ 355731:               ASSVAL

  7123    maxcalldreg = maxdreg;  maxcallareg = maxareg
41361 @ 355732:               LINE   7123 "regression-compile-tmp/imp22g-77.imp"
41362 @ 355772:               PUSH   MAXCALLDREG
41363 @ 355775:               PUSHI  #0x00000004
41364 @ 355780:               ASSVAL
41365 @ 355781:               LINE   7123 "regression-compile-tmp/imp22g-77.imp"
41366 @ 355821:               PUSH   MAXCALLAREG
41367 @ 355824:               PUSHI  #0x0000000c
41368 @ 355829:               ASSVAL

  7124    zaps = zaps+1 %and forget all %if explo < np0+50
41369 @ 355830:               LINE   7124 "regression-compile-tmp/imp22g-77.imp"
41370 @ 355870:               PUSH   EXPLO
41371 @ 355873:               PUSH   NP0
41372 @ 355876:               PUSHI  #0x00000032
41373 @ 355881:               ADD   
41374 @ 355882:               JUMPIF >= L_0004
41375 @ 355886:               PUSH   ZAPS
41376 @ 355889:               PUSH   ZAPS
41377 @ 355892:               PUSHI  #0x00000001
41378 @ 355897:               ADD   
41379 @ 355898:               ASSVAL
41380 @ 355899:               PUSH   FORGETALL
41381 @ 355902:               CALL  
41382 @ 355903:               LOCATE L_0004

  7125    zaps = zaps+1000 %and forget all %if litpos > litmax-40
41383 @ 355906:               LINE   7125 "regression-compile-tmp/imp22g-77.imp"
41384 @ 355946:               PUSH   LITPOS
41385 @ 355949:               PUSHI  #0xfffff800
41386 @ 355954:               PUSHI  #0x00000028
41387 @ 355959:               SUB   
41388 @ 355960:               JUMPIF <= L_0004
41389 @ 355964:               PUSH   ZAPS
41390 @ 355967:               PUSH   ZAPS
41391 @ 355970:               PUSHI  #0x000003e8
41392 @ 355975:               ADD   
41393 @ 355976:               ASSVAL
41394 @ 355977:               PUSH   FORGETALL
41395 @ 355980:               CALL  
41396 @ 355981:               LOCATE L_0004

  7126    value = 0
  7127  !
41397 @ 355984:               LINE   7126 "regression-compile-tmp/imp22g-77.imp"
41398 @ 356024:               PUSH   VALUE
41399 @ 356027:               PUSHI  #0x00000000
41400 @ 356032:               ASSVAL

  7128  initial(terminator):
41401 @ 356033:               LINE   7128 "regression-compile-tmp/imp22g-77.imp"
41402 @ 356073:               PUSHI  #0x00000033
41403 @ 356078:               SLABEL 382

  7129    atom = next atom;  matched = 1
41404 @ 356081:               LINE   7129 "regression-compile-tmp/imp22g-77.imp"
41405 @ 356121:               PUSH   ATOM
41406 @ 356124:               PUSH   NEXTATOM
41407 @ 356127:               CALL  
41408 @ 356128:               ASSVAL
41409 @ 356129:               LINE   7129 "regression-compile-tmp/imp22g-77.imp"
41410 @ 356169:               PUSH   MATCHED
41411 @ 356172:               PUSHI  #0x00000001
41412 @ 356177:               ASSVAL

  7130    -> initial(atom)
  7131  
41413 @ 356178:               LINE   7130 "regression-compile-tmp/imp22g-77.imp"
41414 @ 356218:               PUSH   ATOM
41415 @ 356221:               SJUMP  382

  7132  initial(keycomment): initial(exclam): initial(exclam2):
41416 @ 356224:               LINE   7132 "regression-compile-tmp/imp22g-77.imp"
41417 @ 356264:               PUSHI  #0x0000002d
41418 @ 356269:               SLABEL 382
41419 @ 356272:               LINE   7132 "regression-compile-tmp/imp22g-77.imp"
41420 @ 356312:               PUSHI  #0x00000055
41421 @ 356317:               SLABEL 382
41422 @ 356320:               LINE   7132 "regression-compile-tmp/imp22g-77.imp"
41423 @ 356360:               PUSHI  #0x00000056
41424 @ 356365:               SLABEL 382

  7133    comments = comments+1
41425 @ 356368:               LINE   7133 "regression-compile-tmp/imp22g-77.imp"
41426 @ 356408:               PUSH   COMMENTS
41427 @ 356411:               PUSH   COMMENTS
41428 @ 356414:               PUSHI  #0x00000001
41429 @ 356419:               ADD   
41430 @ 356420:               ASSVAL

  7134    read line(0)
41431 @ 356421:               LINE   7134 "regression-compile-tmp/imp22g-77.imp"
41432 @ 356461:               PUSH   READLINE
41433 @ 356464:               PUSHI  #0x00000000
41434 @ 356469:               ASSPAR
41435 @ 356470:               CALL  

  7135    -> next1
41436 @ 356471:               LINE   7135 "regression-compile-tmp/imp22g-77.imp"
41437 @ 356511:               JUMP   L_018b

  7136  term:
41438 @ 356514:               LINE   7136 "regression-compile-tmp/imp22g-77.imp"
41439 @ 356554:               LABEL  L_018c

  7137    get(terminator)
41440 @ 356557:               LINE   7137 "regression-compile-tmp/imp22g-77.imp"
41441 @ 356597:               PUSH   GET
41442 @ 356600:               PUSHI  #0x00000033
41443 @ 356605:               ASSPAR
41444 @ 356606:               CALL  

  7138    -> next
  7139  
41445 @ 356607:               LINE   7138 "regression-compile-tmp/imp22g-77.imp"
41446 @ 356647:               JUMP   L_018a

  7140  ignore:
41447 @ 356650:               LINE   7140 "regression-compile-tmp/imp22g-77.imp"
41448 @ 356690:               LABEL  L_0189

  7141    c_access = -1
41449 @ 356693:               LINE   7141 "regression-compile-tmp/imp22g-77.imp"
41450 @ 356733:               PUSH   C
41451 @ 356736:               SELECT 16
41452 @ 356739:               PUSHI  #0x00000001
41453 @ 356744:               NEGATE
41454 @ 356745:               ASSVAL

  7142    %if atom # terminator %start
41455 @ 356746:               LINE   7142 "regression-compile-tmp/imp22g-77.imp"
41456 @ 356786:               PUSH   ATOM
41457 @ 356789:               PUSHI  #0x00000033
41458 @ 356794:               JUMPIF = L_0004

  7143      %cycle
41459 @ 356798:               LINE   7143 "regression-compile-tmp/imp22g-77.imp"
41460 @ 356838:               LOCATE L_0006

  7144        subatom = atom;  atom = next atom
41461 @ 356841:               LINE   7144 "regression-compile-tmp/imp22g-77.imp"
41462 @ 356881:               PUSH   SUBATOM
41463 @ 356884:               PUSH   ATOM
41464 @ 356887:               ASSVAL
41465 @ 356888:               LINE   7144 "regression-compile-tmp/imp22g-77.imp"
41466 @ 356928:               PUSH   ATOM
41467 @ 356931:               PUSH   NEXTATOM
41468 @ 356934:               CALL  
41469 @ 356935:               ASSVAL

  7145      %repeat %until atom = terminator
41470 @ 356936:               LINE   7145 "regression-compile-tmp/imp22g-77.imp"
41471 @ 356976:               PUSH   ATOM
41472 @ 356979:               PUSHI  #0x00000033
41473 @ 356984:               JUMPIF = L_0007
41474 @ 356988:               REPEAT L_0006
41475 @ 356991:               LOCATE L_0007

  7146      starts = starts+1 %if subatom = keystart
41476 @ 356994:               LINE   7146 "regression-compile-tmp/imp22g-77.imp"
41477 @ 357034:               PUSH   SUBATOM
41478 @ 357037:               PUSHI  #0x00000014
41479 @ 357042:               JUMPIF # L_0007
41480 @ 357046:               PUSH   STARTS
41481 @ 357049:               PUSH   STARTS
41482 @ 357052:               PUSHI  #0x00000001
41483 @ 357057:               ADD   
41484 @ 357058:               ASSVAL
41485 @ 357059:               LOCATE L_0007

  7147      cycles = cycles+1 %if subatom = keycycle
41486 @ 357062:               LINE   7147 "regression-compile-tmp/imp22g-77.imp"
41487 @ 357102:               PUSH   SUBATOM
41488 @ 357105:               PUSHI  #0x00000015
41489 @ 357110:               JUMPIF # L_0007
41490 @ 357114:               PUSH   CYCLES
41491 @ 357117:               PUSH   CYCLES
41492 @ 357120:               PUSHI  #0x00000001
41493 @ 357125:               ADD   
41494 @ 357126:               ASSVAL
41495 @ 357127:               LOCATE L_0007

  7148    %finish
41496 @ 357130:               LINE   7148 "regression-compile-tmp/imp22g-77.imp"
41497 @ 357170:               LOCATE L_0004

  7149    -> next1
  7150  
41498 @ 357173:               LINE   7149 "regression-compile-tmp/imp22g-77.imp"
41499 @ 357213:               JUMP   L_018b

  7151  initial(dud):
41500 @ 357216:               LINE   7151 "regression-compile-tmp/imp22g-77.imp"
41501 @ 357256:               PUSHI  #0x0000003f
41502 @ 357261:               SLABEL 382

  7152    syntax error;  !ie atom error
  7153  
41503 @ 357264:               LINE   7152 "regression-compile-tmp/imp22g-77.imp"
41504 @ 357304:               PUSH   SYNTAXERROR
41505 @ 357307:               CALL  

  7154  initial(*):
41506 @ 357308:               LINE   7154 "regression-compile-tmp/imp22g-77.imp"
41507 @ 357348:               DEFSW  382

  7155    error(nonstarter+point)
  7156  
41508 @ 357351:               LINE   7155 "regression-compile-tmp/imp22g-77.imp"
41509 @ 357391:               PUSH   ERROR
41510 @ 357394:               PUSHI  #0x0000001f
41511 @ 357399:               PUSHI  #0x00000040
41512 @ 357404:               ADD   
41513 @ 357405:               ASSPAR
41514 @ 357406:               CALL  

  7157  initial(ident):
41515 @ 357407:               LINE   7157 "regression-compile-tmp/imp22g-77.imp"
41516 @ 357447:               PUSHI  #0x00000035
41517 @ 357452:               SLABEL 382

  7158    %if byteintegeR(fp) = ':' %start;  !simple label
41518 @ 357455:               LINE   7158 "regression-compile-tmp/imp22g-77.imp"
41519 @ 357495:               PUSH   BYTEINTEGER
41520 @ 357498:               PUSH   FP
41521 @ 357501:               ASSPAR
41522 @ 357502:               CALL  
41523 @ 357503:               PUSHI  #0x0000003a
41524 @ 357508:               JUMPIF # L_0004

  7159      fp = fp+1
41525 @ 357512:               LINE   7159 "regression-compile-tmp/imp22g-77.imp"
41526 @ 357552:               PUSH   FP
41527 @ 357555:               PUSH   FP
41528 @ 357558:               PUSHI  #0x00000001
41529 @ 357563:               ADD   
41530 @ 357564:               ASSVAL

  7160      declare(definedlabel)
41531 @ 357565:               LINE   7160 "regression-compile-tmp/imp22g-77.imp"
41532 @ 357605:               PUSH   DECLARE
41533 @ 357608:               PUSH   DEFINEDLABEL
41534 @ 357611:               ASSPAR
41535 @ 357612:               CALL  

  7161      set user label(ditem_val)
41536 @ 357613:               LINE   7161 "regression-compile-tmp/imp22g-77.imp"
41537 @ 357653:               PUSH   SETUSERLABEL
41538 @ 357656:               PUSH   DITEM
41539 @ 357659:               SELECT 9
41540 @ 357662:               ASSPAR
41541 @ 357663:               CALL  

  7162      ->next
41542 @ 357664:               LINE   7162 "regression-compile-tmp/imp22g-77.imp"
41543 @ 357704:               JUMP   L_018a

  7163    %finish
41544 @ 357707:               LINE   7163 "regression-compile-tmp/imp22g-77.imp"
41545 @ 357747:               LOCATE L_0004

  7164    name error %if item <= 0
41546 @ 357750:               LINE   7164 "regression-compile-tmp/imp22g-77.imp"
41547 @ 357790:               PUSH   ITEM
41548 @ 357793:               PUSHI  #0x00000000
41549 @ 357798:               JUMPIF > L_0004
41550 @ 357802:               PUSH   NAMEERROR
41551 @ 357805:               CALL  
41552 @ 357806:               LOCATE L_0004

  7165    %if ditem_mode = labmode %and ditem_type # 0 %start
41553 @ 357809:               LINE   7165 "regression-compile-tmp/imp22g-77.imp"
41554 @ 357849:               PUSH   DITEM
41555 @ 357852:               SELECT 8
41556 @ 357855:               PUSHI  #0x000000ba
41557 @ 357860:               JUMPIF # L_0004
41558 @ 357864:               PUSH   DITEM
41559 @ 357867:               SELECT 2
41560 @ 357870:               PUSHI  #0x00000000
41561 @ 357875:               JUMPIF = L_0004

  7166      literal = 1
41562 @ 357879:               LINE   7166 "regression-compile-tmp/imp22g-77.imp"
41563 @ 357919:               PUSH   LITERAL
41564 @ 357922:               PUSHI  #0x00000001
41565 @ 357927:               ASSVAL

  7167      get SWITCH INDEX
41566 @ 357928:               LINE   7167 "regression-compile-tmp/imp22g-77.imp"
41567 @ 357968:               PUSH   GETSWITCHINDEX
41568 @ 357971:               CALL  

  7168      get(colon)
41569 @ 357972:               LINE   7168 "regression-compile-tmp/imp22g-77.imp"
41570 @ 358012:               PUSH   GET
41571 @ 358015:               PUSHI  #0x0000003b
41572 @ 358020:               ASSPAR
41573 @ 358021:               CALL  

  7169      ->next
41574 @ 358022:               LINE   7169 "regression-compile-tmp/imp22g-77.imp"
41575 @ 358062:               JUMP   L_018a

  7170    %finish
41576 @ 358065:               LINE   7170 "regression-compile-tmp/imp22g-77.imp"
41577 @ 358105:               LOCATE L_0004

  7171  initial(keyreturn): initial(keyresult): initial(tf):
41578 @ 358108:               LINE   7171 "regression-compile-tmp/imp22g-77.imp"
41579 @ 358148:               PUSHI  #0x00000007
41580 @ 358153:               SLABEL 382
41581 @ 358156:               LINE   7171 "regression-compile-tmp/imp22g-77.imp"
41582 @ 358196:               PUSHI  #0x00000009
41583 @ 358201:               SLABEL 382
41584 @ 358204:               LINE   7171 "regression-compile-tmp/imp22g-77.imp"
41585 @ 358244:               PUSHI  #0x00000008
41586 @ 358249:               SLABEL 382

  7172  initial(keystop): initial(keysignal): initial(keymonitor):
41587 @ 358252:               LINE   7172 "regression-compile-tmp/imp22g-77.imp"
41588 @ 358292:               PUSHI  #0x0000000a
41589 @ 358297:               SLABEL 382
41590 @ 358300:               LINE   7172 "regression-compile-tmp/imp22g-77.imp"
41591 @ 358340:               PUSHI  #0x0000000c
41592 @ 358345:               SLABEL 382
41593 @ 358348:               LINE   7172 "regression-compile-tmp/imp22g-77.imp"
41594 @ 358388:               PUSHI  #0x0000000d
41595 @ 358393:               SLABEL 382

  7173  initial(exit): initial(keygoto): initial(arrow):
41596 @ 358396:               LINE   7173 "regression-compile-tmp/imp22g-77.imp"
41597 @ 358436:               PUSHI  #0x00000006
41598 @ 358441:               SLABEL 382
41599 @ 358444:               LINE   7173 "regression-compile-tmp/imp22g-77.imp"
41600 @ 358484:               PUSHI  #0x0000000b
41601 @ 358489:               SLABEL 382
41602 @ 358492:               LINE   7173 "regression-compile-tmp/imp22g-77.imp"
41603 @ 358532:               PUSHI  #0x0000004a
41604 @ 358537:               SLABEL 382

  7174    matched = 0
41605 @ 358540:               LINE   7174 "regression-compile-tmp/imp22g-77.imp"
41606 @ 358580:               PUSH   MATCHED
41607 @ 358583:               PUSHI  #0x00000000
41608 @ 358588:               ASSVAL

  7175    get INSTRUCTION
41609 @ 358589:               LINE   7175 "regression-compile-tmp/imp22g-77.imp"
41610 @ 358629:               PUSH   GETINSTRUCTION
41611 @ 358632:               CALL  

  7176    -> next %if a(terminator)=TRUE
41612 @ 358633:               LINE   7176 "regression-compile-tmp/imp22g-77.imp"
41613 @ 358673:               PUSH   A
41614 @ 358676:               PUSHI  #0x00000033
41615 @ 358681:               ASSPAR
41616 @ 358682:               CALL  
41617 @ 358683:               PUSHI  #0x00000001
41618 @ 358688:               JUMPIF # L_0004
41619 @ 358692:               JUMP   L_018a
41620 @ 358695:               LOCATE L_0004

  7177    c_access = 1
41621 @ 358698:               LINE   7177 "regression-compile-tmp/imp22g-77.imp"
41622 @ 358738:               PUSH   C
41623 @ 358741:               SELECT 16
41624 @ 358744:               PUSHI  #0x00000001
41625 @ 358749:               ASSVAL

  7178    %if a(iu)=TRUE %start
41626 @ 358750:               LINE   7178 "regression-compile-tmp/imp22g-77.imp"
41627 @ 358790:               PUSH   A
41628 @ 358793:               PUSHI  #0x0000000f
41629 @ 358798:               ASSPAR
41630 @ 358799:               CALL  
41631 @ 358800:               PUSHI  #0x00000001
41632 @ 358805:               JUMPIF # L_0004

  7179      startnp = np
41633 @ 358809:               LINE   7179 "regression-compile-tmp/imp22g-77.imp"
41634 @ 358849:               PUSH   STARTNP
41635 @ 358852:               PUSH   NP
41636 @ 358855:               ASSVAL

  7180      get CONDITION
41637 @ 358856:               LINE   7180 "regression-compile-tmp/imp22g-77.imp"
41638 @ 358896:               PUSH   GETCONDITION
41639 @ 358899:               CALL  

  7181    %finish %else %if a(keywhile)=TRUE %start
41640 @ 358900:               LINE   7181 "regression-compile-tmp/imp22g-77.imp"
41641 @ 358940:               GOTO   L_0003
41642 @ 358943:               LOCATE L_0004
41643 @ 358946:               PUSH   A
41644 @ 358949:               PUSHI  #0x00000010
41645 @ 358954:               ASSPAR
41646 @ 358955:               CALL  
41647 @ 358956:               PUSHI  #0x00000001
41648 @ 358961:               JUMPIF # L_0004

  7182      putact(repeat,curlab,0);  !append repeat
41649 @ 358965:               LINE   7182 "regression-compile-tmp/imp22g-77.imp"
41650 @ 359005:               PUSH   PUTACT
41651 @ 359008:               PUSHI  #0x00000027
41652 @ 359013:               ASSPAR
41653 @ 359014:               PUSH   CURLAB
41654 @ 359017:               ASSPAR
41655 @ 359018:               PUSHI  #0x00000000
41656 @ 359023:               ASSPAR
41657 @ 359024:               CALL  

  7183      startnp = np
41658 @ 359025:               LINE   7183 "regression-compile-tmp/imp22g-77.imp"
41659 @ 359065:               PUSH   STARTNP
41660 @ 359068:               PUSH   NP
41661 @ 359071:               ASSVAL

  7184      define label(curlab)
41662 @ 359072:               LINE   7184 "regression-compile-tmp/imp22g-77.imp"
41663 @ 359112:               PUSH   DEFINELABEL
41664 @ 359115:               PUSH   CURLAB
41665 @ 359118:               ASSPAR
41666 @ 359119:               CALL  

  7185      get CONDITION
41667 @ 359120:               LINE   7185 "regression-compile-tmp/imp22g-77.imp"
41668 @ 359160:               PUSH   GETCONDITION
41669 @ 359163:               CALL  

  7186   %finish %else %if a(keyfor)=TRUE %start
41670 @ 359164:               LINE   7186 "regression-compile-tmp/imp22g-77.imp"
41671 @ 359204:               GOTO   L_0003
41672 @ 359207:               LOCATE L_0004
41673 @ 359210:               PUSH   A
41674 @ 359213:               PUSHI  #0x00000012
41675 @ 359218:               ASSPAR
41676 @ 359219:               CALL  
41677 @ 359220:               PUSHI  #0x00000001
41678 @ 359225:               JUMPIF # L_0004

  7187      putact(0,0,0)
41679 @ 359229:               LINE   7187 "regression-compile-tmp/imp22g-77.imp"
41680 @ 359269:               PUSH   PUTACT
41681 @ 359272:               PUSHI  #0x00000000
41682 @ 359277:               ASSPAR
41683 @ 359278:               PUSHI  #0x00000000
41684 @ 359283:               ASSPAR
41685 @ 359284:               PUSHI  #0x00000000
41686 @ 359289:               ASSPAR
41687 @ 359290:               CALL  

  7188      putact(0,0,0)
41688 @ 359291:               LINE   7188 "regression-compile-tmp/imp22g-77.imp"
41689 @ 359331:               PUSH   PUTACT
41690 @ 359334:               PUSHI  #0x00000000
41691 @ 359339:               ASSPAR
41692 @ 359340:               PUSHI  #0x00000000
41693 @ 359345:               ASSPAR
41694 @ 359346:               PUSHI  #0x00000000
41695 @ 359351:               ASSPAR
41696 @ 359352:               CALL  

  7189      putact(repeat,curlab,0);  !append repeat
41697 @ 359353:               LINE   7189 "regression-compile-tmp/imp22g-77.imp"
41698 @ 359393:               PUSH   PUTACT
41699 @ 359396:               PUSHI  #0x00000027
41700 @ 359401:               ASSPAR
41701 @ 359402:               PUSH   CURLAB
41702 @ 359405:               ASSPAR
41703 @ 359406:               PUSHI  #0x00000000
41704 @ 359411:               ASSPAR
41705 @ 359412:               CALL  

  7190      startnp = np
41706 @ 359413:               LINE   7190 "regression-compile-tmp/imp22g-77.imp"
41707 @ 359453:               PUSH   STARTNP
41708 @ 359456:               PUSH   NP
41709 @ 359459:               ASSVAL

  7191      get FOR CLAUSE
41710 @ 359460:               LINE   7191 "regression-compile-tmp/imp22g-77.imp"
41711 @ 359500:               PUSH   GETFORCLAUSE
41712 @ 359503:               CALL  

  7192      value = np;  np = startnp-3
41713 @ 359504:               LINE   7192 "regression-compile-tmp/imp22g-77.imp"
41714 @ 359544:               PUSH   VALUE
41715 @ 359547:               PUSH   NP
41716 @ 359550:               ASSVAL
41717 @ 359551:               LINE   7192 "regression-compile-tmp/imp22g-77.imp"
41718 @ 359591:               PUSH   NP
41719 @ 359594:               PUSH   STARTNP
41720 @ 359597:               PUSHI  #0x00000003
41721 @ 359602:               SUB   
41722 @ 359603:               ASSVAL

  7193      %if forinf > 0 %start
41723 @ 359604:               LINE   7193 "regression-compile-tmp/imp22g-77.imp"
41724 @ 359644:               PUSH   FORINF
41725 @ 359647:               PUSHI  #0x00000000
41726 @ 359652:               JUMPIF <= L_0007

  7194        putact(compare,forinf,litref(endval))
41727 @ 359656:               LINE   7194 "regression-compile-tmp/imp22g-77.imp"
41728 @ 359696:               PUSH   PUTACT
41729 @ 359699:               PUSHI  #0x00000004
41730 @ 359704:               ASSPAR
41731 @ 359705:               PUSH   FORINF
41732 @ 359708:               ASSPAR
41733 @ 359709:               PUSH   LITREF
41734 @ 359712:               PUSH   ENDVAL
41735 @ 359715:               ASSPAR
41736 @ 359716:               CALL  
41737 @ 359717:               ASSPAR
41738 @ 359718:               CALL  

  7195        putact(beq,0,curlab)
41739 @ 359719:               LINE   7195 "regression-compile-tmp/imp22g-77.imp"
41740 @ 359759:               PUSH   PUTACT
41741 @ 359762:               PUSHI  #0x00000017
41742 @ 359767:               ASSPAR
41743 @ 359768:               PUSHI  #0x00000000
41744 @ 359773:               ASSPAR
41745 @ 359774:               PUSH   CURLAB
41746 @ 359777:               ASSPAR
41747 @ 359778:               CALL  

  7196      %finish %else np = np+2
41748 @ 359779:               LINE   7196 "regression-compile-tmp/imp22g-77.imp"
41749 @ 359819:               GOTO   L_0006
41750 @ 359822:               LOCATE L_0007
41751 @ 359825:               PUSH   NP
41752 @ 359828:               PUSH   NP
41753 @ 359831:               PUSHI  #0x00000002
41754 @ 359836:               ADD   
41755 @ 359837:               ASSVAL
41756 @ 359838:               LOCATE L_0006

  7197      putact(repeat,curlab,forinf)
41757 @ 359841:               LINE   7197 "regression-compile-tmp/imp22g-77.imp"
41758 @ 359881:               PUSH   PUTACT
41759 @ 359884:               PUSHI  #0x00000027
41760 @ 359889:               ASSPAR
41761 @ 359890:               PUSH   CURLAB
41762 @ 359893:               ASSPAR
41763 @ 359894:               PUSH   FORINF
41764 @ 359897:               ASSPAR
41765 @ 359898:               CALL  

  7198      np = value
41766 @ 359899:               LINE   7198 "regression-compile-tmp/imp22g-77.imp"
41767 @ 359939:               PUSH   NP
41768 @ 359942:               PUSH   VALUE
41769 @ 359945:               ASSVAL

  7199    %else
41770 @ 359946:               LINE   7199 "regression-compile-tmp/imp22g-77.imp"
41771 @ 359986:               GOTO   L_0003
41772 @ 359989:               LOCATE L_0004

  7200      syntax error %unless a(keyuntil)=TRUE
41773 @ 359992:               LINE   7200 "regression-compile-tmp/imp22g-77.imp"
41774 @ 360032:               PUSH   A
41775 @ 360035:               PUSHI  #0x00000011
41776 @ 360040:               ASSPAR
41777 @ 360041:               CALL  
41778 @ 360042:               PUSHI  #0x00000001
41779 @ 360047:               JUMPIF = L_0007
41780 @ 360051:               PUSH   SYNTAXERROR
41781 @ 360054:               CALL  
41782 @ 360055:               LOCATE L_0007

  7201      get CONDITION
41783 @ 360058:               LINE   7201 "regression-compile-tmp/imp22g-77.imp"
41784 @ 360098:               PUSH   GETCONDITION
41785 @ 360101:               CALL  

  7202      putact(repeat,curlab,0)
41786 @ 360102:               LINE   7202 "regression-compile-tmp/imp22g-77.imp"
41787 @ 360142:               PUSH   PUTACT
41788 @ 360145:               PUSHI  #0x00000027
41789 @ 360150:               ASSPAR
41790 @ 360151:               PUSH   CURLAB
41791 @ 360154:               ASSPAR
41792 @ 360155:               PUSHI  #0x00000000
41793 @ 360160:               ASSPAR
41794 @ 360161:               CALL  

  7203      define label(curlab)
41795 @ 360162:               LINE   7203 "regression-compile-tmp/imp22g-77.imp"
41796 @ 360202:               PUSH   DEFINELABEL
41797 @ 360205:               PUSH   CURLAB
41798 @ 360208:               ASSPAR
41799 @ 360209:               CALL  

  7204    %finish
41800 @ 360210:               LINE   7204 "regression-compile-tmp/imp22g-77.imp"
41801 @ 360250:               LOCATE L_0003

  7205    -> term
  7206  
41802 @ 360253:               LINE   7205 "regression-compile-tmp/imp22g-77.imp"
41803 @ 360293:               JUMP   L_018c

  7207  initial(iu):  !%if, %unless
41804 @ 360296:               LINE   7207 "regression-compile-tmp/imp22g-77.imp"
41805 @ 360336:               PUSHI  #0x0000000f
41806 @ 360341:               SLABEL 382

  7208    this is inst
41807 @ 360344:               LINE   7208 "regression-compile-tmp/imp22g-77.imp"
41808 @ 360384:               PUSH   THISISINST
41809 @ 360387:               CALL  

  7209    %cycle
41810 @ 360388:               LINE   7209 "regression-compile-tmp/imp22g-77.imp"
41811 @ 360428:               LOCATE L_0003

  7210      get CONDITION
41812 @ 360431:               LINE   7210 "regression-compile-tmp/imp22g-77.imp"
41813 @ 360471:               PUSH   GETCONDITION
41814 @ 360474:               CALL  

  7211      %if a(keythen)=TRUE %and %not a(keystart)=TRUE %start
41815 @ 360475:               LINE   7211 "regression-compile-tmp/imp22g-77.imp"
41816 @ 360515:               PUSH   A
41817 @ 360518:               PUSHI  #0x00000013
41818 @ 360523:               ASSPAR
41819 @ 360524:               CALL  
41820 @ 360525:               PUSHI  #0x00000001
41821 @ 360530:               JUMPIF # L_0007
41822 @ 360534:               PUSH   A
41823 @ 360537:               PUSHI  #0x00000014
41824 @ 360542:               ASSPAR
41825 @ 360543:               CALL  
41826 @ 360544:               PUSHI  #0x00000001
41827 @ 360549:               JUMPIF = L_0007

  7212        get INSTRUCTION
41828 @ 360553:               LINE   7212 "regression-compile-tmp/imp22g-77.imp"
41829 @ 360593:               PUSH   GETINSTRUCTION
41830 @ 360596:               CALL  

  7213      %else
41831 @ 360597:               LINE   7213 "regression-compile-tmp/imp22g-77.imp"
41832 @ 360637:               GOTO   L_0006
41833 @ 360640:               LOCATE L_0007

  7214        matched = 0;   ![unsee %start]
41834 @ 360643:               LINE   7214 "regression-compile-tmp/imp22g-77.imp"
41835 @ 360683:               PUSH   MATCHED
41836 @ 360686:               PUSHI  #0x00000000
41837 @ 360691:               ASSVAL

  7215        get(keystart)
41838 @ 360692:               LINE   7215 "regression-compile-tmp/imp22g-77.imp"
41839 @ 360732:               PUSH   GET
41840 @ 360735:               PUSHI  #0x00000014
41841 @ 360740:               ASSPAR
41842 @ 360741:               CALL  

  7216        %cycle
41843 @ 360742:               LINE   7216 "regression-compile-tmp/imp22g-77.imp"
41844 @ 360782:               LOCATE L_0009

  7217          get(terminator)
41845 @ 360785:               LINE   7217 "regression-compile-tmp/imp22g-77.imp"
41846 @ 360825:               PUSH   GET
41847 @ 360828:               PUSHI  #0x00000033
41848 @ 360833:               ASSPAR
41849 @ 360834:               CALL  

  7218          curlab = curlab+2
41850 @ 360835:               LINE   7218 "regression-compile-tmp/imp22g-77.imp"
41851 @ 360875:               PUSH   CURLAB
41852 @ 360878:               PUSH   CURLAB
41853 @ 360881:               PUSHI  #0x00000002
41854 @ 360886:               ADD   
41855 @ 360887:               ASSVAL

  7219          get STATEMENTS(keyelse)
41856 @ 360888:               LINE   7219 "regression-compile-tmp/imp22g-77.imp"
41857 @ 360928:               PUSH   GETSTATEMENTS
41858 @ 360931:               PUSHI  #0x00000004
41859 @ 360936:               ASSPAR
41860 @ 360937:               CALL  

  7220          curlab = curlab-2
41861 @ 360938:               LINE   7220 "regression-compile-tmp/imp22g-77.imp"
41862 @ 360978:               PUSH   CURLAB
41863 @ 360981:               PUSH   CURLAB
41864 @ 360984:               PUSHI  #0x00000002
41865 @ 360989:               SUB   
41866 @ 360990:               ASSVAL

  7221          %exit %if atom # keyelse;  !%finish ->
41867 @ 360991:               LINE   7221 "regression-compile-tmp/imp22g-77.imp"
41868 @ 361031:               PUSH   ATOM
41869 @ 361034:               PUSHI  #0x00000004
41870 @ 361039:               JUMPIF = L_000d
41871 @ 361043:               GOTO   L_000a
41872 @ 361046:               LOCATE L_000d

  7222          putact(else,curlab+1,curlab)
41873 @ 361049:               LINE   7222 "regression-compile-tmp/imp22g-77.imp"
41874 @ 361089:               PUSH   PUTACT
41875 @ 361092:               PUSHI  #0x00000028
41876 @ 361097:               ASSPAR
41877 @ 361098:               PUSH   CURLAB
41878 @ 361101:               PUSHI  #0x00000001
41879 @ 361106:               ADD   
41880 @ 361107:               ASSPAR
41881 @ 361108:               PUSH   CURLAB
41882 @ 361111:               ASSPAR
41883 @ 361112:               CALL  

  7223          -> exit2 %unless a(iu)=TRUE
41884 @ 361113:               LINE   7223 "regression-compile-tmp/imp22g-77.imp"
41885 @ 361153:               PUSH   A
41886 @ 361156:               PUSHI  #0x0000000f
41887 @ 361161:               ASSPAR
41888 @ 361162:               CALL  
41889 @ 361163:               PUSHI  #0x00000001
41890 @ 361168:               JUMPIF = L_000d
41891 @ 361172:               JUMP   L_018d
41892 @ 361175:               LOCATE L_000d

  7224          get CONDITION
41893 @ 361178:               LINE   7224 "regression-compile-tmp/imp22g-77.imp"
41894 @ 361218:               PUSH   GETCONDITION
41895 @ 361221:               CALL  

  7225        %repeat
41896 @ 361222:               LINE   7225 "regression-compile-tmp/imp22g-77.imp"
41897 @ 361262:               REPEAT L_0009
41898 @ 361265:               LOCATE L_000a

  7226        -> initial(keyend) %if atom = keyend
41899 @ 361268:               LINE   7226 "regression-compile-tmp/imp22g-77.imp"
41900 @ 361308:               PUSH   ATOM
41901 @ 361311:               PUSHI  #0x00000001
41902 @ 361316:               JUMPIF # L_000a
41903 @ 361320:               PUSHI  #0x00000001
41904 @ 361325:               SJUMP  382
41905 @ 361328:               LOCATE L_000a

  7227      %finish
41906 @ 361331:               LINE   7227 "regression-compile-tmp/imp22g-77.imp"
41907 @ 361371:               LOCATE L_0006

  7228      -> term %unless a(keyelse)=TRUE
41908 @ 361374:               LINE   7228 "regression-compile-tmp/imp22g-77.imp"
41909 @ 361414:               PUSH   A
41910 @ 361417:               PUSHI  #0x00000004
41911 @ 361422:               ASSPAR
41912 @ 361423:               CALL  
41913 @ 361424:               PUSHI  #0x00000001
41914 @ 361429:               JUMPIF = L_0007
41915 @ 361433:               JUMP   L_018c
41916 @ 361436:               LOCATE L_0007

  7229      putact(else,curlab+1,curlab)
41917 @ 361439:               LINE   7229 "regression-compile-tmp/imp22g-77.imp"
41918 @ 361479:               PUSH   PUTACT
41919 @ 361482:               PUSHI  #0x00000028
41920 @ 361487:               ASSPAR
41921 @ 361488:               PUSH   CURLAB
41922 @ 361491:               PUSHI  #0x00000001
41923 @ 361496:               ADD   
41924 @ 361497:               ASSPAR
41925 @ 361498:               PUSH   CURLAB
41926 @ 361501:               ASSPAR
41927 @ 361502:               CALL  

  7230    %repeat %until %not a(iu)=TRUE
41928 @ 361503:               LINE   7230 "regression-compile-tmp/imp22g-77.imp"
41929 @ 361543:               PUSH   A
41930 @ 361546:               PUSHI  #0x0000000f
41931 @ 361551:               ASSPAR
41932 @ 361552:               CALL  
41933 @ 361553:               PUSHI  #0x00000001
41934 @ 361558:               JUMPIF # L_0004
41935 @ 361562:               REPEAT L_0003
41936 @ 361565:               LOCATE L_0004

  7231    %unless a(keystart)=TRUE %start
41937 @ 361568:               LINE   7231 "regression-compile-tmp/imp22g-77.imp"
41938 @ 361608:               PUSH   A
41939 @ 361611:               PUSHI  #0x00000014
41940 @ 361616:               ASSPAR
41941 @ 361617:               CALL  
41942 @ 361618:               PUSHI  #0x00000001
41943 @ 361623:               JUMPIF = L_0004

  7232      get INSTRUCTION
41944 @ 361627:               LINE   7232 "regression-compile-tmp/imp22g-77.imp"
41945 @ 361667:               PUSH   GETINSTRUCTION
41946 @ 361670:               CALL  

  7233    %else
41947 @ 361671:               LINE   7233 "regression-compile-tmp/imp22g-77.imp"
41948 @ 361711:               GOTO   L_0003
41949 @ 361714:               LOCATE L_0004

  7234  exit2:
41950 @ 361717:               LINE   7234 "regression-compile-tmp/imp22g-77.imp"
41951 @ 361757:               LABEL  L_018d

  7235      get(terminator)
41952 @ 361760:               LINE   7235 "regression-compile-tmp/imp22g-77.imp"
41953 @ 361800:               PUSH   GET
41954 @ 361803:               PUSHI  #0x00000033
41955 @ 361808:               ASSPAR
41956 @ 361809:               CALL  

  7236      curlab = curlab+2
41957 @ 361810:               LINE   7236 "regression-compile-tmp/imp22g-77.imp"
41958 @ 361850:               PUSH   CURLAB
41959 @ 361853:               PUSH   CURLAB
41960 @ 361856:               PUSHI  #0x00000002
41961 @ 361861:               ADD   
41962 @ 361862:               ASSVAL

  7237      get STATEMENTS(keyfinish)
41963 @ 361863:               LINE   7237 "regression-compile-tmp/imp22g-77.imp"
41964 @ 361903:               PUSH   GETSTATEMENTS
41965 @ 361906:               PUSHI  #0x00000003
41966 @ 361911:               ASSPAR
41967 @ 361912:               CALL  

  7238      curlab = curlab-2
41968 @ 361913:               LINE   7238 "regression-compile-tmp/imp22g-77.imp"
41969 @ 361953:               PUSH   CURLAB
41970 @ 361956:               PUSH   CURLAB
41971 @ 361959:               PUSHI  #0x00000002
41972 @ 361964:               SUB   
41973 @ 361965:               ASSVAL

  7239      -> initial(keyend) %if atom = keyend
41974 @ 361966:               LINE   7239 "regression-compile-tmp/imp22g-77.imp"
41975 @ 362006:               PUSH   ATOM
41976 @ 362009:               PUSHI  #0x00000001
41977 @ 362014:               JUMPIF # L_0007
41978 @ 362018:               PUSHI  #0x00000001
41979 @ 362023:               SJUMP  382
41980 @ 362026:               LOCATE L_0007

  7240    %finish
41981 @ 362029:               LINE   7240 "regression-compile-tmp/imp22g-77.imp"
41982 @ 362069:               LOCATE L_0003

  7241    -> term
  7242  
41983 @ 362072:               LINE   7241 "regression-compile-tmp/imp22g-77.imp"
41984 @ 362112:               JUMP   L_018c

  7243  initial(keycycle):
41985 @ 362115:               LINE   7243 "regression-compile-tmp/imp22g-77.imp"
41986 @ 362155:               PUSHI  #0x00000015
41987 @ 362160:               SLABEL 382

  7244    this is inst
41988 @ 362163:               LINE   7244 "regression-compile-tmp/imp22g-77.imp"
41989 @ 362203:               PUSH   THISISINST
41990 @ 362206:               CALL  

  7245    %if a(terminator)=TRUE %start
41991 @ 362207:               LINE   7245 "regression-compile-tmp/imp22g-77.imp"
41992 @ 362247:               PUSH   A
41993 @ 362250:               PUSHI  #0x00000033
41994 @ 362255:               ASSPAR
41995 @ 362256:               CALL  
41996 @ 362257:               PUSHI  #0x00000001
41997 @ 362262:               JUMPIF # L_0004

  7246      define label(curlab)
41998 @ 362266:               LINE   7246 "regression-compile-tmp/imp22g-77.imp"
41999 @ 362306:               PUSH   DEFINELABEL
42000 @ 362309:               PUSH   CURLAB
42001 @ 362312:               ASSPAR
42002 @ 362313:               CALL  

  7247      get LOOP BODY
42003 @ 362314:               LINE   7247 "regression-compile-tmp/imp22g-77.imp"
42004 @ 362354:               PUSH   GETLOOPBODY
42005 @ 362357:               CALL  

  7248      -> initial(keyend) %if atom = keyend
42006 @ 362358:               LINE   7248 "regression-compile-tmp/imp22g-77.imp"
42007 @ 362398:               PUSH   ATOM
42008 @ 362401:               PUSHI  #0x00000001
42009 @ 362406:               JUMPIF # L_0007
42010 @ 362410:               PUSHI  #0x00000001
42011 @ 362415:               SJUMP  382
42012 @ 362418:               LOCATE L_0007

  7249      get CONDITION %if a(keyuntil)=TRUE
42013 @ 362421:               LINE   7249 "regression-compile-tmp/imp22g-77.imp"
42014 @ 362461:               PUSH   A
42015 @ 362464:               PUSHI  #0x00000011
42016 @ 362469:               ASSPAR
42017 @ 362470:               CALL  
42018 @ 362471:               PUSHI  #0x00000001
42019 @ 362476:               JUMPIF # L_0007
42020 @ 362480:               PUSH   GETCONDITION
42021 @ 362483:               CALL  
42022 @ 362484:               LOCATE L_0007

  7250      putact(repeat,curlab,0)
42023 @ 362487:               LINE   7250 "regression-compile-tmp/imp22g-77.imp"
42024 @ 362527:               PUSH   PUTACT
42025 @ 362530:               PUSHI  #0x00000027
42026 @ 362535:               ASSPAR
42027 @ 362536:               PUSH   CURLAB
42028 @ 362539:               ASSPAR
42029 @ 362540:               PUSHI  #0x00000000
42030 @ 362545:               ASSPAR
42031 @ 362546:               CALL  

  7251      -> term
42032 @ 362547:               LINE   7251 "regression-compile-tmp/imp22g-77.imp"
42033 @ 362587:               JUMP   L_018c

  7252    %finish
42034 @ 362590:               LINE   7252 "regression-compile-tmp/imp22g-77.imp"
42035 @ 362630:               LOCATE L_0004

  7253    nonstandard(22)
42036 @ 362633:               LINE   7253 "regression-compile-tmp/imp22g-77.imp"
42037 @ 362673:               PUSH   NONSTANDARD
42038 @ 362676:               PUSHI  #0x00000016
42039 @ 362681:               ASSPAR
42040 @ 362682:               CALL  

  7254    get FOR CLAUSE
42041 @ 362683:               LINE   7254 "regression-compile-tmp/imp22g-77.imp"
42042 @ 362723:               PUSH   GETFORCLAUSE
42043 @ 362726:               CALL  

  7255    -> for1
42044 @ 362727:               LINE   7255 "regression-compile-tmp/imp22g-77.imp"
42045 @ 362767:               JUMP   L_018e

  7256  initial(keywhile):
42046 @ 362770:               LINE   7256 "regression-compile-tmp/imp22g-77.imp"
42047 @ 362810:               PUSHI  #0x00000010
42048 @ 362815:               SLABEL 382

  7257    this is inst
42049 @ 362818:               LINE   7257 "regression-compile-tmp/imp22g-77.imp"
42050 @ 362858:               PUSH   THISISINST
42051 @ 362861:               CALL  

  7258    define label(curlab)
42052 @ 362862:               LINE   7258 "regression-compile-tmp/imp22g-77.imp"
42053 @ 362902:               PUSH   DEFINELABEL
42054 @ 362905:               PUSH   CURLAB
42055 @ 362908:               ASSPAR
42056 @ 362909:               CALL  

  7259    get CONDITION
42057 @ 362910:               LINE   7259 "regression-compile-tmp/imp22g-77.imp"
42058 @ 362950:               PUSH   GETCONDITION
42059 @ 362953:               CALL  

  7260    get(keycycle)
42060 @ 362954:               LINE   7260 "regression-compile-tmp/imp22g-77.imp"
42061 @ 362994:               PUSH   GET
42062 @ 362997:               PUSHI  #0x00000015
42063 @ 363002:               ASSPAR
42064 @ 363003:               CALL  

  7261    get(terminator)
42065 @ 363004:               LINE   7261 "regression-compile-tmp/imp22g-77.imp"
42066 @ 363044:               PUSH   GET
42067 @ 363047:               PUSHI  #0x00000033
42068 @ 363052:               ASSPAR
42069 @ 363053:               CALL  

  7262    compile(np0)
42070 @ 363054:               LINE   7262 "regression-compile-tmp/imp22g-77.imp"
42071 @ 363094:               PUSH   COMPILE
42072 @ 363097:               PUSH   NP0
42073 @ 363100:               ASSPAR
42074 @ 363101:               CALL  

  7263    get LOOP BODY
42075 @ 363102:               LINE   7263 "regression-compile-tmp/imp22g-77.imp"
42076 @ 363142:               PUSH   GETLOOPBODY
42077 @ 363145:               CALL  

  7264    -> initial(keyend) %if atom = keyend
42078 @ 363146:               LINE   7264 "regression-compile-tmp/imp22g-77.imp"
42079 @ 363186:               PUSH   ATOM
42080 @ 363189:               PUSHI  #0x00000001
42081 @ 363194:               JUMPIF # L_0004
42082 @ 363198:               PUSHI  #0x00000001
42083 @ 363203:               SJUMP  382
42084 @ 363206:               LOCATE L_0004

  7265    nonstandard(6) %and get CONDITION %if a(keyuntil)=TRUE
42085 @ 363209:               LINE   7265 "regression-compile-tmp/imp22g-77.imp"
42086 @ 363249:               PUSH   A
42087 @ 363252:               PUSHI  #0x00000011
42088 @ 363257:               ASSPAR
42089 @ 363258:               CALL  
42090 @ 363259:               PUSHI  #0x00000001
42091 @ 363264:               JUMPIF # L_0004
42092 @ 363268:               PUSH   NONSTANDARD
42093 @ 363271:               PUSHI  #0x00000006
42094 @ 363276:               ASSPAR
42095 @ 363277:               CALL  
42096 @ 363278:               PUSH   GETCONDITION
42097 @ 363281:               CALL  
42098 @ 363282:               LOCATE L_0004

  7266    putact(repeat,curlab,0)
42099 @ 363285:               LINE   7266 "regression-compile-tmp/imp22g-77.imp"
42100 @ 363325:               PUSH   PUTACT
42101 @ 363328:               PUSHI  #0x00000027
42102 @ 363333:               ASSPAR
42103 @ 363334:               PUSH   CURLAB
42104 @ 363337:               ASSPAR
42105 @ 363338:               PUSHI  #0x00000000
42106 @ 363343:               ASSPAR
42107 @ 363344:               CALL  

  7267    ->term
42108 @ 363345:               LINE   7267 "regression-compile-tmp/imp22g-77.imp"
42109 @ 363385:               JUMP   L_018c

  7268  initial(keyfor):
42110 @ 363388:               LINE   7268 "regression-compile-tmp/imp22g-77.imp"
42111 @ 363428:               PUSHI  #0x00000012
42112 @ 363433:               SLABEL 382

  7269    this is inst
42113 @ 363436:               LINE   7269 "regression-compile-tmp/imp22g-77.imp"
42114 @ 363476:               PUSH   THISISINST
42115 @ 363479:               CALL  

  7270    get FOR CLAUSE
42116 @ 363480:               LINE   7270 "regression-compile-tmp/imp22g-77.imp"
42117 @ 363520:               PUSH   GETFORCLAUSE
42118 @ 363523:               CALL  

  7271    get(keycycle)
42119 @ 363524:               LINE   7271 "regression-compile-tmp/imp22g-77.imp"
42120 @ 363564:               PUSH   GET
42121 @ 363567:               PUSHI  #0x00000015
42122 @ 363572:               ASSPAR
42123 @ 363573:               CALL  

  7272  for1:
42124 @ 363574:               LINE   7272 "regression-compile-tmp/imp22g-77.imp"
42125 @ 363614:               LABEL  L_018e

  7273    get(terminator)
42126 @ 363617:               LINE   7273 "regression-compile-tmp/imp22g-77.imp"
42127 @ 363657:               PUSH   GET
42128 @ 363660:               PUSHI  #0x00000033
42129 @ 363665:               ASSPAR
42130 @ 363666:               CALL  

  7274    compile(np0)
42131 @ 363667:               LINE   7274 "regression-compile-tmp/imp22g-77.imp"
42132 @ 363707:               PUSH   COMPILE
42133 @ 363710:               PUSH   NP0
42134 @ 363713:               ASSPAR
42135 @ 363714:               CALL  

  7275    %if forinf > 0 %start;           !Literal for loop
  7276     !%continue must come to end for increment
42136 @ 363715:               LINE   7275 "regression-compile-tmp/imp22g-77.imp"
42137 @ 363755:               PUSH   FORINF
42138 @ 363758:               PUSHI  #0x00000000
42139 @ 363763:               JUMPIF <= L_0004

  7277      loopstart = dict(curlab)_val;  !save start position
42140 @ 363767:               LINE   7277 "regression-compile-tmp/imp22g-77.imp"
42141 @ 363807:               PUSH   LOOPSTART
42142 @ 363810:               PUSH   DICT
42143 @ 363813:               PUSH   CURLAB
42144 @ 363816:               ACCESS
42145 @ 363817:               SELECT 9
42146 @ 363820:               ASSVAL

  7278      dict(curlab)_val = 0
42147 @ 363821:               LINE   7278 "regression-compile-tmp/imp22g-77.imp"
42148 @ 363861:               PUSH   DICT
42149 @ 363864:               PUSH   CURLAB
42150 @ 363867:               ACCESS
42151 @ 363868:               SELECT 9
42152 @ 363871:               PUSHI  #0x00000000
42153 @ 363876:               ASSVAL

  7279    %finish
42154 @ 363877:               LINE   7279 "regression-compile-tmp/imp22g-77.imp"
42155 @ 363917:               LOCATE L_0004

  7280    get LOOP BODY
42156 @ 363920:               LINE   7280 "regression-compile-tmp/imp22g-77.imp"
42157 @ 363960:               PUSH   GETLOOPBODY
42158 @ 363963:               CALL  

  7281    -> initial(keyend) %if atom = keyend
42159 @ 363964:               LINE   7281 "regression-compile-tmp/imp22g-77.imp"
42160 @ 364004:               PUSH   ATOM
42161 @ 364007:               PUSHI  #0x00000001
42162 @ 364012:               JUMPIF # L_0004
42163 @ 364016:               PUSHI  #0x00000001
42164 @ 364021:               SJUMP  382
42165 @ 364024:               LOCATE L_0004

  7282    %if forinf > 0 %start;  !literal FOR loop
42166 @ 364027:               LINE   7282 "regression-compile-tmp/imp22g-77.imp"
42167 @ 364067:               PUSH   FORINF
42168 @ 364070:               PUSHI  #0x00000000
42169 @ 364075:               JUMPIF <= L_0004

  7283      define label(curlab)
42170 @ 364079:               LINE   7283 "regression-compile-tmp/imp22g-77.imp"
42171 @ 364119:               PUSH   DEFINELABEL
42172 @ 364122:               PUSH   CURLAB
42173 @ 364125:               ASSPAR
42174 @ 364126:               CALL  

  7284      dict(curlab)_val = loopstart;  !restore
42175 @ 364127:               LINE   7284 "regression-compile-tmp/imp22g-77.imp"
42176 @ 364167:               PUSH   DICT
42177 @ 364170:               PUSH   CURLAB
42178 @ 364173:               ACCESS
42179 @ 364174:               SELECT 9
42180 @ 364177:               PUSH   LOOPSTART
42181 @ 364180:               ASSVAL

  7285      putact(compare,forinf,litref(endval))
42182 @ 364181:               LINE   7285 "regression-compile-tmp/imp22g-77.imp"
42183 @ 364221:               PUSH   PUTACT
42184 @ 364224:               PUSHI  #0x00000004
42185 @ 364229:               ASSPAR
42186 @ 364230:               PUSH   FORINF
42187 @ 364233:               ASSPAR
42188 @ 364234:               PUSH   LITREF
42189 @ 364237:               PUSH   ENDVAL
42190 @ 364240:               ASSPAR
42191 @ 364241:               CALL  
42192 @ 364242:               ASSPAR
42193 @ 364243:               CALL  

  7286      putact(beq,0,curlab)
42194 @ 364244:               LINE   7286 "regression-compile-tmp/imp22g-77.imp"
42195 @ 364284:               PUSH   PUTACT
42196 @ 364287:               PUSHI  #0x00000017
42197 @ 364292:               ASSPAR
42198 @ 364293:               PUSHI  #0x00000000
42199 @ 364298:               ASSPAR
42200 @ 364299:               PUSH   CURLAB
42201 @ 364302:               ASSPAR
42202 @ 364303:               CALL  

  7287    %finish
42203 @ 364304:               LINE   7287 "regression-compile-tmp/imp22g-77.imp"
42204 @ 364344:               LOCATE L_0004

  7288    putact(repeat,curlab,forinf)
42205 @ 364347:               LINE   7288 "regression-compile-tmp/imp22g-77.imp"
42206 @ 364387:               PUSH   PUTACT
42207 @ 364390:               PUSHI  #0x00000027
42208 @ 364395:               ASSPAR
42209 @ 364396:               PUSH   CURLAB
42210 @ 364399:               ASSPAR
42211 @ 364400:               PUSH   FORINF
42212 @ 364403:               ASSPAR
42213 @ 364404:               CALL  

  7289    -> term
  7290  
42214 @ 364405:               LINE   7289 "regression-compile-tmp/imp22g-77.imp"
42215 @ 364445:               JUMP   L_018c

  7291  initial(keyon):
42216 @ 364448:               LINE   7291 "regression-compile-tmp/imp22g-77.imp"
42217 @ 364488:               PUSHI  #0x0000000e
42218 @ 364493:               SLABEL 382

  7292    fault(ordererr+point) %if c_status >= hadon %or stopper = 0
42219 @ 364496:               LINE   7292 "regression-compile-tmp/imp22g-77.imp"
42220 @ 364536:               PUSH   C
42221 @ 364539:               SELECT 6
42222 @ 364542:               PUSHI  #0x00001000
42223 @ 364547:               JUMPIF >= L_0005
42224 @ 364551:               PUSH   STOPPER
42225 @ 364554:               PUSHI  #0x00000000
42226 @ 364559:               JUMPIF # L_0004
42227 @ 364563:               LOCATE L_0005
42228 @ 364566:               PUSH   FAULT
42229 @ 364569:               PUSHI  #0x00000016
42230 @ 364574:               PUSHI  #0x00000040
42231 @ 364579:               ADD   
42232 @ 364580:               ASSPAR
42233 @ 364581:               CALL  
42234 @ 364582:               LOCATE L_0004

  7293    do dynamic arrays %if c_dynarray # 0
42235 @ 364585:               LINE   7293 "regression-compile-tmp/imp22g-77.imp"
42236 @ 364625:               PUSH   C
42237 @ 364628:               SELECT 25
42238 @ 364631:               PUSHI  #0x00000000
42239 @ 364636:               JUMPIF = L_0004
42240 @ 364640:               PUSH   DODYNAMICARRAYS
42241 @ 364643:               CALL  
42242 @ 364644:               LOCATE L_0004

  7294    c_status = c_status!hadon
42243 @ 364647:               LINE   7294 "regression-compile-tmp/imp22g-77.imp"
42244 @ 364687:               PUSH   C
42245 @ 364690:               SELECT 6
42246 @ 364693:               PUSH   C
42247 @ 364696:               SELECT 6
42248 @ 364699:               PUSHI  #0x00001000
42249 @ 364704:               OR    
42250 @ 364705:               ASSVAL

  7295    matched = 1
42251 @ 364706:               LINE   7295 "regression-compile-tmp/imp22g-77.imp"
42252 @ 364746:               PUSH   MATCHED
42253 @ 364749:               PUSHI  #0x00000001
42254 @ 364754:               ASSVAL

  7296    allow(keyevent)
42255 @ 364755:               LINE   7296 "regression-compile-tmp/imp22g-77.imp"
42256 @ 364795:               PUSH   ALLOW
42257 @ 364798:               PUSHI  #0x0000002e
42258 @ 364803:               ASSPAR
42259 @ 364804:               CALL  

  7297    dump = 0
42260 @ 364805:               LINE   7297 "regression-compile-tmp/imp22g-77.imp"
42261 @ 364845:               PUSH   DUMP
42262 @ 364848:               PUSHI  #0x00000000
42263 @ 364853:               ASSVAL

  7298    %cycle
42264 @ 364854:               LINE   7298 "regression-compile-tmp/imp22g-77.imp"
42265 @ 364894:               LOCATE L_0003

  7299      get LITERAL(inttype)
42266 @ 364897:               LINE   7299 "regression-compile-tmp/imp22g-77.imp"
42267 @ 364937:               PUSH   GETLITERAL
42268 @ 364940:               PUSHI  #0x0000002b
42269 @ 364945:               ASSPAR
42270 @ 364946:               CALL  

  7300      expfault(rangerr) %unless 0 <= value <= 15
42271 @ 364947:               LINE   7300 "regression-compile-tmp/imp22g-77.imp"
42272 @ 364987:               PUSHI  #0x00000000
42273 @ 364992:               PUSH   VALUE
42274 @ 364995:               JUMPIFD > L_0008
42275 @ 364999:               PUSHI  #0x0000000f
42276 @ 365004:               JUMPIF <= L_0007
42277 @ 365008:               LOCATE L_0008
42278 @ 365011:               PUSH   EXPFAULT
42279 @ 365014:               PUSHI  #0x00000018
42280 @ 365019:               ASSPAR
42281 @ 365020:               CALL  
42282 @ 365021:               LOCATE L_0007

  7301      dump = dump!1<<value
42283 @ 365024:               LINE   7301 "regression-compile-tmp/imp22g-77.imp"
42284 @ 365064:               PUSH   DUMP
42285 @ 365067:               PUSH   DUMP
42286 @ 365070:               PUSHI  #0x00000001
42287 @ 365075:               PUSH   VALUE
42288 @ 365078:               LSH   
42289 @ 365079:               OR    
42290 @ 365080:               ASSVAL

  7302    %repeat %until %not a(comma)=TRUE
42291 @ 365081:               LINE   7302 "regression-compile-tmp/imp22g-77.imp"
42292 @ 365121:               PUSH   A
42293 @ 365124:               PUSHI  #0x0000003c
42294 @ 365129:               ASSPAR
42295 @ 365130:               CALL  
42296 @ 365131:               PUSHI  #0x00000001
42297 @ 365136:               JUMPIF # L_0004
42298 @ 365140:               REPEAT L_0003
42299 @ 365143:               LOCATE L_0004

  7303    get(keystart)
42300 @ 365146:               LINE   7303 "regression-compile-tmp/imp22g-77.imp"
42301 @ 365186:               PUSH   GET
42302 @ 365189:               PUSHI  #0x00000014
42303 @ 365194:               ASSPAR
42304 @ 365195:               CALL  

  7304    putact(settrap,0,litref(dump))
42305 @ 365196:               LINE   7304 "regression-compile-tmp/imp22g-77.imp"
42306 @ 365236:               PUSH   PUTACT
42307 @ 365239:               PUSHI  #0x0000002a
42308 @ 365244:               ASSPAR
42309 @ 365245:               PUSHI  #0x00000000
42310 @ 365250:               ASSPAR
42311 @ 365251:               PUSH   LITREF
42312 @ 365254:               PUSH   DUMP
42313 @ 365257:               ASSPAR
42314 @ 365258:               CALL  
42315 @ 365259:               ASSPAR
42316 @ 365260:               CALL  

  7305    curlab = curlab+2
42317 @ 365261:               LINE   7305 "regression-compile-tmp/imp22g-77.imp"
42318 @ 365301:               PUSH   CURLAB
42319 @ 365304:               PUSH   CURLAB
42320 @ 365307:               PUSHI  #0x00000002
42321 @ 365312:               ADD   
42322 @ 365313:               ASSVAL

  7306    get STATEMENTS(keyfinish)
42323 @ 365314:               LINE   7306 "regression-compile-tmp/imp22g-77.imp"
42324 @ 365354:               PUSH   GETSTATEMENTS
42325 @ 365357:               PUSHI  #0x00000003
42326 @ 365362:               ASSPAR
42327 @ 365363:               CALL  

  7307    curlab = curlab-2
42328 @ 365364:               LINE   7307 "regression-compile-tmp/imp22g-77.imp"
42329 @ 365404:               PUSH   CURLAB
42330 @ 365407:               PUSH   CURLAB
42331 @ 365410:               PUSHI  #0x00000002
42332 @ 365415:               SUB   
42333 @ 365416:               ASSVAL

  7308    -> initial(keyend) %if atom = keyend
42334 @ 365417:               LINE   7308 "regression-compile-tmp/imp22g-77.imp"
42335 @ 365457:               PUSH   ATOM
42336 @ 365460:               PUSHI  #0x00000001
42337 @ 365465:               JUMPIF # L_0004
42338 @ 365469:               PUSHI  #0x00000001
42339 @ 365474:               SJUMP  382
42340 @ 365477:               LOCATE L_0004

  7309    -> term
  7310  !
42341 @ 365480:               LINE   7309 "regression-compile-tmp/imp22g-77.imp"
42342 @ 365520:               JUMP   L_018c

  7311  initial(keyelse):
42343 @ 365523:               LINE   7311 "regression-compile-tmp/imp22g-77.imp"
42344 @ 365563:               PUSHI  #0x00000004
42345 @ 365568:               SLABEL 382

  7312    -> ignore %if starts # 0
42346 @ 365571:               LINE   7312 "regression-compile-tmp/imp22g-77.imp"
42347 @ 365611:               PUSH   STARTS
42348 @ 365614:               PUSHI  #0x00000000
42349 @ 365619:               JUMPIF = L_0004
42350 @ 365623:               JUMP   L_0189
42351 @ 365626:               LOCATE L_0004

  7313    %return %if stopper = keyelse
42352 @ 365629:               LINE   7313 "regression-compile-tmp/imp22g-77.imp"
42353 @ 365669:               PUSH   STOPPER
42354 @ 365672:               PUSHI  #0x00000004
42355 @ 365677:               JUMPIF # L_0004
42356 @ 365681:               RETURN
42357 @ 365682:               LOCATE L_0004

  7314    error(noif) %if stopper = keyfinish
42358 @ 365685:               LINE   7314 "regression-compile-tmp/imp22g-77.imp"
42359 @ 365725:               PUSH   STOPPER
42360 @ 365728:               PUSHI  #0x00000003
42361 @ 365733:               JUMPIF # L_0004
42362 @ 365737:               PUSH   ERROR
42363 @ 365740:               PUSHI  #0x0000001d
42364 @ 365745:               ASSPAR
42365 @ 365746:               CALL  
42366 @ 365747:               LOCATE L_0004

  7315  initial(keyfinish):
42367 @ 365750:               LINE   7315 "regression-compile-tmp/imp22g-77.imp"
42368 @ 365790:               PUSHI  #0x00000003
42369 @ 365795:               SLABEL 382

  7316    starts = starts-1 %and -> ignore %if starts # 0
42370 @ 365798:               LINE   7316 "regression-compile-tmp/imp22g-77.imp"
42371 @ 365838:               PUSH   STARTS
42372 @ 365841:               PUSHI  #0x00000000
42373 @ 365846:               JUMPIF = L_0004
42374 @ 365850:               PUSH   STARTS
42375 @ 365853:               PUSH   STARTS
42376 @ 365856:               PUSHI  #0x00000001
42377 @ 365861:               SUB   
42378 @ 365862:               ASSVAL
42379 @ 365863:               JUMP   L_0189
42380 @ 365866:               LOCATE L_0004

  7317    %return %if stopper = keyfinish %or stopper = keyelse
42381 @ 365869:               LINE   7317 "regression-compile-tmp/imp22g-77.imp"
42382 @ 365909:               PUSH   STOPPER
42383 @ 365912:               PUSHI  #0x00000003
42384 @ 365917:               JUMPIF = L_0005
42385 @ 365921:               PUSH   STOPPER
42386 @ 365924:               PUSHI  #0x00000004
42387 @ 365929:               JUMPIF # L_0004
42388 @ 365933:               LOCATE L_0005
42389 @ 365936:               RETURN
42390 @ 365937:               LOCATE L_0004

  7318    error(nostart)
42391 @ 365940:               LINE   7318 "regression-compile-tmp/imp22g-77.imp"
42392 @ 365980:               PUSH   ERROR
42393 @ 365983:               PUSHI  #0x0000001c
42394 @ 365988:               ASSPAR
42395 @ 365989:               CALL  

  7319  initial(keyrepeat):
42396 @ 365990:               LINE   7319 "regression-compile-tmp/imp22g-77.imp"
42397 @ 366030:               PUSHI  #0x00000002
42398 @ 366035:               SLABEL 382

  7320    cycles = cycles-1 %and -> ignore %if cycles # 0
42399 @ 366038:               LINE   7320 "regression-compile-tmp/imp22g-77.imp"
42400 @ 366078:               PUSH   CYCLES
42401 @ 366081:               PUSHI  #0x00000000
42402 @ 366086:               JUMPIF = L_0004
42403 @ 366090:               PUSH   CYCLES
42404 @ 366093:               PUSH   CYCLES
42405 @ 366096:               PUSHI  #0x00000001
42406 @ 366101:               SUB   
42407 @ 366102:               ASSVAL
42408 @ 366103:               JUMP   L_0189
42409 @ 366106:               LOCATE L_0004

  7321    %return %if stopper = keyrepeat
42410 @ 366109:               LINE   7321 "regression-compile-tmp/imp22g-77.imp"
42411 @ 366149:               PUSH   STOPPER
42412 @ 366152:               PUSHI  #0x00000002
42413 @ 366157:               JUMPIF # L_0004
42414 @ 366161:               RETURN
42415 @ 366162:               LOCATE L_0004

  7322    error(nocycle)
  7323  
42416 @ 366165:               LINE   7322 "regression-compile-tmp/imp22g-77.imp"
42417 @ 366205:               PUSH   ERROR
42418 @ 366208:               PUSHI  #0x0000001b
42419 @ 366213:               ASSPAR
42420 @ 366214:               CALL  

  7324  initial(star):
42421 @ 366215:               LINE   7324 "regression-compile-tmp/imp22g-77.imp"
42422 @ 366255:               PUSHI  #0x00000058
42423 @ 366260:               SLABEL 382

  7325    fault(lowlevel+warn+point) %and control = control!lowbit %if control&lowbit = 0
42424 @ 366263:               LINE   7325 "regression-compile-tmp/imp22g-77.imp"
42425 @ 366303:               PUSH   CONTROL
42426 @ 366306:               PUSHI  #0x00004000
42427 @ 366311:               AND   
42428 @ 366312:               PUSHI  #0x00000000
42429 @ 366317:               JUMPIF # L_0004
42430 @ 366321:               PUSH   FAULT
42431 @ 366324:               PUSHI  #0x0000000f
42432 @ 366329:               PUSHI  #0xffffff80
42433 @ 366334:               ADD   
42434 @ 366335:               PUSHI  #0x00000040
42435 @ 366340:               ADD   
42436 @ 366341:               ASSPAR
42437 @ 366342:               CALL  
42438 @ 366343:               PUSH   CONTROL
42439 @ 366346:               PUSH   CONTROL
42440 @ 366349:               PUSHI  #0x00004000
42441 @ 366354:               OR    
42442 @ 366355:               ASSVAL
42443 @ 366356:               LOCATE L_0004

  7326    matched = 1
42444 @ 366359:               LINE   7326 "regression-compile-tmp/imp22g-77.imp"
42445 @ 366399:               PUSH   MATCHED
42446 @ 366402:               PUSHI  #0x00000001
42447 @ 366407:               ASSVAL

  7327    %if byteinteger(fp) = '=' %start
42448 @ 366408:               LINE   7327 "regression-compile-tmp/imp22g-77.imp"
42449 @ 366448:               PUSH   BYTEINTEGER
42450 @ 366451:               PUSH   FP
42451 @ 366454:               ASSPAR
42452 @ 366455:               CALL  
42453 @ 366456:               PUSHI  #0x0000003d
42454 @ 366461:               JUMPIF # L_0004

  7328      fp = fp+1
42455 @ 366465:               LINE   7328 "regression-compile-tmp/imp22g-77.imp"
42456 @ 366505:               PUSH   FP
42457 @ 366508:               PUSH   FP
42458 @ 366511:               PUSHI  #0x00000001
42459 @ 366516:               ADD   
42460 @ 366517:               ASSVAL

  7329      get LITERAL(inttype)
42461 @ 366518:               LINE   7329 "regression-compile-tmp/imp22g-77.imp"
42462 @ 366558:               PUSH   GETLITERAL
42463 @ 366561:               PUSHI  #0x0000002b
42464 @ 366566:               ASSPAR
42465 @ 366567:               CALL  

  7330      plant(dc,0,temp(absmode,value))
42466 @ 366568:               LINE   7330 "regression-compile-tmp/imp22g-77.imp"
42467 @ 366608:               PUSH   PLANT
42468 @ 366611:               PUSHI  #0x00000066
42469 @ 366616:               ASSPAR
42470 @ 366617:               PUSHI  #0x00000000
42471 @ 366622:               ASSPAR
42472 @ 366623:               PUSH   TEMP
42473 @ 366626:               PUSHI  #0x00000038
42474 @ 366631:               ASSPAR
42475 @ 366632:               PUSH   VALUE
42476 @ 366635:               ASSPAR
42477 @ 366636:               CALL  
42478 @ 366637:               ASSPAR
42479 @ 366638:               CALL  

  7331    %else
42480 @ 366639:               LINE   7331 "regression-compile-tmp/imp22g-77.imp"
42481 @ 366679:               GOTO   L_0003
42482 @ 366682:               LOCATE L_0004

  7332      get MCODE
42483 @ 366685:               LINE   7332 "regression-compile-tmp/imp22g-77.imp"
42484 @ 366725:               PUSH   GETMCODE
42485 @ 366728:               CALL  

  7333    %finish
42486 @ 366729:               LINE   7333 "regression-compile-tmp/imp22g-77.imp"
42487 @ 366769:               LOCATE L_0003

  7334    ->term
  7335  
  7336  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  7337  !!!!!!!!!!!!!!!!!!!!  Declarations  !!!!!!!!!!!!!!!!!!!!!!!!!!!!
  7338  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  7339  !
42488 @ 366772:               LINE   7334 "regression-compile-tmp/imp22g-77.imp"
42489 @ 366812:               JUMP   L_018c

  7340  %routine DECLARE LIT RANGE(%integer basetype,lo,hi)
42490 @ 366815:               LINE   7340 "regression-compile-tmp/imp22g-77.imp"
42491 @ 366855:               DEF    DECLARELITRANGE (_lev0id0_GETSTATEMENTS_DECLARELITRANGE) p1=V_018f 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
42492 @ 366882:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
42493 @ 366883:                     DEF    BASETYPE p1=V_0190 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
42494 @ 366903:                     DEF    LO p1=V_0191 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
42495 @ 366917:                     DEF    HI p1=V_0192 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
42496 @ 366931:                  FINISH ) {lev=3}

  7341  %own%record(objinfo) D=0
42497 @ 366932:                  LINE   7341 "regression-compile-tmp/imp22g-77.imp"
42498 @ 366972:                  PUSHI  #0x00000000
42499 @ 366977:                  DEF    D p1=V_0193 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
42500 @ 366990:                  INIT   1

  7342    fault(boundserr) %and hi = lo %if lo > hi
42501 @ 366993:                  LINE   7342 "regression-compile-tmp/imp22g-77.imp"
42502 @ 367033:                  PUSH   LO
42503 @ 367036:                  PUSH   HI
42504 @ 367039:                  JUMPIF <= L_0004
42505 @ 367043:                  PUSH   FAULT
42506 @ 367046:                  PUSHI  #0x0000000d
42507 @ 367051:                  ASSPAR
42508 @ 367052:                  CALL  
42509 @ 367053:                  PUSH   HI
42510 @ 367056:                  PUSH   LO
42511 @ 367059:                  ASSVAL
42512 @ 367060:                  LOCATE L_0004

  7343    item = ranges
42513 @ 367063:                  LINE   7343 "regression-compile-tmp/imp22g-77.imp"
42514 @ 367103:                  PUSH   ITEM
42515 @ 367106:                  PUSH   RANGES
42516 @ 367109:                  ASSVAL

  7344    %cycle
42517 @ 367110:                  LINE   7344 "regression-compile-tmp/imp22g-77.imp"
42518 @ 367150:                  LOCATE L_0003

  7345      ditem == dict(item)
42519 @ 367153:                  LINE   7345 "regression-compile-tmp/imp22g-77.imp"
42520 @ 367193:                  PUSH   DITEM
42521 @ 367196:                  PUSH   DICT
42522 @ 367199:                  PUSH   ITEM
42523 @ 367202:                  ACCESS
42524 @ 367203:                  ASSREF

  7346      item = item-2 %and %return %if ditem_val = hi %and ditem_type = basetype %c
  7347            %and dict(item-1)_val = lo
42525 @ 367204:                  LINE   7346 "regression-compile-tmp/imp22g-77.imp"
42526 @ 367244:                  PUSH   DITEM
42527 @ 367247:                  SELECT 9
42528 @ 367250:                  PUSH   HI
42529 @ 367253:                  JUMPIF # L_0007
42530 @ 367257:                  PUSH   DITEM
42531 @ 367260:                  SELECT 2
42532 @ 367263:                  PUSH   BASETYPE
42533 @ 367266:                  JUMPIF # L_0007
42534 @ 367270:                  PUSH   DICT
42535 @ 367273:                  PUSH   ITEM
42536 @ 367276:                  PUSHI  #0x00000001
42537 @ 367281:                  SUB   
42538 @ 367282:                  ACCESS
42539 @ 367283:                  SELECT 9
42540 @ 367286:                  PUSH   LO
42541 @ 367289:                  JUMPIF # L_0007
42542 @ 367293:                  PUSH   ITEM
42543 @ 367296:                  PUSH   ITEM
42544 @ 367299:                  PUSHI  #0x00000002
42545 @ 367304:                  SUB   
42546 @ 367305:                  ASSVAL
42547 @ 367306:                  RETURN
42548 @ 367307:                  LOCATE L_0007

  7348      item = ditem_hlink
42549 @ 367310:                  LINE   7348 "regression-compile-tmp/imp22g-77.imp"
42550 @ 367350:                  PUSH   ITEM
42551 @ 367353:                  PUSH   DITEM
42552 @ 367356:                  SELECT 12
42553 @ 367359:                  ASSVAL

  7349    %repeat %until item = 0
42554 @ 367360:                  LINE   7349 "regression-compile-tmp/imp22g-77.imp"
42555 @ 367400:                  PUSH   ITEM
42556 @ 367403:                  PUSHI  #0x00000000
42557 @ 367408:                  JUMPIF = L_0004
42558 @ 367412:                  REPEAT L_0003
42559 @ 367415:                  LOCATE L_0004

  7350    declare anon(d);               !blank (for updating)
42560 @ 367418:                  LINE   7350 "regression-compile-tmp/imp22g-77.imp"
42561 @ 367458:                  PUSH   DECLAREANON
42562 @ 367461:                  PUSH   D
42563 @ 367464:                  ASSPAR
42564 @ 367465:                  CALL  

  7351    declare range(basetype,lo,hi)
42565 @ 367466:                  LINE   7351 "regression-compile-tmp/imp22g-77.imp"
42566 @ 367506:                  PUSH   DECLARERANGE
42567 @ 367509:                  PUSH   BASETYPE
42568 @ 367512:                  ASSPAR
42569 @ 367513:                  PUSH   LO
42570 @ 367516:                  ASSPAR
42571 @ 367517:                  PUSH   HI
42572 @ 367520:                  ASSPAR
42573 @ 367521:                  CALL  

  7352  %end
  7353  
42574 @ 367522:                  LINE   7352 "regression-compile-tmp/imp22g-77.imp"
42575 @ 367562:               END    _lev0id0_GETSTATEMENTS_DECLARELITRANGE {lev=3 --> 2}

  7354  %routine DECLARE STRING TYPE(%integer size)
42576 @ 367563:               LINE   7354 "regression-compile-tmp/imp22g-77.imp"
42577 @ 367603:               DEF    DECLARESTRINGTYPE (_lev0id0_GETSTATEMENTS_DECLARESTRINGTYPE) p1=V_0190 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
42578 @ 367632:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
42579 @ 367633:                     DEF    SIZE p1=V_0191 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
42580 @ 367649:                  FINISH ) {lev=3}

  7355    item = stringtype %and %return %if size = -256
42581 @ 367650:                  LINE   7355 "regression-compile-tmp/imp22g-77.imp"
42582 @ 367690:                  PUSH   SIZE
42583 @ 367693:                  PUSHI  #0x00000100
42584 @ 367698:                  NEGATE
42585 @ 367699:                  JUMPIF # L_0004
42586 @ 367703:                  PUSH   ITEM
42587 @ 367706:                  PUSHI  #0x00000040
42588 @ 367711:                  ASSVAL
42589 @ 367712:                  RETURN
42590 @ 367713:                  LOCATE L_0004

  7356    item = string1 %and %return %if size = -2
42591 @ 367716:                  LINE   7356 "regression-compile-tmp/imp22g-77.imp"
42592 @ 367756:                  PUSH   SIZE
42593 @ 367759:                  PUSHI  #0x00000002
42594 @ 367764:                  NEGATE
42595 @ 367765:                  JUMPIF # L_0004
42596 @ 367769:                  PUSH   ITEM
42597 @ 367772:                  PUSHI  #0x0000003f
42598 @ 367777:                  ASSVAL
42599 @ 367778:                  RETURN
42600 @ 367779:                  LOCATE L_0004

  7357    item = ranges
42601 @ 367782:                  LINE   7357 "regression-compile-tmp/imp22g-77.imp"
42602 @ 367822:                  PUSH   ITEM
42603 @ 367825:                  PUSH   RANGES
42604 @ 367828:                  ASSVAL

  7358    %cycle
42605 @ 367829:                  LINE   7358 "regression-compile-tmp/imp22g-77.imp"
42606 @ 367869:                  LOCATE L_0003

  7359      ditem == dict(item)
42607 @ 367872:                  LINE   7359 "regression-compile-tmp/imp22g-77.imp"
42608 @ 367912:                  PUSH   DITEM
42609 @ 367915:                  PUSH   DICT
42610 @ 367918:                  PUSH   ITEM
42611 @ 367921:                  ACCESS
42612 @ 367922:                  ASSREF

  7360      %return %if ditem_size = size %and ditem_type = chartype
42613 @ 367923:                  LINE   7360 "regression-compile-tmp/imp22g-77.imp"
42614 @ 367963:                  PUSH   DITEM
42615 @ 367966:                  SELECT 5
42616 @ 367969:                  PUSH   SIZE
42617 @ 367972:                  JUMPIF # L_0007
42618 @ 367976:                  PUSH   DITEM
42619 @ 367979:                  SELECT 2
42620 @ 367982:                  PUSHI  #0x0000003d
42621 @ 367987:                  JUMPIF # L_0007
42622 @ 367991:                  RETURN
42623 @ 367992:                  LOCATE L_0007

  7361      item = ditem_hlink
42624 @ 367995:                  LINE   7361 "regression-compile-tmp/imp22g-77.imp"
42625 @ 368035:                  PUSH   ITEM
42626 @ 368038:                  PUSH   DITEM
42627 @ 368041:                  SELECT 12
42628 @ 368044:                  ASSVAL

  7362    %repeat %until item = 0
42629 @ 368045:                  LINE   7362 "regression-compile-tmp/imp22g-77.imp"
42630 @ 368085:                  PUSH   ITEM
42631 @ 368088:                  PUSHI  #0x00000000
42632 @ 368093:                  JUMPIF = L_0004
42633 @ 368097:                  REPEAT L_0003
42634 @ 368100:                  LOCATE L_0004

  7363    declare anon(details(typeid+stringy,chartype,0,0))
42635 @ 368103:                  LINE   7363 "regression-compile-tmp/imp22g-77.imp"
42636 @ 368143:                  PUSH   DECLAREANON
42637 @ 368146:                  PUSH   DETAILS
42638 @ 368149:                  PUSHI  #0x00000200
42639 @ 368154:                  PUSHI  #0x00000008
42640 @ 368159:                  ADD   
42641 @ 368160:                  ASSPAR
42642 @ 368161:                  PUSHI  #0x0000003d
42643 @ 368166:                  ASSPAR
42644 @ 368167:                  PUSHI  #0x00000000
42645 @ 368172:                  ASSPAR
42646 @ 368173:                  PUSHI  #0x00000000
42647 @ 368178:                  ASSPAR
42648 @ 368179:                  CALL  
42649 @ 368180:                  ASSPAR
42650 @ 368181:                  CALL  

  7364    ditem_size = size
42651 @ 368182:                  LINE   7364 "regression-compile-tmp/imp22g-77.imp"
42652 @ 368222:                  PUSH   DITEM
42653 @ 368225:                  SELECT 5
42654 @ 368228:                  PUSH   SIZE
42655 @ 368231:                  ASSVAL

  7365    ditem_hlink = ranges;  ranges = item
42656 @ 368232:                  LINE   7365 "regression-compile-tmp/imp22g-77.imp"
42657 @ 368272:                  PUSH   DITEM
42658 @ 368275:                  SELECT 12
42659 @ 368278:                  PUSH   RANGES
42660 @ 368281:                  ASSVAL
42661 @ 368282:                  LINE   7365 "regression-compile-tmp/imp22g-77.imp"
42662 @ 368322:                  PUSH   RANGES
42663 @ 368325:                  PUSH   ITEM
42664 @ 368328:                  ASSVAL

  7366  %end
  7367  
42665 @ 368329:                  LINE   7366 "regression-compile-tmp/imp22g-77.imp"
42666 @ 368369:               END    _lev0id0_GETSTATEMENTS_DECLARESTRINGTYPE {lev=3 --> 2}

  7368  %routine GET LIT RANGE(%integer basetype)
42667 @ 368370:               LINE   7368 "regression-compile-tmp/imp22g-77.imp"
42668 @ 368410:               DEF    GETLITRANGE (_lev0id0_GETSTATEMENTS_GETLITRANGE) p1=V_0191 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
42669 @ 368433:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
42670 @ 368434:                     DEF    BASETYPE p1=V_0192 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
42671 @ 368454:                  FINISH ) {lev=3}

  7369  %integer holdval
42672 @ 368455:                  LINE   7369 "regression-compile-tmp/imp22g-77.imp"
42673 @ 368495:                  DEF    HOLDVAL p1=V_0193 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  7370    get LITERAL(basetype);  holdval = value
42674 @ 368514:                  LINE   7370 "regression-compile-tmp/imp22g-77.imp"
42675 @ 368554:                  PUSH   GETLITERAL
42676 @ 368557:                  PUSH   BASETYPE
42677 @ 368560:                  ASSPAR
42678 @ 368561:                  CALL  
42679 @ 368562:                  LINE   7370 "regression-compile-tmp/imp22g-77.imp"
42680 @ 368602:                  PUSH   HOLDVAL
42681 @ 368605:                  PUSH   VALUE
42682 @ 368608:                  ASSVAL

  7371    get(colon)
42683 @ 368609:                  LINE   7371 "regression-compile-tmp/imp22g-77.imp"
42684 @ 368649:                  PUSH   GET
42685 @ 368652:                  PUSHI  #0x0000003b
42686 @ 368657:                  ASSPAR
42687 @ 368658:                  CALL  

  7372    get LITERAL(basetype)
42688 @ 368659:                  LINE   7372 "regression-compile-tmp/imp22g-77.imp"
42689 @ 368699:                  PUSH   GETLITERAL
42690 @ 368702:                  PUSH   BASETYPE
42691 @ 368705:                  ASSPAR
42692 @ 368706:                  CALL  

  7373    declare lit range(basetype,holdval,value)
42693 @ 368707:                  LINE   7373 "regression-compile-tmp/imp22g-77.imp"
42694 @ 368747:                  PUSH   DECLARELITRANGE
42695 @ 368750:                  PUSH   BASETYPE
42696 @ 368753:                  ASSPAR
42697 @ 368754:                  PUSH   HOLDVAL
42698 @ 368757:                  ASSPAR
42699 @ 368758:                  PUSH   VALUE
42700 @ 368761:                  ASSPAR
42701 @ 368762:                  CALL  

  7374  %end
  7375  
42702 @ 368763:                  LINE   7374 "regression-compile-tmp/imp22g-77.imp"
42703 @ 368803:               END    _lev0id0_GETSTATEMENTS_GETLITRANGE {lev=3 --> 2}

  7376  %routine GET IDENTLIST(%record(objinfo)%name d)
42704 @ 368804:               LINE   7376 "regression-compile-tmp/imp22g-77.imp"
42705 @ 368844:               DEF    GETIDENTLIST (_lev0id0_GETSTATEMENTS_GETIDENTLIST) p1=V_0192 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
42706 @ 368868:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
42707 @ 368869:                     DEF    D p1=V_0193 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
42708 @ 368882:                  FINISH ) {lev=3}

  7377    dlim0 = dlim
42709 @ 368883:                  LINE   7377 "regression-compile-tmp/imp22g-77.imp"
42710 @ 368923:                  PUSH   DLIM0
42711 @ 368926:                  PUSH   DLIM
42712 @ 368929:                  ASSVAL

  7378    get(ident) %and declare(d) %until %not a(comma)=TRUE
42713 @ 368930:                  LINE   7378 "regression-compile-tmp/imp22g-77.imp"
42714 @ 368970:                  LOCATE L_0003
42715 @ 368973:                  PUSH   GET
42716 @ 368976:                  PUSHI  #0x00000035
42717 @ 368981:                  ASSPAR
42718 @ 368982:                  CALL  
42719 @ 368983:                  PUSH   DECLARE
42720 @ 368986:                  PUSH   D
42721 @ 368989:                  ASSPAR
42722 @ 368990:                  CALL  
42723 @ 368991:                  PUSH   A
42724 @ 368994:                  PUSHI  #0x0000003c
42725 @ 368999:                  ASSPAR
42726 @ 369000:                  CALL  
42727 @ 369001:                  PUSHI  #0x00000001
42728 @ 369006:                  JUMPIF # L_0004
42729 @ 369010:                  REPEAT L_0003
42730 @ 369013:                  LOCATE L_0004

  7379  %end
  7380  
42731 @ 369016:                  LINE   7379 "regression-compile-tmp/imp22g-77.imp"
42732 @ 369056:               END    _lev0id0_GETSTATEMENTS_GETIDENTLIST {lev=3 --> 2}

  7381  %routine RECALIGN(%integername val)
42733 @ 369057:               LINE   7381 "regression-compile-tmp/imp22g-77.imp"
42734 @ 369097:               DEF    RECALIGN (_lev0id0_GETSTATEMENTS_RECALIGN) p1=V_0193 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
42735 @ 369117:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
42736 @ 369118:                     DEF    VAL p1=V_0194 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
42737 @ 369133:                  FINISH ) {lev=3}

  7382    align(val,2)
42738 @ 369134:                  LINE   7382 "regression-compile-tmp/imp22g-77.imp"
42739 @ 369174:                  PUSH   ALIGN
42740 @ 369177:                  PUSH   VAL
42741 @ 369180:                  ASSPAR
42742 @ 369181:                  PUSHI  #0x00000002
42743 @ 369186:                  ASSPAR
42744 @ 369187:                  CALL  

  7383    val = -val %if val > 4
42745 @ 369188:                  LINE   7383 "regression-compile-tmp/imp22g-77.imp"
42746 @ 369228:                  PUSH   VAL
42747 @ 369231:                  PUSHI  #0x00000004
42748 @ 369236:                  JUMPIF <= L_0004
42749 @ 369240:                  PUSH   VAL
42750 @ 369243:                  PUSH   VAL
42751 @ 369246:                  NEGATE
42752 @ 369247:                  ASSVAL
42753 @ 369248:                  LOCATE L_0004

  7384  %end
  7385  
42754 @ 369251:                  LINE   7384 "regression-compile-tmp/imp22g-77.imp"
42755 @ 369291:               END    _lev0id0_GETSTATEMENTS_RECALIGN {lev=3 --> 2}

  7386  %routine GET DECLARATION(%integer FLAGS,MODE,%integer%name DISP,%integer DEPTH)
42756 @ 369292:               LINE   7386 "regression-compile-tmp/imp22g-77.imp"
42757 @ 369332:               DEF    GETDECLARATION (_lev0id0_GETSTATEMENTS_GETDECLARATION) p1=V_0194 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
42758 @ 369358:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
42759 @ 369359:                     DEF    FLAGS p1=V_0195 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
42760 @ 369376:                     DEF    MODE p1=V_0196 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
42761 @ 369392:                     DEF    DISP p1=V_0197 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
42762 @ 369408:                     DEF    DEPTH p1=V_0198 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
42763 @ 369425:                  FINISH ) {lev=3}

  7387  %record(objinfo) DECL
42764 @ 369426:                  LINE   7387 "regression-compile-tmp/imp22g-77.imp"
42765 @ 369466:                  DEF    DECL p1=V_0199 a/tf=41 b/format=9a c/ostate=0  type=4 (record) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  7388  %record(identinfo)%name DFHOLD
42766 @ 369482:                  LINE   7388 "regression-compile-tmp/imp22g-77.imp"
42767 @ 369522:                  DEF    DFHOLD p1=V_019a a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  7389  %owninteger ITEMTYPE=0,ITEMSIZE=0,ADIM=0
42768 @ 369540:                  LINE   7389 "regression-compile-tmp/imp22g-77.imp"
42769 @ 369580:                  PUSHI  #0x00000000
42770 @ 369585:                  DEF    ITEMTYPE p1=V_019b 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
42771 @ 369605:                  INIT   1
42772 @ 369608:                  PUSHI  #0x00000000
42773 @ 369613:                  DEF    ITEMSIZE p1=V_019c 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
42774 @ 369633:                  INIT   1
42775 @ 369636:                  PUSHI  #0x00000000
42776 @ 369641:                  DEF    ADIM p1=V_019d 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
42777 @ 369657:                  INIT   1

  7390  %integer BASE,HOLD,MAX,STMAX,DREG,AREG
  7391  
42778 @ 369660:                  LINE   7390 "regression-compile-tmp/imp22g-77.imp"
42779 @ 369700:                  DEF    BASE p1=V_019e a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
42780 @ 369716:                  DEF    HOLD p1=V_019f a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
42781 @ 369732:                  DEF    MAX p1=V_01a0 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
42782 @ 369747:                  DEF    STMAX p1=V_01a1 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
42783 @ 369764:                  DEF    DREG p1=V_01a2 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
42784 @ 369780:                  DEF    AREG p1=V_01a3 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  7392  %routine%spec GET VAR BOUND
  7393  
42785 @ 369796:                  LINE   7392 "regression-compile-tmp/imp22g-77.imp"
42786 @ 369836:                  DEF    GETVARBOUND (_lev0id0_GETSTATEMENTS_GETDECLARATION_GETVARBOUND) p1=V_01a4 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
42787 @ 369859:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
42788 @ 369860:                  FINISH ) {lev=3}

  7394  %routine GET DATA TYPE
42789 @ 369861:                  LINE   7394 "regression-compile-tmp/imp22g-77.imp"
42790 @ 369901:                  DEF    GETDATATYPE (_lev0id0_GETSTATEMENTS_GETDECLARATION_GETDATATYPE) p1=V_01a5 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
42791 @ 369924:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
42792 @ 369925:                     FINISH ) {lev=4}

  7395  %switch s(ktype:keyname)
42793 @ 369926:                     LINE   7395 "regression-compile-tmp/imp22g-77.imp"
42794 @ 369966:                     PUSHI  #0x0000001b
42795 @ 369971:                     PUSHI  #0x00000021
42796 @ 369976:                     BOUNDS
42797 @ 369977:                     DEF    S p1=V_01a6 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

  7396    atom = next atom %if matched # 0
42798 @ 369990:                     LINE   7396 "regression-compile-tmp/imp22g-77.imp"
42799 @ 370030:                     PUSH   MATCHED
42800 @ 370033:                     PUSHI  #0x00000000
42801 @ 370038:                     JUMPIF = L_0004
42802 @ 370042:                     PUSH   ATOM
42803 @ 370045:                     PUSH   NEXTATOM
42804 @ 370048:                     CALL  
42805 @ 370049:                     ASSVAL
42806 @ 370050:                     LOCATE L_0004

  7397    syntax error %unless kattrib <= atom <= keyname
42807 @ 370053:                     LINE   7397 "regression-compile-tmp/imp22g-77.imp"
42808 @ 370093:                     PUSHI  #0x0000001a
42809 @ 370098:                     PUSH   ATOM
42810 @ 370101:                     JUMPIFD > L_0005
42811 @ 370105:                     PUSHI  #0x00000021
42812 @ 370110:                     JUMPIF <= L_0004
42813 @ 370114:                     LOCATE L_0005
42814 @ 370117:                     PUSH   SYNTAXERROR
42815 @ 370120:                     CALL  
42816 @ 370121:                     LOCATE L_0004

  7398    matched = 1
42817 @ 370124:                     LINE   7398 "regression-compile-tmp/imp22g-77.imp"
42818 @ 370164:                     PUSH   MATCHED
42819 @ 370167:                     PUSHI  #0x00000001
42820 @ 370172:                     ASSVAL

  7399    -> s(atom)
42821 @ 370173:                     LINE   7399 "regression-compile-tmp/imp22g-77.imp"
42822 @ 370213:                     PUSH   ATOM
42823 @ 370216:                     SJUMP  422

  7400  s(ktype):
42824 @ 370219:                     LINE   7400 "regression-compile-tmp/imp22g-77.imp"
42825 @ 370259:                     PUSHI  #0x0000001b
42826 @ 370264:                     SLABEL 422

  7401    itemtype = inttype+subatom
42827 @ 370267:                     LINE   7401 "regression-compile-tmp/imp22g-77.imp"
42828 @ 370307:                     PUSH   ITEMTYPE
42829 @ 370310:                     PUSHI  #0x0000002b
42830 @ 370315:                     PUSH   SUBATOM
42831 @ 370318:                     ADD   
42832 @ 370319:                     ASSVAL

  7402    itemsize = size(itemtype)
42833 @ 370320:                     LINE   7402 "regression-compile-tmp/imp22g-77.imp"
42834 @ 370360:                     PUSH   ITEMSIZE
42835 @ 370363:                     PUSH   SIZE
42836 @ 370366:                     PUSH   ITEMTYPE
42837 @ 370369:                     ASSPAR
42838 @ 370370:                     CALL  
42839 @ 370371:                     ASSVAL

  7403    nonstandard(7) %if itemtype >= mitetype
42840 @ 370372:                     LINE   7403 "regression-compile-tmp/imp22g-77.imp"
42841 @ 370412:                     PUSH   ITEMTYPE
42842 @ 370415:                     PUSHI  #0x00000037
42843 @ 370420:                     JUMPIF < L_0004
42844 @ 370424:                     PUSH   NONSTANDARD
42845 @ 370427:                     PUSHI  #0x00000007
42846 @ 370432:                     ASSPAR
42847 @ 370433:                     CALL  
42848 @ 370434:                     LOCATE L_0004

  7404    allow(keyinteger)
42849 @ 370437:                     LINE   7404 "regression-compile-tmp/imp22g-77.imp"
42850 @ 370477:                     PUSH   ALLOW
42851 @ 370480:                     PUSHI  #0x0000001c
42852 @ 370485:                     ASSPAR
42853 @ 370486:                     CALL  

  7405    %return
42854 @ 370487:                     LINE   7405 "regression-compile-tmp/imp22g-77.imp"
42855 @ 370527:                     RETURN

  7406  s(keyinteger):                    !%integer
42856 @ 370528:                     LINE   7406 "regression-compile-tmp/imp22g-77.imp"
42857 @ 370568:                     PUSHI  #0x0000001c
42858 @ 370573:                     SLABEL 422

  7407    itemtype = inttype;  itemsize = 4
42859 @ 370576:                     LINE   7407 "regression-compile-tmp/imp22g-77.imp"
42860 @ 370616:                     PUSH   ITEMTYPE
42861 @ 370619:                     PUSHI  #0x0000002b
42862 @ 370624:                     ASSVAL
42863 @ 370625:                     LINE   7407 "regression-compile-tmp/imp22g-77.imp"
42864 @ 370665:                     PUSH   ITEMSIZE
42865 @ 370668:                     PUSHI  #0x00000004
42866 @ 370673:                     ASSVAL

  7408    %if a(left)=TRUE %start
42867 @ 370674:                     LINE   7408 "regression-compile-tmp/imp22g-77.imp"
42868 @ 370714:                     PUSH   A
42869 @ 370717:                     PUSHI  #0x00000037
42870 @ 370722:                     ASSPAR
42871 @ 370723:                     CALL  
42872 @ 370724:                     PUSHI  #0x00000001
42873 @ 370729:                     JUMPIF # L_0004

  7409      nonstandard(8)
42874 @ 370733:                     LINE   7409 "regression-compile-tmp/imp22g-77.imp"
42875 @ 370773:                     PUSH   NONSTANDARD
42876 @ 370776:                     PUSHI  #0x00000008
42877 @ 370781:                     ASSPAR
42878 @ 370782:                     CALL  

  7410      get LIT RANGE(inttype)
42879 @ 370783:                     LINE   7410 "regression-compile-tmp/imp22g-77.imp"
42880 @ 370823:                     PUSH   GETLITRANGE
42881 @ 370826:                     PUSHI  #0x0000002b
42882 @ 370831:                     ASSPAR
42883 @ 370832:                     CALL  

  7411      get(right)
42884 @ 370833:                     LINE   7411 "regression-compile-tmp/imp22g-77.imp"
42885 @ 370873:                     PUSH   GET
42886 @ 370876:                     PUSHI  #0x0000003d
42887 @ 370881:                     ASSPAR
42888 @ 370882:                     CALL  

  7412      itemtype = item
42889 @ 370883:                     LINE   7412 "regression-compile-tmp/imp22g-77.imp"
42890 @ 370923:                     PUSH   ITEMTYPE
42891 @ 370926:                     PUSH   ITEM
42892 @ 370929:                     ASSVAL

  7413      itemsize = typecell(itemtype)_size
42893 @ 370930:                     LINE   7413 "regression-compile-tmp/imp22g-77.imp"
42894 @ 370970:                     PUSH   ITEMSIZE
42895 @ 370973:                     PUSH   TYPECELL
42896 @ 370976:                     PUSH   ITEMTYPE
42897 @ 370979:                     ASSPAR
42898 @ 370980:                     CALL  
42899 @ 370981:                     SELECT 5
42900 @ 370984:                     ASSVAL

  7414    %finish
42901 @ 370985:                     LINE   7414 "regression-compile-tmp/imp22g-77.imp"
42902 @ 371025:                     LOCATE L_0004

  7415    %return
42903 @ 371028:                     LINE   7415 "regression-compile-tmp/imp22g-77.imp"
42904 @ 371068:                     RETURN

  7416  s(keylong):                   !%long
42905 @ 371069:                     LINE   7416 "regression-compile-tmp/imp22g-77.imp"
42906 @ 371109:                     PUSHI  #0x0000001d
42907 @ 371114:                     SLABEL 422

  7417    itemtype = inttype;  itemsize = 4;  !**for now**
42908 @ 371117:                     LINE   7417 "regression-compile-tmp/imp22g-77.imp"
42909 @ 371157:                     PUSH   ITEMTYPE
42910 @ 371160:                     PUSHI  #0x0000002b
42911 @ 371165:                     ASSVAL
42912 @ 371166:                     LINE   7417 "regression-compile-tmp/imp22g-77.imp"
42913 @ 371206:                     PUSH   ITEMSIZE
42914 @ 371209:                     PUSHI  #0x00000004
42915 @ 371214:                     ASSVAL

  7418    %if a(keyinteger)=TRUE %then fault(notin+point+warn) %c
  7419    %else itemtype = realtype %and get(keyreal)
42916 @ 371215:                     LINE   7418 "regression-compile-tmp/imp22g-77.imp"
42917 @ 371255:                     PUSH   A
42918 @ 371258:                     PUSHI  #0x0000001c
42919 @ 371263:                     ASSPAR
42920 @ 371264:                     CALL  
42921 @ 371265:                     PUSHI  #0x00000001
42922 @ 371270:                     JUMPIF # L_0004
42923 @ 371274:                     PUSH   FAULT
42924 @ 371277:                     PUSHI  #0x00000028
42925 @ 371282:                     PUSHI  #0x00000040
42926 @ 371287:                     ADD   
42927 @ 371288:                     PUSHI  #0xffffff80
42928 @ 371293:                     ADD   
42929 @ 371294:                     ASSPAR
42930 @ 371295:                     CALL  
42931 @ 371296:                     GOTO   L_0003
42932 @ 371299:                     LOCATE L_0004
42933 @ 371302:                     PUSH   ITEMTYPE
42934 @ 371305:                     PUSHI  #0x00000045
42935 @ 371310:                     ASSVAL
42936 @ 371311:                     PUSH   GET
42937 @ 371314:                     PUSHI  #0x0000001e
42938 @ 371319:                     ASSPAR
42939 @ 371320:                     CALL  
42940 @ 371321:                     LOCATE L_0003

  7420    %return
42941 @ 371324:                     LINE   7420 "regression-compile-tmp/imp22g-77.imp"
42942 @ 371364:                     RETURN

  7421  s(keyreal):                   !%real
42943 @ 371365:                     LINE   7421 "regression-compile-tmp/imp22g-77.imp"
42944 @ 371405:                     PUSHI  #0x0000001e
42945 @ 371410:                     SLABEL 422

  7422    itemtype = realtype;  itemsize = 4
42946 @ 371413:                     LINE   7422 "regression-compile-tmp/imp22g-77.imp"
42947 @ 371453:                     PUSH   ITEMTYPE
42948 @ 371456:                     PUSHI  #0x00000045
42949 @ 371461:                     ASSVAL
42950 @ 371462:                     LINE   7422 "regression-compile-tmp/imp22g-77.imp"
42951 @ 371502:                     PUSH   ITEMSIZE
42952 @ 371505:                     PUSHI  #0x00000004
42953 @ 371510:                     ASSVAL

  7423    %return
42954 @ 371511:                     LINE   7423 "regression-compile-tmp/imp22g-77.imp"
42955 @ 371551:                     RETURN

  7424  s(keystring):                 !%string
42956 @ 371552:                     LINE   7424 "regression-compile-tmp/imp22g-77.imp"
42957 @ 371592:                     PUSHI  #0x0000001f
42958 @ 371597:                     SLABEL 422

  7425    itemsize = 0
42959 @ 371600:                     LINE   7425 "regression-compile-tmp/imp22g-77.imp"
42960 @ 371640:                     PUSH   ITEMSIZE
42961 @ 371643:                     PUSHI  #0x00000000
42962 @ 371648:                     ASSVAL

  7426    %if a(left)=TRUE %start
42963 @ 371649:                     LINE   7426 "regression-compile-tmp/imp22g-77.imp"
42964 @ 371689:                     PUSH   A
42965 @ 371692:                     PUSHI  #0x00000037
42966 @ 371697:                     ASSPAR
42967 @ 371698:                     CALL  
42968 @ 371699:                     PUSHI  #0x00000001
42969 @ 371704:                     JUMPIF # L_0004

  7427      atom = next atom
  7428  !    %if depth # 0 %and ktype <= atom <= keyinteger %start
  7429  !      get VAR BOUND
  7430  !      itemtype = stringstar
  7431  !    %finish %else %if a(star)=TRUE %start
42970 @ 371708:                     LINE   7427 "regression-compile-tmp/imp22g-77.imp"
42971 @ 371748:                     PUSH   ATOM
42972 @ 371751:                     PUSH   NEXTATOM
42973 @ 371754:                     CALL  
42974 @ 371755:                     ASSVAL

  7432       %if a(star)=TRUE %start
42975 @ 371756:                     LINE   7432 "regression-compile-tmp/imp22g-77.imp"
42976 @ 371796:                     PUSH   A
42977 @ 371799:                     PUSHI  #0x00000058
42978 @ 371804:                     ASSPAR
42979 @ 371805:                     CALL  
42980 @ 371806:                     PUSHI  #0x00000001
42981 @ 371811:                     JUMPIF # L_0007

  7433        itemtype = stringstar
42982 @ 371815:                     LINE   7433 "regression-compile-tmp/imp22g-77.imp"
42983 @ 371855:                     PUSH   ITEMTYPE
42984 @ 371858:                     PUSHI  #0x0000003e
42985 @ 371863:                     ASSVAL

  7434      %else
42986 @ 371864:                     LINE   7434 "regression-compile-tmp/imp22g-77.imp"
42987 @ 371904:                     GOTO   L_0006
42988 @ 371907:                     LOCATE L_0007

  7435        get LITERAL(bytetype)
42989 @ 371910:                     LINE   7435 "regression-compile-tmp/imp22g-77.imp"
42990 @ 371950:                     PUSH   GETLITERAL
42991 @ 371953:                     PUSHI  #0x00000034
42992 @ 371958:                     ASSPAR
42993 @ 371959:                     CALL  

  7436        itemsize = -(value+1)
42994 @ 371960:                     LINE   7436 "regression-compile-tmp/imp22g-77.imp"
42995 @ 372000:                     PUSH   ITEMSIZE
42996 @ 372003:                     PUSH   VALUE
42997 @ 372006:                     PUSHI  #0x00000001
42998 @ 372011:                     ADD   
42999 @ 372012:                     NEGATE
43000 @ 372013:                     ASSVAL

  7437        declare string type(itemsize)
43001 @ 372014:                     LINE   7437 "regression-compile-tmp/imp22g-77.imp"
43002 @ 372054:                     PUSH   DECLARESTRINGTYPE
43003 @ 372057:                     PUSH   ITEMSIZE
43004 @ 372060:                     ASSPAR
43005 @ 372061:                     CALL  

  7438        itemtype = item
43006 @ 372062:                     LINE   7438 "regression-compile-tmp/imp22g-77.imp"
43007 @ 372102:                     PUSH   ITEMTYPE
43008 @ 372105:                     PUSH   ITEM
43009 @ 372108:                     ASSVAL

  7439      %finish
43010 @ 372109:                     LINE   7439 "regression-compile-tmp/imp22g-77.imp"
43011 @ 372149:                     LOCATE L_0006

  7440      get(right)
43012 @ 372152:                     LINE   7440 "regression-compile-tmp/imp22g-77.imp"
43013 @ 372192:                     PUSH   GET
43014 @ 372195:                     PUSHI  #0x0000003d
43015 @ 372200:                     ASSPAR
43016 @ 372201:                     CALL  

  7441    %else
43017 @ 372202:                     LINE   7441 "regression-compile-tmp/imp22g-77.imp"
43018 @ 372242:                     GOTO   L_0003
43019 @ 372245:                     LOCATE L_0004

  7442      syntax error %if mode # constmode
43020 @ 372248:                     LINE   7442 "regression-compile-tmp/imp22g-77.imp"
43021 @ 372288:                     PUSH   MODE
43022 @ 372291:                     PUSHI  #0x0000007a
43023 @ 372296:                     JUMPIF = L_0007
43024 @ 372300:                     PUSH   SYNTAXERROR
43025 @ 372303:                     CALL  
43026 @ 372304:                     LOCATE L_0007

  7443      itemtype = stringtype
43027 @ 372307:                     LINE   7443 "regression-compile-tmp/imp22g-77.imp"
43028 @ 372347:                     PUSH   ITEMTYPE
43029 @ 372350:                     PUSHI  #0x00000040
43030 @ 372355:                     ASSVAL

  7444    %finish
43031 @ 372356:                     LINE   7444 "regression-compile-tmp/imp22g-77.imp"
43032 @ 372396:                     LOCATE L_0003

  7445    %return
43033 @ 372399:                     LINE   7445 "regression-compile-tmp/imp22g-77.imp"
43034 @ 372439:                     RETURN

  7446  s(keyrecord):                    !%record
43035 @ 372440:                     LINE   7446 "regression-compile-tmp/imp22g-77.imp"
43036 @ 372480:                     PUSHI  #0x00000020
43037 @ 372485:                     SLABEL 422

  7447    get(left)
43038 @ 372488:                     LINE   7447 "regression-compile-tmp/imp22g-77.imp"
43039 @ 372528:                     PUSH   GET
43040 @ 372531:                     PUSHI  #0x00000037
43041 @ 372536:                     ASSPAR
43042 @ 372537:                     CALL  

  7448    %unless a(star)=TRUE %start
43043 @ 372538:                     LINE   7448 "regression-compile-tmp/imp22g-77.imp"
43044 @ 372578:                     PUSH   A
43045 @ 372581:                     PUSHI  #0x00000058
43046 @ 372586:                     ASSPAR
43047 @ 372587:                     CALL  
43048 @ 372588:                     PUSHI  #0x00000001
43049 @ 372593:                     JUMPIF = L_0004

  7449      %unless a(ident)=TRUE %start
43050 @ 372597:                     LINE   7449 "regression-compile-tmp/imp22g-77.imp"
43051 @ 372637:                     PUSH   A
43052 @ 372640:                     PUSHI  #0x00000035
43053 @ 372645:                     ASSPAR
43054 @ 372646:                     CALL  
43055 @ 372647:                     PUSHI  #0x00000001
43056 @ 372652:                     JUMPIF = L_0007

  7450        declare anon(typeident)
43057 @ 372656:                     LINE   7450 "regression-compile-tmp/imp22g-77.imp"
43058 @ 372696:                     PUSH   DECLAREANON
43059 @ 372699:                     PUSH   TYPEIDENT
43060 @ 372702:                     ASSPAR
43061 @ 372703:                     CALL  

  7451        hold = item;  dfhold == dformat
43062 @ 372704:                     LINE   7451 "regression-compile-tmp/imp22g-77.imp"
43063 @ 372744:                     PUSH   HOLD
43064 @ 372747:                     PUSH   ITEM
43065 @ 372750:                     ASSVAL
43066 @ 372751:                     LINE   7451 "regression-compile-tmp/imp22g-77.imp"
43067 @ 372791:                     PUSH   DFHOLD
43068 @ 372794:                     PUSH   DFORMAT
43069 @ 372797:                     ASSREF

  7452        dformat == ditem
43070 @ 372798:                     LINE   7452 "regression-compile-tmp/imp22g-77.imp"
43071 @ 372838:                     PUSH   DFORMAT
43072 @ 372841:                     PUSH   DITEM
43073 @ 372844:                     ASSREF

  7453        get DECLARATION(writable+readable,0,dformat_val,0)
43074 @ 372845:                     LINE   7453 "regression-compile-tmp/imp22g-77.imp"
43075 @ 372885:                     PUSH   GETDECLARATION
43076 @ 372888:                     PUSHI  #0x00000001
43077 @ 372893:                     PUSHI  #0x00000002
43078 @ 372898:                     ADD   
43079 @ 372899:                     ASSPAR
43080 @ 372900:                     PUSHI  #0x00000000
43081 @ 372905:                     ASSPAR
43082 @ 372906:                     PUSH   DFORMAT
43083 @ 372909:                     SELECT 9
43084 @ 372912:                     ASSPAR
43085 @ 372913:                     PUSHI  #0x00000000
43086 @ 372918:                     ASSPAR
43087 @ 372919:                     CALL  

  7454        recalign(dformat_val)
43088 @ 372920:                     LINE   7454 "regression-compile-tmp/imp22g-77.imp"
43089 @ 372960:                     PUSH   RECALIGN
43090 @ 372963:                     PUSH   DFORMAT
43091 @ 372966:                     SELECT 9
43092 @ 372969:                     ASSPAR
43093 @ 372970:                     CALL  

  7455        ditem == dformat
43094 @ 372971:                     LINE   7455 "regression-compile-tmp/imp22g-77.imp"
43095 @ 373011:                     PUSH   DITEM
43096 @ 373014:                     PUSH   DFORMAT
43097 @ 373017:                     ASSREF

  7456        dformat == dfhold;  item = hold
43098 @ 373018:                     LINE   7456 "regression-compile-tmp/imp22g-77.imp"
43099 @ 373058:                     PUSH   DFORMAT
43100 @ 373061:                     PUSH   DFHOLD
43101 @ 373064:                     ASSREF
43102 @ 373065:                     LINE   7456 "regression-compile-tmp/imp22g-77.imp"
43103 @ 373105:                     PUSH   ITEM
43104 @ 373108:                     PUSH   HOLD
43105 @ 373111:                     ASSVAL

  7457      %finish
43106 @ 373112:                     LINE   7457 "regression-compile-tmp/imp22g-77.imp"
43107 @ 373152:                     LOCATE L_0007

  7458      name error %if item <= 0
43108 @ 373155:                     LINE   7458 "regression-compile-tmp/imp22g-77.imp"
43109 @ 373195:                     PUSH   ITEM
43110 @ 373198:                     PUSHI  #0x00000000
43111 @ 373203:                     JUMPIF > L_0007
43112 @ 373207:                     PUSH   NAMEERROR
43113 @ 373210:                     CALL  
43114 @ 373211:                     LOCATE L_0007

  7459      error(classerr+point) %if ditem_flags&(\spec) # typeid+recy
43115 @ 373214:                     LINE   7459 "regression-compile-tmp/imp22g-77.imp"
43116 @ 373254:                     PUSH   DITEM
43117 @ 373257:                     SELECT 1
43118 @ 373260:                     PUSHI  #0x00000100
43119 @ 373265:                     NOT   
43120 @ 373266:                     AND   
43121 @ 373267:                     PUSHI  #0x00000200
43122 @ 373272:                     PUSHI  #0x0000000c
43123 @ 373277:                     ADD   
43124 @ 373278:                     JUMPIF = L_0007
43125 @ 373282:                     PUSH   ERROR
43126 @ 373285:                     PUSHI  #0x0000000a
43127 @ 373290:                     PUSHI  #0x00000040
43128 @ 373295:                     ADD   
43129 @ 373296:                     ASSPAR
43130 @ 373297:                     CALL  
43131 @ 373298:                     LOCATE L_0007

  7460      itemtype = item;  itemsize = ditem_val
43132 @ 373301:                     LINE   7460 "regression-compile-tmp/imp22g-77.imp"
43133 @ 373341:                     PUSH   ITEMTYPE
43134 @ 373344:                     PUSH   ITEM
43135 @ 373347:                     ASSVAL
43136 @ 373348:                     LINE   7460 "regression-compile-tmp/imp22g-77.imp"
43137 @ 373388:                     PUSH   ITEMSIZE
43138 @ 373391:                     PUSH   DITEM
43139 @ 373394:                     SELECT 9
43140 @ 373397:                     ASSVAL

  7461    %else
43141 @ 373398:                     LINE   7461 "regression-compile-tmp/imp22g-77.imp"
43142 @ 373438:                     GOTO   L_0003
43143 @ 373441:                     LOCATE L_0004

  7462      itemtype = recstar;  itemsize = 0
43144 @ 373444:                     LINE   7462 "regression-compile-tmp/imp22g-77.imp"
43145 @ 373484:                     PUSH   ITEMTYPE
43146 @ 373487:                     PUSHI  #0x00000043
43147 @ 373492:                     ASSVAL
43148 @ 373493:                     LINE   7462 "regression-compile-tmp/imp22g-77.imp"
43149 @ 373533:                     PUSH   ITEMSIZE
43150 @ 373536:                     PUSHI  #0x00000000
43151 @ 373541:                     ASSVAL

  7463    %finish
43152 @ 373542:                     LINE   7463 "regression-compile-tmp/imp22g-77.imp"
43153 @ 373582:                     LOCATE L_0003

  7464    get(right)
43154 @ 373585:                     LINE   7464 "regression-compile-tmp/imp22g-77.imp"
43155 @ 373625:                     PUSH   GET
43156 @ 373628:                     PUSHI  #0x0000003d
43157 @ 373633:                     ASSPAR
43158 @ 373634:                     CALL  

  7465    %return
43159 @ 373635:                     LINE   7465 "regression-compile-tmp/imp22g-77.imp"
43160 @ 373675:                     RETURN

  7466  s(keyname):    !untyped %name - leave unmatched
43161 @ 373676:                     LINE   7466 "regression-compile-tmp/imp22g-77.imp"
43162 @ 373716:                     PUSHI  #0x00000021
43163 @ 373721:                     SLABEL 422

  7467    itemtype = 0;  matched = 0
43164 @ 373724:                     LINE   7467 "regression-compile-tmp/imp22g-77.imp"
43165 @ 373764:                     PUSH   ITEMTYPE
43166 @ 373767:                     PUSHI  #0x00000000
43167 @ 373772:                     ASSVAL
43168 @ 373773:                     LINE   7467 "regression-compile-tmp/imp22g-77.imp"
43169 @ 373813:                     PUSH   MATCHED
43170 @ 373816:                     PUSHI  #0x00000000
43171 @ 373821:                     ASSVAL

  7468  %end
  7469  
43172 @ 373822:                     LINE   7468 "regression-compile-tmp/imp22g-77.imp"
43173 @ 373862:                  END    _lev0id0_GETSTATEMENTS_GETDECLARATION_GETDATATYPE {lev=4 --> 3}

  7470  %routine ASSIGN ADDRESS(%integer size)
  7471  
43174 @ 373863:                  LINE   7470 "regression-compile-tmp/imp22g-77.imp"
43175 @ 373903:                  DEF    ASSIGNADDRESS (_lev0id0_GETSTATEMENTS_GETDECLARATION_ASSIGNADDRESS) p1=V_01a6 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
43176 @ 373928:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
43177 @ 373929:                        DEF    SIZE p1=V_01a7 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
43178 @ 373945:                     FINISH ) {lev=4}

  7472  %routine ASSIGN STACK ADDRESS
43179 @ 373946:                     LINE   7472 "regression-compile-tmp/imp22g-77.imp"
43180 @ 373986:                     DEF    ASSIGNSTACKADDRESS (_lev0id0_GETSTATEMENTS_GETDECLARATION_ASSIGNADDRESS_ASSIGNSTACKADDRESS) p1=V_01a8 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
43181 @ 374016:                        START  ( FORMAL PARAMETERS  {lev=5 --> 6, nested=0 --> 1}
43182 @ 374017:                        FINISH ) {lev=5}

  7473    align(stmax,2);  ditem_val = stmax
43183 @ 374018:                        LINE   7473 "regression-compile-tmp/imp22g-77.imp"
43184 @ 374058:                        PUSH   ALIGN
43185 @ 374061:                        PUSH   STMAX
43186 @ 374064:                        ASSPAR
43187 @ 374065:                        PUSHI  #0x00000002
43188 @ 374070:                        ASSPAR
43189 @ 374071:                        CALL  
43190 @ 374072:                        LINE   7473 "regression-compile-tmp/imp22g-77.imp"
43191 @ 374112:                        PUSH   DITEM
43192 @ 374115:                        SELECT 9
43193 @ 374118:                        PUSH   STMAX
43194 @ 374121:                        ASSVAL

  7474    stmax = stmax+imod(size)
43195 @ 374122:                        LINE   7474 "regression-compile-tmp/imp22g-77.imp"
43196 @ 374162:                        PUSH   STMAX
43197 @ 374165:                        PUSH   STMAX
43198 @ 374168:                        PUSH   IMOD
43199 @ 374171:                        PUSH   SIZE
43200 @ 374174:                        ASSPAR
43201 @ 374175:                        CALL  
43202 @ 374176:                        ADD   
43203 @ 374177:                        ASSVAL

  7475    c_status = c_status!onstack %if depth = 1 %and speccing = 0
43204 @ 374178:                        LINE   7475 "regression-compile-tmp/imp22g-77.imp"
43205 @ 374218:                        PUSH   DEPTH
43206 @ 374221:                        PUSHI  #0x00000001
43207 @ 374226:                        JUMPIF # L_0004
43208 @ 374230:                        PUSH   SPECCING
43209 @ 374233:                        PUSHI  #0x00000000
43210 @ 374238:                        JUMPIF # L_0004
43211 @ 374242:                        PUSH   C
43212 @ 374245:                        SELECT 6
43213 @ 374248:                        PUSH   C
43214 @ 374251:                        SELECT 6
43215 @ 374254:                        PUSHI  #0x00000008
43216 @ 374259:                        OR    
43217 @ 374260:                        ASSVAL
43218 @ 374261:                        LOCATE L_0004

  7476  %end
  7477  
43219 @ 374264:                        LINE   7476 "regression-compile-tmp/imp22g-77.imp"
43220 @ 374304:                     END    _lev0id0_GETSTATEMENTS_GETDECLARATION_ASSIGNADDRESS_ASSIGNSTACKADDRESS {lev=5 --> 4}

  7478    size = -4 %if ditem_flags&(name+indirect) # 0
43221 @ 374305:                     LINE   7478 "regression-compile-tmp/imp22g-77.imp"
43222 @ 374345:                     PUSH   DITEM
43223 @ 374348:                     SELECT 1
43224 @ 374351:                     PUSHI  #0xffff8000
43225 @ 374356:                     PUSHI  #0x00000800
43226 @ 374361:                     ADD   
43227 @ 374362:                     AND   
43228 @ 374363:                     PUSHI  #0x00000000
43229 @ 374368:                     JUMPIF = L_0004
43230 @ 374372:                     PUSH   SIZE
43231 @ 374375:                     PUSHI  #0x00000004
43232 @ 374380:                     NEGATE
43233 @ 374381:                     ASSVAL
43234 @ 374382:                     LOCATE L_0004

  7479    %if depth # 0 %start
43235 @ 374385:                     LINE   7479 "regression-compile-tmp/imp22g-77.imp"
43236 @ 374425:                     PUSH   DEPTH
43237 @ 374428:                     PUSHI  #0x00000000
43238 @ 374433:                     JUMPIF = L_0004

  7480      dlink_link = item;  dlink == ditem
43239 @ 374437:                     LINE   7480 "regression-compile-tmp/imp22g-77.imp"
43240 @ 374477:                     PUSH   DLINK
43241 @ 374480:                     SELECT 3
43242 @ 374483:                     PUSH   ITEM
43243 @ 374486:                     ASSVAL
43244 @ 374487:                     LINE   7480 "regression-compile-tmp/imp22g-77.imp"
43245 @ 374527:                     PUSH   DLINK
43246 @ 374530:                     PUSH   DITEM
43247 @ 374533:                     ASSREF

  7481      %if size > 0 %start
  7482       !simple value
43248 @ 374534:                     LINE   7481 "regression-compile-tmp/imp22g-77.imp"
43249 @ 374574:                     PUSH   SIZE
43250 @ 374577:                     PUSHI  #0x00000000
43251 @ 374582:                     JUMPIF <= L_0007

  7483        %if dreg > maxcalldreg %start
43252 @ 374586:                     LINE   7483 "regression-compile-tmp/imp22g-77.imp"
43253 @ 374626:                     PUSH   DREG
43254 @ 374629:                     PUSH   MAXCALLDREG
43255 @ 374632:                     JUMPIF <= L_000a

  7484          assign stack address
43256 @ 374636:                     LINE   7484 "regression-compile-tmp/imp22g-77.imp"
43257 @ 374676:                     PUSH   ASSIGNSTACKADDRESS
43258 @ 374679:                     CALL  

  7485          %return
43259 @ 374680:                     LINE   7485 "regression-compile-tmp/imp22g-77.imp"
43260 @ 374720:                     RETURN

  7486        %finish
43261 @ 374721:                     LINE   7486 "regression-compile-tmp/imp22g-77.imp"
43262 @ 374761:                     LOCATE L_000a

  7487        c_reg_content(dreg) = item %if speccing = 0
43263 @ 374764:                     LINE   7487 "regression-compile-tmp/imp22g-77.imp"
43264 @ 374804:                     PUSH   SPECCING
43265 @ 374807:                     PUSHI  #0x00000000
43266 @ 374812:                     JUMPIF # L_000a
43267 @ 374816:                     PUSH   C
43268 @ 374819:                     SELECT 30
43269 @ 374822:                     SELECT 4
43270 @ 374825:                     PUSH   DREG
43271 @ 374828:                     ACCESS
43272 @ 374829:                     PUSH   ITEM
43273 @ 374832:                     ASSVAL
43274 @ 374833:                     LOCATE L_000a

  7488        ditem_reg = dreg-d0;  dreg = dreg+1
43275 @ 374836:                     LINE   7488 "regression-compile-tmp/imp22g-77.imp"
43276 @ 374876:                     PUSH   DITEM
43277 @ 374879:                     SELECT 7
43278 @ 374882:                     PUSH   DREG
43279 @ 374885:                     PUSHI  #0x00000001
43280 @ 374890:                     SUB   
43281 @ 374891:                     ASSVAL
43282 @ 374892:                     LINE   7488 "regression-compile-tmp/imp22g-77.imp"
43283 @ 374932:                     PUSH   DREG
43284 @ 374935:                     PUSH   DREG
43285 @ 374938:                     PUSHI  #0x00000001
43286 @ 374943:                     ADD   
43287 @ 374944:                     ASSVAL

  7489      %else
43288 @ 374945:                     LINE   7489 "regression-compile-tmp/imp22g-77.imp"
43289 @ 374985:                     GOTO   L_0006
43290 @ 374988:                     LOCATE L_0007

  7490        %if areg > maxcallareg %start
43291 @ 374991:                     LINE   7490 "regression-compile-tmp/imp22g-77.imp"
43292 @ 375031:                     PUSH   AREG
43293 @ 375034:                     PUSH   MAXCALLAREG
43294 @ 375037:                     JUMPIF <= L_000a

  7491          assign stack address
43295 @ 375041:                     LINE   7491 "regression-compile-tmp/imp22g-77.imp"
43296 @ 375081:                     PUSH   ASSIGNSTACKADDRESS
43297 @ 375084:                     CALL  

  7492          ditem_reg = 8     {would have been in AREG}
43298 @ 375085:                     LINE   7492 "regression-compile-tmp/imp22g-77.imp"
43299 @ 375125:                     PUSH   DITEM
43300 @ 375128:                     SELECT 7
43301 @ 375131:                     PUSHI  #0x00000008
43302 @ 375136:                     ASSVAL

  7493          %return
43303 @ 375137:                     LINE   7493 "regression-compile-tmp/imp22g-77.imp"
43304 @ 375177:                     RETURN

  7494        %finish
43305 @ 375178:                     LINE   7494 "regression-compile-tmp/imp22g-77.imp"
43306 @ 375218:                     LOCATE L_000a

  7495        c_reg_content(areg) = item+ad %if speccing = 0 %and ditem_flags < 0
43307 @ 375221:                     LINE   7495 "regression-compile-tmp/imp22g-77.imp"
43308 @ 375261:                     PUSH   SPECCING
43309 @ 375264:                     PUSHI  #0x00000000
43310 @ 375269:                     JUMPIF # L_000a
43311 @ 375273:                     PUSH   DITEM
43312 @ 375276:                     SELECT 1
43313 @ 375279:                     PUSHI  #0x00000000
43314 @ 375284:                     JUMPIF >= L_000a
43315 @ 375288:                     PUSH   C
43316 @ 375291:                     SELECT 30
43317 @ 375294:                     SELECT 4
43318 @ 375297:                     PUSH   AREG
43319 @ 375300:                     ACCESS
43320 @ 375301:                     PUSH   ITEM
43321 @ 375304:                     PUSHI  #0x00004000
43322 @ 375309:                     ADD   
43323 @ 375310:                     ASSVAL
43324 @ 375311:                     LOCATE L_000a

  7496        ditem_reg = areg-d0;  areg = areg+1
43325 @ 375314:                     LINE   7496 "regression-compile-tmp/imp22g-77.imp"
43326 @ 375354:                     PUSH   DITEM
43327 @ 375357:                     SELECT 7
43328 @ 375360:                     PUSH   AREG
43329 @ 375363:                     PUSHI  #0x00000001
43330 @ 375368:                     SUB   
43331 @ 375369:                     ASSVAL
43332 @ 375370:                     LINE   7496 "regression-compile-tmp/imp22g-77.imp"
43333 @ 375410:                     PUSH   AREG
43334 @ 375413:                     PUSH   AREG
43335 @ 375416:                     PUSHI  #0x00000001
43336 @ 375421:                     ADD   
43337 @ 375422:                     ASSVAL

  7497      %finish
43338 @ 375423:                     LINE   7497 "regression-compile-tmp/imp22g-77.imp"
43339 @ 375463:                     LOCATE L_0006

  7498    %finish
43340 @ 375466:                     LINE   7498 "regression-compile-tmp/imp22g-77.imp"
43341 @ 375506:                     LOCATE L_0004

  7499    size = imod(size)
43342 @ 375509:                     LINE   7499 "regression-compile-tmp/imp22g-77.imp"
43343 @ 375549:                     PUSH   SIZE
43344 @ 375552:                     PUSH   IMOD
43345 @ 375555:                     PUSH   SIZE
43346 @ 375558:                     ASSPAR
43347 @ 375559:                     CALL  
43348 @ 375560:                     ASSVAL

  7500    align(disp,size)
43349 @ 375561:                     LINE   7500 "regression-compile-tmp/imp22g-77.imp"
43350 @ 375601:                     PUSH   ALIGN
43351 @ 375604:                     PUSH   DISP
43352 @ 375607:                     ASSPAR
43353 @ 375608:                     PUSH   SIZE
43354 @ 375611:                     ASSPAR
43355 @ 375612:                     CALL  

  7501    ditem_val = disp
43356 @ 375613:                     LINE   7501 "regression-compile-tmp/imp22g-77.imp"
43357 @ 375653:                     PUSH   DITEM
43358 @ 375656:                     SELECT 9
43359 @ 375659:                     PUSH   DISP
43360 @ 375662:                     ASSVAL

  7502    %if constmode # ditem_mode # ownmode %start
43361 @ 375663:                     LINE   7502 "regression-compile-tmp/imp22g-77.imp"
43362 @ 375703:                     PUSHI  #0x0000007a
43363 @ 375708:                     PUSH   DITEM
43364 @ 375711:                     SELECT 8
43365 @ 375714:                     JUMPIFD = L_0004
43366 @ 375718:                     PUSHI  #0x0000006c
43367 @ 375723:                     JUMPIF = L_0004

  7503      disp = disp+size
43368 @ 375727:                     LINE   7503 "regression-compile-tmp/imp22g-77.imp"
43369 @ 375767:                     PUSH   DISP
43370 @ 375770:                     PUSH   DISP
43371 @ 375773:                     PUSH   SIZE
43372 @ 375776:                     ADD   
43373 @ 375777:                     ASSVAL

  7504      %if ditem_mode >= framemode %start
43374 @ 375778:                     LINE   7504 "regression-compile-tmp/imp22g-77.imp"
43375 @ 375818:                     PUSH   DITEM
43376 @ 375821:                     SELECT 8
43377 @ 375824:                     PUSHI  #0x000000a8
43378 @ 375829:                     JUMPIF < L_0007

  7505        align(disp,2)
43379 @ 375833:                     LINE   7505 "regression-compile-tmp/imp22g-77.imp"
43380 @ 375873:                     PUSH   ALIGN
43381 @ 375876:                     PUSH   DISP
43382 @ 375879:                     ASSPAR
43383 @ 375880:                     PUSHI  #0x00000002
43384 @ 375885:                     ASSPAR
43385 @ 375886:                     CALL  

  7506        ditem_val = c_sp-disp;  !neg stack disp.
43386 @ 375887:                     LINE   7506 "regression-compile-tmp/imp22g-77.imp"
43387 @ 375927:                     PUSH   DITEM
43388 @ 375930:                     SELECT 9
43389 @ 375933:                     PUSH   C
43390 @ 375936:                     SELECT 1
43391 @ 375939:                     PUSH   DISP
43392 @ 375942:                     SUB   
43393 @ 375943:                     ASSVAL

  7507      %finish
43394 @ 375944:                     LINE   7507 "regression-compile-tmp/imp22g-77.imp"
43395 @ 375984:                     LOCATE L_0007

  7508    %finish
43396 @ 375987:                     LINE   7508 "regression-compile-tmp/imp22g-77.imp"
43397 @ 376027:                     LOCATE L_0004

  7509  %end
  7510  !
43398 @ 376030:                     LINE   7509 "regression-compile-tmp/imp22g-77.imp"
43399 @ 376070:                  END    _lev0id0_GETSTATEMENTS_GETDECLARATION_ASSIGNADDRESS {lev=4 --> 3}

  7511  %routine GET QIDENT
43400 @ 376071:                  LINE   7511 "regression-compile-tmp/imp22g-77.imp"
43401 @ 376111:                  DEF    GETQIDENT (_lev0id0_GETSTATEMENTS_GETDECLARATION_GETQIDENT) p1=V_01a7 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
43402 @ 376132:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
43403 @ 376133:                     FINISH ) {lev=4}

  7512    get(ident)
43404 @ 376134:                     LINE   7512 "regression-compile-tmp/imp22g-77.imp"
43405 @ 376174:                     PUSH   GET
43406 @ 376177:                     PUSHI  #0x00000035
43407 @ 376182:                     ASSPAR
43408 @ 376183:                     CALL  

  7513    %if mode = 0 %start;  !within record format
43409 @ 376184:                     LINE   7513 "regression-compile-tmp/imp22g-77.imp"
43410 @ 376224:                     PUSH   MODE
43411 @ 376227:                     PUSHI  #0x00000000
43412 @ 376232:                     JUMPIF # L_0004

  7514      head == dformat_link;  item = head
43413 @ 376236:                     LINE   7514 "regression-compile-tmp/imp22g-77.imp"
43414 @ 376276:                     PUSH   HEAD
43415 @ 376279:                     PUSH   DFORMAT
43416 @ 376282:                     SELECT 3
43417 @ 376285:                     ASSREF
43418 @ 376286:                     LINE   7514 "regression-compile-tmp/imp22g-77.imp"
43419 @ 376326:                     PUSH   ITEM
43420 @ 376329:                     PUSH   HEAD
43421 @ 376332:                     ASSVAL

  7515      %if item > 0 %start
43422 @ 376333:                     LINE   7515 "regression-compile-tmp/imp22g-77.imp"
43423 @ 376373:                     PUSH   ITEM
43424 @ 376376:                     PUSHI  #0x00000000
43425 @ 376381:                     JUMPIF <= L_0007

  7516        %cycle
43426 @ 376385:                     LINE   7516 "regression-compile-tmp/imp22g-77.imp"
43427 @ 376425:                     LOCATE L_0009

  7517          ditem == dict(item)
43428 @ 376428:                     LINE   7517 "regression-compile-tmp/imp22g-77.imp"
43429 @ 376468:                     PUSH   DITEM
43430 @ 376471:                     PUSH   DICT
43431 @ 376474:                     PUSH   ITEM
43432 @ 376477:                     ACCESS
43433 @ 376478:                     ASSREF

  7518          fault(duperr+point) %if string(ditem_text+char0) = string(charlim)
43434 @ 376479:                     LINE   7518 "regression-compile-tmp/imp22g-77.imp"
43435 @ 376519:                     PUSH   STRING
43436 @ 376522:                     PUSH   DITEM
43437 @ 376525:                     SELECT 11
43438 @ 376528:                     PUSH   CHAR0
43439 @ 376531:                     ADD   
43440 @ 376532:                     ASSPAR
43441 @ 376533:                     CALL  
43442 @ 376534:                     PUSH   STRING
43443 @ 376537:                     PUSH   CHARLIM
43444 @ 376540:                     ASSPAR
43445 @ 376541:                     CALL  
43446 @ 376542:                     JUMPIF # L_000d
43447 @ 376546:                     PUSH   FAULT
43448 @ 376549:                     PUSHI  #0x00000015
43449 @ 376554:                     PUSHI  #0x00000040
43450 @ 376559:                     ADD   
43451 @ 376560:                     ASSPAR
43452 @ 376561:                     CALL  
43453 @ 376562:                     LOCATE L_000d

  7519          head == ditem_hlink;  item = head
43454 @ 376565:                     LINE   7519 "regression-compile-tmp/imp22g-77.imp"
43455 @ 376605:                     PUSH   HEAD
43456 @ 376608:                     PUSH   DITEM
43457 @ 376611:                     SELECT 12
43458 @ 376614:                     ASSREF
43459 @ 376615:                     LINE   7519 "regression-compile-tmp/imp22g-77.imp"
43460 @ 376655:                     PUSH   ITEM
43461 @ 376658:                     PUSH   HEAD
43462 @ 376661:                     ASSVAL

  7520        %repeat %until item <= 0
43463 @ 376662:                     LINE   7520 "regression-compile-tmp/imp22g-77.imp"
43464 @ 376702:                     PUSH   ITEM
43465 @ 376705:                     PUSHI  #0x00000000
43466 @ 376710:                     JUMPIF <= L_000a
43467 @ 376714:                     REPEAT L_0009
43468 @ 376717:                     LOCATE L_000a

  7521      %finish
43469 @ 376720:                     LINE   7521 "regression-compile-tmp/imp22g-77.imp"
43470 @ 376760:                     LOCATE L_0007

  7522    %finish
43471 @ 376763:                     LINE   7522 "regression-compile-tmp/imp22g-77.imp"
43472 @ 376803:                     LOCATE L_0004

  7523    declare(decl)
43473 @ 376806:                     LINE   7523 "regression-compile-tmp/imp22g-77.imp"
43474 @ 376846:                     PUSH   DECLARE
43475 @ 376849:                     PUSH   DECL
43476 @ 376852:                     ASSPAR
43477 @ 376853:                     CALL  

  7524  %end
  7525  
  7526  !<<BOTH
43478 @ 376854:                     LINE   7524 "regression-compile-tmp/imp22g-77.imp"
43479 @ 376894:                  END    _lev0id0_GETSTATEMENTS_GETDECLARATION_GETQIDENT {lev=4 --> 3}

  7527  %routine DUMP CONST(%integer v,n)
  7528  ! Plant N replications of value V (of type ITEMTYPE and size ITEMSIZE)
  7529  ! For simple operand V is value, otherwise V is address in FINAL
  7530  ! Alignment requirement has been enforced (since it depends on context)
43480 @ 376895:                  LINE   7527 "regression-compile-tmp/imp22g-77.imp"
43481 @ 376935:                  DEF    DUMPCONST (_lev0id0_GETSTATEMENTS_GETDECLARATION_DUMPCONST) p1=V_01a8 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
43482 @ 376956:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
43483 @ 376957:                        DEF    V p1=V_01a9 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
43484 @ 376970:                        DEF    N p1=V_01aa a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
43485 @ 376983:                     FINISH ) {lev=4}

  7531  %integer i,j,k,kk,vv
43486 @ 376984:                     LINE   7531 "regression-compile-tmp/imp22g-77.imp"
43487 @ 377024:                     DEF    I p1=V_01ab a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
43488 @ 377037:                     DEF    J p1=V_01ac a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
43489 @ 377050:                     DEF    K p1=V_01ad a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
43490 @ 377063:                     DEF    KK p1=V_01ae a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
43491 @ 377077:                     DEF    VV p1=V_01af a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  7532    k = itemsize
43492 @ 377091:                     LINE   7532 "regression-compile-tmp/imp22g-77.imp"
43493 @ 377131:                     PUSH   K
43494 @ 377134:                     PUSH   ITEMSIZE
43495 @ 377137:                     ASSVAL

  7533    %if k <= 0 %start;  !structure
43496 @ 377138:                     LINE   7533 "regression-compile-tmp/imp22g-77.imp"
43497 @ 377178:                     PUSH   K
43498 @ 377181:                     PUSHI  #0x00000000
43499 @ 377186:                     JUMPIF > L_0004

  7534      k = -k
43500 @ 377190:                     LINE   7534 "regression-compile-tmp/imp22g-77.imp"
43501 @ 377230:                     PUSH   K
43502 @ 377233:                     PUSH   K
43503 @ 377236:                     NEGATE
43504 @ 377237:                     ASSVAL

  7535      k = final(v)+1 %if k = 0;  ![string]
43505 @ 377238:                     LINE   7535 "regression-compile-tmp/imp22g-77.imp"
43506 @ 377278:                     PUSH   K
43507 @ 377281:                     PUSHI  #0x00000000
43508 @ 377286:                     JUMPIF # L_0007
43509 @ 377290:                     PUSH   K
43510 @ 377293:                     PUSH   FINAL
43511 @ 377296:                     PUSH   V
43512 @ 377299:                     ACCESS
43513 @ 377300:                     PUSHI  #0x00000001
43514 @ 377305:                     ADD   
43515 @ 377306:                     ASSVAL
43516 @ 377307:                     LOCATE L_0007

  7536      cad = v %if v # 0;  !reset cad
43517 @ 377310:                     LINE   7536 "regression-compile-tmp/imp22g-77.imp"
43518 @ 377350:                     PUSH   V
43519 @ 377353:                     PUSHI  #0x00000000
43520 @ 377358:                     JUMPIF = L_0007
43521 @ 377362:                     PUSH   CAD
43522 @ 377365:                     PUSH   V
43523 @ 377368:                     ASSVAL
43524 @ 377369:                     LOCATE L_0007

  7537    %finish
43525 @ 377372:                     LINE   7537 "regression-compile-tmp/imp22g-77.imp"
43526 @ 377412:                     LOCATE L_0004

  7538    kk = k
43527 @ 377415:                     LINE   7538 "regression-compile-tmp/imp22g-77.imp"
43528 @ 377455:                     PUSH   KK
43529 @ 377458:                     PUSH   K
43530 @ 377461:                     ASSVAL

  7539    %return %if n < 1
43531 @ 377462:                     LINE   7539 "regression-compile-tmp/imp22g-77.imp"
43532 @ 377502:                     PUSH   N
43533 @ 377505:                     PUSHI  #0x00000001
43534 @ 377510:                     JUMPIF >= L_0004
43535 @ 377514:                     RETURN
43536 @ 377515:                     LOCATE L_0004

  7540    kk = kk*n %if n > 1
43537 @ 377518:                     LINE   7540 "regression-compile-tmp/imp22g-77.imp"
43538 @ 377558:                     PUSH   N
43539 @ 377561:                     PUSHI  #0x00000001
43540 @ 377566:                     JUMPIF <= L_0004
43541 @ 377570:                     PUSH   KK
43542 @ 377573:                     PUSH   KK
43543 @ 377576:                     PUSH   N
43544 @ 377579:                     MUL   
43545 @ 377580:                     ASSVAL
43546 @ 377581:                     LOCATE L_0004

  7541    %if mode = constmode %start
43547 @ 377584:                     LINE   7541 "regression-compile-tmp/imp22g-77.imp"
43548 @ 377624:                     PUSH   MODE
43549 @ 377627:                     PUSHI  #0x0000007a
43550 @ 377632:                     JUMPIF # L_0004

  7542      i = cad;  cad = cad+kk
43551 @ 377636:                     LINE   7542 "regression-compile-tmp/imp22g-77.imp"
43552 @ 377676:                     PUSH   I
43553 @ 377679:                     PUSH   CAD
43554 @ 377682:                     ASSVAL
43555 @ 377683:                     LINE   7542 "regression-compile-tmp/imp22g-77.imp"
43556 @ 377723:                     PUSH   CAD
43557 @ 377726:                     PUSH   CAD
43558 @ 377729:                     PUSH   KK
43559 @ 377732:                     ADD   
43560 @ 377733:                     ASSVAL

  7543      croak("Program too big") %if cad >= ownbase
43561 @ 377734:                     LINE   7543 "regression-compile-tmp/imp22g-77.imp"
43562 @ 377774:                     PUSH   CAD
43563 @ 377777:                     PUSH   OWNBASE
43564 @ 377780:                     JUMPIF < L_0007
43565 @ 377784:                     PUSH   CROAK
43566 @ 377787:                     PUSHS  "Program too big"
43567 @ 377804:                     ASSPAR
43568 @ 377805:                     CALL  
43569 @ 377806:                     LOCATE L_0007

  7544    %else
43570 @ 377809:                     LINE   7544 "regression-compile-tmp/imp22g-77.imp"
43571 @ 377849:                     GOTO   L_0003
43572 @ 377852:                     LOCATE L_0004

  7545      %if ownbase+ownad+kk-finalbound > 0 %start
43573 @ 377855:                     LINE   7545 "regression-compile-tmp/imp22g-77.imp"
43574 @ 377895:                     PUSH   OWNBASE
43575 @ 377898:                     PUSH   OWNAD
43576 @ 377901:                     ADD   
43577 @ 377902:                     PUSH   KK
43578 @ 377905:                     ADD   
43579 @ 377906:                     PUSH   FINALBOUND
43580 @ 377909:                     SUB   
43581 @ 377910:                     PUSHI  #0x00000000
43582 @ 377915:                     JUMPIF <= L_0007

  7546        make room(ownbase+ownad+kk-finalbound)
43583 @ 377919:                     LINE   7546 "regression-compile-tmp/imp22g-77.imp"
43584 @ 377959:                     PUSH   MAKEROOM
43585 @ 377962:                     PUSH   OWNBASE
43586 @ 377965:                     PUSH   OWNAD
43587 @ 377968:                     ADD   
43588 @ 377969:                     PUSH   KK
43589 @ 377972:                     ADD   
43590 @ 377973:                     PUSH   FINALBOUND
43591 @ 377976:                     SUB   
43592 @ 377977:                     ASSPAR
43593 @ 377978:                     CALL  

  7547      %finish
43594 @ 377979:                     LINE   7547 "regression-compile-tmp/imp22g-77.imp"
43595 @ 378019:                     LOCATE L_0007

  7548      i = ownbase+ownad;  ownad = ownad+kk
43596 @ 378022:                     LINE   7548 "regression-compile-tmp/imp22g-77.imp"
43597 @ 378062:                     PUSH   I
43598 @ 378065:                     PUSH   OWNBASE
43599 @ 378068:                     PUSH   OWNAD
43600 @ 378071:                     ADD   
43601 @ 378072:                     ASSVAL
43602 @ 378073:                     LINE   7548 "regression-compile-tmp/imp22g-77.imp"
43603 @ 378113:                     PUSH   OWNAD
43604 @ 378116:                     PUSH   OWNAD
43605 @ 378119:                     PUSH   KK
43606 @ 378122:                     ADD   
43607 @ 378123:                     ASSVAL

  7549    %finish
43608 @ 378124:                     LINE   7549 "regression-compile-tmp/imp22g-77.imp"
43609 @ 378164:                     LOCATE L_0003

  7550    %if itemsize <= 0 %start
43610 @ 378167:                     LINE   7550 "regression-compile-tmp/imp22g-77.imp"
43611 @ 378207:                     PUSH   ITEMSIZE
43612 @ 378210:                     PUSHI  #0x00000000
43613 @ 378215:                     JUMPIF > L_0004

  7551      %while n > 0 %cycle
43614 @ 378219:                     LINE   7551 "regression-compile-tmp/imp22g-77.imp"
43615 @ 378259:                     LOCATE L_0006
43616 @ 378262:                     PUSH   N
43617 @ 378265:                     PUSHI  #0x00000000
43618 @ 378270:                     JUMPIF <= L_0007

  7552        n = n-1;  j = i+k
43619 @ 378274:                     LINE   7552 "regression-compile-tmp/imp22g-77.imp"
43620 @ 378314:                     PUSH   N
43621 @ 378317:                     PUSH   N
43622 @ 378320:                     PUSHI  #0x00000001
43623 @ 378325:                     SUB   
43624 @ 378326:                     ASSVAL
43625 @ 378327:                     LINE   7552 "regression-compile-tmp/imp22g-77.imp"
43626 @ 378367:                     PUSH   J
43627 @ 378370:                     PUSH   I
43628 @ 378373:                     PUSH   K
43629 @ 378376:                     ADD   
43630 @ 378377:                     ASSVAL

  7553        %if v # 0 %start
43631 @ 378378:                     LINE   7553 "regression-compile-tmp/imp22g-77.imp"
43632 @ 378418:                     PUSH   V
43633 @ 378421:                     PUSHI  #0x00000000
43634 @ 378426:                     JUMPIF = L_000a

  7554          vv = v
43635 @ 378430:                     LINE   7554 "regression-compile-tmp/imp22g-77.imp"
43636 @ 378470:                     PUSH   VV
43637 @ 378473:                     PUSH   V
43638 @ 378476:                     ASSVAL

  7555          %cycle
43639 @ 378477:                     LINE   7555 "regression-compile-tmp/imp22g-77.imp"
43640 @ 378517:                     LOCATE L_000c

  7556            final(i) = final(vv)
43641 @ 378520:                     LINE   7556 "regression-compile-tmp/imp22g-77.imp"
43642 @ 378560:                     PUSH   FINAL
43643 @ 378563:                     PUSH   I
43644 @ 378566:                     ACCESS
43645 @ 378567:                     PUSH   FINAL
43646 @ 378570:                     PUSH   VV
43647 @ 378573:                     ACCESS
43648 @ 378574:                     ASSVAL

  7557            i = i+1;  vv = vv+1
43649 @ 378575:                     LINE   7557 "regression-compile-tmp/imp22g-77.imp"
43650 @ 378615:                     PUSH   I
43651 @ 378618:                     PUSH   I
43652 @ 378621:                     PUSHI  #0x00000001
43653 @ 378626:                     ADD   
43654 @ 378627:                     ASSVAL
43655 @ 378628:                     LINE   7557 "regression-compile-tmp/imp22g-77.imp"
43656 @ 378668:                     PUSH   VV
43657 @ 378671:                     PUSH   VV
43658 @ 378674:                     PUSHI  #0x00000001
43659 @ 378679:                     ADD   
43660 @ 378680:                     ASSVAL

  7558          %repeat %until i =j
43661 @ 378681:                     LINE   7558 "regression-compile-tmp/imp22g-77.imp"
43662 @ 378721:                     PUSH   I
43663 @ 378724:                     PUSH   J
43664 @ 378727:                     JUMPIF = L_000d
43665 @ 378731:                     REPEAT L_000c
43666 @ 378734:                     LOCATE L_000d

  7559        %else
43667 @ 378737:                     LINE   7559 "regression-compile-tmp/imp22g-77.imp"
43668 @ 378777:                     GOTO   L_0009
43669 @ 378780:                     LOCATE L_000a

  7560          final(i) = 0 %and i = i+1 %while i < j
43670 @ 378783:                     LINE   7560 "regression-compile-tmp/imp22g-77.imp"
43671 @ 378823:                     LOCATE L_000c
43672 @ 378826:                     PUSH   I
43673 @ 378829:                     PUSH   J
43674 @ 378832:                     JUMPIF >= L_000d
43675 @ 378836:                     PUSH   FINAL
43676 @ 378839:                     PUSH   I
43677 @ 378842:                     ACCESS
43678 @ 378843:                     PUSHI  #0x00000000
43679 @ 378848:                     ASSVAL
43680 @ 378849:                     PUSH   I
43681 @ 378852:                     PUSH   I
43682 @ 378855:                     PUSHI  #0x00000001
43683 @ 378860:                     ADD   
43684 @ 378861:                     ASSVAL
43685 @ 378862:                     REPEAT L_000c
43686 @ 378865:                     LOCATE L_000d

  7561        %finish
43687 @ 378868:                     LINE   7561 "regression-compile-tmp/imp22g-77.imp"
43688 @ 378908:                     LOCATE L_0009

  7562      %repeat
43689 @ 378911:                     LINE   7562 "regression-compile-tmp/imp22g-77.imp"
43690 @ 378951:                     REPEAT L_0006
43691 @ 378954:                     LOCATE L_0007

  7563    %else
  7564  !$IF VAX
  7565  {    v = ieee(v) %if itemtype = realtype;  !vax->ieee
  7566  !$FINISH
43692 @ 378957:                     LINE   7563 "regression-compile-tmp/imp22g-77.imp"
43693 @ 378997:                     GOTO   L_0003
43694 @ 379000:                     LOCATE L_0004

  7567      %while n > 0 %cycle
43695 @ 379003:                     LINE   7567 "regression-compile-tmp/imp22g-77.imp"
43696 @ 379043:                     LOCATE L_0006
43697 @ 379046:                     PUSH   N
43698 @ 379049:                     PUSHI  #0x00000000
43699 @ 379054:                     JUMPIF <= L_0007

  7568        n = n-1
43700 @ 379058:                     LINE   7568 "regression-compile-tmp/imp22g-77.imp"
43701 @ 379098:                     PUSH   N
43702 @ 379101:                     PUSH   N
43703 @ 379104:                     PUSHI  #0x00000001
43704 @ 379109:                     SUB   
43705 @ 379110:                     ASSVAL

  7569        %if itemsize >= 2 %start
43706 @ 379111:                     LINE   7569 "regression-compile-tmp/imp22g-77.imp"
43707 @ 379151:                     PUSH   ITEMSIZE
43708 @ 379154:                     PUSHI  #0x00000002
43709 @ 379159:                     JUMPIF < L_000a

  7570          %if itemsize > 2 %start;  !longword
43710 @ 379163:                     LINE   7570 "regression-compile-tmp/imp22g-77.imp"
43711 @ 379203:                     PUSH   ITEMSIZE
43712 @ 379206:                     PUSHI  #0x00000002
43713 @ 379211:                     JUMPIF <= L_000d

  7571            final(i) <- v>>24
43714 @ 379215:                     LINE   7571 "regression-compile-tmp/imp22g-77.imp"
43715 @ 379255:                     PUSH   FINAL
43716 @ 379258:                     PUSH   I
43717 @ 379261:                     ACCESS
43718 @ 379262:                     PUSH   V
43719 @ 379265:                     PUSHI  #0x00000018
43720 @ 379270:                     RSH   
43721 @ 379271:                     JAM   

  7572            final(i+1) <- v>>16
43722 @ 379272:                     LINE   7572 "regression-compile-tmp/imp22g-77.imp"
43723 @ 379312:                     PUSH   FINAL
43724 @ 379315:                     PUSH   I
43725 @ 379318:                     PUSHI  #0x00000001
43726 @ 379323:                     ADD   
43727 @ 379324:                     ACCESS
43728 @ 379325:                     PUSH   V
43729 @ 379328:                     PUSHI  #0x00000010
43730 @ 379333:                     RSH   
43731 @ 379334:                     JAM   

  7573            i = i+2
43732 @ 379335:                     LINE   7573 "regression-compile-tmp/imp22g-77.imp"
43733 @ 379375:                     PUSH   I
43734 @ 379378:                     PUSH   I
43735 @ 379381:                     PUSHI  #0x00000002
43736 @ 379386:                     ADD   
43737 @ 379387:                     ASSVAL

  7574          %finish
43738 @ 379388:                     LINE   7574 "regression-compile-tmp/imp22g-77.imp"
43739 @ 379428:                     LOCATE L_000d

  7575          final(i) <- v>>8
43740 @ 379431:                     LINE   7575 "regression-compile-tmp/imp22g-77.imp"
43741 @ 379471:                     PUSH   FINAL
43742 @ 379474:                     PUSH   I
43743 @ 379477:                     ACCESS
43744 @ 379478:                     PUSH   V
43745 @ 379481:                     PUSHI  #0x00000008
43746 @ 379486:                     RSH   
43747 @ 379487:                     JAM   

  7576          i = i+1
43748 @ 379488:                     LINE   7576 "regression-compile-tmp/imp22g-77.imp"
43749 @ 379528:                     PUSH   I
43750 @ 379531:                     PUSH   I
43751 @ 379534:                     PUSHI  #0x00000001
43752 @ 379539:                     ADD   
43753 @ 379540:                     ASSVAL

  7577        %finish
43754 @ 379541:                     LINE   7577 "regression-compile-tmp/imp22g-77.imp"
43755 @ 379581:                     LOCATE L_000a

  7578        final(i) <- v
43756 @ 379584:                     LINE   7578 "regression-compile-tmp/imp22g-77.imp"
43757 @ 379624:                     PUSH   FINAL
43758 @ 379627:                     PUSH   I
43759 @ 379630:                     ACCESS
43760 @ 379631:                     PUSH   V
43761 @ 379634:                     JAM   

  7579        i = i+1
43762 @ 379635:                     LINE   7579 "regression-compile-tmp/imp22g-77.imp"
43763 @ 379675:                     PUSH   I
43764 @ 379678:                     PUSH   I
43765 @ 379681:                     PUSHI  #0x00000001
43766 @ 379686:                     ADD   
43767 @ 379687:                     ASSVAL

  7580      %repeat
43768 @ 379688:                     LINE   7580 "regression-compile-tmp/imp22g-77.imp"
43769 @ 379728:                     REPEAT L_0006
43770 @ 379731:                     LOCATE L_0007

  7581    %finish
43771 @ 379734:                     LINE   7581 "regression-compile-tmp/imp22g-77.imp"
43772 @ 379774:                     LOCATE L_0003

  7582  %end;  !dump const
  7583  !<<IMP
  7584  
43773 @ 379777:                     LINE   7582 "regression-compile-tmp/imp22g-77.imp"
43774 @ 379817:                  END    _lev0id0_GETSTATEMENTS_GETDECLARATION_DUMPCONST {lev=4 --> 3}

  7585  %routine GET VAR BOUND
43775 @ 379818:                  LINE   7585 "regression-compile-tmp/imp22g-77.imp"
43776 @ 379858:                  DEF    GETVARBOUND (_lev0id0_GETSTATEMENTS_GETDECLARATION_GETVARBOUND) p1=V_01a4 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
43777 @ 379881:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
43778 @ 379882:                     FINISH ) {lev=4}

  7586  %integer f
43779 @ 379883:                     LINE   7586 "regression-compile-tmp/imp22g-77.imp"
43780 @ 379923:                     DEF    F p1=V_01a9 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  7587    f = decl_flags
43781 @ 379936:                     LINE   7587 "regression-compile-tmp/imp22g-77.imp"
43782 @ 379976:                     PUSH   F
43783 @ 379979:                     PUSH   DECL
43784 @ 379982:                     SELECT 1
43785 @ 379985:                     ASSVAL

  7588    get DATA TYPE
43786 @ 379986:                     LINE   7588 "regression-compile-tmp/imp22g-77.imp"
43787 @ 380026:                     PUSH   GETDATATYPE
43788 @ 380029:                     CALL  

  7589    decl_flags = okflag+mflag;  decl_type = itemtype
43789 @ 380030:                     LINE   7589 "regression-compile-tmp/imp22g-77.imp"
43790 @ 380070:                     PUSH   DECL
43791 @ 380073:                     SELECT 1
43792 @ 380076:                     PUSHI  #0x00000040
43793 @ 380081:                     PUSHI  #0x00000080
43794 @ 380086:                     ADD   
43795 @ 380087:                     ASSVAL
43796 @ 380088:                     LINE   7589 "regression-compile-tmp/imp22g-77.imp"
43797 @ 380128:                     PUSH   DECL
43798 @ 380131:                     SELECT 2
43799 @ 380134:                     PUSH   ITEMTYPE
43800 @ 380137:                     ASSVAL

  7590    get(ident);  declare(decl)
43801 @ 380138:                     LINE   7590 "regression-compile-tmp/imp22g-77.imp"
43802 @ 380178:                     PUSH   GET
43803 @ 380181:                     PUSHI  #0x00000035
43804 @ 380186:                     ASSPAR
43805 @ 380187:                     CALL  
43806 @ 380188:                     LINE   7590 "regression-compile-tmp/imp22g-77.imp"
43807 @ 380228:                     PUSH   DECLARE
43808 @ 380231:                     PUSH   DECL
43809 @ 380234:                     ASSPAR
43810 @ 380235:                     CALL  

  7591    decl_flags = f
43811 @ 380236:                     LINE   7591 "regression-compile-tmp/imp22g-77.imp"
43812 @ 380276:                     PUSH   DECL
43813 @ 380279:                     SELECT 1
43814 @ 380282:                     PUSH   F
43815 @ 380285:                     ASSVAL

  7592    assign address(itemsize)
43816 @ 380286:                     LINE   7592 "regression-compile-tmp/imp22g-77.imp"
43817 @ 380326:                     PUSH   ASSIGNADDRESS
43818 @ 380329:                     PUSH   ITEMSIZE
43819 @ 380332:                     ASSPAR
43820 @ 380333:                     CALL  

  7593  %end
  7594  
43821 @ 380334:                     LINE   7593 "regression-compile-tmp/imp22g-77.imp"
43822 @ 380374:                  END    _lev0id0_GETSTATEMENTS_GETDECLARATION_GETVARBOUND {lev=4 --> 3}

  7595  %routine DECLARE BOUND(%integer mode,val)
43823 @ 380375:                  LINE   7595 "regression-compile-tmp/imp22g-77.imp"
43824 @ 380415:                  DEF    DECLAREBOUND (_lev0id0_GETSTATEMENTS_GETDECLARATION_DECLAREBOUND) p1=V_01a9 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
43825 @ 380439:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
43826 @ 380440:                        DEF    MODE p1=V_01aa a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
43827 @ 380456:                        DEF    VAL p1=V_01ab a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
43828 @ 380471:                     FINISH ) {lev=4}

  7596    declare anon(details(okflag,inttype,mode,val))
43829 @ 380472:                     LINE   7596 "regression-compile-tmp/imp22g-77.imp"
43830 @ 380512:                     PUSH   DECLAREANON
43831 @ 380515:                     PUSH   DETAILS
43832 @ 380518:                     PUSHI  #0x00000040
43833 @ 380523:                     ASSPAR
43834 @ 380524:                     PUSHI  #0x0000002b
43835 @ 380529:                     ASSPAR
43836 @ 380530:                     PUSH   MODE
43837 @ 380533:                     ASSPAR
43838 @ 380534:                     PUSH   VAL
43839 @ 380537:                     ASSPAR
43840 @ 380538:                     CALL  
43841 @ 380539:                     ASSPAR
43842 @ 380540:                     CALL  

  7597    %if depth # 0 %and mode >= framemode %start
43843 @ 380541:                     LINE   7597 "regression-compile-tmp/imp22g-77.imp"
43844 @ 380581:                     PUSH   DEPTH
43845 @ 380584:                     PUSHI  #0x00000000
43846 @ 380589:                     JUMPIF = L_0004
43847 @ 380593:                     PUSH   MODE
43848 @ 380596:                     PUSHI  #0x000000a8
43849 @ 380601:                     JUMPIF < L_0004

  7598      ditem_flags = ditem_flags!mflag
43850 @ 380605:                     LINE   7598 "regression-compile-tmp/imp22g-77.imp"
43851 @ 380645:                     PUSH   DITEM
43852 @ 380648:                     SELECT 1
43853 @ 380651:                     PUSH   DITEM
43854 @ 380654:                     SELECT 1
43855 @ 380657:                     PUSHI  #0x00000080
43856 @ 380662:                     OR    
43857 @ 380663:                     ASSVAL

  7599      assign address(4)
43858 @ 380664:                     LINE   7599 "regression-compile-tmp/imp22g-77.imp"
43859 @ 380704:                     PUSH   ASSIGNADDRESS
43860 @ 380707:                     PUSHI  #0x00000004
43861 @ 380712:                     ASSPAR
43862 @ 380713:                     CALL  

  7600    %finish
43863 @ 380714:                     LINE   7600 "regression-compile-tmp/imp22g-77.imp"
43864 @ 380754:                     LOCATE L_0004

  7601  %end
  7602  
43865 @ 380757:                     LINE   7601 "regression-compile-tmp/imp22g-77.imp"
43866 @ 380797:                  END    _lev0id0_GETSTATEMENTS_GETDECLARATION_DECLAREBOUND {lev=4 --> 3}

  7603  %routine GET ARRAY DECLARATION(%integer dim)
43867 @ 380798:                  LINE   7603 "regression-compile-tmp/imp22g-77.imp"
43868 @ 380838:                  DEF    GETARRAYDECLARATION (_lev0id0_GETSTATEMENTS_GETDECLARATION_GETARRAYDECLARATION) p1=V_01aa 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
43869 @ 380869:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
43870 @ 380870:                        DEF    DIM p1=V_01ab a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
43871 @ 380885:                     FINISH ) {lev=4}

  7604  %integer pos,dlim1,holdval,holdz,jam,elements,tot,totsize,lo1,size1
43872 @ 380886:                     LINE   7604 "regression-compile-tmp/imp22g-77.imp"
43873 @ 380926:                     DEF    POS p1=V_01ac a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
43874 @ 380941:                     DEF    DLIM1 p1=V_01ad a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
43875 @ 380958:                     DEF    HOLDVAL p1=V_01ae a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
43876 @ 380977:                     DEF    HOLDZ p1=V_01af a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
43877 @ 380994:                     DEF    JAM p1=V_01b0 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
43878 @ 381009:                     DEF    ELEMENTS p1=V_01b1 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
43879 @ 381029:                     DEF    TOT p1=V_01b2 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
43880 @ 381044:                     DEF    TOTSIZE p1=V_01b3 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
43881 @ 381063:                     DEF    LO1 p1=V_01b4 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
43882 @ 381078:                     DEF    SIZE1 p1=V_01b5 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  7605  %record(identinfo)%name dp
43883 @ 381095:                     LINE   7605 "regression-compile-tmp/imp22g-77.imp"
43884 @ 381135:                     DEF    DP p1=V_01b6 a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  7606  %ownrecord(objinfo) ATYPE=0
  7607  
43885 @ 381149:                     LINE   7606 "regression-compile-tmp/imp22g-77.imp"
43886 @ 381189:                     PUSHI  #0x00000000
43887 @ 381194:                     DEF    ATYPE p1=V_01b7 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
43888 @ 381211:                     INIT   1

  7608  %integer%fn XTYPE
43889 @ 381214:                     LINE   7608 "regression-compile-tmp/imp22g-77.imp"
43890 @ 381254:                     DEF    XTYPE (_lev0id0_GETSTATEMENTS_GETDECLARATION_GETARRAYDECLARATION_XTYPE) p1=V_01b8 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
43891 @ 381271:                        START  ( FORMAL PARAMETERS  {lev=5 --> 6, nested=0 --> 1}
43892 @ 381272:                        FINISH ) {lev=5}

  7609    declare anon(details(typeid,inttype,0,0))
43893 @ 381273:                        LINE   7609 "regression-compile-tmp/imp22g-77.imp"
43894 @ 381313:                        PUSH   DECLAREANON
43895 @ 381316:                        PUSH   DETAILS
43896 @ 381319:                        PUSHI  #0x00000200
43897 @ 381324:                        ASSPAR
43898 @ 381325:                        PUSHI  #0x0000002b
43899 @ 381330:                        ASSPAR
43900 @ 381331:                        PUSHI  #0x00000000
43901 @ 381336:                        ASSPAR
43902 @ 381337:                        PUSHI  #0x00000000
43903 @ 381342:                        ASSPAR
43904 @ 381343:                        CALL  
43905 @ 381344:                        ASSPAR
43906 @ 381345:                        CALL  

  7610    %result = item
43907 @ 381346:                        LINE   7610 "regression-compile-tmp/imp22g-77.imp"
43908 @ 381386:                        PUSH   ITEM
43909 @ 381389:                        RESULT

  7611  %end
  7612  
43910 @ 381390:                        LINE   7611 "regression-compile-tmp/imp22g-77.imp"
43911 @ 381430:                     END    _lev0id0_GETSTATEMENTS_GETDECLARATION_GETARRAYDECLARATION_XTYPE {lev=5 --> 4}

  7613  %routine STRING STAR ARRAY
43912 @ 381431:                     LINE   7613 "regression-compile-tmp/imp22g-77.imp"
43913 @ 381471:                     DEF    STRINGSTARARRAY (_lev0id0_GETSTATEMENTS_GETDECLARATION_GETARRAYDECLARATION_STRINGSTARARRAY) p1=V_01b9 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
43914 @ 381498:                        START  ( FORMAL PARAMETERS  {lev=5 --> 6, nested=0 --> 1}
43915 @ 381499:                        FINISH ) {lev=5}

  7614    fault(notin+point) %if depth = 0
  7615   ! VAR for size
43916 @ 381500:                        LINE   7614 "regression-compile-tmp/imp22g-77.imp"
43917 @ 381540:                        PUSH   DEPTH
43918 @ 381543:                        PUSHI  #0x00000000
43919 @ 381548:                        JUMPIF # L_0004
43920 @ 381552:                        PUSH   FAULT
43921 @ 381555:                        PUSHI  #0x00000028
43922 @ 381560:                        PUSHI  #0x00000040
43923 @ 381565:                        ADD   
43924 @ 381566:                        ASSPAR
43925 @ 381567:                        CALL  
43926 @ 381568:                        LOCATE L_0004

  7616    declare anon(details(okflag+mflag+inty,inttype,mode,0))
43927 @ 381571:                        LINE   7616 "regression-compile-tmp/imp22g-77.imp"
43928 @ 381611:                        PUSH   DECLAREANON
43929 @ 381614:                        PUSH   DETAILS
43930 @ 381617:                        PUSHI  #0x00000040
43931 @ 381622:                        PUSHI  #0x00000080
43932 @ 381627:                        ADD   
43933 @ 381628:                        PUSHI  #0x00000000
43934 @ 381633:                        ADD   
43935 @ 381634:                        ASSPAR
43936 @ 381635:                        PUSHI  #0x0000002b
43937 @ 381640:                        ASSPAR
43938 @ 381641:                        PUSH   MODE
43939 @ 381644:                        ASSPAR
43940 @ 381645:                        PUSHI  #0x00000000
43941 @ 381650:                        ASSPAR
43942 @ 381651:                        CALL  
43943 @ 381652:                        ASSPAR
43944 @ 381653:                        CALL  

  7617    tot = item
43945 @ 381654:                        LINE   7617 "regression-compile-tmp/imp22g-77.imp"
43946 @ 381694:                        PUSH   TOT
43947 @ 381697:                        PUSH   ITEM
43948 @ 381700:                        ASSVAL

  7618    assign address(4)
  7619   ! TYPEID for string(*)
43949 @ 381701:                        LINE   7618 "regression-compile-tmp/imp22g-77.imp"
43950 @ 381741:                        PUSH   ASSIGNADDRESS
43951 @ 381744:                        PUSHI  #0x00000004
43952 @ 381749:                        ASSPAR
43953 @ 381750:                        CALL  

  7620    declare anon(details(typeid+stringy,inttype,0,0))
43954 @ 381751:                        LINE   7620 "regression-compile-tmp/imp22g-77.imp"
43955 @ 381791:                        PUSH   DECLAREANON
43956 @ 381794:                        PUSH   DETAILS
43957 @ 381797:                        PUSHI  #0x00000200
43958 @ 381802:                        PUSHI  #0x00000008
43959 @ 381807:                        ADD   
43960 @ 381808:                        ASSPAR
43961 @ 381809:                        PUSHI  #0x0000002b
43962 @ 381814:                        ASSPAR
43963 @ 381815:                        PUSHI  #0x00000000
43964 @ 381820:                        ASSPAR
43965 @ 381821:                        PUSHI  #0x00000000
43966 @ 381826:                        ASSPAR
43967 @ 381827:                        CALL  
43968 @ 381828:                        ASSPAR
43969 @ 381829:                        CALL  

  7621    atype_type = item
43970 @ 381830:                        LINE   7621 "regression-compile-tmp/imp22g-77.imp"
43971 @ 381870:                        PUSH   ATYPE
43972 @ 381873:                        SELECT 2
43973 @ 381876:                        PUSH   ITEM
43974 @ 381879:                        ASSVAL

  7622    elements = maxint
43975 @ 381880:                        LINE   7622 "regression-compile-tmp/imp22g-77.imp"
43976 @ 381920:                        PUSH   ELEMENTS
43977 @ 381923:                        PUSHI  #0x7fffffff
43978 @ 381928:                        ASSVAL

  7623  %end
  7624  
43979 @ 381929:                        LINE   7623 "regression-compile-tmp/imp22g-77.imp"
43980 @ 381969:                     END    _lev0id0_GETSTATEMENTS_GETDECLARATION_GETARRAYDECLARATION_STRINGSTARARRAY {lev=5 --> 4}

  7625  %routine GET REST
43981 @ 381970:                     LINE   7625 "regression-compile-tmp/imp22g-77.imp"
43982 @ 382010:                     DEF    GETREST (_lev0id0_GETSTATEMENTS_GETDECLARATION_GETARRAYDECLARATION_GETREST) p1=V_01ba 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
43983 @ 382029:                        START  ( FORMAL PARAMETERS  {lev=5 --> 6, nested=0 --> 1}
43984 @ 382030:                        FINISH ) {lev=5}

  7626  %integer e,r,lo,loval,hi,hival
43985 @ 382031:                        LINE   7626 "regression-compile-tmp/imp22g-77.imp"
43986 @ 382071:                        DEF    E p1=V_01bb a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
43987 @ 382084:                        DEF    R p1=V_01bc a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
43988 @ 382097:                        DEF    LO p1=V_01bd a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
43989 @ 382111:                        DEF    LOVAL p1=V_01be a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
43990 @ 382128:                        DEF    HI p1=V_01bf a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
43991 @ 382142:                        DEF    HIVAL p1=V_01c0 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  7627    r = 0
43992 @ 382159:                        LINE   7627 "regression-compile-tmp/imp22g-77.imp"
43993 @ 382199:                        PUSH   R
43994 @ 382202:                        PUSHI  #0x00000000
43995 @ 382207:                        ASSVAL

  7628    atom = next atom %if matched # 0
43996 @ 382208:                        LINE   7628 "regression-compile-tmp/imp22g-77.imp"
43997 @ 382248:                        PUSH   MATCHED
43998 @ 382251:                        PUSHI  #0x00000000
43999 @ 382256:                        JUMPIF = L_0004
44000 @ 382260:                        PUSH   ATOM
44001 @ 382263:                        PUSH   NEXTATOM
44002 @ 382266:                        CALL  
44003 @ 382267:                        ASSVAL
44004 @ 382268:                        LOCATE L_0004

  7629    %if decl_flags < 0 %start;  !%array%name
44005 @ 382271:                        LINE   7629 "regression-compile-tmp/imp22g-77.imp"
44006 @ 382311:                        PUSH   DECL
44007 @ 382314:                        SELECT 1
44008 @ 382317:                        PUSHI  #0x00000000
44009 @ 382322:                        JUMPIF >= L_0004

  7630      %if depth > 0 %and ktype <= atom <= keyinteger %start;  !variable
44010 @ 382326:                        LINE   7630 "regression-compile-tmp/imp22g-77.imp"
44011 @ 382366:                        PUSH   DEPTH
44012 @ 382369:                        PUSHI  #0x00000000
44013 @ 382374:                        JUMPIF <= L_0007
44014 @ 382378:                        PUSHI  #0x0000001b
44015 @ 382383:                        PUSH   ATOM
44016 @ 382386:                        JUMPIFD > L_0007
44017 @ 382390:                        PUSHI  #0x0000001c
44018 @ 382395:                        JUMPIF > L_0007

  7631        r = xtype;  get VAR BOUND
44019 @ 382399:                        LINE   7631 "regression-compile-tmp/imp22g-77.imp"
44020 @ 382439:                        PUSH   R
44021 @ 382442:                        PUSH   XTYPE
44022 @ 382445:                        CALL  
44023 @ 382446:                        ASSVAL
44024 @ 382447:                        LINE   7631 "regression-compile-tmp/imp22g-77.imp"
44025 @ 382487:                        PUSH   GETVARBOUND
44026 @ 382490:                        CALL  

  7632      %else
44027 @ 382491:                        LINE   7632 "regression-compile-tmp/imp22g-77.imp"
44028 @ 382531:                        GOTO   L_0006
44029 @ 382534:                        LOCATE L_0007

  7633        get LITERAL(inttype)
44030 @ 382537:                        LINE   7633 "regression-compile-tmp/imp22g-77.imp"
44031 @ 382577:                        PUSH   GETLITERAL
44032 @ 382580:                        PUSHI  #0x0000002b
44033 @ 382585:                        ASSPAR
44034 @ 382586:                        CALL  

  7634      %finish
44035 @ 382587:                        LINE   7634 "regression-compile-tmp/imp22g-77.imp"
44036 @ 382627:                        LOCATE L_0006

  7635    %else;                   !%array
44037 @ 382630:                        LINE   7635 "regression-compile-tmp/imp22g-77.imp"
44038 @ 382670:                        GOTO   L_0003
44039 @ 382673:                        LOCATE L_0004

  7636      get VALUE(inttype)
44040 @ 382676:                        LINE   7636 "regression-compile-tmp/imp22g-77.imp"
44041 @ 382716:                        PUSH   GETVALUE
44042 @ 382719:                        PUSHI  #0x0000002b
44043 @ 382724:                        ASSPAR
44044 @ 382725:                        CALL  

  7637    %finish
44045 @ 382726:                        LINE   7637 "regression-compile-tmp/imp22g-77.imp"
44046 @ 382766:                        LOCATE L_0003

  7638    loval = value;  lo = item
44047 @ 382769:                        LINE   7638 "regression-compile-tmp/imp22g-77.imp"
44048 @ 382809:                        PUSH   LOVAL
44049 @ 382812:                        PUSH   VALUE
44050 @ 382815:                        ASSVAL
44051 @ 382816:                        LINE   7638 "regression-compile-tmp/imp22g-77.imp"
44052 @ 382856:                        PUSH   LO
44053 @ 382859:                        PUSH   ITEM
44054 @ 382862:                        ASSVAL

  7639    loval = minint %if lo # 0
44055 @ 382863:                        LINE   7639 "regression-compile-tmp/imp22g-77.imp"
44056 @ 382903:                        PUSH   LO
44057 @ 382906:                        PUSHI  #0x00000000
44058 @ 382911:                        JUMPIF = L_0004
44059 @ 382915:                        PUSH   LOVAL
44060 @ 382918:                        PUSHI  #0x80000000
44061 @ 382923:                        ASSVAL
44062 @ 382924:                        LOCATE L_0004

  7640    get(colon)
44063 @ 382927:                        LINE   7640 "regression-compile-tmp/imp22g-77.imp"
44064 @ 382967:                        PUSH   GET
44065 @ 382970:                        PUSHI  #0x0000003b
44066 @ 382975:                        ASSPAR
44067 @ 382976:                        CALL  

  7641    atom = next atom %if matched # 0
44068 @ 382977:                        LINE   7641 "regression-compile-tmp/imp22g-77.imp"
44069 @ 383017:                        PUSH   MATCHED
44070 @ 383020:                        PUSHI  #0x00000000
44071 @ 383025:                        JUMPIF = L_0004
44072 @ 383029:                        PUSH   ATOM
44073 @ 383032:                        PUSH   NEXTATOM
44074 @ 383035:                        CALL  
44075 @ 383036:                        ASSVAL
44076 @ 383037:                        LOCATE L_0004

  7642    %if decl_flags < 0 %start
44077 @ 383040:                        LINE   7642 "regression-compile-tmp/imp22g-77.imp"
44078 @ 383080:                        PUSH   DECL
44079 @ 383083:                        SELECT 1
44080 @ 383086:                        PUSHI  #0x00000000
44081 @ 383091:                        JUMPIF >= L_0004

  7643      %if depth > 0 %and ktype <= atom <= keyinteger %start;  !variable
44082 @ 383095:                        LINE   7643 "regression-compile-tmp/imp22g-77.imp"
44083 @ 383135:                        PUSH   DEPTH
44084 @ 383138:                        PUSHI  #0x00000000
44085 @ 383143:                        JUMPIF <= L_0007
44086 @ 383147:                        PUSHI  #0x0000001b
44087 @ 383152:                        PUSH   ATOM
44088 @ 383155:                        JUMPIFD > L_0007
44089 @ 383159:                        PUSHI  #0x0000001c
44090 @ 383164:                        JUMPIF > L_0007

  7644        %if r = 0 %start
44091 @ 383168:                        LINE   7644 "regression-compile-tmp/imp22g-77.imp"
44092 @ 383208:                        PUSH   R
44093 @ 383211:                        PUSHI  #0x00000000
44094 @ 383216:                        JUMPIF # L_000a

  7645          r = xtype;  declare bound(litmode,loval)
44095 @ 383220:                        LINE   7645 "regression-compile-tmp/imp22g-77.imp"
44096 @ 383260:                        PUSH   R
44097 @ 383263:                        PUSH   XTYPE
44098 @ 383266:                        CALL  
44099 @ 383267:                        ASSVAL
44100 @ 383268:                        LINE   7645 "regression-compile-tmp/imp22g-77.imp"
44101 @ 383308:                        PUSH   DECLAREBOUND
44102 @ 383311:                        PUSHI  #0x0000003c
44103 @ 383316:                        ASSPAR
44104 @ 383317:                        PUSH   LOVAL
44105 @ 383320:                        ASSPAR
44106 @ 383321:                        CALL  

  7646        %finish
44107 @ 383322:                        LINE   7646 "regression-compile-tmp/imp22g-77.imp"
44108 @ 383362:                        LOCATE L_000a

  7647        get VAR BOUND
44109 @ 383365:                        LINE   7647 "regression-compile-tmp/imp22g-77.imp"
44110 @ 383405:                        PUSH   GETVARBOUND
44111 @ 383408:                        CALL  

  7648      %else
44112 @ 383409:                        LINE   7648 "regression-compile-tmp/imp22g-77.imp"
44113 @ 383449:                        GOTO   L_0006
44114 @ 383452:                        LOCATE L_0007

  7649        %if dim!r = 0 %and a(star)=TRUE %start
44115 @ 383455:                        LINE   7649 "regression-compile-tmp/imp22g-77.imp"
44116 @ 383495:                        PUSH   DIM
44117 @ 383498:                        PUSH   R
44118 @ 383501:                        OR    
44119 @ 383502:                        PUSHI  #0x00000000
44120 @ 383507:                        JUMPIF # L_000a
44121 @ 383511:                        PUSH   A
44122 @ 383514:                        PUSHI  #0x00000058
44123 @ 383519:                        ASSPAR
44124 @ 383520:                        CALL  
44125 @ 383521:                        PUSHI  #0x00000001
44126 @ 383526:                        JUMPIF # L_000a

  7650          item = 0;  value = maxint
44127 @ 383530:                        LINE   7650 "regression-compile-tmp/imp22g-77.imp"
44128 @ 383570:                        PUSH   ITEM
44129 @ 383573:                        PUSHI  #0x00000000
44130 @ 383578:                        ASSVAL
44131 @ 383579:                        LINE   7650 "regression-compile-tmp/imp22g-77.imp"
44132 @ 383619:                        PUSH   VALUE
44133 @ 383622:                        PUSHI  #0x7fffffff
44134 @ 383627:                        ASSVAL

  7651        %else
44135 @ 383628:                        LINE   7651 "regression-compile-tmp/imp22g-77.imp"
44136 @ 383668:                        GOTO   L_0009
44137 @ 383671:                        LOCATE L_000a

  7652          get LITERAL(inttype)
44138 @ 383674:                        LINE   7652 "regression-compile-tmp/imp22g-77.imp"
44139 @ 383714:                        PUSH   GETLITERAL
44140 @ 383717:                        PUSHI  #0x0000002b
44141 @ 383722:                        ASSPAR
44142 @ 383723:                        CALL  

  7653          declare bound(litmode,value) %if r # 0
44143 @ 383724:                        LINE   7653 "regression-compile-tmp/imp22g-77.imp"
44144 @ 383764:                        PUSH   R
44145 @ 383767:                        PUSHI  #0x00000000
44146 @ 383772:                        JUMPIF = L_000d
44147 @ 383776:                        PUSH   DECLAREBOUND
44148 @ 383779:                        PUSHI  #0x0000003c
44149 @ 383784:                        ASSPAR
44150 @ 383785:                        PUSH   VALUE
44151 @ 383788:                        ASSPAR
44152 @ 383789:                        CALL  
44153 @ 383790:                        LOCATE L_000d

  7654        %finish
44154 @ 383793:                        LINE   7654 "regression-compile-tmp/imp22g-77.imp"
44155 @ 383833:                        LOCATE L_0009

  7655      %finish
44156 @ 383836:                        LINE   7655 "regression-compile-tmp/imp22g-77.imp"
44157 @ 383876:                        LOCATE L_0006

  7656    %else
44158 @ 383879:                        LINE   7656 "regression-compile-tmp/imp22g-77.imp"
44159 @ 383919:                        GOTO   L_0003
44160 @ 383922:                        LOCATE L_0004

  7657      get VALUE(inttype)
44161 @ 383925:                        LINE   7657 "regression-compile-tmp/imp22g-77.imp"
44162 @ 383965:                        PUSH   GETVALUE
44163 @ 383968:                        PUSHI  #0x0000002b
44164 @ 383973:                        ASSPAR
44165 @ 383974:                        CALL  

  7658    %finish
44166 @ 383975:                        LINE   7658 "regression-compile-tmp/imp22g-77.imp"
44167 @ 384015:                        LOCATE L_0003

  7659    hival = value;  hi = item
44168 @ 384018:                        LINE   7659 "regression-compile-tmp/imp22g-77.imp"
44169 @ 384058:                        PUSH   HIVAL
44170 @ 384061:                        PUSH   VALUE
44171 @ 384064:                        ASSVAL
44172 @ 384065:                        LINE   7659 "regression-compile-tmp/imp22g-77.imp"
44173 @ 384105:                        PUSH   HI
44174 @ 384108:                        PUSH   ITEM
44175 @ 384111:                        ASSVAL

  7660    hival = maxint %if hi # 0
44176 @ 384112:                        LINE   7660 "regression-compile-tmp/imp22g-77.imp"
44177 @ 384152:                        PUSH   HI
44178 @ 384155:                        PUSHI  #0x00000000
44179 @ 384160:                        JUMPIF = L_0004
44180 @ 384164:                        PUSH   HIVAL
44181 @ 384167:                        PUSHI  #0x7fffffff
44182 @ 384172:                        ASSVAL
44183 @ 384173:                        LOCATE L_0004

  7661    e = maxint
44184 @ 384176:                        LINE   7661 "regression-compile-tmp/imp22g-77.imp"
44185 @ 384216:                        PUSH   E
44186 @ 384219:                        PUSHI  #0x7fffffff
44187 @ 384224:                        ASSVAL

  7662    %if r = 0 %start;  !no range yet declared
44188 @ 384225:                        LINE   7662 "regression-compile-tmp/imp22g-77.imp"
44189 @ 384265:                        PUSH   R
44190 @ 384268:                        PUSHI  #0x00000000
44191 @ 384273:                        JUMPIF # L_0004

  7663      %if lo!hi = 0 %start
44192 @ 384277:                        LINE   7663 "regression-compile-tmp/imp22g-77.imp"
44193 @ 384317:                        PUSH   LO
44194 @ 384320:                        PUSH   HI
44195 @ 384323:                        OR    
44196 @ 384324:                        PUSHI  #0x00000000
44197 @ 384329:                        JUMPIF # L_0007

  7664        e = hival-loval %if hival!!loval >= 0 %or minint+hival-loval < 0
44198 @ 384333:                        LINE   7664 "regression-compile-tmp/imp22g-77.imp"
44199 @ 384373:                        PUSH   HIVAL
44200 @ 384376:                        PUSH   LOVAL
44201 @ 384379:                        XOR   
44202 @ 384380:                        PUSHI  #0x00000000
44203 @ 384385:                        JUMPIF >= L_000b
44204 @ 384389:                        PUSHI  #0x80000000
44205 @ 384394:                        PUSH   HIVAL
44206 @ 384397:                        ADD   
44207 @ 384398:                        PUSH   LOVAL
44208 @ 384401:                        SUB   
44209 @ 384402:                        PUSHI  #0x00000000
44210 @ 384407:                        JUMPIF >= L_000a
44211 @ 384411:                        LOCATE L_000b
44212 @ 384414:                        PUSH   E
44213 @ 384417:                        PUSH   HIVAL
44214 @ 384420:                        PUSH   LOVAL
44215 @ 384423:                        SUB   
44216 @ 384424:                        ASSVAL
44217 @ 384425:                        LOCATE L_000a

  7665        e = e+1 %if e # maxint
44218 @ 384428:                        LINE   7665 "regression-compile-tmp/imp22g-77.imp"
44219 @ 384468:                        PUSH   E
44220 @ 384471:                        PUSHI  #0x7fffffff
44221 @ 384476:                        JUMPIF = L_000a
44222 @ 384480:                        PUSH   E
44223 @ 384483:                        PUSH   E
44224 @ 384486:                        PUSHI  #0x00000001
44225 @ 384491:                        ADD   
44226 @ 384492:                        ASSVAL
44227 @ 384493:                        LOCATE L_000a

  7666        e = 0 %if hival = maxint
44228 @ 384496:                        LINE   7666 "regression-compile-tmp/imp22g-77.imp"
44229 @ 384536:                        PUSH   HIVAL
44230 @ 384539:                        PUSHI  #0x7fffffff
44231 @ 384544:                        JUMPIF # L_000a
44232 @ 384548:                        PUSH   E
44233 @ 384551:                        PUSHI  #0x00000000
44234 @ 384556:                        ASSVAL
44235 @ 384557:                        LOCATE L_000a

  7667        declare lit range(inttype,loval,hival)
44236 @ 384560:                        LINE   7667 "regression-compile-tmp/imp22g-77.imp"
44237 @ 384600:                        PUSH   DECLARELITRANGE
44238 @ 384603:                        PUSHI  #0x0000002b
44239 @ 384608:                        ASSPAR
44240 @ 384609:                        PUSH   LOVAL
44241 @ 384612:                        ASSPAR
44242 @ 384613:                        PUSH   HIVAL
44243 @ 384616:                        ASSPAR
44244 @ 384617:                        CALL  

  7668      %else
44245 @ 384618:                        LINE   7668 "regression-compile-tmp/imp22g-77.imp"
44246 @ 384658:                        GOTO   L_0006
44247 @ 384661:                        LOCATE L_0007

  7669        declare anon(typeident);               !blank (for updating)
44248 @ 384664:                        LINE   7669 "regression-compile-tmp/imp22g-77.imp"
44249 @ 384704:                        PUSH   DECLAREANON
44250 @ 384707:                        PUSH   TYPEIDENT
44251 @ 384710:                        ASSPAR
44252 @ 384711:                        CALL  

  7670        declare range(inttype,loval,hival)
44253 @ 384712:                        LINE   7670 "regression-compile-tmp/imp22g-77.imp"
44254 @ 384752:                        PUSH   DECLARERANGE
44255 @ 384755:                        PUSHI  #0x0000002b
44256 @ 384760:                        ASSPAR
44257 @ 384761:                        PUSH   LOVAL
44258 @ 384764:                        ASSPAR
44259 @ 384765:                        PUSH   HIVAL
44260 @ 384768:                        ASSPAR
44261 @ 384769:                        CALL  

  7671      %finish
44262 @ 384770:                        LINE   7671 "regression-compile-tmp/imp22g-77.imp"
44263 @ 384810:                        LOCATE L_0006

  7672      r = item
44264 @ 384813:                        LINE   7672 "regression-compile-tmp/imp22g-77.imp"
44265 @ 384853:                        PUSH   R
44266 @ 384856:                        PUSH   ITEM
44267 @ 384859:                        ASSVAL

  7673    %finish
44268 @ 384860:                        LINE   7673 "regression-compile-tmp/imp22g-77.imp"
44269 @ 384900:                        LOCATE L_0004

  7674    elements = e
44270 @ 384903:                        LINE   7674 "regression-compile-tmp/imp22g-77.imp"
44271 @ 384943:                        PUSH   ELEMENTS
44272 @ 384946:                        PUSH   E
44273 @ 384949:                        ASSVAL

  7675    %if a(comma)=TRUE %start
44274 @ 384950:                        LINE   7675 "regression-compile-tmp/imp22g-77.imp"
44275 @ 384990:                        PUSH   A
44276 @ 384993:                        PUSHI  #0x0000003c
44277 @ 384998:                        ASSPAR
44278 @ 384999:                        CALL  
44279 @ 385000:                        PUSHI  #0x00000001
44280 @ 385005:                        JUMPIF # L_0004

  7676      dim = dim+1
44281 @ 385009:                        LINE   7676 "regression-compile-tmp/imp22g-77.imp"
44282 @ 385049:                        PUSH   DIM
44283 @ 385052:                        PUSH   DIM
44284 @ 385055:                        PUSHI  #0x00000001
44285 @ 385060:                        ADD   
44286 @ 385061:                        ASSVAL

  7677      get REST
44287 @ 385062:                        LINE   7677 "regression-compile-tmp/imp22g-77.imp"
44288 @ 385102:                        PUSH   GETREST
44289 @ 385105:                        CALL  

  7678      %if elements # maxint %and e # maxint %start
44290 @ 385106:                        LINE   7678 "regression-compile-tmp/imp22g-77.imp"
44291 @ 385146:                        PUSH   ELEMENTS
44292 @ 385149:                        PUSHI  #0x7fffffff
44293 @ 385154:                        JUMPIF = L_0007
44294 @ 385158:                        PUSH   E
44295 @ 385161:                        PUSHI  #0x7fffffff
44296 @ 385166:                        JUMPIF = L_0007

  7679        elements = elements*e
44297 @ 385170:                        LINE   7679 "regression-compile-tmp/imp22g-77.imp"
44298 @ 385210:                        PUSH   ELEMENTS
44299 @ 385213:                        PUSH   ELEMENTS
44300 @ 385216:                        PUSH   E
44301 @ 385219:                        MUL   
44302 @ 385220:                        ASSVAL

  7680      %else
44303 @ 385221:                        LINE   7680 "regression-compile-tmp/imp22g-77.imp"
44304 @ 385261:                        GOTO   L_0006
44305 @ 385264:                        LOCATE L_0007

  7681        elements = maxint
44306 @ 385267:                        LINE   7681 "regression-compile-tmp/imp22g-77.imp"
44307 @ 385307:                        PUSH   ELEMENTS
44308 @ 385310:                        PUSHI  #0x7fffffff
44309 @ 385315:                        ASSVAL

  7682      %finish
44310 @ 385316:                        LINE   7682 "regression-compile-tmp/imp22g-77.imp"
44311 @ 385356:                        LOCATE L_0006

  7683    %finish
44312 @ 385359:                        LINE   7683 "regression-compile-tmp/imp22g-77.imp"
44313 @ 385399:                        LOCATE L_0004

  7684    atype_xtype = r
44314 @ 385402:                        LINE   7684 "regression-compile-tmp/imp22g-77.imp"
44315 @ 385442:                        PUSH   ATYPE
44316 @ 385445:                        SELECT 4
44317 @ 385448:                        PUSH   R
44318 @ 385451:                        ASSVAL

  7685    size1 = totsize;  lo1 = loval;       !for outer dimension
44319 @ 385452:                        LINE   7685 "regression-compile-tmp/imp22g-77.imp"
44320 @ 385492:                        PUSH   SIZE1
44321 @ 385495:                        PUSH   TOTSIZE
44322 @ 385498:                        ASSVAL
44323 @ 385499:                        LINE   7685 "regression-compile-tmp/imp22g-77.imp"
44324 @ 385539:                        PUSH   LO1
44325 @ 385542:                        PUSH   LOVAL
44326 @ 385545:                        ASSVAL

  7686    string star array %if atype_type = stringstar
44327 @ 385546:                        LINE   7686 "regression-compile-tmp/imp22g-77.imp"
44328 @ 385586:                        PUSH   ATYPE
44329 @ 385589:                        SELECT 2
44330 @ 385592:                        PUSHI  #0x0000003e
44331 @ 385597:                        JUMPIF # L_0004
44332 @ 385601:                        PUSH   STRINGSTARARRAY
44333 @ 385604:                        CALL  
44334 @ 385605:                        LOCATE L_0004

  7687    %if elements = maxint %start;             !non-literal bounds
44335 @ 385608:                        LINE   7687 "regression-compile-tmp/imp22g-77.imp"
44336 @ 385648:                        PUSH   ELEMENTS
44337 @ 385651:                        PUSHI  #0x7fffffff
44338 @ 385656:                        JUMPIF # L_0004

  7688      atype_mode = mode
44339 @ 385660:                        LINE   7688 "regression-compile-tmp/imp22g-77.imp"
44340 @ 385700:                        PUSH   ATYPE
44341 @ 385703:                        SELECT 8
44342 @ 385706:                        PUSH   MODE
44343 @ 385709:                        ASSVAL

  7689      declare anon(atype)
44344 @ 385710:                        LINE   7689 "regression-compile-tmp/imp22g-77.imp"
44345 @ 385750:                        PUSH   DECLAREANON
44346 @ 385753:                        PUSH   ATYPE
44347 @ 385756:                        ASSPAR
44348 @ 385757:                        CALL  

  7690      atype_type = item;          !save type id
44349 @ 385758:                        LINE   7690 "regression-compile-tmp/imp22g-77.imp"
44350 @ 385798:                        PUSH   ATYPE
44351 @ 385801:                        SELECT 2
44352 @ 385804:                        PUSH   ITEM
44353 @ 385807:                        ASSVAL

  7691      %if decl_flags >= 0 %or (depth = 1 %and speccing = 0) %start
44354 @ 385808:                        LINE   7691 "regression-compile-tmp/imp22g-77.imp"
44355 @ 385848:                        PUSH   DECL
44356 @ 385851:                        SELECT 1
44357 @ 385854:                        PUSHI  #0x00000000
44358 @ 385859:                        JUMPIF >= L_0008
44359 @ 385863:                        PUSH   DEPTH
44360 @ 385866:                        PUSHI  #0x00000001
44361 @ 385871:                        JUMPIF # L_0007
44362 @ 385875:                        PUSH   SPECCING
44363 @ 385878:                        PUSHI  #0x00000000
44364 @ 385883:                        JUMPIF # L_0007
44365 @ 385887:                        LOCATE L_0008

  7692        lo = litref(loval) %if lo = 0
44366 @ 385890:                        LINE   7692 "regression-compile-tmp/imp22g-77.imp"
44367 @ 385930:                        PUSH   LO
44368 @ 385933:                        PUSHI  #0x00000000
44369 @ 385938:                        JUMPIF # L_000a
44370 @ 385942:                        PUSH   LO
44371 @ 385945:                        PUSH   LITREF
44372 @ 385948:                        PUSH   LOVAL
44373 @ 385951:                        ASSPAR
44374 @ 385952:                        CALL  
44375 @ 385953:                        ASSVAL
44376 @ 385954:                        LOCATE L_000a

  7693        hi = litref(hival) %if hi = 0
44377 @ 385957:                        LINE   7693 "regression-compile-tmp/imp22g-77.imp"
44378 @ 385997:                        PUSH   HI
44379 @ 386000:                        PUSHI  #0x00000000
44380 @ 386005:                        JUMPIF # L_000a
44381 @ 386009:                        PUSH   HI
44382 @ 386012:                        PUSH   LITREF
44383 @ 386015:                        PUSH   HIVAL
44384 @ 386018:                        ASSPAR
44385 @ 386019:                        CALL  
44386 @ 386020:                        ASSVAL
44387 @ 386021:                        LOCATE L_000a

  7694        tot = litref(totsize) %if tot = 0
44388 @ 386024:                        LINE   7694 "regression-compile-tmp/imp22g-77.imp"
44389 @ 386064:                        PUSH   TOT
44390 @ 386067:                        PUSHI  #0x00000000
44391 @ 386072:                        JUMPIF # L_000a
44392 @ 386076:                        PUSH   TOT
44393 @ 386079:                        PUSH   LITREF
44394 @ 386082:                        PUSH   TOTSIZE
44395 @ 386085:                        ASSPAR
44396 @ 386086:                        CALL  
44397 @ 386087:                        ASSVAL
44398 @ 386088:                        LOCATE L_000a

  7695        putact(asize,item,tot)
44399 @ 386091:                        LINE   7695 "regression-compile-tmp/imp22g-77.imp"
44400 @ 386131:                        PUSH   PUTACT
44401 @ 386134:                        PUSHI  #0x00000069
44402 @ 386139:                        ASSPAR
44403 @ 386140:                        PUSH   ITEM
44404 @ 386143:                        ASSPAR
44405 @ 386144:                        PUSH   TOT
44406 @ 386147:                        ASSPAR
44407 @ 386148:                        CALL  

  7696        putact(0,lo,hi)
44408 @ 386149:                        LINE   7696 "regression-compile-tmp/imp22g-77.imp"
44409 @ 386189:                        PUSH   PUTACT
44410 @ 386192:                        PUSHI  #0x00000000
44411 @ 386197:                        ASSPAR
44412 @ 386198:                        PUSH   LO
44413 @ 386201:                        ASSPAR
44414 @ 386202:                        PUSH   HI
44415 @ 386205:                        ASSPAR
44416 @ 386206:                        CALL  

  7697        %if decl_flags >= 0  %start
44417 @ 386207:                        LINE   7697 "regression-compile-tmp/imp22g-77.imp"
44418 @ 386247:                        PUSH   DECL
44419 @ 386250:                        SELECT 1
44420 @ 386253:                        PUSHI  #0x00000000
44421 @ 386258:                        JUMPIF < L_000a

  7698          compile(np0)
44422 @ 386262:                        LINE   7698 "regression-compile-tmp/imp22g-77.imp"
44423 @ 386302:                        PUSH   COMPILE
44424 @ 386305:                        PUSH   NP0
44425 @ 386308:                        ASSPAR
44426 @ 386309:                        CALL  

  7699          dict(r+1)_mode = c_mode %and dict(r+1)_val = c_sp+4 %if lo > 0
44427 @ 386310:                        LINE   7699 "regression-compile-tmp/imp22g-77.imp"
44428 @ 386350:                        PUSH   LO
44429 @ 386353:                        PUSHI  #0x00000000
44430 @ 386358:                        JUMPIF <= L_000d
44431 @ 386362:                        PUSH   DICT
44432 @ 386365:                        PUSH   R
44433 @ 386368:                        PUSHI  #0x00000001
44434 @ 386373:                        ADD   
44435 @ 386374:                        ACCESS
44436 @ 386375:                        SELECT 8
44437 @ 386378:                        PUSH   C
44438 @ 386381:                        SELECT 27
44439 @ 386384:                        ASSVAL
44440 @ 386385:                        PUSH   DICT
44441 @ 386388:                        PUSH   R
44442 @ 386391:                        PUSHI  #0x00000001
44443 @ 386396:                        ADD   
44444 @ 386397:                        ACCESS
44445 @ 386398:                        SELECT 9
44446 @ 386401:                        PUSH   C
44447 @ 386404:                        SELECT 1
44448 @ 386407:                        PUSHI  #0x00000004
44449 @ 386412:                        ADD   
44450 @ 386413:                        ASSVAL
44451 @ 386414:                        LOCATE L_000d

  7700          dict(r+2)_mode = c_mode %and dict(r+2)_val = c_sp %if hi > 0
44452 @ 386417:                        LINE   7700 "regression-compile-tmp/imp22g-77.imp"
44453 @ 386457:                        PUSH   HI
44454 @ 386460:                        PUSHI  #0x00000000
44455 @ 386465:                        JUMPIF <= L_000d
44456 @ 386469:                        PUSH   DICT
44457 @ 386472:                        PUSH   R
44458 @ 386475:                        PUSHI  #0x00000002
44459 @ 386480:                        ADD   
44460 @ 386481:                        ACCESS
44461 @ 386482:                        SELECT 8
44462 @ 386485:                        PUSH   C
44463 @ 386488:                        SELECT 27
44464 @ 386491:                        ASSVAL
44465 @ 386492:                        PUSH   DICT
44466 @ 386495:                        PUSH   R
44467 @ 386498:                        PUSHI  #0x00000002
44468 @ 386503:                        ADD   
44469 @ 386504:                        ACCESS
44470 @ 386505:                        SELECT 9
44471 @ 386508:                        PUSH   C
44472 @ 386511:                        SELECT 1
44473 @ 386514:                        ASSVAL
44474 @ 386515:                        LOCATE L_000d

  7701        %finish
44475 @ 386518:                        LINE   7701 "regression-compile-tmp/imp22g-77.imp"
44476 @ 386558:                        LOCATE L_000a

  7702      %finish
44477 @ 386561:                        LINE   7702 "regression-compile-tmp/imp22g-77.imp"
44478 @ 386601:                        LOCATE L_0007

  7703      tot = 0;  totsize = 0
44479 @ 386604:                        LINE   7703 "regression-compile-tmp/imp22g-77.imp"
44480 @ 386644:                        PUSH   TOT
44481 @ 386647:                        PUSHI  #0x00000000
44482 @ 386652:                        ASSVAL
44483 @ 386653:                        LINE   7703 "regression-compile-tmp/imp22g-77.imp"
44484 @ 386693:                        PUSH   TOTSIZE
44485 @ 386696:                        PUSHI  #0x00000000
44486 @ 386701:                        ASSVAL

  7704    %else;  !literal bounds
44487 @ 386702:                        LINE   7704 "regression-compile-tmp/imp22g-77.imp"
44488 @ 386742:                        GOTO   L_0003
44489 @ 386745:                        LOCATE L_0004

  7705      item = 0
44490 @ 386748:                        LINE   7705 "regression-compile-tmp/imp22g-77.imp"
44491 @ 386788:                        PUSH   ITEM
44492 @ 386791:                        PUSHI  #0x00000000
44493 @ 386796:                        ASSVAL

  7706      %cycle
44494 @ 386797:                        LINE   7706 "regression-compile-tmp/imp22g-77.imp"
44495 @ 386837:                        LOCATE L_0006

  7707        ditem == dict(item)
44496 @ 386840:                        LINE   7707 "regression-compile-tmp/imp22g-77.imp"
44497 @ 386880:                        PUSH   DITEM
44498 @ 386883:                        PUSH   DICT
44499 @ 386886:                        PUSH   ITEM
44500 @ 386889:                        ACCESS
44501 @ 386890:                        ASSREF

  7708        %exit %if ditem_type = atype_type %and ditem_xtype = atype_xtype %c
  7709              %and ditem_flags = atype_flags
44502 @ 386891:                        LINE   7708 "regression-compile-tmp/imp22g-77.imp"
44503 @ 386931:                        PUSH   DITEM
44504 @ 386934:                        SELECT 2
44505 @ 386937:                        PUSH   ATYPE
44506 @ 386940:                        SELECT 2
44507 @ 386943:                        JUMPIF # L_000a
44508 @ 386947:                        PUSH   DITEM
44509 @ 386950:                        SELECT 4
44510 @ 386953:                        PUSH   ATYPE
44511 @ 386956:                        SELECT 4
44512 @ 386959:                        JUMPIF # L_000a
44513 @ 386963:                        PUSH   DITEM
44514 @ 386966:                        SELECT 1
44515 @ 386969:                        PUSH   ATYPE
44516 @ 386972:                        SELECT 1
44517 @ 386975:                        JUMPIF # L_000a
44518 @ 386979:                        GOTO   L_0007
44519 @ 386982:                        LOCATE L_000a

  7710        item = item+1
44520 @ 386985:                        LINE   7710 "regression-compile-tmp/imp22g-77.imp"
44521 @ 387025:                        PUSH   ITEM
44522 @ 387028:                        PUSH   ITEM
44523 @ 387031:                        PUSHI  #0x00000001
44524 @ 387036:                        ADD   
44525 @ 387037:                        ASSVAL

  7711        %if item = dlim %start
44526 @ 387038:                        LINE   7711 "regression-compile-tmp/imp22g-77.imp"
44527 @ 387078:                        PUSH   ITEM
44528 @ 387081:                        PUSH   DLIM
44529 @ 387084:                        JUMPIF # L_000a

  7712          declare anon(atype)
44530 @ 387088:                        LINE   7712 "regression-compile-tmp/imp22g-77.imp"
44531 @ 387128:                        PUSH   DECLAREANON
44532 @ 387131:                        PUSH   ATYPE
44533 @ 387134:                        ASSPAR
44534 @ 387135:                        CALL  

  7713          %exit
44535 @ 387136:                        LINE   7713 "regression-compile-tmp/imp22g-77.imp"
44536 @ 387176:                        GOTO   L_0007

  7714        %finish
44537 @ 387179:                        LINE   7714 "regression-compile-tmp/imp22g-77.imp"
44538 @ 387219:                        LOCATE L_000a

  7715      %repeat
44539 @ 387222:                        LINE   7715 "regression-compile-tmp/imp22g-77.imp"
44540 @ 387262:                        REPEAT L_0006
44541 @ 387265:                        LOCATE L_0007

  7716      atype_type = item
44542 @ 387268:                        LINE   7716 "regression-compile-tmp/imp22g-77.imp"
44543 @ 387308:                        PUSH   ATYPE
44544 @ 387311:                        SELECT 2
44545 @ 387314:                        PUSH   ITEM
44546 @ 387317:                        ASSVAL

  7717      totsize = totsize*e
44547 @ 387318:                        LINE   7717 "regression-compile-tmp/imp22g-77.imp"
44548 @ 387358:                        PUSH   TOTSIZE
44549 @ 387361:                        PUSH   TOTSIZE
44550 @ 387364:                        PUSH   E
44551 @ 387367:                        MUL   
44552 @ 387368:                        ASSVAL

  7718    %finish
44553 @ 387369:                        LINE   7718 "regression-compile-tmp/imp22g-77.imp"
44554 @ 387409:                        LOCATE L_0003

  7719  %end;  !get REST
  7720  
44555 @ 387412:                        LINE   7719 "regression-compile-tmp/imp22g-77.imp"
44556 @ 387452:                     END    _lev0id0_GETSTATEMENTS_GETDECLARATION_GETARRAYDECLARATION_GETREST {lev=5 --> 4}

  7721  %routine PUT BOUNDS
44557 @ 387453:                     LINE   7721 "regression-compile-tmp/imp22g-77.imp"
44558 @ 387493:                     DEF    PUTBOUNDS (_lev0id0_GETSTATEMENTS_GETDECLARATION_GETARRAYDECLARATION_PUTBOUNDS) p1=V_01bb 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
44559 @ 387514:                        START  ( FORMAL PARAMETERS  {lev=5 --> 6, nested=0 --> 1}
44560 @ 387515:                        FINISH ) {lev=5}

  7722  %integer i
44561 @ 387516:                        LINE   7722 "regression-compile-tmp/imp22g-77.imp"
44562 @ 387556:                        DEF    I p1=V_01bc a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  7723    i = xtype;                         !index type
44563 @ 387569:                        LINE   7723 "regression-compile-tmp/imp22g-77.imp"
44564 @ 387609:                        PUSH   I
44565 @ 387612:                        PUSH   XTYPE
44566 @ 387615:                        CALL  
44567 @ 387616:                        ASSVAL

  7724    declare bound(mode,0);             !lower
44568 @ 387617:                        LINE   7724 "regression-compile-tmp/imp22g-77.imp"
44569 @ 387657:                        PUSH   DECLAREBOUND
44570 @ 387660:                        PUSH   MODE
44571 @ 387663:                        ASSPAR
44572 @ 387664:                        PUSHI  #0x00000000
44573 @ 387669:                        ASSPAR
44574 @ 387670:                        CALL  

  7725    declare bound(mode,0);             !upper
44575 @ 387671:                        LINE   7725 "regression-compile-tmp/imp22g-77.imp"
44576 @ 387711:                        PUSH   DECLAREBOUND
44577 @ 387714:                        PUSH   MODE
44578 @ 387717:                        ASSPAR
44579 @ 387718:                        PUSHI  #0x00000000
44580 @ 387723:                        ASSPAR
44581 @ 387724:                        CALL  

  7726    dim = dim-1
44582 @ 387725:                        LINE   7726 "regression-compile-tmp/imp22g-77.imp"
44583 @ 387765:                        PUSH   DIM
44584 @ 387768:                        PUSH   DIM
44585 @ 387771:                        PUSHI  #0x00000001
44586 @ 387776:                        SUB   
44587 @ 387777:                        ASSVAL

  7727    put bounds %if dim > 0
44588 @ 387778:                        LINE   7727 "regression-compile-tmp/imp22g-77.imp"
44589 @ 387818:                        PUSH   DIM
44590 @ 387821:                        PUSHI  #0x00000000
44591 @ 387826:                        JUMPIF <= L_0004
44592 @ 387830:                        PUSH   PUTBOUNDS
44593 @ 387833:                        CALL  
44594 @ 387834:                        LOCATE L_0004

  7728    string star array %if atype_type = stringstar
44595 @ 387837:                        LINE   7728 "regression-compile-tmp/imp22g-77.imp"
44596 @ 387877:                        PUSH   ATYPE
44597 @ 387880:                        SELECT 2
44598 @ 387883:                        PUSHI  #0x0000003e
44599 @ 387888:                        JUMPIF # L_0004
44600 @ 387892:                        PUSH   STRINGSTARARRAY
44601 @ 387895:                        CALL  
44602 @ 387896:                        LOCATE L_0004

  7729    atype_xtype = i
44603 @ 387899:                        LINE   7729 "regression-compile-tmp/imp22g-77.imp"
44604 @ 387939:                        PUSH   ATYPE
44605 @ 387942:                        SELECT 4
44606 @ 387945:                        PUSH   I
44607 @ 387948:                        ASSVAL

  7730    declare anon(atype);                  !array type
44608 @ 387949:                        LINE   7730 "regression-compile-tmp/imp22g-77.imp"
44609 @ 387989:                        PUSH   DECLAREANON
44610 @ 387992:                        PUSH   ATYPE
44611 @ 387995:                        ASSPAR
44612 @ 387996:                        CALL  

  7731    %if speccing = 0 %start
44613 @ 387997:                        LINE   7731 "regression-compile-tmp/imp22g-77.imp"
44614 @ 388037:                        PUSH   SPECCING
44615 @ 388040:                        PUSHI  #0x00000000
44616 @ 388045:                        JUMPIF # L_0004

  7732      tot = litref(totsize) %if tot = 0
44617 @ 388049:                        LINE   7732 "regression-compile-tmp/imp22g-77.imp"
44618 @ 388089:                        PUSH   TOT
44619 @ 388092:                        PUSHI  #0x00000000
44620 @ 388097:                        JUMPIF # L_0007
44621 @ 388101:                        PUSH   TOT
44622 @ 388104:                        PUSH   LITREF
44623 @ 388107:                        PUSH   TOTSIZE
44624 @ 388110:                        ASSPAR
44625 @ 388111:                        CALL  
44626 @ 388112:                        ASSVAL
44627 @ 388113:                        LOCATE L_0007

  7733      putact(asize,item,tot)
44628 @ 388116:                        LINE   7733 "regression-compile-tmp/imp22g-77.imp"
44629 @ 388156:                        PUSH   PUTACT
44630 @ 388159:                        PUSHI  #0x00000069
44631 @ 388164:                        ASSPAR
44632 @ 388165:                        PUSH   ITEM
44633 @ 388168:                        ASSPAR
44634 @ 388169:                        PUSH   TOT
44635 @ 388172:                        ASSPAR
44636 @ 388173:                        CALL  

  7734      putact(0,i+1,i+2)
44637 @ 388174:                        LINE   7734 "regression-compile-tmp/imp22g-77.imp"
44638 @ 388214:                        PUSH   PUTACT
44639 @ 388217:                        PUSHI  #0x00000000
44640 @ 388222:                        ASSPAR
44641 @ 388223:                        PUSH   I
44642 @ 388226:                        PUSHI  #0x00000001
44643 @ 388231:                        ADD   
44644 @ 388232:                        ASSPAR
44645 @ 388233:                        PUSH   I
44646 @ 388236:                        PUSHI  #0x00000002
44647 @ 388241:                        ADD   
44648 @ 388242:                        ASSPAR
44649 @ 388243:                        CALL  

  7735    %finish
44650 @ 388244:                        LINE   7735 "regression-compile-tmp/imp22g-77.imp"
44651 @ 388284:                        LOCATE L_0004

  7736    tot = 0;  totsize = 0;  lo1 = minint
44652 @ 388287:                        LINE   7736 "regression-compile-tmp/imp22g-77.imp"
44653 @ 388327:                        PUSH   TOT
44654 @ 388330:                        PUSHI  #0x00000000
44655 @ 388335:                        ASSVAL
44656 @ 388336:                        LINE   7736 "regression-compile-tmp/imp22g-77.imp"
44657 @ 388376:                        PUSH   TOTSIZE
44658 @ 388379:                        PUSHI  #0x00000000
44659 @ 388384:                        ASSVAL
44660 @ 388385:                        LINE   7736 "regression-compile-tmp/imp22g-77.imp"
44661 @ 388425:                        PUSH   LO1
44662 @ 388428:                        PUSHI  #0x80000000
44663 @ 388433:                        ASSVAL

  7737    atype_type = item
44664 @ 388434:                        LINE   7737 "regression-compile-tmp/imp22g-77.imp"
44665 @ 388474:                        PUSH   ATYPE
44666 @ 388477:                        SELECT 2
44667 @ 388480:                        PUSH   ITEM
44668 @ 388483:                        ASSVAL

  7738  %end
  7739  
44669 @ 388484:                        LINE   7738 "regression-compile-tmp/imp22g-77.imp"
44670 @ 388524:                     END    _lev0id0_GETSTATEMENTS_GETDECLARATION_GETARRAYDECLARATION_PUTBOUNDS {lev=5 --> 4}

  7740    pos = dlim0;  dlim1 = dlim;  dp == ditem
44671 @ 388525:                     LINE   7740 "regression-compile-tmp/imp22g-77.imp"
44672 @ 388565:                     PUSH   POS
44673 @ 388568:                     PUSH   DLIM0
44674 @ 388571:                     ASSVAL
44675 @ 388572:                     LINE   7740 "regression-compile-tmp/imp22g-77.imp"
44676 @ 388612:                     PUSH   DLIM1
44677 @ 388615:                     PUSH   DLIM
44678 @ 388618:                     ASSVAL
44679 @ 388619:                     LINE   7740 "regression-compile-tmp/imp22g-77.imp"
44680 @ 388659:                     PUSH   DP
44681 @ 388662:                     PUSH   DITEM
44682 @ 388665:                     ASSREF

  7741    atype_flags = typeid+arry+okflag;  atype_type = itemtype
44683 @ 388666:                     LINE   7741 "regression-compile-tmp/imp22g-77.imp"
44684 @ 388706:                     PUSH   ATYPE
44685 @ 388709:                     SELECT 1
44686 @ 388712:                     PUSHI  #0x00000200
44687 @ 388717:                     PUSHI  #0x00000009
44688 @ 388722:                     ADD   
44689 @ 388723:                     PUSHI  #0x00000040
44690 @ 388728:                     ADD   
44691 @ 388729:                     ASSVAL
44692 @ 388730:                     LINE   7741 "regression-compile-tmp/imp22g-77.imp"
44693 @ 388770:                     PUSH   ATYPE
44694 @ 388773:                     SELECT 2
44695 @ 388776:                     PUSH   ITEMTYPE
44696 @ 388779:                     ASSVAL

  7742    %if atype_type < 0 %start;  !element %name
44697 @ 388780:                     LINE   7742 "regression-compile-tmp/imp22g-77.imp"
44698 @ 388820:                     PUSH   ATYPE
44699 @ 388823:                     SELECT 2
44700 @ 388826:                     PUSHI  #0x00000000
44701 @ 388831:                     JUMPIF >= L_0004

  7743      atype_flags = atype_flags+name;  atype_type = atype_type-name
44702 @ 388835:                     LINE   7743 "regression-compile-tmp/imp22g-77.imp"
44703 @ 388875:                     PUSH   ATYPE
44704 @ 388878:                     SELECT 1
44705 @ 388881:                     PUSH   ATYPE
44706 @ 388884:                     SELECT 1
44707 @ 388887:                     PUSHI  #0xffff8000
44708 @ 388892:                     ADD   
44709 @ 388893:                     ASSVAL
44710 @ 388894:                     LINE   7743 "regression-compile-tmp/imp22g-77.imp"
44711 @ 388934:                     PUSH   ATYPE
44712 @ 388937:                     SELECT 2
44713 @ 388940:                     PUSH   ATYPE
44714 @ 388943:                     SELECT 2
44715 @ 388946:                     PUSHI  #0xffff8000
44716 @ 388951:                     SUB   
44717 @ 388952:                     ASSVAL

  7744    %finish
44718 @ 388953:                     LINE   7744 "regression-compile-tmp/imp22g-77.imp"
44719 @ 388993:                     LOCATE L_0004

  7745    atype_mode = constmode;   !by default (literal bounds)
44720 @ 388996:                     LINE   7745 "regression-compile-tmp/imp22g-77.imp"
44721 @ 389036:                     PUSH   ATYPE
44722 @ 389039:                     SELECT 8
44723 @ 389042:                     PUSHI  #0x0000007a
44724 @ 389047:                     ASSVAL

  7746    tot = 0;  totsize = imod(itemsize)
44725 @ 389048:                     LINE   7746 "regression-compile-tmp/imp22g-77.imp"
44726 @ 389088:                     PUSH   TOT
44727 @ 389091:                     PUSHI  #0x00000000
44728 @ 389096:                     ASSVAL
44729 @ 389097:                     LINE   7746 "regression-compile-tmp/imp22g-77.imp"
44730 @ 389137:                     PUSH   TOTSIZE
44731 @ 389140:                     PUSH   IMOD
44732 @ 389143:                     PUSH   ITEMSIZE
44733 @ 389146:                     ASSPAR
44734 @ 389147:                     CALL  
44735 @ 389148:                     ASSVAL

  7747    %if dim > 0 %start;  !%array(n)%name
44736 @ 389149:                     LINE   7747 "regression-compile-tmp/imp22g-77.imp"
44737 @ 389189:                     PUSH   DIM
44738 @ 389192:                     PUSHI  #0x00000000
44739 @ 389197:                     JUMPIF <= L_0004

  7748      atype_mode = mode
44740 @ 389201:                     LINE   7748 "regression-compile-tmp/imp22g-77.imp"
44741 @ 389241:                     PUSH   ATYPE
44742 @ 389244:                     SELECT 8
44743 @ 389247:                     PUSH   MODE
44744 @ 389250:                     ASSVAL

  7749      put bounds
44745 @ 389251:                     LINE   7749 "regression-compile-tmp/imp22g-77.imp"
44746 @ 389291:                     PUSH   PUTBOUNDS
44747 @ 389294:                     CALL  

  7750      elements = maxint
44748 @ 389295:                     LINE   7750 "regression-compile-tmp/imp22g-77.imp"
44749 @ 389335:                     PUSH   ELEMENTS
44750 @ 389338:                     PUSHI  #0x7fffffff
44751 @ 389343:                     ASSVAL

  7751    %else;  !left parenthesis recognised
44752 @ 389344:                     LINE   7751 "regression-compile-tmp/imp22g-77.imp"
44753 @ 389384:                     GOTO   L_0003
44754 @ 389387:                     LOCATE L_0004

  7752      get REST
44755 @ 389390:                     LINE   7752 "regression-compile-tmp/imp22g-77.imp"
44756 @ 389430:                     PUSH   GETREST
44757 @ 389433:                     CALL  

  7753      get(right)
44758 @ 389434:                     LINE   7753 "regression-compile-tmp/imp22g-77.imp"
44759 @ 389474:                     PUSH   GET
44760 @ 389477:                     PUSHI  #0x0000003d
44761 @ 389482:                     ASSPAR
44762 @ 389483:                     CALL  

  7754    %finish
44763 @ 389484:                     LINE   7754 "regression-compile-tmp/imp22g-77.imp"
44764 @ 389524:                     LOCATE L_0003

  7755    dp_type = atype_type
44765 @ 389527:                     LINE   7755 "regression-compile-tmp/imp22g-77.imp"
44766 @ 389567:                     PUSH   DP
44767 @ 389570:                     SELECT 2
44768 @ 389573:                     PUSH   ATYPE
44769 @ 389576:                     SELECT 2
44770 @ 389579:                     ASSVAL

  7756    %if mode # constmode %and mode # ownmode %start
44771 @ 389580:                     LINE   7756 "regression-compile-tmp/imp22g-77.imp"
44772 @ 389620:                     PUSH   MODE
44773 @ 389623:                     PUSHI  #0x0000007a
44774 @ 389628:                     JUMPIF = L_0004
44775 @ 389632:                     PUSH   MODE
44776 @ 389635:                     PUSHI  #0x0000006c
44777 @ 389640:                     JUMPIF = L_0004

  7757      holdval = d0
44778 @ 389644:                     LINE   7757 "regression-compile-tmp/imp22g-77.imp"
44779 @ 389684:                     PUSH   HOLDVAL
44780 @ 389687:                     PUSHI  #0x00000001
44781 @ 389692:                     ASSVAL

  7758      %while pos # dlim1 %cycle
44782 @ 389693:                     LINE   7758 "regression-compile-tmp/imp22g-77.imp"
44783 @ 389733:                     LOCATE L_0006
44784 @ 389736:                     PUSH   POS
44785 @ 389739:                     PUSH   DLIM1
44786 @ 389742:                     JUMPIF = L_0007

  7759        dp == dict(pos)
44787 @ 389746:                     LINE   7759 "regression-compile-tmp/imp22g-77.imp"
44788 @ 389786:                     PUSH   DP
44789 @ 389789:                     PUSH   DICT
44790 @ 389792:                     PUSH   POS
44791 @ 389795:                     ACCESS
44792 @ 389796:                     ASSREF

  7760        dp_type = atype_type
44793 @ 389797:                     LINE   7760 "regression-compile-tmp/imp22g-77.imp"
44794 @ 389837:                     PUSH   DP
44795 @ 389840:                     SELECT 2
44796 @ 389843:                     PUSH   ATYPE
44797 @ 389846:                     SELECT 2
44798 @ 389849:                     ASSVAL

  7761        %if mode >= framemode %start
44799 @ 389850:                     LINE   7761 "regression-compile-tmp/imp22g-77.imp"
44800 @ 389890:                     PUSH   MODE
44801 @ 389893:                     PUSHI  #0x000000a8
44802 @ 389898:                     JUMPIF < L_000a

  7762          dp_flags = dp_flags!arrflag %if lo1 = minint %or size1 = 0
44803 @ 389902:                     LINE   7762 "regression-compile-tmp/imp22g-77.imp"
44804 @ 389942:                     PUSH   LO1
44805 @ 389945:                     PUSHI  #0x80000000
44806 @ 389950:                     JUMPIF = L_000e
44807 @ 389954:                     PUSH   SIZE1
44808 @ 389957:                     PUSHI  #0x00000000
44809 @ 389962:                     JUMPIF # L_000d
44810 @ 389966:                     LOCATE L_000e
44811 @ 389969:                     PUSH   DP
44812 @ 389972:                     SELECT 1
44813 @ 389975:                     PUSH   DP
44814 @ 389978:                     SELECT 1
44815 @ 389981:                     PUSHI  #0x00000008
44816 @ 389986:                     OR    
44817 @ 389987:                     ASSVAL
44818 @ 389988:                     LOCATE L_000d

  7763          %if decl_flags >= 0 %start;  !%array not %array%name
44819 @ 389991:                     LINE   7763 "regression-compile-tmp/imp22g-77.imp"
44820 @ 390031:                     PUSH   DECL
44821 @ 390034:                     SELECT 1
44822 @ 390037:                     PUSHI  #0x00000000
44823 @ 390042:                     JUMPIF < L_000d

  7764            %if totsize # 0 {all literal bounds} %c
  7765            %and totsize<<1-c_sp+disp <= 32000 %start
  7766              !if array will occupy less than half remaining reach
  7767              !then allocate directly on stack
44824 @ 390046:                     LINE   7764 "regression-compile-tmp/imp22g-77.imp"
44825 @ 390086:                     PUSH   TOTSIZE
44826 @ 390089:                     PUSHI  #0x00000000
44827 @ 390094:                     JUMPIF = L_0010
44828 @ 390098:                     PUSH   TOTSIZE
44829 @ 390101:                     PUSHI  #0x00000001
44830 @ 390106:                     LSH   
44831 @ 390107:                     PUSH   C
44832 @ 390110:                     SELECT 1
44833 @ 390113:                     SUB   
44834 @ 390114:                     PUSH   DISP
44835 @ 390117:                     ADD   
44836 @ 390118:                     PUSHI  #0x00007d00
44837 @ 390123:                     JUMPIF > L_0010

  7768              disp = disp+totsize
44838 @ 390127:                     LINE   7768 "regression-compile-tmp/imp22g-77.imp"
44839 @ 390167:                     PUSH   DISP
44840 @ 390170:                     PUSH   DISP
44841 @ 390173:                     PUSH   TOTSIZE
44842 @ 390176:                     ADD   
44843 @ 390177:                     ASSVAL

  7769              align(disp,2)
44844 @ 390178:                     LINE   7769 "regression-compile-tmp/imp22g-77.imp"
44845 @ 390218:                     PUSH   ALIGN
44846 @ 390221:                     PUSH   DISP
44847 @ 390224:                     ASSPAR
44848 @ 390225:                     PUSHI  #0x00000002
44849 @ 390230:                     ASSPAR
44850 @ 390231:                     CALL  

  7770            %else
44851 @ 390232:                     LINE   7770 "regression-compile-tmp/imp22g-77.imp"
44852 @ 390272:                     GOTO   L_000f
44853 @ 390275:                     LOCATE L_0010

  7771              fault(ordererr) %if c_mode&2_01000000 # 0; !hard order error
44854 @ 390278:                     LINE   7771 "regression-compile-tmp/imp22g-77.imp"
44855 @ 390318:                     PUSH   C
44856 @ 390321:                     SELECT 27
44857 @ 390324:                     PUSHI  #0x00000040
44858 @ 390329:                     AND   
44859 @ 390330:                     PUSHI  #0x00000000
44860 @ 390335:                     JUMPIF = L_0013
44861 @ 390339:                     PUSH   FAULT
44862 @ 390342:                     PUSHI  #0x00000016
44863 @ 390347:                     ASSPAR
44864 @ 390348:                     CALL  
44865 @ 390349:                     LOCATE L_0013

  7772              %if totsize # 0 %start;  !known bounds but too big
44866 @ 390352:                     LINE   7772 "regression-compile-tmp/imp22g-77.imp"
44867 @ 390392:                     PUSH   TOTSIZE
44868 @ 390395:                     PUSHI  #0x00000000
44869 @ 390400:                     JUMPIF = L_0013

  7773                c_extra = c_extra+totsize
44870 @ 390404:                     LINE   7773 "regression-compile-tmp/imp22g-77.imp"
44871 @ 390444:                     PUSH   C
44872 @ 390447:                     SELECT 3
44873 @ 390450:                     PUSH   C
44874 @ 390453:                     SELECT 3
44875 @ 390456:                     PUSH   TOTSIZE
44876 @ 390459:                     ADD   
44877 @ 390460:                     ASSVAL

  7774                holdval = litref(totsize)
44878 @ 390461:                     LINE   7774 "regression-compile-tmp/imp22g-77.imp"
44879 @ 390501:                     PUSH   HOLDVAL
44880 @ 390504:                     PUSH   LITREF
44881 @ 390507:                     PUSH   TOTSIZE
44882 @ 390510:                     ASSPAR
44883 @ 390511:                     CALL  
44884 @ 390512:                     ASSVAL

  7775              %finish
  7776              ![ADOK updates C_SP]
44885 @ 390513:                     LINE   7775 "regression-compile-tmp/imp22g-77.imp"
44886 @ 390553:                     LOCATE L_0013

  7777              holdz = 0;  holdz = litref(-lo1*size1) %if dp_flags&arrflag = 0
44887 @ 390556:                     LINE   7777 "regression-compile-tmp/imp22g-77.imp"
44888 @ 390596:                     PUSH   HOLDZ
44889 @ 390599:                     PUSHI  #0x00000000
44890 @ 390604:                     ASSVAL
44891 @ 390605:                     LINE   7777 "regression-compile-tmp/imp22g-77.imp"
44892 @ 390645:                     PUSH   DP
44893 @ 390648:                     SELECT 1
44894 @ 390651:                     PUSHI  #0x00000008
44895 @ 390656:                     AND   
44896 @ 390657:                     PUSHI  #0x00000000
44897 @ 390662:                     JUMPIF # L_0013
44898 @ 390666:                     PUSH   HOLDZ
44899 @ 390669:                     PUSH   LITREF
44900 @ 390672:                     PUSH   LO1
44901 @ 390675:                     PUSH   SIZE1
44902 @ 390678:                     MUL   
44903 @ 390679:                     NEGATE
44904 @ 390680:                     ASSPAR
44905 @ 390681:                     CALL  
44906 @ 390682:                     ASSVAL
44907 @ 390683:                     LOCATE L_0013

  7778              putact(adok,holdval,holdz);  !compute & store space needed
44908 @ 390686:                     LINE   7778 "regression-compile-tmp/imp22g-77.imp"
44909 @ 390726:                     PUSH   PUTACT
44910 @ 390729:                     PUSHI  #0x00000067
44911 @ 390734:                     ASSPAR
44912 @ 390735:                     PUSH   HOLDVAL
44913 @ 390738:                     ASSPAR
44914 @ 390739:                     PUSH   HOLDZ
44915 @ 390742:                     ASSPAR
44916 @ 390743:                     CALL  

  7779              compile(np0)
44917 @ 390744:                     LINE   7779 "regression-compile-tmp/imp22g-77.imp"
44918 @ 390784:                     PUSH   COMPILE
44919 @ 390787:                     PUSH   NP0
44920 @ 390790:                     ASSPAR
44921 @ 390791:                     CALL  

  7780              dp_flags = dp_flags+indirect
44922 @ 390792:                     LINE   7780 "regression-compile-tmp/imp22g-77.imp"
44923 @ 390832:                     PUSH   DP
44924 @ 390835:                     SELECT 1
44925 @ 390838:                     PUSH   DP
44926 @ 390841:                     SELECT 1
44927 @ 390844:                     PUSHI  #0x00000800
44928 @ 390849:                     ADD   
44929 @ 390850:                     ASSVAL

  7781              dp_link = c_dynarray
44930 @ 390851:                     LINE   7781 "regression-compile-tmp/imp22g-77.imp"
44931 @ 390891:                     PUSH   DP
44932 @ 390894:                     SELECT 3
44933 @ 390897:                     PUSH   C
44934 @ 390900:                     SELECT 25
44935 @ 390903:                     ASSVAL

  7782              c_dynarray = pos;  c_dynarray = -c_dynarray %if holdz # 0
44936 @ 390904:                     LINE   7782 "regression-compile-tmp/imp22g-77.imp"
44937 @ 390944:                     PUSH   C
44938 @ 390947:                     SELECT 25
44939 @ 390950:                     PUSH   POS
44940 @ 390953:                     ASSVAL
44941 @ 390954:                     LINE   7782 "regression-compile-tmp/imp22g-77.imp"
44942 @ 390994:                     PUSH   HOLDZ
44943 @ 390997:                     PUSHI  #0x00000000
44944 @ 391002:                     JUMPIF = L_0013
44945 @ 391006:                     PUSH   C
44946 @ 391009:                     SELECT 25
44947 @ 391012:                     PUSH   C
44948 @ 391015:                     SELECT 25
44949 @ 391018:                     NEGATE
44950 @ 391019:                     ASSVAL
44951 @ 391020:                     LOCATE L_0013

  7783              c_status = c_status!unknown
44952 @ 391023:                     LINE   7783 "regression-compile-tmp/imp22g-77.imp"
44953 @ 391063:                     PUSH   C
44954 @ 391066:                     SELECT 6
44955 @ 391069:                     PUSH   C
44956 @ 391072:                     SELECT 6
44957 @ 391075:                     PUSHI  #0x00000002
44958 @ 391080:                     OR    
44959 @ 391081:                     ASSVAL

  7784              holdval = 0
44960 @ 391082:                     LINE   7784 "regression-compile-tmp/imp22g-77.imp"
44961 @ 391122:                     PUSH   HOLDVAL
44962 @ 391125:                     PUSHI  #0x00000000
44963 @ 391130:                     ASSVAL

  7785            %finish
44964 @ 391131:                     LINE   7785 "regression-compile-tmp/imp22g-77.imp"
44965 @ 391171:                     LOCATE L_000f

  7786            dp_val = c_sp-disp
44966 @ 391174:                     LINE   7786 "regression-compile-tmp/imp22g-77.imp"
44967 @ 391214:                     PUSH   DP
44968 @ 391217:                     SELECT 9
44969 @ 391220:                     PUSH   C
44970 @ 391223:                     SELECT 1
44971 @ 391226:                     PUSH   DISP
44972 @ 391229:                     SUB   
44973 @ 391230:                     ASSVAL

  7787          %finish
44974 @ 391231:                     LINE   7787 "regression-compile-tmp/imp22g-77.imp"
44975 @ 391271:                     LOCATE L_000d

  7788        %else { %if decl_flags >= 0};  !record field or absolute
  7789                                    !** to be corrected **
  7790                                    !name already allocated
  7791  {        dp_val = disp;  disp = disp+totsize}
44976 @ 391274:                     LINE   7788 "regression-compile-tmp/imp22g-77.imp"
44977 @ 391314:                     GOTO   L_0009
44978 @ 391317:                     LOCATE L_000a

  7792          dp_val = disp
44979 @ 391320:                     LINE   7792 "regression-compile-tmp/imp22g-77.imp"
44980 @ 391360:                     PUSH   DP
44981 @ 391363:                     SELECT 9
44982 @ 391366:                     PUSH   DISP
44983 @ 391369:                     ASSVAL

  7793          %if decl_flags < 0 %then disp = disp+4 %else disp = disp+totsize
44984 @ 391370:                     LINE   7793 "regression-compile-tmp/imp22g-77.imp"
44985 @ 391410:                     PUSH   DECL
44986 @ 391413:                     SELECT 1
44987 @ 391416:                     PUSHI  #0x00000000
44988 @ 391421:                     JUMPIF >= L_000d
44989 @ 391425:                     PUSH   DISP
44990 @ 391428:                     PUSH   DISP
44991 @ 391431:                     PUSHI  #0x00000004
44992 @ 391436:                     ADD   
44993 @ 391437:                     ASSVAL
44994 @ 391438:                     GOTO   L_000c
44995 @ 391441:                     LOCATE L_000d
44996 @ 391444:                     PUSH   DISP
44997 @ 391447:                     PUSH   DISP
44998 @ 391450:                     PUSH   TOTSIZE
44999 @ 391453:                     ADD   
45000 @ 391454:                     ASSVAL
45001 @ 391455:                     LOCATE L_000c

  7794        %finish
45002 @ 391458:                     LINE   7794 "regression-compile-tmp/imp22g-77.imp"
45003 @ 391498:                     LOCATE L_0009

  7795        pos = pos+1
45004 @ 391501:                     LINE   7795 "regression-compile-tmp/imp22g-77.imp"
45005 @ 391541:                     PUSH   POS
45006 @ 391544:                     PUSH   POS
45007 @ 391547:                     PUSHI  #0x00000001
45008 @ 391552:                     ADD   
45009 @ 391553:                     ASSVAL

  7796      %repeat
45010 @ 391554:                     LINE   7796 "regression-compile-tmp/imp22g-77.imp"
45011 @ 391594:                     REPEAT L_0006
45012 @ 391597:                     LOCATE L_0007

  7797    %else;                           !const,own
45013 @ 391600:                     LINE   7797 "regression-compile-tmp/imp22g-77.imp"
45014 @ 391640:                     GOTO   L_0003
45015 @ 391643:                     LOCATE L_0004

  7798      %if decl_flags&(name+indirect) # 0 %start
45016 @ 391646:                     LINE   7798 "regression-compile-tmp/imp22g-77.imp"
45017 @ 391686:                     PUSH   DECL
45018 @ 391689:                     SELECT 1
45019 @ 391692:                     PUSHI  #0xffff8000
45020 @ 391697:                     PUSHI  #0x00000800
45021 @ 391702:                     ADD   
45022 @ 391703:                     AND   
45023 @ 391704:                     PUSHI  #0x00000000
45024 @ 391709:                     JUMPIF = L_0007

  7799        %if mode = constmode %then fill code(4) %else fill own(4)
45025 @ 391713:                     LINE   7799 "regression-compile-tmp/imp22g-77.imp"
45026 @ 391753:                     PUSH   MODE
45027 @ 391756:                     PUSHI  #0x0000007a
45028 @ 391761:                     JUMPIF # L_000a
45029 @ 391765:                     PUSH   FILLCODE
45030 @ 391768:                     PUSHI  #0x00000004
45031 @ 391773:                     ASSPAR
45032 @ 391774:                     CALL  
45033 @ 391775:                     GOTO   L_0009
45034 @ 391778:                     LOCATE L_000a
45035 @ 391781:                     PUSH   FILLOWN
45036 @ 391784:                     PUSHI  #0x00000004
45037 @ 391789:                     ASSPAR
45038 @ 391790:                     CALL  
45039 @ 391791:                     LOCATE L_0009

  7800      %else
45040 @ 391794:                     LINE   7800 "regression-compile-tmp/imp22g-77.imp"
45041 @ 391834:                     GOTO   L_0006
45042 @ 391837:                     LOCATE L_0007

  7801        %if a assop(itemtype)=TRUE %start
45043 @ 391840:                     LINE   7801 "regression-compile-tmp/imp22g-77.imp"
45044 @ 391880:                     PUSH   AASSOP
45045 @ 391883:                     PUSH   ITEMTYPE
45046 @ 391886:                     ASSPAR
45047 @ 391887:                     CALL  
45048 @ 391888:                     PUSHI  #0x00000001
45049 @ 391893:                     JUMPIF # L_000a

  7802          jam = jammy
45050 @ 391897:                     LINE   7802 "regression-compile-tmp/imp22g-77.imp"
45051 @ 391937:                     PUSH   JAM
45052 @ 391940:                     PUSH   JAMMY
45053 @ 391943:                     ASSVAL

  7803          dp_flags = dp_flags!okflag;  ![hum]
45054 @ 391944:                     LINE   7803 "regression-compile-tmp/imp22g-77.imp"
45055 @ 391984:                     PUSH   DP
45056 @ 391987:                     SELECT 1
45057 @ 391990:                     PUSH   DP
45058 @ 391993:                     SELECT 1
45059 @ 391996:                     PUSHI  #0x00000040
45060 @ 392001:                     OR    
45061 @ 392002:                     ASSVAL

  7804          allow(terminator)
45062 @ 392003:                     LINE   7804 "regression-compile-tmp/imp22g-77.imp"
45063 @ 392043:                     PUSH   ALLOW
45064 @ 392046:                     PUSHI  #0x00000033
45065 @ 392051:                     ASSPAR
45066 @ 392052:                     CALL  

  7805          %cycle
45067 @ 392053:                     LINE   7805 "regression-compile-tmp/imp22g-77.imp"
45068 @ 392093:                     LOCATE L_000c

  7806            jammy = jam
45069 @ 392096:                     LINE   7806 "regression-compile-tmp/imp22g-77.imp"
45070 @ 392136:                     PUSH   JAMMY
45071 @ 392139:                     PUSH   JAM
45072 @ 392142:                     ASSVAL

  7807            get VALUE(itemtype)
45073 @ 392143:                     LINE   7807 "regression-compile-tmp/imp22g-77.imp"
45074 @ 392183:                     PUSH   GETVALUE
45075 @ 392186:                     PUSH   ITEMTYPE
45076 @ 392189:                     ASSPAR
45077 @ 392190:                     CALL  

  7808            faultnum = rangerr+point+warn %if faultnum = rangerr+point
45078 @ 392191:                     LINE   7808 "regression-compile-tmp/imp22g-77.imp"
45079 @ 392231:                     PUSH   FAULTNUM
45080 @ 392234:                     PUSHI  #0x00000018
45081 @ 392239:                     PUSHI  #0x00000040
45082 @ 392244:                     ADD   
45083 @ 392245:                     JUMPIF # L_0010
45084 @ 392249:                     PUSH   FAULTNUM
45085 @ 392252:                     PUSHI  #0x00000018
45086 @ 392257:                     PUSHI  #0x00000040
45087 @ 392262:                     ADD   
45088 @ 392263:                     PUSHI  #0xffffff80
45089 @ 392268:                     ADD   
45090 @ 392269:                     ASSVAL
45091 @ 392270:                     LOCATE L_0010

  7809            holdval = value
45092 @ 392273:                     LINE   7809 "regression-compile-tmp/imp22g-77.imp"
45093 @ 392313:                     PUSH   HOLDVAL
45094 @ 392316:                     PUSH   VALUE
45095 @ 392319:                     ASSVAL

  7810            value = 1
45096 @ 392320:                     LINE   7810 "regression-compile-tmp/imp22g-77.imp"
45097 @ 392360:                     PUSH   VALUE
45098 @ 392363:                     PUSHI  #0x00000001
45099 @ 392368:                     ASSVAL

  7811            %if a(left)=TRUE %start
45100 @ 392369:                     LINE   7811 "regression-compile-tmp/imp22g-77.imp"
45101 @ 392409:                     PUSH   A
45102 @ 392412:                     PUSHI  #0x00000037
45103 @ 392417:                     ASSPAR
45104 @ 392418:                     CALL  
45105 @ 392419:                     PUSHI  #0x00000001
45106 @ 392424:                     JUMPIF # L_0010

  7812              value = elements
45107 @ 392428:                     LINE   7812 "regression-compile-tmp/imp22g-77.imp"
45108 @ 392468:                     PUSH   VALUE
45109 @ 392471:                     PUSH   ELEMENTS
45110 @ 392474:                     ASSVAL

  7813              get LITERAL(halftype) %unless a(star)=TRUE
45111 @ 392475:                     LINE   7813 "regression-compile-tmp/imp22g-77.imp"
45112 @ 392515:                     PUSH   A
45113 @ 392518:                     PUSHI  #0x00000058
45114 @ 392523:                     ASSPAR
45115 @ 392524:                     CALL  
45116 @ 392525:                     PUSHI  #0x00000001
45117 @ 392530:                     JUMPIF = L_0013
45118 @ 392534:                     PUSH   GETLITERAL
45119 @ 392537:                     PUSHI  #0x00000031
45120 @ 392542:                     ASSPAR
45121 @ 392543:                     CALL  
45122 @ 392544:                     LOCATE L_0013

  7814              get(right)
45123 @ 392547:                     LINE   7814 "regression-compile-tmp/imp22g-77.imp"
45124 @ 392587:                     PUSH   GET
45125 @ 392590:                     PUSHI  #0x0000003d
45126 @ 392595:                     ASSPAR
45127 @ 392596:                     CALL  

  7815            %finish
45128 @ 392597:                     LINE   7815 "regression-compile-tmp/imp22g-77.imp"
45129 @ 392637:                     LOCATE L_0010

  7816            elements = elements-value
45130 @ 392640:                     LINE   7816 "regression-compile-tmp/imp22g-77.imp"
45131 @ 392680:                     PUSH   ELEMENTS
45132 @ 392683:                     PUSH   ELEMENTS
45133 @ 392686:                     PUSH   VALUE
45134 @ 392689:                     SUB   
45135 @ 392690:                     ASSVAL

  7817            value = value+elements %if elements < 0
45136 @ 392691:                     LINE   7817 "regression-compile-tmp/imp22g-77.imp"
45137 @ 392731:                     PUSH   ELEMENTS
45138 @ 392734:                     PUSHI  #0x00000000
45139 @ 392739:                     JUMPIF >= L_0010
45140 @ 392743:                     PUSH   VALUE
45141 @ 392746:                     PUSH   VALUE
45142 @ 392749:                     PUSH   ELEMENTS
45143 @ 392752:                     ADD   
45144 @ 392753:                     ASSVAL
45145 @ 392754:                     LOCATE L_0010

  7818            dump const(holdval,value)
45146 @ 392757:                     LINE   7818 "regression-compile-tmp/imp22g-77.imp"
45147 @ 392797:                     PUSH   DUMPCONST
45148 @ 392800:                     PUSH   HOLDVAL
45149 @ 392803:                     ASSPAR
45150 @ 392804:                     PUSH   VALUE
45151 @ 392807:                     ASSPAR
45152 @ 392808:                     CALL  

  7819          %repeat %until %not a(comma)=TRUE
45153 @ 392809:                     LINE   7819 "regression-compile-tmp/imp22g-77.imp"
45154 @ 392849:                     PUSH   A
45155 @ 392852:                     PUSHI  #0x0000003c
45156 @ 392857:                     ASSPAR
45157 @ 392858:                     CALL  
45158 @ 392859:                     PUSHI  #0x00000001
45159 @ 392864:                     JUMPIF # L_000d
45160 @ 392868:                     REPEAT L_000c
45161 @ 392871:                     LOCATE L_000d

  7820          %if faultnum = 0 %and elements # 0 %start
45162 @ 392874:                     LINE   7820 "regression-compile-tmp/imp22g-77.imp"
45163 @ 392914:                     PUSH   FAULTNUM
45164 @ 392917:                     PUSHI  #0x00000000
45165 @ 392922:                     JUMPIF # L_000d
45166 @ 392926:                     PUSH   ELEMENTS
45167 @ 392929:                     PUSHI  #0x00000000
45168 @ 392934:                     JUMPIF = L_000d

  7821            %if elements < 0 %then report(counterr,pos,elements) %c
  7822            %else report(counterr+warn,pos,elements)
45169 @ 392938:                     LINE   7821 "regression-compile-tmp/imp22g-77.imp"
45170 @ 392978:                     PUSH   ELEMENTS
45171 @ 392981:                     PUSHI  #0x00000000
45172 @ 392986:                     JUMPIF >= L_0010
45173 @ 392990:                     PUSH   REPORT
45174 @ 392993:                     PUSHI  #0x0000002d
45175 @ 392998:                     ASSPAR
45176 @ 392999:                     PUSH   POS
45177 @ 393002:                     ASSPAR
45178 @ 393003:                     PUSH   ELEMENTS
45179 @ 393006:                     ASSPAR
45180 @ 393007:                     CALL  
45181 @ 393008:                     GOTO   L_000f
45182 @ 393011:                     LOCATE L_0010
45183 @ 393014:                     PUSH   REPORT
45184 @ 393017:                     PUSHI  #0x0000002d
45185 @ 393022:                     PUSHI  #0xffffff80
45186 @ 393027:                     ADD   
45187 @ 393028:                     ASSPAR
45188 @ 393029:                     PUSH   POS
45189 @ 393032:                     ASSPAR
45190 @ 393033:                     PUSH   ELEMENTS
45191 @ 393036:                     ASSPAR
45192 @ 393037:                     CALL  
45193 @ 393038:                     LOCATE L_000f

  7823          %finish
45194 @ 393041:                     LINE   7823 "regression-compile-tmp/imp22g-77.imp"
45195 @ 393081:                     LOCATE L_000d

  7824        %finish
45196 @ 393084:                     LINE   7824 "regression-compile-tmp/imp22g-77.imp"
45197 @ 393124:                     LOCATE L_000a

  7825        dump const(0,elements) %if elements > 0
45198 @ 393127:                     LINE   7825 "regression-compile-tmp/imp22g-77.imp"
45199 @ 393167:                     PUSH   ELEMENTS
45200 @ 393170:                     PUSHI  #0x00000000
45201 @ 393175:                     JUMPIF <= L_000a
45202 @ 393179:                     PUSH   DUMPCONST
45203 @ 393182:                     PUSHI  #0x00000000
45204 @ 393187:                     ASSPAR
45205 @ 393188:                     PUSH   ELEMENTS
45206 @ 393191:                     ASSPAR
45207 @ 393192:                     CALL  
45208 @ 393193:                     LOCATE L_000a

  7826      %finish
45209 @ 393196:                     LINE   7826 "regression-compile-tmp/imp22g-77.imp"
45210 @ 393236:                     LOCATE L_0006

  7827    %finish
45211 @ 393239:                     LINE   7827 "regression-compile-tmp/imp22g-77.imp"
45212 @ 393279:                     LOCATE L_0003

  7828  %end;  !get ARRAY DECLARATION
  7829  !
45213 @ 393282:                     LINE   7828 "regression-compile-tmp/imp22g-77.imp"
45214 @ 393322:                  END    _lev0id0_GETSTATEMENTS_GETDECLARATION_GETARRAYDECLARATION {lev=4 --> 3}

  7830  %routine GET PROCEDURE DECLARATION
45215 @ 393323:                  LINE   7830 "regression-compile-tmp/imp22g-77.imp"
45216 @ 393363:                  DEF    GETPROCEDUREDECLARATION (_lev0id0_GETSTATEMENTS_GETDECLARATION_GETPROCEDUREDECLARATION) p1=V_01ab 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
45217 @ 393398:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
45218 @ 393399:                     FINISH ) {lev=4}

  7831  %integer pos,dlim1,argmode,argad,restype,stack
45219 @ 393400:                     LINE   7831 "regression-compile-tmp/imp22g-77.imp"
45220 @ 393440:                     DEF    POS p1=V_01ac a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
45221 @ 393455:                     DEF    DLIM1 p1=V_01ad a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
45222 @ 393472:                     DEF    ARGMODE p1=V_01ae a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
45223 @ 393491:                     DEF    ARGAD p1=V_01af a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
45224 @ 393508:                     DEF    RESTYPE p1=V_01b0 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
45225 @ 393527:                     DEF    STACK p1=V_01b1 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  7832  %record(identinfo)%name headditem,dhold
  7833  
45226 @ 393544:                     LINE   7832 "regression-compile-tmp/imp22g-77.imp"
45227 @ 393584:                     DEF    HEADDITEM p1=V_01b2 a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
45228 @ 393605:                     DEF    DHOLD p1=V_01b3 a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  7834  %integerfn DUPOK
  7835  !Check that the proc being declared can reasonably alias existing id
45229 @ 393622:                     LINE   7834 "regression-compile-tmp/imp22g-77.imp"
45230 @ 393662:                     DEF    DUPOK (_lev0id0_GETSTATEMENTS_GETDECLARATION_GETPROCEDUREDECLARATION_DUPOK) p1=V_01b4 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
45231 @ 393679:                        START  ( FORMAL PARAMETERS  {lev=5 --> 6, nested=0 --> 1}
45232 @ 393680:                        FINISH ) {lev=5}

  7836  %record(identinfo)%name tp
45233 @ 393681:                        LINE   7836 "regression-compile-tmp/imp22g-77.imp"
45234 @ 393721:                        DEF    TP p1=V_01b5 a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  7837    %result = FALSE %if ditem_flags&proc = 0
45235 @ 393735:                        LINE   7837 "regression-compile-tmp/imp22g-77.imp"
45236 @ 393775:                        PUSH   DITEM
45237 @ 393778:                        SELECT 1
45238 @ 393781:                        PUSHI  #0x00003000
45239 @ 393786:                        AND   
45240 @ 393787:                        PUSHI  #0x00000000
45241 @ 393792:                        JUMPIF # L_0004
45242 @ 393796:                        PUSHI  #0x00000000
45243 @ 393801:                        RESULT
45244 @ 393802:                        LOCATE L_0004

  7838    tp == typecell(ditem_type)
45245 @ 393805:                        LINE   7838 "regression-compile-tmp/imp22g-77.imp"
45246 @ 393845:                        PUSH   TP
45247 @ 393848:                        PUSH   TYPECELL
45248 @ 393851:                        PUSH   DITEM
45249 @ 393854:                        SELECT 2
45250 @ 393857:                        ASSPAR
45251 @ 393858:                        CALL  
45252 @ 393859:                        ASSREF

  7839    %if restype = 0 %start;  !routine
45253 @ 393860:                        LINE   7839 "regression-compile-tmp/imp22g-77.imp"
45254 @ 393900:                        PUSH   RESTYPE
45255 @ 393903:                        PUSHI  #0x00000000
45256 @ 393908:                        JUMPIF # L_0004

  7840      %result = FALSE %if tp_type # 0 %or tp_link = 0; !not routine, or no pars
45257 @ 393912:                        LINE   7840 "regression-compile-tmp/imp22g-77.imp"
45258 @ 393952:                        PUSH   TP
45259 @ 393955:                        SELECT 2
45260 @ 393958:                        PUSHI  #0x00000000
45261 @ 393963:                        JUMPIF # L_0008
45262 @ 393967:                        PUSH   TP
45263 @ 393970:                        SELECT 3
45264 @ 393973:                        PUSHI  #0x00000000
45265 @ 393978:                        JUMPIF # L_0007
45266 @ 393982:                        LOCATE L_0008
45267 @ 393985:                        PUSHI  #0x00000000
45268 @ 393990:                        RESULT
45269 @ 393991:                        LOCATE L_0007

  7841    %else
45270 @ 393994:                        LINE   7841 "regression-compile-tmp/imp22g-77.imp"
45271 @ 394034:                        GOTO   L_0003
45272 @ 394037:                        LOCATE L_0004

  7842      %result = FALSE %if restype = tp_type;  !function of same type
45273 @ 394040:                        LINE   7842 "regression-compile-tmp/imp22g-77.imp"
45274 @ 394080:                        PUSH   RESTYPE
45275 @ 394083:                        PUSH   TP
45276 @ 394086:                        SELECT 2
45277 @ 394089:                        JUMPIF # L_0007
45278 @ 394093:                        PUSHI  #0x00000000
45279 @ 394098:                        RESULT
45280 @ 394099:                        LOCATE L_0007

  7843    %finish
45281 @ 394102:                        LINE   7843 "regression-compile-tmp/imp22g-77.imp"
45282 @ 394142:                        LOCATE L_0003

  7844    %result = TRUE
45283 @ 394145:                        LINE   7844 "regression-compile-tmp/imp22g-77.imp"
45284 @ 394185:                        PUSHI  #0x00000001
45285 @ 394190:                        RESULT

  7845  %end
  7846  
45286 @ 394191:                        LINE   7845 "regression-compile-tmp/imp22g-77.imp"
45287 @ 394231:                     END    _lev0id0_GETSTATEMENTS_GETDECLARATION_GETPROCEDUREDECLARATION_DUPOK {lev=5 --> 4}

  7847    restype = itemtype
45288 @ 394232:                     LINE   7847 "regression-compile-tmp/imp22g-77.imp"
45289 @ 394272:                     PUSH   RESTYPE
45290 @ 394275:                     PUSH   ITEMTYPE
45291 @ 394278:                     ASSVAL

  7848    stack = 0;  !unknown
45292 @ 394279:                     LINE   7848 "regression-compile-tmp/imp22g-77.imp"
45293 @ 394319:                     PUSH   STACK
45294 @ 394322:                     PUSHI  #0x00000000
45295 @ 394327:                     ASSVAL

  7849    decl_flags = decl_flags&(\okflag)
45296 @ 394328:                     LINE   7849 "regression-compile-tmp/imp22g-77.imp"
45297 @ 394368:                     PUSH   DECL
45298 @ 394371:                     SELECT 1
45299 @ 394374:                     PUSH   DECL
45300 @ 394377:                     SELECT 1
45301 @ 394380:                     PUSHI  #0x00000040
45302 @ 394385:                     NOT   
45303 @ 394386:                     AND   
45304 @ 394387:                     ASSVAL

  7850    decl_type = procstar;             !by default
45305 @ 394388:                     LINE   7850 "regression-compile-tmp/imp22g-77.imp"
45306 @ 394428:                     PUSH   DECL
45307 @ 394431:                     SELECT 2
45308 @ 394434:                     PUSHI  #0x0000002a
45309 @ 394439:                     ASSVAL

  7851    %if depth # 0 %start;             !procedure as param
45310 @ 394440:                     LINE   7851 "regression-compile-tmp/imp22g-77.imp"
45311 @ 394480:                     PUSH   DEPTH
45312 @ 394483:                     PUSHI  #0x00000000
45313 @ 394488:                     JUMPIF = L_0004

  7852      decl_flags = decl_flags!proc2;  ![must push MB in case external]
45314 @ 394492:                     LINE   7852 "regression-compile-tmp/imp22g-77.imp"
45315 @ 394532:                     PUSH   DECL
45316 @ 394535:                     SELECT 1
45317 @ 394538:                     PUSH   DECL
45318 @ 394541:                     SELECT 1
45319 @ 394544:                     PUSHI  #0x00002000
45320 @ 394549:                     OR    
45321 @ 394550:                     ASSVAL

  7853    %finish %else %if mode >= framemode %start
45322 @ 394551:                     LINE   7853 "regression-compile-tmp/imp22g-77.imp"
45323 @ 394591:                     GOTO   L_0003
45324 @ 394594:                     LOCATE L_0004
45325 @ 394597:                     PUSH   MODE
45326 @ 394600:                     PUSHI  #0x000000a8
45327 @ 394605:                     JUMPIF < L_0004

  7854      decl_mode = procmode;  decl_val = 0
45328 @ 394609:                     LINE   7854 "regression-compile-tmp/imp22g-77.imp"
45329 @ 394649:                     PUSH   DECL
45330 @ 394652:                     SELECT 8
45331 @ 394655:                     PUSHI  #0x000000fa
45332 @ 394660:                     ASSVAL
45333 @ 394661:                     LINE   7854 "regression-compile-tmp/imp22g-77.imp"
45334 @ 394701:                     PUSH   DECL
45335 @ 394704:                     SELECT 9
45336 @ 394707:                     PUSHI  #0x00000000
45337 @ 394712:                     ASSVAL

  7855      decl_flags = decl_flags!proc1
45338 @ 394713:                     LINE   7855 "regression-compile-tmp/imp22g-77.imp"
45339 @ 394753:                     PUSH   DECL
45340 @ 394756:                     SELECT 1
45341 @ 394759:                     PUSH   DECL
45342 @ 394762:                     SELECT 1
45343 @ 394765:                     PUSHI  #0x00001000
45344 @ 394770:                     OR    
45345 @ 394771:                     ASSVAL

  7856      decl_flags = decl_flags!spec %if a(keyspec)=TRUE
45346 @ 394772:                     LINE   7856 "regression-compile-tmp/imp22g-77.imp"
45347 @ 394812:                     PUSH   A
45348 @ 394815:                     PUSHI  #0x00000025
45349 @ 394820:                     ASSPAR
45350 @ 394821:                     CALL  
45351 @ 394822:                     PUSHI  #0x00000001
45352 @ 394827:                     JUMPIF # L_0007
45353 @ 394831:                     PUSH   DECL
45354 @ 394834:                     SELECT 1
45355 @ 394837:                     PUSH   DECL
45356 @ 394840:                     SELECT 1
45357 @ 394843:                     PUSHI  #0x00000100
45358 @ 394848:                     OR    
45359 @ 394849:                     ASSVAL
45360 @ 394850:                     LOCATE L_0007

  7857    %finish %else %if mode = ownmode %start;               !external (not @)
45361 @ 394853:                     LINE   7857 "regression-compile-tmp/imp22g-77.imp"
45362 @ 394893:                     GOTO   L_0003
45363 @ 394896:                     LOCATE L_0004
45364 @ 394899:                     PUSH   MODE
45365 @ 394902:                     PUSHI  #0x0000006c
45366 @ 394907:                     JUMPIF # L_0004

  7858      decl_mode = procmode;  decl_val = 0
45367 @ 394911:                     LINE   7858 "regression-compile-tmp/imp22g-77.imp"
45368 @ 394951:                     PUSH   DECL
45369 @ 394954:                     SELECT 8
45370 @ 394957:                     PUSHI  #0x000000fa
45371 @ 394962:                     ASSVAL
45372 @ 394963:                     LINE   7858 "regression-compile-tmp/imp22g-77.imp"
45373 @ 395003:                     PUSH   DECL
45374 @ 395006:                     SELECT 9
45375 @ 395009:                     PUSHI  #0x00000000
45376 @ 395014:                     ASSVAL

  7859      %if a(keyspec)=TRUE %start
45377 @ 395015:                     LINE   7859 "regression-compile-tmp/imp22g-77.imp"
45378 @ 395055:                     PUSH   A
45379 @ 395058:                     PUSHI  #0x00000025
45380 @ 395063:                     ASSPAR
45381 @ 395064:                     CALL  
45382 @ 395065:                     PUSHI  #0x00000001
45383 @ 395070:                     JUMPIF # L_0007

  7860        decl_mode = ownmode;  decl_flags = decl_flags!spec
45384 @ 395074:                     LINE   7860 "regression-compile-tmp/imp22g-77.imp"
45385 @ 395114:                     PUSH   DECL
45386 @ 395117:                     SELECT 8
45387 @ 395120:                     PUSHI  #0x0000006c
45388 @ 395125:                     ASSVAL
45389 @ 395126:                     LINE   7860 "regression-compile-tmp/imp22g-77.imp"
45390 @ 395166:                     PUSH   DECL
45391 @ 395169:                     SELECT 1
45392 @ 395172:                     PUSH   DECL
45393 @ 395175:                     SELECT 1
45394 @ 395178:                     PUSHI  #0x00000100
45395 @ 395183:                     OR    
45396 @ 395184:                     ASSVAL

  7861      %finish
45397 @ 395185:                     LINE   7861 "regression-compile-tmp/imp22g-77.imp"
45398 @ 395225:                     LOCATE L_0007

  7862    %else;   !@...
45399 @ 395228:                     LINE   7862 "regression-compile-tmp/imp22g-77.imp"
45400 @ 395268:                     GOTO   L_0003
45401 @ 395271:                     LOCATE L_0004

  7863      decl_flags = decl_flags!proc1
45402 @ 395274:                     LINE   7863 "regression-compile-tmp/imp22g-77.imp"
45403 @ 395314:                     PUSH   DECL
45404 @ 395317:                     SELECT 1
45405 @ 395320:                     PUSH   DECL
45406 @ 395323:                     SELECT 1
45407 @ 395326:                     PUSHI  #0x00001000
45408 @ 395331:                     OR    
45409 @ 395332:                     ASSVAL

  7864      decl_val = disp
45410 @ 395333:                     LINE   7864 "regression-compile-tmp/imp22g-77.imp"
45411 @ 395373:                     PUSH   DECL
45412 @ 395376:                     SELECT 9
45413 @ 395379:                     PUSH   DISP
45414 @ 395382:                     ASSVAL

  7865      stack = 4
45415 @ 395383:                     LINE   7865 "regression-compile-tmp/imp22g-77.imp"
45416 @ 395423:                     PUSH   STACK
45417 @ 395426:                     PUSHI  #0x00000004
45418 @ 395431:                     ASSVAL

  7866    %finish
45419 @ 395432:                     LINE   7866 "regression-compile-tmp/imp22g-77.imp"
45420 @ 395472:                     LOCATE L_0003

  7867    %if decl_flags&ext # 0 %and a(keyalias)=TRUE %start
45421 @ 395475:                     LINE   7867 "regression-compile-tmp/imp22g-77.imp"
45422 @ 395515:                     PUSH   DECL
45423 @ 395518:                     SELECT 1
45424 @ 395521:                     PUSHI  #0x00004000
45425 @ 395526:                     AND   
45426 @ 395527:                     PUSHI  #0x00000000
45427 @ 395532:                     JUMPIF = L_0004
45428 @ 395536:                     PUSH   A
45429 @ 395539:                     PUSHI  #0x00000031
45430 @ 395544:                     ASSPAR
45431 @ 395545:                     CALL  
45432 @ 395546:                     PUSHI  #0x00000001
45433 @ 395551:                     JUMPIF # L_0004

  7868      nonstandard(9)
45434 @ 395555:                     LINE   7868 "regression-compile-tmp/imp22g-77.imp"
45435 @ 395595:                     PUSH   NONSTANDARD
45436 @ 395598:                     PUSHI  #0x00000009
45437 @ 395603:                     ASSPAR
45438 @ 395604:                     CALL  

  7869      get(ident)
45439 @ 395605:                     LINE   7869 "regression-compile-tmp/imp22g-77.imp"
45440 @ 395645:                     PUSH   GET
45441 @ 395648:                     PUSHI  #0x00000035
45442 @ 395653:                     ASSPAR
45443 @ 395654:                     CALL  

  7870      %if item <= 0 %start
45444 @ 395655:                     LINE   7870 "regression-compile-tmp/imp22g-77.imp"
45445 @ 395695:                     PUSH   ITEM
45446 @ 395698:                     PUSHI  #0x00000000
45447 @ 395703:                     JUMPIF > L_0007

  7871        fault(namerr+point)
45448 @ 395707:                     LINE   7871 "regression-compile-tmp/imp22g-77.imp"
45449 @ 395747:                     PUSH   FAULT
45450 @ 395750:                     PUSHI  #0x00000009
45451 @ 395755:                     PUSHI  #0x00000040
45452 @ 395760:                     ADD   
45453 @ 395761:                     ASSPAR
45454 @ 395762:                     CALL  

  7872      %else
45455 @ 395763:                     LINE   7872 "regression-compile-tmp/imp22g-77.imp"
45456 @ 395803:                     GOTO   L_0006
45457 @ 395806:                     LOCATE L_0007

  7873        item = 0 %and decl_flags = decl_flags!alt %if dupok=TRUE
45458 @ 395809:                     LINE   7873 "regression-compile-tmp/imp22g-77.imp"
45459 @ 395849:                     PUSH   DUPOK
45460 @ 395852:                     CALL  
45461 @ 395853:                     PUSHI  #0x00000001
45462 @ 395858:                     JUMPIF # L_000a
45463 @ 395862:                     PUSH   ITEM
45464 @ 395865:                     PUSHI  #0x00000000
45465 @ 395870:                     ASSVAL
45466 @ 395871:                     PUSH   DECL
45467 @ 395874:                     SELECT 1
45468 @ 395877:                     PUSH   DECL
45469 @ 395880:                     SELECT 1
45470 @ 395883:                     PUSHI  #0x00000008
45471 @ 395888:                     OR    
45472 @ 395889:                     ASSVAL
45473 @ 395890:                     LOCATE L_000a

  7874      %finish
45474 @ 395893:                     LINE   7874 "regression-compile-tmp/imp22g-77.imp"
45475 @ 395933:                     LOCATE L_0006

  7875    %else
45476 @ 395936:                     LINE   7875 "regression-compile-tmp/imp22g-77.imp"
45477 @ 395976:                     GOTO   L_0003
45478 @ 395979:                     LOCATE L_0004

  7876      get(ident)
45479 @ 395982:                     LINE   7876 "regression-compile-tmp/imp22g-77.imp"
45480 @ 396022:                     PUSH   GET
45481 @ 396025:                     PUSHI  #0x00000035
45482 @ 396030:                     ASSPAR
45483 @ 396031:                     CALL  

  7877    %finish
45484 @ 396032:                     LINE   7877 "regression-compile-tmp/imp22g-77.imp"
45485 @ 396072:                     LOCATE L_0003

  7878    declare(decl)
45486 @ 396075:                     LINE   7878 "regression-compile-tmp/imp22g-77.imp"
45487 @ 396115:                     PUSH   DECLARE
45488 @ 396118:                     PUSH   DECL
45489 @ 396121:                     ASSPAR
45490 @ 396122:                     CALL  

  7879    headditem == ditem
45491 @ 396123:                     LINE   7879 "regression-compile-tmp/imp22g-77.imp"
45492 @ 396163:                     PUSH   HEADDITEM
45493 @ 396166:                     PUSH   DITEM
45494 @ 396169:                     ASSREF

  7880    assign address(-6) %if depth # 0
45495 @ 396170:                     LINE   7880 "regression-compile-tmp/imp22g-77.imp"
45496 @ 396210:                     PUSH   DEPTH
45497 @ 396213:                     PUSHI  #0x00000000
45498 @ 396218:                     JUMPIF = L_0004
45499 @ 396222:                     PUSH   ASSIGNADDRESS
45500 @ 396225:                     PUSHI  #0x00000006
45501 @ 396230:                     NEGATE
45502 @ 396231:                     ASSPAR
45503 @ 396232:                     CALL  
45504 @ 396233:                     LOCATE L_0004

  7881    argmode = c_mode&(\2_01000000)+1
45505 @ 396236:                     LINE   7881 "regression-compile-tmp/imp22g-77.imp"
45506 @ 396276:                     PUSH   ARGMODE
45507 @ 396279:                     PUSH   C
45508 @ 396282:                     SELECT 27
45509 @ 396285:                     PUSHI  #0x00000040
45510 @ 396290:                     NOT   
45511 @ 396291:                     AND   
45512 @ 396292:                     PUSHI  #0x00000001
45513 @ 396297:                     ADD   
45514 @ 396298:                     ASSVAL

  7882    %if decl_flags&spec # 0 %or decl_mode # procmode %start
45515 @ 396299:                     LINE   7882 "regression-compile-tmp/imp22g-77.imp"
45516 @ 396339:                     PUSH   DECL
45517 @ 396342:                     SELECT 1
45518 @ 396345:                     PUSHI  #0x00000100
45519 @ 396350:                     AND   
45520 @ 396351:                     PUSHI  #0x00000000
45521 @ 396356:                     JUMPIF # L_0005
45522 @ 396360:                     PUSH   DECL
45523 @ 396363:                     SELECT 8
45524 @ 396366:                     PUSHI  #0x000000fa
45525 @ 396371:                     JUMPIF = L_0004
45526 @ 396375:                     LOCATE L_0005

  7883      speccing = speccing+1
45527 @ 396378:                     LINE   7883 "regression-compile-tmp/imp22g-77.imp"
45528 @ 396418:                     PUSH   SPECCING
45529 @ 396421:                     PUSH   SPECCING
45530 @ 396424:                     PUSHI  #0x00000001
45531 @ 396429:                     ADD   
45532 @ 396430:                     ASSVAL

  7884    %else
45533 @ 396431:                     LINE   7884 "regression-compile-tmp/imp22g-77.imp"
45534 @ 396471:                     GOTO   L_0003
45535 @ 396474:                     LOCATE L_0004

  7885      c_forward = c_forward-1 %if ditem_flags&rflag # 0
45536 @ 396477:                     LINE   7885 "regression-compile-tmp/imp22g-77.imp"
45537 @ 396517:                     PUSH   DITEM
45538 @ 396520:                     SELECT 1
45539 @ 396523:                     PUSHI  #0x00000020
45540 @ 396528:                     AND   
45541 @ 396529:                     PUSHI  #0x00000000
45542 @ 396534:                     JUMPIF = L_0007
45543 @ 396538:                     PUSH   C
45544 @ 396541:                     SELECT 17
45545 @ 396544:                     PUSH   C
45546 @ 396547:                     SELECT 17
45547 @ 396550:                     PUSHI  #0x00000001
45548 @ 396555:                     SUB   
45549 @ 396556:                     ASSVAL
45550 @ 396557:                     LOCATE L_0007

  7886      open block(item)
45551 @ 396560:                     LINE   7886 "regression-compile-tmp/imp22g-77.imp"
45552 @ 396600:                     PUSH   OPENBLOCK
45553 @ 396603:                     PUSH   ITEM
45554 @ 396606:                     ASSPAR
45555 @ 396607:                     CALL  

  7887      c_type = restype
45556 @ 396608:                     LINE   7887 "regression-compile-tmp/imp22g-77.imp"
45557 @ 396648:                     PUSH   C
45558 @ 396651:                     SELECT 7
45559 @ 396654:                     PUSH   RESTYPE
45560 @ 396657:                     ASSVAL

  7888      c_type = c_type!sign16 %if decl_flags&writable # 0 {%map}
45561 @ 396658:                     LINE   7888 "regression-compile-tmp/imp22g-77.imp"
45562 @ 396698:                     PUSH   DECL
45563 @ 396701:                     SELECT 1
45564 @ 396704:                     PUSHI  #0x00000001
45565 @ 396709:                     AND   
45566 @ 396710:                     PUSHI  #0x00000000
45567 @ 396715:                     JUMPIF = L_0007
45568 @ 396719:                     PUSH   C
45569 @ 396722:                     SELECT 7
45570 @ 396725:                     PUSH   C
45571 @ 396728:                     SELECT 7
45572 @ 396731:                     PUSHI  #0xffff8000
45573 @ 396736:                     OR    
45574 @ 396737:                     ASSVAL
45575 @ 396738:                     LOCATE L_0007

  7889    %finish
45576 @ 396741:                     LINE   7889 "regression-compile-tmp/imp22g-77.imp"
45577 @ 396781:                     LOCATE L_0003

  7890    dlim1 = dlim
45578 @ 396784:                     LINE   7890 "regression-compile-tmp/imp22g-77.imp"
45579 @ 396824:                     PUSH   DLIM1
45580 @ 396827:                     PUSH   DLIM
45581 @ 396830:                     ASSVAL

  7891    declare anon(details(0,restype,0,stack))
  7892   ! Result in A0 for %map or structure %fn
45582 @ 396831:                     LINE   7891 "regression-compile-tmp/imp22g-77.imp"
45583 @ 396871:                     PUSH   DECLAREANON
45584 @ 396874:                     PUSH   DETAILS
45585 @ 396877:                     PUSHI  #0x00000000
45586 @ 396882:                     ASSPAR
45587 @ 396883:                     PUSH   RESTYPE
45588 @ 396886:                     ASSPAR
45589 @ 396887:                     PUSHI  #0x00000000
45590 @ 396892:                     ASSPAR
45591 @ 396893:                     PUSH   STACK
45592 @ 396896:                     ASSPAR
45593 @ 396897:                     CALL  
45594 @ 396898:                     ASSPAR
45595 @ 396899:                     CALL  

  7893    ditem_reg = 8 %if decl_flags&writable # 0 {%map} %C
  7894                  %or size(restype) <= 0 {structure %fn}
  7895  !Declare parameters
45596 @ 396900:                     LINE   7893 "regression-compile-tmp/imp22g-77.imp"
45597 @ 396940:                     PUSH   DECL
45598 @ 396943:                     SELECT 1
45599 @ 396946:                     PUSHI  #0x00000001
45600 @ 396951:                     AND   
45601 @ 396952:                     PUSHI  #0x00000000
45602 @ 396957:                     JUMPIF # L_0005
45603 @ 396961:                     PUSH   SIZE
45604 @ 396964:                     PUSH   RESTYPE
45605 @ 396967:                     ASSPAR
45606 @ 396968:                     CALL  
45607 @ 396969:                     PUSHI  #0x00000000
45608 @ 396974:                     JUMPIF > L_0004
45609 @ 396978:                     LOCATE L_0005
45610 @ 396981:                     PUSH   DITEM
45611 @ 396984:                     SELECT 7
45612 @ 396987:                     PUSHI  #0x00000008
45613 @ 396992:                     ASSVAL
45614 @ 396993:                     LOCATE L_0004

  7896    argad = c_sp;     !ok for both spec and body
45615 @ 396996:                     LINE   7896 "regression-compile-tmp/imp22g-77.imp"
45616 @ 397036:                     PUSH   ARGAD
45617 @ 397039:                     PUSH   C
45618 @ 397042:                     SELECT 1
45619 @ 397045:                     ASSVAL

  7897    %if a(left)=TRUE %start
45620 @ 397046:                     LINE   7897 "regression-compile-tmp/imp22g-77.imp"
45621 @ 397086:                     PUSH   A
45622 @ 397089:                     PUSHI  #0x00000037
45623 @ 397094:                     ASSPAR
45624 @ 397095:                     CALL  
45625 @ 397096:                     PUSHI  #0x00000001
45626 @ 397101:                     JUMPIF # L_0004

  7898      dhold == dlink;  dlink == ditem
45627 @ 397105:                     LINE   7898 "regression-compile-tmp/imp22g-77.imp"
45628 @ 397145:                     PUSH   DHOLD
45629 @ 397148:                     PUSH   DLINK
45630 @ 397151:                     ASSREF
45631 @ 397152:                     LINE   7898 "regression-compile-tmp/imp22g-77.imp"
45632 @ 397192:                     PUSH   DLINK
45633 @ 397195:                     PUSH   DITEM
45634 @ 397198:                     ASSREF

  7899      get DECLARATION(okflag+writable+readable,argmode,argad,1)
45635 @ 397199:                     LINE   7899 "regression-compile-tmp/imp22g-77.imp"
45636 @ 397239:                     PUSH   GETDECLARATION
45637 @ 397242:                     PUSHI  #0x00000040
45638 @ 397247:                     PUSHI  #0x00000001
45639 @ 397252:                     ADD   
45640 @ 397253:                     PUSHI  #0x00000002
45641 @ 397258:                     ADD   
45642 @ 397259:                     ASSPAR
45643 @ 397260:                     PUSH   ARGMODE
45644 @ 397263:                     ASSPAR
45645 @ 397264:                     PUSH   ARGAD
45646 @ 397267:                     ASSPAR
45647 @ 397268:                     PUSHI  #0x00000001
45648 @ 397273:                     ASSPAR
45649 @ 397274:                     CALL  

  7900      dlink == dhold
45650 @ 397275:                     LINE   7900 "regression-compile-tmp/imp22g-77.imp"
45651 @ 397315:                     PUSH   DLINK
45652 @ 397318:                     PUSH   DHOLD
45653 @ 397321:                     ASSREF

  7901      get(right)
45654 @ 397322:                     LINE   7901 "regression-compile-tmp/imp22g-77.imp"
45655 @ 397362:                     PUSH   GET
45656 @ 397365:                     PUSHI  #0x0000003d
45657 @ 397370:                     ASSPAR
45658 @ 397371:                     CALL  

  7902    %finish
45659 @ 397372:                     LINE   7902 "regression-compile-tmp/imp22g-77.imp"
45660 @ 397412:                     LOCATE L_0004

  7903    %if speccing # 0 %start
45661 @ 397415:                     LINE   7903 "regression-compile-tmp/imp22g-77.imp"
45662 @ 397455:                     PUSH   SPECCING
45663 @ 397458:                     PUSHI  #0x00000000
45664 @ 397463:                     JUMPIF = L_0004

  7904      speccing = speccing-1
45665 @ 397467:                     LINE   7904 "regression-compile-tmp/imp22g-77.imp"
45666 @ 397507:                     PUSH   SPECCING
45667 @ 397510:                     PUSH   SPECCING
45668 @ 397513:                     PUSHI  #0x00000001
45669 @ 397518:                     SUB   
45670 @ 397519:                     ASSVAL

  7905      pos = crunched(dlim1)
45671 @ 397520:                     LINE   7905 "regression-compile-tmp/imp22g-77.imp"
45672 @ 397560:                     PUSH   POS
45673 @ 397563:                     PUSH   CRUNCHED
45674 @ 397566:                     PUSH   DLIM1
45675 @ 397569:                     ASSPAR
45676 @ 397570:                     CALL  
45677 @ 397571:                     ASSVAL

  7906      %if pos < dlim1 %or speccing = 0 %start
45678 @ 397572:                     LINE   7906 "regression-compile-tmp/imp22g-77.imp"
45679 @ 397612:                     PUSH   POS
45680 @ 397615:                     PUSH   DLIM1
45681 @ 397618:                     JUMPIF < L_0008
45682 @ 397622:                     PUSH   SPECCING
45683 @ 397625:                     PUSHI  #0x00000000
45684 @ 397630:                     JUMPIF # L_0007
45685 @ 397634:                     LOCATE L_0008

  7907        headditem_type = pos
45686 @ 397637:                     LINE   7907 "regression-compile-tmp/imp22g-77.imp"
45687 @ 397677:                     PUSH   HEADDITEM
45688 @ 397680:                     SELECT 2
45689 @ 397683:                     PUSH   POS
45690 @ 397686:                     ASSVAL

  7908      %else;                    !proc as param
45691 @ 397687:                     LINE   7908 "regression-compile-tmp/imp22g-77.imp"
45692 @ 397727:                     GOTO   L_0006
45693 @ 397730:                     LOCATE L_0007

  7909        fault(classerr);  dlim = dlim1
45694 @ 397733:                     LINE   7909 "regression-compile-tmp/imp22g-77.imp"
45695 @ 397773:                     PUSH   FAULT
45696 @ 397776:                     PUSHI  #0x0000000a
45697 @ 397781:                     ASSPAR
45698 @ 397782:                     CALL  
45699 @ 397783:                     LINE   7909 "regression-compile-tmp/imp22g-77.imp"
45700 @ 397823:                     PUSH   DLIM
45701 @ 397826:                     PUSH   DLIM1
45702 @ 397829:                     ASSVAL

  7910      %finish
45703 @ 397830:                     LINE   7910 "regression-compile-tmp/imp22g-77.imp"
45704 @ 397870:                     LOCATE L_0006

  7911    %else;                        !procedure body
45705 @ 397873:                     LINE   7911 "regression-compile-tmp/imp22g-77.imp"
45706 @ 397913:                     GOTO   L_0003
45707 @ 397916:                     LOCATE L_0004

  7912      %if c_dpid_flags&spec # 0 %start
45708 @ 397919:                     LINE   7912 "regression-compile-tmp/imp22g-77.imp"
45709 @ 397959:                     PUSH   C
45710 @ 397962:                     SELECT 29
45711 @ 397965:                     SELECT 1
45712 @ 397968:                     PUSHI  #0x00000100
45713 @ 397973:                     AND   
45714 @ 397974:                     PUSHI  #0x00000000
45715 @ 397979:                     JUMPIF = L_0007

  7913        c_dpid_flags = c_dpid_flags-spec
45716 @ 397983:                     LINE   7913 "regression-compile-tmp/imp22g-77.imp"
45717 @ 398023:                     PUSH   C
45718 @ 398026:                     SELECT 29
45719 @ 398029:                     SELECT 1
45720 @ 398032:                     PUSH   C
45721 @ 398035:                     SELECT 29
45722 @ 398038:                     SELECT 1
45723 @ 398041:                     PUSHI  #0x00000100
45724 @ 398046:                     SUB   
45725 @ 398047:                     ASSVAL

  7914        %unless parmatch(c_dpid_type,dlim1)=TRUE %start
45726 @ 398048:                     LINE   7914 "regression-compile-tmp/imp22g-77.imp"
45727 @ 398088:                     PUSH   PARMATCH
45728 @ 398091:                     PUSH   C
45729 @ 398094:                     SELECT 29
45730 @ 398097:                     SELECT 2
45731 @ 398100:                     ASSPAR
45732 @ 398101:                     PUSH   DLIM1
45733 @ 398104:                     ASSPAR
45734 @ 398105:                     CALL  
45735 @ 398106:                     PUSHI  #0x00000001
45736 @ 398111:                     JUMPIF = L_000a

  7915          %if c_pid = dlim1-2 %then fault(matcherr+warn) %c
  7916          %else fault(matcherr)
45737 @ 398115:                     LINE   7915 "regression-compile-tmp/imp22g-77.imp"
45738 @ 398155:                     PUSH   C
45739 @ 398158:                     SELECT 15
45740 @ 398161:                     PUSH   DLIM1
45741 @ 398164:                     PUSHI  #0x00000002
45742 @ 398169:                     SUB   
45743 @ 398170:                     JUMPIF # L_000d
45744 @ 398174:                     PUSH   FAULT
45745 @ 398177:                     PUSHI  #0x00000017
45746 @ 398182:                     PUSHI  #0xffffff80
45747 @ 398187:                     ADD   
45748 @ 398188:                     ASSPAR
45749 @ 398189:                     CALL  
45750 @ 398190:                     GOTO   L_000c
45751 @ 398193:                     LOCATE L_000d
45752 @ 398196:                     PUSH   FAULT
45753 @ 398199:                     PUSHI  #0x00000017
45754 @ 398204:                     ASSPAR
45755 @ 398205:                     CALL  
45756 @ 398206:                     LOCATE L_000c

  7917        %finish
45757 @ 398209:                     LINE   7917 "regression-compile-tmp/imp22g-77.imp"
45758 @ 398249:                     LOCATE L_000a

  7918      %finish
45759 @ 398252:                     LINE   7918 "regression-compile-tmp/imp22g-77.imp"
45760 @ 398292:                     LOCATE L_0007

  7919      headditem_type = dlim1
45761 @ 398295:                     LINE   7919 "regression-compile-tmp/imp22g-77.imp"
45762 @ 398335:                     PUSH   HEADDITEM
45763 @ 398338:                     SELECT 2
45764 @ 398341:                     PUSH   DLIM1
45765 @ 398344:                     ASSVAL

  7920      c_parlim = dlim
45766 @ 398345:                     LINE   7920 "regression-compile-tmp/imp22g-77.imp"
45767 @ 398385:                     PUSH   C
45768 @ 398388:                     SELECT 9
45769 @ 398391:                     PUSH   DLIM
45770 @ 398394:                     ASSVAL

  7921      c_sp = -argad
45771 @ 398395:                     LINE   7921 "regression-compile-tmp/imp22g-77.imp"
45772 @ 398435:                     PUSH   C
45773 @ 398438:                     SELECT 1
45774 @ 398441:                     PUSH   ARGAD
45775 @ 398444:                     NEGATE
45776 @ 398445:                     ASSVAL

  7922      compile(np0)
45777 @ 398446:                     LINE   7922 "regression-compile-tmp/imp22g-77.imp"
45778 @ 398486:                     PUSH   COMPILE
45779 @ 398489:                     PUSH   NP0
45780 @ 398492:                     ASSPAR
45781 @ 398493:                     CALL  

  7923      get(terminator)
45782 @ 398494:                     LINE   7923 "regression-compile-tmp/imp22g-77.imp"
45783 @ 398534:                     PUSH   GET
45784 @ 398537:                     PUSHI  #0x00000033
45785 @ 398542:                     ASSPAR
45786 @ 398543:                     CALL  

  7924      get STATEMENTS(keyend)
45787 @ 398544:                     LINE   7924 "regression-compile-tmp/imp22g-77.imp"
45788 @ 398584:                     PUSH   GETSTATEMENTS
45789 @ 398587:                     PUSHI  #0x00000001
45790 @ 398592:                     ASSPAR
45791 @ 398593:                     CALL  

  7925    %finish
45792 @ 398594:                     LINE   7925 "regression-compile-tmp/imp22g-77.imp"
45793 @ 398634:                     LOCATE L_0003

  7926  %end;  !get procedure declaration
  7927  
45794 @ 398637:                     LINE   7926 "regression-compile-tmp/imp22g-77.imp"
45795 @ 398677:                  END    _lev0id0_GETSTATEMENTS_GETDECLARATION_GETPROCEDUREDECLARATION {lev=4 --> 3}

  7928  %routine GET INITIAL VALUE(%record(identinfo)%name dp)
45796 @ 398678:                  LINE   7928 "regression-compile-tmp/imp22g-77.imp"
45797 @ 398718:                  DEF    GETINITIALVALUE (_lev0id0_GETSTATEMENTS_GETDECLARATION_GETINITIALVALUE) p1=V_01ac 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
45798 @ 398745:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
45799 @ 398746:                        DEF    DP p1=V_01ad a/tf=42 b/format=9b c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
45800 @ 398760:                     FINISH ) {lev=4}

  7929  %integer present
45801 @ 398761:                     LINE   7929 "regression-compile-tmp/imp22g-77.imp"
45802 @ 398801:                     DEF    PRESENT p1=V_01ae a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  7930    present=0
45803 @ 398820:                     LINE   7930 "regression-compile-tmp/imp22g-77.imp"
45804 @ 398860:                     PUSH   PRESENT
45805 @ 398863:                     PUSHI  #0x00000000
45806 @ 398868:                     ASSVAL

  7931    jammy = 0
45807 @ 398869:                     LINE   7931 "regression-compile-tmp/imp22g-77.imp"
45808 @ 398909:                     PUSH   JAMMY
45809 @ 398912:                     PUSHI  #0x00000000
45810 @ 398917:                     ASSVAL

  7932    %if a assop(itemtype)=TRUE %start
45811 @ 398918:                     LINE   7932 "regression-compile-tmp/imp22g-77.imp"
45812 @ 398958:                     PUSH   AASSOP
45813 @ 398961:                     PUSH   ITEMTYPE
45814 @ 398964:                     ASSPAR
45815 @ 398965:                     CALL  
45816 @ 398966:                     PUSHI  #0x00000001
45817 @ 398971:                     JUMPIF # L_0004

  7933      get VALUE(itemtype)
45818 @ 398975:                     LINE   7933 "regression-compile-tmp/imp22g-77.imp"
45819 @ 399015:                     PUSH   GETVALUE
45820 @ 399018:                     PUSH   ITEMTYPE
45821 @ 399021:                     ASSPAR
45822 @ 399022:                     CALL  

  7934      dp_flags = dp_flags!okflag
45823 @ 399023:                     LINE   7934 "regression-compile-tmp/imp22g-77.imp"
45824 @ 399063:                     PUSH   DP
45825 @ 399066:                     SELECT 1
45826 @ 399069:                     PUSH   DP
45827 @ 399072:                     SELECT 1
45828 @ 399075:                     PUSHI  #0x00000040
45829 @ 399080:                     OR    
45830 @ 399081:                     ASSVAL

  7935      present = 1
45831 @ 399082:                     LINE   7935 "regression-compile-tmp/imp22g-77.imp"
45832 @ 399122:                     PUSH   PRESENT
45833 @ 399125:                     PUSHI  #0x00000001
45834 @ 399130:                     ASSVAL

  7936    %finish
45835 @ 399131:                     LINE   7936 "regression-compile-tmp/imp22g-77.imp"
45836 @ 399171:                     LOCATE L_0004

  7937    %if mode >= framemode %start;  !dynamic
45837 @ 399174:                     LINE   7937 "regression-compile-tmp/imp22g-77.imp"
45838 @ 399214:                     PUSH   MODE
45839 @ 399217:                     PUSHI  #0x000000a8
45840 @ 399222:                     JUMPIF < L_0004

  7938      %if present # 0 %start
45841 @ 399226:                     LINE   7938 "regression-compile-tmp/imp22g-77.imp"
45842 @ 399266:                     PUSH   PRESENT
45843 @ 399269:                     PUSHI  #0x00000000
45844 @ 399274:                     JUMPIF = L_0007

  7939        atomp = expp %and nonstandard(1) %if item # 0
45845 @ 399278:                     LINE   7939 "regression-compile-tmp/imp22g-77.imp"
45846 @ 399318:                     PUSH   ITEM
45847 @ 399321:                     PUSHI  #0x00000000
45848 @ 399326:                     JUMPIF = L_000a
45849 @ 399330:                     PUSH   ATOMP
45850 @ 399333:                     PUSH   EXPP
45851 @ 399336:                     ASSVAL
45852 @ 399337:                     PUSH   NONSTANDARD
45853 @ 399340:                     PUSHI  #0x00000001
45854 @ 399345:                     ASSPAR
45855 @ 399346:                     CALL  
45856 @ 399347:                     LOCATE L_000a

  7940        %if itemtype < 0 %start
45857 @ 399350:                     LINE   7940 "regression-compile-tmp/imp22g-77.imp"
45858 @ 399390:                     PUSH   ITEMTYPE
45859 @ 399393:                     PUSHI  #0x00000000
45860 @ 399398:                     JUMPIF >= L_000a

  7941          putact(okass,dlim0+ad,normitem)
45861 @ 399402:                     LINE   7941 "regression-compile-tmp/imp22g-77.imp"
45862 @ 399442:                     PUSH   PUTACT
45863 @ 399445:                     PUSHI  #0x00000021
45864 @ 399450:                     ASSPAR
45865 @ 399451:                     PUSH   DLIM0
45866 @ 399454:                     PUSHI  #0x00004000
45867 @ 399459:                     ADD   
45868 @ 399460:                     ASSPAR
45869 @ 399461:                     PUSH   NORMITEM
45870 @ 399464:                     CALL  
45871 @ 399465:                     ASSPAR
45872 @ 399466:                     CALL  

  7942        %else
45873 @ 399467:                     LINE   7942 "regression-compile-tmp/imp22g-77.imp"
45874 @ 399507:                     GOTO   L_0009
45875 @ 399510:                     LOCATE L_000a

  7943          putact(okass+jammy,dlim0,normitem)
45876 @ 399513:                     LINE   7943 "regression-compile-tmp/imp22g-77.imp"
45877 @ 399553:                     PUSH   PUTACT
45878 @ 399556:                     PUSHI  #0x00000021
45879 @ 399561:                     PUSH   JAMMY
45880 @ 399564:                     ADD   
45881 @ 399565:                     ASSPAR
45882 @ 399566:                     PUSH   DLIM0
45883 @ 399569:                     ASSPAR
45884 @ 399570:                     PUSH   NORMITEM
45885 @ 399573:                     CALL  
45886 @ 399574:                     ASSPAR
45887 @ 399575:                     CALL  

  7944        %finish
45888 @ 399576:                     LINE   7944 "regression-compile-tmp/imp22g-77.imp"
45889 @ 399616:                     LOCATE L_0009

  7945        compile(np0)
45890 @ 399619:                     LINE   7945 "regression-compile-tmp/imp22g-77.imp"
45891 @ 399659:                     PUSH   COMPILE
45892 @ 399662:                     PUSH   NP0
45893 @ 399665:                     ASSPAR
45894 @ 399666:                     CALL  

  7946      %finish
45895 @ 399667:                     LINE   7946 "regression-compile-tmp/imp22g-77.imp"
45896 @ 399707:                     LOCATE L_0007

  7947    %finish %else %if mode = constmode %start
45897 @ 399710:                     LINE   7947 "regression-compile-tmp/imp22g-77.imp"
45898 @ 399750:                     GOTO   L_0003
45899 @ 399753:                     LOCATE L_0004
45900 @ 399756:                     PUSH   MODE
45901 @ 399759:                     PUSHI  #0x0000007a
45902 @ 399764:                     JUMPIF # L_0004

  7948      syntax error %if present = 0
45903 @ 399768:                     LINE   7948 "regression-compile-tmp/imp22g-77.imp"
45904 @ 399808:                     PUSH   PRESENT
45905 @ 399811:                     PUSHI  #0x00000000
45906 @ 399816:                     JUMPIF # L_0007
45907 @ 399820:                     PUSH   SYNTAXERROR
45908 @ 399823:                     CALL  
45909 @ 399824:                     LOCATE L_0007

  7949      %if itemtype < 0 %start;  !name
45910 @ 399827:                     LINE   7949 "regression-compile-tmp/imp22g-77.imp"
45911 @ 399867:                     PUSH   ITEMTYPE
45912 @ 399870:                     PUSHI  #0x00000000
45913 @ 399875:                     JUMPIF >= L_0007

  7950        dp_flags = writable+readable
45914 @ 399879:                     LINE   7950 "regression-compile-tmp/imp22g-77.imp"
45915 @ 399919:                     PUSH   DP
45916 @ 399922:                     SELECT 1
45917 @ 399925:                     PUSHI  #0x00000001
45918 @ 399930:                     PUSHI  #0x00000002
45919 @ 399935:                     ADD   
45920 @ 399936:                     ASSVAL

  7951        dp_mode = absmode;  dp_val = value
45921 @ 399937:                     LINE   7951 "regression-compile-tmp/imp22g-77.imp"
45922 @ 399977:                     PUSH   DP
45923 @ 399980:                     SELECT 8
45924 @ 399983:                     PUSHI  #0x00000038
45925 @ 399988:                     ASSVAL
45926 @ 399989:                     LINE   7951 "regression-compile-tmp/imp22g-77.imp"
45927 @ 400029:                     PUSH   DP
45928 @ 400032:                     SELECT 9
45929 @ 400035:                     PUSH   VALUE
45930 @ 400038:                     ASSVAL

  7952      %else
45931 @ 400039:                     LINE   7952 "regression-compile-tmp/imp22g-77.imp"
45932 @ 400079:                     GOTO   L_0006
45933 @ 400082:                     LOCATE L_0007

  7953        faultnum = rangerr+point+warn %if faultnum = rangerr+point
45934 @ 400085:                     LINE   7953 "regression-compile-tmp/imp22g-77.imp"
45935 @ 400125:                     PUSH   FAULTNUM
45936 @ 400128:                     PUSHI  #0x00000018
45937 @ 400133:                     PUSHI  #0x00000040
45938 @ 400138:                     ADD   
45939 @ 400139:                     JUMPIF # L_000a
45940 @ 400143:                     PUSH   FAULTNUM
45941 @ 400146:                     PUSHI  #0x00000018
45942 @ 400151:                     PUSHI  #0x00000040
45943 @ 400156:                     ADD   
45944 @ 400157:                     PUSHI  #0xffffff80
45945 @ 400162:                     ADD   
45946 @ 400163:                     ASSVAL
45947 @ 400164:                     LOCATE L_000a

  7954        %if itemsize <= 0 %then dump const(value,1) %c
  7955        %else dp_mode = litmode %and dp_val = value
45948 @ 400167:                     LINE   7954 "regression-compile-tmp/imp22g-77.imp"
45949 @ 400207:                     PUSH   ITEMSIZE
45950 @ 400210:                     PUSHI  #0x00000000
45951 @ 400215:                     JUMPIF > L_000a
45952 @ 400219:                     PUSH   DUMPCONST
45953 @ 400222:                     PUSH   VALUE
45954 @ 400225:                     ASSPAR
45955 @ 400226:                     PUSHI  #0x00000001
45956 @ 400231:                     ASSPAR
45957 @ 400232:                     CALL  
45958 @ 400233:                     GOTO   L_0009
45959 @ 400236:                     LOCATE L_000a
45960 @ 400239:                     PUSH   DP
45961 @ 400242:                     SELECT 8
45962 @ 400245:                     PUSHI  #0x0000003c
45963 @ 400250:                     ASSVAL
45964 @ 400251:                     PUSH   DP
45965 @ 400254:                     SELECT 9
45966 @ 400257:                     PUSH   VALUE
45967 @ 400260:                     ASSVAL
45968 @ 400261:                     LOCATE L_0009

  7956      %finish
45969 @ 400264:                     LINE   7956 "regression-compile-tmp/imp22g-77.imp"
45970 @ 400304:                     LOCATE L_0006

  7957    %else;  !own
45971 @ 400307:                     LINE   7957 "regression-compile-tmp/imp22g-77.imp"
45972 @ 400347:                     GOTO   L_0003
45973 @ 400350:                     LOCATE L_0004

  7958      %if present # 0 %start
45974 @ 400353:                     LINE   7958 "regression-compile-tmp/imp22g-77.imp"
45975 @ 400393:                     PUSH   PRESENT
45976 @ 400396:                     PUSHI  #0x00000000
45977 @ 400401:                     JUMPIF = L_0007

  7959        faultnum = rangerr+point+warn %if faultnum = rangerr+point
45978 @ 400405:                     LINE   7959 "regression-compile-tmp/imp22g-77.imp"
45979 @ 400445:                     PUSH   FAULTNUM
45980 @ 400448:                     PUSHI  #0x00000018
45981 @ 400453:                     PUSHI  #0x00000040
45982 @ 400458:                     ADD   
45983 @ 400459:                     JUMPIF # L_000a
45984 @ 400463:                     PUSH   FAULTNUM
45985 @ 400466:                     PUSHI  #0x00000018
45986 @ 400471:                     PUSHI  #0x00000040
45987 @ 400476:                     ADD   
45988 @ 400477:                     PUSHI  #0xffffff80
45989 @ 400482:                     ADD   
45990 @ 400483:                     ASSVAL
45991 @ 400484:                     LOCATE L_000a

  7960        dump const(value,1)
45992 @ 400487:                     LINE   7960 "regression-compile-tmp/imp22g-77.imp"
45993 @ 400527:                     PUSH   DUMPCONST
45994 @ 400530:                     PUSH   VALUE
45995 @ 400533:                     ASSPAR
45996 @ 400534:                     PUSHI  #0x00000001
45997 @ 400539:                     ASSPAR
45998 @ 400540:                     CALL  

  7961      %else
45999 @ 400541:                     LINE   7961 "regression-compile-tmp/imp22g-77.imp"
46000 @ 400581:                     GOTO   L_0006
46001 @ 400584:                     LOCATE L_0007

  7962        %if itemtype < 0 %then fill own(4) %else fill own(imod(itemsize))
46002 @ 400587:                     LINE   7962 "regression-compile-tmp/imp22g-77.imp"
46003 @ 400627:                     PUSH   ITEMTYPE
46004 @ 400630:                     PUSHI  #0x00000000
46005 @ 400635:                     JUMPIF >= L_000a
46006 @ 400639:                     PUSH   FILLOWN
46007 @ 400642:                     PUSHI  #0x00000004
46008 @ 400647:                     ASSPAR
46009 @ 400648:                     CALL  
46010 @ 400649:                     GOTO   L_0009
46011 @ 400652:                     LOCATE L_000a
46012 @ 400655:                     PUSH   FILLOWN
46013 @ 400658:                     PUSH   IMOD
46014 @ 400661:                     PUSH   ITEMSIZE
46015 @ 400664:                     ASSPAR
46016 @ 400665:                     CALL  
46017 @ 400666:                     ASSPAR
46018 @ 400667:                     CALL  
46019 @ 400668:                     LOCATE L_0009

  7963      %finish
46020 @ 400671:                     LINE   7963 "regression-compile-tmp/imp22g-77.imp"
46021 @ 400711:                     LOCATE L_0006

  7964    %finish
46022 @ 400714:                     LINE   7964 "regression-compile-tmp/imp22g-77.imp"
46023 @ 400754:                     LOCATE L_0003

  7965  %end;  !get initial value
  7966  
46024 @ 400757:                     LINE   7965 "regression-compile-tmp/imp22g-77.imp"
46025 @ 400797:                  END    _lev0id0_GETSTATEMENTS_GETDECLARATION_GETINITIALVALUE {lev=4 --> 3}

  7967  dreg = d0;  areg = a0;  stmax = 8;  !allow for RETAD & LINK
46026 @ 400798:                  LINE   7967 "regression-compile-tmp/imp22g-77.imp"
46027 @ 400838:                  PUSH   DREG
46028 @ 400841:                  PUSHI  #0x00000001
46029 @ 400846:                  ASSVAL
46030 @ 400847:                  LINE   7967 "regression-compile-tmp/imp22g-77.imp"
46031 @ 400887:                  PUSH   AREG
46032 @ 400890:                  PUSHI  #0x00000009
46033 @ 400895:                  ASSVAL
46034 @ 400896:                  LINE   7967 "regression-compile-tmp/imp22g-77.imp"
46035 @ 400936:                  PUSH   STMAX
46036 @ 400939:                  PUSHI  #0x00000008
46037 @ 400944:                  ASSVAL

  7968  max = 0;  base = disp
46038 @ 400945:                  LINE   7968 "regression-compile-tmp/imp22g-77.imp"
46039 @ 400985:                  PUSH   MAX
46040 @ 400988:                  PUSHI  #0x00000000
46041 @ 400993:                  ASSVAL
46042 @ 400994:                  LINE   7968 "regression-compile-tmp/imp22g-77.imp"
46043 @ 401034:                  PUSH   BASE
46044 @ 401037:                  PUSH   DISP
46045 @ 401040:                  ASSVAL

  7969  %cycle
46046 @ 401041:                  LINE   7969 "regression-compile-tmp/imp22g-77.imp"
46047 @ 401081:                  LOCATE L_0003

  7970    disp = base
46048 @ 401084:                  LINE   7970 "regression-compile-tmp/imp22g-77.imp"
46049 @ 401124:                  PUSH   DISP
46050 @ 401127:                  PUSH   BASE
46051 @ 401130:                  ASSVAL

  7971    %cycle
46052 @ 401131:                  LINE   7971 "regression-compile-tmp/imp22g-77.imp"
46053 @ 401171:                  LOCATE L_0006

  7972      decl = 0
46054 @ 401174:                  LINE   7972 "regression-compile-tmp/imp22g-77.imp"
46055 @ 401214:                  PUSH   DECL
46056 @ 401217:                  PUSHI  #0x00000000
46057 @ 401222:                  ASSVAL

  7973      decl_flags = flags;  decl_mode = mode
46058 @ 401223:                  LINE   7973 "regression-compile-tmp/imp22g-77.imp"
46059 @ 401263:                  PUSH   DECL
46060 @ 401266:                  SELECT 1
46061 @ 401269:                  PUSH   FLAGS
46062 @ 401272:                  ASSVAL
46063 @ 401273:                  LINE   7973 "regression-compile-tmp/imp22g-77.imp"
46064 @ 401313:                  PUSH   DECL
46065 @ 401316:                  SELECT 8
46066 @ 401319:                  PUSH   MODE
46067 @ 401322:                  ASSVAL

  7974      adim = -1
46068 @ 401323:                  LINE   7974 "regression-compile-tmp/imp22g-77.imp"
46069 @ 401363:                  PUSH   ADIM
46070 @ 401366:                  PUSHI  #0x00000001
46071 @ 401371:                  NEGATE
46072 @ 401372:                  ASSVAL

  7975      %while a(kattrib)=TRUE %cycle
46073 @ 401373:                  LINE   7975 "regression-compile-tmp/imp22g-77.imp"
46074 @ 401413:                  LOCATE L_0009
46075 @ 401416:                  PUSH   A
46076 @ 401419:                  PUSHI  #0x0000001a
46077 @ 401424:                  ASSPAR
46078 @ 401425:                  CALL  
46079 @ 401426:                  PUSHI  #0x00000001
46080 @ 401431:                  JUMPIF # L_000a

  7976        decl_flags = decl_flags!!(1<<subatom)
46081 @ 401435:                  LINE   7976 "regression-compile-tmp/imp22g-77.imp"
46082 @ 401475:                  PUSH   DECL
46083 @ 401478:                  SELECT 1
46084 @ 401481:                  PUSH   DECL
46085 @ 401484:                  SELECT 1
46086 @ 401487:                  PUSHI  #0x00000001
46087 @ 401492:                  PUSH   SUBATOM
46088 @ 401495:                  LSH   
46089 @ 401496:                  XOR   
46090 @ 401497:                  ASSVAL

  7977      %repeat
46091 @ 401498:                  LINE   7977 "regression-compile-tmp/imp22g-77.imp"
46092 @ 401538:                  REPEAT L_0009
46093 @ 401541:                  LOCATE L_000a

  7978      %if depth = 0 %and a(left)=TRUE %start;  !start of sub-group
46094 @ 401544:                  LINE   7978 "regression-compile-tmp/imp22g-77.imp"
46095 @ 401584:                  PUSH   DEPTH
46096 @ 401587:                  PUSHI  #0x00000000
46097 @ 401592:                  JUMPIF # L_000a
46098 @ 401596:                  PUSH   A
46099 @ 401599:                  PUSHI  #0x00000037
46100 @ 401604:                  ASSPAR
46101 @ 401605:                  CALL  
46102 @ 401606:                  PUSHI  #0x00000001
46103 @ 401611:                  JUMPIF # L_000a

  7979        align(disp,2)
  7980  !      ad_cat = ad_cat+1 %if mode = 0
46104 @ 401615:                  LINE   7979 "regression-compile-tmp/imp22g-77.imp"
46105 @ 401655:                  PUSH   ALIGN
46106 @ 401658:                  PUSH   DISP
46107 @ 401661:                  ASSPAR
46108 @ 401662:                  PUSHI  #0x00000002
46109 @ 401667:                  ASSPAR
46110 @ 401668:                  CALL  

  7981        get DECLARATION(flags,mode,disp,0);  get(right)
  7982  !      ad_cat = ad_cat-1 %if mode = 0
46111 @ 401669:                  LINE   7981 "regression-compile-tmp/imp22g-77.imp"
46112 @ 401709:                  PUSH   GETDECLARATION
46113 @ 401712:                  PUSH   FLAGS
46114 @ 401715:                  ASSPAR
46115 @ 401716:                  PUSH   MODE
46116 @ 401719:                  ASSPAR
46117 @ 401720:                  PUSH   DISP
46118 @ 401723:                  ASSPAR
46119 @ 401724:                  PUSHI  #0x00000000
46120 @ 401729:                  ASSPAR
46121 @ 401730:                  CALL  
46122 @ 401731:                  LINE   7981 "regression-compile-tmp/imp22g-77.imp"
46123 @ 401771:                  PUSH   GET
46124 @ 401774:                  PUSHI  #0x0000003d
46125 @ 401779:                  ASSPAR
46126 @ 401780:                  CALL  

  7983      %finish %else %if a(rpred)=TRUE %start;  !%routine,(%predicate)
46127 @ 401781:                  LINE   7983 "regression-compile-tmp/imp22g-77.imp"
46128 @ 401821:                  GOTO   L_0009
46129 @ 401824:                  LOCATE L_000a
46130 @ 401827:                  PUSH   A
46131 @ 401830:                  PUSHI  #0x00000024
46132 @ 401835:                  ASSPAR
46133 @ 401836:                  CALL  
46134 @ 401837:                  PUSHI  #0x00000001
46135 @ 401842:                  JUMPIF # L_000a

  7984        %if subatom # 0 %start;  !pred
46136 @ 401846:                  LINE   7984 "regression-compile-tmp/imp22g-77.imp"
46137 @ 401886:                  PUSH   SUBATOM
46138 @ 401889:                  PUSHI  #0x00000000
46139 @ 401894:                  JUMPIF = L_000d

  7985          decl_flags = decl_flags&(\(writable))
46140 @ 401898:                  LINE   7985 "regression-compile-tmp/imp22g-77.imp"
46141 @ 401938:                  PUSH   DECL
46142 @ 401941:                  SELECT 1
46143 @ 401944:                  PUSH   DECL
46144 @ 401947:                  SELECT 1
46145 @ 401950:                  PUSHI  #0x00000001
46146 @ 401955:                  NOT   
46147 @ 401956:                  AND   
46148 @ 401957:                  ASSVAL

  7986          decl_flags = decl_flags!volatile %if control&volbit # 0
46149 @ 401958:                  LINE   7986 "regression-compile-tmp/imp22g-77.imp"
46150 @ 401998:                  PUSH   CONTROL
46151 @ 402001:                  PUSHI  #0x00010000
46152 @ 402006:                  AND   
46153 @ 402007:                  PUSHI  #0x00000000
46154 @ 402012:                  JUMPIF = L_0010
46155 @ 402016:                  PUSH   DECL
46156 @ 402019:                  SELECT 1
46157 @ 402022:                  PUSH   DECL
46158 @ 402025:                  SELECT 1
46159 @ 402028:                  PUSHI  #0x00000004
46160 @ 402033:                  OR    
46161 @ 402034:                  ASSVAL
46162 @ 402035:                  LOCATE L_0010

  7987          itemtype = booltype
46163 @ 402038:                  LINE   7987 "regression-compile-tmp/imp22g-77.imp"
46164 @ 402078:                  PUSH   ITEMTYPE
46165 @ 402081:                  PUSHI  #0x0000003a
46166 @ 402086:                  ASSVAL

  7988        %else
46167 @ 402087:                  LINE   7988 "regression-compile-tmp/imp22g-77.imp"
46168 @ 402127:                  GOTO   L_000c
46169 @ 402130:                  LOCATE L_000d

  7989          decl_flags = decl_flags&(\(writable+readable))
46170 @ 402133:                  LINE   7989 "regression-compile-tmp/imp22g-77.imp"
46171 @ 402173:                  PUSH   DECL
46172 @ 402176:                  SELECT 1
46173 @ 402179:                  PUSH   DECL
46174 @ 402182:                  SELECT 1
46175 @ 402185:                  PUSHI  #0x00000001
46176 @ 402190:                  PUSHI  #0x00000002
46177 @ 402195:                  ADD   
46178 @ 402196:                  NOT   
46179 @ 402197:                  AND   
46180 @ 402198:                  ASSVAL

  7990          itemtype = 0
46181 @ 402199:                  LINE   7990 "regression-compile-tmp/imp22g-77.imp"
46182 @ 402239:                  PUSH   ITEMTYPE
46183 @ 402242:                  PUSHI  #0x00000000
46184 @ 402247:                  ASSVAL

  7991        %finish
46185 @ 402248:                  LINE   7991 "regression-compile-tmp/imp22g-77.imp"
46186 @ 402288:                  LOCATE L_000c

  7992        get PROCEDURE DECLARATION
46187 @ 402291:                  LINE   7992 "regression-compile-tmp/imp22g-77.imp"
46188 @ 402331:                  PUSH   GETPROCEDUREDECLARATION
46189 @ 402334:                  CALL  

  7993        %return %if depth = 0
46190 @ 402335:                  LINE   7993 "regression-compile-tmp/imp22g-77.imp"
46191 @ 402375:                  PUSH   DEPTH
46192 @ 402378:                  PUSHI  #0x00000000
46193 @ 402383:                  JUMPIF # L_000d
46194 @ 402387:                  RETURN
46195 @ 402388:                  LOCATE L_000d

  7994      %else
46196 @ 402391:                  LINE   7994 "regression-compile-tmp/imp22g-77.imp"
46197 @ 402431:                  GOTO   L_0009
46198 @ 402434:                  LOCATE L_000a

  7995        get DATA TYPE
  7996        !Appendages
46199 @ 402437:                  LINE   7995 "regression-compile-tmp/imp22g-77.imp"
46200 @ 402477:                  PUSH   GETDATATYPE
46201 @ 402480:                  CALL  

  7997        %if a(fnmap)=TRUE %start;  !%fn, %map
46202 @ 402481:                  LINE   7997 "regression-compile-tmp/imp22g-77.imp"
46203 @ 402521:                  PUSH   A
46204 @ 402524:                  PUSHI  #0x00000023
46205 @ 402529:                  ASSPAR
46206 @ 402530:                  CALL  
46207 @ 402531:                  PUSHI  #0x00000001
46208 @ 402536:                  JUMPIF # L_000d

  7998          decl_flags = decl_flags!volatile %if control&volbit # 0
46209 @ 402540:                  LINE   7998 "regression-compile-tmp/imp22g-77.imp"
46210 @ 402580:                  PUSH   CONTROL
46211 @ 402583:                  PUSHI  #0x00010000
46212 @ 402588:                  AND   
46213 @ 402589:                  PUSHI  #0x00000000
46214 @ 402594:                  JUMPIF = L_0010
46215 @ 402598:                  PUSH   DECL
46216 @ 402601:                  SELECT 1
46217 @ 402604:                  PUSH   DECL
46218 @ 402607:                  SELECT 1
46219 @ 402610:                  PUSHI  #0x00000004
46220 @ 402615:                  OR    
46221 @ 402616:                  ASSVAL
46222 @ 402617:                  LOCATE L_0010

  7999          %if subatom = 0 %start
46223 @ 402620:                  LINE   7999 "regression-compile-tmp/imp22g-77.imp"
46224 @ 402660:                  PUSH   SUBATOM
46225 @ 402663:                  PUSHI  #0x00000000
46226 @ 402668:                  JUMPIF # L_0010

  8000            decl_flags = decl_flags&(\writable)
46227 @ 402672:                  LINE   8000 "regression-compile-tmp/imp22g-77.imp"
46228 @ 402712:                  PUSH   DECL
46229 @ 402715:                  SELECT 1
46230 @ 402718:                  PUSH   DECL
46231 @ 402721:                  SELECT 1
46232 @ 402724:                  PUSHI  #0x00000001
46233 @ 402729:                  NOT   
46234 @ 402730:                  AND   
46235 @ 402731:                  ASSVAL

  8001            fault(illstarred) %if itemsize = 0
46236 @ 402732:                  LINE   8001 "regression-compile-tmp/imp22g-77.imp"
46237 @ 402772:                  PUSH   ITEMSIZE
46238 @ 402775:                  PUSHI  #0x00000000
46239 @ 402780:                  JUMPIF # L_0013
46240 @ 402784:                  PUSH   FAULT
46241 @ 402787:                  PUSHI  #0x0000001e
46242 @ 402792:                  ASSPAR
46243 @ 402793:                  CALL  
46244 @ 402794:                  LOCATE L_0013

  8002          %finish
46245 @ 402797:                  LINE   8002 "regression-compile-tmp/imp22g-77.imp"
46246 @ 402837:                  LOCATE L_0010

  8003          get PROCEDURE DECLARATION
46247 @ 402840:                  LINE   8003 "regression-compile-tmp/imp22g-77.imp"
46248 @ 402880:                  PUSH   GETPROCEDUREDECLARATION
46249 @ 402883:                  CALL  

  8004          %return %if depth = 0
46250 @ 402884:                  LINE   8004 "regression-compile-tmp/imp22g-77.imp"
46251 @ 402924:                  PUSH   DEPTH
46252 @ 402927:                  PUSHI  #0x00000000
46253 @ 402932:                  JUMPIF # L_0010
46254 @ 402936:                  RETURN
46255 @ 402937:                  LOCATE L_0010

  8005        %else
46256 @ 402940:                  LINE   8005 "regression-compile-tmp/imp22g-77.imp"
46257 @ 402980:                  GOTO   L_000c
46258 @ 402983:                  LOCATE L_000d

  8006          decl_flags = decl_flags&(\proc)
46259 @ 402986:                  LINE   8006 "regression-compile-tmp/imp22g-77.imp"
46260 @ 403026:                  PUSH   DECL
46261 @ 403029:                  SELECT 1
46262 @ 403032:                  PUSH   DECL
46263 @ 403035:                  SELECT 1
46264 @ 403038:                  PUSHI  #0x00003000
46265 @ 403043:                  NOT   
46266 @ 403044:                  AND   
46267 @ 403045:                  ASSVAL

  8007          decl_type = itemtype
46268 @ 403046:                  LINE   8007 "regression-compile-tmp/imp22g-77.imp"
46269 @ 403086:                  PUSH   DECL
46270 @ 403089:                  SELECT 2
46271 @ 403092:                  PUSH   ITEMTYPE
46272 @ 403095:                  ASSVAL

  8008          %if a(keyname)=TRUE %start
46273 @ 403096:                  LINE   8008 "regression-compile-tmp/imp22g-77.imp"
46274 @ 403136:                  PUSH   A
46275 @ 403139:                  PUSHI  #0x00000021
46276 @ 403144:                  ASSPAR
46277 @ 403145:                  CALL  
46278 @ 403146:                  PUSHI  #0x00000001
46279 @ 403151:                  JUMPIF # L_0010

  8009            decl_flags = decl_flags+name;  itemtype = itemtype+name
46280 @ 403155:                  LINE   8009 "regression-compile-tmp/imp22g-77.imp"
46281 @ 403195:                  PUSH   DECL
46282 @ 403198:                  SELECT 1
46283 @ 403201:                  PUSH   DECL
46284 @ 403204:                  SELECT 1
46285 @ 403207:                  PUSHI  #0xffff8000
46286 @ 403212:                  ADD   
46287 @ 403213:                  ASSVAL
46288 @ 403214:                  LINE   8009 "regression-compile-tmp/imp22g-77.imp"
46289 @ 403254:                  PUSH   ITEMTYPE
46290 @ 403257:                  PUSH   ITEMTYPE
46291 @ 403260:                  PUSHI  #0xffff8000
46292 @ 403265:                  ADD   
46293 @ 403266:                  ASSVAL

  8010            itemsize = 4
46294 @ 403267:                  LINE   8010 "regression-compile-tmp/imp22g-77.imp"
46295 @ 403307:                  PUSH   ITEMSIZE
46296 @ 403310:                  PUSHI  #0x00000004
46297 @ 403315:                  ASSVAL

  8011          %finish
46298 @ 403316:                  LINE   8011 "regression-compile-tmp/imp22g-77.imp"
46299 @ 403356:                  LOCATE L_0010

  8012          %if a(keyarray)=TRUE %start
46300 @ 403359:                  LINE   8012 "regression-compile-tmp/imp22g-77.imp"
46301 @ 403399:                  PUSH   A
46302 @ 403402:                  PUSHI  #0x00000026
46303 @ 403407:                  ASSPAR
46304 @ 403408:                  CALL  
46305 @ 403409:                  PUSHI  #0x00000001
46306 @ 403414:                  JUMPIF # L_0010

  8013            fault(illstarred) %if itemtype = recstar;  !%record(*)%array
46307 @ 403418:                  LINE   8013 "regression-compile-tmp/imp22g-77.imp"
46308 @ 403458:                  PUSH   ITEMTYPE
46309 @ 403461:                  PUSHI  #0x00000043
46310 @ 403466:                  JUMPIF # L_0013
46311 @ 403470:                  PUSH   FAULT
46312 @ 403473:                  PUSHI  #0x0000001e
46313 @ 403478:                  ASSPAR
46314 @ 403479:                  CALL  
46315 @ 403480:                  LOCATE L_0013

  8014            adim = 0
  8015           ! ITEMTYPE now reflects element type (+name)
  8016           ! DECL is for the array itself
46316 @ 403483:                  LINE   8014 "regression-compile-tmp/imp22g-77.imp"
46317 @ 403523:                  PUSH   ADIM
46318 @ 403526:                  PUSHI  #0x00000000
46319 @ 403531:                  ASSVAL

  8017            decl_flags = decl_flags&(\name)
46320 @ 403532:                  LINE   8017 "regression-compile-tmp/imp22g-77.imp"
46321 @ 403572:                  PUSH   DECL
46322 @ 403575:                  SELECT 1
46323 @ 403578:                  PUSH   DECL
46324 @ 403581:                  SELECT 1
46325 @ 403584:                  PUSHI  #0xffff8000
46326 @ 403589:                  NOT   
46327 @ 403590:                  AND   
46328 @ 403591:                  ASSVAL

  8018            decl_type = arrstar
46329 @ 403592:                  LINE   8018 "regression-compile-tmp/imp22g-77.imp"
46330 @ 403632:                  PUSH   DECL
46331 @ 403635:                  SELECT 2
46332 @ 403638:                  PUSHI  #0x00000041
46333 @ 403643:                  ASSVAL

  8019            decl_flags = decl_flags!arrflag %if control&arrbit # 0
46334 @ 403644:                  LINE   8019 "regression-compile-tmp/imp22g-77.imp"
46335 @ 403684:                  PUSH   CONTROL
46336 @ 403687:                  PUSHI  #0x80000000
46337 @ 403692:                  AND   
46338 @ 403693:                  PUSHI  #0x00000000
46339 @ 403698:                  JUMPIF = L_0013
46340 @ 403702:                  PUSH   DECL
46341 @ 403705:                  SELECT 1
46342 @ 403708:                  PUSH   DECL
46343 @ 403711:                  SELECT 1
46344 @ 403714:                  PUSHI  #0x00000008
46345 @ 403719:                  OR    
46346 @ 403720:                  ASSVAL
46347 @ 403721:                  LOCATE L_0013

  8020            %if a(left)=TRUE %start
46348 @ 403724:                  LINE   8020 "regression-compile-tmp/imp22g-77.imp"
46349 @ 403764:                  PUSH   A
46350 @ 403767:                  PUSHI  #0x00000037
46351 @ 403772:                  ASSPAR
46352 @ 403773:                  CALL  
46353 @ 403774:                  PUSHI  #0x00000001
46354 @ 403779:                  JUMPIF # L_0013

  8021              fault(notin+point) %if depth = 0
46355 @ 403783:                  LINE   8021 "regression-compile-tmp/imp22g-77.imp"
46356 @ 403823:                  PUSH   DEPTH
46357 @ 403826:                  PUSHI  #0x00000000
46358 @ 403831:                  JUMPIF # L_0016
46359 @ 403835:                  PUSH   FAULT
46360 @ 403838:                  PUSHI  #0x00000028
46361 @ 403843:                  PUSHI  #0x00000040
46362 @ 403848:                  ADD   
46363 @ 403849:                  ASSPAR
46364 @ 403850:                  CALL  
46365 @ 403851:                  LOCATE L_0016

  8022              get LITERAL(inttype)
46366 @ 403854:                  LINE   8022 "regression-compile-tmp/imp22g-77.imp"
46367 @ 403894:                  PUSH   GETLITERAL
46368 @ 403897:                  PUSHI  #0x0000002b
46369 @ 403902:                  ASSPAR
46370 @ 403903:                  CALL  

  8023              %if value&(\7) # 0 %then expfault(rangerr) %else adim = value
46371 @ 403904:                  LINE   8023 "regression-compile-tmp/imp22g-77.imp"
46372 @ 403944:                  PUSH   VALUE
46373 @ 403947:                  PUSHI  #0x00000007
46374 @ 403952:                  NOT   
46375 @ 403953:                  AND   
46376 @ 403954:                  PUSHI  #0x00000000
46377 @ 403959:                  JUMPIF = L_0016
46378 @ 403963:                  PUSH   EXPFAULT
46379 @ 403966:                  PUSHI  #0x00000018
46380 @ 403971:                  ASSPAR
46381 @ 403972:                  CALL  
46382 @ 403973:                  GOTO   L_0015
46383 @ 403976:                  LOCATE L_0016
46384 @ 403979:                  PUSH   ADIM
46385 @ 403982:                  PUSH   VALUE
46386 @ 403985:                  ASSVAL
46387 @ 403986:                  LOCATE L_0015

  8024              get(right)
46388 @ 403989:                  LINE   8024 "regression-compile-tmp/imp22g-77.imp"
46389 @ 404029:                  PUSH   GET
46390 @ 404032:                  PUSHI  #0x0000003d
46391 @ 404037:                  ASSPAR
46392 @ 404038:                  CALL  

  8025              get(keyname);  matched = 0
46393 @ 404039:                  LINE   8025 "regression-compile-tmp/imp22g-77.imp"
46394 @ 404079:                  PUSH   GET
46395 @ 404082:                  PUSHI  #0x00000021
46396 @ 404087:                  ASSPAR
46397 @ 404088:                  CALL  
46398 @ 404089:                  LINE   8025 "regression-compile-tmp/imp22g-77.imp"
46399 @ 404129:                  PUSH   MATCHED
46400 @ 404132:                  PUSHI  #0x00000000
46401 @ 404137:                  ASSVAL

  8026            %finish
  8027           ! %array%name versus %array
46402 @ 404138:                  LINE   8026 "regression-compile-tmp/imp22g-77.imp"
46403 @ 404178:                  LOCATE L_0013

  8028            decl_flags = decl_flags+name %if a(keyname)=TRUE
46404 @ 404181:                  LINE   8028 "regression-compile-tmp/imp22g-77.imp"
46405 @ 404221:                  PUSH   A
46406 @ 404224:                  PUSHI  #0x00000021
46407 @ 404229:                  ASSPAR
46408 @ 404230:                  CALL  
46409 @ 404231:                  PUSHI  #0x00000001
46410 @ 404236:                  JUMPIF # L_0013
46411 @ 404240:                  PUSH   DECL
46412 @ 404243:                  SELECT 1
46413 @ 404246:                  PUSH   DECL
46414 @ 404249:                  SELECT 1
46415 @ 404252:                  PUSHI  #0xffff8000
46416 @ 404257:                  ADD   
46417 @ 404258:                  ASSVAL
46418 @ 404259:                  LOCATE L_0013

  8029          %finish
  8030         ! %record(*) or %string(*) needs %name (or @)
  8031         ! %string alone allowed only for %const%string
46419 @ 404262:                  LINE   8029 "regression-compile-tmp/imp22g-77.imp"
46420 @ 404302:                  LOCATE L_0010

  8032          fault(illstarred) %if itemsize = 0 %c
  8033                            %and decl_flags >= 0 %and disp ## jokerad %c
  8034                            %and decl_type # stringtype {const}
46421 @ 404305:                  LINE   8032 "regression-compile-tmp/imp22g-77.imp"
46422 @ 404345:                  PUSH   ITEMSIZE
46423 @ 404348:                  PUSHI  #0x00000000
46424 @ 404353:                  JUMPIF # L_0010
46425 @ 404357:                  PUSH   DECL
46426 @ 404360:                  SELECT 1
46427 @ 404363:                  PUSHI  #0x00000000
46428 @ 404368:                  JUMPIF < L_0010
46429 @ 404372:                  PUSH   DISP
46430 @ 404375:                  PUSH   JOKERAD
46431 @ 404378:                  JUMPIFA = L_0010
46432 @ 404382:                  PUSH   DECL
46433 @ 404385:                  SELECT 2
46434 @ 404388:                  PUSHI  #0x00000040
46435 @ 404393:                  JUMPIF = L_0010
46436 @ 404397:                  PUSH   FAULT
46437 @ 404400:                  PUSHI  #0x0000001e
46438 @ 404405:                  ASSPAR
46439 @ 404406:                  CALL  
46440 @ 404407:                  LOCATE L_0010

  8035          %if disp == c_val %start;  !main declaration
46441 @ 404410:                  LINE   8035 "regression-compile-tmp/imp22g-77.imp"
46442 @ 404450:                  PUSH   DISP
46443 @ 404453:                  PUSH   C
46444 @ 404456:                  SELECT 28
46445 @ 404459:                  JUMPIFA # L_0010

  8036            fault(notinblock) %if stopper = 0
46446 @ 404463:                  LINE   8036 "regression-compile-tmp/imp22g-77.imp"
46447 @ 404503:                  PUSH   STOPPER
46448 @ 404506:                  PUSHI  #0x00000000
46449 @ 404511:                  JUMPIF # L_0013
46450 @ 404515:                  PUSH   FAULT
46451 @ 404518:                  PUSHI  #0x00000026
46452 @ 404523:                  ASSPAR
46453 @ 404524:                  CALL  
46454 @ 404525:                  LOCATE L_0013

  8037            %if c_status >= hadon %start
46455 @ 404528:                  LINE   8037 "regression-compile-tmp/imp22g-77.imp"
46456 @ 404568:                  PUSH   C
46457 @ 404571:                  SELECT 6
46458 @ 404574:                  PUSHI  #0x00001000
46459 @ 404579:                  JUMPIF < L_0013

  8038              %if c_forward!c_return # 0 %or curlab # c_lab1 %start
46460 @ 404583:                  LINE   8038 "regression-compile-tmp/imp22g-77.imp"
46461 @ 404623:                  PUSH   C
46462 @ 404626:                  SELECT 17
46463 @ 404629:                  PUSH   C
46464 @ 404632:                  SELECT 22
46465 @ 404635:                  OR    
46466 @ 404636:                  PUSHI  #0x00000000
46467 @ 404641:                  JUMPIF # L_0017
46468 @ 404645:                  PUSH   CURLAB
46469 @ 404648:                  PUSH   C
46470 @ 404651:                  SELECT 18
46471 @ 404654:                  JUMPIF = L_0016
46472 @ 404658:                  LOCATE L_0017

  8039                fault(ordererr)
46473 @ 404661:                  LINE   8039 "regression-compile-tmp/imp22g-77.imp"
46474 @ 404701:                  PUSH   FAULT
46475 @ 404704:                  PUSHI  #0x00000016
46476 @ 404709:                  ASSPAR
46477 @ 404710:                  CALL  

  8040              %finish %else %if c_status&hadordererr = 0 %start
46478 @ 404711:                  LINE   8040 "regression-compile-tmp/imp22g-77.imp"
46479 @ 404751:                  GOTO   L_0015
46480 @ 404754:                  LOCATE L_0016
46481 @ 404757:                  PUSH   C
46482 @ 404760:                  SELECT 6
46483 @ 404763:                  PUSHI  #0x00002000
46484 @ 404768:                  AND   
46485 @ 404769:                  PUSHI  #0x00000000
46486 @ 404774:                  JUMPIF # L_0016

  8041                fault(ordererr+warn);  c_status = c_status+hadordererr
46487 @ 404778:                  LINE   8041 "regression-compile-tmp/imp22g-77.imp"
46488 @ 404818:                  PUSH   FAULT
46489 @ 404821:                  PUSHI  #0x00000016
46490 @ 404826:                  PUSHI  #0xffffff80
46491 @ 404831:                  ADD   
46492 @ 404832:                  ASSPAR
46493 @ 404833:                  CALL  
46494 @ 404834:                  LINE   8041 "regression-compile-tmp/imp22g-77.imp"
46495 @ 404874:                  PUSH   C
46496 @ 404877:                  SELECT 6
46497 @ 404880:                  PUSH   C
46498 @ 404883:                  SELECT 6
46499 @ 404886:                  PUSHI  #0x00002000
46500 @ 404891:                  ADD   
46501 @ 404892:                  ASSVAL

  8042              %finish
46502 @ 404893:                  LINE   8042 "regression-compile-tmp/imp22g-77.imp"
46503 @ 404933:                  LOCATE L_0016
46504 @ 404936:                  LOCATE L_0015

  8043            %finish
46505 @ 404939:                  LINE   8043 "regression-compile-tmp/imp22g-77.imp"
46506 @ 404979:                  LOCATE L_0013

  8044          %finish %else %if decl_flags&ext # 0 %and a(keyspec)=TRUE %start
46507 @ 404982:                  LINE   8044 "regression-compile-tmp/imp22g-77.imp"
46508 @ 405022:                  GOTO   L_000f
46509 @ 405025:                  LOCATE L_0010
46510 @ 405028:                  PUSH   DECL
46511 @ 405031:                  SELECT 1
46512 @ 405034:                  PUSHI  #0x00004000
46513 @ 405039:                  AND   
46514 @ 405040:                  PUSHI  #0x00000000
46515 @ 405045:                  JUMPIF = L_0010
46516 @ 405049:                  PUSH   A
46517 @ 405052:                  PUSHI  #0x00000025
46518 @ 405057:                  ASSPAR
46519 @ 405058:                  CALL  
46520 @ 405059:                  PUSHI  #0x00000001
46521 @ 405064:                  JUMPIF # L_0010

  8045            decl_flags = decl_flags!(spec+indirect)
46522 @ 405068:                  LINE   8045 "regression-compile-tmp/imp22g-77.imp"
46523 @ 405108:                  PUSH   DECL
46524 @ 405111:                  SELECT 1
46525 @ 405114:                  PUSH   DECL
46526 @ 405117:                  SELECT 1
46527 @ 405120:                  PUSHI  #0x00000100
46528 @ 405125:                  PUSHI  #0x00000800
46529 @ 405130:                  ADD   
46530 @ 405131:                  OR    
46531 @ 405132:                  ASSVAL

  8046          %finish
  8047         !Read identifier list
46532 @ 405133:                  LINE   8046 "regression-compile-tmp/imp22g-77.imp"
46533 @ 405173:                  LOCATE L_0010
46534 @ 405176:                  LOCATE L_000f

  8048          %cycle
46535 @ 405179:                  LINE   8048 "regression-compile-tmp/imp22g-77.imp"
46536 @ 405219:                  LOCATE L_000f

  8049            dlim0 = dlim
46537 @ 405222:                  LINE   8049 "regression-compile-tmp/imp22g-77.imp"
46538 @ 405262:                  PUSH   DLIM0
46539 @ 405265:                  PUSH   DLIM
46540 @ 405268:                  ASSVAL

  8050            %unless decl_type = arrstar %start;  !not array
46541 @ 405269:                  LINE   8050 "regression-compile-tmp/imp22g-77.imp"
46542 @ 405309:                  PUSH   DECL
46543 @ 405312:                  SELECT 2
46544 @ 405315:                  PUSHI  #0x00000041
46545 @ 405320:                  JUMPIF = L_0013

  8051              get QIDENT
46546 @ 405324:                  LINE   8051 "regression-compile-tmp/imp22g-77.imp"
46547 @ 405364:                  PUSH   GETQIDENT
46548 @ 405367:                  CALL  

  8052              assign address(itemsize)
46549 @ 405368:                  LINE   8052 "regression-compile-tmp/imp22g-77.imp"
46550 @ 405408:                  PUSH   ASSIGNADDRESS
46551 @ 405411:                  PUSH   ITEMSIZE
46552 @ 405414:                  ASSPAR
46553 @ 405415:                  CALL  

  8053              %if mode >= ownmode %and depth = 0 %start
46554 @ 405416:                  LINE   8053 "regression-compile-tmp/imp22g-77.imp"
46555 @ 405456:                  PUSH   MODE
46556 @ 405459:                  PUSHI  #0x0000006c
46557 @ 405464:                  JUMPIF < L_0016
46558 @ 405468:                  PUSH   DEPTH
46559 @ 405471:                  PUSHI  #0x00000000
46560 @ 405476:                  JUMPIF # L_0016

  8054                %if decl_flags&spec = 0 %then get INITIAL VALUE(ditem) %c
  8055                %else set own word(0) %and set own word(0)
46561 @ 405480:                  LINE   8054 "regression-compile-tmp/imp22g-77.imp"
46562 @ 405520:                  PUSH   DECL
46563 @ 405523:                  SELECT 1
46564 @ 405526:                  PUSHI  #0x00000100
46565 @ 405531:                  AND   
46566 @ 405532:                  PUSHI  #0x00000000
46567 @ 405537:                  JUMPIF # L_0019
46568 @ 405541:                  PUSH   GETINITIALVALUE
46569 @ 405544:                  PUSH   DITEM
46570 @ 405547:                  ASSPAR
46571 @ 405548:                  CALL  
46572 @ 405549:                  GOTO   L_0018
46573 @ 405552:                  LOCATE L_0019
46574 @ 405555:                  PUSH   SETOWNWORD
46575 @ 405558:                  PUSHI  #0x00000000
46576 @ 405563:                  ASSPAR
46577 @ 405564:                  CALL  
46578 @ 405565:                  PUSH   SETOWNWORD
46579 @ 405568:                  PUSHI  #0x00000000
46580 @ 405573:                  ASSPAR
46581 @ 405574:                  CALL  
46582 @ 405575:                  LOCATE L_0018

  8056              %finish
46583 @ 405578:                  LINE   8056 "regression-compile-tmp/imp22g-77.imp"
46584 @ 405618:                  LOCATE L_0016

  8057            %else
46585 @ 405621:                  LINE   8057 "regression-compile-tmp/imp22g-77.imp"
46586 @ 405661:                  GOTO   L_0012
46587 @ 405664:                  LOCATE L_0013

  8058              %cycle
46588 @ 405667:                  LINE   8058 "regression-compile-tmp/imp22g-77.imp"
46589 @ 405707:                  LOCATE L_0015

  8059                get QIDENT
46590 @ 405710:                  LINE   8059 "regression-compile-tmp/imp22g-77.imp"
46591 @ 405750:                  PUSH   GETQIDENT
46592 @ 405753:                  CALL  

  8060                assign address(0);  !(4 if name)
46593 @ 405754:                  LINE   8060 "regression-compile-tmp/imp22g-77.imp"
46594 @ 405794:                  PUSH   ASSIGNADDRESS
46595 @ 405797:                  PUSHI  #0x00000000
46596 @ 405802:                  ASSPAR
46597 @ 405803:                  CALL  

  8061                %exit %unless a(comma)=TRUE
46598 @ 405804:                  LINE   8061 "regression-compile-tmp/imp22g-77.imp"
46599 @ 405844:                  PUSH   A
46600 @ 405847:                  PUSHI  #0x0000003c
46601 @ 405852:                  ASSPAR
46602 @ 405853:                  CALL  
46603 @ 405854:                  PUSHI  #0x00000001
46604 @ 405859:                  JUMPIF = L_0019
46605 @ 405863:                  GOTO   L_0016
46606 @ 405866:                  LOCATE L_0019

  8062                atom = next atom
46607 @ 405869:                  LINE   8062 "regression-compile-tmp/imp22g-77.imp"
46608 @ 405909:                  PUSH   ATOM
46609 @ 405912:                  PUSH   NEXTATOM
46610 @ 405915:                  CALL  
46611 @ 405916:                  ASSVAL

  8063                %if atom # ident %start;  !ie new type
46612 @ 405917:                  LINE   8063 "regression-compile-tmp/imp22g-77.imp"
46613 @ 405957:                  PUSH   ATOM
46614 @ 405960:                  PUSHI  #0x00000035
46615 @ 405965:                  JUMPIF = L_0019

  8064                  %if adim = 0 %start;    !treat %array%name as %array(1)%name
46616 @ 405969:                  LINE   8064 "regression-compile-tmp/imp22g-77.imp"
46617 @ 406009:                  PUSH   ADIM
46618 @ 406012:                  PUSHI  #0x00000000
46619 @ 406017:                  JUMPIF # L_001c

  8065                    syntax error %if decl_flags >= 0
46620 @ 406021:                  LINE   8065 "regression-compile-tmp/imp22g-77.imp"
46621 @ 406061:                  PUSH   DECL
46622 @ 406064:                  SELECT 1
46623 @ 406067:                  PUSHI  #0x00000000
46624 @ 406072:                  JUMPIF < L_001f
46625 @ 406076:                  PUSH   SYNTAXERROR
46626 @ 406079:                  CALL  
46627 @ 406080:                  LOCATE L_001f

  8066                    adim = 1
46628 @ 406083:                  LINE   8066 "regression-compile-tmp/imp22g-77.imp"
46629 @ 406123:                  PUSH   ADIM
46630 @ 406126:                  PUSHI  #0x00000001
46631 @ 406131:                  ASSVAL

  8067                  %finish
46632 @ 406132:                  LINE   8067 "regression-compile-tmp/imp22g-77.imp"
46633 @ 406172:                  LOCATE L_001c

  8068                  get ARRAY DECLARATION(adim)
46634 @ 406175:                  LINE   8068 "regression-compile-tmp/imp22g-77.imp"
46635 @ 406215:                  PUSH   GETARRAYDECLARATION
46636 @ 406218:                  PUSH   ADIM
46637 @ 406221:                  ASSPAR
46638 @ 406222:                  CALL  

  8069                  -> exit22
46639 @ 406223:                  LINE   8069 "regression-compile-tmp/imp22g-77.imp"
46640 @ 406263:                  JUMP   L_01ad

  8070                %finish
46641 @ 406266:                  LINE   8070 "regression-compile-tmp/imp22g-77.imp"
46642 @ 406306:                  LOCATE L_0019

  8071              %repeat
46643 @ 406309:                  LINE   8071 "regression-compile-tmp/imp22g-77.imp"
46644 @ 406349:                  REPEAT L_0015
46645 @ 406352:                  LOCATE L_0016

  8072              %if adim # 0 %or %not a(left)=TRUE %start
46646 @ 406355:                  LINE   8072 "regression-compile-tmp/imp22g-77.imp"
46647 @ 406395:                  PUSH   ADIM
46648 @ 406398:                  PUSHI  #0x00000000
46649 @ 406403:                  JUMPIF # L_0017
46650 @ 406407:                  PUSH   A
46651 @ 406410:                  PUSHI  #0x00000037
46652 @ 406415:                  ASSPAR
46653 @ 406416:                  CALL  
46654 @ 406417:                  PUSHI  #0x00000001
46655 @ 406422:                  JUMPIF = L_0016
46656 @ 406426:                  LOCATE L_0017

  8073                 %if adim = 0 %start
46657 @ 406429:                  LINE   8073 "regression-compile-tmp/imp22g-77.imp"
46658 @ 406469:                  PUSH   ADIM
46659 @ 406472:                  PUSHI  #0x00000000
46660 @ 406477:                  JUMPIF # L_0019

  8074                   syntax error %if decl_flags >= 0
46661 @ 406481:                  LINE   8074 "regression-compile-tmp/imp22g-77.imp"
46662 @ 406521:                  PUSH   DECL
46663 @ 406524:                  SELECT 1
46664 @ 406527:                  PUSHI  #0x00000000
46665 @ 406532:                  JUMPIF < L_001c
46666 @ 406536:                  PUSH   SYNTAXERROR
46667 @ 406539:                  CALL  
46668 @ 406540:                  LOCATE L_001c

  8075                   adim = 1
46669 @ 406543:                  LINE   8075 "regression-compile-tmp/imp22g-77.imp"
46670 @ 406583:                  PUSH   ADIM
46671 @ 406586:                  PUSHI  #0x00000001
46672 @ 406591:                  ASSVAL

  8076                 %finish
46673 @ 406592:                  LINE   8076 "regression-compile-tmp/imp22g-77.imp"
46674 @ 406632:                  LOCATE L_0019

  8077                 get ARRAY DECLARATION(adim)
46675 @ 406635:                  LINE   8077 "regression-compile-tmp/imp22g-77.imp"
46676 @ 406675:                  PUSH   GETARRAYDECLARATION
46677 @ 406678:                  PUSH   ADIM
46678 @ 406681:                  ASSPAR
46679 @ 406682:                  CALL  

  8078                 -> exit2
46680 @ 406683:                  LINE   8078 "regression-compile-tmp/imp22g-77.imp"
46681 @ 406723:                  JUMP   L_01ae

  8079              %finish
46682 @ 406726:                  LINE   8079 "regression-compile-tmp/imp22g-77.imp"
46683 @ 406766:                  LOCATE L_0016

  8080              get ARRAY DECLARATION(adim)
46684 @ 406769:                  LINE   8080 "regression-compile-tmp/imp22g-77.imp"
46685 @ 406809:                  PUSH   GETARRAYDECLARATION
46686 @ 406812:                  PUSH   ADIM
46687 @ 406815:                  ASSPAR
46688 @ 406816:                  CALL  

  8081            %finish
46689 @ 406817:                  LINE   8081 "regression-compile-tmp/imp22g-77.imp"
46690 @ 406857:                  LOCATE L_0012

  8082            -> exit2 %unless a(comma)=TRUE
46691 @ 406860:                  LINE   8082 "regression-compile-tmp/imp22g-77.imp"
46692 @ 406900:                  PUSH   A
46693 @ 406903:                  PUSHI  #0x0000003c
46694 @ 406908:                  ASSPAR
46695 @ 406909:                  CALL  
46696 @ 406910:                  PUSHI  #0x00000001
46697 @ 406915:                  JUMPIF = L_0013
46698 @ 406919:                  JUMP   L_01ae
46699 @ 406922:                  LOCATE L_0013

  8083            atom = next atom
46700 @ 406925:                  LINE   8083 "regression-compile-tmp/imp22g-77.imp"
46701 @ 406965:                  PUSH   ATOM
46702 @ 406968:                  PUSH   NEXTATOM
46703 @ 406971:                  CALL  
46704 @ 406972:                  ASSVAL

  8084          %repeat %until atom # ident
46705 @ 406973:                  LINE   8084 "regression-compile-tmp/imp22g-77.imp"
46706 @ 407013:                  PUSH   ATOM
46707 @ 407016:                  PUSHI  #0x00000035
46708 @ 407021:                  JUMPIF # L_0010
46709 @ 407025:                  REPEAT L_000f
46710 @ 407028:                  LOCATE L_0010

  8085  exit22:
46711 @ 407031:                  LINE   8085 "regression-compile-tmp/imp22g-77.imp"
46712 @ 407071:                  LABEL  L_01ad

  8086          %continue
46713 @ 407074:                  LINE   8086 "regression-compile-tmp/imp22g-77.imp"
46714 @ 407114:                  GOTO   L_0008

  8087        %finish
46715 @ 407117:                  LINE   8087 "regression-compile-tmp/imp22g-77.imp"
46716 @ 407157:                  LOCATE L_000c

  8088      %finish
46717 @ 407160:                  LINE   8088 "regression-compile-tmp/imp22g-77.imp"
46718 @ 407200:                  LOCATE L_0009

  8089      %exit %unless a(comma)=TRUE;  ![NB %continue above]
46719 @ 407203:                  LINE   8089 "regression-compile-tmp/imp22g-77.imp"
46720 @ 407243:                  PUSH   A
46721 @ 407246:                  PUSHI  #0x0000003c
46722 @ 407251:                  ASSPAR
46723 @ 407252:                  CALL  
46724 @ 407253:                  PUSHI  #0x00000001
46725 @ 407258:                  JUMPIF = L_000a
46726 @ 407262:                  GOTO   L_0007
46727 @ 407265:                  LOCATE L_000a

  8090    %repeat
46728 @ 407268:                  LINE   8090 "regression-compile-tmp/imp22g-77.imp"
46729 @ 407308:                  LOCATE L_0008
46730 @ 407311:                  REPEAT L_0006
46731 @ 407314:                  LOCATE L_0007

  8091  exit2:
46732 @ 407317:                  LINE   8091 "regression-compile-tmp/imp22g-77.imp"
46733 @ 407357:                  LABEL  L_01ae

  8092    max = disp %if disp > max
46734 @ 407360:                  LINE   8092 "regression-compile-tmp/imp22g-77.imp"
46735 @ 407400:                  PUSH   DISP
46736 @ 407403:                  PUSH   MAX
46737 @ 407406:                  JUMPIF <= L_0007
46738 @ 407410:                  PUSH   MAX
46739 @ 407413:                  PUSH   DISP
46740 @ 407416:                  ASSVAL
46741 @ 407417:                  LOCATE L_0007

  8093  %repeat %until %not a(keyor)=TRUE
46742 @ 407420:                  LINE   8093 "regression-compile-tmp/imp22g-77.imp"
46743 @ 407460:                  PUSH   A
46744 @ 407463:                  PUSHI  #0x00000049
46745 @ 407468:                  ASSPAR
46746 @ 407469:                  CALL  
46747 @ 407470:                  PUSHI  #0x00000001
46748 @ 407475:                  JUMPIF # L_0004
46749 @ 407479:                  REPEAT L_0003
46750 @ 407482:                  LOCATE L_0004

  8094  disp = max
46751 @ 407485:                  LINE   8094 "regression-compile-tmp/imp22g-77.imp"
46752 @ 407525:                  PUSH   DISP
46753 @ 407528:                  PUSH   MAX
46754 @ 407531:                  ASSVAL

  8095  %end;  !get declaration
  8096  
46755 @ 407532:                  LINE   8095 "regression-compile-tmp/imp22g-77.imp"
46756 @ 407572:               END    _lev0id0_GETSTATEMENTS_GETDECLARATION {lev=3 --> 2}

  8097  initial(keyconst):
46757 @ 407573:               LINE   8097 "regression-compile-tmp/imp22g-77.imp"
46758 @ 407613:               PUSHI  #0x00000017
46759 @ 407618:               SLABEL 382

  8098    literal = 1
46760 @ 407621:               LINE   8098 "regression-compile-tmp/imp22g-77.imp"
46761 @ 407661:               PUSH   LITERAL
46762 @ 407664:               PUSHI  #0x00000001
46763 @ 407669:               ASSVAL

  8099    get DECLARATION(okflag+readable,constmode,cad,0)
46764 @ 407670:               LINE   8099 "regression-compile-tmp/imp22g-77.imp"
46765 @ 407710:               PUSH   GETDECLARATION
46766 @ 407713:               PUSHI  #0x00000040
46767 @ 407718:               PUSHI  #0x00000002
46768 @ 407723:               ADD   
46769 @ 407724:               ASSPAR
46770 @ 407725:               PUSHI  #0x0000007a
46771 @ 407730:               ASSPAR
46772 @ 407731:               PUSH   CAD
46773 @ 407734:               ASSPAR
46774 @ 407735:               PUSHI  #0x00000000
46775 @ 407740:               ASSPAR
46776 @ 407741:               CALL  

  8100    -> term
  8101  
46777 @ 407742:               LINE   8100 "regression-compile-tmp/imp22g-77.imp"
46778 @ 407782:               JUMP   L_018c

  8102  initial(atsign):
46779 @ 407785:               LINE   8102 "regression-compile-tmp/imp22g-77.imp"
46780 @ 407825:               PUSHI  #0x00000039
46781 @ 407830:               SLABEL 382

  8103    dump = 0
46782 @ 407833:               LINE   8103 "regression-compile-tmp/imp22g-77.imp"
46783 @ 407873:               PUSH   DUMP
46784 @ 407876:               PUSHI  #0x00000000
46785 @ 407881:               ASSVAL

  8104  atted:
46786 @ 407882:               LINE   8104 "regression-compile-tmp/imp22g-77.imp"
46787 @ 407922:               LABEL  L_0195

  8105    fault(lowlevel+warn+point) %and control = control!lowbit %if control&lowbit = 0
46788 @ 407925:               LINE   8105 "regression-compile-tmp/imp22g-77.imp"
46789 @ 407965:               PUSH   CONTROL
46790 @ 407968:               PUSHI  #0x00004000
46791 @ 407973:               AND   
46792 @ 407974:               PUSHI  #0x00000000
46793 @ 407979:               JUMPIF # L_0004
46794 @ 407983:               PUSH   FAULT
46795 @ 407986:               PUSHI  #0x0000000f
46796 @ 407991:               PUSHI  #0xffffff80
46797 @ 407996:               ADD   
46798 @ 407997:               PUSHI  #0x00000040
46799 @ 408002:               ADD   
46800 @ 408003:               ASSPAR
46801 @ 408004:               CALL  
46802 @ 408005:               PUSH   CONTROL
46803 @ 408008:               PUSH   CONTROL
46804 @ 408011:               PUSHI  #0x00004000
46805 @ 408016:               OR    
46806 @ 408017:               ASSVAL
46807 @ 408018:               LOCATE L_0004

  8106    get LITERAL(inttype)
46808 @ 408021:               LINE   8106 "regression-compile-tmp/imp22g-77.imp"
46809 @ 408061:               PUSH   GETLITERAL
46810 @ 408064:               PUSHI  #0x0000002b
46811 @ 408069:               ASSPAR
46812 @ 408070:               CALL  

  8107    jokerad = value
46813 @ 408071:               LINE   8107 "regression-compile-tmp/imp22g-77.imp"
46814 @ 408111:               PUSH   JOKERAD
46815 @ 408114:               PUSH   VALUE
46816 @ 408117:               ASSVAL

  8108    %if a(left)=TRUE %start
46817 @ 408118:               LINE   8108 "regression-compile-tmp/imp22g-77.imp"
46818 @ 408158:               PUSH   A
46819 @ 408161:               PUSHI  #0x00000037
46820 @ 408166:               ASSPAR
46821 @ 408167:               CALL  
46822 @ 408168:               PUSHI  #0x00000001
46823 @ 408173:               JUMPIF # L_0004

  8109      get MIDENT(a0,a7)
46824 @ 408177:               LINE   8109 "regression-compile-tmp/imp22g-77.imp"
46825 @ 408217:               PUSH   GETMIDENT
46826 @ 408220:               PUSHI  #0x00000009
46827 @ 408225:               ASSPAR
46828 @ 408226:               PUSHI  #0x00000010
46829 @ 408231:               ASSPAR
46830 @ 408232:               CALL  

  8110      get(right)
46831 @ 408233:               LINE   8110 "regression-compile-tmp/imp22g-77.imp"
46832 @ 408273:               PUSH   GET
46833 @ 408276:               PUSHI  #0x0000003d
46834 @ 408281:               ASSPAR
46835 @ 408282:               CALL  

  8111      value = item+(dispmode-a0)
46836 @ 408283:               LINE   8111 "regression-compile-tmp/imp22g-77.imp"
46837 @ 408323:               PUSH   VALUE
46838 @ 408326:               PUSH   ITEM
46839 @ 408329:               PUSHI  #0x00000028
46840 @ 408334:               PUSHI  #0x00000009
46841 @ 408339:               SUB   
46842 @ 408340:               ADD   
46843 @ 408341:               ASSVAL

  8112    %finish %else value = absmode
46844 @ 408342:               LINE   8112 "regression-compile-tmp/imp22g-77.imp"
46845 @ 408382:               GOTO   L_0003
46846 @ 408385:               LOCATE L_0004
46847 @ 408388:               PUSH   VALUE
46848 @ 408391:               PUSHI  #0x00000038
46849 @ 408396:               ASSVAL
46850 @ 408397:               LOCATE L_0003

  8113    literal = 1
46851 @ 408400:               LINE   8113 "regression-compile-tmp/imp22g-77.imp"
46852 @ 408440:               PUSH   LITERAL
46853 @ 408443:               PUSHI  #0x00000001
46854 @ 408448:               ASSVAL

  8114    get DECLARATION(dump!(okflag+writable+readable),value,jokerad,0)
46855 @ 408449:               LINE   8114 "regression-compile-tmp/imp22g-77.imp"
46856 @ 408489:               PUSH   GETDECLARATION
46857 @ 408492:               PUSH   DUMP
46858 @ 408495:               PUSHI  #0x00000040
46859 @ 408500:               PUSHI  #0x00000001
46860 @ 408505:               ADD   
46861 @ 408506:               PUSHI  #0x00000002
46862 @ 408511:               ADD   
46863 @ 408512:               OR    
46864 @ 408513:               ASSPAR
46865 @ 408514:               PUSH   VALUE
46866 @ 408517:               ASSPAR
46867 @ 408518:               PUSH   JOKERAD
46868 @ 408521:               ASSPAR
46869 @ 408522:               PUSHI  #0x00000000
46870 @ 408527:               ASSPAR
46871 @ 408528:               CALL  

  8115    -> term
  8116  
46872 @ 408529:               LINE   8115 "regression-compile-tmp/imp22g-77.imp"
46873 @ 408569:               JUMP   L_018c

  8117  initial(keyown):
46874 @ 408572:               LINE   8117 "regression-compile-tmp/imp22g-77.imp"
46875 @ 408612:               PUSHI  #0x00000018
46876 @ 408617:               SLABEL 382

  8118    literal = 1
46877 @ 408620:               LINE   8118 "regression-compile-tmp/imp22g-77.imp"
46878 @ 408660:               PUSH   LITERAL
46879 @ 408663:               PUSHI  #0x00000001
46880 @ 408668:               ASSVAL

  8119    get DECLARATION(writable+readable,ownmode,ownad,0)
46881 @ 408669:               LINE   8119 "regression-compile-tmp/imp22g-77.imp"
46882 @ 408709:               PUSH   GETDECLARATION
46883 @ 408712:               PUSHI  #0x00000001
46884 @ 408717:               PUSHI  #0x00000002
46885 @ 408722:               ADD   
46886 @ 408723:               ASSPAR
46887 @ 408724:               PUSHI  #0x0000006c
46888 @ 408729:               ASSPAR
46889 @ 408730:               PUSH   OWNAD
46890 @ 408733:               ASSPAR
46891 @ 408734:               PUSHI  #0x00000000
46892 @ 408739:               ASSPAR
46893 @ 408740:               CALL  

  8120    -> term
  8121  
46894 @ 408741:               LINE   8120 "regression-compile-tmp/imp22g-77.imp"
46895 @ 408781:               JUMP   L_018c

  8122  initial(keyext):
46896 @ 408784:               LINE   8122 "regression-compile-tmp/imp22g-77.imp"
46897 @ 408824:               PUSHI  #0x00000019
46898 @ 408829:               SLABEL 382

  8123    fault(ordererr) %if level # outerlevel
46899 @ 408832:               LINE   8123 "regression-compile-tmp/imp22g-77.imp"
46900 @ 408872:               PUSH   LEVEL
46901 @ 408875:               PUSHI  #0x00000000
46902 @ 408880:               JUMPIF = L_0004
46903 @ 408884:               PUSH   FAULT
46904 @ 408887:               PUSHI  #0x00000016
46905 @ 408892:               ASSPAR
46906 @ 408893:               CALL  
46907 @ 408894:               LOCATE L_0004

  8124    literal = 1
46908 @ 408897:               LINE   8124 "regression-compile-tmp/imp22g-77.imp"
46909 @ 408937:               PUSH   LITERAL
46910 @ 408940:               PUSHI  #0x00000001
46911 @ 408945:               ASSVAL

  8125    dump = subatom<<12
46912 @ 408946:               LINE   8125 "regression-compile-tmp/imp22g-77.imp"
46913 @ 408986:               PUSH   DUMP
46914 @ 408989:               PUSH   SUBATOM
46915 @ 408992:               PUSHI  #0x0000000c
46916 @ 408997:               LSH   
46917 @ 408998:               ASSVAL

  8126    -> atted %if a(atsign)=TRUE
46918 @ 408999:               LINE   8126 "regression-compile-tmp/imp22g-77.imp"
46919 @ 409039:               PUSH   A
46920 @ 409042:               PUSHI  #0x00000039
46921 @ 409047:               ASSPAR
46922 @ 409048:               CALL  
46923 @ 409049:               PUSHI  #0x00000001
46924 @ 409054:               JUMPIF # L_0004
46925 @ 409058:               JUMP   L_0195
46926 @ 409061:               LOCATE L_0004

  8127    %if a(left)=TRUE %start
46927 @ 409064:               LINE   8127 "regression-compile-tmp/imp22g-77.imp"
46928 @ 409104:               PUSH   A
46929 @ 409107:               PUSHI  #0x00000037
46930 @ 409112:               ASSPAR
46931 @ 409113:               CALL  
46932 @ 409114:               PUSHI  #0x00000001
46933 @ 409119:               JUMPIF # L_0004

  8128      get LITERAL(inttype);  get(right)
46934 @ 409123:               LINE   8128 "regression-compile-tmp/imp22g-77.imp"
46935 @ 409163:               PUSH   GETLITERAL
46936 @ 409166:               PUSHI  #0x0000002b
46937 @ 409171:               ASSPAR
46938 @ 409172:               CALL  
46939 @ 409173:               LINE   8128 "regression-compile-tmp/imp22g-77.imp"
46940 @ 409213:               PUSH   GET
46941 @ 409216:               PUSHI  #0x0000003d
46942 @ 409221:               ASSPAR
46943 @ 409222:               CALL  

  8129      maxcalldreg = (d0-1)+value&15
46944 @ 409223:               LINE   8129 "regression-compile-tmp/imp22g-77.imp"
46945 @ 409263:               PUSH   MAXCALLDREG
46946 @ 409266:               PUSHI  #0x00000001
46947 @ 409271:               PUSHI  #0x00000001
46948 @ 409276:               SUB   
46949 @ 409277:               PUSH   VALUE
46950 @ 409280:               PUSHI  #0x0000000f
46951 @ 409285:               AND   
46952 @ 409286:               ADD   
46953 @ 409287:               ASSVAL

  8130      maxcallareg = (a0-1)+value>>4&15
46954 @ 409288:               LINE   8130 "regression-compile-tmp/imp22g-77.imp"
46955 @ 409328:               PUSH   MAXCALLAREG
46956 @ 409331:               PUSHI  #0x00000009
46957 @ 409336:               PUSHI  #0x00000001
46958 @ 409341:               SUB   
46959 @ 409342:               PUSH   VALUE
46960 @ 409345:               PUSHI  #0x00000004
46961 @ 409350:               RSH   
46962 @ 409351:               PUSHI  #0x0000000f
46963 @ 409356:               AND   
46964 @ 409357:               ADD   
46965 @ 409358:               ASSVAL

  8131      dump = dump!!(value&(\255))
46966 @ 409359:               LINE   8131 "regression-compile-tmp/imp22g-77.imp"
46967 @ 409399:               PUSH   DUMP
46968 @ 409402:               PUSH   DUMP
46969 @ 409405:               PUSH   VALUE
46970 @ 409408:               PUSHI  #0x000000ff
46971 @ 409413:               NOT   
46972 @ 409414:               AND   
46973 @ 409415:               XOR   
46974 @ 409416:               ASSVAL

  8132    %finish
46975 @ 409417:               LINE   8132 "regression-compile-tmp/imp22g-77.imp"
46976 @ 409457:               LOCATE L_0004

  8133    get DECLARATION(dump!(writable+readable),ownmode,ownad,0)
46977 @ 409460:               LINE   8133 "regression-compile-tmp/imp22g-77.imp"
46978 @ 409500:               PUSH   GETDECLARATION
46979 @ 409503:               PUSH   DUMP
46980 @ 409506:               PUSHI  #0x00000001
46981 @ 409511:               PUSHI  #0x00000002
46982 @ 409516:               ADD   
46983 @ 409517:               OR    
46984 @ 409518:               ASSPAR
46985 @ 409519:               PUSHI  #0x0000006c
46986 @ 409524:               ASSPAR
46987 @ 409525:               PUSH   OWNAD
46988 @ 409528:               ASSPAR
46989 @ 409529:               PUSHI  #0x00000000
46990 @ 409534:               ASSPAR
46991 @ 409535:               CALL  

  8134    -> term
  8135  
46992 @ 409536:               LINE   8134 "regression-compile-tmp/imp22g-77.imp"
46993 @ 409576:               JUMP   L_018c

  8136  initial(keyrecord):
46994 @ 409579:               LINE   8136 "regression-compile-tmp/imp22g-77.imp"
46995 @ 409619:               PUSHI  #0x00000020
46996 @ 409624:               SLABEL 382

  8137    %unless a(left)=TRUE %start
46997 @ 409627:               LINE   8137 "regression-compile-tmp/imp22g-77.imp"
46998 @ 409667:               PUSH   A
46999 @ 409670:               PUSHI  #0x00000037
47000 @ 409675:               ASSPAR
47001 @ 409676:               CALL  
47002 @ 409677:               PUSHI  #0x00000001
47003 @ 409682:               JUMPIF = L_0004

  8138      get(keyformat)
47004 @ 409686:               LINE   8138 "regression-compile-tmp/imp22g-77.imp"
47005 @ 409726:               PUSH   GET
47006 @ 409729:               PUSHI  #0x00000022
47007 @ 409734:               ASSPAR
47008 @ 409735:               CALL  

  8139      %if a(keyspec)=TRUE %start
47009 @ 409736:               LINE   8139 "regression-compile-tmp/imp22g-77.imp"
47010 @ 409776:               PUSH   A
47011 @ 409779:               PUSHI  #0x00000025
47012 @ 409784:               ASSPAR
47013 @ 409785:               CALL  
47014 @ 409786:               PUSHI  #0x00000001
47015 @ 409791:               JUMPIF # L_0007

  8140        typeident_flags = typeid+spec+recy
47016 @ 409795:               LINE   8140 "regression-compile-tmp/imp22g-77.imp"
47017 @ 409835:               PUSH   TYPEIDENT
47018 @ 409838:               SELECT 1
47019 @ 409841:               PUSHI  #0x00000200
47020 @ 409846:               PUSHI  #0x00000100
47021 @ 409851:               ADD   
47022 @ 409852:               PUSHI  #0x0000000c
47023 @ 409857:               ADD   
47024 @ 409858:               ASSVAL

  8141        get(ident);  declare(typeident)
47025 @ 409859:               LINE   8141 "regression-compile-tmp/imp22g-77.imp"
47026 @ 409899:               PUSH   GET
47027 @ 409902:               PUSHI  #0x00000035
47028 @ 409907:               ASSPAR
47029 @ 409908:               CALL  
47030 @ 409909:               LINE   8141 "regression-compile-tmp/imp22g-77.imp"
47031 @ 409949:               PUSH   DECLARE
47032 @ 409952:               PUSH   TYPEIDENT
47033 @ 409955:               ASSPAR
47034 @ 409956:               CALL  

  8142      %else
47035 @ 409957:               LINE   8142 "regression-compile-tmp/imp22g-77.imp"
47036 @ 409997:               GOTO   L_0006
47037 @ 410000:               LOCATE L_0007

  8143        typeident_flags = typeid+recy
47038 @ 410003:               LINE   8143 "regression-compile-tmp/imp22g-77.imp"
47039 @ 410043:               PUSH   TYPEIDENT
47040 @ 410046:               SELECT 1
47041 @ 410049:               PUSHI  #0x00000200
47042 @ 410054:               PUSHI  #0x0000000c
47043 @ 410059:               ADD   
47044 @ 410060:               ASSVAL

  8144        get(ident);  declare(typeident)
47045 @ 410061:               LINE   8144 "regression-compile-tmp/imp22g-77.imp"
47046 @ 410101:               PUSH   GET
47047 @ 410104:               PUSHI  #0x00000035
47048 @ 410109:               ASSPAR
47049 @ 410110:               CALL  
47050 @ 410111:               LINE   8144 "regression-compile-tmp/imp22g-77.imp"
47051 @ 410151:               PUSH   DECLARE
47052 @ 410154:               PUSH   TYPEIDENT
47053 @ 410157:               ASSPAR
47054 @ 410158:               CALL  

  8145        get(left)
47055 @ 410159:               LINE   8145 "regression-compile-tmp/imp22g-77.imp"
47056 @ 410199:               PUSH   GET
47057 @ 410202:               PUSHI  #0x00000037
47058 @ 410207:               ASSPAR
47059 @ 410208:               CALL  

  8146        dformat == ditem
47060 @ 410209:               LINE   8146 "regression-compile-tmp/imp22g-77.imp"
47061 @ 410249:               PUSH   DFORMAT
47062 @ 410252:               PUSH   DITEM
47063 @ 410255:               ASSREF

  8147        get DECLARATION(writable+readable,0,dformat_val,0)
47064 @ 410256:               LINE   8147 "regression-compile-tmp/imp22g-77.imp"
47065 @ 410296:               PUSH   GETDECLARATION
47066 @ 410299:               PUSHI  #0x00000001
47067 @ 410304:               PUSHI  #0x00000002
47068 @ 410309:               ADD   
47069 @ 410310:               ASSPAR
47070 @ 410311:               PUSHI  #0x00000000
47071 @ 410316:               ASSPAR
47072 @ 410317:               PUSH   DFORMAT
47073 @ 410320:               SELECT 9
47074 @ 410323:               ASSPAR
47075 @ 410324:               PUSHI  #0x00000000
47076 @ 410329:               ASSPAR
47077 @ 410330:               CALL  

  8148        recalign(dformat_val)
47078 @ 410331:               LINE   8148 "regression-compile-tmp/imp22g-77.imp"
47079 @ 410371:               PUSH   RECALIGN
47080 @ 410374:               PUSH   DFORMAT
47081 @ 410377:               SELECT 9
47082 @ 410380:               ASSPAR
47083 @ 410381:               CALL  

  8149        get(right)
47084 @ 410382:               LINE   8149 "regression-compile-tmp/imp22g-77.imp"
47085 @ 410422:               PUSH   GET
47086 @ 410425:               PUSHI  #0x0000003d
47087 @ 410430:               ASSPAR
47088 @ 410431:               CALL  

  8150      %finish
47089 @ 410432:               LINE   8150 "regression-compile-tmp/imp22g-77.imp"
47090 @ 410472:               LOCATE L_0006

  8151      -> term
47091 @ 410475:               LINE   8151 "regression-compile-tmp/imp22g-77.imp"
47092 @ 410515:               JUMP   L_018c

  8152    %finish
47093 @ 410518:               LINE   8152 "regression-compile-tmp/imp22g-77.imp"
47094 @ 410558:               LOCATE L_0004

  8153    fp = fp-1;  atom = keyrecord;  !back-up
47095 @ 410561:               LINE   8153 "regression-compile-tmp/imp22g-77.imp"
47096 @ 410601:               PUSH   FP
47097 @ 410604:               PUSH   FP
47098 @ 410607:               PUSHI  #0x00000001
47099 @ 410612:               SUB   
47100 @ 410613:               ASSVAL
47101 @ 410614:               LINE   8153 "regression-compile-tmp/imp22g-77.imp"
47102 @ 410654:               PUSH   ATOM
47103 @ 410657:               PUSHI  #0x00000020
47104 @ 410662:               ASSVAL

  8154  initial(ktype): initial(keylong):
47105 @ 410663:               LINE   8154 "regression-compile-tmp/imp22g-77.imp"
47106 @ 410703:               PUSHI  #0x0000001b
47107 @ 410708:               SLABEL 382
47108 @ 410711:               LINE   8154 "regression-compile-tmp/imp22g-77.imp"
47109 @ 410751:               PUSHI  #0x0000001d
47110 @ 410756:               SLABEL 382

  8155  initial(keyinteger): initial(keyreal):
47111 @ 410759:               LINE   8155 "regression-compile-tmp/imp22g-77.imp"
47112 @ 410799:               PUSHI  #0x0000001c
47113 @ 410804:               SLABEL 382
47114 @ 410807:               LINE   8155 "regression-compile-tmp/imp22g-77.imp"
47115 @ 410847:               PUSHI  #0x0000001e
47116 @ 410852:               SLABEL 382

  8156  initial(kattrib): initial(keystring):
47117 @ 410855:               LINE   8156 "regression-compile-tmp/imp22g-77.imp"
47118 @ 410895:               PUSHI  #0x0000001a
47119 @ 410900:               SLABEL 382
47120 @ 410903:               LINE   8156 "regression-compile-tmp/imp22g-77.imp"
47121 @ 410943:               PUSHI  #0x0000001f
47122 @ 410948:               SLABEL 382

  8157  initial(rpred):
47123 @ 410951:               LINE   8157 "regression-compile-tmp/imp22g-77.imp"
47124 @ 410991:               PUSHI  #0x00000024
47125 @ 410996:               SLABEL 382

  8158    matched = 0
47126 @ 410999:               LINE   8158 "regression-compile-tmp/imp22g-77.imp"
47127 @ 411039:               PUSH   MATCHED
47128 @ 411042:               PUSHI  #0x00000000
47129 @ 411047:               ASSVAL

  8159    get DECLARATION(writable+readable,c_mode,c_val,0)
47130 @ 411048:               LINE   8159 "regression-compile-tmp/imp22g-77.imp"
47131 @ 411088:               PUSH   GETDECLARATION
47132 @ 411091:               PUSHI  #0x00000001
47133 @ 411096:               PUSHI  #0x00000002
47134 @ 411101:               ADD   
47135 @ 411102:               ASSPAR
47136 @ 411103:               PUSH   C
47137 @ 411106:               SELECT 27
47138 @ 411109:               ASSPAR
47139 @ 411110:               PUSH   C
47140 @ 411113:               SELECT 28
47141 @ 411116:               ASSPAR
47142 @ 411117:               PUSHI  #0x00000000
47143 @ 411122:               ASSPAR
47144 @ 411123:               CALL  

  8160    -> term
  8161  
47145 @ 411124:               LINE   8160 "regression-compile-tmp/imp22g-77.imp"
47146 @ 411164:               JUMP   L_018c

  8162  initial(keylabel):
47147 @ 411167:               LINE   8162 "regression-compile-tmp/imp22g-77.imp"
47148 @ 411207:               PUSHI  #0x00000016
47149 @ 411212:               SLABEL 382

  8163    get IDENTLIST(forwardlabel)
47150 @ 411215:               LINE   8163 "regression-compile-tmp/imp22g-77.imp"
47151 @ 411255:               PUSH   GETIDENTLIST
47152 @ 411258:               PUSH   FORWARDLABEL
47153 @ 411261:               ASSPAR
47154 @ 411262:               CALL  

  8164    -> term
  8165  
47155 @ 411263:               LINE   8164 "regression-compile-tmp/imp22g-77.imp"
47156 @ 411303:               JUMP   L_018c

  8166  %routine GET SWITCH DECLARATION
47157 @ 411306:               LINE   8166 "regression-compile-tmp/imp22g-77.imp"
47158 @ 411346:               DEF    GETSWITCHDECLARATION (_lev0id0_GETSTATEMENTS_GETSWITCHDECLARATION) p1=V_0196 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
47159 @ 411378:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
47160 @ 411379:                  FINISH ) {lev=3}

  8167  %integer i,lo,hi,dlim1
47161 @ 411380:                  LINE   8167 "regression-compile-tmp/imp22g-77.imp"
47162 @ 411420:                  DEF    I p1=V_0197 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
47163 @ 411433:                  DEF    LO p1=V_0198 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
47164 @ 411447:                  DEF    HI p1=V_0199 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
47165 @ 411461:                  DEF    DLIM1 p1=V_019a a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  8168  %ownrecord(objinfo) d=0
47166 @ 411478:                  LINE   8168 "regression-compile-tmp/imp22g-77.imp"
47167 @ 411518:                  PUSHI  #0x00000000
47168 @ 411523:                  DEF    D p1=V_019b 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
47169 @ 411536:                  INIT   1

  8169    matched = 1
47170 @ 411539:                  LINE   8169 "regression-compile-tmp/imp22g-77.imp"
47171 @ 411579:                  PUSH   MATCHED
47172 @ 411582:                  PUSHI  #0x00000001
47173 @ 411587:                  ASSVAL

  8170    %cycle
47174 @ 411588:                  LINE   8170 "regression-compile-tmp/imp22g-77.imp"
47175 @ 411628:                  LOCATE L_0003

  8171      d_type = arrstar;  !(in case of error)
47176 @ 411631:                  LINE   8171 "regression-compile-tmp/imp22g-77.imp"
47177 @ 411671:                  PUSH   D
47178 @ 411674:                  SELECT 2
47179 @ 411677:                  PUSHI  #0x00000041
47180 @ 411682:                  ASSVAL

  8172      d_flags = d_flags+arrflag %if control&arrbit # 0
47181 @ 411683:                  LINE   8172 "regression-compile-tmp/imp22g-77.imp"
47182 @ 411723:                  PUSH   CONTROL
47183 @ 411726:                  PUSHI  #0x80000000
47184 @ 411731:                  AND   
47185 @ 411732:                  PUSHI  #0x00000000
47186 @ 411737:                  JUMPIF = L_0007
47187 @ 411741:                  PUSH   D
47188 @ 411744:                  SELECT 1
47189 @ 411747:                  PUSH   D
47190 @ 411750:                  SELECT 1
47191 @ 411753:                  PUSHI  #0x00000008
47192 @ 411758:                  ADD   
47193 @ 411759:                  ASSVAL
47194 @ 411760:                  LOCATE L_0007

  8173      d_mode = labmode
47195 @ 411763:                  LINE   8173 "regression-compile-tmp/imp22g-77.imp"
47196 @ 411803:                  PUSH   D
47197 @ 411806:                  SELECT 8
47198 @ 411809:                  PUSHI  #0x000000ba
47199 @ 411814:                  ASSVAL

  8174      get IDENTLIST(d)
47200 @ 411815:                  LINE   8174 "regression-compile-tmp/imp22g-77.imp"
47201 @ 411855:                  PUSH   GETIDENTLIST
47202 @ 411858:                  PUSH   D
47203 @ 411861:                  ASSPAR
47204 @ 411862:                  CALL  

  8175      dlim1 = dlim
47205 @ 411863:                  LINE   8175 "regression-compile-tmp/imp22g-77.imp"
47206 @ 411903:                  PUSH   DLIM1
47207 @ 411906:                  PUSH   DLIM
47208 @ 411909:                  ASSVAL

  8176      declare anon(details(typeid+arry,0,0,0))
47209 @ 411910:                  LINE   8176 "regression-compile-tmp/imp22g-77.imp"
47210 @ 411950:                  PUSH   DECLAREANON
47211 @ 411953:                  PUSH   DETAILS
47212 @ 411956:                  PUSHI  #0x00000200
47213 @ 411961:                  PUSHI  #0x00000009
47214 @ 411966:                  ADD   
47215 @ 411967:                  ASSPAR
47216 @ 411968:                  PUSHI  #0x00000000
47217 @ 411973:                  ASSPAR
47218 @ 411974:                  PUSHI  #0x00000000
47219 @ 411979:                  ASSPAR
47220 @ 411980:                  PUSHI  #0x00000000
47221 @ 411985:                  ASSPAR
47222 @ 411986:                  CALL  
47223 @ 411987:                  ASSPAR
47224 @ 411988:                  CALL  

  8177      get(left);  get LIT RANGE(inttype);  get(right)
47225 @ 411989:                  LINE   8177 "regression-compile-tmp/imp22g-77.imp"
47226 @ 412029:                  PUSH   GET
47227 @ 412032:                  PUSHI  #0x00000037
47228 @ 412037:                  ASSPAR
47229 @ 412038:                  CALL  
47230 @ 412039:                  LINE   8177 "regression-compile-tmp/imp22g-77.imp"
47231 @ 412079:                  PUSH   GETLITRANGE
47232 @ 412082:                  PUSHI  #0x0000002b
47233 @ 412087:                  ASSPAR
47234 @ 412088:                  CALL  
47235 @ 412089:                  LINE   8177 "regression-compile-tmp/imp22g-77.imp"
47236 @ 412129:                  PUSH   GET
47237 @ 412132:                  PUSHI  #0x0000003d
47238 @ 412137:                  ASSPAR
47239 @ 412138:                  CALL  

  8178      dict(dlim1)_xtype = item
47240 @ 412139:                  LINE   8178 "regression-compile-tmp/imp22g-77.imp"
47241 @ 412179:                  PUSH   DICT
47242 @ 412182:                  PUSH   DLIM1
47243 @ 412185:                  ACCESS
47244 @ 412186:                  SELECT 4
47245 @ 412189:                  PUSH   ITEM
47246 @ 412192:                  ASSVAL

  8179      get bounds(item,lo,hi)
47247 @ 412193:                  LINE   8179 "regression-compile-tmp/imp22g-77.imp"
47248 @ 412233:                  PUSH   GETBOUNDS
47249 @ 412236:                  PUSH   ITEM
47250 @ 412239:                  ASSPAR
47251 @ 412240:                  PUSH   LO
47252 @ 412243:                  ASSPAR
47253 @ 412244:                  PUSH   HI
47254 @ 412247:                  ASSPAR
47255 @ 412248:                  CALL  

  8180      %cycle;  !For each ident in group
47256 @ 412249:                  LINE   8180 "regression-compile-tmp/imp22g-77.imp"
47257 @ 412289:                  LOCATE L_0006

  8181        %for i = lo,1,hi %cycle
47258 @ 412292:                  LINE   8181 "regression-compile-tmp/imp22g-77.imp"
47259 @ 412332:                  PUSH   I
47260 @ 412335:                  PUSHI  #0x00000001
47261 @ 412340:                  PUSH   HI
47262 @ 412343:                  PUSH   LO
47263 @ 412346:                  FOR    L_0009

  8182          swpc = swpc-1;  prog(swpc) = 0
47264 @ 412349:                  LINE   8182 "regression-compile-tmp/imp22g-77.imp"
47265 @ 412389:                  PUSH   SWPC
47266 @ 412392:                  PUSH   SWPC
47267 @ 412395:                  PUSHI  #0x00000001
47268 @ 412400:                  SUB   
47269 @ 412401:                  ASSVAL
47270 @ 412402:                  LINE   8182 "regression-compile-tmp/imp22g-77.imp"
47271 @ 412442:                  PUSH   PROG
47272 @ 412445:                  PUSH   SWPC
47273 @ 412448:                  ACCESS
47274 @ 412449:                  PUSHI  #0x00000000
47275 @ 412454:                  ASSVAL

  8183          croak("Code space exhausted") %if swpc <= pc
47276 @ 412455:                  LINE   8183 "regression-compile-tmp/imp22g-77.imp"
47277 @ 412495:                  PUSH   SWPC
47278 @ 412498:                  PUSH   PC
47279 @ 412501:                  JUMPIF > L_000d
47280 @ 412505:                  PUSH   CROAK
47281 @ 412508:                  PUSHS  "Code space exhausted"
47282 @ 412530:                  ASSPAR
47283 @ 412531:                  CALL  
47284 @ 412532:                  LOCATE L_000d

  8184        %repeat
47285 @ 412535:                  LINE   8184 "regression-compile-tmp/imp22g-77.imp"
47286 @ 412575:                  REPEAT L_0009
47287 @ 412578:                  LOCATE L_000a

  8185        dict(dlim0)_val = swpc
47288 @ 412581:                  LINE   8185 "regression-compile-tmp/imp22g-77.imp"
47289 @ 412621:                  PUSH   DICT
47290 @ 412624:                  PUSH   DLIM0
47291 @ 412627:                  ACCESS
47292 @ 412628:                  SELECT 9
47293 @ 412631:                  PUSH   SWPC
47294 @ 412634:                  ASSVAL

  8186        dict(dlim0)_type = dlim1
47295 @ 412635:                  LINE   8186 "regression-compile-tmp/imp22g-77.imp"
47296 @ 412675:                  PUSH   DICT
47297 @ 412678:                  PUSH   DLIM0
47298 @ 412681:                  ACCESS
47299 @ 412682:                  SELECT 2
47300 @ 412685:                  PUSH   DLIM1
47301 @ 412688:                  ASSVAL

  8187        dlim0 = dlim0+1
47302 @ 412689:                  LINE   8187 "regression-compile-tmp/imp22g-77.imp"
47303 @ 412729:                  PUSH   DLIM0
47304 @ 412732:                  PUSH   DLIM0
47305 @ 412735:                  PUSHI  #0x00000001
47306 @ 412740:                  ADD   
47307 @ 412741:                  ASSVAL

  8188      %repeat %until dlim0 = dlim1
47308 @ 412742:                  LINE   8188 "regression-compile-tmp/imp22g-77.imp"
47309 @ 412782:                  PUSH   DLIM0
47310 @ 412785:                  PUSH   DLIM1
47311 @ 412788:                  JUMPIF = L_0007
47312 @ 412792:                  REPEAT L_0006
47313 @ 412795:                  LOCATE L_0007

  8189    %repeat %until %not a(comma)=TRUE
47314 @ 412798:                  LINE   8189 "regression-compile-tmp/imp22g-77.imp"
47315 @ 412838:                  PUSH   A
47316 @ 412841:                  PUSHI  #0x0000003c
47317 @ 412846:                  ASSPAR
47318 @ 412847:                  CALL  
47319 @ 412848:                  PUSHI  #0x00000001
47320 @ 412853:                  JUMPIF # L_0004
47321 @ 412857:                  REPEAT L_0003
47322 @ 412860:                  LOCATE L_0004

  8190  %end
47323 @ 412863:                  LINE   8190 "regression-compile-tmp/imp22g-77.imp"
47324 @ 412903:               END    _lev0id0_GETSTATEMENTS_GETSWITCHDECLARATION {lev=3 --> 2}

  8191  initial(keyswitch):
47325 @ 412904:               LINE   8191 "regression-compile-tmp/imp22g-77.imp"
47326 @ 412944:               PUSHI  #0x00000027
47327 @ 412949:               SLABEL 382

  8192    literal = 1
47328 @ 412952:               LINE   8192 "regression-compile-tmp/imp22g-77.imp"
47329 @ 412992:               PUSH   LITERAL
47330 @ 412995:               PUSHI  #0x00000001
47331 @ 413000:               ASSVAL

  8193    get SWITCH DECLARATION
47332 @ 413001:               LINE   8193 "regression-compile-tmp/imp22g-77.imp"
47333 @ 413041:               PUSH   GETSWITCHDECLARATION
47334 @ 413044:               CALL  

  8194    c_status = c_status!hadswitch
47335 @ 413045:               LINE   8194 "regression-compile-tmp/imp22g-77.imp"
47336 @ 413085:               PUSH   C
47337 @ 413088:               SELECT 6
47338 @ 413091:               PUSH   C
47339 @ 413094:               SELECT 6
47340 @ 413097:               PUSHI  #0x00000080
47341 @ 413102:               OR    
47342 @ 413103:               ASSVAL

  8195    ->term
  8196  
  8197  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  8198  !!!!!!!!!!!!!!!  Control statements  !!!!!!!!!!!!!!!!!!!!!!!!!!!
  8199  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  8200  !
47343 @ 413104:               LINE   8195 "regression-compile-tmp/imp22g-77.imp"
47344 @ 413144:               JUMP   L_018c

  8201  %routine OPT
47345 @ 413147:               LINE   8201 "regression-compile-tmp/imp22g-77.imp"
47346 @ 413187:               DEF    OPT (_lev0id0_GETSTATEMENTS_OPT) p1=V_0197 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
47347 @ 413202:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
47348 @ 413203:                  FINISH ) {lev=3}

  8202  %integer c
47349 @ 413204:                  LINE   8202 "regression-compile-tmp/imp22g-77.imp"
47350 @ 413244:                  DEF    C p1=V_0198 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  8203    c=control
47351 @ 413257:                  LINE   8203 "regression-compile-tmp/imp22g-77.imp"
47352 @ 413297:                  PUSH   C
47353 @ 413300:                  PUSH   CONTROL
47354 @ 413303:                  ASSVAL

  8204    set options(string(final0+value))
47355 @ 413304:                  LINE   8204 "regression-compile-tmp/imp22g-77.imp"
47356 @ 413344:                  PUSH   SETOPTIONS
47357 @ 413347:                  PUSH   STRING
47358 @ 413350:                  PUSH   FINAL0
47359 @ 413353:                  PUSH   VALUE
47360 @ 413356:                  ADD   
47361 @ 413357:                  ASSPAR
47362 @ 413358:                  CALL  
47363 @ 413359:                  ASSPAR
47364 @ 413360:                  CALL  

  8205    select output(listout);  !**for now - PAM may alter**
47365 @ 413361:                  LINE   8205 "regression-compile-tmp/imp22g-77.imp"
47366 @ 413401:                  PUSH   SELECTOUTPUT
47367 @ 413404:                  PUSH   LISTOUT
47368 @ 413407:                  ASSPAR
47369 @ 413408:                  CALL  

  8206    control = control&(\list) %if initcon&list = 0
47370 @ 413409:                  LINE   8206 "regression-compile-tmp/imp22g-77.imp"
47371 @ 413449:                  PUSH   INITCON
47372 @ 413452:                  PUSHI  #0x00000001
47373 @ 413457:                  AND   
47374 @ 413458:                  PUSHI  #0x00000000
47375 @ 413463:                  JUMPIF # L_0004
47376 @ 413467:                  PUSH   CONTROL
47377 @ 413470:                  PUSH   CONTROL
47378 @ 413473:                  PUSHI  #0x00000001
47379 @ 413478:                  NOT   
47380 @ 413479:                  AND   
47381 @ 413480:                  ASSVAL
47382 @ 413481:                  LOCATE L_0004

  8207    control = control!list %if control&(\c)&(ttlist+codelist+explist+dictlist) # 0
47383 @ 413484:                  LINE   8207 "regression-compile-tmp/imp22g-77.imp"
47384 @ 413524:                  PUSH   CONTROL
47385 @ 413527:                  PUSH   C
47386 @ 413530:                  NOT   
47387 @ 413531:                  AND   
47388 @ 413532:                  PUSHI  #0x00000002
47389 @ 413537:                  PUSHI  #0x00000020
47390 @ 413542:                  ADD   
47391 @ 413543:                  PUSHI  #0x00000008
47392 @ 413548:                  ADD   
47393 @ 413549:                  PUSHI  #0x00000010
47394 @ 413554:                  ADD   
47395 @ 413555:                  AND   
47396 @ 413556:                  PUSHI  #0x00000000
47397 @ 413561:                  JUMPIF = L_0004
47398 @ 413565:                  PUSH   CONTROL
47399 @ 413568:                  PUSH   CONTROL
47400 @ 413571:                  PUSHI  #0x00000001
47401 @ 413576:                  OR    
47402 @ 413577:                  ASSVAL
47403 @ 413578:                  LOCATE L_0004

  8208  %end
  8209  
47404 @ 413581:                  LINE   8208 "regression-compile-tmp/imp22g-77.imp"
47405 @ 413621:               END    _lev0id0_GETSTATEMENTS_OPT {lev=3 --> 2}

  8210  initial(keyoption):
47406 @ 413622:               LINE   8210 "regression-compile-tmp/imp22g-77.imp"
47407 @ 413662:               PUSHI  #0x00000030
47408 @ 413667:               SLABEL 382

  8211    get LITSTRING
47409 @ 413670:               LINE   8211 "regression-compile-tmp/imp22g-77.imp"
47410 @ 413710:               PUSH   GETLITSTRING
47411 @ 413713:               CALL  

  8212    get(terminator)
47412 @ 413714:               LINE   8212 "regression-compile-tmp/imp22g-77.imp"
47413 @ 413754:               PUSH   GET
47414 @ 413757:               PUSHI  #0x00000033
47415 @ 413762:               ASSPAR
47416 @ 413763:               CALL  

  8213    opt %if faultnum = 0
47417 @ 413764:               LINE   8213 "regression-compile-tmp/imp22g-77.imp"
47418 @ 413804:               PUSH   FAULTNUM
47419 @ 413807:               PUSHI  #0x00000000
47420 @ 413812:               JUMPIF # L_0004
47421 @ 413816:               PUSH   OPT
47422 @ 413819:               CALL  
47423 @ 413820:               LOCATE L_0004

  8214    -> next
  8215  
47424 @ 413823:               LINE   8214 "regression-compile-tmp/imp22g-77.imp"
47425 @ 413863:               JUMP   L_018a

  8216  initial(keyinclude):
47426 @ 413866:               LINE   8216 "regression-compile-tmp/imp22g-77.imp"
47427 @ 413906:               PUSHI  #0x0000002f
47428 @ 413911:               SLABEL 382

  8217    get LITSTRING
47429 @ 413914:               LINE   8217 "regression-compile-tmp/imp22g-77.imp"
47430 @ 413954:               PUSH   GETLITSTRING
47431 @ 413957:               CALL  

  8218    get(terminator)
47432 @ 413958:               LINE   8218 "regression-compile-tmp/imp22g-77.imp"
47433 @ 413998:               PUSH   GET
47434 @ 414001:               PUSHI  #0x00000033
47435 @ 414006:               ASSPAR
47436 @ 414007:               CALL  

  8219    %if faultnum = 0 %start
47437 @ 414008:               LINE   8219 "regression-compile-tmp/imp22g-77.imp"
47438 @ 414048:               PUSH   FAULTNUM
47439 @ 414051:               PUSHI  #0x00000000
47440 @ 414056:               JUMPIF # L_0004

  8220      croak("Too many nested includes") %if curfile = 3
47441 @ 414060:               LINE   8220 "regression-compile-tmp/imp22g-77.imp"
47442 @ 414100:               PUSH   CURFILE
47443 @ 414103:               PUSHI  #0x00000003
47444 @ 414108:               JUMPIF # L_0007
47445 @ 414112:               PUSH   CROAK
47446 @ 414115:               PUSHS  "Too many nested includes"
47447 @ 414141:               ASSPAR
47448 @ 414142:               CALL  
47449 @ 414143:               LOCATE L_0007

  8221      line = line+1 %if sym = nl
47450 @ 414146:               LINE   8221 "regression-compile-tmp/imp22g-77.imp"
47451 @ 414186:               PUSH   SYM
47452 @ 414189:               PUSHI  #0x0000000a
47453 @ 414194:               JUMPIF # L_0007
47454 @ 414198:               PUSH   LINE
47455 @ 414201:               PUSH   LINE
47456 @ 414204:               PUSHI  #0x00000001
47457 @ 414209:               ADD   
47458 @ 414210:               ASSVAL
47459 @ 414211:               LOCATE L_0007

  8222      cur_fp = fp;  cur_line = line
47460 @ 414214:               LINE   8222 "regression-compile-tmp/imp22g-77.imp"
47461 @ 414254:               PUSH   CUR
47462 @ 414257:               SELECT 7
47463 @ 414260:               PUSH   FP
47464 @ 414263:               ASSVAL
47465 @ 414264:               LINE   8222 "regression-compile-tmp/imp22g-77.imp"
47466 @ 414304:               PUSH   CUR
47467 @ 414307:               SELECT 10
47468 @ 414310:               PUSH   LINE
47469 @ 414313:               ASSVAL

  8223      fcontrol(curfile) = control
47470 @ 414314:               LINE   8223 "regression-compile-tmp/imp22g-77.imp"
47471 @ 414354:               PUSH   FCONTROL
47472 @ 414357:               PUSH   CURFILE
47473 @ 414360:               ACCESS
47474 @ 414361:               PUSH   CONTROL
47475 @ 414364:               ASSVAL

  8224      control = control&(\list) %if control&(codelist+explist+dictlist) = 0
47476 @ 414365:               LINE   8224 "regression-compile-tmp/imp22g-77.imp"
47477 @ 414405:               PUSH   CONTROL
47478 @ 414408:               PUSHI  #0x00000020
47479 @ 414413:               PUSHI  #0x00000008
47480 @ 414418:               ADD   
47481 @ 414419:               PUSHI  #0x00000010
47482 @ 414424:               ADD   
47483 @ 414425:               AND   
47484 @ 414426:               PUSHI  #0x00000000
47485 @ 414431:               JUMPIF # L_0007
47486 @ 414435:               PUSH   CONTROL
47487 @ 414438:               PUSH   CONTROL
47488 @ 414441:               PUSHI  #0x00000001
47489 @ 414446:               NOT   
47490 @ 414447:               AND   
47491 @ 414448:               ASSVAL
47492 @ 414449:               LOCATE L_0007

  8225      curfile = curfile+1
47493 @ 414452:               LINE   8225 "regression-compile-tmp/imp22g-77.imp"
47494 @ 414492:               PUSH   CURFILE
47495 @ 414495:               PUSH   CURFILE
47496 @ 414498:               PUSHI  #0x00000001
47497 @ 414503:               ADD   
47498 @ 414504:               ASSVAL

  8226      lastfile = -1 %if curfile = lastfile
47499 @ 414505:               LINE   8226 "regression-compile-tmp/imp22g-77.imp"
47500 @ 414545:               PUSH   CURFILE
47501 @ 414548:               PUSH   LASTFILE
47502 @ 414551:               JUMPIF # L_0007
47503 @ 414555:               PUSH   LASTFILE
47504 @ 414558:               PUSHI  #0x00000001
47505 @ 414563:               NEGATE
47506 @ 414564:               ASSVAL
47507 @ 414565:               LOCATE L_0007

  8227      cur == file(curfile);  cur = 0
47508 @ 414568:               LINE   8227 "regression-compile-tmp/imp22g-77.imp"
47509 @ 414608:               PUSH   CUR
47510 @ 414611:               PUSH   FILE
47511 @ 414614:               PUSH   CURFILE
47512 @ 414617:               ACCESS
47513 @ 414618:               ASSREF
47514 @ 414619:               LINE   8227 "regression-compile-tmp/imp22g-77.imp"
47515 @ 414659:               PUSH   CUR
47516 @ 414662:               PUSHI  #0x00000000
47517 @ 414667:               ASSVAL

  8228      time1 = time1-cputime
  8229  !!    define param("INC",cur_name,nodefault)
47518 @ 414668:               LINE   8228 "regression-compile-tmp/imp22g-77.imp"
47519 @ 414708:               PUSH   TIME1
47520 @ 414711:               PUSH   TIME1
47521 @ 414714:               PUSH   CPUTIME
47522 @ 414717:               SUB   
47523 @ 414718:               ASSVAL

  8230      opt
  8231  !!    connect edfile(cur)
47524 @ 414719:               LINE   8230 "regression-compile-tmp/imp22g-77.imp"
47525 @ 414759:               PUSH   OPT
47526 @ 414762:               CALL  

  8232      time1 = time1+cputime
47527 @ 414763:               LINE   8232 "regression-compile-tmp/imp22g-77.imp"
47528 @ 414803:               PUSH   TIME1
47529 @ 414806:               PUSH   TIME1
47530 @ 414809:               PUSH   CPUTIME
47531 @ 414812:               ADD   
47532 @ 414813:               ASSVAL

  8233      %signal abandon %if cur_flag # 0
47533 @ 414814:               LINE   8233 "regression-compile-tmp/imp22g-77.imp"
47534 @ 414854:               PUSH   CUR
47535 @ 414857:               SELECT 9
47536 @ 414860:               PUSHI  #0x00000000
47537 @ 414865:               JUMPIF = L_0007
47538 @ 414869:               EVENT  000e
47539 @ 414872:               LOCATE L_0007

  8234      line = 0;  sym = nl
47540 @ 414875:               LINE   8234 "regression-compile-tmp/imp22g-77.imp"
47541 @ 414915:               PUSH   LINE
47542 @ 414918:               PUSHI  #0x00000000
47543 @ 414923:               ASSVAL
47544 @ 414924:               LINE   8234 "regression-compile-tmp/imp22g-77.imp"
47545 @ 414964:               PUSH   SYM
47546 @ 414967:               PUSHI  #0x0000000a
47547 @ 414972:               ASSVAL

  8235      curstart = cur_start2;  curlim = cur_lim2
47548 @ 414973:               LINE   8235 "regression-compile-tmp/imp22g-77.imp"
47549 @ 415013:               PUSH   CURSTART
47550 @ 415016:               PUSH   CUR
47551 @ 415019:               SELECT 3
47552 @ 415022:               ASSVAL
47553 @ 415023:               LINE   8235 "regression-compile-tmp/imp22g-77.imp"
47554 @ 415063:               PUSH   CURLIM
47555 @ 415066:               PUSH   CUR
47556 @ 415069:               SELECT 4
47557 @ 415072:               ASSVAL

  8236      fp = cur_start2
47558 @ 415073:               LINE   8236 "regression-compile-tmp/imp22g-77.imp"
47559 @ 415113:               PUSH   FP
47560 @ 415116:               PUSH   CUR
47561 @ 415119:               SELECT 3
47562 @ 415122:               ASSVAL

  8237    %finish
47563 @ 415123:               LINE   8237 "regression-compile-tmp/imp22g-77.imp"
47564 @ 415163:               LOCATE L_0004

  8238    ->next
  8239  
47565 @ 415166:               LINE   8238 "regression-compile-tmp/imp22g-77.imp"
47566 @ 415206:               JUMP   L_018a

  8240  initial(keycontrol):
47567 @ 415209:               LINE   8240 "regression-compile-tmp/imp22g-77.imp"
47568 @ 415249:               PUSHI  #0x0000002c
47569 @ 415254:               SLABEL 382

  8241    get LITERAL(inttype)
47570 @ 415257:               LINE   8241 "regression-compile-tmp/imp22g-77.imp"
47571 @ 415297:               PUSH   GETLITERAL
47572 @ 415300:               PUSHI  #0x0000002b
47573 @ 415305:               ASSPAR
47574 @ 415306:               CALL  

  8242    control = 0 %if value = 0
47575 @ 415307:               LINE   8242 "regression-compile-tmp/imp22g-77.imp"
47576 @ 415347:               PUSH   VALUE
47577 @ 415350:               PUSHI  #0x00000000
47578 @ 415355:               JUMPIF # L_0004
47579 @ 415359:               PUSH   CONTROL
47580 @ 415362:               PUSHI  #0x00000000
47581 @ 415367:               ASSVAL
47582 @ 415368:               LOCATE L_0004

  8243    control = control!!value
47583 @ 415371:               LINE   8243 "regression-compile-tmp/imp22g-77.imp"
47584 @ 415411:               PUSH   CONTROL
47585 @ 415414:               PUSH   CONTROL
47586 @ 415417:               PUSH   VALUE
47587 @ 415420:               XOR   
47588 @ 415421:               ASSVAL

  8244    show dict(0) %if control&dictlist # 0
47589 @ 415422:               LINE   8244 "regression-compile-tmp/imp22g-77.imp"
47590 @ 415462:               PUSH   CONTROL
47591 @ 415465:               PUSHI  #0x00000010
47592 @ 415470:               AND   
47593 @ 415471:               PUSHI  #0x00000000
47594 @ 415476:               JUMPIF = L_0004
47595 @ 415480:               PUSH   SHOWDICT
47596 @ 415483:               PUSHI  #0x00000000
47597 @ 415488:               ASSPAR
47598 @ 415489:               CALL  
47599 @ 415490:               LOCATE L_0004

  8245    ->term
  8246  
47600 @ 415493:               LINE   8245 "regression-compile-tmp/imp22g-77.imp"
47601 @ 415533:               JUMP   L_018c

  8247  initial(keylist):
47602 @ 415536:               LINE   8247 "regression-compile-tmp/imp22g-77.imp"
47603 @ 415576:               PUSHI  #0x0000002b
47604 @ 415581:               SLABEL 382

  8248    control = control!list
47605 @ 415584:               LINE   8248 "regression-compile-tmp/imp22g-77.imp"
47606 @ 415624:               PUSH   CONTROL
47607 @ 415627:               PUSH   CONTROL
47608 @ 415630:               PUSHI  #0x00000001
47609 @ 415635:               OR    
47610 @ 415636:               ASSVAL

  8249    ->term
  8250  
47611 @ 415637:               LINE   8249 "regression-compile-tmp/imp22g-77.imp"
47612 @ 415677:               JUMP   L_018c

  8251  initial(keybegin):
47613 @ 415680:               LINE   8251 "regression-compile-tmp/imp22g-77.imp"
47614 @ 415720:               PUSHI  #0x00000005
47615 @ 415725:               SLABEL 382

  8252    get(terminator)
47616 @ 415728:               LINE   8252 "regression-compile-tmp/imp22g-77.imp"
47617 @ 415768:               PUSH   GET
47618 @ 415771:               PUSHI  #0x00000033
47619 @ 415776:               ASSPAR
47620 @ 415777:               CALL  

  8253    %if stopper = 0 %start;  !first %begin
47621 @ 415778:               LINE   8253 "regression-compile-tmp/imp22g-77.imp"
47622 @ 415818:               PUSH   STOPPER
47623 @ 415821:               PUSHI  #0x00000000
47624 @ 415826:               JUMPIF # L_0004

  8254      c_localdpos = dlim;  c_parlim = dlim
47625 @ 415830:               LINE   8254 "regression-compile-tmp/imp22g-77.imp"
47626 @ 415870:               PUSH   C
47627 @ 415873:               SELECT 8
47628 @ 415876:               PUSH   DLIM
47629 @ 415879:               ASSVAL
47630 @ 415880:               LINE   8254 "regression-compile-tmp/imp22g-77.imp"
47631 @ 415920:               PUSH   C
47632 @ 415923:               SELECT 9
47633 @ 415926:               PUSH   DLIM
47634 @ 415929:               ASSVAL

  8255      c_access = 1
47635 @ 415930:               LINE   8255 "regression-compile-tmp/imp22g-77.imp"
47636 @ 415970:               PUSH   C
47637 @ 415973:               SELECT 16
47638 @ 415976:               PUSHI  #0x00000001
47639 @ 415981:               ASSVAL

  8256      get STATEMENTS(keyend)
47640 @ 415982:               LINE   8256 "regression-compile-tmp/imp22g-77.imp"
47641 @ 416022:               PUSH   GETSTATEMENTS
47642 @ 416025:               PUSHI  #0x00000001
47643 @ 416030:               ASSPAR
47644 @ 416031:               CALL  

  8257      %return
47645 @ 416032:               LINE   8257 "regression-compile-tmp/imp22g-77.imp"
47646 @ 416072:               RETURN

  8258    %finish
47647 @ 416073:               LINE   8258 "regression-compile-tmp/imp22g-77.imp"
47648 @ 416113:               LOCATE L_0004

  8259    declare anon(beginblock)
47649 @ 416116:               LINE   8259 "regression-compile-tmp/imp22g-77.imp"
47650 @ 416156:               PUSH   DECLAREANON
47651 @ 416159:               PUSH   BEGINBLOCK
47652 @ 416162:               ASSPAR
47653 @ 416163:               CALL  

  8260    open block(dlim0)
47654 @ 416164:               LINE   8260 "regression-compile-tmp/imp22g-77.imp"
47655 @ 416204:               PUSH   OPENBLOCK
47656 @ 416207:               PUSH   DLIM0
47657 @ 416210:               ASSPAR
47658 @ 416211:               CALL  

  8261    get STATEMENTS(keyend)
47659 @ 416212:               LINE   8261 "regression-compile-tmp/imp22g-77.imp"
47660 @ 416252:               PUSH   GETSTATEMENTS
47661 @ 416255:               PUSHI  #0x00000001
47662 @ 416260:               ASSPAR
47663 @ 416261:               CALL  

  8262    update sp
47664 @ 416262:               LINE   8262 "regression-compile-tmp/imp22g-77.imp"
47665 @ 416302:               PUSH   UPDATESP
47666 @ 416305:               CALL  

  8263    this is inst
47667 @ 416306:               LINE   8263 "regression-compile-tmp/imp22g-77.imp"
47668 @ 416346:               PUSH   THISISINST
47669 @ 416349:               CALL  

  8264    srcall(dlim-1)
47670 @ 416350:               LINE   8264 "regression-compile-tmp/imp22g-77.imp"
47671 @ 416390:               PUSH   SRCALL
47672 @ 416393:               PUSH   DLIM
47673 @ 416396:               PUSHI  #0x00000001
47674 @ 416401:               SUB   
47675 @ 416402:               ASSPAR
47676 @ 416403:               CALL  

  8265    -> term
  8266  
47677 @ 416404:               LINE   8265 "regression-compile-tmp/imp22g-77.imp"
47678 @ 416444:               JUMP   L_018c

  8267  initial(keyend):
47679 @ 416447:               LINE   8267 "regression-compile-tmp/imp22g-77.imp"
47680 @ 416487:               PUSHI  #0x00000001
47681 @ 416492:               SLABEL 382

  8268    %if stopper > keyend %start
47682 @ 416495:               LINE   8268 "regression-compile-tmp/imp22g-77.imp"
47683 @ 416535:               PUSH   STOPPER
47684 @ 416538:               PUSHI  #0x00000001
47685 @ 416543:               JUMPIF <= L_0004

  8269      %if stopper = keyrepeat %then fault(norepeat+now) %C
  8270      %else fault(nofinish+now)
47686 @ 416547:               LINE   8269 "regression-compile-tmp/imp22g-77.imp"
47687 @ 416587:               PUSH   STOPPER
47688 @ 416590:               PUSHI  #0x00000002
47689 @ 416595:               JUMPIF # L_0007
47690 @ 416599:               PUSH   FAULT
47691 @ 416602:               PUSHI  #0x0000002c
47692 @ 416607:               PUSHI  #0x00000080
47693 @ 416612:               ADD   
47694 @ 416613:               ASSPAR
47695 @ 416614:               CALL  
47696 @ 416615:               GOTO   L_0006
47697 @ 416618:               LOCATE L_0007
47698 @ 416621:               PUSH   FAULT
47699 @ 416624:               PUSHI  #0x0000002b
47700 @ 416629:               PUSHI  #0x00000080
47701 @ 416634:               ADD   
47702 @ 416635:               ASSPAR
47703 @ 416636:               CALL  
47704 @ 416637:               LOCATE L_0006

  8271    %else
47705 @ 416640:               LINE   8271 "regression-compile-tmp/imp22g-77.imp"
47706 @ 416680:               GOTO   L_0003
47707 @ 416683:               LOCATE L_0004

  8272      %if a(keyof)=TRUE %start
47708 @ 416686:               LINE   8272 "regression-compile-tmp/imp22g-77.imp"
47709 @ 416726:               PUSH   A
47710 @ 416729:               PUSHI  #0x00000028
47711 @ 416734:               ASSPAR
47712 @ 416735:               CALL  
47713 @ 416736:               PUSHI  #0x00000001
47714 @ 416741:               JUMPIF # L_0007

  8273        %if a(keylist)=TRUE %start
47715 @ 416745:               LINE   8273 "regression-compile-tmp/imp22g-77.imp"
47716 @ 416785:               PUSH   A
47717 @ 416788:               PUSHI  #0x0000002b
47718 @ 416793:               ASSPAR
47719 @ 416794:               CALL  
47720 @ 416795:               PUSHI  #0x00000001
47721 @ 416800:               JUMPIF # L_000a

  8274          control = control&(\list)
47722 @ 416804:               LINE   8274 "regression-compile-tmp/imp22g-77.imp"
47723 @ 416844:               PUSH   CONTROL
47724 @ 416847:               PUSH   CONTROL
47725 @ 416850:               PUSHI  #0x00000001
47726 @ 416855:               NOT   
47727 @ 416856:               AND   
47728 @ 416857:               ASSVAL

  8275          ->term
47729 @ 416858:               LINE   8275 "regression-compile-tmp/imp22g-77.imp"
47730 @ 416898:               JUMP   L_018c

  8276        %finish
47731 @ 416901:               LINE   8276 "regression-compile-tmp/imp22g-77.imp"
47732 @ 416941:               LOCATE L_000a

  8277        %if a(keyfile)=TRUE %start
47733 @ 416944:               LINE   8277 "regression-compile-tmp/imp22g-77.imp"
47734 @ 416984:               PUSH   A
47735 @ 416987:               PUSHI  #0x00000029
47736 @ 416992:               ASSPAR
47737 @ 416993:               CALL  
47738 @ 416994:               PUSHI  #0x00000001
47739 @ 416999:               JUMPIF # L_000a

  8278         fp = curlim;  sym = nl
47740 @ 417003:               LINE   8278 "regression-compile-tmp/imp22g-77.imp"
47741 @ 417043:               PUSH   FP
47742 @ 417046:               PUSH   CURLIM
47743 @ 417049:               ASSVAL
47744 @ 417050:               LINE   8278 "regression-compile-tmp/imp22g-77.imp"
47745 @ 417090:               PUSH   SYM
47746 @ 417093:               PUSHI  #0x0000000a
47747 @ 417098:               ASSVAL

  8279          ->next
47748 @ 417099:               LINE   8279 "regression-compile-tmp/imp22g-77.imp"
47749 @ 417139:               JUMP   L_018a

  8280        %finish
47750 @ 417142:               LINE   8280 "regression-compile-tmp/imp22g-77.imp"
47751 @ 417182:               LOCATE L_000a

  8281        get(keyprogram)
47752 @ 417185:               LINE   8281 "regression-compile-tmp/imp22g-77.imp"
47753 @ 417225:               PUSH   GET
47754 @ 417228:               PUSHI  #0x0000002a
47755 @ 417233:               ASSPAR
47756 @ 417234:               CALL  

  8282        fault(noend+now) %if level # outerlevel
47757 @ 417235:               LINE   8282 "regression-compile-tmp/imp22g-77.imp"
47758 @ 417275:               PUSH   LEVEL
47759 @ 417278:               PUSHI  #0x00000000
47760 @ 417283:               JUMPIF = L_000a
47761 @ 417287:               PUSH   FAULT
47762 @ 417290:               PUSHI  #0x0000002a
47763 @ 417295:               PUSHI  #0x00000080
47764 @ 417300:               ADD   
47765 @ 417301:               ASSPAR
47766 @ 417302:               CALL  
47767 @ 417303:               LOCATE L_000a

  8283      %finish
47768 @ 417306:               LINE   8283 "regression-compile-tmp/imp22g-77.imp"
47769 @ 417346:               LOCATE L_0007

  8284      fault(nobegin+now) %if stopper = 0
47770 @ 417349:               LINE   8284 "regression-compile-tmp/imp22g-77.imp"
47771 @ 417389:               PUSH   STOPPER
47772 @ 417392:               PUSHI  #0x00000000
47773 @ 417397:               JUMPIF # L_0007
47774 @ 417401:               PUSH   FAULT
47775 @ 417404:               PUSHI  #0x00000024
47776 @ 417409:               PUSHI  #0x00000080
47777 @ 417414:               ADD   
47778 @ 417415:               ASSPAR
47779 @ 417416:               CALL  
47780 @ 417417:               LOCATE L_0007

  8285      %if c_access > 0 %start
47781 @ 417420:               LINE   8285 "regression-compile-tmp/imp22g-77.imp"
47782 @ 417460:               PUSH   C
47783 @ 417463:               SELECT 16
47784 @ 417466:               PUSHI  #0x00000000
47785 @ 417471:               JUMPIF <= L_0007

  8286        fault(noresult+now) %if c_type # 0;  !fn/map/pred
47786 @ 417475:               LINE   8286 "regression-compile-tmp/imp22g-77.imp"
47787 @ 417515:               PUSH   C
47788 @ 417518:               SELECT 7
47789 @ 417521:               PUSHI  #0x00000000
47790 @ 417526:               JUMPIF = L_000a
47791 @ 417530:               PUSH   FAULT
47792 @ 417533:               PUSHI  #0x00000005
47793 @ 417538:               PUSHI  #0x00000080
47794 @ 417543:               ADD   
47795 @ 417544:               ASSPAR
47796 @ 417545:               CALL  
47797 @ 417546:               LOCATE L_000a

  8287      %finish
47798 @ 417549:               LINE   8287 "regression-compile-tmp/imp22g-77.imp"
47799 @ 417589:               LOCATE L_0007

  8288      close block
47800 @ 417592:               LINE   8288 "regression-compile-tmp/imp22g-77.imp"
47801 @ 417632:               PUSH   CLOSEBLOCK
47802 @ 417635:               CALL  

  8289    %finish
47803 @ 417636:               LINE   8289 "regression-compile-tmp/imp22g-77.imp"
47804 @ 417676:               LOCATE L_0003

  8290  %end;  !GET STATEMENTS
  8291  
  8292  !<<BOTH
  8293  
47805 @ 417679:               LINE   8290 "regression-compile-tmp/imp22g-77.imp"
47806 @ 417719:            END    _lev0id0_GETSTATEMENTS {lev=2 --> 1}

  8294  %routine ANNOUNCE(%integer value,%string(255) message)
47807 @ 417720:            LINE   8294 "regression-compile-tmp/imp22g-77.imp"
47808 @ 417760:            DEF    ANNOUNCE (_lev0id0_ANNOUNCE) p1=V_017d 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
47809 @ 417780:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
47810 @ 417781:                  DEF    VALUE p1=V_017e a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
47811 @ 417798:                  DEF    MESSAGE p1=V_017f 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
47812 @ 417817:               FINISH ) {lev=2}

  8295    write(value,1);  space;  printstring(message)
47813 @ 417818:               LINE   8295 "regression-compile-tmp/imp22g-77.imp"
47814 @ 417858:               PUSH   WRITE
47815 @ 417861:               PUSH   VALUE
47816 @ 417864:               ASSPAR
47817 @ 417865:               PUSHI  #0x00000001
47818 @ 417870:               ASSPAR
47819 @ 417871:               CALL  
47820 @ 417872:               LINE   8295 "regression-compile-tmp/imp22g-77.imp"
47821 @ 417912:               PUSH   SPACE
47822 @ 417915:               CALL  
47823 @ 417916:               LINE   8295 "regression-compile-tmp/imp22g-77.imp"
47824 @ 417956:               PUSH   PRINTSTRING
47825 @ 417959:               PUSH   MESSAGE
47826 @ 417962:               ASSPAR
47827 @ 417963:               CALL  

  8296    printsymbol('s') %if value # 1
47828 @ 417964:               LINE   8296 "regression-compile-tmp/imp22g-77.imp"
47829 @ 418004:               PUSH   VALUE
47830 @ 418007:               PUSHI  #0x00000001
47831 @ 418012:               JUMPIF = L_0004
47832 @ 418016:               PUSH   PRINTSYMBOL
47833 @ 418019:               PUSHI  #0x00000073
47834 @ 418024:               ASSPAR
47835 @ 418025:               CALL  
47836 @ 418026:               LOCATE L_0004

  8297  %end
  8298  
47837 @ 418029:               LINE   8297 "regression-compile-tmp/imp22g-77.imp"
47838 @ 418069:            END    _lev0id0_ANNOUNCE {lev=2 --> 1}

  8299  %routine OUTPUT OBJECT FILE
47839 @ 418070:            LINE   8299 "regression-compile-tmp/imp22g-77.imp"
47840 @ 418110:            DEF    OUTPUTOBJECTFILE (_lev0id0_OUTPUTOBJECTFILE) p1=V_017e 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
47841 @ 418138:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
47842 @ 418139:               FINISH ) {lev=2}

  8300  %constinteger OBJOUT=1
47843 @ 418140:               LINE   8300 "regression-compile-tmp/imp22g-77.imp"

  8301  %constinteger INITSIZE=18
  8302  !%constinteger INITSIZE=30
47844 @ 418180:               LINE   8301 "regression-compile-tmp/imp22g-77.imp"

  8303  %integer i,reset,totsize,ownsize
  8304  ! INIT SEQUENCE
  8305  !   code to copy own values from end of code area to data area
  8306  !
  8307  !    Program area                 Data area
  8308  !   ________________         __________________
  8309  !   |              |         |                |
  8310  !   |              |         |  STACK SPACE   |
  8311  !   |    CODE      |         |                |
  8312  !   |              |     SP->|~~~~~~~~~~~~~~~~|
  8313  !   |______________|         |                |
  8314  !   |    init      |         |                |
  8315  !   |~~~~~~~~~~~~~~|         |GLOBAL DYNAMICS |
  8316  !   |              |         |                |
  8317  !   |  OWN VALUES  |     MB->|~~~~~~~~~~~~~~~~|
  8318  !   |              |         |                |
  8319  !   |              |         |    OWNS        |
  8320  !   |______________|         |                |
  8321  !                        orig|                |
  8322  !                        SP->|~~~~~~~~~~~~~~~~|
  8323  !
  8324   
47845 @ 418220:               LINE   8303 "regression-compile-tmp/imp22g-77.imp"
47846 @ 418260:               DEF    I p1=V_017f a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
47847 @ 418273:               DEF    RESET p1=V_0180 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
47848 @ 418290:               DEF    TOTSIZE p1=V_0181 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
47849 @ 418309:               DEF    OWNSIZE p1=V_0182 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

  8325    reset = 0;  totsize = cad
47850 @ 418328:               LINE   8325 "regression-compile-tmp/imp22g-77.imp"
47851 @ 418368:               PUSH   RESET
47852 @ 418371:               PUSHI  #0x00000000
47853 @ 418376:               ASSVAL
47854 @ 418377:               LINE   8325 "regression-compile-tmp/imp22g-77.imp"
47855 @ 418417:               PUSH   TOTSIZE
47856 @ 418420:               PUSH   CAD
47857 @ 418423:               ASSVAL

  8326    ownsize =  ownad
47858 @ 418424:               LINE   8326 "regression-compile-tmp/imp22g-77.imp"
47859 @ 418464:               PUSH   OWNSIZE
47860 @ 418467:               PUSH   OWNAD
47861 @ 418470:               ASSVAL

  8327    %if ownsize # 0 %start
47862 @ 418471:               LINE   8327 "regression-compile-tmp/imp22g-77.imp"
47863 @ 418511:               PUSH   OWNSIZE
47864 @ 418514:               PUSHI  #0x00000000
47865 @ 418519:               JUMPIF = L_0004

  8328      fill own(4-ownad&3) %if ownad&3 # 0
47866 @ 418523:               LINE   8328 "regression-compile-tmp/imp22g-77.imp"
47867 @ 418563:               PUSH   OWNAD
47868 @ 418566:               PUSHI  #0x00000003
47869 @ 418571:               AND   
47870 @ 418572:               PUSHI  #0x00000000
47871 @ 418577:               JUMPIF = L_0007
47872 @ 418581:               PUSH   FILLOWN
47873 @ 418584:               PUSHI  #0x00000004
47874 @ 418589:               PUSH   OWNAD
47875 @ 418592:               PUSHI  #0x00000003
47876 @ 418597:               AND   
47877 @ 418598:               SUB   
47878 @ 418599:               ASSPAR
47879 @ 418600:               CALL  
47880 @ 418601:               LOCATE L_0007

  8329      ownsize = ownad
47881 @ 418604:               LINE   8329 "regression-compile-tmp/imp22g-77.imp"
47882 @ 418644:               PUSH   OWNSIZE
47883 @ 418647:               PUSH   OWNAD
47884 @ 418650:               ASSVAL

  8330      reset = cad;    !entry-point for RESET
47885 @ 418651:               LINE   8330 "regression-compile-tmp/imp22g-77.imp"
47886 @ 418691:               PUSH   RESET
47887 @ 418694:               PUSH   CAD
47888 @ 418697:               ASSVAL

  8331      totsize = totsize+(initsize+ownad);  !total code size
47889 @ 418698:               LINE   8331 "regression-compile-tmp/imp22g-77.imp"
47890 @ 418738:               PUSH   TOTSIZE
47891 @ 418741:               PUSH   TOTSIZE
47892 @ 418744:               PUSHI  #0x00000012
47893 @ 418749:               PUSH   OWNAD
47894 @ 418752:               ADD   
47895 @ 418753:               ADD   
47896 @ 418754:               ASSVAL

  8332    %finish
47897 @ 418755:               LINE   8332 "regression-compile-tmp/imp22g-77.imp"
47898 @ 418795:               LOCATE L_0004

  8333    set extension(objfile,".mob")
47899 @ 418798:               LINE   8333 "regression-compile-tmp/imp22g-77.imp"
47900 @ 418838:               PUSH   SETEXTENSION
47901 @ 418841:               PUSH   OBJFILE
47902 @ 418844:               ASSPAR
47903 @ 418845:               PUSHS  ".mob"
47904 @ 418851:               ASSPAR
47905 @ 418852:               CALL  

  8334    time1 = time1-cputime
47906 @ 418853:               LINE   8334 "regression-compile-tmp/imp22g-77.imp"
47907 @ 418893:               PUSH   TIME1
47908 @ 418896:               PUSH   TIME1
47909 @ 418899:               PUSH   CPUTIME
47910 @ 418902:               SUB   
47911 @ 418903:               ASSVAL

  8335    open output(objout,objfile)
47912 @ 418904:               LINE   8335 "regression-compile-tmp/imp22g-77.imp"
47913 @ 418944:               PUSH   OPENOUTPUT
47914 @ 418947:               PUSHI  #0x00000001
47915 @ 418952:               ASSPAR
47916 @ 418953:               PUSH   OBJFILE
47917 @ 418956:               ASSPAR
47918 @ 418957:               CALL  

  8336    select output(objout)
47919 @ 418958:               LINE   8336 "regression-compile-tmp/imp22g-77.imp"
47920 @ 418998:               PUSH   SELECTOUTPUT
47921 @ 419001:               PUSHI  #0x00000001
47922 @ 419006:               ASSPAR
47923 @ 419007:               CALL  

  8337    put word(16_FE02);  !object module flag, version
47924 @ 419008:               LINE   8337 "regression-compile-tmp/imp22g-77.imp"
47925 @ 419048:               PUSH   PUTWORD
47926 @ 419051:               PUSHI  #0x0000fe02
47927 @ 419056:               ASSPAR
47928 @ 419057:               CALL  

  8338    put word(control>>20<<4);  !checking options
47929 @ 419058:               LINE   8338 "regression-compile-tmp/imp22g-77.imp"
47930 @ 419098:               PUSH   PUTWORD
47931 @ 419101:               PUSH   CONTROL
47932 @ 419104:               PUSHI  #0x00000014
47933 @ 419109:               RSH   
47934 @ 419110:               PUSHI  #0x00000004
47935 @ 419115:               LSH   
47936 @ 419116:               ASSPAR
47937 @ 419117:               CALL  

  8339    value = 0
47938 @ 419118:               LINE   8339 "regression-compile-tmp/imp22g-77.imp"
47939 @ 419158:               PUSH   VALUE
47940 @ 419161:               PUSHI  #0x00000000
47941 @ 419166:               ASSVAL

  8340    do externals(externs,-1) %if externs # 0;  !find size
47942 @ 419167:               LINE   8340 "regression-compile-tmp/imp22g-77.imp"
47943 @ 419207:               PUSH   EXTERNS
47944 @ 419210:               PUSHI  #0x00000000
47945 @ 419215:               JUMPIF = L_0004
47946 @ 419219:               PUSH   DOEXTERNALS
47947 @ 419222:               PUSH   EXTERNS
47948 @ 419225:               ASSPAR
47949 @ 419226:               PUSHI  #0x00000001
47950 @ 419231:               NEGATE
47951 @ 419232:               ASSPAR
47952 @ 419233:               CALL  
47953 @ 419234:               LOCATE L_0004

  8341    put word(value);        !length of exports
47954 @ 419237:               LINE   8341 "regression-compile-tmp/imp22g-77.imp"
47955 @ 419277:               PUSH   PUTWORD
47956 @ 419280:               PUSH   VALUE
47957 @ 419283:               ASSPAR
47958 @ 419284:               CALL  

  8342    value = 0
47959 @ 419285:               LINE   8342 "regression-compile-tmp/imp22g-77.imp"
47960 @ 419325:               PUSH   VALUE
47961 @ 419328:               PUSHI  #0x00000000
47962 @ 419333:               ASSVAL

  8343    do externals(extspecs,-1) %if extspecs # 0;  !find size
47963 @ 419334:               LINE   8343 "regression-compile-tmp/imp22g-77.imp"
47964 @ 419374:               PUSH   EXTSPECS
47965 @ 419377:               PUSHI  #0x00000000
47966 @ 419382:               JUMPIF = L_0004
47967 @ 419386:               PUSH   DOEXTERNALS
47968 @ 419389:               PUSH   EXTSPECS
47969 @ 419392:               ASSPAR
47970 @ 419393:               PUSHI  #0x00000001
47971 @ 419398:               NEGATE
47972 @ 419399:               ASSPAR
47973 @ 419400:               CALL  
47974 @ 419401:               LOCATE L_0004

  8344    put word(value);        !length of imports
47975 @ 419404:               LINE   8344 "regression-compile-tmp/imp22g-77.imp"
47976 @ 419444:               PUSH   PUTWORD
47977 @ 419447:               PUSH   VALUE
47978 @ 419450:               ASSPAR
47979 @ 419451:               CALL  

  8345    put word(totsize>>16);  !length of code + init pattern
47980 @ 419452:               LINE   8345 "regression-compile-tmp/imp22g-77.imp"
47981 @ 419492:               PUSH   PUTWORD
47982 @ 419495:               PUSH   TOTSIZE
47983 @ 419498:               PUSHI  #0x00000010
47984 @ 419503:               RSH   
47985 @ 419504:               ASSPAR
47986 @ 419505:               CALL  

  8346    put word(totsize)
47987 @ 419506:               LINE   8346 "regression-compile-tmp/imp22g-77.imp"
47988 @ 419546:               PUSH   PUTWORD
47989 @ 419549:               PUSH   TOTSIZE
47990 @ 419552:               ASSPAR
47991 @ 419553:               CALL  

  8347    put word(reset>>1);     !reset entry-point
47992 @ 419554:               LINE   8347 "regression-compile-tmp/imp22g-77.imp"
47993 @ 419594:               PUSH   PUTWORD
47994 @ 419597:               PUSH   RESET
47995 @ 419600:               PUSHI  #0x00000001
47996 @ 419605:               RSH   
47997 @ 419606:               ASSPAR
47998 @ 419607:               CALL  

  8348    put word(c_dpid_val>>1);  !main entry-point
47999 @ 419608:               LINE   8348 "regression-compile-tmp/imp22g-77.imp"
48000 @ 419648:               PUSH   PUTWORD
48001 @ 419651:               PUSH   C
48002 @ 419654:               SELECT 29
48003 @ 419657:               SELECT 9
48004 @ 419660:               PUSHI  #0x00000001
48005 @ 419665:               RSH   
48006 @ 419666:               ASSPAR
48007 @ 419667:               CALL  

  8349    put word(ownsize>>16);       !static data requirement
48008 @ 419668:               LINE   8349 "regression-compile-tmp/imp22g-77.imp"
48009 @ 419708:               PUSH   PUTWORD
48010 @ 419711:               PUSH   OWNSIZE
48011 @ 419714:               PUSHI  #0x00000010
48012 @ 419719:               RSH   
48013 @ 419720:               ASSPAR
48014 @ 419721:               CALL  

  8350    put word(ownsize)
48015 @ 419722:               LINE   8350 "regression-compile-tmp/imp22g-77.imp"
48016 @ 419762:               PUSH   PUTWORD
48017 @ 419765:               PUSH   OWNSIZE
48018 @ 419768:               ASSPAR
48019 @ 419769:               CALL  

  8351    put word(c_totstack>>16);  !stack requirement
48020 @ 419770:               LINE   8351 "regression-compile-tmp/imp22g-77.imp"
48021 @ 419810:               PUSH   PUTWORD
48022 @ 419813:               PUSH   C
48023 @ 419816:               SELECT 4
48024 @ 419819:               PUSHI  #0x00000010
48025 @ 419824:               RSH   
48026 @ 419825:               ASSPAR
48027 @ 419826:               CALL  

  8352    put word(c_totstack)
48028 @ 419827:               LINE   8352 "regression-compile-tmp/imp22g-77.imp"
48029 @ 419867:               PUSH   PUTWORD
48030 @ 419870:               PUSH   C
48031 @ 419873:               SELECT 4
48032 @ 419876:               ASSPAR
48033 @ 419877:               CALL  

  8353    put word(0);            !spare for diag
48034 @ 419878:               LINE   8353 "regression-compile-tmp/imp22g-77.imp"
48035 @ 419918:               PUSH   PUTWORD
48036 @ 419921:               PUSHI  #0x00000000
48037 @ 419926:               ASSPAR
48038 @ 419927:               CALL  

  8354    put word(0)
48039 @ 419928:               LINE   8354 "regression-compile-tmp/imp22g-77.imp"
48040 @ 419968:               PUSH   PUTWORD
48041 @ 419971:               PUSHI  #0x00000000
48042 @ 419976:               ASSPAR
48043 @ 419977:               CALL  

  8355    put word(0)
48044 @ 419978:               LINE   8355 "regression-compile-tmp/imp22g-77.imp"
48045 @ 420018:               PUSH   PUTWORD
48046 @ 420021:               PUSHI  #0x00000000
48047 @ 420026:               ASSPAR
48048 @ 420027:               CALL  

  8356    put word(0)
48049 @ 420028:               LINE   8356 "regression-compile-tmp/imp22g-77.imp"
48050 @ 420068:               PUSH   PUTWORD
48051 @ 420071:               PUSHI  #0x00000000
48052 @ 420076:               ASSPAR
48053 @ 420077:               CALL  

  8357    do externals(externs,0) %if externs # 0
48054 @ 420078:               LINE   8357 "regression-compile-tmp/imp22g-77.imp"
48055 @ 420118:               PUSH   EXTERNS
48056 @ 420121:               PUSHI  #0x00000000
48057 @ 420126:               JUMPIF = L_0004
48058 @ 420130:               PUSH   DOEXTERNALS
48059 @ 420133:               PUSH   EXTERNS
48060 @ 420136:               ASSPAR
48061 @ 420137:               PUSHI  #0x00000000
48062 @ 420142:               ASSPAR
48063 @ 420143:               CALL  
48064 @ 420144:               LOCATE L_0004

  8358    do externals(extspecs,1) %if extspecs # 0
48065 @ 420147:               LINE   8358 "regression-compile-tmp/imp22g-77.imp"
48066 @ 420187:               PUSH   EXTSPECS
48067 @ 420190:               PUSHI  #0x00000000
48068 @ 420195:               JUMPIF = L_0004
48069 @ 420199:               PUSH   DOEXTERNALS
48070 @ 420202:               PUSH   EXTSPECS
48071 @ 420205:               ASSPAR
48072 @ 420206:               PUSHI  #0x00000001
48073 @ 420211:               ASSPAR
48074 @ 420212:               CALL  
48075 @ 420213:               LOCATE L_0004

  8359    final(0) = 16_4E;  final(1) =16_75;  !RTS (as null reset,main?)
48076 @ 420216:               LINE   8359 "regression-compile-tmp/imp22g-77.imp"
48077 @ 420256:               PUSH   FINAL
48078 @ 420259:               PUSHI  #0x00000000
48079 @ 420264:               ACCESS
48080 @ 420265:               PUSHI  #0x0000004e
48081 @ 420270:               ASSVAL
48082 @ 420271:               LINE   8359 "regression-compile-tmp/imp22g-77.imp"
48083 @ 420311:               PUSH   FINAL
48084 @ 420314:               PUSHI  #0x00000001
48085 @ 420319:               ACCESS
48086 @ 420320:               PUSHI  #0x00000075
48087 @ 420325:               ASSVAL

  8360    i = 0
48088 @ 420326:               LINE   8360 "regression-compile-tmp/imp22g-77.imp"
48089 @ 420366:               PUSH   I
48090 @ 420369:               PUSHI  #0x00000000
48091 @ 420374:               ASSVAL

  8361    %cycle
48092 @ 420375:               LINE   8361 "regression-compile-tmp/imp22g-77.imp"
48093 @ 420415:               LOCATE L_0003

  8362      print symbol(final(i));  i = i+1
48094 @ 420418:               LINE   8362 "regression-compile-tmp/imp22g-77.imp"
48095 @ 420458:               PUSH   PRINTSYMBOL
48096 @ 420461:               PUSH   FINAL
48097 @ 420464:               PUSH   I
48098 @ 420467:               ACCESS
48099 @ 420468:               ASSPAR
48100 @ 420469:               CALL  
48101 @ 420470:               LINE   8362 "regression-compile-tmp/imp22g-77.imp"
48102 @ 420510:               PUSH   I
48103 @ 420513:               PUSH   I
48104 @ 420516:               PUSHI  #0x00000001
48105 @ 420521:               ADD   
48106 @ 420522:               ASSVAL

  8363    %repeat %until i = cad
48107 @ 420523:               LINE   8363 "regression-compile-tmp/imp22g-77.imp"
48108 @ 420563:               PUSH   I
48109 @ 420566:               PUSH   CAD
48110 @ 420569:               JUMPIF = L_0004
48111 @ 420573:               REPEAT L_0003
48112 @ 420576:               LOCATE L_0004

  8364    %if ownsize # 0 %start
48113 @ 420579:               LINE   8364 "regression-compile-tmp/imp22g-77.imp"
48114 @ 420619:               PUSH   OWNSIZE
48115 @ 420622:               PUSHI  #0x00000000
48116 @ 420627:               JUMPIF = L_0004

  8365      put word(16_2248+mb-a0);       !   move.l mb,a1
48117 @ 420631:               LINE   8365 "regression-compile-tmp/imp22g-77.imp"
48118 @ 420671:               PUSH   PUTWORD
48119 @ 420674:               PUSHI  #0x00002248
48120 @ 420679:               PUSHI  #0x0000000d
48121 @ 420684:               ADD   
48122 @ 420685:               PUSHI  #0x00000009
48123 @ 420690:               SUB   
48124 @ 420691:               ASSPAR
48125 @ 420692:               CALL  

  8366      put word(16_41FA);             !   lea initpatt,a0
48126 @ 420693:               LINE   8366 "regression-compile-tmp/imp22g-77.imp"
48127 @ 420733:               PUSH   PUTWORD
48128 @ 420736:               PUSHI  #0x000041fa
48129 @ 420741:               ASSPAR
48130 @ 420742:               CALL  

  8367      put word(16_000E)
48131 @ 420743:               LINE   8367 "regression-compile-tmp/imp22g-77.imp"
48132 @ 420783:               PUSH   PUTWORD
48133 @ 420786:               PUSHI  #0x0000000e
48134 @ 420791:               ASSPAR
48135 @ 420792:               CALL  

  8368      put word(16_303C);             !   move.w #????,d0
48136 @ 420793:               LINE   8368 "regression-compile-tmp/imp22g-77.imp"
48137 @ 420833:               PUSH   PUTWORD
48138 @ 420836:               PUSHI  #0x0000303c
48139 @ 420841:               ASSPAR
48140 @ 420842:               CALL  

  8369      put word(ownad>>1-1);          ![individual owns in shortwords - 1]
48141 @ 420843:               LINE   8369 "regression-compile-tmp/imp22g-77.imp"
48142 @ 420883:               PUSH   PUTWORD
48143 @ 420886:               PUSH   OWNAD
48144 @ 420889:               PUSHI  #0x00000001
48145 @ 420894:               RSH   
48146 @ 420895:               PUSHI  #0x00000001
48147 @ 420900:               SUB   
48148 @ 420901:               ASSPAR
48149 @ 420902:               CALL  

  8370      put word(16_32D8);             !l1 move.w (a0)+,(a1)+
48150 @ 420903:               LINE   8370 "regression-compile-tmp/imp22g-77.imp"
48151 @ 420943:               PUSH   PUTWORD
48152 @ 420946:               PUSHI  #0x000032d8
48153 @ 420951:               ASSPAR
48154 @ 420952:               CALL  

  8371      put word(16_51C8);             !   dbra d0,l1
48155 @ 420953:               LINE   8371 "regression-compile-tmp/imp22g-77.imp"
48156 @ 420993:               PUSH   PUTWORD
48157 @ 420996:               PUSHI  #0x000051c8
48158 @ 421001:               ASSPAR
48159 @ 421002:               CALL  

  8372      put word(-4)
48160 @ 421003:               LINE   8372 "regression-compile-tmp/imp22g-77.imp"
48161 @ 421043:               PUSH   PUTWORD
48162 @ 421046:               PUSHI  #0x00000004
48163 @ 421051:               NEGATE
48164 @ 421052:               ASSPAR
48165 @ 421053:               CALL  

  8373      put word(16_4E75);             !   rts
48166 @ 421054:               LINE   8373 "regression-compile-tmp/imp22g-77.imp"
48167 @ 421094:               PUSH   PUTWORD
48168 @ 421097:               PUSHI  #0x00004e75
48169 @ 421102:               ASSPAR
48170 @ 421103:               CALL  

  8374      i = 0
48171 @ 421104:               LINE   8374 "regression-compile-tmp/imp22g-77.imp"
48172 @ 421144:               PUSH   I
48173 @ 421147:               PUSHI  #0x00000000
48174 @ 421152:               ASSVAL

  8375      %cycle
48175 @ 421153:               LINE   8375 "regression-compile-tmp/imp22g-77.imp"
48176 @ 421193:               LOCATE L_0006

  8376        print symbol(final(i+ownbase));  i = i+1
48177 @ 421196:               LINE   8376 "regression-compile-tmp/imp22g-77.imp"
48178 @ 421236:               PUSH   PRINTSYMBOL
48179 @ 421239:               PUSH   FINAL
48180 @ 421242:               PUSH   I
48181 @ 421245:               PUSH   OWNBASE
48182 @ 421248:               ADD   
48183 @ 421249:               ACCESS
48184 @ 421250:               ASSPAR
48185 @ 421251:               CALL  
48186 @ 421252:               LINE   8376 "regression-compile-tmp/imp22g-77.imp"
48187 @ 421292:               PUSH   I
48188 @ 421295:               PUSH   I
48189 @ 421298:               PUSHI  #0x00000001
48190 @ 421303:               ADD   
48191 @ 421304:               ASSVAL

  8377      %repeat %until i = ownad
48192 @ 421305:               LINE   8377 "regression-compile-tmp/imp22g-77.imp"
48193 @ 421345:               PUSH   I
48194 @ 421348:               PUSH   OWNAD
48195 @ 421351:               JUMPIF = L_0007
48196 @ 421355:               REPEAT L_0006
48197 @ 421358:               LOCATE L_0007

  8378    %finish
48198 @ 421361:               LINE   8378 "regression-compile-tmp/imp22g-77.imp"
48199 @ 421401:               LOCATE L_0004

  8379    time1 = time1+cputime
48200 @ 421404:               LINE   8379 "regression-compile-tmp/imp22g-77.imp"
48201 @ 421444:               PUSH   TIME1
48202 @ 421447:               PUSH   TIME1
48203 @ 421450:               PUSH   CPUTIME
48204 @ 421453:               ADD   
48205 @ 421454:               ASSVAL

  8380  %end
  8381  
48206 @ 421455:               LINE   8380 "regression-compile-tmp/imp22g-77.imp"
48207 @ 421495:            END    _lev0id0_OUTPUTOBJECTFILE {lev=2 --> 1}

  8382  %routine CLOSE EDIT
  8383  !_FLAG is negative if edit abandoned
  8384  !_CHANGE is untouched (inf) if no changes
48208 @ 421496:            LINE   8382 "regression-compile-tmp/imp22g-77.imp"
48209 @ 421536:            DEF    CLOSEEDIT (_lev0id0_CLOSEEDIT) p1=V_017f 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
48210 @ 421557:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
48211 @ 421558:               FINISH ) {lev=2}

  8385    %if file(main)_flag >= 0 %and 0 < file(main)_change # 16_7FFFFFFF %start
48212 @ 421559:               LINE   8385 "regression-compile-tmp/imp22g-77.imp"
48213 @ 421599:               PUSH   FILE
48214 @ 421602:               PUSHI  #0x00000001
48215 @ 421607:               ACCESS
48216 @ 421608:               SELECT 9
48217 @ 421611:               PUSHI  #0x00000000
48218 @ 421616:               JUMPIF < L_0004
48219 @ 421620:               PUSHI  #0x00000000
48220 @ 421625:               PUSH   FILE
48221 @ 421628:               PUSHI  #0x00000001
48222 @ 421633:               ACCESS
48223 @ 421634:               SELECT 8
48224 @ 421637:               JUMPIFD >= L_0004
48225 @ 421641:               PUSHI  #0x7fffffff
48226 @ 421646:               JUMPIF = L_0004

  8386      file(main)_name = mainfile;  ![in case modified by OPEN IN]
48227 @ 421650:               LINE   8386 "regression-compile-tmp/imp22g-77.imp"
48228 @ 421690:               PUSH   FILE
48229 @ 421693:               PUSHI  #0x00000001
48230 @ 421698:               ACCESS
48231 @ 421699:               SELECT 18
48232 @ 421702:               PUSH   MAINFILE
48233 @ 421705:               ASSVAL

  8387      time1 = time1-cputime
  8388  !!    disconnect edfile(file(main))
48234 @ 421706:               LINE   8387 "regression-compile-tmp/imp22g-77.imp"
48235 @ 421746:               PUSH   TIME1
48236 @ 421749:               PUSH   TIME1
48237 @ 421752:               PUSH   CPUTIME
48238 @ 421755:               SUB   
48239 @ 421756:               ASSVAL

  8389      printstring(file(main)_name."  updated");  newline
48240 @ 421757:               LINE   8389 "regression-compile-tmp/imp22g-77.imp"
48241 @ 421797:               PUSH   PRINTSTRING
48242 @ 421800:               PUSH   FILE
48243 @ 421803:               PUSHI  #0x00000001
48244 @ 421808:               ACCESS
48245 @ 421809:               SELECT 18
48246 @ 421812:               PUSHS  "  updated"
48247 @ 421823:               CONCAT
48248 @ 421824:               ASSPAR
48249 @ 421825:               CALL  
48250 @ 421826:               LINE   8389 "regression-compile-tmp/imp22g-77.imp"
48251 @ 421866:               PUSH   NEWLINE
48252 @ 421869:               CALL  

  8390      time1 = time1+cputime
48253 @ 421870:               LINE   8390 "regression-compile-tmp/imp22g-77.imp"
48254 @ 421910:               PUSH   TIME1
48255 @ 421913:               PUSH   TIME1
48256 @ 421916:               PUSH   CPUTIME
48257 @ 421919:               ADD   
48258 @ 421920:               ASSVAL

  8391    %finish
48259 @ 421921:               LINE   8391 "regression-compile-tmp/imp22g-77.imp"
48260 @ 421961:               LOCATE L_0004

  8392  %end
  8393  
48261 @ 421964:               LINE   8392 "regression-compile-tmp/imp22g-77.imp"
48262 @ 422004:            END    _lev0id0_CLOSEEDIT {lev=2 --> 1}

  8394  %begin
48263 @ 422005:            LINE   8394 "regression-compile-tmp/imp22g-77.imp"
48264 @ 422045:            BEGIN  _lev0id0_lev1id1 {lev=1 --> 2}

  8395  %on %event redo,abandon %start
48265 @ 422046:               LINE   8395 "regression-compile-tmp/imp22g-77.imp"
48266 @ 422086:               ON     MASK=6000 L_0004

  8396    close edit %and %stop %if event_event = abandon
48267 @ 422092:               LINE   8396 "regression-compile-tmp/imp22g-77.imp"
48268 @ 422132:               PUSH   EVENT
48269 @ 422135:               CALL  
48270 @ 422136:               SELECT 1
48271 @ 422139:               PUSHI  #0x0000000e
48272 @ 422144:               JUMPIF # L_0007
48273 @ 422148:               PUSH   CLOSEEDIT
48274 @ 422151:               CALL  
48275 @ 422152:               STOP  
48276 @ 422153:               LOCATE L_0007

  8397  %finish
48277 @ 422156:               LINE   8397 "regression-compile-tmp/imp22g-77.imp"
48278 @ 422196:               LOCATE L_0004

  8398    time2 = cputime-time1
48279 @ 422199:               LINE   8398 "regression-compile-tmp/imp22g-77.imp"
48280 @ 422239:               PUSH   TIME2
48281 @ 422242:               PUSH   CPUTIME
48282 @ 422245:               PUSH   TIME1
48283 @ 422248:               SUB   
48284 @ 422249:               ASSVAL

  8399    statements = 1;  comments = 0;  atoms = 0
48285 @ 422250:               LINE   8399 "regression-compile-tmp/imp22g-77.imp"
48286 @ 422290:               PUSH   STATEMENTS
48287 @ 422293:               PUSHI  #0x00000001
48288 @ 422298:               ASSVAL
48289 @ 422299:               LINE   8399 "regression-compile-tmp/imp22g-77.imp"
48290 @ 422339:               PUSH   COMMENTS
48291 @ 422342:               PUSHI  #0x00000000
48292 @ 422347:               ASSVAL
48293 @ 422348:               LINE   8399 "regression-compile-tmp/imp22g-77.imp"
48294 @ 422388:               PUSH   ATOMS
48295 @ 422391:               PUSHI  #0x00000000
48296 @ 422396:               ASSVAL

  8400    identatoms = 0;  litatoms = 0
48297 @ 422397:               LINE   8400 "regression-compile-tmp/imp22g-77.imp"
48298 @ 422437:               PUSH   IDENTATOMS
48299 @ 422440:               PUSHI  #0x00000000
48300 @ 422445:               ASSVAL
48301 @ 422446:               LINE   8400 "regression-compile-tmp/imp22g-77.imp"
48302 @ 422486:               PUSH   LITATOMS
48303 @ 422489:               PUSHI  #0x00000000
48304 @ 422494:               ASSVAL

  8401    faults = 0;  others = 0;  faultnum = 0
48305 @ 422495:               LINE   8401 "regression-compile-tmp/imp22g-77.imp"
48306 @ 422535:               PUSH   FAULTS
48307 @ 422538:               PUSHI  #0x00000000
48308 @ 422543:               ASSVAL
48309 @ 422544:               LINE   8401 "regression-compile-tmp/imp22g-77.imp"
48310 @ 422584:               PUSH   OTHERS
48311 @ 422587:               PUSHI  #0x00000000
48312 @ 422592:               ASSVAL
48313 @ 422593:               LINE   8401 "regression-compile-tmp/imp22g-77.imp"
48314 @ 422633:               PUSH   FAULTNUM
48315 @ 422636:               PUSHI  #0x00000000
48316 @ 422641:               ASSVAL

  8402    zaps = 0;  steps = 0;  jumps = 0;  shorts = 0
48317 @ 422642:               LINE   8402 "regression-compile-tmp/imp22g-77.imp"
48318 @ 422682:               PUSH   ZAPS
48319 @ 422685:               PUSHI  #0x00000000
48320 @ 422690:               ASSVAL
48321 @ 422691:               LINE   8402 "regression-compile-tmp/imp22g-77.imp"
48322 @ 422731:               PUSH   STEPS
48323 @ 422734:               PUSHI  #0x00000000
48324 @ 422739:               ASSVAL
48325 @ 422740:               LINE   8402 "regression-compile-tmp/imp22g-77.imp"
48326 @ 422780:               PUSH   JUMPS
48327 @ 422783:               PUSHI  #0x00000000
48328 @ 422788:               ASSVAL
48329 @ 422789:               LINE   8402 "regression-compile-tmp/imp22g-77.imp"
48330 @ 422829:               PUSH   SHORTS
48331 @ 422832:               PUSHI  #0x00000000
48332 @ 422837:               ASSVAL

  8403    rep = ""
48333 @ 422838:               LINE   8403 "regression-compile-tmp/imp22g-77.imp"
48334 @ 422878:               PUSH   REP
48335 @ 422881:               PUSHS  ""
48336 @ 422883:               ASSVAL

  8404    forget triples;  !reset LITPOS,EXPLO,OLDEXPLO
48337 @ 422884:               LINE   8404 "regression-compile-tmp/imp22g-77.imp"
48338 @ 422924:               PUSH   FORGETTRIPLES
48339 @ 422927:               CALL  

  8405    char0 = addr(char(0));  final0 = addr(final(0))
48340 @ 422928:               LINE   8405 "regression-compile-tmp/imp22g-77.imp"
48341 @ 422968:               PUSH   CHAR0
48342 @ 422971:               PUSH   ADDR
48343 @ 422974:               PUSH   CHAR
48344 @ 422977:               PUSHI  #0x00000000
48345 @ 422982:               ACCESS
48346 @ 422983:               ASSPAR
48347 @ 422984:               CALL  
48348 @ 422985:               ASSVAL
48349 @ 422986:               LINE   8405 "regression-compile-tmp/imp22g-77.imp"
48350 @ 423026:               PUSH   FINAL0
48351 @ 423029:               PUSH   ADDR
48352 @ 423032:               PUSH   FINAL
48353 @ 423035:               PUSHI  #0x00000000
48354 @ 423040:               ACCESS
48355 @ 423041:               ASSPAR
48356 @ 423042:               CALL  
48357 @ 423043:               ASSVAL

  8406    preset
48358 @ 423044:               LINE   8406 "regression-compile-tmp/imp22g-77.imp"
48359 @ 423084:               PUSH   PRESET
48360 @ 423087:               CALL  

  8407    dint == dict(inttype)
48361 @ 423088:               LINE   8407 "regression-compile-tmp/imp22g-77.imp"
48362 @ 423128:               PUSH   DINT
48363 @ 423131:               PUSH   DICT
48364 @ 423134:               PUSHI  #0x0000002b
48365 @ 423139:               ACCESS
48366 @ 423140:               ASSREF

  8408    dtemp == dict(lablim);  dtemp2 == dict(lablim+1)
48367 @ 423141:               LINE   8408 "regression-compile-tmp/imp22g-77.imp"
48368 @ 423181:               PUSH   DTEMP
48369 @ 423184:               PUSH   DICT
48370 @ 423187:               PUSH   LABLIM
48371 @ 423190:               ACCESS
48372 @ 423191:               ASSREF
48373 @ 423192:               LINE   8408 "regression-compile-tmp/imp22g-77.imp"
48374 @ 423232:               PUSH   DTEMP2
48375 @ 423235:               PUSH   DICT
48376 @ 423238:               PUSH   LABLIM
48377 @ 423241:               PUSHI  #0x00000001
48378 @ 423246:               ADD   
48379 @ 423247:               ACCESS
48380 @ 423248:               ASSREF

  8409    dtsprel == dict(lablim+2)                                     ;! GT: file corruption???? lablim turned into lablib since the last compile!  WTF???
48381 @ 423249:               LINE   8409 "regression-compile-tmp/imp22g-77.imp"
48382 @ 423289:               PUSH   DTSPREL
48383 @ 423292:               PUSH   DICT
48384 @ 423295:               PUSH   LABLIM
48385 @ 423298:               PUSHI  #0x00000002
48386 @ 423303:               ADD   
48387 @ 423304:               ACCESS
48388 @ 423305:               ASSREF

  8410    dmin = dictlim;  dmin0 = dmin
48389 @ 423306:               LINE   8410 "regression-compile-tmp/imp22g-77.imp"
48390 @ 423346:               PUSH   DMIN
48391 @ 423349:               PUSH   DICTLIM
48392 @ 423352:               ASSVAL
48393 @ 423353:               LINE   8410 "regression-compile-tmp/imp22g-77.imp"
48394 @ 423393:               PUSH   DMIN0
48395 @ 423396:               PUSH   DMIN
48396 @ 423399:               ASSVAL

  8411    inclim = 0
48397 @ 423400:               LINE   8411 "regression-compile-tmp/imp22g-77.imp"
48398 @ 423440:               PUSH   INCLIM
48399 @ 423443:               PUSHI  #0x00000000
48400 @ 423448:               ASSVAL

  8412    accounted = 0
48401 @ 423449:               LINE   8412 "regression-compile-tmp/imp22g-77.imp"
48402 @ 423489:               PUSH   ACCOUNTED
48403 @ 423492:               PUSHI  #0x00000000
48404 @ 423497:               ASSVAL

  8413    firstentry = finalbound;  firstpos = dictlim
48405 @ 423498:               LINE   8413 "regression-compile-tmp/imp22g-77.imp"
48406 @ 423538:               PUSH   FIRSTENTRY
48407 @ 423541:               PUSH   FINALBOUND
48408 @ 423544:               ASSVAL
48409 @ 423545:               LINE   8413 "regression-compile-tmp/imp22g-77.imp"
48410 @ 423585:               PUSH   FIRSTPOS
48411 @ 423588:               PUSH   DICTLIM
48412 @ 423591:               ASSVAL

  8414    pc = 1;  swpc = progbound+1
48413 @ 423592:               LINE   8414 "regression-compile-tmp/imp22g-77.imp"
48414 @ 423632:               PUSH   PC
48415 @ 423635:               PUSHI  #0x00000001
48416 @ 423640:               ASSVAL
48417 @ 423641:               LINE   8414 "regression-compile-tmp/imp22g-77.imp"
48418 @ 423681:               PUSH   SWPC
48419 @ 423684:               PUSHI  #0x00003fff
48420 @ 423689:               PUSHI  #0x00000001
48421 @ 423694:               ADD   
48422 @ 423695:               ASSVAL

  8415    cad = 2
48423 @ 423696:               LINE   8415 "regression-compile-tmp/imp22g-77.imp"
48424 @ 423736:               PUSH   CAD
48425 @ 423739:               PUSHI  #0x00000002
48426 @ 423744:               ASSVAL

  8416    final(0) = 0;  !for empty string (compile-time only)
48427 @ 423745:               LINE   8416 "regression-compile-tmp/imp22g-77.imp"
48428 @ 423785:               PUSH   FINAL
48429 @ 423788:               PUSHI  #0x00000000
48430 @ 423793:               ACCESS
48431 @ 423794:               PUSHI  #0x00000000
48432 @ 423799:               ASSVAL

  8417    ownbase = finalbound-4095;  ownad = 0
48433 @ 423800:               LINE   8417 "regression-compile-tmp/imp22g-77.imp"
48434 @ 423840:               PUSH   OWNBASE
48435 @ 423843:               PUSH   FINALBOUND
48436 @ 423846:               PUSHI  #0x00000fff
48437 @ 423851:               SUB   
48438 @ 423852:               ASSVAL
48439 @ 423853:               LINE   8417 "regression-compile-tmp/imp22g-77.imp"
48440 @ 423893:               PUSH   OWNAD
48441 @ 423896:               PUSHI  #0x00000000
48442 @ 423901:               ASSVAL

  8418    level = outerlevel;  vintage = 1
48443 @ 423902:               LINE   8418 "regression-compile-tmp/imp22g-77.imp"
48444 @ 423942:               PUSH   LEVEL
48445 @ 423945:               PUSHI  #0x00000000
48446 @ 423950:               ASSVAL
48447 @ 423951:               LINE   8418 "regression-compile-tmp/imp22g-77.imp"
48448 @ 423991:               PUSH   VINTAGE
48449 @ 423994:               PUSHI  #0x00000001
48450 @ 423999:               ASSVAL

  8419    pendout = 0;  pendin = 0;  polarity = 0
48451 @ 424000:               LINE   8419 "regression-compile-tmp/imp22g-77.imp"
48452 @ 424040:               PUSH   PENDOUT
48453 @ 424043:               PUSHI  #0x00000000
48454 @ 424048:               ASSVAL
48455 @ 424049:               LINE   8419 "regression-compile-tmp/imp22g-77.imp"
48456 @ 424089:               PUSH   PENDIN
48457 @ 424092:               PUSHI  #0x00000000
48458 @ 424097:               ASSVAL
48459 @ 424098:               LINE   8419 "regression-compile-tmp/imp22g-77.imp"
48460 @ 424138:               PUSH   POLARITY
48461 @ 424141:               PUSHI  #0x00000000
48462 @ 424146:               ASSVAL

  8420    curlab = dictlim+1
48463 @ 424147:               LINE   8420 "regression-compile-tmp/imp22g-77.imp"
48464 @ 424187:               PUSH   CURLAB
48465 @ 424190:               PUSH   DICTLIM
48466 @ 424193:               PUSHI  #0x00000001
48467 @ 424198:               ADD   
48468 @ 424199:               ASSVAL

  8421    reset context(procstar,defaultfree)
48469 @ 424200:               LINE   8421 "regression-compile-tmp/imp22g-77.imp"
48470 @ 424240:               PUSH   RESETCONTEXT
48471 @ 424243:               PUSHI  #0x0000002a
48472 @ 424248:               ASSPAR
48473 @ 424249:               PUSHI  #0x00000f1f
48474 @ 424254:               ASSPAR
48475 @ 424255:               CALL  

  8422    c_sp = -4;   !allow for BSR
  8423  
48476 @ 424256:               LINE   8422 "regression-compile-tmp/imp22g-77.imp"
48477 @ 424296:               PUSH   C
48478 @ 424299:               SELECT 1
48479 @ 424302:               PUSHI  #0x00000004
48480 @ 424307:               NEGATE
48481 @ 424308:               ASSVAL

  8424    control = initcon
48482 @ 424309:               LINE   8424 "regression-compile-tmp/imp22g-77.imp"
48483 @ 424349:               PUSH   CONTROL
48484 @ 424352:               PUSH   INITCON
48485 @ 424355:               ASSVAL

  8425    lastfile = main
48486 @ 424356:               LINE   8425 "regression-compile-tmp/imp22g-77.imp"
48487 @ 424396:               PUSH   LASTFILE
48488 @ 424399:               PUSHI  #0x00000001
48489 @ 424404:               ASSVAL

  8426    curfile = main;  cur == file(main)
48490 @ 424405:               LINE   8426 "regression-compile-tmp/imp22g-77.imp"
48491 @ 424445:               PUSH   CURFILE
48492 @ 424448:               PUSHI  #0x00000001
48493 @ 424453:               ASSVAL
48494 @ 424454:               LINE   8426 "regression-compile-tmp/imp22g-77.imp"
48495 @ 424494:               PUSH   CUR
48496 @ 424497:               PUSH   FILE
48497 @ 424500:               PUSHI  #0x00000001
48498 @ 424505:               ACCESS
48499 @ 424506:               ASSREF

  8427    curstart = file(main)_start1;  curlim = file(main)_lim1
48500 @ 424507:               LINE   8427 "regression-compile-tmp/imp22g-77.imp"
48501 @ 424547:               PUSH   CURSTART
48502 @ 424550:               PUSH   FILE
48503 @ 424553:               PUSHI  #0x00000001
48504 @ 424558:               ACCESS
48505 @ 424559:               SELECT 1
48506 @ 424562:               ASSVAL
48507 @ 424563:               LINE   8427 "regression-compile-tmp/imp22g-77.imp"
48508 @ 424603:               PUSH   CURLIM
48509 @ 424606:               PUSH   FILE
48510 @ 424609:               PUSHI  #0x00000001
48511 @ 424614:               ACCESS
48512 @ 424615:               SELECT 2
48513 @ 424618:               ASSVAL

  8428    fp = file(main)_start1
48514 @ 424619:               LINE   8428 "regression-compile-tmp/imp22g-77.imp"
48515 @ 424659:               PUSH   FP
48516 @ 424662:               PUSH   FILE
48517 @ 424665:               PUSHI  #0x00000001
48518 @ 424670:               ACCESS
48519 @ 424671:               SELECT 1
48520 @ 424674:               ASSVAL

  8429    line = 0;  sym = nl
48521 @ 424675:               LINE   8429 "regression-compile-tmp/imp22g-77.imp"
48522 @ 424715:               PUSH   LINE
48523 @ 424718:               PUSHI  #0x00000000
48524 @ 424723:               ASSVAL
48525 @ 424724:               LINE   8429 "regression-compile-tmp/imp22g-77.imp"
48526 @ 424764:               PUSH   SYM
48527 @ 424767:               PUSHI  #0x0000000a
48528 @ 424772:               ASSVAL

  8430    np = np0
  8431  !<<IMP
48529 @ 424773:               LINE   8430 "regression-compile-tmp/imp22g-77.imp"
48530 @ 424813:               PUSH   NP
48531 @ 424816:               PUSH   NP0
48532 @ 424819:               ASSVAL

  8432    get STATEMENTS(0)
  8433  !<<BOTH
48533 @ 424820:               LINE   8432 "regression-compile-tmp/imp22g-77.imp"
48534 @ 424860:               PUSH   GETSTATEMENTS
48535 @ 424863:               PUSHI  #0x00000000
48536 @ 424868:               ASSPAR
48537 @ 424869:               CALL  

  8434  %end
  8435  
48538 @ 424870:               LINE   8434 "regression-compile-tmp/imp22g-77.imp"
48539 @ 424910:            END    _lev0id0_lev1id1 {lev=2 --> 1}

  8436    time2 = cputime-time2-time1
48540 @ 424911:            LINE   8436 "regression-compile-tmp/imp22g-77.imp"
48541 @ 424951:            PUSH   TIME2
48542 @ 424954:            PUSH   CPUTIME
48543 @ 424957:            PUSH   TIME2
48544 @ 424960:            SUB   
48545 @ 424961:            PUSH   TIME1
48546 @ 424964:            SUB   
48547 @ 424965:            ASSVAL

  8437    close edit
48548 @ 424966:            LINE   8437 "regression-compile-tmp/imp22g-77.imp"
48549 @ 425006:            PUSH   CLOSEEDIT
48550 @ 425009:            CALL  

  8438    output object file %if faults = 0 %or control&forcebit # 0
48551 @ 425010:            LINE   8438 "regression-compile-tmp/imp22g-77.imp"
48552 @ 425050:            PUSH   FAULTS
48553 @ 425053:            PUSHI  #0x00000000
48554 @ 425058:            JUMPIF = L_0005
48555 @ 425062:            PUSH   CONTROL
48556 @ 425065:            PUSHI  #0x00000800
48557 @ 425070:            AND   
48558 @ 425071:            PUSHI  #0x00000000
48559 @ 425076:            JUMPIF = L_0004
48560 @ 425080:            LOCATE L_0005
48561 @ 425083:            PUSH   OUTPUTOBJECTFILE
48562 @ 425086:            CALL  
48563 @ 425087:            LOCATE L_0004

  8439    %cycle
48564 @ 425090:            LINE   8439 "regression-compile-tmp/imp22g-77.imp"
48565 @ 425130:            LOCATE L_0003

  8440      select output(listout)
48566 @ 425133:            LINE   8440 "regression-compile-tmp/imp22g-77.imp"
48567 @ 425173:            PUSH   SELECTOUTPUT
48568 @ 425176:            PUSH   LISTOUT
48569 @ 425179:            ASSPAR
48570 @ 425180:            CALL  

  8441      printstring(file(main)_name)
48571 @ 425181:            LINE   8441 "regression-compile-tmp/imp22g-77.imp"
48572 @ 425221:            PUSH   PRINTSTRING
48573 @ 425224:            PUSH   FILE
48574 @ 425227:            PUSHI  #0x00000001
48575 @ 425232:            ACCESS
48576 @ 425233:            SELECT 18
48577 @ 425236:            ASSPAR
48578 @ 425237:            CALL  

  8442      %if faults = 0 %or control&forcebit # 0 %start
48579 @ 425238:            LINE   8442 "regression-compile-tmp/imp22g-77.imp"
48580 @ 425278:            PUSH   FAULTS
48581 @ 425281:            PUSHI  #0x00000000
48582 @ 425286:            JUMPIF = L_0008
48583 @ 425290:            PUSH   CONTROL
48584 @ 425293:            PUSHI  #0x00000800
48585 @ 425298:            AND   
48586 @ 425299:            PUSHI  #0x00000000
48587 @ 425304:            JUMPIF = L_0007
48588 @ 425308:            LOCATE L_0008

  8443        printstring(" compiled:")
48589 @ 425311:            LINE   8443 "regression-compile-tmp/imp22g-77.imp"
48590 @ 425351:            PUSH   PRINTSTRING
48591 @ 425354:            PUSHS  " compiled:"
48592 @ 425366:            ASSPAR
48593 @ 425367:            CALL  

  8444        announce(statements,"statement")
48594 @ 425368:            LINE   8444 "regression-compile-tmp/imp22g-77.imp"
48595 @ 425408:            PUSH   ANNOUNCE
48596 @ 425411:            PUSH   STATEMENTS
48597 @ 425414:            ASSPAR
48598 @ 425415:            PUSHS  "statement"
48599 @ 425426:            ASSPAR
48600 @ 425427:            CALL  

  8445        print string(" (+")
48601 @ 425428:            LINE   8445 "regression-compile-tmp/imp22g-77.imp"
48602 @ 425468:            PUSH   PRINTSTRING
48603 @ 425471:            PUSHS  " (+"
48604 @ 425476:            ASSPAR
48605 @ 425477:            CALL  

  8446        announce(comments,"comment")
48606 @ 425478:            LINE   8446 "regression-compile-tmp/imp22g-77.imp"
48607 @ 425518:            PUSH   ANNOUNCE
48608 @ 425521:            PUSH   COMMENTS
48609 @ 425524:            ASSPAR
48610 @ 425525:            PUSHS  "comment"
48611 @ 425534:            ASSPAR
48612 @ 425535:            CALL  

  8447        printstring(") to")
48613 @ 425536:            LINE   8447 "regression-compile-tmp/imp22g-77.imp"
48614 @ 425576:            PUSH   PRINTSTRING
48615 @ 425579:            PUSHS  ") to"
48616 @ 425585:            ASSPAR
48617 @ 425586:            CALL  

  8448        announce(cad,"byte")
48618 @ 425587:            LINE   8448 "regression-compile-tmp/imp22g-77.imp"
48619 @ 425627:            PUSH   ANNOUNCE
48620 @ 425630:            PUSH   CAD
48621 @ 425633:            ASSPAR
48622 @ 425634:            PUSHS  "byte"
48623 @ 425640:            ASSPAR
48624 @ 425641:            CALL  

  8449        printstring(" (+");  write(ownad,1)
48625 @ 425642:            LINE   8449 "regression-compile-tmp/imp22g-77.imp"
48626 @ 425682:            PUSH   PRINTSTRING
48627 @ 425685:            PUSHS  " (+"
48628 @ 425690:            ASSPAR
48629 @ 425691:            CALL  
48630 @ 425692:            LINE   8449 "regression-compile-tmp/imp22g-77.imp"
48631 @ 425732:            PUSH   WRITE
48632 @ 425735:            PUSH   OWNAD
48633 @ 425738:            ASSPAR
48634 @ 425739:            PUSHI  #0x00000001
48635 @ 425744:            ASSPAR
48636 @ 425745:            CALL  

  8450        printsymbol(')')
48637 @ 425746:            LINE   8450 "regression-compile-tmp/imp22g-77.imp"
48638 @ 425786:            PUSH   PRINTSYMBOL
48639 @ 425789:            PUSHI  #0x00000029
48640 @ 425794:            ASSPAR
48641 @ 425795:            CALL  

  8451        newline
48642 @ 425796:            LINE   8451 "regression-compile-tmp/imp22g-77.imp"
48643 @ 425836:            PUSH   NEWLINE
48644 @ 425839:            CALL  

  8452      %finish
48645 @ 425840:            LINE   8452 "regression-compile-tmp/imp22g-77.imp"
48646 @ 425880:            LOCATE L_0007

  8453      %if faults # 0 %start
48647 @ 425883:            LINE   8453 "regression-compile-tmp/imp22g-77.imp"
48648 @ 425923:            PUSH   FAULTS
48649 @ 425926:            PUSHI  #0x00000000
48650 @ 425931:            JUMPIF = L_0007

  8454        printsymbol(':')
48651 @ 425935:            LINE   8454 "regression-compile-tmp/imp22g-77.imp"
48652 @ 425975:            PUSH   PRINTSYMBOL
48653 @ 425978:            PUSHI  #0x0000003a
48654 @ 425983:            ASSPAR
48655 @ 425984:            CALL  

  8455        announce(faults,"fault")
48656 @ 425985:            LINE   8455 "regression-compile-tmp/imp22g-77.imp"
48657 @ 426025:            PUSH   ANNOUNCE
48658 @ 426028:            PUSH   FAULTS
48659 @ 426031:            ASSPAR
48660 @ 426032:            PUSHS  "fault"
48661 @ 426039:            ASSPAR
48662 @ 426040:            CALL  

  8456        printstring(" reported")
48663 @ 426041:            LINE   8456 "regression-compile-tmp/imp22g-77.imp"
48664 @ 426081:            PUSH   PRINTSTRING
48665 @ 426084:            PUSHS  " reported"
48666 @ 426095:            ASSPAR
48667 @ 426096:            CALL  

  8457        %if others # 0 %start
48668 @ 426097:            LINE   8457 "regression-compile-tmp/imp22g-77.imp"
48669 @ 426137:            PUSH   OTHERS
48670 @ 426140:            PUSHI  #0x00000000
48671 @ 426145:            JUMPIF = L_000a

  8458          printstring(" (+");  announce(others,"other")
48672 @ 426149:            LINE   8458 "regression-compile-tmp/imp22g-77.imp"
48673 @ 426189:            PUSH   PRINTSTRING
48674 @ 426192:            PUSHS  " (+"
48675 @ 426197:            ASSPAR
48676 @ 426198:            CALL  
48677 @ 426199:            LINE   8458 "regression-compile-tmp/imp22g-77.imp"
48678 @ 426239:            PUSH   ANNOUNCE
48679 @ 426242:            PUSH   OTHERS
48680 @ 426245:            ASSPAR
48681 @ 426246:            PUSHS  "other"
48682 @ 426253:            ASSPAR
48683 @ 426254:            CALL  

  8459          printsymbol(')')
48684 @ 426255:            LINE   8459 "regression-compile-tmp/imp22g-77.imp"
48685 @ 426295:            PUSH   PRINTSYMBOL
48686 @ 426298:            PUSHI  #0x00000029
48687 @ 426303:            ASSPAR
48688 @ 426304:            CALL  

  8460        %finish
48689 @ 426305:            LINE   8460 "regression-compile-tmp/imp22g-77.imp"
48690 @ 426345:            LOCATE L_000a

  8461        newline
48691 @ 426348:            LINE   8461 "regression-compile-tmp/imp22g-77.imp"
48692 @ 426388:            PUSH   NEWLINE
48693 @ 426391:            CALL  

  8462      %finish
48694 @ 426392:            LINE   8462 "regression-compile-tmp/imp22g-77.imp"
48695 @ 426432:            LOCATE L_0007

  8463      %if control&logbit # 0 %start
48696 @ 426435:            LINE   8463 "regression-compile-tmp/imp22g-77.imp"
48697 @ 426475:            PUSH   CONTROL
48698 @ 426478:            PUSHI  #0x00000400
48699 @ 426483:            AND   
48700 @ 426484:            PUSHI  #0x00000000
48701 @ 426489:            JUMPIF = L_0007

  8464        printstring(%c
  8465  "  CODE  OWNS  JUMPS SHORT STEPS  ZAPS | ATOMS LITS IDS  TIME")
48702 @ 426493:            LINE   8464 "regression-compile-tmp/imp22g-77.imp"
48703 @ 426533:            PUSH   PRINTSTRING
48704 @ 426536:            PUSHS  "  CODE  OWNS  JUMPS SHORT STEPS  ZAPS | ATOMS LITS IDS  TIME"
48705 @ 426598:            ASSPAR
48706 @ 426599:            CALL  

  8466        newline
48707 @ 426600:            LINE   8466 "regression-compile-tmp/imp22g-77.imp"
48708 @ 426640:            PUSH   NEWLINE
48709 @ 426643:            CALL  

  8467        write(cad,5)
48710 @ 426644:            LINE   8467 "regression-compile-tmp/imp22g-77.imp"
48711 @ 426684:            PUSH   WRITE
48712 @ 426687:            PUSH   CAD
48713 @ 426690:            ASSPAR
48714 @ 426691:            PUSHI  #0x00000005
48715 @ 426696:            ASSPAR
48716 @ 426697:            CALL  

  8468        write(ownad,5)
48717 @ 426698:            LINE   8468 "regression-compile-tmp/imp22g-77.imp"
48718 @ 426738:            PUSH   WRITE
48719 @ 426741:            PUSH   OWNAD
48720 @ 426744:            ASSPAR
48721 @ 426745:            PUSHI  #0x00000005
48722 @ 426750:            ASSPAR
48723 @ 426751:            CALL  

  8469        write(jumps,6);  write(shorts,5)
48724 @ 426752:            LINE   8469 "regression-compile-tmp/imp22g-77.imp"
48725 @ 426792:            PUSH   WRITE
48726 @ 426795:            PUSH   JUMPS
48727 @ 426798:            ASSPAR
48728 @ 426799:            PUSHI  #0x00000006
48729 @ 426804:            ASSPAR
48730 @ 426805:            CALL  
48731 @ 426806:            LINE   8469 "regression-compile-tmp/imp22g-77.imp"
48732 @ 426846:            PUSH   WRITE
48733 @ 426849:            PUSH   SHORTS
48734 @ 426852:            ASSPAR
48735 @ 426853:            PUSHI  #0x00000005
48736 @ 426858:            ASSPAR
48737 @ 426859:            CALL  

  8470        write(steps,5);  write(zaps,5)
48738 @ 426860:            LINE   8470 "regression-compile-tmp/imp22g-77.imp"
48739 @ 426900:            PUSH   WRITE
48740 @ 426903:            PUSH   STEPS
48741 @ 426906:            ASSPAR
48742 @ 426907:            PUSHI  #0x00000005
48743 @ 426912:            ASSPAR
48744 @ 426913:            CALL  
48745 @ 426914:            LINE   8470 "regression-compile-tmp/imp22g-77.imp"
48746 @ 426954:            PUSH   WRITE
48747 @ 426957:            PUSH   ZAPS
48748 @ 426960:            ASSPAR
48749 @ 426961:            PUSHI  #0x00000005
48750 @ 426966:            ASSPAR
48751 @ 426967:            CALL  

  8471        print(atoms/statements,5,1)
48752 @ 426968:            LINE   8471 "regression-compile-tmp/imp22g-77.imp"
48753 @ 427008:            PUSH   PRINT
48754 @ 427011:            PUSH   ATOMS
48755 @ 427014:            PUSH   STATEMENTS
48756 @ 427017:            DIVIDE
48757 @ 427018:            ASSPAR
48758 @ 427019:            PUSHI  #0x00000005
48759 @ 427024:            ASSPAR
48760 @ 427025:            PUSHI  #0x00000001
48761 @ 427030:            ASSPAR
48762 @ 427031:            CALL  

  8472        print(litatoms/statements,2,1)
48763 @ 427032:            LINE   8472 "regression-compile-tmp/imp22g-77.imp"
48764 @ 427072:            PUSH   PRINT
48765 @ 427075:            PUSH   LITATOMS
48766 @ 427078:            PUSH   STATEMENTS
48767 @ 427081:            DIVIDE
48768 @ 427082:            ASSPAR
48769 @ 427083:            PUSHI  #0x00000002
48770 @ 427088:            ASSPAR
48771 @ 427089:            PUSHI  #0x00000001
48772 @ 427094:            ASSPAR
48773 @ 427095:            CALL  

  8473        print(identatoms/statements,1,1)
48774 @ 427096:            LINE   8473 "regression-compile-tmp/imp22g-77.imp"
48775 @ 427136:            PUSH   PRINT
48776 @ 427139:            PUSH   IDENTATOMS
48777 @ 427142:            PUSH   STATEMENTS
48778 @ 427145:            DIVIDE
48779 @ 427146:            ASSPAR
48780 @ 427147:            PUSHI  #0x00000001
48781 @ 427152:            ASSPAR
48782 @ 427153:            PUSHI  #0x00000001
48783 @ 427158:            ASSPAR
48784 @ 427159:            CALL  

  8474        print(time2/statements,2,3)
48785 @ 427160:            LINE   8474 "regression-compile-tmp/imp22g-77.imp"
48786 @ 427200:            PUSH   PRINT
48787 @ 427203:            PUSH   TIME2
48788 @ 427206:            PUSH   STATEMENTS
48789 @ 427209:            DIVIDE
48790 @ 427210:            ASSPAR
48791 @ 427211:            PUSHI  #0x00000002
48792 @ 427216:            ASSPAR
48793 @ 427217:            PUSHI  #0x00000003
48794 @ 427222:            ASSPAR
48795 @ 427223:            CALL  

  8475        printsymbol('+')
48796 @ 427224:            LINE   8475 "regression-compile-tmp/imp22g-77.imp"
48797 @ 427264:            PUSH   PRINTSYMBOL
48798 @ 427267:            PUSHI  #0x0000002b
48799 @ 427272:            ASSPAR
48800 @ 427273:            CALL  

  8476        print(time1/statements,0,3)
48801 @ 427274:            LINE   8476 "regression-compile-tmp/imp22g-77.imp"
48802 @ 427314:            PUSH   PRINT
48803 @ 427317:            PUSH   TIME1
48804 @ 427320:            PUSH   STATEMENTS
48805 @ 427323:            DIVIDE
48806 @ 427324:            ASSPAR
48807 @ 427325:            PUSHI  #0x00000000
48808 @ 427330:            ASSPAR
48809 @ 427331:            PUSHI  #0x00000003
48810 @ 427336:            ASSPAR
48811 @ 427337:            CALL  

  8477        newline
48812 @ 427338:            LINE   8477 "regression-compile-tmp/imp22g-77.imp"
48813 @ 427378:            PUSH   NEWLINE
48814 @ 427381:            CALL  

  8478      %finish
48815 @ 427382:            LINE   8478 "regression-compile-tmp/imp22g-77.imp"
48816 @ 427422:            LOCATE L_0007

  8479      %exit %if listout = 0
48817 @ 427425:            LINE   8479 "regression-compile-tmp/imp22g-77.imp"
48818 @ 427465:            PUSH   LISTOUT
48819 @ 427468:            PUSHI  #0x00000000
48820 @ 427473:            JUMPIF # L_0007
48821 @ 427477:            GOTO   L_0004
48822 @ 427480:            LOCATE L_0007

  8480      listout = 0
48823 @ 427483:            LINE   8480 "regression-compile-tmp/imp22g-77.imp"
48824 @ 427523:            PUSH   LISTOUT
48825 @ 427526:            PUSHI  #0x00000000
48826 @ 427531:            ASSVAL

  8481    %repeat
  8482  !<<IMP
48827 @ 427532:            LINE   8481 "regression-compile-tmp/imp22g-77.imp"
48828 @ 427572:            REPEAT L_0003
48829 @ 427575:            LOCATE L_0004

  8483  %endofprogram
48830 @ 427578:            LINE   8483 "regression-compile-tmp/imp22g-77.imp"
48831 @ 427618:         END    _lev0id0 {lev=1 --> 0}
48832 @ 427619:         END     {lev=0 --> -1}
48833 @ 427620: 

