#include <perms.h>

                                                                //      1  %BEGIN;                               !HAL-70
#line 1 "regression-compile-tmp/hal70.imp"
int main(int argc, char **argv) {
  _imp_initialise(argc, argv);
                                                                //      2  !    INPUT/OUTPUT STREAMS
                                                                //      3  %OWNINTEGER MAIN=1, PRE=2;            !INPUT
#line 3 "regression-compile-tmp/hal70.imp"
static int MAIN = 1;
#line 3 "regression-compile-tmp/hal70.imp"
static int PRE = 2;
                                                                //      4  %OWNINTEGER BIN=1, LIS=2;             !OUTPUT
#line 4 "regression-compile-tmp/hal70.imp"
static int BIN = 1;
#line 4 "regression-compile-tmp/hal70.imp"
static int LIS = 2;
                                                                //      5  !    OPERAND TYPES
                                                                //      6  %OWNINTEGER OPMASK=16_F000;           !MACHINE INSTRUCTION OR MACRO
#line 6 "regression-compile-tmp/hal70.imp"
static int OPMASK = 61440;
                                                                //      7  %OWNINTEGER MACRO=16_A000
#line 7 "regression-compile-tmp/hal70.imp"
static int MACRO = 40960;
                                                                //      8  %OWNINTEGER SINGLE=16_5000
#line 8 "regression-compile-tmp/hal70.imp"
static int SINGLE = 20480;
                                                                //      9  %OWNINTEGER FMASK=16_0800;            !FORWARD REF
#line 9 "regression-compile-tmp/hal70.imp"
static int FMASK = 2048;
                                                                //     10  %OWNINTEGER OPFMASK=16_F800;          !=OPMASK+FMASK
#line 10 "regression-compile-tmp/hal70.imp"
static int OPFMASK = 63488;
                                                                //     11  %OWNINTEGER UMASK=16_0200;            !UNDEF (FORWARD REF)
#line 11 "regression-compile-tmp/hal70.imp"
static int UMASK = 512;
                                                                //     12  %OWNINTEGER BMASK=16_0100;            !BYTE
#line 12 "regression-compile-tmp/hal70.imp"
static int BMASK = 256;
                                                                //     13  %OWNINTEGER REG=16_0080;              !REGISTER
#line 13 "regression-compile-tmp/hal70.imp"
static int REG = 128;
                                                                //     14  %OWNINTEGER MEMMASK=16_0040;          !MEM REF
#line 14 "regression-compile-tmp/hal70.imp"
static int MEMMASK = 64;
                                                                //     15  %OWNINTEGER RELMASK=16_0020;          !RELOCATABLE
#line 15 "regression-compile-tmp/hal70.imp"
static int RELMASK = 32;
                                                                //     16  %OWNINTEGER XMASK=16_0010;            !INDEXED
#line 16 "regression-compile-tmp/hal70.imp"
static int XMASK = 16;
                                                                //     17  %OWNINTEGER REGXMASK=16_0090;         !=REG+XMASK
#line 17 "regression-compile-tmp/hal70.imp"
static int REGXMASK = 144;
                                                                //     18  %OWNINTEGER RELUXMASK=16_0230;        !=RELMASK+UMASK+XMASK
#line 18 "regression-compile-tmp/hal70.imp"
static int RELUXMASK = 560;
                                                                //     19  !    TEXT POINTERS (BYTE ADDRESSES)
                                                                //     20  %OWNINTEGER CODEPOS;                  !(NOT ACTUALLY BYTE)
#line 20 "regression-compile-tmp/hal70.imp"
static int CODEPOS;
                                                                //     21  %OWNINTEGER STARTPOS;                 !START OF CURRENT LINE
#line 21 "regression-compile-tmp/hal70.imp"
static int STARTPOS;
                                                                //     22  %OWNINTEGER GETPOS;                   !INPUT POINTER (NEXT)
#line 22 "regression-compile-tmp/hal70.imp"
static int GETPOS;
                                                                //     23  %OWNINTEGER PUTPOS
#line 23 "regression-compile-tmp/hal70.imp"
static int PUTPOS;
                                                                //     24  %OWNINTEGER PSEUDOLIM
#line 24 "regression-compile-tmp/hal70.imp"
static int PSEUDOLIM;
                                                                //     25  %OWNINTEGER PRINTPOS;                 !START OF PRINT LINE
#line 25 "regression-compile-tmp/hal70.imp"
static int PRINTPOS;
                                                                //     26  %OWNINTEGER FAULTPOS
#line 26 "regression-compile-tmp/hal70.imp"
static int FAULTPOS;
                                                                //     27  %OWNINTEGER MACLIM;                   !MACRO DEF LIMIT
#line 27 "regression-compile-tmp/hal70.imp"
static int MACLIM;
                                                                //     28  !    OTHER POINTERS (WORD ADDRESSES)
                                                                //     29  %OWNINTEGER MP;                       !MACRO-CALL PARAMETERS
#line 29 "regression-compile-tmp/hal70.imp"
static int MP;
                                                                //     30  %OWNINTEGER QBASE,QSTART,QLIM,TRANSF; !OPERAND QUEUE
#line 30 "regression-compile-tmp/hal70.imp"
static int QBASE;
#line 30 "regression-compile-tmp/hal70.imp"
static int QSTART;
#line 30 "regression-compile-tmp/hal70.imp"
static int QLIM;
#line 30 "regression-compile-tmp/hal70.imp"
static int TRANSF;
                                                                //     31  %OWNINTEGER DEFMIN;                   !TAG MIN (DOWN - RESET)
#line 31 "regression-compile-tmp/hal70.imp"
static int DEFMIN;
                                                                //     32  %OWNINTEGER DEFLIM;                   !TAG LIM (FIXED)
#line 32 "regression-compile-tmp/hal70.imp"
static int DEFLIM;
                                                                //     33  %OWNINTEGER ALMAX;                    !ASSEMBLER LAB MAX (UP - RESET)
#line 33 "regression-compile-tmp/hal70.imp"
static int ALMAX;
                                                                //     34  %OWNINTEGER LABMIN;                   !USER LAB MIN (DOWN - RESET)
#line 34 "regression-compile-tmp/hal70.imp"
static int LABMIN;
                                                                //     35  %OWNINTEGER LABLIM;                   !USER LAB LIM (FIXED)
#line 35 "regression-compile-tmp/hal70.imp"
static int LABLIM;
                                                                //     36  %OWNINTEGER BP;                       !BLOCK POINTER (UP - DOWN)
#line 36 "regression-compile-tmp/hal70.imp"
static int BP;
                                                                //     37  %OWNINTEGER NP;                       !NEST POINTER (DOWN - UP)
#line 37 "regression-compile-tmp/hal70.imp"
static int NP;
                                                                //     38  %OWNINTEGER STORELIM;                 !(FIXED)
#line 38 "regression-compile-tmp/hal70.imp"
static int STORELIM;
                                                                //     39  
                                                                //     40  %INTEGER SYM;                         !CURRENT SYMBOL
#line 40 "regression-compile-tmp/hal70.imp"
int SYM;
                                                                //     41  %INTEGER TERM;                        !TAG TERMINATOR
#line 41 "regression-compile-tmp/hal70.imp"
int TERM;
                                                                //     42  %INTEGER FSYM;                        !FAULT FLAG SYMBOL
#line 42 "regression-compile-tmp/hal70.imp"
int FSYM;
                                                                //     43  %OWNINTEGER CHARS=0;                  !PRINT CHAR COUNT
#line 43 "regression-compile-tmp/hal70.imp"
static int CHARS = 0;
                                                                //     44  %OWNINTEGER LINES=0;                  !PRINT LINE COUNT
#line 44 "regression-compile-tmp/hal70.imp"
static int LINES = 0;
                                                                //     45  %OWNINTEGER BINCOUNT=0;               !OUTPUT RECORD ITEM COUNT
#line 45 "regression-compile-tmp/hal70.imp"
static int BINCOUNT = 0;
                                                                //     46  %OWNINTEGER CHECK=0;                  !OUTPUT RECORD CHECKSUM
#line 46 "regression-compile-tmp/hal70.imp"
static int CHECK = 0;
                                                                //     47  %OWNINTEGER PASS=-1;                  !CURRENT PASS (-1,0,1)
#line 47 "regression-compile-tmp/hal70.imp"
static int PASS = (-1);
                                                                //     48  %OWNINTEGER LIST=-1;                  !LISTING CONTROL
#line 48 "regression-compile-tmp/hal70.imp"
static int LIST = (-1);
                                                                //     49  %INTEGER ASSCOND,SKIP;                !ASSEMBLY CONDITIONS (BIT NEST)
#line 49 "regression-compile-tmp/hal70.imp"
int ASSCOND;
#line 49 "regression-compile-tmp/hal70.imp"
int SKIP;
                                                                //     50  %OWNINTEGER SAVE=1;                   !REG SAVE DISPLACEMENT
#line 50 "regression-compile-tmp/hal70.imp"
static int SAVE = 1;
                                                                //     51  %OWNINTEGER TEMPS=12;                 !TEMPORARY REGISTER SET (2,3)
#line 51 "regression-compile-tmp/hal70.imp"
static int TEMPS = 12;
                                                                //     52  %INTEGER LOCTYPE,LOC;                 !LOCATION COUNTER
#line 52 "regression-compile-tmp/hal70.imp"
int LOCTYPE;
#line 52 "regression-compile-tmp/hal70.imp"
int LOC;
                                                                //     53  %INTEGER ACC,ATYPE,AVAL;              !MAIN TEMP REGISTER
#line 53 "regression-compile-tmp/hal70.imp"
int ACC;
#line 53 "regression-compile-tmp/hal70.imp"
int ATYPE;
#line 53 "regression-compile-tmp/hal70.imp"
int AVAL;
                                                                //     54  %INTEGER CREG,CTYPE,CVAL;             !CONDITION CODE
#line 54 "regression-compile-tmp/hal70.imp"
int CREG;
#line 54 "regression-compile-tmp/hal70.imp"
int CTYPE;
#line 54 "regression-compile-tmp/hal70.imp"
int CVAL;
                                                                //     55  %INTEGER COND;                        !CONDITION CODE MASK
#line 55 "regression-compile-tmp/hal70.imp"
int COND;
                                                                //     56  %INTEGER DREG,DUSE;                   !DESTINATION REGISTER
#line 56 "regression-compile-tmp/hal70.imp"
int DREG;
#line 56 "regression-compile-tmp/hal70.imp"
int DUSE;
                                                                //     57  %INTEGER TYPE,VAL;                    !CURRENT TYPE,VALUE
#line 57 "regression-compile-tmp/hal70.imp"
int TYPE;
#line 57 "regression-compile-tmp/hal70.imp"
int VAL;
                                                                //     58  %INTEGER TAG1,TAG2;                   !TAG (CHARS 1:3, 4:6)
#line 58 "regression-compile-tmp/hal70.imp"
int TAG1;
#line 58 "regression-compile-tmp/hal70.imp"
int TAG2;
                                                                //     59  %INTEGER MODE;                        !ASSEMBLY MODE
#line 59 "regression-compile-tmp/hal70.imp"
int MODE;
                                                                //     60  %INTEGER PEND;                        !TAG ALREADY RECOGNISED
#line 60 "regression-compile-tmp/hal70.imp"
int PEND;
                                                                //     61  %INTEGER FLAG;                        !JUMPS / AHM
#line 61 "regression-compile-tmp/hal70.imp"
int FLAG;
                                                                //     62  %OWNINTEGER QQ='?'
#line 62 "regression-compile-tmp/hal70.imp"
static int QQ = 63;
                                                                //     63  
                                                                //     64  %OWNINTEGERARRAY BREC(1:52);          !BINARY OUTPUT RECORD
#line 64 "regression-compile-tmp/hal70.imp"
static int BREC[52];
                                                                //     65  
                                                                //     66  !!%INTEGER SBOUND
                                                                //     67  %constINTEGER SBOUND = 16_7F00
                                                                //     68  !!    SBOUND = FREESTORE-260;           !ALLOW FOR INPUT BUFFER
                                                                //     69  !!    SBOUND = SBOUND-256 %IF OUTDEV = 2
                                                                //     70      SELECT OUTPUT(LIS)
#line 70 "regression-compile-tmp/hal70.imp"
_imp_SELECTOUTPUT(LIS);
                                                                //     71  !!    SBOUND = SBOUND-256 %IF OUTDEV = 2
                                                                //     72  
                                                                //     73  !! Simulate 18-bit word-addressed PDP9/15 memory:
                                                                //     74  
                                                                //     75  %ownINTEGERARRAY STORE(1:SBOUND)
#line 75 "regression-compile-tmp/hal70.imp"
static int STORE[32512];
                                                                //     76  
                                                                //     77  %integerfn integer(%integer p)
#line 77 "regression-compile-tmp/hal70.imp"
int INTEGER( int P )
#line 77 "regression-compile-tmp/hal70.imp"
{
                                                                //     78      %if p&1 # 0 %start
#line 78 "regression-compile-tmp/hal70.imp"
if (((((P) & (1))) == (0))) goto L_0002;
                                                                //     79        printstring("Integer fetch was not aligned at "); write(p, -1); newline
#line 79 "regression-compile-tmp/hal70.imp"
_imp_PRINTSTRING(_imp_str_literal("Integer fetch was not aligned at "));
#line 79 "regression-compile-tmp/hal70.imp"
_imp_WRITE(P, (-1));
#line 79 "regression-compile-tmp/hal70.imp"
_imp_NEWLINE();
                                                                //     80        %stop
#line 80 "regression-compile-tmp/hal70.imp"
exit(0);
                                                                //     81      %finish
#line 81 "regression-compile-tmp/hal70.imp"
L_0002:;
                                                                //     82      %result = store(P>>1)
#line 82 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return (STORE-1)[(int)((((unsigned int)(P)) >> (1)))];
                                                                //     83  %end
#line 83 "regression-compile-tmp/hal70.imp"
} // End of block INTEGER at level 2
                                                                //     84  
                                                                //     85  %INTEGERFN CHAR(%INTEGER P)
#line 85 "regression-compile-tmp/hal70.imp"
int CHAR( int P )
#line 85 "regression-compile-tmp/hal70.imp"
{
                                                                //     86  !BYTE FETCH
                                                                //     87  
                                                                //     88      %integer val = store(p>>1)
#line 88 "regression-compile-tmp/hal70.imp"
int VAL;
#line 88 "regression-compile-tmp/hal70.imp"
VAL = (STORE-1)[(int)((((unsigned int)(P)) >> (1)))];
                                                                //     89      %if p&1 = 0 %start
#line 89 "regression-compile-tmp/hal70.imp"
if (((((P) & (1))) != (0))) goto L_0003;
                                                                //     90        %result = val&255
#line 90 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return ((VAL) & (255));
                                                                //     91      %else
#line 91 "regression-compile-tmp/hal70.imp"
L_0003:;
                                                                //     92        %result = (val>>8)&255
#line 92 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return (((int)((((unsigned int)(VAL)) >> (8)))) & (255));
                                                                //     93      %finish
                                                                //     94      
                                                                //     95  !!    %OPR 2064;!RCR;  %DAC P
                                                                //     96  !!    %LAC* P;  %OPR 768;!SZL;  %JMP L1
                                                                //     97  !!    %OPR 1040;!RTR;  %OPR 1040
                                                                //     98  !!    %OPR 1040;  %OPR 1040
                                                                //     99  !!L1: %AND #255;  %JMP* CHAR
                                                                //    100  !!    %STOP
                                                                //    101  
                                                                //    102  %END
#line 102 "regression-compile-tmp/hal70.imp"
} // End of block CHAR at level 2
                                                                //    103  
                                                                //    104  %routine set integer(%integer p, k)
#line 104 "regression-compile-tmp/hal70.imp"
void SETINTEGER( int P, int K )
#line 104 "regression-compile-tmp/hal70.imp"
{
                                                                //    105      store(p>>1) = k
#line 105 "regression-compile-tmp/hal70.imp"
(STORE-1)[(int)((((unsigned int)(P)) >> (1)))] = K;
                                                                //    106  %end
#line 106 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block SETINTEGER at level 2
                                                                //    107  
                                                                //    108  %ROUTINE PUT CHAR(%INTEGER K)
#line 108 "regression-compile-tmp/hal70.imp"
void PUTCHAR( int K )
#line 108 "regression-compile-tmp/hal70.imp"
{
                                                                //    109  !AT PUTPOS WITH POST-INCREMENT
                                                                //    110  %INTEGER P
#line 110 "regression-compile-tmp/hal70.imp"
int P;
                                                                //    111  !!    %MONITOR 21 %IF PUTPOS>>1-DEFMIN >= 0
                                                                //    112  !{}    %signal 2,1 %IF PUTPOS>>1-DEFMIN >= 0
                                                                //    113  
                                                                //    114      p = store(putpos>>1)
#line 114 "regression-compile-tmp/hal70.imp"
P = (STORE-1)[(int)((((unsigned int)(PUTPOS)) >> (1)))];
                                                                //    115      %if putpos&1 = 0 %start
#line 115 "regression-compile-tmp/hal70.imp"
if (((((PUTPOS) & (1))) != (0))) goto L_0004;
                                                                //    116        p = (p&16_FF00) ! (K&255)
#line 116 "regression-compile-tmp/hal70.imp"
P = ((((P) & (65280))) | (((K) & (255))));
                                                                //    117      %else
#line 117 "regression-compile-tmp/hal70.imp"
goto L_0005;
#line 117 "regression-compile-tmp/hal70.imp"
L_0004:;
                                                                //    118        p = (p&16_00FF) ! ((K&255)<<8)
#line 118 "regression-compile-tmp/hal70.imp"
P = ((((P) & (255))) | (((((K) & (255))) << (8))));
                                                                //    119      %finish
#line 119 "regression-compile-tmp/hal70.imp"
L_0005:;
                                                                //    120      store(putpos>>1) = p
#line 120 "regression-compile-tmp/hal70.imp"
(STORE-1)[(int)((((unsigned int)(PUTPOS)) >> (1)))] = P;
                                                                //    121  
                                                                //    122  !!    %LAC PUTPOS;  %OPR 2064;!RCR;  %DAC P
                                                                //    123  !!    %OPR 768;!SZL;  %JMP L1
                                                                //    124  !!    %LAC K;  %OPR 1032;!RTL;  %OPR 1032
                                                                //    125  !!    %OPR 1032;  %OPR 1032;  %DAC K
                                                                //    126  !!    %LAC #-256;  %OPR 513;!SKP!CMA
                                                                //    127  !!L1: %LAC #-256;  %AND* P;  %TAD K;  %DAC* P
                                                                //    128  !!    %ISZ PUTPOS
                                                                //    129  
                                                                //    130      putpos = putpos+1
#line 130 "regression-compile-tmp/hal70.imp"
PUTPOS = (((int)(PUTPOS)) + (1));
                                                                //    131  %END
#line 131 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PUTCHAR at level 2
                                                                //    132  
                                                                //    133  %ROUTINE FAULT(%INTEGER K)
#line 133 "regression-compile-tmp/hal70.imp"
void FAULT( int K )
#line 133 "regression-compile-tmp/hal70.imp"
{
                                                                //    134  !RECORD (FIRST) FAULT
                                                                //    135  !NOT NECESSARILY CULPABLE IN PASS 0
                                                                //    136      FSYM = K %IF FSYM = ' '
#line 136 "regression-compile-tmp/hal70.imp"
if (((FSYM) != (32))) goto L_0006;
#line 136 "regression-compile-tmp/hal70.imp"
FSYM = K;
#line 136 "regression-compile-tmp/hal70.imp"
L_0006:;
                                                                //    137  %END
#line 137 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block FAULT at level 2
                                                                //    138  
                                                                //    139  %ROUTINE PRINT(%INTEGER K)
#line 139 "regression-compile-tmp/hal70.imp"
void PRINT( int K )
#line 139 "regression-compile-tmp/hal70.imp"
{
                                                                //    140  !!    INTEGER(CODEPOS+CHARS) = K
                                                                //    141      set INTEGER(CODEPOS+CHARS, K)
#line 141 "regression-compile-tmp/hal70.imp"
SETINTEGER((((int)(CODEPOS)) + (CHARS)), K);
                                                                //    142      CHARS = CHARS+1
#line 142 "regression-compile-tmp/hal70.imp"
CHARS = (((int)(CHARS)) + (1));
                                                                //    143  %END
#line 143 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PRINT at level 2
                                                                //    144  
                                                                //    145  %ROUTINE PRINT WORD(%INTEGER V)
#line 145 "regression-compile-tmp/hal70.imp"
void PRINTWORD( int V )
#line 145 "regression-compile-tmp/hal70.imp"
{
                                                                //    146      %ROUTINE PRINT HIT(%INTEGER V)
#line 146 "regression-compile-tmp/hal70.imp"
void PRINTHIT( int V )
#line 146 "regression-compile-tmp/hal70.imp"
{
                                                                //    147          V = V&15+'0';  V = V+7 %IF V > '9'
#line 147 "regression-compile-tmp/hal70.imp"
V = (((int)(((V) & (15)))) + (48));
#line 147 "regression-compile-tmp/hal70.imp"
if (((V) <= (57))) goto L_0007;
#line 147 "regression-compile-tmp/hal70.imp"
V = (((int)(V)) + (7));
#line 147 "regression-compile-tmp/hal70.imp"
L_0007:;
                                                                //    148          PRINT(V)
#line 148 "regression-compile-tmp/hal70.imp"
PRINT(V);
                                                                //    149      %END
#line 149 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PRINTHIT at level 3
                                                                //    150      %ROUTINE PRINT1(%INTEGER V)
#line 150 "regression-compile-tmp/hal70.imp"
void PRINT1( int V )
#line 150 "regression-compile-tmp/hal70.imp"
{
                                                                //    151          PRINT HIT(V>>4);  PRINT HIT(V)
#line 151 "regression-compile-tmp/hal70.imp"
PRINTHIT((int)((((unsigned int)(V)) >> (4))));
#line 151 "regression-compile-tmp/hal70.imp"
PRINTHIT(V);
                                                                //    152      %END
#line 152 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PRINT1 at level 3
                                                                //    153      PRINT1(V>>8);  PRINT1(V)
#line 153 "regression-compile-tmp/hal70.imp"
PRINT1((int)((((unsigned int)(V)) >> (8))));
#line 153 "regression-compile-tmp/hal70.imp"
PRINT1(V);
                                                                //    154  %END
#line 154 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PRINTWORD at level 2
                                                                //    155  
                                                                //    156  %ROUTINE PRINT LOC
#line 156 "regression-compile-tmp/hal70.imp"
void PRINTLOC( void )
#line 156 "regression-compile-tmp/hal70.imp"
{
                                                                //    157      PRINT WORD(LOC)
#line 157 "regression-compile-tmp/hal70.imp"
PRINTWORD(LOC);
                                                                //    158      %IF LOCTYPE&RELMASK # 0 %THEN PRINT('''') %ELSE PRINT(' ')
#line 158 "regression-compile-tmp/hal70.imp"
if (((((LOCTYPE) & (RELMASK))) == (0))) goto L_0008;
#line 158 "regression-compile-tmp/hal70.imp"
PRINT(39);
#line 158 "regression-compile-tmp/hal70.imp"
goto L_0009;
#line 158 "regression-compile-tmp/hal70.imp"
L_0008:;
#line 158 "regression-compile-tmp/hal70.imp"
PRINT(32);
#line 158 "regression-compile-tmp/hal70.imp"
L_0009:;
                                                                //    159      PRINT(' ')
#line 159 "regression-compile-tmp/hal70.imp"
PRINT(32);
                                                                //    160  %END
#line 160 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PRINTLOC at level 2
                                                                //    161  
                                                                //    162  %ROUTINE DO NEWLINE
#line 162 "regression-compile-tmp/hal70.imp"
void DONEWLINE( void )
#line 162 "regression-compile-tmp/hal70.imp"
{
                                                                //    163      NEWLINE;  LINES = LINES+1
#line 163 "regression-compile-tmp/hal70.imp"
_imp_NEWLINE();
#line 163 "regression-compile-tmp/hal70.imp"
LINES = (((int)(LINES)) + (1));
                                                                //    164      NEWLINES(2) %AND LINES = 0 %IF LINES = 61
#line 164 "regression-compile-tmp/hal70.imp"
if (((LINES) != (61))) goto L_000a;
#line 164 "regression-compile-tmp/hal70.imp"
_imp_NEWLINES(2);
#line 164 "regression-compile-tmp/hal70.imp"
LINES = 0;
#line 164 "regression-compile-tmp/hal70.imp"
L_000a:;
                                                                //    165  %END
#line 165 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block DONEWLINE at level 2
                                                                //    166  
                                                                //    167  %ROUTINE PRINT LINE
#line 167 "regression-compile-tmp/hal70.imp"
void PRINTLINE( void )
#line 167 "regression-compile-tmp/hal70.imp"
{
                                                                //    168     %ROUTINE PRINTIT(%INTEGER SUB)
#line 168 "regression-compile-tmp/hal70.imp"
void PRINTIT( int SUB )
#line 168 "regression-compile-tmp/hal70.imp"
{
                                                                //    169     %OWNINTEGER MARKER=124;            !VERTICAL BAR
#line 169 "regression-compile-tmp/hal70.imp"
static int MARKER = 124;
                                                                //    170     %INTEGER P,Q,K
#line 170 "regression-compile-tmp/hal70.imp"
int P;
#line 170 "regression-compile-tmp/hal70.imp"
int Q;
#line 170 "regression-compile-tmp/hal70.imp"
int K;
                                                                //    171         %RETURN %IF CHARS = 0 %AND CHAR(PRINTPOS) = NL
#line 171 "regression-compile-tmp/hal70.imp"
if (((CHARS) != (0))) goto L_000b;
#line 171 "regression-compile-tmp/hal70.imp"
if (((CHAR(PRINTPOS)) != (10))) goto L_000b;
#line 171 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 171 "regression-compile-tmp/hal70.imp"
L_000b:;
                                                                //    172         PRINT SYMBOL(FSYM);  SPACE
#line 172 "regression-compile-tmp/hal70.imp"
_imp_PRINTSYMBOL(FSYM);
#line 172 "regression-compile-tmp/hal70.imp"
_imp_SPACE();
                                                                //    173         P = CODEPOS;  Q = P+CHARS
#line 173 "regression-compile-tmp/hal70.imp"
P = CODEPOS;
#line 173 "regression-compile-tmp/hal70.imp"
Q = (((int)(P)) + (CHARS));
                                                                //    174         PRINT SYMBOL(INTEGER(P)) %AND P=P+1 %WHILE P # Q
#line 174 "regression-compile-tmp/hal70.imp"
L_000c:;
#line 174 "regression-compile-tmp/hal70.imp"
if (((P) == (Q))) goto L_000d;
#line 174 "regression-compile-tmp/hal70.imp"
_imp_PRINTSYMBOL(INTEGER(P));
#line 174 "regression-compile-tmp/hal70.imp"
P = (((int)(P)) + (1));
#line 174 "regression-compile-tmp/hal70.imp"
goto L_000c;
#line 174 "regression-compile-tmp/hal70.imp"
L_000d:;
                                                                //    175         %RETURN %IF PRINTPOS = 0
#line 175 "regression-compile-tmp/hal70.imp"
if (((PRINTPOS) != (0))) goto L_000f;
#line 175 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 175 "regression-compile-tmp/hal70.imp"
L_000f:;
                                                                //    176         SPACES(17-CHARS)
#line 176 "regression-compile-tmp/hal70.imp"
_imp_SPACES((((int)(17)) - (CHARS)));
                                                                //    177         P = PRINTPOS;  Q = 0
#line 177 "regression-compile-tmp/hal70.imp"
P = PRINTPOS;
#line 177 "regression-compile-tmp/hal70.imp"
Q = 0;
                                                                //    178         %CYCLE
#line 178 "regression-compile-tmp/hal70.imp"
L_0010:;
                                                                //    179            PRINT SYMBOL(MARKER) %IF P = FAULTPOS
#line 179 "regression-compile-tmp/hal70.imp"
if (((P) != (FAULTPOS))) goto L_0013;
#line 179 "regression-compile-tmp/hal70.imp"
_imp_PRINTSYMBOL(MARKER);
#line 179 "regression-compile-tmp/hal70.imp"
L_0013:;
                                                                //    180            K = CHAR(P);  K = SUB %IF P = PSEUDOLIM
#line 180 "regression-compile-tmp/hal70.imp"
K = CHAR(P);
#line 180 "regression-compile-tmp/hal70.imp"
if (((P) != (PSEUDOLIM))) goto L_0014;
#line 180 "regression-compile-tmp/hal70.imp"
K = SUB;
#line 180 "regression-compile-tmp/hal70.imp"
L_0014:;
                                                                //    181            PRINT SYMBOL('''') %IF (K!!Q)&128 # 0
#line 181 "regression-compile-tmp/hal70.imp"
if (((((((K) ^ (Q))) & (128))) == (0))) goto L_0015;
#line 181 "regression-compile-tmp/hal70.imp"
_imp_PRINTSYMBOL(39);
#line 181 "regression-compile-tmp/hal70.imp"
L_0015:;
                                                                //    182            %RETURN %IF K = NL
#line 182 "regression-compile-tmp/hal70.imp"
if (((K) != (10))) goto L_0016;
#line 182 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 182 "regression-compile-tmp/hal70.imp"
L_0016:;
                                                                //    183            PRINT SYMBOL(K&127)
#line 183 "regression-compile-tmp/hal70.imp"
_imp_PRINTSYMBOL(((K) & (127)));
                                                                //    184            P = P+1;  Q = K
#line 184 "regression-compile-tmp/hal70.imp"
P = (((int)(P)) + (1));
#line 184 "regression-compile-tmp/hal70.imp"
Q = K;
                                                                //    185         %REPEAT
#line 185 "regression-compile-tmp/hal70.imp"
goto L_0010;
                                                                //    186     %END
#line 186 "regression-compile-tmp/hal70.imp"
return;
} // End of block PRINTIT at level 3
                                                                //    187      %RETURN %IF PASS = 0
#line 187 "regression-compile-tmp/hal70.imp"
if (((PASS) != (0))) goto L_0011;
#line 187 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 187 "regression-compile-tmp/hal70.imp"
L_0011:;
                                                                //    188      %UNLESS LIST < 0 %OR (PRINTPOS=0 %AND FSYM=' ' %AND LIST&1=0) %START
#line 188 "regression-compile-tmp/hal70.imp"
if (((LIST) < (0))) goto L_0017;
#line 188 "regression-compile-tmp/hal70.imp"
if (((PRINTPOS) != (0))) goto L_0012;
#line 188 "regression-compile-tmp/hal70.imp"
if (((FSYM) != (32))) goto L_0012;
#line 188 "regression-compile-tmp/hal70.imp"
if (((((LIST) & (1))) == (0))) goto L_0017;
#line 188 "regression-compile-tmp/hal70.imp"
L_0012:;
                                                                //    189         NEWLINES(3) %IF LINES = 0
#line 189 "regression-compile-tmp/hal70.imp"
if (((LINES) != (0))) goto L_0018;
#line 189 "regression-compile-tmp/hal70.imp"
_imp_NEWLINES(3);
#line 189 "regression-compile-tmp/hal70.imp"
L_0018:;
                                                                //    190         PRINTIT(' ')
#line 190 "regression-compile-tmp/hal70.imp"
PRINTIT(32);
                                                                //    191         DO NEWLINE
#line 191 "regression-compile-tmp/hal70.imp"
DONEWLINE();
                                                                //    192      %FINISH
#line 192 "regression-compile-tmp/hal70.imp"
L_0017:;
                                                                //    193      %IF FSYM # ' ' %AND OUTDEV # 1 %START
#line 193 "regression-compile-tmp/hal70.imp"
if (((FSYM) == (32))) goto L_0019;
#line 193 "regression-compile-tmp/hal70.imp"
if (((_imp_OUTDEV()) == (1))) goto L_0019;
                                                                //    194         SELECT OUTPUT(0)
#line 194 "regression-compile-tmp/hal70.imp"
_imp_SELECTOUTPUT(0);
                                                                //    195         PRINTPOS = STARTPOS %IF PRINTPOS = 0
#line 195 "regression-compile-tmp/hal70.imp"
if (((PRINTPOS) != (0))) goto L_001a;
#line 195 "regression-compile-tmp/hal70.imp"
PRINTPOS = STARTPOS;
#line 195 "regression-compile-tmp/hal70.imp"
L_001a:;
                                                                //    196         PRINT LOC %IF CHARS = 0
#line 196 "regression-compile-tmp/hal70.imp"
if (((CHARS) != (0))) goto L_001b;
#line 196 "regression-compile-tmp/hal70.imp"
PRINTLOC();
#line 196 "regression-compile-tmp/hal70.imp"
L_001b:;
                                                                //    197         PRINTIT(NL)
#line 197 "regression-compile-tmp/hal70.imp"
PRINTIT(10);
                                                                //    198         NEWLINE
#line 198 "regression-compile-tmp/hal70.imp"
_imp_NEWLINE();
                                                                //    199         SELECT OUTPUT(LIS)
#line 199 "regression-compile-tmp/hal70.imp"
_imp_SELECTOUTPUT(LIS);
                                                                //    200      %FINISH
#line 200 "regression-compile-tmp/hal70.imp"
L_0019:;
                                                                //    201      FSYM = ' ';  PRINTPOS = 0;  CHARS = 0
#line 201 "regression-compile-tmp/hal70.imp"
FSYM = 32;
#line 201 "regression-compile-tmp/hal70.imp"
PRINTPOS = 0;
#line 201 "regression-compile-tmp/hal70.imp"
CHARS = 0;
                                                                //    202  %END
#line 202 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PRINTLINE at level 2
                                                                //    203  
                                                                //    204  %ROUTINE PUT(%INTEGER V)
#line 204 "regression-compile-tmp/hal70.imp"
void PUT( int V )
#line 204 "regression-compile-tmp/hal70.imp"
{
                                                                //    205  !STORE 4-BIT ITEM IN BINARY RECORD
                                                                //    206  %OWNINTEGER HOLD=0
#line 206 "regression-compile-tmp/hal70.imp"
static int HOLD = 0;
                                                                //    207      V = V&15
#line 207 "regression-compile-tmp/hal70.imp"
V = ((V) & (15));
                                                                //    208      HOLD = HOLD<<4+V
#line 208 "regression-compile-tmp/hal70.imp"
HOLD = (((int)(((HOLD) << (4)))) + (V));
                                                                //    209      BINCOUNT = BINCOUNT+1
#line 209 "regression-compile-tmp/hal70.imp"
BINCOUNT = (((int)(BINCOUNT)) + (1));
                                                                //    210      %IF BINCOUNT&3 = 0 %START
#line 210 "regression-compile-tmp/hal70.imp"
if (((((BINCOUNT) & (3))) != (0))) goto L_001c;
                                                                //    211         BREC(BINCOUNT>>2) = HOLD
#line 211 "regression-compile-tmp/hal70.imp"
(BREC-1)[(int)((((unsigned int)(BINCOUNT)) >> (2)))] = HOLD;
                                                                //    212         CHECK = CHECK!!HOLD
#line 212 "regression-compile-tmp/hal70.imp"
CHECK = ((CHECK) ^ (HOLD));
                                                                //    213         HOLD = 0
#line 213 "regression-compile-tmp/hal70.imp"
HOLD = 0;
                                                                //    214      %FINISH
#line 214 "regression-compile-tmp/hal70.imp"
L_001c:;
                                                                //    215  %END
#line 215 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PUT at level 2
                                                                //    216  
                                                                //    217  %ROUTINE PUT WORD(%INTEGER V)
#line 217 "regression-compile-tmp/hal70.imp"
void PUTWORD( int V )
#line 217 "regression-compile-tmp/hal70.imp"
{
                                                                //    218      %ROUTINE PUT1(%INTEGER V)
#line 218 "regression-compile-tmp/hal70.imp"
void PUT1( int V )
#line 218 "regression-compile-tmp/hal70.imp"
{
                                                                //    219          PUT(V>>4);  PUT(V)
#line 219 "regression-compile-tmp/hal70.imp"
PUT((int)((((unsigned int)(V)) >> (4))));
#line 219 "regression-compile-tmp/hal70.imp"
PUT(V);
                                                                //    220      %END
#line 220 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PUT1 at level 3
                                                                //    221      PUT1(V>>8);  PUT1(V)
#line 221 "regression-compile-tmp/hal70.imp"
PUT1((int)((((unsigned int)(V)) >> (8))));
#line 221 "regression-compile-tmp/hal70.imp"
PUT1(V);
                                                                //    222  %END
#line 222 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PUTWORD at level 2
                                                                //    223  
                                                                //    224  %ROUTINE OUTPUT RECORD
#line 224 "regression-compile-tmp/hal70.imp"
void OUTPUTRECORD( void )
#line 224 "regression-compile-tmp/hal70.imp"
{
                                                                //    225  %OWNINTEGER SEQ=0
#line 225 "regression-compile-tmp/hal70.imp"
static int SEQ = 0;
                                                                //    226  %INTEGER I
#line 226 "regression-compile-tmp/hal70.imp"
int I;
                                                                //    227      %ROUTINE OUTPUT WORD(%INTEGER W)
#line 227 "regression-compile-tmp/hal70.imp"
void OUTPUTWORD( int W )
#line 227 "regression-compile-tmp/hal70.imp"
{
                                                                //    228          PRINT CH(W>>8&255);  PRINT CH(W&255)
#line 228 "regression-compile-tmp/hal70.imp"
_imp_PRINTCH((((int)((((unsigned int)(W)) >> (8)))) & (255)));
#line 228 "regression-compile-tmp/hal70.imp"
_imp_PRINTCH(((W) & (255)));
                                                                //    229      %END
#line 229 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block OUTPUTWORD at level 3
                                                                //    230      PUT(0) %WHILE BINCOUNT # 208
#line 230 "regression-compile-tmp/hal70.imp"
L_001d:;
#line 230 "regression-compile-tmp/hal70.imp"
if (((BINCOUNT) == (208))) goto L_001e;
#line 230 "regression-compile-tmp/hal70.imp"
PUT(0);
#line 230 "regression-compile-tmp/hal70.imp"
goto L_001d;
#line 230 "regression-compile-tmp/hal70.imp"
L_001e:;
                                                                //    231      SELECT OUTPUT(BIN)
#line 231 "regression-compile-tmp/hal70.imp"
_imp_SELECTOUTPUT(BIN);
                                                                //    232      %CYCLE I = 1,1,10
#line 232 "regression-compile-tmp/hal70.imp"
I = 0;
if ((((10)-(1)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 1, 1, 10");
L_0020:;
if (I == 10) goto L_0021;
I += 1;
                                                                //    233         PRINT CH(0);                   !RUNOUT
#line 233 "regression-compile-tmp/hal70.imp"
_imp_PRINTCH(0);
                                                                //    234      %REPEAT
#line 234 "regression-compile-tmp/hal70.imp"
goto L_0020;
#line 234 "regression-compile-tmp/hal70.imp"
L_0021:;
                                                                //    235      PRINT CH(16_F0);                  !HEADER CODE
#line 235 "regression-compile-tmp/hal70.imp"
_imp_PRINTCH(240);
                                                                //    236      SEQ = SEQ-1
#line 236 "regression-compile-tmp/hal70.imp"
SEQ = (((int)(SEQ)) - (1));
                                                                //    237      OUTPUT WORD(SEQ);                 !SEQUENCE NUMBER
#line 237 "regression-compile-tmp/hal70.imp"
OUTPUTWORD(SEQ);
                                                                //    238      OUTPUT WORD(\(CHECK!!SEQ));       !CHECKSUM
#line 238 "regression-compile-tmp/hal70.imp"
OUTPUTWORD((~(((CHECK) ^ (SEQ)))));
                                                                //    239      %CYCLE I = 1,1,52
#line 239 "regression-compile-tmp/hal70.imp"
I = 0;
if ((((52)-(1)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 1, 1, 52");
L_0023:;
if (I == 52) goto L_0024;
I += 1;
                                                                //    240         OUTPUT WORD(BREC(I))
#line 240 "regression-compile-tmp/hal70.imp"
OUTPUTWORD((BREC-1)[I]);
                                                                //    241      %REPEAT
#line 241 "regression-compile-tmp/hal70.imp"
goto L_0023;
#line 241 "regression-compile-tmp/hal70.imp"
L_0024:;
                                                                //    242      BINCOUNT = 0;  CHECK = 0
#line 242 "regression-compile-tmp/hal70.imp"
BINCOUNT = 0;
#line 242 "regression-compile-tmp/hal70.imp"
CHECK = 0;
                                                                //    243      SELECT OUTPUT(LIS)
#line 243 "regression-compile-tmp/hal70.imp"
_imp_SELECTOUTPUT(LIS);
                                                                //    244  %END
#line 244 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block OUTPUTRECORD at level 2
                                                                //    245  
                                                                //    246  %ROUTINE PLANT VAL
#line 246 "regression-compile-tmp/hal70.imp"
void PLANTVAL( void )
#line 246 "regression-compile-tmp/hal70.imp"
{
                                                                //    247  %INTEGER I,J
#line 247 "regression-compile-tmp/hal70.imp"
int I;
#line 247 "regression-compile-tmp/hal70.imp"
int J;
                                                                //    248      TYPE = 0 %IF TYPE = SINGLE
#line 248 "regression-compile-tmp/hal70.imp"
if (((TYPE) != (SINGLE))) goto L_0026;
#line 248 "regression-compile-tmp/hal70.imp"
TYPE = 0;
#line 248 "regression-compile-tmp/hal70.imp"
L_0026:;
                                                                //    249      I = 2;  I = 4 %IF TYPE&OPMASK # 0
#line 249 "regression-compile-tmp/hal70.imp"
I = 2;
#line 249 "regression-compile-tmp/hal70.imp"
if (((((TYPE) & (OPMASK))) == (0))) goto L_0027;
#line 249 "regression-compile-tmp/hal70.imp"
I = 4;
#line 249 "regression-compile-tmp/hal70.imp"
L_0027:;
                                                                //    250      %IF PASS > 0 %START
#line 250 "regression-compile-tmp/hal70.imp"
if (((PASS) <= (0))) goto L_0028;
                                                                //    251         OUTPUT RECORD %IF BINCOUNT+I+I >= 208
#line 251 "regression-compile-tmp/hal70.imp"
if ((((((int)((((int)(BINCOUNT)) + (I)))) + (I))) < (208))) goto L_0029;
#line 251 "regression-compile-tmp/hal70.imp"
OUTPUTRECORD();
#line 251 "regression-compile-tmp/hal70.imp"
L_0029:;
                                                                //    252         %IF I = 4 %START
#line 252 "regression-compile-tmp/hal70.imp"
if (((I) != (4))) goto L_002a;
                                                                //    253            %IF TYPE&16_4000 = 0 %START
#line 253 "regression-compile-tmp/hal70.imp"
if (((((TYPE) & (16384))) != (0))) goto L_002b;
                                                                //    254               PUT(11);  J = TYPE!!OPMASK
#line 254 "regression-compile-tmp/hal70.imp"
PUT(11);
#line 254 "regression-compile-tmp/hal70.imp"
J = ((TYPE) ^ (OPMASK));
                                                                //    255               TYPE = RELMASK
#line 255 "regression-compile-tmp/hal70.imp"
TYPE = RELMASK;
                                                                //    256            %finish %ELSE %START
#line 256 "regression-compile-tmp/hal70.imp"
goto L_002c;
#line 256 "regression-compile-tmp/hal70.imp"
L_002b:;
                                                                //    257               PUT(10);  J = TYPE;  TYPE = 0
#line 257 "regression-compile-tmp/hal70.imp"
PUT(10);
#line 257 "regression-compile-tmp/hal70.imp"
J = TYPE;
#line 257 "regression-compile-tmp/hal70.imp"
TYPE = 0;
                                                                //    258            %FINISH
#line 258 "regression-compile-tmp/hal70.imp"
L_002c:;
                                                                //    259            PUT WORD(J)
#line 259 "regression-compile-tmp/hal70.imp"
PUTWORD(J);
                                                                //    260            PRINT LINE %IF CHARS # 0
#line 260 "regression-compile-tmp/hal70.imp"
if (((CHARS) == (0))) goto L_002d;
#line 260 "regression-compile-tmp/hal70.imp"
PRINTLINE();
#line 260 "regression-compile-tmp/hal70.imp"
L_002d:;
                                                                //    261            PRINT LOC
#line 261 "regression-compile-tmp/hal70.imp"
PRINTLOC();
                                                                //    262            PRINT WORD(J);  PRINT(' ')
#line 262 "regression-compile-tmp/hal70.imp"
PRINTWORD(J);
#line 262 "regression-compile-tmp/hal70.imp"
PRINT(32);
                                                                //    263         %finish %ELSE %START
#line 263 "regression-compile-tmp/hal70.imp"
goto L_002e;
#line 263 "regression-compile-tmp/hal70.imp"
L_002a:;
                                                                //    264            %IF TYPE&RELMASK # 0 %THEN PUT(9) %ELSE PUT(8)
#line 264 "regression-compile-tmp/hal70.imp"
if (((((TYPE) & (RELMASK))) == (0))) goto L_002f;
#line 264 "regression-compile-tmp/hal70.imp"
PUT(9);
#line 264 "regression-compile-tmp/hal70.imp"
goto L_0030;
#line 264 "regression-compile-tmp/hal70.imp"
L_002f:;
#line 264 "regression-compile-tmp/hal70.imp"
PUT(8);
#line 264 "regression-compile-tmp/hal70.imp"
L_0030:;
                                                                //    265            %IF CHARS # 0 %THEN PRINT(' ') %ELSE PRINT LOC
#line 265 "regression-compile-tmp/hal70.imp"
if (((CHARS) == (0))) goto L_0031;
#line 265 "regression-compile-tmp/hal70.imp"
PRINT(32);
#line 265 "regression-compile-tmp/hal70.imp"
goto L_0032;
#line 265 "regression-compile-tmp/hal70.imp"
L_0031:;
#line 265 "regression-compile-tmp/hal70.imp"
PRINTLOC();
#line 265 "regression-compile-tmp/hal70.imp"
L_0032:;
                                                                //    266         %FINISH
#line 266 "regression-compile-tmp/hal70.imp"
L_002e:;
                                                                //    267         PUT WORD(VAL);  PRINT WORD(VAL)
#line 267 "regression-compile-tmp/hal70.imp"
PUTWORD(VAL);
#line 267 "regression-compile-tmp/hal70.imp"
PRINTWORD(VAL);
                                                                //    268         PRINT('''') %IF TYPE&RELMASK # 0
#line 268 "regression-compile-tmp/hal70.imp"
if (((((TYPE) & (RELMASK))) == (0))) goto L_0033;
#line 268 "regression-compile-tmp/hal70.imp"
PRINT(39);
#line 268 "regression-compile-tmp/hal70.imp"
L_0033:;
                                                                //    269         PRINT LINE %IF TYPE&RELMASK#0 %OR CHARS=15
#line 269 "regression-compile-tmp/hal70.imp"
if (((((TYPE) & (RELMASK))) != (0))) goto L_0034;
#line 269 "regression-compile-tmp/hal70.imp"
if (((CHARS) != (15))) goto L_0035;
#line 269 "regression-compile-tmp/hal70.imp"
L_0034:;
#line 269 "regression-compile-tmp/hal70.imp"
PRINTLINE();
#line 269 "regression-compile-tmp/hal70.imp"
L_0035:;
                                                                //    270      %FINISH
#line 270 "regression-compile-tmp/hal70.imp"
L_0028:;
                                                                //    271      LOC = LOC+I
#line 271 "regression-compile-tmp/hal70.imp"
LOC = (((int)(LOC)) + (I));
                                                                //    272  %END
#line 272 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PLANTVAL at level 2
                                                                //    273  
                                                                //    274  %ROUTINE NEST(%INTEGER K)
#line 274 "regression-compile-tmp/hal70.imp"
void NEST( int K )
#line 274 "regression-compile-tmp/hal70.imp"
{
                                                                //    275  !!    NP = NP-1;  %MONITOR 23 %IF NP = BP
                                                                //    276      NP = NP-1;  !{}%signal 2,3 %IF NP = BP
#line 276 "regression-compile-tmp/hal70.imp"
NP = (((int)(NP)) - (1));
                                                                //    277  !!    INTEGER(NP) = K
                                                                //    278      set INTEGER(NP, K)
#line 278 "regression-compile-tmp/hal70.imp"
SETINTEGER(NP, K);
                                                                //    279  %END
#line 279 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block NEST at level 2
                                                                //    280  
                                                                //    281  %ROUTINE SET LAB(%INTEGER DEST)
#line 281 "regression-compile-tmp/hal70.imp"
void SETLAB( int DEST )
#line 281 "regression-compile-tmp/hal70.imp"
{
                                                                //    282  %INTEGER D
#line 282 "regression-compile-tmp/hal70.imp"
int D;
                                                                //    283      D = DEST
#line 283 "regression-compile-tmp/hal70.imp"
D = DEST;
                                                                //    284      %CYCLE
#line 284 "regression-compile-tmp/hal70.imp"
L_0036:;
                                                                //    285         TYPE = INTEGER(NP)&16_FFF+DEFLIM; !DEST SLOT
#line 285 "regression-compile-tmp/hal70.imp"
TYPE = (((int)(((INTEGER(NP)) & (4095)))) + (DEFLIM));
                                                                //    286         NP = NP+1
#line 286 "regression-compile-tmp/hal70.imp"
NP = (((int)(NP)) + (1));
                                                                //    287         VAL = INTEGER(NP);             !LOC OF JUMP
#line 287 "regression-compile-tmp/hal70.imp"
VAL = INTEGER(NP);
                                                                //    288         NP = NP+1
#line 288 "regression-compile-tmp/hal70.imp"
NP = (((int)(NP)) + (1));
                                                                //    289         ATYPE = -1;  CREG = -1
#line 289 "regression-compile-tmp/hal70.imp"
ATYPE = (-1);
#line 289 "regression-compile-tmp/hal70.imp"
CREG = (-1);
                                                                //    290         FLAG = 0;  FLAG = 2 %IF (D-VAL)>>1+PASS <= 16
#line 290 "regression-compile-tmp/hal70.imp"
FLAG = 0;
#line 290 "regression-compile-tmp/hal70.imp"
if ((((((int)((((((((int)(D)) - (VAL)))) >> (1))))) + (PASS))) > (16))) goto L_0039;
#line 290 "regression-compile-tmp/hal70.imp"
FLAG = 2;
#line 290 "regression-compile-tmp/hal70.imp"
L_0039:;
                                                                //    291         VAL = VAL-FLAG
#line 291 "regression-compile-tmp/hal70.imp"
VAL = (((int)(VAL)) - (FLAG));
                                                                //    292         %IF PASS = 0 %START
#line 292 "regression-compile-tmp/hal70.imp"
if (((PASS) != (0))) goto L_003a;
                                                                //    293  !!          D = D-FLAG;  INTEGER(TYPE) = D
                                                                //    294            D = D-FLAG;  set INTEGER(TYPE, D)
#line 294 "regression-compile-tmp/hal70.imp"
D = (((int)(D)) - (FLAG));
#line 294 "regression-compile-tmp/hal70.imp"
SETINTEGER(TYPE, D);
                                                                //    295            %IF FLAG # 0 %START
#line 295 "regression-compile-tmp/hal70.imp"
if (((FLAG) == (0))) goto L_003b;
                                                                //    296               LOC = LOC-2;  DEST = DEST-2
#line 296 "regression-compile-tmp/hal70.imp"
LOC = (((int)(LOC)) - (2));
#line 296 "regression-compile-tmp/hal70.imp"
DEST = (((int)(DEST)) - (2));
                                                                //    297               %WHILE TYPE # ALMAX %CYCLE
#line 297 "regression-compile-tmp/hal70.imp"
L_003c:;
#line 297 "regression-compile-tmp/hal70.imp"
if (((TYPE) == (ALMAX))) goto L_003d;
                                                                //    298  !!                TYPE = TYPE+1;  INTEGER(TYPE) = INTEGER(TYPE)-2
                                                                //    299                  TYPE = TYPE+1;  set INTEGER(TYPE,  INTEGER(TYPE)-2)
#line 299 "regression-compile-tmp/hal70.imp"
TYPE = (((int)(TYPE)) + (1));
#line 299 "regression-compile-tmp/hal70.imp"
SETINTEGER(TYPE, (((int)(INTEGER(TYPE))) - (2)));
                                                                //    300               %REPEAT
#line 300 "regression-compile-tmp/hal70.imp"
goto L_003c;
#line 300 "regression-compile-tmp/hal70.imp"
L_003d:;
                                                                //    301            %FINISH
#line 301 "regression-compile-tmp/hal70.imp"
L_003b:;
                                                                //    302         %finish %ELSE %START
#line 302 "regression-compile-tmp/hal70.imp"
goto L_003f;
#line 302 "regression-compile-tmp/hal70.imp"
L_003a:;
                                                                //    303            FAULT('P') %IF INTEGER(TYPE) # D
#line 303 "regression-compile-tmp/hal70.imp"
if (((INTEGER(TYPE)) == (D))) goto L_0040;
#line 303 "regression-compile-tmp/hal70.imp"
FAULT(80);
#line 303 "regression-compile-tmp/hal70.imp"
L_0040:;
                                                                //    304         %FINISH
#line 304 "regression-compile-tmp/hal70.imp"
L_003f:;
                                                                //    305         %RETURN %UNLESS INTEGER(NP)&16_1000 # 0
#line 305 "regression-compile-tmp/hal70.imp"
if (((((INTEGER(NP)) & (4096))) != (0))) goto L_0041;
#line 305 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 305 "regression-compile-tmp/hal70.imp"
L_0041:;
                                                                //    306         %IF INTEGER(NP)&16_2000 # 0 %START; !OR
#line 306 "regression-compile-tmp/hal70.imp"
if (((((INTEGER(NP)) & (8192))) == (0))) goto L_0042;
                                                                //    307            D = VAL+4 %IF D = DEST
#line 307 "regression-compile-tmp/hal70.imp"
if (((D) != (DEST))) goto L_0043;
#line 307 "regression-compile-tmp/hal70.imp"
D = (((int)(VAL)) + (4));
#line 307 "regression-compile-tmp/hal70.imp"
L_0043:;
                                                                //    308         %finish %ELSE %START
#line 308 "regression-compile-tmp/hal70.imp"
goto L_0044;
#line 308 "regression-compile-tmp/hal70.imp"
L_0042:;
                                                                //    309            D = DEST
#line 309 "regression-compile-tmp/hal70.imp"
D = DEST;
                                                                //    310         %FINISH
#line 310 "regression-compile-tmp/hal70.imp"
L_0044:;
                                                                //    311      %REPEAT
#line 311 "regression-compile-tmp/hal70.imp"
goto L_0036;
                                                                //    312  %END
#line 312 "regression-compile-tmp/hal70.imp"
return;
} // End of block SETLAB at level 2
                                                                //    313  
                                                                //    314  %ROUTINE ASSEMBLE
#line 314 "regression-compile-tmp/hal70.imp"
void ASSEMBLE( void )
#line 314 "regression-compile-tmp/hal70.imp"
{
                                                                //    315  !   INTERDATA OP-CODES (+FORMATS)
                                                                //    316  %OWNINTEGER LOAD=16_080F, LB=16_9303
#line 316 "regression-compile-tmp/hal70.imp"
static int LOAD = 2063;
#line 316 "regression-compile-tmp/hal70.imp"
static int LB = 37635;
                                                                //    317  %OWNINTEGER ADD=16_0A0F, SUB=16_0B0F, AND=16_0407
#line 317 "regression-compile-tmp/hal70.imp"
static int ADD = 2575;
#line 317 "regression-compile-tmp/hal70.imp"
static int SUB = 2831;
#line 317 "regression-compile-tmp/hal70.imp"
static int AND = 1031;
                                                                //    318  %OWNINTEGER OR=16_0607, XOR=16_0707
#line 318 "regression-compile-tmp/hal70.imp"
static int OR = 1543;
#line 318 "regression-compile-tmp/hal70.imp"
static int XOR = 1799;
                                                                //    319  %OWNINTEGER SLLS=16_7508, SRLS=16_7408, SLHL=16_0D04, SRHL=16_0C04
#line 319 "regression-compile-tmp/hal70.imp"
static int SLLS = 29960;
#line 319 "regression-compile-tmp/hal70.imp"
static int SRLS = 29704;
#line 319 "regression-compile-tmp/hal70.imp"
static int SLHL = 3332;
#line 319 "regression-compile-tmp/hal70.imp"
static int SRHL = 3076;
                                                                //    320  %OWNINTEGER COMP=16_0907, CLB=16_9402
#line 320 "regression-compile-tmp/hal70.imp"
static int COMP = 2311;
#line 320 "regression-compile-tmp/hal70.imp"
static int CLB = 37890;
                                                                //    321  %OWNINTEGER STORE=16_0002, STB=16_9202, AHM=16_2102
#line 321 "regression-compile-tmp/hal70.imp"
static int STORE = 2;
#line 321 "regression-compile-tmp/hal70.imp"
static int STB = 37378;
#line 321 "regression-compile-tmp/hal70.imp"
static int AHM = 8450;
                                                                //    322  %OWNINTEGER BT=16_0203, BF=16_0303
#line 322 "regression-compile-tmp/hal70.imp"
static int BT = 515;
#line 322 "regression-compile-tmp/hal70.imp"
static int BF = 771;
                                                                //    323  !    FORMAT CODES
                                                                //    324  %OWNINTEGER REGISTER=1, MEM=2, LIT=4, SHORT=8
#line 324 "regression-compile-tmp/hal70.imp"
static int REGISTER = 1;
#line 324 "regression-compile-tmp/hal70.imp"
static int MEM = 2;
#line 324 "regression-compile-tmp/hal70.imp"
static int LIT = 4;
#line 324 "regression-compile-tmp/hal70.imp"
static int SHORT = 8;
                                                                //    325  
                                                                //    326  %OWNINTEGER ZQUERY=0
#line 326 "regression-compile-tmp/hal70.imp"
static int ZQUERY = 0;
                                                                //    327  %INTEGER OP,K,Q,LITVAL,NQ,TYPE1,VAL1,FREE
#line 327 "regression-compile-tmp/hal70.imp"
int OP;
#line 327 "regression-compile-tmp/hal70.imp"
int K;
#line 327 "regression-compile-tmp/hal70.imp"
int Q;
#line 327 "regression-compile-tmp/hal70.imp"
int LITVAL;
#line 327 "regression-compile-tmp/hal70.imp"
int NQ;
#line 327 "regression-compile-tmp/hal70.imp"
int TYPE1;
#line 327 "regression-compile-tmp/hal70.imp"
int VAL1;
#line 327 "regression-compile-tmp/hal70.imp"
int FREE;
                                                                //    328  %SWITCH ASS(-30:-1)
#line 328 "regression-compile-tmp/hal70.imp"
static int sw1_ASS_idx;
static const void * /*SWITCH*/ sw1_ASS[30] = { &&sw1_ASS_M_30, &&sw1_ASS_M_29, &&sw1_ASS_M_28, &&sw1_ASS_M_27, &&sw1_ASS_M_26, &&sw1_ASS_M_25, &&sw1_ASS_M_24, &&sw1_ASS_M_23, &&sw1_ASS_M_22, &&sw1_ASS_M_21, &&sw1_ASS_M_20, &&sw1_ASS_M_19, &&sw1_ASS_M_18, &&sw1_ASS_M_17, &&sw1_ASS_M_16, &&sw1_ASS_M_15, &&sw1_ASS_M_14, &&sw1_ASS_M_13, &&sw1_ASS_M_12, &&sw1_ASS_M_11, &&sw1_ASS_M_10, &&sw1_ASS_M_9, &&sw1_ASS_M_8, &&sw1_ASS_M_7, &&sw1_ASS_M_6, &&sw1_ASS_M_5, &&sw1_ASS_M_4, &&sw1_ASS_M_3, &&sw1_ASS_M_2, &&sw1_ASS_M_1,  };
                                                                //    329  
                                                                //    330  %ROUTINE FORM INST(%INTEGER CODE)
#line 330 "regression-compile-tmp/hal70.imp"
void FORMINST( int CODE )
#line 330 "regression-compile-tmp/hal70.imp"
{
                                                                //    331  !    LS 4 BITS OF CODE DEFINE VALID FORMATS
                                                                //    332  !    INTERDATA OP-CODES FOR DIFFERENT FORMATS
                                                                //    333  !    ARE SYSTEMATICALLY RELATED
                                                                //    334  !    SHORT=REGISTER+SINC, LIT=REGISTER+LINC, MEM=REGISTER+MINC
                                                                //    335  %OWNINTEGER SINC=16_1C00, LINC=16_C000, MINC=16_4000
#line 335 "regression-compile-tmp/hal70.imp"
static int SINC = 7168;
#line 335 "regression-compile-tmp/hal70.imp"
static int LINC = 49152;
#line 335 "regression-compile-tmp/hal70.imp"
static int MINC = 16384;
                                                                //    336  %INTEGER OP
#line 336 "regression-compile-tmp/hal70.imp"
int OP;
                                                                //    337      OP = CODE&16_FFF0
#line 337 "regression-compile-tmp/hal70.imp"
OP = ((CODE) & (65520));
                                                                //    338      %IF TYPE = REG %START
#line 338 "regression-compile-tmp/hal70.imp"
if (((TYPE) != (REG))) goto L_0037;
                                                                //    339         %IF CODE&REGISTER # 0 %START
#line 339 "regression-compile-tmp/hal70.imp"
if (((((CODE) & (REGISTER))) == (0))) goto L_0045;
                                                                //    340            TYPE = SINGLE;  VAL = OP+VAL
#line 340 "regression-compile-tmp/hal70.imp"
TYPE = SINGLE;
#line 340 "regression-compile-tmp/hal70.imp"
VAL = (((int)(OP)) + (VAL));
                                                                //    341            %RETURN
#line 341 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //    342         %FINISH
#line 342 "regression-compile-tmp/hal70.imp"
L_0045:;
                                                                //    343         TYPE = XMASK+VAL;  VAL = 0;    !COERCE TO INDEXED IMMEDIATE
#line 343 "regression-compile-tmp/hal70.imp"
TYPE = (((int)(XMASK)) + (VAL));
#line 343 "regression-compile-tmp/hal70.imp"
VAL = 0;
                                                                //    344      %FINISH
#line 344 "regression-compile-tmp/hal70.imp"
L_0037:;
                                                                //    345  !!    %IF TYPE=0 %AND !VAL!<=15 %AND CODE&SHORT#0 %START; !SHORT
                                                                //    346      %IF TYPE=0 %AND |VAL|<=15 %AND CODE&SHORT#0 %START; !SHORT
#line 346 "regression-compile-tmp/hal70.imp"
if (((TYPE) != (0))) goto L_0046;
#line 346 "regression-compile-tmp/hal70.imp"
if (((_imp_IMOD(VAL)) > (15))) goto L_0046;
#line 346 "regression-compile-tmp/hal70.imp"
if (((((CODE) & (SHORT))) == (0))) goto L_0046;
                                                                //    347         VAL = -VAL %AND OP = OP!!16_100 %IF VAL < 0
#line 347 "regression-compile-tmp/hal70.imp"
if (((VAL) >= (0))) goto L_0047;
#line 347 "regression-compile-tmp/hal70.imp"
VAL = (-(VAL));
#line 347 "regression-compile-tmp/hal70.imp"
OP = ((OP) ^ (256));
#line 347 "regression-compile-tmp/hal70.imp"
L_0047:;
                                                                //    348         TYPE = SINGLE;  VAL = OP+SINC+VAL
#line 348 "regression-compile-tmp/hal70.imp"
TYPE = SINGLE;
#line 348 "regression-compile-tmp/hal70.imp"
VAL = (((int)((((int)(OP)) + (SINC)))) + (VAL));
                                                                //    349      %finish %ELSE %START
#line 349 "regression-compile-tmp/hal70.imp"
goto L_0048;
#line 349 "regression-compile-tmp/hal70.imp"
L_0046:;
                                                                //    350         FAULT('R') %IF TYPE&31 = XMASK; !R0 AS INDEX
#line 350 "regression-compile-tmp/hal70.imp"
if (((((TYPE) & (31))) != (XMASK))) goto L_0049;
#line 350 "regression-compile-tmp/hal70.imp"
FAULT(82);
#line 350 "regression-compile-tmp/hal70.imp"
L_0049:;
                                                                //    351         %IF TYPE&MEMMASK = 0 %START;   !IMMEDIATE
#line 351 "regression-compile-tmp/hal70.imp"
if (((((TYPE) & (MEMMASK))) != (0))) goto L_004a;
                                                                //    352            FAULT('I') %IF CODE&LIT = 0
#line 352 "regression-compile-tmp/hal70.imp"
if (((((CODE) & (LIT))) != (0))) goto L_004b;
#line 352 "regression-compile-tmp/hal70.imp"
FAULT(73);
#line 352 "regression-compile-tmp/hal70.imp"
L_004b:;
                                                                //    353            OP = OP+LINC
#line 353 "regression-compile-tmp/hal70.imp"
OP = (((int)(OP)) + (LINC));
                                                                //    354         %finish %ELSE %START;                  !MEMORY
#line 354 "regression-compile-tmp/hal70.imp"
goto L_004c;
#line 354 "regression-compile-tmp/hal70.imp"
L_004a:;
                                                                //    355            FAULT('I') %IF CODE&MEM = 0
#line 355 "regression-compile-tmp/hal70.imp"
if (((((CODE) & (MEM))) != (0))) goto L_004d;
#line 355 "regression-compile-tmp/hal70.imp"
FAULT(73);
#line 355 "regression-compile-tmp/hal70.imp"
L_004d:;
                                                                //    356            OP = OP+MINC
#line 356 "regression-compile-tmp/hal70.imp"
OP = (((int)(OP)) + (MINC));
                                                                //    357         %FINISH
#line 357 "regression-compile-tmp/hal70.imp"
L_004c:;
                                                                //    358         OP = OP!!OPMASK %IF TYPE&RELMASK # 0
#line 358 "regression-compile-tmp/hal70.imp"
if (((((TYPE) & (RELMASK))) == (0))) goto L_004e;
#line 358 "regression-compile-tmp/hal70.imp"
OP = ((OP) ^ (OPMASK));
#line 358 "regression-compile-tmp/hal70.imp"
L_004e:;
                                                                //    359         TYPE = TYPE&15+OP
#line 359 "regression-compile-tmp/hal70.imp"
TYPE = (((int)(((TYPE) & (15)))) + (OP));
                                                                //    360      %FINISH
#line 360 "regression-compile-tmp/hal70.imp"
L_0048:;
                                                                //    361  %END
#line 361 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block FORMINST at level 3
                                                                //    362  
                                                                //    363  %ROUTINE PLANT JUMP
#line 363 "regression-compile-tmp/hal70.imp"
void PLANTJUMP( void )
#line 363 "regression-compile-tmp/hal70.imp"
{
                                                                //    364  %INTEGER I,OP
#line 364 "regression-compile-tmp/hal70.imp"
int I;
#line 364 "regression-compile-tmp/hal70.imp"
int OP;
                                                                //    365      OP = BF;  COND=\COND %AND OP=BT %IF COND < 0
#line 365 "regression-compile-tmp/hal70.imp"
OP = BF;
#line 365 "regression-compile-tmp/hal70.imp"
if (((COND) >= (0))) goto L_004f;
#line 365 "regression-compile-tmp/hal70.imp"
COND = (~(COND));
#line 365 "regression-compile-tmp/hal70.imp"
OP = BT;
#line 365 "regression-compile-tmp/hal70.imp"
L_004f:;
                                                                //    366      %IF TYPE&(\UMASK) = LOCTYPE %START
#line 366 "regression-compile-tmp/hal70.imp"
if (((((TYPE) & ((~(UMASK))))) != (LOCTYPE))) goto L_0050;
                                                                //    367         I = LOC>>1-VAL>>1
#line 367 "regression-compile-tmp/hal70.imp"
I = ((((int)((((unsigned int)(LOC)) >> (1))))) - ((int)((((unsigned int)(VAL)) >> (1)))));
                                                                //    368  !!       FAULT('J') %AND I=0 %IF FLAG # 0 %AND !I! > 15
                                                                //    369         FAULT('J') %AND I=0 %IF FLAG # 0 %AND |I| > 15
#line 369 "regression-compile-tmp/hal70.imp"
if (((FLAG) == (0))) goto L_0051;
#line 369 "regression-compile-tmp/hal70.imp"
if (((_imp_IMOD(I)) <= (15))) goto L_0051;
#line 369 "regression-compile-tmp/hal70.imp"
FAULT(74);
#line 369 "regression-compile-tmp/hal70.imp"
I = 0;
#line 369 "regression-compile-tmp/hal70.imp"
L_0051:;
                                                                //    370  !!       %IF !I! <= 15 %START
                                                                //    371         %IF |I| <= 15 %START
#line 371 "regression-compile-tmp/hal70.imp"
if (((_imp_IMOD(I)) > (15))) goto L_0052;
                                                                //    372            %IF TYPE&UMASK = 0 %OR FLAG # 0 %START
#line 372 "regression-compile-tmp/hal70.imp"
if (((((TYPE) & (UMASK))) == (0))) goto L_0053;
#line 372 "regression-compile-tmp/hal70.imp"
if (((FLAG) == (0))) goto L_0054;
#line 372 "regression-compile-tmp/hal70.imp"
L_0053:;
                                                                //    373               OP = OP<<1+2;            !0408, 0608
#line 373 "regression-compile-tmp/hal70.imp"
OP = (((int)(((OP) << (1)))) + (2));
                                                                //    374               TYPE = 0;  VAL = I
#line 374 "regression-compile-tmp/hal70.imp"
TYPE = 0;
#line 374 "regression-compile-tmp/hal70.imp"
VAL = I;
                                                                //    375            %finish %ELSE %START
#line 375 "regression-compile-tmp/hal70.imp"
goto L_0055;
#line 375 "regression-compile-tmp/hal70.imp"
L_0054:;
                                                                //    376               FAULT('S') %IF LIST >= 0 %AND LIST&8 # 0
#line 376 "regression-compile-tmp/hal70.imp"
if (((LIST) < (0))) goto L_0056;
#line 376 "regression-compile-tmp/hal70.imp"
if (((((LIST) & (8))) == (0))) goto L_0056;
#line 376 "regression-compile-tmp/hal70.imp"
FAULT(83);
#line 376 "regression-compile-tmp/hal70.imp"
L_0056:;
                                                                //    377            %FINISH
#line 377 "regression-compile-tmp/hal70.imp"
L_0055:;
                                                                //    378         %FINISH
#line 378 "regression-compile-tmp/hal70.imp"
L_0052:;
                                                                //    379      %FINISH
#line 379 "regression-compile-tmp/hal70.imp"
L_0050:;
                                                                //    380      FORM INST(COND<<4+OP)
#line 380 "regression-compile-tmp/hal70.imp"
FORMINST((((int)(((COND) << (4)))) + (OP)));
                                                                //    381      PLANT VAL
#line 381 "regression-compile-tmp/hal70.imp"
PLANTVAL();
                                                                //    382      COND = 0
#line 382 "regression-compile-tmp/hal70.imp"
COND = 0;
                                                                //    383  %END
#line 383 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PLANTJUMP at level 3
                                                                //    384  
                                                                //    385  %ROUTINE SET JUMP(%INTEGER CASE)
#line 385 "regression-compile-tmp/hal70.imp"
void SETJUMP( int CASE )
#line 385 "regression-compile-tmp/hal70.imp"
{
                                                                //    386  %INTEGER THOLD,VHOLD,FHOLD
#line 386 "regression-compile-tmp/hal70.imp"
int THOLD;
#line 386 "regression-compile-tmp/hal70.imp"
int VHOLD;
#line 386 "regression-compile-tmp/hal70.imp"
int FHOLD;
                                                                //    387  !!    ALMAX = ALMAX+1;  %MONITOR 22 %IF ALMAX = LABMIN
                                                                //    388      ALMAX = ALMAX+1;  !{}%signal 2,2 %IF ALMAX = LABMIN
#line 388 "regression-compile-tmp/hal70.imp"
ALMAX = (((int)(ALMAX)) + (1));
                                                                //    389      NEST(LOC);  NEST(ALMAX-DEFLIM+CASE)
#line 389 "regression-compile-tmp/hal70.imp"
NEST(LOC);
#line 389 "regression-compile-tmp/hal70.imp"
NEST((((int)((((int)(ALMAX)) - (DEFLIM)))) + (CASE)));
                                                                //    390      THOLD = TYPE;  VHOLD = VAL;  FHOLD = FLAG
#line 390 "regression-compile-tmp/hal70.imp"
THOLD = TYPE;
#line 390 "regression-compile-tmp/hal70.imp"
VHOLD = VAL;
#line 390 "regression-compile-tmp/hal70.imp"
FHOLD = FLAG;
                                                                //    391      TYPE = LOCTYPE;  VAL = INTEGER(ALMAX);  FLAG = 0
#line 391 "regression-compile-tmp/hal70.imp"
TYPE = LOCTYPE;
#line 391 "regression-compile-tmp/hal70.imp"
VAL = INTEGER(ALMAX);
#line 391 "regression-compile-tmp/hal70.imp"
FLAG = 0;
                                                                //    392      TYPE = TYPE+UMASK %IF PASS = 0
#line 392 "regression-compile-tmp/hal70.imp"
if (((PASS) != (0))) goto L_0057;
#line 392 "regression-compile-tmp/hal70.imp"
TYPE = (((int)(TYPE)) + (UMASK));
#line 392 "regression-compile-tmp/hal70.imp"
L_0057:;
                                                                //    393      COND = \COND
#line 393 "regression-compile-tmp/hal70.imp"
COND = (~(COND));
                                                                //    394      PLANT JUMP
#line 394 "regression-compile-tmp/hal70.imp"
PLANTJUMP();
                                                                //    395      TYPE = THOLD;  VAL = VHOLD;  FLAG = FHOLD
#line 395 "regression-compile-tmp/hal70.imp"
TYPE = THOLD;
#line 395 "regression-compile-tmp/hal70.imp"
VAL = VHOLD;
#line 395 "regression-compile-tmp/hal70.imp"
FLAG = FHOLD;
                                                                //    396  %END
#line 396 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block SETJUMP at level 3
                                                                //    397  
                                                                //    398  %ROUTINE PLANT INST(%INTEGER CODE)
#line 398 "regression-compile-tmp/hal70.imp"
void PLANTINST( int CODE )
#line 398 "regression-compile-tmp/hal70.imp"
{
                                                                //    399      FORM INST(CODE)
#line 399 "regression-compile-tmp/hal70.imp"
FORMINST(CODE);
                                                                //    400      SET JUMP(16_1000) %IF COND # 0
#line 400 "regression-compile-tmp/hal70.imp"
if (((COND) == (0))) goto L_0058;
#line 400 "regression-compile-tmp/hal70.imp"
SETJUMP(4096);
#line 400 "regression-compile-tmp/hal70.imp"
L_0058:;
                                                                //    401      PLANT VAL
#line 401 "regression-compile-tmp/hal70.imp"
PLANTVAL();
                                                                //    402  %END
#line 402 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PLANTINST at level 3
                                                                //    403  
                                                                //    404  %ROUTINE LOAD REG(%INTEGER R)
#line 404 "regression-compile-tmp/hal70.imp"
void LOADREG( int R )
#line 404 "regression-compile-tmp/hal70.imp"
{
                                                                //    405  %INTEGER OP
#line 405 "regression-compile-tmp/hal70.imp"
int OP;
                                                                //    406      %IF ATYPE = TYPE %AND AVAL = VAL %START
#line 406 "regression-compile-tmp/hal70.imp"
if (((ATYPE) != (TYPE))) goto L_0059;
#line 406 "regression-compile-tmp/hal70.imp"
if (((AVAL) != (VAL))) goto L_0059;
                                                                //    407         TYPE = REG;  VAL = ACC
#line 407 "regression-compile-tmp/hal70.imp"
TYPE = REG;
#line 407 "regression-compile-tmp/hal70.imp"
VAL = ACC;
                                                                //    408         %RETURN %IF R = ACC
#line 408 "regression-compile-tmp/hal70.imp"
if (((R) != (ACC))) goto L_005a;
#line 408 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 408 "regression-compile-tmp/hal70.imp"
L_005a:;
                                                                //    409      %FINISH
#line 409 "regression-compile-tmp/hal70.imp"
L_0059:;
                                                                //    410      ATYPE = TYPE %AND AVAL = VAL %IF R = ACC
#line 410 "regression-compile-tmp/hal70.imp"
if (((R) != (ACC))) goto L_005b;
#line 410 "regression-compile-tmp/hal70.imp"
ATYPE = TYPE;
#line 410 "regression-compile-tmp/hal70.imp"
AVAL = VAL;
#line 410 "regression-compile-tmp/hal70.imp"
L_005b:;
                                                                //    411      ATYPE = -1 %IF (ATYPE=REG %AND AVAL=R) %OR ATYPE&15=R#0
#line 411 "regression-compile-tmp/hal70.imp"
if (((ATYPE) != (REG))) goto L_005c;
#line 411 "regression-compile-tmp/hal70.imp"
if (((AVAL) == (R))) goto L_0038;
#line 411 "regression-compile-tmp/hal70.imp"
L_005c:;
#line 411 "regression-compile-tmp/hal70.imp"
if ((((((ATYPE) & (15))) != (R))) || (((R) == (0)))) goto L_005d;
#line 411 "regression-compile-tmp/hal70.imp"
L_0038:;
#line 411 "regression-compile-tmp/hal70.imp"
ATYPE = (-1);
#line 411 "regression-compile-tmp/hal70.imp"
L_005d:;
                                                                //    412      %IF TYPE&BMASK = 0 %START
#line 412 "regression-compile-tmp/hal70.imp"
if (((((TYPE) & (BMASK))) != (0))) goto L_005e;
                                                                //    413         OP = LOAD
#line 413 "regression-compile-tmp/hal70.imp"
OP = LOAD;
                                                                //    414         OP = ADD %AND TYPE = 0 %IF TYPE!!XMASK = R # 0
#line 414 "regression-compile-tmp/hal70.imp"
if ((((((TYPE) ^ (XMASK))) != (R))) || (((R) == (0)))) goto L_005f;
#line 414 "regression-compile-tmp/hal70.imp"
OP = ADD;
#line 414 "regression-compile-tmp/hal70.imp"
TYPE = 0;
#line 414 "regression-compile-tmp/hal70.imp"
L_005f:;
                                                                //    415         CREG = R;  CTYPE = 0;  CVAL = 0
#line 415 "regression-compile-tmp/hal70.imp"
CREG = R;
#line 415 "regression-compile-tmp/hal70.imp"
CTYPE = 0;
#line 415 "regression-compile-tmp/hal70.imp"
CVAL = 0;
                                                                //    416      %finish %ELSE %START
#line 416 "regression-compile-tmp/hal70.imp"
goto L_0060;
#line 416 "regression-compile-tmp/hal70.imp"
L_005e:;
                                                                //    417         OP = LB
#line 417 "regression-compile-tmp/hal70.imp"
OP = LB;
                                                                //    418         CREG = -1 %IF CREG = R
#line 418 "regression-compile-tmp/hal70.imp"
if (((CREG) != (R))) goto L_0061;
#line 418 "regression-compile-tmp/hal70.imp"
CREG = (-1);
#line 418 "regression-compile-tmp/hal70.imp"
L_0061:;
                                                                //    419      %FINISH
#line 419 "regression-compile-tmp/hal70.imp"
L_0060:;
                                                                //    420      PLANT INST(R<<4+OP)
#line 420 "regression-compile-tmp/hal70.imp"
PLANTINST((((int)(((R) << (4)))) + (OP)));
                                                                //    421      TYPE = REG;  VAL = R
#line 421 "regression-compile-tmp/hal70.imp"
TYPE = REG;
#line 421 "regression-compile-tmp/hal70.imp"
VAL = R;
                                                                //    422  %END
#line 422 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block LOADREG at level 3
                                                                //    423  
                                                                //    424  %ROUTINE RELEASE
#line 424 "regression-compile-tmp/hal70.imp"
void RELEASE( void )
#line 424 "regression-compile-tmp/hal70.imp"
{
                                                                //    425  %INTEGER I
#line 425 "regression-compile-tmp/hal70.imp"
int I;
                                                                //    426      %RETURN %IF TYPE&REGXMASK = 0
#line 426 "regression-compile-tmp/hal70.imp"
if (((((TYPE) & (REGXMASK))) != (0))) goto L_0062;
#line 426 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 426 "regression-compile-tmp/hal70.imp"
L_0062:;
                                                                //    427      I = TYPE&15;  I = VAL %IF I = 0
#line 427 "regression-compile-tmp/hal70.imp"
I = ((TYPE) & (15));
#line 427 "regression-compile-tmp/hal70.imp"
if (((I) != (0))) goto L_0063;
#line 427 "regression-compile-tmp/hal70.imp"
I = VAL;
#line 427 "regression-compile-tmp/hal70.imp"
L_0063:;
                                                                //    428      %IF I = DREG %START
#line 428 "regression-compile-tmp/hal70.imp"
if (((I) != (DREG))) goto L_0064;
                                                                //    429         DUSE = DUSE-1
#line 429 "regression-compile-tmp/hal70.imp"
DUSE = (((int)(DUSE)) - (1));
                                                                //    430      %finish %ELSE %START
#line 430 "regression-compile-tmp/hal70.imp"
goto L_0065;
#line 430 "regression-compile-tmp/hal70.imp"
L_0064:;
                                                                //    431         I = 1<<I
#line 431 "regression-compile-tmp/hal70.imp"
I = ((1) << (I));
                                                                //    432         FREE = FREE!I %IF TEMPS&I # 0
#line 432 "regression-compile-tmp/hal70.imp"
if (((((TEMPS) & (I))) == (0))) goto L_0066;
#line 432 "regression-compile-tmp/hal70.imp"
FREE = ((FREE) | (I));
#line 432 "regression-compile-tmp/hal70.imp"
L_0066:;
                                                                //    433      %FINISH
#line 433 "regression-compile-tmp/hal70.imp"
L_0065:;
                                                                //    434  %END
#line 434 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block RELEASE at level 3
                                                                //    435  
                                                                //    436  %ROUTINE LOAD TEMP
#line 436 "regression-compile-tmp/hal70.imp"
void LOADTEMP( void )
#line 436 "regression-compile-tmp/hal70.imp"
{
                                                                //    437  %INTEGER I,J
#line 437 "regression-compile-tmp/hal70.imp"
int I;
#line 437 "regression-compile-tmp/hal70.imp"
int J;
                                                                //    438      RELEASE
#line 438 "regression-compile-tmp/hal70.imp"
RELEASE();
                                                                //    439      %IF DREG >= ZQUERY %AND DUSE = 0 %START
#line 439 "regression-compile-tmp/hal70.imp"
if (((DREG) < (ZQUERY))) goto L_0067;
#line 439 "regression-compile-tmp/hal70.imp"
if (((DUSE) != (0))) goto L_0067;
                                                                //    440         I = DREG;  DUSE = 1
#line 440 "regression-compile-tmp/hal70.imp"
I = DREG;
#line 440 "regression-compile-tmp/hal70.imp"
DUSE = 1;
                                                                //    441      %finish %ELSE %START
#line 441 "regression-compile-tmp/hal70.imp"
goto L_0068;
#line 441 "regression-compile-tmp/hal70.imp"
L_0067:;
                                                                //    442         J = 1+ZQUERY
#line 442 "regression-compile-tmp/hal70.imp"
J = (((int)(1)) + (ZQUERY));
                                                                //    443         %CYCLE I = ZQUERY,1,15
#line 443 "regression-compile-tmp/hal70.imp"
I = (((int)(ZQUERY)) - (1));
if ((((15)-(ZQUERY)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = ZQUERY, 1, 15");
L_0069:;
if (I == 15) goto L_006a;
I += 1;
                                                                //    444            ->OK %IF FREE&J # 0 %AND I # DREG
#line 444 "regression-compile-tmp/hal70.imp"
if (((((FREE) & (J))) == (0))) goto L_006c;
#line 444 "regression-compile-tmp/hal70.imp"
if (((I) == (DREG))) goto L_006c;
#line 444 "regression-compile-tmp/hal70.imp"
goto U_1000;
#line 444 "regression-compile-tmp/hal70.imp"
L_006c:;
                                                                //    445            J = J<<1
#line 445 "regression-compile-tmp/hal70.imp"
J = ((J) << (1));
                                                                //    446         %REPEAT
#line 446 "regression-compile-tmp/hal70.imp"
goto L_0069;
#line 446 "regression-compile-tmp/hal70.imp"
L_006a:;
                                                                //    447         FAULT('R')
#line 447 "regression-compile-tmp/hal70.imp"
FAULT(82);
                                                                //    448  OK:    FREE = FREE-J
#line 448 "regression-compile-tmp/hal70.imp"
U_1000:;
#line 448 "regression-compile-tmp/hal70.imp"
FREE = (((int)(FREE)) - (J));
                                                                //    449      %FINISH
#line 449 "regression-compile-tmp/hal70.imp"
L_0068:;
                                                                //    450      LOAD REG(I)
#line 450 "regression-compile-tmp/hal70.imp"
LOADREG(I);
                                                                //    451  %END
#line 451 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block LOADTEMP at level 3
                                                                //    452  
                                                                //    453  %ROUTINE SWOP
#line 453 "regression-compile-tmp/hal70.imp"
void SWOP( void )
#line 453 "regression-compile-tmp/hal70.imp"
{
                                                                //    454  %INTEGER K
#line 454 "regression-compile-tmp/hal70.imp"
int K;
                                                                //    455      K = TYPE1;  TYPE1 = TYPE;  TYPE = K
#line 455 "regression-compile-tmp/hal70.imp"
K = TYPE1;
#line 455 "regression-compile-tmp/hal70.imp"
TYPE1 = TYPE;
#line 455 "regression-compile-tmp/hal70.imp"
TYPE = K;
                                                                //    456      K = VAL1;  VAL1 = VAL;  VAL = K
#line 456 "regression-compile-tmp/hal70.imp"
K = VAL1;
#line 456 "regression-compile-tmp/hal70.imp"
VAL1 = VAL;
#line 456 "regression-compile-tmp/hal70.imp"
VAL = K;
                                                                //    457  %END
#line 457 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block SWOP at level 3
                                                                //    458  
                                                                //    459  %ROUTINE PROGREF
#line 459 "regression-compile-tmp/hal70.imp"
void PROGREF( void )
#line 459 "regression-compile-tmp/hal70.imp"
{
                                                                //    460      %IF TYPE&RELUXMASK = XMASK %AND VAL = 0 %START
#line 460 "regression-compile-tmp/hal70.imp"
if (((((TYPE) & (RELUXMASK))) != (XMASK))) goto L_006d;
#line 460 "regression-compile-tmp/hal70.imp"
if (((VAL) != (0))) goto L_006d;
                                                                //    461         VAL = TYPE&15;  TYPE = REG
#line 461 "regression-compile-tmp/hal70.imp"
VAL = ((TYPE) & (15));
#line 461 "regression-compile-tmp/hal70.imp"
TYPE = REG;
                                                                //    462      %FINISH
#line 462 "regression-compile-tmp/hal70.imp"
L_006d:;
                                                                //    463      TYPE = TYPE!MEMMASK %IF TYPE # REG
#line 463 "regression-compile-tmp/hal70.imp"
if (((TYPE) == (REG))) goto L_006e;
#line 463 "regression-compile-tmp/hal70.imp"
TYPE = ((TYPE) | (MEMMASK));
#line 463 "regression-compile-tmp/hal70.imp"
L_006e:;
                                                                //    464  %END
#line 464 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PROGREF at level 3
                                                                //    465  
                                                                //    466      Q = QSTART
#line 466 "regression-compile-tmp/hal70.imp"
Q = QSTART;
                                                                //    467  NEW:NQ = QSTART;  FREE = TEMPS
#line 467 "regression-compile-tmp/hal70.imp"
U_1000:;
#line 467 "regression-compile-tmp/hal70.imp"
NQ = QSTART;
#line 467 "regression-compile-tmp/hal70.imp"
FREE = TEMPS;
                                                                //    468      TYPE = INTEGER(Q);  Q = Q+1
#line 468 "regression-compile-tmp/hal70.imp"
TYPE = INTEGER(Q);
#line 468 "regression-compile-tmp/hal70.imp"
Q = (((int)(Q)) + (1));
                                                                //    469      VAL = INTEGER(Q);  Q = Q+1
#line 469 "regression-compile-tmp/hal70.imp"
VAL = INTEGER(Q);
#line 469 "regression-compile-tmp/hal70.imp"
Q = (((int)(Q)) + (1));
                                                                //    470  
                                                                //    471  GET:%CYCLE
#line 471 "regression-compile-tmp/hal70.imp"
U_1001:;
#line 471 "regression-compile-tmp/hal70.imp"
L_006f:;
                                                                //    472         %RETURN %IF Q = QLIM
#line 472 "regression-compile-tmp/hal70.imp"
if (((Q) != (QLIM))) goto L_0072;
#line 472 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 472 "regression-compile-tmp/hal70.imp"
L_0072:;
                                                                //    473         K = INTEGER(Q);  Q = Q+1
#line 473 "regression-compile-tmp/hal70.imp"
K = INTEGER(Q);
#line 473 "regression-compile-tmp/hal70.imp"
Q = (((int)(Q)) + (1));
                                                                //    474         ->ASS(K) %IF K < 0
#line 474 "regression-compile-tmp/hal70.imp"
if (((K) >= (0))) goto L_0073;
#line 474 "regression-compile-tmp/hal70.imp"
sw1_ASS_idx = K; if ((-30 <= sw1_ASS_idx) && (sw1_ASS_idx <= -1)) goto *(sw1_ASS+30)[sw1_ASS_idx];  /* Bounds=-30:-1 */ else {
   /*_imp_signal(8, 2, sw1_ASS_idx);*/
   fprintf(stderr, "%%SWITCH index ASS(%d) not in range -30:-1 at %s:%d\n",
           sw1_ASS_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
#line 474 "regression-compile-tmp/hal70.imp"
L_0073:;
                                                                //    475  !!       INTEGER(NQ) = TYPE1;  INTEGER(NQ+1) = VAL1
                                                                //    476         set INTEGER(NQ, TYPE1);  set INTEGER(NQ+1, VAL1)
#line 476 "regression-compile-tmp/hal70.imp"
SETINTEGER(NQ, TYPE1);
#line 476 "regression-compile-tmp/hal70.imp"
SETINTEGER((((int)(NQ)) + (1)), VAL1);
                                                                //    477         NQ = NQ+2
#line 477 "regression-compile-tmp/hal70.imp"
NQ = (((int)(NQ)) + (2));
                                                                //    478         TYPE1 = TYPE;  VAL1 = VAL
#line 478 "regression-compile-tmp/hal70.imp"
TYPE1 = TYPE;
#line 478 "regression-compile-tmp/hal70.imp"
VAL1 = VAL;
                                                                //    479         TYPE = K;  VAL = INTEGER(Q);  Q = Q+1
#line 479 "regression-compile-tmp/hal70.imp"
TYPE = K;
#line 479 "regression-compile-tmp/hal70.imp"
VAL = INTEGER(Q);
#line 479 "regression-compile-tmp/hal70.imp"
Q = (((int)(Q)) + (1));
                                                                //    480      %REPEAT
#line 480 "regression-compile-tmp/hal70.imp"
goto L_006f;
                                                                //    481  
                                                                //    482  %PREDICATE TEMP
#line 482 "regression-compile-tmp/hal70.imp"
int /*Boolean*/ TEMP( void )
#line 482 "regression-compile-tmp/hal70.imp"
{
                                                                //    483      %FALSE %IF TYPE1 # REG
#line 483 "regression-compile-tmp/hal70.imp"
if (((TYPE1) == (REG))) goto L_0070;
#line 483 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return 0;
#line 483 "regression-compile-tmp/hal70.imp"
L_0070:;
                                                                //    484      %IF VAL1 = DREG %START
#line 484 "regression-compile-tmp/hal70.imp"
if (((VAL1) != (DREG))) goto L_0074;
                                                                //    485         %FALSE %IF DUSE # 1
#line 485 "regression-compile-tmp/hal70.imp"
if (((DUSE) == (1))) goto L_0075;
#line 485 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return 0;
#line 485 "regression-compile-tmp/hal70.imp"
L_0075:;
                                                                //    486      %finish %ELSE %START
#line 486 "regression-compile-tmp/hal70.imp"
goto L_0076;
#line 486 "regression-compile-tmp/hal70.imp"
L_0074:;
                                                                //    487         %FALSE %IF 1<<VAL1&TEMPS = 0
#line 487 "regression-compile-tmp/hal70.imp"
if (((((((1) << (VAL1))) & (TEMPS))) != (0))) goto L_0077;
#line 487 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return 0;
#line 487 "regression-compile-tmp/hal70.imp"
L_0077:;
                                                                //    488      %FINISH
#line 488 "regression-compile-tmp/hal70.imp"
L_0076:;
                                                                //    489      %TRUE
#line 489 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return 1;
                                                                //    490  %END
#line 490 "regression-compile-tmp/hal70.imp"
} // End of block TEMP at level 3
                                                                //    491  
                                                                //    492  NOP: K = 0;                           !NOT SYMMETRIC
#line 492 "regression-compile-tmp/hal70.imp"
U_1002:;
#line 492 "regression-compile-tmp/hal70.imp"
K = 0;
                                                                //    493  BOP:%IF MODE <= 0 %OR (TYPE = 0 %AND TYPE1 = 0) %START
#line 493 "regression-compile-tmp/hal70.imp"
U_1003:;
#line 493 "regression-compile-tmp/hal70.imp"
if (((MODE) <= (0))) goto L_0071;
#line 493 "regression-compile-tmp/hal70.imp"
if (((TYPE) != (0))) goto L_0078;
#line 493 "regression-compile-tmp/hal70.imp"
if (((TYPE1) != (0))) goto L_0078;
#line 493 "regression-compile-tmp/hal70.imp"
L_0071:;
                                                                //    494         FAULT('A') %IF TYPE # 0
#line 494 "regression-compile-tmp/hal70.imp"
if (((TYPE) == (0))) goto L_0079;
#line 494 "regression-compile-tmp/hal70.imp"
FAULT(65);
#line 494 "regression-compile-tmp/hal70.imp"
L_0079:;
                                                                //    495         TYPE = TYPE1;  VAL = LITVAL
#line 495 "regression-compile-tmp/hal70.imp"
TYPE = TYPE1;
#line 495 "regression-compile-tmp/hal70.imp"
VAL = LITVAL;
                                                                //    496      %finish %ELSE %START
#line 496 "regression-compile-tmp/hal70.imp"
goto L_007a;
#line 496 "regression-compile-tmp/hal70.imp"
L_0078:;
                                                                //    497         %IF %NOT TEMP %OR (TYPE=REG %AND VAL=DREG %AND DUSE=1 %AND K#0) %START
#line 497 "regression-compile-tmp/hal70.imp"
if (!(TEMP())) goto L_006b;
#line 497 "regression-compile-tmp/hal70.imp"
if (((TYPE) != (REG))) goto L_007b;
#line 497 "regression-compile-tmp/hal70.imp"
if (((VAL) != (DREG))) goto L_007b;
#line 497 "regression-compile-tmp/hal70.imp"
if (((DUSE) != (1))) goto L_007b;
#line 497 "regression-compile-tmp/hal70.imp"
if (((K) == (0))) goto L_007b;
#line 497 "regression-compile-tmp/hal70.imp"
L_006b:;
                                                                //    498            SWOP
#line 498 "regression-compile-tmp/hal70.imp"
SWOP();
                                                                //    499            %IF K = 0 %OR %NOT TEMP %START
#line 499 "regression-compile-tmp/hal70.imp"
if (((K) == (0))) goto L_007c;
#line 499 "regression-compile-tmp/hal70.imp"
if (TEMP()) goto L_007d;
#line 499 "regression-compile-tmp/hal70.imp"
L_007c:;
                                                                //    500               LOAD TEMP;  SWOP
#line 500 "regression-compile-tmp/hal70.imp"
LOADTEMP();
#line 500 "regression-compile-tmp/hal70.imp"
SWOP();
                                                                //    501            %FINISH
#line 501 "regression-compile-tmp/hal70.imp"
L_007d:;
                                                                //    502         %FINISH
#line 502 "regression-compile-tmp/hal70.imp"
L_007b:;
                                                                //    503         LOAD TEMP %IF TYPE&BMASK # 0 %OR (OP&MEM=0 %AND TYPE&MEMMASK#0)
#line 503 "regression-compile-tmp/hal70.imp"
if (((((TYPE) & (BMASK))) != (0))) goto L_007e;
#line 503 "regression-compile-tmp/hal70.imp"
if (((((OP) & (MEM))) != (0))) goto L_007f;
#line 503 "regression-compile-tmp/hal70.imp"
if (((((TYPE) & (MEMMASK))) == (0))) goto L_007f;
#line 503 "regression-compile-tmp/hal70.imp"
L_007e:;
#line 503 "regression-compile-tmp/hal70.imp"
LOADTEMP();
#line 503 "regression-compile-tmp/hal70.imp"
L_007f:;
                                                                //    504         RELEASE
#line 504 "regression-compile-tmp/hal70.imp"
RELEASE();
                                                                //    505         PLANT INST(VAL1<<4+OP)
#line 505 "regression-compile-tmp/hal70.imp"
PLANTINST((((int)(((VAL1) << (4)))) + (OP)));
                                                                //    506         TYPE = REG;  VAL = VAL1
#line 506 "regression-compile-tmp/hal70.imp"
TYPE = REG;
#line 506 "regression-compile-tmp/hal70.imp"
VAL = VAL1;
                                                                //    507         CREG = VAL;  CTYPE = 0;  CVAL = 0
#line 507 "regression-compile-tmp/hal70.imp"
CREG = VAL;
#line 507 "regression-compile-tmp/hal70.imp"
CTYPE = 0;
#line 507 "regression-compile-tmp/hal70.imp"
CVAL = 0;
                                                                //    508         ATYPE = -1 %IF ACC = VAL %OR ATYPE&15 = VAL # 0
#line 508 "regression-compile-tmp/hal70.imp"
if (((ACC) == (VAL))) goto L_0080;
#line 508 "regression-compile-tmp/hal70.imp"
if ((((((ATYPE) & (15))) != (VAL))) || (((VAL) == (0)))) goto L_0081;
#line 508 "regression-compile-tmp/hal70.imp"
L_0080:;
#line 508 "regression-compile-tmp/hal70.imp"
ATYPE = (-1);
#line 508 "regression-compile-tmp/hal70.imp"
L_0081:;
                                                                //    509         ATYPE = -1 %IF ATYPE = REG %AND AVAL = VAL
#line 509 "regression-compile-tmp/hal70.imp"
if (((ATYPE) != (REG))) goto L_0082;
#line 509 "regression-compile-tmp/hal70.imp"
if (((AVAL) != (VAL))) goto L_0082;
#line 509 "regression-compile-tmp/hal70.imp"
ATYPE = (-1);
#line 509 "regression-compile-tmp/hal70.imp"
L_0082:;
                                                                //    510      %FINISH
#line 510 "regression-compile-tmp/hal70.imp"
L_007a:;
                                                                //    511  
                                                                //    512  POP:NQ = NQ-2
#line 512 "regression-compile-tmp/hal70.imp"
U_1004:;
#line 512 "regression-compile-tmp/hal70.imp"
NQ = (((int)(NQ)) - (2));
                                                                //    513      TYPE1 = INTEGER(NQ);  VAL1 = INTEGER(NQ+1)
#line 513 "regression-compile-tmp/hal70.imp"
TYPE1 = INTEGER(NQ);
#line 513 "regression-compile-tmp/hal70.imp"
VAL1 = INTEGER((((int)(NQ)) + (1)));
                                                                //    514      ->GET
#line 514 "regression-compile-tmp/hal70.imp"
goto U_1001;
                                                                //    515  
                                                                //    516  ASS(-2):
#line 516 "regression-compile-tmp/hal70.imp"
sw1_ASS_M_2:;
                                                                //    517      OP = SUB
#line 517 "regression-compile-tmp/hal70.imp"
OP = SUB;
                                                                //    518      ->NOP %IF MODE > 0 %AND TYPE # 0
#line 518 "regression-compile-tmp/hal70.imp"
if (((MODE) <= (0))) goto L_0083;
#line 518 "regression-compile-tmp/hal70.imp"
if (((TYPE) == (0))) goto L_0083;
#line 518 "regression-compile-tmp/hal70.imp"
goto U_1002;
#line 518 "regression-compile-tmp/hal70.imp"
L_0083:;
                                                                //    519      TYPE1 = 0 %AND TYPE = 0 %IF MODE <= 0 %AND TYPE1 = TYPE
#line 519 "regression-compile-tmp/hal70.imp"
if (((MODE) > (0))) goto L_0084;
#line 519 "regression-compile-tmp/hal70.imp"
if (((TYPE1) != (TYPE))) goto L_0084;
#line 519 "regression-compile-tmp/hal70.imp"
TYPE1 = 0;
#line 519 "regression-compile-tmp/hal70.imp"
TYPE = 0;
#line 519 "regression-compile-tmp/hal70.imp"
L_0084:;
                                                                //    520      VAL = -VAL
#line 520 "regression-compile-tmp/hal70.imp"
VAL = (-(VAL));
                                                                //    521  ASS(-1):
#line 521 "regression-compile-tmp/hal70.imp"
sw1_ASS_M_1:;
                                                                //    522      OP = ADD;  LITVAL = VAL1+VAL
#line 522 "regression-compile-tmp/hal70.imp"
OP = ADD;
#line 522 "regression-compile-tmp/hal70.imp"
LITVAL = (((int)(VAL1)) + (VAL));
                                                                //    523      ->BOP %UNLESS TYPE = 0
#line 523 "regression-compile-tmp/hal70.imp"
if (((TYPE) == (0))) goto L_0085;
#line 523 "regression-compile-tmp/hal70.imp"
goto U_1003;
#line 523 "regression-compile-tmp/hal70.imp"
L_0085:;
                                                                //    524      %IF TYPE1&MEMMASK # 0 %AND MODE > 0 %START
#line 524 "regression-compile-tmp/hal70.imp"
if (((((TYPE1) & (MEMMASK))) == (0))) goto L_0086;
#line 524 "regression-compile-tmp/hal70.imp"
if (((MODE) <= (0))) goto L_0086;
                                                                //    525         SWOP;  LOAD TEMP;  SWOP
#line 525 "regression-compile-tmp/hal70.imp"
SWOP();
#line 525 "regression-compile-tmp/hal70.imp"
LOADTEMP();
#line 525 "regression-compile-tmp/hal70.imp"
SWOP();
                                                                //    526      %FINISH
#line 526 "regression-compile-tmp/hal70.imp"
L_0086:;
                                                                //    527      %IF TYPE1 = REG %START
#line 527 "regression-compile-tmp/hal70.imp"
if (((TYPE1) != (REG))) goto L_0087;
                                                                //    528         ->BOP %IF VAL1 = 0
#line 528 "regression-compile-tmp/hal70.imp"
if (((VAL1) != (0))) goto L_0088;
#line 528 "regression-compile-tmp/hal70.imp"
goto U_1003;
#line 528 "regression-compile-tmp/hal70.imp"
L_0088:;
                                                                //    529         TYPE1 = XMASK+VAL1;  LITVAL = VAL
#line 529 "regression-compile-tmp/hal70.imp"
TYPE1 = (((int)(XMASK)) + (VAL1));
#line 529 "regression-compile-tmp/hal70.imp"
LITVAL = VAL;
                                                                //    530      %FINISH
#line 530 "regression-compile-tmp/hal70.imp"
L_0087:;
                                                                //    531      TYPE = TYPE1;  VAL = LITVAL
#line 531 "regression-compile-tmp/hal70.imp"
TYPE = TYPE1;
#line 531 "regression-compile-tmp/hal70.imp"
VAL = LITVAL;
                                                                //    532      ->POP
#line 532 "regression-compile-tmp/hal70.imp"
goto U_1004;
                                                                //    533  ASS(-3):
#line 533 "regression-compile-tmp/hal70.imp"
sw1_ASS_M_3:;
                                                                //    534      OP = AND;  LITVAL = VAL1&VAL
#line 534 "regression-compile-tmp/hal70.imp"
OP = AND;
#line 534 "regression-compile-tmp/hal70.imp"
LITVAL = ((VAL1) & (VAL));
                                                                //    535      ->BOP
#line 535 "regression-compile-tmp/hal70.imp"
goto U_1003;
                                                                //    536  ASS(-4):
#line 536 "regression-compile-tmp/hal70.imp"
sw1_ASS_M_4:;
                                                                //    537      OP = OR;  LITVAL = VAL1!VAL
#line 537 "regression-compile-tmp/hal70.imp"
OP = OR;
#line 537 "regression-compile-tmp/hal70.imp"
LITVAL = ((VAL1) | (VAL));
                                                                //    538      ->BOP
#line 538 "regression-compile-tmp/hal70.imp"
goto U_1003;
                                                                //    539  ASS(-5):
#line 539 "regression-compile-tmp/hal70.imp"
sw1_ASS_M_5:;
                                                                //    540      OP = XOR;  LITVAL = VAL1!!VAL
#line 540 "regression-compile-tmp/hal70.imp"
OP = XOR;
#line 540 "regression-compile-tmp/hal70.imp"
LITVAL = ((VAL1) ^ (VAL));
                                                                //    541      ->BOP
#line 541 "regression-compile-tmp/hal70.imp"
goto U_1003;
                                                                //    542  ASS(-6):
#line 542 "regression-compile-tmp/hal70.imp"
sw1_ASS_M_6:;
                                                                //    543      OP = SLLS;  LITVAL = VAL1<<VAL
#line 543 "regression-compile-tmp/hal70.imp"
OP = SLLS;
#line 543 "regression-compile-tmp/hal70.imp"
LITVAL = ((VAL1) << (VAL));
                                                                //    544      OP = SLHL %IF TYPE # 0
#line 544 "regression-compile-tmp/hal70.imp"
if (((TYPE) == (0))) goto L_0089;
#line 544 "regression-compile-tmp/hal70.imp"
OP = SLHL;
#line 544 "regression-compile-tmp/hal70.imp"
L_0089:;
                                                                //    545      ->NOP
#line 545 "regression-compile-tmp/hal70.imp"
goto U_1002;
                                                                //    546  ASS(-7):
#line 546 "regression-compile-tmp/hal70.imp"
sw1_ASS_M_7:;
                                                                //    547      OP = SRLS;  LITVAL = VAL1>>VAL
#line 547 "regression-compile-tmp/hal70.imp"
OP = SRLS;
#line 547 "regression-compile-tmp/hal70.imp"
LITVAL = (int)((((unsigned int)(VAL1)) >> (VAL)));
                                                                //    548      OP = SRHL %IF TYPE # 0
#line 548 "regression-compile-tmp/hal70.imp"
if (((TYPE) == (0))) goto L_008a;
#line 548 "regression-compile-tmp/hal70.imp"
OP = SRHL;
#line 548 "regression-compile-tmp/hal70.imp"
L_008a:;
                                                                //    549      ->NOP
#line 549 "regression-compile-tmp/hal70.imp"
goto U_1002;
                                                                //    550  
                                                                //    551  ASS(-8):                              !TYPE_VAL
#line 551 "regression-compile-tmp/hal70.imp"
sw1_ASS_M_8:;
                                                                //    552      TYPE = VAL1
#line 552 "regression-compile-tmp/hal70.imp"
TYPE = VAL1;
                                                                //    553      TYPE = 0 %IF TYPE&OPMASK = MACRO; !SAFETY
#line 553 "regression-compile-tmp/hal70.imp"
if (((((TYPE) & (OPMASK))) != (MACRO))) goto L_008b;
#line 553 "regression-compile-tmp/hal70.imp"
TYPE = 0;
#line 553 "regression-compile-tmp/hal70.imp"
L_008b:;
                                                                //    554      TYPE = 0 %IF TYPE&(OPMASK+FMASK) = FMASK
#line 554 "regression-compile-tmp/hal70.imp"
if (((((TYPE) & ((((int)(OPMASK)) + (FMASK))))) != (FMASK))) goto L_008c;
#line 554 "regression-compile-tmp/hal70.imp"
TYPE = 0;
#line 554 "regression-compile-tmp/hal70.imp"
L_008c:;
                                                                //    555      ->POP
#line 555 "regression-compile-tmp/hal70.imp"
goto U_1004;
                                                                //    556  
                                                                //    557  ASS(-11):                             !COMPARE
#line 557 "regression-compile-tmp/hal70.imp"
sw1_ASS_M_11:;
                                                                //    558      K = INTEGER(Q);  Q = Q+1
#line 558 "regression-compile-tmp/hal70.imp"
K = INTEGER(Q);
#line 558 "regression-compile-tmp/hal70.imp"
Q = (((int)(Q)) + (1));
                                                                //    559      %IF MODE <= 0 %START
#line 559 "regression-compile-tmp/hal70.imp"
if (((MODE) > (0))) goto L_008d;
                                                                //    560         VAL1 = TYPE1 %AND VAL = TYPE %IF TYPE1 # TYPE
#line 560 "regression-compile-tmp/hal70.imp"
if (((TYPE1) == (TYPE))) goto L_008e;
#line 560 "regression-compile-tmp/hal70.imp"
VAL1 = TYPE1;
#line 560 "regression-compile-tmp/hal70.imp"
VAL = TYPE;
#line 560 "regression-compile-tmp/hal70.imp"
L_008e:;
                                                                //    561         LITVAL = \3
#line 561 "regression-compile-tmp/hal70.imp"
LITVAL = (~(3));
                                                                //    562         LITVAL = 1 %IF VAL1 < VAL
#line 562 "regression-compile-tmp/hal70.imp"
if (((VAL1) >= (VAL))) goto L_008f;
#line 562 "regression-compile-tmp/hal70.imp"
LITVAL = 1;
#line 562 "regression-compile-tmp/hal70.imp"
L_008f:;
                                                                //    563         LITVAL = 2 %IF VAL1 > VAL
#line 563 "regression-compile-tmp/hal70.imp"
if (((VAL1) <= (VAL))) goto L_0090;
#line 563 "regression-compile-tmp/hal70.imp"
LITVAL = 2;
#line 563 "regression-compile-tmp/hal70.imp"
L_0090:;
                                                                //    564         K = K&LITVAL;  K = \0 %IF K # 0
#line 564 "regression-compile-tmp/hal70.imp"
K = ((K) & (LITVAL));
#line 564 "regression-compile-tmp/hal70.imp"
if (((K) == (0))) goto L_0091;
#line 564 "regression-compile-tmp/hal70.imp"
K = (~(0));
#line 564 "regression-compile-tmp/hal70.imp"
L_0091:;
                                                                //    565      %finish %ELSE %UNLESS CREG=16 %AND TYPE1=CTYPE %AND VAL1=CVAL %AND TYPE=VAL=0 %START
#line 565 "regression-compile-tmp/hal70.imp"
goto L_0092;
#line 565 "regression-compile-tmp/hal70.imp"
L_008d:;
#line 565 "regression-compile-tmp/hal70.imp"
if (((CREG) != (16))) goto L_0093;
#line 565 "regression-compile-tmp/hal70.imp"
if (((TYPE1) != (CTYPE))) goto L_0093;
#line 565 "regression-compile-tmp/hal70.imp"
if (((VAL1) != (CVAL))) goto L_0093;
#line 565 "regression-compile-tmp/hal70.imp"
if ((((TYPE) != (VAL))) || (((VAL) == (0)))) goto L_0094;
#line 565 "regression-compile-tmp/hal70.imp"
L_0093:;
                                                                //    566         %IF TYPE1 # REG %START
#line 566 "regression-compile-tmp/hal70.imp"
if (((TYPE1) == (REG))) goto L_0095;
                                                                //    567            SWOP
#line 567 "regression-compile-tmp/hal70.imp"
SWOP();
                                                                //    568            %IF TYPE1 # REG %START
#line 568 "regression-compile-tmp/hal70.imp"
if (((TYPE1) == (REG))) goto L_0096;
                                                                //    569               LOAD TEMP;  SWOP
#line 569 "regression-compile-tmp/hal70.imp"
LOADTEMP();
#line 569 "regression-compile-tmp/hal70.imp"
SWOP();
                                                                //    570            %finish %ELSE %START
#line 570 "regression-compile-tmp/hal70.imp"
goto L_0097;
#line 570 "regression-compile-tmp/hal70.imp"
L_0096:;
                                                                //    571               K = K!!3 %UNLESS K = 3 %OR K = \3
#line 571 "regression-compile-tmp/hal70.imp"
if (((K) == (3))) goto L_0098;
#line 571 "regression-compile-tmp/hal70.imp"
if (((K) == ((~(3))))) goto L_0098;
#line 571 "regression-compile-tmp/hal70.imp"
K = ((K) ^ (3));
#line 571 "regression-compile-tmp/hal70.imp"
L_0098:;
                                                                //    572            %FINISH
#line 572 "regression-compile-tmp/hal70.imp"
L_0097:;
                                                                //    573         %FINISH
#line 573 "regression-compile-tmp/hal70.imp"
L_0095:;
                                                                //    574         %UNLESS CREG = VAL1 %AND CTYPE = TYPE %AND CVAL = VAL %START
#line 574 "regression-compile-tmp/hal70.imp"
if (((CREG) != (VAL1))) goto L_0099;
#line 574 "regression-compile-tmp/hal70.imp"
if (((CTYPE) != (TYPE))) goto L_0099;
#line 574 "regression-compile-tmp/hal70.imp"
if (((CVAL) == (VAL))) goto L_009a;
#line 574 "regression-compile-tmp/hal70.imp"
L_0099:;
                                                                //    575            CREG = VAL1;  CTYPE = TYPE;  CVAL = VAL
#line 575 "regression-compile-tmp/hal70.imp"
CREG = VAL1;
#line 575 "regression-compile-tmp/hal70.imp"
CTYPE = TYPE;
#line 575 "regression-compile-tmp/hal70.imp"
CVAL = VAL;
                                                                //    576            %UNLESS TYPE = VAL = 0 %START
#line 576 "regression-compile-tmp/hal70.imp"
if ((((TYPE) != (VAL))) || (((VAL) == (0)))) goto L_009c;
#line 576 "regression-compile-tmp/hal70.imp"
L_009b:;
                                                                //    577               OP = COMP
#line 577 "regression-compile-tmp/hal70.imp"
OP = COMP;
                                                                //    578               %IF TYPE = ATYPE %AND VAL = AVAL %START
#line 578 "regression-compile-tmp/hal70.imp"
if (((TYPE) != (ATYPE))) goto L_009d;
#line 578 "regression-compile-tmp/hal70.imp"
if (((VAL) != (AVAL))) goto L_009d;
                                                                //    579                  TYPE = REG;  VAL = ACC
#line 579 "regression-compile-tmp/hal70.imp"
TYPE = REG;
#line 579 "regression-compile-tmp/hal70.imp"
VAL = ACC;
                                                                //    580               %FINISH
#line 580 "regression-compile-tmp/hal70.imp"
L_009d:;
                                                                //    581               %IF TYPE&BMASK # 0 %START
#line 581 "regression-compile-tmp/hal70.imp"
if (((((TYPE) & (BMASK))) == (0))) goto L_009e;
                                                                //    582                  OP = CLB
#line 582 "regression-compile-tmp/hal70.imp"
OP = CLB;
                                                                //    583                  FAULT('I') %UNLESS K = 3 %OR K = \3
#line 583 "regression-compile-tmp/hal70.imp"
if (((K) == (3))) goto L_009f;
#line 583 "regression-compile-tmp/hal70.imp"
if (((K) == ((~(3))))) goto L_009f;
#line 583 "regression-compile-tmp/hal70.imp"
FAULT(73);
#line 583 "regression-compile-tmp/hal70.imp"
L_009f:;
                                                                //    584               %FINISH
#line 584 "regression-compile-tmp/hal70.imp"
L_009e:;
                                                                //    585            %finish %ELSE %START
#line 585 "regression-compile-tmp/hal70.imp"
goto L_00a0;
#line 585 "regression-compile-tmp/hal70.imp"
L_009c:;
                                                                //    586               OP = LOAD
#line 586 "regression-compile-tmp/hal70.imp"
OP = LOAD;
                                                                //    587               TYPE = REG;  VAL = VAL1
#line 587 "regression-compile-tmp/hal70.imp"
TYPE = REG;
#line 587 "regression-compile-tmp/hal70.imp"
VAL = VAL1;
                                                                //    588            %FINISH
#line 588 "regression-compile-tmp/hal70.imp"
L_00a0:;
                                                                //    589            PLANT INST(VAL1<<4+OP)
#line 589 "regression-compile-tmp/hal70.imp"
PLANTINST((((int)(((VAL1) << (4)))) + (OP)));
                                                                //    590         %FINISH
#line 590 "regression-compile-tmp/hal70.imp"
L_009a:;
                                                                //    591      %FINISH
#line 591 "regression-compile-tmp/hal70.imp"
L_0094:;
#line 591 "regression-compile-tmp/hal70.imp"
L_0092:;
                                                                //    592      COND = K
#line 592 "regression-compile-tmp/hal70.imp"
COND = K;
                                                                //    593      ->GET
#line 593 "regression-compile-tmp/hal70.imp"
goto U_1001;
                                                                //    594  
                                                                //    595  ASS(-12):                             !TEST CC
#line 595 "regression-compile-tmp/hal70.imp"
sw1_ASS_M_12:;
                                                                //    596      COND = \VAL
#line 596 "regression-compile-tmp/hal70.imp"
COND = (~(VAL));
                                                                //    597      ->GET
#line 597 "regression-compile-tmp/hal70.imp"
goto U_1001;
                                                                //    598  
                                                                //    599  ASS(-13):                             !AND,WHILE
#line 599 "regression-compile-tmp/hal70.imp"
sw1_ASS_M_13:;
                                                                //    600      %IF MODE > 0 %START
#line 600 "regression-compile-tmp/hal70.imp"
if (((MODE) <= (0))) goto L_00a1;
                                                                //    601         SET JUMP(16_1000)
#line 601 "regression-compile-tmp/hal70.imp"
SETJUMP(4096);
                                                                //    602      %finish %ELSE %START
#line 602 "regression-compile-tmp/hal70.imp"
goto L_00a2;
#line 602 "regression-compile-tmp/hal70.imp"
L_00a1:;
                                                                //    603         %RETURN %IF COND # 0;          !CONDITION FALSE
#line 603 "regression-compile-tmp/hal70.imp"
if (((COND) == (0))) goto L_00a3;
#line 603 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 603 "regression-compile-tmp/hal70.imp"
L_00a3:;
                                                                //    604      %FINISH
#line 604 "regression-compile-tmp/hal70.imp"
L_00a2:;
                                                                //    605      %RETURN %IF Q = QLIM
#line 605 "regression-compile-tmp/hal70.imp"
if (((Q) != (QLIM))) goto L_00a4;
#line 605 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 605 "regression-compile-tmp/hal70.imp"
L_00a4:;
                                                                //    606      ->NEW
#line 606 "regression-compile-tmp/hal70.imp"
goto U_1000;
                                                                //    607  
                                                                //    608  ASS(-14):                             !OR
#line 608 "regression-compile-tmp/hal70.imp"
sw1_ASS_M_14:;
                                                                //    609      %IF MODE > 0 %START
#line 609 "regression-compile-tmp/hal70.imp"
if (((MODE) <= (0))) goto L_00a5;
                                                                //    610         COND = \COND
#line 610 "regression-compile-tmp/hal70.imp"
COND = (~(COND));
                                                                //    611         SET JUMP(16_3000)
#line 611 "regression-compile-tmp/hal70.imp"
SETJUMP(12288);
                                                                //    612      %finish %ELSE %START
#line 612 "regression-compile-tmp/hal70.imp"
goto L_00a6;
#line 612 "regression-compile-tmp/hal70.imp"
L_00a5:;
                                                                //    613         %RETURN %IF COND = 0;          !CONDITION TRUE
#line 613 "regression-compile-tmp/hal70.imp"
if (((COND) != (0))) goto L_00a7;
#line 613 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 613 "regression-compile-tmp/hal70.imp"
L_00a7:;
                                                                //    614      %FINISH
#line 614 "regression-compile-tmp/hal70.imp"
L_00a6:;
                                                                //    615      ->NEW
#line 615 "regression-compile-tmp/hal70.imp"
goto U_1000;
                                                                //    616  
                                                                //    617  ASS(-15):                             !IF
#line 617 "regression-compile-tmp/hal70.imp"
sw1_ASS_M_15:;
                                                                //    618      SET JUMP(16_2000)
#line 618 "regression-compile-tmp/hal70.imp"
SETJUMP(8192);
                                                                //    619      %RETURN
#line 619 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //    620  
                                                                //    621  ASS(-16):                             !ELSE
#line 621 "regression-compile-tmp/hal70.imp"
sw1_ASS_M_16:;
                                                                //    622      COND = \0
#line 622 "regression-compile-tmp/hal70.imp"
COND = (~(0));
                                                                //    623      SET JUMP(16_4000)
#line 623 "regression-compile-tmp/hal70.imp"
SETJUMP(16384);
                                                                //    624      %RETURN
#line 624 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //    625  
                                                                //    626  ASS(-17):                             !IF AFTER ELSE
#line 626 "regression-compile-tmp/hal70.imp"
sw1_ASS_M_17:;
                                                                //    627      SET JUMP(16_6000)
#line 627 "regression-compile-tmp/hal70.imp"
SETJUMP(24576);
                                                                //    628      %RETURN
#line 628 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //    629  
                                                                //    630  ASS(-18):                             !MACCALL IF
#line 630 "regression-compile-tmp/hal70.imp"
sw1_ASS_M_18:;
                                                                //    631      SET JUMP(16_8000)
#line 631 "regression-compile-tmp/hal70.imp"
SETJUMP(32768);
                                                                //    632      %RETURN
#line 632 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //    633  
                                                                //    634  ASS(-20):                             !HASH
#line 634 "regression-compile-tmp/hal70.imp"
sw1_ASS_M_20:;
                                                                //    635      TYPE = TYPE&(UMASK+63)
#line 635 "regression-compile-tmp/hal70.imp"
TYPE = ((TYPE) & ((((int)(UMASK)) + (63))));
                                                                //    636      ->GET
#line 636 "regression-compile-tmp/hal70.imp"
goto U_1001;
                                                                //    637  
                                                                //    638  ASS(-21):                             !INDEX
#line 638 "regression-compile-tmp/hal70.imp"
sw1_ASS_M_21:;
                                                                //    639      FAULT('I') %IF TYPE1&REGXMASK # 0
#line 639 "regression-compile-tmp/hal70.imp"
if (((((TYPE1) & (REGXMASK))) == (0))) goto L_00a8;
#line 639 "regression-compile-tmp/hal70.imp"
FAULT(73);
#line 639 "regression-compile-tmp/hal70.imp"
L_00a8:;
                                                                //    640      %IF TYPE&MEMMASK # 0 %START
#line 640 "regression-compile-tmp/hal70.imp"
if (((((TYPE) & (MEMMASK))) == (0))) goto L_00a9;
                                                                //    641         %IF MODE > 0 %START
#line 641 "regression-compile-tmp/hal70.imp"
if (((MODE) <= (0))) goto L_00aa;
                                                                //    642            ZQUERY = 1
#line 642 "regression-compile-tmp/hal70.imp"
ZQUERY = 1;
                                                                //    643            LOAD TEMP
#line 643 "regression-compile-tmp/hal70.imp"
LOADTEMP();
                                                                //    644            ZQUERY = 0
#line 644 "regression-compile-tmp/hal70.imp"
ZQUERY = 0;
                                                                //    645         %finish %ELSE FAULT('A')
#line 645 "regression-compile-tmp/hal70.imp"
goto L_00ab;
#line 645 "regression-compile-tmp/hal70.imp"
L_00aa:;
#line 645 "regression-compile-tmp/hal70.imp"
FAULT(65);
#line 645 "regression-compile-tmp/hal70.imp"
L_00ab:;
                                                                //    646      %FINISH
#line 646 "regression-compile-tmp/hal70.imp"
L_00a9:;
                                                                //    647      %IF TYPE = REG %START
#line 647 "regression-compile-tmp/hal70.imp"
if (((TYPE) != (REG))) goto L_00ac;
                                                                //    648         TYPE = XMASK+VAL;  VAL = 0
#line 648 "regression-compile-tmp/hal70.imp"
TYPE = (((int)(XMASK)) + (VAL));
#line 648 "regression-compile-tmp/hal70.imp"
VAL = 0;
                                                                //    649      %FINISH
#line 649 "regression-compile-tmp/hal70.imp"
L_00ac:;
                                                                //    650      ZQUERY = 0
#line 650 "regression-compile-tmp/hal70.imp"
ZQUERY = 0;
                                                                //    651      FAULT('I') %IF TYPE1&TYPE&RELMASK # 0
#line 651 "regression-compile-tmp/hal70.imp"
if (((((((TYPE1) & (TYPE))) & (RELMASK))) == (0))) goto L_00ad;
#line 651 "regression-compile-tmp/hal70.imp"
FAULT(73);
#line 651 "regression-compile-tmp/hal70.imp"
L_00ad:;
                                                                //    652      TYPE = TYPE1!TYPE!MEMMASK;  VAL = VAL1+VAL
#line 652 "regression-compile-tmp/hal70.imp"
TYPE = ((((TYPE1) | (TYPE))) | (MEMMASK));
#line 652 "regression-compile-tmp/hal70.imp"
VAL = (((int)(VAL1)) + (VAL));
                                                                //    653      ->POP
#line 653 "regression-compile-tmp/hal70.imp"
goto U_1004;
                                                                //    654  
                                                                //    655  ASS(-22):                             !MINST SEPARATOR
#line 655 "regression-compile-tmp/hal70.imp"
sw1_ASS_M_22:;
                                                                //    656      %IF TYPE1&OPMASK = 16_7000 %START
#line 656 "regression-compile-tmp/hal70.imp"
if (((((TYPE1) & (OPMASK))) != (28672))) goto L_00ae;
                                                                //    657         %IF TYPE1&16_10 = 0 %START;    !REG-TYPE INST
#line 657 "regression-compile-tmp/hal70.imp"
if (((((TYPE1) & (16))) != (0))) goto L_00af;
                                                                //    658            FAULT('I') %IF TYPE # REG
#line 658 "regression-compile-tmp/hal70.imp"
if (((TYPE) == (REG))) goto L_00b0;
#line 658 "regression-compile-tmp/hal70.imp"
FAULT(73);
#line 658 "regression-compile-tmp/hal70.imp"
L_00b0:;
                                                                //    659         %finish %ELSE %START
#line 659 "regression-compile-tmp/hal70.imp"
goto L_00b1;
#line 659 "regression-compile-tmp/hal70.imp"
L_00af:;
                                                                //    660            VAL = \VAL %AND VAL1 = VAL1!!16_0100 %IF VAL < 0
#line 660 "regression-compile-tmp/hal70.imp"
if (((VAL) >= (0))) goto L_00b2;
#line 660 "regression-compile-tmp/hal70.imp"
VAL = (~(VAL));
#line 660 "regression-compile-tmp/hal70.imp"
VAL1 = ((VAL1) ^ (256));
#line 660 "regression-compile-tmp/hal70.imp"
L_00b2:;
                                                                //    661            FAULT('I') %IF TYPE # 0 %OR VAL > 15
#line 661 "regression-compile-tmp/hal70.imp"
if (((TYPE) != (0))) goto L_00b3;
#line 661 "regression-compile-tmp/hal70.imp"
if (((VAL) <= (15))) goto L_00b4;
#line 661 "regression-compile-tmp/hal70.imp"
L_00b3:;
#line 661 "regression-compile-tmp/hal70.imp"
FAULT(73);
#line 661 "regression-compile-tmp/hal70.imp"
L_00b4:;
                                                                //    662         %FINISH
#line 662 "regression-compile-tmp/hal70.imp"
L_00b1:;
                                                                //    663         TYPE = TYPE1+16_8000;  VAL = VAL1&16_FF0F+VAL<<4
#line 663 "regression-compile-tmp/hal70.imp"
TYPE = (((int)(TYPE1)) + (32768));
#line 663 "regression-compile-tmp/hal70.imp"
VAL = (((((VAL1) & (65295)))) + (((VAL) << (4))));
                                                                //    664      %finish %ELSE %IF TYPE1&OPMASK = 16_F000 %START
#line 664 "regression-compile-tmp/hal70.imp"
goto L_00b5;
#line 664 "regression-compile-tmp/hal70.imp"
L_00ae:;
#line 664 "regression-compile-tmp/hal70.imp"
if (((((TYPE1) & (OPMASK))) != (61440))) goto L_00b6;
                                                                //    665         PROGREF %IF VAL1&16_FC0F = 16_0003; !BAL,BTC,BFC
#line 665 "regression-compile-tmp/hal70.imp"
if (((((VAL1) & (64527))) != (3))) goto L_00b7;
#line 665 "regression-compile-tmp/hal70.imp"
PROGREF();
#line 665 "regression-compile-tmp/hal70.imp"
L_00b7:;
                                                                //    666         FORM INST(VAL1)
#line 666 "regression-compile-tmp/hal70.imp"
FORMINST(VAL1);
                                                                //    667      %finish %ELSE FAULT('I')
#line 667 "regression-compile-tmp/hal70.imp"
goto L_00b5;
#line 667 "regression-compile-tmp/hal70.imp"
L_00b6:;
#line 667 "regression-compile-tmp/hal70.imp"
FAULT(73);
#line 667 "regression-compile-tmp/hal70.imp"
L_00b5:;
                                                                //    668      ->POP
#line 668 "regression-compile-tmp/hal70.imp"
goto U_1004;
                                                                //    669  
                                                                //    670  ASS(-23):                             !MACHINE INST
#line 670 "regression-compile-tmp/hal70.imp"
sw1_ASS_M_23:;
                                                                //    671      SET JUMP(16_1000) %IF COND # 0
#line 671 "regression-compile-tmp/hal70.imp"
if (((COND) == (0))) goto L_00b8;
#line 671 "regression-compile-tmp/hal70.imp"
SETJUMP(4096);
#line 671 "regression-compile-tmp/hal70.imp"
L_00b8:;
                                                                //    672      PLANT VAL
#line 672 "regression-compile-tmp/hal70.imp"
PLANTVAL();
                                                                //    673      CREG = -1;  ATYPE = -1
#line 673 "regression-compile-tmp/hal70.imp"
CREG = (-1);
#line 673 "regression-compile-tmp/hal70.imp"
ATYPE = (-1);
                                                                //    674      %RETURN
#line 674 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //    675  
                                                                //    676  ASS(-24):                             !LOAD
#line 676 "regression-compile-tmp/hal70.imp"
sw1_ASS_M_24:;
                                                                //    677      LOAD TEMP %IF TYPE # REG
#line 677 "regression-compile-tmp/hal70.imp"
if (((TYPE) == (REG))) goto L_00b9;
#line 677 "regression-compile-tmp/hal70.imp"
LOADTEMP();
#line 677 "regression-compile-tmp/hal70.imp"
L_00b9:;
                                                                //    678      Q = QBASE
#line 678 "regression-compile-tmp/hal70.imp"
Q = QBASE;
                                                                //    679      ->GET
#line 679 "regression-compile-tmp/hal70.imp"
goto U_1001;
                                                                //    680  
                                                                //    681  ASS(-25):                             !STORE (TYPE1,VAL1 -> TYPE,VAL)
#line 681 "regression-compile-tmp/hal70.imp"
sw1_ASS_M_25:;
                                                                //    682      %IF TYPE = REG %START
#line 682 "regression-compile-tmp/hal70.imp"
if (((TYPE) != (REG))) goto L_00ba;
                                                                //    683         SWOP %AND LOAD REG(VAL1) %IF VAL1 # VAL
#line 683 "regression-compile-tmp/hal70.imp"
if (((VAL1) == (VAL))) goto L_00bb;
#line 683 "regression-compile-tmp/hal70.imp"
SWOP();
#line 683 "regression-compile-tmp/hal70.imp"
LOADREG(VAL1);
#line 683 "regression-compile-tmp/hal70.imp"
L_00bb:;
                                                                //    684      %finish %ELSE %START
#line 684 "regression-compile-tmp/hal70.imp"
goto L_00bc;
#line 684 "regression-compile-tmp/hal70.imp"
L_00ba:;
                                                                //    685         ATYPE = -1 %IF ATYPE&MEMMASK # 0
#line 685 "regression-compile-tmp/hal70.imp"
if (((((ATYPE) & (MEMMASK))) == (0))) goto L_00bd;
#line 685 "regression-compile-tmp/hal70.imp"
ATYPE = (-1);
#line 685 "regression-compile-tmp/hal70.imp"
L_00bd:;
                                                                //    686         %IF FLAG = 0 %START
#line 686 "regression-compile-tmp/hal70.imp"
if (((FLAG) != (0))) goto L_00be;
                                                                //    687            %IF VAL1 = ACC %AND ATYPE < 0 %START
#line 687 "regression-compile-tmp/hal70.imp"
if (((VAL1) != (ACC))) goto L_00bf;
#line 687 "regression-compile-tmp/hal70.imp"
if (((ATYPE) >= (0))) goto L_00bf;
                                                                //    688               K = TYPE&15
#line 688 "regression-compile-tmp/hal70.imp"
K = ((TYPE) & (15));
                                                                //    689               ATYPE = TYPE %AND AVAL = VAL %IF K = 0 %OR 1<<K&TEMPS = 0
#line 689 "regression-compile-tmp/hal70.imp"
if (((K) == (0))) goto L_003e;
#line 689 "regression-compile-tmp/hal70.imp"
if (((((((1) << (K))) & (TEMPS))) != (0))) goto L_00c0;
#line 689 "regression-compile-tmp/hal70.imp"
L_003e:;
#line 689 "regression-compile-tmp/hal70.imp"
ATYPE = TYPE;
#line 689 "regression-compile-tmp/hal70.imp"
AVAL = VAL;
#line 689 "regression-compile-tmp/hal70.imp"
L_00c0:;
                                                                //    690            %FINISH
#line 690 "regression-compile-tmp/hal70.imp"
L_00bf:;
                                                                //    691            OP = STORE;  OP = STB %IF TYPE&BMASK # 0
#line 691 "regression-compile-tmp/hal70.imp"
OP = STORE;
#line 691 "regression-compile-tmp/hal70.imp"
if (((((TYPE) & (BMASK))) == (0))) goto L_00c1;
#line 691 "regression-compile-tmp/hal70.imp"
OP = STB;
#line 691 "regression-compile-tmp/hal70.imp"
L_00c1:;
                                                                //    692         %finish %ELSE %START
#line 692 "regression-compile-tmp/hal70.imp"
goto L_00c2;
#line 692 "regression-compile-tmp/hal70.imp"
L_00be:;
                                                                //    693            CREG = 16;  CTYPE = TYPE;  CVAL = VAL
#line 693 "regression-compile-tmp/hal70.imp"
CREG = 16;
#line 693 "regression-compile-tmp/hal70.imp"
CTYPE = TYPE;
#line 693 "regression-compile-tmp/hal70.imp"
CVAL = VAL;
                                                                //    694            OP = AHM
#line 694 "regression-compile-tmp/hal70.imp"
OP = AHM;
                                                                //    695         %FINISH
#line 695 "regression-compile-tmp/hal70.imp"
L_00c2:;
                                                                //    696         PLANT INST(VAL1<<4+OP)
#line 696 "regression-compile-tmp/hal70.imp"
PLANTINST((((int)(((VAL1) << (4)))) + (OP)));
                                                                //    697      %FINISH
#line 697 "regression-compile-tmp/hal70.imp"
L_00bc:;
                                                                //    698      %RETURN
#line 698 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //    699  
                                                                //    700  ASS(-26):                             !JUMP
#line 700 "regression-compile-tmp/hal70.imp"
sw1_ASS_M_26:;
                                                                //    701      SET JUMP(16_1000) %IF INTEGER(NP)&16_F000 = 16_3000; !OR
#line 701 "regression-compile-tmp/hal70.imp"
if (((((INTEGER(NP)) & (61440))) != (12288))) goto L_00c3;
#line 701 "regression-compile-tmp/hal70.imp"
SETJUMP(4096);
#line 701 "regression-compile-tmp/hal70.imp"
L_00c3:;
                                                                //    702      %IF FLAG < 0 %START;              !REPEAT
#line 702 "regression-compile-tmp/hal70.imp"
if (((FLAG) >= (0))) goto L_00c4;
                                                                //    703         FLAG = 0
#line 703 "regression-compile-tmp/hal70.imp"
FLAG = 0;
                                                                //    704         %IF PASS = 0 %START
#line 704 "regression-compile-tmp/hal70.imp"
if (((PASS) != (0))) goto L_00c5;
                                                                //    705            K = NP;  LITVAL = LOC
#line 705 "regression-compile-tmp/hal70.imp"
K = NP;
#line 705 "regression-compile-tmp/hal70.imp"
LITVAL = LOC;
                                                                //    706            %WHILE INTEGER(K)&16_1000 # 0 %CYCLE
#line 706 "regression-compile-tmp/hal70.imp"
L_00c6:;
#line 706 "regression-compile-tmp/hal70.imp"
if (((((INTEGER(K)) & (4096))) == (0))) goto L_00c7;
                                                                //    707               K = K+2;  LITVAL = LITVAL-2
#line 707 "regression-compile-tmp/hal70.imp"
K = (((int)(K)) + (2));
#line 707 "regression-compile-tmp/hal70.imp"
LITVAL = (((int)(LITVAL)) - (2));
                                                                //    708            %REPEAT
#line 708 "regression-compile-tmp/hal70.imp"
goto L_00c6;
#line 708 "regression-compile-tmp/hal70.imp"
L_00c7:;
                                                                //    709            FLAG = 1 %IF LITVAL-VAL < 32
#line 709 "regression-compile-tmp/hal70.imp"
if ((((((int)(LITVAL)) - (VAL))) >= (32))) goto L_00c9;
#line 709 "regression-compile-tmp/hal70.imp"
FLAG = 1;
#line 709 "regression-compile-tmp/hal70.imp"
L_00c9:;
                                                                //    710         %FINISH
#line 710 "regression-compile-tmp/hal70.imp"
L_00c5:;
                                                                //    711      %FINISH
#line 711 "regression-compile-tmp/hal70.imp"
L_00c4:;
                                                                //    712      PROGREF
#line 712 "regression-compile-tmp/hal70.imp"
PROGREF();
                                                                //    713      PLANT JUMP
#line 713 "regression-compile-tmp/hal70.imp"
PLANTJUMP();
                                                                //    714      %RETURN
#line 714 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //    715  
                                                                //    716  %END;  !ASSEMBLE
#line 716 "regression-compile-tmp/hal70.imp"
return;
sw1_ASS_M_30:;
sw1_ASS_M_29:;
sw1_ASS_M_28:;
sw1_ASS_M_27:;
sw1_ASS_M_19:;
sw1_ASS_M_10:;
sw1_ASS_M_9:;
/*_imp_signal(6,3,sw1_ASS_idx,"SWITCH LABEL NOT SET - sw1_ASS");*/
fprintf(stderr, "%%SWITCH LABEL NOT SET - sw1_ASS(%d): at line %s:%d", sw1_ASS_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__));
exit(1);
} // End of block ASSEMBLE at level 2
                                                                //    717  
                                                                //    718  %ROUTINE LOOKUP(%INTEGER CONTROL)
#line 718 "regression-compile-tmp/hal70.imp"
void LOOKUP( int CONTROL )
#line 718 "regression-compile-tmp/hal70.imp"
{
                                                                //    719  !ALL DICT OPERATIONS LOCALISED HERE
                                                                //    720  !CONTROL = 0 (LOOKUP ONLY), 1 (FORWARD OK),
                                                                //    721  !          2 (REDEF), 3 (DEF),
                                                                //    722  !          4 (MACPARM), 7 (LABEL)
                                                                //    723  %INTEGER DP
#line 723 "regression-compile-tmp/hal70.imp"
int DP;
                                                                //    724      DP = DEFMIN;  DP = MP+5 %IF CONTROL = 4
#line 724 "regression-compile-tmp/hal70.imp"
DP = DEFMIN;
#line 724 "regression-compile-tmp/hal70.imp"
if (((CONTROL) != (4))) goto L_00ca;
#line 724 "regression-compile-tmp/hal70.imp"
DP = (((int)(MP)) + (5));
#line 724 "regression-compile-tmp/hal70.imp"
L_00ca:;
                                                                //    725      
                                                                //    726  {}    %WHILE INTEGER(DP) # 0 %CYCLE
#line 726 "regression-compile-tmp/hal70.imp"
L_00cb:;
#line 726 "regression-compile-tmp/hal70.imp"
if (((INTEGER(DP)) == (0))) goto L_00cc;
                                                                //    727  {}       ->YES %IF INTEGER(DP) = TAG1 %AND INTEGER(DP+1) = TAG2
#line 727 "regression-compile-tmp/hal70.imp"
if (((INTEGER(DP)) != (TAG1))) goto L_00ce;
#line 727 "regression-compile-tmp/hal70.imp"
if (((INTEGER((((int)(DP)) + (1)))) != (TAG2))) goto L_00ce;
#line 727 "regression-compile-tmp/hal70.imp"
goto U_1005;
#line 727 "regression-compile-tmp/hal70.imp"
L_00ce:;
                                                                //    728  {}       DP = DP+4
#line 728 "regression-compile-tmp/hal70.imp"
DP = (((int)(DP)) + (4));
                                                                //    729  {}    %REPEAT
#line 729 "regression-compile-tmp/hal70.imp"
goto L_00cb;
#line 729 "regression-compile-tmp/hal70.imp"
L_00cc:;
                                                                //    730  
                                                                //    731  !!%OWNINTEGER P
                                                                //    732  !!    DP = DP-4
                                                                //    733  !!REP:DP = DP+4
                                                                //    734  !!    %LAC* DP; %OPR 640;!SNA; %JMP NO
                                                                //    735  !!    %SAD TAG1; %OPR 512; %JMP REP
                                                                //    736  !!    %LAC DP; %TAD #1; %DAC P
                                                                //    737  !!    %LAC* P; %SAD TAG2; %JMP YES
                                                                //    738  !!    ->REP
                                                                //    739  !!NO:
                                                                //    740      %RETURN %IF CONTROL&1 = 0;        !NO CREATION
#line 740 "regression-compile-tmp/hal70.imp"
if (((((CONTROL) & (1))) != (0))) goto L_00cf;
#line 740 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 740 "regression-compile-tmp/hal70.imp"
L_00cf:;
                                                                //    741  NEW:DEFMIN = DEFMIN-4;  DP = DEFMIN
#line 741 "regression-compile-tmp/hal70.imp"
U_1006:;
#line 741 "regression-compile-tmp/hal70.imp"
DEFMIN = (((int)(DEFMIN)) - (4));
#line 741 "regression-compile-tmp/hal70.imp"
DP = DEFMIN;
                                                                //    742  !!    %MONITOR 21 %IF DP-QLIM <= 0
                                                                //    743      !{}%signal 2,1 %IF DP-QLIM <= 0
                                                                //    744  !!    INTEGER(DP) = TAG1;  INTEGER(DP+1) = TAG2
                                                                //    745      set INTEGER(DP, TAG1);  set INTEGER(DP+1,  TAG2)
#line 745 "regression-compile-tmp/hal70.imp"
SETINTEGER(DP, TAG1);
#line 745 "regression-compile-tmp/hal70.imp"
SETINTEGER((((int)(DP)) + (1)), TAG2);
                                                                //    746  !!SET:INTEGER(DP+2) = TYPE;  INTEGER(DP+3) = VAL
                                                                //    747  SET:set INTEGER(DP+2, TYPE);  set INTEGER(DP+3, VAL)
#line 747 "regression-compile-tmp/hal70.imp"
U_1007:;
#line 747 "regression-compile-tmp/hal70.imp"
SETINTEGER((((int)(DP)) + (2)), TYPE);
#line 747 "regression-compile-tmp/hal70.imp"
SETINTEGER((((int)(DP)) + (3)), VAL);
                                                                //    748      %RETURN
#line 748 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //    749  YES:%IF CONTROL&2 = 0 %START;         !NOT DEF CLASS
#line 749 "regression-compile-tmp/hal70.imp"
U_1005:;
#line 749 "regression-compile-tmp/hal70.imp"
if (((((CONTROL) & (2))) != (0))) goto L_00d0;
                                                                //    750         TYPE = INTEGER(DP+2);  VAL = INTEGER(DP+3)
#line 750 "regression-compile-tmp/hal70.imp"
TYPE = INTEGER((((int)(DP)) + (2)));
#line 750 "regression-compile-tmp/hal70.imp"
VAL = INTEGER((((int)(DP)) + (3)));
                                                                //    751         %RETURN
#line 751 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //    752      %FINISH
#line 752 "regression-compile-tmp/hal70.imp"
L_00d0:;
                                                                //    753      %IF CONTROL = 3 %START
#line 753 "regression-compile-tmp/hal70.imp"
if (((CONTROL) != (3))) goto L_00d1;
                                                                //    754         ->NEW %IF DP-INTEGER(BP) >= 0; !GLOBAL
#line 754 "regression-compile-tmp/hal70.imp"
if ((((((int)(DP)) - (INTEGER(BP)))) < (0))) goto L_00d2;
#line 754 "regression-compile-tmp/hal70.imp"
goto U_1006;
#line 754 "regression-compile-tmp/hal70.imp"
L_00d2:;
                                                                //    755         FAULT('D')
#line 755 "regression-compile-tmp/hal70.imp"
FAULT(68);
                                                                //    756      %FINISH
#line 756 "regression-compile-tmp/hal70.imp"
L_00d1:;
                                                                //    757      ->SET %IF CONTROL # 7
#line 757 "regression-compile-tmp/hal70.imp"
if (((CONTROL) == (7))) goto L_00d3;
#line 757 "regression-compile-tmp/hal70.imp"
goto U_1007;
#line 757 "regression-compile-tmp/hal70.imp"
L_00d3:;
                                                                //    758      %IF INTEGER(DP+2)&OPFMASK = FMASK %START
#line 758 "regression-compile-tmp/hal70.imp"
if (((((INTEGER((((int)(DP)) + (2)))) & (OPFMASK))) != (FMASK))) goto L_00d4;
                                                                //    759         VAL = INTEGER(DP+3)
#line 759 "regression-compile-tmp/hal70.imp"
VAL = INTEGER((((int)(DP)) + (3)));
                                                                //    760         %IF PASS = 0 %START
#line 760 "regression-compile-tmp/hal70.imp"
if (((PASS) != (0))) goto L_00d5;
                                                                //    761  !!          INTEGER(VAL) = LOC
                                                                //    762            set INTEGER(VAL, LOC)
#line 762 "regression-compile-tmp/hal70.imp"
SETINTEGER(VAL, LOC);
                                                                //    763         %finish %ELSE %START
#line 763 "regression-compile-tmp/hal70.imp"
goto L_00d6;
#line 763 "regression-compile-tmp/hal70.imp"
L_00d5:;
                                                                //    764            FAULT('P') %AND LOC=INTEGER(VAL) %IF INTEGER(VAL) # LOC
#line 764 "regression-compile-tmp/hal70.imp"
if (((INTEGER(VAL)) == (LOC))) goto L_00d7;
#line 764 "regression-compile-tmp/hal70.imp"
FAULT(80);
#line 764 "regression-compile-tmp/hal70.imp"
LOC = INTEGER(VAL);
#line 764 "regression-compile-tmp/hal70.imp"
L_00d7:;
                                                                //    765         %FINISH
#line 765 "regression-compile-tmp/hal70.imp"
L_00d6:;
                                                                //    766         VAL = LOC
#line 766 "regression-compile-tmp/hal70.imp"
VAL = LOC;
                                                                //    767      %finish %ELSE %START
#line 767 "regression-compile-tmp/hal70.imp"
goto L_00d8;
#line 767 "regression-compile-tmp/hal70.imp"
L_00d4:;
                                                                //    768         ->NEW %IF DP-INTEGER(BP) >= 0
#line 768 "regression-compile-tmp/hal70.imp"
if ((((((int)(DP)) - (INTEGER(BP)))) < (0))) goto L_00d9;
#line 768 "regression-compile-tmp/hal70.imp"
goto U_1006;
#line 768 "regression-compile-tmp/hal70.imp"
L_00d9:;
                                                                //    769         FAULT('D')
#line 769 "regression-compile-tmp/hal70.imp"
FAULT(68);
                                                                //    770      %FINISH
#line 770 "regression-compile-tmp/hal70.imp"
L_00d8:;
                                                                //    771      ->SET
#line 771 "regression-compile-tmp/hal70.imp"
goto U_1007;
                                                                //    772  %END
#line 772 "regression-compile-tmp/hal70.imp"
return;
} // End of block LOOKUP at level 2
                                                                //    773  
                                                                //    774  %ROUTINE TAGREF
#line 774 "regression-compile-tmp/hal70.imp"
void TAGREF( void )
#line 774 "regression-compile-tmp/hal70.imp"
{
                                                                //    775  %OWNINTEGER B=2184, W=24717
#line 775 "regression-compile-tmp/hal70.imp"
static int B = 2184;
#line 775 "regression-compile-tmp/hal70.imp"
static int W = 24717;
                                                                //    776      %IF TERM = '(' %START
#line 776 "regression-compile-tmp/hal70.imp"
if (((TERM) != (40))) goto L_00da;
                                                                //    777         TYPE = 0;  VAL = 0
#line 777 "regression-compile-tmp/hal70.imp"
TYPE = 0;
#line 777 "regression-compile-tmp/hal70.imp"
VAL = 0;
                                                                //    778         %RETURN %IF TAG1 = W
#line 778 "regression-compile-tmp/hal70.imp"
if (((TAG1) != (W))) goto L_00db;
#line 778 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 778 "regression-compile-tmp/hal70.imp"
L_00db:;
                                                                //    779         TYPE = BMASK
#line 779 "regression-compile-tmp/hal70.imp"
TYPE = BMASK;
                                                                //    780         %RETURN %IF TAG1 = B
#line 780 "regression-compile-tmp/hal70.imp"
if (((TAG1) != (B))) goto L_00dc;
#line 780 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 780 "regression-compile-tmp/hal70.imp"
L_00dc:;
                                                                //    781      %FINISH
#line 781 "regression-compile-tmp/hal70.imp"
L_00da:;
                                                                //    782      TYPE = LOCTYPE+FMASK+UMASK;  VAL = LABMIN-1
#line 782 "regression-compile-tmp/hal70.imp"
TYPE = (((int)((((int)(LOCTYPE)) + (FMASK)))) + (UMASK));
#line 782 "regression-compile-tmp/hal70.imp"
VAL = (((int)(LABMIN)) - (1));
                                                                //    783      LOOKUP(1)
#line 783 "regression-compile-tmp/hal70.imp"
LOOKUP(1);
                                                                //    784      %IF TYPE&OPFMASK = FMASK %START
#line 784 "regression-compile-tmp/hal70.imp"
if (((((TYPE) & (OPFMASK))) != (FMASK))) goto L_00dd;
                                                                //    785         %IF VAL = LABMIN-1 %START
#line 785 "regression-compile-tmp/hal70.imp"
if (((VAL) != ((((int)(LABMIN)) - (1))))) goto L_00de;
                                                                //    786  !!          LABMIN = VAL;  %MONITOR 22 %IF LABMIN = ALMAX
                                                                //    787            LABMIN = VAL;  !{}%signal 2,2 %IF LABMIN = ALMAX
#line 787 "regression-compile-tmp/hal70.imp"
LABMIN = VAL;
                                                                //    788         %FINISH
#line 788 "regression-compile-tmp/hal70.imp"
L_00de:;
                                                                //    789         %IF PASS > 0 %START
#line 789 "regression-compile-tmp/hal70.imp"
if (((PASS) <= (0))) goto L_00df;
                                                                //    790            VAL = INTEGER(VAL)
#line 790 "regression-compile-tmp/hal70.imp"
VAL = INTEGER(VAL);
                                                                //    791            FAULT('U') %IF VAL = 0
#line 791 "regression-compile-tmp/hal70.imp"
if (((VAL) != (0))) goto L_00e0;
#line 791 "regression-compile-tmp/hal70.imp"
FAULT(85);
#line 791 "regression-compile-tmp/hal70.imp"
L_00e0:;
                                                                //    792         %FINISH
#line 792 "regression-compile-tmp/hal70.imp"
L_00df:;
                                                                //    793         TYPE = TYPE-FMASK
#line 793 "regression-compile-tmp/hal70.imp"
TYPE = (((int)(TYPE)) - (FMASK));
                                                                //    794      %FINISH
#line 794 "regression-compile-tmp/hal70.imp"
L_00dd:;
                                                                //    795  %END
#line 795 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block TAGREF at level 2
                                                                //    796  
                                                                //    797  %ROUTINE GET SYM
#line 797 "regression-compile-tmp/hal70.imp"
void GETSYM( void )
#line 797 "regression-compile-tmp/hal70.imp"
{
                                                                //    798      %CYCLE
#line 798 "regression-compile-tmp/hal70.imp"
L_00e1:;
                                                                //    799         SYM = CHAR(GETPOS);  GETPOS = GETPOS+1
#line 799 "regression-compile-tmp/hal70.imp"
SYM = CHAR(GETPOS);
#line 799 "regression-compile-tmp/hal70.imp"
GETPOS = (((int)(GETPOS)) + (1));
                                                                //    800         %RETURN %IF SYM # ' '
#line 800 "regression-compile-tmp/hal70.imp"
if (((SYM) == (32))) goto L_00e4;
#line 800 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 800 "regression-compile-tmp/hal70.imp"
L_00e4:;
                                                                //    801      %REPEAT
#line 801 "regression-compile-tmp/hal70.imp"
goto L_00e1;
                                                                //    802  %END
#line 802 "regression-compile-tmp/hal70.imp"
return;
} // End of block GETSYM at level 2
                                                                //    803  
                                                                //    804  %PREDICATE S(%INTEGER K)
#line 804 "regression-compile-tmp/hal70.imp"
int /*Boolean*/ S( int K )
#line 804 "regression-compile-tmp/hal70.imp"
{
                                                                //    805      %FALSE %UNLESS K = SYM
#line 805 "regression-compile-tmp/hal70.imp"
if (((K) == (SYM))) goto L_00e2;
#line 805 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return 0;
#line 805 "regression-compile-tmp/hal70.imp"
L_00e2:;
                                                                //    806      GET SYM
#line 806 "regression-compile-tmp/hal70.imp"
GETSYM();
                                                                //    807      %TRUE
#line 807 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return 1;
                                                                //    808  %END
#line 808 "regression-compile-tmp/hal70.imp"
} // End of block S at level 2
                                                                //    809  
                                                                //    810  %PREDICATE SS(%INTEGER K)
#line 810 "regression-compile-tmp/hal70.imp"
int /*Boolean*/ SS( int K )
#line 810 "regression-compile-tmp/hal70.imp"
{
                                                                //    811      %FALSE %UNLESS K = SYM = CHAR(GETPOS)
#line 811 "regression-compile-tmp/hal70.imp"
if (({int tmp1 = K, tmp2 = SYM, tmp3 = CHAR(GETPOS); (tmp1 != tmp2) || (tmp2 == tmp3);})) goto L_00e5;
#line 811 "regression-compile-tmp/hal70.imp"
L_00e3:;
#line 811 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return 0;
#line 811 "regression-compile-tmp/hal70.imp"
L_00e5:;
                                                                //    812      GETPOS = GETPOS+1
#line 812 "regression-compile-tmp/hal70.imp"
GETPOS = (((int)(GETPOS)) + (1));
                                                                //    813      GET SYM
#line 813 "regression-compile-tmp/hal70.imp"
GETSYM();
                                                                //    814      %TRUE
#line 814 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return 1;
                                                                //    815  %END
#line 815 "regression-compile-tmp/hal70.imp"
} // End of block SS at level 2
                                                                //    816  
                                                                //    817  %PREDICATE TAG
#line 817 "regression-compile-tmp/hal70.imp"
int /*Boolean*/ TAG( void )
#line 817 "regression-compile-tmp/hal70.imp"
{
                                                                //    818  %INTEGER J,K
#line 818 "regression-compile-tmp/hal70.imp"
int J;
#line 818 "regression-compile-tmp/hal70.imp"
int K;
                                                                //    819      %ROUTINE CODE SYM
#line 819 "regression-compile-tmp/hal70.imp"
void CODESYM( void )
#line 819 "regression-compile-tmp/hal70.imp"
{
                                                                //    820         SYM = CHAR(GETPOS);  GETPOS = GETPOS+1
#line 820 "regression-compile-tmp/hal70.imp"
SYM = CHAR(GETPOS);
#line 820 "regression-compile-tmp/hal70.imp"
GETPOS = (((int)(GETPOS)) + (1));
                                                                //    821         K = SYM-'0'
#line 821 "regression-compile-tmp/hal70.imp"
K = (((int)(SYM)) - (48));
                                                                //    822         %IF K >= 0 %START
#line 822 "regression-compile-tmp/hal70.imp"
if (((K) < (0))) goto L_00e6;
                                                                //    823            TERM = -1 %AND %RETURN %IF K < 10
#line 823 "regression-compile-tmp/hal70.imp"
if (((K) >= (10))) goto L_00e7;
#line 823 "regression-compile-tmp/hal70.imp"
TERM = (-1);
#line 823 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 823 "regression-compile-tmp/hal70.imp"
L_00e7:;
                                                                //    824            K = SYM-'A'
#line 824 "regression-compile-tmp/hal70.imp"
K = (((int)(SYM)) - (65));
                                                                //    825            %RETURN %IF K >= 0 %AND K < 26 %AND TERM = 0
#line 825 "regression-compile-tmp/hal70.imp"
if (((K) < (0))) goto L_00e8;
#line 825 "regression-compile-tmp/hal70.imp"
if (((K) >= (26))) goto L_00e8;
#line 825 "regression-compile-tmp/hal70.imp"
if (((TERM) != (0))) goto L_00e8;
#line 825 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 825 "regression-compile-tmp/hal70.imp"
L_00e8:;
                                                                //    826         %FINISH
#line 826 "regression-compile-tmp/hal70.imp"
L_00e6:;
                                                                //    827         TERM = SYM
#line 827 "regression-compile-tmp/hal70.imp"
TERM = SYM;
                                                                //    828      %END
#line 828 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CODESYM at level 3
                                                                //    829      %ROUTINE PACK TRIPLE
#line 829 "regression-compile-tmp/hal70.imp"
void PACKTRIPLE( void )
#line 829 "regression-compile-tmp/hal70.imp"
{
                                                                //    830         ->T1 %IF TERM < 0
#line 830 "regression-compile-tmp/hal70.imp"
if (((TERM) >= (0))) goto L_00e9;
#line 830 "regression-compile-tmp/hal70.imp"
goto U_1008;
#line 830 "regression-compile-tmp/hal70.imp"
L_00e9:;
                                                                //    831         J = ((K<<5+K)<<1+K)<<4+K+1111; !K*1073+1111
#line 831 "regression-compile-tmp/hal70.imp"
J = (((int)((((int)((((((int)((((((int)(((K) << (5)))) + (K))) << (1)))) + (K))) << (4)))) + (K)))) + (1111));
                                                                //    832         CODE SYM
#line 832 "regression-compile-tmp/hal70.imp"
CODESYM();
                                                                //    833         ->T2 %IF TERM # 0
#line 833 "regression-compile-tmp/hal70.imp"
if (((TERM) == (0))) goto L_00ea;
#line 833 "regression-compile-tmp/hal70.imp"
goto U_1009;
#line 833 "regression-compile-tmp/hal70.imp"
L_00ea:;
                                                                //    834         J = (K<<3+K)<<2+K+111+J;       !J+K*37+111
#line 834 "regression-compile-tmp/hal70.imp"
J = (((int)((((int)((((int)((((((int)(((K) << (3)))) + (K))) << (2)))) + (K)))) + (111)))) + (J));
                                                                //    835         CODE SYM
#line 835 "regression-compile-tmp/hal70.imp"
CODESYM();
                                                                //    836         ->T3 %IF TERM # 0
#line 836 "regression-compile-tmp/hal70.imp"
if (((TERM) == (0))) goto L_00eb;
#line 836 "regression-compile-tmp/hal70.imp"
goto U_100a;
#line 836 "regression-compile-tmp/hal70.imp"
L_00eb:;
                                                                //    837         J = J+K+11
#line 837 "regression-compile-tmp/hal70.imp"
J = (((int)((((int)(J)) + (K)))) + (11));
                                                                //    838         CODE SYM
#line 838 "regression-compile-tmp/hal70.imp"
CODESYM();
                                                                //    839         %RETURN
#line 839 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //    840  T1:    J = ((K<<1+K)<<1+K)<<4-K+1;    !K*111+1
#line 840 "regression-compile-tmp/hal70.imp"
U_1008:;
#line 840 "regression-compile-tmp/hal70.imp"
J = (((int)((((int)((((((int)((((((int)(((K) << (1)))) + (K))) << (1)))) + (K))) << (4)))) - (K)))) + (1));
                                                                //    841         CODE SYM
#line 841 "regression-compile-tmp/hal70.imp"
CODESYM();
                                                                //    842  T2:    %RETURN %IF TERM > 0
#line 842 "regression-compile-tmp/hal70.imp"
U_1009:;
#line 842 "regression-compile-tmp/hal70.imp"
if (((TERM) <= (0))) goto L_00ec;
#line 842 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 842 "regression-compile-tmp/hal70.imp"
L_00ec:;
                                                                //    843         J = (K<<2+K)<<1+K+1+J;         !J+K*11+1
#line 843 "regression-compile-tmp/hal70.imp"
J = (((int)((((int)((((int)((((((int)(((K) << (2)))) + (K))) << (1)))) + (K)))) + (1)))) + (J));
                                                                //    844         CODE SYM
#line 844 "regression-compile-tmp/hal70.imp"
CODESYM();
                                                                //    845  T3:    %RETURN %IF TERM > 0
#line 845 "regression-compile-tmp/hal70.imp"
U_100a:;
#line 845 "regression-compile-tmp/hal70.imp"
if (((TERM) <= (0))) goto L_00ed;
#line 845 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 845 "regression-compile-tmp/hal70.imp"
L_00ed:;
                                                                //    846         J = J+K+1
#line 846 "regression-compile-tmp/hal70.imp"
J = (((int)((((int)(J)) + (K)))) + (1));
                                                                //    847         CODE SYM
#line 847 "regression-compile-tmp/hal70.imp"
CODESYM();
                                                                //    848      %END
#line 848 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PACKTRIPLE at level 3
                                                                //    849      K = SYM-'A'
#line 849 "regression-compile-tmp/hal70.imp"
K = (((int)(SYM)) - (65));
                                                                //    850      %FALSE %UNLESS K >= 0 %AND K < 26
#line 850 "regression-compile-tmp/hal70.imp"
if (((K) < (0))) goto L_00ee;
#line 850 "regression-compile-tmp/hal70.imp"
if (((K) < (26))) goto L_00ef;
#line 850 "regression-compile-tmp/hal70.imp"
L_00ee:;
#line 850 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return 0;
#line 850 "regression-compile-tmp/hal70.imp"
L_00ef:;
                                                                //    851      %FALSE %IF SYM = 'X' %AND CHAR(GETPOS)&128 # 0
#line 851 "regression-compile-tmp/hal70.imp"
if (((SYM) != (88))) goto L_00f0;
#line 851 "regression-compile-tmp/hal70.imp"
if (((((CHAR(GETPOS)) & (128))) == (0))) goto L_00f0;
#line 851 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return 0;
#line 851 "regression-compile-tmp/hal70.imp"
L_00f0:;
                                                                //    852      TERM = 0
#line 852 "regression-compile-tmp/hal70.imp"
TERM = 0;
                                                                //    853      PACK TRIPLE
#line 853 "regression-compile-tmp/hal70.imp"
PACKTRIPLE();
                                                                //    854      TAG1 = J
#line 854 "regression-compile-tmp/hal70.imp"
TAG1 = J;
                                                                //    855      %CYCLE
#line 855 "regression-compile-tmp/hal70.imp"
L_00f1:;
                                                                //    856         J = 0
#line 856 "regression-compile-tmp/hal70.imp"
J = 0;
                                                                //    857         PACK TRIPLE %IF TERM <= 0
#line 857 "regression-compile-tmp/hal70.imp"
if (((TERM) > (0))) goto L_00f4;
#line 857 "regression-compile-tmp/hal70.imp"
PACKTRIPLE();
#line 857 "regression-compile-tmp/hal70.imp"
L_00f4:;
                                                                //    858         TAG2 = J
#line 858 "regression-compile-tmp/hal70.imp"
TAG2 = J;
                                                                //    859         CODE SYM %WHILE TERM <= 0
#line 859 "regression-compile-tmp/hal70.imp"
L_00f5:;
#line 859 "regression-compile-tmp/hal70.imp"
if (((TERM) > (0))) goto L_00f6;
#line 859 "regression-compile-tmp/hal70.imp"
CODESYM();
#line 859 "regression-compile-tmp/hal70.imp"
goto L_00f5;
#line 859 "regression-compile-tmp/hal70.imp"
L_00f6:;
                                                                //    860         %EXIT %UNLESS TERM = QQ
#line 860 "regression-compile-tmp/hal70.imp"
if (((TERM) == (QQ))) goto L_00f8;
#line 860 "regression-compile-tmp/hal70.imp"
goto L_00f2;
#line 860 "regression-compile-tmp/hal70.imp"
L_00f8:;
                                                                //    861         TYPE = 1;  LOOKUP(0)
#line 861 "regression-compile-tmp/hal70.imp"
TYPE = 1;
#line 861 "regression-compile-tmp/hal70.imp"
LOOKUP(0);
                                                                //    862         FAULT('U') %IF TYPE # 0
#line 862 "regression-compile-tmp/hal70.imp"
if (((TYPE) == (0))) goto L_00f9;
#line 862 "regression-compile-tmp/hal70.imp"
FAULT(85);
#line 862 "regression-compile-tmp/hal70.imp"
L_00f9:;
                                                                //    863         TAG1 = VAL
#line 863 "regression-compile-tmp/hal70.imp"
TAG1 = VAL;
                                                                //    864         TERM = 0;  CODE SYM
#line 864 "regression-compile-tmp/hal70.imp"
TERM = 0;
#line 864 "regression-compile-tmp/hal70.imp"
CODESYM();
                                                                //    865      %REPEAT
#line 865 "regression-compile-tmp/hal70.imp"
goto L_00f1;
#line 865 "regression-compile-tmp/hal70.imp"
L_00f2:;
                                                                //    866      GET SYM %IF TERM = ' '
#line 866 "regression-compile-tmp/hal70.imp"
if (((TERM) != (32))) goto L_00fa;
#line 866 "regression-compile-tmp/hal70.imp"
GETSYM();
#line 866 "regression-compile-tmp/hal70.imp"
L_00fa:;
                                                                //    867      %TRUE
#line 867 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return 1;
                                                                //    868  %END
#line 868 "regression-compile-tmp/hal70.imp"
} // End of block TAG at level 2
                                                                //    869  
                                                                //    870  %PREDICATE TAGIF
#line 870 "regression-compile-tmp/hal70.imp"
int /*Boolean*/ TAGIF( void )
#line 870 "regression-compile-tmp/hal70.imp"
{
                                                                //    871      %FALSE %UNLESS SYM='I' %AND CHAR(GETPOS)='F' %AND CHAR(GETPOS+1)=' '
#line 871 "regression-compile-tmp/hal70.imp"
if (((SYM) != (73))) goto L_00f3;
#line 871 "regression-compile-tmp/hal70.imp"
if (((CHAR(GETPOS)) != (70))) goto L_00f3;
#line 871 "regression-compile-tmp/hal70.imp"
if (((CHAR((((int)(GETPOS)) + (1)))) == (32))) goto L_00fb;
#line 871 "regression-compile-tmp/hal70.imp"
L_00f3:;
#line 871 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return 0;
#line 871 "regression-compile-tmp/hal70.imp"
L_00fb:;
                                                                //    872      GETPOS = GETPOS+2
#line 872 "regression-compile-tmp/hal70.imp"
GETPOS = (((int)(GETPOS)) + (2));
                                                                //    873      GET SYM
#line 873 "regression-compile-tmp/hal70.imp"
GETSYM();
                                                                //    874      %TRUE
#line 874 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return 1;
                                                                //    875  %END
#line 875 "regression-compile-tmp/hal70.imp"
} // End of block TAGIF at level 2
                                                                //    876  
                                                                //    877  %ROUTINE QUEUE(%INTEGER K)
#line 877 "regression-compile-tmp/hal70.imp"
void QUEUE( int K )
#line 877 "regression-compile-tmp/hal70.imp"
{
                                                                //    878  !!    INTEGER(QLIM) = K
                                                                //    879      set INTEGER(QLIM, K)
#line 879 "regression-compile-tmp/hal70.imp"
SETINTEGER(QLIM, K);
                                                                //    880  !!    QLIM = QLIM+1;  %MONITOR 21 %IF QLIM = DEFMIN
                                                                //    881      QLIM = QLIM+1;  !{}%signal 2,1 %IF QLIM = DEFMIN
#line 881 "regression-compile-tmp/hal70.imp"
QLIM = (((int)(QLIM)) + (1));
                                                                //    882  %END
#line 882 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block QUEUE at level 2
                                                                //    883  
                                                                //    884  %ROUTINE GET EXP
#line 884 "regression-compile-tmp/hal70.imp"
void GETEXP( void )
#line 884 "regression-compile-tmp/hal70.imp"
{
                                                                //    885  %INTEGER I,NBASE
#line 885 "regression-compile-tmp/hal70.imp"
int I;
#line 885 "regression-compile-tmp/hal70.imp"
int NBASE;
                                                                //    886  
                                                                //    887      NBASE = NP
#line 887 "regression-compile-tmp/hal70.imp"
NBASE = NP;
                                                                //    888      ->E3 %IF PEND # 0
#line 888 "regression-compile-tmp/hal70.imp"
if (((PEND) == (0))) goto L_00fc;
#line 888 "regression-compile-tmp/hal70.imp"
goto U_1009;
#line 888 "regression-compile-tmp/hal70.imp"
L_00fc:;
                                                                //    889  E1: NEST(0) %WHILE S('(')
#line 889 "regression-compile-tmp/hal70.imp"
U_100a:;
#line 889 "regression-compile-tmp/hal70.imp"
L_00fd:;
#line 889 "regression-compile-tmp/hal70.imp"
if (!(S(40))) goto L_00fe;
#line 889 "regression-compile-tmp/hal70.imp"
NEST(0);
#line 889 "regression-compile-tmp/hal70.imp"
goto L_00fd;
#line 889 "regression-compile-tmp/hal70.imp"
L_00fe:;
                                                                //    890      NEST(-20) %IF S('#')
#line 890 "regression-compile-tmp/hal70.imp"
if (!(S(35))) goto L_0100;
#line 890 "regression-compile-tmp/hal70.imp"
NEST((-20));
#line 890 "regression-compile-tmp/hal70.imp"
L_0100:;
                                                                //    891      %IF TAG %START
#line 891 "regression-compile-tmp/hal70.imp"
if (!(TAG())) goto L_0101;
                                                                //    892  E3:    TAGREF %IF PEND >= 0
#line 892 "regression-compile-tmp/hal70.imp"
U_1009:;
#line 892 "regression-compile-tmp/hal70.imp"
if (((PEND) < (0))) goto L_0102;
#line 892 "regression-compile-tmp/hal70.imp"
TAGREF();
#line 892 "regression-compile-tmp/hal70.imp"
L_0102:;
                                                                //    893         PEND = 0
#line 893 "regression-compile-tmp/hal70.imp"
PEND = 0;
                                                                //    894         %IF TYPE = REG %AND TERM = '(' %START
#line 894 "regression-compile-tmp/hal70.imp"
if (((TYPE) != (REG))) goto L_0103;
#line 894 "regression-compile-tmp/hal70.imp"
if (((TERM) != (40))) goto L_0103;
                                                                //    895            TYPE = 0 %IF SAVE&1 = 0;  VAL = VAL+VAL+SAVE
#line 895 "regression-compile-tmp/hal70.imp"
if (((((SAVE) & (1))) != (0))) goto L_0104;
#line 895 "regression-compile-tmp/hal70.imp"
TYPE = 0;
#line 895 "regression-compile-tmp/hal70.imp"
L_0104:;
#line 895 "regression-compile-tmp/hal70.imp"
VAL = (((int)((((int)(VAL)) + (VAL)))) + (SAVE));
                                                                //    896         %FINISH
#line 896 "regression-compile-tmp/hal70.imp"
L_0103:;
                                                                //    897         FAULT('I') %AND TYPE=0 %IF TYPE&OPMASK # 0
#line 897 "regression-compile-tmp/hal70.imp"
if (((((TYPE) & (OPMASK))) == (0))) goto L_0105;
#line 897 "regression-compile-tmp/hal70.imp"
FAULT(73);
#line 897 "regression-compile-tmp/hal70.imp"
TYPE = 0;
#line 897 "regression-compile-tmp/hal70.imp"
L_0105:;
                                                                //    898         %IF MODE # 0 %START
#line 898 "regression-compile-tmp/hal70.imp"
if (((MODE) == (0))) goto L_0106;
                                                                //    899            %IF TYPE&REGXMASK # 0 %START
#line 899 "regression-compile-tmp/hal70.imp"
if (((((TYPE) & (REGXMASK))) == (0))) goto L_0107;
                                                                //    900               I = TYPE&15;  I = VAL %IF I = 0
#line 900 "regression-compile-tmp/hal70.imp"
I = ((TYPE) & (15));
#line 900 "regression-compile-tmp/hal70.imp"
if (((I) != (0))) goto L_0108;
#line 900 "regression-compile-tmp/hal70.imp"
I = VAL;
#line 900 "regression-compile-tmp/hal70.imp"
L_0108:;
                                                                //    901               DUSE = DUSE+1 %IF I = DREG
#line 901 "regression-compile-tmp/hal70.imp"
if (((I) != (DREG))) goto L_0109;
#line 901 "regression-compile-tmp/hal70.imp"
DUSE = (((int)(DUSE)) + (1));
#line 901 "regression-compile-tmp/hal70.imp"
L_0109:;
                                                                //    902            %FINISH
#line 902 "regression-compile-tmp/hal70.imp"
L_0107:;
                                                                //    903         %FINISH
#line 903 "regression-compile-tmp/hal70.imp"
L_0106:;
                                                                //    904         %IF TERM = '(' %START
#line 904 "regression-compile-tmp/hal70.imp"
if (((TERM) != (40))) goto L_010a;
                                                                //    905            GET SYM
#line 905 "regression-compile-tmp/hal70.imp"
GETSYM();
                                                                //    906            I = TYPE&31
#line 906 "regression-compile-tmp/hal70.imp"
I = ((TYPE) & (31));
                                                                //    907            QUEUE(TYPE-I);  QUEUE(VAL)
#line 907 "regression-compile-tmp/hal70.imp"
QUEUE((((int)(TYPE)) - (I)));
#line 907 "regression-compile-tmp/hal70.imp"
QUEUE(VAL);
                                                                //    908            NEST(-21);  NEST(0)
#line 908 "regression-compile-tmp/hal70.imp"
NEST((-21));
#line 908 "regression-compile-tmp/hal70.imp"
NEST(0);
                                                                //    909            %IF I # 0 %START
#line 909 "regression-compile-tmp/hal70.imp"
if (((I) == (0))) goto L_010b;
                                                                //    910               QUEUE(REG);  QUEUE(I&15)
#line 910 "regression-compile-tmp/hal70.imp"
QUEUE(REG);
#line 910 "regression-compile-tmp/hal70.imp"
QUEUE(((I) & (15)));
                                                                //    911               NEST(-1)
#line 911 "regression-compile-tmp/hal70.imp"
NEST((-1));
                                                                //    912            %FINISH
#line 912 "regression-compile-tmp/hal70.imp"
L_010b:;
                                                                //    913            ->E1
#line 913 "regression-compile-tmp/hal70.imp"
goto U_100a;
                                                                //    914         %FINISH
#line 914 "regression-compile-tmp/hal70.imp"
L_010a:;
                                                                //    915      %finish %ELSE %IF '0' <= SYM <= '9' %START
#line 915 "regression-compile-tmp/hal70.imp"
goto L_010c;
#line 915 "regression-compile-tmp/hal70.imp"
L_0101:;
#line 915 "regression-compile-tmp/hal70.imp"
if ((((48) > (SYM))) || (((SYM) > (57)))) goto L_010d;
                                                                //    916         TYPE = 0;  VAL = SYM-'0'
#line 916 "regression-compile-tmp/hal70.imp"
TYPE = 0;
#line 916 "regression-compile-tmp/hal70.imp"
VAL = (((int)(SYM)) - (48));
                                                                //    917         %CYCLE
#line 917 "regression-compile-tmp/hal70.imp"
L_010e:;
                                                                //    918            SYM = CHAR(GETPOS)-'0'
#line 918 "regression-compile-tmp/hal70.imp"
SYM = (((int)(CHAR(GETPOS))) - (48));
                                                                //    919            %EXIT %UNLESS 0 <= SYM <= 9
#line 919 "regression-compile-tmp/hal70.imp"
if ((((0) > (SYM))) || (((SYM) <= (9)))) goto L_0111;
#line 919 "regression-compile-tmp/hal70.imp"
L_00c8:;
#line 919 "regression-compile-tmp/hal70.imp"
goto L_010f;
#line 919 "regression-compile-tmp/hal70.imp"
L_0111:;
                                                                //    920            VAL = (VAL<<2+VAL)<<1+SYM
#line 920 "regression-compile-tmp/hal70.imp"
VAL = (((int)((((((int)(((VAL) << (2)))) + (VAL))) << (1)))) + (SYM));
                                                                //    921            GETPOS = GETPOS+1
#line 921 "regression-compile-tmp/hal70.imp"
GETPOS = (((int)(GETPOS)) + (1));
                                                                //    922         %REPEAT
#line 922 "regression-compile-tmp/hal70.imp"
goto L_010e;
#line 922 "regression-compile-tmp/hal70.imp"
L_010f:;
                                                                //    923         GET SYM
#line 923 "regression-compile-tmp/hal70.imp"
GETSYM();
                                                                //    924      %finish %ELSE %IF SYM = 'X' %START
#line 924 "regression-compile-tmp/hal70.imp"
goto L_010c;
#line 924 "regression-compile-tmp/hal70.imp"
L_010d:;
#line 924 "regression-compile-tmp/hal70.imp"
if (((SYM) != (88))) goto L_0112;
                                                                //    925         TYPE = 0;  VAL = 0
#line 925 "regression-compile-tmp/hal70.imp"
TYPE = 0;
#line 925 "regression-compile-tmp/hal70.imp"
VAL = 0;
                                                                //    926         %CYCLE
#line 926 "regression-compile-tmp/hal70.imp"
L_0113:;
                                                                //    927            SYM = CHAR(GETPOS)-128
#line 927 "regression-compile-tmp/hal70.imp"
SYM = (((int)(CHAR(GETPOS))) - (128));
                                                                //    928            %EXIT %IF SYM < 0
#line 928 "regression-compile-tmp/hal70.imp"
if (((SYM) >= (0))) goto L_0116;
#line 928 "regression-compile-tmp/hal70.imp"
goto L_0114;
#line 928 "regression-compile-tmp/hal70.imp"
L_0116:;
                                                                //    929            SYM = SYM-32 %IF SYM >= 96; !ENSURE UPPER-CASE
#line 929 "regression-compile-tmp/hal70.imp"
if (((SYM) < (96))) goto L_0117;
#line 929 "regression-compile-tmp/hal70.imp"
SYM = (((int)(SYM)) - (32));
#line 929 "regression-compile-tmp/hal70.imp"
L_0117:;
                                                                //    930            %IF '0' <= SYM <= '9' %OR 'A' <= SYM <= 'F' %START
#line 930 "regression-compile-tmp/hal70.imp"
if ((((48) > (SYM))) || (((SYM) <= (57)))) goto L_0119;
#line 930 "regression-compile-tmp/hal70.imp"
L_0118:;
#line 930 "regression-compile-tmp/hal70.imp"
if ((((65) > (SYM))) || (((SYM) > (70)))) goto L_011a;
#line 930 "regression-compile-tmp/hal70.imp"
L_0119:;
                                                                //    931               VAL = VAL<<4+SYM-'0'
#line 931 "regression-compile-tmp/hal70.imp"
VAL = (((int)((((int)(((VAL) << (4)))) + (SYM)))) - (48));
                                                                //    932               VAL = VAL-7 %IF SYM >= 'A'
#line 932 "regression-compile-tmp/hal70.imp"
if (((SYM) < (65))) goto L_011b;
#line 932 "regression-compile-tmp/hal70.imp"
VAL = (((int)(VAL)) - (7));
#line 932 "regression-compile-tmp/hal70.imp"
L_011b:;
                                                                //    933            %finish %ELSE FAULT('H')
#line 933 "regression-compile-tmp/hal70.imp"
goto L_011c;
#line 933 "regression-compile-tmp/hal70.imp"
L_011a:;
#line 933 "regression-compile-tmp/hal70.imp"
FAULT(72);
#line 933 "regression-compile-tmp/hal70.imp"
L_011c:;
                                                                //    934            GETPOS = GETPOS+1
#line 934 "regression-compile-tmp/hal70.imp"
GETPOS = (((int)(GETPOS)) + (1));
                                                                //    935         %REPEAT
#line 935 "regression-compile-tmp/hal70.imp"
goto L_0113;
#line 935 "regression-compile-tmp/hal70.imp"
L_0114:;
                                                                //    936         GET SYM
#line 936 "regression-compile-tmp/hal70.imp"
GETSYM();
                                                                //    937      %finish %ELSE %IF SYM&128 # 0 %START
#line 937 "regression-compile-tmp/hal70.imp"
goto L_010c;
#line 937 "regression-compile-tmp/hal70.imp"
L_0112:;
#line 937 "regression-compile-tmp/hal70.imp"
if (((((SYM) & (128))) == (0))) goto L_011d;
                                                                //    938         TYPE = 0;  VAL = SYM-128
#line 938 "regression-compile-tmp/hal70.imp"
TYPE = 0;
#line 938 "regression-compile-tmp/hal70.imp"
VAL = (((int)(SYM)) - (128));
                                                                //    939         GET SYM
#line 939 "regression-compile-tmp/hal70.imp"
GETSYM();
                                                                //    940         %IF MODE >= 0 %AND SYM&128 # 0 %START
#line 940 "regression-compile-tmp/hal70.imp"
if (((MODE) < (0))) goto L_011e;
#line 940 "regression-compile-tmp/hal70.imp"
if (((((SYM) & (128))) == (0))) goto L_011e;
                                                                //    941            VAL = VAL<<8+SYM-128;  GET SYM
#line 941 "regression-compile-tmp/hal70.imp"
VAL = (((int)((((int)(((VAL) << (8)))) + (SYM)))) - (128));
#line 941 "regression-compile-tmp/hal70.imp"
GETSYM();
                                                                //    942         %FINISH
#line 942 "regression-compile-tmp/hal70.imp"
L_011e:;
                                                                //    943      %finish %ELSE %IF S('.') %START
#line 943 "regression-compile-tmp/hal70.imp"
goto L_010c;
#line 943 "regression-compile-tmp/hal70.imp"
L_011d:;
#line 943 "regression-compile-tmp/hal70.imp"
if (!(S(46))) goto L_011f;
                                                                //    944         ->ERR %IF %NOT TAG
#line 944 "regression-compile-tmp/hal70.imp"
if (TAG()) goto L_0120;
#line 944 "regression-compile-tmp/hal70.imp"
goto U_100b;
#line 944 "regression-compile-tmp/hal70.imp"
L_0120:;
                                                                //    945         TYPE = 0;  VAL = TAG1
#line 945 "regression-compile-tmp/hal70.imp"
TYPE = 0;
#line 945 "regression-compile-tmp/hal70.imp"
VAL = TAG1;
                                                                //    946      %finish %ELSE %IF S('*') %START
#line 946 "regression-compile-tmp/hal70.imp"
goto L_010c;
#line 946 "regression-compile-tmp/hal70.imp"
L_011f:;
#line 946 "regression-compile-tmp/hal70.imp"
if (!(S(42))) goto L_0121;
                                                                //    947         TYPE = LOCTYPE&63;  VAL = LOC
#line 947 "regression-compile-tmp/hal70.imp"
TYPE = ((LOCTYPE) & (63));
#line 947 "regression-compile-tmp/hal70.imp"
VAL = LOC;
                                                                //    948         %IF SYM = 'L' %START;          !FOR NOW
#line 948 "regression-compile-tmp/hal70.imp"
if (((SYM) != (76))) goto L_0122;
                                                                //    949            TYPE = 0;  VAL = LIST %IF TAG
#line 949 "regression-compile-tmp/hal70.imp"
TYPE = 0;
#line 949 "regression-compile-tmp/hal70.imp"
if (!(TAG())) goto L_0123;
#line 949 "regression-compile-tmp/hal70.imp"
VAL = LIST;
#line 949 "regression-compile-tmp/hal70.imp"
L_0123:;
                                                                //    950         %FINISH
#line 950 "regression-compile-tmp/hal70.imp"
L_0122:;
                                                                //    951      %finish %ELSE %IF SYM = '-' %START
#line 951 "regression-compile-tmp/hal70.imp"
goto L_010c;
#line 951 "regression-compile-tmp/hal70.imp"
L_0121:;
#line 951 "regression-compile-tmp/hal70.imp"
if (((SYM) != (45))) goto L_0124;
                                                                //    952         TYPE = 0;  VAL = 0
#line 952 "regression-compile-tmp/hal70.imp"
TYPE = 0;
#line 952 "regression-compile-tmp/hal70.imp"
VAL = 0;
                                                                //    953      %finish %ELSE %IF SYM = '\' %START
#line 953 "regression-compile-tmp/hal70.imp"
goto L_010c;
#line 953 "regression-compile-tmp/hal70.imp"
L_0124:;
#line 953 "regression-compile-tmp/hal70.imp"
if (((SYM) != (92))) goto L_0125;
                                                                //    954         TYPE = 0;  VAL = \0
#line 954 "regression-compile-tmp/hal70.imp"
TYPE = 0;
#line 954 "regression-compile-tmp/hal70.imp"
VAL = (~(0));
                                                                //    955      %finish %ELSE ->ERR
#line 955 "regression-compile-tmp/hal70.imp"
goto L_010c;
#line 955 "regression-compile-tmp/hal70.imp"
L_0125:;
#line 955 "regression-compile-tmp/hal70.imp"
goto U_100b;
#line 955 "regression-compile-tmp/hal70.imp"
L_010c:;
                                                                //    956      QUEUE(TYPE);  QUEUE(VAL)
#line 956 "regression-compile-tmp/hal70.imp"
QUEUE(TYPE);
#line 956 "regression-compile-tmp/hal70.imp"
QUEUE(VAL);
                                                                //    957  
                                                                //    958      %WHILE NP # NBASE %CYCLE
#line 958 "regression-compile-tmp/hal70.imp"
L_0126:;
#line 958 "regression-compile-tmp/hal70.imp"
if (((NP) == (NBASE))) goto L_0127;
                                                                //    959         %IF INTEGER(NP) < 0 %START
#line 959 "regression-compile-tmp/hal70.imp"
if (((INTEGER(NP)) >= (0))) goto L_0129;
                                                                //    960            QUEUE(INTEGER(NP))
#line 960 "regression-compile-tmp/hal70.imp"
QUEUE(INTEGER(NP));
                                                                //    961         %finish %ELSE %START
#line 961 "regression-compile-tmp/hal70.imp"
goto L_012a;
#line 961 "regression-compile-tmp/hal70.imp"
L_0129:;
                                                                //    962            %EXIT %IF %NOT S(')')
#line 962 "regression-compile-tmp/hal70.imp"
if (S(41)) goto L_012b;
#line 962 "regression-compile-tmp/hal70.imp"
goto L_0127;
#line 962 "regression-compile-tmp/hal70.imp"
L_012b:;
                                                                //    963         %FINISH
#line 963 "regression-compile-tmp/hal70.imp"
L_012a:;
                                                                //    964         NP = NP+1
#line 964 "regression-compile-tmp/hal70.imp"
NP = (((int)(NP)) + (1));
                                                                //    965      %REPEAT
#line 965 "regression-compile-tmp/hal70.imp"
goto L_0126;
#line 965 "regression-compile-tmp/hal70.imp"
L_0127:;
                                                                //    966  
                                                                //    967      I = 1
#line 967 "regression-compile-tmp/hal70.imp"
I = 1;
                                                                //    968      NEST(-1) %AND ->E8 %IF S('+')
#line 968 "regression-compile-tmp/hal70.imp"
if (!(S(43))) goto L_012c;
#line 968 "regression-compile-tmp/hal70.imp"
NEST((-1));
#line 968 "regression-compile-tmp/hal70.imp"
goto U_100c;
#line 968 "regression-compile-tmp/hal70.imp"
L_012c:;
                                                                //    969      NEST(-2) %AND ->E8 %IF S('-')
#line 969 "regression-compile-tmp/hal70.imp"
if (!(S(45))) goto L_012d;
#line 969 "regression-compile-tmp/hal70.imp"
NEST((-2));
#line 969 "regression-compile-tmp/hal70.imp"
goto U_100c;
#line 969 "regression-compile-tmp/hal70.imp"
L_012d:;
                                                                //    970      NEST(-3) %AND ->E9 %IF S('&')
#line 970 "regression-compile-tmp/hal70.imp"
if (!(S(38))) goto L_012e;
#line 970 "regression-compile-tmp/hal70.imp"
NEST((-3));
#line 970 "regression-compile-tmp/hal70.imp"
goto U_100d;
#line 970 "regression-compile-tmp/hal70.imp"
L_012e:;
                                                                //    971      NEST(-4) %AND ->E9 %IF S('!')
#line 971 "regression-compile-tmp/hal70.imp"
if (!(S(33))) goto L_012f;
#line 971 "regression-compile-tmp/hal70.imp"
NEST((-4));
#line 971 "regression-compile-tmp/hal70.imp"
goto U_100d;
#line 971 "regression-compile-tmp/hal70.imp"
L_012f:;
                                                                //    972      NEST(-5) %AND ->E9 %IF S('\')
#line 972 "regression-compile-tmp/hal70.imp"
if (!(S(92))) goto L_0130;
#line 972 "regression-compile-tmp/hal70.imp"
NEST((-5));
#line 972 "regression-compile-tmp/hal70.imp"
goto U_100d;
#line 972 "regression-compile-tmp/hal70.imp"
L_0130:;
                                                                //    973      NEST(-6) %AND ->E9 %IF SS('<')
#line 973 "regression-compile-tmp/hal70.imp"
if (!(SS(60))) goto L_0131;
#line 973 "regression-compile-tmp/hal70.imp"
NEST((-6));
#line 973 "regression-compile-tmp/hal70.imp"
goto U_100d;
#line 973 "regression-compile-tmp/hal70.imp"
L_0131:;
                                                                //    974      NEST(-7) %AND ->E9 %IF SS('>')
#line 974 "regression-compile-tmp/hal70.imp"
if (!(SS(62))) goto L_0132;
#line 974 "regression-compile-tmp/hal70.imp"
NEST((-7));
#line 974 "regression-compile-tmp/hal70.imp"
goto U_100d;
#line 974 "regression-compile-tmp/hal70.imp"
L_0132:;
                                                                //    975      NEST(-8) %AND ->E9 %IF S('_')
#line 975 "regression-compile-tmp/hal70.imp"
if (!(S(95))) goto L_0133;
#line 975 "regression-compile-tmp/hal70.imp"
NEST((-8));
#line 975 "regression-compile-tmp/hal70.imp"
goto U_100d;
#line 975 "regression-compile-tmp/hal70.imp"
L_0133:;
                                                                //    976      %RETURN %IF NP = NBASE
#line 976 "regression-compile-tmp/hal70.imp"
if (((NP) != (NBASE))) goto L_0134;
#line 976 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 976 "regression-compile-tmp/hal70.imp"
L_0134:;
                                                                //    977  ERR:NP = NBASE
#line 977 "regression-compile-tmp/hal70.imp"
U_100b:;
#line 977 "regression-compile-tmp/hal70.imp"
NP = NBASE;
                                                                //    978  !!    %MONITOR 19
                                                                //    979  
                                                                //    980  E8: I = 0
#line 980 "regression-compile-tmp/hal70.imp"
U_100c:;
#line 980 "regression-compile-tmp/hal70.imp"
I = 0;
                                                                //    981  E9: ->E1 %UNLESS MODE = 2 %AND NP+1 = NBASE
#line 981 "regression-compile-tmp/hal70.imp"
U_100d:;
#line 981 "regression-compile-tmp/hal70.imp"
if (((MODE) != (2))) goto L_0128;
#line 981 "regression-compile-tmp/hal70.imp"
if ((((((int)(NP)) + (1))) == (NBASE))) goto L_0135;
#line 981 "regression-compile-tmp/hal70.imp"
L_0128:;
#line 981 "regression-compile-tmp/hal70.imp"
goto U_100a;
#line 981 "regression-compile-tmp/hal70.imp"
L_0135:;
                                                                //    982      %IF FLAG = I %THEN FLAG = QLIM %ELSE FLAG = -1
#line 982 "regression-compile-tmp/hal70.imp"
if (((FLAG) != (I))) goto L_0136;
#line 982 "regression-compile-tmp/hal70.imp"
FLAG = QLIM;
#line 982 "regression-compile-tmp/hal70.imp"
goto L_0137;
#line 982 "regression-compile-tmp/hal70.imp"
L_0136:;
#line 982 "regression-compile-tmp/hal70.imp"
FLAG = (-1);
#line 982 "regression-compile-tmp/hal70.imp"
L_0137:;
                                                                //    983      ->E1
#line 983 "regression-compile-tmp/hal70.imp"
goto U_100a;
                                                                //    984  %END
#line 984 "regression-compile-tmp/hal70.imp"
return;
} // End of block GETEXP at level 2
                                                                //    985  
                                                                //    986  %ROUTINE CONDIT(%INTEGER QVAL)
#line 986 "regression-compile-tmp/hal70.imp"
void CONDIT( int QVAL )
#line 986 "regression-compile-tmp/hal70.imp"
{
                                                                //    987  %OWNINTEGER AND=1717, OR=16873
#line 987 "regression-compile-tmp/hal70.imp"
static int AND = 1717;
#line 987 "regression-compile-tmp/hal70.imp"
static int OR = 16873;
                                                                //    988  %INTEGER J,K
#line 988 "regression-compile-tmp/hal70.imp"
int J;
#line 988 "regression-compile-tmp/hal70.imp"
int K;
                                                                //    989      TRANSF = QSTART;  QSTART = QLIM
#line 989 "regression-compile-tmp/hal70.imp"
TRANSF = QSTART;
#line 989 "regression-compile-tmp/hal70.imp"
QSTART = QLIM;
                                                                //    990      J = 0
#line 990 "regression-compile-tmp/hal70.imp"
J = 0;
                                                                //    991      %CYCLE
#line 991 "regression-compile-tmp/hal70.imp"
L_0138:;
                                                                //    992         GET EXP
#line 992 "regression-compile-tmp/hal70.imp"
GETEXP();
                                                                //    993         %IF S('=') %START
#line 993 "regression-compile-tmp/hal70.imp"
if (!(S(61))) goto L_013b;
                                                                //    994            K = 3
#line 994 "regression-compile-tmp/hal70.imp"
K = 3;
                                                                //    995         %finish %ELSE %IF S('#') %START
#line 995 "regression-compile-tmp/hal70.imp"
goto L_013c;
#line 995 "regression-compile-tmp/hal70.imp"
L_013b:;
#line 995 "regression-compile-tmp/hal70.imp"
if (!(S(35))) goto L_013d;
                                                                //    996            K = \3
#line 996 "regression-compile-tmp/hal70.imp"
K = (~(3));
                                                                //    997         %finish %ELSE %IF S('<') %START
#line 997 "regression-compile-tmp/hal70.imp"
goto L_013c;
#line 997 "regression-compile-tmp/hal70.imp"
L_013d:;
#line 997 "regression-compile-tmp/hal70.imp"
if (!(S(60))) goto L_013e;
                                                                //    998            K = \1;  K = 2 %IF S('=')
#line 998 "regression-compile-tmp/hal70.imp"
K = (~(1));
#line 998 "regression-compile-tmp/hal70.imp"
if (!(S(61))) goto L_013f;
#line 998 "regression-compile-tmp/hal70.imp"
K = 2;
#line 998 "regression-compile-tmp/hal70.imp"
L_013f:;
                                                                //    999         %finish %ELSE %IF S('>') %START
#line 999 "regression-compile-tmp/hal70.imp"
goto L_013c;
#line 999 "regression-compile-tmp/hal70.imp"
L_013e:;
#line 999 "regression-compile-tmp/hal70.imp"
if (!(S(62))) goto L_0140;
                                                                //   1000            K = \2;  K = 1 %IF S('=')
#line 1000 "regression-compile-tmp/hal70.imp"
K = (~(2));
#line 1000 "regression-compile-tmp/hal70.imp"
if (!(S(61))) goto L_0141;
#line 1000 "regression-compile-tmp/hal70.imp"
K = 1;
#line 1000 "regression-compile-tmp/hal70.imp"
L_0141:;
                                                                //   1001         %finish %ELSE %START
#line 1001 "regression-compile-tmp/hal70.imp"
goto L_013c;
#line 1001 "regression-compile-tmp/hal70.imp"
L_0140:;
                                                                //   1002            QUEUE(-12)
#line 1002 "regression-compile-tmp/hal70.imp"
QUEUE((-12));
                                                                //   1003            ->ANDOR
#line 1003 "regression-compile-tmp/hal70.imp"
goto U_100d;
                                                                //   1004         %FINISH
#line 1004 "regression-compile-tmp/hal70.imp"
L_013c:;
                                                                //   1005         GET EXP
#line 1005 "regression-compile-tmp/hal70.imp"
GETEXP();
                                                                //   1006         QUEUE(-11);  QUEUE(K)
#line 1006 "regression-compile-tmp/hal70.imp"
QUEUE((-11));
#line 1006 "regression-compile-tmp/hal70.imp"
QUEUE(K);
                                                                //   1007  ANDOR:
#line 1007 "regression-compile-tmp/hal70.imp"
U_100d:;
                                                                //   1008         %EXIT %IF %NOT TAG
#line 1008 "regression-compile-tmp/hal70.imp"
if (TAG()) goto L_0142;
#line 1008 "regression-compile-tmp/hal70.imp"
goto L_0139;
#line 1008 "regression-compile-tmp/hal70.imp"
L_0142:;
                                                                //   1009         %IF TAG1 = AND %AND TAG2 = 0 %START
#line 1009 "regression-compile-tmp/hal70.imp"
if (((TAG1) != (AND))) goto L_0143;
#line 1009 "regression-compile-tmp/hal70.imp"
if (((TAG2) != (0))) goto L_0143;
                                                                //   1010  !!          %MONITOR 19 %IF J < 0
                                                                //   1011            J = 1;  QUEUE(-13)
#line 1011 "regression-compile-tmp/hal70.imp"
J = 1;
#line 1011 "regression-compile-tmp/hal70.imp"
QUEUE((-13));
                                                                //   1012         %finish %ELSE %START
#line 1012 "regression-compile-tmp/hal70.imp"
goto L_0144;
#line 1012 "regression-compile-tmp/hal70.imp"
L_0143:;
                                                                //   1013  !!          %MONITOR 19 %IF TAG1 # OR %OR J > 0
                                                                //   1014            J = -1;  QUEUE(-14)
#line 1014 "regression-compile-tmp/hal70.imp"
J = (-1);
#line 1014 "regression-compile-tmp/hal70.imp"
QUEUE((-14));
                                                                //   1015         %FINISH
#line 1015 "regression-compile-tmp/hal70.imp"
L_0144:;
                                                                //   1016      %REPEAT
#line 1016 "regression-compile-tmp/hal70.imp"
goto L_0138;
#line 1016 "regression-compile-tmp/hal70.imp"
L_0139:;
                                                                //   1017      QUEUE(QVAL) %IF QVAL # 0
#line 1017 "regression-compile-tmp/hal70.imp"
if (((QVAL) == (0))) goto L_0145;
#line 1017 "regression-compile-tmp/hal70.imp"
QUEUE(QVAL);
#line 1017 "regression-compile-tmp/hal70.imp"
L_0145:;
                                                                //   1018      ASSEMBLE
#line 1018 "regression-compile-tmp/hal70.imp"
ASSEMBLE();
                                                                //   1019      ATYPE=-1 %AND CREG=-1 %IF J < 0
#line 1019 "regression-compile-tmp/hal70.imp"
if (((J) >= (0))) goto L_0146;
#line 1019 "regression-compile-tmp/hal70.imp"
ATYPE = (-1);
#line 1019 "regression-compile-tmp/hal70.imp"
CREG = (-1);
#line 1019 "regression-compile-tmp/hal70.imp"
L_0146:;
                                                                //   1020  %END
#line 1020 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CONDIT at level 2
                                                                //   1021  
                                                                //   1022  %ROUTINE GET INST
#line 1022 "regression-compile-tmp/hal70.imp"
void GETINST( void )
#line 1022 "regression-compile-tmp/hal70.imp"
{
                                                                //   1023  %INTEGER I
#line 1023 "regression-compile-tmp/hal70.imp"
int I;
                                                                //   1024  !OPMASK VALUES
                                                                //   1025  !    0100,0110,1100,1101,1110: DOUBLE WORD INSTRUCTIONS
                                                                //   1026  !    1011,1001,0011,0010,0001: AS ABOVE BUT RELOCATABLE
                                                                //   1027  !    0101: SINGLE WORD INSTRUCTION
                                                                //   1028  !    0111: 2 OPERANDS TO COME
                                                                //   1029  !    1111: 1 OPERAND TO COME
                                                                //   1030  !    1010: MACRO
                                                                //   1031      QUEUE(TYPE);  QUEUE(VAL)
#line 1031 "regression-compile-tmp/hal70.imp"
QUEUE(TYPE);
#line 1031 "regression-compile-tmp/hal70.imp"
QUEUE(VAL);
                                                                //   1032      %RETURN %IF TYPE&16_7000 # 16_7000
#line 1032 "regression-compile-tmp/hal70.imp"
if (((((TYPE) & (28672))) == (28672))) goto L_0147;
#line 1032 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 1032 "regression-compile-tmp/hal70.imp"
L_0147:;
                                                                //   1033      %RETURN %IF TERM # ' ';           !NO OPERAND FOLLOWING =>
#line 1033 "regression-compile-tmp/hal70.imp"
if (((TERM) == (32))) goto L_0148;
#line 1033 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 1033 "regression-compile-tmp/hal70.imp"
L_0148:;
                                                                //   1034      %CYCLE
#line 1034 "regression-compile-tmp/hal70.imp"
L_0149:;
                                                                //   1035         GET EXP
#line 1035 "regression-compile-tmp/hal70.imp"
GETEXP();
                                                                //   1036         QUEUE(-22)
#line 1036 "regression-compile-tmp/hal70.imp"
QUEUE((-22));
                                                                //   1037         %RETURN %IF %NOT S(',')
#line 1037 "regression-compile-tmp/hal70.imp"
if (S(44)) goto L_014c;
#line 1037 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 1037 "regression-compile-tmp/hal70.imp"
L_014c:;
                                                                //   1038      %REPEAT
#line 1038 "regression-compile-tmp/hal70.imp"
goto L_0149;
                                                                //   1039  %END
#line 1039 "regression-compile-tmp/hal70.imp"
return;
} // End of block GETINST at level 2
                                                                //   1040  
                                                                //   1041  %ROUTINE READ LINE
#line 1041 "regression-compile-tmp/hal70.imp"
void READLINE( void )
#line 1041 "regression-compile-tmp/hal70.imp"
{
                                                                //   1042  %INTEGER Q
#line 1042 "regression-compile-tmp/hal70.imp"
int Q;
                                                                //   1043      PUTPOS = STARTPOS
#line 1043 "regression-compile-tmp/hal70.imp"
PUTPOS = STARTPOS;
                                                                //   1044      %IF MP = 0 %START
#line 1044 "regression-compile-tmp/hal70.imp"
if (((MP) != (0))) goto L_014a;
                                                                //   1045         Q = 0;  PSEUDOLIM = 0
#line 1045 "regression-compile-tmp/hal70.imp"
Q = 0;
#line 1045 "regression-compile-tmp/hal70.imp"
PSEUDOLIM = 0;
                                                                //   1046         %CYCLE
#line 1046 "regression-compile-tmp/hal70.imp"
L_014d:;
                                                                //   1047            READ SYMBOL(SYM)
#line 1047 "regression-compile-tmp/hal70.imp"
_imp_READSYMBOL(&SYM);
                                                                //   1048            READ SYMBOL(SYM) %AND Q=Q!!128 %IF SYM = ''''
#line 1048 "regression-compile-tmp/hal70.imp"
if (((SYM) != (39))) goto L_0150;
#line 1048 "regression-compile-tmp/hal70.imp"
_imp_READSYMBOL(&SYM);
#line 1048 "regression-compile-tmp/hal70.imp"
Q = ((Q) ^ (128));
#line 1048 "regression-compile-tmp/hal70.imp"
L_0150:;
                                                                //   1049            %EXIT %IF SYM = NL
#line 1049 "regression-compile-tmp/hal70.imp"
if (((SYM) != (10))) goto L_0151;
#line 1049 "regression-compile-tmp/hal70.imp"
goto L_014e;
#line 1049 "regression-compile-tmp/hal70.imp"
L_0151:;
                                                                //   1050            SYM = SYM-32 %IF SYM-Q >= 96; !LOWER-CASE -> UPPER-CASE
#line 1050 "regression-compile-tmp/hal70.imp"
if ((((((int)(SYM)) - (Q))) < (96))) goto L_0152;
#line 1050 "regression-compile-tmp/hal70.imp"
SYM = (((int)(SYM)) - (32));
#line 1050 "regression-compile-tmp/hal70.imp"
L_0152:;
                                                                //   1051            SYM = SYM+Q
#line 1051 "regression-compile-tmp/hal70.imp"
SYM = (((int)(SYM)) + (Q));
                                                                //   1052            %EXIT %IF SYM = '/' %AND PSEUDOLIM # 0
#line 1052 "regression-compile-tmp/hal70.imp"
if (((SYM) != (47))) goto L_0153;
#line 1052 "regression-compile-tmp/hal70.imp"
if (((PSEUDOLIM) == (0))) goto L_0153;
#line 1052 "regression-compile-tmp/hal70.imp"
goto L_014e;
#line 1052 "regression-compile-tmp/hal70.imp"
L_0153:;
                                                                //   1053            %IF SYM = ' ' %START
#line 1053 "regression-compile-tmp/hal70.imp"
if (((SYM) != (32))) goto L_0154;
                                                                //   1054               PSEUDOLIM = PUTPOS %IF PSEUDOLIM = 0
#line 1054 "regression-compile-tmp/hal70.imp"
if (((PSEUDOLIM) != (0))) goto L_0155;
#line 1054 "regression-compile-tmp/hal70.imp"
PSEUDOLIM = PUTPOS;
#line 1054 "regression-compile-tmp/hal70.imp"
L_0155:;
                                                                //   1055            %finish %ELSE PSEUDOLIM = 0
#line 1055 "regression-compile-tmp/hal70.imp"
goto L_0156;
#line 1055 "regression-compile-tmp/hal70.imp"
L_0154:;
#line 1055 "regression-compile-tmp/hal70.imp"
PSEUDOLIM = 0;
#line 1055 "regression-compile-tmp/hal70.imp"
L_0156:;
                                                                //   1056            PUT CHAR(SYM)
#line 1056 "regression-compile-tmp/hal70.imp"
PUTCHAR(SYM);
                                                                //   1057         %REPEAT
#line 1057 "regression-compile-tmp/hal70.imp"
goto L_014d;
#line 1057 "regression-compile-tmp/hal70.imp"
L_014e:;
                                                                //   1058         %IF PSEUDOLIM # 0 %START
#line 1058 "regression-compile-tmp/hal70.imp"
if (((PSEUDOLIM) == (0))) goto L_0157;
                                                                //   1059            Q = PUTPOS;  PUTPOS = PSEUDOLIM
#line 1059 "regression-compile-tmp/hal70.imp"
Q = PUTPOS;
#line 1059 "regression-compile-tmp/hal70.imp"
PUTPOS = PSEUDOLIM;
                                                                //   1060            PUT CHAR(NL)
#line 1060 "regression-compile-tmp/hal70.imp"
PUTCHAR(10);
                                                                //   1061            PUTPOS = Q
#line 1061 "regression-compile-tmp/hal70.imp"
PUTPOS = Q;
                                                                //   1062         %FINISH
#line 1062 "regression-compile-tmp/hal70.imp"
L_0157:;
                                                                //   1063         %CYCLE
#line 1063 "regression-compile-tmp/hal70.imp"
L_0158:;
                                                                //   1064            PUT CHAR(SYM)
#line 1064 "regression-compile-tmp/hal70.imp"
PUTCHAR(SYM);
                                                                //   1065            %EXIT %IF SYM = NL
#line 1065 "regression-compile-tmp/hal70.imp"
if (((SYM) != (10))) goto L_015b;
#line 1065 "regression-compile-tmp/hal70.imp"
goto L_0159;
#line 1065 "regression-compile-tmp/hal70.imp"
L_015b:;
                                                                //   1066            READ SYMBOL(SYM)
#line 1066 "regression-compile-tmp/hal70.imp"
_imp_READSYMBOL(&SYM);
                                                                //   1067         %REPEAT
#line 1067 "regression-compile-tmp/hal70.imp"
goto L_0158;
#line 1067 "regression-compile-tmp/hal70.imp"
L_0159:;
                                                                //   1068         PRINTPOS = STARTPOS
#line 1068 "regression-compile-tmp/hal70.imp"
PRINTPOS = STARTPOS;
                                                                //   1069      %finish %ELSE %START
#line 1069 "regression-compile-tmp/hal70.imp"
goto L_015c;
#line 1069 "regression-compile-tmp/hal70.imp"
L_014a:;
                                                                //   1070         GETPOS = INTEGER(MP)
#line 1070 "regression-compile-tmp/hal70.imp"
GETPOS = INTEGER(MP);
                                                                //   1071         %IF CHAR(GETPOS) = 0 %START
#line 1071 "regression-compile-tmp/hal70.imp"
if (((CHAR(GETPOS)) != (0))) goto L_015d;
                                                                //   1072            QBASE = MP
#line 1072 "regression-compile-tmp/hal70.imp"
QBASE = MP;
                                                                //   1073            GETPOS = INTEGER(MP+2)
#line 1073 "regression-compile-tmp/hal70.imp"
GETPOS = INTEGER((((int)(MP)) + (2)));
                                                                //   1074            STARTPOS = INTEGER(MP+3)
#line 1074 "regression-compile-tmp/hal70.imp"
STARTPOS = INTEGER((((int)(MP)) + (3)));
                                                                //   1075            MP = INTEGER(MP+4)
#line 1075 "regression-compile-tmp/hal70.imp"
MP = INTEGER((((int)(MP)) + (4)));
                                                                //   1076            %IF MP < 0 %START
#line 1076 "regression-compile-tmp/hal70.imp"
if (((MP) >= (0))) goto L_015e;
                                                                //   1077               MP = MP-8_700000
#line 1077 "regression-compile-tmp/hal70.imp"
MP = (((int)(MP)) - (229376));
                                                                //   1078               %WHILE INTEGER(NP)&16_8000 = 0 %CYCLE
#line 1078 "regression-compile-tmp/hal70.imp"
L_015f:;
#line 1078 "regression-compile-tmp/hal70.imp"
if (((((INTEGER(NP)) & (32768))) != (0))) goto L_0160;
                                                                //   1079                  FAULT('C');  NP = NP+2
#line 1079 "regression-compile-tmp/hal70.imp"
FAULT(67);
#line 1079 "regression-compile-tmp/hal70.imp"
NP = (((int)(NP)) + (2));
                                                                //   1080               %REPEAT
#line 1080 "regression-compile-tmp/hal70.imp"
goto L_015f;
#line 1080 "regression-compile-tmp/hal70.imp"
L_0160:;
                                                                //   1081               SET LAB(LOC)
#line 1081 "regression-compile-tmp/hal70.imp"
SETLAB(LOC);
                                                                //   1082            %FINISH
#line 1082 "regression-compile-tmp/hal70.imp"
L_015e:;
                                                                //   1083            PRINTPOS = 0 %IF LIST&2 # 0
#line 1083 "regression-compile-tmp/hal70.imp"
if (((((LIST) & (2))) == (0))) goto L_0162;
#line 1083 "regression-compile-tmp/hal70.imp"
PRINTPOS = 0;
#line 1083 "regression-compile-tmp/hal70.imp"
L_0162:;
                                                                //   1084            GET SYM;                    !TERMINATOR
#line 1084 "regression-compile-tmp/hal70.imp"
GETSYM();
                                                                //   1085            GET SYM %IF SYM = ';'
#line 1085 "regression-compile-tmp/hal70.imp"
if (((SYM) != (59))) goto L_0163;
#line 1085 "regression-compile-tmp/hal70.imp"
GETSYM();
#line 1085 "regression-compile-tmp/hal70.imp"
L_0163:;
                                                                //   1086            %RETURN
#line 1086 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   1087         %FINISH
#line 1087 "regression-compile-tmp/hal70.imp"
L_015d:;
                                                                //   1088         PRINTPOS = STARTPOS %IF LIST&2 # 0
#line 1088 "regression-compile-tmp/hal70.imp"
if (((((LIST) & (2))) == (0))) goto L_0164;
#line 1088 "regression-compile-tmp/hal70.imp"
PRINTPOS = STARTPOS;
#line 1088 "regression-compile-tmp/hal70.imp"
L_0164:;
                                                                //   1089         QQ = 0
#line 1089 "regression-compile-tmp/hal70.imp"
QQ = 0;
                                                                //   1090         %CYCLE
#line 1090 "regression-compile-tmp/hal70.imp"
L_0165:;
                                                                //   1091            SYM = CHAR(GETPOS);  GETPOS = GETPOS+1
#line 1091 "regression-compile-tmp/hal70.imp"
SYM = CHAR(GETPOS);
#line 1091 "regression-compile-tmp/hal70.imp"
GETPOS = (((int)(GETPOS)) + (1));
                                                                //   1092            %IF TAG %START
#line 1092 "regression-compile-tmp/hal70.imp"
if (!(TAG())) goto L_0168;
                                                                //   1093               SYM=TERM %AND GETPOS=GETPOS-1 %IF TERM = ' '
#line 1093 "regression-compile-tmp/hal70.imp"
if (((TERM) != (32))) goto L_0169;
#line 1093 "regression-compile-tmp/hal70.imp"
SYM = TERM;
#line 1093 "regression-compile-tmp/hal70.imp"
GETPOS = (((int)(GETPOS)) - (1));
#line 1093 "regression-compile-tmp/hal70.imp"
L_0169:;
                                                                //   1094               TYPE = INTEGER(MP);  VAL = GETPOS-1
#line 1094 "regression-compile-tmp/hal70.imp"
TYPE = INTEGER(MP);
#line 1094 "regression-compile-tmp/hal70.imp"
VAL = (((int)(GETPOS)) - (1));
                                                                //   1095               LOOKUP(4)
#line 1095 "regression-compile-tmp/hal70.imp"
LOOKUP(4);
                                                                //   1096               %WHILE TYPE # VAL %CYCLE
#line 1096 "regression-compile-tmp/hal70.imp"
L_016a:;
#line 1096 "regression-compile-tmp/hal70.imp"
if (((TYPE) == (VAL))) goto L_016b;
                                                                //   1097                  PUT CHAR(CHAR(TYPE))
#line 1097 "regression-compile-tmp/hal70.imp"
PUTCHAR(CHAR(TYPE));
                                                                //   1098                  TYPE = TYPE+1
#line 1098 "regression-compile-tmp/hal70.imp"
TYPE = (((int)(TYPE)) + (1));
                                                                //   1099               %REPEAT
#line 1099 "regression-compile-tmp/hal70.imp"
goto L_016a;
#line 1099 "regression-compile-tmp/hal70.imp"
L_016b:;
                                                                //   1100            %FINISH
#line 1100 "regression-compile-tmp/hal70.imp"
L_0168:;
                                                                //   1101            PUT CHAR(SYM)
#line 1101 "regression-compile-tmp/hal70.imp"
PUTCHAR(SYM);
                                                                //   1102  !!          INTEGER(MP) = GETPOS
                                                                //   1103            set INTEGER(MP, GETPOS)
#line 1103 "regression-compile-tmp/hal70.imp"
SETINTEGER(MP, GETPOS);
                                                                //   1104            %EXIT %IF SYM = NL
#line 1104 "regression-compile-tmp/hal70.imp"
if (((SYM) != (10))) goto L_016d;
#line 1104 "regression-compile-tmp/hal70.imp"
goto L_0166;
#line 1104 "regression-compile-tmp/hal70.imp"
L_016d:;
                                                                //   1105         %REPEAT
#line 1105 "regression-compile-tmp/hal70.imp"
goto L_0165;
#line 1105 "regression-compile-tmp/hal70.imp"
L_0166:;
                                                                //   1106         QQ = '?'
#line 1106 "regression-compile-tmp/hal70.imp"
QQ = 63;
                                                                //   1107      %FINISH
#line 1107 "regression-compile-tmp/hal70.imp"
L_015c:;
                                                                //   1108      QBASE = (PUTPOS+1)>>1
#line 1108 "regression-compile-tmp/hal70.imp"
QBASE = (((((((int)(PUTPOS)) + (1)))) >> (1)));
                                                                //   1109      GETPOS = STARTPOS;  GET SYM
#line 1109 "regression-compile-tmp/hal70.imp"
GETPOS = STARTPOS;
#line 1109 "regression-compile-tmp/hal70.imp"
GETSYM();
                                                                //   1110  %END
#line 1110 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block READLINE at level 2
                                                                //   1111  
                                                                //   1112  %ROUTINE SCAN ARG
#line 1112 "regression-compile-tmp/hal70.imp"
void SCANARG( void )
#line 1112 "regression-compile-tmp/hal70.imp"
{
                                                                //   1113  !    SET TYPE,VAL TO START,LIM OF ARG IF NOT NULL
                                                                //   1114  %INTEGER I,J
#line 1114 "regression-compile-tmp/hal70.imp"
int I;
#line 1114 "regression-compile-tmp/hal70.imp"
int J;
                                                                //   1115      %RETURN %IF SYM='I' %AND CHAR(GETPOS)='F' %AND CHAR(GETPOS+1)=' '
#line 1115 "regression-compile-tmp/hal70.imp"
if (((SYM) != (73))) goto L_016e;
#line 1115 "regression-compile-tmp/hal70.imp"
if (((CHAR(GETPOS)) != (70))) goto L_016e;
#line 1115 "regression-compile-tmp/hal70.imp"
if (((CHAR((((int)(GETPOS)) + (1)))) != (32))) goto L_016e;
#line 1115 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 1115 "regression-compile-tmp/hal70.imp"
L_016e:;
                                                                //   1116      I = GETPOS-1;  I = GETPOS %IF SYM = '['
#line 1116 "regression-compile-tmp/hal70.imp"
I = (((int)(GETPOS)) - (1));
#line 1116 "regression-compile-tmp/hal70.imp"
if (((SYM) != (91))) goto L_016f;
#line 1116 "regression-compile-tmp/hal70.imp"
I = GETPOS;
#line 1116 "regression-compile-tmp/hal70.imp"
L_016f:;
                                                                //   1117      J = 0
#line 1117 "regression-compile-tmp/hal70.imp"
J = 0;
                                                                //   1118      %CYCLE
#line 1118 "regression-compile-tmp/hal70.imp"
L_0170:;
                                                                //   1119         %EXIT %IF SYM = NL
#line 1119 "regression-compile-tmp/hal70.imp"
if (((SYM) != (10))) goto L_0173;
#line 1119 "regression-compile-tmp/hal70.imp"
goto L_0171;
#line 1119 "regression-compile-tmp/hal70.imp"
L_0173:;
                                                                //   1120         %EXIT %IF (SYM=' ' %OR SYM=',' %OR SYM=';') %AND J<=0
#line 1120 "regression-compile-tmp/hal70.imp"
if (((SYM) == (32))) goto L_0167;
#line 1120 "regression-compile-tmp/hal70.imp"
if (((SYM) == (44))) goto L_0167;
#line 1120 "regression-compile-tmp/hal70.imp"
if (((SYM) != (59))) goto L_0174;
#line 1120 "regression-compile-tmp/hal70.imp"
L_0167:;
#line 1120 "regression-compile-tmp/hal70.imp"
if (((J) > (0))) goto L_0174;
#line 1120 "regression-compile-tmp/hal70.imp"
goto L_0171;
#line 1120 "regression-compile-tmp/hal70.imp"
L_0174:;
                                                                //   1121         J = J+1 %IF SYM = '['
#line 1121 "regression-compile-tmp/hal70.imp"
if (((SYM) != (91))) goto L_0175;
#line 1121 "regression-compile-tmp/hal70.imp"
J = (((int)(J)) + (1));
#line 1121 "regression-compile-tmp/hal70.imp"
L_0175:;
                                                                //   1122         %IF SYM = ']' %START
#line 1122 "regression-compile-tmp/hal70.imp"
if (((SYM) != (93))) goto L_0176;
                                                                //   1123            J = J-1;  %EXIT %IF J = 0
#line 1123 "regression-compile-tmp/hal70.imp"
J = (((int)(J)) - (1));
#line 1123 "regression-compile-tmp/hal70.imp"
if (((J) != (0))) goto L_0177;
#line 1123 "regression-compile-tmp/hal70.imp"
goto L_0171;
#line 1123 "regression-compile-tmp/hal70.imp"
L_0177:;
                                                                //   1124         %FINISH
#line 1124 "regression-compile-tmp/hal70.imp"
L_0176:;
                                                                //   1125         SYM = CHAR(GETPOS);  GETPOS = GETPOS+1
#line 1125 "regression-compile-tmp/hal70.imp"
SYM = CHAR(GETPOS);
#line 1125 "regression-compile-tmp/hal70.imp"
GETPOS = (((int)(GETPOS)) + (1));
                                                                //   1126      %REPEAT
#line 1126 "regression-compile-tmp/hal70.imp"
goto L_0170;
#line 1126 "regression-compile-tmp/hal70.imp"
L_0171:;
                                                                //   1127      %IF GETPOS-1 # I %START
#line 1127 "regression-compile-tmp/hal70.imp"
if ((((((int)(GETPOS)) - (1))) == (I))) goto L_0178;
                                                                //   1128         TYPE = I;  VAL = GETPOS-1
#line 1128 "regression-compile-tmp/hal70.imp"
TYPE = I;
#line 1128 "regression-compile-tmp/hal70.imp"
VAL = (((int)(GETPOS)) - (1));
                                                                //   1129      %FINISH
#line 1129 "regression-compile-tmp/hal70.imp"
L_0178:;
                                                                //   1130      GET SYM %IF SYM = ']'
#line 1130 "regression-compile-tmp/hal70.imp"
if (((SYM) != (93))) goto L_0179;
#line 1130 "regression-compile-tmp/hal70.imp"
GETSYM();
#line 1130 "regression-compile-tmp/hal70.imp"
L_0179:;
                                                                //   1131  %END
#line 1131 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block SCANARG at level 2
                                                                //   1132  
                                                                //   1133  
                                                                //   1134  %ROUTINE SET ACC
#line 1134 "regression-compile-tmp/hal70.imp"
void SETACC( void )
#line 1134 "regression-compile-tmp/hal70.imp"
{
                                                                //   1135  %INTEGER I
#line 1135 "regression-compile-tmp/hal70.imp"
int I;
                                                                //   1136      ACC = -1;  ATYPE = -1;  CREG = -1
#line 1136 "regression-compile-tmp/hal70.imp"
ACC = (-1);
#line 1136 "regression-compile-tmp/hal70.imp"
ATYPE = (-1);
#line 1136 "regression-compile-tmp/hal70.imp"
CREG = (-1);
                                                                //   1137      I = TEMPS
#line 1137 "regression-compile-tmp/hal70.imp"
I = TEMPS;
                                                                //   1138      %RETURN %IF I = 0
#line 1138 "regression-compile-tmp/hal70.imp"
if (((I) != (0))) goto L_017a;
#line 1138 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 1138 "regression-compile-tmp/hal70.imp"
L_017a:;
                                                                //   1139      %CYCLE
#line 1139 "regression-compile-tmp/hal70.imp"
L_017b:;
                                                                //   1140         ACC = ACC+1
#line 1140 "regression-compile-tmp/hal70.imp"
ACC = (((int)(ACC)) + (1));
                                                                //   1141         %RETURN %IF I&1 # 0
#line 1141 "regression-compile-tmp/hal70.imp"
if (((((I) & (1))) == (0))) goto L_017e;
#line 1141 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 1141 "regression-compile-tmp/hal70.imp"
L_017e:;
                                                                //   1142         I = I>>1
#line 1142 "regression-compile-tmp/hal70.imp"
I = (int)((((unsigned int)(I)) >> (1)));
                                                                //   1143      %REPEAT
#line 1143 "regression-compile-tmp/hal70.imp"
goto L_017b;
                                                                //   1144  %END
#line 1144 "regression-compile-tmp/hal70.imp"
return;
} // End of block SETACC at level 2
                                                                //   1145  
                                                                //   1146  !MAIN PROGRAM
                                                                //   1147  
                                                                //   1148  !RADIX 36 CONSTANTS
                                                                //   1149  %OWNINTEGER B=2184, IF=9991, ELS=5950, E=5403, FIN=6907, ISH=10490
#line 1149 "regression-compile-tmp/hal70.imp"
static int B = 2184;
#line 1149 "regression-compile-tmp/hal70.imp"
static int IF = 9991;
#line 1149 "regression-compile-tmp/hal70.imp"
static int ELS = 5950;
#line 1149 "regression-compile-tmp/hal70.imp"
static int E = 5403;
#line 1149 "regression-compile-tmp/hal70.imp"
static int FIN = 6907;
#line 1149 "regression-compile-tmp/hal70.imp"
static int ISH = 10490;
                                                                //   1150  %OWNINTEGER JUM=11642, P=17206, PS=17983, DEF=4605, END=6009
#line 1150 "regression-compile-tmp/hal70.imp"
static int JUM = 11642;
#line 1150 "regression-compile-tmp/hal70.imp"
static int P = 17206;
#line 1150 "regression-compile-tmp/hal70.imp"
static int PS = 17983;
#line 1150 "regression-compile-tmp/hal70.imp"
static int DEF = 4605;
#line 1150 "regression-compile-tmp/hal70.imp"
static int END = 6009;
                                                                //   1151  
                                                                //   1152  %INTEGER I,J,K
#line 1152 "regression-compile-tmp/hal70.imp"
int I;
#line 1152 "regression-compile-tmp/hal70.imp"
int J;
#line 1152 "regression-compile-tmp/hal70.imp"
int K;
                                                                //   1153  !!%FAULT 19 ->ERR;                      !RECOGNITION ERROR
                                                                //   1154  !!%FAULT 9 ->BEND;                      !INPUT ENDED
                                                                //   1155  
                                                                //   1156      %on %event 9,1 %start
#line 1156 "regression-compile-tmp/hal70.imp"
if (!_imp_on_event(1, 9)) goto L_017c;  /* TO DO: Remove %on %event handler just before L_017c: if present for this block */
                                                                //   1157         ->err %if event_event = 9
#line 1157 "regression-compile-tmp/hal70.imp"
if (((_imp_EVENT().EVENT) != (9))) goto L_017f;
#line 1157 "regression-compile-tmp/hal70.imp"
goto U_100e;
#line 1157 "regression-compile-tmp/hal70.imp"
L_017f:;
                                                                //   1158         ->bend %if event_event = 1 %and event_sub = 9
#line 1158 "regression-compile-tmp/hal70.imp"
if (((_imp_EVENT().EVENT) != (1))) goto L_0180;
#line 1158 "regression-compile-tmp/hal70.imp"
if (((_imp_EVENT().SUB) != (9))) goto L_0180;
#line 1158 "regression-compile-tmp/hal70.imp"
goto U_100f;
#line 1158 "regression-compile-tmp/hal70.imp"
L_0180:;
                                                                //   1159         %stop
#line 1159 "regression-compile-tmp/hal70.imp"
exit(0);
                                                                //   1160      %finish
#line 1160 "regression-compile-tmp/hal70.imp"
L_017c:;
                                                                //   1161      
                                                                //   1162      open input(MAIN, "interdata/test.hal")
#line 1162 "regression-compile-tmp/hal70.imp"
_imp_OPENINPUT(MAIN, _imp_str_literal("interdata/test.hal"));
                                                                //   1163      open input(PRE, "interdata/hal70.def")
#line 1163 "regression-compile-tmp/hal70.imp"
_imp_OPENINPUT(PRE, _imp_str_literal("interdata/hal70.def"));
                                                                //   1164      open output(BIN, "interdata/test.bin")
#line 1164 "regression-compile-tmp/hal70.imp"
_imp_OPENOUTPUT(BIN, _imp_str_literal("interdata/test.bin"));
                                                                //   1165      open output(LIS, "interdata/test.lis")
#line 1165 "regression-compile-tmp/hal70.imp"
_imp_OPENOUTPUT(LIS, _imp_str_literal("interdata/test.lis"));
                                                                //   1166      select output(0)
#line 1166 "regression-compile-tmp/hal70.imp"
_imp_SELECTOUTPUT(0);
                                                                //   1167  
                                                                //   1168      %CYCLE I = 1,1,SBOUND
#line 1168 "regression-compile-tmp/hal70.imp"
I = 0;
if ((((32512)-(1)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 1, 1, 32512");
L_0181:;
if (I == 32512) goto L_0182;
I += 1;
                                                                //   1169         STORE(I) = 0
#line 1169 "regression-compile-tmp/hal70.imp"
(STORE-1)[I] = 0;
                                                                //   1170      %REPEAT
#line 1170 "regression-compile-tmp/hal70.imp"
goto L_0181;
#line 1170 "regression-compile-tmp/hal70.imp"
L_0182:;
                                                                //   1171  !!    CODEPOS = ADDR(STORE(1))
                                                                //   1172  {}    CODEPOS = 1
#line 1172 "regression-compile-tmp/hal70.imp"
CODEPOS = 1;
                                                                //   1173      MACLIM = (CODEPOS+20)<<1
#line 1173 "regression-compile-tmp/hal70.imp"
MACLIM = (((((int)(CODEPOS)) + (20))) << (1));
                                                                //   1174  !!    STORELIM = ADDR(STORE(SBOUND))
                                                                //   1175  {}    STORELIM = sbound
#line 1175 "regression-compile-tmp/hal70.imp"
STORELIM = 32512;
                                                                //   1176      NP = STORELIM
#line 1176 "regression-compile-tmp/hal70.imp"
NP = STORELIM;
                                                                //   1177      LABLIM = NP-60
#line 1177 "regression-compile-tmp/hal70.imp"
LABLIM = (((int)(NP)) - (60));
                                                                //   1178      BP = LABLIM
#line 1178 "regression-compile-tmp/hal70.imp"
BP = LABLIM;
                                                                //   1179      DEFLIM = BP-(SBOUND>>2)
#line 1179 "regression-compile-tmp/hal70.imp"
DEFLIM = ((BP) - ((int)((int)((((unsigned int)(32512)) >> (2))))));
                                                                //   1180      DEFMIN = DEFLIM
#line 1180 "regression-compile-tmp/hal70.imp"
DEFMIN = DEFLIM;
                                                                //   1181  !!    INTEGER(BP) = DEFLIM
                                                                //   1182      set INTEGER(BP, DEFLIM)
#line 1182 "regression-compile-tmp/hal70.imp"
SETINTEGER(BP, DEFLIM);
                                                                //   1183      SELECT INPUT(PRE)
#line 1183 "regression-compile-tmp/hal70.imp"
_imp_SELECTINPUT(PRE);
                                                                //   1184  DO PASS:
#line 1184 "regression-compile-tmp/hal70.imp"
U_1010:;
                                                                //   1185      STARTPOS = MACLIM
#line 1185 "regression-compile-tmp/hal70.imp"
STARTPOS = MACLIM;
                                                                //   1186      MP = 0
#line 1186 "regression-compile-tmp/hal70.imp"
MP = 0;
                                                                //   1187      ALMAX = DEFLIM
#line 1187 "regression-compile-tmp/hal70.imp"
ALMAX = DEFLIM;
                                                                //   1188      LABMIN = LABLIM
#line 1188 "regression-compile-tmp/hal70.imp"
LABMIN = LABLIM;
                                                                //   1189      ASSCOND = 1;  SKIP = 0
#line 1189 "regression-compile-tmp/hal70.imp"
ASSCOND = 1;
#line 1189 "regression-compile-tmp/hal70.imp"
SKIP = 0;
                                                                //   1190      LOCTYPE = MEMMASK+RELMASK;  LOC = 0
#line 1190 "regression-compile-tmp/hal70.imp"
LOCTYPE = (((int)(MEMMASK)) + (RELMASK));
#line 1190 "regression-compile-tmp/hal70.imp"
LOC = 0;
                                                                //   1191      SET ACC
#line 1191 "regression-compile-tmp/hal70.imp"
SETACC();
                                                                //   1192  READ: FSYM = ' ';  FAULTPOS = 0
#line 1192 "regression-compile-tmp/hal70.imp"
U_1011:;
#line 1192 "regression-compile-tmp/hal70.imp"
FSYM = 32;
#line 1192 "regression-compile-tmp/hal70.imp"
FAULTPOS = 0;
                                                                //   1193      READ LINE
#line 1193 "regression-compile-tmp/hal70.imp"
READLINE();
                                                                //   1194  NEXT:
#line 1194 "regression-compile-tmp/hal70.imp"
U_1012:;
                                                                //   1195      DREG = -1
#line 1195 "regression-compile-tmp/hal70.imp"
DREG = (-1);
                                                                //   1196      MODE = 0
#line 1196 "regression-compile-tmp/hal70.imp"
MODE = 0;
                                                                //   1197      PEND = 0;  COND = 0
#line 1197 "regression-compile-tmp/hal70.imp"
PEND = 0;
#line 1197 "regression-compile-tmp/hal70.imp"
COND = 0;
                                                                //   1198      QSTART = QBASE;  QLIM = QSTART
#line 1198 "regression-compile-tmp/hal70.imp"
QSTART = QBASE;
#line 1198 "regression-compile-tmp/hal70.imp"
QLIM = QSTART;
                                                                //   1199      FLAG = 0
#line 1199 "regression-compile-tmp/hal70.imp"
FLAG = 0;
                                                                //   1200      %IF S('$') %START
#line 1200 "regression-compile-tmp/hal70.imp"
if (!(S(36))) goto L_0184;
                                                                //   1201         ->NEWPAGE %IF SYM = '/'
#line 1201 "regression-compile-tmp/hal70.imp"
if (((SYM) != (47))) goto L_0185;
#line 1201 "regression-compile-tmp/hal70.imp"
goto U_1013;
#line 1201 "regression-compile-tmp/hal70.imp"
L_0185:;
                                                                //   1202         ->ERR %IF %NOT TAG
#line 1202 "regression-compile-tmp/hal70.imp"
if (TAG()) goto L_0186;
#line 1202 "regression-compile-tmp/hal70.imp"
goto U_100e;
#line 1202 "regression-compile-tmp/hal70.imp"
L_0186:;
                                                                //   1203         ->ASSIF %IF TAG1 = IF
#line 1203 "regression-compile-tmp/hal70.imp"
if (((TAG1) != (IF))) goto L_0187;
#line 1203 "regression-compile-tmp/hal70.imp"
goto U_1014;
#line 1203 "regression-compile-tmp/hal70.imp"
L_0187:;
                                                                //   1204         ->ASSELSE %IF TAG1 = ELS
#line 1204 "regression-compile-tmp/hal70.imp"
if (((TAG1) != (ELS))) goto L_0188;
#line 1204 "regression-compile-tmp/hal70.imp"
goto U_1015;
#line 1204 "regression-compile-tmp/hal70.imp"
L_0188:;
                                                                //   1205         ->ASSFIN %IF TAG1 = FIN
#line 1205 "regression-compile-tmp/hal70.imp"
if (((TAG1) != (FIN))) goto L_0189;
#line 1205 "regression-compile-tmp/hal70.imp"
goto U_1016;
#line 1205 "regression-compile-tmp/hal70.imp"
L_0189:;
                                                                //   1206         ->LEND %IF SKIP # 0
#line 1206 "regression-compile-tmp/hal70.imp"
if (((SKIP) == (0))) goto L_018a;
#line 1206 "regression-compile-tmp/hal70.imp"
goto U_1017;
#line 1206 "regression-compile-tmp/hal70.imp"
L_018a:;
                                                                //   1207         ->DEFINE %IF TAG1 = DEF
#line 1207 "regression-compile-tmp/hal70.imp"
if (((TAG1) != (DEF))) goto L_018b;
#line 1207 "regression-compile-tmp/hal70.imp"
goto U_1018;
#line 1207 "regression-compile-tmp/hal70.imp"
L_018b:;
                                                                //   1208         ->DEFINE %IF TAG1 = 19625;     !RED
#line 1208 "regression-compile-tmp/hal70.imp"
if (((TAG1) != (19625))) goto L_018c;
#line 1208 "regression-compile-tmp/hal70.imp"
goto U_1018;
#line 1208 "regression-compile-tmp/hal70.imp"
L_018c:;
                                                                //   1209         ->LISTC %IF TAG1 = 13350;      !LIS
#line 1209 "regression-compile-tmp/hal70.imp"
if (((TAG1) != (13350))) goto L_018d;
#line 1209 "regression-compile-tmp/hal70.imp"
goto U_1019;
#line 1209 "regression-compile-tmp/hal70.imp"
L_018d:;
                                                                //   1210         ->TEMP %IF TAG1 = 21780;       !TEM
#line 1210 "regression-compile-tmp/hal70.imp"
if (((TAG1) != (21780))) goto L_018e;
#line 1210 "regression-compile-tmp/hal70.imp"
goto U_101a;
#line 1210 "regression-compile-tmp/hal70.imp"
L_018e:;
                                                                //   1211         ->LOCC %IF TAG1 = 13556;       !LOC
#line 1211 "regression-compile-tmp/hal70.imp"
if (((TAG1) != (13556))) goto L_018f;
#line 1211 "regression-compile-tmp/hal70.imp"
goto U_1000;
#line 1211 "regression-compile-tmp/hal70.imp"
L_018f:;
                                                                //   1212         ->LOCC %IF TAG1 = 1917;        !ASS
#line 1212 "regression-compile-tmp/hal70.imp"
if (((TAG1) != (1917))) goto L_0190;
#line 1212 "regression-compile-tmp/hal70.imp"
goto U_1000;
#line 1212 "regression-compile-tmp/hal70.imp"
L_0190:;
                                                                //   1213         ->SAVC %IF TAG1 = 20568;       !SAV
#line 1213 "regression-compile-tmp/hal70.imp"
if (((TAG1) != (20568))) goto L_0191;
#line 1213 "regression-compile-tmp/hal70.imp"
goto U_1001;
#line 1213 "regression-compile-tmp/hal70.imp"
L_0191:;
                                                                //   1214         ->MACDEF %IF TAG1 = 14111;     !MAC
#line 1214 "regression-compile-tmp/hal70.imp"
if (((TAG1) != (14111))) goto L_0192;
#line 1214 "regression-compile-tmp/hal70.imp"
goto U_101b;
#line 1214 "regression-compile-tmp/hal70.imp"
L_0192:;
                                                                //   1215         ->BEGIN %IF TAG1 = 2460;       !BEG
#line 1215 "regression-compile-tmp/hal70.imp"
if (((TAG1) != (2460))) goto L_0193;
#line 1215 "regression-compile-tmp/hal70.imp"
goto U_1002;
#line 1215 "regression-compile-tmp/hal70.imp"
L_0193:;
                                                                //   1216         ->BEND %IF TAG1 = END
#line 1216 "regression-compile-tmp/hal70.imp"
if (((TAG1) != (END))) goto L_0194;
#line 1216 "regression-compile-tmp/hal70.imp"
goto U_100f;
#line 1216 "regression-compile-tmp/hal70.imp"
L_0194:;
                                                                //   1217         FAULT('U')
#line 1217 "regression-compile-tmp/hal70.imp"
FAULT(85);
                                                                //   1218         ->LEND
#line 1218 "regression-compile-tmp/hal70.imp"
goto U_1017;
                                                                //   1219      %FINISH
#line 1219 "regression-compile-tmp/hal70.imp"
L_0184:;
                                                                //   1220      ->LEND %IF SKIP # 0 %OR SYM = '/'
#line 1220 "regression-compile-tmp/hal70.imp"
if (((SKIP) != (0))) goto L_0183;
#line 1220 "regression-compile-tmp/hal70.imp"
if (((SYM) != (47))) goto L_0195;
#line 1220 "regression-compile-tmp/hal70.imp"
L_0183:;
#line 1220 "regression-compile-tmp/hal70.imp"
goto U_1017;
#line 1220 "regression-compile-tmp/hal70.imp"
L_0195:;
                                                                //   1221      ->LEND %IF SYM = NL
#line 1221 "regression-compile-tmp/hal70.imp"
if (((SYM) != (10))) goto L_0196;
#line 1221 "regression-compile-tmp/hal70.imp"
goto U_1017;
#line 1221 "regression-compile-tmp/hal70.imp"
L_0196:;
                                                                //   1222      %IF TAG %START
#line 1222 "regression-compile-tmp/hal70.imp"
if (!(TAG())) goto L_0197;
                                                                //   1223         ->LABDEF %IF TERM = ':'
#line 1223 "regression-compile-tmp/hal70.imp"
if (((TERM) != (58))) goto L_0198;
#line 1223 "regression-compile-tmp/hal70.imp"
goto U_1003;
#line 1223 "regression-compile-tmp/hal70.imp"
L_0198:;
                                                                //   1224         MODE = 1
#line 1224 "regression-compile-tmp/hal70.imp"
MODE = 1;
                                                                //   1225         ->ASSIGN %IF TERM = '(' %OR SYM = '='
#line 1225 "regression-compile-tmp/hal70.imp"
if (((TERM) == (40))) goto L_0199;
#line 1225 "regression-compile-tmp/hal70.imp"
if (((SYM) != (61))) goto L_019a;
#line 1225 "regression-compile-tmp/hal70.imp"
L_0199:;
#line 1225 "regression-compile-tmp/hal70.imp"
goto U_1004;
#line 1225 "regression-compile-tmp/hal70.imp"
L_019a:;
                                                                //   1226         ->JUMP %IF TAG1 = JUM %AND (TAG2=P %OR TAG2=PS)
#line 1226 "regression-compile-tmp/hal70.imp"
if (((TAG1) != (JUM))) goto L_019b;
#line 1226 "regression-compile-tmp/hal70.imp"
if (((TAG2) == (P))) goto L_019c;
#line 1226 "regression-compile-tmp/hal70.imp"
if (((TAG2) != (PS))) goto L_019b;
#line 1226 "regression-compile-tmp/hal70.imp"
L_019c:;
#line 1226 "regression-compile-tmp/hal70.imp"
goto U_101c;
#line 1226 "regression-compile-tmp/hal70.imp"
L_019b:;
                                                                //   1227         ->IFC %IF TAG1 = IF
#line 1227 "regression-compile-tmp/hal70.imp"
if (((TAG1) != (IF))) goto L_019d;
#line 1227 "regression-compile-tmp/hal70.imp"
goto U_101d;
#line 1227 "regression-compile-tmp/hal70.imp"
L_019d:;
                                                                //   1228         ->ELSE %IF TAG1 = ELS %AND TAG2 = E
#line 1228 "regression-compile-tmp/hal70.imp"
if (((TAG1) != (ELS))) goto L_019e;
#line 1228 "regression-compile-tmp/hal70.imp"
if (((TAG2) != (E))) goto L_019e;
#line 1228 "regression-compile-tmp/hal70.imp"
goto U_101e;
#line 1228 "regression-compile-tmp/hal70.imp"
L_019e:;
                                                                //   1229         ->FINISH %IF TAG1 = FIN %AND TAG2 = ISH
#line 1229 "regression-compile-tmp/hal70.imp"
if (((TAG1) != (FIN))) goto L_019f;
#line 1229 "regression-compile-tmp/hal70.imp"
if (((TAG2) != (ISH))) goto L_019f;
#line 1229 "regression-compile-tmp/hal70.imp"
goto U_101f;
#line 1229 "regression-compile-tmp/hal70.imp"
L_019f:;
                                                                //   1230         ->WHILE %IF TAG1 = 25106 %AND TAG2 = 13173
#line 1230 "regression-compile-tmp/hal70.imp"
if (((TAG1) != (25106))) goto L_01a0;
#line 1230 "regression-compile-tmp/hal70.imp"
if (((TAG2) != (13173))) goto L_01a0;
#line 1230 "regression-compile-tmp/hal70.imp"
goto U_1020;
#line 1230 "regression-compile-tmp/hal70.imp"
L_01a0:;
                                                                //   1231         ->CYCLE %IF TAG1 = 4269 %AND TAG2 = 13173
#line 1231 "regression-compile-tmp/hal70.imp"
if (((TAG1) != (4269))) goto L_01a1;
#line 1231 "regression-compile-tmp/hal70.imp"
if (((TAG2) != (13173))) goto L_01a1;
#line 1231 "regression-compile-tmp/hal70.imp"
goto U_1021;
#line 1231 "regression-compile-tmp/hal70.imp"
L_01a1:;
                                                                //   1232         ->REPEAT %IF TAG1 = 19637 %AND TAG2 = 5544
#line 1232 "regression-compile-tmp/hal70.imp"
if (((TAG1) != (19637))) goto L_01a2;
#line 1232 "regression-compile-tmp/hal70.imp"
if (((TAG2) != (5544))) goto L_01a2;
#line 1232 "regression-compile-tmp/hal70.imp"
goto U_1022;
#line 1232 "regression-compile-tmp/hal70.imp"
L_01a2:;
                                                                //   1233         MODE=-2 %AND ->DATA %IF TAG1 = B
#line 1233 "regression-compile-tmp/hal70.imp"
if (((TAG1) != (B))) goto L_01a3;
#line 1233 "regression-compile-tmp/hal70.imp"
MODE = (-2);
#line 1233 "regression-compile-tmp/hal70.imp"
goto U_1023;
#line 1233 "regression-compile-tmp/hal70.imp"
L_01a3:;
                                                                //   1234         TYPE = UMASK;  LOOKUP(0)
#line 1234 "regression-compile-tmp/hal70.imp"
TYPE = UMASK;
#line 1234 "regression-compile-tmp/hal70.imp"
LOOKUP(0);
                                                                //   1235         ->MACCALL %IF TYPE&OPMASK = MACRO
#line 1235 "regression-compile-tmp/hal70.imp"
if (((((TYPE) & (OPMASK))) != (MACRO))) goto L_01a4;
#line 1235 "regression-compile-tmp/hal70.imp"
goto U_1024;
#line 1235 "regression-compile-tmp/hal70.imp"
L_01a4:;
                                                                //   1236         ->MINST %IF TYPE&OPMASK # 0
#line 1236 "regression-compile-tmp/hal70.imp"
if (((((TYPE) & (OPMASK))) == (0))) goto L_01a5;
#line 1236 "regression-compile-tmp/hal70.imp"
goto U_1025;
#line 1236 "regression-compile-tmp/hal70.imp"
L_01a5:;
                                                                //   1237         FAULT('U') %AND ->LEND %IF TYPE&UMASK # 0
#line 1237 "regression-compile-tmp/hal70.imp"
if (((((TYPE) & (UMASK))) == (0))) goto L_01a6;
#line 1237 "regression-compile-tmp/hal70.imp"
FAULT(85);
#line 1237 "regression-compile-tmp/hal70.imp"
goto U_1017;
#line 1237 "regression-compile-tmp/hal70.imp"
L_01a6:;
                                                                //   1238         PEND = -1
#line 1238 "regression-compile-tmp/hal70.imp"
PEND = (-1);
                                                                //   1239      %FINISH
#line 1239 "regression-compile-tmp/hal70.imp"
L_0197:;
                                                                //   1240      MODE = -1
#line 1240 "regression-compile-tmp/hal70.imp"
MODE = (-1);
                                                                //   1241  DATA:
#line 1241 "regression-compile-tmp/hal70.imp"
U_1023:;
                                                                //   1242      %CYCLE
#line 1242 "regression-compile-tmp/hal70.imp"
L_01a7:;
                                                                //   1243         GET EXP;  ASSEMBLE
#line 1243 "regression-compile-tmp/hal70.imp"
GETEXP();
#line 1243 "regression-compile-tmp/hal70.imp"
ASSEMBLE();
                                                                //   1244         FAULT('I') %IF TYPE&REGXMASK # 0
#line 1244 "regression-compile-tmp/hal70.imp"
if (((((TYPE) & (REGXMASK))) == (0))) goto L_01aa;
#line 1244 "regression-compile-tmp/hal70.imp"
FAULT(73);
#line 1244 "regression-compile-tmp/hal70.imp"
L_01aa:;
                                                                //   1245         I = 1
#line 1245 "regression-compile-tmp/hal70.imp"
I = 1;
                                                                //   1246         %IF S('$') %START
#line 1246 "regression-compile-tmp/hal70.imp"
if (!(S(36))) goto L_01ab;
                                                                //   1247            I = VAL %IF VAL < 1000
#line 1247 "regression-compile-tmp/hal70.imp"
if (((VAL) >= (1000))) goto L_01ac;
#line 1247 "regression-compile-tmp/hal70.imp"
I = VAL;
#line 1247 "regression-compile-tmp/hal70.imp"
L_01ac:;
                                                                //   1248            QLIM = QSTART
#line 1248 "regression-compile-tmp/hal70.imp"
QLIM = QSTART;
                                                                //   1249            GET EXP;  ASSEMBLE
#line 1249 "regression-compile-tmp/hal70.imp"
GETEXP();
#line 1249 "regression-compile-tmp/hal70.imp"
ASSEMBLE();
                                                                //   1250         %FINISH
#line 1250 "regression-compile-tmp/hal70.imp"
L_01ab:;
                                                                //   1251         %WHILE I > 0 %CYCLE
#line 1251 "regression-compile-tmp/hal70.imp"
L_01ad:;
#line 1251 "regression-compile-tmp/hal70.imp"
if (((I) <= (0))) goto L_01ae;
                                                                //   1252            %IF MODE # -1 %START
#line 1252 "regression-compile-tmp/hal70.imp"
if (((MODE) == ((-1)))) goto L_01b0;
                                                                //   1253               FAULT('T') %IF VAL&16_FF00 # 0
#line 1253 "regression-compile-tmp/hal70.imp"
if (((((VAL) & (65280))) == (0))) goto L_01b1;
#line 1253 "regression-compile-tmp/hal70.imp"
FAULT(84);
#line 1253 "regression-compile-tmp/hal70.imp"
L_01b1:;
                                                                //   1254               %IF MODE = -2 %START
#line 1254 "regression-compile-tmp/hal70.imp"
if (((MODE) != ((-2)))) goto L_01b2;
                                                                //   1255                  J = VAL<<8;  MODE = -3
#line 1255 "regression-compile-tmp/hal70.imp"
J = ((VAL) << (8));
#line 1255 "regression-compile-tmp/hal70.imp"
MODE = (-3);
                                                                //   1256               %finish %ELSE %START
#line 1256 "regression-compile-tmp/hal70.imp"
goto L_01b3;
#line 1256 "regression-compile-tmp/hal70.imp"
L_01b2:;
                                                                //   1257                  VAL = VAL+J;  MODE = -2
#line 1257 "regression-compile-tmp/hal70.imp"
VAL = (((int)(VAL)) + (J));
#line 1257 "regression-compile-tmp/hal70.imp"
MODE = (-2);
                                                                //   1258                  PLANT VAL;  VAL = VAL&255
#line 1258 "regression-compile-tmp/hal70.imp"
PLANTVAL();
#line 1258 "regression-compile-tmp/hal70.imp"
VAL = ((VAL) & (255));
                                                                //   1259               %FINISH
#line 1259 "regression-compile-tmp/hal70.imp"
L_01b3:;
                                                                //   1260            %finish %ELSE %START
#line 1260 "regression-compile-tmp/hal70.imp"
goto L_01b4;
#line 1260 "regression-compile-tmp/hal70.imp"
L_01b0:;
                                                                //   1261               PLANT VAL
#line 1261 "regression-compile-tmp/hal70.imp"
PLANTVAL();
                                                                //   1262            %FINISH
#line 1262 "regression-compile-tmp/hal70.imp"
L_01b4:;
                                                                //   1263            I = I-1
#line 1263 "regression-compile-tmp/hal70.imp"
I = (((int)(I)) - (1));
                                                                //   1264         %REPEAT
#line 1264 "regression-compile-tmp/hal70.imp"
goto L_01ad;
#line 1264 "regression-compile-tmp/hal70.imp"
L_01ae:;
                                                                //   1265         %EXIT %UNLESS S(',') %OR SYM&128 # 0
#line 1265 "regression-compile-tmp/hal70.imp"
if (S(44)) goto L_01b5;
#line 1265 "regression-compile-tmp/hal70.imp"
if (((((SYM) & (128))) != (0))) goto L_01b5;
#line 1265 "regression-compile-tmp/hal70.imp"
goto L_01a8;
#line 1265 "regression-compile-tmp/hal70.imp"
L_01b5:;
                                                                //   1266         %IF SYM = NL %START
#line 1266 "regression-compile-tmp/hal70.imp"
if (((SYM) != (10))) goto L_01b6;
                                                                //   1267            PRINT LINE %IF PRINTPOS # 0;  READ LINE
#line 1267 "regression-compile-tmp/hal70.imp"
if (((PRINTPOS) == (0))) goto L_01b7;
#line 1267 "regression-compile-tmp/hal70.imp"
PRINTLINE();
#line 1267 "regression-compile-tmp/hal70.imp"
L_01b7:;
#line 1267 "regression-compile-tmp/hal70.imp"
READLINE();
                                                                //   1268            QSTART = QBASE
#line 1268 "regression-compile-tmp/hal70.imp"
QSTART = QBASE;
                                                                //   1269         %FINISH
#line 1269 "regression-compile-tmp/hal70.imp"
L_01b6:;
                                                                //   1270         QLIM = QSTART
#line 1270 "regression-compile-tmp/hal70.imp"
QLIM = QSTART;
                                                                //   1271      %REPEAT
#line 1271 "regression-compile-tmp/hal70.imp"
goto L_01a7;
#line 1271 "regression-compile-tmp/hal70.imp"
L_01a8:;
                                                                //   1272      VAL=J %AND PLANT VAL %IF MODE = -3
#line 1272 "regression-compile-tmp/hal70.imp"
if (((MODE) != ((-3)))) goto L_01b8;
#line 1272 "regression-compile-tmp/hal70.imp"
VAL = J;
#line 1272 "regression-compile-tmp/hal70.imp"
PLANTVAL();
#line 1272 "regression-compile-tmp/hal70.imp"
L_01b8:;
                                                                //   1273      ->SEND
#line 1273 "regression-compile-tmp/hal70.imp"
goto U_1026;
                                                                //   1274  
                                                                //   1275  LABDEF:
#line 1275 "regression-compile-tmp/hal70.imp"
U_1003:;
                                                                //   1276      CREG = -1;  ATYPE = -1
#line 1276 "regression-compile-tmp/hal70.imp"
CREG = (-1);
#line 1276 "regression-compile-tmp/hal70.imp"
ATYPE = (-1);
                                                                //   1277      GET SYM
#line 1277 "regression-compile-tmp/hal70.imp"
GETSYM();
                                                                //   1278      FAULT('C') %AND NP=STORELIM %IF NP # STORELIM
#line 1278 "regression-compile-tmp/hal70.imp"
if (((NP) == (STORELIM))) goto L_01b9;
#line 1278 "regression-compile-tmp/hal70.imp"
FAULT(67);
#line 1278 "regression-compile-tmp/hal70.imp"
NP = STORELIM;
#line 1278 "regression-compile-tmp/hal70.imp"
L_01b9:;
                                                                //   1279      TYPE = LOCTYPE;  VAL = LOC
#line 1279 "regression-compile-tmp/hal70.imp"
TYPE = LOCTYPE;
#line 1279 "regression-compile-tmp/hal70.imp"
VAL = LOC;
                                                                //   1280      LOOKUP(7)
#line 1280 "regression-compile-tmp/hal70.imp"
LOOKUP(7);
                                                                //   1281      ->NEXT
#line 1281 "regression-compile-tmp/hal70.imp"
goto U_1012;
                                                                //   1282  
                                                                //   1283  ASSIGN:
#line 1283 "regression-compile-tmp/hal70.imp"
U_1004:;
                                                                //   1284      PEND = 1
#line 1284 "regression-compile-tmp/hal70.imp"
PEND = 1;
                                                                //   1285      GET EXP
#line 1285 "regression-compile-tmp/hal70.imp"
GETEXP();
                                                                //   1286      ->ERR %IF %NOT S('=')
#line 1286 "regression-compile-tmp/hal70.imp"
if (S(61)) goto L_01ba;
#line 1286 "regression-compile-tmp/hal70.imp"
goto U_100e;
#line 1286 "regression-compile-tmp/hal70.imp"
L_01ba:;
                                                                //   1287      QUEUE(-25);                       !'STORE'
#line 1287 "regression-compile-tmp/hal70.imp"
QUEUE((-25));
                                                                //   1288      %IF INTEGER(QBASE) = REG %START
#line 1288 "regression-compile-tmp/hal70.imp"
if (((INTEGER(QBASE)) != (REG))) goto L_01bb;
                                                                //   1289         DREG = INTEGER(QBASE+1)
#line 1289 "regression-compile-tmp/hal70.imp"
DREG = INTEGER((((int)(QBASE)) + (1)));
                                                                //   1290         DUSE = 0
#line 1290 "regression-compile-tmp/hal70.imp"
DUSE = 0;
                                                                //   1291      %FINISH
#line 1291 "regression-compile-tmp/hal70.imp"
L_01bb:;
                                                                //   1292      QSTART = QLIM;  MODE = 2
#line 1292 "regression-compile-tmp/hal70.imp"
QSTART = QLIM;
#line 1292 "regression-compile-tmp/hal70.imp"
MODE = 2;
                                                                //   1293      GET EXP
#line 1293 "regression-compile-tmp/hal70.imp"
GETEXP();
                                                                //   1294      %IF FLAG # 0 %START
#line 1294 "regression-compile-tmp/hal70.imp"
if (((FLAG) == (0))) goto L_01bc;
                                                                //   1295         %IF DREG<0 %AND FLAG-QSTART=QSTART-QBASE-1 %C
#line 1295 "regression-compile-tmp/hal70.imp"
if (((DREG) >= (0))) goto L_01bd;
#line 1295 "regression-compile-tmp/hal70.imp"
if ((((((int)(FLAG)) - (QSTART))) != ((((int)((((int)(QSTART)) - (QBASE)))) - (1))))) goto L_01bd;
#line 1295 "regression-compile-tmp/hal70.imp"
if (((((INTEGER(QBASE)) & (BMASK))) != (0))) goto L_01bd;
                                                                //   1296            %AND INTEGER(QBASE)&BMASK=0 %START
                                                                //   1297         I = QBASE;  J = QSTART
#line 1297 "regression-compile-tmp/hal70.imp"
I = QBASE;
#line 1297 "regression-compile-tmp/hal70.imp"
J = QSTART;
                                                                //   1298         I = I+1 %AND J=J+1 %WHILE INTEGER(I) = INTEGER(J)
#line 1298 "regression-compile-tmp/hal70.imp"
L_01be:;
#line 1298 "regression-compile-tmp/hal70.imp"
if (((INTEGER(I)) != (INTEGER(J)))) goto L_01bf;
#line 1298 "regression-compile-tmp/hal70.imp"
I = (((int)(I)) + (1));
#line 1298 "regression-compile-tmp/hal70.imp"
J = (((int)(J)) + (1));
#line 1298 "regression-compile-tmp/hal70.imp"
goto L_01be;
#line 1298 "regression-compile-tmp/hal70.imp"
L_01bf:;
                                                                //   1299         %IF J = FLAG %START
#line 1299 "regression-compile-tmp/hal70.imp"
if (((J) != (FLAG))) goto L_01c1;
                                                                //   1300            %IF INTEGER(QLIM-1) = -2 %START; !MINUS
#line 1300 "regression-compile-tmp/hal70.imp"
if (((INTEGER((((int)(QLIM)) - (1)))) != ((-2)))) goto L_01c2;
                                                                //   1301               QSTART = J-2
#line 1301 "regression-compile-tmp/hal70.imp"
QSTART = (((int)(J)) - (2));
                                                                //   1302  !!             INTEGER(QSTART) = 0;  INTEGER(QSTART+1) = 0
                                                                //   1303               set INTEGER(QSTART, 0);  set INTEGER(QSTART+1, 0)
#line 1303 "regression-compile-tmp/hal70.imp"
SETINTEGER(QSTART, 0);
#line 1303 "regression-compile-tmp/hal70.imp"
SETINTEGER((((int)(QSTART)) + (1)), 0);
                                                                //   1304            %ELSE
#line 1304 "regression-compile-tmp/hal70.imp"
goto L_01c3;
#line 1304 "regression-compile-tmp/hal70.imp"
L_01c2:;
                                                                //   1305               QSTART = J;  QLIM = QLIM-1
#line 1305 "regression-compile-tmp/hal70.imp"
QSTART = J;
#line 1305 "regression-compile-tmp/hal70.imp"
QLIM = (((int)(QLIM)) - (1));
                                                                //   1306            %FINISH
#line 1306 "regression-compile-tmp/hal70.imp"
L_01c3:;
                                                                //   1307         %finish %ELSE FLAG = 0
#line 1307 "regression-compile-tmp/hal70.imp"
goto L_01c4;
#line 1307 "regression-compile-tmp/hal70.imp"
L_01c1:;
#line 1307 "regression-compile-tmp/hal70.imp"
FLAG = 0;
#line 1307 "regression-compile-tmp/hal70.imp"
L_01c4:;
                                                                //   1308         %finish %ELSE FLAG = 0
#line 1308 "regression-compile-tmp/hal70.imp"
goto L_01c5;
#line 1308 "regression-compile-tmp/hal70.imp"
L_01bd:;
#line 1308 "regression-compile-tmp/hal70.imp"
FLAG = 0;
#line 1308 "regression-compile-tmp/hal70.imp"
L_01c5:;
                                                                //   1309      %FINISH
#line 1309 "regression-compile-tmp/hal70.imp"
L_01bc:;
                                                                //   1310      QUEUE(-24);                       !'LOAD'
#line 1310 "regression-compile-tmp/hal70.imp"
QUEUE((-24));
                                                                //   1311  
                                                                //   1312  CONDQ:
#line 1312 "regression-compile-tmp/hal70.imp"
U_1027:;
                                                                //   1313      %IF TAGIF %START
#line 1313 "regression-compile-tmp/hal70.imp"
if (!(TAGIF())) goto L_01c6;
                                                                //   1314         MODE = MODE+4;  DREG = DREG-16; !SCARIFY
#line 1314 "regression-compile-tmp/hal70.imp"
MODE = (((int)(MODE)) + (4));
#line 1314 "regression-compile-tmp/hal70.imp"
DREG = (((int)(DREG)) - (16));
                                                                //   1315         CONDIT(0)
#line 1315 "regression-compile-tmp/hal70.imp"
CONDIT(0);
                                                                //   1316         MODE = MODE-4;  DREG = DREG+16; !RESTORE
#line 1316 "regression-compile-tmp/hal70.imp"
MODE = (((int)(MODE)) - (4));
#line 1316 "regression-compile-tmp/hal70.imp"
DREG = (((int)(DREG)) + (16));
                                                                //   1317         QLIM = QSTART;  QSTART = TRANSF
#line 1317 "regression-compile-tmp/hal70.imp"
QLIM = QSTART;
#line 1317 "regression-compile-tmp/hal70.imp"
QSTART = TRANSF;
                                                                //   1318      %FINISH
#line 1318 "regression-compile-tmp/hal70.imp"
L_01c6:;
                                                                //   1319      ASSEMBLE
#line 1319 "regression-compile-tmp/hal70.imp"
ASSEMBLE();
                                                                //   1320      ->SEND
#line 1320 "regression-compile-tmp/hal70.imp"
goto U_1026;
                                                                //   1321  
                                                                //   1322  JUMP:
#line 1322 "regression-compile-tmp/hal70.imp"
U_101c:;
                                                                //   1323      FLAG = TAG2-P;                    !POSITIVE IF SHORT
#line 1323 "regression-compile-tmp/hal70.imp"
FLAG = (((int)(TAG2)) - (P));
                                                                //   1324      GET EXP
#line 1324 "regression-compile-tmp/hal70.imp"
GETEXP();
                                                                //   1325      QUEUE(-26);                       !'JUMP'
#line 1325 "regression-compile-tmp/hal70.imp"
QUEUE((-26));
                                                                //   1326      ->CONDQ
#line 1326 "regression-compile-tmp/hal70.imp"
goto U_1027;
                                                                //   1327  
                                                                //   1328  MINST:
#line 1328 "regression-compile-tmp/hal70.imp"
U_1025:;
                                                                //   1329      MODE = -1
#line 1329 "regression-compile-tmp/hal70.imp"
MODE = (-1);
                                                                //   1330      GET INST
#line 1330 "regression-compile-tmp/hal70.imp"
GETINST();
                                                                //   1331      QUEUE(-23);                       !'PLANT'
#line 1331 "regression-compile-tmp/hal70.imp"
QUEUE((-23));
                                                                //   1332      ->CONDQ
#line 1332 "regression-compile-tmp/hal70.imp"
goto U_1027;
                                                                //   1333  
                                                                //   1334  MACCALL:
#line 1334 "regression-compile-tmp/hal70.imp"
U_1024:;
                                                                //   1335      QUEUE(0);                         !(DEFPOS)
#line 1335 "regression-compile-tmp/hal70.imp"
QUEUE(0);
                                                                //   1336      QUEUE(0);                         !SPARE
#line 1336 "regression-compile-tmp/hal70.imp"
QUEUE(0);
                                                                //   1337      QUEUE(0);                         !(CALLPOS)
#line 1337 "regression-compile-tmp/hal70.imp"
QUEUE(0);
                                                                //   1338      QUEUE(STARTPOS)
#line 1338 "regression-compile-tmp/hal70.imp"
QUEUE(STARTPOS);
                                                                //   1339      QUEUE(MP)
#line 1339 "regression-compile-tmp/hal70.imp"
QUEUE(MP);
                                                                //   1340      J = VAL;  QQ = 0
#line 1340 "regression-compile-tmp/hal70.imp"
J = VAL;
#line 1340 "regression-compile-tmp/hal70.imp"
QQ = 0;
                                                                //   1341      %CYCLE
#line 1341 "regression-compile-tmp/hal70.imp"
L_01c7:;
                                                                //   1342         %EXIT %IF CHAR(J) = NL;        !END OF MAC DEF
#line 1342 "regression-compile-tmp/hal70.imp"
if (((CHAR(J)) != (10))) goto L_01ca;
#line 1342 "regression-compile-tmp/hal70.imp"
goto L_01c8;
#line 1342 "regression-compile-tmp/hal70.imp"
L_01ca:;
                                                                //   1343         I = GETPOS-1;                  !SAVE CALLPOS
#line 1343 "regression-compile-tmp/hal70.imp"
I = (((int)(GETPOS)) - (1));
                                                                //   1344         GETPOS = J;  GET SYM
#line 1344 "regression-compile-tmp/hal70.imp"
GETPOS = J;
#line 1344 "regression-compile-tmp/hal70.imp"
GETSYM();
                                                                //   1345  !!       %MONITOR 24 %IF %NOT TAG
                                                                //   1346         TYPE = 0;  VAL = 0
#line 1346 "regression-compile-tmp/hal70.imp"
TYPE = 0;
#line 1346 "regression-compile-tmp/hal70.imp"
VAL = 0;
                                                                //   1347         SCAN ARG
#line 1347 "regression-compile-tmp/hal70.imp"
SCANARG();
                                                                //   1348         GET SYM %IF SYM = ','
#line 1348 "regression-compile-tmp/hal70.imp"
if (((SYM) != (44))) goto L_01cb;
#line 1348 "regression-compile-tmp/hal70.imp"
GETSYM();
#line 1348 "regression-compile-tmp/hal70.imp"
L_01cb:;
                                                                //   1349         J = GETPOS-1;                  !SAVE DEFPOS
#line 1349 "regression-compile-tmp/hal70.imp"
J = (((int)(GETPOS)) - (1));
                                                                //   1350         GETPOS = I;  GET SYM;          !RESTORE CALLPOS
#line 1350 "regression-compile-tmp/hal70.imp"
GETPOS = I;
#line 1350 "regression-compile-tmp/hal70.imp"
GETSYM();
                                                                //   1351         SCAN ARG
#line 1351 "regression-compile-tmp/hal70.imp"
SCANARG();
                                                                //   1352         GET SYM %IF SYM = ','
#line 1352 "regression-compile-tmp/hal70.imp"
if (((SYM) != (44))) goto L_01cc;
#line 1352 "regression-compile-tmp/hal70.imp"
GETSYM();
#line 1352 "regression-compile-tmp/hal70.imp"
L_01cc:;
                                                                //   1353         QUEUE(TAG1);  QUEUE(TAG2)
#line 1353 "regression-compile-tmp/hal70.imp"
QUEUE(TAG1);
#line 1353 "regression-compile-tmp/hal70.imp"
QUEUE(TAG2);
                                                                //   1354         QUEUE(TYPE);  QUEUE(VAL)
#line 1354 "regression-compile-tmp/hal70.imp"
QUEUE(TYPE);
#line 1354 "regression-compile-tmp/hal70.imp"
QUEUE(VAL);
                                                                //   1355      %REPEAT
#line 1355 "regression-compile-tmp/hal70.imp"
goto L_01c7;
#line 1355 "regression-compile-tmp/hal70.imp"
L_01c8:;
                                                                //   1356      QQ = '?'
#line 1356 "regression-compile-tmp/hal70.imp"
QQ = 63;
                                                                //   1357      GET SYM %IF SYM = ' '
#line 1357 "regression-compile-tmp/hal70.imp"
if (((SYM) != (32))) goto L_01cd;
#line 1357 "regression-compile-tmp/hal70.imp"
GETSYM();
#line 1357 "regression-compile-tmp/hal70.imp"
L_01cd:;
                                                                //   1358      %IF TAGIF %START
#line 1358 "regression-compile-tmp/hal70.imp"
if (!(TAGIF())) goto L_01ce;
                                                                //   1359         CONDIT(-18)
#line 1359 "regression-compile-tmp/hal70.imp"
CONDIT((-18));
                                                                //   1360         QLIM = QSTART
#line 1360 "regression-compile-tmp/hal70.imp"
QLIM = QSTART;
                                                                //   1361  !!       INTEGER(QBASE+4) = MP+8_700000
                                                                //   1362         set INTEGER(QBASE+4, MP+8_700000)
#line 1362 "regression-compile-tmp/hal70.imp"
SETINTEGER((((int)(QBASE)) + (4)), (((int)(MP)) + (229376)));
                                                                //   1363      %FINISH
#line 1363 "regression-compile-tmp/hal70.imp"
L_01ce:;
                                                                //   1364      QUEUE(0)
#line 1364 "regression-compile-tmp/hal70.imp"
QUEUE(0);
                                                                //   1365      STARTPOS = QLIM<<1
#line 1365 "regression-compile-tmp/hal70.imp"
STARTPOS = ((QLIM) << (1));
                                                                //   1366      MP = QBASE
#line 1366 "regression-compile-tmp/hal70.imp"
MP = QBASE;
                                                                //   1367  !!    INTEGER(MP) = J+1;                !START OF BODY
                                                                //   1368      set INTEGER(MP, J+1);                !START OF BODY
#line 1368 "regression-compile-tmp/hal70.imp"
SETINTEGER(MP, (((int)(J)) + (1)));
                                                                //   1369  !!    INTEGER(MP+2) = GETPOS-1
                                                                //   1370      set INTEGER(MP+2, GETPOS-1)
#line 1370 "regression-compile-tmp/hal70.imp"
SETINTEGER((((int)(MP)) + (2)), (((int)(GETPOS)) - (1)));
                                                                //   1371      ->LEND
#line 1371 "regression-compile-tmp/hal70.imp"
goto U_1017;
                                                                //   1372  
                                                                //   1373  !CODING OF JUMPS: 1000 (SINGLE INST), 2000 (MAIN IF)
                                                                //   1374  !                 4000 (ELSE), 6000 (IF AFTER ELSE)
                                                                //   1375  
                                                                //   1376  IFC:
#line 1376 "regression-compile-tmp/hal70.imp"
U_101d:;
                                                                //   1377      CONDIT(-15)
#line 1377 "regression-compile-tmp/hal70.imp"
CONDIT((-15));
                                                                //   1378      ->SEND
#line 1378 "regression-compile-tmp/hal70.imp"
goto U_1026;
                                                                //   1379  
                                                                //   1380  ELSE:
#line 1380 "regression-compile-tmp/hal70.imp"
U_101e:;
                                                                //   1381      ->CERR %IF INTEGER(NP)&16_2000 = 0
#line 1381 "regression-compile-tmp/hal70.imp"
if (((((INTEGER(NP)) & (8192))) != (0))) goto L_01cf;
#line 1381 "regression-compile-tmp/hal70.imp"
goto U_1028;
#line 1381 "regression-compile-tmp/hal70.imp"
L_01cf:;
                                                                //   1382      QUEUE(0);  QUEUE(0)
#line 1382 "regression-compile-tmp/hal70.imp"
QUEUE(0);
#line 1382 "regression-compile-tmp/hal70.imp"
QUEUE(0);
                                                                //   1383      QUEUE(-16);  ASSEMBLE
#line 1383 "regression-compile-tmp/hal70.imp"
QUEUE((-16));
#line 1383 "regression-compile-tmp/hal70.imp"
ASSEMBLE();
                                                                //   1384      ATYPE = -1; CREG = -1
#line 1384 "regression-compile-tmp/hal70.imp"
ATYPE = (-1);
#line 1384 "regression-compile-tmp/hal70.imp"
CREG = (-1);
                                                                //   1385      %IF TAGIF %START
#line 1385 "regression-compile-tmp/hal70.imp"
if (!(TAGIF())) goto L_01d0;
                                                                //   1386         CONDIT(-17)
#line 1386 "regression-compile-tmp/hal70.imp"
CONDIT((-17));
                                                                //   1387      %FINISH
#line 1387 "regression-compile-tmp/hal70.imp"
L_01d0:;
                                                                //   1388      ->SEND
#line 1388 "regression-compile-tmp/hal70.imp"
goto U_1026;
                                                                //   1389  
                                                                //   1390  FINISH:
#line 1390 "regression-compile-tmp/hal70.imp"
U_101f:;
                                                                //   1391      ->CERR %IF INTEGER(NP)&16_6000 = 0
#line 1391 "regression-compile-tmp/hal70.imp"
if (((((INTEGER(NP)) & (24576))) != (0))) goto L_01d1;
#line 1391 "regression-compile-tmp/hal70.imp"
goto U_1028;
#line 1391 "regression-compile-tmp/hal70.imp"
L_01d1:;
                                                                //   1392      I = LOC
#line 1392 "regression-compile-tmp/hal70.imp"
I = LOC;
                                                                //   1393      %WHILE INTEGER(NP)&16_4000 # 0 %CYCLE
#line 1393 "regression-compile-tmp/hal70.imp"
L_01d2:;
#line 1393 "regression-compile-tmp/hal70.imp"
if (((((INTEGER(NP)) & (16384))) == (0))) goto L_01d3;
                                                                //   1394         %IF INTEGER(NP)&16_2000 # 0 %START; !IF AFTER ELSE
#line 1394 "regression-compile-tmp/hal70.imp"
if (((((INTEGER(NP)) & (8192))) == (0))) goto L_01d5;
                                                                //   1395            SET LAB(I)
#line 1395 "regression-compile-tmp/hal70.imp"
SETLAB(I);
                                                                //   1396         %finish %ELSE %START
#line 1396 "regression-compile-tmp/hal70.imp"
goto L_01d6;
#line 1396 "regression-compile-tmp/hal70.imp"
L_01d5:;
                                                                //   1397            SET LAB(LOC)
#line 1397 "regression-compile-tmp/hal70.imp"
SETLAB(LOC);
                                                                //   1398            I = VAL+4
#line 1398 "regression-compile-tmp/hal70.imp"
I = (((int)(VAL)) + (4));
                                                                //   1399         %FINISH
#line 1399 "regression-compile-tmp/hal70.imp"
L_01d6:;
                                                                //   1400      %REPEAT
#line 1400 "regression-compile-tmp/hal70.imp"
goto L_01d2;
#line 1400 "regression-compile-tmp/hal70.imp"
L_01d3:;
                                                                //   1401      SET LAB(I)
#line 1401 "regression-compile-tmp/hal70.imp"
SETLAB(I);
                                                                //   1402      ->SEND
#line 1402 "regression-compile-tmp/hal70.imp"
goto U_1026;
                                                                //   1403  
                                                                //   1404  WHILE:
#line 1404 "regression-compile-tmp/hal70.imp"
U_1020:;
                                                                //   1405      I = LOC;  ATYPE = -1;  CREG = -1
#line 1405 "regression-compile-tmp/hal70.imp"
I = LOC;
#line 1405 "regression-compile-tmp/hal70.imp"
ATYPE = (-1);
#line 1405 "regression-compile-tmp/hal70.imp"
CREG = (-1);
                                                                //   1406      CONDIT(-13)
#line 1406 "regression-compile-tmp/hal70.imp"
CONDIT((-13));
                                                                //   1407      NEST(I);  NEST(1)
#line 1407 "regression-compile-tmp/hal70.imp"
NEST(I);
#line 1407 "regression-compile-tmp/hal70.imp"
NEST(1);
                                                                //   1408      ->SEND
#line 1408 "regression-compile-tmp/hal70.imp"
goto U_1026;
                                                                //   1409  
                                                                //   1410  CYCLE:
#line 1410 "regression-compile-tmp/hal70.imp"
U_1021:;
                                                                //   1411      NEST(LOC);  NEST(1)
#line 1411 "regression-compile-tmp/hal70.imp"
NEST(LOC);
#line 1411 "regression-compile-tmp/hal70.imp"
NEST(1);
                                                                //   1412      ATYPE = -1;  CREG = -1
#line 1412 "regression-compile-tmp/hal70.imp"
ATYPE = (-1);
#line 1412 "regression-compile-tmp/hal70.imp"
CREG = (-1);
                                                                //   1413      ->SEND
#line 1413 "regression-compile-tmp/hal70.imp"
goto U_1026;
                                                                //   1414  
                                                                //   1415  REPEAT:
#line 1415 "regression-compile-tmp/hal70.imp"
U_1022:;
                                                                //   1416      ->CERR %IF INTEGER(NP) # 1
#line 1416 "regression-compile-tmp/hal70.imp"
if (((INTEGER(NP)) == (1))) goto L_01d7;
#line 1416 "regression-compile-tmp/hal70.imp"
goto U_1028;
#line 1416 "regression-compile-tmp/hal70.imp"
L_01d7:;
                                                                //   1417      QUEUE(LOCTYPE);  QUEUE(INTEGER(NP+1))
#line 1417 "regression-compile-tmp/hal70.imp"
QUEUE(LOCTYPE);
#line 1417 "regression-compile-tmp/hal70.imp"
QUEUE(INTEGER((((int)(NP)) + (1))));
                                                                //   1418      NP = NP+2
#line 1418 "regression-compile-tmp/hal70.imp"
NP = (((int)(NP)) + (2));
                                                                //   1419      QUEUE(-26);                       !'JUMP'
#line 1419 "regression-compile-tmp/hal70.imp"
QUEUE((-26));
                                                                //   1420      FLAG = -1
#line 1420 "regression-compile-tmp/hal70.imp"
FLAG = (-1);
                                                                //   1421      ->CONDQ
#line 1421 "regression-compile-tmp/hal70.imp"
goto U_1027;
                                                                //   1422  
                                                                //   1423  CERR:
#line 1423 "regression-compile-tmp/hal70.imp"
U_1028:;
                                                                //   1424      FAULT('C')
#line 1424 "regression-compile-tmp/hal70.imp"
FAULT(67);
                                                                //   1425      ->LEND
#line 1425 "regression-compile-tmp/hal70.imp"
goto U_1017;
                                                                //   1426  
                                                                //   1427  SEND:
#line 1427 "regression-compile-tmp/hal70.imp"
U_1026:;
                                                                //   1428      SET LAB(LOC) %IF INTEGER(NP)&16_1000 # 0
#line 1428 "regression-compile-tmp/hal70.imp"
if (((((INTEGER(NP)) & (4096))) == (0))) goto L_01d8;
#line 1428 "regression-compile-tmp/hal70.imp"
SETLAB(LOC);
#line 1428 "regression-compile-tmp/hal70.imp"
L_01d8:;
                                                                //   1429      ->LEND %IF SYM = NL
#line 1429 "regression-compile-tmp/hal70.imp"
if (((SYM) != (10))) goto L_01d9;
#line 1429 "regression-compile-tmp/hal70.imp"
goto U_1017;
#line 1429 "regression-compile-tmp/hal70.imp"
L_01d9:;
                                                                //   1430      ->NEXT %IF S(';')
#line 1430 "regression-compile-tmp/hal70.imp"
if (!(S(59))) goto L_01da;
#line 1430 "regression-compile-tmp/hal70.imp"
goto U_1012;
#line 1430 "regression-compile-tmp/hal70.imp"
L_01da:;
                                                                //   1431  
                                                                //   1432  ERR:FSYM = 'F';  FAULTPOS = GETPOS-1
#line 1432 "regression-compile-tmp/hal70.imp"
U_100e:;
#line 1432 "regression-compile-tmp/hal70.imp"
FSYM = 70;
#line 1432 "regression-compile-tmp/hal70.imp"
FAULTPOS = (((int)(GETPOS)) - (1));
                                                                //   1433      PRINTPOS = STARTPOS
#line 1433 "regression-compile-tmp/hal70.imp"
PRINTPOS = STARTPOS;
                                                                //   1434  
                                                                //   1435  LEND:
#line 1435 "regression-compile-tmp/hal70.imp"
U_1017:;
                                                                //   1436      ->READ %IF SKIP # 0 %AND LIST&4 = 0
#line 1436 "regression-compile-tmp/hal70.imp"
if (((SKIP) == (0))) goto L_01db;
#line 1436 "regression-compile-tmp/hal70.imp"
if (((((LIST) & (4))) != (0))) goto L_01db;
#line 1436 "regression-compile-tmp/hal70.imp"
goto U_1011;
#line 1436 "regression-compile-tmp/hal70.imp"
L_01db:;
                                                                //   1437      ->READ %IF FSYM = ' ' %AND CHARS = 0 %AND %C
#line 1437 "regression-compile-tmp/hal70.imp"
if (((FSYM) != (32))) goto L_01dc;
#line 1437 "regression-compile-tmp/hal70.imp"
if (((CHARS) != (0))) goto L_01dc;
#line 1437 "regression-compile-tmp/hal70.imp"
if (((PRINTPOS) == (0))) goto L_01d4;
#line 1437 "regression-compile-tmp/hal70.imp"
if (((MP) == (0))) goto L_01dc;
#line 1437 "regression-compile-tmp/hal70.imp"
if (((((LIST) & (2))) != (0))) goto L_01dc;
#line 1437 "regression-compile-tmp/hal70.imp"
L_01d4:;
#line 1437 "regression-compile-tmp/hal70.imp"
goto U_1011;
#line 1437 "regression-compile-tmp/hal70.imp"
L_01dc:;
                                                                //   1438       (PRINTPOS = 0 %OR (MP#0 %AND LIST&2=0))
                                                                //   1439      PRINT LINE
#line 1439 "regression-compile-tmp/hal70.imp"
PRINTLINE();
                                                                //   1440      ->READ
#line 1440 "regression-compile-tmp/hal70.imp"
goto U_1011;
                                                                //   1441  
                                                                //   1442  ASSIF:
#line 1442 "regression-compile-tmp/hal70.imp"
U_1014:;
                                                                //   1443      ASSCOND = ASSCOND<<1
#line 1443 "regression-compile-tmp/hal70.imp"
ASSCOND = ((ASSCOND) << (1));
                                                                //   1444      ->LEND %IF SKIP # 0
#line 1444 "regression-compile-tmp/hal70.imp"
if (((SKIP) == (0))) goto L_01dd;
#line 1444 "regression-compile-tmp/hal70.imp"
goto U_1017;
#line 1444 "regression-compile-tmp/hal70.imp"
L_01dd:;
                                                                //   1445  A1: CONDIT(0)
#line 1445 "regression-compile-tmp/hal70.imp"
U_1029:;
#line 1445 "regression-compile-tmp/hal70.imp"
CONDIT(0);
                                                                //   1446      SKIP = ASSCOND %IF COND # 0
#line 1446 "regression-compile-tmp/hal70.imp"
if (((COND) == (0))) goto L_01de;
#line 1446 "regression-compile-tmp/hal70.imp"
SKIP = ASSCOND;
#line 1446 "regression-compile-tmp/hal70.imp"
L_01de:;
                                                                //   1447      PRINT LINE %IF PRINTPOS # 0
#line 1447 "regression-compile-tmp/hal70.imp"
if (((PRINTPOS) == (0))) goto L_01df;
#line 1447 "regression-compile-tmp/hal70.imp"
PRINTLINE();
#line 1447 "regression-compile-tmp/hal70.imp"
L_01df:;
                                                                //   1448      ->LEND
#line 1448 "regression-compile-tmp/hal70.imp"
goto U_1017;
                                                                //   1449  
                                                                //   1450  ASSELSE:
#line 1450 "regression-compile-tmp/hal70.imp"
U_1015:;
                                                                //   1451      %IF SKIP = 0 %START
#line 1451 "regression-compile-tmp/hal70.imp"
if (((SKIP) != (0))) goto L_01e0;
                                                                //   1452         ->CERR %IF ASSCOND&1 # 0
#line 1452 "regression-compile-tmp/hal70.imp"
if (((((ASSCOND) & (1))) == (0))) goto L_01e1;
#line 1452 "regression-compile-tmp/hal70.imp"
goto U_1028;
#line 1452 "regression-compile-tmp/hal70.imp"
L_01e1:;
                                                                //   1453         SKIP = ASSCOND
#line 1453 "regression-compile-tmp/hal70.imp"
SKIP = ASSCOND;
                                                                //   1454      %finish %ELSE %START
#line 1454 "regression-compile-tmp/hal70.imp"
goto L_01e2;
#line 1454 "regression-compile-tmp/hal70.imp"
L_01e0:;
                                                                //   1455         ->LEND %IF SKIP # ASSCOND
#line 1455 "regression-compile-tmp/hal70.imp"
if (((SKIP) == (ASSCOND))) goto L_01e3;
#line 1455 "regression-compile-tmp/hal70.imp"
goto U_1017;
#line 1455 "regression-compile-tmp/hal70.imp"
L_01e3:;
                                                                //   1456         SKIP = 0
#line 1456 "regression-compile-tmp/hal70.imp"
SKIP = 0;
                                                                //   1457         ->A1 %IF TAGIF
#line 1457 "regression-compile-tmp/hal70.imp"
if (!(TAGIF())) goto L_01e4;
#line 1457 "regression-compile-tmp/hal70.imp"
goto U_1029;
#line 1457 "regression-compile-tmp/hal70.imp"
L_01e4:;
                                                                //   1458      %FINISH
#line 1458 "regression-compile-tmp/hal70.imp"
L_01e2:;
                                                                //   1459      ASSCOND = ASSCOND+1
#line 1459 "regression-compile-tmp/hal70.imp"
ASSCOND = (((int)(ASSCOND)) + (1));
                                                                //   1460      ->LEND
#line 1460 "regression-compile-tmp/hal70.imp"
goto U_1017;
                                                                //   1461  
                                                                //   1462  ASSFIN:
#line 1462 "regression-compile-tmp/hal70.imp"
U_1016:;
                                                                //   1463      ->CERR %IF ASSCOND = 1
#line 1463 "regression-compile-tmp/hal70.imp"
if (((ASSCOND) != (1))) goto L_01e5;
#line 1463 "regression-compile-tmp/hal70.imp"
goto U_1028;
#line 1463 "regression-compile-tmp/hal70.imp"
L_01e5:;
                                                                //   1464      ASSCOND = ASSCOND>>1
#line 1464 "regression-compile-tmp/hal70.imp"
ASSCOND = (int)((((unsigned int)(ASSCOND)) >> (1)));
                                                                //   1465      SKIP = 0 %IF SKIP>>1 = ASSCOND
#line 1465 "regression-compile-tmp/hal70.imp"
if ((((int)((((unsigned int)(SKIP)) >> (1)))) != (ASSCOND))) goto L_01e6;
#line 1465 "regression-compile-tmp/hal70.imp"
SKIP = 0;
#line 1465 "regression-compile-tmp/hal70.imp"
L_01e6:;
                                                                //   1466      ->LEND
#line 1466 "regression-compile-tmp/hal70.imp"
goto U_1017;
                                                                //   1467  
                                                                //   1468  DEFINE:
#line 1468 "regression-compile-tmp/hal70.imp"
U_1018:;
                                                                //   1469      FAULT('C') %IF NP # STORELIM
#line 1469 "regression-compile-tmp/hal70.imp"
if (((NP) == (STORELIM))) goto L_01e7;
#line 1469 "regression-compile-tmp/hal70.imp"
FAULT(67);
#line 1469 "regression-compile-tmp/hal70.imp"
L_01e7:;
                                                                //   1470      I = TAG1
#line 1470 "regression-compile-tmp/hal70.imp"
I = TAG1;
                                                                //   1471      %CYCLE
#line 1471 "regression-compile-tmp/hal70.imp"
L_01e8:;
                                                                //   1472         ->ERR %IF %NOT (TAG %AND S('='))
#line 1472 "regression-compile-tmp/hal70.imp"
if (!(TAG())) goto L_01af;
#line 1472 "regression-compile-tmp/hal70.imp"
if (S(61)) goto L_01eb;
#line 1472 "regression-compile-tmp/hal70.imp"
L_01af:;
#line 1472 "regression-compile-tmp/hal70.imp"
goto U_100e;
#line 1472 "regression-compile-tmp/hal70.imp"
L_01eb:;
                                                                //   1473         J = TAG1;  K = TAG2
#line 1473 "regression-compile-tmp/hal70.imp"
J = TAG1;
#line 1473 "regression-compile-tmp/hal70.imp"
K = TAG2;
                                                                //   1474         %IF TAG %START
#line 1474 "regression-compile-tmp/hal70.imp"
if (!(TAG())) goto L_01ec;
                                                                //   1475            TAGREF
#line 1475 "regression-compile-tmp/hal70.imp"
TAGREF();
                                                                //   1476            %IF TYPE&OPMASK # 0 %START
#line 1476 "regression-compile-tmp/hal70.imp"
if (((((TYPE) & (OPMASK))) == (0))) goto L_01ed;
                                                                //   1477               GET INST
#line 1477 "regression-compile-tmp/hal70.imp"
GETINST();
                                                                //   1478            %finish %ELSE %START
#line 1478 "regression-compile-tmp/hal70.imp"
goto L_01ee;
#line 1478 "regression-compile-tmp/hal70.imp"
L_01ed:;
                                                                //   1479               PEND = -1;  GET EXP
#line 1479 "regression-compile-tmp/hal70.imp"
PEND = (-1);
#line 1479 "regression-compile-tmp/hal70.imp"
GETEXP();
                                                                //   1480            %FINISH
#line 1480 "regression-compile-tmp/hal70.imp"
L_01ee:;
                                                                //   1481         %finish %ELSE GET EXP
#line 1481 "regression-compile-tmp/hal70.imp"
goto L_01ef;
#line 1481 "regression-compile-tmp/hal70.imp"
L_01ec:;
#line 1481 "regression-compile-tmp/hal70.imp"
GETEXP();
#line 1481 "regression-compile-tmp/hal70.imp"
L_01ef:;
                                                                //   1482         ASSEMBLE
#line 1482 "regression-compile-tmp/hal70.imp"
ASSEMBLE();
                                                                //   1483         TAG1 = J;  TAG2 = K
#line 1483 "regression-compile-tmp/hal70.imp"
TAG1 = J;
#line 1483 "regression-compile-tmp/hal70.imp"
TAG2 = K;
                                                                //   1484         %IF I=DEF %THEN LOOKUP(3) %ELSE LOOKUP(2)
#line 1484 "regression-compile-tmp/hal70.imp"
if (((I) != (DEF))) goto L_01f0;
#line 1484 "regression-compile-tmp/hal70.imp"
LOOKUP(3);
#line 1484 "regression-compile-tmp/hal70.imp"
goto L_01f1;
#line 1484 "regression-compile-tmp/hal70.imp"
L_01f0:;
#line 1484 "regression-compile-tmp/hal70.imp"
LOOKUP(2);
#line 1484 "regression-compile-tmp/hal70.imp"
L_01f1:;
                                                                //   1485         %EXIT %UNLESS S(',')
#line 1485 "regression-compile-tmp/hal70.imp"
if (S(44)) goto L_01f2;
#line 1485 "regression-compile-tmp/hal70.imp"
goto L_01e9;
#line 1485 "regression-compile-tmp/hal70.imp"
L_01f2:;
                                                                //   1486         QLIM = QSTART
#line 1486 "regression-compile-tmp/hal70.imp"
QLIM = QSTART;
                                                                //   1487      %REPEAT
#line 1487 "regression-compile-tmp/hal70.imp"
goto L_01e8;
#line 1487 "regression-compile-tmp/hal70.imp"
L_01e9:;
                                                                //   1488      ->SEND
#line 1488 "regression-compile-tmp/hal70.imp"
goto U_1026;
                                                                //   1489  
                                                                //   1490  NEWPAGE:
#line 1490 "regression-compile-tmp/hal70.imp"
U_1013:;
                                                                //   1491      DO NEWLINE %WHILE LINES # 0
#line 1491 "regression-compile-tmp/hal70.imp"
L_01f3:;
#line 1491 "regression-compile-tmp/hal70.imp"
if (((LINES) == (0))) goto L_01f4;
#line 1491 "regression-compile-tmp/hal70.imp"
DONEWLINE();
#line 1491 "regression-compile-tmp/hal70.imp"
goto L_01f3;
#line 1491 "regression-compile-tmp/hal70.imp"
L_01f4:;
                                                                //   1492      ->LEND
#line 1492 "regression-compile-tmp/hal70.imp"
goto U_1017;
                                                                //   1493  
                                                                //   1494  LISTC:
#line 1494 "regression-compile-tmp/hal70.imp"
U_1019:;
                                                                //   1495      GET EXP;  ASSEMBLE
#line 1495 "regression-compile-tmp/hal70.imp"
GETEXP();
#line 1495 "regression-compile-tmp/hal70.imp"
ASSEMBLE();
                                                                //   1496      LIST = VAL
#line 1496 "regression-compile-tmp/hal70.imp"
LIST = VAL;
                                                                //   1497      ->SEND
#line 1497 "regression-compile-tmp/hal70.imp"
goto U_1026;
                                                                //   1498  
                                                                //   1499  TEMP:
#line 1499 "regression-compile-tmp/hal70.imp"
U_101a:;
                                                                //   1500      I = 0
#line 1500 "regression-compile-tmp/hal70.imp"
I = 0;
                                                                //   1501      %IF SYM # NL %START
#line 1501 "regression-compile-tmp/hal70.imp"
if (((SYM) == (10))) goto L_01f6;
                                                                //   1502         %CYCLE
#line 1502 "regression-compile-tmp/hal70.imp"
L_01f7:;
                                                                //   1503            GET EXP
#line 1503 "regression-compile-tmp/hal70.imp"
GETEXP();
                                                                //   1504            FAULT('I') %IF TYPE # REG
#line 1504 "regression-compile-tmp/hal70.imp"
if (((TYPE) == (REG))) goto L_01fa;
#line 1504 "regression-compile-tmp/hal70.imp"
FAULT(73);
#line 1504 "regression-compile-tmp/hal70.imp"
L_01fa:;
                                                                //   1505            I = I!1<<VAL
#line 1505 "regression-compile-tmp/hal70.imp"
I = ((I) | (((1) << (VAL))));
                                                                //   1506            %EXIT %UNLESS S(',')
#line 1506 "regression-compile-tmp/hal70.imp"
if (S(44)) goto L_01fb;
#line 1506 "regression-compile-tmp/hal70.imp"
goto L_01f8;
#line 1506 "regression-compile-tmp/hal70.imp"
L_01fb:;
                                                                //   1507         %REPEAT
#line 1507 "regression-compile-tmp/hal70.imp"
goto L_01f7;
#line 1507 "regression-compile-tmp/hal70.imp"
L_01f8:;
                                                                //   1508      %FINISH
#line 1508 "regression-compile-tmp/hal70.imp"
L_01f6:;
                                                                //   1509      TEMPS = I
#line 1509 "regression-compile-tmp/hal70.imp"
TEMPS = I;
                                                                //   1510      SET ACC
#line 1510 "regression-compile-tmp/hal70.imp"
SETACC();
                                                                //   1511      ->SEND
#line 1511 "regression-compile-tmp/hal70.imp"
goto U_1026;
                                                                //   1512  
                                                                //   1513  LOCC:
#line 1513 "regression-compile-tmp/hal70.imp"
U_1000:;
                                                                //   1514      I = TAG1
#line 1514 "regression-compile-tmp/hal70.imp"
I = TAG1;
                                                                //   1515      GET EXP;  ASSEMBLE
#line 1515 "regression-compile-tmp/hal70.imp"
GETEXP();
#line 1515 "regression-compile-tmp/hal70.imp"
ASSEMBLE();
                                                                //   1516      %IF TYPE&16_FF80 = 0 %START
#line 1516 "regression-compile-tmp/hal70.imp"
if (((((TYPE) & (65408))) != (0))) goto L_01fc;
                                                                //   1517         %IF I = 13556 %START;          !LOC
#line 1517 "regression-compile-tmp/hal70.imp"
if (((I) != (13556))) goto L_01fd;
                                                                //   1518            OUTPUT RECORD %IF BINCOUNT >= 203
#line 1518 "regression-compile-tmp/hal70.imp"
if (((BINCOUNT) < (203))) goto L_01fe;
#line 1518 "regression-compile-tmp/hal70.imp"
OUTPUTRECORD();
#line 1518 "regression-compile-tmp/hal70.imp"
L_01fe:;
                                                                //   1519            PUT(3) %IF (LOCTYPE!!TYPE)&RELMASK # 0
#line 1519 "regression-compile-tmp/hal70.imp"
if (((((((LOCTYPE) ^ (TYPE))) & (RELMASK))) == (0))) goto L_01ff;
#line 1519 "regression-compile-tmp/hal70.imp"
PUT(3);
#line 1519 "regression-compile-tmp/hal70.imp"
L_01ff:;
                                                                //   1520            PUT(5);  PUT WORD(VAL)
#line 1520 "regression-compile-tmp/hal70.imp"
PUT(5);
#line 1520 "regression-compile-tmp/hal70.imp"
PUTWORD(VAL);
                                                                //   1521         %FINISH
#line 1521 "regression-compile-tmp/hal70.imp"
L_01fd:;
                                                                //   1522         LOCTYPE = TYPE&63+MEMMASK;  LOC = VAL
#line 1522 "regression-compile-tmp/hal70.imp"
LOCTYPE = (((int)(((TYPE) & (63)))) + (MEMMASK));
#line 1522 "regression-compile-tmp/hal70.imp"
LOC = VAL;
                                                                //   1523      %finish %ELSE FAULT('I')
#line 1523 "regression-compile-tmp/hal70.imp"
goto L_0200;
#line 1523 "regression-compile-tmp/hal70.imp"
L_01fc:;
#line 1523 "regression-compile-tmp/hal70.imp"
FAULT(73);
#line 1523 "regression-compile-tmp/hal70.imp"
L_0200:;
                                                                //   1524      ->SEND
#line 1524 "regression-compile-tmp/hal70.imp"
goto U_1026;
                                                                //   1525  
                                                                //   1526  SAVC:
#line 1526 "regression-compile-tmp/hal70.imp"
U_1001:;
                                                                //   1527      GET EXP;  ASSEMBLE
#line 1527 "regression-compile-tmp/hal70.imp"
GETEXP();
#line 1527 "regression-compile-tmp/hal70.imp"
ASSEMBLE();
                                                                //   1528      SAVE = VAL
#line 1528 "regression-compile-tmp/hal70.imp"
SAVE = VAL;
                                                                //   1529      ->SEND
#line 1529 "regression-compile-tmp/hal70.imp"
goto U_1026;
                                                                //   1530  
                                                                //   1531  MACDEF:
#line 1531 "regression-compile-tmp/hal70.imp"
U_101b:;
                                                                //   1532      ->CERR %IF MP # 0
#line 1532 "regression-compile-tmp/hal70.imp"
if (((MP) == (0))) goto L_0201;
#line 1532 "regression-compile-tmp/hal70.imp"
goto U_1028;
#line 1532 "regression-compile-tmp/hal70.imp"
L_0201:;
                                                                //   1533      ->ERR %IF %NOT TAG
#line 1533 "regression-compile-tmp/hal70.imp"
if (TAG()) goto L_0202;
#line 1533 "regression-compile-tmp/hal70.imp"
goto U_100e;
#line 1533 "regression-compile-tmp/hal70.imp"
L_0202:;
                                                                //   1534      J = TAG1;  K = TAG2
#line 1534 "regression-compile-tmp/hal70.imp"
J = TAG1;
#line 1534 "regression-compile-tmp/hal70.imp"
K = TAG2;
                                                                //   1535      I = GETPOS-1
#line 1535 "regression-compile-tmp/hal70.imp"
I = (((int)(GETPOS)) - (1));
                                                                //   1536      %IF SYM # NL %START
#line 1536 "regression-compile-tmp/hal70.imp"
if (((SYM) == (10))) goto L_0203;
                                                                //   1537         %CYCLE
#line 1537 "regression-compile-tmp/hal70.imp"
L_0204:;
                                                                //   1538            ->ERR %IF %NOT TAG
#line 1538 "regression-compile-tmp/hal70.imp"
if (TAG()) goto L_0207;
#line 1538 "regression-compile-tmp/hal70.imp"
goto U_100e;
#line 1538 "regression-compile-tmp/hal70.imp"
L_0207:;
                                                                //   1539            SCAN ARG
#line 1539 "regression-compile-tmp/hal70.imp"
SCANARG();
                                                                //   1540            %EXIT %IF %NOT S(',')
#line 1540 "regression-compile-tmp/hal70.imp"
if (S(44)) goto L_0208;
#line 1540 "regression-compile-tmp/hal70.imp"
goto L_0205;
#line 1540 "regression-compile-tmp/hal70.imp"
L_0208:;
                                                                //   1541         %REPEAT
#line 1541 "regression-compile-tmp/hal70.imp"
goto L_0204;
#line 1541 "regression-compile-tmp/hal70.imp"
L_0205:;
                                                                //   1542      %FINISH
#line 1542 "regression-compile-tmp/hal70.imp"
L_0203:;
                                                                //   1543      ->ERR %IF SYM # NL
#line 1543 "regression-compile-tmp/hal70.imp"
if (((SYM) == (10))) goto L_0209;
#line 1543 "regression-compile-tmp/hal70.imp"
goto U_100e;
#line 1543 "regression-compile-tmp/hal70.imp"
L_0209:;
                                                                //   1544      TAG1 = J;  TAG2 = K
#line 1544 "regression-compile-tmp/hal70.imp"
TAG1 = J;
#line 1544 "regression-compile-tmp/hal70.imp"
TAG2 = K;
                                                                //   1545      TYPE = MACRO;  VAL = I
#line 1545 "regression-compile-tmp/hal70.imp"
TYPE = MACRO;
#line 1545 "regression-compile-tmp/hal70.imp"
VAL = I;
                                                                //   1546      LOOKUP(3)
#line 1546 "regression-compile-tmp/hal70.imp"
LOOKUP(3);
                                                                //   1547      %CYCLE
#line 1547 "regression-compile-tmp/hal70.imp"
L_020a:;
                                                                //   1548         PRINT LINE
#line 1548 "regression-compile-tmp/hal70.imp"
PRINTLINE();
                                                                //   1549         %EXIT %IF S('$') %AND TAG %AND TAG1 = END
#line 1549 "regression-compile-tmp/hal70.imp"
if (!(S(36))) goto L_020d;
#line 1549 "regression-compile-tmp/hal70.imp"
if (!(TAG())) goto L_020d;
#line 1549 "regression-compile-tmp/hal70.imp"
if (((TAG1) != (END))) goto L_020d;
#line 1549 "regression-compile-tmp/hal70.imp"
goto L_020b;
#line 1549 "regression-compile-tmp/hal70.imp"
L_020d:;
                                                                //   1550         STARTPOS = PUTPOS
#line 1550 "regression-compile-tmp/hal70.imp"
STARTPOS = PUTPOS;
                                                                //   1551         STARTPOS = PSEUDOLIM+1 %IF PSEUDOLIM # 0
#line 1551 "regression-compile-tmp/hal70.imp"
if (((PSEUDOLIM) == (0))) goto L_020e;
#line 1551 "regression-compile-tmp/hal70.imp"
STARTPOS = (((int)(PSEUDOLIM)) + (1));
#line 1551 "regression-compile-tmp/hal70.imp"
L_020e:;
                                                                //   1552         READ LINE
#line 1552 "regression-compile-tmp/hal70.imp"
READLINE();
                                                                //   1553      %REPEAT
#line 1553 "regression-compile-tmp/hal70.imp"
goto L_020a;
#line 1553 "regression-compile-tmp/hal70.imp"
L_020b:;
                                                                //   1554      PUTPOS = STARTPOS;  PUT CHAR(0)
#line 1554 "regression-compile-tmp/hal70.imp"
PUTPOS = STARTPOS;
#line 1554 "regression-compile-tmp/hal70.imp"
PUTCHAR(0);
                                                                //   1555      STARTPOS = PUTPOS
#line 1555 "regression-compile-tmp/hal70.imp"
STARTPOS = PUTPOS;
                                                                //   1556      MACLIM = STARTPOS
#line 1556 "regression-compile-tmp/hal70.imp"
MACLIM = STARTPOS;
                                                                //   1557      ->LEND
#line 1557 "regression-compile-tmp/hal70.imp"
goto U_1017;
                                                                //   1558  
                                                                //   1559  %ROUTINE BNEST
#line 1559 "regression-compile-tmp/hal70.imp"
void BNEST( void )
#line 1559 "regression-compile-tmp/hal70.imp"
{
                                                                //   1560  !!    BP = BP+4;  %MONITOR 23 %IF BP-NP >= 0
                                                                //   1561      BP = BP+4;  !{}%signal 2,3 %IF BP-NP >= 0
#line 1561 "regression-compile-tmp/hal70.imp"
BP = (((int)(BP)) + (4));
                                                                //   1562  !!    INTEGER(BP-3) = SAVE;  INTEGER(BP-2) = TEMPS
                                                                //   1563      set INTEGER(BP-3, SAVE);  set INTEGER(BP-2, TEMPS)
#line 1563 "regression-compile-tmp/hal70.imp"
SETINTEGER((((int)(BP)) - (3)), SAVE);
#line 1563 "regression-compile-tmp/hal70.imp"
SETINTEGER((((int)(BP)) - (2)), TEMPS);
                                                                //   1564  !!    INTEGER(BP-1) = MACLIM;  INTEGER(BP) = DEFMIN
                                                                //   1565      set INTEGER(BP-1, MACLIM);  set INTEGER(BP, DEFMIN)
#line 1565 "regression-compile-tmp/hal70.imp"
SETINTEGER((((int)(BP)) - (1)), MACLIM);
#line 1565 "regression-compile-tmp/hal70.imp"
SETINTEGER(BP, DEFMIN);
                                                                //   1566  %END
#line 1566 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block BNEST at level 2
                                                                //   1567  
                                                                //   1568  BEGIN:
#line 1568 "regression-compile-tmp/hal70.imp"
U_1002:;
                                                                //   1569      BNEST
#line 1569 "regression-compile-tmp/hal70.imp"
BNEST();
                                                                //   1570      ->NEWPAGE %IF SYM # NL
#line 1570 "regression-compile-tmp/hal70.imp"
if (((SYM) == (10))) goto L_020f;
#line 1570 "regression-compile-tmp/hal70.imp"
goto U_1013;
#line 1570 "regression-compile-tmp/hal70.imp"
L_020f:;
                                                                //   1571      ->LEND
#line 1571 "regression-compile-tmp/hal70.imp"
goto U_1017;
                                                                //   1572  
                                                                //   1573  BEND:
#line 1573 "regression-compile-tmp/hal70.imp"
U_100f:;
                                                                //   1574      FAULT('C') %IF NP # STORELIM %OR MP # 0
#line 1574 "regression-compile-tmp/hal70.imp"
if (((NP) != (STORELIM))) goto L_020c;
#line 1574 "regression-compile-tmp/hal70.imp"
if (((MP) == (0))) goto L_0210;
#line 1574 "regression-compile-tmp/hal70.imp"
L_020c:;
#line 1574 "regression-compile-tmp/hal70.imp"
FAULT(67);
#line 1574 "regression-compile-tmp/hal70.imp"
L_0210:;
                                                                //   1575      MP = 0;  NP = STORELIM
#line 1575 "regression-compile-tmp/hal70.imp"
MP = 0;
#line 1575 "regression-compile-tmp/hal70.imp"
NP = STORELIM;
                                                                //   1576      %IF BP # LABLIM %START
#line 1576 "regression-compile-tmp/hal70.imp"
if (((BP) == (LABLIM))) goto L_0211;
                                                                //   1577         SAVE = INTEGER(BP-3);  TEMPS = INTEGER(BP-2)
#line 1577 "regression-compile-tmp/hal70.imp"
SAVE = INTEGER((((int)(BP)) - (3)));
#line 1577 "regression-compile-tmp/hal70.imp"
TEMPS = INTEGER((((int)(BP)) - (2)));
                                                                //   1578         MACLIM = INTEGER(BP-1);  STARTPOS = MACLIM
#line 1578 "regression-compile-tmp/hal70.imp"
MACLIM = INTEGER((((int)(BP)) - (1)));
#line 1578 "regression-compile-tmp/hal70.imp"
STARTPOS = MACLIM;
                                                                //   1579         DEFMIN = INTEGER(BP)
#line 1579 "regression-compile-tmp/hal70.imp"
DEFMIN = INTEGER(BP);
                                                                //   1580         SET ACC
#line 1580 "regression-compile-tmp/hal70.imp"
SETACC();
                                                                //   1581         BP = BP-4
#line 1581 "regression-compile-tmp/hal70.imp"
BP = (((int)(BP)) - (4));
                                                                //   1582         ->LEND %IF BP # LABLIM
#line 1582 "regression-compile-tmp/hal70.imp"
if (((BP) == (LABLIM))) goto L_0212;
#line 1582 "regression-compile-tmp/hal70.imp"
goto U_1017;
#line 1582 "regression-compile-tmp/hal70.imp"
L_0212:;
                                                                //   1583      %FINISH
#line 1583 "regression-compile-tmp/hal70.imp"
L_0211:;
                                                                //   1584      CLOSE INPUT;  SELECT INPUT(MAIN)
#line 1584 "regression-compile-tmp/hal70.imp"
_imp_CLOSEINPUT();
#line 1584 "regression-compile-tmp/hal70.imp"
_imp_SELECTINPUT(MAIN);
                                                                //   1585      BNEST
#line 1585 "regression-compile-tmp/hal70.imp"
BNEST();
                                                                //   1586      LIST = 5
#line 1586 "regression-compile-tmp/hal70.imp"
LIST = 5;
                                                                //   1587      PASS = PASS+1
#line 1587 "regression-compile-tmp/hal70.imp"
PASS = (((int)(PASS)) + (1));
                                                                //   1588      ->DO PASS %IF PASS # 2
#line 1588 "regression-compile-tmp/hal70.imp"
if (((PASS) == (2))) goto L_0213;
#line 1588 "regression-compile-tmp/hal70.imp"
goto U_1010;
#line 1588 "regression-compile-tmp/hal70.imp"
L_0213:;
                                                                //   1589  
                                                                //   1590      OUTPUT RECORD %IF BINCOUNT = 208
#line 1590 "regression-compile-tmp/hal70.imp"
if (((BINCOUNT) != (208))) goto L_0214;
#line 1590 "regression-compile-tmp/hal70.imp"
OUTPUTRECORD();
#line 1590 "regression-compile-tmp/hal70.imp"
L_0214:;
                                                                //   1591      PUT(1)
#line 1591 "regression-compile-tmp/hal70.imp"
PUT(1);
                                                                //   1592      OUTPUT RECORD
#line 1592 "regression-compile-tmp/hal70.imp"
OUTPUTRECORD();
                                                                //   1593      FAULT('$')
#line 1593 "regression-compile-tmp/hal70.imp"
FAULT(36);
                                                                //   1594      PRINT LOC;  PRINT LINE
#line 1594 "regression-compile-tmp/hal70.imp"
PRINTLOC();
#line 1594 "regression-compile-tmp/hal70.imp"
PRINTLINE();
                                                                //   1595  
                                                                //   1596  %ENDOFPROGRAM
#line 1596 "regression-compile-tmp/hal70.imp"
/* Remove %on %event handler here if present for this block */
return 0;
} // End of block _imp_main at level 1
#line 1596 "regression-compile-tmp/hal70.imp"
// End of file
